diff --git a/configure b/configure index 2c8bff784..2aceae8c9 100755 --- a/configure +++ b/configure @@ -72,7 +72,7 @@ else readonly gerbil_version="$(git describe --tags --always)" fi readonly gerbil_targets="" -readonly default_gambit_tag=09335d95cab6931791c0a8497cbe915053ff8af3 +readonly default_gambit_tag=2686dd61237aa562eb0ff206bc689bc8a77b45c9 readonly default_gambit_config="--enable-targets=${gerbil_targets} --enable-single-host --enable-dynamic-clib --enable-default-runtime-options=tE8,f8,-8 --enable-trust-c-tco" prefix="/opt/gerbil" readonly cflags_opt="-foptimize-sibling-calls" diff --git a/doc/reference/std/misc/number.md b/doc/reference/std/misc/number.md index 3f40d1424..03e70a09b 100644 --- a/doc/reference/std/misc/number.md +++ b/doc/reference/std/misc/number.md @@ -335,7 +335,7 @@ starting with `from` up to and not including `below`. Given an integer `n`, return half of `n` if it is even, or half of `n-1` if it is odd. -### least-integer? +### least-integer ```scheme (least-integer pred? start end) -> integer ``` diff --git a/src/bootstrap/gerbil/compiler/base~0.scm b/src/bootstrap/gerbil/compiler/base~0.scm index 5ce5f0498..af1f0d85d 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 1713631267) + (define gerbil/compiler/base::timestamp 1734357962) (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 ((_%verbosity133737133739%_ + (let ((_%verbosity135024135026%_ (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_VERBOSE" '#f)))) - (if _%verbosity133737133739%_ - (let* ((_%verbosity133742%_ _%verbosity133737133739%_) - (_%$e133744%_ (string->number _%verbosity133742%_))) - (if _%$e133744%_ _%$e133744%_ _%verbosity133742%_)) + (if _%verbosity135024135026%_ + (let* ((_%verbosity135029%_ _%verbosity135024135026%_) + (_%$e135031%_ (string->number _%verbosity135029%_))) + (if _%$e135031%_ _%$e135031%_ _%verbosity135029%_)) '#f)))) (define gxc#current-compile-optimize (make-parameter '#f)) (define gxc#current-compile-debug (make-parameter '#f)) @@ -30,22 +30,22 @@ (define gxc#current-compile-parallel (make-parameter '#f)) (define gxc#current-compile-local-env (make-parameter '())) (define gxc#symbol-table::t - (let ((__tmp133799 (list)) (__tmp133798 (cons (cons 'struct: '#t) '()))) + (let ((__tmp135086 (list)) (__tmp135085 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#symbol-table::t 'symbol-table - __tmp133799 + __tmp135086 '(gensyms bindings) - __tmp133798 + __tmp135085 ':init!))) (define gxc#symbol-table? (let () (declare (not safe)) (__make-class-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table - (lambda _%$args133735%_ - (apply make-instance gxc#symbol-table::t _%$args133735%_))) + (lambda _%$args135022%_ + (apply make-instance gxc#symbol-table::t _%$args135022%_))) (define gxc#symbol-table-gensyms (let () (declare (not safe)) @@ -79,44 +79,44 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#symbol-table::t 'bindings))) (define gxc#symbol-table:::init! - (lambda (_%self133257133720%_) - (let* ((_%self133723%_ _%self133257133720%_) - (_%self133725%_ _%self133723%_)) - (if (let ((__tmp133800 + (lambda (_%self134544135007%_) + (let* ((_%self135010%_ _%self134544135007%_) + (_%self135012%_ _%self135010%_)) + (if (let ((__tmp135087 (let () (declare (not safe)) - (##structure-length _%self133725%_)))) + (##structure-length _%self135012%_)))) (declare (not safe)) - (##fx< '2 __tmp133800)) + (##fx< '2 __tmp135087)) (begin - (let ((__tmp133801 + (let ((__tmp135088 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self133725%_ - __tmp133801 + _%self135012%_ + __tmp135088 '1 '#f '#f)) - (let ((__tmp133802 + (let ((__tmp135089 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self133725%_ - __tmp133802 + _%self135012%_ + __tmp135089 '2 '#f '#f)) '#!void) - (let ((__tmp133803 + (let ((__tmp135090 (let () (declare (not safe)) - (##vector-length _%self133725%_)))) + (##vector-length _%self135012%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self133725%_ + _%self135012%_ '2 - __tmp133803)))))) + __tmp135090)))))) (let () (declare (not safe)) (__bind-method!__% @@ -125,134 +125,134 @@ gxc#symbol-table:::init! '#f)) (define gxc#raise-compile-error - (lambda (_%message133589%_ _%stx133590%_ . _%details133591%_) - (let ((_%ctx133596%_ - (let ((_%$e133593%_ + (lambda (_%message134876%_ _%stx134877%_ . _%details134878%_) + (let ((_%ctx134883%_ + (let ((_%$e134880%_ (let () (declare (not safe)) (gxc#current-compile-context)))) - (if _%$e133593%_ _%$e133593%_ 'compile)))) + (if _%$e134880%_ _%$e134880%_ 'compile)))) (apply gx#raise-syntax-error - _%ctx133596%_ - _%message133589%_ - _%stx133590%_ - _%details133591%_)))) + _%ctx134883%_ + _%message134876%_ + _%stx134877%_ + _%details134878%_)))) (define gxc#verbose - (lambda _%args133586%_ + (lambda _%args134873%_ (if (let () (declare (not safe)) (gxc#current-compile-verbose)) - (let ((__tmp133804 + (let ((__tmp135091 (lambda () (let () (declare (not safe)) - (##apply displayln _%args133586%_))))) + (##apply displayln _%args134873%_))))) (declare (not safe)) - (__with-lock gxc#__verbose-mutex __tmp133804)) + (__with-lock gxc#__verbose-mutex __tmp135091)) '#!void))) (define gxc#__verbose-mutex (make-mutex 'compiler/driver)) (define gxc#module-path-reserved-chars '":#<>&!?*;()[]{}|'`\"\\") (define gxc#module-id->path-string - (lambda (_%id133568%_) - (let* ((_%str133570%_ - (if (symbol? _%id133568%_) + (lambda (_%id134855%_) + (let* ((_%str134857%_ + (if (symbol? _%id134855%_) (let () (declare (not safe)) - (##symbol->string _%id133568%_)) - _%id133568%_)) - (_%len133572%_ (string-length _%str133570%_)) - (_%res133574%_ - (let () (declare (not safe)) (##make-string _%len133572%_)))) - (let _%lp133577%_ ((_%i133579%_ '0)) - (if (let () (declare (not safe)) (##fx< _%i133579%_ _%len133572%_)) - (let* ((_%char133581%_ (string-ref _%str133570%_ _%i133579%_)) - (_%xchar133583%_ + (##symbol->string _%id134855%_)) + _%id134855%_)) + (_%len134859%_ (string-length _%str134857%_)) + (_%res134861%_ + (let () (declare (not safe)) (##make-string _%len134859%_)))) + (let _%lp134864%_ ((_%i134866%_ '0)) + (if (let () (declare (not safe)) (##fx< _%i134866%_ _%len134859%_)) + (let* ((_%char134868%_ (string-ref _%str134857%_ _%i134866%_)) + (_%xchar134870%_ (if (let () (declare (not safe)) (string-index__0 gxc#module-path-reserved-chars - _%char133581%_)) + _%char134868%_)) '#\_ - _%char133581%_))) - (string-set! _%res133574%_ _%i133579%_ _%xchar133583%_) - (_%lp133577%_ - (let () (declare (not safe)) (##fx+ _%i133579%_ '1)))) - _%res133574%_))))) + _%char134868%_))) + (string-set! _%res134861%_ _%i134866%_ _%xchar134870%_) + (_%lp134864%_ + (let () (declare (not safe)) (##fx+ _%i134866%_ '1)))) + _%res134861%_))))) (define gxc#map* - (lambda (_%proc133510%_ _%maybe-improper-list133511%_) - (let _%recur133513%_ ((_%rest133515%_ _%maybe-improper-list133511%_)) - (let* ((_%rest133516133527%_ _%rest133515%_) - (_%E133520133531%_ + (lambda (_%proc134797%_ _%maybe-improper-list134798%_) + (let _%recur134800%_ ((_%rest134802%_ _%maybe-improper-list134798%_)) + (let* ((_%rest134803134814%_ _%rest134802%_) + (_%E134807134818%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest133516133527%_ + _%rest134803134814%_ '([hd . rest]) '([]) '(tail))) '#!void))) - (let ((_%K133523133556%_ - (lambda (_%rest133553%_ _%hd133554%_) - (cons (_%proc133510%_ _%hd133554%_) - (_%recur133513%_ _%rest133553%_)))) - (_%K133522133547%_ (lambda () '())) - (_%K133521133537%_ - (lambda (_%tail133535%_) (_%proc133510%_ _%tail133535%_)))) - (let ((_%try-match133518133550%_ + (let ((_%K134810134843%_ + (lambda (_%rest134840%_ _%hd134841%_) + (cons (_%proc134797%_ _%hd134841%_) + (_%recur134800%_ _%rest134840%_)))) + (_%K134809134834%_ (lambda () '())) + (_%K134808134824%_ + (lambda (_%tail134822%_) (_%proc134797%_ _%tail134822%_)))) + (let ((_%try-match134805134837%_ (lambda () - (if (null? _%rest133516133527%_) - (_%K133522133547%_) - (let ((_%tail133540%_ _%rest133516133527%_)) + (if (null? _%rest134803134814%_) + (_%K134809134834%_) + (let ((_%tail134827%_ _%rest134803134814%_)) (declare (not safe)) - (_%proc133510%_ _%tail133540%_)))))) - (if (pair? _%rest133516133527%_) - (let ((_%tl133525133561%_ + (_%proc134797%_ _%tail134827%_)))))) + (if (pair? _%rest134803134814%_) + (let ((_%tl134812134848%_ (let () (declare (not safe)) - (##cdr _%rest133516133527%_))) - (_%hd133524133559%_ + (##cdr _%rest134803134814%_))) + (_%hd134811134846%_ (let () (declare (not safe)) - (##car _%rest133516133527%_)))) - (let ((_%hd133564%_ _%hd133524133559%_) - (_%rest133566%_ _%tl133525133561%_)) - (_%K133523133556%_ _%rest133566%_ _%hd133564%_))) - (_%try-match133518133550%_)))))))) + (##car _%rest134803134814%_)))) + (let ((_%hd134851%_ _%hd134811134846%_) + (_%rest134853%_ _%tl134812134848%_)) + (_%K134810134843%_ _%rest134853%_ _%hd134851%_))) + (_%try-match134805134837%_)))))))) (define gxc#symbol-in-local-scope? - (lambda (_%sym133505%_) - (let ((_%$e133507%_ (not (gxc#gensym-reference? _%sym133505%_)))) - (if _%$e133507%_ - _%$e133507%_ - (memq _%sym133505%_ + (lambda (_%sym134792%_) + (let ((_%$e134794%_ (not (gxc#gensym-reference? _%sym134792%_)))) + (if _%$e134794%_ + _%$e134794%_ + (memq _%sym134792%_ (let () (declare (not safe)) (gxc#current-compile-local-env))))))) (define gxc#gensym-reference? - (lambda (_%sym133501%_) - (let ((_%str133503%_ (symbol->string _%sym133501%_))) + (lambda (_%sym134788%_) + (let ((_%str134790%_ (symbol->string _%sym134788%_))) (if (let () (declare (not safe)) - (##string-prefix? '"_%" _%str133503%_)) + (##string-prefix? '"_%" _%str134790%_)) (let () (declare (not safe)) - (##string-suffix? '"%_" _%str133503%_)) + (##string-suffix? '"%_" _%str134790%_)) '#f)))) (define gxc#generate-runtime-binding-id - (lambda (_%id133472%_) - (let ((_%$e133474%_ + (lambda (_%id134759%_) + (let ((_%$e134761%_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id133472%_ + _%id134759%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id133472%_)) + (gx#resolve-identifier__0 _%id134759%_)) '#f))) - (if _%$e133474%_ - ((lambda (_%bind133477%_) - (let ((_%eid133479%_ - (##structure-ref _%bind133477%_ '1 gx#binding::t '#f)) - (_%ht133480%_ + (if _%$e134761%_ + ((lambda (_%bind134764%_) + (let ((_%eid134766%_ + (##structure-ref _%bind134764%_ '1 gx#binding::t '#f)) + (_%ht134767%_ (##structure-ref (let () (declare (not safe)) @@ -262,155 +262,155 @@ '#f))) (if (let () (declare (not safe)) - (interned-symbol? _%eid133479%_)) - _%eid133479%_ - (let ((_%$e133483%_ + (interned-symbol? _%eid134766%_)) + _%eid134766%_ + (let ((_%$e134770%_ (let () (declare (not safe)) - (hash-get _%ht133480%_ _%eid133479%_)))) - (if _%$e133483%_ - _%$e133483%_ + (hash-get _%ht134767%_ _%eid134766%_)))) + (if _%$e134770%_ + _%$e134770%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%bind133477%_ + _%bind134764%_ 'gx#local-binding::t)) - (let ((_%gid133487%_ + (let ((_%gid134774%_ (gxc#generate-runtime-gensym-reference__0 - _%eid133479%_))) + _%eid134766%_))) (let () (declare (not safe)) (hash-put! - _%ht133480%_ - _%eid133479%_ - _%gid133487%_)) - _%gid133487%_) + _%ht134767%_ + _%eid134766%_ + _%gid134774%_)) + _%gid134774%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind133477%_ + _%bind134764%_ 'gx#module-binding::t)) - (let ((_%gid133496%_ - (let ((_%$e133490%_ + (let ((_%gid134783%_ + (let ((_%$e134777%_ (##structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%bind133477%_ + _%bind134764%_ '4 '#f '#f)) '6 gx#module-context::t '#f))) - (if _%$e133490%_ - ((lambda (_%ns133493%_) + (if _%$e134777%_ + ((lambda (_%ns134780%_) (let () (declare (not safe)) (make-symbol__1 - _%ns133493%_ + _%ns134780%_ '"#" - _%eid133479%_))) - _%$e133490%_) + _%eid134766%_))) + _%$e134777%_) (gxc#generate-runtime-gensym-reference__0 - _%eid133479%_))))) + _%eid134766%_))))) (let () (declare (not safe)) (hash-put! - _%ht133480%_ - _%eid133479%_ - _%gid133496%_)) - _%gid133496%_) + _%ht134767%_ + _%eid134766%_ + _%gid134783%_)) + _%gid134783%_) (gxc#raise-compile-error '"Cannot compile reference to uninterned binding" - _%id133472%_ - _%eid133479%_ - _%bind133477%_)))))))) - _%$e133474%_) - (if (let ((__tmp133805 + _%id134759%_ + _%eid134766%_ + _%bind134764%_)))))))) + _%$e134761%_) + (if (let ((__tmp135092 (let () (declare (not safe)) - (gx#stx-e _%id133472%_)))) + (gx#stx-e _%id134759%_)))) (declare (not safe)) - (interned-symbol? __tmp133805)) - (let () (declare (not safe)) (gx#stx-e _%id133472%_)) + (interned-symbol? __tmp135092)) + (let () (declare (not safe)) (gx#stx-e _%id134759%_)) (gxc#raise-compile-error '"Cannot compile reference to uninterned identifier" - _%id133472%_)))))) + _%id134759%_)))))) (define gxc#generate-runtime-binding-id* - (lambda (_%id133470%_) - (if (let () (declare (not safe)) (gx#identifier? _%id133470%_)) - (gxc#generate-runtime-binding-id _%id133470%_) + (lambda (_%id134757%_) + (if (let () (declare (not safe)) (gx#identifier? _%id134757%_)) + (gxc#generate-runtime-binding-id _%id134757%_) (gxc#generate-runtime-temporary__0)))) (define gxc#generate-runtime-temporary__% - (lambda (_%top133457%_) - (if _%top133457%_ - (let ((_%ns133459%_ + (lambda (_%top134744%_) + (if _%top134744%_ + (let ((_%ns134746%_ (##structure-ref - (let ((__tmp133806 + (let ((__tmp135093 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) - (gx#core-context-top__1 __tmp133806)) + (gx#core-context-top__1 __tmp135093)) '6 gx#module-context::t '#f)) - (_%phi133460%_ + (_%phi134747%_ (let () (declare (not safe)) (gx#current-expander-phi)))) - (if _%ns133459%_ - (if (fxpositive? _%phi133460%_) - (let ((__tmp133808 (number->string _%phi133460%_)) - (__tmp133807 + (if _%ns134746%_ + (if (fxpositive? _%phi134747%_) + (let ((__tmp135095 (number->string _%phi134747%_)) + (__tmp135094 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) (make-symbol__1 - _%ns133459%_ + _%ns134746%_ '"[" - __tmp133808 + __tmp135095 '"]#_" - __tmp133807 + __tmp135094 '"_")) - (let ((__tmp133809 + (let ((__tmp135096 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 _%ns133459%_ '"#_" __tmp133809 '"_"))) - (if (fxpositive? _%phi133460%_) - (let ((__tmp133811 (number->string _%phi133460%_)) - (__tmp133810 + (make-symbol__1 _%ns134746%_ '"#_" __tmp135096 '"_"))) + (if (fxpositive? _%phi134747%_) + (let ((__tmp135098 (number->string _%phi134747%_)) + (__tmp135097 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) (make-symbol__1 '"[" - __tmp133811 + __tmp135098 '"]#_" - __tmp133810 + __tmp135097 '"_")) - (let ((__tmp133812 + (let ((__tmp135099 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp133812 '"_"))))) - (let ((__tmp133813 (let () (declare (not safe)) (##gensym)))) + (make-symbol__1 '"_" __tmp135099 '"_"))))) + (let ((__tmp135100 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp133813 '"_"))))) + (make-symbol__1 '"_" __tmp135100 '"_"))))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_%top133466%_ '#f)) - (gxc#generate-runtime-temporary__% _%top133466%_)))) + (let ((_%top134753%_ '#f)) + (gxc#generate-runtime-temporary__% _%top134753%_)))) (define gxc#generate-runtime-temporary - (lambda _g133815_ - (let ((_g133814_ (let () (declare (not safe)) (##length _g133815_)))) - (cond ((let () (declare (not safe)) (##fx= _g133814_ 0)) - (apply gxc#generate-runtime-temporary__0 _g133815_)) - ((let () (declare (not safe)) (##fx= _g133814_ 1)) - (apply gxc#generate-runtime-temporary__% _g133815_)) + (lambda _g135102_ + (let ((_g135101_ (let () (declare (not safe)) (##length _g135102_)))) + (cond ((let () (declare (not safe)) (##fx= _g135101_ 0)) + (apply gxc#generate-runtime-temporary__0 _g135102_)) + ((let () (declare (not safe)) (##fx= _g135101_ 1)) + (apply gxc#generate-runtime-temporary__% _g135102_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-temporary - _g133815_)))))) + _g135102_)))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_%sym133435%_ _%quote?133436%_) - (let* ((_%ht133438%_ + (lambda (_%sym134722%_ _%quote?134723%_) + (let* ((_%ht134725%_ (##structure-ref (let () (declare (not safe)) @@ -418,66 +418,66 @@ '1 gxc#symbol-table::t '#f)) - (_%$e133440%_ + (_%$e134727%_ (let () (declare (not safe)) - (hash-get _%ht133438%_ _%sym133435%_)))) - (if _%$e133440%_ - _%$e133440%_ - (let ((_%g133444%_ - (if _%quote?133436%_ - (let ((__tmp133816 + (hash-get _%ht134725%_ _%sym134722%_)))) + (if _%$e134727%_ + _%$e134727%_ + (let ((_%g134731%_ + (if _%quote?134723%_ + (let ((__tmp135103 (let () (declare (not safe)) (gxc#current-compile-timestamp)))) (declare (not safe)) (make-symbol__1 '"__" - _%sym133435%_ + _%sym134722%_ '"__" - __tmp133816)) + __tmp135103)) (let () (declare (not safe)) - (make-symbol__1 '"_%" _%sym133435%_ '"%_"))))) + (make-symbol__1 '"_%" _%sym134722%_ '"%_"))))) (let () (declare (not safe)) - (hash-put! _%ht133438%_ _%sym133435%_ _%g133444%_)) - _%g133444%_))))) + (hash-put! _%ht134725%_ _%sym134722%_ _%g134731%_)) + _%g134731%_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_%sym133449%_) - (let ((_%quote?133451%_ '#f)) + (lambda (_%sym134736%_) + (let ((_%quote?134738%_ '#f)) (gxc#generate-runtime-gensym-reference__% - _%sym133449%_ - _%quote?133451%_)))) + _%sym134736%_ + _%quote?134738%_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g133818_ - (let ((_g133817_ (let () (declare (not safe)) (##length _g133818_)))) - (cond ((let () (declare (not safe)) (##fx= _g133817_ 1)) - (apply gxc#generate-runtime-gensym-reference__0 _g133818_)) - ((let () (declare (not safe)) (##fx= _g133817_ 2)) - (apply gxc#generate-runtime-gensym-reference__% _g133818_)) + (lambda _g135105_ + (let ((_g135104_ (let () (declare (not safe)) (##length _g135105_)))) + (cond ((let () (declare (not safe)) (##fx= _g135104_ 1)) + (apply gxc#generate-runtime-gensym-reference__0 _g135105_)) + ((let () (declare (not safe)) (##fx= _g135104_ 2)) + (apply gxc#generate-runtime-gensym-reference__% _g135105_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-gensym-reference - _g133818_)))))) + _g135105_)))))) (define gxc#runtime-identifier=? - (lambda (_%id1133427%_ _%id2133428%_) - (letrec ((_%symbol-e133430%_ - (lambda (_%id133432%_) - (if (symbol? _%id133432%_) - _%id133432%_ - (gxc#generate-runtime-binding-id _%id133432%_))))) - (eq? (_%symbol-e133430%_ _%id1133427%_) - (_%symbol-e133430%_ _%id2133428%_))))) + (lambda (_%id1134714%_ _%id2134715%_) + (letrec ((_%symbol-e134717%_ + (lambda (_%id134719%_) + (if (symbol? _%id134719%_) + _%id134719%_ + (gxc#generate-runtime-binding-id _%id134719%_))))) + (eq? (_%symbol-e134717%_ _%id1134714%_) + (_%symbol-e134717%_ _%id2134715%_))))) (define gxc#identifier-symbol - (lambda (_%stx133425%_) + (lambda (_%stx134712%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%stx133425%_ + _%stx134712%_ 'gx#syntax-quote::t)) - (gxc#generate-runtime-binding-id _%stx133425%_) - (let () (declare (not safe)) (gx#stx-e _%stx133425%_))))) + (gxc#generate-runtime-binding-id _%stx134712%_) + (let () (declare (not safe)) (gx#stx-e _%stx134712%_))))) (define gxc#__compile-jobs '()) (define gxc#__available-cores (string->number @@ -485,69 +485,69 @@ (define gxc#__jobs-mx (make-mutex)) (define gxc#__jobs-cv (make-condition-variable)) (define gxc#add-compile-job!__% - (lambda (_%thunk133410%_ _%name133411%_) + (lambda (_%thunk134697%_ _%name134698%_) (mutex-lock! gxc#__jobs-mx) - (let ((_%job133413%_ - (gxc#make-compile-job _%thunk133410%_ _%name133411%_))) - (set! gxc#__compile-jobs (cons _%job133413%_ gxc#__compile-jobs))) + (let ((_%job134700%_ + (gxc#make-compile-job _%thunk134697%_ _%name134698%_))) + (set! gxc#__compile-jobs (cons _%job134700%_ gxc#__compile-jobs))) (mutex-unlock! gxc#__jobs-mx))) (define gxc#add-compile-job!__0 - (lambda (_%thunk133418%_) - (let ((_%name133420%_ + (lambda (_%thunk134705%_) + (let ((_%name134707%_ (let () (declare (not safe)) (gxc#current-compile-context)))) - (gxc#add-compile-job!__% _%thunk133418%_ _%name133420%_)))) + (gxc#add-compile-job!__% _%thunk134705%_ _%name134707%_)))) (define gxc#add-compile-job! - (lambda _g133820_ - (let ((_g133819_ (let () (declare (not safe)) (##length _g133820_)))) - (cond ((let () (declare (not safe)) (##fx= _g133819_ 1)) - (apply gxc#add-compile-job!__0 _g133820_)) - ((let () (declare (not safe)) (##fx= _g133819_ 2)) - (apply gxc#add-compile-job!__% _g133820_)) + (lambda _g135107_ + (let ((_g135106_ (let () (declare (not safe)) (##length _g135107_)))) + (cond ((let () (declare (not safe)) (##fx= _g135106_ 1)) + (apply gxc#add-compile-job!__0 _g135107_)) + ((let () (declare (not safe)) (##fx= _g135106_ 2)) + (apply gxc#add-compile-job!__% _g135107_)) (else (##raise-wrong-number-of-arguments-exception gxc#add-compile-job! - _g133820_)))))) + _g135107_)))))) (define gxc#pending-compile-jobs (lambda () (mutex-lock! gxc#__jobs-mx) - (let ((_%result133407%_ (reverse! gxc#__compile-jobs))) + (let ((_%result134694%_ (reverse! gxc#__compile-jobs))) (set! gxc#__compile-jobs '()) (mutex-unlock! gxc#__jobs-mx) - _%result133407%_))) + _%result134694%_))) (define gxc#execute-pending-compile-jobs! (lambda () - (let _%loop133401%_ () - (let ((_%pending133404%_ (gxc#pending-compile-jobs))) - (if (null? _%pending133404%_) + (let _%loop134688%_ () + (let ((_%pending134691%_ (gxc#pending-compile-jobs))) + (if (null? _%pending134691%_) '#!void (begin (let () (declare (not safe)) - (##for-each thread-start! _%pending133404%_)) + (##for-each thread-start! _%pending134691%_)) (let () (declare (not safe)) - (##for-each gxc#join! _%pending133404%_)))))))) + (##for-each gxc#join! _%pending134691%_)))))))) (define gxc#make-compile-job - (lambda (_%thunk133390%_ _%name133391%_) + (lambda (_%thunk134677%_ _%name134678%_) (make-thread (lambda () - (let _%loop133394%_ () + (let _%loop134681%_ () (mutex-lock! gxc#__jobs-mx) (if (> gxc#__available-cores '0) (begin (set! gxc#__available-cores (- gxc#__available-cores '1)) (mutex-unlock! gxc#__jobs-mx) - (let ((__tmp133821 + (let ((__tmp135108 (lambda () (let () (declare (not safe)) (displayln '"... execute compile job " - _%name133391%_))))) + _%name134678%_))))) (declare (not safe)) - (__with-lock gxc#__verbose-mutex __tmp133821)) - (let ((__tmp133823 (lambda () (_%thunk133390%_))) - (__tmp133822 + (__with-lock gxc#__verbose-mutex __tmp135108)) + (let ((__tmp135110 (lambda () (_%thunk134677%_))) + (__tmp135109 (lambda () (mutex-lock! gxc#__jobs-mx) (set! gxc#__available-cores @@ -557,25 +557,25 @@ (condition-variable-signal! gxc#__jobs-cv) (mutex-unlock! gxc#__jobs-mx)))) (declare (not safe)) - (__with-unwind-protect __tmp133823 __tmp133822))) + (__with-unwind-protect __tmp135110 __tmp135109))) (begin (mutex-unlock! gxc#__jobs-mx gxc#__jobs-cv) - (_%loop133394%_))))) - _%name133391%_))) + (_%loop134681%_))))) + _%name134678%_))) (define gxc#join! - (lambda (_%thread133385%_) - (let ((__tmp133825 - (lambda (_%exn133387%_) + (lambda (_%thread134672%_) + (let ((__tmp135112 + (lambda (_%exn134674%_) (if (let () (declare (not safe)) - (uncaught-exception? _%exn133387%_)) - (let ((__tmp133826 + (uncaught-exception? _%exn134674%_)) + (let ((__tmp135113 (let () (declare (not safe)) - (uncaught-exception-reason _%exn133387%_)))) + (uncaught-exception-reason _%exn134674%_)))) (declare (not safe)) - (raise __tmp133826)) - (let () (declare (not safe)) (raise _%exn133387%_))))) - (__tmp133824 (lambda () (thread-join! _%thread133385%_)))) + (raise __tmp135113)) + (let () (declare (not safe)) (raise _%exn134674%_))))) + (__tmp135111 (lambda () (thread-join! _%thread134672%_)))) (declare (not safe)) - (__with-catch __tmp133825 __tmp133824)))))) + (__with-catch __tmp135112 __tmp135111)))))) diff --git a/src/bootstrap/gerbil/compiler/base~1.scm b/src/bootstrap/gerbil/compiler/base~1.scm index bb22262b2..c58729dd1 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]#_g133836_| + (define |gxc[1]#_g135123_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133838_| + (define |gxc[1]#_g135125_| (##structure gx#syntax-quote::t 'make-symbol-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133840_| + (define |gxc[1]#_g135127_| (##structure gx#syntax-quote::t 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133842_| + (define |gxc[1]#_g135129_| (##structure gx#syntax-quote::t 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133843_| + (define |gxc[1]#_g135130_| (##structure gx#syntax-quote::t 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133845_| + (define |gxc[1]#_g135132_| (##structure gx#syntax-quote::t 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133846_| + (define |gxc[1]#_g135133_| (##structure gx#syntax-quote::t 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133848_| + (define |gxc[1]#_g135135_| (##structure gx#syntax-quote::t '&symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133849_| + (define |gxc[1]#_g135136_| (##structure gx#syntax-quote::t '&symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133851_| + (define |gxc[1]#_g135138_| (##structure gx#syntax-quote::t '&symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133852_| + (define |gxc[1]#_g135139_| (##structure gx#syntax-quote::t '&symbol-table-bindings-set! @@ -79,202 +79,202 @@ '())) (begin (define |gxc[:0:]#ast-case| - (lambda (_%stx132919%_) + (lambda (_%stx134206%_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _%stx132919%_ + _%stx134206%_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| - (lambda (_%stx132922%_) - (let* ((_%g132925132949%_ - (lambda (_%g132926132945%_) + (lambda (_%stx134209%_) + (let* ((_%g134212134236%_ + (lambda (_%g134213134232%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g132926132945%_)))) - (_%g132924133252%_ - (lambda (_%g132926132953%_) + _%g134213134232%_)))) + (_%g134211134539%_ + (lambda (_%g134213134240%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g132926132953%_)) - (let ((_%e132929132956%_ + (gx#stx-pair? _%g134213134240%_)) + (let ((_%e134216134243%_ (let () (declare (not safe)) - (gx#syntax-e _%g132926132953%_)))) - (let ((_%hd132930132960%_ + (gx#syntax-e _%g134213134240%_)))) + (let ((_%hd134217134247%_ (let () (declare (not safe)) - (##car _%e132929132956%_))) - (_%tl132931132963%_ + (##car _%e134216134243%_))) + (_%tl134218134250%_ (let () (declare (not safe)) - (##cdr _%e132929132956%_)))) + (##cdr _%e134216134243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132931132963%_)) - (let ((_%e132932132966%_ + (gx#stx-pair? _%tl134218134250%_)) + (let ((_%e134219134253%_ (let () (declare (not safe)) - (gx#syntax-e _%tl132931132963%_)))) - (let ((_%hd132933132970%_ + (gx#syntax-e _%tl134218134250%_)))) + (let ((_%hd134220134257%_ (let () (declare (not safe)) - (##car _%e132932132966%_))) - (_%tl132934132973%_ + (##car _%e134219134253%_))) + (_%tl134221134260%_ (let () (declare (not safe)) - (##cdr _%e132932132966%_)))) + (##cdr _%e134219134253%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl132934132973%_)) - (let ((_g133827_ + (gx#stx-pair/null? _%tl134221134260%_)) + (let ((_g135114_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl132934132973%_ + _%tl134221134260%_ '0)))) (begin - (let ((_g133828_ + (let ((_g135115_ (let () (declare (not safe)) - (if (##values? _g133827_) - (##vector-length - _g133827_) + (if (##values? _g135114_) + (##values-length + _g135114_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133828_ 2))) + (##fx= _g135115_ 2))) (error "Context expects 2 values" - _g133828_))) - (let ((_%target132935132976%_ + _g135115_))) + (let ((_%target134222134263%_ (let () (declare (not safe)) - (##vector-ref _g133827_ 0))) - (_%tl132937132979%_ + (##values-ref _g135114_ 0))) + (_%tl134224134266%_ (let () (declare (not safe)) - (##vector-ref - _g133827_ + (##values-ref + _g135114_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132937132979%_)) - (letrec ((_%loop132938132982%_ - (lambda (_%hd132936132986%_ + _%tl134224134266%_)) + (letrec ((_%loop134225134269%_ + (lambda (_%hd134223134273%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause132942132989%_) + _%clause134229134276%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd132936132986%_)) - (let ((_%e132939132992%_ + (gx#stx-pair? _%hd134223134273%_)) + (let ((_%e134226134279%_ (let () (declare (not safe)) - (gx#syntax-e _%hd132936132986%_)))) - (let ((_%lp-hd132940132996%_ + (gx#syntax-e _%hd134223134273%_)))) + (let ((_%lp-hd134227134283%_ (let () (declare (not safe)) - (##car _%e132939132992%_))) - (_%lp-tl132941132999%_ + (##car _%e134226134279%_))) + (_%lp-tl134228134286%_ (let () (declare (not safe)) - (##cdr _%e132939132992%_)))) - (_%loop132938132982%_ - _%lp-tl132941132999%_ - (cons _%lp-hd132940132996%_ - _%clause132942132989%_)))) - (let ((_%clause132943133002%_ - (reverse _%clause132942132989%_))) - ((lambda (_%L133006%_ _%L133008%_) + (##cdr _%e134226134279%_)))) + (_%loop134225134269%_ + _%lp-tl134228134286%_ + (cons _%lp-hd134227134283%_ + _%clause134229134276%_)))) + (let ((_%clause134230134289%_ + (reverse _%clause134229134276%_))) + ((lambda (_%L134293%_ _%L134295%_) (if (let () (declare (not safe)) - (gx#identifier-list? _%L133008%_)) - (let* ((_%g133027133044%_ - (lambda (_%g133028133040%_) + (gx#identifier-list? _%L134295%_)) + (let* ((_%g134314134331%_ + (lambda (_%g134315134327%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133028133040%_)))) - (_%g133026133105%_ - (lambda (_%g133028133048%_) + _%g134315134327%_)))) + (_%g134313134392%_ + (lambda (_%g134315134335%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g133028133048%_)) - (let ((_g133829_ + _%g134315134335%_)) + (let ((_g135116_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g133028133048%_ + _%g134315134335%_ '0)))) (begin - (let ((_g133830_ + (let ((_g135117_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g133829_) - (##vector-length _g133829_) + _g135116_) + (##values-length _g135116_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g133830_ 2))) - (error "Context expects 2 values" _g133830_))) + (##fx= _g135117_ 2))) + (error "Context expects 2 values" _g135117_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target133030133051%_ + (let ((_%target134317134338%_ (let () (declare (not safe)) - (##vector-ref - _g133829_ + (##values-ref + _g135116_ 0))) - (_%tl133032133054%_ + (_%tl134319134341%_ (let () (declare (not safe)) - (##vector-ref - _g133829_ + (##values-ref + _g135116_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133032133054%_)) - (letrec ((_%loop133033133057%_ + _%tl134319134341%_)) + (letrec ((_%loop134320134344%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd133031133061%_ _%clause133037133064%_) + (lambda (_%hd134318134348%_ _%clause134324134351%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133031133061%_)) - (let ((_%e133034133067%_ + (gx#stx-pair? _%hd134318134348%_)) + (let ((_%e134321134354%_ (let () (declare (not safe)) - (gx#syntax-e _%hd133031133061%_)))) - (let ((_%lp-hd133035133071%_ + (gx#syntax-e _%hd134318134348%_)))) + (let ((_%lp-hd134322134358%_ (let () (declare (not safe)) - (##car _%e133034133067%_))) - (_%lp-tl133036133074%_ + (##car _%e134321134354%_))) + (_%lp-tl134323134361%_ (let () (declare (not safe)) - (##cdr _%e133034133067%_)))) - (_%loop133033133057%_ - _%lp-tl133036133074%_ - (cons _%lp-hd133035133071%_ - _%clause133037133064%_)))) - (let ((_%clause133038133077%_ - (reverse _%clause133037133064%_))) - ((lambda (_%L133081%_) + (##cdr _%e134321134354%_)))) + (_%loop134320134344%_ + _%lp-tl134323134361%_ + (cons _%lp-hd134322134358%_ + _%clause134324134351%_)))) + (let ((_%clause134325134364%_ + (reverse _%clause134324134351%_))) + ((lambda (_%L134368%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -294,159 +294,159 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '$stx)) - (cons _%L133008%_ - (let ((__tmp133831 - (lambda (_%g133096133099%_ - _%g133097133102%_) - (cons _%g133096133099%_ - _%g133097133102%_)))) + (cons _%L134295%_ + (let ((__tmp135118 + (lambda (_%g134383134386%_ + _%g134384134389%_) + (cons _%g134383134386%_ + _%g134384134389%_)))) (declare (not safe)) - (__foldr1 __tmp133831 '() _%L133081%_))))) + (__foldr1 __tmp135118 '() _%L134368%_))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause133038133077%_)))))) - (_%loop133033133057%_ _%target133030133051%_ '())) - (_%g133027133044%_ _%g133028133048%_))))) + _%clause134325134364%_)))))) + (_%loop134320134344%_ _%target134317134338%_ '())) + (_%g134314134331%_ _%g134315134335%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g133027133044%_ - _%g133028133048%_))))) - (_%g133026133105%_ - (let ((__tmp133834 - (lambda (_%clause133109%_) - (let* ((_%__stx133747133748%_ - _%clause133109%_) - (_%g133113133140%_ + (_%g134314134331%_ + _%g134315134335%_))))) + (_%g134313134392%_ + (let ((__tmp135121 + (lambda (_%clause134396%_) + (let* ((_%__stx135034135035%_ + _%clause134396%_) + (_%g134400134427%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx133747133748%_))))) - (let ((_%__kont133750133751%_ - (lambda (_%L133225%_ - _%L133227%_) - (cons _%L133227%_ + _%__stx135034135035%_))))) + (let ((_%__kont135037135038%_ + (lambda (_%L134512%_ + _%L134514%_) + (cons _%L134514%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L133225%_ '())) + (cons _%L134512%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont133752133753%_ - (lambda (_%L133177%_ - _%L133179%_ - _%L133180%_) - (cons _%L133180%_ - (cons _%L133179%_ + (_%__kont135039135040%_ + (lambda (_%L134464%_ + _%L134466%_ + _%L134467%_) + (cons _%L134467%_ + (cons _%L134466%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L133177%_ '())) + (cons _%L134464%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx133747133748%_)) - (let ((_%e133117133205%_ + _%__stx135034135035%_)) + (let ((_%e134404134492%_ (let () (declare (not safe)) (gx#syntax-e - _%__stx133747133748%_)))) - (let ((_%tl133119133212%_ + _%__stx135034135035%_)))) + (let ((_%tl134406134499%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e133117133205%_))) - (_%hd133118133209%_ - (let () (declare (not safe)) (##car _%e133117133205%_)))) + (##cdr _%e134404134492%_))) + (_%hd134405134496%_ + (let () (declare (not safe)) (##car _%e134404134492%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133119133212%_)) - (let ((_%e133120133215%_ + (gx#stx-pair? _%tl134406134499%_)) + (let ((_%e134407134502%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133119133212%_)))) - (let ((_%tl133122133222%_ + (gx#syntax-e _%tl134406134499%_)))) + (let ((_%tl134409134509%_ (let () (declare (not safe)) - (##cdr _%e133120133215%_))) - (_%hd133121133219%_ + (##cdr _%e134407134502%_))) + (_%hd134408134506%_ (let () (declare (not safe)) - (##car _%e133120133215%_)))) + (##car _%e134407134502%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133122133222%_)) - (_%__kont133750133751%_ - _%hd133121133219%_ - _%hd133118133209%_) + (gx#stx-null? _%tl134409134509%_)) + (_%__kont135037135038%_ + _%hd134408134506%_ + _%hd134405134496%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133122133222%_)) - (let ((_%e133132133167%_ + (gx#stx-pair? _%tl134409134509%_)) + (let ((_%e134419134454%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133122133222%_)))) - (let ((_%tl133134133174%_ + (gx#syntax-e _%tl134409134509%_)))) + (let ((_%tl134421134461%_ (let () (declare (not safe)) - (##cdr _%e133132133167%_))) - (_%hd133133133171%_ + (##cdr _%e134419134454%_))) + (_%hd134420134458%_ (let () (declare (not safe)) - (##car _%e133132133167%_)))) + (##car _%e134419134454%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133134133174%_)) - (_%__kont133752133753%_ - _%hd133133133171%_ - _%hd133121133219%_ - _%hd133118133209%_) + (gx#stx-null? _%tl134421134461%_)) + (_%__kont135039135040%_ + _%hd134420134458%_ + _%hd134408134506%_ + _%hd134405134496%_) (let () (declare (not safe)) - (_%g133113133140%_))))) + (_%g134400134427%_))))) (let () (declare (not safe)) - (_%g133113133140%_)))))) - (let () (declare (not safe)) (_%g133113133140%_))))) + (_%g134400134427%_)))))) + (let () (declare (not safe)) (_%g134400134427%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g133113133140%_))))))) - (__tmp133832 - (let ((__tmp133833 - (lambda (_%g133243133246%_ - _%g133244133249%_) - (cons _%g133243133246%_ - _%g133244133249%_)))) + (_%g134400134427%_))))))) + (__tmp135119 + (let ((__tmp135120 + (lambda (_%g134530134533%_ + _%g134531134536%_) + (cons _%g134530134533%_ + _%g134531134536%_)))) (declare (not safe)) (__foldr1 - __tmp133833 + __tmp135120 '() - _%L133006%_)))) + _%L134293%_)))) (declare (not safe)) - (gx#stx-map1 __tmp133834 __tmp133832)))) - (_%g132925132949%_ _%g132926132953%_))) - _%clause132943133002%_ - _%hd132933132970%_)))))) + (gx#stx-map1 __tmp135121 __tmp135119)))) + (_%g134212134236%_ _%g134213134240%_))) + _%clause134230134289%_ + _%hd134220134257%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop132938132982%_ - _%target132935132976%_ + (_%loop134225134269%_ + _%target134222134263%_ '())) - (_%g132925132949%_ - _%g132926132953%_))))) - (_%g132925132949%_ _%g132926132953%_)))) - (_%g132925132949%_ _%g132926132953%_)))) - (_%g132925132949%_ _%g132926132953%_))))) - (_%g132924133252%_ _%stx132922%_)))) + (_%g134212134236%_ + _%g134213134240%_))))) + (_%g134212134236%_ _%g134213134240%_)))) + (_%g134212134236%_ _%g134213134240%_)))) + (_%g134212134236%_ _%g134213134240%_))))) + (_%g134211134539%_ _%stx134209%_)))) (define |gxc[:0:]#symbol-table| - (let ((__obj133797 + (let ((__obj135084 (let () (declare (not safe)) (##structure @@ -475,18 +475,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj133797 + __obj135084 'gxc#symbol-table::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 'symbol-table '2 '#f '#f)) + (##unchecked-structure-set! __obj135084 'symbol-table '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj133797 + __obj135084 '(gensyms bindings) '4 '#f @@ -494,111 +494,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj133797 + __obj135084 '(gensyms bindings) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj135084 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj135084 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj135084 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj135084 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 ':init! '11 '#f '#f)) - (let ((__tmp133835 |gxc[1]#_g133836_|)) + (##unchecked-structure-set! __obj135084 ':init! '11 '#f '#f)) + (let ((__tmp135122 |gxc[1]#_g135123_|)) (declare (not safe)) - (##unchecked-structure-set! __obj133797 __tmp133835 '12 '#f '#f)) - (let ((__tmp133837 |gxc[1]#_g133838_|)) + (##unchecked-structure-set! __obj135084 __tmp135122 '12 '#f '#f)) + (let ((__tmp135124 |gxc[1]#_g135125_|)) (declare (not safe)) - (##unchecked-structure-set! __obj133797 __tmp133837 '13 '#f '#f)) - (let ((__tmp133839 |gxc[1]#_g133840_|)) + (##unchecked-structure-set! __obj135084 __tmp135124 '13 '#f '#f)) + (let ((__tmp135126 |gxc[1]#_g135127_|)) (declare (not safe)) - (##unchecked-structure-set! __obj133797 __tmp133839 '14 '#f '#f)) - (let ((__tmp133841 - (cons (cons 'gensyms |gxc[1]#_g133842_|) - (cons (cons 'bindings |gxc[1]#_g133843_|) '())))) + (##unchecked-structure-set! __obj135084 __tmp135126 '14 '#f '#f)) + (let ((__tmp135128 + (cons (cons 'gensyms |gxc[1]#_g135129_|) + (cons (cons 'bindings |gxc[1]#_g135130_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj133797 __tmp133841 '15 '#f '#f)) - (let ((__tmp133844 - (cons (cons 'gensyms |gxc[1]#_g133845_|) - (cons (cons 'bindings |gxc[1]#_g133846_|) '())))) + (##unchecked-structure-set! __obj135084 __tmp135128 '15 '#f '#f)) + (let ((__tmp135131 + (cons (cons 'gensyms |gxc[1]#_g135132_|) + (cons (cons 'bindings |gxc[1]#_g135133_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj133797 __tmp133844 '16 '#f '#f)) - (let ((__tmp133847 - (cons (cons 'gensyms |gxc[1]#_g133848_|) - (cons (cons 'bindings |gxc[1]#_g133849_|) '())))) + (##unchecked-structure-set! __obj135084 __tmp135131 '16 '#f '#f)) + (let ((__tmp135134 + (cons (cons 'gensyms |gxc[1]#_g135135_|) + (cons (cons 'bindings |gxc[1]#_g135136_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj133797 __tmp133847 '17 '#f '#f)) - (let ((__tmp133850 - (cons (cons 'gensyms |gxc[1]#_g133851_|) - (cons (cons 'bindings |gxc[1]#_g133852_|) '())))) + (##unchecked-structure-set! __obj135084 __tmp135134 '17 '#f '#f)) + (let ((__tmp135137 + (cons (cons 'gensyms |gxc[1]#_g135138_|) + (cons (cons 'bindings |gxc[1]#_g135139_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj133797 __tmp133850 '18 '#f '#f)) + (##unchecked-structure-set! __obj135084 __tmp135137 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj135084 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj135084 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133797 '() '20 '#f '#f)) - __obj133797)) + (##unchecked-structure-set! __obj135084 '() '20 '#f '#f)) + __obj135084)) (define |gxc[:0:]#with-verbose-mutex| - (lambda (_%$stx133259%_) - (let* ((_%g133263133277%_ - (lambda (_%g133264133273%_) + (lambda (_%$stx134546%_) + (let* ((_%g134550134564%_ + (lambda (_%g134551134560%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133264133273%_)))) - (_%g133262133318%_ - (lambda (_%g133264133281%_) + _%g134551134560%_)))) + (_%g134549134605%_ + (lambda (_%g134551134568%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133264133281%_)) - (let ((_%e133266133284%_ + (gx#stx-pair? _%g134551134568%_)) + (let ((_%e134553134571%_ (let () (declare (not safe)) - (gx#syntax-e _%g133264133281%_)))) - (let ((_%hd133267133288%_ + (gx#syntax-e _%g134551134568%_)))) + (let ((_%hd134554134575%_ (let () (declare (not safe)) - (##car _%e133266133284%_))) - (_%tl133268133291%_ + (##car _%e134553134571%_))) + (_%tl134555134578%_ (let () (declare (not safe)) - (##cdr _%e133266133284%_)))) + (##cdr _%e134553134571%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133268133291%_)) - (let ((_%e133269133294%_ + (gx#stx-pair? _%tl134555134578%_)) + (let ((_%e134556134581%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133268133291%_)))) - (let ((_%hd133270133298%_ + (gx#syntax-e _%tl134555134578%_)))) + (let ((_%hd134557134585%_ (let () (declare (not safe)) - (##car _%e133269133294%_))) - (_%tl133271133301%_ + (##car _%e134556134581%_))) + (_%tl134558134588%_ (let () (declare (not safe)) - (##cdr _%e133269133294%_)))) + (##cdr _%e134556134581%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133271133301%_)) - ((lambda (_%L133304%_) + (gx#stx-null? _%tl134558134588%_)) + ((lambda (_%L134591%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -613,60 +613,60 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)) - (cons '() (cons _%L133304%_ '()))) + (cons '() (cons _%L134591%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd133270133298%_) - (_%g133263133277%_ _%g133264133281%_)))) - (_%g133263133277%_ _%g133264133281%_)))) - (_%g133263133277%_ _%g133264133281%_))))) - (_%g133262133318%_ _%$stx133259%_)))) + _%hd134557134585%_) + (_%g134550134564%_ _%g134551134568%_)))) + (_%g134550134564%_ _%g134551134568%_)))) + (_%g134550134564%_ _%g134551134568%_))))) + (_%g134549134605%_ _%$stx134546%_)))) (define |gxc[:0:]#go!| - (lambda (_%$stx133322%_) - (let* ((_%g133326133340%_ - (lambda (_%g133327133336%_) + (lambda (_%$stx134609%_) + (let* ((_%g134613134627%_ + (lambda (_%g134614134623%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133327133336%_)))) - (_%g133325133381%_ - (lambda (_%g133327133344%_) + _%g134614134623%_)))) + (_%g134612134668%_ + (lambda (_%g134614134631%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133327133344%_)) - (let ((_%e133329133347%_ + (gx#stx-pair? _%g134614134631%_)) + (let ((_%e134616134634%_ (let () (declare (not safe)) - (gx#syntax-e _%g133327133344%_)))) - (let ((_%hd133330133351%_ + (gx#syntax-e _%g134614134631%_)))) + (let ((_%hd134617134638%_ (let () (declare (not safe)) - (##car _%e133329133347%_))) - (_%tl133331133354%_ + (##car _%e134616134634%_))) + (_%tl134618134641%_ (let () (declare (not safe)) - (##cdr _%e133329133347%_)))) + (##cdr _%e134616134634%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133331133354%_)) - (let ((_%e133332133357%_ + (gx#stx-pair? _%tl134618134641%_)) + (let ((_%e134619134644%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133331133354%_)))) - (let ((_%hd133333133361%_ + (gx#syntax-e _%tl134618134641%_)))) + (let ((_%hd134620134648%_ (let () (declare (not safe)) - (##car _%e133332133357%_))) - (_%tl133334133364%_ + (##car _%e134619134644%_))) + (_%tl134621134651%_ (let () (declare (not safe)) - (##cdr _%e133332133357%_)))) + (##cdr _%e134619134644%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133334133364%_)) - ((lambda (_%L133367%_) + (gx#stx-null? _%tl134621134651%_)) + ((lambda (_%L134654%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -680,11 +680,11 @@ 'lambda)) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L133367%_ '()))) + (cons _%L134654%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd133333133361%_) - (_%g133326133340%_ _%g133327133344%_)))) - (_%g133326133340%_ _%g133327133344%_)))) - (_%g133326133340%_ _%g133327133344%_))))) - (_%g133325133381%_ _%$stx133322%_)))))) + _%hd134620134648%_) + (_%g134613134627%_ _%g134614134631%_)))) + (_%g134613134627%_ _%g134614134631%_)))) + (_%g134613134627%_ _%g134614134631%_))))) + (_%g134612134668%_ _%$stx134609%_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~0.scm b/src/bootstrap/gerbil/compiler/compile~0.scm index f8dc0adb2..0c9c4a3e1 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 1713631267) + (define gerbil/compiler/compile::timestamp 1734357962) (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-e147469%_ - (lambda (_%id147471%_) + (letrec ((_%hash-e148756%_ + (lambda (_%id148758%_) (symbol-hash - (let () (declare (not safe)) (gx#stx-e _%id147471%_)))))) + (let () (declare (not safe)) (gx#stx-e _%id148758%_)))))) (let () (declare (not safe)) (make-hash-table__% @@ -57,31 +57,31 @@ absent-value absent-value gx#bound-identifier=? - _%hash-e147469%_ + _%hash-e148756%_ absent-value absent-value absent-value absent-value))))) (define gxc#::collect-bindings::t - (let ((__tmp148856 (list gxc#::void::t)) - (__tmp148855 (cons (cons 'final: '#t) '()))) + (let ((__tmp150143 (list gxc#::void::t)) + (__tmp150142 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-bindings::t '::collect-bindings - __tmp148856 + __tmp150143 '() - __tmp148855 + __tmp150142 '#f))) (define gxc#::collect-bindings? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-bindings::t))) (define gxc#make-::collect-bindings - (lambda _%$args147465%_ - (apply make-instance gxc#::collect-bindings::t _%$args147465%_))) + (lambda _%$args148752%_ + (apply make-instance gxc#::collect-bindings::t _%$args148752%_))) (define gxc#::collect-bindings-bind-methods! - (let ((__tmp148857 + (let ((__tmp150144 (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 __tmp148857))) + (__make-promise __tmp150144))) (define gxc#apply-collect-bindings - (lambda (_%stx147457%_) + (lambda (_%stx148744%_) (force gxc#::collect-bindings-bind-methods!) - (let* ((_%self147460%_ - (let ((__obj148831 + (let* ((_%self148747%_ + (let ((__obj150118 (let () (declare (not safe)) (##structure gxc#::collect-bindings::t)))) - __obj148831)) - (__tmp148858 + __obj150118)) + (__tmp150145 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147460%_ _%stx147457%_))))) + (gxc#compile-e__1 _%self148747%_ _%stx148744%_))))) (declare (not safe)) (__call-with-parameters - __tmp148858 + __tmp150145 gxc#current-compile-method - _%self147460%_)))) + _%self148747%_)))) (define gxc#::lift-modules::t - (let ((__tmp148860 (list gxc#::void::t)) - (__tmp148859 (cons (cons 'final: '#t) '()))) + (let ((__tmp150147 (list gxc#::void::t)) + (__tmp150146 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::lift-modules::t '::lift-modules - __tmp148860 + __tmp150147 '(modules) - __tmp148859 + __tmp150146 '#f))) (define gxc#::lift-modules? (let () (declare (not safe)) (__make-class-predicate gxc#::lift-modules::t))) (define gxc#make-::lift-modules - (lambda _%$args147454%_ - (apply make-instance gxc#::lift-modules::t _%$args147454%_))) + (lambda _%$args148741%_ + (apply make-instance gxc#::lift-modules::t _%$args148741%_))) (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 ((__tmp148861 + (let ((__tmp150148 (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 __tmp148861))) + (__make-promise __tmp150148))) (define gxc#apply-lift-modules__% - (lambda (_%@@keywords147428%_ _%modules147425147429%_ _%stx147431%_) - (let ((_%modules147434%_ - (if (eq? _%modules147425147429%_ absent-value) + (lambda (_%@@keywords148715%_ _%modules148712148716%_ _%stx148718%_) + (let ((_%modules148721%_ + (if (eq? _%modules148712148716%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'modules:)) - _%modules147425147429%_))) + _%modules148712148716%_))) (force gxc#::lift-modules-bind-methods!) - (let* ((_%self147436%_ - (let ((__obj148833 + (let* ((_%self148723%_ + (let ((__obj150120 (let () (declare (not safe)) (##structure gxc#::lift-modules::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148833 - _%modules147434%_ + __obj150120 + _%modules148721%_ '1 '#f '#f)) - __obj148833)) - (__tmp148862 + __obj150120)) + (__tmp150149 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147436%_ _%stx147431%_))))) + (gxc#compile-e__1 _%self148723%_ _%stx148718%_))))) (declare (not safe)) (__call-with-parameters - __tmp148862 + __tmp150149 gxc#current-compile-method - _%self147436%_))))) + _%self148723%_))))) (define gxc#apply-lift-modules__@ - (lambda (_%@@keywords147443%_ . _%args147444%_) + (lambda (_%@@keywords148730%_ . _%args148731%_) (apply gxc#apply-lift-modules__% - _%@@keywords147443%_ + _%@@keywords148730%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147443%_ + _%@@keywords148730%_ 'modules: absent-value)) - _%args147444%_))) + _%args148731%_))) (define gxc#apply-lift-modules - (lambda _%args147426147450%_ + (lambda _%args148713148737%_ (apply keyword-dispatch '#(modules:) gxc#apply-lift-modules__@ - _%args147426147450%_))) + _%args148713148737%_))) (define gxc#::find-runtime-code::t - (let ((__tmp148864 (list)) (__tmp148863 (cons (cons 'final: '#t) '()))) + (let ((__tmp150151 (list)) (__tmp150150 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-runtime-code::t '::find-runtime-code - __tmp148864 + __tmp150151 '() - __tmp148863 + __tmp150150 '#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 _%$args147421%_ - (apply make-instance gxc#::find-runtime-code::t _%$args147421%_))) + (lambda _%$args148708%_ + (apply make-instance gxc#::find-runtime-code::t _%$args148708%_))) (define gxc#::find-runtime-code-bind-methods! - (let ((__tmp148865 + (let ((__tmp150152 (lambda () (let () (declare (not safe)) @@ -459,46 +459,46 @@ (declare (not safe)) (__seal-class! gxc#::find-runtime-code::t))))) (declare (not safe)) - (__make-promise __tmp148865))) + (__make-promise __tmp150152))) (define gxc#apply-find-runtime-code - (lambda (_%stx147413%_) + (lambda (_%stx148700%_) (force gxc#::find-runtime-code-bind-methods!) - (let* ((_%self147416%_ - (let ((__obj148835 + (let* ((_%self148703%_ + (let ((__obj150122 (let () (declare (not safe)) (##structure gxc#::find-runtime-code::t)))) - __obj148835)) - (__tmp148866 + __obj150122)) + (__tmp150153 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147416%_ _%stx147413%_))))) + (gxc#compile-e__1 _%self148703%_ _%stx148700%_))))) (declare (not safe)) (__call-with-parameters - __tmp148866 + __tmp150153 gxc#current-compile-method - _%self147416%_)))) + _%self148703%_)))) (define gxc#::find-lambda-expression::t - (let ((__tmp148868 (list gxc#::false::t)) - (__tmp148867 (cons (cons 'final: '#t) '()))) + (let ((__tmp150155 (list gxc#::false::t)) + (__tmp150154 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-lambda-expression::t '::find-lambda-expression - __tmp148868 + __tmp150155 '() - __tmp148867 + __tmp150154 '#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 _%$args147410%_ - (apply make-instance gxc#::find-lambda-expression::t _%$args147410%_))) + (lambda _%$args148697%_ + (apply make-instance gxc#::find-lambda-expression::t _%$args148697%_))) (define gxc#::find-lambda-expression-bind-methods! - (let ((__tmp148869 + (let ((__tmp150156 (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 __tmp148869))) + (__make-promise __tmp150156))) (define gxc#apply-find-lambda-expression - (lambda (_%stx147402%_) + (lambda (_%stx148689%_) (force gxc#::find-lambda-expression-bind-methods!) - (let* ((_%self147405%_ - (let ((__obj148837 + (let* ((_%self148692%_ + (let ((__obj150124 (let () (declare (not safe)) (##structure gxc#::find-lambda-expression::t)))) - __obj148837)) - (__tmp148870 + __obj150124)) + (__tmp150157 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147405%_ _%stx147402%_))))) + (gxc#compile-e__1 _%self148692%_ _%stx148689%_))))) (declare (not safe)) (__call-with-parameters - __tmp148870 + __tmp150157 gxc#current-compile-method - _%self147405%_)))) + _%self148692%_)))) (define gxc#::count-values::t - (let ((__tmp148872 (list gxc#::false-expression::t)) - (__tmp148871 (cons (cons 'final: '#t) '()))) + (let ((__tmp150159 (list gxc#::false-expression::t)) + (__tmp150158 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::count-values::t '::count-values - __tmp148872 + __tmp150159 '() - __tmp148871 + __tmp150158 '#f))) (define gxc#::count-values? (let () (declare (not safe)) (__make-class-predicate gxc#::count-values::t))) (define gxc#make-::count-values - (lambda _%$args147399%_ - (apply make-instance gxc#::count-values::t _%$args147399%_))) + (lambda _%$args148686%_ + (apply make-instance gxc#::count-values::t _%$args148686%_))) (define gxc#::count-values-bind-methods! - (let ((__tmp148873 + (let ((__tmp150160 (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 __tmp148873))) + (__make-promise __tmp150160))) (define gxc#apply-count-values - (lambda (_%stx147391%_) + (lambda (_%stx148678%_) (force gxc#::count-values-bind-methods!) - (let* ((_%self147394%_ - (let ((__obj148839 + (let* ((_%self148681%_ + (let ((__obj150126 (let () (declare (not safe)) (##structure gxc#::count-values::t)))) - __obj148839)) - (__tmp148874 + __obj150126)) + (__tmp150161 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147394%_ _%stx147391%_))))) + (gxc#compile-e__1 _%self148681%_ _%stx148678%_))))) (declare (not safe)) (__call-with-parameters - __tmp148874 + __tmp150161 gxc#current-compile-method - _%self147394%_)))) + _%self148681%_)))) (define gxc#::generate-runtime-empty::t - (let ((__tmp148875 (list))) + (let ((__tmp150162 (list))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-empty::t '::generate-runtime-empty - __tmp148875 + __tmp150162 '() '() '#f))) @@ -694,10 +694,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime-empty::t))) (define gxc#make-::generate-runtime-empty - (lambda _%$args147388%_ - (apply make-instance gxc#::generate-runtime-empty::t _%$args147388%_))) + (lambda _%$args148675%_ + (apply make-instance gxc#::generate-runtime-empty::t _%$args148675%_))) (define gxc#::generate-runtime-empty-bind-methods! - (let ((__tmp148876 + (let ((__tmp150163 (lambda () (let () (declare (not safe)) @@ -892,27 +892,27 @@ '%#struct-unchecked-set! gxc#generate-runtime-empty))))) (declare (not safe)) - (__make-promise __tmp148876))) + (__make-promise __tmp150163))) (define gxc#::generate-loader::t - (let ((__tmp148878 (list gxc#::generate-runtime-empty::t)) - (__tmp148877 (cons (cons 'final: '#t) '()))) + (let ((__tmp150165 (list gxc#::generate-runtime-empty::t)) + (__tmp150164 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-loader::t '::generate-loader - __tmp148878 + __tmp150165 '() - __tmp148877 + __tmp150164 '#f))) (define gxc#::generate-loader? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-loader::t))) (define gxc#make-::generate-loader - (lambda _%$args147384%_ - (apply make-instance gxc#::generate-loader::t _%$args147384%_))) + (lambda _%$args148671%_ + (apply make-instance gxc#::generate-loader::t _%$args148671%_))) (define gxc#::generate-loader-bind-methods! - (let ((__tmp148879 + (let ((__tmp150166 (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 __tmp148879))) + (__make-promise __tmp150166))) (define gxc#apply-generate-loader - (lambda (_%stx147376%_) + (lambda (_%stx148663%_) (force gxc#::generate-loader-bind-methods!) - (let* ((_%self147379%_ - (let ((__obj148842 + (let* ((_%self148666%_ + (let ((__obj150129 (let () (declare (not safe)) (##structure gxc#::generate-loader::t)))) - __obj148842)) - (__tmp148880 + __obj150129)) + (__tmp150167 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147379%_ _%stx147376%_))))) + (gxc#compile-e__1 _%self148666%_ _%stx148663%_))))) (declare (not safe)) (__call-with-parameters - __tmp148880 + __tmp150167 gxc#current-compile-method - _%self147379%_)))) + _%self148666%_)))) (define gxc#::generate-runtime::t - (let ((__tmp148881 (list gxc#::generate-runtime-empty::t))) + (let ((__tmp150168 (list gxc#::generate-runtime-empty::t))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime::t '::generate-runtime - __tmp148881 + __tmp150168 '() '() '#f))) @@ -966,10 +966,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime::t))) (define gxc#make-::generate-runtime - (lambda _%$args147373%_ - (apply make-instance gxc#::generate-runtime::t _%$args147373%_))) + (lambda _%$args148660%_ + (apply make-instance gxc#::generate-runtime::t _%$args148660%_))) (define gxc#::generate-runtime-bind-methods! - (let ((__tmp148882 + (let ((__tmp150169 (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 __tmp148882))) + (__make-promise __tmp150169))) (define gxc#apply-generate-runtime - (lambda (_%stx147365%_) + (lambda (_%stx148652%_) (force gxc#::generate-runtime-bind-methods!) - (let* ((_%self147368%_ - (let ((__obj148844 + (let* ((_%self148655%_ + (let ((__obj150131 (let () (declare (not safe)) (##structure gxc#::generate-runtime::t)))) - __obj148844)) - (__tmp148883 + __obj150131)) + (__tmp150170 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147368%_ _%stx147365%_))))) + (gxc#compile-e__1 _%self148655%_ _%stx148652%_))))) (declare (not safe)) (__call-with-parameters - __tmp148883 + __tmp150170 gxc#current-compile-method - _%self147368%_)))) + _%self148655%_)))) (define gxc#::generate-runtime-phi::t - (let ((__tmp148885 (list gxc#::generate-runtime::t)) - (__tmp148884 (cons (cons 'final: '#t) '()))) + (let ((__tmp150172 (list gxc#::generate-runtime::t)) + (__tmp150171 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-phi::t '::generate-runtime-phi - __tmp148885 + __tmp150172 '() - __tmp148884 + __tmp150171 '#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 _%$args147362%_ - (apply make-instance gxc#::generate-runtime-phi::t _%$args147362%_))) + (lambda _%$args148649%_ + (apply make-instance gxc#::generate-runtime-phi::t _%$args148649%_))) (define gxc#::generate-runtime-phi-bind-methods! - (let ((__tmp148886 + (let ((__tmp150173 (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 __tmp148886))) + (__make-promise __tmp150173))) (define gxc#apply-generate-runtime-phi - (lambda (_%stx147354%_) + (lambda (_%stx148641%_) (force gxc#::generate-runtime-phi-bind-methods!) - (let* ((_%self147357%_ - (let ((__obj148846 + (let* ((_%self148644%_ + (let ((__obj150133 (let () (declare (not safe)) (##structure gxc#::generate-runtime-phi::t)))) - __obj148846)) - (__tmp148887 + __obj150133)) + (__tmp150174 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147357%_ _%stx147354%_))))) + (gxc#compile-e__1 _%self148644%_ _%stx148641%_))))) (declare (not safe)) (__call-with-parameters - __tmp148887 + __tmp150174 gxc#current-compile-method - _%self147357%_)))) + _%self148644%_)))) (define gxc#::collect-expression-refs::t - (let ((__tmp148888 (list))) + (let ((__tmp150175 (list))) (declare (not safe)) (__make-class-type 'gxc#::collect-expression-refs::t '::collect-expression-refs - __tmp148888 + __tmp150175 '(table) '() '#f))) @@ -1210,10 +1210,10 @@ (declare (not safe)) (__make-class-predicate gxc#::collect-expression-refs::t))) (define gxc#make-::collect-expression-refs - (lambda _%$args147351%_ + (lambda _%$args148638%_ (apply make-instance gxc#::collect-expression-refs::t - _%$args147351%_))) + _%$args148638%_))) (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 ((__tmp148889 + (let ((__tmp150176 (lambda () (let () (declare (not safe)) @@ -1370,18 +1370,18 @@ '%#struct-unchecked-set! gxc#apply-operands))))) (declare (not safe)) - (__make-promise __tmp148889))) + (__make-promise __tmp150176))) (define gxc#apply-collect-expression-refs__% - (lambda (_%@@keywords147325%_ _%table147322147326%_ _%stx147328%_) - (let ((_%table147331%_ - (if (eq? _%table147322147326%_ absent-value) + (lambda (_%@@keywords148612%_ _%table148609148613%_ _%stx148615%_) + (let ((_%table148618%_ + (if (eq? _%table148609148613%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table147322147326%_))) + _%table148609148613%_))) (force gxc#::collect-expression-refs-bind-methods!) - (let* ((_%self147333%_ - (let ((__obj148848 + (let* ((_%self148620%_ + (let ((__obj150135 (let () (declare (not safe)) (##structure @@ -1390,57 +1390,57 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148848 - _%table147331%_ + __obj150135 + _%table148618%_ '1 '#f '#f)) - __obj148848)) - (__tmp148890 + __obj150135)) + (__tmp150177 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147333%_ _%stx147328%_))))) + (gxc#compile-e__1 _%self148620%_ _%stx148615%_))))) (declare (not safe)) (__call-with-parameters - __tmp148890 + __tmp150177 gxc#current-compile-method - _%self147333%_))))) + _%self148620%_))))) (define gxc#apply-collect-expression-refs__@ - (lambda (_%@@keywords147340%_ . _%args147341%_) + (lambda (_%@@keywords148627%_ . _%args148628%_) (apply gxc#apply-collect-expression-refs__% - _%@@keywords147340%_ + _%@@keywords148627%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147340%_ + _%@@keywords148627%_ 'table: absent-value)) - _%args147341%_))) + _%args148628%_))) (define gxc#apply-collect-expression-refs - (lambda _%args147323147347%_ + (lambda _%args148610148634%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-expression-refs__@ - _%args147323147347%_))) + _%args148610148634%_))) (define gxc#::generate-meta::t - (let ((__tmp148892 (list gxc#::void-expression::t)) - (__tmp148891 (cons (cons 'final: '#t) '()))) + (let ((__tmp150179 (list gxc#::void-expression::t)) + (__tmp150178 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-meta::t '::generate-meta - __tmp148892 + __tmp150179 '(state) - __tmp148891 + __tmp150178 '#f))) (define gxc#::generate-meta? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-meta::t))) (define gxc#make-::generate-meta - (lambda _%$args147318%_ - (apply make-instance gxc#::generate-meta::t _%$args147318%_))) + (lambda _%$args148605%_ + (apply make-instance gxc#::generate-meta::t _%$args148605%_))) (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 ((__tmp148893 + (let ((__tmp150180 (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 __tmp148893))) + (__make-promise __tmp150180))) (define gxc#apply-generate-meta__% - (lambda (_%@@keywords147292%_ _%state147289147293%_ _%stx147295%_) - (let ((_%state147298%_ - (if (eq? _%state147289147293%_ absent-value) + (lambda (_%@@keywords148579%_ _%state148576148580%_ _%stx148582%_) + (let ((_%state148585%_ + (if (eq? _%state148576148580%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state147289147293%_))) + _%state148576148580%_))) (force gxc#::generate-meta-bind-methods!) - (let* ((_%self147300%_ - (let ((__obj148850 + (let* ((_%self148587%_ + (let ((__obj150137 (let () (declare (not safe)) (##structure gxc#::generate-meta::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148850 - _%state147298%_ + __obj150137 + _%state148585%_ '1 '#f '#f)) - __obj148850)) - (__tmp148894 + __obj150137)) + (__tmp150181 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147300%_ _%stx147295%_))))) + (gxc#compile-e__1 _%self148587%_ _%stx148582%_))))) (declare (not safe)) (__call-with-parameters - __tmp148894 + __tmp150181 gxc#current-compile-method - _%self147300%_))))) + _%self148587%_))))) (define gxc#apply-generate-meta__@ - (lambda (_%@@keywords147307%_ . _%args147308%_) + (lambda (_%@@keywords148594%_ . _%args148595%_) (apply gxc#apply-generate-meta__% - _%@@keywords147307%_ + _%@@keywords148594%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147307%_ + _%@@keywords148594%_ 'state: absent-value)) - _%args147308%_))) + _%args148595%_))) (define gxc#apply-generate-meta - (lambda _%args147290147314%_ + (lambda _%args148577148601%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta__@ - _%args147290147314%_))) + _%args148577148601%_))) (define gxc#::generate-meta-phi::t - (let ((__tmp148896 (list)) (__tmp148895 (cons (cons 'final: '#t) '()))) + (let ((__tmp150183 (list)) (__tmp150182 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-meta-phi::t '::generate-meta-phi - __tmp148896 + __tmp150183 '(state) - __tmp148895 + __tmp150182 '#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 _%$args147285%_ - (apply make-instance gxc#::generate-meta-phi::t _%$args147285%_))) + (lambda _%$args148572%_ + (apply make-instance gxc#::generate-meta-phi::t _%$args148572%_))) (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 ((__tmp148897 + (let ((__tmp150184 (lambda () (let () (declare (not safe)) @@ -1794,341 +1794,341 @@ (declare (not safe)) (__seal-class! gxc#::generate-meta-phi::t))))) (declare (not safe)) - (__make-promise __tmp148897))) + (__make-promise __tmp150184))) (define gxc#apply-generate-meta-phi__% - (lambda (_%@@keywords147259%_ _%state147256147260%_ _%stx147262%_) - (let ((_%state147265%_ - (if (eq? _%state147256147260%_ absent-value) + (lambda (_%@@keywords148546%_ _%state148543148547%_ _%stx148549%_) + (let ((_%state148552%_ + (if (eq? _%state148543148547%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state147256147260%_))) + _%state148543148547%_))) (force gxc#::generate-meta-phi-bind-methods!) - (let* ((_%self147267%_ - (let ((__obj148852 + (let* ((_%self148554%_ + (let ((__obj150139 (let () (declare (not safe)) (##structure gxc#::generate-meta-phi::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148852 - _%state147265%_ + __obj150139 + _%state148552%_ '1 '#f '#f)) - __obj148852)) - (__tmp148898 + __obj150139)) + (__tmp150185 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147267%_ _%stx147262%_))))) + (gxc#compile-e__1 _%self148554%_ _%stx148549%_))))) (declare (not safe)) (__call-with-parameters - __tmp148898 + __tmp150185 gxc#current-compile-method - _%self147267%_))))) + _%self148554%_))))) (define gxc#apply-generate-meta-phi__@ - (lambda (_%@@keywords147274%_ . _%args147275%_) + (lambda (_%@@keywords148561%_ . _%args148562%_) (apply gxc#apply-generate-meta-phi__% - _%@@keywords147274%_ + _%@@keywords148561%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147274%_ + _%@@keywords148561%_ 'state: absent-value)) - _%args147275%_))) + _%args148562%_))) (define gxc#apply-generate-meta-phi - (lambda _%args147257147281%_ + (lambda _%args148544148568%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta-phi__@ - _%args147257147281%_))) + _%args148544148568%_))) (define gxc#collect-bindings-define-values% - (lambda (_%self147185%_ _%stx147186%_) - (let* ((_%g147188147205%_ - (lambda (_%g147189147202%_) + (lambda (_%self148472%_ _%stx148473%_) + (let* ((_%g148475148492%_ + (lambda (_%g148476148489%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147189147202%_)))) - (_%g147187147252%_ - (lambda (_%g147189147208%_) + _%g148476148489%_)))) + (_%g148474148539%_ + (lambda (_%g148476148495%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147189147208%_)) - (let ((_%e147192147210%_ + (gx#stx-pair? _%g148476148495%_)) + (let ((_%e148479148497%_ (let () (declare (not safe)) - (gx#stx-e _%g147189147208%_)))) - (let ((_%hd147193147213%_ + (gx#stx-e _%g148476148495%_)))) + (let ((_%hd148480148500%_ (let () (declare (not safe)) - (##car _%e147192147210%_))) - (_%tl147194147215%_ + (##car _%e148479148497%_))) + (_%tl148481148502%_ (let () (declare (not safe)) - (##cdr _%e147192147210%_)))) + (##cdr _%e148479148497%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147194147215%_)) - (let ((_%e147195147218%_ + (gx#stx-pair? _%tl148481148502%_)) + (let ((_%e148482148505%_ (let () (declare (not safe)) - (gx#stx-e _%tl147194147215%_)))) - (let ((_%hd147196147221%_ + (gx#stx-e _%tl148481148502%_)))) + (let ((_%hd148483148508%_ (let () (declare (not safe)) - (##car _%e147195147218%_))) - (_%tl147197147223%_ + (##car _%e148482148505%_))) + (_%tl148484148510%_ (let () (declare (not safe)) - (##cdr _%e147195147218%_)))) + (##cdr _%e148482148505%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147197147223%_)) - (let ((_%e147198147226%_ + (gx#stx-pair? _%tl148484148510%_)) + (let ((_%e148485148513%_ (let () (declare (not safe)) - (gx#stx-e _%tl147197147223%_)))) - (let ((_%hd147199147229%_ + (gx#stx-e _%tl148484148510%_)))) + (let ((_%hd148486148516%_ (let () (declare (not safe)) - (##car _%e147198147226%_))) - (_%tl147200147231%_ + (##car _%e148485148513%_))) + (_%tl148487148518%_ (let () (declare (not safe)) - (##cdr _%e147198147226%_)))) + (##cdr _%e148485148513%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl147200147231%_)) - ((lambda (_%L147234%_ - _%L147235%_) - (let ((__tmp148899 - (lambda (_%bind147250%_) + _%tl148487148518%_)) + ((lambda (_%L148521%_ + _%L148522%_) + (let ((__tmp150186 + (lambda (_%bind148537%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#identifier? _%bind147250%_)) - (gxc#add-module-binding! _%bind147250%_ '#f) + (gx#identifier? _%bind148537%_)) + (gxc#add-module-binding! _%bind148537%_ '#f) '#!void)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#stx-for-each1 - __tmp148899 - _%L147235%_))) - _%hd147199147229%_ - _%hd147196147221%_) - (_%g147188147205%_ - _%g147189147208%_)))) - (_%g147188147205%_ _%g147189147208%_)))) - (_%g147188147205%_ _%g147189147208%_)))) - (_%g147188147205%_ _%g147189147208%_))))) - (_%g147187147252%_ _%stx147186%_)))) + __tmp150186 + _%L148522%_))) + _%hd148486148516%_ + _%hd148483148508%_) + (_%g148475148492%_ + _%g148476148495%_)))) + (_%g148475148492%_ _%g148476148495%_)))) + (_%g148475148492%_ _%g148476148495%_)))) + (_%g148475148492%_ _%g148476148495%_))))) + (_%g148474148539%_ _%stx148473%_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_%self147117%_ _%stx147118%_) - (let* ((_%g147120147137%_ - (lambda (_%g147121147134%_) + (lambda (_%self148404%_ _%stx148405%_) + (let* ((_%g148407148424%_ + (lambda (_%g148408148421%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147121147134%_)))) - (_%g147119147182%_ - (lambda (_%g147121147140%_) + _%g148408148421%_)))) + (_%g148406148469%_ + (lambda (_%g148408148427%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147121147140%_)) - (let ((_%e147124147142%_ + (gx#stx-pair? _%g148408148427%_)) + (let ((_%e148411148429%_ (let () (declare (not safe)) - (gx#stx-e _%g147121147140%_)))) - (let ((_%hd147125147145%_ + (gx#stx-e _%g148408148427%_)))) + (let ((_%hd148412148432%_ (let () (declare (not safe)) - (##car _%e147124147142%_))) - (_%tl147126147147%_ + (##car _%e148411148429%_))) + (_%tl148413148434%_ (let () (declare (not safe)) - (##cdr _%e147124147142%_)))) + (##cdr _%e148411148429%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147126147147%_)) - (let ((_%e147127147150%_ + (gx#stx-pair? _%tl148413148434%_)) + (let ((_%e148414148437%_ (let () (declare (not safe)) - (gx#stx-e _%tl147126147147%_)))) - (let ((_%hd147128147153%_ + (gx#stx-e _%tl148413148434%_)))) + (let ((_%hd148415148440%_ (let () (declare (not safe)) - (##car _%e147127147150%_))) - (_%tl147129147155%_ + (##car _%e148414148437%_))) + (_%tl148416148442%_ (let () (declare (not safe)) - (##cdr _%e147127147150%_)))) + (##cdr _%e148414148437%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147129147155%_)) - (let ((_%e147130147158%_ + (gx#stx-pair? _%tl148416148442%_)) + (let ((_%e148417148445%_ (let () (declare (not safe)) - (gx#stx-e _%tl147129147155%_)))) - (let ((_%hd147131147161%_ + (gx#stx-e _%tl148416148442%_)))) + (let ((_%hd148418148448%_ (let () (declare (not safe)) - (##car _%e147130147158%_))) - (_%tl147132147163%_ + (##car _%e148417148445%_))) + (_%tl148419148450%_ (let () (declare (not safe)) - (##cdr _%e147130147158%_)))) + (##cdr _%e148417148445%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl147132147163%_)) - ((lambda (_%L147166%_ - _%L147167%_) + _%tl148419148450%_)) + ((lambda (_%L148453%_ + _%L148454%_) (gxc#add-module-binding! - _%L147167%_ + _%L148454%_ '#t)) - _%hd147131147161%_ - _%hd147128147153%_) - (_%g147120147137%_ - _%g147121147140%_)))) - (_%g147120147137%_ _%g147121147140%_)))) - (_%g147120147137%_ _%g147121147140%_)))) - (_%g147120147137%_ _%g147121147140%_))))) - (_%g147119147182%_ _%stx147118%_)))) + _%hd148418148448%_ + _%hd148415148440%_) + (_%g148407148424%_ + _%g148408148427%_)))) + (_%g148407148424%_ _%g148408148427%_)))) + (_%g148407148424%_ _%g148408148427%_)))) + (_%g148407148424%_ _%g148408148427%_))))) + (_%g148406148469%_ _%stx148405%_)))) (define gxc#lift-modules-module% - (lambda (_%self147059%_ _%stx147060%_) - (let* ((_%g147062147076%_ - (lambda (_%g147063147073%_) + (lambda (_%self148346%_ _%stx148347%_) + (let* ((_%g148349148363%_ + (lambda (_%g148350148360%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147063147073%_)))) - (_%g147061147114%_ - (lambda (_%g147063147079%_) + _%g148350148360%_)))) + (_%g148348148401%_ + (lambda (_%g148350148366%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147063147079%_)) - (let ((_%e147066147081%_ + (gx#stx-pair? _%g148350148366%_)) + (let ((_%e148353148368%_ (let () (declare (not safe)) - (gx#stx-e _%g147063147079%_)))) - (let ((_%hd147067147084%_ + (gx#stx-e _%g148350148366%_)))) + (let ((_%hd148354148371%_ (let () (declare (not safe)) - (##car _%e147066147081%_))) - (_%tl147068147086%_ + (##car _%e148353148368%_))) + (_%tl148355148373%_ (let () (declare (not safe)) - (##cdr _%e147066147081%_)))) + (##cdr _%e148353148368%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147068147086%_)) - (let ((_%e147069147089%_ + (gx#stx-pair? _%tl148355148373%_)) + (let ((_%e148356148376%_ (let () (declare (not safe)) - (gx#stx-e _%tl147068147086%_)))) - (let ((_%hd147070147092%_ + (gx#stx-e _%tl148355148373%_)))) + (let ((_%hd148357148379%_ (let () (declare (not safe)) - (##car _%e147069147089%_))) - (_%tl147071147094%_ + (##car _%e148356148376%_))) + (_%tl148358148381%_ (let () (declare (not safe)) - (##cdr _%e147069147089%_)))) - ((lambda (_%L147097%_ _%L147098%_) - (let ((_%ctx147111%_ + (##cdr _%e148356148376%_)))) + ((lambda (_%L148384%_ _%L148385%_) + (let ((_%ctx148398%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L147098%_)))) + _%L148385%_)))) (set-box! (let () (declare (not safe)) (slot-ref__0 - _%self147059%_ + _%self148346%_ 'modules)) - (cons _%ctx147111%_ + (cons _%ctx148398%_ (unbox (let () (declare (not safe)) (slot-ref__0 - _%self147059%_ + _%self148346%_ 'modules))))) - (let ((__tmp148900 + (let ((__tmp150187 (lambda () - (let ((__tmp148901 + (let ((__tmp150188 (##structure-ref - _%ctx147111%_ + _%ctx148398%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self147059%_ - __tmp148901))))) + _%self148346%_ + __tmp150188))))) (declare (not safe)) (__call-with-parameters - __tmp148900 + __tmp150187 gx#current-expander-context - _%ctx147111%_)))) - _%tl147071147094%_ - _%hd147070147092%_))) - (_%g147062147076%_ _%g147063147079%_)))) - (_%g147062147076%_ _%g147063147079%_))))) - (_%g147061147114%_ _%stx147060%_)))) + _%ctx148398%_)))) + _%tl148358148381%_ + _%hd148357148379%_))) + (_%g148349148363%_ _%g148350148366%_)))) + (_%g148349148363%_ _%g148350148366%_))))) + (_%g148348148401%_ _%stx148347%_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (let ((_%decls147012147014%_ + (let ((_%decls148299148301%_ (let () (declare (not safe)) (gxc#current-compile-decls)))) - (if _%decls147012147014%_ - (let ((_%decls147017%_ _%decls147012147014%_)) - (let _%lp147019%_ ((_%rest147021%_ _%decls147017%_)) - (let* ((_%rest147022147030%_ _%rest147021%_) - (_%else147024147038%_ (lambda () '#f)) - (_%K147026147047%_ - (lambda (_%decls147041%_ _%decl147042%_) - (if (equal? _%decl147042%_ '(not safe)) + (if _%decls148299148301%_ + (let ((_%decls148304%_ _%decls148299148301%_)) + (let _%lp148306%_ ((_%rest148308%_ _%decls148304%_)) + (let* ((_%rest148309148317%_ _%rest148308%_) + (_%else148311148325%_ (lambda () '#f)) + (_%K148313148334%_ + (lambda (_%decls148328%_ _%decl148329%_) + (if (equal? _%decl148329%_ '(not safe)) '#t - (if (equal? _%decl147042%_ '(safe)) + (if (equal? _%decl148329%_ '(safe)) '#f - (_%lp147019%_ _%decls147041%_)))))) - (if (pair? _%rest147022147030%_) - (let ((_%hd147027147050%_ + (_%lp148306%_ _%decls148328%_)))))) + (if (pair? _%rest148309148317%_) + (let ((_%hd148314148337%_ (let () (declare (not safe)) - (##car _%rest147022147030%_))) - (_%tl147028147052%_ + (##car _%rest148309148317%_))) + (_%tl148315148339%_ (let () (declare (not safe)) - (##cdr _%rest147022147030%_)))) - (let* ((_%decl147055%_ _%hd147027147050%_) - (_%decls147057%_ _%tl147028147052%_)) - (_%K147026147047%_ - _%decls147057%_ - _%decl147055%_))) - (_%else147024147038%_))))) + (##cdr _%rest148309148317%_)))) + (let* ((_%decl148342%_ _%hd148314148337%_) + (_%decls148344%_ _%tl148315148339%_)) + (_%K148313148334%_ + _%decls148344%_ + _%decl148342%_))) + (_%else148311148325%_))))) '#f)))) (define gxc#add-module-binding! - (lambda (_%id147006%_ _%syntax?147007%_) - (let ((_%eid147009%_ + (lambda (_%id148293%_ _%syntax?148294%_) + (let ((_%eid148296%_ (##structure-ref (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id147006%_)) + (gx#resolve-identifier__0 _%id148293%_)) '1 gx#binding::t '#f)) - (_%ht147010%_ + (_%ht148297%_ (##structure-ref (let () (declare (not safe)) @@ -2136,778 +2136,778 @@ '2 gxc#symbol-table::t '#f))) - (if (let () (declare (not safe)) (interned-symbol? _%eid147009%_)) + (if (let () (declare (not safe)) (interned-symbol? _%eid148296%_)) '#!void - (let ((__tmp148902 - (let ((__tmp148903 + (let ((__tmp150189 + (let ((__tmp150190 (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%eid147009%_)))) + _%eid148296%_)))) (declare (not safe)) - (gx#make-binding-id__1 __tmp148903 _%syntax?147007%_)))) + (gx#make-binding-id__1 __tmp150190 _%syntax?148294%_)))) (declare (not safe)) - (hash-put! _%ht147010%_ _%eid147009%_ __tmp148902)))))) + (hash-put! _%ht148297%_ _%eid148296%_ __tmp150189)))))) (define gxc#generate-runtime-identifier - (lambda (_%id147004%_) + (lambda (_%id148291%_) (gxc#generate-runtime-identifier-key - (let () (declare (not safe)) (gx#core-identifier-key _%id147004%_))))) + (let () (declare (not safe)) (gx#core-identifier-key _%id148291%_))))) (define gxc#generate-runtime-identifier-key - (lambda (_%key146959%_) - (if (let () (declare (not safe)) (interned-symbol? _%key146959%_)) - _%key146959%_ - (if (uninterned-symbol? _%key146959%_) + (lambda (_%key148246%_) + (if (let () (declare (not safe)) (interned-symbol? _%key148246%_)) + _%key148246%_ + (if (uninterned-symbol? _%key148246%_) (let () (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 _%key146959%_)) - (let* ((_%key146963146970%_ _%key146959%_) - (_%E146965146974%_ + (gxc#generate-runtime-gensym-reference__0 _%key148246%_)) + (let* ((_%key148250148257%_ _%key148246%_) + (_%E148252148261%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%key146963146970%_ + _%key148250148257%_ '([eid . mark]))) '#!void)) - (_%K146966146992%_ - (lambda (_%mark146977%_ _%eid146978%_) - (let ((_%$e146980%_ + (_%K148253148279%_ + (lambda (_%mark148264%_ _%eid148265%_) + (let ((_%$e148267%_ (##structure-ref - _%mark146977%_ + _%mark148264%_ '1 gx#expander-mark::t '#f))) - (if _%$e146980%_ - ((lambda (_%ht146983%_) - (let ((_%$e146985%_ + (if _%$e148267%_ + ((lambda (_%ht148270%_) + (let ((_%$e148272%_ (let () (declare (not safe)) (hash-get - _%ht146983%_ - _%eid146978%_)))) - (if _%$e146985%_ - ((lambda (_%id146988%_) + _%ht148270%_ + _%eid148265%_)))) + (if _%$e148272%_ + ((lambda (_%id148275%_) (if (let () (declare (not safe)) (interned-symbol? - _%id146988%_)) - _%id146988%_ + _%id148275%_)) + _%id148275%_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%id146988%_)))) - _%$e146985%_) + _%id148275%_)))) + _%$e148272%_) (gxc#generate-runtime-identifier-key - _%eid146978%_)))) - _%$e146980%_) + _%eid148265%_)))) + _%$e148267%_) (gxc#generate-runtime-identifier-key - _%eid146978%_)))))) - (if (pair? _%key146963146970%_) - (let ((_%hd146967146995%_ + _%eid148265%_)))))) + (if (pair? _%key148250148257%_) + (let ((_%hd148254148282%_ (let () (declare (not safe)) - (##car _%key146963146970%_))) - (_%tl146968146997%_ + (##car _%key148250148257%_))) + (_%tl148255148284%_ (let () (declare (not safe)) - (##cdr _%key146963146970%_)))) - (let* ((_%eid147000%_ _%hd146967146995%_) - (_%mark147002%_ _%tl146968146997%_)) - (_%K146966146992%_ _%mark147002%_ _%eid147000%_))) - (_%E146965146974%_))))))) + (##cdr _%key148250148257%_)))) + (let* ((_%eid148287%_ _%hd148254148282%_) + (_%mark148289%_ _%tl148255148284%_)) + (_%K148253148279%_ _%mark148289%_ _%eid148287%_))) + (_%E148252148261%_))))))) (define gxc#generate-runtime-empty - (lambda (_%self146956%_ _%stx146957%_) '(begin))) + (lambda (_%self148243%_ _%stx148244%_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_%self146803%_ _%stx146804%_) - (letrec ((_%simplify146806%_ - (lambda (_%body146854%_) - (let _%lp146856%_ ((_%rest146858%_ _%body146854%_) - (_%r146859%_ '())) - (let* ((_%rest146860146868%_ _%rest146858%_) - (_%else146862146876%_ - (lambda () (reverse _%r146859%_))) - (_%K146864146944%_ - (lambda (_%rest146879%_ _%hd146880%_) - (let* ((_%hd146881146897%_ _%hd146880%_) - (_%else146885146905%_ + (lambda (_%self148090%_ _%stx148091%_) + (letrec ((_%simplify148093%_ + (lambda (_%body148141%_) + (let _%lp148143%_ ((_%rest148145%_ _%body148141%_) + (_%r148146%_ '())) + (let* ((_%rest148147148155%_ _%rest148145%_) + (_%else148149148163%_ + (lambda () (reverse _%r148146%_))) + (_%K148151148231%_ + (lambda (_%rest148166%_ _%hd148167%_) + (let* ((_%hd148168148184%_ _%hd148167%_) + (_%else148172148192%_ (lambda () - (_%lp146856%_ - _%rest146879%_ - (cons _%hd146880%_ _%r146859%_))))) - (let ((_%K146893146934%_ - (lambda (_%exprs146932%_) - (_%lp146856%_ + (_%lp148143%_ + _%rest148166%_ + (cons _%hd148167%_ _%r148146%_))))) + (let ((_%K148180148221%_ + (lambda (_%exprs148219%_) + (_%lp148143%_ (let () (declare (not safe)) (__foldr1 cons - _%rest146879%_ - _%exprs146932%_)) - _%r146859%_))) - (_%K146888146918%_ + _%rest148166%_ + _%exprs148219%_)) + _%r148146%_))) + (_%K148175148205%_ (lambda () - (if (null? _%rest146879%_) - (_%lp146856%_ - _%rest146879%_ - (cons _%hd146880%_ - _%r146859%_)) - (_%lp146856%_ - _%rest146879%_ - _%r146859%_)))) - (_%K146887146910%_ + (if (null? _%rest148166%_) + (_%lp148143%_ + _%rest148166%_ + (cons _%hd148167%_ + _%r148146%_)) + (_%lp148143%_ + _%rest148166%_ + _%r148146%_)))) + (_%K148174148197%_ (lambda () - (if (null? _%rest146879%_) - (_%lp146856%_ - _%rest146879%_ - (cons _%hd146880%_ - _%r146859%_)) - (_%lp146856%_ - _%rest146879%_ - _%r146859%_))))) - (let ((_%try-match146884146913%_ + (if (null? _%rest148166%_) + (_%lp148143%_ + _%rest148166%_ + (cons _%hd148167%_ + _%r148146%_)) + (_%lp148143%_ + _%rest148166%_ + _%r148146%_))))) + (let ((_%try-match148171148200%_ (lambda () - (if (symbol? _%hd146881146897%_) - (_%K146887146910%_) - (_%else146885146905%_))))) - (if (pair? _%hd146881146897%_) - (let ((_%tl146895146939%_ + (if (symbol? _%hd148168148184%_) + (_%K148174148197%_) + (_%else148172148192%_))))) + (if (pair? _%hd148168148184%_) + (let ((_%tl148182148226%_ (let () (declare (not safe)) - (##cdr _%hd146881146897%_))) - (_%hd146894146937%_ + (##cdr _%hd148168148184%_))) + (_%hd148181148224%_ (let () (declare (not safe)) - (##car _%hd146881146897%_)))) + (##car _%hd148168148184%_)))) (if (let () (declare (not safe)) - (##eq? _%hd146894146937%_ + (##eq? _%hd148181148224%_ 'begin)) - (let ((_%exprs146942%_ - _%tl146895146939%_)) - (_%K146893146934%_ - _%exprs146942%_)) + (let ((_%exprs148229%_ + _%tl148182148226%_)) + (_%K148180148221%_ + _%exprs148229%_)) (if (let () (declare (not safe)) - (##eq? _%hd146894146937%_ + (##eq? _%hd148181148224%_ 'quote)) - (if (pair? _%tl146895146939%_) - (let ((_%tl146892146926%_ + (if (pair? _%tl148182148226%_) + (let ((_%tl148179148213%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl146895146939%_)))) - (if (null? _%tl146892146926%_) - (_%K146888146918%_) - (_%try-match146884146913%_))) - (_%try-match146884146913%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%try-match146884146913%_)))) - (_%try-match146884146913%_)))))))) - (if (pair? _%rest146860146868%_) - (let ((_%hd146865146947%_ + (##cdr _%tl148182148226%_)))) + (if (null? _%tl148179148213%_) + (_%K148175148205%_) + (_%try-match148171148200%_))) + (_%try-match148171148200%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%try-match148171148200%_)))) + (_%try-match148171148200%_)))))))) + (if (pair? _%rest148147148155%_) + (let ((_%hd148152148234%_ (let () (declare (not safe)) - (##car _%rest146860146868%_))) - (_%tl146866146949%_ + (##car _%rest148147148155%_))) + (_%tl148153148236%_ (let () (declare (not safe)) - (##cdr _%rest146860146868%_)))) - (let* ((_%hd146952%_ _%hd146865146947%_) - (_%rest146954%_ _%tl146866146949%_)) - (_%K146864146944%_ - _%rest146954%_ - _%hd146952%_))) - (_%else146862146876%_))))))) - (let* ((_%g146808146818%_ - (lambda (_%g146809146815%_) + (##cdr _%rest148147148155%_)))) + (let* ((_%hd148239%_ _%hd148152148234%_) + (_%rest148241%_ _%tl148153148236%_)) + (_%K148151148231%_ + _%rest148241%_ + _%hd148239%_))) + (_%else148149148163%_))))))) + (let* ((_%g148095148105%_ + (lambda (_%g148096148102%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146809146815%_)))) - (_%g146807146851%_ - (lambda (_%g146809146821%_) + _%g148096148102%_)))) + (_%g148094148138%_ + (lambda (_%g148096148108%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146809146821%_)) - (let ((_%e146811146823%_ + (gx#stx-pair? _%g148096148108%_)) + (let ((_%e148098148110%_ (let () (declare (not safe)) - (gx#stx-e _%g146809146821%_)))) - (let ((_%hd146812146826%_ + (gx#stx-e _%g148096148108%_)))) + (let ((_%hd148099148113%_ (let () (declare (not safe)) - (##car _%e146811146823%_))) - (_%tl146813146828%_ + (##car _%e148098148110%_))) + (_%tl148100148115%_ (let () (declare (not safe)) - (##cdr _%e146811146823%_)))) - ((lambda (_%L146831%_) - (let* ((_%body146846%_ - (map (lambda (_%g146841146843%_) + (##cdr _%e148098148110%_)))) + ((lambda (_%L148118%_) + (let* ((_%body148133%_ + (map (lambda (_%g148128148130%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self146803%_ - _%g146841146843%_))) - _%L146831%_)) - (_%body146848%_ - (_%simplify146806%_ _%body146846%_))) - (if (let ((__tmp148904 - (length _%body146848%_))) + _%self148090%_ + _%g148128148130%_))) + _%L148118%_)) + (_%body148135%_ + (_%simplify148093%_ _%body148133%_))) + (if (let ((__tmp150191 + (length _%body148135%_))) (declare (not safe)) - (##fx= __tmp148904 '1)) - (car _%body146848%_) - (cons 'begin _%body146848%_)))) - _%tl146813146828%_))) - (_%g146808146818%_ _%g146809146821%_))))) - (_%g146807146851%_ _%stx146804%_))))) + (##fx= __tmp150191 '1)) + (car _%body148135%_) + (cons 'begin _%body148135%_)))) + _%tl148100148115%_))) + (_%g148095148105%_ _%g148096148108%_))))) + (_%g148094148138%_ _%stx148091%_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_%self146764%_ _%stx146765%_) - (let* ((_%g146767146777%_ - (lambda (_%g146768146774%_) + (lambda (_%self148051%_ _%stx148052%_) + (let* ((_%g148054148064%_ + (lambda (_%g148055148061%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146768146774%_)))) - (_%g146766146800%_ - (lambda (_%g146768146780%_) + _%g148055148061%_)))) + (_%g148053148087%_ + (lambda (_%g148055148067%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146768146780%_)) - (let ((_%e146770146782%_ + (gx#stx-pair? _%g148055148067%_)) + (let ((_%e148057148069%_ (let () (declare (not safe)) - (gx#stx-e _%g146768146780%_)))) - (let ((_%hd146771146785%_ + (gx#stx-e _%g148055148067%_)))) + (let ((_%hd148058148072%_ (let () (declare (not safe)) - (##car _%e146770146782%_))) - (_%tl146772146787%_ + (##car _%e148057148069%_))) + (_%tl148059148074%_ (let () (declare (not safe)) - (##cdr _%e146770146782%_)))) - ((lambda (_%L146790%_) + (##cdr _%e148057148069%_)))) + ((lambda (_%L148077%_) (cons 'begin (let () (declare (not safe)) - (gx#syntax->datum _%L146790%_)))) - _%tl146772146787%_))) - (_%g146767146777%_ _%g146768146780%_))))) - (_%g146766146800%_ _%stx146765%_)))) + (gx#syntax->datum _%L148077%_)))) + _%tl148059148074%_))) + (_%g148054148064%_ _%g148055148067%_))))) + (_%g148053148087%_ _%stx148052%_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_%self146528%_ _%stx146529%_) - (let* ((_%__stx147494147495%_ _%stx146529%_) - (_%g146533146585%_ + (lambda (_%self147815%_ _%stx147816%_) + (let* ((_%__stx148781148782%_ _%stx147816%_) + (_%g147820147872%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147494147495%_))))) - (let ((_%__kont147496147497%_ - (lambda (_%L146746%_ _%L146747%_) + _%__stx148781148782%_))))) + (let ((_%__kont148783148784%_ + (lambda (_%L148033%_ _%L148034%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self146528%_ _%L146746%_)))) - (_%__kont147498147499%_ - (lambda (_%L146694%_ _%L146695%_ _%L146696%_) - (if (let ((__tmp148905 + (gxc#compile-e__1 _%self147815%_ _%L148033%_)))) + (_%__kont148785148786%_ + (lambda (_%L147981%_ _%L147982%_ _%L147983%_) + (if (let ((__tmp150192 (let () (declare (not safe)) - (gx#stx-e _%L146696%_)))) + (gx#stx-e _%L147983%_)))) (declare (not safe)) - (##memq __tmp148905 '(@inline))) + (##memq __tmp150192 '(@inline))) '(begin) (let () (declare (not safe)) - (gxc#compile-e__1 _%self146528%_ _%L146694%_))))) - (_%__kont147502147503%_ - (lambda (_%L146614%_ _%L146615%_) - (let ((_%decls146630%_ (map gx#syntax->datum _%L146615%_))) - (let ((__tmp148908 + (gxc#compile-e__1 _%self147815%_ _%L147981%_))))) + (_%__kont148789148790%_ + (lambda (_%L147901%_ _%L147902%_) + (let ((_%decls147917%_ (map gx#syntax->datum _%L147902%_))) + (let ((__tmp150195 (lambda () (cons 'begin - (cons (cons 'declare _%decls146630%_) + (cons (cons 'declare _%decls147917%_) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self146528%_ - _%L146614%_)) + _%self147815%_ + _%L147901%_)) '()))))) - (__tmp148906 - (let ((__tmp148907 + (__tmp150193 + (let ((__tmp150194 (let () (declare (not safe)) (gxc#current-compile-decls)))) (declare (not safe)) - (__foldr1 cons __tmp148907 _%decls146630%_)))) + (__foldr1 cons __tmp150194 _%decls147917%_)))) (declare (not safe)) (__call-with-parameters - __tmp148908 + __tmp150195 gxc#current-compile-decls - __tmp148906)))))) - (let* ((_%__match147549147550%_ - (lambda (_%e146549146638%_ - _%hd146550146641%_ - _%tl146551146643%_ - _%e146552146646%_ - _%hd146553146649%_ - _%tl146554146651%_ - _%e146555146654%_ - _%hd146556146657%_ - _%tl146557146659%_ - _%__splice147500147501%_ - _%target146558146662%_ - _%tl146560146664%_) - (letrec ((_%loop146561146667%_ - (lambda (_%hd146559146670%_ - _%param146565146672%_) + __tmp150193)))))) + (let* ((_%__match148836148837%_ + (lambda (_%e147836147925%_ + _%hd147837147928%_ + _%tl147838147930%_ + _%e147839147933%_ + _%hd147840147936%_ + _%tl147841147938%_ + _%e147842147941%_ + _%hd147843147944%_ + _%tl147844147946%_ + _%__splice148787148788%_ + _%target147845147949%_ + _%tl147847147951%_) + (letrec ((_%loop147848147954%_ + (lambda (_%hd147846147957%_ + _%param147852147959%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd146559146670%_)) - (let ((_%e146562146675%_ + (gx#stx-pair? _%hd147846147957%_)) + (let ((_%e147849147962%_ (let () (declare (not safe)) - (gx#stx-e _%hd146559146670%_)))) - (let ((_%lp-tl146564146680%_ + (gx#stx-e _%hd147846147957%_)))) + (let ((_%lp-tl147851147967%_ (let () (declare (not safe)) - (##cdr _%e146562146675%_))) - (_%lp-hd146563146678%_ + (##cdr _%e147849147962%_))) + (_%lp-hd147850147965%_ (let () (declare (not safe)) - (##car _%e146562146675%_)))) - (_%loop146561146667%_ - _%lp-tl146564146680%_ - (cons _%lp-hd146563146678%_ - _%param146565146672%_)))) - (let ((_%param146566146683%_ - (reverse _%param146565146672%_))) + (##car _%e147849147962%_)))) + (_%loop147848147954%_ + _%lp-tl147851147967%_ + (cons _%lp-hd147850147965%_ + _%param147852147959%_)))) + (let ((_%param147853147970%_ + (reverse _%param147852147959%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl146554146651%_)) - (let ((_%e146567146686%_ + _%tl147841147938%_)) + (let ((_%e147854147973%_ (let () (declare (not safe)) (gx#stx-e - _%tl146554146651%_)))) - (let ((_%tl146569146691%_ + _%tl147841147938%_)))) + (let ((_%tl147856147978%_ (let () (declare (not safe)) - (##cdr _%e146567146686%_))) - (_%hd146568146689%_ + (##cdr _%e147854147973%_))) + (_%hd147855147976%_ (let () (declare (not safe)) - (##car _%e146567146686%_)))) + (##car _%e147854147973%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146569146691%_)) - (let ((_%L146694%_ - _%hd146568146689%_) - (_%L146695%_ - _%param146566146683%_) - (_%L146696%_ - _%hd146556146657%_)) + _%tl147856147978%_)) + (let ((_%L147981%_ + _%hd147855147976%_) + (_%L147982%_ + _%param147853147970%_) + (_%L147983%_ + _%hd147843147944%_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _%L146696%_)) - (not (let ((__tmp148909 + (gx#identifier? _%L147983%_)) + (not (let ((__tmp150196 (let () (declare (not safe)) - (gx#stx-e _%L146696%_)))) + (gx#stx-e _%L147983%_)))) (declare (not safe)) - (##memq __tmp148909 gxc#gambit-annotations)))) - (_%__kont147498147499%_ _%L146694%_ _%L146695%_ _%L146696%_) - (_%__kont147502147503%_ - _%hd146568146689%_ - _%hd146553146649%_))) + (##memq __tmp150196 gxc#gambit-annotations)))) + (_%__kont148785148786%_ _%L147981%_ _%L147982%_ _%L147983%_) + (_%__kont148789148790%_ + _%hd147855147976%_ + _%hd147840147936%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g146533146585%_))))) + (_%g147820147872%_))))) (let () (declare (not safe)) - (_%g146533146585%_)))))))) - (_%loop146561146667%_ _%target146558146662%_ '())))) - (_%__match147523147524%_ - (lambda (_%e146537146722%_ - _%hd146538146725%_ - _%tl146539146727%_ - _%e146540146730%_ - _%hd146541146733%_ - _%tl146542146735%_ - _%e146543146738%_ - _%hd146544146741%_ - _%tl146545146743%_) - (let ((_%L146746%_ _%hd146544146741%_) - (_%L146747%_ _%hd146541146733%_)) + (_%g147820147872%_)))))))) + (_%loop147848147954%_ _%target147845147949%_ '())))) + (_%__match148810148811%_ + (lambda (_%e147824148009%_ + _%hd147825148012%_ + _%tl147826148014%_ + _%e147827148017%_ + _%hd147828148020%_ + _%tl147829148022%_ + _%e147830148025%_ + _%hd147831148028%_ + _%tl147832148030%_) + (let ((_%L148033%_ _%hd147831148028%_) + (_%L148034%_ _%hd147828148020%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L146747%_)) - (_%__kont147496147497%_ _%L146746%_ _%L146747%_) + (gx#identifier? _%L148034%_)) + (_%__kont148783148784%_ _%L148033%_ _%L148034%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd146541146733%_)) - (let ((_%e146555146654%_ + (gx#stx-pair? _%hd147828148020%_)) + (let ((_%e147842147941%_ (let () (declare (not safe)) - (gx#stx-e _%hd146541146733%_)))) - (let ((_%tl146557146659%_ + (gx#stx-e _%hd147828148020%_)))) + (let ((_%tl147844147946%_ (let () (declare (not safe)) - (##cdr _%e146555146654%_))) - (_%hd146556146657%_ + (##cdr _%e147842147941%_))) + (_%hd147843147944%_ (let () (declare (not safe)) - (##car _%e146555146654%_)))) + (##car _%e147842147941%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl146557146659%_)) - (let ((_%__splice147500147501%_ + _%tl147844147946%_)) + (let ((_%__splice148787148788%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl146557146659%_ + _%tl147844147946%_ '0)))) - (let ((_%tl146560146664%_ + (let ((_%tl147847147951%_ (let () (declare (not safe)) (##vector-ref - _%__splice147500147501%_ + _%__splice148787148788%_ '1))) - (_%target146558146662%_ + (_%target147845147949%_ (let () (declare (not safe)) (##vector-ref - _%__splice147500147501%_ + _%__splice148787148788%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146560146664%_)) - (_%__match147549147550%_ - _%e146537146722%_ - _%hd146538146725%_ - _%tl146539146727%_ - _%e146540146730%_ - _%hd146541146733%_ - _%tl146542146735%_ - _%e146555146654%_ - _%hd146556146657%_ - _%tl146557146659%_ - _%__splice147500147501%_ - _%target146558146662%_ - _%tl146560146664%_) - (_%__kont147502147503%_ - _%hd146544146741%_ - _%hd146541146733%_)))) - (_%__kont147502147503%_ - _%hd146544146741%_ - _%hd146541146733%_)))) - (_%__kont147502147503%_ - _%hd146544146741%_ - _%hd146541146733%_))))))) + _%tl147847147951%_)) + (_%__match148836148837%_ + _%e147824148009%_ + _%hd147825148012%_ + _%tl147826148014%_ + _%e147827148017%_ + _%hd147828148020%_ + _%tl147829148022%_ + _%e147842147941%_ + _%hd147843147944%_ + _%tl147844147946%_ + _%__splice148787148788%_ + _%target147845147949%_ + _%tl147847147951%_) + (_%__kont148789148790%_ + _%hd147831148028%_ + _%hd147828148020%_)))) + (_%__kont148789148790%_ + _%hd147831148028%_ + _%hd147828148020%_)))) + (_%__kont148789148790%_ + _%hd147831148028%_ + _%hd147828148020%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147494147495%_)) - (let ((_%e146537146722%_ + (gx#stx-pair? _%__stx148781148782%_)) + (let ((_%e147824148009%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147494147495%_)))) - (let ((_%tl146539146727%_ + (gx#stx-e _%__stx148781148782%_)))) + (let ((_%tl147826148014%_ (let () (declare (not safe)) - (##cdr _%e146537146722%_))) - (_%hd146538146725%_ + (##cdr _%e147824148009%_))) + (_%hd147825148012%_ (let () (declare (not safe)) - (##car _%e146537146722%_)))) + (##car _%e147824148009%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146539146727%_)) - (let ((_%e146540146730%_ + (gx#stx-pair? _%tl147826148014%_)) + (let ((_%e147827148017%_ (let () (declare (not safe)) - (gx#stx-e _%tl146539146727%_)))) - (let ((_%tl146542146735%_ + (gx#stx-e _%tl147826148014%_)))) + (let ((_%tl147829148022%_ (let () (declare (not safe)) - (##cdr _%e146540146730%_))) - (_%hd146541146733%_ + (##cdr _%e147827148017%_))) + (_%hd147828148020%_ (let () (declare (not safe)) - (##car _%e146540146730%_)))) + (##car _%e147827148017%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146542146735%_)) - (let ((_%e146543146738%_ + (gx#stx-pair? _%tl147829148022%_)) + (let ((_%e147830148025%_ (let () (declare (not safe)) - (gx#stx-e _%tl146542146735%_)))) - (let ((_%tl146545146743%_ + (gx#stx-e _%tl147829148022%_)))) + (let ((_%tl147832148030%_ (let () (declare (not safe)) - (##cdr _%e146543146738%_))) - (_%hd146544146741%_ + (##cdr _%e147830148025%_))) + (_%hd147831148028%_ (let () (declare (not safe)) - (##car _%e146543146738%_)))) + (##car _%e147830148025%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146545146743%_)) - (_%__match147523147524%_ - _%e146537146722%_ - _%hd146538146725%_ - _%tl146539146727%_ - _%e146540146730%_ - _%hd146541146733%_ - _%tl146542146735%_ - _%e146543146738%_ - _%hd146544146741%_ - _%tl146545146743%_) + (gx#stx-null? _%tl147832148030%_)) + (_%__match148810148811%_ + _%e147824148009%_ + _%hd147825148012%_ + _%tl147826148014%_ + _%e147827148017%_ + _%hd147828148020%_ + _%tl147829148022%_ + _%e147830148025%_ + _%hd147831148028%_ + _%tl147832148030%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd146541146733%_)) - (let ((_%e146555146654%_ + _%hd147828148020%_)) + (let ((_%e147842147941%_ (let () (declare (not safe)) (gx#stx-e - _%hd146541146733%_)))) - (let ((_%tl146557146659%_ + _%hd147828148020%_)))) + (let ((_%tl147844147946%_ (let () (declare (not safe)) - (##cdr _%e146555146654%_))) - (_%hd146556146657%_ + (##cdr _%e147842147941%_))) + (_%hd147843147944%_ (let () (declare (not safe)) - (##car _%e146555146654%_)))) + (##car _%e147842147941%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl146557146659%_)) - (let ((_%__splice147500147501%_ + _%tl147844147946%_)) + (let ((_%__splice148787148788%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl146557146659%_ '0)))) - (let ((_%tl146560146664%_ + (gx#syntax-split-splice _%tl147844147946%_ '0)))) + (let ((_%tl147847147951%_ (let () (declare (not safe)) - (##vector-ref _%__splice147500147501%_ '1))) - (_%target146558146662%_ + (##vector-ref _%__splice148787148788%_ '1))) + (_%target147845147949%_ (let () (declare (not safe)) - (##vector-ref _%__splice147500147501%_ '0)))) + (##vector-ref _%__splice148787148788%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146560146664%_)) - (_%__match147549147550%_ - _%e146537146722%_ - _%hd146538146725%_ - _%tl146539146727%_ - _%e146540146730%_ - _%hd146541146733%_ - _%tl146542146735%_ - _%e146555146654%_ - _%hd146556146657%_ - _%tl146557146659%_ - _%__splice147500147501%_ - _%target146558146662%_ - _%tl146560146664%_) - (let () (declare (not safe)) (_%g146533146585%_))))) - (let () (declare (not safe)) (_%g146533146585%_))))) + (gx#stx-null? _%tl147847147951%_)) + (_%__match148836148837%_ + _%e147824148009%_ + _%hd147825148012%_ + _%tl147826148014%_ + _%e147827148017%_ + _%hd147828148020%_ + _%tl147829148022%_ + _%e147842147941%_ + _%hd147843147944%_ + _%tl147844147946%_ + _%__splice148787148788%_ + _%target147845147949%_ + _%tl147847147951%_) + (let () (declare (not safe)) (_%g147820147872%_))))) + (let () (declare (not safe)) (_%g147820147872%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g146533146585%_)))))) + (_%g147820147872%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd146541146733%_)) - (let ((_%e146555146654%_ + (gx#stx-pair? _%hd147828148020%_)) + (let ((_%e147842147941%_ (let () (declare (not safe)) - (gx#stx-e _%hd146541146733%_)))) - (let ((_%tl146557146659%_ + (gx#stx-e _%hd147828148020%_)))) + (let ((_%tl147844147946%_ (let () (declare (not safe)) - (##cdr _%e146555146654%_))) - (_%hd146556146657%_ + (##cdr _%e147842147941%_))) + (_%hd147843147944%_ (let () (declare (not safe)) - (##car _%e146555146654%_)))) + (##car _%e147842147941%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl146557146659%_)) - (let ((_%__splice147500147501%_ + _%tl147844147946%_)) + (let ((_%__splice148787148788%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl146557146659%_ + _%tl147844147946%_ '0)))) - (let ((_%tl146560146664%_ + (let ((_%tl147847147951%_ (let () (declare (not safe)) (##vector-ref - _%__splice147500147501%_ + _%__splice148787148788%_ '1))) - (_%target146558146662%_ + (_%target147845147949%_ (let () (declare (not safe)) (##vector-ref - _%__splice147500147501%_ + _%__splice148787148788%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146560146664%_)) - (_%__match147549147550%_ - _%e146537146722%_ - _%hd146538146725%_ - _%tl146539146727%_ - _%e146540146730%_ - _%hd146541146733%_ - _%tl146542146735%_ - _%e146555146654%_ - _%hd146556146657%_ - _%tl146557146659%_ - _%__splice147500147501%_ - _%target146558146662%_ - _%tl146560146664%_) + _%tl147847147951%_)) + (_%__match148836148837%_ + _%e147824148009%_ + _%hd147825148012%_ + _%tl147826148014%_ + _%e147827148017%_ + _%hd147828148020%_ + _%tl147829148022%_ + _%e147842147941%_ + _%hd147843147944%_ + _%tl147844147946%_ + _%__splice148787148788%_ + _%target147845147949%_ + _%tl147847147951%_) (let () (declare (not safe)) - (_%g146533146585%_))))) + (_%g147820147872%_))))) (let () (declare (not safe)) - (_%g146533146585%_))))) + (_%g147820147872%_))))) (let () (declare (not safe)) - (_%g146533146585%_)))))) - (let () (declare (not safe)) (_%g146533146585%_))))) - (let () (declare (not safe)) (_%g146533146585%_)))))))) + (_%g147820147872%_)))))) + (let () (declare (not safe)) (_%g147820147872%_))))) + (let () (declare (not safe)) (_%g147820147872%_)))))))) (define gxc#generate-runtime-declare% - (lambda (_%self146487%_ _%stx146488%_) - (let* ((_%g146490146500%_ - (lambda (_%g146491146497%_) + (lambda (_%self147774%_ _%stx147775%_) + (let* ((_%g147777147787%_ + (lambda (_%g147778147784%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146491146497%_)))) - (_%g146489146525%_ - (lambda (_%g146491146503%_) + _%g147778147784%_)))) + (_%g147776147812%_ + (lambda (_%g147778147790%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146491146503%_)) - (let ((_%e146493146505%_ + (gx#stx-pair? _%g147778147790%_)) + (let ((_%e147780147792%_ (let () (declare (not safe)) - (gx#stx-e _%g146491146503%_)))) - (let ((_%hd146494146508%_ + (gx#stx-e _%g147778147790%_)))) + (let ((_%hd147781147795%_ (let () (declare (not safe)) - (##car _%e146493146505%_))) - (_%tl146495146510%_ + (##car _%e147780147792%_))) + (_%tl147782147797%_ (let () (declare (not safe)) - (##cdr _%e146493146505%_)))) - ((lambda (_%L146513%_) - (let ((_%decls146523%_ - (map gx#syntax->datum _%L146513%_))) - (let ((__tmp148910 - (let ((__tmp148911 + (##cdr _%e147780147792%_)))) + ((lambda (_%L147800%_) + (let ((_%decls147810%_ + (map gx#syntax->datum _%L147800%_))) + (let ((__tmp150197 + (let ((__tmp150198 (let () (declare (not safe)) (gxc#current-compile-decls)))) (declare (not safe)) (__foldr1 cons - __tmp148911 - _%decls146523%_)))) + __tmp150198 + _%decls147810%_)))) (declare (not safe)) - (gxc#current-compile-decls __tmp148910)) - (cons 'declare _%decls146523%_))) - _%tl146495146510%_))) - (_%g146490146500%_ _%g146491146503%_))))) - (_%g146489146525%_ _%stx146488%_)))) + (gxc#current-compile-decls __tmp150197)) + (cons 'declare _%decls147810%_))) + _%tl147782147797%_))) + (_%g147777147787%_ _%g147778147790%_))))) + (_%g147776147812%_ _%stx147775%_)))) (define gxc#generate-runtime-define-values% - (lambda (_%self146233%_ _%stx146234%_) - (let* ((_%g146236146253%_ - (lambda (_%g146237146250%_) + (lambda (_%self147520%_ _%stx147521%_) + (let* ((_%g147523147540%_ + (lambda (_%g147524147537%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146237146250%_)))) - (_%g146235146484%_ - (lambda (_%g146237146256%_) + _%g147524147537%_)))) + (_%g147522147771%_ + (lambda (_%g147524147543%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146237146256%_)) - (let ((_%e146240146258%_ + (gx#stx-pair? _%g147524147543%_)) + (let ((_%e147527147545%_ (let () (declare (not safe)) - (gx#stx-e _%g146237146256%_)))) - (let ((_%hd146241146261%_ + (gx#stx-e _%g147524147543%_)))) + (let ((_%hd147528147548%_ (let () (declare (not safe)) - (##car _%e146240146258%_))) - (_%tl146242146263%_ + (##car _%e147527147545%_))) + (_%tl147529147550%_ (let () (declare (not safe)) - (##cdr _%e146240146258%_)))) + (##cdr _%e147527147545%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146242146263%_)) - (let ((_%e146243146266%_ + (gx#stx-pair? _%tl147529147550%_)) + (let ((_%e147530147553%_ (let () (declare (not safe)) - (gx#stx-e _%tl146242146263%_)))) - (let ((_%hd146244146269%_ + (gx#stx-e _%tl147529147550%_)))) + (let ((_%hd147531147556%_ (let () (declare (not safe)) - (##car _%e146243146266%_))) - (_%tl146245146271%_ + (##car _%e147530147553%_))) + (_%tl147532147558%_ (let () (declare (not safe)) - (##cdr _%e146243146266%_)))) + (##cdr _%e147530147553%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146245146271%_)) - (let ((_%e146246146274%_ + (gx#stx-pair? _%tl147532147558%_)) + (let ((_%e147533147561%_ (let () (declare (not safe)) - (gx#stx-e _%tl146245146271%_)))) - (let ((_%hd146247146277%_ + (gx#stx-e _%tl147532147558%_)))) + (let ((_%hd147534147564%_ (let () (declare (not safe)) - (##car _%e146246146274%_))) - (_%tl146248146279%_ + (##car _%e147533147561%_))) + (_%tl147535147566%_ (let () (declare (not safe)) - (##cdr _%e146246146274%_)))) + (##cdr _%e147533147561%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146248146279%_)) - ((lambda (_%L146282%_ - _%L146283%_) - (let* ((_%__stx147602147603%_ - _%L146283%_) - (_%g146300146314%_ + _%tl147535147566%_)) + ((lambda (_%L147569%_ + _%L147570%_) + (let* ((_%__stx148889148890%_ + _%L147570%_) + (_%g147587147601%_ (lambda () (let () (declare @@ -2915,304 +2915,304 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147602147603%_))))) - (let ((_%__kont147604147605%_ + _%__stx148889148890%_))))) + (let ((_%__kont148891148892%_ (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self146233%_ - _%L146282%_)))) - (_%__kont147606147607%_ - (lambda (_%L146446%_) - (let ((_%eid146455%_ + _%self147520%_ + _%L147569%_)))) + (_%__kont148893148894%_ + (lambda (_%L147733%_) + (let ((_%eid147742%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _%L146446%_)))) - (let ((_%lambda-expr146456146458%_ - (gxc#apply-find-lambda-expression _%L146282%_))) - (if _%lambda-expr146456146458%_ - (let* ((_%lambda-expr146461%_ - _%lambda-expr146456146458%_) - (__tmp148912 + (gxc#generate-runtime-binding-id _%L147733%_)))) + (let ((_%lambda-expr147743147745%_ + (gxc#apply-find-lambda-expression _%L147569%_))) + (if _%lambda-expr147743147745%_ + (let* ((_%lambda-expr147748%_ + _%lambda-expr147743147745%_) + (__tmp150199 (let () (declare (not safe)) (gxc#current-compile-runtime-names)))) (declare (not safe)) (hash-put! - __tmp148912 - _%lambda-expr146461%_ - _%eid146455%_)) + __tmp150199 + _%lambda-expr147748%_ + _%eid147742%_)) '#f)) (cons 'define - (cons _%eid146455%_ + (cons _%eid147742%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self146233%_ - _%L146282%_)) + _%self147520%_ + _%L147569%_)) '())))))) - (_%__kont147608147609%_ + (_%__kont148895148896%_ (lambda () - (let* ((_%tmp146321%_ + (let* ((_%tmp147608%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%body146430%_ - (let _%lp146323%_ ((_%rest146325%_ _%L146283%_) - (_%k146326%_ '0) - (_%r146327%_ '())) - (let* ((_%__stx147572147573%_ _%rest146325%_) - (_%g146332146349%_ + (_%body147717%_ + (let _%lp147610%_ ((_%rest147612%_ _%L147570%_) + (_%k147613%_ '0) + (_%r147614%_ '())) + (let* ((_%__stx148859148860%_ _%rest147612%_) + (_%g147619147636%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147572147573%_))))) - (let ((_%__kont147574147575%_ - (lambda (_%L146417%_) - (_%lp146323%_ - _%L146417%_ + _%__stx148859148860%_))))) + (let ((_%__kont148861148862%_ + (lambda (_%L147704%_) + (_%lp147610%_ + _%L147704%_ (let () (declare (not safe)) - (##fx+ _%k146326%_ '1)) - _%r146327%_))) - (_%__kont147576147577%_ - (lambda (_%L146390%_ _%L146391%_) - (_%lp146323%_ - _%L146390%_ + (##fx+ _%k147613%_ '1)) + _%r147614%_))) + (_%__kont148863148864%_ + (lambda (_%L147677%_ _%L147678%_) + (_%lp147610%_ + _%L147677%_ (let () (declare (not safe)) - (##fx+ _%k146326%_ '1)) + (##fx+ _%k147613%_ '1)) (cons (cons 'define (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L146391%_)) + _%L147678%_)) (cons (gxc#generate-runtime-values-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tmp146321%_ - _%k146326%_ - _%L146390%_) + _%tmp147608%_ + _%k147613%_ + _%L147677%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r146327%_)))) - (_%__kont147578147579%_ - (lambda (_%L146361%_) - (let ((__tmp148913 + _%r147614%_)))) + (_%__kont148865148866%_ + (lambda (_%L147648%_) + (let ((__tmp150200 (cons (cons 'define (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#generate-runtime-binding-id _%L146361%_)) + (gxc#generate-runtime-binding-id _%L147648%_)) (cons (gxc#generate-runtime-values->list - _%tmp146321%_ - _%k146326%_) + _%tmp147608%_ + _%k147613%_) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp148913 - _%r146327%_)))) - (_%__kont147580147581%_ - (lambda () (reverse _%r146327%_)))) - (let ((_%g146330146377%_ + __tmp150200 + _%r147614%_)))) + (_%__kont148867148868%_ + (lambda () (reverse _%r147614%_)))) + (let ((_%g147617147664%_ (lambda () - (let ((_%L146361%_ - _%__stx147572147573%_)) + (let ((_%L147648%_ + _%__stx148859148860%_)) (if (let () (declare (not safe)) (gx#identifier? - _%L146361%_)) - (_%__kont147578147579%_ - _%L146361%_) - (_%__kont147580147581%_)))))) + _%L147648%_)) + (_%__kont148865148866%_ + _%L147648%_) + (_%__kont148867148868%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147572147573%_)) - (let ((_%e146335146406%_ + (gx#stx-pair? _%__stx148859148860%_)) + (let ((_%e147622147693%_ (let () (declare (not safe)) (gx#stx-e - _%__stx147572147573%_)))) - (let ((_%tl146337146411%_ + _%__stx148859148860%_)))) + (let ((_%tl147624147698%_ (let () (declare (not safe)) - (##cdr _%e146335146406%_))) - (_%hd146336146409%_ + (##cdr _%e147622147693%_))) + (_%hd147623147696%_ (let () (declare (not safe)) - (##car _%e146335146406%_)))) + (##car _%e147622147693%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd146336146409%_)) - (let ((_%e146338146414%_ + _%hd147623147696%_)) + (let ((_%e147625147701%_ (let () (declare (not safe)) (gx#stx-e - _%hd146336146409%_)))) - (if (equal? _%e146338146414%_ + _%hd147623147696%_)))) + (if (equal? _%e147625147701%_ '#f) - (_%__kont147574147575%_ - _%tl146337146411%_) - (_%__kont147576147577%_ - _%tl146337146411%_ - _%hd146336146409%_))) - (_%__kont147576147577%_ - _%tl146337146411%_ - _%hd146336146409%_)))) + (_%__kont148861148862%_ + _%tl147624147698%_) + (_%__kont148863148864%_ + _%tl147624147698%_ + _%hd147623147696%_))) + (_%__kont148863148864%_ + _%tl147624147698%_ + _%hd147623147696%_)))) (let () (declare (not safe)) - (_%g146330146377%_))))))))) + (_%g147617147664%_))))))))) (cons 'begin (cons (cons 'define - (cons _%tmp146321%_ + (cons _%tmp147608%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self146233%_ - _%L146282%_)) + _%self147520%_ + _%L147569%_)) '()))) (cons (gxc#generate-runtime-check-values - _%tmp146321%_ - _%L146283%_ - _%L146282%_) - _%body146430%_))))))) + _%tmp147608%_ + _%L147570%_ + _%L147569%_) + _%body147717%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx147602147603%_)) - (let ((_%e146302146468%_ + _%__stx148889148890%_)) + (let ((_%e147589147755%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx147602147603%_)))) - (let ((_%tl146304146473%_ + (gx#stx-e _%__stx148889148890%_)))) + (let ((_%tl147591147760%_ (let () (declare (not safe)) - (##cdr _%e146302146468%_))) - (_%hd146303146471%_ + (##cdr _%e147589147755%_))) + (_%hd147590147758%_ (let () (declare (not safe)) - (##car _%e146302146468%_)))) + (##car _%e147589147755%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd146303146471%_)) - (let ((_%e146305146476%_ + (gx#stx-datum? _%hd147590147758%_)) + (let ((_%e147592147763%_ (let () (declare (not safe)) - (gx#stx-e _%hd146303146471%_)))) - (if (equal? _%e146305146476%_ '#f) + (gx#stx-e _%hd147590147758%_)))) + (if (equal? _%e147592147763%_ '#f) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146304146473%_)) - (_%__kont147604147605%_) - (_%__kont147608147609%_)) + (gx#stx-null? _%tl147591147760%_)) + (_%__kont148891148892%_) + (_%__kont148895148896%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146304146473%_)) - (_%__kont147606147607%_ _%hd146303146471%_) - (_%__kont147608147609%_)))) + (gx#stx-null? _%tl147591147760%_)) + (_%__kont148893148894%_ _%hd147590147758%_) + (_%__kont148895148896%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146304146473%_)) - (_%__kont147606147607%_ _%hd146303146471%_) - (_%__kont147608147609%_))))) - (_%__kont147608147609%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd146247146277%_ - _%hd146244146269%_) - (_%g146236146253%_ - _%g146237146256%_)))) - (_%g146236146253%_ _%g146237146256%_)))) - (_%g146236146253%_ _%g146237146256%_)))) - (_%g146236146253%_ _%g146237146256%_))))) - (_%g146235146484%_ _%stx146234%_)))) + (gx#stx-null? _%tl147591147760%_)) + (_%__kont148893148894%_ _%hd147590147758%_) + (_%__kont148895148896%_))))) + (_%__kont148895148896%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd147534147564%_ + _%hd147531147556%_) + (_%g147523147540%_ + _%g147524147543%_)))) + (_%g147523147540%_ _%g147524147543%_)))) + (_%g147523147540%_ _%g147524147543%_)))) + (_%g147523147540%_ _%g147524147543%_))))) + (_%g147522147771%_ _%stx147521%_)))) (define gxc#generate-runtime-check-values - (lambda (_%vals146208%_ _%hd146209%_ _%expr146210%_) - (let ((_%$e146212%_ (gxc#apply-count-values _%expr146210%_))) - (if _%$e146212%_ - ((lambda (_%count146215%_) - (let ((_%len146217%_ + (lambda (_%vals147495%_ _%hd147496%_ _%expr147497%_) + (let ((_%$e147499%_ (gxc#apply-count-values _%expr147497%_))) + (if _%$e147499%_ + ((lambda (_%count147502%_) + (let ((_%len147504%_ (let () (declare (not safe)) - (gx#stx-length _%hd146209%_))) - (_%cmp146218%_ + (gx#stx-length _%hd147496%_))) + (_%cmp147505%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd146209%_)) + (gx#stx-list? _%hd147496%_)) fx= fx>=))) (if (or (let () (declare (not safe)) - (##fx= _%len146217%_ '0)) - (_%cmp146218%_ _%count146215%_ _%len146217%_)) + (##fx= _%len147504%_ '0)) + (_%cmp147505%_ _%count147502%_ _%len147504%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Value count mismatch" - _%expr146210%_ - _%hd146209%_))))) - _%$e146212%_) - (let* ((_%len146224%_ + _%expr147497%_ + _%hd147496%_))))) + _%$e147499%_) + (let* ((_%len147511%_ (let () (declare (not safe)) - (gx#stx-length _%hd146209%_))) - (_%cmp146226%_ + (gx#stx-length _%hd147496%_))) + (_%cmp147513%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd146209%_)) + (gx#stx-list? _%hd147496%_)) '##fx= '##fx>=)) - (_%errmsg146228%_ - (let ((__tmp148915 + (_%errmsg147515%_ + (let ((__tmp150202 (if (let () (declare (not safe)) - (gx#stx-list? _%hd146209%_)) + (gx#stx-list? _%hd147496%_)) '"Context expects " '"Context expects at least ")) - (__tmp148914 (number->string _%len146224%_))) + (__tmp150201 (number->string _%len147511%_))) (declare (not safe)) - (##string-append __tmp148915 __tmp148914 '" values"))) - (_%count146230%_ + (##string-append __tmp150202 __tmp150201 '" values"))) + (_%count147517%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0)))) (if (if (let () (declare (not safe)) - (gx#stx-list? _%hd146209%_)) + (gx#stx-list? _%hd147496%_)) '#f - (let () (declare (not safe)) (##fx= _%len146224%_ '0))) + (let () (declare (not safe)) (##fx= _%len147511%_ '0))) '#!void (cons 'let - (cons (cons (cons _%count146230%_ + (cons (cons (cons _%count147517%_ (cons (gxc#generate-runtime-values-count - _%vals146208%_) + _%vals147495%_) '())) '()) (cons (cons 'if (cons (cons 'not (cons (if (gxc#current-compile-decls-unsafe?) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%cmp146226%_ - (cons _%count146230%_ - (cons _%len146224%_ '()))) + (cons _%cmp147513%_ + (cons _%count147517%_ + (cons _%len147511%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (cons _%cmp146226%_ - (cons _%count146230%_ - (cons _%len146224%_ + (cons (cons _%cmp147513%_ + (cons _%count147517%_ + (cons _%len147511%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3220,82 +3220,82 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'error - (cons _%errmsg146228%_ + (cons _%errmsg147515%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%count146230%_ '()))) + (cons _%count147517%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))))) (define gxc#generate-runtime-values-count - (lambda (_%var146203%_) - (letrec ((_%generate-inline146205%_ + (lambda (_%var147490%_) + (letrec ((_%generate-inline147492%_ (lambda () (cons 'if - (cons (cons '##values? (cons _%var146203%_ '())) - (cons (cons '##vector-length - (cons _%var146203%_ '())) + (cons (cons '##values? (cons _%var147490%_ '())) + (cons (cons '##values-length + (cons _%var147490%_ '())) (cons '1 '()))))))) (if (gxc#current-compile-decls-unsafe?) - (_%generate-inline146205%_) + (_%generate-inline147492%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (_%generate-inline146205%_) '())))))))) + (cons (_%generate-inline147492%_) '())))))))) (define gxc#generate-runtime-values-ref - (lambda (_%var146196%_ _%i146197%_ _%rest146198%_) - (letrec ((_%generate-inline146200%_ + (lambda (_%var147483%_ _%i147484%_ _%rest147485%_) + (letrec ((_%generate-inline147487%_ (lambda () (if (and (let () (declare (not safe)) - (##fx= _%i146197%_ '0)) + (##fx= _%i147484%_ '0)) (not (let () (declare (not safe)) - (gx#stx-pair? _%rest146198%_)))) + (gx#stx-pair? _%rest147485%_)))) (cons 'if - (cons (cons '##values? (cons _%var146196%_ '())) - (cons (cons '##vector-ref - (cons _%var146196%_ + (cons (cons '##values? (cons _%var147483%_ '())) + (cons (cons '##values-ref + (cons _%var147483%_ (cons '0 '()))) - (cons _%var146196%_ '())))) - (cons '##vector-ref - (cons _%var146196%_ (cons _%i146197%_ '()))))))) + (cons _%var147483%_ '())))) + (cons '##values-ref + (cons _%var147483%_ (cons _%i147484%_ '()))))))) (if (gxc#current-compile-decls-unsafe?) - (_%generate-inline146200%_) + (_%generate-inline147487%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (_%generate-inline146200%_) '())))))))) + (cons (_%generate-inline147487%_) '())))))))) (define gxc#generate-runtime-values->list - (lambda (_%var146190%_ _%i146191%_) - (if (let () (declare (not safe)) (##fx= _%i146191%_ '0)) + (lambda (_%var147477%_ _%i147478%_) + (if (let () (declare (not safe)) (##fx= _%i147478%_ '0)) (if (gxc#current-compile-decls-unsafe?) (cons 'if - (cons (cons '##values? (cons _%var146190%_ '())) - (cons (cons '##vector->list - (cons _%var146190%_ '())) - (cons (cons 'list (cons _%var146190%_ '())) + (cons (cons '##values? (cons _%var147477%_ '())) + (cons (cons '##values->list + (cons _%var147477%_ '())) + (cons (cons 'list (cons _%var147477%_ '())) '())))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons 'if (cons (cons '##values? - (cons _%var146190%_ + (cons _%var147477%_ '())) - (cons (cons '##vector->list - (cons _%var146190%_ + (cons (cons '##values->list + (cons _%var147477%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons 'list (cons _%var146190%_ '())) '())))) + (cons (cons 'list (cons _%var147477%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (if (let () (declare (not safe)) (##fx= _%i146191%_ '1)) + (if (let () (declare (not safe)) (##fx= _%i147478%_ '1)) (if (gxc#current-compile-decls-unsafe?) (cons 'if - (cons (cons '##values? (cons _%var146190%_ '())) + (cons (cons '##values? (cons _%var147477%_ '())) (cons (cons '##cdr - (cons (cons '##vector->list - (cons _%var146190%_ + (cons (cons '##values->list + (cons _%var147477%_ '())) '())) (cons ''() '())))) @@ -3304,8267 +3304,8267 @@ (cons '(declare (not safe)) (cons (cons 'if (cons (cons '##values? - (cons _%var146190%_ + (cons _%var147477%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '##cdr - (cons (cons '##vector->list - (cons _%var146190%_ '())) + (cons (cons '##values->list + (cons _%var147477%_ '())) '())) (cons ''() '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (if (gxc#current-compile-decls-unsafe?) (cons '##list-tail - (cons (cons '##vector->list (cons _%var146190%_ '())) - (cons _%i146191%_ '()))) + (cons (cons '##values->list (cons _%var147477%_ '())) + (cons _%i147478%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##list-tail - (cons (cons '##vector->list - (cons _%var146190%_ + (cons (cons '##values->list + (cons _%var147477%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%i146191%_ '()))) + (cons _%i147478%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))))) (define gxc#generate-runtime-lambda% - (lambda (_%self146122%_ _%stx146123%_) - (let* ((_%g146125146142%_ - (lambda (_%g146126146139%_) + (lambda (_%self147409%_ _%stx147410%_) + (let* ((_%g147412147429%_ + (lambda (_%g147413147426%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146126146139%_)))) - (_%g146124146187%_ - (lambda (_%g146126146145%_) + _%g147413147426%_)))) + (_%g147411147474%_ + (lambda (_%g147413147432%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146126146145%_)) - (let ((_%e146129146147%_ + (gx#stx-pair? _%g147413147432%_)) + (let ((_%e147416147434%_ (let () (declare (not safe)) - (gx#stx-e _%g146126146145%_)))) - (let ((_%hd146130146150%_ + (gx#stx-e _%g147413147432%_)))) + (let ((_%hd147417147437%_ (let () (declare (not safe)) - (##car _%e146129146147%_))) - (_%tl146131146152%_ + (##car _%e147416147434%_))) + (_%tl147418147439%_ (let () (declare (not safe)) - (##cdr _%e146129146147%_)))) + (##cdr _%e147416147434%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146131146152%_)) - (let ((_%e146132146155%_ + (gx#stx-pair? _%tl147418147439%_)) + (let ((_%e147419147442%_ (let () (declare (not safe)) - (gx#stx-e _%tl146131146152%_)))) - (let ((_%hd146133146158%_ + (gx#stx-e _%tl147418147439%_)))) + (let ((_%hd147420147445%_ (let () (declare (not safe)) - (##car _%e146132146155%_))) - (_%tl146134146160%_ + (##car _%e147419147442%_))) + (_%tl147421147447%_ (let () (declare (not safe)) - (##cdr _%e146132146155%_)))) + (##cdr _%e147419147442%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146134146160%_)) - (let ((_%e146135146163%_ + (gx#stx-pair? _%tl147421147447%_)) + (let ((_%e147422147450%_ (let () (declare (not safe)) - (gx#stx-e _%tl146134146160%_)))) - (let ((_%hd146136146166%_ + (gx#stx-e _%tl147421147447%_)))) + (let ((_%hd147423147453%_ (let () (declare (not safe)) - (##car _%e146135146163%_))) - (_%tl146137146168%_ + (##car _%e147422147450%_))) + (_%tl147424147455%_ (let () (declare (not safe)) - (##cdr _%e146135146163%_)))) + (##cdr _%e147422147450%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146137146168%_)) - ((lambda (_%L146171%_ - _%L146172%_) + _%tl147424147455%_)) + ((lambda (_%L147458%_ + _%L147459%_) (gxc#generate-runtime-lambda-form - _%self146122%_ - _%L146172%_ - _%L146171%_)) - _%hd146136146166%_ - _%hd146133146158%_) - (_%g146125146142%_ - _%g146126146145%_)))) - (_%g146125146142%_ _%g146126146145%_)))) - (_%g146125146142%_ _%g146126146145%_)))) - (_%g146125146142%_ _%g146126146145%_))))) - (_%g146124146187%_ _%stx146123%_)))) + _%self147409%_ + _%L147459%_ + _%L147458%_)) + _%hd147423147453%_ + _%hd147420147445%_) + (_%g147412147429%_ + _%g147413147432%_)))) + (_%g147412147429%_ _%g147413147432%_)))) + (_%g147412147429%_ _%g147413147432%_)))) + (_%g147412147429%_ _%g147413147432%_))))) + (_%g147411147474%_ _%stx147410%_)))) (define gxc#generate-runtime-lambda-form - (lambda (_%self146081%_ _%hd146082%_ _%body146083%_) - (let* ((_%hd146085%_ (gxc#generate-runtime-lambda-head _%hd146082%_)) - (_%body146087%_ + (lambda (_%self147368%_ _%hd147369%_ _%body147370%_) + (let* ((_%hd147372%_ (gxc#generate-runtime-lambda-head _%hd147369%_)) + (_%body147374%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self146081%_ _%body146083%_))) - (_%body146119%_ - (let* ((_%body146088146096%_ _%body146087%_) - (_%else146090146104%_ - (lambda () (cons _%body146087%_ '()))) - (_%K146092146109%_ - (lambda (_%exprs146107%_) _%exprs146107%_))) - (if (pair? _%body146088146096%_) - (let ((_%hd146093146112%_ + (gxc#compile-e__1 _%self147368%_ _%body147370%_))) + (_%body147406%_ + (let* ((_%body147375147383%_ _%body147374%_) + (_%else147377147391%_ + (lambda () (cons _%body147374%_ '()))) + (_%K147379147396%_ + (lambda (_%exprs147394%_) _%exprs147394%_))) + (if (pair? _%body147375147383%_) + (let ((_%hd147380147399%_ (let () (declare (not safe)) - (##car _%body146088146096%_))) - (_%tl146094146114%_ + (##car _%body147375147383%_))) + (_%tl147381147401%_ (let () (declare (not safe)) - (##cdr _%body146088146096%_)))) + (##cdr _%body147375147383%_)))) (if (let () (declare (not safe)) - (##eq? _%hd146093146112%_ 'begin)) - (let ((_%exprs146117%_ _%tl146094146114%_)) - (_%K146092146109%_ _%exprs146117%_)) - (_%else146090146104%_))) - (_%else146090146104%_))))) - (cons 'lambda (cons _%hd146085%_ _%body146119%_))))) + (##eq? _%hd147380147399%_ 'begin)) + (let ((_%exprs147404%_ _%tl147381147401%_)) + (_%K147379147396%_ _%exprs147404%_)) + (_%else147377147391%_))) + (_%else147377147391%_))))) + (cons 'lambda (cons _%hd147372%_ _%body147406%_))))) (define gxc#generate-runtime-lambda-head - (lambda (_%hd146079%_) + (lambda (_%hd147366%_) (let () (declare (not safe)) - (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd146079%_)))) + (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd147366%_)))) (define gxc#generate-runtime-case-lambda% - (lambda (_%self144618%_ _%stx144619%_) - (letrec ((_%dispatch-case?144621%_ - (lambda (_%hd145309%_ _%body145310%_) - (let* ((_%form145312%_ - (cons _%hd145309%_ (cons _%body145310%_ '()))) - (_%__stx147634147635%_ _%form145312%_) - (_%g145317145474%_ + (lambda (_%self145905%_ _%stx145906%_) + (letrec ((_%dispatch-case?145908%_ + (lambda (_%hd146596%_ _%body146597%_) + (let* ((_%form146599%_ + (cons _%hd146596%_ (cons _%body146597%_ '()))) + (_%__stx148921148922%_ _%form146599%_) + (_%g146604146761%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147634147635%_))))) - (let ((_%__kont147636147637%_ - (lambda (_%L145999%_ _%L146000%_ _%L146001%_) + _%__stx148921148922%_))))) + (let ((_%__kont148923148924%_ + (lambda (_%L147286%_ _%L147287%_ _%L147288%_) '#t)) - (_%__kont147642147643%_ - (lambda (_%L145787%_ - _%L145788%_ - _%L145789%_ - _%L145790%_ - _%L145791%_ - _%L145792%_) + (_%__kont148929148930%_ + (lambda (_%L147074%_ + _%L147075%_ + _%L147076%_ + _%L147077%_ + _%L147078%_ + _%L147079%_) '#t)) - (_%__kont147648147649%_ - (lambda (_%L145582%_ - _%L145583%_ - _%L145584%_ - _%L145585%_) + (_%__kont148935148936%_ + (lambda (_%L146869%_ + _%L146870%_ + _%L146871%_ + _%L146872%_) '#t)) - (_%__kont147650147651%_ (lambda () '#f))) - (let* ((_%__match147775147776%_ - (lambda (_%e145434145486%_ - _%hd145435145489%_ - _%tl145436145491%_ - _%e145437145494%_ - _%hd145438145497%_ - _%tl145439145499%_ - _%e145440145502%_ - _%hd145441145505%_ - _%tl145442145507%_ - _%e145443145510%_ - _%hd145444145513%_ - _%tl145445145515%_ - _%e145446145518%_ - _%hd145447145521%_ - _%tl145448145523%_ - _%e145449145526%_ - _%hd145450145529%_ - _%tl145451145531%_ - _%e145452145534%_ - _%hd145453145537%_ - _%tl145454145539%_ - _%e145455145542%_ - _%hd145456145545%_ - _%tl145457145547%_ - _%e145458145550%_ - _%hd145459145553%_ - _%tl145460145555%_ - _%e145461145558%_ - _%hd145462145561%_ - _%tl145463145563%_ - _%e145464145566%_ - _%hd145465145569%_ - _%tl145466145571%_ - _%e145467145574%_ - _%hd145468145577%_ - _%tl145469145579%_) - (let ((_%L145582%_ _%hd145468145577%_) - (_%L145583%_ _%hd145459145553%_) - (_%L145584%_ _%hd145450145529%_) - (_%L145585%_ _%hd145435145489%_)) + (_%__kont148937148938%_ (lambda () '#f))) + (let* ((_%__match149062149063%_ + (lambda (_%e146721146773%_ + _%hd146722146776%_ + _%tl146723146778%_ + _%e146724146781%_ + _%hd146725146784%_ + _%tl146726146786%_ + _%e146727146789%_ + _%hd146728146792%_ + _%tl146729146794%_ + _%e146730146797%_ + _%hd146731146800%_ + _%tl146732146802%_ + _%e146733146805%_ + _%hd146734146808%_ + _%tl146735146810%_ + _%e146736146813%_ + _%hd146737146816%_ + _%tl146738146818%_ + _%e146739146821%_ + _%hd146740146824%_ + _%tl146741146826%_ + _%e146742146829%_ + _%hd146743146832%_ + _%tl146744146834%_ + _%e146745146837%_ + _%hd146746146840%_ + _%tl146747146842%_ + _%e146748146845%_ + _%hd146749146848%_ + _%tl146750146850%_ + _%e146751146853%_ + _%hd146752146856%_ + _%tl146753146858%_ + _%e146754146861%_ + _%hd146755146864%_ + _%tl146756146866%_) + (let ((_%L146869%_ _%hd146755146864%_) + (_%L146870%_ _%hd146746146840%_) + (_%L146871%_ _%hd146737146816%_) + (_%L146872%_ _%hd146722146776%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L145585%_)) + (gx#identifier? _%L146872%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L145584%_ + _%L146871%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L145585%_ - _%L145582%_)) + _%L146872%_ + _%L146869%_)) (not (let () (declare (not safe)) (gx#free-identifier=? - _%L145583%_ - _%L145585%_)))) - (_%__kont147648147649%_ - _%L145582%_ - _%L145583%_ - _%L145584%_ - _%L145585%_) - (_%__kont147650147651%_))))) - (_%__match147747147748%_ - (lambda (_%e145434145486%_ - _%hd145435145489%_ - _%tl145436145491%_ - _%e145437145494%_ - _%hd145438145497%_ - _%tl145439145499%_ - _%e145440145502%_ - _%hd145441145505%_ - _%tl145442145507%_ - _%e145443145510%_ - _%hd145444145513%_ - _%tl145445145515%_ - _%e145446145518%_ - _%hd145447145521%_ - _%tl145448145523%_ - _%e145449145526%_ - _%hd145450145529%_ - _%tl145451145531%_ - _%e145452145534%_ - _%hd145453145537%_ - _%tl145454145539%_ - _%e145455145542%_ - _%hd145456145545%_ - _%tl145457145547%_ - _%e145458145550%_ - _%hd145459145553%_ - _%tl145460145555%_) + _%L146870%_ + _%L146872%_)))) + (_%__kont148935148936%_ + _%L146869%_ + _%L146870%_ + _%L146871%_ + _%L146872%_) + (_%__kont148937148938%_))))) + (_%__match149034149035%_ + (lambda (_%e146721146773%_ + _%hd146722146776%_ + _%tl146723146778%_ + _%e146724146781%_ + _%hd146725146784%_ + _%tl146726146786%_ + _%e146727146789%_ + _%hd146728146792%_ + _%tl146729146794%_ + _%e146730146797%_ + _%hd146731146800%_ + _%tl146732146802%_ + _%e146733146805%_ + _%hd146734146808%_ + _%tl146735146810%_ + _%e146736146813%_ + _%hd146737146816%_ + _%tl146738146818%_ + _%e146739146821%_ + _%hd146740146824%_ + _%tl146741146826%_ + _%e146742146829%_ + _%hd146743146832%_ + _%tl146744146834%_ + _%e146745146837%_ + _%hd146746146840%_ + _%tl146747146842%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145454145539%_)) - (let ((_%e145461145558%_ + (gx#stx-pair? _%tl146741146826%_)) + (let ((_%e146748146845%_ (let () (declare (not safe)) - (gx#stx-e _%tl145454145539%_)))) - (let ((_%tl145463145563%_ + (gx#stx-e _%tl146741146826%_)))) + (let ((_%tl146750146850%_ (let () (declare (not safe)) - (##cdr _%e145461145558%_))) - (_%hd145462145561%_ + (##cdr _%e146748146845%_))) + (_%hd146749146848%_ (let () (declare (not safe)) - (##car _%e145461145558%_)))) + (##car _%e146748146845%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145462145561%_)) - (let ((_%e145464145566%_ + _%hd146749146848%_)) + (let ((_%e146751146853%_ (let () (declare (not safe)) (gx#stx-e - _%hd145462145561%_)))) - (let ((_%tl145466145571%_ + _%hd146749146848%_)))) + (let ((_%tl146753146858%_ (let () (declare (not safe)) - (##cdr _%e145464145566%_))) - (_%hd145465145569%_ + (##cdr _%e146751146853%_))) + (_%hd146752146856%_ (let () (declare (not safe)) - (##car _%e145464145566%_)))) + (##car _%e146751146853%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145465145569%_)) + _%hd146752146856%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145465145569%_)) + _%hd146752146856%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl145466145571%_)) - (let ((_%e145467145574%_ + (gx#stx-pair? _%tl146753146858%_)) + (let ((_%e146754146861%_ (let () (declare (not safe)) - (gx#stx-e _%tl145466145571%_)))) - (let ((_%tl145469145579%_ + (gx#stx-e _%tl146753146858%_)))) + (let ((_%tl146756146866%_ (let () (declare (not safe)) - (##cdr _%e145467145574%_))) - (_%hd145468145577%_ + (##cdr _%e146754146861%_))) + (_%hd146755146864%_ (let () (declare (not safe)) - (##car _%e145467145574%_)))) + (##car _%e146754146861%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145469145579%_)) + (gx#stx-null? _%tl146756146866%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145463145563%_)) + (gx#stx-null? _%tl146750146850%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145439145499%_)) - (_%__match147775147776%_ - _%e145434145486%_ - _%hd145435145489%_ - _%tl145436145491%_ - _%e145437145494%_ - _%hd145438145497%_ - _%tl145439145499%_ - _%e145440145502%_ - _%hd145441145505%_ - _%tl145442145507%_ - _%e145443145510%_ - _%hd145444145513%_ - _%tl145445145515%_ - _%e145446145518%_ - _%hd145447145521%_ - _%tl145448145523%_ - _%e145449145526%_ - _%hd145450145529%_ - _%tl145451145531%_ - _%e145452145534%_ - _%hd145453145537%_ - _%tl145454145539%_ - _%e145455145542%_ - _%hd145456145545%_ - _%tl145457145547%_ - _%e145458145550%_ - _%hd145459145553%_ - _%tl145460145555%_ - _%e145461145558%_ - _%hd145462145561%_ - _%tl145463145563%_ - _%e145464145566%_ - _%hd145465145569%_ - _%tl145466145571%_ - _%e145467145574%_ - _%hd145468145577%_ - _%tl145469145579%_) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)))) - (_%__match147677147678%_ - (lambda (_%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%__splice147644147645%_ - _%target145373145635%_ - _%tl145375145637%_) - (letrec ((_%loop145376145640%_ - (lambda (_%hd145374145643%_ - _%arg145380145645%_) + (gx#stx-null? _%tl146726146786%_)) + (_%__match149062149063%_ + _%e146721146773%_ + _%hd146722146776%_ + _%tl146723146778%_ + _%e146724146781%_ + _%hd146725146784%_ + _%tl146726146786%_ + _%e146727146789%_ + _%hd146728146792%_ + _%tl146729146794%_ + _%e146730146797%_ + _%hd146731146800%_ + _%tl146732146802%_ + _%e146733146805%_ + _%hd146734146808%_ + _%tl146735146810%_ + _%e146736146813%_ + _%hd146737146816%_ + _%tl146738146818%_ + _%e146739146821%_ + _%hd146740146824%_ + _%tl146741146826%_ + _%e146742146829%_ + _%hd146743146832%_ + _%tl146744146834%_ + _%e146745146837%_ + _%hd146746146840%_ + _%tl146747146842%_ + _%e146748146845%_ + _%hd146749146848%_ + _%tl146750146850%_ + _%e146751146853%_ + _%hd146752146856%_ + _%tl146753146858%_ + _%e146754146861%_ + _%hd146755146864%_ + _%tl146756146866%_) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)))) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148937148938%_)))) + (_%__kont148937148938%_)))) + (_%__match148964148965%_ + (lambda (_%e146657146914%_ + _%hd146658146917%_ + _%tl146659146919%_ + _%__splice148931148932%_ + _%target146660146922%_ + _%tl146662146924%_) + (letrec ((_%loop146663146927%_ + (lambda (_%hd146661146930%_ + _%arg146667146932%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145374145643%_)) - (let ((_%e145377145648%_ + _%hd146661146930%_)) + (let ((_%e146664146935%_ (let () (declare (not safe)) (gx#stx-e - _%hd145374145643%_)))) - (let ((_%lp-tl145379145653%_ + _%hd146661146930%_)))) + (let ((_%lp-tl146666146940%_ (let () (declare (not safe)) - (##cdr _%e145377145648%_))) - (_%lp-hd145378145651%_ + (##cdr _%e146664146935%_))) + (_%lp-hd146665146938%_ (let () (declare (not safe)) - (##car _%e145377145648%_)))) - (_%loop145376145640%_ - _%lp-tl145379145653%_ - (cons _%lp-hd145378145651%_ - _%arg145380145645%_)))) - (let ((_%arg145381145656%_ - (reverse _%arg145380145645%_))) + (##car _%e146664146935%_)))) + (_%loop146663146927%_ + _%lp-tl146666146940%_ + (cons _%lp-hd146665146938%_ + _%arg146667146932%_)))) + (let ((_%arg146668146943%_ + (reverse _%arg146667146932%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145372145632%_)) - (let ((_%e145382145659%_ + _%tl146659146919%_)) + (let ((_%e146669146946%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl145372145632%_)))) - (let ((_%tl145384145664%_ + (gx#stx-e _%tl146659146919%_)))) + (let ((_%tl146671146951%_ (let () (declare (not safe)) - (##cdr _%e145382145659%_))) - (_%hd145383145662%_ + (##cdr _%e146669146946%_))) + (_%hd146670146949%_ (let () (declare (not safe)) - (##car _%e145382145659%_)))) + (##car _%e146669146946%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145383145662%_)) - (let ((_%e145385145667%_ + (gx#stx-pair? _%hd146670146949%_)) + (let ((_%e146672146954%_ (let () (declare (not safe)) - (gx#stx-e _%hd145383145662%_)))) - (let ((_%tl145387145672%_ + (gx#stx-e _%hd146670146949%_)))) + (let ((_%tl146674146959%_ (let () (declare (not safe)) - (##cdr _%e145385145667%_))) - (_%hd145386145670%_ + (##cdr _%e146672146954%_))) + (_%hd146673146957%_ (let () (declare (not safe)) - (##car _%e145385145667%_)))) + (##car _%e146672146954%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145386145670%_)) + (gx#identifier? _%hd146673146957%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd145386145670%_)) + (gx#stx-eq? '%#call _%hd146673146957%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145387145672%_)) - (let ((_%e145388145675%_ + (gx#stx-pair? _%tl146674146959%_)) + (let ((_%e146675146962%_ (let () (declare (not safe)) (gx#stx-e - _%tl145387145672%_)))) - (let ((_%tl145390145680%_ + _%tl146674146959%_)))) + (let ((_%tl146677146967%_ (let () (declare (not safe)) - (##cdr _%e145388145675%_))) - (_%hd145389145678%_ + (##cdr _%e146675146962%_))) + (_%hd146676146965%_ (let () (declare (not safe)) - (##car _%e145388145675%_)))) + (##car _%e146675146962%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145389145678%_)) - (let ((_%e145391145683%_ + _%hd146676146965%_)) + (let ((_%e146678146970%_ (let () (declare (not safe)) (gx#stx-e - _%hd145389145678%_)))) - (let ((_%tl145393145688%_ + _%hd146676146965%_)))) + (let ((_%tl146680146975%_ (let () (declare (not safe)) - (##cdr _%e145391145683%_))) - (_%hd145392145686%_ + (##cdr _%e146678146970%_))) + (_%hd146679146973%_ (let () (declare (not safe)) - (##car _%e145391145683%_)))) + (##car _%e146678146970%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145392145686%_)) + _%hd146679146973%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145392145686%_)) + _%hd146679146973%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl145393145688%_)) - (let ((_%e145394145691%_ + (gx#stx-pair? _%tl146680146975%_)) + (let ((_%e146681146978%_ (let () (declare (not safe)) - (gx#stx-e _%tl145393145688%_)))) - (let ((_%tl145396145696%_ + (gx#stx-e _%tl146680146975%_)))) + (let ((_%tl146683146983%_ (let () (declare (not safe)) - (##cdr _%e145394145691%_))) - (_%hd145395145694%_ + (##cdr _%e146681146978%_))) + (_%hd146682146981%_ (let () (declare (not safe)) - (##car _%e145394145691%_)))) + (##car _%e146681146978%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145396145696%_)) + (gx#stx-null? _%tl146683146983%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145390145680%_)) - (let ((_%e145397145699%_ + (gx#stx-pair? _%tl146677146967%_)) + (let ((_%e146684146986%_ (let () (declare (not safe)) - (gx#stx-e _%tl145390145680%_)))) - (let ((_%tl145399145704%_ + (gx#stx-e _%tl146677146967%_)))) + (let ((_%tl146686146991%_ (let () (declare (not safe)) - (##cdr _%e145397145699%_))) - (_%hd145398145702%_ + (##cdr _%e146684146986%_))) + (_%hd146685146989%_ (let () (declare (not safe)) - (##car _%e145397145699%_)))) + (##car _%e146684146986%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145398145702%_)) - (let ((_%e145400145707%_ + _%hd146685146989%_)) + (let ((_%e146687146994%_ (let () (declare (not safe)) (gx#stx-e - _%hd145398145702%_)))) - (let ((_%tl145402145712%_ + _%hd146685146989%_)))) + (let ((_%tl146689146999%_ (let () (declare (not safe)) - (##cdr _%e145400145707%_))) - (_%hd145401145710%_ + (##cdr _%e146687146994%_))) + (_%hd146688146997%_ (let () (declare (not safe)) - (##car _%e145400145707%_)))) + (##car _%e146687146994%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145401145710%_)) + _%hd146688146997%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145401145710%_)) + _%hd146688146997%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145402145712%_)) - (let ((_%e145403145715%_ + _%tl146689146999%_)) + (let ((_%e146690147002%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl145402145712%_)))) - (let ((_%tl145405145720%_ + (gx#stx-e _%tl146689146999%_)))) + (let ((_%tl146692147007%_ (let () (declare (not safe)) - (##cdr _%e145403145715%_))) - (_%hd145404145718%_ + (##cdr _%e146690147002%_))) + (_%hd146691147005%_ (let () (declare (not safe)) - (##car _%e145403145715%_)))) + (##car _%e146690147002%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145405145720%_)) + (gx#stx-null? _%tl146692147007%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl145399145704%_)) - (if (let ((__tmp148916 + (gx#stx-pair/null? _%tl146686146991%_)) + (if (let ((__tmp150203 (let () (declare (not safe)) (gx#stx-length - _%tl145399145704%_)))) + _%tl146686146991%_)))) (declare (not safe)) - (##fx>= __tmp148916 '1)) - (let ((_%__splice147646147647%_ + (##fx>= __tmp150203 '1)) + (let ((_%__splice148933148934%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145399145704%_ + _%tl146686146991%_ '1)))) - (let ((_%tl145408145725%_ + (let ((_%tl146695147012%_ (let () (declare (not safe)) (##vector-ref - _%__splice147646147647%_ + _%__splice148933148934%_ '1))) - (_%target145406145723%_ + (_%target146693147010%_ (let () (declare (not safe)) (##vector-ref - _%__splice147646147647%_ + _%__splice148933148934%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145408145725%_)) - (let ((_%e145415145728%_ + _%tl146695147012%_)) + (let ((_%e146702147015%_ (let () (declare (not safe)) (gx#stx-e - _%tl145408145725%_)))) - (let ((_%tl145417145733%_ + _%tl146695147012%_)))) + (let ((_%tl146704147020%_ (let () (declare (not safe)) - (##cdr _%e145415145728%_))) - (_%hd145416145731%_ + (##cdr _%e146702147015%_))) + (_%hd146703147018%_ (let () (declare (not safe)) - (##car _%e145415145728%_)))) + (##car _%e146702147015%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145416145731%_)) - (let ((_%e145418145736%_ + _%hd146703147018%_)) + (let ((_%e146705147023%_ (let () (declare (not safe)) (gx#stx-e - _%hd145416145731%_)))) - (let ((_%tl145420145741%_ + _%hd146703147018%_)))) + (let ((_%tl146707147028%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e145418145736%_))) - (_%hd145419145739%_ - (let () (declare (not safe)) (##car _%e145418145736%_)))) + (##cdr _%e146705147023%_))) + (_%hd146706147026%_ + (let () (declare (not safe)) (##car _%e146705147023%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145419145739%_)) + (gx#identifier? _%hd146706147026%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd145419145739%_)) + (gx#stx-eq? '%#ref _%hd146706147026%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145420145741%_)) - (let ((_%e145421145744%_ + (gx#stx-pair? _%tl146707147028%_)) + (let ((_%e146708147031%_ (let () (declare (not safe)) - (gx#stx-e _%tl145420145741%_)))) - (let ((_%tl145423145749%_ + (gx#stx-e _%tl146707147028%_)))) + (let ((_%tl146710147036%_ (let () (declare (not safe)) - (##cdr _%e145421145744%_))) - (_%hd145422145747%_ + (##cdr _%e146708147031%_))) + (_%hd146709147034%_ (let () (declare (not safe)) - (##car _%e145421145744%_)))) + (##car _%e146708147031%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145423145749%_)) + (gx#stx-null? _%tl146710147036%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145417145733%_)) - (letrec ((_%loop145409145752%_ - (lambda (_%hd145407145755%_ - _%xarg145413145757%_) + (gx#stx-null? _%tl146704147020%_)) + (letrec ((_%loop146696147039%_ + (lambda (_%hd146694147042%_ + _%xarg146700147044%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145407145755%_)) - (let ((_%e145410145760%_ + _%hd146694147042%_)) + (let ((_%e146697147047%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd145407145755%_)))) - (let ((_%lp-tl145412145765%_ + (gx#stx-e _%hd146694147042%_)))) + (let ((_%lp-tl146699147052%_ (let () (declare (not safe)) - (##cdr _%e145410145760%_))) - (_%lp-hd145411145763%_ + (##cdr _%e146697147047%_))) + (_%lp-hd146698147050%_ (let () (declare (not safe)) - (##car _%e145410145760%_)))) + (##car _%e146697147047%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd145411145763%_)) - (let ((_%e145424145768%_ + (gx#stx-pair? _%lp-hd146698147050%_)) + (let ((_%e146711147055%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd145411145763%_)))) - (let ((_%tl145426145773%_ + (gx#stx-e _%lp-hd146698147050%_)))) + (let ((_%tl146713147060%_ (let () (declare (not safe)) - (##cdr _%e145424145768%_))) - (_%hd145425145771%_ + (##cdr _%e146711147055%_))) + (_%hd146712147058%_ (let () (declare (not safe)) - (##car _%e145424145768%_)))) + (##car _%e146711147055%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145425145771%_)) + (gx#identifier? _%hd146712147058%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd145425145771%_)) + (gx#stx-eq? '%#ref _%hd146712147058%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145426145773%_)) - (let ((_%e145427145776%_ + (gx#stx-pair? _%tl146713147060%_)) + (let ((_%e146714147063%_ (let () (declare (not safe)) (gx#stx-e - _%tl145426145773%_)))) - (let ((_%tl145429145781%_ + _%tl146713147060%_)))) + (let ((_%tl146716147068%_ (let () (declare (not safe)) - (##cdr _%e145427145776%_))) - (_%hd145428145779%_ + (##cdr _%e146714147063%_))) + (_%hd146715147066%_ (let () (declare (not safe)) - (##car _%e145427145776%_)))) + (##car _%e146714147063%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145429145781%_)) - (_%loop145409145752%_ - _%lp-tl145412145765%_ - (cons _%hd145428145779%_ - _%xarg145413145757%_)) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)))) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)))) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)))) - (let ((_%xarg145414145784%_ (reverse _%xarg145413145757%_))) + _%tl146716147068%_)) + (_%loop146696147039%_ + _%lp-tl146699147052%_ + (cons _%hd146715147066%_ + _%xarg146700147044%_)) + (_%__match149034149035%_ + _%e146657146914%_ + _%hd146658146917%_ + _%tl146659146919%_ + _%e146669146946%_ + _%hd146670146949%_ + _%tl146671146951%_ + _%e146672146954%_ + _%hd146673146957%_ + _%tl146674146959%_ + _%e146675146962%_ + _%hd146676146965%_ + _%tl146677146967%_ + _%e146678146970%_ + _%hd146679146973%_ + _%tl146680146975%_ + _%e146681146978%_ + _%hd146682146981%_ + _%tl146683146983%_ + _%e146684146986%_ + _%hd146685146989%_ + _%tl146686146991%_ + _%e146687146994%_ + _%hd146688146997%_ + _%tl146689146999%_ + _%e146690147002%_ + _%hd146691147005%_ + _%tl146692147007%_)))) + (_%__match149034149035%_ + _%e146657146914%_ + _%hd146658146917%_ + _%tl146659146919%_ + _%e146669146946%_ + _%hd146670146949%_ + _%tl146671146951%_ + _%e146672146954%_ + _%hd146673146957%_ + _%tl146674146959%_ + _%e146675146962%_ + _%hd146676146965%_ + _%tl146677146967%_ + _%e146678146970%_ + _%hd146679146973%_ + _%tl146680146975%_ + _%e146681146978%_ + _%hd146682146981%_ + _%tl146683146983%_ + _%e146684146986%_ + _%hd146685146989%_ + _%tl146686146991%_ + _%e146687146994%_ + _%hd146688146997%_ + _%tl146689146999%_ + _%e146690147002%_ + _%hd146691147005%_ + _%tl146692147007%_)) + (_%__match149034149035%_ + _%e146657146914%_ + _%hd146658146917%_ + _%tl146659146919%_ + _%e146669146946%_ + _%hd146670146949%_ + _%tl146671146951%_ + _%e146672146954%_ + _%hd146673146957%_ + _%tl146674146959%_ + _%e146675146962%_ + _%hd146676146965%_ + _%tl146677146967%_ + _%e146678146970%_ + _%hd146679146973%_ + _%tl146680146975%_ + _%e146681146978%_ + _%hd146682146981%_ + _%tl146683146983%_ + _%e146684146986%_ + _%hd146685146989%_ + _%tl146686146991%_ + _%e146687146994%_ + _%hd146688146997%_ + _%tl146689146999%_ + _%e146690147002%_ + _%hd146691147005%_ + _%tl146692147007%_)) + (_%__match149034149035%_ + _%e146657146914%_ + _%hd146658146917%_ + _%tl146659146919%_ + _%e146669146946%_ + _%hd146670146949%_ + _%tl146671146951%_ + _%e146672146954%_ + _%hd146673146957%_ + _%tl146674146959%_ + _%e146675146962%_ + _%hd146676146965%_ + _%tl146677146967%_ + _%e146678146970%_ + _%hd146679146973%_ + _%tl146680146975%_ + _%e146681146978%_ + _%hd146682146981%_ + _%tl146683146983%_ + _%e146684146986%_ + _%hd146685146989%_ + _%tl146686146991%_ + _%e146687146994%_ + _%hd146688146997%_ + _%tl146689146999%_ + _%e146690147002%_ + _%hd146691147005%_ + _%tl146692147007%_)))) + (_%__match149034149035%_ + _%e146657146914%_ + _%hd146658146917%_ + _%tl146659146919%_ + _%e146669146946%_ + _%hd146670146949%_ + _%tl146671146951%_ + _%e146672146954%_ + _%hd146673146957%_ + _%tl146674146959%_ + _%e146675146962%_ + _%hd146676146965%_ + _%tl146677146967%_ + _%e146678146970%_ + _%hd146679146973%_ + _%tl146680146975%_ + _%e146681146978%_ + _%hd146682146981%_ + _%tl146683146983%_ + _%e146684146986%_ + _%hd146685146989%_ + _%tl146686146991%_ + _%e146687146994%_ + _%hd146688146997%_ + _%tl146689146999%_ + _%e146690147002%_ + _%hd146691147005%_ + _%tl146692147007%_)))) + (let ((_%xarg146701147071%_ (reverse _%xarg146700147044%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145384145664%_)) - (let ((_%L145787%_ _%hd145422145747%_) - (_%L145788%_ _%xarg145414145784%_) - (_%L145789%_ _%hd145404145718%_) - (_%L145790%_ _%hd145395145694%_) - (_%L145791%_ _%tl145375145637%_) - (_%L145792%_ _%arg145381145656%_)) - (if (and (let ((__tmp148917 - (let ((__tmp148918 - (lambda (_%g145835145838%_ - _%g145836145840%_) - (cons _%g145835145838%_ - _%g145836145840%_)))) + (gx#stx-null? _%tl146671146951%_)) + (let ((_%L147074%_ _%hd146709147034%_) + (_%L147075%_ _%xarg146701147071%_) + (_%L147076%_ _%hd146691147005%_) + (_%L147077%_ _%hd146682146981%_) + (_%L147078%_ _%tl146662146924%_) + (_%L147079%_ _%arg146668146943%_)) + (if (and (let ((__tmp150204 + (let ((__tmp150205 + (lambda (_%g147122147125%_ + _%g147123147127%_) + (cons _%g147122147125%_ + _%g147123147127%_)))) (declare (not safe)) (__foldr1 - __tmp148918 + __tmp150205 '() - _%L145792%_)))) + _%L147079%_)))) (declare (not safe)) - (gx#identifier-list? __tmp148917)) + (gx#identifier-list? __tmp150204)) (let () (declare (not safe)) - (gx#identifier? _%L145791%_)) + (gx#identifier? _%L147078%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L145790%_ + _%L147077%_ 'apply)) - (let ((__tmp148921 - (length (let ((__tmp148922 - (lambda (_%g145842145845%_ - _%g145843145847%_) - (cons _%g145842145845%_ - _%g145843145847%_)))) + (let ((__tmp150208 + (length (let ((__tmp150209 + (lambda (_%g147129147132%_ + _%g147130147134%_) + (cons _%g147129147132%_ + _%g147130147134%_)))) (declare (not safe)) (__foldr1 - __tmp148922 + __tmp150209 '() - _%L145792%_)))) - (__tmp148919 - (length (let ((__tmp148920 - (lambda (_%g145849145852%_ - _%g145850145854%_) - (cons _%g145849145852%_ - _%g145850145854%_)))) + _%L147079%_)))) + (__tmp150206 + (length (let ((__tmp150207 + (lambda (_%g147136147139%_ + _%g147137147141%_) + (cons _%g147136147139%_ + _%g147137147141%_)))) (declare (not safe)) (__foldr1 - __tmp148920 + __tmp150207 '() - _%L145788%_))))) + _%L147075%_))))) (declare (not safe)) - (##fx= __tmp148921 __tmp148919)) - (let ((__tmp148925 - (let ((__tmp148926 - (lambda (_%g145856145859%_ - _%g145857145861%_) - (cons _%g145856145859%_ - _%g145857145861%_)))) + (##fx= __tmp150208 __tmp150206)) + (let ((__tmp150212 + (let ((__tmp150213 + (lambda (_%g147143147146%_ + _%g147144147148%_) + (cons _%g147143147146%_ + _%g147144147148%_)))) (declare (not safe)) (__foldr1 - __tmp148926 + __tmp150213 '() - _%L145792%_))) - (__tmp148923 - (let ((__tmp148924 - (lambda (_%g145863145866%_ - _%g145864145868%_) - (cons _%g145863145866%_ - _%g145864145868%_)))) + _%L147079%_))) + (__tmp150210 + (let ((__tmp150211 + (lambda (_%g147150147153%_ + _%g147151147155%_) + (cons _%g147150147153%_ + _%g147151147155%_)))) (declare (not safe)) (__foldr1 - __tmp148924 + __tmp150211 '() - _%L145788%_)))) + _%L147075%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp148925 - __tmp148923)) + __tmp150212 + __tmp150210)) (let () (declare (not safe)) (gx#free-identifier=? - _%L145791%_ - _%L145787%_)) - (not (let ((__tmp148930 - (lambda (_%g145870145872%_) + _%L147078%_ + _%L147074%_)) + (not (let ((__tmp150217 + (lambda (_%g147157147159%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g145870145872%_ - _%L145789%_)))) - (__tmp148927 - (let ((__tmp148929 - (lambda (_%g145874145877%_ - _%g145875145879%_) - (cons _%g145874145877%_ - _%g145875145879%_))) - (__tmp148928 - (cons _%L145791%_ '()))) + _%g147157147159%_ + _%L147076%_)))) + (__tmp150214 + (let ((__tmp150216 + (lambda (_%g147161147164%_ + _%g147162147166%_) + (cons _%g147161147164%_ + _%g147162147166%_))) + (__tmp150215 + (cons _%L147078%_ '()))) (declare (not safe)) (__foldr1 - __tmp148929 - __tmp148928 - _%L145792%_)))) + __tmp150216 + __tmp150215 + _%L147079%_)))) (declare (not safe)) - (__find __tmp148930 __tmp148927)))) - (_%__kont147642147643%_ - _%L145787%_ - _%L145788%_ - _%L145789%_ - _%L145790%_ - _%L145791%_ - _%L145792%_) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_))) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145409145752%_ - _%target145406145723%_ + (__find __tmp150217 __tmp150214)))) + (_%__kont148929148930%_ + _%L147074%_ + _%L147075%_ + _%L147076%_ + _%L147077%_ + _%L147078%_ + _%L147079%_) + (_%__match149034149035%_ + _%e146657146914%_ + _%hd146658146917%_ + _%tl146659146919%_ + _%e146669146946%_ + _%hd146670146949%_ + _%tl146671146951%_ + _%e146672146954%_ + _%hd146673146957%_ + _%tl146674146959%_ + _%e146675146962%_ + _%hd146676146965%_ + _%tl146677146967%_ + _%e146678146970%_ + _%hd146679146973%_ + _%tl146680146975%_ + _%e146681146978%_ + _%hd146682146981%_ + _%tl146683146983%_ + _%e146684146986%_ + _%hd146685146989%_ + _%tl146686146991%_ + _%e146687146994%_ + _%hd146688146997%_ + _%tl146689146999%_ + _%e146690147002%_ + _%hd146691147005%_ + _%tl146692147007%_))) + (_%__match149034149035%_ + _%e146657146914%_ + _%hd146658146917%_ + _%tl146659146919%_ + _%e146669146946%_ + _%hd146670146949%_ + _%tl146671146951%_ + _%e146672146954%_ + _%hd146673146957%_ + _%tl146674146959%_ + _%e146675146962%_ + _%hd146676146965%_ + _%tl146677146967%_ + _%e146678146970%_ + _%hd146679146973%_ + _%tl146680146975%_ + _%e146681146978%_ + _%hd146682146981%_ + _%tl146683146983%_ + _%e146684146986%_ + _%hd146685146989%_ + _%tl146686146991%_ + _%e146687146994%_ + _%hd146688146997%_ + _%tl146689146999%_ + _%e146690147002%_ + _%hd146691147005%_ + _%tl146692147007%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop146696147039%_ + _%target146693147010%_ '())) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)))) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)))) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)))) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)) - (_%__match147747147748%_ - _%e145370145627%_ - _%hd145371145630%_ - _%tl145372145632%_ - _%e145382145659%_ - _%hd145383145662%_ - _%tl145384145664%_ - _%e145385145667%_ - _%hd145386145670%_ - _%tl145387145672%_ - _%e145388145675%_ - _%hd145389145678%_ - _%tl145390145680%_ - _%e145391145683%_ - _%hd145392145686%_ - _%tl145393145688%_ - _%e145394145691%_ - _%hd145395145694%_ - _%tl145396145696%_ - _%e145397145699%_ - _%hd145398145702%_ - _%tl145399145704%_ - _%e145400145707%_ - _%hd145401145710%_ - _%tl145402145712%_ - _%e145403145715%_ - _%hd145404145718%_ - _%tl145405145720%_)) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145376145640%_ - _%target145373145635%_ + (_%__match149034149035%_ + _%e146657146914%_ + _%hd146658146917%_ + _%tl146659146919%_ + _%e146669146946%_ + _%hd146670146949%_ + _%tl146671146951%_ + _%e146672146954%_ + _%hd146673146957%_ + _%tl146674146959%_ + _%e146675146962%_ + _%hd146676146965%_ + _%tl146677146967%_ + _%e146678146970%_ + _%hd146679146973%_ + _%tl146680146975%_ + _%e146681146978%_ + _%hd146682146981%_ + _%tl146683146983%_ + _%e146684146986%_ + _%hd146685146989%_ + _%tl146686146991%_ + _%e146687146994%_ + _%hd146688146997%_ + _%tl146689146999%_ + _%e146690147002%_ + _%hd146691147005%_ + _%tl146692147007%_)) + (_%__match149034149035%_ + _%e146657146914%_ + _%hd146658146917%_ + _%tl146659146919%_ + _%e146669146946%_ + _%hd146670146949%_ + _%tl146671146951%_ + _%e146672146954%_ + _%hd146673146957%_ + _%tl146674146959%_ + _%e146675146962%_ + _%hd146676146965%_ + _%tl146677146967%_ + _%e146678146970%_ + _%hd146679146973%_ + _%tl146680146975%_ + _%e146681146978%_ + _%hd146682146981%_ + _%tl146683146983%_ + _%e146684146986%_ + _%hd146685146989%_ + _%tl146686146991%_ + _%e146687146994%_ + _%hd146688146997%_ + _%tl146689146999%_ + _%e146690147002%_ + _%hd146691147005%_ + _%tl146692147007%_)))) + (_%__match149034149035%_ + _%e146657146914%_ + _%hd146658146917%_ + _%tl146659146919%_ + _%e146669146946%_ + _%hd146670146949%_ + _%tl146671146951%_ + _%e146672146954%_ + _%hd146673146957%_ + _%tl146674146959%_ + _%e146675146962%_ + _%hd146676146965%_ + _%tl146677146967%_ + _%e146678146970%_ + _%hd146679146973%_ + _%tl146680146975%_ + _%e146681146978%_ + _%hd146682146981%_ + _%tl146683146983%_ + _%e146684146986%_ + _%hd146685146989%_ + _%tl146686146991%_ + _%e146687146994%_ + _%hd146688146997%_ + _%tl146689146999%_ + _%e146690147002%_ + _%hd146691147005%_ + _%tl146692147007%_)) + (_%__match149034149035%_ + _%e146657146914%_ + _%hd146658146917%_ + _%tl146659146919%_ + _%e146669146946%_ + _%hd146670146949%_ + _%tl146671146951%_ + _%e146672146954%_ + _%hd146673146957%_ + _%tl146674146959%_ + _%e146675146962%_ + _%hd146676146965%_ + _%tl146677146967%_ + _%e146678146970%_ + _%hd146679146973%_ + _%tl146680146975%_ + _%e146681146978%_ + _%hd146682146981%_ + _%tl146683146983%_ + _%e146684146986%_ + _%hd146685146989%_ + _%tl146686146991%_ + _%e146687146994%_ + _%hd146688146997%_ + _%tl146689146999%_ + _%e146690147002%_ + _%hd146691147005%_ + _%tl146692147007%_)) + (_%__match149034149035%_ + _%e146657146914%_ + _%hd146658146917%_ + _%tl146659146919%_ + _%e146669146946%_ + _%hd146670146949%_ + _%tl146671146951%_ + _%e146672146954%_ + _%hd146673146957%_ + _%tl146674146959%_ + _%e146675146962%_ + _%hd146676146965%_ + _%tl146677146967%_ + _%e146678146970%_ + _%hd146679146973%_ + _%tl146680146975%_ + _%e146681146978%_ + _%hd146682146981%_ + _%tl146683146983%_ + _%e146684146986%_ + _%hd146685146989%_ + _%tl146686146991%_ + _%e146687146994%_ + _%hd146688146997%_ + _%tl146689146999%_ + _%e146690147002%_ + _%hd146691147005%_ + _%tl146692147007%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match149034149035%_ + _%e146657146914%_ + _%hd146658146917%_ + _%tl146659146919%_ + _%e146669146946%_ + _%hd146670146949%_ + _%tl146671146951%_ + _%e146672146954%_ + _%hd146673146957%_ + _%tl146674146959%_ + _%e146675146962%_ + _%hd146676146965%_ + _%tl146677146967%_ + _%e146678146970%_ + _%hd146679146973%_ + _%tl146680146975%_ + _%e146681146978%_ + _%hd146682146981%_ + _%tl146683146983%_ + _%e146684146986%_ + _%hd146685146989%_ + _%tl146686146991%_ + _%e146687146994%_ + _%hd146688146997%_ + _%tl146689146999%_ + _%e146690147002%_ + _%hd146691147005%_ + _%tl146692147007%_)))) + (_%__match149034149035%_ + _%e146657146914%_ + _%hd146658146917%_ + _%tl146659146919%_ + _%e146669146946%_ + _%hd146670146949%_ + _%tl146671146951%_ + _%e146672146954%_ + _%hd146673146957%_ + _%tl146674146959%_ + _%e146675146962%_ + _%hd146676146965%_ + _%tl146677146967%_ + _%e146678146970%_ + _%hd146679146973%_ + _%tl146680146975%_ + _%e146681146978%_ + _%hd146682146981%_ + _%tl146683146983%_ + _%e146684146986%_ + _%hd146685146989%_ + _%tl146686146991%_ + _%e146687146994%_ + _%hd146688146997%_ + _%tl146689146999%_ + _%e146690147002%_ + _%hd146691147005%_ + _%tl146692147007%_)))) + (_%__match149034149035%_ + _%e146657146914%_ + _%hd146658146917%_ + _%tl146659146919%_ + _%e146669146946%_ + _%hd146670146949%_ + _%tl146671146951%_ + _%e146672146954%_ + _%hd146673146957%_ + _%tl146674146959%_ + _%e146675146962%_ + _%hd146676146965%_ + _%tl146677146967%_ + _%e146678146970%_ + _%hd146679146973%_ + _%tl146680146975%_ + _%e146681146978%_ + _%hd146682146981%_ + _%tl146683146983%_ + _%e146684146986%_ + _%hd146685146989%_ + _%tl146686146991%_ + _%e146687146994%_ + _%hd146688146997%_ + _%tl146689146999%_ + _%e146690147002%_ + _%hd146691147005%_ + _%tl146692147007%_)) + (_%__match149034149035%_ + _%e146657146914%_ + _%hd146658146917%_ + _%tl146659146919%_ + _%e146669146946%_ + _%hd146670146949%_ + _%tl146671146951%_ + _%e146672146954%_ + _%hd146673146957%_ + _%tl146674146959%_ + _%e146675146962%_ + _%hd146676146965%_ + _%tl146677146967%_ + _%e146678146970%_ + _%hd146679146973%_ + _%tl146680146975%_ + _%e146681146978%_ + _%hd146682146981%_ + _%tl146683146983%_ + _%e146684146986%_ + _%hd146685146989%_ + _%tl146686146991%_ + _%e146687146994%_ + _%hd146688146997%_ + _%tl146689146999%_ + _%e146690147002%_ + _%hd146691147005%_ + _%tl146692147007%_)) + (_%__kont148937148938%_)))) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148937148938%_)))) + (_%__kont148937148938%_)))) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)))) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148937148938%_)))) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)))) + (_%__kont148937148938%_)))) + (_%__kont148937148938%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop146663146927%_ + _%target146660146922%_ '())))) - (_%__match147665147666%_ - (lambda (_%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_) - (letrec ((_%loop145328145900%_ - (lambda (_%hd145326145903%_ - _%arg145332145905%_) + (_%__match148952148953%_ + (lambda (_%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_) + (letrec ((_%loop146615147187%_ + (lambda (_%hd146613147190%_ + _%arg146619147192%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145326145903%_)) - (let ((_%e145329145908%_ + _%hd146613147190%_)) + (let ((_%e146616147195%_ (let () (declare (not safe)) (gx#stx-e - _%hd145326145903%_)))) - (let ((_%lp-tl145331145913%_ + _%hd146613147190%_)))) + (let ((_%lp-tl146618147200%_ (let () (declare (not safe)) - (##cdr _%e145329145908%_))) - (_%lp-hd145330145911%_ + (##cdr _%e146616147195%_))) + (_%lp-hd146617147198%_ (let () (declare (not safe)) - (##car _%e145329145908%_)))) - (_%loop145328145900%_ - _%lp-tl145331145913%_ - (cons _%lp-hd145330145911%_ - _%arg145332145905%_)))) - (let ((_%arg145333145916%_ - (reverse _%arg145332145905%_))) + (##car _%e146616147195%_)))) + (_%loop146615147187%_ + _%lp-tl146618147200%_ + (cons _%lp-hd146617147198%_ + _%arg146619147192%_)))) + (let ((_%arg146620147203%_ + (reverse _%arg146619147192%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145324145892%_)) - (let ((_%e145334145919%_ + _%tl146611147179%_)) + (let ((_%e146621147206%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl145324145892%_)))) - (let ((_%tl145336145924%_ + (gx#stx-e _%tl146611147179%_)))) + (let ((_%tl146623147211%_ (let () (declare (not safe)) - (##cdr _%e145334145919%_))) - (_%hd145335145922%_ + (##cdr _%e146621147206%_))) + (_%hd146622147209%_ (let () (declare (not safe)) - (##car _%e145334145919%_)))) + (##car _%e146621147206%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145335145922%_)) - (let ((_%e145337145927%_ + (gx#stx-pair? _%hd146622147209%_)) + (let ((_%e146624147214%_ (let () (declare (not safe)) - (gx#stx-e _%hd145335145922%_)))) - (let ((_%tl145339145932%_ + (gx#stx-e _%hd146622147209%_)))) + (let ((_%tl146626147219%_ (let () (declare (not safe)) - (##cdr _%e145337145927%_))) - (_%hd145338145930%_ + (##cdr _%e146624147214%_))) + (_%hd146625147217%_ (let () (declare (not safe)) - (##car _%e145337145927%_)))) + (##car _%e146624147214%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145338145930%_)) + (gx#identifier? _%hd146625147217%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd145338145930%_)) + (gx#stx-eq? '%#call _%hd146625147217%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145339145932%_)) - (let ((_%e145340145935%_ + (gx#stx-pair? _%tl146626147219%_)) + (let ((_%e146627147222%_ (let () (declare (not safe)) (gx#stx-e - _%tl145339145932%_)))) - (let ((_%tl145342145940%_ + _%tl146626147219%_)))) + (let ((_%tl146629147227%_ (let () (declare (not safe)) - (##cdr _%e145340145935%_))) - (_%hd145341145938%_ + (##cdr _%e146627147222%_))) + (_%hd146628147225%_ (let () (declare (not safe)) - (##car _%e145340145935%_)))) + (##car _%e146627147222%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145341145938%_)) - (let ((_%e145343145943%_ + _%hd146628147225%_)) + (let ((_%e146630147230%_ (let () (declare (not safe)) (gx#stx-e - _%hd145341145938%_)))) - (let ((_%tl145345145948%_ + _%hd146628147225%_)))) + (let ((_%tl146632147235%_ (let () (declare (not safe)) - (##cdr _%e145343145943%_))) - (_%hd145344145946%_ + (##cdr _%e146630147230%_))) + (_%hd146631147233%_ (let () (declare (not safe)) - (##car _%e145343145943%_)))) + (##car _%e146630147230%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145344145946%_)) + _%hd146631147233%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145344145946%_)) + _%hd146631147233%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl145345145948%_)) - (let ((_%e145346145951%_ + (gx#stx-pair? _%tl146632147235%_)) + (let ((_%e146633147238%_ (let () (declare (not safe)) - (gx#stx-e _%tl145345145948%_)))) - (let ((_%tl145348145956%_ + (gx#stx-e _%tl146632147235%_)))) + (let ((_%tl146635147243%_ (let () (declare (not safe)) - (##cdr _%e145346145951%_))) - (_%hd145347145954%_ + (##cdr _%e146633147238%_))) + (_%hd146634147241%_ (let () (declare (not safe)) - (##car _%e145346145951%_)))) + (##car _%e146633147238%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145348145956%_)) + (gx#stx-null? _%tl146635147243%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl145342145940%_)) - (let ((_%__splice147640147641%_ + (gx#stx-pair/null? _%tl146629147227%_)) + (let ((_%__splice148927148928%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145342145940%_ + _%tl146629147227%_ '0)))) - (let ((_%tl145351145961%_ + (let ((_%tl146638147248%_ (let () (declare (not safe)) (##vector-ref - _%__splice147640147641%_ + _%__splice148927148928%_ '1))) - (_%target145349145959%_ + (_%target146636147246%_ (let () (declare (not safe)) (##vector-ref - _%__splice147640147641%_ + _%__splice148927148928%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145351145961%_)) - (letrec ((_%loop145352145964%_ - (lambda (_%hd145350145967%_ - _%xarg145356145969%_) + _%tl146638147248%_)) + (letrec ((_%loop146639147251%_ + (lambda (_%hd146637147254%_ + _%xarg146643147256%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145350145967%_)) - (let ((_%e145353145972%_ + _%hd146637147254%_)) + (let ((_%e146640147259%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd145350145967%_)))) - (let ((_%lp-tl145355145977%_ + (gx#stx-e _%hd146637147254%_)))) + (let ((_%lp-tl146642147264%_ (let () (declare (not safe)) - (##cdr _%e145353145972%_))) - (_%lp-hd145354145975%_ + (##cdr _%e146640147259%_))) + (_%lp-hd146641147262%_ (let () (declare (not safe)) - (##car _%e145353145972%_)))) + (##car _%e146640147259%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd145354145975%_)) - (let ((_%e145358145980%_ + (gx#stx-pair? _%lp-hd146641147262%_)) + (let ((_%e146645147267%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd145354145975%_)))) - (let ((_%tl145360145985%_ + (gx#stx-e _%lp-hd146641147262%_)))) + (let ((_%tl146647147272%_ (let () (declare (not safe)) - (##cdr _%e145358145980%_))) - (_%hd145359145983%_ + (##cdr _%e146645147267%_))) + (_%hd146646147270%_ (let () (declare (not safe)) - (##car _%e145358145980%_)))) + (##car _%e146645147267%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145359145983%_)) + (gx#identifier? _%hd146646147270%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145359145983%_)) + _%hd146646147270%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145360145985%_)) - (let ((_%e145361145988%_ + _%tl146647147272%_)) + (let ((_%e146648147275%_ (let () (declare (not safe)) (gx#stx-e - _%tl145360145985%_)))) - (let ((_%tl145363145993%_ + _%tl146647147272%_)))) + (let ((_%tl146650147280%_ (let () (declare (not safe)) - (##cdr _%e145361145988%_))) - (_%hd145362145991%_ + (##cdr _%e146648147275%_))) + (_%hd146649147278%_ (let () (declare (not safe)) - (##car _%e145361145988%_)))) + (##car _%e146648147275%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145363145993%_)) - (_%loop145352145964%_ - _%lp-tl145355145977%_ - (cons _%hd145362145991%_ - _%xarg145356145969%_)) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) - (let ((_%xarg145357145996%_ - (reverse _%xarg145356145969%_))) + _%tl146650147280%_)) + (_%loop146639147251%_ + _%lp-tl146642147264%_ + (cons _%hd146649147278%_ + _%xarg146643147256%_)) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)))) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)))) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)))) + (let ((_%xarg146644147283%_ + (reverse _%xarg146643147256%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145336145924%_)) - (let ((_%L145999%_ _%xarg145357145996%_) - (_%L146000%_ _%hd145347145954%_) - (_%L146001%_ _%arg145333145916%_)) - (if (and (let ((__tmp148931 - (let ((__tmp148932 - (lambda (_%g146029146032%_ - _%g146030146034%_) - (cons _%g146029146032%_ - _%g146030146034%_)))) + (gx#stx-null? _%tl146623147211%_)) + (let ((_%L147286%_ _%xarg146644147283%_) + (_%L147287%_ _%hd146634147241%_) + (_%L147288%_ _%arg146620147203%_)) + (if (and (let ((__tmp150218 + (let ((__tmp150219 + (lambda (_%g147316147319%_ + _%g147317147321%_) + (cons _%g147316147319%_ + _%g147317147321%_)))) (declare (not safe)) (__foldr1 - __tmp148932 + __tmp150219 '() - _%L146001%_)))) + _%L147288%_)))) (declare (not safe)) - (gx#identifier-list? __tmp148931)) - (let ((__tmp148935 - (length (let ((__tmp148936 - (lambda (_%g146036146039%_ + (gx#identifier-list? __tmp150218)) + (let ((__tmp150222 + (length (let ((__tmp150223 + (lambda (_%g147323147326%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g146037146041%_) - (cons _%g146036146039%_ _%g146037146041%_)))) + _%g147324147328%_) + (cons _%g147323147326%_ _%g147324147328%_)))) (declare (not safe)) - (__foldr1 __tmp148936 '() _%L146001%_)))) + (__foldr1 __tmp150223 '() _%L147288%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp148933 - (length (let ((__tmp148934 - (lambda (_%g146043146046%_ + (__tmp150220 + (length (let ((__tmp150221 + (lambda (_%g147330147333%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g146044146048%_) - (cons _%g146043146046%_ _%g146044146048%_)))) + _%g147331147335%_) + (cons _%g147330147333%_ _%g147331147335%_)))) (declare (not safe)) - (__foldr1 __tmp148934 '() _%L145999%_))))) + (__foldr1 __tmp150221 '() _%L147286%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp148935 __tmp148933)) - (let ((__tmp148939 - (let ((__tmp148940 - (lambda (_%g146050146053%_ - _%g146051146055%_) - (cons _%g146050146053%_ - _%g146051146055%_)))) + (##fx= __tmp150222 __tmp150220)) + (let ((__tmp150226 + (let ((__tmp150227 + (lambda (_%g147337147340%_ + _%g147338147342%_) + (cons _%g147337147340%_ + _%g147338147342%_)))) (declare (not safe)) (__foldr1 - __tmp148940 + __tmp150227 '() - _%L146001%_))) - (__tmp148937 - (let ((__tmp148938 - (lambda (_%g146057146060%_ - _%g146058146062%_) - (cons _%g146057146060%_ - _%g146058146062%_)))) + _%L147288%_))) + (__tmp150224 + (let ((__tmp150225 + (lambda (_%g147344147347%_ + _%g147345147349%_) + (cons _%g147344147347%_ + _%g147345147349%_)))) (declare (not safe)) (__foldr1 - __tmp148938 + __tmp150225 '() - _%L145999%_)))) + _%L147286%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp148939 - __tmp148937)) - (not (let ((__tmp148943 - (lambda (_%g146064146066%_) + __tmp150226 + __tmp150224)) + (not (let ((__tmp150230 + (lambda (_%g147351147353%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g146064146066%_ - _%L146000%_)))) - (__tmp148941 - (let ((__tmp148942 - (lambda (_%g146068146071%_ + _%g147351147353%_ + _%L147287%_)))) + (__tmp150228 + (let ((__tmp150229 + (lambda (_%g147355147358%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g146069146073%_) - (cons _%g146068146071%_ _%g146069146073%_)))) + _%g147356147360%_) + (cons _%g147355147358%_ _%g147356147360%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp148942 + __tmp150229 '() - _%L146001%_)))) + _%L147288%_)))) (declare (not safe)) - (__find __tmp148943 __tmp148941)))) - (_%__kont147636147637%_ - _%L145999%_ - _%L146000%_ - _%L146001%_) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_))) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145352145964%_ - _%target145349145959%_ + (__find __tmp150230 __tmp150228)))) + (_%__kont148923148924%_ + _%L147286%_ + _%L147287%_ + _%L147288%_) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_))) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop146639147251%_ + _%target146636147246%_ '())) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145328145900%_ - _%target145325145895%_ + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)))) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)))) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)))) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)))) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)))) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop146615147187%_ + _%target146612147182%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147634147635%_)) - (let ((_%e145322145887%_ + (gx#stx-pair? _%__stx148921148922%_)) + (let ((_%e146609147174%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147634147635%_)))) - (let ((_%tl145324145892%_ + (gx#stx-e _%__stx148921148922%_)))) + (let ((_%tl146611147179%_ (let () (declare (not safe)) - (##cdr _%e145322145887%_))) - (_%hd145323145890%_ + (##cdr _%e146609147174%_))) + (_%hd146610147177%_ (let () (declare (not safe)) - (##car _%e145322145887%_)))) + (##car _%e146609147174%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd145323145890%_)) - (let ((_%__splice147638147639%_ + (gx#stx-pair/null? _%hd146610147177%_)) + (let ((_%__splice148925148926%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd145323145890%_ + _%hd146610147177%_ '0)))) - (let ((_%tl145327145897%_ + (let ((_%tl146614147184%_ (let () (declare (not safe)) (##vector-ref - _%__splice147638147639%_ + _%__splice148925148926%_ '1))) - (_%target145325145895%_ + (_%target146612147182%_ (let () (declare (not safe)) (##vector-ref - _%__splice147638147639%_ + _%__splice148925148926%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145327145897%_)) - (_%__match147665147666%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_) - (_%__match147677147678%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%__splice147638147639%_ - _%target145325145895%_ - _%tl145327145897%_)))) + _%tl146614147184%_)) + (_%__match148952148953%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_) + (_%__match148964148965%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%__splice148925148926%_ + _%target146612147182%_ + _%tl146614147184%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145324145892%_)) - (let ((_%e145437145494%_ + (gx#stx-pair? _%tl146611147179%_)) + (let ((_%e146724146781%_ (let () (declare (not safe)) (gx#stx-e - _%tl145324145892%_)))) - (let ((_%tl145439145499%_ + _%tl146611147179%_)))) + (let ((_%tl146726146786%_ (let () (declare (not safe)) - (##cdr _%e145437145494%_))) - (_%hd145438145497%_ + (##cdr _%e146724146781%_))) + (_%hd146725146784%_ (let () (declare (not safe)) - (##car _%e145437145494%_)))) + (##car _%e146724146781%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145438145497%_)) - (let ((_%e145440145502%_ + _%hd146725146784%_)) + (let ((_%e146727146789%_ (let () (declare (not safe)) (gx#stx-e - _%hd145438145497%_)))) - (let ((_%tl145442145507%_ + _%hd146725146784%_)))) + (let ((_%tl146729146794%_ (let () (declare (not safe)) - (##cdr _%e145440145502%_))) - (_%hd145441145505%_ + (##cdr _%e146727146789%_))) + (_%hd146728146792%_ (let () (declare (not safe)) - (##car _%e145440145502%_)))) + (##car _%e146727146789%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145441145505%_)) + _%hd146728146792%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd145441145505%_)) + (gx#stx-eq? '%#call _%hd146728146792%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145442145507%_)) - (let ((_%e145443145510%_ + (gx#stx-pair? _%tl146729146794%_)) + (let ((_%e146730146797%_ (let () (declare (not safe)) - (gx#stx-e _%tl145442145507%_)))) - (let ((_%tl145445145515%_ + (gx#stx-e _%tl146729146794%_)))) + (let ((_%tl146732146802%_ (let () (declare (not safe)) - (##cdr _%e145443145510%_))) - (_%hd145444145513%_ + (##cdr _%e146730146797%_))) + (_%hd146731146800%_ (let () (declare (not safe)) - (##car _%e145443145510%_)))) + (##car _%e146730146797%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145444145513%_)) - (let ((_%e145446145518%_ + (gx#stx-pair? _%hd146731146800%_)) + (let ((_%e146733146805%_ (let () (declare (not safe)) - (gx#stx-e _%hd145444145513%_)))) - (let ((_%tl145448145523%_ + (gx#stx-e _%hd146731146800%_)))) + (let ((_%tl146735146810%_ (let () (declare (not safe)) - (##cdr _%e145446145518%_))) - (_%hd145447145521%_ + (##cdr _%e146733146805%_))) + (_%hd146734146808%_ (let () (declare (not safe)) - (##car _%e145446145518%_)))) + (##car _%e146733146805%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145447145521%_)) + _%hd146734146808%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145447145521%_)) + _%hd146734146808%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145448145523%_)) - (let ((_%e145449145526%_ + _%tl146735146810%_)) + (let ((_%e146736146813%_ (let () (declare (not safe)) (gx#stx-e - _%tl145448145523%_)))) - (let ((_%tl145451145531%_ + _%tl146735146810%_)))) + (let ((_%tl146738146818%_ (let () (declare (not safe)) - (##cdr _%e145449145526%_))) - (_%hd145450145529%_ + (##cdr _%e146736146813%_))) + (_%hd146737146816%_ (let () (declare (not safe)) - (##car _%e145449145526%_)))) + (##car _%e146736146813%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145451145531%_)) + _%tl146738146818%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl145445145515%_)) - (let ((_%e145452145534%_ + (gx#stx-pair? _%tl146732146802%_)) + (let ((_%e146739146821%_ (let () (declare (not safe)) - (gx#stx-e _%tl145445145515%_)))) - (let ((_%tl145454145539%_ + (gx#stx-e _%tl146732146802%_)))) + (let ((_%tl146741146826%_ (let () (declare (not safe)) - (##cdr _%e145452145534%_))) - (_%hd145453145537%_ + (##cdr _%e146739146821%_))) + (_%hd146740146824%_ (let () (declare (not safe)) - (##car _%e145452145534%_)))) + (##car _%e146739146821%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145453145537%_)) - (let ((_%e145455145542%_ + (gx#stx-pair? _%hd146740146824%_)) + (let ((_%e146742146829%_ (let () (declare (not safe)) - (gx#stx-e _%hd145453145537%_)))) - (let ((_%tl145457145547%_ + (gx#stx-e _%hd146740146824%_)))) + (let ((_%tl146744146834%_ (let () (declare (not safe)) - (##cdr _%e145455145542%_))) - (_%hd145456145545%_ + (##cdr _%e146742146829%_))) + (_%hd146743146832%_ (let () (declare (not safe)) - (##car _%e145455145542%_)))) + (##car _%e146742146829%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145456145545%_)) + (gx#identifier? _%hd146743146832%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145456145545%_)) + _%hd146743146832%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145457145547%_)) - (let ((_%e145458145550%_ + _%tl146744146834%_)) + (let ((_%e146745146837%_ (let () (declare (not safe)) (gx#stx-e - _%tl145457145547%_)))) - (let ((_%tl145460145555%_ + _%tl146744146834%_)))) + (let ((_%tl146747146842%_ (let () (declare (not safe)) - (##cdr _%e145458145550%_))) - (_%hd145459145553%_ + (##cdr _%e146745146837%_))) + (_%hd146746146840%_ (let () (declare (not safe)) - (##car _%e145458145550%_)))) + (##car _%e146745146837%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145460145555%_)) + _%tl146747146842%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145454145539%_)) - (let ((_%e145461145558%_ + _%tl146741146826%_)) + (let ((_%e146748146845%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl145454145539%_)))) - (let ((_%tl145463145563%_ + (gx#stx-e _%tl146741146826%_)))) + (let ((_%tl146750146850%_ (let () (declare (not safe)) - (##cdr _%e145461145558%_))) - (_%hd145462145561%_ + (##cdr _%e146748146845%_))) + (_%hd146749146848%_ (let () (declare (not safe)) - (##car _%e145461145558%_)))) + (##car _%e146748146845%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145462145561%_)) - (let ((_%e145464145566%_ + (gx#stx-pair? _%hd146749146848%_)) + (let ((_%e146751146853%_ (let () (declare (not safe)) - (gx#stx-e _%hd145462145561%_)))) - (let ((_%tl145466145571%_ + (gx#stx-e _%hd146749146848%_)))) + (let ((_%tl146753146858%_ (let () (declare (not safe)) - (##cdr _%e145464145566%_))) - (_%hd145465145569%_ + (##cdr _%e146751146853%_))) + (_%hd146752146856%_ (let () (declare (not safe)) - (##car _%e145464145566%_)))) + (##car _%e146751146853%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145465145569%_)) + (gx#identifier? _%hd146752146856%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd145465145569%_)) + (gx#stx-eq? '%#ref _%hd146752146856%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145466145571%_)) - (let ((_%e145467145574%_ + (gx#stx-pair? _%tl146753146858%_)) + (let ((_%e146754146861%_ (let () (declare (not safe)) (gx#stx-e - _%tl145466145571%_)))) - (let ((_%tl145469145579%_ + _%tl146753146858%_)))) + (let ((_%tl146756146866%_ (let () (declare (not safe)) - (##cdr _%e145467145574%_))) - (_%hd145468145577%_ + (##cdr _%e146754146861%_))) + (_%hd146755146864%_ (let () (declare (not safe)) - (##car _%e145467145574%_)))) + (##car _%e146754146861%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145469145579%_)) + _%tl146756146866%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145463145563%_)) + _%tl146750146850%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145439145499%_)) - (_%__match147775147776%_ - _%e145322145887%_ - _%hd145323145890%_ - _%tl145324145892%_ - _%e145437145494%_ - _%hd145438145497%_ - _%tl145439145499%_ - _%e145440145502%_ - _%hd145441145505%_ - _%tl145442145507%_ - _%e145443145510%_ - _%hd145444145513%_ - _%tl145445145515%_ - _%e145446145518%_ - _%hd145447145521%_ - _%tl145448145523%_ - _%e145449145526%_ - _%hd145450145529%_ - _%tl145451145531%_ - _%e145452145534%_ - _%hd145453145537%_ - _%tl145454145539%_ - _%e145455145542%_ - _%hd145456145545%_ - _%tl145457145547%_ - _%e145458145550%_ - _%hd145459145553%_ - _%tl145460145555%_ - _%e145461145558%_ - _%hd145462145561%_ - _%tl145463145563%_ - _%e145464145566%_ - _%hd145465145569%_ - _%tl145466145571%_ - _%e145467145574%_ - _%hd145468145577%_ - _%tl145469145579%_) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)))) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)) - (_%__kont147650147651%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147650147651%_)))) - (_%__kont147650147651%_))))) - (_%__kont147650147651%_))))))) - (_%dispatch-case-e144622%_ - (lambda (_%hd144773%_ _%body144774%_) - (let* ((_%form144776%_ - (cons _%hd144773%_ (cons _%body144774%_ '()))) - (_%__stx147778147779%_ _%form144776%_) - (_%g144780144904%_ + _%tl146726146786%_)) + (_%__match149062149063%_ + _%e146609147174%_ + _%hd146610147177%_ + _%tl146611147179%_ + _%e146724146781%_ + _%hd146725146784%_ + _%tl146726146786%_ + _%e146727146789%_ + _%hd146728146792%_ + _%tl146729146794%_ + _%e146730146797%_ + _%hd146731146800%_ + _%tl146732146802%_ + _%e146733146805%_ + _%hd146734146808%_ + _%tl146735146810%_ + _%e146736146813%_ + _%hd146737146816%_ + _%tl146738146818%_ + _%e146739146821%_ + _%hd146740146824%_ + _%tl146741146826%_ + _%e146742146829%_ + _%hd146743146832%_ + _%tl146744146834%_ + _%e146745146837%_ + _%hd146746146840%_ + _%tl146747146842%_ + _%e146748146845%_ + _%hd146749146848%_ + _%tl146750146850%_ + _%e146751146853%_ + _%hd146752146856%_ + _%tl146753146858%_ + _%e146754146861%_ + _%hd146755146864%_ + _%tl146756146866%_) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)))) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)))) + (_%__kont148937148938%_)))) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148937148938%_)) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)))) + (_%__kont148937148938%_)))) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148937148938%_)) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)))) + (_%__kont148937148938%_)))) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)) + (_%__kont148937148938%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148937148938%_)))) + (_%__kont148937148938%_))))) + (_%__kont148937148938%_))))))) + (_%dispatch-case-e145909%_ + (lambda (_%hd146060%_ _%body146061%_) + (let* ((_%form146063%_ + (cons _%hd146060%_ (cons _%body146061%_ '()))) + (_%__stx149065149066%_ _%form146063%_) + (_%g146067146191%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147778147779%_))))) - (let ((_%__kont147780147781%_ - (lambda (_%L145275%_ _%L145276%_ _%L145277%_) - (let ((__tmp148944 + _%__stx149065149066%_))))) + (let ((_%__kont149067149068%_ + (lambda (_%L146562%_ _%L146563%_ _%L146564%_) + (let ((__tmp150231 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L145276%_ '())))) + (cons _%L146563%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self144618%_ - __tmp148944)))) - (_%__kont147786147787%_ - (lambda (_%L145123%_ - _%L145124%_ - _%L145125%_ - _%L145126%_) - (let ((__tmp148945 + _%self145905%_ + __tmp150231)))) + (_%__kont149073149074%_ + (lambda (_%L146410%_ + _%L146411%_ + _%L146412%_ + _%L146413%_) + (let ((__tmp150232 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L145123%_ '())))) + (cons _%L146410%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self144618%_ - __tmp148945)))) - (_%__kont147790147791%_ - (lambda (_%L144989%_ _%L144990%_ _%L144991%_) - (let ((__tmp148946 + _%self145905%_ + __tmp150232)))) + (_%__kont149077149078%_ + (lambda (_%L146276%_ _%L146277%_ _%L146278%_) + (let ((__tmp150233 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L144989%_ '())))) + (cons _%L146276%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self144618%_ - __tmp148946))))) - (let* ((_%__match147887147888%_ - (lambda (_%e144870144909%_ - _%hd144871144912%_ - _%tl144872144914%_ - _%e144873144917%_ - _%hd144874144920%_ - _%tl144875144922%_ - _%e144876144925%_ - _%hd144877144928%_ - _%tl144878144930%_ - _%e144879144933%_ - _%hd144880144936%_ - _%tl144881144938%_ - _%e144882144941%_ - _%hd144883144944%_ - _%tl144884144946%_ - _%e144885144949%_ - _%hd144886144952%_ - _%tl144887144954%_ - _%e144888144957%_ - _%hd144889144960%_ - _%tl144890144962%_ - _%e144891144965%_ - _%hd144892144968%_ - _%tl144893144970%_ - _%e144894144973%_ - _%hd144895144976%_ - _%tl144896144978%_) + _%self145905%_ + __tmp150233))))) + (let* ((_%__match149174149175%_ + (lambda (_%e146157146196%_ + _%hd146158146199%_ + _%tl146159146201%_ + _%e146160146204%_ + _%hd146161146207%_ + _%tl146162146209%_ + _%e146163146212%_ + _%hd146164146215%_ + _%tl146165146217%_ + _%e146166146220%_ + _%hd146167146223%_ + _%tl146168146225%_ + _%e146169146228%_ + _%hd146170146231%_ + _%tl146171146233%_ + _%e146172146236%_ + _%hd146173146239%_ + _%tl146174146241%_ + _%e146175146244%_ + _%hd146176146247%_ + _%tl146177146249%_ + _%e146178146252%_ + _%hd146179146255%_ + _%tl146180146257%_ + _%e146181146260%_ + _%hd146182146263%_ + _%tl146183146265%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144890144962%_)) - (let ((_%e144897144981%_ + (gx#stx-pair? _%tl146177146249%_)) + (let ((_%e146184146268%_ (let () (declare (not safe)) - (gx#stx-e _%tl144890144962%_)))) - (let ((_%tl144899144986%_ + (gx#stx-e _%tl146177146249%_)))) + (let ((_%tl146186146273%_ (let () (declare (not safe)) - (##cdr _%e144897144981%_))) - (_%hd144898144984%_ + (##cdr _%e146184146268%_))) + (_%hd146185146271%_ (let () (declare (not safe)) - (##car _%e144897144981%_)))) + (##car _%e146184146268%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144899144986%_)) + _%tl146186146273%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144875144922%_)) - (_%__kont147790147791%_ - _%hd144895144976%_ - _%hd144886144952%_ - _%hd144871144912%_) + _%tl146162146209%_)) + (_%__kont149077149078%_ + _%hd146182146263%_ + _%hd146173146239%_ + _%hd146158146199%_) (let () (declare (not safe)) - (_%g144780144904%_))) + (_%g146067146191%_))) (let () (declare (not safe)) - (_%g144780144904%_))))) + (_%g146067146191%_))))) (let () (declare (not safe)) - (_%g144780144904%_))))) - (_%__match147817147818%_ - (lambda (_%e144831145027%_ - _%hd144832145030%_ - _%tl144833145032%_ - _%__splice147788147789%_ - _%target144834145035%_ - _%tl144836145037%_) - (letrec ((_%loop144837145040%_ - (lambda (_%hd144835145043%_ - _%arg144841145045%_) + (_%g146067146191%_))))) + (_%__match149104149105%_ + (lambda (_%e146118146314%_ + _%hd146119146317%_ + _%tl146120146319%_ + _%__splice149075149076%_ + _%target146121146322%_ + _%tl146123146324%_) + (letrec ((_%loop146124146327%_ + (lambda (_%hd146122146330%_ + _%arg146128146332%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144835145043%_)) - (let ((_%e144838145048%_ + _%hd146122146330%_)) + (let ((_%e146125146335%_ (let () (declare (not safe)) (gx#stx-e - _%hd144835145043%_)))) - (let ((_%lp-tl144840145053%_ + _%hd146122146330%_)))) + (let ((_%lp-tl146127146340%_ (let () (declare (not safe)) - (##cdr _%e144838145048%_))) - (_%lp-hd144839145051%_ + (##cdr _%e146125146335%_))) + (_%lp-hd146126146338%_ (let () (declare (not safe)) - (##car _%e144838145048%_)))) - (_%loop144837145040%_ - _%lp-tl144840145053%_ - (cons _%lp-hd144839145051%_ - _%arg144841145045%_)))) - (let ((_%arg144842145056%_ - (reverse _%arg144841145045%_))) + (##car _%e146125146335%_)))) + (_%loop146124146327%_ + _%lp-tl146127146340%_ + (cons _%lp-hd146126146338%_ + _%arg146128146332%_)))) + (let ((_%arg146129146343%_ + (reverse _%arg146128146332%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144833145032%_)) - (let ((_%e144843145059%_ + _%tl146120146319%_)) + (let ((_%e146130146346%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl144833145032%_)))) - (let ((_%tl144845145064%_ + (gx#stx-e _%tl146120146319%_)))) + (let ((_%tl146132146351%_ (let () (declare (not safe)) - (##cdr _%e144843145059%_))) - (_%hd144844145062%_ + (##cdr _%e146130146346%_))) + (_%hd146131146349%_ (let () (declare (not safe)) - (##car _%e144843145059%_)))) + (##car _%e146130146346%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144844145062%_)) - (let ((_%e144846145067%_ + (gx#stx-pair? _%hd146131146349%_)) + (let ((_%e146133146354%_ (let () (declare (not safe)) - (gx#stx-e _%hd144844145062%_)))) - (let ((_%tl144848145072%_ + (gx#stx-e _%hd146131146349%_)))) + (let ((_%tl146135146359%_ (let () (declare (not safe)) - (##cdr _%e144846145067%_))) - (_%hd144847145070%_ + (##cdr _%e146133146354%_))) + (_%hd146134146357%_ (let () (declare (not safe)) - (##car _%e144846145067%_)))) + (##car _%e146133146354%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144847145070%_)) + (gx#identifier? _%hd146134146357%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd144847145070%_)) + (gx#stx-eq? '%#call _%hd146134146357%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144848145072%_)) - (let ((_%e144849145075%_ + (gx#stx-pair? _%tl146135146359%_)) + (let ((_%e146136146362%_ (let () (declare (not safe)) (gx#stx-e - _%tl144848145072%_)))) - (let ((_%tl144851145080%_ + _%tl146135146359%_)))) + (let ((_%tl146138146367%_ (let () (declare (not safe)) - (##cdr _%e144849145075%_))) - (_%hd144850145078%_ + (##cdr _%e146136146362%_))) + (_%hd146137146365%_ (let () (declare (not safe)) - (##car _%e144849145075%_)))) + (##car _%e146136146362%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144850145078%_)) - (let ((_%e144852145083%_ + _%hd146137146365%_)) + (let ((_%e146139146370%_ (let () (declare (not safe)) (gx#stx-e - _%hd144850145078%_)))) - (let ((_%tl144854145088%_ + _%hd146137146365%_)))) + (let ((_%tl146141146375%_ (let () (declare (not safe)) - (##cdr _%e144852145083%_))) - (_%hd144853145086%_ + (##cdr _%e146139146370%_))) + (_%hd146140146373%_ (let () (declare (not safe)) - (##car _%e144852145083%_)))) + (##car _%e146139146370%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144853145086%_)) + _%hd146140146373%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144853145086%_)) + _%hd146140146373%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl144854145088%_)) - (let ((_%e144855145091%_ + (gx#stx-pair? _%tl146141146375%_)) + (let ((_%e146142146378%_ (let () (declare (not safe)) - (gx#stx-e _%tl144854145088%_)))) - (let ((_%tl144857145096%_ + (gx#stx-e _%tl146141146375%_)))) + (let ((_%tl146144146383%_ (let () (declare (not safe)) - (##cdr _%e144855145091%_))) - (_%hd144856145094%_ + (##cdr _%e146142146378%_))) + (_%hd146143146381%_ (let () (declare (not safe)) - (##car _%e144855145091%_)))) + (##car _%e146142146378%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144857145096%_)) + (gx#stx-null? _%tl146144146383%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144851145080%_)) - (let ((_%e144858145099%_ + (gx#stx-pair? _%tl146138146367%_)) + (let ((_%e146145146386%_ (let () (declare (not safe)) - (gx#stx-e _%tl144851145080%_)))) - (let ((_%tl144860145104%_ + (gx#stx-e _%tl146138146367%_)))) + (let ((_%tl146147146391%_ (let () (declare (not safe)) - (##cdr _%e144858145099%_))) - (_%hd144859145102%_ + (##cdr _%e146145146386%_))) + (_%hd146146146389%_ (let () (declare (not safe)) - (##car _%e144858145099%_)))) + (##car _%e146145146386%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144859145102%_)) - (let ((_%e144861145107%_ + _%hd146146146389%_)) + (let ((_%e146148146394%_ (let () (declare (not safe)) (gx#stx-e - _%hd144859145102%_)))) - (let ((_%tl144863145112%_ + _%hd146146146389%_)))) + (let ((_%tl146150146399%_ (let () (declare (not safe)) - (##cdr _%e144861145107%_))) - (_%hd144862145110%_ + (##cdr _%e146148146394%_))) + (_%hd146149146397%_ (let () (declare (not safe)) - (##car _%e144861145107%_)))) + (##car _%e146148146394%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144862145110%_)) + _%hd146149146397%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144862145110%_)) + _%hd146149146397%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144863145112%_)) - (let ((_%e144864145115%_ + _%tl146150146399%_)) + (let ((_%e146151146402%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl144863145112%_)))) - (let ((_%tl144866145120%_ + (gx#stx-e _%tl146150146399%_)))) + (let ((_%tl146153146407%_ (let () (declare (not safe)) - (##cdr _%e144864145115%_))) - (_%hd144865145118%_ + (##cdr _%e146151146402%_))) + (_%hd146152146405%_ (let () (declare (not safe)) - (##car _%e144864145115%_)))) + (##car _%e146151146402%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144866145120%_)) + (gx#stx-null? _%tl146153146407%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144845145064%_)) - (_%__kont147786147787%_ - _%hd144865145118%_ - _%hd144856145094%_ - _%tl144836145037%_ - _%arg144842145056%_) - (_%__match147887147888%_ - _%e144831145027%_ - _%hd144832145030%_ - _%tl144833145032%_ - _%e144843145059%_ - _%hd144844145062%_ - _%tl144845145064%_ - _%e144846145067%_ - _%hd144847145070%_ - _%tl144848145072%_ - _%e144849145075%_ - _%hd144850145078%_ - _%tl144851145080%_ - _%e144852145083%_ - _%hd144853145086%_ - _%tl144854145088%_ - _%e144855145091%_ - _%hd144856145094%_ - _%tl144857145096%_ - _%e144858145099%_ - _%hd144859145102%_ - _%tl144860145104%_ - _%e144861145107%_ - _%hd144862145110%_ - _%tl144863145112%_ - _%e144864145115%_ - _%hd144865145118%_ - _%tl144866145120%_)) + (gx#stx-null? _%tl146132146351%_)) + (_%__kont149073149074%_ + _%hd146152146405%_ + _%hd146143146381%_ + _%tl146123146324%_ + _%arg146129146343%_) + (_%__match149174149175%_ + _%e146118146314%_ + _%hd146119146317%_ + _%tl146120146319%_ + _%e146130146346%_ + _%hd146131146349%_ + _%tl146132146351%_ + _%e146133146354%_ + _%hd146134146357%_ + _%tl146135146359%_ + _%e146136146362%_ + _%hd146137146365%_ + _%tl146138146367%_ + _%e146139146370%_ + _%hd146140146373%_ + _%tl146141146375%_ + _%e146142146378%_ + _%hd146143146381%_ + _%tl146144146383%_ + _%e146145146386%_ + _%hd146146146389%_ + _%tl146147146391%_ + _%e146148146394%_ + _%hd146149146397%_ + _%tl146150146399%_ + _%e146151146402%_ + _%hd146152146405%_ + _%tl146153146407%_)) (let () (declare (not safe)) - (_%g144780144904%_))))) - (let () (declare (not safe)) (_%g144780144904%_))) - (let () (declare (not safe)) (_%g144780144904%_))) + (_%g146067146191%_))))) + (let () (declare (not safe)) (_%g146067146191%_))) + (let () (declare (not safe)) (_%g146067146191%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144780144904%_))))) + (_%g146067146191%_))))) (let () (declare (not safe)) - (_%g144780144904%_))))) + (_%g146067146191%_))))) (let () (declare (not safe)) - (_%g144780144904%_))) + (_%g146067146191%_))) (let () (declare (not safe)) - (_%g144780144904%_))))) - (let () (declare (not safe)) (_%g144780144904%_))) - (let () (declare (not safe)) (_%g144780144904%_))) - (let () (declare (not safe)) (_%g144780144904%_))))) + (_%g146067146191%_))))) + (let () (declare (not safe)) (_%g146067146191%_))) + (let () (declare (not safe)) (_%g146067146191%_))) + (let () (declare (not safe)) (_%g146067146191%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144780144904%_))))) + (_%g146067146191%_))))) (let () (declare (not safe)) - (_%g144780144904%_))) + (_%g146067146191%_))) (let () (declare (not safe)) - (_%g144780144904%_))) + (_%g146067146191%_))) (let () (declare (not safe)) - (_%g144780144904%_))))) - (let () (declare (not safe)) (_%g144780144904%_))))) - (let () (declare (not safe)) (_%g144780144904%_)))))))) + (_%g146067146191%_))))) + (let () (declare (not safe)) (_%g146067146191%_))))) + (let () (declare (not safe)) (_%g146067146191%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144837145040%_ - _%target144834145035%_ + (_%loop146124146327%_ + _%target146121146322%_ '())))) - (_%__match147805147806%_ - (lambda (_%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_) - (letrec ((_%loop144791145176%_ - (lambda (_%hd144789145179%_ - _%arg144795145181%_) + (_%__match149092149093%_ + (lambda (_%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_) + (letrec ((_%loop146078146463%_ + (lambda (_%hd146076146466%_ + _%arg146082146468%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144789145179%_)) - (let ((_%e144792145184%_ + _%hd146076146466%_)) + (let ((_%e146079146471%_ (let () (declare (not safe)) (gx#stx-e - _%hd144789145179%_)))) - (let ((_%lp-tl144794145189%_ + _%hd146076146466%_)))) + (let ((_%lp-tl146081146476%_ (let () (declare (not safe)) - (##cdr _%e144792145184%_))) - (_%lp-hd144793145187%_ + (##cdr _%e146079146471%_))) + (_%lp-hd146080146474%_ (let () (declare (not safe)) - (##car _%e144792145184%_)))) - (_%loop144791145176%_ - _%lp-tl144794145189%_ - (cons _%lp-hd144793145187%_ - _%arg144795145181%_)))) - (let ((_%arg144796145192%_ - (reverse _%arg144795145181%_))) + (##car _%e146079146471%_)))) + (_%loop146078146463%_ + _%lp-tl146081146476%_ + (cons _%lp-hd146080146474%_ + _%arg146082146468%_)))) + (let ((_%arg146083146479%_ + (reverse _%arg146082146468%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144787145168%_)) - (let ((_%e144797145195%_ + _%tl146074146455%_)) + (let ((_%e146084146482%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl144787145168%_)))) - (let ((_%tl144799145200%_ + (gx#stx-e _%tl146074146455%_)))) + (let ((_%tl146086146487%_ (let () (declare (not safe)) - (##cdr _%e144797145195%_))) - (_%hd144798145198%_ + (##cdr _%e146084146482%_))) + (_%hd146085146485%_ (let () (declare (not safe)) - (##car _%e144797145195%_)))) + (##car _%e146084146482%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144798145198%_)) - (let ((_%e144800145203%_ + (gx#stx-pair? _%hd146085146485%_)) + (let ((_%e146087146490%_ (let () (declare (not safe)) - (gx#stx-e _%hd144798145198%_)))) - (let ((_%tl144802145208%_ + (gx#stx-e _%hd146085146485%_)))) + (let ((_%tl146089146495%_ (let () (declare (not safe)) - (##cdr _%e144800145203%_))) - (_%hd144801145206%_ + (##cdr _%e146087146490%_))) + (_%hd146088146493%_ (let () (declare (not safe)) - (##car _%e144800145203%_)))) + (##car _%e146087146490%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144801145206%_)) + (gx#identifier? _%hd146088146493%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd144801145206%_)) + (gx#stx-eq? '%#call _%hd146088146493%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144802145208%_)) - (let ((_%e144803145211%_ + (gx#stx-pair? _%tl146089146495%_)) + (let ((_%e146090146498%_ (let () (declare (not safe)) (gx#stx-e - _%tl144802145208%_)))) - (let ((_%tl144805145216%_ + _%tl146089146495%_)))) + (let ((_%tl146092146503%_ (let () (declare (not safe)) - (##cdr _%e144803145211%_))) - (_%hd144804145214%_ + (##cdr _%e146090146498%_))) + (_%hd146091146501%_ (let () (declare (not safe)) - (##car _%e144803145211%_)))) + (##car _%e146090146498%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144804145214%_)) - (let ((_%e144806145219%_ + _%hd146091146501%_)) + (let ((_%e146093146506%_ (let () (declare (not safe)) (gx#stx-e - _%hd144804145214%_)))) - (let ((_%tl144808145224%_ + _%hd146091146501%_)))) + (let ((_%tl146095146511%_ (let () (declare (not safe)) - (##cdr _%e144806145219%_))) - (_%hd144807145222%_ + (##cdr _%e146093146506%_))) + (_%hd146094146509%_ (let () (declare (not safe)) - (##car _%e144806145219%_)))) + (##car _%e146093146506%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144807145222%_)) + _%hd146094146509%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144807145222%_)) + _%hd146094146509%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl144808145224%_)) - (let ((_%e144809145227%_ + (gx#stx-pair? _%tl146095146511%_)) + (let ((_%e146096146514%_ (let () (declare (not safe)) - (gx#stx-e _%tl144808145224%_)))) - (let ((_%tl144811145232%_ + (gx#stx-e _%tl146095146511%_)))) + (let ((_%tl146098146519%_ (let () (declare (not safe)) - (##cdr _%e144809145227%_))) - (_%hd144810145230%_ + (##cdr _%e146096146514%_))) + (_%hd146097146517%_ (let () (declare (not safe)) - (##car _%e144809145227%_)))) + (##car _%e146096146514%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144811145232%_)) + (gx#stx-null? _%tl146098146519%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl144805145216%_)) - (let ((_%__splice147784147785%_ + (gx#stx-pair/null? _%tl146092146503%_)) + (let ((_%__splice149071149072%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl144805145216%_ + _%tl146092146503%_ '0)))) - (let ((_%tl144814145237%_ + (let ((_%tl146101146524%_ (let () (declare (not safe)) (##vector-ref - _%__splice147784147785%_ + _%__splice149071149072%_ '1))) - (_%target144812145235%_ + (_%target146099146522%_ (let () (declare (not safe)) (##vector-ref - _%__splice147784147785%_ + _%__splice149071149072%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144814145237%_)) - (letrec ((_%loop144815145240%_ - (lambda (_%hd144813145243%_ - _%xarg144819145245%_) + _%tl146101146524%_)) + (letrec ((_%loop146102146527%_ + (lambda (_%hd146100146530%_ + _%xarg146106146532%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144813145243%_)) - (let ((_%e144816145248%_ + _%hd146100146530%_)) + (let ((_%e146103146535%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd144813145243%_)))) - (let ((_%lp-tl144818145253%_ + (gx#stx-e _%hd146100146530%_)))) + (let ((_%lp-tl146105146540%_ (let () (declare (not safe)) - (##cdr _%e144816145248%_))) - (_%lp-hd144817145251%_ + (##cdr _%e146103146535%_))) + (_%lp-hd146104146538%_ (let () (declare (not safe)) - (##car _%e144816145248%_)))) + (##car _%e146103146535%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd144817145251%_)) - (let ((_%e144821145256%_ + (gx#stx-pair? _%lp-hd146104146538%_)) + (let ((_%e146108146543%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd144817145251%_)))) - (let ((_%tl144823145261%_ + (gx#stx-e _%lp-hd146104146538%_)))) + (let ((_%tl146110146548%_ (let () (declare (not safe)) - (##cdr _%e144821145256%_))) - (_%hd144822145259%_ + (##cdr _%e146108146543%_))) + (_%hd146109146546%_ (let () (declare (not safe)) - (##car _%e144821145256%_)))) + (##car _%e146108146543%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144822145259%_)) + (gx#identifier? _%hd146109146546%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144822145259%_)) + _%hd146109146546%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144823145261%_)) - (let ((_%e144824145264%_ + _%tl146110146548%_)) + (let ((_%e146111146551%_ (let () (declare (not safe)) (gx#stx-e - _%tl144823145261%_)))) - (let ((_%tl144826145269%_ + _%tl146110146548%_)))) + (let ((_%tl146113146556%_ (let () (declare (not safe)) - (##cdr _%e144824145264%_))) - (_%hd144825145267%_ + (##cdr _%e146111146551%_))) + (_%hd146112146554%_ (let () (declare (not safe)) - (##car _%e144824145264%_)))) + (##car _%e146111146551%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144826145269%_)) - (_%loop144815145240%_ - _%lp-tl144818145253%_ - (cons _%hd144825145267%_ - _%xarg144819145245%_)) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) - (let ((_%xarg144820145272%_ - (reverse _%xarg144819145245%_))) + _%tl146113146556%_)) + (_%loop146102146527%_ + _%lp-tl146105146540%_ + (cons _%hd146112146554%_ + _%xarg146106146532%_)) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)))) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)))) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)))) + (let ((_%xarg146107146559%_ + (reverse _%xarg146106146532%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144799145200%_)) - (_%__kont147780147781%_ - _%xarg144820145272%_ - _%hd144810145230%_ - _%arg144796145192%_) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144815145240%_ - _%target144812145235%_ + (gx#stx-null? _%tl146086146487%_)) + (_%__kont149067149068%_ + _%xarg146107146559%_ + _%hd146097146517%_ + _%arg146083146479%_) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop146102146527%_ + _%target146099146522%_ '())) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144791145176%_ - _%target144788145171%_ + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)))) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)))) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)))) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)))) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)))) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop146078146463%_ + _%target146075146458%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147778147779%_)) - (let ((_%e144785145163%_ + (gx#stx-pair? _%__stx149065149066%_)) + (let ((_%e146072146450%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147778147779%_)))) - (let ((_%tl144787145168%_ + (gx#stx-e _%__stx149065149066%_)))) + (let ((_%tl146074146455%_ (let () (declare (not safe)) - (##cdr _%e144785145163%_))) - (_%hd144786145166%_ + (##cdr _%e146072146450%_))) + (_%hd146073146453%_ (let () (declare (not safe)) - (##car _%e144785145163%_)))) + (##car _%e146072146450%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd144786145166%_)) - (let ((_%__splice147782147783%_ + (gx#stx-pair/null? _%hd146073146453%_)) + (let ((_%__splice149069149070%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd144786145166%_ + _%hd146073146453%_ '0)))) - (let ((_%tl144790145173%_ + (let ((_%tl146077146460%_ (let () (declare (not safe)) (##vector-ref - _%__splice147782147783%_ + _%__splice149069149070%_ '1))) - (_%target144788145171%_ + (_%target146075146458%_ (let () (declare (not safe)) (##vector-ref - _%__splice147782147783%_ + _%__splice149069149070%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144790145173%_)) - (_%__match147805147806%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_) - (_%__match147817147818%_ - _%e144785145163%_ - _%hd144786145166%_ - _%tl144787145168%_ - _%__splice147782147783%_ - _%target144788145171%_ - _%tl144790145173%_)))) + _%tl146077146460%_)) + (_%__match149092149093%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_) + (_%__match149104149105%_ + _%e146072146450%_ + _%hd146073146453%_ + _%tl146074146455%_ + _%__splice149069149070%_ + _%target146075146458%_ + _%tl146077146460%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144787145168%_)) - (let ((_%e144873144917%_ + (gx#stx-pair? _%tl146074146455%_)) + (let ((_%e146160146204%_ (let () (declare (not safe)) (gx#stx-e - _%tl144787145168%_)))) - (let ((_%tl144875144922%_ + _%tl146074146455%_)))) + (let ((_%tl146162146209%_ (let () (declare (not safe)) - (##cdr _%e144873144917%_))) - (_%hd144874144920%_ + (##cdr _%e146160146204%_))) + (_%hd146161146207%_ (let () (declare (not safe)) - (##car _%e144873144917%_)))) + (##car _%e146160146204%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144874144920%_)) - (let ((_%e144876144925%_ + _%hd146161146207%_)) + (let ((_%e146163146212%_ (let () (declare (not safe)) (gx#stx-e - _%hd144874144920%_)))) - (let ((_%tl144878144930%_ + _%hd146161146207%_)))) + (let ((_%tl146165146217%_ (let () (declare (not safe)) - (##cdr _%e144876144925%_))) - (_%hd144877144928%_ + (##cdr _%e146163146212%_))) + (_%hd146164146215%_ (let () (declare (not safe)) - (##car _%e144876144925%_)))) + (##car _%e146163146212%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144877144928%_)) + _%hd146164146215%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd144877144928%_)) + (gx#stx-eq? '%#call _%hd146164146215%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144878144930%_)) - (let ((_%e144879144933%_ + (gx#stx-pair? _%tl146165146217%_)) + (let ((_%e146166146220%_ (let () (declare (not safe)) - (gx#stx-e _%tl144878144930%_)))) - (let ((_%tl144881144938%_ + (gx#stx-e _%tl146165146217%_)))) + (let ((_%tl146168146225%_ (let () (declare (not safe)) - (##cdr _%e144879144933%_))) - (_%hd144880144936%_ + (##cdr _%e146166146220%_))) + (_%hd146167146223%_ (let () (declare (not safe)) - (##car _%e144879144933%_)))) + (##car _%e146166146220%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144880144936%_)) - (let ((_%e144882144941%_ + (gx#stx-pair? _%hd146167146223%_)) + (let ((_%e146169146228%_ (let () (declare (not safe)) - (gx#stx-e _%hd144880144936%_)))) - (let ((_%tl144884144946%_ + (gx#stx-e _%hd146167146223%_)))) + (let ((_%tl146171146233%_ (let () (declare (not safe)) - (##cdr _%e144882144941%_))) - (_%hd144883144944%_ + (##cdr _%e146169146228%_))) + (_%hd146170146231%_ (let () (declare (not safe)) - (##car _%e144882144941%_)))) + (##car _%e146169146228%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144883144944%_)) + _%hd146170146231%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144883144944%_)) + _%hd146170146231%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144884144946%_)) - (let ((_%e144885144949%_ + _%tl146171146233%_)) + (let ((_%e146172146236%_ (let () (declare (not safe)) (gx#stx-e - _%tl144884144946%_)))) - (let ((_%tl144887144954%_ + _%tl146171146233%_)))) + (let ((_%tl146174146241%_ (let () (declare (not safe)) - (##cdr _%e144885144949%_))) - (_%hd144886144952%_ + (##cdr _%e146172146236%_))) + (_%hd146173146239%_ (let () (declare (not safe)) - (##car _%e144885144949%_)))) + (##car _%e146172146236%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144887144954%_)) + _%tl146174146241%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl144881144938%_)) - (let ((_%e144888144957%_ + (gx#stx-pair? _%tl146168146225%_)) + (let ((_%e146175146244%_ (let () (declare (not safe)) - (gx#stx-e _%tl144881144938%_)))) - (let ((_%tl144890144962%_ + (gx#stx-e _%tl146168146225%_)))) + (let ((_%tl146177146249%_ (let () (declare (not safe)) - (##cdr _%e144888144957%_))) - (_%hd144889144960%_ + (##cdr _%e146175146244%_))) + (_%hd146176146247%_ (let () (declare (not safe)) - (##car _%e144888144957%_)))) + (##car _%e146175146244%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144889144960%_)) - (let ((_%e144891144965%_ + (gx#stx-pair? _%hd146176146247%_)) + (let ((_%e146178146252%_ (let () (declare (not safe)) - (gx#stx-e _%hd144889144960%_)))) - (let ((_%tl144893144970%_ + (gx#stx-e _%hd146176146247%_)))) + (let ((_%tl146180146257%_ (let () (declare (not safe)) - (##cdr _%e144891144965%_))) - (_%hd144892144968%_ + (##cdr _%e146178146252%_))) + (_%hd146179146255%_ (let () (declare (not safe)) - (##car _%e144891144965%_)))) + (##car _%e146178146252%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144892144968%_)) + (gx#identifier? _%hd146179146255%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144892144968%_)) + _%hd146179146255%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144893144970%_)) - (let ((_%e144894144973%_ + _%tl146180146257%_)) + (let ((_%e146181146260%_ (let () (declare (not safe)) (gx#stx-e - _%tl144893144970%_)))) - (let ((_%tl144896144978%_ + _%tl146180146257%_)))) + (let ((_%tl146183146265%_ (let () (declare (not safe)) - (##cdr _%e144894144973%_))) - (_%hd144895144976%_ + (##cdr _%e146181146260%_))) + (_%hd146182146263%_ (let () (declare (not safe)) - (##car _%e144894144973%_)))) + (##car _%e146181146260%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144896144978%_)) + _%tl146183146265%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144890144962%_)) - (let ((_%e144897144981%_ + _%tl146177146249%_)) + (let ((_%e146184146268%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl144890144962%_)))) - (let ((_%tl144899144986%_ + (gx#stx-e _%tl146177146249%_)))) + (let ((_%tl146186146273%_ (let () (declare (not safe)) - (##cdr _%e144897144981%_))) - (_%hd144898144984%_ + (##cdr _%e146184146268%_))) + (_%hd146185146271%_ (let () (declare (not safe)) - (##car _%e144897144981%_)))) + (##car _%e146184146268%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144899144986%_)) + (gx#stx-null? _%tl146186146273%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144875144922%_)) - (_%__kont147790147791%_ - _%hd144895144976%_ - _%hd144886144952%_ - _%hd144786145166%_) + (gx#stx-null? _%tl146162146209%_)) + (_%__kont149077149078%_ + _%hd146182146263%_ + _%hd146173146239%_ + _%hd146073146453%_) (let () (declare (not safe)) - (_%g144780144904%_))) - (let () (declare (not safe)) (_%g144780144904%_))))) - (let () (declare (not safe)) (_%g144780144904%_))) - (let () (declare (not safe)) (_%g144780144904%_))))) + (_%g146067146191%_))) + (let () (declare (not safe)) (_%g146067146191%_))))) + (let () (declare (not safe)) (_%g146067146191%_))) + (let () (declare (not safe)) (_%g146067146191%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144780144904%_))) + (_%g146067146191%_))) (let () (declare (not safe)) - (_%g144780144904%_))) + (_%g146067146191%_))) (let () (declare (not safe)) - (_%g144780144904%_))))) + (_%g146067146191%_))))) (let () (declare (not safe)) - (_%g144780144904%_))))) - (let () (declare (not safe)) (_%g144780144904%_))) - (let () (declare (not safe)) (_%g144780144904%_))))) + (_%g146067146191%_))))) + (let () (declare (not safe)) (_%g146067146191%_))) + (let () (declare (not safe)) (_%g146067146191%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144780144904%_))) + (_%g146067146191%_))) (let () (declare (not safe)) - (_%g144780144904%_))) + (_%g146067146191%_))) (let () (declare (not safe)) - (_%g144780144904%_))))) + (_%g146067146191%_))))) (let () (declare (not safe)) - (_%g144780144904%_))))) - (let () (declare (not safe)) (_%g144780144904%_))) - (let () (declare (not safe)) (_%g144780144904%_))) - (let () (declare (not safe)) (_%g144780144904%_))))) + (_%g146067146191%_))))) + (let () (declare (not safe)) (_%g146067146191%_))) + (let () (declare (not safe)) (_%g146067146191%_))) + (let () (declare (not safe)) (_%g146067146191%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144780144904%_))))) + (_%g146067146191%_))))) (let () (declare (not safe)) - (_%g144780144904%_)))))) + (_%g146067146191%_)))))) (let () (declare (not safe)) - (_%g144780144904%_)))))))) - (_%generate1144623%_ - (lambda (_%args144758%_ - _%arglen144759%_ - _%hd144760%_ - _%body144761%_) - (let* ((_%len144763%_ + (_%g146067146191%_)))))))) + (_%generate1145910%_ + (lambda (_%args146045%_ + _%arglen146046%_ + _%hd146047%_ + _%body146048%_) + (let* ((_%len146050%_ (let () (declare (not safe)) - (gx#stx-length _%hd144760%_))) - (_%condition144768%_ + (gx#stx-length _%hd146047%_))) + (_%condition146055%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd144760%_)) + (gx#stx-list? _%hd146047%_)) (if (gxc#current-compile-decls-unsafe?) (cons '##fx= - (cons _%arglen144759%_ - (cons _%len144763%_ '()))) + (cons _%arglen146046%_ + (cons _%len146050%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##fx= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen144759%_ (cons _%len144763%_ '()))) + (cons _%arglen146046%_ (cons _%len146050%_ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (> _%len144763%_ '0) + (if (> _%len146050%_ '0) (if (gxc#current-compile-decls-unsafe?) (cons '##fx>= - (cons _%arglen144759%_ - (cons _%len144763%_ '()))) + (cons _%arglen146046%_ + (cons _%len146050%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##fx>= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen144759%_ (cons _%len144763%_ '()))) + (cons _%arglen146046%_ (cons _%len146050%_ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#t))) - (_%dispatch144770%_ - (if (_%dispatch-case?144621%_ - _%hd144760%_ - _%body144761%_) - (_%dispatch-case-e144622%_ - _%hd144760%_ - _%body144761%_) + (_%dispatch146057%_ + (if (_%dispatch-case?145908%_ + _%hd146047%_ + _%body146048%_) + (_%dispatch-case-e145909%_ + _%hd146047%_ + _%body146048%_) (gxc#generate-runtime-lambda-form - _%self144618%_ - _%hd144760%_ - _%body144761%_)))) - (cons _%condition144768%_ + _%self145905%_ + _%hd146047%_ + _%body146048%_)))) + (cons _%condition146055%_ (cons (cons 'apply - (cons _%dispatch144770%_ - (cons _%args144758%_ '()))) + (cons _%dispatch146057%_ + (cons _%args146045%_ '()))) '())))))) - (let* ((_%g144625144653%_ - (lambda (_%g144626144650%_) + (let* ((_%g145912145940%_ + (lambda (_%g145913145937%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144626144650%_)))) - (_%g144624144755%_ - (lambda (_%g144626144656%_) + _%g145913145937%_)))) + (_%g145911146042%_ + (lambda (_%g145913145943%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g144626144656%_)) - (let ((_%e144629144658%_ + (gx#stx-pair? _%g145913145943%_)) + (let ((_%e145916145945%_ (let () (declare (not safe)) - (gx#stx-e _%g144626144656%_)))) - (let ((_%hd144630144661%_ + (gx#stx-e _%g145913145943%_)))) + (let ((_%hd145917145948%_ (let () (declare (not safe)) - (##car _%e144629144658%_))) - (_%tl144631144663%_ + (##car _%e145916145945%_))) + (_%tl145918145950%_ (let () (declare (not safe)) - (##cdr _%e144629144658%_)))) + (##cdr _%e145916145945%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl144631144663%_)) - (let ((_g148947_ + (gx#stx-pair/null? _%tl145918145950%_)) + (let ((_g150234_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl144631144663%_ + _%tl145918145950%_ '0)))) (begin - (let ((_g148948_ + (let ((_g150235_ (let () (declare (not safe)) - (if (##values? _g148947_) - (##vector-length _g148947_) + (if (##values? _g150234_) + (##values-length _g150234_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g148948_ 2))) + (##fx= _g150235_ 2))) (error "Context expects 2 values" - _g148948_))) - (let ((_%target144632144666%_ + _g150235_))) + (let ((_%target145919145953%_ (let () (declare (not safe)) - (##vector-ref _g148947_ 0))) - (_%tl144634144668%_ + (##values-ref _g150234_ 0))) + (_%tl145921145955%_ (let () (declare (not safe)) - (##vector-ref _g148947_ 1)))) + (##values-ref _g150234_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144634144668%_)) - (letrec ((_%loop144635144671%_ - (lambda (_%hd144633144674%_ - _%body144639144676%_ - _%hd144640144678%_) + (gx#stx-null? _%tl145921145955%_)) + (letrec ((_%loop145922145958%_ + (lambda (_%hd145920145961%_ + _%body145926145963%_ + _%hd145927145965%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144633144674%_)) - (let ((_%e144636144681%_ + _%hd145920145961%_)) + (let ((_%e145923145968%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd144633144674%_)))) - (let ((_%lp-hd144637144684%_ + (gx#stx-e _%hd145920145961%_)))) + (let ((_%lp-hd145924145971%_ (let () (declare (not safe)) - (##car _%e144636144681%_))) - (_%lp-tl144638144686%_ + (##car _%e145923145968%_))) + (_%lp-tl145925145973%_ (let () (declare (not safe)) - (##cdr _%e144636144681%_)))) + (##cdr _%e145923145968%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd144637144684%_)) - (let ((_%e144643144689%_ + (gx#stx-pair? _%lp-hd145924145971%_)) + (let ((_%e145930145976%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd144637144684%_)))) - (let ((_%hd144644144692%_ + (gx#stx-e _%lp-hd145924145971%_)))) + (let ((_%hd145931145979%_ (let () (declare (not safe)) - (##car _%e144643144689%_))) - (_%tl144645144694%_ + (##car _%e145930145976%_))) + (_%tl145932145981%_ (let () (declare (not safe)) - (##cdr _%e144643144689%_)))) + (##cdr _%e145930145976%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144645144694%_)) - (let ((_%e144646144697%_ + (gx#stx-pair? _%tl145932145981%_)) + (let ((_%e145933145984%_ (let () (declare (not safe)) - (gx#stx-e _%tl144645144694%_)))) - (let ((_%hd144647144700%_ + (gx#stx-e _%tl145932145981%_)))) + (let ((_%hd145934145987%_ (let () (declare (not safe)) - (##car _%e144646144697%_))) - (_%tl144648144702%_ + (##car _%e145933145984%_))) + (_%tl145935145989%_ (let () (declare (not safe)) - (##cdr _%e144646144697%_)))) + (##cdr _%e145933145984%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144648144702%_)) - (_%loop144635144671%_ - _%lp-tl144638144686%_ - (cons _%hd144647144700%_ - _%body144639144676%_) - (cons _%hd144644144692%_ - _%hd144640144678%_)) - (_%g144625144653%_ - _%g144626144656%_)))) - (_%g144625144653%_ _%g144626144656%_)))) - (_%g144625144653%_ _%g144626144656%_)))) - (let ((_%body144641144705%_ (reverse _%body144639144676%_)) - (_%hd144642144707%_ (reverse _%hd144640144678%_))) - ((lambda (_%L144710%_ _%L144711%_) - (let ((_%args144730%_ + (gx#stx-null? _%tl145935145989%_)) + (_%loop145922145958%_ + _%lp-tl145925145973%_ + (cons _%hd145934145987%_ + _%body145926145963%_) + (cons _%hd145931145979%_ + _%hd145927145965%_)) + (_%g145912145940%_ + _%g145913145943%_)))) + (_%g145912145940%_ _%g145913145943%_)))) + (_%g145912145940%_ _%g145913145943%_)))) + (let ((_%body145928145992%_ (reverse _%body145926145963%_)) + (_%hd145929145994%_ (reverse _%hd145927145965%_))) + ((lambda (_%L145997%_ _%L145998%_) + (let ((_%args146017%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%arglen144731%_ + (_%arglen146018%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%name144732%_ - (let ((_%$e144727%_ - (let ((__tmp148949 + (_%name146019%_ + (let ((_%$e146014%_ + (let ((__tmp150236 (let () (declare (not safe)) (gxc#current-compile-runtime-names)))) (declare (not safe)) - (hash-get __tmp148949 _%stx144619%_)))) - (if _%$e144727%_ - _%$e144727%_ + (hash-get __tmp150236 _%stx145906%_)))) + (if _%$e146014%_ + _%$e146014%_ ''case-lambda-dispatch)))) (cons 'lambda - (cons _%args144730%_ + (cons _%args146017%_ (cons (cons 'let - (cons (cons (cons _%arglen144731%_ + (cons (cons (cons _%arglen146018%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (if (gxc#current-compile-decls-unsafe?) - (cons '##length (cons _%args144730%_ '())) + (cons '##length (cons _%args146017%_ '())) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%args144730%_ '())) + (cons _%args146017%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons 'cond - (let ((__tmp148953 + (let ((__tmp150240 (cons (cons 'else (cons (cons '##raise-wrong-number-of-arguments-exception - (cons _%name144732%_ - (cons _%args144730%_ + (cons _%name146019%_ + (cons _%args146017%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (__tmp148950 - (map (lambda (_%g144733144736%_ - _%g144734144738%_) - (_%generate1144623%_ - _%args144730%_ - _%arglen144731%_ - _%g144733144736%_ - _%g144734144738%_)) - (let ((__tmp148951 - (lambda (_%g144740144743%_ - _%g144741144745%_) - (cons _%g144740144743%_ - _%g144741144745%_)))) + (__tmp150237 + (map (lambda (_%g146020146023%_ + _%g146021146025%_) + (_%generate1145910%_ + _%args146017%_ + _%arglen146018%_ + _%g146020146023%_ + _%g146021146025%_)) + (let ((__tmp150238 + (lambda (_%g146027146030%_ + _%g146028146032%_) + (cons _%g146027146030%_ + _%g146028146032%_)))) (declare (not safe)) (__foldr1 - __tmp148951 + __tmp150238 '() - _%L144711%_)) - (let ((__tmp148952 - (lambda (_%g144747144750%_ - _%g144748144752%_) - (cons _%g144747144750%_ - _%g144748144752%_)))) + _%L145998%_)) + (let ((__tmp150239 + (lambda (_%g146034146037%_ + _%g146035146039%_) + (cons _%g146034146037%_ + _%g146035146039%_)))) (declare (not safe)) (__foldr1 - __tmp148952 + __tmp150239 '() - _%L144710%_))))) + _%L145997%_))))) (declare (not safe)) - (__foldr1 cons __tmp148953 __tmp148950))) + (__foldr1 cons __tmp150240 __tmp150237))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body144641144705%_ - _%hd144642144707%_)))))) + _%body145928145992%_ + _%hd145929145994%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144635144671%_ - _%target144632144666%_ + (_%loop145922145958%_ + _%target145919145953%_ '() '())) - (_%g144625144653%_ - _%g144626144656%_))))) - (_%g144625144653%_ _%g144626144656%_)))) - (_%g144625144653%_ _%g144626144656%_))))) - (_%g144624144755%_ _%stx144619%_))))) + (_%g145912145940%_ + _%g145913145943%_))))) + (_%g145912145940%_ _%g145913145943%_)))) + (_%g145912145940%_ _%g145913145943%_))))) + (_%g145911146042%_ _%stx145906%_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_%self143855%_ _%stx143856%_ _%compiled-body?143857%_) - (letrec ((_%generate-simple143859%_ - (lambda (_%hd144603%_ _%body144604%_) - (_%coalesce-boolean143860%_ - (_%simplify-let143861%_ + (lambda (_%self145142%_ _%stx145143%_ _%compiled-body?145144%_) + (letrec ((_%generate-simple145146%_ + (lambda (_%hd145890%_ _%body145891%_) + (_%coalesce-boolean145147%_ + (_%simplify-let145148%_ (gxc#generate-runtime-simple-let - _%self143855%_ + _%self145142%_ 'let - _%hd144603%_ - _%body144604%_ - _%compiled-body?143857%_))))) - (_%coalesce-boolean143860%_ - (lambda (_%code144464%_) + _%hd145890%_ + _%body145891%_ + _%compiled-body?145144%_))))) + (_%coalesce-boolean145147%_ + (lambda (_%code145751%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (let* ((_%code144465144491%_ _%code144464%_) - (_%else144467144499%_ - (lambda () _%code144464%_)) - (_%K144469144536%_ - (lambda (_%expr2144502%_ - _%expr1144503%_ - _%id144504%_) - (let* ((_%expr2144505144513%_ - _%expr2144502%_) - (_%else144507144521%_ + (let* ((_%code145752145778%_ _%code145751%_) + (_%else145754145786%_ + (lambda () _%code145751%_)) + (_%K145756145823%_ + (lambda (_%expr2145789%_ + _%expr1145790%_ + _%id145791%_) + (let* ((_%expr2145792145800%_ + _%expr2145789%_) + (_%else145794145808%_ (lambda () (cons 'or - (cons _%expr1144503%_ - (cons _%expr2144502%_ + (cons _%expr1145790%_ + (cons _%expr2145789%_ '()))))) - (_%K144509144526%_ - (lambda (_%exprs144524%_) + (_%K145796145813%_ + (lambda (_%exprs145811%_) (cons 'or - (cons _%expr1144503%_ - _%exprs144524%_))))) - (if (pair? _%expr2144505144513%_) - (let ((_%hd144510144529%_ + (cons _%expr1145790%_ + _%exprs145811%_))))) + (if (pair? _%expr2145792145800%_) + (let ((_%hd145797145816%_ (let () (declare (not safe)) - (##car _%expr2144505144513%_))) - (_%tl144511144531%_ + (##car _%expr2145792145800%_))) + (_%tl145798145818%_ (let () (declare (not safe)) - (##cdr _%expr2144505144513%_)))) + (##cdr _%expr2145792145800%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144510144529%_ 'or)) - (let ((_%exprs144534%_ - _%tl144511144531%_)) - (_%K144509144526%_ - _%exprs144534%_)) - (_%else144507144521%_))) - (_%else144507144521%_)))))) - (if (pair? _%code144465144491%_) - (let ((_%hd144470144539%_ + (##eq? _%hd145797145816%_ 'or)) + (let ((_%exprs145821%_ + _%tl145798145818%_)) + (_%K145796145813%_ + _%exprs145821%_)) + (_%else145794145808%_))) + (_%else145794145808%_)))))) + (if (pair? _%code145752145778%_) + (let ((_%hd145757145826%_ (let () (declare (not safe)) - (##car _%code144465144491%_))) - (_%tl144471144541%_ + (##car _%code145752145778%_))) + (_%tl145758145828%_ (let () (declare (not safe)) - (##cdr _%code144465144491%_)))) + (##cdr _%code145752145778%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144470144539%_ 'let)) - (if (pair? _%tl144471144541%_) - (let ((_%hd144472144544%_ + (##eq? _%hd145757145826%_ 'let)) + (if (pair? _%tl145758145828%_) + (let ((_%hd145759145831%_ (let () (declare (not safe)) - (##car _%tl144471144541%_))) - (_%tl144473144546%_ + (##car _%tl145758145828%_))) + (_%tl145760145833%_ (let () (declare (not safe)) - (##cdr _%tl144471144541%_)))) - (if (pair? _%hd144472144544%_) - (let ((_%hd144484144549%_ + (##cdr _%tl145758145828%_)))) + (if (pair? _%hd145759145831%_) + (let ((_%hd145771145836%_ (let () (declare (not safe)) - (##car _%hd144472144544%_))) - (_%tl144485144551%_ + (##car _%hd145759145831%_))) + (_%tl145772145838%_ (let () (declare (not safe)) - (##cdr _%hd144472144544%_)))) - (if (pair? _%hd144484144549%_) - (let ((_%hd144486144554%_ + (##cdr _%hd145759145831%_)))) + (if (pair? _%hd145771145836%_) + (let ((_%hd145773145841%_ (let () (declare (not safe)) - (##car _%hd144484144549%_))) - (_%tl144487144556%_ + (##car _%hd145771145836%_))) + (_%tl145774145843%_ (let () (declare (not safe)) - (##cdr _%hd144484144549%_)))) - (let ((_%id144559%_ - _%hd144486144554%_)) - (if (pair? _%tl144487144556%_) - (let ((_%hd144488144561%_ + (##cdr _%hd145771145836%_)))) + (let ((_%id145846%_ + _%hd145773145841%_)) + (if (pair? _%tl145774145843%_) + (let ((_%hd145775145848%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%tl144487144556%_))) - (_%tl144489144563%_ + (##car _%tl145774145843%_))) + (_%tl145776145850%_ (let () (declare (not safe)) - (##cdr _%tl144487144556%_)))) - (let ((_%expr1144566%_ _%hd144488144561%_)) - (if (null? _%tl144489144563%_) - (if (null? _%tl144485144551%_) - (if (pair? _%tl144473144546%_) - (let ((_%hd144474144568%_ + (##cdr _%tl145774145843%_)))) + (let ((_%expr1145853%_ _%hd145775145848%_)) + (if (null? _%tl145776145850%_) + (if (null? _%tl145772145838%_) + (if (pair? _%tl145760145833%_) + (let ((_%hd145761145855%_ (let () (declare (not safe)) - (##car _%tl144473144546%_))) - (_%tl144475144570%_ + (##car _%tl145760145833%_))) + (_%tl145762145857%_ (let () (declare (not safe)) - (##cdr _%tl144473144546%_)))) - (if (pair? _%hd144474144568%_) - (let ((_%hd144476144573%_ + (##cdr _%tl145760145833%_)))) + (if (pair? _%hd145761145855%_) + (let ((_%hd145763145860%_ (let () (declare (not safe)) - (##car _%hd144474144568%_))) - (_%tl144477144575%_ + (##car _%hd145761145855%_))) + (_%tl145764145862%_ (let () (declare (not safe)) - (##cdr _%hd144474144568%_)))) + (##cdr _%hd145761145855%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144476144573%_ + (##eq? _%hd145763145860%_ 'if)) - (if (pair? _%tl144477144575%_) - (let ((_%hd144478144578%_ + (if (pair? _%tl145764145862%_) + (let ((_%hd145765145865%_ (let () (declare (not safe)) - (##car _%tl144477144575%_))) - (_%tl144479144580%_ + (##car _%tl145764145862%_))) + (_%tl145766145867%_ (let () (declare (not safe)) - (##cdr _%tl144477144575%_)))) - (if ((lambda (_%g144582144584%_) - (eq? _%g144582144584%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id144559%_)) - _%hd144478144578%_) - (if (pair? _%tl144479144580%_) - (let ((_%hd144480144587%_ + (##cdr _%tl145764145862%_)))) + (if ((lambda (_%g145869145871%_) + (eq? _%g145869145871%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%id145846%_)) + _%hd145765145865%_) + (if (pair? _%tl145766145867%_) + (let ((_%hd145767145874%_ (let () (declare (not safe)) - (##car _%tl144479144580%_))) - (_%tl144481144589%_ + (##car _%tl145766145867%_))) + (_%tl145768145876%_ (let () (declare (not safe)) - (##cdr _%tl144479144580%_)))) - (if ((lambda (_%g144591144593%_) - (eq? _%g144591144593%_ _%id144559%_)) - _%hd144480144587%_) - (if (pair? _%tl144481144589%_) - (let ((_%hd144482144596%_ + (##cdr _%tl145766145867%_)))) + (if ((lambda (_%g145878145880%_) + (eq? _%g145878145880%_ _%id145846%_)) + _%hd145767145874%_) + (if (pair? _%tl145768145876%_) + (let ((_%hd145769145883%_ (let () (declare (not safe)) - (##car _%tl144481144589%_))) - (_%tl144483144598%_ + (##car _%tl145768145876%_))) + (_%tl145770145885%_ (let () (declare (not safe)) - (##cdr _%tl144481144589%_)))) - (let ((_%expr2144601%_ _%hd144482144596%_)) - (if (null? _%tl144483144598%_) - (if (null? _%tl144475144570%_) - (_%K144469144536%_ - _%expr2144601%_ - _%expr1144566%_ - _%id144559%_) - (_%else144467144499%_)) - (_%else144467144499%_)))) - (_%else144467144499%_)) - (_%else144467144499%_))) - (_%else144467144499%_)) - (_%else144467144499%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144467144499%_)) - (_%else144467144499%_))) - (_%else144467144499%_))) - (_%else144467144499%_)) - (_%else144467144499%_)) - (_%else144467144499%_)))) - (_%else144467144499%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144467144499%_))) - (_%else144467144499%_))) - (_%else144467144499%_)) - (_%else144467144499%_))) - (_%else144467144499%_))) - _%code144464%_))) - (_%simplify-let143861%_ - (lambda (_%code144163%_) - (let* ((_%code144164144236%_ _%code144163%_) - (_%else144169144244%_ (lambda () _%code144163%_))) - (let ((_%K144228144444%_ - (lambda (_%expr144442%_) _%expr144442%_)) - (_%K144211144390%_ - (lambda (_%body144386%_ - _%expr144387%_ - _%id144388%_) + (##cdr _%tl145768145876%_)))) + (let ((_%expr2145888%_ _%hd145769145883%_)) + (if (null? _%tl145770145885%_) + (if (null? _%tl145762145857%_) + (_%K145756145823%_ + _%expr2145888%_ + _%expr1145853%_ + _%id145846%_) + (_%else145754145786%_)) + (_%else145754145786%_)))) + (_%else145754145786%_)) + (_%else145754145786%_))) + (_%else145754145786%_)) + (_%else145754145786%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else145754145786%_)) + (_%else145754145786%_))) + (_%else145754145786%_))) + (_%else145754145786%_)) + (_%else145754145786%_)) + (_%else145754145786%_)))) + (_%else145754145786%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else145754145786%_))) + (_%else145754145786%_))) + (_%else145754145786%_)) + (_%else145754145786%_))) + (_%else145754145786%_))) + _%code145751%_))) + (_%simplify-let145148%_ + (lambda (_%code145450%_) + (let* ((_%code145451145523%_ _%code145450%_) + (_%else145456145531%_ (lambda () _%code145450%_))) + (let ((_%K145515145731%_ + (lambda (_%expr145729%_) _%expr145729%_)) + (_%K145498145677%_ + (lambda (_%body145673%_ + _%expr145674%_ + _%id145675%_) (cons 'let - (cons (cons (cons _%id144388%_ - (cons _%expr144387%_ + (cons (cons (cons _%id145675%_ + (cons _%expr145674%_ '())) '()) - _%body144386%_)))) - (_%K144188144314%_ - (lambda (_%body144308%_ - _%expr2144309%_ - _%id2144310%_ - _%expr1144311%_ - _%id1144312%_) + _%body145673%_)))) + (_%K145475145601%_ + (lambda (_%body145595%_ + _%expr2145596%_ + _%id2145597%_ + _%expr1145598%_ + _%id1145599%_) (cons 'let* - (cons (cons (cons _%id1144312%_ - (cons _%expr1144311%_ + (cons (cons (cons _%id1145599%_ + (cons _%expr1145598%_ '())) - (cons (cons _%id2144310%_ - (cons _%expr2144309%_ + (cons (cons _%id2145597%_ + (cons _%expr2145596%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body144308%_)))) - (_%K144171144253%_ - (lambda (_%body144248%_ - _%bind144249%_ - _%expr1144250%_ - _%id1144251%_) + _%body145595%_)))) + (_%K145458145540%_ + (lambda (_%body145535%_ + _%bind145536%_ + _%expr1145537%_ + _%id1145538%_) (cons 'let* - (cons (cons (cons _%id1144251%_ - (cons _%expr1144250%_ + (cons (cons (cons _%id1145538%_ + (cons _%expr1145537%_ '())) - _%bind144249%_) - _%body144248%_))))) - (if (pair? _%code144164144236%_) - (let ((_%tl144230144449%_ + _%bind145536%_) + _%body145535%_))))) + (if (pair? _%code145451145523%_) + (let ((_%tl145517145736%_ (let () (declare (not safe)) - (##cdr _%code144164144236%_))) - (_%hd144229144447%_ + (##cdr _%code145451145523%_))) + (_%hd145516145734%_ (let () (declare (not safe)) - (##car _%code144164144236%_)))) + (##car _%code145451145523%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144229144447%_ 'let)) - (if (pair? _%tl144230144449%_) - (let ((_%tl144232144454%_ + (##eq? _%hd145516145734%_ 'let)) + (if (pair? _%tl145517145736%_) + (let ((_%tl145519145741%_ (let () (declare (not safe)) - (##cdr _%tl144230144449%_))) - (_%hd144231144452%_ + (##cdr _%tl145517145736%_))) + (_%hd145518145739%_ (let () (declare (not safe)) - (##car _%tl144230144449%_)))) - (if (null? _%hd144231144452%_) - (if (pair? _%tl144232144454%_) - (let ((_%tl144234144459%_ + (##car _%tl145517145736%_)))) + (if (null? _%hd145518145739%_) + (if (pair? _%tl145519145741%_) + (let ((_%tl145521145746%_ (let () (declare (not safe)) - (##cdr _%tl144232144454%_))) - (_%hd144233144457%_ + (##cdr _%tl145519145741%_))) + (_%hd145520145744%_ (let () (declare (not safe)) - (##car _%tl144232144454%_)))) - (if (null? _%tl144234144459%_) - (let ((_%expr144462%_ - _%hd144233144457%_)) - (_%K144228144444%_ - _%expr144462%_)) - (_%else144169144244%_))) - (_%else144169144244%_)) - (if (pair? _%hd144231144452%_) - (let ((_%tl144223144405%_ + (##car _%tl145519145741%_)))) + (if (null? _%tl145521145746%_) + (let ((_%expr145749%_ + _%hd145520145744%_)) + (_%K145515145731%_ + _%expr145749%_)) + (_%else145456145531%_))) + (_%else145456145531%_)) + (if (pair? _%hd145518145739%_) + (let ((_%tl145510145692%_ (let () (declare (not safe)) - (##cdr _%hd144231144452%_))) - (_%hd144222144403%_ + (##cdr _%hd145518145739%_))) + (_%hd145509145690%_ (let () (declare (not safe)) - (##car _%hd144231144452%_)))) - (if (pair? _%hd144222144403%_) - (let ((_%tl144225144410%_ + (##car _%hd145518145739%_)))) + (if (pair? _%hd145509145690%_) + (let ((_%tl145512145697%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%hd144222144403%_))) - (_%hd144224144408%_ - (let () (declare (not safe)) (##car _%hd144222144403%_)))) - (if (pair? _%tl144225144410%_) - (let ((_%tl144227144417%_ + (##cdr _%hd145509145690%_))) + (_%hd145511145695%_ + (let () (declare (not safe)) (##car _%hd145509145690%_)))) + (if (pair? _%tl145512145697%_) + (let ((_%tl145514145704%_ (let () (declare (not safe)) - (##cdr _%tl144225144410%_))) - (_%hd144226144415%_ + (##cdr _%tl145512145697%_))) + (_%hd145513145702%_ (let () (declare (not safe)) - (##car _%tl144225144410%_)))) - (if (null? _%tl144227144417%_) - (if (null? _%tl144223144405%_) - (if (pair? _%tl144232144454%_) - (let ((_%tl144217144424%_ + (##car _%tl145512145697%_)))) + (if (null? _%tl145514145704%_) + (if (null? _%tl145510145692%_) + (if (pair? _%tl145519145741%_) + (let ((_%tl145504145711%_ (let () (declare (not safe)) - (##cdr _%tl144232144454%_))) - (_%hd144216144422%_ + (##cdr _%tl145519145741%_))) + (_%hd145503145709%_ (let () (declare (not safe)) - (##car _%tl144232144454%_)))) - (if (pair? _%hd144216144422%_) - (let ((_%tl144219144429%_ + (##car _%tl145519145741%_)))) + (if (pair? _%hd145503145709%_) + (let ((_%tl145506145716%_ (let () (declare (not safe)) - (##cdr _%hd144216144422%_))) - (_%hd144218144427%_ + (##cdr _%hd145503145709%_))) + (_%hd145505145714%_ (let () (declare (not safe)) - (##car _%hd144216144422%_)))) + (##car _%hd145503145709%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144218144427%_ + (##eq? _%hd145505145714%_ 'let)) - (if (pair? _%tl144219144429%_) - (let ((_%tl144221144434%_ + (if (pair? _%tl145506145716%_) + (let ((_%tl145508145721%_ (let () (declare (not safe)) - (##cdr _%tl144219144429%_))) - (_%hd144220144432%_ + (##cdr _%tl145506145716%_))) + (_%hd145507145719%_ (let () (declare (not safe)) - (##car _%tl144219144429%_)))) - (if (null? _%hd144220144432%_) - (if (null? _%tl144217144424%_) - (let ((_%id144413%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd144224144408%_) - (_%expr144420%_ _%hd144226144415%_) - (_%body144437%_ _%tl144221144434%_)) - (_%K144211144390%_ - _%body144437%_ - _%expr144420%_ - _%id144413%_)) - (_%else144169144244%_)) - (if (pair? _%hd144220144432%_) - (let ((_%tl144200144363%_ + (##car _%tl145506145716%_)))) + (if (null? _%hd145507145719%_) + (if (null? _%tl145504145711%_) + (let ((_%id145700%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%hd145511145695%_) + (_%expr145707%_ _%hd145513145702%_) + (_%body145724%_ _%tl145508145721%_)) + (_%K145498145677%_ + _%body145724%_ + _%expr145707%_ + _%id145700%_)) + (_%else145456145531%_)) + (if (pair? _%hd145507145719%_) + (let ((_%tl145487145650%_ (let () (declare (not safe)) - (##cdr _%hd144220144432%_))) - (_%hd144199144361%_ + (##cdr _%hd145507145719%_))) + (_%hd145486145648%_ (let () (declare (not safe)) - (##car _%hd144220144432%_)))) - (if (pair? _%hd144199144361%_) - (let ((_%tl144202144368%_ + (##car _%hd145507145719%_)))) + (if (pair? _%hd145486145648%_) + (let ((_%tl145489145655%_ (let () (declare (not safe)) - (##cdr _%hd144199144361%_))) - (_%hd144201144366%_ + (##cdr _%hd145486145648%_))) + (_%hd145488145653%_ (let () (declare (not safe)) - (##car _%hd144199144361%_)))) - (if (pair? _%tl144202144368%_) - (let ((_%tl144204144375%_ + (##car _%hd145486145648%_)))) + (if (pair? _%tl145489145655%_) + (let ((_%tl145491145662%_ (let () (declare (not safe)) - (##cdr _%tl144202144368%_))) - (_%hd144203144373%_ + (##cdr _%tl145489145655%_))) + (_%hd145490145660%_ (let () (declare (not safe)) - (##car _%tl144202144368%_)))) - (if (null? _%tl144204144375%_) - (if (null? _%tl144200144363%_) - (if (null? _%tl144217144424%_) - (let ((_%id1144337%_ - _%hd144224144408%_) - (_%expr1144344%_ - _%hd144226144415%_) - (_%id2144371%_ - _%hd144201144366%_) - (_%expr2144378%_ - _%hd144203144373%_) - (_%body144380%_ - _%tl144221144434%_)) - (_%K144188144314%_ - _%body144380%_ - _%expr2144378%_ - _%id2144371%_ - _%expr1144344%_ - _%id1144337%_)) - (_%else144169144244%_)) - (_%else144169144244%_)) - (_%else144169144244%_))) - (_%else144169144244%_))) - (_%else144169144244%_))) - (_%else144169144244%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144169144244%_)) + (##car _%tl145489145655%_)))) + (if (null? _%tl145491145662%_) + (if (null? _%tl145487145650%_) + (if (null? _%tl145504145711%_) + (let ((_%id1145624%_ + _%hd145511145695%_) + (_%expr1145631%_ + _%hd145513145702%_) + (_%id2145658%_ + _%hd145488145653%_) + (_%expr2145665%_ + _%hd145490145660%_) + (_%body145667%_ + _%tl145508145721%_)) + (_%K145475145601%_ + _%body145667%_ + _%expr2145665%_ + _%id2145658%_ + _%expr1145631%_ + _%id1145624%_)) + (_%else145456145531%_)) + (_%else145456145531%_)) + (_%else145456145531%_))) + (_%else145456145531%_))) + (_%else145456145531%_))) + (_%else145456145531%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else145456145531%_)) (if (let () (declare (not safe)) - (##eq? _%hd144218144427%_ + (##eq? _%hd145505145714%_ 'let*)) - (if (pair? _%tl144219144429%_) - (let ((_%tl144181144297%_ + (if (pair? _%tl145506145716%_) + (let ((_%tl145468145584%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl144219144429%_))) - (_%hd144180144295%_ - (let () (declare (not safe)) (##car _%tl144219144429%_)))) - (if (null? _%tl144217144424%_) - (let ((_%id1144276%_ _%hd144224144408%_) - (_%expr1144283%_ _%hd144226144415%_) - (_%bind144300%_ _%hd144180144295%_) - (_%body144302%_ _%tl144181144297%_)) - (_%K144171144253%_ - _%body144302%_ - _%bind144300%_ - _%expr1144283%_ - _%id1144276%_)) - (_%else144169144244%_))) - (_%else144169144244%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144169144244%_)))) - (_%else144169144244%_))) - (_%else144169144244%_)) - (_%else144169144244%_)) - (_%else144169144244%_))) - (_%else144169144244%_))) - (_%else144169144244%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144169144244%_)))) - (_%else144169144244%_)) - (_%else144169144244%_))) - (_%else144169144244%_)))))) - (_%generate-values143862%_ - (lambda (_%hd143976%_ _%body143977%_) - (let _%lp143979%_ ((_%rest143981%_ _%hd143976%_) - (_%bind143982%_ '()) - (_%check143983%_ '()) - (_%post143984%_ '())) - (let* ((_%__stx148107148108%_ _%rest143981%_) - (_%g143987143998%_ + (##cdr _%tl145506145716%_))) + (_%hd145467145582%_ + (let () (declare (not safe)) (##car _%tl145506145716%_)))) + (if (null? _%tl145504145711%_) + (let ((_%id1145563%_ _%hd145511145695%_) + (_%expr1145570%_ _%hd145513145702%_) + (_%bind145587%_ _%hd145467145582%_) + (_%body145589%_ _%tl145468145584%_)) + (_%K145458145540%_ + _%body145589%_ + _%bind145587%_ + _%expr1145570%_ + _%id1145563%_)) + (_%else145456145531%_))) + (_%else145456145531%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else145456145531%_)))) + (_%else145456145531%_))) + (_%else145456145531%_)) + (_%else145456145531%_)) + (_%else145456145531%_))) + (_%else145456145531%_))) + (_%else145456145531%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else145456145531%_)))) + (_%else145456145531%_)) + (_%else145456145531%_))) + (_%else145456145531%_)))))) + (_%generate-values145149%_ + (lambda (_%hd145263%_ _%body145264%_) + (let _%lp145266%_ ((_%rest145268%_ _%hd145263%_) + (_%bind145269%_ '()) + (_%check145270%_ '()) + (_%post145271%_ '())) + (let* ((_%__stx149394149395%_ _%rest145268%_) + (_%g145274145285%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148107148108%_))))) - (let ((_%__kont148109148110%_ - (lambda (_%L144025%_ _%L144026%_) - (let* ((_%__stx148063148064%_ _%L144026%_) - (_%g144041144066%_ + _%__stx149394149395%_))))) + (let ((_%__kont149396149397%_ + (lambda (_%L145312%_ _%L145313%_) + (let* ((_%__stx149350149351%_ _%L145313%_) + (_%g145328145353%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148063148064%_))))) - (let ((_%__kont148065148066%_ - (lambda (_%L144139%_ _%L144140%_) - (let ((_%eid144154%_ + _%__stx149350149351%_))))) + (let ((_%__kont149352149353%_ + (lambda (_%L145426%_ _%L145427%_) + (let ((_%eid145441%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L144140%_))) - (_%expr144155%_ + _%L145427%_))) + (_%expr145442%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143855%_ - _%L144139%_)))) - (_%lp143979%_ - _%L144025%_ - (cons (cons _%eid144154%_ - (cons _%expr144155%_ + _%self145142%_ + _%L145426%_)))) + (_%lp145266%_ + _%L145312%_ + (cons (cons _%eid145441%_ + (cons _%expr145442%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind143982%_) - _%check143983%_ - _%post143984%_)))) - (_%__kont148067148068%_ - (lambda (_%L144087%_ _%L144088%_) - (let* ((_%vals144101%_ + _%bind145269%_) + _%check145270%_ + _%post145271%_)))) + (_%__kont149354149355%_ + (lambda (_%L145374%_ _%L145375%_) + (let* ((_%vals145388%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values144103%_ + (_%check-values145390%_ (gxc#generate-runtime-check-values - _%vals144101%_ - _%L144088%_ - _%L144087%_)) - (_%refs144105%_ + _%vals145388%_ + _%L145375%_ + _%L145374%_)) + (_%refs145392%_ (gxc#generate-runtime-let-values-bind - _%vals144101%_ - _%L144088%_)) - (_%expr144107%_ + _%vals145388%_ + _%L145375%_)) + (_%expr145394%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143855%_ - _%L144087%_)))) - (_%lp143979%_ - _%L144025%_ - (cons (cons _%vals144101%_ - (cons _%expr144107%_ + _%self145142%_ + _%L145374%_)))) + (_%lp145266%_ + _%L145312%_ + (cons (cons _%vals145388%_ + (cons _%expr145394%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind143982%_) - (cons _%check-values144103%_ - _%check143983%_) - (cons _%refs144105%_ - _%post143984%_)))))) + _%bind145269%_) + (cons _%check-values145390%_ + _%check145270%_) + (cons _%refs145392%_ + _%post145271%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148063148064%_)) - (let ((_%e144045144115%_ + _%__stx149350149351%_)) + (let ((_%e145332145402%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148063148064%_)))) - (let ((_%tl144047144120%_ + _%__stx149350149351%_)))) + (let ((_%tl145334145407%_ (let () (declare (not safe)) - (##cdr _%e144045144115%_))) - (_%hd144046144118%_ + (##cdr _%e145332145402%_))) + (_%hd145333145405%_ (let () (declare (not safe)) - (##car _%e144045144115%_)))) + (##car _%e145332145402%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144046144118%_)) - (let ((_%e144048144123%_ + _%hd145333145405%_)) + (let ((_%e145335145410%_ (let () (declare (not safe)) (gx#stx-e - _%hd144046144118%_)))) - (let ((_%tl144050144128%_ + _%hd145333145405%_)))) + (let ((_%tl145337145415%_ (let () (declare (not safe)) - (##cdr _%e144048144123%_))) - (_%hd144049144126%_ + (##cdr _%e145335145410%_))) + (_%hd145336145413%_ (let () (declare (not safe)) - (##car _%e144048144123%_)))) + (##car _%e145335145410%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144050144128%_)) + _%tl145337145415%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl144047144120%_)) - (let ((_%e144051144131%_ + (gx#stx-pair? _%tl145334145407%_)) + (let ((_%e145338145418%_ (let () (declare (not safe)) - (gx#stx-e _%tl144047144120%_)))) - (let ((_%tl144053144136%_ + (gx#stx-e _%tl145334145407%_)))) + (let ((_%tl145340145423%_ (let () (declare (not safe)) - (##cdr _%e144051144131%_))) - (_%hd144052144134%_ + (##cdr _%e145338145418%_))) + (_%hd145339145421%_ (let () (declare (not safe)) - (##car _%e144051144131%_)))) + (##car _%e145338145418%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144053144136%_)) - (_%__kont148065148066%_ - _%hd144052144134%_ - _%hd144049144126%_) + (gx#stx-null? _%tl145340145423%_)) + (_%__kont149352149353%_ + _%hd145339145421%_ + _%hd145336145413%_) (let () (declare (not safe)) - (_%g144041144066%_))))) - (let () (declare (not safe)) (_%g144041144066%_))) + (_%g145328145353%_))))) + (let () (declare (not safe)) (_%g145328145353%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144047144120%_)) - (let ((_%e144059144079%_ + (gx#stx-pair? _%tl145334145407%_)) + (let ((_%e145346145366%_ (let () (declare (not safe)) - (gx#stx-e _%tl144047144120%_)))) - (let ((_%tl144061144084%_ + (gx#stx-e _%tl145334145407%_)))) + (let ((_%tl145348145371%_ (let () (declare (not safe)) - (##cdr _%e144059144079%_))) - (_%hd144060144082%_ + (##cdr _%e145346145366%_))) + (_%hd145347145369%_ (let () (declare (not safe)) - (##car _%e144059144079%_)))) + (##car _%e145346145366%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144061144084%_)) - (_%__kont148067148068%_ - _%hd144060144082%_ - _%hd144046144118%_) + (gx#stx-null? _%tl145348145371%_)) + (_%__kont149354149355%_ + _%hd145347145369%_ + _%hd145333145405%_) (let () (declare (not safe)) - (_%g144041144066%_))))) - (let () (declare (not safe)) (_%g144041144066%_)))))) + (_%g145328145353%_))))) + (let () (declare (not safe)) (_%g145328145353%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144047144120%_)) - (let ((_%e144059144079%_ + _%tl145334145407%_)) + (let ((_%e145346145366%_ (let () (declare (not safe)) (gx#stx-e - _%tl144047144120%_)))) - (let ((_%tl144061144084%_ + _%tl145334145407%_)))) + (let ((_%tl145348145371%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e144059144079%_))) - (_%hd144060144082%_ - (let () (declare (not safe)) (##car _%e144059144079%_)))) + (##cdr _%e145346145366%_))) + (_%hd145347145369%_ + (let () (declare (not safe)) (##car _%e145346145366%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144061144084%_)) - (_%__kont148067148068%_ - _%hd144060144082%_ - _%hd144046144118%_) - (let () (declare (not safe)) (_%g144041144066%_))))) + (gx#stx-null? _%tl145348145371%_)) + (_%__kont149354149355%_ + _%hd145347145369%_ + _%hd145333145405%_) + (let () (declare (not safe)) (_%g145328145353%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144041144066%_)))))) + (_%g145328145353%_)))))) (let () (declare (not safe)) - (_%g144041144066%_))))))) - (_%__kont148111148112%_ + (_%g145328145353%_))))))) + (_%__kont149398149399%_ (lambda () - (let* ((_%body144005%_ - (if _%compiled-body?143857%_ - _%body143977%_ + (let* ((_%body145292%_ + (if _%compiled-body?145144%_ + _%body145264%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143855%_ - _%body143977%_)))) - (_%body144007%_ - (_%generate-values-post143863%_ - _%post143984%_ - _%body144005%_)) - (_%body144009%_ - (_%generate-values-check143864%_ - _%check143983%_ - _%body144007%_))) + _%self145142%_ + _%body145264%_)))) + (_%body145294%_ + (_%generate-values-post145150%_ + _%post145271%_ + _%body145292%_)) + (_%body145296%_ + (_%generate-values-check145151%_ + _%check145270%_ + _%body145294%_))) (cons 'let - (cons (reverse _%bind143982%_) - (cons _%body144009%_ '()))))))) + (cons (reverse _%bind145269%_) + (cons _%body145296%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148107148108%_)) - (let ((_%e143991144017%_ + (gx#stx-pair? _%__stx149394149395%_)) + (let ((_%e145278145304%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148107148108%_)))) - (let ((_%tl143993144022%_ + (gx#stx-e _%__stx149394149395%_)))) + (let ((_%tl145280145309%_ (let () (declare (not safe)) - (##cdr _%e143991144017%_))) - (_%hd143992144020%_ + (##cdr _%e145278145304%_))) + (_%hd145279145307%_ (let () (declare (not safe)) - (##car _%e143991144017%_)))) - (_%__kont148109148110%_ - _%tl143993144022%_ - _%hd143992144020%_))) - (_%__kont148111148112%_))))))) - (_%generate-values-post143863%_ - (lambda (_%post143935%_ _%body143936%_) - (let _%lp143938%_ ((_%rest143940%_ _%post143935%_) - (_%body143941%_ _%body143936%_)) - (let* ((_%rest143942143950%_ _%rest143940%_) - (_%else143944143958%_ (lambda () _%body143941%_)) - (_%K143946143964%_ - (lambda (_%rest143961%_ _%bind143962%_) - (_%lp143938%_ - _%rest143961%_ + (##car _%e145278145304%_)))) + (_%__kont149396149397%_ + _%tl145280145309%_ + _%hd145279145307%_))) + (_%__kont149398149399%_))))))) + (_%generate-values-post145150%_ + (lambda (_%post145222%_ _%body145223%_) + (let _%lp145225%_ ((_%rest145227%_ _%post145222%_) + (_%body145228%_ _%body145223%_)) + (let* ((_%rest145229145237%_ _%rest145227%_) + (_%else145231145245%_ (lambda () _%body145228%_)) + (_%K145233145251%_ + (lambda (_%rest145248%_ _%bind145249%_) + (_%lp145225%_ + _%rest145248%_ (cons 'let - (cons _%bind143962%_ - (cons _%body143941%_ '()))))))) - (if (pair? _%rest143942143950%_) - (let ((_%hd143947143967%_ + (cons _%bind145249%_ + (cons _%body145228%_ '()))))))) + (if (pair? _%rest145229145237%_) + (let ((_%hd145234145254%_ (let () (declare (not safe)) - (##car _%rest143942143950%_))) - (_%tl143948143969%_ + (##car _%rest145229145237%_))) + (_%tl145235145256%_ (let () (declare (not safe)) - (##cdr _%rest143942143950%_)))) - (let* ((_%bind143972%_ _%hd143947143967%_) - (_%rest143974%_ _%tl143948143969%_)) - (_%K143946143964%_ - _%rest143974%_ - _%bind143972%_))) - (_%else143944143958%_)))))) - (_%generate-values-check143864%_ - (lambda (_%check143932%_ _%body143933%_) + (##cdr _%rest145229145237%_)))) + (let* ((_%bind145259%_ _%hd145234145254%_) + (_%rest145261%_ _%tl145235145256%_)) + (_%K145233145251%_ + _%rest145261%_ + _%bind145259%_))) + (_%else145231145245%_)))))) + (_%generate-values-check145151%_ + (lambda (_%check145219%_ _%body145220%_) (cons 'begin - (let ((__tmp148955 (cons _%body143933%_ '())) - (__tmp148954 (reverse _%check143932%_))) + (let ((__tmp150242 (cons _%body145220%_ '())) + (__tmp150241 (reverse _%check145219%_))) (declare (not safe)) - (__foldr1 cons __tmp148955 __tmp148954)))))) - (let* ((_%g143866143883%_ - (lambda (_%g143867143880%_) + (__foldr1 cons __tmp150242 __tmp150241)))))) + (let* ((_%g145153145170%_ + (lambda (_%g145154145167%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143867143880%_)))) - (_%g143865143929%_ - (lambda (_%g143867143886%_) + _%g145154145167%_)))) + (_%g145152145216%_ + (lambda (_%g145154145173%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143867143886%_)) - (let ((_%e143870143888%_ + (gx#stx-pair? _%g145154145173%_)) + (let ((_%e145157145175%_ (let () (declare (not safe)) - (gx#stx-e _%g143867143886%_)))) - (let ((_%hd143871143891%_ + (gx#stx-e _%g145154145173%_)))) + (let ((_%hd145158145178%_ (let () (declare (not safe)) - (##car _%e143870143888%_))) - (_%tl143872143893%_ + (##car _%e145157145175%_))) + (_%tl145159145180%_ (let () (declare (not safe)) - (##cdr _%e143870143888%_)))) + (##cdr _%e145157145175%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143872143893%_)) - (let ((_%e143873143896%_ + (gx#stx-pair? _%tl145159145180%_)) + (let ((_%e145160145183%_ (let () (declare (not safe)) - (gx#stx-e _%tl143872143893%_)))) - (let ((_%hd143874143899%_ + (gx#stx-e _%tl145159145180%_)))) + (let ((_%hd145161145186%_ (let () (declare (not safe)) - (##car _%e143873143896%_))) - (_%tl143875143901%_ + (##car _%e145160145183%_))) + (_%tl145162145188%_ (let () (declare (not safe)) - (##cdr _%e143873143896%_)))) + (##cdr _%e145160145183%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143875143901%_)) - (let ((_%e143876143904%_ + (gx#stx-pair? _%tl145162145188%_)) + (let ((_%e145163145191%_ (let () (declare (not safe)) (gx#stx-e - _%tl143875143901%_)))) - (let ((_%hd143877143907%_ + _%tl145162145188%_)))) + (let ((_%hd145164145194%_ (let () (declare (not safe)) - (##car _%e143876143904%_))) - (_%tl143878143909%_ + (##car _%e145163145191%_))) + (_%tl145165145196%_ (let () (declare (not safe)) - (##cdr _%e143876143904%_)))) + (##cdr _%e145163145191%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143878143909%_)) - ((lambda (_%L143912%_ - _%L143913%_) + _%tl145165145196%_)) + ((lambda (_%L145199%_ + _%L145200%_) (if (gxc#generate-runtime-simple-let? - _%L143913%_) - (_%generate-simple143859%_ - _%L143913%_ - _%L143912%_) - (_%generate-values143862%_ - _%L143913%_ - _%L143912%_))) - _%hd143877143907%_ - _%hd143874143899%_) - (_%g143866143883%_ - _%g143867143886%_)))) - (_%g143866143883%_ - _%g143867143886%_)))) - (_%g143866143883%_ _%g143867143886%_)))) - (_%g143866143883%_ _%g143867143886%_))))) - (_%g143865143929%_ _%stx143856%_))))) + _%L145200%_) + (_%generate-simple145146%_ + _%L145200%_ + _%L145199%_) + (_%generate-values145149%_ + _%L145200%_ + _%L145199%_))) + _%hd145164145194%_ + _%hd145161145186%_) + (_%g145153145170%_ + _%g145154145173%_)))) + (_%g145153145170%_ + _%g145154145173%_)))) + (_%g145153145170%_ _%g145154145173%_)))) + (_%g145153145170%_ _%g145154145173%_))))) + (_%g145152145216%_ _%stx145143%_))))) (define gxc#generate-runtime-let-values%__0 - (lambda (_%self144609%_ _%stx144610%_) - (let ((_%compiled-body?144612%_ '#f)) + (lambda (_%self145896%_ _%stx145897%_) + (let ((_%compiled-body?145899%_ '#f)) (gxc#generate-runtime-let-values%__% - _%self144609%_ - _%stx144610%_ - _%compiled-body?144612%_)))) + _%self145896%_ + _%stx145897%_ + _%compiled-body?145899%_)))) (define gxc#generate-runtime-let-values% - (lambda _g148957_ - (let ((_g148956_ (let () (declare (not safe)) (##length _g148957_)))) - (cond ((let () (declare (not safe)) (##fx= _g148956_ 2)) - (apply gxc#generate-runtime-let-values%__0 _g148957_)) - ((let () (declare (not safe)) (##fx= _g148956_ 3)) - (apply gxc#generate-runtime-let-values%__% _g148957_)) + (lambda _g150244_ + (let ((_g150243_ (let () (declare (not safe)) (##length _g150244_)))) + (cond ((let () (declare (not safe)) (##fx= _g150243_ 2)) + (apply gxc#generate-runtime-let-values%__0 _g150244_)) + ((let () (declare (not safe)) (##fx= _g150243_ 3)) + (apply gxc#generate-runtime-let-values%__% _g150244_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-let-values% - _g148957_)))))) + _g150244_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_%vals143749%_ _%hd143750%_) - (let _%lp143752%_ ((_%rest143754%_ _%hd143750%_) - (_%k143755%_ '0) - (_%r143756%_ '())) - (let* ((_%__stx148121148122%_ _%rest143754%_) - (_%g143761143778%_ + (lambda (_%vals145036%_ _%hd145037%_) + (let _%lp145039%_ ((_%rest145041%_ _%hd145037%_) + (_%k145042%_ '0) + (_%r145043%_ '())) + (let* ((_%__stx149408149409%_ _%rest145041%_) + (_%g145048145065%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148121148122%_))))) - (let ((_%__kont148123148124%_ - (lambda (_%L143841%_) - (_%lp143752%_ - _%L143841%_ - (let () (declare (not safe)) (##fx+ _%k143755%_ '1)) - _%r143756%_))) - (_%__kont148125148126%_ - (lambda (_%L143814%_ _%L143815%_) - (_%lp143752%_ - _%L143814%_ - (let () (declare (not safe)) (##fx+ _%k143755%_ '1)) + _%__stx149408149409%_))))) + (let ((_%__kont149410149411%_ + (lambda (_%L145128%_) + (_%lp145039%_ + _%L145128%_ + (let () (declare (not safe)) (##fx+ _%k145042%_ '1)) + _%r145043%_))) + (_%__kont149412149413%_ + (lambda (_%L145101%_ _%L145102%_) + (_%lp145039%_ + _%L145101%_ + (let () (declare (not safe)) (##fx+ _%k145042%_ '1)) (cons (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L143815%_)) + _%L145102%_)) (cons (gxc#generate-runtime-values-ref - _%vals143749%_ - _%k143755%_ - _%L143814%_) + _%vals145036%_ + _%k145042%_ + _%L145101%_) '())) - _%r143756%_)))) - (_%__kont148127148128%_ - (lambda (_%L143790%_) - (let ((__tmp148958 + _%r145043%_)))) + (_%__kont149414149415%_ + (lambda (_%L145077%_) + (let ((__tmp150245 (cons (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L143790%_)) + _%L145077%_)) (cons (gxc#generate-runtime-values->list - _%vals143749%_ - _%k143755%_) + _%vals145036%_ + _%k145042%_) '())) '()))) (declare (not safe)) - (__foldl1 cons __tmp148958 _%r143756%_)))) - (_%__kont148129148130%_ (lambda () (reverse _%r143756%_)))) - (let ((_%g143759143801%_ + (__foldl1 cons __tmp150245 _%r145043%_)))) + (_%__kont149416149417%_ (lambda () (reverse _%r145043%_)))) + (let ((_%g145046145088%_ (lambda () - (let ((_%L143790%_ _%__stx148121148122%_)) + (let ((_%L145077%_ _%__stx149408149409%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L143790%_)) - (_%__kont148127148128%_ _%L143790%_) - (_%__kont148129148130%_)))))) + (gx#identifier? _%L145077%_)) + (_%__kont149414149415%_ _%L145077%_) + (_%__kont149416149417%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148121148122%_)) - (let ((_%e143764143830%_ + (gx#stx-pair? _%__stx149408149409%_)) + (let ((_%e145051145117%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148121148122%_)))) - (let ((_%tl143766143835%_ + (gx#stx-e _%__stx149408149409%_)))) + (let ((_%tl145053145122%_ (let () (declare (not safe)) - (##cdr _%e143764143830%_))) - (_%hd143765143833%_ + (##cdr _%e145051145117%_))) + (_%hd145052145120%_ (let () (declare (not safe)) - (##car _%e143764143830%_)))) + (##car _%e145051145117%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd143765143833%_)) - (let ((_%e143767143838%_ + (gx#stx-datum? _%hd145052145120%_)) + (let ((_%e145054145125%_ (let () (declare (not safe)) - (gx#stx-e _%hd143765143833%_)))) - (if (equal? _%e143767143838%_ '#f) - (_%__kont148123148124%_ _%tl143766143835%_) - (_%__kont148125148126%_ - _%tl143766143835%_ - _%hd143765143833%_))) - (_%__kont148125148126%_ - _%tl143766143835%_ - _%hd143765143833%_)))) - (let () (declare (not safe)) (_%g143759143801%_))))))))) + (gx#stx-e _%hd145052145120%_)))) + (if (equal? _%e145054145125%_ '#f) + (_%__kont149410149411%_ _%tl145053145122%_) + (_%__kont149412149413%_ + _%tl145053145122%_ + _%hd145052145120%_))) + (_%__kont149412149413%_ + _%tl145053145122%_ + _%hd145052145120%_)))) + (let () (declare (not safe)) (_%g145046145088%_))))))))) (define gxc#generate-runtime-letrec-values%__% - (lambda (_%self143428%_ _%stx143429%_ _%compiled-body?143430%_) - (letrec ((_%generate-simple143432%_ - (lambda (_%hd143734%_ _%body143735%_) + (lambda (_%self144715%_ _%stx144716%_ _%compiled-body?144717%_) + (letrec ((_%generate-simple144719%_ + (lambda (_%hd145021%_ _%body145022%_) (gxc#generate-runtime-simple-let - _%self143428%_ + _%self144715%_ 'letrec - _%hd143734%_ - _%body143735%_ - _%compiled-body?143430%_))) - (_%generate-values143433%_ - (lambda (_%hd143513%_ _%body143514%_) - (let _%lp143516%_ ((_%rest143518%_ _%hd143513%_) - (_%bind143519%_ '()) - (_%check143520%_ '()) - (_%post143521%_ '())) - (let* ((_%__stx148195148196%_ _%rest143518%_) - (_%g143524143535%_ + _%hd145021%_ + _%body145022%_ + _%compiled-body?144717%_))) + (_%generate-values144720%_ + (lambda (_%hd144800%_ _%body144801%_) + (let _%lp144803%_ ((_%rest144805%_ _%hd144800%_) + (_%bind144806%_ '()) + (_%check144807%_ '()) + (_%post144808%_ '())) + (let* ((_%__stx149482149483%_ _%rest144805%_) + (_%g144811144822%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148195148196%_))))) - (let ((_%__kont148197148198%_ - (lambda (_%L143562%_ _%L143563%_) - (let* ((_%__stx148151148152%_ _%L143563%_) - (_%g143578143603%_ + _%__stx149482149483%_))))) + (let ((_%__kont149484149485%_ + (lambda (_%L144849%_ _%L144850%_) + (let* ((_%__stx149438149439%_ _%L144850%_) + (_%g144865144890%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148151148152%_))))) - (let ((_%__kont148153148154%_ - (lambda (_%L143710%_ _%L143711%_) - (let ((_%eid143725%_ + _%__stx149438149439%_))))) + (let ((_%__kont149440149441%_ + (lambda (_%L144997%_ _%L144998%_) + (let ((_%eid145012%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L143711%_))) - (_%expr143726%_ + _%L144998%_))) + (_%expr145013%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143428%_ - _%L143710%_)))) - (_%lp143516%_ - _%L143562%_ - (cons (cons _%eid143725%_ - (cons _%expr143726%_ + _%self144715%_ + _%L144997%_)))) + (_%lp144803%_ + _%L144849%_ + (cons (cons _%eid145012%_ + (cons _%expr145013%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind143519%_) - _%check143520%_ - _%post143521%_)))) - (_%__kont148155148156%_ - (lambda (_%L143624%_ _%L143625%_) - (let* ((_%vals143638%_ + _%bind144806%_) + _%check144807%_ + _%post144808%_)))) + (_%__kont149442149443%_ + (lambda (_%L144911%_ _%L144912%_) + (let* ((_%vals144925%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values143640%_ + (_%check-values144927%_ (gxc#generate-runtime-check-values - _%vals143638%_ - _%L143625%_ - _%L143624%_)) - (_%refs143642%_ + _%vals144925%_ + _%L144912%_ + _%L144911%_)) + (_%refs144929%_ (gxc#generate-runtime-let-values-bind - _%vals143638%_ - _%L143625%_)) - (_%expr143644%_ + _%vals144925%_ + _%L144912%_)) + (_%expr144931%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143428%_ - _%L143624%_)))) - (_%lp143516%_ - _%L143562%_ - (let ((__tmp148960 - (cons (cons _%vals143638%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr143644%_ '())) - _%bind143519%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp148959 - (map (lambda (_%e143646143648%_) - (let* ((_%g143650143659%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e143646143648%_) - (_%E143652143663%_ + _%self144715%_ + _%L144911%_)))) + (_%lp144803%_ + _%L144849%_ + (let ((__tmp150247 + (cons (cons _%vals144925%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%expr144931%_ '())) + _%bind144806%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp150246 + (map (lambda (_%e144933144935%_) + (let* ((_%g144937144946%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%e144933144935%_) + (_%E144939144950%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g143650143659%_ + _%g144937144946%_ '([eid _]))) '#!void)) - (_%K143653143668%_ - (lambda (_%eid143666%_) - (cons _%eid143666%_ (cons '#!void '()))))) - (if (pair? _%g143650143659%_) - (let ((_%hd143654143671%_ + (_%K144940144955%_ + (lambda (_%eid144953%_) + (cons _%eid144953%_ (cons '#!void '()))))) + (if (pair? _%g144937144946%_) + (let ((_%hd144941144958%_ (let () (declare (not safe)) - (##car _%g143650143659%_))) - (_%tl143655143673%_ + (##car _%g144937144946%_))) + (_%tl144942144960%_ (let () (declare (not safe)) - (##cdr _%g143650143659%_)))) - (let ((_%eid143676%_ _%hd143654143671%_)) - (if (pair? _%tl143655143673%_) - (let ((_%tl143657143678%_ + (##cdr _%g144937144946%_)))) + (let ((_%eid144963%_ _%hd144941144958%_)) + (if (pair? _%tl144942144960%_) + (let ((_%tl144944144965%_ (let () (declare (not safe)) - (##cdr _%tl143655143673%_)))) - (if (null? _%tl143657143678%_) - (_%K143653143668%_ _%eid143676%_) - (_%E143652143663%_))) - (_%E143652143663%_)))) - (_%E143652143663%_)))) - _%refs143642%_))) + (##cdr _%tl144942144960%_)))) + (if (null? _%tl144944144965%_) + (_%K144940144955%_ _%eid144963%_) + (_%E144939144950%_))) + (_%E144939144950%_)))) + (_%E144939144950%_)))) + _%refs144929%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp148960 - __tmp148959)) - (cons _%check-values143640%_ - _%check143520%_) + __tmp150247 + __tmp150246)) + (cons _%check-values144927%_ + _%check144807%_) (let () (declare (not safe)) (__foldl1 cons - _%refs143642%_ - _%post143521%_))))))) + _%refs144929%_ + _%post144808%_))))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148151148152%_)) - (let ((_%e143582143686%_ + _%__stx149438149439%_)) + (let ((_%e144869144973%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148151148152%_)))) - (let ((_%tl143584143691%_ + _%__stx149438149439%_)))) + (let ((_%tl144871144978%_ (let () (declare (not safe)) - (##cdr _%e143582143686%_))) - (_%hd143583143689%_ + (##cdr _%e144869144973%_))) + (_%hd144870144976%_ (let () (declare (not safe)) - (##car _%e143582143686%_)))) + (##car _%e144869144973%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143583143689%_)) - (let ((_%e143585143694%_ + _%hd144870144976%_)) + (let ((_%e144872144981%_ (let () (declare (not safe)) (gx#stx-e - _%hd143583143689%_)))) - (let ((_%tl143587143699%_ + _%hd144870144976%_)))) + (let ((_%tl144874144986%_ (let () (declare (not safe)) - (##cdr _%e143585143694%_))) - (_%hd143586143697%_ + (##cdr _%e144872144981%_))) + (_%hd144873144984%_ (let () (declare (not safe)) - (##car _%e143585143694%_)))) + (##car _%e144872144981%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143587143699%_)) + _%tl144874144986%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl143584143691%_)) - (let ((_%e143588143702%_ + (gx#stx-pair? _%tl144871144978%_)) + (let ((_%e144875144989%_ (let () (declare (not safe)) - (gx#stx-e _%tl143584143691%_)))) - (let ((_%tl143590143707%_ + (gx#stx-e _%tl144871144978%_)))) + (let ((_%tl144877144994%_ (let () (declare (not safe)) - (##cdr _%e143588143702%_))) - (_%hd143589143705%_ + (##cdr _%e144875144989%_))) + (_%hd144876144992%_ (let () (declare (not safe)) - (##car _%e143588143702%_)))) + (##car _%e144875144989%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143590143707%_)) - (_%__kont148153148154%_ - _%hd143589143705%_ - _%hd143586143697%_) + (gx#stx-null? _%tl144877144994%_)) + (_%__kont149440149441%_ + _%hd144876144992%_ + _%hd144873144984%_) (let () (declare (not safe)) - (_%g143578143603%_))))) - (let () (declare (not safe)) (_%g143578143603%_))) + (_%g144865144890%_))))) + (let () (declare (not safe)) (_%g144865144890%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143584143691%_)) - (let ((_%e143596143616%_ + (gx#stx-pair? _%tl144871144978%_)) + (let ((_%e144883144903%_ (let () (declare (not safe)) - (gx#stx-e _%tl143584143691%_)))) - (let ((_%tl143598143621%_ + (gx#stx-e _%tl144871144978%_)))) + (let ((_%tl144885144908%_ (let () (declare (not safe)) - (##cdr _%e143596143616%_))) - (_%hd143597143619%_ + (##cdr _%e144883144903%_))) + (_%hd144884144906%_ (let () (declare (not safe)) - (##car _%e143596143616%_)))) + (##car _%e144883144903%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143598143621%_)) - (_%__kont148155148156%_ - _%hd143597143619%_ - _%hd143583143689%_) + (gx#stx-null? _%tl144885144908%_)) + (_%__kont149442149443%_ + _%hd144884144906%_ + _%hd144870144976%_) (let () (declare (not safe)) - (_%g143578143603%_))))) - (let () (declare (not safe)) (_%g143578143603%_)))))) + (_%g144865144890%_))))) + (let () (declare (not safe)) (_%g144865144890%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143584143691%_)) - (let ((_%e143596143616%_ + _%tl144871144978%_)) + (let ((_%e144883144903%_ (let () (declare (not safe)) (gx#stx-e - _%tl143584143691%_)))) - (let ((_%tl143598143621%_ + _%tl144871144978%_)))) + (let ((_%tl144885144908%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e143596143616%_))) - (_%hd143597143619%_ - (let () (declare (not safe)) (##car _%e143596143616%_)))) + (##cdr _%e144883144903%_))) + (_%hd144884144906%_ + (let () (declare (not safe)) (##car _%e144883144903%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143598143621%_)) - (_%__kont148155148156%_ - _%hd143597143619%_ - _%hd143583143689%_) - (let () (declare (not safe)) (_%g143578143603%_))))) + (gx#stx-null? _%tl144885144908%_)) + (_%__kont149442149443%_ + _%hd144884144906%_ + _%hd144870144976%_) + (let () (declare (not safe)) (_%g144865144890%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143578143603%_)))))) + (_%g144865144890%_)))))) (let () (declare (not safe)) - (_%g143578143603%_))))))) - (_%__kont148199148200%_ + (_%g144865144890%_))))))) + (_%__kont149486149487%_ (lambda () - (let* ((_%body143542%_ - (if _%compiled-body?143430%_ - _%body143514%_ + (let* ((_%body144829%_ + (if _%compiled-body?144717%_ + _%body144801%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143428%_ - _%body143514%_)))) - (_%body143544%_ - (_%generate-values-post143435%_ - _%post143521%_ - _%body143542%_)) - (_%body143546%_ - (_%generate-values-check143434%_ - _%check143520%_ - _%body143544%_))) + _%self144715%_ + _%body144801%_)))) + (_%body144831%_ + (_%generate-values-post144722%_ + _%post144808%_ + _%body144829%_)) + (_%body144833%_ + (_%generate-values-check144721%_ + _%check144807%_ + _%body144831%_))) (cons 'letrec - (cons (reverse _%bind143519%_) - (cons _%body143546%_ '()))))))) + (cons (reverse _%bind144806%_) + (cons _%body144833%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148195148196%_)) - (let ((_%e143528143554%_ + (gx#stx-pair? _%__stx149482149483%_)) + (let ((_%e144815144841%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148195148196%_)))) - (let ((_%tl143530143559%_ + (gx#stx-e _%__stx149482149483%_)))) + (let ((_%tl144817144846%_ (let () (declare (not safe)) - (##cdr _%e143528143554%_))) - (_%hd143529143557%_ + (##cdr _%e144815144841%_))) + (_%hd144816144844%_ (let () (declare (not safe)) - (##car _%e143528143554%_)))) - (_%__kont148197148198%_ - _%tl143530143559%_ - _%hd143529143557%_))) - (_%__kont148199148200%_))))))) - (_%generate-values-check143434%_ - (lambda (_%check143510%_ _%body143511%_) + (##car _%e144815144841%_)))) + (_%__kont149484149485%_ + _%tl144817144846%_ + _%hd144816144844%_))) + (_%__kont149486149487%_))))))) + (_%generate-values-check144721%_ + (lambda (_%check144797%_ _%body144798%_) (cons 'begin - (let ((__tmp148962 (cons _%body143511%_ '())) - (__tmp148961 (reverse _%check143510%_))) + (let ((__tmp150249 (cons _%body144798%_ '())) + (__tmp150248 (reverse _%check144797%_))) (declare (not safe)) - (__foldr1 cons __tmp148962 __tmp148961))))) - (_%generate-values-post143435%_ - (lambda (_%post143503%_ _%body143504%_) + (__foldr1 cons __tmp150249 __tmp150248))))) + (_%generate-values-post144722%_ + (lambda (_%post144790%_ _%body144791%_) (cons 'begin - (let ((__tmp148966 (cons _%body143504%_ '())) - (__tmp148963 - (let ((__tmp148965 - (lambda (_%g143505143507%_) - (cons 'set! _%g143505143507%_))) - (__tmp148964 (reverse _%post143503%_))) + (let ((__tmp150253 (cons _%body144791%_ '())) + (__tmp150250 + (let ((__tmp150252 + (lambda (_%g144792144794%_) + (cons 'set! _%g144792144794%_))) + (__tmp150251 (reverse _%post144790%_))) (declare (not safe)) - (##map __tmp148965 __tmp148964)))) + (##map __tmp150252 __tmp150251)))) (declare (not safe)) - (__foldr1 cons __tmp148966 __tmp148963)))))) - (let* ((_%g143437143454%_ - (lambda (_%g143438143451%_) + (__foldr1 cons __tmp150253 __tmp150250)))))) + (let* ((_%g144724144741%_ + (lambda (_%g144725144738%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143438143451%_)))) - (_%g143436143500%_ - (lambda (_%g143438143457%_) + _%g144725144738%_)))) + (_%g144723144787%_ + (lambda (_%g144725144744%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143438143457%_)) - (let ((_%e143441143459%_ + (gx#stx-pair? _%g144725144744%_)) + (let ((_%e144728144746%_ (let () (declare (not safe)) - (gx#stx-e _%g143438143457%_)))) - (let ((_%hd143442143462%_ + (gx#stx-e _%g144725144744%_)))) + (let ((_%hd144729144749%_ (let () (declare (not safe)) - (##car _%e143441143459%_))) - (_%tl143443143464%_ + (##car _%e144728144746%_))) + (_%tl144730144751%_ (let () (declare (not safe)) - (##cdr _%e143441143459%_)))) + (##cdr _%e144728144746%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143443143464%_)) - (let ((_%e143444143467%_ + (gx#stx-pair? _%tl144730144751%_)) + (let ((_%e144731144754%_ (let () (declare (not safe)) - (gx#stx-e _%tl143443143464%_)))) - (let ((_%hd143445143470%_ + (gx#stx-e _%tl144730144751%_)))) + (let ((_%hd144732144757%_ (let () (declare (not safe)) - (##car _%e143444143467%_))) - (_%tl143446143472%_ + (##car _%e144731144754%_))) + (_%tl144733144759%_ (let () (declare (not safe)) - (##cdr _%e143444143467%_)))) + (##cdr _%e144731144754%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143446143472%_)) - (let ((_%e143447143475%_ + (gx#stx-pair? _%tl144733144759%_)) + (let ((_%e144734144762%_ (let () (declare (not safe)) (gx#stx-e - _%tl143446143472%_)))) - (let ((_%hd143448143478%_ + _%tl144733144759%_)))) + (let ((_%hd144735144765%_ (let () (declare (not safe)) - (##car _%e143447143475%_))) - (_%tl143449143480%_ + (##car _%e144734144762%_))) + (_%tl144736144767%_ (let () (declare (not safe)) - (##cdr _%e143447143475%_)))) + (##cdr _%e144734144762%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143449143480%_)) - ((lambda (_%L143483%_ - _%L143484%_) + _%tl144736144767%_)) + ((lambda (_%L144770%_ + _%L144771%_) (if (gxc#generate-runtime-simple-let? - _%L143484%_) - (_%generate-simple143432%_ - _%L143484%_ - _%L143483%_) - (_%generate-values143433%_ - _%L143484%_ - _%L143483%_))) - _%hd143448143478%_ - _%hd143445143470%_) - (_%g143437143454%_ - _%g143438143457%_)))) - (_%g143437143454%_ - _%g143438143457%_)))) - (_%g143437143454%_ _%g143438143457%_)))) - (_%g143437143454%_ _%g143438143457%_))))) - (_%g143436143500%_ _%stx143429%_))))) + _%L144771%_) + (_%generate-simple144719%_ + _%L144771%_ + _%L144770%_) + (_%generate-values144720%_ + _%L144771%_ + _%L144770%_))) + _%hd144735144765%_ + _%hd144732144757%_) + (_%g144724144741%_ + _%g144725144744%_)))) + (_%g144724144741%_ + _%g144725144744%_)))) + (_%g144724144741%_ _%g144725144744%_)))) + (_%g144724144741%_ _%g144725144744%_))))) + (_%g144723144787%_ _%stx144716%_))))) (define gxc#generate-runtime-letrec-values%__0 - (lambda (_%self143740%_ _%stx143741%_) - (let ((_%compiled-body?143743%_ '#f)) + (lambda (_%self145027%_ _%stx145028%_) + (let ((_%compiled-body?145030%_ '#f)) (gxc#generate-runtime-letrec-values%__% - _%self143740%_ - _%stx143741%_ - _%compiled-body?143743%_)))) + _%self145027%_ + _%stx145028%_ + _%compiled-body?145030%_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g148968_ - (let ((_g148967_ (let () (declare (not safe)) (##length _g148968_)))) - (cond ((let () (declare (not safe)) (##fx= _g148967_ 2)) - (apply gxc#generate-runtime-letrec-values%__0 _g148968_)) - ((let () (declare (not safe)) (##fx= _g148967_ 3)) - (apply gxc#generate-runtime-letrec-values%__% _g148968_)) + (lambda _g150255_ + (let ((_g150254_ (let () (declare (not safe)) (##length _g150255_)))) + (cond ((let () (declare (not safe)) (##fx= _g150254_ 2)) + (apply gxc#generate-runtime-letrec-values%__0 _g150255_)) + ((let () (declare (not safe)) (##fx= _g150254_ 3)) + (apply gxc#generate-runtime-letrec-values%__% _g150255_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-letrec-values% - _g148968_)))))) + _g150255_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_%self143009%_ _%stx143010%_) - (letrec ((_%generate-values143012%_ - (lambda (_%hd143255%_ _%body143256%_) - (let _%lp143258%_ ((_%rest143260%_ _%hd143255%_) - (_%bind143261%_ '())) - (let* ((_%rest143262143270%_ _%rest143260%_) - (_%else143264143281%_ + (lambda (_%self144296%_ _%stx144297%_) + (letrec ((_%generate-values144299%_ + (lambda (_%hd144542%_ _%body144543%_) + (let _%lp144545%_ ((_%rest144547%_ _%hd144542%_) + (_%bind144548%_ '())) + (let* ((_%rest144549144557%_ _%rest144547%_) + (_%else144551144568%_ (lambda () - (let ((_%bind143278%_ (reverse _%bind143261%_)) - (_%body143279%_ + (let ((_%bind144565%_ (reverse _%bind144548%_)) + (_%body144566%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143009%_ - _%body143256%_)))) + _%self144296%_ + _%body144543%_)))) (cons 'letrec* - (cons _%bind143278%_ - (cons _%body143279%_ '())))))) - (_%K143266143415%_ - (lambda (_%rest143284%_ _%hd-bind143285%_) - (let* ((_%__stx148209148210%_ - _%hd-bind143285%_) - (_%g143288143313%_ + (cons _%bind144565%_ + (cons _%body144566%_ '())))))) + (_%K144553144702%_ + (lambda (_%rest144571%_ _%hd-bind144572%_) + (let* ((_%__stx149496149497%_ + _%hd-bind144572%_) + (_%g144575144600%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148209148210%_))))) - (let ((_%__kont148211148212%_ - (lambda (_%L143394%_ _%L143395%_) - (let ((_%eid143409%_ + _%__stx149496149497%_))))) + (let ((_%__kont149498149499%_ + (lambda (_%L144681%_ _%L144682%_) + (let ((_%eid144696%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L143395%_))) - (_%expr143410%_ + _%L144682%_))) + (_%expr144697%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143009%_ - _%L143394%_)))) - (_%lp143258%_ - _%rest143284%_ - (cons (cons _%eid143409%_ - (cons _%expr143410%_ + _%self144296%_ + _%L144681%_)))) + (_%lp144545%_ + _%rest144571%_ + (cons (cons _%eid144696%_ + (cons _%expr144697%_ '())) - _%bind143261%_))))) - (_%__kont148213148214%_ - (lambda (_%L143334%_ _%L143335%_) - (let* ((_%vals143354%_ + _%bind144548%_))))) + (_%__kont149500149501%_ + (lambda (_%L144621%_ _%L144622%_) + (let* ((_%vals144641%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%tmp143356%_ + (_%tmp144643%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values143358%_ + (_%check-values144645%_ (gxc#generate-runtime-check-values - _%tmp143356%_ - _%L143335%_ - _%L143334%_)) - (_%refs143360%_ + _%tmp144643%_ + _%L144622%_ + _%L144621%_)) + (_%refs144647%_ (gxc#generate-runtime-let-values-bind - _%vals143354%_ - _%L143335%_)) - (_%expr143362%_ + _%vals144641%_ + _%L144622%_)) + (_%expr144649%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143009%_ - _%L143334%_)))) - (_%lp143258%_ - _%rest143284%_ - (let ((__tmp148969 - (cons (cons _%vals143354%_ + _%self144296%_ + _%L144621%_)))) + (_%lp144545%_ + _%rest144571%_ + (let ((__tmp150256 + (cons (cons _%vals144641%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'let - (cons (cons (cons _%tmp143356%_ - (cons _%expr143362%_ + (cons (cons (cons _%tmp144643%_ + (cons _%expr144649%_ '())) '()) - (cons _%check-values143358%_ - (cons _%tmp143356%_ '())))) + (cons _%check-values144645%_ + (cons _%tmp144643%_ '())))) '())) - _%bind143261%_))) + _%bind144548%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp148969 - _%refs143360%_))))))) + __tmp150256 + _%refs144647%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148209148210%_)) - (let ((_%e143292143370%_ + (gx#stx-pair? _%__stx149496149497%_)) + (let ((_%e144579144657%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148209148210%_)))) - (let ((_%tl143294143375%_ + _%__stx149496149497%_)))) + (let ((_%tl144581144662%_ (let () (declare (not safe)) - (##cdr _%e143292143370%_))) - (_%hd143293143373%_ + (##cdr _%e144579144657%_))) + (_%hd144580144660%_ (let () (declare (not safe)) - (##car _%e143292143370%_)))) + (##car _%e144579144657%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143293143373%_)) - (let ((_%e143295143378%_ + _%hd144580144660%_)) + (let ((_%e144582144665%_ (let () (declare (not safe)) (gx#stx-e - _%hd143293143373%_)))) - (let ((_%tl143297143383%_ + _%hd144580144660%_)))) + (let ((_%tl144584144670%_ (let () (declare (not safe)) - (##cdr _%e143295143378%_))) - (_%hd143296143381%_ + (##cdr _%e144582144665%_))) + (_%hd144583144668%_ (let () (declare (not safe)) - (##car _%e143295143378%_)))) + (##car _%e144582144665%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143297143383%_)) + _%tl144584144670%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143294143375%_)) - (let ((_%e143298143386%_ + _%tl144581144662%_)) + (let ((_%e144585144673%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl143294143375%_)))) - (let ((_%tl143300143391%_ + (gx#stx-e _%tl144581144662%_)))) + (let ((_%tl144587144678%_ (let () (declare (not safe)) - (##cdr _%e143298143386%_))) - (_%hd143299143389%_ + (##cdr _%e144585144673%_))) + (_%hd144586144676%_ (let () (declare (not safe)) - (##car _%e143298143386%_)))) + (##car _%e144585144673%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143300143391%_)) - (_%__kont148211148212%_ - _%hd143299143389%_ - _%hd143296143381%_) + (gx#stx-null? _%tl144587144678%_)) + (_%__kont149498149499%_ + _%hd144586144676%_ + _%hd144583144668%_) (let () (declare (not safe)) - (_%g143288143313%_))))) - (let () (declare (not safe)) (_%g143288143313%_))) + (_%g144575144600%_))))) + (let () (declare (not safe)) (_%g144575144600%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143294143375%_)) - (let ((_%e143306143326%_ + (gx#stx-pair? _%tl144581144662%_)) + (let ((_%e144593144613%_ (let () (declare (not safe)) - (gx#stx-e _%tl143294143375%_)))) - (let ((_%tl143308143331%_ + (gx#stx-e _%tl144581144662%_)))) + (let ((_%tl144595144618%_ (let () (declare (not safe)) - (##cdr _%e143306143326%_))) - (_%hd143307143329%_ + (##cdr _%e144593144613%_))) + (_%hd144594144616%_ (let () (declare (not safe)) - (##car _%e143306143326%_)))) + (##car _%e144593144613%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143308143331%_)) - (_%__kont148213148214%_ - _%hd143307143329%_ - _%hd143293143373%_) + (gx#stx-null? _%tl144595144618%_)) + (_%__kont149500149501%_ + _%hd144594144616%_ + _%hd144580144660%_) (let () (declare (not safe)) - (_%g143288143313%_))))) - (let () (declare (not safe)) (_%g143288143313%_)))))) + (_%g144575144600%_))))) + (let () (declare (not safe)) (_%g144575144600%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143294143375%_)) - (let ((_%e143306143326%_ + _%tl144581144662%_)) + (let ((_%e144593144613%_ (let () (declare (not safe)) (gx#stx-e - _%tl143294143375%_)))) - (let ((_%tl143308143331%_ + _%tl144581144662%_)))) + (let ((_%tl144595144618%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e143306143326%_))) - (_%hd143307143329%_ - (let () (declare (not safe)) (##car _%e143306143326%_)))) + (##cdr _%e144593144613%_))) + (_%hd144594144616%_ + (let () (declare (not safe)) (##car _%e144593144613%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143308143331%_)) - (_%__kont148213148214%_ - _%hd143307143329%_ - _%hd143293143373%_) - (let () (declare (not safe)) (_%g143288143313%_))))) + (gx#stx-null? _%tl144595144618%_)) + (_%__kont149500149501%_ + _%hd144594144616%_ + _%hd144580144660%_) + (let () (declare (not safe)) (_%g144575144600%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143288143313%_)))))) + (_%g144575144600%_)))))) (let () (declare (not safe)) - (_%g143288143313%_)))))))) - (if (pair? _%rest143262143270%_) - (let ((_%hd143267143418%_ + (_%g144575144600%_)))))))) + (if (pair? _%rest144549144557%_) + (let ((_%hd144554144705%_ (let () (declare (not safe)) - (##car _%rest143262143270%_))) - (_%tl143268143420%_ + (##car _%rest144549144557%_))) + (_%tl144555144707%_ (let () (declare (not safe)) - (##cdr _%rest143262143270%_)))) - (let* ((_%hd-bind143423%_ _%hd143267143418%_) - (_%rest143425%_ _%tl143268143420%_)) - (_%K143266143415%_ - _%rest143425%_ - _%hd-bind143423%_))) - (_%else143264143281%_)))))) - (_%generate-letrec?143013%_ - (lambda (_%hd143145%_) - (let _%lp143147%_ ((_%rest143149%_ _%hd143145%_)) - (let* ((_%rest143150143158%_ _%rest143149%_) - (_%else143152143166%_ (lambda () '#t)) - (_%K143154143243%_ - (lambda (_%rest143169%_ _%hd-bind143170%_) - (let* ((_%g143172143189%_ - (lambda (_%g143173143186%_) + (##cdr _%rest144549144557%_)))) + (let* ((_%hd-bind144710%_ _%hd144554144705%_) + (_%rest144712%_ _%tl144555144707%_)) + (_%K144553144702%_ + _%rest144712%_ + _%hd-bind144710%_))) + (_%else144551144568%_)))))) + (_%generate-letrec?144300%_ + (lambda (_%hd144432%_) + (let _%lp144434%_ ((_%rest144436%_ _%hd144432%_)) + (let* ((_%rest144437144445%_ _%rest144436%_) + (_%else144439144453%_ (lambda () '#t)) + (_%K144441144530%_ + (lambda (_%rest144456%_ _%hd-bind144457%_) + (let* ((_%g144459144476%_ + (lambda (_%g144460144473%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143173143186%_)))) - (_%g143171143240%_ - (lambda (_%g143173143192%_) + _%g144460144473%_)))) + (_%g144458144527%_ + (lambda (_%g144460144479%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g143173143192%_)) - (let ((_%e143176143194%_ + _%g144460144479%_)) + (let ((_%e144463144481%_ (let () (declare (not safe)) (gx#stx-e - _%g143173143192%_)))) - (let ((_%hd143177143197%_ + _%g144460144479%_)))) + (let ((_%hd144464144484%_ (let () (declare (not safe)) - (##car _%e143176143194%_))) - (_%tl143178143199%_ + (##car _%e144463144481%_))) + (_%tl144465144486%_ (let () (declare (not safe)) - (##cdr _%e143176143194%_)))) + (##cdr _%e144463144481%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143177143197%_)) - (let ((_%e143179143202%_ + _%hd144464144484%_)) + (let ((_%e144466144489%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd143177143197%_)))) - (let ((_%hd143180143205%_ - (let () (declare (not safe)) (##car _%e143179143202%_))) - (_%tl143181143207%_ + (gx#stx-e _%hd144464144484%_)))) + (let ((_%hd144467144492%_ + (let () (declare (not safe)) (##car _%e144466144489%_))) + (_%tl144468144494%_ (let () (declare (not safe)) - (##cdr _%e143179143202%_)))) + (##cdr _%e144466144489%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143181143207%_)) + (gx#stx-null? _%tl144468144494%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143178143199%_)) - (let ((_%e143182143210%_ + (gx#stx-pair? _%tl144465144486%_)) + (let ((_%e144469144497%_ (let () (declare (not safe)) - (gx#stx-e _%tl143178143199%_)))) - (let ((_%hd143183143213%_ + (gx#stx-e _%tl144465144486%_)))) + (let ((_%hd144470144500%_ (let () (declare (not safe)) - (##car _%e143182143210%_))) - (_%tl143184143215%_ + (##car _%e144469144497%_))) + (_%tl144471144502%_ (let () (declare (not safe)) - (##cdr _%e143182143210%_)))) + (##cdr _%e144469144497%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143184143215%_)) - ((lambda (_%L143218%_ _%L143219%_) - (if (_%is-lambda-expr?143014%_ - _%L143218%_) - (_%lp143147%_ _%rest143169%_) + (gx#stx-null? _%tl144471144502%_)) + ((lambda (_%L144505%_ _%L144506%_) + (if (_%is-lambda-expr?144301%_ + _%L144505%_) + (_%lp144434%_ _%rest144456%_) '#f)) - _%hd143183143213%_ - _%hd143180143205%_) - (_%g143172143189%_ _%g143173143192%_)))) - (_%g143172143189%_ _%g143173143192%_)) - (_%g143172143189%_ _%g143173143192%_)))) - (_%g143172143189%_ _%g143173143192%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g143172143189%_ - _%g143173143192%_))))) - (_%g143171143240%_ _%hd-bind143170%_))))) - (if (pair? _%rest143150143158%_) - (let ((_%hd143155143246%_ + _%hd144470144500%_ + _%hd144467144492%_) + (_%g144459144476%_ _%g144460144479%_)))) + (_%g144459144476%_ _%g144460144479%_)) + (_%g144459144476%_ _%g144460144479%_)))) + (_%g144459144476%_ _%g144460144479%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g144459144476%_ + _%g144460144479%_))))) + (_%g144458144527%_ _%hd-bind144457%_))))) + (if (pair? _%rest144437144445%_) + (let ((_%hd144442144533%_ (let () (declare (not safe)) - (##car _%rest143150143158%_))) - (_%tl143156143248%_ + (##car _%rest144437144445%_))) + (_%tl144443144535%_ (let () (declare (not safe)) - (##cdr _%rest143150143158%_)))) - (let* ((_%hd-bind143251%_ _%hd143155143246%_) - (_%rest143253%_ _%tl143156143248%_)) - (_%K143154143243%_ - _%rest143253%_ - _%hd-bind143251%_))) - (_%else143152143166%_)))))) - (_%is-lambda-expr?143014%_ - (lambda (_%expr143082%_) - (let* ((_%__stx148253148254%_ _%expr143082%_) - (_%g143085143099%_ + (##cdr _%rest144437144445%_)))) + (let* ((_%hd-bind144538%_ _%hd144442144533%_) + (_%rest144540%_ _%tl144443144535%_)) + (_%K144441144530%_ + _%rest144540%_ + _%hd-bind144538%_))) + (_%else144439144453%_)))))) + (_%is-lambda-expr?144301%_ + (lambda (_%expr144369%_) + (let* ((_%__stx149540149541%_ _%expr144369%_) + (_%g144372144386%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148253148254%_))))) - (let ((_%__kont148255148256%_ - (lambda (_%L143127%_ _%L143128%_) '#t)) - (_%__kont148257148258%_ (lambda () '#f))) + _%__stx149540149541%_))))) + (let ((_%__kont149542149543%_ + (lambda (_%L144414%_ _%L144415%_) '#t)) + (_%__kont149544149545%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148253148254%_)) - (let ((_%e143089143111%_ + (gx#stx-pair? _%__stx149540149541%_)) + (let ((_%e144376144398%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148253148254%_)))) - (let ((_%tl143091143116%_ + (gx#stx-e _%__stx149540149541%_)))) + (let ((_%tl144378144403%_ (let () (declare (not safe)) - (##cdr _%e143089143111%_))) - (_%hd143090143114%_ + (##cdr _%e144376144398%_))) + (_%hd144377144401%_ (let () (declare (not safe)) - (##car _%e143089143111%_)))) + (##car _%e144376144398%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd143090143114%_)) + (gx#identifier? _%hd144377144401%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd143090143114%_)) + _%hd144377144401%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143091143116%_)) - (let ((_%e143092143119%_ + _%tl144378144403%_)) + (let ((_%e144379144406%_ (let () (declare (not safe)) (gx#stx-e - _%tl143091143116%_)))) - (let ((_%tl143094143124%_ + _%tl144378144403%_)))) + (let ((_%tl144381144411%_ (let () (declare (not safe)) - (##cdr _%e143092143119%_))) - (_%hd143093143122%_ + (##cdr _%e144379144406%_))) + (_%hd144380144409%_ (let () (declare (not safe)) - (##car _%e143092143119%_)))) - (_%__kont148255148256%_ - _%tl143094143124%_ - _%hd143093143122%_))) - (_%__kont148257148258%_)) - (_%__kont148257148258%_)) - (_%__kont148257148258%_)))) - (_%__kont148257148258%_))))))) - (let* ((_%g143016143033%_ - (lambda (_%g143017143030%_) + (##car _%e144379144406%_)))) + (_%__kont149542149543%_ + _%tl144381144411%_ + _%hd144380144409%_))) + (_%__kont149544149545%_)) + (_%__kont149544149545%_)) + (_%__kont149544149545%_)))) + (_%__kont149544149545%_))))))) + (let* ((_%g144303144320%_ + (lambda (_%g144304144317%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143017143030%_)))) - (_%g143015143079%_ - (lambda (_%g143017143036%_) + _%g144304144317%_)))) + (_%g144302144366%_ + (lambda (_%g144304144323%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143017143036%_)) - (let ((_%e143020143038%_ + (gx#stx-pair? _%g144304144323%_)) + (let ((_%e144307144325%_ (let () (declare (not safe)) - (gx#stx-e _%g143017143036%_)))) - (let ((_%hd143021143041%_ + (gx#stx-e _%g144304144323%_)))) + (let ((_%hd144308144328%_ (let () (declare (not safe)) - (##car _%e143020143038%_))) - (_%tl143022143043%_ + (##car _%e144307144325%_))) + (_%tl144309144330%_ (let () (declare (not safe)) - (##cdr _%e143020143038%_)))) + (##cdr _%e144307144325%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143022143043%_)) - (let ((_%e143023143046%_ + (gx#stx-pair? _%tl144309144330%_)) + (let ((_%e144310144333%_ (let () (declare (not safe)) - (gx#stx-e _%tl143022143043%_)))) - (let ((_%hd143024143049%_ + (gx#stx-e _%tl144309144330%_)))) + (let ((_%hd144311144336%_ (let () (declare (not safe)) - (##car _%e143023143046%_))) - (_%tl143025143051%_ + (##car _%e144310144333%_))) + (_%tl144312144338%_ (let () (declare (not safe)) - (##cdr _%e143023143046%_)))) + (##cdr _%e144310144333%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143025143051%_)) - (let ((_%e143026143054%_ + (gx#stx-pair? _%tl144312144338%_)) + (let ((_%e144313144341%_ (let () (declare (not safe)) (gx#stx-e - _%tl143025143051%_)))) - (let ((_%hd143027143057%_ + _%tl144312144338%_)))) + (let ((_%hd144314144344%_ (let () (declare (not safe)) - (##car _%e143026143054%_))) - (_%tl143028143059%_ + (##car _%e144313144341%_))) + (_%tl144315144346%_ (let () (declare (not safe)) - (##cdr _%e143026143054%_)))) + (##cdr _%e144313144341%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143028143059%_)) - ((lambda (_%L143062%_ - _%L143063%_) + _%tl144315144346%_)) + ((lambda (_%L144349%_ + _%L144350%_) (if (gxc#generate-runtime-simple-let? - _%L143063%_) - (if (_%generate-letrec?143013%_ - _%L143063%_) + _%L144350%_) + (if (_%generate-letrec?144300%_ + _%L144350%_) (gxc#generate-runtime-simple-let - _%self143009%_ + _%self144296%_ 'letrec - _%L143063%_ - _%L143062%_ + _%L144350%_ + _%L144349%_ '#f) (gxc#generate-runtime-simple-let - _%self143009%_ + _%self144296%_ 'letrec* - _%L143063%_ - _%L143062%_ + _%L144350%_ + _%L144349%_ '#f)) - (_%generate-values143012%_ - _%L143063%_ - _%L143062%_))) - _%hd143027143057%_ - _%hd143024143049%_) - (_%g143016143033%_ - _%g143017143036%_)))) - (_%g143016143033%_ - _%g143017143036%_)))) - (_%g143016143033%_ _%g143017143036%_)))) - (_%g143016143033%_ _%g143017143036%_))))) - (_%g143015143079%_ _%stx143010%_))))) + (_%generate-values144299%_ + _%L144350%_ + _%L144349%_))) + _%hd144314144344%_ + _%hd144311144336%_) + (_%g144303144320%_ + _%g144304144323%_)))) + (_%g144303144320%_ + _%g144304144323%_)))) + (_%g144303144320%_ _%g144304144323%_)))) + (_%g144303144320%_ _%g144304144323%_))))) + (_%g144302144366%_ _%stx144297%_))))) (define gxc#generate-runtime-simple-let? - (lambda (_%hd142946%_) - (let _%lp142948%_ ((_%rest142950%_ _%hd142946%_)) - (let* ((_%rest142951142967%_ _%rest142950%_) - (_%else142954142975%_ (lambda () '#f))) - (let ((_%K142957142988%_ - (lambda (_%rest142986%_) (_%lp142948%_ _%rest142986%_))) - (_%K142956142980%_ (lambda () '#t))) - (let ((_%try-match142953142983%_ + (lambda (_%hd144233%_) + (let _%lp144235%_ ((_%rest144237%_ _%hd144233%_)) + (let* ((_%rest144238144254%_ _%rest144237%_) + (_%else144241144262%_ (lambda () '#f))) + (let ((_%K144244144275%_ + (lambda (_%rest144273%_) (_%lp144235%_ _%rest144273%_))) + (_%K144243144267%_ (lambda () '#t))) + (let ((_%try-match144240144270%_ (lambda () - (if (null? _%rest142951142967%_) - (_%K142956142980%_) - (_%else142954142975%_))))) - (if (pair? _%rest142951142967%_) - (let ((_%tl142959142993%_ + (if (null? _%rest144238144254%_) + (_%K144243144267%_) + (_%else144241144262%_))))) + (if (pair? _%rest144238144254%_) + (let ((_%tl144246144280%_ (let () (declare (not safe)) - (##cdr _%rest142951142967%_))) - (_%hd142958142991%_ + (##cdr _%rest144238144254%_))) + (_%hd144245144278%_ (let () (declare (not safe)) - (##car _%rest142951142967%_)))) - (if (pair? _%hd142958142991%_) - (let ((_%tl142961142998%_ + (##car _%rest144238144254%_)))) + (if (pair? _%hd144245144278%_) + (let ((_%tl144248144285%_ (let () (declare (not safe)) - (##cdr _%hd142958142991%_))) - (_%hd142960142996%_ + (##cdr _%hd144245144278%_))) + (_%hd144247144283%_ (let () (declare (not safe)) - (##car _%hd142958142991%_)))) - (if (pair? _%hd142960142996%_) - (let ((_%tl142965143001%_ + (##car _%hd144245144278%_)))) + (if (pair? _%hd144247144283%_) + (let ((_%tl144252144288%_ (let () (declare (not safe)) - (##cdr _%hd142960142996%_)))) - (if (null? _%tl142965143001%_) - (if (pair? _%tl142961142998%_) - (let ((_%tl142963143004%_ + (##cdr _%hd144247144283%_)))) + (if (null? _%tl144252144288%_) + (if (pair? _%tl144248144285%_) + (let ((_%tl144250144291%_ (let () (declare (not safe)) - (##cdr _%tl142961142998%_)))) - (if (null? _%tl142963143004%_) - (let ((_%rest143007%_ - _%tl142959142993%_)) - (_%lp142948%_ - _%rest143007%_)) - (_%else142954142975%_))) - (_%else142954142975%_)) - (_%else142954142975%_))) - (_%else142954142975%_))) - (_%else142954142975%_))) - (_%try-match142953142983%_)))))))) + (##cdr _%tl144248144285%_)))) + (if (null? _%tl144250144291%_) + (let ((_%rest144294%_ + _%tl144246144280%_)) + (_%lp144235%_ + _%rest144294%_)) + (_%else144241144262%_))) + (_%else144241144262%_)) + (_%else144241144262%_))) + (_%else144241144262%_))) + (_%else144241144262%_))) + (_%try-match144240144270%_)))))))) (define gxc#generate-runtime-simple-let - (lambda (_%self142857%_ - _%form142858%_ - _%hd142859%_ - _%body142860%_ - _%compiled-body?142861%_) - (letrec ((_%generate1142863%_ - (lambda (_%bind142902%_) - (let* ((_%bind142903142914%_ _%bind142902%_) - (_%E142905142918%_ + (lambda (_%self144144%_ + _%form144145%_ + _%hd144146%_ + _%body144147%_ + _%compiled-body?144148%_) + (letrec ((_%generate1144150%_ + (lambda (_%bind144189%_) + (let* ((_%bind144190144201%_ _%bind144189%_) + (_%E144192144205%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind142903142914%_ + _%bind144190144201%_ '([[id] expr]))) '#!void)) - (_%K142906142924%_ - (lambda (_%expr142921%_ _%id142922%_) + (_%K144193144211%_ + (lambda (_%expr144208%_ _%id144209%_) (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%id142922%_)) + _%id144209%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self142857%_ - _%expr142921%_)) + _%self144144%_ + _%expr144208%_)) '()))))) - (if (pair? _%bind142903142914%_) - (let ((_%hd142907142927%_ + (if (pair? _%bind144190144201%_) + (let ((_%hd144194144214%_ (let () (declare (not safe)) - (##car _%bind142903142914%_))) - (_%tl142908142929%_ + (##car _%bind144190144201%_))) + (_%tl144195144216%_ (let () (declare (not safe)) - (##cdr _%bind142903142914%_)))) - (if (pair? _%hd142907142927%_) - (let ((_%hd142911142932%_ + (##cdr _%bind144190144201%_)))) + (if (pair? _%hd144194144214%_) + (let ((_%hd144198144219%_ (let () (declare (not safe)) - (##car _%hd142907142927%_))) - (_%tl142912142934%_ + (##car _%hd144194144214%_))) + (_%tl144199144221%_ (let () (declare (not safe)) - (##cdr _%hd142907142927%_)))) - (let ((_%id142937%_ _%hd142911142932%_)) - (if (null? _%tl142912142934%_) - (if (pair? _%tl142908142929%_) - (let ((_%hd142909142939%_ + (##cdr _%hd144194144214%_)))) + (let ((_%id144224%_ _%hd144198144219%_)) + (if (null? _%tl144199144221%_) + (if (pair? _%tl144195144216%_) + (let ((_%hd144196144226%_ (let () (declare (not safe)) - (##car _%tl142908142929%_))) - (_%tl142910142941%_ + (##car _%tl144195144216%_))) + (_%tl144197144228%_ (let () (declare (not safe)) - (##cdr _%tl142908142929%_)))) - (let ((_%expr142944%_ - _%hd142909142939%_)) - (if (null? _%tl142910142941%_) - (_%K142906142924%_ - _%expr142944%_ - _%id142937%_) - (_%E142905142918%_)))) - (_%E142905142918%_)) - (_%E142905142918%_)))) - (_%E142905142918%_))) - (_%E142905142918%_)))))) - (let* ((_%bind142865%_ (map _%generate1142863%_ _%hd142859%_)) - (_%body142867%_ - (if _%compiled-body?142861%_ - _%body142860%_ + (##cdr _%tl144195144216%_)))) + (let ((_%expr144231%_ + _%hd144196144226%_)) + (if (null? _%tl144197144228%_) + (_%K144193144211%_ + _%expr144231%_ + _%id144224%_) + (_%E144192144205%_)))) + (_%E144192144205%_)) + (_%E144192144205%_)))) + (_%E144192144205%_))) + (_%E144192144205%_)))))) + (let* ((_%bind144152%_ (map _%generate1144150%_ _%hd144146%_)) + (_%body144154%_ + (if _%compiled-body?144148%_ + _%body144147%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self142857%_ _%body142860%_)))) - (_%body142899%_ - (let* ((_%body142868142876%_ _%body142867%_) - (_%else142870142884%_ - (lambda () (cons _%body142867%_ '()))) - (_%K142872142889%_ - (lambda (_%exprs142887%_) _%exprs142887%_))) - (if (pair? _%body142868142876%_) - (let ((_%hd142873142892%_ + (gxc#compile-e__1 _%self144144%_ _%body144147%_)))) + (_%body144186%_ + (let* ((_%body144155144163%_ _%body144154%_) + (_%else144157144171%_ + (lambda () (cons _%body144154%_ '()))) + (_%K144159144176%_ + (lambda (_%exprs144174%_) _%exprs144174%_))) + (if (pair? _%body144155144163%_) + (let ((_%hd144160144179%_ (let () (declare (not safe)) - (##car _%body142868142876%_))) - (_%tl142874142894%_ + (##car _%body144155144163%_))) + (_%tl144161144181%_ (let () (declare (not safe)) - (##cdr _%body142868142876%_)))) + (##cdr _%body144155144163%_)))) (if (let () (declare (not safe)) - (##eq? _%hd142873142892%_ 'begin)) - (let ((_%exprs142897%_ _%tl142874142894%_)) - (_%K142872142889%_ _%exprs142897%_)) - (_%else142870142884%_))) - (_%else142870142884%_))))) - (cons _%form142858%_ (cons _%bind142865%_ _%body142899%_)))))) + (##eq? _%hd144160144179%_ 'begin)) + (let ((_%exprs144184%_ _%tl144161144181%_)) + (_%K144159144176%_ _%exprs144184%_)) + (_%else144157144171%_))) + (_%else144157144171%_))))) + (cons _%form144145%_ (cons _%bind144152%_ _%body144186%_)))))) (define gxc#generate-runtime-quote% - (lambda (_%self142757%_ _%stx142758%_) - (letrec ((_%generate1142760%_ - (lambda (_%datum142812%_) - (if (or (null? _%datum142812%_) + (lambda (_%self144044%_ _%stx144045%_) + (letrec ((_%generate1144047%_ + (lambda (_%datum144099%_) + (if (or (null? _%datum144099%_) (let () (declare (not safe)) - (interned-symbol? _%datum142812%_)) + (interned-symbol? _%datum144099%_)) (let () (declare (not safe)) - (gx#self-quoting? _%datum142812%_)) - (eof-object? _%datum142812%_)) - _%datum142812%_ - (if (uninterned-symbol? _%datum142812%_) + (gx#self-quoting? _%datum144099%_)) + (eof-object? _%datum144099%_)) + _%datum144099%_ + (if (uninterned-symbol? _%datum144099%_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _%datum142812%_ + _%datum144099%_ '#t)) - (if (pair? _%datum142812%_) - (cons (_%generate1142760%_ + (if (pair? _%datum144099%_) + (cons (_%generate1144047%_ (let () (declare (not safe)) - (##car _%datum142812%_))) - (_%generate1142760%_ + (##car _%datum144099%_))) + (_%generate1144047%_ (let () (declare (not safe)) - (##cdr _%datum142812%_)))) - (if (box? _%datum142812%_) - (box (_%generate1142760%_ - (unbox _%datum142812%_))) - (if (vector? _%datum142812%_) + (##cdr _%datum144099%_)))) + (if (box? _%datum144099%_) + (box (_%generate1144047%_ + (unbox _%datum144099%_))) + (if (vector? _%datum144099%_) (vector-map - _%generate1142760%_ - _%datum142812%_) - (if (or (s8vector? _%datum142812%_) - (u8vector? _%datum142812%_) - (s16vector? _%datum142812%_) - (u16vector? _%datum142812%_) - (s32vector? _%datum142812%_) - (u32vector? _%datum142812%_) - (s64vector? _%datum142812%_) - (u64vector? _%datum142812%_) - (f32vector? _%datum142812%_) - (f64vector? _%datum142812%_)) - _%datum142812%_ + _%generate1144047%_ + _%datum144099%_) + (if (or (s8vector? _%datum144099%_) + (u8vector? _%datum144099%_) + (s16vector? _%datum144099%_) + (u16vector? _%datum144099%_) + (s32vector? _%datum144099%_) + (u32vector? _%datum144099%_) + (s64vector? _%datum144099%_) + (u64vector? _%datum144099%_) + (f32vector? _%datum144099%_) + (f64vector? _%datum144099%_)) + _%datum144099%_ (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile non-primitive quote" - _%stx142758%_))))))))))) - (let* ((_%g142762142775%_ - (lambda (_%g142763142772%_) + _%stx144045%_))))))))))) + (let* ((_%g144049144062%_ + (lambda (_%g144050144059%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142763142772%_)))) - (_%g142761142809%_ - (lambda (_%g142763142778%_) + _%g144050144059%_)))) + (_%g144048144096%_ + (lambda (_%g144050144065%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142763142778%_)) - (let ((_%e142765142780%_ + (gx#stx-pair? _%g144050144065%_)) + (let ((_%e144052144067%_ (let () (declare (not safe)) - (gx#stx-e _%g142763142778%_)))) - (let ((_%hd142766142783%_ + (gx#stx-e _%g144050144065%_)))) + (let ((_%hd144053144070%_ (let () (declare (not safe)) - (##car _%e142765142780%_))) - (_%tl142767142785%_ + (##car _%e144052144067%_))) + (_%tl144054144072%_ (let () (declare (not safe)) - (##cdr _%e142765142780%_)))) + (##cdr _%e144052144067%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142767142785%_)) - (let ((_%e142768142788%_ + (gx#stx-pair? _%tl144054144072%_)) + (let ((_%e144055144075%_ (let () (declare (not safe)) - (gx#stx-e _%tl142767142785%_)))) - (let ((_%hd142769142791%_ + (gx#stx-e _%tl144054144072%_)))) + (let ((_%hd144056144078%_ (let () (declare (not safe)) - (##car _%e142768142788%_))) - (_%tl142770142793%_ + (##car _%e144055144075%_))) + (_%tl144057144080%_ (let () (declare (not safe)) - (##cdr _%e142768142788%_)))) + (##cdr _%e144055144075%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142770142793%_)) - ((lambda (_%L142796%_) + (gx#stx-null? _%tl144057144080%_)) + ((lambda (_%L144083%_) (cons 'quote - (cons (_%generate1142760%_ + (cons (_%generate1144047%_ (let () (declare (not safe)) (gx#stx-e - _%L142796%_))) + _%L144083%_))) '()))) - _%hd142769142791%_) - (_%g142762142775%_ - _%g142763142778%_)))) - (_%g142762142775%_ _%g142763142778%_)))) - (_%g142762142775%_ _%g142763142778%_))))) - (_%g142761142809%_ _%stx142758%_))))) + _%hd144056144078%_) + (_%g144049144062%_ + _%g144050144065%_)))) + (_%g144049144062%_ _%g144050144065%_)))) + (_%g144049144062%_ _%g144050144065%_))))) + (_%g144048144096%_ _%stx144045%_))))) (define gxc#generate-runtime-call% - (lambda (_%self142198%_ _%stx142199%_) - (letrec ((_%compile-call142201%_ - (lambda (_%rator142490%_ _%rands142491%_) - (let ((_%rator142497%_ + (lambda (_%self143485%_ _%stx143486%_) + (letrec ((_%compile-call143488%_ + (lambda (_%rator143777%_ _%rands143778%_) + (let ((_%rator143784%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142198%_ - _%rator142490%_))) - (_%rands142498%_ - (map (lambda (_%g142492142494%_) + _%self143485%_ + _%rator143777%_))) + (_%rands143785%_ + (map (lambda (_%g143779143781%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self142198%_ - _%g142492142494%_))) - _%rands142491%_))) - (let* ((_%__stx148300148301%_ _%rator142497%_) - (_%g142501142553%_ + _%self143485%_ + _%g143779143781%_))) + _%rands143778%_))) + (let* ((_%__stx149587149588%_ _%rator143784%_) + (_%g143788143840%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148300148301%_))))) - (let ((_%__kont148302148303%_ - (lambda (_%L142677%_ - _%L142678%_ - _%L142679%_ - _%L142680%_) - (if (let ((__tmp148972 + _%__stx149587149588%_))))) + (let ((_%__kont149589149590%_ + (lambda (_%L143964%_ + _%L143965%_ + _%L143966%_ + _%L143967%_) + (if (let ((__tmp150259 (let () (declare (not safe)) - (##length _%rands142498%_))) - (__tmp148970 - (length (let ((__tmp148971 - (lambda (_%g142716142719%_ + (##length _%rands143785%_))) + (__tmp150257 + (length (let ((__tmp150258 + (lambda (_%g144003144006%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g142717142721%_) - (cons _%g142716142719%_ _%g142717142721%_)))) + _%g144004144008%_) + (cons _%g144003144006%_ _%g144004144008%_)))) (declare (not safe)) - (__foldr1 __tmp148971 '() _%L142679%_))))) + (__foldr1 __tmp150258 '() _%L143966%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp148972 __tmp148970)) - (let* ((_%id142724%_ _%L142680%_) - (_%args142733%_ - (let ((__tmp148973 - (lambda (_%g142725142728%_ - _%g142726142730%_) - (cons _%g142725142728%_ - _%g142726142730%_)))) + (##fx= __tmp150259 __tmp150257)) + (let* ((_%id144011%_ _%L143967%_) + (_%args144020%_ + (let ((__tmp150260 + (lambda (_%g144012144015%_ + _%g144013144017%_) + (cons _%g144012144015%_ + _%g144013144017%_)))) (declare (not safe)) (__foldr1 - __tmp148973 + __tmp150260 '() - _%L142679%_))) - (_%body142742%_ - (let ((__tmp148974 - (lambda (_%g142734142737%_ - _%g142735142739%_) - (cons _%g142734142737%_ - _%g142735142739%_)))) + _%L143966%_))) + (_%body144029%_ + (let ((__tmp150261 + (lambda (_%g144021144024%_ + _%g144022144026%_) + (cons _%g144021144024%_ + _%g144022144026%_)))) (declare (not safe)) (__foldr1 - __tmp148974 + __tmp150261 '() - _%L142678%_))) - (_%init142744%_ + _%L143965%_))) + (_%init144031%_ (map list - _%args142733%_ - _%rands142498%_))) + _%args144020%_ + _%rands143785%_))) (cons 'let - (cons _%id142724%_ - (cons _%init142744%_ - _%body142742%_)))) - (let ((__tmp148975 - (let ((__tmp148976 - (lambda (_%g142746142749%_ - _%g142747142751%_) - (cons _%g142746142749%_ - _%g142747142751%_)))) + (cons _%id144011%_ + (cons _%init144031%_ + _%body144029%_)))) + (let ((__tmp150262 + (let ((__tmp150263 + (lambda (_%g144033144036%_ + _%g144034144038%_) + (cons _%g144033144036%_ + _%g144034144038%_)))) (declare (not safe)) (__foldr1 - __tmp148976 + __tmp150263 '() - _%L142679%_)))) + _%L143966%_)))) (declare (not safe)) (gxc#raise-compile-error '"Illegal loop application; arity mismatch" - _%stx142199%_ - __tmp148975 - _%rands142498%_))))) - (_%__kont148308148309%_ + _%stx143486%_ + __tmp150262 + _%rands143785%_))))) + (_%__kont149595149596%_ (lambda () - (cons _%rator142497%_ _%rands142498%_)))) - (let ((_%__match148367148368%_ - (lambda (_%e142507142565%_ - _%hd142508142568%_ - _%tl142509142570%_ - _%e142510142573%_ - _%hd142511142576%_ - _%tl142512142578%_ - _%e142513142581%_ - _%hd142514142584%_ - _%tl142515142586%_ - _%e142516142589%_ - _%hd142517142592%_ - _%tl142518142594%_ - _%e142519142597%_ - _%hd142520142600%_ - _%tl142521142602%_ - _%e142522142605%_ - _%hd142523142608%_ - _%tl142524142610%_ - _%e142525142613%_ - _%hd142526142616%_ - _%tl142527142618%_ - _%__splice148304148305%_ - _%target142528142621%_ - _%tl142530142623%_) - (letrec ((_%loop142531142626%_ - (lambda (_%hd142529142629%_ - _%arg142535142631%_) + (cons _%rator143784%_ _%rands143785%_)))) + (let ((_%__match149654149655%_ + (lambda (_%e143794143852%_ + _%hd143795143855%_ + _%tl143796143857%_ + _%e143797143860%_ + _%hd143798143863%_ + _%tl143799143865%_ + _%e143800143868%_ + _%hd143801143871%_ + _%tl143802143873%_ + _%e143803143876%_ + _%hd143804143879%_ + _%tl143805143881%_ + _%e143806143884%_ + _%hd143807143887%_ + _%tl143808143889%_ + _%e143809143892%_ + _%hd143810143895%_ + _%tl143811143897%_ + _%e143812143900%_ + _%hd143813143903%_ + _%tl143814143905%_ + _%__splice149591149592%_ + _%target143815143908%_ + _%tl143817143910%_) + (letrec ((_%loop143818143913%_ + (lambda (_%hd143816143916%_ + _%arg143822143918%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142529142629%_)) - (let ((_%e142532142634%_ + _%hd143816143916%_)) + (let ((_%e143819143921%_ (let () (declare (not safe)) (gx#stx-e - _%hd142529142629%_)))) - (let ((_%lp-tl142534142639%_ + _%hd143816143916%_)))) + (let ((_%lp-tl143821143926%_ (let () (declare (not safe)) - (##cdr _%e142532142634%_))) - (_%lp-hd142533142637%_ + (##cdr _%e143819143921%_))) + (_%lp-hd143820143924%_ (let () (declare (not safe)) - (##car _%e142532142634%_)))) - (_%loop142531142626%_ - _%lp-tl142534142639%_ - (cons _%lp-hd142533142637%_ - _%arg142535142631%_)))) - (let ((_%arg142536142642%_ - (reverse _%arg142535142631%_))) + (##car _%e143819143921%_)))) + (_%loop143818143913%_ + _%lp-tl143821143926%_ + (cons _%lp-hd143820143924%_ + _%arg143822143918%_)))) + (let ((_%arg143823143929%_ + (reverse _%arg143822143918%_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl142527142618%_)) - (let ((_%__splice148306148307%_ + _%tl143814143905%_)) + (let ((_%__splice149593149594%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _%tl142527142618%_ '0)))) - (let ((_%tl142539142647%_ + (gx#syntax-split-splice _%tl143814143905%_ '0)))) + (let ((_%tl143826143934%_ (let () (declare (not safe)) - (##vector-ref _%__splice148306148307%_ '1))) - (_%target142537142645%_ + (##vector-ref _%__splice149593149594%_ '1))) + (_%target143824143932%_ (let () (declare (not safe)) - (##vector-ref _%__splice148306148307%_ '0)))) + (##vector-ref _%__splice149593149594%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142539142647%_)) - (letrec ((_%loop142540142650%_ - (lambda (_%hd142538142653%_ - _%body142544142655%_) + (gx#stx-null? _%tl143826143934%_)) + (letrec ((_%loop143827143937%_ + (lambda (_%hd143825143940%_ + _%body143831143942%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142538142653%_)) - (let ((_%e142541142658%_ + (gx#stx-pair? _%hd143825143940%_)) + (let ((_%e143828143945%_ (let () (declare (not safe)) (gx#stx-e - _%hd142538142653%_)))) - (let ((_%lp-tl142543142663%_ + _%hd143825143940%_)))) + (let ((_%lp-tl143830143950%_ (let () (declare (not safe)) - (##cdr _%e142541142658%_))) - (_%lp-hd142542142661%_ + (##cdr _%e143828143945%_))) + (_%lp-hd143829143948%_ (let () (declare (not safe)) - (##car _%e142541142658%_)))) - (_%loop142540142650%_ - _%lp-tl142543142663%_ - (cons _%lp-hd142542142661%_ - _%body142544142655%_)))) - (let ((_%body142545142666%_ - (reverse _%body142544142655%_))) + (##car _%e143828143945%_)))) + (_%loop143827143937%_ + _%lp-tl143830143950%_ + (cons _%lp-hd143829143948%_ + _%body143831143942%_)))) + (let ((_%body143832143953%_ + (reverse _%body143831143942%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142521142602%_)) + _%tl143808143889%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142515142586%_)) + _%tl143802143873%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142512142578%_)) - (let ((_%e142546142669%_ + _%tl143799143865%_)) + (let ((_%e143833143956%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl142512142578%_)))) - (let ((_%tl142548142674%_ + (gx#stx-e _%tl143799143865%_)))) + (let ((_%tl143835143961%_ (let () (declare (not safe)) - (##cdr _%e142546142669%_))) - (_%hd142547142672%_ + (##cdr _%e143833143956%_))) + (_%hd143834143959%_ (let () (declare (not safe)) - (##car _%e142546142669%_)))) + (##car _%e143833143956%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142548142674%_)) - (let ((_%L142677%_ _%hd142547142672%_) - (_%L142678%_ _%body142545142666%_) - (_%L142679%_ _%arg142536142642%_) - (_%L142680%_ _%hd142517142592%_)) - (if (eq? _%L142680%_ _%L142677%_) - (_%__kont148302148303%_ - _%L142677%_ - _%L142678%_ - _%L142679%_ - _%L142680%_) - (_%__kont148308148309%_))) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148308148309%_)) - (_%__kont148308148309%_))))))) - (_%loop142540142650%_ _%target142537142645%_ '())) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop142531142626%_ - _%target142528142621%_ + (gx#stx-null? _%tl143835143961%_)) + (let ((_%L143964%_ _%hd143834143959%_) + (_%L143965%_ _%body143832143953%_) + (_%L143966%_ _%arg143823143929%_) + (_%L143967%_ _%hd143804143879%_)) + (if (eq? _%L143967%_ _%L143964%_) + (_%__kont149589149590%_ + _%L143964%_ + _%L143965%_ + _%L143966%_ + _%L143967%_) + (_%__kont149595149596%_))) + (_%__kont149595149596%_)))) + (_%__kont149595149596%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149595149596%_)) + (_%__kont149595149596%_))))))) + (_%loop143827143937%_ _%target143824143932%_ '())) + (_%__kont149595149596%_)))) + (_%__kont149595149596%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop143818143913%_ + _%target143815143908%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148300148301%_)) - (let ((_%e142507142565%_ + (gx#stx-pair? _%__stx149587149588%_)) + (let ((_%e143794143852%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148300148301%_)))) - (let ((_%tl142509142570%_ + (gx#stx-e _%__stx149587149588%_)))) + (let ((_%tl143796143857%_ (let () (declare (not safe)) - (##cdr _%e142507142565%_))) - (_%hd142508142568%_ + (##cdr _%e143794143852%_))) + (_%hd143795143855%_ (let () (declare (not safe)) - (##car _%e142507142565%_)))) + (##car _%e143794143852%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd142508142568%_)) + (gx#identifier? _%hd143795143855%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'letrec - _%hd142508142568%_)) + _%hd143795143855%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142509142570%_)) - (let ((_%e142510142573%_ + _%tl143796143857%_)) + (let ((_%e143797143860%_ (let () (declare (not safe)) (gx#stx-e - _%tl142509142570%_)))) - (let ((_%tl142512142578%_ + _%tl143796143857%_)))) + (let ((_%tl143799143865%_ (let () (declare (not safe)) - (##cdr _%e142510142573%_))) - (_%hd142511142576%_ + (##cdr _%e143797143860%_))) + (_%hd143798143863%_ (let () (declare (not safe)) - (##car _%e142510142573%_)))) + (##car _%e143797143860%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142511142576%_)) - (let ((_%e142513142581%_ + _%hd143798143863%_)) + (let ((_%e143800143868%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd142511142576%_)))) - (let ((_%tl142515142586%_ + (gx#stx-e _%hd143798143863%_)))) + (let ((_%tl143802143873%_ (let () (declare (not safe)) - (##cdr _%e142513142581%_))) - (_%hd142514142584%_ + (##cdr _%e143800143868%_))) + (_%hd143801143871%_ (let () (declare (not safe)) - (##car _%e142513142581%_)))) + (##car _%e143800143868%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142514142584%_)) - (let ((_%e142516142589%_ + (gx#stx-pair? _%hd143801143871%_)) + (let ((_%e143803143876%_ (let () (declare (not safe)) - (gx#stx-e _%hd142514142584%_)))) - (let ((_%tl142518142594%_ + (gx#stx-e _%hd143801143871%_)))) + (let ((_%tl143805143881%_ (let () (declare (not safe)) - (##cdr _%e142516142589%_))) - (_%hd142517142592%_ + (##cdr _%e143803143876%_))) + (_%hd143804143879%_ (let () (declare (not safe)) - (##car _%e142516142589%_)))) + (##car _%e143803143876%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142518142594%_)) - (let ((_%e142519142597%_ + (gx#stx-pair? _%tl143805143881%_)) + (let ((_%e143806143884%_ (let () (declare (not safe)) - (gx#stx-e _%tl142518142594%_)))) - (let ((_%tl142521142602%_ + (gx#stx-e _%tl143805143881%_)))) + (let ((_%tl143808143889%_ (let () (declare (not safe)) - (##cdr _%e142519142597%_))) - (_%hd142520142600%_ + (##cdr _%e143806143884%_))) + (_%hd143807143887%_ (let () (declare (not safe)) - (##car _%e142519142597%_)))) + (##car _%e143806143884%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142520142600%_)) - (let ((_%e142522142605%_ + (gx#stx-pair? _%hd143807143887%_)) + (let ((_%e143809143892%_ (let () (declare (not safe)) (gx#stx-e - _%hd142520142600%_)))) - (let ((_%tl142524142610%_ + _%hd143807143887%_)))) + (let ((_%tl143811143897%_ (let () (declare (not safe)) - (##cdr _%e142522142605%_))) - (_%hd142523142608%_ + (##cdr _%e143809143892%_))) + (_%hd143810143895%_ (let () (declare (not safe)) - (##car _%e142522142605%_)))) + (##car _%e143809143892%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142523142608%_)) + _%hd143810143895%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'lambda - _%hd142523142608%_)) + _%hd143810143895%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142524142610%_)) - (let ((_%e142525142613%_ + _%tl143811143897%_)) + (let ((_%e143812143900%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl142524142610%_)))) - (let ((_%tl142527142618%_ + (gx#stx-e _%tl143811143897%_)))) + (let ((_%tl143814143905%_ (let () (declare (not safe)) - (##cdr _%e142525142613%_))) - (_%hd142526142616%_ + (##cdr _%e143812143900%_))) + (_%hd143813143903%_ (let () (declare (not safe)) - (##car _%e142525142613%_)))) + (##car _%e143812143900%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd142526142616%_)) - (let ((_%__splice148304148305%_ + (gx#stx-pair/null? _%hd143813143903%_)) + (let ((_%__splice149591149592%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd142526142616%_ + _%hd143813143903%_ '0)))) - (let ((_%tl142530142623%_ + (let ((_%tl143817143910%_ (let () (declare (not safe)) - (##vector-ref _%__splice148304148305%_ '1))) - (_%target142528142621%_ + (##vector-ref _%__splice149591149592%_ '1))) + (_%target143815143908%_ (let () (declare (not safe)) (##vector-ref - _%__splice148304148305%_ + _%__splice149591149592%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142530142623%_)) - (_%__match148367148368%_ - _%e142507142565%_ - _%hd142508142568%_ - _%tl142509142570%_ - _%e142510142573%_ - _%hd142511142576%_ - _%tl142512142578%_ - _%e142513142581%_ - _%hd142514142584%_ - _%tl142515142586%_ - _%e142516142589%_ - _%hd142517142592%_ - _%tl142518142594%_ - _%e142519142597%_ - _%hd142520142600%_ - _%tl142521142602%_ - _%e142522142605%_ - _%hd142523142608%_ - _%tl142524142610%_ - _%e142525142613%_ - _%hd142526142616%_ - _%tl142527142618%_ - _%__splice148304148305%_ - _%target142528142621%_ - _%tl142530142623%_) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148308148309%_)) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148308148309%_)) - (_%__kont148308148309%_)) - (_%__kont148308148309%_)))) - (_%__kont148308148309%_))))))))) - (let* ((_%g142203142226%_ - (lambda (_%g142204142223%_) + (gx#stx-null? _%tl143817143910%_)) + (_%__match149654149655%_ + _%e143794143852%_ + _%hd143795143855%_ + _%tl143796143857%_ + _%e143797143860%_ + _%hd143798143863%_ + _%tl143799143865%_ + _%e143800143868%_ + _%hd143801143871%_ + _%tl143802143873%_ + _%e143803143876%_ + _%hd143804143879%_ + _%tl143805143881%_ + _%e143806143884%_ + _%hd143807143887%_ + _%tl143808143889%_ + _%e143809143892%_ + _%hd143810143895%_ + _%tl143811143897%_ + _%e143812143900%_ + _%hd143813143903%_ + _%tl143814143905%_ + _%__splice149591149592%_ + _%target143815143908%_ + _%tl143817143910%_) + (_%__kont149595149596%_)))) + (_%__kont149595149596%_)))) + (_%__kont149595149596%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149595149596%_)) + (_%__kont149595149596%_)))) + (_%__kont149595149596%_)))) + (_%__kont149595149596%_)))) + (_%__kont149595149596%_)))) + (_%__kont149595149596%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149595149596%_)) + (_%__kont149595149596%_)) + (_%__kont149595149596%_)))) + (_%__kont149595149596%_))))))))) + (let* ((_%g143490143513%_ + (lambda (_%g143491143510%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142204142223%_)))) - (_%g142202142487%_ - (lambda (_%g142204142229%_) + _%g143491143510%_)))) + (_%g143489143774%_ + (lambda (_%g143491143516%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142204142229%_)) - (let ((_%e142207142231%_ + (gx#stx-pair? _%g143491143516%_)) + (let ((_%e143494143518%_ (let () (declare (not safe)) - (gx#stx-e _%g142204142229%_)))) - (let ((_%hd142208142234%_ + (gx#stx-e _%g143491143516%_)))) + (let ((_%hd143495143521%_ (let () (declare (not safe)) - (##car _%e142207142231%_))) - (_%tl142209142236%_ + (##car _%e143494143518%_))) + (_%tl143496143523%_ (let () (declare (not safe)) - (##cdr _%e142207142231%_)))) + (##cdr _%e143494143518%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142209142236%_)) - (let ((_%e142210142239%_ + (gx#stx-pair? _%tl143496143523%_)) + (let ((_%e143497143526%_ (let () (declare (not safe)) - (gx#stx-e _%tl142209142236%_)))) - (let ((_%hd142211142242%_ + (gx#stx-e _%tl143496143523%_)))) + (let ((_%hd143498143529%_ (let () (declare (not safe)) - (##car _%e142210142239%_))) - (_%tl142212142244%_ + (##car _%e143497143526%_))) + (_%tl143499143531%_ (let () (declare (not safe)) - (##cdr _%e142210142239%_)))) + (##cdr _%e143497143526%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl142212142244%_)) - (let ((_g148977_ + _%tl143499143531%_)) + (let ((_g150264_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl142212142244%_ + _%tl143499143531%_ '0)))) (begin - (let ((_g148978_ + (let ((_g150265_ (let () (declare (not safe)) - (if (##values? _g148977_) - (##vector-length - _g148977_) + (if (##values? _g150264_) + (##values-length + _g150264_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g148978_ 2))) + (##fx= _g150265_ 2))) (error "Context expects 2 values" - _g148978_))) - (let ((_%target142213142247%_ + _g150265_))) + (let ((_%target143500143534%_ (let () (declare (not safe)) - (##vector-ref - _g148977_ + (##values-ref + _g150264_ 0))) - (_%tl142215142249%_ + (_%tl143502143536%_ (let () (declare (not safe)) - (##vector-ref - _g148977_ + (##values-ref + _g150264_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142215142249%_)) - (letrec ((_%loop142216142252%_ - (lambda (_%hd142214142255%_ + _%tl143502143536%_)) + (letrec ((_%loop143503143539%_ + (lambda (_%hd143501143542%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rand142220142257%_) + _%rand143507143544%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142214142255%_)) - (let ((_%e142217142260%_ + (gx#stx-pair? _%hd143501143542%_)) + (let ((_%e143504143547%_ (let () (declare (not safe)) - (gx#stx-e _%hd142214142255%_)))) - (let ((_%lp-hd142218142263%_ + (gx#stx-e _%hd143501143542%_)))) + (let ((_%lp-hd143505143550%_ (let () (declare (not safe)) - (##car _%e142217142260%_))) - (_%lp-tl142219142265%_ + (##car _%e143504143547%_))) + (_%lp-tl143506143552%_ (let () (declare (not safe)) - (##cdr _%e142217142260%_)))) - (_%loop142216142252%_ - _%lp-tl142219142265%_ - (cons _%lp-hd142218142263%_ - _%rand142220142257%_)))) - (let ((_%rand142221142268%_ - (reverse _%rand142220142257%_))) - ((lambda (_%L142271%_ _%L142272%_) + (##cdr _%e143504143547%_)))) + (_%loop143503143539%_ + _%lp-tl143506143552%_ + (cons _%lp-hd143505143550%_ + _%rand143507143544%_)))) + (let ((_%rand143508143555%_ + (reverse _%rand143507143544%_))) + ((lambda (_%L143558%_ _%L143559%_) (if (gxc#current-compile-decls-unsafe?) - (_%compile-call142201%_ - _%L142272%_ - (let ((__tmp148979 - (lambda (_%g142289142292%_ - _%g142290142294%_) - (cons _%g142289142292%_ - _%g142290142294%_)))) + (_%compile-call143488%_ + _%L143559%_ + (let ((__tmp150266 + (lambda (_%g143576143579%_ + _%g143577143581%_) + (cons _%g143576143579%_ + _%g143577143581%_)))) (declare (not safe)) - (__foldr1 __tmp148979 '() _%L142271%_))) - (let* ((_%__stx148416148417%_ _%L142272%_) - (_%g142298142310%_ + (__foldr1 __tmp150266 '() _%L143558%_))) + (let* ((_%__stx149703149704%_ _%L143559%_) + (_%g143585143597%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148416148417%_))))) - (let ((_%__kont148418148419%_ + _%__stx149703149704%_))))) + (let ((_%__kont149705149706%_ (lambda () - (let ((_%f142347%_ + (let ((_%f143634%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142198%_ - _%L142272%_)))) - (if (and (let ((__tmp148980 + _%self143485%_ + _%L143559%_)))) + (if (and (let ((__tmp150267 (symbol->string ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%f142347%_))) + _%f143634%_))) (declare (not safe)) - (##string-prefix? '"##" __tmp148980)) + (##string-prefix? '"##" __tmp150267)) (not (let () (declare (not safe)) - (##memq _%f142347%_ gxc#checked-primitives)))) + (##memq _%f143634%_ gxc#checked-primitives)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp142349%_ ((_%rest142352%_ + (let _%lp143636%_ ((_%rest143639%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse (let ((__tmp148982 - (lambda (_%g142469142472%_ - _%g142470142474%_) - (cons _%g142469142472%_ - _%g142470142474%_)))) + (reverse (let ((__tmp150269 + (lambda (_%g143756143759%_ + _%g143757143761%_) + (cons _%g143756143759%_ + _%g143757143761%_)))) (declare (not safe)) (__foldr1 - __tmp148982 + __tmp150269 '() - _%L142271%_)))) - (_%bind142354%_ '()) - (_%args142355%_ '())) - (let* ((_%rest142356142364%_ _%rest142352%_) - (_%else142358142372%_ + _%L143558%_)))) + (_%bind143641%_ '()) + (_%args143642%_ '())) + (let* ((_%rest143643143651%_ _%rest143639%_) + (_%else143645143659%_ (lambda () (cons 'let - (cons _%bind142354%_ + (cons _%bind143641%_ (cons '(declare (not safe)) - (cons (cons _%f142347%_ - _%args142355%_) + (cons (cons _%f143634%_ + _%args143642%_) '())))))) - (_%K142360142458%_ - (lambda (_%rest142375%_ _%e142376%_) - (let* ((_%__stx148370148371%_ _%e142376%_) - (_%g142381142399%_ + (_%K143647143745%_ + (lambda (_%rest143662%_ _%e143663%_) + (let* ((_%__stx149657149658%_ _%e143663%_) + (_%g143668143686%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148370148371%_))))) - (let ((_%__kont148372148373%_ + _%__stx149657149658%_))))) + (let ((_%__kont149659149660%_ (lambda () - (_%lp142349%_ - _%rest142375%_ - _%bind142354%_ + (_%lp143636%_ + _%rest143662%_ + _%bind143641%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e142376%_)) - _%args142355%_)))) - (_%__kont148374148375%_ + (gxc#compile-e__0 _%e143663%_)) + _%args143642%_)))) + (_%__kont149661149662%_ (lambda () - (_%lp142349%_ - _%rest142375%_ - _%bind142354%_ + (_%lp143636%_ + _%rest143662%_ + _%bind143641%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e142376%_)) - _%args142355%_)))) - (_%__kont148376148377%_ + (gxc#compile-e__0 _%e143663%_)) + _%args143642%_)))) + (_%__kont149663149664%_ (lambda () - (let ((_%tmp142406%_ - (let ((__tmp148981 + (let ((_%tmp143693%_ + (let ((__tmp150268 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp148981)))) - (_%lp142349%_ - _%rest142375%_ - (cons (cons _%tmp142406%_ + (make-symbol__0 __tmp150268)))) + (_%lp143636%_ + _%rest143662%_ + (cons (cons _%tmp143693%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e142376%_)) + _%e143663%_)) '())) - _%bind142354%_) - (cons _%tmp142406%_ _%args142355%_)))))) + _%bind143641%_) + (cons _%tmp143693%_ _%args143642%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148370148371%_)) - (let ((_%e142383142437%_ + (gx#stx-pair? _%__stx149657149658%_)) + (let ((_%e143670143724%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148370148371%_)))) - (let ((_%tl142385142442%_ + (gx#stx-e _%__stx149657149658%_)))) + (let ((_%tl143672143729%_ (let () (declare (not safe)) - (##cdr _%e142383142437%_))) - (_%hd142384142440%_ + (##cdr _%e143670143724%_))) + (_%hd143671143727%_ (let () (declare (not safe)) - (##car _%e142383142437%_)))) + (##car _%e143670143724%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd142384142440%_)) + (gx#identifier? _%hd143671143727%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142384142440%_)) + _%hd143671143727%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142385142442%_)) - (let ((_%e142386142445%_ + _%tl143672143729%_)) + (let ((_%e143673143732%_ (let () (declare (not safe)) (gx#stx-e - _%tl142385142442%_)))) - (let ((_%tl142388142450%_ + _%tl143672143729%_)))) + (let ((_%tl143675143737%_ (let () (declare (not safe)) - (##cdr _%e142386142445%_))) - (_%hd142387142448%_ + (##cdr _%e143673143732%_))) + (_%hd143674143735%_ (let () (declare (not safe)) - (##car _%e142386142445%_)))) + (##car _%e143673143732%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142388142450%_)) - (_%__kont148372148373%_) - (_%__kont148376148377%_)))) - (_%__kont148376148377%_)) + _%tl143675143737%_)) + (_%__kont149659149660%_) + (_%__kont149663149664%_)))) + (_%__kont149663149664%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd142384142440%_)) + _%hd143671143727%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142385142442%_)) - (let ((_%e142392142422%_ + _%tl143672143729%_)) + (let ((_%e143679143709%_ (let () (declare (not safe)) (gx#stx-e - _%tl142385142442%_)))) - (let ((_%tl142394142427%_ + _%tl143672143729%_)))) + (let ((_%tl143681143714%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e142392142422%_))) - (_%hd142393142425%_ - (let () (declare (not safe)) (##car _%e142392142422%_)))) + (##cdr _%e143679143709%_))) + (_%hd143680143712%_ + (let () (declare (not safe)) (##car _%e143679143709%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142394142427%_)) - (_%__kont148374148375%_) - (_%__kont148376148377%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148376148377%_)) - (_%__kont148376148377%_))) - (_%__kont148376148377%_)))) - (_%__kont148376148377%_))))))) - (if (pair? _%rest142356142364%_) - (let ((_%hd142361142461%_ + (gx#stx-null? _%tl143681143714%_)) + (_%__kont149661149662%_) + (_%__kont149663149664%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149663149664%_)) + (_%__kont149663149664%_))) + (_%__kont149663149664%_)))) + (_%__kont149663149664%_))))))) + (if (pair? _%rest143643143651%_) + (let ((_%hd143648143748%_ (let () (declare (not safe)) - (##car _%rest142356142364%_))) - (_%tl142362142463%_ + (##car _%rest143643143651%_))) + (_%tl143649143750%_ (let () (declare (not safe)) - (##cdr _%rest142356142364%_)))) - (let* ((_%e142466%_ _%hd142361142461%_) - (_%rest142468%_ _%tl142362142463%_)) - (_%K142360142458%_ _%rest142468%_ _%e142466%_))) - (_%else142358142372%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%compile-call142201%_ - _%L142272%_ - (let ((__tmp148983 - (lambda (_%g142476142479%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g142477142481%_) - (cons _%g142476142479%_ _%g142477142481%_)))) + (##cdr _%rest143643143651%_)))) + (let* ((_%e143753%_ _%hd143648143748%_) + (_%rest143755%_ _%tl143649143750%_)) + (_%K143647143745%_ _%rest143755%_ _%e143753%_))) + (_%else143645143659%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%compile-call143488%_ + _%L143559%_ + (let ((__tmp150270 + (lambda (_%g143763143766%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g143764143768%_) + (cons _%g143763143766%_ _%g143764143768%_)))) (declare (not safe)) - (__foldr1 __tmp148983 '() _%L142271%_))))))) + (__foldr1 __tmp150270 '() _%L143558%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148420148421%_ + (_%__kont149707149708%_ (lambda () - (_%compile-call142201%_ - _%L142272%_ - (let ((__tmp148984 - (lambda (_%g142316142319%_ - _%g142317142321%_) - (cons _%g142316142319%_ - _%g142317142321%_)))) + (_%compile-call143488%_ + _%L143559%_ + (let ((__tmp150271 + (lambda (_%g143603143606%_ + _%g143604143608%_) + (cons _%g143603143606%_ + _%g143604143608%_)))) (declare (not safe)) (__foldr1 - __tmp148984 + __tmp150271 '() - _%L142271%_)))))) + _%L143558%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148416148417%_)) - (let ((_%e142300142329%_ + _%__stx149703149704%_)) + (let ((_%e143587143616%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148416148417%_)))) - (let ((_%tl142302142334%_ + _%__stx149703149704%_)))) + (let ((_%tl143589143621%_ (let () (declare (not safe)) - (##cdr _%e142300142329%_))) - (_%hd142301142332%_ + (##cdr _%e143587143616%_))) + (_%hd143588143619%_ (let () (declare (not safe)) - (##car _%e142300142329%_)))) + (##car _%e143587143616%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142301142332%_)) + _%hd143588143619%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142301142332%_)) + _%hd143588143619%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142302142334%_)) - (let ((_%e142303142337%_ + _%tl143589143621%_)) + (let ((_%e143590143624%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl142302142334%_)))) - (let ((_%tl142305142342%_ + (gx#stx-e _%tl143589143621%_)))) + (let ((_%tl143592143629%_ (let () (declare (not safe)) - (##cdr _%e142303142337%_))) - (_%hd142304142340%_ + (##cdr _%e143590143624%_))) + (_%hd143591143627%_ (let () (declare (not safe)) - (##car _%e142303142337%_)))) + (##car _%e143590143624%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142305142342%_)) - (_%__kont148418148419%_) - (_%__kont148420148421%_)))) - (_%__kont148420148421%_)) - (_%__kont148420148421%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148420148421%_)))) - (_%__kont148420148421%_)))))) - _%rand142221142268%_ - _%hd142211142242%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop142216142252%_ - _%target142213142247%_ + (gx#stx-null? _%tl143592143629%_)) + (_%__kont149705149706%_) + (_%__kont149707149708%_)))) + (_%__kont149707149708%_)) + (_%__kont149707149708%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149707149708%_)))) + (_%__kont149707149708%_)))))) + _%rand143508143555%_ + _%hd143498143529%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop143503143539%_ + _%target143500143534%_ '())) - (_%g142203142226%_ - _%g142204142229%_))))) - (_%g142203142226%_ - _%g142204142229%_)))) - (_%g142203142226%_ _%g142204142229%_)))) - (_%g142203142226%_ _%g142204142229%_))))) - (_%g142202142487%_ _%stx142199%_))))) + (_%g143490143513%_ + _%g143491143516%_))))) + (_%g143490143513%_ + _%g143491143516%_)))) + (_%g143490143513%_ _%g143491143516%_)))) + (_%g143490143513%_ _%g143491143516%_))))) + (_%g143489143774%_ _%stx143486%_))))) (define gxc#generate-runtime-call-unchecked% - (lambda (_%self141941%_ _%stx141942%_) - (let* ((_%__stx148488148489%_ _%stx141942%_) - (_%g141945141974%_ + (lambda (_%self143228%_ _%stx143229%_) + (let* ((_%__stx149775149776%_ _%stx143229%_) + (_%g143232143261%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148488148489%_))))) - (let ((_%__kont148490148491%_ - (lambda (_%L142042%_ _%L142043%_) + _%__stx149775149776%_))))) + (let ((_%__kont149777149778%_ + (lambda (_%L143329%_ _%L143330%_) (if (gxc#current-compile-decls-unsafe?) (gxc#generate-runtime-call% - _%self141941%_ - _%stx141942%_) - (let ((_%f142065%_ - (let ((__tmp148985 + _%self143228%_ + _%stx143229%_) + (let ((_%f143352%_ + (let ((__tmp150272 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L142043%_ '())))) + (cons _%L143330%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self141941%_ - __tmp148985)))) - (let _%lp142067%_ ((_%rest142070%_ - (reverse (let ((__tmp148987 - (lambda (_%g142187142190%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g142188142192%_) - (cons _%g142187142190%_ _%g142188142192%_)))) + _%self143228%_ + __tmp150272)))) + (let _%lp143354%_ ((_%rest143357%_ + (reverse (let ((__tmp150274 + (lambda (_%g143474143477%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g143475143479%_) + (cons _%g143474143477%_ _%g143475143479%_)))) (declare (not safe)) - (__foldr1 __tmp148987 '() _%L142042%_)))) + (__foldr1 __tmp150274 '() _%L143329%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind142072%_ '()) - (_%args142073%_ '())) - (let* ((_%rest142074142082%_ _%rest142070%_) - (_%else142076142090%_ + (_%bind143359%_ '()) + (_%args143360%_ '())) + (let* ((_%rest143361143369%_ _%rest143357%_) + (_%else143363143377%_ (lambda () (cons 'let - (cons _%bind142072%_ + (cons _%bind143359%_ (cons '(declare (not safe)) - (cons (cons _%f142065%_ + (cons (cons _%f143352%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%args142073%_) + _%args143360%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K142078142176%_ - (lambda (_%rest142093%_ _%e142094%_) - (let* ((_%__stx148442148443%_ _%e142094%_) - (_%g142099142117%_ + (_%K143365143463%_ + (lambda (_%rest143380%_ _%e143381%_) + (let* ((_%__stx149729149730%_ _%e143381%_) + (_%g143386143404%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148442148443%_))))) - (let ((_%__kont148444148445%_ + _%__stx149729149730%_))))) + (let ((_%__kont149731149732%_ (lambda () - (_%lp142067%_ - _%rest142093%_ - _%bind142072%_ + (_%lp143354%_ + _%rest143380%_ + _%bind143359%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e142094%_)) - _%args142073%_)))) - (_%__kont148446148447%_ + _%e143381%_)) + _%args143360%_)))) + (_%__kont149733149734%_ (lambda () - (_%lp142067%_ - _%rest142093%_ - _%bind142072%_ + (_%lp143354%_ + _%rest143380%_ + _%bind143359%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e142094%_)) - _%args142073%_)))) - (_%__kont148448148449%_ + _%e143381%_)) + _%args143360%_)))) + (_%__kont149735149736%_ (lambda () - (let ((_%tmp142124%_ - (let ((__tmp148986 + (let ((_%tmp143411%_ + (let ((__tmp150273 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp148986)))) + (make-symbol__0 __tmp150273)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp142067%_ - _%rest142093%_ - (cons (cons _%tmp142124%_ + (_%lp143354%_ + _%rest143380%_ + (cons (cons _%tmp143411%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _%e142094%_)) + (gxc#compile-e__0 _%e143381%_)) '())) - _%bind142072%_) + _%bind143359%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%tmp142124%_ - _%args142073%_)))))) + (cons _%tmp143411%_ + _%args143360%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148442148443%_)) - (let ((_%e142101142155%_ + _%__stx149729149730%_)) + (let ((_%e143388143442%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148442148443%_)))) - (let ((_%tl142103142160%_ + _%__stx149729149730%_)))) + (let ((_%tl143390143447%_ (let () (declare (not safe)) - (##cdr _%e142101142155%_))) - (_%hd142102142158%_ + (##cdr _%e143388143442%_))) + (_%hd143389143445%_ (let () (declare (not safe)) - (##car _%e142101142155%_)))) + (##car _%e143388143442%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142102142158%_)) + _%hd143389143445%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142102142158%_)) + _%hd143389143445%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl142103142160%_)) - (let ((_%e142104142163%_ + (gx#stx-pair? _%tl143390143447%_)) + (let ((_%e143391143450%_ (let () (declare (not safe)) - (gx#stx-e _%tl142103142160%_)))) - (let ((_%tl142106142168%_ + (gx#stx-e _%tl143390143447%_)))) + (let ((_%tl143393143455%_ (let () (declare (not safe)) - (##cdr _%e142104142163%_))) - (_%hd142105142166%_ + (##cdr _%e143391143450%_))) + (_%hd143392143453%_ (let () (declare (not safe)) - (##car _%e142104142163%_)))) + (##car _%e143391143450%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142106142168%_)) - (_%__kont148444148445%_) - (_%__kont148448148449%_)))) - (_%__kont148448148449%_)) + (gx#stx-null? _%tl143393143455%_)) + (_%__kont149731149732%_) + (_%__kont149735149736%_)))) + (_%__kont149735149736%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd142102142158%_)) + (gx#stx-eq? '%#quote _%hd143389143445%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142103142160%_)) - (let ((_%e142110142140%_ + (gx#stx-pair? _%tl143390143447%_)) + (let ((_%e143397143427%_ (let () (declare (not safe)) - (gx#stx-e _%tl142103142160%_)))) - (let ((_%tl142112142145%_ + (gx#stx-e _%tl143390143447%_)))) + (let ((_%tl143399143432%_ (let () (declare (not safe)) - (##cdr _%e142110142140%_))) - (_%hd142111142143%_ + (##cdr _%e143397143427%_))) + (_%hd143398143430%_ (let () (declare (not safe)) - (##car _%e142110142140%_)))) + (##car _%e143397143427%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142112142145%_)) - (_%__kont148446148447%_) - (_%__kont148448148449%_)))) - (_%__kont148448148449%_)) - (_%__kont148448148449%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148448148449%_)))) - (_%__kont148448148449%_))))))) - (if (pair? _%rest142074142082%_) - (let ((_%hd142079142179%_ + (gx#stx-null? _%tl143399143432%_)) + (_%__kont149733149734%_) + (_%__kont149735149736%_)))) + (_%__kont149735149736%_)) + (_%__kont149735149736%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149735149736%_)))) + (_%__kont149735149736%_))))))) + (if (pair? _%rest143361143369%_) + (let ((_%hd143366143466%_ (let () (declare (not safe)) - (##car _%rest142074142082%_))) - (_%tl142080142181%_ + (##car _%rest143361143369%_))) + (_%tl143367143468%_ (let () (declare (not safe)) - (##cdr _%rest142074142082%_)))) - (let* ((_%e142184%_ _%hd142079142179%_) - (_%rest142186%_ _%tl142080142181%_)) - (_%K142078142176%_ - _%rest142186%_ - _%e142184%_))) - (_%else142076142090%_)))))))) - (_%__kont148494148495%_ + (##cdr _%rest143361143369%_)))) + (let* ((_%e143471%_ _%hd143366143466%_) + (_%rest143473%_ _%tl143367143468%_)) + (_%K143365143463%_ + _%rest143473%_ + _%e143471%_))) + (_%else143363143377%_)))))))) + (_%__kont149781149782%_ (lambda () - (gxc#generate-runtime-call% _%self141941%_ _%stx141942%_)))) - (let ((_%__match148533148534%_ - (lambda (_%e141949141986%_ - _%hd141950141989%_ - _%tl141951141991%_ - _%e141952141994%_ - _%hd141953141997%_ - _%tl141954141999%_ - _%e141955142002%_ - _%hd141956142005%_ - _%tl141957142007%_ - _%e141958142010%_ - _%hd141959142013%_ - _%tl141960142015%_ - _%__splice148492148493%_ - _%target141961142018%_ - _%tl141963142020%_) - (letrec ((_%loop141964142023%_ - (lambda (_%hd141962142026%_ - _%rand141968142028%_) + (gxc#generate-runtime-call% _%self143228%_ _%stx143229%_)))) + (let ((_%__match149820149821%_ + (lambda (_%e143236143273%_ + _%hd143237143276%_ + _%tl143238143278%_ + _%e143239143281%_ + _%hd143240143284%_ + _%tl143241143286%_ + _%e143242143289%_ + _%hd143243143292%_ + _%tl143244143294%_ + _%e143245143297%_ + _%hd143246143300%_ + _%tl143247143302%_ + _%__splice149779149780%_ + _%target143248143305%_ + _%tl143250143307%_) + (letrec ((_%loop143251143310%_ + (lambda (_%hd143249143313%_ + _%rand143255143315%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd141962142026%_)) - (let ((_%e141965142031%_ + (gx#stx-pair? _%hd143249143313%_)) + (let ((_%e143252143318%_ (let () (declare (not safe)) - (gx#stx-e _%hd141962142026%_)))) - (let ((_%lp-tl141967142036%_ + (gx#stx-e _%hd143249143313%_)))) + (let ((_%lp-tl143254143323%_ (let () (declare (not safe)) - (##cdr _%e141965142031%_))) - (_%lp-hd141966142034%_ + (##cdr _%e143252143318%_))) + (_%lp-hd143253143321%_ (let () (declare (not safe)) - (##car _%e141965142031%_)))) - (_%loop141964142023%_ - _%lp-tl141967142036%_ - (cons _%lp-hd141966142034%_ - _%rand141968142028%_)))) - (let ((_%rand141969142039%_ - (reverse _%rand141968142028%_))) - (_%__kont148490148491%_ - _%rand141969142039%_ - _%hd141959142013%_)))))) - (_%loop141964142023%_ _%target141961142018%_ '()))))) + (##car _%e143252143318%_)))) + (_%loop143251143310%_ + _%lp-tl143254143323%_ + (cons _%lp-hd143253143321%_ + _%rand143255143315%_)))) + (let ((_%rand143256143326%_ + (reverse _%rand143255143315%_))) + (_%__kont149777149778%_ + _%rand143256143326%_ + _%hd143246143300%_)))))) + (_%loop143251143310%_ _%target143248143305%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148488148489%_)) - (let ((_%e141949141986%_ + (gx#stx-pair? _%__stx149775149776%_)) + (let ((_%e143236143273%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148488148489%_)))) - (let ((_%tl141951141991%_ + (gx#stx-e _%__stx149775149776%_)))) + (let ((_%tl143238143278%_ (let () (declare (not safe)) - (##cdr _%e141949141986%_))) - (_%hd141950141989%_ + (##cdr _%e143236143273%_))) + (_%hd143237143276%_ (let () (declare (not safe)) - (##car _%e141949141986%_)))) + (##car _%e143236143273%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141951141991%_)) - (let ((_%e141952141994%_ + (gx#stx-pair? _%tl143238143278%_)) + (let ((_%e143239143281%_ (let () (declare (not safe)) - (gx#stx-e _%tl141951141991%_)))) - (let ((_%tl141954141999%_ + (gx#stx-e _%tl143238143278%_)))) + (let ((_%tl143241143286%_ (let () (declare (not safe)) - (##cdr _%e141952141994%_))) - (_%hd141953141997%_ + (##cdr _%e143239143281%_))) + (_%hd143240143284%_ (let () (declare (not safe)) - (##car _%e141952141994%_)))) + (##car _%e143239143281%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd141953141997%_)) - (let ((_%e141955142002%_ + (gx#stx-pair? _%hd143240143284%_)) + (let ((_%e143242143289%_ (let () (declare (not safe)) - (gx#stx-e _%hd141953141997%_)))) - (let ((_%tl141957142007%_ + (gx#stx-e _%hd143240143284%_)))) + (let ((_%tl143244143294%_ (let () (declare (not safe)) - (##cdr _%e141955142002%_))) - (_%hd141956142005%_ + (##cdr _%e143242143289%_))) + (_%hd143243143292%_ (let () (declare (not safe)) - (##car _%e141955142002%_)))) + (##car _%e143242143289%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd141956142005%_)) + _%hd143243143292%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141956142005%_)) + _%hd143243143292%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141957142007%_)) - (let ((_%e141958142010%_ + _%tl143244143294%_)) + (let ((_%e143245143297%_ (let () (declare (not safe)) (gx#stx-e - _%tl141957142007%_)))) - (let ((_%tl141960142015%_ + _%tl143244143294%_)))) + (let ((_%tl143247143302%_ (let () (declare (not safe)) - (##cdr _%e141958142010%_))) - (_%hd141959142013%_ + (##cdr _%e143245143297%_))) + (_%hd143246143300%_ (let () (declare (not safe)) - (##car _%e141958142010%_)))) + (##car _%e143245143297%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141960142015%_)) + _%tl143247143302%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl141954141999%_)) - (let ((_%__splice148492148493%_ + (gx#stx-pair/null? _%tl143241143286%_)) + (let ((_%__splice149779149780%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl141954141999%_ + _%tl143241143286%_ '0)))) - (let ((_%tl141963142020%_ + (let ((_%tl143250143307%_ (let () (declare (not safe)) - (##vector-ref _%__splice148492148493%_ '1))) - (_%target141961142018%_ + (##vector-ref _%__splice149779149780%_ '1))) + (_%target143248143305%_ (let () (declare (not safe)) - (##vector-ref _%__splice148492148493%_ '0)))) + (##vector-ref _%__splice149779149780%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141963142020%_)) - (_%__match148533148534%_ - _%e141949141986%_ - _%hd141950141989%_ - _%tl141951141991%_ - _%e141952141994%_ - _%hd141953141997%_ - _%tl141954141999%_ - _%e141955142002%_ - _%hd141956142005%_ - _%tl141957142007%_ - _%e141958142010%_ - _%hd141959142013%_ - _%tl141960142015%_ - _%__splice148492148493%_ - _%target141961142018%_ - _%tl141963142020%_) - (_%__kont148494148495%_)))) - (_%__kont148494148495%_)) - (_%__kont148494148495%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148494148495%_)) - (_%__kont148494148495%_)) - (_%__kont148494148495%_)))) - (_%__kont148494148495%_)))) - (_%__kont148494148495%_)))) - (_%__kont148494148495%_))))))) + (gx#stx-null? _%tl143250143307%_)) + (_%__match149820149821%_ + _%e143236143273%_ + _%hd143237143276%_ + _%tl143238143278%_ + _%e143239143281%_ + _%hd143240143284%_ + _%tl143241143286%_ + _%e143242143289%_ + _%hd143243143292%_ + _%tl143244143294%_ + _%e143245143297%_ + _%hd143246143300%_ + _%tl143247143302%_ + _%__splice149779149780%_ + _%target143248143305%_ + _%tl143250143307%_) + (_%__kont149781149782%_)))) + (_%__kont149781149782%_)) + (_%__kont149781149782%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149781149782%_)) + (_%__kont149781149782%_)) + (_%__kont149781149782%_)))) + (_%__kont149781149782%_)))) + (_%__kont149781149782%_)))) + (_%__kont149781149782%_))))))) (define gxc#generate-runtime-if% - (lambda (_%self141753%_ _%stx141754%_) - (letrec ((_%simplify141756%_ - (lambda (_%code141841%_) - (let* ((_%code141842141860%_ _%code141841%_) - (_%else141844141868%_ (lambda () _%code141841%_)) - (_%K141846141904%_ - (lambda (_%expr141871%_ _%test141872%_) - (let* ((_%expr141873141881%_ _%expr141871%_) - (_%else141875141889%_ + (lambda (_%self143040%_ _%stx143041%_) + (letrec ((_%simplify143043%_ + (lambda (_%code143128%_) + (let* ((_%code143129143147%_ _%code143128%_) + (_%else143131143155%_ (lambda () _%code143128%_)) + (_%K143133143191%_ + (lambda (_%expr143158%_ _%test143159%_) + (let* ((_%expr143160143168%_ _%expr143158%_) + (_%else143162143176%_ (lambda () (cons 'and - (cons _%test141872%_ - (cons _%expr141871%_ + (cons _%test143159%_ + (cons _%expr143158%_ '()))))) - (_%K141877141894%_ - (lambda (_%exprs141892%_) + (_%K143164143181%_ + (lambda (_%exprs143179%_) (cons 'and - (cons _%test141872%_ - _%exprs141892%_))))) - (if (pair? _%expr141873141881%_) - (let ((_%hd141878141897%_ + (cons _%test143159%_ + _%exprs143179%_))))) + (if (pair? _%expr143160143168%_) + (let ((_%hd143165143184%_ (let () (declare (not safe)) - (##car _%expr141873141881%_))) - (_%tl141879141899%_ + (##car _%expr143160143168%_))) + (_%tl143166143186%_ (let () (declare (not safe)) - (##cdr _%expr141873141881%_)))) + (##cdr _%expr143160143168%_)))) (if (let () (declare (not safe)) - (##eq? _%hd141878141897%_ 'and)) - (let ((_%exprs141902%_ - _%tl141879141899%_)) - (_%K141877141894%_ - _%exprs141902%_)) - (_%else141875141889%_))) - (_%else141875141889%_)))))) - (if (pair? _%code141842141860%_) - (let ((_%hd141847141907%_ + (##eq? _%hd143165143184%_ 'and)) + (let ((_%exprs143189%_ + _%tl143166143186%_)) + (_%K143164143181%_ + _%exprs143189%_)) + (_%else143162143176%_))) + (_%else143162143176%_)))))) + (if (pair? _%code143129143147%_) + (let ((_%hd143134143194%_ (let () (declare (not safe)) - (##car _%code141842141860%_))) - (_%tl141848141909%_ + (##car _%code143129143147%_))) + (_%tl143135143196%_ (let () (declare (not safe)) - (##cdr _%code141842141860%_)))) + (##cdr _%code143129143147%_)))) (if (let () (declare (not safe)) - (##eq? _%hd141847141907%_ 'if)) - (if (pair? _%tl141848141909%_) - (let ((_%hd141849141912%_ + (##eq? _%hd143134143194%_ 'if)) + (if (pair? _%tl143135143196%_) + (let ((_%hd143136143199%_ (let () (declare (not safe)) - (##car _%tl141848141909%_))) - (_%tl141850141914%_ + (##car _%tl143135143196%_))) + (_%tl143137143201%_ (let () (declare (not safe)) - (##cdr _%tl141848141909%_)))) - (let ((_%test141917%_ - _%hd141849141912%_)) - (if (pair? _%tl141850141914%_) - (let ((_%hd141851141919%_ + (##cdr _%tl143135143196%_)))) + (let ((_%test143204%_ + _%hd143136143199%_)) + (if (pair? _%tl143137143201%_) + (let ((_%hd143138143206%_ (let () (declare (not safe)) - (##car _%tl141850141914%_))) - (_%tl141852141921%_ + (##car _%tl143137143201%_))) + (_%tl143139143208%_ (let () (declare (not safe)) - (##cdr _%tl141850141914%_)))) - (let ((_%expr141924%_ - _%hd141851141919%_)) - (if (pair? _%tl141852141921%_) - (let ((_%hd141853141926%_ + (##cdr _%tl143137143201%_)))) + (let ((_%expr143211%_ + _%hd143138143206%_)) + (if (pair? _%tl143139143208%_) + (let ((_%hd143140143213%_ (let () (declare (not safe)) - (##car _%tl141852141921%_))) - (_%tl141854141928%_ + (##car _%tl143139143208%_))) + (_%tl143141143215%_ (let () (declare (not safe)) - (##cdr _%tl141852141921%_)))) - (if (pair? _%hd141853141926%_) - (let ((_%hd141855141931%_ + (##cdr _%tl143139143208%_)))) + (if (pair? _%hd143140143213%_) + (let ((_%hd143142143218%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%hd141853141926%_))) - (_%tl141856141933%_ + (##car _%hd143140143213%_))) + (_%tl143143143220%_ (let () (declare (not safe)) - (##cdr _%hd141853141926%_)))) + (##cdr _%hd143140143213%_)))) (if (let () (declare (not safe)) - (##eq? _%hd141855141931%_ 'quote)) - (if (pair? _%tl141856141933%_) - (let ((_%hd141857141936%_ + (##eq? _%hd143142143218%_ 'quote)) + (if (pair? _%tl143143143220%_) + (let ((_%hd143144143223%_ (let () (declare (not safe)) - (##car _%tl141856141933%_))) - (_%tl141858141938%_ + (##car _%tl143143143220%_))) + (_%tl143145143225%_ (let () (declare (not safe)) - (##cdr _%tl141856141933%_)))) + (##cdr _%tl143143143220%_)))) (if (let () (declare (not safe)) - (##eq? _%hd141857141936%_ '#f)) - (if (null? _%tl141858141938%_) - (if (null? _%tl141854141928%_) - (_%K141846141904%_ - _%expr141924%_ - _%test141917%_) - (_%else141844141868%_)) - (_%else141844141868%_)) - (_%else141844141868%_))) - (_%else141844141868%_)) - (_%else141844141868%_))) - (_%else141844141868%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else141844141868%_)))) - (_%else141844141868%_)))) - (_%else141844141868%_)) - (_%else141844141868%_))) - (_%else141844141868%_)))))) - (let* ((_%g141758141779%_ - (lambda (_%g141759141776%_) + (##eq? _%hd143144143223%_ '#f)) + (if (null? _%tl143145143225%_) + (if (null? _%tl143141143215%_) + (_%K143133143191%_ + _%expr143211%_ + _%test143204%_) + (_%else143131143155%_)) + (_%else143131143155%_)) + (_%else143131143155%_))) + (_%else143131143155%_)) + (_%else143131143155%_))) + (_%else143131143155%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else143131143155%_)))) + (_%else143131143155%_)))) + (_%else143131143155%_)) + (_%else143131143155%_))) + (_%else143131143155%_)))))) + (let* ((_%g143045143066%_ + (lambda (_%g143046143063%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141759141776%_)))) - (_%g141757141838%_ - (lambda (_%g141759141782%_) + _%g143046143063%_)))) + (_%g143044143125%_ + (lambda (_%g143046143069%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141759141782%_)) - (let ((_%e141763141784%_ + (gx#stx-pair? _%g143046143069%_)) + (let ((_%e143050143071%_ (let () (declare (not safe)) - (gx#stx-e _%g141759141782%_)))) - (let ((_%hd141764141787%_ + (gx#stx-e _%g143046143069%_)))) + (let ((_%hd143051143074%_ (let () (declare (not safe)) - (##car _%e141763141784%_))) - (_%tl141765141789%_ + (##car _%e143050143071%_))) + (_%tl143052143076%_ (let () (declare (not safe)) - (##cdr _%e141763141784%_)))) + (##cdr _%e143050143071%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141765141789%_)) - (let ((_%e141766141792%_ + (gx#stx-pair? _%tl143052143076%_)) + (let ((_%e143053143079%_ (let () (declare (not safe)) - (gx#stx-e _%tl141765141789%_)))) - (let ((_%hd141767141795%_ + (gx#stx-e _%tl143052143076%_)))) + (let ((_%hd143054143082%_ (let () (declare (not safe)) - (##car _%e141766141792%_))) - (_%tl141768141797%_ + (##car _%e143053143079%_))) + (_%tl143055143084%_ (let () (declare (not safe)) - (##cdr _%e141766141792%_)))) + (##cdr _%e143053143079%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141768141797%_)) - (let ((_%e141769141800%_ + (gx#stx-pair? _%tl143055143084%_)) + (let ((_%e143056143087%_ (let () (declare (not safe)) (gx#stx-e - _%tl141768141797%_)))) - (let ((_%hd141770141803%_ + _%tl143055143084%_)))) + (let ((_%hd143057143090%_ (let () (declare (not safe)) - (##car _%e141769141800%_))) - (_%tl141771141805%_ + (##car _%e143056143087%_))) + (_%tl143058143092%_ (let () (declare (not safe)) - (##cdr _%e141769141800%_)))) + (##cdr _%e143056143087%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141771141805%_)) - (let ((_%e141772141808%_ + _%tl143058143092%_)) + (let ((_%e143059143095%_ (let () (declare (not safe)) (gx#stx-e - _%tl141771141805%_)))) - (let ((_%hd141773141811%_ + _%tl143058143092%_)))) + (let ((_%hd143060143098%_ (let () (declare (not safe)) - (##car _%e141772141808%_))) - (_%tl141774141813%_ + (##car _%e143059143095%_))) + (_%tl143061143100%_ (let () (declare (not safe)) - (##cdr _%e141772141808%_)))) + (##cdr _%e143059143095%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141774141813%_)) - ((lambda (_%L141816%_ + _%tl143061143100%_)) + ((lambda (_%L143103%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L141817%_ - _%L141818%_) + _%L143104%_ + _%L143105%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (_%simplify141756%_ + (_%simplify143043%_ (cons 'if (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141753%_ - _%L141818%_)) + _%self143040%_ + _%L143105%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141753%_ - _%L141817%_)) + _%self143040%_ + _%L143104%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141753%_ - _%L141816%_)) + _%self143040%_ + _%L143103%_)) '()))))) (cons 'if - (cons (let ((__tmp148988 + (cons (let ((__tmp150275 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self141753%_ - _%L141818%_))))) + _%self143040%_ + _%L143105%_))))) (declare (not safe)) (__call-with-parameters - __tmp148988 + __tmp150275 gxc#current-compile-boolean-context '#t)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141753%_ - _%L141817%_)) + _%self143040%_ + _%L143104%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141753%_ - _%L141816%_)) + _%self143040%_ + _%L143103%_)) '())))))) - _%hd141773141811%_ - _%hd141770141803%_ - _%hd141767141795%_) - (_%g141758141779%_ _%g141759141782%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141758141779%_ - _%g141759141782%_)))) - (_%g141758141779%_ - _%g141759141782%_)))) - (_%g141758141779%_ _%g141759141782%_)))) - (_%g141758141779%_ _%g141759141782%_))))) - (_%g141757141838%_ _%stx141754%_))))) + _%hd143060143098%_ + _%hd143057143090%_ + _%hd143054143082%_) + (_%g143045143066%_ _%g143046143069%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g143045143066%_ + _%g143046143069%_)))) + (_%g143045143066%_ + _%g143046143069%_)))) + (_%g143045143066%_ _%g143046143069%_)))) + (_%g143045143066%_ _%g143046143069%_))))) + (_%g143044143125%_ _%stx143041%_))))) (define gxc#generate-runtime-ref% - (lambda (_%self141701%_ _%stx141702%_) - (let* ((_%g141704141717%_ - (lambda (_%g141705141714%_) + (lambda (_%self142988%_ _%stx142989%_) + (let* ((_%g142991143004%_ + (lambda (_%g142992143001%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141705141714%_)))) - (_%g141703141750%_ - (lambda (_%g141705141720%_) + _%g142992143001%_)))) + (_%g142990143037%_ + (lambda (_%g142992143007%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141705141720%_)) - (let ((_%e141707141722%_ + (gx#stx-pair? _%g142992143007%_)) + (let ((_%e142994143009%_ (let () (declare (not safe)) - (gx#stx-e _%g141705141720%_)))) - (let ((_%hd141708141725%_ + (gx#stx-e _%g142992143007%_)))) + (let ((_%hd142995143012%_ (let () (declare (not safe)) - (##car _%e141707141722%_))) - (_%tl141709141727%_ + (##car _%e142994143009%_))) + (_%tl142996143014%_ (let () (declare (not safe)) - (##cdr _%e141707141722%_)))) + (##cdr _%e142994143009%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141709141727%_)) - (let ((_%e141710141730%_ + (gx#stx-pair? _%tl142996143014%_)) + (let ((_%e142997143017%_ (let () (declare (not safe)) - (gx#stx-e _%tl141709141727%_)))) - (let ((_%hd141711141733%_ + (gx#stx-e _%tl142996143014%_)))) + (let ((_%hd142998143020%_ (let () (declare (not safe)) - (##car _%e141710141730%_))) - (_%tl141712141735%_ + (##car _%e142997143017%_))) + (_%tl142999143022%_ (let () (declare (not safe)) - (##cdr _%e141710141730%_)))) + (##cdr _%e142997143017%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141712141735%_)) - ((lambda (_%L141738%_) + (gx#stx-null? _%tl142999143022%_)) + ((lambda (_%L143025%_) (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L141738%_))) - _%hd141711141733%_) - (_%g141704141717%_ _%g141705141720%_)))) - (_%g141704141717%_ _%g141705141720%_)))) - (_%g141704141717%_ _%g141705141720%_))))) - (_%g141703141750%_ _%stx141702%_)))) + _%L143025%_))) + _%hd142998143020%_) + (_%g142991143004%_ _%g142992143007%_)))) + (_%g142991143004%_ _%g142992143007%_)))) + (_%g142991143004%_ _%g142992143007%_))))) + (_%g142990143037%_ _%stx142989%_)))) (define gxc#generate-runtime-setq% - (lambda (_%self141633%_ _%stx141634%_) - (let* ((_%g141636141653%_ - (lambda (_%g141637141650%_) + (lambda (_%self142920%_ _%stx142921%_) + (let* ((_%g142923142940%_ + (lambda (_%g142924142937%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141637141650%_)))) - (_%g141635141698%_ - (lambda (_%g141637141656%_) + _%g142924142937%_)))) + (_%g142922142985%_ + (lambda (_%g142924142943%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141637141656%_)) - (let ((_%e141640141658%_ + (gx#stx-pair? _%g142924142943%_)) + (let ((_%e142927142945%_ (let () (declare (not safe)) - (gx#stx-e _%g141637141656%_)))) - (let ((_%hd141641141661%_ + (gx#stx-e _%g142924142943%_)))) + (let ((_%hd142928142948%_ (let () (declare (not safe)) - (##car _%e141640141658%_))) - (_%tl141642141663%_ + (##car _%e142927142945%_))) + (_%tl142929142950%_ (let () (declare (not safe)) - (##cdr _%e141640141658%_)))) + (##cdr _%e142927142945%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141642141663%_)) - (let ((_%e141643141666%_ + (gx#stx-pair? _%tl142929142950%_)) + (let ((_%e142930142953%_ (let () (declare (not safe)) - (gx#stx-e _%tl141642141663%_)))) - (let ((_%hd141644141669%_ + (gx#stx-e _%tl142929142950%_)))) + (let ((_%hd142931142956%_ (let () (declare (not safe)) - (##car _%e141643141666%_))) - (_%tl141645141671%_ + (##car _%e142930142953%_))) + (_%tl142932142958%_ (let () (declare (not safe)) - (##cdr _%e141643141666%_)))) + (##cdr _%e142930142953%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141645141671%_)) - (let ((_%e141646141674%_ + (gx#stx-pair? _%tl142932142958%_)) + (let ((_%e142933142961%_ (let () (declare (not safe)) - (gx#stx-e _%tl141645141671%_)))) - (let ((_%hd141647141677%_ + (gx#stx-e _%tl142932142958%_)))) + (let ((_%hd142934142964%_ (let () (declare (not safe)) - (##car _%e141646141674%_))) - (_%tl141648141679%_ + (##car _%e142933142961%_))) + (_%tl142935142966%_ (let () (declare (not safe)) - (##cdr _%e141646141674%_)))) + (##cdr _%e142933142961%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141648141679%_)) - ((lambda (_%L141682%_ - _%L141683%_) + _%tl142935142966%_)) + ((lambda (_%L142969%_ + _%L142970%_) (cons 'set! (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#generate-runtime-binding-id _%L141683%_)) + (gxc#generate-runtime-binding-id _%L142970%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self141633%_ _%L141682%_)) + (gxc#compile-e__1 _%self142920%_ _%L142969%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd141647141677%_ - _%hd141644141669%_) - (_%g141636141653%_ - _%g141637141656%_)))) - (_%g141636141653%_ _%g141637141656%_)))) - (_%g141636141653%_ _%g141637141656%_)))) - (_%g141636141653%_ _%g141637141656%_))))) - (_%g141635141698%_ _%stx141634%_)))) + _%hd142934142964%_ + _%hd142931142956%_) + (_%g142923142940%_ + _%g142924142943%_)))) + (_%g142923142940%_ _%g142924142943%_)))) + (_%g142923142940%_ _%g142924142943%_)))) + (_%g142923142940%_ _%g142924142943%_))))) + (_%g142922142985%_ _%stx142921%_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_%self141444%_ _%stx141445%_) - (let* ((_%g141447141464%_ - (lambda (_%g141448141461%_) + (lambda (_%self142731%_ _%stx142732%_) + (let* ((_%g142734142751%_ + (lambda (_%g142735142748%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141448141461%_)))) - (_%g141446141630%_ - (lambda (_%g141448141467%_) + _%g142735142748%_)))) + (_%g142733142917%_ + (lambda (_%g142735142754%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141448141467%_)) - (let ((_%e141451141469%_ + (gx#stx-pair? _%g142735142754%_)) + (let ((_%e142738142756%_ (let () (declare (not safe)) - (gx#stx-e _%g141448141467%_)))) - (let ((_%hd141452141472%_ + (gx#stx-e _%g142735142754%_)))) + (let ((_%hd142739142759%_ (let () (declare (not safe)) - (##car _%e141451141469%_))) - (_%tl141453141474%_ + (##car _%e142738142756%_))) + (_%tl142740142761%_ (let () (declare (not safe)) - (##cdr _%e141451141469%_)))) + (##cdr _%e142738142756%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141453141474%_)) - (let ((_%e141454141477%_ + (gx#stx-pair? _%tl142740142761%_)) + (let ((_%e142741142764%_ (let () (declare (not safe)) - (gx#stx-e _%tl141453141474%_)))) - (let ((_%hd141455141480%_ + (gx#stx-e _%tl142740142761%_)))) + (let ((_%hd142742142767%_ (let () (declare (not safe)) - (##car _%e141454141477%_))) - (_%tl141456141482%_ + (##car _%e142741142764%_))) + (_%tl142743142769%_ (let () (declare (not safe)) - (##cdr _%e141454141477%_)))) + (##cdr _%e142741142764%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141456141482%_)) - (let ((_%e141457141485%_ + (gx#stx-pair? _%tl142743142769%_)) + (let ((_%e142744142772%_ (let () (declare (not safe)) - (gx#stx-e _%tl141456141482%_)))) - (let ((_%hd141458141488%_ + (gx#stx-e _%tl142743142769%_)))) + (let ((_%hd142745142775%_ (let () (declare (not safe)) - (##car _%e141457141485%_))) - (_%tl141459141490%_ + (##car _%e142744142772%_))) + (_%tl142746142777%_ (let () (declare (not safe)) - (##cdr _%e141457141485%_)))) + (##cdr _%e142744142772%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141459141490%_)) - ((lambda (_%L141493%_ - _%L141494%_) + _%tl142746142777%_)) + ((lambda (_%L142780%_ + _%L142781%_) (if (gxc#current-compile-decls-unsafe?) (cons '##structure-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141444%_ _%L141493%_)) + (gxc#compile-e__1 _%self142731%_ _%L142780%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self141444%_ _%L141494%_)) + (gxc#compile-e__1 _%self142731%_ _%L142781%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp141509%_ ((_%rest141512%_ + (let _%lp142796%_ ((_%rest142799%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L141494%_ (cons _%L141493%_ '()))) - (_%bind141514%_ '()) - (_%args141515%_ '())) - (let* ((_%rest141516141524%_ _%rest141512%_) - (_%else141518141532%_ + (cons _%L142781%_ (cons _%L142780%_ '()))) + (_%bind142801%_ '()) + (_%args142802%_ '())) + (let* ((_%rest142803142811%_ _%rest142799%_) + (_%else142805142819%_ (lambda () (cons 'let - (cons _%bind141514%_ + (cons _%bind142801%_ (cons '(declare (not safe)) (cons (cons '##structure-instance-of? - _%args141515%_) + _%args142802%_) '())))))) - (_%K141520141618%_ - (lambda (_%rest141535%_ _%e141536%_) - (let* ((_%__stx148536148537%_ _%e141536%_) - (_%g141541141559%_ + (_%K142807142905%_ + (lambda (_%rest142822%_ _%e142823%_) + (let* ((_%__stx149823149824%_ _%e142823%_) + (_%g142828142846%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148536148537%_))))) - (let ((_%__kont148538148539%_ + _%__stx149823149824%_))))) + (let ((_%__kont149825149826%_ (lambda () - (_%lp141509%_ - _%rest141535%_ - _%bind141514%_ + (_%lp142796%_ + _%rest142822%_ + _%bind142801%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141536%_)) - _%args141515%_)))) - (_%__kont148540148541%_ + (gxc#compile-e__0 _%e142823%_)) + _%args142802%_)))) + (_%__kont149827149828%_ (lambda () - (_%lp141509%_ - _%rest141535%_ - _%bind141514%_ + (_%lp142796%_ + _%rest142822%_ + _%bind142801%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141536%_)) - _%args141515%_)))) - (_%__kont148542148543%_ + (gxc#compile-e__0 _%e142823%_)) + _%args142802%_)))) + (_%__kont149829149830%_ (lambda () - (let ((_%tmp141566%_ - (let ((__tmp148989 + (let ((_%tmp142853%_ + (let ((__tmp150276 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp148989)))) - (_%lp141509%_ - _%rest141535%_ - (cons (cons _%tmp141566%_ + (make-symbol__0 __tmp150276)))) + (_%lp142796%_ + _%rest142822%_ + (cons (cons _%tmp142853%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e141536%_)) + _%e142823%_)) '())) - _%bind141514%_) - (cons _%tmp141566%_ _%args141515%_)))))) + _%bind142801%_) + (cons _%tmp142853%_ _%args142802%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148536148537%_)) - (let ((_%e141543141597%_ + (gx#stx-pair? _%__stx149823149824%_)) + (let ((_%e142830142884%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148536148537%_)))) - (let ((_%tl141545141602%_ + (gx#stx-e _%__stx149823149824%_)))) + (let ((_%tl142832142889%_ (let () (declare (not safe)) - (##cdr _%e141543141597%_))) - (_%hd141544141600%_ + (##cdr _%e142830142884%_))) + (_%hd142831142887%_ (let () (declare (not safe)) - (##car _%e141543141597%_)))) + (##car _%e142830142884%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141544141600%_)) + (gx#identifier? _%hd142831142887%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141544141600%_)) + _%hd142831142887%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141545141602%_)) - (let ((_%e141546141605%_ + _%tl142832142889%_)) + (let ((_%e142833142892%_ (let () (declare (not safe)) (gx#stx-e - _%tl141545141602%_)))) - (let ((_%tl141548141610%_ + _%tl142832142889%_)))) + (let ((_%tl142835142897%_ (let () (declare (not safe)) - (##cdr _%e141546141605%_))) - (_%hd141547141608%_ + (##cdr _%e142833142892%_))) + (_%hd142834142895%_ (let () (declare (not safe)) - (##car _%e141546141605%_)))) + (##car _%e142833142892%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141548141610%_)) - (_%__kont148538148539%_) - (_%__kont148542148543%_)))) - (_%__kont148542148543%_)) + _%tl142835142897%_)) + (_%__kont149825149826%_) + (_%__kont149829149830%_)))) + (_%__kont149829149830%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd141544141600%_)) + _%hd142831142887%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141545141602%_)) - (let ((_%e141552141582%_ + _%tl142832142889%_)) + (let ((_%e142839142869%_ (let () (declare (not safe)) (gx#stx-e - _%tl141545141602%_)))) - (let ((_%tl141554141587%_ + _%tl142832142889%_)))) + (let ((_%tl142841142874%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e141552141582%_))) - (_%hd141553141585%_ - (let () (declare (not safe)) (##car _%e141552141582%_)))) + (##cdr _%e142839142869%_))) + (_%hd142840142872%_ + (let () (declare (not safe)) (##car _%e142839142869%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141554141587%_)) - (_%__kont148540148541%_) - (_%__kont148542148543%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148542148543%_)) - (_%__kont148542148543%_))) - (_%__kont148542148543%_)))) - (_%__kont148542148543%_))))))) - (if (pair? _%rest141516141524%_) - (let ((_%hd141521141621%_ + (gx#stx-null? _%tl142841142874%_)) + (_%__kont149827149828%_) + (_%__kont149829149830%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149829149830%_)) + (_%__kont149829149830%_))) + (_%__kont149829149830%_)))) + (_%__kont149829149830%_))))))) + (if (pair? _%rest142803142811%_) + (let ((_%hd142808142908%_ (let () (declare (not safe)) - (##car _%rest141516141524%_))) - (_%tl141522141623%_ + (##car _%rest142803142811%_))) + (_%tl142809142910%_ (let () (declare (not safe)) - (##cdr _%rest141516141524%_)))) - (let* ((_%e141626%_ _%hd141521141621%_) - (_%rest141628%_ _%tl141522141623%_)) - (_%K141520141618%_ _%rest141628%_ _%e141626%_))) - (_%else141518141532%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd141458141488%_ - _%hd141455141480%_) - (_%g141447141464%_ - _%g141448141467%_)))) - (_%g141447141464%_ _%g141448141467%_)))) - (_%g141447141464%_ _%g141448141467%_)))) - (_%g141447141464%_ _%g141448141467%_))))) - (_%g141446141630%_ _%stx141445%_)))) + (##cdr _%rest142803142811%_)))) + (let* ((_%e142913%_ _%hd142808142908%_) + (_%rest142915%_ _%tl142809142910%_)) + (_%K142807142905%_ _%rest142915%_ _%e142913%_))) + (_%else142805142819%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd142745142775%_ + _%hd142742142767%_) + (_%g142734142751%_ + _%g142735142754%_)))) + (_%g142734142751%_ _%g142735142754%_)))) + (_%g142734142751%_ _%g142735142754%_)))) + (_%g142734142751%_ _%g142735142754%_))))) + (_%g142733142917%_ _%stx142732%_)))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_%self141255%_ _%stx141256%_) - (let* ((_%g141258141275%_ - (lambda (_%g141259141272%_) + (lambda (_%self142542%_ _%stx142543%_) + (let* ((_%g142545142562%_ + (lambda (_%g142546142559%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141259141272%_)))) - (_%g141257141441%_ - (lambda (_%g141259141278%_) + _%g142546142559%_)))) + (_%g142544142728%_ + (lambda (_%g142546142565%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141259141278%_)) - (let ((_%e141262141280%_ + (gx#stx-pair? _%g142546142565%_)) + (let ((_%e142549142567%_ (let () (declare (not safe)) - (gx#stx-e _%g141259141278%_)))) - (let ((_%hd141263141283%_ + (gx#stx-e _%g142546142565%_)))) + (let ((_%hd142550142570%_ (let () (declare (not safe)) - (##car _%e141262141280%_))) - (_%tl141264141285%_ + (##car _%e142549142567%_))) + (_%tl142551142572%_ (let () (declare (not safe)) - (##cdr _%e141262141280%_)))) + (##cdr _%e142549142567%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141264141285%_)) - (let ((_%e141265141288%_ + (gx#stx-pair? _%tl142551142572%_)) + (let ((_%e142552142575%_ (let () (declare (not safe)) - (gx#stx-e _%tl141264141285%_)))) - (let ((_%hd141266141291%_ + (gx#stx-e _%tl142551142572%_)))) + (let ((_%hd142553142578%_ (let () (declare (not safe)) - (##car _%e141265141288%_))) - (_%tl141267141293%_ + (##car _%e142552142575%_))) + (_%tl142554142580%_ (let () (declare (not safe)) - (##cdr _%e141265141288%_)))) + (##cdr _%e142552142575%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141267141293%_)) - (let ((_%e141268141296%_ + (gx#stx-pair? _%tl142554142580%_)) + (let ((_%e142555142583%_ (let () (declare (not safe)) - (gx#stx-e _%tl141267141293%_)))) - (let ((_%hd141269141299%_ + (gx#stx-e _%tl142554142580%_)))) + (let ((_%hd142556142586%_ (let () (declare (not safe)) - (##car _%e141268141296%_))) - (_%tl141270141301%_ + (##car _%e142555142583%_))) + (_%tl142557142588%_ (let () (declare (not safe)) - (##cdr _%e141268141296%_)))) + (##cdr _%e142555142583%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141270141301%_)) - ((lambda (_%L141304%_ - _%L141305%_) + _%tl142557142588%_)) + ((lambda (_%L142591%_ + _%L142592%_) (if (gxc#current-compile-decls-unsafe?) (cons '##structure-direct-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141255%_ _%L141304%_)) + (gxc#compile-e__1 _%self142542%_ _%L142591%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self141255%_ _%L141305%_)) + (gxc#compile-e__1 _%self142542%_ _%L142592%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp141320%_ ((_%rest141323%_ + (let _%lp142607%_ ((_%rest142610%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L141305%_ (cons _%L141304%_ '()))) - (_%bind141325%_ '()) - (_%args141326%_ '())) - (let* ((_%rest141327141335%_ _%rest141323%_) - (_%else141329141343%_ + (cons _%L142592%_ (cons _%L142591%_ '()))) + (_%bind142612%_ '()) + (_%args142613%_ '())) + (let* ((_%rest142614142622%_ _%rest142610%_) + (_%else142616142630%_ (lambda () (cons 'let - (cons _%bind141325%_ + (cons _%bind142612%_ (cons '(declare (not safe)) (cons (cons '##structure-direct-instance-of? - _%args141326%_) + _%args142613%_) '())))))) - (_%K141331141429%_ - (lambda (_%rest141346%_ _%e141347%_) - (let* ((_%__stx148582148583%_ _%e141347%_) - (_%g141352141370%_ + (_%K142618142716%_ + (lambda (_%rest142633%_ _%e142634%_) + (let* ((_%__stx149869149870%_ _%e142634%_) + (_%g142639142657%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148582148583%_))))) - (let ((_%__kont148584148585%_ + _%__stx149869149870%_))))) + (let ((_%__kont149871149872%_ (lambda () - (_%lp141320%_ - _%rest141346%_ - _%bind141325%_ + (_%lp142607%_ + _%rest142633%_ + _%bind142612%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141347%_)) - _%args141326%_)))) - (_%__kont148586148587%_ + (gxc#compile-e__0 _%e142634%_)) + _%args142613%_)))) + (_%__kont149873149874%_ (lambda () - (_%lp141320%_ - _%rest141346%_ - _%bind141325%_ + (_%lp142607%_ + _%rest142633%_ + _%bind142612%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141347%_)) - _%args141326%_)))) - (_%__kont148588148589%_ + (gxc#compile-e__0 _%e142634%_)) + _%args142613%_)))) + (_%__kont149875149876%_ (lambda () - (let ((_%tmp141377%_ - (let ((__tmp148990 + (let ((_%tmp142664%_ + (let ((__tmp150277 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp148990)))) - (_%lp141320%_ - _%rest141346%_ - (cons (cons _%tmp141377%_ + (make-symbol__0 __tmp150277)))) + (_%lp142607%_ + _%rest142633%_ + (cons (cons _%tmp142664%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e141347%_)) + _%e142634%_)) '())) - _%bind141325%_) - (cons _%tmp141377%_ _%args141326%_)))))) + _%bind142612%_) + (cons _%tmp142664%_ _%args142613%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148582148583%_)) - (let ((_%e141354141408%_ + (gx#stx-pair? _%__stx149869149870%_)) + (let ((_%e142641142695%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148582148583%_)))) - (let ((_%tl141356141413%_ + (gx#stx-e _%__stx149869149870%_)))) + (let ((_%tl142643142700%_ (let () (declare (not safe)) - (##cdr _%e141354141408%_))) - (_%hd141355141411%_ + (##cdr _%e142641142695%_))) + (_%hd142642142698%_ (let () (declare (not safe)) - (##car _%e141354141408%_)))) + (##car _%e142641142695%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141355141411%_)) + (gx#identifier? _%hd142642142698%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141355141411%_)) + _%hd142642142698%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141356141413%_)) - (let ((_%e141357141416%_ + _%tl142643142700%_)) + (let ((_%e142644142703%_ (let () (declare (not safe)) (gx#stx-e - _%tl141356141413%_)))) - (let ((_%tl141359141421%_ + _%tl142643142700%_)))) + (let ((_%tl142646142708%_ (let () (declare (not safe)) - (##cdr _%e141357141416%_))) - (_%hd141358141419%_ + (##cdr _%e142644142703%_))) + (_%hd142645142706%_ (let () (declare (not safe)) - (##car _%e141357141416%_)))) + (##car _%e142644142703%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141359141421%_)) - (_%__kont148584148585%_) - (_%__kont148588148589%_)))) - (_%__kont148588148589%_)) + _%tl142646142708%_)) + (_%__kont149871149872%_) + (_%__kont149875149876%_)))) + (_%__kont149875149876%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd141355141411%_)) + _%hd142642142698%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141356141413%_)) - (let ((_%e141363141393%_ + _%tl142643142700%_)) + (let ((_%e142650142680%_ (let () (declare (not safe)) (gx#stx-e - _%tl141356141413%_)))) - (let ((_%tl141365141398%_ + _%tl142643142700%_)))) + (let ((_%tl142652142685%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e141363141393%_))) - (_%hd141364141396%_ - (let () (declare (not safe)) (##car _%e141363141393%_)))) + (##cdr _%e142650142680%_))) + (_%hd142651142683%_ + (let () (declare (not safe)) (##car _%e142650142680%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141365141398%_)) - (_%__kont148586148587%_) - (_%__kont148588148589%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148588148589%_)) - (_%__kont148588148589%_))) - (_%__kont148588148589%_)))) - (_%__kont148588148589%_))))))) - (if (pair? _%rest141327141335%_) - (let ((_%hd141332141432%_ + (gx#stx-null? _%tl142652142685%_)) + (_%__kont149873149874%_) + (_%__kont149875149876%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149875149876%_)) + (_%__kont149875149876%_))) + (_%__kont149875149876%_)))) + (_%__kont149875149876%_))))))) + (if (pair? _%rest142614142622%_) + (let ((_%hd142619142719%_ (let () (declare (not safe)) - (##car _%rest141327141335%_))) - (_%tl141333141434%_ + (##car _%rest142614142622%_))) + (_%tl142620142721%_ (let () (declare (not safe)) - (##cdr _%rest141327141335%_)))) - (let* ((_%e141437%_ _%hd141332141432%_) - (_%rest141439%_ _%tl141333141434%_)) - (_%K141331141429%_ _%rest141439%_ _%e141437%_))) - (_%else141329141343%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd141269141299%_ - _%hd141266141291%_) - (_%g141258141275%_ - _%g141259141278%_)))) - (_%g141258141275%_ _%g141259141278%_)))) - (_%g141258141275%_ _%g141259141278%_)))) - (_%g141258141275%_ _%g141259141278%_))))) - (_%g141257141441%_ _%stx141256%_)))) + (##cdr _%rest142614142622%_)))) + (let* ((_%e142724%_ _%hd142619142719%_) + (_%rest142726%_ _%tl142620142721%_)) + (_%K142618142716%_ _%rest142726%_ _%e142724%_))) + (_%else142616142630%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd142556142586%_ + _%hd142553142578%_) + (_%g142545142562%_ + _%g142546142565%_)))) + (_%g142545142562%_ _%g142546142565%_)))) + (_%g142545142562%_ _%g142546142565%_)))) + (_%g142545142562%_ _%g142546142565%_))))) + (_%g142544142728%_ _%stx142543%_)))) (define gxc#generate-runtime-struct-ref% - (lambda (_%self141171%_ _%stx141172%_) - (let* ((_%g141174141195%_ - (lambda (_%g141175141192%_) + (lambda (_%self142458%_ _%stx142459%_) + (let* ((_%g142461142482%_ + (lambda (_%g142462142479%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141175141192%_)))) - (_%g141173141252%_ - (lambda (_%g141175141198%_) + _%g142462142479%_)))) + (_%g142460142539%_ + (lambda (_%g142462142485%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141175141198%_)) - (let ((_%e141179141200%_ + (gx#stx-pair? _%g142462142485%_)) + (let ((_%e142466142487%_ (let () (declare (not safe)) - (gx#stx-e _%g141175141198%_)))) - (let ((_%hd141180141203%_ + (gx#stx-e _%g142462142485%_)))) + (let ((_%hd142467142490%_ (let () (declare (not safe)) - (##car _%e141179141200%_))) - (_%tl141181141205%_ + (##car _%e142466142487%_))) + (_%tl142468142492%_ (let () (declare (not safe)) - (##cdr _%e141179141200%_)))) + (##cdr _%e142466142487%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141181141205%_)) - (let ((_%e141182141208%_ + (gx#stx-pair? _%tl142468142492%_)) + (let ((_%e142469142495%_ (let () (declare (not safe)) - (gx#stx-e _%tl141181141205%_)))) - (let ((_%hd141183141211%_ + (gx#stx-e _%tl142468142492%_)))) + (let ((_%hd142470142498%_ (let () (declare (not safe)) - (##car _%e141182141208%_))) - (_%tl141184141213%_ + (##car _%e142469142495%_))) + (_%tl142471142500%_ (let () (declare (not safe)) - (##cdr _%e141182141208%_)))) + (##cdr _%e142469142495%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141184141213%_)) - (let ((_%e141185141216%_ + (gx#stx-pair? _%tl142471142500%_)) + (let ((_%e142472142503%_ (let () (declare (not safe)) - (gx#stx-e _%tl141184141213%_)))) - (let ((_%hd141186141219%_ + (gx#stx-e _%tl142471142500%_)))) + (let ((_%hd142473142506%_ (let () (declare (not safe)) - (##car _%e141185141216%_))) - (_%tl141187141221%_ + (##car _%e142472142503%_))) + (_%tl142474142508%_ (let () (declare (not safe)) - (##cdr _%e141185141216%_)))) + (##cdr _%e142472142503%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141187141221%_)) - (let ((_%e141188141224%_ + _%tl142474142508%_)) + (let ((_%e142475142511%_ (let () (declare (not safe)) (gx#stx-e - _%tl141187141221%_)))) - (let ((_%hd141189141227%_ + _%tl142474142508%_)))) + (let ((_%hd142476142514%_ (let () (declare (not safe)) - (##car _%e141188141224%_))) - (_%tl141190141229%_ + (##car _%e142475142511%_))) + (_%tl142477142516%_ (let () (declare (not safe)) - (##cdr _%e141188141224%_)))) + (##cdr _%e142475142511%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141190141229%_)) - ((lambda (_%L141232%_ - _%L141233%_ - _%L141234%_) + _%tl142477142516%_)) + ((lambda (_%L142519%_ + _%L142520%_ + _%L142521%_) (cons '##structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141171%_ _%L141232%_)) + (gxc#compile-e__1 _%self142458%_ _%L142519%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141171%_ - _%L141233%_)) + _%self142458%_ + _%L142520%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141171%_ - _%L141234%_)) + _%self142458%_ + _%L142521%_)) (cons ''#f '())))))) - _%hd141189141227%_ - _%hd141186141219%_ - _%hd141183141211%_) - (_%g141174141195%_ _%g141175141198%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141174141195%_ - _%g141175141198%_)))) - (_%g141174141195%_ _%g141175141198%_)))) - (_%g141174141195%_ _%g141175141198%_)))) - (_%g141174141195%_ _%g141175141198%_))))) - (_%g141173141252%_ _%stx141172%_)))) + _%hd142476142514%_ + _%hd142473142506%_ + _%hd142470142498%_) + (_%g142461142482%_ _%g142462142485%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g142461142482%_ + _%g142462142485%_)))) + (_%g142461142482%_ _%g142462142485%_)))) + (_%g142461142482%_ _%g142462142485%_)))) + (_%g142461142482%_ _%g142462142485%_))))) + (_%g142460142539%_ _%stx142459%_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_%self141071%_ _%stx141072%_) - (let* ((_%g141074141099%_ - (lambda (_%g141075141096%_) + (lambda (_%self142358%_ _%stx142359%_) + (let* ((_%g142361142386%_ + (lambda (_%g142362142383%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141075141096%_)))) - (_%g141073141168%_ - (lambda (_%g141075141102%_) + _%g142362142383%_)))) + (_%g142360142455%_ + (lambda (_%g142362142389%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141075141102%_)) - (let ((_%e141080141104%_ + (gx#stx-pair? _%g142362142389%_)) + (let ((_%e142367142391%_ (let () (declare (not safe)) - (gx#stx-e _%g141075141102%_)))) - (let ((_%hd141081141107%_ + (gx#stx-e _%g142362142389%_)))) + (let ((_%hd142368142394%_ (let () (declare (not safe)) - (##car _%e141080141104%_))) - (_%tl141082141109%_ + (##car _%e142367142391%_))) + (_%tl142369142396%_ (let () (declare (not safe)) - (##cdr _%e141080141104%_)))) + (##cdr _%e142367142391%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141082141109%_)) - (let ((_%e141083141112%_ + (gx#stx-pair? _%tl142369142396%_)) + (let ((_%e142370142399%_ (let () (declare (not safe)) - (gx#stx-e _%tl141082141109%_)))) - (let ((_%hd141084141115%_ + (gx#stx-e _%tl142369142396%_)))) + (let ((_%hd142371142402%_ (let () (declare (not safe)) - (##car _%e141083141112%_))) - (_%tl141085141117%_ + (##car _%e142370142399%_))) + (_%tl142372142404%_ (let () (declare (not safe)) - (##cdr _%e141083141112%_)))) + (##cdr _%e142370142399%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141085141117%_)) - (let ((_%e141086141120%_ + (gx#stx-pair? _%tl142372142404%_)) + (let ((_%e142373142407%_ (let () (declare (not safe)) - (gx#stx-e _%tl141085141117%_)))) - (let ((_%hd141087141123%_ + (gx#stx-e _%tl142372142404%_)))) + (let ((_%hd142374142410%_ (let () (declare (not safe)) - (##car _%e141086141120%_))) - (_%tl141088141125%_ + (##car _%e142373142407%_))) + (_%tl142375142412%_ (let () (declare (not safe)) - (##cdr _%e141086141120%_)))) + (##cdr _%e142373142407%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141088141125%_)) - (let ((_%e141089141128%_ + _%tl142375142412%_)) + (let ((_%e142376142415%_ (let () (declare (not safe)) (gx#stx-e - _%tl141088141125%_)))) - (let ((_%hd141090141131%_ + _%tl142375142412%_)))) + (let ((_%hd142377142418%_ (let () (declare (not safe)) - (##car _%e141089141128%_))) - (_%tl141091141133%_ + (##car _%e142376142415%_))) + (_%tl142378142420%_ (let () (declare (not safe)) - (##cdr _%e141089141128%_)))) + (##cdr _%e142376142415%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141091141133%_)) - (let ((_%e141092141136%_ + _%tl142378142420%_)) + (let ((_%e142379142423%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl141091141133%_)))) - (let ((_%hd141093141139%_ - (let () (declare (not safe)) (##car _%e141092141136%_))) - (_%tl141094141141%_ + (gx#stx-e _%tl142378142420%_)))) + (let ((_%hd142380142426%_ + (let () (declare (not safe)) (##car _%e142379142423%_))) + (_%tl142381142428%_ (let () (declare (not safe)) - (##cdr _%e141092141136%_)))) + (##cdr _%e142379142423%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141094141141%_)) - ((lambda (_%L141144%_ - _%L141145%_ - _%L141146%_ - _%L141147%_) + (gx#stx-null? _%tl142381142428%_)) + ((lambda (_%L142431%_ + _%L142432%_ + _%L142433%_ + _%L142434%_) (cons '##structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141071%_ - _%L141145%_)) + _%self142358%_ + _%L142432%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141071%_ - _%L141144%_)) + _%self142358%_ + _%L142431%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141071%_ - _%L141146%_)) + _%self142358%_ + _%L142433%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141071%_ - _%L141147%_)) + _%self142358%_ + _%L142434%_)) (cons ''#f '()))))))) - _%hd141093141139%_ - _%hd141090141131%_ - _%hd141087141123%_ - _%hd141084141115%_) - (_%g141074141099%_ _%g141075141102%_)))) - (_%g141074141099%_ _%g141075141102%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141074141099%_ - _%g141075141102%_)))) - (_%g141074141099%_ _%g141075141102%_)))) - (_%g141074141099%_ _%g141075141102%_)))) - (_%g141074141099%_ _%g141075141102%_))))) - (_%g141073141168%_ _%stx141072%_)))) + _%hd142380142426%_ + _%hd142377142418%_ + _%hd142374142410%_ + _%hd142371142402%_) + (_%g142361142386%_ _%g142362142389%_)))) + (_%g142361142386%_ _%g142362142389%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g142361142386%_ + _%g142362142389%_)))) + (_%g142361142386%_ _%g142362142389%_)))) + (_%g142361142386%_ _%g142362142389%_)))) + (_%g142361142386%_ _%g142362142389%_))))) + (_%g142360142455%_ _%stx142359%_)))) (define gxc#generate-runtime-struct-direct-ref% - (lambda (_%self140987%_ _%stx140988%_) - (let* ((_%g140990141011%_ - (lambda (_%g140991141008%_) + (lambda (_%self142274%_ _%stx142275%_) + (let* ((_%g142277142298%_ + (lambda (_%g142278142295%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140991141008%_)))) - (_%g140989141068%_ - (lambda (_%g140991141014%_) + _%g142278142295%_)))) + (_%g142276142355%_ + (lambda (_%g142278142301%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140991141014%_)) - (let ((_%e140995141016%_ + (gx#stx-pair? _%g142278142301%_)) + (let ((_%e142282142303%_ (let () (declare (not safe)) - (gx#stx-e _%g140991141014%_)))) - (let ((_%hd140996141019%_ + (gx#stx-e _%g142278142301%_)))) + (let ((_%hd142283142306%_ (let () (declare (not safe)) - (##car _%e140995141016%_))) - (_%tl140997141021%_ + (##car _%e142282142303%_))) + (_%tl142284142308%_ (let () (declare (not safe)) - (##cdr _%e140995141016%_)))) + (##cdr _%e142282142303%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140997141021%_)) - (let ((_%e140998141024%_ + (gx#stx-pair? _%tl142284142308%_)) + (let ((_%e142285142311%_ (let () (declare (not safe)) - (gx#stx-e _%tl140997141021%_)))) - (let ((_%hd140999141027%_ + (gx#stx-e _%tl142284142308%_)))) + (let ((_%hd142286142314%_ (let () (declare (not safe)) - (##car _%e140998141024%_))) - (_%tl141000141029%_ + (##car _%e142285142311%_))) + (_%tl142287142316%_ (let () (declare (not safe)) - (##cdr _%e140998141024%_)))) + (##cdr _%e142285142311%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141000141029%_)) - (let ((_%e141001141032%_ + (gx#stx-pair? _%tl142287142316%_)) + (let ((_%e142288142319%_ (let () (declare (not safe)) - (gx#stx-e _%tl141000141029%_)))) - (let ((_%hd141002141035%_ + (gx#stx-e _%tl142287142316%_)))) + (let ((_%hd142289142322%_ (let () (declare (not safe)) - (##car _%e141001141032%_))) - (_%tl141003141037%_ + (##car _%e142288142319%_))) + (_%tl142290142324%_ (let () (declare (not safe)) - (##cdr _%e141001141032%_)))) + (##cdr _%e142288142319%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141003141037%_)) - (let ((_%e141004141040%_ + _%tl142290142324%_)) + (let ((_%e142291142327%_ (let () (declare (not safe)) (gx#stx-e - _%tl141003141037%_)))) - (let ((_%hd141005141043%_ + _%tl142290142324%_)))) + (let ((_%hd142292142330%_ (let () (declare (not safe)) - (##car _%e141004141040%_))) - (_%tl141006141045%_ + (##car _%e142291142327%_))) + (_%tl142293142332%_ (let () (declare (not safe)) - (##cdr _%e141004141040%_)))) + (##cdr _%e142291142327%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141006141045%_)) - ((lambda (_%L141048%_ - _%L141049%_ - _%L141050%_) + _%tl142293142332%_)) + ((lambda (_%L142335%_ + _%L142336%_ + _%L142337%_) (cons '##direct-structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self140987%_ _%L141048%_)) + (gxc#compile-e__1 _%self142274%_ _%L142335%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140987%_ - _%L141049%_)) + _%self142274%_ + _%L142336%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140987%_ - _%L141050%_)) + _%self142274%_ + _%L142337%_)) (cons ''#f '())))))) - _%hd141005141043%_ - _%hd141002141035%_ - _%hd140999141027%_) - (_%g140990141011%_ _%g140991141014%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140990141011%_ - _%g140991141014%_)))) - (_%g140990141011%_ _%g140991141014%_)))) - (_%g140990141011%_ _%g140991141014%_)))) - (_%g140990141011%_ _%g140991141014%_))))) - (_%g140989141068%_ _%stx140988%_)))) + _%hd142292142330%_ + _%hd142289142322%_ + _%hd142286142314%_) + (_%g142277142298%_ _%g142278142301%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g142277142298%_ + _%g142278142301%_)))) + (_%g142277142298%_ _%g142278142301%_)))) + (_%g142277142298%_ _%g142278142301%_)))) + (_%g142277142298%_ _%g142278142301%_))))) + (_%g142276142355%_ _%stx142275%_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_%self140887%_ _%stx140888%_) - (let* ((_%g140890140915%_ - (lambda (_%g140891140912%_) + (lambda (_%self142174%_ _%stx142175%_) + (let* ((_%g142177142202%_ + (lambda (_%g142178142199%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140891140912%_)))) - (_%g140889140984%_ - (lambda (_%g140891140918%_) + _%g142178142199%_)))) + (_%g142176142271%_ + (lambda (_%g142178142205%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140891140918%_)) - (let ((_%e140896140920%_ + (gx#stx-pair? _%g142178142205%_)) + (let ((_%e142183142207%_ (let () (declare (not safe)) - (gx#stx-e _%g140891140918%_)))) - (let ((_%hd140897140923%_ + (gx#stx-e _%g142178142205%_)))) + (let ((_%hd142184142210%_ (let () (declare (not safe)) - (##car _%e140896140920%_))) - (_%tl140898140925%_ + (##car _%e142183142207%_))) + (_%tl142185142212%_ (let () (declare (not safe)) - (##cdr _%e140896140920%_)))) + (##cdr _%e142183142207%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140898140925%_)) - (let ((_%e140899140928%_ + (gx#stx-pair? _%tl142185142212%_)) + (let ((_%e142186142215%_ (let () (declare (not safe)) - (gx#stx-e _%tl140898140925%_)))) - (let ((_%hd140900140931%_ + (gx#stx-e _%tl142185142212%_)))) + (let ((_%hd142187142218%_ (let () (declare (not safe)) - (##car _%e140899140928%_))) - (_%tl140901140933%_ + (##car _%e142186142215%_))) + (_%tl142188142220%_ (let () (declare (not safe)) - (##cdr _%e140899140928%_)))) + (##cdr _%e142186142215%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140901140933%_)) - (let ((_%e140902140936%_ + (gx#stx-pair? _%tl142188142220%_)) + (let ((_%e142189142223%_ (let () (declare (not safe)) - (gx#stx-e _%tl140901140933%_)))) - (let ((_%hd140903140939%_ + (gx#stx-e _%tl142188142220%_)))) + (let ((_%hd142190142226%_ (let () (declare (not safe)) - (##car _%e140902140936%_))) - (_%tl140904140941%_ + (##car _%e142189142223%_))) + (_%tl142191142228%_ (let () (declare (not safe)) - (##cdr _%e140902140936%_)))) + (##cdr _%e142189142223%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140904140941%_)) - (let ((_%e140905140944%_ + _%tl142191142228%_)) + (let ((_%e142192142231%_ (let () (declare (not safe)) (gx#stx-e - _%tl140904140941%_)))) - (let ((_%hd140906140947%_ + _%tl142191142228%_)))) + (let ((_%hd142193142234%_ (let () (declare (not safe)) - (##car _%e140905140944%_))) - (_%tl140907140949%_ + (##car _%e142192142231%_))) + (_%tl142194142236%_ (let () (declare (not safe)) - (##cdr _%e140905140944%_)))) + (##cdr _%e142192142231%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140907140949%_)) - (let ((_%e140908140952%_ + _%tl142194142236%_)) + (let ((_%e142195142239%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl140907140949%_)))) - (let ((_%hd140909140955%_ - (let () (declare (not safe)) (##car _%e140908140952%_))) - (_%tl140910140957%_ + (gx#stx-e _%tl142194142236%_)))) + (let ((_%hd142196142242%_ + (let () (declare (not safe)) (##car _%e142195142239%_))) + (_%tl142197142244%_ (let () (declare (not safe)) - (##cdr _%e140908140952%_)))) + (##cdr _%e142195142239%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140910140957%_)) - ((lambda (_%L140960%_ - _%L140961%_ - _%L140962%_ - _%L140963%_) + (gx#stx-null? _%tl142197142244%_)) + ((lambda (_%L142247%_ + _%L142248%_ + _%L142249%_ + _%L142250%_) (cons '##direct-structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140887%_ - _%L140961%_)) + _%self142174%_ + _%L142248%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140887%_ - _%L140960%_)) + _%self142174%_ + _%L142247%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140887%_ - _%L140962%_)) + _%self142174%_ + _%L142249%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140887%_ - _%L140963%_)) + _%self142174%_ + _%L142250%_)) (cons ''#f '()))))))) - _%hd140909140955%_ - _%hd140906140947%_ - _%hd140903140939%_ - _%hd140900140931%_) - (_%g140890140915%_ _%g140891140918%_)))) - (_%g140890140915%_ _%g140891140918%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140890140915%_ - _%g140891140918%_)))) - (_%g140890140915%_ _%g140891140918%_)))) - (_%g140890140915%_ _%g140891140918%_)))) - (_%g140890140915%_ _%g140891140918%_))))) - (_%g140889140984%_ _%stx140888%_)))) + _%hd142196142242%_ + _%hd142193142234%_ + _%hd142190142226%_ + _%hd142187142218%_) + (_%g142177142202%_ _%g142178142205%_)))) + (_%g142177142202%_ _%g142178142205%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g142177142202%_ + _%g142178142205%_)))) + (_%g142177142202%_ _%g142178142205%_)))) + (_%g142177142202%_ _%g142178142205%_)))) + (_%g142177142202%_ _%g142178142205%_))))) + (_%g142176142271%_ _%stx142175%_)))) (define gxc#generate-runtime-struct-unchecked-ref% - (lambda (_%self140682%_ _%stx140683%_) - (let* ((_%g140685140706%_ - (lambda (_%g140686140703%_) + (lambda (_%self141969%_ _%stx141970%_) + (let* ((_%g141972141993%_ + (lambda (_%g141973141990%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140686140703%_)))) - (_%g140684140884%_ - (lambda (_%g140686140709%_) + _%g141973141990%_)))) + (_%g141971142171%_ + (lambda (_%g141973141996%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140686140709%_)) - (let ((_%e140690140711%_ + (gx#stx-pair? _%g141973141996%_)) + (let ((_%e141977141998%_ (let () (declare (not safe)) - (gx#stx-e _%g140686140709%_)))) - (let ((_%hd140691140714%_ + (gx#stx-e _%g141973141996%_)))) + (let ((_%hd141978142001%_ (let () (declare (not safe)) - (##car _%e140690140711%_))) - (_%tl140692140716%_ + (##car _%e141977141998%_))) + (_%tl141979142003%_ (let () (declare (not safe)) - (##cdr _%e140690140711%_)))) + (##cdr _%e141977141998%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140692140716%_)) - (let ((_%e140693140719%_ + (gx#stx-pair? _%tl141979142003%_)) + (let ((_%e141980142006%_ (let () (declare (not safe)) - (gx#stx-e _%tl140692140716%_)))) - (let ((_%hd140694140722%_ + (gx#stx-e _%tl141979142003%_)))) + (let ((_%hd141981142009%_ (let () (declare (not safe)) - (##car _%e140693140719%_))) - (_%tl140695140724%_ + (##car _%e141980142006%_))) + (_%tl141982142011%_ (let () (declare (not safe)) - (##cdr _%e140693140719%_)))) + (##cdr _%e141980142006%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140695140724%_)) - (let ((_%e140696140727%_ + (gx#stx-pair? _%tl141982142011%_)) + (let ((_%e141983142014%_ (let () (declare (not safe)) - (gx#stx-e _%tl140695140724%_)))) - (let ((_%hd140697140730%_ + (gx#stx-e _%tl141982142011%_)))) + (let ((_%hd141984142017%_ (let () (declare (not safe)) - (##car _%e140696140727%_))) - (_%tl140698140732%_ + (##car _%e141983142014%_))) + (_%tl141985142019%_ (let () (declare (not safe)) - (##cdr _%e140696140727%_)))) + (##cdr _%e141983142014%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140698140732%_)) - (let ((_%e140699140735%_ + _%tl141985142019%_)) + (let ((_%e141986142022%_ (let () (declare (not safe)) (gx#stx-e - _%tl140698140732%_)))) - (let ((_%hd140700140738%_ + _%tl141985142019%_)))) + (let ((_%hd141987142025%_ (let () (declare (not safe)) - (##car _%e140699140735%_))) - (_%tl140701140740%_ + (##car _%e141986142022%_))) + (_%tl141988142027%_ (let () (declare (not safe)) - (##cdr _%e140699140735%_)))) + (##cdr _%e141986142022%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140701140740%_)) - ((lambda (_%L140743%_ - _%L140744%_ - _%L140745%_) + _%tl141988142027%_)) + ((lambda (_%L142030%_ + _%L142031%_ + _%L142032%_) (if (gxc#current-compile-decls-unsafe?) (cons '##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140682%_ - _%L140743%_)) + _%self141969%_ + _%L142030%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140682%_ - _%L140744%_)) + _%self141969%_ + _%L142031%_)) (cons ''#f (cons ''#f '()))))) - (let _%lp140763%_ ((_%rest140766%_ - (cons _%L140744%_ - (cons _%L140743%_ '()))) - (_%bind140768%_ '()) - (_%args140769%_ '())) - (let* ((_%rest140770140778%_ _%rest140766%_) - (_%else140772140786%_ + (let _%lp142050%_ ((_%rest142053%_ + (cons _%L142031%_ + (cons _%L142030%_ '()))) + (_%bind142055%_ '()) + (_%args142056%_ '())) + (let* ((_%rest142057142065%_ _%rest142053%_) + (_%else142059142073%_ (lambda () (cons 'let - (cons _%bind140768%_ + (cons _%bind142055%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-ref - (let ((__tmp148991 + (let ((__tmp150278 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp148991 _%args140769%_))) + (__foldr1 cons __tmp150278 _%args142056%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K140774140872%_ - (lambda (_%rest140789%_ _%e140790%_) - (let* ((_%__stx148628148629%_ _%e140790%_) - (_%g140795140813%_ + (_%K142061142159%_ + (lambda (_%rest142076%_ _%e142077%_) + (let* ((_%__stx149915149916%_ _%e142077%_) + (_%g142082142100%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148628148629%_))))) - (let ((_%__kont148630148631%_ + _%__stx149915149916%_))))) + (let ((_%__kont149917149918%_ (lambda () - (_%lp140763%_ - _%rest140789%_ - _%bind140768%_ + (_%lp142050%_ + _%rest142076%_ + _%bind142055%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140790%_)) - _%args140769%_)))) - (_%__kont148632148633%_ + _%e142077%_)) + _%args142056%_)))) + (_%__kont149919149920%_ (lambda () - (_%lp140763%_ - _%rest140789%_ - _%bind140768%_ + (_%lp142050%_ + _%rest142076%_ + _%bind142055%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140790%_)) - _%args140769%_)))) - (_%__kont148634148635%_ + _%e142077%_)) + _%args142056%_)))) + (_%__kont149921149922%_ (lambda () - (let ((_%tmp140820%_ - (let ((__tmp148992 + (let ((_%tmp142107%_ + (let ((__tmp150279 (let () (declare (not safe)) @@ -11572,1578 +11572,1578 @@ '__tmp)))) (declare (not safe)) (make-symbol__0 - __tmp148992)))) - (_%lp140763%_ - _%rest140789%_ - (cons (cons _%tmp140820%_ + __tmp150279)))) + (_%lp142050%_ + _%rest142076%_ + (cons (cons _%tmp142107%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _%e140790%_)) + (gxc#compile-e__0 _%e142077%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind140768%_) - (cons _%tmp140820%_ - _%args140769%_)))))) + _%bind142055%_) + (cons _%tmp142107%_ + _%args142056%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148628148629%_)) - (let ((_%e140797140851%_ + _%__stx149915149916%_)) + (let ((_%e142084142138%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148628148629%_)))) - (let ((_%tl140799140856%_ + _%__stx149915149916%_)))) + (let ((_%tl142086142143%_ (let () (declare (not safe)) - (##cdr _%e140797140851%_))) - (_%hd140798140854%_ + (##cdr _%e142084142138%_))) + (_%hd142085142141%_ (let () (declare (not safe)) - (##car _%e140797140851%_)))) + (##car _%e142084142138%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd140798140854%_)) + _%hd142085142141%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd140798140854%_)) + _%hd142085142141%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140799140856%_)) - (let ((_%e140800140859%_ + _%tl142086142143%_)) + (let ((_%e142087142146%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl140799140856%_)))) - (let ((_%tl140802140864%_ + (gx#stx-e _%tl142086142143%_)))) + (let ((_%tl142089142151%_ (let () (declare (not safe)) - (##cdr _%e140800140859%_))) - (_%hd140801140862%_ + (##cdr _%e142087142146%_))) + (_%hd142088142149%_ (let () (declare (not safe)) - (##car _%e140800140859%_)))) + (##car _%e142087142146%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140802140864%_)) - (_%__kont148630148631%_) - (_%__kont148634148635%_)))) - (_%__kont148634148635%_)) + (gx#stx-null? _%tl142089142151%_)) + (_%__kont149917149918%_) + (_%__kont149921149922%_)))) + (_%__kont149921149922%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd140798140854%_)) + _%hd142085142141%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl140799140856%_)) - (let ((_%e140806140836%_ + (gx#stx-pair? _%tl142086142143%_)) + (let ((_%e142093142123%_ (let () (declare (not safe)) - (gx#stx-e _%tl140799140856%_)))) - (let ((_%tl140808140841%_ + (gx#stx-e _%tl142086142143%_)))) + (let ((_%tl142095142128%_ (let () (declare (not safe)) - (##cdr _%e140806140836%_))) - (_%hd140807140839%_ + (##cdr _%e142093142123%_))) + (_%hd142094142126%_ (let () (declare (not safe)) - (##car _%e140806140836%_)))) + (##car _%e142093142123%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140808140841%_)) - (_%__kont148632148633%_) - (_%__kont148634148635%_)))) - (_%__kont148634148635%_)) - (_%__kont148634148635%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148634148635%_)))) - (_%__kont148634148635%_))))))) - (if (pair? _%rest140770140778%_) - (let ((_%hd140775140875%_ + (gx#stx-null? _%tl142095142128%_)) + (_%__kont149919149920%_) + (_%__kont149921149922%_)))) + (_%__kont149921149922%_)) + (_%__kont149921149922%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149921149922%_)))) + (_%__kont149921149922%_))))))) + (if (pair? _%rest142057142065%_) + (let ((_%hd142062142162%_ (let () (declare (not safe)) - (##car _%rest140770140778%_))) - (_%tl140776140877%_ + (##car _%rest142057142065%_))) + (_%tl142063142164%_ (let () (declare (not safe)) - (##cdr _%rest140770140778%_)))) - (let* ((_%e140880%_ _%hd140775140875%_) - (_%rest140882%_ _%tl140776140877%_)) - (_%K140774140872%_ - _%rest140882%_ - _%e140880%_))) - (_%else140772140786%_)))))) - _%hd140700140738%_ - _%hd140697140730%_ - _%hd140694140722%_) - (_%g140685140706%_ _%g140686140709%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140685140706%_ - _%g140686140709%_)))) - (_%g140685140706%_ _%g140686140709%_)))) - (_%g140685140706%_ _%g140686140709%_)))) - (_%g140685140706%_ _%g140686140709%_))))) - (_%g140684140884%_ _%stx140683%_)))) + (##cdr _%rest142057142065%_)))) + (let* ((_%e142167%_ _%hd142062142162%_) + (_%rest142169%_ _%tl142063142164%_)) + (_%K142061142159%_ + _%rest142169%_ + _%e142167%_))) + (_%else142059142073%_)))))) + _%hd141987142025%_ + _%hd141984142017%_ + _%hd141981142009%_) + (_%g141972141993%_ _%g141973141996%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141972141993%_ + _%g141973141996%_)))) + (_%g141972141993%_ _%g141973141996%_)))) + (_%g141972141993%_ _%g141973141996%_)))) + (_%g141972141993%_ _%g141973141996%_))))) + (_%g141971142171%_ _%stx141970%_)))) (define gxc#generate-runtime-struct-unchecked-setq% - (lambda (_%self140461%_ _%stx140462%_) - (let* ((_%g140464140489%_ - (lambda (_%g140465140486%_) + (lambda (_%self141748%_ _%stx141749%_) + (let* ((_%g141751141776%_ + (lambda (_%g141752141773%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140465140486%_)))) - (_%g140463140679%_ - (lambda (_%g140465140492%_) + _%g141752141773%_)))) + (_%g141750141966%_ + (lambda (_%g141752141779%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140465140492%_)) - (let ((_%e140470140494%_ + (gx#stx-pair? _%g141752141779%_)) + (let ((_%e141757141781%_ (let () (declare (not safe)) - (gx#stx-e _%g140465140492%_)))) - (let ((_%hd140471140497%_ + (gx#stx-e _%g141752141779%_)))) + (let ((_%hd141758141784%_ (let () (declare (not safe)) - (##car _%e140470140494%_))) - (_%tl140472140499%_ + (##car _%e141757141781%_))) + (_%tl141759141786%_ (let () (declare (not safe)) - (##cdr _%e140470140494%_)))) + (##cdr _%e141757141781%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140472140499%_)) - (let ((_%e140473140502%_ + (gx#stx-pair? _%tl141759141786%_)) + (let ((_%e141760141789%_ (let () (declare (not safe)) - (gx#stx-e _%tl140472140499%_)))) - (let ((_%hd140474140505%_ + (gx#stx-e _%tl141759141786%_)))) + (let ((_%hd141761141792%_ (let () (declare (not safe)) - (##car _%e140473140502%_))) - (_%tl140475140507%_ + (##car _%e141760141789%_))) + (_%tl141762141794%_ (let () (declare (not safe)) - (##cdr _%e140473140502%_)))) + (##cdr _%e141760141789%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140475140507%_)) - (let ((_%e140476140510%_ + (gx#stx-pair? _%tl141762141794%_)) + (let ((_%e141763141797%_ (let () (declare (not safe)) - (gx#stx-e _%tl140475140507%_)))) - (let ((_%hd140477140513%_ + (gx#stx-e _%tl141762141794%_)))) + (let ((_%hd141764141800%_ (let () (declare (not safe)) - (##car _%e140476140510%_))) - (_%tl140478140515%_ + (##car _%e141763141797%_))) + (_%tl141765141802%_ (let () (declare (not safe)) - (##cdr _%e140476140510%_)))) + (##cdr _%e141763141797%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140478140515%_)) - (let ((_%e140479140518%_ + _%tl141765141802%_)) + (let ((_%e141766141805%_ (let () (declare (not safe)) (gx#stx-e - _%tl140478140515%_)))) - (let ((_%hd140480140521%_ + _%tl141765141802%_)))) + (let ((_%hd141767141808%_ (let () (declare (not safe)) - (##car _%e140479140518%_))) - (_%tl140481140523%_ + (##car _%e141766141805%_))) + (_%tl141768141810%_ (let () (declare (not safe)) - (##cdr _%e140479140518%_)))) + (##cdr _%e141766141805%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140481140523%_)) - (let ((_%e140482140526%_ + _%tl141768141810%_)) + (let ((_%e141769141813%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl140481140523%_)))) - (let ((_%hd140483140529%_ - (let () (declare (not safe)) (##car _%e140482140526%_))) - (_%tl140484140531%_ + (gx#stx-e _%tl141768141810%_)))) + (let ((_%hd141770141816%_ + (let () (declare (not safe)) (##car _%e141769141813%_))) + (_%tl141771141818%_ (let () (declare (not safe)) - (##cdr _%e140482140526%_)))) + (##cdr _%e141769141813%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140484140531%_)) - ((lambda (_%L140534%_ - _%L140535%_ - _%L140536%_ - _%L140537%_) + (gx#stx-null? _%tl141771141818%_)) + ((lambda (_%L141821%_ + _%L141822%_ + _%L141823%_ + _%L141824%_) (if (gxc#current-compile-decls-unsafe?) (cons '##unchecked-structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140461%_ - _%L140535%_)) + _%self141748%_ + _%L141822%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140461%_ - _%L140534%_)) + _%self141748%_ + _%L141821%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140461%_ - _%L140536%_)) + _%self141748%_ + _%L141823%_)) (cons ''#f (cons ''#f '())))))) - (let _%lp140558%_ ((_%rest140561%_ - (cons _%L140536%_ - (cons _%L140534%_ - (cons _%L140535%_ + (let _%lp141845%_ ((_%rest141848%_ + (cons _%L141823%_ + (cons _%L141821%_ + (cons _%L141822%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind140563%_ '()) - (_%args140564%_ '())) - (let* ((_%rest140565140573%_ _%rest140561%_) - (_%else140567140581%_ + (_%bind141850%_ '()) + (_%args141851%_ '())) + (let* ((_%rest141852141860%_ _%rest141848%_) + (_%else141854141868%_ (lambda () (cons 'let - (cons _%bind140563%_ + (cons _%bind141850%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-set! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp148993 (cons ''#f (cons ''#f '())))) + (let ((__tmp150280 (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp148993 _%args140564%_))) + (__foldr1 cons __tmp150280 _%args141851%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K140569140667%_ - (lambda (_%rest140584%_ _%e140585%_) - (let* ((_%__stx148674148675%_ - _%e140585%_) - (_%g140590140608%_ + (_%K141856141954%_ + (lambda (_%rest141871%_ _%e141872%_) + (let* ((_%__stx149961149962%_ + _%e141872%_) + (_%g141877141895%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148674148675%_))))) - (let ((_%__kont148676148677%_ + _%__stx149961149962%_))))) + (let ((_%__kont149963149964%_ (lambda () - (_%lp140558%_ - _%rest140584%_ - _%bind140563%_ + (_%lp141845%_ + _%rest141871%_ + _%bind141850%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140585%_)) - _%args140564%_)))) - (_%__kont148678148679%_ + _%e141872%_)) + _%args141851%_)))) + (_%__kont149965149966%_ (lambda () - (_%lp140558%_ - _%rest140584%_ - _%bind140563%_ + (_%lp141845%_ + _%rest141871%_ + _%bind141850%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140585%_)) - _%args140564%_)))) - (_%__kont148680148681%_ + _%e141872%_)) + _%args141851%_)))) + (_%__kont149967149968%_ (lambda () - (let ((_%tmp140615%_ - (let ((__tmp148994 + (let ((_%tmp141902%_ + (let ((__tmp150281 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp148994)))) - (_%lp140558%_ - _%rest140584%_ - (cons (cons _%tmp140615%_ + (make-symbol__0 __tmp150281)))) + (_%lp141845%_ + _%rest141871%_ + (cons (cons _%tmp141902%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e140585%_)) + (gxc#compile-e__0 _%e141872%_)) '())) - _%bind140563%_) - (cons _%tmp140615%_ _%args140564%_)))))) + _%bind141850%_) + (cons _%tmp141902%_ _%args141851%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148674148675%_)) - (let ((_%e140592140646%_ + _%__stx149961149962%_)) + (let ((_%e141879141933%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148674148675%_)))) - (let ((_%tl140594140651%_ + _%__stx149961149962%_)))) + (let ((_%tl141881141938%_ (let () (declare (not safe)) - (##cdr _%e140592140646%_))) - (_%hd140593140649%_ + (##cdr _%e141879141933%_))) + (_%hd141880141936%_ (let () (declare (not safe)) - (##car _%e140592140646%_)))) + (##car _%e141879141933%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd140593140649%_)) + _%hd141880141936%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd140593140649%_)) + (gx#stx-eq? '%#ref _%hd141880141936%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140594140651%_)) - (let ((_%e140595140654%_ + (gx#stx-pair? _%tl141881141938%_)) + (let ((_%e141882141941%_ (let () (declare (not safe)) - (gx#stx-e _%tl140594140651%_)))) - (let ((_%tl140597140659%_ + (gx#stx-e _%tl141881141938%_)))) + (let ((_%tl141884141946%_ (let () (declare (not safe)) - (##cdr _%e140595140654%_))) - (_%hd140596140657%_ + (##cdr _%e141882141941%_))) + (_%hd141883141944%_ (let () (declare (not safe)) - (##car _%e140595140654%_)))) + (##car _%e141882141941%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140597140659%_)) - (_%__kont148676148677%_) - (_%__kont148680148681%_)))) - (_%__kont148680148681%_)) + (gx#stx-null? _%tl141884141946%_)) + (_%__kont149963149964%_) + (_%__kont149967149968%_)))) + (_%__kont149967149968%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd140593140649%_)) + (gx#stx-eq? '%#quote _%hd141880141936%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140594140651%_)) - (let ((_%e140601140631%_ + (gx#stx-pair? _%tl141881141938%_)) + (let ((_%e141888141918%_ (let () (declare (not safe)) - (gx#stx-e _%tl140594140651%_)))) - (let ((_%tl140603140636%_ + (gx#stx-e _%tl141881141938%_)))) + (let ((_%tl141890141923%_ (let () (declare (not safe)) - (##cdr _%e140601140631%_))) - (_%hd140602140634%_ + (##cdr _%e141888141918%_))) + (_%hd141889141921%_ (let () (declare (not safe)) - (##car _%e140601140631%_)))) + (##car _%e141888141918%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140603140636%_)) - (_%__kont148678148679%_) - (_%__kont148680148681%_)))) - (_%__kont148680148681%_)) - (_%__kont148680148681%_))) - (_%__kont148680148681%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148680148681%_))))))) - (if (pair? _%rest140565140573%_) - (let ((_%hd140570140670%_ + (gx#stx-null? _%tl141890141923%_)) + (_%__kont149965149966%_) + (_%__kont149967149968%_)))) + (_%__kont149967149968%_)) + (_%__kont149967149968%_))) + (_%__kont149967149968%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149967149968%_))))))) + (if (pair? _%rest141852141860%_) + (let ((_%hd141857141957%_ (let () (declare (not safe)) - (##car _%rest140565140573%_))) - (_%tl140571140672%_ + (##car _%rest141852141860%_))) + (_%tl141858141959%_ (let () (declare (not safe)) - (##cdr _%rest140565140573%_)))) - (let* ((_%e140675%_ _%hd140570140670%_) - (_%rest140677%_ - _%tl140571140672%_)) - (_%K140569140667%_ - _%rest140677%_ - _%e140675%_))) - (_%else140567140581%_)))))) - _%hd140483140529%_ - _%hd140480140521%_ - _%hd140477140513%_ - _%hd140474140505%_) - (_%g140464140489%_ _%g140465140492%_)))) - (_%g140464140489%_ _%g140465140492%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140464140489%_ - _%g140465140492%_)))) - (_%g140464140489%_ _%g140465140492%_)))) - (_%g140464140489%_ _%g140465140492%_)))) - (_%g140464140489%_ _%g140465140492%_))))) - (_%g140463140679%_ _%stx140462%_)))) + (##cdr _%rest141852141860%_)))) + (let* ((_%e141962%_ _%hd141857141957%_) + (_%rest141964%_ + _%tl141858141959%_)) + (_%K141856141954%_ + _%rest141964%_ + _%e141962%_))) + (_%else141854141868%_)))))) + _%hd141770141816%_ + _%hd141767141808%_ + _%hd141764141800%_ + _%hd141761141792%_) + (_%g141751141776%_ _%g141752141779%_)))) + (_%g141751141776%_ _%g141752141779%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141751141776%_ + _%g141752141779%_)))) + (_%g141751141776%_ _%g141752141779%_)))) + (_%g141751141776%_ _%g141752141779%_)))) + (_%g141751141776%_ _%g141752141779%_))))) + (_%g141750141966%_ _%stx141749%_)))) (define gxc#generate-runtime-loader-import% - (lambda (_%self140300%_ _%stx140301%_) - (letrec ((_%import-set-template140303%_ - (lambda (_%in140406%_ _%phi140407%_) - (let ((_%iphi140409%_ - (fx+ _%phi140407%_ + (lambda (_%self141587%_ _%stx141588%_) + (letrec ((_%import-set-template141590%_ + (lambda (_%in141693%_ _%phi141694%_) + (let ((_%iphi141696%_ + (fx+ _%phi141694%_ (##direct-structure-ref - _%in140406%_ + _%in141693%_ '2 gx#import-set::t '#f))) - (_%imports140410%_ + (_%imports141697%_ (##structure-ref (##direct-structure-ref - _%in140406%_ + _%in141693%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp140412%_ ((_%rest140414%_ _%imports140410%_) - (_%r140415%_ '())) - (let* ((_%rest140416140424%_ _%rest140414%_) - (_%else140418140432%_ (lambda () _%r140415%_)) - (_%K140420140449%_ - (lambda (_%rest140435%_ _%in140436%_) + (let _%lp141699%_ ((_%rest141701%_ _%imports141697%_) + (_%r141702%_ '())) + (let* ((_%rest141703141711%_ _%rest141701%_) + (_%else141705141719%_ (lambda () _%r141702%_)) + (_%K141707141736%_ + (lambda (_%rest141722%_ _%in141723%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in140436%_ + _%in141723%_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (##fxzero? _%iphi140409%_)) - (_%lp140412%_ - _%rest140435%_ - (cons _%in140436%_ _%r140415%_)) - (_%lp140412%_ - _%rest140435%_ - _%r140415%_)) + (##fxzero? _%iphi141696%_)) + (_%lp141699%_ + _%rest141722%_ + (cons _%in141723%_ _%r141702%_)) + (_%lp141699%_ + _%rest141722%_ + _%r141702%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140436%_ + _%in141723%_ 'gx#module-import::t)) - (let ((_%iphi140440%_ - (fx+ _%phi140407%_ + (let ((_%iphi141727%_ + (fx+ _%phi141694%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140436%_ + _%in141723%_ '3 '#f '#f))))) (if (let () (declare (not safe)) - (##fxzero? _%iphi140440%_)) - (_%lp140412%_ - _%rest140435%_ + (##fxzero? _%iphi141727%_)) + (_%lp141699%_ + _%rest141722%_ (cons (##direct-structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%in140436%_ + _%in141723%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%r140415%_)) - (_%lp140412%_ - _%rest140435%_ - _%r140415%_))) + _%r141702%_)) + (_%lp141699%_ + _%rest141722%_ + _%r141702%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140436%_ + _%in141723%_ 'gx#import-set::t)) - (let ((_%xphi140443%_ - (fx+ _%iphi140409%_ + (let ((_%xphi141730%_ + (fx+ _%iphi141696%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140436%_ + _%in141723%_ '2 '#f '#f))))) (if (let () (declare (not safe)) (##fxzero? - _%xphi140443%_)) - (_%lp140412%_ - _%rest140435%_ + _%xphi141730%_)) + (_%lp141699%_ + _%rest141722%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%in140436%_ + _%in141723%_ '1 '#f '#f)) - _%r140415%_)) + _%r141702%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi140443%_)) - (_%lp140412%_ - _%rest140435%_ - (let ((__tmp148995 - (_%import-set-template140303%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in140436%_ - _%iphi140409%_))) + _%xphi141730%_)) + (_%lp141699%_ + _%rest141722%_ + (let ((__tmp150282 + (_%import-set-template141590%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%in141723%_ + _%iphi141696%_))) (declare (not safe)) - (__foldl1 cons _%r140415%_ __tmp148995))) - (_%lp140412%_ _%rest140435%_ _%r140415%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp140412%_ - _%rest140435%_ - _%r140415%_))))))) - (if (pair? _%rest140416140424%_) - (let ((_%hd140421140452%_ + (__foldl1 cons _%r141702%_ __tmp150282))) + (_%lp141699%_ _%rest141722%_ _%r141702%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp141699%_ + _%rest141722%_ + _%r141702%_))))))) + (if (pair? _%rest141703141711%_) + (let ((_%hd141708141739%_ (let () (declare (not safe)) - (##car _%rest140416140424%_))) - (_%tl140422140454%_ + (##car _%rest141703141711%_))) + (_%tl141709141741%_ (let () (declare (not safe)) - (##cdr _%rest140416140424%_)))) - (let* ((_%in140457%_ _%hd140421140452%_) - (_%rest140459%_ _%tl140422140454%_)) - (_%K140420140449%_ - _%rest140459%_ - _%in140457%_))) - (_%else140418140432%_)))))))) - (let* ((_%g140305140315%_ - (lambda (_%g140306140312%_) + (##cdr _%rest141703141711%_)))) + (let* ((_%in141744%_ _%hd141708141739%_) + (_%rest141746%_ _%tl141709141741%_)) + (_%K141707141736%_ + _%rest141746%_ + _%in141744%_))) + (_%else141705141719%_)))))))) + (let* ((_%g141592141602%_ + (lambda (_%g141593141599%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140306140312%_)))) - (_%g140304140403%_ - (lambda (_%g140306140318%_) + _%g141593141599%_)))) + (_%g141591141690%_ + (lambda (_%g141593141605%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140306140318%_)) - (let ((_%e140308140320%_ + (gx#stx-pair? _%g141593141605%_)) + (let ((_%e141595141607%_ (let () (declare (not safe)) - (gx#stx-e _%g140306140318%_)))) - (let ((_%hd140309140323%_ + (gx#stx-e _%g141593141605%_)))) + (let ((_%hd141596141610%_ (let () (declare (not safe)) - (##car _%e140308140320%_))) - (_%tl140310140325%_ + (##car _%e141595141607%_))) + (_%tl141597141612%_ (let () (declare (not safe)) - (##cdr _%e140308140320%_)))) - ((lambda (_%L140328%_) - (let ((_%ht140339%_ + (##cdr _%e141595141607%_)))) + ((lambda (_%L141615%_) + (let ((_%ht141626%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let _%lp140341%_ ((_%rest140343%_ - _%L140328%_) - (_%loads140344%_ '())) - (letrec ((_%K140346%_ - (lambda (_%ctx140396%_ - _%rest140397%_) - (let ((_%id140399%_ + (let _%lp141628%_ ((_%rest141630%_ + _%L141615%_) + (_%loads141631%_ '())) + (letrec ((_%K141633%_ + (lambda (_%ctx141683%_ + _%rest141684%_) + (let ((_%id141686%_ (##structure-ref - _%ctx140396%_ + _%ctx141683%_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (__hash-get - _%ht140339%_ - _%id140399%_)) - (_%lp140341%_ - _%rest140397%_ - _%loads140344%_) - (let ((_%rt140401%_ + _%ht141626%_ + _%id141686%_)) + (_%lp141628%_ + _%rest141684%_ + _%loads141631%_) + (let ((_%rt141688%_ (let () (declare (not safe)) (gxc#module-id->path-string - _%id140399%_)))) + _%id141686%_)))) (let () (declare (not safe)) (__hash-put! - _%ht140339%_ - _%id140399%_ - _%rt140401%_)) - (_%lp140341%_ - _%rest140397%_ - (cons _%rt140401%_ - _%loads140344%_)))))))) - (let* ((_%rest140347140355%_ - _%rest140343%_) - (_%else140349140367%_ + _%ht141626%_ + _%id141686%_ + _%rt141688%_)) + (_%lp141628%_ + _%rest141684%_ + (cons _%rt141688%_ + _%loads141631%_)))))))) + (let* ((_%rest141634141642%_ + _%rest141630%_) + (_%else141636141654%_ (lambda () (cons 'begin - (let ((__tmp148997 - (lambda (_%g140362140364%_) + (let ((__tmp150284 + (lambda (_%g141649141651%_) (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g140362140364%_))) - (__tmp148996 (reverse _%loads140344%_))) + _%g141649141651%_))) + (__tmp150283 (reverse _%loads141631%_))) (declare (not safe)) - (##map __tmp148997 __tmp148996))))) + (##map __tmp150284 __tmp150283))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K140351140384%_ - (lambda (_%rest140370%_ - _%in140371%_) + (_%K141638141671%_ + (lambda (_%rest141657%_ + _%in141658%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in140371%_ + _%in141658%_ 'gx#module-context::t)) - (_%K140346%_ - _%in140371%_ - _%rest140370%_) + (_%K141633%_ + _%in141658%_ + _%rest141657%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140371%_ + _%in141658%_ 'gx#module-import::t)) (if (fxzero? (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%in140371%_ + _%in141658%_ '3 '#f '#f))) - (_%K140346%_ + (_%K141633%_ (##direct-structure-ref (let () (declare (not safe)) - (##unchecked-structure-ref _%in140371%_ '1 '#f '#f)) + (##unchecked-structure-ref _%in141658%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%rest140370%_) - (_%lp140341%_ _%rest140370%_ _%loads140344%_)) + _%rest141657%_) + (_%lp141628%_ _%rest141657%_ _%loads141631%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140371%_ + _%in141658%_ 'gx#import-set::t)) - (let ((_%phi140376%_ + (let ((_%phi141663%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140371%_ + _%in141658%_ '2 '#f '#f)))) - (if (fxzero? _%phi140376%_) - (_%K140346%_ + (if (fxzero? _%phi141663%_) + (_%K141633%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140371%_ + _%in141658%_ '1 '#f '#f)) - _%rest140370%_) - (if (fxpositive? _%phi140376%_) - (let ((_%deps140380%_ - (_%import-set-template140303%_ - _%in140371%_ + _%rest141657%_) + (if (fxpositive? _%phi141663%_) + (let ((_%deps141667%_ + (_%import-set-template141590%_ + _%in141658%_ '0))) - (_%lp140341%_ + (_%lp141628%_ (let () (declare (not safe)) (__foldl1 cons - _%rest140370%_ - _%deps140380%_)) - _%loads140344%_)) - (_%lp140341%_ _%rest140370%_ _%loads140344%_)))) + _%rest141657%_ + _%deps141667%_)) + _%loads141631%_)) + (_%lp141628%_ _%rest141657%_ _%loads141631%_)))) (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected import" - _%stx140301%_ - _%in140371%_)))))))) + _%stx141588%_ + _%in141658%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest140347140355%_) - (let ((_%hd140352140387%_ + (if (pair? _%rest141634141642%_) + (let ((_%hd141639141674%_ (let () (declare (not safe)) - (##car _%rest140347140355%_))) - (_%tl140353140389%_ + (##car _%rest141634141642%_))) + (_%tl141640141676%_ (let () (declare (not safe)) - (##cdr _%rest140347140355%_)))) - (let* ((_%in140392%_ - _%hd140352140387%_) - (_%rest140394%_ - _%tl140353140389%_)) - (_%K140351140384%_ - _%rest140394%_ - _%in140392%_))) - (_%else140349140367%_))))))) - _%tl140310140325%_))) - (_%g140305140315%_ _%g140306140318%_))))) - (_%g140304140403%_ _%stx140301%_))))) + (##cdr _%rest141634141642%_)))) + (let* ((_%in141679%_ + _%hd141639141674%_) + (_%rest141681%_ + _%tl141640141676%_)) + (_%K141638141671%_ + _%rest141681%_ + _%in141679%_))) + (_%else141636141654%_))))))) + _%tl141597141612%_))) + (_%g141592141602%_ _%g141593141605%_))))) + (_%g141591141690%_ _%stx141588%_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_%self140113%_ _%stx140114%_) - (letrec ((_%add-lift!140116%_ - (lambda (_%expr140298%_) + (lambda (_%self141400%_ _%stx141401%_) + (letrec ((_%add-lift!141403%_ + (lambda (_%expr141585%_) (set-box! (let () (declare (not safe)) (gxc#current-compile-lift)) - (cons _%expr140298%_ + (cons _%expr141585%_ (unbox (let () (declare (not safe)) (gxc#current-compile-lift))))))) - (_%generate-syntax-quote140117%_ - (lambda (_%id140295%_ _%marks140296%_) + (_%generate-syntax-quote141404%_ + (lambda (_%id141582%_ _%marks141583%_) (cons '##structure (cons 'gx#syntax-quote::t - (cons (cons 'quote (cons _%id140295%_ '())) + (cons (cons 'quote (cons _%id141582%_ '())) (cons '#f (cons '(gx#current-expander-context) - (cons _%marks140296%_ + (cons _%marks141583%_ '())))))))) - (_%generate-simple140118%_ - (lambda (_%stxq140290%_) - (let ((_%gid140292%_ + (_%generate-simple141405%_ + (lambda (_%stxq141577%_) + (let ((_%gid141579%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%qid140293%_ - (gxc#generate-runtime-identifier _%stxq140290%_))) - (_%add-lift!140116%_ + (_%qid141580%_ + (gxc#generate-runtime-identifier _%stxq141577%_))) + (_%add-lift!141403%_ (cons 'define - (cons _%gid140292%_ - (cons (_%generate-syntax-quote140117%_ - _%qid140293%_ + (cons _%gid141579%_ + (cons (_%generate-syntax-quote141404%_ + _%qid141580%_ ''()) '())))) - (let ((__tmp148998 + (let ((__tmp150285 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp148998 _%stxq140290%_ _%gid140292%_)) - _%gid140292%_))) - (_%generate-serialized140119%_ - (lambda (_%stxq140280%_ _%marks140281%_) - (let* ((_%mark-refs140283%_ - (map _%generate-mark140120%_ _%marks140281%_)) - (_%gid140285%_ + (hash-put! __tmp150285 _%stxq141577%_ _%gid141579%_)) + _%gid141579%_))) + (_%generate-serialized141406%_ + (lambda (_%stxq141567%_ _%marks141568%_) + (let* ((_%mark-refs141570%_ + (map _%generate-mark141407%_ _%marks141568%_)) + (_%gid141572%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%qid140287%_ - (gxc#generate-runtime-identifier _%stxq140280%_))) - (_%add-lift!140116%_ + (_%qid141574%_ + (gxc#generate-runtime-identifier _%stxq141567%_))) + (_%add-lift!141403%_ (cons 'define - (cons _%gid140285%_ - (cons (_%generate-syntax-quote140117%_ - _%qid140287%_ - (cons 'list _%mark-refs140283%_)) + (cons _%gid141572%_ + (cons (_%generate-syntax-quote141404%_ + _%qid141574%_ + (cons 'list _%mark-refs141570%_)) '())))) - (let ((__tmp148999 + (let ((__tmp150286 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp148999 _%stxq140280%_ _%gid140285%_)) - _%gid140285%_))) - (_%generate-mark140120%_ - (lambda (_%mark140265%_) - (let ((_%$e140267%_ - (let ((__tmp149000 + (hash-put! __tmp150286 _%stxq141567%_ _%gid141572%_)) + _%gid141572%_))) + (_%generate-mark141407%_ + (lambda (_%mark141552%_) + (let ((_%$e141554%_ + (let ((__tmp150287 (let () (declare (not safe)) (gxc#current-compile-marks)))) (declare (not safe)) - (hash-get __tmp149000 _%mark140265%_)))) - (if _%$e140267%_ - _%$e140267%_ - (let* ((_%gid140271%_ + (hash-get __tmp150287 _%mark141552%_)))) + (if _%$e141554%_ + _%$e141554%_ + (let* ((_%gid141558%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%repr140273%_ - (_%serialize-mark140121%_ _%mark140265%_)) - (_%ctx140275%_ - (let ((__tmp149001 + (_%repr141560%_ + (_%serialize-mark141408%_ _%mark141552%_)) + (_%ctx141562%_ + (let ((__tmp150288 (##structure-ref - _%mark140265%_ + _%mark141552%_ '2 gx#expander-mark::t '#f))) (declare (not safe)) - (gx#core-context-top__1 __tmp149001))) - (_%ctx-ref140277%_ - (if (eq? _%ctx140275%_ + (gx#core-context-top__1 __tmp150288))) + (_%ctx-ref141564%_ + (if (eq? _%ctx141562%_ (let () (declare (not safe)) (gx#current-expander-context))) '(gx#current-expander-context) (cons 'gx#import-module (cons (cons 'quote - (cons (_%context-ref140122%_ - _%ctx140275%_) + (cons (_%context-ref141409%_ + _%ctx141562%_) '())) '()))))) - (let ((__tmp149002 + (let ((__tmp150289 (let () (declare (not safe)) (gxc#current-compile-marks)))) (declare (not safe)) (hash-put! - __tmp149002 - _%mark140265%_ - _%gid140271%_)) - (_%add-lift!140116%_ + __tmp150289 + _%mark141552%_ + _%gid141558%_)) + (_%add-lift!141403%_ (cons 'define - (cons _%gid140271%_ + (cons _%gid141558%_ (cons (cons 'gx#core-deserialize-mark (cons (cons 'quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%repr140273%_ '())) - (cons _%ctx-ref140277%_ '()))) + (cons _%repr141560%_ '())) + (cons _%ctx-ref141564%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%gid140271%_))))) - (_%serialize-mark140121%_ - (lambda (_%mark140212%_) - (letrec ((_%quote-e140214%_ - (lambda (_%sym140263%_) + _%gid141558%_))))) + (_%serialize-mark141408%_ + (lambda (_%mark141499%_) + (letrec ((_%quote-e141501%_ + (lambda (_%sym141550%_) (if (let () (declare (not safe)) - (interned-symbol? _%sym140263%_)) - _%sym140263%_ + (interned-symbol? _%sym141550%_)) + _%sym141550%_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%sym140263%_)))))) - (let* ((_%mark140215140224%_ _%mark140212%_) - (_%E140217140228%_ + _%sym141550%_)))))) + (let* ((_%mark141502141511%_ _%mark141499%_) + (_%E141504141515%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mark140215140224%_ + _%mark141502141511%_ '((expander-mark subst ctx phi trace)))) '#!void)) - (_%K140218140240%_ - (lambda (_%trace140231%_ - _%phi140232%_ - _%ctx140233%_ - _%subst140234%_) - (let ((_%subs140236%_ - (if _%subst140234%_ + (_%K141505141527%_ + (lambda (_%trace141518%_ + _%phi141519%_ + _%ctx141520%_ + _%subst141521%_) + (let ((_%subs141523%_ + (if _%subst141521%_ (let () (declare (not safe)) - (hash->list _%subst140234%_)) + (hash->list _%subst141521%_)) '()))) - (cons _%phi140232%_ - (map (lambda (_%pair140238%_) - (cons (_%quote-e140214%_ - (car _%pair140238%_)) - (_%quote-e140214%_ - (cdr _%pair140238%_)))) - _%subs140236%_)))))) + (cons _%phi141519%_ + (map (lambda (_%pair141525%_) + (cons (_%quote-e141501%_ + (car _%pair141525%_)) + (_%quote-e141501%_ + (cdr _%pair141525%_)))) + _%subs141523%_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%mark140215140224%_ + _%mark141502141511%_ 'gx#expander-mark::t)) - (let* ((_%e140219140243%_ + (let* ((_%e141506141530%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140215140224%_ + _%mark141502141511%_ '1 '#f '#f))) - (_%subst140246%_ _%e140219140243%_) - (_%e140220140248%_ + (_%subst141533%_ _%e141506141530%_) + (_%e141507141535%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140215140224%_ + _%mark141502141511%_ '2 '#f '#f))) - (_%ctx140251%_ _%e140220140248%_) - (_%e140221140253%_ + (_%ctx141538%_ _%e141507141535%_) + (_%e141508141540%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140215140224%_ + _%mark141502141511%_ '3 '#f '#f))) - (_%phi140256%_ _%e140221140253%_) - (_%e140222140258%_ + (_%phi141543%_ _%e141508141540%_) + (_%e141509141545%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140215140224%_ + _%mark141502141511%_ '4 '#f '#f))) - (_%trace140261%_ _%e140222140258%_)) - (_%K140218140240%_ - _%trace140261%_ - _%phi140256%_ - _%ctx140251%_ - _%subst140246%_)) - (_%E140217140228%_)))))) - (_%context-ref140122%_ - (lambda (_%ctx140199%_) - (if (let ((__tmp149003 + (_%trace141548%_ _%e141509141545%_)) + (_%K141505141527%_ + _%trace141548%_ + _%phi141543%_ + _%ctx141538%_ + _%subst141533%_)) + (_%E141504141515%_)))))) + (_%context-ref141409%_ + (lambda (_%ctx141486%_) + (if (let ((__tmp150290 (##structure-ref - _%ctx140199%_ + _%ctx141486%_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp149003 + __tmp150290 'gx#module-context::t)) - (let ((_%ctx-ref140201%_ - (_%context-ref-nested140124%_ _%ctx140199%_)) - (_%ctx-origin140202%_ - (_%context-ref-origin140123%_ _%ctx140199%_)) - (_%origin140203%_ - (_%context-ref-origin140123%_ + (let ((_%ctx-ref141488%_ + (_%context-ref-nested141411%_ _%ctx141486%_)) + (_%ctx-origin141489%_ + (_%context-ref-origin141410%_ _%ctx141486%_)) + (_%origin141490%_ + (_%context-ref-origin141410%_ (let () (declare (not safe)) (gx#current-expander-context))))) - (if (eq? _%origin140203%_ _%ctx-origin140202%_) - (let ((_%ref140205%_ - (_%context-ref-nested140124%_ + (if (eq? _%origin141490%_ _%ctx-origin141489%_) + (let ((_%ref141492%_ + (_%context-ref-nested141411%_ (let () (declare (not safe)) (gx#current-expander-context))))) - (let _%lp140207%_ ((_%ref140209%_ - (cdr _%ref140205%_)) - (_%ctx-ref140210%_ - (cdr _%ctx-ref140201%_))) - (if (and (pair? _%ref140209%_) + (let _%lp141494%_ ((_%ref141496%_ + (cdr _%ref141492%_)) + (_%ctx-ref141497%_ + (cdr _%ctx-ref141488%_))) + (if (and (pair? _%ref141496%_) (eq? (let () (declare (not safe)) - (##car _%ref140209%_)) - (car _%ctx-ref140210%_))) - (_%lp140207%_ - (cdr _%ref140209%_) - (cdr _%ctx-ref140210%_)) - (cons '#f _%ctx-ref140210%_)))) - _%ctx-ref140201%_)) - (let ((__tmp149004 + (##car _%ref141496%_)) + (car _%ctx-ref141497%_))) + (_%lp141494%_ + (cdr _%ref141496%_) + (cdr _%ctx-ref141497%_)) + (cons '#f _%ctx-ref141497%_)))) + _%ctx-ref141488%_)) + (let ((__tmp150291 (##structure-ref - _%ctx140199%_ + _%ctx141486%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp149004))))) - (_%context-ref-origin140123%_ - (lambda (_%ctx140191%_) - (let _%lp140193%_ ((_%ctx140195%_ _%ctx140191%_)) - (let ((_%super140197%_ + (make-symbol__1 '":" __tmp150291))))) + (_%context-ref-origin141410%_ + (lambda (_%ctx141478%_) + (let _%lp141480%_ ((_%ctx141482%_ _%ctx141478%_)) + (let ((_%super141484%_ (##structure-ref - _%ctx140195%_ + _%ctx141482%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super140197%_ + _%super141484%_ 'gx#module-context::t)) - (_%lp140193%_ _%super140197%_) - _%ctx140195%_))))) - (_%context-ref-nested140124%_ - (lambda (_%ctx140182%_) - (let _%lp140184%_ ((_%ctx140186%_ _%ctx140182%_) - (_%r140187%_ '())) - (let ((_%super140189%_ + (_%lp141480%_ _%super141484%_) + _%ctx141482%_))))) + (_%context-ref-nested141411%_ + (lambda (_%ctx141469%_) + (let _%lp141471%_ ((_%ctx141473%_ _%ctx141469%_) + (_%r141474%_ '())) + (let ((_%super141476%_ (##structure-ref - _%ctx140186%_ + _%ctx141473%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super140189%_ + _%super141476%_ 'gx#module-context::t)) - (_%lp140184%_ - _%super140189%_ + (_%lp141471%_ + _%super141476%_ (cons (car (##structure-ref - _%ctx140186%_ + _%ctx141473%_ '7 gx#module-context::t '#f)) - _%r140187%_)) - (cons (let ((__tmp149005 + _%r141474%_)) + (cons (let ((__tmp150292 (##structure-ref - _%ctx140186%_ + _%ctx141473%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp149005)) - _%r140187%_))))))) - (let* ((_%g140126140139%_ - (lambda (_%g140127140136%_) + (make-symbol__1 '":" __tmp150292)) + _%r141474%_))))))) + (let* ((_%g141413141426%_ + (lambda (_%g141414141423%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140127140136%_)))) - (_%g140125140179%_ - (lambda (_%g140127140142%_) + _%g141414141423%_)))) + (_%g141412141466%_ + (lambda (_%g141414141429%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140127140142%_)) - (let ((_%e140129140144%_ + (gx#stx-pair? _%g141414141429%_)) + (let ((_%e141416141431%_ (let () (declare (not safe)) - (gx#stx-e _%g140127140142%_)))) - (let ((_%hd140130140147%_ + (gx#stx-e _%g141414141429%_)))) + (let ((_%hd141417141434%_ (let () (declare (not safe)) - (##car _%e140129140144%_))) - (_%tl140131140149%_ + (##car _%e141416141431%_))) + (_%tl141418141436%_ (let () (declare (not safe)) - (##cdr _%e140129140144%_)))) + (##cdr _%e141416141431%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140131140149%_)) - (let ((_%e140132140152%_ + (gx#stx-pair? _%tl141418141436%_)) + (let ((_%e141419141439%_ (let () (declare (not safe)) - (gx#stx-e _%tl140131140149%_)))) - (let ((_%hd140133140155%_ + (gx#stx-e _%tl141418141436%_)))) + (let ((_%hd141420141442%_ (let () (declare (not safe)) - (##car _%e140132140152%_))) - (_%tl140134140157%_ + (##car _%e141419141439%_))) + (_%tl141421141444%_ (let () (declare (not safe)) - (##cdr _%e140132140152%_)))) + (##cdr _%e141419141439%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140134140157%_)) - ((lambda (_%L140160%_) + (gx#stx-null? _%tl141421141444%_)) + ((lambda (_%L141447%_) (if (let () (declare (not safe)) - (gx#identifier? _%L140160%_)) - (let ((_%$e140173%_ - (let ((__tmp149006 + (gx#identifier? _%L141447%_)) + (let ((_%$e141460%_ + (let ((__tmp150293 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-get __tmp149006 _%L140160%_)))) + (hash-get __tmp150293 _%L141447%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e140173%_ - _%$e140173%_ - (let ((_%marks140177%_ + (if _%$e141460%_ + _%$e141460%_ + (let ((_%marks141464%_ (##direct-structure-ref - _%L140160%_ + _%L141447%_ '4 gx#syntax-quote::t '#f))) - (if (null? _%marks140177%_) - (_%generate-simple140118%_ - _%L140160%_) - (_%generate-serialized140119%_ - _%L140160%_ - _%marks140177%_))))) + (if (null? _%marks141464%_) + (_%generate-simple141405%_ + _%L141447%_) + (_%generate-serialized141406%_ + _%L141447%_ + _%marks141464%_))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _%L140160%_)))) - _%hd140133140155%_) - (_%g140126140139%_ - _%g140127140142%_)))) - (_%g140126140139%_ _%g140127140142%_)))) - (_%g140126140139%_ _%g140127140142%_))))) - (_%g140125140179%_ _%stx140114%_))))) + _%L141447%_)))) + _%hd141420141442%_) + (_%g141413141426%_ + _%g141414141429%_)))) + (_%g141413141426%_ _%g141414141429%_)))) + (_%g141413141426%_ _%g141414141429%_))))) + (_%g141412141466%_ _%stx141401%_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_%self140045%_ _%stx140046%_) - (let* ((_%g140048140065%_ - (lambda (_%g140049140062%_) + (lambda (_%self141332%_ _%stx141333%_) + (let* ((_%g141335141352%_ + (lambda (_%g141336141349%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140049140062%_)))) - (_%g140047140110%_ - (lambda (_%g140049140068%_) + _%g141336141349%_)))) + (_%g141334141397%_ + (lambda (_%g141336141355%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140049140068%_)) - (let ((_%e140052140070%_ + (gx#stx-pair? _%g141336141355%_)) + (let ((_%e141339141357%_ (let () (declare (not safe)) - (gx#stx-e _%g140049140068%_)))) - (let ((_%hd140053140073%_ + (gx#stx-e _%g141336141355%_)))) + (let ((_%hd141340141360%_ (let () (declare (not safe)) - (##car _%e140052140070%_))) - (_%tl140054140075%_ + (##car _%e141339141357%_))) + (_%tl141341141362%_ (let () (declare (not safe)) - (##cdr _%e140052140070%_)))) + (##cdr _%e141339141357%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140054140075%_)) - (let ((_%e140055140078%_ + (gx#stx-pair? _%tl141341141362%_)) + (let ((_%e141342141365%_ (let () (declare (not safe)) - (gx#stx-e _%tl140054140075%_)))) - (let ((_%hd140056140081%_ + (gx#stx-e _%tl141341141362%_)))) + (let ((_%hd141343141368%_ (let () (declare (not safe)) - (##car _%e140055140078%_))) - (_%tl140057140083%_ + (##car _%e141342141365%_))) + (_%tl141344141370%_ (let () (declare (not safe)) - (##cdr _%e140055140078%_)))) + (##cdr _%e141342141365%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140057140083%_)) - (let ((_%e140058140086%_ + (gx#stx-pair? _%tl141344141370%_)) + (let ((_%e141345141373%_ (let () (declare (not safe)) - (gx#stx-e _%tl140057140083%_)))) - (let ((_%hd140059140089%_ + (gx#stx-e _%tl141344141370%_)))) + (let ((_%hd141346141376%_ (let () (declare (not safe)) - (##car _%e140058140086%_))) - (_%tl140060140091%_ + (##car _%e141345141373%_))) + (_%tl141347141378%_ (let () (declare (not safe)) - (##cdr _%e140058140086%_)))) + (##cdr _%e141345141373%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140060140091%_)) - ((lambda (_%L140094%_ - _%L140095%_) + _%tl141347141378%_)) + ((lambda (_%L141381%_ + _%L141382%_) (cons 'define (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L140095%_)) + (gx#stx-e _%L141382%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self140045%_ _%L140094%_)) + (gxc#compile-e__1 _%self141332%_ _%L141381%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd140059140089%_ - _%hd140056140081%_) - (_%g140048140065%_ - _%g140049140068%_)))) - (_%g140048140065%_ _%g140049140068%_)))) - (_%g140048140065%_ _%g140049140068%_)))) - (_%g140048140065%_ _%g140049140068%_))))) - (_%g140047140110%_ _%stx140046%_)))) + _%hd141346141376%_ + _%hd141343141368%_) + (_%g141335141352%_ + _%g141336141355%_)))) + (_%g141335141352%_ _%g141336141355%_)))) + (_%g141335141352%_ _%g141336141355%_)))) + (_%g141335141352%_ _%g141336141355%_))))) + (_%g141334141397%_ _%stx141333%_)))) (define gxc#generate-meta-begin% - (lambda (_%self139994%_ _%stx139995%_) - (let* ((_%g139997140007%_ - (lambda (_%g139998140004%_) + (lambda (_%self141281%_ _%stx141282%_) + (let* ((_%g141284141294%_ + (lambda (_%g141285141291%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139998140004%_)))) - (_%g139996140042%_ - (lambda (_%g139998140010%_) + _%g141285141291%_)))) + (_%g141283141329%_ + (lambda (_%g141285141297%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139998140010%_)) - (let ((_%e140000140012%_ + (gx#stx-pair? _%g141285141297%_)) + (let ((_%e141287141299%_ (let () (declare (not safe)) - (gx#stx-e _%g139998140010%_)))) - (let ((_%hd140001140015%_ + (gx#stx-e _%g141285141297%_)))) + (let ((_%hd141288141302%_ (let () (declare (not safe)) - (##car _%e140000140012%_))) - (_%tl140002140017%_ + (##car _%e141287141299%_))) + (_%tl141289141304%_ (let () (declare (not safe)) - (##cdr _%e140000140012%_)))) - ((lambda (_%L140020%_) - (let* ((_%c-body140034%_ - (map (lambda (_%g140029140031%_) + (##cdr _%e141287141299%_)))) + ((lambda (_%L141307%_) + (let* ((_%c-body141321%_ + (map (lambda (_%g141316141318%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self139994%_ - _%g140029140031%_))) - _%L140020%_)) - (_%c-body140039%_ - (let ((__tmp149007 - (lambda (_%$obj140036%_) - (not (eq? _%$obj140036%_ + _%self141281%_ + _%g141316141318%_))) + _%L141307%_)) + (_%c-body141326%_ + (let ((__tmp150294 + (lambda (_%$obj141323%_) + (not (eq? _%$obj141323%_ '#!void))))) (declare (not safe)) (##filter - __tmp149007 - _%c-body140034%_)))) - (cons '%#begin _%c-body140039%_))) - _%tl140002140017%_))) - (_%g139997140007%_ _%g139998140010%_))))) - (_%g139996140042%_ _%stx139995%_)))) + __tmp150294 + _%c-body141321%_)))) + (cons '%#begin _%c-body141326%_))) + _%tl141289141304%_))) + (_%g141284141294%_ _%g141285141297%_))))) + (_%g141283141329%_ _%stx141282%_)))) (define gxc#generate-meta-begin-syntax% - (lambda (_%self139899%_ _%stx139900%_) - (let* ((_%g139902139912%_ - (lambda (_%g139903139909%_) + (lambda (_%self141186%_ _%stx141187%_) + (let* ((_%g141189141199%_ + (lambda (_%g141190141196%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139903139909%_)))) - (_%g139901139991%_ - (lambda (_%g139903139915%_) + _%g141190141196%_)))) + (_%g141188141278%_ + (lambda (_%g141190141202%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139903139915%_)) - (let ((_%e139905139917%_ + (gx#stx-pair? _%g141190141202%_)) + (let ((_%e141192141204%_ (let () (declare (not safe)) - (gx#stx-e _%g139903139915%_)))) - (let ((_%hd139906139920%_ + (gx#stx-e _%g141190141202%_)))) + (let ((_%hd141193141207%_ (let () (declare (not safe)) - (##car _%e139905139917%_))) - (_%tl139907139922%_ + (##car _%e141192141204%_))) + (_%tl141194141209%_ (let () (declare (not safe)) - (##cdr _%e139905139917%_)))) - ((lambda (_%L139925%_) - (let* ((_%phi139935%_ - (let ((__tmp149008 + (##cdr _%e141192141204%_)))) + ((lambda (_%L141212%_) + (let* ((_%phi141222%_ + (let ((__tmp150295 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp149008 '1))) - (_%block139937%_ + (##fx+ __tmp150295 '1))) + (_%block141224%_ (gxc#meta-state-begin-phi! (let () (declare (not safe)) - (slot-ref__0 _%self139899%_ 'state)) - _%phi139935%_)) - (_%compiled139940%_ - (let ((__tmp149009 + (slot-ref__0 _%self141186%_ 'state)) + _%phi141222%_)) + (_%compiled141227%_ + (let ((__tmp150296 (lambda () (gxc#apply-generate-meta-phi__% '#f (let () (declare (not safe)) (slot-ref__0 - _%self139899%_ + _%self141186%_ 'state)) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L139925%_))))) + _%L141212%_))))) (declare (not safe)) (__call-with-parameters - __tmp149009 + __tmp150296 gx#current-expander-phi - _%phi139935%_))) - (_%g139943139953%_ - (lambda (_%g139944139950%_) + _%phi141222%_))) + (_%g141230141240%_ + (lambda (_%g141231141237%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139944139950%_)))) - (_%g139942139988%_ - (lambda (_%g139944139956%_) + _%g141231141237%_)))) + (_%g141229141275%_ + (lambda (_%g141231141243%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139944139956%_)) - (let ((_%e139946139958%_ + (gx#stx-pair? _%g141231141243%_)) + (let ((_%e141233141245%_ (let () (declare (not safe)) (gx#stx-e - _%g139944139956%_)))) - (let ((_%hd139947139961%_ + _%g141231141243%_)))) + (let ((_%hd141234141248%_ (let () (declare (not safe)) - (##car _%e139946139958%_))) - (_%tl139948139963%_ + (##car _%e141233141245%_))) + (_%tl141235141250%_ (let () (declare (not safe)) - (##cdr _%e139946139958%_)))) + (##cdr _%e141233141245%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd139947139961%_)) + _%hd141234141248%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin - _%hd139947139961%_)) - ((lambda (_%L139966%_) - (let ((_%c-body139983%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (filter (lambda (_%$obj139980%_) - (not (eq? _%$obj139980%_ '#!void))) - _%L139966%_))) - (if _%block139937%_ + _%hd141234141248%_)) + ((lambda (_%L141253%_) + (let ((_%c-body141270%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (filter (lambda (_%$obj141267%_) + (not (eq? _%$obj141267%_ '#!void))) + _%L141253%_))) + (if _%block141224%_ (cons '%#begin-syntax (cons (cons '%#call (cons (cons '%#ref (cons 'load-module '())) (cons (cons '%#quote - (cons _%block139937%_ + (cons _%block141224%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%c-body139983%_)) - (if (null? _%c-body139983%_) + _%c-body141270%_)) + (if (null? _%c-body141270%_) '#!void - (cons '%#begin-syntax _%c-body139983%_))))) - _%tl139948139963%_) - (_%g139943139953%_ _%g139944139956%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g139943139953%_ - _%g139944139956%_)))) - (_%g139943139953%_ - _%g139944139956%_))))) - (_%g139942139988%_ _%compiled139940%_))) - _%tl139907139922%_))) - (_%g139902139912%_ _%g139903139915%_))))) - (_%g139901139991%_ _%stx139900%_)))) + (cons '%#begin-syntax _%c-body141270%_))))) + _%tl141235141250%_) + (_%g141230141240%_ _%g141231141243%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141230141240%_ + _%g141231141243%_)))) + (_%g141230141240%_ + _%g141231141243%_))))) + (_%g141229141275%_ _%compiled141227%_))) + _%tl141194141209%_))) + (_%g141189141199%_ _%g141190141202%_))))) + (_%g141188141278%_ _%stx141187%_)))) (define gxc#generate-meta-module% - (lambda (_%self139830%_ _%stx139831%_) + (lambda (_%self141117%_ _%stx141118%_) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self139830%_ 'state))) - (let* ((_%g139833139847%_ - (lambda (_%g139834139844%_) + (let () (declare (not safe)) (slot-ref__0 _%self141117%_ 'state))) + (let* ((_%g141120141134%_ + (lambda (_%g141121141131%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139834139844%_)))) - (_%g139832139896%_ - (lambda (_%g139834139850%_) + _%g141121141131%_)))) + (_%g141119141183%_ + (lambda (_%g141121141137%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139834139850%_)) - (let ((_%e139837139852%_ + (gx#stx-pair? _%g141121141137%_)) + (let ((_%e141124141139%_ (let () (declare (not safe)) - (gx#stx-e _%g139834139850%_)))) - (let ((_%hd139838139855%_ + (gx#stx-e _%g141121141137%_)))) + (let ((_%hd141125141142%_ (let () (declare (not safe)) - (##car _%e139837139852%_))) - (_%tl139839139857%_ + (##car _%e141124141139%_))) + (_%tl141126141144%_ (let () (declare (not safe)) - (##cdr _%e139837139852%_)))) + (##cdr _%e141124141139%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139839139857%_)) - (let ((_%e139840139860%_ + (gx#stx-pair? _%tl141126141144%_)) + (let ((_%e141127141147%_ (let () (declare (not safe)) - (gx#stx-e _%tl139839139857%_)))) - (let ((_%hd139841139863%_ + (gx#stx-e _%tl141126141144%_)))) + (let ((_%hd141128141150%_ (let () (declare (not safe)) - (##car _%e139840139860%_))) - (_%tl139842139865%_ + (##car _%e141127141147%_))) + (_%tl141129141152%_ (let () (declare (not safe)) - (##cdr _%e139840139860%_)))) - ((lambda (_%L139868%_ _%L139869%_) - (let ((_%key139882%_ + (##cdr _%e141127141147%_)))) + ((lambda (_%L141155%_ _%L141156%_) + (let ((_%key141169%_ (let () (declare (not safe)) (gx#core-identifier-key - _%L139869%_)))) + _%L141156%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%key139882%_)) + (interned-symbol? _%key141169%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _%stx139831%_ - _%L139869%_ - _%key139882%_))) - (let* ((_%ctx139884%_ + _%stx141118%_ + _%L141156%_ + _%key141169%_))) + (let* ((_%ctx141171%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L139869%_))) - (_%code139887%_ - (let ((__tmp149010 + _%L141156%_))) + (_%code141174%_ + (let ((__tmp150297 (lambda () - (let ((__tmp149011 + (let ((__tmp150298 (##structure-ref - _%ctx139884%_ + _%ctx141171%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self139830%_ - __tmp149011))))) + _%self141117%_ + __tmp150298))))) (declare (not safe)) (__call-with-parameters - __tmp149010 + __tmp150297 gx#current-expander-context - _%ctx139884%_))) - (_%rt139889%_ - (let ((__tmp149012 + _%ctx141171%_))) + (_%rt141176%_ + (let ((__tmp150299 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) (hash-get - __tmp149012 - _%ctx139884%_))) - (_%loader139891%_ - (if _%rt139889%_ + __tmp150299 + _%ctx141171%_))) + (_%loader141178%_ + (if _%rt141176%_ (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'load-module '())) - (cons (cons '%#quote (cons _%rt139889%_ '())) + (cons (cons '%#quote (cons _%rt141176%_ '())) '()))) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_%modid139893%_ + (_%modid141180%_ (let () (declare (not safe)) - (gx#stx-e _%L139869%_)))) + (gx#stx-e _%L141156%_)))) (gxc#meta-state-end-phi! (let () (declare (not safe)) (slot-ref__0 - _%self139830%_ + _%self141117%_ 'state))) (cons '%#module - (cons _%modid139893%_ - (cons _%code139887%_ - _%loader139891%_)))))) - _%tl139842139865%_ - _%hd139841139863%_))) - (_%g139833139847%_ _%g139834139850%_)))) - (_%g139833139847%_ _%g139834139850%_))))) - (_%g139832139896%_ _%stx139831%_)))) + (cons _%modid141180%_ + (cons _%code141174%_ + _%loader141178%_)))))) + _%tl141129141152%_ + _%hd141128141150%_))) + (_%g141120141134%_ _%g141121141137%_)))) + (_%g141120141134%_ _%g141121141137%_))))) + (_%g141119141183%_ _%stx141118%_)))) (define gxc#generate-meta-import-path - (lambda (_%ctx139817%_ _%context-chain139818%_) - (let _%lp139820%_ ((_%ctx139822%_ _%ctx139817%_) (_%path139823%_ '())) - (let ((_%super139825%_ - (##structure-ref _%ctx139822%_ '3 gx#phi-context::t '#f))) - (if (memq _%super139825%_ _%context-chain139818%_) + (lambda (_%ctx141104%_ _%context-chain141105%_) + (let _%lp141107%_ ((_%ctx141109%_ _%ctx141104%_) (_%path141110%_ '())) + (let ((_%super141112%_ + (##structure-ref _%ctx141109%_ '3 gx#phi-context::t '#f))) + (if (memq _%super141112%_ _%context-chain141105%_) (cons '#f (cons (car (##structure-ref - _%ctx139822%_ + _%ctx141109%_ '7 gx#module-context::t '#f)) - _%path139823%_)) + _%path141110%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%super139825%_ + _%super141112%_ 'gx#module-context::t)) - (_%lp139820%_ - _%super139825%_ + (_%lp141107%_ + _%super141112%_ (cons (car (##structure-ref - _%ctx139822%_ + _%ctx141109%_ '7 gx#module-context::t '#f)) - _%path139823%_)) - (cons (let ((__tmp149013 + _%path141110%_)) + (cons (let ((__tmp150300 (##structure-ref - _%ctx139822%_ + _%ctx141109%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp149013)) - _%path139823%_))))))) + (make-symbol__1 '":" __tmp150300)) + _%path141110%_))))))) (define gxc#current-context-chain (lambda () - (let _%lp139810%_ ((_%ctx139812%_ + (let _%lp141097%_ ((_%ctx141099%_ (let () (declare (not safe)) (gx#current-expander-context))) - (_%r139813%_ '())) + (_%r141100%_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _%ctx139812%_ 'gx#module-context::t)) - (_%lp139810%_ + (##structure-instance-of? _%ctx141099%_ 'gx#module-context::t)) + (_%lp141097%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%ctx139812%_ '3 '#f '#f)) - (cons _%ctx139812%_ _%r139813%_)) - _%r139813%_)))) + (##unchecked-structure-ref _%ctx141099%_ '3 '#f '#f)) + (cons _%ctx141099%_ _%r141100%_)) + _%r141100%_)))) (define gxc#generate-meta-import% - (lambda (_%self139573%_ _%stx139574%_) - (letrec* ((_%context-chain139576%_ (gxc#current-context-chain)) - (_%make-import-spec139577%_ - (lambda (_%in139746%_) - (let* ((_%in139747139759%_ _%in139746%_) - (_%E139749139763%_ + (lambda (_%self140860%_ _%stx140861%_) + (letrec* ((_%context-chain140863%_ (gxc#current-context-chain)) + (_%make-import-spec140864%_ + (lambda (_%in141033%_) + (let* ((_%in141034141046%_ _%in141033%_) + (_%E141036141050%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%in139747139759%_ + _%in141034141046%_ '((module-import (module-export src-ctx @@ -13153,390 +13153,390 @@ name phi)))) '#!void)) - (_%K139750139773%_ - (lambda (_%phi139766%_ - _%name139767%_ - _%src-name139768%_ - _%src-phi139769%_ - _%src-key139770%_ - _%src-ctx139771%_) - (cons _%phi139766%_ + (_%K141037141060%_ + (lambda (_%phi141053%_ + _%name141054%_ + _%src-name141055%_ + _%src-phi141056%_ + _%src-key141057%_ + _%src-ctx141058%_) + (cons _%phi141053%_ (cons (gxc#generate-runtime-identifier-key - _%name139767%_) - (cons _%src-phi139769%_ + _%name141054%_) + (cons _%src-phi141056%_ (cons (gxc#generate-runtime-identifier-key - _%src-name139768%_) + _%src-name141055%_) '()))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139747139759%_ + _%in141034141046%_ 'gx#module-import::t)) - (let ((_%e139751139776%_ + (let ((_%e141038141063%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139747139759%_ + _%in141034141046%_ '1 '#f '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%e139751139776%_ + _%e141038141063%_ 'gx#module-export::t)) - (let* ((_%e139754139779%_ + (let* ((_%e141041141066%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e139751139776%_ + _%e141038141063%_ '1 '#f '#f))) - (_%src-ctx139782%_ _%e139754139779%_) - (_%e139755139784%_ + (_%src-ctx141069%_ _%e141041141066%_) + (_%e141042141071%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e139751139776%_ + _%e141038141063%_ '2 '#f '#f))) - (_%src-key139787%_ _%e139755139784%_) - (_%e139756139789%_ + (_%src-key141074%_ _%e141042141071%_) + (_%e141043141076%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e139751139776%_ + _%e141038141063%_ '3 '#f '#f))) - (_%src-phi139792%_ _%e139756139789%_) - (_%e139757139794%_ + (_%src-phi141079%_ _%e141043141076%_) + (_%e141044141081%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e139751139776%_ + _%e141038141063%_ '4 '#f '#f))) - (_%src-name139797%_ _%e139757139794%_) - (_%e139752139799%_ + (_%src-name141084%_ _%e141044141081%_) + (_%e141039141086%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139747139759%_ + _%in141034141046%_ '2 '#f '#f))) - (_%name139802%_ _%e139752139799%_) - (_%e139753139804%_ + (_%name141089%_ _%e141039141086%_) + (_%e141040141091%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139747139759%_ + _%in141034141046%_ '3 '#f '#f))) - (_%phi139807%_ _%e139753139804%_)) - (_%K139750139773%_ - _%phi139807%_ - _%name139802%_ - _%src-name139797%_ - _%src-phi139792%_ - _%src-key139787%_ - _%src-ctx139782%_)) - (_%E139749139763%_))) - (_%E139749139763%_))))) - (_%make-import-path139578%_ - (lambda (_%ctx139744%_) + (_%phi141094%_ _%e141040141091%_)) + (_%K141037141060%_ + _%phi141094%_ + _%name141089%_ + _%src-name141084%_ + _%src-phi141079%_ + _%src-key141074%_ + _%src-ctx141069%_)) + (_%E141036141050%_))) + (_%E141036141050%_))))) + (_%make-import-path140865%_ + (lambda (_%ctx141031%_) (gxc#generate-meta-import-path - _%ctx139744%_ - _%context-chain139576%_))) - (_%make-import-spec-in139579%_ - (lambda (_%ctx139741%_ _%in139742%_) + _%ctx141031%_ + _%context-chain140863%_))) + (_%make-import-spec-in140866%_ + (lambda (_%ctx141028%_ _%in141029%_) (cons 'spec: - (cons (_%make-import-path139578%_ _%ctx139741%_) - (reverse _%in139742%_)))))) + (cons (_%make-import-path140865%_ _%ctx141028%_) + (reverse _%in141029%_)))))) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self139573%_ 'state))) - (let* ((_%g139581139591%_ - (lambda (_%g139582139588%_) + (let () (declare (not safe)) (slot-ref__0 _%self140860%_ 'state))) + (let* ((_%g140868140878%_ + (lambda (_%g140869140875%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139582139588%_)))) - (_%g139580139738%_ - (lambda (_%g139582139594%_) + _%g140869140875%_)))) + (_%g140867141025%_ + (lambda (_%g140869140881%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139582139594%_)) - (let ((_%e139584139596%_ + (gx#stx-pair? _%g140869140881%_)) + (let ((_%e140871140883%_ (let () (declare (not safe)) - (gx#stx-e _%g139582139594%_)))) - (let ((_%hd139585139599%_ + (gx#stx-e _%g140869140881%_)))) + (let ((_%hd140872140886%_ (let () (declare (not safe)) - (##car _%e139584139596%_))) - (_%tl139586139601%_ + (##car _%e140871140883%_))) + (_%tl140873140888%_ (let () (declare (not safe)) - (##cdr _%e139584139596%_)))) - ((lambda (_%L139604%_) - (let _%lp139615%_ ((_%rest139617%_ _%L139604%_) - (_%current-src139618%_ '#f) - (_%current-in139619%_ '()) - (_%r139620%_ '())) - (let* ((_%rest139621139629%_ _%rest139617%_) - (_%else139623139639%_ + (##cdr _%e140871140883%_)))) + ((lambda (_%L140891%_) + (let _%lp140902%_ ((_%rest140904%_ _%L140891%_) + (_%current-src140905%_ '#f) + (_%current-in140906%_ '()) + (_%r140907%_ '())) + (let* ((_%rest140908140916%_ _%rest140904%_) + (_%else140910140926%_ (lambda () - (let ((_%r139637%_ - (if _%current-src139618%_ - (cons (_%make-import-spec-in139579%_ - _%current-src139618%_ - _%current-in139619%_) - _%r139620%_) - _%r139620%_))) + (let ((_%r140924%_ + (if _%current-src140905%_ + (cons (_%make-import-spec-in140866%_ + _%current-src140905%_ + _%current-in140906%_) + _%r140907%_) + _%r140907%_))) (cons '%#import - (reverse _%r139637%_))))) - (_%K139625139726%_ - (lambda (_%rest139642%_ _%in139643%_) + (reverse _%r140924%_))))) + (_%K140912141013%_ + (lambda (_%rest140929%_ _%in140930%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139643%_ + _%in140930%_ 'gx#module-import::t)) - (let* ((_%in139645139652%_ - _%in139643%_) - (_%E139647139656%_ + (let* ((_%in140932140939%_ + _%in140930%_) + (_%E140934140943%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in139645139652%_ + _%in140932140939%_ '((module-import (module-export src-ctx))))) '#!void)) - (_%K139648139664%_ - (lambda (_%src-ctx139659%_) - (if (eq? _%current-src139618%_ _%src-ctx139659%_) - (_%lp139615%_ - _%rest139642%_ - _%current-src139618%_ - (cons (_%make-import-spec139577%_ _%in139643%_) - _%current-in139619%_) - _%r139620%_) - (if _%current-src139618%_ - (_%lp139615%_ - _%rest139642%_ - _%src-ctx139659%_ - (cons (_%make-import-spec139577%_ _%in139643%_) '()) - (cons (_%make-import-spec-in139579%_ - _%current-src139618%_ - _%current-in139619%_) - _%r139620%_)) - (_%lp139615%_ - _%rest139642%_ - _%src-ctx139659%_ - (cons (_%make-import-spec139577%_ _%in139643%_) '()) - _%r139620%_))))) - (_%e139649139667%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref _%in139645139652%_ '1 '#f '#f)))) + (_%K140935140951%_ + (lambda (_%src-ctx140946%_) + (if (eq? _%current-src140905%_ _%src-ctx140946%_) + (_%lp140902%_ + _%rest140929%_ + _%current-src140905%_ + (cons (_%make-import-spec140864%_ _%in140930%_) + _%current-in140906%_) + _%r140907%_) + (if _%current-src140905%_ + (_%lp140902%_ + _%rest140929%_ + _%src-ctx140946%_ + (cons (_%make-import-spec140864%_ _%in140930%_) '()) + (cons (_%make-import-spec-in140866%_ + _%current-src140905%_ + _%current-in140906%_) + _%r140907%_)) + (_%lp140902%_ + _%rest140929%_ + _%src-ctx140946%_ + (cons (_%make-import-spec140864%_ _%in140930%_) '()) + _%r140907%_))))) + (_%e140936140954%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref _%in140932140939%_ '1 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%e139649139667%_ + _%e140936140954%_ 'gx#module-export::t)) - (let* ((_%e139650139670%_ + (let* ((_%e140937140957%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%e139649139667%_ + _%e140936140954%_ '1 '#f '#f))) - (_%src-ctx139673%_ _%e139650139670%_)) - (_%K139648139664%_ _%src-ctx139673%_)) + (_%src-ctx140960%_ _%e140937140957%_)) + (_%K140935140951%_ _%src-ctx140960%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E139647139656%_))) + (_%E140934140943%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139643%_ + _%in140930%_ 'gx#import-set::t)) - (let* ((_%phi139676%_ + (let* ((_%phi140963%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139643%_ + _%in140930%_ '2 '#f '#f))) - (_%src139678%_ + (_%src140965%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139643%_ + _%in140930%_ '1 '#f '#f))) - (_%src-in139718%_ - (let* ((_%g139679139688%_ + (_%src-in141005%_ + (let* ((_%g140966140975%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%make-import-path139578%_ _%src139678%_)) - (_%E139682139692%_ + (_%make-import-path140865%_ _%src140965%_)) + (_%E140969140979%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g139679139688%_ + _%g140966140975%_ '([path]) '(path))) '#!void))) - (let ((_%K139684139708%_ - (lambda (_%path139706%_) _%path139706%_)) - (_%K139683139698%_ - (lambda (_%path139696%_) - (cons 'in: _%path139696%_)))) - (if (pair? _%g139679139688%_) - (let ((_%tl139686139713%_ + (let ((_%K140971140995%_ + (lambda (_%path140993%_) _%path140993%_)) + (_%K140970140985%_ + (lambda (_%path140983%_) + (cons 'in: _%path140983%_)))) + (if (pair? _%g140966140975%_) + (let ((_%tl140973141000%_ (let () (declare (not safe)) - (##cdr _%g139679139688%_))) - (_%hd139685139711%_ + (##cdr _%g140966140975%_))) + (_%hd140972140998%_ (let () (declare (not safe)) - (##car _%g139679139688%_)))) - (if (null? _%tl139686139713%_) - (let ((_%path139716%_ _%hd139685139711%_)) - (_%K139684139708%_ _%path139716%_)) - (let ((_%path139701%_ _%g139679139688%_)) - (_%K139683139698%_ _%path139701%_)))) - (let ((_%path139701%_ _%g139679139688%_)) - (_%K139683139698%_ _%path139701%_)))))) - (_%r139720%_ - (if _%current-src139618%_ - (cons (_%make-import-spec-in139579%_ - _%current-src139618%_ - _%current-in139619%_) - _%r139620%_) - _%r139620%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp139615%_ - _%rest139642%_ + (##car _%g140966140975%_)))) + (if (null? _%tl140973141000%_) + (let ((_%path141003%_ _%hd140972140998%_)) + (_%K140971140995%_ _%path141003%_)) + (let ((_%path140988%_ _%g140966140975%_)) + (_%K140970140985%_ _%path140988%_)))) + (let ((_%path140988%_ _%g140966140975%_)) + (_%K140970140985%_ _%path140988%_)))))) + (_%r141007%_ + (if _%current-src140905%_ + (cons (_%make-import-spec-in140866%_ + _%current-src140905%_ + _%current-in140906%_) + _%r140907%_) + _%r140907%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp140902%_ + _%rest140929%_ '#f '() - (cons (if (fxzero? _%phi139676%_) - _%src-in139718%_ + (cons (if (fxzero? _%phi140963%_) + _%src-in141005%_ (cons 'phi: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%phi139676%_ - (cons _%src-in139718%_ '())))) - _%r139720%_))) + (cons _%phi140963%_ + (cons _%src-in141005%_ '())))) + _%r141007%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _%in139643%_ + _%in140930%_ 'gx#module-context::t)) - (let ((_%r139724%_ - (if _%current-src139618%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (_%make-import-spec-in139579%_ - _%current-src139618%_ - _%current-in139619%_) - _%r139620%_) - _%r139620%_))) - (_%lp139615%_ - _%rest139642%_ + (let ((_%r141011%_ + (if _%current-src140905%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (_%make-import-spec-in140866%_ + _%current-src140905%_ + _%current-in140906%_) + _%r140907%_) + _%r140907%_))) + (_%lp140902%_ + _%rest140929%_ '#f '() (cons (cons 'runtime: - (_%make-import-path139578%_ _%in139643%_)) - _%r139724%_))) + (_%make-import-path140865%_ _%in140930%_)) + _%r141011%_))) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest139621139629%_) - (let ((_%hd139626139729%_ + (if (pair? _%rest140908140916%_) + (let ((_%hd140913141016%_ (let () (declare (not safe)) - (##car _%rest139621139629%_))) - (_%tl139627139731%_ + (##car _%rest140908140916%_))) + (_%tl140914141018%_ (let () (declare (not safe)) - (##cdr _%rest139621139629%_)))) - (let* ((_%in139734%_ - _%hd139626139729%_) - (_%rest139736%_ - _%tl139627139731%_)) - (_%K139625139726%_ - _%rest139736%_ - _%in139734%_))) - (_%else139623139639%_))))) - _%tl139586139601%_))) - (_%g139581139591%_ _%g139582139594%_))))) - (_%g139580139738%_ _%stx139574%_))))) + (##cdr _%rest140908140916%_)))) + (let* ((_%in141021%_ + _%hd140913141016%_) + (_%rest141023%_ + _%tl140914141018%_)) + (_%K140912141013%_ + _%rest141023%_ + _%in141021%_))) + (_%else140910140926%_))))) + _%tl140873140888%_))) + (_%g140868140878%_ _%g140869140881%_))))) + (_%g140867141025%_ _%stx140861%_))))) (define gxc#generate-meta-export% - (lambda (_%self139383%_ _%stx139384%_) - (letrec* ((_%context-chain139386%_ (gxc#current-context-chain)) - (_%make-import-path139387%_ - (lambda (_%ctx139571%_) + (lambda (_%self140670%_ _%stx140671%_) + (letrec* ((_%context-chain140673%_ (gxc#current-context-chain)) + (_%make-import-path140674%_ + (lambda (_%ctx140858%_) (gxc#generate-meta-import-path - _%ctx139571%_ - _%context-chain139386%_)))) - (let* ((_%g139389139399%_ - (lambda (_%g139390139396%_) + _%ctx140858%_ + _%context-chain140673%_)))) + (let* ((_%g140676140686%_ + (lambda (_%g140677140683%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139390139396%_)))) - (_%g139388139568%_ - (lambda (_%g139390139402%_) + _%g140677140683%_)))) + (_%g140675140855%_ + (lambda (_%g140677140689%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139390139402%_)) - (let ((_%e139392139404%_ + (gx#stx-pair? _%g140677140689%_)) + (let ((_%e140679140691%_ (let () (declare (not safe)) - (gx#stx-e _%g139390139402%_)))) - (let ((_%hd139393139407%_ + (gx#stx-e _%g140677140689%_)))) + (let ((_%hd140680140694%_ (let () (declare (not safe)) - (##car _%e139392139404%_))) - (_%tl139394139409%_ + (##car _%e140679140691%_))) + (_%tl140681140696%_ (let () (declare (not safe)) - (##cdr _%e139392139404%_)))) - ((lambda (_%L139412%_) - (let _%lp139423%_ ((_%rest139425%_ _%L139412%_) - (_%r139426%_ '())) - (let* ((_%rest139427139435%_ _%rest139425%_) - (_%else139429139443%_ + (##cdr _%e140679140691%_)))) + ((lambda (_%L140699%_) + (let _%lp140710%_ ((_%rest140712%_ _%L140699%_) + (_%r140713%_ '())) + (let* ((_%rest140714140722%_ _%rest140712%_) + (_%else140716140730%_ (lambda () (cons '%#export - (reverse _%r139426%_)))) - (_%K139431139556%_ - (lambda (_%rest139446%_ _%out139447%_) - (let* ((_%out139448139461%_ - _%out139447%_) - (_%E139451139465%_ + (reverse _%r140713%_)))) + (_%K140718140843%_ + (lambda (_%rest140733%_ _%out140734%_) + (let* ((_%out140735140748%_ + _%out140734%_) + (_%E140738140752%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%out139448139461%_ + _%out140735140748%_ '((module-export ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _ @@ -13546,491 +13546,491 @@ '((export-set src phi)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (let ((_%K139455139535%_ - (lambda (_%name139531%_ - _%phi139532%_ - _%key139533%_) - (_%lp139423%_ - _%rest139446%_ + (let ((_%K140742140822%_ + (lambda (_%name140818%_ + _%phi140819%_ + _%key140820%_) + (_%lp140710%_ + _%rest140733%_ (cons (cons 'spec: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%phi139532%_ + (cons _%phi140819%_ (cons (gxc#generate-runtime-identifier-key - _%key139533%_) + _%key140820%_) (cons (gxc#generate-runtime-identifier-key - _%name139531%_) + _%name140818%_) '())))) - _%r139426%_)))) + _%r140713%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K139452139515%_ - (lambda (_%phi139469%_ - _%src139470%_) - (let* ((_%out139510%_ - (if _%src139470%_ + (_%K140739140802%_ + (lambda (_%phi140756%_ + _%src140757%_) + (let* ((_%out140797%_ + (if _%src140757%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'import: - (cons (let* ((_%g139471139480%_ - (_%make-import-path139387%_ - _%src139470%_)) - (_%E139474139484%_ + (cons (let* ((_%g140758140767%_ + (_%make-import-path140674%_ + _%src140757%_)) + (_%E140761140771%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g139471139480%_ + _%g140758140767%_ '([path]) '(path))) '#!void))) - (let ((_%K139476139500%_ - (lambda (_%path139498%_) - _%path139498%_)) - (_%K139475139490%_ - (lambda (_%path139488%_) - (cons 'in: _%path139488%_)))) - (if (pair? _%g139471139480%_) - (let ((_%tl139478139505%_ + (let ((_%K140763140787%_ + (lambda (_%path140785%_) + _%path140785%_)) + (_%K140762140777%_ + (lambda (_%path140775%_) + (cons 'in: _%path140775%_)))) + (if (pair? _%g140758140767%_) + (let ((_%tl140765140792%_ (let () (declare (not safe)) - (##cdr _%g139471139480%_))) - (_%hd139477139503%_ + (##cdr _%g140758140767%_))) + (_%hd140764140790%_ (let () (declare (not safe)) - (##car _%g139471139480%_)))) - (if (null? _%tl139478139505%_) - (let ((_%path139508%_ - _%hd139477139503%_)) - (_%K139476139500%_ - _%path139508%_)) - (let ((_%path139493%_ - _%g139471139480%_)) - (_%K139475139490%_ - _%path139493%_)))) - (let ((_%path139493%_ - _%g139471139480%_)) - (_%K139475139490%_ - _%path139493%_))))) + (##car _%g140758140767%_)))) + (if (null? _%tl140765140792%_) + (let ((_%path140795%_ + _%hd140764140790%_)) + (_%K140763140787%_ + _%path140795%_)) + (let ((_%path140780%_ + _%g140758140767%_)) + (_%K140762140777%_ + _%path140780%_)))) + (let ((_%path140780%_ + _%g140758140767%_)) + (_%K140762140777%_ + _%path140780%_))))) '())) '#t)) - (_%out139512%_ - (if (fxzero? _%phi139469%_) - _%out139510%_ + (_%out140799%_ + (if (fxzero? _%phi140756%_) + _%out140797%_ (cons 'phi: - (cons _%phi139469%_ - (cons _%out139510%_ '())))))) - (_%lp139423%_ - _%rest139446%_ - (cons _%out139512%_ _%r139426%_)))))) + (cons _%phi140756%_ + (cons _%out140797%_ '())))))) + (_%lp140710%_ + _%rest140733%_ + (cons _%out140799%_ _%r140713%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match139450139528%_ + (let ((_%try-match140737140815%_ (lambda () (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out139448139461%_ + _%out140735140748%_ 'gx#export-set::t)) - (let* ((_%e139453139518%_ + (let* ((_%e140740140805%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _%out139448139461%_ + _%out140735140748%_ '1 '#f '#f))) - (_%e139454139523%_ + (_%e140741140810%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139448139461%_ + _%out140735140748%_ '2 '#f '#f)))) - (let ((_%src139521%_ _%e139453139518%_) - (_%phi139526%_ _%e139454139523%_)) - (_%K139452139515%_ _%phi139526%_ _%src139521%_))) - (_%E139451139465%_))))) + (let ((_%src140808%_ _%e140740140805%_) + (_%phi140813%_ _%e140741140810%_)) + (_%K140739140802%_ _%phi140813%_ _%src140808%_))) + (_%E140738140752%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out139448139461%_ + _%out140735140748%_ 'gx#module-export::t)) - (let* ((_%e139456139538%_ + (let* ((_%e140743140825%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%out139448139461%_ + _%out140735140748%_ '1 '#f '#f))) - (_%e139457139541%_ + (_%e140744140828%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139448139461%_ + _%out140735140748%_ '2 '#f '#f))) - (_%e139458139546%_ + (_%e140745140833%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139448139461%_ + _%out140735140748%_ '3 '#f '#f))) - (_%e139459139551%_ + (_%e140746140838%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139448139461%_ + _%out140735140748%_ '4 '#f '#f)))) - (let ((_%key139544%_ _%e139457139541%_) - (_%phi139549%_ _%e139458139546%_) - (_%name139554%_ _%e139459139551%_)) - (_%K139455139535%_ - _%name139554%_ - _%phi139549%_ - _%key139544%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%try-match139450139528%_)))))))) - (if (pair? _%rest139427139435%_) - (let ((_%hd139432139559%_ + (let ((_%key140831%_ _%e140744140828%_) + (_%phi140836%_ _%e140745140833%_) + (_%name140841%_ _%e140746140838%_)) + (_%K140742140822%_ + _%name140841%_ + _%phi140836%_ + _%key140831%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%try-match140737140815%_)))))))) + (if (pair? _%rest140714140722%_) + (let ((_%hd140719140846%_ (let () (declare (not safe)) - (##car _%rest139427139435%_))) - (_%tl139433139561%_ + (##car _%rest140714140722%_))) + (_%tl140720140848%_ (let () (declare (not safe)) - (##cdr _%rest139427139435%_)))) - (let* ((_%out139564%_ - _%hd139432139559%_) - (_%rest139566%_ - _%tl139433139561%_)) - (_%K139431139556%_ - _%rest139566%_ - _%out139564%_))) - (_%else139429139443%_))))) - _%tl139394139409%_))) - (_%g139389139399%_ _%g139390139402%_))))) - (_%g139388139568%_ _%stx139384%_))))) + (##cdr _%rest140714140722%_)))) + (let* ((_%out140851%_ + _%hd140719140846%_) + (_%rest140853%_ + _%tl140720140848%_)) + (_%K140718140843%_ + _%rest140853%_ + _%out140851%_))) + (_%else140716140730%_))))) + _%tl140681140696%_))) + (_%g140676140686%_ _%g140677140689%_))))) + (_%g140675140855%_ _%stx140671%_))))) (define gxc#generate-meta-provide% - (lambda (_%self139344%_ _%stx139345%_) + (lambda (_%self140631%_ _%stx140632%_) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self139344%_ 'state))) - (let* ((_%g139347139357%_ - (lambda (_%g139348139354%_) + (let () (declare (not safe)) (slot-ref__0 _%self140631%_ 'state))) + (let* ((_%g140634140644%_ + (lambda (_%g140635140641%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139348139354%_)))) - (_%g139346139380%_ - (lambda (_%g139348139360%_) + _%g140635140641%_)))) + (_%g140633140667%_ + (lambda (_%g140635140647%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139348139360%_)) - (let ((_%e139350139362%_ + (gx#stx-pair? _%g140635140647%_)) + (let ((_%e140637140649%_ (let () (declare (not safe)) - (gx#stx-e _%g139348139360%_)))) - (let ((_%hd139351139365%_ + (gx#stx-e _%g140635140647%_)))) + (let ((_%hd140638140652%_ (let () (declare (not safe)) - (##car _%e139350139362%_))) - (_%tl139352139367%_ + (##car _%e140637140649%_))) + (_%tl140639140654%_ (let () (declare (not safe)) - (##cdr _%e139350139362%_)))) - ((lambda (_%L139370%_) + (##cdr _%e140637140649%_)))) + ((lambda (_%L140657%_) (cons '%#provide (map gxc#generate-runtime-identifier - _%L139370%_))) - _%tl139352139367%_))) - (_%g139347139357%_ _%g139348139360%_))))) - (_%g139346139380%_ _%stx139345%_)))) + _%L140657%_))) + _%tl140639140654%_))) + (_%g140634140644%_ _%g140635140647%_))))) + (_%g140633140667%_ _%stx140632%_)))) (define gxc#generate-meta-extern% - (lambda (_%self139215%_ _%stx139216%_) - (letrec ((_%generate1139218%_ - (lambda (_%id139339%_ _%eid139340%_) - (let ((_%eid139342%_ + (lambda (_%self140502%_ _%stx140503%_) + (letrec ((_%generate1140505%_ + (lambda (_%id140626%_ _%eid140627%_) + (let ((_%eid140629%_ (let () (declare (not safe)) - (gx#stx-e _%eid139340%_)))) + (gx#stx-e _%eid140627%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%eid139342%_)) + (interned-symbol? _%eid140629%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile extern reference" - _%stx139216%_ - _%eid139342%_))) - (cons (gxc#generate-runtime-identifier _%id139339%_) - (cons _%eid139342%_ '())))))) - (let* ((_%g139220139248%_ - (lambda (_%g139221139245%_) + _%stx140503%_ + _%eid140629%_))) + (cons (gxc#generate-runtime-identifier _%id140626%_) + (cons _%eid140629%_ '())))))) + (let* ((_%g140507140535%_ + (lambda (_%g140508140532%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139221139245%_)))) - (_%g139219139336%_ - (lambda (_%g139221139251%_) + _%g140508140532%_)))) + (_%g140506140623%_ + (lambda (_%g140508140538%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139221139251%_)) - (let ((_%e139224139253%_ + (gx#stx-pair? _%g140508140538%_)) + (let ((_%e140511140540%_ (let () (declare (not safe)) - (gx#stx-e _%g139221139251%_)))) - (let ((_%hd139225139256%_ + (gx#stx-e _%g140508140538%_)))) + (let ((_%hd140512140543%_ (let () (declare (not safe)) - (##car _%e139224139253%_))) - (_%tl139226139258%_ + (##car _%e140511140540%_))) + (_%tl140513140545%_ (let () (declare (not safe)) - (##cdr _%e139224139253%_)))) + (##cdr _%e140511140540%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl139226139258%_)) - (let ((_g149014_ + (gx#stx-pair/null? _%tl140513140545%_)) + (let ((_g150301_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl139226139258%_ + _%tl140513140545%_ '0)))) (begin - (let ((_g149015_ + (let ((_g150302_ (let () (declare (not safe)) - (if (##values? _g149014_) - (##vector-length _g149014_) + (if (##values? _g150301_) + (##values-length _g150301_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g149015_ 2))) + (##fx= _g150302_ 2))) (error "Context expects 2 values" - _g149015_))) - (let ((_%target139227139261%_ + _g150302_))) + (let ((_%target140514140548%_ (let () (declare (not safe)) - (##vector-ref _g149014_ 0))) - (_%tl139229139263%_ + (##values-ref _g150301_ 0))) + (_%tl140516140550%_ (let () (declare (not safe)) - (##vector-ref _g149014_ 1)))) + (##values-ref _g150301_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139229139263%_)) - (letrec ((_%loop139230139266%_ - (lambda (_%hd139228139269%_ - _%eid139234139271%_ - _%id139235139273%_) + (gx#stx-null? _%tl140516140550%_)) + (letrec ((_%loop140517140553%_ + (lambda (_%hd140515140556%_ + _%eid140521140558%_ + _%id140522140560%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd139228139269%_)) - (let ((_%e139231139276%_ + _%hd140515140556%_)) + (let ((_%e140518140563%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd139228139269%_)))) - (let ((_%lp-hd139232139279%_ + (gx#stx-e _%hd140515140556%_)))) + (let ((_%lp-hd140519140566%_ (let () (declare (not safe)) - (##car _%e139231139276%_))) - (_%lp-tl139233139281%_ + (##car _%e140518140563%_))) + (_%lp-tl140520140568%_ (let () (declare (not safe)) - (##cdr _%e139231139276%_)))) + (##cdr _%e140518140563%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd139232139279%_)) - (let ((_%e139238139284%_ + (gx#stx-pair? _%lp-hd140519140566%_)) + (let ((_%e140525140571%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd139232139279%_)))) - (let ((_%hd139239139287%_ + (gx#stx-e _%lp-hd140519140566%_)))) + (let ((_%hd140526140574%_ (let () (declare (not safe)) - (##car _%e139238139284%_))) - (_%tl139240139289%_ + (##car _%e140525140571%_))) + (_%tl140527140576%_ (let () (declare (not safe)) - (##cdr _%e139238139284%_)))) + (##cdr _%e140525140571%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139240139289%_)) - (let ((_%e139241139292%_ + (gx#stx-pair? _%tl140527140576%_)) + (let ((_%e140528140579%_ (let () (declare (not safe)) - (gx#stx-e _%tl139240139289%_)))) - (let ((_%hd139242139295%_ + (gx#stx-e _%tl140527140576%_)))) + (let ((_%hd140529140582%_ (let () (declare (not safe)) - (##car _%e139241139292%_))) - (_%tl139243139297%_ + (##car _%e140528140579%_))) + (_%tl140530140584%_ (let () (declare (not safe)) - (##cdr _%e139241139292%_)))) + (##cdr _%e140528140579%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139243139297%_)) - (_%loop139230139266%_ - _%lp-tl139233139281%_ - (cons _%hd139242139295%_ - _%eid139234139271%_) - (cons _%hd139239139287%_ - _%id139235139273%_)) - (_%g139220139248%_ - _%g139221139251%_)))) - (_%g139220139248%_ _%g139221139251%_)))) - (_%g139220139248%_ _%g139221139251%_)))) - (let ((_%eid139236139300%_ (reverse _%eid139234139271%_)) - (_%id139237139302%_ (reverse _%id139235139273%_))) - ((lambda (_%L139305%_ _%L139306%_) + (gx#stx-null? _%tl140530140584%_)) + (_%loop140517140553%_ + _%lp-tl140520140568%_ + (cons _%hd140529140582%_ + _%eid140521140558%_) + (cons _%hd140526140574%_ + _%id140522140560%_)) + (_%g140507140535%_ + _%g140508140538%_)))) + (_%g140507140535%_ _%g140508140538%_)))) + (_%g140507140535%_ _%g140508140538%_)))) + (let ((_%eid140523140587%_ (reverse _%eid140521140558%_)) + (_%id140524140589%_ (reverse _%id140522140560%_))) + ((lambda (_%L140592%_ _%L140593%_) (cons '%#extern - (map _%generate1139218%_ - (let ((__tmp149016 - (lambda (_%g139321139324%_ - _%g139322139326%_) - (cons _%g139321139324%_ - _%g139322139326%_)))) + (map _%generate1140505%_ + (let ((__tmp150303 + (lambda (_%g140608140611%_ + _%g140609140613%_) + (cons _%g140608140611%_ + _%g140609140613%_)))) (declare (not safe)) - (__foldr1 __tmp149016 '() _%L139306%_)) - (let ((__tmp149017 - (lambda (_%g139328139331%_ - _%g139329139333%_) - (cons _%g139328139331%_ - _%g139329139333%_)))) + (__foldr1 __tmp150303 '() _%L140593%_)) + (let ((__tmp150304 + (lambda (_%g140615140618%_ + _%g140616140620%_) + (cons _%g140615140618%_ + _%g140616140620%_)))) (declare (not safe)) - (__foldr1 __tmp149017 '() _%L139305%_))))) - _%eid139236139300%_ - _%id139237139302%_)))))) + (__foldr1 __tmp150304 '() _%L140592%_))))) + _%eid140523140587%_ + _%id140524140589%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop139230139266%_ - _%target139227139261%_ + (_%loop140517140553%_ + _%target140514140548%_ '() '())) - (_%g139220139248%_ - _%g139221139251%_))))) - (_%g139220139248%_ _%g139221139251%_)))) - (_%g139220139248%_ _%g139221139251%_))))) - (_%g139219139336%_ _%stx139216%_))))) + (_%g140507140535%_ + _%g140508140538%_))))) + (_%g140507140535%_ _%g140508140538%_)))) + (_%g140507140535%_ _%g140508140538%_))))) + (_%g140506140623%_ _%stx140503%_))))) (define gxc#generate-meta-define-values% - (lambda (_%self139005%_ _%stx139006%_) - (letrec ((_%generate1139008%_ - (lambda (_%id139210%_) - (let ((_%eid139212%_ + (lambda (_%self140292%_ _%stx140293%_) + (letrec ((_%generate1140295%_ + (lambda (_%id140497%_) + (let ((_%eid140499%_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _%id139210%_))) - (_%ident139213%_ - (gxc#generate-runtime-identifier _%id139210%_))) + (gxc#generate-runtime-binding-id _%id140497%_))) + (_%ident140500%_ + (gxc#generate-runtime-identifier _%id140497%_))) (cons '%#define-runtime - (cons _%ident139213%_ (cons _%eid139212%_ '())))))) - (_%generate*139009%_ - (lambda (_%all139178%_) - (let* ((_%all139179139187%_ _%all139178%_) - (_%else139181139195%_ - (lambda () (cons '%#begin _%all139178%_))) - (_%K139183139200%_ - (lambda (_%one139198%_) _%one139198%_))) - (if (pair? _%all139179139187%_) - (let ((_%hd139184139203%_ + (cons _%ident140500%_ (cons _%eid140499%_ '())))))) + (_%generate*140296%_ + (lambda (_%all140465%_) + (let* ((_%all140466140474%_ _%all140465%_) + (_%else140468140482%_ + (lambda () (cons '%#begin _%all140465%_))) + (_%K140470140487%_ + (lambda (_%one140485%_) _%one140485%_))) + (if (pair? _%all140466140474%_) + (let ((_%hd140471140490%_ (let () (declare (not safe)) - (##car _%all139179139187%_))) - (_%tl139185139205%_ + (##car _%all140466140474%_))) + (_%tl140472140492%_ (let () (declare (not safe)) - (##cdr _%all139179139187%_)))) - (let ((_%one139208%_ _%hd139184139203%_)) - (if (null? _%tl139185139205%_) - (_%K139183139200%_ _%one139208%_) - (_%else139181139195%_)))) - (_%else139181139195%_)))))) - (let* ((_%g139011139028%_ - (lambda (_%g139012139025%_) + (##cdr _%all140466140474%_)))) + (let ((_%one140495%_ _%hd140471140490%_)) + (if (null? _%tl140472140492%_) + (_%K140470140487%_ _%one140495%_) + (_%else140468140482%_)))) + (_%else140468140482%_)))))) + (let* ((_%g140298140315%_ + (lambda (_%g140299140312%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139012139025%_)))) - (_%g139010139175%_ - (lambda (_%g139012139031%_) + _%g140299140312%_)))) + (_%g140297140462%_ + (lambda (_%g140299140318%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139012139031%_)) - (let ((_%e139015139033%_ + (gx#stx-pair? _%g140299140318%_)) + (let ((_%e140302140320%_ (let () (declare (not safe)) - (gx#stx-e _%g139012139031%_)))) - (let ((_%hd139016139036%_ + (gx#stx-e _%g140299140318%_)))) + (let ((_%hd140303140323%_ (let () (declare (not safe)) - (##car _%e139015139033%_))) - (_%tl139017139038%_ + (##car _%e140302140320%_))) + (_%tl140304140325%_ (let () (declare (not safe)) - (##cdr _%e139015139033%_)))) + (##cdr _%e140302140320%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139017139038%_)) - (let ((_%e139018139041%_ + (gx#stx-pair? _%tl140304140325%_)) + (let ((_%e140305140328%_ (let () (declare (not safe)) - (gx#stx-e _%tl139017139038%_)))) - (let ((_%hd139019139044%_ + (gx#stx-e _%tl140304140325%_)))) + (let ((_%hd140306140331%_ (let () (declare (not safe)) - (##car _%e139018139041%_))) - (_%tl139020139046%_ + (##car _%e140305140328%_))) + (_%tl140307140333%_ (let () (declare (not safe)) - (##cdr _%e139018139041%_)))) + (##cdr _%e140305140328%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139020139046%_)) - (let ((_%e139021139049%_ + (gx#stx-pair? _%tl140307140333%_)) + (let ((_%e140308140336%_ (let () (declare (not safe)) (gx#stx-e - _%tl139020139046%_)))) - (let ((_%hd139022139052%_ + _%tl140307140333%_)))) + (let ((_%hd140309140339%_ (let () (declare (not safe)) - (##car _%e139021139049%_))) - (_%tl139023139054%_ + (##car _%e140308140336%_))) + (_%tl140310140341%_ (let () (declare (not safe)) - (##cdr _%e139021139049%_)))) + (##cdr _%e140308140336%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139023139054%_)) - ((lambda (_%L139057%_ - _%L139058%_) - (let _%lp139074%_ ((_%rest139076%_ + _%tl140310140341%_)) + ((lambda (_%L140344%_ + _%L140345%_) + (let _%lp140361%_ ((_%rest140363%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L139058%_) - (_%r139077%_ '())) + _%L140345%_) + (_%r140364%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__stx148753148754%_ - _%rest139076%_) - (_%g139082139099%_ + (let* ((_%__stx150040150041%_ + _%rest140363%_) + (_%g140369140386%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14038,160 +14038,160 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148753148754%_))))) - (let ((_%__kont148755148756%_ - (lambda (_%L139162%_) - (_%lp139074%_ _%L139162%_ _%r139077%_))) - (_%__kont148757148758%_ - (lambda (_%L139135%_ _%L139136%_) - (_%lp139074%_ - _%L139135%_ - (cons (_%generate1139008%_ _%L139136%_) - _%r139077%_)))) - (_%__kont148759148760%_ - (lambda (_%L139111%_) - (_%generate*139009%_ - (let ((__tmp149018 - (cons (_%generate1139008%_ _%L139111%_) '()))) + _%__stx150040150041%_))))) + (let ((_%__kont150042150043%_ + (lambda (_%L140449%_) + (_%lp140361%_ _%L140449%_ _%r140364%_))) + (_%__kont150044150045%_ + (lambda (_%L140422%_ _%L140423%_) + (_%lp140361%_ + _%L140422%_ + (cons (_%generate1140295%_ _%L140423%_) + _%r140364%_)))) + (_%__kont150046150047%_ + (lambda (_%L140398%_) + (_%generate*140296%_ + (let ((__tmp150305 + (cons (_%generate1140295%_ _%L140398%_) '()))) (declare (not safe)) - (__foldl1 cons __tmp149018 _%r139077%_))))) - (_%__kont148761148762%_ - (lambda () (_%generate*139009%_ (reverse _%r139077%_))))) - (let ((_%g139080139122%_ + (__foldl1 cons __tmp150305 _%r140364%_))))) + (_%__kont150048150049%_ + (lambda () (_%generate*140296%_ (reverse _%r140364%_))))) + (let ((_%g140367140409%_ (lambda () - (let ((_%L139111%_ _%__stx148753148754%_)) + (let ((_%L140398%_ _%__stx150040150041%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L139111%_)) - (_%__kont148759148760%_ _%L139111%_) - (_%__kont148761148762%_)))))) + (gx#identifier? _%L140398%_)) + (_%__kont150046150047%_ _%L140398%_) + (_%__kont150048150049%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148753148754%_)) - (let ((_%e139085139151%_ + (gx#stx-pair? _%__stx150040150041%_)) + (let ((_%e140372140438%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148753148754%_)))) - (let ((_%tl139087139156%_ + (gx#stx-e _%__stx150040150041%_)))) + (let ((_%tl140374140443%_ (let () (declare (not safe)) - (##cdr _%e139085139151%_))) - (_%hd139086139154%_ + (##cdr _%e140372140438%_))) + (_%hd140373140441%_ (let () (declare (not safe)) - (##car _%e139085139151%_)))) + (##car _%e140372140438%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd139086139154%_)) - (let ((_%e139088139159%_ + (gx#stx-datum? _%hd140373140441%_)) + (let ((_%e140375140446%_ (let () (declare (not safe)) - (gx#stx-e _%hd139086139154%_)))) - (if (equal? _%e139088139159%_ '#f) - (_%__kont148755148756%_ - _%tl139087139156%_) - (_%__kont148757148758%_ - _%tl139087139156%_ - _%hd139086139154%_))) - (_%__kont148757148758%_ - _%tl139087139156%_ - _%hd139086139154%_)))) - (let () (declare (not safe)) (_%g139080139122%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd139022139052%_ - _%hd139019139044%_) - (_%g139011139028%_ - _%g139012139031%_)))) - (_%g139011139028%_ - _%g139012139031%_)))) - (_%g139011139028%_ _%g139012139031%_)))) - (_%g139011139028%_ _%g139012139031%_))))) - (_%g139010139175%_ _%stx139006%_))))) + (gx#stx-e _%hd140373140441%_)))) + (if (equal? _%e140375140446%_ '#f) + (_%__kont150042150043%_ + _%tl140374140443%_) + (_%__kont150044150045%_ + _%tl140374140443%_ + _%hd140373140441%_))) + (_%__kont150044150045%_ + _%tl140374140443%_ + _%hd140373140441%_)))) + (let () (declare (not safe)) (_%g140367140409%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd140309140339%_ + _%hd140306140331%_) + (_%g140298140315%_ + _%g140299140318%_)))) + (_%g140298140315%_ + _%g140299140318%_)))) + (_%g140298140315%_ _%g140299140318%_)))) + (_%g140298140315%_ _%g140299140318%_))))) + (_%g140297140462%_ _%stx140293%_))))) (define gxc#generate-meta-define-syntax% - (lambda (_%self138902%_ _%stx138903%_) - (let* ((_%g138905138922%_ - (lambda (_%g138906138919%_) + (lambda (_%self140189%_ _%stx140190%_) + (let* ((_%g140192140209%_ + (lambda (_%g140193140206%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138906138919%_)))) - (_%g138904139002%_ - (lambda (_%g138906138925%_) + _%g140193140206%_)))) + (_%g140191140289%_ + (lambda (_%g140193140212%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138906138925%_)) - (let ((_%e138909138927%_ + (gx#stx-pair? _%g140193140212%_)) + (let ((_%e140196140214%_ (let () (declare (not safe)) - (gx#stx-e _%g138906138925%_)))) - (let ((_%hd138910138930%_ + (gx#stx-e _%g140193140212%_)))) + (let ((_%hd140197140217%_ (let () (declare (not safe)) - (##car _%e138909138927%_))) - (_%tl138911138932%_ + (##car _%e140196140214%_))) + (_%tl140198140219%_ (let () (declare (not safe)) - (##cdr _%e138909138927%_)))) + (##cdr _%e140196140214%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138911138932%_)) - (let ((_%e138912138935%_ + (gx#stx-pair? _%tl140198140219%_)) + (let ((_%e140199140222%_ (let () (declare (not safe)) - (gx#stx-e _%tl138911138932%_)))) - (let ((_%hd138913138938%_ + (gx#stx-e _%tl140198140219%_)))) + (let ((_%hd140200140225%_ (let () (declare (not safe)) - (##car _%e138912138935%_))) - (_%tl138914138940%_ + (##car _%e140199140222%_))) + (_%tl140201140227%_ (let () (declare (not safe)) - (##cdr _%e138912138935%_)))) + (##cdr _%e140199140222%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138914138940%_)) - (let ((_%e138915138943%_ + (gx#stx-pair? _%tl140201140227%_)) + (let ((_%e140202140230%_ (let () (declare (not safe)) - (gx#stx-e _%tl138914138940%_)))) - (let ((_%hd138916138946%_ + (gx#stx-e _%tl140201140227%_)))) + (let ((_%hd140203140233%_ (let () (declare (not safe)) - (##car _%e138915138943%_))) - (_%tl138917138948%_ + (##car _%e140202140230%_))) + (_%tl140204140235%_ (let () (declare (not safe)) - (##cdr _%e138915138943%_)))) + (##cdr _%e140202140230%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138917138948%_)) - ((lambda (_%L138951%_ - _%L138952%_) - (let* ((_%eid138967%_ + _%tl140204140235%_)) + ((lambda (_%L140238%_ + _%L140239%_) + (let* ((_%eid140254%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L138952%_))) - (_%phi138969%_ - (let ((__tmp149019 + _%L140239%_))) + (_%phi140256%_ + (let ((__tmp150306 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp149019 '1))) - (_%block138971%_ + (##fx+ __tmp150306 '1))) + (_%block140258%_ (gxc#meta-state-begin-phi! (let () (declare (not safe)) - (slot-ref__0 _%self138902%_ 'state)) - _%phi138969%_))) + (slot-ref__0 _%self140189%_ 'state)) + _%phi140256%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%g138974138981%_ - (lambda (_%g138975138978%_) + (let* ((_%g140261140268%_ + (lambda (_%g140262140265%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14199,24 +14199,24 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138975138978%_)))) - (_%g138973138999%_ - (lambda (_%g138975138984%_) - ((lambda (_%L138986%_) + _%g140262140265%_)))) + (_%g140260140286%_ + (lambda (_%g140262140271%_) + ((lambda (_%L140273%_) (gxc#meta-state-add-phi! (let () (declare (not safe)) - (slot-ref__0 _%self138902%_ 'state)) - _%phi138969%_ + (slot-ref__0 _%self140189%_ 'state)) + _%phi140256%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#define-runtime)) - (cons _%L138986%_ (cons _%L138951%_ '()))))) - _%g138975138984%_)))) + (cons _%L140273%_ (cons _%L140238%_ '()))))) + _%g140262140271%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g138973138999%_ - _%eid138967%_)) - (if _%block138971%_ + (_%g140260140286%_ + _%eid140254%_)) + (if _%block140258%_ (cons '%#begin (cons (cons '%#begin-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14225,7 +14225,7 @@ (cons 'load-module '())) (cons (cons '%#quote - (cons _%block138971%_ + (cons _%block140258%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) @@ -14233,129 +14233,129 @@ '())) (cons (cons '%#define-syntax (cons (gxc#generate-runtime-identifier - _%L138952%_) - (cons _%eid138967%_ '()))) + _%L140239%_) + (cons _%eid140254%_ '()))) '()))) (cons '%#define-syntax - (cons (gxc#generate-runtime-identifier _%L138952%_) - (cons _%eid138967%_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd138916138946%_ - _%hd138913138938%_) - (_%g138905138922%_ - _%g138906138925%_)))) - (_%g138905138922%_ _%g138906138925%_)))) - (_%g138905138922%_ _%g138906138925%_)))) - (_%g138905138922%_ _%g138906138925%_))))) - (_%g138904139002%_ _%stx138903%_)))) + (cons (gxc#generate-runtime-identifier _%L140239%_) + (cons _%eid140254%_ '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd140203140233%_ + _%hd140200140225%_) + (_%g140192140209%_ + _%g140193140212%_)))) + (_%g140192140209%_ _%g140193140212%_)))) + (_%g140192140209%_ _%g140193140212%_)))) + (_%g140192140209%_ _%g140193140212%_))))) + (_%g140191140289%_ _%stx140190%_)))) (define gxc#generate-meta-define-alias% - (lambda (_%self138834%_ _%stx138835%_) - (let* ((_%g138837138854%_ - (lambda (_%g138838138851%_) + (lambda (_%self140121%_ _%stx140122%_) + (let* ((_%g140124140141%_ + (lambda (_%g140125140138%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138838138851%_)))) - (_%g138836138899%_ - (lambda (_%g138838138857%_) + _%g140125140138%_)))) + (_%g140123140186%_ + (lambda (_%g140125140144%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138838138857%_)) - (let ((_%e138841138859%_ + (gx#stx-pair? _%g140125140144%_)) + (let ((_%e140128140146%_ (let () (declare (not safe)) - (gx#stx-e _%g138838138857%_)))) - (let ((_%hd138842138862%_ + (gx#stx-e _%g140125140144%_)))) + (let ((_%hd140129140149%_ (let () (declare (not safe)) - (##car _%e138841138859%_))) - (_%tl138843138864%_ + (##car _%e140128140146%_))) + (_%tl140130140151%_ (let () (declare (not safe)) - (##cdr _%e138841138859%_)))) + (##cdr _%e140128140146%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138843138864%_)) - (let ((_%e138844138867%_ + (gx#stx-pair? _%tl140130140151%_)) + (let ((_%e140131140154%_ (let () (declare (not safe)) - (gx#stx-e _%tl138843138864%_)))) - (let ((_%hd138845138870%_ + (gx#stx-e _%tl140130140151%_)))) + (let ((_%hd140132140157%_ (let () (declare (not safe)) - (##car _%e138844138867%_))) - (_%tl138846138872%_ + (##car _%e140131140154%_))) + (_%tl140133140159%_ (let () (declare (not safe)) - (##cdr _%e138844138867%_)))) + (##cdr _%e140131140154%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138846138872%_)) - (let ((_%e138847138875%_ + (gx#stx-pair? _%tl140133140159%_)) + (let ((_%e140134140162%_ (let () (declare (not safe)) - (gx#stx-e _%tl138846138872%_)))) - (let ((_%hd138848138878%_ + (gx#stx-e _%tl140133140159%_)))) + (let ((_%hd140135140165%_ (let () (declare (not safe)) - (##car _%e138847138875%_))) - (_%tl138849138880%_ + (##car _%e140134140162%_))) + (_%tl140136140167%_ (let () (declare (not safe)) - (##cdr _%e138847138875%_)))) + (##cdr _%e140134140162%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138849138880%_)) - ((lambda (_%L138883%_ - _%L138884%_) + _%tl140136140167%_)) + ((lambda (_%L140170%_ + _%L140171%_) (cons '%#define-alias (cons (gxc#generate-runtime-identifier - _%L138884%_) + _%L140171%_) (cons (gxc#generate-runtime-identifier ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L138883%_) + _%L140170%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd138848138878%_ - _%hd138845138870%_) - (_%g138837138854%_ - _%g138838138857%_)))) - (_%g138837138854%_ _%g138838138857%_)))) - (_%g138837138854%_ _%g138838138857%_)))) - (_%g138837138854%_ _%g138838138857%_))))) - (_%g138836138899%_ _%stx138835%_)))) + _%hd140135140165%_ + _%hd140132140157%_) + (_%g140124140141%_ + _%g140125140144%_)))) + (_%g140124140141%_ _%g140125140144%_)))) + (_%g140124140141%_ _%g140125140144%_)))) + (_%g140124140141%_ _%g140125140144%_))))) + (_%g140123140186%_ _%stx140122%_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_%self138831%_ _%stx138832%_) + (lambda (_%self140118%_ _%stx140119%_) (gxc#meta-state-add-phi! - (let () (declare (not safe)) (slot-ref__0 _%self138831%_ 'state)) + (let () (declare (not safe)) (slot-ref__0 _%self140118%_ 'state)) (let () (declare (not safe)) (gx#current-expander-phi)) - _%stx138832%_) - (gxc#generate-meta-define-values% _%self138831%_ _%stx138832%_))) + _%stx140119%_) + (gxc#generate-meta-define-values% _%self140118%_ _%stx140119%_))) (define gxc#generate-meta-phi-expr - (lambda (_%self138828%_ _%stx138829%_) + (lambda (_%self140115%_ _%stx140116%_) (gxc#meta-state-add-phi! - (let () (declare (not safe)) (slot-ref__0 _%self138828%_ 'state)) + (let () (declare (not safe)) (slot-ref__0 _%self140115%_ 'state)) (let () (declare (not safe)) (gx#current-expander-phi)) - _%stx138829%_) + _%stx140116%_) '#!void)) (define gxc#meta-state::t - (let ((__tmp149021 (list)) (__tmp149020 (cons (cons 'struct: '#t) '()))) + (let ((__tmp150308 (list)) (__tmp150307 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#meta-state::t 'meta-state - __tmp149021 + __tmp150308 '(src n open blocks) - __tmp149020 + __tmp150307 ':init!))) (define gxc#meta-state? (let () (declare (not safe)) (__make-class-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _%$args138825%_ - (apply make-instance gxc#meta-state::t _%$args138825%_))) + (lambda _%$args140112%_ + (apply make-instance gxc#meta-state::t _%$args140112%_))) (define gxc#meta-state-src (let () (declare (not safe)) @@ -14421,77 +14421,77 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#meta-state::t 'blocks))) (define gxc#meta-state:::init! - (lambda (_%self138170138809%_ _%ctx138811%_) - (let* ((_%self138813%_ _%self138170138809%_) - (_%self138815%_ _%self138813%_)) - (if (let ((__tmp149022 + (lambda (_%self139457140096%_ _%ctx140098%_) + (let* ((_%self140100%_ _%self139457140096%_) + (_%self140102%_ _%self140100%_)) + (if (let ((__tmp150309 (let () (declare (not safe)) - (##structure-length _%self138815%_)))) + (##structure-length _%self140102%_)))) (declare (not safe)) - (##fx< '4 __tmp149022)) + (##fx< '4 __tmp150309)) (begin - (let ((__tmp149023 - (let ((__tmp149024 + (let ((__tmp150310 + (let ((__tmp150311 (##structure-ref - _%ctx138811%_ + _%ctx140098%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp149024)))) + (gxc#module-id->path-string __tmp150311)))) (declare (not safe)) (##unchecked-structure-set! - _%self138815%_ - __tmp149023 + _%self140102%_ + __tmp150310 '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self138815%_ '1 '2 '#f '#f)) - (let ((__tmp149025 + (##unchecked-structure-set! _%self140102%_ '1 '2 '#f '#f)) + (let ((__tmp150312 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self138815%_ - __tmp149025 + _%self140102%_ + __tmp150312 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self138815%_ '() '4 '#f '#f)) + (##unchecked-structure-set! _%self140102%_ '() '4 '#f '#f)) '#!void) - (let ((__tmp149026 + (let ((__tmp150313 (let () (declare (not safe)) - (##vector-length _%self138815%_)))) + (##vector-length _%self140102%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self138815%_ + _%self140102%_ '4 - __tmp149026)))))) + __tmp150313)))))) (let () (declare (not safe)) (__bind-method!__% gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (let ((__tmp149028 (list)) (__tmp149027 (cons (cons 'struct: '#t) '()))) + (let ((__tmp150315 (list)) (__tmp150314 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#meta-state-block::t 'meta-state-block - __tmp149028 + __tmp150315 '(ctx phi n code) - __tmp149027 + __tmp150314 '#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 _%$args138684%_ - (apply make-instance gxc#meta-state-block::t _%$args138684%_))) + (lambda _%$args139971%_ + (apply make-instance gxc#meta-state-block::t _%$args139971%_))) (define gxc#meta-state-block-ctx (let () (declare (not safe)) @@ -14557,100 +14557,100 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#meta-state-block::t 'code))) (define gxc#meta-state-begin-phi! - (lambda (_%state138643%_ _%phi138644%_) - (let* ((_%state138645138653%_ _%state138643%_) - (_%E138647138657%_ + (lambda (_%state139930%_ _%phi139931%_) + (let* ((_%state139932139940%_ _%state139930%_) + (_%E139934139944%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%state138645138653%_ + _%state139932139940%_ '((meta-state src n open)))) '#!void)) - (_%K138648138666%_ - (lambda (_%open138660%_ _%n138661%_ _%src138662%_) + (_%K139935139953%_ + (lambda (_%open139947%_ _%n139948%_ _%src139949%_) (if (let () (declare (not safe)) - (hash-get _%open138660%_ _%phi138644%_)) + (hash-get _%open139947%_ _%phi139931%_)) '#f - (let ((_%block-ref138664%_ - (let ((__tmp149029 (number->string _%n138661%_))) + (let ((_%block-ref139951%_ + (let ((__tmp150316 (number->string _%n139948%_))) (declare (not safe)) (##string-append - _%src138662%_ + _%src139949%_ '"~" - __tmp149029)))) + __tmp150316)))) (##structure-set! - _%state138643%_ - (let () (declare (not safe)) (##fx+ _%n138661%_ '1)) + _%state139930%_ + (let () (declare (not safe)) (##fx+ _%n139948%_ '1)) '2 gxc#meta-state::t '#f) - (let ((__tmp149030 - (let ((__tmp149031 + (let ((__tmp150317 + (let ((__tmp150318 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) (##structure gxc#meta-state-block::t - __tmp149031 - _%phi138644%_ - _%n138661%_ + __tmp150318 + _%phi139931%_ + _%n139948%_ '())))) (declare (not safe)) - (hash-put! _%open138660%_ _%phi138644%_ __tmp149030)) - _%block-ref138664%_))))) + (hash-put! _%open139947%_ _%phi139931%_ __tmp150317)) + _%block-ref139951%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%state138645138653%_ + _%state139932139940%_ 'gxc#meta-state::t)) - (let* ((_%e138649138669%_ + (let* ((_%e139936139956%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state138645138653%_ + _%state139932139940%_ '1 '#f '#f))) - (_%src138672%_ _%e138649138669%_) - (_%e138650138674%_ + (_%src139959%_ _%e139936139956%_) + (_%e139937139961%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state138645138653%_ + _%state139932139940%_ '2 '#f '#f))) - (_%n138677%_ _%e138650138674%_) - (_%e138651138679%_ + (_%n139964%_ _%e139937139961%_) + (_%e139938139966%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state138645138653%_ + _%state139932139940%_ '3 '#f '#f))) - (_%open138682%_ _%e138651138679%_)) - (_%K138648138666%_ _%open138682%_ _%n138677%_ _%src138672%_)) - (_%E138647138657%_))))) + (_%open139969%_ _%e139938139966%_)) + (_%K139935139953%_ _%open139969%_ _%n139964%_ _%src139959%_)) + (_%E139934139944%_))))) (define gxc#meta-state-add-phi! - (lambda (_%state138637%_ _%phi138638%_ _%stx138639%_) - (let ((_%block138641%_ - (let ((__tmp149032 + (lambda (_%state139924%_ _%phi139925%_ _%stx139926%_) + (let ((_%block139928%_ + (let ((__tmp150319 (##structure-ref - _%state138637%_ + _%state139924%_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-get __tmp149032 _%phi138638%_)))) + (hash-get __tmp150319 _%phi139925%_)))) (##structure-set! - _%block138641%_ - (cons _%stx138639%_ + _%block139928%_ + (cons _%stx139926%_ (##structure-ref - _%block138641%_ + _%block139928%_ '4 gxc#meta-state-block::t '#f)) @@ -14658,264 +14658,264 @@ gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_%state138631%_) + (lambda (_%state139918%_) (##structure-set! - _%state138631%_ - (let ((__tmp149035 - (lambda (_%_138633%_ _%block138634%_ _%r138635%_) - (cons _%block138634%_ _%r138635%_))) - (__tmp149034 - (##structure-ref _%state138631%_ '4 gxc#meta-state::t '#f)) - (__tmp149033 - (##structure-ref _%state138631%_ '3 gxc#meta-state::t '#f))) + _%state139918%_ + (let ((__tmp150322 + (lambda (_%_139920%_ _%block139921%_ _%r139922%_) + (cons _%block139921%_ _%r139922%_))) + (__tmp150321 + (##structure-ref _%state139918%_ '4 gxc#meta-state::t '#f)) + (__tmp150320 + (##structure-ref _%state139918%_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-fold __tmp149035 __tmp149034 __tmp149033)) + (hash-fold __tmp150322 __tmp150321 __tmp150320)) '4 gxc#meta-state::t '#f) (##structure-set! - _%state138631%_ + _%state139918%_ (let () (declare (not safe)) (make-hash-table-eq)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_%state138583%_) - (gxc#meta-state-end-phi! _%state138583%_) - (let ((__tmp149037 - (lambda (_%block138585%_ _%r138586%_) - (let* ((_%block138587138596%_ _%block138585%_) - (_%E138589138600%_ + (lambda (_%state139870%_) + (gxc#meta-state-end-phi! _%state139870%_) + (let ((__tmp150324 + (lambda (_%block139872%_ _%r139873%_) + (let* ((_%block139874139883%_ _%block139872%_) + (_%E139876139887%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block138587138596%_ + _%block139874139883%_ '((meta-state-block ctx phi n code)))) '#!void)) - (_%K138590138608%_ - (lambda (_%code138603%_ - _%n138604%_ - _%phi138605%_ - _%ctx138606%_) - (if (null? _%code138603%_) - _%r138586%_ - (cons (cons _%ctx138606%_ - (cons _%phi138605%_ - (cons _%n138604%_ + (_%K139877139895%_ + (lambda (_%code139890%_ + _%n139891%_ + _%phi139892%_ + _%ctx139893%_) + (if (null? _%code139890%_) + _%r139873%_ + (cons (cons _%ctx139893%_ + (cons _%phi139892%_ + (cons _%n139891%_ (cons (cons '%#begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse _%code138603%_)) + (reverse _%code139890%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r138586%_))))) + _%r139873%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%block138587138596%_ + _%block139874139883%_ 'gxc#meta-state-block::t)) - (let* ((_%e138591138611%_ + (let* ((_%e139878139898%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138587138596%_ + _%block139874139883%_ '1 '#f '#f))) - (_%ctx138614%_ _%e138591138611%_) - (_%e138592138616%_ + (_%ctx139901%_ _%e139878139898%_) + (_%e139879139903%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138587138596%_ + _%block139874139883%_ '2 '#f '#f))) - (_%phi138619%_ _%e138592138616%_) - (_%e138593138621%_ + (_%phi139906%_ _%e139879139903%_) + (_%e139880139908%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138587138596%_ + _%block139874139883%_ '3 '#f '#f))) - (_%n138624%_ _%e138593138621%_) - (_%e138594138626%_ + (_%n139911%_ _%e139880139908%_) + (_%e139881139913%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138587138596%_ + _%block139874139883%_ '4 '#f '#f))) - (_%code138629%_ _%e138594138626%_)) - (_%K138590138608%_ - _%code138629%_ - _%n138624%_ - _%phi138619%_ - _%ctx138614%_)) - (_%E138589138600%_))))) - (__tmp149036 - (##structure-ref _%state138583%_ '4 gxc#meta-state::t '#f))) + (_%code139916%_ _%e139881139913%_)) + (_%K139877139895%_ + _%code139916%_ + _%n139911%_ + _%phi139906%_ + _%ctx139901%_)) + (_%E139876139887%_))))) + (__tmp150323 + (##structure-ref _%state139870%_ '4 gxc#meta-state::t '#f))) (declare (not safe)) - (__foldl1 __tmp149037 '() __tmp149036)))) + (__foldl1 __tmp150324 '() __tmp150323)))) (define gxc#collect-expression-refs - (lambda (_%stx138579%_) - (let ((_%ht138581%_ + (lambda (_%stx139866%_) + (let ((_%ht139868%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (gxc#apply-collect-expression-refs__% '#f _%ht138581%_ _%stx138579%_) - _%ht138581%_))) + (gxc#apply-collect-expression-refs__% '#f _%ht139868%_ _%stx139866%_) + _%ht139868%_))) (define gxc#collect-refs-ref% - (lambda (_%self138522%_ _%stx138523%_) - (let* ((_%g138525138538%_ - (lambda (_%g138526138535%_) + (lambda (_%self139809%_ _%stx139810%_) + (let* ((_%g139812139825%_ + (lambda (_%g139813139822%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138526138535%_)))) - (_%g138524138576%_ - (lambda (_%g138526138541%_) + _%g139813139822%_)))) + (_%g139811139863%_ + (lambda (_%g139813139828%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138526138541%_)) - (let ((_%e138528138543%_ + (gx#stx-pair? _%g139813139828%_)) + (let ((_%e139815139830%_ (let () (declare (not safe)) - (gx#stx-e _%g138526138541%_)))) - (let ((_%hd138529138546%_ + (gx#stx-e _%g139813139828%_)))) + (let ((_%hd139816139833%_ (let () (declare (not safe)) - (##car _%e138528138543%_))) - (_%tl138530138548%_ + (##car _%e139815139830%_))) + (_%tl139817139835%_ (let () (declare (not safe)) - (##cdr _%e138528138543%_)))) + (##cdr _%e139815139830%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138530138548%_)) - (let ((_%e138531138551%_ + (gx#stx-pair? _%tl139817139835%_)) + (let ((_%e139818139838%_ (let () (declare (not safe)) - (gx#stx-e _%tl138530138548%_)))) - (let ((_%hd138532138554%_ + (gx#stx-e _%tl139817139835%_)))) + (let ((_%hd139819139841%_ (let () (declare (not safe)) - (##car _%e138531138551%_))) - (_%tl138533138556%_ + (##car _%e139818139838%_))) + (_%tl139820139843%_ (let () (declare (not safe)) - (##cdr _%e138531138551%_)))) + (##cdr _%e139818139838%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138533138556%_)) - ((lambda (_%L138559%_) - (let* ((_%bind138571%_ + (gx#stx-null? _%tl139820139843%_)) + ((lambda (_%L139846%_) + (let* ((_%bind139858%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L138559%_))) - (_%eid138573%_ - (if _%bind138571%_ + _%L139846%_))) + (_%eid139860%_ + (if _%bind139858%_ (##structure-ref - _%bind138571%_ + _%bind139858%_ '1 gx#binding::t '#f) (let () (declare (not safe)) (gx#stx-e - _%L138559%_)))) - (__tmp149038 + _%L139846%_)))) + (__tmp150325 (let () (declare (not safe)) (slot-ref__0 - _%self138522%_ + _%self139809%_ 'table)))) (declare (not safe)) (hash-put! - __tmp149038 - _%eid138573%_ - _%eid138573%_))) - _%hd138532138554%_) - (_%g138525138538%_ _%g138526138541%_)))) - (_%g138525138538%_ _%g138526138541%_)))) - (_%g138525138538%_ _%g138526138541%_))))) - (_%g138524138576%_ _%stx138523%_)))) + __tmp150325 + _%eid139860%_ + _%eid139860%_))) + _%hd139819139841%_) + (_%g139812139825%_ _%g139813139828%_)))) + (_%g139812139825%_ _%g139813139828%_)))) + (_%g139812139825%_ _%g139813139828%_))))) + (_%g139811139863%_ _%stx139810%_)))) (define gxc#collect-refs-setq% - (lambda (_%self138449%_ _%stx138450%_) - (let* ((_%g138452138469%_ - (lambda (_%g138453138466%_) + (lambda (_%self139736%_ _%stx139737%_) + (let* ((_%g139739139756%_ + (lambda (_%g139740139753%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138453138466%_)))) - (_%g138451138519%_ - (lambda (_%g138453138472%_) + _%g139740139753%_)))) + (_%g139738139806%_ + (lambda (_%g139740139759%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138453138472%_)) - (let ((_%e138456138474%_ + (gx#stx-pair? _%g139740139759%_)) + (let ((_%e139743139761%_ (let () (declare (not safe)) - (gx#stx-e _%g138453138472%_)))) - (let ((_%hd138457138477%_ + (gx#stx-e _%g139740139759%_)))) + (let ((_%hd139744139764%_ (let () (declare (not safe)) - (##car _%e138456138474%_))) - (_%tl138458138479%_ + (##car _%e139743139761%_))) + (_%tl139745139766%_ (let () (declare (not safe)) - (##cdr _%e138456138474%_)))) + (##cdr _%e139743139761%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138458138479%_)) - (let ((_%e138459138482%_ + (gx#stx-pair? _%tl139745139766%_)) + (let ((_%e139746139769%_ (let () (declare (not safe)) - (gx#stx-e _%tl138458138479%_)))) - (let ((_%hd138460138485%_ + (gx#stx-e _%tl139745139766%_)))) + (let ((_%hd139747139772%_ (let () (declare (not safe)) - (##car _%e138459138482%_))) - (_%tl138461138487%_ + (##car _%e139746139769%_))) + (_%tl139748139774%_ (let () (declare (not safe)) - (##cdr _%e138459138482%_)))) + (##cdr _%e139746139769%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138461138487%_)) - (let ((_%e138462138490%_ + (gx#stx-pair? _%tl139748139774%_)) + (let ((_%e139749139777%_ (let () (declare (not safe)) - (gx#stx-e _%tl138461138487%_)))) - (let ((_%hd138463138493%_ + (gx#stx-e _%tl139748139774%_)))) + (let ((_%hd139750139780%_ (let () (declare (not safe)) - (##car _%e138462138490%_))) - (_%tl138464138495%_ + (##car _%e139749139777%_))) + (_%tl139751139782%_ (let () (declare (not safe)) - (##cdr _%e138462138490%_)))) + (##cdr _%e139749139777%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138464138495%_)) - ((lambda (_%L138498%_ - _%L138499%_) - (let* ((_%bind138514%_ + _%tl139751139782%_)) + ((lambda (_%L139785%_ + _%L139786%_) + (let* ((_%bind139801%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L138499%_))) - (_%eid138516%_ - (if _%bind138514%_ + _%L139786%_))) + (_%eid139803%_ + (if _%bind139801%_ (##structure-ref - _%bind138514%_ + _%bind139801%_ '1 gx#binding::t '#f) @@ -14923,382 +14923,382 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L138499%_))))) + (gx#stx-e _%L139786%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp149039 + (let ((__tmp150326 (let () (declare (not safe)) (slot-ref__0 - _%self138449%_ + _%self139736%_ 'table)))) (declare (not safe)) (hash-put! - __tmp149039 - _%eid138516%_ - _%eid138516%_)) + __tmp150326 + _%eid139803%_ + _%eid139803%_)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self138449%_ - _%L138498%_)))) - _%hd138463138493%_ - _%hd138460138485%_) - (_%g138452138469%_ - _%g138453138472%_)))) - (_%g138452138469%_ _%g138453138472%_)))) - (_%g138452138469%_ _%g138453138472%_)))) - (_%g138452138469%_ _%g138453138472%_))))) - (_%g138451138519%_ _%stx138450%_)))) + _%self139736%_ + _%L139785%_)))) + _%hd139750139780%_ + _%hd139747139772%_) + (_%g139739139756%_ + _%g139740139759%_)))) + (_%g139739139756%_ _%g139740139759%_)))) + (_%g139739139756%_ _%g139740139759%_)))) + (_%g139739139756%_ _%g139740139759%_))))) + (_%g139738139806%_ _%stx139737%_)))) (define gxc#find-runtime-begin% - (lambda (_%self138406%_ _%stx138407%_) - (let* ((_%g138409138419%_ - (lambda (_%g138410138416%_) + (lambda (_%self139693%_ _%stx139694%_) + (let* ((_%g139696139706%_ + (lambda (_%g139697139703%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138410138416%_)))) - (_%g138408138446%_ - (lambda (_%g138410138422%_) + _%g139697139703%_)))) + (_%g139695139733%_ + (lambda (_%g139697139709%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138410138422%_)) - (let ((_%e138412138424%_ + (gx#stx-pair? _%g139697139709%_)) + (let ((_%e139699139711%_ (let () (declare (not safe)) - (gx#stx-e _%g138410138422%_)))) - (let ((_%hd138413138427%_ + (gx#stx-e _%g139697139709%_)))) + (let ((_%hd139700139714%_ (let () (declare (not safe)) - (##car _%e138412138424%_))) - (_%tl138414138429%_ + (##car _%e139699139711%_))) + (_%tl139701139716%_ (let () (declare (not safe)) - (##cdr _%e138412138424%_)))) - ((lambda (_%L138432%_) - (let ((__tmp149040 - (lambda (_%g138441138443%_) + (##cdr _%e139699139711%_)))) + ((lambda (_%L139719%_) + (let ((__tmp150327 + (lambda (_%g139728139730%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self138406%_ - _%g138441138443%_))))) + _%self139693%_ + _%g139728139730%_))))) (declare (not safe)) - (__ormap1 __tmp149040 _%L138432%_))) - _%tl138414138429%_))) - (_%g138409138419%_ _%g138410138422%_))))) - (_%g138408138446%_ _%stx138407%_)))) + (__ormap1 __tmp150327 _%L139719%_))) + _%tl139701139716%_))) + (_%g139696139706%_ _%g139697139709%_))))) + (_%g139695139733%_ _%stx139694%_)))) (define gxc#count-values-single% - (lambda (_%self138403%_ _%stx138404%_) '1)) + (lambda (_%self139690%_ _%stx139691%_) '1)) (define gxc#count-values-call% - (lambda (_%self138269%_ _%stx138270%_) - (let* ((_%__stx148783148784%_ _%stx138270%_) - (_%g138273138302%_ + (lambda (_%self139556%_ _%stx139557%_) + (let* ((_%__stx150070150071%_ _%stx139557%_) + (_%g139560139589%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148783148784%_))))) - (let ((_%__kont148785148786%_ - (lambda (_%L138370%_ _%L138371%_) - (length (let ((__tmp149041 - (lambda (_%g138392138395%_ _%g138393138397%_) - (cons _%g138392138395%_ - _%g138393138397%_)))) + _%__stx150070150071%_))))) + (let ((_%__kont150072150073%_ + (lambda (_%L139657%_ _%L139658%_) + (length (let ((__tmp150328 + (lambda (_%g139679139682%_ _%g139680139684%_) + (cons _%g139679139682%_ + _%g139680139684%_)))) (declare (not safe)) - (__foldr1 __tmp149041 '() _%L138370%_))))) - (_%__kont148789148790%_ (lambda () '#f))) - (let ((_%__match148828148829%_ - (lambda (_%e138277138314%_ - _%hd138278138317%_ - _%tl138279138319%_ - _%e138280138322%_ - _%hd138281138325%_ - _%tl138282138327%_ - _%e138283138330%_ - _%hd138284138333%_ - _%tl138285138335%_ - _%e138286138338%_ - _%hd138287138341%_ - _%tl138288138343%_ - _%__splice148787148788%_ - _%target138289138346%_ - _%tl138291138348%_) - (letrec ((_%loop138292138351%_ - (lambda (_%hd138290138354%_ - _%rand138296138356%_) + (__foldr1 __tmp150328 '() _%L139657%_))))) + (_%__kont150076150077%_ (lambda () '#f))) + (let ((_%__match150115150116%_ + (lambda (_%e139564139601%_ + _%hd139565139604%_ + _%tl139566139606%_ + _%e139567139609%_ + _%hd139568139612%_ + _%tl139569139614%_ + _%e139570139617%_ + _%hd139571139620%_ + _%tl139572139622%_ + _%e139573139625%_ + _%hd139574139628%_ + _%tl139575139630%_ + _%__splice150074150075%_ + _%target139576139633%_ + _%tl139578139635%_) + (letrec ((_%loop139579139638%_ + (lambda (_%hd139577139641%_ + _%rand139583139643%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd138290138354%_)) - (let ((_%e138293138359%_ + (gx#stx-pair? _%hd139577139641%_)) + (let ((_%e139580139646%_ (let () (declare (not safe)) - (gx#stx-e _%hd138290138354%_)))) - (let ((_%lp-tl138295138364%_ + (gx#stx-e _%hd139577139641%_)))) + (let ((_%lp-tl139582139651%_ (let () (declare (not safe)) - (##cdr _%e138293138359%_))) - (_%lp-hd138294138362%_ + (##cdr _%e139580139646%_))) + (_%lp-hd139581139649%_ (let () (declare (not safe)) - (##car _%e138293138359%_)))) - (_%loop138292138351%_ - _%lp-tl138295138364%_ - (cons _%lp-hd138294138362%_ - _%rand138296138356%_)))) - (let ((_%rand138297138367%_ - (reverse _%rand138296138356%_))) - (let ((_%L138370%_ _%rand138297138367%_) - (_%L138371%_ _%hd138287138341%_)) + (##car _%e139580139646%_)))) + (_%loop139579139638%_ + _%lp-tl139582139651%_ + (cons _%lp-hd139581139649%_ + _%rand139583139643%_)))) + (let ((_%rand139584139654%_ + (reverse _%rand139583139643%_))) + (let ((_%L139657%_ _%rand139584139654%_) + (_%L139658%_ _%hd139574139628%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L138371%_ + _%L139658%_ 'values)) - (_%__kont148785148786%_ - _%L138370%_ - _%L138371%_) - (_%__kont148789148790%_)))))))) - (_%loop138292138351%_ _%target138289138346%_ '()))))) + (_%__kont150072150073%_ + _%L139657%_ + _%L139658%_) + (_%__kont150076150077%_)))))))) + (_%loop139579139638%_ _%target139576139633%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148783148784%_)) - (let ((_%e138277138314%_ + (gx#stx-pair? _%__stx150070150071%_)) + (let ((_%e139564139601%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148783148784%_)))) - (let ((_%tl138279138319%_ + (gx#stx-e _%__stx150070150071%_)))) + (let ((_%tl139566139606%_ (let () (declare (not safe)) - (##cdr _%e138277138314%_))) - (_%hd138278138317%_ + (##cdr _%e139564139601%_))) + (_%hd139565139604%_ (let () (declare (not safe)) - (##car _%e138277138314%_)))) + (##car _%e139564139601%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138279138319%_)) - (let ((_%e138280138322%_ + (gx#stx-pair? _%tl139566139606%_)) + (let ((_%e139567139609%_ (let () (declare (not safe)) - (gx#stx-e _%tl138279138319%_)))) - (let ((_%tl138282138327%_ + (gx#stx-e _%tl139566139606%_)))) + (let ((_%tl139569139614%_ (let () (declare (not safe)) - (##cdr _%e138280138322%_))) - (_%hd138281138325%_ + (##cdr _%e139567139609%_))) + (_%hd139568139612%_ (let () (declare (not safe)) - (##car _%e138280138322%_)))) + (##car _%e139567139609%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd138281138325%_)) - (let ((_%e138283138330%_ + (gx#stx-pair? _%hd139568139612%_)) + (let ((_%e139570139617%_ (let () (declare (not safe)) - (gx#stx-e _%hd138281138325%_)))) - (let ((_%tl138285138335%_ + (gx#stx-e _%hd139568139612%_)))) + (let ((_%tl139572139622%_ (let () (declare (not safe)) - (##cdr _%e138283138330%_))) - (_%hd138284138333%_ + (##cdr _%e139570139617%_))) + (_%hd139571139620%_ (let () (declare (not safe)) - (##car _%e138283138330%_)))) + (##car _%e139570139617%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd138284138333%_)) + _%hd139571139620%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd138284138333%_)) + _%hd139571139620%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138285138335%_)) - (let ((_%e138286138338%_ + _%tl139572139622%_)) + (let ((_%e139573139625%_ (let () (declare (not safe)) (gx#stx-e - _%tl138285138335%_)))) - (let ((_%tl138288138343%_ + _%tl139572139622%_)))) + (let ((_%tl139575139630%_ (let () (declare (not safe)) - (##cdr _%e138286138338%_))) - (_%hd138287138341%_ + (##cdr _%e139573139625%_))) + (_%hd139574139628%_ (let () (declare (not safe)) - (##car _%e138286138338%_)))) + (##car _%e139573139625%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138288138343%_)) + _%tl139575139630%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl138282138327%_)) - (let ((_%__splice148787148788%_ + (gx#stx-pair/null? _%tl139569139614%_)) + (let ((_%__splice150074150075%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl138282138327%_ + _%tl139569139614%_ '0)))) - (let ((_%tl138291138348%_ + (let ((_%tl139578139635%_ (let () (declare (not safe)) - (##vector-ref _%__splice148787148788%_ '1))) - (_%target138289138346%_ + (##vector-ref _%__splice150074150075%_ '1))) + (_%target139576139633%_ (let () (declare (not safe)) - (##vector-ref _%__splice148787148788%_ '0)))) + (##vector-ref _%__splice150074150075%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138291138348%_)) - (_%__match148828148829%_ - _%e138277138314%_ - _%hd138278138317%_ - _%tl138279138319%_ - _%e138280138322%_ - _%hd138281138325%_ - _%tl138282138327%_ - _%e138283138330%_ - _%hd138284138333%_ - _%tl138285138335%_ - _%e138286138338%_ - _%hd138287138341%_ - _%tl138288138343%_ - _%__splice148787148788%_ - _%target138289138346%_ - _%tl138291138348%_) - (_%__kont148789148790%_)))) - (_%__kont148789148790%_)) - (_%__kont148789148790%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148789148790%_)) - (_%__kont148789148790%_)) - (_%__kont148789148790%_)))) - (_%__kont148789148790%_)))) - (_%__kont148789148790%_)))) - (_%__kont148789148790%_))))))) + (gx#stx-null? _%tl139578139635%_)) + (_%__match150115150116%_ + _%e139564139601%_ + _%hd139565139604%_ + _%tl139566139606%_ + _%e139567139609%_ + _%hd139568139612%_ + _%tl139569139614%_ + _%e139570139617%_ + _%hd139571139620%_ + _%tl139572139622%_ + _%e139573139625%_ + _%hd139574139628%_ + _%tl139575139630%_ + _%__splice150074150075%_ + _%target139576139633%_ + _%tl139578139635%_) + (_%__kont150076150077%_)))) + (_%__kont150076150077%_)) + (_%__kont150076150077%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont150076150077%_)) + (_%__kont150076150077%_)) + (_%__kont150076150077%_)))) + (_%__kont150076150077%_)))) + (_%__kont150076150077%_)))) + (_%__kont150076150077%_))))))) (define gxc#count-values-if% - (lambda (_%self138172%_ _%stx138173%_) - (let* ((_%g138175138196%_ - (lambda (_%g138176138193%_) + (lambda (_%self139459%_ _%stx139460%_) + (let* ((_%g139462139483%_ + (lambda (_%g139463139480%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138176138193%_)))) - (_%g138174138266%_ - (lambda (_%g138176138199%_) + _%g139463139480%_)))) + (_%g139461139553%_ + (lambda (_%g139463139486%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138176138199%_)) - (let ((_%e138180138201%_ + (gx#stx-pair? _%g139463139486%_)) + (let ((_%e139467139488%_ (let () (declare (not safe)) - (gx#stx-e _%g138176138199%_)))) - (let ((_%hd138181138204%_ + (gx#stx-e _%g139463139486%_)))) + (let ((_%hd139468139491%_ (let () (declare (not safe)) - (##car _%e138180138201%_))) - (_%tl138182138206%_ + (##car _%e139467139488%_))) + (_%tl139469139493%_ (let () (declare (not safe)) - (##cdr _%e138180138201%_)))) + (##cdr _%e139467139488%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138182138206%_)) - (let ((_%e138183138209%_ + (gx#stx-pair? _%tl139469139493%_)) + (let ((_%e139470139496%_ (let () (declare (not safe)) - (gx#stx-e _%tl138182138206%_)))) - (let ((_%hd138184138212%_ + (gx#stx-e _%tl139469139493%_)))) + (let ((_%hd139471139499%_ (let () (declare (not safe)) - (##car _%e138183138209%_))) - (_%tl138185138214%_ + (##car _%e139470139496%_))) + (_%tl139472139501%_ (let () (declare (not safe)) - (##cdr _%e138183138209%_)))) + (##cdr _%e139470139496%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138185138214%_)) - (let ((_%e138186138217%_ + (gx#stx-pair? _%tl139472139501%_)) + (let ((_%e139473139504%_ (let () (declare (not safe)) - (gx#stx-e _%tl138185138214%_)))) - (let ((_%hd138187138220%_ + (gx#stx-e _%tl139472139501%_)))) + (let ((_%hd139474139507%_ (let () (declare (not safe)) - (##car _%e138186138217%_))) - (_%tl138188138222%_ + (##car _%e139473139504%_))) + (_%tl139475139509%_ (let () (declare (not safe)) - (##cdr _%e138186138217%_)))) + (##cdr _%e139473139504%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138188138222%_)) - (let ((_%e138189138225%_ + _%tl139475139509%_)) + (let ((_%e139476139512%_ (let () (declare (not safe)) (gx#stx-e - _%tl138188138222%_)))) - (let ((_%hd138190138228%_ + _%tl139475139509%_)))) + (let ((_%hd139477139515%_ (let () (declare (not safe)) - (##car _%e138189138225%_))) - (_%tl138191138230%_ + (##car _%e139476139512%_))) + (_%tl139478139517%_ (let () (declare (not safe)) - (##cdr _%e138189138225%_)))) + (##cdr _%e139476139512%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138191138230%_)) - ((lambda (_%L138233%_ - _%L138234%_ - _%L138235%_) - (let ((_%c1138252138254%_ + _%tl139478139517%_)) + ((lambda (_%L139520%_ + _%L139521%_ + _%L139522%_) + (let ((_%c1139539139541%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self138172%_ _%L138234%_)))) - (if _%c1138252138254%_ - (let* ((_%c1138257%_ _%c1138252138254%_) - (_%c2138258138260%_ + (gxc#compile-e__1 _%self139459%_ _%L139521%_)))) + (if _%c1139539139541%_ + (let* ((_%c1139544%_ _%c1139539139541%_) + (_%c2139545139547%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self138172%_ - _%L138233%_)))) - (if _%c2138258138260%_ - (let ((_%c2138263%_ _%c2138258138260%_)) - (if (fx= _%c1138257%_ _%c2138263%_) - _%c1138257%_ + _%self139459%_ + _%L139520%_)))) + (if _%c2139545139547%_ + (let ((_%c2139550%_ _%c2139545139547%_)) + (if (fx= _%c1139544%_ _%c2139550%_) + _%c1139544%_ '#f)) '#f)) '#f))) - _%hd138190138228%_ - _%hd138187138220%_ - _%hd138184138212%_) - (_%g138175138196%_ _%g138176138199%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g138175138196%_ - _%g138176138199%_)))) - (_%g138175138196%_ _%g138176138199%_)))) - (_%g138175138196%_ _%g138176138199%_)))) - (_%g138175138196%_ _%g138176138199%_))))) - (_%g138174138266%_ _%stx138173%_)))))) + _%hd139477139515%_ + _%hd139474139507%_ + _%hd139471139499%_) + (_%g139462139483%_ _%g139463139486%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g139462139483%_ + _%g139463139486%_)))) + (_%g139462139483%_ _%g139463139486%_)))) + (_%g139462139483%_ _%g139463139486%_)))) + (_%g139462139483%_ _%g139463139486%_))))) + (_%g139461139553%_ _%stx139460%_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~1.scm b/src/bootstrap/gerbil/compiler/compile~1.scm index 333b508a4..85d8e6286 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]#_g149043_| + (define |gxc[1]#_g150330_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149045_| + (define |gxc[1]#_g150332_| (##structure gx#syntax-quote::t '::collect-bindings::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149047_| + (define |gxc[1]#_g150334_| (##structure gx#syntax-quote::t 'make-::collect-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149049_| + (define |gxc[1]#_g150336_| (##structure gx#syntax-quote::t '::collect-bindings? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149052_| + (define |gxc[1]#_g150339_| (##structure gx#syntax-quote::t '::lift-modules::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149054_| + (define |gxc[1]#_g150341_| (##structure gx#syntax-quote::t 'make-::lift-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149056_| + (define |gxc[1]#_g150343_| (##structure gx#syntax-quote::t '::lift-modules? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149058_| + (define |gxc[1]#_g150345_| (##structure gx#syntax-quote::t '::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149060_| + (define |gxc[1]#_g150347_| (##structure gx#syntax-quote::t '::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149062_| + (define |gxc[1]#_g150349_| (##structure gx#syntax-quote::t '&::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149064_| + (define |gxc[1]#_g150351_| (##structure gx#syntax-quote::t '&::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149066_| + (define |gxc[1]#_g150353_| (##structure gx#syntax-quote::t '::find-runtime-code::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149068_| + (define |gxc[1]#_g150355_| (##structure gx#syntax-quote::t 'make-::find-runtime-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149070_| + (define |gxc[1]#_g150357_| (##structure gx#syntax-quote::t '::find-runtime-code? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149072_| + (define |gxc[1]#_g150359_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149074_| + (define |gxc[1]#_g150361_| (##structure gx#syntax-quote::t '::find-lambda-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149076_| + (define |gxc[1]#_g150363_| (##structure gx#syntax-quote::t 'make-::find-lambda-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149078_| + (define |gxc[1]#_g150365_| (##structure gx#syntax-quote::t '::find-lambda-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149080_| + (define |gxc[1]#_g150367_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149082_| + (define |gxc[1]#_g150369_| (##structure gx#syntax-quote::t '::count-values::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149084_| + (define |gxc[1]#_g150371_| (##structure gx#syntax-quote::t 'make-::count-values #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149086_| + (define |gxc[1]#_g150373_| (##structure gx#syntax-quote::t '::count-values? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149088_| + (define |gxc[1]#_g150375_| (##structure gx#syntax-quote::t '::generate-runtime-empty::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149090_| + (define |gxc[1]#_g150377_| (##structure gx#syntax-quote::t 'make-::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149092_| + (define |gxc[1]#_g150379_| (##structure gx#syntax-quote::t '::generate-runtime-empty? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149094_| + (define |gxc[1]#_g150381_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149096_| + (define |gxc[1]#_g150383_| (##structure gx#syntax-quote::t '::generate-loader::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149098_| + (define |gxc[1]#_g150385_| (##structure gx#syntax-quote::t 'make-::generate-loader #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149100_| + (define |gxc[1]#_g150387_| (##structure gx#syntax-quote::t '::generate-loader? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149103_| + (define |gxc[1]#_g150390_| (##structure gx#syntax-quote::t '::generate-runtime::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149105_| + (define |gxc[1]#_g150392_| (##structure gx#syntax-quote::t 'make-::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149107_| + (define |gxc[1]#_g150394_| (##structure gx#syntax-quote::t '::generate-runtime? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149109_| + (define |gxc[1]#_g150396_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149111_| + (define |gxc[1]#_g150398_| (##structure gx#syntax-quote::t '::generate-runtime-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149113_| + (define |gxc[1]#_g150400_| (##structure gx#syntax-quote::t 'make-::generate-runtime-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149115_| + (define |gxc[1]#_g150402_| (##structure gx#syntax-quote::t '::generate-runtime-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149117_| + (define |gxc[1]#_g150404_| (##structure gx#syntax-quote::t '::collect-expression-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149119_| + (define |gxc[1]#_g150406_| (##structure gx#syntax-quote::t 'make-::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149121_| + (define |gxc[1]#_g150408_| (##structure gx#syntax-quote::t '::collect-expression-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149123_| + (define |gxc[1]#_g150410_| (##structure gx#syntax-quote::t '::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149125_| + (define |gxc[1]#_g150412_| (##structure gx#syntax-quote::t '::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149127_| + (define |gxc[1]#_g150414_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149129_| + (define |gxc[1]#_g150416_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149131_| + (define |gxc[1]#_g150418_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149133_| + (define |gxc[1]#_g150420_| (##structure gx#syntax-quote::t '::generate-meta::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149135_| + (define |gxc[1]#_g150422_| (##structure gx#syntax-quote::t 'make-::generate-meta #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149137_| + (define |gxc[1]#_g150424_| (##structure gx#syntax-quote::t '::generate-meta? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149139_| + (define |gxc[1]#_g150426_| (##structure gx#syntax-quote::t '::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149141_| + (define |gxc[1]#_g150428_| (##structure gx#syntax-quote::t '::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149143_| + (define |gxc[1]#_g150430_| (##structure gx#syntax-quote::t '&::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149145_| + (define |gxc[1]#_g150432_| (##structure gx#syntax-quote::t '&::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149147_| + (define |gxc[1]#_g150434_| (##structure gx#syntax-quote::t '::generate-meta-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149149_| + (define |gxc[1]#_g150436_| (##structure gx#syntax-quote::t 'make-::generate-meta-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149151_| + (define |gxc[1]#_g150438_| (##structure gx#syntax-quote::t '::generate-meta-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149153_| + (define |gxc[1]#_g150440_| (##structure gx#syntax-quote::t '::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149155_| + (define |gxc[1]#_g150442_| (##structure gx#syntax-quote::t '::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149157_| + (define |gxc[1]#_g150444_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149159_| + (define |gxc[1]#_g150446_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149164_| + (define |gxc[1]#_g150451_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149166_| + (define |gxc[1]#_g150453_| (##structure gx#syntax-quote::t 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149168_| + (define |gxc[1]#_g150455_| (##structure gx#syntax-quote::t 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149170_| + (define |gxc[1]#_g150457_| (##structure gx#syntax-quote::t 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149171_| + (define |gxc[1]#_g150458_| (##structure gx#syntax-quote::t 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149172_| + (define |gxc[1]#_g150459_| (##structure gx#syntax-quote::t 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149173_| + (define |gxc[1]#_g150460_| (##structure gx#syntax-quote::t 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149175_| + (define |gxc[1]#_g150462_| (##structure gx#syntax-quote::t 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149176_| + (define |gxc[1]#_g150463_| (##structure gx#syntax-quote::t 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149177_| + (define |gxc[1]#_g150464_| (##structure gx#syntax-quote::t 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149178_| + (define |gxc[1]#_g150465_| (##structure gx#syntax-quote::t 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149180_| + (define |gxc[1]#_g150467_| (##structure gx#syntax-quote::t '&meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149181_| + (define |gxc[1]#_g150468_| (##structure gx#syntax-quote::t '&meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149182_| + (define |gxc[1]#_g150469_| (##structure gx#syntax-quote::t '&meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149183_| + (define |gxc[1]#_g150470_| (##structure gx#syntax-quote::t '&meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149185_| + (define |gxc[1]#_g150472_| (##structure gx#syntax-quote::t '&meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149186_| + (define |gxc[1]#_g150473_| (##structure gx#syntax-quote::t '&meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149187_| + (define |gxc[1]#_g150474_| (##structure gx#syntax-quote::t '&meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149188_| + (define |gxc[1]#_g150475_| (##structure gx#syntax-quote::t '&meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149190_| + (define |gxc[1]#_g150477_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149192_| + (define |gxc[1]#_g150479_| (##structure gx#syntax-quote::t 'make-meta-state-block #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149194_| + (define |gxc[1]#_g150481_| (##structure gx#syntax-quote::t 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149196_| + (define |gxc[1]#_g150483_| (##structure gx#syntax-quote::t 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149197_| + (define |gxc[1]#_g150484_| (##structure gx#syntax-quote::t 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149198_| + (define |gxc[1]#_g150485_| (##structure gx#syntax-quote::t 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149199_| + (define |gxc[1]#_g150486_| (##structure gx#syntax-quote::t 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149201_| + (define |gxc[1]#_g150488_| (##structure gx#syntax-quote::t 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149202_| + (define |gxc[1]#_g150489_| (##structure gx#syntax-quote::t 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149203_| + (define |gxc[1]#_g150490_| (##structure gx#syntax-quote::t 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149204_| + (define |gxc[1]#_g150491_| (##structure gx#syntax-quote::t 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149206_| + (define |gxc[1]#_g150493_| (##structure gx#syntax-quote::t '&meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149207_| + (define |gxc[1]#_g150494_| (##structure gx#syntax-quote::t '&meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149208_| + (define |gxc[1]#_g150495_| (##structure gx#syntax-quote::t '&meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149209_| + (define |gxc[1]#_g150496_| (##structure gx#syntax-quote::t '&meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149211_| + (define |gxc[1]#_g150498_| (##structure gx#syntax-quote::t '&meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149212_| + (define |gxc[1]#_g150499_| (##structure gx#syntax-quote::t '&meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149213_| + (define |gxc[1]#_g150500_| (##structure gx#syntax-quote::t '&meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149214_| + (define |gxc[1]#_g150501_| (##structure gx#syntax-quote::t '&meta-state-block-code-set! @@ -674,7 +674,7 @@ '())) (begin (define |gxc[:0:]#::collect-bindings| - (let ((__obj148830 + (let ((__obj150117 (let () (declare (not safe)) (##structure @@ -703,7 +703,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148830 + __obj150117 'gxc#::collect-bindings::t '1 '#f @@ -711,65 +711,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148830 + __obj150117 '::collect-bindings '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150117 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '6 '#f '#f)) - (let ((__tmp149042 (cons |gxc[1]#_g149043_| '()))) + (##unchecked-structure-set! __obj150117 '() '6 '#f '#f)) + (let ((__tmp150329 (cons |gxc[1]#_g150330_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148830 __tmp149042 '3 '#f '#f)) + (##unchecked-structure-set! __obj150117 __tmp150329 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150117 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150117 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150117 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '#f '11 '#f '#f)) - (let ((__tmp149044 |gxc[1]#_g149045_|)) + (##unchecked-structure-set! __obj150117 '#f '11 '#f '#f)) + (let ((__tmp150331 |gxc[1]#_g150332_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148830 __tmp149044 '12 '#f '#f)) - (let ((__tmp149046 |gxc[1]#_g149047_|)) + (##unchecked-structure-set! __obj150117 __tmp150331 '12 '#f '#f)) + (let ((__tmp150333 |gxc[1]#_g150334_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148830 __tmp149046 '13 '#f '#f)) - (let ((__tmp149048 |gxc[1]#_g149049_|)) + (##unchecked-structure-set! __obj150117 __tmp150333 '13 '#f '#f)) + (let ((__tmp150335 |gxc[1]#_g150336_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148830 __tmp149048 '14 '#f '#f)) + (##unchecked-structure-set! __obj150117 __tmp150335 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150117 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150117 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150117 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150117 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150117 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150117 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148830 '() '20 '#f '#f)) - __obj148830)) + (##unchecked-structure-set! __obj150117 '() '20 '#f '#f)) + __obj150117)) (define |gxc[:0:]#::lift-modules| - (let ((__obj148832 + (let ((__obj150119 (let () (declare (not safe)) (##structure @@ -798,68 +798,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148832 + __obj150119 'gxc#::lift-modules::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '::lift-modules '2 '#f '#f)) + (##unchecked-structure-set! __obj150119 '::lift-modules '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '(modules) '4 '#f '#f)) + (##unchecked-structure-set! __obj150119 '(modules) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '(modules) '6 '#f '#f)) - (let ((__tmp149050 (cons |gxc[1]#_g149043_| '()))) + (##unchecked-structure-set! __obj150119 '(modules) '6 '#f '#f)) + (let ((__tmp150337 (cons |gxc[1]#_g150330_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148832 __tmp149050 '3 '#f '#f)) + (##unchecked-structure-set! __obj150119 __tmp150337 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150119 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150119 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150119 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '#f '11 '#f '#f)) - (let ((__tmp149051 |gxc[1]#_g149052_|)) + (##unchecked-structure-set! __obj150119 '#f '11 '#f '#f)) + (let ((__tmp150338 |gxc[1]#_g150339_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148832 __tmp149051 '12 '#f '#f)) - (let ((__tmp149053 |gxc[1]#_g149054_|)) + (##unchecked-structure-set! __obj150119 __tmp150338 '12 '#f '#f)) + (let ((__tmp150340 |gxc[1]#_g150341_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148832 __tmp149053 '13 '#f '#f)) - (let ((__tmp149055 |gxc[1]#_g149056_|)) + (##unchecked-structure-set! __obj150119 __tmp150340 '13 '#f '#f)) + (let ((__tmp150342 |gxc[1]#_g150343_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148832 __tmp149055 '14 '#f '#f)) - (let ((__tmp149057 (cons (cons 'modules |gxc[1]#_g149058_|) '()))) + (##unchecked-structure-set! __obj150119 __tmp150342 '14 '#f '#f)) + (let ((__tmp150344 (cons (cons 'modules |gxc[1]#_g150345_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148832 __tmp149057 '15 '#f '#f)) - (let ((__tmp149059 (cons (cons 'modules |gxc[1]#_g149060_|) '()))) + (##unchecked-structure-set! __obj150119 __tmp150344 '15 '#f '#f)) + (let ((__tmp150346 (cons (cons 'modules |gxc[1]#_g150347_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148832 __tmp149059 '16 '#f '#f)) - (let ((__tmp149061 (cons (cons 'modules |gxc[1]#_g149062_|) '()))) + (##unchecked-structure-set! __obj150119 __tmp150346 '16 '#f '#f)) + (let ((__tmp150348 (cons (cons 'modules |gxc[1]#_g150349_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148832 __tmp149061 '17 '#f '#f)) - (let ((__tmp149063 (cons (cons 'modules |gxc[1]#_g149064_|) '()))) + (##unchecked-structure-set! __obj150119 __tmp150348 '17 '#f '#f)) + (let ((__tmp150350 (cons (cons 'modules |gxc[1]#_g150351_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148832 __tmp149063 '18 '#f '#f)) + (##unchecked-structure-set! __obj150119 __tmp150350 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150119 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150119 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148832 '() '20 '#f '#f)) - __obj148832)) + (##unchecked-structure-set! __obj150119 '() '20 '#f '#f)) + __obj150119)) (define |gxc[:0:]#::find-runtime-code| - (let ((__obj148834 + (let ((__obj150121 (let () (declare (not safe)) (##structure @@ -888,7 +888,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148834 + __obj150121 'gxc#::find-runtime-code::t '1 '#f @@ -896,65 +896,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148834 + __obj150121 '::find-runtime-code '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150121 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150121 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150121 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '#f '11 '#f '#f)) - (let ((__tmp149065 |gxc[1]#_g149066_|)) + (##unchecked-structure-set! __obj150121 '#f '11 '#f '#f)) + (let ((__tmp150352 |gxc[1]#_g150353_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148834 __tmp149065 '12 '#f '#f)) - (let ((__tmp149067 |gxc[1]#_g149068_|)) + (##unchecked-structure-set! __obj150121 __tmp150352 '12 '#f '#f)) + (let ((__tmp150354 |gxc[1]#_g150355_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148834 __tmp149067 '13 '#f '#f)) - (let ((__tmp149069 |gxc[1]#_g149070_|)) + (##unchecked-structure-set! __obj150121 __tmp150354 '13 '#f '#f)) + (let ((__tmp150356 |gxc[1]#_g150357_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148834 __tmp149069 '14 '#f '#f)) + (##unchecked-structure-set! __obj150121 __tmp150356 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150121 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148834 '() '20 '#f '#f)) - __obj148834)) + (##unchecked-structure-set! __obj150121 '() '20 '#f '#f)) + __obj150121)) (define |gxc[:0:]#::find-lambda-expression| - (let ((__obj148836 + (let ((__obj150123 (let () (declare (not safe)) (##structure @@ -983,7 +983,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148836 + __obj150123 'gxc#::find-lambda-expression::t '1 '#f @@ -991,65 +991,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148836 + __obj150123 '::find-lambda-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150123 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '6 '#f '#f)) - (let ((__tmp149071 (cons |gxc[1]#_g149072_| '()))) + (##unchecked-structure-set! __obj150123 '() '6 '#f '#f)) + (let ((__tmp150358 (cons |gxc[1]#_g150359_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148836 __tmp149071 '3 '#f '#f)) + (##unchecked-structure-set! __obj150123 __tmp150358 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150123 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150123 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150123 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '#f '11 '#f '#f)) - (let ((__tmp149073 |gxc[1]#_g149074_|)) + (##unchecked-structure-set! __obj150123 '#f '11 '#f '#f)) + (let ((__tmp150360 |gxc[1]#_g150361_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148836 __tmp149073 '12 '#f '#f)) - (let ((__tmp149075 |gxc[1]#_g149076_|)) + (##unchecked-structure-set! __obj150123 __tmp150360 '12 '#f '#f)) + (let ((__tmp150362 |gxc[1]#_g150363_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148836 __tmp149075 '13 '#f '#f)) - (let ((__tmp149077 |gxc[1]#_g149078_|)) + (##unchecked-structure-set! __obj150123 __tmp150362 '13 '#f '#f)) + (let ((__tmp150364 |gxc[1]#_g150365_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148836 __tmp149077 '14 '#f '#f)) + (##unchecked-structure-set! __obj150123 __tmp150364 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150123 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150123 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150123 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150123 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150123 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150123 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148836 '() '20 '#f '#f)) - __obj148836)) + (##unchecked-structure-set! __obj150123 '() '20 '#f '#f)) + __obj150123)) (define |gxc[:0:]#::count-values| - (let ((__obj148838 + (let ((__obj150125 (let () (declare (not safe)) (##structure @@ -1078,68 +1078,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148838 + __obj150125 'gxc#::count-values::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '::count-values '2 '#f '#f)) + (##unchecked-structure-set! __obj150125 '::count-values '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150125 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '6 '#f '#f)) - (let ((__tmp149079 (cons |gxc[1]#_g149080_| '()))) + (##unchecked-structure-set! __obj150125 '() '6 '#f '#f)) + (let ((__tmp150366 (cons |gxc[1]#_g150367_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148838 __tmp149079 '3 '#f '#f)) + (##unchecked-structure-set! __obj150125 __tmp150366 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150125 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150125 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150125 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '#f '11 '#f '#f)) - (let ((__tmp149081 |gxc[1]#_g149082_|)) + (##unchecked-structure-set! __obj150125 '#f '11 '#f '#f)) + (let ((__tmp150368 |gxc[1]#_g150369_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148838 __tmp149081 '12 '#f '#f)) - (let ((__tmp149083 |gxc[1]#_g149084_|)) + (##unchecked-structure-set! __obj150125 __tmp150368 '12 '#f '#f)) + (let ((__tmp150370 |gxc[1]#_g150371_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148838 __tmp149083 '13 '#f '#f)) - (let ((__tmp149085 |gxc[1]#_g149086_|)) + (##unchecked-structure-set! __obj150125 __tmp150370 '13 '#f '#f)) + (let ((__tmp150372 |gxc[1]#_g150373_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148838 __tmp149085 '14 '#f '#f)) + (##unchecked-structure-set! __obj150125 __tmp150372 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150125 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150125 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150125 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150125 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150125 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150125 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148838 '() '20 '#f '#f)) - __obj148838)) + (##unchecked-structure-set! __obj150125 '() '20 '#f '#f)) + __obj150125)) (define |gxc[:0:]#::generate-runtime-empty| - (let ((__obj148840 + (let ((__obj150127 (let () (declare (not safe)) (##structure @@ -1168,7 +1168,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148840 + __obj150127 'gxc#::generate-runtime-empty::t '1 '#f @@ -1176,65 +1176,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148840 + __obj150127 '::generate-runtime-empty '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150127 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150127 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150127 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '#f '11 '#f '#f)) - (let ((__tmp149087 |gxc[1]#_g149088_|)) + (##unchecked-structure-set! __obj150127 '#f '11 '#f '#f)) + (let ((__tmp150374 |gxc[1]#_g150375_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148840 __tmp149087 '12 '#f '#f)) - (let ((__tmp149089 |gxc[1]#_g149090_|)) + (##unchecked-structure-set! __obj150127 __tmp150374 '12 '#f '#f)) + (let ((__tmp150376 |gxc[1]#_g150377_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148840 __tmp149089 '13 '#f '#f)) - (let ((__tmp149091 |gxc[1]#_g149092_|)) + (##unchecked-structure-set! __obj150127 __tmp150376 '13 '#f '#f)) + (let ((__tmp150378 |gxc[1]#_g150379_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148840 __tmp149091 '14 '#f '#f)) + (##unchecked-structure-set! __obj150127 __tmp150378 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150127 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148840 '() '20 '#f '#f)) - __obj148840)) + (##unchecked-structure-set! __obj150127 '() '20 '#f '#f)) + __obj150127)) (define |gxc[:0:]#::generate-loader| - (let ((__obj148841 + (let ((__obj150128 (let () (declare (not safe)) (##structure @@ -1263,7 +1263,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148841 + __obj150128 'gxc#::generate-loader::t '1 '#f @@ -1271,65 +1271,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148841 + __obj150128 '::generate-loader '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150128 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '6 '#f '#f)) - (let ((__tmp149093 (cons |gxc[1]#_g149094_| '()))) + (##unchecked-structure-set! __obj150128 '() '6 '#f '#f)) + (let ((__tmp150380 (cons |gxc[1]#_g150381_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148841 __tmp149093 '3 '#f '#f)) + (##unchecked-structure-set! __obj150128 __tmp150380 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150128 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150128 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150128 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '#f '11 '#f '#f)) - (let ((__tmp149095 |gxc[1]#_g149096_|)) + (##unchecked-structure-set! __obj150128 '#f '11 '#f '#f)) + (let ((__tmp150382 |gxc[1]#_g150383_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148841 __tmp149095 '12 '#f '#f)) - (let ((__tmp149097 |gxc[1]#_g149098_|)) + (##unchecked-structure-set! __obj150128 __tmp150382 '12 '#f '#f)) + (let ((__tmp150384 |gxc[1]#_g150385_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148841 __tmp149097 '13 '#f '#f)) - (let ((__tmp149099 |gxc[1]#_g149100_|)) + (##unchecked-structure-set! __obj150128 __tmp150384 '13 '#f '#f)) + (let ((__tmp150386 |gxc[1]#_g150387_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148841 __tmp149099 '14 '#f '#f)) + (##unchecked-structure-set! __obj150128 __tmp150386 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150128 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150128 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150128 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150128 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150128 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150128 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148841 '() '20 '#f '#f)) - __obj148841)) + (##unchecked-structure-set! __obj150128 '() '20 '#f '#f)) + __obj150128)) (define |gxc[:0:]#::generate-runtime| - (let ((__obj148843 + (let ((__obj150130 (let () (declare (not safe)) (##structure @@ -1358,7 +1358,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148843 + __obj150130 'gxc#::generate-runtime::t '1 '#f @@ -1366,65 +1366,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148843 + __obj150130 '::generate-runtime '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150130 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '6 '#f '#f)) - (let ((__tmp149101 (cons |gxc[1]#_g149094_| '()))) + (##unchecked-structure-set! __obj150130 '() '6 '#f '#f)) + (let ((__tmp150388 (cons |gxc[1]#_g150381_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148843 __tmp149101 '3 '#f '#f)) + (##unchecked-structure-set! __obj150130 __tmp150388 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150130 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150130 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150130 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '#f '11 '#f '#f)) - (let ((__tmp149102 |gxc[1]#_g149103_|)) + (##unchecked-structure-set! __obj150130 '#f '11 '#f '#f)) + (let ((__tmp150389 |gxc[1]#_g150390_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148843 __tmp149102 '12 '#f '#f)) - (let ((__tmp149104 |gxc[1]#_g149105_|)) + (##unchecked-structure-set! __obj150130 __tmp150389 '12 '#f '#f)) + (let ((__tmp150391 |gxc[1]#_g150392_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148843 __tmp149104 '13 '#f '#f)) - (let ((__tmp149106 |gxc[1]#_g149107_|)) + (##unchecked-structure-set! __obj150130 __tmp150391 '13 '#f '#f)) + (let ((__tmp150393 |gxc[1]#_g150394_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148843 __tmp149106 '14 '#f '#f)) + (##unchecked-structure-set! __obj150130 __tmp150393 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150130 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150130 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150130 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150130 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150130 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150130 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148843 '() '20 '#f '#f)) - __obj148843)) + (##unchecked-structure-set! __obj150130 '() '20 '#f '#f)) + __obj150130)) (define |gxc[:0:]#::generate-runtime-phi| - (let ((__obj148845 + (let ((__obj150132 (let () (declare (not safe)) (##structure @@ -1453,7 +1453,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148845 + __obj150132 'gxc#::generate-runtime-phi::t '1 '#f @@ -1461,65 +1461,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148845 + __obj150132 '::generate-runtime-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150132 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '6 '#f '#f)) - (let ((__tmp149108 (cons |gxc[1]#_g149109_| '()))) + (##unchecked-structure-set! __obj150132 '() '6 '#f '#f)) + (let ((__tmp150395 (cons |gxc[1]#_g150396_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148845 __tmp149108 '3 '#f '#f)) + (##unchecked-structure-set! __obj150132 __tmp150395 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150132 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150132 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150132 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '#f '11 '#f '#f)) - (let ((__tmp149110 |gxc[1]#_g149111_|)) + (##unchecked-structure-set! __obj150132 '#f '11 '#f '#f)) + (let ((__tmp150397 |gxc[1]#_g150398_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148845 __tmp149110 '12 '#f '#f)) - (let ((__tmp149112 |gxc[1]#_g149113_|)) + (##unchecked-structure-set! __obj150132 __tmp150397 '12 '#f '#f)) + (let ((__tmp150399 |gxc[1]#_g150400_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148845 __tmp149112 '13 '#f '#f)) - (let ((__tmp149114 |gxc[1]#_g149115_|)) + (##unchecked-structure-set! __obj150132 __tmp150399 '13 '#f '#f)) + (let ((__tmp150401 |gxc[1]#_g150402_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148845 __tmp149114 '14 '#f '#f)) + (##unchecked-structure-set! __obj150132 __tmp150401 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150132 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150132 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150132 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150132 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150132 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150132 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148845 '() '20 '#f '#f)) - __obj148845)) + (##unchecked-structure-set! __obj150132 '() '20 '#f '#f)) + __obj150132)) (define |gxc[:0:]#::collect-expression-refs| - (let ((__obj148847 + (let ((__obj150134 (let () (declare (not safe)) (##structure @@ -1548,7 +1548,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148847 + __obj150134 'gxc#::collect-expression-refs::t '1 '#f @@ -1556,65 +1556,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148847 + __obj150134 '::collect-expression-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '(table) '4 '#f '#f)) + (##unchecked-structure-set! __obj150134 '(table) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '(table) '6 '#f '#f)) + (##unchecked-structure-set! __obj150134 '(table) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150134 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150134 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150134 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150134 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '#f '11 '#f '#f)) - (let ((__tmp149116 |gxc[1]#_g149117_|)) + (##unchecked-structure-set! __obj150134 '#f '11 '#f '#f)) + (let ((__tmp150403 |gxc[1]#_g150404_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148847 __tmp149116 '12 '#f '#f)) - (let ((__tmp149118 |gxc[1]#_g149119_|)) + (##unchecked-structure-set! __obj150134 __tmp150403 '12 '#f '#f)) + (let ((__tmp150405 |gxc[1]#_g150406_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148847 __tmp149118 '13 '#f '#f)) - (let ((__tmp149120 |gxc[1]#_g149121_|)) + (##unchecked-structure-set! __obj150134 __tmp150405 '13 '#f '#f)) + (let ((__tmp150407 |gxc[1]#_g150408_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148847 __tmp149120 '14 '#f '#f)) - (let ((__tmp149122 (cons (cons 'table |gxc[1]#_g149123_|) '()))) + (##unchecked-structure-set! __obj150134 __tmp150407 '14 '#f '#f)) + (let ((__tmp150409 (cons (cons 'table |gxc[1]#_g150410_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148847 __tmp149122 '15 '#f '#f)) - (let ((__tmp149124 (cons (cons 'table |gxc[1]#_g149125_|) '()))) + (##unchecked-structure-set! __obj150134 __tmp150409 '15 '#f '#f)) + (let ((__tmp150411 (cons (cons 'table |gxc[1]#_g150412_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148847 __tmp149124 '16 '#f '#f)) - (let ((__tmp149126 (cons (cons 'table |gxc[1]#_g149127_|) '()))) + (##unchecked-structure-set! __obj150134 __tmp150411 '16 '#f '#f)) + (let ((__tmp150413 (cons (cons 'table |gxc[1]#_g150414_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148847 __tmp149126 '17 '#f '#f)) - (let ((__tmp149128 (cons (cons 'table |gxc[1]#_g149129_|) '()))) + (##unchecked-structure-set! __obj150134 __tmp150413 '17 '#f '#f)) + (let ((__tmp150415 (cons (cons 'table |gxc[1]#_g150416_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148847 __tmp149128 '18 '#f '#f)) + (##unchecked-structure-set! __obj150134 __tmp150415 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150134 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150134 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148847 '() '20 '#f '#f)) - __obj148847)) + (##unchecked-structure-set! __obj150134 '() '20 '#f '#f)) + __obj150134)) (define |gxc[:0:]#::generate-meta| - (let ((__obj148849 + (let ((__obj150136 (let () (declare (not safe)) (##structure @@ -1643,68 +1643,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148849 + __obj150136 'gxc#::generate-meta::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '::generate-meta '2 '#f '#f)) + (##unchecked-structure-set! __obj150136 '::generate-meta '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj150136 '(state) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '(state) '6 '#f '#f)) - (let ((__tmp149130 (cons |gxc[1]#_g149131_| '()))) + (##unchecked-structure-set! __obj150136 '(state) '6 '#f '#f)) + (let ((__tmp150417 (cons |gxc[1]#_g150418_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148849 __tmp149130 '3 '#f '#f)) + (##unchecked-structure-set! __obj150136 __tmp150417 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150136 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150136 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150136 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '#f '11 '#f '#f)) - (let ((__tmp149132 |gxc[1]#_g149133_|)) + (##unchecked-structure-set! __obj150136 '#f '11 '#f '#f)) + (let ((__tmp150419 |gxc[1]#_g150420_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148849 __tmp149132 '12 '#f '#f)) - (let ((__tmp149134 |gxc[1]#_g149135_|)) + (##unchecked-structure-set! __obj150136 __tmp150419 '12 '#f '#f)) + (let ((__tmp150421 |gxc[1]#_g150422_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148849 __tmp149134 '13 '#f '#f)) - (let ((__tmp149136 |gxc[1]#_g149137_|)) + (##unchecked-structure-set! __obj150136 __tmp150421 '13 '#f '#f)) + (let ((__tmp150423 |gxc[1]#_g150424_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148849 __tmp149136 '14 '#f '#f)) - (let ((__tmp149138 (cons (cons 'state |gxc[1]#_g149139_|) '()))) + (##unchecked-structure-set! __obj150136 __tmp150423 '14 '#f '#f)) + (let ((__tmp150425 (cons (cons 'state |gxc[1]#_g150426_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148849 __tmp149138 '15 '#f '#f)) - (let ((__tmp149140 (cons (cons 'state |gxc[1]#_g149141_|) '()))) + (##unchecked-structure-set! __obj150136 __tmp150425 '15 '#f '#f)) + (let ((__tmp150427 (cons (cons 'state |gxc[1]#_g150428_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148849 __tmp149140 '16 '#f '#f)) - (let ((__tmp149142 (cons (cons 'state |gxc[1]#_g149143_|) '()))) + (##unchecked-structure-set! __obj150136 __tmp150427 '16 '#f '#f)) + (let ((__tmp150429 (cons (cons 'state |gxc[1]#_g150430_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148849 __tmp149142 '17 '#f '#f)) - (let ((__tmp149144 (cons (cons 'state |gxc[1]#_g149145_|) '()))) + (##unchecked-structure-set! __obj150136 __tmp150429 '17 '#f '#f)) + (let ((__tmp150431 (cons (cons 'state |gxc[1]#_g150432_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148849 __tmp149144 '18 '#f '#f)) + (##unchecked-structure-set! __obj150136 __tmp150431 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150136 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150136 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148849 '() '20 '#f '#f)) - __obj148849)) + (##unchecked-structure-set! __obj150136 '() '20 '#f '#f)) + __obj150136)) (define |gxc[:0:]#::generate-meta-phi| - (let ((__obj148851 + (let ((__obj150138 (let () (declare (not safe)) (##structure @@ -1733,7 +1733,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148851 + __obj150138 'gxc#::generate-meta-phi::t '1 '#f @@ -1741,220 +1741,220 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148851 + __obj150138 '::generate-meta-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj150138 '(state) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '(state) '6 '#f '#f)) + (##unchecked-structure-set! __obj150138 '(state) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150138 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150138 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj150138 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150138 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '#f '11 '#f '#f)) - (let ((__tmp149146 |gxc[1]#_g149147_|)) + (##unchecked-structure-set! __obj150138 '#f '11 '#f '#f)) + (let ((__tmp150433 |gxc[1]#_g150434_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148851 __tmp149146 '12 '#f '#f)) - (let ((__tmp149148 |gxc[1]#_g149149_|)) + (##unchecked-structure-set! __obj150138 __tmp150433 '12 '#f '#f)) + (let ((__tmp150435 |gxc[1]#_g150436_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148851 __tmp149148 '13 '#f '#f)) - (let ((__tmp149150 |gxc[1]#_g149151_|)) + (##unchecked-structure-set! __obj150138 __tmp150435 '13 '#f '#f)) + (let ((__tmp150437 |gxc[1]#_g150438_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148851 __tmp149150 '14 '#f '#f)) - (let ((__tmp149152 (cons (cons 'state |gxc[1]#_g149153_|) '()))) + (##unchecked-structure-set! __obj150138 __tmp150437 '14 '#f '#f)) + (let ((__tmp150439 (cons (cons 'state |gxc[1]#_g150440_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148851 __tmp149152 '15 '#f '#f)) - (let ((__tmp149154 (cons (cons 'state |gxc[1]#_g149155_|) '()))) + (##unchecked-structure-set! __obj150138 __tmp150439 '15 '#f '#f)) + (let ((__tmp150441 (cons (cons 'state |gxc[1]#_g150442_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148851 __tmp149154 '16 '#f '#f)) - (let ((__tmp149156 (cons (cons 'state |gxc[1]#_g149157_|) '()))) + (##unchecked-structure-set! __obj150138 __tmp150441 '16 '#f '#f)) + (let ((__tmp150443 (cons (cons 'state |gxc[1]#_g150444_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148851 __tmp149156 '17 '#f '#f)) - (let ((__tmp149158 (cons (cons 'state |gxc[1]#_g149159_|) '()))) + (##unchecked-structure-set! __obj150138 __tmp150443 '17 '#f '#f)) + (let ((__tmp150445 (cons (cons 'state |gxc[1]#_g150446_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148851 __tmp149158 '18 '#f '#f)) + (##unchecked-structure-set! __obj150138 __tmp150445 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150138 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150138 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148851 '() '20 '#f '#f)) - __obj148851)) + (##unchecked-structure-set! __obj150138 '() '20 '#f '#f)) + __obj150138)) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_%$stx137920%_) - (let* ((_%g137924137959%_ - (lambda (_%g137925137955%_) + (lambda (_%$stx139207%_) + (let* ((_%g139211139246%_ + (lambda (_%g139212139242%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137925137955%_)))) - (_%g137923138085%_ - (lambda (_%g137925137963%_) + _%g139212139242%_)))) + (_%g139210139372%_ + (lambda (_%g139212139250%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137925137963%_)) - (let ((_%e137930137966%_ + (gx#stx-pair? _%g139212139250%_)) + (let ((_%e139217139253%_ (let () (declare (not safe)) - (gx#syntax-e _%g137925137963%_)))) - (let ((_%hd137931137970%_ + (gx#syntax-e _%g139212139250%_)))) + (let ((_%hd139218139257%_ (let () (declare (not safe)) - (##car _%e137930137966%_))) - (_%tl137932137973%_ + (##car _%e139217139253%_))) + (_%tl139219139260%_ (let () (declare (not safe)) - (##cdr _%e137930137966%_)))) + (##cdr _%e139217139253%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137932137973%_)) - (let ((_%e137933137976%_ + (gx#stx-pair? _%tl139219139260%_)) + (let ((_%e139220139263%_ (let () (declare (not safe)) - (gx#syntax-e _%tl137932137973%_)))) - (let ((_%hd137934137980%_ + (gx#syntax-e _%tl139219139260%_)))) + (let ((_%hd139221139267%_ (let () (declare (not safe)) - (##car _%e137933137976%_))) - (_%tl137935137983%_ + (##car _%e139220139263%_))) + (_%tl139222139270%_ (let () (declare (not safe)) - (##cdr _%e137933137976%_)))) + (##cdr _%e139220139263%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd137934137980%_)) - (let ((_%e137936137986%_ + (gx#stx-pair? _%hd139221139267%_)) + (let ((_%e139223139273%_ (let () (declare (not safe)) (gx#syntax-e - _%hd137934137980%_)))) - (let ((_%hd137937137990%_ + _%hd139221139267%_)))) + (let ((_%hd139224139277%_ (let () (declare (not safe)) - (##car _%e137936137986%_))) - (_%tl137938137993%_ + (##car _%e139223139273%_))) + (_%tl139225139280%_ (let () (declare (not safe)) - (##cdr _%e137936137986%_)))) + (##cdr _%e139223139273%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl137938137993%_)) - (let ((_%e137939137996%_ + _%tl139225139280%_)) + (let ((_%e139226139283%_ (let () (declare (not safe)) (gx#syntax-e - _%tl137938137993%_)))) - (let ((_%hd137940138000%_ + _%tl139225139280%_)))) + (let ((_%hd139227139287%_ (let () (declare (not safe)) - (##car _%e137939137996%_))) - (_%tl137941138003%_ + (##car _%e139226139283%_))) + (_%tl139228139290%_ (let () (declare (not safe)) - (##cdr _%e137939137996%_)))) + (##cdr _%e139226139283%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl137941138003%_)) - (let ((_%e137942138006%_ + _%tl139228139290%_)) + (let ((_%e139229139293%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl137941138003%_)))) - (let ((_%hd137943138010%_ - (let () (declare (not safe)) (##car _%e137942138006%_))) - (_%tl137944138013%_ + (gx#syntax-e _%tl139228139290%_)))) + (let ((_%hd139230139297%_ + (let () (declare (not safe)) (##car _%e139229139293%_))) + (_%tl139231139300%_ (let () (declare (not safe)) - (##cdr _%e137942138006%_)))) + (##cdr _%e139229139293%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137944138013%_)) + (gx#stx-null? _%tl139231139300%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl137935137983%_)) - (let ((_g149160_ + (gx#stx-pair/null? _%tl139222139270%_)) + (let ((_g150447_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl137935137983%_ + _%tl139222139270%_ '0)))) (begin - (let ((_g149161_ + (let ((_g150448_ (let () (declare (not safe)) - (if (##values? _g149160_) - (##vector-length _g149160_) + (if (##values? _g150447_) + (##values-length _g150447_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g149161_ 2))) + (##fx= _g150448_ 2))) (error "Context expects 2 values" - _g149161_))) - (let ((_%target137945138016%_ + _g150448_))) + (let ((_%target139232139303%_ (let () (declare (not safe)) - (##vector-ref _g149160_ 0))) - (_%tl137947138019%_ + (##values-ref _g150447_ 0))) + (_%tl139234139306%_ (let () (declare (not safe)) - (##vector-ref _g149160_ 1)))) + (##values-ref _g150447_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137947138019%_)) - (letrec ((_%loop137948138022%_ - (lambda (_%hd137946138026%_ - _%body137952138029%_) + (gx#stx-null? _%tl139234139306%_)) + (letrec ((_%loop139235139309%_ + (lambda (_%hd139233139313%_ + _%body139239139316%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd137946138026%_)) - (let ((_%e137949138032%_ + _%hd139233139313%_)) + (let ((_%e139236139319%_ (let () (declare (not safe)) (gx#syntax-e - _%hd137946138026%_)))) - (let ((_%lp-hd137950138036%_ + _%hd139233139313%_)))) + (let ((_%lp-hd139237139323%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e137949138032%_))) - (_%lp-tl137951138039%_ - (let () (declare (not safe)) (##cdr _%e137949138032%_)))) - (_%loop137948138022%_ - _%lp-tl137951138039%_ - (cons _%lp-hd137950138036%_ _%body137952138029%_)))) + (##car _%e139236139319%_))) + (_%lp-tl139238139326%_ + (let () (declare (not safe)) (##cdr _%e139236139319%_)))) + (_%loop139235139309%_ + _%lp-tl139238139326%_ + (cons _%lp-hd139237139323%_ _%body139239139316%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body137953138042%_ - (reverse _%body137952138029%_))) - ((lambda (_%L138046%_ - _%L138048%_ - _%L138049%_ - _%L138050%_) + (let ((_%body139240139329%_ + (reverse _%body139239139316%_))) + ((lambda (_%L139333%_ + _%L139335%_ + _%L139336%_ + _%L139337%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1967,8 +1967,8 @@ (gx#datum->syntax__0 '#f 'rest)) - (cons _%L138048%_ '())) - (cons (cons _%L138050%_ + (cons _%L139335%_ '())) + (cons (cons _%L139337%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1976,7 +1976,7 @@ '()) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L138049%_ + (cons (cons _%L139336%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -2037,7 +2037,7 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)) - (cons _%L138050%_ + (cons _%L139337%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2051,7 +2051,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'e)) '())) - (cons _%L138049%_ '()))) + (cons _%L139336%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -2068,7 +2068,7 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)) - (cons _%L138050%_ + (cons _%L139337%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -2080,7 +2080,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'e)) '())) - (cons _%L138049%_ '()))) + (cons _%L139336%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -2149,7 +2149,7 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L138050%_ '()))) + (cons _%L139337%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2160,7 +2160,7 @@ (gx#datum->syntax__0 '#f 'tmp)) - (cons _%L138049%_ '()))) + (cons _%L139336%_ '()))) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2171,99 +2171,99 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) - (let ((__tmp149162 - (lambda (_%g138076138079%_ - _%g138077138082%_) - (cons _%g138076138079%_ - _%g138077138082%_)))) + (let ((__tmp150449 + (lambda (_%g139363139366%_ + _%g139364139369%_) + (cons _%g139363139366%_ + _%g139364139369%_)))) (declare (not safe)) - (__foldr1 __tmp149162 '() _%L138046%_))) + (__foldr1 __tmp150449 '() _%L139333%_))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body137953138042%_ - _%hd137943138010%_ - _%hd137940138000%_ - _%hd137937137990%_)))))) + _%body139240139329%_ + _%hd139230139297%_ + _%hd139227139287%_ + _%hd139224139277%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop137948138022%_ - _%target137945138016%_ + (_%loop139235139309%_ + _%target139232139303%_ '())) - (_%g137924137959%_ _%g137925137963%_))))) - (_%g137924137959%_ _%g137925137963%_)) - (_%g137924137959%_ _%g137925137963%_)))) - (_%g137924137959%_ _%g137925137963%_)))) + (_%g139211139246%_ _%g139212139250%_))))) + (_%g139211139246%_ _%g139212139250%_)) + (_%g139211139246%_ _%g139212139250%_)))) + (_%g139211139246%_ _%g139212139250%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g137924137959%_ - _%g137925137963%_)))) - (_%g137924137959%_ _%g137925137963%_)))) - (_%g137924137959%_ _%g137925137963%_)))) - (_%g137924137959%_ _%g137925137963%_))))) - (_%g137923138085%_ _%$stx137920%_)))) + (_%g139211139246%_ + _%g139212139250%_)))) + (_%g139211139246%_ _%g139212139250%_)))) + (_%g139211139246%_ _%g139212139250%_)))) + (_%g139211139246%_ _%g139212139250%_))))) + (_%g139210139372%_ _%$stx139207%_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_%$stx138090%_) - (let* ((_%g138094138112%_ - (lambda (_%g138095138108%_) + (lambda (_%$stx139377%_) + (let* ((_%g139381139399%_ + (lambda (_%g139382139395%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138095138108%_)))) - (_%g138093138167%_ - (lambda (_%g138095138116%_) + _%g139382139395%_)))) + (_%g139380139454%_ + (lambda (_%g139382139403%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138095138116%_)) - (let ((_%e138098138119%_ + (gx#stx-pair? _%g139382139403%_)) + (let ((_%e139385139406%_ (let () (declare (not safe)) - (gx#syntax-e _%g138095138116%_)))) - (let ((_%hd138099138123%_ + (gx#syntax-e _%g139382139403%_)))) + (let ((_%hd139386139410%_ (let () (declare (not safe)) - (##car _%e138098138119%_))) - (_%tl138100138126%_ + (##car _%e139385139406%_))) + (_%tl139387139413%_ (let () (declare (not safe)) - (##cdr _%e138098138119%_)))) + (##cdr _%e139385139406%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138100138126%_)) - (let ((_%e138101138129%_ + (gx#stx-pair? _%tl139387139413%_)) + (let ((_%e139388139416%_ (let () (declare (not safe)) - (gx#syntax-e _%tl138100138126%_)))) - (let ((_%hd138102138133%_ + (gx#syntax-e _%tl139387139413%_)))) + (let ((_%hd139389139420%_ (let () (declare (not safe)) - (##car _%e138101138129%_))) - (_%tl138103138136%_ + (##car _%e139388139416%_))) + (_%tl139390139423%_ (let () (declare (not safe)) - (##cdr _%e138101138129%_)))) + (##cdr _%e139388139416%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138103138136%_)) - (let ((_%e138104138139%_ + (gx#stx-pair? _%tl139390139423%_)) + (let ((_%e139391139426%_ (let () (declare (not safe)) (gx#syntax-e - _%tl138103138136%_)))) - (let ((_%hd138105138143%_ + _%tl139390139423%_)))) + (let ((_%hd139392139430%_ (let () (declare (not safe)) - (##car _%e138104138139%_))) - (_%tl138106138146%_ + (##car _%e139391139426%_))) + (_%tl139393139433%_ (let () (declare (not safe)) - (##cdr _%e138104138139%_)))) + (##cdr _%e139391139426%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138106138146%_)) - ((lambda (_%L138149%_ - _%L138151%_) + _%tl139393139433%_)) + ((lambda (_%L139436%_ + _%L139438%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2275,7 +2275,7 @@ (gx#datum->syntax__0 '#f 'gambit-inline-unsafe-primitives)) - (cons _%L138151%_ '())) + (cons _%L139438%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) @@ -2288,22 +2288,22 @@ '#f 'current-compile-decls-unsafe?)) '()) - (cons _%L138151%_ - (cons _%L138149%_ + (cons _%L139438%_ + (cons _%L139436%_ '())))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd138105138143%_ - _%hd138102138133%_) - (_%g138094138112%_ - _%g138095138116%_)))) - (_%g138094138112%_ _%g138095138116%_)))) - (_%g138094138112%_ _%g138095138116%_)))) - (_%g138094138112%_ _%g138095138116%_))))) - (_%g138093138167%_ _%$stx138090%_)))) + _%hd139392139430%_ + _%hd139389139420%_) + (_%g139381139399%_ + _%g139382139403%_)))) + (_%g139381139399%_ _%g139382139403%_)))) + (_%g139381139399%_ _%g139382139403%_)))) + (_%g139381139399%_ _%g139382139403%_))))) + (_%g139380139454%_ _%$stx139377%_)))) (define |gxc[:0:]#meta-state| - (let ((__obj148853 + (let ((__obj150140 (let () (declare (not safe)) (##structure @@ -2332,18 +2332,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148853 + __obj150140 'gxc#meta-state::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 'meta-state '2 '#f '#f)) + (##unchecked-structure-set! __obj150140 'meta-state '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148853 + __obj150140 '(src n open blocks) '4 '#f @@ -2351,79 +2351,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148853 + __obj150140 '(src n open blocks) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150140 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj150140 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150140 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150140 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 ':init! '11 '#f '#f)) - (let ((__tmp149163 |gxc[1]#_g149164_|)) + (##unchecked-structure-set! __obj150140 ':init! '11 '#f '#f)) + (let ((__tmp150450 |gxc[1]#_g150451_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148853 __tmp149163 '12 '#f '#f)) - (let ((__tmp149165 |gxc[1]#_g149166_|)) + (##unchecked-structure-set! __obj150140 __tmp150450 '12 '#f '#f)) + (let ((__tmp150452 |gxc[1]#_g150453_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148853 __tmp149165 '13 '#f '#f)) - (let ((__tmp149167 |gxc[1]#_g149168_|)) + (##unchecked-structure-set! __obj150140 __tmp150452 '13 '#f '#f)) + (let ((__tmp150454 |gxc[1]#_g150455_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148853 __tmp149167 '14 '#f '#f)) - (let ((__tmp149169 - (cons (cons 'src |gxc[1]#_g149170_|) - (cons (cons 'n |gxc[1]#_g149171_|) - (cons (cons 'open |gxc[1]#_g149172_|) - (cons (cons 'blocks |gxc[1]#_g149173_|) + (##unchecked-structure-set! __obj150140 __tmp150454 '14 '#f '#f)) + (let ((__tmp150456 + (cons (cons 'src |gxc[1]#_g150457_|) + (cons (cons 'n |gxc[1]#_g150458_|) + (cons (cons 'open |gxc[1]#_g150459_|) + (cons (cons 'blocks |gxc[1]#_g150460_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148853 __tmp149169 '15 '#f '#f)) - (let ((__tmp149174 - (cons (cons 'src |gxc[1]#_g149175_|) - (cons (cons 'n |gxc[1]#_g149176_|) - (cons (cons 'open |gxc[1]#_g149177_|) - (cons (cons 'blocks |gxc[1]#_g149178_|) + (##unchecked-structure-set! __obj150140 __tmp150456 '15 '#f '#f)) + (let ((__tmp150461 + (cons (cons 'src |gxc[1]#_g150462_|) + (cons (cons 'n |gxc[1]#_g150463_|) + (cons (cons 'open |gxc[1]#_g150464_|) + (cons (cons 'blocks |gxc[1]#_g150465_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148853 __tmp149174 '16 '#f '#f)) - (let ((__tmp149179 - (cons (cons 'src |gxc[1]#_g149180_|) - (cons (cons 'n |gxc[1]#_g149181_|) - (cons (cons 'open |gxc[1]#_g149182_|) - (cons (cons 'blocks |gxc[1]#_g149183_|) + (##unchecked-structure-set! __obj150140 __tmp150461 '16 '#f '#f)) + (let ((__tmp150466 + (cons (cons 'src |gxc[1]#_g150467_|) + (cons (cons 'n |gxc[1]#_g150468_|) + (cons (cons 'open |gxc[1]#_g150469_|) + (cons (cons 'blocks |gxc[1]#_g150470_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148853 __tmp149179 '17 '#f '#f)) - (let ((__tmp149184 - (cons (cons 'src |gxc[1]#_g149185_|) - (cons (cons 'n |gxc[1]#_g149186_|) - (cons (cons 'open |gxc[1]#_g149187_|) - (cons (cons 'blocks |gxc[1]#_g149188_|) + (##unchecked-structure-set! __obj150140 __tmp150466 '17 '#f '#f)) + (let ((__tmp150471 + (cons (cons 'src |gxc[1]#_g150472_|) + (cons (cons 'n |gxc[1]#_g150473_|) + (cons (cons 'open |gxc[1]#_g150474_|) + (cons (cons 'blocks |gxc[1]#_g150475_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148853 __tmp149184 '18 '#f '#f)) + (##unchecked-structure-set! __obj150140 __tmp150471 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150140 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150140 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148853 '() '20 '#f '#f)) - __obj148853)) + (##unchecked-structure-set! __obj150140 '() '20 '#f '#f)) + __obj150140)) (define |gxc[:0:]#meta-state-block| - (let ((__obj148854 + (let ((__obj150141 (let () (declare (not safe)) (##structure @@ -2452,7 +2452,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148854 + __obj150141 'gxc#meta-state-block::t '1 '#f @@ -2460,7 +2460,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148854 + __obj150141 'meta-state-block '2 '#f @@ -2468,7 +2468,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148854 + __obj150141 '(ctx phi n code) '4 '#f @@ -2476,74 +2476,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148854 + __obj150141 '(ctx phi n code) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148854 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150141 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148854 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj150141 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148854 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150141 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148854 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150141 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148854 '#f '11 '#f '#f)) - (let ((__tmp149189 |gxc[1]#_g149190_|)) + (##unchecked-structure-set! __obj150141 '#f '11 '#f '#f)) + (let ((__tmp150476 |gxc[1]#_g150477_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148854 __tmp149189 '12 '#f '#f)) - (let ((__tmp149191 |gxc[1]#_g149192_|)) + (##unchecked-structure-set! __obj150141 __tmp150476 '12 '#f '#f)) + (let ((__tmp150478 |gxc[1]#_g150479_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148854 __tmp149191 '13 '#f '#f)) - (let ((__tmp149193 |gxc[1]#_g149194_|)) + (##unchecked-structure-set! __obj150141 __tmp150478 '13 '#f '#f)) + (let ((__tmp150480 |gxc[1]#_g150481_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148854 __tmp149193 '14 '#f '#f)) - (let ((__tmp149195 - (cons (cons 'ctx |gxc[1]#_g149196_|) - (cons (cons 'phi |gxc[1]#_g149197_|) - (cons (cons 'n |gxc[1]#_g149198_|) - (cons (cons 'code |gxc[1]#_g149199_|) + (##unchecked-structure-set! __obj150141 __tmp150480 '14 '#f '#f)) + (let ((__tmp150482 + (cons (cons 'ctx |gxc[1]#_g150483_|) + (cons (cons 'phi |gxc[1]#_g150484_|) + (cons (cons 'n |gxc[1]#_g150485_|) + (cons (cons 'code |gxc[1]#_g150486_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148854 __tmp149195 '15 '#f '#f)) - (let ((__tmp149200 - (cons (cons 'ctx |gxc[1]#_g149201_|) - (cons (cons 'phi |gxc[1]#_g149202_|) - (cons (cons 'n |gxc[1]#_g149203_|) - (cons (cons 'code |gxc[1]#_g149204_|) + (##unchecked-structure-set! __obj150141 __tmp150482 '15 '#f '#f)) + (let ((__tmp150487 + (cons (cons 'ctx |gxc[1]#_g150488_|) + (cons (cons 'phi |gxc[1]#_g150489_|) + (cons (cons 'n |gxc[1]#_g150490_|) + (cons (cons 'code |gxc[1]#_g150491_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148854 __tmp149200 '16 '#f '#f)) - (let ((__tmp149205 - (cons (cons 'ctx |gxc[1]#_g149206_|) - (cons (cons 'phi |gxc[1]#_g149207_|) - (cons (cons 'n |gxc[1]#_g149208_|) - (cons (cons 'code |gxc[1]#_g149209_|) + (##unchecked-structure-set! __obj150141 __tmp150487 '16 '#f '#f)) + (let ((__tmp150492 + (cons (cons 'ctx |gxc[1]#_g150493_|) + (cons (cons 'phi |gxc[1]#_g150494_|) + (cons (cons 'n |gxc[1]#_g150495_|) + (cons (cons 'code |gxc[1]#_g150496_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148854 __tmp149205 '17 '#f '#f)) - (let ((__tmp149210 - (cons (cons 'ctx |gxc[1]#_g149211_|) - (cons (cons 'phi |gxc[1]#_g149212_|) - (cons (cons 'n |gxc[1]#_g149213_|) - (cons (cons 'code |gxc[1]#_g149214_|) + (##unchecked-structure-set! __obj150141 __tmp150492 '17 '#f '#f)) + (let ((__tmp150497 + (cons (cons 'ctx |gxc[1]#_g150498_|) + (cons (cons 'phi |gxc[1]#_g150499_|) + (cons (cons 'n |gxc[1]#_g150500_|) + (cons (cons 'code |gxc[1]#_g150501_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj148854 __tmp149210 '18 '#f '#f)) + (##unchecked-structure-set! __obj150141 __tmp150497 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148854 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150141 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148854 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150141 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148854 '() '20 '#f '#f)) - __obj148854)))) + (##unchecked-structure-set! __obj150141 '() '20 '#f '#f)) + __obj150141)))) diff --git a/src/bootstrap/gerbil/compiler/driver~0.scm b/src/bootstrap/gerbil/compiler/driver~0.scm index 9bf2568d2..404198084 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 1713631273) + (define gerbil/compiler/driver::timestamp 1734357969) (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 ((__tmp202348 (current-time))) + (floor (let ((__tmp203667 (current-time))) (declare (not safe)) - (##time->seconds __tmp202348)))))) + (##time->seconds __tmp203667)))))) (define gxc#compile-timestamp-nanos (lambda () - (let ((__tmp202349 (current-time))) + (let ((__tmp203668 (current-time))) (declare (not safe)) - (##time->seconds __tmp202349)))) + (##time->seconds __tmp203668)))) (define gxc#scheme-file-settings '(permissions: 420 char-encoding: UTF-8 eol-encoding: lf)) (define gxc#with-output-to-scheme-file - (lambda (_%path202205%_ _%fun202206%_) + (lambda (_%path203524%_ _%fun203525%_) (with-output-to-file - (cons 'path: (cons _%path202205%_ gxc#scheme-file-settings)) - _%fun202206%_))) + (cons 'path: (cons _%path203524%_ gxc#scheme-file-settings)) + _%fun203525%_))) (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-libdir202200%_) - (string-append '"-Wl,-rpath=" _%gerbil-libdir202200%_))) + (lambda (_%gerbil-libdir203519%_) + (string-append '"-Wl,-rpath=" _%gerbil-libdir203519%_))) (define gxc#gerbil-runtime-modules '("gerbil/runtime/gambit" "gerbil/runtime/util" @@ -78,251 +78,279 @@ "gerbil/runtime/init" "gerbil/runtime")) (define gxc#delete-directory* - (lambda (_%dir202198%_) (delete-file-or-directory _%dir202198%_ '#t))) + (lambda (_%dir203517%_) (delete-file-or-directory _%dir203517%_ '#t))) (define gxc#compile-module__% - (lambda (_%srcpath202171%_ _%opts202172%_) - (if (string? _%srcpath202171%_) + (lambda (_%srcpath203473%_ _%opts203474%_) + (if (string? _%srcpath203473%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath202171%_))) - (let ((_%outdir202174%_ - (let () - (declare (not safe)) - (pgetq__0 'output-dir: _%opts202172%_))) - (_%invoke-gsc?202175%_ - (let () - (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts202172%_))) - (_%gsc-options202176%_ - (let () - (declare (not safe)) - (pgetq__0 'gsc-options: _%opts202172%_))) - (_%keep-scm?202177%_ - (let () - (declare (not safe)) - (pgetq__0 'keep-scm: _%opts202172%_))) - (_%verbosity202178%_ - (let () - (declare (not safe)) - (pgetq__0 'verbose: _%opts202172%_))) - (_%optimize202179%_ - (let () - (declare (not safe)) - (pgetq__0 'optimize: _%opts202172%_))) - (_%debug202180%_ - (let () (declare (not safe)) (pgetq__0 'debug: _%opts202172%_))) - (_%gen-ssxi202181%_ - (let () - (declare (not safe)) - (pgetq__0 'generate-ssxi: _%opts202172%_))) - (_%parallel?202182%_ - (let () - (declare (not safe)) - (pgetq__0 'parallel: _%opts202172%_)))) - (if _%outdir202174%_ - (let ((__tmp202350 + _%srcpath203473%_))) + (let* ((_%outdir203476%_ + (let () + (declare (not safe)) + (pgetq__0 'output-dir: _%opts203474%_))) + (_%invoke-gsc?203478%_ + (let () + (declare (not safe)) + (pgetq__0 'invoke-gsc: _%opts203474%_))) + (_%target203483%_ + (let ((_%$e203480%_ + (let () + (declare (not safe)) + (pgetq__0 'target: _%opts203474%_)))) + (if _%$e203480%_ _%$e203480%_ 'C))) + (_%gsc-options203488%_ + (append (cons '"-target" + (cons (symbol->string _%target203483%_) '())) + (let ((_%$e203485%_ + (let () + (declare (not safe)) + (pgetq__0 'gsc-options: _%opts203474%_)))) + (if _%$e203485%_ _%$e203485%_ '())))) + (_%keep-scm?203490%_ + (let () + (declare (not safe)) + (pgetq__0 'keep-scm: _%opts203474%_))) + (_%verbosity203492%_ + (let () + (declare (not safe)) + (pgetq__0 'verbose: _%opts203474%_))) + (_%optimize203494%_ + (let () + (declare (not safe)) + (pgetq__0 'optimize: _%opts203474%_))) + (_%debug203496%_ + (let () + (declare (not safe)) + (pgetq__0 'debug: _%opts203474%_))) + (_%gen-ssxi203498%_ + (let () + (declare (not safe)) + (pgetq__0 'generate-ssxi: _%opts203474%_))) + (_%parallel?203500%_ + (let () + (declare (not safe)) + (pgetq__0 'parallel: _%opts203474%_)))) + (if _%outdir203476%_ + (let ((__tmp203669 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir202174%_))))) + (create-directory*__0 _%outdir203476%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202350)) + (__with-lock gxc#+driver-mutex+ __tmp203669)) '#!void) - (if _%optimize202179%_ - (let ((__tmp202351 + (if _%optimize203494%_ + (let ((__tmp203670 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202351)) + (__with-lock gxc#+driver-mutex+ __tmp203670)) '#!void) - (let ((__tmp202354 + (let ((__tmp203673 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _%srcpath202171%_)) + (gxc#verbose '"compile " _%srcpath203473%_)) (gxc#compile-top-module - (let ((__tmp202355 + (let ((__tmp203674 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _%srcpath202171%_))))) + (gx#import-module__0 _%srcpath203473%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202355))))) - (__tmp202353 (gxc#compile-timestamp)) - (__tmp202352 - (cons 'compile-module (cons _%srcpath202171%_ '())))) + (__with-lock gxc#+driver-mutex+ __tmp203674))))) + (__tmp203672 (gxc#compile-timestamp)) + (__tmp203671 + (cons 'compile-module (cons _%srcpath203473%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp202354 + __tmp203673 gxc#current-compile-output-dir - _%outdir202174%_ + _%outdir203476%_ + gx#current-compilation-target + _%target203483%_ gxc#current-compile-invoke-gsc - _%invoke-gsc?202175%_ + _%invoke-gsc?203478%_ gxc#current-compile-gsc-options - _%gsc-options202176%_ + _%gsc-options203488%_ gxc#current-compile-keep-scm - _%keep-scm?202177%_ + _%keep-scm?203490%_ gxc#current-compile-verbose - _%verbosity202178%_ + _%verbosity203492%_ gxc#current-compile-optimize - _%optimize202179%_ + _%optimize203494%_ gxc#current-compile-debug - _%debug202180%_ + _%debug203496%_ gxc#current-compile-generate-ssxi - _%gen-ssxi202181%_ + _%gen-ssxi203498%_ gxc#current-compile-timestamp - __tmp202353 + __tmp203672 gxc#current-compile-context - __tmp202352 + __tmp203671 gxc#current-compile-parallel - _%parallel?202182%_ + _%parallel?203500%_ gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_%srcpath202191%_) - (let ((_%opts202193%_ '())) - (gxc#compile-module__% _%srcpath202191%_ _%opts202193%_)))) + (lambda (_%srcpath203510%_) + (let ((_%opts203512%_ '())) + (gxc#compile-module__% _%srcpath203510%_ _%opts203512%_)))) (define gxc#compile-module - (lambda _g202357_ - (let ((_g202356_ (let () (declare (not safe)) (##length _g202357_)))) - (cond ((let () (declare (not safe)) (##fx= _g202356_ 1)) - (apply gxc#compile-module__0 _g202357_)) - ((let () (declare (not safe)) (##fx= _g202356_ 2)) - (apply gxc#compile-module__% _g202357_)) + (lambda _g203676_ + (let ((_g203675_ (let () (declare (not safe)) (##length _g203676_)))) + (cond ((let () (declare (not safe)) (##fx= _g203675_ 1)) + (apply gxc#compile-module__0 _g203676_)) + ((let () (declare (not safe)) (##fx= _g203675_ 2)) + (apply gxc#compile-module__% _g203676_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g202357_)))))) + _g203676_)))))) (define gxc#compile-exe__% - (lambda (_%srcpath202146%_ _%opts202147%_) - (if (string? _%srcpath202146%_) + (lambda (_%srcpath203433%_ _%opts203434%_) + (if (string? _%srcpath203433%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath202146%_))) - (let ((_%outdir202149%_ - (let () - (declare (not safe)) - (pgetq__0 'output-dir: _%opts202147%_))) - (_%invoke-gsc?202150%_ - (let () - (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts202147%_))) - (_%gsc-options202151%_ - (let () - (declare (not safe)) - (pgetq__0 'gsc-options: _%opts202147%_))) - (_%keep-scm?202152%_ - (let () - (declare (not safe)) - (pgetq__0 'keep-scm: _%opts202147%_))) - (_%verbosity202153%_ - (let () - (declare (not safe)) - (pgetq__0 'verbose: _%opts202147%_))) - (_%debug202154%_ - (let () (declare (not safe)) (pgetq__0 'debug: _%opts202147%_))) - (_%parallel?202155%_ - (let () - (declare (not safe)) - (pgetq__0 'parallel: _%opts202147%_)))) - (if _%outdir202149%_ - (let ((__tmp202358 + _%srcpath203433%_))) + (let* ((_%outdir203436%_ + (let () + (declare (not safe)) + (pgetq__0 'output-dir: _%opts203434%_))) + (_%invoke-gsc?203438%_ + (let () + (declare (not safe)) + (pgetq__0 'invoke-gsc: _%opts203434%_))) + (_%target203443%_ + (let ((_%$e203440%_ + (let () + (declare (not safe)) + (pgetq__0 'target: _%opts203434%_)))) + (if _%$e203440%_ _%$e203440%_ 'C))) + (_%gsc-options203448%_ + (append (cons '"-target" + (cons (symbol->string _%target203443%_) '())) + (let ((_%$e203445%_ + (let () + (declare (not safe)) + (pgetq__0 'gsc-options: _%opts203434%_)))) + (if _%$e203445%_ _%$e203445%_ '())))) + (_%keep-scm?203450%_ + (let () + (declare (not safe)) + (pgetq__0 'keep-scm: _%opts203434%_))) + (_%verbosity203452%_ + (let () + (declare (not safe)) + (pgetq__0 'verbose: _%opts203434%_))) + (_%debug203454%_ + (let () + (declare (not safe)) + (pgetq__0 'debug: _%opts203434%_))) + (_%parallel?203456%_ + (let () + (declare (not safe)) + (pgetq__0 'parallel: _%opts203434%_)))) + (if _%outdir203436%_ + (let ((__tmp203677 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir202149%_))))) + (create-directory*__0 _%outdir203436%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202358)) + (__with-lock gxc#+driver-mutex+ __tmp203677)) '#!void) - (let ((__tmp202361 + (let ((__tmp203680 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _%srcpath202146%_)) + (gxc#verbose '"compile exe " _%srcpath203433%_)) (gxc#compile-executable-module - (let ((__tmp202362 + (let ((__tmp203681 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _%srcpath202146%_))))) + (gx#import-module__0 _%srcpath203433%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202362)) - _%opts202147%_))) - (__tmp202360 (gxc#compile-timestamp)) - (__tmp202359 (cons 'compile-exe (cons _%srcpath202146%_ '())))) + (__with-lock gxc#+driver-mutex+ __tmp203681)) + _%opts203434%_))) + (__tmp203679 (gxc#compile-timestamp)) + (__tmp203678 (cons 'compile-exe (cons _%srcpath203433%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp202361 + __tmp203680 gxc#current-compile-output-dir - _%outdir202149%_ + _%outdir203436%_ gxc#current-compile-invoke-gsc - _%invoke-gsc?202150%_ + _%invoke-gsc?203438%_ + gx#current-compilation-target + _%target203443%_ gxc#current-compile-gsc-options - _%gsc-options202151%_ + _%gsc-options203448%_ gxc#current-compile-keep-scm - _%keep-scm?202152%_ + _%keep-scm?203450%_ gxc#current-compile-verbose - _%verbosity202153%_ + _%verbosity203452%_ gxc#current-compile-debug - _%debug202154%_ + _%debug203454%_ gxc#current-compile-timestamp - __tmp202360 + __tmp203679 gxc#current-compile-context - __tmp202359 + __tmp203678 gxc#current-compile-parallel - _%parallel?202155%_ + _%parallel?203456%_ gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_%srcpath202163%_) - (let ((_%opts202165%_ '())) - (gxc#compile-exe__% _%srcpath202163%_ _%opts202165%_)))) + (lambda (_%srcpath203465%_) + (let ((_%opts203467%_ '())) + (gxc#compile-exe__% _%srcpath203465%_ _%opts203467%_)))) (define gxc#compile-exe - (lambda _g202364_ - (let ((_g202363_ (let () (declare (not safe)) (##length _g202364_)))) - (cond ((let () (declare (not safe)) (##fx= _g202363_ 1)) - (apply gxc#compile-exe__0 _g202364_)) - ((let () (declare (not safe)) (##fx= _g202363_ 2)) - (apply gxc#compile-exe__% _g202364_)) + (lambda _g203683_ + (let ((_g203682_ (let () (declare (not safe)) (##length _g203683_)))) + (cond ((let () (declare (not safe)) (##fx= _g203682_ 1)) + (apply gxc#compile-exe__0 _g203683_)) + ((let () (declare (not safe)) (##fx= _g203682_ 2)) + (apply gxc#compile-exe__% _g203683_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g202364_)))))) + _g203683_)))))) (define gxc#compile-executable-module - (lambda (_%ctx202142%_ _%opts202143%_) + (lambda (_%ctx203429%_ _%opts203430%_) (if (let () (declare (not safe)) - (pgetq__0 'full-program-optimization: _%opts202143%_)) + (pgetq__0 'full-program-optimization: _%opts203430%_)) (gxc#compile-executable-module/full-program-optimization - _%ctx202142%_ - _%opts202143%_) + _%ctx203429%_ + _%opts203430%_) (gxc#compile-executable-module/separate - _%ctx202142%_ - _%opts202143%_)))) + _%ctx203429%_ + _%opts203430%_)))) (define gxc#compile-executable-module/separate - (lambda (_%ctx201932%_ _%opts201933%_) - (letrec ((_%generate-stub201935%_ - (lambda (_%builtin-modules202138%_) - (let ((_%mod-main202140%_ - (gxc#find-runtime-symbol _%ctx201932%_ 'main))) - (let ((__tmp202365 + (lambda (_%ctx203219%_ _%opts203220%_) + (letrec ((_%generate-stub203222%_ + (lambda (_%builtin-modules203425%_) + (let ((_%mod-main203427%_ + (gxc#find-runtime-symbol _%ctx203219%_ 'main))) + (let ((__tmp203684 (cons 'define (cons 'builtin-modules (cons (cons 'quote - (cons _%builtin-modules202138%_ + (cons _%builtin-modules203425%_ '())) '()))))) (declare (not safe)) - (##write __tmp202365)) - (let ((__tmp202366 + (##write __tmp203684)) + (let ((__tmp203685 (cons 'define (cons (cons 'gerbil-main '()) (cons (cons 'with-unwind-protect @@ -332,7 +360,7 @@ (cons (cons 'gerbil-runtime-init! (cons 'builtin-modules '())) (cons (cons 'apply - (cons _%mod-main202140%_ + (cons _%mod-main203427%_ (cons (cons 'cdr ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'command-line '()) '())) @@ -370,325 +398,325 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (##write __tmp202366)) + (##write __tmp203685)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%get-libgerbil-ld-opts201936%_ - (lambda (_%gerbil-libdir202136%_) - (let ((__tmp202367 + (_%get-libgerbil-ld-opts203223%_ + (lambda (_%gerbil-libdir203423%_) + (let ((__tmp203686 (path-expand '"libgerbil.ldd" - _%gerbil-libdir202136%_))) + _%gerbil-libdir203423%_))) (declare (not safe)) - (##call-with-input-file __tmp202367 read)))) - (_%replace-extension201937%_ - (lambda (_%path202133%_ _%ext202134%_) + (##call-with-input-file __tmp203686 read)))) + (_%replace-extension203224%_ + (lambda (_%path203420%_ _%ext203421%_) (string-append - (path-strip-extension _%path202133%_) - _%ext202134%_))) - (_%userlib-module?201938%_ - (lambda (_%ctx202131%_) - (if (_%exclude-module?201940%_ _%ctx202131%_) + (path-strip-extension _%path203420%_) + _%ext203421%_))) + (_%userlib-module?203225%_ + (lambda (_%ctx203418%_) + (if (_%exclude-module?203227%_ _%ctx203418%_) '#f - (not (_%libgerbil-module?201939%_ _%ctx202131%_))))) - (_%libgerbil-module?201939%_ - (lambda (_%ctx202124%_) - (let ((_%id-str202126%_ + (not (_%libgerbil-module?203226%_ _%ctx203418%_))))) + (_%libgerbil-module?203226%_ + (lambda (_%ctx203411%_) + (let ((_%id-str203413%_ (symbol->string (##structure-ref - _%ctx202124%_ + _%ctx203411%_ '1 gx#expander-context::t '#f)))) - (if (_%exclude-module?201940%_ _%id-str202126%_) + (if (_%exclude-module?203227%_ _%id-str203413%_) '#f - (let ((_%$e202128%_ + (let ((_%$e203415%_ (let () (declare (not safe)) (##string-prefix? '"gerbil/" - _%id-str202126%_)))) - (if _%$e202128%_ - _%$e202128%_ + _%id-str203413%_)))) + (if _%$e203415%_ + _%$e203415%_ (let () (declare (not safe)) (##string-prefix? '"std/" - _%id-str202126%_)))))))) - (_%exclude-module?201940%_ - (lambda (_%ctx-or-str202120%_) - (let ((_%str202122%_ - (if (string? _%ctx-or-str202120%_) - _%ctx-or-str202120%_ + _%id-str203413%_)))))))) + (_%exclude-module?203227%_ + (lambda (_%ctx-or-str203407%_) + (let ((_%str203409%_ + (if (string? _%ctx-or-str203407%_) + _%ctx-or-str203407%_ (symbol->string (##structure-ref - _%ctx-or-str202120%_ + _%ctx-or-str203407%_ '1 gx#expander-context::t '#f))))) (declare (not safe)) - (##string-prefix? '"gerbil/core" _%str202122%_)))) - (_%not-file-empty?201941%_ - (lambda (_%path202118%_) - (not (gxc#file-empty? _%path202118%_)))) - (_%fold-libgerbil-runtime-scm201942%_ - (lambda (_%gerbil-staticdir202111%_ _%libgerbil-scm202112%_) - (let ((_%gerbil-runtime-scm202116%_ - (let ((__tmp202368 - (lambda (_%rtm202114%_) + (##string-prefix? '"gerbil/core" _%str203409%_)))) + (_%not-file-empty?203228%_ + (lambda (_%path203405%_) + (not (gxc#file-empty? _%path203405%_)))) + (_%fold-libgerbil-runtime-scm203229%_ + (lambda (_%gerbil-staticdir203398%_ _%libgerbil-scm203399%_) + (let ((_%gerbil-runtime-scm203403%_ + (let ((__tmp203687 + (lambda (_%rtm203401%_) (path-expand - (let ((__tmp202369 - (let ((__tmp202370 + (let ((__tmp203688 + (let ((__tmp203689 (let () (declare (not safe)) (string-split - _%rtm202114%_ + _%rtm203401%_ '#\/)))) (declare (not safe)) (string-join - __tmp202370 + __tmp203689 '"__")))) (declare (not safe)) - (##string-append __tmp202369 '".scm")) - _%gerbil-staticdir202111%_)))) + (##string-append __tmp203688 '".scm")) + _%gerbil-staticdir203398%_)))) (declare (not safe)) - (##map __tmp202368 gxc#gerbil-runtime-modules)))) - (_%remove-duplicates201943%_ - (append _%gerbil-runtime-scm202116%_ - _%libgerbil-scm202112%_))))) - (_%remove-duplicates201943%_ - (lambda (_%strlst202071%_) - (let _%loop202073%_ ((_%rest202075%_ _%strlst202071%_) - (_%result202076%_ '())) - (let* ((_%rest202077202085%_ _%rest202075%_) - (_%else202079202093%_ - (lambda () (reverse! _%result202076%_))) - (_%K202081202099%_ - (lambda (_%rest202096%_ _%path202097%_) - (if (member _%path202097%_ _%result202076%_) - (_%loop202073%_ - _%rest202096%_ - _%result202076%_) - (_%loop202073%_ - _%rest202096%_ - (cons _%path202097%_ - _%result202076%_)))))) - (if (pair? _%rest202077202085%_) - (let ((_%hd202082202102%_ + (##map __tmp203687 gxc#gerbil-runtime-modules)))) + (_%remove-duplicates203230%_ + (append _%gerbil-runtime-scm203403%_ + _%libgerbil-scm203399%_))))) + (_%remove-duplicates203230%_ + (lambda (_%strlst203358%_) + (let _%loop203360%_ ((_%rest203362%_ _%strlst203358%_) + (_%result203363%_ '())) + (let* ((_%rest203364203372%_ _%rest203362%_) + (_%else203366203380%_ + (lambda () (reverse! _%result203363%_))) + (_%K203368203386%_ + (lambda (_%rest203383%_ _%path203384%_) + (if (member _%path203384%_ _%result203363%_) + (_%loop203360%_ + _%rest203383%_ + _%result203363%_) + (_%loop203360%_ + _%rest203383%_ + (cons _%path203384%_ + _%result203363%_)))))) + (if (pair? _%rest203364203372%_) + (let ((_%hd203369203389%_ (let () (declare (not safe)) - (##car _%rest202077202085%_))) - (_%tl202083202104%_ + (##car _%rest203364203372%_))) + (_%tl203370203391%_ (let () (declare (not safe)) - (##cdr _%rest202077202085%_)))) - (let* ((_%path202107%_ _%hd202082202102%_) - (_%rest202109%_ _%tl202083202104%_)) - (_%K202081202099%_ - _%rest202109%_ - _%path202107%_))) - (_%else202079202093%_)))))) - (_%compile-stub201944%_ - (lambda (_%output-scm201951%_ _%output-bin201952%_) - (let* ((_%gerbil-home201954%_ - (let ((__tmp202371 + (##cdr _%rest203364203372%_)))) + (let* ((_%path203394%_ _%hd203369203389%_) + (_%rest203396%_ _%tl203370203391%_)) + (_%K203368203386%_ + _%rest203396%_ + _%path203394%_))) + (_%else203366203380%_)))))) + (_%compile-stub203231%_ + (lambda (_%output-scm203238%_ _%output-bin203239%_) + (let* ((_%gerbil-home203241%_ + (let ((__tmp203690 (let () (declare (not safe)) (gerbil-home)))) (declare (not safe)) - (##getenv '"GERBIL_BUILD_PREFIX" __tmp202371))) - (_%gerbil-libdir201956%_ - (path-expand '"lib" _%gerbil-home201954%_)) - (_%gerbil-staticdir201958%_ - (path-expand '"static" _%gerbil-libdir201956%_)) - (_%deps201960%_ - (gxc#find-runtime-module-deps _%ctx201932%_)) - (_%libgerbil-deps201962%_ + (##getenv '"GERBIL_BUILD_PREFIX" __tmp203690))) + (_%gerbil-libdir203243%_ + (path-expand '"lib" _%gerbil-home203241%_)) + (_%gerbil-staticdir203245%_ + (path-expand '"static" _%gerbil-libdir203243%_)) + (_%deps203247%_ + (gxc#find-runtime-module-deps _%ctx203219%_)) + (_%libgerbil-deps203249%_ (let () (declare (not safe)) (##filter - _%libgerbil-module?201939%_ - _%deps201960%_))) - (_%libgerbil-scm201964%_ + _%libgerbil-module?203226%_ + _%deps203247%_))) + (_%libgerbil-scm203251%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%libgerbil-deps201962%_))) - (_%libgerbil-scm201966%_ - (_%fold-libgerbil-runtime-scm201942%_ - _%gerbil-staticdir201958%_ - _%libgerbil-scm201964%_)) - (_%libgerbil-c201972%_ - (map (lambda (_%g201967201969%_) - (_%replace-extension201937%_ - _%g201967201969%_ + _%libgerbil-deps203249%_))) + (_%libgerbil-scm203253%_ + (_%fold-libgerbil-runtime-scm203229%_ + _%gerbil-staticdir203245%_ + _%libgerbil-scm203251%_)) + (_%libgerbil-c203259%_ + (map (lambda (_%g203254203256%_) + (_%replace-extension203224%_ + _%g203254203256%_ '".c")) - _%libgerbil-scm201966%_)) - (_%libgerbil-o201978%_ - (map (lambda (_%g201973201975%_) - (_%replace-extension201937%_ - _%g201973201975%_ + _%libgerbil-scm203253%_)) + (_%libgerbil-o203265%_ + (map (lambda (_%g203260203262%_) + (_%replace-extension203224%_ + _%g203260203262%_ '".o")) - _%libgerbil-scm201966%_)) - (_%src-deps201980%_ + _%libgerbil-scm203253%_)) + (_%src-deps203267%_ (let () (declare (not safe)) (##filter - _%userlib-module?201938%_ - _%deps201960%_))) - (_%src-deps-scm201982%_ + _%userlib-module?203225%_ + _%deps203247%_))) + (_%src-deps-scm203269%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%src-deps201980%_))) - (_%src-deps-scm201984%_ + _%src-deps203267%_))) + (_%src-deps-scm203271%_ (let () (declare (not safe)) (##filter - _%not-file-empty?201941%_ - _%src-deps-scm201982%_))) - (_%src-deps-scm201986%_ + _%not-file-empty?203228%_ + _%src-deps-scm203269%_))) + (_%src-deps-scm203273%_ (let () (declare (not safe)) - (##map path-expand _%src-deps-scm201984%_))) - (_%src-deps-c201992%_ - (let ((__tmp202372 - (lambda (_%g201987201989%_) - (_%replace-extension201937%_ - _%g201987201989%_ + (##map path-expand _%src-deps-scm203271%_))) + (_%src-deps-c203279%_ + (let ((__tmp203691 + (lambda (_%g203274203276%_) + (_%replace-extension203224%_ + _%g203274203276%_ '".c")))) (declare (not safe)) - (##map __tmp202372 _%src-deps-scm201986%_))) - (_%src-deps-o201998%_ - (let ((__tmp202373 - (lambda (_%g201993201995%_) - (_%replace-extension201937%_ - _%g201993201995%_ + (##map __tmp203691 _%src-deps-scm203273%_))) + (_%src-deps-o203285%_ + (let ((__tmp203692 + (lambda (_%g203280203282%_) + (_%replace-extension203224%_ + _%g203280203282%_ '".o")))) (declare (not safe)) - (##map __tmp202373 _%src-deps-scm201986%_))) - (_%src-bin-scm202000%_ - (gxc#find-static-module-file _%ctx201932%_)) - (_%src-bin-scm202002%_ - (path-expand _%src-bin-scm202000%_)) - (_%src-bin-c202004%_ - (_%replace-extension201937%_ - _%src-bin-scm202002%_ + (##map __tmp203692 _%src-deps-scm203273%_))) + (_%src-bin-scm203287%_ + (gxc#find-static-module-file _%ctx203219%_)) + (_%src-bin-scm203289%_ + (path-expand _%src-bin-scm203287%_)) + (_%src-bin-c203291%_ + (_%replace-extension203224%_ + _%src-bin-scm203289%_ '".c")) - (_%src-bin-o202006%_ - (_%replace-extension201937%_ - _%src-bin-scm202002%_ + (_%src-bin-o203293%_ + (_%replace-extension203224%_ + _%src-bin-scm203289%_ '".o")) - (_%output-bin202008%_ - (path-expand _%output-bin201952%_)) - (_%output-scm202010%_ - (path-expand _%output-scm201951%_)) - (_%output-c202012%_ - (_%replace-extension201937%_ - _%output-scm202010%_ + (_%output-bin203295%_ + (path-expand _%output-bin203239%_)) + (_%output-scm203297%_ + (path-expand _%output-scm203238%_)) + (_%output-c203299%_ + (_%replace-extension203224%_ + _%output-scm203297%_ '".c")) - (_%output-o202014%_ - (_%replace-extension201937%_ - _%output-scm202010%_ + (_%output-o203301%_ + (_%replace-extension203224%_ + _%output-scm203297%_ '".o")) - (_%output_-c202016%_ - (_%replace-extension201937%_ - _%output-scm202010%_ + (_%output_-c203303%_ + (_%replace-extension203224%_ + _%output-scm203297%_ '"_.c")) - (_%output_-o202018%_ - (_%replace-extension201937%_ - _%output-scm202010%_ + (_%output_-o203305%_ + (_%replace-extension203224%_ + _%output-scm203297%_ '"_.o")) - (_%gsc-link-opts202020%_ (gxc#gsc-link-options__0)) - (_%gsc-cc-opts202022%_ + (_%gsc-link-opts203307%_ (gxc#gsc-link-options__0)) + (_%gsc-cc-opts203309%_ (gxc#gsc-cc-options__%__0 '#f '#t)) - (_%gsc-static-opts202024%_ + (_%gsc-static-opts203311%_ (gxc#gsc-static-include-options - _%gerbil-staticdir201958%_)) - (_%output-ld-opts202026%_ (gxc#gcc-ld-options)) - (_%libgerbil-ld-opts202028%_ - (_%get-libgerbil-ld-opts201936%_ - _%gerbil-libdir201956%_)) - (_%rpath202030%_ - (gxc#gerbil-rpath _%gerbil-libdir201956%_)) - (_%builtin-modules202034%_ - (_%remove-duplicates201943%_ - (let ((__tmp202374 - (let ((__tmp202376 - (lambda (_%mod202032%_) + _%gerbil-staticdir203245%_)) + (_%output-ld-opts203313%_ (gxc#gcc-ld-options)) + (_%libgerbil-ld-opts203315%_ + (_%get-libgerbil-ld-opts203223%_ + _%gerbil-libdir203243%_)) + (_%rpath203317%_ + (gxc#gerbil-rpath _%gerbil-libdir203243%_)) + (_%builtin-modules203321%_ + (_%remove-duplicates203230%_ + (let ((__tmp203693 + (let ((__tmp203695 + (lambda (_%mod203319%_) (symbol->string (##structure-ref - _%mod202032%_ + _%mod203319%_ '1 gx#expander-context::t '#f)))) - (__tmp202375 - (cons _%ctx201932%_ - _%deps201960%_))) + (__tmp203694 + (cons _%ctx203219%_ + _%deps203247%_))) (declare (not safe)) - (##map __tmp202376 __tmp202375)))) + (##map __tmp203695 __tmp203694)))) (declare (not safe)) (##append gxc#gerbil-runtime-modules - __tmp202374))))) - (letrec ((_%compile-obj202037%_ - (lambda (_%scm-path202044%_ _%c-path202045%_) - (let* ((_%o-path202047%_ - (_%replace-extension201937%_ - _%c-path202045%_ + __tmp203693))))) + (letrec ((_%compile-obj203324%_ + (lambda (_%scm-path203331%_ _%c-path203332%_) + (let* ((_%o-path203334%_ + (_%replace-extension203224%_ + _%c-path203332%_ '".o")) - (_%lock202049%_ + (_%lock203336%_ (let () (declare (not safe)) (##string-append - _%o-path202047%_ + _%o-path203334%_ '".lock"))) - (_%locked202051%_ '#f) - (_%unlock202054%_ + (_%locked203338%_ '#f) + (_%unlock203341%_ (lambda () - (close-port _%locked202051%_) + (close-port _%locked203338%_) (let () (declare (not safe)) (##delete-file - _%lock202049%_))))) - (let _%retry202057%_ () + _%lock203336%_))))) + (let _%retry203344%_ () (if (let () (declare (not safe)) - (##file-exists? _%lock202049%_)) + (##file-exists? _%lock203336%_)) (begin (thread-sleep! '.01) - (_%retry202057%_)) + (_%retry203344%_)) (begin - (set! _%locked202051%_ - (let ((__tmp202377 + (set! _%locked203338%_ + (let ((__tmp203696 (lambda () (open-file (cons 'path: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lock202049%_ + (cons _%lock203336%_ (cons 'create: (cons '#t '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__with-catch false - __tmp202377))) - (if _%locked202051%_ + __tmp203696))) + (if _%locked203338%_ '#!void - (_%retry202057%_))))) - (let ((__tmp202379 + (_%retry203344%_))))) + (let ((__tmp203698 (lambda () (if (or (not (let () (declare (not safe)) (##file-exists? - _%o-path202047%_))) - (not _%scm-path202044%_) + _%o-path203334%_))) + (not _%scm-path203331%_) (let () (declare (not safe)) (file-newer? - _%scm-path202044%_ - _%o-path202047%_))) - (let ((_%gsc-cc-opts202068%_ + _%scm-path203331%_ + _%o-path203334%_))) + (let ((_%gsc-cc-opts203355%_ (gxc#gsc-cc-options__%__0 '#f '#f))) @@ -698,41 +726,41 @@ absent-value (gxc#gerbil-gsc) (cons '"-obj" - (let ((__tmp202380 + (let ((__tmp203699 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp202381 (cons _%c-path202045%_ '()))) + (let ((__tmp203700 (cons _%c-path203332%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp202381 - _%gsc-static-opts202024%_)))) + __tmp203700 + _%gsc-static-opts203311%_)))) (declare (not safe)) - (__foldr1 cons __tmp202380 _%gsc-cc-opts202068%_))))) + (__foldr1 cons __tmp203699 _%gsc-cc-opts203355%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (__tmp202378 - (lambda () (_%unlock202054%_)))) + (__tmp203697 + (lambda () (_%unlock203341%_)))) (declare (not safe)) (__with-unwind-protect - __tmp202379 - __tmp202378)))))) - (let ((__tmp202382 + __tmp203698 + __tmp203697)))))) + (let ((__tmp203701 (lambda () - (let ((__tmp202383 - (path-directory _%output-bin202008%_))) + (let ((__tmp203702 + (path-directory _%output-bin203295%_))) (declare (not safe)) - (create-directory*__0 __tmp202383))))) + (create-directory*__0 __tmp203702))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202382)) + (__with-lock gxc#+driver-mutex+ __tmp203701)) (gxc#with-output-to-scheme-file - _%output-scm202010%_ + _%output-scm203297%_ (lambda () - (_%generate-stub201935%_ - _%builtin-modules202034%_))) + (_%generate-stub203222%_ + _%builtin-modules203321%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it202042%_ + (let ((_%compile-it203329%_ (lambda () (gxc#invoke__% '#f @@ -740,46 +768,46 @@ absent-value (gxc#gerbil-gsc) (cons '"-link" - (let ((__tmp202384 - (let ((__tmp202385 - (let ((__tmp202386 + (let ((__tmp203703 + (let ((__tmp203704 + (let ((__tmp203705 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%src-bin-scm202002%_ - (cons _%output-scm202010%_ '())))) + (cons _%src-bin-scm203289%_ + (cons _%output-scm203297%_ '())))) (declare (not safe)) - (__foldr1 cons __tmp202386 _%src-deps-scm201986%_)))) + (__foldr1 cons __tmp203705 _%src-deps-scm203273%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp202385 - _%libgerbil-c201972%_)))) + __tmp203704 + _%libgerbil-c203259%_)))) (declare (not safe)) (__foldr1 cons - __tmp202384 - _%gsc-link-opts202020%_)))) + __tmp203703 + _%gsc-link-opts203307%_)))) (for-each - _%compile-obj202037%_ - (let ((__tmp202387 - (cons _%src-bin-scm202002%_ - (cons _%output-scm202010%_ + _%compile-obj203324%_ + (let ((__tmp203706 + (cons _%src-bin-scm203289%_ + (cons _%output-scm203297%_ (cons '#f '()))))) (declare (not safe)) (__foldr1 cons - __tmp202387 - _%src-deps-scm201986%_)) - (let ((__tmp202388 - (cons _%src-bin-c202004%_ - (cons _%output-c202012%_ - (cons _%output_-c202016%_ + __tmp203706 + _%src-deps-scm203273%_)) + (let ((__tmp203707 + (cons _%src-bin-c203291%_ + (cons _%output-c203299%_ + (cons _%output_-c203303%_ '()))))) (declare (not safe)) (__foldr1 cons - __tmp202388 - _%src-deps-c201992%_))) + __tmp203707 + _%src-deps-c203279%_))) (gxc#invoke__% '#f absent-value @@ -787,71 +815,71 @@ (gxc#gerbil-gcc) (cons '"-w" (cons '"-o" - (cons _%output-bin202008%_ - (let ((__tmp202389 - (cons _%src-bin-o202006%_ + (cons _%output-bin203295%_ + (let ((__tmp203708 + (cons _%src-bin-o203293%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%output-o202014%_ - (cons _%output_-o202018%_ - (let ((__tmp202390 - (let ((__tmp202391 - (let ((__tmp202393 + (cons _%output-o203301%_ + (cons _%output_-o203305%_ + (let ((__tmp203709 + (let ((__tmp203710 + (let ((__tmp203712 (cons '"-L" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%gerbil-libdir201956%_ + (cons _%gerbil-libdir203243%_ (cons '"-lgambit" - _%libgerbil-ld-opts202028%_)))) - (__tmp202392 + _%libgerbil-ld-opts203315%_)))) + (__tmp203711 (if (gxc#gerbil-enable-shared?) - (cons _%rpath202030%_ '()) + (cons _%rpath203317%_ '()) '()))) (declare (not safe)) - (__foldr1 cons __tmp202393 __tmp202392)))) + (__foldr1 cons __tmp203712 __tmp203711)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp202391 - _%output-ld-opts202026%_)))) + __tmp203710 + _%output-ld-opts203313%_)))) (declare (not safe)) (__foldr1 cons - __tmp202390 - _%libgerbil-o201978%_))))))) + __tmp203709 + _%libgerbil-o203265%_))))))) (declare (not safe)) - (__foldr1 cons __tmp202389 _%src-deps-o201998%_)))))) + (__foldr1 cons __tmp203708 _%src-deps-o203285%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp202394 - (cons _%output-c202012%_ - (cons _%output_-c202016%_ - (cons _%output-o202014%_ - (cons _%output_-o202018%_ + (let ((__tmp203713 + (cons _%output-c203299%_ + (cons _%output_-c203303%_ + (cons _%output-o203301%_ + (cons _%output_-o203305%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##for-each delete-file __tmp202394))))) + (##for-each delete-file __tmp203713))))) (if (let () (declare (not safe)) (gxc#current-compile-parallel)) (let () (declare (not safe)) (gxc#add-compile-job!__0 - _%compile-it202042%_)) - (_%compile-it202042%_))) + _%compile-it203329%_)) + (_%compile-it203329%_))) '#!void)))))) - (let* ((_%output-bin201946%_ - (gxc#compile-exe-output-file _%ctx201932%_ _%opts201933%_)) - (_%output-scm201948%_ + (let* ((_%output-bin203233%_ + (gxc#compile-exe-output-file _%ctx203219%_ _%opts203220%_)) + (_%output-scm203235%_ (let () (declare (not safe)) - (##string-append _%output-bin201946%_ '"__exe.scm")))) - (_%compile-stub201944%_ - _%output-scm201948%_ - _%output-bin201946%_))))) + (##string-append _%output-bin203233%_ '"__exe.scm")))) + (_%compile-stub203231%_ + _%output-scm203235%_ + _%output-bin203233%_))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_%ctx201754%_ _%opts201755%_) - (letrec ((_%reset-declare201757%_ + (lambda (_%ctx203041%_ _%opts203042%_) + (letrec ((_%reset-declare203044%_ (lambda () '(declare (gambit-scheme) @@ -873,36 +901,36 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_%generate-stub201758%_ - (lambda (_%deps201923%_) - (let ((_%mod-main201925%_ - (gxc#find-runtime-symbol _%ctx201754%_ 'main)) - (_%reset-decl201926%_ (_%reset-declare201757%_)) - (_%user-decl201927%_ (_%user-declare201759%_))) + (_%generate-stub203045%_ + (lambda (_%deps203210%_) + (let ((_%mod-main203212%_ + (gxc#find-runtime-symbol _%ctx203041%_ 'main)) + (_%reset-decl203213%_ (_%reset-declare203044%_)) + (_%user-decl203214%_ (_%user-declare203046%_))) (for-each - (lambda (_%dep201929%_) + (lambda (_%dep203216%_) (let () (declare (not safe)) (##write '(##namespace ("")))) (newline) (let () (declare (not safe)) - (##write _%reset-decl201926%_)) + (##write _%reset-decl203213%_)) (newline) - (if _%user-decl201927%_ + (if _%user-decl203214%_ (begin (let () (declare (not safe)) - (##write _%user-decl201927%_)) + (##write _%user-decl203214%_)) (newline)) '#!void) - (let ((__tmp202395 - (cons 'include (cons _%dep201929%_ '())))) + (let ((__tmp203714 + (cons 'include (cons _%dep203216%_ '())))) (declare (not safe)) - (##write __tmp202395)) + (##write __tmp203714)) (newline)) - _%deps201923%_) - (let ((__tmp202396 + _%deps203210%_) + (let ((__tmp203715 (cons 'define (cons (cons 'gerbil-main '()) (cons (cons 'gerbil-runtime-init! @@ -912,236 +940,236 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'apply - (cons _%mod-main201925%_ + (cons _%mod-main203212%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'cdr (cons (cons 'command-line '()) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (##write __tmp202396)) + (##write __tmp203715)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%user-declare201759%_ + (_%user-declare203046%_ (lambda () - (let* ((_%gsc-opts201828%_ + (let* ((_%gsc-opts203115%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts201755%_))) - (_%gsc-prelude201830%_ - (if _%gsc-opts201828%_ - (member '"-prelude" _%gsc-opts201828%_) + (pgetq__0 'gsc-options: _%opts203042%_))) + (_%gsc-prelude203117%_ + (if _%gsc-opts203115%_ + (member '"-prelude" _%gsc-opts203115%_) '#f)) - (_%gsc-prelude201832%_ - (if _%gsc-prelude201830%_ + (_%gsc-prelude203119%_ + (if _%gsc-prelude203117%_ (read (open-input-string - (cadr _%gsc-prelude201830%_))) + (cadr _%gsc-prelude203117%_))) '#f))) - (let _%lp201835%_ ((_%rest201837%_ - (cons _%gsc-prelude201832%_ '())) - (_%user-decls201838%_ '())) - (let* ((_%rest201839201847%_ _%rest201837%_) - (_%else201841201855%_ + (let _%lp203122%_ ((_%rest203124%_ + (cons _%gsc-prelude203119%_ '())) + (_%user-decls203125%_ '())) + (let* ((_%rest203126203134%_ _%rest203124%_) + (_%else203128203142%_ (lambda () - (if (null? _%user-decls201838%_) + (if (null? _%user-decls203125%_) '#f (cons 'declare - (reverse _%user-decls201838%_))))) - (_%K201843201911%_ - (lambda (_%rest201858%_ _%expr201859%_) - (let* ((_%expr201860201872%_ _%expr201859%_) - (_%else201863201880%_ + (reverse _%user-decls203125%_))))) + (_%K203130203198%_ + (lambda (_%rest203145%_ _%expr203146%_) + (let* ((_%expr203147203159%_ _%expr203146%_) + (_%else203150203167%_ (lambda () - (_%lp201835%_ - _%rest201858%_ - _%user-decls201838%_)))) - (let ((_%K201868201901%_ - (lambda (_%decls201899%_) - (_%lp201835%_ - _%rest201858%_ + (_%lp203122%_ + _%rest203145%_ + _%user-decls203125%_)))) + (let ((_%K203155203188%_ + (lambda (_%decls203186%_) + (_%lp203122%_ + _%rest203145%_ (let () (declare (not safe)) (__foldl1 cons - _%user-decls201838%_ - _%decls201899%_))))) - (_%K201865201886%_ - (lambda (_%exprs201884%_) - (_%lp201835%_ - (append _%exprs201884%_ - _%rest201858%_) - _%user-decls201838%_)))) - (if (pair? _%expr201860201872%_) - (let ((_%tl201870201906%_ + _%user-decls203125%_ + _%decls203186%_))))) + (_%K203152203173%_ + (lambda (_%exprs203171%_) + (_%lp203122%_ + (append _%exprs203171%_ + _%rest203145%_) + _%user-decls203125%_)))) + (if (pair? _%expr203147203159%_) + (let ((_%tl203157203193%_ (let () (declare (not safe)) - (##cdr _%expr201860201872%_))) - (_%hd201869201904%_ + (##cdr _%expr203147203159%_))) + (_%hd203156203191%_ (let () (declare (not safe)) - (##car _%expr201860201872%_)))) + (##car _%expr203147203159%_)))) (if (let () (declare (not safe)) - (##eq? _%hd201869201904%_ + (##eq? _%hd203156203191%_ 'declare)) - (let ((_%decls201909%_ - _%tl201870201906%_)) - (_%K201868201901%_ - _%decls201909%_)) + (let ((_%decls203196%_ + _%tl203157203193%_)) + (_%K203155203188%_ + _%decls203196%_)) (if (let () (declare (not safe)) - (##eq? _%hd201869201904%_ + (##eq? _%hd203156203191%_ 'begin)) - (let ((_%exprs201894%_ - _%tl201870201906%_)) - (_%K201865201886%_ - _%exprs201894%_)) - (_%else201863201880%_)))) - (_%else201863201880%_))))))) - (if (pair? _%rest201839201847%_) - (let ((_%hd201844201914%_ + (let ((_%exprs203181%_ + _%tl203157203193%_)) + (_%K203152203173%_ + _%exprs203181%_)) + (_%else203150203167%_)))) + (_%else203150203167%_))))))) + (if (pair? _%rest203126203134%_) + (let ((_%hd203131203201%_ (let () (declare (not safe)) - (##car _%rest201839201847%_))) - (_%tl201845201916%_ + (##car _%rest203126203134%_))) + (_%tl203132203203%_ (let () (declare (not safe)) - (##cdr _%rest201839201847%_)))) - (let* ((_%expr201919%_ _%hd201844201914%_) - (_%rest201921%_ _%tl201845201916%_)) - (_%K201843201911%_ - _%rest201921%_ - _%expr201919%_))) - (_%else201841201855%_))))))) - (_%compile-stub201760%_ - (lambda (_%output-scm201767%_ _%output-bin201768%_) - (let* ((_%gerbil-home201770%_ - (let ((__tmp202397 + (##cdr _%rest203126203134%_)))) + (let* ((_%expr203206%_ _%hd203131203201%_) + (_%rest203208%_ _%tl203132203203%_)) + (_%K203130203198%_ + _%rest203208%_ + _%expr203206%_))) + (_%else203128203142%_))))))) + (_%compile-stub203047%_ + (lambda (_%output-scm203054%_ _%output-bin203055%_) + (let* ((_%gerbil-home203057%_ + (let ((__tmp203716 (let () (declare (not safe)) (gerbil-home)))) (declare (not safe)) - (##getenv '"GERBIL_BUILD_PREFIX" __tmp202397))) - (_%gerbil-libdir201772%_ - (path-expand '"lib" _%gerbil-home201770%_)) - (_%runtime201774%_ + (##getenv '"GERBIL_BUILD_PREFIX" __tmp203716))) + (_%gerbil-libdir203059%_ + (path-expand '"lib" _%gerbil-home203057%_)) + (_%runtime203061%_ (let () (declare (not safe)) (##map gxc#find-static-module-file gxc#gerbil-runtime-modules))) - (_%gambit-sharp201776%_ + (_%gambit-sharp203063%_ (path-expand '"lib/_gambit#.scm" - _%gerbil-home201770%_)) - (_%include-gambit-sharp201778%_ + _%gerbil-home203057%_)) + (_%include-gambit-sharp203065%_ (let () (declare (not safe)) (##string-append '"(include \"" - _%gambit-sharp201776%_ + _%gambit-sharp203063%_ '"\")"))) - (_%bin-scm201780%_ - (gxc#find-static-module-file _%ctx201754%_)) - (_%deps201782%_ - (gxc#find-runtime-module-deps _%ctx201754%_)) - (_%deps201784%_ + (_%bin-scm203067%_ + (gxc#find-static-module-file _%ctx203041%_)) + (_%deps203069%_ + (gxc#find-runtime-module-deps _%ctx203041%_)) + (_%deps203071%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%deps201782%_))) - (_%deps201789%_ - (let ((__tmp202398 - (lambda (_%$obj201786%_) - (not (gxc#file-empty? _%$obj201786%_))))) + _%deps203069%_))) + (_%deps203076%_ + (let ((__tmp203717 + (lambda (_%$obj203073%_) + (not (gxc#file-empty? _%$obj203073%_))))) (declare (not safe)) - (##filter __tmp202398 _%deps201784%_))) - (_%deps201793%_ - (let ((__tmp202399 - (lambda (_%f201791%_) + (##filter __tmp203717 _%deps203071%_))) + (_%deps203080%_ + (let ((__tmp203718 + (lambda (_%f203078%_) (not (let () (declare (not safe)) (##member - _%f201791%_ - _%runtime201774%_)))))) + _%f203078%_ + _%runtime203061%_)))))) (declare (not safe)) - (##filter __tmp202399 _%deps201789%_))) - (_%output-base201795%_ - (let ((__tmp202400 + (##filter __tmp203718 _%deps203076%_))) + (_%output-base203082%_ + (let ((__tmp203719 (path-strip-extension - _%output-scm201767%_))) + _%output-scm203054%_))) (declare (not safe)) - (##string-append __tmp202400))) - (_%output-c201797%_ + (##string-append __tmp203719))) + (_%output-c203084%_ (let () (declare (not safe)) - (##string-append _%output-base201795%_ '".c"))) - (_%output-o201799%_ + (##string-append _%output-base203082%_ '".c"))) + (_%output-o203086%_ (let () (declare (not safe)) - (##string-append _%output-base201795%_ '".o"))) - (_%output-c_201801%_ + (##string-append _%output-base203082%_ '".o"))) + (_%output-c_203088%_ (let () (declare (not safe)) - (##string-append _%output-base201795%_ '"_.c"))) - (_%output-o_201803%_ + (##string-append _%output-base203082%_ '"_.c"))) + (_%output-o_203090%_ (let () (declare (not safe)) - (##string-append _%output-base201795%_ '"_.o"))) - (_%gsc-link-opts201805%_ (gxc#gsc-link-options__0)) - (_%gsc-cc-opts201807%_ + (##string-append _%output-base203082%_ '"_.o"))) + (_%gsc-link-opts203092%_ (gxc#gsc-link-options__0)) + (_%gsc-cc-opts203094%_ (gxc#gsc-cc-options__%__0 '#f '#t)) - (_%gsc-static-opts201809%_ + (_%gsc-static-opts203096%_ (gxc#gsc-static-include-options - (path-expand '"static" _%gerbil-libdir201772%_))) - (_%output-ld-opts201811%_ (gxc#gcc-ld-options)) - (_%gsc-gx-macros201813%_ + (path-expand '"static" _%gerbil-libdir203059%_))) + (_%output-ld-opts203098%_ (gxc#gcc-ld-options)) + (_%gsc-gx-macros203100%_ (if (let () (declare (not safe)) (gerbil-runtime-smp?)) (cons '"-e" (cons '"(define-cond-expand-feature|enable-smp|)" (cons '"-e" - (cons _%include-gambit-sharp201778%_ + (cons _%include-gambit-sharp203065%_ '())))) (cons '"-e" - (cons _%include-gambit-sharp201778%_ + (cons _%include-gambit-sharp203065%_ '())))) - (_%gsc-link-opts201815%_ + (_%gsc-link-opts203102%_ (let () (declare (not safe)) (##append - _%gsc-link-opts201805%_ - _%gsc-gx-macros201813%_))) - (_%rpath201817%_ - (gxc#gerbil-rpath _%gerbil-libdir201772%_)) - (_%default-ld-options201819%_ + _%gsc-link-opts203092%_ + _%gsc-gx-macros203100%_))) + (_%rpath203104%_ + (gxc#gerbil-rpath _%gerbil-libdir203059%_)) + (_%default-ld-options203106%_ (cons '"-ldl" (cons '"-lm" '())))) - (let ((__tmp202401 + (let ((__tmp203720 (lambda () - (let ((__tmp202402 - (path-directory _%output-bin201768%_))) + (let ((__tmp203721 + (path-directory _%output-bin203055%_))) (declare (not safe)) - (create-directory*__0 __tmp202402))))) + (create-directory*__0 __tmp203721))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202401)) + (__with-lock gxc#+driver-mutex+ __tmp203720)) (gxc#with-output-to-scheme-file - _%output-scm201767%_ + _%output-scm203054%_ (lambda () - (_%generate-stub201758%_ - (let ((__tmp202403 - (let ((__tmp202404 - (cons _%bin-scm201780%_ '()))) + (_%generate-stub203045%_ + (let ((__tmp203722 + (let ((__tmp203723 + (cons _%bin-scm203067%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp202404 - _%deps201793%_)))) + __tmp203723 + _%deps203080%_)))) (declare (not safe)) - (__foldr1 cons __tmp202403 _%runtime201774%_))))) + (__foldr1 cons __tmp203722 _%runtime203061%_))))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it201825%_ + (let ((_%compile-it203112%_ (lambda () (gxc#invoke__% '#f @@ -1150,13 +1178,13 @@ (gxc#gerbil-gsc) (cons '"-link" (cons '"-o" - (cons _%output-c_201801%_ - (let ((__tmp202405 - (cons _%output-scm201767%_ + (cons _%output-c_203088%_ + (let ((__tmp203724 + (cons _%output-scm203054%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) (declare (not safe)) - (__foldr1 cons __tmp202405 _%gsc-link-opts201815%_)))))) + (__foldr1 cons __tmp203724 _%gsc-link-opts203102%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#invoke__% '#f @@ -1164,23 +1192,23 @@ absent-value (gxc#gerbil-gsc) (cons '"-obj" - (let ((__tmp202406 - (let ((__tmp202407 - (cons _%output-c201797%_ - (cons _%output-c_201801%_ + (let ((__tmp203725 + (let ((__tmp203726 + (cons _%output-c203084%_ + (cons _%output-c_203088%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp202407 - _%gsc-static-opts201809%_)))) + __tmp203726 + _%gsc-static-opts203096%_)))) (declare (not safe)) (__foldr1 cons - __tmp202406 - _%gsc-cc-opts201807%_)))) + __tmp203725 + _%gsc-cc-opts203094%_)))) (gxc#invoke__% '#f absent-value @@ -1188,27 +1216,27 @@ (gxc#gerbil-gcc) (cons '"-w" (cons '"-o" - (cons _%output-bin201768%_ - (cons _%output-o201799%_ - (cons _%output-o_201803%_ + (cons _%output-bin203055%_ + (cons _%output-o203086%_ + (cons _%output-o_203090%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp202408 - (let ((__tmp202410 + (let ((__tmp203727 + (let ((__tmp203729 (cons '"-L" - (cons _%gerbil-libdir201772%_ + (cons _%gerbil-libdir203059%_ (cons '"-lgambit" - _%default-ld-options201819%_)))) - (__tmp202409 + _%default-ld-options203106%_)))) + (__tmp203728 (if (gxc#gerbil-enable-shared?) - (cons _%rpath201817%_ '()) + (cons _%rpath203104%_ '()) '()))) (declare (not safe)) - (__foldr1 cons __tmp202410 __tmp202409)))) + (__foldr1 cons __tmp203729 __tmp203728)))) (declare (not safe)) (__foldr1 cons - __tmp202408 - _%output-ld-opts201811%_))))))))))) + __tmp203727 + _%output-ld-opts203098%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) @@ -1216,626 +1244,626 @@ (let () (declare (not safe)) (gxc#add-compile-job!__0 - _%compile-it201825%_)) - (_%compile-it201825%_))) + _%compile-it203112%_)) + (_%compile-it203112%_))) '#!void))))) - (let* ((_%output-bin201762%_ - (gxc#compile-exe-output-file _%ctx201754%_ _%opts201755%_)) - (_%output-scm201764%_ + (let* ((_%output-bin203049%_ + (gxc#compile-exe-output-file _%ctx203041%_ _%opts203042%_)) + (_%output-scm203051%_ (let () (declare (not safe)) - (##string-append _%output-bin201762%_ '"__exe.scm")))) - (_%compile-stub201760%_ - _%output-scm201764%_ - _%output-bin201762%_))))) + (##string-append _%output-bin203049%_ '"__exe.scm")))) + (_%compile-stub203047%_ + _%output-scm203051%_ + _%output-bin203049%_))))) (define gxc#find-export-binding - (lambda (_%ctx201703%_ _%id201704%_) - (let ((_%$e201750%_ - (let ((__tmp202412 - (lambda (_%e201705201707%_) - (let* ((_%g201709201719%_ _%e201705201707%_) - (_%else201711201727%_ (lambda () '#f)) - (_%K201713201731%_ (lambda () '#t))) + (lambda (_%ctx202990%_ _%id202991%_) + (let ((_%$e203037%_ + (let ((__tmp203731 + (lambda (_%e202992202994%_) + (let* ((_%g202996203006%_ _%e202992202994%_) + (_%else202998203014%_ (lambda () '#f)) + (_%K203000203018%_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%g201709201719%_ + _%g202996203006%_ 'gx#module-export::t)) - (let* ((_%e201714201734%_ + (let* ((_%e203001203021%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g201709201719%_ + _%g202996203006%_ '1 '#f '#f))) - (_%e201715201737%_ + (_%e203002203024%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g201709201719%_ + _%g202996203006%_ '2 '#f '#f))) - (_%e201716201740%_ + (_%e203003203027%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g201709201719%_ + _%g202996203006%_ '3 '#f '#f)))) (if (let () (declare (not safe)) - (##eq? _%e201716201740%_ '0)) - (let ((_%e201717201743%_ + (##eq? _%e203003203027%_ '0)) + (let ((_%e203004203030%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g201709201719%_ + _%g202996203006%_ '4 '#f '#f)))) - (if ((lambda (_%g201745201747%_) - (eq? _%g201745201747%_ - _%id201704%_)) - _%e201717201743%_) - (_%K201713201731%_) - (_%else201711201727%_))) - (_%else201711201727%_))) - (_%else201711201727%_))))) - (__tmp202411 + (if ((lambda (_%g203032203034%_) + (eq? _%g203032203034%_ + _%id202991%_)) + _%e203004203030%_) + (_%K203000203018%_) + (_%else202998203014%_))) + (_%else202998203014%_))) + (_%else202998203014%_))))) + (__tmp203730 (##structure-ref - _%ctx201703%_ + _%ctx202990%_ '9 gx#module-context::t '#f))) (declare (not safe)) - (__find __tmp202412 __tmp202411)))) - (if _%$e201750%_ + (__find __tmp203731 __tmp203730)))) + (if _%$e203037%_ (let () (declare (not safe)) - (gx#core-resolve-module-export _%$e201750%_)) + (gx#core-resolve-module-export _%$e203037%_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_%ctx201694%_ _%id201695%_) - (let ((_%$e201697%_ - (gxc#find-export-binding _%ctx201694%_ _%id201695%_))) - (if _%$e201697%_ - ((lambda (_%bind201700%_) + (lambda (_%ctx202981%_ _%id202982%_) + (let ((_%$e202984%_ + (gxc#find-export-binding _%ctx202981%_ _%id202982%_))) + (if _%$e202984%_ + ((lambda (_%bind202987%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind201700%_ + _%bind202987%_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _%id201695%_))) - (##structure-ref _%bind201700%_ '1 gx#binding::t '#f)) - _%$e201697%_) - (let ((__tmp202413 + _%id202982%_))) + (##structure-ref _%bind202987%_ '1 gx#binding::t '#f)) + _%$e202984%_) + (let ((__tmp203732 (##structure-ref - _%ctx201694%_ + _%ctx202981%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp202413 - _%id201695%_)))))) + __tmp203732 + _%id202982%_)))))) (define gxc#find-runtime-module-deps - (lambda (_%ctx201560%_) - (letrec* ((_%ht201562%_ + (lambda (_%ctx202847%_) + (letrec* ((_%ht202849%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%import-set-template201563%_ - (lambda (_%in201639%_ _%phi201640%_) - (let ((_%iphi201642%_ - (fx+ _%phi201640%_ + (_%import-set-template202850%_ + (lambda (_%in202926%_ _%phi202927%_) + (let ((_%iphi202929%_ + (fx+ _%phi202927%_ (##direct-structure-ref - _%in201639%_ + _%in202926%_ '2 gx#import-set::t '#f))) - (_%imports201643%_ + (_%imports202930%_ (##structure-ref (##direct-structure-ref - _%in201639%_ + _%in202926%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp201645%_ ((_%rest201647%_ _%imports201643%_) - (_%r201648%_ '())) - (let* ((_%rest201649201657%_ _%rest201647%_) - (_%else201651201665%_ (lambda () _%r201648%_)) - (_%K201653201682%_ - (lambda (_%rest201668%_ _%in201669%_) + (let _%lp202932%_ ((_%rest202934%_ _%imports202930%_) + (_%r202935%_ '())) + (let* ((_%rest202936202944%_ _%rest202934%_) + (_%else202938202952%_ (lambda () _%r202935%_)) + (_%K202940202969%_ + (lambda (_%rest202955%_ _%in202956%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in201669%_ + _%in202956%_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (##fxzero? _%iphi201642%_)) - (_%lp201645%_ - _%rest201668%_ - (cons _%in201669%_ _%r201648%_)) - (_%lp201645%_ - _%rest201668%_ - _%r201648%_)) + (##fxzero? _%iphi202929%_)) + (_%lp202932%_ + _%rest202955%_ + (cons _%in202956%_ _%r202935%_)) + (_%lp202932%_ + _%rest202955%_ + _%r202935%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in201669%_ + _%in202956%_ 'gx#module-import::t)) - (let ((_%iphi201673%_ - (fx+ _%phi201640%_ + (let ((_%iphi202960%_ + (fx+ _%phi202927%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in201669%_ + _%in202956%_ '3 '#f '#f))))) (if (let () (declare (not safe)) - (##fxzero? _%iphi201673%_)) - (_%lp201645%_ - _%rest201668%_ + (##fxzero? _%iphi202960%_)) + (_%lp202932%_ + _%rest202955%_ (cons (##direct-structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%in201669%_ + _%in202956%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%r201648%_)) - (_%lp201645%_ - _%rest201668%_ - _%r201648%_))) + _%r202935%_)) + (_%lp202932%_ + _%rest202955%_ + _%r202935%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in201669%_ + _%in202956%_ 'gx#import-set::t)) - (let ((_%xphi201676%_ - (fx+ _%iphi201642%_ + (let ((_%xphi202963%_ + (fx+ _%iphi202929%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in201669%_ + _%in202956%_ '2 '#f '#f))))) (if (let () (declare (not safe)) (##fxzero? - _%xphi201676%_)) - (_%lp201645%_ - _%rest201668%_ + _%xphi202963%_)) + (_%lp202932%_ + _%rest202955%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%in201669%_ + _%in202956%_ '1 '#f '#f)) - _%r201648%_)) + _%r202935%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi201676%_)) - (_%lp201645%_ - _%rest201668%_ - (let ((__tmp202414 + _%xphi202963%_)) + (_%lp202932%_ + _%rest202955%_ + (let ((__tmp203733 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%import-set-template201563%_ - _%in201669%_ - _%iphi201642%_))) + (_%import-set-template202850%_ + _%in202956%_ + _%iphi202929%_))) (declare (not safe)) - (__foldl1 cons _%r201648%_ __tmp202414))) - (_%lp201645%_ _%rest201668%_ _%r201648%_)))) + (__foldl1 cons _%r202935%_ __tmp203733))) + (_%lp202932%_ _%rest202955%_ _%r202935%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp201645%_ - _%rest201668%_ - _%r201648%_))))))) - (if (pair? _%rest201649201657%_) - (let ((_%hd201654201685%_ + (_%lp202932%_ + _%rest202955%_ + _%r202935%_))))))) + (if (pair? _%rest202936202944%_) + (let ((_%hd202941202972%_ (let () (declare (not safe)) - (##car _%rest201649201657%_))) - (_%tl201655201687%_ + (##car _%rest202936202944%_))) + (_%tl202942202974%_ (let () (declare (not safe)) - (##cdr _%rest201649201657%_)))) - (let* ((_%in201690%_ _%hd201654201685%_) - (_%rest201692%_ _%tl201655201687%_)) - (_%K201653201682%_ - _%rest201692%_ - _%in201690%_))) - (_%else201651201665%_))))))) - (_%find-deps201564%_ - (lambda (_%rest201572%_ _%deps201573%_) - (let* ((_%rest201574201582%_ _%rest201572%_) - (_%else201576201590%_ (lambda () _%deps201573%_)) - (_%K201578201627%_ - (lambda (_%rest201593%_ _%hd201594%_) + (##cdr _%rest202936202944%_)))) + (let* ((_%in202977%_ _%hd202941202972%_) + (_%rest202979%_ _%tl202942202974%_)) + (_%K202940202969%_ + _%rest202979%_ + _%in202977%_))) + (_%else202938202952%_))))))) + (_%find-deps202851%_ + (lambda (_%rest202859%_ _%deps202860%_) + (let* ((_%rest202861202869%_ _%rest202859%_) + (_%else202863202877%_ (lambda () _%deps202860%_)) + (_%K202865202914%_ + (lambda (_%rest202880%_ _%hd202881%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd201594%_ + _%hd202881%_ 'gx#module-context::t)) - (let ((_%id201597%_ + (let ((_%id202884%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201594%_ + _%hd202881%_ '1 '#f '#f))) - (_%imports201598%_ + (_%imports202885%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201594%_ + _%hd202881%_ '8 '#f '#f)))) (if (let () (declare (not safe)) (__hash-get - _%ht201562%_ - _%id201597%_)) - (_%find-deps201564%_ - _%rest201593%_ - _%deps201573%_) - (let ((_%$e201601%_ + _%ht202849%_ + _%id202884%_)) + (_%find-deps202851%_ + _%rest202880%_ + _%deps202860%_) + (let ((_%$e202888%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd201594%_)))) - (if _%$e201601%_ - ((lambda (_%pre201604%_) - (let ((_%xdeps201606%_ - (_%find-deps201564%_ - (cons _%pre201604%_ - _%imports201598%_) - _%deps201573%_))) + _%hd202881%_)))) + (if _%$e202888%_ + ((lambda (_%pre202891%_) + (let ((_%xdeps202893%_ + (_%find-deps202851%_ + (cons _%pre202891%_ + _%imports202885%_) + _%deps202860%_))) (let () (declare (not safe)) (__hash-put! - _%ht201562%_ - _%id201597%_ - _%hd201594%_)) - (_%find-deps201564%_ - _%rest201593%_ - (cons _%hd201594%_ - _%xdeps201606%_)))) - _%$e201601%_) - (let ((_%xdeps201609%_ - (_%find-deps201564%_ - _%imports201598%_ - _%deps201573%_))) + _%ht202849%_ + _%id202884%_ + _%hd202881%_)) + (_%find-deps202851%_ + _%rest202880%_ + (cons _%hd202881%_ + _%xdeps202893%_)))) + _%$e202888%_) + (let ((_%xdeps202896%_ + (_%find-deps202851%_ + _%imports202885%_ + _%deps202860%_))) (let () (declare (not safe)) (__hash-put! - _%ht201562%_ - _%id201597%_ - _%hd201594%_)) - (_%find-deps201564%_ - _%rest201593%_ - (cons _%hd201594%_ - _%xdeps201609%_))))))) + _%ht202849%_ + _%id202884%_ + _%hd202881%_)) + (_%find-deps202851%_ + _%rest202880%_ + (cons _%hd202881%_ + _%xdeps202896%_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd201594%_ + _%hd202881%_ 'gx#prelude-context::t)) - (let ((_%id201612%_ + (let ((_%id202899%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201594%_ + _%hd202881%_ '1 '#f '#f)))) (if (let () (declare (not safe)) (__hash-get - _%ht201562%_ - _%id201612%_)) - (_%find-deps201564%_ - _%rest201593%_ - _%deps201573%_) - (let ((_%xdeps201616%_ - (_%find-deps201564%_ + _%ht202849%_ + _%id202899%_)) + (_%find-deps202851%_ + _%rest202880%_ + _%deps202860%_) + (let ((_%xdeps202903%_ + (_%find-deps202851%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201594%_ + _%hd202881%_ '7 '#f '#f)) - _%deps201573%_))) + _%deps202860%_))) (if (let () (declare (not safe)) (__hash-get - _%ht201562%_ - _%id201612%_)) - (_%find-deps201564%_ - _%rest201593%_ - _%xdeps201616%_) + _%ht202849%_ + _%id202899%_)) + (_%find-deps202851%_ + _%rest202880%_ + _%xdeps202903%_) (begin (let () (declare (not safe)) (__hash-put! - _%ht201562%_ - _%id201612%_ - _%hd201594%_)) - (_%find-deps201564%_ - _%rest201593%_ - (cons _%hd201594%_ - _%xdeps201616%_))))))) + _%ht202849%_ + _%id202899%_ + _%hd202881%_)) + (_%find-deps202851%_ + _%rest202880%_ + (cons _%hd202881%_ + _%xdeps202903%_))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd201594%_ + _%hd202881%_ 'gx#module-import::t)) (if (fxzero? (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201594%_ + _%hd202881%_ '3 '#f '#f))) - (_%find-deps201564%_ + (_%find-deps202851%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201594%_ + _%hd202881%_ '1 '#f '#f)) - _%rest201593%_) - _%deps201573%_) - (_%find-deps201564%_ - _%rest201593%_ - _%deps201573%_)) + _%rest202880%_) + _%deps202860%_) + (_%find-deps202851%_ + _%rest202880%_ + _%deps202860%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd201594%_ + _%hd202881%_ 'gx#module-export::t)) - (_%find-deps201564%_ + (_%find-deps202851%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201594%_ + _%hd202881%_ '1 '#f '#f)) - _%rest201593%_) - _%deps201573%_) + _%rest202880%_) + _%deps202860%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd201594%_ + _%hd202881%_ 'gx#import-set::t)) (if (fxzero? (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##unchecked-structure-ref _%hd201594%_ '2 '#f '#f))) - (_%find-deps201564%_ + (##unchecked-structure-ref _%hd202881%_ '2 '#f '#f))) + (_%find-deps202851%_ (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%hd201594%_ '1 '#f '#f)) - _%rest201593%_) - _%deps201573%_) + (##unchecked-structure-ref _%hd202881%_ '1 '#f '#f)) + _%rest202880%_) + _%deps202860%_) (if (fxpositive? (let () (declare (not safe)) - (##unchecked-structure-ref _%hd201594%_ '2 '#f '#f))) - (let ((_%xdeps201623%_ - (_%import-set-template201563%_ _%hd201594%_ '0))) - (_%find-deps201564%_ + (##unchecked-structure-ref _%hd202881%_ '2 '#f '#f))) + (let ((_%xdeps202910%_ + (_%import-set-template202850%_ _%hd202881%_ '0))) + (_%find-deps202851%_ (let () (declare (not safe)) - (__foldl1 cons _%rest201593%_ _%xdeps201623%_)) - _%deps201573%_)) - (_%find-deps201564%_ _%rest201593%_ _%deps201573%_))) + (__foldl1 cons _%rest202880%_ _%xdeps202910%_)) + _%deps202860%_)) + (_%find-deps202851%_ _%rest202880%_ _%deps202860%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (error '"Unexpected module import" - _%hd201594%_)))))))))) - (if (pair? _%rest201574201582%_) - (let ((_%hd201579201630%_ + _%hd202881%_)))))))))) + (if (pair? _%rest202861202869%_) + (let ((_%hd202866202917%_ (let () (declare (not safe)) - (##car _%rest201574201582%_))) - (_%tl201580201632%_ + (##car _%rest202861202869%_))) + (_%tl202867202919%_ (let () (declare (not safe)) - (##cdr _%rest201574201582%_)))) - (let* ((_%hd201635%_ _%hd201579201630%_) - (_%rest201637%_ _%tl201580201632%_)) - (_%K201578201627%_ - _%rest201637%_ - _%hd201635%_))) - (_%else201576201590%_)))))) - (let ((__tmp202415 + (##cdr _%rest202861202869%_)))) + (let* ((_%hd202922%_ _%hd202866202917%_) + (_%rest202924%_ _%tl202867202919%_)) + (_%K202865202914%_ + _%rest202924%_ + _%hd202922%_))) + (_%else202863202877%_)))))) + (let ((__tmp203734 (filter gx#expander-context-id - (_%find-deps201564%_ - (let ((_%$e201566%_ + (_%find-deps202851%_ + (let ((_%$e202853%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%ctx201560%_)))) - (if _%$e201566%_ - ((lambda (_%pre201569%_) - (cons _%pre201569%_ + _%ctx202847%_)))) + (if _%$e202853%_ + ((lambda (_%pre202856%_) + (cons _%pre202856%_ (##structure-ref - _%ctx201560%_ + _%ctx202847%_ '8 gx#module-context::t '#f))) - _%$e201566%_) + _%$e202853%_) (##structure-ref - _%ctx201560%_ + _%ctx202847%_ '8 gx#module-context::t '#f))) '())))) (declare (not safe)) - (##reverse __tmp202415))))) + (##reverse __tmp203734))))) (define gxc#find-static-module-file - (lambda (_%ctx201490%_) - (let* ((_%context-id201492%_ + (lambda (_%ctx202777%_) + (let* ((_%context-id202779%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%ctx201490%_ + _%ctx202777%_ 'gx#module-context::t)) (let () (declare (not safe)) - (##unchecked-structure-ref _%ctx201490%_ '1 '#f '#f)) - (string->symbol _%ctx201490%_))) - (_%scm201494%_ - (let ((__tmp202416 - (gxc#static-module-name _%context-id201492%_))) + (##unchecked-structure-ref _%ctx202777%_ '1 '#f '#f)) + (string->symbol _%ctx202777%_))) + (_%scm202781%_ + (let ((__tmp203735 + (gxc#static-module-name _%context-id202779%_))) (declare (not safe)) - (##string-append __tmp202416 '".scm"))) - (_%dirs201496%_ (let () (declare (not safe)) (load-path))) - (_%dirs201502%_ - (let ((_%user-libpath201498%_ + (##string-append __tmp203735 '".scm"))) + (_%dirs202783%_ (let () (declare (not safe)) (load-path))) + (_%dirs202789%_ + (let ((_%user-libpath202785%_ (let () (declare (not safe)) (##getenv '"GERBIL_PATH" '#f)))) - (if _%user-libpath201498%_ - (let ((_%user-libpath201500%_ - (path-expand '"lib" _%user-libpath201498%_))) + (if _%user-libpath202785%_ + (let ((_%user-libpath202787%_ + (path-expand '"lib" _%user-libpath202785%_))) (if (let () (declare (not safe)) - (##member _%user-libpath201500%_ _%dirs201496%_)) - _%dirs201496%_ - (cons _%user-libpath201500%_ _%dirs201496%_))) - _%dirs201496%_))) - (_%dirs201512%_ - (let ((_%$e201504%_ + (##member _%user-libpath202787%_ _%dirs202783%_)) + _%dirs202783%_ + (cons _%user-libpath202787%_ _%dirs202783%_))) + _%dirs202783%_))) + (_%dirs202799%_ + (let ((_%$e202791%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e201504%_ - ((lambda (_%g201506201508%_) - (cons _%g201506201508%_ _%dirs201502%_)) - _%$e201504%_) - _%dirs201502%_))) - (_%dirs201518%_ - (let ((__tmp202417 - (lambda (_%g201513201515%_) - (path-expand '"static" _%g201513201515%_)))) + (if _%$e202791%_ + ((lambda (_%g202793202795%_) + (cons _%g202793202795%_ _%dirs202789%_)) + _%$e202791%_) + _%dirs202789%_))) + (_%dirs202805%_ + (let ((__tmp203736 + (lambda (_%g202800202802%_) + (path-expand '"static" _%g202800202802%_)))) (declare (not safe)) - (##map __tmp202417 _%dirs201512%_)))) - (let _%lp201521%_ ((_%rest201523%_ _%dirs201518%_)) - (let* ((_%rest201524201532%_ _%rest201523%_) - (_%else201526201540%_ + (##map __tmp203736 _%dirs202799%_)))) + (let _%lp202808%_ ((_%rest202810%_ _%dirs202805%_)) + (let* ((_%rest202811202819%_ _%rest202810%_) + (_%else202813202827%_ (lambda () - (let ((__tmp202418 + (let ((__tmp203737 (##structure-ref - _%ctx201490%_ + _%ctx202777%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp202418 - _%scm201494%_)))) - (_%K201528201548%_ - (lambda (_%rest201543%_ _%dir201544%_) - (let ((_%path201546%_ - (path-expand _%scm201494%_ _%dir201544%_))) + __tmp203737 + _%scm202781%_)))) + (_%K202815202835%_ + (lambda (_%rest202830%_ _%dir202831%_) + (let ((_%path202833%_ + (path-expand _%scm202781%_ _%dir202831%_))) (if (let () (declare (not safe)) - (##file-exists? _%path201546%_)) - _%path201546%_ - (_%lp201521%_ _%rest201543%_)))))) - (if (pair? _%rest201524201532%_) - (let ((_%hd201529201551%_ + (##file-exists? _%path202833%_)) + _%path202833%_ + (_%lp202808%_ _%rest202830%_)))))) + (if (pair? _%rest202811202819%_) + (let ((_%hd202816202838%_ (let () (declare (not safe)) - (##car _%rest201524201532%_))) - (_%tl201530201553%_ + (##car _%rest202811202819%_))) + (_%tl202817202840%_ (let () (declare (not safe)) - (##cdr _%rest201524201532%_)))) - (let* ((_%dir201556%_ _%hd201529201551%_) - (_%rest201558%_ _%tl201530201553%_)) - (_%K201528201548%_ _%rest201558%_ _%dir201556%_))) - (_%else201526201540%_))))))) + (##cdr _%rest202811202819%_)))) + (let* ((_%dir202843%_ _%hd202816202838%_) + (_%rest202845%_ _%tl202817202840%_)) + (_%K202815202835%_ _%rest202845%_ _%dir202843%_))) + (_%else202813202827%_))))))) (define gxc#file-empty? - (lambda (_%path201488%_) - (zero? (let ((__tmp202419 (file-info _%path201488%_ '#t))) + (lambda (_%path202775%_) + (zero? (let ((__tmp203738 (file-info _%path202775%_ '#t))) (declare (not safe)) - (##file-info-size __tmp202419))))) + (##file-info-size __tmp203738))))) (define gxc#compile-top-module - (lambda (_%ctx201484%_) - (let ((__tmp202423 + (lambda (_%ctx202771%_) + (let ((__tmp203742 (lambda () - (let ((__tmp202424 + (let ((__tmp203743 (##structure-ref - _%ctx201484%_ + _%ctx202771%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp202424)) + (gxc#verbose '"compile " __tmp203743)) (if (let () (declare (not safe)) (gxc#current-compile-optimize)) - (let ((__tmp202425 + (let ((__tmp203744 (lambda () (let () (declare (not safe)) - (gxc#optimize! _%ctx201484%_))))) + (gxc#optimize! _%ctx202771%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202425)) + (__with-lock gxc#+driver-mutex+ __tmp203744)) '#!void) - (gxc#collect-bindings _%ctx201484%_) - (gxc#compile-runtime-code _%ctx201484%_) - (gxc#compile-meta-code _%ctx201484%_) + (gxc#collect-bindings _%ctx202771%_) + (gxc#compile-runtime-code _%ctx202771%_) + (gxc#compile-meta-code _%ctx202771%_) (if (and (let () (declare (not safe)) (gxc#current-compile-optimize)) (let () (declare (not safe)) (gxc#current-compile-generate-ssxi))) - (gxc#compile-ssxi-code _%ctx201484%_) + (gxc#compile-ssxi-code _%ctx202771%_) '#!void))) - (__tmp202422 - (let ((__obj202346 + (__tmp203741 + (let ((__obj203665 (let () (declare (not safe)) (##structure gxc#symbol-table::t '#f '#f)))) (let () (declare (not safe)) - (gxc#symbol-table:::init! __obj202346)) - __obj202346)) - (__tmp202421 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp202420 + (gxc#symbol-table:::init! __obj203665)) + __obj203665)) + (__tmp203740 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp203739 (let () (declare (not safe)) (make-hash-table__% @@ -1850,137 +1878,137 @@ absent-value)))) (declare (not safe)) (__call-with-parameters - __tmp202423 + __tmp203742 gx#current-expander-context - _%ctx201484%_ + _%ctx202771%_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp202422 + __tmp203741 gxc#current-compile-runtime-sections - __tmp202421 + __tmp203740 gxc#current-compile-runtime-names - __tmp202420)))) + __tmp203739)))) (define gxc#collect-bindings - (lambda (_%ctx201482%_) - (let ((__tmp202426 - (##structure-ref _%ctx201482%_ '11 gx#module-context::t '#f))) + (lambda (_%ctx202769%_) + (let ((__tmp203745 + (##structure-ref _%ctx202769%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp202426)))) + (gxc#apply-collect-bindings __tmp203745)))) (define gxc#compile-runtime-code - (lambda (_%ctx201430%_) - (letrec ((_%compile1201432%_ - (lambda (_%ctx201471%_) - (let* ((_%code201473%_ + (lambda (_%ctx202717%_) + (letrec ((_%compile1202719%_ + (lambda (_%ctx202758%_) + (let* ((_%code202760%_ (##structure-ref - _%ctx201471%_ + _%ctx202758%_ '11 gx#module-context::t '#f)) - (_%rtm201477%_ - (let ((_%idstr201475%_ - (let ((__tmp202427 + (_%rtm202764%_ + (let ((_%idstr202762%_ + (let ((__tmp203746 (##structure-ref - _%ctx201471%_ + _%ctx202758%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp202427)))) + __tmp203746)))) (declare (not safe)) - (##string-append _%idstr201475%_ '"~0"))) - (_%rtc?201479%_ + (##string-append _%idstr202762%_ '"~0"))) + (_%rtc?202766%_ (let () (declare (not safe)) - (gxc#apply-find-runtime-code _%code201473%_)))) - (if _%rtc?201479%_ - (let ((__tmp202428 + (gxc#apply-find-runtime-code _%code202760%_)))) + (if _%rtc?202766%_ + (let ((__tmp203747 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) (hash-put! - __tmp202428 - _%ctx201471%_ - _%rtm201477%_)) + __tmp203747 + _%ctx202758%_ + _%rtm202764%_)) '#!void) - (_%generate-runtime-code201434%_ - _%ctx201471%_ - _%code201473%_ - (if _%rtc?201479%_ _%rtm201477%_ '#f))))) - (_%context-timestamp201433%_ - (lambda (_%ctx201469%_) - (let ((__tmp202429 - (let ((__tmp202430 + (_%generate-runtime-code202721%_ + _%ctx202758%_ + _%code202760%_ + (if _%rtc?202766%_ _%rtm202764%_ '#f))))) + (_%context-timestamp202720%_ + (lambda (_%ctx202756%_) + (let ((__tmp203748 + (let ((__tmp203749 (symbol->string (##structure-ref - _%ctx201469%_ + _%ctx202756%_ '1 gx#expander-context::t '#f)))) (declare (not safe)) - (##string-append __tmp202430 '"::timestamp")))) + (##string-append __tmp203749 '"::timestamp")))) (declare (not safe)) - (##string->symbol __tmp202429)))) - (_%generate-runtime-code201434%_ - (lambda (_%ctx201441%_ _%code201442%_ _%rtm201443%_) - (let* ((_%runtime-code?201445%_ (if _%rtm201443%_ '#t '#f)) - (_%lifts201447%_ (box '())) - (_%runtime-code201450%_ - (if _%runtime-code?201445%_ - (let ((__tmp202433 + (##string->symbol __tmp203748)))) + (_%generate-runtime-code202721%_ + (lambda (_%ctx202728%_ _%code202729%_ _%rtm202730%_) + (let* ((_%runtime-code?202732%_ (if _%rtm202730%_ '#t '#f)) + (_%lifts202734%_ (box '())) + (_%runtime-code202737%_ + (if _%runtime-code?202732%_ + (let ((__tmp203752 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _%code201442%_)))) - (__tmp202432 + _%code202729%_)))) + (__tmp203751 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp202431 + (__tmp203750 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (__call-with-parameters - __tmp202433 + __tmp203752 gx#current-expander-context - _%ctx201441%_ + _%ctx202728%_ gx#current-expander-phi '0 gxc#current-compile-lift - _%lifts201447%_ + _%lifts202734%_ gxc#current-compile-marks - __tmp202432 + __tmp203751 gxc#current-compile-identifiers - __tmp202431)) + __tmp203750)) '#f)) - (_%runtime-code201452%_ - (if _%runtime-code?201445%_ - (if (null? (unbox _%lifts201447%_)) - _%runtime-code201450%_ + (_%runtime-code202739%_ + (if _%runtime-code?202732%_ + (if (null? (unbox _%lifts202734%_)) + _%runtime-code202737%_ (cons 'begin - (let ((__tmp202435 - (cons _%runtime-code201450%_ + (let ((__tmp203754 + (cons _%runtime-code202737%_ '())) - (__tmp202434 - (reverse (unbox _%lifts201447%_)))) + (__tmp203753 + (reverse (unbox _%lifts202734%_)))) (declare (not safe)) (__foldr1 cons - __tmp202435 - __tmp202434)))) + __tmp203754 + __tmp203753)))) '#f)) - (_%runtime-code201454%_ - (if _%runtime-code?201445%_ + (_%runtime-code202741%_ + (if _%runtime-code?202732%_ (cons 'begin (cons (cons 'define - (cons (_%context-timestamp201433%_ - _%ctx201441%_) + (cons (_%context-timestamp202720%_ + _%ctx202728%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -1988,779 +2016,779 @@ (gxc#current-compile-timestamp)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%runtime-code201452%_ '()))) + (cons _%runtime-code202739%_ '()))) '#f)) - (_%loader-code201457%_ - (let ((__tmp202436 + (_%loader-code202744%_ + (let ((__tmp203755 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _%code201442%_))))) + _%code202729%_))))) (declare (not safe)) (__call-with-parameters - __tmp202436 + __tmp203755 gx#current-expander-context - _%ctx201441%_))) - (_%loader-code201459%_ + _%ctx202728%_))) + (_%loader-code202746%_ (cons 'begin - (cons _%loader-code201457%_ - (cons (if _%runtime-code?201445%_ + (cons _%loader-code202744%_ + (cons (if _%runtime-code?202732%_ (cons 'load-module - (cons _%rtm201443%_ + (cons _%rtm202730%_ '())) '(begin)) '())))) - (_%scm0201461%_ - (gxc#compile-output-file _%ctx201441%_ '0 '".scm")) - (_%scmrt201463%_ + (_%scm0202748%_ + (gxc#compile-output-file _%ctx202728%_ '0 '".scm")) + (_%scmrt202750%_ (gxc#compile-output-file - _%ctx201441%_ + _%ctx202728%_ '#f '".scm")) - (_%scms201465%_ - (gxc#compile-static-output-file _%ctx201441%_))) - (if _%runtime-code?201445%_ + (_%scms202752%_ + (gxc#compile-static-output-file _%ctx202728%_))) + (if _%runtime-code?202732%_ (gxc#compile-scm-file__0 - _%scm0201461%_ - _%runtime-code201454%_) + _%scm0202748%_ + _%runtime-code202741%_) '#!void) - (let ((__tmp202437 + (let ((__tmp203756 (lambda () (gxc#compile-scm-file__0 - _%scmrt201463%_ - _%loader-code201459%_)))) + _%scmrt202750%_ + _%loader-code202746%_)))) (declare (not safe)) (__call-with-parameters - __tmp202437 + __tmp203756 gxc#current-compile-gsc-options '#f)) (if (let () (declare (not safe)) - (##file-exists? _%scms201465%_)) + (##file-exists? _%scms202752%_)) (let () (declare (not safe)) - (##delete-file _%scms201465%_)) + (##delete-file _%scms202752%_)) '#!void) - (if _%runtime-code?201445%_ + (if _%runtime-code?202732%_ (let () (declare (not safe)) - (##copy-file _%scm0201461%_ _%scms201465%_)) + (##copy-file _%scm0202748%_ _%scms202752%_)) (let () (declare (not safe)) - (##call-with-output-file _%scms201465%_ void))))))) - (let* ((_%all-modules201436%_ - (cons _%ctx201430%_ (gxc#lift-nested-modules _%ctx201430%_))) - (__tmp202438 - (lambda (_%ctx201438%_) - (let ((__tmp202439 - (lambda () (_%compile1201432%_ _%ctx201438%_)))) + (##call-with-output-file _%scms202752%_ void))))))) + (let* ((_%all-modules202723%_ + (cons _%ctx202717%_ (gxc#lift-nested-modules _%ctx202717%_))) + (__tmp203757 + (lambda (_%ctx202725%_) + (let ((__tmp203758 + (lambda () (_%compile1202719%_ _%ctx202725%_)))) (declare (not safe)) (__call-with-parameters - __tmp202439 + __tmp203758 gxc#current-compile-decls '()))))) (declare (not safe)) - (##for-each __tmp202438 _%all-modules201436%_))))) + (##for-each __tmp203757 _%all-modules202723%_))))) (define gxc#compile-meta-code - (lambda (_%ctx201330%_) - (letrec ((_%compile-ssi201332%_ - (lambda (_%code201398%_) - (let* ((_%path201400%_ + (lambda (_%ctx202617%_) + (letrec ((_%compile-ssi202619%_ + (lambda (_%code202685%_) + (let* ((_%path202687%_ (gxc#compile-output-file - _%ctx201330%_ + _%ctx202617%_ '#f '".ssi")) - (_%prelude201412%_ - (let* ((_%super201402%_ + (_%prelude202699%_ + (let* ((_%super202689%_ (##structure-ref - _%ctx201330%_ + _%ctx202617%_ '3 gx#phi-context::t '#f)) - (_%$e201404%_ + (_%$e202691%_ (##structure-ref - _%super201402%_ + _%super202689%_ '1 gx#expander-context::t '#f))) - (if _%$e201404%_ - ((lambda (_%g201406201408%_) + (if _%$e202691%_ + ((lambda (_%g202693202695%_) (let () (declare (not safe)) (make-symbol__1 '":" - _%g201406201408%_))) - _%$e201404%_) + _%g202693202695%_))) + _%$e202691%_) ':))) - (_%ns201414%_ + (_%ns202701%_ (##structure-ref - _%ctx201330%_ + _%ctx202617%_ '6 gx#module-context::t '#f)) - (_%idstr201416%_ + (_%idstr202703%_ (symbol->string (##structure-ref - _%ctx201330%_ + _%ctx202617%_ '1 gx#expander-context::t '#f))) - (_%pkg201424%_ - (let ((_%$e201418%_ + (_%pkg202711%_ + (let ((_%$e202705%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr201416%_ '#\/)))) - (if _%$e201418%_ - ((lambda (_%x201421%_) - (let ((__tmp202440 + (string-rindex__0 _%idstr202703%_ '#\/)))) + (if _%$e202705%_ + ((lambda (_%x202708%_) + (let ((__tmp203759 (substring - _%idstr201416%_ + _%idstr202703%_ '0 - _%x201421%_))) + _%x202708%_))) (declare (not safe)) - (##string->symbol __tmp202440))) - _%$e201418%_) + (##string->symbol __tmp203759))) + _%$e202705%_) '#f))) - (_%rt201426%_ - (let ((__tmp202441 + (_%rt202713%_ + (let ((__tmp203760 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) - (hash-get __tmp202441 _%ctx201330%_)))) + (hash-get __tmp203760 _%ctx202617%_)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path201400%_)) + (gxc#verbose '"compile " _%path202687%_)) (gxc#with-output-to-scheme-file - _%path201400%_ + _%path202687%_ (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _%prelude201412%_)) - (if _%pkg201424%_ + (displayln '"prelude:" '" " _%prelude202699%_)) + (if _%pkg202711%_ (let () (declare (not safe)) - (displayln '"package:" '" " _%pkg201424%_)) + (displayln '"package:" '" " _%pkg202711%_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _%ns201414%_)) + (displayln '"namespace:" '" " _%ns202701%_)) (newline) - (pretty-print _%code201398%_) - (if _%rt201426%_ + (pretty-print _%code202685%_) + (if _%rt202713%_ (pretty-print (cons '%#call (cons (cons '%#ref (cons 'load-module '())) (cons (cons '%#quote - (cons _%rt201426%_ '())) + (cons _%rt202713%_ '())) '())))) '#!void)))))) - (_%compile-phi201333%_ - (lambda (_%part201338%_) - (let* ((_%part201339201352%_ _%part201338%_) - (_%E201341201356%_ + (_%compile-phi202620%_ + (lambda (_%part202625%_) + (let* ((_%part202626202639%_ _%part202625%_) + (_%E202628202643%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%part201339201352%_ + _%part202626202639%_ '([phi-ctx phi n code]))) '#!void)) - (_%K201342201367%_ - (lambda (_%code201359%_ - _%n201360%_ - _%phi201361%_ - _%phi-ctx201362%_) - (let ((_%code201365%_ - (let ((__tmp202442 + (_%K202629202654%_ + (lambda (_%code202646%_ + _%n202647%_ + _%phi202648%_ + _%phi-ctx202649%_) + (let ((_%code202652%_ + (let ((__tmp203761 (lambda () (gxc#generate-runtime-phi - _%code201359%_)))) + _%code202646%_)))) (declare (not safe)) (__call-with-parameters - __tmp202442 + __tmp203761 gx#current-expander-context - _%phi-ctx201362%_ + _%phi-ctx202649%_ gx#current-expander-phi - _%phi201361%_)))) + _%phi202648%_)))) (gxc#compile-scm-file__% (gxc#compile-output-file - _%ctx201330%_ - _%n201360%_ + _%ctx202617%_ + _%n202647%_ '".scm") - _%code201365%_ + _%code202652%_ '#t))))) - (if (pair? _%part201339201352%_) - (let ((_%hd201343201370%_ + (if (pair? _%part202626202639%_) + (let ((_%hd202630202657%_ (let () (declare (not safe)) - (##car _%part201339201352%_))) - (_%tl201344201372%_ + (##car _%part202626202639%_))) + (_%tl202631202659%_ (let () (declare (not safe)) - (##cdr _%part201339201352%_)))) - (let ((_%phi-ctx201375%_ _%hd201343201370%_)) - (if (pair? _%tl201344201372%_) - (let ((_%hd201345201377%_ + (##cdr _%part202626202639%_)))) + (let ((_%phi-ctx202662%_ _%hd202630202657%_)) + (if (pair? _%tl202631202659%_) + (let ((_%hd202632202664%_ (let () (declare (not safe)) - (##car _%tl201344201372%_))) - (_%tl201346201379%_ + (##car _%tl202631202659%_))) + (_%tl202633202666%_ (let () (declare (not safe)) - (##cdr _%tl201344201372%_)))) - (let ((_%phi201382%_ _%hd201345201377%_)) - (if (pair? _%tl201346201379%_) - (let ((_%hd201347201384%_ + (##cdr _%tl202631202659%_)))) + (let ((_%phi202669%_ _%hd202632202664%_)) + (if (pair? _%tl202633202666%_) + (let ((_%hd202634202671%_ (let () (declare (not safe)) - (##car _%tl201346201379%_))) - (_%tl201348201386%_ + (##car _%tl202633202666%_))) + (_%tl202635202673%_ (let () (declare (not safe)) - (##cdr _%tl201346201379%_)))) - (let ((_%n201389%_ - _%hd201347201384%_)) - (if (pair? _%tl201348201386%_) - (let ((_%hd201349201391%_ + (##cdr _%tl202633202666%_)))) + (let ((_%n202676%_ + _%hd202634202671%_)) + (if (pair? _%tl202635202673%_) + (let ((_%hd202636202678%_ (let () (declare (not safe)) - (##car _%tl201348201386%_))) - (_%tl201350201393%_ + (##car _%tl202635202673%_))) + (_%tl202637202680%_ (let () (declare (not safe)) - (##cdr _%tl201348201386%_)))) - (let ((_%code201396%_ - _%hd201349201391%_)) - (if (null? _%tl201350201393%_) - (_%K201342201367%_ - _%code201396%_ - _%n201389%_ - _%phi201382%_ - _%phi-ctx201375%_) - (_%E201341201356%_)))) - (_%E201341201356%_)))) - (_%E201341201356%_)))) - (_%E201341201356%_)))) - (_%E201341201356%_)))))) - (let ((_g202443_ (gxc#generate-meta-code _%ctx201330%_))) + (##cdr _%tl202635202673%_)))) + (let ((_%code202683%_ + _%hd202636202678%_)) + (if (null? _%tl202637202680%_) + (_%K202629202654%_ + _%code202683%_ + _%n202676%_ + _%phi202669%_ + _%phi-ctx202662%_) + (_%E202628202643%_)))) + (_%E202628202643%_)))) + (_%E202628202643%_)))) + (_%E202628202643%_)))) + (_%E202628202643%_)))))) + (let ((_g203762_ (gxc#generate-meta-code _%ctx202617%_))) (begin - (let ((_g202444_ + (let ((_g203763_ (let () (declare (not safe)) - (if (##values? _g202443_) - (##vector-length _g202443_) + (if (##values? _g203762_) + (##values-length _g203762_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g202444_ 2))) - (error "Context expects 2 values" _g202444_))) - (let ((_%ssi-code201335%_ - (let () (declare (not safe)) (##vector-ref _g202443_ 0))) - (_%phi-code201336%_ - (let () (declare (not safe)) (##vector-ref _g202443_ 1)))) + (if (not (let () (declare (not safe)) (##fx= _g203763_ 2))) + (error "Context expects 2 values" _g203763_))) + (let ((_%ssi-code202622%_ + (let () (declare (not safe)) (##values-ref _g203762_ 0))) + (_%phi-code202623%_ + (let () (declare (not safe)) (##values-ref _g203762_ 1)))) (begin - (_%compile-ssi201332%_ _%ssi-code201335%_) - (for-each _%compile-phi201333%_ _%phi-code201336%_)))))))) + (_%compile-ssi202619%_ _%ssi-code202622%_) + (for-each _%compile-phi202620%_ _%phi-code202623%_)))))))) (define gxc#compile-ssxi-code - (lambda (_%ctx201312%_) - (let* ((_%path201314%_ - (gxc#compile-output-file _%ctx201312%_ '#f '".ssxi.ss")) - (_%code201316%_ - (let ((__tmp202445 + (lambda (_%ctx202599%_) + (let* ((_%path202601%_ + (gxc#compile-output-file _%ctx202599%_ '#f '".ssxi.ss")) + (_%code202603%_ + (let ((__tmp203764 (##structure-ref - _%ctx201312%_ + _%ctx202599%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp202445))) - (_%idstr201318%_ + (gxc#apply-generate-ssxi __tmp203764))) + (_%idstr202605%_ (symbol->string (##structure-ref - _%ctx201312%_ + _%ctx202599%_ '1 gx#expander-context::t '#f))) - (_%pkg201326%_ - (let ((_%$e201320%_ + (_%pkg202613%_ + (let ((_%$e202607%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr201318%_ '#\/)))) - (if _%$e201320%_ - ((lambda (_%x201323%_) - (let ((__tmp202446 - (substring _%idstr201318%_ '0 _%x201323%_))) + (string-rindex__0 _%idstr202605%_ '#\/)))) + (if _%$e202607%_ + ((lambda (_%x202610%_) + (let ((__tmp203765 + (substring _%idstr202605%_ '0 _%x202610%_))) (declare (not safe)) - (##string->symbol __tmp202446))) - _%$e201320%_) + (##string->symbol __tmp203765))) + _%$e202607%_) '#f)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path201314%_)) + (gxc#verbose '"compile " _%path202601%_)) (gxc#with-output-to-scheme-file - _%path201314%_ + _%path202601%_ (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _%pkg201326%_ + (if _%pkg202613%_ (let () (declare (not safe)) - (displayln '"package: " _%pkg201326%_)) + (displayln '"package: " _%pkg202613%_)) '#!void) (newline) - (pretty-print _%code201316%_)))))) + (pretty-print _%code202603%_)))))) (define gxc#generate-meta-code - (lambda (_%ctx201305%_) - (let* ((_%state201307%_ - (let ((__obj202347 + (lambda (_%ctx202592%_) + (let* ((_%state202594%_ + (let ((__obj203666 (let () (declare (not safe)) (##structure gxc#meta-state::t '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gxc#meta-state:::init! __obj202347 _%ctx201305%_)) - __obj202347)) - (_%ssi-code201309%_ - (let ((__tmp202447 + (gxc#meta-state:::init! __obj203666 _%ctx202592%_)) + __obj203666)) + (_%ssi-code202596%_ + (let ((__tmp203766 (##structure-ref - _%ctx201305%_ + _%ctx202592%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#apply-generate-meta__% '#f - _%state201307%_ - __tmp202447)))) - (values _%ssi-code201309%_ + _%state202594%_ + __tmp203766)))) + (values _%ssi-code202596%_ (let () (declare (not safe)) - (gxc#meta-state-end! _%state201307%_)))))) + (gxc#meta-state-end! _%state202594%_)))))) (define gxc#generate-runtime-phi - (lambda (_%stx201298%_) - (let ((_%lifts201300%_ (box '()))) - (let ((__tmp202450 + (lambda (_%stx202585%_) + (let ((_%lifts202587%_ (box '()))) + (let ((__tmp203769 (lambda () - (let ((_%code201303%_ + (let ((_%code202590%_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _%stx201298%_)))) - (if (null? (unbox _%lifts201300%_)) - _%code201303%_ + (gxc#apply-generate-runtime-phi _%stx202585%_)))) + (if (null? (unbox _%lifts202587%_)) + _%code202590%_ (cons 'begin - (let ((__tmp202452 (cons _%code201303%_ '())) - (__tmp202451 - (reverse (unbox _%lifts201300%_)))) + (let ((__tmp203771 (cons _%code202590%_ '())) + (__tmp203770 + (reverse (unbox _%lifts202587%_)))) (declare (not safe)) - (__foldr1 cons __tmp202452 __tmp202451))))))) - (__tmp202449 + (__foldr1 cons __tmp203771 __tmp203770))))))) + (__tmp203768 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp202448 + (__tmp203767 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (__call-with-parameters - __tmp202450 + __tmp203769 gxc#current-compile-lift - _%lifts201300%_ + _%lifts202587%_ gxc#current-compile-marks - __tmp202449 + __tmp203768 gxc#current-compile-identifiers - __tmp202448))))) + __tmp203767))))) (define gxc#lift-nested-modules - (lambda (_%ctx201294%_) - (let ((_%modules201296%_ (box '()))) - (let ((__tmp202453 - (##structure-ref _%ctx201294%_ '11 gx#module-context::t '#f))) + (lambda (_%ctx202581%_) + (let ((_%modules202583%_ (box '()))) + (let ((__tmp203772 + (##structure-ref _%ctx202581%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules__% '#f _%modules201296%_ __tmp202453)) - (reverse (unbox _%modules201296%_))))) + (gxc#apply-lift-modules__% '#f _%modules202583%_ __tmp203772)) + (reverse (unbox _%modules202583%_))))) (define gxc#compile-scm-file__% - (lambda (_%path201274%_ _%code201275%_ _%phi?201276%_) - (let () (declare (not safe)) (gxc#verbose '"compile " _%path201274%_)) + (lambda (_%path202561%_ _%code202562%_ _%phi?202563%_) + (let () (declare (not safe)) (gxc#verbose '"compile " _%path202561%_)) (gxc#with-output-to-scheme-file - _%path201274%_ + _%path202561%_ (lambda () (pretty-print (cons 'declare (cons (cons 'block '()) (cons (cons 'standard-bindings '()) (cons (cons 'extended-bindings '()) - (let ((__tmp202454 - (if _%phi?201276%_ + (let ((__tmp203773 + (if _%phi?202563%_ '((inlining-limit 200)) '()))) (declare (not safe)) - (__foldr1 cons '() __tmp202454))))))) - (pretty-print _%code201275%_))) + (__foldr1 cons '() __tmp203773))))))) + (pretty-print _%code202562%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it201280%_ + (let ((_%compile-it202567%_ (lambda () - (gxc#gsc-compile-file _%path201274%_ _%phi?201276%_)))) + (gxc#gsc-compile-file _%path202561%_ _%phi?202563%_)))) (if (let () (declare (not safe)) (gxc#current-compile-parallel)) - (let ((__tmp202455 - (cons 'compile-file (cons _%path201274%_ '())))) + (let ((__tmp203774 + (cons 'compile-file (cons _%path202561%_ '())))) (declare (not safe)) - (gxc#add-compile-job!__% _%compile-it201280%_ __tmp202455)) - (_%compile-it201280%_))) + (gxc#add-compile-job!__% _%compile-it202567%_ __tmp203774)) + (_%compile-it202567%_))) '#!void))) (define gxc#compile-scm-file__0 - (lambda (_%path201285%_ _%code201286%_) - (let ((_%phi?201288%_ '#f)) + (lambda (_%path202572%_ _%code202573%_) + (let ((_%phi?202575%_ '#f)) (gxc#compile-scm-file__% - _%path201285%_ - _%code201286%_ - _%phi?201288%_)))) + _%path202572%_ + _%code202573%_ + _%phi?202575%_)))) (define gxc#compile-scm-file - (lambda _g202457_ - (let ((_g202456_ (let () (declare (not safe)) (##length _g202457_)))) - (cond ((let () (declare (not safe)) (##fx= _g202456_ 2)) - (apply gxc#compile-scm-file__0 _g202457_)) - ((let () (declare (not safe)) (##fx= _g202456_ 3)) - (apply gxc#compile-scm-file__% _g202457_)) + (lambda _g203776_ + (let ((_g203775_ (let () (declare (not safe)) (##length _g203776_)))) + (cond ((let () (declare (not safe)) (##fx= _g203775_ 2)) + (apply gxc#compile-scm-file__0 _g203776_)) + ((let () (declare (not safe)) (##fx= _g203775_ 3)) + (apply gxc#compile-scm-file__% _g203776_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g202457_)))))) + _g203776_)))))) (define gxc#gsc-link-options__% - (lambda (_%phi?201175%_) - (let _%lp201177%_ ((_%rest201179%_ + (lambda (_%phi?202462%_) + (let _%lp202464%_ ((_%rest202466%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts201180%_ '())) - (let* ((_%rest201181201201%_ _%rest201179%_) - (_%else201185201209%_ + (_%opts202467%_ '())) + (let* ((_%rest202468202488%_ _%rest202466%_) + (_%else202472202496%_ (lambda () (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-debug-source" - (cons '"-track-scheme" (reverse _%opts201180%_))) - (reverse _%opts201180%_))))) - (let ((_%K201195201252%_ - (lambda (_%rest201250%_) - (_%lp201177%_ _%rest201250%_ _%opts201180%_))) - (_%K201190201234%_ - (lambda (_%rest201232%_) - (_%lp201177%_ _%rest201232%_ _%opts201180%_))) - (_%K201187201216%_ - (lambda (_%rest201213%_ _%opt201214%_) - (_%lp201177%_ - _%rest201213%_ - (cons _%opt201214%_ _%opts201180%_))))) - (if (pair? _%rest201181201201%_) - (let ((_%tl201197201257%_ + (cons '"-track-scheme" (reverse _%opts202467%_))) + (reverse _%opts202467%_))))) + (let ((_%K202482202539%_ + (lambda (_%rest202537%_) + (_%lp202464%_ _%rest202537%_ _%opts202467%_))) + (_%K202477202521%_ + (lambda (_%rest202519%_) + (_%lp202464%_ _%rest202519%_ _%opts202467%_))) + (_%K202474202503%_ + (lambda (_%rest202500%_ _%opt202501%_) + (_%lp202464%_ + _%rest202500%_ + (cons _%opt202501%_ _%opts202467%_))))) + (if (pair? _%rest202468202488%_) + (let ((_%tl202484202544%_ (let () (declare (not safe)) - (##cdr _%rest201181201201%_))) - (_%hd201196201255%_ + (##cdr _%rest202468202488%_))) + (_%hd202483202542%_ (let () (declare (not safe)) - (##car _%rest201181201201%_)))) - (if (equal? _%hd201196201255%_ '"-cc-options") - (if (pair? _%tl201197201257%_) - (let* ((_%tl201199201260%_ + (##car _%rest202468202488%_)))) + (if (equal? _%hd202483202542%_ '"-cc-options") + (if (pair? _%tl202484202544%_) + (let* ((_%tl202486202547%_ (let () (declare (not safe)) - (##cdr _%tl201197201257%_))) - (_%rest201263%_ _%tl201199201260%_)) - (_%K201195201252%_ _%rest201263%_)) - (let ((_%opt201224%_ _%hd201196201255%_) - (_%rest201226%_ _%tl201197201257%_)) - (_%K201187201216%_ - _%rest201226%_ - _%opt201224%_))) - (if (equal? _%hd201196201255%_ '"-ld-options") - (if (pair? _%tl201197201257%_) - (let* ((_%tl201194201242%_ + (##cdr _%tl202484202544%_))) + (_%rest202550%_ _%tl202486202547%_)) + (_%K202482202539%_ _%rest202550%_)) + (let ((_%opt202511%_ _%hd202483202542%_) + (_%rest202513%_ _%tl202484202544%_)) + (_%K202474202503%_ + _%rest202513%_ + _%opt202511%_))) + (if (equal? _%hd202483202542%_ '"-ld-options") + (if (pair? _%tl202484202544%_) + (let* ((_%tl202481202529%_ (let () (declare (not safe)) - (##cdr _%tl201197201257%_))) - (_%rest201245%_ _%tl201194201242%_)) - (_%K201190201234%_ _%rest201245%_)) - (let ((_%opt201224%_ _%hd201196201255%_) - (_%rest201226%_ _%tl201197201257%_)) - (_%K201187201216%_ - _%rest201226%_ - _%opt201224%_))) - (let ((_%opt201224%_ _%hd201196201255%_) - (_%rest201226%_ _%tl201197201257%_)) - (_%K201187201216%_ - _%rest201226%_ - _%opt201224%_))))) - (_%else201185201209%_))))))) + (##cdr _%tl202484202544%_))) + (_%rest202532%_ _%tl202481202529%_)) + (_%K202477202521%_ _%rest202532%_)) + (let ((_%opt202511%_ _%hd202483202542%_) + (_%rest202513%_ _%tl202484202544%_)) + (_%K202474202503%_ + _%rest202513%_ + _%opt202511%_))) + (let ((_%opt202511%_ _%hd202483202542%_) + (_%rest202513%_ _%tl202484202544%_)) + (_%K202474202503%_ + _%rest202513%_ + _%opt202511%_))))) + (_%else202472202496%_))))))) (define gxc#gsc-link-options__0 (lambda () - (let ((_%phi?201269%_ '#f)) (gxc#gsc-link-options__% _%phi?201269%_)))) + (let ((_%phi?202556%_ '#f)) (gxc#gsc-link-options__% _%phi?202556%_)))) (define gxc#gsc-link-options - (lambda _g202459_ - (let ((_g202458_ (let () (declare (not safe)) (##length _g202459_)))) - (cond ((let () (declare (not safe)) (##fx= _g202458_ 0)) - (apply gxc#gsc-link-options__0 _g202459_)) - ((let () (declare (not safe)) (##fx= _g202458_ 1)) - (apply gxc#gsc-link-options__% _g202459_)) + (lambda _g203778_ + (let ((_g203777_ (let () (declare (not safe)) (##length _g203778_)))) + (cond ((let () (declare (not safe)) (##fx= _g203777_ 0)) + (apply gxc#gsc-link-options__0 _g203778_)) + ((let () (declare (not safe)) (##fx= _g203777_ 1)) + (apply gxc#gsc-link-options__% _g203778_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-link-options - _g202459_)))))) + _g203778_)))))) (define gxc#gsc-cc-options__%__% - (lambda (_%@@keywords201024%_ _%static?201020201025%_ _%phi?201027%_) - (let ((_%static?201029%_ - (if (eq? _%static?201020201025%_ absent-value) + (lambda (_%@@keywords202311%_ _%static?202307202312%_ _%phi?202314%_) + (let ((_%static?202316%_ + (if (eq? _%static?202307202312%_ absent-value) '#f - _%static?201020201025%_))) - (if _%phi?201027%_ + _%static?202307202312%_))) + (if _%phi?202314%_ (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-cc-options" (cons '"-g" '())) '()) - (let _%lp201031%_ ((_%rest201033%_ + (let _%lp202318%_ ((_%rest202320%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts201034%_ '())) - (let* ((_%rest201035201061%_ _%rest201033%_) - (_%else201040201069%_ + (_%opts202321%_ '())) + (let* ((_%rest202322202348%_ _%rest202320%_) + (_%else202327202356%_ (lambda () (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-cc-options" - (cons '"-g" (reverse! _%opts201034%_))) - (reverse! _%opts201034%_))))) - (let ((_%K201055201132%_ - (lambda (_%rest201129%_ _%opt201130%_) - (if _%static?201029%_ - (_%lp201031%_ - _%rest201129%_ - (cons _%opt201130%_ - (cons '"-cc-options" _%opts201034%_))) - (_%lp201031%_ _%rest201129%_ _%opts201034%_)))) - (_%K201050201109%_ - (lambda (_%rest201106%_ _%opt201107%_) - (_%lp201031%_ - _%rest201106%_ - (cons _%opt201107%_ - (cons '"-cc-options" _%opts201034%_))))) - (_%K201045201089%_ - (lambda (_%rest201087%_) - (_%lp201031%_ _%rest201087%_ _%opts201034%_))) - (_%K201042201075%_ - (lambda (_%rest201073%_) - (_%lp201031%_ _%rest201073%_ _%opts201034%_)))) - (if (pair? _%rest201035201061%_) - (let ((_%tl201057201137%_ + (cons '"-g" (reverse! _%opts202321%_))) + (reverse! _%opts202321%_))))) + (let ((_%K202342202419%_ + (lambda (_%rest202416%_ _%opt202417%_) + (if _%static?202316%_ + (_%lp202318%_ + _%rest202416%_ + (cons _%opt202417%_ + (cons '"-cc-options" _%opts202321%_))) + (_%lp202318%_ _%rest202416%_ _%opts202321%_)))) + (_%K202337202396%_ + (lambda (_%rest202393%_ _%opt202394%_) + (_%lp202318%_ + _%rest202393%_ + (cons _%opt202394%_ + (cons '"-cc-options" _%opts202321%_))))) + (_%K202332202376%_ + (lambda (_%rest202374%_) + (_%lp202318%_ _%rest202374%_ _%opts202321%_))) + (_%K202329202362%_ + (lambda (_%rest202360%_) + (_%lp202318%_ _%rest202360%_ _%opts202321%_)))) + (if (pair? _%rest202322202348%_) + (let ((_%tl202344202424%_ (let () (declare (not safe)) - (##cdr _%rest201035201061%_))) - (_%hd201056201135%_ + (##cdr _%rest202322202348%_))) + (_%hd202343202422%_ (let () (declare (not safe)) - (##car _%rest201035201061%_)))) - (if (equal? _%hd201056201135%_ '"-cc-options") - (if (pair? _%tl201057201137%_) - (let ((_%tl201059201142%_ + (##car _%rest202322202348%_)))) + (if (equal? _%hd202343202422%_ '"-cc-options") + (if (pair? _%tl202344202424%_) + (let ((_%tl202346202429%_ (let () (declare (not safe)) - (##cdr _%tl201057201137%_))) - (_%hd201058201140%_ + (##cdr _%tl202344202424%_))) + (_%hd202345202427%_ (let () (declare (not safe)) - (##car _%tl201057201137%_)))) - (if (equal? _%hd201058201140%_ '"-Bstatic") - (let ((_%opt201145%_ - _%hd201058201140%_) - (_%rest201147%_ - _%tl201059201142%_)) - (_%K201055201132%_ - _%rest201147%_ - _%opt201145%_)) - (let ((_%opt201122%_ - _%hd201058201140%_) - (_%rest201124%_ - _%tl201059201142%_)) - (_%K201050201109%_ - _%rest201124%_ - _%opt201122%_)))) - (let ((_%rest201081%_ _%tl201057201137%_)) - (_%K201042201075%_ _%rest201081%_))) - (if (equal? _%hd201056201135%_ '"-ld-options") - (if (pair? _%tl201057201137%_) - (let* ((_%tl201049201097%_ + (##car _%tl202344202424%_)))) + (if (equal? _%hd202345202427%_ '"-Bstatic") + (let ((_%opt202432%_ + _%hd202345202427%_) + (_%rest202434%_ + _%tl202346202429%_)) + (_%K202342202419%_ + _%rest202434%_ + _%opt202432%_)) + (let ((_%opt202409%_ + _%hd202345202427%_) + (_%rest202411%_ + _%tl202346202429%_)) + (_%K202337202396%_ + _%rest202411%_ + _%opt202409%_)))) + (let ((_%rest202368%_ _%tl202344202424%_)) + (_%K202329202362%_ _%rest202368%_))) + (if (equal? _%hd202343202422%_ '"-ld-options") + (if (pair? _%tl202344202424%_) + (let* ((_%tl202336202384%_ (let () (declare (not safe)) - (##cdr _%tl201057201137%_))) - (_%rest201100%_ - _%tl201049201097%_)) - (_%K201045201089%_ _%rest201100%_)) - (let ((_%rest201081%_ - _%tl201057201137%_)) - (_%K201042201075%_ _%rest201081%_))) - (let ((_%rest201081%_ _%tl201057201137%_)) - (_%K201042201075%_ _%rest201081%_))))) - (_%else201040201069%_))))))))) + (##cdr _%tl202344202424%_))) + (_%rest202387%_ + _%tl202336202384%_)) + (_%K202332202376%_ _%rest202387%_)) + (let ((_%rest202368%_ + _%tl202344202424%_)) + (_%K202329202362%_ _%rest202368%_))) + (let ((_%rest202368%_ _%tl202344202424%_)) + (_%K202329202362%_ _%rest202368%_))))) + (_%else202327202356%_))))))))) (define gxc#gsc-cc-options__%__0 - (lambda (_%@@keywords201152%_ _%static?201020201153%_) - (let ((_%phi?201155%_ '#f)) + (lambda (_%@@keywords202439%_ _%static?202307202440%_) + (let ((_%phi?202442%_ '#f)) (gxc#gsc-cc-options__%__% - _%@@keywords201152%_ - _%static?201020201153%_ - _%phi?201155%_)))) + _%@@keywords202439%_ + _%static?202307202440%_ + _%phi?202442%_)))) (define gxc#gsc-cc-options__% - (lambda _g202461_ - (let ((_g202460_ (let () (declare (not safe)) (##length _g202461_)))) - (cond ((let () (declare (not safe)) (##fx= _g202460_ 2)) - (apply gxc#gsc-cc-options__%__0 _g202461_)) - ((let () (declare (not safe)) (##fx= _g202460_ 3)) - (apply gxc#gsc-cc-options__%__% _g202461_)) + (lambda _g203780_ + (let ((_g203779_ (let () (declare (not safe)) (##length _g203780_)))) + (cond ((let () (declare (not safe)) (##fx= _g203779_ 2)) + (apply gxc#gsc-cc-options__%__0 _g203780_)) + ((let () (declare (not safe)) (##fx= _g203779_ 3)) + (apply gxc#gsc-cc-options__%__% _g203780_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-cc-options__% - _g202461_)))))) + _g203780_)))))) (define gxc#gsc-cc-options__@ - (lambda (_%@@keywords201164%_ . _%args201165%_) + (lambda (_%@@keywords202451%_ . _%args202452%_) (apply gxc#gsc-cc-options__% - _%@@keywords201164%_ + _%@@keywords202451%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords201164%_ + _%@@keywords202451%_ 'static: absent-value)) - _%args201165%_))) + _%args202452%_))) (define gxc#gsc-cc-options - (lambda _%args201021201171%_ + (lambda _%args202308202458%_ (apply keyword-dispatch '#(static:) gxc#gsc-cc-options__@ - _%args201021201171%_))) + _%args202308202458%_))) (define gxc#gsc-ld-options__%__% - (lambda (_%@@keywords200869%_ _%static?200865200870%_ _%phi?200872%_) - (let ((_%static?200874%_ - (if (eq? _%static?200865200870%_ absent-value) + (lambda (_%@@keywords202156%_ _%static?202152202157%_ _%phi?202159%_) + (let ((_%static?202161%_ + (if (eq? _%static?202152202157%_ absent-value) '#f - _%static?200865200870%_))) - (if _%phi?200872%_ + _%static?202152202157%_))) + (if _%phi?202159%_ '() - (let _%lp200876%_ ((_%rest200878%_ + (let _%lp202163%_ ((_%rest202165%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts200879%_ '())) - (let* ((_%rest200880200906%_ _%rest200878%_) - (_%else200885200914%_ - (lambda () (reverse! _%opts200879%_)))) - (let ((_%K200900200977%_ - (lambda (_%rest200974%_ _%opt200975%_) - (if _%static?200874%_ - (_%lp200876%_ - _%rest200974%_ - (cons _%opt200975%_ - (cons '"-ld-options" _%opts200879%_))) - (_%lp200876%_ _%rest200974%_ _%opts200879%_)))) - (_%K200895200954%_ - (lambda (_%rest200951%_ _%opt200952%_) - (_%lp200876%_ - _%rest200951%_ - (cons _%opt200952%_ - (cons '"-ld-options" _%opts200879%_))))) - (_%K200890200934%_ - (lambda (_%rest200932%_) - (_%lp200876%_ _%rest200932%_ _%opts200879%_))) - (_%K200887200920%_ - (lambda (_%rest200918%_) - (_%lp200876%_ _%rest200918%_ _%opts200879%_)))) - (if (pair? _%rest200880200906%_) - (let ((_%tl200902200982%_ + (_%opts202166%_ '())) + (let* ((_%rest202167202193%_ _%rest202165%_) + (_%else202172202201%_ + (lambda () (reverse! _%opts202166%_)))) + (let ((_%K202187202264%_ + (lambda (_%rest202261%_ _%opt202262%_) + (if _%static?202161%_ + (_%lp202163%_ + _%rest202261%_ + (cons _%opt202262%_ + (cons '"-ld-options" _%opts202166%_))) + (_%lp202163%_ _%rest202261%_ _%opts202166%_)))) + (_%K202182202241%_ + (lambda (_%rest202238%_ _%opt202239%_) + (_%lp202163%_ + _%rest202238%_ + (cons _%opt202239%_ + (cons '"-ld-options" _%opts202166%_))))) + (_%K202177202221%_ + (lambda (_%rest202219%_) + (_%lp202163%_ _%rest202219%_ _%opts202166%_))) + (_%K202174202207%_ + (lambda (_%rest202205%_) + (_%lp202163%_ _%rest202205%_ _%opts202166%_)))) + (if (pair? _%rest202167202193%_) + (let ((_%tl202189202269%_ (let () (declare (not safe)) - (##cdr _%rest200880200906%_))) - (_%hd200901200980%_ + (##cdr _%rest202167202193%_))) + (_%hd202188202267%_ (let () (declare (not safe)) - (##car _%rest200880200906%_)))) - (if (equal? _%hd200901200980%_ '"-ld-options") - (if (pair? _%tl200902200982%_) - (let ((_%tl200904200987%_ + (##car _%rest202167202193%_)))) + (if (equal? _%hd202188202267%_ '"-ld-options") + (if (pair? _%tl202189202269%_) + (let ((_%tl202191202274%_ (let () (declare (not safe)) - (##cdr _%tl200902200982%_))) - (_%hd200903200985%_ + (##cdr _%tl202189202269%_))) + (_%hd202190202272%_ (let () (declare (not safe)) - (##car _%tl200902200982%_)))) - (if (equal? _%hd200903200985%_ '"-static") - (let ((_%opt200990%_ - _%hd200903200985%_) - (_%rest200992%_ - _%tl200904200987%_)) - (_%K200900200977%_ - _%rest200992%_ - _%opt200990%_)) - (let ((_%opt200967%_ - _%hd200903200985%_) - (_%rest200969%_ - _%tl200904200987%_)) - (_%K200895200954%_ - _%rest200969%_ - _%opt200967%_)))) - (let ((_%rest200926%_ _%tl200902200982%_)) - (_%K200887200920%_ _%rest200926%_))) - (if (equal? _%hd200901200980%_ '"-cc-options") - (if (pair? _%tl200902200982%_) - (let* ((_%tl200894200942%_ + (##car _%tl202189202269%_)))) + (if (equal? _%hd202190202272%_ '"-static") + (let ((_%opt202277%_ + _%hd202190202272%_) + (_%rest202279%_ + _%tl202191202274%_)) + (_%K202187202264%_ + _%rest202279%_ + _%opt202277%_)) + (let ((_%opt202254%_ + _%hd202190202272%_) + (_%rest202256%_ + _%tl202191202274%_)) + (_%K202182202241%_ + _%rest202256%_ + _%opt202254%_)))) + (let ((_%rest202213%_ _%tl202189202269%_)) + (_%K202174202207%_ _%rest202213%_))) + (if (equal? _%hd202188202267%_ '"-cc-options") + (if (pair? _%tl202189202269%_) + (let* ((_%tl202181202229%_ (let () (declare (not safe)) - (##cdr _%tl200902200982%_))) - (_%rest200945%_ - _%tl200894200942%_)) - (_%K200890200934%_ _%rest200945%_)) - (let ((_%rest200926%_ - _%tl200902200982%_)) - (_%K200887200920%_ _%rest200926%_))) - (let ((_%rest200926%_ _%tl200902200982%_)) - (_%K200887200920%_ _%rest200926%_))))) - (_%else200885200914%_))))))))) + (##cdr _%tl202189202269%_))) + (_%rest202232%_ + _%tl202181202229%_)) + (_%K202177202221%_ _%rest202232%_)) + (let ((_%rest202213%_ + _%tl202189202269%_)) + (_%K202174202207%_ _%rest202213%_))) + (let ((_%rest202213%_ _%tl202189202269%_)) + (_%K202174202207%_ _%rest202213%_))))) + (_%else202172202201%_))))))))) (define gxc#gsc-ld-options__%__0 - (lambda (_%@@keywords200997%_ _%static?200865200998%_) - (let ((_%phi?201000%_ '#f)) + (lambda (_%@@keywords202284%_ _%static?202152202285%_) + (let ((_%phi?202287%_ '#f)) (gxc#gsc-ld-options__%__% - _%@@keywords200997%_ - _%static?200865200998%_ - _%phi?201000%_)))) + _%@@keywords202284%_ + _%static?202152202285%_ + _%phi?202287%_)))) (define gxc#gsc-ld-options__% - (lambda _g202463_ - (let ((_g202462_ (let () (declare (not safe)) (##length _g202463_)))) - (cond ((let () (declare (not safe)) (##fx= _g202462_ 2)) - (apply gxc#gsc-ld-options__%__0 _g202463_)) - ((let () (declare (not safe)) (##fx= _g202462_ 3)) - (apply gxc#gsc-ld-options__%__% _g202463_)) + (lambda _g203782_ + (let ((_g203781_ (let () (declare (not safe)) (##length _g203782_)))) + (cond ((let () (declare (not safe)) (##fx= _g203781_ 2)) + (apply gxc#gsc-ld-options__%__0 _g203782_)) + ((let () (declare (not safe)) (##fx= _g203781_ 3)) + (apply gxc#gsc-ld-options__%__% _g203782_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-ld-options__% - _g202463_)))))) + _g203782_)))))) (define gxc#gsc-ld-options__@ - (lambda (_%@@keywords201009%_ . _%args201010%_) + (lambda (_%@@keywords202296%_ . _%args202297%_) (apply gxc#gsc-ld-options__% - _%@@keywords201009%_ + _%@@keywords202296%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords201009%_ + _%@@keywords202296%_ 'static: absent-value)) - _%args201010%_))) + _%args202297%_))) (define gxc#gsc-ld-options - (lambda _%args200866201016%_ + (lambda _%args202153202303%_ (apply keyword-dispatch '#(static:) gxc#gsc-ld-options__@ - _%args200866201016%_))) + _%args202153202303%_))) (define gxc#gsc-static-include-options - (lambda (_%staticdir200860%_) - (let ((_%user-staticdir200862%_ + (lambda (_%staticdir202147%_) + (let ((_%user-staticdir202149%_ (path-expand (path-expand '"lib/static" @@ -2768,337 +2796,337 @@ (cons '"-cc-options" (cons (string-append '"-I " - _%staticdir200860%_ + _%staticdir202147%_ '" -I " - _%user-staticdir200862%_) + _%user-staticdir202149%_) '()))))) (define gxc#gcc-ld-options (lambda () - (let _%lp200772%_ ((_%rest200774%_ + (let _%lp202059%_ ((_%rest202061%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts200775%_ '())) - (let* ((_%rest200776200796%_ _%rest200774%_) - (_%else200780200804%_ (lambda () _%opts200775%_))) - (let ((_%K200790200847%_ - (lambda (_%rest200845%_) - (_%lp200772%_ _%rest200845%_ _%opts200775%_))) - (_%K200785200825%_ - (lambda (_%rest200822%_ _%opt200823%_) - (_%lp200772%_ - _%rest200822%_ - (let ((__tmp202464 - (let ((__tmp202465 + (_%opts202062%_ '())) + (let* ((_%rest202063202083%_ _%rest202061%_) + (_%else202067202091%_ (lambda () _%opts202062%_))) + (let ((_%K202077202134%_ + (lambda (_%rest202132%_) + (_%lp202059%_ _%rest202132%_ _%opts202062%_))) + (_%K202072202112%_ + (lambda (_%rest202109%_ _%opt202110%_) + (_%lp202059%_ + _%rest202109%_ + (let ((__tmp203783 + (let ((__tmp203784 (let () (declare (not safe)) - (string-split _%opt200823%_ '#\space)))) + (string-split _%opt202110%_ '#\space)))) (declare (not safe)) - (##filter gxc#not-string-empty? __tmp202465)))) + (##filter gxc#not-string-empty? __tmp203784)))) (declare (not safe)) - (##append _%opts200775%_ __tmp202464))))) - (_%K200782200810%_ - (lambda (_%rest200808%_) - (_%lp200772%_ _%rest200808%_ _%opts200775%_)))) - (if (pair? _%rest200776200796%_) - (let ((_%tl200792200852%_ + (##append _%opts202062%_ __tmp203783))))) + (_%K202069202097%_ + (lambda (_%rest202095%_) + (_%lp202059%_ _%rest202095%_ _%opts202062%_)))) + (if (pair? _%rest202063202083%_) + (let ((_%tl202079202139%_ (let () (declare (not safe)) - (##cdr _%rest200776200796%_))) - (_%hd200791200850%_ + (##cdr _%rest202063202083%_))) + (_%hd202078202137%_ (let () (declare (not safe)) - (##car _%rest200776200796%_)))) - (if (equal? _%hd200791200850%_ '"-cc-options") - (if (pair? _%tl200792200852%_) - (let* ((_%tl200794200855%_ + (##car _%rest202063202083%_)))) + (if (equal? _%hd202078202137%_ '"-cc-options") + (if (pair? _%tl202079202139%_) + (let* ((_%tl202081202142%_ (let () (declare (not safe)) - (##cdr _%tl200792200852%_))) - (_%rest200858%_ _%tl200794200855%_)) - (_%K200790200847%_ _%rest200858%_)) - (let ((_%rest200816%_ _%tl200792200852%_)) - (_%K200782200810%_ _%rest200816%_))) - (if (equal? _%hd200791200850%_ '"-ld-options") - (if (pair? _%tl200792200852%_) - (let ((_%tl200789200835%_ + (##cdr _%tl202079202139%_))) + (_%rest202145%_ _%tl202081202142%_)) + (_%K202077202134%_ _%rest202145%_)) + (let ((_%rest202103%_ _%tl202079202139%_)) + (_%K202069202097%_ _%rest202103%_))) + (if (equal? _%hd202078202137%_ '"-ld-options") + (if (pair? _%tl202079202139%_) + (let ((_%tl202076202122%_ (let () (declare (not safe)) - (##cdr _%tl200792200852%_))) - (_%hd200788200833%_ + (##cdr _%tl202079202139%_))) + (_%hd202075202120%_ (let () (declare (not safe)) - (##car _%tl200792200852%_)))) - (let ((_%opt200838%_ _%hd200788200833%_) - (_%rest200840%_ _%tl200789200835%_)) - (_%K200785200825%_ - _%rest200840%_ - _%opt200838%_))) - (let ((_%rest200816%_ _%tl200792200852%_)) - (_%K200782200810%_ _%rest200816%_))) - (let ((_%rest200816%_ _%tl200792200852%_)) - (_%K200782200810%_ _%rest200816%_))))) - (_%else200780200804%_))))))) + (##car _%tl202079202139%_)))) + (let ((_%opt202125%_ _%hd202075202120%_) + (_%rest202127%_ _%tl202076202122%_)) + (_%K202072202112%_ + _%rest202127%_ + _%opt202125%_))) + (let ((_%rest202103%_ _%tl202079202139%_)) + (_%K202069202097%_ _%rest202103%_))) + (let ((_%rest202103%_ _%tl202079202139%_)) + (_%K202069202097%_ _%rest202103%_))))) + (_%else202067202091%_))))))) (define gxc#not-string-empty? - (lambda (_%str200769%_) - (not (let () (declare (not safe)) (string-empty? _%str200769%_))))) + (lambda (_%str202056%_) + (not (let () (declare (not safe)) (string-empty? _%str202056%_))))) (define gxc#gsc-compile-file - (lambda (_%path200762%_ _%phi?200763%_) - (let ((_%gsc-link-opts200765%_ - (gxc#gsc-link-options__% _%phi?200763%_)) - (_%gsc-cc-opts200766%_ - (gxc#gsc-cc-options__%__% '#f absent-value _%phi?200763%_)) - (_%gsc-ld-opts200767%_ - (gxc#gsc-ld-options__%__% '#f absent-value _%phi?200763%_))) + (lambda (_%path202049%_ _%phi?202050%_) + (let ((_%gsc-link-opts202052%_ + (gxc#gsc-link-options__% _%phi?202050%_)) + (_%gsc-cc-opts202053%_ + (gxc#gsc-cc-options__%__% '#f absent-value _%phi?202050%_)) + (_%gsc-ld-opts202054%_ + (gxc#gsc-ld-options__%__% '#f absent-value _%phi?202050%_))) (gxc#invoke__% '#f absent-value absent-value (gxc#gerbil-gsc) - (let ((__tmp202466 - (let ((__tmp202467 - (let ((__tmp202468 (cons _%path200762%_ '()))) + (let ((__tmp203785 + (let ((__tmp203786 + (let ((__tmp203787 (cons _%path202049%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp202468 - _%gsc-link-opts200765%_)))) + __tmp203787 + _%gsc-link-opts202052%_)))) (declare (not safe)) - (__foldr1 cons __tmp202467 _%gsc-ld-opts200767%_)))) + (__foldr1 cons __tmp203786 _%gsc-ld-opts202054%_)))) (declare (not safe)) - (__foldr1 cons __tmp202466 _%gsc-cc-opts200766%_)))))) + (__foldr1 cons __tmp203785 _%gsc-cc-opts202053%_)))))) (define gxc#compile-output-file - (lambda (_%ctx200728%_ _%n200729%_ _%ext200730%_) - (letrec ((_%module-relative-path200732%_ - (lambda (_%ctx200760%_) + (lambda (_%ctx202015%_ _%n202016%_ _%ext202017%_) + (letrec ((_%module-relative-path202019%_ + (lambda (_%ctx202047%_) (path-strip-directory - (let ((__tmp202469 + (let ((__tmp203788 (##structure-ref - _%ctx200760%_ + _%ctx202047%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp202469))))) - (_%module-source-directory200733%_ - (lambda (_%ctx200756%_) + (gxc#module-id->path-string __tmp203788))))) + (_%module-source-directory202020%_ + (lambda (_%ctx202043%_) (path-directory - (let ((_%mpath200758%_ + (let ((_%mpath202045%_ (##structure-ref - _%ctx200756%_ + _%ctx202043%_ '7 gx#module-context::t '#f))) - (if (string? _%mpath200758%_) - _%mpath200758%_ - (last _%mpath200758%_)))))) - (_%section-string200734%_ - (lambda (_%n200750%_) - (if (number? _%n200750%_) + (if (string? _%mpath202045%_) + _%mpath202045%_ + (last _%mpath202045%_)))))) + (_%section-string202021%_ + (lambda (_%n202037%_) + (if (number? _%n202037%_) (let () (declare (not safe)) - (##number->string _%n200750%_)) - (if (symbol? _%n200750%_) + (##number->string _%n202037%_)) + (if (symbol? _%n202037%_) (let () (declare (not safe)) - (##symbol->string _%n200750%_)) - (if (string? _%n200750%_) - _%n200750%_ + (##symbol->string _%n202037%_)) + (if (string? _%n202037%_) + _%n202037%_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _%n200750%_))))))) - (_%file-name200735%_ - (lambda (_%path200748%_) - (if _%n200729%_ + _%n202037%_))))))) + (_%file-name202022%_ + (lambda (_%path202035%_) + (if _%n202016%_ (string-append - _%path200748%_ + _%path202035%_ '"~" - (_%section-string200734%_ _%n200729%_) - _%ext200730%_) - (string-append _%path200748%_ _%ext200730%_)))) - (_%file-path200736%_ + (_%section-string202021%_ _%n202016%_) + _%ext202017%_) + (string-append _%path202035%_ _%ext202017%_)))) + (_%file-path202023%_ (lambda () - (let ((_%$e200742%_ + (let ((_%$e202029%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e200742%_ - ((lambda (_%outdir200745%_) + (if _%$e202029%_ + ((lambda (_%outdir202032%_) (path-expand - (_%file-name200735%_ - (let ((__tmp202470 + (_%file-name202022%_ + (let ((__tmp203789 (##structure-ref - _%ctx200728%_ + _%ctx202015%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp202470))) - _%outdir200745%_)) - _%$e200742%_) + (gxc#module-id->path-string __tmp203789))) + _%outdir202032%_)) + _%$e202029%_) (path-expand - (_%file-name200735%_ - (_%module-relative-path200732%_ _%ctx200728%_)) - (_%module-source-directory200733%_ - _%ctx200728%_))))))) - (let ((_%path200738%_ (_%file-path200736%_))) - (let ((__tmp202471 + (_%file-name202022%_ + (_%module-relative-path202019%_ _%ctx202015%_)) + (_%module-source-directory202020%_ + _%ctx202015%_))))))) + (let ((_%path202025%_ (_%file-path202023%_))) + (let ((__tmp203790 (lambda () - (let ((__tmp202472 (path-directory _%path200738%_))) + (let ((__tmp203791 (path-directory _%path202025%_))) (declare (not safe)) - (create-directory*__0 __tmp202472))))) + (create-directory*__0 __tmp203791))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202471)) - _%path200738%_)))) + (__with-lock gxc#+driver-mutex+ __tmp203790)) + _%path202025%_)))) (define gxc#compile-static-output-file - (lambda (_%ctx200709%_) - (letrec ((_%file-name200711%_ - (lambda (_%id200726%_) - (let ((__tmp202473 (gxc#static-module-name _%id200726%_))) + (lambda (_%ctx201996%_) + (letrec ((_%file-name201998%_ + (lambda (_%id202013%_) + (let ((__tmp203792 (gxc#static-module-name _%id202013%_))) (declare (not safe)) - (##string-append __tmp202473 '".scm")))) - (_%file-path200712%_ + (##string-append __tmp203792 '".scm")))) + (_%file-path201999%_ (lambda () - (let* ((_%file200718%_ - (_%file-name200711%_ + (let* ((_%file202005%_ + (_%file-name201998%_ (##structure-ref - _%ctx200709%_ + _%ctx201996%_ '1 gx#expander-context::t '#f))) - (_%$e200720%_ + (_%$e202007%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e200720%_ - ((lambda (_%outdir200723%_) + (if _%$e202007%_ + ((lambda (_%outdir202010%_) (path-expand - _%file200718%_ - (path-expand '"static" _%outdir200723%_))) - _%$e200720%_) - (path-expand _%file200718%_ '"static")))))) - (let ((_%path200714%_ (_%file-path200712%_))) - (let ((__tmp202474 + _%file202005%_ + (path-expand '"static" _%outdir202010%_))) + _%$e202007%_) + (path-expand _%file202005%_ '"static")))))) + (let ((_%path202001%_ (_%file-path201999%_))) + (let ((__tmp203793 (lambda () - (let ((__tmp202475 (path-directory _%path200714%_))) + (let ((__tmp203794 (path-directory _%path202001%_))) (declare (not safe)) - (create-directory*__0 __tmp202475))))) + (create-directory*__0 __tmp203794))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202474)) - _%path200714%_)))) + (__with-lock gxc#+driver-mutex+ __tmp203793)) + _%path202001%_)))) (define gxc#compile-exe-output-file - (lambda (_%ctx200702%_ _%opts200703%_) - (let ((_%$e200705%_ + (lambda (_%ctx201989%_ _%opts201990%_) + (let ((_%$e201992%_ (let () (declare (not safe)) - (pgetq__0 'output-file: _%opts200703%_)))) - (if _%$e200705%_ - _%$e200705%_ + (pgetq__0 'output-file: _%opts201990%_)))) + (if _%$e201992%_ + _%$e201992%_ (path-strip-directory (symbol->string (##structure-ref - _%ctx200702%_ + _%ctx201989%_ '1 gx#expander-context::t '#f))))))) (define gxc#static-module-name - (lambda (_%idstr200692%_) - (if (string? _%idstr200692%_) - (let* ((_%str200695%_ + (lambda (_%idstr201979%_) + (if (string? _%idstr201979%_) + (let* ((_%str201982%_ (let () (declare (not safe)) - (gxc#module-id->path-string _%idstr200692%_))) - (_%strs200697%_ + (gxc#module-id->path-string _%idstr201979%_))) + (_%strs201984%_ (let () (declare (not safe)) - (string-split _%str200695%_ '#\/)))) + (string-split _%str201982%_ '#\/)))) (declare (not safe)) - (string-join _%strs200697%_ '"__")) - (if (symbol? _%idstr200692%_) + (string-join _%strs201984%_ '"__")) + (if (symbol? _%idstr201979%_) (gxc#static-module-name (let () (declare (not safe)) - (##symbol->string _%idstr200692%_))) + (##symbol->string _%idstr201979%_))) (let () (declare (not safe)) - (error '"Bad module id" _%idstr200692%_)))))) + (error '"Bad module id" _%idstr201979%_)))))) (define gxc#gerbil-enable-shared? (lambda () - (let ((__tmp202476 - (let ((__tmp202477 (configure-command-string))) + (let ((__tmp203795 + (let ((__tmp203796 (configure-command-string))) (declare (not safe)) - (__string-split __tmp202477 '#\')))) + (__string-split __tmp203796 '#\')))) (declare (not safe)) - (##member '"--enable-shared" __tmp202476)))) + (##member '"--enable-shared" __tmp203795)))) (define gxc#invoke__% - (lambda (_%@@keywords200656%_ - _%stdout-redirection200652200657%_ - _%stderr-redirection200653200659%_ - _%program200661%_ - _%args200662%_) - (let* ((_%stdout-redirection200664%_ - (if (eq? _%stdout-redirection200652200657%_ absent-value) + (lambda (_%@@keywords201943%_ + _%stdout-redirection201939201944%_ + _%stderr-redirection201940201946%_ + _%program201948%_ + _%args201949%_) + (let* ((_%stdout-redirection201951%_ + (if (eq? _%stdout-redirection201939201944%_ absent-value) '#f - _%stdout-redirection200652200657%_)) - (_%stderr-redirection200666%_ - (if (eq? _%stderr-redirection200653200659%_ absent-value) + _%stdout-redirection201939201944%_)) + (_%stderr-redirection201953%_ + (if (eq? _%stderr-redirection201940201946%_ absent-value) '#f - _%stderr-redirection200653200659%_))) - (let ((__tmp202478 (cons _%program200661%_ _%args200662%_))) + _%stderr-redirection201940201946%_))) + (let ((__tmp203797 (cons _%program201948%_ _%args201949%_))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp202478)) - (let* ((_%proc200668%_ + (gxc#verbose '"invoke " __tmp203797)) + (let* ((_%proc201955%_ (open-process (cons 'path: - (cons _%program200661%_ + (cons _%program201948%_ (cons 'arguments: - (cons _%args200662%_ + (cons _%args201949%_ (cons 'stdout-redirection: - (cons _%stdout-redirection200664%_ + (cons _%stdout-redirection201951%_ (cons 'stderr-redirection: - (cons _%stderr-redirection200666%_ + (cons _%stderr-redirection201953%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%output200673%_ - (if (or _%stdout-redirection200664%_ - _%stderr-redirection200666%_) - (read-line _%proc200668%_ '#f) + (_%output201960%_ + (if (or _%stdout-redirection201951%_ + _%stderr-redirection201953%_) + (read-line _%proc201955%_ '#f) '#f)) - (_%status200676%_ (process-status _%proc200668%_))) - (let () (declare (not safe)) (##close-port _%proc200668%_)) - (if (zero? _%status200676%_) + (_%status201963%_ (process-status _%proc201955%_))) + (let () (declare (not safe)) (##close-port _%proc201955%_)) + (if (zero? _%status201963%_) '#!void (begin - (display _%output200673%_) - (let ((__tmp202479 (cons _%program200661%_ _%args200662%_))) + (display _%output201960%_) + (let ((__tmp203798 (cons _%program201948%_ _%args201949%_))) (declare (not safe)) (gxc#raise-compile-error '"Compilation error; process exit with nonzero status" - __tmp202479 - _%status200676%_)))))))) + __tmp203798 + _%status201963%_)))))))) (define gxc#invoke__@ - (lambda (_%@@keywords200681%_ . _%args200682%_) + (lambda (_%@@keywords201968%_ . _%args201969%_) (apply gxc#invoke__% - _%@@keywords200681%_ + _%@@keywords201968%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords200681%_ + _%@@keywords201968%_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords200681%_ + _%@@keywords201968%_ 'stderr-redirection: absent-value)) - _%args200682%_))) + _%args201969%_))) (define gxc#invoke - (lambda _%args200654200688%_ + (lambda _%args201941201975%_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _%args200654200688%_))))) + _%args201941201975%_))))) diff --git a/src/bootstrap/gerbil/compiler/driver~1.scm b/src/bootstrap/gerbil/compiler/driver~1.scm index b138d8f5f..db7213d1f 100644 --- a/src/bootstrap/gerbil/compiler/driver~1.scm +++ b/src/bootstrap/gerbil/compiler/driver~1.scm @@ -1,50 +1,50 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (define |gxc[:0:]#with-driver-mutex| - (lambda (_%$stx200587%_) - (let* ((_%g200591200605%_ - (lambda (_%g200592200601%_) + (lambda (_%$stx201874%_) + (let* ((_%g201878201892%_ + (lambda (_%g201879201888%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g200592200601%_)))) - (_%g200590200647%_ - (lambda (_%g200592200609%_) + _%g201879201888%_)))) + (_%g201877201934%_ + (lambda (_%g201879201896%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g200592200609%_)) - (let ((_%e200594200612%_ + (gx#stx-pair? _%g201879201896%_)) + (let ((_%e201881201899%_ (let () (declare (not safe)) - (gx#syntax-e _%g200592200609%_)))) - (let ((_%hd200595200616%_ + (gx#syntax-e _%g201879201896%_)))) + (let ((_%hd201882201903%_ (let () (declare (not safe)) - (##car _%e200594200612%_))) - (_%tl200596200619%_ + (##car _%e201881201899%_))) + (_%tl201883201906%_ (let () (declare (not safe)) - (##cdr _%e200594200612%_)))) + (##cdr _%e201881201899%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl200596200619%_)) - (let ((_%e200597200622%_ + (gx#stx-pair? _%tl201883201906%_)) + (let ((_%e201884201909%_ (let () (declare (not safe)) - (gx#syntax-e _%tl200596200619%_)))) - (let ((_%hd200598200626%_ + (gx#syntax-e _%tl201883201906%_)))) + (let ((_%hd201885201913%_ (let () (declare (not safe)) - (##car _%e200597200622%_))) - (_%tl200599200629%_ + (##car _%e201884201909%_))) + (_%tl201886201916%_ (let () (declare (not safe)) - (##cdr _%e200597200622%_)))) + (##cdr _%e201884201909%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl200599200629%_)) - ((lambda (_%L200632%_) + (gx#stx-null? _%tl201886201916%_)) + ((lambda (_%L201919%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -60,11 +60,11 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'lambda)) - (cons '() (cons _%L200632%_ '()))) + (cons '() (cons _%L201919%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd200598200626%_) - (_%g200591200605%_ _%g200592200609%_)))) - (_%g200591200605%_ _%g200592200609%_)))) - (_%g200591200605%_ _%g200592200609%_))))) - (_%g200590200647%_ _%$stx200587%_)))) + _%hd201885201913%_) + (_%g201878201892%_ _%g201879201896%_)))) + (_%g201878201892%_ _%g201879201896%_)))) + (_%g201878201892%_ _%g201879201896%_))))) + (_%g201877201934%_ _%$stx201874%_)))) diff --git a/src/bootstrap/gerbil/compiler/method~0.scm b/src/bootstrap/gerbil/compiler/method~0.scm index 01577f4bc..7df08fe1b 100644 --- a/src/bootstrap/gerbil/compiler/method~0.scm +++ b/src/bootstrap/gerbil/compiler/method~0.scm @@ -1,81 +1,81 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/method::timestamp 1713631267) + (define gerbil/compiler/method::timestamp 1734357962) (begin (define gxc#current-compile-method (make-parameter '#f)) (define gxc#compile-e__0 - (lambda (_%stx137535%_) - (let* ((_%self137537%_ + (lambda (_%stx138822%_) + (let* ((_%self138824%_ (let () (declare (not safe)) (gxc#current-compile-method))) - (_%$e137539%_ - (let ((__tmp137735 (gxc#stx-car-e _%stx137535%_))) + (_%$e138826%_ + (let ((__tmp139022 (gxc#stx-car-e _%stx138822%_))) (declare (not safe)) - (method-ref _%self137537%_ __tmp137735)))) - (if _%$e137539%_ - ((lambda (_%method137542%_) - (declare (not safe)) - (_%method137542%_ _%self137537%_ _%stx137535%_)) - _%$e137539%_) - (let ((__tmp137737 (gxc#stx-car-e _%stx137535%_)) - (__tmp137736 + (method-ref _%self138824%_ __tmp139022)))) + (if _%$e138826%_ + ((lambda (_%method138829%_) + (declare (not safe)) + (_%method138829%_ _%self138824%_ _%stx138822%_)) + _%$e138826%_) + (let ((__tmp139024 (gxc#stx-car-e _%stx138822%_)) + (__tmp139023 (let () (declare (not safe)) - (gx#syntax->datum _%stx137535%_)))) + (gx#syntax->datum _%stx138822%_)))) (declare (not safe)) (error '"missing method" - _%self137537%_ - __tmp137737 - __tmp137736)))))) + _%self138824%_ + __tmp139024 + __tmp139023)))))) (define gxc#compile-e__1 - (lambda (_%self137546%_ _%stx137547%_) - (let ((_%$e137549%_ - (let ((__tmp137738 (gxc#stx-car-e _%stx137547%_))) - (declare (not safe)) - (method-ref _%self137546%_ __tmp137738)))) - (if _%$e137549%_ - ((lambda (_%method137552%_) - (declare (not safe)) - (_%method137552%_ _%self137546%_ _%stx137547%_)) - _%$e137549%_) - (let ((__tmp137740 (gxc#stx-car-e _%stx137547%_)) - (__tmp137739 + (lambda (_%self138833%_ _%stx138834%_) + (let ((_%$e138836%_ + (let ((__tmp139025 (gxc#stx-car-e _%stx138834%_))) + (declare (not safe)) + (method-ref _%self138833%_ __tmp139025)))) + (if _%$e138836%_ + ((lambda (_%method138839%_) + (declare (not safe)) + (_%method138839%_ _%self138833%_ _%stx138834%_)) + _%$e138836%_) + (let ((__tmp139027 (gxc#stx-car-e _%stx138834%_)) + (__tmp139026 (let () (declare (not safe)) - (gx#syntax->datum _%stx137547%_)))) + (gx#syntax->datum _%stx138834%_)))) (declare (not safe)) (error '"missing method" - _%self137546%_ - __tmp137740 - __tmp137739)))))) + _%self138833%_ + __tmp139027 + __tmp139026)))))) (define gxc#compile-e - (lambda _g137742_ - (let ((_g137741_ (let () (declare (not safe)) (##length _g137742_)))) - (cond ((let () (declare (not safe)) (##fx= _g137741_ 1)) - (apply gxc#compile-e__0 _g137742_)) - ((let () (declare (not safe)) (##fx= _g137741_ 2)) - (apply gxc#compile-e__1 _g137742_)) + (lambda _g139029_ + (let ((_g139028_ (let () (declare (not safe)) (##length _g139029_)))) + (cond ((let () (declare (not safe)) (##fx= _g139028_ 1)) + (apply gxc#compile-e__0 _g139029_)) + ((let () (declare (not safe)) (##fx= _g139028_ 2)) + (apply gxc#compile-e__1 _g139029_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-e - _g137742_)))))) + _g139029_)))))) (define gxc#stx-car-e - (lambda (_%stx137533%_) - (let ((__tmp137743 - (car (let () (declare (not safe)) (gx#stx-e _%stx137533%_))))) + (lambda (_%stx138820%_) + (let ((__tmp139030 + (car (let () (declare (not safe)) (gx#stx-e _%stx138820%_))))) (declare (not safe)) - (gx#stx-e __tmp137743)))) - (define gxc#void-method (lambda (_%self137530%_ _%stx137531%_) '#!void)) - (define gxc#false-method (lambda (_%self137527%_ _%stx137528%_) '#f)) - (define gxc#true-method (lambda (_%self137524%_ _%stx137525%_) '#t)) + (gx#stx-e __tmp139030)))) + (define gxc#void-method (lambda (_%self138817%_ _%stx138818%_) '#!void)) + (define gxc#false-method (lambda (_%self138814%_ _%stx138815%_) '#f)) + (define gxc#true-method (lambda (_%self138811%_ _%stx138812%_) '#t)) (define gxc#identity-method - (lambda (_%self137521%_ _%stx137522%_) _%stx137522%_)) + (lambda (_%self138808%_ _%stx138809%_) _%stx138809%_)) (define gxc#::void-expression::t - (let ((__tmp137744 (list))) + (let ((__tmp139031 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-expression::t '::void-expression - __tmp137744 + __tmp139031 '() '() '#f))) @@ -84,10 +84,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-expression::t))) (define gxc#make-::void-expression - (lambda _%$args137518%_ - (apply make-instance gxc#::void-expression::t _%$args137518%_))) + (lambda _%$args138805%_ + (apply make-instance gxc#::void-expression::t _%$args138805%_))) (define gxc#::void-expression-bind-methods! - (let ((__tmp137745 + (let ((__tmp139032 (lambda () (let () (declare (not safe)) @@ -216,14 +216,14 @@ '%#struct-unchecked-set! gxc#void-method))))) (declare (not safe)) - (__make-promise __tmp137745))) + (__make-promise __tmp139032))) (define gxc#::void-special-form::t - (let ((__tmp137746 (list))) + (let ((__tmp139033 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-special-form::t '::void-special-form - __tmp137746 + __tmp139033 '() '() '#f))) @@ -232,10 +232,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-special-form::t))) (define gxc#make-::void-special-form - (lambda _%$args137514%_ - (apply make-instance gxc#::void-special-form::t _%$args137514%_))) + (lambda _%$args138801%_ + (apply make-instance gxc#::void-special-form::t _%$args138801%_))) (define gxc#::void-special-form-bind-methods! - (let ((__tmp137747 + (let ((__tmp139034 (lambda () (let () (declare (not safe)) @@ -310,31 +310,31 @@ '%#declare gxc#void-method))))) (declare (not safe)) - (__make-promise __tmp137747))) + (__make-promise __tmp139034))) (define gxc#::void::t - (let ((__tmp137748 + (let ((__tmp139035 (list gxc#::void-special-form::t gxc#::void-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::void::t '::void __tmp137748 '() '() '#f))) + (__make-class-type 'gxc#::void::t '::void __tmp139035 '() '() '#f))) (define gxc#::void? (let () (declare (not safe)) (__make-class-predicate gxc#::void::t))) (define gxc#make-::void - (lambda _%$args137510%_ - (apply make-instance gxc#::void::t _%$args137510%_))) + (lambda _%$args138797%_ + (apply make-instance gxc#::void::t _%$args138797%_))) (define gxc#::void-bind-methods! - (let ((__tmp137749 + (let ((__tmp139036 (lambda () (force gxc#::void-special-form-bind-methods!) (force gxc#::void-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp137749))) + (__make-promise __tmp139036))) (define gxc#::false-expression::t - (let ((__tmp137750 (list))) + (let ((__tmp139037 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-expression::t '::false-expression - __tmp137750 + __tmp139037 '() '() '#f))) @@ -343,10 +343,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-expression::t))) (define gxc#make-::false-expression - (lambda _%$args137506%_ - (apply make-instance gxc#::false-expression::t _%$args137506%_))) + (lambda _%$args138793%_ + (apply make-instance gxc#::false-expression::t _%$args138793%_))) (define gxc#::false-expression-bind-methods! - (let ((__tmp137751 + (let ((__tmp139038 (lambda () (let () (declare (not safe)) @@ -475,14 +475,14 @@ '%#struct-unchecked-set! gxc#false-method))))) (declare (not safe)) - (__make-promise __tmp137751))) + (__make-promise __tmp139038))) (define gxc#::false-special-form::t - (let ((__tmp137752 (list))) + (let ((__tmp139039 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-special-form::t '::false-special-form - __tmp137752 + __tmp139039 '() '() '#f))) @@ -491,10 +491,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-special-form::t))) (define gxc#make-::false-special-form - (lambda _%$args137502%_ - (apply make-instance gxc#::false-special-form::t _%$args137502%_))) + (lambda _%$args138789%_ + (apply make-instance gxc#::false-special-form::t _%$args138789%_))) (define gxc#::false-special-form-bind-methods! - (let ((__tmp137753 + (let ((__tmp139040 (lambda () (let () (declare (not safe)) @@ -569,31 +569,31 @@ '%#declare gxc#false-method))))) (declare (not safe)) - (__make-promise __tmp137753))) + (__make-promise __tmp139040))) (define gxc#::false::t - (let ((__tmp137754 + (let ((__tmp139041 (list gxc#::false-special-form::t gxc#::false-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::false::t '::false __tmp137754 '() '() '#f))) + (__make-class-type 'gxc#::false::t '::false __tmp139041 '() '() '#f))) (define gxc#::false? (let () (declare (not safe)) (__make-class-predicate gxc#::false::t))) (define gxc#make-::false - (lambda _%$args137498%_ - (apply make-instance gxc#::false::t _%$args137498%_))) + (lambda _%$args138785%_ + (apply make-instance gxc#::false::t _%$args138785%_))) (define gxc#::false-bind-methods! - (let ((__tmp137755 + (let ((__tmp139042 (lambda () (force gxc#::false-special-form-bind-methods!) (force gxc#::false-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp137755))) + (__make-promise __tmp139042))) (define gxc#::identity-expression::t - (let ((__tmp137756 (list))) + (let ((__tmp139043 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-expression::t '::identity-expression - __tmp137756 + __tmp139043 '() '() '#f))) @@ -602,10 +602,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-expression::t))) (define gxc#make-::identity-expression - (lambda _%$args137494%_ - (apply make-instance gxc#::identity-expression::t _%$args137494%_))) + (lambda _%$args138781%_ + (apply make-instance gxc#::identity-expression::t _%$args138781%_))) (define gxc#::identity-expression-bind-methods! - (let ((__tmp137757 + (let ((__tmp139044 (lambda () (let () (declare (not safe)) @@ -734,14 +734,14 @@ '%#struct-unchecked-set! gxc#identity-method))))) (declare (not safe)) - (__make-promise __tmp137757))) + (__make-promise __tmp139044))) (define gxc#::identity-special-form::t - (let ((__tmp137758 (list))) + (let ((__tmp139045 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-special-form::t '::identity-special-form - __tmp137758 + __tmp139045 '() '() '#f))) @@ -750,10 +750,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-special-form::t))) (define gxc#make-::identity-special-form - (lambda _%$args137490%_ - (apply make-instance gxc#::identity-special-form::t _%$args137490%_))) + (lambda _%$args138777%_ + (apply make-instance gxc#::identity-special-form::t _%$args138777%_))) (define gxc#::identity-special-form-bind-methods! - (let ((__tmp137759 + (let ((__tmp139046 (lambda () (let () (declare (not safe)) @@ -828,38 +828,38 @@ '%#declare gxc#identity-method))))) (declare (not safe)) - (__make-promise __tmp137759))) + (__make-promise __tmp139046))) (define gxc#::identity::t - (let ((__tmp137760 + (let ((__tmp139047 (list gxc#::identity-special-form::t gxc#::identity-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::identity::t '::identity - __tmp137760 + __tmp139047 '() '() '#f))) (define gxc#::identity? (let () (declare (not safe)) (__make-class-predicate gxc#::identity::t))) (define gxc#make-::identity - (lambda _%$args137486%_ - (apply make-instance gxc#::identity::t _%$args137486%_))) + (lambda _%$args138773%_ + (apply make-instance gxc#::identity::t _%$args138773%_))) (define gxc#::identity-bind-methods! - (let ((__tmp137761 + (let ((__tmp139048 (lambda () (force gxc#::identity-special-form-bind-methods!) (force gxc#::identity-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp137761))) + (__make-promise __tmp139048))) (define gxc#::basic-xform-expression::t - (let ((__tmp137762 (list))) + (let ((__tmp139049 (list))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform-expression::t '::basic-xform-expression - __tmp137762 + __tmp139049 '() '() '#f))) @@ -868,10 +868,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform-expression::t))) (define gxc#make-::basic-xform-expression - (lambda _%$args137482%_ - (apply make-instance gxc#::basic-xform-expression::t _%$args137482%_))) + (lambda _%$args138769%_ + (apply make-instance gxc#::basic-xform-expression::t _%$args138769%_))) (define gxc#::basic-xform-expression-bind-methods! - (let ((__tmp137763 + (let ((__tmp139050 (lambda () (let () (declare (not safe)) @@ -1000,15 +1000,15 @@ '%#struct-unchecked-set! gxc#xform-operands))))) (declare (not safe)) - (__make-promise __tmp137763))) + (__make-promise __tmp139050))) (define gxc#::basic-xform::t - (let ((__tmp137764 + (let ((__tmp139051 (list gxc#::basic-xform-expression::t gxc#::identity::t))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform::t '::basic-xform - __tmp137764 + __tmp139051 '() '() '#f))) @@ -1017,10 +1017,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform::t))) (define gxc#make-::basic-xform - (lambda _%$args137478%_ - (apply make-instance gxc#::basic-xform::t _%$args137478%_))) + (lambda _%$args138765%_ + (apply make-instance gxc#::basic-xform::t _%$args138765%_))) (define gxc#::basic-xform-bind-methods! - (let ((__tmp137765 + (let ((__tmp139052 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (force gxc#::identity-bind-methods!) @@ -1055,2552 +1055,2552 @@ '%#define-syntax gxc#xform-define-syntax%))))) (declare (not safe)) - (__make-promise __tmp137765))) + (__make-promise __tmp139052))) (define gxc#apply-begin% - (lambda (_%self137434%_ _%stx137435%_) - (let* ((_%g137437137447%_ - (lambda (_%g137438137444%_) + (lambda (_%self138721%_ _%stx138722%_) + (let* ((_%g138724138734%_ + (lambda (_%g138725138731%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137438137444%_)))) - (_%g137436137474%_ - (lambda (_%g137438137450%_) + _%g138725138731%_)))) + (_%g138723138761%_ + (lambda (_%g138725138737%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137438137450%_)) - (let ((_%e137440137452%_ + (gx#stx-pair? _%g138725138737%_)) + (let ((_%e138727138739%_ (let () (declare (not safe)) - (gx#stx-e _%g137438137450%_)))) - (let ((_%hd137441137455%_ + (gx#stx-e _%g138725138737%_)))) + (let ((_%hd138728138742%_ (let () (declare (not safe)) - (##car _%e137440137452%_))) - (_%tl137442137457%_ + (##car _%e138727138739%_))) + (_%tl138729138744%_ (let () (declare (not safe)) - (##cdr _%e137440137452%_)))) - ((lambda (_%L137460%_) + (##cdr _%e138727138739%_)))) + ((lambda (_%L138747%_) (for-each - (lambda (_%g137469137471%_) + (lambda (_%g138756138758%_) (gxc#compile-e__1 - _%self137434%_ - _%g137469137471%_)) + _%self138721%_ + _%g138756138758%_)) (let () (declare (not safe)) - (gx#stx-e _%L137460%_)))) - _%tl137442137457%_))) - (_%g137437137447%_ _%g137438137450%_))))) - (_%g137436137474%_ _%stx137435%_)))) + (gx#stx-e _%L138747%_)))) + _%tl138729138744%_))) + (_%g138724138734%_ _%g138725138737%_))))) + (_%g138723138761%_ _%stx138722%_)))) (define gxc#apply-last-begin% - (lambda (_%self137395%_ _%stx137396%_) - (let* ((_%g137398137408%_ - (lambda (_%g137399137405%_) + (lambda (_%self138682%_ _%stx138683%_) + (let* ((_%g138685138695%_ + (lambda (_%g138686138692%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137399137405%_)))) - (_%g137397137431%_ - (lambda (_%g137399137411%_) + _%g138686138692%_)))) + (_%g138684138718%_ + (lambda (_%g138686138698%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137399137411%_)) - (let ((_%e137401137413%_ + (gx#stx-pair? _%g138686138698%_)) + (let ((_%e138688138700%_ (let () (declare (not safe)) - (gx#stx-e _%g137399137411%_)))) - (let ((_%hd137402137416%_ + (gx#stx-e _%g138686138698%_)))) + (let ((_%hd138689138703%_ (let () (declare (not safe)) - (##car _%e137401137413%_))) - (_%tl137403137418%_ + (##car _%e138688138700%_))) + (_%tl138690138705%_ (let () (declare (not safe)) - (##cdr _%e137401137413%_)))) - ((lambda (_%L137421%_) + (##cdr _%e138688138700%_)))) + ((lambda (_%L138708%_) (gxc#compile-e__1 - _%self137395%_ - (last _%L137421%_))) - _%tl137403137418%_))) - (_%g137398137408%_ _%g137399137411%_))))) - (_%g137397137431%_ _%stx137396%_)))) + _%self138682%_ + (last _%L138708%_))) + _%tl138690138705%_))) + (_%g138685138695%_ _%g138686138698%_))))) + (_%g138684138718%_ _%stx138683%_)))) (define gxc#apply-begin-syntax% - (lambda (_%self137391%_ _%stx137392%_) - (let ((__tmp137768 - (lambda () (gxc#apply-begin% _%self137391%_ _%stx137392%_))) - (__tmp137766 - (let ((__tmp137767 + (lambda (_%self138678%_ _%stx138679%_) + (let ((__tmp139055 + (lambda () (gxc#apply-begin% _%self138678%_ _%stx138679%_))) + (__tmp139053 + (let ((__tmp139054 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp137767 '1)))) + (##fx+ __tmp139054 '1)))) (declare (not safe)) (__call-with-parameters - __tmp137768 + __tmp139055 gx#current-expander-phi - __tmp137766)))) + __tmp139053)))) (define gxc#apply-module% - (lambda (_%self137330%_ _%stx137331%_) - (let* ((_%g137333137347%_ - (lambda (_%g137334137344%_) + (lambda (_%self138617%_ _%stx138618%_) + (let* ((_%g138620138634%_ + (lambda (_%g138621138631%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137334137344%_)))) - (_%g137332137388%_ - (lambda (_%g137334137350%_) + _%g138621138631%_)))) + (_%g138619138675%_ + (lambda (_%g138621138637%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137334137350%_)) - (let ((_%e137337137352%_ + (gx#stx-pair? _%g138621138637%_)) + (let ((_%e138624138639%_ (let () (declare (not safe)) - (gx#stx-e _%g137334137350%_)))) - (let ((_%hd137338137355%_ + (gx#stx-e _%g138621138637%_)))) + (let ((_%hd138625138642%_ (let () (declare (not safe)) - (##car _%e137337137352%_))) - (_%tl137339137357%_ + (##car _%e138624138639%_))) + (_%tl138626138644%_ (let () (declare (not safe)) - (##cdr _%e137337137352%_)))) + (##cdr _%e138624138639%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137339137357%_)) - (let ((_%e137340137360%_ + (gx#stx-pair? _%tl138626138644%_)) + (let ((_%e138627138647%_ (let () (declare (not safe)) - (gx#stx-e _%tl137339137357%_)))) - (let ((_%hd137341137363%_ + (gx#stx-e _%tl138626138644%_)))) + (let ((_%hd138628138650%_ (let () (declare (not safe)) - (##car _%e137340137360%_))) - (_%tl137342137365%_ + (##car _%e138627138647%_))) + (_%tl138629138652%_ (let () (declare (not safe)) - (##cdr _%e137340137360%_)))) - ((lambda (_%L137368%_ _%L137369%_) - (let* ((_%ctx137382%_ + (##cdr _%e138627138647%_)))) + ((lambda (_%L138655%_ _%L138656%_) + (let* ((_%ctx138669%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L137369%_))) - (_%ctx-stx137384%_ + _%L138656%_))) + (_%ctx-stx138671%_ (##structure-ref - _%ctx137382%_ + _%ctx138669%_ '11 gx#module-context::t '#f)) - (__tmp137769 + (__tmp139056 (lambda () (gxc#compile-e__1 - _%self137330%_ - _%ctx-stx137384%_)))) + _%self138617%_ + _%ctx-stx138671%_)))) (declare (not safe)) (__call-with-parameters - __tmp137769 + __tmp139056 gx#current-expander-context - _%ctx137382%_))) - _%tl137342137365%_ - _%hd137341137363%_))) - (_%g137333137347%_ _%g137334137350%_)))) - (_%g137333137347%_ _%g137334137350%_))))) - (_%g137332137388%_ _%stx137331%_)))) + _%ctx138669%_))) + _%tl138629138652%_ + _%hd138628138650%_))) + (_%g138620138634%_ _%g138621138637%_)))) + (_%g138620138634%_ _%g138621138637%_))))) + (_%g138619138675%_ _%stx138618%_)))) (define gxc#apply-begin-annotation% - (lambda (_%self137262%_ _%stx137263%_) - (let* ((_%g137265137282%_ - (lambda (_%g137266137279%_) + (lambda (_%self138549%_ _%stx138550%_) + (let* ((_%g138552138569%_ + (lambda (_%g138553138566%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137266137279%_)))) - (_%g137264137327%_ - (lambda (_%g137266137285%_) + _%g138553138566%_)))) + (_%g138551138614%_ + (lambda (_%g138553138572%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137266137285%_)) - (let ((_%e137269137287%_ + (gx#stx-pair? _%g138553138572%_)) + (let ((_%e138556138574%_ (let () (declare (not safe)) - (gx#stx-e _%g137266137285%_)))) - (let ((_%hd137270137290%_ + (gx#stx-e _%g138553138572%_)))) + (let ((_%hd138557138577%_ (let () (declare (not safe)) - (##car _%e137269137287%_))) - (_%tl137271137292%_ + (##car _%e138556138574%_))) + (_%tl138558138579%_ (let () (declare (not safe)) - (##cdr _%e137269137287%_)))) + (##cdr _%e138556138574%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137271137292%_)) - (let ((_%e137272137295%_ + (gx#stx-pair? _%tl138558138579%_)) + (let ((_%e138559138582%_ (let () (declare (not safe)) - (gx#stx-e _%tl137271137292%_)))) - (let ((_%hd137273137298%_ + (gx#stx-e _%tl138558138579%_)))) + (let ((_%hd138560138585%_ (let () (declare (not safe)) - (##car _%e137272137295%_))) - (_%tl137274137300%_ + (##car _%e138559138582%_))) + (_%tl138561138587%_ (let () (declare (not safe)) - (##cdr _%e137272137295%_)))) + (##cdr _%e138559138582%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137274137300%_)) - (let ((_%e137275137303%_ + (gx#stx-pair? _%tl138561138587%_)) + (let ((_%e138562138590%_ (let () (declare (not safe)) - (gx#stx-e _%tl137274137300%_)))) - (let ((_%hd137276137306%_ + (gx#stx-e _%tl138561138587%_)))) + (let ((_%hd138563138593%_ (let () (declare (not safe)) - (##car _%e137275137303%_))) - (_%tl137277137308%_ + (##car _%e138562138590%_))) + (_%tl138564138595%_ (let () (declare (not safe)) - (##cdr _%e137275137303%_)))) + (##cdr _%e138562138590%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137277137308%_)) - ((lambda (_%L137311%_ - _%L137312%_) + _%tl138564138595%_)) + ((lambda (_%L138598%_ + _%L138599%_) (gxc#compile-e__1 - _%self137262%_ - _%L137311%_)) - _%hd137276137306%_ - _%hd137273137298%_) - (_%g137265137282%_ - _%g137266137285%_)))) - (_%g137265137282%_ _%g137266137285%_)))) - (_%g137265137282%_ _%g137266137285%_)))) - (_%g137265137282%_ _%g137266137285%_))))) - (_%g137264137327%_ _%stx137263%_)))) + _%self138549%_ + _%L138598%_)) + _%hd138563138593%_ + _%hd138560138585%_) + (_%g138552138569%_ + _%g138553138572%_)))) + (_%g138552138569%_ _%g138553138572%_)))) + (_%g138552138569%_ _%g138553138572%_)))) + (_%g138552138569%_ _%g138553138572%_))))) + (_%g138551138614%_ _%stx138550%_)))) (define gxc#apply-define-values% - (lambda (_%self137194%_ _%stx137195%_) - (let* ((_%g137197137214%_ - (lambda (_%g137198137211%_) + (lambda (_%self138481%_ _%stx138482%_) + (let* ((_%g138484138501%_ + (lambda (_%g138485138498%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137198137211%_)))) - (_%g137196137259%_ - (lambda (_%g137198137217%_) + _%g138485138498%_)))) + (_%g138483138546%_ + (lambda (_%g138485138504%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137198137217%_)) - (let ((_%e137201137219%_ + (gx#stx-pair? _%g138485138504%_)) + (let ((_%e138488138506%_ (let () (declare (not safe)) - (gx#stx-e _%g137198137217%_)))) - (let ((_%hd137202137222%_ + (gx#stx-e _%g138485138504%_)))) + (let ((_%hd138489138509%_ (let () (declare (not safe)) - (##car _%e137201137219%_))) - (_%tl137203137224%_ + (##car _%e138488138506%_))) + (_%tl138490138511%_ (let () (declare (not safe)) - (##cdr _%e137201137219%_)))) + (##cdr _%e138488138506%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137203137224%_)) - (let ((_%e137204137227%_ + (gx#stx-pair? _%tl138490138511%_)) + (let ((_%e138491138514%_ (let () (declare (not safe)) - (gx#stx-e _%tl137203137224%_)))) - (let ((_%hd137205137230%_ + (gx#stx-e _%tl138490138511%_)))) + (let ((_%hd138492138517%_ (let () (declare (not safe)) - (##car _%e137204137227%_))) - (_%tl137206137232%_ + (##car _%e138491138514%_))) + (_%tl138493138519%_ (let () (declare (not safe)) - (##cdr _%e137204137227%_)))) + (##cdr _%e138491138514%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137206137232%_)) - (let ((_%e137207137235%_ + (gx#stx-pair? _%tl138493138519%_)) + (let ((_%e138494138522%_ (let () (declare (not safe)) - (gx#stx-e _%tl137206137232%_)))) - (let ((_%hd137208137238%_ + (gx#stx-e _%tl138493138519%_)))) + (let ((_%hd138495138525%_ (let () (declare (not safe)) - (##car _%e137207137235%_))) - (_%tl137209137240%_ + (##car _%e138494138522%_))) + (_%tl138496138527%_ (let () (declare (not safe)) - (##cdr _%e137207137235%_)))) + (##cdr _%e138494138522%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137209137240%_)) - ((lambda (_%L137243%_ - _%L137244%_) + _%tl138496138527%_)) + ((lambda (_%L138530%_ + _%L138531%_) (gxc#compile-e__1 - _%self137194%_ - _%L137243%_)) - _%hd137208137238%_ - _%hd137205137230%_) - (_%g137197137214%_ - _%g137198137217%_)))) - (_%g137197137214%_ _%g137198137217%_)))) - (_%g137197137214%_ _%g137198137217%_)))) - (_%g137197137214%_ _%g137198137217%_))))) - (_%g137196137259%_ _%stx137195%_)))) + _%self138481%_ + _%L138530%_)) + _%hd138495138525%_ + _%hd138492138517%_) + (_%g138484138501%_ + _%g138485138504%_)))) + (_%g138484138501%_ _%g138485138504%_)))) + (_%g138484138501%_ _%g138485138504%_)))) + (_%g138484138501%_ _%g138485138504%_))))) + (_%g138483138546%_ _%stx138482%_)))) (define gxc#apply-define-syntax% - (lambda (_%self137125%_ _%stx137126%_) - (let* ((_%g137128137145%_ - (lambda (_%g137129137142%_) + (lambda (_%self138412%_ _%stx138413%_) + (let* ((_%g138415138432%_ + (lambda (_%g138416138429%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137129137142%_)))) - (_%g137127137191%_ - (lambda (_%g137129137148%_) + _%g138416138429%_)))) + (_%g138414138478%_ + (lambda (_%g138416138435%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137129137148%_)) - (let ((_%e137132137150%_ + (gx#stx-pair? _%g138416138435%_)) + (let ((_%e138419138437%_ (let () (declare (not safe)) - (gx#stx-e _%g137129137148%_)))) - (let ((_%hd137133137153%_ + (gx#stx-e _%g138416138435%_)))) + (let ((_%hd138420138440%_ (let () (declare (not safe)) - (##car _%e137132137150%_))) - (_%tl137134137155%_ + (##car _%e138419138437%_))) + (_%tl138421138442%_ (let () (declare (not safe)) - (##cdr _%e137132137150%_)))) + (##cdr _%e138419138437%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137134137155%_)) - (let ((_%e137135137158%_ + (gx#stx-pair? _%tl138421138442%_)) + (let ((_%e138422138445%_ (let () (declare (not safe)) - (gx#stx-e _%tl137134137155%_)))) - (let ((_%hd137136137161%_ + (gx#stx-e _%tl138421138442%_)))) + (let ((_%hd138423138448%_ (let () (declare (not safe)) - (##car _%e137135137158%_))) - (_%tl137137137163%_ + (##car _%e138422138445%_))) + (_%tl138424138450%_ (let () (declare (not safe)) - (##cdr _%e137135137158%_)))) + (##cdr _%e138422138445%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137137137163%_)) - (let ((_%e137138137166%_ + (gx#stx-pair? _%tl138424138450%_)) + (let ((_%e138425138453%_ (let () (declare (not safe)) - (gx#stx-e _%tl137137137163%_)))) - (let ((_%hd137139137169%_ + (gx#stx-e _%tl138424138450%_)))) + (let ((_%hd138426138456%_ (let () (declare (not safe)) - (##car _%e137138137166%_))) - (_%tl137140137171%_ + (##car _%e138425138453%_))) + (_%tl138427138458%_ (let () (declare (not safe)) - (##cdr _%e137138137166%_)))) + (##cdr _%e138425138453%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137140137171%_)) - ((lambda (_%L137174%_ - _%L137175%_) - (let ((__tmp137772 + _%tl138427138458%_)) + ((lambda (_%L138461%_ + _%L138462%_) + (let ((__tmp139059 (lambda () (gxc#compile-e__1 - _%self137125%_ - _%L137174%_))) - (__tmp137770 - (let ((__tmp137771 + _%self138412%_ + _%L138461%_))) + (__tmp139057 + (let ((__tmp139058 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp137771 '1)))) + (##fx+ __tmp139058 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp137772 + __tmp139059 gx#current-expander-phi - __tmp137770))) - _%hd137139137169%_ - _%hd137136137161%_) - (_%g137128137145%_ - _%g137129137148%_)))) - (_%g137128137145%_ _%g137129137148%_)))) - (_%g137128137145%_ _%g137129137148%_)))) - (_%g137128137145%_ _%g137129137148%_))))) - (_%g137127137191%_ _%stx137126%_)))) + __tmp139057))) + _%hd138426138456%_ + _%hd138423138448%_) + (_%g138415138432%_ + _%g138416138435%_)))) + (_%g138415138432%_ _%g138416138435%_)))) + (_%g138415138432%_ _%g138416138435%_)))) + (_%g138415138432%_ _%g138416138435%_))))) + (_%g138414138478%_ _%stx138413%_)))) (define gxc#apply-body-lambda% - (lambda (_%self137057%_ _%stx137058%_) - (let* ((_%g137060137077%_ - (lambda (_%g137061137074%_) + (lambda (_%self138344%_ _%stx138345%_) + (let* ((_%g138347138364%_ + (lambda (_%g138348138361%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137061137074%_)))) - (_%g137059137122%_ - (lambda (_%g137061137080%_) + _%g138348138361%_)))) + (_%g138346138409%_ + (lambda (_%g138348138367%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137061137080%_)) - (let ((_%e137064137082%_ + (gx#stx-pair? _%g138348138367%_)) + (let ((_%e138351138369%_ (let () (declare (not safe)) - (gx#stx-e _%g137061137080%_)))) - (let ((_%hd137065137085%_ + (gx#stx-e _%g138348138367%_)))) + (let ((_%hd138352138372%_ (let () (declare (not safe)) - (##car _%e137064137082%_))) - (_%tl137066137087%_ + (##car _%e138351138369%_))) + (_%tl138353138374%_ (let () (declare (not safe)) - (##cdr _%e137064137082%_)))) + (##cdr _%e138351138369%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137066137087%_)) - (let ((_%e137067137090%_ + (gx#stx-pair? _%tl138353138374%_)) + (let ((_%e138354138377%_ (let () (declare (not safe)) - (gx#stx-e _%tl137066137087%_)))) - (let ((_%hd137068137093%_ + (gx#stx-e _%tl138353138374%_)))) + (let ((_%hd138355138380%_ (let () (declare (not safe)) - (##car _%e137067137090%_))) - (_%tl137069137095%_ + (##car _%e138354138377%_))) + (_%tl138356138382%_ (let () (declare (not safe)) - (##cdr _%e137067137090%_)))) + (##cdr _%e138354138377%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137069137095%_)) - (let ((_%e137070137098%_ + (gx#stx-pair? _%tl138356138382%_)) + (let ((_%e138357138385%_ (let () (declare (not safe)) - (gx#stx-e _%tl137069137095%_)))) - (let ((_%hd137071137101%_ + (gx#stx-e _%tl138356138382%_)))) + (let ((_%hd138358138388%_ (let () (declare (not safe)) - (##car _%e137070137098%_))) - (_%tl137072137103%_ + (##car _%e138357138385%_))) + (_%tl138359138390%_ (let () (declare (not safe)) - (##cdr _%e137070137098%_)))) + (##cdr _%e138357138385%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137072137103%_)) - ((lambda (_%L137106%_ - _%L137107%_) + _%tl138359138390%_)) + ((lambda (_%L138393%_ + _%L138394%_) (gxc#compile-e__1 - _%self137057%_ - _%L137106%_)) - _%hd137071137101%_ - _%hd137068137093%_) - (_%g137060137077%_ - _%g137061137080%_)))) - (_%g137060137077%_ _%g137061137080%_)))) - (_%g137060137077%_ _%g137061137080%_)))) - (_%g137060137077%_ _%g137061137080%_))))) - (_%g137059137122%_ _%stx137058%_)))) + _%self138344%_ + _%L138393%_)) + _%hd138358138388%_ + _%hd138355138380%_) + (_%g138347138364%_ + _%g138348138367%_)))) + (_%g138347138364%_ _%g138348138367%_)))) + (_%g138347138364%_ _%g138348138367%_)))) + (_%g138347138364%_ _%g138348138367%_))))) + (_%g138346138409%_ _%stx138345%_)))) (define gxc#apply-body-case-lambda% - (lambda (_%self136939%_ _%stx136940%_) - (let* ((_%g136942136970%_ - (lambda (_%g136943136967%_) + (lambda (_%self138226%_ _%stx138227%_) + (let* ((_%g138229138257%_ + (lambda (_%g138230138254%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136943136967%_)))) - (_%g136941137054%_ - (lambda (_%g136943136973%_) + _%g138230138254%_)))) + (_%g138228138341%_ + (lambda (_%g138230138260%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136943136973%_)) - (let ((_%e136946136975%_ + (gx#stx-pair? _%g138230138260%_)) + (let ((_%e138233138262%_ (let () (declare (not safe)) - (gx#stx-e _%g136943136973%_)))) - (let ((_%hd136947136978%_ + (gx#stx-e _%g138230138260%_)))) + (let ((_%hd138234138265%_ (let () (declare (not safe)) - (##car _%e136946136975%_))) - (_%tl136948136980%_ + (##car _%e138233138262%_))) + (_%tl138235138267%_ (let () (declare (not safe)) - (##cdr _%e136946136975%_)))) + (##cdr _%e138233138262%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl136948136980%_)) - (let ((_g137773_ + (gx#stx-pair/null? _%tl138235138267%_)) + (let ((_g139060_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl136948136980%_ + _%tl138235138267%_ '0)))) (begin - (let ((_g137774_ + (let ((_g139061_ (let () (declare (not safe)) - (if (##values? _g137773_) - (##vector-length _g137773_) + (if (##values? _g139060_) + (##values-length _g139060_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137774_ 2))) + (##fx= _g139061_ 2))) (error "Context expects 2 values" - _g137774_))) - (let ((_%target136949136983%_ + _g139061_))) + (let ((_%target138236138270%_ (let () (declare (not safe)) - (##vector-ref _g137773_ 0))) - (_%tl136951136985%_ + (##values-ref _g139060_ 0))) + (_%tl138238138272%_ (let () (declare (not safe)) - (##vector-ref _g137773_ 1)))) + (##values-ref _g139060_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136951136985%_)) - (letrec ((_%loop136952136988%_ - (lambda (_%hd136950136991%_ - _%body136956136993%_ - _%hd136957136995%_) + (gx#stx-null? _%tl138238138272%_)) + (letrec ((_%loop138239138275%_ + (lambda (_%hd138237138278%_ + _%body138243138280%_ + _%hd138244138282%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd136950136991%_)) - (let ((_%e136953136998%_ + _%hd138237138278%_)) + (let ((_%e138240138285%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd136950136991%_)))) - (let ((_%lp-hd136954137001%_ + (gx#stx-e _%hd138237138278%_)))) + (let ((_%lp-hd138241138288%_ (let () (declare (not safe)) - (##car _%e136953136998%_))) - (_%lp-tl136955137003%_ + (##car _%e138240138285%_))) + (_%lp-tl138242138290%_ (let () (declare (not safe)) - (##cdr _%e136953136998%_)))) + (##cdr _%e138240138285%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd136954137001%_)) - (let ((_%e136960137006%_ + (gx#stx-pair? _%lp-hd138241138288%_)) + (let ((_%e138247138293%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd136954137001%_)))) - (let ((_%hd136961137009%_ + (gx#stx-e _%lp-hd138241138288%_)))) + (let ((_%hd138248138296%_ (let () (declare (not safe)) - (##car _%e136960137006%_))) - (_%tl136962137011%_ + (##car _%e138247138293%_))) + (_%tl138249138298%_ (let () (declare (not safe)) - (##cdr _%e136960137006%_)))) + (##cdr _%e138247138293%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136962137011%_)) - (let ((_%e136963137014%_ + (gx#stx-pair? _%tl138249138298%_)) + (let ((_%e138250138301%_ (let () (declare (not safe)) - (gx#stx-e _%tl136962137011%_)))) - (let ((_%hd136964137017%_ + (gx#stx-e _%tl138249138298%_)))) + (let ((_%hd138251138304%_ (let () (declare (not safe)) - (##car _%e136963137014%_))) - (_%tl136965137019%_ + (##car _%e138250138301%_))) + (_%tl138252138306%_ (let () (declare (not safe)) - (##cdr _%e136963137014%_)))) + (##cdr _%e138250138301%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136965137019%_)) - (_%loop136952136988%_ - _%lp-tl136955137003%_ - (cons _%hd136964137017%_ - _%body136956136993%_) - (cons _%hd136961137009%_ - _%hd136957136995%_)) - (_%g136942136970%_ - _%g136943136973%_)))) - (_%g136942136970%_ _%g136943136973%_)))) - (_%g136942136970%_ _%g136943136973%_)))) - (let ((_%body136958137022%_ (reverse _%body136956136993%_)) - (_%hd136959137024%_ (reverse _%hd136957136995%_))) - ((lambda (_%L137027%_ _%L137028%_) + (gx#stx-null? _%tl138252138306%_)) + (_%loop138239138275%_ + _%lp-tl138242138290%_ + (cons _%hd138251138304%_ + _%body138243138280%_) + (cons _%hd138248138296%_ + _%hd138244138282%_)) + (_%g138229138257%_ + _%g138230138260%_)))) + (_%g138229138257%_ _%g138230138260%_)))) + (_%g138229138257%_ _%g138230138260%_)))) + (let ((_%body138245138309%_ (reverse _%body138243138280%_)) + (_%hd138246138311%_ (reverse _%hd138244138282%_))) + ((lambda (_%L138314%_ _%L138315%_) (for-each - (lambda (_%g137042137044%_) - (gxc#compile-e__1 _%self136939%_ _%g137042137044%_)) - (let ((__tmp137775 - (lambda (_%g137046137049%_ _%g137047137051%_) - (cons _%g137046137049%_ _%g137047137051%_)))) + (lambda (_%g138329138331%_) + (gxc#compile-e__1 _%self138226%_ _%g138329138331%_)) + (let ((__tmp139062 + (lambda (_%g138333138336%_ _%g138334138338%_) + (cons _%g138333138336%_ _%g138334138338%_)))) (declare (not safe)) - (__foldr1 __tmp137775 '() _%L137027%_)))) - _%body136958137022%_ - _%hd136959137024%_)))))) + (__foldr1 __tmp139062 '() _%L138314%_)))) + _%body138245138309%_ + _%hd138246138311%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop136952136988%_ - _%target136949136983%_ + (_%loop138239138275%_ + _%target138236138270%_ '() '())) - (_%g136942136970%_ - _%g136943136973%_))))) - (_%g136942136970%_ _%g136943136973%_)))) - (_%g136942136970%_ _%g136943136973%_))))) - (_%g136941137054%_ _%stx136940%_)))) + (_%g138229138257%_ + _%g138230138260%_))))) + (_%g138229138257%_ _%g138230138260%_)))) + (_%g138229138257%_ _%g138230138260%_))))) + (_%g138228138341%_ _%stx138227%_)))) (define gxc#apply-body-let-values% - (lambda (_%self136792%_ _%stx136793%_) - (let* ((_%g136795136830%_ - (lambda (_%g136796136827%_) + (lambda (_%self138079%_ _%stx138080%_) + (let* ((_%g138082138117%_ + (lambda (_%g138083138114%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136796136827%_)))) - (_%g136794136936%_ - (lambda (_%g136796136833%_) + _%g138083138114%_)))) + (_%g138081138223%_ + (lambda (_%g138083138120%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136796136833%_)) - (let ((_%e136800136835%_ + (gx#stx-pair? _%g138083138120%_)) + (let ((_%e138087138122%_ (let () (declare (not safe)) - (gx#stx-e _%g136796136833%_)))) - (let ((_%hd136801136838%_ + (gx#stx-e _%g138083138120%_)))) + (let ((_%hd138088138125%_ (let () (declare (not safe)) - (##car _%e136800136835%_))) - (_%tl136802136840%_ + (##car _%e138087138122%_))) + (_%tl138089138127%_ (let () (declare (not safe)) - (##cdr _%e136800136835%_)))) + (##cdr _%e138087138122%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136802136840%_)) - (let ((_%e136803136843%_ + (gx#stx-pair? _%tl138089138127%_)) + (let ((_%e138090138130%_ (let () (declare (not safe)) - (gx#stx-e _%tl136802136840%_)))) - (let ((_%hd136804136846%_ + (gx#stx-e _%tl138089138127%_)))) + (let ((_%hd138091138133%_ (let () (declare (not safe)) - (##car _%e136803136843%_))) - (_%tl136805136848%_ + (##car _%e138090138130%_))) + (_%tl138092138135%_ (let () (declare (not safe)) - (##cdr _%e136803136843%_)))) + (##cdr _%e138090138130%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd136804136846%_)) - (let ((_g137776_ + (gx#stx-pair/null? _%hd138091138133%_)) + (let ((_g139063_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd136804136846%_ + _%hd138091138133%_ '0)))) (begin - (let ((_g137777_ + (let ((_g139064_ (let () (declare (not safe)) - (if (##values? _g137776_) - (##vector-length - _g137776_) + (if (##values? _g139063_) + (##values-length + _g139063_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137777_ 2))) + (##fx= _g139064_ 2))) (error "Context expects 2 values" - _g137777_))) - (let ((_%target136806136851%_ + _g139064_))) + (let ((_%target138093138138%_ (let () (declare (not safe)) - (##vector-ref _g137776_ 0))) - (_%tl136808136853%_ + (##values-ref _g139063_ 0))) + (_%tl138095138140%_ (let () (declare (not safe)) - (##vector-ref - _g137776_ + (##values-ref + _g139063_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136808136853%_)) - (letrec ((_%loop136809136856%_ - (lambda (_%hd136807136859%_ + _%tl138095138140%_)) + (letrec ((_%loop138096138143%_ + (lambda (_%hd138094138146%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr136813136861%_ - _%hd136814136863%_) + _%expr138100138148%_ + _%hd138101138150%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd136807136859%_)) - (let ((_%e136810136866%_ + (gx#stx-pair? _%hd138094138146%_)) + (let ((_%e138097138153%_ (let () (declare (not safe)) - (gx#stx-e _%hd136807136859%_)))) - (let ((_%lp-hd136811136869%_ + (gx#stx-e _%hd138094138146%_)))) + (let ((_%lp-hd138098138156%_ (let () (declare (not safe)) - (##car _%e136810136866%_))) - (_%lp-tl136812136871%_ + (##car _%e138097138153%_))) + (_%lp-tl138099138158%_ (let () (declare (not safe)) - (##cdr _%e136810136866%_)))) + (##cdr _%e138097138153%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd136811136869%_)) - (let ((_%e136820136874%_ + (gx#stx-pair? _%lp-hd138098138156%_)) + (let ((_%e138107138161%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd136811136869%_)))) - (let ((_%hd136821136877%_ + (gx#stx-e _%lp-hd138098138156%_)))) + (let ((_%hd138108138164%_ (let () (declare (not safe)) - (##car _%e136820136874%_))) - (_%tl136822136879%_ + (##car _%e138107138161%_))) + (_%tl138109138166%_ (let () (declare (not safe)) - (##cdr _%e136820136874%_)))) + (##cdr _%e138107138161%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136822136879%_)) - (let ((_%e136823136882%_ + (gx#stx-pair? _%tl138109138166%_)) + (let ((_%e138110138169%_ (let () (declare (not safe)) (gx#stx-e - _%tl136822136879%_)))) - (let ((_%hd136824136885%_ + _%tl138109138166%_)))) + (let ((_%hd138111138172%_ (let () (declare (not safe)) - (##car _%e136823136882%_))) - (_%tl136825136887%_ + (##car _%e138110138169%_))) + (_%tl138112138174%_ (let () (declare (not safe)) - (##cdr _%e136823136882%_)))) + (##cdr _%e138110138169%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136825136887%_)) - (_%loop136809136856%_ - _%lp-tl136812136871%_ - (cons _%hd136824136885%_ - _%expr136813136861%_) - (cons _%hd136821136877%_ - _%hd136814136863%_)) - (_%g136795136830%_ - _%g136796136833%_)))) - (_%g136795136830%_ - _%g136796136833%_)))) - (_%g136795136830%_ _%g136796136833%_)))) - (let ((_%expr136815136890%_ - (reverse _%expr136813136861%_)) - (_%hd136816136892%_ - (reverse _%hd136814136863%_))) + _%tl138112138174%_)) + (_%loop138096138143%_ + _%lp-tl138099138158%_ + (cons _%hd138111138172%_ + _%expr138100138148%_) + (cons _%hd138108138164%_ + _%hd138101138150%_)) + (_%g138082138117%_ + _%g138083138120%_)))) + (_%g138082138117%_ + _%g138083138120%_)))) + (_%g138082138117%_ _%g138083138120%_)))) + (let ((_%expr138102138177%_ + (reverse _%expr138100138148%_)) + (_%hd138103138179%_ + (reverse _%hd138101138150%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136805136848%_)) - (let ((_%e136817136895%_ + (gx#stx-pair? _%tl138092138135%_)) + (let ((_%e138104138182%_ (let () (declare (not safe)) - (gx#stx-e _%tl136805136848%_)))) - (let ((_%hd136818136898%_ + (gx#stx-e _%tl138092138135%_)))) + (let ((_%hd138105138185%_ (let () (declare (not safe)) - (##car _%e136817136895%_))) - (_%tl136819136900%_ + (##car _%e138104138182%_))) + (_%tl138106138187%_ (let () (declare (not safe)) - (##cdr _%e136817136895%_)))) + (##cdr _%e138104138182%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136819136900%_)) - ((lambda (_%L136903%_ - _%L136904%_ - _%L136905%_) + (gx#stx-null? _%tl138106138187%_)) + ((lambda (_%L138190%_ + _%L138191%_ + _%L138192%_) (for-each - (lambda (_%g136924136926%_) + (lambda (_%g138211138213%_) (gxc#compile-e__1 - _%self136792%_ - _%g136924136926%_)) - (let ((__tmp137779 - (lambda (_%g136928136931%_ - _%g136929136933%_) - (cons _%g136928136931%_ - _%g136929136933%_))) - (__tmp137778 - (cons _%L136903%_ '()))) + _%self138079%_ + _%g138211138213%_)) + (let ((__tmp139066 + (lambda (_%g138215138218%_ + _%g138216138220%_) + (cons _%g138215138218%_ + _%g138216138220%_))) + (__tmp139065 + (cons _%L138190%_ '()))) (declare (not safe)) (__foldr1 - __tmp137779 - __tmp137778 - _%L136904%_)))) - _%hd136818136898%_ - _%expr136815136890%_ - _%hd136816136892%_) - (_%g136795136830%_ _%g136796136833%_)))) - (_%g136795136830%_ _%g136796136833%_))))))) + __tmp139066 + __tmp139065 + _%L138191%_)))) + _%hd138105138185%_ + _%expr138102138177%_ + _%hd138103138179%_) + (_%g138082138117%_ _%g138083138120%_)))) + (_%g138082138117%_ _%g138083138120%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop136809136856%_ - _%target136806136851%_ + (_%loop138096138143%_ + _%target138093138138%_ '() '())) - (_%g136795136830%_ - _%g136796136833%_))))) - (_%g136795136830%_ _%g136796136833%_)))) - (_%g136795136830%_ _%g136796136833%_)))) - (_%g136795136830%_ _%g136796136833%_))))) - (_%g136794136936%_ _%stx136793%_)))) + (_%g138082138117%_ + _%g138083138120%_))))) + (_%g138082138117%_ _%g138083138120%_)))) + (_%g138082138117%_ _%g138083138120%_)))) + (_%g138082138117%_ _%g138083138120%_))))) + (_%g138081138223%_ _%stx138080%_)))) (define gxc#apply-body-last-let-values% - (lambda (_%self136737%_ _%stx136738%_) - (let* ((_%g136740136754%_ - (lambda (_%g136741136751%_) + (lambda (_%self138024%_ _%stx138025%_) + (let* ((_%g138027138041%_ + (lambda (_%g138028138038%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136741136751%_)))) - (_%g136739136789%_ - (lambda (_%g136741136757%_) + _%g138028138038%_)))) + (_%g138026138076%_ + (lambda (_%g138028138044%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136741136757%_)) - (let ((_%e136744136759%_ + (gx#stx-pair? _%g138028138044%_)) + (let ((_%e138031138046%_ (let () (declare (not safe)) - (gx#stx-e _%g136741136757%_)))) - (let ((_%hd136745136762%_ + (gx#stx-e _%g138028138044%_)))) + (let ((_%hd138032138049%_ (let () (declare (not safe)) - (##car _%e136744136759%_))) - (_%tl136746136764%_ + (##car _%e138031138046%_))) + (_%tl138033138051%_ (let () (declare (not safe)) - (##cdr _%e136744136759%_)))) + (##cdr _%e138031138046%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136746136764%_)) - (let ((_%e136747136767%_ + (gx#stx-pair? _%tl138033138051%_)) + (let ((_%e138034138054%_ (let () (declare (not safe)) - (gx#stx-e _%tl136746136764%_)))) - (let ((_%hd136748136770%_ + (gx#stx-e _%tl138033138051%_)))) + (let ((_%hd138035138057%_ (let () (declare (not safe)) - (##car _%e136747136767%_))) - (_%tl136749136772%_ + (##car _%e138034138054%_))) + (_%tl138036138059%_ (let () (declare (not safe)) - (##cdr _%e136747136767%_)))) - ((lambda (_%L136775%_ _%L136776%_) + (##cdr _%e138034138054%_)))) + ((lambda (_%L138062%_ _%L138063%_) (gxc#compile-e__1 - _%self136737%_ - (last _%L136775%_))) - _%tl136749136772%_ - _%hd136748136770%_))) - (_%g136740136754%_ _%g136741136757%_)))) - (_%g136740136754%_ _%g136741136757%_))))) - (_%g136739136789%_ _%stx136738%_)))) + _%self138024%_ + (last _%L138062%_))) + _%tl138036138059%_ + _%hd138035138057%_))) + (_%g138027138041%_ _%g138028138044%_)))) + (_%g138027138041%_ _%g138028138044%_))))) + (_%g138026138076%_ _%stx138025%_)))) (define gxc#apply-body-setq% - (lambda (_%self136669%_ _%stx136670%_) - (let* ((_%g136672136689%_ - (lambda (_%g136673136686%_) + (lambda (_%self137956%_ _%stx137957%_) + (let* ((_%g137959137976%_ + (lambda (_%g137960137973%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136673136686%_)))) - (_%g136671136734%_ - (lambda (_%g136673136692%_) + _%g137960137973%_)))) + (_%g137958138021%_ + (lambda (_%g137960137979%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136673136692%_)) - (let ((_%e136676136694%_ + (gx#stx-pair? _%g137960137979%_)) + (let ((_%e137963137981%_ (let () (declare (not safe)) - (gx#stx-e _%g136673136692%_)))) - (let ((_%hd136677136697%_ + (gx#stx-e _%g137960137979%_)))) + (let ((_%hd137964137984%_ (let () (declare (not safe)) - (##car _%e136676136694%_))) - (_%tl136678136699%_ + (##car _%e137963137981%_))) + (_%tl137965137986%_ (let () (declare (not safe)) - (##cdr _%e136676136694%_)))) + (##cdr _%e137963137981%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136678136699%_)) - (let ((_%e136679136702%_ + (gx#stx-pair? _%tl137965137986%_)) + (let ((_%e137966137989%_ (let () (declare (not safe)) - (gx#stx-e _%tl136678136699%_)))) - (let ((_%hd136680136705%_ + (gx#stx-e _%tl137965137986%_)))) + (let ((_%hd137967137992%_ (let () (declare (not safe)) - (##car _%e136679136702%_))) - (_%tl136681136707%_ + (##car _%e137966137989%_))) + (_%tl137968137994%_ (let () (declare (not safe)) - (##cdr _%e136679136702%_)))) + (##cdr _%e137966137989%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136681136707%_)) - (let ((_%e136682136710%_ + (gx#stx-pair? _%tl137968137994%_)) + (let ((_%e137969137997%_ (let () (declare (not safe)) - (gx#stx-e _%tl136681136707%_)))) - (let ((_%hd136683136713%_ + (gx#stx-e _%tl137968137994%_)))) + (let ((_%hd137970138000%_ (let () (declare (not safe)) - (##car _%e136682136710%_))) - (_%tl136684136715%_ + (##car _%e137969137997%_))) + (_%tl137971138002%_ (let () (declare (not safe)) - (##cdr _%e136682136710%_)))) + (##cdr _%e137969137997%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136684136715%_)) - ((lambda (_%L136718%_ - _%L136719%_) + _%tl137971138002%_)) + ((lambda (_%L138005%_ + _%L138006%_) (gxc#compile-e__1 - _%self136669%_ - _%L136718%_)) - _%hd136683136713%_ - _%hd136680136705%_) - (_%g136672136689%_ - _%g136673136692%_)))) - (_%g136672136689%_ _%g136673136692%_)))) - (_%g136672136689%_ _%g136673136692%_)))) - (_%g136672136689%_ _%g136673136692%_))))) - (_%g136671136734%_ _%stx136670%_)))) + _%self137956%_ + _%L138005%_)) + _%hd137970138000%_ + _%hd137967137992%_) + (_%g137959137976%_ + _%g137960137979%_)))) + (_%g137959137976%_ _%g137960137979%_)))) + (_%g137959137976%_ _%g137960137979%_)))) + (_%g137959137976%_ _%g137960137979%_))))) + (_%g137958138021%_ _%stx137957%_)))) (define gxc#apply-operands - (lambda (_%self136582%_ _%stx136583%_) - (let* ((_%g136585136604%_ - (lambda (_%g136586136601%_) + (lambda (_%self137869%_ _%stx137870%_) + (let* ((_%g137872137891%_ + (lambda (_%g137873137888%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136586136601%_)))) - (_%g136584136666%_ - (lambda (_%g136586136607%_) + _%g137873137888%_)))) + (_%g137871137953%_ + (lambda (_%g137873137894%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136586136607%_)) - (let ((_%e136588136609%_ + (gx#stx-pair? _%g137873137894%_)) + (let ((_%e137875137896%_ (let () (declare (not safe)) - (gx#stx-e _%g136586136607%_)))) - (let ((_%hd136589136612%_ + (gx#stx-e _%g137873137894%_)))) + (let ((_%hd137876137899%_ (let () (declare (not safe)) - (##car _%e136588136609%_))) - (_%tl136590136614%_ + (##car _%e137875137896%_))) + (_%tl137877137901%_ (let () (declare (not safe)) - (##cdr _%e136588136609%_)))) + (##cdr _%e137875137896%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl136590136614%_)) - (let ((_g137780_ + (gx#stx-pair/null? _%tl137877137901%_)) + (let ((_g139067_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl136590136614%_ + _%tl137877137901%_ '0)))) (begin - (let ((_g137781_ + (let ((_g139068_ (let () (declare (not safe)) - (if (##values? _g137780_) - (##vector-length _g137780_) + (if (##values? _g139067_) + (##values-length _g139067_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137781_ 2))) + (##fx= _g139068_ 2))) (error "Context expects 2 values" - _g137781_))) - (let ((_%target136591136617%_ + _g139068_))) + (let ((_%target137878137904%_ (let () (declare (not safe)) - (##vector-ref _g137780_ 0))) - (_%tl136593136619%_ + (##values-ref _g139067_ 0))) + (_%tl137880137906%_ (let () (declare (not safe)) - (##vector-ref _g137780_ 1)))) + (##values-ref _g139067_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136593136619%_)) - (letrec ((_%loop136594136622%_ - (lambda (_%hd136592136625%_ - _%rands136598136627%_) + (gx#stx-null? _%tl137880137906%_)) + (letrec ((_%loop137881137909%_ + (lambda (_%hd137879137912%_ + _%rands137885137914%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd136592136625%_)) - (let ((_%e136595136630%_ + _%hd137879137912%_)) + (let ((_%e137882137917%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd136592136625%_)))) - (let ((_%lp-hd136596136633%_ + (gx#stx-e _%hd137879137912%_)))) + (let ((_%lp-hd137883137920%_ (let () (declare (not safe)) - (##car _%e136595136630%_))) - (_%lp-tl136597136635%_ + (##car _%e137882137917%_))) + (_%lp-tl137884137922%_ (let () (declare (not safe)) - (##cdr _%e136595136630%_)))) - (_%loop136594136622%_ - _%lp-tl136597136635%_ - (cons _%lp-hd136596136633%_ _%rands136598136627%_)))) - (let ((_%rands136599136638%_ (reverse _%rands136598136627%_))) - ((lambda (_%L136641%_) + (##cdr _%e137882137917%_)))) + (_%loop137881137909%_ + _%lp-tl137884137922%_ + (cons _%lp-hd137883137920%_ _%rands137885137914%_)))) + (let ((_%rands137886137925%_ (reverse _%rands137885137914%_))) + ((lambda (_%L137928%_) (for-each - (lambda (_%g136654136656%_) - (gxc#compile-e__1 _%self136582%_ _%g136654136656%_)) - (let ((__tmp137782 - (lambda (_%g136658136661%_ _%g136659136663%_) - (cons _%g136658136661%_ _%g136659136663%_)))) + (lambda (_%g137941137943%_) + (gxc#compile-e__1 _%self137869%_ _%g137941137943%_)) + (let ((__tmp139069 + (lambda (_%g137945137948%_ _%g137946137950%_) + (cons _%g137945137948%_ _%g137946137950%_)))) (declare (not safe)) - (__foldr1 __tmp137782 '() _%L136641%_)))) - _%rands136599136638%_)))))) + (__foldr1 __tmp139069 '() _%L137928%_)))) + _%rands137886137925%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop136594136622%_ - _%target136591136617%_ + (_%loop137881137909%_ + _%target137878137904%_ '())) - (_%g136585136604%_ - _%g136586136607%_))))) - (_%g136585136604%_ _%g136586136607%_)))) - (_%g136585136604%_ _%g136586136607%_))))) - (_%g136584136666%_ _%stx136583%_)))) + (_%g137872137891%_ + _%g137873137894%_))))) + (_%g137872137891%_ _%g137873137894%_)))) + (_%g137872137891%_ _%g137873137894%_))))) + (_%g137871137953%_ _%stx137870%_)))) (define gxc#xform-wrap-source - (lambda (_%stx136579%_ _%src-stx136580%_) - (let ((__tmp137783 + (lambda (_%stx137866%_ _%src-stx137867%_) + (let ((__tmp139070 (let () (declare (not safe)) - (gx#stx-source _%src-stx136580%_)))) + (gx#stx-source _%src-stx137867%_)))) (declare (not safe)) - (gx#stx-wrap-source _%stx136579%_ __tmp137783)))) + (gx#stx-wrap-source _%stx137866%_ __tmp139070)))) (define gxc#xform-wrap-apply - (lambda (_%stx136575%_ _%src-stx136576%_ _%ctx136577%_) + (lambda (_%stx137862%_ _%src-stx137863%_ _%ctx137864%_) (gxc#compile-e__1 - _%ctx136577%_ - (gxc#xform-wrap-source _%stx136575%_ _%src-stx136576%_)))) + _%ctx137864%_ + (gxc#xform-wrap-source _%stx137862%_ _%src-stx137863%_)))) (define gxc#xform-begin% - (lambda (_%self136530%_ _%stx136531%_) - (let* ((_%g136533136543%_ - (lambda (_%g136534136540%_) + (lambda (_%self137817%_ _%stx137818%_) + (let* ((_%g137820137830%_ + (lambda (_%g137821137827%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136534136540%_)))) - (_%g136532136572%_ - (lambda (_%g136534136546%_) + _%g137821137827%_)))) + (_%g137819137859%_ + (lambda (_%g137821137833%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136534136546%_)) - (let ((_%e136536136548%_ + (gx#stx-pair? _%g137821137833%_)) + (let ((_%e137823137835%_ (let () (declare (not safe)) - (gx#stx-e _%g136534136546%_)))) - (let ((_%hd136537136551%_ + (gx#stx-e _%g137821137833%_)))) + (let ((_%hd137824137838%_ (let () (declare (not safe)) - (##car _%e136536136548%_))) - (_%tl136538136553%_ + (##car _%e137823137835%_))) + (_%tl137825137840%_ (let () (declare (not safe)) - (##cdr _%e136536136548%_)))) - ((lambda (_%L136556%_) - (let ((_%forms136570%_ - (map (lambda (_%g136565136567%_) + (##cdr _%e137823137835%_)))) + ((lambda (_%L137843%_) + (let ((_%forms137857%_ + (map (lambda (_%g137852137854%_) (gxc#compile-e__1 - _%self136530%_ - _%g136565136567%_)) - _%L136556%_))) + _%self137817%_ + _%g137852137854%_)) + _%L137843%_))) (gxc#xform-wrap-source - (cons '%#begin _%forms136570%_) - _%stx136531%_))) - _%tl136538136553%_))) - (_%g136533136543%_ _%g136534136546%_))))) - (_%g136532136572%_ _%stx136531%_)))) + (cons '%#begin _%forms137857%_) + _%stx137818%_))) + _%tl137825137840%_))) + (_%g137820137830%_ _%g137821137833%_))))) + (_%g137819137859%_ _%stx137818%_)))) (define gxc#xform-begin-syntax% - (lambda (_%self136484%_ _%stx136485%_) - (let* ((_%g136487136497%_ - (lambda (_%g136488136494%_) + (lambda (_%self137771%_ _%stx137772%_) + (let* ((_%g137774137784%_ + (lambda (_%g137775137781%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136488136494%_)))) - (_%g136486136527%_ - (lambda (_%g136488136500%_) + _%g137775137781%_)))) + (_%g137773137814%_ + (lambda (_%g137775137787%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136488136500%_)) - (let ((_%e136490136502%_ + (gx#stx-pair? _%g137775137787%_)) + (let ((_%e137777137789%_ (let () (declare (not safe)) - (gx#stx-e _%g136488136500%_)))) - (let ((_%hd136491136505%_ + (gx#stx-e _%g137775137787%_)))) + (let ((_%hd137778137792%_ (let () (declare (not safe)) - (##car _%e136490136502%_))) - (_%tl136492136507%_ + (##car _%e137777137789%_))) + (_%tl137779137794%_ (let () (declare (not safe)) - (##cdr _%e136490136502%_)))) - ((lambda (_%L136510%_) - (let ((__tmp137786 + (##cdr _%e137777137789%_)))) + ((lambda (_%L137797%_) + (let ((__tmp139073 (lambda () - (let ((_%forms136525%_ - (map (lambda (_%g136520136522%_) + (let ((_%forms137812%_ + (map (lambda (_%g137807137809%_) (gxc#compile-e__1 - _%self136484%_ - _%g136520136522%_)) - _%L136510%_))) + _%self137771%_ + _%g137807137809%_)) + _%L137797%_))) (gxc#xform-wrap-source - (cons '%#begin-syntax _%forms136525%_) - _%stx136485%_)))) - (__tmp137784 - (let ((__tmp137785 + (cons '%#begin-syntax _%forms137812%_) + _%stx137772%_)))) + (__tmp139071 + (let ((__tmp139072 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp137785 '1)))) + (##fx+ __tmp139072 '1)))) (declare (not safe)) (__call-with-parameters - __tmp137786 + __tmp139073 gx#current-expander-phi - __tmp137784))) - _%tl136492136507%_))) - (_%g136487136497%_ _%g136488136500%_))))) - (_%g136486136527%_ _%stx136485%_)))) + __tmp139071))) + _%tl137779137794%_))) + (_%g137774137784%_ _%g137775137787%_))))) + (_%g137773137814%_ _%stx137772%_)))) (define gxc#xform-module% - (lambda (_%self136421%_ _%stx136422%_) - (let* ((_%g136424136438%_ - (lambda (_%g136425136435%_) + (lambda (_%self137708%_ _%stx137709%_) + (let* ((_%g137711137725%_ + (lambda (_%g137712137722%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136425136435%_)))) - (_%g136423136481%_ - (lambda (_%g136425136441%_) + _%g137712137722%_)))) + (_%g137710137768%_ + (lambda (_%g137712137728%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136425136441%_)) - (let ((_%e136428136443%_ + (gx#stx-pair? _%g137712137728%_)) + (let ((_%e137715137730%_ (let () (declare (not safe)) - (gx#stx-e _%g136425136441%_)))) - (let ((_%hd136429136446%_ + (gx#stx-e _%g137712137728%_)))) + (let ((_%hd137716137733%_ (let () (declare (not safe)) - (##car _%e136428136443%_))) - (_%tl136430136448%_ + (##car _%e137715137730%_))) + (_%tl137717137735%_ (let () (declare (not safe)) - (##cdr _%e136428136443%_)))) + (##cdr _%e137715137730%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136430136448%_)) - (let ((_%e136431136451%_ + (gx#stx-pair? _%tl137717137735%_)) + (let ((_%e137718137738%_ (let () (declare (not safe)) - (gx#stx-e _%tl136430136448%_)))) - (let ((_%hd136432136454%_ + (gx#stx-e _%tl137717137735%_)))) + (let ((_%hd137719137741%_ (let () (declare (not safe)) - (##car _%e136431136451%_))) - (_%tl136433136456%_ + (##car _%e137718137738%_))) + (_%tl137720137743%_ (let () (declare (not safe)) - (##cdr _%e136431136451%_)))) - ((lambda (_%L136459%_ _%L136460%_) - (let* ((_%ctx136473%_ + (##cdr _%e137718137738%_)))) + ((lambda (_%L137746%_ _%L137747%_) + (let* ((_%ctx137760%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L136460%_))) - (_%code136475%_ + _%L137747%_))) + (_%code137762%_ (##structure-ref - _%ctx136473%_ + _%ctx137760%_ '11 gx#module-context::t '#f)) - (_%code136478%_ - (let ((__tmp137787 + (_%code137765%_ + (let ((__tmp139074 (lambda () (gxc#compile-e__1 - _%self136421%_ - _%code136475%_)))) + _%self137708%_ + _%code137762%_)))) (declare (not safe)) (__call-with-parameters - __tmp137787 + __tmp139074 gx#current-expander-context - _%ctx136473%_)))) + _%ctx137760%_)))) (##structure-set! - _%ctx136473%_ - _%code136478%_ + _%ctx137760%_ + _%code137765%_ '11 gx#module-context::t '#f) (gxc#xform-wrap-source (cons '%#module - (cons _%L136460%_ - (cons _%code136478%_ '()))) - _%stx136422%_))) - _%tl136433136456%_ - _%hd136432136454%_))) - (_%g136424136438%_ _%g136425136441%_)))) - (_%g136424136438%_ _%g136425136441%_))))) - (_%g136423136481%_ _%stx136422%_)))) + (cons _%L137747%_ + (cons _%code137765%_ '()))) + _%stx137709%_))) + _%tl137720137743%_ + _%hd137719137741%_))) + (_%g137711137725%_ _%g137712137728%_)))) + (_%g137711137725%_ _%g137712137728%_))))) + (_%g137710137768%_ _%stx137709%_)))) (define gxc#xform-define-values% - (lambda (_%self136351%_ _%stx136352%_) - (let* ((_%g136354136371%_ - (lambda (_%g136355136368%_) + (lambda (_%self137638%_ _%stx137639%_) + (let* ((_%g137641137658%_ + (lambda (_%g137642137655%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136355136368%_)))) - (_%g136353136418%_ - (lambda (_%g136355136374%_) + _%g137642137655%_)))) + (_%g137640137705%_ + (lambda (_%g137642137661%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136355136374%_)) - (let ((_%e136358136376%_ + (gx#stx-pair? _%g137642137661%_)) + (let ((_%e137645137663%_ (let () (declare (not safe)) - (gx#stx-e _%g136355136374%_)))) - (let ((_%hd136359136379%_ + (gx#stx-e _%g137642137661%_)))) + (let ((_%hd137646137666%_ (let () (declare (not safe)) - (##car _%e136358136376%_))) - (_%tl136360136381%_ + (##car _%e137645137663%_))) + (_%tl137647137668%_ (let () (declare (not safe)) - (##cdr _%e136358136376%_)))) + (##cdr _%e137645137663%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136360136381%_)) - (let ((_%e136361136384%_ + (gx#stx-pair? _%tl137647137668%_)) + (let ((_%e137648137671%_ (let () (declare (not safe)) - (gx#stx-e _%tl136360136381%_)))) - (let ((_%hd136362136387%_ + (gx#stx-e _%tl137647137668%_)))) + (let ((_%hd137649137674%_ (let () (declare (not safe)) - (##car _%e136361136384%_))) - (_%tl136363136389%_ + (##car _%e137648137671%_))) + (_%tl137650137676%_ (let () (declare (not safe)) - (##cdr _%e136361136384%_)))) + (##cdr _%e137648137671%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136363136389%_)) - (let ((_%e136364136392%_ + (gx#stx-pair? _%tl137650137676%_)) + (let ((_%e137651137679%_ (let () (declare (not safe)) - (gx#stx-e _%tl136363136389%_)))) - (let ((_%hd136365136395%_ + (gx#stx-e _%tl137650137676%_)))) + (let ((_%hd137652137682%_ (let () (declare (not safe)) - (##car _%e136364136392%_))) - (_%tl136366136397%_ + (##car _%e137651137679%_))) + (_%tl137653137684%_ (let () (declare (not safe)) - (##cdr _%e136364136392%_)))) + (##cdr _%e137651137679%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136366136397%_)) - ((lambda (_%L136400%_ - _%L136401%_) - (let ((_%expr136416%_ + _%tl137653137684%_)) + ((lambda (_%L137687%_ + _%L137688%_) + (let ((_%expr137703%_ (gxc#compile-e__1 - _%self136351%_ - _%L136400%_))) + _%self137638%_ + _%L137687%_))) (gxc#xform-wrap-source (cons '%#define-values - (cons _%L136401%_ - (cons _%expr136416%_ + (cons _%L137688%_ + (cons _%expr137703%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx136352%_))) - _%hd136365136395%_ - _%hd136362136387%_) - (_%g136354136371%_ - _%g136355136374%_)))) - (_%g136354136371%_ _%g136355136374%_)))) - (_%g136354136371%_ _%g136355136374%_)))) - (_%g136354136371%_ _%g136355136374%_))))) - (_%g136353136418%_ _%stx136352%_)))) + _%stx137639%_))) + _%hd137652137682%_ + _%hd137649137674%_) + (_%g137641137658%_ + _%g137642137661%_)))) + (_%g137641137658%_ _%g137642137661%_)))) + (_%g137641137658%_ _%g137642137661%_)))) + (_%g137641137658%_ _%g137642137661%_))))) + (_%g137640137705%_ _%stx137639%_)))) (define gxc#xform-define-syntax% - (lambda (_%self136280%_ _%stx136281%_) - (let* ((_%g136283136300%_ - (lambda (_%g136284136297%_) + (lambda (_%self137567%_ _%stx137568%_) + (let* ((_%g137570137587%_ + (lambda (_%g137571137584%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136284136297%_)))) - (_%g136282136348%_ - (lambda (_%g136284136303%_) + _%g137571137584%_)))) + (_%g137569137635%_ + (lambda (_%g137571137590%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136284136303%_)) - (let ((_%e136287136305%_ + (gx#stx-pair? _%g137571137590%_)) + (let ((_%e137574137592%_ (let () (declare (not safe)) - (gx#stx-e _%g136284136303%_)))) - (let ((_%hd136288136308%_ + (gx#stx-e _%g137571137590%_)))) + (let ((_%hd137575137595%_ (let () (declare (not safe)) - (##car _%e136287136305%_))) - (_%tl136289136310%_ + (##car _%e137574137592%_))) + (_%tl137576137597%_ (let () (declare (not safe)) - (##cdr _%e136287136305%_)))) + (##cdr _%e137574137592%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136289136310%_)) - (let ((_%e136290136313%_ + (gx#stx-pair? _%tl137576137597%_)) + (let ((_%e137577137600%_ (let () (declare (not safe)) - (gx#stx-e _%tl136289136310%_)))) - (let ((_%hd136291136316%_ + (gx#stx-e _%tl137576137597%_)))) + (let ((_%hd137578137603%_ (let () (declare (not safe)) - (##car _%e136290136313%_))) - (_%tl136292136318%_ + (##car _%e137577137600%_))) + (_%tl137579137605%_ (let () (declare (not safe)) - (##cdr _%e136290136313%_)))) + (##cdr _%e137577137600%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136292136318%_)) - (let ((_%e136293136321%_ + (gx#stx-pair? _%tl137579137605%_)) + (let ((_%e137580137608%_ (let () (declare (not safe)) - (gx#stx-e _%tl136292136318%_)))) - (let ((_%hd136294136324%_ + (gx#stx-e _%tl137579137605%_)))) + (let ((_%hd137581137611%_ (let () (declare (not safe)) - (##car _%e136293136321%_))) - (_%tl136295136326%_ + (##car _%e137580137608%_))) + (_%tl137582137613%_ (let () (declare (not safe)) - (##cdr _%e136293136321%_)))) + (##cdr _%e137580137608%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136295136326%_)) - ((lambda (_%L136329%_ - _%L136330%_) - (let ((__tmp137790 + _%tl137582137613%_)) + ((lambda (_%L137616%_ + _%L137617%_) + (let ((__tmp139077 (lambda () - (let ((_%expr136346%_ + (let ((_%expr137633%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gxc#compile-e__1 _%self136280%_ _%L136329%_))) + (gxc#compile-e__1 _%self137567%_ _%L137616%_))) (gxc#xform-wrap-source (cons '%#define-syntax - (cons _%L136330%_ (cons _%expr136346%_ '()))) - _%stx136281%_)))) - (__tmp137788 - (let ((__tmp137789 + (cons _%L137617%_ (cons _%expr137633%_ '()))) + _%stx137568%_)))) + (__tmp139075 + (let ((__tmp139076 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp137789 '1)))) + (##fx+ __tmp139076 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp137790 + __tmp139077 gx#current-expander-phi - __tmp137788))) - _%hd136294136324%_ - _%hd136291136316%_) - (_%g136283136300%_ - _%g136284136303%_)))) - (_%g136283136300%_ _%g136284136303%_)))) - (_%g136283136300%_ _%g136284136303%_)))) - (_%g136283136300%_ _%g136284136303%_))))) - (_%g136282136348%_ _%stx136281%_)))) + __tmp139075))) + _%hd137581137611%_ + _%hd137578137603%_) + (_%g137570137587%_ + _%g137571137590%_)))) + (_%g137570137587%_ _%g137571137590%_)))) + (_%g137570137587%_ _%g137571137590%_)))) + (_%g137570137587%_ _%g137571137590%_))))) + (_%g137569137635%_ _%stx137568%_)))) (define gxc#xform-begin-annotation% - (lambda (_%self136210%_ _%stx136211%_) - (let* ((_%g136213136230%_ - (lambda (_%g136214136227%_) + (lambda (_%self137497%_ _%stx137498%_) + (let* ((_%g137500137517%_ + (lambda (_%g137501137514%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136214136227%_)))) - (_%g136212136277%_ - (lambda (_%g136214136233%_) + _%g137501137514%_)))) + (_%g137499137564%_ + (lambda (_%g137501137520%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136214136233%_)) - (let ((_%e136217136235%_ + (gx#stx-pair? _%g137501137520%_)) + (let ((_%e137504137522%_ (let () (declare (not safe)) - (gx#stx-e _%g136214136233%_)))) - (let ((_%hd136218136238%_ + (gx#stx-e _%g137501137520%_)))) + (let ((_%hd137505137525%_ (let () (declare (not safe)) - (##car _%e136217136235%_))) - (_%tl136219136240%_ + (##car _%e137504137522%_))) + (_%tl137506137527%_ (let () (declare (not safe)) - (##cdr _%e136217136235%_)))) + (##cdr _%e137504137522%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136219136240%_)) - (let ((_%e136220136243%_ + (gx#stx-pair? _%tl137506137527%_)) + (let ((_%e137507137530%_ (let () (declare (not safe)) - (gx#stx-e _%tl136219136240%_)))) - (let ((_%hd136221136246%_ + (gx#stx-e _%tl137506137527%_)))) + (let ((_%hd137508137533%_ (let () (declare (not safe)) - (##car _%e136220136243%_))) - (_%tl136222136248%_ + (##car _%e137507137530%_))) + (_%tl137509137535%_ (let () (declare (not safe)) - (##cdr _%e136220136243%_)))) + (##cdr _%e137507137530%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136222136248%_)) - (let ((_%e136223136251%_ + (gx#stx-pair? _%tl137509137535%_)) + (let ((_%e137510137538%_ (let () (declare (not safe)) - (gx#stx-e _%tl136222136248%_)))) - (let ((_%hd136224136254%_ + (gx#stx-e _%tl137509137535%_)))) + (let ((_%hd137511137541%_ (let () (declare (not safe)) - (##car _%e136223136251%_))) - (_%tl136225136256%_ + (##car _%e137510137538%_))) + (_%tl137512137543%_ (let () (declare (not safe)) - (##cdr _%e136223136251%_)))) + (##cdr _%e137510137538%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136225136256%_)) - ((lambda (_%L136259%_ - _%L136260%_) - (let ((_%expr136275%_ + _%tl137512137543%_)) + ((lambda (_%L137546%_ + _%L137547%_) + (let ((_%expr137562%_ (gxc#compile-e__1 - _%self136210%_ - _%L136259%_))) + _%self137497%_ + _%L137546%_))) (gxc#xform-wrap-source (cons '%#begin-annotation - (cons _%L136260%_ - (cons _%expr136275%_ + (cons _%L137547%_ + (cons _%expr137562%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx136211%_))) - _%hd136224136254%_ - _%hd136221136246%_) - (_%g136213136230%_ - _%g136214136233%_)))) - (_%g136213136230%_ _%g136214136233%_)))) - (_%g136213136230%_ _%g136214136233%_)))) - (_%g136213136230%_ _%g136214136233%_))))) - (_%g136212136277%_ _%stx136211%_)))) + _%stx137498%_))) + _%hd137511137541%_ + _%hd137508137533%_) + (_%g137500137517%_ + _%g137501137520%_)))) + (_%g137500137517%_ _%g137501137520%_)))) + (_%g137500137517%_ _%g137501137520%_)))) + (_%g137500137517%_ _%g137501137520%_))))) + (_%g137499137564%_ _%stx137498%_)))) (define gxc#xform-lambda% - (lambda (_%self136148%_ _%stx136149%_) - (let* ((_%g136151136165%_ - (lambda (_%g136152136162%_) + (lambda (_%self137435%_ _%stx137436%_) + (let* ((_%g137438137452%_ + (lambda (_%g137439137449%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136152136162%_)))) - (_%g136150136207%_ - (lambda (_%g136152136168%_) + _%g137439137449%_)))) + (_%g137437137494%_ + (lambda (_%g137439137455%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136152136168%_)) - (let ((_%e136155136170%_ + (gx#stx-pair? _%g137439137455%_)) + (let ((_%e137442137457%_ (let () (declare (not safe)) - (gx#stx-e _%g136152136168%_)))) - (let ((_%hd136156136173%_ + (gx#stx-e _%g137439137455%_)))) + (let ((_%hd137443137460%_ (let () (declare (not safe)) - (##car _%e136155136170%_))) - (_%tl136157136175%_ + (##car _%e137442137457%_))) + (_%tl137444137462%_ (let () (declare (not safe)) - (##cdr _%e136155136170%_)))) + (##cdr _%e137442137457%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136157136175%_)) - (let ((_%e136158136178%_ + (gx#stx-pair? _%tl137444137462%_)) + (let ((_%e137445137465%_ (let () (declare (not safe)) - (gx#stx-e _%tl136157136175%_)))) - (let ((_%hd136159136181%_ + (gx#stx-e _%tl137444137462%_)))) + (let ((_%hd137446137468%_ (let () (declare (not safe)) - (##car _%e136158136178%_))) - (_%tl136160136183%_ + (##car _%e137445137465%_))) + (_%tl137447137470%_ (let () (declare (not safe)) - (##cdr _%e136158136178%_)))) - ((lambda (_%L136186%_ _%L136187%_) - (let ((__tmp137792 + (##cdr _%e137445137465%_)))) + ((lambda (_%L137473%_ _%L137474%_) + (let ((__tmp139079 (lambda () - (let ((_%body136205%_ - (map (lambda (_%g136200136202%_) + (let ((_%body137492%_ + (map (lambda (_%g137487137489%_) (gxc#compile-e__1 - _%self136148%_ - _%g136200136202%_)) - _%L136186%_))) + _%self137435%_ + _%g137487137489%_)) + _%L137473%_))) (gxc#xform-wrap-source (cons '%#lambda - (cons _%L136187%_ - _%body136205%_)) - _%stx136149%_)))) - (__tmp137791 + (cons _%L137474%_ + _%body137492%_)) + _%stx137436%_)))) + (__tmp139078 (gxc#xform-let-locals - _%L136187%_))) + _%L137474%_))) (declare (not safe)) (__call-with-parameters - __tmp137792 + __tmp139079 gxc#current-compile-local-env - __tmp137791))) - _%tl136160136183%_ - _%hd136159136181%_))) - (_%g136151136165%_ _%g136152136168%_)))) - (_%g136151136165%_ _%g136152136168%_))))) - (_%g136150136207%_ _%stx136149%_)))) + __tmp139078))) + _%tl137447137470%_ + _%hd137446137468%_))) + (_%g137438137452%_ _%g137439137455%_)))) + (_%g137438137452%_ _%g137439137455%_))))) + (_%g137437137494%_ _%stx137436%_)))) (define gxc#xform-case-lambda% - (lambda (_%self136056%_ _%stx136057%_) - (letrec ((_%clause-e136059%_ - (lambda (_%clause136100%_) - (let* ((_%g136102136113%_ - (lambda (_%g136103136110%_) + (lambda (_%self137343%_ _%stx137344%_) + (letrec ((_%clause-e137346%_ + (lambda (_%clause137387%_) + (let* ((_%g137389137400%_ + (lambda (_%g137390137397%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136103136110%_)))) - (_%g136101136145%_ - (lambda (_%g136103136116%_) + _%g137390137397%_)))) + (_%g137388137432%_ + (lambda (_%g137390137403%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136103136116%_)) - (let ((_%e136106136118%_ + (gx#stx-pair? _%g137390137403%_)) + (let ((_%e137393137405%_ (let () (declare (not safe)) - (gx#stx-e _%g136103136116%_)))) - (let ((_%hd136107136121%_ + (gx#stx-e _%g137390137403%_)))) + (let ((_%hd137394137408%_ (let () (declare (not safe)) - (##car _%e136106136118%_))) - (_%tl136108136123%_ + (##car _%e137393137405%_))) + (_%tl137395137410%_ (let () (declare (not safe)) - (##cdr _%e136106136118%_)))) - ((lambda (_%L136126%_ _%L136127%_) - (let ((__tmp137794 + (##cdr _%e137393137405%_)))) + ((lambda (_%L137413%_ _%L137414%_) + (let ((__tmp139081 (lambda () - (let ((_%body136143%_ - (map (lambda (_%g136138136140%_) + (let ((_%body137430%_ + (map (lambda (_%g137425137427%_) (gxc#compile-e__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%self136056%_ - _%g136138136140%_)) - _%L136126%_))) + _%self137343%_ + _%g137425137427%_)) + _%L137413%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L136127%_ - _%body136143%_)))) - (__tmp137793 + (cons _%L137414%_ + _%body137430%_)))) + (__tmp139080 (gxc#xform-let-locals - _%L136127%_))) + _%L137414%_))) (declare (not safe)) (__call-with-parameters - __tmp137794 + __tmp139081 gxc#current-compile-local-env - __tmp137793))) - _%tl136108136123%_ - _%hd136107136121%_))) - (_%g136102136113%_ _%g136103136116%_))))) - (_%g136101136145%_ _%clause136100%_))))) - (let* ((_%g136061136071%_ - (lambda (_%g136062136068%_) + __tmp139080))) + _%tl137395137410%_ + _%hd137394137408%_))) + (_%g137389137400%_ _%g137390137403%_))))) + (_%g137388137432%_ _%clause137387%_))))) + (let* ((_%g137348137358%_ + (lambda (_%g137349137355%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136062136068%_)))) - (_%g136060136097%_ - (lambda (_%g136062136074%_) + _%g137349137355%_)))) + (_%g137347137384%_ + (lambda (_%g137349137361%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136062136074%_)) - (let ((_%e136064136076%_ + (gx#stx-pair? _%g137349137361%_)) + (let ((_%e137351137363%_ (let () (declare (not safe)) - (gx#stx-e _%g136062136074%_)))) - (let ((_%hd136065136079%_ + (gx#stx-e _%g137349137361%_)))) + (let ((_%hd137352137366%_ (let () (declare (not safe)) - (##car _%e136064136076%_))) - (_%tl136066136081%_ + (##car _%e137351137363%_))) + (_%tl137353137368%_ (let () (declare (not safe)) - (##cdr _%e136064136076%_)))) - ((lambda (_%L136084%_) - (let ((_%clauses136095%_ - (map _%clause-e136059%_ _%L136084%_))) + (##cdr _%e137351137363%_)))) + ((lambda (_%L137371%_) + (let ((_%clauses137382%_ + (map _%clause-e137346%_ _%L137371%_))) (gxc#xform-wrap-source - (cons '%#case-lambda _%clauses136095%_) - _%stx136057%_))) - _%tl136066136081%_))) - (_%g136061136071%_ _%g136062136074%_))))) - (_%g136060136097%_ _%stx136057%_))))) + (cons '%#case-lambda _%clauses137382%_) + _%stx137344%_))) + _%tl137353137368%_))) + (_%g137348137358%_ _%g137349137361%_))))) + (_%g137347137384%_ _%stx137344%_))))) (define gxc#xform-let-values% - (lambda (_%self135810%_ _%stx135811%_) - (let* ((_%g135813135846%_ - (lambda (_%g135814135843%_) + (lambda (_%self137097%_ _%stx137098%_) + (let* ((_%g137100137133%_ + (lambda (_%g137101137130%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135814135843%_)))) - (_%g135812136053%_ - (lambda (_%g135814135849%_) + _%g137101137130%_)))) + (_%g137099137340%_ + (lambda (_%g137101137136%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135814135849%_)) - (let ((_%e135819135851%_ + (gx#stx-pair? _%g137101137136%_)) + (let ((_%e137106137138%_ (let () (declare (not safe)) - (gx#stx-e _%g135814135849%_)))) - (let ((_%hd135820135854%_ + (gx#stx-e _%g137101137136%_)))) + (let ((_%hd137107137141%_ (let () (declare (not safe)) - (##car _%e135819135851%_))) - (_%tl135821135856%_ + (##car _%e137106137138%_))) + (_%tl137108137143%_ (let () (declare (not safe)) - (##cdr _%e135819135851%_)))) + (##cdr _%e137106137138%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135821135856%_)) - (let ((_%e135822135859%_ + (gx#stx-pair? _%tl137108137143%_)) + (let ((_%e137109137146%_ (let () (declare (not safe)) - (gx#stx-e _%tl135821135856%_)))) - (let ((_%hd135823135862%_ + (gx#stx-e _%tl137108137143%_)))) + (let ((_%hd137110137149%_ (let () (declare (not safe)) - (##car _%e135822135859%_))) - (_%tl135824135864%_ + (##car _%e137109137146%_))) + (_%tl137111137151%_ (let () (declare (not safe)) - (##cdr _%e135822135859%_)))) + (##cdr _%e137109137146%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd135823135862%_)) - (let ((_g137795_ + (gx#stx-pair/null? _%hd137110137149%_)) + (let ((_g139082_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd135823135862%_ + _%hd137110137149%_ '0)))) (begin - (let ((_g137796_ + (let ((_g139083_ (let () (declare (not safe)) - (if (##values? _g137795_) - (##vector-length - _g137795_) + (if (##values? _g139082_) + (##values-length + _g139082_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137796_ 2))) + (##fx= _g139083_ 2))) (error "Context expects 2 values" - _g137796_))) - (let ((_%target135825135867%_ + _g139083_))) + (let ((_%target137112137154%_ (let () (declare (not safe)) - (##vector-ref _g137795_ 0))) - (_%tl135827135869%_ + (##values-ref _g139082_ 0))) + (_%tl137114137156%_ (let () (declare (not safe)) - (##vector-ref - _g137795_ + (##values-ref + _g139082_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135827135869%_)) - (letrec ((_%loop135828135872%_ - (lambda (_%hd135826135875%_ + _%tl137114137156%_)) + (letrec ((_%loop137115137159%_ + (lambda (_%hd137113137162%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr135832135877%_ - _%hd135833135879%_) + _%expr137119137164%_ + _%hd137120137166%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135826135875%_)) - (let ((_%e135829135882%_ + (gx#stx-pair? _%hd137113137162%_)) + (let ((_%e137116137169%_ (let () (declare (not safe)) - (gx#stx-e _%hd135826135875%_)))) - (let ((_%lp-hd135830135885%_ + (gx#stx-e _%hd137113137162%_)))) + (let ((_%lp-hd137117137172%_ (let () (declare (not safe)) - (##car _%e135829135882%_))) - (_%lp-tl135831135887%_ + (##car _%e137116137169%_))) + (_%lp-tl137118137174%_ (let () (declare (not safe)) - (##cdr _%e135829135882%_)))) + (##cdr _%e137116137169%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd135830135885%_)) - (let ((_%e135836135890%_ + (gx#stx-pair? _%lp-hd137117137172%_)) + (let ((_%e137123137177%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd135830135885%_)))) - (let ((_%hd135837135893%_ + (gx#stx-e _%lp-hd137117137172%_)))) + (let ((_%hd137124137180%_ (let () (declare (not safe)) - (##car _%e135836135890%_))) - (_%tl135838135895%_ + (##car _%e137123137177%_))) + (_%tl137125137182%_ (let () (declare (not safe)) - (##cdr _%e135836135890%_)))) + (##cdr _%e137123137177%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135838135895%_)) - (let ((_%e135839135898%_ + (gx#stx-pair? _%tl137125137182%_)) + (let ((_%e137126137185%_ (let () (declare (not safe)) (gx#stx-e - _%tl135838135895%_)))) - (let ((_%hd135840135901%_ + _%tl137125137182%_)))) + (let ((_%hd137127137188%_ (let () (declare (not safe)) - (##car _%e135839135898%_))) - (_%tl135841135903%_ + (##car _%e137126137185%_))) + (_%tl137128137190%_ (let () (declare (not safe)) - (##cdr _%e135839135898%_)))) + (##cdr _%e137126137185%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135841135903%_)) - (_%loop135828135872%_ - _%lp-tl135831135887%_ - (cons _%hd135840135901%_ - _%expr135832135877%_) - (cons _%hd135837135893%_ - _%hd135833135879%_)) - (_%g135813135846%_ - _%g135814135849%_)))) - (_%g135813135846%_ - _%g135814135849%_)))) - (_%g135813135846%_ _%g135814135849%_)))) - (let ((_%expr135834135906%_ - (reverse _%expr135832135877%_)) - (_%hd135835135908%_ - (reverse _%hd135833135879%_))) - ((lambda (_%L135911%_ - _%L135912%_ - _%L135913%_ - _%L135914%_) - (let* ((_%g135933135949%_ - (lambda (_%g135934135946%_) + _%tl137128137190%_)) + (_%loop137115137159%_ + _%lp-tl137118137174%_ + (cons _%hd137127137188%_ + _%expr137119137164%_) + (cons _%hd137124137180%_ + _%hd137120137166%_)) + (_%g137100137133%_ + _%g137101137136%_)))) + (_%g137100137133%_ + _%g137101137136%_)))) + (_%g137100137133%_ _%g137101137136%_)))) + (let ((_%expr137121137193%_ + (reverse _%expr137119137164%_)) + (_%hd137122137195%_ + (reverse _%hd137120137166%_))) + ((lambda (_%L137198%_ + _%L137199%_ + _%L137200%_ + _%L137201%_) + (let* ((_%g137220137236%_ + (lambda (_%g137221137233%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135934135946%_)))) - (_%g135932136039%_ - (lambda (_%g135934135952%_) + _%g137221137233%_)))) + (_%g137219137326%_ + (lambda (_%g137221137239%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g135934135952%_)) - (let ((_g137797_ + _%g137221137239%_)) + (let ((_g139084_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g135934135952%_ + _%g137221137239%_ '0)))) (begin - (let ((_g137798_ + (let ((_g139085_ (let () (declare (not safe)) (if (##values? - _g137797_) - (##vector-length - _g137797_) + _g139084_) + (##values-length + _g139084_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137798_ + (##fx= _g139085_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g137798_))) - (let ((_%target135936135954%_ + _g139085_))) + (let ((_%target137223137241%_ (let () (declare (not safe)) - (##vector-ref - _g137797_ + (##values-ref + _g139084_ 0))) - (_%tl135938135956%_ + (_%tl137225137243%_ (let () (declare (not safe)) - (##vector-ref - _g137797_ + (##values-ref + _g139084_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135938135956%_)) - (letrec ((_%loop135939135959%_ - (lambda (_%hd135937135962%_ + _%tl137225137243%_)) + (letrec ((_%loop137226137246%_ + (lambda (_%hd137224137249%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr135943135964%_) + _%expr137230137251%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135937135962%_)) - (let ((_%e135940135967%_ + (gx#stx-pair? _%hd137224137249%_)) + (let ((_%e137227137254%_ (let () (declare (not safe)) - (gx#syntax-e _%hd135937135962%_)))) - (let ((_%lp-hd135941135970%_ + (gx#syntax-e _%hd137224137249%_)))) + (let ((_%lp-hd137228137257%_ (let () (declare (not safe)) - (##car _%e135940135967%_))) - (_%lp-tl135942135972%_ + (##car _%e137227137254%_))) + (_%lp-tl137229137259%_ (let () (declare (not safe)) - (##cdr _%e135940135967%_)))) - (_%loop135939135959%_ - _%lp-tl135942135972%_ - (cons _%lp-hd135941135970%_ - _%expr135943135964%_)))) - (let ((_%expr135944135975%_ - (reverse _%expr135943135964%_))) - ((lambda (_%L135978%_) - (let ((__tmp137801 + (##cdr _%e137227137254%_)))) + (_%loop137226137246%_ + _%lp-tl137229137259%_ + (cons _%lp-hd137228137257%_ + _%expr137230137251%_)))) + (let ((_%expr137231137262%_ + (reverse _%expr137230137251%_))) + ((lambda (_%L137265%_) + (let ((__tmp139088 (lambda () - (let* ((_%g135992135999%_ - (lambda (_%g135993135996%_) + (let* ((_%g137279137286%_ + (lambda (_%g137280137283%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135993135996%_)))) - (_%g135991136025%_ - (lambda (_%g135993136002%_) - ((lambda (_%L136004%_) + _%g137280137283%_)))) + (_%g137278137312%_ + (lambda (_%g137280137289%_) + ((lambda (_%L137291%_) (gxc#xform-wrap-source - (cons _%L135914%_ + (cons _%L137201%_ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L135978%_ - _%L135913%_)) - (let ((__tmp137802 - (lambda (_%g136014136018%_ - _%g136015136020%_ - _%g136016136022%_) - (cons (cons _%g136015136020%_ - (cons _%g136014136018%_ + _%L137265%_ + _%L137200%_)) + (let ((__tmp139089 + (lambda (_%g137301137305%_ + _%g137302137307%_ + _%g137303137309%_) + (cons (cons _%g137302137307%_ + (cons _%g137301137305%_ '())) - _%g136016136022%_)))) + _%g137303137309%_)))) (declare (not safe)) (__foldr2 - __tmp137802 + __tmp139089 '() - _%L135978%_ - _%L135913%_))) - _%L136004%_)) - _%stx135811%_)) - _%g135993136002%_)))) + _%L137265%_ + _%L137200%_))) + _%L137291%_)) + _%stx137098%_)) + _%g137280137289%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135991136025%_ - (map (lambda (_%g136027136029%_) + (_%g137278137312%_ + (map (lambda (_%g137314137316%_) (gxc#compile-e__1 - _%self135810%_ - _%g136027136029%_)) - _%L135911%_))))) - (__tmp137799 + _%self137097%_ + _%g137314137316%_)) + _%L137198%_))))) + (__tmp139086 (gxc#xform-let-locals - (let ((__tmp137800 - (lambda (_%g136031136034%_ - _%g136032136036%_) - (cons _%g136031136034%_ - _%g136032136036%_)))) + (let ((__tmp139087 + (lambda (_%g137318137321%_ + _%g137319137323%_) + (cons _%g137318137321%_ + _%g137319137323%_)))) (declare (not safe)) (__foldr1 - __tmp137800 + __tmp139087 '() - _%L135913%_))))) + _%L137200%_))))) (declare (not safe)) (__call-with-parameters - __tmp137801 + __tmp139088 gxc#current-compile-local-env - __tmp137799))) - _%expr135944135975%_)))))) - (_%loop135939135959%_ _%target135936135954%_ '())) + __tmp139086))) + _%expr137231137262%_)))))) + (_%loop137226137246%_ _%target137223137241%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135933135949%_ - _%g135934135952%_))))) - (_%g135933135949%_ - _%g135934135952%_))))) - (_%g135932136039%_ - (map (lambda (_%g136041136043%_) + (_%g137220137236%_ + _%g137221137239%_))))) + (_%g137220137236%_ + _%g137221137239%_))))) + (_%g137219137326%_ + (map (lambda (_%g137328137330%_) (gxc#compile-e__1 - _%self135810%_ - _%g136041136043%_)) - (let ((__tmp137803 - (lambda (_%g136045136048%_ - _%g136046136050%_) - (cons _%g136045136048%_ - _%g136046136050%_)))) + _%self137097%_ + _%g137328137330%_)) + (let ((__tmp139090 + (lambda (_%g137332137335%_ + _%g137333137337%_) + (cons _%g137332137335%_ + _%g137333137337%_)))) (declare (not safe)) (__foldr1 - __tmp137803 + __tmp139090 '() - _%L135912%_)))))) - _%tl135824135864%_ - _%expr135834135906%_ - _%hd135835135908%_ - _%hd135820135854%_)))))) + _%L137199%_)))))) + _%tl137111137151%_ + _%expr137121137193%_ + _%hd137122137195%_ + _%hd137107137141%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop135828135872%_ - _%target135825135867%_ + (_%loop137115137159%_ + _%target137112137154%_ '() '())) - (_%g135813135846%_ - _%g135814135849%_))))) - (_%g135813135846%_ _%g135814135849%_)))) - (_%g135813135846%_ _%g135814135849%_)))) - (_%g135813135846%_ _%g135814135849%_))))) - (_%g135812136053%_ _%stx135811%_)))) + (_%g137100137133%_ + _%g137101137136%_))))) + (_%g137100137133%_ _%g137101137136%_)))) + (_%g137100137133%_ _%g137101137136%_)))) + (_%g137100137133%_ _%g137101137136%_))))) + (_%g137099137340%_ _%stx137098%_)))) (define gxc#xform-letrec-values% - (lambda (_%self135564%_ _%stx135565%_) - (let* ((_%g135567135600%_ - (lambda (_%g135568135597%_) + (lambda (_%self136851%_ _%stx136852%_) + (let* ((_%g136854136887%_ + (lambda (_%g136855136884%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135568135597%_)))) - (_%g135566135807%_ - (lambda (_%g135568135603%_) + _%g136855136884%_)))) + (_%g136853137094%_ + (lambda (_%g136855136890%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135568135603%_)) - (let ((_%e135573135605%_ + (gx#stx-pair? _%g136855136890%_)) + (let ((_%e136860136892%_ (let () (declare (not safe)) - (gx#stx-e _%g135568135603%_)))) - (let ((_%hd135574135608%_ + (gx#stx-e _%g136855136890%_)))) + (let ((_%hd136861136895%_ (let () (declare (not safe)) - (##car _%e135573135605%_))) - (_%tl135575135610%_ + (##car _%e136860136892%_))) + (_%tl136862136897%_ (let () (declare (not safe)) - (##cdr _%e135573135605%_)))) + (##cdr _%e136860136892%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135575135610%_)) - (let ((_%e135576135613%_ + (gx#stx-pair? _%tl136862136897%_)) + (let ((_%e136863136900%_ (let () (declare (not safe)) - (gx#stx-e _%tl135575135610%_)))) - (let ((_%hd135577135616%_ + (gx#stx-e _%tl136862136897%_)))) + (let ((_%hd136864136903%_ (let () (declare (not safe)) - (##car _%e135576135613%_))) - (_%tl135578135618%_ + (##car _%e136863136900%_))) + (_%tl136865136905%_ (let () (declare (not safe)) - (##cdr _%e135576135613%_)))) + (##cdr _%e136863136900%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd135577135616%_)) - (let ((_g137804_ + (gx#stx-pair/null? _%hd136864136903%_)) + (let ((_g139091_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd135577135616%_ + _%hd136864136903%_ '0)))) (begin - (let ((_g137805_ + (let ((_g139092_ (let () (declare (not safe)) - (if (##values? _g137804_) - (##vector-length - _g137804_) + (if (##values? _g139091_) + (##values-length + _g139091_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137805_ 2))) + (##fx= _g139092_ 2))) (error "Context expects 2 values" - _g137805_))) - (let ((_%target135579135621%_ + _g139092_))) + (let ((_%target136866136908%_ (let () (declare (not safe)) - (##vector-ref _g137804_ 0))) - (_%tl135581135623%_ + (##values-ref _g139091_ 0))) + (_%tl136868136910%_ (let () (declare (not safe)) - (##vector-ref - _g137804_ + (##values-ref + _g139091_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135581135623%_)) - (letrec ((_%loop135582135626%_ - (lambda (_%hd135580135629%_ + _%tl136868136910%_)) + (letrec ((_%loop136869136913%_ + (lambda (_%hd136867136916%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr135586135631%_ - _%hd135587135633%_) + _%expr136873136918%_ + _%hd136874136920%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135580135629%_)) - (let ((_%e135583135636%_ + (gx#stx-pair? _%hd136867136916%_)) + (let ((_%e136870136923%_ (let () (declare (not safe)) - (gx#stx-e _%hd135580135629%_)))) - (let ((_%lp-hd135584135639%_ + (gx#stx-e _%hd136867136916%_)))) + (let ((_%lp-hd136871136926%_ (let () (declare (not safe)) - (##car _%e135583135636%_))) - (_%lp-tl135585135641%_ + (##car _%e136870136923%_))) + (_%lp-tl136872136928%_ (let () (declare (not safe)) - (##cdr _%e135583135636%_)))) + (##cdr _%e136870136923%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd135584135639%_)) - (let ((_%e135590135644%_ + (gx#stx-pair? _%lp-hd136871136926%_)) + (let ((_%e136877136931%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd135584135639%_)))) - (let ((_%hd135591135647%_ + (gx#stx-e _%lp-hd136871136926%_)))) + (let ((_%hd136878136934%_ (let () (declare (not safe)) - (##car _%e135590135644%_))) - (_%tl135592135649%_ + (##car _%e136877136931%_))) + (_%tl136879136936%_ (let () (declare (not safe)) - (##cdr _%e135590135644%_)))) + (##cdr _%e136877136931%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135592135649%_)) - (let ((_%e135593135652%_ + (gx#stx-pair? _%tl136879136936%_)) + (let ((_%e136880136939%_ (let () (declare (not safe)) (gx#stx-e - _%tl135592135649%_)))) - (let ((_%hd135594135655%_ + _%tl136879136936%_)))) + (let ((_%hd136881136942%_ (let () (declare (not safe)) - (##car _%e135593135652%_))) - (_%tl135595135657%_ + (##car _%e136880136939%_))) + (_%tl136882136944%_ (let () (declare (not safe)) - (##cdr _%e135593135652%_)))) + (##cdr _%e136880136939%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135595135657%_)) - (_%loop135582135626%_ - _%lp-tl135585135641%_ - (cons _%hd135594135655%_ - _%expr135586135631%_) - (cons _%hd135591135647%_ - _%hd135587135633%_)) - (_%g135567135600%_ - _%g135568135603%_)))) - (_%g135567135600%_ - _%g135568135603%_)))) - (_%g135567135600%_ _%g135568135603%_)))) - (let ((_%expr135588135660%_ - (reverse _%expr135586135631%_)) - (_%hd135589135662%_ - (reverse _%hd135587135633%_))) - ((lambda (_%L135665%_ - _%L135666%_ - _%L135667%_ - _%L135668%_) - (let ((__tmp137808 + _%tl136882136944%_)) + (_%loop136869136913%_ + _%lp-tl136872136928%_ + (cons _%hd136881136942%_ + _%expr136873136918%_) + (cons _%hd136878136934%_ + _%hd136874136920%_)) + (_%g136854136887%_ + _%g136855136890%_)))) + (_%g136854136887%_ + _%g136855136890%_)))) + (_%g136854136887%_ _%g136855136890%_)))) + (let ((_%expr136875136947%_ + (reverse _%expr136873136918%_)) + (_%hd136876136949%_ + (reverse _%hd136874136920%_))) + ((lambda (_%L136952%_ + _%L136953%_ + _%L136954%_ + _%L136955%_) + (let ((__tmp139095 (lambda () - (let* ((_%g135688135704%_ - (lambda (_%g135689135701%_) + (let* ((_%g136975136991%_ + (lambda (_%g136976136988%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135689135701%_)))) - (_%g135687135786%_ - (lambda (_%g135689135707%_) + _%g136976136988%_)))) + (_%g136974137073%_ + (lambda (_%g136976136994%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g135689135707%_)) - (let ((_g137809_ + _%g136976136994%_)) + (let ((_g139096_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g135689135707%_ + _%g136976136994%_ '0)))) (begin - (let ((_g137810_ + (let ((_g139097_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g137809_) - (##vector-length _g137809_) + (if (##values? _g139096_) + (##values-length _g139096_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g137810_ 2))) - (error "Context expects 2 values" _g137810_))) - (let ((_%target135691135709%_ + (if (not (let () (declare (not safe)) (##fx= _g139097_ 2))) + (error "Context expects 2 values" _g139097_))) + (let ((_%target136978136996%_ (let () (declare (not safe)) - (##vector-ref _g137809_ 0))) - (_%tl135693135711%_ + (##values-ref _g139096_ 0))) + (_%tl136980136998%_ (let () (declare (not safe)) - (##vector-ref _g137809_ 1)))) + (##values-ref _g139096_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl135693135711%_)) - (letrec ((_%loop135694135714%_ - (lambda (_%hd135692135717%_ - _%expr135698135719%_) + (gx#stx-null? _%tl136980136998%_)) + (letrec ((_%loop136981137001%_ + (lambda (_%hd136979137004%_ + _%expr136985137006%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135692135717%_)) - (let ((_%e135695135722%_ + (gx#stx-pair? _%hd136979137004%_)) + (let ((_%e136982137009%_ (let () (declare (not safe)) (gx#syntax-e - _%hd135692135717%_)))) - (let ((_%lp-hd135696135725%_ + _%hd136979137004%_)))) + (let ((_%lp-hd136983137012%_ (let () (declare (not safe)) - (##car _%e135695135722%_))) - (_%lp-tl135697135727%_ + (##car _%e136982137009%_))) + (_%lp-tl136984137014%_ (let () (declare (not safe)) - (##cdr _%e135695135722%_)))) - (_%loop135694135714%_ - _%lp-tl135697135727%_ - (cons _%lp-hd135696135725%_ - _%expr135698135719%_)))) - (let ((_%expr135699135730%_ - (reverse _%expr135698135719%_))) - ((lambda (_%L135733%_) - (let* ((_%g135747135754%_ - (lambda (_%g135748135751%_) + (##cdr _%e136982137009%_)))) + (_%loop136981137001%_ + _%lp-tl136984137014%_ + (cons _%lp-hd136983137012%_ + _%expr136985137006%_)))) + (let ((_%expr136986137017%_ + (reverse _%expr136985137006%_))) + ((lambda (_%L137020%_) + (let* ((_%g137034137041%_ + (lambda (_%g137035137038%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135748135751%_)))) - (_%g135746135779%_ - (lambda (_%g135748135757%_) - ((lambda (_%L135759%_) + _%g137035137038%_)))) + (_%g137033137066%_ + (lambda (_%g137035137044%_) + ((lambda (_%L137046%_) (gxc#xform-wrap-source - (cons _%L135668%_ + (cons _%L136955%_ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L135733%_ - _%L135667%_)) - (let ((__tmp137811 - (lambda (_%g135768135772%_ - _%g135769135774%_ - _%g135770135776%_) - (cons (cons _%g135769135774%_ - (cons _%g135768135772%_ + _%L137020%_ + _%L136954%_)) + (let ((__tmp139098 + (lambda (_%g137055137059%_ + _%g137056137061%_ + _%g137057137063%_) + (cons (cons _%g137056137061%_ + (cons _%g137055137059%_ '())) - _%g135770135776%_)))) + _%g137057137063%_)))) (declare (not safe)) (__foldr2 - __tmp137811 + __tmp139098 '() - _%L135733%_ - _%L135667%_))) - _%L135759%_)) - _%stx135565%_)) - _%g135748135757%_)))) + _%L137020%_ + _%L136954%_))) + _%L137046%_)) + _%stx136852%_)) + _%g137035137044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135746135779%_ - (map (lambda (_%g135781135783%_) + (_%g137033137066%_ + (map (lambda (_%g137068137070%_) (gxc#compile-e__1 - _%self135564%_ - _%g135781135783%_)) - _%L135665%_)))) - _%expr135699135730%_)))))) - (_%loop135694135714%_ _%target135691135709%_ '())) - (_%g135688135704%_ _%g135689135707%_))))) + _%self136851%_ + _%g137068137070%_)) + _%L136952%_)))) + _%expr136986137017%_)))))) + (_%loop136981137001%_ _%target136978136996%_ '())) + (_%g136975136991%_ _%g136976136994%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135688135704%_ - _%g135689135707%_))))) - (_%g135687135786%_ - (map (lambda (_%g135788135790%_) + (_%g136975136991%_ + _%g136976136994%_))))) + (_%g136974137073%_ + (map (lambda (_%g137075137077%_) (gxc#compile-e__1 - _%self135564%_ - _%g135788135790%_)) - (let ((__tmp137812 - (lambda (_%g135792135795%_ - _%g135793135797%_) - (cons _%g135792135795%_ - _%g135793135797%_)))) + _%self136851%_ + _%g137075137077%_)) + (let ((__tmp139099 + (lambda (_%g137079137082%_ + _%g137080137084%_) + (cons _%g137079137082%_ + _%g137080137084%_)))) (declare (not safe)) (__foldr1 - __tmp137812 + __tmp139099 '() - _%L135666%_))))))) - (__tmp137806 + _%L136953%_))))))) + (__tmp139093 (gxc#xform-let-locals - (let ((__tmp137807 - (lambda (_%g135799135802%_ - _%g135800135804%_) - (cons _%g135799135802%_ - _%g135800135804%_)))) + (let ((__tmp139094 + (lambda (_%g137086137089%_ + _%g137087137091%_) + (cons _%g137086137089%_ + _%g137087137091%_)))) (declare (not safe)) (__foldr1 - __tmp137807 + __tmp139094 '() - _%L135667%_))))) + _%L136954%_))))) (declare (not safe)) (__call-with-parameters - __tmp137808 + __tmp139095 gxc#current-compile-local-env - __tmp137806))) - _%tl135578135618%_ - _%expr135588135660%_ - _%hd135589135662%_ - _%hd135574135608%_)))))) + __tmp139093))) + _%tl136865136905%_ + _%expr136875136947%_ + _%hd136876136949%_ + _%hd136861136895%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop135582135626%_ - _%target135579135621%_ + (_%loop136869136913%_ + _%target136866136908%_ '() '())) - (_%g135567135600%_ - _%g135568135603%_))))) - (_%g135567135600%_ _%g135568135603%_)))) - (_%g135567135600%_ _%g135568135603%_)))) - (_%g135567135600%_ _%g135568135603%_))))) - (_%g135566135807%_ _%stx135565%_)))) + (_%g136854136887%_ + _%g136855136890%_))))) + (_%g136854136887%_ _%g136855136890%_)))) + (_%g136854136887%_ _%g136855136890%_)))) + (_%g136854136887%_ _%g136855136890%_))))) + (_%g136853137094%_ _%stx136852%_)))) (define gxc#xform-let-locals - (lambda (_%bindings135431%_) - (letrec ((_%flatten135433%_ - (lambda (_%maybe-lst135491%_) + (lambda (_%bindings136718%_) + (letrec ((_%flatten136720%_ + (lambda (_%maybe-lst136778%_) (if (let () (declare (not safe)) - (gx#identifier? _%maybe-lst135491%_)) - (cons _%maybe-lst135491%_ '()) - (let _%loop135493%_ ((_%rest135495%_ - _%maybe-lst135491%_) - (_%result135496%_ '())) - (let* ((_%__stx137700137701%_ _%rest135495%_) - (_%g135500135512%_ + (gx#identifier? _%maybe-lst136778%_)) + (cons _%maybe-lst136778%_ '()) + (let _%loop136780%_ ((_%rest136782%_ + _%maybe-lst136778%_) + (_%result136783%_ '())) + (let* ((_%__stx138987138988%_ _%rest136782%_) + (_%g136787136799%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx137700137701%_))))) - (let ((_%__kont137702137703%_ - (lambda (_%L135550%_ _%L135551%_) - (_%loop135493%_ - _%L135550%_ - (let ((__tmp137813 - (_%flatten135433%_ _%L135551%_))) + _%__stx138987138988%_))))) + (let ((_%__kont138989138990%_ + (lambda (_%L136837%_ _%L136838%_) + (_%loop136780%_ + _%L136837%_ + (let ((__tmp139100 + (_%flatten136720%_ _%L136838%_))) (declare (not safe)) (__foldl1 cons - _%result135496%_ - __tmp137813))))) - (_%__kont137704137705%_ - (lambda (_%L135524%_) - (cons _%L135524%_ _%result135496%_))) - (_%__kont137706137707%_ - (lambda () _%result135496%_))) - (let ((_%g135498135537%_ + _%result136783%_ + __tmp139100))))) + (_%__kont138991138992%_ + (lambda (_%L136811%_) + (cons _%L136811%_ _%result136783%_))) + (_%__kont138993138994%_ + (lambda () _%result136783%_))) + (let ((_%g136785136824%_ (lambda () - (let ((_%L135524%_ - _%__stx137700137701%_)) + (let ((_%L136811%_ + _%__stx138987138988%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L135524%_)) - (_%__kont137704137705%_ - _%L135524%_) - (_%__kont137706137707%_)))))) + (gx#identifier? _%L136811%_)) + (_%__kont138991138992%_ + _%L136811%_) + (_%__kont138993138994%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx137700137701%_)) - (let ((_%e135504135542%_ + (gx#stx-pair? _%__stx138987138988%_)) + (let ((_%e136791136829%_ (let () (declare (not safe)) (gx#stx-e - _%__stx137700137701%_)))) - (let ((_%tl135506135547%_ + _%__stx138987138988%_)))) + (let ((_%tl136793136834%_ (let () (declare (not safe)) - (##cdr _%e135504135542%_))) - (_%hd135505135545%_ + (##cdr _%e136791136829%_))) + (_%hd136792136832%_ (let () (declare (not safe)) - (##car _%e135504135542%_)))) - (_%__kont137702137703%_ - _%tl135506135547%_ - _%hd135505135545%_))) + (##car _%e136791136829%_)))) + (_%__kont138989138990%_ + _%tl136793136834%_ + _%hd136792136832%_))) (let () (declare (not safe)) - (_%g135498135537%_))))))))))) - (let _%loop135435%_ ((_%rest135437%_ - (_%flatten135433%_ _%bindings135431%_)) - (_%locals135438%_ + (_%g136785136824%_))))))))))) + (let _%loop136722%_ ((_%rest136724%_ + (_%flatten136720%_ _%bindings136718%_)) + (_%locals136725%_ (let () (declare (not safe)) (gxc#current-compile-local-env)))) - (let* ((_%rest135439135450%_ _%rest135437%_) - (_%E135443135454%_ + (let* ((_%rest136726136737%_ _%rest136724%_) + (_%E136730136741%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest135439135450%_ + _%rest136726136737%_ '([(? identifier? id) . rest]) '((? identifier? id)) '(_))) '#!void))) - (let ((_%K135446135479%_ - (lambda (_%rest135476%_ _%id135477%_) - (_%loop135435%_ - _%rest135476%_ + (let ((_%K136733136766%_ + (lambda (_%rest136763%_ _%id136764%_) + (_%loop136722%_ + _%rest136763%_ (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%id135477%_)) - _%locals135438%_)))) - (_%K135445135468%_ - (lambda (_%id135466%_) + (gxc#identifier-symbol _%id136764%_)) + _%locals136725%_)))) + (_%K136732136755%_ + (lambda (_%id136753%_) (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%id135466%_)) - _%locals135438%_))) - (_%K135444135459%_ (lambda () _%locals135438%_))) - (let ((_%try-match135441135473%_ + (gxc#identifier-symbol _%id136753%_)) + _%locals136725%_))) + (_%K136731136746%_ (lambda () _%locals136725%_))) + (let ((_%try-match136728136760%_ (lambda () (if (let () (declare (not safe)) - (gx#identifier? _%rest135439135450%_)) - (let ((_%id135471%_ _%rest135439135450%_)) - (_%K135445135468%_ _%id135471%_)) - (_%K135444135459%_))))) - (if (pair? _%rest135439135450%_) - (let ((_%tl135448135484%_ + (gx#identifier? _%rest136726136737%_)) + (let ((_%id136758%_ _%rest136726136737%_)) + (_%K136732136755%_ _%id136758%_)) + (_%K136731136746%_))))) + (if (pair? _%rest136726136737%_) + (let ((_%tl136735136771%_ (let () (declare (not safe)) - (##cdr _%rest135439135450%_))) - (_%hd135447135482%_ + (##cdr _%rest136726136737%_))) + (_%hd136734136769%_ (let () (declare (not safe)) - (##car _%rest135439135450%_)))) + (##car _%rest136726136737%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd135447135482%_)) - (let ((_%id135487%_ _%hd135447135482%_) - (_%rest135489%_ _%tl135448135484%_)) - (_%K135446135479%_ _%rest135489%_ _%id135487%_)) - (_%K135444135459%_))) - (_%try-match135441135473%_))))))))) + (gx#identifier? _%hd136734136769%_)) + (let ((_%id136774%_ _%hd136734136769%_) + (_%rest136776%_ _%tl136735136771%_)) + (_%K136733136766%_ _%rest136776%_ _%id136774%_)) + (_%K136731136746%_))) + (_%try-match136728136760%_))))))))) (define gxc#xform-operands - (lambda (_%self135383%_ _%stx135384%_) - (let* ((_%g135386135397%_ - (lambda (_%g135387135394%_) + (lambda (_%self136670%_ _%stx136671%_) + (let* ((_%g136673136684%_ + (lambda (_%g136674136681%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135387135394%_)))) - (_%g135385135428%_ - (lambda (_%g135387135400%_) + _%g136674136681%_)))) + (_%g136672136715%_ + (lambda (_%g136674136687%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135387135400%_)) - (let ((_%e135390135402%_ + (gx#stx-pair? _%g136674136687%_)) + (let ((_%e136677136689%_ (let () (declare (not safe)) - (gx#stx-e _%g135387135400%_)))) - (let ((_%hd135391135405%_ + (gx#stx-e _%g136674136687%_)))) + (let ((_%hd136678136692%_ (let () (declare (not safe)) - (##car _%e135390135402%_))) - (_%tl135392135407%_ + (##car _%e136677136689%_))) + (_%tl136679136694%_ (let () (declare (not safe)) - (##cdr _%e135390135402%_)))) - ((lambda (_%L135410%_ _%L135411%_) - (let ((_%rands135426%_ - (map (lambda (_%g135421135423%_) + (##cdr _%e136677136689%_)))) + ((lambda (_%L136697%_ _%L136698%_) + (let ((_%rands136713%_ + (map (lambda (_%g136708136710%_) (gxc#compile-e__1 - _%self135383%_ - _%g135421135423%_)) - _%L135410%_))) + _%self136670%_ + _%g136708136710%_)) + _%L136697%_))) (gxc#xform-wrap-source - (cons _%L135411%_ _%rands135426%_) - _%stx135384%_))) - _%tl135392135407%_ - _%hd135391135405%_))) - (_%g135386135397%_ _%g135387135400%_))))) - (_%g135385135428%_ _%stx135384%_)))) + (cons _%L136698%_ _%rands136713%_) + _%stx136671%_))) + _%tl136679136694%_ + _%hd136678136692%_))) + (_%g136673136684%_ _%g136674136687%_))))) + (_%g136672136715%_ _%stx136671%_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_%self135313%_ _%stx135314%_) - (let* ((_%g135316135333%_ - (lambda (_%g135317135330%_) + (lambda (_%self136600%_ _%stx136601%_) + (let* ((_%g136603136620%_ + (lambda (_%g136604136617%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135317135330%_)))) - (_%g135315135380%_ - (lambda (_%g135317135336%_) + _%g136604136617%_)))) + (_%g136602136667%_ + (lambda (_%g136604136623%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135317135336%_)) - (let ((_%e135320135338%_ + (gx#stx-pair? _%g136604136623%_)) + (let ((_%e136607136625%_ (let () (declare (not safe)) - (gx#stx-e _%g135317135336%_)))) - (let ((_%hd135321135341%_ + (gx#stx-e _%g136604136623%_)))) + (let ((_%hd136608136628%_ (let () (declare (not safe)) - (##car _%e135320135338%_))) - (_%tl135322135343%_ + (##car _%e136607136625%_))) + (_%tl136609136630%_ (let () (declare (not safe)) - (##cdr _%e135320135338%_)))) + (##cdr _%e136607136625%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135322135343%_)) - (let ((_%e135323135346%_ + (gx#stx-pair? _%tl136609136630%_)) + (let ((_%e136610136633%_ (let () (declare (not safe)) - (gx#stx-e _%tl135322135343%_)))) - (let ((_%hd135324135349%_ + (gx#stx-e _%tl136609136630%_)))) + (let ((_%hd136611136636%_ (let () (declare (not safe)) - (##car _%e135323135346%_))) - (_%tl135325135351%_ + (##car _%e136610136633%_))) + (_%tl136612136638%_ (let () (declare (not safe)) - (##cdr _%e135323135346%_)))) + (##cdr _%e136610136633%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135325135351%_)) - (let ((_%e135326135354%_ + (gx#stx-pair? _%tl136612136638%_)) + (let ((_%e136613136641%_ (let () (declare (not safe)) - (gx#stx-e _%tl135325135351%_)))) - (let ((_%hd135327135357%_ + (gx#stx-e _%tl136612136638%_)))) + (let ((_%hd136614136644%_ (let () (declare (not safe)) - (##car _%e135326135354%_))) - (_%tl135328135359%_ + (##car _%e136613136641%_))) + (_%tl136615136646%_ (let () (declare (not safe)) - (##cdr _%e135326135354%_)))) + (##cdr _%e136613136641%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135328135359%_)) - ((lambda (_%L135362%_ - _%L135363%_) - (let ((_%expr135378%_ + _%tl136615136646%_)) + ((lambda (_%L136649%_ + _%L136650%_) + (let ((_%expr136665%_ (gxc#compile-e__1 - _%self135313%_ - _%L135362%_))) + _%self136600%_ + _%L136649%_))) (gxc#xform-wrap-source (cons '%#set! - (cons _%L135363%_ - (cons _%expr135378%_ + (cons _%L136650%_ + (cons _%expr136665%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx135314%_))) - _%hd135327135357%_ - _%hd135324135349%_) - (_%g135316135333%_ - _%g135317135336%_)))) - (_%g135316135333%_ _%g135317135336%_)))) - (_%g135316135333%_ _%g135317135336%_)))) - (_%g135316135333%_ _%g135317135336%_))))) - (_%g135315135380%_ _%stx135314%_)))))) + _%stx136601%_))) + _%hd136614136644%_ + _%hd136611136636%_) + (_%g136603136620%_ + _%g136604136623%_)))) + (_%g136603136620%_ _%g136604136623%_)))) + (_%g136603136620%_ _%g136604136623%_)))) + (_%g136603136620%_ _%g136604136623%_))))) + (_%g136602136667%_ _%stx136601%_)))))) diff --git a/src/bootstrap/gerbil/compiler/method~1.scm b/src/bootstrap/gerbil/compiler/method~1.scm index d24f873d8..3336254e6 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]#_g137841_| + (define |gxc[1]#_g139128_| (##structure gx#syntax-quote::t '::void-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137843_| + (define |gxc[1]#_g139130_| (##structure gx#syntax-quote::t 'make-::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137845_| + (define |gxc[1]#_g139132_| (##structure gx#syntax-quote::t '::void-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137847_| + (define |gxc[1]#_g139134_| (##structure gx#syntax-quote::t '::void-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137849_| + (define |gxc[1]#_g139136_| (##structure gx#syntax-quote::t 'make-::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137851_| + (define |gxc[1]#_g139138_| (##structure gx#syntax-quote::t '::void-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137853_| + (define |gxc[1]#_g139140_| (##structure gx#syntax-quote::t '::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137854_| + (define |gxc[1]#_g139141_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137856_| + (define |gxc[1]#_g139143_| (##structure gx#syntax-quote::t '::void::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137858_| + (define |gxc[1]#_g139145_| (##structure gx#syntax-quote::t 'make-::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137860_| + (define |gxc[1]#_g139147_| (##structure gx#syntax-quote::t '::void? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137862_| + (define |gxc[1]#_g139149_| (##structure gx#syntax-quote::t '::false-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137864_| + (define |gxc[1]#_g139151_| (##structure gx#syntax-quote::t 'make-::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137866_| + (define |gxc[1]#_g139153_| (##structure gx#syntax-quote::t '::false-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137868_| + (define |gxc[1]#_g139155_| (##structure gx#syntax-quote::t '::false-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137870_| + (define |gxc[1]#_g139157_| (##structure gx#syntax-quote::t 'make-::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137872_| + (define |gxc[1]#_g139159_| (##structure gx#syntax-quote::t '::false-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137874_| + (define |gxc[1]#_g139161_| (##structure gx#syntax-quote::t '::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137875_| + (define |gxc[1]#_g139162_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137877_| + (define |gxc[1]#_g139164_| (##structure gx#syntax-quote::t '::false::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137879_| + (define |gxc[1]#_g139166_| (##structure gx#syntax-quote::t 'make-::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137881_| + (define |gxc[1]#_g139168_| (##structure gx#syntax-quote::t '::false? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137883_| + (define |gxc[1]#_g139170_| (##structure gx#syntax-quote::t '::identity-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137885_| + (define |gxc[1]#_g139172_| (##structure gx#syntax-quote::t 'make-::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137887_| + (define |gxc[1]#_g139174_| (##structure gx#syntax-quote::t '::identity-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137889_| + (define |gxc[1]#_g139176_| (##structure gx#syntax-quote::t '::identity-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137891_| + (define |gxc[1]#_g139178_| (##structure gx#syntax-quote::t 'make-::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137893_| + (define |gxc[1]#_g139180_| (##structure gx#syntax-quote::t '::identity-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137895_| + (define |gxc[1]#_g139182_| (##structure gx#syntax-quote::t '::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137896_| + (define |gxc[1]#_g139183_| (##structure gx#syntax-quote::t '::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137898_| + (define |gxc[1]#_g139185_| (##structure gx#syntax-quote::t '::identity::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137900_| + (define |gxc[1]#_g139187_| (##structure gx#syntax-quote::t 'make-::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137902_| + (define |gxc[1]#_g139189_| (##structure gx#syntax-quote::t '::identity? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137904_| + (define |gxc[1]#_g139191_| (##structure gx#syntax-quote::t '::basic-xform-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137906_| + (define |gxc[1]#_g139193_| (##structure gx#syntax-quote::t 'make-::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137908_| + (define |gxc[1]#_g139195_| (##structure gx#syntax-quote::t '::basic-xform-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137910_| + (define |gxc[1]#_g139197_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137911_| + (define |gxc[1]#_g139198_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137913_| + (define |gxc[1]#_g139200_| (##structure gx#syntax-quote::t '::basic-xform::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137915_| + (define |gxc[1]#_g139202_| (##structure gx#syntax-quote::t 'make-::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137917_| + (define |gxc[1]#_g139204_| (##structure gx#syntax-quote::t '::basic-xform? @@ -289,161 +289,161 @@ '())) (begin (define |gxc[:0:]#defcompile-method| - (lambda (_%stx133855%_) - (let* ((_%__stx137556137557%_ _%stx133855%_) - (_%g133861134055%_ + (lambda (_%stx135142%_) + (let* ((_%__stx138843138844%_ _%stx135142%_) + (_%g135148135342%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx137556137557%_))))) - (let ((_%__kont137559137560%_ - (lambda (_%L135275%_ _%L135277%_ _%L135278%_ _%L135279%_) + _%__stx138843138844%_))))) + (let ((_%__kont138846138847%_ + (lambda (_%L136562%_ _%L136564%_ _%L136565%_ _%L136566%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'defcompile-method)) - (cons _%L135279%_ - (cons (cons _%L135278%_ '()) - (cons _%L135277%_ _%L135275%_)))))) - (_%__kont137561137562%_ - (lambda (_%L135029%_ - _%L135031%_ - _%L135032%_ - _%L135033%_ - _%L135034%_) - (let* ((_%g135065135093%_ - (lambda (_%g135066135089%_) + (cons _%L136566%_ + (cons (cons _%L136565%_ '()) + (cons _%L136564%_ _%L136562%_)))))) + (_%__kont138848138849%_ + (lambda (_%L136316%_ + _%L136318%_ + _%L136319%_ + _%L136320%_ + _%L136321%_) + (let* ((_%g136352136380%_ + (lambda (_%g136353136376%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135066135089%_)))) - (_%g135064135213%_ - (lambda (_%g135066135097%_) + _%g136353136376%_)))) + (_%g136351136500%_ + (lambda (_%g136353136384%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135066135097%_)) - (let ((_%e135070135100%_ + (gx#stx-pair? _%g136353136384%_)) + (let ((_%e136357136387%_ (let () (declare (not safe)) - (gx#syntax-e _%g135066135097%_)))) - (let ((_%hd135071135104%_ + (gx#syntax-e _%g136353136384%_)))) + (let ((_%hd136358136391%_ (let () (declare (not safe)) - (##car _%e135070135100%_))) - (_%tl135072135107%_ + (##car _%e136357136387%_))) + (_%tl136359136394%_ (let () (declare (not safe)) - (##cdr _%e135070135100%_)))) + (##cdr _%e136357136387%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135072135107%_)) - (let ((_%e135073135110%_ + (gx#stx-pair? _%tl136359136394%_)) + (let ((_%e136360136397%_ (let () (declare (not safe)) (gx#syntax-e - _%tl135072135107%_)))) - (let ((_%hd135074135114%_ + _%tl136359136394%_)))) + (let ((_%hd136361136401%_ (let () (declare (not safe)) - (##car _%e135073135110%_))) - (_%tl135075135117%_ + (##car _%e136360136397%_))) + (_%tl136362136404%_ (let () (declare (not safe)) - (##cdr _%e135073135110%_)))) + (##cdr _%e136360136397%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd135074135114%_)) - (let ((_g137814_ + _%hd136361136401%_)) + (let ((_g139101_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd135074135114%_ + _%hd136361136401%_ '0)))) (begin - (let ((_g137815_ + (let ((_g139102_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g137814_) - (##vector-length _g137814_) + _g139101_) + (##values-length _g139101_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g137815_ 2))) - (error "Context expects 2 values" _g137815_))) + (if (not (let () (declare (not safe)) (##fx= _g139102_ 2))) + (error "Context expects 2 values" _g139102_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target135076135120%_ + (let ((_%target136363136407%_ (let () (declare (not safe)) - (##vector-ref - _g137814_ + (##values-ref + _g139101_ 0))) - (_%tl135078135123%_ + (_%tl136365136410%_ (let () (declare (not safe)) - (##vector-ref - _g137814_ + (##values-ref + _g139101_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135078135123%_)) - (letrec ((_%loop135079135126%_ + _%tl136365136410%_)) + (letrec ((_%loop136366136413%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd135077135130%_ - _%super-bind-methods!135083135133%_) + (lambda (_%hd136364136417%_ + _%super-bind-methods!136370136420%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135077135130%_)) - (let ((_%e135080135136%_ + (gx#stx-pair? _%hd136364136417%_)) + (let ((_%e136367136423%_ (let () (declare (not safe)) - (gx#syntax-e _%hd135077135130%_)))) - (let ((_%lp-hd135081135140%_ + (gx#syntax-e _%hd136364136417%_)))) + (let ((_%lp-hd136368136427%_ (let () (declare (not safe)) - (##car _%e135080135136%_))) - (_%lp-tl135082135143%_ + (##car _%e136367136423%_))) + (_%lp-tl136369136430%_ (let () (declare (not safe)) - (##cdr _%e135080135136%_)))) - (_%loop135079135126%_ - _%lp-tl135082135143%_ - (cons _%lp-hd135081135140%_ - _%super-bind-methods!135083135133%_)))) - (let ((_%super-bind-methods!135084135146%_ - (reverse _%super-bind-methods!135083135133%_))) + (##cdr _%e136367136423%_)))) + (_%loop136366136413%_ + _%lp-tl136369136430%_ + (cons _%lp-hd136368136427%_ + _%super-bind-methods!136370136420%_)))) + (let ((_%super-bind-methods!136371136433%_ + (reverse _%super-bind-methods!136370136420%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135075135117%_)) - (let ((_%e135085135150%_ + (gx#stx-pair? _%tl136362136404%_)) + (let ((_%e136372136437%_ (let () (declare (not safe)) (gx#syntax-e - _%tl135075135117%_)))) - (let ((_%hd135086135154%_ + _%tl136362136404%_)))) + (let ((_%hd136373136441%_ (let () (declare (not safe)) - (##car _%e135085135150%_))) - (_%tl135087135157%_ + (##car _%e136372136437%_))) + (_%tl136374136444%_ (let () (declare (not safe)) - (##cdr _%e135085135150%_)))) + (##cdr _%e136372136437%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135087135157%_)) - ((lambda (_%L135160%_ - _%L135162%_ - _%L135163%_) + _%tl136374136444%_)) + ((lambda (_%L136447%_ + _%L136449%_ + _%L136450%_) (cons (let () (declare (not safe)) @@ -454,22 +454,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L135034%_ - (let ((__tmp137816 - (lambda (_%g135190135193%_ - _%g135191135196%_) - (cons _%g135190135193%_ - _%g135191135196%_)))) + (cons (cons _%L136321%_ + (let ((__tmp139103 + (lambda (_%g136477136480%_ + _%g136478136483%_) + (cons _%g136477136480%_ + _%g136478136483%_)))) (declare (not safe)) (__foldr1 - __tmp137816 + __tmp139103 '() - _%L135033%_))) - (cons _%L135032%_ '()))) + _%L136320%_))) + (cons _%L136319%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L135163%_ + (cons _%L136450%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -479,234 +479,234 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp137819 - (lambda (_%g135185135199%_ _%g135186135202%_) + (let ((__tmp139106 + (lambda (_%g136472136486%_ _%g136473136489%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g135185135199%_ '())) - _%g135186135202%_))) - (__tmp137817 + (cons _%g136472136486%_ '())) + _%g136473136489%_))) + (__tmp139104 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L135029%_ - _%L135031%_)) - (let ((__tmp137818 - (lambda (_%g135187135205%_ - _%g135188135208%_ - _%g135189135210%_) + _%L136316%_ + _%L136318%_)) + (let ((__tmp139105 + (lambda (_%g136474136492%_ + _%g136475136495%_ + _%g136476136497%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L135160%_ + (cons _%L136447%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g135188135208%_ '())) - (cons _%g135187135205%_ '())))) + (cons _%g136475136495%_ '())) + (cons _%g136474136492%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g135189135210%_)))) + _%g136476136497%_)))) (declare (not safe)) (__foldr2 - __tmp137818 + __tmp139105 '() - _%L135029%_ - _%L135031%_))))) + _%L136316%_ + _%L136318%_))))) (declare (not safe)) - (__foldr1 __tmp137819 __tmp137817 _%L135162%_))) + (__foldr1 __tmp139106 __tmp139104 _%L136449%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd135086135154%_ - _%super-bind-methods!135084135146%_ - _%hd135071135104%_) - (_%g135065135093%_ - _%g135066135097%_)))) - (_%g135065135093%_ - _%g135066135097%_))))))) - (_%loop135079135126%_ _%target135076135120%_ '())) - (_%g135065135093%_ _%g135066135097%_))))) + _%hd136373136441%_ + _%super-bind-methods!136371136433%_ + _%hd136358136391%_) + (_%g136352136380%_ + _%g136353136384%_)))) + (_%g136352136380%_ + _%g136353136384%_))))))) + (_%loop136366136413%_ _%target136363136407%_ '())) + (_%g136352136380%_ _%g136353136384%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135065135093%_ - _%g135066135097%_)))) - (_%g135065135093%_ - _%g135066135097%_)))) - (_%g135065135093%_ _%g135066135097%_))))) - (_%g135064135213%_ + (_%g136352136380%_ + _%g136353136384%_)))) + (_%g136352136380%_ + _%g136353136384%_)))) + (_%g136352136380%_ _%g136353136384%_))))) + (_%g136351136500%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L135034%_ - _%L135034%_ + _%L136321%_ + _%L136321%_ '"-bind-methods!")) - (map (lambda (_%super135217%_) + (map (lambda (_%super136504%_) (let () (declare (not safe)) (gx#stx-identifier - _%super135217%_ - _%super135217%_ + _%super136504%_ + _%super136504%_ '"-bind-methods!"))) - (let ((__tmp137820 - (lambda (_%g135219135222%_ - _%g135220135225%_) - (cons _%g135219135222%_ - _%g135220135225%_)))) + (let ((__tmp139107 + (lambda (_%g136506136509%_ + _%g136507136512%_) + (cons _%g136506136509%_ + _%g136507136512%_)))) (declare (not safe)) - (__foldr1 __tmp137820 '() _%L135033%_))) + (__foldr1 __tmp139107 '() _%L136320%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L135034%_ - _%L135034%_ + _%L136321%_ + _%L136321%_ '"::t"))))))) - (_%__kont137567137568%_ - (lambda (_%L134660%_ - _%L134662%_ - _%L134663%_ - _%L134664%_ - _%L134665%_ - _%L134666%_ - _%L134667%_) - (let* ((_%g134705134733%_ - (lambda (_%g134706134729%_) + (_%__kont138854138855%_ + (lambda (_%L135947%_ + _%L135949%_ + _%L135950%_ + _%L135951%_ + _%L135952%_ + _%L135953%_ + _%L135954%_) + (let* ((_%g135992136020%_ + (lambda (_%g135993136016%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134706134729%_)))) - (_%g134704134869%_ - (lambda (_%g134706134737%_) + _%g135993136016%_)))) + (_%g135991136156%_ + (lambda (_%g135993136024%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134706134737%_)) - (let ((_%e134710134740%_ + (gx#stx-pair? _%g135993136024%_)) + (let ((_%e135997136027%_ (let () (declare (not safe)) - (gx#syntax-e _%g134706134737%_)))) - (let ((_%hd134711134744%_ + (gx#syntax-e _%g135993136024%_)))) + (let ((_%hd135998136031%_ (let () (declare (not safe)) - (##car _%e134710134740%_))) - (_%tl134712134747%_ + (##car _%e135997136027%_))) + (_%tl135999136034%_ (let () (declare (not safe)) - (##cdr _%e134710134740%_)))) + (##cdr _%e135997136027%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134712134747%_)) - (let ((_%e134713134750%_ + (gx#stx-pair? _%tl135999136034%_)) + (let ((_%e136000136037%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134712134747%_)))) - (let ((_%hd134714134754%_ + _%tl135999136034%_)))) + (let ((_%hd136001136041%_ (let () (declare (not safe)) - (##car _%e134713134750%_))) - (_%tl134715134757%_ + (##car _%e136000136037%_))) + (_%tl136002136044%_ (let () (declare (not safe)) - (##cdr _%e134713134750%_)))) + (##cdr _%e136000136037%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd134714134754%_)) - (let ((_g137821_ + _%hd136001136041%_)) + (let ((_g139108_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd134714134754%_ + _%hd136001136041%_ '0)))) (begin - (let ((_g137822_ + (let ((_g139109_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g137821_) - (##vector-length _g137821_) + _g139108_) + (##values-length _g139108_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g137822_ 2))) - (error "Context expects 2 values" _g137822_))) + (if (not (let () (declare (not safe)) (##fx= _g139109_ 2))) + (error "Context expects 2 values" _g139109_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target134716134760%_ + (let ((_%target136003136047%_ (let () (declare (not safe)) - (##vector-ref - _g137821_ + (##values-ref + _g139108_ 0))) - (_%tl134718134763%_ + (_%tl136005136050%_ (let () (declare (not safe)) - (##vector-ref - _g137821_ + (##values-ref + _g139108_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134718134763%_)) - (letrec ((_%loop134719134766%_ + _%tl136005136050%_)) + (letrec ((_%loop136006136053%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd134717134770%_ - _%super-bind-methods!134723134773%_) + (lambda (_%hd136004136057%_ + _%super-bind-methods!136010136060%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134717134770%_)) - (let ((_%e134720134776%_ + (gx#stx-pair? _%hd136004136057%_)) + (let ((_%e136007136063%_ (let () (declare (not safe)) - (gx#syntax-e _%hd134717134770%_)))) - (let ((_%lp-hd134721134780%_ + (gx#syntax-e _%hd136004136057%_)))) + (let ((_%lp-hd136008136067%_ (let () (declare (not safe)) - (##car _%e134720134776%_))) - (_%lp-tl134722134783%_ + (##car _%e136007136063%_))) + (_%lp-tl136009136070%_ (let () (declare (not safe)) - (##cdr _%e134720134776%_)))) - (_%loop134719134766%_ - _%lp-tl134722134783%_ - (cons _%lp-hd134721134780%_ - _%super-bind-methods!134723134773%_)))) - (let ((_%super-bind-methods!134724134786%_ - (reverse _%super-bind-methods!134723134773%_))) + (##cdr _%e136007136063%_)))) + (_%loop136006136053%_ + _%lp-tl136009136070%_ + (cons _%lp-hd136008136067%_ + _%super-bind-methods!136010136060%_)))) + (let ((_%super-bind-methods!136011136073%_ + (reverse _%super-bind-methods!136010136060%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134715134757%_)) - (let ((_%e134725134790%_ + (gx#stx-pair? _%tl136002136044%_)) + (let ((_%e136012136077%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134715134757%_)))) - (let ((_%hd134726134794%_ + _%tl136002136044%_)))) + (let ((_%hd136013136081%_ (let () (declare (not safe)) - (##car _%e134725134790%_))) - (_%tl134727134797%_ + (##car _%e136012136077%_))) + (_%tl136014136084%_ (let () (declare (not safe)) - (##cdr _%e134725134790%_)))) + (##cdr _%e136012136077%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134727134797%_)) - ((lambda (_%L134800%_ - _%L134802%_ - _%L134803%_) + _%tl136014136084%_)) + ((lambda (_%L136087%_ + _%L136089%_ + _%L136090%_) (cons (let () (declare (not safe)) @@ -717,22 +717,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L134665%_ - (let ((__tmp137823 - (lambda (_%g134834134837%_ - _%g134835134840%_) - (cons _%g134834134837%_ - _%g134835134840%_)))) + (cons (cons _%L135952%_ + (let ((__tmp139110 + (lambda (_%g136121136124%_ + _%g136122136127%_) + (cons _%g136121136124%_ + _%g136122136127%_)))) (declare (not safe)) (__foldr1 - __tmp137823 + __tmp139110 '() - _%L134664%_))) - (cons _%L134663%_ '()))) + _%L135951%_))) + (cons _%L135950%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L134803%_ + (cons _%L136090%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -742,67 +742,67 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp137826 - (lambda (_%g134829134843%_ _%g134830134846%_) + (let ((__tmp139113 + (lambda (_%g136116136130%_ _%g136117136133%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g134829134843%_ '())) - _%g134830134846%_))) - (__tmp137824 + (cons _%g136116136130%_ '())) + _%g136117136133%_))) + (__tmp139111 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L134660%_ - _%L134662%_)) - (let ((__tmp137825 - (lambda (_%g134831134849%_ - _%g134832134852%_ - _%g134833134854%_) + _%L135947%_ + _%L135949%_)) + (let ((__tmp139112 + (lambda (_%g136118136136%_ + _%g136119136139%_ + _%g136120136141%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L134800%_ + (cons _%L136087%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g134832134852%_ '())) - (cons _%g134831134849%_ '())))) + (cons _%g136119136139%_ '())) + (cons _%g136118136136%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g134833134854%_)))) + _%g136120136141%_)))) (declare (not safe)) (__foldr2 - __tmp137825 + __tmp139112 '() - _%L134660%_ - _%L134662%_))))) + _%L135947%_ + _%L135949%_))))) (declare (not safe)) - (__foldr1 __tmp137826 __tmp137824 _%L134802%_))) + (__foldr1 __tmp139113 __tmp139111 _%L136089%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L134667%_ + (cons (cons _%L135954%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp137827 + (let ((__tmp139114 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g134827134857%_ _%g134828134860%_) - (cons _%g134827134857%_ _%g134828134860%_)))) + (lambda (_%g136114136144%_ _%g136115136147%_) + (cons _%g136114136144%_ _%g136115136147%_)))) (declare (not safe)) - (__foldr1 __tmp137827 '() _%L134666%_)))) + (__foldr1 __tmp139114 '() _%L135953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare @@ -810,7 +810,7 @@ (gx#datum->syntax__0 '#f 'force)) - (cons _%L134803%_ + (cons _%L136090%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (let () @@ -819,18 +819,18 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L134665%_ - (let ((__tmp137828 - (lambda (_%g134825134863%_ + (cons (cons _%L135952%_ + (let ((__tmp139115 + (lambda (_%g136112136150%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g134826134866%_) - (cons _%g134825134863%_ _%g134826134866%_)))) + _%g136113136153%_) + (cons _%g136112136150%_ _%g136113136153%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp137828 + __tmp139115 '() - _%L134666%_))) + _%L135953%_))) '())) (cons (cons (let () (declare (not safe)) @@ -867,187 +867,187 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd134726134794%_ - _%super-bind-methods!134724134786%_ - _%hd134711134744%_) - (_%g134705134733%_ - _%g134706134737%_)))) - (_%g134705134733%_ - _%g134706134737%_))))))) - (_%loop134719134766%_ _%target134716134760%_ '())) - (_%g134705134733%_ _%g134706134737%_))))) + _%hd136013136081%_ + _%super-bind-methods!136011136073%_ + _%hd135998136031%_) + (_%g135992136020%_ + _%g135993136024%_)))) + (_%g135992136020%_ + _%g135993136024%_))))))) + (_%loop136006136053%_ _%target136003136047%_ '())) + (_%g135992136020%_ _%g135993136024%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134705134733%_ - _%g134706134737%_)))) - (_%g134705134733%_ - _%g134706134737%_)))) - (_%g134705134733%_ _%g134706134737%_))))) - (_%g134704134869%_ + (_%g135992136020%_ + _%g135993136024%_)))) + (_%g135992136020%_ + _%g135993136024%_)))) + (_%g135992136020%_ _%g135993136024%_))))) + (_%g135991136156%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L134665%_ - _%L134665%_ + _%L135952%_ + _%L135952%_ '"-bind-methods!")) - (map (lambda (_%super134873%_) + (map (lambda (_%super136160%_) (let () (declare (not safe)) (gx#stx-identifier - _%super134873%_ - _%super134873%_ + _%super136160%_ + _%super136160%_ '"-bind-methods!"))) - (let ((__tmp137829 - (lambda (_%g134875134878%_ - _%g134876134881%_) - (cons _%g134875134878%_ - _%g134876134881%_)))) + (let ((__tmp139116 + (lambda (_%g136162136165%_ + _%g136163136168%_) + (cons _%g136162136165%_ + _%g136163136168%_)))) (declare (not safe)) - (__foldr1 __tmp137829 '() _%L134664%_))) + (__foldr1 __tmp139116 '() _%L135951%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L134665%_ - _%L134665%_ + _%L135952%_ + _%L135952%_ '"::t"))))))) - (_%__kont137575137576%_ - (lambda (_%L134250%_ - _%L134252%_ - _%L134253%_ - _%L134254%_ - _%L134255%_ - _%L134256%_ - _%L134257%_) - (let* ((_%g134300134328%_ - (lambda (_%g134301134324%_) + (_%__kont138862138863%_ + (lambda (_%L135537%_ + _%L135539%_ + _%L135540%_ + _%L135541%_ + _%L135542%_ + _%L135543%_ + _%L135544%_) + (let* ((_%g135587135615%_ + (lambda (_%g135588135611%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134301134324%_)))) - (_%g134299134464%_ - (lambda (_%g134301134332%_) + _%g135588135611%_)))) + (_%g135586135751%_ + (lambda (_%g135588135619%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134301134332%_)) - (let ((_%e134305134335%_ + (gx#stx-pair? _%g135588135619%_)) + (let ((_%e135592135622%_ (let () (declare (not safe)) - (gx#syntax-e _%g134301134332%_)))) - (let ((_%hd134306134339%_ + (gx#syntax-e _%g135588135619%_)))) + (let ((_%hd135593135626%_ (let () (declare (not safe)) - (##car _%e134305134335%_))) - (_%tl134307134342%_ + (##car _%e135592135622%_))) + (_%tl135594135629%_ (let () (declare (not safe)) - (##cdr _%e134305134335%_)))) + (##cdr _%e135592135622%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134307134342%_)) - (let ((_%e134308134345%_ + (gx#stx-pair? _%tl135594135629%_)) + (let ((_%e135595135632%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134307134342%_)))) - (let ((_%hd134309134349%_ + _%tl135594135629%_)))) + (let ((_%hd135596135636%_ (let () (declare (not safe)) - (##car _%e134308134345%_))) - (_%tl134310134352%_ + (##car _%e135595135632%_))) + (_%tl135597135639%_ (let () (declare (not safe)) - (##cdr _%e134308134345%_)))) + (##cdr _%e135595135632%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd134309134349%_)) - (let ((_g137830_ + _%hd135596135636%_)) + (let ((_g139117_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd134309134349%_ + _%hd135596135636%_ '0)))) (begin - (let ((_g137831_ + (let ((_g139118_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g137830_) - (##vector-length _g137830_) + _g139117_) + (##values-length _g139117_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g137831_ 2))) - (error "Context expects 2 values" _g137831_))) + (if (not (let () (declare (not safe)) (##fx= _g139118_ 2))) + (error "Context expects 2 values" _g139118_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target134311134355%_ + (let ((_%target135598135642%_ (let () (declare (not safe)) - (##vector-ref - _g137830_ + (##values-ref + _g139117_ 0))) - (_%tl134313134358%_ + (_%tl135600135645%_ (let () (declare (not safe)) - (##vector-ref - _g137830_ + (##values-ref + _g139117_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134313134358%_)) - (letrec ((_%loop134314134361%_ + _%tl135600135645%_)) + (letrec ((_%loop135601135648%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd134312134365%_ - _%super-bind-methods!134318134368%_) + (lambda (_%hd135599135652%_ + _%super-bind-methods!135605135655%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134312134365%_)) - (let ((_%e134315134371%_ + (gx#stx-pair? _%hd135599135652%_)) + (let ((_%e135602135658%_ (let () (declare (not safe)) - (gx#syntax-e _%hd134312134365%_)))) - (let ((_%lp-hd134316134375%_ + (gx#syntax-e _%hd135599135652%_)))) + (let ((_%lp-hd135603135662%_ (let () (declare (not safe)) - (##car _%e134315134371%_))) - (_%lp-tl134317134378%_ + (##car _%e135602135658%_))) + (_%lp-tl135604135665%_ (let () (declare (not safe)) - (##cdr _%e134315134371%_)))) - (_%loop134314134361%_ - _%lp-tl134317134378%_ - (cons _%lp-hd134316134375%_ - _%super-bind-methods!134318134368%_)))) - (let ((_%super-bind-methods!134319134381%_ - (reverse _%super-bind-methods!134318134368%_))) + (##cdr _%e135602135658%_)))) + (_%loop135601135648%_ + _%lp-tl135604135665%_ + (cons _%lp-hd135603135662%_ + _%super-bind-methods!135605135655%_)))) + (let ((_%super-bind-methods!135606135668%_ + (reverse _%super-bind-methods!135605135655%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134310134352%_)) - (let ((_%e134320134385%_ + (gx#stx-pair? _%tl135597135639%_)) + (let ((_%e135607135672%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134310134352%_)))) - (let ((_%hd134321134389%_ + _%tl135597135639%_)))) + (let ((_%hd135608135676%_ (let () (declare (not safe)) - (##car _%e134320134385%_))) - (_%tl134322134392%_ + (##car _%e135607135672%_))) + (_%tl135609135679%_ (let () (declare (not safe)) - (##cdr _%e134320134385%_)))) + (##cdr _%e135607135672%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134322134392%_)) - ((lambda (_%L134395%_ - _%L134397%_ - _%L134398%_) + _%tl135609135679%_)) + ((lambda (_%L135682%_ + _%L135684%_ + _%L135685%_) (cons (let () (declare (not safe)) @@ -1058,23 +1058,23 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L134255%_ - (let ((__tmp137832 - (lambda (_%g134429134432%_ - _%g134430134435%_) - (cons _%g134429134432%_ - _%g134430134435%_)))) + (cons (cons _%L135542%_ + (let ((__tmp139119 + (lambda (_%g135716135719%_ + _%g135717135722%_) + (cons _%g135716135719%_ + _%g135717135722%_)))) (declare (not safe)) (__foldr1 - __tmp137832 + __tmp139119 '() - _%L134254%_))) - (cons _%L134253%_ + _%L135541%_))) + (cons _%L135540%_ (cons 'final: (cons '#t '()))))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L134398%_ + (cons _%L135685%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1084,75 +1084,75 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp137836 - (lambda (_%g134424134438%_ _%g134425134441%_) + (let ((__tmp139123 + (lambda (_%g135711135725%_ _%g135712135728%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g134424134438%_ '())) - _%g134425134441%_))) - (__tmp137833 + (cons _%g135711135725%_ '())) + _%g135712135728%_))) + (__tmp139120 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L134250%_ - _%L134252%_)) - (let ((__tmp137835 - (lambda (_%g134426134444%_ - _%g134427134447%_ - _%g134428134449%_) + _%L135537%_ + _%L135539%_)) + (let ((__tmp139122 + (lambda (_%g135713135731%_ + _%g135714135734%_ + _%g135715135736%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L134395%_ + (cons _%L135682%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g134427134447%_ '())) - (cons _%g134426134444%_ '())))) + (cons _%g135714135734%_ '())) + (cons _%g135713135731%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g134428134449%_))) - (__tmp137834 + _%g135715135736%_))) + (__tmp139121 (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'seal-class!)) - (cons _%L134395%_ '())) + (cons _%L135682%_ '())) '()))) (declare (not safe)) (__foldr2 - __tmp137835 - __tmp137834 - _%L134250%_ - _%L134252%_))))) + __tmp139122 + __tmp139121 + _%L135537%_ + _%L135539%_))))) (declare (not safe)) - (__foldr1 __tmp137836 __tmp137833 _%L134397%_))) + (__foldr1 __tmp139123 __tmp139120 _%L135684%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L134257%_ + (cons (cons _%L135544%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp137837 + (let ((__tmp139124 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g134422134452%_ _%g134423134455%_) - (cons _%g134422134452%_ _%g134423134455%_)))) + (lambda (_%g135709135739%_ _%g135710135742%_) + (cons _%g135709135739%_ _%g135710135742%_)))) (declare (not safe)) - (__foldr1 __tmp137837 '() _%L134256%_)))) + (__foldr1 __tmp139124 '() _%L135543%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare @@ -1160,7 +1160,7 @@ (gx#datum->syntax__0 '#f 'force)) - (cons _%L134398%_ + (cons _%L135685%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (let () @@ -1169,18 +1169,18 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L134255%_ - (let ((__tmp137838 - (lambda (_%g134420134458%_ + (cons (cons _%L135542%_ + (let ((__tmp139125 + (lambda (_%g135707135745%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g134421134461%_) - (cons _%g134420134458%_ _%g134421134461%_)))) + _%g135708135748%_) + (cons _%g135707135745%_ _%g135708135748%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp137838 + __tmp139125 '() - _%L134256%_))) + _%L135543%_))) '())) (cons (cons (let () (declare (not safe)) @@ -1217,1364 +1217,1364 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd134321134389%_ - _%super-bind-methods!134319134381%_ - _%hd134306134339%_) - (_%g134300134328%_ - _%g134301134332%_)))) - (_%g134300134328%_ - _%g134301134332%_))))))) - (_%loop134314134361%_ _%target134311134355%_ '())) - (_%g134300134328%_ _%g134301134332%_))))) + _%hd135608135676%_ + _%super-bind-methods!135606135668%_ + _%hd135593135626%_) + (_%g135587135615%_ + _%g135588135619%_)))) + (_%g135587135615%_ + _%g135588135619%_))))))) + (_%loop135601135648%_ _%target135598135642%_ '())) + (_%g135587135615%_ _%g135588135619%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134300134328%_ - _%g134301134332%_)))) - (_%g134300134328%_ - _%g134301134332%_)))) - (_%g134300134328%_ _%g134301134332%_))))) - (_%g134299134464%_ + (_%g135587135615%_ + _%g135588135619%_)))) + (_%g135587135615%_ + _%g135588135619%_)))) + (_%g135587135615%_ _%g135588135619%_))))) + (_%g135586135751%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L134255%_ - _%L134255%_ + _%L135542%_ + _%L135542%_ '"-bind-methods!")) - (map (lambda (_%super134468%_) + (map (lambda (_%super135755%_) (let () (declare (not safe)) (gx#stx-identifier - _%super134468%_ - _%super134468%_ + _%super135755%_ + _%super135755%_ '"-bind-methods!"))) - (let ((__tmp137839 - (lambda (_%g134470134473%_ - _%g134471134476%_) - (cons _%g134470134473%_ - _%g134471134476%_)))) + (let ((__tmp139126 + (lambda (_%g135757135760%_ + _%g135758135763%_) + (cons _%g135757135760%_ + _%g135758135763%_)))) (declare (not safe)) - (__foldr1 __tmp137839 '() _%L134254%_))) + (__foldr1 __tmp139126 '() _%L135541%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L134255%_ - _%L134255%_ + _%L135542%_ + _%L135542%_ '"::t")))))))) - (let* ((_%__match137697137698%_ - (lambda (_%e133993134062%_ - _%hd133994134066%_ - _%tl133995134069%_ - _%e133996134072%_ - _%hd133997134076%_ - _%tl133998134079%_ - _%e133999134082%_ - _%hd134000134086%_ - _%tl134001134089%_ - _%__splice137577137578%_ - _%target134002134092%_ - _%tl134004134095%_) - (letrec ((_%loop134005134098%_ - (lambda (_%hd134003134102%_ - _%arg134009134105%_) + (let* ((_%__match138984138985%_ + (lambda (_%e135280135349%_ + _%hd135281135353%_ + _%tl135282135356%_ + _%e135283135359%_ + _%hd135284135363%_ + _%tl135285135366%_ + _%e135286135369%_ + _%hd135287135373%_ + _%tl135288135376%_ + _%__splice138864138865%_ + _%target135289135379%_ + _%tl135291135382%_) + (letrec ((_%loop135292135385%_ + (lambda (_%hd135290135389%_ + _%arg135296135392%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134003134102%_)) - (let ((_%e134006134108%_ + (gx#stx-pair? _%hd135290135389%_)) + (let ((_%e135293135395%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134003134102%_)))) - (let ((_%lp-tl134008134115%_ + _%hd135290135389%_)))) + (let ((_%lp-tl135295135402%_ (let () (declare (not safe)) - (##cdr _%e134006134108%_))) - (_%lp-hd134007134112%_ + (##cdr _%e135293135395%_))) + (_%lp-hd135294135399%_ (let () (declare (not safe)) - (##car _%e134006134108%_)))) - (_%loop134005134098%_ - _%lp-tl134008134115%_ - (cons _%lp-hd134007134112%_ - _%arg134009134105%_)))) - (let ((_%arg134010134118%_ - (reverse _%arg134009134105%_))) + (##car _%e135293135395%_)))) + (_%loop135292135385%_ + _%lp-tl135295135402%_ + (cons _%lp-hd135294135399%_ + _%arg135296135392%_)))) + (let ((_%arg135297135405%_ + (reverse _%arg135296135392%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl133998134079%_)) - (let ((_%e134011134122%_ + _%tl135285135366%_)) + (let ((_%e135298135409%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133998134079%_)))) - (let ((_%tl134013134129%_ + _%tl135285135366%_)))) + (let ((_%tl135300135416%_ (let () (declare (not safe)) - (##cdr _%e134011134122%_))) - (_%hd134012134126%_ + (##cdr _%e135298135409%_))) + (_%hd135299135413%_ (let () (declare (not safe)) - (##car _%e134011134122%_)))) + (##car _%e135298135409%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134012134126%_)) - (let ((_%e134014134132%_ + _%hd135299135413%_)) + (let ((_%e135301135419%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134012134126%_)))) - (let ((_%tl134016134139%_ + _%hd135299135413%_)))) + (let ((_%tl135303135426%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e134014134132%_))) - (_%hd134015134136%_ - (let () (declare (not safe)) (##car _%e134014134132%_)))) + (##cdr _%e135301135419%_))) + (_%hd135302135423%_ + (let () (declare (not safe)) (##car _%e135301135419%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl134016134139%_)) - (let ((_%__splice137579137580%_ + (gx#stx-pair/null? _%tl135303135426%_)) + (let ((_%__splice138866138867%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl134016134139%_ '0)))) - (let ((_%tl134019134145%_ + (gx#syntax-split-splice _%tl135303135426%_ '0)))) + (let ((_%tl135306135432%_ (let () (declare (not safe)) - (##vector-ref _%__splice137579137580%_ '1))) - (_%target134017134142%_ + (##vector-ref _%__splice138866138867%_ '1))) + (_%target135304135429%_ (let () (declare (not safe)) - (##vector-ref _%__splice137579137580%_ '0)))) + (##vector-ref _%__splice138866138867%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134019134145%_)) - (letrec ((_%loop134020134148%_ - (lambda (_%hd134018134152%_ - _%super134024134155%_) + (gx#stx-null? _%tl135306135432%_)) + (letrec ((_%loop135307135435%_ + (lambda (_%hd135305135439%_ + _%super135311135442%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134018134152%_)) - (let ((_%e134021134158%_ + _%hd135305135439%_)) + (let ((_%e135308135445%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134018134152%_)))) - (let ((_%lp-tl134023134165%_ + _%hd135305135439%_)))) + (let ((_%lp-tl135310135452%_ (let () (declare (not safe)) - (##cdr _%e134021134158%_))) - (_%lp-hd134022134162%_ + (##cdr _%e135308135445%_))) + (_%lp-hd135309135449%_ (let () (declare (not safe)) - (##car _%e134021134158%_)))) - (_%loop134020134148%_ - _%lp-tl134023134165%_ - (cons _%lp-hd134022134162%_ - _%super134024134155%_)))) - (let ((_%super134025134168%_ - (reverse _%super134024134155%_))) + (##car _%e135308135445%_)))) + (_%loop135307135435%_ + _%lp-tl135310135452%_ + (cons _%lp-hd135309135449%_ + _%super135311135442%_)))) + (let ((_%super135312135455%_ + (reverse _%super135311135442%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134013134129%_)) - (let ((_%e134026134172%_ + _%tl135300135416%_)) + (let ((_%e135313135459%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134013134129%_)))) - (let ((_%tl134028134179%_ + _%tl135300135416%_)))) + (let ((_%tl135315135466%_ (let () (declare (not safe)) - (##cdr _%e134026134172%_))) - (_%hd134027134176%_ + (##cdr _%e135313135459%_))) + (_%hd135314135463%_ (let () (declare (not safe)) - (##car _%e134026134172%_)))) + (##car _%e135313135459%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134028134179%_)) - (let ((_%e134029134182%_ + _%tl135315135466%_)) + (let ((_%e135316135469%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl134028134179%_)))) - (let ((_%tl134031134189%_ + (gx#syntax-e _%tl135315135466%_)))) + (let ((_%tl135318135476%_ (let () (declare (not safe)) - (##cdr _%e134029134182%_))) - (_%hd134030134186%_ + (##cdr _%e135316135469%_))) + (_%hd135317135473%_ (let () (declare (not safe)) - (##car _%e134029134182%_)))) + (##car _%e135316135469%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd134030134186%_)) - (let ((_%e134032134192%_ + (gx#stx-datum? _%hd135317135473%_)) + (let ((_%e135319135479%_ (let () (declare (not safe)) - (gx#stx-e _%hd134030134186%_)))) - (if (equal? _%e134032134192%_ 'final:) + (gx#stx-e _%hd135317135473%_)))) + (if (equal? _%e135319135479%_ 'final:) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl134031134189%_)) - (let ((_%__splice137581137582%_ + (gx#stx-pair/null? _%tl135318135476%_)) + (let ((_%__splice138868138869%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134031134189%_ + _%tl135318135476%_ '0)))) - (let ((_%tl134035134199%_ + (let ((_%tl135322135486%_ (let () (declare (not safe)) (##vector-ref - _%__splice137581137582%_ + _%__splice138868138869%_ '1))) - (_%target134033134196%_ + (_%target135320135483%_ (let () (declare (not safe)) (##vector-ref - _%__splice137581137582%_ + _%__splice138868138869%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134035134199%_)) - (letrec ((_%loop134036134202%_ - (lambda (_%hd134034134206%_ - _%implementation134040134209%_ - _%method134041134211%_) + _%tl135322135486%_)) + (letrec ((_%loop135323135489%_ + (lambda (_%hd135321135493%_ + _%implementation135327135496%_ + _%method135328135498%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134034134206%_)) - (let ((_%e134037134214%_ + _%hd135321135493%_)) + (let ((_%e135324135501%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd134034134206%_)))) - (let ((_%lp-tl134039134221%_ + (gx#syntax-e _%hd135321135493%_)))) + (let ((_%lp-tl135326135508%_ (let () (declare (not safe)) - (##cdr _%e134037134214%_))) - (_%lp-hd134038134218%_ + (##cdr _%e135324135501%_))) + (_%lp-hd135325135505%_ (let () (declare (not safe)) - (##car _%e134037134214%_)))) + (##car _%e135324135501%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd134038134218%_)) - (let ((_%e134044134224%_ + (gx#stx-pair? _%lp-hd135325135505%_)) + (let ((_%e135331135511%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd134038134218%_)))) - (let ((_%tl134046134231%_ + (gx#syntax-e _%lp-hd135325135505%_)))) + (let ((_%tl135333135518%_ (let () (declare (not safe)) - (##cdr _%e134044134224%_))) - (_%hd134045134228%_ + (##cdr _%e135331135511%_))) + (_%hd135332135515%_ (let () (declare (not safe)) - (##car _%e134044134224%_)))) + (##car _%e135331135511%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134046134231%_)) - (let ((_%e134047134234%_ + (gx#stx-pair? _%tl135333135518%_)) + (let ((_%e135334135521%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134046134231%_)))) - (let ((_%tl134049134241%_ + _%tl135333135518%_)))) + (let ((_%tl135336135528%_ (let () (declare (not safe)) - (##cdr _%e134047134234%_))) - (_%hd134048134238%_ + (##cdr _%e135334135521%_))) + (_%hd135335135525%_ (let () (declare (not safe)) - (##car _%e134047134234%_)))) + (##car _%e135334135521%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134049134241%_)) - (_%loop134036134202%_ - _%lp-tl134039134221%_ - (cons _%hd134048134238%_ - _%implementation134040134209%_) - (cons _%hd134045134228%_ - _%method134041134211%_)) + _%tl135336135528%_)) + (_%loop135323135489%_ + _%lp-tl135326135508%_ + (cons _%hd135335135525%_ + _%implementation135327135496%_) + (cons _%hd135332135515%_ + _%method135328135498%_)) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g133861134055%_))))) - (let ((_%method134043134247%_ - (reverse _%method134041134211%_)) - (_%implementation134042134244%_ - (reverse _%implementation134040134209%_))) - (_%__kont137575137576%_ - _%implementation134042134244%_ - _%method134043134247%_ - _%hd134027134176%_ - _%super134025134168%_ - _%hd134015134136%_ - _%arg134010134118%_ - _%hd134000134086%_)))))) + (_%g135148135342%_))))) + (let ((_%method135330135534%_ + (reverse _%method135328135498%_)) + (_%implementation135329135531%_ + (reverse _%implementation135327135496%_))) + (_%__kont138862138863%_ + _%implementation135329135531%_ + _%method135330135534%_ + _%hd135314135463%_ + _%super135312135455%_ + _%hd135302135423%_ + _%arg135297135405%_ + _%hd135287135373%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop134036134202%_ - _%target134033134196%_ + (_%loop135323135489%_ + _%target135320135483%_ '() '())) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g133861134055%_))) + (_%g135148135342%_))) (let () (declare (not safe)) - (_%g133861134055%_)))) - (let () (declare (not safe)) (_%g133861134055%_))))) - (let () (declare (not safe)) (_%g133861134055%_))))) + (_%g135148135342%_)))) + (let () (declare (not safe)) (_%g135148135342%_))))) + (let () (declare (not safe)) (_%g135148135342%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g133861134055%_)))))))) - (_%loop134020134148%_ - _%target134017134142%_ + (_%g135148135342%_)))))))) + (_%loop135307135435%_ + _%target135304135429%_ '())) (let () (declare (not safe)) - (_%g133861134055%_))))) - (let () (declare (not safe)) (_%g133861134055%_))))) + (_%g135148135342%_))))) + (let () (declare (not safe)) (_%g135148135342%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g133861134055%_)))))))) - (_%loop134005134098%_ _%target134002134092%_ '())))) - (_%__match137671137672%_ - (lambda (_%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_) - (letrec ((_%loop133945134522%_ - (lambda (_%hd133943134526%_ - _%arg133949134529%_) + (_%g135148135342%_)))))))) + (_%loop135292135385%_ _%target135289135379%_ '())))) + (_%__match138958138959%_ + (lambda (_%e135220135773%_ + _%hd135221135777%_ + _%tl135222135780%_ + _%e135223135783%_ + _%hd135224135787%_ + _%tl135225135790%_ + _%e135226135793%_ + _%hd135227135797%_ + _%tl135228135800%_ + _%__splice138856138857%_ + _%target135229135803%_ + _%tl135231135806%_) + (letrec ((_%loop135232135809%_ + (lambda (_%hd135230135813%_ + _%arg135236135816%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133943134526%_)) - (let ((_%e133946134532%_ + (gx#stx-pair? _%hd135230135813%_)) + (let ((_%e135233135819%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133943134526%_)))) - (let ((_%lp-tl133948134539%_ + _%hd135230135813%_)))) + (let ((_%lp-tl135235135826%_ (let () (declare (not safe)) - (##cdr _%e133946134532%_))) - (_%lp-hd133947134536%_ + (##cdr _%e135233135819%_))) + (_%lp-hd135234135823%_ (let () (declare (not safe)) - (##car _%e133946134532%_)))) - (_%loop133945134522%_ - _%lp-tl133948134539%_ - (cons _%lp-hd133947134536%_ - _%arg133949134529%_)))) - (let ((_%arg133950134542%_ - (reverse _%arg133949134529%_))) + (##car _%e135233135819%_)))) + (_%loop135232135809%_ + _%lp-tl135235135826%_ + (cons _%lp-hd135234135823%_ + _%arg135236135816%_)))) + (let ((_%arg135237135829%_ + (reverse _%arg135236135816%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl133938134503%_)) - (let ((_%e133951134546%_ + _%tl135225135790%_)) + (let ((_%e135238135833%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133938134503%_)))) - (let ((_%tl133953134553%_ + _%tl135225135790%_)))) + (let ((_%tl135240135840%_ (let () (declare (not safe)) - (##cdr _%e133951134546%_))) - (_%hd133952134550%_ + (##cdr _%e135238135833%_))) + (_%hd135239135837%_ (let () (declare (not safe)) - (##car _%e133951134546%_)))) + (##car _%e135238135833%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd133952134550%_)) - (let ((_%e133954134556%_ + _%hd135239135837%_)) + (let ((_%e135241135843%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133952134550%_)))) - (let ((_%tl133956134563%_ + _%hd135239135837%_)))) + (let ((_%tl135243135850%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e133954134556%_))) - (_%hd133955134560%_ - (let () (declare (not safe)) (##car _%e133954134556%_)))) + (##cdr _%e135241135843%_))) + (_%hd135242135847%_ + (let () (declare (not safe)) (##car _%e135241135843%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl133956134563%_)) - (let ((_%__splice137571137572%_ + (gx#stx-pair/null? _%tl135243135850%_)) + (let ((_%__splice138858138859%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl133956134563%_ '0)))) - (let ((_%tl133959134569%_ + (gx#syntax-split-splice _%tl135243135850%_ '0)))) + (let ((_%tl135246135856%_ (let () (declare (not safe)) - (##vector-ref _%__splice137571137572%_ '1))) - (_%target133957134566%_ + (##vector-ref _%__splice138858138859%_ '1))) + (_%target135244135853%_ (let () (declare (not safe)) - (##vector-ref _%__splice137571137572%_ '0)))) + (##vector-ref _%__splice138858138859%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133959134569%_)) - (letrec ((_%loop133960134572%_ - (lambda (_%hd133958134576%_ - _%super133964134579%_) + (gx#stx-null? _%tl135246135856%_)) + (letrec ((_%loop135247135859%_ + (lambda (_%hd135245135863%_ + _%super135251135866%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd133958134576%_)) - (let ((_%e133961134582%_ + _%hd135245135863%_)) + (let ((_%e135248135869%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133958134576%_)))) - (let ((_%lp-tl133963134589%_ + _%hd135245135863%_)))) + (let ((_%lp-tl135250135876%_ (let () (declare (not safe)) - (##cdr _%e133961134582%_))) - (_%lp-hd133962134586%_ + (##cdr _%e135248135869%_))) + (_%lp-hd135249135873%_ (let () (declare (not safe)) - (##car _%e133961134582%_)))) - (_%loop133960134572%_ - _%lp-tl133963134589%_ - (cons _%lp-hd133962134586%_ - _%super133964134579%_)))) - (let ((_%super133965134592%_ - (reverse _%super133964134579%_))) + (##car _%e135248135869%_)))) + (_%loop135247135859%_ + _%lp-tl135250135876%_ + (cons _%lp-hd135249135873%_ + _%super135251135866%_)))) + (let ((_%super135252135879%_ + (reverse _%super135251135866%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl133953134553%_)) - (let ((_%e133966134596%_ + _%tl135240135840%_)) + (let ((_%e135253135883%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133953134553%_)))) - (let ((_%tl133968134603%_ + _%tl135240135840%_)))) + (let ((_%tl135255135890%_ (let () (declare (not safe)) - (##cdr _%e133966134596%_))) - (_%hd133967134600%_ + (##cdr _%e135253135883%_))) + (_%hd135254135887%_ (let () (declare (not safe)) - (##car _%e133966134596%_)))) + (##car _%e135253135883%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl133968134603%_)) - (let ((_%__splice137573137574%_ + _%tl135255135890%_)) + (let ((_%__splice138860138861%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl133968134603%_ '0)))) - (let ((_%tl133971134609%_ + (gx#syntax-split-splice _%tl135255135890%_ '0)))) + (let ((_%tl135258135896%_ (let () (declare (not safe)) - (##vector-ref _%__splice137573137574%_ '1))) - (_%target133969134606%_ + (##vector-ref _%__splice138860138861%_ '1))) + (_%target135256135893%_ (let () (declare (not safe)) - (##vector-ref _%__splice137573137574%_ '0)))) + (##vector-ref _%__splice138860138861%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133971134609%_)) - (letrec ((_%loop133972134612%_ - (lambda (_%hd133970134616%_ - _%implementation133976134619%_ - _%method133977134621%_) + (gx#stx-null? _%tl135258135896%_)) + (letrec ((_%loop135259135899%_ + (lambda (_%hd135257135903%_ + _%implementation135263135906%_ + _%method135264135908%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133970134616%_)) - (let ((_%e133973134624%_ + (gx#stx-pair? _%hd135257135903%_)) + (let ((_%e135260135911%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133970134616%_)))) - (let ((_%lp-tl133975134631%_ + _%hd135257135903%_)))) + (let ((_%lp-tl135262135918%_ (let () (declare (not safe)) - (##cdr _%e133973134624%_))) - (_%lp-hd133974134628%_ + (##cdr _%e135260135911%_))) + (_%lp-hd135261135915%_ (let () (declare (not safe)) - (##car _%e133973134624%_)))) + (##car _%e135260135911%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd133974134628%_)) - (let ((_%e133980134634%_ + _%lp-hd135261135915%_)) + (let ((_%e135267135921%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd133974134628%_)))) - (let ((_%tl133982134641%_ + _%lp-hd135261135915%_)))) + (let ((_%tl135269135928%_ (let () (declare (not safe)) - (##cdr _%e133980134634%_))) - (_%hd133981134638%_ + (##cdr _%e135267135921%_))) + (_%hd135268135925%_ (let () (declare (not safe)) - (##car _%e133980134634%_)))) + (##car _%e135267135921%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl133982134641%_)) - (let ((_%e133983134644%_ + _%tl135269135928%_)) + (let ((_%e135270135931%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl133982134641%_)))) - (let ((_%tl133985134651%_ + (gx#syntax-e _%tl135269135928%_)))) + (let ((_%tl135272135938%_ (let () (declare (not safe)) - (##cdr _%e133983134644%_))) - (_%hd133984134648%_ + (##cdr _%e135270135931%_))) + (_%hd135271135935%_ (let () (declare (not safe)) - (##car _%e133983134644%_)))) + (##car _%e135270135931%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133985134651%_)) - (_%loop133972134612%_ - _%lp-tl133975134631%_ - (cons _%hd133984134648%_ - _%implementation133976134619%_) - (cons _%hd133981134638%_ _%method133977134621%_)) - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_)))) - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_)))) + (gx#stx-null? _%tl135272135938%_)) + (_%loop135259135899%_ + _%lp-tl135262135918%_ + (cons _%hd135271135935%_ + _%implementation135263135906%_) + (cons _%hd135268135925%_ _%method135264135908%_)) + (_%__match138984138985%_ + _%e135220135773%_ + _%hd135221135777%_ + _%tl135222135780%_ + _%e135223135783%_ + _%hd135224135787%_ + _%tl135225135790%_ + _%e135226135793%_ + _%hd135227135797%_ + _%tl135228135800%_ + _%__splice138856138857%_ + _%target135229135803%_ + _%tl135231135806%_)))) + (_%__match138984138985%_ + _%e135220135773%_ + _%hd135221135777%_ + _%tl135222135780%_ + _%e135223135783%_ + _%hd135224135787%_ + _%tl135225135790%_ + _%e135226135793%_ + _%hd135227135797%_ + _%tl135228135800%_ + _%__splice138856138857%_ + _%target135229135803%_ + _%tl135231135806%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_)))) - (let ((_%method133979134657%_ - (reverse _%method133977134621%_)) - (_%implementation133978134654%_ - (reverse _%implementation133976134619%_))) - (_%__kont137567137568%_ - _%implementation133978134654%_ - _%method133979134657%_ - _%hd133967134600%_ - _%super133965134592%_ - _%hd133955134560%_ - _%arg133950134542%_ - _%hd133940134510%_)))))) - (_%loop133972134612%_ - _%target133969134606%_ + (_%__match138984138985%_ + _%e135220135773%_ + _%hd135221135777%_ + _%tl135222135780%_ + _%e135223135783%_ + _%hd135224135787%_ + _%tl135225135790%_ + _%e135226135793%_ + _%hd135227135797%_ + _%tl135228135800%_ + _%__splice138856138857%_ + _%target135229135803%_ + _%tl135231135806%_)))) + (let ((_%method135266135944%_ + (reverse _%method135264135908%_)) + (_%implementation135265135941%_ + (reverse _%implementation135263135906%_))) + (_%__kont138854138855%_ + _%implementation135265135941%_ + _%method135266135944%_ + _%hd135254135887%_ + _%super135252135879%_ + _%hd135242135847%_ + _%arg135237135829%_ + _%hd135227135797%_)))))) + (_%loop135259135899%_ + _%target135256135893%_ '() '())) - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_)))) - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_)))) + (_%__match138984138985%_ + _%e135220135773%_ + _%hd135221135777%_ + _%tl135222135780%_ + _%e135223135783%_ + _%hd135224135787%_ + _%tl135225135790%_ + _%e135226135793%_ + _%hd135227135797%_ + _%tl135228135800%_ + _%__splice138856138857%_ + _%target135229135803%_ + _%tl135231135806%_)))) + (_%__match138984138985%_ + _%e135220135773%_ + _%hd135221135777%_ + _%tl135222135780%_ + _%e135223135783%_ + _%hd135224135787%_ + _%tl135225135790%_ + _%e135226135793%_ + _%hd135227135797%_ + _%tl135228135800%_ + _%__splice138856138857%_ + _%target135229135803%_ + _%tl135231135806%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_))))))) - (_%loop133960134572%_ - _%target133957134566%_ + (_%__match138984138985%_ + _%e135220135773%_ + _%hd135221135777%_ + _%tl135222135780%_ + _%e135223135783%_ + _%hd135224135787%_ + _%tl135225135790%_ + _%e135226135793%_ + _%hd135227135797%_ + _%tl135228135800%_ + _%__splice138856138857%_ + _%target135229135803%_ + _%tl135231135806%_))))))) + (_%loop135247135859%_ + _%target135244135853%_ '())) - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_)))) - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_)))) + (_%__match138984138985%_ + _%e135220135773%_ + _%hd135221135777%_ + _%tl135222135780%_ + _%e135223135783%_ + _%hd135224135787%_ + _%tl135225135790%_ + _%e135226135793%_ + _%hd135227135797%_ + _%tl135228135800%_ + _%__splice138856138857%_ + _%target135229135803%_ + _%tl135231135806%_)))) + (_%__match138984138985%_ + _%e135220135773%_ + _%hd135221135777%_ + _%tl135222135780%_ + _%e135223135783%_ + _%hd135224135787%_ + _%tl135225135790%_ + _%e135226135793%_ + _%hd135227135797%_ + _%tl135228135800%_ + _%__splice138856138857%_ + _%target135229135803%_ + _%tl135231135806%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_)))) - (_%__match137697137698%_ - _%e133933134486%_ - _%hd133934134490%_ - _%tl133935134493%_ - _%e133936134496%_ - _%hd133937134500%_ - _%tl133938134503%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_))))))) - (_%loop133945134522%_ _%target133942134516%_ '())))) - (_%__match137645137646%_ - (lambda (_%e133884134891%_ - _%hd133885134895%_ - _%tl133886134898%_ - _%e133887134901%_ - _%hd133888134905%_ - _%tl133889134908%_ - _%e133890134911%_ - _%e133891134915%_ - _%hd133892134919%_ - _%tl133893134922%_ - _%e133894134925%_ - _%hd133895134929%_ - _%tl133896134932%_ - _%__splice137563137564%_ - _%target133897134935%_ - _%tl133899134938%_) - (letrec ((_%loop133900134941%_ - (lambda (_%hd133898134945%_ - _%super133904134948%_) + (_%__match138984138985%_ + _%e135220135773%_ + _%hd135221135777%_ + _%tl135222135780%_ + _%e135223135783%_ + _%hd135224135787%_ + _%tl135225135790%_ + _%e135226135793%_ + _%hd135227135797%_ + _%tl135228135800%_ + _%__splice138856138857%_ + _%target135229135803%_ + _%tl135231135806%_)))) + (_%__match138984138985%_ + _%e135220135773%_ + _%hd135221135777%_ + _%tl135222135780%_ + _%e135223135783%_ + _%hd135224135787%_ + _%tl135225135790%_ + _%e135226135793%_ + _%hd135227135797%_ + _%tl135228135800%_ + _%__splice138856138857%_ + _%target135229135803%_ + _%tl135231135806%_))))))) + (_%loop135232135809%_ _%target135229135803%_ '())))) + (_%__match138932138933%_ + (lambda (_%e135171136178%_ + _%hd135172136182%_ + _%tl135173136185%_ + _%e135174136188%_ + _%hd135175136192%_ + _%tl135176136195%_ + _%e135177136198%_ + _%e135178136202%_ + _%hd135179136206%_ + _%tl135180136209%_ + _%e135181136212%_ + _%hd135182136216%_ + _%tl135183136219%_ + _%__splice138850138851%_ + _%target135184136222%_ + _%tl135186136225%_) + (letrec ((_%loop135187136228%_ + (lambda (_%hd135185136232%_ + _%super135191136235%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133898134945%_)) - (let ((_%e133901134951%_ + (gx#stx-pair? _%hd135185136232%_)) + (let ((_%e135188136238%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133898134945%_)))) - (let ((_%lp-tl133903134958%_ + _%hd135185136232%_)))) + (let ((_%lp-tl135190136245%_ (let () (declare (not safe)) - (##cdr _%e133901134951%_))) - (_%lp-hd133902134955%_ + (##cdr _%e135188136238%_))) + (_%lp-hd135189136242%_ (let () (declare (not safe)) - (##car _%e133901134951%_)))) - (_%loop133900134941%_ - _%lp-tl133903134958%_ - (cons _%lp-hd133902134955%_ - _%super133904134948%_)))) - (let ((_%super133905134961%_ - (reverse _%super133904134948%_))) + (##car _%e135188136238%_)))) + (_%loop135187136228%_ + _%lp-tl135190136245%_ + (cons _%lp-hd135189136242%_ + _%super135191136235%_)))) + (let ((_%super135192136248%_ + (reverse _%super135191136235%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl133893134922%_)) - (let ((_%e133906134965%_ + _%tl135180136209%_)) + (let ((_%e135193136252%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133893134922%_)))) - (let ((_%tl133908134972%_ + _%tl135180136209%_)))) + (let ((_%tl135195136259%_ (let () (declare (not safe)) - (##cdr _%e133906134965%_))) - (_%hd133907134969%_ + (##cdr _%e135193136252%_))) + (_%hd135194136256%_ (let () (declare (not safe)) - (##car _%e133906134965%_)))) + (##car _%e135193136252%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl133908134972%_)) - (let ((_%__splice137565137566%_ + _%tl135195136259%_)) + (let ((_%__splice138852138853%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl133908134972%_ + _%tl135195136259%_ '0)))) - (let ((_%tl133911134978%_ + (let ((_%tl135198136265%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice137565137566%_ '1))) - (_%target133909134975%_ + (##vector-ref _%__splice138852138853%_ '1))) + (_%target135196136262%_ (let () (declare (not safe)) - (##vector-ref _%__splice137565137566%_ '0)))) + (##vector-ref _%__splice138852138853%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133911134978%_)) - (letrec ((_%loop133912134981%_ - (lambda (_%hd133910134985%_ - _%implementation133916134988%_ - _%method133917134990%_) + (gx#stx-null? _%tl135198136265%_)) + (letrec ((_%loop135199136268%_ + (lambda (_%hd135197136272%_ + _%implementation135203136275%_ + _%method135204136277%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133910134985%_)) - (let ((_%e133913134993%_ + (gx#stx-pair? _%hd135197136272%_)) + (let ((_%e135200136280%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133910134985%_)))) - (let ((_%lp-tl133915135000%_ + _%hd135197136272%_)))) + (let ((_%lp-tl135202136287%_ (let () (declare (not safe)) - (##cdr _%e133913134993%_))) - (_%lp-hd133914134997%_ + (##cdr _%e135200136280%_))) + (_%lp-hd135201136284%_ (let () (declare (not safe)) - (##car _%e133913134993%_)))) + (##car _%e135200136280%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd133914134997%_)) - (let ((_%e133920135003%_ + _%lp-hd135201136284%_)) + (let ((_%e135207136290%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd133914134997%_)))) - (let ((_%tl133922135010%_ + _%lp-hd135201136284%_)))) + (let ((_%tl135209136297%_ (let () (declare (not safe)) - (##cdr _%e133920135003%_))) - (_%hd133921135007%_ + (##cdr _%e135207136290%_))) + (_%hd135208136294%_ (let () (declare (not safe)) - (##car _%e133920135003%_)))) + (##car _%e135207136290%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl133922135010%_)) - (let ((_%e133923135013%_ + _%tl135209136297%_)) + (let ((_%e135210136300%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133922135010%_)))) - (let ((_%tl133925135020%_ + _%tl135209136297%_)))) + (let ((_%tl135212136307%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e133923135013%_))) - (_%hd133924135017%_ - (let () (declare (not safe)) (##car _%e133923135013%_)))) + (##cdr _%e135210136300%_))) + (_%hd135211136304%_ + (let () (declare (not safe)) (##car _%e135210136300%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133925135020%_)) - (_%loop133912134981%_ - _%lp-tl133915135000%_ - (cons _%hd133924135017%_ _%implementation133916134988%_) - (cons _%hd133921135007%_ _%method133917134990%_)) - (let () (declare (not safe)) (_%g133861134055%_))))) + (gx#stx-null? _%tl135212136307%_)) + (_%loop135199136268%_ + _%lp-tl135202136287%_ + (cons _%hd135211136304%_ _%implementation135203136275%_) + (cons _%hd135208136294%_ _%method135204136277%_)) + (let () (declare (not safe)) (_%g135148135342%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g133861134055%_))))) - (let ((_%method133919135026%_ - (reverse _%method133917134990%_)) - (_%implementation133918135023%_ - (reverse _%implementation133916134988%_))) - (_%__kont137561137562%_ - _%implementation133918135023%_ - _%method133919135026%_ - _%hd133907134969%_ - _%super133905134961%_ - _%hd133895134929%_)))))) - (_%loop133912134981%_ _%target133909134975%_ '() '())) - (let () (declare (not safe)) (_%g133861134055%_))))) + (_%g135148135342%_))))) + (let ((_%method135206136313%_ + (reverse _%method135204136277%_)) + (_%implementation135205136310%_ + (reverse _%implementation135203136275%_))) + (_%__kont138848138849%_ + _%implementation135205136310%_ + _%method135206136313%_ + _%hd135194136256%_ + _%super135192136248%_ + _%hd135182136216%_)))))) + (_%loop135199136268%_ _%target135196136262%_ '() '())) + (let () (declare (not safe)) (_%g135148135342%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g133861134055%_)))))))) - (_%loop133900134941%_ _%target133897134935%_ '())))) - (_%__match137607137608%_ - (lambda (_%e133867135235%_ - _%hd133868135239%_ - _%tl133869135242%_ - _%e133870135245%_ - _%hd133871135249%_ - _%tl133872135252%_ - _%e133873135255%_ - _%hd133874135259%_ - _%tl133875135262%_ - _%e133876135265%_ - _%hd133877135269%_ - _%tl133878135272%_) - (let ((_%L135275%_ _%tl133878135272%_) - (_%L135277%_ _%hd133877135269%_) - (_%L135278%_ _%hd133874135259%_) - (_%L135279%_ _%hd133871135249%_)) + (_%g135148135342%_)))))))) + (_%loop135187136228%_ _%target135184136222%_ '())))) + (_%__match138894138895%_ + (lambda (_%e135154136522%_ + _%hd135155136526%_ + _%tl135156136529%_ + _%e135157136532%_ + _%hd135158136536%_ + _%tl135159136539%_ + _%e135160136542%_ + _%hd135161136546%_ + _%tl135162136549%_ + _%e135163136552%_ + _%hd135164136556%_ + _%tl135165136559%_) + (let ((_%L136562%_ _%tl135165136559%_) + (_%L136564%_ _%hd135164136556%_) + (_%L136565%_ _%hd135161136546%_) + (_%L136566%_ _%hd135158136536%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L135278%_)) - (_%__kont137559137560%_ - _%L135275%_ - _%L135277%_ - _%L135278%_ - _%L135279%_) + (gx#identifier? _%L136565%_)) + (_%__kont138846138847%_ + _%L136562%_ + _%L136564%_ + _%L136565%_ + _%L136566%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd133871135249%_)) - (let ((_%e133890134911%_ + (gx#stx-datum? _%hd135158136536%_)) + (let ((_%e135177136198%_ (let () (declare (not safe)) - (gx#stx-e _%hd133871135249%_)))) - (if (equal? _%e133890134911%_ '#f) + (gx#stx-e _%hd135158136536%_)))) + (if (equal? _%e135177136198%_ '#f) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133874135259%_)) - (let ((_%e133894134925%_ + (gx#stx-pair? _%hd135161136546%_)) + (let ((_%e135181136212%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133874135259%_)))) - (let ((_%tl133896134932%_ + _%hd135161136546%_)))) + (let ((_%tl135183136219%_ (let () (declare (not safe)) - (##cdr _%e133894134925%_))) - (_%hd133895134929%_ + (##cdr _%e135181136212%_))) + (_%hd135182136216%_ (let () (declare (not safe)) - (##car _%e133894134925%_)))) + (##car _%e135181136212%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl133896134932%_)) - (let ((_%__splice137563137564%_ + _%tl135183136219%_)) + (let ((_%__splice138850138851%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl133896134932%_ + _%tl135183136219%_ '0)))) - (let ((_%tl133899134938%_ + (let ((_%tl135186136225%_ (let () (declare (not safe)) (##vector-ref - _%__splice137563137564%_ + _%__splice138850138851%_ '1))) - (_%target133897134935%_ + (_%target135184136222%_ (let () (declare (not safe)) (##vector-ref - _%__splice137563137564%_ + _%__splice138850138851%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133899134938%_)) - (_%__match137645137646%_ - _%e133867135235%_ - _%hd133868135239%_ - _%tl133869135242%_ - _%e133870135245%_ - _%hd133871135249%_ - _%tl133872135252%_ - _%e133890134911%_ - _%e133873135255%_ - _%hd133874135259%_ - _%tl133875135262%_ - _%e133894134925%_ - _%hd133895134929%_ - _%tl133896134932%_ - _%__splice137563137564%_ - _%target133897134935%_ - _%tl133899134938%_) + _%tl135186136225%_)) + (_%__match138932138933%_ + _%e135154136522%_ + _%hd135155136526%_ + _%tl135156136529%_ + _%e135157136532%_ + _%hd135158136536%_ + _%tl135159136539%_ + _%e135177136198%_ + _%e135160136542%_ + _%hd135161136546%_ + _%tl135162136549%_ + _%e135181136212%_ + _%hd135182136216%_ + _%tl135183136219%_ + _%__splice138850138851%_ + _%target135184136222%_ + _%tl135186136225%_) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g133861134055%_))) + (_%g135148135342%_))) (let () (declare (not safe)) - (_%g133861134055%_)))) + (_%g135148135342%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133871135249%_)) - (let ((_%e133939134506%_ + (gx#stx-pair? _%hd135158136536%_)) + (let ((_%e135226135793%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133871135249%_)))) - (let ((_%tl133941134513%_ + _%hd135158136536%_)))) + (let ((_%tl135228135800%_ (let () (declare (not safe)) - (##cdr _%e133939134506%_))) - (_%hd133940134510%_ + (##cdr _%e135226135793%_))) + (_%hd135227135797%_ (let () (declare (not safe)) - (##car _%e133939134506%_)))) + (##car _%e135226135793%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl133941134513%_)) - (let ((_%__splice137569137570%_ + _%tl135228135800%_)) + (let ((_%__splice138856138857%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl133941134513%_ + _%tl135228135800%_ '0)))) - (let ((_%tl133944134519%_ + (let ((_%tl135231135806%_ (let () (declare (not safe)) (##vector-ref - _%__splice137569137570%_ + _%__splice138856138857%_ '1))) - (_%target133942134516%_ + (_%target135229135803%_ (let () (declare (not safe)) (##vector-ref - _%__splice137569137570%_ + _%__splice138856138857%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133944134519%_)) - (_%__match137671137672%_ - _%e133867135235%_ - _%hd133868135239%_ - _%tl133869135242%_ - _%e133870135245%_ - _%hd133871135249%_ - _%tl133872135252%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_) + _%tl135231135806%_)) + (_%__match138958138959%_ + _%e135154136522%_ + _%hd135155136526%_ + _%tl135156136529%_ + _%e135157136532%_ + _%hd135158136536%_ + _%tl135159136539%_ + _%e135226135793%_ + _%hd135227135797%_ + _%tl135228135800%_ + _%__splice138856138857%_ + _%target135229135803%_ + _%tl135231135806%_) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g133861134055%_))))))))) + (_%g135148135342%_))))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx137556137557%_)) - (let ((_%e133867135235%_ + (gx#stx-pair? _%__stx138843138844%_)) + (let ((_%e135154136522%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx137556137557%_)))) - (let ((_%tl133869135242%_ + (gx#syntax-e _%__stx138843138844%_)))) + (let ((_%tl135156136529%_ (let () (declare (not safe)) - (##cdr _%e133867135235%_))) - (_%hd133868135239%_ + (##cdr _%e135154136522%_))) + (_%hd135155136526%_ (let () (declare (not safe)) - (##car _%e133867135235%_)))) + (##car _%e135154136522%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133869135242%_)) - (let ((_%e133870135245%_ + (gx#stx-pair? _%tl135156136529%_)) + (let ((_%e135157136532%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133869135242%_)))) - (let ((_%tl133872135252%_ + (gx#syntax-e _%tl135156136529%_)))) + (let ((_%tl135159136539%_ (let () (declare (not safe)) - (##cdr _%e133870135245%_))) - (_%hd133871135249%_ + (##cdr _%e135157136532%_))) + (_%hd135158136536%_ (let () (declare (not safe)) - (##car _%e133870135245%_)))) + (##car _%e135157136532%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133872135252%_)) - (let ((_%e133873135255%_ + (gx#stx-pair? _%tl135159136539%_)) + (let ((_%e135160136542%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133872135252%_)))) - (let ((_%tl133875135262%_ + (gx#syntax-e _%tl135159136539%_)))) + (let ((_%tl135162136549%_ (let () (declare (not safe)) - (##cdr _%e133873135255%_))) - (_%hd133874135259%_ + (##cdr _%e135160136542%_))) + (_%hd135161136546%_ (let () (declare (not safe)) - (##car _%e133873135255%_)))) + (##car _%e135160136542%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133875135262%_)) - (let ((_%e133876135265%_ + (gx#stx-pair? _%tl135162136549%_)) + (let ((_%e135163136552%_ (let () (declare (not safe)) (gx#syntax-e - _%tl133875135262%_)))) - (let ((_%tl133878135272%_ + _%tl135162136549%_)))) + (let ((_%tl135165136559%_ (let () (declare (not safe)) - (##cdr _%e133876135265%_))) - (_%hd133877135269%_ + (##cdr _%e135163136552%_))) + (_%hd135164136556%_ (let () (declare (not safe)) - (##car _%e133876135265%_)))) - (_%__match137607137608%_ - _%e133867135235%_ - _%hd133868135239%_ - _%tl133869135242%_ - _%e133870135245%_ - _%hd133871135249%_ - _%tl133872135252%_ - _%e133873135255%_ - _%hd133874135259%_ - _%tl133875135262%_ - _%e133876135265%_ - _%hd133877135269%_ - _%tl133878135272%_))) + (##car _%e135163136552%_)))) + (_%__match138894138895%_ + _%e135154136522%_ + _%hd135155136526%_ + _%tl135156136529%_ + _%e135157136532%_ + _%hd135158136536%_ + _%tl135159136539%_ + _%e135160136542%_ + _%hd135161136546%_ + _%tl135162136549%_ + _%e135163136552%_ + _%hd135164136556%_ + _%tl135165136559%_))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd133871135249%_)) - (let ((_%e133890134911%_ + _%hd135158136536%_)) + (let ((_%e135177136198%_ (let () (declare (not safe)) (gx#stx-e - _%hd133871135249%_)))) - (if (equal? _%e133890134911%_ + _%hd135158136536%_)))) + (if (equal? _%e135177136198%_ '#f) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd133874135259%_)) - (let ((_%e133894134925%_ + _%hd135161136546%_)) + (let ((_%e135181136212%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd133874135259%_)))) - (let ((_%tl133896134932%_ + (gx#syntax-e _%hd135161136546%_)))) + (let ((_%tl135183136219%_ (let () (declare (not safe)) - (##cdr _%e133894134925%_))) - (_%hd133895134929%_ + (##cdr _%e135181136212%_))) + (_%hd135182136216%_ (let () (declare (not safe)) - (##car _%e133894134925%_)))) + (##car _%e135181136212%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl133896134932%_)) - (let ((_%__splice137563137564%_ + (gx#stx-pair/null? _%tl135183136219%_)) + (let ((_%__splice138850138851%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl133896134932%_ + _%tl135183136219%_ '0)))) - (let ((_%tl133899134938%_ + (let ((_%tl135186136225%_ (let () (declare (not safe)) - (##vector-ref _%__splice137563137564%_ '1))) - (_%target133897134935%_ + (##vector-ref _%__splice138850138851%_ '1))) + (_%target135184136222%_ (let () (declare (not safe)) (##vector-ref - _%__splice137563137564%_ + _%__splice138850138851%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133899134938%_)) - (_%__match137645137646%_ - _%e133867135235%_ - _%hd133868135239%_ - _%tl133869135242%_ - _%e133870135245%_ - _%hd133871135249%_ - _%tl133872135252%_ - _%e133890134911%_ - _%e133873135255%_ - _%hd133874135259%_ - _%tl133875135262%_ - _%e133894134925%_ - _%hd133895134929%_ - _%tl133896134932%_ - _%__splice137563137564%_ - _%target133897134935%_ - _%tl133899134938%_) + (gx#stx-null? _%tl135186136225%_)) + (_%__match138932138933%_ + _%e135154136522%_ + _%hd135155136526%_ + _%tl135156136529%_ + _%e135157136532%_ + _%hd135158136536%_ + _%tl135159136539%_ + _%e135177136198%_ + _%e135160136542%_ + _%hd135161136546%_ + _%tl135162136549%_ + _%e135181136212%_ + _%hd135182136216%_ + _%tl135183136219%_ + _%__splice138850138851%_ + _%target135184136222%_ + _%tl135186136225%_) (let () (declare (not safe)) - (_%g133861134055%_))))) - (let () (declare (not safe)) (_%g133861134055%_))))) - (let () (declare (not safe)) (_%g133861134055%_))) + (_%g135148135342%_))))) + (let () (declare (not safe)) (_%g135148135342%_))))) + (let () (declare (not safe)) (_%g135148135342%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g133861134055%_)))) + (_%g135148135342%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd133871135249%_)) - (let ((_%e133939134506%_ + _%hd135158136536%_)) + (let ((_%e135226135793%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133871135249%_)))) - (let ((_%tl133941134513%_ + _%hd135158136536%_)))) + (let ((_%tl135228135800%_ (let () (declare (not safe)) - (##cdr _%e133939134506%_))) - (_%hd133940134510%_ + (##cdr _%e135226135793%_))) + (_%hd135227135797%_ (let () (declare (not safe)) - (##car _%e133939134506%_)))) + (##car _%e135226135793%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl133941134513%_)) - (let ((_%__splice137569137570%_ + _%tl135228135800%_)) + (let ((_%__splice138856138857%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl133941134513%_ '0)))) - (let ((_%tl133944134519%_ + (gx#syntax-split-splice _%tl135228135800%_ '0)))) + (let ((_%tl135231135806%_ (let () (declare (not safe)) - (##vector-ref _%__splice137569137570%_ '1))) - (_%target133942134516%_ + (##vector-ref _%__splice138856138857%_ '1))) + (_%target135229135803%_ (let () (declare (not safe)) - (##vector-ref _%__splice137569137570%_ '0)))) + (##vector-ref _%__splice138856138857%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133944134519%_)) - (_%__match137671137672%_ - _%e133867135235%_ - _%hd133868135239%_ - _%tl133869135242%_ - _%e133870135245%_ - _%hd133871135249%_ - _%tl133872135252%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_) - (let () (declare (not safe)) (_%g133861134055%_))))) - (let () (declare (not safe)) (_%g133861134055%_))))) + (gx#stx-null? _%tl135231135806%_)) + (_%__match138958138959%_ + _%e135154136522%_ + _%hd135155136526%_ + _%tl135156136529%_ + _%e135157136532%_ + _%hd135158136536%_ + _%tl135159136539%_ + _%e135226135793%_ + _%hd135227135797%_ + _%tl135228135800%_ + _%__splice138856138857%_ + _%target135229135803%_ + _%tl135231135806%_) + (let () (declare (not safe)) (_%g135148135342%_))))) + (let () (declare (not safe)) (_%g135148135342%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g133861134055%_))))))) + (_%g135148135342%_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd133871135249%_)) - (let ((_%e133890134911%_ + (gx#stx-datum? _%hd135158136536%_)) + (let ((_%e135177136198%_ (let () (declare (not safe)) - (gx#stx-e _%hd133871135249%_)))) + (gx#stx-e _%hd135158136536%_)))) (declare (not safe)) - (_%g133861134055%_)) + (_%g135148135342%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133871135249%_)) - (let ((_%e133939134506%_ + (gx#stx-pair? _%hd135158136536%_)) + (let ((_%e135226135793%_ (let () (declare (not safe)) (gx#syntax-e - _%hd133871135249%_)))) - (let ((_%tl133941134513%_ + _%hd135158136536%_)))) + (let ((_%tl135228135800%_ (let () (declare (not safe)) - (##cdr _%e133939134506%_))) - (_%hd133940134510%_ + (##cdr _%e135226135793%_))) + (_%hd135227135797%_ (let () (declare (not safe)) - (##car _%e133939134506%_)))) + (##car _%e135226135793%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl133941134513%_)) - (let ((_%__splice137569137570%_ + _%tl135228135800%_)) + (let ((_%__splice138856138857%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl133941134513%_ + _%tl135228135800%_ '0)))) - (let ((_%tl133944134519%_ + (let ((_%tl135231135806%_ (let () (declare (not safe)) (##vector-ref - _%__splice137569137570%_ + _%__splice138856138857%_ '1))) - (_%target133942134516%_ + (_%target135229135803%_ (let () (declare (not safe)) (##vector-ref - _%__splice137569137570%_ + _%__splice138856138857%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133944134519%_)) - (_%__match137671137672%_ - _%e133867135235%_ - _%hd133868135239%_ - _%tl133869135242%_ - _%e133870135245%_ - _%hd133871135249%_ - _%tl133872135252%_ - _%e133939134506%_ - _%hd133940134510%_ - _%tl133941134513%_ - _%__splice137569137570%_ - _%target133942134516%_ - _%tl133944134519%_) + _%tl135231135806%_)) + (_%__match138958138959%_ + _%e135154136522%_ + _%hd135155136526%_ + _%tl135156136529%_ + _%e135157136532%_ + _%hd135158136536%_ + _%tl135159136539%_ + _%e135226135793%_ + _%hd135227135797%_ + _%tl135228135800%_ + _%__splice138856138857%_ + _%target135229135803%_ + _%tl135231135806%_) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g133861134055%_))))) + (_%g135148135342%_))))) (let () (declare (not safe)) - (_%g133861134055%_))))))) - (let () (declare (not safe)) (_%g133861134055%_))))) - (let () (declare (not safe)) (_%g133861134055%_)))))))) + (_%g135148135342%_))))))) + (let () (declare (not safe)) (_%g135148135342%_))))) + (let () (declare (not safe)) (_%g135148135342%_)))))))) (define |gxc[:0:]#::void-expression| - (let ((__obj137724 + (let ((__obj139011 (let () (declare (not safe)) (##structure @@ -2603,7 +2603,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137724 + __obj139011 'gxc#::void-expression::t '1 '#f @@ -2611,65 +2611,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137724 + __obj139011 '::void-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139011 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139011 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139011 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '#f '11 '#f '#f)) - (let ((__tmp137840 |gxc[1]#_g137841_|)) + (##unchecked-structure-set! __obj139011 '#f '11 '#f '#f)) + (let ((__tmp139127 |gxc[1]#_g139128_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137724 __tmp137840 '12 '#f '#f)) - (let ((__tmp137842 |gxc[1]#_g137843_|)) + (##unchecked-structure-set! __obj139011 __tmp139127 '12 '#f '#f)) + (let ((__tmp139129 |gxc[1]#_g139130_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137724 __tmp137842 '13 '#f '#f)) - (let ((__tmp137844 |gxc[1]#_g137845_|)) + (##unchecked-structure-set! __obj139011 __tmp139129 '13 '#f '#f)) + (let ((__tmp139131 |gxc[1]#_g139132_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137724 __tmp137844 '14 '#f '#f)) + (##unchecked-structure-set! __obj139011 __tmp139131 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139011 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137724 '() '20 '#f '#f)) - __obj137724)) + (##unchecked-structure-set! __obj139011 '() '20 '#f '#f)) + __obj139011)) (define |gxc[:0:]#::void-special-form| - (let ((__obj137725 + (let ((__obj139012 (let () (declare (not safe)) (##structure @@ -2698,7 +2698,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137725 + __obj139012 'gxc#::void-special-form::t '1 '#f @@ -2706,65 +2706,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137725 + __obj139012 '::void-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139012 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139012 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139012 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '#f '11 '#f '#f)) - (let ((__tmp137846 |gxc[1]#_g137847_|)) + (##unchecked-structure-set! __obj139012 '#f '11 '#f '#f)) + (let ((__tmp139133 |gxc[1]#_g139134_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137725 __tmp137846 '12 '#f '#f)) - (let ((__tmp137848 |gxc[1]#_g137849_|)) + (##unchecked-structure-set! __obj139012 __tmp139133 '12 '#f '#f)) + (let ((__tmp139135 |gxc[1]#_g139136_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137725 __tmp137848 '13 '#f '#f)) - (let ((__tmp137850 |gxc[1]#_g137851_|)) + (##unchecked-structure-set! __obj139012 __tmp139135 '13 '#f '#f)) + (let ((__tmp139137 |gxc[1]#_g139138_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137725 __tmp137850 '14 '#f '#f)) + (##unchecked-structure-set! __obj139012 __tmp139137 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139012 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137725 '() '20 '#f '#f)) - __obj137725)) + (##unchecked-structure-set! __obj139012 '() '20 '#f '#f)) + __obj139012)) (define |gxc[:0:]#::void| - (let ((__obj137726 + (let ((__obj139013 (let () (declare (not safe)) (##structure @@ -2792,65 +2792,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 'gxc#::void::t '1 '#f '#f)) + (##unchecked-structure-set! __obj139013 'gxc#::void::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '::void '2 '#f '#f)) + (##unchecked-structure-set! __obj139013 '::void '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139013 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '6 '#f '#f)) - (let ((__tmp137852 - (cons |gxc[1]#_g137853_| (cons |gxc[1]#_g137854_| '())))) + (##unchecked-structure-set! __obj139013 '() '6 '#f '#f)) + (let ((__tmp139139 + (cons |gxc[1]#_g139140_| (cons |gxc[1]#_g139141_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj137726 __tmp137852 '3 '#f '#f)) + (##unchecked-structure-set! __obj139013 __tmp139139 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139013 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139013 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139013 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '#f '11 '#f '#f)) - (let ((__tmp137855 |gxc[1]#_g137856_|)) + (##unchecked-structure-set! __obj139013 '#f '11 '#f '#f)) + (let ((__tmp139142 |gxc[1]#_g139143_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137726 __tmp137855 '12 '#f '#f)) - (let ((__tmp137857 |gxc[1]#_g137858_|)) + (##unchecked-structure-set! __obj139013 __tmp139142 '12 '#f '#f)) + (let ((__tmp139144 |gxc[1]#_g139145_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137726 __tmp137857 '13 '#f '#f)) - (let ((__tmp137859 |gxc[1]#_g137860_|)) + (##unchecked-structure-set! __obj139013 __tmp139144 '13 '#f '#f)) + (let ((__tmp139146 |gxc[1]#_g139147_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137726 __tmp137859 '14 '#f '#f)) + (##unchecked-structure-set! __obj139013 __tmp139146 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139013 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139013 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139013 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139013 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139013 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139013 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137726 '() '20 '#f '#f)) - __obj137726)) + (##unchecked-structure-set! __obj139013 '() '20 '#f '#f)) + __obj139013)) (define |gxc[:0:]#::false-expression| - (let ((__obj137727 + (let ((__obj139014 (let () (declare (not safe)) (##structure @@ -2879,7 +2879,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137727 + __obj139014 'gxc#::false-expression::t '1 '#f @@ -2887,65 +2887,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137727 + __obj139014 '::false-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139014 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139014 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139014 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '#f '11 '#f '#f)) - (let ((__tmp137861 |gxc[1]#_g137862_|)) + (##unchecked-structure-set! __obj139014 '#f '11 '#f '#f)) + (let ((__tmp139148 |gxc[1]#_g139149_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137727 __tmp137861 '12 '#f '#f)) - (let ((__tmp137863 |gxc[1]#_g137864_|)) + (##unchecked-structure-set! __obj139014 __tmp139148 '12 '#f '#f)) + (let ((__tmp139150 |gxc[1]#_g139151_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137727 __tmp137863 '13 '#f '#f)) - (let ((__tmp137865 |gxc[1]#_g137866_|)) + (##unchecked-structure-set! __obj139014 __tmp139150 '13 '#f '#f)) + (let ((__tmp139152 |gxc[1]#_g139153_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137727 __tmp137865 '14 '#f '#f)) + (##unchecked-structure-set! __obj139014 __tmp139152 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139014 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137727 '() '20 '#f '#f)) - __obj137727)) + (##unchecked-structure-set! __obj139014 '() '20 '#f '#f)) + __obj139014)) (define |gxc[:0:]#::false-special-form| - (let ((__obj137728 + (let ((__obj139015 (let () (declare (not safe)) (##structure @@ -2974,7 +2974,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137728 + __obj139015 'gxc#::false-special-form::t '1 '#f @@ -2982,65 +2982,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137728 + __obj139015 '::false-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139015 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139015 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139015 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '#f '11 '#f '#f)) - (let ((__tmp137867 |gxc[1]#_g137868_|)) + (##unchecked-structure-set! __obj139015 '#f '11 '#f '#f)) + (let ((__tmp139154 |gxc[1]#_g139155_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137728 __tmp137867 '12 '#f '#f)) - (let ((__tmp137869 |gxc[1]#_g137870_|)) + (##unchecked-structure-set! __obj139015 __tmp139154 '12 '#f '#f)) + (let ((__tmp139156 |gxc[1]#_g139157_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137728 __tmp137869 '13 '#f '#f)) - (let ((__tmp137871 |gxc[1]#_g137872_|)) + (##unchecked-structure-set! __obj139015 __tmp139156 '13 '#f '#f)) + (let ((__tmp139158 |gxc[1]#_g139159_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137728 __tmp137871 '14 '#f '#f)) + (##unchecked-structure-set! __obj139015 __tmp139158 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139015 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137728 '() '20 '#f '#f)) - __obj137728)) + (##unchecked-structure-set! __obj139015 '() '20 '#f '#f)) + __obj139015)) (define |gxc[:0:]#::false| - (let ((__obj137729 + (let ((__obj139016 (let () (declare (not safe)) (##structure @@ -3068,65 +3068,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 'gxc#::false::t '1 '#f '#f)) + (##unchecked-structure-set! __obj139016 'gxc#::false::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '::false '2 '#f '#f)) + (##unchecked-structure-set! __obj139016 '::false '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139016 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '6 '#f '#f)) - (let ((__tmp137873 - (cons |gxc[1]#_g137874_| (cons |gxc[1]#_g137875_| '())))) + (##unchecked-structure-set! __obj139016 '() '6 '#f '#f)) + (let ((__tmp139160 + (cons |gxc[1]#_g139161_| (cons |gxc[1]#_g139162_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj137729 __tmp137873 '3 '#f '#f)) + (##unchecked-structure-set! __obj139016 __tmp139160 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139016 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139016 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139016 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '#f '11 '#f '#f)) - (let ((__tmp137876 |gxc[1]#_g137877_|)) + (##unchecked-structure-set! __obj139016 '#f '11 '#f '#f)) + (let ((__tmp139163 |gxc[1]#_g139164_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137729 __tmp137876 '12 '#f '#f)) - (let ((__tmp137878 |gxc[1]#_g137879_|)) + (##unchecked-structure-set! __obj139016 __tmp139163 '12 '#f '#f)) + (let ((__tmp139165 |gxc[1]#_g139166_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137729 __tmp137878 '13 '#f '#f)) - (let ((__tmp137880 |gxc[1]#_g137881_|)) + (##unchecked-structure-set! __obj139016 __tmp139165 '13 '#f '#f)) + (let ((__tmp139167 |gxc[1]#_g139168_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137729 __tmp137880 '14 '#f '#f)) + (##unchecked-structure-set! __obj139016 __tmp139167 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139016 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139016 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139016 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139016 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139016 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139016 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137729 '() '20 '#f '#f)) - __obj137729)) + (##unchecked-structure-set! __obj139016 '() '20 '#f '#f)) + __obj139016)) (define |gxc[:0:]#::identity-expression| - (let ((__obj137730 + (let ((__obj139017 (let () (declare (not safe)) (##structure @@ -3155,7 +3155,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137730 + __obj139017 'gxc#::identity-expression::t '1 '#f @@ -3163,65 +3163,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137730 + __obj139017 '::identity-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139017 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139017 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139017 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '#f '11 '#f '#f)) - (let ((__tmp137882 |gxc[1]#_g137883_|)) + (##unchecked-structure-set! __obj139017 '#f '11 '#f '#f)) + (let ((__tmp139169 |gxc[1]#_g139170_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137730 __tmp137882 '12 '#f '#f)) - (let ((__tmp137884 |gxc[1]#_g137885_|)) + (##unchecked-structure-set! __obj139017 __tmp139169 '12 '#f '#f)) + (let ((__tmp139171 |gxc[1]#_g139172_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137730 __tmp137884 '13 '#f '#f)) - (let ((__tmp137886 |gxc[1]#_g137887_|)) + (##unchecked-structure-set! __obj139017 __tmp139171 '13 '#f '#f)) + (let ((__tmp139173 |gxc[1]#_g139174_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137730 __tmp137886 '14 '#f '#f)) + (##unchecked-structure-set! __obj139017 __tmp139173 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139017 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137730 '() '20 '#f '#f)) - __obj137730)) + (##unchecked-structure-set! __obj139017 '() '20 '#f '#f)) + __obj139017)) (define |gxc[:0:]#::identity-special-form| - (let ((__obj137731 + (let ((__obj139018 (let () (declare (not safe)) (##structure @@ -3250,7 +3250,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137731 + __obj139018 'gxc#::identity-special-form::t '1 '#f @@ -3258,65 +3258,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137731 + __obj139018 '::identity-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139018 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139018 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139018 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '#f '11 '#f '#f)) - (let ((__tmp137888 |gxc[1]#_g137889_|)) + (##unchecked-structure-set! __obj139018 '#f '11 '#f '#f)) + (let ((__tmp139175 |gxc[1]#_g139176_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137731 __tmp137888 '12 '#f '#f)) - (let ((__tmp137890 |gxc[1]#_g137891_|)) + (##unchecked-structure-set! __obj139018 __tmp139175 '12 '#f '#f)) + (let ((__tmp139177 |gxc[1]#_g139178_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137731 __tmp137890 '13 '#f '#f)) - (let ((__tmp137892 |gxc[1]#_g137893_|)) + (##unchecked-structure-set! __obj139018 __tmp139177 '13 '#f '#f)) + (let ((__tmp139179 |gxc[1]#_g139180_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137731 __tmp137892 '14 '#f '#f)) + (##unchecked-structure-set! __obj139018 __tmp139179 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139018 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137731 '() '20 '#f '#f)) - __obj137731)) + (##unchecked-structure-set! __obj139018 '() '20 '#f '#f)) + __obj139018)) (define |gxc[:0:]#::identity| - (let ((__obj137732 + (let ((__obj139019 (let () (declare (not safe)) (##structure @@ -3345,69 +3345,69 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137732 + __obj139019 'gxc#::identity::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '::identity '2 '#f '#f)) + (##unchecked-structure-set! __obj139019 '::identity '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139019 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '6 '#f '#f)) - (let ((__tmp137894 - (cons |gxc[1]#_g137895_| (cons |gxc[1]#_g137896_| '())))) + (##unchecked-structure-set! __obj139019 '() '6 '#f '#f)) + (let ((__tmp139181 + (cons |gxc[1]#_g139182_| (cons |gxc[1]#_g139183_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj137732 __tmp137894 '3 '#f '#f)) + (##unchecked-structure-set! __obj139019 __tmp139181 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139019 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139019 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139019 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '#f '11 '#f '#f)) - (let ((__tmp137897 |gxc[1]#_g137898_|)) + (##unchecked-structure-set! __obj139019 '#f '11 '#f '#f)) + (let ((__tmp139184 |gxc[1]#_g139185_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137732 __tmp137897 '12 '#f '#f)) - (let ((__tmp137899 |gxc[1]#_g137900_|)) + (##unchecked-structure-set! __obj139019 __tmp139184 '12 '#f '#f)) + (let ((__tmp139186 |gxc[1]#_g139187_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137732 __tmp137899 '13 '#f '#f)) - (let ((__tmp137901 |gxc[1]#_g137902_|)) + (##unchecked-structure-set! __obj139019 __tmp139186 '13 '#f '#f)) + (let ((__tmp139188 |gxc[1]#_g139189_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137732 __tmp137901 '14 '#f '#f)) + (##unchecked-structure-set! __obj139019 __tmp139188 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139019 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139019 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139019 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139019 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139019 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139019 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137732 '() '20 '#f '#f)) - __obj137732)) + (##unchecked-structure-set! __obj139019 '() '20 '#f '#f)) + __obj139019)) (define |gxc[:0:]#::basic-xform-expression| - (let ((__obj137733 + (let ((__obj139020 (let () (declare (not safe)) (##structure @@ -3436,7 +3436,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137733 + __obj139020 'gxc#::basic-xform-expression::t '1 '#f @@ -3444,65 +3444,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137733 + __obj139020 '::basic-xform-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139020 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139020 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139020 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '#f '11 '#f '#f)) - (let ((__tmp137903 |gxc[1]#_g137904_|)) + (##unchecked-structure-set! __obj139020 '#f '11 '#f '#f)) + (let ((__tmp139190 |gxc[1]#_g139191_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137733 __tmp137903 '12 '#f '#f)) - (let ((__tmp137905 |gxc[1]#_g137906_|)) + (##unchecked-structure-set! __obj139020 __tmp139190 '12 '#f '#f)) + (let ((__tmp139192 |gxc[1]#_g139193_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137733 __tmp137905 '13 '#f '#f)) - (let ((__tmp137907 |gxc[1]#_g137908_|)) + (##unchecked-structure-set! __obj139020 __tmp139192 '13 '#f '#f)) + (let ((__tmp139194 |gxc[1]#_g139195_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137733 __tmp137907 '14 '#f '#f)) + (##unchecked-structure-set! __obj139020 __tmp139194 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139020 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137733 '() '20 '#f '#f)) - __obj137733)) + (##unchecked-structure-set! __obj139020 '() '20 '#f '#f)) + __obj139020)) (define |gxc[:0:]#::basic-xform| - (let ((__obj137734 + (let ((__obj139021 (let () (declare (not safe)) (##structure @@ -3531,64 +3531,64 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137734 + __obj139021 'gxc#::basic-xform::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '::basic-xform '2 '#f '#f)) + (##unchecked-structure-set! __obj139021 '::basic-xform '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj139021 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '6 '#f '#f)) - (let ((__tmp137909 - (cons |gxc[1]#_g137910_| (cons |gxc[1]#_g137911_| '())))) + (##unchecked-structure-set! __obj139021 '() '6 '#f '#f)) + (let ((__tmp139196 + (cons |gxc[1]#_g139197_| (cons |gxc[1]#_g139198_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj137734 __tmp137909 '3 '#f '#f)) + (##unchecked-structure-set! __obj139021 __tmp139196 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj139021 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj139021 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj139021 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '#f '11 '#f '#f)) - (let ((__tmp137912 |gxc[1]#_g137913_|)) + (##unchecked-structure-set! __obj139021 '#f '11 '#f '#f)) + (let ((__tmp139199 |gxc[1]#_g139200_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137734 __tmp137912 '12 '#f '#f)) - (let ((__tmp137914 |gxc[1]#_g137915_|)) + (##unchecked-structure-set! __obj139021 __tmp139199 '12 '#f '#f)) + (let ((__tmp139201 |gxc[1]#_g139202_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137734 __tmp137914 '13 '#f '#f)) - (let ((__tmp137916 |gxc[1]#_g137917_|)) + (##unchecked-structure-set! __obj139021 __tmp139201 '13 '#f '#f)) + (let ((__tmp139203 |gxc[1]#_g139204_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137734 __tmp137916 '14 '#f '#f)) + (##unchecked-structure-set! __obj139021 __tmp139203 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj139021 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj139021 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj139021 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj139021 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj139021 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj139021 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137734 '() '20 '#f '#f)) - __obj137734)))) + (##unchecked-structure-set! __obj139021 '() '20 '#f '#f)) + __obj139021)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~0.scm b/src/bootstrap/gerbil/compiler/optimize-ann~0.scm index ae7b91ef4..0a898a2c2 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 1713631271) + (define gerbil/compiler/optimize-ann::timestamp 1734357966) (begin (declare (inlining-limit 200)) (define gxc#::optimize-annotated::t - (let ((__tmp192243 (list gxc#::basic-xform::t)) - (__tmp192242 (cons (cons 'final: '#t) '()))) + (let ((__tmp193530 (list gxc#::basic-xform::t)) + (__tmp193529 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::optimize-annotated::t '::optimize-annotated - __tmp192243 + __tmp193530 '() - __tmp192242 + __tmp193529 '#f))) (define gxc#::optimize-annotated? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-annotated::t))) (define gxc#make-::optimize-annotated - (lambda _%$args189128%_ - (apply make-instance gxc#::optimize-annotated::t _%$args189128%_))) + (lambda _%$args190415%_ + (apply make-instance gxc#::optimize-annotated::t _%$args190415%_))) (define gxc#::optimize-annotated-bind-methods! - (let ((__tmp192244 + (let ((__tmp193531 (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 __tmp192244))) + (__make-promise __tmp193531))) (define gxc#apply-optimize-annotated - (lambda (_%stx189120%_) + (lambda (_%stx190407%_) (force gxc#::optimize-annotated-bind-methods!) - (let* ((_%self189123%_ - (let ((__obj192234 + (let* ((_%self190410%_ + (let ((__obj193521 (let () (declare (not safe)) (##structure gxc#::optimize-annotated::t)))) - __obj192234)) - (__tmp192245 + __obj193521)) + (__tmp193532 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self189123%_ _%stx189120%_))))) + (gxc#compile-e__1 _%self190410%_ _%stx190407%_))))) (declare (not safe)) (__call-with-parameters - __tmp192245 + __tmp193532 gxc#current-compile-method - _%self189123%_)))) + _%self190410%_)))) (define gxc#::generate-runtime-repr::t - (let ((__tmp192247 (list gxc#::generate-runtime::t)) - (__tmp192246 (cons (cons 'final: '#t) '()))) + (let ((__tmp193534 (list gxc#::generate-runtime::t)) + (__tmp193533 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-repr::t '::generate-runtime-repr - __tmp192247 + __tmp193534 '() - __tmp192246 + __tmp193533 '#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 _%$args189117%_ - (apply make-instance gxc#::generate-runtime-repr::t _%$args189117%_))) + (lambda _%$args190404%_ + (apply make-instance gxc#::generate-runtime-repr::t _%$args190404%_))) (define gxc#::generate-runtime-repr-bind-methods! - (let ((__tmp192248 + (let ((__tmp193535 (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 __tmp192248))) + (__make-promise __tmp193535))) (define gxc#apply-generate-runtime-repr - (lambda (_%stx189109%_) + (lambda (_%stx190396%_) (force gxc#::generate-runtime-repr-bind-methods!) - (let* ((_%self189112%_ - (let ((__obj192236 + (let* ((_%self190399%_ + (let ((__obj193523 (let () (declare (not safe)) (##structure gxc#::generate-runtime-repr::t)))) - __obj192236)) - (__tmp192249 + __obj193523)) + (__tmp193536 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self189112%_ _%stx189109%_))))) + (gxc#compile-e__1 _%self190399%_ _%stx190396%_))))) (declare (not safe)) (__call-with-parameters - __tmp192249 + __tmp193536 gxc#current-compile-method - _%self189112%_)))) + _%self190399%_)))) (define gxc#::push-match-vars::t - (let ((__tmp192251 (list)) (__tmp192250 (cons (cons 'final: '#t) '()))) + (let ((__tmp193538 (list)) (__tmp193537 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::push-match-vars::t '::push-match-vars - __tmp192251 + __tmp193538 '(vars K) - __tmp192250 + __tmp193537 '#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 _%$args189106%_ - (apply make-instance gxc#::push-match-vars::t _%$args189106%_))) + (lambda _%$args190393%_ + (apply make-instance gxc#::push-match-vars::t _%$args190393%_))) (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 ((__tmp192252 + (let ((__tmp193539 (lambda () (let () (declare (not safe)) @@ -199,1646 +199,1646 @@ (declare (not safe)) (__seal-class! gxc#::push-match-vars::t))))) (declare (not safe)) - (__make-promise __tmp192252))) + (__make-promise __tmp193539))) (define gxc#apply-push-match-vars__% - (lambda (_%@@keywords189076%_ - _%vars189072189077%_ - _%K189073189079%_ - _%stx189081%_) - (let* ((_%vars189084%_ - (if (eq? _%vars189072189077%_ absent-value) + (lambda (_%@@keywords190363%_ + _%vars190359190364%_ + _%K190360190366%_ + _%stx190368%_) + (let* ((_%vars190371%_ + (if (eq? _%vars190359190364%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'vars:)) - _%vars189072189077%_)) - (_%K189086%_ - (if (eq? _%K189073189079%_ absent-value) + _%vars190359190364%_)) + (_%K190373%_ + (if (eq? _%K190360190366%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'K:)) - _%K189073189079%_))) + _%K190360190366%_))) (force gxc#::push-match-vars-bind-methods!) - (let* ((_%self189088%_ - (let ((__obj192238 + (let* ((_%self190375%_ + (let ((__obj193525 (let () (declare (not safe)) (##structure gxc#::push-match-vars::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj192238 - _%vars189084%_ + __obj193525 + _%vars190371%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj192238 - _%K189086%_ + __obj193525 + _%K190373%_ '2 '#f '#f)) - __obj192238)) - (__tmp192253 + __obj193525)) + (__tmp193540 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self189088%_ _%stx189081%_))))) + (gxc#compile-e__1 _%self190375%_ _%stx190368%_))))) (declare (not safe)) (__call-with-parameters - __tmp192253 + __tmp193540 gxc#current-compile-method - _%self189088%_))))) + _%self190375%_))))) (define gxc#apply-push-match-vars__@ - (lambda (_%@@keywords189095%_ . _%args189096%_) + (lambda (_%@@keywords190382%_ . _%args190383%_) (apply gxc#apply-push-match-vars__% - _%@@keywords189095%_ + _%@@keywords190382%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords189095%_ 'vars: absent-value)) + (symbolic-table-ref _%@@keywords190382%_ 'vars: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords189095%_ 'K: absent-value)) - _%args189096%_))) + (symbolic-table-ref _%@@keywords190382%_ 'K: absent-value)) + _%args190383%_))) (define gxc#apply-push-match-vars - (lambda _%args189074189102%_ + (lambda _%args190361190389%_ (apply keyword-dispatch '#(K: vars:) gxc#apply-push-match-vars__@ - _%args189074189102%_))) + _%args190361190389%_))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_%self188988%_ _%stx188989%_) - (let* ((_%__stx189144189145%_ _%stx188989%_) - (_%g188992189009%_ + (lambda (_%self190275%_ _%stx190276%_) + (let* ((_%__stx190431190432%_ _%stx190276%_) + (_%g190279190296%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189144189145%_))))) - (let ((_%__kont189146189147%_ - (lambda (_%L189045%_ _%L189046%_) - (let ((_%ann189062%_ + _%__stx190431190432%_))))) + (let ((_%__kont190433190434%_ + (lambda (_%L190332%_ _%L190333%_) + (let ((_%ann190349%_ (let () (declare (not safe)) - (gx#stx-e _%L189046%_)))) - (let ((__tmp192255 + (gx#stx-e _%L190333%_)))) + (let ((__tmp193542 (lambda () - (let ((_%$e189065%_ _%ann189062%_)) - (if (eq? '@match _%$e189065%_) + (let ((_%$e190352%_ _%ann190349%_)) + (if (eq? '@match _%$e190352%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing match expansion")) - (gxc#optimize-match _%L189045%_)) - (if (eq? '@syntax-case _%$e189065%_) + (gxc#optimize-match _%L190332%_)) + (if (eq? '@syntax-case _%$e190352%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing syntax-case expansion")) (gxc#optimize-syntax-case - _%L189045%_)) + _%L190332%_)) (let () (declare (not safe)) - (gxc#compile-e__0 _%L189045%_))))))) - (__tmp192254 - (cons _%ann189062%_ + (gxc#compile-e__0 _%L190332%_))))))) + (__tmp193541 + (cons _%ann190349%_ (let () (declare (not safe)) (gxc#current-annotation-optimizer))))) (declare (not safe)) (__call-with-parameters - __tmp192255 + __tmp193542 gxc#current-annotation-optimizer - __tmp192254))))) - (_%__kont189148189149%_ + __tmp193541))))) + (_%__kont190435190436%_ (lambda () (let () (declare (not safe)) (gxc#xform-begin-annotation% - _%self188988%_ - _%stx188989%_))))) - (let ((_%__match189169189170%_ - (lambda (_%e188996189021%_ - _%hd188997189024%_ - _%tl188998189026%_ - _%e188999189029%_ - _%hd189000189032%_ - _%tl189001189034%_ - _%e189002189037%_ - _%hd189003189040%_ - _%tl189004189042%_) - (let ((_%L189045%_ _%hd189003189040%_) - (_%L189046%_ _%hd189000189032%_)) + _%self190275%_ + _%stx190276%_))))) + (let ((_%__match190456190457%_ + (lambda (_%e190283190308%_ + _%hd190284190311%_ + _%tl190285190313%_ + _%e190286190316%_ + _%hd190287190319%_ + _%tl190288190321%_ + _%e190289190324%_ + _%hd190290190327%_ + _%tl190291190329%_) + (let ((_%L190332%_ _%hd190290190327%_) + (_%L190333%_ _%hd190287190319%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L189046%_)) - (_%__kont189146189147%_ _%L189045%_ _%L189046%_) - (_%__kont189148189149%_)))))) + (gx#identifier? _%L190333%_)) + (_%__kont190433190434%_ _%L190332%_ _%L190333%_) + (_%__kont190435190436%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189144189145%_)) - (let ((_%e188996189021%_ + (gx#stx-pair? _%__stx190431190432%_)) + (let ((_%e190283190308%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189144189145%_)))) - (let ((_%tl188998189026%_ + (gx#stx-e _%__stx190431190432%_)))) + (let ((_%tl190285190313%_ (let () (declare (not safe)) - (##cdr _%e188996189021%_))) - (_%hd188997189024%_ + (##cdr _%e190283190308%_))) + (_%hd190284190311%_ (let () (declare (not safe)) - (##car _%e188996189021%_)))) + (##car _%e190283190308%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188998189026%_)) - (let ((_%e188999189029%_ + (gx#stx-pair? _%tl190285190313%_)) + (let ((_%e190286190316%_ (let () (declare (not safe)) - (gx#stx-e _%tl188998189026%_)))) - (let ((_%tl189001189034%_ + (gx#stx-e _%tl190285190313%_)))) + (let ((_%tl190288190321%_ (let () (declare (not safe)) - (##cdr _%e188999189029%_))) - (_%hd189000189032%_ + (##cdr _%e190286190316%_))) + (_%hd190287190319%_ (let () (declare (not safe)) - (##car _%e188999189029%_)))) + (##car _%e190286190316%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189001189034%_)) - (let ((_%e189002189037%_ + (gx#stx-pair? _%tl190288190321%_)) + (let ((_%e190289190324%_ (let () (declare (not safe)) - (gx#stx-e _%tl189001189034%_)))) - (let ((_%tl189004189042%_ + (gx#stx-e _%tl190288190321%_)))) + (let ((_%tl190291190329%_ (let () (declare (not safe)) - (##cdr _%e189002189037%_))) - (_%hd189003189040%_ + (##cdr _%e190289190324%_))) + (_%hd190290190327%_ (let () (declare (not safe)) - (##car _%e189002189037%_)))) + (##car _%e190289190324%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189004189042%_)) - (_%__match189169189170%_ - _%e188996189021%_ - _%hd188997189024%_ - _%tl188998189026%_ - _%e188999189029%_ - _%hd189000189032%_ - _%tl189001189034%_ - _%e189002189037%_ - _%hd189003189040%_ - _%tl189004189042%_) - (_%__kont189148189149%_)))) - (_%__kont189148189149%_)))) - (_%__kont189148189149%_)))) - (_%__kont189148189149%_))))))) + (gx#stx-null? _%tl190291190329%_)) + (_%__match190456190457%_ + _%e190283190308%_ + _%hd190284190311%_ + _%tl190285190313%_ + _%e190286190316%_ + _%hd190287190319%_ + _%tl190288190321%_ + _%e190289190324%_ + _%hd190290190327%_ + _%tl190291190329%_) + (_%__kont190435190436%_)))) + (_%__kont190435190436%_)))) + (_%__kont190435190436%_)))) + (_%__kont190435190436%_))))))) (define gxc#optimize-match - (lambda (_%stx188287%_) - (let* ((_%g188289188319%_ - (lambda (_%g188290188316%_) + (lambda (_%stx189574%_) + (let* ((_%g189576189606%_ + (lambda (_%g189577189603%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g188290188316%_)))) - (_%g188288188985%_ - (lambda (_%g188290188322%_) + _%g189577189603%_)))) + (_%g189575190272%_ + (lambda (_%g189577189609%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g188290188322%_)) - (let ((_%e188294188324%_ + (gx#stx-pair? _%g189577189609%_)) + (let ((_%e189581189611%_ (let () (declare (not safe)) - (gx#stx-e _%g188290188322%_)))) - (let ((_%hd188295188327%_ + (gx#stx-e _%g189577189609%_)))) + (let ((_%hd189582189614%_ (let () (declare (not safe)) - (##car _%e188294188324%_))) - (_%tl188296188329%_ + (##car _%e189581189611%_))) + (_%tl189583189616%_ (let () (declare (not safe)) - (##cdr _%e188294188324%_)))) + (##cdr _%e189581189611%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188295188327%_)) + (gx#identifier? _%hd189582189614%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188295188327%_)) + _%hd189582189614%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188296188329%_)) - (let ((_%e188297188332%_ + (gx#stx-pair? _%tl189583189616%_)) + (let ((_%e189584189619%_ (let () (declare (not safe)) - (gx#stx-e _%tl188296188329%_)))) - (let ((_%hd188298188335%_ + (gx#stx-e _%tl189583189616%_)))) + (let ((_%hd189585189622%_ (let () (declare (not safe)) - (##car _%e188297188332%_))) - (_%tl188299188337%_ + (##car _%e189584189619%_))) + (_%tl189586189624%_ (let () (declare (not safe)) - (##cdr _%e188297188332%_)))) + (##cdr _%e189584189619%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188298188335%_)) - (let ((_%e188300188340%_ + _%hd189585189622%_)) + (let ((_%e189587189627%_ (let () (declare (not safe)) (gx#stx-e - _%hd188298188335%_)))) - (let ((_%hd188301188343%_ + _%hd189585189622%_)))) + (let ((_%hd189588189630%_ (let () (declare (not safe)) - (##car _%e188300188340%_))) - (_%tl188302188345%_ + (##car _%e189587189627%_))) + (_%tl189589189632%_ (let () (declare (not safe)) - (##cdr _%e188300188340%_)))) + (##cdr _%e189587189627%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188301188343%_)) - (let ((_%e188303188348%_ + _%hd189588189630%_)) + (let ((_%e189590189635%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd188301188343%_)))) - (let ((_%hd188304188351%_ - (let () (declare (not safe)) (##car _%e188303188348%_))) - (_%tl188305188353%_ + (gx#stx-e _%hd189588189630%_)))) + (let ((_%hd189591189638%_ + (let () (declare (not safe)) (##car _%e189590189635%_))) + (_%tl189592189640%_ (let () (declare (not safe)) - (##cdr _%e188303188348%_)))) + (##cdr _%e189590189635%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188304188351%_)) - (let ((_%e188306188356%_ + (gx#stx-pair? _%hd189591189638%_)) + (let ((_%e189593189643%_ (let () (declare (not safe)) - (gx#stx-e _%hd188304188351%_)))) - (let ((_%hd188307188359%_ + (gx#stx-e _%hd189591189638%_)))) + (let ((_%hd189594189646%_ (let () (declare (not safe)) - (##car _%e188306188356%_))) - (_%tl188308188361%_ + (##car _%e189593189643%_))) + (_%tl189595189648%_ (let () (declare (not safe)) - (##cdr _%e188306188356%_)))) + (##cdr _%e189593189643%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188308188361%_)) + (gx#stx-null? _%tl189595189648%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188305188353%_)) - (let ((_%e188309188364%_ + (gx#stx-pair? _%tl189592189640%_)) + (let ((_%e189596189651%_ (let () (declare (not safe)) - (gx#stx-e _%tl188305188353%_)))) - (let ((_%hd188310188367%_ + (gx#stx-e _%tl189592189640%_)))) + (let ((_%hd189597189654%_ (let () (declare (not safe)) - (##car _%e188309188364%_))) - (_%tl188311188369%_ + (##car _%e189596189651%_))) + (_%tl189598189656%_ (let () (declare (not safe)) - (##cdr _%e188309188364%_)))) + (##cdr _%e189596189651%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188311188369%_)) + (gx#stx-null? _%tl189598189656%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188302188345%_)) + _%tl189589189632%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188299188337%_)) - (let ((_%e188312188372%_ + _%tl189586189624%_)) + (let ((_%e189599189659%_ (let () (declare (not safe)) (gx#stx-e - _%tl188299188337%_)))) - (let ((_%hd188313188375%_ + _%tl189586189624%_)))) + (let ((_%hd189600189662%_ (let () (declare (not safe)) - (##car _%e188312188372%_))) - (_%tl188314188377%_ + (##car _%e189599189659%_))) + (_%tl189601189664%_ (let () (declare (not safe)) - (##cdr _%e188312188372%_)))) + (##cdr _%e189599189659%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188314188377%_)) - ((lambda (_%L188380%_ + _%tl189601189664%_)) + ((lambda (_%L189667%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L188381%_ - _%L188382%_) - (let _%lp188406%_ ((_%body188408%_ _%L188380%_) - (_%negation188409%_ - (cons _%L188382%_ _%L188381%_)) - (_%clauses188410%_ '()) - (_%konts188411%_ '())) - (let* ((_%__stx189352189353%_ _%body188408%_) - (_%g188414188454%_ + _%L189668%_ + _%L189669%_) + (let _%lp189693%_ ((_%body189695%_ _%L189667%_) + (_%negation189696%_ + (cons _%L189669%_ _%L189668%_)) + (_%clauses189697%_ '()) + (_%konts189698%_ '())) + (let* ((_%__stx190639190640%_ _%body189695%_) + (_%g189701189741%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189352189353%_))))) - (let ((_%__kont189354189355%_ - (lambda (_%L188784%_) - (let* ((_%__stx189288189289%_ _%L188784%_) - (_%g188798188828%_ + _%__stx190639190640%_))))) + (let ((_%__kont190641190642%_ + (lambda (_%L190071%_) + (let* ((_%__stx190575190576%_ _%L190071%_) + (_%g190085190115%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189288189289%_))))) - (let ((_%__kont189290189291%_ - (lambda (_%L188924%_ - _%L188925%_ - _%L188926%_) - (if (null? _%clauses188410%_) - (let* ((_%negation188950188957%_ - _%negation188409%_) - (_%E188952188961%_ + _%__stx190575190576%_))))) + (let ((_%__kont190577190578%_ + (lambda (_%L190211%_ + _%L190212%_ + _%L190213%_) + (if (null? _%clauses189697%_) + (let* ((_%negation190237190244%_ + _%negation189696%_) + (_%E190239190248%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%negation188950188957%_ + _%negation190237190244%_ '([E . negate]))) '#!void)) - (_%K188953188967%_ - (lambda (_%negate188964%_ _%E188965%_) - (let ((__tmp192256 + (_%K190240190254%_ + (lambda (_%negate190251%_ _%E190252%_) + (let ((__tmp193543 (cons '%#let-values - (cons (cons (cons (cons _%E188965%_ '()) - (cons _%negate188964%_ '())) + (cons (cons (cons (cons _%E190252%_ '()) + (cons _%negate190251%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L188926%_ + (cons (cons (cons (cons _%L190213%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%L188925%_)) + (gxc#compile-e__0 _%L190212%_)) '())) '()) - (cons _%L188924%_ '()))) + (cons _%L190211%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192256 _%stx188287%_))))) + (gxc#xform-wrap-source __tmp193543 _%stx189574%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%negation188950188957%_) - (let ((_%hd188954188970%_ + (if (pair? _%negation190237190244%_) + (let ((_%hd190241190257%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%negation188950188957%_))) - (_%tl188955188972%_ + (##car _%negation190237190244%_))) + (_%tl190242190259%_ (let () (declare (not safe)) - (##cdr _%negation188950188957%_)))) - (let* ((_%E188975%_ _%hd188954188970%_) - (_%negate188977%_ _%tl188955188972%_)) - (_%K188953188967%_ _%negate188977%_ _%E188975%_))) - (_%E188952188961%_))) + (##cdr _%negation190237190244%_)))) + (let* ((_%E190262%_ _%hd190241190257%_) + (_%negate190264%_ _%tl190242190259%_)) + (_%K190240190254%_ _%negate190264%_ _%E190262%_))) + (_%E190239190248%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#optimize-match-body - _%stx188287%_ - _%negation188409%_ + _%stx189574%_ + _%negation189696%_ (cons (cons '#f (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons '() (cons _%L188924%_ '())))) - _%clauses188410%_) + (cons '() (cons _%L190211%_ '())))) + _%clauses189697%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L188926%_ + (cons (cons _%L190213%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _%L188925%_))) - _%konts188411%_))))) + (gxc#compile-e__0 _%L190212%_))) + _%konts189698%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189292189293%_ + (_%__kont190579190580%_ (lambda () - (let* ((_%negation188834188841%_ - _%negation188409%_) - (_%E188836188845%_ + (let* ((_%negation190121190128%_ + _%negation189696%_) + (_%E190123190132%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%negation188834188841%_ + _%negation190121190128%_ '([E ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . negate]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K188837188851%_ - (lambda (_%negate188848%_ - _%E188849%_) - (let ((__tmp192257 + (_%K190124190138%_ + (lambda (_%negate190135%_ + _%E190136%_) + (let ((__tmp193544 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%E188849%_ '()) - (cons _%negate188848%_ '())) + (cons (cons (cons (cons _%E190136%_ '()) + (cons _%negate190135%_ '())) '()) - (cons _%L188784%_ '()))))) + (cons _%L190071%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192257 _%stx188287%_))))) + (gxc#xform-wrap-source __tmp193544 _%stx189574%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%negation188834188841%_) - (let ((_%hd188838188854%_ + (if (pair? _%negation190121190128%_) + (let ((_%hd190125190141%_ (let () (declare (not safe)) - (##car _%negation188834188841%_))) - (_%tl188839188856%_ + (##car _%negation190121190128%_))) + (_%tl190126190143%_ (let () (declare (not safe)) - (##cdr _%negation188834188841%_)))) - (let* ((_%E188859%_ - _%hd188838188854%_) - (_%negate188861%_ - _%tl188839188856%_)) - (_%K188837188851%_ - _%negate188861%_ - _%E188859%_))) - (_%E188836188845%_)))))) - (let ((_%g188797188863%_ + (##cdr _%negation190121190128%_)))) + (let* ((_%E190146%_ + _%hd190125190141%_) + (_%negate190148%_ + _%tl190126190143%_)) + (_%K190124190138%_ + _%negate190148%_ + _%E190146%_))) + (_%E190123190132%_)))))) + (let ((_%g190084190150%_ (lambda () - (if (null? _%clauses188410%_) - (_%__kont189292189293%_) + (if (null? _%clauses189697%_) + (_%__kont190579190580%_) (let () (declare (not safe)) - (_%g188798188828%_)))))) + (_%g190085190115%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189288189289%_)) - (let ((_%e188803188868%_ + _%__stx190575190576%_)) + (let ((_%e190090190155%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189288189289%_)))) - (let ((_%tl188805188873%_ + _%__stx190575190576%_)))) + (let ((_%tl190092190160%_ (let () (declare (not safe)) - (##cdr _%e188803188868%_))) - (_%hd188804188871%_ + (##cdr _%e190090190155%_))) + (_%hd190091190158%_ (let () (declare (not safe)) - (##car _%e188803188868%_)))) + (##car _%e190090190155%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188804188871%_)) + _%hd190091190158%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188804188871%_)) + _%hd190091190158%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188805188873%_)) - (let ((_%e188806188876%_ + _%tl190092190160%_)) + (let ((_%e190093190163%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl188805188873%_)))) - (let ((_%tl188808188881%_ + (gx#stx-e _%tl190092190160%_)))) + (let ((_%tl190095190168%_ (let () (declare (not safe)) - (##cdr _%e188806188876%_))) - (_%hd188807188879%_ + (##cdr _%e190093190163%_))) + (_%hd190094190166%_ (let () (declare (not safe)) - (##car _%e188806188876%_)))) + (##car _%e190093190163%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188807188879%_)) - (let ((_%e188809188884%_ + (gx#stx-pair? _%hd190094190166%_)) + (let ((_%e190096190171%_ (let () (declare (not safe)) - (gx#stx-e _%hd188807188879%_)))) - (let ((_%tl188811188889%_ + (gx#stx-e _%hd190094190166%_)))) + (let ((_%tl190098190176%_ (let () (declare (not safe)) - (##cdr _%e188809188884%_))) - (_%hd188810188887%_ + (##cdr _%e190096190171%_))) + (_%hd190097190174%_ (let () (declare (not safe)) - (##car _%e188809188884%_)))) + (##car _%e190096190171%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188810188887%_)) - (let ((_%e188812188892%_ + (gx#stx-pair? _%hd190097190174%_)) + (let ((_%e190099190179%_ (let () (declare (not safe)) - (gx#stx-e _%hd188810188887%_)))) - (let ((_%tl188814188897%_ + (gx#stx-e _%hd190097190174%_)))) + (let ((_%tl190101190184%_ (let () (declare (not safe)) - (##cdr _%e188812188892%_))) - (_%hd188813188895%_ + (##cdr _%e190099190179%_))) + (_%hd190100190182%_ (let () (declare (not safe)) - (##car _%e188812188892%_)))) + (##car _%e190099190179%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188813188895%_)) - (let ((_%e188815188900%_ + _%hd190100190182%_)) + (let ((_%e190102190187%_ (let () (declare (not safe)) (gx#stx-e - _%hd188813188895%_)))) - (let ((_%tl188817188905%_ + _%hd190100190182%_)))) + (let ((_%tl190104190192%_ (let () (declare (not safe)) - (##cdr _%e188815188900%_))) - (_%hd188816188903%_ + (##cdr _%e190102190187%_))) + (_%hd190103190190%_ (let () (declare (not safe)) - (##car _%e188815188900%_)))) + (##car _%e190102190187%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188817188905%_)) + _%tl190104190192%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188814188897%_)) - (let ((_%e188818188908%_ + _%tl190101190184%_)) + (let ((_%e190105190195%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl188814188897%_)))) - (let ((_%tl188820188913%_ + (gx#stx-e _%tl190101190184%_)))) + (let ((_%tl190107190200%_ (let () (declare (not safe)) - (##cdr _%e188818188908%_))) - (_%hd188819188911%_ + (##cdr _%e190105190195%_))) + (_%hd190106190198%_ (let () (declare (not safe)) - (##car _%e188818188908%_)))) + (##car _%e190105190195%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188820188913%_)) + (gx#stx-null? _%tl190107190200%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188811188889%_)) + (gx#stx-null? _%tl190098190176%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188808188881%_)) - (let ((_%e188821188916%_ + (gx#stx-pair? _%tl190095190168%_)) + (let ((_%e190108190203%_ (let () (declare (not safe)) - (gx#stx-e _%tl188808188881%_)))) - (let ((_%tl188823188921%_ + (gx#stx-e _%tl190095190168%_)))) + (let ((_%tl190110190208%_ (let () (declare (not safe)) - (##cdr _%e188821188916%_))) - (_%hd188822188919%_ + (##cdr _%e190108190203%_))) + (_%hd190109190206%_ (let () (declare (not safe)) - (##car _%e188821188916%_)))) + (##car _%e190108190203%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188823188921%_)) - (_%__kont189290189291%_ - _%hd188822188919%_ - _%hd188819188911%_ - _%hd188816188903%_) + (gx#stx-null? _%tl190110190208%_)) + (_%__kont190577190578%_ + _%hd190109190206%_ + _%hd190106190198%_ + _%hd190103190190%_) (let () (declare (not safe)) - (_%g188797188863%_))))) + (_%g190084190150%_))))) (let () (declare (not safe)) - (_%g188797188863%_))) - (let () (declare (not safe)) (_%g188797188863%_))) - (let () (declare (not safe)) (_%g188797188863%_))))) - (let () (declare (not safe)) (_%g188797188863%_))) + (_%g190084190150%_))) + (let () (declare (not safe)) (_%g190084190150%_))) + (let () (declare (not safe)) (_%g190084190150%_))))) + (let () (declare (not safe)) (_%g190084190150%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188797188863%_))))) + (_%g190084190150%_))))) (let () (declare (not safe)) - (_%g188797188863%_))))) + (_%g190084190150%_))))) (let () (declare (not safe)) - (_%g188797188863%_))))) + (_%g190084190150%_))))) (let () (declare (not safe)) - (_%g188797188863%_))))) - (let () (declare (not safe)) (_%g188797188863%_))) - (let () (declare (not safe)) (_%g188797188863%_))) + (_%g190084190150%_))))) + (let () (declare (not safe)) (_%g190084190150%_))) + (let () (declare (not safe)) (_%g190084190150%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188797188863%_))))) + (_%g190084190150%_))))) (let () (declare (not safe)) - (_%g188797188863%_)))))))) - (_%__kont189356189357%_ - (lambda (_%L188515%_ _%L188516%_ _%L188517%_) - (let* ((_%__stx189172189173%_ _%L188516%_) - (_%g188544188593%_ + (_%g190084190150%_)))))))) + (_%__kont190643190644%_ + (lambda (_%L189802%_ _%L189803%_ _%L189804%_) + (let* ((_%__stx190459190460%_ _%L189803%_) + (_%g189831189880%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189172189173%_))))) - (let ((_%__kont189174189175%_ - (lambda (_%L188721%_ - _%L188722%_ - _%L188723%_) - (_%lp188406%_ - _%L188515%_ - _%negation188409%_ - (cons (cons _%L188517%_ + _%__stx190459190460%_))))) + (let ((_%__kont190461190462%_ + (lambda (_%L190008%_ + _%L190009%_ + _%L190010%_) + (_%lp189693%_ + _%L189802%_ + _%negation189696%_ + (cons (cons _%L189804%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons '() (cons _%L188721%_ '())))) + (cons '() (cons _%L190008%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clauses188410%_) - (cons (cons _%L188723%_ + _%clauses189697%_) + (cons (cons _%L190010%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L188722%_))) - _%konts188411%_)))) - (_%__kont189176189177%_ - (lambda (_%L188622%_) - (_%lp188406%_ - _%L188515%_ - (cons _%L188517%_ + _%L190009%_))) + _%konts189698%_)))) + (_%__kont190463190464%_ + (lambda (_%L189909%_) + (_%lp189693%_ + _%L189802%_ + (cons _%L189804%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L188622%_))) - _%clauses188410%_ - _%konts188411%_)))) + _%L189909%_))) + _%clauses189697%_ + _%konts189698%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189172189173%_)) - (let ((_%e188549188641%_ + _%__stx190459190460%_)) + (let ((_%e189836189928%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189172189173%_)))) - (let ((_%tl188551188646%_ + _%__stx190459190460%_)))) + (let ((_%tl189838189933%_ (let () (declare (not safe)) - (##cdr _%e188549188641%_))) - (_%hd188550188644%_ + (##cdr _%e189836189928%_))) + (_%hd189837189931%_ (let () (declare (not safe)) - (##car _%e188549188641%_)))) + (##car _%e189836189928%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188550188644%_)) + _%hd189837189931%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd188550188644%_)) + _%hd189837189931%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188551188646%_)) - (let ((_%e188552188649%_ + _%tl189838189933%_)) + (let ((_%e189839189936%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl188551188646%_)))) - (let ((_%tl188554188654%_ + (gx#stx-e _%tl189838189933%_)))) + (let ((_%tl189841189941%_ (let () (declare (not safe)) - (##cdr _%e188552188649%_))) - (_%hd188553188652%_ + (##cdr _%e189839189936%_))) + (_%hd189840189939%_ (let () (declare (not safe)) - (##car _%e188552188649%_)))) + (##car _%e189839189936%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd188553188652%_)) + (gx#stx-null? _%hd189840189939%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188554188654%_)) - (let ((_%e188555188657%_ + (gx#stx-pair? _%tl189841189941%_)) + (let ((_%e189842189944%_ (let () (declare (not safe)) - (gx#stx-e _%tl188554188654%_)))) - (let ((_%tl188557188662%_ + (gx#stx-e _%tl189841189941%_)))) + (let ((_%tl189844189949%_ (let () (declare (not safe)) - (##cdr _%e188555188657%_))) - (_%hd188556188660%_ + (##cdr _%e189842189944%_))) + (_%hd189843189947%_ (let () (declare (not safe)) - (##car _%e188555188657%_)))) + (##car _%e189842189944%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188556188660%_)) - (let ((_%e188558188665%_ + (gx#stx-pair? _%hd189843189947%_)) + (let ((_%e189845189952%_ (let () (declare (not safe)) - (gx#stx-e _%hd188556188660%_)))) - (let ((_%tl188560188670%_ + (gx#stx-e _%hd189843189947%_)))) + (let ((_%tl189847189957%_ (let () (declare (not safe)) - (##cdr _%e188558188665%_))) - (_%hd188559188668%_ + (##cdr _%e189845189952%_))) + (_%hd189846189955%_ (let () (declare (not safe)) - (##car _%e188558188665%_)))) + (##car _%e189845189952%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188559188668%_)) + _%hd189846189955%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188559188668%_)) + _%hd189846189955%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188560188670%_)) - (let ((_%e188561188673%_ + _%tl189847189957%_)) + (let ((_%e189848189960%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl188560188670%_)))) - (let ((_%tl188563188678%_ - (let () (declare (not safe)) (##cdr _%e188561188673%_))) - (_%hd188562188676%_ + (gx#stx-e _%tl189847189957%_)))) + (let ((_%tl189850189965%_ + (let () (declare (not safe)) (##cdr _%e189848189960%_))) + (_%hd189849189963%_ (let () (declare (not safe)) - (##car _%e188561188673%_)))) + (##car _%e189848189960%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188562188676%_)) - (let ((_%e188564188681%_ + (gx#stx-pair? _%hd189849189963%_)) + (let ((_%e189851189968%_ (let () (declare (not safe)) - (gx#stx-e _%hd188562188676%_)))) - (let ((_%tl188566188686%_ + (gx#stx-e _%hd189849189963%_)))) + (let ((_%tl189853189973%_ (let () (declare (not safe)) - (##cdr _%e188564188681%_))) - (_%hd188565188684%_ + (##cdr _%e189851189968%_))) + (_%hd189852189971%_ (let () (declare (not safe)) - (##car _%e188564188681%_)))) + (##car _%e189851189968%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188565188684%_)) - (let ((_%e188567188689%_ + (gx#stx-pair? _%hd189852189971%_)) + (let ((_%e189854189976%_ (let () (declare (not safe)) - (gx#stx-e _%hd188565188684%_)))) - (let ((_%tl188569188694%_ + (gx#stx-e _%hd189852189971%_)))) + (let ((_%tl189856189981%_ (let () (declare (not safe)) - (##cdr _%e188567188689%_))) - (_%hd188568188692%_ + (##cdr _%e189854189976%_))) + (_%hd189855189979%_ (let () (declare (not safe)) - (##car _%e188567188689%_)))) + (##car _%e189854189976%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188568188692%_)) - (let ((_%e188570188697%_ + (gx#stx-pair? _%hd189855189979%_)) + (let ((_%e189857189984%_ (let () (declare (not safe)) - (gx#stx-e _%hd188568188692%_)))) - (let ((_%tl188572188702%_ + (gx#stx-e _%hd189855189979%_)))) + (let ((_%tl189859189989%_ (let () (declare (not safe)) - (##cdr _%e188570188697%_))) - (_%hd188571188700%_ + (##cdr _%e189857189984%_))) + (_%hd189858189987%_ (let () (declare (not safe)) - (##car _%e188570188697%_)))) + (##car _%e189857189984%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188572188702%_)) + _%tl189859189989%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188569188694%_)) - (let ((_%e188573188705%_ + _%tl189856189981%_)) + (let ((_%e189860189992%_ (let () (declare (not safe)) (gx#stx-e - _%tl188569188694%_)))) - (let ((_%tl188575188710%_ + _%tl189856189981%_)))) + (let ((_%tl189862189997%_ (let () (declare (not safe)) - (##cdr _%e188573188705%_))) - (_%hd188574188708%_ + (##cdr _%e189860189992%_))) + (_%hd189861189995%_ (let () (declare (not safe)) - (##car _%e188573188705%_)))) + (##car _%e189860189992%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188575188710%_)) + _%tl189862189997%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl188566188686%_)) + (gx#stx-null? _%tl189853189973%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188563188678%_)) - (let ((_%e188576188713%_ + (gx#stx-pair? _%tl189850189965%_)) + (let ((_%e189863190000%_ (let () (declare (not safe)) - (gx#stx-e _%tl188563188678%_)))) - (let ((_%tl188578188718%_ + (gx#stx-e _%tl189850189965%_)))) + (let ((_%tl189865190005%_ (let () (declare (not safe)) - (##cdr _%e188576188713%_))) - (_%hd188577188716%_ + (##cdr _%e189863190000%_))) + (_%hd189864190003%_ (let () (declare (not safe)) - (##car _%e188576188713%_)))) + (##car _%e189863190000%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188578188718%_)) + (gx#stx-null? _%tl189865190005%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188557188662%_)) - (_%__kont189174189175%_ - _%hd188577188716%_ - _%hd188574188708%_ - _%hd188571188700%_) + (gx#stx-null? _%tl189844189949%_)) + (_%__kont190461190462%_ + _%hd189864190003%_ + _%hd189861189995%_ + _%hd189858189987%_) (let () (declare (not safe)) - (_%g188544188593%_))) + (_%g189831189880%_))) (let () (declare (not safe)) - (_%g188544188593%_))))) - (let () (declare (not safe)) (_%g188544188593%_))) - (let () (declare (not safe)) (_%g188544188593%_))) - (let () (declare (not safe)) (_%g188544188593%_))))) + (_%g189831189880%_))))) + (let () (declare (not safe)) (_%g189831189880%_))) + (let () (declare (not safe)) (_%g189831189880%_))) + (let () (declare (not safe)) (_%g189831189880%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188544188593%_))) + (_%g189831189880%_))) (let () (declare (not safe)) - (_%g188544188593%_))))) + (_%g189831189880%_))))) (let () (declare (not safe)) - (_%g188544188593%_))))) + (_%g189831189880%_))))) (let () (declare (not safe)) - (_%g188544188593%_))))) - (let () (declare (not safe)) (_%g188544188593%_))))) - (let () (declare (not safe)) (_%g188544188593%_))) + (_%g189831189880%_))))) + (let () (declare (not safe)) (_%g189831189880%_))))) + (let () (declare (not safe)) (_%g189831189880%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188544188593%_))) + (_%g189831189880%_))) (let () (declare (not safe)) - (_%g188544188593%_))))) + (_%g189831189880%_))))) (let () (declare (not safe)) - (_%g188544188593%_))))) + (_%g189831189880%_))))) (let () (declare (not safe)) - (_%g188544188593%_))) - (let () (declare (not safe)) (_%g188544188593%_))))) - (let () (declare (not safe)) (_%g188544188593%_))) + (_%g189831189880%_))) + (let () (declare (not safe)) (_%g189831189880%_))))) + (let () (declare (not safe)) (_%g189831189880%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _%hd188550188644%_)) + (gx#stx-eq? '%#begin-annotation _%hd189837189931%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188551188646%_)) - (let ((_%e188583188606%_ + (gx#stx-pair? _%tl189838189933%_)) + (let ((_%e189870189893%_ (let () (declare (not safe)) - (gx#stx-e _%tl188551188646%_)))) - (let ((_%tl188585188611%_ + (gx#stx-e _%tl189838189933%_)))) + (let ((_%tl189872189898%_ (let () (declare (not safe)) - (##cdr _%e188583188606%_))) - (_%hd188584188609%_ + (##cdr _%e189870189893%_))) + (_%hd189871189896%_ (let () (declare (not safe)) - (##car _%e188583188606%_)))) + (##car _%e189870189893%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188584188609%_)) + (gx#identifier? _%hd189871189896%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-else - _%hd188584188609%_)) + _%hd189871189896%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188585188611%_)) - (let ((_%e188586188614%_ + (gx#stx-pair? _%tl189872189898%_)) + (let ((_%e189873189901%_ (let () (declare (not safe)) - (gx#stx-e _%tl188585188611%_)))) - (let ((_%tl188588188619%_ + (gx#stx-e _%tl189872189898%_)))) + (let ((_%tl189875189906%_ (let () (declare (not safe)) - (##cdr _%e188586188614%_))) - (_%hd188587188617%_ + (##cdr _%e189873189901%_))) + (_%hd189874189904%_ (let () (declare (not safe)) - (##car _%e188586188614%_)))) + (##car _%e189873189901%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188588188619%_)) - (_%__kont189176189177%_ - _%hd188587188617%_) + _%tl189875189906%_)) + (_%__kont190463190464%_ + _%hd189874189904%_) (let () (declare (not safe)) - (_%g188544188593%_))))) + (_%g189831189880%_))))) (let () (declare (not safe)) - (_%g188544188593%_))) + (_%g189831189880%_))) (let () (declare (not safe)) - (_%g188544188593%_))) + (_%g189831189880%_))) (let () (declare (not safe)) - (_%g188544188593%_))))) - (let () (declare (not safe)) (_%g188544188593%_))) - (let () (declare (not safe)) (_%g188544188593%_)))) + (_%g189831189880%_))))) + (let () (declare (not safe)) (_%g189831189880%_))) + (let () (declare (not safe)) (_%g189831189880%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188544188593%_))))) + (_%g189831189880%_))))) (let () (declare (not safe)) - (_%g188544188593%_)))))))) + (_%g189831189880%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189352189353%_)) - (let ((_%e188417188760%_ + (gx#stx-pair? _%__stx190639190640%_)) + (let ((_%e189704190047%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189352189353%_)))) - (let ((_%tl188419188765%_ + (gx#stx-e _%__stx190639190640%_)))) + (let ((_%tl189706190052%_ (let () (declare (not safe)) - (##cdr _%e188417188760%_))) - (_%hd188418188763%_ + (##cdr _%e189704190047%_))) + (_%hd189705190050%_ (let () (declare (not safe)) - (##car _%e188417188760%_)))) + (##car _%e189704190047%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188418188763%_)) + (gx#identifier? _%hd189705190050%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _%hd188418188763%_)) + _%hd189705190050%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188419188765%_)) - (let ((_%e188420188768%_ + _%tl189706190052%_)) + (let ((_%e189707190055%_ (let () (declare (not safe)) (gx#stx-e - _%tl188419188765%_)))) - (let ((_%tl188422188773%_ + _%tl189706190052%_)))) + (let ((_%tl189709190060%_ (let () (declare (not safe)) - (##cdr _%e188420188768%_))) - (_%hd188421188771%_ + (##cdr _%e189707190055%_))) + (_%hd189708190058%_ (let () (declare (not safe)) - (##car _%e188420188768%_)))) + (##car _%e189707190055%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188421188771%_)) + _%hd189708190058%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _%hd188421188771%_)) + _%hd189708190058%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl188422188773%_)) - (let ((_%e188423188776%_ + (gx#stx-pair? _%tl189709190060%_)) + (let ((_%e189710190063%_ (let () (declare (not safe)) - (gx#stx-e _%tl188422188773%_)))) - (let ((_%tl188425188781%_ + (gx#stx-e _%tl189709190060%_)))) + (let ((_%tl189712190068%_ (let () (declare (not safe)) - (##cdr _%e188423188776%_))) - (_%hd188424188779%_ + (##cdr _%e189710190063%_))) + (_%hd189711190066%_ (let () (declare (not safe)) - (##car _%e188423188776%_)))) + (##car _%e189710190063%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188425188781%_)) - (_%__kont189354189355%_ _%hd188424188779%_) + (gx#stx-null? _%tl189712190068%_)) + (_%__kont190641190642%_ _%hd189711190066%_) (let () (declare (not safe)) - (_%g188414188454%_))))) - (let () (declare (not safe)) (_%g188414188454%_))) - (let () (declare (not safe)) (_%g188414188454%_))) - (let () (declare (not safe)) (_%g188414188454%_))))) + (_%g189701189741%_))))) + (let () (declare (not safe)) (_%g189701189741%_))) + (let () (declare (not safe)) (_%g189701189741%_))) + (let () (declare (not safe)) (_%g189701189741%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188414188454%_))) + (_%g189701189741%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188418188763%_)) + _%hd189705190050%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188419188765%_)) - (let ((_%e188432188467%_ + _%tl189706190052%_)) + (let ((_%e189719189754%_ (let () (declare (not safe)) (gx#stx-e - _%tl188419188765%_)))) - (let ((_%tl188434188472%_ + _%tl189706190052%_)))) + (let ((_%tl189721189759%_ (let () (declare (not safe)) - (##cdr _%e188432188467%_))) - (_%hd188433188470%_ + (##cdr _%e189719189754%_))) + (_%hd189720189757%_ (let () (declare (not safe)) - (##car _%e188432188467%_)))) + (##car _%e189719189754%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188433188470%_)) - (let ((_%e188435188475%_ + _%hd189720189757%_)) + (let ((_%e189722189762%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd188433188470%_)))) - (let ((_%tl188437188480%_ + (gx#stx-e _%hd189720189757%_)))) + (let ((_%tl189724189767%_ (let () (declare (not safe)) - (##cdr _%e188435188475%_))) - (_%hd188436188478%_ + (##cdr _%e189722189762%_))) + (_%hd189723189765%_ (let () (declare (not safe)) - (##car _%e188435188475%_)))) + (##car _%e189722189762%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188436188478%_)) - (let ((_%e188438188483%_ + (gx#stx-pair? _%hd189723189765%_)) + (let ((_%e189725189770%_ (let () (declare (not safe)) - (gx#stx-e _%hd188436188478%_)))) - (let ((_%tl188440188488%_ + (gx#stx-e _%hd189723189765%_)))) + (let ((_%tl189727189775%_ (let () (declare (not safe)) - (##cdr _%e188438188483%_))) - (_%hd188439188486%_ + (##cdr _%e189725189770%_))) + (_%hd189726189773%_ (let () (declare (not safe)) - (##car _%e188438188483%_)))) + (##car _%e189725189770%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188439188486%_)) - (let ((_%e188441188491%_ + (gx#stx-pair? _%hd189726189773%_)) + (let ((_%e189728189778%_ (let () (declare (not safe)) - (gx#stx-e _%hd188439188486%_)))) - (let ((_%tl188443188496%_ + (gx#stx-e _%hd189726189773%_)))) + (let ((_%tl189730189783%_ (let () (declare (not safe)) - (##cdr _%e188441188491%_))) - (_%hd188442188494%_ + (##cdr _%e189728189778%_))) + (_%hd189729189781%_ (let () (declare (not safe)) - (##car _%e188441188491%_)))) + (##car _%e189728189778%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188443188496%_)) + (gx#stx-null? _%tl189730189783%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188440188488%_)) - (let ((_%e188444188499%_ + _%tl189727189775%_)) + (let ((_%e189731189786%_ (let () (declare (not safe)) (gx#stx-e - _%tl188440188488%_)))) - (let ((_%tl188446188504%_ + _%tl189727189775%_)))) + (let ((_%tl189733189791%_ (let () (declare (not safe)) - (##cdr _%e188444188499%_))) - (_%hd188445188502%_ + (##cdr _%e189731189786%_))) + (_%hd189732189789%_ (let () (declare (not safe)) - (##car _%e188444188499%_)))) + (##car _%e189731189786%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188446188504%_)) + _%tl189733189791%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188437188480%_)) + _%tl189724189767%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl188434188472%_)) - (let ((_%e188447188507%_ + (gx#stx-pair? _%tl189721189759%_)) + (let ((_%e189734189794%_ (let () (declare (not safe)) - (gx#stx-e _%tl188434188472%_)))) - (let ((_%tl188449188512%_ + (gx#stx-e _%tl189721189759%_)))) + (let ((_%tl189736189799%_ (let () (declare (not safe)) - (##cdr _%e188447188507%_))) - (_%hd188448188510%_ + (##cdr _%e189734189794%_))) + (_%hd189735189797%_ (let () (declare (not safe)) - (##car _%e188447188507%_)))) + (##car _%e189734189794%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188449188512%_)) - (_%__kont189356189357%_ - _%hd188448188510%_ - _%hd188445188502%_ - _%hd188442188494%_) + (gx#stx-null? _%tl189736189799%_)) + (_%__kont190643190644%_ + _%hd189735189797%_ + _%hd189732189789%_ + _%hd189729189781%_) (let () (declare (not safe)) - (_%g188414188454%_))))) - (let () (declare (not safe)) (_%g188414188454%_))) - (let () (declare (not safe)) (_%g188414188454%_))) - (let () (declare (not safe)) (_%g188414188454%_))))) + (_%g189701189741%_))))) + (let () (declare (not safe)) (_%g189701189741%_))) + (let () (declare (not safe)) (_%g189701189741%_))) + (let () (declare (not safe)) (_%g189701189741%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188414188454%_))) + (_%g189701189741%_))) (let () (declare (not safe)) - (_%g188414188454%_))))) + (_%g189701189741%_))))) (let () (declare (not safe)) - (_%g188414188454%_))))) - (let () (declare (not safe)) (_%g188414188454%_))))) - (let () (declare (not safe)) (_%g188414188454%_))))) + (_%g189701189741%_))))) + (let () (declare (not safe)) (_%g189701189741%_))))) + (let () (declare (not safe)) (_%g189701189741%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188414188454%_))) + (_%g189701189741%_))) (let () (declare (not safe)) - (_%g188414188454%_)))) + (_%g189701189741%_)))) (let () (declare (not safe)) - (_%g188414188454%_))))) + (_%g189701189741%_))))) (let () (declare (not safe)) - (_%g188414188454%_))))))) - _%hd188313188375%_ - _%hd188310188367%_ - _%hd188307188359%_) - (_%g188289188319%_ _%g188290188322%_)))) + (_%g189701189741%_))))))) + _%hd189600189662%_ + _%hd189597189654%_ + _%hd189594189646%_) + (_%g189576189606%_ _%g189577189609%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188289188319%_ - _%g188290188322%_)) - (_%g188289188319%_ - _%g188290188322%_)) - (_%g188289188319%_ - _%g188290188322%_)))) - (_%g188289188319%_ _%g188290188322%_)) - (_%g188289188319%_ _%g188290188322%_)))) - (_%g188289188319%_ _%g188290188322%_)))) - (_%g188289188319%_ _%g188290188322%_)))) + (_%g189576189606%_ + _%g189577189609%_)) + (_%g189576189606%_ + _%g189577189609%_)) + (_%g189576189606%_ + _%g189577189609%_)))) + (_%g189576189606%_ _%g189577189609%_)) + (_%g189576189606%_ _%g189577189609%_)))) + (_%g189576189606%_ _%g189577189609%_)))) + (_%g189576189606%_ _%g189577189609%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188289188319%_ - _%g188290188322%_)))) - (_%g188289188319%_ _%g188290188322%_)) - (_%g188289188319%_ _%g188290188322%_)) - (_%g188289188319%_ _%g188290188322%_)))) - (_%g188289188319%_ _%g188290188322%_))))) - (_%g188288188985%_ _%stx188287%_)))) + (_%g189576189606%_ + _%g189577189609%_)))) + (_%g189576189606%_ _%g189577189609%_)) + (_%g189576189606%_ _%g189577189609%_)) + (_%g189576189606%_ _%g189577189609%_)))) + (_%g189576189606%_ _%g189577189609%_))))) + (_%g189575190272%_ _%stx189574%_)))) (define gxc#optimize-match-body - (lambda (_%stx187993%_ - _%negation187994%_ - _%clauses187995%_ - _%konts187996%_) - (letrec ((_%push-variables187998%_ - (lambda (_%clause188245%_ _%kont188246%_) - (let ((_%clause188247188257%_ _%clause188245%_) - (_%kont188248188259%_ _%kont188246%_)) - (let* ((_%E188250188263%_ + (lambda (_%stx189280%_ + _%negation189281%_ + _%clauses189282%_ + _%konts189283%_) + (letrec ((_%push-variables189285%_ + (lambda (_%clause189532%_ _%kont189533%_) + (let ((_%clause189534189544%_ _%clause189532%_) + (_%kont189535189546%_ _%kont189533%_)) + (let* ((_%E189537189550%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause188247188257%_ - _%kont188248188259%_ + _%clause189534189544%_ + _%kont189535189546%_ '([clause-name . clause-lambda] [K . _]))) '#!void)) - (_%K188251188270%_ - (lambda (_%clause-lambda188266%_ - _%clause-name188267%_ - _%K188268%_) - (cons _%clause-name188267%_ + (_%K189538189557%_ + (lambda (_%clause-lambda189553%_ + _%clause-name189554%_ + _%K189555%_) + (cons _%clause-name189554%_ (gxc#apply-push-match-vars__% '#f '() - _%K188268%_ - _%clause-lambda188266%_))))) - (if (pair? _%clause188247188257%_) - (let ((_%hd188254188273%_ + _%K189555%_ + _%clause-lambda189553%_))))) + (if (pair? _%clause189534189544%_) + (let ((_%hd189541189560%_ (let () (declare (not safe)) - (##car _%clause188247188257%_))) - (_%tl188255188275%_ + (##car _%clause189534189544%_))) + (_%tl189542189562%_ (let () (declare (not safe)) - (##cdr _%clause188247188257%_)))) - (let* ((_%clause-name188278%_ _%hd188254188273%_) - (_%clause-lambda188280%_ - _%tl188255188275%_)) - (if (pair? _%kont188248188259%_) - (let* ((_%hd188252188282%_ + (##cdr _%clause189534189544%_)))) + (let* ((_%clause-name189565%_ _%hd189541189560%_) + (_%clause-lambda189567%_ + _%tl189542189562%_)) + (if (pair? _%kont189535189546%_) + (let* ((_%hd189539189569%_ (let () (declare (not safe)) - (##car _%kont188248188259%_))) - (_%K188285%_ _%hd188252188282%_)) - (_%K188251188270%_ - _%clause-lambda188280%_ - _%clause-name188278%_ - _%K188285%_)) - (_%E188250188263%_)))) - (_%E188250188263%_)))))) - (_%start-match187999%_ - (lambda (_%kont188179%_) - (let* ((_%g188181188197%_ - (lambda (_%g188182188194%_) + (##car _%kont189535189546%_))) + (_%K189572%_ _%hd189539189569%_)) + (_%K189538189557%_ + _%clause-lambda189567%_ + _%clause-name189565%_ + _%K189572%_)) + (_%E189537189550%_)))) + (_%E189537189550%_)))))) + (_%start-match189286%_ + (lambda (_%kont189466%_) + (let* ((_%g189468189484%_ + (lambda (_%g189469189481%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g188182188194%_)))) - (_%g188180188242%_ - (lambda (_%g188182188200%_) + _%g189469189481%_)))) + (_%g189467189529%_ + (lambda (_%g189469189487%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g188182188200%_)) - (let ((_%e188184188202%_ + (gx#stx-pair? _%g189469189487%_)) + (let ((_%e189471189489%_ (let () (declare (not safe)) - (gx#stx-e _%g188182188200%_)))) - (let ((_%hd188185188205%_ + (gx#stx-e _%g189469189487%_)))) + (let ((_%hd189472189492%_ (let () (declare (not safe)) - (##car _%e188184188202%_))) - (_%tl188186188207%_ + (##car _%e189471189489%_))) + (_%tl189473189494%_ (let () (declare (not safe)) - (##cdr _%e188184188202%_)))) + (##cdr _%e189471189489%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188185188205%_)) + _%hd189472189492%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd188185188205%_)) + _%hd189472189492%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188186188207%_)) - (let ((_%e188187188210%_ + _%tl189473189494%_)) + (let ((_%e189474189497%_ (let () (declare (not safe)) (gx#stx-e - _%tl188186188207%_)))) - (let ((_%hd188188188213%_ + _%tl189473189494%_)))) + (let ((_%hd189475189500%_ (let () (declare (not safe)) - (##car _%e188187188210%_))) - (_%tl188189188215%_ + (##car _%e189474189497%_))) + (_%tl189476189502%_ (let () (declare (not safe)) - (##cdr _%e188187188210%_)))) + (##cdr _%e189474189497%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd188188188213%_)) + _%hd189475189500%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl188189188215%_)) - (let ((_%e188190188218%_ + (gx#stx-pair? _%tl189476189502%_)) + (let ((_%e189477189505%_ (let () (declare (not safe)) - (gx#stx-e _%tl188189188215%_)))) - (let ((_%hd188191188221%_ + (gx#stx-e _%tl189476189502%_)))) + (let ((_%hd189478189508%_ (let () (declare (not safe)) - (##car _%e188190188218%_))) - (_%tl188192188223%_ + (##car _%e189477189505%_))) + (_%tl189479189510%_ (let () (declare (not safe)) - (##cdr _%e188190188218%_)))) + (##cdr _%e189477189505%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188192188223%_)) - ((lambda (_%L188226%_) _%L188226%_) - _%hd188191188221%_) - (_%g188181188197%_ _%g188182188200%_)))) - (_%g188181188197%_ _%g188182188200%_)) - (_%g188181188197%_ _%g188182188200%_)))) + (gx#stx-null? _%tl189479189510%_)) + ((lambda (_%L189513%_) _%L189513%_) + _%hd189478189508%_) + (_%g189468189484%_ _%g189469189487%_)))) + (_%g189468189484%_ _%g189469189487%_)) + (_%g189468189484%_ _%g189469189487%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188181188197%_ - _%g188182188200%_)) - (_%g188181188197%_ - _%g188182188200%_)) - (_%g188181188197%_ - _%g188182188200%_)))) - (_%g188181188197%_ _%g188182188200%_))))) - (_%g188180188242%_ _%kont188179%_)))) - (_%match-body188000%_ - (lambda (_%blocks188076%_) - (let* ((_%blocks188077188086%_ _%blocks188076%_) - (_%E188079188090%_ + (_%g189468189484%_ + _%g189469189487%_)) + (_%g189468189484%_ + _%g189469189487%_)) + (_%g189468189484%_ + _%g189469189487%_)))) + (_%g189468189484%_ _%g189469189487%_))))) + (_%g189467189529%_ _%kont189466%_)))) + (_%match-body189287%_ + (lambda (_%blocks189363%_) + (let* ((_%blocks189364189373%_ _%blocks189363%_) + (_%E189366189377%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%blocks188077188086%_ + _%blocks189364189373%_ '([[#f . start] . rest]))) '#!void)) - (_%K188080188162%_ - (lambda (_%rest188093%_ _%start188094%_) - (let _%lp188096%_ ((_%rest188098%_ - _%rest188093%_) - (_%body188099%_ - (_%start-match187999%_ - _%start188094%_))) - (let* ((_%rest188100188108%_ _%rest188098%_) - (_%else188102188116%_ - (lambda () _%body188099%_)) - (_%K188104188150%_ - (lambda (_%rest188119%_ - _%block188120%_) - (let* ((_%block188121188128%_ - _%block188120%_) - (_%E188123188132%_ + (_%K189367189449%_ + (lambda (_%rest189380%_ _%start189381%_) + (let _%lp189383%_ ((_%rest189385%_ + _%rest189380%_) + (_%body189386%_ + (_%start-match189286%_ + _%start189381%_))) + (let* ((_%rest189387189395%_ _%rest189385%_) + (_%else189389189403%_ + (lambda () _%body189386%_)) + (_%K189391189437%_ + (lambda (_%rest189406%_ + _%block189407%_) + (let* ((_%block189408189415%_ + _%block189407%_) + (_%E189410189419%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block188121188128%_ + _%block189408189415%_ '([K . kont]))) '#!void)) - (_%K188124188138%_ - (lambda (_%kont188135%_ - _%K188136%_) - (_%lp188096%_ - _%rest188119%_ + (_%K189411189425%_ + (lambda (_%kont189422%_ + _%K189423%_) + (_%lp189383%_ + _%rest189406%_ (cons '%#let-values - (cons (cons (cons (cons _%K188136%_ + (cons (cons (cons (cons _%K189423%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%kont188135%_ '())) + (cons _%kont189422%_ '())) '()) - (cons _%body188099%_ '()))))))) + (cons _%body189386%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%block188121188128%_) - (let ((_%hd188125188141%_ + (if (pair? _%block189408189415%_) + (let ((_%hd189412189428%_ (let () (declare (not safe)) - (##car _%block188121188128%_))) - (_%tl188126188143%_ + (##car _%block189408189415%_))) + (_%tl189413189430%_ (let () (declare (not safe)) - (##cdr _%block188121188128%_)))) - (let* ((_%K188146%_ - _%hd188125188141%_) - (_%kont188148%_ - _%tl188126188143%_)) - (_%K188124188138%_ - _%kont188148%_ - _%K188146%_))) - (_%E188123188132%_)))))) - (if (pair? _%rest188100188108%_) - (let ((_%hd188105188153%_ + (##cdr _%block189408189415%_)))) + (let* ((_%K189433%_ + _%hd189412189428%_) + (_%kont189435%_ + _%tl189413189430%_)) + (_%K189411189425%_ + _%kont189435%_ + _%K189433%_))) + (_%E189410189419%_)))))) + (if (pair? _%rest189387189395%_) + (let ((_%hd189392189440%_ (let () (declare (not safe)) - (##car _%rest188100188108%_))) - (_%tl188106188155%_ + (##car _%rest189387189395%_))) + (_%tl189393189442%_ (let () (declare (not safe)) - (##cdr _%rest188100188108%_)))) - (let* ((_%block188158%_ - _%hd188105188153%_) - (_%rest188160%_ - _%tl188106188155%_)) - (_%K188104188150%_ - _%rest188160%_ - _%block188158%_))) - (_%else188102188116%_))))))) - (if (pair? _%blocks188077188086%_) - (let ((_%hd188081188165%_ + (##cdr _%rest189387189395%_)))) + (let* ((_%block189445%_ + _%hd189392189440%_) + (_%rest189447%_ + _%tl189393189442%_)) + (_%K189391189437%_ + _%rest189447%_ + _%block189445%_))) + (_%else189389189403%_))))))) + (if (pair? _%blocks189364189373%_) + (let ((_%hd189368189452%_ (let () (declare (not safe)) - (##car _%blocks188077188086%_))) - (_%tl188082188167%_ + (##car _%blocks189364189373%_))) + (_%tl189369189454%_ (let () (declare (not safe)) - (##cdr _%blocks188077188086%_)))) - (if (pair? _%hd188081188165%_) - (let ((_%hd188083188170%_ + (##cdr _%blocks189364189373%_)))) + (if (pair? _%hd189368189452%_) + (let ((_%hd189370189457%_ (let () (declare (not safe)) - (##car _%hd188081188165%_))) - (_%tl188084188172%_ + (##car _%hd189368189452%_))) + (_%tl189371189459%_ (let () (declare (not safe)) - (##cdr _%hd188081188165%_)))) + (##cdr _%hd189368189452%_)))) (if (let () (declare (not safe)) - (##eq? _%hd188083188170%_ '#f)) - (let* ((_%start188175%_ - _%tl188084188172%_) - (_%rest188177%_ - _%tl188082188167%_)) - (_%K188080188162%_ - _%rest188177%_ - _%start188175%_)) - (_%E188079188090%_))) - (_%E188079188090%_))) - (_%E188079188090%_)))))) - (let ((__tmp192259 + (##eq? _%hd189370189457%_ '#f)) + (let* ((_%start189462%_ + _%tl189371189459%_) + (_%rest189464%_ + _%tl189369189454%_)) + (_%K189367189449%_ + _%rest189464%_ + _%start189462%_)) + (_%E189366189377%_))) + (_%E189366189377%_))) + (_%E189366189377%_)))))) + (let ((__tmp193546 (lambda () - (let* ((_%clauses188003%_ - (map _%push-variables187998%_ - _%clauses187995%_ - _%konts187996%_)) - (_%blocks188005%_ - (gxc#optimize-match-basic-blocks _%clauses188003%_)) - (_%blocks188007%_ + (let* ((_%clauses189290%_ + (map _%push-variables189285%_ + _%clauses189282%_ + _%konts189283%_)) + (_%blocks189292%_ + (gxc#optimize-match-basic-blocks _%clauses189290%_)) + (_%blocks189294%_ (gxc#optimize-match-fold-basic-blocks - _%blocks188005%_)) - (_%body188009%_ - (_%match-body188000%_ _%blocks188007%_)) - (_%bind188043%_ - (map (lambda (_%e188010188012%_) - (let* ((_%g188014188021%_ _%e188010188012%_) - (_%E188016188025%_ + _%blocks189292%_)) + (_%body189296%_ + (_%match-body189287%_ _%blocks189294%_)) + (_%bind189330%_ + (map (lambda (_%e189297189299%_) + (let* ((_%g189301189308%_ _%e189297189299%_) + (_%E189303189312%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g188014188021%_ + _%g189301189308%_ '([K . kont]))) '#!void)) - (_%K188017188031%_ - (lambda (_%kont188028%_ _%K188029%_) - (cons (cons _%K188029%_ '()) - (cons _%kont188028%_ '()))))) - (if (pair? _%g188014188021%_) - (let ((_%hd188018188034%_ + (_%K189304189318%_ + (lambda (_%kont189315%_ _%K189316%_) + (cons (cons _%K189316%_ '()) + (cons _%kont189315%_ '()))))) + (if (pair? _%g189301189308%_) + (let ((_%hd189305189321%_ (let () (declare (not safe)) - (##car _%g188014188021%_))) - (_%tl188019188036%_ + (##car _%g189301189308%_))) + (_%tl189306189323%_ (let () (declare (not safe)) - (##cdr _%g188014188021%_)))) - (let* ((_%K188039%_ - _%hd188018188034%_) - (_%kont188041%_ - _%tl188019188036%_)) - (_%K188017188031%_ - _%kont188041%_ - _%K188039%_))) - (_%E188016188025%_)))) - _%konts187996%_)) - (_%negate188073%_ - (let* ((_%negation188044188051%_ _%negation187994%_) - (_%E188046188055%_ + (##cdr _%g189301189308%_)))) + (let* ((_%K189326%_ + _%hd189305189321%_) + (_%kont189328%_ + _%tl189306189323%_)) + (_%K189304189318%_ + _%kont189328%_ + _%K189326%_))) + (_%E189303189312%_)))) + _%konts189283%_)) + (_%negate189360%_ + (let* ((_%negation189331189338%_ _%negation189281%_) + (_%E189333189342%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%negation188044188051%_ + _%negation189331189338%_ '([K . kont]))) '#!void)) - (_%K188047188061%_ - (lambda (_%kont188058%_ _%K188059%_) - (cons (cons _%K188059%_ '()) - (cons _%kont188058%_ '()))))) - (if (pair? _%negation188044188051%_) - (let ((_%hd188048188064%_ + (_%K189334189348%_ + (lambda (_%kont189345%_ _%K189346%_) + (cons (cons _%K189346%_ '()) + (cons _%kont189345%_ '()))))) + (if (pair? _%negation189331189338%_) + (let ((_%hd189335189351%_ (let () (declare (not safe)) - (##car _%negation188044188051%_))) - (_%tl188049188066%_ + (##car _%negation189331189338%_))) + (_%tl189336189353%_ (let () (declare (not safe)) - (##cdr _%negation188044188051%_)))) - (let* ((_%K188069%_ _%hd188048188064%_) - (_%kont188071%_ _%tl188049188066%_)) - (_%K188047188061%_ - _%kont188071%_ - _%K188069%_))) - (_%E188046188055%_)))) - (__tmp192260 + (##cdr _%negation189331189338%_)))) + (let* ((_%K189356%_ _%hd189335189351%_) + (_%kont189358%_ _%tl189336189353%_)) + (_%K189334189348%_ + _%kont189358%_ + _%K189356%_))) + (_%E189333189342%_)))) + (__tmp193547 (cons '%#let-values - (cons (cons _%negate188073%_ '()) + (cons (cons _%negate189360%_ '()) (cons (cons '%#let-values - (cons _%bind188043%_ - (cons _%body188009%_ + (cons _%bind189330%_ + (cons _%body189296%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192260 _%stx187993%_)))) - (__tmp192258 - (let ((__obj192239 + (gxc#xform-wrap-source __tmp193547 _%stx189280%_)))) + (__tmp193545 + (let ((__obj193526 (let () (declare (not safe)) (##structure @@ -1850,1889 +1850,1889 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj192239)) - __obj192239))) + (gx#local-context:::init!__0 __obj193526)) + __obj193526))) (declare (not safe)) (__call-with-parameters - __tmp192259 + __tmp193546 gx#current-expander-context - __tmp192258))))) + __tmp193545))))) (define gxc#optimize-match-basic-blocks - (lambda (_%clauses187953%_) - (let _%lp187955%_ ((_%rest187957%_ _%clauses187953%_) - (_%blocks187958%_ '())) - (let* ((_%rest187959187967%_ _%rest187957%_) - (_%else187961187975%_ (lambda () (reverse _%blocks187958%_))) - (_%K187963187981%_ - (lambda (_%rest187978%_ _%clause187979%_) - (_%lp187955%_ - _%rest187978%_ + (lambda (_%clauses189240%_) + (let _%lp189242%_ ((_%rest189244%_ _%clauses189240%_) + (_%blocks189245%_ '())) + (let* ((_%rest189246189254%_ _%rest189244%_) + (_%else189248189262%_ (lambda () (reverse _%blocks189245%_))) + (_%K189250189268%_ + (lambda (_%rest189265%_ _%clause189266%_) + (_%lp189242%_ + _%rest189265%_ (gxc#optimize-match-lift-basic-blocks - _%clause187979%_ - _%blocks187958%_))))) - (if (pair? _%rest187959187967%_) - (let ((_%hd187964187984%_ + _%clause189266%_ + _%blocks189245%_))))) + (if (pair? _%rest189246189254%_) + (let ((_%hd189251189271%_ (let () (declare (not safe)) - (##car _%rest187959187967%_))) - (_%tl187965187986%_ + (##car _%rest189246189254%_))) + (_%tl189252189273%_ (let () (declare (not safe)) - (##cdr _%rest187959187967%_)))) - (let* ((_%clause187989%_ _%hd187964187984%_) - (_%rest187991%_ _%tl187965187986%_)) - (_%K187963187981%_ _%rest187991%_ _%clause187989%_))) - (_%else187961187975%_)))))) + (##cdr _%rest189246189254%_)))) + (let* ((_%clause189276%_ _%hd189251189271%_) + (_%rest189278%_ _%tl189252189273%_)) + (_%K189250189268%_ _%rest189278%_ _%clause189276%_))) + (_%else189248189262%_)))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_%clause187296%_ _%blocks187297%_) - (letrec ((_%bind->args187299%_ - (lambda (_%bind187948%_) - (let ((__tmp192261 - (lambda (_%b187950%_ _%r187951%_) - (cons (cons '%#ref (cons (car _%b187950%_) '())) - _%r187951%_)))) + (lambda (_%clause188583%_ _%blocks188584%_) + (letrec ((_%bind->args188586%_ + (lambda (_%bind189235%_) + (let ((__tmp193548 + (lambda (_%b189237%_ _%r189238%_) + (cons (cons '%#ref (cons (car _%b189237%_) '())) + _%r189238%_)))) (declare (not safe)) - (__foldl1 __tmp192261 '() _%bind187948%_)))) - (_%create-block187300%_ - (lambda (_%body187896%_ - _%let-bind187897%_ - _%bind187898%_ - _%assert187899%_) - (let* ((_%id187901%_ - (let ((__tmp192262 + (__foldl1 __tmp193548 '() _%bind189235%_)))) + (_%create-block188587%_ + (lambda (_%body189183%_ + _%let-bind189184%_ + _%bind189185%_ + _%assert189186%_) + (let* ((_%id189188%_ + (let ((__tmp193549 (let () (declare (not safe)) (##gensym '__match)))) (declare (not safe)) - (make-symbol__0 __tmp192262))) - (_%id187903%_ + (make-symbol__0 __tmp193549))) + (_%id189190%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id187901%_))) - (_%_187905%_ + (gx#core-quote-syntax__0 _%id189188%_))) + (_%_189192%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id187903%_))) - (_%block187907%_ - (cons _%id187903%_ - (cons _%body187896%_ - (cons _%bind187898%_ - (cons _%assert187899%_ '()))))) - (_%continue187909%_ + (gx#core-bind-runtime!__0 _%id189190%_))) + (_%block189194%_ + (cons _%id189190%_ + (cons _%body189183%_ + (cons _%bind189185%_ + (cons _%assert189186%_ '()))))) + (_%continue189196%_ (cons '%#call - (cons (cons '%#ref (cons _%id187903%_ '())) - (_%bind->args187299%_ - _%bind187898%_)))) - (_%continue187945%_ - (if (null? _%let-bind187897%_) - _%continue187909%_ - (let ((_%locals187943%_ - (map (lambda (_%e187910187912%_) - (let* ((_%g187914187921%_ - _%e187910187912%_) - (_%E187916187925%_ + (cons (cons '%#ref (cons _%id189190%_ '())) + (_%bind->args188586%_ + _%bind189185%_)))) + (_%continue189232%_ + (if (null? _%let-bind189184%_) + _%continue189196%_ + (let ((_%locals189230%_ + (map (lambda (_%e189197189199%_) + (let* ((_%g189201189208%_ + _%e189197189199%_) + (_%E189203189212%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g187914187921%_ + _%g189201189208%_ '([id . expr]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K187917187931%_ - (lambda (_%expr187928%_ - _%id187929%_) - (cons (cons _%id187929%_ + (_%K189204189218%_ + (lambda (_%expr189215%_ + _%id189216%_) + (cons (cons _%id189216%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%expr187928%_ '()))))) + (cons _%expr189215%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%g187914187921%_) - (let ((_%hd187918187934%_ + (if (pair? _%g189201189208%_) + (let ((_%hd189205189221%_ (let () (declare (not safe)) - (##car _%g187914187921%_))) - (_%tl187919187936%_ + (##car _%g189201189208%_))) + (_%tl189206189223%_ (let () (declare (not safe)) - (##cdr _%g187914187921%_)))) - (let* ((_%id187939%_ - _%hd187918187934%_) - (_%expr187941%_ - _%tl187919187936%_)) - (_%K187917187931%_ - _%expr187941%_ - _%id187939%_))) - (_%E187916187925%_)))) - _%let-bind187897%_))) + (##cdr _%g189201189208%_)))) + (let* ((_%id189226%_ + _%hd189205189221%_) + (_%expr189228%_ + _%tl189206189223%_)) + (_%K189204189218%_ + _%expr189228%_ + _%id189226%_))) + (_%E189203189212%_)))) + _%let-bind189184%_))) (cons '%#let-values - (cons _%locals187943%_ - (cons _%continue187909%_ + (cons _%locals189230%_ + (cons _%continue189196%_ '()))))))) - (values _%continue187945%_ _%block187907%_)))) - (_%basic-block187301%_ - (lambda (_%body187482%_ _%bind187483%_ _%assert187484%_) - (let* ((_%__stx189460189461%_ _%body187482%_) - (_%g187489187573%_ + (values _%continue189232%_ _%block189194%_)))) + (_%basic-block188588%_ + (lambda (_%body188769%_ _%bind188770%_ _%assert188771%_) + (let* ((_%__stx190747190748%_ _%body188769%_) + (_%g188776188860%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189460189461%_))))) - (let ((_%__kont189462189463%_ - (lambda (_%L187832%_ _%L187833%_ _%L187834%_) - (let ((_g192263_ - (_%create-block187300%_ - _%L187833%_ + _%__stx190747190748%_))))) + (let ((_%__kont190749190750%_ + (lambda (_%L189119%_ _%L189120%_ _%L189121%_) + (let ((_g193550_ + (_%create-block188587%_ + _%L189120%_ '() - _%bind187483%_ - (cons (cons _%L187834%_ '#t) - _%assert187484%_)))) + _%bind188770%_ + (cons (cons _%L189121%_ '#t) + _%assert188771%_)))) (begin - (let ((_g192264_ + (let ((_g193551_ (let () (declare (not safe)) - (if (##values? _g192263_) - (##vector-length _g192263_) + (if (##values? _g193550_) + (##values-length _g193550_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192264_ 2))) + (##fx= _g193551_ 2))) (error "Context expects 2 values" - _g192264_))) - (let ((_%k-continue187852%_ + _g193551_))) + (let ((_%k-continue189139%_ (let () (declare (not safe)) - (##vector-ref _g192263_ 0))) - (_%k-block187853%_ + (##values-ref _g193550_ 0))) + (_%k-block189140%_ (let () (declare (not safe)) - (##vector-ref _g192263_ 1)))) - (let* ((_%__stx189442189443%_ _%L187832%_) - (_%g187856187865%_ + (##values-ref _g193550_ 1)))) + (let* ((_%__stx190729190730%_ _%L189119%_) + (_%g189143189152%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189442189443%_))))) - (let ((_%__kont189444189445%_ + _%__stx190729190730%_))))) + (let ((_%__kont190731190732%_ (lambda () (values (cons '%#if - (cons _%L187834%_ + (cons _%L189121%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%k-continue187852%_ - (cons _%L187832%_ '())))) - (cons _%k-block187853%_ '())))) + (cons _%k-continue189139%_ + (cons _%L189119%_ '())))) + (cons _%k-block189140%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189446189447%_ + (_%__kont190733190734%_ (lambda () - (let ((_g192265_ - (_%create-block187300%_ - _%L187832%_ + (let ((_g193552_ + (_%create-block188587%_ + _%L189119%_ '() - _%bind187483%_ - (cons (cons _%L187834%_ + _%bind188770%_ + (cons (cons _%L189121%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f) - _%assert187484%_)))) + _%assert188771%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g192266_ + (let ((_g193553_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g192265_) - (##vector-length _g192265_) + _g193552_) + (##values-length _g193552_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g192266_ 2))) - (error "Context expects 2 values" _g192266_))) + (if (not (let () (declare (not safe)) (##fx= _g193553_ 2))) + (error "Context expects 2 values" _g193553_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%e-continue187872%_ + (let ((_%e-continue189159%_ (let () (declare (not safe)) - (##vector-ref - _g192265_ + (##values-ref + _g193552_ 0))) - (_%e-block187873%_ + (_%e-block189160%_ (let () (declare (not safe)) - (##vector-ref - _g192265_ + (##values-ref + _g193552_ 1)))) (values (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L187834%_ - (cons _%k-continue187852%_ - (cons _%e-continue187872%_ '())))) - (cons _%k-block187853%_ - (cons _%e-block187873%_ '()))))))))) + (cons _%L189121%_ + (cons _%k-continue189139%_ + (cons _%e-continue189159%_ '())))) + (cons _%k-block189140%_ + (cons _%e-block189160%_ '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189442189443%_)) - (let ((_%e187858187880%_ + _%__stx190729190730%_)) + (let ((_%e189145189167%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189442189443%_)))) - (let ((_%tl187860187885%_ + _%__stx190729190730%_)))) + (let ((_%tl189147189172%_ (let () (declare (not safe)) - (##cdr _%e187858187880%_))) - (_%hd187859187883%_ + (##cdr _%e189145189167%_))) + (_%hd189146189170%_ (let () (declare (not safe)) - (##car _%e187858187880%_)))) + (##car _%e189145189167%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187859187883%_)) + _%hd189146189170%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd187859187883%_)) - (_%__kont189444189445%_) - (_%__kont189446189447%_)) - (_%__kont189446189447%_)))) - (_%__kont189446189447%_))))))))) - (_%__kont189464189465%_ - (lambda () (values _%body187482%_ '()))) - (_%__kont189468189469%_ - (lambda (_%L187661%_ _%L187662%_ _%L187663%_) - (let* ((_%let-bind187698%_ + _%hd189146189170%_)) + (_%__kont190731190732%_) + (_%__kont190733190734%_)) + (_%__kont190733190734%_)))) + (_%__kont190733190734%_))))))))) + (_%__kont190751190752%_ + (lambda () (values _%body188769%_ '()))) + (_%__kont190755190756%_ + (lambda (_%L188948%_ _%L188949%_ _%L188950%_) + (let* ((_%let-bind188985%_ (map cons - (let ((__tmp192267 - (lambda (_%g187683187686%_ - _%g187684187688%_) - (cons _%g187683187686%_ - _%g187684187688%_)))) + (let ((__tmp193554 + (lambda (_%g188970188973%_ + _%g188971188975%_) + (cons _%g188970188973%_ + _%g188971188975%_)))) (declare (not safe)) (__foldr1 - __tmp192267 + __tmp193554 '() - _%L187663%_)) - (let ((__tmp192268 - (lambda (_%g187690187693%_ - _%g187691187695%_) - (cons _%g187690187693%_ - _%g187691187695%_)))) + _%L188950%_)) + (let ((__tmp193555 + (lambda (_%g188977188980%_ + _%g188978188982%_) + (cons _%g188977188980%_ + _%g188978188982%_)))) (declare (not safe)) (__foldr1 - __tmp192268 + __tmp193555 '() - _%L187662%_)))) - (_g192269_ - (_%create-block187300%_ - _%L187661%_ - _%let-bind187698%_ + _%L188949%_)))) + (_g193556_ + (_%create-block188587%_ + _%L188948%_ + _%let-bind188985%_ (let () (declare (not safe)) (__foldl1 cons - _%bind187483%_ - _%let-bind187698%_)) - _%assert187484%_))) + _%bind188770%_ + _%let-bind188985%_)) + _%assert188771%_))) (begin - (let ((_g192270_ + (let ((_g193557_ (let () (declare (not safe)) - (if (##values? _g192269_) - (##vector-length _g192269_) + (if (##values? _g193556_) + (##values-length _g193556_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192270_ 2))) + (##fx= _g193557_ 2))) (error "Context expects 2 values" - _g192270_))) - (let ((_%continue187700%_ + _g193557_))) + (let ((_%continue188987%_ (let () (declare (not safe)) - (##vector-ref _g192269_ 0))) - (_%block187701%_ + (##values-ref _g193556_ 0))) + (_%block188988%_ (let () (declare (not safe)) - (##vector-ref _g192269_ 1)))) - (values _%continue187700%_ - (cons _%block187701%_ '()))))))) - (_%__kont189472189473%_ - (lambda () (values _%body187482%_ '())))) - (let* ((_%__match189551189552%_ - (lambda (_%e187540187585%_ - _%hd187541187588%_ - _%tl187542187590%_ - _%e187543187593%_ - _%hd187544187596%_ - _%tl187545187598%_ - _%__splice189470189471%_ - _%target187546187601%_ - _%tl187548187603%_) - (letrec ((_%loop187549187606%_ - (lambda (_%hd187547187609%_ - _%expr187553187611%_ - _%id187554187613%_) + (##values-ref _g193556_ 1)))) + (values _%continue188987%_ + (cons _%block188988%_ '()))))))) + (_%__kont190759190760%_ + (lambda () (values _%body188769%_ '())))) + (let* ((_%__match190838190839%_ + (lambda (_%e188827188872%_ + _%hd188828188875%_ + _%tl188829188877%_ + _%e188830188880%_ + _%hd188831188883%_ + _%tl188832188885%_ + _%__splice190757190758%_ + _%target188833188888%_ + _%tl188835188890%_) + (letrec ((_%loop188836188893%_ + (lambda (_%hd188834188896%_ + _%expr188840188898%_ + _%id188841188900%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187547187609%_)) - (let ((_%e187550187616%_ + _%hd188834188896%_)) + (let ((_%e188837188903%_ (let () (declare (not safe)) (gx#stx-e - _%hd187547187609%_)))) - (let ((_%lp-tl187552187621%_ + _%hd188834188896%_)))) + (let ((_%lp-tl188839188908%_ (let () (declare (not safe)) - (##cdr _%e187550187616%_))) - (_%lp-hd187551187619%_ + (##cdr _%e188837188903%_))) + (_%lp-hd188838188906%_ (let () (declare (not safe)) - (##car _%e187550187616%_)))) + (##car _%e188837188903%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd187551187619%_)) - (let ((_%e187560187624%_ + _%lp-hd188838188906%_)) + (let ((_%e188847188911%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd187551187619%_)))) - (let ((_%tl187562187629%_ + (gx#stx-e _%lp-hd188838188906%_)))) + (let ((_%tl188849188916%_ (let () (declare (not safe)) - (##cdr _%e187560187624%_))) - (_%hd187561187627%_ + (##cdr _%e188847188911%_))) + (_%hd188848188914%_ (let () (declare (not safe)) - (##car _%e187560187624%_)))) + (##car _%e188847188911%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187561187627%_)) - (let ((_%e187563187632%_ + (gx#stx-pair? _%hd188848188914%_)) + (let ((_%e188850188919%_ (let () (declare (not safe)) - (gx#stx-e _%hd187561187627%_)))) - (let ((_%tl187565187637%_ + (gx#stx-e _%hd188848188914%_)))) + (let ((_%tl188852188924%_ (let () (declare (not safe)) - (##cdr _%e187563187632%_))) - (_%hd187564187635%_ + (##cdr _%e188850188919%_))) + (_%hd188851188922%_ (let () (declare (not safe)) - (##car _%e187563187632%_)))) + (##car _%e188850188919%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187565187637%_)) + (gx#stx-null? _%tl188852188924%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187562187629%_)) - (let ((_%e187566187640%_ + (gx#stx-pair? _%tl188849188916%_)) + (let ((_%e188853188927%_ (let () (declare (not safe)) - (gx#stx-e _%tl187562187629%_)))) - (let ((_%tl187568187645%_ + (gx#stx-e _%tl188849188916%_)))) + (let ((_%tl188855188932%_ (let () (declare (not safe)) - (##cdr _%e187566187640%_))) - (_%hd187567187643%_ + (##cdr _%e188853188927%_))) + (_%hd188854188930%_ (let () (declare (not safe)) - (##car _%e187566187640%_)))) + (##car _%e188853188927%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187568187645%_)) - (_%loop187549187606%_ - _%lp-tl187552187621%_ - (cons _%hd187567187643%_ - _%expr187553187611%_) - (cons _%hd187564187635%_ - _%id187554187613%_)) - (_%__kont189472189473%_)))) - (_%__kont189472189473%_)) - (_%__kont189472189473%_)))) - (_%__kont189472189473%_)))) - (_%__kont189472189473%_)))) + _%tl188855188932%_)) + (_%loop188836188893%_ + _%lp-tl188839188908%_ + (cons _%hd188854188930%_ + _%expr188840188898%_) + (cons _%hd188851188922%_ + _%id188841188900%_)) + (_%__kont190759190760%_)))) + (_%__kont190759190760%_)) + (_%__kont190759190760%_)))) + (_%__kont190759190760%_)))) + (_%__kont190759190760%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id187556187650%_ - (reverse _%id187554187613%_)) - (_%expr187555187648%_ - (reverse _%expr187553187611%_))) + (let ((_%id188843188937%_ + (reverse _%id188841188900%_)) + (_%expr188842188935%_ + (reverse _%expr188840188898%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187545187598%_)) - (let ((_%e187557187653%_ + _%tl188832188885%_)) + (let ((_%e188844188940%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl187545187598%_)))) - (let ((_%tl187559187658%_ + (gx#stx-e _%tl188832188885%_)))) + (let ((_%tl188846188945%_ (let () (declare (not safe)) - (##cdr _%e187557187653%_))) - (_%hd187558187656%_ + (##cdr _%e188844188940%_))) + (_%hd188845188943%_ (let () (declare (not safe)) - (##car _%e187557187653%_)))) + (##car _%e188844188940%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187559187658%_)) - (_%__kont189468189469%_ - _%hd187558187656%_ - _%expr187555187648%_ - _%id187556187650%_) - (_%__kont189472189473%_)))) - (_%__kont189472189473%_))))))) + (gx#stx-null? _%tl188846188945%_)) + (_%__kont190755190756%_ + _%hd188845188943%_ + _%expr188842188935%_ + _%id188843188937%_) + (_%__kont190759190760%_)))) + (_%__kont190759190760%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop187549187606%_ - _%target187546187601%_ + (_%loop188836188893%_ + _%target188833188888%_ '() '())))) - (_%__match189527189528%_ - (lambda (_%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_) - (letrec ((_%loop187515187730%_ - (lambda (_%hd187513187733%_) + (_%__match190814190815%_ + (lambda (_%e188793188996%_ + _%hd188794188999%_ + _%tl188795189001%_ + _%e188796189004%_ + _%hd188797189007%_ + _%tl188798189009%_ + _%__splice190753190754%_ + _%target188799189012%_ + _%tl188801189014%_) + (letrec ((_%loop188802189017%_ + (lambda (_%hd188800189020%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187513187733%_)) - (let ((_%e187516187736%_ + _%hd188800189020%_)) + (let ((_%e188803189023%_ (let () (declare (not safe)) (gx#stx-e - _%hd187513187733%_)))) - (let ((_%lp-tl187518187741%_ + _%hd188800189020%_)))) + (let ((_%lp-tl188805189028%_ (let () (declare (not safe)) - (##cdr _%e187516187736%_))) - (_%lp-hd187517187739%_ + (##cdr _%e188803189023%_))) + (_%lp-hd188804189026%_ (let () (declare (not safe)) - (##car _%e187516187736%_)))) + (##car _%e188803189023%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd187517187739%_)) - (let ((_%e187522187744%_ + _%lp-hd188804189026%_)) + (let ((_%e188809189031%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd187517187739%_)))) - (let ((_%tl187524187749%_ + (gx#stx-e _%lp-hd188804189026%_)))) + (let ((_%tl188811189036%_ (let () (declare (not safe)) - (##cdr _%e187522187744%_))) - (_%hd187523187747%_ + (##cdr _%e188809189031%_))) + (_%hd188810189034%_ (let () (declare (not safe)) - (##car _%e187522187744%_)))) + (##car _%e188809189031%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187523187747%_)) - (let ((_%e187525187752%_ + (gx#stx-pair? _%hd188810189034%_)) + (let ((_%e188812189039%_ (let () (declare (not safe)) - (gx#stx-e _%hd187523187747%_)))) - (let ((_%tl187527187757%_ + (gx#stx-e _%hd188810189034%_)))) + (let ((_%tl188814189044%_ (let () (declare (not safe)) - (##cdr _%e187525187752%_))) - (_%hd187526187755%_ + (##cdr _%e188812189039%_))) + (_%hd188813189042%_ (let () (declare (not safe)) - (##car _%e187525187752%_)))) + (##car _%e188812189039%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187527187757%_)) + (gx#stx-null? _%tl188814189044%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187524187749%_)) - (let ((_%e187528187760%_ + (gx#stx-pair? _%tl188811189036%_)) + (let ((_%e188815189047%_ (let () (declare (not safe)) - (gx#stx-e _%tl187524187749%_)))) - (let ((_%tl187530187765%_ + (gx#stx-e _%tl188811189036%_)))) + (let ((_%tl188817189052%_ (let () (declare (not safe)) - (##cdr _%e187528187760%_))) - (_%hd187529187763%_ + (##cdr _%e188815189047%_))) + (_%hd188816189050%_ (let () (declare (not safe)) - (##car _%e187528187760%_)))) + (##car _%e188815189047%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187529187763%_)) - (let ((_%e187531187768%_ + _%hd188816189050%_)) + (let ((_%e188818189055%_ (let () (declare (not safe)) (gx#stx-e - _%hd187529187763%_)))) - (let ((_%tl187533187773%_ + _%hd188816189050%_)))) + (let ((_%tl188820189060%_ (let () (declare (not safe)) - (##cdr _%e187531187768%_))) - (_%hd187532187771%_ + (##cdr _%e188818189055%_))) + (_%hd188819189058%_ (let () (declare (not safe)) - (##car _%e187531187768%_)))) + (##car _%e188818189055%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187532187771%_)) + _%hd188819189058%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd187532187771%_)) + _%hd188819189058%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187533187773%_)) - (let ((_%e187534187776%_ + (gx#stx-pair? _%tl188820189060%_)) + (let ((_%e188821189063%_ (let () (declare (not safe)) - (gx#stx-e _%tl187533187773%_)))) - (let ((_%tl187536187781%_ + (gx#stx-e _%tl188820189060%_)))) + (let ((_%tl188823189068%_ (let () (declare (not safe)) - (##cdr _%e187534187776%_))) - (_%hd187535187779%_ + (##cdr _%e188821189063%_))) + (_%hd188822189066%_ (let () (declare (not safe)) - (##car _%e187534187776%_)))) + (##car _%e188821189063%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187536187781%_)) + (gx#stx-null? _%tl188823189068%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187530187765%_)) - (_%loop187515187730%_ _%lp-tl187518187741%_) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)))) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)))) + (gx#stx-null? _%tl188817189052%_)) + (_%loop188802189017%_ _%lp-tl188805189028%_) + (_%__match190838190839%_ + _%e188793188996%_ + _%hd188794188999%_ + _%tl188795189001%_ + _%e188796189004%_ + _%hd188797189007%_ + _%tl188798189009%_ + _%__splice190753190754%_ + _%target188799189012%_ + _%tl188801189014%_)) + (_%__match190838190839%_ + _%e188793188996%_ + _%hd188794188999%_ + _%tl188795189001%_ + _%e188796189004%_ + _%hd188797189007%_ + _%tl188798189009%_ + _%__splice190753190754%_ + _%target188799189012%_ + _%tl188801189014%_)))) + (_%__match190838190839%_ + _%e188793188996%_ + _%hd188794188999%_ + _%tl188795189001%_ + _%e188796189004%_ + _%hd188797189007%_ + _%tl188798189009%_ + _%__splice190753190754%_ + _%target188799189012%_ + _%tl188801189014%_)) + (_%__match190838190839%_ + _%e188793188996%_ + _%hd188794188999%_ + _%tl188795189001%_ + _%e188796189004%_ + _%hd188797189007%_ + _%tl188798189009%_ + _%__splice190753190754%_ + _%target188799189012%_ + _%tl188801189014%_)) + (_%__match190838190839%_ + _%e188793188996%_ + _%hd188794188999%_ + _%tl188795189001%_ + _%e188796189004%_ + _%hd188797189007%_ + _%tl188798189009%_ + _%__splice190753190754%_ + _%target188799189012%_ + _%tl188801189014%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)))) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)))) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)))) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)))) + (_%__match190838190839%_ + _%e188793188996%_ + _%hd188794188999%_ + _%tl188795189001%_ + _%e188796189004%_ + _%hd188797189007%_ + _%tl188798189009%_ + _%__splice190753190754%_ + _%target188799189012%_ + _%tl188801189014%_)))) + (_%__match190838190839%_ + _%e188793188996%_ + _%hd188794188999%_ + _%tl188795189001%_ + _%e188796189004%_ + _%hd188797189007%_ + _%tl188798189009%_ + _%__splice190753190754%_ + _%target188799189012%_ + _%tl188801189014%_)) + (_%__match190838190839%_ + _%e188793188996%_ + _%hd188794188999%_ + _%tl188795189001%_ + _%e188796189004%_ + _%hd188797189007%_ + _%tl188798189009%_ + _%__splice190753190754%_ + _%target188799189012%_ + _%tl188801189014%_)))) + (_%__match190838190839%_ + _%e188793188996%_ + _%hd188794188999%_ + _%tl188795189001%_ + _%e188796189004%_ + _%hd188797189007%_ + _%tl188798189009%_ + _%__splice190753190754%_ + _%target188799189012%_ + _%tl188801189014%_)))) + (_%__match190838190839%_ + _%e188793188996%_ + _%hd188794188999%_ + _%tl188795189001%_ + _%e188796189004%_ + _%hd188797189007%_ + _%tl188798189009%_ + _%__splice190753190754%_ + _%target188799189012%_ + _%tl188801189014%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187511187722%_)) - (let ((_%e187519187785%_ + _%tl188798189009%_)) + (let ((_%e188806189072%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl187511187722%_)))) - (let ((_%tl187521187790%_ - (let () (declare (not safe)) (##cdr _%e187519187785%_))) - (_%hd187520187788%_ + (gx#stx-e _%tl188798189009%_)))) + (let ((_%tl188808189077%_ + (let () (declare (not safe)) (##cdr _%e188806189072%_))) + (_%hd188807189075%_ (let () (declare (not safe)) - (##car _%e187519187785%_)))) + (##car _%e188806189072%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187521187790%_)) - (_%__kont189464189465%_) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)))) - (_%__match189551189552%_ - _%e187506187709%_ - _%hd187507187712%_ - _%tl187508187714%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_)))))) + (gx#stx-null? _%tl188808189077%_)) + (_%__kont190751190752%_) + (_%__match190838190839%_ + _%e188793188996%_ + _%hd188794188999%_ + _%tl188795189001%_ + _%e188796189004%_ + _%hd188797189007%_ + _%tl188798189009%_ + _%__splice190753190754%_ + _%target188799189012%_ + _%tl188801189014%_)))) + (_%__match190838190839%_ + _%e188793188996%_ + _%hd188794188999%_ + _%tl188795189001%_ + _%e188796189004%_ + _%hd188797189007%_ + _%tl188798189009%_ + _%__splice190753190754%_ + _%target188799189012%_ + _%tl188801189014%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop187515187730%_ - _%target187512187725%_))))) + (_%loop188802189017%_ + _%target188799189012%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189460189461%_)) - (let ((_%e187494187800%_ + (gx#stx-pair? _%__stx190747190748%_)) + (let ((_%e188781189087%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189460189461%_)))) - (let ((_%tl187496187805%_ + (gx#stx-e _%__stx190747190748%_)))) + (let ((_%tl188783189092%_ (let () (declare (not safe)) - (##cdr _%e187494187800%_))) - (_%hd187495187803%_ + (##cdr _%e188781189087%_))) + (_%hd188782189090%_ (let () (declare (not safe)) - (##car _%e187494187800%_)))) + (##car _%e188781189087%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd187495187803%_)) + (gx#identifier? _%hd188782189090%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd187495187803%_)) + _%hd188782189090%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187496187805%_)) - (let ((_%e187497187808%_ + _%tl188783189092%_)) + (let ((_%e188784189095%_ (let () (declare (not safe)) (gx#stx-e - _%tl187496187805%_)))) - (let ((_%tl187499187813%_ + _%tl188783189092%_)))) + (let ((_%tl188786189100%_ (let () (declare (not safe)) - (##cdr _%e187497187808%_))) - (_%hd187498187811%_ + (##cdr _%e188784189095%_))) + (_%hd188785189098%_ (let () (declare (not safe)) - (##car _%e187497187808%_)))) + (##car _%e188784189095%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187499187813%_)) - (let ((_%e187500187816%_ + _%tl188786189100%_)) + (let ((_%e188787189103%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl187499187813%_)))) - (let ((_%tl187502187821%_ - (let () (declare (not safe)) (##cdr _%e187500187816%_))) - (_%hd187501187819%_ + (gx#stx-e _%tl188786189100%_)))) + (let ((_%tl188789189108%_ + (let () (declare (not safe)) (##cdr _%e188787189103%_))) + (_%hd188788189106%_ (let () (declare (not safe)) - (##car _%e187500187816%_)))) + (##car _%e188787189103%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187502187821%_)) - (let ((_%e187503187824%_ + (gx#stx-pair? _%tl188789189108%_)) + (let ((_%e188790189111%_ (let () (declare (not safe)) - (gx#stx-e _%tl187502187821%_)))) - (let ((_%tl187505187829%_ + (gx#stx-e _%tl188789189108%_)))) + (let ((_%tl188792189116%_ (let () (declare (not safe)) - (##cdr _%e187503187824%_))) - (_%hd187504187827%_ + (##cdr _%e188790189111%_))) + (_%hd188791189114%_ (let () (declare (not safe)) - (##car _%e187503187824%_)))) + (##car _%e188790189111%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187505187829%_)) - (_%__kont189462189463%_ - _%hd187504187827%_ - _%hd187501187819%_ - _%hd187498187811%_) - (_%__kont189472189473%_)))) - (_%__kont189472189473%_)))) - (_%__kont189472189473%_)))) + (gx#stx-null? _%tl188792189116%_)) + (_%__kont190749190750%_ + _%hd188791189114%_ + _%hd188788189106%_ + _%hd188785189098%_) + (_%__kont190759190760%_)))) + (_%__kont190759190760%_)))) + (_%__kont190759190760%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189472189473%_)) + (_%__kont190759190760%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd187495187803%_)) + _%hd188782189090%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187496187805%_)) - (let ((_%e187509187717%_ + _%tl188783189092%_)) + (let ((_%e188796189004%_ (let () (declare (not safe)) (gx#stx-e - _%tl187496187805%_)))) - (let ((_%tl187511187722%_ + _%tl188783189092%_)))) + (let ((_%tl188798189009%_ (let () (declare (not safe)) - (##cdr _%e187509187717%_))) - (_%hd187510187720%_ + (##cdr _%e188796189004%_))) + (_%hd188797189007%_ (let () (declare (not safe)) - (##car _%e187509187717%_)))) + (##car _%e188796189004%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd187510187720%_)) - (let ((_%__splice189466189467%_ + _%hd188797189007%_)) + (let ((_%__splice190753190754%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd187510187720%_ '0)))) - (let ((_%tl187514187727%_ + (gx#syntax-split-splice _%hd188797189007%_ '0)))) + (let ((_%tl188801189014%_ (let () (declare (not safe)) - (##vector-ref _%__splice189466189467%_ '1))) - (_%target187512187725%_ + (##vector-ref _%__splice190753190754%_ '1))) + (_%target188799189012%_ (let () (declare (not safe)) - (##vector-ref _%__splice189466189467%_ '0)))) + (##vector-ref _%__splice190753190754%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187514187727%_)) - (_%__match189527189528%_ - _%e187494187800%_ - _%hd187495187803%_ - _%tl187496187805%_ - _%e187509187717%_ - _%hd187510187720%_ - _%tl187511187722%_ - _%__splice189466189467%_ - _%target187512187725%_ - _%tl187514187727%_) - (_%__kont189472189473%_)))) - (_%__kont189472189473%_)))) + (gx#stx-null? _%tl188801189014%_)) + (_%__match190814190815%_ + _%e188781189087%_ + _%hd188782189090%_ + _%tl188783189092%_ + _%e188796189004%_ + _%hd188797189007%_ + _%tl188798189009%_ + _%__splice190753190754%_ + _%target188799189012%_ + _%tl188801189014%_) + (_%__kont190759190760%_)))) + (_%__kont190759190760%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189472189473%_)) - (_%__kont189472189473%_))) - (_%__kont189472189473%_)))) - (_%__kont189472189473%_))))))) - (_%fold-blocks187302%_ - (lambda (_%rest187401%_ _%blocks187402%_) - (let* ((_%rest187403187420%_ _%rest187401%_) - (_%E187406187424%_ + (_%__kont190759190760%_)) + (_%__kont190759190760%_))) + (_%__kont190759190760%_)))) + (_%__kont190759190760%_))))))) + (_%fold-blocks188589%_ + (lambda (_%rest188688%_ _%blocks188689%_) + (let* ((_%rest188690188707%_ _%rest188688%_) + (_%E188693188711%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest187403187420%_ + _%rest188690188707%_ '([[name body bind assert] . rest]) '([]))) '#!void))) - (let ((_%K187408187444%_ - (lambda (_%rest187435%_ - _%assert187436%_ - _%bind187437%_ - _%body187438%_ - _%name187439%_) - (let ((_g192271_ - (_%basic-block187301%_ - _%body187438%_ - _%bind187437%_ - _%assert187436%_))) + (let ((_%K188695188731%_ + (lambda (_%rest188722%_ + _%assert188723%_ + _%bind188724%_ + _%body188725%_ + _%name188726%_) + (let ((_g193558_ + (_%basic-block188588%_ + _%body188725%_ + _%bind188724%_ + _%assert188723%_))) (begin - (let ((_g192272_ + (let ((_g193559_ (let () (declare (not safe)) - (if (##values? _g192271_) - (##vector-length _g192271_) + (if (##values? _g193558_) + (##values-length _g193558_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192272_ 2))) + (##fx= _g193559_ 2))) (error "Context expects 2 values" - _g192272_))) - (let ((_%body187441%_ + _g193559_))) + (let ((_%body188728%_ (let () (declare (not safe)) - (##vector-ref _g192271_ 0))) - (_%body-blocks187442%_ + (##values-ref _g193558_ 0))) + (_%body-blocks188729%_ (let () (declare (not safe)) - (##vector-ref _g192271_ 1)))) - (_%fold-blocks187302%_ + (##values-ref _g193558_ 1)))) + (_%fold-blocks188589%_ (let () (declare (not safe)) (__foldl1 cons - _%rest187435%_ - _%body-blocks187442%_)) - (cons (cons _%name187439%_ + _%rest188722%_ + _%body-blocks188729%_)) + (cons (cons _%name188726%_ (cons 'continue: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let ((__tmp192273 (map car _%bind187437%_))) + (cons (let ((__tmp193560 (map car _%bind188724%_))) (declare (not safe)) - (##reverse __tmp192273)) - (cons _%body187441%_ '()))) - (cons _%assert187436%_ (cons _%bind187437%_ '()))))) + (##reverse __tmp193560)) + (cons _%body188728%_ '()))) + (cons _%assert188723%_ (cons _%bind188724%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks187402%_))))))) - (_%K187407187429%_ (lambda () _%blocks187402%_))) - (let ((_%try-match187405187432%_ + _%blocks188689%_))))))) + (_%K188694188716%_ (lambda () _%blocks188689%_))) + (let ((_%try-match188692188719%_ (lambda () - (if (null? _%rest187403187420%_) - (_%K187407187429%_) - (_%E187406187424%_))))) - (if (pair? _%rest187403187420%_) - (let ((_%tl187410187449%_ + (if (null? _%rest188690188707%_) + (_%K188694188716%_) + (_%E188693188711%_))))) + (if (pair? _%rest188690188707%_) + (let ((_%tl188697188736%_ (let () (declare (not safe)) - (##cdr _%rest187403187420%_))) - (_%hd187409187447%_ + (##cdr _%rest188690188707%_))) + (_%hd188696188734%_ (let () (declare (not safe)) - (##car _%rest187403187420%_)))) - (if (pair? _%hd187409187447%_) - (let ((_%tl187412187454%_ + (##car _%rest188690188707%_)))) + (if (pair? _%hd188696188734%_) + (let ((_%tl188699188741%_ (let () (declare (not safe)) - (##cdr _%hd187409187447%_))) - (_%hd187411187452%_ + (##cdr _%hd188696188734%_))) + (_%hd188698188739%_ (let () (declare (not safe)) - (##car _%hd187409187447%_)))) - (if (pair? _%tl187412187454%_) - (let ((_%tl187414187461%_ + (##car _%hd188696188734%_)))) + (if (pair? _%tl188699188741%_) + (let ((_%tl188701188748%_ (let () (declare (not safe)) - (##cdr _%tl187412187454%_))) - (_%hd187413187459%_ + (##cdr _%tl188699188741%_))) + (_%hd188700188746%_ (let () (declare (not safe)) - (##car _%tl187412187454%_)))) - (if (pair? _%tl187414187461%_) - (let ((_%tl187416187468%_ + (##car _%tl188699188741%_)))) + (if (pair? _%tl188701188748%_) + (let ((_%tl188703188755%_ (let () (declare (not safe)) - (##cdr _%tl187414187461%_))) - (_%hd187415187466%_ + (##cdr _%tl188701188748%_))) + (_%hd188702188753%_ (let () (declare (not safe)) - (##car _%tl187414187461%_)))) - (if (pair? _%tl187416187468%_) - (let ((_%tl187418187475%_ + (##car _%tl188701188748%_)))) + (if (pair? _%tl188703188755%_) + (let ((_%tl188705188762%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl187416187468%_))) - (_%hd187417187473%_ - (let () (declare (not safe)) (##car _%tl187416187468%_)))) - (if (null? _%tl187418187475%_) - (let ((_%name187457%_ _%hd187411187452%_) - (_%body187464%_ _%hd187413187459%_) - (_%bind187471%_ _%hd187415187466%_) - (_%assert187478%_ _%hd187417187473%_) - (_%rest187480%_ _%tl187410187449%_)) - (_%K187408187444%_ - _%rest187480%_ - _%assert187478%_ - _%bind187471%_ - _%body187464%_ - _%name187457%_)) - (_%E187406187424%_))) - (_%E187406187424%_))) + (##cdr _%tl188703188755%_))) + (_%hd188704188760%_ + (let () (declare (not safe)) (##car _%tl188703188755%_)))) + (if (null? _%tl188705188762%_) + (let ((_%name188744%_ _%hd188698188739%_) + (_%body188751%_ _%hd188700188746%_) + (_%bind188758%_ _%hd188702188753%_) + (_%assert188765%_ _%hd188704188760%_) + (_%rest188767%_ _%tl188697188736%_)) + (_%K188695188731%_ + _%rest188767%_ + _%assert188765%_ + _%bind188758%_ + _%body188751%_ + _%name188744%_)) + (_%E188693188711%_))) + (_%E188693188711%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E187406187424%_))) - (_%E187406187424%_))) - (_%E187406187424%_))) - (_%try-match187405187432%_)))))))) - (let* ((_%clause187303187310%_ _%clause187296%_) - (_%E187305187314%_ + (_%E188693188711%_))) + (_%E188693188711%_))) + (_%E188693188711%_))) + (_%try-match188692188719%_)))))))) + (let* ((_%clause188590188597%_ _%clause188583%_) + (_%E188592188601%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause187303187310%_ + _%clause188590188597%_ '([name . body]))) '#!void)) - (_%K187306187389%_ - (lambda (_%body187317%_ _%name187318%_) - (let* ((_%g187320187336%_ - (lambda (_%g187321187333%_) + (_%K188593188676%_ + (lambda (_%body188604%_ _%name188605%_) + (let* ((_%g188607188623%_ + (lambda (_%g188608188620%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187321187333%_)))) - (_%g187319187386%_ - (lambda (_%g187321187339%_) + _%g188608188620%_)))) + (_%g188606188673%_ + (lambda (_%g188608188626%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g187321187339%_)) - (let ((_%e187323187341%_ + (gx#stx-pair? _%g188608188626%_)) + (let ((_%e188610188628%_ (let () (declare (not safe)) - (gx#stx-e _%g187321187339%_)))) - (let ((_%hd187324187344%_ + (gx#stx-e _%g188608188626%_)))) + (let ((_%hd188611188631%_ (let () (declare (not safe)) - (##car _%e187323187341%_))) - (_%tl187325187346%_ + (##car _%e188610188628%_))) + (_%tl188612188633%_ (let () (declare (not safe)) - (##cdr _%e187323187341%_)))) + (##cdr _%e188610188628%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187324187344%_)) + _%hd188611188631%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187324187344%_)) + _%hd188611188631%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187325187346%_)) - (let ((_%e187326187349%_ + _%tl188612188633%_)) + (let ((_%e188613188636%_ (let () (declare (not safe)) (gx#stx-e - _%tl187325187346%_)))) - (let ((_%hd187327187352%_ + _%tl188612188633%_)))) + (let ((_%hd188614188639%_ (let () (declare (not safe)) - (##car _%e187326187349%_))) - (_%tl187328187354%_ + (##car _%e188613188636%_))) + (_%tl188615188641%_ (let () (declare (not safe)) - (##cdr _%e187326187349%_)))) + (##cdr _%e188613188636%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd187327187352%_)) + _%hd188614188639%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187328187354%_)) - (let ((_%e187329187357%_ + (gx#stx-pair? _%tl188615188641%_)) + (let ((_%e188616188644%_ (let () (declare (not safe)) - (gx#stx-e _%tl187328187354%_)))) - (let ((_%hd187330187360%_ + (gx#stx-e _%tl188615188641%_)))) + (let ((_%hd188617188647%_ (let () (declare (not safe)) - (##car _%e187329187357%_))) - (_%tl187331187362%_ + (##car _%e188616188644%_))) + (_%tl188618188649%_ (let () (declare (not safe)) - (##cdr _%e187329187357%_)))) + (##cdr _%e188616188644%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187331187362%_)) - ((lambda (_%L187365%_) - (let ((_g192274_ - (_%basic-block187301%_ - _%L187365%_ + (gx#stx-null? _%tl188618188649%_)) + ((lambda (_%L188652%_) + (let ((_g193561_ + (_%basic-block188588%_ + _%L188652%_ '() '()))) (begin - (let ((_g192275_ + (let ((_g193562_ (let () (declare (not safe)) - (if (##values? _g192274_) - (##vector-length _g192274_) + (if (##values? _g193561_) + (##values-length _g193561_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192275_ 2))) + (##fx= _g193562_ 2))) (error "Context expects 2 values" - _g192275_))) - (let ((_%body187383%_ + _g193562_))) + (let ((_%body188670%_ (let () (declare (not safe)) - (##vector-ref _g192274_ 0))) - (_%body-blocks187384%_ + (##values-ref _g193561_ 0))) + (_%body-blocks188671%_ (let () (declare (not safe)) - (##vector-ref _g192274_ 1)))) - (_%fold-blocks187302%_ - _%body-blocks187384%_ - (cons (cons _%name187318%_ + (##values-ref _g193561_ 1)))) + (_%fold-blocks188589%_ + _%body-blocks188671%_ + (cons (cons _%name188605%_ (cons 'restart: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body187383%_ '()))) + (cons '() (cons _%body188670%_ '()))) (cons '() '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks187297%_)))))) - _%hd187330187360%_) - (_%g187320187336%_ _%g187321187339%_)))) - (_%g187320187336%_ _%g187321187339%_)) - (_%g187320187336%_ _%g187321187339%_)))) + _%blocks188584%_)))))) + _%hd188617188647%_) + (_%g188607188623%_ _%g188608188626%_)))) + (_%g188607188623%_ _%g188608188626%_)) + (_%g188607188623%_ _%g188608188626%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187320187336%_ - _%g187321187339%_)) - (_%g187320187336%_ - _%g187321187339%_)) - (_%g187320187336%_ - _%g187321187339%_)))) - (_%g187320187336%_ _%g187321187339%_))))) - (_%g187319187386%_ _%body187317%_))))) - (if (pair? _%clause187303187310%_) - (let ((_%hd187307187392%_ + (_%g188607188623%_ + _%g188608188626%_)) + (_%g188607188623%_ + _%g188608188626%_)) + (_%g188607188623%_ + _%g188608188626%_)))) + (_%g188607188623%_ _%g188608188626%_))))) + (_%g188606188673%_ _%body188604%_))))) + (if (pair? _%clause188590188597%_) + (let ((_%hd188594188679%_ (let () (declare (not safe)) - (##car _%clause187303187310%_))) - (_%tl187308187394%_ + (##car _%clause188590188597%_))) + (_%tl188595188681%_ (let () (declare (not safe)) - (##cdr _%clause187303187310%_)))) - (let* ((_%name187397%_ _%hd187307187392%_) - (_%body187399%_ _%tl187308187394%_)) - (_%K187306187389%_ _%body187399%_ _%name187397%_))) - (_%E187305187314%_)))))) + (##cdr _%clause188590188597%_)))) + (let* ((_%name188684%_ _%hd188594188679%_) + (_%body188686%_ _%tl188595188681%_)) + (_%K188593188676%_ _%body188686%_ _%name188684%_))) + (_%E188592188601%_)))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_%blocks186902%_) - (let _%lp186904%_ ((_%rest186906%_ _%blocks186902%_) - (_%blocks186907%_ '())) - (let* ((_%rest186908186916%_ _%rest186906%_) - (_%else186910186965%_ + (lambda (_%blocks188189%_) + (let _%lp188191%_ ((_%rest188193%_ _%blocks188189%_) + (_%blocks188194%_ '())) + (let* ((_%rest188195188203%_ _%rest188193%_) + (_%else188197188252%_ (lambda () - (let ((__tmp192276 - (lambda (_%block186924%_ _%r186925%_) - (let* ((_%block186926186937%_ _%block186924%_) - (_%E186928186941%_ + (let ((__tmp193563 + (lambda (_%block188211%_ _%r188212%_) + (let* ((_%block188213188224%_ _%block188211%_) + (_%E188215188228%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block186926186937%_ + _%block188213188224%_ '([name _ kont . _]))) '#!void)) - (_%K186929186947%_ - (lambda (_%kont186944%_ _%name186945%_) - (cons (cons _%name186945%_ - _%kont186944%_) - _%r186925%_)))) - (if (pair? _%block186926186937%_) - (let ((_%hd186930186950%_ + (_%K188216188234%_ + (lambda (_%kont188231%_ _%name188232%_) + (cons (cons _%name188232%_ + _%kont188231%_) + _%r188212%_)))) + (if (pair? _%block188213188224%_) + (let ((_%hd188217188237%_ (let () (declare (not safe)) - (##car _%block186926186937%_))) - (_%tl186931186952%_ + (##car _%block188213188224%_))) + (_%tl188218188239%_ (let () (declare (not safe)) - (##cdr _%block186926186937%_)))) - (let ((_%name186955%_ _%hd186930186950%_)) - (if (pair? _%tl186931186952%_) - (let ((_%tl186933186957%_ + (##cdr _%block188213188224%_)))) + (let ((_%name188242%_ _%hd188217188237%_)) + (if (pair? _%tl188218188239%_) + (let ((_%tl188220188244%_ (let () (declare (not safe)) - (##cdr _%tl186931186952%_)))) - (if (pair? _%tl186933186957%_) - (let* ((_%hd186934186960%_ + (##cdr _%tl188218188239%_)))) + (if (pair? _%tl188220188244%_) + (let* ((_%hd188221188247%_ (let () (declare (not safe)) - (##car _%tl186933186957%_))) - (_%kont186963%_ - _%hd186934186960%_)) - (_%K186929186947%_ - _%kont186963%_ - _%name186955%_)) - (_%E186928186941%_))) - (_%E186928186941%_)))) - (_%E186928186941%_)))))) + (##car _%tl188220188244%_))) + (_%kont188250%_ + _%hd188221188247%_)) + (_%K188216188234%_ + _%kont188250%_ + _%name188242%_)) + (_%E188215188228%_))) + (_%E188215188228%_)))) + (_%E188215188228%_)))))) (declare (not safe)) - (__foldl1 __tmp192276 '() _%blocks186907%_)))) - (_%K186912187284%_ - (lambda (_%rest186968%_ _%block186969%_) - (let* ((_%block186970186995%_ _%block186969%_) - (_%E186973186999%_ + (__foldl1 __tmp193563 '() _%blocks188194%_)))) + (_%K188199188571%_ + (lambda (_%rest188255%_ _%block188256%_) + (let* ((_%block188257188282%_ _%block188256%_) + (_%E188260188286%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block186970186995%_ + _%block188257188282%_ '([name restart: kont assert]) '([name continue: kont assert bind]))) '#!void))) - (let ((_%K186985187255%_ - (lambda (_%assert187177%_ - _%kont187178%_ - _%name187179%_) - (let* ((_%g187181187197%_ - (lambda (_%g187182187194%_) + (let ((_%K188272188542%_ + (lambda (_%assert188464%_ + _%kont188465%_ + _%name188466%_) + (let* ((_%g188468188484%_ + (lambda (_%g188469188481%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187182187194%_)))) - (_%g187180187252%_ - (lambda (_%g187182187200%_) + _%g188469188481%_)))) + (_%g188467188539%_ + (lambda (_%g188469188487%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g187182187200%_)) - (let ((_%e187184187202%_ + _%g188469188487%_)) + (let ((_%e188471188489%_ (let () (declare (not safe)) (gx#stx-e - _%g187182187200%_)))) - (let ((_%hd187185187205%_ + _%g188469188487%_)))) + (let ((_%hd188472188492%_ (let () (declare (not safe)) - (##car _%e187184187202%_))) - (_%tl187186187207%_ + (##car _%e188471188489%_))) + (_%tl188473188494%_ (let () (declare (not safe)) - (##cdr _%e187184187202%_)))) + (##cdr _%e188471188489%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187185187205%_)) + _%hd188472188492%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187185187205%_)) + _%hd188472188492%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187186187207%_)) - (let ((_%e187187187210%_ + (gx#stx-pair? _%tl188473188494%_)) + (let ((_%e188474188497%_ (let () (declare (not safe)) - (gx#stx-e _%tl187186187207%_)))) - (let ((_%hd187188187213%_ + (gx#stx-e _%tl188473188494%_)))) + (let ((_%hd188475188500%_ (let () (declare (not safe)) - (##car _%e187187187210%_))) - (_%tl187189187215%_ + (##car _%e188474188497%_))) + (_%tl188476188502%_ (let () (declare (not safe)) - (##cdr _%e187187187210%_)))) + (##cdr _%e188474188497%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd187188187213%_)) + (gx#stx-null? _%hd188475188500%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187189187215%_)) - (let ((_%e187190187218%_ + (gx#stx-pair? _%tl188476188502%_)) + (let ((_%e188477188505%_ (let () (declare (not safe)) - (gx#stx-e _%tl187189187215%_)))) - (let ((_%hd187191187221%_ + (gx#stx-e _%tl188476188502%_)))) + (let ((_%hd188478188508%_ (let () (declare (not safe)) - (##car _%e187190187218%_))) - (_%tl187192187223%_ + (##car _%e188477188505%_))) + (_%tl188479188510%_ (let () (declare (not safe)) - (##cdr _%e187190187218%_)))) + (##cdr _%e188477188505%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187192187223%_)) - ((lambda (_%L187226%_) - (let* ((_%body187241%_ + (gx#stx-null? _%tl188479188510%_)) + ((lambda (_%L188513%_) + (let* ((_%body188528%_ (gxc#optimize-match-block - _%L187226%_ - _%assert187177%_ + _%L188513%_ + _%assert188464%_ '() - _%rest186968%_)) - (_%block187243%_ - (cons _%name187179%_ + _%rest188255%_)) + (_%block188530%_ + (cons _%name188466%_ (cons 'restart: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body187241%_ '()))) - (cons _%assert187177%_ '()))))) + (cons '() (cons _%body188528%_ '()))) + (cons _%assert188464%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks187245%_ - (cons _%block187243%_ - _%blocks186907%_)) - (_%rest187247%_ + (_%blocks188532%_ + (cons _%block188530%_ + _%blocks188194%_)) + (_%rest188534%_ (gxc#optimize-match-prune-blocks - _%rest186968%_ - _%blocks187245%_)) - (_%rest187249%_ + _%rest188255%_ + _%blocks188532%_)) + (_%rest188536%_ (gxc#optimize-match-fuse-restart-blocks - _%rest187247%_ - _%blocks187245%_))) - (_%lp186904%_ - _%rest187249%_ - _%blocks187245%_))) - _%hd187191187221%_) - (_%g187181187197%_ - _%g187182187200%_)))) - (_%g187181187197%_ _%g187182187200%_)) - (_%g187181187197%_ _%g187182187200%_)))) - (_%g187181187197%_ _%g187182187200%_)) - (_%g187181187197%_ _%g187182187200%_)) + _%rest188534%_ + _%blocks188532%_))) + (_%lp188191%_ + _%rest188536%_ + _%blocks188532%_))) + _%hd188478188508%_) + (_%g188468188484%_ + _%g188469188487%_)))) + (_%g188468188484%_ _%g188469188487%_)) + (_%g188468188484%_ _%g188469188487%_)))) + (_%g188468188484%_ _%g188469188487%_)) + (_%g188468188484%_ _%g188469188487%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187181187197%_ - _%g187182187200%_)))) - (_%g187181187197%_ - _%g187182187200%_))))) - (_%g187180187252%_ _%kont187178%_)))) - (_%K186974187138%_ - (lambda (_%bind187003%_ - _%assert187004%_ - _%kont187005%_ - _%name187006%_) - (let* ((_%g187008187034%_ - (lambda (_%g187009187031%_) + (_%g188468188484%_ + _%g188469188487%_)))) + (_%g188468188484%_ + _%g188469188487%_))))) + (_%g188467188539%_ _%kont188465%_)))) + (_%K188261188425%_ + (lambda (_%bind188290%_ + _%assert188291%_ + _%kont188292%_ + _%name188293%_) + (let* ((_%g188295188321%_ + (lambda (_%g188296188318%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187009187031%_)))) - (_%g187007187135%_ - (lambda (_%g187009187037%_) + _%g188296188318%_)))) + (_%g188294188422%_ + (lambda (_%g188296188324%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g187009187037%_)) - (let ((_%e187012187039%_ + _%g188296188324%_)) + (let ((_%e188299188326%_ (let () (declare (not safe)) (gx#stx-e - _%g187009187037%_)))) - (let ((_%hd187013187042%_ + _%g188296188324%_)))) + (let ((_%hd188300188329%_ (let () (declare (not safe)) - (##car _%e187012187039%_))) - (_%tl187014187044%_ + (##car _%e188299188326%_))) + (_%tl188301188331%_ (let () (declare (not safe)) - (##cdr _%e187012187039%_)))) + (##cdr _%e188299188326%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187013187042%_)) + _%hd188300188329%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187013187042%_)) + _%hd188300188329%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187014187044%_)) - (let ((_%e187015187047%_ + (gx#stx-pair? _%tl188301188331%_)) + (let ((_%e188302188334%_ (let () (declare (not safe)) - (gx#stx-e _%tl187014187044%_)))) - (let ((_%hd187016187050%_ + (gx#stx-e _%tl188301188331%_)))) + (let ((_%hd188303188337%_ (let () (declare (not safe)) - (##car _%e187015187047%_))) - (_%tl187017187052%_ + (##car _%e188302188334%_))) + (_%tl188304188339%_ (let () (declare (not safe)) - (##cdr _%e187015187047%_)))) + (##cdr _%e188302188334%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd187016187050%_)) - (let ((_g192277_ + (gx#stx-pair/null? _%hd188303188337%_)) + (let ((_g193564_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd187016187050%_ + _%hd188303188337%_ '0)))) (begin - (let ((_g192278_ + (let ((_g193565_ (let () (declare (not safe)) - (if (##values? _g192277_) - (##vector-length _g192277_) + (if (##values? _g193564_) + (##values-length _g193564_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192278_ 2))) + (##fx= _g193565_ 2))) (error "Context expects 2 values" - _g192278_))) - (let ((_%target187018187055%_ + _g193565_))) + (let ((_%target188305188342%_ (let () (declare (not safe)) - (##vector-ref _g192277_ 0))) - (_%tl187020187057%_ + (##values-ref _g193564_ 0))) + (_%tl188307188344%_ (let () (declare (not safe)) - (##vector-ref _g192277_ 1)))) + (##values-ref _g193564_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187020187057%_)) - (letrec ((_%loop187021187060%_ - (lambda (_%hd187019187063%_ - _%id187025187065%_) + (gx#stx-null? _%tl188307188344%_)) + (letrec ((_%loop188308188347%_ + (lambda (_%hd188306188350%_ + _%id188312188352%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187019187063%_)) - (let ((_%e187022187068%_ + _%hd188306188350%_)) + (let ((_%e188309188355%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd187019187063%_)))) - (let ((_%lp-hd187023187071%_ + (gx#stx-e _%hd188306188350%_)))) + (let ((_%lp-hd188310188358%_ (let () (declare (not safe)) - (##car _%e187022187068%_))) - (_%lp-tl187024187073%_ + (##car _%e188309188355%_))) + (_%lp-tl188311188360%_ (let () (declare (not safe)) - (##cdr _%e187022187068%_)))) - (_%loop187021187060%_ - _%lp-tl187024187073%_ - (cons _%lp-hd187023187071%_ _%id187025187065%_)))) - (let ((_%id187026187076%_ (reverse _%id187025187065%_))) + (##cdr _%e188309188355%_)))) + (_%loop188308188347%_ + _%lp-tl188311188360%_ + (cons _%lp-hd188310188358%_ _%id188312188352%_)))) + (let ((_%id188313188363%_ (reverse _%id188312188352%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187017187052%_)) - (let ((_%e187027187079%_ + (gx#stx-pair? _%tl188304188339%_)) + (let ((_%e188314188366%_ (let () (declare (not safe)) - (gx#stx-e _%tl187017187052%_)))) - (let ((_%hd187028187082%_ + (gx#stx-e _%tl188304188339%_)))) + (let ((_%hd188315188369%_ (let () (declare (not safe)) - (##car _%e187027187079%_))) - (_%tl187029187084%_ + (##car _%e188314188366%_))) + (_%tl188316188371%_ (let () (declare (not safe)) - (##cdr _%e187027187079%_)))) + (##cdr _%e188314188366%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187029187084%_)) - ((lambda (_%L187087%_ _%L187088%_) - (let* ((_%body187117%_ + (gx#stx-null? _%tl188316188371%_)) + ((lambda (_%L188374%_ _%L188375%_) + (let* ((_%body188404%_ (gxc#optimize-match-block - _%L187087%_ - _%assert187004%_ - _%bind187003%_ - _%rest186968%_)) - (_%block187126%_ - (cons _%name187006%_ + _%L188374%_ + _%assert188291%_ + _%bind188290%_ + _%rest188255%_)) + (_%block188413%_ + (cons _%name188293%_ (cons 'continue: (cons (cons '%#lambda - (cons (let ((__tmp192279 + (cons (let ((__tmp193566 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g187118187121%_ - _%g187119187123%_) - (cons _%g187118187121%_ - _%g187119187123%_)))) + (lambda (_%g188405188408%_ + _%g188406188410%_) + (cons _%g188405188408%_ + _%g188406188410%_)))) (declare (not safe)) - (__foldr1 __tmp192279 '() _%L187088%_)) - (cons _%body187117%_ '()))) - (cons _%assert187004%_ (cons _%bind187003%_ '())))))) + (__foldr1 __tmp193566 '() _%L188375%_)) + (cons _%body188404%_ '()))) + (cons _%assert188291%_ (cons _%bind188290%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks187128%_ - (cons _%block187126%_ - _%blocks186907%_)) - (_%rest187130%_ + (_%blocks188415%_ + (cons _%block188413%_ + _%blocks188194%_)) + (_%rest188417%_ (gxc#optimize-match-prune-blocks - _%rest186968%_ - _%blocks187128%_)) - (_%rest187132%_ + _%rest188255%_ + _%blocks188415%_)) + (_%rest188419%_ (gxc#optimize-match-fuse-restart-blocks - _%rest187130%_ - _%blocks187128%_))) - (_%lp186904%_ - _%rest187132%_ - _%blocks187128%_))) - _%hd187028187082%_ - _%id187026187076%_) - (_%g187008187034%_ _%g187009187037%_)))) - (_%g187008187034%_ _%g187009187037%_))))))) + _%rest188417%_ + _%blocks188415%_))) + (_%lp188191%_ + _%rest188419%_ + _%blocks188415%_))) + _%hd188315188369%_ + _%id188313188363%_) + (_%g188295188321%_ _%g188296188324%_)))) + (_%g188295188321%_ _%g188296188324%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop187021187060%_ - _%target187018187055%_ + (_%loop188308188347%_ + _%target188305188342%_ '())) - (_%g187008187034%_ - _%g187009187037%_))))) - (_%g187008187034%_ _%g187009187037%_)))) - (_%g187008187034%_ _%g187009187037%_)) - (_%g187008187034%_ _%g187009187037%_)) + (_%g188295188321%_ + _%g188296188324%_))))) + (_%g188295188321%_ _%g188296188324%_)))) + (_%g188295188321%_ _%g188296188324%_)) + (_%g188295188321%_ _%g188296188324%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187008187034%_ - _%g187009187037%_)))) - (_%g187008187034%_ - _%g187009187037%_))))) - (_%g187007187135%_ _%kont187005%_))))) - (let* ((_%__match189637189638%_ - (lambda (_%hd186975187141%_ - _%tl186976187143%_ - _%hd186977187148%_ - _%tl186978187150%_ - _%hd186979187153%_ - _%tl186980187155%_ - _%hd186981187160%_ - _%tl186982187162%_ - _%hd186983187167%_ - _%tl186984187169%_) - (let ((_%name187146%_ _%hd186975187141%_) - (_%kont187158%_ _%hd186979187153%_) - (_%assert187165%_ _%hd186981187160%_) - (_%bind187172%_ _%hd186983187167%_)) - (_%E186973186999%_)))) - (_%__match189631189632%_ - (lambda (_%hd186975187141%_ - _%tl186976187143%_ - _%hd186977187148%_ - _%tl186978187150%_ - _%hd186979187153%_ - _%tl186980187155%_ - _%hd186981187160%_ - _%tl186982187162%_) - (let ((_%name187146%_ _%hd186975187141%_) - (_%kont187158%_ _%hd186979187153%_) - (_%assert187165%_ _%hd186981187160%_)) - (_%E186973186999%_)))) - (_%__match189625189626%_ - (lambda (_%hd186975187141%_ - _%tl186976187143%_ - _%hd186977187148%_ - _%tl186978187150%_ - _%hd186979187153%_ - _%tl186980187155%_) - (let ((_%name187146%_ _%hd186975187141%_) - (_%kont187158%_ _%hd186979187153%_)) - (_%E186973186999%_)))) - (_%__match189619189620%_ - (lambda (_%hd186975187141%_ - _%tl186976187143%_ - _%hd186977187148%_ - _%tl186978187150%_) - (let ((_%name187146%_ _%hd186975187141%_)) - (_%E186973186999%_)))) - (_%__match189615189616%_ - (lambda (_%hd186975187141%_ - _%tl186976187143%_ - _%hd186977187148%_ - _%tl186978187150%_) - (let ((_%name187146%_ _%hd186975187141%_)) - (_%E186973186999%_)))) - (_%__match189609189610%_ - (lambda (_%hd186975187141%_ _%tl186976187143%_) - (let ((_%name187146%_ _%hd186975187141%_)) - (_%E186973186999%_))))) - (if (pair? _%block186970186995%_) - (let ((_%tl186987187260%_ + (_%g188295188321%_ + _%g188296188324%_)))) + (_%g188295188321%_ + _%g188296188324%_))))) + (_%g188294188422%_ _%kont188292%_))))) + (let* ((_%__match190924190925%_ + (lambda (_%hd188262188428%_ + _%tl188263188430%_ + _%hd188264188435%_ + _%tl188265188437%_ + _%hd188266188440%_ + _%tl188267188442%_ + _%hd188268188447%_ + _%tl188269188449%_ + _%hd188270188454%_ + _%tl188271188456%_) + (let ((_%name188433%_ _%hd188262188428%_) + (_%kont188445%_ _%hd188266188440%_) + (_%assert188452%_ _%hd188268188447%_) + (_%bind188459%_ _%hd188270188454%_)) + (_%E188260188286%_)))) + (_%__match190918190919%_ + (lambda (_%hd188262188428%_ + _%tl188263188430%_ + _%hd188264188435%_ + _%tl188265188437%_ + _%hd188266188440%_ + _%tl188267188442%_ + _%hd188268188447%_ + _%tl188269188449%_) + (let ((_%name188433%_ _%hd188262188428%_) + (_%kont188445%_ _%hd188266188440%_) + (_%assert188452%_ _%hd188268188447%_)) + (_%E188260188286%_)))) + (_%__match190912190913%_ + (lambda (_%hd188262188428%_ + _%tl188263188430%_ + _%hd188264188435%_ + _%tl188265188437%_ + _%hd188266188440%_ + _%tl188267188442%_) + (let ((_%name188433%_ _%hd188262188428%_) + (_%kont188445%_ _%hd188266188440%_)) + (_%E188260188286%_)))) + (_%__match190906190907%_ + (lambda (_%hd188262188428%_ + _%tl188263188430%_ + _%hd188264188435%_ + _%tl188265188437%_) + (let ((_%name188433%_ _%hd188262188428%_)) + (_%E188260188286%_)))) + (_%__match190902190903%_ + (lambda (_%hd188262188428%_ + _%tl188263188430%_ + _%hd188264188435%_ + _%tl188265188437%_) + (let ((_%name188433%_ _%hd188262188428%_)) + (_%E188260188286%_)))) + (_%__match190896190897%_ + (lambda (_%hd188262188428%_ _%tl188263188430%_) + (let ((_%name188433%_ _%hd188262188428%_)) + (_%E188260188286%_))))) + (if (pair? _%block188257188282%_) + (let ((_%tl188274188547%_ (let () (declare (not safe)) - (##cdr _%block186970186995%_))) - (_%hd186986187258%_ + (##cdr _%block188257188282%_))) + (_%hd188273188545%_ (let () (declare (not safe)) - (##car _%block186970186995%_)))) - (if (pair? _%tl186987187260%_) - (let ((_%tl186989187267%_ + (##car _%block188257188282%_)))) + (if (pair? _%tl188274188547%_) + (let ((_%tl188276188554%_ (let () (declare (not safe)) - (##cdr _%tl186987187260%_))) - (_%hd186988187265%_ + (##cdr _%tl188274188547%_))) + (_%hd188275188552%_ (let () (declare (not safe)) - (##car _%tl186987187260%_)))) + (##car _%tl188274188547%_)))) (if (let () (declare (not safe)) - (##eq? _%hd186988187265%_ + (##eq? _%hd188275188552%_ 'restart:)) - (if (pair? _%tl186989187267%_) - (let ((_%tl186991187272%_ + (if (pair? _%tl188276188554%_) + (let ((_%tl188278188559%_ (let () (declare (not safe)) - (##cdr _%tl186989187267%_))) - (_%hd186990187270%_ + (##cdr _%tl188276188554%_))) + (_%hd188277188557%_ (let () (declare (not safe)) - (##car _%tl186989187267%_)))) - (if (pair? _%tl186991187272%_) - (let ((_%tl186993187279%_ + (##car _%tl188276188554%_)))) + (if (pair? _%tl188278188559%_) + (let ((_%tl188280188566%_ (let () (declare (not safe)) - (##cdr _%tl186991187272%_))) - (_%hd186992187277%_ + (##cdr _%tl188278188559%_))) + (_%hd188279188564%_ (let () (declare (not safe)) - (##car _%tl186991187272%_)))) - (if (null? _%tl186993187279%_) - (let ((_%name187263%_ + (##car _%tl188278188559%_)))) + (if (null? _%tl188280188566%_) + (let ((_%name188550%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd186986187258%_) - (_%kont187275%_ _%hd186990187270%_) - (_%assert187282%_ _%hd186992187277%_)) - (_%K186985187255%_ - _%assert187282%_ - _%kont187275%_ - _%name187263%_)) - (_%__match189615189616%_ - _%hd186986187258%_ - _%tl186987187260%_ - _%hd186988187265%_ - _%tl186989187267%_))) + _%hd188273188545%_) + (_%kont188562%_ _%hd188277188557%_) + (_%assert188569%_ _%hd188279188564%_)) + (_%K188272188542%_ + _%assert188569%_ + _%kont188562%_ + _%name188550%_)) + (_%__match190902190903%_ + _%hd188273188545%_ + _%tl188274188547%_ + _%hd188275188552%_ + _%tl188276188554%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189615189616%_ - _%hd186986187258%_ - _%tl186987187260%_ - _%hd186988187265%_ - _%tl186989187267%_))) - (_%__match189615189616%_ - _%hd186986187258%_ - _%tl186987187260%_ - _%hd186988187265%_ - _%tl186989187267%_)) + (_%__match190902190903%_ + _%hd188273188545%_ + _%tl188274188547%_ + _%hd188275188552%_ + _%tl188276188554%_))) + (_%__match190902190903%_ + _%hd188273188545%_ + _%tl188274188547%_ + _%hd188275188552%_ + _%tl188276188554%_)) (if (let () (declare (not safe)) - (##eq? _%hd186988187265%_ + (##eq? _%hd188275188552%_ 'continue:)) - (if (pair? _%tl186989187267%_) - (let ((_%tl186980187155%_ + (if (pair? _%tl188276188554%_) + (let ((_%tl188267188442%_ (let () (declare (not safe)) - (##cdr _%tl186989187267%_))) - (_%hd186979187153%_ + (##cdr _%tl188276188554%_))) + (_%hd188266188440%_ (let () (declare (not safe)) - (##car _%tl186989187267%_)))) - (if (pair? _%tl186980187155%_) - (let ((_%tl186982187162%_ + (##car _%tl188276188554%_)))) + (if (pair? _%tl188267188442%_) + (let ((_%tl188269188449%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl186980187155%_))) - (_%hd186981187160%_ + (##cdr _%tl188267188442%_))) + (_%hd188268188447%_ (let () (declare (not safe)) - (##car _%tl186980187155%_)))) - (if (pair? _%tl186982187162%_) - (let ((_%tl186984187169%_ + (##car _%tl188267188442%_)))) + (if (pair? _%tl188269188449%_) + (let ((_%tl188271188456%_ (let () (declare (not safe)) - (##cdr _%tl186982187162%_))) - (_%hd186983187167%_ + (##cdr _%tl188269188449%_))) + (_%hd188270188454%_ (let () (declare (not safe)) - (##car _%tl186982187162%_)))) - (if (null? _%tl186984187169%_) - (let ((_%name187146%_ _%hd186986187258%_) - (_%kont187158%_ _%hd186979187153%_) - (_%assert187165%_ _%hd186981187160%_) - (_%bind187172%_ _%hd186983187167%_)) - (_%K186974187138%_ - _%bind187172%_ - _%assert187165%_ - _%kont187158%_ - _%name187146%_)) - (_%__match189637189638%_ - _%hd186986187258%_ - _%tl186987187260%_ - _%hd186988187265%_ - _%tl186989187267%_ - _%hd186979187153%_ - _%tl186980187155%_ - _%hd186981187160%_ - _%tl186982187162%_ - _%hd186983187167%_ - _%tl186984187169%_))) - (_%__match189631189632%_ - _%hd186986187258%_ - _%tl186987187260%_ - _%hd186988187265%_ - _%tl186989187267%_ - _%hd186979187153%_ - _%tl186980187155%_ - _%hd186981187160%_ - _%tl186982187162%_))) - (_%__match189625189626%_ - _%hd186986187258%_ - _%tl186987187260%_ - _%hd186988187265%_ - _%tl186989187267%_ - _%hd186979187153%_ - _%tl186980187155%_))) + (##car _%tl188269188449%_)))) + (if (null? _%tl188271188456%_) + (let ((_%name188433%_ _%hd188273188545%_) + (_%kont188445%_ _%hd188266188440%_) + (_%assert188452%_ _%hd188268188447%_) + (_%bind188459%_ _%hd188270188454%_)) + (_%K188261188425%_ + _%bind188459%_ + _%assert188452%_ + _%kont188445%_ + _%name188433%_)) + (_%__match190924190925%_ + _%hd188273188545%_ + _%tl188274188547%_ + _%hd188275188552%_ + _%tl188276188554%_ + _%hd188266188440%_ + _%tl188267188442%_ + _%hd188268188447%_ + _%tl188269188449%_ + _%hd188270188454%_ + _%tl188271188456%_))) + (_%__match190918190919%_ + _%hd188273188545%_ + _%tl188274188547%_ + _%hd188275188552%_ + _%tl188276188554%_ + _%hd188266188440%_ + _%tl188267188442%_ + _%hd188268188447%_ + _%tl188269188449%_))) + (_%__match190912190913%_ + _%hd188273188545%_ + _%tl188274188547%_ + _%hd188275188552%_ + _%tl188276188554%_ + _%hd188266188440%_ + _%tl188267188442%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189619189620%_ - _%hd186986187258%_ - _%tl186987187260%_ - _%hd186988187265%_ - _%tl186989187267%_)) - (_%__match189615189616%_ - _%hd186986187258%_ - _%tl186987187260%_ - _%hd186988187265%_ - _%tl186989187267%_)))) - (_%__match189609189610%_ - _%hd186986187258%_ - _%tl186987187260%_))) - (_%E186973186999%_)))))))) - (if (pair? _%rest186908186916%_) - (let ((_%hd186913187287%_ + (_%__match190906190907%_ + _%hd188273188545%_ + _%tl188274188547%_ + _%hd188275188552%_ + _%tl188276188554%_)) + (_%__match190902190903%_ + _%hd188273188545%_ + _%tl188274188547%_ + _%hd188275188552%_ + _%tl188276188554%_)))) + (_%__match190896190897%_ + _%hd188273188545%_ + _%tl188274188547%_))) + (_%E188260188286%_)))))))) + (if (pair? _%rest188195188203%_) + (let ((_%hd188200188574%_ (let () (declare (not safe)) - (##car _%rest186908186916%_))) - (_%tl186914187289%_ + (##car _%rest188195188203%_))) + (_%tl188201188576%_ (let () (declare (not safe)) - (##cdr _%rest186908186916%_)))) - (let* ((_%block187292%_ _%hd186913187287%_) - (_%rest187294%_ _%tl186914187289%_)) - (_%K186912187284%_ _%rest187294%_ _%block187292%_))) - (_%else186910186965%_)))))) + (##cdr _%rest188195188203%_)))) + (let* ((_%block188579%_ _%hd188200188574%_) + (_%rest188581%_ _%tl188201188576%_)) + (_%K188199188571%_ _%rest188581%_ _%block188579%_))) + (_%else188197188252%_)))))) (define gxc#optimize-match-block - (lambda (_%body181525%_ _%assert181526%_ _%bind181527%_ _%blocks181528%_) - (letrec* ((_%env-assert181763%_ '()) - (_%env-type181764%_ '()) - (_%env-bind181765%_ '()) - (_%in-splice?181766%_ '#f) - (_%do-assert181767%_ - (lambda (_%assert186825%_ _%K186826%_) - (if (pair? _%assert186825%_) - (let _%lp186828%_ ((_%rest186830%_ _%assert186825%_) - (_%env-assert186831%_ - _%env-assert181763%_) - (_%env-type186832%_ - _%env-type181764%_)) - (let* ((_%rest186833186841%_ _%rest186830%_) - (_%else186835186849%_ + (lambda (_%body182812%_ _%assert182813%_ _%bind182814%_ _%blocks182815%_) + (letrec* ((_%env-assert183050%_ '()) + (_%env-type183051%_ '()) + (_%env-bind183052%_ '()) + (_%in-splice?183053%_ '#f) + (_%do-assert183054%_ + (lambda (_%assert188112%_ _%K188113%_) + (if (pair? _%assert188112%_) + (let _%lp188115%_ ((_%rest188117%_ _%assert188112%_) + (_%env-assert188118%_ + _%env-assert183050%_) + (_%env-type188119%_ + _%env-type183051%_)) + (let* ((_%rest188120188128%_ _%rest188117%_) + (_%else188122188136%_ (lambda () - (_%do-assert!181773%_ - _%env-assert186831%_ - _%env-type186832%_ - _%K186826%_))) - (_%K186837186890%_ - (lambda (_%rest186852%_ _%assert186853%_) - (let* ((_%assert186854186861%_ - _%assert186853%_) - (_%E186856186865%_ + (_%do-assert!183060%_ + _%env-assert188118%_ + _%env-type188119%_ + _%K188113%_))) + (_%K188124188177%_ + (lambda (_%rest188139%_ _%assert188140%_) + (let* ((_%assert188141188148%_ + _%assert188140%_) + (_%E188143188152%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%assert186854186861%_ + _%assert188141188148%_ '([expr . val]))) '#!void)) - (_%K186857186878%_ - (lambda (_%val186868%_ - _%expr186869%_) - (let* ((_%sexpr186871%_ + (_%K188144188165%_ + (lambda (_%val188155%_ + _%expr188156%_) + (let* ((_%sexpr188158%_ (gxc#apply-generate-runtime-repr - _%expr186869%_)) - (_%env-assert186873%_ - (cons (cons _%sexpr186871%_ + _%expr188156%_)) + (_%env-assert188160%_ + (cons (cons _%sexpr188158%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%val186868%_) - _%env-assert186831%_)) - (_%env-type186875%_ - (_%fold-assert-type181769%_ - _%expr186869%_ - _%val186868%_ - _%env-type186832%_))) + _%val188155%_) + _%env-assert188118%_)) + (_%env-type188162%_ + (_%fold-assert-type183056%_ + _%expr188156%_ + _%val188155%_ + _%env-type188119%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp186828%_ - _%rest186852%_ - _%env-assert186873%_ - _%env-type186875%_))))) - (if (pair? _%assert186854186861%_) - (let ((_%hd186858186881%_ + (_%lp188115%_ + _%rest188139%_ + _%env-assert188160%_ + _%env-type188162%_))))) + (if (pair? _%assert188141188148%_) + (let ((_%hd188145188168%_ (let () (declare (not safe)) - (##car _%assert186854186861%_))) - (_%tl186859186883%_ + (##car _%assert188141188148%_))) + (_%tl188146188170%_ (let () (declare (not safe)) - (##cdr _%assert186854186861%_)))) - (let* ((_%expr186886%_ - _%hd186858186881%_) - (_%val186888%_ - _%tl186859186883%_)) - (_%K186857186878%_ - _%val186888%_ - _%expr186886%_))) - (_%E186856186865%_)))))) - (if (pair? _%rest186833186841%_) - (let ((_%hd186838186893%_ + (##cdr _%assert188141188148%_)))) + (let* ((_%expr188173%_ + _%hd188145188168%_) + (_%val188175%_ + _%tl188146188170%_)) + (_%K188144188165%_ + _%val188175%_ + _%expr188173%_))) + (_%E188143188152%_)))))) + (if (pair? _%rest188120188128%_) + (let ((_%hd188125188180%_ (let () (declare (not safe)) - (##car _%rest186833186841%_))) - (_%tl186839186895%_ + (##car _%rest188120188128%_))) + (_%tl188126188182%_ (let () (declare (not safe)) - (##cdr _%rest186833186841%_)))) - (let* ((_%assert186898%_ _%hd186838186893%_) - (_%rest186900%_ _%tl186839186895%_)) - (_%K186837186890%_ - _%rest186900%_ - _%assert186898%_))) - (_%else186835186849%_)))) - (_%K186826%_)))) - (_%predicate-type181768%_ - (lambda (_%id186770%_) - (let* ((_%sym186772%_ + (##cdr _%rest188120188128%_)))) + (let* ((_%assert188185%_ _%hd188125188180%_) + (_%rest188187%_ _%tl188126188182%_)) + (_%K188124188177%_ + _%rest188187%_ + _%assert188185%_))) + (_%else188122188136%_)))) + (_%K188113%_)))) + (_%predicate-type183055%_ + (lambda (_%id188057%_) + (let* ((_%sym188059%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%id186770%_))) - (_%$e186774%_ _%sym186772%_)) - (let ((_%default186776186807%_ + (gxc#identifier-symbol _%id188057%_))) + (_%$e188061%_ _%sym188059%_)) + (let ((_%default188063188094%_ (lambda () - (let* ((_%g186779186786%_ + (let* ((_%g188066188073%_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _%sym186772%_))) - (_%else186781186794%_ (lambda () '#f)) - (_%K186783186799%_ - (lambda (_%t186797%_) - (let ((__tmp192280 + _%sym188059%_))) + (_%else188068188081%_ (lambda () '#f)) + (_%K188070188086%_ + (lambda (_%t188084%_) + (let ((__tmp193567 (cons 'predicate-type - (cons _%id186770%_ + (cons _%id188057%_ '())))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp192280 - _%t186797%_))))) + __tmp193567 + _%t188084%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g186779186786%_ + _%g188066188073%_ 'gxc#!predicate::t)) - (let* ((_%e186784186802%_ + (let* ((_%e188071188089%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g186779186786%_ + _%g188066188073%_ '1 '#f '#f))) - (_%t186805%_ _%e186784186802%_)) - (_%K186783186799%_ _%t186805%_)) - (_%else186781186794%_))))) - (_%table186777186809%_ + (_%t188092%_ _%e188071188089%_)) + (_%K188070188086%_ _%t188092%_)) + (_%else188068188081%_))))) + (_%table188064188096%_ '#(#f (##box? . 3) #f @@ -3796,48 +3796,48 @@ #f #f #f))) - (if (symbol? _%$e186774%_) - (let* ((_%h186812%_ + (if (symbol? _%$e188061%_) + (let* ((_%h188099%_ (let () (declare (not safe)) - (##symbol-hash _%$e186774%_))) - (_%ix186815%_ + (##symbol-hash _%$e188061%_))) + (_%ix188102%_ (let () (declare (not safe)) - (##fxmodulo _%h186812%_ '63))) - (_%q186818%_ + (##fxmodulo _%h188099%_ '63))) + (_%q188105%_ (let () (declare (not safe)) (##vector-ref - _%table186777186809%_ - _%ix186815%_)))) - (if _%q186818%_ + _%table188064188096%_ + _%ix188102%_)))) + (if _%q188105%_ (if (eq? (let () (declare (not safe)) - (##car _%q186818%_)) - _%$e186774%_) - (let ((_%x186822%_ + (##car _%q188105%_)) + _%$e188061%_) + (let ((_%x188109%_ (let () (declare (not safe)) - (##cdr _%q186818%_)))) + (##cdr _%q188105%_)))) (if (let () (declare (not safe)) - (##fx< _%x186822%_ '5)) + (##fx< _%x188109%_ '5)) (if (let () (declare (not safe)) - (##fx< _%x186822%_ '2)) + (##fx< _%x188109%_ '2)) (if (let () (declare (not safe)) - (##fx= _%x186822%_ '0)) + (##fx= _%x188109%_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _%x186822%_ '2)) + (##fx= _%x188109%_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _%x186822%_ + (##fx= _%x188109%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -3845,356 +3845,356 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _%x186822%_ '7)) + (##fx< _%x188109%_ '7)) (if (let () (declare (not safe)) - (##fx= _%x186822%_ '5)) + (##fx= _%x188109%_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _%x186822%_ '7)) + (##fx= _%x188109%_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _%x186822%_ + (##fx= _%x188109%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box 'stx-datum))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%default186776186807%_)) - (_%default186776186807%_))) - (_%default186776186807%_)))))) - (_%fold-assert-type181769%_ - (lambda (_%expr185716%_ _%val185717%_ _%env185718%_) - (let* ((_%__stx189734189735%_ _%expr185716%_) - (_%g185726185905%_ + (_%default188063188094%_)) + (_%default188063188094%_))) + (_%default188063188094%_)))))) + (_%fold-assert-type183056%_ + (lambda (_%expr187003%_ _%val187004%_ _%env187005%_) + (let* ((_%__stx191021191022%_ _%expr187003%_) + (_%g187013187192%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189734189735%_))))) - (let ((_%__kont189736189737%_ - (lambda (_%L186738%_ _%L186739%_) - (let ((_%$e186761%_ - (_%predicate-type181768%_ _%L186739%_))) - (if _%$e186761%_ - ((lambda (_%t186764%_) - (cons (cons _%L186738%_ - (cons _%t186764%_ - (cons _%val185717%_ + _%__stx191021191022%_))))) + (let ((_%__kont191023191024%_ + (lambda (_%L188025%_ _%L188026%_) + (let ((_%$e188048%_ + (_%predicate-type183055%_ _%L188026%_))) + (if _%$e188048%_ + ((lambda (_%t188051%_) + (cons (cons _%L188025%_ + (cons _%t188051%_ + (cons _%val187004%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env185718%_)) - _%$e186761%_) - _%env185718%_)))) - (_%__kont189738189739%_ - (lambda (_%L186427%_ _%L186428%_ _%L186429%_) - (let ((_%$e186454%_ + _%env187005%_)) + _%$e188048%_) + _%env187005%_)))) + (_%__kont191025191026%_ + (lambda (_%L187714%_ _%L187715%_ _%L187716%_) + (let ((_%$e187741%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L186429%_)))) - (if (or (eq? '##fx= _%$e186454%_) - (eq? 'fx= _%$e186454%_)) - (let* ((_%__stx189640189641%_ - _%L186428%_) - (_%g186461186490%_ + (gxc#identifier-symbol _%L187716%_)))) + (if (or (eq? '##fx= _%$e187741%_) + (eq? 'fx= _%$e187741%_)) + (let* ((_%__stx190927190928%_ + _%L187715%_) + (_%g187748187777%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189640189641%_))))) - (let ((_%__kont189642189643%_ - (lambda (_%L186558%_ - _%L186559%_) - (let ((_%$e186584%_ - (_%countf-symbol181770%_ - _%L186559%_))) - (if _%$e186584%_ - ((lambda (_%sym186587%_) - (cons (cons _%L186558%_ + _%__stx190927190928%_))))) + (let ((_%__kont190929190930%_ + (lambda (_%L187845%_ + _%L187846%_) + (let ((_%$e187871%_ + (_%countf-symbol183057%_ + _%L187846%_))) + (if _%$e187871%_ + ((lambda (_%sym187874%_) + (cons (cons _%L187845%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym186587%_ + (cons _%sym187874%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L186427%_)) - (cons _%val185717%_ '())))) - _%env185718%_)) - _%$e186584%_) - _%env185718%_)))) + (gx#stx-e _%L187714%_)) + (cons _%val187004%_ '())))) + _%env187005%_)) + _%$e187871%_) + _%env187005%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189644189645%_ - (lambda () _%env185718%_))) + (_%__kont190931190932%_ + (lambda () _%env187005%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189640189641%_)) - (let ((_%e186465186502%_ + _%__stx190927190928%_)) + (let ((_%e187752187789%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189640189641%_)))) - (let ((_%tl186467186507%_ + _%__stx190927190928%_)))) + (let ((_%tl187754187794%_ (let () (declare (not safe)) - (##cdr _%e186465186502%_))) - (_%hd186466186505%_ + (##cdr _%e187752187789%_))) + (_%hd187753187792%_ (let () (declare (not safe)) - (##car _%e186465186502%_)))) + (##car _%e187752187789%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd186466186505%_)) + _%hd187753187792%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd186466186505%_)) + _%hd187753187792%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl186467186507%_)) - (let ((_%e186468186510%_ + (gx#stx-pair? _%tl187754187794%_)) + (let ((_%e187755187797%_ (let () (declare (not safe)) - (gx#stx-e _%tl186467186507%_)))) - (let ((_%tl186470186515%_ + (gx#stx-e _%tl187754187794%_)))) + (let ((_%tl187757187802%_ (let () (declare (not safe)) - (##cdr _%e186468186510%_))) - (_%hd186469186513%_ + (##cdr _%e187755187797%_))) + (_%hd187756187800%_ (let () (declare (not safe)) - (##car _%e186468186510%_)))) + (##car _%e187755187797%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186469186513%_)) - (let ((_%e186471186518%_ + (gx#stx-pair? _%hd187756187800%_)) + (let ((_%e187758187805%_ (let () (declare (not safe)) - (gx#stx-e _%hd186469186513%_)))) - (let ((_%tl186473186523%_ + (gx#stx-e _%hd187756187800%_)))) + (let ((_%tl187760187810%_ (let () (declare (not safe)) - (##cdr _%e186471186518%_))) - (_%hd186472186521%_ + (##cdr _%e187758187805%_))) + (_%hd187759187808%_ (let () (declare (not safe)) - (##car _%e186471186518%_)))) + (##car _%e187758187805%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186472186521%_)) + (gx#identifier? _%hd187759187808%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd186472186521%_)) + _%hd187759187808%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186473186523%_)) - (let ((_%e186474186526%_ + _%tl187760187810%_)) + (let ((_%e187761187813%_ (let () (declare (not safe)) (gx#stx-e - _%tl186473186523%_)))) - (let ((_%tl186476186531%_ + _%tl187760187810%_)))) + (let ((_%tl187763187818%_ (let () (declare (not safe)) - (##cdr _%e186474186526%_))) - (_%hd186475186529%_ + (##cdr _%e187761187813%_))) + (_%hd187762187816%_ (let () (declare (not safe)) - (##car _%e186474186526%_)))) + (##car _%e187761187813%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186476186531%_)) + _%tl187763187818%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186470186515%_)) - (let ((_%e186477186534%_ + _%tl187757187802%_)) + (let ((_%e187764187821%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl186470186515%_)))) - (let ((_%tl186479186539%_ + (gx#stx-e _%tl187757187802%_)))) + (let ((_%tl187766187826%_ (let () (declare (not safe)) - (##cdr _%e186477186534%_))) - (_%hd186478186537%_ + (##cdr _%e187764187821%_))) + (_%hd187765187824%_ (let () (declare (not safe)) - (##car _%e186477186534%_)))) + (##car _%e187764187821%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186478186537%_)) - (let ((_%e186480186542%_ + (gx#stx-pair? _%hd187765187824%_)) + (let ((_%e187767187829%_ (let () (declare (not safe)) - (gx#stx-e _%hd186478186537%_)))) - (let ((_%tl186482186547%_ + (gx#stx-e _%hd187765187824%_)))) + (let ((_%tl187769187834%_ (let () (declare (not safe)) - (##cdr _%e186480186542%_))) - (_%hd186481186545%_ + (##cdr _%e187767187829%_))) + (_%hd187768187832%_ (let () (declare (not safe)) - (##car _%e186480186542%_)))) + (##car _%e187767187829%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186481186545%_)) + (gx#identifier? _%hd187768187832%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd186481186545%_)) + (gx#stx-eq? '%#ref _%hd187768187832%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186482186547%_)) - (let ((_%e186483186550%_ + (gx#stx-pair? _%tl187769187834%_)) + (let ((_%e187770187837%_ (let () (declare (not safe)) (gx#stx-e - _%tl186482186547%_)))) - (let ((_%tl186485186555%_ + _%tl187769187834%_)))) + (let ((_%tl187772187842%_ (let () (declare (not safe)) - (##cdr _%e186483186550%_))) - (_%hd186484186553%_ + (##cdr _%e187770187837%_))) + (_%hd187771187840%_ (let () (declare (not safe)) - (##car _%e186483186550%_)))) + (##car _%e187770187837%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186485186555%_)) + _%tl187772187842%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186479186539%_)) - (_%__kont189642189643%_ - _%hd186484186553%_ - _%hd186475186529%_) - (_%__kont189644189645%_)) - (_%__kont189644189645%_)))) - (_%__kont189644189645%_)) - (_%__kont189644189645%_)) - (_%__kont189644189645%_)))) - (_%__kont189644189645%_)))) - (_%__kont189644189645%_)) - (_%__kont189644189645%_)))) + _%tl187766187826%_)) + (_%__kont190929190930%_ + _%hd187771187840%_ + _%hd187762187816%_) + (_%__kont190931190932%_)) + (_%__kont190931190932%_)))) + (_%__kont190931190932%_)) + (_%__kont190931190932%_)) + (_%__kont190931190932%_)))) + (_%__kont190931190932%_)))) + (_%__kont190931190932%_)) + (_%__kont190931190932%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189644189645%_)) - (_%__kont189644189645%_)) - (_%__kont189644189645%_)))) - (_%__kont189644189645%_)))) - (_%__kont189644189645%_)) - (_%__kont189644189645%_)) - (_%__kont189644189645%_)))) + (_%__kont190931190932%_)) + (_%__kont190931190932%_)) + (_%__kont190931190932%_)))) + (_%__kont190931190932%_)))) + (_%__kont190931190932%_)) + (_%__kont190931190932%_)) + (_%__kont190931190932%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189644189645%_)))) - (if (or (eq? '##eq? _%$e186454%_) - (eq? 'eq? _%$e186454%_) - (eq? '##eqv? _%$e186454%_) - (eq? 'eqv? _%$e186454%_) - (eq? '##equal? _%$e186454%_) - (eq? 'equal? _%$e186454%_) + (_%__kont190931190932%_)))) + (if (or (eq? '##eq? _%$e187741%_) + (eq? 'eq? _%$e187741%_) + (eq? '##eqv? _%$e187741%_) + (eq? 'eqv? _%$e187741%_) + (eq? '##equal? _%$e187741%_) + (eq? 'equal? _%$e187741%_) (eq? 'gx#free-identifier=? - _%$e186454%_) - (eq? 'gx#stx-eq? _%$e186454%_)) - ((lambda (_%sym186614%_) - (let* ((_%sym186616%_ - (_%eqf-symbol181771%_ - _%sym186614%_)) - (_%__stx189708189709%_ - _%L186428%_) - (_%g186619186632%_ + _%$e187741%_) + (eq? 'gx#stx-eq? _%$e187741%_)) + ((lambda (_%sym187901%_) + (let* ((_%sym187903%_ + (_%eqf-symbol183058%_ + _%sym187901%_)) + (_%__stx190995190996%_ + _%L187715%_) + (_%g187906187919%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189708189709%_))))) - (let ((_%__kont189710189711%_ - (lambda (_%L186660%_) - (cons (cons _%L186660%_ + _%__stx190995190996%_))))) + (let ((_%__kont190997190998%_ + (lambda (_%L187947%_) + (cons (cons _%L187947%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym186616%_ + (cons _%sym187903%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L186427%_)) - (cons _%val185717%_ '())))) - _%env185718%_))) + (gx#stx-e _%L187714%_)) + (cons _%val187004%_ '())))) + _%env187005%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189712189713%_ + (_%__kont190999191000%_ (lambda () - _%env185718%_))) + _%env187005%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189708189709%_)) - (let ((_%e186622186644%_ + _%__stx190995190996%_)) + (let ((_%e187909187931%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189708189709%_)))) - (let ((_%tl186624186649%_ + _%__stx190995190996%_)))) + (let ((_%tl187911187936%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e186622186644%_))) - (_%hd186623186647%_ - (let () (declare (not safe)) (##car _%e186622186644%_)))) + (##cdr _%e187909187931%_))) + (_%hd187910187934%_ + (let () (declare (not safe)) (##car _%e187909187931%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186623186647%_)) + (gx#identifier? _%hd187910187934%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd186623186647%_)) + (gx#stx-eq? '%#ref _%hd187910187934%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186624186649%_)) - (let ((_%e186625186652%_ + (gx#stx-pair? _%tl187911187936%_)) + (let ((_%e187912187939%_ (let () (declare (not safe)) - (gx#stx-e _%tl186624186649%_)))) - (let ((_%tl186627186657%_ + (gx#stx-e _%tl187911187936%_)))) + (let ((_%tl187914187944%_ (let () (declare (not safe)) - (##cdr _%e186625186652%_))) - (_%hd186626186655%_ + (##cdr _%e187912187939%_))) + (_%hd187913187942%_ (let () (declare (not safe)) - (##car _%e186625186652%_)))) + (##car _%e187912187939%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186627186657%_)) - (_%__kont189710189711%_ - _%hd186626186655%_) - (_%__kont189712189713%_)))) - (_%__kont189712189713%_)) - (_%__kont189712189713%_)) - (_%__kont189712189713%_)))) + (gx#stx-null? _%tl187914187944%_)) + (_%__kont190997190998%_ + _%hd187913187942%_) + (_%__kont190999191000%_)))) + (_%__kont190999191000%_)) + (_%__kont190999191000%_)) + (_%__kont190999191000%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189712189713%_))))) - _%$e186454%_) - _%env185718%_))))) - (_%__kont189740189741%_ - (lambda (_%L186331%_ _%L186332%_ _%L186333%_) - (_%fold-assert-type181769%_ + (_%__kont190999191000%_))))) + _%$e187741%_) + _%env187005%_))))) + (_%__kont191027191028%_ + (lambda (_%L187618%_ _%L187619%_ _%L187620%_) + (_%fold-assert-type183056%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -4203,42 +4203,42 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L186333%_ '())) - (cons _%L186331%_ + (cons _%L187620%_ '())) + (cons _%L187618%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L186332%_ '())) + (cons _%L187619%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%val185717%_ - _%env185718%_))) - (_%__kont189742189743%_ - (lambda (_%L186221%_ _%L186222%_ _%L186223%_) - (let ((_%$e186252%_ + _%val187004%_ + _%env187005%_))) + (_%__kont191029191030%_ + (lambda (_%L187508%_ _%L187509%_ _%L187510%_) + (let ((_%$e187539%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L186223%_)))) + (gxc#identifier-symbol _%L187510%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e186252%_) - (eq? 'gx#stx-eq? _%$e186252%_)) - ((lambda (_%sym186258%_) - (let ((_%sym186260%_ - (_%eqf-symbol181771%_ - _%sym186258%_))) - (cons (cons _%L186222%_ - (cons _%sym186260%_ - (cons _%L186221%_ + _%$e187539%_) + (eq? 'gx#stx-eq? _%$e187539%_)) + ((lambda (_%sym187545%_) + (let ((_%sym187547%_ + (_%eqf-symbol183058%_ + _%sym187545%_))) + (cons (cons _%L187509%_ + (cons _%sym187547%_ + (cons _%L187508%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%val185717%_ '())))) + (cons _%val187004%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env185718%_))) - _%$e186252%_) - _%env185718%_)))) - (_%__kont189744189745%_ - (lambda (_%L186105%_ _%L186106%_ _%L186107%_) - (_%fold-assert-type181769%_ + _%env187005%_))) + _%$e187539%_) + _%env187005%_)))) + (_%__kont191031191032%_ + (lambda (_%L187392%_ _%L187393%_ _%L187394%_) + (_%fold-assert-type183056%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -4247,4397 +4247,4397 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L186107%_ '())) + (cons _%L187394%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L186105%_ + (cons _%L187392%_ '())) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax)) - (cons _%L186106%_ '())) + (cons _%L187393%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%val185717%_ - _%env185718%_))) - (_%__kont189746189747%_ - (lambda (_%L185989%_ _%L185990%_ _%L185991%_) - (_%fold-assert-type181769%_ + _%val187004%_ + _%env187005%_))) + (_%__kont191033191034%_ + (lambda (_%L187276%_ _%L187277%_ _%L187278%_) + (_%fold-assert-type183056%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L185991%_ - _%L185989%_ - _%L185990%_)) - _%val185717%_ - _%env185718%_))) - (_%__kont189748189749%_ - (lambda () _%env185718%_))) + _%L187278%_ + _%L187276%_ + _%L187277%_)) + _%val187004%_ + _%env187005%_))) + (_%__kont191035191036%_ + (lambda () _%env187005%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189734189735%_)) - (let ((_%e185730186682%_ + (gx#stx-pair? _%__stx191021191022%_)) + (let ((_%e187017187969%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189734189735%_)))) - (let ((_%tl185732186687%_ + (gx#stx-e _%__stx191021191022%_)))) + (let ((_%tl187019187974%_ (let () (declare (not safe)) - (##cdr _%e185730186682%_))) - (_%hd185731186685%_ + (##cdr _%e187017187969%_))) + (_%hd187018187972%_ (let () (declare (not safe)) - (##car _%e185730186682%_)))) + (##car _%e187017187969%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185731186685%_)) + (gx#identifier? _%hd187018187972%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd185731186685%_)) + _%hd187018187972%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185732186687%_)) - (let ((_%e185733186690%_ + _%tl187019187974%_)) + (let ((_%e187020187977%_ (let () (declare (not safe)) (gx#stx-e - _%tl185732186687%_)))) - (let ((_%tl185735186695%_ + _%tl187019187974%_)))) + (let ((_%tl187022187982%_ (let () (declare (not safe)) - (##cdr _%e185733186690%_))) - (_%hd185734186693%_ + (##cdr _%e187020187977%_))) + (_%hd187021187980%_ (let () (declare (not safe)) - (##car _%e185733186690%_)))) + (##car _%e187020187977%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185734186693%_)) - (let ((_%e185736186698%_ + _%hd187021187980%_)) + (let ((_%e187023187985%_ (let () (declare (not safe)) (gx#stx-e - _%hd185734186693%_)))) - (let ((_%tl185738186703%_ + _%hd187021187980%_)))) + (let ((_%tl187025187990%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185736186698%_))) - (_%hd185737186701%_ - (let () (declare (not safe)) (##car _%e185736186698%_)))) + (##cdr _%e187023187985%_))) + (_%hd187024187988%_ + (let () (declare (not safe)) (##car _%e187023187985%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185737186701%_)) + (gx#identifier? _%hd187024187988%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd185737186701%_)) + (gx#stx-eq? '%#ref _%hd187024187988%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185738186703%_)) - (let ((_%e185739186706%_ + (gx#stx-pair? _%tl187025187990%_)) + (let ((_%e187026187993%_ (let () (declare (not safe)) - (gx#stx-e _%tl185738186703%_)))) - (let ((_%tl185741186711%_ + (gx#stx-e _%tl187025187990%_)))) + (let ((_%tl187028187998%_ (let () (declare (not safe)) - (##cdr _%e185739186706%_))) - (_%hd185740186709%_ + (##cdr _%e187026187993%_))) + (_%hd187027187996%_ (let () (declare (not safe)) - (##car _%e185739186706%_)))) + (##car _%e187026187993%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185741186711%_)) + (gx#stx-null? _%tl187028187998%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185735186695%_)) - (let ((_%e185742186714%_ + (gx#stx-pair? _%tl187022187982%_)) + (let ((_%e187029188001%_ (let () (declare (not safe)) (gx#stx-e - _%tl185735186695%_)))) - (let ((_%tl185744186719%_ + _%tl187022187982%_)))) + (let ((_%tl187031188006%_ (let () (declare (not safe)) - (##cdr _%e185742186714%_))) - (_%hd185743186717%_ + (##cdr _%e187029188001%_))) + (_%hd187030188004%_ (let () (declare (not safe)) - (##car _%e185742186714%_)))) + (##car _%e187029188001%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185743186717%_)) - (let ((_%e185745186722%_ + _%hd187030188004%_)) + (let ((_%e187032188009%_ (let () (declare (not safe)) (gx#stx-e - _%hd185743186717%_)))) - (let ((_%tl185747186727%_ + _%hd187030188004%_)))) + (let ((_%tl187034188014%_ (let () (declare (not safe)) - (##cdr _%e185745186722%_))) - (_%hd185746186725%_ + (##cdr _%e187032188009%_))) + (_%hd187033188012%_ (let () (declare (not safe)) - (##car _%e185745186722%_)))) + (##car _%e187032188009%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185746186725%_)) + _%hd187033188012%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd185746186725%_)) + (gx#stx-eq? '%#ref _%hd187033188012%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185748186730%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187035188017%_ (let () (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185750186735%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187037188022%_ (let () (declare (not safe)) - (##cdr _%e185748186730%_))) - (_%hd185749186733%_ + (##cdr _%e187035188017%_))) + (_%hd187036188020%_ (let () (declare (not safe)) - (##car _%e185748186730%_)))) + (##car _%e187035188017%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185750186735%_)) + (gx#stx-null? _%tl187037188022%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185744186719%_)) - (_%__kont189736189737%_ - _%hd185749186733%_ - _%hd185740186709%_) + (gx#stx-null? _%tl187031188006%_)) + (_%__kont191023191024%_ + _%hd187036188020%_ + _%hd187027187996%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185744186719%_)) - (let ((_%e185769186403%_ + (gx#stx-pair? _%tl187031188006%_)) + (let ((_%e187056187690%_ (let () (declare (not safe)) (gx#stx-e - _%tl185744186719%_)))) - (let ((_%tl185771186408%_ + _%tl187031188006%_)))) + (let ((_%tl187058187695%_ (let () (declare (not safe)) - (##cdr _%e185769186403%_))) - (_%hd185770186406%_ + (##cdr _%e187056187690%_))) + (_%hd187057187693%_ (let () (declare (not safe)) - (##car _%e185769186403%_)))) + (##car _%e187056187690%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185770186406%_)) - (let ((_%e185772186411%_ + _%hd187057187693%_)) + (let ((_%e187059187698%_ (let () (declare (not safe)) (gx#stx-e - _%hd185770186406%_)))) - (let ((_%tl185774186416%_ + _%hd187057187693%_)))) + (let ((_%tl187061187703%_ (let () (declare (not safe)) - (##cdr _%e185772186411%_))) - (_%hd185773186414%_ + (##cdr _%e187059187698%_))) + (_%hd187060187701%_ (let () (declare (not safe)) - (##car _%e185772186411%_)))) + (##car _%e187059187698%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185773186414%_)) + _%hd187060187701%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd185773186414%_)) + (gx#stx-eq? '%#quote _%hd187060187701%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185774186416%_)) - (let ((_%e185775186419%_ + (gx#stx-pair? _%tl187061187703%_)) + (let ((_%e187062187706%_ (let () (declare (not safe)) - (gx#stx-e _%tl185774186416%_)))) - (let ((_%tl185777186424%_ + (gx#stx-e _%tl187061187703%_)))) + (let ((_%tl187064187711%_ (let () (declare (not safe)) - (##cdr _%e185775186419%_))) - (_%hd185776186422%_ + (##cdr _%e187062187706%_))) + (_%hd187063187709%_ (let () (declare (not safe)) - (##car _%e185775186419%_)))) + (##car _%e187062187706%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185777186424%_)) + (gx#stx-null? _%tl187064187711%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189738189739%_ - _%hd185776186422%_ - _%hd185743186717%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191025191026%_ + _%hd187063187709%_ + _%hd187030188004%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd185773186414%_)) + (gx#stx-eq? '%#quote-syntax _%hd187060187701%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185774186416%_)) - (let ((_%e185835186213%_ + (gx#stx-pair? _%tl187061187703%_)) + (let ((_%e187122187500%_ (let () (declare (not safe)) - (gx#stx-e _%tl185774186416%_)))) - (let ((_%tl185837186218%_ + (gx#stx-e _%tl187061187703%_)))) + (let ((_%tl187124187505%_ (let () (declare (not safe)) - (##cdr _%e185835186213%_))) - (_%hd185836186216%_ + (##cdr _%e187122187500%_))) + (_%hd187123187503%_ (let () (declare (not safe)) - (##car _%e185835186213%_)))) + (##car _%e187122187500%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185837186218%_)) + (gx#stx-null? _%tl187124187505%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189742189743%_ - _%hd185836186216%_ - _%hd185749186733%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)))) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191029191030%_ + _%hd187123187503%_ + _%hd187036188020%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)))) - (_%__kont189748189749%_))) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185744186719%_)) - (let ((_%e185769186403%_ + (gx#stx-pair? _%tl187031188006%_)) + (let ((_%e187056187690%_ (let () (declare (not safe)) - (gx#stx-e _%tl185744186719%_)))) - (let ((_%tl185771186408%_ + (gx#stx-e _%tl187031188006%_)))) + (let ((_%tl187058187695%_ (let () (declare (not safe)) - (##cdr _%e185769186403%_))) - (_%hd185770186406%_ + (##cdr _%e187056187690%_))) + (_%hd187057187693%_ (let () (declare (not safe)) - (##car _%e185769186403%_)))) + (##car _%e187056187690%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185770186406%_)) - (let ((_%e185772186411%_ + _%hd187057187693%_)) + (let ((_%e187059187698%_ (let () (declare (not safe)) (gx#stx-e - _%hd185770186406%_)))) - (let ((_%tl185774186416%_ + _%hd187057187693%_)))) + (let ((_%tl187061187703%_ (let () (declare (not safe)) - (##cdr _%e185772186411%_))) - (_%hd185773186414%_ + (##cdr _%e187059187698%_))) + (_%hd187060187701%_ (let () (declare (not safe)) - (##car _%e185772186411%_)))) + (##car _%e187059187698%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185773186414%_)) + _%hd187060187701%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185773186414%_)) + _%hd187060187701%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl185774186416%_)) - (let ((_%e185775186419%_ + (gx#stx-pair? _%tl187061187703%_)) + (let ((_%e187062187706%_ (let () (declare (not safe)) - (gx#stx-e _%tl185774186416%_)))) - (let ((_%tl185777186424%_ + (gx#stx-e _%tl187061187703%_)))) + (let ((_%tl187064187711%_ (let () (declare (not safe)) - (##cdr _%e185775186419%_))) - (_%hd185776186422%_ + (##cdr _%e187062187706%_))) + (_%hd187063187709%_ (let () (declare (not safe)) - (##car _%e185775186419%_)))) + (##car _%e187062187706%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185777186424%_)) + (gx#stx-null? _%tl187064187711%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189738189739%_ - _%hd185776186422%_ - _%hd185743186717%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191025191026%_ + _%hd187063187709%_ + _%hd187030188004%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_))))) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185744186719%_)) - (let ((_%e185769186403%_ + (gx#stx-pair? _%tl187031188006%_)) + (let ((_%e187056187690%_ (let () (declare (not safe)) - (gx#stx-e _%tl185744186719%_)))) - (let ((_%tl185771186408%_ + (gx#stx-e _%tl187031188006%_)))) + (let ((_%tl187058187695%_ (let () (declare (not safe)) - (##cdr _%e185769186403%_))) - (_%hd185770186406%_ + (##cdr _%e187056187690%_))) + (_%hd187057187693%_ (let () (declare (not safe)) - (##car _%e185769186403%_)))) + (##car _%e187056187690%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185770186406%_)) - (let ((_%e185772186411%_ + (gx#stx-pair? _%hd187057187693%_)) + (let ((_%e187059187698%_ (let () (declare (not safe)) - (gx#stx-e _%hd185770186406%_)))) - (let ((_%tl185774186416%_ + (gx#stx-e _%hd187057187693%_)))) + (let ((_%tl187061187703%_ (let () (declare (not safe)) - (##cdr _%e185772186411%_))) - (_%hd185773186414%_ + (##cdr _%e187059187698%_))) + (_%hd187060187701%_ (let () (declare (not safe)) - (##car _%e185772186411%_)))) + (##car _%e187059187698%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185773186414%_)) + _%hd187060187701%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185773186414%_)) + _%hd187060187701%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185774186416%_)) - (let ((_%e185775186419%_ + _%tl187061187703%_)) + (let ((_%e187062187706%_ (let () (declare (not safe)) (gx#stx-e - _%tl185774186416%_)))) - (let ((_%tl185777186424%_ + _%tl187061187703%_)))) + (let ((_%tl187064187711%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185775186419%_))) - (_%hd185776186422%_ - (let () (declare (not safe)) (##car _%e185775186419%_)))) + (##cdr _%e187062187706%_))) + (_%hd187063187709%_ + (let () (declare (not safe)) (##car _%e187062187706%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185777186424%_)) + (gx#stx-null? _%tl187064187711%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189738189739%_ - _%hd185776186422%_ - _%hd185743186717%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191025191026%_ + _%hd187063187709%_ + _%hd187030188004%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185744186719%_)) - (let ((_%e185769186403%_ + (gx#stx-pair? _%tl187031188006%_)) + (let ((_%e187056187690%_ (let () (declare (not safe)) - (gx#stx-e _%tl185744186719%_)))) - (let ((_%tl185771186408%_ + (gx#stx-e _%tl187031188006%_)))) + (let ((_%tl187058187695%_ (let () (declare (not safe)) - (##cdr _%e185769186403%_))) - (_%hd185770186406%_ + (##cdr _%e187056187690%_))) + (_%hd187057187693%_ (let () (declare (not safe)) - (##car _%e185769186403%_)))) + (##car _%e187056187690%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185770186406%_)) - (let ((_%e185772186411%_ + (gx#stx-pair? _%hd187057187693%_)) + (let ((_%e187059187698%_ (let () (declare (not safe)) - (gx#stx-e _%hd185770186406%_)))) - (let ((_%tl185774186416%_ + (gx#stx-e _%hd187057187693%_)))) + (let ((_%tl187061187703%_ (let () (declare (not safe)) - (##cdr _%e185772186411%_))) - (_%hd185773186414%_ + (##cdr _%e187059187698%_))) + (_%hd187060187701%_ (let () (declare (not safe)) - (##car _%e185772186411%_)))) + (##car _%e187059187698%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185773186414%_)) + (gx#identifier? _%hd187060187701%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185773186414%_)) + _%hd187060187701%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185774186416%_)) - (let ((_%e185775186419%_ + _%tl187061187703%_)) + (let ((_%e187062187706%_ (let () (declare (not safe)) (gx#stx-e - _%tl185774186416%_)))) - (let ((_%tl185777186424%_ + _%tl187061187703%_)))) + (let ((_%tl187064187711%_ (let () (declare (not safe)) - (##cdr _%e185775186419%_))) - (_%hd185776186422%_ + (##cdr _%e187062187706%_))) + (_%hd187063187709%_ (let () (declare (not safe)) - (##car _%e185775186419%_)))) + (##car _%e187062187706%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185777186424%_)) + _%tl187064187711%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189738189739%_ - _%hd185776186422%_ - _%hd185743186717%_ - _%hd185740186709%_) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191025191026%_ + _%hd187063187709%_ + _%hd187030188004%_ + _%hd187027187996%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd185746186725%_)) + (gx#stx-eq? '%#quote _%hd187033188012%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185799186315%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187086187602%_ (let () (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185801186320%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187088187607%_ (let () (declare (not safe)) - (##cdr _%e185799186315%_))) - (_%hd185800186318%_ + (##cdr _%e187086187602%_))) + (_%hd187087187605%_ (let () (declare (not safe)) - (##car _%e185799186315%_)))) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)) + (##car _%e187086187602%_)))) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd185746186725%_)) + (gx#stx-eq? '%#quote-syntax _%hd187033188012%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185859186073%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187146187360%_ (let () (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185861186078%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187148187365%_ (let () (declare (not safe)) - (##cdr _%e185859186073%_))) - (_%hd185860186076%_ + (##cdr _%e187146187360%_))) + (_%hd187147187363%_ (let () (declare (not safe)) - (##car _%e185859186073%_)))) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) + (##car _%e187146187360%_)))) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd185746186725%_)) + (gx#stx-eq? '%#quote _%hd187033188012%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185799186315%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187086187602%_ (let () (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185801186320%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187088187607%_ (let () (declare (not safe)) - (##cdr _%e185799186315%_))) - (_%hd185800186318%_ + (##cdr _%e187086187602%_))) + (_%hd187087187605%_ (let () (declare (not safe)) - (##car _%e185799186315%_)))) + (##car _%e187086187602%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185801186320%_)) + (gx#stx-null? _%tl187088187607%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189740189741%_ - _%hd185770186406%_ - _%hd185800186318%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191027191028%_ + _%hd187057187693%_ + _%hd187087187605%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd185746186725%_)) + (gx#stx-eq? '%#quote-syntax _%hd187033188012%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185859186073%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187146187360%_ (let () (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185861186078%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187148187365%_ (let () (declare (not safe)) - (##cdr _%e185859186073%_))) - (_%hd185860186076%_ + (##cdr _%e187146187360%_))) + (_%hd187147187363%_ (let () (declare (not safe)) - (##car _%e185859186073%_)))) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))))) + (##car _%e187146187360%_)))) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185746186725%_)) + _%hd187033188012%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185747186727%_)) - (let ((_%e185799186315%_ + _%tl187034188014%_)) + (let ((_%e187086187602%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185801186320%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187088187607%_ (let () (declare (not safe)) - (##cdr _%e185799186315%_))) - (_%hd185800186318%_ + (##cdr _%e187086187602%_))) + (_%hd187087187605%_ (let () (declare (not safe)) - (##car _%e185799186315%_)))) + (##car _%e187086187602%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185801186320%_)) + (gx#stx-null? _%tl187088187607%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189740189741%_ - _%hd185770186406%_ - _%hd185800186318%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191027191028%_ + _%hd187057187693%_ + _%hd187087187605%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185746186725%_)) + _%hd187033188012%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185859186073%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187146187360%_ (let () (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185861186078%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187148187365%_ (let () (declare (not safe)) - (##cdr _%e185859186073%_))) - (_%hd185860186076%_ + (##cdr _%e187146187360%_))) + (_%hd187147187363%_ (let () (declare (not safe)) - (##car _%e185859186073%_)))) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) + (##car _%e187146187360%_)))) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185746186725%_)) + _%hd187033188012%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185747186727%_)) - (let ((_%e185799186315%_ + _%tl187034188014%_)) + (let ((_%e187086187602%_ (let () (declare (not safe)) (gx#stx-e - _%tl185747186727%_)))) - (let ((_%tl185801186320%_ + _%tl187034188014%_)))) + (let ((_%tl187088187607%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185799186315%_))) - (_%hd185800186318%_ - (let () (declare (not safe)) (##car _%e185799186315%_)))) + (##cdr _%e187086187602%_))) + (_%hd187087187605%_ + (let () (declare (not safe)) (##car _%e187086187602%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185801186320%_)) + (gx#stx-null? _%tl187088187607%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189740189741%_ - _%hd185770186406%_ - _%hd185800186318%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191027191028%_ + _%hd187057187693%_ + _%hd187087187605%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)) + (_%__kont191035191036%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185746186725%_)) + _%hd187033188012%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185747186727%_)) - (let ((_%e185859186073%_ + _%tl187034188014%_)) + (let ((_%e187146187360%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185861186078%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187148187365%_ (let () (declare (not safe)) - (##cdr _%e185859186073%_))) - (_%hd185860186076%_ + (##cdr _%e187146187360%_))) + (_%hd187147187363%_ (let () (declare (not safe)) - (##car _%e185859186073%_)))) + (##car _%e187146187360%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185861186078%_)) + (gx#stx-null? _%tl187148187365%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd185773186414%_)) + (gx#stx-eq? '%#ref _%hd187060187701%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185774186416%_)) - (let ((_%e185868186097%_ + (gx#stx-pair? _%tl187061187703%_)) + (let ((_%e187155187384%_ (let () (declare (not safe)) - (gx#stx-e _%tl185774186416%_)))) - (let ((_%tl185870186102%_ + (gx#stx-e _%tl187061187703%_)))) + (let ((_%tl187157187389%_ (let () (declare (not safe)) - (##cdr _%e185868186097%_))) - (_%hd185869186100%_ + (##cdr _%e187155187384%_))) + (_%hd187156187387%_ (let () (declare (not safe)) - (##car _%e185868186097%_)))) + (##car _%e187155187384%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185870186102%_)) + (gx#stx-null? _%tl187157187389%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185771186408%_)) - (_%__kont189744189745%_ - _%hd185869186100%_ - _%hd185860186076%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) + _%tl187058187695%_)) + (_%__kont191031191032%_ + _%hd187156187387%_ + _%hd187147187363%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)))) + (_%__kont191035191036%_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185746186725%_)) + _%hd187033188012%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185747186727%_)) - (let ((_%e185799186315%_ + _%tl187034188014%_)) + (let ((_%e187086187602%_ (let () (declare (not safe)) (gx#stx-e - _%tl185747186727%_)))) - (let ((_%tl185801186320%_ + _%tl187034188014%_)))) + (let ((_%tl187088187607%_ (let () (declare (not safe)) - (##cdr _%e185799186315%_))) - (_%hd185800186318%_ + (##cdr _%e187086187602%_))) + (_%hd187087187605%_ (let () (declare (not safe)) - (##car _%e185799186315%_)))) + (##car _%e187086187602%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185801186320%_)) + _%tl187088187607%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl185771186408%_)) - (_%__kont189740189741%_ - _%hd185770186406%_ - _%hd185800186318%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) + (gx#stx-null? _%tl187058187695%_)) + (_%__kont191027191028%_ + _%hd187057187693%_ + _%hd187087187605%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)) + (_%__kont191035191036%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185746186725%_)) + _%hd187033188012%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185747186727%_)) - (let ((_%e185859186073%_ + _%tl187034188014%_)) + (let ((_%e187146187360%_ (let () (declare (not safe)) (gx#stx-e - _%tl185747186727%_)))) - (let ((_%tl185861186078%_ + _%tl187034188014%_)))) + (let ((_%tl187148187365%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185859186073%_))) - (_%hd185860186076%_ - (let () (declare (not safe)) (##car _%e185859186073%_)))) - (_%__kont189748189749%_))) + (##cdr _%e187146187360%_))) + (_%hd187147187363%_ + (let () (declare (not safe)) (##car _%e187146187360%_)))) + (_%__kont191035191036%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185746186725%_)) + _%hd187033188012%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185799186315%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187086187602%_ (let () (declare (not safe)) (gx#stx-e - _%tl185747186727%_)))) - (let ((_%tl185801186320%_ + _%tl187034188014%_)))) + (let ((_%tl187088187607%_ (let () (declare (not safe)) - (##cdr _%e185799186315%_))) - (_%hd185800186318%_ + (##cdr _%e187086187602%_))) + (_%hd187087187605%_ (let () (declare (not safe)) - (##car _%e185799186315%_)))) + (##car _%e187086187602%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185801186320%_)) + _%tl187088187607%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185771186408%_)) - (_%__kont189740189741%_ - _%hd185770186406%_ - _%hd185800186318%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) + _%tl187058187695%_)) + (_%__kont191027191028%_ + _%hd187057187693%_ + _%hd187087187605%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185746186725%_)) + _%hd187033188012%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185747186727%_)) - (let ((_%e185859186073%_ + _%tl187034188014%_)) + (let ((_%e187146187360%_ (let () (declare (not safe)) (gx#stx-e - _%tl185747186727%_)))) - (let ((_%tl185861186078%_ + _%tl187034188014%_)))) + (let ((_%tl187148187365%_ (let () (declare (not safe)) - (##cdr _%e185859186073%_))) - (_%hd185860186076%_ + (##cdr _%e187146187360%_))) + (_%hd187147187363%_ (let () (declare (not safe)) - (##car _%e185859186073%_)))) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))))) + (##car _%e187146187360%_)))) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd185746186725%_)) + (gx#stx-eq? '%#quote _%hd187033188012%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185799186315%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187086187602%_ (let () (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185801186320%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187088187607%_ (let () (declare (not safe)) - (##cdr _%e185799186315%_))) - (_%hd185800186318%_ + (##cdr _%e187086187602%_))) + (_%hd187087187605%_ (let () (declare (not safe)) - (##car _%e185799186315%_)))) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)) + (##car _%e187086187602%_)))) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185746186725%_)) + _%hd187033188012%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185747186727%_)) - (let ((_%e185859186073%_ + (gx#stx-pair? _%tl187034188014%_)) + (let ((_%e187146187360%_ (let () (declare (not safe)) - (gx#stx-e _%tl185747186727%_)))) - (let ((_%tl185861186078%_ + (gx#stx-e _%tl187034188014%_)))) + (let ((_%tl187148187365%_ (let () (declare (not safe)) - (##cdr _%e185859186073%_))) - (_%hd185860186076%_ + (##cdr _%e187146187360%_))) + (_%hd187147187363%_ (let () (declare (not safe)) - (##car _%e185859186073%_)))) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_))))) + (##car _%e187146187360%_)))) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185744186719%_)) - (let ((_%e185769186403%_ + (gx#stx-pair? _%tl187031188006%_)) + (let ((_%e187056187690%_ (let () (declare (not safe)) - (gx#stx-e _%tl185744186719%_)))) - (let ((_%tl185771186408%_ + (gx#stx-e _%tl187031188006%_)))) + (let ((_%tl187058187695%_ (let () (declare (not safe)) - (##cdr _%e185769186403%_))) - (_%hd185770186406%_ + (##cdr _%e187056187690%_))) + (_%hd187057187693%_ (let () (declare (not safe)) - (##car _%e185769186403%_)))) + (##car _%e187056187690%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185770186406%_)) - (let ((_%e185772186411%_ + (gx#stx-pair? _%hd187057187693%_)) + (let ((_%e187059187698%_ (let () (declare (not safe)) - (gx#stx-e _%hd185770186406%_)))) - (let ((_%tl185774186416%_ + (gx#stx-e _%hd187057187693%_)))) + (let ((_%tl187061187703%_ (let () (declare (not safe)) - (##cdr _%e185772186411%_))) - (_%hd185773186414%_ + (##cdr _%e187059187698%_))) + (_%hd187060187701%_ (let () (declare (not safe)) - (##car _%e185772186411%_)))) + (##car _%e187059187698%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185773186414%_)) + (gx#identifier? _%hd187060187701%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185773186414%_)) + _%hd187060187701%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185774186416%_)) - (let ((_%e185775186419%_ + _%tl187061187703%_)) + (let ((_%e187062187706%_ (let () (declare (not safe)) (gx#stx-e - _%tl185774186416%_)))) - (let ((_%tl185777186424%_ + _%tl187061187703%_)))) + (let ((_%tl187064187711%_ (let () (declare (not safe)) - (##cdr _%e185775186419%_))) - (_%hd185776186422%_ + (##cdr _%e187062187706%_))) + (_%hd187063187709%_ (let () (declare (not safe)) - (##car _%e185775186419%_)))) + (##car _%e187062187706%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185777186424%_)) + _%tl187064187711%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185771186408%_)) - (_%__kont189738189739%_ - _%hd185776186422%_ - _%hd185743186717%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_))))) + _%tl187058187695%_)) + (_%__kont191025191026%_ + _%hd187063187709%_ + _%hd187030188004%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185744186719%_)) - (let ((_%e185769186403%_ + _%tl187031188006%_)) + (let ((_%e187056187690%_ (let () (declare (not safe)) (gx#stx-e - _%tl185744186719%_)))) - (let ((_%tl185771186408%_ + _%tl187031188006%_)))) + (let ((_%tl187058187695%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185769186403%_))) - (_%hd185770186406%_ - (let () (declare (not safe)) (##car _%e185769186403%_)))) + (##cdr _%e187056187690%_))) + (_%hd187057187693%_ + (let () (declare (not safe)) (##car _%e187056187690%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185770186406%_)) - (let ((_%e185772186411%_ + (gx#stx-pair? _%hd187057187693%_)) + (let ((_%e187059187698%_ (let () (declare (not safe)) - (gx#stx-e _%hd185770186406%_)))) - (let ((_%tl185774186416%_ + (gx#stx-e _%hd187057187693%_)))) + (let ((_%tl187061187703%_ (let () (declare (not safe)) - (##cdr _%e185772186411%_))) - (_%hd185773186414%_ + (##cdr _%e187059187698%_))) + (_%hd187060187701%_ (let () (declare (not safe)) - (##car _%e185772186411%_)))) + (##car _%e187059187698%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185773186414%_)) + (gx#identifier? _%hd187060187701%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd185773186414%_)) + (gx#stx-eq? '%#quote _%hd187060187701%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185774186416%_)) - (let ((_%e185775186419%_ + (gx#stx-pair? _%tl187061187703%_)) + (let ((_%e187062187706%_ (let () (declare (not safe)) - (gx#stx-e _%tl185774186416%_)))) - (let ((_%tl185777186424%_ + (gx#stx-e _%tl187061187703%_)))) + (let ((_%tl187064187711%_ (let () (declare (not safe)) - (##cdr _%e185775186419%_))) - (_%hd185776186422%_ + (##cdr _%e187062187706%_))) + (_%hd187063187709%_ (let () (declare (not safe)) - (##car _%e185775186419%_)))) + (##car _%e187062187706%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185777186424%_)) + _%tl187064187711%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185771186408%_)) - (_%__kont189738189739%_ - _%hd185776186422%_ - _%hd185743186717%_ - _%hd185740186709%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)))) + _%tl187058187695%_)) + (_%__kont191025191026%_ + _%hd187063187709%_ + _%hd187030188004%_ + _%hd187027187996%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_))))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) + (_%__kont191035191036%_))))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd185737186701%_)) + (gx#stx-eq? '%#lambda _%hd187024187988%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185738186703%_)) - (let ((_%e185883185941%_ + (gx#stx-pair? _%tl187025187990%_)) + (let ((_%e187170187228%_ (let () (declare (not safe)) - (gx#stx-e _%tl185738186703%_)))) - (let ((_%tl185885185946%_ + (gx#stx-e _%tl187025187990%_)))) + (let ((_%tl187172187233%_ (let () (declare (not safe)) - (##cdr _%e185883185941%_))) - (_%hd185884185944%_ + (##cdr _%e187170187228%_))) + (_%hd187171187231%_ (let () (declare (not safe)) - (##car _%e185883185941%_)))) + (##car _%e187170187228%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185884185944%_)) - (let ((_%e185886185949%_ + (gx#stx-pair? _%hd187171187231%_)) + (let ((_%e187173187236%_ (let () (declare (not safe)) (gx#stx-e - _%hd185884185944%_)))) - (let ((_%tl185888185954%_ + _%hd187171187231%_)))) + (let ((_%tl187175187241%_ (let () (declare (not safe)) - (##cdr _%e185886185949%_))) - (_%hd185887185952%_ + (##cdr _%e187173187236%_))) + (_%hd187174187239%_ (let () (declare (not safe)) - (##car _%e185886185949%_)))) + (##car _%e187173187236%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185888185954%_)) + _%tl187175187241%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185885185946%_)) - (let ((_%e185889185957%_ + _%tl187172187233%_)) + (let ((_%e187176187244%_ (let () (declare (not safe)) (gx#stx-e - _%tl185885185946%_)))) - (let ((_%tl185891185962%_ + _%tl187172187233%_)))) + (let ((_%tl187178187249%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185889185957%_))) - (_%hd185890185960%_ - (let () (declare (not safe)) (##car _%e185889185957%_)))) + (##cdr _%e187176187244%_))) + (_%hd187177187247%_ + (let () (declare (not safe)) (##car _%e187176187244%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185891185962%_)) + (gx#stx-null? _%tl187178187249%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185735186695%_)) - (let ((_%e185892185965%_ + (gx#stx-pair? _%tl187022187982%_)) + (let ((_%e187179187252%_ (let () (declare (not safe)) - (gx#stx-e _%tl185735186695%_)))) - (let ((_%tl185894185970%_ + (gx#stx-e _%tl187022187982%_)))) + (let ((_%tl187181187257%_ (let () (declare (not safe)) - (##cdr _%e185892185965%_))) - (_%hd185893185968%_ + (##cdr _%e187179187252%_))) + (_%hd187180187255%_ (let () (declare (not safe)) - (##car _%e185892185965%_)))) + (##car _%e187179187252%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185893185968%_)) - (let ((_%e185895185973%_ + (gx#stx-pair? _%hd187180187255%_)) + (let ((_%e187182187260%_ (let () (declare (not safe)) - (gx#stx-e _%hd185893185968%_)))) - (let ((_%tl185897185978%_ + (gx#stx-e _%hd187180187255%_)))) + (let ((_%tl187184187265%_ (let () (declare (not safe)) - (##cdr _%e185895185973%_))) - (_%hd185896185976%_ + (##cdr _%e187182187260%_))) + (_%hd187183187263%_ (let () (declare (not safe)) - (##car _%e185895185973%_)))) + (##car _%e187182187260%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185896185976%_)) + (gx#identifier? _%hd187183187263%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd185896185976%_)) + _%hd187183187263%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185897185978%_)) - (let ((_%e185898185981%_ + _%tl187184187265%_)) + (let ((_%e187185187268%_ (let () (declare (not safe)) (gx#stx-e - _%tl185897185978%_)))) - (let ((_%tl185900185986%_ + _%tl187184187265%_)))) + (let ((_%tl187187187273%_ (let () (declare (not safe)) - (##cdr _%e185898185981%_))) - (_%hd185899185984%_ + (##cdr _%e187185187268%_))) + (_%hd187186187271%_ (let () (declare (not safe)) - (##car _%e185898185981%_)))) + (##car _%e187185187268%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185900185986%_)) + _%tl187187187273%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl185894185970%_)) - (_%__kont189746189747%_ - _%hd185899185984%_ - _%hd185890185960%_ - _%hd185887185952%_) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) + (gx#stx-null? _%tl187181187257%_)) + (_%__kont191033191034%_ + _%hd187186187271%_ + _%hd187177187247%_ + _%hd187174187239%_) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_))) - (_%__kont189748189749%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_))) + (_%__kont191035191036%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)) - (_%__kont189748189749%_)))) - (_%__kont189748189749%_)))))) - (_%countf-symbol181770%_ - (lambda (_%id185708%_) - (let ((_%$e185710%_ + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)) + (_%__kont191035191036%_)))) + (_%__kont191035191036%_)))))) + (_%countf-symbol183057%_ + (lambda (_%id186995%_) + (let ((_%$e186997%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%id185708%_)))) - (if (or (eq? '##vector-length _%$e185710%_) - (eq? 'vector-length _%$e185710%_)) + (gxc#identifier-symbol _%id186995%_)))) + (if (or (eq? '##vector-length _%$e186997%_) + (eq? 'vector-length _%$e186997%_)) 'vector-length - (if (eq? 'values-count _%$e185710%_) + (if (eq? 'values-count _%$e186997%_) 'values-count '#f))))) - (_%eqf-symbol181771%_ - (lambda (_%sym185694%_) - (let ((_%$e185696%_ _%sym185694%_)) - (if (or (eq? '##eq? _%$e185696%_) - (eq? 'eq? _%$e185696%_)) + (_%eqf-symbol183058%_ + (lambda (_%sym186981%_) + (let ((_%$e186983%_ _%sym186981%_)) + (if (or (eq? '##eq? _%$e186983%_) + (eq? 'eq? _%$e186983%_)) 'eq? - (if (or (eq? '##eqv? _%$e185696%_) - (eq? 'eqv? _%$e185696%_)) + (if (or (eq? '##eqv? _%$e186983%_) + (eq? 'eqv? _%$e186983%_)) 'eqv? - (if (or (eq? '##equal? _%$e185696%_) - (eq? 'equal? _%$e185696%_)) + (if (or (eq? '##equal? _%$e186983%_) + (eq? 'equal? _%$e186983%_)) 'equal? - (if (eq? 'gx#free-identifier=? _%$e185696%_) + (if (eq? 'gx#free-identifier=? _%$e186983%_) 'free-identifier=? - (if (eq? 'gx#stx-eq? _%$e185696%_) + (if (eq? 'gx#stx-eq? _%$e186983%_) 'stx-eq? '#f)))))))) - (_%eqf-symbol?181772%_ - (lambda (_%sym185677%_) - (let ((_%$e185679%_ _%sym185677%_)) - (if (or (eq? 'eq? _%$e185679%_) - (eq? 'eqv? _%$e185679%_) - (eq? 'equal? _%$e185679%_) - (eq? 'free-identifier=? _%$e185679%_) - (eq? 'stx-eq? _%$e185679%_)) + (_%eqf-symbol?183059%_ + (lambda (_%sym186964%_) + (let ((_%$e186966%_ _%sym186964%_)) + (if (or (eq? 'eq? _%$e186966%_) + (eq? 'eqv? _%$e186966%_) + (eq? 'equal? _%$e186966%_) + (eq? 'free-identifier=? _%$e186966%_) + (eq? 'stx-eq? _%$e186966%_)) '#t '#f)))) - (_%do-assert!181773%_ - (lambda (_%assert185668%_ _%type185669%_ _%K185670%_) - (let ((_%unwind-assert185672%_ _%env-assert181763%_) - (_%unwind-type185673%_ _%env-type181764%_)) - (set! _%env-assert181763%_ _%assert185668%_) - (set! _%env-type181764%_ _%type185669%_) - (let ((_%val185675%_ (_%K185670%_))) - (set! _%env-assert181763%_ _%unwind-assert185672%_) - (set! _%env-type181764%_ _%unwind-type185673%_) - _%val185675%_)))) - (_%do-bind181774%_ - (lambda (_%bind185665%_ _%K185666%_) - (if (pair? _%bind185665%_) - (_%do-bind!181776%_ - (_%fold-bind-env181775%_ - _%bind185665%_ - _%env-bind181765%_) - _%K185666%_) - (_%K185666%_)))) - (_%fold-bind-env181775%_ - (lambda (_%bind185594%_ _%env185595%_) - (let _%lp185597%_ ((_%rest185599%_ _%bind185594%_) - (_%env185600%_ _%env185595%_)) - (let* ((_%rest185601185609%_ _%rest185599%_) - (_%else185603185617%_ (lambda () _%env185600%_)) - (_%K185605185653%_ - (lambda (_%rest185620%_ _%bind185621%_) - (let* ((_%bind185622185629%_ _%bind185621%_) - (_%E185624185633%_ + (_%do-assert!183060%_ + (lambda (_%assert186955%_ _%type186956%_ _%K186957%_) + (let ((_%unwind-assert186959%_ _%env-assert183050%_) + (_%unwind-type186960%_ _%env-type183051%_)) + (set! _%env-assert183050%_ _%assert186955%_) + (set! _%env-type183051%_ _%type186956%_) + (let ((_%val186962%_ (_%K186957%_))) + (set! _%env-assert183050%_ _%unwind-assert186959%_) + (set! _%env-type183051%_ _%unwind-type186960%_) + _%val186962%_)))) + (_%do-bind183061%_ + (lambda (_%bind186952%_ _%K186953%_) + (if (pair? _%bind186952%_) + (_%do-bind!183063%_ + (_%fold-bind-env183062%_ + _%bind186952%_ + _%env-bind183052%_) + _%K186953%_) + (_%K186953%_)))) + (_%fold-bind-env183062%_ + (lambda (_%bind186881%_ _%env186882%_) + (let _%lp186884%_ ((_%rest186886%_ _%bind186881%_) + (_%env186887%_ _%env186882%_)) + (let* ((_%rest186888186896%_ _%rest186886%_) + (_%else186890186904%_ (lambda () _%env186887%_)) + (_%K186892186940%_ + (lambda (_%rest186907%_ _%bind186908%_) + (let* ((_%bind186909186916%_ _%bind186908%_) + (_%E186911186920%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind185622185629%_ + _%bind186909186916%_ '([id . expr]))) '#!void)) - (_%K185625185641%_ - (lambda (_%expr185636%_ _%id185637%_) - (let ((_%sexpr185639%_ + (_%K186912186928%_ + (lambda (_%expr186923%_ _%id186924%_) + (let ((_%sexpr186926%_ (gxc#apply-generate-runtime-repr - _%expr185636%_))) - (_%lp185597%_ - _%rest185620%_ - (cons (cons _%sexpr185639%_ - _%id185637%_) - _%env185600%_)))))) - (if (pair? _%bind185622185629%_) - (let ((_%hd185626185644%_ + _%expr186923%_))) + (_%lp186884%_ + _%rest186907%_ + (cons (cons _%sexpr186926%_ + _%id186924%_) + _%env186887%_)))))) + (if (pair? _%bind186909186916%_) + (let ((_%hd186913186931%_ (let () (declare (not safe)) - (##car _%bind185622185629%_))) - (_%tl185627185646%_ + (##car _%bind186909186916%_))) + (_%tl186914186933%_ (let () (declare (not safe)) - (##cdr _%bind185622185629%_)))) - (let* ((_%id185649%_ - _%hd185626185644%_) - (_%expr185651%_ - _%tl185627185646%_)) - (_%K185625185641%_ - _%expr185651%_ - _%id185649%_))) - (_%E185624185633%_)))))) - (if (pair? _%rest185601185609%_) - (let ((_%hd185606185656%_ + (##cdr _%bind186909186916%_)))) + (let* ((_%id186936%_ + _%hd186913186931%_) + (_%expr186938%_ + _%tl186914186933%_)) + (_%K186912186928%_ + _%expr186938%_ + _%id186936%_))) + (_%E186911186920%_)))))) + (if (pair? _%rest186888186896%_) + (let ((_%hd186893186943%_ (let () (declare (not safe)) - (##car _%rest185601185609%_))) - (_%tl185607185658%_ + (##car _%rest186888186896%_))) + (_%tl186894186945%_ (let () (declare (not safe)) - (##cdr _%rest185601185609%_)))) - (let* ((_%bind185661%_ _%hd185606185656%_) - (_%rest185663%_ _%tl185607185658%_)) - (_%K185605185653%_ - _%rest185663%_ - _%bind185661%_))) - (_%else185603185617%_)))))) - (_%do-bind!181776%_ - (lambda (_%env185587%_ _%K185588%_) - (let ((_%unwind185590%_ _%env-bind181765%_)) - (set! _%env-bind181765%_ _%env185587%_) - (let ((_%val185592%_ (_%K185588%_))) - (set! _%env-bind181765%_ _%unwind185590%_) - _%val185592%_)))) - (_%do-splice!181777%_ - (lambda (_%K185581%_) - (let ((_%unwind185583%_ _%in-splice?181766%_)) - (set! _%in-splice?181766%_ '#t) - (let ((_%val185585%_ (_%K185581%_))) - (set! _%in-splice?181766%_ _%unwind185583%_) - _%val185585%_)))) - (_%optimize-e181778%_ - (lambda (_%expr184777%_) - (let* ((_%__stx190186190187%_ _%expr184777%_) - (_%g184784184957%_ + (##cdr _%rest186888186896%_)))) + (let* ((_%bind186948%_ _%hd186893186943%_) + (_%rest186950%_ _%tl186894186945%_)) + (_%K186892186940%_ + _%rest186950%_ + _%bind186948%_))) + (_%else186890186904%_)))))) + (_%do-bind!183063%_ + (lambda (_%env186874%_ _%K186875%_) + (let ((_%unwind186877%_ _%env-bind183052%_)) + (set! _%env-bind183052%_ _%env186874%_) + (let ((_%val186879%_ (_%K186875%_))) + (set! _%env-bind183052%_ _%unwind186877%_) + _%val186879%_)))) + (_%do-splice!183064%_ + (lambda (_%K186868%_) + (let ((_%unwind186870%_ _%in-splice?183053%_)) + (set! _%in-splice?183053%_ '#t) + (let ((_%val186872%_ (_%K186868%_))) + (set! _%in-splice?183053%_ _%unwind186870%_) + _%val186872%_)))) + (_%optimize-e183065%_ + (lambda (_%expr186064%_) + (let* ((_%__stx191473191474%_ _%expr186064%_) + (_%g186071186244%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190186190187%_))))) - (let ((_%__kont190188190189%_ - (lambda (_%L185553%_ _%L185554%_ _%L185555%_) - (let ((_%$e185572%_ - (_%assert-e181781%_ _%L185555%_))) - (if (eq? '#t _%$e185572%_) - (_%optimize-e181778%_ _%L185554%_) - (if (eq? '#f _%$e185572%_) - (_%optimize-e181778%_ _%L185553%_) - (let ((_%K185575%_ - (_%optimize-t__0__189133189134%_ - _%L185554%_ - _%L185555%_)) - (_%E185576%_ - (_%optimize-f__189135189136%_ - _%L185553%_ - _%L185555%_))) + _%__stx191473191474%_))))) + (let ((_%__kont191475191476%_ + (lambda (_%L186840%_ _%L186841%_ _%L186842%_) + (let ((_%$e186859%_ + (_%assert-e183068%_ _%L186842%_))) + (if (eq? '#t _%$e186859%_) + (_%optimize-e183065%_ _%L186841%_) + (if (eq? '#f _%$e186859%_) + (_%optimize-e183065%_ _%L186840%_) + (let ((_%K186862%_ + (_%optimize-t__0__190420190421%_ + _%L186841%_ + _%L186842%_)) + (_%E186863%_ + (_%optimize-f__190422190423%_ + _%L186840%_ + _%L186842%_))) (if (equal? (gxc#apply-generate-runtime-repr - _%K185575%_) + _%K186862%_) (gxc#apply-generate-runtime-repr - _%E185576%_)) - _%K185575%_ + _%E186863%_)) + _%K186862%_ (cons '%#if - (cons _%L185555%_ - (cons _%K185575%_ + (cons _%L186842%_ + (cons _%K186862%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%E185576%_ '()))))))))))) + (cons _%E186863%_ '()))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190190190191%_ - (lambda (_%L185482%_ _%L185483%_) - (let ((_%$e185503%_ - (_%lookup-block181786%_ _%L185483%_))) - (if _%$e185503%_ - ((lambda (_%block185506%_) - (if (_%nonlinear-block?181788%_ - _%block185506%_) - _%expr184777%_ - (_%optimize-e181778%_ - (_%inline-block181787%_ - _%block185506%_ - (let ((__tmp192281 - (lambda (_%g185507185510%_ - _%g185508185512%_) - (cons _%g185507185510%_ - _%g185508185512%_)))) + (_%__kont191477191478%_ + (lambda (_%L186769%_ _%L186770%_) + (let ((_%$e186790%_ + (_%lookup-block183073%_ _%L186770%_))) + (if _%$e186790%_ + ((lambda (_%block186793%_) + (if (_%nonlinear-block?183075%_ + _%block186793%_) + _%expr186064%_ + (_%optimize-e183065%_ + (_%inline-block183074%_ + _%block186793%_ + (let ((__tmp193568 + (lambda (_%g186794186797%_ + _%g186795186799%_) + (cons _%g186794186797%_ + _%g186795186799%_)))) (declare (not safe)) (__foldr1 - __tmp192281 + __tmp193568 '() - _%L185482%_)))))) - _%$e185503%_) - _%expr184777%_)))) - (_%__kont190194190195%_ - (lambda (_%L185372%_ _%L185373%_ _%L185374%_) - (let ((_%body185393%_ - (_%optimize-e181778%_ _%L185372%_))) + _%L186769%_)))))) + _%$e186790%_) + _%expr186064%_)))) + (_%__kont191481191482%_ + (lambda (_%L186659%_ _%L186660%_ _%L186661%_) + (let ((_%body186680%_ + (_%optimize-e183065%_ _%L186659%_))) (cons '%#let-values (cons (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L185373%_ - _%L185374%_)) - (let ((__tmp192282 - (lambda (_%g185394185398%_ - _%g185395185400%_ - _%g185396185402%_) - (cons (cons (cons _%g185395185400%_ + _%L186660%_ + _%L186661%_)) + (let ((__tmp193569 + (lambda (_%g186681186685%_ + _%g186682186687%_ + _%g186683186689%_) + (cons (cons (cons _%g186682186687%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g185394185398%_ '())) + (cons _%g186681186685%_ '())) '())) - _%g185396185402%_)))) + _%g186683186689%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp192282 + __tmp193569 '() - _%L185373%_ - _%L185374%_))) - (cons _%body185393%_ '())))))) - (_%__kont190198190199%_ - (lambda (_%L185240%_ _%L185241%_ _%L185242%_) - (_%bind-e__0__189141189142%_ + _%L186660%_ + _%L186661%_))) + (cons _%body186680%_ '())))))) + (_%__kont191485191486%_ + (lambda (_%L186527%_ _%L186528%_ _%L186529%_) + (_%bind-e__0__190428190429%_ (map cons - (let ((__tmp192283 - (lambda (_%g185260185263%_ - _%g185261185265%_) - (cons _%g185260185263%_ - _%g185261185265%_)))) + (let ((__tmp193570 + (lambda (_%g186547186550%_ + _%g186548186552%_) + (cons _%g186547186550%_ + _%g186548186552%_)))) (declare (not safe)) - (__foldr1 __tmp192283 '() _%L185242%_)) - (let ((__tmp192284 - (lambda (_%g185267185270%_ - _%g185268185272%_) - (cons _%g185267185270%_ - _%g185268185272%_)))) + (__foldr1 __tmp193570 '() _%L186529%_)) + (let ((__tmp193571 + (lambda (_%g186554186557%_ + _%g186555186559%_) + (cons _%g186554186557%_ + _%g186555186559%_)))) (declare (not safe)) (__foldr1 - __tmp192284 + __tmp193571 '() - _%L185241%_))) - _%L185240%_))) - (_%__kont190202190203%_ - (lambda (_%L185097%_ - _%L185098%_ - _%L185099%_ - _%L185100%_ - _%L185101%_) - (_%do-splice!181777%_ + _%L186528%_))) + _%L186527%_))) + (_%__kont191489191490%_ + (lambda (_%L186384%_ + _%L186385%_ + _%L186386%_ + _%L186387%_ + _%L186388%_) + (_%do-splice!183064%_ (lambda () - (let ((_%expr185143%_ - (_%optimize-e181778%_ _%L185099%_))) + (let ((_%expr186430%_ + (_%optimize-e183065%_ _%L186386%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L185101%_ + (cons (cons (cons (cons _%L186388%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#lambda - (cons (let ((__tmp192285 - (lambda (_%g185144185147%_ - _%g185145185149%_) - (cons _%g185144185147%_ - _%g185145185149%_)))) + (cons (let ((__tmp193572 + (lambda (_%g186431186434%_ + _%g186432186436%_) + (cons _%g186431186434%_ + _%g186432186436%_)))) (declare (not safe)) (__foldr1 - __tmp192285 + __tmp193572 '() - _%L185100%_)) - (cons _%expr185143%_ '()))) + _%L186387%_)) + (cons _%expr186430%_ '()))) '())) - (let ((__tmp192286 - (lambda (_%g185151185154%_ _%g185152185156%_) - (cons _%g185151185154%_ _%g185152185156%_)))) + (let ((__tmp193573 + (lambda (_%g186438186441%_ _%g186439186443%_) + (cons _%g186438186441%_ _%g186439186443%_)))) (declare (not safe)) - (__foldr1 __tmp192286 '() _%L185098%_))) + (__foldr1 __tmp193573 '() _%L186385%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L185097%_ '())))))))) - (_%__kont190208190209%_ - (lambda () _%expr184777%_))) - (let* ((_%__match190395190396%_ - (lambda (_%e184905184969%_ - _%hd184906184972%_ - _%tl184907184974%_ - _%e184908184977%_ - _%hd184909184980%_ - _%tl184910184982%_ - _%e184911184985%_ - _%hd184912184988%_ - _%tl184913184990%_ - _%e184914184993%_ - _%hd184915184996%_ - _%tl184916184998%_ - _%e184917185001%_ - _%hd184918185004%_ - _%tl184919185006%_ - _%e184920185009%_ - _%hd184921185012%_ - _%tl184922185014%_ - _%e184923185017%_ - _%hd184924185020%_ - _%tl184925185022%_ - _%e184926185025%_ - _%hd184927185028%_ - _%tl184928185030%_ - _%__splice190204190205%_ - _%target184929185033%_ - _%tl184931185035%_) - (letrec ((_%loop184932185038%_ - (lambda (_%hd184930185041%_ - _%id184936185043%_) + (cons _%L186384%_ '())))))))) + (_%__kont191495191496%_ + (lambda () _%expr186064%_))) + (let* ((_%__match191682191683%_ + (lambda (_%e186192186256%_ + _%hd186193186259%_ + _%tl186194186261%_ + _%e186195186264%_ + _%hd186196186267%_ + _%tl186197186269%_ + _%e186198186272%_ + _%hd186199186275%_ + _%tl186200186277%_ + _%e186201186280%_ + _%hd186202186283%_ + _%tl186203186285%_ + _%e186204186288%_ + _%hd186205186291%_ + _%tl186206186293%_ + _%e186207186296%_ + _%hd186208186299%_ + _%tl186209186301%_ + _%e186210186304%_ + _%hd186211186307%_ + _%tl186212186309%_ + _%e186213186312%_ + _%hd186214186315%_ + _%tl186215186317%_ + _%__splice191491191492%_ + _%target186216186320%_ + _%tl186218186322%_) + (letrec ((_%loop186219186325%_ + (lambda (_%hd186217186328%_ + _%id186223186330%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184930185041%_)) - (let ((_%e184933185046%_ + _%hd186217186328%_)) + (let ((_%e186220186333%_ (let () (declare (not safe)) (gx#stx-e - _%hd184930185041%_)))) - (let ((_%lp-tl184935185051%_ + _%hd186217186328%_)))) + (let ((_%lp-tl186222186338%_ (let () (declare (not safe)) - (##cdr _%e184933185046%_))) - (_%lp-hd184934185049%_ + (##cdr _%e186220186333%_))) + (_%lp-hd186221186336%_ (let () (declare (not safe)) - (##car _%e184933185046%_)))) - (_%loop184932185038%_ - _%lp-tl184935185051%_ - (cons _%lp-hd184934185049%_ - _%id184936185043%_)))) - (let ((_%id184937185054%_ - (reverse _%id184936185043%_))) + (##car _%e186220186333%_)))) + (_%loop186219186325%_ + _%lp-tl186222186338%_ + (cons _%lp-hd186221186336%_ + _%id186223186330%_)))) + (let ((_%id186224186341%_ + (reverse _%id186223186330%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184928185030%_)) - (let ((_%e184938185057%_ + _%tl186215186317%_)) + (let ((_%e186225186344%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl184928185030%_)))) - (let ((_%tl184940185062%_ + (gx#stx-e _%tl186215186317%_)))) + (let ((_%tl186227186349%_ (let () (declare (not safe)) - (##cdr _%e184938185057%_))) - (_%hd184939185060%_ + (##cdr _%e186225186344%_))) + (_%hd186226186347%_ (let () (declare (not safe)) - (##car _%e184938185057%_)))) + (##car _%e186225186344%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184940185062%_)) + (gx#stx-null? _%tl186227186349%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184922185014%_)) + (gx#stx-null? _%tl186209186301%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl184913184990%_)) - (let ((_%__splice190206190207%_ + (gx#stx-pair/null? _%tl186200186277%_)) + (let ((_%__splice191493191494%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl184913184990%_ + _%tl186200186277%_ '0)))) - (let ((_%tl184943185067%_ + (let ((_%tl186230186354%_ (let () (declare (not safe)) (##vector-ref - _%__splice190206190207%_ + _%__splice191493191494%_ '1))) - (_%target184941185065%_ + (_%target186228186352%_ (let () (declare (not safe)) (##vector-ref - _%__splice190206190207%_ + _%__splice191493191494%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184943185067%_)) - (letrec ((_%loop184944185070%_ - (lambda (_%hd184942185073%_ - _%bind184948185075%_) + (gx#stx-null? _%tl186230186354%_)) + (letrec ((_%loop186231186357%_ + (lambda (_%hd186229186360%_ + _%bind186235186362%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184942185073%_)) - (let ((_%e184945185078%_ + _%hd186229186360%_)) + (let ((_%e186232186365%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd184942185073%_)))) - (let ((_%lp-tl184947185083%_ + (gx#stx-e _%hd186229186360%_)))) + (let ((_%lp-tl186234186370%_ (let () (declare (not safe)) - (##cdr _%e184945185078%_))) - (_%lp-hd184946185081%_ + (##cdr _%e186232186365%_))) + (_%lp-hd186233186368%_ (let () (declare (not safe)) - (##car _%e184945185078%_)))) - (_%loop184944185070%_ - _%lp-tl184947185083%_ - (cons _%lp-hd184946185081%_ _%bind184948185075%_)))) - (let ((_%bind184949185086%_ (reverse _%bind184948185075%_))) + (##car _%e186232186365%_)))) + (_%loop186231186357%_ + _%lp-tl186234186370%_ + (cons _%lp-hd186233186368%_ _%bind186235186362%_)))) + (let ((_%bind186236186373%_ (reverse _%bind186235186362%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184910184982%_)) - (let ((_%e184950185089%_ + (gx#stx-pair? _%tl186197186269%_)) + (let ((_%e186237186376%_ (let () (declare (not safe)) - (gx#stx-e _%tl184910184982%_)))) - (let ((_%tl184952185094%_ + (gx#stx-e _%tl186197186269%_)))) + (let ((_%tl186239186381%_ (let () (declare (not safe)) - (##cdr _%e184950185089%_))) - (_%hd184951185092%_ + (##cdr _%e186237186376%_))) + (_%hd186238186379%_ (let () (declare (not safe)) - (##car _%e184950185089%_)))) + (##car _%e186237186376%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184952185094%_)) - (_%__kont190202190203%_ - _%hd184951185092%_ - _%bind184949185086%_ - _%hd184939185060%_ - _%id184937185054%_ - _%hd184918185004%_) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_))))))) + (gx#stx-null? _%tl186239186381%_)) + (_%__kont191489191490%_ + _%hd186238186379%_ + _%bind186236186373%_ + _%hd186226186347%_ + _%id186224186341%_ + _%hd186205186291%_) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184944185070%_ - _%target184941185065%_ + (_%loop186231186357%_ + _%target186228186352%_ '())) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_))))))) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184932185038%_ - _%target184929185033%_ + (_%loop186219186325%_ + _%target186216186320%_ '())))) - (_%__match190329190330%_ - (lambda (_%e184871185164%_ - _%hd184872185167%_ - _%tl184873185169%_ - _%e184874185172%_ - _%hd184875185175%_ - _%tl184876185177%_ - _%__splice190200190201%_ - _%target184877185180%_ - _%tl184879185182%_) - (letrec ((_%loop184880185185%_ - (lambda (_%hd184878185188%_ - _%expr184884185190%_ - _%id184885185192%_) + (_%__match191616191617%_ + (lambda (_%e186158186451%_ + _%hd186159186454%_ + _%tl186160186456%_ + _%e186161186459%_ + _%hd186162186462%_ + _%tl186163186464%_ + _%__splice191487191488%_ + _%target186164186467%_ + _%tl186166186469%_) + (letrec ((_%loop186167186472%_ + (lambda (_%hd186165186475%_ + _%expr186171186477%_ + _%id186172186479%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184878185188%_)) - (let ((_%e184881185195%_ + _%hd186165186475%_)) + (let ((_%e186168186482%_ (let () (declare (not safe)) (gx#stx-e - _%hd184878185188%_)))) - (let ((_%lp-tl184883185200%_ + _%hd186165186475%_)))) + (let ((_%lp-tl186170186487%_ (let () (declare (not safe)) - (##cdr _%e184881185195%_))) - (_%lp-hd184882185198%_ + (##cdr _%e186168186482%_))) + (_%lp-hd186169186485%_ (let () (declare (not safe)) - (##car _%e184881185195%_)))) + (##car _%e186168186482%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd184882185198%_)) - (let ((_%e184891185203%_ + _%lp-hd186169186485%_)) + (let ((_%e186178186490%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd184882185198%_)))) - (let ((_%tl184893185208%_ + (gx#stx-e _%lp-hd186169186485%_)))) + (let ((_%tl186180186495%_ (let () (declare (not safe)) - (##cdr _%e184891185203%_))) - (_%hd184892185206%_ + (##cdr _%e186178186490%_))) + (_%hd186179186493%_ (let () (declare (not safe)) - (##car _%e184891185203%_)))) + (##car _%e186178186490%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184892185206%_)) - (let ((_%e184894185211%_ + (gx#stx-pair? _%hd186179186493%_)) + (let ((_%e186181186498%_ (let () (declare (not safe)) - (gx#stx-e _%hd184892185206%_)))) - (let ((_%tl184896185216%_ + (gx#stx-e _%hd186179186493%_)))) + (let ((_%tl186183186503%_ (let () (declare (not safe)) - (##cdr _%e184894185211%_))) - (_%hd184895185214%_ + (##cdr _%e186181186498%_))) + (_%hd186182186501%_ (let () (declare (not safe)) - (##car _%e184894185211%_)))) + (##car _%e186181186498%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184896185216%_)) + (gx#stx-null? _%tl186183186503%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184893185208%_)) - (let ((_%e184897185219%_ + (gx#stx-pair? _%tl186180186495%_)) + (let ((_%e186184186506%_ (let () (declare (not safe)) (gx#stx-e - _%tl184893185208%_)))) - (let ((_%tl184899185224%_ + _%tl186180186495%_)))) + (let ((_%tl186186186511%_ (let () (declare (not safe)) - (##cdr _%e184897185219%_))) - (_%hd184898185222%_ + (##cdr _%e186184186506%_))) + (_%hd186185186509%_ (let () (declare (not safe)) - (##car _%e184897185219%_)))) + (##car _%e186184186506%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184899185224%_)) - (_%loop184880185185%_ - _%lp-tl184883185200%_ - (cons _%hd184898185222%_ - _%expr184884185190%_) - (cons _%hd184895185214%_ - _%id184885185192%_)) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) + _%tl186186186511%_)) + (_%loop186167186472%_ + _%lp-tl186170186487%_ + (cons _%hd186185186509%_ + _%expr186171186477%_) + (cons _%hd186182186501%_ + _%id186172186479%_)) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id184887185229%_ - (reverse _%id184885185192%_)) - (_%expr184886185227%_ - (reverse _%expr184884185190%_))) + (let ((_%id186174186516%_ + (reverse _%id186172186479%_)) + (_%expr186173186514%_ + (reverse _%expr186171186477%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184876185177%_)) - (let ((_%e184888185232%_ + _%tl186163186464%_)) + (let ((_%e186175186519%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl184876185177%_)))) - (let ((_%tl184890185237%_ + (gx#stx-e _%tl186163186464%_)))) + (let ((_%tl186177186524%_ (let () (declare (not safe)) - (##cdr _%e184888185232%_))) - (_%hd184889185235%_ + (##cdr _%e186175186519%_))) + (_%hd186176186522%_ (let () (declare (not safe)) - (##car _%e184888185232%_)))) + (##car _%e186175186519%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184890185237%_)) - (_%__kont190198190199%_ - _%hd184889185235%_ - _%expr184886185227%_ - _%id184887185229%_) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_))))))) + (gx#stx-null? _%tl186177186524%_)) + (_%__kont191485191486%_ + _%hd186176186522%_ + _%expr186173186514%_ + _%id186174186516%_) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184880185185%_ - _%target184877185180%_ + (_%loop186167186472%_ + _%target186164186467%_ '() '())))) - (_%__match190305190306%_ - (lambda (_%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_) - (letrec ((_%loop184842185301%_ - (lambda (_%hd184840185304%_ - _%xid184846185306%_ - _%id184847185308%_) + (_%__match191592191593%_ + (lambda (_%e186120186567%_ + _%hd186121186570%_ + _%tl186122186572%_ + _%e186123186575%_ + _%hd186124186578%_ + _%tl186125186580%_ + _%__splice191483191484%_ + _%target186126186583%_ + _%tl186128186585%_) + (letrec ((_%loop186129186588%_ + (lambda (_%hd186127186591%_ + _%xid186133186593%_ + _%id186134186595%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184840185304%_)) - (let ((_%e184843185311%_ + _%hd186127186591%_)) + (let ((_%e186130186598%_ (let () (declare (not safe)) (gx#stx-e - _%hd184840185304%_)))) - (let ((_%lp-tl184845185316%_ + _%hd186127186591%_)))) + (let ((_%lp-tl186132186603%_ (let () (declare (not safe)) - (##cdr _%e184843185311%_))) - (_%lp-hd184844185314%_ + (##cdr _%e186130186598%_))) + (_%lp-hd186131186601%_ (let () (declare (not safe)) - (##car _%e184843185311%_)))) + (##car _%e186130186598%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd184844185314%_)) - (let ((_%e184853185319%_ + _%lp-hd186131186601%_)) + (let ((_%e186140186606%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd184844185314%_)))) - (let ((_%tl184855185324%_ + (gx#stx-e _%lp-hd186131186601%_)))) + (let ((_%tl186142186611%_ (let () (declare (not safe)) - (##cdr _%e184853185319%_))) - (_%hd184854185322%_ + (##cdr _%e186140186606%_))) + (_%hd186141186609%_ (let () (declare (not safe)) - (##car _%e184853185319%_)))) + (##car _%e186140186606%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184854185322%_)) - (let ((_%e184856185327%_ + (gx#stx-pair? _%hd186141186609%_)) + (let ((_%e186143186614%_ (let () (declare (not safe)) - (gx#stx-e _%hd184854185322%_)))) - (let ((_%tl184858185332%_ + (gx#stx-e _%hd186141186609%_)))) + (let ((_%tl186145186619%_ (let () (declare (not safe)) - (##cdr _%e184856185327%_))) - (_%hd184857185330%_ + (##cdr _%e186143186614%_))) + (_%hd186144186617%_ (let () (declare (not safe)) - (##car _%e184856185327%_)))) + (##car _%e186143186614%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184858185332%_)) + (gx#stx-null? _%tl186145186619%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184855185324%_)) - (let ((_%e184859185335%_ + (gx#stx-pair? _%tl186142186611%_)) + (let ((_%e186146186622%_ (let () (declare (not safe)) (gx#stx-e - _%tl184855185324%_)))) - (let ((_%tl184861185340%_ + _%tl186142186611%_)))) + (let ((_%tl186148186627%_ (let () (declare (not safe)) - (##cdr _%e184859185335%_))) - (_%hd184860185338%_ + (##cdr _%e186146186622%_))) + (_%hd186147186625%_ (let () (declare (not safe)) - (##car _%e184859185335%_)))) + (##car _%e186146186622%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184860185338%_)) - (let ((_%e184862185343%_ + _%hd186147186625%_)) + (let ((_%e186149186630%_ (let () (declare (not safe)) (gx#stx-e - _%hd184860185338%_)))) - (let ((_%tl184864185348%_ + _%hd186147186625%_)))) + (let ((_%tl186151186635%_ (let () (declare (not safe)) - (##cdr _%e184862185343%_))) - (_%hd184863185346%_ + (##cdr _%e186149186630%_))) + (_%hd186150186633%_ (let () (declare (not safe)) - (##car _%e184862185343%_)))) + (##car _%e186149186630%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184863185346%_)) + _%hd186150186633%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd184863185346%_)) + _%hd186150186633%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl184864185348%_)) - (let ((_%e184865185351%_ + (gx#stx-pair? _%tl186151186635%_)) + (let ((_%e186152186638%_ (let () (declare (not safe)) - (gx#stx-e _%tl184864185348%_)))) - (let ((_%tl184867185356%_ + (gx#stx-e _%tl186151186635%_)))) + (let ((_%tl186154186643%_ (let () (declare (not safe)) - (##cdr _%e184865185351%_))) - (_%hd184866185354%_ + (##cdr _%e186152186638%_))) + (_%hd186153186641%_ (let () (declare (not safe)) - (##car _%e184865185351%_)))) + (##car _%e186152186638%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184867185356%_)) + (gx#stx-null? _%tl186154186643%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184861185340%_)) - (_%loop184842185301%_ - _%lp-tl184845185316%_ - (cons _%hd184866185354%_ - _%xid184846185306%_) - (cons _%hd184857185330%_ - _%id184847185308%_)) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)))) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)))) + (gx#stx-null? _%tl186148186627%_)) + (_%loop186129186588%_ + _%lp-tl186132186603%_ + (cons _%hd186153186641%_ + _%xid186133186593%_) + (cons _%hd186144186617%_ + _%id186134186595%_)) + (_%__match191616191617%_ + _%e186120186567%_ + _%hd186121186570%_ + _%tl186122186572%_ + _%e186123186575%_ + _%hd186124186578%_ + _%tl186125186580%_ + _%__splice191483191484%_ + _%target186126186583%_ + _%tl186128186585%_)) + (_%__match191616191617%_ + _%e186120186567%_ + _%hd186121186570%_ + _%tl186122186572%_ + _%e186123186575%_ + _%hd186124186578%_ + _%tl186125186580%_ + _%__splice191483191484%_ + _%target186126186583%_ + _%tl186128186585%_)))) + (_%__match191616191617%_ + _%e186120186567%_ + _%hd186121186570%_ + _%tl186122186572%_ + _%e186123186575%_ + _%hd186124186578%_ + _%tl186125186580%_ + _%__splice191483191484%_ + _%target186126186583%_ + _%tl186128186585%_)) + (_%__match191616191617%_ + _%e186120186567%_ + _%hd186121186570%_ + _%tl186122186572%_ + _%e186123186575%_ + _%hd186124186578%_ + _%tl186125186580%_ + _%__splice191483191484%_ + _%target186126186583%_ + _%tl186128186585%_)) + (_%__match191616191617%_ + _%e186120186567%_ + _%hd186121186570%_ + _%tl186122186572%_ + _%e186123186575%_ + _%hd186124186578%_ + _%tl186125186580%_ + _%__splice191483191484%_ + _%target186126186583%_ + _%tl186128186585%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)))) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)))) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)))) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)))) + (_%__match191616191617%_ + _%e186120186567%_ + _%hd186121186570%_ + _%tl186122186572%_ + _%e186123186575%_ + _%hd186124186578%_ + _%tl186125186580%_ + _%__splice191483191484%_ + _%target186126186583%_ + _%tl186128186585%_)))) + (_%__match191616191617%_ + _%e186120186567%_ + _%hd186121186570%_ + _%tl186122186572%_ + _%e186123186575%_ + _%hd186124186578%_ + _%tl186125186580%_ + _%__splice191483191484%_ + _%target186126186583%_ + _%tl186128186585%_)) + (_%__match191616191617%_ + _%e186120186567%_ + _%hd186121186570%_ + _%tl186122186572%_ + _%e186123186575%_ + _%hd186124186578%_ + _%tl186125186580%_ + _%__splice191483191484%_ + _%target186126186583%_ + _%tl186128186585%_)))) + (_%__match191616191617%_ + _%e186120186567%_ + _%hd186121186570%_ + _%tl186122186572%_ + _%e186123186575%_ + _%hd186124186578%_ + _%tl186125186580%_ + _%__splice191483191484%_ + _%target186126186583%_ + _%tl186128186585%_)))) + (_%__match191616191617%_ + _%e186120186567%_ + _%hd186121186570%_ + _%tl186122186572%_ + _%e186123186575%_ + _%hd186124186578%_ + _%tl186125186580%_ + _%__splice191483191484%_ + _%target186126186583%_ + _%tl186128186585%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id184849185361%_ - (reverse _%id184847185308%_)) - (_%xid184848185359%_ - (reverse _%xid184846185306%_))) + (let ((_%id186136186648%_ + (reverse _%id186134186595%_)) + (_%xid186135186646%_ + (reverse _%xid186133186593%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184838185293%_)) - (let ((_%e184850185364%_ + _%tl186125186580%_)) + (let ((_%e186137186651%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl184838185293%_)))) - (let ((_%tl184852185369%_ + (gx#stx-e _%tl186125186580%_)))) + (let ((_%tl186139186656%_ (let () (declare (not safe)) - (##cdr _%e184850185364%_))) - (_%hd184851185367%_ + (##cdr _%e186137186651%_))) + (_%hd186138186654%_ (let () (declare (not safe)) - (##car _%e184850185364%_)))) + (##car _%e186137186651%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184852185369%_)) - (_%__kont190194190195%_ - _%hd184851185367%_ - _%xid184848185359%_ - _%id184849185361%_) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_)))) - (_%__match190329190330%_ - _%e184833185280%_ - _%hd184834185283%_ - _%tl184835185285%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_))))))) + (gx#stx-null? _%tl186139186656%_)) + (_%__kont191481191482%_ + _%hd186138186654%_ + _%xid186135186646%_ + _%id186136186648%_) + (_%__match191616191617%_ + _%e186120186567%_ + _%hd186121186570%_ + _%tl186122186572%_ + _%e186123186575%_ + _%hd186124186578%_ + _%tl186125186580%_ + _%__splice191483191484%_ + _%target186126186583%_ + _%tl186128186585%_)))) + (_%__match191616191617%_ + _%e186120186567%_ + _%hd186121186570%_ + _%tl186122186572%_ + _%e186123186575%_ + _%hd186124186578%_ + _%tl186125186580%_ + _%__splice191483191484%_ + _%target186126186583%_ + _%tl186128186585%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184842185301%_ - _%target184839185296%_ + (_%loop186129186588%_ + _%target186126186583%_ '() '())))) - (_%__match190281190282%_ - (lambda (_%e184803185410%_ - _%hd184804185413%_ - _%tl184805185415%_ - _%e184806185418%_ - _%hd184807185421%_ - _%tl184808185423%_ - _%e184809185426%_ - _%hd184810185429%_ - _%tl184811185431%_ - _%e184812185434%_ - _%hd184813185437%_ - _%tl184814185439%_ - _%__splice190192190193%_ - _%target184815185442%_ - _%tl184817185444%_) - (letrec ((_%loop184818185447%_ - (lambda (_%hd184816185450%_ - _%id184822185452%_) + (_%__match191568191569%_ + (lambda (_%e186090186697%_ + _%hd186091186700%_ + _%tl186092186702%_ + _%e186093186705%_ + _%hd186094186708%_ + _%tl186095186710%_ + _%e186096186713%_ + _%hd186097186716%_ + _%tl186098186718%_ + _%e186099186721%_ + _%hd186100186724%_ + _%tl186101186726%_ + _%__splice191479191480%_ + _%target186102186729%_ + _%tl186104186731%_) + (letrec ((_%loop186105186734%_ + (lambda (_%hd186103186737%_ + _%id186109186739%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184816185450%_)) - (let ((_%e184819185455%_ + _%hd186103186737%_)) + (let ((_%e186106186742%_ (let () (declare (not safe)) (gx#stx-e - _%hd184816185450%_)))) - (let ((_%lp-tl184821185460%_ + _%hd186103186737%_)))) + (let ((_%lp-tl186108186747%_ (let () (declare (not safe)) - (##cdr _%e184819185455%_))) - (_%lp-hd184820185458%_ + (##cdr _%e186106186742%_))) + (_%lp-hd186107186745%_ (let () (declare (not safe)) - (##car _%e184819185455%_)))) + (##car _%e186106186742%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd184820185458%_)) - (let ((_%e184824185463%_ + _%lp-hd186107186745%_)) + (let ((_%e186111186750%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd184820185458%_)))) - (let ((_%tl184826185468%_ + (gx#stx-e _%lp-hd186107186745%_)))) + (let ((_%tl186113186755%_ (let () (declare (not safe)) - (##cdr _%e184824185463%_))) - (_%hd184825185466%_ + (##cdr _%e186111186750%_))) + (_%hd186112186753%_ (let () (declare (not safe)) - (##car _%e184824185463%_)))) + (##car _%e186111186750%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184825185466%_)) + (gx#identifier? _%hd186112186753%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd184825185466%_)) + (gx#stx-eq? '%#ref _%hd186112186753%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184826185468%_)) - (let ((_%e184827185471%_ + (gx#stx-pair? _%tl186113186755%_)) + (let ((_%e186114186758%_ (let () (declare (not safe)) - (gx#stx-e _%tl184826185468%_)))) - (let ((_%tl184829185476%_ + (gx#stx-e _%tl186113186755%_)))) + (let ((_%tl186116186763%_ (let () (declare (not safe)) - (##cdr _%e184827185471%_))) - (_%hd184828185474%_ + (##cdr _%e186114186758%_))) + (_%hd186115186761%_ (let () (declare (not safe)) - (##car _%e184827185471%_)))) + (##car _%e186114186758%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184829185476%_)) - (_%loop184818185447%_ - _%lp-tl184821185460%_ - (cons _%hd184828185474%_ - _%id184822185452%_)) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) + (gx#stx-null? _%tl186116186763%_)) + (_%loop186105186734%_ + _%lp-tl186108186747%_ + (cons _%hd186115186761%_ + _%id186109186739%_)) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id184823185479%_ - (reverse _%id184822185452%_))) - (_%__kont190190190191%_ - _%id184823185479%_ - _%hd184813185437%_)))))) - (_%loop184818185447%_ - _%target184815185442%_ + (let ((_%id186110186766%_ + (reverse _%id186109186739%_))) + (_%__kont191477191478%_ + _%id186110186766%_ + _%hd186100186724%_)))))) + (_%loop186105186734%_ + _%target186102186729%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190186190187%_)) - (let ((_%e184789185521%_ + (gx#stx-pair? _%__stx191473191474%_)) + (let ((_%e186076186808%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190186190187%_)))) - (let ((_%tl184791185526%_ + (gx#stx-e _%__stx191473191474%_)))) + (let ((_%tl186078186813%_ (let () (declare (not safe)) - (##cdr _%e184789185521%_))) - (_%hd184790185524%_ + (##cdr _%e186076186808%_))) + (_%hd186077186811%_ (let () (declare (not safe)) - (##car _%e184789185521%_)))) + (##car _%e186076186808%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184790185524%_)) + (gx#identifier? _%hd186077186811%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd184790185524%_)) + _%hd186077186811%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184791185526%_)) - (let ((_%e184792185529%_ + _%tl186078186813%_)) + (let ((_%e186079186816%_ (let () (declare (not safe)) (gx#stx-e - _%tl184791185526%_)))) - (let ((_%tl184794185534%_ + _%tl186078186813%_)))) + (let ((_%tl186081186821%_ (let () (declare (not safe)) - (##cdr _%e184792185529%_))) - (_%hd184793185532%_ + (##cdr _%e186079186816%_))) + (_%hd186080186819%_ (let () (declare (not safe)) - (##car _%e184792185529%_)))) + (##car _%e186079186816%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184794185534%_)) - (let ((_%e184795185537%_ + _%tl186081186821%_)) + (let ((_%e186082186824%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl184794185534%_)))) - (let ((_%tl184797185542%_ + (gx#stx-e _%tl186081186821%_)))) + (let ((_%tl186084186829%_ (let () (declare (not safe)) - (##cdr _%e184795185537%_))) - (_%hd184796185540%_ + (##cdr _%e186082186824%_))) + (_%hd186083186827%_ (let () (declare (not safe)) - (##car _%e184795185537%_)))) + (##car _%e186082186824%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184797185542%_)) - (let ((_%e184798185545%_ + (gx#stx-pair? _%tl186084186829%_)) + (let ((_%e186085186832%_ (let () (declare (not safe)) - (gx#stx-e _%tl184797185542%_)))) - (let ((_%tl184800185550%_ + (gx#stx-e _%tl186084186829%_)))) + (let ((_%tl186087186837%_ (let () (declare (not safe)) - (##cdr _%e184798185545%_))) - (_%hd184799185548%_ + (##cdr _%e186085186832%_))) + (_%hd186086186835%_ (let () (declare (not safe)) - (##car _%e184798185545%_)))) + (##car _%e186085186832%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184800185550%_)) - (_%__kont190188190189%_ - _%hd184799185548%_ - _%hd184796185540%_ - _%hd184793185532%_) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) + (gx#stx-null? _%tl186087186837%_)) + (_%__kont191475191476%_ + _%hd186086186835%_ + _%hd186083186827%_ + _%hd186080186819%_) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190208190209%_)) + (_%__kont191495191496%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd184790185524%_)) + _%hd186077186811%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184791185526%_)) - (let ((_%e184806185418%_ + _%tl186078186813%_)) + (let ((_%e186093186705%_ (let () (declare (not safe)) (gx#stx-e - _%tl184791185526%_)))) - (let ((_%tl184808185423%_ + _%tl186078186813%_)))) + (let ((_%tl186095186710%_ (let () (declare (not safe)) - (##cdr _%e184806185418%_))) - (_%hd184807185421%_ + (##cdr _%e186093186705%_))) + (_%hd186094186708%_ (let () (declare (not safe)) - (##car _%e184806185418%_)))) + (##car _%e186093186705%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184807185421%_)) - (let ((_%e184809185426%_ + _%hd186094186708%_)) + (let ((_%e186096186713%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd184807185421%_)))) - (let ((_%tl184811185431%_ + (gx#stx-e _%hd186094186708%_)))) + (let ((_%tl186098186718%_ (let () (declare (not safe)) - (##cdr _%e184809185426%_))) - (_%hd184810185429%_ + (##cdr _%e186096186713%_))) + (_%hd186097186716%_ (let () (declare (not safe)) - (##car _%e184809185426%_)))) + (##car _%e186096186713%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184810185429%_)) + (gx#identifier? _%hd186097186716%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd184810185429%_)) + (gx#stx-eq? '%#ref _%hd186097186716%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184811185431%_)) - (let ((_%e184812185434%_ + (gx#stx-pair? _%tl186098186718%_)) + (let ((_%e186099186721%_ (let () (declare (not safe)) - (gx#stx-e _%tl184811185431%_)))) - (let ((_%tl184814185439%_ + (gx#stx-e _%tl186098186718%_)))) + (let ((_%tl186101186726%_ (let () (declare (not safe)) - (##cdr _%e184812185434%_))) - (_%hd184813185437%_ + (##cdr _%e186099186721%_))) + (_%hd186100186724%_ (let () (declare (not safe)) - (##car _%e184812185434%_)))) + (##car _%e186099186721%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184814185439%_)) + (gx#stx-null? _%tl186101186726%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl184808185423%_)) - (let ((_%__splice190192190193%_ + _%tl186095186710%_)) + (let ((_%__splice191479191480%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl184808185423%_ + _%tl186095186710%_ '0)))) - (let ((_%tl184817185444%_ + (let ((_%tl186104186731%_ (let () (declare (not safe)) (##vector-ref - _%__splice190192190193%_ + _%__splice191479191480%_ '1))) - (_%target184815185442%_ + (_%target186102186729%_ (let () (declare (not safe)) (##vector-ref - _%__splice190192190193%_ + _%__splice191479191480%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184817185444%_)) - (_%__match190281190282%_ - _%e184789185521%_ - _%hd184790185524%_ - _%tl184791185526%_ - _%e184806185418%_ - _%hd184807185421%_ - _%tl184808185423%_ - _%e184809185426%_ - _%hd184810185429%_ - _%tl184811185431%_ - _%e184812185434%_ - _%hd184813185437%_ - _%tl184814185439%_ - _%__splice190192190193%_ - _%target184815185442%_ - _%tl184817185444%_) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) + _%tl186104186731%_)) + (_%__match191568191569%_ + _%e186076186808%_ + _%hd186077186811%_ + _%tl186078186813%_ + _%e186093186705%_ + _%hd186094186708%_ + _%tl186095186710%_ + _%e186096186713%_ + _%hd186097186716%_ + _%tl186098186718%_ + _%e186099186721%_ + _%hd186100186724%_ + _%tl186101186726%_ + _%__splice191479191480%_ + _%target186102186729%_ + _%tl186104186731%_) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190208190209%_)) + (_%__kont191495191496%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd184790185524%_)) + _%hd186077186811%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184791185526%_)) - (let ((_%e184836185288%_ + _%tl186078186813%_)) + (let ((_%e186123186575%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl184791185526%_)))) - (let ((_%tl184838185293%_ + (gx#stx-e _%tl186078186813%_)))) + (let ((_%tl186125186580%_ (let () (declare (not safe)) - (##cdr _%e184836185288%_))) - (_%hd184837185291%_ + (##cdr _%e186123186575%_))) + (_%hd186124186578%_ (let () (declare (not safe)) - (##car _%e184836185288%_)))) + (##car _%e186123186575%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd184837185291%_)) - (let ((_%__splice190196190197%_ + (gx#stx-pair/null? _%hd186124186578%_)) + (let ((_%__splice191483191484%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd184837185291%_ + _%hd186124186578%_ '0)))) - (let ((_%tl184841185298%_ + (let ((_%tl186128186585%_ (let () (declare (not safe)) - (##vector-ref _%__splice190196190197%_ '1))) - (_%target184839185296%_ + (##vector-ref _%__splice191483191484%_ '1))) + (_%target186126186583%_ (let () (declare (not safe)) - (##vector-ref _%__splice190196190197%_ '0)))) + (##vector-ref _%__splice191483191484%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184841185298%_)) - (_%__match190305190306%_ - _%e184789185521%_ - _%hd184790185524%_ - _%tl184791185526%_ - _%e184836185288%_ - _%hd184837185291%_ - _%tl184838185293%_ - _%__splice190196190197%_ - _%target184839185296%_ - _%tl184841185298%_) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) + (gx#stx-null? _%tl186128186585%_)) + (_%__match191592191593%_ + _%e186076186808%_ + _%hd186077186811%_ + _%tl186078186813%_ + _%e186123186575%_ + _%hd186124186578%_ + _%tl186125186580%_ + _%__splice191483191484%_ + _%target186126186583%_ + _%tl186128186585%_) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd184790185524%_)) + _%hd186077186811%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184791185526%_)) - (let ((_%e184908184977%_ + _%tl186078186813%_)) + (let ((_%e186195186264%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl184791185526%_)))) - (let ((_%tl184910184982%_ + (gx#stx-e _%tl186078186813%_)))) + (let ((_%tl186197186269%_ (let () (declare (not safe)) - (##cdr _%e184908184977%_))) - (_%hd184909184980%_ + (##cdr _%e186195186264%_))) + (_%hd186196186267%_ (let () (declare (not safe)) - (##car _%e184908184977%_)))) + (##car _%e186195186264%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184909184980%_)) - (let ((_%e184911184985%_ + (gx#stx-pair? _%hd186196186267%_)) + (let ((_%e186198186272%_ (let () (declare (not safe)) - (gx#stx-e _%hd184909184980%_)))) - (let ((_%tl184913184990%_ + (gx#stx-e _%hd186196186267%_)))) + (let ((_%tl186200186277%_ (let () (declare (not safe)) - (##cdr _%e184911184985%_))) - (_%hd184912184988%_ + (##cdr _%e186198186272%_))) + (_%hd186199186275%_ (let () (declare (not safe)) - (##car _%e184911184985%_)))) + (##car _%e186198186272%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184912184988%_)) - (let ((_%e184914184993%_ + (gx#stx-pair? _%hd186199186275%_)) + (let ((_%e186201186280%_ (let () (declare (not safe)) - (gx#stx-e _%hd184912184988%_)))) - (let ((_%tl184916184998%_ + (gx#stx-e _%hd186199186275%_)))) + (let ((_%tl186203186285%_ (let () (declare (not safe)) - (##cdr _%e184914184993%_))) - (_%hd184915184996%_ + (##cdr _%e186201186280%_))) + (_%hd186202186283%_ (let () (declare (not safe)) - (##car _%e184914184993%_)))) + (##car _%e186201186280%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184915184996%_)) - (let ((_%e184917185001%_ + (gx#stx-pair? _%hd186202186283%_)) + (let ((_%e186204186288%_ (let () (declare (not safe)) (gx#stx-e - _%hd184915184996%_)))) - (let ((_%tl184919185006%_ + _%hd186202186283%_)))) + (let ((_%tl186206186293%_ (let () (declare (not safe)) - (##cdr _%e184917185001%_))) - (_%hd184918185004%_ + (##cdr _%e186204186288%_))) + (_%hd186205186291%_ (let () (declare (not safe)) - (##car _%e184917185001%_)))) + (##car _%e186204186288%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184919185006%_)) + _%tl186206186293%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184916184998%_)) - (let ((_%e184920185009%_ + _%tl186203186285%_)) + (let ((_%e186207186296%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl184916184998%_)))) - (let ((_%tl184922185014%_ + (gx#stx-e _%tl186203186285%_)))) + (let ((_%tl186209186301%_ (let () (declare (not safe)) - (##cdr _%e184920185009%_))) - (_%hd184921185012%_ + (##cdr _%e186207186296%_))) + (_%hd186208186299%_ (let () (declare (not safe)) - (##car _%e184920185009%_)))) + (##car _%e186207186296%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184921185012%_)) - (let ((_%e184923185017%_ + (gx#stx-pair? _%hd186208186299%_)) + (let ((_%e186210186304%_ (let () (declare (not safe)) - (gx#stx-e _%hd184921185012%_)))) - (let ((_%tl184925185022%_ + (gx#stx-e _%hd186208186299%_)))) + (let ((_%tl186212186309%_ (let () (declare (not safe)) - (##cdr _%e184923185017%_))) - (_%hd184924185020%_ + (##cdr _%e186210186304%_))) + (_%hd186211186307%_ (let () (declare (not safe)) - (##car _%e184923185017%_)))) + (##car _%e186210186304%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184924185020%_)) + (gx#identifier? _%hd186211186307%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd184924185020%_)) + (gx#stx-eq? '%#lambda _%hd186211186307%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184925185022%_)) - (let ((_%e184926185025%_ + (gx#stx-pair? _%tl186212186309%_)) + (let ((_%e186213186312%_ (let () (declare (not safe)) (gx#stx-e - _%tl184925185022%_)))) - (let ((_%tl184928185030%_ + _%tl186212186309%_)))) + (let ((_%tl186215186317%_ (let () (declare (not safe)) - (##cdr _%e184926185025%_))) - (_%hd184927185028%_ + (##cdr _%e186213186312%_))) + (_%hd186214186315%_ (let () (declare (not safe)) - (##car _%e184926185025%_)))) + (##car _%e186213186312%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd184927185028%_)) - (let ((_%__splice190204190205%_ + _%hd186214186315%_)) + (let ((_%__splice191491191492%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd184927185028%_ + _%hd186214186315%_ '0)))) - (let ((_%tl184931185035%_ + (let ((_%tl186218186322%_ (let () (declare (not safe)) (##vector-ref - _%__splice190204190205%_ + _%__splice191491191492%_ '1))) - (_%target184929185033%_ + (_%target186216186320%_ (let () (declare (not safe)) (##vector-ref - _%__splice190204190205%_ + _%__splice191491191492%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184931185035%_)) - (_%__match190395190396%_ - _%e184789185521%_ - _%hd184790185524%_ - _%tl184791185526%_ - _%e184908184977%_ - _%hd184909184980%_ - _%tl184910184982%_ - _%e184911184985%_ - _%hd184912184988%_ - _%tl184913184990%_ - _%e184914184993%_ - _%hd184915184996%_ - _%tl184916184998%_ - _%e184917185001%_ - _%hd184918185004%_ - _%tl184919185006%_ - _%e184920185009%_ - _%hd184921185012%_ - _%tl184922185014%_ - _%e184923185017%_ - _%hd184924185020%_ - _%tl184925185022%_ - _%e184926185025%_ - _%hd184927185028%_ - _%tl184928185030%_ - _%__splice190204190205%_ - _%target184929185033%_ - _%tl184931185035%_) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) + _%tl186218186322%_)) + (_%__match191682191683%_ + _%e186076186808%_ + _%hd186077186811%_ + _%tl186078186813%_ + _%e186195186264%_ + _%hd186196186267%_ + _%tl186197186269%_ + _%e186198186272%_ + _%hd186199186275%_ + _%tl186200186277%_ + _%e186201186280%_ + _%hd186202186283%_ + _%tl186203186285%_ + _%e186204186288%_ + _%hd186205186291%_ + _%tl186206186293%_ + _%e186207186296%_ + _%hd186208186299%_ + _%tl186209186301%_ + _%e186210186304%_ + _%hd186211186307%_ + _%tl186212186309%_ + _%e186213186312%_ + _%hd186214186315%_ + _%tl186215186317%_ + _%__splice191491191492%_ + _%target186216186320%_ + _%tl186218186322%_) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)))) - (_%__kont190208190209%_)) - (_%__kont190208190209%_))))) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)))) + (_%__kont191495191496%_)) + (_%__kont191495191496%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190208190209%_)))) - (_%__kont190208190209%_))))))) - (_%optimize-t__189131189132%_ - (lambda (_%expr184760%_ _%test184761%_ _%continue184762%_) - (_%do-assert181767%_ - (cons (cons _%test184761%_ '#t) '()) - (lambda () (_%continue184762%_ _%expr184760%_))))) - (_%optimize-t__0__189133189134%_ - (lambda (_%expr184768%_ _%test184769%_) - (let ((_%continue184771%_ _%optimize-e181778%_)) - (_%optimize-t__189131189132%_ - _%expr184768%_ - _%test184769%_ - _%continue184771%_)))) - (_%optimize-t181779%_ - (lambda _g192288_ - (let ((_g192287_ + (_%__kont191495191496%_)))) + (_%__kont191495191496%_))))))) + (_%optimize-t__190418190419%_ + (lambda (_%expr186047%_ _%test186048%_ _%continue186049%_) + (_%do-assert183054%_ + (cons (cons _%test186048%_ '#t) '()) + (lambda () (_%continue186049%_ _%expr186047%_))))) + (_%optimize-t__0__190420190421%_ + (lambda (_%expr186055%_ _%test186056%_) + (let ((_%continue186058%_ _%optimize-e183065%_)) + (_%optimize-t__190418190419%_ + _%expr186055%_ + _%test186056%_ + _%continue186058%_)))) + (_%optimize-t183066%_ + (lambda _g193575_ + (let ((_g193574_ (let () (declare (not safe)) - (##length _g192288_)))) - (cond ((let () (declare (not safe)) (##fx= _g192287_ 2)) - (apply _%optimize-t__0__189133189134%_ - _g192288_)) - ((let () (declare (not safe)) (##fx= _g192287_ 3)) - (apply _%optimize-t__189131189132%_ _g192288_)) + (##length _g193575_)))) + (cond ((let () (declare (not safe)) (##fx= _g193574_ 2)) + (apply _%optimize-t__0__190420190421%_ + _g193575_)) + ((let () (declare (not safe)) (##fx= _g193574_ 3)) + (apply _%optimize-t__190418190419%_ _g193575_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g192288_)))))) - (_%optimize-f__189135189136%_ - (lambda (_%expr183844%_ _%test183845%_) - (_%do-assert181767%_ - (if _%test183845%_ - (cons (cons _%test183845%_ '#f) '()) + _g193575_)))))) + (_%optimize-f__190422190423%_ + (lambda (_%expr185131%_ _%test185132%_) + (_%do-assert183054%_ + (if _%test185132%_ + (cons (cons _%test185132%_ '#f) '()) '()) (lambda () - (let* ((_%__stx190436190437%_ _%expr183844%_) - (_%g183853184026%_ + (let* ((_%__stx191723191724%_ _%expr185131%_) + (_%g185140185313%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190436190437%_))))) - (let ((_%__kont190438190439%_ - (lambda (_%L184614%_ _%L184615%_) - (let ((_%$e184635%_ - (_%lookup-block181786%_ - _%L184615%_))) - (if _%$e184635%_ - ((lambda (_%block184638%_) - (if (_%nonlinear-block?181788%_ - _%block184638%_) - _%expr183844%_ - (let* ((_%inline184647%_ - (_%inline-block181787%_ - _%block184638%_ - (let ((__tmp192289 - (lambda (_%g184639184642%_ + _%__stx191723191724%_))))) + (let ((_%__kont191725191726%_ + (lambda (_%L185901%_ _%L185902%_) + (let ((_%$e185922%_ + (_%lookup-block183073%_ + _%L185902%_))) + (if _%$e185922%_ + ((lambda (_%block185925%_) + (if (_%nonlinear-block?183075%_ + _%block185925%_) + _%expr185131%_ + (let* ((_%inline185934%_ + (_%inline-block183074%_ + _%block185925%_ + (let ((__tmp193576 + (lambda (_%g185926185929%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g184640184644%_) - (cons _%g184639184642%_ _%g184640184644%_)))) + _%g185927185931%_) + (cons _%g185926185929%_ _%g185927185931%_)))) (declare (not safe)) - (__foldr1 __tmp192289 '() _%L184614%_)))) - (_%__stx190398190399%_ _%inline184647%_) - (_%g184650184671%_ + (__foldr1 __tmp193576 '() _%L185901%_)))) + (_%__stx191685191686%_ _%inline185934%_) + (_%g185937185958%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190398190399%_))))) + _%__stx191685191686%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__kont190400190401%_ - (lambda (_%L184715%_ + (let ((_%__kont191687191688%_ + (lambda (_%L186002%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L184716%_ - _%L184717%_) - (let ((_%$e184739%_ (_%assert-e181781%_ _%L184717%_))) - (if (eq? '#t _%$e184739%_) - (if _%in-splice?181766%_ - (_%optimize-f__0__189137189138%_ _%L184716%_) - (_%optimize-e181778%_ _%L184716%_)) - (if (eq? '#f _%$e184739%_) - (_%optimize-f__0__189137189138%_ _%L184715%_) - _%expr183844%_))))) - (_%__kont190402190403%_ + _%L186003%_ + _%L186004%_) + (let ((_%$e186026%_ (_%assert-e183068%_ _%L186004%_))) + (if (eq? '#t _%$e186026%_) + (if _%in-splice?183053%_ + (_%optimize-f__0__190424190425%_ _%L186003%_) + (_%optimize-e183065%_ _%L186003%_)) + (if (eq? '#f _%$e186026%_) + (_%optimize-f__0__190424190425%_ _%L186002%_) + _%expr185131%_))))) + (_%__kont191689191690%_ (lambda () - (_%optimize-f__0__189137189138%_ _%inline184647%_)))) + (_%optimize-f__0__190424190425%_ _%inline185934%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx190398190399%_)) - (let ((_%e184655184683%_ + _%__stx191685191686%_)) + (let ((_%e185942185970%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx190398190399%_)))) - (let ((_%tl184657184688%_ + (gx#stx-e _%__stx191685191686%_)))) + (let ((_%tl185944185975%_ (let () (declare (not safe)) - (##cdr _%e184655184683%_))) - (_%hd184656184686%_ + (##cdr _%e185942185970%_))) + (_%hd185943185973%_ (let () (declare (not safe)) - (##car _%e184655184683%_)))) + (##car _%e185942185970%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184656184686%_)) + (gx#identifier? _%hd185943185973%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd184656184686%_)) + (gx#stx-eq? '%#if _%hd185943185973%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184657184688%_)) - (let ((_%e184658184691%_ + (gx#stx-pair? _%tl185944185975%_)) + (let ((_%e185945185978%_ (let () (declare (not safe)) - (gx#stx-e _%tl184657184688%_)))) - (let ((_%tl184660184696%_ + (gx#stx-e _%tl185944185975%_)))) + (let ((_%tl185947185983%_ (let () (declare (not safe)) - (##cdr _%e184658184691%_))) - (_%hd184659184694%_ + (##cdr _%e185945185978%_))) + (_%hd185946185981%_ (let () (declare (not safe)) - (##car _%e184658184691%_)))) + (##car _%e185945185978%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184660184696%_)) - (let ((_%e184661184699%_ + (gx#stx-pair? _%tl185947185983%_)) + (let ((_%e185948185986%_ (let () (declare (not safe)) (gx#stx-e - _%tl184660184696%_)))) - (let ((_%tl184663184704%_ + _%tl185947185983%_)))) + (let ((_%tl185950185991%_ (let () (declare (not safe)) - (##cdr _%e184661184699%_))) - (_%hd184662184702%_ + (##cdr _%e185948185986%_))) + (_%hd185949185989%_ (let () (declare (not safe)) - (##car _%e184661184699%_)))) + (##car _%e185948185986%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184663184704%_)) - (let ((_%e184664184707%_ + _%tl185950185991%_)) + (let ((_%e185951185994%_ (let () (declare (not safe)) (gx#stx-e - _%tl184663184704%_)))) - (let ((_%tl184666184712%_ + _%tl185950185991%_)))) + (let ((_%tl185953185999%_ (let () (declare (not safe)) - (##cdr _%e184664184707%_))) - (_%hd184665184710%_ + (##cdr _%e185951185994%_))) + (_%hd185952185997%_ (let () (declare (not safe)) - (##car _%e184664184707%_)))) + (##car _%e185951185994%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184666184712%_)) - (_%__kont190400190401%_ - _%hd184665184710%_ - _%hd184662184702%_ - _%hd184659184694%_) - (_%__kont190402190403%_)))) - (_%__kont190402190403%_)))) - (_%__kont190402190403%_)))) - (_%__kont190402190403%_)) - (_%__kont190402190403%_)) - (_%__kont190402190403%_)))) - (_%__kont190402190403%_)))))) + _%tl185953185999%_)) + (_%__kont191687191688%_ + _%hd185952185997%_ + _%hd185949185989%_ + _%hd185946185981%_) + (_%__kont191689191690%_)))) + (_%__kont191689191690%_)))) + (_%__kont191689191690%_)))) + (_%__kont191689191690%_)) + (_%__kont191689191690%_)) + (_%__kont191689191690%_)))) + (_%__kont191689191690%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e184635%_) - _%expr183844%_)))) - (_%__kont190442190443%_ - (lambda (_%L184512%_ _%L184513%_ _%L184514%_) - (let ((_%$e184531%_ - (_%assert-e181781%_ _%L184514%_))) - (if (eq? '#t _%$e184531%_) - (if _%in-splice?181766%_ - (_%optimize-f__0__189137189138%_ - _%L184513%_) - (_%optimize-e181778%_ - _%L184513%_)) - (if (eq? '#f _%$e184531%_) - (_%optimize-f__0__189137189138%_ - _%L184512%_) - (let ((_%K184534%_ - (_%optimize-t__189131189132%_ - _%L184513%_ - _%L184514%_ - _%optimize-f181780%_)) - (_%E184535%_ - (_%optimize-f__189135189136%_ - _%L184512%_ - _%L184514%_))) + _%$e185922%_) + _%expr185131%_)))) + (_%__kont191729191730%_ + (lambda (_%L185799%_ _%L185800%_ _%L185801%_) + (let ((_%$e185818%_ + (_%assert-e183068%_ _%L185801%_))) + (if (eq? '#t _%$e185818%_) + (if _%in-splice?183053%_ + (_%optimize-f__0__190424190425%_ + _%L185800%_) + (_%optimize-e183065%_ + _%L185800%_)) + (if (eq? '#f _%$e185818%_) + (_%optimize-f__0__190424190425%_ + _%L185799%_) + (let ((_%K185821%_ + (_%optimize-t__190418190419%_ + _%L185800%_ + _%L185801%_ + _%optimize-f183067%_)) + (_%E185822%_ + (_%optimize-f__190422190423%_ + _%L185799%_ + _%L185801%_))) (if (equal? (gxc#apply-generate-runtime-repr - _%K184534%_) + _%K185821%_) (gxc#apply-generate-runtime-repr - _%E184535%_)) - _%K184534%_ + _%E185822%_)) + _%K185821%_ (cons '%#if - (cons _%L184514%_ - (cons _%K184534%_ + (cons _%L185801%_ + (cons _%K185821%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%E184535%_ '()))))))))))) + (cons _%E185822%_ '()))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190444190445%_ - (lambda (_%L184442%_ _%L184443%_ _%L184444%_) - (let ((_%body184463%_ - (_%optimize-f__0__189137189138%_ - _%L184442%_))) + (_%__kont191731191732%_ + (lambda (_%L185729%_ _%L185730%_ _%L185731%_) + (let ((_%body185750%_ + (_%optimize-f__0__190424190425%_ + _%L185729%_))) (cons '%#let-values (cons (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L184443%_ - _%L184444%_)) - (let ((__tmp192290 - (lambda (_%g184464184468%_ + _%L185730%_ + _%L185731%_)) + (let ((__tmp193577 + (lambda (_%g185751185755%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g184465184470%_ - _%g184466184472%_) - (cons (cons (cons _%g184465184470%_ '()) + _%g185752185757%_ + _%g185753185759%_) + (cons (cons (cons _%g185752185757%_ '()) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g184464184468%_ '())) + (cons _%g185751185755%_ '())) '())) - _%g184466184472%_)))) + _%g185753185759%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp192290 + __tmp193577 '() - _%L184443%_ - _%L184444%_))) - (cons _%body184463%_ '())))))) - (_%__kont190448190449%_ - (lambda (_%L184310%_ _%L184311%_ _%L184312%_) - (_%bind-e__189139189140%_ + _%L185730%_ + _%L185731%_))) + (cons _%body185750%_ '())))))) + (_%__kont191735191736%_ + (lambda (_%L185597%_ _%L185598%_ _%L185599%_) + (_%bind-e__190426190427%_ (map cons - (let ((__tmp192291 - (lambda (_%g184330184333%_ - _%g184331184335%_) - (cons _%g184330184333%_ - _%g184331184335%_)))) + (let ((__tmp193578 + (lambda (_%g185617185620%_ + _%g185618185622%_) + (cons _%g185617185620%_ + _%g185618185622%_)))) (declare (not safe)) (__foldr1 - __tmp192291 + __tmp193578 '() - _%L184312%_)) - (let ((__tmp192292 - (lambda (_%g184337184340%_ - _%g184338184342%_) - (cons _%g184337184340%_ - _%g184338184342%_)))) + _%L185599%_)) + (let ((__tmp193579 + (lambda (_%g185624185627%_ + _%g185625185629%_) + (cons _%g185624185627%_ + _%g185625185629%_)))) (declare (not safe)) (__foldr1 - __tmp192292 + __tmp193579 '() - _%L184311%_))) - _%L184310%_ - _%optimize-f181780%_))) - (_%__kont190452190453%_ - (lambda (_%L184166%_ - _%L184167%_ - _%L184168%_ - _%L184169%_ - _%L184170%_) - (_%do-splice!181777%_ + _%L185598%_))) + _%L185597%_ + _%optimize-f183067%_))) + (_%__kont191739191740%_ + (lambda (_%L185453%_ + _%L185454%_ + _%L185455%_ + _%L185456%_ + _%L185457%_) + (_%do-splice!183064%_ (lambda () - (let ((_%expr184213%_ - (_%optimize-f__0__189137189138%_ - _%L184168%_))) + (let ((_%expr185500%_ + (_%optimize-f__0__190424190425%_ + _%L185455%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L184170%_ + (cons (cons (cons (cons _%L185457%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#lambda - (cons (let ((__tmp192293 - (lambda (_%g184214184217%_ - _%g184215184219%_) - (cons _%g184214184217%_ - _%g184215184219%_)))) + (cons (let ((__tmp193580 + (lambda (_%g185501185504%_ + _%g185502185506%_) + (cons _%g185501185504%_ + _%g185502185506%_)))) (declare (not safe)) (__foldr1 - __tmp192293 + __tmp193580 '() - _%L184169%_)) - (cons _%expr184213%_ '()))) + _%L185456%_)) + (cons _%expr185500%_ '()))) '())) - (let ((__tmp192294 - (lambda (_%g184221184224%_ _%g184222184226%_) - (cons _%g184221184224%_ _%g184222184226%_)))) + (let ((__tmp193581 + (lambda (_%g185508185511%_ _%g185509185513%_) + (cons _%g185508185511%_ _%g185509185513%_)))) (declare (not safe)) - (__foldr1 __tmp192294 '() _%L184167%_))) + (__foldr1 __tmp193581 '() _%L185454%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L184166%_ + (cons _%L185453%_ '())))))))) - (_%__kont190458190459%_ - (lambda () _%expr183844%_))) - (let* ((_%__match190645190646%_ - (lambda (_%e183974184038%_ - _%hd183975184041%_ - _%tl183976184043%_ - _%e183977184046%_ - _%hd183978184049%_ - _%tl183979184051%_ - _%e183980184054%_ - _%hd183981184057%_ - _%tl183982184059%_ - _%e183983184062%_ - _%hd183984184065%_ - _%tl183985184067%_ - _%e183986184070%_ - _%hd183987184073%_ - _%tl183988184075%_ - _%e183989184078%_ - _%hd183990184081%_ - _%tl183991184083%_ - _%e183992184086%_ - _%hd183993184089%_ - _%tl183994184091%_ - _%e183995184094%_ - _%hd183996184097%_ - _%tl183997184099%_ - _%__splice190454190455%_ - _%target183998184102%_ - _%tl184000184104%_) - (letrec ((_%loop184001184107%_ - (lambda (_%hd183999184110%_ - _%id184005184112%_) + (_%__kont191745191746%_ + (lambda () _%expr185131%_))) + (let* ((_%__match191932191933%_ + (lambda (_%e185261185325%_ + _%hd185262185328%_ + _%tl185263185330%_ + _%e185264185333%_ + _%hd185265185336%_ + _%tl185266185338%_ + _%e185267185341%_ + _%hd185268185344%_ + _%tl185269185346%_ + _%e185270185349%_ + _%hd185271185352%_ + _%tl185272185354%_ + _%e185273185357%_ + _%hd185274185360%_ + _%tl185275185362%_ + _%e185276185365%_ + _%hd185277185368%_ + _%tl185278185370%_ + _%e185279185373%_ + _%hd185280185376%_ + _%tl185281185378%_ + _%e185282185381%_ + _%hd185283185384%_ + _%tl185284185386%_ + _%__splice191741191742%_ + _%target185285185389%_ + _%tl185287185391%_) + (letrec ((_%loop185288185394%_ + (lambda (_%hd185286185397%_ + _%id185292185399%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183999184110%_)) - (let ((_%e184002184115%_ + _%hd185286185397%_)) + (let ((_%e185289185402%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd183999184110%_)))) - (let ((_%lp-tl184004184120%_ - (let () (declare (not safe)) (##cdr _%e184002184115%_))) - (_%lp-hd184003184118%_ + (gx#stx-e _%hd185286185397%_)))) + (let ((_%lp-tl185291185407%_ + (let () (declare (not safe)) (##cdr _%e185289185402%_))) + (_%lp-hd185290185405%_ (let () (declare (not safe)) - (##car _%e184002184115%_)))) - (_%loop184001184107%_ - _%lp-tl184004184120%_ - (cons _%lp-hd184003184118%_ _%id184005184112%_)))) - (let ((_%id184006184123%_ (reverse _%id184005184112%_))) + (##car _%e185289185402%_)))) + (_%loop185288185394%_ + _%lp-tl185291185407%_ + (cons _%lp-hd185290185405%_ _%id185292185399%_)))) + (let ((_%id185293185410%_ (reverse _%id185292185399%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183997184099%_)) - (let ((_%e184007184126%_ + (gx#stx-pair? _%tl185284185386%_)) + (let ((_%e185294185413%_ (let () (declare (not safe)) - (gx#stx-e _%tl183997184099%_)))) - (let ((_%tl184009184131%_ + (gx#stx-e _%tl185284185386%_)))) + (let ((_%tl185296185418%_ (let () (declare (not safe)) - (##cdr _%e184007184126%_))) - (_%hd184008184129%_ + (##cdr _%e185294185413%_))) + (_%hd185295185416%_ (let () (declare (not safe)) - (##car _%e184007184126%_)))) + (##car _%e185294185413%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184009184131%_)) + (gx#stx-null? _%tl185296185418%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183991184083%_)) + (gx#stx-null? _%tl185278185370%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl183982184059%_)) - (let ((_%__splice190456190457%_ + (gx#stx-pair/null? _%tl185269185346%_)) + (let ((_%__splice191743191744%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl183982184059%_ + _%tl185269185346%_ '0)))) - (let ((_%tl184012184136%_ + (let ((_%tl185299185423%_ (let () (declare (not safe)) (##vector-ref - _%__splice190456190457%_ + _%__splice191743191744%_ '1))) - (_%target184010184134%_ + (_%target185297185421%_ (let () (declare (not safe)) (##vector-ref - _%__splice190456190457%_ + _%__splice191743191744%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184012184136%_)) - (letrec ((_%loop184013184139%_ - (lambda (_%hd184011184142%_ - _%bind184017184144%_) + _%tl185299185423%_)) + (letrec ((_%loop185300185426%_ + (lambda (_%hd185298185429%_ + _%bind185304185431%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184011184142%_)) - (let ((_%e184014184147%_ + _%hd185298185429%_)) + (let ((_%e185301185434%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd184011184142%_)))) - (let ((_%lp-tl184016184152%_ + (gx#stx-e _%hd185298185429%_)))) + (let ((_%lp-tl185303185439%_ (let () (declare (not safe)) - (##cdr _%e184014184147%_))) - (_%lp-hd184015184150%_ + (##cdr _%e185301185434%_))) + (_%lp-hd185302185437%_ (let () (declare (not safe)) - (##car _%e184014184147%_)))) - (_%loop184013184139%_ - _%lp-tl184016184152%_ - (cons _%lp-hd184015184150%_ _%bind184017184144%_)))) - (let ((_%bind184018184155%_ - (reverse _%bind184017184144%_))) + (##car _%e185301185434%_)))) + (_%loop185300185426%_ + _%lp-tl185303185439%_ + (cons _%lp-hd185302185437%_ _%bind185304185431%_)))) + (let ((_%bind185305185442%_ + (reverse _%bind185304185431%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183979184051%_)) - (let ((_%e184019184158%_ + (gx#stx-pair? _%tl185266185338%_)) + (let ((_%e185306185445%_ (let () (declare (not safe)) - (gx#stx-e _%tl183979184051%_)))) - (let ((_%tl184021184163%_ + (gx#stx-e _%tl185266185338%_)))) + (let ((_%tl185308185450%_ (let () (declare (not safe)) - (##cdr _%e184019184158%_))) - (_%hd184020184161%_ + (##cdr _%e185306185445%_))) + (_%hd185307185448%_ (let () (declare (not safe)) - (##car _%e184019184158%_)))) + (##car _%e185306185445%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184021184163%_)) - (_%__kont190452190453%_ - _%hd184020184161%_ - _%bind184018184155%_ - _%hd184008184129%_ - _%id184006184123%_ - _%hd183987184073%_) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_))))))) + (gx#stx-null? _%tl185308185450%_)) + (_%__kont191739191740%_ + _%hd185307185448%_ + _%bind185305185442%_ + _%hd185295185416%_ + _%id185293185410%_ + _%hd185274185360%_) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184013184139%_ - _%target184010184134%_ + (_%loop185300185426%_ + _%target185297185421%_ '())) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_))))))) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184001184107%_ - _%target183998184102%_ + (_%loop185288185394%_ + _%target185285185389%_ '())))) - (_%__match190579190580%_ - (lambda (_%e183940184234%_ - _%hd183941184237%_ - _%tl183942184239%_ - _%e183943184242%_ - _%hd183944184245%_ - _%tl183945184247%_ - _%__splice190450190451%_ - _%target183946184250%_ - _%tl183948184252%_) - (letrec ((_%loop183949184255%_ - (lambda (_%hd183947184258%_ - _%expr183953184260%_ - _%id183954184262%_) + (_%__match191866191867%_ + (lambda (_%e185227185521%_ + _%hd185228185524%_ + _%tl185229185526%_ + _%e185230185529%_ + _%hd185231185532%_ + _%tl185232185534%_ + _%__splice191737191738%_ + _%target185233185537%_ + _%tl185235185539%_) + (letrec ((_%loop185236185542%_ + (lambda (_%hd185234185545%_ + _%expr185240185547%_ + _%id185241185549%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183947184258%_)) - (let ((_%e183950184265%_ + _%hd185234185545%_)) + (let ((_%e185237185552%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd183947184258%_)))) - (let ((_%lp-tl183952184270%_ - (let () (declare (not safe)) (##cdr _%e183950184265%_))) - (_%lp-hd183951184268%_ + (gx#stx-e _%hd185234185545%_)))) + (let ((_%lp-tl185239185557%_ + (let () (declare (not safe)) (##cdr _%e185237185552%_))) + (_%lp-hd185238185555%_ (let () (declare (not safe)) - (##car _%e183950184265%_)))) + (##car _%e185237185552%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd183951184268%_)) - (let ((_%e183960184273%_ + (gx#stx-pair? _%lp-hd185238185555%_)) + (let ((_%e185247185560%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd183951184268%_)))) - (let ((_%tl183962184278%_ + (gx#stx-e _%lp-hd185238185555%_)))) + (let ((_%tl185249185565%_ (let () (declare (not safe)) - (##cdr _%e183960184273%_))) - (_%hd183961184276%_ + (##cdr _%e185247185560%_))) + (_%hd185248185563%_ (let () (declare (not safe)) - (##car _%e183960184273%_)))) + (##car _%e185247185560%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183961184276%_)) - (let ((_%e183963184281%_ + (gx#stx-pair? _%hd185248185563%_)) + (let ((_%e185250185568%_ (let () (declare (not safe)) - (gx#stx-e _%hd183961184276%_)))) - (let ((_%tl183965184286%_ + (gx#stx-e _%hd185248185563%_)))) + (let ((_%tl185252185573%_ (let () (declare (not safe)) - (##cdr _%e183963184281%_))) - (_%hd183964184284%_ + (##cdr _%e185250185568%_))) + (_%hd185251185571%_ (let () (declare (not safe)) - (##car _%e183963184281%_)))) + (##car _%e185250185568%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183965184286%_)) + (gx#stx-null? _%tl185252185573%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183962184278%_)) - (let ((_%e183966184289%_ + (gx#stx-pair? _%tl185249185565%_)) + (let ((_%e185253185576%_ (let () (declare (not safe)) (gx#stx-e - _%tl183962184278%_)))) - (let ((_%tl183968184294%_ + _%tl185249185565%_)))) + (let ((_%tl185255185581%_ (let () (declare (not safe)) - (##cdr _%e183966184289%_))) - (_%hd183967184292%_ + (##cdr _%e185253185576%_))) + (_%hd185254185579%_ (let () (declare (not safe)) - (##car _%e183966184289%_)))) + (##car _%e185253185576%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183968184294%_)) - (_%loop183949184255%_ - _%lp-tl183952184270%_ - (cons _%hd183967184292%_ - _%expr183953184260%_) - (cons _%hd183964184284%_ - _%id183954184262%_)) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (let ((_%id183956184299%_ (reverse _%id183954184262%_)) - (_%expr183955184297%_ (reverse _%expr183953184260%_))) + _%tl185255185581%_)) + (_%loop185236185542%_ + _%lp-tl185239185557%_ + (cons _%hd185254185579%_ + _%expr185240185547%_) + (cons _%hd185251185571%_ + _%id185241185549%_)) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)))) + (let ((_%id185243185586%_ (reverse _%id185241185549%_)) + (_%expr185242185584%_ (reverse _%expr185240185547%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183945184247%_)) - (let ((_%e183957184302%_ + (gx#stx-pair? _%tl185232185534%_)) + (let ((_%e185244185589%_ (let () (declare (not safe)) - (gx#stx-e _%tl183945184247%_)))) - (let ((_%tl183959184307%_ + (gx#stx-e _%tl185232185534%_)))) + (let ((_%tl185246185594%_ (let () (declare (not safe)) - (##cdr _%e183957184302%_))) - (_%hd183958184305%_ + (##cdr _%e185244185589%_))) + (_%hd185245185592%_ (let () (declare (not safe)) - (##car _%e183957184302%_)))) + (##car _%e185244185589%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183959184307%_)) - (_%__kont190448190449%_ - _%hd183958184305%_ - _%expr183955184297%_ - _%id183956184299%_) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_))))))) + (gx#stx-null? _%tl185246185594%_)) + (_%__kont191735191736%_ + _%hd185245185592%_ + _%expr185242185584%_ + _%id185243185586%_) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop183949184255%_ - _%target183946184250%_ + (_%loop185236185542%_ + _%target185233185537%_ '() '())))) - (_%__match190555190556%_ - (lambda (_%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_) - (letrec ((_%loop183911184371%_ - (lambda (_%hd183909184374%_ - _%xid183915184376%_ - _%id183916184378%_) + (_%__match191842191843%_ + (lambda (_%e185189185637%_ + _%hd185190185640%_ + _%tl185191185642%_ + _%e185192185645%_ + _%hd185193185648%_ + _%tl185194185650%_ + _%__splice191733191734%_ + _%target185195185653%_ + _%tl185197185655%_) + (letrec ((_%loop185198185658%_ + (lambda (_%hd185196185661%_ + _%xid185202185663%_ + _%id185203185665%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183909184374%_)) - (let ((_%e183912184381%_ + _%hd185196185661%_)) + (let ((_%e185199185668%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd183909184374%_)))) - (let ((_%lp-tl183914184386%_ - (let () (declare (not safe)) (##cdr _%e183912184381%_))) - (_%lp-hd183913184384%_ + (gx#stx-e _%hd185196185661%_)))) + (let ((_%lp-tl185201185673%_ + (let () (declare (not safe)) (##cdr _%e185199185668%_))) + (_%lp-hd185200185671%_ (let () (declare (not safe)) - (##car _%e183912184381%_)))) + (##car _%e185199185668%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd183913184384%_)) - (let ((_%e183922184389%_ + (gx#stx-pair? _%lp-hd185200185671%_)) + (let ((_%e185209185676%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd183913184384%_)))) - (let ((_%tl183924184394%_ + (gx#stx-e _%lp-hd185200185671%_)))) + (let ((_%tl185211185681%_ (let () (declare (not safe)) - (##cdr _%e183922184389%_))) - (_%hd183923184392%_ + (##cdr _%e185209185676%_))) + (_%hd185210185679%_ (let () (declare (not safe)) - (##car _%e183922184389%_)))) + (##car _%e185209185676%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183923184392%_)) - (let ((_%e183925184397%_ + (gx#stx-pair? _%hd185210185679%_)) + (let ((_%e185212185684%_ (let () (declare (not safe)) - (gx#stx-e _%hd183923184392%_)))) - (let ((_%tl183927184402%_ + (gx#stx-e _%hd185210185679%_)))) + (let ((_%tl185214185689%_ (let () (declare (not safe)) - (##cdr _%e183925184397%_))) - (_%hd183926184400%_ + (##cdr _%e185212185684%_))) + (_%hd185213185687%_ (let () (declare (not safe)) - (##car _%e183925184397%_)))) + (##car _%e185212185684%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183927184402%_)) + (gx#stx-null? _%tl185214185689%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183924184394%_)) - (let ((_%e183928184405%_ + (gx#stx-pair? _%tl185211185681%_)) + (let ((_%e185215185692%_ (let () (declare (not safe)) (gx#stx-e - _%tl183924184394%_)))) - (let ((_%tl183930184410%_ + _%tl185211185681%_)))) + (let ((_%tl185217185697%_ (let () (declare (not safe)) - (##cdr _%e183928184405%_))) - (_%hd183929184408%_ + (##cdr _%e185215185692%_))) + (_%hd185216185695%_ (let () (declare (not safe)) - (##car _%e183928184405%_)))) + (##car _%e185215185692%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183929184408%_)) - (let ((_%e183931184413%_ + _%hd185216185695%_)) + (let ((_%e185218185700%_ (let () (declare (not safe)) (gx#stx-e - _%hd183929184408%_)))) - (let ((_%tl183933184418%_ + _%hd185216185695%_)))) + (let ((_%tl185220185705%_ (let () (declare (not safe)) - (##cdr _%e183931184413%_))) - (_%hd183932184416%_ + (##cdr _%e185218185700%_))) + (_%hd185219185703%_ (let () (declare (not safe)) - (##car _%e183931184413%_)))) + (##car _%e185218185700%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183932184416%_)) + _%hd185219185703%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd183932184416%_)) + (gx#stx-eq? '%#ref _%hd185219185703%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183933184418%_)) - (let ((_%e183934184421%_ + (gx#stx-pair? _%tl185220185705%_)) + (let ((_%e185221185708%_ (let () (declare (not safe)) - (gx#stx-e _%tl183933184418%_)))) - (let ((_%tl183936184426%_ + (gx#stx-e _%tl185220185705%_)))) + (let ((_%tl185223185713%_ (let () (declare (not safe)) - (##cdr _%e183934184421%_))) - (_%hd183935184424%_ + (##cdr _%e185221185708%_))) + (_%hd185222185711%_ (let () (declare (not safe)) - (##car _%e183934184421%_)))) + (##car _%e185221185708%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183936184426%_)) + (gx#stx-null? _%tl185223185713%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183930184410%_)) - (_%loop183911184371%_ - _%lp-tl183914184386%_ - (cons _%hd183935184424%_ - _%xid183915184376%_) - (cons _%hd183926184400%_ - _%id183916184378%_)) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)))) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)))) + (gx#stx-null? _%tl185217185697%_)) + (_%loop185198185658%_ + _%lp-tl185201185673%_ + (cons _%hd185222185711%_ + _%xid185202185663%_) + (cons _%hd185213185687%_ + _%id185203185665%_)) + (_%__match191866191867%_ + _%e185189185637%_ + _%hd185190185640%_ + _%tl185191185642%_ + _%e185192185645%_ + _%hd185193185648%_ + _%tl185194185650%_ + _%__splice191733191734%_ + _%target185195185653%_ + _%tl185197185655%_)) + (_%__match191866191867%_ + _%e185189185637%_ + _%hd185190185640%_ + _%tl185191185642%_ + _%e185192185645%_ + _%hd185193185648%_ + _%tl185194185650%_ + _%__splice191733191734%_ + _%target185195185653%_ + _%tl185197185655%_)))) + (_%__match191866191867%_ + _%e185189185637%_ + _%hd185190185640%_ + _%tl185191185642%_ + _%e185192185645%_ + _%hd185193185648%_ + _%tl185194185650%_ + _%__splice191733191734%_ + _%target185195185653%_ + _%tl185197185655%_)) + (_%__match191866191867%_ + _%e185189185637%_ + _%hd185190185640%_ + _%tl185191185642%_ + _%e185192185645%_ + _%hd185193185648%_ + _%tl185194185650%_ + _%__splice191733191734%_ + _%target185195185653%_ + _%tl185197185655%_)) + (_%__match191866191867%_ + _%e185189185637%_ + _%hd185190185640%_ + _%tl185191185642%_ + _%e185192185645%_ + _%hd185193185648%_ + _%tl185194185650%_ + _%__splice191733191734%_ + _%target185195185653%_ + _%tl185197185655%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)))) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)))) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)))) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)))) - (let ((_%id183918184431%_ (reverse _%id183916184378%_)) - (_%xid183917184429%_ (reverse _%xid183915184376%_))) + (_%__match191866191867%_ + _%e185189185637%_ + _%hd185190185640%_ + _%tl185191185642%_ + _%e185192185645%_ + _%hd185193185648%_ + _%tl185194185650%_ + _%__splice191733191734%_ + _%target185195185653%_ + _%tl185197185655%_)))) + (_%__match191866191867%_ + _%e185189185637%_ + _%hd185190185640%_ + _%tl185191185642%_ + _%e185192185645%_ + _%hd185193185648%_ + _%tl185194185650%_ + _%__splice191733191734%_ + _%target185195185653%_ + _%tl185197185655%_)) + (_%__match191866191867%_ + _%e185189185637%_ + _%hd185190185640%_ + _%tl185191185642%_ + _%e185192185645%_ + _%hd185193185648%_ + _%tl185194185650%_ + _%__splice191733191734%_ + _%target185195185653%_ + _%tl185197185655%_)))) + (_%__match191866191867%_ + _%e185189185637%_ + _%hd185190185640%_ + _%tl185191185642%_ + _%e185192185645%_ + _%hd185193185648%_ + _%tl185194185650%_ + _%__splice191733191734%_ + _%target185195185653%_ + _%tl185197185655%_)))) + (_%__match191866191867%_ + _%e185189185637%_ + _%hd185190185640%_ + _%tl185191185642%_ + _%e185192185645%_ + _%hd185193185648%_ + _%tl185194185650%_ + _%__splice191733191734%_ + _%target185195185653%_ + _%tl185197185655%_)))) + (let ((_%id185205185718%_ (reverse _%id185203185665%_)) + (_%xid185204185716%_ (reverse _%xid185202185663%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183907184363%_)) - (let ((_%e183919184434%_ + (gx#stx-pair? _%tl185194185650%_)) + (let ((_%e185206185721%_ (let () (declare (not safe)) - (gx#stx-e _%tl183907184363%_)))) - (let ((_%tl183921184439%_ + (gx#stx-e _%tl185194185650%_)))) + (let ((_%tl185208185726%_ (let () (declare (not safe)) - (##cdr _%e183919184434%_))) - (_%hd183920184437%_ + (##cdr _%e185206185721%_))) + (_%hd185207185724%_ (let () (declare (not safe)) - (##car _%e183919184434%_)))) + (##car _%e185206185721%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183921184439%_)) - (_%__kont190444190445%_ - _%hd183920184437%_ - _%xid183917184429%_ - _%id183918184431%_) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_)))) - (_%__match190579190580%_ - _%e183902184350%_ - _%hd183903184353%_ - _%tl183904184355%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_))))))) + (gx#stx-null? _%tl185208185726%_)) + (_%__kont191731191732%_ + _%hd185207185724%_ + _%xid185204185716%_ + _%id185205185718%_) + (_%__match191866191867%_ + _%e185189185637%_ + _%hd185190185640%_ + _%tl185191185642%_ + _%e185192185645%_ + _%hd185193185648%_ + _%tl185194185650%_ + _%__splice191733191734%_ + _%target185195185653%_ + _%tl185197185655%_)))) + (_%__match191866191867%_ + _%e185189185637%_ + _%hd185190185640%_ + _%tl185191185642%_ + _%e185192185645%_ + _%hd185193185648%_ + _%tl185194185650%_ + _%__splice191733191734%_ + _%target185195185653%_ + _%tl185197185655%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop183911184371%_ - _%target183908184366%_ + (_%loop185198185658%_ + _%target185195185653%_ '() '())))) - (_%__match190501190502%_ - (lambda (_%e183857184542%_ - _%hd183858184545%_ - _%tl183859184547%_ - _%e183860184550%_ - _%hd183861184553%_ - _%tl183862184555%_ - _%e183863184558%_ - _%hd183864184561%_ - _%tl183865184563%_ - _%e183866184566%_ - _%hd183867184569%_ - _%tl183868184571%_ - _%__splice190440190441%_ - _%target183869184574%_ - _%tl183871184576%_) - (letrec ((_%loop183872184579%_ - (lambda (_%hd183870184582%_ - _%id183876184584%_) + (_%__match191788191789%_ + (lambda (_%e185144185829%_ + _%hd185145185832%_ + _%tl185146185834%_ + _%e185147185837%_ + _%hd185148185840%_ + _%tl185149185842%_ + _%e185150185845%_ + _%hd185151185848%_ + _%tl185152185850%_ + _%e185153185853%_ + _%hd185154185856%_ + _%tl185155185858%_ + _%__splice191727191728%_ + _%target185156185861%_ + _%tl185158185863%_) + (letrec ((_%loop185159185866%_ + (lambda (_%hd185157185869%_ + _%id185163185871%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183870184582%_)) - (let ((_%e183873184587%_ + _%hd185157185869%_)) + (let ((_%e185160185874%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd183870184582%_)))) - (let ((_%lp-tl183875184592%_ - (let () (declare (not safe)) (##cdr _%e183873184587%_))) - (_%lp-hd183874184590%_ + (gx#stx-e _%hd185157185869%_)))) + (let ((_%lp-tl185162185879%_ + (let () (declare (not safe)) (##cdr _%e185160185874%_))) + (_%lp-hd185161185877%_ (let () (declare (not safe)) - (##car _%e183873184587%_)))) + (##car _%e185160185874%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd183874184590%_)) - (let ((_%e183878184595%_ + (gx#stx-pair? _%lp-hd185161185877%_)) + (let ((_%e185165185882%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd183874184590%_)))) - (let ((_%tl183880184600%_ + (gx#stx-e _%lp-hd185161185877%_)))) + (let ((_%tl185167185887%_ (let () (declare (not safe)) - (##cdr _%e183878184595%_))) - (_%hd183879184598%_ + (##cdr _%e185165185882%_))) + (_%hd185166185885%_ (let () (declare (not safe)) - (##car _%e183878184595%_)))) + (##car _%e185165185882%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183879184598%_)) + (gx#identifier? _%hd185166185885%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183879184598%_)) + (gx#stx-eq? '%#ref _%hd185166185885%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183880184600%_)) - (let ((_%e183881184603%_ + (gx#stx-pair? _%tl185167185887%_)) + (let ((_%e185168185890%_ (let () (declare (not safe)) - (gx#stx-e _%tl183880184600%_)))) - (let ((_%tl183883184608%_ + (gx#stx-e _%tl185167185887%_)))) + (let ((_%tl185170185895%_ (let () (declare (not safe)) - (##cdr _%e183881184603%_))) - (_%hd183882184606%_ + (##cdr _%e185168185890%_))) + (_%hd185169185893%_ (let () (declare (not safe)) - (##car _%e183881184603%_)))) + (##car _%e185168185890%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183883184608%_)) - (_%loop183872184579%_ - _%lp-tl183875184592%_ - (cons _%hd183882184606%_ - _%id183876184584%_)) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (let ((_%id183877184611%_ (reverse _%id183876184584%_))) - (_%__kont190438190439%_ - _%id183877184611%_ - _%hd183867184569%_)))))) + _%tl185170185895%_)) + (_%loop185159185866%_ + _%lp-tl185162185879%_ + (cons _%hd185169185893%_ + _%id185163185871%_)) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)))) + (let ((_%id185164185898%_ (reverse _%id185163185871%_))) + (_%__kont191725191726%_ + _%id185164185898%_ + _%hd185154185856%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop183872184579%_ - _%target183869184574%_ + (_%loop185159185866%_ + _%target185156185861%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190436190437%_)) - (let ((_%e183857184542%_ + (gx#stx-pair? _%__stx191723191724%_)) + (let ((_%e185144185829%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190436190437%_)))) - (let ((_%tl183859184547%_ + (gx#stx-e _%__stx191723191724%_)))) + (let ((_%tl185146185834%_ (let () (declare (not safe)) - (##cdr _%e183857184542%_))) - (_%hd183858184545%_ + (##cdr _%e185144185829%_))) + (_%hd185145185832%_ (let () (declare (not safe)) - (##car _%e183857184542%_)))) + (##car _%e185144185829%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183858184545%_)) + _%hd185145185832%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd183858184545%_)) + _%hd185145185832%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183859184547%_)) - (let ((_%e183860184550%_ + _%tl185146185834%_)) + (let ((_%e185147185837%_ (let () (declare (not safe)) (gx#stx-e - _%tl183859184547%_)))) - (let ((_%tl183862184555%_ + _%tl185146185834%_)))) + (let ((_%tl185149185842%_ (let () (declare (not safe)) - (##cdr _%e183860184550%_))) - (_%hd183861184553%_ + (##cdr _%e185147185837%_))) + (_%hd185148185840%_ (let () (declare (not safe)) - (##car _%e183860184550%_)))) + (##car _%e185147185837%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183861184553%_)) - (let ((_%e183863184558%_ + _%hd185148185840%_)) + (let ((_%e185150185845%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd183861184553%_)))) - (let ((_%tl183865184563%_ + (gx#stx-e _%hd185148185840%_)))) + (let ((_%tl185152185850%_ (let () (declare (not safe)) - (##cdr _%e183863184558%_))) - (_%hd183864184561%_ + (##cdr _%e185150185845%_))) + (_%hd185151185848%_ (let () (declare (not safe)) - (##car _%e183863184558%_)))) + (##car _%e185150185845%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183864184561%_)) + (gx#identifier? _%hd185151185848%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183864184561%_)) + (gx#stx-eq? '%#ref _%hd185151185848%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183865184563%_)) - (let ((_%e183866184566%_ + (gx#stx-pair? _%tl185152185850%_)) + (let ((_%e185153185853%_ (let () (declare (not safe)) - (gx#stx-e _%tl183865184563%_)))) - (let ((_%tl183868184571%_ + (gx#stx-e _%tl185152185850%_)))) + (let ((_%tl185155185858%_ (let () (declare (not safe)) - (##cdr _%e183866184566%_))) - (_%hd183867184569%_ + (##cdr _%e185153185853%_))) + (_%hd185154185856%_ (let () (declare (not safe)) - (##car _%e183866184566%_)))) + (##car _%e185153185853%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183868184571%_)) + (gx#stx-null? _%tl185155185858%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl183862184555%_)) - (let ((_%__splice190440190441%_ + _%tl185149185842%_)) + (let ((_%__splice191727191728%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl183862184555%_ + _%tl185149185842%_ '0)))) - (let ((_%tl183871184576%_ + (let ((_%tl185158185863%_ (let () (declare (not safe)) (##vector-ref - _%__splice190440190441%_ + _%__splice191727191728%_ '1))) - (_%target183869184574%_ + (_%target185156185861%_ (let () (declare (not safe)) (##vector-ref - _%__splice190440190441%_ + _%__splice191727191728%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183871184576%_)) - (_%__match190501190502%_ - _%e183857184542%_ - _%hd183858184545%_ - _%tl183859184547%_ - _%e183860184550%_ - _%hd183861184553%_ - _%tl183862184555%_ - _%e183863184558%_ - _%hd183864184561%_ - _%tl183865184563%_ - _%e183866184566%_ - _%hd183867184569%_ - _%tl183868184571%_ - _%__splice190440190441%_ - _%target183869184574%_ - _%tl183871184576%_) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) + _%tl185158185863%_)) + (_%__match191788191789%_ + _%e185144185829%_ + _%hd185145185832%_ + _%tl185146185834%_ + _%e185147185837%_ + _%hd185148185840%_ + _%tl185149185842%_ + _%e185150185845%_ + _%hd185151185848%_ + _%tl185152185850%_ + _%e185153185853%_ + _%hd185154185856%_ + _%tl185155185858%_ + _%__splice191727191728%_ + _%target185156185861%_ + _%tl185158185863%_) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190458190459%_)) + (_%__kont191745191746%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd183858184545%_)) + _%hd185145185832%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183859184547%_)) - (let ((_%e183890184488%_ + _%tl185146185834%_)) + (let ((_%e185177185775%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl183859184547%_)))) - (let ((_%tl183892184493%_ - (let () (declare (not safe)) (##cdr _%e183890184488%_))) - (_%hd183891184491%_ + (gx#stx-e _%tl185146185834%_)))) + (let ((_%tl185179185780%_ + (let () (declare (not safe)) (##cdr _%e185177185775%_))) + (_%hd185178185778%_ (let () (declare (not safe)) - (##car _%e183890184488%_)))) + (##car _%e185177185775%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183892184493%_)) - (let ((_%e183893184496%_ + (gx#stx-pair? _%tl185179185780%_)) + (let ((_%e185180185783%_ (let () (declare (not safe)) - (gx#stx-e _%tl183892184493%_)))) - (let ((_%tl183895184501%_ + (gx#stx-e _%tl185179185780%_)))) + (let ((_%tl185182185788%_ (let () (declare (not safe)) - (##cdr _%e183893184496%_))) - (_%hd183894184499%_ + (##cdr _%e185180185783%_))) + (_%hd185181185786%_ (let () (declare (not safe)) - (##car _%e183893184496%_)))) + (##car _%e185180185783%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183895184501%_)) - (let ((_%e183896184504%_ + (gx#stx-pair? _%tl185182185788%_)) + (let ((_%e185183185791%_ (let () (declare (not safe)) - (gx#stx-e _%tl183895184501%_)))) - (let ((_%tl183898184509%_ + (gx#stx-e _%tl185182185788%_)))) + (let ((_%tl185185185796%_ (let () (declare (not safe)) - (##cdr _%e183896184504%_))) - (_%hd183897184507%_ + (##cdr _%e185183185791%_))) + (_%hd185184185794%_ (let () (declare (not safe)) - (##car _%e183896184504%_)))) + (##car _%e185183185791%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183898184509%_)) - (_%__kont190442190443%_ - _%hd183897184507%_ - _%hd183894184499%_ - _%hd183891184491%_) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) + (gx#stx-null? _%tl185185185796%_)) + (_%__kont191729191730%_ + _%hd185184185794%_ + _%hd185181185786%_ + _%hd185178185778%_) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd183858184545%_)) + _%hd185145185832%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183859184547%_)) - (let ((_%e183905184358%_ + _%tl185146185834%_)) + (let ((_%e185192185645%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl183859184547%_)))) - (let ((_%tl183907184363%_ + (gx#stx-e _%tl185146185834%_)))) + (let ((_%tl185194185650%_ (let () (declare (not safe)) - (##cdr _%e183905184358%_))) - (_%hd183906184361%_ + (##cdr _%e185192185645%_))) + (_%hd185193185648%_ (let () (declare (not safe)) - (##car _%e183905184358%_)))) + (##car _%e185192185645%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd183906184361%_)) - (let ((_%__splice190446190447%_ + (gx#stx-pair/null? _%hd185193185648%_)) + (let ((_%__splice191733191734%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd183906184361%_ + _%hd185193185648%_ '0)))) - (let ((_%tl183910184368%_ + (let ((_%tl185197185655%_ (let () (declare (not safe)) (##vector-ref - _%__splice190446190447%_ + _%__splice191733191734%_ '1))) - (_%target183908184366%_ + (_%target185195185653%_ (let () (declare (not safe)) (##vector-ref - _%__splice190446190447%_ + _%__splice191733191734%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183910184368%_)) - (_%__match190555190556%_ - _%e183857184542%_ - _%hd183858184545%_ - _%tl183859184547%_ - _%e183905184358%_ - _%hd183906184361%_ - _%tl183907184363%_ - _%__splice190446190447%_ - _%target183908184366%_ - _%tl183910184368%_) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) + (gx#stx-null? _%tl185197185655%_)) + (_%__match191842191843%_ + _%e185144185829%_ + _%hd185145185832%_ + _%tl185146185834%_ + _%e185192185645%_ + _%hd185193185648%_ + _%tl185194185650%_ + _%__splice191733191734%_ + _%target185195185653%_ + _%tl185197185655%_) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#letrec-values _%hd183858184545%_)) + (gx#stx-eq? '%#letrec-values _%hd185145185832%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183859184547%_)) - (let ((_%e183977184046%_ + (gx#stx-pair? _%tl185146185834%_)) + (let ((_%e185264185333%_ (let () (declare (not safe)) - (gx#stx-e _%tl183859184547%_)))) - (let ((_%tl183979184051%_ + (gx#stx-e _%tl185146185834%_)))) + (let ((_%tl185266185338%_ (let () (declare (not safe)) - (##cdr _%e183977184046%_))) - (_%hd183978184049%_ + (##cdr _%e185264185333%_))) + (_%hd185265185336%_ (let () (declare (not safe)) - (##car _%e183977184046%_)))) + (##car _%e185264185333%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183978184049%_)) - (let ((_%e183980184054%_ + (gx#stx-pair? _%hd185265185336%_)) + (let ((_%e185267185341%_ (let () (declare (not safe)) - (gx#stx-e _%hd183978184049%_)))) - (let ((_%tl183982184059%_ + (gx#stx-e _%hd185265185336%_)))) + (let ((_%tl185269185346%_ (let () (declare (not safe)) - (##cdr _%e183980184054%_))) - (_%hd183981184057%_ + (##cdr _%e185267185341%_))) + (_%hd185268185344%_ (let () (declare (not safe)) - (##car _%e183980184054%_)))) + (##car _%e185267185341%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183981184057%_)) - (let ((_%e183983184062%_ + (gx#stx-pair? _%hd185268185344%_)) + (let ((_%e185270185349%_ (let () (declare (not safe)) - (gx#stx-e _%hd183981184057%_)))) - (let ((_%tl183985184067%_ + (gx#stx-e _%hd185268185344%_)))) + (let ((_%tl185272185354%_ (let () (declare (not safe)) - (##cdr _%e183983184062%_))) - (_%hd183984184065%_ + (##cdr _%e185270185349%_))) + (_%hd185271185352%_ (let () (declare (not safe)) - (##car _%e183983184062%_)))) + (##car _%e185270185349%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183984184065%_)) - (let ((_%e183986184070%_ + _%hd185271185352%_)) + (let ((_%e185273185357%_ (let () (declare (not safe)) (gx#stx-e - _%hd183984184065%_)))) - (let ((_%tl183988184075%_ + _%hd185271185352%_)))) + (let ((_%tl185275185362%_ (let () (declare (not safe)) - (##cdr _%e183986184070%_))) - (_%hd183987184073%_ + (##cdr _%e185273185357%_))) + (_%hd185274185360%_ (let () (declare (not safe)) - (##car _%e183986184070%_)))) + (##car _%e185273185357%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183988184075%_)) + _%tl185275185362%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183985184067%_)) - (let ((_%e183989184078%_ + _%tl185272185354%_)) + (let ((_%e185276185365%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl183985184067%_)))) - (let ((_%tl183991184083%_ + (gx#stx-e _%tl185272185354%_)))) + (let ((_%tl185278185370%_ (let () (declare (not safe)) - (##cdr _%e183989184078%_))) - (_%hd183990184081%_ + (##cdr _%e185276185365%_))) + (_%hd185277185368%_ (let () (declare (not safe)) - (##car _%e183989184078%_)))) + (##car _%e185276185365%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183990184081%_)) - (let ((_%e183992184086%_ + (gx#stx-pair? _%hd185277185368%_)) + (let ((_%e185279185373%_ (let () (declare (not safe)) - (gx#stx-e _%hd183990184081%_)))) - (let ((_%tl183994184091%_ + (gx#stx-e _%hd185277185368%_)))) + (let ((_%tl185281185378%_ (let () (declare (not safe)) - (##cdr _%e183992184086%_))) - (_%hd183993184089%_ + (##cdr _%e185279185373%_))) + (_%hd185280185376%_ (let () (declare (not safe)) - (##car _%e183992184086%_)))) + (##car _%e185279185373%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183993184089%_)) + (gx#identifier? _%hd185280185376%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd183993184089%_)) + _%hd185280185376%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183994184091%_)) - (let ((_%e183995184094%_ + (gx#stx-pair? _%tl185281185378%_)) + (let ((_%e185282185381%_ (let () (declare (not safe)) (gx#stx-e - _%tl183994184091%_)))) - (let ((_%tl183997184099%_ + _%tl185281185378%_)))) + (let ((_%tl185284185386%_ (let () (declare (not safe)) - (##cdr _%e183995184094%_))) - (_%hd183996184097%_ + (##cdr _%e185282185381%_))) + (_%hd185283185384%_ (let () (declare (not safe)) - (##car _%e183995184094%_)))) + (##car _%e185282185381%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd183996184097%_)) - (let ((_%__splice190454190455%_ + _%hd185283185384%_)) + (let ((_%__splice191741191742%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd183996184097%_ + _%hd185283185384%_ '0)))) - (let ((_%tl184000184104%_ + (let ((_%tl185287185391%_ (let () (declare (not safe)) (##vector-ref - _%__splice190454190455%_ + _%__splice191741191742%_ '1))) - (_%target183998184102%_ + (_%target185285185389%_ (let () (declare (not safe)) (##vector-ref - _%__splice190454190455%_ + _%__splice191741191742%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184000184104%_)) - (_%__match190645190646%_ - _%e183857184542%_ - _%hd183858184545%_ - _%tl183859184547%_ - _%e183977184046%_ - _%hd183978184049%_ - _%tl183979184051%_ - _%e183980184054%_ - _%hd183981184057%_ - _%tl183982184059%_ - _%e183983184062%_ - _%hd183984184065%_ - _%tl183985184067%_ - _%e183986184070%_ - _%hd183987184073%_ - _%tl183988184075%_ - _%e183989184078%_ - _%hd183990184081%_ - _%tl183991184083%_ - _%e183992184086%_ - _%hd183993184089%_ - _%tl183994184091%_ - _%e183995184094%_ - _%hd183996184097%_ - _%tl183997184099%_ - _%__splice190454190455%_ - _%target183998184102%_ - _%tl184000184104%_) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) - (_%__kont190458190459%_)))) + _%tl185287185391%_)) + (_%__match191932191933%_ + _%e185144185829%_ + _%hd185145185832%_ + _%tl185146185834%_ + _%e185264185333%_ + _%hd185265185336%_ + _%tl185266185338%_ + _%e185267185341%_ + _%hd185268185344%_ + _%tl185269185346%_ + _%e185270185349%_ + _%hd185271185352%_ + _%tl185272185354%_ + _%e185273185357%_ + _%hd185274185360%_ + _%tl185275185362%_ + _%e185276185365%_ + _%hd185277185368%_ + _%tl185278185370%_ + _%e185279185373%_ + _%hd185280185376%_ + _%tl185281185378%_ + _%e185282185381%_ + _%hd185283185384%_ + _%tl185284185386%_ + _%__splice191741191742%_ + _%target185285185389%_ + _%tl185287185391%_) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)) + (_%__kont191745191746%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)))) - (_%__kont190458190459%_)) - (_%__kont190458190459%_))))) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)))) + (_%__kont191745191746%_)) + (_%__kont191745191746%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190458190459%_)))) - (_%__kont190458190459%_))))))))) - (_%optimize-f__0__189137189138%_ - (lambda (_%expr184752%_) - (let ((_%test184754%_ '#f)) - (_%optimize-f__189135189136%_ - _%expr184752%_ - _%test184754%_)))) - (_%optimize-f181780%_ - (lambda _g192296_ - (let ((_g192295_ + (_%__kont191745191746%_)))) + (_%__kont191745191746%_))))))))) + (_%optimize-f__0__190424190425%_ + (lambda (_%expr186039%_) + (let ((_%test186041%_ '#f)) + (_%optimize-f__190422190423%_ + _%expr186039%_ + _%test186041%_)))) + (_%optimize-f183067%_ + (lambda _g193583_ + (let ((_g193582_ (let () (declare (not safe)) - (##length _g192296_)))) - (cond ((let () (declare (not safe)) (##fx= _g192295_ 1)) - (apply _%optimize-f__0__189137189138%_ - _g192296_)) - ((let () (declare (not safe)) (##fx= _g192295_ 2)) - (apply _%optimize-f__189135189136%_ _g192296_)) + (##length _g193583_)))) + (cond ((let () (declare (not safe)) (##fx= _g193582_ 1)) + (apply _%optimize-f__0__190424190425%_ + _g193583_)) + ((let () (declare (not safe)) (##fx= _g193582_ 2)) + (apply _%optimize-f__190422190423%_ _g193583_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g192296_)))))) - (_%assert-e181781%_ - (lambda (_%expr182781%_) - (let* ((_%sexpr182783%_ - (gxc#apply-generate-runtime-repr _%expr182781%_)) - (_%$e182785%_ - (assoc _%sexpr182783%_ _%env-assert181763%_))) - (if _%$e182785%_ - (cdr _%$e182785%_) - (let _%assert182789%_ ((_%expr182791%_ - _%expr182781%_)) - (let* ((_%__stx190742190743%_ _%expr182791%_) - (_%g182799182978%_ + _g193583_)))))) + (_%assert-e183068%_ + (lambda (_%expr184068%_) + (let* ((_%sexpr184070%_ + (gxc#apply-generate-runtime-repr _%expr184068%_)) + (_%$e184072%_ + (assoc _%sexpr184070%_ _%env-assert183050%_))) + (if _%$e184072%_ + (cdr _%$e184072%_) + (let _%assert184076%_ ((_%expr184078%_ + _%expr184068%_)) + (let* ((_%__stx192029192030%_ _%expr184078%_) + (_%g184086184265%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190742190743%_))))) - (let ((_%__kont190744190745%_ - (lambda (_%L183811%_ _%L183812%_) - (let ((_%$e183834%_ - (_%predicate-type181768%_ - _%L183812%_))) - (if _%$e183834%_ - ((lambda (_%t183837%_) - (_%assert-type181782%_ - _%L183811%_ - _%t183837%_)) - _%$e183834%_) + _%__stx192029192030%_))))) + (let ((_%__kont192031192032%_ + (lambda (_%L185098%_ _%L185099%_) + (let ((_%$e185121%_ + (_%predicate-type183055%_ + _%L185099%_))) + (if _%$e185121%_ + ((lambda (_%t185124%_) + (_%assert-type183069%_ + _%L185098%_ + _%t185124%_)) + _%$e185121%_) '#!void)))) - (_%__kont190746190747%_ - (lambda (_%L183503%_ - _%L183504%_ - _%L183505%_) - (let ((_%$e183530%_ + (_%__kont192033192034%_ + (lambda (_%L184790%_ + _%L184791%_ + _%L184792%_) + (let ((_%$e184817%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L183505%_)))) - (if (or (eq? '##fx= _%$e183530%_) - (eq? 'fx= _%$e183530%_)) - (let* ((_%__stx190648190649%_ - _%L183504%_) - (_%g183537183566%_ + _%L184792%_)))) + (if (or (eq? '##fx= _%$e184817%_) + (eq? 'fx= _%$e184817%_)) + (let* ((_%__stx191935191936%_ + _%L184791%_) + (_%g184824184853%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190648190649%_))))) - (let ((_%__kont190650190651%_ - (lambda (_%L183634%_ - _%L183635%_) - (let ((_%$e183660%_ - (_%countf-symbol181770%_ + _%__stx191935191936%_))))) + (let ((_%__kont191937191938%_ + (lambda (_%L184921%_ + _%L184922%_) + (let ((_%$e184947%_ + (_%countf-symbol183057%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L183635%_))) - (if _%$e183660%_ - ((lambda (_%sym183663%_) - (_%assert-count181783%_ - _%L183634%_ - _%sym183663%_ + _%L184922%_))) + (if _%$e184947%_ + ((lambda (_%sym184950%_) + (_%assert-count183070%_ + _%L184921%_ + _%sym184950%_ (let () (declare (not safe)) - (gx#stx-e _%L183503%_)))) - _%$e183660%_) + (gx#stx-e _%L184790%_)))) + _%$e184947%_) '#!void)))) - (_%__kont190652190653%_ (lambda () '#!void))) + (_%__kont191939191940%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx190648190649%_)) - (let ((_%e183541183578%_ + _%__stx191935191936%_)) + (let ((_%e184828184865%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx190648190649%_)))) - (let ((_%tl183543183583%_ - (let () (declare (not safe)) (##cdr _%e183541183578%_))) - (_%hd183542183581%_ + (gx#stx-e _%__stx191935191936%_)))) + (let ((_%tl184830184870%_ + (let () (declare (not safe)) (##cdr _%e184828184865%_))) + (_%hd184829184868%_ (let () (declare (not safe)) - (##car _%e183541183578%_)))) + (##car _%e184828184865%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183542183581%_)) + (gx#identifier? _%hd184829184868%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd183542183581%_)) + (gx#stx-eq? '%#call _%hd184829184868%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183543183583%_)) - (let ((_%e183544183586%_ + (gx#stx-pair? _%tl184830184870%_)) + (let ((_%e184831184873%_ (let () (declare (not safe)) - (gx#stx-e _%tl183543183583%_)))) - (let ((_%tl183546183591%_ + (gx#stx-e _%tl184830184870%_)))) + (let ((_%tl184833184878%_ (let () (declare (not safe)) - (##cdr _%e183544183586%_))) - (_%hd183545183589%_ + (##cdr _%e184831184873%_))) + (_%hd184832184876%_ (let () (declare (not safe)) - (##car _%e183544183586%_)))) + (##car _%e184831184873%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183545183589%_)) - (let ((_%e183547183594%_ + (gx#stx-pair? _%hd184832184876%_)) + (let ((_%e184834184881%_ (let () (declare (not safe)) - (gx#stx-e _%hd183545183589%_)))) - (let ((_%tl183549183599%_ + (gx#stx-e _%hd184832184876%_)))) + (let ((_%tl184836184886%_ (let () (declare (not safe)) - (##cdr _%e183547183594%_))) - (_%hd183548183597%_ + (##cdr _%e184834184881%_))) + (_%hd184835184884%_ (let () (declare (not safe)) - (##car _%e183547183594%_)))) + (##car _%e184834184881%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183548183597%_)) + _%hd184835184884%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd183548183597%_)) + _%hd184835184884%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183549183599%_)) - (let ((_%e183550183602%_ + _%tl184836184886%_)) + (let ((_%e184837184889%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl183549183599%_)))) - (let ((_%tl183552183607%_ - (let () (declare (not safe)) (##cdr _%e183550183602%_))) - (_%hd183551183605%_ + (gx#stx-e _%tl184836184886%_)))) + (let ((_%tl184839184894%_ + (let () (declare (not safe)) (##cdr _%e184837184889%_))) + (_%hd184838184892%_ (let () (declare (not safe)) - (##car _%e183550183602%_)))) + (##car _%e184837184889%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183552183607%_)) + (gx#stx-null? _%tl184839184894%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183546183591%_)) - (let ((_%e183553183610%_ + (gx#stx-pair? _%tl184833184878%_)) + (let ((_%e184840184897%_ (let () (declare (not safe)) - (gx#stx-e _%tl183546183591%_)))) - (let ((_%tl183555183615%_ + (gx#stx-e _%tl184833184878%_)))) + (let ((_%tl184842184902%_ (let () (declare (not safe)) - (##cdr _%e183553183610%_))) - (_%hd183554183613%_ + (##cdr _%e184840184897%_))) + (_%hd184841184900%_ (let () (declare (not safe)) - (##car _%e183553183610%_)))) + (##car _%e184840184897%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183554183613%_)) - (let ((_%e183556183618%_ + (gx#stx-pair? _%hd184841184900%_)) + (let ((_%e184843184905%_ (let () (declare (not safe)) - (gx#stx-e _%hd183554183613%_)))) - (let ((_%tl183558183623%_ + (gx#stx-e _%hd184841184900%_)))) + (let ((_%tl184845184910%_ (let () (declare (not safe)) - (##cdr _%e183556183618%_))) - (_%hd183557183621%_ + (##cdr _%e184843184905%_))) + (_%hd184844184908%_ (let () (declare (not safe)) - (##car _%e183556183618%_)))) + (##car _%e184843184905%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183557183621%_)) + _%hd184844184908%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd183557183621%_)) + _%hd184844184908%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183558183623%_)) - (let ((_%e183559183626%_ + _%tl184845184910%_)) + (let ((_%e184846184913%_ (let () (declare (not safe)) (gx#stx-e - _%tl183558183623%_)))) - (let ((_%tl183561183631%_ + _%tl184845184910%_)))) + (let ((_%tl184848184918%_ (let () (declare (not safe)) - (##cdr _%e183559183626%_))) - (_%hd183560183629%_ + (##cdr _%e184846184913%_))) + (_%hd184847184916%_ (let () (declare (not safe)) - (##car _%e183559183626%_)))) + (##car _%e184846184913%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183561183631%_)) + _%tl184848184918%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl183555183615%_)) - (_%__kont190650190651%_ - _%hd183560183629%_ - _%hd183551183605%_) - (_%__kont190652190653%_)) - (_%__kont190652190653%_)))) + (gx#stx-null? _%tl184842184902%_)) + (_%__kont191937191938%_ + _%hd184847184916%_ + _%hd184838184892%_) + (_%__kont191939191940%_)) + (_%__kont191939191940%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190652190653%_)) - (_%__kont190652190653%_)) - (_%__kont190652190653%_)))) - (_%__kont190652190653%_)))) - (_%__kont190652190653%_)) - (_%__kont190652190653%_)))) - (_%__kont190652190653%_)) + (_%__kont191939191940%_)) + (_%__kont191939191940%_)) + (_%__kont191939191940%_)))) + (_%__kont191939191940%_)))) + (_%__kont191939191940%_)) + (_%__kont191939191940%_)))) + (_%__kont191939191940%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190652190653%_)) - (_%__kont190652190653%_)))) - (_%__kont190652190653%_)))) - (_%__kont190652190653%_)) - (_%__kont190652190653%_)) - (_%__kont190652190653%_)))) - (_%__kont190652190653%_)))) + (_%__kont191939191940%_)) + (_%__kont191939191940%_)))) + (_%__kont191939191940%_)))) + (_%__kont191939191940%_)) + (_%__kont191939191940%_)) + (_%__kont191939191940%_)))) + (_%__kont191939191940%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (or (eq? '##eq? _%$e183530%_) - (eq? 'eq? _%$e183530%_) + (if (or (eq? '##eq? _%$e184817%_) + (eq? 'eq? _%$e184817%_) (eq? '##eqv? - _%$e183530%_) - (eq? 'eqv? _%$e183530%_) + _%$e184817%_) + (eq? 'eqv? _%$e184817%_) (eq? '##equal? - _%$e183530%_) + _%$e184817%_) (eq? 'equal? - _%$e183530%_) + _%$e184817%_) (eq? 'gx#free-identifier=? - _%$e183530%_) + _%$e184817%_) (eq? 'gx#stx-eq? - _%$e183530%_)) - ((lambda (_%sym183690%_) - (let* ((_%__stx190716190717%_ - _%L183504%_) - (_%g183693183706%_ + _%$e184817%_)) + ((lambda (_%sym184977%_) + (let* ((_%__stx192003192004%_ + _%L184791%_) + (_%g184980184993%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -8645,71 +8645,71 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190716190717%_))))) - (let ((_%__kont190718190719%_ - (lambda (_%L183734%_) - (_%assert-eqf181784%_ - _%L183734%_ - (_%eqf-symbol181771%_ _%sym183690%_) + _%__stx192003192004%_))))) + (let ((_%__kont192005192006%_ + (lambda (_%L185021%_) + (_%assert-eqf183071%_ + _%L185021%_ + (_%eqf-symbol183058%_ _%sym184977%_) (let () (declare (not safe)) - (gx#stx-e _%L183503%_))))) - (_%__kont190720190721%_ (lambda () '#!void))) + (gx#stx-e _%L184790%_))))) + (_%__kont192007192008%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190716190717%_)) - (let ((_%e183696183718%_ + (gx#stx-pair? _%__stx192003192004%_)) + (let ((_%e184983185005%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190716190717%_)))) - (let ((_%tl183698183723%_ + (gx#stx-e _%__stx192003192004%_)))) + (let ((_%tl184985185010%_ (let () (declare (not safe)) - (##cdr _%e183696183718%_))) - (_%hd183697183721%_ + (##cdr _%e184983185005%_))) + (_%hd184984185008%_ (let () (declare (not safe)) - (##car _%e183696183718%_)))) + (##car _%e184983185005%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183697183721%_)) + (gx#identifier? _%hd184984185008%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183697183721%_)) + (gx#stx-eq? '%#ref _%hd184984185008%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183698183723%_)) - (let ((_%e183699183726%_ + (gx#stx-pair? _%tl184985185010%_)) + (let ((_%e184986185013%_ (let () (declare (not safe)) - (gx#stx-e _%tl183698183723%_)))) - (let ((_%tl183701183731%_ + (gx#stx-e _%tl184985185010%_)))) + (let ((_%tl184988185018%_ (let () (declare (not safe)) - (##cdr _%e183699183726%_))) - (_%hd183700183729%_ + (##cdr _%e184986185013%_))) + (_%hd184987185016%_ (let () (declare (not safe)) - (##car _%e183699183726%_)))) + (##car _%e184986185013%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183701183731%_)) - (_%__kont190718190719%_ - _%hd183700183729%_) - (_%__kont190720190721%_)))) - (_%__kont190720190721%_)) - (_%__kont190720190721%_)) - (_%__kont190720190721%_)))) - (_%__kont190720190721%_))))) + _%tl184988185018%_)) + (_%__kont192005192006%_ + _%hd184987185016%_) + (_%__kont192007192008%_)))) + (_%__kont192007192008%_)) + (_%__kont192007192008%_)) + (_%__kont192007192008%_)))) + (_%__kont192007192008%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e183530%_) + _%$e184817%_) '#!void))))) - (_%__kont190748190749%_ - (lambda (_%L183407%_ - _%L183408%_ - _%L183409%_) - (_%assert182789%_ + (_%__kont192035192036%_ + (lambda (_%L184694%_ + _%L184695%_ + _%L184696%_) + (_%assert184076%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -8721,44 +8721,44 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L183409%_ + (cons _%L184696%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L183407%_ + (cons _%L184694%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L183408%_ '())) + (cons _%L184695%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190750190751%_ - (lambda (_%L183299%_ - _%L183300%_ - _%L183301%_) - (let ((_%$e183330%_ + (_%__kont192037192038%_ + (lambda (_%L184586%_ + _%L184587%_ + _%L184588%_) + (let ((_%$e184617%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L183301%_)))) + _%L184588%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e183330%_) + _%$e184617%_) (eq? 'gx#stx-eq? - _%$e183330%_)) - ((lambda (_%sym183336%_) - (_%assert-eqf181784%_ - _%L183300%_ - (_%eqf-symbol181771%_ - _%sym183336%_) - _%L183299%_)) - _%$e183330%_) + _%$e184617%_)) + ((lambda (_%sym184623%_) + (_%assert-eqf183071%_ + _%L184587%_ + (_%eqf-symbol183058%_ + _%sym184623%_) + _%L184586%_)) + _%$e184617%_) '#!void)))) - (_%__kont190752190753%_ - (lambda (_%L183183%_ - _%L183184%_ - _%L183185%_) - (_%assert182789%_ + (_%__kont192039192040%_ + (lambda (_%L184470%_ + _%L184471%_ + _%L184472%_) + (_%assert184076%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -8770,7 +8770,7 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L183185%_ + (cons _%L184472%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -8778,4368 +8778,4368 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L183183%_ '())) + (cons _%L184470%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax)) - (cons _%L183184%_ '())) + (cons _%L184471%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190754190755%_ - (lambda (_%L183062%_ - _%L183063%_ - _%L183064%_) - (_%assert182789%_ + (_%__kont192041192042%_ + (lambda (_%L184349%_ + _%L184350%_ + _%L184351%_) + (_%assert184076%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L183064%_ - _%L183062%_ - _%L183063%_))))) - (_%__kont190756190757%_ + _%L184351%_ + _%L184349%_ + _%L184350%_))))) + (_%__kont192043192044%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190742190743%_)) - (let ((_%e182803183755%_ + (gx#stx-pair? _%__stx192029192030%_)) + (let ((_%e184090185042%_ (let () (declare (not safe)) (gx#stx-e - _%__stx190742190743%_)))) - (let ((_%tl182805183760%_ + _%__stx192029192030%_)))) + (let ((_%tl184092185047%_ (let () (declare (not safe)) - (##cdr _%e182803183755%_))) - (_%hd182804183758%_ + (##cdr _%e184090185042%_))) + (_%hd184091185045%_ (let () (declare (not safe)) - (##car _%e182803183755%_)))) + (##car _%e184090185042%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182804183758%_)) + _%hd184091185045%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd182804183758%_)) + _%hd184091185045%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182805183760%_)) - (let ((_%e182806183763%_ + _%tl184092185047%_)) + (let ((_%e184093185050%_ (let () (declare (not safe)) (gx#stx-e - _%tl182805183760%_)))) - (let ((_%tl182808183768%_ + _%tl184092185047%_)))) + (let ((_%tl184095185055%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e182806183763%_))) - (_%hd182807183766%_ - (let () (declare (not safe)) (##car _%e182806183763%_)))) + (##cdr _%e184093185050%_))) + (_%hd184094185053%_ + (let () (declare (not safe)) (##car _%e184093185050%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182807183766%_)) - (let ((_%e182809183771%_ + (gx#stx-pair? _%hd184094185053%_)) + (let ((_%e184096185058%_ (let () (declare (not safe)) - (gx#stx-e _%hd182807183766%_)))) - (let ((_%tl182811183776%_ + (gx#stx-e _%hd184094185053%_)))) + (let ((_%tl184098185063%_ (let () (declare (not safe)) - (##cdr _%e182809183771%_))) - (_%hd182810183774%_ + (##cdr _%e184096185058%_))) + (_%hd184097185061%_ (let () (declare (not safe)) - (##car _%e182809183771%_)))) + (##car _%e184096185058%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182810183774%_)) + (gx#identifier? _%hd184097185061%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd182810183774%_)) + (gx#stx-eq? '%#ref _%hd184097185061%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182811183776%_)) - (let ((_%e182812183779%_ + (gx#stx-pair? _%tl184098185063%_)) + (let ((_%e184099185066%_ (let () (declare (not safe)) - (gx#stx-e _%tl182811183776%_)))) - (let ((_%tl182814183784%_ + (gx#stx-e _%tl184098185063%_)))) + (let ((_%tl184101185071%_ (let () (declare (not safe)) - (##cdr _%e182812183779%_))) - (_%hd182813183782%_ + (##cdr _%e184099185066%_))) + (_%hd184100185069%_ (let () (declare (not safe)) - (##car _%e182812183779%_)))) + (##car _%e184099185066%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182814183784%_)) + _%tl184101185071%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182808183768%_)) - (let ((_%e182815183787%_ + _%tl184095185055%_)) + (let ((_%e184102185074%_ (let () (declare (not safe)) (gx#stx-e - _%tl182808183768%_)))) - (let ((_%tl182817183792%_ + _%tl184095185055%_)))) + (let ((_%tl184104185079%_ (let () (declare (not safe)) - (##cdr _%e182815183787%_))) - (_%hd182816183790%_ + (##cdr _%e184102185074%_))) + (_%hd184103185077%_ (let () (declare (not safe)) - (##car _%e182815183787%_)))) + (##car _%e184102185074%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182816183790%_)) - (let ((_%e182818183795%_ + _%hd184103185077%_)) + (let ((_%e184105185082%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd182816183790%_)))) - (let ((_%tl182820183800%_ + (gx#stx-e _%hd184103185077%_)))) + (let ((_%tl184107185087%_ (let () (declare (not safe)) - (##cdr _%e182818183795%_))) - (_%hd182819183798%_ + (##cdr _%e184105185082%_))) + (_%hd184106185085%_ (let () (declare (not safe)) - (##car _%e182818183795%_)))) + (##car _%e184105185082%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182819183798%_)) + (gx#identifier? _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd182819183798%_)) + (gx#stx-eq? '%#ref _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182821183803%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184108185090%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182823183808%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184110185095%_ (let () (declare (not safe)) - (##cdr _%e182821183803%_))) - (_%hd182822183806%_ + (##cdr _%e184108185090%_))) + (_%hd184109185093%_ (let () (declare (not safe)) - (##car _%e182821183803%_)))) + (##car _%e184108185090%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182823183808%_)) + (gx#stx-null? _%tl184110185095%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182817183792%_)) - (_%__kont190744190745%_ - _%hd182822183806%_ - _%hd182813183782%_) + _%tl184104185079%_)) + (_%__kont192031192032%_ + _%hd184109185093%_ + _%hd184100185069%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182817183792%_)) - (let ((_%e182842183479%_ + _%tl184104185079%_)) + (let ((_%e184129184766%_ (let () (declare (not safe)) (gx#stx-e - _%tl182817183792%_)))) - (let ((_%tl182844183484%_ + _%tl184104185079%_)))) + (let ((_%tl184131184771%_ (let () (declare (not safe)) - (##cdr _%e182842183479%_))) - (_%hd182843183482%_ + (##cdr _%e184129184766%_))) + (_%hd184130184769%_ (let () (declare (not safe)) - (##car _%e182842183479%_)))) + (##car _%e184129184766%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182843183482%_)) - (let ((_%e182845183487%_ + _%hd184130184769%_)) + (let ((_%e184132184774%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd182843183482%_)))) - (let ((_%tl182847183492%_ + (gx#stx-e _%hd184130184769%_)))) + (let ((_%tl184134184779%_ (let () (declare (not safe)) - (##cdr _%e182845183487%_))) - (_%hd182846183490%_ + (##cdr _%e184132184774%_))) + (_%hd184133184777%_ (let () (declare (not safe)) - (##car _%e182845183487%_)))) + (##car _%e184132184774%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182846183490%_)) + (gx#identifier? _%hd184133184777%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd182846183490%_)) + (gx#stx-eq? '%#quote _%hd184133184777%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182847183492%_)) - (let ((_%e182848183495%_ + (gx#stx-pair? _%tl184134184779%_)) + (let ((_%e184135184782%_ (let () (declare (not safe)) - (gx#stx-e _%tl182847183492%_)))) - (let ((_%tl182850183500%_ + (gx#stx-e _%tl184134184779%_)))) + (let ((_%tl184137184787%_ (let () (declare (not safe)) - (##cdr _%e182848183495%_))) - (_%hd182849183498%_ + (##cdr _%e184135184782%_))) + (_%hd184136184785%_ (let () (declare (not safe)) - (##car _%e182848183495%_)))) + (##car _%e184135184782%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182850183500%_)) + (gx#stx-null? _%tl184137184787%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182844183484%_)) - (_%__kont190746190747%_ - _%hd182849183498%_ - _%hd182816183790%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) + _%tl184131184771%_)) + (_%__kont192033192034%_ + _%hd184136184785%_ + _%hd184103185077%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd182846183490%_)) + _%hd184133184777%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182847183492%_)) - (let ((_%e182908183291%_ + (gx#stx-pair? _%tl184134184779%_)) + (let ((_%e184195184578%_ (let () (declare (not safe)) - (gx#stx-e _%tl182847183492%_)))) - (let ((_%tl182910183296%_ + (gx#stx-e _%tl184134184779%_)))) + (let ((_%tl184197184583%_ (let () (declare (not safe)) - (##cdr _%e182908183291%_))) - (_%hd182909183294%_ + (##cdr _%e184195184578%_))) + (_%hd184196184581%_ (let () (declare (not safe)) - (##car _%e182908183291%_)))) + (##car _%e184195184578%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182910183296%_)) + _%tl184197184583%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182844183484%_)) - (_%__kont190750190751%_ - _%hd182909183294%_ - _%hd182822183806%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)))) + _%tl184131184771%_)) + (_%__kont192037192038%_ + _%hd184196184581%_ + _%hd184109185093%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_))) + (_%__kont192043192044%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182817183792%_)) - (let ((_%e182842183479%_ + _%tl184104185079%_)) + (let ((_%e184129184766%_ (let () (declare (not safe)) (gx#stx-e - _%tl182817183792%_)))) - (let ((_%tl182844183484%_ + _%tl184104185079%_)))) + (let ((_%tl184131184771%_ (let () (declare (not safe)) - (##cdr _%e182842183479%_))) - (_%hd182843183482%_ + (##cdr _%e184129184766%_))) + (_%hd184130184769%_ (let () (declare (not safe)) - (##car _%e182842183479%_)))) + (##car _%e184129184766%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182843183482%_)) - (let ((_%e182845183487%_ + _%hd184130184769%_)) + (let ((_%e184132184774%_ (let () (declare (not safe)) (gx#stx-e - _%hd182843183482%_)))) - (let ((_%tl182847183492%_ + _%hd184130184769%_)))) + (let ((_%tl184134184779%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e182845183487%_))) - (_%hd182846183490%_ - (let () (declare (not safe)) (##car _%e182845183487%_)))) + (##cdr _%e184132184774%_))) + (_%hd184133184777%_ + (let () (declare (not safe)) (##car _%e184132184774%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182846183490%_)) + (gx#identifier? _%hd184133184777%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd182846183490%_)) + (gx#stx-eq? '%#quote _%hd184133184777%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182847183492%_)) - (let ((_%e182848183495%_ + (gx#stx-pair? _%tl184134184779%_)) + (let ((_%e184135184782%_ (let () (declare (not safe)) - (gx#stx-e _%tl182847183492%_)))) - (let ((_%tl182850183500%_ + (gx#stx-e _%tl184134184779%_)))) + (let ((_%tl184137184787%_ (let () (declare (not safe)) - (##cdr _%e182848183495%_))) - (_%hd182849183498%_ + (##cdr _%e184135184782%_))) + (_%hd184136184785%_ (let () (declare (not safe)) - (##car _%e182848183495%_)))) + (##car _%e184135184782%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182850183500%_)) + (gx#stx-null? _%tl184137184787%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182844183484%_)) - (_%__kont190746190747%_ - _%hd182849183498%_ - _%hd182816183790%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) + (gx#stx-null? _%tl184131184771%_)) + (_%__kont192033192034%_ + _%hd184136184785%_ + _%hd184103185077%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)))) - (_%__kont190756190757%_))))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182817183792%_)) - (let ((_%e182842183479%_ + (gx#stx-pair? _%tl184104185079%_)) + (let ((_%e184129184766%_ (let () (declare (not safe)) - (gx#stx-e _%tl182817183792%_)))) - (let ((_%tl182844183484%_ + (gx#stx-e _%tl184104185079%_)))) + (let ((_%tl184131184771%_ (let () (declare (not safe)) - (##cdr _%e182842183479%_))) - (_%hd182843183482%_ + (##cdr _%e184129184766%_))) + (_%hd184130184769%_ (let () (declare (not safe)) - (##car _%e182842183479%_)))) + (##car _%e184129184766%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182843183482%_)) - (let ((_%e182845183487%_ + _%hd184130184769%_)) + (let ((_%e184132184774%_ (let () (declare (not safe)) (gx#stx-e - _%hd182843183482%_)))) - (let ((_%tl182847183492%_ + _%hd184130184769%_)))) + (let ((_%tl184134184779%_ (let () (declare (not safe)) - (##cdr _%e182845183487%_))) - (_%hd182846183490%_ + (##cdr _%e184132184774%_))) + (_%hd184133184777%_ (let () (declare (not safe)) - (##car _%e182845183487%_)))) + (##car _%e184132184774%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182846183490%_)) + _%hd184133184777%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182846183490%_)) + _%hd184133184777%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl182847183492%_)) - (let ((_%e182848183495%_ + (gx#stx-pair? _%tl184134184779%_)) + (let ((_%e184135184782%_ (let () (declare (not safe)) - (gx#stx-e _%tl182847183492%_)))) - (let ((_%tl182850183500%_ + (gx#stx-e _%tl184134184779%_)))) + (let ((_%tl184137184787%_ (let () (declare (not safe)) - (##cdr _%e182848183495%_))) - (_%hd182849183498%_ + (##cdr _%e184135184782%_))) + (_%hd184136184785%_ (let () (declare (not safe)) - (##car _%e182848183495%_)))) + (##car _%e184135184782%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182850183500%_)) + (gx#stx-null? _%tl184137184787%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182844183484%_)) - (_%__kont190746190747%_ - _%hd182849183498%_ - _%hd182816183790%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)) + (gx#stx-null? _%tl184131184771%_)) + (_%__kont192033192034%_ + _%hd184136184785%_ + _%hd184103185077%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182817183792%_)) - (let ((_%e182842183479%_ + (gx#stx-pair? _%tl184104185079%_)) + (let ((_%e184129184766%_ (let () (declare (not safe)) - (gx#stx-e _%tl182817183792%_)))) - (let ((_%tl182844183484%_ + (gx#stx-e _%tl184104185079%_)))) + (let ((_%tl184131184771%_ (let () (declare (not safe)) - (##cdr _%e182842183479%_))) - (_%hd182843183482%_ + (##cdr _%e184129184766%_))) + (_%hd184130184769%_ (let () (declare (not safe)) - (##car _%e182842183479%_)))) + (##car _%e184129184766%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182843183482%_)) - (let ((_%e182845183487%_ + (gx#stx-pair? _%hd184130184769%_)) + (let ((_%e184132184774%_ (let () (declare (not safe)) (gx#stx-e - _%hd182843183482%_)))) - (let ((_%tl182847183492%_ + _%hd184130184769%_)))) + (let ((_%tl184134184779%_ (let () (declare (not safe)) - (##cdr _%e182845183487%_))) - (_%hd182846183490%_ + (##cdr _%e184132184774%_))) + (_%hd184133184777%_ (let () (declare (not safe)) - (##car _%e182845183487%_)))) + (##car _%e184132184774%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182846183490%_)) + _%hd184133184777%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182846183490%_)) + _%hd184133184777%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182847183492%_)) - (let ((_%e182848183495%_ + _%tl184134184779%_)) + (let ((_%e184135184782%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl182847183492%_)))) - (let ((_%tl182850183500%_ + (gx#stx-e _%tl184134184779%_)))) + (let ((_%tl184137184787%_ (let () (declare (not safe)) - (##cdr _%e182848183495%_))) - (_%hd182849183498%_ + (##cdr _%e184135184782%_))) + (_%hd184136184785%_ (let () (declare (not safe)) - (##car _%e182848183495%_)))) + (##car _%e184135184782%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182850183500%_)) + (gx#stx-null? _%tl184137184787%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182844183484%_)) - (_%__kont190746190747%_ - _%hd182849183498%_ - _%hd182816183790%_ - _%hd182813183782%_) + (gx#stx-null? _%tl184131184771%_)) + (_%__kont192033192034%_ + _%hd184136184785%_ + _%hd184103185077%_ + _%hd184100185069%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd182819183798%_)) + (gx#stx-eq? '%#quote _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182872183391%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184159184678%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182874183396%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184161184683%_ (let () (declare (not safe)) - (##cdr _%e182872183391%_))) - (_%hd182873183394%_ + (##cdr _%e184159184678%_))) + (_%hd184160184681%_ (let () (declare (not safe)) - (##car _%e182872183391%_)))) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)) + (##car _%e184159184678%_)))) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd182819183798%_)) + _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182932183151%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184219184438%_ (let () (declare (not safe)) (gx#stx-e - _%tl182820183800%_)))) - (let ((_%tl182934183156%_ + _%tl184107185087%_)))) + (let ((_%tl184221184443%_ (let () (declare (not safe)) - (##cdr _%e182932183151%_))) - (_%hd182933183154%_ + (##cdr _%e184219184438%_))) + (_%hd184220184441%_ (let () (declare (not safe)) - (##car _%e182932183151%_)))) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) + (##car _%e184219184438%_)))) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd182819183798%_)) + (gx#stx-eq? '%#quote _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182872183391%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184159184678%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182874183396%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184161184683%_ (let () (declare (not safe)) - (##cdr _%e182872183391%_))) - (_%hd182873183394%_ + (##cdr _%e184159184678%_))) + (_%hd184160184681%_ (let () (declare (not safe)) - (##car _%e182872183391%_)))) + (##car _%e184159184678%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182874183396%_)) + (gx#stx-null? _%tl184161184683%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182844183484%_)) - (_%__kont190748190749%_ - _%hd182843183482%_ - _%hd182873183394%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) + _%tl184131184771%_)) + (_%__kont192035192036%_ + _%hd184130184769%_ + _%hd184160184681%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd182819183798%_)) + _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182932183151%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184219184438%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182934183156%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184221184443%_ (let () (declare (not safe)) - (##cdr _%e182932183151%_))) - (_%hd182933183154%_ + (##cdr _%e184219184438%_))) + (_%hd184220184441%_ (let () (declare (not safe)) - (##car _%e182932183151%_)))) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))))) + (##car _%e184219184438%_)))) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd182819183798%_)) + (gx#stx-eq? '%#quote _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182872183391%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184159184678%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182874183396%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184161184683%_ (let () (declare (not safe)) - (##cdr _%e182872183391%_))) - (_%hd182873183394%_ + (##cdr _%e184159184678%_))) + (_%hd184160184681%_ (let () (declare (not safe)) - (##car _%e182872183391%_)))) + (##car _%e184159184678%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182874183396%_)) + (gx#stx-null? _%tl184161184683%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182844183484%_)) - (_%__kont190748190749%_ - _%hd182843183482%_ - _%hd182873183394%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) + (gx#stx-null? _%tl184131184771%_)) + (_%__kont192035192036%_ + _%hd184130184769%_ + _%hd184160184681%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd182819183798%_)) + (gx#stx-eq? '%#quote-syntax _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182932183151%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184219184438%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182934183156%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184221184443%_ (let () (declare (not safe)) - (##cdr _%e182932183151%_))) - (_%hd182933183154%_ + (##cdr _%e184219184438%_))) + (_%hd184220184441%_ (let () (declare (not safe)) - (##car _%e182932183151%_)))) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) + (##car _%e184219184438%_)))) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182819183798%_)) + _%hd184106185085%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182872183391%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184159184678%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182874183396%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184161184683%_ (let () (declare (not safe)) - (##cdr _%e182872183391%_))) - (_%hd182873183394%_ + (##cdr _%e184159184678%_))) + (_%hd184160184681%_ (let () (declare (not safe)) - (##car _%e182872183391%_)))) + (##car _%e184159184678%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182874183396%_)) + (gx#stx-null? _%tl184161184683%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182844183484%_)) - (_%__kont190748190749%_ - _%hd182843183482%_ - _%hd182873183394%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) + (gx#stx-null? _%tl184131184771%_)) + (_%__kont192035192036%_ + _%hd184130184769%_ + _%hd184160184681%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd182819183798%_)) + (gx#stx-eq? '%#quote-syntax _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182932183151%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184219184438%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182934183156%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184221184443%_ (let () (declare (not safe)) - (##cdr _%e182932183151%_))) - (_%hd182933183154%_ + (##cdr _%e184219184438%_))) + (_%hd184220184441%_ (let () (declare (not safe)) - (##car _%e182932183151%_)))) + (##car _%e184219184438%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182934183156%_)) + (gx#stx-null? _%tl184221184443%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd182846183490%_)) + (gx#stx-eq? '%#ref _%hd184133184777%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182847183492%_)) - (let ((_%e182941183175%_ + (gx#stx-pair? _%tl184134184779%_)) + (let ((_%e184228184462%_ (let () (declare (not safe)) (gx#stx-e - _%tl182847183492%_)))) - (let ((_%tl182943183180%_ + _%tl184134184779%_)))) + (let ((_%tl184230184467%_ (let () (declare (not safe)) - (##cdr _%e182941183175%_))) - (_%hd182942183178%_ + (##cdr _%e184228184462%_))) + (_%hd184229184465%_ (let () (declare (not safe)) - (##car _%e182941183175%_)))) + (##car _%e184228184462%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182943183180%_)) + _%tl184230184467%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182844183484%_)) - (_%__kont190752190753%_ - _%hd182942183178%_ - _%hd182933183154%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) + _%tl184131184771%_)) + (_%__kont192039192040%_ + _%hd184229184465%_ + _%hd184220184441%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182819183798%_)) + _%hd184106185085%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182820183800%_)) - (let ((_%e182872183391%_ + _%tl184107185087%_)) + (let ((_%e184159184678%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182874183396%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184161184683%_ (let () (declare (not safe)) - (##cdr _%e182872183391%_))) - (_%hd182873183394%_ + (##cdr _%e184159184678%_))) + (_%hd184160184681%_ (let () (declare (not safe)) - (##car _%e182872183391%_)))) + (##car _%e184159184678%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182874183396%_)) + (gx#stx-null? _%tl184161184683%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182844183484%_)) - (_%__kont190748190749%_ - _%hd182843183482%_ - _%hd182873183394%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) + (gx#stx-null? _%tl184131184771%_)) + (_%__kont192035192036%_ + _%hd184130184769%_ + _%hd184160184681%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd182819183798%_)) + _%hd184106185085%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182932183151%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184219184438%_ (let () (declare (not safe)) - (gx#stx-e _%tl182820183800%_)))) - (let ((_%tl182934183156%_ + (gx#stx-e _%tl184107185087%_)))) + (let ((_%tl184221184443%_ (let () (declare (not safe)) - (##cdr _%e182932183151%_))) - (_%hd182933183154%_ + (##cdr _%e184219184438%_))) + (_%hd184220184441%_ (let () (declare (not safe)) - (##car _%e182932183151%_)))) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))))) + (##car _%e184219184438%_)))) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182819183798%_)) + _%hd184106185085%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182820183800%_)) - (let ((_%e182872183391%_ + _%tl184107185087%_)) + (let ((_%e184159184678%_ (let () (declare (not safe)) (gx#stx-e - _%tl182820183800%_)))) - (let ((_%tl182874183396%_ + _%tl184107185087%_)))) + (let ((_%tl184161184683%_ (let () (declare (not safe)) - (##cdr _%e182872183391%_))) - (_%hd182873183394%_ + (##cdr _%e184159184678%_))) + (_%hd184160184681%_ (let () (declare (not safe)) - (##car _%e182872183391%_)))) + (##car _%e184159184678%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182874183396%_)) + _%tl184161184683%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl182844183484%_)) - (_%__kont190748190749%_ - _%hd182843183482%_ - _%hd182873183394%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) + (gx#stx-null? _%tl184131184771%_)) + (_%__kont192035192036%_ + _%hd184130184769%_ + _%hd184160184681%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)) + (_%__kont192043192044%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd182819183798%_)) + _%hd184106185085%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182820183800%_)) - (let ((_%e182932183151%_ + _%tl184107185087%_)) + (let ((_%e184219184438%_ (let () (declare (not safe)) (gx#stx-e - _%tl182820183800%_)))) - (let ((_%tl182934183156%_ + _%tl184107185087%_)))) + (let ((_%tl184221184443%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e182932183151%_))) - (_%hd182933183154%_ - (let () (declare (not safe)) (##car _%e182932183151%_)))) - (_%__kont190756190757%_))) + (##cdr _%e184219184438%_))) + (_%hd184220184441%_ + (let () (declare (not safe)) (##car _%e184219184438%_)))) + (_%__kont192043192044%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182819183798%_)) + _%hd184106185085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182820183800%_)) - (let ((_%e182872183391%_ + (gx#stx-pair? _%tl184107185087%_)) + (let ((_%e184159184678%_ (let () (declare (not safe)) (gx#stx-e - _%tl182820183800%_)))) - (let ((_%tl182874183396%_ + _%tl184107185087%_)))) + (let ((_%tl184161184683%_ (let () (declare (not safe)) - (##cdr _%e182872183391%_))) - (_%hd182873183394%_ + (##cdr _%e184159184678%_))) + (_%hd184160184681%_ (let () (declare (not safe)) - (##car _%e182872183391%_)))) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)) + (##car _%e184159184678%_)))) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd182819183798%_)) + _%hd184106185085%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182820183800%_)) - (let ((_%e182932183151%_ + _%tl184107185087%_)) + (let ((_%e184219184438%_ (let () (declare (not safe)) (gx#stx-e - _%tl182820183800%_)))) - (let ((_%tl182934183156%_ + _%tl184107185087%_)))) + (let ((_%tl184221184443%_ (let () (declare (not safe)) - (##cdr _%e182932183151%_))) - (_%hd182933183154%_ + (##cdr _%e184219184438%_))) + (_%hd184220184441%_ (let () (declare (not safe)) - (##car _%e182932183151%_)))) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_))))) + (##car _%e184219184438%_)))) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182817183792%_)) - (let ((_%e182842183479%_ + (gx#stx-pair? _%tl184104185079%_)) + (let ((_%e184129184766%_ (let () (declare (not safe)) - (gx#stx-e _%tl182817183792%_)))) - (let ((_%tl182844183484%_ + (gx#stx-e _%tl184104185079%_)))) + (let ((_%tl184131184771%_ (let () (declare (not safe)) - (##cdr _%e182842183479%_))) - (_%hd182843183482%_ + (##cdr _%e184129184766%_))) + (_%hd184130184769%_ (let () (declare (not safe)) - (##car _%e182842183479%_)))) + (##car _%e184129184766%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182843183482%_)) - (let ((_%e182845183487%_ + (gx#stx-pair? _%hd184130184769%_)) + (let ((_%e184132184774%_ (let () (declare (not safe)) - (gx#stx-e _%hd182843183482%_)))) - (let ((_%tl182847183492%_ + (gx#stx-e _%hd184130184769%_)))) + (let ((_%tl184134184779%_ (let () (declare (not safe)) - (##cdr _%e182845183487%_))) - (_%hd182846183490%_ + (##cdr _%e184132184774%_))) + (_%hd184133184777%_ (let () (declare (not safe)) - (##car _%e182845183487%_)))) + (##car _%e184132184774%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182846183490%_)) + _%hd184133184777%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182846183490%_)) + _%hd184133184777%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182847183492%_)) - (let ((_%e182848183495%_ + _%tl184134184779%_)) + (let ((_%e184135184782%_ (let () (declare (not safe)) (gx#stx-e - _%tl182847183492%_)))) - (let ((_%tl182850183500%_ + _%tl184134184779%_)))) + (let ((_%tl184137184787%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e182848183495%_))) - (_%hd182849183498%_ - (let () (declare (not safe)) (##car _%e182848183495%_)))) + (##cdr _%e184135184782%_))) + (_%hd184136184785%_ + (let () (declare (not safe)) (##car _%e184135184782%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182850183500%_)) + (gx#stx-null? _%tl184137184787%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182844183484%_)) - (_%__kont190746190747%_ - _%hd182849183498%_ - _%hd182816183790%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) + (gx#stx-null? _%tl184131184771%_)) + (_%__kont192033192034%_ + _%hd184136184785%_ + _%hd184103185077%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_))))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182817183792%_)) - (let ((_%e182842183479%_ + (gx#stx-pair? _%tl184104185079%_)) + (let ((_%e184129184766%_ (let () (declare (not safe)) - (gx#stx-e _%tl182817183792%_)))) - (let ((_%tl182844183484%_ + (gx#stx-e _%tl184104185079%_)))) + (let ((_%tl184131184771%_ (let () (declare (not safe)) - (##cdr _%e182842183479%_))) - (_%hd182843183482%_ + (##cdr _%e184129184766%_))) + (_%hd184130184769%_ (let () (declare (not safe)) - (##car _%e182842183479%_)))) + (##car _%e184129184766%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182843183482%_)) - (let ((_%e182845183487%_ + (gx#stx-pair? _%hd184130184769%_)) + (let ((_%e184132184774%_ (let () (declare (not safe)) - (gx#stx-e _%hd182843183482%_)))) - (let ((_%tl182847183492%_ + (gx#stx-e _%hd184130184769%_)))) + (let ((_%tl184134184779%_ (let () (declare (not safe)) - (##cdr _%e182845183487%_))) - (_%hd182846183490%_ + (##cdr _%e184132184774%_))) + (_%hd184133184777%_ (let () (declare (not safe)) - (##car _%e182845183487%_)))) + (##car _%e184132184774%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182846183490%_)) + (gx#identifier? _%hd184133184777%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182846183490%_)) + _%hd184133184777%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182847183492%_)) - (let ((_%e182848183495%_ + _%tl184134184779%_)) + (let ((_%e184135184782%_ (let () (declare (not safe)) (gx#stx-e - _%tl182847183492%_)))) - (let ((_%tl182850183500%_ + _%tl184134184779%_)))) + (let ((_%tl184137184787%_ (let () (declare (not safe)) - (##cdr _%e182848183495%_))) - (_%hd182849183498%_ + (##cdr _%e184135184782%_))) + (_%hd184136184785%_ (let () (declare (not safe)) - (##car _%e182848183495%_)))) + (##car _%e184135184782%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182850183500%_)) + _%tl184137184787%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182844183484%_)) - (_%__kont190746190747%_ - _%hd182849183498%_ - _%hd182816183790%_ - _%hd182813183782%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_))))) + _%tl184131184771%_)) + (_%__kont192033192034%_ + _%hd184136184785%_ + _%hd184103185077%_ + _%hd184100185069%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd182810183774%_)) + _%hd184097185061%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182811183776%_)) - (let ((_%e182956183014%_ + (gx#stx-pair? _%tl184098185063%_)) + (let ((_%e184243184301%_ (let () (declare (not safe)) (gx#stx-e - _%tl182811183776%_)))) - (let ((_%tl182958183019%_ + _%tl184098185063%_)))) + (let ((_%tl184245184306%_ (let () (declare (not safe)) - (##cdr _%e182956183014%_))) - (_%hd182957183017%_ + (##cdr _%e184243184301%_))) + (_%hd184244184304%_ (let () (declare (not safe)) - (##car _%e182956183014%_)))) + (##car _%e184243184301%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182957183017%_)) - (let ((_%e182959183022%_ + _%hd184244184304%_)) + (let ((_%e184246184309%_ (let () (declare (not safe)) (gx#stx-e - _%hd182957183017%_)))) - (let ((_%tl182961183027%_ + _%hd184244184304%_)))) + (let ((_%tl184248184314%_ (let () (declare (not safe)) - (##cdr _%e182959183022%_))) - (_%hd182960183025%_ + (##cdr _%e184246184309%_))) + (_%hd184247184312%_ (let () (declare (not safe)) - (##car _%e182959183022%_)))) + (##car _%e184246184309%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182961183027%_)) + _%tl184248184314%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl182958183019%_)) - (let ((_%e182962183030%_ + (gx#stx-pair? _%tl184245184306%_)) + (let ((_%e184249184317%_ (let () (declare (not safe)) - (gx#stx-e _%tl182958183019%_)))) - (let ((_%tl182964183035%_ + (gx#stx-e _%tl184245184306%_)))) + (let ((_%tl184251184322%_ (let () (declare (not safe)) - (##cdr _%e182962183030%_))) - (_%hd182963183033%_ + (##cdr _%e184249184317%_))) + (_%hd184250184320%_ (let () (declare (not safe)) - (##car _%e182962183030%_)))) + (##car _%e184249184317%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182964183035%_)) + (gx#stx-null? _%tl184251184322%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182808183768%_)) - (let ((_%e182965183038%_ + (gx#stx-pair? _%tl184095185055%_)) + (let ((_%e184252184325%_ (let () (declare (not safe)) - (gx#stx-e _%tl182808183768%_)))) - (let ((_%tl182967183043%_ + (gx#stx-e _%tl184095185055%_)))) + (let ((_%tl184254184330%_ (let () (declare (not safe)) - (##cdr _%e182965183038%_))) - (_%hd182966183041%_ + (##cdr _%e184252184325%_))) + (_%hd184253184328%_ (let () (declare (not safe)) - (##car _%e182965183038%_)))) + (##car _%e184252184325%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182966183041%_)) - (let ((_%e182968183046%_ + (gx#stx-pair? _%hd184253184328%_)) + (let ((_%e184255184333%_ (let () (declare (not safe)) (gx#stx-e - _%hd182966183041%_)))) - (let ((_%tl182970183051%_ + _%hd184253184328%_)))) + (let ((_%tl184257184338%_ (let () (declare (not safe)) - (##cdr _%e182968183046%_))) - (_%hd182969183049%_ + (##cdr _%e184255184333%_))) + (_%hd184256184336%_ (let () (declare (not safe)) - (##car _%e182968183046%_)))) + (##car _%e184255184333%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182969183049%_)) + _%hd184256184336%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd182969183049%_)) + _%hd184256184336%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182970183051%_)) - (let ((_%e182971183054%_ + _%tl184257184338%_)) + (let ((_%e184258184341%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl182970183051%_)))) - (let ((_%tl182973183059%_ + (gx#stx-e _%tl184257184338%_)))) + (let ((_%tl184260184346%_ (let () (declare (not safe)) - (##cdr _%e182971183054%_))) - (_%hd182972183057%_ + (##cdr _%e184258184341%_))) + (_%hd184259184344%_ (let () (declare (not safe)) - (##car _%e182971183054%_)))) + (##car _%e184258184341%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182973183059%_)) + (gx#stx-null? _%tl184260184346%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182967183043%_)) - (_%__kont190754190755%_ - _%hd182972183057%_ - _%hd182963183033%_ - _%hd182960183025%_) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) + (gx#stx-null? _%tl184254184330%_)) + (_%__kont192041192042%_ + _%hd184259184344%_ + _%hd184250184320%_ + _%hd184247184312%_) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)) - (_%__kont190756190757%_))) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_)))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)) + (_%__kont192043192044%_))) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190756190757%_)) - (_%__kont190756190757%_)) - (_%__kont190756190757%_)))) - (_%__kont190756190757%_))))))))) - (_%assert-type181782%_ - (lambda (_%id182688%_ _%t182689%_) - (let _%lp182691%_ ((_%rest182693%_ _%env-type181764%_)) - (let* ((_%rest182694182702%_ _%rest182693%_) - (_%else182696182710%_ (lambda () '#!void)) - (_%K182698182769%_ - (lambda (_%rest182713%_ _%type-info182714%_) - (let* ((_%type-info182715182727%_ - _%type-info182714%_) - (_%else182717182735%_ + (_%__kont192043192044%_)) + (_%__kont192043192044%_)) + (_%__kont192043192044%_)))) + (_%__kont192043192044%_))))))))) + (_%assert-type183069%_ + (lambda (_%id183975%_ _%t183976%_) + (let _%lp183978%_ ((_%rest183980%_ _%env-type183051%_)) + (let* ((_%rest183981183989%_ _%rest183980%_) + (_%else183983183997%_ (lambda () '#!void)) + (_%K183985184056%_ + (lambda (_%rest184000%_ _%type-info184001%_) + (let* ((_%type-info184002184014%_ + _%type-info184001%_) + (_%else184004184022%_ (lambda () - (_%lp182691%_ _%rest182713%_))) - (_%K182719182745%_ - (lambda (_%val182738%_ - _%xt182739%_ - _%xid182740%_) + (_%lp183978%_ _%rest184000%_))) + (_%K184006184032%_ + (lambda (_%val184025%_ + _%xt184026%_ + _%xid184027%_) (if (let () (declare (not safe)) (gx#free-identifier=? - _%id182688%_ - _%xid182740%_)) - (if (eq? _%t182689%_ - _%xt182739%_) - _%val182738%_ - (if _%val182738%_ + _%id183975%_ + _%xid184027%_)) + (if (eq? _%t183976%_ + _%xt184026%_) + _%val184025%_ + (if _%val184025%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%t182689%_ + _%t183976%_ 'gxc#!class::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure-instance-of? - _%xt182739%_ + _%xt184026%_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-subclass? _%t182689%_ _%xt182739%_)) + (gxc#!class-subclass? _%t183976%_ _%xt184026%_)) '#f) '#f) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%t182689%_ + _%t183976%_ 'gxc#!class::t)) (let () (declare (not safe)) (##structure-instance-of? - _%xt182739%_ + _%xt184026%_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-subclass? _%t182689%_ _%xt182739%_))) + (gxc#!class-subclass? _%t183976%_ _%xt184026%_))) '#f - (_%lp182691%_ _%rest182713%_)))) + (_%lp183978%_ _%rest184000%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp182691%_ - _%rest182713%_))))) - (if (pair? _%type-info182715182727%_) - (let ((_%hd182720182748%_ + (_%lp183978%_ + _%rest184000%_))))) + (if (pair? _%type-info184002184014%_) + (let ((_%hd184007184035%_ (let () (declare (not safe)) - (##car _%type-info182715182727%_))) - (_%tl182721182750%_ + (##car _%type-info184002184014%_))) + (_%tl184008184037%_ (let () (declare (not safe)) - (##cdr _%type-info182715182727%_)))) - (let ((_%xid182753%_ - _%hd182720182748%_)) - (if (pair? _%tl182721182750%_) - (let ((_%hd182722182755%_ + (##cdr _%type-info184002184014%_)))) + (let ((_%xid184040%_ + _%hd184007184035%_)) + (if (pair? _%tl184008184037%_) + (let ((_%hd184009184042%_ (let () (declare (not safe)) - (##car _%tl182721182750%_))) - (_%tl182723182757%_ + (##car _%tl184008184037%_))) + (_%tl184010184044%_ (let () (declare (not safe)) - (##cdr _%tl182721182750%_)))) - (let ((_%xt182760%_ - _%hd182722182755%_)) - (if (pair? _%tl182723182757%_) - (let ((_%hd182724182762%_ + (##cdr _%tl184008184037%_)))) + (let ((_%xt184047%_ + _%hd184009184042%_)) + (if (pair? _%tl184010184044%_) + (let ((_%hd184011184049%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl182723182757%_))) - (_%tl182725182764%_ + (##car _%tl184010184044%_))) + (_%tl184012184051%_ (let () (declare (not safe)) - (##cdr _%tl182723182757%_)))) - (let ((_%val182767%_ _%hd182724182762%_)) - (if (null? _%tl182725182764%_) - (_%K182719182745%_ - _%val182767%_ - _%xt182760%_ - _%xid182753%_) - (_%else182717182735%_)))) - (_%else182717182735%_)))) + (##cdr _%tl184010184044%_)))) + (let ((_%val184054%_ _%hd184011184049%_)) + (if (null? _%tl184012184051%_) + (_%K184006184032%_ + _%val184054%_ + _%xt184047%_ + _%xid184040%_) + (_%else184004184022%_)))) + (_%else184004184022%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else182717182735%_)))) - (_%else182717182735%_)))))) - (if (pair? _%rest182694182702%_) - (let ((_%hd182699182772%_ + (_%else184004184022%_)))) + (_%else184004184022%_)))))) + (if (pair? _%rest183981183989%_) + (let ((_%hd183986184059%_ (let () (declare (not safe)) - (##car _%rest182694182702%_))) - (_%tl182700182774%_ + (##car _%rest183981183989%_))) + (_%tl183987184061%_ (let () (declare (not safe)) - (##cdr _%rest182694182702%_)))) - (let* ((_%type-info182777%_ _%hd182699182772%_) - (_%rest182779%_ _%tl182700182774%_)) - (_%K182698182769%_ - _%rest182779%_ - _%type-info182777%_))) - (_%else182696182710%_)))))) - (_%assert-count181783%_ - (lambda (_%id182584%_ _%sym182585%_ _%count182586%_) - (let _%lp182588%_ ((_%rest182590%_ _%env-type181764%_)) - (let* ((_%rest182591182599%_ _%rest182590%_) - (_%else182593182607%_ (lambda () '#!void)) - (_%K182595182676%_ - (lambda (_%rest182610%_ _%type-info182611%_) - (let* ((_%type-info182612182626%_ - _%type-info182611%_) - (_%else182614182634%_ + (##cdr _%rest183981183989%_)))) + (let* ((_%type-info184064%_ _%hd183986184059%_) + (_%rest184066%_ _%tl183987184061%_)) + (_%K183985184056%_ + _%rest184066%_ + _%type-info184064%_))) + (_%else183983183997%_)))))) + (_%assert-count183070%_ + (lambda (_%id183871%_ _%sym183872%_ _%count183873%_) + (let _%lp183875%_ ((_%rest183877%_ _%env-type183051%_)) + (let* ((_%rest183878183886%_ _%rest183877%_) + (_%else183880183894%_ (lambda () '#!void)) + (_%K183882183963%_ + (lambda (_%rest183897%_ _%type-info183898%_) + (let* ((_%type-info183899183913%_ + _%type-info183898%_) + (_%else183901183921%_ (lambda () - (_%lp182588%_ _%rest182610%_))) - (_%K182616182645%_ - (lambda (_%val182637%_ - _%xcount182638%_ - _%xsym182639%_ - _%xid182640%_) - (if (and (eq? _%sym182585%_ - _%xsym182639%_) + (_%lp183875%_ _%rest183897%_))) + (_%K183903183932%_ + (lambda (_%val183924%_ + _%xcount183925%_ + _%xsym183926%_ + _%xid183927%_) + (if (and (eq? _%sym183872%_ + _%xsym183926%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id182584%_ - _%xid182640%_))) - (if _%val182637%_ - (fx= _%count182586%_ - _%xcount182638%_) - (if (fx= _%count182586%_ - _%xcount182638%_) + _%id183871%_ + _%xid183927%_))) + (if _%val183924%_ + (fx= _%count183873%_ + _%xcount183925%_) + (if (fx= _%count183873%_ + _%xcount183925%_) '#f - (_%lp182588%_ - _%rest182610%_))) - (_%lp182588%_ - _%rest182610%_))))) - (if (pair? _%type-info182612182626%_) - (let ((_%hd182617182648%_ + (_%lp183875%_ + _%rest183897%_))) + (_%lp183875%_ + _%rest183897%_))))) + (if (pair? _%type-info183899183913%_) + (let ((_%hd183904183935%_ (let () (declare (not safe)) - (##car _%type-info182612182626%_))) - (_%tl182618182650%_ + (##car _%type-info183899183913%_))) + (_%tl183905183937%_ (let () (declare (not safe)) - (##cdr _%type-info182612182626%_)))) - (let ((_%xid182653%_ - _%hd182617182648%_)) - (if (pair? _%tl182618182650%_) - (let ((_%hd182619182655%_ + (##cdr _%type-info183899183913%_)))) + (let ((_%xid183940%_ + _%hd183904183935%_)) + (if (pair? _%tl183905183937%_) + (let ((_%hd183906183942%_ (let () (declare (not safe)) - (##car _%tl182618182650%_))) - (_%tl182620182657%_ + (##car _%tl183905183937%_))) + (_%tl183907183944%_ (let () (declare (not safe)) - (##cdr _%tl182618182650%_)))) - (let ((_%xsym182660%_ - _%hd182619182655%_)) - (if (pair? _%tl182620182657%_) - (let ((_%hd182621182662%_ + (##cdr _%tl183905183937%_)))) + (let ((_%xsym183947%_ + _%hd183906183942%_)) + (if (pair? _%tl183907183944%_) + (let ((_%hd183908183949%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl182620182657%_))) - (_%tl182622182664%_ + (##car _%tl183907183944%_))) + (_%tl183909183951%_ (let () (declare (not safe)) - (##cdr _%tl182620182657%_)))) - (let ((_%xcount182667%_ _%hd182621182662%_)) - (if (pair? _%tl182622182664%_) - (let ((_%hd182623182669%_ + (##cdr _%tl183907183944%_)))) + (let ((_%xcount183954%_ _%hd183908183949%_)) + (if (pair? _%tl183909183951%_) + (let ((_%hd183910183956%_ (let () (declare (not safe)) - (##car _%tl182622182664%_))) - (_%tl182624182671%_ + (##car _%tl183909183951%_))) + (_%tl183911183958%_ (let () (declare (not safe)) - (##cdr _%tl182622182664%_)))) - (let ((_%val182674%_ _%hd182623182669%_)) - (if (null? _%tl182624182671%_) - (_%K182616182645%_ - _%val182674%_ - _%xcount182667%_ - _%xsym182660%_ - _%xid182653%_) - (_%else182614182634%_)))) - (_%else182614182634%_)))) - (_%else182614182634%_)))) + (##cdr _%tl183909183951%_)))) + (let ((_%val183961%_ _%hd183910183956%_)) + (if (null? _%tl183911183958%_) + (_%K183903183932%_ + _%val183961%_ + _%xcount183954%_ + _%xsym183947%_ + _%xid183940%_) + (_%else183901183921%_)))) + (_%else183901183921%_)))) + (_%else183901183921%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else182614182634%_)))) - (_%else182614182634%_)))))) - (if (pair? _%rest182591182599%_) - (let ((_%hd182596182679%_ + (_%else183901183921%_)))) + (_%else183901183921%_)))))) + (if (pair? _%rest183878183886%_) + (let ((_%hd183883183966%_ (let () (declare (not safe)) - (##car _%rest182591182599%_))) - (_%tl182597182681%_ + (##car _%rest183878183886%_))) + (_%tl183884183968%_ (let () (declare (not safe)) - (##cdr _%rest182591182599%_)))) - (let* ((_%type-info182684%_ _%hd182596182679%_) - (_%rest182686%_ _%tl182597182681%_)) - (_%K182595182676%_ - _%rest182686%_ - _%type-info182684%_))) - (_%else182593182607%_)))))) - (_%assert-eqf181784%_ - (lambda (_%id182471%_ _%sym182472%_ _%datum182473%_) - (letrec ((_%eqf182475%_ - (lambda (_%sym182579%_) - (let ((_%$e182581%_ _%sym182579%_)) - (if (eq? 'eq? _%$e182581%_) + (##cdr _%rest183878183886%_)))) + (let* ((_%type-info183971%_ _%hd183883183966%_) + (_%rest183973%_ _%tl183884183968%_)) + (_%K183882183963%_ + _%rest183973%_ + _%type-info183971%_))) + (_%else183880183894%_)))))) + (_%assert-eqf183071%_ + (lambda (_%id183758%_ _%sym183759%_ _%datum183760%_) + (letrec ((_%eqf183762%_ + (lambda (_%sym183866%_) + (let ((_%$e183868%_ _%sym183866%_)) + (if (eq? 'eq? _%$e183868%_) eq? - (if (eq? 'eqv? _%$e182581%_) + (if (eq? 'eqv? _%$e183868%_) eqv? - (if (eq? 'equal? _%$e182581%_) + (if (eq? 'equal? _%$e183868%_) equal? (if (eq? 'free-identifier=? - _%$e182581%_) + _%$e183868%_) gx#free-identifier=? (if (eq? 'stx-eq? - _%$e182581%_) + _%$e183868%_) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _%body181525%_ - _%sym182579%_))))))))))) - (let _%lp182477%_ ((_%rest182479%_ _%env-type181764%_)) - (let* ((_%rest182480182488%_ _%rest182479%_) - (_%else182482182496%_ (lambda () '#!void)) - (_%K182484182567%_ - (lambda (_%rest182499%_ _%type-info182500%_) - (let* ((_%type-info182501182515%_ - _%type-info182500%_) - (_%else182503182523%_ + _%body182812%_ + _%sym183866%_))))))))))) + (let _%lp183764%_ ((_%rest183766%_ _%env-type183051%_)) + (let* ((_%rest183767183775%_ _%rest183766%_) + (_%else183769183783%_ (lambda () '#!void)) + (_%K183771183854%_ + (lambda (_%rest183786%_ _%type-info183787%_) + (let* ((_%type-info183788183802%_ + _%type-info183787%_) + (_%else183790183810%_ (lambda () - (_%lp182477%_ _%rest182499%_))) - (_%K182505182536%_ - (lambda (_%val182526%_ - _%xdatum182527%_ - _%xsym182528%_ - _%xid182529%_) - (if (and (eq? _%sym182472%_ - _%xsym182528%_) + (_%lp183764%_ _%rest183786%_))) + (_%K183792183823%_ + (lambda (_%val183813%_ + _%xdatum183814%_ + _%xsym183815%_ + _%xid183816%_) + (if (and (eq? _%sym183759%_ + _%xsym183815%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id182471%_ - _%xid182529%_))) - (let ((_%=?182531%_ - (_%eqf182475%_ - _%sym182472%_))) - (if _%val182526%_ - (_%=?182531%_ - _%datum182473%_ - _%xdatum182527%_) - (if (_%=?182531%_ - _%datum182473%_ - _%xdatum182527%_) + _%id183758%_ + _%xid183816%_))) + (let ((_%=?183818%_ + (_%eqf183762%_ + _%sym183759%_))) + (if _%val183813%_ + (_%=?183818%_ + _%datum183760%_ + _%xdatum183814%_) + (if (_%=?183818%_ + _%datum183760%_ + _%xdatum183814%_) '#f - (_%lp182477%_ - _%rest182499%_)))) - (_%lp182477%_ - _%rest182499%_))))) - (if (pair? _%type-info182501182515%_) - (let ((_%hd182506182539%_ + (_%lp183764%_ + _%rest183786%_)))) + (_%lp183764%_ + _%rest183786%_))))) + (if (pair? _%type-info183788183802%_) + (let ((_%hd183793183826%_ (let () (declare (not safe)) - (##car _%type-info182501182515%_))) - (_%tl182507182541%_ + (##car _%type-info183788183802%_))) + (_%tl183794183828%_ (let () (declare (not safe)) - (##cdr _%type-info182501182515%_)))) - (let ((_%xid182544%_ - _%hd182506182539%_)) - (if (pair? _%tl182507182541%_) - (let ((_%hd182508182546%_ + (##cdr _%type-info183788183802%_)))) + (let ((_%xid183831%_ + _%hd183793183826%_)) + (if (pair? _%tl183794183828%_) + (let ((_%hd183795183833%_ (let () (declare (not safe)) - (##car _%tl182507182541%_))) - (_%tl182509182548%_ + (##car _%tl183794183828%_))) + (_%tl183796183835%_ (let () (declare (not safe)) - (##cdr _%tl182507182541%_)))) - (let ((_%xsym182551%_ - _%hd182508182546%_)) - (if (pair? _%tl182509182548%_) - (let ((_%hd182510182553%_ + (##cdr _%tl183794183828%_)))) + (let ((_%xsym183838%_ + _%hd183795183833%_)) + (if (pair? _%tl183796183835%_) + (let ((_%hd183797183840%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%tl182509182548%_))) - (_%tl182511182555%_ + (##car _%tl183796183835%_))) + (_%tl183798183842%_ (let () (declare (not safe)) - (##cdr _%tl182509182548%_)))) - (let ((_%xdatum182558%_ _%hd182510182553%_)) - (if (pair? _%tl182511182555%_) - (let ((_%hd182512182560%_ + (##cdr _%tl183796183835%_)))) + (let ((_%xdatum183845%_ _%hd183797183840%_)) + (if (pair? _%tl183798183842%_) + (let ((_%hd183799183847%_ (let () (declare (not safe)) - (##car _%tl182511182555%_))) - (_%tl182513182562%_ + (##car _%tl183798183842%_))) + (_%tl183800183849%_ (let () (declare (not safe)) - (##cdr _%tl182511182555%_)))) - (let ((_%val182565%_ _%hd182512182560%_)) - (if (null? _%tl182513182562%_) - (_%K182505182536%_ - _%val182565%_ - _%xdatum182558%_ - _%xsym182551%_ - _%xid182544%_) - (_%else182503182523%_)))) - (_%else182503182523%_)))) - (_%else182503182523%_)))) + (##cdr _%tl183798183842%_)))) + (let ((_%val183852%_ _%hd183799183847%_)) + (if (null? _%tl183800183849%_) + (_%K183792183823%_ + _%val183852%_ + _%xdatum183845%_ + _%xsym183838%_ + _%xid183831%_) + (_%else183790183810%_)))) + (_%else183790183810%_)))) + (_%else183790183810%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else182503182523%_)))) - (_%else182503182523%_)))))) - (if (pair? _%rest182480182488%_) - (let ((_%hd182485182570%_ + (_%else183790183810%_)))) + (_%else183790183810%_)))))) + (if (pair? _%rest183767183775%_) + (let ((_%hd183772183857%_ (let () (declare (not safe)) - (##car _%rest182480182488%_))) - (_%tl182486182572%_ + (##car _%rest183767183775%_))) + (_%tl183773183859%_ (let () (declare (not safe)) - (##cdr _%rest182480182488%_)))) - (let* ((_%type-info182575%_ - _%hd182485182570%_) - (_%rest182577%_ _%tl182486182572%_)) - (_%K182484182567%_ - _%rest182577%_ - _%type-info182575%_))) - (_%else182482182496%_))))))) - (_%bind-e__189139189140%_ - (lambda (_%bind182373%_ _%body182374%_ _%continue182375%_) - (let _%lp182377%_ ((_%rest182379%_ _%bind182373%_) - (_%subst182380%_ '()) - (_%locals182381%_ '()) - (_%env182382%_ _%env-bind181765%_)) - (let* ((_%rest182383182391%_ _%rest182379%_) - (_%else182385182405%_ + (##cdr _%rest183767183775%_)))) + (let* ((_%type-info183862%_ + _%hd183772183857%_) + (_%rest183864%_ _%tl183773183859%_)) + (_%K183771183854%_ + _%rest183864%_ + _%type-info183862%_))) + (_%else183769183783%_))))))) + (_%bind-e__190426190427%_ + (lambda (_%bind183660%_ _%body183661%_ _%continue183662%_) + (let _%lp183664%_ ((_%rest183666%_ _%bind183660%_) + (_%subst183667%_ '()) + (_%locals183668%_ '()) + (_%env183669%_ _%env-bind183052%_)) + (let* ((_%rest183670183678%_ _%rest183666%_) + (_%else183672183692%_ (lambda () - (let* ((_%body182399%_ - (if (null? _%subst182380%_) - _%body182374%_ + (let* ((_%body183686%_ + (if (null? _%subst183667%_) + _%body183661%_ (let () (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst182380%_ - _%body182374%_)))) - (_%body182402%_ - (_%do-bind!181776%_ - _%env182382%_ + _%subst183667%_ + _%body183661%_)))) + (_%body183689%_ + (_%do-bind!183063%_ + _%env183669%_ (lambda () - (_%continue182375%_ - _%body182399%_))))) - (if (null? _%locals182381%_) - _%body182402%_ + (_%continue183662%_ + _%body183686%_))))) + (if (null? _%locals183668%_) + _%body183689%_ (cons '%#let-values - (cons _%locals182381%_ - (cons _%body182402%_ + (cons _%locals183668%_ + (cons _%body183689%_ '()))))))) - (_%K182387182447%_ - (lambda (_%rest182408%_ _%bind182409%_) - (let* ((_%bind182410182417%_ _%bind182409%_) - (_%E182412182421%_ + (_%K183674183734%_ + (lambda (_%rest183695%_ _%bind183696%_) + (let* ((_%bind183697183704%_ _%bind183696%_) + (_%E183699183708%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind182410182417%_ + _%bind183697183704%_ '([id . expr]))) '#!void)) - (_%K182413182435%_ - (lambda (_%expr182424%_ _%id182425%_) - (let* ((_%sexpr182427%_ + (_%K183700183722%_ + (lambda (_%expr183711%_ _%id183712%_) + (let* ((_%sexpr183714%_ (gxc#apply-generate-runtime-repr - _%expr182424%_)) - (_%$e182429%_ + _%expr183711%_)) + (_%$e183716%_ (let () (declare (not safe)) - (aget__0 _%sexpr182427%_ - _%env-bind181765%_)))) - (if _%$e182429%_ - ((lambda (_%xid182432%_) - (_%lp182377%_ - _%rest182408%_ - (cons (cons _%id182425%_ + (aget__0 _%sexpr183714%_ + _%env-bind183052%_)))) + (if _%$e183716%_ + ((lambda (_%xid183719%_) + (_%lp183664%_ + _%rest183695%_ + (cons (cons _%id183712%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%xid182432%_) - _%subst182380%_) + _%xid183719%_) + _%subst183667%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%locals182381%_ - _%env182382%_)) - _%$e182429%_) - (_%lp182377%_ - _%rest182408%_ - _%subst182380%_ - (cons (cons (cons _%id182425%_ + _%locals183668%_ + _%env183669%_)) + _%$e183716%_) + (_%lp183664%_ + _%rest183695%_ + _%subst183667%_ + (cons (cons (cons _%id183712%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%expr182424%_ '())) - _%locals182381%_) + (cons _%expr183711%_ '())) + _%locals183668%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%sexpr182427%_ - _%id182425%_) - _%env182382%_))))))) - (if (pair? _%bind182410182417%_) - (let ((_%hd182414182438%_ + (cons (cons _%sexpr183714%_ + _%id183712%_) + _%env183669%_))))))) + (if (pair? _%bind183697183704%_) + (let ((_%hd183701183725%_ (let () (declare (not safe)) - (##car _%bind182410182417%_))) - (_%tl182415182440%_ + (##car _%bind183697183704%_))) + (_%tl183702183727%_ (let () (declare (not safe)) - (##cdr _%bind182410182417%_)))) - (let* ((_%id182443%_ - _%hd182414182438%_) - (_%expr182445%_ - _%tl182415182440%_)) - (_%K182413182435%_ - _%expr182445%_ - _%id182443%_))) - (_%E182412182421%_)))))) - (if (pair? _%rest182383182391%_) - (let ((_%hd182388182450%_ + (##cdr _%bind183697183704%_)))) + (let* ((_%id183730%_ + _%hd183701183725%_) + (_%expr183732%_ + _%tl183702183727%_)) + (_%K183700183722%_ + _%expr183732%_ + _%id183730%_))) + (_%E183699183708%_)))))) + (if (pair? _%rest183670183678%_) + (let ((_%hd183675183737%_ (let () (declare (not safe)) - (##car _%rest182383182391%_))) - (_%tl182389182452%_ + (##car _%rest183670183678%_))) + (_%tl183676183739%_ (let () (declare (not safe)) - (##cdr _%rest182383182391%_)))) - (let* ((_%bind182455%_ _%hd182388182450%_) - (_%rest182457%_ _%tl182389182452%_)) - (_%K182387182447%_ - _%rest182457%_ - _%bind182455%_))) - (_%else182385182405%_)))))) - (_%bind-e__0__189141189142%_ - (lambda (_%bind182462%_ _%body182463%_) - (let ((_%continue182465%_ _%optimize-e181778%_)) - (_%bind-e__189139189140%_ - _%bind182462%_ - _%body182463%_ - _%continue182465%_)))) - (_%bind-e181785%_ - (lambda _g192298_ - (let ((_g192297_ + (##cdr _%rest183670183678%_)))) + (let* ((_%bind183742%_ _%hd183675183737%_) + (_%rest183744%_ _%tl183676183739%_)) + (_%K183674183734%_ + _%rest183744%_ + _%bind183742%_))) + (_%else183672183692%_)))))) + (_%bind-e__0__190428190429%_ + (lambda (_%bind183749%_ _%body183750%_) + (let ((_%continue183752%_ _%optimize-e183065%_)) + (_%bind-e__190426190427%_ + _%bind183749%_ + _%body183750%_ + _%continue183752%_)))) + (_%bind-e183072%_ + (lambda _g193585_ + (let ((_g193584_ (let () (declare (not safe)) - (##length _g192298_)))) - (cond ((let () (declare (not safe)) (##fx= _g192297_ 2)) - (apply _%bind-e__0__189141189142%_ _g192298_)) - ((let () (declare (not safe)) (##fx= _g192297_ 3)) - (apply _%bind-e__189139189140%_ _g192298_)) + (##length _g193585_)))) + (cond ((let () (declare (not safe)) (##fx= _g193584_ 2)) + (apply _%bind-e__0__190428190429%_ _g193585_)) + ((let () (declare (not safe)) (##fx= _g193584_ 3)) + (apply _%bind-e__190426190427%_ _g193585_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g192298_)))))) - (_%lookup-block181786%_ - (lambda (_%id182368%_) - (let ((__tmp192299 - (lambda (_%block182370%_) - (let ((__tmp192300 (car _%block182370%_))) + _g193585_)))))) + (_%lookup-block183073%_ + (lambda (_%id183655%_) + (let ((__tmp193586 + (lambda (_%block183657%_) + (let ((__tmp193587 (car _%block183657%_))) (declare (not safe)) (gx#free-identifier=? - __tmp192300 - _%id182368%_))))) + __tmp193587 + _%id183655%_))))) (declare (not safe)) - (__find __tmp192299 _%blocks181528%_)))) - (_%inline-block181787%_ - (lambda (_%block182244%_ _%args182245%_) - (let* ((_%kont182247%_ (caddr _%block182244%_)) - (_%g182249182275%_ - (lambda (_%g182250182272%_) + (__find __tmp193586 _%blocks182815%_)))) + (_%inline-block183074%_ + (lambda (_%block183531%_ _%args183532%_) + (let* ((_%kont183534%_ (caddr _%block183531%_)) + (_%g183536183562%_ + (lambda (_%g183537183559%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g182250182272%_)))) - (_%g182248182365%_ - (lambda (_%g182250182278%_) + _%g183537183559%_)))) + (_%g183535183652%_ + (lambda (_%g183537183565%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g182250182278%_)) - (let ((_%e182253182280%_ + (gx#stx-pair? _%g183537183565%_)) + (let ((_%e183540183567%_ (let () (declare (not safe)) - (gx#stx-e _%g182250182278%_)))) - (let ((_%hd182254182283%_ + (gx#stx-e _%g183537183565%_)))) + (let ((_%hd183541183570%_ (let () (declare (not safe)) - (##car _%e182253182280%_))) - (_%tl182255182285%_ + (##car _%e183540183567%_))) + (_%tl183542183572%_ (let () (declare (not safe)) - (##cdr _%e182253182280%_)))) + (##cdr _%e183540183567%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182254182283%_)) + _%hd183541183570%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd182254182283%_)) + _%hd183541183570%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182255182285%_)) - (let ((_%e182256182288%_ + _%tl183542183572%_)) + (let ((_%e183543183575%_ (let () (declare (not safe)) (gx#stx-e - _%tl182255182285%_)))) - (let ((_%hd182257182291%_ + _%tl183542183572%_)))) + (let ((_%hd183544183578%_ (let () (declare (not safe)) - (##car _%e182256182288%_))) - (_%tl182258182293%_ + (##car _%e183543183575%_))) + (_%tl183545183580%_ (let () (declare (not safe)) - (##cdr _%e182256182288%_)))) + (##cdr _%e183543183575%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd182257182291%_)) - (let ((_g192301_ + _%hd183544183578%_)) + (let ((_g193588_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd182257182291%_ '0)))) + (gx#syntax-split-splice _%hd183544183578%_ '0)))) (begin - (let ((_g192302_ + (let ((_g193589_ (let () (declare (not safe)) - (if (##values? _g192301_) - (##vector-length _g192301_) + (if (##values? _g193588_) + (##values-length _g193588_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192302_ 2))) - (error "Context expects 2 values" _g192302_))) - (let ((_%target182259182296%_ + (##fx= _g193589_ 2))) + (error "Context expects 2 values" _g193589_))) + (let ((_%target183546183583%_ (let () (declare (not safe)) - (##vector-ref _g192301_ 0))) - (_%tl182261182298%_ + (##values-ref _g193588_ 0))) + (_%tl183548183585%_ (let () (declare (not safe)) - (##vector-ref _g192301_ 1)))) + (##values-ref _g193588_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182261182298%_)) - (letrec ((_%loop182262182301%_ - (lambda (_%hd182260182304%_ - _%id182266182306%_) + (gx#stx-null? _%tl183548183585%_)) + (letrec ((_%loop183549183588%_ + (lambda (_%hd183547183591%_ + _%id183553183593%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182260182304%_)) - (let ((_%e182263182309%_ + _%hd183547183591%_)) + (let ((_%e183550183596%_ (let () (declare (not safe)) (gx#stx-e - _%hd182260182304%_)))) - (let ((_%lp-hd182264182312%_ + _%hd183547183591%_)))) + (let ((_%lp-hd183551183599%_ (let () (declare (not safe)) - (##car _%e182263182309%_))) - (_%lp-tl182265182314%_ + (##car _%e183550183596%_))) + (_%lp-tl183552183601%_ (let () (declare (not safe)) - (##cdr _%e182263182309%_)))) - (_%loop182262182301%_ - _%lp-tl182265182314%_ - (cons _%lp-hd182264182312%_ - _%id182266182306%_)))) - (let ((_%id182267182317%_ - (reverse _%id182266182306%_))) + (##cdr _%e183550183596%_)))) + (_%loop183549183588%_ + _%lp-tl183552183601%_ + (cons _%lp-hd183551183599%_ + _%id183553183593%_)))) + (let ((_%id183554183604%_ + (reverse _%id183553183593%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182258182293%_)) - (let ((_%e182268182320%_ + _%tl183545183580%_)) + (let ((_%e183555183607%_ (let () (declare (not safe)) (gx#stx-e - _%tl182258182293%_)))) - (let ((_%hd182269182323%_ + _%tl183545183580%_)))) + (let ((_%hd183556183610%_ (let () (declare (not safe)) - (##car _%e182268182320%_))) - (_%tl182270182325%_ + (##car _%e183555183607%_))) + (_%tl183557183612%_ (let () (declare (not safe)) - (##cdr _%e182268182320%_)))) + (##cdr _%e183555183607%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182270182325%_)) - ((lambda (_%L182328%_ + _%tl183557183612%_)) + ((lambda (_%L183615%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L182329%_) - (if (null? (let ((__tmp192303 - (lambda (_%g182348182351%_ - _%g182349182353%_) - (cons _%g182348182351%_ - _%g182349182353%_)))) + _%L183616%_) + (if (null? (let ((__tmp193590 + (lambda (_%g183635183638%_ + _%g183636183640%_) + (cons _%g183635183638%_ + _%g183636183640%_)))) (declare (not safe)) - (__foldr1 __tmp192303 '() _%L182329%_))) - _%L182328%_ - (let ((_%subst182363%_ + (__foldr1 __tmp193590 '() _%L183616%_))) + _%L183615%_ + (let ((_%subst183650%_ (map cons - (let ((__tmp192304 - (lambda (_%g182355182358%_ - _%g182356182360%_) - (cons _%g182355182358%_ - _%g182356182360%_)))) + (let ((__tmp193591 + (lambda (_%g183642183645%_ + _%g183643183647%_) + (cons _%g183642183645%_ + _%g183643183647%_)))) (declare (not safe)) - (__foldr1 __tmp192304 '() _%L182329%_)) - _%args182245%_))) + (__foldr1 __tmp193591 '() _%L183616%_)) + _%args183532%_))) (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst182363%_ - _%L182328%_)))) - _%hd182269182323%_ - _%id182267182317%_) - (_%g182249182275%_ _%g182250182278%_)))) + _%subst183650%_ + _%L183615%_)))) + _%hd183556183610%_ + _%id183554183604%_) + (_%g183536183562%_ _%g183537183565%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g182249182275%_ - _%g182250182278%_))))))) - (_%loop182262182301%_ - _%target182259182296%_ + (_%g183536183562%_ + _%g183537183565%_))))))) + (_%loop183549183588%_ + _%target183546183583%_ '())) - (_%g182249182275%_ _%g182250182278%_))))) - (_%g182249182275%_ _%g182250182278%_)))) + (_%g183536183562%_ _%g183537183565%_))))) + (_%g183536183562%_ _%g183537183565%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g182249182275%_ - _%g182250182278%_)) - (_%g182249182275%_ - _%g182250182278%_)) - (_%g182249182275%_ - _%g182250182278%_)))) - (_%g182249182275%_ _%g182250182278%_))))) - (_%g182248182365%_ _%kont182247%_)))) - (_%nonlinear-block?181788%_ - (lambda (_%block181793%_) - (letrec ((_%nonlinear-expr?181795%_ - (lambda (_%expr181903%_) - (let* ((_%__stx191212191213%_ _%expr181903%_) - (_%g181909181975%_ + (_%g183536183562%_ + _%g183537183565%_)) + (_%g183536183562%_ + _%g183537183565%_)) + (_%g183536183562%_ + _%g183537183565%_)))) + (_%g183536183562%_ _%g183537183565%_))))) + (_%g183535183652%_ _%kont183534%_)))) + (_%nonlinear-block?183075%_ + (lambda (_%block183080%_) + (letrec ((_%nonlinear-expr?183082%_ + (lambda (_%expr183190%_) + (let* ((_%__stx192499192500%_ _%expr183190%_) + (_%g183196183262%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191212191213%_))))) - (let ((_%__kont191214191215%_ + _%__stx192499192500%_))))) + (let ((_%__kont192501192502%_ (lambda () '#t)) - (_%__kont191216191217%_ - (lambda (_%L182174%_) - (let* ((_%__stx191194191195%_ - _%L182174%_) - (_%g182192182201%_ + (_%__kont192503192504%_ + (lambda (_%L183461%_) + (let* ((_%__stx192481192482%_ + _%L183461%_) + (_%g183479183488%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191194191195%_))))) - (let ((_%__kont191196191197%_ + _%__stx192481192482%_))))) + (let ((_%__kont192483192484%_ (lambda () '#f)) - (_%__kont191198191199%_ + (_%__kont192485192486%_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx191194191195%_)) - (let ((_%e182194182213%_ + _%__stx192481192482%_)) + (let ((_%e183481183500%_ (let () (declare (not safe)) (gx#stx-e - _%__stx191194191195%_)))) - (let ((_%tl182196182218%_ + _%__stx192481192482%_)))) + (let ((_%tl183483183505%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e182194182213%_))) - (_%hd182195182216%_ - (let () (declare (not safe)) (##car _%e182194182213%_)))) + (##cdr _%e183481183500%_))) + (_%hd183482183503%_ + (let () (declare (not safe)) (##car _%e183481183500%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182195182216%_)) + (gx#identifier? _%hd183482183503%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd182195182216%_)) - (_%__kont191196191197%_) - (_%__kont191198191199%_)) - (_%__kont191198191199%_)))) + (gx#stx-eq? '%#call _%hd183482183503%_)) + (_%__kont192483192484%_) + (_%__kont192485192486%_)) + (_%__kont192485192486%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191198191199%_)))))) - (_%__kont191220191221%_ - (lambda (_%L182072%_) - (_%nonlinear-expr?181795%_ - _%L182072%_))) - (_%__kont191222191223%_ - (lambda (_%L182019%_ - _%L182020%_ - _%L182021%_) - (let ((_%$e182040%_ - (_%nonlinear-expr?181795%_ - _%L182020%_))) - (if _%$e182040%_ - _%$e182040%_ - (_%nonlinear-expr?181795%_ - _%L182019%_))))) - (_%__kont191224191225%_ + (_%__kont192485192486%_)))))) + (_%__kont192507192508%_ + (lambda (_%L183359%_) + (_%nonlinear-expr?183082%_ + _%L183359%_))) + (_%__kont192509192510%_ + (lambda (_%L183306%_ + _%L183307%_ + _%L183308%_) + (let ((_%$e183327%_ + (_%nonlinear-expr?183082%_ + _%L183307%_))) + (if _%$e183327%_ + _%$e183327%_ + (_%nonlinear-expr?183082%_ + _%L183306%_))))) + (_%__kont192511192512%_ (lambda () '#f))) - (let* ((_%__match191275191276%_ - (lambda (_%e181947182048%_ - _%hd181948182051%_ - _%tl181949182053%_ - _%e181950182056%_ - _%hd181951182059%_ - _%tl181952182061%_) + (let* ((_%__match192562192563%_ + (lambda (_%e183234183335%_ + _%hd183235183338%_ + _%tl183236183340%_ + _%e183237183343%_ + _%hd183238183346%_ + _%tl183239183348%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181952182061%_)) - (let ((_%e181953182064%_ + _%tl183239183348%_)) + (let ((_%e183240183351%_ (let () (declare (not safe)) (gx#stx-e - _%tl181952182061%_)))) - (let ((_%tl181955182069%_ + _%tl183239183348%_)))) + (let ((_%tl183242183356%_ (let () (declare (not safe)) - (##cdr _%e181953182064%_))) - (_%hd181954182067%_ + (##cdr _%e183240183351%_))) + (_%hd183241183354%_ (let () (declare (not safe)) - (##car _%e181953182064%_)))) + (##car _%e183240183351%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181955182069%_)) - (_%__kont191220191221%_ - _%hd181954182067%_) - (_%__kont191224191225%_)))) - (_%__kont191224191225%_)))) - (_%__match191259191260%_ - (lambda (_%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_ - _%__splice191218191219%_ - _%target181921182106%_ - _%tl181923182108%_) - (letrec ((_%loop181924182111%_ - (lambda (_%hd181922182114%_) + _%tl183242183356%_)) + (_%__kont192507192508%_ + _%hd183241183354%_) + (_%__kont192511192512%_)))) + (_%__kont192511192512%_)))) + (_%__match192546192547%_ + (lambda (_%e183202183377%_ + _%hd183203183380%_ + _%tl183204183382%_ + _%e183205183385%_ + _%hd183206183388%_ + _%tl183207183390%_ + _%__splice192505192506%_ + _%target183208183393%_ + _%tl183210183395%_) + (letrec ((_%loop183211183398%_ + (lambda (_%hd183209183401%_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%hd181922182114%_)) - (let ((_%e181925182117%_ + (gx#stx-pair? _%hd183209183401%_)) + (let ((_%e183212183404%_ (let () (declare (not safe)) - (gx#stx-e _%hd181922182114%_)))) - (let ((_%lp-tl181927182122%_ + (gx#stx-e _%hd183209183401%_)))) + (let ((_%lp-tl183214183409%_ (let () (declare (not safe)) - (##cdr _%e181925182117%_))) - (_%lp-hd181926182120%_ + (##cdr _%e183212183404%_))) + (_%lp-hd183213183407%_ (let () (declare (not safe)) - (##car _%e181925182117%_)))) + (##car _%e183212183404%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd181926182120%_)) - (let ((_%e181931182125%_ + (gx#stx-pair? _%lp-hd183213183407%_)) + (let ((_%e183218183412%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd181926182120%_)))) - (let ((_%tl181933182130%_ + (gx#stx-e _%lp-hd183213183407%_)))) + (let ((_%tl183220183417%_ (let () (declare (not safe)) - (##cdr _%e181931182125%_))) - (_%hd181932182128%_ + (##cdr _%e183218183412%_))) + (_%hd183219183415%_ (let () (declare (not safe)) - (##car _%e181931182125%_)))) + (##car _%e183218183412%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181932182128%_)) - (let ((_%e181934182133%_ + (gx#stx-pair? _%hd183219183415%_)) + (let ((_%e183221183420%_ (let () (declare (not safe)) (gx#stx-e - _%hd181932182128%_)))) - (let ((_%tl181936182138%_ + _%hd183219183415%_)))) + (let ((_%tl183223183425%_ (let () (declare (not safe)) - (##cdr _%e181934182133%_))) - (_%hd181935182136%_ + (##cdr _%e183221183420%_))) + (_%hd183222183423%_ (let () (declare (not safe)) - (##car _%e181934182133%_)))) + (##car _%e183221183420%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181936182138%_)) + _%tl183223183425%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181933182130%_)) - (let ((_%e181937182141%_ + _%tl183220183417%_)) + (let ((_%e183224183428%_ (let () (declare (not safe)) (gx#stx-e - _%tl181933182130%_)))) - (let ((_%tl181939182146%_ + _%tl183220183417%_)))) + (let ((_%tl183226183433%_ (let () (declare (not safe)) - (##cdr _%e181937182141%_))) - (_%hd181938182144%_ + (##cdr _%e183224183428%_))) + (_%hd183225183431%_ (let () (declare (not safe)) - (##car _%e181937182141%_)))) + (##car _%e183224183428%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181938182144%_)) - (let ((_%e181940182149%_ + _%hd183225183431%_)) + (let ((_%e183227183436%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd181938182144%_)))) - (let ((_%tl181942182154%_ + (gx#stx-e _%hd183225183431%_)))) + (let ((_%tl183229183441%_ (let () (declare (not safe)) - (##cdr _%e181940182149%_))) - (_%hd181941182152%_ + (##cdr _%e183227183436%_))) + (_%hd183228183439%_ (let () (declare (not safe)) - (##car _%e181940182149%_)))) + (##car _%e183227183436%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181941182152%_)) + (gx#identifier? _%hd183228183439%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd181941182152%_)) + (gx#stx-eq? '%#ref _%hd183228183439%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181942182154%_)) - (let ((_%e181943182157%_ + (gx#stx-pair? _%tl183229183441%_)) + (let ((_%e183230183444%_ (let () (declare (not safe)) - (gx#stx-e _%tl181942182154%_)))) - (let ((_%tl181945182162%_ + (gx#stx-e _%tl183229183441%_)))) + (let ((_%tl183232183449%_ (let () (declare (not safe)) - (##cdr _%e181943182157%_))) - (_%hd181944182160%_ + (##cdr _%e183230183444%_))) + (_%hd183231183447%_ (let () (declare (not safe)) - (##car _%e181943182157%_)))) + (##car _%e183230183444%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181945182162%_)) + (gx#stx-null? _%tl183232183449%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181939182146%_)) - (_%loop181924182111%_ - _%lp-tl181927182122%_) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)))) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)))) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)))) + _%tl183226183433%_)) + (_%loop183211183398%_ + _%lp-tl183214183409%_) + (_%__match192562192563%_ + _%e183202183377%_ + _%hd183203183380%_ + _%tl183204183382%_ + _%e183205183385%_ + _%hd183206183388%_ + _%tl183207183390%_)) + (_%__match192562192563%_ + _%e183202183377%_ + _%hd183203183380%_ + _%tl183204183382%_ + _%e183205183385%_ + _%hd183206183388%_ + _%tl183207183390%_)))) + (_%__match192562192563%_ + _%e183202183377%_ + _%hd183203183380%_ + _%tl183204183382%_ + _%e183205183385%_ + _%hd183206183388%_ + _%tl183207183390%_)) + (_%__match192562192563%_ + _%e183202183377%_ + _%hd183203183380%_ + _%tl183204183382%_ + _%e183205183385%_ + _%hd183206183388%_ + _%tl183207183390%_)) + (_%__match192562192563%_ + _%e183202183377%_ + _%hd183203183380%_ + _%tl183204183382%_ + _%e183205183385%_ + _%hd183206183388%_ + _%tl183207183390%_)))) + (_%__match192562192563%_ + _%e183202183377%_ + _%hd183203183380%_ + _%tl183204183382%_ + _%e183205183385%_ + _%hd183206183388%_ + _%tl183207183390%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)))) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)))) - (_%__match191275191276%_ - _%e181915182090%_ - _%hd181916182093%_ - _%tl181917182095%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_)))) + (_%__match192562192563%_ + _%e183202183377%_ + _%hd183203183380%_ + _%tl183204183382%_ + _%e183205183385%_ + _%hd183206183388%_ + _%tl183207183390%_)) + (_%__match192562192563%_ + _%e183202183377%_ + _%hd183203183380%_ + _%tl183204183382%_ + _%e183205183385%_ + _%hd183206183388%_ + _%tl183207183390%_)))) + (_%__match192562192563%_ + _%e183202183377%_ + _%hd183203183380%_ + _%tl183204183382%_ + _%e183205183385%_ + _%hd183206183388%_ + _%tl183207183390%_)))) + (_%__match192562192563%_ + _%e183202183377%_ + _%hd183203183380%_ + _%tl183204183382%_ + _%e183205183385%_ + _%hd183206183388%_ + _%tl183207183390%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181920182103%_)) - (let ((_%e181928182166%_ + (gx#stx-pair? _%tl183207183390%_)) + (let ((_%e183215183453%_ (let () (declare (not safe)) - (gx#stx-e _%tl181920182103%_)))) - (let ((_%tl181930182171%_ + (gx#stx-e _%tl183207183390%_)))) + (let ((_%tl183217183458%_ (let () (declare (not safe)) - (##cdr _%e181928182166%_))) - (_%hd181929182169%_ + (##cdr _%e183215183453%_))) + (_%hd183216183456%_ (let () (declare (not safe)) - (##car _%e181928182166%_)))) + (##car _%e183215183453%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181930182171%_)) - (_%__kont191216191217%_ _%hd181929182169%_) - (_%__kont191224191225%_)))) - (_%__kont191224191225%_)))))) + (gx#stx-null? _%tl183217183458%_)) + (_%__kont192503192504%_ _%hd183216183456%_) + (_%__kont192511192512%_)))) + (_%__kont192511192512%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop181924182111%_ - _%target181921182106%_))))) + (_%loop183211183398%_ + _%target183208183393%_))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx191212191213%_)) - (let ((_%e181911182231%_ + _%__stx192499192500%_)) + (let ((_%e183198183518%_ (let () (declare (not safe)) (gx#stx-e - _%__stx191212191213%_)))) - (let ((_%tl181913182236%_ + _%__stx192499192500%_)))) + (let ((_%tl183200183523%_ (let () (declare (not safe)) - (##cdr _%e181911182231%_))) - (_%hd181912182234%_ + (##cdr _%e183198183518%_))) + (_%hd183199183521%_ (let () (declare (not safe)) - (##car _%e181911182231%_)))) + (##car _%e183198183518%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181912182234%_)) + _%hd183199183521%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd181912182234%_)) - (_%__kont191214191215%_) + _%hd183199183521%_)) + (_%__kont192501192502%_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd181912182234%_)) + _%hd183199183521%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl181913182236%_)) - (let ((_%e181918182098%_ + (gx#stx-pair? _%tl183200183523%_)) + (let ((_%e183205183385%_ (let () (declare (not safe)) - (gx#stx-e _%tl181913182236%_)))) - (let ((_%tl181920182103%_ + (gx#stx-e _%tl183200183523%_)))) + (let ((_%tl183207183390%_ (let () (declare (not safe)) - (##cdr _%e181918182098%_))) - (_%hd181919182101%_ + (##cdr _%e183205183385%_))) + (_%hd183206183388%_ (let () (declare (not safe)) - (##car _%e181918182098%_)))) + (##car _%e183205183385%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd181919182101%_)) - (let ((_%__splice191218191219%_ + (gx#stx-pair/null? _%hd183206183388%_)) + (let ((_%__splice192505192506%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd181919182101%_ + _%hd183206183388%_ '0)))) - (let ((_%tl181923182108%_ + (let ((_%tl183210183395%_ (let () (declare (not safe)) (##vector-ref - _%__splice191218191219%_ + _%__splice192505192506%_ '1))) - (_%target181921182106%_ + (_%target183208183393%_ (let () (declare (not safe)) (##vector-ref - _%__splice191218191219%_ + _%__splice192505192506%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181923182108%_)) - (_%__match191259191260%_ - _%e181911182231%_ - _%hd181912182234%_ - _%tl181913182236%_ - _%e181918182098%_ - _%hd181919182101%_ - _%tl181920182103%_ - _%__splice191218191219%_ - _%target181921182106%_ - _%tl181923182108%_) + (gx#stx-null? _%tl183210183395%_)) + (_%__match192546192547%_ + _%e183198183518%_ + _%hd183199183521%_ + _%tl183200183523%_ + _%e183205183385%_ + _%hd183206183388%_ + _%tl183207183390%_ + _%__splice192505192506%_ + _%target183208183393%_ + _%tl183210183395%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181920182103%_)) - (let ((_%e181953182064%_ + (gx#stx-pair? _%tl183207183390%_)) + (let ((_%e183240183351%_ (let () (declare (not safe)) (gx#stx-e - _%tl181920182103%_)))) - (let ((_%tl181955182069%_ + _%tl183207183390%_)))) + (let ((_%tl183242183356%_ (let () (declare (not safe)) - (##cdr _%e181953182064%_))) - (_%hd181954182067%_ + (##cdr _%e183240183351%_))) + (_%hd183241183354%_ (let () (declare (not safe)) - (##car _%e181953182064%_)))) + (##car _%e183240183351%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181955182069%_)) - (_%__kont191220191221%_ - _%hd181954182067%_) - (_%__kont191224191225%_)))) - (_%__kont191224191225%_))))) + _%tl183242183356%_)) + (_%__kont192507192508%_ + _%hd183241183354%_) + (_%__kont192511192512%_)))) + (_%__kont192511192512%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181920182103%_)) - (let ((_%e181953182064%_ + (gx#stx-pair? _%tl183207183390%_)) + (let ((_%e183240183351%_ (let () (declare (not safe)) - (gx#stx-e _%tl181920182103%_)))) - (let ((_%tl181955182069%_ + (gx#stx-e _%tl183207183390%_)))) + (let ((_%tl183242183356%_ (let () (declare (not safe)) - (##cdr _%e181953182064%_))) - (_%hd181954182067%_ + (##cdr _%e183240183351%_))) + (_%hd183241183354%_ (let () (declare (not safe)) - (##car _%e181953182064%_)))) + (##car _%e183240183351%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181955182069%_)) - (_%__kont191220191221%_ - _%hd181954182067%_) - (_%__kont191224191225%_)))) - (_%__kont191224191225%_))))) - (_%__kont191224191225%_)) + (gx#stx-null? _%tl183242183356%_)) + (_%__kont192507192508%_ + _%hd183241183354%_) + (_%__kont192511192512%_)))) + (_%__kont192511192512%_))))) + (_%__kont192511192512%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd181912182234%_)) + (gx#stx-eq? '%#if _%hd183199183521%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181913182236%_)) - (let ((_%e181962181995%_ + (gx#stx-pair? _%tl183200183523%_)) + (let ((_%e183249183282%_ (let () (declare (not safe)) - (gx#stx-e _%tl181913182236%_)))) - (let ((_%tl181964182000%_ + (gx#stx-e _%tl183200183523%_)))) + (let ((_%tl183251183287%_ (let () (declare (not safe)) - (##cdr _%e181962181995%_))) - (_%hd181963181998%_ + (##cdr _%e183249183282%_))) + (_%hd183250183285%_ (let () (declare (not safe)) - (##car _%e181962181995%_)))) + (##car _%e183249183282%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181964182000%_)) - (let ((_%e181965182003%_ + (gx#stx-pair? _%tl183251183287%_)) + (let ((_%e183252183290%_ (let () (declare (not safe)) - (gx#stx-e _%tl181964182000%_)))) - (let ((_%tl181967182008%_ + (gx#stx-e _%tl183251183287%_)))) + (let ((_%tl183254183295%_ (let () (declare (not safe)) - (##cdr _%e181965182003%_))) - (_%hd181966182006%_ + (##cdr _%e183252183290%_))) + (_%hd183253183293%_ (let () (declare (not safe)) - (##car _%e181965182003%_)))) + (##car _%e183252183290%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181967182008%_)) - (let ((_%e181968182011%_ + (gx#stx-pair? _%tl183254183295%_)) + (let ((_%e183255183298%_ (let () (declare (not safe)) (gx#stx-e - _%tl181967182008%_)))) - (let ((_%tl181970182016%_ + _%tl183254183295%_)))) + (let ((_%tl183257183303%_ (let () (declare (not safe)) - (##cdr _%e181968182011%_))) - (_%hd181969182014%_ + (##cdr _%e183255183298%_))) + (_%hd183256183301%_ (let () (declare (not safe)) - (##car _%e181968182011%_)))) + (##car _%e183255183298%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181970182016%_)) - (_%__kont191222191223%_ - _%hd181969182014%_ - _%hd181966182006%_ - _%hd181963181998%_) - (_%__kont191224191225%_)))) - (_%__kont191224191225%_)))) - (_%__kont191224191225%_)))) - (_%__kont191224191225%_)) - (_%__kont191224191225%_)))) + _%tl183257183303%_)) + (_%__kont192509192510%_ + _%hd183256183301%_ + _%hd183253183293%_ + _%hd183250183285%_) + (_%__kont192511192512%_)))) + (_%__kont192511192512%_)))) + (_%__kont192511192512%_)))) + (_%__kont192511192512%_)) + (_%__kont192511192512%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191224191225%_)))) - (_%__kont191224191225%_)))))))) - (let* ((_%kont181797%_ (caddr _%block181793%_)) - (_%g181799181825%_ - (lambda (_%g181800181822%_) + (_%__kont192511192512%_)))) + (_%__kont192511192512%_)))))))) + (let* ((_%kont183084%_ (caddr _%block183080%_)) + (_%g183086183112%_ + (lambda (_%g183087183109%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g181800181822%_)))) - (_%g181798181900%_ - (lambda (_%g181800181828%_) + _%g183087183109%_)))) + (_%g183085183187%_ + (lambda (_%g183087183115%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g181800181828%_)) - (let ((_%e181803181830%_ + (gx#stx-pair? _%g183087183115%_)) + (let ((_%e183090183117%_ (let () (declare (not safe)) - (gx#stx-e _%g181800181828%_)))) - (let ((_%hd181804181833%_ + (gx#stx-e _%g183087183115%_)))) + (let ((_%hd183091183120%_ (let () (declare (not safe)) - (##car _%e181803181830%_))) - (_%tl181805181835%_ + (##car _%e183090183117%_))) + (_%tl183092183122%_ (let () (declare (not safe)) - (##cdr _%e181803181830%_)))) + (##cdr _%e183090183117%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181804181833%_)) + _%hd183091183120%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd181804181833%_)) + _%hd183091183120%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181805181835%_)) - (let ((_%e181806181838%_ + _%tl183092183122%_)) + (let ((_%e183093183125%_ (let () (declare (not safe)) (gx#stx-e - _%tl181805181835%_)))) - (let ((_%hd181807181841%_ + _%tl183092183122%_)))) + (let ((_%hd183094183128%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e181806181838%_))) - (_%tl181808181843%_ - (let () (declare (not safe)) (##cdr _%e181806181838%_)))) + (##car _%e183093183125%_))) + (_%tl183095183130%_ + (let () (declare (not safe)) (##cdr _%e183093183125%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd181807181841%_)) - (let ((_g192305_ + (gx#stx-pair/null? _%hd183094183128%_)) + (let ((_g193592_ (let () (declare (not safe)) - (gx#syntax-split-splice _%hd181807181841%_ '0)))) + (gx#syntax-split-splice _%hd183094183128%_ '0)))) (begin - (let ((_g192306_ + (let ((_g193593_ (let () (declare (not safe)) - (if (##values? _g192305_) - (##vector-length _g192305_) + (if (##values? _g193592_) + (##values-length _g193592_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192306_ 2))) - (error "Context expects 2 values" _g192306_))) - (let ((_%target181809181846%_ + (##fx= _g193593_ 2))) + (error "Context expects 2 values" _g193593_))) + (let ((_%target183096183133%_ (let () (declare (not safe)) - (##vector-ref _g192305_ 0))) - (_%tl181811181848%_ + (##values-ref _g193592_ 0))) + (_%tl183098183135%_ (let () (declare (not safe)) - (##vector-ref _g192305_ 1)))) + (##values-ref _g193592_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181811181848%_)) - (letrec ((_%loop181812181851%_ - (lambda (_%hd181810181854%_ - _%id181816181856%_) + (gx#stx-null? _%tl183098183135%_)) + (letrec ((_%loop183099183138%_ + (lambda (_%hd183097183141%_ + _%id183103183143%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181810181854%_)) - (let ((_%e181813181859%_ + _%hd183097183141%_)) + (let ((_%e183100183146%_ (let () (declare (not safe)) (gx#stx-e - _%hd181810181854%_)))) - (let ((_%lp-hd181814181862%_ + _%hd183097183141%_)))) + (let ((_%lp-hd183101183149%_ (let () (declare (not safe)) - (##car _%e181813181859%_))) - (_%lp-tl181815181864%_ + (##car _%e183100183146%_))) + (_%lp-tl183102183151%_ (let () (declare (not safe)) - (##cdr _%e181813181859%_)))) - (_%loop181812181851%_ - _%lp-tl181815181864%_ - (cons _%lp-hd181814181862%_ - _%id181816181856%_)))) - (let ((_%id181817181867%_ - (reverse _%id181816181856%_))) + (##cdr _%e183100183146%_)))) + (_%loop183099183138%_ + _%lp-tl183102183151%_ + (cons _%lp-hd183101183149%_ + _%id183103183143%_)))) + (let ((_%id183104183154%_ + (reverse _%id183103183143%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181808181843%_)) - (let ((_%e181818181870%_ + _%tl183095183130%_)) + (let ((_%e183105183157%_ (let () (declare (not safe)) (gx#stx-e - _%tl181808181843%_)))) - (let ((_%hd181819181873%_ + _%tl183095183130%_)))) + (let ((_%hd183106183160%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e181818181870%_))) - (_%tl181820181875%_ - (let () (declare (not safe)) (##cdr _%e181818181870%_)))) + (##car _%e183105183157%_))) + (_%tl183107183162%_ + (let () (declare (not safe)) (##cdr _%e183105183157%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181820181875%_)) - ((lambda (_%L181878%_ _%L181879%_) - (_%nonlinear-expr?181795%_ _%L181878%_)) - _%hd181819181873%_ - _%id181817181867%_) - (_%g181799181825%_ _%g181800181828%_)))) + (gx#stx-null? _%tl183107183162%_)) + ((lambda (_%L183165%_ _%L183166%_) + (_%nonlinear-expr?183082%_ _%L183165%_)) + _%hd183106183160%_ + _%id183104183154%_) + (_%g183086183112%_ _%g183087183115%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g181799181825%_ - _%g181800181828%_))))))) - (_%loop181812181851%_ - _%target181809181846%_ + (_%g183086183112%_ + _%g183087183115%_))))))) + (_%loop183099183138%_ + _%target183096183133%_ '())) - (_%g181799181825%_ _%g181800181828%_))))) - (_%g181799181825%_ _%g181800181828%_)))) + (_%g183086183112%_ _%g183087183115%_))))) + (_%g183086183112%_ _%g183087183115%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g181799181825%_ - _%g181800181828%_)) - (_%g181799181825%_ - _%g181800181828%_)) - (_%g181799181825%_ - _%g181800181828%_)))) - (_%g181799181825%_ _%g181800181828%_))))) - (_%g181798181900%_ _%kont181797%_)))))) - (_%do-assert181767%_ - _%assert181526%_ + (_%g183086183112%_ + _%g183087183115%_)) + (_%g183086183112%_ + _%g183087183115%_)) + (_%g183086183112%_ + _%g183087183115%_)))) + (_%g183086183112%_ _%g183087183115%_))))) + (_%g183085183187%_ _%kont183084%_)))))) + (_%do-assert183054%_ + _%assert182813%_ (lambda () - (_%do-bind181774%_ - _%bind181527%_ + (_%do-bind183061%_ + _%bind182814%_ (lambda () (if (memq '@match:prefix (let () (declare (not safe)) (gxc#current-annotation-optimizer))) - (_%do-splice!181777%_ - (lambda () (_%optimize-e181778%_ _%body181525%_))) - (_%optimize-e181778%_ _%body181525%_))))))))) + (_%do-splice!183064%_ + (lambda () (_%optimize-e183065%_ _%body182812%_))) + (_%optimize-e183065%_ _%body182812%_))))))))) (define gxc#optimize-match-prune-blocks - (lambda (_%blocks181437%_ _%konts181438%_) - (letrec* ((_%rtab181440%_ + (lambda (_%blocks182724%_ _%konts182725%_) + (letrec* ((_%rtab182727%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%block181442%_) - (let ((__tmp192307 (caddr _%block181442%_))) + (lambda (_%block182729%_) + (let ((__tmp193594 (caddr _%block182729%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab181440%_ - __tmp192307))) - _%konts181438%_) - (let _%lp181444%_ ((_%rest181446%_ _%blocks181437%_) - (_%r181447%_ '())) - (let* ((_%rest181448181456%_ _%rest181446%_) - (_%else181450181464%_ (lambda () (reverse _%r181447%_))) - (_%K181452181513%_ - (lambda (_%rest181467%_ _%block181468%_) - (let* ((_%block181469181480%_ _%block181468%_) - (_%E181471181484%_ + _%rtab182727%_ + __tmp193594))) + _%konts182725%_) + (let _%lp182731%_ ((_%rest182733%_ _%blocks182724%_) + (_%r182734%_ '())) + (let* ((_%rest182735182743%_ _%rest182733%_) + (_%else182737182751%_ (lambda () (reverse _%r182734%_))) + (_%K182739182800%_ + (lambda (_%rest182754%_ _%block182755%_) + (let* ((_%block182756182767%_ _%block182755%_) + (_%E182758182771%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block181469181480%_ + _%block182756182767%_ '([name type kont . _]))) '#!void)) - (_%K181472181491%_ - (lambda (_%kont181487%_ - _%type181488%_ - _%name181489%_) - (if (let ((__tmp192308 + (_%K182759182778%_ + (lambda (_%kont182774%_ + _%type182775%_ + _%name182776%_) + (if (let ((__tmp193595 (let () (declare (not safe)) (gxc#identifier-symbol - _%name181489%_)))) + _%name182776%_)))) (declare (not safe)) - (__hash-get _%rtab181440%_ __tmp192308)) + (__hash-get _%rtab182727%_ __tmp193595)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab181440%_ - _%kont181487%_)) - (_%lp181444%_ - _%rest181467%_ - (cons _%block181468%_ _%r181447%_))) - (_%lp181444%_ - _%rest181467%_ - _%r181447%_))))) - (if (pair? _%block181469181480%_) - (let ((_%hd181473181494%_ + _%rtab182727%_ + _%kont182774%_)) + (_%lp182731%_ + _%rest182754%_ + (cons _%block182755%_ _%r182734%_))) + (_%lp182731%_ + _%rest182754%_ + _%r182734%_))))) + (if (pair? _%block182756182767%_) + (let ((_%hd182760182781%_ (let () (declare (not safe)) - (##car _%block181469181480%_))) - (_%tl181474181496%_ + (##car _%block182756182767%_))) + (_%tl182761182783%_ (let () (declare (not safe)) - (##cdr _%block181469181480%_)))) - (let ((_%name181499%_ _%hd181473181494%_)) - (if (pair? _%tl181474181496%_) - (let ((_%hd181475181501%_ + (##cdr _%block182756182767%_)))) + (let ((_%name182786%_ _%hd182760182781%_)) + (if (pair? _%tl182761182783%_) + (let ((_%hd182762182788%_ (let () (declare (not safe)) - (##car _%tl181474181496%_))) - (_%tl181476181503%_ + (##car _%tl182761182783%_))) + (_%tl182763182790%_ (let () (declare (not safe)) - (##cdr _%tl181474181496%_)))) - (let ((_%type181506%_ - _%hd181475181501%_)) - (if (pair? _%tl181476181503%_) - (let* ((_%hd181477181508%_ + (##cdr _%tl182761182783%_)))) + (let ((_%type182793%_ + _%hd182762182788%_)) + (if (pair? _%tl182763182790%_) + (let* ((_%hd182764182795%_ (let () (declare (not safe)) - (##car _%tl181476181503%_))) - (_%kont181511%_ - _%hd181477181508%_)) - (_%K181472181491%_ - _%kont181511%_ - _%type181506%_ - _%name181499%_)) - (_%E181471181484%_)))) - (_%E181471181484%_)))) - (_%E181471181484%_)))))) - (if (pair? _%rest181448181456%_) - (let ((_%hd181453181516%_ + (##car _%tl182763182790%_))) + (_%kont182798%_ + _%hd182764182795%_)) + (_%K182759182778%_ + _%kont182798%_ + _%type182793%_ + _%name182786%_)) + (_%E182758182771%_)))) + (_%E182758182771%_)))) + (_%E182758182771%_)))))) + (if (pair? _%rest182735182743%_) + (let ((_%hd182740182803%_ (let () (declare (not safe)) - (##car _%rest181448181456%_))) - (_%tl181454181518%_ + (##car _%rest182735182743%_))) + (_%tl182741182805%_ (let () (declare (not safe)) - (##cdr _%rest181448181456%_)))) - (let* ((_%block181521%_ _%hd181453181516%_) - (_%rest181523%_ _%tl181454181518%_)) - (_%K181452181513%_ _%rest181523%_ _%block181521%_))) - (_%else181450181464%_))))))) + (##cdr _%rest182735182743%_)))) + (let* ((_%block182808%_ _%hd182740182803%_) + (_%rest182810%_ _%tl182741182805%_)) + (_%K182739182800%_ _%rest182810%_ _%block182808%_))) + (_%else182737182751%_))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_%blocks181361%_ _%konts181362%_) - (let* ((_%blocks181363181379%_ _%blocks181361%_) - (_%else181365181387%_ (lambda () _%blocks181361%_)) - (_%K181367181405%_ - (lambda (_%rest181390%_ _%kont181391%_ _%name181392%_) - (letrec* ((_%rtab181394%_ + (lambda (_%blocks182648%_ _%konts182649%_) + (let* ((_%blocks182650182666%_ _%blocks182648%_) + (_%else182652182674%_ (lambda () _%blocks182648%_)) + (_%K182654182692%_ + (lambda (_%rest182677%_ _%kont182678%_ _%name182679%_) + (letrec* ((_%rtab182681%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%block181396%_) - (let ((__tmp192309 (caddr _%block181396%_))) + (lambda (_%block182683%_) + (let ((__tmp193596 (caddr _%block182683%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab181394%_ - __tmp192309))) - _%konts181362%_) - (if (let ((__tmp192310 - (let ((__tmp192311 + _%rtab182681%_ + __tmp193596))) + _%konts182649%_) + (if (let ((__tmp193597 + (let ((__tmp193598 (let () (declare (not safe)) (gxc#identifier-symbol - _%name181392%_)))) + _%name182679%_)))) (declare (not safe)) - (hash-ref__0 _%rtab181394%_ __tmp192311)))) + (hash-ref__0 _%rtab182681%_ __tmp193598)))) (declare (not safe)) - (##fx= __tmp192310 '1)) - (let* ((_%rblock181400%_ - (let ((__tmp192312 - (lambda (_%block181398%_) - (let ((__tmp192314 - (cons _%name181392%_ '())) - (__tmp192313 - (caddr _%block181398%_))) + (##fx= __tmp193597 '1)) + (let* ((_%rblock182687%_ + (let ((__tmp193599 + (lambda (_%block182685%_) + (let ((__tmp193601 + (cons _%name182679%_ '())) + (__tmp193600 + (caddr _%block182685%_))) (declare (not safe)) (gxc#apply-find-var-refs__% '#f - __tmp192314 - __tmp192313))))) + __tmp193601 + __tmp193600))))) (declare (not safe)) - (__find __tmp192312 _%konts181362%_))) - (_%assert181402%_ + (__find __tmp193599 _%konts182649%_))) + (_%assert182689%_ (gxc#optimize-match-assert-restart - _%rblock181400%_ - _%name181392%_))) - (cons (cons _%name181392%_ + _%rblock182687%_ + _%name182679%_))) + (cons (cons _%name182679%_ (cons 'restart: - (cons _%kont181391%_ - (cons _%assert181402%_ + (cons _%kont182678%_ + (cons _%assert182689%_ '())))) - _%rest181390%_)) - _%blocks181361%_))))) - (if (pair? _%blocks181363181379%_) - (let ((_%hd181368181408%_ + _%rest182677%_)) + _%blocks182648%_))))) + (if (pair? _%blocks182650182666%_) + (let ((_%hd182655182695%_ (let () (declare (not safe)) - (##car _%blocks181363181379%_))) - (_%tl181369181410%_ + (##car _%blocks182650182666%_))) + (_%tl182656182697%_ (let () (declare (not safe)) - (##cdr _%blocks181363181379%_)))) - (if (pair? _%hd181368181408%_) - (let ((_%hd181370181413%_ + (##cdr _%blocks182650182666%_)))) + (if (pair? _%hd182655182695%_) + (let ((_%hd182657182700%_ (let () (declare (not safe)) - (##car _%hd181368181408%_))) - (_%tl181371181415%_ + (##car _%hd182655182695%_))) + (_%tl182658182702%_ (let () (declare (not safe)) - (##cdr _%hd181368181408%_)))) - (let ((_%name181418%_ _%hd181370181413%_)) - (if (pair? _%tl181371181415%_) - (let ((_%hd181372181420%_ + (##cdr _%hd182655182695%_)))) + (let ((_%name182705%_ _%hd182657182700%_)) + (if (pair? _%tl182658182702%_) + (let ((_%hd182659182707%_ (let () (declare (not safe)) - (##car _%tl181371181415%_))) - (_%tl181373181422%_ + (##car _%tl182658182702%_))) + (_%tl182660182709%_ (let () (declare (not safe)) - (##cdr _%tl181371181415%_)))) + (##cdr _%tl182658182702%_)))) (if (let () (declare (not safe)) - (##eq? _%hd181372181420%_ 'restart:)) - (if (pair? _%tl181373181422%_) - (let ((_%hd181374181425%_ + (##eq? _%hd182659182707%_ 'restart:)) + (if (pair? _%tl182660182709%_) + (let ((_%hd182661182712%_ (let () (declare (not safe)) - (##car _%tl181373181422%_))) - (_%tl181375181427%_ + (##car _%tl182660182709%_))) + (_%tl182662182714%_ (let () (declare (not safe)) - (##cdr _%tl181373181422%_)))) - (let ((_%kont181430%_ - _%hd181374181425%_)) - (if (pair? _%tl181375181427%_) - (let ((_%tl181377181432%_ + (##cdr _%tl182660182709%_)))) + (let ((_%kont182717%_ + _%hd182661182712%_)) + (if (pair? _%tl182662182714%_) + (let ((_%tl182664182719%_ (let () (declare (not safe)) - (##cdr _%tl181375181427%_)))) - (if (null? _%tl181377181432%_) - (let ((_%rest181435%_ - _%tl181369181410%_)) - (_%K181367181405%_ - _%rest181435%_ - _%kont181430%_ - _%name181418%_)) - (_%else181365181387%_))) - (_%else181365181387%_)))) - (_%else181365181387%_)) - (_%else181365181387%_))) - (_%else181365181387%_)))) - (_%else181365181387%_))) - (_%else181365181387%_))))) + (##cdr _%tl182662182714%_)))) + (if (null? _%tl182664182719%_) + (let ((_%rest182722%_ + _%tl182656182697%_)) + (_%K182654182692%_ + _%rest182722%_ + _%kont182717%_ + _%name182705%_)) + (_%else182652182674%_))) + (_%else182652182674%_)))) + (_%else182652182674%_)) + (_%else182652182674%_))) + (_%else182652182674%_)))) + (_%else182652182674%_))) + (_%else182652182674%_))))) (define gxc#optimize-match-assert-restart - (lambda (_%block180757%_ _%name180758%_) - (letrec ((_%assert-restart180760%_ - (lambda (_%expr180916%_ _%assert180917%_) - (let* ((_%__stx191316191317%_ _%expr180916%_) - (_%g180923181020%_ + (lambda (_%block182044%_ _%name182045%_) + (letrec ((_%assert-restart182047%_ + (lambda (_%expr182203%_ _%assert182204%_) + (let* ((_%__stx192603192604%_ _%expr182203%_) + (_%g182210182307%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191316191317%_))))) - (let ((_%__kont191318191319%_ - (lambda (_%L181336%_ _%L181337%_ _%L181338%_) - (let ((_%$e181355%_ - (_%assert-restart180760%_ - _%L181337%_ - (cons (cons _%L181338%_ '#t) - _%assert180917%_)))) - (if _%$e181355%_ - _%$e181355%_ - (_%assert-restart180760%_ - _%L181336%_ - (cons (cons _%L181338%_ '#f) - _%assert180917%_)))))) - (_%__kont191320191321%_ - (lambda (_%L181284%_) + _%__stx192603192604%_))))) + (let ((_%__kont192605192606%_ + (lambda (_%L182623%_ _%L182624%_ _%L182625%_) + (let ((_%$e182642%_ + (_%assert-restart182047%_ + _%L182624%_ + (cons (cons _%L182625%_ '#t) + _%assert182204%_)))) + (if _%$e182642%_ + _%$e182642%_ + (_%assert-restart182047%_ + _%L182623%_ + (cons (cons _%L182625%_ '#f) + _%assert182204%_)))))) + (_%__kont192607192608%_ + (lambda (_%L182571%_) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L181284%_ - _%name180758%_)) - _%assert180917%_ + _%L182571%_ + _%name182045%_)) + _%assert182204%_ '#f))) - (_%__kont191322191323%_ - (lambda (_%L181234%_) - (_%assert-restart180760%_ - _%L181234%_ - _%assert180917%_))) - (_%__kont191324191325%_ - (lambda (_%L181160%_ - _%L181161%_ - _%L181162%_ - _%L181163%_ - _%L181164%_) - (_%assert-restart180760%_ - _%L181162%_ - _%assert180917%_))) - (_%__kont191330191331%_ (lambda () '#f))) - (let ((_%__match191485191486%_ - (lambda (_%e180968181032%_ - _%hd180969181035%_ - _%tl180970181037%_ - _%e180971181040%_ - _%hd180972181043%_ - _%tl180973181045%_ - _%e180974181048%_ - _%hd180975181051%_ - _%tl180976181053%_ - _%e180977181056%_ - _%hd180978181059%_ - _%tl180979181061%_ - _%e180980181064%_ - _%hd180981181067%_ - _%tl180982181069%_ - _%e180983181072%_ - _%hd180984181075%_ - _%tl180985181077%_ - _%e180986181080%_ - _%hd180987181083%_ - _%tl180988181085%_ - _%e180989181088%_ - _%hd180990181091%_ - _%tl180991181093%_ - _%__splice191326191327%_ - _%target180992181096%_ - _%tl180994181098%_) - (letrec ((_%loop180995181101%_ - (lambda (_%hd180993181104%_ - _%id180999181106%_) + (_%__kont192609192610%_ + (lambda (_%L182521%_) + (_%assert-restart182047%_ + _%L182521%_ + _%assert182204%_))) + (_%__kont192611192612%_ + (lambda (_%L182447%_ + _%L182448%_ + _%L182449%_ + _%L182450%_ + _%L182451%_) + (_%assert-restart182047%_ + _%L182449%_ + _%assert182204%_))) + (_%__kont192617192618%_ (lambda () '#f))) + (let ((_%__match192772192773%_ + (lambda (_%e182255182319%_ + _%hd182256182322%_ + _%tl182257182324%_ + _%e182258182327%_ + _%hd182259182330%_ + _%tl182260182332%_ + _%e182261182335%_ + _%hd182262182338%_ + _%tl182263182340%_ + _%e182264182343%_ + _%hd182265182346%_ + _%tl182266182348%_ + _%e182267182351%_ + _%hd182268182354%_ + _%tl182269182356%_ + _%e182270182359%_ + _%hd182271182362%_ + _%tl182272182364%_ + _%e182273182367%_ + _%hd182274182370%_ + _%tl182275182372%_ + _%e182276182375%_ + _%hd182277182378%_ + _%tl182278182380%_ + _%__splice192613192614%_ + _%target182279182383%_ + _%tl182281182385%_) + (letrec ((_%loop182282182388%_ + (lambda (_%hd182280182391%_ + _%id182286182393%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180993181104%_)) - (let ((_%e180996181109%_ + _%hd182280182391%_)) + (let ((_%e182283182396%_ (let () (declare (not safe)) (gx#stx-e - _%hd180993181104%_)))) - (let ((_%lp-tl180998181114%_ + _%hd182280182391%_)))) + (let ((_%lp-tl182285182401%_ (let () (declare (not safe)) - (##cdr _%e180996181109%_))) - (_%lp-hd180997181112%_ + (##cdr _%e182283182396%_))) + (_%lp-hd182284182399%_ (let () (declare (not safe)) - (##car _%e180996181109%_)))) - (_%loop180995181101%_ - _%lp-tl180998181114%_ - (cons _%lp-hd180997181112%_ - _%id180999181106%_)))) - (let ((_%id181000181117%_ - (reverse _%id180999181106%_))) + (##car _%e182283182396%_)))) + (_%loop182282182388%_ + _%lp-tl182285182401%_ + (cons _%lp-hd182284182399%_ + _%id182286182393%_)))) + (let ((_%id182287182404%_ + (reverse _%id182286182393%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180991181093%_)) - (let ((_%e181001181120%_ + _%tl182278182380%_)) + (let ((_%e182288182407%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl180991181093%_)))) - (let ((_%tl181003181125%_ + (gx#stx-e _%tl182278182380%_)))) + (let ((_%tl182290182412%_ (let () (declare (not safe)) - (##cdr _%e181001181120%_))) - (_%hd181002181123%_ + (##cdr _%e182288182407%_))) + (_%hd182289182410%_ (let () (declare (not safe)) - (##car _%e181001181120%_)))) + (##car _%e182288182407%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181003181125%_)) + (gx#stx-null? _%tl182290182412%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180985181077%_)) + (gx#stx-null? _%tl182272182364%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl180976181053%_)) - (let ((_%__splice191328191329%_ + (gx#stx-pair/null? _%tl182263182340%_)) + (let ((_%__splice192615192616%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl180976181053%_ + _%tl182263182340%_ '0)))) - (let ((_%tl181006181130%_ + (let ((_%tl182293182417%_ (let () (declare (not safe)) (##vector-ref - _%__splice191328191329%_ + _%__splice192615192616%_ '1))) - (_%target181004181128%_ + (_%target182291182415%_ (let () (declare (not safe)) (##vector-ref - _%__splice191328191329%_ + _%__splice192615192616%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181006181130%_)) - (letrec ((_%loop181007181133%_ - (lambda (_%hd181005181136%_ - _%bind181011181138%_) + (gx#stx-null? _%tl182293182417%_)) + (letrec ((_%loop182294182420%_ + (lambda (_%hd182292182423%_ + _%bind182298182425%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181005181136%_)) - (let ((_%e181008181141%_ + _%hd182292182423%_)) + (let ((_%e182295182428%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd181005181136%_)))) - (let ((_%lp-tl181010181146%_ + (gx#stx-e _%hd182292182423%_)))) + (let ((_%lp-tl182297182433%_ (let () (declare (not safe)) - (##cdr _%e181008181141%_))) - (_%lp-hd181009181144%_ + (##cdr _%e182295182428%_))) + (_%lp-hd182296182431%_ (let () (declare (not safe)) - (##car _%e181008181141%_)))) - (_%loop181007181133%_ - _%lp-tl181010181146%_ - (cons _%lp-hd181009181144%_ _%bind181011181138%_)))) - (let ((_%bind181012181149%_ (reverse _%bind181011181138%_))) + (##car _%e182295182428%_)))) + (_%loop182294182420%_ + _%lp-tl182297182433%_ + (cons _%lp-hd182296182431%_ _%bind182298182425%_)))) + (let ((_%bind182299182436%_ (reverse _%bind182298182425%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180973181045%_)) - (let ((_%e181013181152%_ + (gx#stx-pair? _%tl182260182332%_)) + (let ((_%e182300182439%_ (let () (declare (not safe)) - (gx#stx-e _%tl180973181045%_)))) - (let ((_%tl181015181157%_ + (gx#stx-e _%tl182260182332%_)))) + (let ((_%tl182302182444%_ (let () (declare (not safe)) - (##cdr _%e181013181152%_))) - (_%hd181014181155%_ + (##cdr _%e182300182439%_))) + (_%hd182301182442%_ (let () (declare (not safe)) - (##car _%e181013181152%_)))) + (##car _%e182300182439%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181015181157%_)) - (_%__kont191324191325%_ - _%hd181014181155%_ - _%bind181012181149%_ - _%hd181002181123%_ - _%id181000181117%_ - _%hd180981181067%_) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_))))))) + (gx#stx-null? _%tl182302182444%_)) + (_%__kont192611192612%_ + _%hd182301182442%_ + _%bind182299182436%_ + _%hd182289182410%_ + _%id182287182404%_ + _%hd182268182354%_) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop181007181133%_ - _%target181004181128%_ + (_%loop182294182420%_ + _%target182291182415%_ '())) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)) - (_%__kont191330191331%_)) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_))))))) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)) + (_%__kont192617192618%_)) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop180995181101%_ - _%target180992181096%_ + (_%loop182282182388%_ + _%target182279182383%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191316191317%_)) - (let ((_%e180928181304%_ + (gx#stx-pair? _%__stx192603192604%_)) + (let ((_%e182215182591%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191316191317%_)))) - (let ((_%tl180930181309%_ + (gx#stx-e _%__stx192603192604%_)))) + (let ((_%tl182217182596%_ (let () (declare (not safe)) - (##cdr _%e180928181304%_))) - (_%hd180929181307%_ + (##cdr _%e182215182591%_))) + (_%hd182216182594%_ (let () (declare (not safe)) - (##car _%e180928181304%_)))) + (##car _%e182215182591%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180929181307%_)) + (gx#identifier? _%hd182216182594%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd180929181307%_)) + _%hd182216182594%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180930181309%_)) - (let ((_%e180931181312%_ + _%tl182217182596%_)) + (let ((_%e182218182599%_ (let () (declare (not safe)) (gx#stx-e - _%tl180930181309%_)))) - (let ((_%tl180933181317%_ + _%tl182217182596%_)))) + (let ((_%tl182220182604%_ (let () (declare (not safe)) - (##cdr _%e180931181312%_))) - (_%hd180932181315%_ + (##cdr _%e182218182599%_))) + (_%hd182219182602%_ (let () (declare (not safe)) - (##car _%e180931181312%_)))) + (##car _%e182218182599%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180933181317%_)) - (let ((_%e180934181320%_ + _%tl182220182604%_)) + (let ((_%e182221182607%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl180933181317%_)))) - (let ((_%tl180936181325%_ - (let () (declare (not safe)) (##cdr _%e180934181320%_))) - (_%hd180935181323%_ + (gx#stx-e _%tl182220182604%_)))) + (let ((_%tl182223182612%_ + (let () (declare (not safe)) (##cdr _%e182221182607%_))) + (_%hd182222182610%_ (let () (declare (not safe)) - (##car _%e180934181320%_)))) + (##car _%e182221182607%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180936181325%_)) - (let ((_%e180937181328%_ + (gx#stx-pair? _%tl182223182612%_)) + (let ((_%e182224182615%_ (let () (declare (not safe)) - (gx#stx-e _%tl180936181325%_)))) - (let ((_%tl180939181333%_ + (gx#stx-e _%tl182223182612%_)))) + (let ((_%tl182226182620%_ (let () (declare (not safe)) - (##cdr _%e180937181328%_))) - (_%hd180938181331%_ + (##cdr _%e182224182615%_))) + (_%hd182225182618%_ (let () (declare (not safe)) - (##car _%e180937181328%_)))) + (##car _%e182224182615%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180939181333%_)) - (_%__kont191318191319%_ - _%hd180938181331%_ - _%hd180935181323%_ - _%hd180932181315%_) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) + (gx#stx-null? _%tl182226182620%_)) + (_%__kont192605192606%_ + _%hd182225182618%_ + _%hd182222182610%_ + _%hd182219182602%_) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191330191331%_)) + (_%__kont192617192618%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd180929181307%_)) + _%hd182216182594%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180930181309%_)) - (let ((_%e180944181260%_ + _%tl182217182596%_)) + (let ((_%e182231182547%_ (let () (declare (not safe)) (gx#stx-e - _%tl180930181309%_)))) - (let ((_%tl180946181265%_ + _%tl182217182596%_)))) + (let ((_%tl182233182552%_ (let () (declare (not safe)) - (##cdr _%e180944181260%_))) - (_%hd180945181263%_ + (##cdr _%e182231182547%_))) + (_%hd182232182550%_ (let () (declare (not safe)) - (##car _%e180944181260%_)))) + (##car _%e182231182547%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180945181263%_)) - (let ((_%e180947181268%_ + _%hd182232182550%_)) + (let ((_%e182234182555%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd180945181263%_)))) - (let ((_%tl180949181273%_ + (gx#stx-e _%hd182232182550%_)))) + (let ((_%tl182236182560%_ (let () (declare (not safe)) - (##cdr _%e180947181268%_))) - (_%hd180948181271%_ + (##cdr _%e182234182555%_))) + (_%hd182235182558%_ (let () (declare (not safe)) - (##car _%e180947181268%_)))) + (##car _%e182234182555%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180948181271%_)) + (gx#identifier? _%hd182235182558%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd180948181271%_)) + (gx#stx-eq? '%#ref _%hd182235182558%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180949181273%_)) - (let ((_%e180950181276%_ + (gx#stx-pair? _%tl182236182560%_)) + (let ((_%e182237182563%_ (let () (declare (not safe)) - (gx#stx-e _%tl180949181273%_)))) - (let ((_%tl180952181281%_ + (gx#stx-e _%tl182236182560%_)))) + (let ((_%tl182239182568%_ (let () (declare (not safe)) - (##cdr _%e180950181276%_))) - (_%hd180951181279%_ + (##cdr _%e182237182563%_))) + (_%hd182238182566%_ (let () (declare (not safe)) - (##car _%e180950181276%_)))) + (##car _%e182237182563%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180952181281%_)) - (_%__kont191320191321%_ - _%hd180951181279%_) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)) - (_%__kont191330191331%_)) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) + (gx#stx-null? _%tl182239182568%_)) + (_%__kont192607192608%_ + _%hd182238182566%_) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)) + (_%__kont192617192618%_)) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191330191331%_)) + (_%__kont192617192618%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd180929181307%_)) + _%hd182216182594%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180930181309%_)) - (let ((_%e180957181218%_ + _%tl182217182596%_)) + (let ((_%e182244182505%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl180930181309%_)))) - (let ((_%tl180959181223%_ - (let () (declare (not safe)) (##cdr _%e180957181218%_))) - (_%hd180958181221%_ + (gx#stx-e _%tl182217182596%_)))) + (let ((_%tl182246182510%_ + (let () (declare (not safe)) (##cdr _%e182244182505%_))) + (_%hd182245182508%_ (let () (declare (not safe)) - (##car _%e180957181218%_)))) + (##car _%e182244182505%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180959181223%_)) - (let ((_%e180960181226%_ + (gx#stx-pair? _%tl182246182510%_)) + (let ((_%e182247182513%_ (let () (declare (not safe)) - (gx#stx-e _%tl180959181223%_)))) - (let ((_%tl180962181231%_ + (gx#stx-e _%tl182246182510%_)))) + (let ((_%tl182249182518%_ (let () (declare (not safe)) - (##cdr _%e180960181226%_))) - (_%hd180961181229%_ + (##cdr _%e182247182513%_))) + (_%hd182248182516%_ (let () (declare (not safe)) - (##car _%e180960181226%_)))) + (##car _%e182247182513%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180962181231%_)) - (_%__kont191322191323%_ _%hd180961181229%_) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)) + (gx#stx-null? _%tl182249182518%_)) + (_%__kont192609192610%_ _%hd182248182516%_) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd180929181307%_)) + _%hd182216182594%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180930181309%_)) - (let ((_%e180971181040%_ + _%tl182217182596%_)) + (let ((_%e182258182327%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl180930181309%_)))) - (let ((_%tl180973181045%_ + (gx#stx-e _%tl182217182596%_)))) + (let ((_%tl182260182332%_ (let () (declare (not safe)) - (##cdr _%e180971181040%_))) - (_%hd180972181043%_ + (##cdr _%e182258182327%_))) + (_%hd182259182330%_ (let () (declare (not safe)) - (##car _%e180971181040%_)))) + (##car _%e182258182327%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180972181043%_)) - (let ((_%e180974181048%_ + (gx#stx-pair? _%hd182259182330%_)) + (let ((_%e182261182335%_ (let () (declare (not safe)) - (gx#stx-e _%hd180972181043%_)))) - (let ((_%tl180976181053%_ + (gx#stx-e _%hd182259182330%_)))) + (let ((_%tl182263182340%_ (let () (declare (not safe)) - (##cdr _%e180974181048%_))) - (_%hd180975181051%_ + (##cdr _%e182261182335%_))) + (_%hd182262182338%_ (let () (declare (not safe)) - (##car _%e180974181048%_)))) + (##car _%e182261182335%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180975181051%_)) - (let ((_%e180977181056%_ + (gx#stx-pair? _%hd182262182338%_)) + (let ((_%e182264182343%_ (let () (declare (not safe)) - (gx#stx-e _%hd180975181051%_)))) - (let ((_%tl180979181061%_ + (gx#stx-e _%hd182262182338%_)))) + (let ((_%tl182266182348%_ (let () (declare (not safe)) - (##cdr _%e180977181056%_))) - (_%hd180978181059%_ + (##cdr _%e182264182343%_))) + (_%hd182265182346%_ (let () (declare (not safe)) - (##car _%e180977181056%_)))) + (##car _%e182264182343%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180978181059%_)) - (let ((_%e180980181064%_ + (gx#stx-pair? _%hd182265182346%_)) + (let ((_%e182267182351%_ (let () (declare (not safe)) (gx#stx-e - _%hd180978181059%_)))) - (let ((_%tl180982181069%_ + _%hd182265182346%_)))) + (let ((_%tl182269182356%_ (let () (declare (not safe)) - (##cdr _%e180980181064%_))) - (_%hd180981181067%_ + (##cdr _%e182267182351%_))) + (_%hd182268182354%_ (let () (declare (not safe)) - (##car _%e180980181064%_)))) + (##car _%e182267182351%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180982181069%_)) + _%tl182269182356%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180979181061%_)) - (let ((_%e180983181072%_ + _%tl182266182348%_)) + (let ((_%e182270182359%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl180979181061%_)))) - (let ((_%tl180985181077%_ - (let () (declare (not safe)) (##cdr _%e180983181072%_))) - (_%hd180984181075%_ + (gx#stx-e _%tl182266182348%_)))) + (let ((_%tl182272182364%_ + (let () (declare (not safe)) (##cdr _%e182270182359%_))) + (_%hd182271182362%_ (let () (declare (not safe)) - (##car _%e180983181072%_)))) + (##car _%e182270182359%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180984181075%_)) - (let ((_%e180986181080%_ + (gx#stx-pair? _%hd182271182362%_)) + (let ((_%e182273182367%_ (let () (declare (not safe)) - (gx#stx-e _%hd180984181075%_)))) - (let ((_%tl180988181085%_ + (gx#stx-e _%hd182271182362%_)))) + (let ((_%tl182275182372%_ (let () (declare (not safe)) - (##cdr _%e180986181080%_))) - (_%hd180987181083%_ + (##cdr _%e182273182367%_))) + (_%hd182274182370%_ (let () (declare (not safe)) - (##car _%e180986181080%_)))) + (##car _%e182273182367%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180987181083%_)) + (gx#identifier? _%hd182274182370%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd180987181083%_)) + (gx#stx-eq? '%#lambda _%hd182274182370%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180988181085%_)) - (let ((_%e180989181088%_ + (gx#stx-pair? _%tl182275182372%_)) + (let ((_%e182276182375%_ (let () (declare (not safe)) - (gx#stx-e _%tl180988181085%_)))) - (let ((_%tl180991181093%_ + (gx#stx-e _%tl182275182372%_)))) + (let ((_%tl182278182380%_ (let () (declare (not safe)) - (##cdr _%e180989181088%_))) - (_%hd180990181091%_ + (##cdr _%e182276182375%_))) + (_%hd182277182378%_ (let () (declare (not safe)) - (##car _%e180989181088%_)))) + (##car _%e182276182375%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd180990181091%_)) - (let ((_%__splice191326191327%_ + _%hd182277182378%_)) + (let ((_%__splice192613192614%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd180990181091%_ + _%hd182277182378%_ '0)))) - (let ((_%tl180994181098%_ + (let ((_%tl182281182385%_ (let () (declare (not safe)) (##vector-ref - _%__splice191326191327%_ + _%__splice192613192614%_ '1))) - (_%target180992181096%_ + (_%target182279182383%_ (let () (declare (not safe)) (##vector-ref - _%__splice191326191327%_ + _%__splice192613192614%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180994181098%_)) - (_%__match191485191486%_ - _%e180928181304%_ - _%hd180929181307%_ - _%tl180930181309%_ - _%e180971181040%_ - _%hd180972181043%_ - _%tl180973181045%_ - _%e180974181048%_ - _%hd180975181051%_ - _%tl180976181053%_ - _%e180977181056%_ - _%hd180978181059%_ - _%tl180979181061%_ - _%e180980181064%_ - _%hd180981181067%_ - _%tl180982181069%_ - _%e180983181072%_ - _%hd180984181075%_ - _%tl180985181077%_ - _%e180986181080%_ - _%hd180987181083%_ - _%tl180988181085%_ - _%e180989181088%_ - _%hd180990181091%_ - _%tl180991181093%_ - _%__splice191326191327%_ - _%target180992181096%_ - _%tl180994181098%_) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)) - (_%__kont191330191331%_)) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)) + _%tl182281182385%_)) + (_%__match192772192773%_ + _%e182215182591%_ + _%hd182216182594%_ + _%tl182217182596%_ + _%e182258182327%_ + _%hd182259182330%_ + _%tl182260182332%_ + _%e182261182335%_ + _%hd182262182338%_ + _%tl182263182340%_ + _%e182264182343%_ + _%hd182265182346%_ + _%tl182266182348%_ + _%e182267182351%_ + _%hd182268182354%_ + _%tl182269182356%_ + _%e182270182359%_ + _%hd182271182362%_ + _%tl182272182364%_ + _%e182273182367%_ + _%hd182274182370%_ + _%tl182275182372%_ + _%e182276182375%_ + _%hd182277182378%_ + _%tl182278182380%_ + _%__splice192613192614%_ + _%target182279182383%_ + _%tl182281182385%_) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)) + (_%__kont192617192618%_)) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)) - (_%__kont191330191331%_))))) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)) + (_%__kont192617192618%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191330191331%_)))) - (_%__kont191330191331%_)))))))) - (let* ((_%block180761180774%_ _%block180757%_) - (_%E180763180778%_ + (_%__kont192617192618%_)))) + (_%__kont192617192618%_)))))))) + (let* ((_%block182048182061%_ _%block182044%_) + (_%E182050182065%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block180761180774%_ + _%block182048182061%_ '([_ _ kont assert . maybe-bind]))) '#!void)) - (_%K180764180891%_ - (lambda (_%maybe-bind180781%_ - _%assert180782%_ - _%kont180783%_) - (let* ((_%g180785180811%_ - (lambda (_%g180786180808%_) + (_%K182051182178%_ + (lambda (_%maybe-bind182068%_ + _%assert182069%_ + _%kont182070%_) + (let* ((_%g182072182098%_ + (lambda (_%g182073182095%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g180786180808%_)))) - (_%g180784180888%_ - (lambda (_%g180786180814%_) + _%g182073182095%_)))) + (_%g182071182175%_ + (lambda (_%g182073182101%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g180786180814%_)) - (let ((_%e180789180816%_ + (gx#stx-pair? _%g182073182101%_)) + (let ((_%e182076182103%_ (let () (declare (not safe)) - (gx#stx-e _%g180786180814%_)))) - (let ((_%hd180790180819%_ + (gx#stx-e _%g182073182101%_)))) + (let ((_%hd182077182106%_ (let () (declare (not safe)) - (##car _%e180789180816%_))) - (_%tl180791180821%_ + (##car _%e182076182103%_))) + (_%tl182078182108%_ (let () (declare (not safe)) - (##cdr _%e180789180816%_)))) + (##cdr _%e182076182103%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd180790180819%_)) + _%hd182077182106%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd180790180819%_)) + _%hd182077182106%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180791180821%_)) - (let ((_%e180792180824%_ + _%tl182078182108%_)) + (let ((_%e182079182111%_ (let () (declare (not safe)) (gx#stx-e - _%tl180791180821%_)))) - (let ((_%hd180793180827%_ + _%tl182078182108%_)))) + (let ((_%hd182080182114%_ (let () (declare (not safe)) - (##car _%e180792180824%_))) - (_%tl180794180829%_ + (##car _%e182079182111%_))) + (_%tl182081182116%_ (let () (declare (not safe)) - (##cdr _%e180792180824%_)))) + (##cdr _%e182079182111%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd180793180827%_)) - (let ((_g192315_ + _%hd182080182114%_)) + (let ((_g193602_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd180793180827%_ '0)))) + (gx#syntax-split-splice _%hd182080182114%_ '0)))) (begin - (let ((_g192316_ + (let ((_g193603_ (let () (declare (not safe)) - (if (##values? _g192315_) - (##vector-length _g192315_) + (if (##values? _g193602_) + (##values-length _g193602_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192316_ 2))) - (error "Context expects 2 values" _g192316_))) - (let ((_%target180795180832%_ + (##fx= _g193603_ 2))) + (error "Context expects 2 values" _g193603_))) + (let ((_%target182082182119%_ (let () (declare (not safe)) - (##vector-ref _g192315_ 0))) - (_%tl180797180834%_ + (##values-ref _g193602_ 0))) + (_%tl182084182121%_ (let () (declare (not safe)) - (##vector-ref _g192315_ 1)))) + (##values-ref _g193602_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180797180834%_)) - (letrec ((_%loop180798180837%_ - (lambda (_%hd180796180840%_ - _%id180802180842%_) + (gx#stx-null? _%tl182084182121%_)) + (letrec ((_%loop182085182124%_ + (lambda (_%hd182083182127%_ + _%id182089182129%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180796180840%_)) - (let ((_%e180799180845%_ + _%hd182083182127%_)) + (let ((_%e182086182132%_ (let () (declare (not safe)) (gx#stx-e - _%hd180796180840%_)))) - (let ((_%lp-hd180800180848%_ + _%hd182083182127%_)))) + (let ((_%lp-hd182087182135%_ (let () (declare (not safe)) - (##car _%e180799180845%_))) - (_%lp-tl180801180850%_ + (##car _%e182086182132%_))) + (_%lp-tl182088182137%_ (let () (declare (not safe)) - (##cdr _%e180799180845%_)))) - (_%loop180798180837%_ - _%lp-tl180801180850%_ - (cons _%lp-hd180800180848%_ - _%id180802180842%_)))) - (let ((_%id180803180853%_ - (reverse _%id180802180842%_))) + (##cdr _%e182086182132%_)))) + (_%loop182085182124%_ + _%lp-tl182088182137%_ + (cons _%lp-hd182087182135%_ + _%id182089182129%_)))) + (let ((_%id182090182140%_ + (reverse _%id182089182129%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180794180829%_)) - (let ((_%e180804180856%_ + _%tl182081182116%_)) + (let ((_%e182091182143%_ (let () (declare (not safe)) (gx#stx-e - _%tl180794180829%_)))) - (let ((_%hd180805180859%_ + _%tl182081182116%_)))) + (let ((_%hd182092182146%_ (let () (declare (not safe)) - (##car _%e180804180856%_))) - (_%tl180806180861%_ + (##car _%e182091182143%_))) + (_%tl182093182148%_ (let () (declare (not safe)) - (##cdr _%e180804180856%_)))) + (##cdr _%e182091182143%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180806180861%_)) - ((lambda (_%L180864%_ + _%tl182093182148%_)) + ((lambda (_%L182151%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L180865%_) - (_%assert-restart180760%_ _%L180864%_ _%assert180782%_)) - _%hd180805180859%_ - _%id180803180853%_) - (_%g180785180811%_ _%g180786180814%_)))) + _%L182152%_) + (_%assert-restart182047%_ _%L182151%_ _%assert182069%_)) + _%hd182092182146%_ + _%id182090182140%_) + (_%g182072182098%_ _%g182073182101%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180785180811%_ - _%g180786180814%_))))))) - (_%loop180798180837%_ - _%target180795180832%_ + (_%g182072182098%_ + _%g182073182101%_))))))) + (_%loop182085182124%_ + _%target182082182119%_ '())) - (_%g180785180811%_ _%g180786180814%_))))) - (_%g180785180811%_ _%g180786180814%_)))) + (_%g182072182098%_ _%g182073182101%_))))) + (_%g182072182098%_ _%g182073182101%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180785180811%_ - _%g180786180814%_)) - (_%g180785180811%_ - _%g180786180814%_)) - (_%g180785180811%_ - _%g180786180814%_)))) - (_%g180785180811%_ _%g180786180814%_))))) - (_%g180784180888%_ _%kont180783%_))))) - (if (pair? _%block180761180774%_) - (let ((_%tl180766180894%_ + (_%g182072182098%_ + _%g182073182101%_)) + (_%g182072182098%_ + _%g182073182101%_)) + (_%g182072182098%_ + _%g182073182101%_)))) + (_%g182072182098%_ _%g182073182101%_))))) + (_%g182071182175%_ _%kont182070%_))))) + (if (pair? _%block182048182061%_) + (let ((_%tl182053182181%_ (let () (declare (not safe)) - (##cdr _%block180761180774%_)))) - (if (pair? _%tl180766180894%_) - (let ((_%tl180768180897%_ + (##cdr _%block182048182061%_)))) + (if (pair? _%tl182053182181%_) + (let ((_%tl182055182184%_ (let () (declare (not safe)) - (##cdr _%tl180766180894%_)))) - (if (pair? _%tl180768180897%_) - (let ((_%hd180769180900%_ + (##cdr _%tl182053182181%_)))) + (if (pair? _%tl182055182184%_) + (let ((_%hd182056182187%_ (let () (declare (not safe)) - (##car _%tl180768180897%_))) - (_%tl180770180902%_ + (##car _%tl182055182184%_))) + (_%tl182057182189%_ (let () (declare (not safe)) - (##cdr _%tl180768180897%_)))) - (let ((_%kont180905%_ _%hd180769180900%_)) - (if (pair? _%tl180770180902%_) - (let ((_%hd180771180907%_ + (##cdr _%tl182055182184%_)))) + (let ((_%kont182192%_ _%hd182056182187%_)) + (if (pair? _%tl182057182189%_) + (let ((_%hd182058182194%_ (let () (declare (not safe)) - (##car _%tl180770180902%_))) - (_%tl180772180909%_ + (##car _%tl182057182189%_))) + (_%tl182059182196%_ (let () (declare (not safe)) - (##cdr _%tl180770180902%_)))) - (let* ((_%assert180912%_ - _%hd180771180907%_) - (_%maybe-bind180914%_ - _%tl180772180909%_)) - (_%K180764180891%_ - _%maybe-bind180914%_ - _%assert180912%_ - _%kont180905%_))) - (_%E180763180778%_)))) - (_%E180763180778%_))) - (_%E180763180778%_))) - (_%E180763180778%_)))))) + (##cdr _%tl182057182189%_)))) + (let* ((_%assert182199%_ + _%hd182058182194%_) + (_%maybe-bind182201%_ + _%tl182059182196%_)) + (_%K182051182178%_ + _%maybe-bind182201%_ + _%assert182199%_ + _%kont182192%_))) + (_%E182050182065%_)))) + (_%E182050182065%_))) + (_%E182050182065%_))) + (_%E182050182065%_)))))) (define gxc#optimize-syntax-case - (lambda (_%stx180388%_) - (let* ((_%g180390180420%_ - (lambda (_%g180391180417%_) + (lambda (_%stx181675%_) + (let* ((_%g181677181707%_ + (lambda (_%g181678181704%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g180391180417%_)))) - (_%g180389180754%_ - (lambda (_%g180391180423%_) + _%g181678181704%_)))) + (_%g181676182041%_ + (lambda (_%g181678181710%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g180391180423%_)) - (let ((_%e180395180425%_ + (gx#stx-pair? _%g181678181710%_)) + (let ((_%e181682181712%_ (let () (declare (not safe)) - (gx#stx-e _%g180391180423%_)))) - (let ((_%hd180396180428%_ + (gx#stx-e _%g181678181710%_)))) + (let ((_%hd181683181715%_ (let () (declare (not safe)) - (##car _%e180395180425%_))) - (_%tl180397180430%_ + (##car _%e181682181712%_))) + (_%tl181684181717%_ (let () (declare (not safe)) - (##cdr _%e180395180425%_)))) + (##cdr _%e181682181712%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180396180428%_)) + (gx#identifier? _%hd181683181715%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd180396180428%_)) + _%hd181683181715%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180397180430%_)) - (let ((_%e180398180433%_ + (gx#stx-pair? _%tl181684181717%_)) + (let ((_%e181685181720%_ (let () (declare (not safe)) - (gx#stx-e _%tl180397180430%_)))) - (let ((_%hd180399180436%_ + (gx#stx-e _%tl181684181717%_)))) + (let ((_%hd181686181723%_ (let () (declare (not safe)) - (##car _%e180398180433%_))) - (_%tl180400180438%_ + (##car _%e181685181720%_))) + (_%tl181687181725%_ (let () (declare (not safe)) - (##cdr _%e180398180433%_)))) + (##cdr _%e181685181720%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180399180436%_)) - (let ((_%e180401180441%_ + _%hd181686181723%_)) + (let ((_%e181688181728%_ (let () (declare (not safe)) (gx#stx-e - _%hd180399180436%_)))) - (let ((_%hd180402180444%_ + _%hd181686181723%_)))) + (let ((_%hd181689181731%_ (let () (declare (not safe)) - (##car _%e180401180441%_))) - (_%tl180403180446%_ + (##car _%e181688181728%_))) + (_%tl181690181733%_ (let () (declare (not safe)) - (##cdr _%e180401180441%_)))) + (##cdr _%e181688181728%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180402180444%_)) - (let ((_%e180404180449%_ + _%hd181689181731%_)) + (let ((_%e181691181736%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd180402180444%_)))) - (let ((_%hd180405180452%_ - (let () (declare (not safe)) (##car _%e180404180449%_))) - (_%tl180406180454%_ + (gx#stx-e _%hd181689181731%_)))) + (let ((_%hd181692181739%_ + (let () (declare (not safe)) (##car _%e181691181736%_))) + (_%tl181693181741%_ (let () (declare (not safe)) - (##cdr _%e180404180449%_)))) + (##cdr _%e181691181736%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180405180452%_)) - (let ((_%e180407180457%_ + (gx#stx-pair? _%hd181692181739%_)) + (let ((_%e181694181744%_ (let () (declare (not safe)) - (gx#stx-e _%hd180405180452%_)))) - (let ((_%hd180408180460%_ + (gx#stx-e _%hd181692181739%_)))) + (let ((_%hd181695181747%_ (let () (declare (not safe)) - (##car _%e180407180457%_))) - (_%tl180409180462%_ + (##car _%e181694181744%_))) + (_%tl181696181749%_ (let () (declare (not safe)) - (##cdr _%e180407180457%_)))) + (##cdr _%e181694181744%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180409180462%_)) + (gx#stx-null? _%tl181696181749%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180406180454%_)) - (let ((_%e180410180465%_ + (gx#stx-pair? _%tl181693181741%_)) + (let ((_%e181697181752%_ (let () (declare (not safe)) - (gx#stx-e _%tl180406180454%_)))) - (let ((_%hd180411180468%_ + (gx#stx-e _%tl181693181741%_)))) + (let ((_%hd181698181755%_ (let () (declare (not safe)) - (##car _%e180410180465%_))) - (_%tl180412180470%_ + (##car _%e181697181752%_))) + (_%tl181699181757%_ (let () (declare (not safe)) - (##cdr _%e180410180465%_)))) + (##cdr _%e181697181752%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180412180470%_)) + (gx#stx-null? _%tl181699181757%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180403180446%_)) + _%tl181690181733%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180400180438%_)) - (let ((_%e180413180473%_ + _%tl181687181725%_)) + (let ((_%e181700181760%_ (let () (declare (not safe)) (gx#stx-e - _%tl180400180438%_)))) - (let ((_%hd180414180476%_ + _%tl181687181725%_)))) + (let ((_%hd181701181763%_ (let () (declare (not safe)) - (##car _%e180413180473%_))) - (_%tl180415180478%_ + (##car _%e181700181760%_))) + (_%tl181702181765%_ (let () (declare (not safe)) - (##cdr _%e180413180473%_)))) + (##cdr _%e181700181760%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180415180478%_)) - ((lambda (_%L180481%_ + _%tl181702181765%_)) + ((lambda (_%L181768%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L180482%_ - _%L180483%_) - (let _%lp180507%_ ((_%body180509%_ _%L180481%_) - (_%clauses180510%_ '())) - (let* ((_%__stx191488191489%_ _%body180509%_) - (_%g180513180560%_ + _%L181769%_ + _%L181770%_) + (let _%lp181794%_ ((_%body181796%_ _%L181768%_) + (_%clauses181797%_ '())) + (let* ((_%__stx192775192776%_ _%body181796%_) + (_%g181800181847%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191488191489%_))))) - (let ((_%__kont191490191491%_ - (lambda (_%L180726%_ _%L180727%_ _%L180728%_) - (_%lp180507%_ - _%L180726%_ - (cons (cons _%L180728%_ + _%__stx192775192776%_))))) + (let ((_%__kont192777192778%_ + (lambda (_%L182013%_ _%L182014%_ _%L182015%_) + (_%lp181794%_ + _%L182013%_ + (cons (cons _%L182015%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L180727%_))) - _%clauses180510%_)))) - (_%__kont191492191493%_ - (lambda (_%L180605%_ _%L180606%_) - (let ((_%$e180627%_ - (length _%clauses180510%_))) - (if (eq? '0 _%$e180627%_) - (let ((__tmp192317 + _%L182014%_))) + _%clauses181797%_)))) + (_%__kont192779192780%_ + (lambda (_%L181892%_ _%L181893%_) + (let ((_%$e181914%_ + (length _%clauses181797%_))) + (if (eq? '0 _%$e181914%_) + (let ((__tmp193604 (cons '%#let-values - (cons (cons (cons (cons _%L180483%_ + (cons (cons (cons (cons _%L181770%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L180482%_ '())) + (cons _%L181769%_ '())) '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%body180509%_)) + (gxc#compile-e__0 _%body181796%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp192317 - _%stx180388%_)) - (if (eq? '1 _%$e180627%_) - (let* ((_%clauses180629180638%_ - _%clauses180510%_) - (_%E180631180642%_ + __tmp193604 + _%stx181675%_)) + (if (eq? '1 _%$e181914%_) + (let* ((_%clauses181916181925%_ + _%clauses181797%_) + (_%E181918181929%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses180629180638%_ + _%clauses181916181925%_ '([[clause ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . clause-lambda]]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K180632180648%_ - (lambda (_%clause-lambda180645%_ - _%clause180646%_) - (let ((__tmp192318 + (_%K181919181935%_ + (lambda (_%clause-lambda181932%_ + _%clause181933%_) + (let ((__tmp193605 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L180483%_ '()) - (cons _%L180482%_ '())) + (cons (cons (cons (cons _%L181770%_ '()) + (cons _%L181769%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%clause180646%_ + (cons (cons (cons (cons _%clause181933%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%clause-lambda180645%_ '())) + (cons _%clause-lambda181932%_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%body180509%_)) + _%body181796%_)) '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192318 _%stx180388%_))))) + (gxc#xform-wrap-source __tmp193605 _%stx181675%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%clauses180629180638%_) - (let ((_%hd180633180651%_ + (if (pair? _%clauses181916181925%_) + (let ((_%hd181920181938%_ (let () (declare (not safe)) - (##car _%clauses180629180638%_))) - (_%tl180634180653%_ + (##car _%clauses181916181925%_))) + (_%tl181921181940%_ (let () (declare (not safe)) - (##cdr _%clauses180629180638%_)))) - (if (pair? _%hd180633180651%_) - (let ((_%hd180635180656%_ + (##cdr _%clauses181916181925%_)))) + (if (pair? _%hd181920181938%_) + (let ((_%hd181922181943%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%hd180633180651%_))) - (_%tl180636180658%_ + (##car _%hd181920181938%_))) + (_%tl181923181945%_ (let () (declare (not safe)) - (##cdr _%hd180633180651%_)))) - (let* ((_%clause180661%_ _%hd180635180656%_) - (_%clause-lambda180663%_ _%tl180636180658%_)) - (if (null? _%tl180634180653%_) - (_%K180632180648%_ - _%clause-lambda180663%_ - _%clause180661%_) - (_%E180631180642%_)))) - (_%E180631180642%_))) + (##cdr _%hd181920181938%_)))) + (let* ((_%clause181948%_ _%hd181922181943%_) + (_%clause-lambda181950%_ _%tl181923181945%_)) + (if (null? _%tl181921181940%_) + (_%K181919181935%_ + _%clause-lambda181950%_ + _%clause181948%_) + (_%E181918181929%_)))) + (_%E181918181929%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E180631180642%_))) + (_%E181918181929%_))) (gxc#optimize-syntax-case-body - _%stx180388%_ + _%stx181675%_ (let () (declare (not safe)) - (gxc#compile-e__0 _%L180605%_)) - (cons _%L180483%_ _%L180482%_) - _%clauses180510%_))))))) + (gxc#compile-e__0 _%L181892%_)) + (cons _%L181770%_ _%L181769%_) + _%clauses181797%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191488191489%_)) - (let ((_%e180518180670%_ + (gx#stx-pair? _%__stx192775192776%_)) + (let ((_%e181805181957%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191488191489%_)))) - (let ((_%tl180520180675%_ + (gx#stx-e _%__stx192775192776%_)))) + (let ((_%tl181807181962%_ (let () (declare (not safe)) - (##cdr _%e180518180670%_))) - (_%hd180519180673%_ + (##cdr _%e181805181957%_))) + (_%hd181806181960%_ (let () (declare (not safe)) - (##car _%e180518180670%_)))) + (##car _%e181805181957%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180519180673%_)) + (gx#identifier? _%hd181806181960%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd180519180673%_)) + _%hd181806181960%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180520180675%_)) - (let ((_%e180521180678%_ + _%tl181807181962%_)) + (let ((_%e181808181965%_ (let () (declare (not safe)) (gx#stx-e - _%tl180520180675%_)))) - (let ((_%tl180523180683%_ + _%tl181807181962%_)))) + (let ((_%tl181810181970%_ (let () (declare (not safe)) - (##cdr _%e180521180678%_))) - (_%hd180522180681%_ + (##cdr _%e181808181965%_))) + (_%hd181809181968%_ (let () (declare (not safe)) - (##car _%e180521180678%_)))) + (##car _%e181808181965%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180522180681%_)) - (let ((_%e180524180686%_ + _%hd181809181968%_)) + (let ((_%e181811181973%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd180522180681%_)))) - (let ((_%tl180526180691%_ + (gx#stx-e _%hd181809181968%_)))) + (let ((_%tl181813181978%_ (let () (declare (not safe)) - (##cdr _%e180524180686%_))) - (_%hd180525180689%_ + (##cdr _%e181811181973%_))) + (_%hd181812181976%_ (let () (declare (not safe)) - (##car _%e180524180686%_)))) + (##car _%e181811181973%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180525180689%_)) - (let ((_%e180527180694%_ + (gx#stx-pair? _%hd181812181976%_)) + (let ((_%e181814181981%_ (let () (declare (not safe)) - (gx#stx-e _%hd180525180689%_)))) - (let ((_%tl180529180699%_ + (gx#stx-e _%hd181812181976%_)))) + (let ((_%tl181816181986%_ (let () (declare (not safe)) - (##cdr _%e180527180694%_))) - (_%hd180528180697%_ + (##cdr _%e181814181981%_))) + (_%hd181815181984%_ (let () (declare (not safe)) - (##car _%e180527180694%_)))) + (##car _%e181814181981%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180528180697%_)) - (let ((_%e180530180702%_ + (gx#stx-pair? _%hd181815181984%_)) + (let ((_%e181817181989%_ (let () (declare (not safe)) - (gx#stx-e _%hd180528180697%_)))) - (let ((_%tl180532180707%_ + (gx#stx-e _%hd181815181984%_)))) + (let ((_%tl181819181994%_ (let () (declare (not safe)) - (##cdr _%e180530180702%_))) - (_%hd180531180705%_ + (##cdr _%e181817181989%_))) + (_%hd181818181992%_ (let () (declare (not safe)) - (##car _%e180530180702%_)))) + (##car _%e181817181989%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180532180707%_)) + (gx#stx-null? _%tl181819181994%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180529180699%_)) - (let ((_%e180533180710%_ + (gx#stx-pair? _%tl181816181986%_)) + (let ((_%e181820181997%_ (let () (declare (not safe)) (gx#stx-e - _%tl180529180699%_)))) - (let ((_%tl180535180715%_ + _%tl181816181986%_)))) + (let ((_%tl181822182002%_ (let () (declare (not safe)) - (##cdr _%e180533180710%_))) - (_%hd180534180713%_ + (##cdr _%e181820181997%_))) + (_%hd181821182000%_ (let () (declare (not safe)) - (##car _%e180533180710%_)))) + (##car _%e181820181997%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180535180715%_)) + _%tl181822182002%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180526180691%_)) + _%tl181813181978%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180523180683%_)) - (let ((_%e180536180718%_ + _%tl181810181970%_)) + (let ((_%e181823182005%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl180523180683%_)))) - (let ((_%tl180538180723%_ + (gx#stx-e _%tl181810181970%_)))) + (let ((_%tl181825182010%_ (let () (declare (not safe)) - (##cdr _%e180536180718%_))) - (_%hd180537180721%_ + (##cdr _%e181823182005%_))) + (_%hd181824182008%_ (let () (declare (not safe)) - (##car _%e180536180718%_)))) + (##car _%e181823182005%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180538180723%_)) - (_%__kont191490191491%_ - _%hd180537180721%_ - _%hd180534180713%_ - _%hd180531180705%_) - (let () (declare (not safe)) (_%g180513180560%_))))) - (let () (declare (not safe)) (_%g180513180560%_))) - (let () (declare (not safe)) (_%g180513180560%_))) + (gx#stx-null? _%tl181825182010%_)) + (_%__kont192777192778%_ + _%hd181824182008%_ + _%hd181821182000%_ + _%hd181818181992%_) + (let () (declare (not safe)) (_%g181800181847%_))))) + (let () (declare (not safe)) (_%g181800181847%_))) + (let () (declare (not safe)) (_%g181800181847%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g180513180560%_))))) + (_%g181800181847%_))))) (let () (declare (not safe)) - (_%g180513180560%_))) + (_%g181800181847%_))) (let () (declare (not safe)) - (_%g180513180560%_))))) + (_%g181800181847%_))))) (let () (declare (not safe)) - (_%g180513180560%_))))) - (let () (declare (not safe)) (_%g180513180560%_))))) - (let () (declare (not safe)) (_%g180513180560%_))))) + (_%g181800181847%_))))) + (let () (declare (not safe)) (_%g181800181847%_))))) + (let () (declare (not safe)) (_%g181800181847%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g180513180560%_))) + (_%g181800181847%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd180519180673%_)) + _%hd181806181960%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180520180675%_)) - (let ((_%e180544180573%_ + _%tl181807181962%_)) + (let ((_%e181831181860%_ (let () (declare (not safe)) (gx#stx-e - _%tl180520180675%_)))) - (let ((_%tl180546180578%_ + _%tl181807181962%_)))) + (let ((_%tl181833181865%_ (let () (declare (not safe)) - (##cdr _%e180544180573%_))) - (_%hd180545180576%_ + (##cdr _%e181831181860%_))) + (_%hd181832181863%_ (let () (declare (not safe)) - (##car _%e180544180573%_)))) + (##car _%e181831181860%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180545180576%_)) - (let ((_%e180547180581%_ + _%hd181832181863%_)) + (let ((_%e181834181868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd180545180576%_)))) - (let ((_%tl180549180586%_ + (gx#stx-e _%hd181832181863%_)))) + (let ((_%tl181836181873%_ (let () (declare (not safe)) - (##cdr _%e180547180581%_))) - (_%hd180548180584%_ + (##cdr _%e181834181868%_))) + (_%hd181835181871%_ (let () (declare (not safe)) - (##car _%e180547180581%_)))) + (##car _%e181834181868%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180548180584%_)) + (gx#identifier? _%hd181835181871%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd180548180584%_)) + (gx#stx-eq? '%#ref _%hd181835181871%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180549180586%_)) - (let ((_%e180550180589%_ + (gx#stx-pair? _%tl181836181873%_)) + (let ((_%e181837181876%_ (let () (declare (not safe)) - (gx#stx-e _%tl180549180586%_)))) - (let ((_%tl180552180594%_ + (gx#stx-e _%tl181836181873%_)))) + (let ((_%tl181839181881%_ (let () (declare (not safe)) - (##cdr _%e180550180589%_))) - (_%hd180551180592%_ + (##cdr _%e181837181876%_))) + (_%hd181838181879%_ (let () (declare (not safe)) - (##car _%e180550180589%_)))) + (##car _%e181837181876%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180552180594%_)) + (gx#stx-null? _%tl181839181881%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180546180578%_)) - (let ((_%e180553180597%_ + _%tl181833181865%_)) + (let ((_%e181840181884%_ (let () (declare (not safe)) (gx#stx-e - _%tl180546180578%_)))) - (let ((_%tl180555180602%_ + _%tl181833181865%_)))) + (let ((_%tl181842181889%_ (let () (declare (not safe)) - (##cdr _%e180553180597%_))) - (_%hd180554180600%_ + (##cdr _%e181840181884%_))) + (_%hd181841181887%_ (let () (declare (not safe)) - (##car _%e180553180597%_)))) + (##car _%e181840181884%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180555180602%_)) - (_%__kont191492191493%_ - _%hd180554180600%_ - _%hd180551180592%_) + _%tl181842181889%_)) + (_%__kont192779192780%_ + _%hd181841181887%_ + _%hd181838181879%_) (let () (declare (not safe)) - (_%g180513180560%_))))) + (_%g181800181847%_))))) (let () (declare (not safe)) - (_%g180513180560%_))) + (_%g181800181847%_))) (let () (declare (not safe)) - (_%g180513180560%_))))) + (_%g181800181847%_))))) (let () (declare (not safe)) - (_%g180513180560%_))) + (_%g181800181847%_))) (let () (declare (not safe)) - (_%g180513180560%_))) - (let () (declare (not safe)) (_%g180513180560%_))))) - (let () (declare (not safe)) (_%g180513180560%_))))) + (_%g181800181847%_))) + (let () (declare (not safe)) (_%g181800181847%_))))) + (let () (declare (not safe)) (_%g181800181847%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g180513180560%_))) + (_%g181800181847%_))) (let () (declare (not safe)) - (_%g180513180560%_)))) + (_%g181800181847%_)))) (let () (declare (not safe)) - (_%g180513180560%_))))) + (_%g181800181847%_))))) (let () (declare (not safe)) - (_%g180513180560%_))))))) - _%hd180414180476%_ - _%hd180411180468%_ - _%hd180408180460%_) - (_%g180390180420%_ _%g180391180423%_)))) + (_%g181800181847%_))))))) + _%hd181701181763%_ + _%hd181698181755%_ + _%hd181695181747%_) + (_%g181677181707%_ _%g181678181710%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180390180420%_ - _%g180391180423%_)) - (_%g180390180420%_ - _%g180391180423%_)) - (_%g180390180420%_ - _%g180391180423%_)))) - (_%g180390180420%_ _%g180391180423%_)) - (_%g180390180420%_ _%g180391180423%_)))) - (_%g180390180420%_ _%g180391180423%_)))) - (_%g180390180420%_ _%g180391180423%_)))) + (_%g181677181707%_ + _%g181678181710%_)) + (_%g181677181707%_ + _%g181678181710%_)) + (_%g181677181707%_ + _%g181678181710%_)))) + (_%g181677181707%_ _%g181678181710%_)) + (_%g181677181707%_ _%g181678181710%_)))) + (_%g181677181707%_ _%g181678181710%_)))) + (_%g181677181707%_ _%g181678181710%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180390180420%_ - _%g180391180423%_)))) - (_%g180390180420%_ _%g180391180423%_)) - (_%g180390180420%_ _%g180391180423%_)) - (_%g180390180420%_ _%g180391180423%_)))) - (_%g180390180420%_ _%g180391180423%_))))) - (_%g180389180754%_ _%stx180388%_)))) + (_%g181677181707%_ + _%g181678181710%_)))) + (_%g181677181707%_ _%g181678181710%_)) + (_%g181677181707%_ _%g181678181710%_)) + (_%g181677181707%_ _%g181678181710%_)))) + (_%g181677181707%_ _%g181678181710%_))))) + (_%g181676182041%_ _%stx181675%_)))) (define gxc#optimize-syntax-case-body - (lambda (_%stx180315%_ - _%expr180316%_ - _%negation180317%_ - _%clauses180318%_) - (letrec ((_%normalize180320%_ - (lambda (_%clauses180348%_) - (let* ((_%clauses180349180358%_ _%clauses180348%_) - (_%E180351180362%_ + (lambda (_%stx181602%_ + _%expr181603%_ + _%negation181604%_ + _%clauses181605%_) + (letrec ((_%normalize181607%_ + (lambda (_%clauses181635%_) + (let* ((_%clauses181636181645%_ _%clauses181635%_) + (_%E181638181649%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses180349180358%_ + _%clauses181636181645%_ '([[id . kont] . rest]))) '#!void)) - (_%K180352180369%_ - (lambda (_%rest180365%_ - _%kont180366%_ - _%id180367%_) - (cons (cons '#f _%kont180366%_) - _%rest180365%_)))) - (if (pair? _%clauses180349180358%_) - (let ((_%hd180353180372%_ + (_%K181639181656%_ + (lambda (_%rest181652%_ + _%kont181653%_ + _%id181654%_) + (cons (cons '#f _%kont181653%_) + _%rest181652%_)))) + (if (pair? _%clauses181636181645%_) + (let ((_%hd181640181659%_ (let () (declare (not safe)) - (##car _%clauses180349180358%_))) - (_%tl180354180374%_ + (##car _%clauses181636181645%_))) + (_%tl181641181661%_ (let () (declare (not safe)) - (##cdr _%clauses180349180358%_)))) - (if (pair? _%hd180353180372%_) - (let ((_%hd180355180377%_ + (##cdr _%clauses181636181645%_)))) + (if (pair? _%hd181640181659%_) + (let ((_%hd181642181664%_ (let () (declare (not safe)) - (##car _%hd180353180372%_))) - (_%tl180356180379%_ + (##car _%hd181640181659%_))) + (_%tl181643181666%_ (let () (declare (not safe)) - (##cdr _%hd180353180372%_)))) - (let* ((_%id180382%_ _%hd180355180377%_) - (_%kont180384%_ _%tl180356180379%_) - (_%rest180386%_ _%tl180354180374%_)) - (_%K180352180369%_ - _%rest180386%_ - _%kont180384%_ - _%id180382%_))) - (_%E180351180362%_))) - (_%E180351180362%_)))))) - (let ((__tmp192320 + (##cdr _%hd181640181659%_)))) + (let* ((_%id181669%_ _%hd181642181664%_) + (_%kont181671%_ _%tl181643181666%_) + (_%rest181673%_ _%tl181641181661%_)) + (_%K181639181656%_ + _%rest181673%_ + _%kont181671%_ + _%id181669%_))) + (_%E181638181649%_))) + (_%E181638181649%_)))))) + (let ((__tmp193607 (lambda () - (let* ((_%id180323%_ - (let ((__tmp192321 + (let* ((_%id181610%_ + (let ((__tmp193608 (let () (declare (not safe)) (##gensym '__stx)))) (declare (not safe)) - (make-symbol__0 __tmp192321))) - (_%id180325%_ + (make-symbol__0 __tmp193608))) + (_%id181612%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id180323%_))) - (_%_180327%_ + (gx#core-quote-syntax__0 _%id181610%_))) + (_%_181614%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id180325%_))) - (_g192322_ + (gx#core-bind-runtime!__0 _%id181612%_))) + (_g193609_ (gxc#optimize-syntax-case-clauses - _%clauses180318%_ - (car _%negation180317%_)))) + _%clauses181605%_ + (car _%negation181604%_)))) (begin - (let ((_g192323_ + (let ((_g193610_ (let () (declare (not safe)) - (if (##values? _g192322_) - (##vector-length _g192322_) + (if (##values? _g193609_) + (##values-length _g193609_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192323_ 2))) - (error "Context expects 2 values" _g192323_))) - (let ((_%clauses180329%_ + (##fx= _g193610_ 2))) + (error "Context expects 2 values" _g193610_))) + (let ((_%clauses181616%_ (let () (declare (not safe)) - (##vector-ref _g192322_ 0))) - (_%konts180330%_ + (##values-ref _g193609_ 0))) + (_%konts181617%_ (let () (declare (not safe)) - (##vector-ref _g192322_ 1)))) - (let* ((_%clauses180339%_ - (map (lambda (_%g180331180334%_ - _%g180332180336%_) + (##values-ref _g193609_ 1)))) + (let* ((_%clauses181626%_ + (map (lambda (_%g181618181621%_ + _%g181619181623%_) (gxc#optimize-syntax-case-closure - _%g180331180334%_ - _%g180332180336%_ - _%id180325%_)) - _%clauses180329%_ - (let ((__tmp192325 - (cons (car _%negation180317%_) + _%g181618181621%_ + _%g181619181623%_ + _%id181612%_)) + _%clauses181616%_ + (let ((__tmp193612 + (cons (car _%negation181604%_) '())) - (__tmp192324 + (__tmp193611 (map car - (cdr _%clauses180329%_)))) + (cdr _%clauses181616%_)))) (declare (not safe)) (__foldr1 cons - __tmp192325 - __tmp192324)))) - (_%clauses180341%_ - (_%normalize180320%_ _%clauses180339%_)) - (_%negation180343%_ + __tmp193612 + __tmp193611)))) + (_%clauses181628%_ + (_%normalize181607%_ _%clauses181626%_)) + (_%negation181630%_ (gxc#optimize-syntax-case-closure - _%negation180317%_ + _%negation181604%_ '#f - _%id180325%_)) - (_%body180345%_ + _%id181612%_)) + (_%body181632%_ (gxc#optimize-match-body - _%stx180315%_ - _%negation180343%_ - _%clauses180341%_ - _%konts180330%_)) - (__tmp192326 + _%stx181602%_ + _%negation181630%_ + _%clauses181628%_ + _%konts181617%_)) + (__tmp193613 (cons '%#let-values - (cons (cons (cons (cons _%id180325%_ + (cons (cons (cons (cons _%id181612%_ '()) - (cons _%expr180316%_ + (cons _%expr181603%_ '())) '()) - (cons _%body180345%_ '()))))) + (cons _%body181632%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp192326 - _%stx180315%_))))))) - (__tmp192319 - (let ((__obj192240 + __tmp193613 + _%stx181602%_))))))) + (__tmp193606 + (let ((__obj193527 (let () (declare (not safe)) (##structure @@ -13151,72 +13151,72 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj192240)) - __obj192240))) + (gx#local-context:::init!__0 __obj193527)) + __obj193527))) (declare (not safe)) (__call-with-parameters - __tmp192320 + __tmp193607 gx#current-expander-context - __tmp192319))))) + __tmp193606))))) (define gxc#optimize-syntax-case-clauses - (lambda (_%clauses179071%_ _%negation-id179072%_) - (letrec ((_%xform-e179074%_ - (lambda (_%expr179459%_ - _%kont-id179460%_ - _%kont-box179461%_ - _%negation-id179462%_) - (let* ((_%__stx191690191691%_ _%expr179459%_) - (_%g179468179601%_ + (lambda (_%clauses180358%_ _%negation-id180359%_) + (letrec ((_%xform-e180361%_ + (lambda (_%expr180746%_ + _%kont-id180747%_ + _%kont-box180748%_ + _%negation-id180749%_) + (let* ((_%__stx192977192978%_ _%expr180746%_) + (_%g180755180888%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191690191691%_))))) - (let ((_%__kont191692191693%_ - (lambda (_%L180291%_ _%L180292%_ _%L180293%_) - (let ((_%K180310%_ - (_%xform-e179074%_ - _%L180292%_ - _%kont-id179460%_ - _%kont-box179461%_ - _%negation-id179462%_))) + _%__stx192977192978%_))))) + (let ((_%__kont192979192980%_ + (lambda (_%L181578%_ _%L181579%_ _%L181580%_) + (let ((_%K181597%_ + (_%xform-e180361%_ + _%L181579%_ + _%kont-id180747%_ + _%kont-box180748%_ + _%negation-id180749%_))) (cons '%#if - (cons _%L180293%_ - (cons _%K180310%_ - (cons _%L180291%_ '()))))))) - (_%__kont191694191695%_ - (lambda (_%L180206%_ - _%L180207%_ - _%L180208%_ - _%L180209%_ - _%L180210%_) - (let* ((_%id180245%_ - (let ((__tmp192327 + (cons _%L181580%_ + (cons _%K181597%_ + (cons _%L181578%_ '()))))))) + (_%__kont192981192982%_ + (lambda (_%L181493%_ + _%L181494%_ + _%L181495%_ + _%L181496%_ + _%L181497%_) + (let* ((_%id181532%_ + (let ((__tmp193614 (let () (declare (not safe)) (##gensym '__splice)))) (declare (not safe)) - (make-symbol__0 __tmp192327))) - (_%id180247%_ + (make-symbol__0 __tmp193614))) + (_%id181534%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id180245%_))) - (_%_180249%_ + _%id181532%_))) + (_%_181536%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id180247%_))) - (_%body180251%_ - (_%xform-e179074%_ - _%L180206%_ - _%kont-id179460%_ - _%kont-box179461%_ - _%negation-id179462%_))) + _%id181534%_))) + (_%body181538%_ + (_%xform-e180361%_ + _%L181493%_ + _%kont-id180747%_ + _%kont-box180748%_ + _%negation-id180749%_))) (cons '%#let-values - (cons (cons (cons (cons _%id180247%_ + (cons (cons (cons (cons _%id181534%_ '()) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -13225,113 +13225,113 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L180208%_ '())) - _%L180207%_)) + (cons _%L181495%_ '())) + _%L181494%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L180210%_ + (cons (cons (cons (cons _%L181497%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id180247%_ '())) + (cons _%id181534%_ '())) (cons '(%#quote 0) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L180209%_ '()) + (cons (cons (cons _%L181496%_ '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id180247%_ '())) + (cons _%id181534%_ '())) (cons '(%#quote 1) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (cons _%body180251%_ '()))) + (cons _%body181538%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont191696191697%_ - (lambda (_%L180088%_ _%L180089%_) - (let ((_%body180103%_ - (_%xform-e179074%_ - _%L180088%_ - _%kont-id179460%_ - _%kont-box179461%_ - _%negation-id179462%_))) + (_%__kont192983192984%_ + (lambda (_%L181375%_ _%L181376%_) + (let ((_%body181390%_ + (_%xform-e180361%_ + _%L181375%_ + _%kont-id180747%_ + _%kont-box180748%_ + _%negation-id180749%_))) (cons '%#let-values - (cons _%L180089%_ - (cons _%body180103%_ '())))))) - (_%__kont191698191699%_ - (lambda (_%L180032%_ _%L180033%_ _%L180034%_) - (let ((_%lambda-expr180057%_ - (_%xform-loop-e179075%_ - _%L180033%_ - _%kont-id179460%_ - _%kont-box179461%_ - _%negation-id179462%_))) + (cons _%L181376%_ + (cons _%body181390%_ '())))))) + (_%__kont192985192986%_ + (lambda (_%L181319%_ _%L181320%_ _%L181321%_) + (let ((_%lambda-expr181344%_ + (_%xform-loop-e180362%_ + _%L181320%_ + _%kont-id180747%_ + _%kont-box180748%_ + _%negation-id180749%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L180034%_ '()) - (cons _%lambda-expr180057%_ + (cons (cons (cons (cons _%L181321%_ '()) + (cons _%lambda-expr181344%_ '())) '()) - (cons _%L180032%_ '())))))) - (_%__kont191700191701%_ - (lambda (_%L179694%_ _%L179695%_ _%L179696%_) - (let* ((_%__stx191592191593%_ _%L179695%_) - (_%g179725179768%_ + (cons _%L181319%_ '())))))) + (_%__kont192987192988%_ + (lambda (_%L180981%_ _%L180982%_ _%L180983%_) + (let* ((_%__stx192879192880%_ _%L180982%_) + (_%g181012181055%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191592191593%_))))) - (let ((_%__kont191594191595%_ - (lambda (_%L179884%_ - _%L179885%_ - _%L179886%_ - _%L179887%_) - (let ((_%kont179928%_ + _%__stx192879192880%_))))) + (let ((_%__kont192881192882%_ + (lambda (_%L181171%_ + _%L181172%_ + _%L181173%_ + _%L181174%_) + (let ((_%kont181215%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp192328 + (cons (let ((__tmp193615 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g179920179923%_ _%g179921179925%_) - (cons _%g179920179923%_ _%g179921179925%_)))) + (lambda (_%g181207181210%_ _%g181208181212%_) + (cons _%g181207181210%_ _%g181208181212%_)))) (declare (not safe)) - (__foldr1 __tmp192328 '() _%L179696%_)) - (cons _%L179886%_ '()))))) + (__foldr1 __tmp193615 '() _%L180983%_)) + (cons _%L181173%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box179461%_ - _%kont179928%_) - (let* ((_%kont-args179939%_ - (map (lambda (_%id179930%_) + _%kont-box180748%_ + _%kont181215%_) + (let* ((_%kont-args181226%_ + (map (lambda (_%id181217%_) (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id179930%_ '()))) - (let ((__tmp192329 - (lambda (_%g179931179934%_ _%g179932179936%_) - (cons _%g179931179934%_ _%g179932179936%_)))) + (cons _%id181217%_ '()))) + (let ((__tmp193616 + (lambda (_%g181218181221%_ _%g181219181223%_) + (cons _%g181218181221%_ _%g181219181223%_)))) (declare (not safe)) - (__foldr1 __tmp192329 '() _%L179696%_)))) + (__foldr1 __tmp193616 '() _%L180983%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%body179941%_ + (_%body181228%_ (cons '%#if - (cons _%L179887%_ + (cons _%L181174%_ (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref - (cons _%kont-id179460%_ '())) - _%kont-args179939%_)) + (cons _%kont-id180747%_ '())) + _%kont-args181226%_)) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -13340,3156 +13340,3156 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L179885%_ '())) + (cons _%L181172%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L179884%_ + (cons _%L181171%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (null? (let ((__tmp192330 - (lambda (_%g179943179946%_ + (if (null? (let ((__tmp193617 + (lambda (_%g181230181233%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g179944179948%_) - (cons _%g179943179946%_ _%g179944179948%_)))) + _%g181231181235%_) + (cons _%g181230181233%_ _%g181231181235%_)))) (declare (not safe)) - (__foldr1 __tmp192330 '() _%L179696%_))) + (__foldr1 __tmp193617 '() _%L180983%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body179941%_ + _%body181228%_ (cons '%#let-values - (cons (map (lambda (_%id179951%_ + (cons (map (lambda (_%id181238%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg179952%_) - (cons (cons _%id179951%_ '()) - (cons _%arg179952%_ '()))) - (let ((__tmp192331 - (lambda (_%g179953179956%_ _%g179954179958%_) - (cons _%g179953179956%_ - _%g179954179958%_)))) + _%arg181239%_) + (cons (cons _%id181238%_ '()) + (cons _%arg181239%_ '()))) + (let ((__tmp193618 + (lambda (_%g181240181243%_ _%g181241181245%_) + (cons _%g181240181243%_ + _%g181241181245%_)))) (declare (not safe)) - (__foldr1 __tmp192331 '() _%L179696%_)) - (let ((__tmp192332 - (lambda (_%g179960179963%_ _%g179961179965%_) - (cons _%g179960179963%_ - _%g179961179965%_)))) + (__foldr1 __tmp193618 '() _%L180983%_)) + (let ((__tmp193619 + (lambda (_%g181247181250%_ _%g181248181252%_) + (cons _%g181247181250%_ + _%g181248181252%_)))) (declare (not safe)) - (__foldr1 __tmp192332 '() _%L179694%_))) - (cons _%body179941%_ '())))))))) + (__foldr1 __tmp193619 '() _%L180981%_))) + (cons _%body181228%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191596191597%_ + (_%__kont192883192884%_ (lambda () - (let ((_%kont179782%_ + (let ((_%kont181069%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp192333 + (cons (let ((__tmp193620 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g179774179777%_ _%g179775179779%_) - (cons _%g179774179777%_ _%g179775179779%_)))) + (lambda (_%g181061181064%_ _%g181062181066%_) + (cons _%g181061181064%_ _%g181062181066%_)))) (declare (not safe)) - (__foldr1 __tmp192333 '() _%L179696%_)) - (cons _%L179695%_ '()))))) + (__foldr1 __tmp193620 '() _%L180983%_)) + (cons _%L180982%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box179461%_ - _%kont179782%_) + _%kont-box180748%_ + _%kont181069%_) (cons '%#call (cons (cons '%#ref - (cons _%kont-id179460%_ + (cons _%kont-id180747%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp192334 - (lambda (_%g179783179786%_ _%g179784179788%_) - (cons _%g179783179786%_ _%g179784179788%_)))) + (let ((__tmp193621 + (lambda (_%g181070181073%_ _%g181071181075%_) + (cons _%g181070181073%_ _%g181071181075%_)))) (declare (not safe)) - (__foldr1 __tmp192334 '() _%L179694%_)))))))) + (__foldr1 __tmp193621 '() _%L180981%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match191687191688%_ - (lambda (_%e179731179796%_ - _%hd179732179799%_ - _%tl179733179801%_ - _%e179734179804%_ - _%hd179735179807%_ - _%tl179736179809%_ - _%e179737179812%_ - _%hd179738179815%_ - _%tl179739179817%_ - _%e179740179820%_ - _%hd179741179823%_ - _%tl179742179825%_ - _%e179743179828%_ - _%hd179744179831%_ - _%tl179745179833%_ - _%e179746179836%_ - _%hd179747179839%_ - _%tl179748179841%_ - _%e179749179844%_ - _%hd179750179847%_ - _%tl179751179849%_ - _%e179752179852%_ - _%hd179753179855%_ - _%tl179754179857%_ - _%e179755179860%_ - _%hd179756179863%_ - _%tl179757179865%_ - _%e179758179868%_ - _%hd179759179871%_ - _%tl179760179873%_ - _%e179761179876%_ - _%hd179762179879%_ - _%tl179763179881%_) - (let ((_%L179884%_ - _%hd179762179879%_) - (_%L179885%_ - _%hd179753179855%_) - (_%L179886%_ - _%hd179738179815%_) - (_%L179887%_ - _%hd179735179807%_)) + (let ((_%__match192974192975%_ + (lambda (_%e181018181083%_ + _%hd181019181086%_ + _%tl181020181088%_ + _%e181021181091%_ + _%hd181022181094%_ + _%tl181023181096%_ + _%e181024181099%_ + _%hd181025181102%_ + _%tl181026181104%_ + _%e181027181107%_ + _%hd181028181110%_ + _%tl181029181112%_ + _%e181030181115%_ + _%hd181031181118%_ + _%tl181032181120%_ + _%e181033181123%_ + _%hd181034181126%_ + _%tl181035181128%_ + _%e181036181131%_ + _%hd181037181134%_ + _%tl181038181136%_ + _%e181039181139%_ + _%hd181040181142%_ + _%tl181041181144%_ + _%e181042181147%_ + _%hd181043181150%_ + _%tl181044181152%_ + _%e181045181155%_ + _%hd181046181158%_ + _%tl181047181160%_ + _%e181048181163%_ + _%hd181049181166%_ + _%tl181050181168%_) + (let ((_%L181171%_ + _%hd181049181166%_) + (_%L181172%_ + _%hd181040181142%_) + (_%L181173%_ + _%hd181025181102%_) + (_%L181174%_ + _%hd181022181094%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L179885%_ - _%negation-id179462%_)) - (_%__kont191594191595%_ - _%L179884%_ - _%L179885%_ - _%L179886%_ - _%L179887%_) - (_%__kont191596191597%_)))))) + _%L181172%_ + _%negation-id180749%_)) + (_%__kont192881192882%_ + _%L181171%_ + _%L181172%_ + _%L181173%_ + _%L181174%_) + (_%__kont192883192884%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx191592191593%_)) - (let ((_%e179731179796%_ + _%__stx192879192880%_)) + (let ((_%e181018181083%_ (let () (declare (not safe)) (gx#stx-e - _%__stx191592191593%_)))) - (let ((_%tl179733179801%_ + _%__stx192879192880%_)))) + (let ((_%tl181020181088%_ (let () (declare (not safe)) - (##cdr _%e179731179796%_))) - (_%hd179732179799%_ + (##cdr _%e181018181083%_))) + (_%hd181019181086%_ (let () (declare (not safe)) - (##car _%e179731179796%_)))) + (##car _%e181018181083%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179732179799%_)) + _%hd181019181086%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd179732179799%_)) + _%hd181019181086%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179733179801%_)) - (let ((_%e179734179804%_ + _%tl181020181088%_)) + (let ((_%e181021181091%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl179733179801%_)))) - (let ((_%tl179736179809%_ + (gx#stx-e _%tl181020181088%_)))) + (let ((_%tl181023181096%_ (let () (declare (not safe)) - (##cdr _%e179734179804%_))) - (_%hd179735179807%_ + (##cdr _%e181021181091%_))) + (_%hd181022181094%_ (let () (declare (not safe)) - (##car _%e179734179804%_)))) + (##car _%e181021181091%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179736179809%_)) - (let ((_%e179737179812%_ + (gx#stx-pair? _%tl181023181096%_)) + (let ((_%e181024181099%_ (let () (declare (not safe)) - (gx#stx-e _%tl179736179809%_)))) - (let ((_%tl179739179817%_ + (gx#stx-e _%tl181023181096%_)))) + (let ((_%tl181026181104%_ (let () (declare (not safe)) - (##cdr _%e179737179812%_))) - (_%hd179738179815%_ + (##cdr _%e181024181099%_))) + (_%hd181025181102%_ (let () (declare (not safe)) - (##car _%e179737179812%_)))) + (##car _%e181024181099%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179739179817%_)) - (let ((_%e179740179820%_ + (gx#stx-pair? _%tl181026181104%_)) + (let ((_%e181027181107%_ (let () (declare (not safe)) - (gx#stx-e _%tl179739179817%_)))) - (let ((_%tl179742179825%_ + (gx#stx-e _%tl181026181104%_)))) + (let ((_%tl181029181112%_ (let () (declare (not safe)) - (##cdr _%e179740179820%_))) - (_%hd179741179823%_ + (##cdr _%e181027181107%_))) + (_%hd181028181110%_ (let () (declare (not safe)) - (##car _%e179740179820%_)))) + (##car _%e181027181107%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179741179823%_)) - (let ((_%e179743179828%_ + (gx#stx-pair? _%hd181028181110%_)) + (let ((_%e181030181115%_ (let () (declare (not safe)) (gx#stx-e - _%hd179741179823%_)))) - (let ((_%tl179745179833%_ + _%hd181028181110%_)))) + (let ((_%tl181032181120%_ (let () (declare (not safe)) - (##cdr _%e179743179828%_))) - (_%hd179744179831%_ + (##cdr _%e181030181115%_))) + (_%hd181031181118%_ (let () (declare (not safe)) - (##car _%e179743179828%_)))) + (##car _%e181030181115%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179744179831%_)) + _%hd181031181118%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd179744179831%_)) + _%hd181031181118%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179745179833%_)) - (let ((_%e179746179836%_ + _%tl181032181120%_)) + (let ((_%e181033181123%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl179745179833%_)))) - (let ((_%tl179748179841%_ + (gx#stx-e _%tl181032181120%_)))) + (let ((_%tl181035181128%_ (let () (declare (not safe)) - (##cdr _%e179746179836%_))) - (_%hd179747179839%_ + (##cdr _%e181033181123%_))) + (_%hd181034181126%_ (let () (declare (not safe)) - (##car _%e179746179836%_)))) + (##car _%e181033181123%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179747179839%_)) - (let ((_%e179749179844%_ + (gx#stx-pair? _%hd181034181126%_)) + (let ((_%e181036181131%_ (let () (declare (not safe)) - (gx#stx-e _%hd179747179839%_)))) - (let ((_%tl179751179849%_ + (gx#stx-e _%hd181034181126%_)))) + (let ((_%tl181038181136%_ (let () (declare (not safe)) - (##cdr _%e179749179844%_))) - (_%hd179750179847%_ + (##cdr _%e181036181131%_))) + (_%hd181037181134%_ (let () (declare (not safe)) - (##car _%e179749179844%_)))) + (##car _%e181036181131%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179750179847%_)) + (gx#identifier? _%hd181037181134%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd179750179847%_)) + (gx#stx-eq? '%#ref _%hd181037181134%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179751179849%_)) - (let ((_%e179752179852%_ + (gx#stx-pair? _%tl181038181136%_)) + (let ((_%e181039181139%_ (let () (declare (not safe)) (gx#stx-e - _%tl179751179849%_)))) - (let ((_%tl179754179857%_ + _%tl181038181136%_)))) + (let ((_%tl181041181144%_ (let () (declare (not safe)) - (##cdr _%e179752179852%_))) - (_%hd179753179855%_ + (##cdr _%e181039181139%_))) + (_%hd181040181142%_ (let () (declare (not safe)) - (##car _%e179752179852%_)))) + (##car _%e181039181139%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179754179857%_)) + _%tl181041181144%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179748179841%_)) - (let ((_%e179755179860%_ + _%tl181035181128%_)) + (let ((_%e181042181147%_ (let () (declare (not safe)) (gx#stx-e - _%tl179748179841%_)))) - (let ((_%tl179757179865%_ + _%tl181035181128%_)))) + (let ((_%tl181044181152%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e179755179860%_))) - (_%hd179756179863%_ - (let () (declare (not safe)) (##car _%e179755179860%_)))) + (##cdr _%e181042181147%_))) + (_%hd181043181150%_ + (let () (declare (not safe)) (##car _%e181042181147%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179756179863%_)) - (let ((_%e179758179868%_ + (gx#stx-pair? _%hd181043181150%_)) + (let ((_%e181045181155%_ (let () (declare (not safe)) - (gx#stx-e _%hd179756179863%_)))) - (let ((_%tl179760179873%_ + (gx#stx-e _%hd181043181150%_)))) + (let ((_%tl181047181160%_ (let () (declare (not safe)) - (##cdr _%e179758179868%_))) - (_%hd179759179871%_ + (##cdr _%e181045181155%_))) + (_%hd181046181158%_ (let () (declare (not safe)) - (##car _%e179758179868%_)))) + (##car _%e181045181155%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179759179871%_)) + (gx#identifier? _%hd181046181158%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd179759179871%_)) + (gx#stx-eq? '%#ref _%hd181046181158%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179760179873%_)) - (let ((_%e179761179876%_ + (gx#stx-pair? _%tl181047181160%_)) + (let ((_%e181048181163%_ (let () (declare (not safe)) - (gx#stx-e _%tl179760179873%_)))) - (let ((_%tl179763179881%_ + (gx#stx-e _%tl181047181160%_)))) + (let ((_%tl181050181168%_ (let () (declare (not safe)) - (##cdr _%e179761179876%_))) - (_%hd179762179879%_ + (##cdr _%e181048181163%_))) + (_%hd181049181166%_ (let () (declare (not safe)) - (##car _%e179761179876%_)))) + (##car _%e181048181163%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179763179881%_)) + _%tl181050181168%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179757179865%_)) + _%tl181044181152%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179742179825%_)) - (_%__match191687191688%_ - _%e179731179796%_ - _%hd179732179799%_ - _%tl179733179801%_ - _%e179734179804%_ - _%hd179735179807%_ - _%tl179736179809%_ - _%e179737179812%_ - _%hd179738179815%_ - _%tl179739179817%_ - _%e179740179820%_ - _%hd179741179823%_ - _%tl179742179825%_ - _%e179743179828%_ - _%hd179744179831%_ - _%tl179745179833%_ - _%e179746179836%_ - _%hd179747179839%_ - _%tl179748179841%_ - _%e179749179844%_ - _%hd179750179847%_ - _%tl179751179849%_ - _%e179752179852%_ - _%hd179753179855%_ - _%tl179754179857%_ - _%e179755179860%_ - _%hd179756179863%_ - _%tl179757179865%_ - _%e179758179868%_ - _%hd179759179871%_ - _%tl179760179873%_ - _%e179761179876%_ - _%hd179762179879%_ - _%tl179763179881%_) - (_%__kont191596191597%_)) - (_%__kont191596191597%_)) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)) - (_%__kont191596191597%_)) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)))) + _%tl181029181112%_)) + (_%__match192974192975%_ + _%e181018181083%_ + _%hd181019181086%_ + _%tl181020181088%_ + _%e181021181091%_ + _%hd181022181094%_ + _%tl181023181096%_ + _%e181024181099%_ + _%hd181025181102%_ + _%tl181026181104%_ + _%e181027181107%_ + _%hd181028181110%_ + _%tl181029181112%_ + _%e181030181115%_ + _%hd181031181118%_ + _%tl181032181120%_ + _%e181033181123%_ + _%hd181034181126%_ + _%tl181035181128%_ + _%e181036181131%_ + _%hd181037181134%_ + _%tl181038181136%_ + _%e181039181139%_ + _%hd181040181142%_ + _%tl181041181144%_ + _%e181042181147%_ + _%hd181043181150%_ + _%tl181044181152%_ + _%e181045181155%_ + _%hd181046181158%_ + _%tl181047181160%_ + _%e181048181163%_ + _%hd181049181166%_ + _%tl181050181168%_) + (_%__kont192883192884%_)) + (_%__kont192883192884%_)) + (_%__kont192883192884%_)))) + (_%__kont192883192884%_)) + (_%__kont192883192884%_)) + (_%__kont192883192884%_)))) + (_%__kont192883192884%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191596191597%_)) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)) - (_%__kont191596191597%_)) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)) + (_%__kont192883192884%_)) + (_%__kont192883192884%_)))) + (_%__kont192883192884%_)) + (_%__kont192883192884%_)) + (_%__kont192883192884%_)))) + (_%__kont192883192884%_)))) + (_%__kont192883192884%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191596191597%_)) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)) + (_%__kont192883192884%_)) + (_%__kont192883192884%_)))) + (_%__kont192883192884%_)))) + (_%__kont192883192884%_)))) + (_%__kont192883192884%_)))) + (_%__kont192883192884%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191596191597%_)) - (_%__kont191596191597%_)))) - (_%__kont191596191597%_)))))))) - (let* ((_%__match191947191948%_ - (lambda (_%e179564179606%_ - _%hd179565179609%_ - _%tl179566179611%_ - _%e179567179614%_ - _%hd179568179617%_ - _%tl179569179619%_ - _%e179570179622%_ - _%hd179571179625%_ - _%tl179572179627%_ - _%e179573179630%_ - _%hd179574179633%_ - _%tl179575179635%_ - _%__splice191702191703%_ - _%target179576179638%_ - _%tl179578179640%_) - (letrec ((_%loop179579179643%_ - (lambda (_%hd179577179646%_ - _%id179583179648%_) + (_%__kont192883192884%_)) + (_%__kont192883192884%_)))) + (_%__kont192883192884%_)))))))) + (let* ((_%__match193234193235%_ + (lambda (_%e180851180893%_ + _%hd180852180896%_ + _%tl180853180898%_ + _%e180854180901%_ + _%hd180855180904%_ + _%tl180856180906%_ + _%e180857180909%_ + _%hd180858180912%_ + _%tl180859180914%_ + _%e180860180917%_ + _%hd180861180920%_ + _%tl180862180922%_ + _%__splice192989192990%_ + _%target180863180925%_ + _%tl180865180927%_) + (letrec ((_%loop180866180930%_ + (lambda (_%hd180864180933%_ + _%id180870180935%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179577179646%_)) - (let ((_%e179580179651%_ + _%hd180864180933%_)) + (let ((_%e180867180938%_ (let () (declare (not safe)) (gx#stx-e - _%hd179577179646%_)))) - (let ((_%lp-tl179582179656%_ + _%hd180864180933%_)))) + (let ((_%lp-tl180869180943%_ (let () (declare (not safe)) - (##cdr _%e179580179651%_))) - (_%lp-hd179581179654%_ + (##cdr _%e180867180938%_))) + (_%lp-hd180868180941%_ (let () (declare (not safe)) - (##car _%e179580179651%_)))) - (_%loop179579179643%_ - _%lp-tl179582179656%_ - (cons _%lp-hd179581179654%_ - _%id179583179648%_)))) - (let ((_%id179584179659%_ - (reverse _%id179583179648%_))) + (##car _%e180867180938%_)))) + (_%loop180866180930%_ + _%lp-tl180869180943%_ + (cons _%lp-hd180868180941%_ + _%id180870180935%_)))) + (let ((_%id180871180946%_ + (reverse _%id180870180935%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179575179635%_)) - (let ((_%e179585179662%_ + _%tl180862180922%_)) + (let ((_%e180872180949%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl179575179635%_)))) - (let ((_%tl179587179667%_ + (gx#stx-e _%tl180862180922%_)))) + (let ((_%tl180874180954%_ (let () (declare (not safe)) - (##cdr _%e179585179662%_))) - (_%hd179586179665%_ + (##cdr _%e180872180949%_))) + (_%hd180873180952%_ (let () (declare (not safe)) - (##car _%e179585179662%_)))) + (##car _%e180872180949%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179587179667%_)) + (gx#stx-null? _%tl180874180954%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl179569179619%_)) - (let ((_%__splice191704191705%_ + (gx#stx-pair/null? _%tl180856180906%_)) + (let ((_%__splice192991192992%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl179569179619%_ + _%tl180856180906%_ '0)))) - (let ((_%tl179590179672%_ + (let ((_%tl180877180959%_ (let () (declare (not safe)) (##vector-ref - _%__splice191704191705%_ + _%__splice192991192992%_ '1))) - (_%target179588179670%_ + (_%target180875180957%_ (let () (declare (not safe)) (##vector-ref - _%__splice191704191705%_ + _%__splice192991192992%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179590179672%_)) - (letrec ((_%loop179591179675%_ - (lambda (_%hd179589179678%_ - _%arg179595179680%_) + (gx#stx-null? _%tl180877180959%_)) + (letrec ((_%loop180878180962%_ + (lambda (_%hd180876180965%_ + _%arg180882180967%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179589179678%_)) - (let ((_%e179592179683%_ + _%hd180876180965%_)) + (let ((_%e180879180970%_ (let () (declare (not safe)) (gx#stx-e - _%hd179589179678%_)))) - (let ((_%lp-tl179594179688%_ + _%hd180876180965%_)))) + (let ((_%lp-tl180881180975%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e179592179683%_))) - (_%lp-hd179593179686%_ - (let () (declare (not safe)) (##car _%e179592179683%_)))) - (_%loop179591179675%_ - _%lp-tl179594179688%_ - (cons _%lp-hd179593179686%_ _%arg179595179680%_)))) + (##cdr _%e180879180970%_))) + (_%lp-hd180880180973%_ + (let () (declare (not safe)) (##car _%e180879180970%_)))) + (_%loop180878180962%_ + _%lp-tl180881180975%_ + (cons _%lp-hd180880180973%_ _%arg180882180967%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%arg179596179691%_ - (reverse _%arg179595179680%_))) - (_%__kont191700191701%_ - _%arg179596179691%_ - _%hd179586179665%_ - _%id179584179659%_)))))) - (_%loop179591179675%_ - _%target179588179670%_ + (let ((_%arg180883180978%_ + (reverse _%arg180882180967%_))) + (_%__kont192987192988%_ + _%arg180883180978%_ + _%hd180873180952%_ + _%id180871180946%_)))))) + (_%loop180878180962%_ + _%target180875180957%_ '())) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_))) - (let () (declare (not safe)) (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_)))))))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_))) + (let () (declare (not safe)) (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop179579179643%_ - _%target179576179638%_ + (_%loop180866180930%_ + _%target180863180925%_ '())))) - (_%__match191829191830%_ - (lambda (_%e179490180110%_ - _%hd179491180113%_ - _%tl179492180115%_ - _%e179493180118%_ - _%hd179494180121%_ - _%tl179495180123%_ - _%e179496180126%_ - _%hd179497180129%_ - _%tl179498180131%_ - _%e179499180134%_ - _%hd179500180137%_ - _%tl179501180139%_ - _%e179502180142%_ - _%hd179503180145%_ - _%tl179504180147%_ - _%e179505180150%_ - _%hd179506180153%_ - _%tl179507180155%_ - _%e179508180158%_ - _%hd179509180161%_ - _%tl179510180163%_ - _%e179511180166%_ - _%hd179512180169%_ - _%tl179513180171%_ - _%e179514180174%_ - _%hd179515180177%_ - _%tl179516180179%_ - _%e179517180182%_ - _%hd179518180185%_ - _%tl179519180187%_ - _%e179520180190%_ - _%hd179521180193%_ - _%tl179522180195%_ - _%e179523180198%_ - _%hd179524180201%_ - _%tl179525180203%_) - (let ((_%L180206%_ _%hd179524180201%_) - (_%L180207%_ _%tl179516180179%_) - (_%L180208%_ _%hd179521180193%_) - (_%L180209%_ _%hd179506180153%_) - (_%L180210%_ _%hd179503180145%_)) + (_%__match193116193117%_ + (lambda (_%e180777181397%_ + _%hd180778181400%_ + _%tl180779181402%_ + _%e180780181405%_ + _%hd180781181408%_ + _%tl180782181410%_ + _%e180783181413%_ + _%hd180784181416%_ + _%tl180785181418%_ + _%e180786181421%_ + _%hd180787181424%_ + _%tl180788181426%_ + _%e180789181429%_ + _%hd180790181432%_ + _%tl180791181434%_ + _%e180792181437%_ + _%hd180793181440%_ + _%tl180794181442%_ + _%e180795181445%_ + _%hd180796181448%_ + _%tl180797181450%_ + _%e180798181453%_ + _%hd180799181456%_ + _%tl180800181458%_ + _%e180801181461%_ + _%hd180802181464%_ + _%tl180803181466%_ + _%e180804181469%_ + _%hd180805181472%_ + _%tl180806181474%_ + _%e180807181477%_ + _%hd180808181480%_ + _%tl180809181482%_ + _%e180810181485%_ + _%hd180811181488%_ + _%tl180812181490%_) + (let ((_%L181493%_ _%hd180811181488%_) + (_%L181494%_ _%tl180803181466%_) + (_%L181495%_ _%hd180808181480%_) + (_%L181496%_ _%hd180793181440%_) + (_%L181497%_ _%hd180790181432%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L180208%_ + _%L181495%_ 'gx#syntax-split-splice)) - (_%__kont191694191695%_ - _%L180206%_ - _%L180207%_ - _%L180208%_ - _%L180209%_ - _%L180210%_) - (_%__kont191696191697%_ - _%hd179524180201%_ - _%hd179494180121%_)))))) + (_%__kont192981192982%_ + _%L181493%_ + _%L181494%_ + _%L181495%_ + _%L181496%_ + _%L181497%_) + (_%__kont192983192984%_ + _%hd180811181488%_ + _%hd180781181408%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191690191691%_)) - (let ((_%e179473180259%_ + (gx#stx-pair? _%__stx192977192978%_)) + (let ((_%e180760181546%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191690191691%_)))) - (let ((_%tl179475180264%_ + (gx#stx-e _%__stx192977192978%_)))) + (let ((_%tl180762181551%_ (let () (declare (not safe)) - (##cdr _%e179473180259%_))) - (_%hd179474180262%_ + (##cdr _%e180760181546%_))) + (_%hd180761181549%_ (let () (declare (not safe)) - (##car _%e179473180259%_)))) + (##car _%e180760181546%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179474180262%_)) + (gx#identifier? _%hd180761181549%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd179474180262%_)) + _%hd180761181549%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179475180264%_)) - (let ((_%e179476180267%_ + _%tl180762181551%_)) + (let ((_%e180763181554%_ (let () (declare (not safe)) (gx#stx-e - _%tl179475180264%_)))) - (let ((_%tl179478180272%_ + _%tl180762181551%_)))) + (let ((_%tl180765181559%_ (let () (declare (not safe)) - (##cdr _%e179476180267%_))) - (_%hd179477180270%_ + (##cdr _%e180763181554%_))) + (_%hd180764181557%_ (let () (declare (not safe)) - (##car _%e179476180267%_)))) + (##car _%e180763181554%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179478180272%_)) - (let ((_%e179479180275%_ + _%tl180765181559%_)) + (let ((_%e180766181562%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179478180272%_)))) - (let ((_%tl179481180280%_ - (let () (declare (not safe)) (##cdr _%e179479180275%_))) - (_%hd179480180278%_ + (gx#stx-e _%tl180765181559%_)))) + (let ((_%tl180768181567%_ + (let () (declare (not safe)) (##cdr _%e180766181562%_))) + (_%hd180767181565%_ (let () (declare (not safe)) - (##car _%e179479180275%_)))) + (##car _%e180766181562%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179481180280%_)) - (let ((_%e179482180283%_ + (gx#stx-pair? _%tl180768181567%_)) + (let ((_%e180769181570%_ (let () (declare (not safe)) - (gx#stx-e _%tl179481180280%_)))) - (let ((_%tl179484180288%_ + (gx#stx-e _%tl180768181567%_)))) + (let ((_%tl180771181575%_ (let () (declare (not safe)) - (##cdr _%e179482180283%_))) - (_%hd179483180286%_ + (##cdr _%e180769181570%_))) + (_%hd180770181573%_ (let () (declare (not safe)) - (##car _%e179482180283%_)))) + (##car _%e180769181570%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179484180288%_)) - (_%__kont191692191693%_ - _%hd179483180286%_ - _%hd179480180278%_ - _%hd179477180270%_) + (gx#stx-null? _%tl180771181575%_)) + (_%__kont192979192980%_ + _%hd180770181573%_ + _%hd180767181565%_ + _%hd180764181557%_) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_))))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179468179601%_))) + (_%g180755180888%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd179474180262%_)) + _%hd180761181549%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179475180264%_)) - (let ((_%e179493180118%_ + _%tl180762181551%_)) + (let ((_%e180780181405%_ (let () (declare (not safe)) (gx#stx-e - _%tl179475180264%_)))) - (let ((_%tl179495180123%_ + _%tl180762181551%_)))) + (let ((_%tl180782181410%_ (let () (declare (not safe)) - (##cdr _%e179493180118%_))) - (_%hd179494180121%_ + (##cdr _%e180780181405%_))) + (_%hd180781181408%_ (let () (declare (not safe)) - (##car _%e179493180118%_)))) + (##car _%e180780181405%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179494180121%_)) - (let ((_%e179496180126%_ + _%hd180781181408%_)) + (let ((_%e180783181413%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd179494180121%_)))) - (let ((_%tl179498180131%_ + (gx#stx-e _%hd180781181408%_)))) + (let ((_%tl180785181418%_ (let () (declare (not safe)) - (##cdr _%e179496180126%_))) - (_%hd179497180129%_ + (##cdr _%e180783181413%_))) + (_%hd180784181416%_ (let () (declare (not safe)) - (##car _%e179496180126%_)))) + (##car _%e180783181413%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179497180129%_)) - (let ((_%e179499180134%_ + (gx#stx-pair? _%hd180784181416%_)) + (let ((_%e180786181421%_ (let () (declare (not safe)) - (gx#stx-e _%hd179497180129%_)))) - (let ((_%tl179501180139%_ + (gx#stx-e _%hd180784181416%_)))) + (let ((_%tl180788181426%_ (let () (declare (not safe)) - (##cdr _%e179499180134%_))) - (_%hd179500180137%_ + (##cdr _%e180786181421%_))) + (_%hd180787181424%_ (let () (declare (not safe)) - (##car _%e179499180134%_)))) + (##car _%e180786181421%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179500180137%_)) - (let ((_%e179502180142%_ + (gx#stx-pair? _%hd180787181424%_)) + (let ((_%e180789181429%_ (let () (declare (not safe)) - (gx#stx-e _%hd179500180137%_)))) - (let ((_%tl179504180147%_ + (gx#stx-e _%hd180787181424%_)))) + (let ((_%tl180791181434%_ (let () (declare (not safe)) - (##cdr _%e179502180142%_))) - (_%hd179503180145%_ + (##cdr _%e180789181429%_))) + (_%hd180790181432%_ (let () (declare (not safe)) - (##car _%e179502180142%_)))) + (##car _%e180789181429%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179504180147%_)) - (let ((_%e179505180150%_ + (gx#stx-pair? _%tl180791181434%_)) + (let ((_%e180792181437%_ (let () (declare (not safe)) (gx#stx-e - _%tl179504180147%_)))) - (let ((_%tl179507180155%_ + _%tl180791181434%_)))) + (let ((_%tl180794181442%_ (let () (declare (not safe)) - (##cdr _%e179505180150%_))) - (_%hd179506180153%_ + (##cdr _%e180792181437%_))) + (_%hd180793181440%_ (let () (declare (not safe)) - (##car _%e179505180150%_)))) + (##car _%e180792181437%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179507180155%_)) + _%tl180794181442%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179501180139%_)) - (let ((_%e179508180158%_ + _%tl180788181426%_)) + (let ((_%e180795181445%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179501180139%_)))) - (let ((_%tl179510180163%_ - (let () (declare (not safe)) (##cdr _%e179508180158%_))) - (_%hd179509180161%_ + (gx#stx-e _%tl180788181426%_)))) + (let ((_%tl180797181450%_ + (let () (declare (not safe)) (##cdr _%e180795181445%_))) + (_%hd180796181448%_ (let () (declare (not safe)) - (##car _%e179508180158%_)))) + (##car _%e180795181445%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179509180161%_)) - (let ((_%e179511180166%_ + (gx#stx-pair? _%hd180796181448%_)) + (let ((_%e180798181453%_ (let () (declare (not safe)) - (gx#stx-e _%hd179509180161%_)))) - (let ((_%tl179513180171%_ + (gx#stx-e _%hd180796181448%_)))) + (let ((_%tl180800181458%_ (let () (declare (not safe)) - (##cdr _%e179511180166%_))) - (_%hd179512180169%_ + (##cdr _%e180798181453%_))) + (_%hd180799181456%_ (let () (declare (not safe)) - (##car _%e179511180166%_)))) + (##car _%e180798181453%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179512180169%_)) + (gx#identifier? _%hd180799181456%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd179512180169%_)) + (gx#stx-eq? '%#call _%hd180799181456%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179513180171%_)) - (let ((_%e179514180174%_ + (gx#stx-pair? _%tl180800181458%_)) + (let ((_%e180801181461%_ (let () (declare (not safe)) - (gx#stx-e _%tl179513180171%_)))) - (let ((_%tl179516180179%_ + (gx#stx-e _%tl180800181458%_)))) + (let ((_%tl180803181466%_ (let () (declare (not safe)) - (##cdr _%e179514180174%_))) - (_%hd179515180177%_ + (##cdr _%e180801181461%_))) + (_%hd180802181464%_ (let () (declare (not safe)) - (##car _%e179514180174%_)))) + (##car _%e180801181461%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179515180177%_)) - (let ((_%e179517180182%_ + _%hd180802181464%_)) + (let ((_%e180804181469%_ (let () (declare (not safe)) (gx#stx-e - _%hd179515180177%_)))) - (let ((_%tl179519180187%_ + _%hd180802181464%_)))) + (let ((_%tl180806181474%_ (let () (declare (not safe)) - (##cdr _%e179517180182%_))) - (_%hd179518180185%_ + (##cdr _%e180804181469%_))) + (_%hd180805181472%_ (let () (declare (not safe)) - (##car _%e179517180182%_)))) + (##car _%e180804181469%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179518180185%_)) + _%hd180805181472%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd179518180185%_)) + _%hd180805181472%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl179519180187%_)) - (let ((_%e179520180190%_ + (gx#stx-pair? _%tl180806181474%_)) + (let ((_%e180807181477%_ (let () (declare (not safe)) - (gx#stx-e _%tl179519180187%_)))) - (let ((_%tl179522180195%_ + (gx#stx-e _%tl180806181474%_)))) + (let ((_%tl180809181482%_ (let () (declare (not safe)) - (##cdr _%e179520180190%_))) - (_%hd179521180193%_ + (##cdr _%e180807181477%_))) + (_%hd180808181480%_ (let () (declare (not safe)) - (##car _%e179520180190%_)))) + (##car _%e180807181477%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179522180195%_)) + (gx#stx-null? _%tl180809181482%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179510180163%_)) + (gx#stx-null? _%tl180797181450%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179498180131%_)) + (gx#stx-null? _%tl180785181418%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179523180198%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180810181485%_ (let () (declare (not safe)) (gx#stx-e - _%tl179495180123%_)))) - (let ((_%tl179525180203%_ + _%tl180782181410%_)))) + (let ((_%tl180812181490%_ (let () (declare (not safe)) - (##cdr _%e179523180198%_))) - (_%hd179524180201%_ + (##cdr _%e180810181485%_))) + (_%hd180811181488%_ (let () (declare (not safe)) - (##car _%e179523180198%_)))) + (##car _%e180810181485%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179525180203%_)) - (_%__match191829191830%_ - _%e179473180259%_ - _%hd179474180262%_ - _%tl179475180264%_ - _%e179493180118%_ - _%hd179494180121%_ - _%tl179495180123%_ - _%e179496180126%_ - _%hd179497180129%_ - _%tl179498180131%_ - _%e179499180134%_ - _%hd179500180137%_ - _%tl179501180139%_ - _%e179502180142%_ - _%hd179503180145%_ - _%tl179504180147%_ - _%e179505180150%_ - _%hd179506180153%_ - _%tl179507180155%_ - _%e179508180158%_ - _%hd179509180161%_ - _%tl179510180163%_ - _%e179511180166%_ - _%hd179512180169%_ - _%tl179513180171%_ - _%e179514180174%_ - _%hd179515180177%_ - _%tl179516180179%_ - _%e179517180182%_ - _%hd179518180185%_ - _%tl179519180187%_ - _%e179520180190%_ - _%hd179521180193%_ - _%tl179522180195%_ - _%e179523180198%_ - _%hd179524180201%_ - _%tl179525180203%_) + _%tl180812181490%_)) + (_%__match193116193117%_ + _%e180760181546%_ + _%hd180761181549%_ + _%tl180762181551%_ + _%e180780181405%_ + _%hd180781181408%_ + _%tl180782181410%_ + _%e180783181413%_ + _%hd180784181416%_ + _%tl180785181418%_ + _%e180786181421%_ + _%hd180787181424%_ + _%tl180788181426%_ + _%e180789181429%_ + _%hd180790181432%_ + _%tl180791181434%_ + _%e180792181437%_ + _%hd180793181440%_ + _%tl180794181442%_ + _%e180795181445%_ + _%hd180796181448%_ + _%tl180797181450%_ + _%e180798181453%_ + _%hd180799181456%_ + _%tl180800181458%_ + _%e180801181461%_ + _%hd180802181464%_ + _%tl180803181466%_ + _%e180804181469%_ + _%hd180805181472%_ + _%tl180806181474%_ + _%e180807181477%_ + _%hd180808181480%_ + _%tl180809181482%_ + _%e180810181485%_ + _%hd180811181488%_ + _%tl180812181490%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179468179601%_))) + (_%g180755180888%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) (gx#stx-e - _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))) + (_%g180755180888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))) + (_%g180755180888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + (gx#stx-null? _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))))) + (_%g180755180888%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + (gx#stx-null? _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_)))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + (gx#stx-null? _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_)))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) - (let () (declare (not safe)) (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_)))))) + (gx#stx-null? _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) + (let () (declare (not safe)) (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179495180123%_)) - (let ((_%e179534180080%_ + _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) (gx#stx-e - _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))))) + (_%g180755180888%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) (gx#stx-e - _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))) + (_%g180755180888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))) + (_%g180755180888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + (gx#stx-null? _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))))) + (_%g180755180888%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + (gx#stx-null? _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_)))))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) - (let () (declare (not safe)) (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_)))) + (gx#stx-null? _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) + (let () (declare (not safe)) (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179495180123%_)) - (let ((_%e179534180080%_ + _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ - (let () (declare (not safe)) (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ + (let () (declare (not safe)) (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) - (let () (declare (not safe)) (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_)))))) + (gx#stx-null? _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) + (let () (declare (not safe)) (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179495180123%_)) - (let ((_%e179534180080%_ + _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) (gx#stx-e - _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))))) + (_%g180755180888%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))))) + (_%g180755180888%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + (gx#stx-null? _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))))) + (_%g180755180888%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179495180123%_)) - (let ((_%e179534180080%_ + (gx#stx-pair? _%tl180782181410%_)) + (let ((_%e180821181367%_ (let () (declare (not safe)) - (gx#stx-e _%tl179495180123%_)))) - (let ((_%tl179536180085%_ + (gx#stx-e _%tl180782181410%_)))) + (let ((_%tl180823181372%_ (let () (declare (not safe)) - (##cdr _%e179534180080%_))) - (_%hd179535180083%_ + (##cdr _%e180821181367%_))) + (_%hd180822181370%_ (let () (declare (not safe)) - (##car _%e179534180080%_)))) + (##car _%e180821181367%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179536180085%_)) - (_%__kont191696191697%_ - _%hd179535180083%_ - _%hd179494180121%_) + (gx#stx-null? _%tl180823181372%_)) + (_%__kont192983192984%_ + _%hd180822181370%_ + _%hd180781181408%_) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_)))))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179468179601%_))) + (_%g180755180888%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd179474180262%_)) + _%hd180761181549%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179475180264%_)) - (let ((_%e179543179984%_ + _%tl180762181551%_)) + (let ((_%e180830181271%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179475180264%_)))) - (let ((_%tl179545179989%_ - (let () (declare (not safe)) (##cdr _%e179543179984%_))) - (_%hd179544179987%_ + (gx#stx-e _%tl180762181551%_)))) + (let ((_%tl180832181276%_ + (let () (declare (not safe)) (##cdr _%e180830181271%_))) + (_%hd180831181274%_ (let () (declare (not safe)) - (##car _%e179543179984%_)))) + (##car _%e180830181271%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179544179987%_)) - (let ((_%e179546179992%_ + (gx#stx-pair? _%hd180831181274%_)) + (let ((_%e180833181279%_ (let () (declare (not safe)) - (gx#stx-e _%hd179544179987%_)))) - (let ((_%tl179548179997%_ + (gx#stx-e _%hd180831181274%_)))) + (let ((_%tl180835181284%_ (let () (declare (not safe)) - (##cdr _%e179546179992%_))) - (_%hd179547179995%_ + (##cdr _%e180833181279%_))) + (_%hd180834181282%_ (let () (declare (not safe)) - (##car _%e179546179992%_)))) + (##car _%e180833181279%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179547179995%_)) - (let ((_%e179549180000%_ + (gx#stx-pair? _%hd180834181282%_)) + (let ((_%e180836181287%_ (let () (declare (not safe)) - (gx#stx-e _%hd179547179995%_)))) - (let ((_%tl179551180005%_ + (gx#stx-e _%hd180834181282%_)))) + (let ((_%tl180838181292%_ (let () (declare (not safe)) - (##cdr _%e179549180000%_))) - (_%hd179550180003%_ + (##cdr _%e180836181287%_))) + (_%hd180837181290%_ (let () (declare (not safe)) - (##car _%e179549180000%_)))) + (##car _%e180836181287%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179550180003%_)) - (let ((_%e179552180008%_ + (gx#stx-pair? _%hd180837181290%_)) + (let ((_%e180839181295%_ (let () (declare (not safe)) - (gx#stx-e _%hd179550180003%_)))) - (let ((_%tl179554180013%_ + (gx#stx-e _%hd180837181290%_)))) + (let ((_%tl180841181300%_ (let () (declare (not safe)) - (##cdr _%e179552180008%_))) - (_%hd179553180011%_ + (##cdr _%e180839181295%_))) + (_%hd180840181298%_ (let () (declare (not safe)) - (##car _%e179552180008%_)))) + (##car _%e180839181295%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179554180013%_)) + _%tl180841181300%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179551180005%_)) - (let ((_%e179555180016%_ + _%tl180838181292%_)) + (let ((_%e180842181303%_ (let () (declare (not safe)) (gx#stx-e - _%tl179551180005%_)))) - (let ((_%tl179557180021%_ + _%tl180838181292%_)))) + (let ((_%tl180844181308%_ (let () (declare (not safe)) - (##cdr _%e179555180016%_))) - (_%hd179556180019%_ + (##cdr _%e180842181303%_))) + (_%hd180843181306%_ (let () (declare (not safe)) - (##car _%e179555180016%_)))) + (##car _%e180842181303%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179557180021%_)) + _%tl180844181308%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl179548179997%_)) + (gx#stx-null? _%tl180835181284%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179545179989%_)) - (let ((_%e179558180024%_ + (gx#stx-pair? _%tl180832181276%_)) + (let ((_%e180845181311%_ (let () (declare (not safe)) - (gx#stx-e _%tl179545179989%_)))) - (let ((_%tl179560180029%_ + (gx#stx-e _%tl180832181276%_)))) + (let ((_%tl180847181316%_ (let () (declare (not safe)) - (##cdr _%e179558180024%_))) - (_%hd179559180027%_ + (##cdr _%e180845181311%_))) + (_%hd180846181314%_ (let () (declare (not safe)) - (##car _%e179558180024%_)))) + (##car _%e180845181311%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179560180029%_)) - (_%__kont191698191699%_ - _%hd179559180027%_ - _%hd179556180019%_ - _%hd179553180011%_) + (gx#stx-null? _%tl180847181316%_)) + (_%__kont192985192986%_ + _%hd180846181314%_ + _%hd180843181306%_ + _%hd180840181298%_) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_))) - (let () (declare (not safe)) (_%g179468179601%_))) - (let () (declare (not safe)) (_%g179468179601%_))))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_))) + (let () (declare (not safe)) (_%g180755180888%_))) + (let () (declare (not safe)) (_%g180755180888%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179468179601%_))) + (_%g180755180888%_))) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd179474180262%_)) + _%hd180761181549%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179475180264%_)) - (let ((_%e179567179614%_ + _%tl180762181551%_)) + (let ((_%e180854180901%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl179475180264%_)))) - (let ((_%tl179569179619%_ + (gx#stx-e _%tl180762181551%_)))) + (let ((_%tl180856180906%_ (let () (declare (not safe)) - (##cdr _%e179567179614%_))) - (_%hd179568179617%_ + (##cdr _%e180854180901%_))) + (_%hd180855180904%_ (let () (declare (not safe)) - (##car _%e179567179614%_)))) + (##car _%e180854180901%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179568179617%_)) - (let ((_%e179570179622%_ + (gx#stx-pair? _%hd180855180904%_)) + (let ((_%e180857180909%_ (let () (declare (not safe)) - (gx#stx-e _%hd179568179617%_)))) - (let ((_%tl179572179627%_ + (gx#stx-e _%hd180855180904%_)))) + (let ((_%tl180859180914%_ (let () (declare (not safe)) - (##cdr _%e179570179622%_))) - (_%hd179571179625%_ + (##cdr _%e180857180909%_))) + (_%hd180858180912%_ (let () (declare (not safe)) - (##car _%e179570179622%_)))) + (##car _%e180857180909%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179571179625%_)) + (gx#identifier? _%hd180858180912%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd179571179625%_)) + _%hd180858180912%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179572179627%_)) - (let ((_%e179573179630%_ + (gx#stx-pair? _%tl180859180914%_)) + (let ((_%e180860180917%_ (let () (declare (not safe)) (gx#stx-e - _%tl179572179627%_)))) - (let ((_%tl179575179635%_ + _%tl180859180914%_)))) + (let ((_%tl180862180922%_ (let () (declare (not safe)) - (##cdr _%e179573179630%_))) - (_%hd179574179633%_ + (##cdr _%e180860180917%_))) + (_%hd180861180920%_ (let () (declare (not safe)) - (##car _%e179573179630%_)))) + (##car _%e180860180917%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd179574179633%_)) - (let ((_%__splice191702191703%_ + _%hd180861180920%_)) + (let ((_%__splice192989192990%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd179574179633%_ + _%hd180861180920%_ '0)))) - (let ((_%tl179578179640%_ + (let ((_%tl180865180927%_ (let () (declare (not safe)) (##vector-ref - _%__splice191702191703%_ + _%__splice192989192990%_ '1))) - (_%target179576179638%_ + (_%target180863180925%_ (let () (declare (not safe)) (##vector-ref - _%__splice191702191703%_ + _%__splice192989192990%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179578179640%_)) - (_%__match191947191948%_ - _%e179473180259%_ - _%hd179474180262%_ - _%tl179475180264%_ - _%e179567179614%_ - _%hd179568179617%_ - _%tl179569179619%_ - _%e179570179622%_ - _%hd179571179625%_ - _%tl179572179627%_ - _%e179573179630%_ - _%hd179574179633%_ - _%tl179575179635%_ - _%__splice191702191703%_ - _%target179576179638%_ - _%tl179578179640%_) + _%tl180865180927%_)) + (_%__match193234193235%_ + _%e180760181546%_ + _%hd180761181549%_ + _%tl180762181551%_ + _%e180854180901%_ + _%hd180855180904%_ + _%tl180856180906%_ + _%e180857180909%_ + _%hd180858180912%_ + _%tl180859180914%_ + _%e180860180917%_ + _%hd180861180920%_ + _%tl180862180922%_ + _%__splice192989192990%_ + _%target180863180925%_ + _%tl180865180927%_) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179468179601%_))) + (_%g180755180888%_))) (let () (declare (not safe)) - (_%g179468179601%_))) + (_%g180755180888%_))) (let () (declare (not safe)) - (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_))))) - (let () (declare (not safe)) (_%g179468179601%_))) - (let () (declare (not safe)) (_%g179468179601%_)))))) + (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_))))) + (let () (declare (not safe)) (_%g180755180888%_))) + (let () (declare (not safe)) (_%g180755180888%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179468179601%_))))) + (_%g180755180888%_))))) (let () (declare (not safe)) - (_%g179468179601%_)))))))) - (_%xform-loop-e179075%_ - (lambda (_%expr179285%_ - _%kont-id179286%_ - _%kont-box179287%_ - _%negation-id179288%_) - (let* ((_%g179290179330%_ - (lambda (_%g179291179327%_) + (_%g180755180888%_)))))))) + (_%xform-loop-e180362%_ + (lambda (_%expr180572%_ + _%kont-id180573%_ + _%kont-box180574%_ + _%negation-id180575%_) + (let* ((_%g180577180617%_ + (lambda (_%g180578180614%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g179291179327%_)))) - (_%g179289179456%_ - (lambda (_%g179291179333%_) + _%g180578180614%_)))) + (_%g180576180743%_ + (lambda (_%g180578180620%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g179291179333%_)) - (let ((_%e179296179335%_ + (gx#stx-pair? _%g180578180620%_)) + (let ((_%e180583180622%_ (let () (declare (not safe)) - (gx#stx-e _%g179291179333%_)))) - (let ((_%hd179297179338%_ + (gx#stx-e _%g180578180620%_)))) + (let ((_%hd180584180625%_ (let () (declare (not safe)) - (##car _%e179296179335%_))) - (_%tl179298179340%_ + (##car _%e180583180622%_))) + (_%tl180585180627%_ (let () (declare (not safe)) - (##cdr _%e179296179335%_)))) + (##cdr _%e180583180622%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179297179338%_)) + _%hd180584180625%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd179297179338%_)) + _%hd180584180625%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179298179340%_)) - (let ((_%e179299179343%_ + _%tl180585180627%_)) + (let ((_%e180586180630%_ (let () (declare (not safe)) (gx#stx-e - _%tl179298179340%_)))) - (let ((_%hd179300179346%_ + _%tl180585180627%_)))) + (let ((_%hd180587180633%_ (let () (declare (not safe)) - (##car _%e179299179343%_))) - (_%tl179301179348%_ + (##car _%e180586180630%_))) + (_%tl180588180635%_ (let () (declare (not safe)) - (##cdr _%e179299179343%_)))) + (##cdr _%e180586180630%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd179300179346%_)) - (let ((_g192335_ + _%hd180587180633%_)) + (let ((_g193622_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd179300179346%_ '0)))) + (gx#syntax-split-splice _%hd180587180633%_ '0)))) (begin - (let ((_g192336_ + (let ((_g193623_ (let () (declare (not safe)) - (if (##values? _g192335_) - (##vector-length _g192335_) + (if (##values? _g193622_) + (##values-length _g193622_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192336_ 2))) - (error "Context expects 2 values" _g192336_))) - (let ((_%target179302179351%_ + (##fx= _g193623_ 2))) + (error "Context expects 2 values" _g193623_))) + (let ((_%target180589180638%_ (let () (declare (not safe)) - (##vector-ref _g192335_ 0))) - (_%tl179304179353%_ + (##values-ref _g193622_ 0))) + (_%tl180591180640%_ (let () (declare (not safe)) - (##vector-ref _g192335_ 1)))) + (##values-ref _g193622_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179304179353%_)) - (letrec ((_%loop179305179356%_ - (lambda (_%hd179303179359%_ - _%id179309179361%_) + (gx#stx-null? _%tl180591180640%_)) + (letrec ((_%loop180592180643%_ + (lambda (_%hd180590180646%_ + _%id180596180648%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179303179359%_)) - (let ((_%e179306179364%_ + _%hd180590180646%_)) + (let ((_%e180593180651%_ (let () (declare (not safe)) (gx#stx-e - _%hd179303179359%_)))) - (let ((_%lp-hd179307179367%_ + _%hd180590180646%_)))) + (let ((_%lp-hd180594180654%_ (let () (declare (not safe)) - (##car _%e179306179364%_))) - (_%lp-tl179308179369%_ + (##car _%e180593180651%_))) + (_%lp-tl180595180656%_ (let () (declare (not safe)) - (##cdr _%e179306179364%_)))) - (_%loop179305179356%_ - _%lp-tl179308179369%_ - (cons _%lp-hd179307179367%_ - _%id179309179361%_)))) - (let ((_%id179310179372%_ - (reverse _%id179309179361%_))) + (##cdr _%e180593180651%_)))) + (_%loop180592180643%_ + _%lp-tl180595180656%_ + (cons _%lp-hd180594180654%_ + _%id180596180648%_)))) + (let ((_%id180597180659%_ + (reverse _%id180596180648%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179301179348%_)) - (let ((_%e179311179375%_ + _%tl180588180635%_)) + (let ((_%e180598180662%_ (let () (declare (not safe)) (gx#stx-e - _%tl179301179348%_)))) - (let ((_%hd179312179378%_ + _%tl180588180635%_)))) + (let ((_%hd180599180665%_ (let () (declare (not safe)) - (##car _%e179311179375%_))) - (_%tl179313179380%_ + (##car _%e180598180662%_))) + (_%tl180600180667%_ (let () (declare (not safe)) - (##cdr _%e179311179375%_)))) + (##cdr _%e180598180662%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179312179378%_)) - (let ((_%e179314179383%_ + _%hd180599180665%_)) + (let ((_%e180601180670%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd179312179378%_)))) - (let ((_%hd179315179386%_ + (gx#stx-e _%hd180599180665%_)))) + (let ((_%hd180602180673%_ (let () (declare (not safe)) - (##car _%e179314179383%_))) - (_%tl179316179388%_ + (##car _%e180601180670%_))) + (_%tl180603180675%_ (let () (declare (not safe)) - (##cdr _%e179314179383%_)))) + (##cdr _%e180601180670%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179315179386%_)) + (gx#identifier? _%hd180602180673%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd179315179386%_)) + (gx#stx-eq? '%#if _%hd180602180673%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179316179388%_)) - (let ((_%e179317179391%_ + (gx#stx-pair? _%tl180603180675%_)) + (let ((_%e180604180678%_ (let () (declare (not safe)) - (gx#stx-e _%tl179316179388%_)))) - (let ((_%hd179318179394%_ + (gx#stx-e _%tl180603180675%_)))) + (let ((_%hd180605180681%_ (let () (declare (not safe)) - (##car _%e179317179391%_))) - (_%tl179319179396%_ + (##car _%e180604180678%_))) + (_%tl180606180683%_ (let () (declare (not safe)) - (##cdr _%e179317179391%_)))) + (##cdr _%e180604180678%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179319179396%_)) - (let ((_%e179320179399%_ + (gx#stx-pair? _%tl180606180683%_)) + (let ((_%e180607180686%_ (let () (declare (not safe)) (gx#stx-e - _%tl179319179396%_)))) - (let ((_%hd179321179402%_ + _%tl180606180683%_)))) + (let ((_%hd180608180689%_ (let () (declare (not safe)) - (##car _%e179320179399%_))) - (_%tl179322179404%_ + (##car _%e180607180686%_))) + (_%tl180609180691%_ (let () (declare (not safe)) - (##cdr _%e179320179399%_)))) + (##cdr _%e180607180686%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179322179404%_)) - (let ((_%e179323179407%_ + _%tl180609180691%_)) + (let ((_%e180610180694%_ (let () (declare (not safe)) (gx#stx-e - _%tl179322179404%_)))) - (let ((_%hd179324179410%_ + _%tl180609180691%_)))) + (let ((_%hd180611180697%_ (let () (declare (not safe)) - (##car _%e179323179407%_))) - (_%tl179325179412%_ + (##car _%e180610180694%_))) + (_%tl180612180699%_ (let () (declare (not safe)) - (##cdr _%e179323179407%_)))) + (##cdr _%e180610180694%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179325179412%_)) + _%tl180612180699%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl179313179380%_)) - ((lambda (_%L179415%_ - _%L179416%_ - _%L179417%_ - _%L179418%_) - (let ((_%E179447%_ - (_%xform-e179074%_ - _%L179415%_ - _%kont-id179286%_ - _%kont-box179287%_ - _%negation-id179288%_))) + (gx#stx-null? _%tl180600180667%_)) + ((lambda (_%L180702%_ + _%L180703%_ + _%L180704%_ + _%L180705%_) + (let ((_%E180734%_ + (_%xform-e180361%_ + _%L180702%_ + _%kont-id180573%_ + _%kont-box180574%_ + _%negation-id180575%_))) (cons '%#lambda - (cons (let ((__tmp192337 - (lambda (_%g179448179451%_ - _%g179449179453%_) - (cons _%g179448179451%_ - _%g179449179453%_)))) + (cons (let ((__tmp193624 + (lambda (_%g180735180738%_ + _%g180736180740%_) + (cons _%g180735180738%_ + _%g180736180740%_)))) (declare (not safe)) (__foldr1 - __tmp192337 + __tmp193624 '() - _%L179418%_)) + _%L180705%_)) (cons (cons '%#if - (cons _%L179417%_ - (cons _%L179416%_ - (cons _%E179447%_ + (cons _%L180704%_ + (cons _%L180703%_ + (cons _%E180734%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd179324179410%_ - _%hd179321179402%_ - _%hd179318179394%_ - _%id179310179372%_) - (_%g179290179330%_ _%g179291179333%_)) - (_%g179290179330%_ _%g179291179333%_)))) + _%hd180611180697%_ + _%hd180608180689%_ + _%hd180605180681%_ + _%id180597180659%_) + (_%g180577180617%_ _%g180578180620%_)) + (_%g180577180617%_ _%g180578180620%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179290179330%_ - _%g179291179333%_)))) - (_%g179290179330%_ - _%g179291179333%_)))) - (_%g179290179330%_ _%g179291179333%_)) - (_%g179290179330%_ _%g179291179333%_)) - (_%g179290179330%_ _%g179291179333%_)))) - (_%g179290179330%_ _%g179291179333%_)))) + (_%g180577180617%_ + _%g180578180620%_)))) + (_%g180577180617%_ + _%g180578180620%_)))) + (_%g180577180617%_ _%g180578180620%_)) + (_%g180577180617%_ _%g180578180620%_)) + (_%g180577180617%_ _%g180578180620%_)))) + (_%g180577180617%_ _%g180578180620%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179290179330%_ - _%g179291179333%_))))))) - (_%loop179305179356%_ - _%target179302179351%_ + (_%g180577180617%_ + _%g180578180620%_))))))) + (_%loop180592180643%_ + _%target180589180638%_ '())) - (_%g179290179330%_ _%g179291179333%_))))) - (_%g179290179330%_ _%g179291179333%_)))) + (_%g180577180617%_ _%g180578180620%_))))) + (_%g180577180617%_ _%g180578180620%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179290179330%_ - _%g179291179333%_)) - (_%g179290179330%_ - _%g179291179333%_)) - (_%g179290179330%_ - _%g179291179333%_)))) - (_%g179290179330%_ _%g179291179333%_))))) - (_%g179289179456%_ _%expr179285%_)))) - (_%clause-e179076%_ - (lambda (_%clause-lambda179155%_ - _%kont-id179156%_ - _%rest179157%_) - (letrec* ((_%kont-box179159%_ (box '#f))) - (let* ((_%negation-id179199%_ - (let* ((_%rest179160179170%_ _%rest179157%_) - (_%else179162179178%_ - (lambda () _%negation-id179072%_)) - (_%K179164179184%_ - (lambda (_%clause179181%_ - _%clause-id179182%_) - _%clause-id179182%_))) - (if (pair? _%rest179160179170%_) - (let ((_%hd179165179187%_ + (_%g180577180617%_ + _%g180578180620%_)) + (_%g180577180617%_ + _%g180578180620%_)) + (_%g180577180617%_ + _%g180578180620%_)))) + (_%g180577180617%_ _%g180578180620%_))))) + (_%g180576180743%_ _%expr180572%_)))) + (_%clause-e180363%_ + (lambda (_%clause-lambda180442%_ + _%kont-id180443%_ + _%rest180444%_) + (letrec* ((_%kont-box180446%_ (box '#f))) + (let* ((_%negation-id180486%_ + (let* ((_%rest180447180457%_ _%rest180444%_) + (_%else180449180465%_ + (lambda () _%negation-id180359%_)) + (_%K180451180471%_ + (lambda (_%clause180468%_ + _%clause-id180469%_) + _%clause-id180469%_))) + (if (pair? _%rest180447180457%_) + (let ((_%hd180452180474%_ (let () (declare (not safe)) - (##car _%rest179160179170%_)))) - (if (pair? _%hd179165179187%_) - (let ((_%hd179167179190%_ + (##car _%rest180447180457%_)))) + (if (pair? _%hd180452180474%_) + (let ((_%hd180454180477%_ (let () (declare (not safe)) - (##car _%hd179165179187%_))) - (_%tl179168179192%_ + (##car _%hd180452180474%_))) + (_%tl180455180479%_ (let () (declare (not safe)) - (##cdr _%hd179165179187%_)))) - (let* ((_%clause-id179195%_ - _%hd179167179190%_) - (_%clause179197%_ - _%tl179168179192%_)) - (_%K179164179184%_ - _%clause179197%_ - _%clause-id179195%_))) - (_%else179162179178%_))) - (_%else179162179178%_)))) - (_%g179201179221%_ - (lambda (_%g179202179218%_) + (##cdr _%hd180452180474%_)))) + (let* ((_%clause-id180482%_ + _%hd180454180477%_) + (_%clause180484%_ + _%tl180455180479%_)) + (_%K180451180471%_ + _%clause180484%_ + _%clause-id180482%_))) + (_%else180449180465%_))) + (_%else180449180465%_)))) + (_%g180488180508%_ + (lambda (_%g180489180505%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g179202179218%_)))) - (_%g179200179282%_ - (lambda (_%g179202179224%_) + _%g180489180505%_)))) + (_%g180487180569%_ + (lambda (_%g180489180511%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g179202179224%_)) - (let ((_%e179205179226%_ + (gx#stx-pair? _%g180489180511%_)) + (let ((_%e180492180513%_ (let () (declare (not safe)) - (gx#stx-e _%g179202179224%_)))) - (let ((_%hd179206179229%_ + (gx#stx-e _%g180489180511%_)))) + (let ((_%hd180493180516%_ (let () (declare (not safe)) - (##car _%e179205179226%_))) - (_%tl179207179231%_ + (##car _%e180492180513%_))) + (_%tl180494180518%_ (let () (declare (not safe)) - (##cdr _%e179205179226%_)))) + (##cdr _%e180492180513%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179206179229%_)) + _%hd180493180516%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd179206179229%_)) + _%hd180493180516%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179207179231%_)) - (let ((_%e179208179234%_ + _%tl180494180518%_)) + (let ((_%e180495180521%_ (let () (declare (not safe)) (gx#stx-e - _%tl179207179231%_)))) - (let ((_%hd179209179237%_ + _%tl180494180518%_)))) + (let ((_%hd180496180524%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e179208179234%_))) - (_%tl179210179239%_ - (let () (declare (not safe)) (##cdr _%e179208179234%_)))) + (##car _%e180495180521%_))) + (_%tl180497180526%_ + (let () (declare (not safe)) (##cdr _%e180495180521%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179209179237%_)) - (let ((_%e179211179242%_ + (gx#stx-pair? _%hd180496180524%_)) + (let ((_%e180498180529%_ (let () (declare (not safe)) - (gx#stx-e _%hd179209179237%_)))) - (let ((_%hd179212179245%_ + (gx#stx-e _%hd180496180524%_)))) + (let ((_%hd180499180532%_ (let () (declare (not safe)) - (##car _%e179211179242%_))) - (_%tl179213179247%_ + (##car _%e180498180529%_))) + (_%tl180500180534%_ (let () (declare (not safe)) - (##cdr _%e179211179242%_)))) + (##cdr _%e180498180529%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179213179247%_)) + (gx#stx-null? _%tl180500180534%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179210179239%_)) - (let ((_%e179214179250%_ + (gx#stx-pair? _%tl180497180526%_)) + (let ((_%e180501180537%_ (let () (declare (not safe)) - (gx#stx-e _%tl179210179239%_)))) - (let ((_%hd179215179253%_ + (gx#stx-e _%tl180497180526%_)))) + (let ((_%hd180502180540%_ (let () (declare (not safe)) - (##car _%e179214179250%_))) - (_%tl179216179255%_ + (##car _%e180501180537%_))) + (_%tl180503180542%_ (let () (declare (not safe)) - (##cdr _%e179214179250%_)))) + (##cdr _%e180501180537%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179216179255%_)) - ((lambda (_%L179258%_ _%L179259%_) - (let ((_%body179280%_ - (_%xform-e179074%_ - _%L179258%_ - _%kont-id179156%_ - _%kont-box179159%_ - _%negation-id179199%_))) + (gx#stx-null? _%tl180503180542%_)) + ((lambda (_%L180545%_ _%L180546%_) + (let ((_%body180567%_ + (_%xform-e180361%_ + _%L180545%_ + _%kont-id180443%_ + _%kont-box180446%_ + _%negation-id180486%_))) (values (cons '%#lambda - (cons (cons _%L179259%_ + (cons (cons _%L180546%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%body179280%_ '()))) + (cons _%body180567%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _%kont-box179159%_)))) - _%hd179215179253%_ - _%hd179212179245%_) - (_%g179201179221%_ - _%g179202179224%_)))) - (_%g179201179221%_ _%g179202179224%_)) - (_%g179201179221%_ _%g179202179224%_)))) - (_%g179201179221%_ _%g179202179224%_)))) + (unbox _%kont-box180446%_)))) + _%hd180502180540%_ + _%hd180499180532%_) + (_%g180488180508%_ + _%g180489180511%_)))) + (_%g180488180508%_ _%g180489180511%_)) + (_%g180488180508%_ _%g180489180511%_)))) + (_%g180488180508%_ _%g180489180511%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179201179221%_ - _%g179202179224%_)) - (_%g179201179221%_ - _%g179202179224%_)) - (_%g179201179221%_ - _%g179202179224%_)))) - (_%g179201179221%_ _%g179202179224%_))))) - (_%g179200179282%_ _%clause-lambda179155%_)))))) - (let _%lp179078%_ ((_%rest179080%_ _%clauses179071%_) - (_%clauses179081%_ '()) - (_%konts179082%_ '())) - (let* ((_%rest179083179091%_ _%rest179080%_) - (_%else179085179099%_ + (_%g180488180508%_ + _%g180489180511%_)) + (_%g180488180508%_ + _%g180489180511%_)) + (_%g180488180508%_ + _%g180489180511%_)))) + (_%g180488180508%_ _%g180489180511%_))))) + (_%g180487180569%_ _%clause-lambda180442%_)))))) + (let _%lp180365%_ ((_%rest180367%_ _%clauses180358%_) + (_%clauses180368%_ '()) + (_%konts180369%_ '())) + (let* ((_%rest180370180378%_ _%rest180367%_) + (_%else180372180386%_ (lambda () - (values (reverse _%clauses179081%_) - (reverse _%konts179082%_)))) - (_%K179087179143%_ - (lambda (_%rest179102%_ _%clause179103%_) - (let* ((_%clause179104179111%_ _%clause179103%_) - (_%E179106179115%_ + (values (reverse _%clauses180368%_) + (reverse _%konts180369%_)))) + (_%K180374180430%_ + (lambda (_%rest180389%_ _%clause180390%_) + (let* ((_%clause180391180398%_ _%clause180390%_) + (_%E180393180402%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause179104179111%_ + _%clause180391180398%_ '([clause-id . clause-lambda]))) '#!void)) - (_%K179107179131%_ - (lambda (_%clause-lambda179118%_ - _%clause-id179119%_) - (let* ((_%id179121%_ - (let ((__tmp192338 + (_%K180394180418%_ + (lambda (_%clause-lambda180405%_ + _%clause-id180406%_) + (let* ((_%id180408%_ + (let ((__tmp193625 (let () (declare (not safe)) (##gensym '__kont)))) (declare (not safe)) - (make-symbol__0 __tmp192338))) - (_%id179123%_ + (make-symbol__0 __tmp193625))) + (_%id180410%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id179121%_))) - (_%_179125%_ + _%id180408%_))) + (_%_180412%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id179123%_))) - (_g192339_ - (_%clause-e179076%_ - _%clause-lambda179118%_ - _%id179123%_ - _%rest179102%_))) + _%id180410%_))) + (_g193626_ + (_%clause-e180363%_ + _%clause-lambda180405%_ + _%id180410%_ + _%rest180389%_))) (begin - (let ((_g192340_ + (let ((_g193627_ (let () (declare (not safe)) - (if (##values? _g192339_) - (##vector-length _g192339_) + (if (##values? _g193626_) + (##values-length _g193626_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192340_ 2))) + (##fx= _g193627_ 2))) (error "Context expects 2 values" - _g192340_))) - (let ((_%clause-lambda179127%_ + _g193627_))) + (let ((_%clause-lambda180414%_ (let () (declare (not safe)) - (##vector-ref _g192339_ 0))) - (_%kont179128%_ + (##values-ref _g193626_ 0))) + (_%kont180415%_ (let () (declare (not safe)) - (##vector-ref _g192339_ 1)))) - (_%lp179078%_ - _%rest179102%_ - (cons (cons _%clause-id179119%_ - _%clause-lambda179127%_) - _%clauses179081%_) - (cons (cons _%id179123%_ _%kont179128%_) - _%konts179082%_)))))))) - (if (pair? _%clause179104179111%_) - (let ((_%hd179108179134%_ + (##values-ref _g193626_ 1)))) + (_%lp180365%_ + _%rest180389%_ + (cons (cons _%clause-id180406%_ + _%clause-lambda180414%_) + _%clauses180368%_) + (cons (cons _%id180410%_ _%kont180415%_) + _%konts180369%_)))))))) + (if (pair? _%clause180391180398%_) + (let ((_%hd180395180421%_ (let () (declare (not safe)) - (##car _%clause179104179111%_))) - (_%tl179109179136%_ + (##car _%clause180391180398%_))) + (_%tl180396180423%_ (let () (declare (not safe)) - (##cdr _%clause179104179111%_)))) - (let* ((_%clause-id179139%_ _%hd179108179134%_) - (_%clause-lambda179141%_ - _%tl179109179136%_)) - (_%K179107179131%_ - _%clause-lambda179141%_ - _%clause-id179139%_))) - (_%E179106179115%_)))))) - (if (pair? _%rest179083179091%_) - (let ((_%hd179088179146%_ + (##cdr _%clause180391180398%_)))) + (let* ((_%clause-id180426%_ _%hd180395180421%_) + (_%clause-lambda180428%_ + _%tl180396180423%_)) + (_%K180394180418%_ + _%clause-lambda180428%_ + _%clause-id180426%_))) + (_%E180393180402%_)))))) + (if (pair? _%rest180370180378%_) + (let ((_%hd180375180433%_ (let () (declare (not safe)) - (##car _%rest179083179091%_))) - (_%tl179089179148%_ + (##car _%rest180370180378%_))) + (_%tl180376180435%_ (let () (declare (not safe)) - (##cdr _%rest179083179091%_)))) - (let* ((_%clause179151%_ _%hd179088179146%_) - (_%rest179153%_ _%tl179089179148%_)) - (_%K179087179143%_ _%rest179153%_ _%clause179151%_))) - (_%else179085179099%_))))))) + (##cdr _%rest180370180378%_)))) + (let* ((_%clause180438%_ _%hd180375180433%_) + (_%rest180440%_ _%tl180376180435%_)) + (_%K180374180430%_ _%rest180440%_ _%clause180438%_))) + (_%else180372180386%_))))))) (define gxc#optimize-syntax-case-closure - (lambda (_%clause178415%_ _%negation178416%_ _%target178417%_) - (letrec ((_%closure-e178419%_ - (lambda (_%expr178536%_) - (let* ((_%__stx191950191951%_ _%expr178536%_) - (_%g178543178658%_ + (lambda (_%clause179702%_ _%negation179703%_ _%target179704%_) + (letrec ((_%closure-e179706%_ + (lambda (_%expr179823%_) + (let* ((_%__stx193237193238%_ _%expr179823%_) + (_%g179830179945%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191950191951%_))))) - (let ((_%__kont191952191953%_ - (lambda (_%L179049%_ _%L179050%_ _%L179051%_) + _%__stx193237193238%_))))) + (let ((_%__kont193239193240%_ + (lambda (_%L180336%_ _%L180337%_ _%L180338%_) (cons '%#if - (cons _%L179051%_ - (cons (_%closure-e178419%_ - _%L179050%_) - (cons (_%closure-e178419%_ - _%L179049%_) + (cons _%L180338%_ + (cons (_%closure-e179706%_ + _%L180337%_) + (cons (_%closure-e179706%_ + _%L180336%_) '())))))) - (_%__kont191954191955%_ - (lambda (_%L178997%_ _%L178998%_) + (_%__kont193241193242%_ + (lambda (_%L180284%_ _%L180285%_) (cons '%#let-values - (cons _%L178998%_ - (cons (_%closure-e178419%_ - _%L178997%_) + (cons _%L180285%_ + (cons (_%closure-e179706%_ + _%L180284%_) '()))))) - (_%__kont191956191957%_ - (lambda (_%L178943%_ _%L178944%_ _%L178945%_) + (_%__kont193243193244%_ + (lambda (_%L180230%_ _%L180231%_ _%L180232%_) (cons '%#letrec-values - (cons (cons (cons (cons _%L178945%_ '()) - (cons (_%closure-e178419%_ - _%L178944%_) + (cons (cons (cons (cons _%L180232%_ '()) + (cons (_%closure-e179706%_ + _%L180231%_) '())) '()) - (cons _%L178943%_ '()))))) - (_%__kont191958191959%_ - (lambda (_%L178856%_ _%L178857%_) + (cons _%L180230%_ '()))))) + (_%__kont193245193246%_ + (lambda (_%L180143%_ _%L180144%_) (cons '%#lambda - (cons (let ((__tmp192341 - (lambda (_%g178874178877%_ - _%g178875178879%_) - (cons _%g178874178877%_ - _%g178875178879%_)))) + (cons (let ((__tmp193628 + (lambda (_%g180161180164%_ + _%g180162180166%_) + (cons _%g180161180164%_ + _%g180162180166%_)))) (declare (not safe)) (__foldr1 - __tmp192341 + __tmp193628 '() - _%L178857%_)) - (cons (_%closure-e178419%_ - _%L178856%_) + _%L180144%_)) + (cons (_%closure-e179706%_ + _%L180143%_) '()))))) - (_%__kont191962191963%_ - (lambda (_%L178786%_) + (_%__kont193249193250%_ + (lambda (_%L180073%_) (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L178786%_ '())) + (cons _%L180073%_ '())) '())))) - (_%__kont191964191965%_ - (lambda (_%L178719%_ _%L178720%_) - _%expr178536%_))) - (let* ((_%__match192183192184%_ - (lambda (_%e178633178663%_ - _%hd178634178666%_ - _%tl178635178668%_ - _%e178636178671%_ - _%hd178637178674%_ - _%tl178638178676%_ - _%e178639178679%_ - _%hd178640178682%_ - _%tl178641178684%_ - _%e178642178687%_ - _%hd178643178690%_ - _%tl178644178692%_ - _%__splice191966191967%_ - _%target178645178695%_ - _%tl178647178697%_) - (letrec ((_%loop178648178700%_ - (lambda (_%hd178646178703%_ - _%arg178652178705%_) + (_%__kont193251193252%_ + (lambda (_%L180006%_ _%L180007%_) + _%expr179823%_))) + (let* ((_%__match193470193471%_ + (lambda (_%e179920179950%_ + _%hd179921179953%_ + _%tl179922179955%_ + _%e179923179958%_ + _%hd179924179961%_ + _%tl179925179963%_ + _%e179926179966%_ + _%hd179927179969%_ + _%tl179928179971%_ + _%e179929179974%_ + _%hd179930179977%_ + _%tl179931179979%_ + _%__splice193253193254%_ + _%target179932179982%_ + _%tl179934179984%_) + (letrec ((_%loop179935179987%_ + (lambda (_%hd179933179990%_ + _%arg179939179992%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178646178703%_)) - (let ((_%e178649178708%_ + _%hd179933179990%_)) + (let ((_%e179936179995%_ (let () (declare (not safe)) (gx#stx-e - _%hd178646178703%_)))) - (let ((_%lp-tl178651178713%_ + _%hd179933179990%_)))) + (let ((_%lp-tl179938180000%_ (let () (declare (not safe)) - (##cdr _%e178649178708%_))) - (_%lp-hd178650178711%_ + (##cdr _%e179936179995%_))) + (_%lp-hd179937179998%_ (let () (declare (not safe)) - (##car _%e178649178708%_)))) - (_%loop178648178700%_ - _%lp-tl178651178713%_ - (cons _%lp-hd178650178711%_ - _%arg178652178705%_)))) - (let ((_%arg178653178716%_ - (reverse _%arg178652178705%_))) - (_%__kont191964191965%_ - _%arg178653178716%_ - _%hd178643178690%_)))))) - (_%loop178648178700%_ - _%target178645178695%_ + (##car _%e179936179995%_)))) + (_%loop179935179987%_ + _%lp-tl179938180000%_ + (cons _%lp-hd179937179998%_ + _%arg179939179992%_)))) + (let ((_%arg179940180003%_ + (reverse _%arg179939179992%_))) + (_%__kont193251193252%_ + _%arg179940180003%_ + _%hd179930179977%_)))))) + (_%loop179935179987%_ + _%target179932179982%_ '())))) - (_%__match192141192142%_ - (lambda (_%e178616178746%_ - _%hd178617178749%_ - _%tl178618178751%_ - _%e178619178754%_ - _%hd178620178757%_ - _%tl178621178759%_ - _%e178622178762%_ - _%hd178623178765%_ - _%tl178624178767%_ - _%e178625178770%_ - _%hd178626178773%_ - _%tl178627178775%_ - _%e178628178778%_ - _%hd178629178781%_ - _%tl178630178783%_) - (let ((_%L178786%_ _%hd178626178773%_)) + (_%__match193428193429%_ + (lambda (_%e179903180033%_ + _%hd179904180036%_ + _%tl179905180038%_ + _%e179906180041%_ + _%hd179907180044%_ + _%tl179908180046%_ + _%e179909180049%_ + _%hd179910180052%_ + _%tl179911180054%_ + _%e179912180057%_ + _%hd179913180060%_ + _%tl179914180062%_ + _%e179915180065%_ + _%hd179916180068%_ + _%tl179917180070%_) + (let ((_%L180073%_ _%hd179913180060%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L178786%_ - _%negation178416%_)) - (_%__kont191962191963%_ _%L178786%_) + _%L180073%_ + _%negation179703%_)) + (_%__kont193249193250%_ _%L180073%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl178621178759%_)) - (let ((_%__splice191966191967%_ + _%tl179908180046%_)) + (let ((_%__splice193253193254%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl178621178759%_ + _%tl179908180046%_ '0)))) - (let ((_%tl178647178697%_ + (let ((_%tl179934179984%_ (let () (declare (not safe)) (##vector-ref - _%__splice191966191967%_ + _%__splice193253193254%_ '1))) - (_%target178645178695%_ + (_%target179932179982%_ (let () (declare (not safe)) (##vector-ref - _%__splice191966191967%_ + _%__splice193253193254%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178647178697%_)) - (_%__match192183192184%_ - _%e178616178746%_ - _%hd178617178749%_ - _%tl178618178751%_ - _%e178619178754%_ - _%hd178620178757%_ - _%tl178621178759%_ - _%e178622178762%_ - _%hd178623178765%_ - _%tl178624178767%_ - _%e178625178770%_ - _%hd178626178773%_ - _%tl178627178775%_ - _%__splice191966191967%_ - _%target178645178695%_ - _%tl178647178697%_) + _%tl179934179984%_)) + (_%__match193470193471%_ + _%e179903180033%_ + _%hd179904180036%_ + _%tl179905180038%_ + _%e179906180041%_ + _%hd179907180044%_ + _%tl179908180046%_ + _%e179909180049%_ + _%hd179910180052%_ + _%tl179911180054%_ + _%e179912180057%_ + _%hd179913180060%_ + _%tl179914180062%_ + _%__splice193253193254%_ + _%target179932179982%_ + _%tl179934179984%_) (let () (declare (not safe)) - (_%g178543178658%_))))) + (_%g179830179945%_))))) (let () (declare (not safe)) - (_%g178543178658%_))))))) - (_%__match192099192100%_ - (lambda (_%e178597178808%_ - _%hd178598178811%_ - _%tl178599178813%_ - _%e178600178816%_ - _%hd178601178819%_ - _%tl178602178821%_ - _%__splice191960191961%_ - _%target178603178824%_ - _%tl178605178826%_) - (letrec ((_%loop178606178829%_ - (lambda (_%hd178604178832%_ - _%id178610178834%_) + (_%g179830179945%_))))))) + (_%__match193386193387%_ + (lambda (_%e179884180095%_ + _%hd179885180098%_ + _%tl179886180100%_ + _%e179887180103%_ + _%hd179888180106%_ + _%tl179889180108%_ + _%__splice193247193248%_ + _%target179890180111%_ + _%tl179892180113%_) + (letrec ((_%loop179893180116%_ + (lambda (_%hd179891180119%_ + _%id179897180121%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178604178832%_)) - (let ((_%e178607178837%_ + _%hd179891180119%_)) + (let ((_%e179894180124%_ (let () (declare (not safe)) (gx#stx-e - _%hd178604178832%_)))) - (let ((_%lp-tl178609178842%_ + _%hd179891180119%_)))) + (let ((_%lp-tl179896180129%_ (let () (declare (not safe)) - (##cdr _%e178607178837%_))) - (_%lp-hd178608178840%_ + (##cdr _%e179894180124%_))) + (_%lp-hd179895180127%_ (let () (declare (not safe)) - (##car _%e178607178837%_)))) - (_%loop178606178829%_ - _%lp-tl178609178842%_ - (cons _%lp-hd178608178840%_ - _%id178610178834%_)))) - (let ((_%id178611178845%_ - (reverse _%id178610178834%_))) + (##car _%e179894180124%_)))) + (_%loop179893180116%_ + _%lp-tl179896180129%_ + (cons _%lp-hd179895180127%_ + _%id179897180121%_)))) + (let ((_%id179898180132%_ + (reverse _%id179897180121%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178602178821%_)) - (let ((_%e178612178848%_ + _%tl179889180108%_)) + (let ((_%e179899180135%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl178602178821%_)))) - (let ((_%tl178614178853%_ + (gx#stx-e _%tl179889180108%_)))) + (let ((_%tl179901180140%_ (let () (declare (not safe)) - (##cdr _%e178612178848%_))) - (_%hd178613178851%_ + (##cdr _%e179899180135%_))) + (_%hd179900180138%_ (let () (declare (not safe)) - (##car _%e178612178848%_)))) + (##car _%e179899180135%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178614178853%_)) - (_%__kont191958191959%_ - _%hd178613178851%_ - _%id178611178845%_) - (let () (declare (not safe)) (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_)))))))) + (gx#stx-null? _%tl179901180140%_)) + (_%__kont193245193246%_ + _%hd179900180138%_ + _%id179898180132%_) + (let () (declare (not safe)) (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop178606178829%_ - _%target178603178824%_ + (_%loop179893180116%_ + _%target179890180111%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191950191951%_)) - (let ((_%e178548179017%_ + (gx#stx-pair? _%__stx193237193238%_)) + (let ((_%e179835180304%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191950191951%_)))) - (let ((_%tl178550179022%_ + (gx#stx-e _%__stx193237193238%_)))) + (let ((_%tl179837180309%_ (let () (declare (not safe)) - (##cdr _%e178548179017%_))) - (_%hd178549179020%_ + (##cdr _%e179835180304%_))) + (_%hd179836180307%_ (let () (declare (not safe)) - (##car _%e178548179017%_)))) + (##car _%e179835180304%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178549179020%_)) + (gx#identifier? _%hd179836180307%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd178549179020%_)) + _%hd179836180307%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178550179022%_)) - (let ((_%e178551179025%_ + _%tl179837180309%_)) + (let ((_%e179838180312%_ (let () (declare (not safe)) (gx#stx-e - _%tl178550179022%_)))) - (let ((_%tl178553179030%_ + _%tl179837180309%_)))) + (let ((_%tl179840180317%_ (let () (declare (not safe)) - (##cdr _%e178551179025%_))) - (_%hd178552179028%_ + (##cdr _%e179838180312%_))) + (_%hd179839180315%_ (let () (declare (not safe)) - (##car _%e178551179025%_)))) + (##car _%e179838180312%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178553179030%_)) - (let ((_%e178554179033%_ + _%tl179840180317%_)) + (let ((_%e179841180320%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178553179030%_)))) - (let ((_%tl178556179038%_ - (let () (declare (not safe)) (##cdr _%e178554179033%_))) - (_%hd178555179036%_ + (gx#stx-e _%tl179840180317%_)))) + (let ((_%tl179843180325%_ + (let () (declare (not safe)) (##cdr _%e179841180320%_))) + (_%hd179842180323%_ (let () (declare (not safe)) - (##car _%e178554179033%_)))) + (##car _%e179841180320%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178556179038%_)) - (let ((_%e178557179041%_ + (gx#stx-pair? _%tl179843180325%_)) + (let ((_%e179844180328%_ (let () (declare (not safe)) - (gx#stx-e _%tl178556179038%_)))) - (let ((_%tl178559179046%_ + (gx#stx-e _%tl179843180325%_)))) + (let ((_%tl179846180333%_ (let () (declare (not safe)) - (##cdr _%e178557179041%_))) - (_%hd178558179044%_ + (##cdr _%e179844180328%_))) + (_%hd179845180331%_ (let () (declare (not safe)) - (##car _%e178557179041%_)))) + (##car _%e179844180328%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178559179046%_)) - (_%__kont191952191953%_ - _%hd178558179044%_ - _%hd178555179036%_ - _%hd178552179028%_) + (gx#stx-null? _%tl179846180333%_)) + (_%__kont193239193240%_ + _%hd179845180331%_ + _%hd179842180323%_ + _%hd179839180315%_) (let () (declare (not safe)) - (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))))) + (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178543178658%_))) + (_%g179830179945%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd178549179020%_)) + _%hd179836180307%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178550179022%_)) - (let ((_%e178565178981%_ + _%tl179837180309%_)) + (let ((_%e179852180268%_ (let () (declare (not safe)) (gx#stx-e - _%tl178550179022%_)))) - (let ((_%tl178567178986%_ + _%tl179837180309%_)))) + (let ((_%tl179854180273%_ (let () (declare (not safe)) - (##cdr _%e178565178981%_))) - (_%hd178566178984%_ + (##cdr _%e179852180268%_))) + (_%hd179853180271%_ (let () (declare (not safe)) - (##car _%e178565178981%_)))) + (##car _%e179852180268%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178567178986%_)) - (let ((_%e178568178989%_ + _%tl179854180273%_)) + (let ((_%e179855180276%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl178567178986%_)))) - (let ((_%tl178570178994%_ + (gx#stx-e _%tl179854180273%_)))) + (let ((_%tl179857180281%_ (let () (declare (not safe)) - (##cdr _%e178568178989%_))) - (_%hd178569178992%_ + (##cdr _%e179855180276%_))) + (_%hd179856180279%_ (let () (declare (not safe)) - (##car _%e178568178989%_)))) + (##car _%e179855180276%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178570178994%_)) - (_%__kont191954191955%_ - _%hd178569178992%_ - _%hd178566178984%_) - (let () (declare (not safe)) (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))))) + (gx#stx-null? _%tl179857180281%_)) + (_%__kont193241193242%_ + _%hd179856180279%_ + _%hd179853180271%_) + (let () (declare (not safe)) (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178543178658%_))) + (_%g179830179945%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd178549179020%_)) + _%hd179836180307%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178550179022%_)) - (let ((_%e178577178895%_ + _%tl179837180309%_)) + (let ((_%e179864180182%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178550179022%_)))) - (let ((_%tl178579178900%_ - (let () (declare (not safe)) (##cdr _%e178577178895%_))) - (_%hd178578178898%_ + (gx#stx-e _%tl179837180309%_)))) + (let ((_%tl179866180187%_ + (let () (declare (not safe)) (##cdr _%e179864180182%_))) + (_%hd179865180185%_ (let () (declare (not safe)) - (##car _%e178577178895%_)))) + (##car _%e179864180182%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178578178898%_)) - (let ((_%e178580178903%_ + (gx#stx-pair? _%hd179865180185%_)) + (let ((_%e179867180190%_ (let () (declare (not safe)) - (gx#stx-e _%hd178578178898%_)))) - (let ((_%tl178582178908%_ + (gx#stx-e _%hd179865180185%_)))) + (let ((_%tl179869180195%_ (let () (declare (not safe)) - (##cdr _%e178580178903%_))) - (_%hd178581178906%_ + (##cdr _%e179867180190%_))) + (_%hd179868180193%_ (let () (declare (not safe)) - (##car _%e178580178903%_)))) + (##car _%e179867180190%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178581178906%_)) - (let ((_%e178583178911%_ + (gx#stx-pair? _%hd179868180193%_)) + (let ((_%e179870180198%_ (let () (declare (not safe)) - (gx#stx-e _%hd178581178906%_)))) - (let ((_%tl178585178916%_ + (gx#stx-e _%hd179868180193%_)))) + (let ((_%tl179872180203%_ (let () (declare (not safe)) - (##cdr _%e178583178911%_))) - (_%hd178584178914%_ + (##cdr _%e179870180198%_))) + (_%hd179871180201%_ (let () (declare (not safe)) - (##car _%e178583178911%_)))) + (##car _%e179870180198%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178584178914%_)) - (let ((_%e178586178919%_ + (gx#stx-pair? _%hd179871180201%_)) + (let ((_%e179873180206%_ (let () (declare (not safe)) - (gx#stx-e _%hd178584178914%_)))) - (let ((_%tl178588178924%_ + (gx#stx-e _%hd179871180201%_)))) + (let ((_%tl179875180211%_ (let () (declare (not safe)) - (##cdr _%e178586178919%_))) - (_%hd178587178922%_ + (##cdr _%e179873180206%_))) + (_%hd179874180209%_ (let () (declare (not safe)) - (##car _%e178586178919%_)))) + (##car _%e179873180206%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178588178924%_)) + _%tl179875180211%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178585178916%_)) - (let ((_%e178589178927%_ + _%tl179872180203%_)) + (let ((_%e179876180214%_ (let () (declare (not safe)) (gx#stx-e - _%tl178585178916%_)))) - (let ((_%tl178591178932%_ + _%tl179872180203%_)))) + (let ((_%tl179878180219%_ (let () (declare (not safe)) - (##cdr _%e178589178927%_))) - (_%hd178590178930%_ + (##cdr _%e179876180214%_))) + (_%hd179877180217%_ (let () (declare (not safe)) - (##car _%e178589178927%_)))) + (##car _%e179876180214%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178591178932%_)) + _%tl179878180219%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl178582178908%_)) + (gx#stx-null? _%tl179869180195%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178579178900%_)) - (let ((_%e178592178935%_ + (gx#stx-pair? _%tl179866180187%_)) + (let ((_%e179879180222%_ (let () (declare (not safe)) - (gx#stx-e _%tl178579178900%_)))) - (let ((_%tl178594178940%_ + (gx#stx-e _%tl179866180187%_)))) + (let ((_%tl179881180227%_ (let () (declare (not safe)) - (##cdr _%e178592178935%_))) - (_%hd178593178938%_ + (##cdr _%e179879180222%_))) + (_%hd179880180225%_ (let () (declare (not safe)) - (##car _%e178592178935%_)))) + (##car _%e179879180222%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178594178940%_)) - (_%__kont191956191957%_ - _%hd178593178938%_ - _%hd178590178930%_ - _%hd178587178922%_) + (gx#stx-null? _%tl179881180227%_)) + (_%__kont193243193244%_ + _%hd179880180225%_ + _%hd179877180217%_ + _%hd179874180209%_) (let () (declare (not safe)) - (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))) - (let () (declare (not safe)) (_%g178543178658%_))) - (let () (declare (not safe)) (_%g178543178658%_))))) + (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))) + (let () (declare (not safe)) (_%g179830179945%_))) + (let () (declare (not safe)) (_%g179830179945%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178543178658%_))) + (_%g179830179945%_))) (let () (declare (not safe)) - (_%g178543178658%_))))) + (_%g179830179945%_))))) (let () (declare (not safe)) - (_%g178543178658%_))))) + (_%g179830179945%_))))) (let () (declare (not safe)) - (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))) + (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd178549179020%_)) + _%hd179836180307%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178550179022%_)) - (let ((_%e178600178816%_ + _%tl179837180309%_)) + (let ((_%e179887180103%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl178550179022%_)))) - (let ((_%tl178602178821%_ + (gx#stx-e _%tl179837180309%_)))) + (let ((_%tl179889180108%_ (let () (declare (not safe)) - (##cdr _%e178600178816%_))) - (_%hd178601178819%_ + (##cdr _%e179887180103%_))) + (_%hd179888180106%_ (let () (declare (not safe)) - (##car _%e178600178816%_)))) + (##car _%e179887180103%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd178601178819%_)) - (let ((_%__splice191960191961%_ + (gx#stx-pair/null? _%hd179888180106%_)) + (let ((_%__splice193247193248%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd178601178819%_ + _%hd179888180106%_ '0)))) - (let ((_%tl178605178826%_ + (let ((_%tl179892180113%_ (let () (declare (not safe)) (##vector-ref - _%__splice191960191961%_ + _%__splice193247193248%_ '1))) - (_%target178603178824%_ + (_%target179890180111%_ (let () (declare (not safe)) (##vector-ref - _%__splice191960191961%_ + _%__splice193247193248%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178605178826%_)) - (_%__match192099192100%_ - _%e178548179017%_ - _%hd178549179020%_ - _%tl178550179022%_ - _%e178600178816%_ - _%hd178601178819%_ - _%tl178602178821%_ - _%__splice191960191961%_ - _%target178603178824%_ - _%tl178605178826%_) + (gx#stx-null? _%tl179892180113%_)) + (_%__match193386193387%_ + _%e179835180304%_ + _%hd179836180307%_ + _%tl179837180309%_ + _%e179887180103%_ + _%hd179888180106%_ + _%tl179889180108%_ + _%__splice193247193248%_ + _%target179890180111%_ + _%tl179892180113%_) (let () (declare (not safe)) - (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))) + (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd178549179020%_)) + (gx#stx-eq? '%#call _%hd179836180307%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178550179022%_)) - (let ((_%e178619178754%_ + (gx#stx-pair? _%tl179837180309%_)) + (let ((_%e179906180041%_ (let () (declare (not safe)) - (gx#stx-e _%tl178550179022%_)))) - (let ((_%tl178621178759%_ + (gx#stx-e _%tl179837180309%_)))) + (let ((_%tl179908180046%_ (let () (declare (not safe)) - (##cdr _%e178619178754%_))) - (_%hd178620178757%_ + (##cdr _%e179906180041%_))) + (_%hd179907180044%_ (let () (declare (not safe)) - (##car _%e178619178754%_)))) + (##car _%e179906180041%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178620178757%_)) - (let ((_%e178622178762%_ + (gx#stx-pair? _%hd179907180044%_)) + (let ((_%e179909180049%_ (let () (declare (not safe)) - (gx#stx-e _%hd178620178757%_)))) - (let ((_%tl178624178767%_ + (gx#stx-e _%hd179907180044%_)))) + (let ((_%tl179911180054%_ (let () (declare (not safe)) - (##cdr _%e178622178762%_))) - (_%hd178623178765%_ + (##cdr _%e179909180049%_))) + (_%hd179910180052%_ (let () (declare (not safe)) - (##car _%e178622178762%_)))) + (##car _%e179909180049%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178623178765%_)) + (gx#identifier? _%hd179910180052%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd178623178765%_)) + _%hd179910180052%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178624178767%_)) - (let ((_%e178625178770%_ + _%tl179911180054%_)) + (let ((_%e179912180057%_ (let () (declare (not safe)) (gx#stx-e - _%tl178624178767%_)))) - (let ((_%tl178627178775%_ + _%tl179911180054%_)))) + (let ((_%tl179914180062%_ (let () (declare (not safe)) - (##cdr _%e178625178770%_))) - (_%hd178626178773%_ + (##cdr _%e179912180057%_))) + (_%hd179913180060%_ (let () (declare (not safe)) - (##car _%e178625178770%_)))) + (##car _%e179912180057%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178627178775%_)) + _%tl179914180062%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178621178759%_)) - (let ((_%e178628178778%_ + _%tl179908180046%_)) + (let ((_%e179915180065%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl178621178759%_)))) - (let ((_%tl178630178783%_ + (gx#stx-e _%tl179908180046%_)))) + (let ((_%tl179917180070%_ (let () (declare (not safe)) - (##cdr _%e178628178778%_))) - (_%hd178629178781%_ + (##cdr _%e179915180065%_))) + (_%hd179916180068%_ (let () (declare (not safe)) - (##car _%e178628178778%_)))) + (##car _%e179915180065%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178630178783%_)) - (_%__match192141192142%_ - _%e178548179017%_ - _%hd178549179020%_ - _%tl178550179022%_ - _%e178619178754%_ - _%hd178620178757%_ - _%tl178621178759%_ - _%e178622178762%_ - _%hd178623178765%_ - _%tl178624178767%_ - _%e178625178770%_ - _%hd178626178773%_ - _%tl178627178775%_ - _%e178628178778%_ - _%hd178629178781%_ - _%tl178630178783%_) + (gx#stx-null? _%tl179917180070%_)) + (_%__match193428193429%_ + _%e179835180304%_ + _%hd179836180307%_ + _%tl179837180309%_ + _%e179906180041%_ + _%hd179907180044%_ + _%tl179908180046%_ + _%e179909180049%_ + _%hd179910180052%_ + _%tl179911180054%_ + _%e179912180057%_ + _%hd179913180060%_ + _%tl179914180062%_ + _%e179915180065%_ + _%hd179916180068%_ + _%tl179917180070%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl178621178759%_)) - (let ((_%__splice191966191967%_ + (gx#stx-pair/null? _%tl179908180046%_)) + (let ((_%__splice193253193254%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl178621178759%_ + _%tl179908180046%_ '0)))) - (let ((_%tl178647178697%_ + (let ((_%tl179934179984%_ (let () (declare (not safe)) (##vector-ref - _%__splice191966191967%_ + _%__splice193253193254%_ '1))) - (_%target178645178695%_ + (_%target179932179982%_ (let () (declare (not safe)) (##vector-ref - _%__splice191966191967%_ + _%__splice193253193254%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178647178697%_)) - (_%__match192183192184%_ - _%e178548179017%_ - _%hd178549179020%_ - _%tl178550179022%_ - _%e178619178754%_ - _%hd178620178757%_ - _%tl178621178759%_ - _%e178622178762%_ - _%hd178623178765%_ - _%tl178624178767%_ - _%e178625178770%_ - _%hd178626178773%_ - _%tl178627178775%_ - _%__splice191966191967%_ - _%target178645178695%_ - _%tl178647178697%_) + (gx#stx-null? _%tl179934179984%_)) + (_%__match193470193471%_ + _%e179835180304%_ + _%hd179836180307%_ + _%tl179837180309%_ + _%e179906180041%_ + _%hd179907180044%_ + _%tl179908180046%_ + _%e179909180049%_ + _%hd179910180052%_ + _%tl179911180054%_ + _%e179912180057%_ + _%hd179913180060%_ + _%tl179914180062%_ + _%__splice193253193254%_ + _%target179932179982%_ + _%tl179934179984%_) (let () (declare (not safe)) - (_%g178543178658%_))))) + (_%g179830179945%_))))) (let () (declare (not safe)) - (_%g178543178658%_)))))) + (_%g179830179945%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl178621178759%_)) - (let ((_%__splice191966191967%_ + (gx#stx-pair/null? _%tl179908180046%_)) + (let ((_%__splice193253193254%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl178621178759%_ + _%tl179908180046%_ '0)))) - (let ((_%tl178647178697%_ + (let ((_%tl179934179984%_ (let () (declare (not safe)) - (##vector-ref _%__splice191966191967%_ '1))) - (_%target178645178695%_ + (##vector-ref _%__splice193253193254%_ '1))) + (_%target179932179982%_ (let () (declare (not safe)) - (##vector-ref _%__splice191966191967%_ '0)))) + (##vector-ref _%__splice193253193254%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178647178697%_)) - (_%__match192183192184%_ - _%e178548179017%_ - _%hd178549179020%_ - _%tl178550179022%_ - _%e178619178754%_ - _%hd178620178757%_ - _%tl178621178759%_ - _%e178622178762%_ - _%hd178623178765%_ - _%tl178624178767%_ - _%e178625178770%_ - _%hd178626178773%_ - _%tl178627178775%_ - _%__splice191966191967%_ - _%target178645178695%_ - _%tl178647178697%_) + (gx#stx-null? _%tl179934179984%_)) + (_%__match193470193471%_ + _%e179835180304%_ + _%hd179836180307%_ + _%tl179837180309%_ + _%e179906180041%_ + _%hd179907180044%_ + _%tl179908180046%_ + _%e179909180049%_ + _%hd179910180052%_ + _%tl179911180054%_ + _%e179912180057%_ + _%hd179913180060%_ + _%tl179914180062%_ + _%__splice193253193254%_ + _%target179932179982%_ + _%tl179934179984%_) (let () (declare (not safe)) - (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_)))) - (let () (declare (not safe)) (_%g178543178658%_))))) + (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_)))) + (let () (declare (not safe)) (_%g179830179945%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178543178658%_))) + (_%g179830179945%_))) (let () (declare (not safe)) - (_%g178543178658%_))) + (_%g179830179945%_))) (let () (declare (not safe)) - (_%g178543178658%_))))) + (_%g179830179945%_))))) (let () (declare (not safe)) - (_%g178543178658%_))))) - (let () (declare (not safe)) (_%g178543178658%_))) - (let () (declare (not safe)) (_%g178543178658%_))))))) + (_%g179830179945%_))))) + (let () (declare (not safe)) (_%g179830179945%_))) + (let () (declare (not safe)) (_%g179830179945%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178543178658%_))))) + (_%g179830179945%_))))) (let () (declare (not safe)) - (_%g178543178658%_))))))))) - (let* ((_%clause178420178427%_ _%clause178415%_) - (_%E178422178431%_ + (_%g179830179945%_))))))))) + (let* ((_%clause179707179714%_ _%clause179702%_) + (_%E179709179718%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause178420178427%_ + _%clause179707179714%_ '([id . kont]))) '#!void)) - (_%K178423178524%_ - (lambda (_%kont178434%_ _%id178435%_) - (let* ((_%g178437178457%_ - (lambda (_%g178438178454%_) + (_%K179710179811%_ + (lambda (_%kont179721%_ _%id179722%_) + (let* ((_%g179724179744%_ + (lambda (_%g179725179741%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178438178454%_)))) - (_%g178436178521%_ - (lambda (_%g178438178460%_) + _%g179725179741%_)))) + (_%g179723179808%_ + (lambda (_%g179725179747%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178438178460%_)) - (let ((_%e178441178462%_ + (gx#stx-pair? _%g179725179747%_)) + (let ((_%e179728179749%_ (let () (declare (not safe)) - (gx#stx-e _%g178438178460%_)))) - (let ((_%hd178442178465%_ + (gx#stx-e _%g179725179747%_)))) + (let ((_%hd179729179752%_ (let () (declare (not safe)) - (##car _%e178441178462%_))) - (_%tl178443178467%_ + (##car _%e179728179749%_))) + (_%tl179730179754%_ (let () (declare (not safe)) - (##cdr _%e178441178462%_)))) + (##cdr _%e179728179749%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178442178465%_)) + _%hd179729179752%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd178442178465%_)) + _%hd179729179752%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178443178467%_)) - (let ((_%e178444178470%_ + _%tl179730179754%_)) + (let ((_%e179731179757%_ (let () (declare (not safe)) (gx#stx-e - _%tl178443178467%_)))) - (let ((_%hd178445178473%_ + _%tl179730179754%_)))) + (let ((_%hd179732179760%_ (let () (declare (not safe)) - (##car _%e178444178470%_))) - (_%tl178446178475%_ + (##car _%e179731179757%_))) + (_%tl179733179762%_ (let () (declare (not safe)) - (##cdr _%e178444178470%_)))) + (##cdr _%e179731179757%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178445178473%_)) - (let ((_%e178447178478%_ + _%hd179732179760%_)) + (let ((_%e179734179765%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd178445178473%_)))) - (let ((_%hd178448178481%_ + (gx#stx-e _%hd179732179760%_)))) + (let ((_%hd179735179768%_ (let () (declare (not safe)) - (##car _%e178447178478%_))) - (_%tl178449178483%_ + (##car _%e179734179765%_))) + (_%tl179736179770%_ (let () (declare (not safe)) - (##cdr _%e178447178478%_)))) + (##cdr _%e179734179765%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178449178483%_)) + (gx#stx-null? _%tl179736179770%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178446178475%_)) - (let ((_%e178450178486%_ + (gx#stx-pair? _%tl179733179762%_)) + (let ((_%e179737179773%_ (let () (declare (not safe)) - (gx#stx-e _%tl178446178475%_)))) - (let ((_%hd178451178489%_ + (gx#stx-e _%tl179733179762%_)))) + (let ((_%hd179738179776%_ (let () (declare (not safe)) - (##car _%e178450178486%_))) - (_%tl178452178491%_ + (##car _%e179737179773%_))) + (_%tl179739179778%_ (let () (declare (not safe)) - (##cdr _%e178450178486%_)))) + (##cdr _%e179737179773%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178452178491%_)) - ((lambda (_%L178494%_ _%L178495%_) - (let* ((_%body178516%_ + (gx#stx-null? _%tl179739179778%_)) + ((lambda (_%L179781%_ _%L179782%_) + (let* ((_%body179803%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L178495%_ - _%target178417%_ - _%L178494%_))) - (_%body178518%_ - (if _%negation178416%_ - (_%closure-e178419%_ - _%body178516%_) - _%body178516%_))) - (let ((__tmp192343 + _%L179782%_ + _%target179704%_ + _%L179781%_))) + (_%body179805%_ + (if _%negation179703%_ + (_%closure-e179706%_ + _%body179803%_) + _%body179803%_))) + (let ((__tmp193630 (let () (declare (not safe)) (gxc#identifier-symbol - _%id178435%_))) - (__tmp192342 - (let ((__obj192241 + _%id179722%_))) + (__tmp193629 + (let ((__obj193528 (let () (declare (not safe)) (##structure @@ -16505,575 +16505,575 @@ (gxc#!lambda:::init!__% '#f absent-value - __obj192241 + __obj193528 '0 '#f)) - __obj192241))) + __obj193528))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp192343 - __tmp192342 + __tmp193630 + __tmp193629 '#t)) - (cons _%id178435%_ + (cons _%id179722%_ (cons '%#lambda (cons '() - (cons _%body178518%_ + (cons _%body179805%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd178451178489%_ - _%hd178448178481%_) - (_%g178437178457%_ _%g178438178460%_)))) - (_%g178437178457%_ _%g178438178460%_)) - (_%g178437178457%_ _%g178438178460%_)))) - (_%g178437178457%_ _%g178438178460%_)))) + _%hd179738179776%_ + _%hd179735179768%_) + (_%g179724179744%_ _%g179725179747%_)))) + (_%g179724179744%_ _%g179725179747%_)) + (_%g179724179744%_ _%g179725179747%_)))) + (_%g179724179744%_ _%g179725179747%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178437178457%_ - _%g178438178460%_)) - (_%g178437178457%_ - _%g178438178460%_)) - (_%g178437178457%_ - _%g178438178460%_)))) - (_%g178437178457%_ _%g178438178460%_))))) - (_%g178436178521%_ _%kont178434%_))))) - (if (pair? _%clause178420178427%_) - (let ((_%hd178424178527%_ + (_%g179724179744%_ + _%g179725179747%_)) + (_%g179724179744%_ + _%g179725179747%_)) + (_%g179724179744%_ + _%g179725179747%_)))) + (_%g179724179744%_ _%g179725179747%_))))) + (_%g179723179808%_ _%kont179721%_))))) + (if (pair? _%clause179707179714%_) + (let ((_%hd179711179814%_ (let () (declare (not safe)) - (##car _%clause178420178427%_))) - (_%tl178425178529%_ + (##car _%clause179707179714%_))) + (_%tl179712179816%_ (let () (declare (not safe)) - (##cdr _%clause178420178427%_)))) - (let* ((_%id178532%_ _%hd178424178527%_) - (_%kont178534%_ _%tl178425178529%_)) - (_%K178423178524%_ _%kont178534%_ _%id178532%_))) - (_%E178422178431%_)))))) + (##cdr _%clause179707179714%_)))) + (let* ((_%id179819%_ _%hd179711179814%_) + (_%kont179821%_ _%tl179712179816%_)) + (_%K179710179811%_ _%kont179821%_ _%id179819%_))) + (_%E179709179718%_)))))) (define gxc#push-match-vars-let-values% - (lambda (_%self178199%_ _%stx178200%_) - (let* ((_%g178202178219%_ - (lambda (_%g178203178216%_) + (lambda (_%self179486%_ _%stx179487%_) + (let* ((_%g179489179506%_ + (lambda (_%g179490179503%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178203178216%_)))) - (_%g178201178412%_ - (lambda (_%g178203178222%_) + _%g179490179503%_)))) + (_%g179488179699%_ + (lambda (_%g179490179509%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178203178222%_)) - (let ((_%e178206178224%_ + (gx#stx-pair? _%g179490179509%_)) + (let ((_%e179493179511%_ (let () (declare (not safe)) - (gx#stx-e _%g178203178222%_)))) - (let ((_%hd178207178227%_ + (gx#stx-e _%g179490179509%_)))) + (let ((_%hd179494179514%_ (let () (declare (not safe)) - (##car _%e178206178224%_))) - (_%tl178208178229%_ + (##car _%e179493179511%_))) + (_%tl179495179516%_ (let () (declare (not safe)) - (##cdr _%e178206178224%_)))) + (##cdr _%e179493179511%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178208178229%_)) - (let ((_%e178209178232%_ + (gx#stx-pair? _%tl179495179516%_)) + (let ((_%e179496179519%_ (let () (declare (not safe)) - (gx#stx-e _%tl178208178229%_)))) - (let ((_%hd178210178235%_ + (gx#stx-e _%tl179495179516%_)))) + (let ((_%hd179497179522%_ (let () (declare (not safe)) - (##car _%e178209178232%_))) - (_%tl178211178237%_ + (##car _%e179496179519%_))) + (_%tl179498179524%_ (let () (declare (not safe)) - (##cdr _%e178209178232%_)))) + (##cdr _%e179496179519%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178211178237%_)) - (let ((_%e178212178240%_ + (gx#stx-pair? _%tl179498179524%_)) + (let ((_%e179499179527%_ (let () (declare (not safe)) - (gx#stx-e _%tl178211178237%_)))) - (let ((_%hd178213178243%_ + (gx#stx-e _%tl179498179524%_)))) + (let ((_%hd179500179530%_ (let () (declare (not safe)) - (##car _%e178212178240%_))) - (_%tl178214178245%_ + (##car _%e179499179527%_))) + (_%tl179501179532%_ (let () (declare (not safe)) - (##cdr _%e178212178240%_)))) + (##cdr _%e179499179527%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178214178245%_)) - ((lambda (_%L178248%_ - _%L178249%_) - (let _%lp178264%_ ((_%rest178266%_ + _%tl179501179532%_)) + ((lambda (_%L179535%_ + _%L179536%_) + (let _%lp179551%_ ((_%rest179553%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L178249%_) - (_%rebind178267%_ '()) - (_%vars178268%_ + _%L179536%_) + (_%rebind179554%_ '()) + (_%vars179555%_ (let () (declare (not safe)) - (slot-ref__0 _%self178199%_ 'vars)))) + (slot-ref__0 _%self179486%_ 'vars)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest178269178277%_ - _%rest178266%_) - (_%else178271178288%_ + (let* ((_%rest179556179564%_ + _%rest179553%_) + (_%else179558179575%_ (lambda () - (let ((_%sibling178285%_ + (let ((_%sibling179572%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (struct-copy _%self178199%_)))) + (struct-copy _%self179486%_)))) (let () (declare (not safe)) - (slot-set!__0 _%sibling178285%_ 'vars _%vars178268%_)) - (let ((__tmp192344 + (slot-set!__0 _%sibling179572%_ 'vars _%vars179555%_)) + (let ((__tmp193631 (lambda () - (if (null? _%rebind178267%_) + (if (null? _%rebind179554%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%sibling178285%_ - _%L178248%_)) - (let ((__tmp192345 + _%sibling179572%_ + _%L179535%_)) + (let ((__tmp193632 (cons '%#let-values - (cons (reverse _%rebind178267%_) + (cons (reverse _%rebind179554%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__1 _%sibling178285%_ _%L178248%_)) + (gxc#compile-e__1 _%sibling179572%_ _%L179535%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp192345 - _%stx178200%_)))))) + __tmp193632 + _%stx179487%_)))))) (declare (not safe)) (__call-with-parameters - __tmp192344 + __tmp193631 gxc#current-compile-method - _%sibling178285%_))))) - (_%K178273178400%_ - (lambda (_%rest178291%_ _%bind178292%_) - (let* ((_%__stx192186192187%_ _%bind178292%_) - (_%g178295178318%_ + _%sibling179572%_))))) + (_%K179560179687%_ + (lambda (_%rest179578%_ _%bind179579%_) + (let* ((_%__stx193473193474%_ _%bind179579%_) + (_%g179582179605%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx192186192187%_))))) - (let ((_%__kont192188192189%_ - (lambda (_%L178370%_ _%L178371%_) - (_%lp178264%_ - _%rest178291%_ - _%rebind178267%_ - (cons _%bind178292%_ _%vars178268%_)))) - (_%__kont192190192191%_ + _%__stx193473193474%_))))) + (let ((_%__kont193475193476%_ + (lambda (_%L179657%_ _%L179658%_) + (_%lp179551%_ + _%rest179578%_ + _%rebind179554%_ + (cons _%bind179579%_ _%vars179555%_)))) + (_%__kont193477193478%_ (lambda () - (_%lp178264%_ - _%rest178291%_ - (cons _%bind178292%_ _%rebind178267%_) - _%vars178268%_)))) + (_%lp179551%_ + _%rest179578%_ + (cons _%bind179579%_ _%rebind179554%_) + _%vars179555%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx192186192187%_)) - (let ((_%e178299178330%_ + (gx#stx-pair? _%__stx193473193474%_)) + (let ((_%e179586179617%_ (let () (declare (not safe)) - (gx#stx-e _%__stx192186192187%_)))) - (let ((_%tl178301178335%_ + (gx#stx-e _%__stx193473193474%_)))) + (let ((_%tl179588179622%_ (let () (declare (not safe)) - (##cdr _%e178299178330%_))) - (_%hd178300178333%_ + (##cdr _%e179586179617%_))) + (_%hd179587179620%_ (let () (declare (not safe)) - (##car _%e178299178330%_)))) + (##car _%e179586179617%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178300178333%_)) - (let ((_%e178302178338%_ + (gx#stx-pair? _%hd179587179620%_)) + (let ((_%e179589179625%_ (let () (declare (not safe)) - (gx#stx-e _%hd178300178333%_)))) - (let ((_%tl178304178343%_ + (gx#stx-e _%hd179587179620%_)))) + (let ((_%tl179591179630%_ (let () (declare (not safe)) - (##cdr _%e178302178338%_))) - (_%hd178303178341%_ + (##cdr _%e179589179625%_))) + (_%hd179590179628%_ (let () (declare (not safe)) - (##car _%e178302178338%_)))) + (##car _%e179589179625%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178304178343%_)) + _%tl179591179630%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178301178335%_)) - (let ((_%e178305178346%_ + _%tl179588179622%_)) + (let ((_%e179592179633%_ (let () (declare (not safe)) (gx#stx-e - _%tl178301178335%_)))) - (let ((_%tl178307178351%_ + _%tl179588179622%_)))) + (let ((_%tl179594179638%_ (let () (declare (not safe)) - (##cdr _%e178305178346%_))) - (_%hd178306178349%_ + (##cdr _%e179592179633%_))) + (_%hd179593179636%_ (let () (declare (not safe)) - (##car _%e178305178346%_)))) + (##car _%e179592179633%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178306178349%_)) - (let ((_%e178308178354%_ + _%hd179593179636%_)) + (let ((_%e179595179641%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd178306178349%_)))) - (let ((_%tl178310178359%_ + (gx#stx-e _%hd179593179636%_)))) + (let ((_%tl179597179646%_ (let () (declare (not safe)) - (##cdr _%e178308178354%_))) - (_%hd178309178357%_ + (##cdr _%e179595179641%_))) + (_%hd179596179644%_ (let () (declare (not safe)) - (##car _%e178308178354%_)))) + (##car _%e179595179641%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178309178357%_)) + (gx#identifier? _%hd179596179644%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd178309178357%_)) + (gx#stx-eq? '%#ref _%hd179596179644%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178310178359%_)) - (let ((_%e178311178362%_ + (gx#stx-pair? _%tl179597179646%_)) + (let ((_%e179598179649%_ (let () (declare (not safe)) - (gx#stx-e _%tl178310178359%_)))) - (let ((_%tl178313178367%_ + (gx#stx-e _%tl179597179646%_)))) + (let ((_%tl179600179654%_ (let () (declare (not safe)) - (##cdr _%e178311178362%_))) - (_%hd178312178365%_ + (##cdr _%e179598179649%_))) + (_%hd179599179652%_ (let () (declare (not safe)) - (##car _%e178311178362%_)))) + (##car _%e179598179649%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178313178367%_)) + (gx#stx-null? _%tl179600179654%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178307178351%_)) - (_%__kont192188192189%_ - _%hd178312178365%_ - _%hd178303178341%_) - (_%__kont192190192191%_)) - (_%__kont192190192191%_)))) - (_%__kont192190192191%_)) - (_%__kont192190192191%_)) - (_%__kont192190192191%_)))) - (_%__kont192190192191%_)))) + _%tl179594179638%_)) + (_%__kont193475193476%_ + _%hd179599179652%_ + _%hd179590179628%_) + (_%__kont193477193478%_)) + (_%__kont193477193478%_)))) + (_%__kont193477193478%_)) + (_%__kont193477193478%_)) + (_%__kont193477193478%_)))) + (_%__kont193477193478%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont192190192191%_)) - (_%__kont192190192191%_)))) - (_%__kont192190192191%_)))) - (_%__kont192190192191%_))))))) + (_%__kont193477193478%_)) + (_%__kont193477193478%_)))) + (_%__kont193477193478%_)))) + (_%__kont193477193478%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest178269178277%_) - (let ((_%hd178274178403%_ + (if (pair? _%rest179556179564%_) + (let ((_%hd179561179690%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%rest178269178277%_))) - (_%tl178275178405%_ + (##car _%rest179556179564%_))) + (_%tl179562179692%_ (let () (declare (not safe)) - (##cdr _%rest178269178277%_)))) - (let* ((_%bind178408%_ _%hd178274178403%_) - (_%rest178410%_ _%tl178275178405%_)) - (_%K178273178400%_ _%rest178410%_ _%bind178408%_))) - (_%else178271178288%_))))) + (##cdr _%rest179556179564%_)))) + (let* ((_%bind179695%_ _%hd179561179690%_) + (_%rest179697%_ _%tl179562179692%_)) + (_%K179560179687%_ _%rest179697%_ _%bind179695%_))) + (_%else179558179575%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd178213178243%_ - _%hd178210178235%_) - (_%g178202178219%_ - _%g178203178222%_)))) - (_%g178202178219%_ _%g178203178222%_)))) - (_%g178202178219%_ _%g178203178222%_)))) - (_%g178202178219%_ _%g178203178222%_))))) - (_%g178201178412%_ _%stx178200%_)))) + _%hd179500179530%_ + _%hd179497179522%_) + (_%g179489179506%_ + _%g179490179509%_)))) + (_%g179489179506%_ _%g179490179509%_)))) + (_%g179489179506%_ _%g179490179509%_)))) + (_%g179489179506%_ _%g179490179509%_))))) + (_%g179488179699%_ _%stx179487%_)))) (define gxc#push-match-vars-if% - (lambda (_%self178115%_ _%stx178116%_) - (let* ((_%g178118178139%_ - (lambda (_%g178119178136%_) + (lambda (_%self179402%_ _%stx179403%_) + (let* ((_%g179405179426%_ + (lambda (_%g179406179423%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178119178136%_)))) - (_%g178117178196%_ - (lambda (_%g178119178142%_) + _%g179406179423%_)))) + (_%g179404179483%_ + (lambda (_%g179406179429%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178119178142%_)) - (let ((_%e178123178144%_ + (gx#stx-pair? _%g179406179429%_)) + (let ((_%e179410179431%_ (let () (declare (not safe)) - (gx#stx-e _%g178119178142%_)))) - (let ((_%hd178124178147%_ + (gx#stx-e _%g179406179429%_)))) + (let ((_%hd179411179434%_ (let () (declare (not safe)) - (##car _%e178123178144%_))) - (_%tl178125178149%_ + (##car _%e179410179431%_))) + (_%tl179412179436%_ (let () (declare (not safe)) - (##cdr _%e178123178144%_)))) + (##cdr _%e179410179431%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178125178149%_)) - (let ((_%e178126178152%_ + (gx#stx-pair? _%tl179412179436%_)) + (let ((_%e179413179439%_ (let () (declare (not safe)) - (gx#stx-e _%tl178125178149%_)))) - (let ((_%hd178127178155%_ + (gx#stx-e _%tl179412179436%_)))) + (let ((_%hd179414179442%_ (let () (declare (not safe)) - (##car _%e178126178152%_))) - (_%tl178128178157%_ + (##car _%e179413179439%_))) + (_%tl179415179444%_ (let () (declare (not safe)) - (##cdr _%e178126178152%_)))) + (##cdr _%e179413179439%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178128178157%_)) - (let ((_%e178129178160%_ + (gx#stx-pair? _%tl179415179444%_)) + (let ((_%e179416179447%_ (let () (declare (not safe)) - (gx#stx-e _%tl178128178157%_)))) - (let ((_%hd178130178163%_ + (gx#stx-e _%tl179415179444%_)))) + (let ((_%hd179417179450%_ (let () (declare (not safe)) - (##car _%e178129178160%_))) - (_%tl178131178165%_ + (##car _%e179416179447%_))) + (_%tl179418179452%_ (let () (declare (not safe)) - (##cdr _%e178129178160%_)))) + (##cdr _%e179416179447%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178131178165%_)) - (let ((_%e178132178168%_ + _%tl179418179452%_)) + (let ((_%e179419179455%_ (let () (declare (not safe)) (gx#stx-e - _%tl178131178165%_)))) - (let ((_%hd178133178171%_ + _%tl179418179452%_)))) + (let ((_%hd179420179458%_ (let () (declare (not safe)) - (##car _%e178132178168%_))) - (_%tl178134178173%_ + (##car _%e179419179455%_))) + (_%tl179421179460%_ (let () (declare (not safe)) - (##cdr _%e178132178168%_)))) + (##cdr _%e179419179455%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178134178173%_)) - ((lambda (_%L178176%_ - _%L178177%_ - _%L178178%_) - (if (let ((__tmp192346 + _%tl179421179460%_)) + ((lambda (_%L179463%_ + _%L179464%_ + _%L179465%_) + (if (let ((__tmp193633 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (map caar (let () (declare (not safe)) - (slot-ref__0 _%self178115%_ 'vars))))) + (slot-ref__0 _%self179402%_ 'vars))))) (declare (not safe)) (gxc#apply-find-var-refs__% '#f - __tmp192346 - _%L178178%_)) - (gxc#push-match-vars-stop _%self178115%_ _%stx178116%_) - (let ((__tmp192347 + __tmp193633 + _%L179465%_)) + (gxc#push-match-vars-stop _%self179402%_ _%stx179403%_) + (let ((__tmp193634 (cons '%#if - (cons _%L178178%_ + (cons _%L179465%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self178115%_ - _%L178177%_)) + _%self179402%_ + _%L179464%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self178115%_ - _%L178176%_)) + _%self179402%_ + _%L179463%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192347 _%stx178116%_)))) - _%hd178133178171%_ - _%hd178130178163%_ - _%hd178127178155%_) - (_%g178118178139%_ _%g178119178142%_)))) + (gxc#xform-wrap-source __tmp193634 _%stx179403%_)))) + _%hd179420179458%_ + _%hd179417179450%_ + _%hd179414179442%_) + (_%g179405179426%_ _%g179406179429%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178118178139%_ - _%g178119178142%_)))) - (_%g178118178139%_ _%g178119178142%_)))) - (_%g178118178139%_ _%g178119178142%_)))) - (_%g178118178139%_ _%g178119178142%_))))) - (_%g178117178196%_ _%stx178116%_)))) + (_%g179405179426%_ + _%g179406179429%_)))) + (_%g179405179426%_ _%g179406179429%_)))) + (_%g179405179426%_ _%g179406179429%_)))) + (_%g179405179426%_ _%g179406179429%_))))) + (_%g179404179483%_ _%stx179403%_)))) (define gxc#push-match-vars-call% - (lambda (_%self178037%_ _%stx178038%_) - (let* ((_%g178040178059%_ - (lambda (_%g178041178056%_) + (lambda (_%self179324%_ _%stx179325%_) + (let* ((_%g179327179346%_ + (lambda (_%g179328179343%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178041178056%_)))) - (_%g178039178112%_ - (lambda (_%g178041178062%_) + _%g179328179343%_)))) + (_%g179326179399%_ + (lambda (_%g179328179349%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178041178062%_)) - (let ((_%e178043178064%_ + (gx#stx-pair? _%g179328179349%_)) + (let ((_%e179330179351%_ (let () (declare (not safe)) - (gx#stx-e _%g178041178062%_)))) - (let ((_%hd178044178067%_ + (gx#stx-e _%g179328179349%_)))) + (let ((_%hd179331179354%_ (let () (declare (not safe)) - (##car _%e178043178064%_))) - (_%tl178045178069%_ + (##car _%e179330179351%_))) + (_%tl179332179356%_ (let () (declare (not safe)) - (##cdr _%e178043178064%_)))) + (##cdr _%e179330179351%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178045178069%_)) - (let ((_%e178046178072%_ + (gx#stx-pair? _%tl179332179356%_)) + (let ((_%e179333179359%_ (let () (declare (not safe)) - (gx#stx-e _%tl178045178069%_)))) - (let ((_%hd178047178075%_ + (gx#stx-e _%tl179332179356%_)))) + (let ((_%hd179334179362%_ (let () (declare (not safe)) - (##car _%e178046178072%_))) - (_%tl178048178077%_ + (##car _%e179333179359%_))) + (_%tl179335179364%_ (let () (declare (not safe)) - (##cdr _%e178046178072%_)))) + (##cdr _%e179333179359%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178047178075%_)) - (let ((_%e178049178080%_ + (gx#stx-pair? _%hd179334179362%_)) + (let ((_%e179336179367%_ (let () (declare (not safe)) - (gx#stx-e _%hd178047178075%_)))) - (let ((_%hd178050178083%_ + (gx#stx-e _%hd179334179362%_)))) + (let ((_%hd179337179370%_ (let () (declare (not safe)) - (##car _%e178049178080%_))) - (_%tl178051178085%_ + (##car _%e179336179367%_))) + (_%tl179338179372%_ (let () (declare (not safe)) - (##cdr _%e178049178080%_)))) + (##cdr _%e179336179367%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178050178083%_)) + _%hd179337179370%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd178050178083%_)) + _%hd179337179370%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178051178085%_)) - (let ((_%e178052178088%_ + _%tl179338179372%_)) + (let ((_%e179339179375%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178051178085%_)))) - (let ((_%hd178053178091%_ - (let () (declare (not safe)) (##car _%e178052178088%_))) - (_%tl178054178093%_ + (gx#stx-e _%tl179338179372%_)))) + (let ((_%hd179340179378%_ + (let () (declare (not safe)) (##car _%e179339179375%_))) + (_%tl179341179380%_ (let () (declare (not safe)) - (##cdr _%e178052178088%_)))) + (##cdr _%e179339179375%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178054178093%_)) - ((lambda (_%L178096%_) - (if (and (let ((__tmp192348 + (gx#stx-null? _%tl179341179380%_)) + ((lambda (_%L179383%_) + (if (and (let ((__tmp193635 (let () (declare (not safe)) - (slot-ref__0 _%self178037%_ 'K)))) + (slot-ref__0 _%self179324%_ 'K)))) (declare (not safe)) (gx#free-identifier=? - _%L178096%_ - __tmp192348)) + _%L179383%_ + __tmp193635)) (pair? (let () (declare (not safe)) (slot-ref__0 - _%self178037%_ + _%self179324%_ 'vars)))) - (let ((__tmp192349 + (let ((__tmp193636 (cons '%#let-values (cons (reverse (let () (declare (not safe)) (slot-ref__0 - _%self178037%_ + _%self179324%_ 'vars))) - (cons _%stx178038%_ '()))))) + (cons _%stx179325%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp192349 - _%stx178038%_)) - _%stx178038%_)) - _%hd178053178091%_) - (_%g178040178059%_ _%g178041178062%_)))) - (_%g178040178059%_ _%g178041178062%_)) + __tmp193636 + _%stx179325%_)) + _%stx179325%_)) + _%hd179340179378%_) + (_%g179327179346%_ _%g179328179349%_)))) + (_%g179327179346%_ _%g179328179349%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178040178059%_ - _%g178041178062%_)) - (_%g178040178059%_ - _%g178041178062%_)))) - (_%g178040178059%_ _%g178041178062%_)))) - (_%g178040178059%_ _%g178041178062%_)))) - (_%g178040178059%_ _%g178041178062%_))))) - (_%g178039178112%_ _%stx178038%_)))) + (_%g179327179346%_ + _%g179328179349%_)) + (_%g179327179346%_ + _%g179328179349%_)))) + (_%g179327179346%_ _%g179328179349%_)))) + (_%g179327179346%_ _%g179328179349%_)))) + (_%g179327179346%_ _%g179328179349%_))))) + (_%g179326179399%_ _%stx179325%_)))) (define gxc#push-match-vars-stop - (lambda (_%self178034%_ _%stx178035%_) + (lambda (_%self179321%_ _%stx179322%_) (if (null? (let () (declare (not safe)) - (slot-ref__0 _%self178034%_ 'vars))) - _%stx178035%_ - (let ((__tmp192350 + (slot-ref__0 _%self179321%_ 'vars))) + _%stx179322%_ + (let ((__tmp193637 (cons '%#let-values (cons (reverse (let () (declare (not safe)) - (slot-ref__0 _%self178034%_ 'vars))) - (cons _%stx178035%_ '()))))) + (slot-ref__0 _%self179321%_ 'vars))) + (cons _%stx179322%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192350 _%stx178035%_))))))) + (gxc#xform-wrap-source __tmp193637 _%stx179322%_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~1.scm b/src/bootstrap/gerbil/compiler/optimize-ann~1.scm index 24894888e..e947122ad 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]#_g192352_| + (define |gxc[1]#_g193639_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192354_| + (define |gxc[1]#_g193641_| (##structure gx#syntax-quote::t '::optimize-annotated::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192356_| + (define |gxc[1]#_g193643_| (##structure gx#syntax-quote::t 'make-::optimize-annotated #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192358_| + (define |gxc[1]#_g193645_| (##structure gx#syntax-quote::t '::optimize-annotated? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192360_| + (define |gxc[1]#_g193647_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192362_| + (define |gxc[1]#_g193649_| (##structure gx#syntax-quote::t '::generate-runtime-repr::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192364_| + (define |gxc[1]#_g193651_| (##structure gx#syntax-quote::t 'make-::generate-runtime-repr #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192366_| + (define |gxc[1]#_g193653_| (##structure gx#syntax-quote::t '::generate-runtime-repr? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192368_| + (define |gxc[1]#_g193655_| (##structure gx#syntax-quote::t '::push-match-vars::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192370_| + (define |gxc[1]#_g193657_| (##structure gx#syntax-quote::t 'make-::push-match-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192372_| + (define |gxc[1]#_g193659_| (##structure gx#syntax-quote::t '::push-match-vars? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192374_| + (define |gxc[1]#_g193661_| (##structure gx#syntax-quote::t '::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192375_| + (define |gxc[1]#_g193662_| (##structure gx#syntax-quote::t '::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192377_| + (define |gxc[1]#_g193664_| (##structure gx#syntax-quote::t '::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192378_| + (define |gxc[1]#_g193665_| (##structure gx#syntax-quote::t '::push-match-vars-K-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192380_| + (define |gxc[1]#_g193667_| (##structure gx#syntax-quote::t '&::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192381_| + (define |gxc[1]#_g193668_| (##structure gx#syntax-quote::t '&::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192383_| + (define |gxc[1]#_g193670_| (##structure gx#syntax-quote::t '&::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192384_| + (define |gxc[1]#_g193671_| (##structure gx#syntax-quote::t '&::push-match-vars-K-set! @@ -135,7 +135,7 @@ '())) (begin (define |gxc[:0:]#::optimize-annotated| - (let ((__obj192233 + (let ((__obj193520 (let () (declare (not safe)) (##structure @@ -164,7 +164,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192233 + __obj193520 'gxc#::optimize-annotated::t '1 '#f @@ -172,65 +172,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192233 + __obj193520 '::optimize-annotated '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj193520 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '6 '#f '#f)) - (let ((__tmp192351 (cons |gxc[1]#_g192352_| '()))) + (##unchecked-structure-set! __obj193520 '() '6 '#f '#f)) + (let ((__tmp193638 (cons |gxc[1]#_g193639_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj192233 __tmp192351 '3 '#f '#f)) + (##unchecked-structure-set! __obj193520 __tmp193638 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj193520 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj193520 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj193520 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '#f '11 '#f '#f)) - (let ((__tmp192353 |gxc[1]#_g192354_|)) + (##unchecked-structure-set! __obj193520 '#f '11 '#f '#f)) + (let ((__tmp193640 |gxc[1]#_g193641_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192233 __tmp192353 '12 '#f '#f)) - (let ((__tmp192355 |gxc[1]#_g192356_|)) + (##unchecked-structure-set! __obj193520 __tmp193640 '12 '#f '#f)) + (let ((__tmp193642 |gxc[1]#_g193643_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192233 __tmp192355 '13 '#f '#f)) - (let ((__tmp192357 |gxc[1]#_g192358_|)) + (##unchecked-structure-set! __obj193520 __tmp193642 '13 '#f '#f)) + (let ((__tmp193644 |gxc[1]#_g193645_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192233 __tmp192357 '14 '#f '#f)) + (##unchecked-structure-set! __obj193520 __tmp193644 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj193520 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj193520 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj193520 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj193520 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj193520 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj193520 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192233 '() '20 '#f '#f)) - __obj192233)) + (##unchecked-structure-set! __obj193520 '() '20 '#f '#f)) + __obj193520)) (define |gxc[:0:]#::generate-runtime-repr| - (let ((__obj192235 + (let ((__obj193522 (let () (declare (not safe)) (##structure @@ -259,7 +259,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192235 + __obj193522 'gxc#::generate-runtime-repr::t '1 '#f @@ -267,65 +267,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192235 + __obj193522 '::generate-runtime-repr '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj193522 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '6 '#f '#f)) - (let ((__tmp192359 (cons |gxc[1]#_g192360_| '()))) + (##unchecked-structure-set! __obj193522 '() '6 '#f '#f)) + (let ((__tmp193646 (cons |gxc[1]#_g193647_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj192235 __tmp192359 '3 '#f '#f)) + (##unchecked-structure-set! __obj193522 __tmp193646 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj193522 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj193522 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj193522 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '#f '11 '#f '#f)) - (let ((__tmp192361 |gxc[1]#_g192362_|)) + (##unchecked-structure-set! __obj193522 '#f '11 '#f '#f)) + (let ((__tmp193648 |gxc[1]#_g193649_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192235 __tmp192361 '12 '#f '#f)) - (let ((__tmp192363 |gxc[1]#_g192364_|)) + (##unchecked-structure-set! __obj193522 __tmp193648 '12 '#f '#f)) + (let ((__tmp193650 |gxc[1]#_g193651_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192235 __tmp192363 '13 '#f '#f)) - (let ((__tmp192365 |gxc[1]#_g192366_|)) + (##unchecked-structure-set! __obj193522 __tmp193650 '13 '#f '#f)) + (let ((__tmp193652 |gxc[1]#_g193653_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192235 __tmp192365 '14 '#f '#f)) + (##unchecked-structure-set! __obj193522 __tmp193652 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj193522 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj193522 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj193522 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj193522 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj193522 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj193522 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192235 '() '20 '#f '#f)) - __obj192235)) + (##unchecked-structure-set! __obj193522 '() '20 '#f '#f)) + __obj193522)) (define |gxc[:0:]#::push-match-vars| - (let ((__obj192237 + (let ((__obj193524 (let () (declare (not safe)) (##structure @@ -354,7 +354,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192237 + __obj193524 'gxc#::push-match-vars::t '1 '#f @@ -362,68 +362,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192237 + __obj193524 '::push-match-vars '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '(vars K) '4 '#f '#f)) + (##unchecked-structure-set! __obj193524 '(vars K) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '(vars K) '6 '#f '#f)) + (##unchecked-structure-set! __obj193524 '(vars K) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj193524 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj193524 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj193524 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj193524 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '#f '11 '#f '#f)) - (let ((__tmp192367 |gxc[1]#_g192368_|)) + (##unchecked-structure-set! __obj193524 '#f '11 '#f '#f)) + (let ((__tmp193654 |gxc[1]#_g193655_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192237 __tmp192367 '12 '#f '#f)) - (let ((__tmp192369 |gxc[1]#_g192370_|)) + (##unchecked-structure-set! __obj193524 __tmp193654 '12 '#f '#f)) + (let ((__tmp193656 |gxc[1]#_g193657_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192237 __tmp192369 '13 '#f '#f)) - (let ((__tmp192371 |gxc[1]#_g192372_|)) + (##unchecked-structure-set! __obj193524 __tmp193656 '13 '#f '#f)) + (let ((__tmp193658 |gxc[1]#_g193659_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192237 __tmp192371 '14 '#f '#f)) - (let ((__tmp192373 - (cons (cons 'vars |gxc[1]#_g192374_|) - (cons (cons 'K |gxc[1]#_g192375_|) '())))) + (##unchecked-structure-set! __obj193524 __tmp193658 '14 '#f '#f)) + (let ((__tmp193660 + (cons (cons 'vars |gxc[1]#_g193661_|) + (cons (cons 'K |gxc[1]#_g193662_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj192237 __tmp192373 '15 '#f '#f)) - (let ((__tmp192376 - (cons (cons 'vars |gxc[1]#_g192377_|) - (cons (cons 'K |gxc[1]#_g192378_|) '())))) + (##unchecked-structure-set! __obj193524 __tmp193660 '15 '#f '#f)) + (let ((__tmp193663 + (cons (cons 'vars |gxc[1]#_g193664_|) + (cons (cons 'K |gxc[1]#_g193665_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj192237 __tmp192376 '16 '#f '#f)) - (let ((__tmp192379 - (cons (cons 'vars |gxc[1]#_g192380_|) - (cons (cons 'K |gxc[1]#_g192381_|) '())))) + (##unchecked-structure-set! __obj193524 __tmp193663 '16 '#f '#f)) + (let ((__tmp193666 + (cons (cons 'vars |gxc[1]#_g193667_|) + (cons (cons 'K |gxc[1]#_g193668_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj192237 __tmp192379 '17 '#f '#f)) - (let ((__tmp192382 - (cons (cons 'vars |gxc[1]#_g192383_|) - (cons (cons 'K |gxc[1]#_g192384_|) '())))) + (##unchecked-structure-set! __obj193524 __tmp193666 '17 '#f '#f)) + (let ((__tmp193669 + (cons (cons 'vars |gxc[1]#_g193670_|) + (cons (cons 'K |gxc[1]#_g193671_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj192237 __tmp192382 '18 '#f '#f)) + (##unchecked-structure-set! __obj193524 __tmp193669 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj193524 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj193524 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192237 '() '20 '#f '#f)) - __obj192237)))) + (##unchecked-structure-set! __obj193524 '() '20 '#f '#f)) + __obj193524)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base~0.scm b/src/bootstrap/gerbil/compiler/optimize-base~0.scm index 96d930aa3..4c886320d 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base~0.scm @@ -1,28 +1,28 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-base::timestamp 1713631268) + (define gerbil/compiler/optimize-base::timestamp 1734357963) (begin (define gxc#current-compile-optimizer-info (make-parameter '#f)) (define gxc#current-compile-mutators (make-parameter '#f)) (define gxc#current-compile-local-type (make-parameter '#f)) (define gxc#current-compile-path-type (make-parameter '())) (define gxc#optimizer-info::t - (let ((__tmp152104 (list)) (__tmp152103 (cons (cons 'struct: '#t) '()))) + (let ((__tmp153391 (list)) (__tmp153390 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#optimizer-info::t 'optimizer-info - __tmp152104 + __tmp153391 '(type classes ssxi methods) - __tmp152103 + __tmp153390 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) (__make-class-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _%$args152075%_ - (apply make-instance gxc#optimizer-info::t _%$args152075%_))) + (lambda _%$args153362%_ + (apply make-instance gxc#optimizer-info::t _%$args153362%_))) (define gxc#optimizer-info-type (let () (declare (not safe)) @@ -88,62 +88,62 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#optimizer-info::t 'methods))) (define gxc#optimizer-info:::init! - (lambda (_%self149216152060%_) - (let* ((_%self152063%_ _%self149216152060%_) - (_%self152065%_ _%self152063%_)) - (if (let ((__tmp152105 + (lambda (_%self150503153347%_) + (let* ((_%self153350%_ _%self150503153347%_) + (_%self153352%_ _%self153350%_)) + (if (let ((__tmp153392 (let () (declare (not safe)) - (##structure-length _%self152065%_)))) + (##structure-length _%self153352%_)))) (declare (not safe)) - (##fx< '4 __tmp152105)) + (##fx< '4 __tmp153392)) (begin - (let ((__tmp152106 + (let ((__tmp153393 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152065%_ - __tmp152106 + _%self153352%_ + __tmp153393 '1 '#f '#f)) - (let ((__tmp152107 + (let ((__tmp153394 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152065%_ - __tmp152107 + _%self153352%_ + __tmp153394 '2 '#f '#f)) - (let ((__tmp152108 + (let ((__tmp153395 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152065%_ - __tmp152108 + _%self153352%_ + __tmp153395 '3 '#f '#f)) - (let ((__tmp152109 + (let ((__tmp153396 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152065%_ - __tmp152109 + _%self153352%_ + __tmp153396 '4 '#f '#f)) '#!void) - (let ((__tmp152110 + (let ((__tmp153397 (let () (declare (not safe)) - (##vector-length _%self152065%_)))) + (##vector-length _%self153352%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self152065%_ + _%self153352%_ '4 - __tmp152110)))))) + __tmp153397)))))) (let () (declare (not safe)) (__bind-method!__% @@ -152,22 +152,22 @@ gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp152112 (list)) - (__tmp152111 + (let ((__tmp153399 (list)) + (__tmp153398 (cons (cons 'struct: '#t) '((equal: id) (print: id))))) (declare (not safe)) (__make-class-type 'gxc#!type::t '!type - __tmp152112 + __tmp153399 '(id) - __tmp152111 + __tmp153398 '#f))) (define gxc#!type? (let () (declare (not safe)) (__make-class-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _%$args151935%_ - (apply make-instance gxc#!type::t _%$args151935%_))) + (lambda _%$args153222%_ + (apply make-instance gxc#!type::t _%$args153222%_))) (define gxc#!type-id (let () (declare (not safe)) @@ -185,21 +185,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!type::t 'id))) (define gxc#!abort::t - (let ((__tmp152114 (list gxc#!type::t)) - (__tmp152113 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp153401 (list gxc#!type::t)) + (__tmp153400 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!abort::t '!abort - __tmp152114 + __tmp153401 '() - __tmp152113 + __tmp153400 ':init!))) (define gxc#!abort? (let () (declare (not safe)) (__make-class-predicate gxc#!abort::t))) (define gxc#make-!abort - (lambda _%$args151932%_ - (apply make-instance gxc#!abort::t _%$args151932%_))) + (lambda _%$args153219%_ + (apply make-instance gxc#!abort::t _%$args153219%_))) (define gxc#!abort-id (let () (declare (not safe)) @@ -217,21 +217,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!abort::t 'id))) (define gxc#!alias::t - (let ((__tmp152116 (list gxc#!type::t)) - (__tmp152115 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp153403 (list gxc#!type::t)) + (__tmp153402 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!alias::t '!alias - __tmp152116 + __tmp153403 '() - __tmp152115 + __tmp153402 '#f))) (define gxc#!alias? (let () (declare (not safe)) (__make-class-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _%$args151929%_ - (apply make-instance gxc#!alias::t _%$args151929%_))) + (lambda _%$args153216%_ + (apply make-instance gxc#!alias::t _%$args153216%_))) (define gxc#!alias-id (let () (declare (not safe)) @@ -249,8 +249,8 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!alias::t 'id))) (define gxc#!signature::t - (let ((__tmp152118 (list)) - (__tmp152117 + (let ((__tmp153405 (list)) + (__tmp153404 (cons (cons 'final: '#t) '((equal: return effect arguments unchecked origin) (print: return effect arguments unchecked origin))))) @@ -258,15 +258,15 @@ (__make-class-type 'gxc#!signature::t '!signature - __tmp152118 + __tmp153405 '(return effect arguments unchecked origin) - __tmp152117 + __tmp153404 '#f))) (define gxc#!signature? (let () (declare (not safe)) (__make-class-predicate gxc#!signature::t))) (define gxc#make-!signature - (lambda _%$args151926%_ - (apply make-instance gxc#!signature::t _%$args151926%_))) + (lambda _%$args153213%_ + (apply make-instance gxc#!signature::t _%$args153213%_))) (define gxc#!signature-return (let () (declare (not safe)) @@ -348,17 +348,17 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!signature::t 'origin))) (define gxc#!procedure::t - (let ((__tmp152120 (list gxc#!type::t)) - (__tmp152119 + (let ((__tmp153407 (list gxc#!type::t)) + (__tmp153406 (cons (cons 'struct: '#t) '((equal: signature) (print: signature))))) (declare (not safe)) (__make-class-type 'gxc#!procedure::t '!procedure - __tmp152120 + __tmp153407 '(signature) - __tmp152119 + __tmp153406 '#f))) (define gxc#!procedure? (let () (declare (not safe)) (__make-class-predicate gxc#!procedure::t))) @@ -395,17 +395,17 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!procedure::t 'id))) (define gxc#make-!procedure - (lambda (_%id151905%_ _%signature151906%_) - (if ((lambda (_%$obj151909%_) - (or (not _%$obj151909%_) + (lambda (_%id153192%_ _%signature153193%_) + (if ((lambda (_%$obj153196%_) + (or (not _%$obj153196%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%$obj151909%_ + _%$obj153196%_ 'gxc#!signature::t)))) - _%signature151906%_) - (let ((_%signature151916%_ _%signature151906%_)) - (gxc#__make-!procedure _%id151905%_ _%signature151916%_)) + _%signature153193%_) + (let ((_%signature153203%_ _%signature153193%_)) + (gxc#__make-!procedure _%id153192%_ _%signature153203%_)) (begin (raise-contract-violation-error '"contract violation" @@ -414,31 +414,31 @@ 'contract: '(? (or not !signature?)) 'value: - _%signature151906%_) + _%signature153193%_) '#!void)))) (define gxc#__make-!procedure - (lambda (_%id151891%_ _%signature151893%_) - (let ((_%signature151896%_ _%signature151893%_)) + (lambda (_%id153178%_ _%signature153180%_) + (let ((_%signature153183%_ _%signature153180%_)) (declare (not safe)) - (##structure gxc#!procedure::t _%id151891%_ _%signature151896%_)))) + (##structure gxc#!procedure::t _%id153178%_ _%signature153183%_)))) (define gxc#!procedure-signature-set! - (lambda (_%$obj151860%_ _%signature151861%_) + (lambda (_%$obj153147%_ _%signature153148%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%$obj151860%_ 'gxc#!procedure::t)) - (let ((_%$obj151865%_ _%$obj151860%_)) - (if ((lambda (_%$obj151874%_) - (or (not _%$obj151874%_) + (##structure-instance-of? _%$obj153147%_ 'gxc#!procedure::t)) + (let ((_%$obj153152%_ _%$obj153147%_)) + (if ((lambda (_%$obj153161%_) + (or (not _%$obj153161%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%$obj151874%_ + _%$obj153161%_ 'gxc#!signature::t)))) - _%signature151861%_) - (let ((_%signature151881%_ _%signature151861%_)) + _%signature153148%_) + (let ((_%signature153168%_ _%signature153148%_)) (gxc#__!procedure-signature-set! - _%$obj151865%_ - _%signature151881%_)) + _%$obj153152%_ + _%signature153168%_)) (begin (raise-contract-violation-error '"contract violation" @@ -447,7 +447,7 @@ 'contract: '(? (or not !signature?)) 'value: - _%signature151861%_) + _%signature153148%_) '#!void))) (begin (raise-contract-violation-error @@ -457,37 +457,37 @@ 'contract: '!procedure? 'value: - _%$obj151860%_) + _%$obj153147%_) '#!void)))) (define gxc#__!procedure-signature-set! - (lambda (_%$obj151837%_ _%signature151839%_) - (let* ((_%$obj151843%_ _%$obj151837%_) - (_%signature151851%_ _%signature151839%_)) + (lambda (_%$obj153124%_ _%signature153126%_) + (let* ((_%$obj153130%_ _%$obj153124%_) + (_%signature153138%_ _%signature153126%_)) (declare (not safe)) (##unchecked-structure-set! - _%$obj151843%_ - _%signature151851%_ + _%$obj153130%_ + _%signature153138%_ '2 '#f '#f)))) (define gxc#!class-meta::t - (let ((__tmp152122 (list gxc#!type::t)) - (__tmp152121 (cons (cons 'struct: '#t) '()))) + (let ((__tmp153409 (list gxc#!type::t)) + (__tmp153408 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!class-meta::t '!class-meta - __tmp152122 + __tmp153409 '(class) - __tmp152121 + __tmp153408 ':init!))) (define gxc#!class-meta? (let () (declare (not safe)) (__make-class-predicate gxc#!class-meta::t))) (define gxc#make-!class-meta - (lambda _%$args151834%_ - (apply make-instance gxc#!class-meta::t _%$args151834%_))) + (lambda _%$args153121%_ + (apply make-instance gxc#!class-meta::t _%$args153121%_))) (define gxc#!class-meta-class (let () (declare (not safe)) @@ -521,8 +521,8 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!class-meta::t 'id))) (define gxc#!class::t - (let ((__tmp152124 (list gxc#!type::t)) - (__tmp152123 + (let ((__tmp153411 (list gxc#!type::t)) + (__tmp153410 (cons (cons 'struct: '#t) '((equal: super @@ -540,7 +540,7 @@ (__make-class-type 'gxc#!class::t '!class - __tmp152124 + __tmp153411 '(super precedence-list slots fields @@ -550,13 +550,13 @@ system? metaclass methods) - __tmp152123 + __tmp153410 ':init!))) (define gxc#!class? (let () (declare (not safe)) (__make-class-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _%$args151831%_ - (apply make-instance gxc#!class::t _%$args151831%_))) + (lambda _%$args153118%_ + (apply make-instance gxc#!class::t _%$args153118%_))) (define gxc#!class-super (let () (declare (not safe)) @@ -734,21 +734,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!class::t 'id))) (define gxc#!predicate::t - (let ((__tmp152126 (list gxc#!procedure::t)) - (__tmp152125 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp153413 (list gxc#!procedure::t)) + (__tmp153412 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!predicate::t '!predicate - __tmp152126 + __tmp153413 '() - __tmp152125 + __tmp153412 ':init!))) (define gxc#!predicate? (let () (declare (not safe)) (__make-class-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _%$args151828%_ - (apply make-instance gxc#!predicate::t _%$args151828%_))) + (lambda _%$args153115%_ + (apply make-instance gxc#!predicate::t _%$args153115%_))) (define gxc#!predicate-signature (let () (declare (not safe)) @@ -782,23 +782,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!predicate::t 'id))) (define gxc#!constructor::t - (let ((__tmp152128 (list gxc#!procedure::t)) - (__tmp152127 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp153415 (list gxc#!procedure::t)) + (__tmp153414 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!constructor::t '!constructor - __tmp152128 + __tmp153415 '() - __tmp152127 + __tmp153414 ':init!))) (define gxc#!constructor? (let () (declare (not safe)) (__make-class-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _%$args151825%_ - (apply make-instance gxc#!constructor::t _%$args151825%_))) + (lambda _%$args153112%_ + (apply make-instance gxc#!constructor::t _%$args153112%_))) (define gxc#!constructor-signature (let () (declare (not safe)) @@ -832,21 +832,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!constructor::t 'id))) (define gxc#!accessor::t - (let ((__tmp152130 (list gxc#!procedure::t)) - (__tmp152129 (cons (cons 'struct: '#t) '((equal: slot checked?))))) + (let ((__tmp153417 (list gxc#!procedure::t)) + (__tmp153416 (cons (cons 'struct: '#t) '((equal: slot checked?))))) (declare (not safe)) (__make-class-type 'gxc#!accessor::t '!accessor - __tmp152130 + __tmp153417 '(slot checked?) - __tmp152129 + __tmp153416 ':init!))) (define gxc#!accessor? (let () (declare (not safe)) (__make-class-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _%$args151822%_ - (apply make-instance gxc#!accessor::t _%$args151822%_))) + (lambda _%$args153109%_ + (apply make-instance gxc#!accessor::t _%$args153109%_))) (define gxc#!accessor-slot (let () (declare (not safe)) @@ -912,21 +912,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!accessor::t 'id))) (define gxc#!mutator::t - (let ((__tmp152132 (list gxc#!procedure::t)) - (__tmp152131 (cons (cons 'struct: '#t) '((equal: slot checked?))))) + (let ((__tmp153419 (list gxc#!procedure::t)) + (__tmp153418 (cons (cons 'struct: '#t) '((equal: slot checked?))))) (declare (not safe)) (__make-class-type 'gxc#!mutator::t '!mutator - __tmp152132 + __tmp153419 '(slot checked?) - __tmp152131 + __tmp153418 ':init!))) (define gxc#!mutator? (let () (declare (not safe)) (__make-class-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _%$args151819%_ - (apply make-instance gxc#!mutator::t _%$args151819%_))) + (lambda _%$args153106%_ + (apply make-instance gxc#!mutator::t _%$args153106%_))) (define gxc#!mutator-slot (let () (declare (not safe)) @@ -992,21 +992,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!mutator::t 'id))) (define gxc#!interface::t - (let ((__tmp152134 (list gxc#!type::t)) - (__tmp152133 (cons (cons 'struct: '#t) '((equal: methods))))) + (let ((__tmp153421 (list gxc#!type::t)) + (__tmp153420 (cons (cons 'struct: '#t) '((equal: methods))))) (declare (not safe)) (__make-class-type 'gxc#!interface::t '!interface - __tmp152134 + __tmp153421 '(methods) - __tmp152133 + __tmp153420 '#f))) (define gxc#!interface? (let () (declare (not safe)) (__make-class-predicate gxc#!interface::t))) (define gxc#make-!interface - (lambda _%$args151816%_ - (apply make-instance gxc#!interface::t _%$args151816%_))) + (lambda _%$args153103%_ + (apply make-instance gxc#!interface::t _%$args153103%_))) (define gxc#!interface-methods (let () (declare (not safe)) @@ -1040,23 +1040,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!interface::t 'id))) (define gxc#!lambda::t - (let ((__tmp152136 (list gxc#!procedure::t)) - (__tmp152135 + (let ((__tmp153423 (list gxc#!procedure::t)) + (__tmp153422 (cons (cons 'struct: '#t) '((equal: arity dispatch inline inline-typedecl))))) (declare (not safe)) (__make-class-type 'gxc#!lambda::t '!lambda - __tmp152136 + __tmp153423 '(arity dispatch inline inline-typedecl) - __tmp152135 + __tmp153422 ':init!))) (define gxc#!lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _%$args151813%_ - (apply make-instance gxc#!lambda::t _%$args151813%_))) + (lambda _%$args153100%_ + (apply make-instance gxc#!lambda::t _%$args153100%_))) (define gxc#!lambda-arity (let () (declare (not safe)) @@ -1156,23 +1156,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!lambda::t 'id))) (define gxc#!case-lambda::t - (let ((__tmp152138 (list gxc#!procedure::t)) - (__tmp152137 (cons (cons 'struct: '#t) '((equal: clauses))))) + (let ((__tmp153425 (list gxc#!procedure::t)) + (__tmp153424 (cons (cons 'struct: '#t) '((equal: clauses))))) (declare (not safe)) (__make-class-type 'gxc#!case-lambda::t '!case-lambda - __tmp152138 + __tmp153425 '(clauses) - __tmp152137 + __tmp153424 ':init!))) (define gxc#!case-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _%$args151810%_ - (apply make-instance gxc#!case-lambda::t _%$args151810%_))) + (lambda _%$args153097%_ + (apply make-instance gxc#!case-lambda::t _%$args153097%_))) (define gxc#!case-lambda-clauses (let () (declare (not safe)) @@ -1222,22 +1222,22 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!case-lambda::t 'id))) (define gxc#!kw-lambda::t - (let ((__tmp152140 (list gxc#!procedure::t)) - (__tmp152139 + (let ((__tmp153427 (list gxc#!procedure::t)) + (__tmp153426 (cons (cons 'struct: '#t) '((equal: table dispatch))))) (declare (not safe)) (__make-class-type 'gxc#!kw-lambda::t '!kw-lambda - __tmp152140 + __tmp153427 '(table dispatch) - __tmp152139 + __tmp153426 ':init!))) (define gxc#!kw-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _%$args151807%_ - (apply make-instance gxc#!kw-lambda::t _%$args151807%_))) + (lambda _%$args153094%_ + (apply make-instance gxc#!kw-lambda::t _%$args153094%_))) (define gxc#!kw-lambda-table (let () (declare (not safe)) @@ -1303,23 +1303,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!kw-lambda::t 'id))) (define gxc#!kw-lambda-primary::t - (let ((__tmp152142 (list gxc#!procedure::t)) - (__tmp152141 (cons (cons 'struct: '#t) '((equal: keys main))))) + (let ((__tmp153429 (list gxc#!procedure::t)) + (__tmp153428 (cons (cons 'struct: '#t) '((equal: keys main))))) (declare (not safe)) (__make-class-type 'gxc#!kw-lambda-primary::t '!kw-lambda-primary - __tmp152142 + __tmp153429 '(keys main) - __tmp152141 + __tmp153428 ':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 _%$args151804%_ - (apply make-instance gxc#!kw-lambda-primary::t _%$args151804%_))) + (lambda _%$args153091%_ + (apply make-instance gxc#!kw-lambda-primary::t _%$args153091%_))) (define gxc#!kw-lambda-primary-keys (let () (declare (not safe)) @@ -1393,38 +1393,38 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!kw-lambda-primary::t 'id))) (define gxc#!primitive::t - (let ((__tmp152143 (list))) + (let ((__tmp153430 (list))) (declare (not safe)) (__make-class-type 'gxc#!primitive::t '!primitive - __tmp152143 + __tmp153430 '() '((equal:)) '#f))) (define gxc#!primitive? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _%$args151801%_ - (apply make-instance gxc#!primitive::t _%$args151801%_))) + (lambda _%$args153088%_ + (apply make-instance gxc#!primitive::t _%$args153088%_))) (define gxc#!primitive-predicate::t - (let ((__tmp152145 (list gxc#!primitive::t gxc#!procedure::t)) - (__tmp152144 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp153432 (list gxc#!primitive::t gxc#!procedure::t)) + (__tmp153431 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-predicate::t '!primitive-predicate - __tmp152145 + __tmp153432 '() - __tmp152144 + __tmp153431 ':init!))) (define gxc#!primitive-predicate? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-predicate::t))) (define gxc#make-!primitive-predicate - (lambda _%$args151798%_ - (apply make-instance gxc#!primitive-predicate::t _%$args151798%_))) + (lambda _%$args153085%_ + (apply make-instance gxc#!primitive-predicate::t _%$args153085%_))) (define gxc#!primitive-predicate-signature (let () (declare (not safe)) @@ -1464,23 +1464,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!primitive-predicate::t 'id))) (define gxc#!primitive-lambda::t - (let ((__tmp152147 (list gxc#!primitive::t gxc#!lambda::t)) - (__tmp152146 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp153434 (list gxc#!primitive::t gxc#!lambda::t)) + (__tmp153433 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-lambda::t '!primitive-lambda - __tmp152147 + __tmp153434 '() - __tmp152146 + __tmp153433 ':init!))) (define gxc#!primitive-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _%$args151795%_ - (apply make-instance gxc#!primitive-lambda::t _%$args151795%_))) + (lambda _%$args153082%_ + (apply make-instance gxc#!primitive-lambda::t _%$args153082%_))) (define gxc#!primitive-lambda-arity (let () (declare (not safe)) @@ -1598,23 +1598,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!primitive-lambda::t 'id))) (define gxc#!primitive-case-lambda::t - (let ((__tmp152149 (list gxc#!primitive::t gxc#!case-lambda::t)) - (__tmp152148 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp153436 (list gxc#!primitive::t gxc#!case-lambda::t)) + (__tmp153435 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-case-lambda::t '!primitive-case-lambda - __tmp152149 + __tmp153436 '() - __tmp152148 + __tmp153435 ':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 _%$args151792%_ - (apply make-instance gxc#!primitive-case-lambda::t _%$args151792%_))) + (lambda _%$args153079%_ + (apply make-instance gxc#!primitive-case-lambda::t _%$args153079%_))) (define gxc#!primitive-case-lambda-clauses (let () (declare (not safe)) @@ -1676,26 +1676,26 @@ gxc#!primitive-case-lambda::t 'id))) (define gxc#!abort:::init! - (lambda (_%self149217151777%_) - (let* ((_%self151780%_ _%self149217151777%_) - (_%self151782%_ _%self151780%_)) + (lambda (_%self150504153064%_) + (let* ((_%self153067%_ _%self150504153064%_) + (_%self153069%_ _%self153067%_)) (declare (not safe)) - (##unchecked-structure-set! _%self151782%_ 'abort '1 '#f '#f)))) + (##unchecked-structure-set! _%self153069%_ 'abort '1 '#f '#f)))) (let () (declare (not safe)) (__bind-method!__% gxc#!abort::t ':init! gxc#!abort:::init! '#f)) (define gxc#!class-meta:::init! - (lambda (_%self149218151639%_ _%klass151641%_) - (let* ((_%self151643%_ _%self149218151639%_) - (_%self151645%_ _%self151643%_)) + (lambda (_%self150505152926%_ _%klass152928%_) + (let* ((_%self152930%_ _%self150505152926%_) + (_%self152932%_ _%self152930%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self151645%_ 'class '1 '#f '#f)) + (##unchecked-structure-set! _%self152932%_ 'class '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151645%_ - _%klass151641%_ + _%self152932%_ + _%klass152928%_ '2 '#f '#f))))) @@ -1707,592 +1707,592 @@ gxc#!class-meta:::init! '#f)) (define gxc#!class:::init!__0 - (lambda (_%self149219151327%_ - _%id151329%_ - _%super151330%_ - _%slots151331%_ - _%ctor-method151332%_ - _%struct?151333%_ - _%final?151334%_ - _%system?151335%_ - _%metaclass151336%_) - (let* ((_%self151338%_ _%self149219151327%_) - (_%self151340%_ _%self151338%_)) - (let _%lp151350%_ ((_%rest151352%_ _%super151330%_)) - (let* ((_%rest151353151361%_ _%rest151352%_) - (_%else151355151369%_ (lambda () '#!void)) - (_%K151357151375%_ - (lambda (_%rest151372%_ _%super-id151373%_) - (if (let ((__tmp152150 + (lambda (_%self150506152614%_ + _%id152616%_ + _%super152617%_ + _%slots152618%_ + _%ctor-method152619%_ + _%struct?152620%_ + _%final?152621%_ + _%system?152622%_ + _%metaclass152623%_) + (let* ((_%self152625%_ _%self150506152614%_) + (_%self152627%_ _%self152625%_)) + (let _%lp152637%_ ((_%rest152639%_ _%super152617%_)) + (let* ((_%rest152640152648%_ _%rest152639%_) + (_%else152642152656%_ (lambda () '#!void)) + (_%K152644152662%_ + (lambda (_%rest152659%_ _%super-id152660%_) + (if (let ((__tmp153437 (gxc#optimizer-resolve-class - (cons '!class (cons _%id151329%_ '())) - _%super-id151373%_))) + (cons '!class (cons _%id152616%_ '())) + _%super-id152660%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp152150 '8 '#f '#f)) - (let ((__tmp152151 - (cons '!class (cons _%id151329%_ '())))) + (##unchecked-structure-ref __tmp153437 '8 '#f '#f)) + (let ((__tmp153438 + (cons '!class (cons _%id152616%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp152151 - _%super-id151373%_)) + __tmp153438 + _%super-id152660%_)) '#!void) - (_%lp151350%_ _%rest151372%_)))) - (if (pair? _%rest151353151361%_) - (let ((_%hd151358151378%_ + (_%lp152637%_ _%rest152659%_)))) + (if (pair? _%rest152640152648%_) + (let ((_%hd152645152665%_ (let () (declare (not safe)) - (##car _%rest151353151361%_))) - (_%tl151359151380%_ + (##car _%rest152640152648%_))) + (_%tl152646152667%_ (let () (declare (not safe)) - (##cdr _%rest151353151361%_)))) - (let* ((_%super-id151383%_ _%hd151358151378%_) - (_%rest151385%_ _%tl151359151380%_)) - (_%K151357151375%_ _%rest151385%_ _%super-id151383%_))) + (##cdr _%rest152640152648%_)))) + (let* ((_%super-id152670%_ _%hd152645152665%_) + (_%rest152672%_ _%tl152646152667%_)) + (_%K152644152662%_ _%rest152672%_ _%super-id152670%_))) '#!void))) - (let* ((_%ctor-method151436%_ - (let ((_%$e151387%_ _%ctor-method151332%_)) - (if _%$e151387%_ - _%$e151387%_ - (let _%lp151390%_ ((_%rest151392%_ _%super151330%_) - (_%method151393%_ '#f)) - (let* ((_%rest151394151402%_ _%rest151392%_) - (_%else151396151410%_ - (lambda () _%method151393%_)) - (_%K151398151424%_ - (lambda (_%rest151413%_ _%super-id151414%_) - (let* ((_%klass151416%_ + (let* ((_%ctor-method152723%_ + (let ((_%$e152674%_ _%ctor-method152619%_)) + (if _%$e152674%_ + _%$e152674%_ + (let _%lp152677%_ ((_%rest152679%_ _%super152617%_) + (_%method152680%_ '#f)) + (let* ((_%rest152681152689%_ _%rest152679%_) + (_%else152683152697%_ + (lambda () _%method152680%_)) + (_%K152685152711%_ + (lambda (_%rest152700%_ _%super-id152701%_) + (let* ((_%klass152703%_ (gxc#optimizer-resolve-class (cons '!class - (cons _%id151329%_ '())) - _%super-id151414%_)) - (_%$e151418%_ + (cons _%id152616%_ '())) + _%super-id152701%_)) + (_%$e152705%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass151416%_ + _%klass152703%_ '6 '#f '#f)))) - (if _%$e151418%_ - ((lambda (_%ctor-method151421%_) - (if _%method151393%_ - (if (eq? _%ctor-method151421%_ - _%method151393%_) - (_%lp151390%_ - _%rest151413%_ - _%ctor-method151421%_) - (let ((__tmp152152 + (if _%$e152705%_ + ((lambda (_%ctor-method152708%_) + (if _%method152680%_ + (if (eq? _%ctor-method152708%_ + _%method152680%_) + (_%lp152677%_ + _%rest152700%_ + _%ctor-method152708%_) + (let ((__tmp153439 (cons '!class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id151329%_ '())))) + (cons _%id152616%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp152152 - _%method151393%_ - _%ctor-method151421%_))) + __tmp153439 + _%method152680%_ + _%ctor-method152708%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp151390%_ - _%rest151413%_ - _%ctor-method151421%_))) - _%$e151418%_) - (_%lp151390%_ - _%rest151413%_ - _%method151393%_)))))) - (if (pair? _%rest151394151402%_) - (let ((_%hd151399151427%_ + (_%lp152677%_ + _%rest152700%_ + _%ctor-method152708%_))) + _%$e152705%_) + (_%lp152677%_ + _%rest152700%_ + _%method152680%_)))))) + (if (pair? _%rest152681152689%_) + (let ((_%hd152686152714%_ (let () (declare (not safe)) - (##car _%rest151394151402%_))) - (_%tl151400151429%_ + (##car _%rest152681152689%_))) + (_%tl152687152716%_ (let () (declare (not safe)) - (##cdr _%rest151394151402%_)))) - (let* ((_%super-id151432%_ - _%hd151399151427%_) - (_%rest151434%_ _%tl151400151429%_)) - (_%K151398151424%_ - _%rest151434%_ - _%super-id151432%_))) - (_%else151396151410%_))))))) - (_g152153_ - (let ((__tmp152157 - (lambda (_%klass-id151438%_) - (cons _%klass-id151438%_ - (let ((__tmp152158 + (##cdr _%rest152681152689%_)))) + (let* ((_%super-id152719%_ + _%hd152686152714%_) + (_%rest152721%_ _%tl152687152716%_)) + (_%K152685152711%_ + _%rest152721%_ + _%super-id152719%_))) + (_%else152683152697%_))))))) + (_g153440_ + (let ((__tmp153444 + (lambda (_%klass-id152725%_) + (cons _%klass-id152725%_ + (let ((__tmp153445 (gxc#optimizer-resolve-class - (cons '!class (cons _%id151329%_ '())) - _%klass-id151438%_))) + (cons '!class (cons _%id152616%_ '())) + _%klass-id152725%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp152158 + __tmp153445 '3 '#f '#f))))) - (__tmp152155 - (lambda (_%klass-id151440%_) - (let ((__tmp152156 + (__tmp153442 + (lambda (_%klass-id152727%_) + (let ((__tmp153443 (gxc#optimizer-resolve-class - (cons '!class (cons _%id151329%_ '())) - _%klass-id151440%_))) + (cons '!class (cons _%id152616%_ '())) + _%klass-id152727%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp152156 + __tmp153443 '7 '#f '#f))))) (declare (not safe)) (c4-linearize__% '#f - __tmp152157 - __tmp152155 + __tmp153444 + __tmp153442 eq? identity '() - _%super151330%_)))) + _%super152617%_)))) (begin - (let ((_g152154_ + (let ((_g153441_ (let () (declare (not safe)) - (if (##values? _g152153_) - (##vector-length _g152153_) + (if (##values? _g153440_) + (##values-length _g153440_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g152154_ 2))) - (error "Context expects 2 values" _g152154_))) - (let ((_%precedence-list151442%_ - (let () (declare (not safe)) (##vector-ref _g152153_ 0))) - (_%base-struct151443%_ - (let () (declare (not safe)) (##vector-ref _g152153_ 1)))) - (let* ((_%precedence-list151487%_ + (if (not (let () (declare (not safe)) (##fx= _g153441_ 2))) + (error "Context expects 2 values" _g153441_))) + (let ((_%precedence-list152729%_ + (let () (declare (not safe)) (##values-ref _g153440_ 0))) + (_%base-struct152730%_ + (let () (declare (not safe)) (##values-ref _g153440_ 1)))) + (let* ((_%precedence-list152774%_ (if (let () (declare (not safe)) - (##memq _%id151329%_ '(t object class))) - _%precedence-list151442%_ - (if (memq 'object::t _%precedence-list151442%_) - _%precedence-list151442%_ - (if _%system?151335%_ - (if (memq 't::t _%precedence-list151442%_) - _%precedence-list151442%_ + (##memq _%id152616%_ '(t object class))) + _%precedence-list152729%_ + (if (memq 'object::t _%precedence-list152729%_) + _%precedence-list152729%_ + (if _%system?152622%_ + (if (memq 't::t _%precedence-list152729%_) + _%precedence-list152729%_ (let () (declare (not safe)) (##append - _%precedence-list151442%_ + _%precedence-list152729%_ '(t::t)))) - (let _%loop151449%_ ((_%tail151451%_ - _%precedence-list151442%_) - (_%head151452%_ '())) - (let* ((_%tail151453151461%_ - _%tail151451%_) - (_%else151455151469%_ + (let _%loop152736%_ ((_%tail152738%_ + _%precedence-list152729%_) + (_%head152739%_ '())) + (let* ((_%tail152740152748%_ + _%tail152738%_) + (_%else152742152756%_ (lambda () (let () (declare (not safe)) (__foldl1 cons '(object::t t::t) - _%head151452%_)))) - (_%K151457151475%_ - (lambda (_%rest151472%_ - _%hd151473%_) - (if (eq? _%hd151473%_ 't::t) - (let ((__tmp152159 + _%head152739%_)))) + (_%K152744152762%_ + (lambda (_%rest152759%_ + _%hd152760%_) + (if (eq? _%hd152760%_ 't::t) + (let ((__tmp153446 (cons 'object::t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tail151451%_))) + _%tail152738%_))) (declare (not safe)) - (__foldl1 cons __tmp152159 _%head151452%_)) + (__foldl1 cons __tmp153446 _%head152739%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop151449%_ - _%rest151472%_ - (cons _%hd151473%_ - _%head151452%_)))))) - (if (pair? _%tail151453151461%_) - (let ((_%hd151458151478%_ + (_%loop152736%_ + _%rest152759%_ + (cons _%hd152760%_ + _%head152739%_)))))) + (if (pair? _%tail152740152748%_) + (let ((_%hd152745152765%_ (let () (declare (not safe)) - (##car _%tail151453151461%_))) - (_%tl151459151480%_ + (##car _%tail152740152748%_))) + (_%tl152746152767%_ (let () (declare (not safe)) - (##cdr _%tail151453151461%_)))) - (let* ((_%hd151483%_ - _%hd151458151478%_) - (_%rest151485%_ - _%tl151459151480%_)) - (_%K151457151475%_ - _%rest151485%_ - _%hd151483%_))) - (_%else151455151469%_)))))))) - (_%fields151489%_ + (##cdr _%tail152740152748%_)))) + (let* ((_%hd152770%_ + _%hd152745152765%_) + (_%rest152772%_ + _%tl152746152767%_)) + (_%K152744152762%_ + _%rest152772%_ + _%hd152770%_))) + (_%else152742152756%_)))))))) + (_%fields152776%_ (gxc#compute-class-fields - (cons '!class (cons _%id151329%_ '())) - _%base-struct151443%_ - _%precedence-list151487%_ - _%slots151331%_))) + (cons '!class (cons _%id152616%_ '())) + _%base-struct152730%_ + _%precedence-list152774%_ + _%slots152618%_))) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%id151329%_ + _%self152627%_ + _%id152616%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%super151330%_ + _%self152627%_ + _%super152617%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%precedence-list151487%_ + _%self152627%_ + _%precedence-list152774%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%slots151331%_ + _%self152627%_ + _%slots152618%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%fields151489%_ + _%self152627%_ + _%fields152776%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%ctor-method151436%_ + _%self152627%_ + _%ctor-method152723%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%struct?151333%_ + _%self152627%_ + _%struct?152620%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%final?151334%_ + _%self152627%_ + _%final?152621%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151340%_ - _%metaclass151336%_ + _%self152627%_ + _%metaclass152623%_ '10 '#f '#f))))))))) (define gxc#!class:::init!__1 - (lambda (_%self149220151492%_ - _%id151494%_ - _%super151495%_ - _%precedence-list151496%_ - _%slots151497%_ - _%fields151498%_ - _%constructor151499%_ - _%struct?151500%_ - _%final?151501%_ - _%system?151502%_ - _%metaclass151503%_ - _%methods151504%_) - (let* ((_%self151506%_ _%self149220151492%_) - (_%self151508%_ _%self151506%_)) + (lambda (_%self150507152779%_ + _%id152781%_ + _%super152782%_ + _%precedence-list152783%_ + _%slots152784%_ + _%fields152785%_ + _%constructor152786%_ + _%struct?152787%_ + _%final?152788%_ + _%system?152789%_ + _%metaclass152790%_ + _%methods152791%_) + (let* ((_%self152793%_ _%self150507152779%_) + (_%self152795%_ _%self152793%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%id151494%_ + _%self152795%_ + _%id152781%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%super151495%_ + _%self152795%_ + _%super152782%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%precedence-list151496%_ + _%self152795%_ + _%precedence-list152783%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%slots151497%_ + _%self152795%_ + _%slots152784%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%fields151498%_ + _%self152795%_ + _%fields152785%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%constructor151499%_ + _%self152795%_ + _%constructor152786%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%struct?151500%_ + _%self152795%_ + _%struct?152787%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%final?151501%_ + _%self152795%_ + _%final?152788%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - _%metaclass151503%_ + _%self152795%_ + _%metaclass152790%_ '10 '#f '#f)) - (if _%methods151504%_ - (let ((__tmp152160 + (if _%methods152791%_ + (let ((__tmp153447 (let () (declare (not safe)) - (list->hash-table-eq _%methods151504%_)))) + (list->hash-table-eq _%methods152791%_)))) (declare (not safe)) (##unchecked-structure-set! - _%self151508%_ - __tmp152160 + _%self152795%_ + __tmp153447 '11 '#f '#f)) '#!void)))) (define gxc#!class:::init! - (lambda _g152162_ - (let ((_g152161_ (let () (declare (not safe)) (##length _g152162_)))) - (cond ((let () (declare (not safe)) (##fx= _g152161_ 9)) - (apply gxc#!class:::init!__0 _g152162_)) - ((let () (declare (not safe)) (##fx= _g152161_ 12)) - (apply gxc#!class:::init!__1 _g152162_)) + (lambda _g153449_ + (let ((_g153448_ (let () (declare (not safe)) (##length _g153449_)))) + (cond ((let () (declare (not safe)) (##fx= _g153448_ 9)) + (apply gxc#!class:::init!__0 _g153449_)) + ((let () (declare (not safe)) (##fx= _g153448_ 12)) + (apply gxc#!class:::init!__1 _g153449_)) (else (##raise-wrong-number-of-arguments-exception gxc#!class:::init! - _g152162_)))))) + _g153449_)))))) (let () (declare (not safe)) (__bind-method!__% gxc#!class::t ':init! gxc#!class:::init! '#f)) (define gxc#compute-class-fields - (lambda (_%where151179%_ - _%base-struct151180%_ - _%precedence-list151181%_ - _%direct-slots151182%_) - (let* ((_%base-fields151184%_ - (if _%base-struct151180%_ - (let ((__tmp152163 + (lambda (_%where152466%_ + _%base-struct152467%_ + _%precedence-list152468%_ + _%direct-slots152469%_) + (let* ((_%base-fields152471%_ + (if _%base-struct152467%_ + (let ((__tmp153450 (gxc#optimizer-resolve-class - _%where151179%_ - _%base-struct151180%_))) + _%where152466%_ + _%base-struct152467%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp152163 '5 '#f '#f)) + (##unchecked-structure-ref __tmp153450 '5 '#f '#f)) '())) - (_%r-fields151186%_ (reverse _%base-fields151184%_)) - (_%seen-slots151194%_ - (let ((_%tab151188%_ + (_%r-fields152473%_ (reverse _%base-fields152471%_)) + (_%seen-slots152481%_ + (let ((_%tab152475%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%g151189151191%_) + (lambda (_%g152476152478%_) (let () (declare (not safe)) - (__hash-put! _%tab151188%_ _%g151189151191%_ '#t))) - _%base-fields151184%_) - _%tab151188%_)) - (_%process-slot151198%_ - (lambda (_%slot151196%_) + (__hash-put! _%tab152475%_ _%g152476152478%_ '#t))) + _%base-fields152471%_) + _%tab152475%_)) + (_%process-slot152485%_ + (lambda (_%slot152483%_) (if (let () (declare (not safe)) - (__hash-get _%seen-slots151194%_ _%slot151196%_)) + (__hash-get _%seen-slots152481%_ _%slot152483%_)) '#!void (begin (let () (declare (not safe)) (__hash-put! - _%seen-slots151194%_ - _%slot151196%_ + _%seen-slots152481%_ + _%slot152483%_ '#t)) - (set! _%r-fields151186%_ - (cons _%slot151196%_ _%r-fields151186%_))))))) + (set! _%r-fields152473%_ + (cons _%slot152483%_ _%r-fields152473%_))))))) (for-each - (lambda (_%mixin151201%_) - (let ((_%klass151203%_ + (lambda (_%mixin152488%_) + (let ((_%klass152490%_ (gxc#optimizer-resolve-class - _%where151179%_ - _%mixin151201%_))) + _%where152466%_ + _%mixin152488%_))) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%klass151203%_ '7 '#f '#f)) + (##unchecked-structure-ref _%klass152490%_ '7 '#f '#f)) '#!void (for-each - _%process-slot151198%_ + _%process-slot152485%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass151203%_ + _%klass152490%_ '5 '#f '#f)))))) - _%precedence-list151181%_) - (for-each _%process-slot151198%_ _%direct-slots151182%_) - (let () (declare (not safe)) (##reverse _%r-fields151186%_))))) + _%precedence-list152468%_) + (for-each _%process-slot152485%_ _%direct-slots152469%_) + (let () (declare (not safe)) (##reverse _%r-fields152473%_))))) (define gxc#!class-slot->field-offset - (lambda (_%klass151138%_ _%slot151139%_) - (let _%lp151141%_ ((_%rest151143%_ + (lambda (_%klass152425%_ _%slot152426%_) + (let _%lp152428%_ ((_%rest152430%_ (##structure-ref - _%klass151138%_ + _%klass152425%_ '5 gxc#!class::t '#f)) - (_%offset151144%_ '1)) - (let* ((_%rest151145151153%_ _%rest151143%_) - (_%else151147151161%_ + (_%offset152431%_ '1)) + (let* ((_%rest152432152440%_ _%rest152430%_) + (_%else152434152448%_ (lambda () - (let ((__tmp152165 + (let ((__tmp153452 (##structure-ref - _%klass151138%_ + _%klass152425%_ '1 gxc#!type::t '#f)) - (__tmp152164 + (__tmp153451 (##structure-ref - _%klass151138%_ + _%klass152425%_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp152165 - __tmp152164 - _%slot151139%_)))) - (_%K151149151167%_ - (lambda (_%rest151164%_ _%s151165%_) - (if (eq? _%s151165%_ _%slot151139%_) - _%offset151144%_ - (_%lp151141%_ - _%rest151164%_ + __tmp153452 + __tmp153451 + _%slot152426%_)))) + (_%K152436152454%_ + (lambda (_%rest152451%_ _%s152452%_) + (if (eq? _%s152452%_ _%slot152426%_) + _%offset152431%_ + (_%lp152428%_ + _%rest152451%_ (let () (declare (not safe)) - (##fx+ _%offset151144%_ '1))))))) - (if (pair? _%rest151145151153%_) - (let ((_%hd151150151170%_ + (##fx+ _%offset152431%_ '1))))))) + (if (pair? _%rest152432152440%_) + (let ((_%hd152437152457%_ (let () (declare (not safe)) - (##car _%rest151145151153%_))) - (_%tl151151151172%_ + (##car _%rest152432152440%_))) + (_%tl152438152459%_ (let () (declare (not safe)) - (##cdr _%rest151145151153%_)))) - (let* ((_%s151175%_ _%hd151150151170%_) - (_%rest151177%_ _%tl151151151172%_)) - (_%K151149151167%_ _%rest151177%_ _%s151175%_))) - (_%else151147151161%_)))))) + (##cdr _%rest152432152440%_)))) + (let* ((_%s152462%_ _%hd152437152457%_) + (_%rest152464%_ _%tl152438152459%_)) + (_%K152436152454%_ _%rest152464%_ _%s152462%_))) + (_%else152434152448%_)))))) (define gxc#!class-slot-find-struct - (lambda (_%klass151096%_ _%slot151097%_) - (if (gxc#!class-struct-slot? _%klass151096%_ _%slot151097%_) - _%klass151096%_ - (let _%lp151099%_ ((_%rest151101%_ + (lambda (_%klass152383%_ _%slot152384%_) + (if (gxc#!class-struct-slot? _%klass152383%_ _%slot152384%_) + _%klass152383%_ + (let _%lp152386%_ ((_%rest152388%_ (##structure-ref - _%klass151096%_ + _%klass152383%_ '3 gxc#!class::t '#f))) - (let* ((_%rest151102151110%_ _%rest151101%_) - (_%else151104151118%_ (lambda () '#f)) - (_%K151106151126%_ - (lambda (_%rest151121%_ _%super151122%_) - (let ((_%super-class151124%_ + (let* ((_%rest152389152397%_ _%rest152388%_) + (_%else152391152405%_ (lambda () '#f)) + (_%K152393152413%_ + (lambda (_%rest152408%_ _%super152409%_) + (let ((_%super-class152411%_ (gxc#optimizer-resolve-class (cons '!class-slot-find-struct (cons (##structure-ref - _%klass151096%_ + _%klass152383%_ '1 gxc#!type::t '#f) - (cons _%slot151097%_ '()))) - _%super151122%_))) + (cons _%slot152384%_ '()))) + _%super152409%_))) (if (gxc#!class-struct-slot? - _%super-class151124%_ - _%slot151097%_) - _%super-class151124%_ - (_%lp151099%_ _%rest151121%_)))))) - (if (pair? _%rest151102151110%_) - (let ((_%hd151107151129%_ + _%super-class152411%_ + _%slot152384%_) + _%super-class152411%_ + (_%lp152386%_ _%rest152408%_)))))) + (if (pair? _%rest152389152397%_) + (let ((_%hd152394152416%_ (let () (declare (not safe)) - (##car _%rest151102151110%_))) - (_%tl151108151131%_ + (##car _%rest152389152397%_))) + (_%tl152395152418%_ (let () (declare (not safe)) - (##cdr _%rest151102151110%_)))) - (let* ((_%super151134%_ _%hd151107151129%_) - (_%rest151136%_ _%tl151108151131%_)) - (_%K151106151126%_ _%rest151136%_ _%super151134%_))) - (_%else151104151118%_))))))) + (##cdr _%rest152389152397%_)))) + (let* ((_%super152421%_ _%hd152394152416%_) + (_%rest152423%_ _%tl152395152418%_)) + (_%K152393152413%_ _%rest152423%_ _%super152421%_))) + (_%else152391152405%_))))))) (define gxc#!class-struct-slot? - (lambda (_%klass151093%_ _%slot151094%_) - (if (##structure-ref _%klass151093%_ '7 gxc#!class::t '#f) - (memq _%slot151094%_ - (##structure-ref _%klass151093%_ '5 gxc#!class::t '#f)) + (lambda (_%klass152380%_ _%slot152381%_) + (if (##structure-ref _%klass152380%_ '7 gxc#!class::t '#f) + (memq _%slot152381%_ + (##structure-ref _%klass152380%_ '5 gxc#!class::t '#f)) '#f))) (define gxc#!predicate:::init! - (lambda (_%self149221151077%_ _%id151079%_) - (let* ((_%self151081%_ _%self149221151077%_) - (_%self151083%_ _%self151081%_)) + (lambda (_%self150508152364%_ _%id152366%_) + (let* ((_%self152368%_ _%self150508152364%_) + (_%self152370%_ _%self152368%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151083%_ - _%id151079%_ + _%self152370%_ + _%id152366%_ '1 '#f '#f)) - (let ((__tmp152166 - (let ((__obj152098 + (let ((__tmp153453 + (let ((__obj153385 (let () (declare (not safe)) (##structure @@ -2305,7 +2305,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152098 + __obj153385 'boolean::t '1 '#f @@ -2313,7 +2313,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152098 + __obj153385 '(pure predicate) '2 '#f @@ -2321,16 +2321,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152098 + __obj153385 '(t::t) '3 '#f '#f)) - __obj152098))) + __obj153385))) (declare (not safe)) (##unchecked-structure-set! - _%self151083%_ - __tmp152166 + _%self152370%_ + __tmp153453 '2 '#f '#f))))) @@ -2338,19 +2338,19 @@ (declare (not safe)) (__bind-method!__% gxc#!predicate::t ':init! gxc#!predicate:::init! '#f)) (define gxc#!constructor:::init! - (lambda (_%self149222150939%_ _%id150941%_) - (let* ((_%self150943%_ _%self149222150939%_) - (_%self150945%_ _%self150943%_)) + (lambda (_%self150509152226%_ _%id152228%_) + (let* ((_%self152230%_ _%self150509152226%_) + (_%self152232%_ _%self152230%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150945%_ - _%id150941%_ + _%self152232%_ + _%id152228%_ '1 '#f '#f)) - (let ((__tmp152167 - (let ((__obj152099 + (let ((__tmp153454 + (let ((__obj153386 (let () (declare (not safe)) (##structure @@ -2363,24 +2363,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152099 - _%id150941%_ + __obj153386 + _%id152228%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152099 + __obj153386 '(alloc) '2 '#f '#f)) - __obj152099))) + __obj153386))) (declare (not safe)) (##unchecked-structure-set! - _%self150945%_ - __tmp152167 + _%self152232%_ + __tmp153454 '2 '#f '#f))))) @@ -2392,38 +2392,38 @@ gxc#!constructor:::init! '#f)) (define gxc#!accessor:::init! - (lambda (_%self149223150799%_ - _%id150801%_ - _%slot150802%_ - _%checked?150803%_) - (let* ((_%self150805%_ _%self149223150799%_) - (_%self150807%_ _%self150805%_)) + (lambda (_%self150510152086%_ + _%id152088%_ + _%slot152089%_ + _%checked?152090%_) + (let* ((_%self152092%_ _%self150510152086%_) + (_%self152094%_ _%self152092%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150807%_ - _%id150801%_ + _%self152094%_ + _%id152088%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150807%_ - _%slot150802%_ + _%self152094%_ + _%slot152089%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150807%_ - _%checked?150803%_ + _%self152094%_ + _%checked?152090%_ '4 '#f '#f)) - (let ((__tmp152168 - (let ((__obj152100 + (let ((__tmp153455 + (let ((__obj153387 (let () (declare (not safe)) (##structure @@ -2435,28 +2435,28 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152100 't::t '1 '#f '#f)) + (##unchecked-structure-set! __obj153387 't::t '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152100 + __obj153387 '(pure) '2 '#f '#f)) - (let ((__tmp152169 (cons _%id150801%_ '()))) + (let ((__tmp153456 (cons _%id152088%_ '()))) (declare (not safe)) (##unchecked-structure-set! - __obj152100 - __tmp152169 + __obj153387 + __tmp153456 '3 '#f '#f)) - __obj152100))) + __obj153387))) (declare (not safe)) (##unchecked-structure-set! - _%self150807%_ - __tmp152168 + _%self152094%_ + __tmp153455 '2 '#f '#f))))) @@ -2464,38 +2464,38 @@ (declare (not safe)) (__bind-method!__% gxc#!accessor::t ':init! gxc#!accessor:::init! '#f)) (define gxc#!mutator:::init! - (lambda (_%self149224150659%_ - _%id150661%_ - _%slot150662%_ - _%checked?150663%_) - (let* ((_%self150665%_ _%self149224150659%_) - (_%self150667%_ _%self150665%_)) + (lambda (_%self150511151946%_ + _%id151948%_ + _%slot151949%_ + _%checked?151950%_) + (let* ((_%self151952%_ _%self150511151946%_) + (_%self151954%_ _%self151952%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150667%_ - _%id150661%_ + _%self151954%_ + _%id151948%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150667%_ - _%slot150662%_ + _%self151954%_ + _%slot151949%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150667%_ - _%checked?150663%_ + _%self151954%_ + _%checked?151950%_ '4 '#f '#f)) - (let ((__tmp152170 - (let ((__obj152101 + (let ((__tmp153457 + (let ((__obj153388 (let () (declare (not safe)) (##structure @@ -2508,7 +2508,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152101 + __obj153388 'void::t '1 '#f @@ -2516,24 +2516,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152101 + __obj153388 '(mut) '2 '#f '#f)) - (let ((__tmp152171 (cons _%id150661%_ (cons 't::t '())))) + (let ((__tmp153458 (cons _%id151948%_ (cons 't::t '())))) (declare (not safe)) (##unchecked-structure-set! - __obj152101 - __tmp152171 + __obj153388 + __tmp153458 '3 '#f '#f)) - __obj152101))) + __obj153388))) (declare (not safe)) (##unchecked-structure-set! - _%self150667%_ - __tmp152170 + _%self151954%_ + __tmp153457 '2 '#f '#f))))) @@ -2541,111 +2541,111 @@ (declare (not safe)) (__bind-method!__% gxc#!mutator::t ':init! gxc#!mutator:::init! '#f)) (define gxc#!lambda:::init!__% - (lambda (_%@@keywords150501%_ - _%signature150498150502%_ - _%self149225150504%_ - _%arity150506%_ - _%dispatch150507%_) - (let* ((_%signature150509%_ - (if (eq? _%signature150498150502%_ absent-value) + (lambda (_%@@keywords151788%_ + _%signature151785151789%_ + _%self150512151791%_ + _%arity151793%_ + _%dispatch151794%_) + (let* ((_%signature151796%_ + (if (eq? _%signature151785151789%_ absent-value) '#f - _%signature150498150502%_)) - (_%self150511%_ _%self149225150504%_) - (_%self150513%_ _%self150511%_)) + _%signature151785151789%_)) + (_%self151798%_ _%self150512151791%_) + (_%self151800%_ _%self151798%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150513%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self151800%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150513%_ - _%arity150506%_ + _%self151800%_ + _%arity151793%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150513%_ - _%dispatch150507%_ + _%self151800%_ + _%dispatch151794%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150513%_ - _%signature150509%_ + _%self151800%_ + _%signature151796%_ '2 '#f '#f))))) (define gxc#!lambda:::init!__@ - (lambda (_%@@keywords150527%_ . _%args150528%_) + (lambda (_%@@keywords151814%_ . _%args151815%_) (apply gxc#!lambda:::init!__% - _%@@keywords150527%_ + _%@@keywords151814%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords150527%_ + _%@@keywords151814%_ 'signature: absent-value)) - _%args150528%_))) + _%args151815%_))) (define gxc#!lambda:::init! - (lambda _%args150499150534%_ + (lambda _%args151786151821%_ (apply keyword-dispatch '#(signature:) gxc#!lambda:::init!__@ - _%args150499150534%_))) + _%args151786151821%_))) (let () (declare (not safe)) (__bind-method!__% gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) (define gxc#!case-lambda:::init!__% - (lambda (_%@@keywords150340%_ - _%signature150337150341%_ - _%self149226150343%_ - _%clauses150345%_) - (let* ((_%signature150347%_ - (if (eq? _%signature150337150341%_ absent-value) + (lambda (_%@@keywords151627%_ + _%signature151624151628%_ + _%self150513151630%_ + _%clauses151632%_) + (let* ((_%signature151634%_ + (if (eq? _%signature151624151628%_ absent-value) '#f - _%signature150337150341%_)) - (_%self150349%_ _%self149226150343%_) - (_%self150351%_ _%self150349%_)) + _%signature151624151628%_)) + (_%self151636%_ _%self150513151630%_) + (_%self151638%_ _%self151636%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150351%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self151638%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150351%_ - _%signature150347%_ + _%self151638%_ + _%signature151634%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150351%_ - _%clauses150345%_ + _%self151638%_ + _%clauses151632%_ '3 '#f '#f))))) (define gxc#!case-lambda:::init!__@ - (lambda (_%@@keywords150365%_ . _%args150366%_) + (lambda (_%@@keywords151652%_ . _%args151653%_) (apply gxc#!case-lambda:::init!__% - _%@@keywords150365%_ + _%@@keywords151652%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords150365%_ + _%@@keywords151652%_ 'signature: absent-value)) - _%args150366%_))) + _%args151653%_))) (define gxc#!case-lambda:::init! - (lambda _%args150338150372%_ + (lambda _%args151625151659%_ (apply keyword-dispatch '#(signature:) gxc#!case-lambda:::init!__@ - _%args150338150372%_))) + _%args151625151659%_))) (let () (declare (not safe)) (__bind-method!__% @@ -2654,25 +2654,25 @@ gxc#!case-lambda:::init! '#f)) (define gxc#!kw-lambda:::init! - (lambda (_%self149227150197%_ _%tab150199%_ _%dispatch150200%_) - (let* ((_%self150202%_ _%self149227150197%_) - (_%self150204%_ _%self150202%_)) + (lambda (_%self150514151484%_ _%tab151486%_ _%dispatch151487%_) + (let* ((_%self151489%_ _%self150514151484%_) + (_%self151491%_ _%self151489%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150204%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self151491%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150204%_ - _%tab150199%_ + _%self151491%_ + _%tab151486%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150204%_ - _%dispatch150200%_ + _%self151491%_ + _%dispatch151487%_ '4 '#f '#f))))) @@ -2680,25 +2680,25 @@ (declare (not safe)) (__bind-method!__% gxc#!kw-lambda::t ':init! gxc#!kw-lambda:::init! '#f)) (define gxc#!kw-lambda-primary:::init! - (lambda (_%self149228150058%_ _%keys150060%_ _%main150061%_) - (let* ((_%self150063%_ _%self149228150058%_) - (_%self150065%_ _%self150063%_)) + (lambda (_%self150515151345%_ _%keys151347%_ _%main151348%_) + (let* ((_%self151350%_ _%self150515151345%_) + (_%self151352%_ _%self151350%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150065%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self151352%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150065%_ - _%keys150060%_ + _%self151352%_ + _%keys151347%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150065%_ - _%main150061%_ + _%self151352%_ + _%main151348%_ '4 '#f '#f))))) @@ -2726,19 +2726,19 @@ gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!primitive-predicate:::init! - (lambda (_%self149229149676%_ _%id149678%_) - (let* ((_%self149680%_ _%self149229149676%_) - (_%self149682%_ _%self149680%_)) + (lambda (_%self150516150963%_ _%id150965%_) + (let* ((_%self150967%_ _%self150516150963%_) + (_%self150969%_ _%self150967%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149682%_ - _%id149678%_ + _%self150969%_ + _%id150965%_ '1 '#f '#f)) - (let ((__tmp152172 - (let ((__obj152102 + (let ((__tmp153459 + (let ((__obj153389 (let () (declare (not safe)) (##structure @@ -2751,7 +2751,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152102 + __obj153389 'boolean::t '1 '#f @@ -2759,7 +2759,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152102 + __obj153389 '(pure) '2 '#f @@ -2767,16 +2767,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152102 + __obj153389 '(t::t) '3 '#f '#f)) - __obj152102))) + __obj153389))) (declare (not safe)) (##unchecked-structure-set! - _%self149682%_ - __tmp152172 + _%self150969%_ + __tmp153459 '2 '#f '#f))))) @@ -2788,158 +2788,158 @@ gxc#!primitive-predicate:::init! '#f)) (define gxc#!class-method-table - (lambda (_%klass149545%_) - (let ((_%$e149547%_ - (##structure-ref _%klass149545%_ '11 gxc#!class::t '#f))) - (if _%$e149547%_ - _%$e149547%_ - (let ((_%tab149551%_ + (lambda (_%klass150832%_) + (let ((_%$e150834%_ + (##structure-ref _%klass150832%_ '11 gxc#!class::t '#f))) + (if _%$e150834%_ + _%$e150834%_ + (let ((_%tab150838%_ (let () (declare (not safe)) (make-hash-table-eq)))) (##structure-set! - _%klass149545%_ - _%tab149551%_ + _%klass150832%_ + _%tab150838%_ '11 gxc#!class::t '#f) - _%tab149551%_))))) + _%tab150838%_))))) (define gxc#!class-lookup-method - (lambda (_%klass149536%_ _%method149537%_) - (let ((_%tab149538149540%_ - (##structure-ref _%klass149536%_ '11 gxc#!class::t '#f))) - (if _%tab149538149540%_ - (let ((_%tab149543%_ _%tab149538149540%_)) + (lambda (_%klass150823%_ _%method150824%_) + (let ((_%tab150825150827%_ + (##structure-ref _%klass150823%_ '11 gxc#!class::t '#f))) + (if _%tab150825150827%_ + (let ((_%tab150830%_ _%tab150825150827%_)) (declare (not safe)) - (hash-get _%tab149543%_ _%method149537%_)) + (hash-get _%tab150830%_ _%method150824%_)) '#f)))) (define gxc#!type-subtype? - (lambda (_%type-a149524%_ _%type-b149525%_) - (if _%type-a149524%_ - (if _%type-b149525%_ - (let ((_%$e149527%_ (eq? _%type-a149524%_ _%type-b149525%_))) - (if _%$e149527%_ - _%$e149527%_ - (let ((_%$e149530%_ + (lambda (_%type-a150811%_ _%type-b150812%_) + (if _%type-a150811%_ + (if _%type-b150812%_ + (let ((_%$e150814%_ (eq? _%type-a150811%_ _%type-b150812%_))) + (if _%$e150814%_ + _%$e150814%_ + (let ((_%$e150817%_ (eq? (##structure-ref - _%type-b149525%_ + _%type-b150812%_ '1 gxc#!type::t '#f) 't))) - (if _%$e149530%_ - _%$e149530%_ - (let ((_%$e149533%_ + (if _%$e150817%_ + _%$e150817%_ + (let ((_%$e150820%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a149524%_ + _%type-a150811%_ 'gxc#!procedure::t)) (eq? (##structure-ref - _%type-b149525%_ + _%type-b150812%_ '1 gxc#!type::t '#f) 'procedure) '#f))) - (if _%$e149533%_ - _%$e149533%_ + (if _%$e150820%_ + _%$e150820%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a149524%_ + _%type-a150811%_ 'gxc#!class::t)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-b149525%_ + _%type-b150812%_ 'gxc#!class::t)) (gxc#!class-subclass? - _%type-a149524%_ - _%type-b149525%_) + _%type-a150811%_ + _%type-b150812%_) '#f) '#f))))))) '#f) '#f))) (define gxc#!class-subclass? - (lambda (_%klass-a149475%_ _%klass-b149476%_) - (let ((_%$e149478%_ - (eq? (##structure-ref _%klass-a149475%_ '1 gxc#!type::t '#f) - (##structure-ref _%klass-b149476%_ '1 gxc#!type::t '#f)))) - (if _%$e149478%_ - _%$e149478%_ - (let ((_%klass-id-b149481%_ - (##structure-ref _%klass-b149476%_ '1 gxc#!type::t '#f)) - (_%precedence-list149482%_ - (##structure-ref _%klass-a149475%_ '3 gxc#!class::t '#f))) - (let _%loop149484%_ ((_%rest149486%_ - _%precedence-list149482%_)) - (let* ((_%rest149487149495%_ _%rest149486%_) - (_%else149489149503%_ (lambda () '#f)) - (_%K149491149512%_ - (lambda (_%rest149506%_ _%klass-name149507%_) - (let ((_%$e149509%_ - (eq? (let ((__tmp152173 + (lambda (_%klass-a150762%_ _%klass-b150763%_) + (let ((_%$e150765%_ + (eq? (##structure-ref _%klass-a150762%_ '1 gxc#!type::t '#f) + (##structure-ref _%klass-b150763%_ '1 gxc#!type::t '#f)))) + (if _%$e150765%_ + _%$e150765%_ + (let ((_%klass-id-b150768%_ + (##structure-ref _%klass-b150763%_ '1 gxc#!type::t '#f)) + (_%precedence-list150769%_ + (##structure-ref _%klass-a150762%_ '3 gxc#!class::t '#f))) + (let _%loop150771%_ ((_%rest150773%_ + _%precedence-list150769%_)) + (let* ((_%rest150774150782%_ _%rest150773%_) + (_%else150776150790%_ (lambda () '#f)) + (_%K150778150799%_ + (lambda (_%rest150793%_ _%klass-name150794%_) + (let ((_%$e150796%_ + (eq? (let ((__tmp153460 (gxc#optimizer-resolve-class (cons 'subclass? - (cons _%klass-a149475%_ - (cons _%klass-b149476%_ + (cons _%klass-a150762%_ + (cons _%klass-b150763%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%klass-name149507%_))) + _%klass-name150794%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp152173 + __tmp153460 '1 '#f '#f)) - _%klass-id-b149481%_))) - (if _%$e149509%_ - _%$e149509%_ - (_%loop149484%_ _%rest149506%_)))))) - (if (pair? _%rest149487149495%_) - (let ((_%hd149492149515%_ + _%klass-id-b150768%_))) + (if _%$e150796%_ + _%$e150796%_ + (_%loop150771%_ _%rest150793%_)))))) + (if (pair? _%rest150774150782%_) + (let ((_%hd150779150802%_ (let () (declare (not safe)) - (##car _%rest149487149495%_))) - (_%tl149493149517%_ + (##car _%rest150774150782%_))) + (_%tl150780150804%_ (let () (declare (not safe)) - (##cdr _%rest149487149495%_)))) - (let* ((_%klass-name149520%_ _%hd149492149515%_) - (_%rest149522%_ _%tl149493149517%_)) - (_%K149491149512%_ - _%rest149522%_ - _%klass-name149520%_))) - (_%else149489149503%_))))))))) + (##cdr _%rest150774150782%_)))) + (let* ((_%klass-name150807%_ _%hd150779150802%_) + (_%rest150809%_ _%tl150780150804%_)) + (_%K150778150799%_ + _%rest150809%_ + _%klass-name150807%_))) + (_%else150776150790%_))))))))) (define gxc#!interface-instance? - (lambda (_%type149473%_) + (lambda (_%type150760%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149473%_ 'gxc#!class::t)) + (##structure-instance-of? _%type150760%_ 'gxc#!class::t)) (memq 'interface-instance::t (let () (declare (not safe)) - (##unchecked-structure-ref _%type149473%_ '3 '#f '#f))) + (##unchecked-structure-ref _%type150760%_ '3 '#f '#f))) '#f))) (define gxc#!procedure-origin - (lambda (_%proc149462%_) + (lambda (_%proc150749%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%proc149462%_ 'gxc#!procedure::t)) - (let ((_%proc149465%_ _%proc149462%_)) + (##structure-instance-of? _%proc150749%_ 'gxc#!procedure::t)) + (let ((_%proc150752%_ _%proc150749%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%proc149465%_ '2 '#f '#f)) - (let ((__tmp152174 + (##unchecked-structure-ref _%proc150752%_ '2 '#f '#f)) + (let ((__tmp153461 (let () (declare (not safe)) (##unchecked-structure-ref - _%proc149465%_ + _%proc150752%_ '2 '#f '#f)))) (declare (not safe)) - (##unchecked-structure-ref __tmp152174 '5 '#f '#f)) + (##unchecked-structure-ref __tmp153461 '5 '#f '#f)) '#f)) (begin (raise-contract-violation-error @@ -2949,24 +2949,24 @@ 'contract: '!procedure? 'value: - _%proc149462%_) + _%proc150749%_) '#!void)))) (define gxc#optimizer-declare-type!__% - (lambda (_%sym149444%_ _%type149445%_ _%local?149446%_) + (lambda (_%sym150731%_ _%type150732%_ _%local?150733%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149445%_ 'gxc#!type::t)) + (##structure-instance-of? _%type150732%_ 'gxc#!type::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !type" - _%sym149444%_ - _%type149445%_))) + _%sym150731%_ + _%type150732%_))) (let () (declare (not safe)) - (gxc#verbose '"declare-type " _%sym149444%_ '" " _%type149445%_)) - (let ((_%table149448%_ - (if _%local?149446%_ + (gxc#verbose '"declare-type " _%sym150731%_ '" " _%type150732%_)) + (let ((_%table150735%_ + (if _%local?150733%_ (let () (declare (not safe)) (gxc#current-compile-local-type)) @@ -2978,37 +2978,37 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (hash-put! _%table149448%_ _%sym149444%_ _%type149445%_)))) + (hash-put! _%table150735%_ _%sym150731%_ _%type150732%_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_%sym149453%_ _%type149454%_) - (let ((_%local?149456%_ '#f)) + (lambda (_%sym150740%_ _%type150741%_) + (let ((_%local?150743%_ '#f)) (gxc#optimizer-declare-type!__% - _%sym149453%_ - _%type149454%_ - _%local?149456%_)))) + _%sym150740%_ + _%type150741%_ + _%local?150743%_)))) (define gxc#optimizer-declare-type! - (lambda _g152176_ - (let ((_g152175_ (let () (declare (not safe)) (##length _g152176_)))) - (cond ((let () (declare (not safe)) (##fx= _g152175_ 2)) - (apply gxc#optimizer-declare-type!__0 _g152176_)) - ((let () (declare (not safe)) (##fx= _g152175_ 3)) - (apply gxc#optimizer-declare-type!__% _g152176_)) + (lambda _g153463_ + (let ((_g153462_ (let () (declare (not safe)) (##length _g153463_)))) + (cond ((let () (declare (not safe)) (##fx= _g153462_ 2)) + (apply gxc#optimizer-declare-type!__0 _g153463_)) + ((let () (declare (not safe)) (##fx= _g153462_ 3)) + (apply gxc#optimizer-declare-type!__% _g153463_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g152176_)))))) + _g153463_)))))) (define gxc#optimizer-declare-class! - (lambda (_%sym149438%_ _%type149439%_) + (lambda (_%sym150725%_ _%type150726%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149439%_ 'gxc#!class::t)) + (##structure-instance-of? _%type150726%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym149438%_ - _%type149439%_))) - (let ((_%table149441%_ + _%sym150725%_ + _%type150726%_))) + (let ((_%table150728%_ (##structure-ref (let () (declare (not safe)) @@ -3016,28 +3016,28 @@ '2 gxc#optimizer-info::t '#f))) - (let ((__tmp152177 - (let () (declare (not safe)) (struct->list _%type149439%_)))) + (let ((__tmp153464 + (let () (declare (not safe)) (struct->list _%type150726%_)))) (declare (not safe)) - (gxc#verbose '"declare-class " _%sym149438%_ '" " __tmp152177)) + (gxc#verbose '"declare-class " _%sym150725%_ '" " __tmp153464)) (let () (declare (not safe)) - (hash-put! _%table149441%_ _%sym149438%_ _%type149439%_)) + (hash-put! _%table150728%_ _%sym150725%_ _%type150726%_)) (let () (declare (not safe)) - (hash-put! _%table149441%_ _%type149439%_ _%sym149438%_))))) + (hash-put! _%table150728%_ _%type150726%_ _%sym150725%_))))) (define gxc#optimizer-declare-builtin-class! - (lambda (_%sym149433%_ _%type149434%_) + (lambda (_%sym150720%_ _%type150721%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149434%_ 'gxc#!class::t)) + (##structure-instance-of? _%type150721%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym149433%_ - _%type149434%_))) - (let ((_%table149436%_ + _%sym150720%_ + _%type150721%_))) + (let ((_%table150723%_ (##structure-ref (let () (declare (not safe)) @@ -3047,38 +3047,38 @@ '#f))) (if (let () (declare (not safe)) - (hash-get _%table149436%_ _%sym149433%_)) + (hash-get _%table150723%_ _%sym150720%_)) '#!void (begin - (let ((__tmp152178 + (let ((__tmp153465 (let () (declare (not safe)) - (struct->list _%type149434%_)))) + (struct->list _%type150721%_)))) (declare (not safe)) (gxc#verbose '"declare-builtin-class " - _%sym149433%_ + _%sym150720%_ '" " - __tmp152178)) + __tmp153465)) (let () (declare (not safe)) - (hash-put! _%table149436%_ _%sym149433%_ _%type149434%_)) + (hash-put! _%table150723%_ _%sym150720%_ _%type150721%_)) (let () (declare (not safe)) (hash-put! - _%table149436%_ - _%type149434%_ - _%sym149433%_))))))) + _%table150723%_ + _%type150721%_ + _%sym150720%_))))))) (define gxc#optimizer-clear-type! - (lambda (_%sym149431%_) + (lambda (_%sym150718%_) (let () (declare (not safe)) - (gxc#verbose '"clear-type " _%sym149431%_)) - (let ((__tmp152179 + (gxc#verbose '"clear-type " _%sym150718%_)) + (let ((__tmp153466 (let () (declare (not safe)) (gxc#current-compile-local-type)))) (declare (not safe)) - (hash-remove! __tmp152179 _%sym149431%_)) - (let ((__tmp152180 + (hash-remove! __tmp153466 _%sym150718%_)) + (let ((__tmp153467 (##structure-ref (let () (declare (not safe)) @@ -3087,13 +3087,13 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-remove! __tmp152180 _%sym149431%_)))) + (hash-remove! __tmp153467 _%sym150718%_)))) (define gxc#optimizer-declare-method!__% - (lambda (_%type-t149399%_ - _%method149400%_ - _%sym149401%_ - _%rebind?149402%_) - (let ((__tmp152181 + (lambda (_%type-t150686%_ + _%method150687%_ + _%sym150688%_ + _%rebind?150689%_) + (let ((__tmp153468 (##structure-ref (let () (declare (not safe)) @@ -3102,109 +3102,109 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp152181 _%sym149401%_ '#t)) - (let ((_%klass149404%_ (gxc#optimizer-lookup-class _%type-t149399%_))) - (if _%klass149404%_ - (let* ((_%vtab149406%_ (gxc#!class-method-table _%klass149404%_)) - (_%$e149408%_ + (hash-put! __tmp153468 _%sym150688%_ '#t)) + (let ((_%klass150691%_ (gxc#optimizer-lookup-class _%type-t150686%_))) + (if _%klass150691%_ + (let* ((_%vtab150693%_ (gxc#!class-method-table _%klass150691%_)) + (_%$e150695%_ (let () (declare (not safe)) - (hash-get _%vtab149406%_ _%method149400%_)))) - (if _%$e149408%_ - ((lambda (_%existing149411%_) - (if _%rebind?149402%_ + (hash-get _%vtab150693%_ _%method150687%_)))) + (if _%$e150695%_ + ((lambda (_%existing150698%_) + (if _%rebind?150689%_ (let () (let () (declare (not safe)) (gxc#verbose '"declare-method: rebind existing method" - _%type-t149399%_ + _%type-t150686%_ '" " - _%method149400%_)) + _%method150687%_)) (let () (declare (not safe)) (hash-put! - _%vtab149406%_ - _%method149400%_ - _%sym149401%_))) - (if (eq? _%existing149411%_ _%sym149401%_) + _%vtab150693%_ + _%method150687%_ + _%sym150688%_))) + (if (eq? _%existing150698%_ _%sym150688%_) '#!void - (let ((__tmp152182 + (let ((__tmp153469 (cons 'bind-method! - (cons _%type-t149399%_ - (cons _%method149400%_ - (cons _%sym149401%_ + (cons _%type-t150686%_ + (cons _%method150687%_ + (cons _%sym150688%_ '())))))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: duplicate method declaration" - __tmp152182 - _%method149400%_))))) - _%$e149408%_) + __tmp153469 + _%method150687%_))))) + _%$e150695%_) (let () (let () (declare (not safe)) (gxc#verbose '"declare-method " - _%type-t149399%_ + _%type-t150686%_ '" " - _%method149400%_ + _%method150687%_ '" => " - _%sym149401%_)) + _%sym150688%_)) (let () (declare (not safe)) (hash-put! - _%vtab149406%_ - _%method149400%_ - _%sym149401%_))))) + _%vtab150693%_ + _%method150687%_ + _%sym150688%_))))) (let () (declare (not safe)) (gxc#verbose '"declare-method: unknown class" - _%type-t149399%_)))))) + _%type-t150686%_)))))) (define gxc#optimizer-declare-method!__0 - (lambda (_%type-t149420%_ _%method149421%_ _%sym149422%_) - (let ((_%rebind?149424%_ '#f)) + (lambda (_%type-t150707%_ _%method150708%_ _%sym150709%_) + (let ((_%rebind?150711%_ '#f)) (gxc#optimizer-declare-method!__% - _%type-t149420%_ - _%method149421%_ - _%sym149422%_ - _%rebind?149424%_)))) + _%type-t150707%_ + _%method150708%_ + _%sym150709%_ + _%rebind?150711%_)))) (define gxc#optimizer-declare-method! - (lambda _g152184_ - (let ((_g152183_ (let () (declare (not safe)) (##length _g152184_)))) - (cond ((let () (declare (not safe)) (##fx= _g152183_ 3)) - (apply gxc#optimizer-declare-method!__0 _g152184_)) - ((let () (declare (not safe)) (##fx= _g152183_ 4)) - (apply gxc#optimizer-declare-method!__% _g152184_)) + (lambda _g153471_ + (let ((_g153470_ (let () (declare (not safe)) (##length _g153471_)))) + (cond ((let () (declare (not safe)) (##fx= _g153470_ 3)) + (apply gxc#optimizer-declare-method!__0 _g153471_)) + ((let () (declare (not safe)) (##fx= _g153470_ 4)) + (apply gxc#optimizer-declare-method!__% _g153471_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g152184_)))))) + _g153471_)))))) (define gxc#optimizer-lookup-type - (lambda (_%sym149384%_) - (let ((_%$e149386%_ - (let ((__tmp152185 + (lambda (_%sym150671%_) + (let ((_%$e150673%_ + (let ((__tmp153472 (let () (declare (not safe)) (gxc#current-compile-path-type)))) (declare (not safe)) - (agetq__0 _%sym149384%_ __tmp152185)))) - (if _%$e149386%_ - _%$e149386%_ - (let ((_%$e149395%_ - (let ((_%ht149388149390%_ + (agetq__0 _%sym150671%_ __tmp153472)))) + (if _%$e150673%_ + _%$e150673%_ + (let ((_%$e150682%_ + (let ((_%ht150675150677%_ (let () (declare (not safe)) (gxc#current-compile-local-type)))) - (if _%ht149388149390%_ - (let ((_%ht149393%_ _%ht149388149390%_)) + (if _%ht150675150677%_ + (let ((_%ht150680%_ _%ht150675150677%_)) (declare (not safe)) - (hash-get _%ht149393%_ _%sym149384%_)) + (hash-get _%ht150680%_ _%sym150671%_)) '#f)))) - (if _%$e149395%_ - _%$e149395%_ - (let ((__tmp152186 + (if _%$e150682%_ + _%$e150682%_ + (let ((__tmp153473 (##structure-ref (let () (declare (not safe)) @@ -3213,24 +3213,24 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp152186 _%sym149384%_)))))))) + (hash-get __tmp153473 _%sym150671%_)))))))) (define gxc#optimizer-resolve-type - (lambda (_%sym149376%_) - (let ((_%type149377149379%_ (gxc#optimizer-lookup-type _%sym149376%_))) - (if _%type149377149379%_ - (let ((_%type149382%_ _%type149377149379%_)) + (lambda (_%sym150663%_) + (let ((_%type150664150666%_ (gxc#optimizer-lookup-type _%sym150663%_))) + (if _%type150664150666%_ + (let ((_%type150669%_ _%type150664150666%_)) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149382%_ 'gxc#!alias::t)) + (##structure-instance-of? _%type150669%_ 'gxc#!alias::t)) (gxc#optimizer-resolve-type (let () (declare (not safe)) - (##unchecked-structure-ref _%type149382%_ '1 '#f '#f))) - _%type149382%_)) + (##unchecked-structure-ref _%type150669%_ '1 '#f '#f))) + _%type150669%_)) '#f)))) (define gxc#optimizer-lookup-class - (lambda (_%sym149372%_) - (let ((_%table149374%_ + (lambda (_%sym150659%_) + (let ((_%table150661%_ (##structure-ref (let () (declare (not safe)) @@ -3239,34 +3239,34 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get _%table149374%_ _%sym149372%_)))) + (hash-get _%table150661%_ _%sym150659%_)))) (define gxc#optimizer-resolve-class - (lambda (_%where149357%_ _%sym149358%_) - (let ((_%$e149361%_ (gxc#optimizer-lookup-class _%sym149358%_))) - (if _%$e149361%_ - ((lambda (_%g149363149365%_) - (let ((_%val149368%_ _%g149363149365%_)) + (lambda (_%where150644%_ _%sym150645%_) + (let ((_%$e150648%_ (gxc#optimizer-lookup-class _%sym150645%_))) + (if _%$e150648%_ + ((lambda (_%g150650150652%_) + (let ((_%val150655%_ _%g150650150652%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%val149368%_ + _%val150655%_ 'gxc#!class::t)) - _%val149368%_ + _%val150655%_ (let () (declare (not safe)) - (error '"bad cast" gxc#!class::t _%val149368%_))))) - _%$e149361%_) + (error '"bad cast" gxc#!class::t _%val150655%_))))) + _%$e150648%_) (let () (let () (declare (not safe)) (gxc#raise-compile-error '"unknown class" - _%where149357%_ - _%sym149358%_)) + _%where150644%_ + _%sym150645%_)) '#!void))))) (define gxc#optimizer-lookup-class-name - (lambda (_%klass149355%_) - (let ((__tmp152187 + (lambda (_%klass150642%_) + (let ((__tmp153474 (##structure-ref (let () (declare (not safe)) @@ -3275,15 +3275,15 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp152187 _%klass149355%_)))) + (hash-get __tmp153474 _%klass150642%_)))) (define gxc#optimizer-lookup-method - (lambda (_%type-t149352%_ _%method149353%_) + (lambda (_%type-t150639%_ _%method150640%_) (gxc#!class-lookup-method - (gxc#optimizer-resolve-class 'lookup-method _%type-t149352%_) - _%method149353%_))) + (gxc#optimizer-resolve-class 'lookup-method _%type-t150639%_) + _%method150640%_))) (define gxc#optimizer-top-level-method? - (lambda (_%sym149350%_) - (let ((__tmp152188 + (lambda (_%sym150637%_) + (let ((__tmp153475 (##structure-ref (let () (declare (not safe)) @@ -3292,59 +3292,59 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp152188 _%sym149350%_)))) + (hash-get __tmp153475 _%sym150637%_)))) (define gxc#optimizer-current-types (lambda () - (letrec ((_%type-e149232%_ - (lambda (_%t149333%_) - (if (symbol? _%t149333%_) - (_%type-e149232%_ - (gxc#optimizer-lookup-type _%t149333%_)) + (letrec ((_%type-e150519%_ + (lambda (_%t150620%_) + (if (symbol? _%t150620%_) + (_%type-e150519%_ + (gxc#optimizer-lookup-type _%t150620%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149333%_ + _%t150620%_ 'gxc#!lambda::t)) - (_%__lambda-type149234%_ _%t149333%_) + (_%__lambda-type150521%_ _%t150620%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149333%_ + _%t150620%_ 'gxc#!kw-lambda::t)) - (_%__kw-lambda-type149236%_ _%t149333%_) + (_%__kw-lambda-type150523%_ _%t150620%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149333%_ + _%t150620%_ 'gxc#!kw-lambda-primary::t)) - (_%__kw-lambda-primary-type149238%_ - _%t149333%_) + (_%__kw-lambda-primary-type150525%_ + _%t150620%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149333%_ + _%t150620%_ 'gxc#!procedure::t)) (cons 'procedure - (let ((_%t149340%_ _%t149333%_)) + (let ((_%t150627%_ _%t150620%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%t149340%_ + _%t150627%_ '2 '#f '#f)) - (let ((__tmp152189 + (let ((__tmp153476 (let () (declare (not safe)) (##unchecked-structure-ref - _%t149340%_ + _%t150627%_ '2 '#f '#f)))) (declare (not safe)) (##unchecked-structure-ref - __tmp152189 + __tmp153476 '1 '#f '#f)) @@ -3352,31 +3352,31 @@ (if (let () (declare (not safe)) (##structure-instance-of? - _%t149333%_ + _%t150620%_ 'gxc#!type::t)) (let () (declare (not safe)) (##unchecked-structure-ref - _%t149333%_ + _%t150620%_ '1 '#f '#f)) '#f)))))))) - (_%lambda-type149233%_ - (lambda (_%t149321%_) - (let ((_%t149324%_ _%t149321%_)) - (_%__lambda-type149234%_ _%t149324%_)))) - (_%__lambda-type149234%_ - (lambda (_%t149309%_) - (let ((_%t149312%_ _%t149309%_)) + (_%lambda-type150520%_ + (lambda (_%t150608%_) + (let ((_%t150611%_ _%t150608%_)) + (_%__lambda-type150521%_ _%t150611%_)))) + (_%__lambda-type150521%_ + (lambda (_%t150596%_) + (let ((_%t150599%_ _%t150596%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%t149312%_ '4 '#f '#f)) - (_%type-e149232%_ + (##unchecked-structure-ref _%t150599%_ '4 '#f '#f)) + (_%type-e150519%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t149312%_ + _%t150599%_ '4 '#f '#f))) @@ -3384,56 +3384,56 @@ (if (let () (declare (not safe)) (##unchecked-structure-ref - _%t149312%_ + _%t150599%_ '2 '#f '#f)) - (let ((__tmp152190 + (let ((__tmp153477 (let () (declare (not safe)) (##unchecked-structure-ref - _%t149312%_ + _%t150599%_ '2 '#f '#f)))) (declare (not safe)) (##unchecked-structure-ref - __tmp152190 + __tmp153477 '1 '#f '#f)) '#f)))))) - (_%kw-lambda-type149235%_ - (lambda (_%t149297%_) - (let ((_%t149300%_ _%t149297%_)) - (_%__kw-lambda-type149236%_ _%t149300%_)))) - (_%__kw-lambda-type149236%_ - (lambda (_%t149285%_) - (let ((_%t149288%_ _%t149285%_)) - (_%type-e149232%_ + (_%kw-lambda-type150522%_ + (lambda (_%t150584%_) + (let ((_%t150587%_ _%t150584%_)) + (_%__kw-lambda-type150523%_ _%t150587%_)))) + (_%__kw-lambda-type150523%_ + (lambda (_%t150572%_) + (let ((_%t150575%_ _%t150572%_)) + (_%type-e150519%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t149288%_ + _%t150575%_ '4 '#f '#f)))))) - (_%kw-lambda-primary-type149237%_ - (lambda (_%t149273%_) - (let ((_%t149276%_ _%t149273%_)) - (_%__kw-lambda-primary-type149238%_ _%t149276%_)))) - (_%__kw-lambda-primary-type149238%_ - (lambda (_%t149259%_) - (let ((_%t149262%_ _%t149259%_)) - (_%type-e149232%_ + (_%kw-lambda-primary-type150524%_ + (lambda (_%t150560%_) + (let ((_%t150563%_ _%t150560%_)) + (_%__kw-lambda-primary-type150525%_ _%t150563%_)))) + (_%__kw-lambda-primary-type150525%_ + (lambda (_%t150546%_) + (let ((_%t150549%_ _%t150546%_)) + (_%type-e150519%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t149262%_ + _%t150549%_ '4 '#f '#f))))))) - (let* ((_%ht1149240%_ + (let* ((_%ht1150527%_ (##structure-ref (let () (declare (not safe)) @@ -3441,33 +3441,33 @@ '1 gxc#optimizer-info::t '#f)) - (_%ht2149242%_ + (_%ht2150529%_ (let () (declare (not safe)) (gxc#current-compile-local-type))) - (_%result149244%_ - (if _%ht1149240%_ - (let () (declare (not safe)) (hash->list _%ht1149240%_)) + (_%result150531%_ + (if _%ht1150527%_ + (let () (declare (not safe)) (hash->list _%ht1150527%_)) '())) - (_%result149246%_ - (if _%ht2149242%_ - (let ((__tmp152191 + (_%result150533%_ + (if _%ht2150529%_ + (let ((__tmp153478 (let () (declare (not safe)) - (hash->list _%ht2149242%_)))) + (hash->list _%ht2150529%_)))) (declare (not safe)) - (__foldl1 cons _%result149244%_ __tmp152191)) - _%result149244%_))) + (__foldl1 cons _%result150531%_ __tmp153478)) + _%result150531%_))) (for-each - (lambda (_%p149249%_) - (let* ((_%t149251%_ (cdr _%p149249%_)) - (_%tr149253%_ (_%type-e149232%_ _%t149251%_))) - (set-cdr! _%p149249%_ _%tr149253%_))) - _%result149246%_) + (lambda (_%p150536%_) + (let* ((_%t150538%_ (cdr _%p150536%_)) + (_%tr150540%_ (_%type-e150519%_ _%t150538%_))) + (set-cdr! _%p150536%_ _%tr150540%_))) + _%result150533%_) (list-sort - (lambda (_%a149256%_ _%b149257%_) - (let ((__tmp152193 (symbol->string (car _%a149256%_))) - (__tmp152192 (symbol->string (car _%b149257%_)))) + (lambda (_%a150543%_ _%b150544%_) + (let ((__tmp153480 (symbol->string (car _%a150543%_))) + (__tmp153479 (symbol->string (car _%b150544%_)))) (declare (not safe)) - (##string>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj152084 __tmp152343 '15 '#f '#f)) - (let ((__tmp152355 - (cons (cons 'super |gxc[1]#_g152356_|) - (cons (cons 'precedence-list |gxc[1]#_g152357_|) - (cons (cons 'slots |gxc[1]#_g152358_|) - (cons (cons 'fields |gxc[1]#_g152359_|) + (##unchecked-structure-set! __obj153371 __tmp153630 '15 '#f '#f)) + (let ((__tmp153642 + (cons (cons 'super |gxc[1]#_g153643_|) + (cons (cons 'precedence-list |gxc[1]#_g153644_|) + (cons (cons 'slots |gxc[1]#_g153645_|) + (cons (cons 'fields |gxc[1]#_g153646_|) (cons (cons 'constructor - |gxc[1]#_g152360_|) + |gxc[1]#_g153647_|) (cons (cons 'struct? - |gxc[1]#_g152361_|) + |gxc[1]#_g153648_|) (cons (cons 'final? - |gxc[1]#_g152362_|) + |gxc[1]#_g153649_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g152363_|) - (cons (cons 'metaclass |gxc[1]#_g152364_|) - (cons (cons 'methods |gxc[1]#_g152365_|) - (cons (cons 'id |gxc[1]#_g152366_|) + |gxc[1]#_g153650_|) + (cons (cons 'metaclass |gxc[1]#_g153651_|) + (cons (cons 'methods |gxc[1]#_g153652_|) + (cons (cons 'id |gxc[1]#_g153653_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj152084 __tmp152355 '16 '#f '#f)) - (let ((__tmp152367 - (cons (cons 'super |gxc[1]#_g152368_|) - (cons (cons 'precedence-list |gxc[1]#_g152369_|) - (cons (cons 'slots |gxc[1]#_g152370_|) - (cons (cons 'fields |gxc[1]#_g152371_|) + (##unchecked-structure-set! __obj153371 __tmp153642 '16 '#f '#f)) + (let ((__tmp153654 + (cons (cons 'super |gxc[1]#_g153655_|) + (cons (cons 'precedence-list |gxc[1]#_g153656_|) + (cons (cons 'slots |gxc[1]#_g153657_|) + (cons (cons 'fields |gxc[1]#_g153658_|) (cons (cons 'constructor - |gxc[1]#_g152372_|) + |gxc[1]#_g153659_|) (cons (cons 'struct? - |gxc[1]#_g152373_|) + |gxc[1]#_g153660_|) (cons (cons 'final? - |gxc[1]#_g152374_|) + |gxc[1]#_g153661_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g152375_|) - (cons (cons 'metaclass |gxc[1]#_g152376_|) - (cons (cons 'methods |gxc[1]#_g152377_|) - (cons (cons 'id |gxc[1]#_g152378_|) + |gxc[1]#_g153662_|) + (cons (cons 'metaclass |gxc[1]#_g153663_|) + (cons (cons 'methods |gxc[1]#_g153664_|) + (cons (cons 'id |gxc[1]#_g153665_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj152084 __tmp152367 '17 '#f '#f)) - (let ((__tmp152379 - (cons (cons 'super |gxc[1]#_g152380_|) - (cons (cons 'precedence-list |gxc[1]#_g152381_|) - (cons (cons 'slots |gxc[1]#_g152382_|) - (cons (cons 'fields |gxc[1]#_g152383_|) + (##unchecked-structure-set! __obj153371 __tmp153654 '17 '#f '#f)) + (let ((__tmp153666 + (cons (cons 'super |gxc[1]#_g153667_|) + (cons (cons 'precedence-list |gxc[1]#_g153668_|) + (cons (cons 'slots |gxc[1]#_g153669_|) + (cons (cons 'fields |gxc[1]#_g153670_|) (cons (cons 'constructor - |gxc[1]#_g152384_|) + |gxc[1]#_g153671_|) (cons (cons 'struct? - |gxc[1]#_g152385_|) + |gxc[1]#_g153672_|) (cons (cons 'final? - |gxc[1]#_g152386_|) + |gxc[1]#_g153673_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g152387_|) - (cons (cons 'metaclass |gxc[1]#_g152388_|) - (cons (cons 'methods |gxc[1]#_g152389_|) - (cons (cons 'id |gxc[1]#_g152390_|) + |gxc[1]#_g153674_|) + (cons (cons 'metaclass |gxc[1]#_g153675_|) + (cons (cons 'methods |gxc[1]#_g153676_|) + (cons (cons 'id |gxc[1]#_g153677_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj152084 __tmp152379 '18 '#f '#f)) + (##unchecked-structure-set! __obj153371 __tmp153666 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152084 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153371 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152084 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153371 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152084 '() '20 '#f '#f)) - __obj152084)) + (##unchecked-structure-set! __obj153371 '() '20 '#f '#f)) + __obj153371)) (define |gxc[:0:]#!predicate| - (let ((__obj152085 + (let ((__obj153372 (let () (declare (not safe)) (##structure @@ -3325,76 +3325,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152085 + __obj153372 'gxc#!predicate::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 '!predicate '2 '#f '#f)) + (##unchecked-structure-set! __obj153372 '!predicate '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153372 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 '(id signature) '6 '#f '#f)) - (let ((__tmp152391 (cons |gxc[1]#_g152392_| '()))) + (##unchecked-structure-set! __obj153372 '(id signature) '6 '#f '#f)) + (let ((__tmp153678 (cons |gxc[1]#_g153679_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152391 '3 '#f '#f)) + (##unchecked-structure-set! __obj153372 __tmp153678 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153372 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153372 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153372 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 ':init! '11 '#f '#f)) - (let ((__tmp152393 |gxc[1]#_g152394_|)) + (##unchecked-structure-set! __obj153372 ':init! '11 '#f '#f)) + (let ((__tmp153680 |gxc[1]#_g153681_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152393 '12 '#f '#f)) - (let ((__tmp152395 |gxc[1]#_g152396_|)) + (##unchecked-structure-set! __obj153372 __tmp153680 '12 '#f '#f)) + (let ((__tmp153682 |gxc[1]#_g153683_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152395 '13 '#f '#f)) - (let ((__tmp152397 |gxc[1]#_g152398_|)) + (##unchecked-structure-set! __obj153372 __tmp153682 '13 '#f '#f)) + (let ((__tmp153684 |gxc[1]#_g153685_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152397 '14 '#f '#f)) - (let ((__tmp152399 - (cons (cons 'signature |gxc[1]#_g152400_|) - (cons (cons 'id |gxc[1]#_g152401_|) '())))) + (##unchecked-structure-set! __obj153372 __tmp153684 '14 '#f '#f)) + (let ((__tmp153686 + (cons (cons 'signature |gxc[1]#_g153687_|) + (cons (cons 'id |gxc[1]#_g153688_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152399 '15 '#f '#f)) - (let ((__tmp152402 - (cons (cons 'signature |gxc[1]#_g152403_|) - (cons (cons 'id |gxc[1]#_g152404_|) '())))) + (##unchecked-structure-set! __obj153372 __tmp153686 '15 '#f '#f)) + (let ((__tmp153689 + (cons (cons 'signature |gxc[1]#_g153690_|) + (cons (cons 'id |gxc[1]#_g153691_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152402 '16 '#f '#f)) - (let ((__tmp152405 - (cons (cons 'signature |gxc[1]#_g152406_|) - (cons (cons 'id |gxc[1]#_g152407_|) '())))) + (##unchecked-structure-set! __obj153372 __tmp153689 '16 '#f '#f)) + (let ((__tmp153692 + (cons (cons 'signature |gxc[1]#_g153693_|) + (cons (cons 'id |gxc[1]#_g153694_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152405 '17 '#f '#f)) - (let ((__tmp152408 - (cons (cons 'signature |gxc[1]#_g152409_|) - (cons (cons 'id |gxc[1]#_g152410_|) '())))) + (##unchecked-structure-set! __obj153372 __tmp153692 '17 '#f '#f)) + (let ((__tmp153695 + (cons (cons 'signature |gxc[1]#_g153696_|) + (cons (cons 'id |gxc[1]#_g153697_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152408 '18 '#f '#f)) - (let ((__tmp152411 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj153372 __tmp153695 '18 '#f '#f)) + (let ((__tmp153698 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152085 __tmp152411 '19 '#f '#f)) + (##unchecked-structure-set! __obj153372 __tmp153698 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153372 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152085 '() '20 '#f '#f)) - __obj152085)) + (##unchecked-structure-set! __obj153372 '() '20 '#f '#f)) + __obj153372)) (define |gxc[:0:]#!constructor| - (let ((__obj152086 + (let ((__obj153373 (let () (declare (not safe)) (##structure @@ -3423,76 +3423,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152086 + __obj153373 'gxc#!constructor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 '!constructor '2 '#f '#f)) + (##unchecked-structure-set! __obj153373 '!constructor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153373 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 '(id signature) '6 '#f '#f)) - (let ((__tmp152412 (cons |gxc[1]#_g152392_| '()))) + (##unchecked-structure-set! __obj153373 '(id signature) '6 '#f '#f)) + (let ((__tmp153699 (cons |gxc[1]#_g153679_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152412 '3 '#f '#f)) + (##unchecked-structure-set! __obj153373 __tmp153699 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153373 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153373 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153373 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 ':init! '11 '#f '#f)) - (let ((__tmp152413 |gxc[1]#_g152414_|)) + (##unchecked-structure-set! __obj153373 ':init! '11 '#f '#f)) + (let ((__tmp153700 |gxc[1]#_g153701_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152413 '12 '#f '#f)) - (let ((__tmp152415 |gxc[1]#_g152416_|)) + (##unchecked-structure-set! __obj153373 __tmp153700 '12 '#f '#f)) + (let ((__tmp153702 |gxc[1]#_g153703_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152415 '13 '#f '#f)) - (let ((__tmp152417 |gxc[1]#_g152418_|)) + (##unchecked-structure-set! __obj153373 __tmp153702 '13 '#f '#f)) + (let ((__tmp153704 |gxc[1]#_g153705_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152417 '14 '#f '#f)) - (let ((__tmp152419 - (cons (cons 'signature |gxc[1]#_g152420_|) - (cons (cons 'id |gxc[1]#_g152421_|) '())))) + (##unchecked-structure-set! __obj153373 __tmp153704 '14 '#f '#f)) + (let ((__tmp153706 + (cons (cons 'signature |gxc[1]#_g153707_|) + (cons (cons 'id |gxc[1]#_g153708_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152419 '15 '#f '#f)) - (let ((__tmp152422 - (cons (cons 'signature |gxc[1]#_g152423_|) - (cons (cons 'id |gxc[1]#_g152424_|) '())))) + (##unchecked-structure-set! __obj153373 __tmp153706 '15 '#f '#f)) + (let ((__tmp153709 + (cons (cons 'signature |gxc[1]#_g153710_|) + (cons (cons 'id |gxc[1]#_g153711_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152422 '16 '#f '#f)) - (let ((__tmp152425 - (cons (cons 'signature |gxc[1]#_g152426_|) - (cons (cons 'id |gxc[1]#_g152427_|) '())))) + (##unchecked-structure-set! __obj153373 __tmp153709 '16 '#f '#f)) + (let ((__tmp153712 + (cons (cons 'signature |gxc[1]#_g153713_|) + (cons (cons 'id |gxc[1]#_g153714_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152425 '17 '#f '#f)) - (let ((__tmp152428 - (cons (cons 'signature |gxc[1]#_g152429_|) - (cons (cons 'id |gxc[1]#_g152430_|) '())))) + (##unchecked-structure-set! __obj153373 __tmp153712 '17 '#f '#f)) + (let ((__tmp153715 + (cons (cons 'signature |gxc[1]#_g153716_|) + (cons (cons 'id |gxc[1]#_g153717_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152428 '18 '#f '#f)) - (let ((__tmp152431 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj153373 __tmp153715 '18 '#f '#f)) + (let ((__tmp153718 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152086 __tmp152431 '19 '#f '#f)) + (##unchecked-structure-set! __obj153373 __tmp153718 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153373 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152086 '() '20 '#f '#f)) - __obj152086)) + (##unchecked-structure-set! __obj153373 '() '20 '#f '#f)) + __obj153373)) (define |gxc[:0:]#!accessor| - (let ((__obj152087 + (let ((__obj153374 (let () (declare (not safe)) (##structure @@ -3521,89 +3521,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152087 + __obj153374 'gxc#!accessor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152087 '!accessor '2 '#f '#f)) + (##unchecked-structure-set! __obj153374 '!accessor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152087 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj153374 '(slot checked?) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152087 + __obj153374 '(id signature slot checked?) '6 '#f '#f)) - (let ((__tmp152432 (cons |gxc[1]#_g152392_| '()))) + (let ((__tmp153719 (cons |gxc[1]#_g153679_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152432 '3 '#f '#f)) + (##unchecked-structure-set! __obj153374 __tmp153719 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152087 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153374 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152087 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153374 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152087 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153374 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152087 ':init! '11 '#f '#f)) - (let ((__tmp152433 |gxc[1]#_g152434_|)) + (##unchecked-structure-set! __obj153374 ':init! '11 '#f '#f)) + (let ((__tmp153720 |gxc[1]#_g153721_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152433 '12 '#f '#f)) - (let ((__tmp152435 |gxc[1]#_g152436_|)) + (##unchecked-structure-set! __obj153374 __tmp153720 '12 '#f '#f)) + (let ((__tmp153722 |gxc[1]#_g153723_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152435 '13 '#f '#f)) - (let ((__tmp152437 |gxc[1]#_g152438_|)) + (##unchecked-structure-set! __obj153374 __tmp153722 '13 '#f '#f)) + (let ((__tmp153724 |gxc[1]#_g153725_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152437 '14 '#f '#f)) - (let ((__tmp152439 - (cons (cons 'slot |gxc[1]#_g152440_|) - (cons (cons 'checked? |gxc[1]#_g152441_|) - (cons (cons 'signature |gxc[1]#_g152442_|) - (cons (cons 'id |gxc[1]#_g152443_|) '())))))) + (##unchecked-structure-set! __obj153374 __tmp153724 '14 '#f '#f)) + (let ((__tmp153726 + (cons (cons 'slot |gxc[1]#_g153727_|) + (cons (cons 'checked? |gxc[1]#_g153728_|) + (cons (cons 'signature |gxc[1]#_g153729_|) + (cons (cons 'id |gxc[1]#_g153730_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152439 '15 '#f '#f)) - (let ((__tmp152444 - (cons (cons 'slot |gxc[1]#_g152445_|) - (cons (cons 'checked? |gxc[1]#_g152446_|) - (cons (cons 'signature |gxc[1]#_g152447_|) - (cons (cons 'id |gxc[1]#_g152448_|) '())))))) + (##unchecked-structure-set! __obj153374 __tmp153726 '15 '#f '#f)) + (let ((__tmp153731 + (cons (cons 'slot |gxc[1]#_g153732_|) + (cons (cons 'checked? |gxc[1]#_g153733_|) + (cons (cons 'signature |gxc[1]#_g153734_|) + (cons (cons 'id |gxc[1]#_g153735_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152444 '16 '#f '#f)) - (let ((__tmp152449 - (cons (cons 'slot |gxc[1]#_g152450_|) - (cons (cons 'checked? |gxc[1]#_g152451_|) - (cons (cons 'signature |gxc[1]#_g152452_|) - (cons (cons 'id |gxc[1]#_g152453_|) '())))))) + (##unchecked-structure-set! __obj153374 __tmp153731 '16 '#f '#f)) + (let ((__tmp153736 + (cons (cons 'slot |gxc[1]#_g153737_|) + (cons (cons 'checked? |gxc[1]#_g153738_|) + (cons (cons 'signature |gxc[1]#_g153739_|) + (cons (cons 'id |gxc[1]#_g153740_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152449 '17 '#f '#f)) - (let ((__tmp152454 - (cons (cons 'slot |gxc[1]#_g152455_|) - (cons (cons 'checked? |gxc[1]#_g152456_|) - (cons (cons 'signature |gxc[1]#_g152457_|) - (cons (cons 'id |gxc[1]#_g152458_|) '())))))) + (##unchecked-structure-set! __obj153374 __tmp153736 '17 '#f '#f)) + (let ((__tmp153741 + (cons (cons 'slot |gxc[1]#_g153742_|) + (cons (cons 'checked? |gxc[1]#_g153743_|) + (cons (cons 'signature |gxc[1]#_g153744_|) + (cons (cons 'id |gxc[1]#_g153745_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152454 '18 '#f '#f)) - (let ((__tmp152459 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj153374 __tmp153741 '18 '#f '#f)) + (let ((__tmp153746 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152087 __tmp152459 '19 '#f '#f)) + (##unchecked-structure-set! __obj153374 __tmp153746 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152087 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153374 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152087 '() '20 '#f '#f)) - __obj152087)) + (##unchecked-structure-set! __obj153374 '() '20 '#f '#f)) + __obj153374)) (define |gxc[:0:]#!mutator| - (let ((__obj152088 + (let ((__obj153375 (let () (declare (not safe)) (##structure @@ -3631,85 +3631,85 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 'gxc#!mutator::t '1 '#f '#f)) + (##unchecked-structure-set! __obj153375 'gxc#!mutator::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 '!mutator '2 '#f '#f)) + (##unchecked-structure-set! __obj153375 '!mutator '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj153375 '(slot checked?) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152088 + __obj153375 '(id signature slot checked?) '6 '#f '#f)) - (let ((__tmp152460 (cons |gxc[1]#_g152392_| '()))) + (let ((__tmp153747 (cons |gxc[1]#_g153679_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152460 '3 '#f '#f)) + (##unchecked-structure-set! __obj153375 __tmp153747 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153375 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153375 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153375 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 ':init! '11 '#f '#f)) - (let ((__tmp152461 |gxc[1]#_g152462_|)) + (##unchecked-structure-set! __obj153375 ':init! '11 '#f '#f)) + (let ((__tmp153748 |gxc[1]#_g153749_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152461 '12 '#f '#f)) - (let ((__tmp152463 |gxc[1]#_g152464_|)) + (##unchecked-structure-set! __obj153375 __tmp153748 '12 '#f '#f)) + (let ((__tmp153750 |gxc[1]#_g153751_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152463 '13 '#f '#f)) - (let ((__tmp152465 |gxc[1]#_g152466_|)) + (##unchecked-structure-set! __obj153375 __tmp153750 '13 '#f '#f)) + (let ((__tmp153752 |gxc[1]#_g153753_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152465 '14 '#f '#f)) - (let ((__tmp152467 - (cons (cons 'slot |gxc[1]#_g152468_|) - (cons (cons 'checked? |gxc[1]#_g152469_|) - (cons (cons 'signature |gxc[1]#_g152470_|) - (cons (cons 'id |gxc[1]#_g152471_|) '())))))) + (##unchecked-structure-set! __obj153375 __tmp153752 '14 '#f '#f)) + (let ((__tmp153754 + (cons (cons 'slot |gxc[1]#_g153755_|) + (cons (cons 'checked? |gxc[1]#_g153756_|) + (cons (cons 'signature |gxc[1]#_g153757_|) + (cons (cons 'id |gxc[1]#_g153758_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152467 '15 '#f '#f)) - (let ((__tmp152472 - (cons (cons 'slot |gxc[1]#_g152473_|) - (cons (cons 'checked? |gxc[1]#_g152474_|) - (cons (cons 'signature |gxc[1]#_g152475_|) - (cons (cons 'id |gxc[1]#_g152476_|) '())))))) + (##unchecked-structure-set! __obj153375 __tmp153754 '15 '#f '#f)) + (let ((__tmp153759 + (cons (cons 'slot |gxc[1]#_g153760_|) + (cons (cons 'checked? |gxc[1]#_g153761_|) + (cons (cons 'signature |gxc[1]#_g153762_|) + (cons (cons 'id |gxc[1]#_g153763_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152472 '16 '#f '#f)) - (let ((__tmp152477 - (cons (cons 'slot |gxc[1]#_g152478_|) - (cons (cons 'checked? |gxc[1]#_g152479_|) - (cons (cons 'signature |gxc[1]#_g152480_|) - (cons (cons 'id |gxc[1]#_g152481_|) '())))))) + (##unchecked-structure-set! __obj153375 __tmp153759 '16 '#f '#f)) + (let ((__tmp153764 + (cons (cons 'slot |gxc[1]#_g153765_|) + (cons (cons 'checked? |gxc[1]#_g153766_|) + (cons (cons 'signature |gxc[1]#_g153767_|) + (cons (cons 'id |gxc[1]#_g153768_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152477 '17 '#f '#f)) - (let ((__tmp152482 - (cons (cons 'slot |gxc[1]#_g152483_|) - (cons (cons 'checked? |gxc[1]#_g152484_|) - (cons (cons 'signature |gxc[1]#_g152485_|) - (cons (cons 'id |gxc[1]#_g152486_|) '())))))) + (##unchecked-structure-set! __obj153375 __tmp153764 '17 '#f '#f)) + (let ((__tmp153769 + (cons (cons 'slot |gxc[1]#_g153770_|) + (cons (cons 'checked? |gxc[1]#_g153771_|) + (cons (cons 'signature |gxc[1]#_g153772_|) + (cons (cons 'id |gxc[1]#_g153773_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152482 '18 '#f '#f)) - (let ((__tmp152487 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj153375 __tmp153769 '18 '#f '#f)) + (let ((__tmp153774 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152088 __tmp152487 '19 '#f '#f)) + (##unchecked-structure-set! __obj153375 __tmp153774 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153375 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152088 '() '20 '#f '#f)) - __obj152088)) + (##unchecked-structure-set! __obj153375 '() '20 '#f '#f)) + __obj153375)) (define |gxc[:0:]#!interface| - (let ((__obj152089 + (let ((__obj153376 (let () (declare (not safe)) (##structure @@ -3738,76 +3738,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152089 + __obj153376 'gxc#!interface::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '!interface '2 '#f '#f)) + (##unchecked-structure-set! __obj153376 '!interface '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '(methods) '4 '#f '#f)) + (##unchecked-structure-set! __obj153376 '(methods) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '(id methods) '6 '#f '#f)) - (let ((__tmp152488 (cons |gxc[1]#_g152235_| '()))) + (##unchecked-structure-set! __obj153376 '(id methods) '6 '#f '#f)) + (let ((__tmp153775 (cons |gxc[1]#_g153522_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152089 __tmp152488 '3 '#f '#f)) + (##unchecked-structure-set! __obj153376 __tmp153775 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153376 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153376 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153376 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '#f '11 '#f '#f)) - (let ((__tmp152489 |gxc[1]#_g152490_|)) + (##unchecked-structure-set! __obj153376 '#f '11 '#f '#f)) + (let ((__tmp153776 |gxc[1]#_g153777_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152089 __tmp152489 '12 '#f '#f)) - (let ((__tmp152491 |gxc[1]#_g152492_|)) + (##unchecked-structure-set! __obj153376 __tmp153776 '12 '#f '#f)) + (let ((__tmp153778 |gxc[1]#_g153779_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152089 __tmp152491 '13 '#f '#f)) - (let ((__tmp152493 |gxc[1]#_g152494_|)) + (##unchecked-structure-set! __obj153376 __tmp153778 '13 '#f '#f)) + (let ((__tmp153780 |gxc[1]#_g153781_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152089 __tmp152493 '14 '#f '#f)) - (let ((__tmp152495 - (cons (cons 'methods |gxc[1]#_g152496_|) - (cons (cons 'id |gxc[1]#_g152497_|) '())))) + (##unchecked-structure-set! __obj153376 __tmp153780 '14 '#f '#f)) + (let ((__tmp153782 + (cons (cons 'methods |gxc[1]#_g153783_|) + (cons (cons 'id |gxc[1]#_g153784_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152089 __tmp152495 '15 '#f '#f)) - (let ((__tmp152498 - (cons (cons 'methods |gxc[1]#_g152499_|) - (cons (cons 'id |gxc[1]#_g152500_|) '())))) + (##unchecked-structure-set! __obj153376 __tmp153782 '15 '#f '#f)) + (let ((__tmp153785 + (cons (cons 'methods |gxc[1]#_g153786_|) + (cons (cons 'id |gxc[1]#_g153787_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152089 __tmp152498 '16 '#f '#f)) - (let ((__tmp152501 - (cons (cons 'methods |gxc[1]#_g152502_|) - (cons (cons 'id |gxc[1]#_g152503_|) '())))) + (##unchecked-structure-set! __obj153376 __tmp153785 '16 '#f '#f)) + (let ((__tmp153788 + (cons (cons 'methods |gxc[1]#_g153789_|) + (cons (cons 'id |gxc[1]#_g153790_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152089 __tmp152501 '17 '#f '#f)) - (let ((__tmp152504 - (cons (cons 'methods |gxc[1]#_g152505_|) - (cons (cons 'id |gxc[1]#_g152506_|) '())))) + (##unchecked-structure-set! __obj153376 __tmp153788 '17 '#f '#f)) + (let ((__tmp153791 + (cons (cons 'methods |gxc[1]#_g153792_|) + (cons (cons 'id |gxc[1]#_g153793_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152089 __tmp152504 '18 '#f '#f)) + (##unchecked-structure-set! __obj153376 __tmp153791 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153376 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153376 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152089 '() '20 '#f '#f)) - __obj152089)) + (##unchecked-structure-set! __obj153376 '() '20 '#f '#f)) + __obj153376)) (define |gxc[:0:]#!lambda| - (let ((__obj152090 + (let ((__obj153377 (let () (declare (not safe)) (##structure @@ -3835,14 +3835,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152090 'gxc#!lambda::t '1 '#f '#f)) + (##unchecked-structure-set! __obj153377 'gxc#!lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152090 '!lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj153377 '!lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152090 + __obj153377 '(arity dispatch inline inline-typedecl) '4 '#f @@ -3850,99 +3850,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152090 + __obj153377 '(id signature arity dispatch inline inline-typedecl) '6 '#f '#f)) - (let ((__tmp152507 (cons |gxc[1]#_g152392_| '()))) + (let ((__tmp153794 (cons |gxc[1]#_g153679_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152507 '3 '#f '#f)) + (##unchecked-structure-set! __obj153377 __tmp153794 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152090 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153377 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152090 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153377 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152090 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153377 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152090 ':init! '11 '#f '#f)) - (let ((__tmp152508 |gxc[1]#_g152509_|)) + (##unchecked-structure-set! __obj153377 ':init! '11 '#f '#f)) + (let ((__tmp153795 |gxc[1]#_g153796_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152508 '12 '#f '#f)) - (let ((__tmp152510 |gxc[1]#_g152511_|)) + (##unchecked-structure-set! __obj153377 __tmp153795 '12 '#f '#f)) + (let ((__tmp153797 |gxc[1]#_g153798_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152510 '13 '#f '#f)) - (let ((__tmp152512 |gxc[1]#_g152513_|)) + (##unchecked-structure-set! __obj153377 __tmp153797 '13 '#f '#f)) + (let ((__tmp153799 |gxc[1]#_g153800_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152512 '14 '#f '#f)) - (let ((__tmp152514 - (cons (cons 'arity |gxc[1]#_g152515_|) - (cons (cons 'dispatch |gxc[1]#_g152516_|) - (cons (cons 'inline |gxc[1]#_g152517_|) + (##unchecked-structure-set! __obj153377 __tmp153799 '14 '#f '#f)) + (let ((__tmp153801 + (cons (cons 'arity |gxc[1]#_g153802_|) + (cons (cons 'dispatch |gxc[1]#_g153803_|) + (cons (cons 'inline |gxc[1]#_g153804_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152518_|) + |gxc[1]#_g153805_|) (cons (cons 'signature - |gxc[1]#_g152519_|) + |gxc[1]#_g153806_|) (cons (cons 'id - |gxc[1]#_g152520_|) + |gxc[1]#_g153807_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152514 '15 '#f '#f)) - (let ((__tmp152521 - (cons (cons 'arity |gxc[1]#_g152522_|) - (cons (cons 'dispatch |gxc[1]#_g152523_|) - (cons (cons 'inline |gxc[1]#_g152524_|) + (##unchecked-structure-set! __obj153377 __tmp153801 '15 '#f '#f)) + (let ((__tmp153808 + (cons (cons 'arity |gxc[1]#_g153809_|) + (cons (cons 'dispatch |gxc[1]#_g153810_|) + (cons (cons 'inline |gxc[1]#_g153811_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152525_|) + |gxc[1]#_g153812_|) (cons (cons 'signature - |gxc[1]#_g152526_|) + |gxc[1]#_g153813_|) (cons (cons 'id - |gxc[1]#_g152527_|) + |gxc[1]#_g153814_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152521 '16 '#f '#f)) - (let ((__tmp152528 - (cons (cons 'arity |gxc[1]#_g152529_|) - (cons (cons 'dispatch |gxc[1]#_g152530_|) - (cons (cons 'inline |gxc[1]#_g152531_|) + (##unchecked-structure-set! __obj153377 __tmp153808 '16 '#f '#f)) + (let ((__tmp153815 + (cons (cons 'arity |gxc[1]#_g153816_|) + (cons (cons 'dispatch |gxc[1]#_g153817_|) + (cons (cons 'inline |gxc[1]#_g153818_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152532_|) + |gxc[1]#_g153819_|) (cons (cons 'signature - |gxc[1]#_g152533_|) + |gxc[1]#_g153820_|) (cons (cons 'id - |gxc[1]#_g152534_|) + |gxc[1]#_g153821_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152528 '17 '#f '#f)) - (let ((__tmp152535 - (cons (cons 'arity |gxc[1]#_g152536_|) - (cons (cons 'dispatch |gxc[1]#_g152537_|) - (cons (cons 'inline |gxc[1]#_g152538_|) + (##unchecked-structure-set! __obj153377 __tmp153815 '17 '#f '#f)) + (let ((__tmp153822 + (cons (cons 'arity |gxc[1]#_g153823_|) + (cons (cons 'dispatch |gxc[1]#_g153824_|) + (cons (cons 'inline |gxc[1]#_g153825_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152539_|) + |gxc[1]#_g153826_|) (cons (cons 'signature - |gxc[1]#_g152540_|) + |gxc[1]#_g153827_|) (cons (cons 'id - |gxc[1]#_g152541_|) + |gxc[1]#_g153828_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152535 '18 '#f '#f)) - (let ((__tmp152542 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj153377 __tmp153822 '18 '#f '#f)) + (let ((__tmp153829 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152090 __tmp152542 '19 '#f '#f)) + (##unchecked-structure-set! __obj153377 __tmp153829 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152090 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153377 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152090 '() '20 '#f '#f)) - __obj152090)) + (##unchecked-structure-set! __obj153377 '() '20 '#f '#f)) + __obj153377)) (define |gxc[:0:]#!case-lambda| - (let ((__obj152091 + (let ((__obj153378 (let () (declare (not safe)) (##structure @@ -3971,85 +3971,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152091 + __obj153378 'gxc#!case-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152091 '!case-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj153378 '!case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152091 '(clauses) '4 '#f '#f)) + (##unchecked-structure-set! __obj153378 '(clauses) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152091 + __obj153378 '(id signature clauses) '6 '#f '#f)) - (let ((__tmp152543 (cons |gxc[1]#_g152392_| '()))) + (let ((__tmp153830 (cons |gxc[1]#_g153679_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152543 '3 '#f '#f)) + (##unchecked-structure-set! __obj153378 __tmp153830 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152091 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153378 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152091 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153378 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152091 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153378 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152091 ':init! '11 '#f '#f)) - (let ((__tmp152544 |gxc[1]#_g152545_|)) + (##unchecked-structure-set! __obj153378 ':init! '11 '#f '#f)) + (let ((__tmp153831 |gxc[1]#_g153832_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152544 '12 '#f '#f)) - (let ((__tmp152546 |gxc[1]#_g152547_|)) + (##unchecked-structure-set! __obj153378 __tmp153831 '12 '#f '#f)) + (let ((__tmp153833 |gxc[1]#_g153834_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152546 '13 '#f '#f)) - (let ((__tmp152548 |gxc[1]#_g152549_|)) + (##unchecked-structure-set! __obj153378 __tmp153833 '13 '#f '#f)) + (let ((__tmp153835 |gxc[1]#_g153836_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152548 '14 '#f '#f)) - (let ((__tmp152550 - (cons (cons 'clauses |gxc[1]#_g152551_|) - (cons (cons 'signature |gxc[1]#_g152552_|) - (cons (cons 'id |gxc[1]#_g152553_|) '()))))) + (##unchecked-structure-set! __obj153378 __tmp153835 '14 '#f '#f)) + (let ((__tmp153837 + (cons (cons 'clauses |gxc[1]#_g153838_|) + (cons (cons 'signature |gxc[1]#_g153839_|) + (cons (cons 'id |gxc[1]#_g153840_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152550 '15 '#f '#f)) - (let ((__tmp152554 - (cons (cons 'clauses |gxc[1]#_g152555_|) - (cons (cons 'signature |gxc[1]#_g152556_|) - (cons (cons 'id |gxc[1]#_g152557_|) '()))))) + (##unchecked-structure-set! __obj153378 __tmp153837 '15 '#f '#f)) + (let ((__tmp153841 + (cons (cons 'clauses |gxc[1]#_g153842_|) + (cons (cons 'signature |gxc[1]#_g153843_|) + (cons (cons 'id |gxc[1]#_g153844_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152554 '16 '#f '#f)) - (let ((__tmp152558 - (cons (cons 'clauses |gxc[1]#_g152559_|) - (cons (cons 'signature |gxc[1]#_g152560_|) - (cons (cons 'id |gxc[1]#_g152561_|) '()))))) + (##unchecked-structure-set! __obj153378 __tmp153841 '16 '#f '#f)) + (let ((__tmp153845 + (cons (cons 'clauses |gxc[1]#_g153846_|) + (cons (cons 'signature |gxc[1]#_g153847_|) + (cons (cons 'id |gxc[1]#_g153848_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152558 '17 '#f '#f)) - (let ((__tmp152562 - (cons (cons 'clauses |gxc[1]#_g152563_|) - (cons (cons 'signature |gxc[1]#_g152564_|) - (cons (cons 'id |gxc[1]#_g152565_|) '()))))) + (##unchecked-structure-set! __obj153378 __tmp153845 '17 '#f '#f)) + (let ((__tmp153849 + (cons (cons 'clauses |gxc[1]#_g153850_|) + (cons (cons 'signature |gxc[1]#_g153851_|) + (cons (cons 'id |gxc[1]#_g153852_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152562 '18 '#f '#f)) - (let ((__tmp152566 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj153378 __tmp153849 '18 '#f '#f)) + (let ((__tmp153853 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152091 __tmp152566 '19 '#f '#f)) + (##unchecked-structure-set! __obj153378 __tmp153853 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152091 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153378 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152091 '() '20 '#f '#f)) - __obj152091)) + (##unchecked-structure-set! __obj153378 '() '20 '#f '#f)) + __obj153378)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj152092 + (let ((__obj153379 (let () (declare (not safe)) (##structure @@ -4078,18 +4078,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152092 + __obj153379 'gxc#!kw-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152092 '!kw-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj153379 '!kw-lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152092 + __obj153379 '(table dispatch) '4 '#f @@ -4097,75 +4097,75 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152092 + __obj153379 '(id signature table dispatch) '6 '#f '#f)) - (let ((__tmp152567 (cons |gxc[1]#_g152392_| '()))) + (let ((__tmp153854 (cons |gxc[1]#_g153679_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152567 '3 '#f '#f)) + (##unchecked-structure-set! __obj153379 __tmp153854 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152092 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153379 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152092 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153379 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152092 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153379 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152092 ':init! '11 '#f '#f)) - (let ((__tmp152568 |gxc[1]#_g152569_|)) + (##unchecked-structure-set! __obj153379 ':init! '11 '#f '#f)) + (let ((__tmp153855 |gxc[1]#_g153856_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152568 '12 '#f '#f)) - (let ((__tmp152570 |gxc[1]#_g152571_|)) + (##unchecked-structure-set! __obj153379 __tmp153855 '12 '#f '#f)) + (let ((__tmp153857 |gxc[1]#_g153858_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152570 '13 '#f '#f)) - (let ((__tmp152572 |gxc[1]#_g152573_|)) + (##unchecked-structure-set! __obj153379 __tmp153857 '13 '#f '#f)) + (let ((__tmp153859 |gxc[1]#_g153860_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152572 '14 '#f '#f)) - (let ((__tmp152574 - (cons (cons 'table |gxc[1]#_g152575_|) - (cons (cons 'dispatch |gxc[1]#_g152576_|) - (cons (cons 'signature |gxc[1]#_g152577_|) - (cons (cons 'id |gxc[1]#_g152578_|) '())))))) + (##unchecked-structure-set! __obj153379 __tmp153859 '14 '#f '#f)) + (let ((__tmp153861 + (cons (cons 'table |gxc[1]#_g153862_|) + (cons (cons 'dispatch |gxc[1]#_g153863_|) + (cons (cons 'signature |gxc[1]#_g153864_|) + (cons (cons 'id |gxc[1]#_g153865_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152574 '15 '#f '#f)) - (let ((__tmp152579 - (cons (cons 'table |gxc[1]#_g152580_|) - (cons (cons 'dispatch |gxc[1]#_g152581_|) - (cons (cons 'signature |gxc[1]#_g152582_|) - (cons (cons 'id |gxc[1]#_g152583_|) '())))))) + (##unchecked-structure-set! __obj153379 __tmp153861 '15 '#f '#f)) + (let ((__tmp153866 + (cons (cons 'table |gxc[1]#_g153867_|) + (cons (cons 'dispatch |gxc[1]#_g153868_|) + (cons (cons 'signature |gxc[1]#_g153869_|) + (cons (cons 'id |gxc[1]#_g153870_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152579 '16 '#f '#f)) - (let ((__tmp152584 - (cons (cons 'table |gxc[1]#_g152585_|) - (cons (cons 'dispatch |gxc[1]#_g152586_|) - (cons (cons 'signature |gxc[1]#_g152587_|) - (cons (cons 'id |gxc[1]#_g152588_|) '())))))) + (##unchecked-structure-set! __obj153379 __tmp153866 '16 '#f '#f)) + (let ((__tmp153871 + (cons (cons 'table |gxc[1]#_g153872_|) + (cons (cons 'dispatch |gxc[1]#_g153873_|) + (cons (cons 'signature |gxc[1]#_g153874_|) + (cons (cons 'id |gxc[1]#_g153875_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152584 '17 '#f '#f)) - (let ((__tmp152589 - (cons (cons 'table |gxc[1]#_g152590_|) - (cons (cons 'dispatch |gxc[1]#_g152591_|) - (cons (cons 'signature |gxc[1]#_g152592_|) - (cons (cons 'id |gxc[1]#_g152593_|) '())))))) + (##unchecked-structure-set! __obj153379 __tmp153871 '17 '#f '#f)) + (let ((__tmp153876 + (cons (cons 'table |gxc[1]#_g153877_|) + (cons (cons 'dispatch |gxc[1]#_g153878_|) + (cons (cons 'signature |gxc[1]#_g153879_|) + (cons (cons 'id |gxc[1]#_g153880_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152589 '18 '#f '#f)) - (let ((__tmp152594 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj153379 __tmp153876 '18 '#f '#f)) + (let ((__tmp153881 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152092 __tmp152594 '19 '#f '#f)) + (##unchecked-structure-set! __obj153379 __tmp153881 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152092 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153379 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152092 '() '20 '#f '#f)) - __obj152092)) + (##unchecked-structure-set! __obj153379 '() '20 '#f '#f)) + __obj153379)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj152093 + (let ((__obj153380 (let () (declare (not safe)) (##structure @@ -4194,7 +4194,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152093 + __obj153380 'gxc#!kw-lambda-primary::t '1 '#f @@ -4202,86 +4202,86 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152093 + __obj153380 '!kw-lambda-primary '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152093 '(keys main) '4 '#f '#f)) + (##unchecked-structure-set! __obj153380 '(keys main) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152093 + __obj153380 '(id signature keys main) '6 '#f '#f)) - (let ((__tmp152595 (cons |gxc[1]#_g152392_| '()))) + (let ((__tmp153882 (cons |gxc[1]#_g153679_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152595 '3 '#f '#f)) + (##unchecked-structure-set! __obj153380 __tmp153882 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152093 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153380 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152093 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153380 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152093 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153380 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152093 ':init! '11 '#f '#f)) - (let ((__tmp152596 |gxc[1]#_g152597_|)) + (##unchecked-structure-set! __obj153380 ':init! '11 '#f '#f)) + (let ((__tmp153883 |gxc[1]#_g153884_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152596 '12 '#f '#f)) - (let ((__tmp152598 |gxc[1]#_g152599_|)) + (##unchecked-structure-set! __obj153380 __tmp153883 '12 '#f '#f)) + (let ((__tmp153885 |gxc[1]#_g153886_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152598 '13 '#f '#f)) - (let ((__tmp152600 |gxc[1]#_g152601_|)) + (##unchecked-structure-set! __obj153380 __tmp153885 '13 '#f '#f)) + (let ((__tmp153887 |gxc[1]#_g153888_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152600 '14 '#f '#f)) - (let ((__tmp152602 - (cons (cons 'keys |gxc[1]#_g152603_|) - (cons (cons 'main |gxc[1]#_g152604_|) - (cons (cons 'signature |gxc[1]#_g152605_|) - (cons (cons 'id |gxc[1]#_g152606_|) '())))))) + (##unchecked-structure-set! __obj153380 __tmp153887 '14 '#f '#f)) + (let ((__tmp153889 + (cons (cons 'keys |gxc[1]#_g153890_|) + (cons (cons 'main |gxc[1]#_g153891_|) + (cons (cons 'signature |gxc[1]#_g153892_|) + (cons (cons 'id |gxc[1]#_g153893_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152602 '15 '#f '#f)) - (let ((__tmp152607 - (cons (cons 'keys |gxc[1]#_g152608_|) - (cons (cons 'main |gxc[1]#_g152609_|) - (cons (cons 'signature |gxc[1]#_g152610_|) - (cons (cons 'id |gxc[1]#_g152611_|) '())))))) + (##unchecked-structure-set! __obj153380 __tmp153889 '15 '#f '#f)) + (let ((__tmp153894 + (cons (cons 'keys |gxc[1]#_g153895_|) + (cons (cons 'main |gxc[1]#_g153896_|) + (cons (cons 'signature |gxc[1]#_g153897_|) + (cons (cons 'id |gxc[1]#_g153898_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152607 '16 '#f '#f)) - (let ((__tmp152612 - (cons (cons 'keys |gxc[1]#_g152613_|) - (cons (cons 'main |gxc[1]#_g152614_|) - (cons (cons 'signature |gxc[1]#_g152615_|) - (cons (cons 'id |gxc[1]#_g152616_|) '())))))) + (##unchecked-structure-set! __obj153380 __tmp153894 '16 '#f '#f)) + (let ((__tmp153899 + (cons (cons 'keys |gxc[1]#_g153900_|) + (cons (cons 'main |gxc[1]#_g153901_|) + (cons (cons 'signature |gxc[1]#_g153902_|) + (cons (cons 'id |gxc[1]#_g153903_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152612 '17 '#f '#f)) - (let ((__tmp152617 - (cons (cons 'keys |gxc[1]#_g152618_|) - (cons (cons 'main |gxc[1]#_g152619_|) - (cons (cons 'signature |gxc[1]#_g152620_|) - (cons (cons 'id |gxc[1]#_g152621_|) '())))))) + (##unchecked-structure-set! __obj153380 __tmp153899 '17 '#f '#f)) + (let ((__tmp153904 + (cons (cons 'keys |gxc[1]#_g153905_|) + (cons (cons 'main |gxc[1]#_g153906_|) + (cons (cons 'signature |gxc[1]#_g153907_|) + (cons (cons 'id |gxc[1]#_g153908_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152617 '18 '#f '#f)) - (let ((__tmp152622 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj153380 __tmp153904 '18 '#f '#f)) + (let ((__tmp153909 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152093 __tmp152622 '19 '#f '#f)) + (##unchecked-structure-set! __obj153380 __tmp153909 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152093 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153380 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152093 '() '20 '#f '#f)) - __obj152093)) + (##unchecked-structure-set! __obj153380 '() '20 '#f '#f)) + __obj153380)) (define |gxc[:0:]#!primitive| - (let ((__obj152094 + (let ((__obj153381 (let () (declare (not safe)) (##structure @@ -4310,68 +4310,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj153381 'gxc#!primitive::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '!primitive '2 '#f '#f)) + (##unchecked-structure-set! __obj153381 '!primitive '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153381 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153381 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153381 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '#f '11 '#f '#f)) - (let ((__tmp152623 |gxc[1]#_g152624_|)) + (##unchecked-structure-set! __obj153381 '#f '11 '#f '#f)) + (let ((__tmp153910 |gxc[1]#_g153911_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152094 __tmp152623 '12 '#f '#f)) - (let ((__tmp152625 |gxc[1]#_g152626_|)) + (##unchecked-structure-set! __obj153381 __tmp153910 '12 '#f '#f)) + (let ((__tmp153912 |gxc[1]#_g153913_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152094 __tmp152625 '13 '#f '#f)) - (let ((__tmp152627 |gxc[1]#_g152628_|)) + (##unchecked-structure-set! __obj153381 __tmp153912 '13 '#f '#f)) + (let ((__tmp153914 |gxc[1]#_g153915_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152094 __tmp152627 '14 '#f '#f)) + (##unchecked-structure-set! __obj153381 __tmp153914 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153381 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152094 '() '20 '#f '#f)) - __obj152094)) + (##unchecked-structure-set! __obj153381 '() '20 '#f '#f)) + __obj153381)) (define |gxc[:0:]#!primitive-predicate| - (let ((__obj152095 + (let ((__obj153382 (let () (declare (not safe)) (##structure @@ -4400,7 +4400,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152095 + __obj153382 'gxc#!primitive-predicate::t '1 '#f @@ -4408,74 +4408,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152095 + __obj153382 '!primitive-predicate '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152095 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153382 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152095 '(id signature) '6 '#f '#f)) - (let ((__tmp152629 - (cons |gxc[1]#_g152630_| (cons |gxc[1]#_g152392_| '())))) + (##unchecked-structure-set! __obj153382 '(id signature) '6 '#f '#f)) + (let ((__tmp153916 + (cons |gxc[1]#_g153917_| (cons |gxc[1]#_g153679_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152629 '3 '#f '#f)) + (##unchecked-structure-set! __obj153382 __tmp153916 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152095 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153382 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152095 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153382 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152095 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153382 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152095 ':init! '11 '#f '#f)) - (let ((__tmp152631 |gxc[1]#_g152632_|)) + (##unchecked-structure-set! __obj153382 ':init! '11 '#f '#f)) + (let ((__tmp153918 |gxc[1]#_g153919_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152631 '12 '#f '#f)) - (let ((__tmp152633 |gxc[1]#_g152634_|)) + (##unchecked-structure-set! __obj153382 __tmp153918 '12 '#f '#f)) + (let ((__tmp153920 |gxc[1]#_g153921_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152633 '13 '#f '#f)) - (let ((__tmp152635 |gxc[1]#_g152636_|)) + (##unchecked-structure-set! __obj153382 __tmp153920 '13 '#f '#f)) + (let ((__tmp153922 |gxc[1]#_g153923_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152635 '14 '#f '#f)) - (let ((__tmp152637 - (cons (cons 'signature |gxc[1]#_g152638_|) - (cons (cons 'id |gxc[1]#_g152639_|) '())))) + (##unchecked-structure-set! __obj153382 __tmp153922 '14 '#f '#f)) + (let ((__tmp153924 + (cons (cons 'signature |gxc[1]#_g153925_|) + (cons (cons 'id |gxc[1]#_g153926_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152637 '15 '#f '#f)) - (let ((__tmp152640 - (cons (cons 'signature |gxc[1]#_g152641_|) - (cons (cons 'id |gxc[1]#_g152642_|) '())))) + (##unchecked-structure-set! __obj153382 __tmp153924 '15 '#f '#f)) + (let ((__tmp153927 + (cons (cons 'signature |gxc[1]#_g153928_|) + (cons (cons 'id |gxc[1]#_g153929_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152640 '16 '#f '#f)) - (let ((__tmp152643 - (cons (cons 'signature |gxc[1]#_g152644_|) - (cons (cons 'id |gxc[1]#_g152645_|) '())))) + (##unchecked-structure-set! __obj153382 __tmp153927 '16 '#f '#f)) + (let ((__tmp153930 + (cons (cons 'signature |gxc[1]#_g153931_|) + (cons (cons 'id |gxc[1]#_g153932_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152643 '17 '#f '#f)) - (let ((__tmp152646 - (cons (cons 'signature |gxc[1]#_g152647_|) - (cons (cons 'id |gxc[1]#_g152648_|) '())))) + (##unchecked-structure-set! __obj153382 __tmp153930 '17 '#f '#f)) + (let ((__tmp153933 + (cons (cons 'signature |gxc[1]#_g153934_|) + (cons (cons 'id |gxc[1]#_g153935_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152646 '18 '#f '#f)) - (let ((__tmp152649 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj153382 __tmp153933 '18 '#f '#f)) + (let ((__tmp153936 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152095 __tmp152649 '19 '#f '#f)) + (##unchecked-structure-set! __obj153382 __tmp153936 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152095 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153382 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152095 '() '20 '#f '#f)) - __obj152095)) + (##unchecked-structure-set! __obj153382 '() '20 '#f '#f)) + __obj153382)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj152096 + (let ((__obj153383 (let () (declare (not safe)) (##structure @@ -4504,7 +4504,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152096 + __obj153383 'gxc#!primitive-lambda::t '1 '#f @@ -4512,111 +4512,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152096 + __obj153383 '!primitive-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152096 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153383 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152096 + __obj153383 '(id signature arity dispatch inline inline-typedecl) '6 '#f '#f)) - (let ((__tmp152650 - (cons |gxc[1]#_g152630_| (cons |gxc[1]#_g152651_| '())))) + (let ((__tmp153937 + (cons |gxc[1]#_g153917_| (cons |gxc[1]#_g153938_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152650 '3 '#f '#f)) + (##unchecked-structure-set! __obj153383 __tmp153937 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152096 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153383 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152096 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153383 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152096 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153383 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152096 ':init! '11 '#f '#f)) - (let ((__tmp152652 |gxc[1]#_g152653_|)) + (##unchecked-structure-set! __obj153383 ':init! '11 '#f '#f)) + (let ((__tmp153939 |gxc[1]#_g153940_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152652 '12 '#f '#f)) - (let ((__tmp152654 |gxc[1]#_g152655_|)) + (##unchecked-structure-set! __obj153383 __tmp153939 '12 '#f '#f)) + (let ((__tmp153941 |gxc[1]#_g153942_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152654 '13 '#f '#f)) - (let ((__tmp152656 |gxc[1]#_g152657_|)) + (##unchecked-structure-set! __obj153383 __tmp153941 '13 '#f '#f)) + (let ((__tmp153943 |gxc[1]#_g153944_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152656 '14 '#f '#f)) - (let ((__tmp152658 - (cons (cons 'arity |gxc[1]#_g152659_|) - (cons (cons 'dispatch |gxc[1]#_g152660_|) - (cons (cons 'inline |gxc[1]#_g152661_|) + (##unchecked-structure-set! __obj153383 __tmp153943 '14 '#f '#f)) + (let ((__tmp153945 + (cons (cons 'arity |gxc[1]#_g153946_|) + (cons (cons 'dispatch |gxc[1]#_g153947_|) + (cons (cons 'inline |gxc[1]#_g153948_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152662_|) + |gxc[1]#_g153949_|) (cons (cons 'signature - |gxc[1]#_g152663_|) + |gxc[1]#_g153950_|) (cons (cons 'id - |gxc[1]#_g152664_|) + |gxc[1]#_g153951_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152658 '15 '#f '#f)) - (let ((__tmp152665 - (cons (cons 'arity |gxc[1]#_g152666_|) - (cons (cons 'dispatch |gxc[1]#_g152667_|) - (cons (cons 'inline |gxc[1]#_g152668_|) + (##unchecked-structure-set! __obj153383 __tmp153945 '15 '#f '#f)) + (let ((__tmp153952 + (cons (cons 'arity |gxc[1]#_g153953_|) + (cons (cons 'dispatch |gxc[1]#_g153954_|) + (cons (cons 'inline |gxc[1]#_g153955_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152669_|) + |gxc[1]#_g153956_|) (cons (cons 'signature - |gxc[1]#_g152670_|) + |gxc[1]#_g153957_|) (cons (cons 'id - |gxc[1]#_g152671_|) + |gxc[1]#_g153958_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152665 '16 '#f '#f)) - (let ((__tmp152672 - (cons (cons 'arity |gxc[1]#_g152673_|) - (cons (cons 'dispatch |gxc[1]#_g152674_|) - (cons (cons 'inline |gxc[1]#_g152675_|) + (##unchecked-structure-set! __obj153383 __tmp153952 '16 '#f '#f)) + (let ((__tmp153959 + (cons (cons 'arity |gxc[1]#_g153960_|) + (cons (cons 'dispatch |gxc[1]#_g153961_|) + (cons (cons 'inline |gxc[1]#_g153962_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152676_|) + |gxc[1]#_g153963_|) (cons (cons 'signature - |gxc[1]#_g152677_|) + |gxc[1]#_g153964_|) (cons (cons 'id - |gxc[1]#_g152678_|) + |gxc[1]#_g153965_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152672 '17 '#f '#f)) - (let ((__tmp152679 - (cons (cons 'arity |gxc[1]#_g152680_|) - (cons (cons 'dispatch |gxc[1]#_g152681_|) - (cons (cons 'inline |gxc[1]#_g152682_|) + (##unchecked-structure-set! __obj153383 __tmp153959 '17 '#f '#f)) + (let ((__tmp153966 + (cons (cons 'arity |gxc[1]#_g153967_|) + (cons (cons 'dispatch |gxc[1]#_g153968_|) + (cons (cons 'inline |gxc[1]#_g153969_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152683_|) + |gxc[1]#_g153970_|) (cons (cons 'signature - |gxc[1]#_g152684_|) + |gxc[1]#_g153971_|) (cons (cons 'id - |gxc[1]#_g152685_|) + |gxc[1]#_g153972_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152679 '18 '#f '#f)) - (let ((__tmp152686 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj153383 __tmp153966 '18 '#f '#f)) + (let ((__tmp153973 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152096 __tmp152686 '19 '#f '#f)) + (##unchecked-structure-set! __obj153383 __tmp153973 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152096 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153383 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152096 '() '20 '#f '#f)) - __obj152096)) + (##unchecked-structure-set! __obj153383 '() '20 '#f '#f)) + __obj153383)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj152097 + (let ((__obj153384 (let () (declare (not safe)) (##structure @@ -4645,7 +4645,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152097 + __obj153384 'gxc#!primitive-case-lambda::t '1 '#f @@ -4653,78 +4653,78 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152097 + __obj153384 '!primitive-case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152097 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153384 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152097 + __obj153384 '(id signature clauses) '6 '#f '#f)) - (let ((__tmp152687 - (cons |gxc[1]#_g152630_| (cons |gxc[1]#_g152688_| '())))) + (let ((__tmp153974 + (cons |gxc[1]#_g153917_| (cons |gxc[1]#_g153975_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152687 '3 '#f '#f)) + (##unchecked-structure-set! __obj153384 __tmp153974 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152097 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj153384 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152097 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153384 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152097 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153384 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152097 ':init! '11 '#f '#f)) - (let ((__tmp152689 |gxc[1]#_g152690_|)) + (##unchecked-structure-set! __obj153384 ':init! '11 '#f '#f)) + (let ((__tmp153976 |gxc[1]#_g153977_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152689 '12 '#f '#f)) - (let ((__tmp152691 |gxc[1]#_g152692_|)) + (##unchecked-structure-set! __obj153384 __tmp153976 '12 '#f '#f)) + (let ((__tmp153978 |gxc[1]#_g153979_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152691 '13 '#f '#f)) - (let ((__tmp152693 |gxc[1]#_g152694_|)) + (##unchecked-structure-set! __obj153384 __tmp153978 '13 '#f '#f)) + (let ((__tmp153980 |gxc[1]#_g153981_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152693 '14 '#f '#f)) - (let ((__tmp152695 - (cons (cons 'clauses |gxc[1]#_g152696_|) - (cons (cons 'signature |gxc[1]#_g152697_|) - (cons (cons 'id |gxc[1]#_g152698_|) '()))))) + (##unchecked-structure-set! __obj153384 __tmp153980 '14 '#f '#f)) + (let ((__tmp153982 + (cons (cons 'clauses |gxc[1]#_g153983_|) + (cons (cons 'signature |gxc[1]#_g153984_|) + (cons (cons 'id |gxc[1]#_g153985_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152695 '15 '#f '#f)) - (let ((__tmp152699 - (cons (cons 'clauses |gxc[1]#_g152700_|) - (cons (cons 'signature |gxc[1]#_g152701_|) - (cons (cons 'id |gxc[1]#_g152702_|) '()))))) + (##unchecked-structure-set! __obj153384 __tmp153982 '15 '#f '#f)) + (let ((__tmp153986 + (cons (cons 'clauses |gxc[1]#_g153987_|) + (cons (cons 'signature |gxc[1]#_g153988_|) + (cons (cons 'id |gxc[1]#_g153989_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152699 '16 '#f '#f)) - (let ((__tmp152703 - (cons (cons 'clauses |gxc[1]#_g152704_|) - (cons (cons 'signature |gxc[1]#_g152705_|) - (cons (cons 'id |gxc[1]#_g152706_|) '()))))) + (##unchecked-structure-set! __obj153384 __tmp153986 '16 '#f '#f)) + (let ((__tmp153990 + (cons (cons 'clauses |gxc[1]#_g153991_|) + (cons (cons 'signature |gxc[1]#_g153992_|) + (cons (cons 'id |gxc[1]#_g153993_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152703 '17 '#f '#f)) - (let ((__tmp152707 - (cons (cons 'clauses |gxc[1]#_g152708_|) - (cons (cons 'signature |gxc[1]#_g152709_|) - (cons (cons 'id |gxc[1]#_g152710_|) '()))))) + (##unchecked-structure-set! __obj153384 __tmp153990 '17 '#f '#f)) + (let ((__tmp153994 + (cons (cons 'clauses |gxc[1]#_g153995_|) + (cons (cons 'signature |gxc[1]#_g153996_|) + (cons (cons 'id |gxc[1]#_g153997_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152707 '18 '#f '#f)) - (let ((__tmp152711 (cons (cons 'signature |gxc[1]#_g152315_|) '()))) + (##unchecked-structure-set! __obj153384 __tmp153994 '18 '#f '#f)) + (let ((__tmp153998 (cons (cons 'signature |gxc[1]#_g153602_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152097 __tmp152711 '19 '#f '#f)) + (##unchecked-structure-set! __obj153384 __tmp153998 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152097 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153384 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152097 '() '20 '#f '#f)) - __obj152097)))) + (##unchecked-structure-set! __obj153384 '() '20 '#f '#f)) + __obj153384)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~0.scm b/src/bootstrap/gerbil/compiler/optimize-call~0.scm index e1ef26713..86f5e14ed 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 1713631273) + (define gerbil/compiler/optimize-call::timestamp 1734357968) (begin (define gxc#::optimize-call::t - (let ((__tmp197148 (list gxc#::basic-xform::t)) - (__tmp197147 (cons (cons 'final: '#t) '()))) + (let ((__tmp198435 (list gxc#::basic-xform::t)) + (__tmp198434 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::optimize-call::t '::optimize-call - __tmp197148 + __tmp198435 '() - __tmp197147 + __tmp198434 '#f))) (define gxc#::optimize-call? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-call::t))) (define gxc#make-::optimize-call - (lambda _%$args196425%_ - (apply make-instance gxc#::optimize-call::t _%$args196425%_))) + (lambda _%$args197712%_ + (apply make-instance gxc#::optimize-call::t _%$args197712%_))) (define gxc#::optimize-call-bind-methods! - (let ((__tmp197149 + (let ((__tmp198436 (lambda () (force gxc#::basic-xform-bind-methods!) (let () @@ -40,46 +40,46 @@ (declare (not safe)) (__seal-class! gxc#::optimize-call::t))))) (declare (not safe)) - (__make-promise __tmp197149))) + (__make-promise __tmp198436))) (define gxc#apply-optimize-call - (lambda (_%stx196417%_) + (lambda (_%stx197704%_) (force gxc#::optimize-call-bind-methods!) - (let* ((_%self196420%_ - (let ((__obj197139 + (let* ((_%self197707%_ + (let ((__obj198426 (let () (declare (not safe)) (##structure gxc#::optimize-call::t)))) - __obj197139)) - (__tmp197150 + __obj198426)) + (__tmp198437 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self196420%_ _%stx196417%_))))) + (gxc#compile-e__1 _%self197707%_ _%stx197704%_))))) (declare (not safe)) (__call-with-parameters - __tmp197150 + __tmp198437 gxc#current-compile-method - _%self196420%_)))) + _%self197707%_)))) (define gxc#::check-return-type::t - (let ((__tmp197152 (list gxc#::void::t)) - (__tmp197151 (cons (cons 'final: '#t) '()))) + (let ((__tmp198439 (list gxc#::void::t)) + (__tmp198438 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::check-return-type::t '::check-return-type - __tmp197152 + __tmp198439 '() - __tmp197151 + __tmp198438 '#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 _%$args196414%_ - (apply make-instance gxc#::check-return-type::t _%$args196414%_))) + (lambda _%$args197701%_ + (apply make-instance gxc#::check-return-type::t _%$args197701%_))) (define gxc#::check-return-type-bind-methods! - (let ((__tmp197153 + (let ((__tmp198440 (lambda () (force gxc#::void-bind-methods!) (let () @@ -170,154 +170,154 @@ (declare (not safe)) (__seal-class! gxc#::check-return-type::t))))) (declare (not safe)) - (__make-promise __tmp197153))) + (__make-promise __tmp198440))) (define gxc#apply-check-return-type - (lambda (_%stx196406%_) + (lambda (_%stx197693%_) (force gxc#::check-return-type-bind-methods!) - (let* ((_%self196409%_ - (let ((__obj197141 + (let* ((_%self197696%_ + (let ((__obj198428 (let () (declare (not safe)) (##structure gxc#::check-return-type::t)))) - __obj197141)) - (__tmp197154 + __obj198428)) + (__tmp198441 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self196409%_ _%stx196406%_))))) + (gxc#compile-e__1 _%self197696%_ _%stx197693%_))))) (declare (not safe)) (__call-with-parameters - __tmp197154 + __tmp198441 gxc#current-compile-method - _%self196409%_)))) + _%self197696%_)))) (define gxc#optimize-call% - (lambda (_%self196007%_ _%stx196008%_) - (let* ((_%__stx196494196495%_ _%stx196008%_) - (_%g196011196057%_ + (lambda (_%self197294%_ _%stx197295%_) + (let* ((_%__stx197781197782%_ _%stx197295%_) + (_%g197298197344%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196494196495%_))))) - (let ((_%__kont196496196497%_ - (lambda (_%L196200%_ _%L196201%_) - (let* ((_%rator-id196221%_ + _%__stx197781197782%_))))) + (let ((_%__kont197783197784%_ + (lambda (_%L197487%_ _%L197488%_) + (let* ((_%rator-id197508%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L196201%_))) - (_%rator-type196223%_ + (gxc#identifier-symbol _%L197488%_))) + (_%rator-type197510%_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _%rator-id196221%_)))) - (if (or (not _%rator-type196223%_) + (gxc#optimizer-resolve-type _%rator-id197508%_)))) + (if (or (not _%rator-type197510%_) (eq? (##structure-ref - _%rator-type196223%_ + _%rator-type197510%_ '1 gxc#!type::t '#f) 't)) (let () (declare (not safe)) - (gxc#xform-call% _%self196007%_ _%stx196008%_)) + (gxc#xform-call% _%self197294%_ _%stx197295%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196223%_ + _%rator-type197510%_ 'gxc#!procedure::t)) (let () - (let ((__tmp197155 + (let ((__tmp198442 (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type196223%_ + _%rator-type197510%_ '1 '#f '#f)))) (declare (not safe)) (gxc#verbose '"optimize-call " - _%rator-id196221%_ + _%rator-id197508%_ '" => " - _%rator-type196223%_ + _%rator-type197510%_ '" " - __tmp197155)) - (let* ((_%optimized196238%_ - (let ((__method197142 + __tmp198442)) + (let* ((_%optimized197525%_ + (let ((__method198429 (let () (declare (not safe)) (__method-ref - _%rator-type196223%_ + _%rator-type197510%_ 'optimize-call)))) - (if __method197142 - (let ((__tmp197156 - (let ((__tmp197157 - (lambda (_%g196230196233%_ + (if __method198429 + (let ((__tmp198443 + (let ((__tmp198444 + (lambda (_%g197517197520%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g196231196235%_) - (cons _%g196230196233%_ _%g196231196235%_)))) + _%g197518197522%_) + (cons _%g197517197520%_ _%g197518197522%_)))) (declare (not safe)) - (__foldr1 __tmp197157 '() _%L196200%_)))) + (__foldr1 __tmp198444 '() _%L197487%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (__method197142 - _%rator-type196223%_ - _%self196007%_ - _%stx196008%_ - __tmp197156)) + (__method198429 + _%rator-type197510%_ + _%self197294%_ + _%stx197295%_ + __tmp198443)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type196223%_ + _%rator-type197510%_ 'optimize-call)) '#!void)))) - (_%__stx196442196443%_ - _%optimized196238%_) - (_%g196241196270%_ + (_%__stx197729197730%_ + _%optimized197525%_) + (_%g197528197557%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196442196443%_))))) - (let ((_%__kont196444196445%_ - (lambda (_%L196338%_ _%L196339%_) - (let* ((_%optimized-rator-id196366%_ + _%__stx197729197730%_))))) + (let ((_%__kont197731197732%_ + (lambda (_%L197625%_ _%L197626%_) + (let* ((_%optimized-rator-id197653%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L196339%_))) - (_%rator-type196371%_ - (let ((_%$e196368%_ + _%L197626%_))) + (_%rator-type197658%_ + (let ((_%$e197655%_ (let () (declare (not safe)) (gxc#optimizer-lookup-type - _%optimized-rator-id196366%_)))) - (if _%$e196368%_ - _%$e196368%_ - _%rator-type196223%_)))) + _%optimized-rator-id197653%_)))) + (if _%$e197655%_ + _%$e197655%_ + _%rator-type197510%_)))) (if (or (let () (declare (not safe)) (class-instance? gxc#!primitive::t - _%rator-type196371%_)) + _%rator-type197658%_)) (let () (declare (not safe)) - (##memq _%optimized-rator-id196366%_ + (##memq _%optimized-rator-id197653%_ gxc#checked-primitives)) (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196371%_ + _%rator-type197658%_ 'gxc#!procedure::t)) (eq? (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#!procedure-origin _%rator-type196371%_)) + (gxc#!procedure-origin _%rator-type197658%_)) (##structure-ref (let () (declare (not safe)) @@ -326,226 +326,226 @@ gx#expander-context::t '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%optimized196238%_ - (let ((__tmp197158 + _%optimized197525%_ + (let ((__tmp198445 (cons '%#call-unchecked (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L196339%_ '())) - (let ((__tmp197159 - (lambda (_%g196379196382%_ _%g196380196384%_) - (cons _%g196379196382%_ - _%g196380196384%_)))) + (cons _%L197626%_ '())) + (let ((__tmp198446 + (lambda (_%g197666197669%_ _%g197667197671%_) + (cons _%g197666197669%_ + _%g197667197671%_)))) (declare (not safe)) - (__foldr1 __tmp197159 '() _%L196338%_)))))) + (__foldr1 __tmp198446 '() _%L197625%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197158 - _%stx196008%_)))))) - (_%__kont196448196449%_ - (lambda () _%optimized196238%_))) - (let ((_%__match196491196492%_ - (lambda (_%e196245196282%_ - _%hd196246196285%_ - _%tl196247196287%_ - _%e196248196290%_ - _%hd196249196293%_ - _%tl196250196295%_ - _%e196251196298%_ - _%hd196252196301%_ - _%tl196253196303%_ - _%e196254196306%_ - _%hd196255196309%_ - _%tl196256196311%_ - _%__splice196446196447%_ - _%target196257196314%_ - _%tl196259196316%_) - (letrec ((_%loop196260196319%_ - (lambda (_%hd196258196322%_ - _%arg196264196324%_) + __tmp198445 + _%stx197295%_)))))) + (_%__kont197735197736%_ + (lambda () _%optimized197525%_))) + (let ((_%__match197778197779%_ + (lambda (_%e197532197569%_ + _%hd197533197572%_ + _%tl197534197574%_ + _%e197535197577%_ + _%hd197536197580%_ + _%tl197537197582%_ + _%e197538197585%_ + _%hd197539197588%_ + _%tl197540197590%_ + _%e197541197593%_ + _%hd197542197596%_ + _%tl197543197598%_ + _%__splice197733197734%_ + _%target197544197601%_ + _%tl197546197603%_) + (letrec ((_%loop197547197606%_ + (lambda (_%hd197545197609%_ + _%arg197551197611%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd196258196322%_)) - (let ((_%e196261196327%_ + _%hd197545197609%_)) + (let ((_%e197548197614%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd196258196322%_)))) - (let ((_%lp-tl196263196332%_ + (gx#stx-e _%hd197545197609%_)))) + (let ((_%lp-tl197550197619%_ (let () (declare (not safe)) - (##cdr _%e196261196327%_))) - (_%lp-hd196262196330%_ + (##cdr _%e197548197614%_))) + (_%lp-hd197549197617%_ (let () (declare (not safe)) - (##car _%e196261196327%_)))) - (_%loop196260196319%_ - _%lp-tl196263196332%_ - (cons _%lp-hd196262196330%_ _%arg196264196324%_)))) - (let ((_%arg196265196335%_ (reverse _%arg196264196324%_))) - (_%__kont196444196445%_ - _%arg196265196335%_ - _%hd196255196309%_)))))) + (##car _%e197548197614%_)))) + (_%loop197547197606%_ + _%lp-tl197550197619%_ + (cons _%lp-hd197549197617%_ _%arg197551197611%_)))) + (let ((_%arg197552197622%_ (reverse _%arg197551197611%_))) + (_%__kont197731197732%_ + _%arg197552197622%_ + _%hd197542197596%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop196260196319%_ - _%target196257196314%_ + (_%loop197547197606%_ + _%target197544197601%_ '()))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx196442196443%_)) - (let ((_%e196245196282%_ + _%__stx197729197730%_)) + (let ((_%e197532197569%_ (let () (declare (not safe)) (gx#stx-e - _%__stx196442196443%_)))) - (let ((_%tl196247196287%_ + _%__stx197729197730%_)))) + (let ((_%tl197534197574%_ (let () (declare (not safe)) - (##cdr _%e196245196282%_))) - (_%hd196246196285%_ + (##cdr _%e197532197569%_))) + (_%hd197533197572%_ (let () (declare (not safe)) - (##car _%e196245196282%_)))) + (##car _%e197532197569%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd196246196285%_)) + _%hd197533197572%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd196246196285%_)) + _%hd197533197572%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl196247196287%_)) - (let ((_%e196248196290%_ + _%tl197534197574%_)) + (let ((_%e197535197577%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl196247196287%_)))) - (let ((_%tl196250196295%_ + (gx#stx-e _%tl197534197574%_)))) + (let ((_%tl197537197582%_ (let () (declare (not safe)) - (##cdr _%e196248196290%_))) - (_%hd196249196293%_ + (##cdr _%e197535197577%_))) + (_%hd197536197580%_ (let () (declare (not safe)) - (##car _%e196248196290%_)))) + (##car _%e197535197577%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196249196293%_)) - (let ((_%e196251196298%_ + (gx#stx-pair? _%hd197536197580%_)) + (let ((_%e197538197585%_ (let () (declare (not safe)) - (gx#stx-e _%hd196249196293%_)))) - (let ((_%tl196253196303%_ + (gx#stx-e _%hd197536197580%_)))) + (let ((_%tl197540197590%_ (let () (declare (not safe)) - (##cdr _%e196251196298%_))) - (_%hd196252196301%_ + (##cdr _%e197538197585%_))) + (_%hd197539197588%_ (let () (declare (not safe)) - (##car _%e196251196298%_)))) + (##car _%e197538197585%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd196252196301%_)) + (gx#identifier? _%hd197539197588%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd196252196301%_)) + (gx#stx-eq? '%#ref _%hd197539197588%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196253196303%_)) - (let ((_%e196254196306%_ + (gx#stx-pair? _%tl197540197590%_)) + (let ((_%e197541197593%_ (let () (declare (not safe)) (gx#stx-e - _%tl196253196303%_)))) - (let ((_%tl196256196311%_ + _%tl197540197590%_)))) + (let ((_%tl197543197598%_ (let () (declare (not safe)) - (##cdr _%e196254196306%_))) - (_%hd196255196309%_ + (##cdr _%e197541197593%_))) + (_%hd197542197596%_ (let () (declare (not safe)) - (##car _%e196254196306%_)))) + (##car _%e197541197593%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196256196311%_)) + _%tl197543197598%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196250196295%_)) - (let ((_%__splice196446196447%_ + _%tl197537197582%_)) + (let ((_%__splice197733197734%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196250196295%_ + _%tl197537197582%_ '0)))) - (let ((_%tl196259196316%_ + (let ((_%tl197546197603%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice196446196447%_ '1))) - (_%target196257196314%_ + (##vector-ref _%__splice197733197734%_ '1))) + (_%target197544197601%_ (let () (declare (not safe)) - (##vector-ref _%__splice196446196447%_ '0)))) + (##vector-ref _%__splice197733197734%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196259196316%_)) - (_%__match196491196492%_ - _%e196245196282%_ - _%hd196246196285%_ - _%tl196247196287%_ - _%e196248196290%_ - _%hd196249196293%_ - _%tl196250196295%_ - _%e196251196298%_ - _%hd196252196301%_ - _%tl196253196303%_ - _%e196254196306%_ - _%hd196255196309%_ - _%tl196256196311%_ - _%__splice196446196447%_ - _%target196257196314%_ - _%tl196259196316%_) - (_%__kont196448196449%_)))) + (gx#stx-null? _%tl197546197603%_)) + (_%__match197778197779%_ + _%e197532197569%_ + _%hd197533197572%_ + _%tl197534197574%_ + _%e197535197577%_ + _%hd197536197580%_ + _%tl197537197582%_ + _%e197538197585%_ + _%hd197539197588%_ + _%tl197540197590%_ + _%e197541197593%_ + _%hd197542197596%_ + _%tl197543197598%_ + _%__splice197733197734%_ + _%target197544197601%_ + _%tl197546197603%_) + (_%__kont197735197736%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196448196449%_)) - (_%__kont196448196449%_)))) - (_%__kont196448196449%_)) - (_%__kont196448196449%_)) - (_%__kont196448196449%_)))) - (_%__kont196448196449%_)))) - (_%__kont196448196449%_)) + (_%__kont197735197736%_)) + (_%__kont197735197736%_)))) + (_%__kont197735197736%_)) + (_%__kont197735197736%_)) + (_%__kont197735197736%_)))) + (_%__kont197735197736%_)))) + (_%__kont197735197736%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196448196449%_)) - (_%__kont196448196449%_)))) - (_%__kont196448196449%_)))))) + (_%__kont197735197736%_)) + (_%__kont197735197736%_)))) + (_%__kont197735197736%_)))))) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196223%_ + _%rator-type197510%_ 'gxc#!class::t)) (eq? (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type196223%_ + _%rator-type197510%_ '1 '#f '#f)) 'procedure)) - (let ((__tmp197160 + (let ((__tmp198447 (cons '%#call-unchecked (cons (cons (let () (declare @@ -553,42 +553,42 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L196201%_ + (cons _%L197488%_ '())) - (map (lambda (_%g196390196392%_) + (map (lambda (_%g197677197679%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self196007%_ - _%g196390196392%_))) - (let ((__tmp197161 - (lambda (_%g196394196397%_ + _%self197294%_ + _%g197677197679%_))) + (let ((__tmp198448 + (lambda (_%g197681197684%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g196395196399%_) - (cons _%g196394196397%_ _%g196395196399%_)))) + _%g197682197686%_) + (cons _%g197681197684%_ _%g197682197686%_)))) (declare (not safe)) - (__foldr1 __tmp197161 '() _%L196200%_))))))) + (__foldr1 __tmp198448 '() _%L197487%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197160 - _%stx196008%_)) + __tmp198447 + _%stx197295%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx196008%_ - _%rator-type196223%_)))))))) - (_%__kont196500196501%_ - (lambda (_%L196102%_ _%L196103%_) - (let ((_%rator-type196120%_ + _%stx197295%_ + _%rator-type197510%_)))))))) + (_%__kont197787197788%_ + (lambda (_%L197389%_ _%L197390%_) + (let ((_%rator-type197407%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%L196103%_)))) - (if (and _%rator-type196120%_ + (gxc#apply-basic-expression-type _%L197390%_)))) + (if (and _%rator-type197407%_ (eq? (##structure-ref - _%rator-type196120%_ + _%rator-type197407%_ '1 gxc#!type::t '#f) @@ -597,17 +597,17 @@ (declare (not safe)) (class-instance? gxc#!primitive::t - _%rator-type196120%_)) + _%rator-type197407%_)) '#f (not (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196120%_ + _%rator-type197407%_ 'gxc#!procedure::t)) (eq? (let () (declare (not safe)) (gxc#!procedure-origin - _%rator-type196120%_)) + _%rator-type197407%_)) (##structure-ref (let () (declare (not safe)) @@ -615,607 +615,607 @@ '1 gx#expander-context::t '#f)))))) - (let ((__tmp197162 + (let ((__tmp198449 (cons '%#call-unchecked (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self196007%_ - _%L196103%_)) - (map (lambda (_%g196122196124%_) + _%self197294%_ + _%L197390%_)) + (map (lambda (_%g197409197411%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self196007%_ - _%g196122196124%_))) - (let ((__tmp197163 - (lambda (_%g196126196129%_ + _%self197294%_ + _%g197409197411%_))) + (let ((__tmp198450 + (lambda (_%g197413197416%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g196127196131%_) - (cons _%g196126196129%_ _%g196127196131%_)))) + _%g197414197418%_) + (cons _%g197413197416%_ _%g197414197418%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp197163 + __tmp198450 '() - _%L196102%_))))))) + _%L197389%_))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197162 _%stx196008%_)) - (if (or (not _%rator-type196120%_) - (let ((__tmp197164 + (gxc#xform-wrap-source __tmp198449 _%stx197295%_)) + (if (or (not _%rator-type197407%_) + (let ((__tmp198451 (##structure-ref - _%rator-type196120%_ + _%rator-type197407%_ '1 gxc#!type::t '#f))) (declare (not safe)) - (##memq __tmp197164 '(t procedure)))) + (##memq __tmp198451 '(t procedure)))) (let () (declare (not safe)) - (gxc#xform-call% _%self196007%_ _%stx196008%_)) + (gxc#xform-call% _%self197294%_ _%stx197295%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx196008%_ - _%rator-type196120%_)))))))) - (let* ((_%__match196561196562%_ - (lambda (_%e196038196062%_ - _%hd196039196065%_ - _%tl196040196067%_ - _%e196041196070%_ - _%hd196042196073%_ - _%tl196043196075%_ - _%__splice196502196503%_ - _%target196044196078%_ - _%tl196046196080%_) - (letrec ((_%loop196047196083%_ - (lambda (_%hd196045196086%_ - _%rand196051196088%_) + _%stx197295%_ + _%rator-type197407%_)))))))) + (let* ((_%__match197848197849%_ + (lambda (_%e197325197349%_ + _%hd197326197352%_ + _%tl197327197354%_ + _%e197328197357%_ + _%hd197329197360%_ + _%tl197330197362%_ + _%__splice197789197790%_ + _%target197331197365%_ + _%tl197333197367%_) + (letrec ((_%loop197334197370%_ + (lambda (_%hd197332197373%_ + _%rand197338197375%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196045196086%_)) - (let ((_%e196048196091%_ + (gx#stx-pair? _%hd197332197373%_)) + (let ((_%e197335197378%_ (let () (declare (not safe)) - (gx#stx-e _%hd196045196086%_)))) - (let ((_%lp-tl196050196096%_ + (gx#stx-e _%hd197332197373%_)))) + (let ((_%lp-tl197337197383%_ (let () (declare (not safe)) - (##cdr _%e196048196091%_))) - (_%lp-hd196049196094%_ + (##cdr _%e197335197378%_))) + (_%lp-hd197336197381%_ (let () (declare (not safe)) - (##car _%e196048196091%_)))) - (_%loop196047196083%_ - _%lp-tl196050196096%_ - (cons _%lp-hd196049196094%_ - _%rand196051196088%_)))) - (let ((_%rand196052196099%_ - (reverse _%rand196051196088%_))) - (_%__kont196500196501%_ - _%rand196052196099%_ - _%hd196042196073%_)))))) - (_%loop196047196083%_ _%target196044196078%_ '())))) - (_%__match196541196542%_ - (lambda (_%e196015196144%_ - _%hd196016196147%_ - _%tl196017196149%_ - _%e196018196152%_ - _%hd196019196155%_ - _%tl196020196157%_ - _%e196021196160%_ - _%hd196022196163%_ - _%tl196023196165%_ - _%e196024196168%_ - _%hd196025196171%_ - _%tl196026196173%_ - _%__splice196498196499%_ - _%target196027196176%_ - _%tl196029196178%_) - (letrec ((_%loop196030196181%_ - (lambda (_%hd196028196184%_ - _%rand196034196186%_) + (##car _%e197335197378%_)))) + (_%loop197334197370%_ + _%lp-tl197337197383%_ + (cons _%lp-hd197336197381%_ + _%rand197338197375%_)))) + (let ((_%rand197339197386%_ + (reverse _%rand197338197375%_))) + (_%__kont197787197788%_ + _%rand197339197386%_ + _%hd197329197360%_)))))) + (_%loop197334197370%_ _%target197331197365%_ '())))) + (_%__match197828197829%_ + (lambda (_%e197302197431%_ + _%hd197303197434%_ + _%tl197304197436%_ + _%e197305197439%_ + _%hd197306197442%_ + _%tl197307197444%_ + _%e197308197447%_ + _%hd197309197450%_ + _%tl197310197452%_ + _%e197311197455%_ + _%hd197312197458%_ + _%tl197313197460%_ + _%__splice197785197786%_ + _%target197314197463%_ + _%tl197316197465%_) + (letrec ((_%loop197317197468%_ + (lambda (_%hd197315197471%_ + _%rand197321197473%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196028196184%_)) - (let ((_%e196031196189%_ + (gx#stx-pair? _%hd197315197471%_)) + (let ((_%e197318197476%_ (let () (declare (not safe)) - (gx#stx-e _%hd196028196184%_)))) - (let ((_%lp-tl196033196194%_ + (gx#stx-e _%hd197315197471%_)))) + (let ((_%lp-tl197320197481%_ (let () (declare (not safe)) - (##cdr _%e196031196189%_))) - (_%lp-hd196032196192%_ + (##cdr _%e197318197476%_))) + (_%lp-hd197319197479%_ (let () (declare (not safe)) - (##car _%e196031196189%_)))) - (_%loop196030196181%_ - _%lp-tl196033196194%_ - (cons _%lp-hd196032196192%_ - _%rand196034196186%_)))) - (let ((_%rand196035196197%_ - (reverse _%rand196034196186%_))) - (_%__kont196496196497%_ - _%rand196035196197%_ - _%hd196025196171%_)))))) - (_%loop196030196181%_ _%target196027196176%_ '()))))) + (##car _%e197318197476%_)))) + (_%loop197317197468%_ + _%lp-tl197320197481%_ + (cons _%lp-hd197319197479%_ + _%rand197321197473%_)))) + (let ((_%rand197322197484%_ + (reverse _%rand197321197473%_))) + (_%__kont197783197784%_ + _%rand197322197484%_ + _%hd197312197458%_)))))) + (_%loop197317197468%_ _%target197314197463%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196494196495%_)) - (let ((_%e196015196144%_ + (gx#stx-pair? _%__stx197781197782%_)) + (let ((_%e197302197431%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196494196495%_)))) - (let ((_%tl196017196149%_ + (gx#stx-e _%__stx197781197782%_)))) + (let ((_%tl197304197436%_ (let () (declare (not safe)) - (##cdr _%e196015196144%_))) - (_%hd196016196147%_ + (##cdr _%e197302197431%_))) + (_%hd197303197434%_ (let () (declare (not safe)) - (##car _%e196015196144%_)))) + (##car _%e197302197431%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196017196149%_)) - (let ((_%e196018196152%_ + (gx#stx-pair? _%tl197304197436%_)) + (let ((_%e197305197439%_ (let () (declare (not safe)) - (gx#stx-e _%tl196017196149%_)))) - (let ((_%tl196020196157%_ + (gx#stx-e _%tl197304197436%_)))) + (let ((_%tl197307197444%_ (let () (declare (not safe)) - (##cdr _%e196018196152%_))) - (_%hd196019196155%_ + (##cdr _%e197305197439%_))) + (_%hd197306197442%_ (let () (declare (not safe)) - (##car _%e196018196152%_)))) + (##car _%e197305197439%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196019196155%_)) - (let ((_%e196021196160%_ + (gx#stx-pair? _%hd197306197442%_)) + (let ((_%e197308197447%_ (let () (declare (not safe)) - (gx#stx-e _%hd196019196155%_)))) - (let ((_%tl196023196165%_ + (gx#stx-e _%hd197306197442%_)))) + (let ((_%tl197310197452%_ (let () (declare (not safe)) - (##cdr _%e196021196160%_))) - (_%hd196022196163%_ + (##cdr _%e197308197447%_))) + (_%hd197309197450%_ (let () (declare (not safe)) - (##car _%e196021196160%_)))) + (##car _%e197308197447%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd196022196163%_)) + _%hd197309197450%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd196022196163%_)) + _%hd197309197450%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl196023196165%_)) - (let ((_%e196024196168%_ + _%tl197310197452%_)) + (let ((_%e197311197455%_ (let () (declare (not safe)) (gx#stx-e - _%tl196023196165%_)))) - (let ((_%tl196026196173%_ + _%tl197310197452%_)))) + (let ((_%tl197313197460%_ (let () (declare (not safe)) - (##cdr _%e196024196168%_))) - (_%hd196025196171%_ + (##cdr _%e197311197455%_))) + (_%hd197312197458%_ (let () (declare (not safe)) - (##car _%e196024196168%_)))) + (##car _%e197311197455%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196026196173%_)) + _%tl197313197460%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl196020196157%_)) - (let ((_%__splice196498196499%_ + (gx#stx-pair/null? _%tl197307197444%_)) + (let ((_%__splice197785197786%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196020196157%_ + _%tl197307197444%_ '0)))) - (let ((_%tl196029196178%_ + (let ((_%tl197316197465%_ (let () (declare (not safe)) - (##vector-ref _%__splice196498196499%_ '1))) - (_%target196027196176%_ + (##vector-ref _%__splice197785197786%_ '1))) + (_%target197314197463%_ (let () (declare (not safe)) - (##vector-ref _%__splice196498196499%_ '0)))) + (##vector-ref _%__splice197785197786%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196029196178%_)) - (_%__match196541196542%_ - _%e196015196144%_ - _%hd196016196147%_ - _%tl196017196149%_ - _%e196018196152%_ - _%hd196019196155%_ - _%tl196020196157%_ - _%e196021196160%_ - _%hd196022196163%_ - _%tl196023196165%_ - _%e196024196168%_ - _%hd196025196171%_ - _%tl196026196173%_ - _%__splice196498196499%_ - _%target196027196176%_ - _%tl196029196178%_) + (gx#stx-null? _%tl197316197465%_)) + (_%__match197828197829%_ + _%e197302197431%_ + _%hd197303197434%_ + _%tl197304197436%_ + _%e197305197439%_ + _%hd197306197442%_ + _%tl197307197444%_ + _%e197308197447%_ + _%hd197309197450%_ + _%tl197310197452%_ + _%e197311197455%_ + _%hd197312197458%_ + _%tl197313197460%_ + _%__splice197785197786%_ + _%target197314197463%_ + _%tl197316197465%_) (let () (declare (not safe)) - (_%g196011196057%_))))) - (let () (declare (not safe)) (_%g196011196057%_))) + (_%g197298197344%_))))) + (let () (declare (not safe)) (_%g197298197344%_))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl196020196157%_)) - (let ((_%__splice196502196503%_ + (gx#stx-pair/null? _%tl197307197444%_)) + (let ((_%__splice197789197790%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196020196157%_ + _%tl197307197444%_ '0)))) - (let ((_%tl196046196080%_ + (let ((_%tl197333197367%_ (let () (declare (not safe)) - (##vector-ref _%__splice196502196503%_ '1))) - (_%target196044196078%_ + (##vector-ref _%__splice197789197790%_ '1))) + (_%target197331197365%_ (let () (declare (not safe)) - (##vector-ref _%__splice196502196503%_ '0)))) + (##vector-ref _%__splice197789197790%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196046196080%_)) - (_%__match196561196562%_ - _%e196015196144%_ - _%hd196016196147%_ - _%tl196017196149%_ - _%e196018196152%_ - _%hd196019196155%_ - _%tl196020196157%_ - _%__splice196502196503%_ - _%target196044196078%_ - _%tl196046196080%_) + (gx#stx-null? _%tl197333197367%_)) + (_%__match197848197849%_ + _%e197302197431%_ + _%hd197303197434%_ + _%tl197304197436%_ + _%e197305197439%_ + _%hd197306197442%_ + _%tl197307197444%_ + _%__splice197789197790%_ + _%target197331197365%_ + _%tl197333197367%_) (let () (declare (not safe)) - (_%g196011196057%_))))) - (let () (declare (not safe)) (_%g196011196057%_)))))) + (_%g197298197344%_))))) + (let () (declare (not safe)) (_%g197298197344%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196020196157%_)) - (let ((_%__splice196502196503%_ + _%tl197307197444%_)) + (let ((_%__splice197789197790%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl196020196157%_ '0)))) - (let ((_%tl196046196080%_ + (gx#syntax-split-splice _%tl197307197444%_ '0)))) + (let ((_%tl197333197367%_ (let () (declare (not safe)) - (##vector-ref _%__splice196502196503%_ '1))) - (_%target196044196078%_ + (##vector-ref _%__splice197789197790%_ '1))) + (_%target197331197365%_ (let () (declare (not safe)) - (##vector-ref _%__splice196502196503%_ '0)))) + (##vector-ref _%__splice197789197790%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196046196080%_)) - (_%__match196561196562%_ - _%e196015196144%_ - _%hd196016196147%_ - _%tl196017196149%_ - _%e196018196152%_ - _%hd196019196155%_ - _%tl196020196157%_ - _%__splice196502196503%_ - _%target196044196078%_ - _%tl196046196080%_) - (let () (declare (not safe)) (_%g196011196057%_))))) - (let () (declare (not safe)) (_%g196011196057%_)))) + (gx#stx-null? _%tl197333197367%_)) + (_%__match197848197849%_ + _%e197302197431%_ + _%hd197303197434%_ + _%tl197304197436%_ + _%e197305197439%_ + _%hd197306197442%_ + _%tl197307197444%_ + _%__splice197789197790%_ + _%target197331197365%_ + _%tl197333197367%_) + (let () (declare (not safe)) (_%g197298197344%_))))) + (let () (declare (not safe)) (_%g197298197344%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196020196157%_)) - (let ((_%__splice196502196503%_ + _%tl197307197444%_)) + (let ((_%__splice197789197790%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196020196157%_ + _%tl197307197444%_ '0)))) - (let ((_%tl196046196080%_ + (let ((_%tl197333197367%_ (let () (declare (not safe)) (##vector-ref - _%__splice196502196503%_ + _%__splice197789197790%_ '1))) - (_%target196044196078%_ + (_%target197331197365%_ (let () (declare (not safe)) (##vector-ref - _%__splice196502196503%_ + _%__splice197789197790%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196046196080%_)) - (_%__match196561196562%_ - _%e196015196144%_ - _%hd196016196147%_ - _%tl196017196149%_ - _%e196018196152%_ - _%hd196019196155%_ - _%tl196020196157%_ - _%__splice196502196503%_ - _%target196044196078%_ - _%tl196046196080%_) + _%tl197333197367%_)) + (_%__match197848197849%_ + _%e197302197431%_ + _%hd197303197434%_ + _%tl197304197436%_ + _%e197305197439%_ + _%hd197306197442%_ + _%tl197307197444%_ + _%__splice197789197790%_ + _%target197331197365%_ + _%tl197333197367%_) (let () (declare (not safe)) - (_%g196011196057%_))))) + (_%g197298197344%_))))) (let () (declare (not safe)) - (_%g196011196057%_)))) + (_%g197298197344%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196020196157%_)) - (let ((_%__splice196502196503%_ + _%tl197307197444%_)) + (let ((_%__splice197789197790%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196020196157%_ + _%tl197307197444%_ '0)))) - (let ((_%tl196046196080%_ + (let ((_%tl197333197367%_ (let () (declare (not safe)) (##vector-ref - _%__splice196502196503%_ + _%__splice197789197790%_ '1))) - (_%target196044196078%_ + (_%target197331197365%_ (let () (declare (not safe)) (##vector-ref - _%__splice196502196503%_ + _%__splice197789197790%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196046196080%_)) - (_%__match196561196562%_ - _%e196015196144%_ - _%hd196016196147%_ - _%tl196017196149%_ - _%e196018196152%_ - _%hd196019196155%_ - _%tl196020196157%_ - _%__splice196502196503%_ - _%target196044196078%_ - _%tl196046196080%_) + _%tl197333197367%_)) + (_%__match197848197849%_ + _%e197302197431%_ + _%hd197303197434%_ + _%tl197304197436%_ + _%e197305197439%_ + _%hd197306197442%_ + _%tl197307197444%_ + _%__splice197789197790%_ + _%target197331197365%_ + _%tl197333197367%_) (let () (declare (not safe)) - (_%g196011196057%_))))) + (_%g197298197344%_))))) (let () (declare (not safe)) - (_%g196011196057%_)))))) + (_%g197298197344%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl196020196157%_)) - (let ((_%__splice196502196503%_ + (gx#stx-pair/null? _%tl197307197444%_)) + (let ((_%__splice197789197790%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196020196157%_ + _%tl197307197444%_ '0)))) - (let ((_%tl196046196080%_ + (let ((_%tl197333197367%_ (let () (declare (not safe)) (##vector-ref - _%__splice196502196503%_ + _%__splice197789197790%_ '1))) - (_%target196044196078%_ + (_%target197331197365%_ (let () (declare (not safe)) (##vector-ref - _%__splice196502196503%_ + _%__splice197789197790%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196046196080%_)) - (_%__match196561196562%_ - _%e196015196144%_ - _%hd196016196147%_ - _%tl196017196149%_ - _%e196018196152%_ - _%hd196019196155%_ - _%tl196020196157%_ - _%__splice196502196503%_ - _%target196044196078%_ - _%tl196046196080%_) + _%tl197333197367%_)) + (_%__match197848197849%_ + _%e197302197431%_ + _%hd197303197434%_ + _%tl197304197436%_ + _%e197305197439%_ + _%hd197306197442%_ + _%tl197307197444%_ + _%__splice197789197790%_ + _%target197331197365%_ + _%tl197333197367%_) (let () (declare (not safe)) - (_%g196011196057%_))))) + (_%g197298197344%_))))) (let () (declare (not safe)) - (_%g196011196057%_)))))) - (let () (declare (not safe)) (_%g196011196057%_))))) - (let () (declare (not safe)) (_%g196011196057%_)))))))) + (_%g197298197344%_)))))) + (let () (declare (not safe)) (_%g197298197344%_))))) + (let () (declare (not safe)) (_%g197298197344%_)))))))) (define gxc#!procedure::optimize-call - (lambda (_%self192386195967%_ _%ctx195969%_ _%stx195970%_ _%args195971%_) - (let* ((_%self195973%_ _%self192386195967%_) - (_%self195975%_ _%self195973%_)) - (if (let ((__method197143 + (lambda (_%self193673197254%_ _%ctx197256%_ _%stx197257%_ _%args197258%_) + (let* ((_%self197260%_ _%self193673197254%_) + (_%self197262%_ _%self197260%_)) + (if (let ((__method198430 (let () (declare (not safe)) - (__method-ref _%self195975%_ 'check-arguments)))) - (if __method197143 + (__method-ref _%self197262%_ 'check-arguments)))) + (if __method198430 (let () (declare (not safe)) - (__method197143 - _%self195975%_ - _%ctx195969%_ - _%stx195970%_ - _%args195971%_)) + (__method198430 + _%self197262%_ + _%ctx197256%_ + _%stx197257%_ + _%args197258%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self195975%_ + _%self197262%_ 'check-arguments)) '#!void))) - (let* ((_%signature195985%_ + (let* ((_%signature197272%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self195975%_ '2 '#f '#f))) - (_%signature195987%_ _%signature195985%_) - (_%$e195997%_ - (if _%signature195987%_ + (##unchecked-structure-ref _%self197262%_ '2 '#f '#f))) + (_%signature197274%_ _%signature197272%_) + (_%$e197284%_ + (if _%signature197274%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature195987%_ + _%signature197274%_ '4 '#f '#f)) '#f))) - (if _%$e195997%_ - ((lambda (_%unchecked196000%_) + (if _%$e197284%_ + ((lambda (_%unchecked197287%_) (if (let () (declare (not safe)) - (gxc#symbol-in-local-scope? _%unchecked196000%_)) - (let ((__tmp197165 + (gxc#symbol-in-local-scope? _%unchecked197287%_)) + (let ((__tmp198452 (cons '%#call (cons (cons '%#ref - (cons _%unchecked196000%_ + (cons _%unchecked197287%_ '())) - (map (lambda (_%g196001196003%_) + (map (lambda (_%g197288197290%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx195969%_ - _%g196001196003%_))) - _%args195971%_))))) + _%ctx197256%_ + _%g197288197290%_))) + _%args197258%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197165 - _%stx195970%_ - _%ctx195969%_)) + __tmp198452 + _%stx197257%_ + _%ctx197256%_)) (let () (declare (not safe)) - (gxc#xform-call% _%ctx195969%_ _%stx195970%_)))) - _%$e195997%_) + (gxc#xform-call% _%ctx197256%_ _%stx197257%_)))) + _%$e197284%_) (let () (declare (not safe)) - (gxc#xform-call% _%ctx195969%_ _%stx195970%_)))) + (gxc#xform-call% _%ctx197256%_ _%stx197257%_)))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx195969%_ _%stx195970%_)))))) + (gxc#xform-call% _%ctx197256%_ _%stx197257%_)))))) (define gxc#!procedure::optimize-call::specialize - (lambda (__klass196427 __method-table196428) - (let ((__check-arguments196429 - (let ((__tmp197166 + (lambda (__klass197714 __method-table197715) + (let ((__check-arguments197716 + (let ((__tmp198453 (lambda () - (let ((__method196430 + (let ((__method197717 (let () (declare (not safe)) (symbolic-table-ref - __method-table196428 + __method-table197715 'check-arguments '#f)))) - (if __method196430 - __method196430 + (if __method197717 + __method197717 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp197166)))) - (lambda (_%self192386195967%_ - _%ctx195969%_ - _%stx195970%_ - _%args195971%_) - (let* ((_%self195973%_ _%self192386195967%_) - (_%self195975%_ _%self195973%_)) - (if ((force __check-arguments196429) - _%self195975%_ - _%ctx195969%_ - _%stx195970%_ - _%args195971%_) - (let* ((_%signature195985%_ + (__make-promise __tmp198453)))) + (lambda (_%self193673197254%_ + _%ctx197256%_ + _%stx197257%_ + _%args197258%_) + (let* ((_%self197260%_ _%self193673197254%_) + (_%self197262%_ _%self197260%_)) + (if ((force __check-arguments197716) + _%self197262%_ + _%ctx197256%_ + _%stx197257%_ + _%args197258%_) + (let* ((_%signature197272%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self195975%_ + _%self197262%_ '2 '#f '#f))) - (_%signature195987%_ _%signature195985%_) - (_%$e195997%_ - (if _%signature195987%_ + (_%signature197274%_ _%signature197272%_) + (_%$e197284%_ + (if _%signature197274%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature195987%_ + _%signature197274%_ '4 '#f '#f)) '#f))) - (if _%$e195997%_ - ((lambda (_%unchecked196000%_) + (if _%$e197284%_ + ((lambda (_%unchecked197287%_) (if (let () (declare (not safe)) (gxc#symbol-in-local-scope? - _%unchecked196000%_)) - (let ((__tmp197167 + _%unchecked197287%_)) + (let ((__tmp198454 (cons '%#call (cons (cons '%#ref - (cons _%unchecked196000%_ + (cons _%unchecked197287%_ '())) - (map (lambda (_%g196001196003%_) + (map (lambda (_%g197288197290%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx195969%_ - _%g196001196003%_))) - _%args195971%_))))) + _%ctx197256%_ + _%g197288197290%_))) + _%args197258%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197167 - _%stx195970%_ - _%ctx195969%_)) + __tmp198454 + _%stx197257%_ + _%ctx197256%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx195969%_ - _%stx195970%_)))) - _%$e195997%_) + _%ctx197256%_ + _%stx197257%_)))) + _%$e197284%_) (let () (declare (not safe)) - (gxc#xform-call% _%ctx195969%_ _%stx195970%_)))) + (gxc#xform-call% _%ctx197256%_ _%stx197257%_)))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx195969%_ _%stx195970%_)))))))) + (gxc#xform-call% _%ctx197256%_ _%stx197257%_)))))))) (let () (declare (not safe)) (bind-specializer! @@ -1229,136 +1229,136 @@ gxc#!procedure::optimize-call '#f)) (define gxc#!procedure::check-arguments - (lambda (_%self192387195716%_ _%ctx195718%_ _%stx195719%_ _%args195720%_) - (let* ((_%self195722%_ _%self192387195716%_) - (_%self195724%_ _%self195722%_) - (_%signature195733195735%_ + (lambda (_%self193674197003%_ _%ctx197005%_ _%stx197006%_ _%args197007%_) + (let* ((_%self197009%_ _%self193674197003%_) + (_%self197011%_ _%self197009%_) + (_%signature197020197022%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self195724%_ '2 '#f '#f)))) - (if _%signature195733195735%_ - (let* ((_%signature195738%_ _%signature195733195735%_) - (_%argument-types195739195741%_ + (##unchecked-structure-ref _%self197011%_ '2 '#f '#f)))) + (if _%signature197020197022%_ + (let* ((_%signature197025%_ _%signature197020197022%_) + (_%argument-types197026197028%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature195738%_ + _%signature197025%_ '3 '#f '#f)))) - (if _%argument-types195739195741%_ - (let* ((_%argument-types195744%_ - _%argument-types195739195741%_) - (_%argument-types195749%_ - (let ((__tmp197168 - (lambda (_%t195747%_) - (if _%t195747%_ + (if _%argument-types197026197028%_ + (let* ((_%argument-types197031%_ + _%argument-types197026197028%_) + (_%argument-types197036%_ + (let ((__tmp198455 + (lambda (_%t197034%_) + (if _%t197034%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx195719%_ - _%t195747%_)) + _%stx197006%_ + _%t197034%_)) '#f)))) (declare (not safe)) (gxc#map* - __tmp197168 - _%argument-types195744%_)))) - (let _%loop195751%_ ((_%rest-args195753%_ _%args195720%_) - (_%rest-types195754%_ - _%argument-types195749%_) - (_%result195755%_ '#t)) - (let* ((_%rest-args195756195764%_ _%rest-args195753%_) - (_%else195758195772%_ - (lambda () _%result195755%_)) - (_%K195760195833%_ - (lambda (_%rest-args195775%_ _%arg195776%_) - (let* ((_%rest-types195777195788%_ - _%rest-types195754%_) - (_%E195781195792%_ + __tmp198455 + _%argument-types197031%_)))) + (let _%loop197038%_ ((_%rest-args197040%_ _%args197007%_) + (_%rest-types197041%_ + _%argument-types197036%_) + (_%result197042%_ '#t)) + (let* ((_%rest-args197043197051%_ _%rest-args197040%_) + (_%else197045197059%_ + (lambda () _%result197042%_)) + (_%K197047197120%_ + (lambda (_%rest-args197062%_ _%arg197063%_) + (let* ((_%rest-types197064197075%_ + _%rest-types197041%_) + (_%E197068197079%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest-types195777195788%_ + _%rest-types197064197075%_ '([type . rest-types]) '([]) '(tail-type))) '#!void))) - (let ((_%K195784195821%_ - (lambda (_%rest-types195818%_ - _%type195819%_) - (_%loop195751%_ - _%rest-args195775%_ - _%rest-types195818%_ + (let ((_%K197071197108%_ + (lambda (_%rest-types197105%_ + _%type197106%_) + (_%loop197038%_ + _%rest-args197062%_ + _%rest-types197105%_ (if (gxc#check-expression-type! - _%stx195719%_ - _%arg195776%_ - _%type195819%_) - _%result195755%_ + _%stx197006%_ + _%arg197063%_ + _%type197106%_) + _%result197042%_ '#f)))) - (_%K195783195812%_ + (_%K197070197099%_ (lambda () (let () (declare (not safe)) (gxc#raise-compile-error '"signature arity mismatch" - _%stx195719%_ - _%argument-types195749%_)))) - (_%K195782195802%_ - (lambda (_%tail-type195796%_) - (if (let ((__tmp197169 - (lambda (_%g195797195799%_) + _%stx197006%_ + _%argument-types197036%_)))) + (_%K197069197089%_ + (lambda (_%tail-type197083%_) + (if (let ((__tmp198456 + (lambda (_%g197084197086%_) (gxc#check-expression-type! - _%stx195719%_ - _%g195797195799%_ - _%tail-type195796%_)))) + _%stx197006%_ + _%g197084197086%_ + _%tail-type197083%_)))) (declare (not safe)) (__andmap1 - __tmp197169 - _%rest-args195775%_)) - _%result195755%_ + __tmp198456 + _%rest-args197062%_)) + _%result197042%_ '#f)))) - (let ((_%try-match195779195815%_ + (let ((_%try-match197066197102%_ (lambda () - (if (null? _%rest-types195777195788%_) - (_%K195783195812%_) - (let ((_%tail-type195805%_ - _%rest-types195777195788%_)) - (_%K195782195802%_ - _%tail-type195805%_)))))) - (if (pair? _%rest-types195777195788%_) - (let ((_%tl195786195826%_ + (if (null? _%rest-types197064197075%_) + (_%K197070197099%_) + (let ((_%tail-type197092%_ + _%rest-types197064197075%_)) + (_%K197069197089%_ + _%tail-type197092%_)))))) + (if (pair? _%rest-types197064197075%_) + (let ((_%tl197073197113%_ (let () (declare (not safe)) - (##cdr _%rest-types195777195788%_))) - (_%hd195785195824%_ + (##cdr _%rest-types197064197075%_))) + (_%hd197072197111%_ (let () (declare (not safe)) - (##car _%rest-types195777195788%_)))) - (let ((_%type195829%_ - _%hd195785195824%_) - (_%rest-types195831%_ - _%tl195786195826%_)) - (_%K195784195821%_ - _%rest-types195831%_ - _%type195829%_))) - (_%try-match195779195815%_)))))))) - (if (pair? _%rest-args195756195764%_) - (let ((_%hd195761195836%_ + (##car _%rest-types197064197075%_)))) + (let ((_%type197116%_ + _%hd197072197111%_) + (_%rest-types197118%_ + _%tl197073197113%_)) + (_%K197071197108%_ + _%rest-types197118%_ + _%type197116%_))) + (_%try-match197066197102%_)))))))) + (if (pair? _%rest-args197043197051%_) + (let ((_%hd197048197123%_ (let () (declare (not safe)) - (##car _%rest-args195756195764%_))) - (_%tl195762195838%_ + (##car _%rest-args197043197051%_))) + (_%tl197049197125%_ (let () (declare (not safe)) - (##cdr _%rest-args195756195764%_)))) - (let* ((_%arg195841%_ _%hd195761195836%_) - (_%rest-args195843%_ - _%tl195762195838%_)) - (_%K195760195833%_ - _%rest-args195843%_ - _%arg195841%_))) - (_%else195758195772%_))))) + (##cdr _%rest-args197043197051%_)))) + (let* ((_%arg197128%_ _%hd197048197123%_) + (_%rest-args197130%_ + _%tl197049197125%_)) + (_%K197047197120%_ + _%rest-args197130%_ + _%arg197128%_))) + (_%else197045197059%_))))) '#f)) '#f)))) (let () @@ -1369,94 +1369,94 @@ gxc#!procedure::check-arguments '#f)) (define gxc#!primitive-predicate::optimize-call - (lambda (_%self192388195525%_ _%ctx195527%_ _%stx195528%_ _%args195529%_) - (let* ((_%self195531%_ _%self192388195525%_) - (_%self195533%_ _%self195531%_) - (_%g195543195553%_ - (lambda (_%g195544195550%_) + (lambda (_%self193675196812%_ _%ctx196814%_ _%stx196815%_ _%args196816%_) + (let* ((_%self196818%_ _%self193675196812%_) + (_%self196820%_ _%self196818%_) + (_%g196830196840%_ + (lambda (_%g196831196837%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g195544195550%_)))) - (_%g195542195591%_ - (lambda (_%g195544195556%_) + _%g196831196837%_)))) + (_%g196829196878%_ + (lambda (_%g196831196843%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g195544195556%_)) - (let ((_%e195546195558%_ + (gx#stx-pair? _%g196831196843%_)) + (let ((_%e196833196845%_ (let () (declare (not safe)) - (gx#stx-e _%g195544195556%_)))) - (let ((_%hd195547195561%_ + (gx#stx-e _%g196831196843%_)))) + (let ((_%hd196834196848%_ (let () (declare (not safe)) - (##car _%e195546195558%_))) - (_%tl195548195563%_ + (##car _%e196833196845%_))) + (_%tl196835196850%_ (let () (declare (not safe)) - (##cdr _%e195546195558%_)))) + (##cdr _%e196833196845%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195548195563%_)) - ((lambda (_%L195566%_) - (let* ((_%klass195578%_ - (let ((__tmp197170 + (gx#stx-null? _%tl196835196850%_)) + ((lambda (_%L196853%_) + (let* ((_%klass196865%_ + (let ((__tmp198457 (let () (declare (not safe)) (##unchecked-structure-ref - _%self195533%_ + _%self196820%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx195528%_ - __tmp197170))) - (_%object195580%_ + _%stx196815%_ + __tmp198457))) + (_%object196867%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx195527%_ - _%L195566%_))) - (_%instance?195585%_ - (let ((_%$e195582%_ + _%ctx196814%_ + _%L196853%_))) + (_%instance?196872%_ + (let ((_%$e196869%_ (gxc#expression-type? - _%object195580%_ - _%klass195578%_))) - (if _%$e195582%_ - _%$e195582%_ + _%object196867%_ + _%klass196865%_))) + (if _%$e196869%_ + _%$e196869%_ (gxc#expression-type? - _%L195566%_ - _%klass195578%_))))) - (if _%instance?195585%_ - (let ((__tmp197171 + _%L196853%_ + _%klass196865%_))))) + (if _%instance?196872%_ + (let ((__tmp198458 (if (or (gxc#expression-no-side-effects? - _%object195580%_) + _%object196867%_) (gxc#expression-no-side-effects? - _%L195566%_)) + _%L196853%_)) (cons '%#quote (cons '#t '())) (cons '%#begin - (cons _%object195580%_ + (cons _%object196867%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197171 - _%stx195528%_)) + __tmp198458 + _%stx196815%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx195527%_ - _%stx195528%_))))) - _%hd195547195561%_) - (_%g195543195553%_ _%g195544195556%_)))) - (_%g195543195553%_ _%g195544195556%_))))) - (_%g195542195591%_ _%args195529%_)))) + _%ctx196814%_ + _%stx196815%_))))) + _%hd196834196848%_) + (_%g196830196840%_ _%g196831196843%_)))) + (_%g196830196840%_ _%g196831196843%_))))) + (_%g196829196878%_ _%args196816%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -1465,137 +1465,137 @@ gxc#!primitive-predicate::optimize-call '#f)) (define gxc#!predicate::optimize-call - (lambda (_%self192389195319%_ _%ctx195321%_ _%stx195322%_ _%args195323%_) - (let* ((_%self195325%_ _%self192389195319%_) - (_%self195327%_ _%self195325%_) - (_%g195337195347%_ - (lambda (_%g195338195344%_) + (lambda (_%self193676196606%_ _%ctx196608%_ _%stx196609%_ _%args196610%_) + (let* ((_%self196612%_ _%self193676196606%_) + (_%self196614%_ _%self196612%_) + (_%g196624196634%_ + (lambda (_%g196625196631%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g195338195344%_)))) - (_%g195336195400%_ - (lambda (_%g195338195350%_) + _%g196625196631%_)))) + (_%g196623196687%_ + (lambda (_%g196625196637%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g195338195350%_)) - (let ((_%e195340195352%_ + (gx#stx-pair? _%g196625196637%_)) + (let ((_%e196627196639%_ (let () (declare (not safe)) - (gx#stx-e _%g195338195350%_)))) - (let ((_%hd195341195355%_ + (gx#stx-e _%g196625196637%_)))) + (let ((_%hd196628196642%_ (let () (declare (not safe)) - (##car _%e195340195352%_))) - (_%tl195342195357%_ + (##car _%e196627196639%_))) + (_%tl196629196644%_ (let () (declare (not safe)) - (##cdr _%e195340195352%_)))) + (##cdr _%e196627196639%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195342195357%_)) - ((lambda (_%L195360%_) - (let* ((_%klass195372%_ - (let ((__tmp197172 + (gx#stx-null? _%tl196629196644%_)) + ((lambda (_%L196647%_) + (let* ((_%klass196659%_ + (let ((__tmp198459 (let () (declare (not safe)) (##unchecked-structure-ref - _%self195327%_ + _%self196614%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx195322%_ - __tmp197172))) - (_%object195374%_ + _%stx196609%_ + __tmp198459))) + (_%object196661%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx195321%_ - _%L195360%_))) - (_%instance?195379%_ - (let ((_%$e195376%_ + _%ctx196608%_ + _%L196647%_))) + (_%instance?196666%_ + (let ((_%$e196663%_ (gxc#expression-type? - _%object195374%_ - _%klass195372%_))) - (if _%$e195376%_ - _%$e195376%_ + _%object196661%_ + _%klass196659%_))) + (if _%$e196663%_ + _%$e196663%_ (gxc#expression-type? - _%L195360%_ - _%klass195372%_)))) - (_%klass195382%_ _%klass195372%_)) - (if _%instance?195379%_ - (let ((__tmp197173 + _%L196647%_ + _%klass196659%_)))) + (_%klass196669%_ _%klass196659%_)) + (if _%instance?196666%_ + (let ((__tmp198460 (if (or (gxc#expression-no-side-effects? - _%object195374%_) + _%object196661%_) (gxc#expression-no-side-effects? - _%L195360%_)) + _%L196647%_)) (cons '%#quote (cons '#t '())) (cons '%#begin - (cons _%object195374%_ + (cons _%object196661%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197173 - _%stx195322%_)) + __tmp198460 + _%stx196609%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195382%_ + _%klass196669%_ '8 '#f '#f)) - (let ((__tmp197174 + (let ((__tmp198461 (cons '%#struct-direct-instance? (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195382%_ + _%klass196669%_ '1 '#f '#f)) '())) - (cons _%object195374%_ '()))))) + (cons _%object196661%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197174 - _%stx195322%_)) + __tmp198461 + _%stx196609%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195382%_ + _%klass196669%_ '7 '#f '#f)) - (let ((__tmp197175 + (let ((__tmp198462 (cons '%#struct-instance? (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195382%_ + _%klass196669%_ '1 '#f '#f)) '())) - (cons _%object195374%_ '()))))) + (cons _%object196661%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197175 - _%stx195322%_)) - (let ((__tmp197176 + __tmp198462 + _%stx196609%_)) + (let ((__tmp198463 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -1604,21 +1604,21 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self195327%_ + _%self196614%_ '1 '#f '#f)) '())) - (cons _%object195374%_ '())))))) + (cons _%object196661%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197176 - _%stx195322%_))))))) - _%hd195341195355%_) - (_%g195337195347%_ _%g195338195350%_)))) - (_%g195337195347%_ _%g195338195350%_))))) - (_%g195336195400%_ _%args195323%_)))) + __tmp198463 + _%stx196609%_))))))) + _%hd196628196642%_) + (_%g196624196634%_ _%g196625196637%_)))) + (_%g196624196634%_ _%g196625196637%_))))) + (_%g196623196687%_ _%args196610%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -1627,419 +1627,419 @@ gxc#!predicate::optimize-call '#f)) (define gxc#expression-no-side-effects? - (lambda (_%stx194982%_) - (let* ((_%__stx196571196572%_ _%stx194982%_) - (_%g194987195028%_ + (lambda (_%stx196269%_) + (let* ((_%__stx197858197859%_ _%stx196269%_) + (_%g196274196315%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196571196572%_))))) - (let ((_%__kont196573196574%_ (lambda () '#t)) - (_%__kont196575196576%_ (lambda () '#t)) - (_%__kont196577196578%_ - (lambda (_%L195096%_ _%L195097%_) - (let ((_%rator-type195118195120%_ - (let ((__tmp197177 + _%__stx197858197859%_))))) + (let ((_%__kont197860197861%_ (lambda () '#t)) + (_%__kont197862197863%_ (lambda () '#t)) + (_%__kont197864197865%_ + (lambda (_%L196383%_ _%L196384%_) + (let ((_%rator-type196405196407%_ + (let ((__tmp198464 (let () (declare (not safe)) - (gxc#identifier-symbol _%L195097%_)))) + (gxc#identifier-symbol _%L196384%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp197177)))) - (if _%rator-type195118195120%_ - (let* ((_%rator-type195123%_ - _%rator-type195118195120%_) - (_%rator-signature195124195126%_ + (gxc#optimizer-resolve-type __tmp198464)))) + (if _%rator-type196405196407%_ + (let* ((_%rator-type196410%_ + _%rator-type196405196407%_) + (_%rator-signature196411196413%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type195123%_ + _%rator-type196410%_ 'gxc#!procedure::t)) (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type195123%_ + _%rator-type196410%_ '2 '#f '#f)) '#f))) - (if _%rator-signature195124195126%_ - (let* ((_%rator-signature195129%_ - _%rator-signature195124195126%_) - (_%rator-effect195130195132%_ - (if _%rator-signature195129%_ + (if _%rator-signature196411196413%_ + (let* ((_%rator-signature196416%_ + _%rator-signature196411196413%_) + (_%rator-effect196417196419%_ + (if _%rator-signature196416%_ (##direct-structure-ref - _%rator-signature195129%_ + _%rator-signature196416%_ '2 gxc#!signature::t '#f) '#f))) - (if _%rator-effect195130195132%_ - (let ((_%rator-effect195135%_ - _%rator-effect195130195132%_)) + (if _%rator-effect196417196419%_ + (let ((_%rator-effect196422%_ + _%rator-effect196417196419%_)) (if (or (equal? '(pure) - _%rator-effect195135%_) + _%rator-effect196422%_) (equal? '(alloc) - _%rator-effect195135%_)) - (let ((__tmp197178 - (let ((__tmp197179 - (lambda (_%g195140195143%_ + _%rator-effect196422%_)) + (let ((__tmp198465 + (let ((__tmp198466 + (lambda (_%g196427196430%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g195141195145%_) - (cons _%g195140195143%_ _%g195141195145%_)))) + _%g196428196432%_) + (cons _%g196427196430%_ _%g196428196432%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp197179 + __tmp198466 '() - _%L195096%_)))) + _%L196383%_)))) (declare (not safe)) (__andmap1 gxc#expression-no-side-effects? - __tmp197178)) + __tmp198465)) '#f)) '#f)) '#f)) '#f)))) - (_%__kont196581196582%_ (lambda () '#f))) - (let ((_%__match196660196661%_ - (lambda (_%e195003195040%_ - _%hd195004195043%_ - _%tl195005195045%_ - _%e195006195048%_ - _%hd195007195051%_ - _%tl195008195053%_ - _%e195009195056%_ - _%hd195010195059%_ - _%tl195011195061%_ - _%e195012195064%_ - _%hd195013195067%_ - _%tl195014195069%_ - _%__splice196579196580%_ - _%target195015195072%_ - _%tl195017195074%_) - (letrec ((_%loop195018195077%_ - (lambda (_%hd195016195080%_ - _%rand195022195082%_) + (_%__kont197868197869%_ (lambda () '#f))) + (let ((_%__match197947197948%_ + (lambda (_%e196290196327%_ + _%hd196291196330%_ + _%tl196292196332%_ + _%e196293196335%_ + _%hd196294196338%_ + _%tl196295196340%_ + _%e196296196343%_ + _%hd196297196346%_ + _%tl196298196348%_ + _%e196299196351%_ + _%hd196300196354%_ + _%tl196301196356%_ + _%__splice197866197867%_ + _%target196302196359%_ + _%tl196304196361%_) + (letrec ((_%loop196305196364%_ + (lambda (_%hd196303196367%_ + _%rand196309196369%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd195016195080%_)) - (let ((_%e195019195085%_ + (gx#stx-pair? _%hd196303196367%_)) + (let ((_%e196306196372%_ (let () (declare (not safe)) - (gx#stx-e _%hd195016195080%_)))) - (let ((_%lp-tl195021195090%_ + (gx#stx-e _%hd196303196367%_)))) + (let ((_%lp-tl196308196377%_ (let () (declare (not safe)) - (##cdr _%e195019195085%_))) - (_%lp-hd195020195088%_ + (##cdr _%e196306196372%_))) + (_%lp-hd196307196375%_ (let () (declare (not safe)) - (##car _%e195019195085%_)))) - (_%loop195018195077%_ - _%lp-tl195021195090%_ - (cons _%lp-hd195020195088%_ - _%rand195022195082%_)))) - (let ((_%rand195023195093%_ - (reverse _%rand195022195082%_))) - (_%__kont196577196578%_ - _%rand195023195093%_ - _%hd195013195067%_)))))) - (_%loop195018195077%_ _%target195015195072%_ '()))))) + (##car _%e196306196372%_)))) + (_%loop196305196364%_ + _%lp-tl196308196377%_ + (cons _%lp-hd196307196375%_ + _%rand196309196369%_)))) + (let ((_%rand196310196380%_ + (reverse _%rand196309196369%_))) + (_%__kont197864197865%_ + _%rand196310196380%_ + _%hd196300196354%_)))))) + (_%loop196305196364%_ _%target196302196359%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196571196572%_)) - (let ((_%e194989195176%_ + (gx#stx-pair? _%__stx197858197859%_)) + (let ((_%e196276196463%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196571196572%_)))) - (let ((_%tl194991195181%_ + (gx#stx-e _%__stx197858197859%_)))) + (let ((_%tl196278196468%_ (let () (declare (not safe)) - (##cdr _%e194989195176%_))) - (_%hd194990195179%_ + (##cdr _%e196276196463%_))) + (_%hd196277196466%_ (let () (declare (not safe)) - (##car _%e194989195176%_)))) + (##car _%e196276196463%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd194990195179%_)) + (gx#identifier? _%hd196277196466%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd194990195179%_)) + (gx#stx-eq? '%#quote _%hd196277196466%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194991195181%_)) - (let ((_%e194992195184%_ + (gx#stx-pair? _%tl196278196468%_)) + (let ((_%e196279196471%_ (let () (declare (not safe)) - (gx#stx-e _%tl194991195181%_)))) - (let ((_%tl194994195189%_ + (gx#stx-e _%tl196278196468%_)))) + (let ((_%tl196281196476%_ (let () (declare (not safe)) - (##cdr _%e194992195184%_))) - (_%hd194993195187%_ + (##cdr _%e196279196471%_))) + (_%hd196280196474%_ (let () (declare (not safe)) - (##car _%e194992195184%_)))) + (##car _%e196279196471%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194994195189%_)) - (_%__kont196573196574%_) - (_%__kont196581196582%_)))) - (_%__kont196581196582%_)) + (gx#stx-null? _%tl196281196476%_)) + (_%__kont197860197861%_) + (_%__kont197868197869%_)))) + (_%__kont197868197869%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd194990195179%_)) + (gx#stx-eq? '%#ref _%hd196277196466%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194991195181%_)) - (let ((_%e194998195161%_ + (gx#stx-pair? _%tl196278196468%_)) + (let ((_%e196285196448%_ (let () (declare (not safe)) - (gx#stx-e _%tl194991195181%_)))) - (let ((_%tl195000195166%_ + (gx#stx-e _%tl196278196468%_)))) + (let ((_%tl196287196453%_ (let () (declare (not safe)) - (##cdr _%e194998195161%_))) - (_%hd194999195164%_ + (##cdr _%e196285196448%_))) + (_%hd196286196451%_ (let () (declare (not safe)) - (##car _%e194998195161%_)))) + (##car _%e196285196448%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl195000195166%_)) - (_%__kont196575196576%_) - (_%__kont196581196582%_)))) - (_%__kont196581196582%_)) + _%tl196287196453%_)) + (_%__kont197862197863%_) + (_%__kont197868197869%_)))) + (_%__kont197868197869%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd194990195179%_)) + _%hd196277196466%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194991195181%_)) - (let ((_%e195006195048%_ + (gx#stx-pair? _%tl196278196468%_)) + (let ((_%e196293196335%_ (let () (declare (not safe)) (gx#stx-e - _%tl194991195181%_)))) - (let ((_%tl195008195053%_ + _%tl196278196468%_)))) + (let ((_%tl196295196340%_ (let () (declare (not safe)) - (##cdr _%e195006195048%_))) - (_%hd195007195051%_ + (##cdr _%e196293196335%_))) + (_%hd196294196338%_ (let () (declare (not safe)) - (##car _%e195006195048%_)))) + (##car _%e196293196335%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd195007195051%_)) - (let ((_%e195009195056%_ + _%hd196294196338%_)) + (let ((_%e196296196343%_ (let () (declare (not safe)) (gx#stx-e - _%hd195007195051%_)))) - (let ((_%tl195011195061%_ + _%hd196294196338%_)))) + (let ((_%tl196298196348%_ (let () (declare (not safe)) - (##cdr _%e195009195056%_))) - (_%hd195010195059%_ + (##cdr _%e196296196343%_))) + (_%hd196297196346%_ (let () (declare (not safe)) - (##car _%e195009195056%_)))) + (##car _%e196296196343%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd195010195059%_)) + _%hd196297196346%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd195010195059%_)) + (gx#stx-eq? '%#ref _%hd196297196346%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195011195061%_)) - (let ((_%e195012195064%_ + (gx#stx-pair? _%tl196298196348%_)) + (let ((_%e196299196351%_ (let () (declare (not safe)) - (gx#stx-e _%tl195011195061%_)))) - (let ((_%tl195014195069%_ + (gx#stx-e _%tl196298196348%_)))) + (let ((_%tl196301196356%_ (let () (declare (not safe)) - (##cdr _%e195012195064%_))) - (_%hd195013195067%_ + (##cdr _%e196299196351%_))) + (_%hd196300196354%_ (let () (declare (not safe)) - (##car _%e195012195064%_)))) + (##car _%e196299196351%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195014195069%_)) + (gx#stx-null? _%tl196301196356%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl195008195053%_)) - (let ((_%__splice196579196580%_ + (gx#stx-pair/null? _%tl196295196340%_)) + (let ((_%__splice197866197867%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl195008195053%_ + _%tl196295196340%_ '0)))) - (let ((_%tl195017195074%_ + (let ((_%tl196304196361%_ (let () (declare (not safe)) (##vector-ref - _%__splice196579196580%_ + _%__splice197866197867%_ '1))) - (_%target195015195072%_ + (_%target196302196359%_ (let () (declare (not safe)) (##vector-ref - _%__splice196579196580%_ + _%__splice197866197867%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl195017195074%_)) - (_%__match196660196661%_ - _%e194989195176%_ - _%hd194990195179%_ - _%tl194991195181%_ - _%e195006195048%_ - _%hd195007195051%_ - _%tl195008195053%_ - _%e195009195056%_ - _%hd195010195059%_ - _%tl195011195061%_ - _%e195012195064%_ - _%hd195013195067%_ - _%tl195014195069%_ - _%__splice196579196580%_ - _%target195015195072%_ - _%tl195017195074%_) - (_%__kont196581196582%_)))) - (_%__kont196581196582%_)) - (_%__kont196581196582%_)))) - (_%__kont196581196582%_)) - (_%__kont196581196582%_)) - (_%__kont196581196582%_)))) + _%tl196304196361%_)) + (_%__match197947197948%_ + _%e196276196463%_ + _%hd196277196466%_ + _%tl196278196468%_ + _%e196293196335%_ + _%hd196294196338%_ + _%tl196295196340%_ + _%e196296196343%_ + _%hd196297196346%_ + _%tl196298196348%_ + _%e196299196351%_ + _%hd196300196354%_ + _%tl196301196356%_ + _%__splice197866197867%_ + _%target196302196359%_ + _%tl196304196361%_) + (_%__kont197868197869%_)))) + (_%__kont197868197869%_)) + (_%__kont197868197869%_)))) + (_%__kont197868197869%_)) + (_%__kont197868197869%_)) + (_%__kont197868197869%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196581196582%_)))) - (_%__kont196581196582%_)) - (_%__kont196581196582%_)))) - (_%__kont196581196582%_)))) - (_%__kont196581196582%_))))))) + (_%__kont197868197869%_)))) + (_%__kont197868197869%_)) + (_%__kont197868197869%_)))) + (_%__kont197868197869%_)))) + (_%__kont197868197869%_))))))) (define gxc#expression-type? - (lambda (_%stx194977%_ _%klass194978%_) - (let ((_%expr-type194980%_ + (lambda (_%stx196264%_ _%klass196265%_) + (let ((_%expr-type196267%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%stx194977%_)))) - (if _%expr-type194980%_ + (gxc#apply-basic-expression-type _%stx196264%_)))) + (if _%expr-type196267%_ (let () (declare (not safe)) - (gxc#!type-subtype? _%expr-type194980%_ _%klass194978%_)) + (gxc#!type-subtype? _%expr-type196267%_ _%klass196265%_)) '#f)))) (define gxc#check-expression-type! - (lambda (_%stx194955%_ _%expr194956%_ _%type194957%_) - (if (not _%type194957%_) + (lambda (_%stx196242%_ _%expr196243%_ _%type196244%_) + (if (not _%type196244%_) '#f - (let ((_%$e194960%_ - (eq? (##structure-ref _%type194957%_ '1 gxc#!type::t '#f) + (let ((_%$e196247%_ + (eq? (##structure-ref _%type196244%_ '1 gxc#!type::t '#f) 't))) - (if _%$e194960%_ - _%$e194960%_ - (let ((_%expr-type194964%_ + (if _%$e196247%_ + _%$e196247%_ + (let ((_%expr-type196251%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%expr194956%_)))) - (if (not _%expr-type194964%_) + (gxc#apply-basic-expression-type _%expr196243%_)))) + (if (not _%expr-type196251%_) '#f (if (eq? 't (##structure-ref - _%expr-type194964%_ + _%expr-type196251%_ '1 gxc#!type::t '#f)) '#f - (let ((_%$e194968%_ + (let ((_%$e196255%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type194964%_ + _%expr-type196251%_ 'gxc#!abort::t)))) - (if _%$e194968%_ - _%$e194968%_ - (let ((_%$e194971%_ + (if _%$e196255%_ + _%$e196255%_ + (let ((_%$e196258%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type194964%_ - _%type194957%_)))) - (if _%$e194971%_ - _%$e194971%_ + _%expr-type196251%_ + _%type196244%_)))) + (if _%$e196258%_ + _%$e196258%_ (if (let () (declare (not safe)) (gxc#!interface-instance? - _%type194957%_)) + _%type196244%_)) '#f (if (let () (declare (not safe)) (gxc#!type-subtype? - _%type194957%_ - _%expr-type194964%_)) + _%type196244%_ + _%expr-type196251%_)) '#f (let () (declare (not safe)) (gxc#raise-compile-error '"signature type mismatch" - _%stx194955%_ - _%expr194956%_ - _%expr-type194964%_ - _%type194957%_)))))))))))))))) + _%stx196242%_ + _%expr196243%_ + _%expr-type196251%_ + _%type196244%_)))))))))))))))) (define gxc#!constructor::optimize-call - (lambda (_%self192390194767%_ _%ctx194769%_ _%stx194770%_ _%args194771%_) - (let* ((_%self194773%_ _%self192390194767%_) - (_%self194775%_ _%self194773%_) - (_%klass194785%_ - (let ((__tmp197180 + (lambda (_%self193677196054%_ _%ctx196056%_ _%stx196057%_ _%args196058%_) + (let* ((_%self196060%_ _%self193677196054%_) + (_%self196062%_ _%self196060%_) + (_%klass196072%_ + (let ((__tmp198467 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self196062%_ '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx194770%_ __tmp197180))) - (_%fields194787%_ + (gxc#optimizer-resolve-class _%stx196057%_ __tmp198467))) + (_%fields196074%_ (length (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194785%_ + _%klass196072%_ '5 '#f '#f)))) - (_%args194793%_ - (map (lambda (_%g194788194790%_) + (_%args196080%_ + (map (lambda (_%g196075196077%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%ctx194769%_ _%g194788194790%_))) - _%args194771%_)) - (_%inline-make-object194795%_ + (gxc#compile-e__1 _%ctx196056%_ _%g196075196077%_))) + _%args196058%_)) + (_%inline-make-object196082%_ (cons '%#begin-annotation (cons (cons '@type (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self196062%_ '1 '#f '#f)) @@ -2052,66 +2052,66 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self196062%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (make-list - _%fields194787%_ + _%fields196074%_ '(%#quote #f))))) '())))) - (_%klass194798%_ _%klass194785%_) - (_%$e194812%_ + (_%klass196085%_ _%klass196072%_) + (_%$e196099%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass194798%_ '6 '#f '#f)))) - (if _%$e194812%_ - ((lambda (_%ctor194815%_) - (let ((_%$obj194817%_ - (let ((__tmp197181 + (##unchecked-structure-ref _%klass196085%_ '6 '#f '#f)))) + (if _%$e196099%_ + ((lambda (_%ctor196102%_) + (let ((_%$obj196104%_ + (let ((__tmp198468 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197181))) - (_%ctor-impl194818%_ + (make-symbol__0 __tmp198468))) + (_%ctor-impl196105%_ (let () (declare (not safe)) (gxc#!class-lookup-method - _%klass194798%_ - _%ctor194815%_)))) - (let ((__tmp197182 + _%klass196085%_ + _%ctor196102%_)))) + (let ((__tmp198469 (cons '%#let-values - (cons (cons (cons (cons _%$obj194817%_ '()) - (cons _%inline-make-object194795%_ + (cons (cons (cons (cons _%$obj196104%_ '()) + (cons _%inline-make-object196082%_ '())) '()) (cons (cons '%#begin - (cons (if _%ctor-impl194818%_ - (let ((__tmp197183 + (cons (if _%ctor-impl196105%_ + (let ((__tmp198470 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons (cons '%#ref - (cons _%ctor-impl194818%_ '())) + (cons _%ctor-impl196105%_ '())) (cons (cons '%#ref - (cons _%$obj194817%_ '())) - _%args194793%_))))) + (cons _%$obj196104%_ '())) + _%args196080%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197183 - _%stx194770%_ - _%ctx194769%_)) - (let ((_%$ctor194820%_ - (let ((__tmp197184 + __tmp198470 + _%stx196057%_ + _%ctx196056%_)) + (let ((_%$ctor196107%_ + (let ((__tmp198471 (let () (declare (not safe)) (##gensym '__constructor)))) (declare (not safe)) - (make-symbol__0 __tmp197184)))) + (make-symbol__0 __tmp198471)))) (cons '%#let-values - (cons (cons (cons (cons _%$ctor194820%_ '()) + (cons (cons (cons (cons _%$ctor196107%_ '()) (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -2120,28 +2120,28 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self196062%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194817%_ '())) + (cons (cons '%#ref (cons _%$obj196104%_ '())) (cons (cons '%#quote - (cons _%ctor194815%_ '())) + (cons _%ctor196102%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons '%#if (cons (cons '%#ref - (cons _%$ctor194820%_ + (cons _%$ctor196107%_ '())) (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$ctor194820%_ '())) - (cons (cons '%#ref (cons _%$obj194817%_ '())) - _%args194793%_))) + (cons _%$ctor196107%_ '())) + (cons (cons '%#ref (cons _%$obj196104%_ '())) + _%args196080%_))) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote @@ -2154,92 +2154,92 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self196062%_ '1 '#f '#f)) '())) (cons (cons '%#quote (cons 'method: '())) - (cons (cons '%#quote (cons _%ctor194815%_ '())) '()))))))) + (cons (cons '%#quote (cons _%ctor196102%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (cons (cons '%#ref (cons _%$obj194817%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj196104%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197182 _%stx194770%_)))) - _%$e194812%_) - (let ((_%$e194822%_ + (gxc#xform-wrap-source __tmp198469 _%stx196057%_)))) + _%$e196099%_) + (let ((_%$e196109%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194798%_ + _%klass196085%_ '10 '#f '#f)))) - (if _%$e194822%_ - ((lambda (_%metaclass194825%_) - (let* ((_%$obj194827%_ - (let ((__tmp197185 + (if _%$e196109%_ + ((lambda (_%metaclass196112%_) + (let* ((_%$obj196114%_ + (let ((__tmp198472 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197185))) - (_%metakons194829%_ - (let ((__tmp197186 + (make-symbol__0 __tmp198472))) + (_%metakons196116%_ + (let ((__tmp198473 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194770%_ - _%metaclass194825%_)))) + _%stx196057%_ + _%metaclass196112%_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp197186 + __tmp198473 'instance-init!))) - (__tmp197187 + (__tmp198474 (cons '%#let-values - (cons (cons (cons (cons _%$obj194827%_ + (cons (cons (cons (cons _%$obj196114%_ '()) - (cons _%inline-make-object194795%_ + (cons _%inline-make-object196082%_ '())) '()) (cons (cons '%#begin - (cons (if _%metakons194829%_ + (cons (if _%metakons196116%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp197188 + (let ((__tmp198475 (cons '%#call (cons (cons '%#ref - (cons _%metakons194829%_ + (cons _%metakons196116%_ '())) (cons (cons '%#ref (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self194775%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self196062%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj194827%_ + (cons _%$obj196114%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args194793%_)))))) + _%args196080%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197188 - _%stx194770%_ - _%ctx194769%_)) + __tmp198475 + _%stx196057%_ + _%ctx196056%_)) (cons '%#call (cons (cons '%#ref (cons 'call-method '())) (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self196062%_ '1 '#f '#f)) @@ -2248,38 +2248,38 @@ (cons 'instance-init! '())) (cons (cons '%#ref - (cons _%$obj194827%_ + (cons _%$obj196114%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args194793%_)))))) + _%args196080%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons '%#ref (cons _%$obj194827%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj196114%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197187 _%stx194770%_))) - _%$e194822%_) + (gxc#xform-wrap-source __tmp198474 _%stx196057%_))) + _%$e196109%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194798%_ + _%klass196085%_ '7 '#f '#f)) - (if (let ((__tmp197189 + (if (let ((__tmp198476 (let () (declare (not safe)) - (##length _%args194793%_)))) + (##length _%args196080%_)))) (declare (not safe)) - (##fx= __tmp197189 _%fields194787%_)) - (let ((__tmp197190 + (##fx= __tmp198476 _%fields196074%_)) + (let ((__tmp198477 (cons '%#begin-annotation (cons (cons '@type (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self196062%_ '1 '#f '#f)) @@ -2292,151 +2292,151 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self196062%_ '1 '#f '#f)) '())) - _%args194793%_))) + _%args196080%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp197190 - _%stx194770%_)) - (let ((__tmp197192 + __tmp198477 + _%stx196057%_)) + (let ((__tmp198479 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self196062%_ '1 '#f '#f))) - (__tmp197191 + (__tmp198478 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194798%_ + _%klass196085%_ '5 '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _%stx194770%_ - __tmp197192 - __tmp197191))) - (let ((_%$obj194834%_ - (let ((__tmp197193 + _%stx196057%_ + __tmp198479 + __tmp198478))) + (let ((_%$obj196121%_ + (let ((__tmp198480 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197193)))) - (let _%lp194836%_ ((_%rest194838%_ _%args194793%_) - (_%initializers194839%_ '())) - (let* ((_%__stx196663196664%_ _%rest194838%_) - (_%g194843194864%_ + (make-symbol__0 __tmp198480)))) + (let _%lp196123%_ ((_%rest196125%_ _%args196080%_) + (_%initializers196126%_ '())) + (let* ((_%__stx197950197951%_ _%rest196125%_) + (_%g196130196151%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196663196664%_))))) - (let ((_%__kont196665196666%_ - (lambda (_%L194918%_ - _%L194919%_ - _%L194920%_) - (let* ((_%slot194947%_ - (let ((__tmp197194 + _%__stx197950197951%_))))) + (let ((_%__kont197952197953%_ + (lambda (_%L196205%_ + _%L196206%_ + _%L196207%_) + (let* ((_%slot196234%_ + (let ((__tmp198481 (let () (declare (not safe)) (gx#stx-e - _%L194920%_)))) + _%L196207%_)))) (declare (not safe)) (keyword->symbol - __tmp197194))) - (_%off194949%_ + __tmp198481))) + (_%off196236%_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194798%_ - _%slot194947%_)))) - (if _%off194949%_ - (_%lp194836%_ - _%L194918%_ - (cons (cons _%off194949%_ - _%L194919%_) - _%initializers194839%_)) - (let ((__tmp197195 + _%klass196085%_ + _%slot196234%_)))) + (if _%off196236%_ + (_%lp196123%_ + _%L196205%_ + (cons (cons _%off196236%_ + _%L196206%_) + _%initializers196126%_)) + (let ((__tmp198482 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self196062%_ '1 '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _%stx194770%_ - __tmp197195 - _%slot194947%_)))))) - (_%__kont196667196668%_ + _%stx196057%_ + __tmp198482 + _%slot196234%_)))))) + (_%__kont197954197955%_ (lambda () - (let ((__tmp197196 + (let ((__tmp198483 (cons '%#let-values - (cons (cons (cons (cons _%$obj194834%_ + (cons (cons (cons (cons _%$obj196121%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%inline-make-object194795%_ '())) + (cons _%inline-make-object196082%_ '())) '()) (cons (cons '%#begin - (let ((__tmp197199 + (let ((__tmp198486 (cons (cons '%#ref - (cons _%$obj194834%_ '())) + (cons _%$obj196121%_ '())) '())) - (__tmp197197 - (let ((__tmp197198 - (lambda (_%i194878%_ _%r194879%_) + (__tmp198484 + (let ((__tmp198485 + (lambda (_%i196165%_ _%r196166%_) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194775%_ + _%self196062%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons (car _%i194878%_) '())) - (cons (cons '%#ref (cons _%$obj194834%_ '())) - (cons (cdr _%i194878%_) '()))))) + (cons (cons '%#quote (cons (car _%i196165%_) '())) + (cons (cons '%#ref (cons _%$obj196121%_ '())) + (cons (cdr _%i196165%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r194879%_)))) + _%r196166%_)))) (declare (not safe)) (__foldl1 - __tmp197198 + __tmp198485 '() - _%initializers194839%_)))) + _%initializers196126%_)))) (declare (not safe)) - (__foldr1 cons __tmp197199 __tmp197197))) + (__foldr1 cons __tmp198486 __tmp198484))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197196 - _%stx194770%_)))) - (_%__kont196669196670%_ + __tmp198483 + _%stx196057%_)))) + (_%__kont197956197957%_ (lambda () - (let ((__tmp197200 + (let ((__tmp198487 (cons '%#let-values - (cons (cons (cons (cons _%$obj194834%_ + (cons (cons (cons (cons _%$obj196121%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%inline-make-object194795%_ '())) + (cons _%inline-make-object196082%_ '())) '()) (cons (cons '%#begin (cons (cons '%#call @@ -2444,157 +2444,157 @@ (cons 'class-instance-init! '())) (cons (cons '%#ref - (cons _%$obj194834%_ + (cons _%$obj196121%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args194793%_))) + _%args196080%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj194834%_ '())) + (cons _%$obj196121%_ '())) '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197200 - _%stx194770%_))))) - (let* ((_%g194841194881%_ + __tmp198487 + _%stx196057%_))))) + (let* ((_%g196128196168%_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - _%__stx196663196664%_)) - (_%__kont196667196668%_) - (_%__kont196669196670%_)))) - (_%__match196700196701%_ - (lambda (_%e194848194886%_ - _%hd194849194889%_ - _%tl194850194891%_ - _%e194851194894%_ - _%hd194852194897%_ - _%tl194853194899%_ - _%e194854194902%_ - _%hd194855194905%_ - _%tl194856194907%_ - _%e194857194910%_ - _%hd194858194913%_ - _%tl194859194915%_) - (let ((_%L194918%_ - _%tl194859194915%_) - (_%L194919%_ - _%hd194858194913%_) - (_%L194920%_ - _%hd194855194905%_)) + _%__stx197950197951%_)) + (_%__kont197954197955%_) + (_%__kont197956197957%_)))) + (_%__match197987197988%_ + (lambda (_%e196135196173%_ + _%hd196136196176%_ + _%tl196137196178%_ + _%e196138196181%_ + _%hd196139196184%_ + _%tl196140196186%_ + _%e196141196189%_ + _%hd196142196192%_ + _%tl196143196194%_ + _%e196144196197%_ + _%hd196145196200%_ + _%tl196146196202%_) + (let ((_%L196205%_ + _%tl196146196202%_) + (_%L196206%_ + _%hd196145196200%_) + (_%L196207%_ + _%hd196142196192%_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _%L194920%_)) - (_%__kont196665196666%_ - _%L194918%_ - _%L194919%_ - _%L194920%_) - (_%__kont196669196670%_)))))) + _%L196207%_)) + (_%__kont197952197953%_ + _%L196205%_ + _%L196206%_ + _%L196207%_) + (_%__kont197956197957%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196663196664%_)) - (let ((_%e194848194886%_ + (gx#stx-pair? _%__stx197950197951%_)) + (let ((_%e196135196173%_ (let () (declare (not safe)) (gx#stx-e - _%__stx196663196664%_)))) - (let ((_%tl194850194891%_ + _%__stx197950197951%_)))) + (let ((_%tl196137196178%_ (let () (declare (not safe)) - (##cdr _%e194848194886%_))) - (_%hd194849194889%_ + (##cdr _%e196135196173%_))) + (_%hd196136196176%_ (let () (declare (not safe)) - (##car _%e194848194886%_)))) + (##car _%e196135196173%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd194849194889%_)) - (let ((_%e194851194894%_ + _%hd196136196176%_)) + (let ((_%e196138196181%_ (let () (declare (not safe)) (gx#stx-e - _%hd194849194889%_)))) - (let ((_%tl194853194899%_ + _%hd196136196176%_)))) + (let ((_%tl196140196186%_ (let () (declare (not safe)) - (##cdr _%e194851194894%_))) - (_%hd194852194897%_ + (##cdr _%e196138196181%_))) + (_%hd196139196184%_ (let () (declare (not safe)) - (##car _%e194851194894%_)))) + (##car _%e196138196181%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd194852194897%_)) + _%hd196139196184%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd194852194897%_)) + _%hd196139196184%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl194853194899%_)) - (let ((_%e194854194902%_ + (gx#stx-pair? _%tl196140196186%_)) + (let ((_%e196141196189%_ (let () (declare (not safe)) - (gx#stx-e _%tl194853194899%_)))) - (let ((_%tl194856194907%_ + (gx#stx-e _%tl196140196186%_)))) + (let ((_%tl196143196194%_ (let () (declare (not safe)) - (##cdr _%e194854194902%_))) - (_%hd194855194905%_ + (##cdr _%e196141196189%_))) + (_%hd196142196192%_ (let () (declare (not safe)) - (##car _%e194854194902%_)))) + (##car _%e196141196189%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194856194907%_)) + (gx#stx-null? _%tl196143196194%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194850194891%_)) - (let ((_%e194857194910%_ + (gx#stx-pair? _%tl196137196178%_)) + (let ((_%e196144196197%_ (let () (declare (not safe)) - (gx#stx-e _%tl194850194891%_)))) - (let ((_%tl194859194915%_ + (gx#stx-e _%tl196137196178%_)))) + (let ((_%tl196146196202%_ (let () (declare (not safe)) - (##cdr _%e194857194910%_))) - (_%hd194858194913%_ + (##cdr _%e196144196197%_))) + (_%hd196145196200%_ (let () (declare (not safe)) - (##car _%e194857194910%_)))) - (_%__match196700196701%_ - _%e194848194886%_ - _%hd194849194889%_ - _%tl194850194891%_ - _%e194851194894%_ - _%hd194852194897%_ - _%tl194853194899%_ - _%e194854194902%_ - _%hd194855194905%_ - _%tl194856194907%_ - _%e194857194910%_ - _%hd194858194913%_ - _%tl194859194915%_))) - (_%__kont196669196670%_)) - (_%__kont196669196670%_)))) - (_%__kont196669196670%_)) - (_%__kont196669196670%_)) - (_%__kont196669196670%_)))) + (##car _%e196144196197%_)))) + (_%__match197987197988%_ + _%e196135196173%_ + _%hd196136196176%_ + _%tl196137196178%_ + _%e196138196181%_ + _%hd196139196184%_ + _%tl196140196186%_ + _%e196141196189%_ + _%hd196142196192%_ + _%tl196143196194%_ + _%e196144196197%_ + _%hd196145196200%_ + _%tl196146196202%_))) + (_%__kont197956197957%_)) + (_%__kont197956197957%_)))) + (_%__kont197956197957%_)) + (_%__kont197956197957%_)) + (_%__kont197956197957%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196669196670%_)))) + (_%__kont197956197957%_)))) (let () (declare (not safe)) - (_%g194841194881%_))))))))))))))) + (_%g196128196168%_))))))))))))))) (let () (declare (not safe)) (__bind-method!__% @@ -2603,105 +2603,105 @@ gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_%self192391194548%_ _%ctx194550%_ _%stx194551%_ _%args194552%_) - (let* ((_%self194554%_ _%self192391194548%_) - (_%self194556%_ _%self194554%_) - (_%arguments-ok?194566%_ - (let ((__method197144 + (lambda (_%self193678195835%_ _%ctx195837%_ _%stx195838%_ _%args195839%_) + (let* ((_%self195841%_ _%self193678195835%_) + (_%self195843%_ _%self195841%_) + (_%arguments-ok?195853%_ + (let ((__method198431 (let () (declare (not safe)) - (__method-ref _%self194556%_ 'check-arguments)))) - (if __method197144 + (__method-ref _%self195843%_ 'check-arguments)))) + (if __method198431 (let () (declare (not safe)) - (__method197144 - _%self194556%_ - _%ctx194550%_ - _%stx194551%_ - _%args194552%_)) + (__method198431 + _%self195843%_ + _%ctx195837%_ + _%stx195838%_ + _%args195839%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self194556%_ + _%self195843%_ 'check-arguments)) '#!void)))) - (_%g194568194578%_ - (lambda (_%g194569194575%_) + (_%g195855195865%_ + (lambda (_%g195856195862%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194569194575%_)))) - (_%g194567194642%_ - (lambda (_%g194569194581%_) + _%g195856195862%_)))) + (_%g195854195929%_ + (lambda (_%g195856195868%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194569194581%_)) - (let ((_%e194571194583%_ + (gx#stx-pair? _%g195856195868%_)) + (let ((_%e195858195870%_ (let () (declare (not safe)) - (gx#stx-e _%g194569194581%_)))) - (let ((_%hd194572194586%_ + (gx#stx-e _%g195856195868%_)))) + (let ((_%hd195859195873%_ (let () (declare (not safe)) - (##car _%e194571194583%_))) - (_%tl194573194588%_ + (##car _%e195858195870%_))) + (_%tl195860195875%_ (let () (declare (not safe)) - (##cdr _%e194571194583%_)))) + (##cdr _%e195858195870%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194573194588%_)) - ((lambda (_%L194591%_) - (let* ((_%klass194604%_ - (let ((__tmp197201 + (gx#stx-null? _%tl195860195875%_)) + ((lambda (_%L195878%_) + (let* ((_%klass195891%_ + (let ((__tmp198488 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194551%_ - __tmp197201))) - (_%field194606%_ - (let ((__tmp197202 + _%stx195838%_ + __tmp198488))) + (_%field195893%_ + (let ((__tmp198489 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194604%_ - __tmp197202))) - (_%object194608%_ + _%klass195891%_ + __tmp198489))) + (_%object195895%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194550%_ - _%L194591%_))) - (_%klass194611%_ _%klass194604%_)) + _%ctx195837%_ + _%L195878%_))) + (_%klass195898%_ _%klass195891%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194611%_ + _%klass195898%_ '8 '#f '#f)) - (let ((__tmp197203 - (cons (if (or _%arguments-ok?194566%_ + (let ((__tmp198490 + (cons (if (or _%arguments-ok?195853%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '4 '#f '#f)))) @@ -2713,32 +2713,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194606%_ '())) - (cons _%object194608%_ '())))))) + (cons (cons '%#quote (cons _%field195893%_ '())) + (cons _%object195895%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197203 - _%stx194551%_)) + __tmp198490 + _%stx195838%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194611%_ + _%klass195898%_ '7 '#f '#f)) - (let ((__tmp197204 - (cons (if (or _%arguments-ok?194566%_ + (let ((__tmp198491 + (cons (if (or _%arguments-ok?195853%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '4 '#f '#f)))) @@ -2748,40 +2748,40 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194606%_ '())) - (cons _%object194608%_ '())))))) + (cons (cons '%#quote (cons _%field195893%_ '())) + (cons _%object195895%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197204 - _%stx194551%_)) - (let ((_%$e194630%_ - (let ((__tmp197205 + __tmp198491 + _%stx195838%_)) + (let ((_%$e195917%_ + (let ((__tmp198492 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass194611%_ - __tmp197205)))) - (if _%$e194630%_ - ((lambda (_%klass194633%_) - (let ((__tmp197206 - (cons (if (or _%arguments-ok?194566%_ + _%klass195898%_ + __tmp198492)))) + (if _%$e195917%_ + ((lambda (_%klass195920%_) + (let ((__tmp198493 + (cons (if (or _%arguments-ok?195853%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '4 '#f '#f)))) @@ -2791,36 +2791,36 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194606%_ '())) - (cons _%object194608%_ '())))))) + (cons (cons '%#quote (cons _%field195893%_ '())) + (cons _%object195895%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197206 _%stx194551%_))) + (gxc#xform-wrap-source __tmp198493 _%stx195838%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e194630%_) + _%$e195917%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '4 '#f '#f)) - (let ((__tmp197207 - (let ((_%$obj194639%_ + (let ((__tmp198494 + (let ((_%$obj195926%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp197208 + (let ((__tmp198495 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197208)))) + (make-symbol__0 __tmp198495)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194639%_ '()) - (cons _%object194608%_ '())) + (cons (cons (cons (cons _%$obj195926%_ '()) + (cons _%object195895%_ '())) '()) (cons (cons '%#if (cons (cons '%#struct-direct-instance? @@ -2829,12 +2829,12 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194611%_ + _%klass195898%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194639%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj195926%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#struct-unchecked-ref (cons (cons '%#ref @@ -2842,27 +2842,27 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194606%_ '())) + (cons (cons '%#quote (cons _%field195893%_ '())) (cons (cons '%#ref - (cons _%$obj194639%_ '())) + (cons _%$obj195926%_ '())) '())))) - (cons (if _%arguments-ok?194566%_ + (cons (if _%arguments-ok?195853%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) (cons (cons '%#ref - (cons _%$obj194639%_ '())) + (cons _%$obj195926%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '3 '#f '#f)) @@ -2877,20 +2877,20 @@ (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '1 '#f '#f)) '())) (cons (cons '%#ref - (cons _%$obj194639%_ + (cons _%$obj195926%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '3 '#f '#f)) @@ -2901,148 +2901,148 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197207 _%stx194551%_)) + (gxc#xform-wrap-source __tmp198494 _%stx195838%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp197209 + (let ((__tmp198496 (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'unchecked-slot-ref '())) - (cons _%object194608%_ + (cons _%object195895%_ (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '3 '#f '#f)) '())) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197209 _%stx194551%_))))))))) + (gxc#xform-wrap-source __tmp198496 _%stx195838%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194572194586%_) - (_%g194568194578%_ _%g194569194581%_)))) - (_%g194568194578%_ _%g194569194581%_))))) - (_%g194567194642%_ _%args194552%_)))) + _%hd195859195873%_) + (_%g195855195865%_ _%g195856195868%_)))) + (_%g195855195865%_ _%g195856195868%_))))) + (_%g195854195929%_ _%args195839%_)))) (define gxc#!accessor::optimize-call::specialize - (lambda (__klass196431 __method-table196432) - (let ((__check-arguments196433 - (let ((__tmp197210 + (lambda (__klass197718 __method-table197719) + (let ((__check-arguments197720 + (let ((__tmp198497 (lambda () - (let ((__method196434 + (let ((__method197721 (let () (declare (not safe)) (symbolic-table-ref - __method-table196432 + __method-table197719 'check-arguments '#f)))) - (if __method196434 - __method196434 + (if __method197721 + __method197721 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp197210))) - (__slot196435 - (let ((__slot196436 + (__make-promise __tmp198497))) + (__slot197722 + (let ((__slot197723 (let () (declare (not safe)) - (class-slot-offset __klass196431 'slot)))) - (if __slot196436 - __slot196436 + (class-slot-offset __klass197718 'slot)))) + (if __slot197723 + __slot197723 (let () (declare (not safe)) (error '"Unknown slot" 'slot)))))) - (lambda (_%self192391194548%_ - _%ctx194550%_ - _%stx194551%_ - _%args194552%_) - (let* ((_%self194554%_ _%self192391194548%_) - (_%self194556%_ _%self194554%_) - (_%arguments-ok?194566%_ - ((force __check-arguments196433) - _%self194556%_ - _%ctx194550%_ - _%stx194551%_ - _%args194552%_)) - (_%g194568194578%_ - (lambda (_%g194569194575%_) + (lambda (_%self193678195835%_ + _%ctx195837%_ + _%stx195838%_ + _%args195839%_) + (let* ((_%self195841%_ _%self193678195835%_) + (_%self195843%_ _%self195841%_) + (_%arguments-ok?195853%_ + ((force __check-arguments197720) + _%self195843%_ + _%ctx195837%_ + _%stx195838%_ + _%args195839%_)) + (_%g195855195865%_ + (lambda (_%g195856195862%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194569194575%_)))) - (_%g194567194642%_ - (lambda (_%g194569194581%_) + _%g195856195862%_)))) + (_%g195854195929%_ + (lambda (_%g195856195868%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194569194581%_)) - (let ((_%e194571194583%_ + (gx#stx-pair? _%g195856195868%_)) + (let ((_%e195858195870%_ (let () (declare (not safe)) - (gx#stx-e _%g194569194581%_)))) - (let ((_%hd194572194586%_ + (gx#stx-e _%g195856195868%_)))) + (let ((_%hd195859195873%_ (let () (declare (not safe)) - (##car _%e194571194583%_))) - (_%tl194573194588%_ + (##car _%e195858195870%_))) + (_%tl195860195875%_ (let () (declare (not safe)) - (##cdr _%e194571194583%_)))) + (##cdr _%e195858195870%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194573194588%_)) - ((lambda (_%L194591%_) - (let* ((_%klass194604%_ - (let ((__tmp197211 + (gx#stx-null? _%tl195860195875%_)) + ((lambda (_%L195878%_) + (let* ((_%klass195891%_ + (let ((__tmp198498 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194551%_ - __tmp197211))) - (_%field194606%_ - (let ((__tmp197212 + _%stx195838%_ + __tmp198498))) + (_%field195893%_ + (let ((__tmp198499 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194604%_ - __tmp197212))) - (_%object194608%_ + _%klass195891%_ + __tmp198499))) + (_%object195895%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194550%_ - _%L194591%_))) - (_%klass194611%_ _%klass194604%_)) + _%ctx195837%_ + _%L195878%_))) + (_%klass195898%_ _%klass195891%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194611%_ + _%klass195898%_ '8 '#f '#f)) - (let ((__tmp197213 - (cons (if (or _%arguments-ok?194566%_ + (let ((__tmp198500 + (cons (if (or _%arguments-ok?195853%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '4 '#f '#f)))) @@ -3052,32 +3052,32 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194606%_ '())) - (cons _%object194608%_ '())))))) + (cons (cons '%#quote (cons _%field195893%_ '())) + (cons _%object195895%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197213 - _%stx194551%_)) + __tmp198500 + _%stx195838%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194611%_ + _%klass195898%_ '7 '#f '#f)) - (let ((__tmp197214 - (cons (if (or _%arguments-ok?194566%_ + (let ((__tmp198501 + (cons (if (or _%arguments-ok?195853%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '4 '#f '#f)))) @@ -3087,37 +3087,37 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194606%_ '())) - (cons _%object194608%_ '())))))) + (cons (cons '%#quote (cons _%field195893%_ '())) + (cons _%object195895%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197214 - _%stx194551%_)) - (let ((_%$e194630%_ - (let ((__tmp197215 + __tmp198501 + _%stx195838%_)) + (let ((_%$e195917%_ + (let ((__tmp198502 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self194556%_ '3 '#f '#f)))) + (##unchecked-structure-ref _%self195843%_ '3 '#f '#f)))) (declare (not safe)) - (gxc#!class-slot-find-struct _%klass194611%_ __tmp197215)))) + (gxc#!class-slot-find-struct _%klass195898%_ __tmp198502)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e194630%_ - ((lambda (_%klass194633%_) - (let ((__tmp197216 - (cons (if (or _%arguments-ok?194566%_ + (if _%$e195917%_ + ((lambda (_%klass195920%_) + (let ((__tmp198503 + (cons (if (or _%arguments-ok?195853%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '4 '#f '#f)))) @@ -3127,37 +3127,37 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194606%_ '())) - (cons _%object194608%_ '())))))) + (cons _%field195893%_ '())) + (cons _%object195895%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197216 _%stx194551%_))) - _%$e194630%_) + (gxc#xform-wrap-source __tmp198503 _%stx195838%_))) + _%$e195917%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '4 '#f '#f)) - (let ((__tmp197217 - (let ((_%$obj194639%_ + (let ((__tmp198504 + (let ((_%$obj195926%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp197218 + (let ((__tmp198505 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197218)))) + (make-symbol__0 __tmp198505)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194639%_ '()) - (cons _%object194608%_ '())) + (cons (cons (cons (cons _%$obj195926%_ '()) + (cons _%object195895%_ '())) '()) (cons (cons '%#if (cons (cons '%#struct-direct-instance? @@ -3166,43 +3166,43 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194611%_ + _%klass195898%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194639%_ '())) + (cons (cons '%#ref (cons _%$obj195926%_ '())) '()))) (cons (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194606%_ '())) + (cons _%field195893%_ '())) (cons (cons '%#ref - (cons _%$obj194639%_ '())) + (cons _%$obj195926%_ '())) '())))) - (cons (if _%arguments-ok?194566%_ + (cons (if _%arguments-ok?195853%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) (cons (cons '%#ref - (cons _%$obj194639%_ + (cons _%$obj195926%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ - __slot196435 + _%self195843%_ + __slot197722 '#f '#f)) '())) @@ -3216,18 +3216,18 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self194556%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self195843%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj194639%_ + (cons _%$obj195926%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '3 '#f '#f)) @@ -3238,30 +3238,30 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197217 _%stx194551%_)) - (let ((__tmp197219 + (gxc#xform-wrap-source __tmp198504 _%stx195838%_)) + (let ((__tmp198506 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) - (cons _%object194608%_ + (cons _%object195895%_ (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194556%_ + _%self195843%_ '3 '#f '#f)) '())) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197219 _%stx194551%_))))))))) + (gxc#xform-wrap-source __tmp198506 _%stx195838%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194572194586%_) - (_%g194568194578%_ _%g194569194581%_)))) - (_%g194568194578%_ _%g194569194581%_))))) - (_%g194567194642%_ _%args194552%_)))))) + _%hd195859195873%_) + (_%g195855195865%_ _%g195856195868%_)))) + (_%g195855195865%_ _%g195856195868%_))))) + (_%g195854195929%_ _%args195839%_)))))) (let () (declare (not safe)) (bind-specializer! @@ -3275,127 +3275,127 @@ gxc#!accessor::optimize-call '#f)) (define gxc#!mutator::optimize-call - (lambda (_%self192392194310%_ _%ctx194312%_ _%stx194313%_ _%args194314%_) - (let* ((_%self194316%_ _%self192392194310%_) - (_%self194318%_ _%self194316%_) - (_%arguments-ok?194328%_ - (let ((__method197145 + (lambda (_%self193679195597%_ _%ctx195599%_ _%stx195600%_ _%args195601%_) + (let* ((_%self195603%_ _%self193679195597%_) + (_%self195605%_ _%self195603%_) + (_%arguments-ok?195615%_ + (let ((__method198432 (let () (declare (not safe)) - (__method-ref _%self194318%_ 'check-arguments)))) - (if __method197145 + (__method-ref _%self195605%_ 'check-arguments)))) + (if __method198432 (let () (declare (not safe)) - (__method197145 - _%self194318%_ - _%ctx194312%_ - _%stx194313%_ - _%args194314%_)) + (__method198432 + _%self195605%_ + _%ctx195599%_ + _%stx195600%_ + _%args195601%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self194318%_ + _%self195605%_ 'check-arguments)) '#!void)))) - (_%g194330194344%_ - (lambda (_%g194331194341%_) + (_%g195617195631%_ + (lambda (_%g195618195628%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194331194341%_)))) - (_%g194329194423%_ - (lambda (_%g194331194347%_) + _%g195618195628%_)))) + (_%g195616195710%_ + (lambda (_%g195618195634%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194331194347%_)) - (let ((_%e194334194349%_ + (gx#stx-pair? _%g195618195634%_)) + (let ((_%e195621195636%_ (let () (declare (not safe)) - (gx#stx-e _%g194331194347%_)))) - (let ((_%hd194335194352%_ + (gx#stx-e _%g195618195634%_)))) + (let ((_%hd195622195639%_ (let () (declare (not safe)) - (##car _%e194334194349%_))) - (_%tl194336194354%_ + (##car _%e195621195636%_))) + (_%tl195623195641%_ (let () (declare (not safe)) - (##cdr _%e194334194349%_)))) + (##cdr _%e195621195636%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194336194354%_)) - (let ((_%e194337194357%_ + (gx#stx-pair? _%tl195623195641%_)) + (let ((_%e195624195644%_ (let () (declare (not safe)) - (gx#stx-e _%tl194336194354%_)))) - (let ((_%hd194338194360%_ + (gx#stx-e _%tl195623195641%_)))) + (let ((_%hd195625195647%_ (let () (declare (not safe)) - (##car _%e194337194357%_))) - (_%tl194339194362%_ + (##car _%e195624195644%_))) + (_%tl195626195649%_ (let () (declare (not safe)) - (##cdr _%e194337194357%_)))) + (##cdr _%e195624195644%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194339194362%_)) - ((lambda (_%L194365%_ _%L194366%_) - (let* ((_%klass194382%_ - (let ((__tmp197220 + (gx#stx-null? _%tl195626195649%_)) + ((lambda (_%L195652%_ _%L195653%_) + (let* ((_%klass195669%_ + (let ((__tmp198507 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194313%_ - __tmp197220))) - (_%field194384%_ - (let ((__tmp197221 + _%stx195600%_ + __tmp198507))) + (_%field195671%_ + (let ((__tmp198508 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194382%_ - __tmp197221))) - (_%object194386%_ + _%klass195669%_ + __tmp198508))) + (_%object195673%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194312%_ - _%L194366%_))) - (_%value194388%_ + _%ctx195599%_ + _%L195653%_))) + (_%value195675%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194312%_ - _%L194365%_))) - (_%klass194391%_ - _%klass194382%_)) + _%ctx195599%_ + _%L195652%_))) + (_%klass195678%_ + _%klass195669%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194391%_ + _%klass195678%_ '8 '#f '#f)) - (let ((__tmp197222 - (cons (if (or _%arguments-ok?194328%_ + (let ((__tmp198509 + (cons (if (or _%arguments-ok?195615%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '4 '#f '#f)))) @@ -3405,33 +3405,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194384%_ '())) - (cons _%object194386%_ - (cons _%value194388%_ '()))))))) + (cons (cons '%#quote (cons _%field195671%_ '())) + (cons _%object195673%_ + (cons _%value195675%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197222 - _%stx194313%_)) + __tmp198509 + _%stx195600%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194391%_ + _%klass195678%_ '7 '#f '#f)) - (let ((__tmp197223 - (cons (if (or _%arguments-ok?194328%_ + (let ((__tmp198510 + (cons (if (or _%arguments-ok?195615%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '4 '#f '#f)))) @@ -3441,43 +3441,43 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194384%_ '())) - (cons _%object194386%_ - (cons _%value194388%_ '()))))))) + (cons (cons '%#quote (cons _%field195671%_ '())) + (cons _%object195673%_ + (cons _%value195675%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197223 - _%stx194313%_)) - (let ((_%$e194411%_ - (let ((__tmp197224 + __tmp198510 + _%stx195600%_)) + (let ((_%$e195698%_ + (let ((__tmp198511 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass194391%_ - __tmp197224)))) + _%klass195678%_ + __tmp198511)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e194411%_ - ((lambda (_%klass194414%_) - (let ((__tmp197225 + (if _%$e195698%_ + ((lambda (_%klass195701%_) + (let ((__tmp198512 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (if (or _%arguments-ok?194328%_ + (cons (if (or _%arguments-ok?195615%_ (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '3 '#f '#f)))) @@ -3487,33 +3487,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194384%_ '())) - (cons _%object194386%_ - (cons _%value194388%_ + (cons _%field195671%_ '())) + (cons _%object195673%_ + (cons _%value195675%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197225 _%stx194313%_))) - _%$e194411%_) + (gxc#xform-wrap-source __tmp198512 _%stx195600%_))) + _%$e195698%_) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self194318%_ '4 '#f '#f)) - (let ((__tmp197226 - (let ((_%$obj194420%_ - (let ((__tmp197227 + (##unchecked-structure-ref _%self195605%_ '4 '#f '#f)) + (let ((__tmp198513 + (let ((_%$obj195707%_ + (let ((__tmp198514 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197227)))) + (make-symbol__0 __tmp198514)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194420%_ '()) - (cons _%object194386%_ + (cons (cons (cons (cons _%$obj195707%_ '()) + (cons _%object195673%_ '())) '()) (cons (cons '%#if @@ -3523,49 +3523,49 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194391%_ + _%klass195678%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194420%_ '())) + (cons (cons '%#ref (cons _%$obj195707%_ '())) '()))) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194384%_ '())) + (cons _%field195671%_ '())) (cons (cons '%#ref - (cons _%$obj194420%_ + (cons _%$obj195707%_ '())) - (cons _%value194388%_ + (cons _%value195675%_ '()))))) - (cons (if _%arguments-ok?194328%_ + (cons (if _%arguments-ok?195615%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) (cons (cons '%#ref - (cons _%$obj194420%_ + (cons _%$obj195707%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '3 '#f '#f)) '())) - (cons _%value194388%_ '()))))) + (cons _%value195675%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '%#call (cons (cons '%#ref @@ -3576,189 +3576,189 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194420%_ '())) + (cons (cons '%#ref (cons _%$obj195707%_ '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '3 '#f '#f)) '())) - (cons _%value194388%_ '()))))))) + (cons _%value195675%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197226 _%stx194313%_)) - (let ((__tmp197228 + (gxc#xform-wrap-source __tmp198513 _%stx195600%_)) + (let ((__tmp198515 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) - (cons _%object194386%_ + (cons _%object195673%_ (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '3 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%value194388%_ + (cons _%value195675%_ '()))))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp197228 - _%stx194313%_))))))))) + __tmp198515 + _%stx195600%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194338194360%_ - _%hd194335194352%_) - (_%g194330194344%_ _%g194331194347%_)))) - (_%g194330194344%_ _%g194331194347%_)))) - (_%g194330194344%_ _%g194331194347%_))))) - (_%g194329194423%_ _%args194314%_)))) + _%hd195625195647%_ + _%hd195622195639%_) + (_%g195617195631%_ _%g195618195634%_)))) + (_%g195617195631%_ _%g195618195634%_)))) + (_%g195617195631%_ _%g195618195634%_))))) + (_%g195616195710%_ _%args195601%_)))) (define gxc#!mutator::optimize-call::specialize - (lambda (__klass196437 __method-table196438) - (let ((__check-arguments196439 - (let ((__tmp197229 + (lambda (__klass197724 __method-table197725) + (let ((__check-arguments197726 + (let ((__tmp198516 (lambda () - (let ((__method196440 + (let ((__method197727 (let () (declare (not safe)) (symbolic-table-ref - __method-table196438 + __method-table197725 'check-arguments '#f)))) - (if __method196440 - __method196440 + (if __method197727 + __method197727 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp197229)))) - (lambda (_%self192392194310%_ - _%ctx194312%_ - _%stx194313%_ - _%args194314%_) - (let* ((_%self194316%_ _%self192392194310%_) - (_%self194318%_ _%self194316%_) - (_%arguments-ok?194328%_ - ((force __check-arguments196439) - _%self194318%_ - _%ctx194312%_ - _%stx194313%_ - _%args194314%_)) - (_%g194330194344%_ - (lambda (_%g194331194341%_) + (__make-promise __tmp198516)))) + (lambda (_%self193679195597%_ + _%ctx195599%_ + _%stx195600%_ + _%args195601%_) + (let* ((_%self195603%_ _%self193679195597%_) + (_%self195605%_ _%self195603%_) + (_%arguments-ok?195615%_ + ((force __check-arguments197726) + _%self195605%_ + _%ctx195599%_ + _%stx195600%_ + _%args195601%_)) + (_%g195617195631%_ + (lambda (_%g195618195628%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194331194341%_)))) - (_%g194329194423%_ - (lambda (_%g194331194347%_) + _%g195618195628%_)))) + (_%g195616195710%_ + (lambda (_%g195618195634%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194331194347%_)) - (let ((_%e194334194349%_ + (gx#stx-pair? _%g195618195634%_)) + (let ((_%e195621195636%_ (let () (declare (not safe)) - (gx#stx-e _%g194331194347%_)))) - (let ((_%hd194335194352%_ + (gx#stx-e _%g195618195634%_)))) + (let ((_%hd195622195639%_ (let () (declare (not safe)) - (##car _%e194334194349%_))) - (_%tl194336194354%_ + (##car _%e195621195636%_))) + (_%tl195623195641%_ (let () (declare (not safe)) - (##cdr _%e194334194349%_)))) + (##cdr _%e195621195636%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194336194354%_)) - (let ((_%e194337194357%_ + (gx#stx-pair? _%tl195623195641%_)) + (let ((_%e195624195644%_ (let () (declare (not safe)) - (gx#stx-e _%tl194336194354%_)))) - (let ((_%hd194338194360%_ + (gx#stx-e _%tl195623195641%_)))) + (let ((_%hd195625195647%_ (let () (declare (not safe)) - (##car _%e194337194357%_))) - (_%tl194339194362%_ + (##car _%e195624195644%_))) + (_%tl195626195649%_ (let () (declare (not safe)) - (##cdr _%e194337194357%_)))) + (##cdr _%e195624195644%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194339194362%_)) - ((lambda (_%L194365%_ _%L194366%_) - (let* ((_%klass194382%_ - (let ((__tmp197230 + (gx#stx-null? _%tl195626195649%_)) + ((lambda (_%L195652%_ _%L195653%_) + (let* ((_%klass195669%_ + (let ((__tmp198517 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194313%_ - __tmp197230))) - (_%field194384%_ - (let ((__tmp197231 + _%stx195600%_ + __tmp198517))) + (_%field195671%_ + (let ((__tmp198518 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194382%_ - __tmp197231))) - (_%object194386%_ + _%klass195669%_ + __tmp198518))) + (_%object195673%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194312%_ - _%L194366%_))) - (_%value194388%_ + _%ctx195599%_ + _%L195653%_))) + (_%value195675%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194312%_ - _%L194365%_))) - (_%klass194391%_ - _%klass194382%_)) + _%ctx195599%_ + _%L195652%_))) + (_%klass195678%_ + _%klass195669%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194391%_ + _%klass195678%_ '8 '#f '#f)) - (let ((__tmp197232 - (cons (if (or _%arguments-ok?194328%_ + (let ((__tmp198519 + (cons (if (or _%arguments-ok?195615%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '4 '#f '#f)))) @@ -3768,33 +3768,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194384%_ '())) - (cons _%object194386%_ - (cons _%value194388%_ '()))))))) + (cons (cons '%#quote (cons _%field195671%_ '())) + (cons _%object195673%_ + (cons _%value195675%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197232 - _%stx194313%_)) + __tmp198519 + _%stx195600%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194391%_ + _%klass195678%_ '7 '#f '#f)) - (let ((__tmp197233 - (cons (if (or _%arguments-ok?194328%_ + (let ((__tmp198520 + (cons (if (or _%arguments-ok?195615%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '4 '#f '#f)))) @@ -3804,38 +3804,38 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194384%_ '())) - (cons _%object194386%_ - (cons _%value194388%_ '()))))))) + (cons _%field195671%_ '())) + (cons _%object195673%_ + (cons _%value195675%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197233 _%stx194313%_)) - (let ((_%$e194411%_ - (let ((__tmp197234 + (gxc#xform-wrap-source __tmp198520 _%stx195600%_)) + (let ((_%$e195698%_ + (let ((__tmp198521 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass194391%_ - __tmp197234)))) - (if _%$e194411%_ - ((lambda (_%klass194414%_) - (let ((__tmp197235 - (cons (if (or _%arguments-ok?194328%_ + _%klass195678%_ + __tmp198521)))) + (if _%$e195698%_ + ((lambda (_%klass195701%_) + (let ((__tmp198522 + (cons (if (or _%arguments-ok?195615%_ (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '3 '#f '#f)))) @@ -3845,39 +3845,39 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194384%_ + (cons _%field195671%_ '())) - (cons _%object194386%_ - (cons _%value194388%_ + (cons _%object195673%_ + (cons _%value195675%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197235 _%stx194313%_))) - _%$e194411%_) + (gxc#xform-wrap-source __tmp198522 _%stx195600%_))) + _%$e195698%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '4 '#f '#f)) - (let ((__tmp197236 - (let ((_%$obj194420%_ - (let ((__tmp197237 + (let ((__tmp198523 + (let ((_%$obj195707%_ + (let ((__tmp198524 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197237)))) + (make-symbol__0 __tmp198524)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194420%_ + (cons (cons (cons (cons _%$obj195707%_ '()) - (cons _%object194386%_ + (cons _%object195673%_ '())) '()) (cons (cons '%#if @@ -3887,52 +3887,52 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194391%_ + _%klass195678%_ '1 '#f '#f)) '())) (cons (cons '%#ref - (cons _%$obj194420%_ '())) + (cons _%$obj195707%_ '())) '()))) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194384%_ + (cons _%field195671%_ '())) (cons (cons '%#ref - (cons _%$obj194420%_ + (cons _%$obj195707%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%value194388%_ '()))))) + (cons _%value195675%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (if _%arguments-ok?194328%_ + (cons (if _%arguments-ok?195615%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) (cons (cons '%#ref - (cons _%$obj194420%_ + (cons _%$obj195707%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '3 '#f '#f)) '())) - (cons _%value194388%_ '()))))) + (cons _%value195675%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '%#call (cons (cons '%#ref @@ -3943,58 +3943,58 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194420%_ '())) + (cons (cons '%#ref (cons _%$obj195707%_ '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '3 '#f '#f)) '())) - (cons _%value194388%_ '()))))))) + (cons _%value195675%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197236 _%stx194313%_)) - (let ((__tmp197238 + (gxc#xform-wrap-source __tmp198523 _%stx195600%_)) + (let ((__tmp198525 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) - (cons _%object194386%_ + (cons _%object195673%_ (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194318%_ + _%self195605%_ '3 '#f '#f)) '())) - (cons _%value194388%_ '()))))))) + (cons _%value195675%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197238 - _%stx194313%_))))))))) + __tmp198525 + _%stx195600%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194338194360%_ - _%hd194335194352%_) - (_%g194330194344%_ - _%g194331194347%_)))) - (_%g194330194344%_ _%g194331194347%_)))) - (_%g194330194344%_ _%g194331194347%_))))) - (_%g194329194423%_ _%args194314%_)))))) + _%hd195625195647%_ + _%hd195622195639%_) + (_%g195617195631%_ + _%g195618195634%_)))) + (_%g195617195631%_ _%g195618195634%_)))) + (_%g195617195631%_ _%g195618195634%_))))) + (_%g195616195710%_ _%args195601%_)))))) (let () (declare (not safe)) (bind-specializer! @@ -4008,97 +4008,97 @@ gxc#!mutator::optimize-call '#f)) (define gxc#!lambda::optimize-call - (lambda (_%self192393194123%_ _%ctx194125%_ _%stx194126%_ _%args194127%_) - (let* ((_%self194129%_ _%self192393194123%_) - (_%self194131%_ _%self194129%_) - (_%self194140194150%_ _%self194131%_) - (_%E194142194154%_ + (lambda (_%self193680195410%_ _%ctx195412%_ _%stx195413%_ _%args195414%_) + (let* ((_%self195416%_ _%self193680195410%_) + (_%self195418%_ _%self195416%_) + (_%self195427195437%_ _%self195418%_) + (_%E195429195441%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self194140194150%_ + _%self195427195437%_ '((!lambda _ _ arity dispatch inline)))) '#!void)) - (_%K194143194164%_ - (lambda (_%inline194157%_ _%dispatch194158%_ _%arity194159%_) + (_%K195430195451%_ + (lambda (_%inline195444%_ _%dispatch195445%_ _%arity195446%_) (if (let () (declare (not safe)) (gxc#!lambda-arity-match? - _%self194131%_ - _%args194127%_)) + _%self195418%_ + _%args195414%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _%stx194126%_ - _%arity194159%_))) - (if _%inline194157%_ + _%stx195413%_ + _%arity195446%_))) + (if _%inline195444%_ (let () (let () (declare (not safe)) (gxc#verbose '"inline lambda")) - (let ((__tmp197239 (_%inline194157%_ _%stx194126%_))) + (let ((__tmp198526 (_%inline195444%_ _%stx195413%_))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197239 - _%stx194126%_ - _%ctx194125%_))) - (if (and _%dispatch194158%_ + __tmp198526 + _%stx195413%_ + _%ctx195412%_))) + (if (and _%dispatch195445%_ (let () (declare (not safe)) (gxc#symbol-in-local-scope? - _%dispatch194158%_))) + _%dispatch195445%_))) (let () (let () (declare (not safe)) (gxc#verbose '"dispatch lambda => " - _%dispatch194158%_)) - (let ((__tmp197240 + _%dispatch195445%_)) + (let ((__tmp198527 (cons '%#call (cons (cons '%#ref - (cons _%dispatch194158%_ + (cons _%dispatch195445%_ '())) - _%args194127%_)))) + _%args195414%_)))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197240 - _%stx194126%_ - _%ctx194125%_))) + __tmp198527 + _%stx195413%_ + _%ctx195412%_))) (gxc#!procedure::optimize-call - _%self194131%_ - _%ctx194125%_ - _%stx194126%_ - _%args194127%_))))) - (_%e194144194167%_ + _%self195418%_ + _%ctx195412%_ + _%stx195413%_ + _%args195414%_))))) + (_%e195431195454%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194140194150%_ '1 '#f '#f))) - (_%e194145194170%_ + (##unchecked-structure-ref _%self195427195437%_ '1 '#f '#f))) + (_%e195432195457%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194140194150%_ '2 '#f '#f))) - (_%e194146194173%_ + (##unchecked-structure-ref _%self195427195437%_ '2 '#f '#f))) + (_%e195433195460%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194140194150%_ '3 '#f '#f))) - (_%arity194176%_ _%e194146194173%_) - (_%e194147194178%_ + (##unchecked-structure-ref _%self195427195437%_ '3 '#f '#f))) + (_%arity195463%_ _%e195433195460%_) + (_%e195434195465%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194140194150%_ '4 '#f '#f))) - (_%dispatch194181%_ _%e194147194178%_) - (_%e194148194183%_ + (##unchecked-structure-ref _%self195427195437%_ '4 '#f '#f))) + (_%dispatch195468%_ _%e195434195465%_) + (_%e195435195470%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194140194150%_ '5 '#f '#f))) - (_%inline194186%_ _%e194148194183%_)) - (_%K194143194164%_ - _%inline194186%_ - _%dispatch194181%_ - _%arity194176%_)))) + (##unchecked-structure-ref _%self195427195437%_ '5 '#f '#f))) + (_%inline195473%_ _%e195435195470%_)) + (_%K195430195451%_ + _%inline195473%_ + _%dispatch195468%_ + _%arity195463%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4107,63 +4107,63 @@ gxc#!lambda::optimize-call '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_%self192394193973%_ _%ctx193975%_ _%stx193976%_ _%args193977%_) - (let* ((_%self193979%_ _%self192394193973%_) - (_%self193981%_ _%self193979%_) - (_%$e193995%_ - (let ((__tmp197242 - (lambda (_%g193990193992%_) + (lambda (_%self193681195260%_ _%ctx195262%_ _%stx195263%_ _%args195264%_) + (let* ((_%self195266%_ _%self193681195260%_) + (_%self195268%_ _%self195266%_) + (_%$e195282%_ + (let ((__tmp198529 + (lambda (_%g195277195279%_) (let () (declare (not safe)) (gxc#!lambda-arity-match? - _%g193990193992%_ - _%args193977%_)))) - (__tmp197241 + _%g195277195279%_ + _%args195264%_)))) + (__tmp198528 (let () (declare (not safe)) (##unchecked-structure-ref - _%self193981%_ + _%self195268%_ '3 '#f '#f)))) (declare (not safe)) - (__find __tmp197242 __tmp197241)))) - (if _%$e193995%_ - ((lambda (_%clause193998%_) - (let ((__method197146 + (__find __tmp198529 __tmp198528)))) + (if _%$e195282%_ + ((lambda (_%clause195285%_) + (let ((__method198433 (let () (declare (not safe)) - (__method-ref _%clause193998%_ 'optimize-call)))) - (if __method197146 + (__method-ref _%clause195285%_ 'optimize-call)))) + (if __method198433 (let () (declare (not safe)) - (__method197146 - _%clause193998%_ - _%ctx193975%_ - _%stx193976%_ - _%args193977%_)) + (__method198433 + _%clause195285%_ + _%ctx195262%_ + _%stx195263%_ + _%args195264%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause193998%_ + _%clause195285%_ 'optimize-call)) '#!void)))) - _%$e193995%_) - (let ((__tmp197243 + _%$e195282%_) + (let ((__tmp198530 (map gxc#!lambda-arity (let () (declare (not safe)) (##unchecked-structure-ref - _%self193981%_ + _%self195268%_ '3 '#f '#f))))) (declare (not safe)) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _%stx193976%_ - __tmp197243)))))) + _%stx195263%_ + __tmp198530)))))) (let () (declare (not safe)) (__bind-method!__% @@ -4172,116 +4172,116 @@ gxc#!case-lambda::optimize-call '#f)) (define gxc#!kw-lambda::optimize-call - (lambda (_%self192395193711%_ _%ctx193713%_ _%stx193714%_ _%args193715%_) - (let* ((_%self193717%_ _%self192395193711%_) - (_%self193719%_ _%self193717%_) - (_%self193728193737%_ _%self193719%_) - (_%E193730193741%_ + (lambda (_%self193682194998%_ _%ctx195000%_ _%stx195001%_ _%args195002%_) + (let* ((_%self195004%_ _%self193682194998%_) + (_%self195006%_ _%self195004%_) + (_%self195015195024%_ _%self195006%_) + (_%E195017195028%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self193728193737%_ + _%self195015195024%_ '((!kw-lambda _ _ table dispatch)))) '#!void)) - (_%K193731193832%_ - (lambda (_%dispatch193744%_ _%table193745%_) + (_%K195018195119%_ + (lambda (_%dispatch195031%_ _%table195032%_) (if (let () (declare (not safe)) - (gxc#symbol-in-local-scope? _%dispatch193744%_)) - (let* ((_%g193746193756%_ + (gxc#symbol-in-local-scope? _%dispatch195031%_)) + (let* ((_%g195033195043%_ (let () (declare (not safe)) (gxc#optimizer-lookup-type - _%dispatch193744%_))) - (_%else193748193764%_ + _%dispatch195031%_))) + (_%else195035195051%_ (lambda () (let () (declare (not safe)) (gxc#verbose '"unknown keyword dispatch lambda " - _%dispatch193744%_)) + _%dispatch195031%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx193713%_ - _%stx193714%_)))) - (_%K193750193813%_ - (lambda (_%main193767%_ _%keys193768%_) - (let ((_g197244_ + _%ctx195000%_ + _%stx195001%_)))) + (_%K195037195100%_ + (lambda (_%main195054%_ _%keys195055%_) + (let ((_g198531_ (gxc#!kw-lambda-split-args - _%stx193714%_ - _%args193715%_))) + _%stx195001%_ + _%args195002%_))) (begin - (let ((_g197245_ + (let ((_g198532_ (let () (declare (not safe)) - (if (##values? _g197244_) - (##vector-length _g197244_) + (if (##values? _g198531_) + (##values-length _g198531_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g197245_ 2))) + (##fx= _g198532_ 2))) (error "Context expects 2 values" - _g197245_))) - (let ((_%pargs193770%_ + _g198532_))) + (let ((_%pargs195057%_ (let () (declare (not safe)) - (##vector-ref _g197244_ 0))) - (_%kwargs193771%_ + (##values-ref _g198531_ 0))) + (_%kwargs195058%_ (let () (declare (not safe)) - (##vector-ref _g197244_ 1)))) + (##values-ref _g198531_ 1)))) (begin (let () (declare (not safe)) (gxc#verbose '"dispatch kw-lambda => " - _%main193767%_)) - (if _%table193745%_ - (let ((_%xargs193779%_ - (map (lambda (_%key193773%_) - (let ((_%$e193775%_ + _%main195054%_)) + (if _%table195032%_ + (let ((_%xargs195066%_ + (map (lambda (_%key195060%_) + (let ((_%$e195062%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (agetq__0 _%key193773%_ _%kwargs193771%_)))) - (if _%$e193775%_ _%$e193775%_ '(%#ref absent-value)))) - _%keys193768%_))) + (agetq__0 _%key195060%_ _%kwargs195058%_)))) + (if _%$e195062%_ _%$e195062%_ '(%#ref absent-value)))) + _%keys195055%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%kw193781%_) - (if (memq (car _%kw193781%_) - _%keys193768%_) + (lambda (_%kw195068%_) + (if (memq (car _%kw195068%_) + _%keys195055%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; unexpected keyword" - _%stx193714%_ - _%keys193768%_ - _%kw193781%_)))) - _%kwargs193771%_) - (let ((__tmp197246 + _%stx195001%_ + _%keys195055%_ + _%kw195068%_)))) + _%kwargs195058%_) + (let ((__tmp198533 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%main193767%_ '())) + (cons _%main195054%_ '())) (cons (cons '%#quote (cons '#f '())) (let () (declare (not safe)) (__foldr1 cons - _%pargs193770%_ - _%xargs193779%_))))))) + _%pargs195057%_ + _%xargs195066%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197246 - _%stx193714%_ - _%ctx193713%_))) - (let* ((_%kwt193783%_ - (let ((__tmp197247 + __tmp198533 + _%stx195001%_ + _%ctx195000%_))) + (let* ((_%kwt195070%_ + (let ((__tmp198534 (let () (declare (not safe)) @@ -4289,175 +4289,175 @@ '__kwt)))) (declare (not safe)) (make-symbol__0 - __tmp197247))) - (_%kwvars193787%_ - (map (lambda (_%_193785%_) - (let ((__tmp197248 + __tmp198534))) + (_%kwvars195074%_ + (map (lambda (_%_195072%_) + (let ((__tmp198535 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##gensym '__kw)))) (declare (not safe)) - (make-symbol__0 __tmp197248))) - _%kwargs193771%_)) + (make-symbol__0 __tmp198535))) + _%kwargs195058%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwbind193792%_ - (map (lambda (_%kw193789%_ + (_%kwbind195079%_ + (map (lambda (_%kw195076%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar193790%_) - (cons (cons _%kwvar193790%_ '()) - (cons (cdr _%kw193789%_) '()))) - _%kwargs193771%_ - _%kwvars193787%_)) + _%kwvar195077%_) + (cons (cons _%kwvar195077%_ '()) + (cons (cdr _%kw195076%_) '()))) + _%kwargs195058%_ + _%kwvars195074%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwset193797%_ - (map (lambda (_%kw193794%_ + (_%kwset195084%_ + (map (lambda (_%kw195081%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar193795%_) + _%kwvar195082%_) (cons '%#call (cons '(%#ref symbolic-table-set!) - (cons (cons '%#ref (cons _%kwt193783%_ '())) + (cons (cons '%#ref (cons _%kwt195070%_ '())) (cons (cons '%#quote - (cons (car _%kw193794%_) '())) + (cons (car _%kw195081%_) '())) (cons (cons '%#ref - (cons _%kwvar193795%_ + (cons _%kwvar195082%_ '())) '())))))) - _%kwargs193771%_ - _%kwvars193787%_)) + _%kwargs195058%_ + _%kwvars195074%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xkwargs193802%_ - (map (lambda (_%kw193799%_ + (_%xkwargs195089%_ + (map (lambda (_%kw195086%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar193800%_) - (cons (car _%kw193799%_) - (cons '%#ref (cons _%kwvar193800%_ '())))) - _%kwargs193771%_ - _%kwvars193787%_)) + _%kwvar195087%_) + (cons (car _%kw195086%_) + (cons '%#ref (cons _%kwvar195087%_ '())))) + _%kwargs195058%_ + _%kwvars195074%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xargs193810%_ - (map (lambda (_%key193804%_) - (let ((_%$e193806%_ + (_%xargs195097%_ + (map (lambda (_%key195091%_) + (let ((_%$e195093%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (agetq__0 _%key193804%_ _%xkwargs193802%_)))) - (if _%$e193806%_ _%$e193806%_ '(%#ref absent-value)))) - _%keys193768%_)) + (agetq__0 _%key195091%_ _%xkwargs195089%_)))) + (if _%$e195093%_ _%$e195093%_ '(%#ref absent-value)))) + _%keys195055%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp197249 + (__tmp198536 (cons '%#let-values - (cons _%kwbind193792%_ + (cons _%kwbind195079%_ (cons (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%kwt193783%_ '()) - (cons (let ((__tmp197250 + (cons (cons (cons (cons _%kwt195070%_ '()) + (cons (let ((__tmp198537 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons '(%#ref make-symbolic-table) (cons (cons '%#quote - (cons (length _%kwargs193771%_) + (cons (length _%kwargs195058%_) '())) (cons '(%#quote (length kwvars)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197250 _%stx193714%_)) + (gxc#xform-wrap-source __tmp198537 _%stx195001%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons '%#begin - (let ((__tmp197251 - (cons (let ((__tmp197252 + (let ((__tmp198538 + (cons (let ((__tmp198539 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons (cons '%#ref - (cons _%main193767%_ '())) + (cons _%main195054%_ '())) (cons (cons '%#ref - (cons _%kwt193783%_ + (cons _%kwt195070%_ '())) (let () (declare (not safe)) (__foldr1 cons - _%pargs193770%_ - _%xargs193810%_))))))) + _%pargs195057%_ + _%xargs195097%_))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197252 _%stx193714%_)) + (gxc#xform-wrap-source __tmp198539 _%stx195001%_)) '()))) (declare (not safe)) - (__foldr1 cons __tmp197251 _%kwset193797%_))) + (__foldr1 cons __tmp198538 _%kwset195084%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197249 - _%stx193714%_ - _%ctx193713%_)))))))))) + __tmp198536 + _%stx195001%_ + _%ctx195000%_)))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g193746193756%_ + _%g195033195043%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e193751193816%_ + (let* ((_%e195038195103%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g193746193756%_ + _%g195033195043%_ '1 '#f '#f))) - (_%e193752193819%_ + (_%e195039195106%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g193746193756%_ + _%g195033195043%_ '2 '#f '#f))) - (_%e193753193822%_ + (_%e195040195109%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g193746193756%_ + _%g195033195043%_ '3 '#f '#f))) - (_%keys193825%_ _%e193753193822%_) - (_%e193754193827%_ + (_%keys195112%_ _%e195040195109%_) + (_%e195041195114%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g193746193756%_ + _%g195033195043%_ '4 '#f '#f))) - (_%main193830%_ _%e193754193827%_)) - (_%K193750193813%_ - _%main193830%_ - _%keys193825%_)) - (_%else193748193764%_))) + (_%main195117%_ _%e195041195114%_)) + (_%K195037195100%_ + _%main195117%_ + _%keys195112%_)) + (_%else195035195051%_))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx193713%_ _%stx193714%_))))) - (_%e193732193835%_ + (gxc#xform-call% _%ctx195000%_ _%stx195001%_))))) + (_%e195019195122%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193728193737%_ '1 '#f '#f))) - (_%e193733193838%_ + (##unchecked-structure-ref _%self195015195024%_ '1 '#f '#f))) + (_%e195020195125%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193728193737%_ '2 '#f '#f))) - (_%e193734193841%_ + (##unchecked-structure-ref _%self195015195024%_ '2 '#f '#f))) + (_%e195021195128%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193728193737%_ '3 '#f '#f))) - (_%table193844%_ _%e193734193841%_) - (_%e193735193846%_ + (##unchecked-structure-ref _%self195015195024%_ '3 '#f '#f))) + (_%table195131%_ _%e195021195128%_) + (_%e195022195133%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193728193737%_ '4 '#f '#f))) - (_%dispatch193849%_ _%e193735193846%_)) - (_%K193731193832%_ _%dispatch193849%_ _%table193844%_)))) + (##unchecked-structure-ref _%self195015195024%_ '4 '#f '#f))) + (_%dispatch195136%_ _%e195022195133%_)) + (_%K195018195119%_ _%dispatch195136%_ _%table195131%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4466,287 +4466,287 @@ gxc#!kw-lambda::optimize-call '#f)) (define gxc#!kw-lambda-split-args - (lambda (_%stx193324%_ _%args193325%_) - (let _%lp193327%_ ((_%rest193329%_ _%args193325%_) - (_%pargs193330%_ '()) - (_%kwargs193331%_ '())) - (let* ((_%__stx196705196706%_ _%rest193329%_) - (_%g193337193389%_ + (lambda (_%stx194611%_ _%args194612%_) + (let _%lp194614%_ ((_%rest194616%_ _%args194612%_) + (_%pargs194617%_ '()) + (_%kwargs194618%_ '())) + (let* ((_%__stx197992197993%_ _%rest194616%_) + (_%g194624194676%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196705196706%_))))) - (let ((_%__kont196707196708%_ - (lambda (_%L193568%_ _%L193569%_) - (_%lp193327%_ - _%L193568%_ - (cons _%L193569%_ _%pargs193330%_) - _%kwargs193331%_))) - (_%__kont196709196710%_ - (lambda (_%L193514%_) + _%__stx197992197993%_))))) + (let ((_%__kont197994197995%_ + (lambda (_%L194855%_ _%L194856%_) + (_%lp194614%_ + _%L194855%_ + (cons _%L194856%_ _%pargs194617%_) + _%kwargs194618%_))) + (_%__kont197996197997%_ + (lambda (_%L194801%_) (values (let () (declare (not safe)) - (__foldl1 cons _%L193514%_ _%pargs193330%_)) - (reverse _%kwargs193331%_)))) - (_%__kont196711196712%_ - (lambda (_%L193461%_ _%L193462%_ _%L193463%_) - (let ((_%kw193480%_ + (__foldl1 cons _%L194801%_ _%pargs194617%_)) + (reverse _%kwargs194618%_)))) + (_%__kont197998197999%_ + (lambda (_%L194748%_ _%L194749%_ _%L194750%_) + (let ((_%kw194767%_ (let () (declare (not safe)) - (gx#stx-e _%L193463%_)))) - (if (assq _%kw193480%_ _%kwargs193331%_) + (gx#stx-e _%L194750%_)))) + (if (assq _%kw194767%_ _%kwargs194618%_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _%stx193324%_ - _%kw193480%_)) - (_%lp193327%_ - _%L193461%_ - _%pargs193330%_ - (cons (cons _%kw193480%_ _%L193462%_) - _%kwargs193331%_)))))) - (_%__kont196713196714%_ - (lambda (_%L193409%_ _%L193410%_) - (_%lp193327%_ - _%L193409%_ - (cons _%L193410%_ _%pargs193330%_) - _%kwargs193331%_))) - (_%__kont196715196716%_ + _%stx194611%_ + _%kw194767%_)) + (_%lp194614%_ + _%L194748%_ + _%pargs194617%_ + (cons (cons _%kw194767%_ _%L194749%_) + _%kwargs194618%_)))))) + (_%__kont198000198001%_ + (lambda (_%L194696%_ _%L194697%_) + (_%lp194614%_ + _%L194696%_ + (cons _%L194697%_ _%pargs194617%_) + _%kwargs194618%_))) + (_%__kont198002198003%_ (lambda () - (values (reverse _%pargs193330%_) - (reverse _%kwargs193331%_))))) - (let ((_%__match196812196813%_ - (lambda (_%e193368193429%_ - _%hd193369193432%_ - _%tl193370193434%_ - _%e193371193437%_ - _%hd193372193440%_ - _%tl193373193442%_ - _%e193374193445%_ - _%hd193375193448%_ - _%tl193376193450%_ - _%e193377193453%_ - _%hd193378193456%_ - _%tl193379193458%_) - (let ((_%L193461%_ _%tl193379193458%_) - (_%L193462%_ _%hd193378193456%_) - (_%L193463%_ _%hd193375193448%_)) + (values (reverse _%pargs194617%_) + (reverse _%kwargs194618%_))))) + (let ((_%__match198099198100%_ + (lambda (_%e194655194716%_ + _%hd194656194719%_ + _%tl194657194721%_ + _%e194658194724%_ + _%hd194659194727%_ + _%tl194660194729%_ + _%e194661194732%_ + _%hd194662194735%_ + _%tl194663194737%_ + _%e194664194740%_ + _%hd194665194743%_ + _%tl194666194745%_) + (let ((_%L194748%_ _%tl194666194745%_) + (_%L194749%_ _%hd194665194743%_) + (_%L194750%_ _%hd194662194735%_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _%L193463%_)) - (_%__kont196711196712%_ - _%L193461%_ - _%L193462%_ - _%L193463%_) - (_%__kont196713196714%_ - _%tl193370193434%_ - _%hd193369193432%_)))))) + (gx#stx-keyword? _%L194750%_)) + (_%__kont197998197999%_ + _%L194748%_ + _%L194749%_ + _%L194750%_) + (_%__kont198000198001%_ + _%tl194657194721%_ + _%hd194656194719%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196705196706%_)) - (let ((_%e193341193533%_ + (gx#stx-pair? _%__stx197992197993%_)) + (let ((_%e194628194820%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196705196706%_)))) - (let ((_%tl193343193538%_ + (gx#stx-e _%__stx197992197993%_)))) + (let ((_%tl194630194825%_ (let () (declare (not safe)) - (##cdr _%e193341193533%_))) - (_%hd193342193536%_ + (##cdr _%e194628194820%_))) + (_%hd194629194823%_ (let () (declare (not safe)) - (##car _%e193341193533%_)))) + (##car _%e194628194820%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193342193536%_)) - (let ((_%e193344193541%_ + (gx#stx-pair? _%hd194629194823%_)) + (let ((_%e194631194828%_ (let () (declare (not safe)) - (gx#stx-e _%hd193342193536%_)))) - (let ((_%tl193346193546%_ + (gx#stx-e _%hd194629194823%_)))) + (let ((_%tl194633194833%_ (let () (declare (not safe)) - (##cdr _%e193344193541%_))) - (_%hd193345193544%_ + (##cdr _%e194631194828%_))) + (_%hd194632194831%_ (let () (declare (not safe)) - (##car _%e193344193541%_)))) + (##car _%e194631194828%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193345193544%_)) + (gx#identifier? _%hd194632194831%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd193345193544%_)) + _%hd194632194831%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193346193546%_)) - (let ((_%e193347193549%_ + _%tl194633194833%_)) + (let ((_%e194634194836%_ (let () (declare (not safe)) (gx#stx-e - _%tl193346193546%_)))) - (let ((_%tl193349193554%_ + _%tl194633194833%_)))) + (let ((_%tl194636194841%_ (let () (declare (not safe)) - (##cdr _%e193347193549%_))) - (_%hd193348193552%_ + (##cdr _%e194634194836%_))) + (_%hd194635194839%_ (let () (declare (not safe)) - (##car _%e193347193549%_)))) + (##car _%e194634194836%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd193348193552%_)) - (let ((_%e193350193557%_ + _%hd194635194839%_)) + (let ((_%e194637194844%_ (let () (declare (not safe)) (gx#stx-e - _%hd193348193552%_)))) - (if (equal? _%e193350193557%_ + _%hd194635194839%_)))) + (if (equal? _%e194637194844%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193349193554%_)) + (gx#stx-null? _%tl194636194841%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193343193538%_)) - (let ((_%e193351193560%_ + (gx#stx-pair? _%tl194630194825%_)) + (let ((_%e194638194847%_ (let () (declare (not safe)) - (gx#stx-e _%tl193343193538%_)))) - (let ((_%tl193353193565%_ + (gx#stx-e _%tl194630194825%_)))) + (let ((_%tl194640194852%_ (let () (declare (not safe)) - (##cdr _%e193351193560%_))) - (_%hd193352193563%_ + (##cdr _%e194638194847%_))) + (_%hd194639194850%_ (let () (declare (not safe)) - (##car _%e193351193560%_)))) - (_%__kont196707196708%_ - _%tl193353193565%_ - _%hd193352193563%_))) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)) - (if (equal? _%e193350193557%_ '#!rest) + (##car _%e194638194847%_)))) + (_%__kont197994197995%_ + _%tl194640194852%_ + _%hd194639194850%_))) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_)) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_)) + (if (equal? _%e194637194844%_ '#!rest) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193349193554%_)) - (_%__kont196709196710%_ _%tl193343193538%_) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)) + (gx#stx-null? _%tl194636194841%_)) + (_%__kont197996197997%_ _%tl194630194825%_) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193349193554%_)) + (gx#stx-null? _%tl194636194841%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193343193538%_)) - (let ((_%e193377193453%_ + (gx#stx-pair? _%tl194630194825%_)) + (let ((_%e194664194740%_ (let () (declare (not safe)) - (gx#stx-e _%tl193343193538%_)))) - (let ((_%tl193379193458%_ + (gx#stx-e _%tl194630194825%_)))) + (let ((_%tl194666194745%_ (let () (declare (not safe)) - (##cdr _%e193377193453%_))) - (_%hd193378193456%_ + (##cdr _%e194664194740%_))) + (_%hd194665194743%_ (let () (declare (not safe)) - (##car _%e193377193453%_)))) - (_%__match196812196813%_ - _%e193341193533%_ - _%hd193342193536%_ - _%tl193343193538%_ - _%e193344193541%_ - _%hd193345193544%_ - _%tl193346193546%_ - _%e193347193549%_ - _%hd193348193552%_ - _%tl193349193554%_ - _%e193377193453%_ - _%hd193378193456%_ - _%tl193379193458%_))) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_))))) + (##car _%e194664194740%_)))) + (_%__match198099198100%_ + _%e194628194820%_ + _%hd194629194823%_ + _%tl194630194825%_ + _%e194631194828%_ + _%hd194632194831%_ + _%tl194633194833%_ + _%e194634194836%_ + _%hd194635194839%_ + _%tl194636194841%_ + _%e194664194740%_ + _%hd194665194743%_ + _%tl194666194745%_))) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_)) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl193349193554%_)) + _%tl194636194841%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193343193538%_)) - (let ((_%e193377193453%_ + _%tl194630194825%_)) + (let ((_%e194664194740%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl193343193538%_)))) - (let ((_%tl193379193458%_ + (gx#stx-e _%tl194630194825%_)))) + (let ((_%tl194666194745%_ (let () (declare (not safe)) - (##cdr _%e193377193453%_))) - (_%hd193378193456%_ + (##cdr _%e194664194740%_))) + (_%hd194665194743%_ (let () (declare (not safe)) - (##car _%e193377193453%_)))) - (_%__match196812196813%_ - _%e193341193533%_ - _%hd193342193536%_ - _%tl193343193538%_ - _%e193344193541%_ - _%hd193345193544%_ - _%tl193346193546%_ - _%e193347193549%_ - _%hd193348193552%_ - _%tl193349193554%_ - _%e193377193453%_ - _%hd193378193456%_ - _%tl193379193458%_))) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_))))) + (##car _%e194664194740%_)))) + (_%__match198099198100%_ + _%e194628194820%_ + _%hd194629194823%_ + _%tl194630194825%_ + _%e194631194828%_ + _%hd194632194831%_ + _%tl194633194833%_ + _%e194634194836%_ + _%hd194635194839%_ + _%tl194636194841%_ + _%e194664194740%_ + _%hd194665194743%_ + _%tl194666194745%_))) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_)) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)))) - (_%__kont196713196714%_ - _%tl193343193538%_ - _%hd193342193536%_)))) - (_%__kont196715196716%_)))))))) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_)) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_)) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_)))) + (_%__kont198000198001%_ + _%tl194630194825%_ + _%hd194629194823%_)))) + (_%__kont198002198003%_)))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_%self192396193306%_ _%ctx193308%_ _%stx193309%_ _%args193310%_) - (let* ((_%self193312%_ _%self192396193306%_) - (_%self193314%_ _%self193312%_)) + (lambda (_%self193683194593%_ _%ctx194595%_ _%stx194596%_ _%args194597%_) + (let* ((_%self194599%_ _%self193683194593%_) + (_%self194601%_ _%self194599%_)) (declare (not safe)) - (gxc#xform-call% _%ctx193308%_ _%stx193309%_)))) + (gxc#xform-call% _%ctx194595%_ _%stx194596%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4755,394 +4755,394 @@ gxc#!kw-lambda-primary::optimize-call '#f)) (define gxc#apply-check-return-type-begin-annotation% - (lambda (_%self192994%_ _%stx192995%_) - (let* ((_%__stx196821196822%_ _%stx192995%_) - (_%g192998193038%_ + (lambda (_%self194281%_ _%stx194282%_) + (let* ((_%__stx198108198109%_ _%stx194282%_) + (_%g194285194325%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196821196822%_))))) - (let ((_%__kont196823196824%_ - (lambda (_%L193144%_ _%L193145%_) - (let ((_%$e193172%_ + _%__stx198108198109%_))))) + (let ((_%__kont198110198111%_ + (lambda (_%L194431%_ _%L194432%_) + (let ((_%$e194459%_ (member 'return: - (let ((__tmp197253 - (lambda (_%g193164193167%_ - _%g193165193169%_) - (cons _%g193164193167%_ - _%g193165193169%_)))) + (let ((__tmp198540 + (lambda (_%g194451194454%_ + _%g194452194456%_) + (cons _%g194451194454%_ + _%g194452194456%_)))) (declare (not safe)) - (__foldr1 __tmp197253 '() _%L193145%_)) + (__foldr1 __tmp198540 '() _%L194432%_)) gx#stx-eq?))) - (if _%$e193172%_ - ((lambda (_%tail193175%_) - (let ((_%type193177%_ - (let ((__tmp197254 - (let ((__tmp197255 - (cadr _%tail193175%_))) + (if _%$e194459%_ + ((lambda (_%tail194462%_) + (let ((_%type194464%_ + (let ((__tmp198541 + (let ((__tmp198542 + (cadr _%tail194462%_))) (declare (not safe)) (gxc#identifier-symbol - __tmp197255)))) + __tmp198542)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx192995%_ - __tmp197254)))) + _%stx194282%_ + __tmp198541)))) (gxc#check-return-type! - _%stx192995%_ - _%L193144%_ - _%type193177%_) + _%stx194282%_ + _%L194431%_ + _%type194464%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self192994%_ - _%L193144%_)))) - _%$e193172%_) + _%self194281%_ + _%L194431%_)))) + _%$e194459%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self192994%_ _%L193144%_)))))) - (_%__kont196827196828%_ - (lambda (_%L193067%_ _%L193068%_) + (gxc#compile-e__1 _%self194281%_ _%L194431%_)))))) + (_%__kont198114198115%_ + (lambda (_%L194354%_ _%L194355%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self192994%_ _%L193067%_))))) - (let ((_%__match196858196859%_ - (lambda (_%e193002193088%_ - _%hd193003193091%_ - _%tl193004193093%_ - _%e193005193096%_ - _%hd193006193099%_ - _%tl193007193101%_ - _%e193008193104%_ - _%hd193009193107%_ - _%tl193010193109%_ - _%__splice196825196826%_ - _%target193011193112%_ - _%tl193013193114%_) - (letrec ((_%loop193014193117%_ - (lambda (_%hd193012193120%_ - _%signature193018193122%_) + (gxc#compile-e__1 _%self194281%_ _%L194354%_))))) + (let ((_%__match198145198146%_ + (lambda (_%e194289194375%_ + _%hd194290194378%_ + _%tl194291194380%_ + _%e194292194383%_ + _%hd194293194386%_ + _%tl194294194388%_ + _%e194295194391%_ + _%hd194296194394%_ + _%tl194297194396%_ + _%__splice198112198113%_ + _%target194298194399%_ + _%tl194300194401%_) + (letrec ((_%loop194301194404%_ + (lambda (_%hd194299194407%_ + _%signature194305194409%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193012193120%_)) - (let ((_%e193015193125%_ + (gx#stx-pair? _%hd194299194407%_)) + (let ((_%e194302194412%_ (let () (declare (not safe)) - (gx#stx-e _%hd193012193120%_)))) - (let ((_%lp-tl193017193130%_ + (gx#stx-e _%hd194299194407%_)))) + (let ((_%lp-tl194304194417%_ (let () (declare (not safe)) - (##cdr _%e193015193125%_))) - (_%lp-hd193016193128%_ + (##cdr _%e194302194412%_))) + (_%lp-hd194303194415%_ (let () (declare (not safe)) - (##car _%e193015193125%_)))) - (_%loop193014193117%_ - _%lp-tl193017193130%_ - (cons _%lp-hd193016193128%_ - _%signature193018193122%_)))) - (let ((_%signature193019193133%_ - (reverse _%signature193018193122%_))) + (##car _%e194302194412%_)))) + (_%loop194301194404%_ + _%lp-tl194304194417%_ + (cons _%lp-hd194303194415%_ + _%signature194305194409%_)))) + (let ((_%signature194306194420%_ + (reverse _%signature194305194409%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193007193101%_)) - (let ((_%e193020193136%_ + (gx#stx-pair? _%tl194294194388%_)) + (let ((_%e194307194423%_ (let () (declare (not safe)) (gx#stx-e - _%tl193007193101%_)))) - (let ((_%tl193022193141%_ + _%tl194294194388%_)))) + (let ((_%tl194309194428%_ (let () (declare (not safe)) - (##cdr _%e193020193136%_))) - (_%hd193021193139%_ + (##cdr _%e194307194423%_))) + (_%hd194308194426%_ (let () (declare (not safe)) - (##car _%e193020193136%_)))) + (##car _%e194307194423%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193022193141%_)) - (_%__kont196823196824%_ - _%hd193021193139%_ - _%signature193019193133%_) + _%tl194309194428%_)) + (_%__kont198110198111%_ + _%hd194308194426%_ + _%signature194306194420%_) (let () (declare (not safe)) - (_%g192998193038%_))))) + (_%g194285194325%_))))) (let () (declare (not safe)) - (_%g192998193038%_)))))))) - (_%loop193014193117%_ _%target193011193112%_ '()))))) + (_%g194285194325%_)))))))) + (_%loop194301194404%_ _%target194298194399%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196821196822%_)) - (let ((_%e193002193088%_ + (gx#stx-pair? _%__stx198108198109%_)) + (let ((_%e194289194375%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196821196822%_)))) - (let ((_%tl193004193093%_ + (gx#stx-e _%__stx198108198109%_)))) + (let ((_%tl194291194380%_ (let () (declare (not safe)) - (##cdr _%e193002193088%_))) - (_%hd193003193091%_ + (##cdr _%e194289194375%_))) + (_%hd194290194378%_ (let () (declare (not safe)) - (##car _%e193002193088%_)))) + (##car _%e194289194375%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193004193093%_)) - (let ((_%e193005193096%_ + (gx#stx-pair? _%tl194291194380%_)) + (let ((_%e194292194383%_ (let () (declare (not safe)) - (gx#stx-e _%tl193004193093%_)))) - (let ((_%tl193007193101%_ + (gx#stx-e _%tl194291194380%_)))) + (let ((_%tl194294194388%_ (let () (declare (not safe)) - (##cdr _%e193005193096%_))) - (_%hd193006193099%_ + (##cdr _%e194292194383%_))) + (_%hd194293194386%_ (let () (declare (not safe)) - (##car _%e193005193096%_)))) + (##car _%e194292194383%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193006193099%_)) - (let ((_%e193008193104%_ + (gx#stx-pair? _%hd194293194386%_)) + (let ((_%e194295194391%_ (let () (declare (not safe)) - (gx#stx-e _%hd193006193099%_)))) - (let ((_%tl193010193109%_ + (gx#stx-e _%hd194293194386%_)))) + (let ((_%tl194297194396%_ (let () (declare (not safe)) - (##cdr _%e193008193104%_))) - (_%hd193009193107%_ + (##cdr _%e194295194391%_))) + (_%hd194296194394%_ (let () (declare (not safe)) - (##car _%e193008193104%_)))) + (##car _%e194295194391%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd193009193107%_)) + _%hd194296194394%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd193009193107%_)) + _%hd194296194394%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl193010193109%_)) - (let ((_%__splice196825196826%_ + _%tl194297194396%_)) + (let ((_%__splice198112198113%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl193010193109%_ + _%tl194297194396%_ '0)))) - (let ((_%tl193013193114%_ + (let ((_%tl194300194401%_ (let () (declare (not safe)) (##vector-ref - _%__splice196825196826%_ + _%__splice198112198113%_ '1))) - (_%target193011193112%_ + (_%target194298194399%_ (let () (declare (not safe)) (##vector-ref - _%__splice196825196826%_ + _%__splice198112198113%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193013193114%_)) - (_%__match196858196859%_ - _%e193002193088%_ - _%hd193003193091%_ - _%tl193004193093%_ - _%e193005193096%_ - _%hd193006193099%_ - _%tl193007193101%_ - _%e193008193104%_ - _%hd193009193107%_ - _%tl193010193109%_ - _%__splice196825196826%_ - _%target193011193112%_ - _%tl193013193114%_) + _%tl194300194401%_)) + (_%__match198145198146%_ + _%e194289194375%_ + _%hd194290194378%_ + _%tl194291194380%_ + _%e194292194383%_ + _%hd194293194386%_ + _%tl194294194388%_ + _%e194295194391%_ + _%hd194296194394%_ + _%tl194297194396%_ + _%__splice198112198113%_ + _%target194298194399%_ + _%tl194300194401%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl193007193101%_)) - (let ((_%e193031193059%_ + (gx#stx-pair? _%tl194294194388%_)) + (let ((_%e194318194346%_ (let () (declare (not safe)) - (gx#stx-e _%tl193007193101%_)))) - (let ((_%tl193033193064%_ + (gx#stx-e _%tl194294194388%_)))) + (let ((_%tl194320194351%_ (let () (declare (not safe)) - (##cdr _%e193031193059%_))) - (_%hd193032193062%_ + (##cdr _%e194318194346%_))) + (_%hd194319194349%_ (let () (declare (not safe)) - (##car _%e193031193059%_)))) + (##car _%e194318194346%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193033193064%_)) - (_%__kont196827196828%_ - _%hd193032193062%_ - _%hd193006193099%_) + (gx#stx-null? _%tl194320194351%_)) + (_%__kont198114198115%_ + _%hd194319194349%_ + _%hd194293194386%_) (let () (declare (not safe)) - (_%g192998193038%_))))) - (let () (declare (not safe)) (_%g192998193038%_)))))) + (_%g194285194325%_))))) + (let () (declare (not safe)) (_%g194285194325%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193007193101%_)) - (let ((_%e193031193059%_ + _%tl194294194388%_)) + (let ((_%e194318194346%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl193007193101%_)))) - (let ((_%tl193033193064%_ - (let () (declare (not safe)) (##cdr _%e193031193059%_))) - (_%hd193032193062%_ + (gx#stx-e _%tl194294194388%_)))) + (let ((_%tl194320194351%_ + (let () (declare (not safe)) (##cdr _%e194318194346%_))) + (_%hd194319194349%_ (let () (declare (not safe)) - (##car _%e193031193059%_)))) + (##car _%e194318194346%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193033193064%_)) - (_%__kont196827196828%_ - _%hd193032193062%_ - _%hd193006193099%_) - (let () (declare (not safe)) (_%g192998193038%_))))) - (let () (declare (not safe)) (_%g192998193038%_)))) + (gx#stx-null? _%tl194320194351%_)) + (_%__kont198114198115%_ + _%hd194319194349%_ + _%hd194293194386%_) + (let () (declare (not safe)) (_%g194285194325%_))))) + (let () (declare (not safe)) (_%g194285194325%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193007193101%_)) - (let ((_%e193031193059%_ + _%tl194294194388%_)) + (let ((_%e194318194346%_ (let () (declare (not safe)) (gx#stx-e - _%tl193007193101%_)))) - (let ((_%tl193033193064%_ + _%tl194294194388%_)))) + (let ((_%tl194320194351%_ (let () (declare (not safe)) - (##cdr _%e193031193059%_))) - (_%hd193032193062%_ + (##cdr _%e194318194346%_))) + (_%hd194319194349%_ (let () (declare (not safe)) - (##car _%e193031193059%_)))) + (##car _%e194318194346%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193033193064%_)) - (_%__kont196827196828%_ - _%hd193032193062%_ - _%hd193006193099%_) + _%tl194320194351%_)) + (_%__kont198114198115%_ + _%hd194319194349%_ + _%hd194293194386%_) (let () (declare (not safe)) - (_%g192998193038%_))))) + (_%g194285194325%_))))) (let () (declare (not safe)) - (_%g192998193038%_)))) + (_%g194285194325%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193007193101%_)) - (let ((_%e193031193059%_ + _%tl194294194388%_)) + (let ((_%e194318194346%_ (let () (declare (not safe)) (gx#stx-e - _%tl193007193101%_)))) - (let ((_%tl193033193064%_ + _%tl194294194388%_)))) + (let ((_%tl194320194351%_ (let () (declare (not safe)) - (##cdr _%e193031193059%_))) - (_%hd193032193062%_ + (##cdr _%e194318194346%_))) + (_%hd194319194349%_ (let () (declare (not safe)) - (##car _%e193031193059%_)))) + (##car _%e194318194346%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193033193064%_)) - (_%__kont196827196828%_ - _%hd193032193062%_ - _%hd193006193099%_) + _%tl194320194351%_)) + (_%__kont198114198115%_ + _%hd194319194349%_ + _%hd194293194386%_) (let () (declare (not safe)) - (_%g192998193038%_))))) + (_%g194285194325%_))))) (let () (declare (not safe)) - (_%g192998193038%_)))))) + (_%g194285194325%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193007193101%_)) - (let ((_%e193031193059%_ + (gx#stx-pair? _%tl194294194388%_)) + (let ((_%e194318194346%_ (let () (declare (not safe)) - (gx#stx-e _%tl193007193101%_)))) - (let ((_%tl193033193064%_ + (gx#stx-e _%tl194294194388%_)))) + (let ((_%tl194320194351%_ (let () (declare (not safe)) - (##cdr _%e193031193059%_))) - (_%hd193032193062%_ + (##cdr _%e194318194346%_))) + (_%hd194319194349%_ (let () (declare (not safe)) - (##car _%e193031193059%_)))) + (##car _%e194318194346%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193033193064%_)) - (_%__kont196827196828%_ - _%hd193032193062%_ - _%hd193006193099%_) + _%tl194320194351%_)) + (_%__kont198114198115%_ + _%hd194319194349%_ + _%hd194293194386%_) (let () (declare (not safe)) - (_%g192998193038%_))))) + (_%g194285194325%_))))) (let () (declare (not safe)) - (_%g192998193038%_)))))) - (let () (declare (not safe)) (_%g192998193038%_))))) - (let () (declare (not safe)) (_%g192998193038%_)))))))) + (_%g194285194325%_)))))) + (let () (declare (not safe)) (_%g194285194325%_))))) + (let () (declare (not safe)) (_%g194285194325%_)))))))) (define gxc#check-return-type! - (lambda (_%stx192972%_ _%expr192973%_ _%type192974%_) - (let ((_%$e192976%_ (not _%type192974%_))) - (if _%$e192976%_ - _%$e192976%_ - (let ((_%$e192979%_ - (eq? (##structure-ref _%type192974%_ '1 gxc#!type::t '#f) + (lambda (_%stx194259%_ _%expr194260%_ _%type194261%_) + (let ((_%$e194263%_ (not _%type194261%_))) + (if _%$e194263%_ + _%$e194263%_ + (let ((_%$e194266%_ + (eq? (##structure-ref _%type194261%_ '1 gxc#!type::t '#f) 't))) - (if _%$e192979%_ - _%$e192979%_ - (let ((_%expr-type192983%_ + (if _%$e194266%_ + _%$e194266%_ + (let ((_%expr-type194270%_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _%expr192973%_)))) - (if (not _%expr-type192983%_) + _%expr194260%_)))) + (if (not _%expr-type194270%_) (let () (declare (not safe)) (gxc#raise-compile-error '"cannot verify procedure return type; no type information" - _%stx192972%_ - _%type192974%_)) + _%stx194259%_ + _%type194261%_)) (if (eq? 't (##structure-ref - _%expr-type192983%_ + _%expr-type194270%_ '1 gxc#!type::t '#f)) @@ -5150,75 +5150,75 @@ (declare (not safe)) (gxc#raise-compile-error '"cannot verify procedure return type; unspecific type" - _%stx192972%_ - _%type192974%_ - _%expr-type192983%_)) - (let ((_%$e192987%_ + _%stx194259%_ + _%type194261%_ + _%expr-type194270%_)) + (let ((_%$e194274%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type192983%_ + _%expr-type194270%_ 'gxc#!abort::t)))) - (if _%$e192987%_ - _%$e192987%_ - (let ((_%$e192990%_ + (if _%$e194274%_ + _%$e194274%_ + (let ((_%$e194277%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type192983%_ - _%type192974%_)))) - (if _%$e192990%_ - _%$e192990%_ + _%expr-type194270%_ + _%type194261%_)))) + (if _%$e194277%_ + _%$e194277%_ (let () (declare (not safe)) (gxc#raise-compile-error '"procedure return type does not match signature" - _%stx192972%_ - _%type192974%_ - _%expr-type192983%_))))))))))))))) + _%stx194259%_ + _%type194261%_ + _%expr-type194270%_))))))))))))))) (define gxc#optimize-if% - (lambda (_%self192398%_ _%stx192399%_) - (let* ((_%__stx196903196904%_ _%stx192399%_) - (_%g192404192514%_ + (lambda (_%self193685%_ _%stx193686%_) + (let* ((_%__stx198190198191%_ _%stx193686%_) + (_%g193691193801%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196903196904%_))))) - (let ((_%__kont196905196906%_ - (lambda (_%L192946%_ _%L192947%_ _%L192948%_) - (if (let () (declare (not safe)) (gx#stx-e _%L192948%_)) + _%__stx198190198191%_))))) + (let ((_%__kont198192198193%_ + (lambda (_%L194233%_ _%L194234%_ _%L194235%_) + (if (let () (declare (not safe)) (gx#stx-e _%L194235%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self192398%_ _%L192947%_)) + (gxc#compile-e__1 _%self193685%_ _%L194234%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self192398%_ _%L192946%_))))) - (_%__kont196907196908%_ - (lambda (_%L192772%_ _%L192773%_ _%L192774%_ _%L192775%_) - (let ((_%$e192807%_ - (let ((__tmp197256 + (gxc#compile-e__1 _%self193685%_ _%L194233%_))))) + (_%__kont198194198195%_ + (lambda (_%L194059%_ _%L194060%_ _%L194061%_ _%L194062%_) + (let ((_%$e194094%_ + (let ((__tmp198543 (let () (declare (not safe)) - (gxc#identifier-symbol _%L192775%_)))) + (gxc#identifier-symbol _%L194062%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp197256)))) - (if _%$e192807%_ - ((lambda (_%pred-type192810%_) + (gxc#optimizer-lookup-type __tmp198543)))) + (if _%$e194094%_ + ((lambda (_%pred-type194097%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type192810%_ + _%pred-type194097%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type192810%_ + _%pred-type194097%_ 'gxc#!primitive-predicate::t))) - (let* ((_%test192815%_ - (let ((__tmp197257 + (let* ((_%test194102%_ + (let ((__tmp198544 (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -5228,1749 +5228,1749 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L192775%_ '())) + (cons _%L194062%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L192774%_ '())) + (cons _%L194061%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197257 - _%stx192399%_ - _%self192398%_))) - (_%K192819%_ - (let ((__tmp197258 + __tmp198544 + _%stx193686%_ + _%self193685%_))) + (_%K194106%_ + (let ((__tmp198545 (lambda () - (let ((__tmp197261 + (let ((__tmp198548 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self192398%_ - _%L192773%_)))) - (__tmp197259 + _%self193685%_ + _%L194060%_)))) + (__tmp198546 (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _%L192774%_)) - (let ((__tmp197260 + (gxc#identifier-symbol _%L194061%_)) + (let ((__tmp198547 (##structure-ref - _%pred-type192810%_ + _%pred-type194097%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx192399%_ - __tmp197260))) + _%stx193686%_ + __tmp198547))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp197261 + __tmp198548 gxc#current-compile-path-type - __tmp197259))))) + __tmp198546))))) (declare (not safe)) - (__make-promise __tmp197258))) - (_%E192822%_ - (let ((__tmp197262 + (__make-promise __tmp198545))) + (_%E194109%_ + (let ((__tmp198549 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self192398%_ - _%L192772%_))))) + _%self193685%_ + _%L194059%_))))) (declare (not safe)) - (__make-promise __tmp197262))) - (_%__stx196881196882%_ _%test192815%_) - (_%g192826192840%_ + (__make-promise __tmp198549))) + (_%__stx198168198169%_ _%test194102%_) + (_%g194113194127%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196881196882%_))))) - (let ((_%__kont196883196884%_ - (lambda (_%L192868%_ _%L192869%_) + _%__stx198168198169%_))))) + (let ((_%__kont198170198171%_ + (lambda (_%L194155%_ _%L194156%_) (if (let () (declare (not safe)) - (gx#stx-e _%L192868%_)) - (force _%K192819%_) - (force _%E192822%_)))) - (_%__kont196885196886%_ + (gx#stx-e _%L194155%_)) + (force _%K194106%_) + (force _%E194109%_)))) + (_%__kont198172198173%_ (lambda () - (let ((__tmp197263 + (let ((__tmp198550 (cons '%#if - (cons _%test192815%_ - (cons (force _%K192819%_) + (cons _%test194102%_ + (cons (force _%K194106%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (force _%E192822%_) '())))))) + (cons (force _%E194109%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197263 - _%stx192399%_))))) + __tmp198550 + _%stx193686%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196881196882%_)) - (let ((_%e192830192852%_ + (gx#stx-pair? _%__stx198168198169%_)) + (let ((_%e194117194139%_ (let () (declare (not safe)) (gx#stx-e - _%__stx196881196882%_)))) - (let ((_%tl192832192857%_ + _%__stx198168198169%_)))) + (let ((_%tl194119194144%_ (let () (declare (not safe)) - (##cdr _%e192830192852%_))) - (_%hd192831192855%_ + (##cdr _%e194117194139%_))) + (_%hd194118194142%_ (let () (declare (not safe)) - (##car _%e192830192852%_)))) + (##car _%e194117194139%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192832192857%_)) - (let ((_%e192833192860%_ + _%tl194119194144%_)) + (let ((_%e194120194147%_ (let () (declare (not safe)) (gx#stx-e - _%tl192832192857%_)))) - (let ((_%tl192835192865%_ + _%tl194119194144%_)))) + (let ((_%tl194122194152%_ (let () (declare (not safe)) - (##cdr _%e192833192860%_))) - (_%hd192834192863%_ + (##cdr _%e194120194147%_))) + (_%hd194121194150%_ (let () (declare (not safe)) - (##car _%e192833192860%_)))) + (##car _%e194120194147%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192835192865%_)) - (_%__kont196883196884%_ - _%hd192834192863%_ - _%hd192831192855%_) - (_%__kont196885196886%_)))) - (_%__kont196885196886%_)))) - (_%__kont196885196886%_)))) + _%tl194122194152%_)) + (_%__kont198170198171%_ + _%hd194121194150%_ + _%hd194118194142%_) + (_%__kont198172198173%_)))) + (_%__kont198172198173%_)))) + (_%__kont198172198173%_)))) (let () (declare (not safe)) (gxc#xform-operands - _%self192398%_ - _%stx192399%_)))) - _%$e192807%_) + _%self193685%_ + _%stx193686%_)))) + _%$e194094%_) (let () (declare (not safe)) (gxc#xform-operands - _%self192398%_ - _%stx192399%_)))))) - (_%__kont196909196910%_ - (lambda (_%L192648%_ _%L192649%_ _%L192650%_ _%L192651%_) + _%self193685%_ + _%stx193686%_)))))) + (_%__kont198196198197%_ + (lambda (_%L193935%_ _%L193936%_ _%L193937%_ _%L193938%_) (gxc#optimize-if% - _%self192398%_ - (let ((__tmp197264 + _%self193685%_ + (let ((__tmp198551 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L192650%_ - (cons _%L192648%_ - (cons _%L192649%_ '())))))) + (cons _%L193937%_ + (cons _%L193935%_ + (cons _%L193936%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197264 _%stx192399%_))))) - (_%__kont196911196912%_ - (lambda (_%L192551%_ _%L192552%_ _%L192553%_) + (gxc#xform-wrap-source __tmp198551 _%stx193686%_))))) + (_%__kont198198198199%_ + (lambda (_%L193838%_ _%L193839%_ _%L193840%_) (let () (declare (not safe)) - (gxc#xform-operands _%self192398%_ _%stx192399%_))))) - (let ((_%__match197110197111%_ - (lambda (_%e192468192576%_ - _%hd192469192579%_ - _%tl192470192581%_ - _%e192471192584%_ - _%hd192472192587%_ - _%tl192473192589%_ - _%e192474192592%_ - _%hd192475192595%_ - _%tl192476192597%_ - _%e192477192600%_ - _%hd192478192603%_ - _%tl192479192605%_ - _%e192480192608%_ - _%hd192481192611%_ - _%tl192482192613%_ - _%e192483192616%_ - _%hd192484192619%_ - _%tl192485192621%_ - _%e192486192624%_ - _%hd192487192627%_ - _%tl192488192629%_ - _%e192489192632%_ - _%hd192490192635%_ - _%tl192491192637%_ - _%e192492192640%_ - _%hd192493192643%_ - _%tl192494192645%_) - (let ((_%L192648%_ _%hd192493192643%_) - (_%L192649%_ _%hd192490192635%_) - (_%L192650%_ _%hd192487192627%_) - (_%L192651%_ _%hd192484192619%_)) + (gxc#xform-operands _%self193685%_ _%stx193686%_))))) + (let ((_%__match198397198398%_ + (lambda (_%e193755193863%_ + _%hd193756193866%_ + _%tl193757193868%_ + _%e193758193871%_ + _%hd193759193874%_ + _%tl193760193876%_ + _%e193761193879%_ + _%hd193762193882%_ + _%tl193763193884%_ + _%e193764193887%_ + _%hd193765193890%_ + _%tl193766193892%_ + _%e193767193895%_ + _%hd193768193898%_ + _%tl193769193900%_ + _%e193770193903%_ + _%hd193771193906%_ + _%tl193772193908%_ + _%e193773193911%_ + _%hd193774193914%_ + _%tl193775193916%_ + _%e193776193919%_ + _%hd193777193922%_ + _%tl193778193924%_ + _%e193779193927%_ + _%hd193780193930%_ + _%tl193781193932%_) + (let ((_%L193935%_ _%hd193780193930%_) + (_%L193936%_ _%hd193777193922%_) + (_%L193937%_ _%hd193774193914%_) + (_%L193938%_ _%hd193771193906%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L192651%_ 'not)) - (_%__kont196909196910%_ - _%L192648%_ - _%L192649%_ - _%L192650%_ - _%L192651%_) - (_%__kont196911196912%_ - _%hd192493192643%_ - _%hd192490192635%_ - _%hd192472192587%_)))))) + (gxc#runtime-identifier=? _%L193938%_ 'not)) + (_%__kont198196198197%_ + _%L193935%_ + _%L193936%_ + _%L193937%_ + _%L193938%_) + (_%__kont198198198199%_ + _%hd193780193930%_ + _%hd193777193922%_ + _%hd193759193874%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196903196904%_)) - (let ((_%e192409192898%_ + (gx#stx-pair? _%__stx198190198191%_)) + (let ((_%e193696194185%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196903196904%_)))) - (let ((_%tl192411192903%_ + (gx#stx-e _%__stx198190198191%_)))) + (let ((_%tl193698194190%_ (let () (declare (not safe)) - (##cdr _%e192409192898%_))) - (_%hd192410192901%_ + (##cdr _%e193696194185%_))) + (_%hd193697194188%_ (let () (declare (not safe)) - (##car _%e192409192898%_)))) + (##car _%e193696194185%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192411192903%_)) - (let ((_%e192412192906%_ + (gx#stx-pair? _%tl193698194190%_)) + (let ((_%e193699194193%_ (let () (declare (not safe)) - (gx#stx-e _%tl192411192903%_)))) - (let ((_%tl192414192911%_ + (gx#stx-e _%tl193698194190%_)))) + (let ((_%tl193701194198%_ (let () (declare (not safe)) - (##cdr _%e192412192906%_))) - (_%hd192413192909%_ + (##cdr _%e193699194193%_))) + (_%hd193700194196%_ (let () (declare (not safe)) - (##car _%e192412192906%_)))) + (##car _%e193699194193%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192413192909%_)) - (let ((_%e192415192914%_ + (gx#stx-pair? _%hd193700194196%_)) + (let ((_%e193702194201%_ (let () (declare (not safe)) - (gx#stx-e _%hd192413192909%_)))) - (let ((_%tl192417192919%_ + (gx#stx-e _%hd193700194196%_)))) + (let ((_%tl193704194206%_ (let () (declare (not safe)) - (##cdr _%e192415192914%_))) - (_%hd192416192917%_ + (##cdr _%e193702194201%_))) + (_%hd193703194204%_ (let () (declare (not safe)) - (##car _%e192415192914%_)))) + (##car _%e193702194201%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd192416192917%_)) + _%hd193703194204%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd192416192917%_)) + _%hd193703194204%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192417192919%_)) - (let ((_%e192418192922%_ + _%tl193704194206%_)) + (let ((_%e193705194209%_ (let () (declare (not safe)) (gx#stx-e - _%tl192417192919%_)))) - (let ((_%tl192420192927%_ + _%tl193704194206%_)))) + (let ((_%tl193707194214%_ (let () (declare (not safe)) - (##cdr _%e192418192922%_))) - (_%hd192419192925%_ + (##cdr _%e193705194209%_))) + (_%hd193706194212%_ (let () (declare (not safe)) - (##car _%e192418192922%_)))) + (##car _%e193705194209%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192420192927%_)) + _%tl193707194214%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192421192930%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193708194217%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192423192935%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193710194222%_ (let () (declare (not safe)) - (##cdr _%e192421192930%_))) - (_%hd192422192933%_ + (##cdr _%e193708194217%_))) + (_%hd193709194220%_ (let () (declare (not safe)) - (##car _%e192421192930%_)))) + (##car _%e193708194217%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192423192935%_)) - (let ((_%e192424192938%_ + (gx#stx-pair? _%tl193710194222%_)) + (let ((_%e193711194225%_ (let () (declare (not safe)) - (gx#stx-e _%tl192423192935%_)))) - (let ((_%tl192426192943%_ + (gx#stx-e _%tl193710194222%_)))) + (let ((_%tl193713194230%_ (let () (declare (not safe)) - (##cdr _%e192424192938%_))) - (_%hd192425192941%_ + (##cdr _%e193711194225%_))) + (_%hd193712194228%_ (let () (declare (not safe)) - (##car _%e192424192938%_)))) + (##car _%e193711194225%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192426192943%_)) - (_%__kont196905196906%_ - _%hd192425192941%_ - _%hd192422192933%_ - _%hd192419192925%_) + (gx#stx-null? _%tl193713194230%_)) + (_%__kont198192198193%_ + _%hd193712194228%_ + _%hd193709194220%_ + _%hd193706194212%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))) + (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_)))))) + (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192504192535%_ + _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ - (let () (declare (not safe)) (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ + (let () (declare (not safe)) (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_)))) + (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd192416192917%_)) + _%hd193703194204%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192417192919%_)) - (let ((_%e192440192708%_ + _%tl193704194206%_)) + (let ((_%e193727193995%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192417192919%_)))) - (let ((_%tl192442192713%_ - (let () (declare (not safe)) (##cdr _%e192440192708%_))) - (_%hd192441192711%_ + (gx#stx-e _%tl193704194206%_)))) + (let ((_%tl193729194000%_ + (let () (declare (not safe)) (##cdr _%e193727193995%_))) + (_%hd193728193998%_ (let () (declare (not safe)) - (##car _%e192440192708%_)))) + (##car _%e193727193995%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192441192711%_)) - (let ((_%e192443192716%_ + (gx#stx-pair? _%hd193728193998%_)) + (let ((_%e193730194003%_ (let () (declare (not safe)) - (gx#stx-e _%hd192441192711%_)))) - (let ((_%tl192445192721%_ + (gx#stx-e _%hd193728193998%_)))) + (let ((_%tl193732194008%_ (let () (declare (not safe)) - (##cdr _%e192443192716%_))) - (_%hd192444192719%_ + (##cdr _%e193730194003%_))) + (_%hd193731194006%_ (let () (declare (not safe)) - (##car _%e192443192716%_)))) + (##car _%e193730194003%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd192444192719%_)) + (gx#identifier? _%hd193731194006%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd192444192719%_)) + (gx#stx-eq? '%#ref _%hd193731194006%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192445192721%_)) - (let ((_%e192446192724%_ + (gx#stx-pair? _%tl193732194008%_)) + (let ((_%e193733194011%_ (let () (declare (not safe)) - (gx#stx-e _%tl192445192721%_)))) - (let ((_%tl192448192729%_ + (gx#stx-e _%tl193732194008%_)))) + (let ((_%tl193735194016%_ (let () (declare (not safe)) - (##cdr _%e192446192724%_))) - (_%hd192447192727%_ + (##cdr _%e193733194011%_))) + (_%hd193734194014%_ (let () (declare (not safe)) - (##car _%e192446192724%_)))) + (##car _%e193733194011%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192448192729%_)) + _%tl193735194016%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192442192713%_)) - (let ((_%e192449192732%_ + _%tl193729194000%_)) + (let ((_%e193736194019%_ (let () (declare (not safe)) (gx#stx-e - _%tl192442192713%_)))) - (let ((_%tl192451192737%_ + _%tl193729194000%_)))) + (let ((_%tl193738194024%_ (let () (declare (not safe)) - (##cdr _%e192449192732%_))) - (_%hd192450192735%_ + (##cdr _%e193736194019%_))) + (_%hd193737194022%_ (let () (declare (not safe)) - (##car _%e192449192732%_)))) + (##car _%e193736194019%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd192450192735%_)) - (let ((_%e192452192740%_ + _%hd193737194022%_)) + (let ((_%e193739194027%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd192450192735%_)))) - (let ((_%tl192454192745%_ + (gx#stx-e _%hd193737194022%_)))) + (let ((_%tl193741194032%_ (let () (declare (not safe)) - (##cdr _%e192452192740%_))) - (_%hd192453192743%_ + (##cdr _%e193739194027%_))) + (_%hd193740194030%_ (let () (declare (not safe)) - (##car _%e192452192740%_)))) + (##car _%e193739194027%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd192453192743%_)) + (gx#identifier? _%hd193740194030%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd192453192743%_)) + (gx#stx-eq? '%#ref _%hd193740194030%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192454192745%_)) - (let ((_%e192455192748%_ + (gx#stx-pair? _%tl193741194032%_)) + (let ((_%e193742194035%_ (let () (declare (not safe)) - (gx#stx-e _%tl192454192745%_)))) - (let ((_%tl192457192753%_ + (gx#stx-e _%tl193741194032%_)))) + (let ((_%tl193744194040%_ (let () (declare (not safe)) - (##cdr _%e192455192748%_))) - (_%hd192456192751%_ + (##cdr _%e193742194035%_))) + (_%hd193743194038%_ (let () (declare (not safe)) - (##car _%e192455192748%_)))) + (##car _%e193742194035%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192457192753%_)) + (gx#stx-null? _%tl193744194040%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192451192737%_)) + _%tl193738194024%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192458192756%_ + _%tl193701194198%_)) + (let ((_%e193745194043%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192460192761%_ + _%tl193701194198%_)))) + (let ((_%tl193747194048%_ (let () (declare (not safe)) - (##cdr _%e192458192756%_))) - (_%hd192459192759%_ + (##cdr _%e193745194043%_))) + (_%hd193746194046%_ (let () (declare (not safe)) - (##car _%e192458192756%_)))) + (##car _%e193745194043%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192460192761%_)) - (let ((_%e192461192764%_ + _%tl193747194048%_)) + (let ((_%e193748194051%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192460192761%_)))) - (let ((_%tl192463192769%_ + (gx#stx-e _%tl193747194048%_)))) + (let ((_%tl193750194056%_ (let () (declare (not safe)) - (##cdr _%e192461192764%_))) - (_%hd192462192767%_ + (##cdr _%e193748194051%_))) + (_%hd193749194054%_ (let () (declare (not safe)) - (##car _%e192461192764%_)))) + (##car _%e193748194051%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192463192769%_)) - (_%__kont196907196908%_ - _%hd192462192767%_ - _%hd192459192759%_ - _%hd192456192751%_ - _%hd192447192727%_) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) + (gx#stx-null? _%tl193750194056%_)) + (_%__kont198194198195%_ + _%hd193749194054%_ + _%hd193746194046%_ + _%hd193743194038%_ + _%hd193734194014%_) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192404192514%_))) + (_%g193691193801%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192504192535%_ + _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192404192514%_)))) + (_%g193691193801%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192451192737%_)) + _%tl193738194024%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192489192632%_ + _%tl193701194198%_)) + (let ((_%e193776193919%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192491192637%_ + _%tl193701194198%_)))) + (let ((_%tl193778193924%_ (let () (declare (not safe)) - (##cdr _%e192489192632%_))) - (_%hd192490192635%_ + (##cdr _%e193776193919%_))) + (_%hd193777193922%_ (let () (declare (not safe)) - (##car _%e192489192632%_)))) + (##car _%e193776193919%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192491192637%_)) - (let ((_%e192492192640%_ + _%tl193778193924%_)) + (let ((_%e193779193927%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192491192637%_)))) - (let ((_%tl192494192645%_ + (gx#stx-e _%tl193778193924%_)))) + (let ((_%tl193781193932%_ (let () (declare (not safe)) - (##cdr _%e192492192640%_))) - (_%hd192493192643%_ + (##cdr _%e193779193927%_))) + (_%hd193780193930%_ (let () (declare (not safe)) - (##car _%e192492192640%_)))) + (##car _%e193779193927%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192494192645%_)) - (_%__match197110197111%_ - _%e192409192898%_ - _%hd192410192901%_ - _%tl192411192903%_ - _%e192412192906%_ - _%hd192413192909%_ - _%tl192414192911%_ - _%e192415192914%_ - _%hd192416192917%_ - _%tl192417192919%_ - _%e192440192708%_ - _%hd192441192711%_ - _%tl192442192713%_ - _%e192443192716%_ - _%hd192444192719%_ - _%tl192445192721%_ - _%e192446192724%_ - _%hd192447192727%_ - _%tl192448192729%_ - _%e192449192732%_ - _%hd192450192735%_ - _%tl192451192737%_ - _%e192489192632%_ - _%hd192490192635%_ - _%tl192491192637%_ - _%e192492192640%_ - _%hd192493192643%_ - _%tl192494192645%_) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) + (gx#stx-null? _%tl193781193932%_)) + (_%__match198397198398%_ + _%e193696194185%_ + _%hd193697194188%_ + _%tl193698194190%_ + _%e193699194193%_ + _%hd193700194196%_ + _%tl193701194198%_ + _%e193702194201%_ + _%hd193703194204%_ + _%tl193704194206%_ + _%e193727193995%_ + _%hd193728193998%_ + _%tl193729194000%_ + _%e193730194003%_ + _%hd193731194006%_ + _%tl193732194008%_ + _%e193733194011%_ + _%hd193734194014%_ + _%tl193735194016%_ + _%e193736194019%_ + _%hd193737194022%_ + _%tl193738194024%_ + _%e193776193919%_ + _%hd193777193922%_ + _%tl193778193924%_ + _%e193779193927%_ + _%hd193780193930%_ + _%tl193781193932%_) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192404192514%_))) + (_%g193691193801%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192504192535%_ + _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192404192514%_))))))) + (_%g193691193801%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192451192737%_)) + (gx#stx-null? _%tl193738194024%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192489192632%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193776193919%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192491192637%_ + _%tl193701194198%_)))) + (let ((_%tl193778193924%_ (let () (declare (not safe)) - (##cdr _%e192489192632%_))) - (_%hd192490192635%_ + (##cdr _%e193776193919%_))) + (_%hd193777193922%_ (let () (declare (not safe)) - (##car _%e192489192632%_)))) + (##car _%e193776193919%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192491192637%_)) - (let ((_%e192492192640%_ + _%tl193778193924%_)) + (let ((_%e193779193927%_ (let () (declare (not safe)) (gx#stx-e - _%tl192491192637%_)))) - (let ((_%tl192494192645%_ + _%tl193778193924%_)))) + (let ((_%tl193781193932%_ (let () (declare (not safe)) - (##cdr _%e192492192640%_))) - (_%hd192493192643%_ + (##cdr _%e193779193927%_))) + (_%hd193780193930%_ (let () (declare (not safe)) - (##car _%e192492192640%_)))) + (##car _%e193779193927%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192494192645%_)) - (_%__match197110197111%_ - _%e192409192898%_ - _%hd192410192901%_ - _%tl192411192903%_ - _%e192412192906%_ - _%hd192413192909%_ - _%tl192414192911%_ - _%e192415192914%_ - _%hd192416192917%_ - _%tl192417192919%_ - _%e192440192708%_ - _%hd192441192711%_ - _%tl192442192713%_ - _%e192443192716%_ - _%hd192444192719%_ - _%tl192445192721%_ - _%e192446192724%_ - _%hd192447192727%_ - _%tl192448192729%_ - _%e192449192732%_ - _%hd192450192735%_ - _%tl192451192737%_ - _%e192489192632%_ - _%hd192490192635%_ - _%tl192491192637%_ - _%e192492192640%_ - _%hd192493192643%_ - _%tl192494192645%_) + _%tl193781193932%_)) + (_%__match198397198398%_ + _%e193696194185%_ + _%hd193697194188%_ + _%tl193698194190%_ + _%e193699194193%_ + _%hd193700194196%_ + _%tl193701194198%_ + _%e193702194201%_ + _%hd193703194204%_ + _%tl193704194206%_ + _%e193727193995%_ + _%hd193728193998%_ + _%tl193729194000%_ + _%e193730194003%_ + _%hd193731194006%_ + _%tl193732194008%_ + _%e193733194011%_ + _%hd193734194014%_ + _%tl193735194016%_ + _%e193736194019%_ + _%hd193737194022%_ + _%tl193738194024%_ + _%e193776193919%_ + _%hd193777193922%_ + _%tl193778193924%_ + _%e193779193927%_ + _%hd193780193930%_ + _%tl193781193932%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))) + (_%g193691193801%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) (gx#stx-e - _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192451192737%_)) + (gx#stx-null? _%tl193738194024%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192489192632%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193776193919%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192491192637%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193778193924%_ (let () (declare (not safe)) - (##cdr _%e192489192632%_))) - (_%hd192490192635%_ + (##cdr _%e193776193919%_))) + (_%hd193777193922%_ (let () (declare (not safe)) - (##car _%e192489192632%_)))) + (##car _%e193776193919%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192491192637%_)) - (let ((_%e192492192640%_ + _%tl193778193924%_)) + (let ((_%e193779193927%_ (let () (declare (not safe)) (gx#stx-e - _%tl192491192637%_)))) - (let ((_%tl192494192645%_ + _%tl193778193924%_)))) + (let ((_%tl193781193932%_ (let () (declare (not safe)) - (##cdr _%e192492192640%_))) - (_%hd192493192643%_ + (##cdr _%e193779193927%_))) + (_%hd193780193930%_ (let () (declare (not safe)) - (##car _%e192492192640%_)))) + (##car _%e193779193927%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192494192645%_)) - (_%__match197110197111%_ - _%e192409192898%_ - _%hd192410192901%_ - _%tl192411192903%_ - _%e192412192906%_ - _%hd192413192909%_ - _%tl192414192911%_ - _%e192415192914%_ - _%hd192416192917%_ - _%tl192417192919%_ - _%e192440192708%_ - _%hd192441192711%_ - _%tl192442192713%_ - _%e192443192716%_ - _%hd192444192719%_ - _%tl192445192721%_ - _%e192446192724%_ - _%hd192447192727%_ - _%tl192448192729%_ - _%e192449192732%_ - _%hd192450192735%_ - _%tl192451192737%_ - _%e192489192632%_ - _%hd192490192635%_ - _%tl192491192637%_ - _%e192492192640%_ - _%hd192493192643%_ - _%tl192494192645%_) + _%tl193781193932%_)) + (_%__match198397198398%_ + _%e193696194185%_ + _%hd193697194188%_ + _%tl193698194190%_ + _%e193699194193%_ + _%hd193700194196%_ + _%tl193701194198%_ + _%e193702194201%_ + _%hd193703194204%_ + _%tl193704194206%_ + _%e193727193995%_ + _%hd193728193998%_ + _%tl193729194000%_ + _%e193730194003%_ + _%hd193731194006%_ + _%tl193732194008%_ + _%e193733194011%_ + _%hd193734194014%_ + _%tl193735194016%_ + _%e193736194019%_ + _%hd193737194022%_ + _%tl193738194024%_ + _%e193776193919%_ + _%hd193777193922%_ + _%tl193778193924%_ + _%e193779193927%_ + _%hd193780193930%_ + _%tl193781193932%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))) + (_%g193691193801%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) (gx#stx-e - _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192451192737%_)) + (gx#stx-null? _%tl193738194024%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192489192632%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193776193919%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192491192637%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193778193924%_ (let () (declare (not safe)) - (##cdr _%e192489192632%_))) - (_%hd192490192635%_ + (##cdr _%e193776193919%_))) + (_%hd193777193922%_ (let () (declare (not safe)) - (##car _%e192489192632%_)))) + (##car _%e193776193919%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192491192637%_)) - (let ((_%e192492192640%_ + (gx#stx-pair? _%tl193778193924%_)) + (let ((_%e193779193927%_ (let () (declare (not safe)) (gx#stx-e - _%tl192491192637%_)))) - (let ((_%tl192494192645%_ + _%tl193778193924%_)))) + (let ((_%tl193781193932%_ (let () (declare (not safe)) - (##cdr _%e192492192640%_))) - (_%hd192493192643%_ + (##cdr _%e193779193927%_))) + (_%hd193780193930%_ (let () (declare (not safe)) - (##car _%e192492192640%_)))) + (##car _%e193779193927%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192494192645%_)) - (_%__match197110197111%_ - _%e192409192898%_ - _%hd192410192901%_ - _%tl192411192903%_ - _%e192412192906%_ - _%hd192413192909%_ - _%tl192414192911%_ - _%e192415192914%_ - _%hd192416192917%_ - _%tl192417192919%_ - _%e192440192708%_ - _%hd192441192711%_ - _%tl192442192713%_ - _%e192443192716%_ - _%hd192444192719%_ - _%tl192445192721%_ - _%e192446192724%_ - _%hd192447192727%_ - _%tl192448192729%_ - _%e192449192732%_ - _%hd192450192735%_ - _%tl192451192737%_ - _%e192489192632%_ - _%hd192490192635%_ - _%tl192491192637%_ - _%e192492192640%_ - _%hd192493192643%_ - _%tl192494192645%_) + _%tl193781193932%_)) + (_%__match198397198398%_ + _%e193696194185%_ + _%hd193697194188%_ + _%tl193698194190%_ + _%e193699194193%_ + _%hd193700194196%_ + _%tl193701194198%_ + _%e193702194201%_ + _%hd193703194204%_ + _%tl193704194206%_ + _%e193727193995%_ + _%hd193728193998%_ + _%tl193729194000%_ + _%e193730194003%_ + _%hd193731194006%_ + _%tl193732194008%_ + _%e193733194011%_ + _%hd193734194014%_ + _%tl193735194016%_ + _%e193736194019%_ + _%hd193737194022%_ + _%tl193738194024%_ + _%e193776193919%_ + _%hd193777193922%_ + _%tl193778193924%_ + _%e193779193927%_ + _%hd193780193930%_ + _%tl193781193932%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))) + (_%g193691193801%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) (gx#stx-e - _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))))) + (_%g193691193801%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192451192737%_)) + (gx#stx-null? _%tl193738194024%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192489192632%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193776193919%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192491192637%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193778193924%_ (let () (declare (not safe)) - (##cdr _%e192489192632%_))) - (_%hd192490192635%_ + (##cdr _%e193776193919%_))) + (_%hd193777193922%_ (let () (declare (not safe)) - (##car _%e192489192632%_)))) + (##car _%e193776193919%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192491192637%_)) - (let ((_%e192492192640%_ + (gx#stx-pair? _%tl193778193924%_)) + (let ((_%e193779193927%_ (let () (declare (not safe)) - (gx#stx-e _%tl192491192637%_)))) - (let ((_%tl192494192645%_ + (gx#stx-e _%tl193778193924%_)))) + (let ((_%tl193781193932%_ (let () (declare (not safe)) - (##cdr _%e192492192640%_))) - (_%hd192493192643%_ + (##cdr _%e193779193927%_))) + (_%hd193780193930%_ (let () (declare (not safe)) - (##car _%e192492192640%_)))) + (##car _%e193779193927%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192494192645%_)) - (_%__match197110197111%_ - _%e192409192898%_ - _%hd192410192901%_ - _%tl192411192903%_ - _%e192412192906%_ - _%hd192413192909%_ - _%tl192414192911%_ - _%e192415192914%_ - _%hd192416192917%_ - _%tl192417192919%_ - _%e192440192708%_ - _%hd192441192711%_ - _%tl192442192713%_ - _%e192443192716%_ - _%hd192444192719%_ - _%tl192445192721%_ - _%e192446192724%_ - _%hd192447192727%_ - _%tl192448192729%_ - _%e192449192732%_ - _%hd192450192735%_ - _%tl192451192737%_ - _%e192489192632%_ - _%hd192490192635%_ - _%tl192491192637%_ - _%e192492192640%_ - _%hd192493192643%_ - _%tl192494192645%_) + (gx#stx-null? _%tl193781193932%_)) + (_%__match198397198398%_ + _%e193696194185%_ + _%hd193697194188%_ + _%tl193698194190%_ + _%e193699194193%_ + _%hd193700194196%_ + _%tl193701194198%_ + _%e193702194201%_ + _%hd193703194204%_ + _%tl193704194206%_ + _%e193727193995%_ + _%hd193728193998%_ + _%tl193729194000%_ + _%e193730194003%_ + _%hd193731194006%_ + _%tl193732194008%_ + _%e193733194011%_ + _%hd193734194014%_ + _%tl193735194016%_ + _%e193736194019%_ + _%hd193737194022%_ + _%tl193738194024%_ + _%e193776193919%_ + _%hd193777193922%_ + _%tl193778193924%_ + _%e193779193927%_ + _%hd193780193930%_ + _%tl193781193932%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))) + (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))))) + (_%g193691193801%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192504192535%_ + _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ - (let () (declare (not safe)) (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ + (let () (declare (not safe)) (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_)))) + (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192504192535%_ + _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192404192514%_)))))) + (_%g193691193801%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) (gx#stx-e - _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_)))) + (_%g193691193801%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) (gx#stx-e - _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_)))) + (_%g193691193801%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) (gx#stx-e - _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_)))))) + (_%g193691193801%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_)))))) + (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_)))) + (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192504192535%_ + _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ - (let () (declare (not safe)) (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ + (let () (declare (not safe)) (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192506192540%_)) - (let ((_%e192507192543%_ + (gx#stx-pair? _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) + (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192414192911%_)) - (let ((_%e192504192535%_ + _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) (gx#stx-e - _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192506192540%_)))) - (let ((_%tl192509192548%_ - (let () (declare (not safe)) (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (gx#stx-e _%tl193793193827%_)))) + (let ((_%tl193796193835%_ + (let () (declare (not safe)) (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_))))) + (gx#stx-null? _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192404192514%_)))))) + (_%g193691193801%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192414192911%_)) - (let ((_%e192504192535%_ + (gx#stx-pair? _%tl193701194198%_)) + (let ((_%e193791193822%_ (let () (declare (not safe)) - (gx#stx-e _%tl192414192911%_)))) - (let ((_%tl192506192540%_ + (gx#stx-e _%tl193701194198%_)))) + (let ((_%tl193793193827%_ (let () (declare (not safe)) - (##cdr _%e192504192535%_))) - (_%hd192505192538%_ + (##cdr _%e193791193822%_))) + (_%hd193792193825%_ (let () (declare (not safe)) - (##car _%e192504192535%_)))) + (##car _%e193791193822%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192506192540%_)) - (let ((_%e192507192543%_ + _%tl193793193827%_)) + (let ((_%e193794193830%_ (let () (declare (not safe)) (gx#stx-e - _%tl192506192540%_)))) - (let ((_%tl192509192548%_ + _%tl193793193827%_)))) + (let ((_%tl193796193835%_ (let () (declare (not safe)) - (##cdr _%e192507192543%_))) - (_%hd192508192546%_ + (##cdr _%e193794193830%_))) + (_%hd193795193833%_ (let () (declare (not safe)) - (##car _%e192507192543%_)))) + (##car _%e193794193830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192509192548%_)) - (_%__kont196911196912%_ - _%hd192508192546%_ - _%hd192505192538%_ - _%hd192413192909%_) + _%tl193796193835%_)) + (_%__kont198198198199%_ + _%hd193795193833%_ + _%hd193792193825%_ + _%hd193700194196%_) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_))))) + (_%g193691193801%_))))) (let () (declare (not safe)) - (_%g192404192514%_)))))) - (let () (declare (not safe)) (_%g192404192514%_))))) - (let () (declare (not safe)) (_%g192404192514%_)))))))))) + (_%g193691193801%_)))))) + (let () (declare (not safe)) (_%g193691193801%_))))) + (let () (declare (not safe)) (_%g193691193801%_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~1.scm b/src/bootstrap/gerbil/compiler/optimize-call~1.scm index 23e87d192..22f5fceac 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]#_g197266_| + (define |gxc[1]#_g198553_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197268_| + (define |gxc[1]#_g198555_| (##structure gx#syntax-quote::t '::optimize-call::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197270_| + (define |gxc[1]#_g198557_| (##structure gx#syntax-quote::t 'make-::optimize-call #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197272_| + (define |gxc[1]#_g198559_| (##structure gx#syntax-quote::t '::optimize-call? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197274_| + (define |gxc[1]#_g198561_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197276_| + (define |gxc[1]#_g198563_| (##structure gx#syntax-quote::t '::check-return-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197278_| + (define |gxc[1]#_g198565_| (##structure gx#syntax-quote::t 'make-::check-return-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197280_| + (define |gxc[1]#_g198567_| (##structure gx#syntax-quote::t '::check-return-type? @@ -58,7 +58,7 @@ '())) (begin (define |gxc[:0:]#::optimize-call| - (let ((__obj197138 + (let ((__obj198425 (let () (declare (not safe)) (##structure @@ -87,68 +87,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj197138 + __obj198425 'gxc#::optimize-call::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '::optimize-call '2 '#f '#f)) + (##unchecked-structure-set! __obj198425 '::optimize-call '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj198425 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '6 '#f '#f)) - (let ((__tmp197265 (cons |gxc[1]#_g197266_| '()))) + (##unchecked-structure-set! __obj198425 '() '6 '#f '#f)) + (let ((__tmp198552 (cons |gxc[1]#_g198553_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj197138 __tmp197265 '3 '#f '#f)) + (##unchecked-structure-set! __obj198425 __tmp198552 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj198425 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj198425 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj198425 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '#f '11 '#f '#f)) - (let ((__tmp197267 |gxc[1]#_g197268_|)) + (##unchecked-structure-set! __obj198425 '#f '11 '#f '#f)) + (let ((__tmp198554 |gxc[1]#_g198555_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197138 __tmp197267 '12 '#f '#f)) - (let ((__tmp197269 |gxc[1]#_g197270_|)) + (##unchecked-structure-set! __obj198425 __tmp198554 '12 '#f '#f)) + (let ((__tmp198556 |gxc[1]#_g198557_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197138 __tmp197269 '13 '#f '#f)) - (let ((__tmp197271 |gxc[1]#_g197272_|)) + (##unchecked-structure-set! __obj198425 __tmp198556 '13 '#f '#f)) + (let ((__tmp198558 |gxc[1]#_g198559_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197138 __tmp197271 '14 '#f '#f)) + (##unchecked-structure-set! __obj198425 __tmp198558 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj198425 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj198425 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj198425 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj198425 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj198425 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj198425 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197138 '() '20 '#f '#f)) - __obj197138)) + (##unchecked-structure-set! __obj198425 '() '20 '#f '#f)) + __obj198425)) (define |gxc[:0:]#::check-return-type| - (let ((__obj197140 + (let ((__obj198427 (let () (declare (not safe)) (##structure @@ -177,7 +177,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj197140 + __obj198427 'gxc#::check-return-type::t '1 '#f @@ -185,60 +185,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj197140 + __obj198427 '::check-return-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj198427 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '6 '#f '#f)) - (let ((__tmp197273 (cons |gxc[1]#_g197274_| '()))) + (##unchecked-structure-set! __obj198427 '() '6 '#f '#f)) + (let ((__tmp198560 (cons |gxc[1]#_g198561_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj197140 __tmp197273 '3 '#f '#f)) + (##unchecked-structure-set! __obj198427 __tmp198560 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj198427 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj198427 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj198427 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '#f '11 '#f '#f)) - (let ((__tmp197275 |gxc[1]#_g197276_|)) + (##unchecked-structure-set! __obj198427 '#f '11 '#f '#f)) + (let ((__tmp198562 |gxc[1]#_g198563_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197140 __tmp197275 '12 '#f '#f)) - (let ((__tmp197277 |gxc[1]#_g197278_|)) + (##unchecked-structure-set! __obj198427 __tmp198562 '12 '#f '#f)) + (let ((__tmp198564 |gxc[1]#_g198565_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197140 __tmp197277 '13 '#f '#f)) - (let ((__tmp197279 |gxc[1]#_g197280_|)) + (##unchecked-structure-set! __obj198427 __tmp198564 '13 '#f '#f)) + (let ((__tmp198566 |gxc[1]#_g198567_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197140 __tmp197279 '14 '#f '#f)) + (##unchecked-structure-set! __obj198427 __tmp198566 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj198427 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj198427 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj198427 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj198427 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj198427 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj198427 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197140 '() '20 '#f '#f)) - __obj197140)))) + (##unchecked-structure-set! __obj198427 '() '20 '#f '#f)) + __obj198427)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~0.scm b/src/bootstrap/gerbil/compiler/optimize-spec~0.scm index ba0d63ac5..e07b9733f 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 1713631270) + (define gerbil/compiler/optimize-spec::timestamp 1734357965) (begin (define gxc#::generate-method-specializers::t - (let ((__tmp177811 (list gxc#::identity::t)) - (__tmp177810 (cons (cons 'final: '#t) '()))) + (let ((__tmp179098 (list gxc#::identity::t)) + (__tmp179097 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-method-specializers::t '::generate-method-specializers - __tmp177811 + __tmp179098 '() - __tmp177810 + __tmp179097 '#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 _%$args176608%_ + (lambda _%$args177895%_ (apply make-instance gxc#::generate-method-specializers::t - _%$args176608%_))) + _%$args177895%_))) (define gxc#::generate-method-specializers-bind-methods! - (let ((__tmp177812 + (let ((__tmp179099 (lambda () (force gxc#::identity-bind-methods!) (let () @@ -54,46 +54,46 @@ (declare (not safe)) (__seal-class! gxc#::generate-method-specializers::t))))) (declare (not safe)) - (__make-promise __tmp177812))) + (__make-promise __tmp179099))) (define gxc#apply-generate-method-specializers - (lambda (_%stx176600%_) + (lambda (_%stx177887%_) (force gxc#::generate-method-specializers-bind-methods!) - (let* ((_%self176603%_ - (let ((__obj177803 + (let* ((_%self177890%_ + (let ((__obj179090 (let () (declare (not safe)) (##structure gxc#::generate-method-specializers::t)))) - __obj177803)) - (__tmp177813 + __obj179090)) + (__tmp179100 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176603%_ _%stx176600%_))))) + (gxc#compile-e__1 _%self177890%_ _%stx177887%_))))) (declare (not safe)) (__call-with-parameters - __tmp177813 + __tmp179100 gxc#current-compile-method - _%self176603%_)))) + _%self177890%_)))) (define gxc#::extract-receiver::t - (let ((__tmp177815 (list gxc#::false::t)) - (__tmp177814 (cons (cons 'final: '#t) '()))) + (let ((__tmp179102 (list gxc#::false::t)) + (__tmp179101 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::extract-receiver::t '::extract-receiver - __tmp177815 + __tmp179102 '() - __tmp177814 + __tmp179101 '#f))) (define gxc#::extract-receiver? (let () (declare (not safe)) (__make-class-predicate gxc#::extract-receiver::t))) (define gxc#make-::extract-receiver - (lambda _%$args176597%_ - (apply make-instance gxc#::extract-receiver::t _%$args176597%_))) + (lambda _%$args177884%_ + (apply make-instance gxc#::extract-receiver::t _%$args177884%_))) (define gxc#::extract-receiver-bind-methods! - (let ((__tmp177816 + (let ((__tmp179103 (lambda () (force gxc#::false-bind-methods!) (let () @@ -136,44 +136,44 @@ (declare (not safe)) (__seal-class! gxc#::extract-receiver::t))))) (declare (not safe)) - (__make-promise __tmp177816))) + (__make-promise __tmp179103))) (define gxc#apply-extract-receiver - (lambda (_%stx176589%_) + (lambda (_%stx177876%_) (force gxc#::extract-receiver-bind-methods!) - (let* ((_%self176592%_ - (let ((__obj177805 + (let* ((_%self177879%_ + (let ((__obj179092 (let () (declare (not safe)) (##structure gxc#::extract-receiver::t)))) - __obj177805)) - (__tmp177817 + __obj179092)) + (__tmp179104 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176592%_ _%stx176589%_))))) + (gxc#compile-e__1 _%self177879%_ _%stx177876%_))))) (declare (not safe)) (__call-with-parameters - __tmp177817 + __tmp179104 gxc#current-compile-method - _%self176592%_)))) + _%self177879%_)))) (define gxc#::collect-object-refs::t - (let ((__tmp177819 (list gxc#::void::t)) - (__tmp177818 (cons (cons 'final: '#t) '()))) + (let ((__tmp179106 (list gxc#::void::t)) + (__tmp179105 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-object-refs::t '::collect-object-refs - __tmp177819 + __tmp179106 '(receiver methods slots) - __tmp177818 + __tmp179105 '#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 _%$args176586%_ - (apply make-instance gxc#::collect-object-refs::t _%$args176586%_))) + (lambda _%$args177873%_ + (apply make-instance gxc#::collect-object-refs::t _%$args177873%_))) (define gxc#::collect-object-refs-receiver (let () (declare (not safe)) @@ -235,7 +235,7 @@ gxc#::collect-object-refs::t 'slots))) (define gxc#::collect-object-refs-bind-methods! - (let ((__tmp177820 + (let ((__tmp179107 (lambda () (force gxc#::void-bind-methods!) (let () @@ -338,34 +338,34 @@ (declare (not safe)) (__seal-class! gxc#::collect-object-refs::t))))) (declare (not safe)) - (__make-promise __tmp177820))) + (__make-promise __tmp179107))) (define gxc#apply-collect-object-refs__% - (lambda (_%@@keywords176552%_ - _%receiver176547176553%_ - _%methods176548176555%_ - _%slots176549176557%_ - _%stx176559%_) - (let* ((_%receiver176562%_ - (if (eq? _%receiver176547176553%_ absent-value) + (lambda (_%@@keywords177839%_ + _%receiver177834177840%_ + _%methods177835177842%_ + _%slots177836177844%_ + _%stx177846%_) + (let* ((_%receiver177849%_ + (if (eq? _%receiver177834177840%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _%receiver176547176553%_)) - (_%methods176564%_ - (if (eq? _%methods176548176555%_ absent-value) + _%receiver177834177840%_)) + (_%methods177851%_ + (if (eq? _%methods177835177842%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods176548176555%_)) - (_%slots176566%_ - (if (eq? _%slots176549176557%_ absent-value) + _%methods177835177842%_)) + (_%slots177853%_ + (if (eq? _%slots177836177844%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots176549176557%_))) + _%slots177836177844%_))) (force gxc#::collect-object-refs-bind-methods!) - (let* ((_%self176568%_ - (let ((__obj177807 + (let* ((_%self177855%_ + (let ((__obj179094 (let () (declare (not safe)) (##structure @@ -376,85 +376,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177807 - _%receiver176562%_ + __obj179094 + _%receiver177849%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj177807 - _%methods176564%_ + __obj179094 + _%methods177851%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj177807 - _%slots176566%_ + __obj179094 + _%slots177853%_ '3 '#f '#f)) - __obj177807)) - (__tmp177821 + __obj179094)) + (__tmp179108 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176568%_ _%stx176559%_))))) + (gxc#compile-e__1 _%self177855%_ _%stx177846%_))))) (declare (not safe)) (__call-with-parameters - __tmp177821 + __tmp179108 gxc#current-compile-method - _%self176568%_))))) + _%self177855%_))))) (define gxc#apply-collect-object-refs__@ - (lambda (_%@@keywords176575%_ . _%args176576%_) + (lambda (_%@@keywords177862%_ . _%args177863%_) (apply gxc#apply-collect-object-refs__% - _%@@keywords176575%_ + _%@@keywords177862%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176575%_ + _%@@keywords177862%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176575%_ + _%@@keywords177862%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176575%_ + _%@@keywords177862%_ 'slots: absent-value)) - _%args176576%_))) + _%args177863%_))) (define gxc#apply-collect-object-refs - (lambda _%args176550176582%_ + (lambda _%args177837177869%_ (apply keyword-dispatch '#(receiver: slots: methods:) gxc#apply-collect-object-refs__@ - _%args176550176582%_))) + _%args177837177869%_))) (define gxc#::subst-object-refs::t - (let ((__tmp177823 (list gxc#::basic-xform-expression::t)) - (__tmp177822 (cons (cons 'final: '#t) '()))) + (let ((__tmp179110 (list gxc#::basic-xform-expression::t)) + (__tmp179109 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::subst-object-refs::t '::subst-object-refs - __tmp177823 + __tmp179110 '(receiver klass methods slots) - __tmp177822 + __tmp179109 '#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 _%$args176543%_ - (apply make-instance gxc#::subst-object-refs::t _%$args176543%_))) + (lambda _%$args177830%_ + (apply make-instance gxc#::subst-object-refs::t _%$args177830%_))) (define gxc#::subst-object-refs-receiver (let () (declare (not safe)) @@ -536,7 +536,7 @@ gxc#::subst-object-refs::t 'slots))) (define gxc#::subst-object-refs-bind-methods! - (let ((__tmp177824 + (let ((__tmp179111 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (let () @@ -555,41 +555,41 @@ (declare (not safe)) (__seal-class! gxc#::subst-object-refs::t))))) (declare (not safe)) - (__make-promise __tmp177824))) + (__make-promise __tmp179111))) (define gxc#apply-subst-object-refs__% - (lambda (_%@@keywords176505%_ - _%receiver176499176506%_ - _%klass176500176508%_ - _%methods176501176510%_ - _%slots176502176512%_ - _%stx176514%_) - (let* ((_%receiver176517%_ - (if (eq? _%receiver176499176506%_ absent-value) + (lambda (_%@@keywords177792%_ + _%receiver177786177793%_ + _%klass177787177795%_ + _%methods177788177797%_ + _%slots177789177799%_ + _%stx177801%_) + (let* ((_%receiver177804%_ + (if (eq? _%receiver177786177793%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _%receiver176499176506%_)) - (_%klass176519%_ - (if (eq? _%klass176500176508%_ absent-value) + _%receiver177786177793%_)) + (_%klass177806%_ + (if (eq? _%klass177787177795%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'klass:)) - _%klass176500176508%_)) - (_%methods176521%_ - (if (eq? _%methods176501176510%_ absent-value) + _%klass177787177795%_)) + (_%methods177808%_ + (if (eq? _%methods177788177797%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods176501176510%_)) - (_%slots176523%_ - (if (eq? _%slots176502176512%_ absent-value) + _%methods177788177797%_)) + (_%slots177810%_ + (if (eq? _%slots177789177799%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots176502176512%_))) + _%slots177789177799%_))) (force gxc#::subst-object-refs-bind-methods!) - (let* ((_%self176525%_ - (let ((__obj177809 + (let* ((_%self177812%_ + (let ((__obj179096 (let () (declare (not safe)) (##structure @@ -601,96 +601,96 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177809 - _%receiver176517%_ + __obj179096 + _%receiver177804%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj177809 - _%klass176519%_ + __obj179096 + _%klass177806%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj177809 - _%methods176521%_ + __obj179096 + _%methods177808%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj177809 - _%slots176523%_ + __obj179096 + _%slots177810%_ '4 '#f '#f)) - __obj177809)) - (__tmp177825 + __obj179096)) + (__tmp179112 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176525%_ _%stx176514%_))))) + (gxc#compile-e__1 _%self177812%_ _%stx177801%_))))) (declare (not safe)) (__call-with-parameters - __tmp177825 + __tmp179112 gxc#current-compile-method - _%self176525%_))))) + _%self177812%_))))) (define gxc#apply-subst-object-refs__@ - (lambda (_%@@keywords176532%_ . _%args176533%_) + (lambda (_%@@keywords177819%_ . _%args177820%_) (apply gxc#apply-subst-object-refs__% - _%@@keywords176532%_ + _%@@keywords177819%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176532%_ + _%@@keywords177819%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176532%_ + _%@@keywords177819%_ 'klass: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176532%_ + _%@@keywords177819%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176532%_ + _%@@keywords177819%_ 'slots: absent-value)) - _%args176533%_))) + _%args177820%_))) (define gxc#apply-subst-object-refs - (lambda _%args176503176539%_ + (lambda _%args177790177826%_ (apply keyword-dispatch '#(receiver: methods: slots: klass:) gxc#apply-subst-object-refs__@ - _%args176503176539%_))) + _%args177790177826%_))) (define gxc#generate-method-specializers-define-values% - (lambda (_%self173614%_ _%stx173615%_) - (letrec ((_%generate-method-bind173617%_ - (lambda (_%$klass176491%_ - _%$method-table176492%_ - _%id176493%_ - _%$id176494%_) - (let ((_%$tmp176496%_ - (let ((__tmp177826 + (lambda (_%self174901%_ _%stx174902%_) + (letrec ((_%generate-method-bind174904%_ + (lambda (_%$klass177778%_ + _%$method-table177779%_ + _%id177780%_ + _%$id177781%_) + (let ((_%$tmp177783%_ + (let ((__tmp179113 (let () (declare (not safe)) (##gensym '__method)))) (declare (not safe)) - (make-symbol__0 __tmp177826)))) - (cons (cons _%$id176494%_ '()) + (make-symbol__0 __tmp179113)))) + (cons (cons _%$id177781%_ '()) (cons (cons '%#call (cons (cons '%#ref (cons 'make-promise '())) @@ -698,14 +698,14 @@ (cons '() (cons (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%$tmp176496%_ '()) + (cons (cons (cons (cons _%$tmp177783%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'symbolic-table-ref '())) (cons (cons '%#ref - (cons _%$method-table176492%_ '())) + (cons _%$method-table177779%_ '())) (cons (cons '%#quote - (cons _%id176493%_ '())) + (cons _%id177780%_ '())) (cons (cons '%#quote (cons '#f '())) '()))))) @@ -715,15 +715,15 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp176496%_ '())) - (cons (cons '%#ref (cons _%$tmp176496%_ '())) + (cons _%$tmp177783%_ '())) + (cons (cons '%#ref (cons _%$tmp177783%_ '())) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote (cons '"Missing method" '())) (cons (cons '%#quote - (cons _%id176493%_ + (cons _%id177780%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) @@ -735,26 +735,26 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-slot-bind173618%_ - (lambda (_%$klass176485%_ _%id176486%_ _%$id176487%_) - (let ((_%$tmp176489%_ - (let ((__tmp177827 + (_%generate-slot-bind174905%_ + (lambda (_%$klass177772%_ _%id177773%_ _%$id177774%_) + (let ((_%$tmp177776%_ + (let ((__tmp179114 (let () (declare (not safe)) (##gensym '__slot)))) (declare (not safe)) - (make-symbol__0 __tmp177827)))) - (cons (cons _%$id176487%_ '()) + (make-symbol__0 __tmp179114)))) + (cons (cons _%$id177774%_ '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%$tmp176489%_ + (cons (cons (cons (cons _%$tmp177776%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'class-slot-offset '())) (cons (cons '%#ref - (cons _%$klass176485%_ '())) + (cons _%$klass177772%_ '())) (cons (cons '%#quote - (cons _%id176486%_ '())) + (cons _%id177773%_ '())) '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -762,465 +762,465 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp176489%_ '())) - (cons (cons '%#ref (cons _%$tmp176489%_ '())) + (cons _%$tmp177776%_ '())) + (cons (cons '%#ref (cons _%$tmp177776%_ '())) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote (cons '"Unknown slot" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons '%#quote (cons _%id176486%_ '())) '())))) + (cons (cons '%#quote (cons _%id177773%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-specializer-impl173619%_ - (lambda (_%$klass176479%_ - _%$method-table176480%_ - _%methods-bind176481%_ - _%slots-bind176482%_ - _%specializer-impl176483%_) - (let ((__tmp177828 + (_%generate-specializer-impl174906%_ + (lambda (_%$klass177766%_ + _%$method-table177767%_ + _%methods-bind177768%_ + _%slots-bind177769%_ + _%specializer-impl177770%_) + (let ((__tmp179115 (cons '%#lambda - (cons (cons _%$klass176479%_ - (cons _%$method-table176480%_ + (cons (cons _%$klass177766%_ + (cons _%$method-table177767%_ '())) (cons (cons '%#let-values (cons (let () (declare (not safe)) (__foldr1 cons - _%slots-bind176482%_ - _%methods-bind176481%_)) - (cons _%specializer-impl176483%_ + _%slots-bind177769%_ + _%methods-bind177768%_)) + (cons _%specializer-impl177770%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177828 _%stx173615%_)))) - (_%generate-specializer-def173620%_ - (lambda (_%id176475%_ - _%specializer-id176476%_ - _%specializer-impl176477%_) - (let ((__tmp177829 + (gxc#xform-wrap-source __tmp179115 _%stx174902%_)))) + (_%generate-specializer-def174907%_ + (lambda (_%id177762%_ + _%specializer-id177763%_ + _%specializer-impl177764%_) + (let ((__tmp179116 (cons '%#begin - (cons _%stx173615%_ - (cons (let ((__tmp177830 + (cons _%stx174902%_ + (cons (let ((__tmp179117 (cons '%#define-values - (cons (cons _%specializer-id176476%_ + (cons (cons _%specializer-id177763%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%specializer-impl176477%_ '()))))) + (cons _%specializer-impl177764%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177830 - _%stx173615%_)) - (cons (let ((__tmp177831 + __tmp179117 + _%stx174902%_)) + (cons (let ((__tmp179118 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'bind-specializer! '())) - (cons (cons '%#ref (cons _%id176475%_ '())) + (cons (cons '%#ref (cons _%id177762%_ '())) (cons (cons '%#ref - (cons _%specializer-id176476%_ + (cons _%specializer-id177763%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177831 - _%stx173615%_)) + __tmp179118 + _%stx174902%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177829 _%stx173615%_))))) - (let* ((_%__stx176697176698%_ _%stx173615%_) - (_%g173623173643%_ + (gxc#xform-wrap-source __tmp179116 _%stx174902%_))))) + (let* ((_%__stx177984177985%_ _%stx174902%_) + (_%g174910174930%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176697176698%_))))) - (let ((_%__kont176699176700%_ - (lambda (_%L173687%_ _%L173688%_) - (let ((_%method-calls173707%_ + _%__stx177984177985%_))))) + (let ((_%__kont177986177987%_ + (lambda (_%L174974%_ _%L174975%_) + (let ((_%method-calls174994%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%slot-refs173708%_ + (_%slot-refs174995%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%empty173709%_ + (_%empty174996%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (letrec ((_%no-specializer?173711%_ + (letrec ((_%no-specializer?174998%_ (lambda () (if (fxzero? (let () (declare (not safe)) (__hash-length - _%method-calls173707%_))) + _%method-calls174994%_))) (fxzero? (let () (declare (not safe)) (__hash-length - _%slot-refs173708%_))) + _%slot-refs174995%_))) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _%L173687%_)) - (let* ((_%__stx176611176612%_ _%L173687%_) - (_%g174099174117%_ + (gxc#lambda-expr? _%L174974%_)) + (let* ((_%__stx177898177899%_ _%L174974%_) + (_%g175386175404%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176611176612%_))))) - (let ((_%__kont176613176614%_ - (lambda (_%L174153%_ - _%L174154%_ - _%L174155%_) - (let ((_%receiver174175%_ - (let ((_%$e174172%_ + _%__stx177898177899%_))))) + (let ((_%__kont177900177901%_ + (lambda (_%L175440%_ + _%L175441%_ + _%L175442%_) + (let ((_%receiver175462%_ + (let ((_%$e175459%_ (gxc#apply-extract-receiver (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174153%_)))) + _%L175440%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e174172%_ - _%$e174172%_ - _%L174155%_)))) + (if _%$e175459%_ + _%$e175459%_ + _%L175442%_)))) (for-each - (lambda (_%g174176174178%_) + (lambda (_%g175463175465%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174175%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g174176174178%_)) - _%L174153%_) - (if (_%no-specializer?173711%_) - _%stx173615%_ - (let* ((_%specializer-id174187%_ - (let* ((_%id174181%_ - (let ((__tmp177832 + _%receiver175462%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g175463175465%_)) + _%L175440%_) + (if (_%no-specializer?174998%_) + _%stx174902%_ + (let* ((_%specializer-id175474%_ + (let* ((_%id175468%_ + (let ((__tmp179119 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%L173688%_)))) + (gx#stx-e _%L174975%_)))) (declare (not safe)) - (make-symbol__1 __tmp177832 '"::specialize"))) - (_%specializer-id174184%_ - (let ((__tmp177833 + (make-symbol__1 __tmp179119 '"::specialize"))) + (_%specializer-id175471%_ + (let ((__tmp179120 (let () (declare (not safe)) - (gx#stx-source _%stx173615%_)))) + (gx#stx-source _%stx174902%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%id174181%_ __tmp177833)))) + (gx#core-quote-syntax__1 _%id175468%_ __tmp179120)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id174184%_)) - _%specializer-id174184%_)) + (gx#core-bind-runtime!__0 _%specializer-id175471%_)) + _%specializer-id175471%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$klass174189%_ - (let ((__tmp177834 + (_%$klass175476%_ + (let ((__tmp179121 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp177834))) + (make-symbol__0 __tmp179121))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$method-table174191%_ - (let ((__tmp177835 + (_%$method-table175478%_ + (let ((__tmp179122 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp177835))) + (make-symbol__0 __tmp179122))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods174193%_ + (_%methods175480%_ (let () (declare (not safe)) (__hash-keys - _%method-calls173707%_))) - (_%$methods174197%_ - (map (lambda (_%id174195%_) - (let ((__tmp177836 + _%method-calls174994%_))) + (_%$methods175484%_ + (map (lambda (_%id175482%_) + (let ((__tmp179123 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id174195%_))) + (gensym _%id175482%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177836))) - _%methods174193%_)) + (make-symbol__1 '"__" __tmp179123))) + _%methods175480%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_174206%_ + (_%_175493%_ (for-each - (lambda (_%g174198174201%_ - _%g174199174203%_) + (lambda (_%g175485175488%_ + _%g175486175490%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173707%_ - _%g174198174201%_ - _%g174199174203%_))) - _%methods174193%_ - _%$methods174197%_)) - (_%methods-bind174216%_ - (map (lambda (_%g174208174211%_ + _%method-calls174994%_ + _%g175485175488%_ + _%g175486175490%_))) + _%methods175480%_ + _%$methods175484%_)) + (_%methods-bind175503%_ + (map (lambda (_%g175495175498%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g174209174213%_) - (_%generate-method-bind173617%_ - _%$klass174189%_ - _%$method-table174191%_ - _%g174208174211%_ - _%g174209174213%_)) - _%methods174193%_ - _%$methods174197%_)) + _%g175496175500%_) + (_%generate-method-bind174904%_ + _%$klass175476%_ + _%$method-table175478%_ + _%g175495175498%_ + _%g175496175500%_)) + _%methods175480%_ + _%$methods175484%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots174218%_ + (_%slots175505%_ (let () (declare (not safe)) (__hash-keys - _%slot-refs173708%_))) - (_%$slots174222%_ - (map (lambda (_%id174220%_) - (let ((__tmp177837 + _%slot-refs174995%_))) + (_%$slots175509%_ + (map (lambda (_%id175507%_) + (let ((__tmp179124 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id174220%_))) + (gensym _%id175507%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177837))) - _%slots174218%_)) + (make-symbol__1 '"__" __tmp179124))) + _%slots175505%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_174231%_ + (_%_175518%_ (for-each - (lambda (_%g174223174226%_ - _%g174224174228%_) + (lambda (_%g175510175513%_ + _%g175511175515%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173708%_ - _%g174223174226%_ - _%g174224174228%_))) - _%slots174218%_ - _%$slots174222%_)) - (_%slots-bind174240%_ - (map (lambda (_%g174232174235%_ + _%slot-refs174995%_ + _%g175510175513%_ + _%g175511175515%_))) + _%slots175505%_ + _%$slots175509%_)) + (_%slots-bind175527%_ + (map (lambda (_%g175519175522%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g174233174237%_) - (_%generate-slot-bind173618%_ - _%$klass174189%_ - _%g174232174235%_ - _%g174233174237%_)) - _%slots174218%_ - _%$slots174222%_)) + _%g175520175524%_) + (_%generate-slot-bind174905%_ + _%$klass175476%_ + _%g175519175522%_ + _%g175520175524%_)) + _%slots175505%_ + _%$slots175509%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-body174246%_ - (map (lambda (_%g174241174243%_) + (_%specializer-body175533%_ + (map (lambda (_%g175528175530%_) (gxc#apply-subst-object-refs__% '#f - _%receiver174175%_ - _%$klass174189%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g174241174243%_)) - _%L174153%_)) - (_%specializer-impl174248%_ - (let ((__tmp177838 + _%receiver175462%_ + _%$klass175476%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g175528175530%_)) + _%L175440%_)) + (_%specializer-impl175535%_ + (let ((__tmp179125 (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L174155%_ _%L174154%_) - _%specializer-body174246%_)))) + (cons (cons _%L175442%_ _%L175441%_) + _%specializer-body175533%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177838 _%stx173615%_))) + (gxc#xform-wrap-source __tmp179125 _%stx174902%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl174250%_ - (_%generate-specializer-impl173619%_ - _%$klass174189%_ - _%$method-table174191%_ - _%methods-bind174216%_ - _%slots-bind174240%_ - _%specializer-impl174248%_))) - (let ((__tmp177840 + (_%specializer-impl175537%_ + (_%generate-specializer-impl174906%_ + _%$klass175476%_ + _%$method-table175478%_ + _%methods-bind175503%_ + _%slots-bind175527%_ + _%specializer-impl175535%_))) + (let ((__tmp179127 (let () (declare (not safe)) (gx#stx-e - _%L173688%_))) - (__tmp177839 + _%L174975%_))) + (__tmp179126 (let () (declare (not safe)) (gx#stx-e - _%specializer-id174187%_)))) + _%specializer-id175474%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp177840 + __tmp179127 '" => " - __tmp177839)) - (_%generate-specializer-def173620%_ - _%L173688%_ - _%specializer-id174187%_ - _%specializer-impl174250%_)))))) - (_%__kont176615176616%_ - (lambda () _%stx173615%_))) + __tmp179126)) + (_%generate-specializer-def174907%_ + _%L174975%_ + _%specializer-id175474%_ + _%specializer-impl175537%_)))))) + (_%__kont177902177903%_ + (lambda () _%stx174902%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176611176612%_)) - (let ((_%e174104174129%_ + (gx#stx-pair? _%__stx177898177899%_)) + (let ((_%e175391175416%_ (let () (declare (not safe)) (gx#stx-e - _%__stx176611176612%_)))) - (let ((_%tl174106174134%_ + _%__stx177898177899%_)))) + (let ((_%tl175393175421%_ (let () (declare (not safe)) - (##cdr _%e174104174129%_))) - (_%hd174105174132%_ + (##cdr _%e175391175416%_))) + (_%hd175392175419%_ (let () (declare (not safe)) - (##car _%e174104174129%_)))) + (##car _%e175391175416%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174106174134%_)) - (let ((_%e174107174137%_ + _%tl175393175421%_)) + (let ((_%e175394175424%_ (let () (declare (not safe)) (gx#stx-e - _%tl174106174134%_)))) - (let ((_%tl174109174142%_ + _%tl175393175421%_)))) + (let ((_%tl175396175429%_ (let () (declare (not safe)) - (##cdr _%e174107174137%_))) - (_%hd174108174140%_ + (##cdr _%e175394175424%_))) + (_%hd175395175427%_ (let () (declare (not safe)) - (##car _%e174107174137%_)))) + (##car _%e175394175424%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174108174140%_)) - (let ((_%e174110174145%_ + _%hd175395175427%_)) + (let ((_%e175397175432%_ (let () (declare (not safe)) (gx#stx-e - _%hd174108174140%_)))) - (let ((_%tl174112174150%_ + _%hd175395175427%_)))) + (let ((_%tl175399175437%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e174110174145%_))) - (_%hd174111174148%_ - (let () (declare (not safe)) (##car _%e174110174145%_)))) - (_%__kont176613176614%_ - _%tl174109174142%_ - _%tl174112174150%_ - _%hd174111174148%_))) + (##cdr _%e175397175432%_))) + (_%hd175398175435%_ + (let () (declare (not safe)) (##car _%e175397175432%_)))) + (_%__kont177900177901%_ + _%tl175396175429%_ + _%tl175399175437%_ + _%hd175398175435%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176615176616%_)))) - (_%__kont176615176616%_)))) - (_%__kont176615176616%_)))) + (_%__kont177902177903%_)))) + (_%__kont177902177903%_)))) + (_%__kont177902177903%_)))) (if (let () (declare (not safe)) - (gxc#case-lambda-expr? _%L173687%_)) - (let* ((_%g174257174276%_ - (lambda (_%g174258174273%_) + (gxc#case-lambda-expr? _%L174974%_)) + (let* ((_%g175544175563%_ + (lambda (_%g175545175560%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174258174273%_)))) - (_%g174256174574%_ - (lambda (_%g174258174279%_) + _%g175545175560%_)))) + (_%g175543175861%_ + (lambda (_%g175545175566%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174258174279%_)) - (let ((_%e174260174281%_ + _%g175545175566%_)) + (let ((_%e175547175568%_ (let () (declare (not safe)) (gx#stx-e - _%g174258174279%_)))) - (let ((_%hd174261174284%_ + _%g175545175566%_)))) + (let ((_%hd175548175571%_ (let () (declare (not safe)) - (##car _%e174260174281%_))) - (_%tl174262174286%_ + (##car _%e175547175568%_))) + (_%tl175549175573%_ (let () (declare (not safe)) - (##cdr _%e174260174281%_)))) + (##cdr _%e175547175568%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174262174286%_)) - (let ((_g177841_ + _%tl175549175573%_)) + (let ((_g179128_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl174262174286%_ '0)))) + (gx#syntax-split-splice _%tl175549175573%_ '0)))) (begin - (let ((_g177842_ + (let ((_g179129_ (let () (declare (not safe)) - (if (##values? _g177841_) - (##vector-length _g177841_) + (if (##values? _g179128_) + (##values-length _g179128_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g177842_ 2))) - (error "Context expects 2 values" _g177842_))) - (let ((_%target174263174289%_ + (##fx= _g179129_ 2))) + (error "Context expects 2 values" _g179129_))) + (let ((_%target175550175576%_ (let () (declare (not safe)) - (##vector-ref _g177841_ 0))) - (_%tl174265174291%_ + (##values-ref _g179128_ 0))) + (_%tl175552175578%_ (let () (declare (not safe)) - (##vector-ref _g177841_ 1)))) + (##values-ref _g179128_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174265174291%_)) - (letrec ((_%loop174266174294%_ - (lambda (_%hd174264174297%_ - _%clause174270174299%_) + (gx#stx-null? _%tl175552175578%_)) + (letrec ((_%loop175553175581%_ + (lambda (_%hd175551175584%_ + _%clause175557175586%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174264174297%_)) - (let ((_%e174267174302%_ + (gx#stx-pair? _%hd175551175584%_)) + (let ((_%e175554175589%_ (let () (declare (not safe)) (gx#stx-e - _%hd174264174297%_)))) - (let ((_%lp-hd174268174305%_ + _%hd175551175584%_)))) + (let ((_%lp-hd175555175592%_ (let () (declare (not safe)) - (##car _%e174267174302%_))) - (_%lp-tl174269174307%_ + (##car _%e175554175589%_))) + (_%lp-tl175556175594%_ (let () (declare (not safe)) - (##cdr _%e174267174302%_)))) - (_%loop174266174294%_ - _%lp-tl174269174307%_ - (cons _%lp-hd174268174305%_ - _%clause174270174299%_)))) - (let ((_%clause174271174310%_ - (reverse _%clause174270174299%_))) - ((lambda (_%L174313%_) + (##cdr _%e175554175589%_)))) + (_%loop175553175581%_ + _%lp-tl175556175594%_ + (cons _%lp-hd175555175592%_ + _%clause175557175586%_)))) + (let ((_%clause175558175597%_ + (reverse _%clause175557175586%_))) + ((lambda (_%L175600%_) (for-each - (lambda (_%clause174327%_) - (let* ((_%__stx176637176638%_ - _%clause174327%_) - (_%g174330174345%_ + (lambda (_%clause175614%_) + (let* ((_%__stx177924177925%_ + _%clause175614%_) + (_%g175617175632%_ (lambda () (let () (declare @@ -1228,190 +1228,190 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176637176638%_))))) - (let ((_%__kont176639176640%_ - (lambda (_%L174373%_ + _%__stx177924177925%_))))) + (let ((_%__kont177926177927%_ + (lambda (_%L175660%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L174374%_ - _%L174375%_) - (let ((_%receiver174394%_ - (let ((_%$e174391%_ + _%L175661%_ + _%L175662%_) + (let ((_%receiver175681%_ + (let ((_%$e175678%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174373%_)))) - (if _%$e174391%_ _%$e174391%_ _%L174375%_)))) + _%L175660%_)))) + (if _%$e175678%_ _%$e175678%_ _%L175662%_)))) (for-each - (lambda (_%g174395174397%_) + (lambda (_%g175682175684%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174394%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g174395174397%_)) - _%L174373%_)))) - (_%__kont176641176642%_ (lambda () '#!void))) + _%receiver175681%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g175682175684%_)) + _%L175660%_)))) + (_%__kont177928177929%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx176637176638%_)) - (let ((_%e174335174357%_ + _%__stx177924177925%_)) + (let ((_%e175622175644%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx176637176638%_)))) - (let ((_%tl174337174362%_ + (gx#stx-e _%__stx177924177925%_)))) + (let ((_%tl175624175649%_ (let () (declare (not safe)) - (##cdr _%e174335174357%_))) - (_%hd174336174360%_ + (##cdr _%e175622175644%_))) + (_%hd175623175647%_ (let () (declare (not safe)) - (##car _%e174335174357%_)))) + (##car _%e175622175644%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174336174360%_)) - (let ((_%e174338174365%_ + (gx#stx-pair? _%hd175623175647%_)) + (let ((_%e175625175652%_ (let () (declare (not safe)) - (gx#stx-e _%hd174336174360%_)))) - (let ((_%tl174340174370%_ + (gx#stx-e _%hd175623175647%_)))) + (let ((_%tl175627175657%_ (let () (declare (not safe)) - (##cdr _%e174338174365%_))) - (_%hd174339174368%_ + (##cdr _%e175625175652%_))) + (_%hd175626175655%_ (let () (declare (not safe)) - (##car _%e174338174365%_)))) - (_%__kont176639176640%_ - _%tl174337174362%_ - _%tl174340174370%_ - _%hd174339174368%_))) - (_%__kont176641176642%_)))) - (_%__kont176641176642%_))))) + (##car _%e175625175652%_)))) + (_%__kont177926177927%_ + _%tl175624175649%_ + _%tl175627175657%_ + _%hd175626175655%_))) + (_%__kont177928177929%_)))) + (_%__kont177928177929%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp177843 - (lambda (_%g174402174405%_ - _%g174403174407%_) - (cons _%g174402174405%_ - _%g174403174407%_)))) + (let ((__tmp179130 + (lambda (_%g175689175692%_ + _%g175690175694%_) + (cons _%g175689175692%_ + _%g175690175694%_)))) (declare (not safe)) (__foldr1 - __tmp177843 + __tmp179130 '() - _%L174313%_))) - (if (_%no-specializer?173711%_) - _%stx173615%_ - (let* ((_%specializer-id174416%_ - (let* ((_%id174410%_ + _%L175600%_))) + (if (_%no-specializer?174998%_) + _%stx174902%_ + (let* ((_%specializer-id175703%_ + (let* ((_%id175697%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp177844 + (let ((__tmp179131 (let () (declare (not safe)) - (gx#stx-e _%L173688%_)))) + (gx#stx-e _%L174975%_)))) (declare (not safe)) - (make-symbol__1 __tmp177844 '"::specialize"))) - (_%specializer-id174413%_ - (let ((__tmp177845 + (make-symbol__1 __tmp179131 '"::specialize"))) + (_%specializer-id175700%_ + (let ((__tmp179132 (let () (declare (not safe)) - (gx#stx-source _%stx173615%_)))) + (gx#stx-source _%stx174902%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id174410%_ - __tmp177845)))) + _%id175697%_ + __tmp179132)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id174413%_)) - _%specializer-id174413%_)) - (_%$klass174418%_ - (let ((__tmp177846 + (gx#core-bind-runtime!__0 _%specializer-id175700%_)) + _%specializer-id175700%_)) + (_%$klass175705%_ + (let ((__tmp179133 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp177846))) - (_%$method-table174420%_ - (let ((__tmp177847 + (make-symbol__0 __tmp179133))) + (_%$method-table175707%_ + (let ((__tmp179134 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp177847))) - (_%methods174422%_ + (make-symbol__0 __tmp179134))) + (_%methods175709%_ (let () (declare (not safe)) - (__hash-keys _%method-calls173707%_))) - (_%$methods174426%_ - (map (lambda (_%id174424%_) - (let ((__tmp177848 (gensym _%id174424%_))) + (__hash-keys _%method-calls174994%_))) + (_%$methods175713%_ + (map (lambda (_%id175711%_) + (let ((__tmp179135 (gensym _%id175711%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177848))) - _%methods174422%_)) - (_%_174435%_ + (make-symbol__1 '"__" __tmp179135))) + _%methods175709%_)) + (_%_175722%_ (for-each - (lambda (_%g174427174430%_ _%g174428174432%_) + (lambda (_%g175714175717%_ _%g175715175719%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173707%_ - _%g174427174430%_ - _%g174428174432%_))) - _%methods174422%_ - _%$methods174426%_)) - (_%methods-bind174445%_ - (map (lambda (_%g174437174440%_ _%g174438174442%_) - (_%generate-method-bind173617%_ - _%$klass174418%_ - _%$method-table174420%_ - _%g174437174440%_ - _%g174438174442%_)) - _%methods174422%_ - _%$methods174426%_)) - (_%slots174447%_ + _%method-calls174994%_ + _%g175714175717%_ + _%g175715175719%_))) + _%methods175709%_ + _%$methods175713%_)) + (_%methods-bind175732%_ + (map (lambda (_%g175724175727%_ _%g175725175729%_) + (_%generate-method-bind174904%_ + _%$klass175705%_ + _%$method-table175707%_ + _%g175724175727%_ + _%g175725175729%_)) + _%methods175709%_ + _%$methods175713%_)) + (_%slots175734%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs173708%_))) - (_%$slots174451%_ - (map (lambda (_%id174449%_) - (let ((__tmp177849 (gensym _%id174449%_))) + (__hash-keys _%slot-refs174995%_))) + (_%$slots175738%_ + (map (lambda (_%id175736%_) + (let ((__tmp179136 (gensym _%id175736%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177849))) - _%slots174447%_)) - (_%_174460%_ + (make-symbol__1 '"__" __tmp179136))) + _%slots175734%_)) + (_%_175747%_ (for-each - (lambda (_%g174452174455%_ _%g174453174457%_) + (lambda (_%g175739175742%_ _%g175740175744%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173708%_ - _%g174452174455%_ - _%g174453174457%_))) - _%slots174447%_ - _%$slots174451%_)) - (_%slots-bind174469%_ - (map (lambda (_%g174461174464%_ _%g174462174466%_) - (_%generate-slot-bind173618%_ - _%$klass174418%_ - _%g174461174464%_ - _%g174462174466%_)) - _%slots174447%_ - _%$slots174451%_)) - (_%specializer-clauses174567%_ - (map (lambda (_%clause174471%_) - (let* ((_%__stx176657176658%_ _%clause174471%_) - (_%g174474174489%_ + _%slot-refs174995%_ + _%g175739175742%_ + _%g175740175744%_))) + _%slots175734%_ + _%$slots175738%_)) + (_%slots-bind175756%_ + (map (lambda (_%g175748175751%_ _%g175749175753%_) + (_%generate-slot-bind174905%_ + _%$klass175705%_ + _%g175748175751%_ + _%g175749175753%_)) + _%slots175734%_ + _%$slots175738%_)) + (_%specializer-clauses175854%_ + (map (lambda (_%clause175758%_) + (let* ((_%__stx177944177945%_ _%clause175758%_) + (_%g175761175776%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176657176658%_))))) - (let ((_%__kont176659176660%_ - (lambda (_%L174517%_ _%L174518%_ _%L174519%_) - (let* ((_%receiver174548%_ - (let ((_%$e174545%_ + _%__stx177944177945%_))))) + (let ((_%__kont177946177947%_ + (lambda (_%L175804%_ _%L175805%_ _%L175806%_) + (let* ((_%receiver175835%_ + (let ((_%$e175832%_ (gxc#apply-extract-receiver (cons (let () (declare @@ -1419,317 +1419,317 @@ (gx#datum->syntax__0 '#f '%#begin)) - _%L174517%_)))) - (if _%$e174545%_ - _%$e174545%_ - _%L174519%_))) - (_%body174554%_ - (map (lambda (_%g174549174551%_) + _%L175804%_)))) + (if _%$e175832%_ + _%$e175832%_ + _%L175806%_))) + (_%body175841%_ + (map (lambda (_%g175836175838%_) (gxc#apply-subst-object-refs__% '#f - _%receiver174548%_ - _%$klass174418%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g174549174551%_)) - _%L174517%_))) - (cons (cons _%L174519%_ _%L174518%_) - _%body174554%_)))) - (_%__kont176661176662%_ - (lambda () _%clause174471%_))) + _%receiver175835%_ + _%$klass175705%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g175836175838%_)) + _%L175804%_))) + (cons (cons _%L175806%_ _%L175805%_) + _%body175841%_)))) + (_%__kont177948177949%_ + (lambda () _%clause175758%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176657176658%_)) - (let ((_%e174479174501%_ + (gx#stx-pair? _%__stx177944177945%_)) + (let ((_%e175766175788%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176657176658%_)))) - (let ((_%tl174481174506%_ + (gx#stx-e _%__stx177944177945%_)))) + (let ((_%tl175768175793%_ (let () (declare (not safe)) - (##cdr _%e174479174501%_))) - (_%hd174480174504%_ + (##cdr _%e175766175788%_))) + (_%hd175767175791%_ (let () (declare (not safe)) - (##car _%e174479174501%_)))) + (##car _%e175766175788%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174480174504%_)) - (let ((_%e174482174509%_ + (gx#stx-pair? _%hd175767175791%_)) + (let ((_%e175769175796%_ (let () (declare (not safe)) (gx#stx-e - _%hd174480174504%_)))) - (let ((_%tl174484174514%_ + _%hd175767175791%_)))) + (let ((_%tl175771175801%_ (let () (declare (not safe)) - (##cdr _%e174482174509%_))) - (_%hd174483174512%_ + (##cdr _%e175769175796%_))) + (_%hd175770175799%_ (let () (declare (not safe)) - (##car _%e174482174509%_)))) - (_%__kont176659176660%_ - _%tl174481174506%_ - _%tl174484174514%_ - _%hd174483174512%_))) - (_%__kont176661176662%_)))) - (_%__kont176661176662%_))))) - (let ((__tmp177850 - (lambda (_%g174559174562%_ _%g174560174564%_) - (cons _%g174559174562%_ _%g174560174564%_)))) + (##car _%e175769175796%_)))) + (_%__kont177946177947%_ + _%tl175768175793%_ + _%tl175771175801%_ + _%hd175770175799%_))) + (_%__kont177948177949%_)))) + (_%__kont177948177949%_))))) + (let ((__tmp179137 + (lambda (_%g175846175849%_ _%g175847175851%_) + (cons _%g175846175849%_ _%g175847175851%_)))) (declare (not safe)) - (__foldr1 __tmp177850 '() _%L174313%_)))) - (_%specializer-impl174569%_ - (let ((__tmp177851 - (cons '%#case-lambda _%specializer-clauses174567%_))) + (__foldr1 __tmp179137 '() _%L175600%_)))) + (_%specializer-impl175856%_ + (let ((__tmp179138 + (cons '%#case-lambda _%specializer-clauses175854%_))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177851 _%stx173615%_))) - (_%specializer-impl174571%_ - (_%generate-specializer-impl173619%_ - _%$klass174418%_ - _%$method-table174420%_ - _%methods-bind174445%_ - _%slots-bind174469%_ - _%specializer-impl174569%_))) + (gxc#xform-wrap-source __tmp179138 _%stx174902%_))) + (_%specializer-impl175858%_ + (_%generate-specializer-impl174906%_ + _%$klass175705%_ + _%$method-table175707%_ + _%methods-bind175732%_ + _%slots-bind175756%_ + _%specializer-impl175856%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp177853 + (let ((__tmp179140 (let () (declare (not safe)) (gx#stx-e - _%L173688%_))) - (__tmp177852 + _%L174975%_))) + (__tmp179139 (let () (declare (not safe)) (gx#stx-e - _%specializer-id174416%_)))) + _%specializer-id175703%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp177853 + __tmp179140 '" => " - __tmp177852)) - (_%generate-specializer-def173620%_ - _%L173688%_ - _%specializer-id174416%_ - _%specializer-impl174571%_)))) - _%clause174271174310%_)))))) - (_%loop174266174294%_ _%target174263174289%_ '())) - (_%g174257174276%_ _%g174258174279%_))))) - (_%g174257174276%_ _%g174258174279%_)))) + __tmp179139)) + (_%generate-specializer-def174907%_ + _%L174975%_ + _%specializer-id175703%_ + _%specializer-impl175858%_)))) + _%clause175558175597%_)))))) + (_%loop175553175581%_ _%target175550175576%_ '())) + (_%g175544175563%_ _%g175545175566%_))))) + (_%g175544175563%_ _%g175545175566%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174257174276%_ - _%g174258174279%_))))) - (_%g174256174574%_ _%L173687%_)) + (_%g175544175563%_ + _%g175545175566%_))))) + (_%g175543175861%_ _%L174974%_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _%L173687%_)) - (let* ((_%g174578174608%_ - (lambda (_%g174579174605%_) + (gxc#opt-lambda-expr? _%L174974%_)) + (let* ((_%g175865175895%_ + (lambda (_%g175866175892%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174579174605%_)))) - (_%g174577175239%_ - (lambda (_%g174579174611%_) + _%g175866175892%_)))) + (_%g175864176526%_ + (lambda (_%g175866175898%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174579174611%_)) - (let ((_%e174583174613%_ + _%g175866175898%_)) + (let ((_%e175870175900%_ (let () (declare (not safe)) (gx#stx-e - _%g174579174611%_)))) - (let ((_%hd174584174616%_ + _%g175866175898%_)))) + (let ((_%hd175871175903%_ (let () (declare (not safe)) - (##car _%e174583174613%_))) - (_%tl174585174618%_ + (##car _%e175870175900%_))) + (_%tl175872175905%_ (let () (declare (not safe)) - (##cdr _%e174583174613%_)))) + (##cdr _%e175870175900%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174585174618%_)) - (let ((_%e174586174621%_ + _%tl175872175905%_)) + (let ((_%e175873175908%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl174585174618%_)))) - (let ((_%hd174587174624%_ + (gx#stx-e _%tl175872175905%_)))) + (let ((_%hd175874175911%_ (let () (declare (not safe)) - (##car _%e174586174621%_))) - (_%tl174588174626%_ + (##car _%e175873175908%_))) + (_%tl175875175913%_ (let () (declare (not safe)) - (##cdr _%e174586174621%_)))) + (##cdr _%e175873175908%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174587174624%_)) - (let ((_%e174589174629%_ + (gx#stx-pair? _%hd175874175911%_)) + (let ((_%e175876175916%_ (let () (declare (not safe)) - (gx#stx-e _%hd174587174624%_)))) - (let ((_%hd174590174632%_ + (gx#stx-e _%hd175874175911%_)))) + (let ((_%hd175877175919%_ (let () (declare (not safe)) - (##car _%e174589174629%_))) - (_%tl174591174634%_ + (##car _%e175876175916%_))) + (_%tl175878175921%_ (let () (declare (not safe)) - (##cdr _%e174589174629%_)))) + (##cdr _%e175876175916%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174590174632%_)) - (let ((_%e174592174637%_ + (gx#stx-pair? _%hd175877175919%_)) + (let ((_%e175879175924%_ (let () (declare (not safe)) - (gx#stx-e _%hd174590174632%_)))) - (let ((_%hd174593174640%_ + (gx#stx-e _%hd175877175919%_)))) + (let ((_%hd175880175927%_ (let () (declare (not safe)) - (##car _%e174592174637%_))) - (_%tl174594174642%_ + (##car _%e175879175924%_))) + (_%tl175881175929%_ (let () (declare (not safe)) - (##cdr _%e174592174637%_)))) + (##cdr _%e175879175924%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174593174640%_)) - (let ((_%e174595174645%_ + (gx#stx-pair? _%hd175880175927%_)) + (let ((_%e175882175932%_ (let () (declare (not safe)) (gx#stx-e - _%hd174593174640%_)))) - (let ((_%hd174596174648%_ + _%hd175880175927%_)))) + (let ((_%hd175883175935%_ (let () (declare (not safe)) - (##car _%e174595174645%_))) - (_%tl174597174650%_ + (##car _%e175882175932%_))) + (_%tl175884175937%_ (let () (declare (not safe)) - (##cdr _%e174595174645%_)))) + (##cdr _%e175882175932%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174597174650%_)) + _%tl175884175937%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174594174642%_)) - (let ((_%e174598174653%_ + _%tl175881175929%_)) + (let ((_%e175885175940%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl174594174642%_)))) - (let ((_%hd174599174656%_ + (gx#stx-e _%tl175881175929%_)))) + (let ((_%hd175886175943%_ (let () (declare (not safe)) - (##car _%e174598174653%_))) - (_%tl174600174658%_ + (##car _%e175885175940%_))) + (_%tl175887175945%_ (let () (declare (not safe)) - (##cdr _%e174598174653%_)))) + (##cdr _%e175885175940%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174600174658%_)) + (gx#stx-null? _%tl175887175945%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174591174634%_)) + (gx#stx-null? _%tl175878175921%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174588174626%_)) - (let ((_%e174601174661%_ + (gx#stx-pair? _%tl175875175913%_)) + (let ((_%e175888175948%_ (let () (declare (not safe)) - (gx#stx-e _%tl174588174626%_)))) - (let ((_%hd174602174664%_ + (gx#stx-e _%tl175875175913%_)))) + (let ((_%hd175889175951%_ (let () (declare (not safe)) - (##car _%e174601174661%_))) - (_%tl174603174666%_ + (##car _%e175888175948%_))) + (_%tl175890175953%_ (let () (declare (not safe)) - (##cdr _%e174601174661%_)))) + (##cdr _%e175888175948%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174603174666%_)) - ((lambda (_%L174669%_ - _%L174670%_ - _%L174671%_) - (let* ((_%g174695174713%_ - (lambda (_%g174696174710%_) + (gx#stx-null? _%tl175890175953%_)) + ((lambda (_%L175956%_ + _%L175957%_ + _%L175958%_) + (let* ((_%g175982176000%_ + (lambda (_%g175983175997%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174696174710%_)))) - (_%g174694174769%_ - (lambda (_%g174696174716%_) + _%g175983175997%_)))) + (_%g175981176056%_ + (lambda (_%g175983176003%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174696174716%_)) - (let ((_%e174700174718%_ + _%g175983176003%_)) + (let ((_%e175987176005%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%g174696174716%_)))) - (let ((_%hd174701174721%_ + (gx#stx-e _%g175983176003%_)))) + (let ((_%hd175988176008%_ (let () (declare (not safe)) - (##car _%e174700174718%_))) - (_%tl174702174723%_ + (##car _%e175987176005%_))) + (_%tl175989176010%_ (let () (declare (not safe)) - (##cdr _%e174700174718%_)))) + (##cdr _%e175987176005%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174702174723%_)) - (let ((_%e174703174726%_ + (gx#stx-pair? _%tl175989176010%_)) + (let ((_%e175990176013%_ (let () (declare (not safe)) - (gx#stx-e _%tl174702174723%_)))) - (let ((_%hd174704174729%_ + (gx#stx-e _%tl175989176010%_)))) + (let ((_%hd175991176016%_ (let () (declare (not safe)) - (##car _%e174703174726%_))) - (_%tl174705174731%_ + (##car _%e175990176013%_))) + (_%tl175992176018%_ (let () (declare (not safe)) - (##cdr _%e174703174726%_)))) + (##cdr _%e175990176013%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174704174729%_)) - (let ((_%e174706174734%_ + (gx#stx-pair? _%hd175991176016%_)) + (let ((_%e175993176021%_ (let () (declare (not safe)) - (gx#stx-e _%hd174704174729%_)))) - (let ((_%hd174707174737%_ + (gx#stx-e _%hd175991176016%_)))) + (let ((_%hd175994176024%_ (let () (declare (not safe)) - (##car _%e174706174734%_))) - (_%tl174708174739%_ + (##car _%e175993176021%_))) + (_%tl175995176026%_ (let () (declare (not safe)) - (##cdr _%e174706174734%_)))) - ((lambda (_%L174742%_ - _%L174743%_ - _%L174744%_) - (let ((_%receiver174763%_ - (let ((_%$e174760%_ + (##cdr _%e175993176021%_)))) + ((lambda (_%L176029%_ + _%L176030%_ + _%L176031%_) + (let ((_%receiver176050%_ + (let ((_%$e176047%_ (gxc#apply-extract-receiver (cons (let () (declare @@ -1737,3099 +1737,3099 @@ (gx#datum->syntax__0 '#f '%#begin)) - _%L174742%_)))) - (if _%$e174760%_ - _%$e174760%_ - _%L174744%_)))) + _%L176029%_)))) + (if _%$e176047%_ + _%$e176047%_ + _%L176031%_)))) (for-each - (lambda (_%g174764174766%_) + (lambda (_%g176051176053%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174763%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g174764174766%_)) - _%L174742%_))) - _%tl174705174731%_ - _%tl174708174739%_ - _%hd174707174737%_))) - (_%g174695174713%_ _%g174696174716%_)))) - (_%g174695174713%_ _%g174696174716%_)))) - (_%g174695174713%_ _%g174696174716%_))))) + _%receiver176050%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g176051176053%_)) + _%L176029%_))) + _%tl175992176018%_ + _%tl175995176026%_ + _%hd175994176024%_))) + (_%g175982176000%_ _%g175983176003%_)))) + (_%g175982176000%_ _%g175983176003%_)))) + (_%g175982176000%_ _%g175983176003%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174694174769%_ _%L174670%_)) - (let* ((_%g174772174791%_ - (lambda (_%g174773174788%_) + (_%g175981176056%_ _%L175957%_)) + (let* ((_%g176059176078%_ + (lambda (_%g176060176075%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174773174788%_)))) - (_%g174771174915%_ - (lambda (_%g174773174794%_) + _%g176060176075%_)))) + (_%g176058176202%_ + (lambda (_%g176060176081%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174773174794%_)) - (let ((_%e174775174796%_ + _%g176060176081%_)) + (let ((_%e176062176083%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%g174773174794%_)))) - (let ((_%hd174776174799%_ + (gx#stx-e _%g176060176081%_)))) + (let ((_%hd176063176086%_ (let () (declare (not safe)) - (##car _%e174775174796%_))) - (_%tl174777174801%_ + (##car _%e176062176083%_))) + (_%tl176064176088%_ (let () (declare (not safe)) - (##cdr _%e174775174796%_)))) + (##cdr _%e176062176083%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174777174801%_)) - (let ((_g177854_ + (gx#stx-pair/null? _%tl176064176088%_)) + (let ((_g179141_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl174777174801%_ + _%tl176064176088%_ '0)))) (begin - (let ((_g177855_ + (let ((_g179142_ (let () (declare (not safe)) - (if (##values? _g177854_) - (##vector-length _g177854_) + (if (##values? _g179141_) + (##values-length _g179141_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g177855_ 2))) + (##fx= _g179142_ 2))) (error "Context expects 2 values" - _g177855_))) - (let ((_%target174778174804%_ + _g179142_))) + (let ((_%target176065176091%_ (let () (declare (not safe)) - (##vector-ref _g177854_ 0))) - (_%tl174780174806%_ + (##values-ref _g179141_ 0))) + (_%tl176067176093%_ (let () (declare (not safe)) - (##vector-ref _g177854_ 1)))) + (##values-ref _g179141_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174780174806%_)) - (letrec ((_%loop174781174809%_ - (lambda (_%hd174779174812%_ - _%clause174785174814%_) + (gx#stx-null? _%tl176067176093%_)) + (letrec ((_%loop176068176096%_ + (lambda (_%hd176066176099%_ + _%clause176072176101%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174779174812%_)) - (let ((_%e174782174817%_ + _%hd176066176099%_)) + (let ((_%e176069176104%_ (let () (declare (not safe)) (gx#stx-e - _%hd174779174812%_)))) - (let ((_%lp-hd174783174820%_ + _%hd176066176099%_)))) + (let ((_%lp-hd176070176107%_ (let () (declare (not safe)) - (##car _%e174782174817%_))) - (_%lp-tl174784174822%_ + (##car _%e176069176104%_))) + (_%lp-tl176071176109%_ (let () (declare (not safe)) - (##cdr _%e174782174817%_)))) - (_%loop174781174809%_ - _%lp-tl174784174822%_ - (cons _%lp-hd174783174820%_ - _%clause174785174814%_)))) - (let ((_%clause174786174825%_ - (reverse _%clause174785174814%_))) - ((lambda (_%L174828%_) + (##cdr _%e176069176104%_)))) + (_%loop176068176096%_ + _%lp-tl176071176109%_ + (cons _%lp-hd176070176107%_ + _%clause176072176101%_)))) + (let ((_%clause176073176112%_ + (reverse _%clause176072176101%_))) + ((lambda (_%L176115%_) (for-each - (lambda (_%clause174841%_) - (let* ((_%g174843174858%_ + (lambda (_%clause176128%_) + (let* ((_%g176130176145%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g174844174855%_) + (lambda (_%g176131176142%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174844174855%_)))) - (_%g174842174905%_ - (lambda (_%g174844174861%_) + _%g176131176142%_)))) + (_%g176129176192%_ + (lambda (_%g176131176148%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g174844174861%_)) - (let ((_%e174848174863%_ + (gx#stx-pair? _%g176131176148%_)) + (let ((_%e176135176150%_ (let () (declare (not safe)) - (gx#stx-e _%g174844174861%_)))) - (let ((_%hd174849174866%_ + (gx#stx-e _%g176131176148%_)))) + (let ((_%hd176136176153%_ (let () (declare (not safe)) - (##car _%e174848174863%_))) - (_%tl174850174868%_ + (##car _%e176135176150%_))) + (_%tl176137176155%_ (let () (declare (not safe)) - (##cdr _%e174848174863%_)))) + (##cdr _%e176135176150%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174849174866%_)) - (let ((_%e174851174871%_ + (gx#stx-pair? _%hd176136176153%_)) + (let ((_%e176138176158%_ (let () (declare (not safe)) (gx#stx-e - _%hd174849174866%_)))) - (let ((_%hd174852174874%_ + _%hd176136176153%_)))) + (let ((_%hd176139176161%_ (let () (declare (not safe)) - (##car _%e174851174871%_))) - (_%tl174853174876%_ + (##car _%e176138176158%_))) + (_%tl176140176163%_ (let () (declare (not safe)) - (##cdr _%e174851174871%_)))) - ((lambda (_%L174879%_ - _%L174880%_ - _%L174881%_) - (let ((_%receiver174899%_ - (let ((_%$e174896%_ + (##cdr _%e176138176158%_)))) + ((lambda (_%L176166%_ + _%L176167%_ + _%L176168%_) + (let ((_%receiver176186%_ + (let ((_%$e176183%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174879%_)))) - (if _%$e174896%_ _%$e174896%_ _%L174881%_)))) + _%L176166%_)))) + (if _%$e176183%_ _%$e176183%_ _%L176168%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g174900174902%_) + (lambda (_%g176187176189%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174899%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g174900174902%_)) - _%L174879%_))) - _%tl174850174868%_ - _%tl174853174876%_ - _%hd174852174874%_))) - (_%g174843174858%_ - _%g174844174861%_)))) - (_%g174843174858%_ _%g174844174861%_))))) - (_%g174842174905%_ _%clause174841%_))) - (let ((__tmp177856 - (lambda (_%g174907174910%_ _%g174908174912%_) - (cons _%g174907174910%_ _%g174908174912%_)))) + _%receiver176186%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g176187176189%_)) + _%L176166%_))) + _%tl176137176155%_ + _%tl176140176163%_ + _%hd176139176161%_))) + (_%g176130176145%_ + _%g176131176148%_)))) + (_%g176130176145%_ _%g176131176148%_))))) + (_%g176129176192%_ _%clause176128%_))) + (let ((__tmp179143 + (lambda (_%g176194176197%_ _%g176195176199%_) + (cons _%g176194176197%_ _%g176195176199%_)))) (declare (not safe)) - (__foldr1 __tmp177856 '() _%L174828%_)))) + (__foldr1 __tmp179143 '() _%L176115%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause174786174825%_)))))) - (_%loop174781174809%_ - _%target174778174804%_ + _%clause176073176112%_)))))) + (_%loop176068176096%_ + _%target176065176091%_ '())) - (_%g174772174791%_ _%g174773174794%_))))) - (_%g174772174791%_ _%g174773174794%_)))) - (_%g174772174791%_ _%g174773174794%_))))) + (_%g176059176078%_ _%g176060176081%_))))) + (_%g176059176078%_ _%g176060176081%_)))) + (_%g176059176078%_ _%g176060176081%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174771174915%_ _%L174669%_)) - (if (_%no-specializer?173711%_) - _%stx173615%_ - (let* ((_%specializer-id174924%_ - (let* ((_%id174918%_ - (let ((__tmp177857 + (_%g176058176202%_ _%L175956%_)) + (if (_%no-specializer?174998%_) + _%stx174902%_ + (let* ((_%specializer-id176211%_ + (let* ((_%id176205%_ + (let ((__tmp179144 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%L173688%_)))) + (gx#stx-e _%L174975%_)))) (declare (not safe)) - (make-symbol__1 __tmp177857 '"::specialize"))) - (_%specializer-id174921%_ - (let ((__tmp177858 + (make-symbol__1 __tmp179144 '"::specialize"))) + (_%specializer-id176208%_ + (let ((__tmp179145 (let () (declare (not safe)) - (gx#stx-source _%stx173615%_)))) + (gx#stx-source _%stx174902%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%id174918%_ __tmp177858)))) + (gx#core-quote-syntax__1 _%id176205%_ __tmp179145)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id174921%_)) - _%specializer-id174921%_)) + (gx#core-bind-runtime!__0 _%specializer-id176208%_)) + _%specializer-id176208%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$klass174926%_ - (let ((__tmp177859 + (_%$klass176213%_ + (let ((__tmp179146 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp177859))) + (make-symbol__0 __tmp179146))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$method-table174928%_ - (let ((__tmp177860 + (_%$method-table176215%_ + (let ((__tmp179147 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp177860))) + (make-symbol__0 __tmp179147))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods174930%_ + (_%methods176217%_ (let () (declare (not safe)) (__hash-keys - _%method-calls173707%_))) - (_%$methods174934%_ - (map (lambda (_%id174932%_) - (let ((__tmp177861 + _%method-calls174994%_))) + (_%$methods176221%_ + (map (lambda (_%id176219%_) + (let ((__tmp179148 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id174932%_))) + (gensym _%id176219%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177861))) - _%methods174930%_)) + (make-symbol__1 '"__" __tmp179148))) + _%methods176217%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_174943%_ + (_%_176230%_ (for-each - (lambda (_%g174935174938%_ - _%g174936174940%_) + (lambda (_%g176222176225%_ + _%g176223176227%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173707%_ - _%g174935174938%_ - _%g174936174940%_))) - _%methods174930%_ - _%$methods174934%_)) - (_%methods-bind174953%_ - (map (lambda (_%g174945174948%_ + _%method-calls174994%_ + _%g176222176225%_ + _%g176223176227%_))) + _%methods176217%_ + _%$methods176221%_)) + (_%methods-bind176240%_ + (map (lambda (_%g176232176235%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g174946174950%_) - (_%generate-method-bind173617%_ - _%$klass174926%_ - _%$method-table174928%_ - _%g174945174948%_ - _%g174946174950%_)) - _%methods174930%_ - _%$methods174934%_)) + _%g176233176237%_) + (_%generate-method-bind174904%_ + _%$klass176213%_ + _%$method-table176215%_ + _%g176232176235%_ + _%g176233176237%_)) + _%methods176217%_ + _%$methods176221%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots174955%_ + (_%slots176242%_ (let () (declare (not safe)) (__hash-keys - _%slot-refs173708%_))) - (_%$slots174959%_ - (map (lambda (_%id174957%_) - (let ((__tmp177862 + _%slot-refs174995%_))) + (_%$slots176246%_ + (map (lambda (_%id176244%_) + (let ((__tmp179149 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id174957%_))) + (gensym _%id176244%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177862))) - _%slots174955%_)) + (make-symbol__1 '"__" __tmp179149))) + _%slots176242%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_174968%_ + (_%_176255%_ (for-each - (lambda (_%g174960174963%_ - _%g174961174965%_) + (lambda (_%g176247176250%_ + _%g176248176252%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173708%_ - _%g174960174963%_ - _%g174961174965%_))) - _%slots174955%_ - _%$slots174959%_)) - (_%slots-bind174977%_ - (map (lambda (_%g174969174972%_ + _%slot-refs174995%_ + _%g176247176250%_ + _%g176248176252%_))) + _%slots176242%_ + _%$slots176246%_)) + (_%slots-bind176264%_ + (map (lambda (_%g176256176259%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g174970174974%_) - (_%generate-slot-bind173618%_ - _%$klass174926%_ - _%g174969174972%_ - _%g174970174974%_)) - _%slots174955%_ - _%$slots174959%_)) + _%g176257176261%_) + (_%generate-slot-bind174905%_ + _%$klass176213%_ + _%g176256176259%_ + _%g176257176261%_)) + _%slots176242%_ + _%$slots176246%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-lambda-expr175069%_ - (let* ((_%g174979174997%_ - (lambda (_%g174980174994%_) + (_%specializer-lambda-expr176356%_ + (let* ((_%g176266176284%_ + (lambda (_%g176267176281%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174980174994%_)))) - (_%g174978175066%_ - (lambda (_%g174980175000%_) + _%g176267176281%_)))) + (_%g176265176353%_ + (lambda (_%g176267176287%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g174980175000%_)) - (let ((_%e174984175002%_ + (gx#stx-pair? _%g176267176287%_)) + (let ((_%e176271176289%_ (let () (declare (not safe)) - (gx#stx-e _%g174980175000%_)))) - (let ((_%hd174985175005%_ + (gx#stx-e _%g176267176287%_)))) + (let ((_%hd176272176292%_ (let () (declare (not safe)) - (##car _%e174984175002%_))) - (_%tl174986175007%_ + (##car _%e176271176289%_))) + (_%tl176273176294%_ (let () (declare (not safe)) - (##cdr _%e174984175002%_)))) + (##cdr _%e176271176289%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174986175007%_)) - (let ((_%e174987175010%_ + (gx#stx-pair? _%tl176273176294%_)) + (let ((_%e176274176297%_ (let () (declare (not safe)) - (gx#stx-e _%tl174986175007%_)))) - (let ((_%hd174988175013%_ + (gx#stx-e _%tl176273176294%_)))) + (let ((_%hd176275176300%_ (let () (declare (not safe)) - (##car _%e174987175010%_))) - (_%tl174989175015%_ + (##car _%e176274176297%_))) + (_%tl176276176302%_ (let () (declare (not safe)) - (##cdr _%e174987175010%_)))) + (##cdr _%e176274176297%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174988175013%_)) - (let ((_%e174990175018%_ + _%hd176275176300%_)) + (let ((_%e176277176305%_ (let () (declare (not safe)) (gx#stx-e - _%hd174988175013%_)))) - (let ((_%hd174991175021%_ + _%hd176275176300%_)))) + (let ((_%hd176278176308%_ (let () (declare (not safe)) - (##car _%e174990175018%_))) - (_%tl174992175023%_ + (##car _%e176277176305%_))) + (_%tl176279176310%_ (let () (declare (not safe)) - (##cdr _%e174990175018%_)))) - ((lambda (_%L175026%_ - _%L175027%_ - _%L175028%_) - (let* ((_%receiver175057%_ - (let ((_%$e175054%_ + (##cdr _%e176277176305%_)))) + ((lambda (_%L176313%_ + _%L176314%_ + _%L176315%_) + (let* ((_%receiver176344%_ + (let ((_%$e176341%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175026%_)))) - (if _%$e175054%_ _%$e175054%_ _%L175028%_))) - (_%body175063%_ - (map (lambda (_%g175058175060%_) + _%L176313%_)))) + (if _%$e176341%_ _%$e176341%_ _%L176315%_))) + (_%body176350%_ + (map (lambda (_%g176345176347%_) (gxc#apply-subst-object-refs__% '#f - _%receiver175057%_ - _%$klass174926%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g175058175060%_)) - _%L175026%_)) - (__tmp177863 + _%receiver176344%_ + _%$klass176213%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g176345176347%_)) + _%L176313%_)) + (__tmp179150 (cons '%#lambda - (cons (cons _%L175028%_ _%L175027%_) - _%body175063%_)))) + (cons (cons _%L176315%_ _%L176314%_) + _%body176350%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177863 - _%L174670%_))) - _%tl174989175015%_ - _%tl174992175023%_ - _%hd174991175021%_))) - (_%g174979174997%_ - _%g174980175000%_)))) - (_%g174979174997%_ _%g174980175000%_)))) - (_%g174979174997%_ _%g174980175000%_))))) - (_%g174978175066%_ _%L174670%_))) + __tmp179150 + _%L175957%_))) + _%tl176276176302%_ + _%tl176279176310%_ + _%hd176278176308%_))) + (_%g176266176284%_ + _%g176267176287%_)))) + (_%g176266176284%_ _%g176267176287%_)))) + (_%g176266176284%_ _%g176267176287%_))))) + (_%g176265176353%_ _%L175957%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-case-lambda-expr175232%_ - (let* ((_%g175071175090%_ - (lambda (_%g175072175087%_) + (_%specializer-case-lambda-expr176519%_ + (let* ((_%g176358176377%_ + (lambda (_%g176359176374%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175072175087%_)))) - (_%g175070175229%_ - (lambda (_%g175072175093%_) + _%g176359176374%_)))) + (_%g176357176516%_ + (lambda (_%g176359176380%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175072175093%_)) - (let ((_%e175074175095%_ + (gx#stx-pair? _%g176359176380%_)) + (let ((_%e176361176382%_ (let () (declare (not safe)) - (gx#stx-e _%g175072175093%_)))) - (let ((_%hd175075175098%_ + (gx#stx-e _%g176359176380%_)))) + (let ((_%hd176362176385%_ (let () (declare (not safe)) - (##car _%e175074175095%_))) - (_%tl175076175100%_ + (##car _%e176361176382%_))) + (_%tl176363176387%_ (let () (declare (not safe)) - (##cdr _%e175074175095%_)))) + (##cdr _%e176361176382%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl175076175100%_)) - (let ((_g177864_ + (gx#stx-pair/null? _%tl176363176387%_)) + (let ((_g179151_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl175076175100%_ + _%tl176363176387%_ '0)))) (begin - (let ((_g177865_ + (let ((_g179152_ (let () (declare (not safe)) - (if (##values? _g177864_) - (##vector-length - _g177864_) + (if (##values? _g179151_) + (##values-length + _g179151_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g177865_ 2))) + (##fx= _g179152_ 2))) (error "Context expects 2 values" - _g177865_))) - (let ((_%target175077175103%_ + _g179152_))) + (let ((_%target176364176390%_ (let () (declare (not safe)) - (##vector-ref _g177864_ 0))) - (_%tl175079175105%_ + (##values-ref _g179151_ 0))) + (_%tl176366176392%_ (let () (declare (not safe)) - (##vector-ref _g177864_ 1)))) + (##values-ref _g179151_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175079175105%_)) - (letrec ((_%loop175080175108%_ - (lambda (_%hd175078175111%_ + _%tl176366176392%_)) + (letrec ((_%loop176367176395%_ + (lambda (_%hd176365176398%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause175084175113%_) + _%clause176371176400%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175078175111%_)) - (let ((_%e175081175116%_ + (gx#stx-pair? _%hd176365176398%_)) + (let ((_%e176368176403%_ (let () (declare (not safe)) - (gx#stx-e _%hd175078175111%_)))) - (let ((_%lp-hd175082175119%_ + (gx#stx-e _%hd176365176398%_)))) + (let ((_%lp-hd176369176406%_ (let () (declare (not safe)) - (##car _%e175081175116%_))) - (_%lp-tl175083175121%_ + (##car _%e176368176403%_))) + (_%lp-tl176370176408%_ (let () (declare (not safe)) - (##cdr _%e175081175116%_)))) - (_%loop175080175108%_ - _%lp-tl175083175121%_ - (cons _%lp-hd175082175119%_ - _%clause175084175113%_)))) - (let ((_%clause175085175124%_ - (reverse _%clause175084175113%_))) - ((lambda (_%L175127%_) - (let* ((_%clauses175227%_ - (map (lambda (_%clause175141%_) - (let* ((_%__stx176677176678%_ - _%clause175141%_) - (_%g175144175159%_ + (##cdr _%e176368176403%_)))) + (_%loop176367176395%_ + _%lp-tl176370176408%_ + (cons _%lp-hd176369176406%_ + _%clause176371176400%_)))) + (let ((_%clause176372176411%_ + (reverse _%clause176371176400%_))) + ((lambda (_%L176414%_) + (let* ((_%clauses176514%_ + (map (lambda (_%clause176428%_) + (let* ((_%__stx177964177965%_ + _%clause176428%_) + (_%g176431176446%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176677176678%_))))) - (let ((_%__kont176679176680%_ - (lambda (_%L175187%_ - _%L175188%_ - _%L175189%_) - (let* ((_%receiver175208%_ - (let ((_%$e175205%_ + _%__stx177964177965%_))))) + (let ((_%__kont177966177967%_ + (lambda (_%L176474%_ + _%L176475%_ + _%L176476%_) + (let* ((_%receiver176495%_ + (let ((_%$e176492%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175187%_)))) - (if _%$e175205%_ _%$e175205%_ _%L175189%_))) - (_%body175214%_ - (map (lambda (_%g175209175211%_) + _%L176474%_)))) + (if _%$e176492%_ _%$e176492%_ _%L176476%_))) + (_%body176501%_ + (map (lambda (_%g176496176498%_) (gxc#apply-subst-object-refs__% '#f - _%receiver175208%_ - _%$klass174926%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g175209175211%_)) - _%L175187%_))) - (cons (cons _%L175189%_ _%L175188%_) _%body175214%_)))) + _%receiver176495%_ + _%$klass176213%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g176496176498%_)) + _%L176474%_))) + (cons (cons _%L176476%_ _%L176475%_) _%body176501%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176681176682%_ + (_%__kont177968177969%_ (lambda () - _%clause175141%_))) + _%clause176428%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx176677176678%_)) - (let ((_%e175149175171%_ + _%__stx177964177965%_)) + (let ((_%e176436176458%_ (let () (declare (not safe)) (gx#stx-e - _%__stx176677176678%_)))) - (let ((_%tl175151175176%_ + _%__stx177964177965%_)))) + (let ((_%tl176438176463%_ (let () (declare (not safe)) - (##cdr _%e175149175171%_))) - (_%hd175150175174%_ + (##cdr _%e176436176458%_))) + (_%hd176437176461%_ (let () (declare (not safe)) - (##car _%e175149175171%_)))) + (##car _%e176436176458%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175150175174%_)) - (let ((_%e175152175179%_ + _%hd176437176461%_)) + (let ((_%e176439176466%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd175150175174%_)))) - (let ((_%tl175154175184%_ + (gx#stx-e _%hd176437176461%_)))) + (let ((_%tl176441176471%_ (let () (declare (not safe)) - (##cdr _%e175152175179%_))) - (_%hd175153175182%_ + (##cdr _%e176439176466%_))) + (_%hd176440176469%_ (let () (declare (not safe)) - (##car _%e175152175179%_)))) - (_%__kont176679176680%_ - _%tl175151175176%_ - _%tl175154175184%_ - _%hd175153175182%_))) - (_%__kont176681176682%_)))) + (##car _%e176439176466%_)))) + (_%__kont177966177967%_ + _%tl176438176463%_ + _%tl176441176471%_ + _%hd176440176469%_))) + (_%__kont177968177969%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176681176682%_))))) - (let ((__tmp177866 - (lambda (_%g175219175222%_ - _%g175220175224%_) - (cons _%g175219175222%_ - _%g175220175224%_)))) + (_%__kont177968177969%_))))) + (let ((__tmp179153 + (lambda (_%g176506176509%_ + _%g176507176511%_) + (cons _%g176506176509%_ + _%g176507176511%_)))) (declare (not safe)) (__foldr1 - __tmp177866 + __tmp179153 '() - _%L175127%_)))) - (__tmp177867 - (cons '%#case-lambda _%clauses175227%_))) + _%L176414%_)))) + (__tmp179154 + (cons '%#case-lambda _%clauses176514%_))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177867 _%L174669%_))) - _%clause175085175124%_)))))) + (gxc#xform-wrap-source __tmp179154 _%L175956%_))) + _%clause176372176411%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop175080175108%_ - _%target175077175103%_ + (_%loop176367176395%_ + _%target176364176390%_ '())) - (_%g175071175090%_ - _%g175072175093%_))))) - (_%g175071175090%_ _%g175072175093%_)))) - (_%g175071175090%_ _%g175072175093%_))))) - (_%g175070175229%_ _%L174669%_))) + (_%g176358176377%_ + _%g176359176380%_))))) + (_%g176358176377%_ _%g176359176380%_)))) + (_%g176358176377%_ _%g176359176380%_))))) + (_%g176357176516%_ _%L175956%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl175234%_ - (let ((__tmp177868 + (_%specializer-impl176521%_ + (let ((__tmp179155 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L174671%_ '()) - (cons _%specializer-lambda-expr175069%_ + (cons (cons (cons (cons _%L175958%_ '()) + (cons _%specializer-lambda-expr176356%_ '())) '()) - (cons _%specializer-case-lambda-expr175232%_ + (cons _%specializer-case-lambda-expr176519%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177868 _%stx173615%_))) + (gxc#xform-wrap-source __tmp179155 _%stx174902%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl175236%_ - (_%generate-specializer-impl173619%_ - _%$klass174926%_ - _%$method-table174928%_ - _%methods-bind174953%_ - _%slots-bind174977%_ - _%specializer-impl175234%_))) - (let ((__tmp177870 + (_%specializer-impl176523%_ + (_%generate-specializer-impl174906%_ + _%$klass176213%_ + _%$method-table176215%_ + _%methods-bind176240%_ + _%slots-bind176264%_ + _%specializer-impl176521%_))) + (let ((__tmp179157 (let () (declare (not safe)) (gx#stx-e - _%L173688%_))) - (__tmp177869 + _%L174975%_))) + (__tmp179156 (let () (declare (not safe)) (gx#stx-e - _%specializer-id174924%_)))) + _%specializer-id176211%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp177870 + __tmp179157 '" => " - __tmp177869)) - (_%generate-specializer-def173620%_ - _%L173688%_ - _%specializer-id174924%_ - _%specializer-impl175236%_)))) - _%hd174602174664%_ - _%hd174599174656%_ - _%hd174596174648%_) - (_%g174578174608%_ _%g174579174611%_)))) - (_%g174578174608%_ _%g174579174611%_)) - (_%g174578174608%_ _%g174579174611%_)) - (_%g174578174608%_ _%g174579174611%_)))) - (_%g174578174608%_ _%g174579174611%_)) + __tmp179156)) + (_%generate-specializer-def174907%_ + _%L174975%_ + _%specializer-id176211%_ + _%specializer-impl176523%_)))) + _%hd175889175951%_ + _%hd175886175943%_ + _%hd175883175935%_) + (_%g175865175895%_ _%g175866175898%_)))) + (_%g175865175895%_ _%g175866175898%_)) + (_%g175865175895%_ _%g175866175898%_)) + (_%g175865175895%_ _%g175866175898%_)))) + (_%g175865175895%_ _%g175866175898%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174578174608%_ - _%g174579174611%_)))) - (_%g174578174608%_ - _%g174579174611%_)))) - (_%g174578174608%_ _%g174579174611%_)))) - (_%g174578174608%_ _%g174579174611%_)))) - (_%g174578174608%_ _%g174579174611%_)))) + (_%g175865175895%_ + _%g175866175898%_)))) + (_%g175865175895%_ + _%g175866175898%_)))) + (_%g175865175895%_ _%g175866175898%_)))) + (_%g175865175895%_ _%g175866175898%_)))) + (_%g175865175895%_ _%g175866175898%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174578174608%_ - _%g174579174611%_))))) - (_%g174577175239%_ _%L173687%_)) + (_%g175865175895%_ + _%g175866175898%_))))) + (_%g175864176526%_ _%L174974%_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _%L173687%_)) - (let* ((_%g175243175296%_ - (lambda (_%g175244175293%_) + (gxc#kw-lambda-expr? _%L174974%_)) + (let* ((_%g176530176583%_ + (lambda (_%g176531176580%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175244175293%_)))) - (_%g175242176467%_ - (lambda (_%g175244175299%_) + _%g176531176580%_)))) + (_%g176529177754%_ + (lambda (_%g176531176586%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g175244175299%_)) - (let ((_%e175250175301%_ + _%g176531176586%_)) + (let ((_%e176537176588%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%g175244175299%_)))) - (let ((_%hd175251175304%_ + (gx#stx-e _%g176531176586%_)))) + (let ((_%hd176538176591%_ (let () (declare (not safe)) - (##car _%e175250175301%_))) - (_%tl175252175306%_ + (##car _%e176537176588%_))) + (_%tl176539176593%_ (let () (declare (not safe)) - (##cdr _%e175250175301%_)))) + (##cdr _%e176537176588%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175251175304%_)) + (gx#identifier? _%hd176538176591%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd175251175304%_)) + (gx#stx-eq? '%#let-values _%hd176538176591%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175252175306%_)) - (let ((_%e175253175309%_ + (gx#stx-pair? _%tl176539176593%_)) + (let ((_%e176540176596%_ (let () (declare (not safe)) - (gx#stx-e _%tl175252175306%_)))) - (let ((_%hd175254175312%_ + (gx#stx-e _%tl176539176593%_)))) + (let ((_%hd176541176599%_ (let () (declare (not safe)) - (##car _%e175253175309%_))) - (_%tl175255175314%_ + (##car _%e176540176596%_))) + (_%tl176542176601%_ (let () (declare (not safe)) - (##cdr _%e175253175309%_)))) + (##cdr _%e176540176596%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175254175312%_)) - (let ((_%e175256175317%_ + (gx#stx-pair? _%hd176541176599%_)) + (let ((_%e176543176604%_ (let () (declare (not safe)) (gx#stx-e - _%hd175254175312%_)))) - (let ((_%hd175257175320%_ + _%hd176541176599%_)))) + (let ((_%hd176544176607%_ (let () (declare (not safe)) - (##car _%e175256175317%_))) - (_%tl175258175322%_ + (##car _%e176543176604%_))) + (_%tl176545176609%_ (let () (declare (not safe)) - (##cdr _%e175256175317%_)))) + (##cdr _%e176543176604%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175257175320%_)) - (let ((_%e175259175325%_ + _%hd176544176607%_)) + (let ((_%e176546176612%_ (let () (declare (not safe)) (gx#stx-e - _%hd175257175320%_)))) - (let ((_%hd175260175328%_ + _%hd176544176607%_)))) + (let ((_%hd176547176615%_ (let () (declare (not safe)) - (##car _%e175259175325%_))) - (_%tl175261175330%_ + (##car _%e176546176612%_))) + (_%tl176548176617%_ (let () (declare (not safe)) - (##cdr _%e175259175325%_)))) + (##cdr _%e176546176612%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175260175328%_)) - (let ((_%e175262175333%_ + _%hd176547176615%_)) + (let ((_%e176549176620%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd175260175328%_)))) - (let ((_%hd175263175336%_ + (gx#stx-e _%hd176547176615%_)))) + (let ((_%hd176550176623%_ (let () (declare (not safe)) - (##car _%e175262175333%_))) - (_%tl175264175338%_ + (##car _%e176549176620%_))) + (_%tl176551176625%_ (let () (declare (not safe)) - (##cdr _%e175262175333%_)))) + (##cdr _%e176549176620%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175264175338%_)) + (gx#stx-null? _%tl176551176625%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175261175330%_)) - (let ((_%e175265175341%_ + (gx#stx-pair? _%tl176548176617%_)) + (let ((_%e176552176628%_ (let () (declare (not safe)) - (gx#stx-e _%tl175261175330%_)))) - (let ((_%hd175266175344%_ + (gx#stx-e _%tl176548176617%_)))) + (let ((_%hd176553176631%_ (let () (declare (not safe)) - (##car _%e175265175341%_))) - (_%tl175267175346%_ + (##car _%e176552176628%_))) + (_%tl176554176633%_ (let () (declare (not safe)) - (##cdr _%e175265175341%_)))) + (##cdr _%e176552176628%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175266175344%_)) - (let ((_%e175268175349%_ + (gx#stx-pair? _%hd176553176631%_)) + (let ((_%e176555176636%_ (let () (declare (not safe)) - (gx#stx-e _%hd175266175344%_)))) - (let ((_%hd175269175352%_ + (gx#stx-e _%hd176553176631%_)))) + (let ((_%hd176556176639%_ (let () (declare (not safe)) - (##car _%e175268175349%_))) - (_%tl175270175354%_ + (##car _%e176555176636%_))) + (_%tl176557176641%_ (let () (declare (not safe)) - (##cdr _%e175268175349%_)))) + (##cdr _%e176555176636%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175269175352%_)) + _%hd176556176639%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd175269175352%_)) + _%hd176556176639%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175270175354%_)) - (let ((_%e175271175357%_ + _%tl176557176641%_)) + (let ((_%e176558176644%_ (let () (declare (not safe)) (gx#stx-e - _%tl175270175354%_)))) - (let ((_%hd175272175360%_ + _%tl176557176641%_)))) + (let ((_%hd176559176647%_ (let () (declare (not safe)) - (##car _%e175271175357%_))) - (_%tl175273175362%_ + (##car _%e176558176644%_))) + (_%tl176560176649%_ (let () (declare (not safe)) - (##cdr _%e175271175357%_)))) + (##cdr _%e176558176644%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175272175360%_)) - (let ((_%e175274175365%_ + _%hd176559176647%_)) + (let ((_%e176561176652%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd175272175360%_)))) - (let ((_%hd175275175368%_ + (gx#stx-e _%hd176559176647%_)))) + (let ((_%hd176562176655%_ (let () (declare (not safe)) - (##car _%e175274175365%_))) - (_%tl175276175370%_ + (##car _%e176561176652%_))) + (_%tl176563176657%_ (let () (declare (not safe)) - (##cdr _%e175274175365%_)))) + (##cdr _%e176561176652%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175275175368%_)) - (let ((_%e175277175373%_ + (gx#stx-pair? _%hd176562176655%_)) + (let ((_%e176564176660%_ (let () (declare (not safe)) - (gx#stx-e _%hd175275175368%_)))) - (let ((_%hd175278175376%_ + (gx#stx-e _%hd176562176655%_)))) + (let ((_%hd176565176663%_ (let () (declare (not safe)) - (##car _%e175277175373%_))) - (_%tl175279175378%_ + (##car _%e176564176660%_))) + (_%tl176566176665%_ (let () (declare (not safe)) - (##cdr _%e175277175373%_)))) + (##cdr _%e176564176660%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175278175376%_)) - (let ((_%e175280175381%_ + (gx#stx-pair? _%hd176565176663%_)) + (let ((_%e176567176668%_ (let () (declare (not safe)) - (gx#stx-e _%hd175278175376%_)))) - (let ((_%hd175281175384%_ + (gx#stx-e _%hd176565176663%_)))) + (let ((_%hd176568176671%_ (let () (declare (not safe)) - (##car _%e175280175381%_))) - (_%tl175282175386%_ + (##car _%e176567176668%_))) + (_%tl176569176673%_ (let () (declare (not safe)) - (##cdr _%e175280175381%_)))) + (##cdr _%e176567176668%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175282175386%_)) + (gx#stx-null? _%tl176569176673%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175279175378%_)) - (let ((_%e175283175389%_ + _%tl176566176665%_)) + (let ((_%e176570176676%_ (let () (declare (not safe)) (gx#stx-e - _%tl175279175378%_)))) - (let ((_%hd175284175392%_ + _%tl176566176665%_)))) + (let ((_%hd176571176679%_ (let () (declare (not safe)) - (##car _%e175283175389%_))) - (_%tl175285175394%_ + (##car _%e176570176676%_))) + (_%tl176572176681%_ (let () (declare (not safe)) - (##cdr _%e175283175389%_)))) + (##cdr _%e176570176676%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175285175394%_)) + _%tl176572176681%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175276175370%_)) + _%tl176563176657%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl175273175362%_)) - (let ((_%e175286175397%_ + (gx#stx-pair? _%tl176560176649%_)) + (let ((_%e176573176684%_ (let () (declare (not safe)) - (gx#stx-e _%tl175273175362%_)))) - (let ((_%hd175287175400%_ + (gx#stx-e _%tl176560176649%_)))) + (let ((_%hd176574176687%_ (let () (declare (not safe)) - (##car _%e175286175397%_))) - (_%tl175288175402%_ + (##car _%e176573176684%_))) + (_%tl176575176689%_ (let () (declare (not safe)) - (##cdr _%e175286175397%_)))) + (##cdr _%e176573176684%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175288175402%_)) + (gx#stx-null? _%tl176575176689%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175267175346%_)) + (gx#stx-null? _%tl176554176633%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175258175322%_)) + (gx#stx-null? _%tl176545176609%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175255175314%_)) - (let ((_%e175289175405%_ + (gx#stx-pair? _%tl176542176601%_)) + (let ((_%e176576176692%_ (let () (declare (not safe)) (gx#stx-e - _%tl175255175314%_)))) - (let ((_%hd175290175408%_ + _%tl176542176601%_)))) + (let ((_%hd176577176695%_ (let () (declare (not safe)) - (##car _%e175289175405%_))) - (_%tl175291175410%_ + (##car _%e176576176692%_))) + (_%tl176578176697%_ (let () (declare (not safe)) - (##cdr _%e175289175405%_)))) + (##cdr _%e176576176692%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175291175410%_)) - ((lambda (_%L175413%_ - _%L175414%_ - _%L175415%_ - _%L175416%_ - _%L175417%_) - (let* ((_%g175457175519%_ - (lambda (_%g175458175516%_) + _%tl176578176697%_)) + ((lambda (_%L176700%_ + _%L176701%_ + _%L176702%_ + _%L176703%_ + _%L176704%_) + (let* ((_%g176744176806%_ + (lambda (_%g176745176803%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175458175516%_)))) - (_%g175456176464%_ - (lambda (_%g175458175522%_) + _%g176745176803%_)))) + (_%g176743177751%_ + (lambda (_%g176745176809%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175458175522%_)) - (let ((_%e175464175524%_ + (gx#stx-pair? _%g176745176809%_)) + (let ((_%e176751176811%_ (let () (declare (not safe)) - (gx#stx-e _%g175458175522%_)))) - (let ((_%hd175465175527%_ + (gx#stx-e _%g176745176809%_)))) + (let ((_%hd176752176814%_ (let () (declare (not safe)) - (##car _%e175464175524%_))) - (_%tl175466175529%_ + (##car _%e176751176811%_))) + (_%tl176753176816%_ (let () (declare (not safe)) - (##cdr _%e175464175524%_)))) + (##cdr _%e176751176811%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175465175527%_)) + (gx#identifier? _%hd176752176814%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd175465175527%_)) + _%hd176752176814%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175466175529%_)) - (let ((_%e175467175532%_ + _%tl176753176816%_)) + (let ((_%e176754176819%_ (let () (declare (not safe)) (gx#stx-e - _%tl175466175529%_)))) - (let ((_%hd175468175535%_ + _%tl176753176816%_)))) + (let ((_%hd176755176822%_ (let () (declare (not safe)) - (##car _%e175467175532%_))) - (_%tl175469175537%_ + (##car _%e176754176819%_))) + (_%tl176756176824%_ (let () (declare (not safe)) - (##cdr _%e175467175532%_)))) + (##cdr _%e176754176819%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175469175537%_)) - (let ((_%e175470175540%_ + _%tl176756176824%_)) + (let ((_%e176757176827%_ (let () (declare (not safe)) (gx#stx-e - _%tl175469175537%_)))) - (let ((_%hd175471175543%_ + _%tl176756176824%_)))) + (let ((_%hd176758176830%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e175470175540%_))) - (_%tl175472175545%_ - (let () (declare (not safe)) (##cdr _%e175470175540%_)))) + (##car _%e176757176827%_))) + (_%tl176759176832%_ + (let () (declare (not safe)) (##cdr _%e176757176827%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175471175543%_)) - (let ((_%e175473175548%_ + (gx#stx-pair? _%hd176758176830%_)) + (let ((_%e176760176835%_ (let () (declare (not safe)) - (gx#stx-e _%hd175471175543%_)))) - (let ((_%hd175474175551%_ + (gx#stx-e _%hd176758176830%_)))) + (let ((_%hd176761176838%_ (let () (declare (not safe)) - (##car _%e175473175548%_))) - (_%tl175475175553%_ + (##car _%e176760176835%_))) + (_%tl176762176840%_ (let () (declare (not safe)) - (##cdr _%e175473175548%_)))) + (##cdr _%e176760176835%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175474175551%_)) + (gx#identifier? _%hd176761176838%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd175474175551%_)) + (gx#stx-eq? '%#call _%hd176761176838%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175475175553%_)) - (let ((_%e175476175556%_ + (gx#stx-pair? _%tl176762176840%_)) + (let ((_%e176763176843%_ (let () (declare (not safe)) - (gx#stx-e _%tl175475175553%_)))) - (let ((_%hd175477175559%_ + (gx#stx-e _%tl176762176840%_)))) + (let ((_%hd176764176846%_ (let () (declare (not safe)) - (##car _%e175476175556%_))) - (_%tl175478175561%_ + (##car _%e176763176843%_))) + (_%tl176765176848%_ (let () (declare (not safe)) - (##cdr _%e175476175556%_)))) + (##cdr _%e176763176843%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175477175559%_)) - (let ((_%e175479175564%_ + _%hd176764176846%_)) + (let ((_%e176766176851%_ (let () (declare (not safe)) (gx#stx-e - _%hd175477175559%_)))) - (let ((_%hd175480175567%_ + _%hd176764176846%_)))) + (let ((_%hd176767176854%_ (let () (declare (not safe)) - (##car _%e175479175564%_))) - (_%tl175481175569%_ + (##car _%e176766176851%_))) + (_%tl176768176856%_ (let () (declare (not safe)) - (##cdr _%e175479175564%_)))) + (##cdr _%e176766176851%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175480175567%_)) + _%hd176767176854%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd175480175567%_)) + _%hd176767176854%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175481175569%_)) - (let ((_%e175482175572%_ + _%tl176768176856%_)) + (let ((_%e176769176859%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl175481175569%_)))) - (let ((_%hd175483175575%_ + (gx#stx-e _%tl176768176856%_)))) + (let ((_%hd176770176862%_ (let () (declare (not safe)) - (##car _%e175482175572%_))) - (_%tl175484175577%_ + (##car _%e176769176859%_))) + (_%tl176771176864%_ (let () (declare (not safe)) - (##cdr _%e175482175572%_)))) + (##cdr _%e176769176859%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175484175577%_)) + (gx#stx-null? _%tl176771176864%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175478175561%_)) - (let ((_%e175485175580%_ + (gx#stx-pair? _%tl176765176848%_)) + (let ((_%e176772176867%_ (let () (declare (not safe)) - (gx#stx-e _%tl175478175561%_)))) - (let ((_%hd175486175583%_ + (gx#stx-e _%tl176765176848%_)))) + (let ((_%hd176773176870%_ (let () (declare (not safe)) - (##car _%e175485175580%_))) - (_%tl175487175585%_ + (##car _%e176772176867%_))) + (_%tl176774176872%_ (let () (declare (not safe)) - (##cdr _%e175485175580%_)))) + (##cdr _%e176772176867%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175486175583%_)) - (let ((_%e175488175588%_ + (gx#stx-pair? _%hd176773176870%_)) + (let ((_%e176775176875%_ (let () (declare (not safe)) (gx#stx-e - _%hd175486175583%_)))) - (let ((_%hd175489175591%_ + _%hd176773176870%_)))) + (let ((_%hd176776176878%_ (let () (declare (not safe)) - (##car _%e175488175588%_))) - (_%tl175490175593%_ + (##car _%e176775176875%_))) + (_%tl176777176880%_ (let () (declare (not safe)) - (##cdr _%e175488175588%_)))) + (##cdr _%e176775176875%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175489175591%_)) + _%hd176776176878%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd175489175591%_)) + _%hd176776176878%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175490175593%_)) - (let ((_%e175491175596%_ + _%tl176777176880%_)) + (let ((_%e176778176883%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl175490175593%_)))) - (let ((_%hd175492175599%_ + (gx#stx-e _%tl176777176880%_)))) + (let ((_%hd176779176886%_ (let () (declare (not safe)) - (##car _%e175491175596%_))) - (_%tl175493175601%_ + (##car _%e176778176883%_))) + (_%tl176780176888%_ (let () (declare (not safe)) - (##cdr _%e175491175596%_)))) + (##cdr _%e176778176883%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175493175601%_)) + (gx#stx-null? _%tl176780176888%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175487175585%_)) - (let ((_%e175494175604%_ + (gx#stx-pair? _%tl176774176872%_)) + (let ((_%e176781176891%_ (let () (declare (not safe)) - (gx#stx-e _%tl175487175585%_)))) - (let ((_%hd175495175607%_ + (gx#stx-e _%tl176774176872%_)))) + (let ((_%hd176782176894%_ (let () (declare (not safe)) - (##car _%e175494175604%_))) - (_%tl175496175609%_ + (##car _%e176781176891%_))) + (_%tl176783176896%_ (let () (declare (not safe)) - (##cdr _%e175494175604%_)))) + (##cdr _%e176781176891%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175495175607%_)) - (let ((_%e175497175612%_ + (gx#stx-pair? _%hd176782176894%_)) + (let ((_%e176784176899%_ (let () (declare (not safe)) - (gx#stx-e _%hd175495175607%_)))) - (let ((_%hd175498175615%_ + (gx#stx-e _%hd176782176894%_)))) + (let ((_%hd176785176902%_ (let () (declare (not safe)) - (##car _%e175497175612%_))) - (_%tl175499175617%_ + (##car _%e176784176899%_))) + (_%tl176786176904%_ (let () (declare (not safe)) - (##cdr _%e175497175612%_)))) + (##cdr _%e176784176899%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175498175615%_)) + _%hd176785176902%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd175498175615%_)) + _%hd176785176902%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175499175617%_)) - (let ((_%e175500175620%_ + _%tl176786176904%_)) + (let ((_%e176787176907%_ (let () (declare (not safe)) (gx#stx-e - _%tl175499175617%_)))) - (let ((_%hd175501175623%_ + _%tl176786176904%_)))) + (let ((_%hd176788176910%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e175500175620%_))) - (_%tl175502175625%_ - (let () (declare (not safe)) (##cdr _%e175500175620%_)))) + (##car _%e176787176907%_))) + (_%tl176789176912%_ + (let () (declare (not safe)) (##cdr _%e176787176907%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175502175625%_)) + (gx#stx-null? _%tl176789176912%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl175496175609%_)) - (if (let ((__tmp177871 + (gx#stx-pair/null? _%tl176783176896%_)) + (if (let ((__tmp179158 (let () (declare (not safe)) - (gx#stx-length _%tl175496175609%_)))) + (gx#stx-length _%tl176783176896%_)))) (declare (not safe)) - (##fx>= __tmp177871 '1)) - (let ((_g177872_ + (##fx>= __tmp179158 '1)) + (let ((_g179159_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl175496175609%_ + _%tl176783176896%_ '1)))) (begin - (let ((_g177873_ + (let ((_g179160_ (let () (declare (not safe)) - (if (##values? _g177872_) - (##vector-length _g177872_) + (if (##values? _g179159_) + (##values-length _g179159_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g177873_ 2))) + (##fx= _g179160_ 2))) (error "Context expects 2 values" - _g177873_))) - (let ((_%target175503175628%_ + _g179160_))) + (let ((_%target176790176915%_ (let () (declare (not safe)) - (##vector-ref _g177872_ 0))) - (_%tl175505175630%_ + (##values-ref _g179159_ 0))) + (_%tl176792176917%_ (let () (declare (not safe)) - (##vector-ref _g177872_ 1)))) + (##values-ref _g179159_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175505175630%_)) - (let ((_%e175512175633%_ + (gx#stx-pair? _%tl176792176917%_)) + (let ((_%e176799176920%_ (let () (declare (not safe)) - (gx#stx-e _%tl175505175630%_)))) - (let ((_%hd175513175636%_ + (gx#stx-e _%tl176792176917%_)))) + (let ((_%hd176800176923%_ (let () (declare (not safe)) - (##car _%e175512175633%_))) - (_%tl175514175638%_ + (##car _%e176799176920%_))) + (_%tl176801176925%_ (let () (declare (not safe)) - (##cdr _%e175512175633%_)))) + (##cdr _%e176799176920%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175514175638%_)) - (letrec ((_%loop175506175641%_ - (lambda (_%hd175504175644%_ + _%tl176801176925%_)) + (letrec ((_%loop176793176928%_ + (lambda (_%hd176791176931%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kw-ref175510175646%_) + _%kw-ref176797176933%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175504175644%_)) - (let ((_%e175507175649%_ + (gx#stx-pair? _%hd176791176931%_)) + (let ((_%e176794176936%_ (let () (declare (not safe)) - (gx#stx-e _%hd175504175644%_)))) - (let ((_%lp-hd175508175652%_ + (gx#stx-e _%hd176791176931%_)))) + (let ((_%lp-hd176795176939%_ (let () (declare (not safe)) - (##car _%e175507175649%_))) - (_%lp-tl175509175654%_ + (##car _%e176794176936%_))) + (_%lp-tl176796176941%_ (let () (declare (not safe)) - (##cdr _%e175507175649%_)))) - (_%loop175506175641%_ - _%lp-tl175509175654%_ - (cons _%lp-hd175508175652%_ - _%kw-ref175510175646%_)))) - (let ((_%kw-ref175511175657%_ - (reverse _%kw-ref175510175646%_))) + (##cdr _%e176794176936%_)))) + (_%loop176793176928%_ + _%lp-tl176796176941%_ + (cons _%lp-hd176795176939%_ + _%kw-ref176797176933%_)))) + (let ((_%kw-ref176798176944%_ + (reverse _%kw-ref176797176933%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175472175545%_)) - ((lambda (_%L175660%_ - _%L175661%_ - _%L175662%_ - _%L175663%_ - _%L175664%_) - (let* ((_%kw-count175715%_ - (length (let ((__tmp177874 - (lambda (_%g175707175710%_ - _%g175708175712%_) - (cons _%g175707175710%_ - _%g175708175712%_)))) + (gx#stx-null? _%tl176759176832%_)) + ((lambda (_%L176947%_ + _%L176948%_ + _%L176949%_ + _%L176950%_ + _%L176951%_) + (let* ((_%kw-count177002%_ + (length (let ((__tmp179161 + (lambda (_%g176994176997%_ + _%g176995176999%_) + (cons _%g176994176997%_ + _%g176995176999%_)))) (declare (not safe)) (__foldr1 - __tmp177874 + __tmp179161 '() - _%L175661%_)))) - (_%self-index175717%_ + _%L176948%_)))) + (_%self-index177004%_ (let () (declare (not safe)) - (##fx+ _%kw-count175715%_ '1)))) + (##fx+ _%kw-count177002%_ '1)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _%L175415%_)) - (let* ((_%g175721175735%_ - (lambda (_%g175722175732%_) + (gxc#lambda-expr? _%L176702%_)) + (let* ((_%g177008177022%_ + (lambda (_%g177009177019%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175722175732%_)))) - (_%g175720175858%_ - (lambda (_%g175722175738%_) + _%g177009177019%_)))) + (_%g177007177145%_ + (lambda (_%g177009177025%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g175722175738%_)) - (let ((_%e175725175740%_ + _%g177009177025%_)) + (let ((_%e177012177027%_ (let () (declare (not safe)) (gx#stx-e - _%g175722175738%_)))) - (let ((_%hd175726175743%_ + _%g177009177025%_)))) + (let ((_%hd177013177030%_ (let () (declare (not safe)) - (##car _%e175725175740%_))) - (_%tl175727175745%_ + (##car _%e177012177027%_))) + (_%tl177014177032%_ (let () (declare (not safe)) - (##cdr _%e175725175740%_)))) + (##cdr _%e177012177027%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175727175745%_)) - (let ((_%e175728175748%_ + _%tl177014177032%_)) + (let ((_%e177015177035%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl175727175745%_)))) - (let ((_%hd175729175751%_ + (gx#stx-e _%tl177014177032%_)))) + (let ((_%hd177016177038%_ (let () (declare (not safe)) - (##car _%e175728175748%_))) - (_%tl175730175753%_ + (##car _%e177015177035%_))) + (_%tl177017177040%_ (let () (declare (not safe)) - (##cdr _%e175728175748%_)))) - ((lambda (_%L175756%_ _%L175757%_) - (let* ((_%self175774%_ - (list-ref _%L175757%_ _%self-index175717%_)) - (_%receiver175779%_ - (let ((_%$e175776%_ + (##cdr _%e177015177035%_)))) + ((lambda (_%L177043%_ _%L177044%_) + (let* ((_%self177061%_ + (list-ref _%L177044%_ _%self-index177004%_)) + (_%receiver177066%_ + (let ((_%$e177063%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175756%_)))) - (if _%$e175776%_ - _%$e175776%_ - _%self175774%_)))) + _%L177043%_)))) + (if _%$e177063%_ + _%$e177063%_ + _%self177061%_)))) (for-each - (lambda (_%g175781175783%_) + (lambda (_%g177068177070%_) (gxc#apply-collect-object-refs__% '#f - _%receiver175779%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g175781175783%_)) - _%L175756%_) - (if (_%no-specializer?173711%_) - _%stx173615%_ - (let* ((_%specializer-id175792%_ - (let* ((_%id175786%_ - (let ((__tmp177875 + _%receiver177066%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g177068177070%_)) + _%L177043%_) + (if (_%no-specializer?174998%_) + _%stx174902%_ + (let* ((_%specializer-id177079%_ + (let* ((_%id177073%_ + (let ((__tmp179162 (let () (declare (not safe)) (gx#stx-e - _%L173688%_)))) + _%L174975%_)))) (declare (not safe)) (make-symbol__1 - __tmp177875 + __tmp179162 '"::specialize"))) - (_%specializer-id175789%_ - (let ((__tmp177876 + (_%specializer-id177076%_ + (let ((__tmp179163 (let () (declare (not safe)) (gx#stx-source - _%stx173615%_)))) + _%stx174902%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id175786%_ - __tmp177876)))) + _%id177073%_ + __tmp179163)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%specializer-id175789%_)) - _%specializer-id175789%_)) - (_%$klass175794%_ - (let ((__tmp177877 + _%specializer-id177076%_)) + _%specializer-id177076%_)) + (_%$klass177081%_ + (let ((__tmp179164 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp177877))) - (_%$method-table175796%_ - (let ((__tmp177878 + (make-symbol__0 __tmp179164))) + (_%$method-table177083%_ + (let ((__tmp179165 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp177878))) - (_%methods175798%_ + (make-symbol__0 __tmp179165))) + (_%methods177085%_ (let () (declare (not safe)) (__hash-keys - _%method-calls173707%_))) - (_%$methods175802%_ - (map (lambda (_%id175800%_) - (let ((__tmp177879 - (gensym _%id175800%_))) + _%method-calls174994%_))) + (_%$methods177089%_ + (map (lambda (_%id177087%_) + (let ((__tmp179166 + (gensym _%id177087%_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp177879))) - _%methods175798%_)) - (_%_175811%_ + __tmp179166))) + _%methods177085%_)) + (_%_177098%_ (for-each - (lambda (_%g175803175806%_ - _%g175804175808%_) + (lambda (_%g177090177093%_ + _%g177091177095%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173707%_ - _%g175803175806%_ - _%g175804175808%_))) - _%methods175798%_ - _%$methods175802%_)) - (_%methods-bind175821%_ - (map (lambda (_%g175813175816%_ - _%g175814175818%_) - (_%generate-method-bind173617%_ - _%$klass175794%_ - _%$method-table175796%_ - _%g175813175816%_ - _%g175814175818%_)) - _%methods175798%_ - _%$methods175802%_)) - (_%slots175823%_ + _%method-calls174994%_ + _%g177090177093%_ + _%g177091177095%_))) + _%methods177085%_ + _%$methods177089%_)) + (_%methods-bind177108%_ + (map (lambda (_%g177100177103%_ + _%g177101177105%_) + (_%generate-method-bind174904%_ + _%$klass177081%_ + _%$method-table177083%_ + _%g177100177103%_ + _%g177101177105%_)) + _%methods177085%_ + _%$methods177089%_)) + (_%slots177110%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs173708%_))) - (_%$slots175827%_ - (map (lambda (_%id175825%_) - (let ((__tmp177880 - (gensym _%id175825%_))) + (__hash-keys _%slot-refs174995%_))) + (_%$slots177114%_ + (map (lambda (_%id177112%_) + (let ((__tmp179167 + (gensym _%id177112%_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp177880))) - _%slots175823%_)) - (_%_175836%_ + __tmp179167))) + _%slots177110%_)) + (_%_177123%_ (for-each - (lambda (_%g175828175831%_ - _%g175829175833%_) + (lambda (_%g177115177118%_ + _%g177116177120%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173708%_ - _%g175828175831%_ - _%g175829175833%_))) - _%slots175823%_ - _%$slots175827%_)) - (_%slots-bind175845%_ - (map (lambda (_%g175837175840%_ - _%g175838175842%_) - (_%generate-slot-bind173618%_ - _%$klass175794%_ - _%g175837175840%_ - _%g175838175842%_)) - _%slots175823%_ - _%$slots175827%_)) - (_%specializer-impl175853%_ - (let* ((_%specializer-body175851%_ - (map (lambda (_%g175846175848%_) + _%slot-refs174995%_ + _%g177115177118%_ + _%g177116177120%_))) + _%slots177110%_ + _%$slots177114%_)) + (_%slots-bind177132%_ + (map (lambda (_%g177124177127%_ + _%g177125177129%_) + (_%generate-slot-bind174905%_ + _%$klass177081%_ + _%g177124177127%_ + _%g177125177129%_)) + _%slots177110%_ + _%$slots177114%_)) + (_%specializer-impl177140%_ + (let* ((_%specializer-body177138%_ + (map (lambda (_%g177133177135%_) (gxc#apply-subst-object-refs__% '#f - _%receiver175779%_ - _%$klass175794%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g175846175848%_)) - _%L175756%_)) - (__tmp177881 + _%receiver177066%_ + _%$klass177081%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g177133177135%_)) + _%L177043%_)) + (__tmp179168 (cons '%#let-values - (cons (cons (cons (cons _%L175417%_ + (cons (cons (cons (cons _%L176704%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L175416%_ + (cons (cons (cons (cons _%L176703%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp177882 + (cons (let ((__tmp179169 (cons '%#lambda - (cons _%L175757%_ - _%specializer-body175851%_)))) + (cons _%L177044%_ + _%specializer-body177138%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177882 _%L175415%_)) + (gxc#xform-wrap-source __tmp179169 _%L176702%_)) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L175414%_ '()))) + (cons _%L176701%_ '()))) '())) '()) - (cons _%L175413%_ '()))))) + (cons _%L176700%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177881 - _%stx173615%_))) - (_%specializer-impl175855%_ - (_%generate-specializer-impl173619%_ - _%$klass175794%_ - _%$method-table175796%_ - _%methods-bind175821%_ - _%slots-bind175845%_ - _%specializer-impl175853%_))) - (let ((__tmp177884 + __tmp179168 + _%stx174902%_))) + (_%specializer-impl177142%_ + (_%generate-specializer-impl174906%_ + _%$klass177081%_ + _%$method-table177083%_ + _%methods-bind177108%_ + _%slots-bind177132%_ + _%specializer-impl177140%_))) + (let ((__tmp179171 (let () (declare (not safe)) - (gx#stx-e _%L173688%_))) - (__tmp177883 + (gx#stx-e _%L174975%_))) + (__tmp179170 (let () (declare (not safe)) (gx#stx-e - _%specializer-id175792%_)))) + _%specializer-id177079%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp177884 + __tmp179171 '" => " - __tmp177883)) - (_%generate-specializer-def173620%_ - _%L173688%_ - _%specializer-id175792%_ - _%specializer-impl175855%_))))) - _%tl175730175753%_ - _%hd175729175751%_))) - (_%g175721175735%_ _%g175722175738%_)))) + __tmp179170)) + (_%generate-specializer-def174907%_ + _%L174975%_ + _%specializer-id177079%_ + _%specializer-impl177142%_))))) + _%tl177017177040%_ + _%hd177016177038%_))) + (_%g177008177022%_ _%g177009177025%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175721175735%_ - _%g175722175738%_))))) - (_%g175720175858%_ _%L175415%_)) + (_%g177008177022%_ + _%g177009177025%_))))) + (_%g177007177145%_ _%L176702%_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _%L175415%_)) - (let* ((_%g175862175892%_ - (lambda (_%g175863175889%_) + (gxc#opt-lambda-expr? _%L176702%_)) + (let* ((_%g177149177179%_ + (lambda (_%g177150177176%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175863175889%_)))) - (_%g175861176460%_ - (lambda (_%g175863175895%_) + _%g177150177176%_)))) + (_%g177148177747%_ + (lambda (_%g177150177182%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g175863175895%_)) - (let ((_%e175867175897%_ + _%g177150177182%_)) + (let ((_%e177154177184%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%g175863175895%_)))) - (let ((_%hd175868175900%_ + (gx#stx-e _%g177150177182%_)))) + (let ((_%hd177155177187%_ (let () (declare (not safe)) - (##car _%e175867175897%_))) - (_%tl175869175902%_ + (##car _%e177154177184%_))) + (_%tl177156177189%_ (let () (declare (not safe)) - (##cdr _%e175867175897%_)))) + (##cdr _%e177154177184%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175869175902%_)) - (let ((_%e175870175905%_ + (gx#stx-pair? _%tl177156177189%_)) + (let ((_%e177157177192%_ (let () (declare (not safe)) - (gx#stx-e _%tl175869175902%_)))) - (let ((_%hd175871175908%_ + (gx#stx-e _%tl177156177189%_)))) + (let ((_%hd177158177195%_ (let () (declare (not safe)) - (##car _%e175870175905%_))) - (_%tl175872175910%_ + (##car _%e177157177192%_))) + (_%tl177159177197%_ (let () (declare (not safe)) - (##cdr _%e175870175905%_)))) + (##cdr _%e177157177192%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175871175908%_)) - (let ((_%e175873175913%_ + (gx#stx-pair? _%hd177158177195%_)) + (let ((_%e177160177200%_ (let () (declare (not safe)) - (gx#stx-e _%hd175871175908%_)))) - (let ((_%hd175874175916%_ + (gx#stx-e _%hd177158177195%_)))) + (let ((_%hd177161177203%_ (let () (declare (not safe)) - (##car _%e175873175913%_))) - (_%tl175875175918%_ + (##car _%e177160177200%_))) + (_%tl177162177205%_ (let () (declare (not safe)) - (##cdr _%e175873175913%_)))) + (##cdr _%e177160177200%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175874175916%_)) - (let ((_%e175876175921%_ + (gx#stx-pair? _%hd177161177203%_)) + (let ((_%e177163177208%_ (let () (declare (not safe)) (gx#stx-e - _%hd175874175916%_)))) - (let ((_%hd175877175924%_ + _%hd177161177203%_)))) + (let ((_%hd177164177211%_ (let () (declare (not safe)) - (##car _%e175876175921%_))) - (_%tl175878175926%_ + (##car _%e177163177208%_))) + (_%tl177165177213%_ (let () (declare (not safe)) - (##cdr _%e175876175921%_)))) + (##cdr _%e177163177208%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175877175924%_)) - (let ((_%e175879175929%_ + _%hd177164177211%_)) + (let ((_%e177166177216%_ (let () (declare (not safe)) (gx#stx-e - _%hd175877175924%_)))) - (let ((_%hd175880175932%_ + _%hd177164177211%_)))) + (let ((_%hd177167177219%_ (let () (declare (not safe)) - (##car _%e175879175929%_))) - (_%tl175881175934%_ + (##car _%e177166177216%_))) + (_%tl177168177221%_ (let () (declare (not safe)) - (##cdr _%e175879175929%_)))) + (##cdr _%e177166177216%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175881175934%_)) + _%tl177168177221%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175878175926%_)) - (let ((_%e175882175937%_ + _%tl177165177213%_)) + (let ((_%e177169177224%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl175878175926%_)))) - (let ((_%hd175883175940%_ + (gx#stx-e _%tl177165177213%_)))) + (let ((_%hd177170177227%_ (let () (declare (not safe)) - (##car _%e175882175937%_))) - (_%tl175884175942%_ + (##car _%e177169177224%_))) + (_%tl177171177229%_ (let () (declare (not safe)) - (##cdr _%e175882175937%_)))) + (##cdr _%e177169177224%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175884175942%_)) + (gx#stx-null? _%tl177171177229%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175875175918%_)) + (gx#stx-null? _%tl177162177205%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175872175910%_)) - (let ((_%e175885175945%_ + (gx#stx-pair? _%tl177159177197%_)) + (let ((_%e177172177232%_ (let () (declare (not safe)) - (gx#stx-e _%tl175872175910%_)))) - (let ((_%hd175886175948%_ + (gx#stx-e _%tl177159177197%_)))) + (let ((_%hd177173177235%_ (let () (declare (not safe)) - (##car _%e175885175945%_))) - (_%tl175887175950%_ + (##car _%e177172177232%_))) + (_%tl177174177237%_ (let () (declare (not safe)) - (##cdr _%e175885175945%_)))) + (##cdr _%e177172177232%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175887175950%_)) - ((lambda (_%L175953%_ - _%L175954%_ - _%L175955%_) - (let* ((_%g175979175993%_ - (lambda (_%g175980175990%_) + (gx#stx-null? _%tl177174177237%_)) + ((lambda (_%L177240%_ + _%L177241%_ + _%L177242%_) + (let* ((_%g177266177280%_ + (lambda (_%g177267177277%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175980175990%_)))) - (_%g175978176040%_ - (lambda (_%g175980175996%_) + _%g177267177277%_)))) + (_%g177265177327%_ + (lambda (_%g177267177283%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g175980175996%_)) - (let ((_%e175983175998%_ + _%g177267177283%_)) + (let ((_%e177270177285%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g175980175996%_)))) - (let ((_%hd175984176001%_ + (gx#stx-e _%g177267177283%_)))) + (let ((_%hd177271177288%_ (let () (declare (not safe)) - (##car _%e175983175998%_))) - (_%tl175985176003%_ + (##car _%e177270177285%_))) + (_%tl177272177290%_ (let () (declare (not safe)) - (##cdr _%e175983175998%_)))) + (##cdr _%e177270177285%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175985176003%_)) - (let ((_%e175986176006%_ + (gx#stx-pair? _%tl177272177290%_)) + (let ((_%e177273177293%_ (let () (declare (not safe)) - (gx#stx-e _%tl175985176003%_)))) - (let ((_%hd175987176009%_ + (gx#stx-e _%tl177272177290%_)))) + (let ((_%hd177274177296%_ (let () (declare (not safe)) - (##car _%e175986176006%_))) - (_%tl175988176011%_ + (##car _%e177273177293%_))) + (_%tl177275177298%_ (let () (declare (not safe)) - (##cdr _%e175986176006%_)))) - ((lambda (_%L176014%_ _%L176015%_) - (let* ((_%self176028%_ + (##cdr _%e177273177293%_)))) + ((lambda (_%L177301%_ _%L177302%_) + (let* ((_%self177315%_ (list-ref - _%L176015%_ - _%self-index175717%_)) - (_%receiver176033%_ - (let ((_%$e176030%_ + _%L177302%_ + _%self-index177004%_)) + (_%receiver177320%_ + (let ((_%$e177317%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176014%_)))) - (if _%$e176030%_ - _%$e176030%_ - _%self176028%_)))) + _%L177301%_)))) + (if _%$e177317%_ + _%$e177317%_ + _%self177315%_)))) (for-each - (lambda (_%g176035176037%_) + (lambda (_%g177322177324%_) (gxc#apply-collect-object-refs__% '#f - _%receiver176033%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g176035176037%_)) - _%L176014%_))) - _%tl175988176011%_ - _%hd175987176009%_))) - (_%g175979175993%_ _%g175980175996%_)))) - (_%g175979175993%_ _%g175980175996%_))))) + _%receiver177320%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g177322177324%_)) + _%L177301%_))) + _%tl177275177298%_ + _%hd177274177296%_))) + (_%g177266177280%_ _%g177267177283%_)))) + (_%g177266177280%_ _%g177267177283%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175978176040%_ - _%L175954%_)) - (let* ((_%g176043176062%_ - (lambda (_%g176044176059%_) + (_%g177265177327%_ + _%L177241%_)) + (let* ((_%g177330177349%_ + (lambda (_%g177331177346%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176044176059%_)))) - (_%g176042176173%_ - (lambda (_%g176044176065%_) + _%g177331177346%_)))) + (_%g177329177460%_ + (lambda (_%g177331177352%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g176044176065%_)) - (let ((_%e176046176067%_ + _%g177331177352%_)) + (let ((_%e177333177354%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g176044176065%_)))) - (let ((_%hd176047176070%_ + (gx#stx-e _%g177331177352%_)))) + (let ((_%hd177334177357%_ (let () (declare (not safe)) - (##car _%e176046176067%_))) - (_%tl176048176072%_ + (##car _%e177333177354%_))) + (_%tl177335177359%_ (let () (declare (not safe)) - (##cdr _%e176046176067%_)))) + (##cdr _%e177333177354%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl176048176072%_)) - (let ((_g177885_ + (gx#stx-pair/null? _%tl177335177359%_)) + (let ((_g179172_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl176048176072%_ + _%tl177335177359%_ '0)))) (begin - (let ((_g177886_ + (let ((_g179173_ (let () (declare (not safe)) - (if (##values? _g177885_) - (##vector-length _g177885_) + (if (##values? _g179172_) + (##values-length _g179172_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g177886_ 2))) + (##fx= _g179173_ 2))) (error "Context expects 2 values" - _g177886_))) - (let ((_%target176049176075%_ + _g179173_))) + (let ((_%target177336177362%_ (let () (declare (not safe)) - (##vector-ref _g177885_ 0))) - (_%tl176051176077%_ + (##values-ref _g179172_ 0))) + (_%tl177338177364%_ (let () (declare (not safe)) - (##vector-ref _g177885_ 1)))) + (##values-ref _g179172_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176051176077%_)) - (letrec ((_%loop176052176080%_ - (lambda (_%hd176050176083%_ - _%clause176056176085%_) + (gx#stx-null? _%tl177338177364%_)) + (letrec ((_%loop177339177367%_ + (lambda (_%hd177337177370%_ + _%clause177343177372%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd176050176083%_)) - (let ((_%e176053176088%_ + _%hd177337177370%_)) + (let ((_%e177340177375%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd176050176083%_)))) - (let ((_%lp-hd176054176091%_ - (let () (declare (not safe)) (##car _%e176053176088%_))) - (_%lp-tl176055176093%_ + (gx#stx-e _%hd177337177370%_)))) + (let ((_%lp-hd177341177378%_ + (let () (declare (not safe)) (##car _%e177340177375%_))) + (_%lp-tl177342177380%_ (let () (declare (not safe)) - (##cdr _%e176053176088%_)))) - (_%loop176052176080%_ - _%lp-tl176055176093%_ - (cons _%lp-hd176054176091%_ _%clause176056176085%_)))) - (let ((_%clause176057176096%_ (reverse _%clause176056176085%_))) - ((lambda (_%L176099%_) + (##cdr _%e177340177375%_)))) + (_%loop177339177367%_ + _%lp-tl177342177380%_ + (cons _%lp-hd177341177378%_ _%clause177343177372%_)))) + (let ((_%clause177344177383%_ (reverse _%clause177343177372%_))) + ((lambda (_%L177386%_) (for-each - (lambda (_%clause176112%_) - (let* ((_%g176114176125%_ - (lambda (_%g176115176122%_) + (lambda (_%clause177399%_) + (let* ((_%g177401177412%_ + (lambda (_%g177402177409%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176115176122%_)))) - (_%g176113176163%_ - (lambda (_%g176115176128%_) + _%g177402177409%_)))) + (_%g177400177450%_ + (lambda (_%g177402177415%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176115176128%_)) - (let ((_%e176118176130%_ + (gx#stx-pair? _%g177402177415%_)) + (let ((_%e177405177417%_ (let () (declare (not safe)) - (gx#stx-e _%g176115176128%_)))) - (let ((_%hd176119176133%_ + (gx#stx-e _%g177402177415%_)))) + (let ((_%hd177406177420%_ (let () (declare (not safe)) - (##car _%e176118176130%_))) - (_%tl176120176135%_ + (##car _%e177405177417%_))) + (_%tl177407177422%_ (let () (declare (not safe)) - (##cdr _%e176118176130%_)))) - ((lambda (_%L176138%_ _%L176139%_) - (let* ((_%self176151%_ + (##cdr _%e177405177417%_)))) + ((lambda (_%L177425%_ _%L177426%_) + (let* ((_%self177438%_ (list-ref - _%L176139%_ - _%self-index175717%_)) - (_%receiver176156%_ - (let ((_%$e176153%_ + _%L177426%_ + _%self-index177004%_)) + (_%receiver177443%_ + (let ((_%$e177440%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176138%_)))) + _%L177425%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e176153%_ - _%$e176153%_ - _%self176151%_)))) + (if _%$e177440%_ + _%$e177440%_ + _%self177438%_)))) (for-each - (lambda (_%g176158176160%_) + (lambda (_%g177445177447%_) (gxc#apply-collect-object-refs__% '#f - _%receiver176156%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g176158176160%_)) - _%L176138%_))) - _%tl176120176135%_ - _%hd176119176133%_))) - (_%g176114176125%_ _%g176115176128%_))))) - (_%g176113176163%_ _%clause176112%_))) - (let ((__tmp177887 - (lambda (_%g176165176168%_ _%g176166176170%_) - (cons _%g176165176168%_ _%g176166176170%_)))) + _%receiver177443%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g177445177447%_)) + _%L177425%_))) + _%tl177407177422%_ + _%hd177406177420%_))) + (_%g177401177412%_ _%g177402177415%_))))) + (_%g177400177450%_ _%clause177399%_))) + (let ((__tmp179174 + (lambda (_%g177452177455%_ _%g177453177457%_) + (cons _%g177452177455%_ _%g177453177457%_)))) (declare (not safe)) - (__foldr1 __tmp177887 '() _%L176099%_)))) - _%clause176057176096%_)))))) + (__foldr1 __tmp179174 '() _%L177386%_)))) + _%clause177344177383%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop176052176080%_ - _%target176049176075%_ + (_%loop177339177367%_ + _%target177336177362%_ '())) - (_%g176043176062%_ _%g176044176065%_))))) - (_%g176043176062%_ _%g176044176065%_)))) - (_%g176043176062%_ _%g176044176065%_))))) + (_%g177330177349%_ _%g177331177352%_))))) + (_%g177330177349%_ _%g177331177352%_)))) + (_%g177330177349%_ _%g177331177352%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176042176173%_ - _%L175953%_)) - (if (_%no-specializer?173711%_) - _%stx173615%_ - (let* ((_%specializer-id176182%_ - (let* ((_%id176176%_ + (_%g177329177460%_ + _%L177240%_)) + (if (_%no-specializer?174998%_) + _%stx174902%_ + (let* ((_%specializer-id177469%_ + (let* ((_%id177463%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp177888 + (let ((__tmp179175 (let () (declare (not safe)) - (gx#stx-e _%L173688%_)))) + (gx#stx-e _%L174975%_)))) (declare (not safe)) - (make-symbol__1 __tmp177888 '"::specialize"))) - (_%specializer-id176179%_ - (let ((__tmp177889 + (make-symbol__1 __tmp179175 '"::specialize"))) + (_%specializer-id177466%_ + (let ((__tmp179176 (let () (declare (not safe)) - (gx#stx-source _%stx173615%_)))) + (gx#stx-source _%stx174902%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id176176%_ - __tmp177889)))) + _%id177463%_ + __tmp179176)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id176179%_)) - _%specializer-id176179%_)) - (_%$klass176184%_ - (let ((__tmp177890 + (gx#core-bind-runtime!__0 _%specializer-id177466%_)) + _%specializer-id177466%_)) + (_%$klass177471%_ + (let ((__tmp179177 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp177890))) - (_%$method-table176186%_ - (let ((__tmp177891 + (make-symbol__0 __tmp179177))) + (_%$method-table177473%_ + (let ((__tmp179178 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp177891))) - (_%methods176188%_ + (make-symbol__0 __tmp179178))) + (_%methods177475%_ (let () (declare (not safe)) - (__hash-keys _%method-calls173707%_))) - (_%$methods176192%_ - (map (lambda (_%id176190%_) - (let ((__tmp177892 (gensym _%id176190%_))) + (__hash-keys _%method-calls174994%_))) + (_%$methods177479%_ + (map (lambda (_%id177477%_) + (let ((__tmp179179 (gensym _%id177477%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177892))) - _%methods176188%_)) - (_%_176201%_ + (make-symbol__1 '"__" __tmp179179))) + _%methods177475%_)) + (_%_177488%_ (for-each - (lambda (_%g176193176196%_ _%g176194176198%_) + (lambda (_%g177480177483%_ _%g177481177485%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173707%_ - _%g176193176196%_ - _%g176194176198%_))) - _%methods176188%_ - _%$methods176192%_)) - (_%methods-bind176211%_ - (map (lambda (_%g176203176206%_ _%g176204176208%_) - (_%generate-method-bind173617%_ - _%$klass176184%_ - _%$method-table176186%_ - _%g176203176206%_ - _%g176204176208%_)) - _%methods176188%_ - _%$methods176192%_)) - (_%slots176213%_ + _%method-calls174994%_ + _%g177480177483%_ + _%g177481177485%_))) + _%methods177475%_ + _%$methods177479%_)) + (_%methods-bind177498%_ + (map (lambda (_%g177490177493%_ _%g177491177495%_) + (_%generate-method-bind174904%_ + _%$klass177471%_ + _%$method-table177473%_ + _%g177490177493%_ + _%g177491177495%_)) + _%methods177475%_ + _%$methods177479%_)) + (_%slots177500%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs173708%_))) - (_%$slots176217%_ - (map (lambda (_%id176215%_) - (let ((__tmp177893 (gensym _%id176215%_))) + (__hash-keys _%slot-refs174995%_))) + (_%$slots177504%_ + (map (lambda (_%id177502%_) + (let ((__tmp179180 (gensym _%id177502%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177893))) - _%slots176213%_)) - (_%_176226%_ + (make-symbol__1 '"__" __tmp179180))) + _%slots177500%_)) + (_%_177513%_ (for-each - (lambda (_%g176218176221%_ _%g176219176223%_) + (lambda (_%g177505177508%_ _%g177506177510%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173708%_ - _%g176218176221%_ - _%g176219176223%_))) - _%slots176213%_ - _%$slots176217%_)) - (_%slots-bind176235%_ - (map (lambda (_%g176227176230%_ _%g176228176232%_) - (_%generate-slot-bind173618%_ - _%$klass176184%_ - _%g176227176230%_ - _%g176228176232%_)) - _%slots176213%_ - _%$slots176217%_)) - (_%specializer-lambda-expr176313%_ - (let* ((_%g176237176251%_ - (lambda (_%g176238176248%_) + _%slot-refs174995%_ + _%g177505177508%_ + _%g177506177510%_))) + _%slots177500%_ + _%$slots177504%_)) + (_%slots-bind177522%_ + (map (lambda (_%g177514177517%_ _%g177515177519%_) + (_%generate-slot-bind174905%_ + _%$klass177471%_ + _%g177514177517%_ + _%g177515177519%_)) + _%slots177500%_ + _%$slots177504%_)) + (_%specializer-lambda-expr177600%_ + (let* ((_%g177524177538%_ + (lambda (_%g177525177535%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176238176248%_)))) - (_%g176236176310%_ - (lambda (_%g176238176254%_) + _%g177525177535%_)))) + (_%g177523177597%_ + (lambda (_%g177525177541%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176238176254%_)) - (let ((_%e176241176256%_ + (gx#stx-pair? _%g177525177541%_)) + (let ((_%e177528177543%_ (let () (declare (not safe)) - (gx#stx-e _%g176238176254%_)))) - (let ((_%hd176242176259%_ + (gx#stx-e _%g177525177541%_)))) + (let ((_%hd177529177546%_ (let () (declare (not safe)) - (##car _%e176241176256%_))) - (_%tl176243176261%_ + (##car _%e177528177543%_))) + (_%tl177530177548%_ (let () (declare (not safe)) - (##cdr _%e176241176256%_)))) + (##cdr _%e177528177543%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176243176261%_)) - (let ((_%e176244176264%_ + (gx#stx-pair? _%tl177530177548%_)) + (let ((_%e177531177551%_ (let () (declare (not safe)) (gx#stx-e - _%tl176243176261%_)))) - (let ((_%hd176245176267%_ + _%tl177530177548%_)))) + (let ((_%hd177532177554%_ (let () (declare (not safe)) - (##car _%e176244176264%_))) - (_%tl176246176269%_ + (##car _%e177531177551%_))) + (_%tl177533177556%_ (let () (declare (not safe)) - (##cdr _%e176244176264%_)))) - ((lambda (_%L176272%_ _%L176273%_) - (let* ((_%self176296%_ + (##cdr _%e177531177551%_)))) + ((lambda (_%L177559%_ _%L177560%_) + (let* ((_%self177583%_ (list-ref - _%L176273%_ - _%self-index175717%_)) - (_%receiver176301%_ - (let ((_%$e176298%_ + _%L177560%_ + _%self-index177004%_)) + (_%receiver177588%_ + (let ((_%$e177585%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176272%_)))) - (if _%$e176298%_ _%$e176298%_ _%self176296%_))) - (_%body176307%_ - (map (lambda (_%g176302176304%_) + _%L177559%_)))) + (if _%$e177585%_ _%$e177585%_ _%self177583%_))) + (_%body177594%_ + (map (lambda (_%g177589177591%_) (gxc#apply-subst-object-refs__% '#f - _%receiver176301%_ - _%$klass176184%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g176302176304%_)) - _%L176272%_)) - (__tmp177894 (cons '%#lambda (cons _%L176273%_ _%body176307%_)))) + _%receiver177588%_ + _%$klass177471%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g177589177591%_)) + _%L177559%_)) + (__tmp179181 (cons '%#lambda (cons _%L177560%_ _%body177594%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177894 - _%L175954%_))) - _%tl176246176269%_ - _%hd176245176267%_))) - (_%g176237176251%_ - _%g176238176254%_)))) - (_%g176237176251%_ _%g176238176254%_))))) - (_%g176236176310%_ _%L175954%_))) - (_%specializer-case-lambda-expr176453%_ - (let* ((_%g176315176334%_ - (lambda (_%g176316176331%_) + __tmp179181 + _%L177241%_))) + _%tl177533177556%_ + _%hd177532177554%_))) + (_%g177524177538%_ + _%g177525177541%_)))) + (_%g177524177538%_ _%g177525177541%_))))) + (_%g177523177597%_ _%L177241%_))) + (_%specializer-case-lambda-expr177740%_ + (let* ((_%g177602177621%_ + (lambda (_%g177603177618%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176316176331%_)))) - (_%g176314176450%_ - (lambda (_%g176316176337%_) + _%g177603177618%_)))) + (_%g177601177737%_ + (lambda (_%g177603177624%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176316176337%_)) - (let ((_%e176318176339%_ + (gx#stx-pair? _%g177603177624%_)) + (let ((_%e177605177626%_ (let () (declare (not safe)) - (gx#stx-e _%g176316176337%_)))) - (let ((_%hd176319176342%_ + (gx#stx-e _%g177603177624%_)))) + (let ((_%hd177606177629%_ (let () (declare (not safe)) - (##car _%e176318176339%_))) - (_%tl176320176344%_ + (##car _%e177605177626%_))) + (_%tl177607177631%_ (let () (declare (not safe)) - (##cdr _%e176318176339%_)))) + (##cdr _%e177605177626%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl176320176344%_)) - (let ((_g177895_ + _%tl177607177631%_)) + (let ((_g179182_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl176320176344%_ + _%tl177607177631%_ '0)))) (begin - (let ((_g177896_ + (let ((_g179183_ (let () (declare (not safe)) - (if (##values? _g177895_) - (##vector-length - _g177895_) + (if (##values? _g179182_) + (##values-length + _g179182_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g177896_ 2))) + (##fx= _g179183_ 2))) (error "Context expects 2 values" - _g177896_))) - (let ((_%target176321176347%_ + _g179183_))) + (let ((_%target177608177634%_ (let () (declare (not safe)) - (##vector-ref - _g177895_ + (##values-ref + _g179182_ 0))) - (_%tl176323176349%_ + (_%tl177610177636%_ (let () (declare (not safe)) - (##vector-ref - _g177895_ + (##values-ref + _g179182_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176323176349%_)) - (letrec ((_%loop176324176352%_ - (lambda (_%hd176322176355%_ + _%tl177610177636%_)) + (letrec ((_%loop177611177639%_ + (lambda (_%hd177609177642%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause176328176357%_) + _%clause177615177644%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176322176355%_)) - (let ((_%e176325176360%_ + (gx#stx-pair? _%hd177609177642%_)) + (let ((_%e177612177647%_ (let () (declare (not safe)) - (gx#stx-e _%hd176322176355%_)))) - (let ((_%lp-hd176326176363%_ + (gx#stx-e _%hd177609177642%_)))) + (let ((_%lp-hd177613177650%_ (let () (declare (not safe)) - (##car _%e176325176360%_))) - (_%lp-tl176327176365%_ + (##car _%e177612177647%_))) + (_%lp-tl177614177652%_ (let () (declare (not safe)) - (##cdr _%e176325176360%_)))) - (_%loop176324176352%_ - _%lp-tl176327176365%_ - (cons _%lp-hd176326176363%_ - _%clause176328176357%_)))) - (let ((_%clause176329176368%_ - (reverse _%clause176328176357%_))) - ((lambda (_%L176371%_) - (let* ((_%clauses176448%_ - (map (lambda (_%clause176385%_) - (let* ((_%g176387176398%_ - (lambda (_%g176388176395%_) + (##cdr _%e177612177647%_)))) + (_%loop177611177639%_ + _%lp-tl177614177652%_ + (cons _%lp-hd177613177650%_ + _%clause177615177644%_)))) + (let ((_%clause177616177655%_ + (reverse _%clause177615177644%_))) + ((lambda (_%L177658%_) + (let* ((_%clauses177735%_ + (map (lambda (_%clause177672%_) + (let* ((_%g177674177685%_ + (lambda (_%g177675177682%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176388176395%_)))) - (_%g176386176438%_ - (lambda (_%g176388176401%_) + _%g177675177682%_)))) + (_%g177673177725%_ + (lambda (_%g177675177688%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g176388176401%_)) - (let ((_%e176391176403%_ + _%g177675177688%_)) + (let ((_%e177678177690%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g176388176401%_)))) - (let ((_%hd176392176406%_ + (gx#stx-e _%g177675177688%_)))) + (let ((_%hd177679177693%_ (let () (declare (not safe)) - (##car _%e176391176403%_))) - (_%tl176393176408%_ + (##car _%e177678177690%_))) + (_%tl177680177695%_ (let () (declare (not safe)) - (##cdr _%e176391176403%_)))) - ((lambda (_%L176411%_ _%L176412%_) - (let* ((_%self176424%_ - (list-ref _%L176412%_ _%self-index175717%_)) - (_%receiver176429%_ - (let ((_%$e176426%_ + (##cdr _%e177678177690%_)))) + ((lambda (_%L177698%_ _%L177699%_) + (let* ((_%self177711%_ + (list-ref _%L177699%_ _%self-index177004%_)) + (_%receiver177716%_ + (let ((_%$e177713%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176411%_)))) - (if _%$e176426%_ - _%$e176426%_ - _%self176424%_))) - (_%body176435%_ - (map (lambda (_%g176430176432%_) + _%L177698%_)))) + (if _%$e177713%_ + _%$e177713%_ + _%self177711%_))) + (_%body177722%_ + (map (lambda (_%g177717177719%_) (gxc#apply-subst-object-refs__% '#f - _%receiver176429%_ - _%$klass176184%_ - _%method-calls173707%_ - _%slot-refs173708%_ - _%g176430176432%_)) - _%L176411%_))) - (cons _%L176412%_ _%body176435%_))) - _%tl176393176408%_ - _%hd176392176406%_))) - (_%g176387176398%_ _%g176388176401%_))))) + _%receiver177716%_ + _%$klass177471%_ + _%method-calls174994%_ + _%slot-refs174995%_ + _%g177717177719%_)) + _%L177698%_))) + (cons _%L177699%_ _%body177722%_))) + _%tl177680177695%_ + _%hd177679177693%_))) + (_%g177674177685%_ _%g177675177688%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176386176438%_ - _%clause176385%_))) - (let ((__tmp177897 - (lambda (_%g176440176443%_ - _%g176441176445%_) - (cons _%g176440176443%_ - _%g176441176445%_)))) + (_%g177673177725%_ + _%clause177672%_))) + (let ((__tmp179184 + (lambda (_%g177727177730%_ + _%g177728177732%_) + (cons _%g177727177730%_ + _%g177728177732%_)))) (declare (not safe)) (__foldr1 - __tmp177897 + __tmp179184 '() - _%L176371%_)))) - (__tmp177898 + _%L177658%_)))) + (__tmp179185 (cons '%#case-lambda - _%clauses176448%_))) + _%clauses177735%_))) (declare (not safe)) (gxc#xform-wrap-source - __tmp177898 - _%L175953%_))) - _%clause176329176368%_)))))) + __tmp179185 + _%L177240%_))) + _%clause177616177655%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop176324176352%_ - _%target176321176347%_ + (_%loop177611177639%_ + _%target177608177634%_ '())) - (_%g176315176334%_ - _%g176316176337%_))))) - (_%g176315176334%_ - _%g176316176337%_)))) - (_%g176315176334%_ _%g176316176337%_))))) - (_%g176314176450%_ _%L175953%_))) - (_%specializer-impl176455%_ - (let ((__tmp177899 + (_%g177602177621%_ + _%g177603177624%_))))) + (_%g177602177621%_ + _%g177603177624%_)))) + (_%g177602177621%_ _%g177603177624%_))))) + (_%g177601177737%_ _%L177240%_))) + (_%specializer-impl177742%_ + (let ((__tmp179186 (cons '%#let-values - (cons (cons (cons (cons _%L175417%_ '()) + (cons (cons (cons (cons _%L176704%_ '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L175416%_ + (cons (cons (cons (cons _%L176703%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp177900 + (cons (let ((__tmp179187 (cons '%#let-values - (cons (cons (cons (cons _%L175955%_ + (cons (cons (cons (cons _%L177242%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%specializer-lambda-expr176313%_ + (cons _%specializer-lambda-expr177600%_ '())) '()) - (cons _%specializer-case-lambda-expr176453%_ '()))))) + (cons _%specializer-case-lambda-expr177740%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177900 - _%stx173615%_)) + __tmp179187 + _%stx174902%_)) '())) '()) - (cons _%L175414%_ '()))) + (cons _%L176701%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _%L175413%_ '()))))) + (cons _%L176700%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177899 _%stx173615%_))) - (_%specializer-impl176457%_ - (_%generate-specializer-impl173619%_ - _%$klass176184%_ - _%$method-table176186%_ - _%methods-bind176211%_ - _%slots-bind176235%_ - _%specializer-impl176455%_))) + (gxc#xform-wrap-source __tmp179186 _%stx174902%_))) + (_%specializer-impl177744%_ + (_%generate-specializer-impl174906%_ + _%$klass177471%_ + _%$method-table177473%_ + _%methods-bind177498%_ + _%slots-bind177522%_ + _%specializer-impl177742%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp177902 + (let ((__tmp179189 (let () (declare (not safe)) (gx#stx-e - _%L173688%_))) - (__tmp177901 + _%L174975%_))) + (__tmp179188 (let () (declare (not safe)) (gx#stx-e - _%specializer-id176182%_)))) + _%specializer-id177469%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp177902 + __tmp179189 '" => " - __tmp177901)) - (_%generate-specializer-def173620%_ - _%L173688%_ - _%specializer-id176182%_ - _%specializer-impl176457%_)))) - _%hd175886175948%_ - _%hd175883175940%_ - _%hd175880175932%_) - (_%g175862175892%_ - _%g175863175895%_)))) - (_%g175862175892%_ _%g175863175895%_)) - (_%g175862175892%_ _%g175863175895%_)) - (_%g175862175892%_ _%g175863175895%_)))) - (_%g175862175892%_ _%g175863175895%_)) - (_%g175862175892%_ _%g175863175895%_)))) + __tmp179188)) + (_%generate-specializer-def174907%_ + _%L174975%_ + _%specializer-id177469%_ + _%specializer-impl177744%_)))) + _%hd177173177235%_ + _%hd177170177227%_ + _%hd177167177219%_) + (_%g177149177179%_ + _%g177150177182%_)))) + (_%g177149177179%_ _%g177150177182%_)) + (_%g177149177179%_ _%g177150177182%_)) + (_%g177149177179%_ _%g177150177182%_)))) + (_%g177149177179%_ _%g177150177182%_)) + (_%g177149177179%_ _%g177150177182%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175862175892%_ - _%g175863175895%_)))) - (_%g175862175892%_ _%g175863175895%_)))) - (_%g175862175892%_ _%g175863175895%_)))) - (_%g175862175892%_ _%g175863175895%_)))) - (_%g175862175892%_ _%g175863175895%_))))) + (_%g177149177179%_ + _%g177150177182%_)))) + (_%g177149177179%_ _%g177150177182%_)))) + (_%g177149177179%_ _%g177150177182%_)))) + (_%g177149177179%_ _%g177150177182%_)))) + (_%g177149177179%_ _%g177150177182%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175861176460%_ _%L175415%_)) - _%stx173615%_)))) - _%hd175513175636%_ - _%kw-ref175511175657%_ - _%hd175501175623%_ - _%hd175492175599%_ - _%hd175483175575%_) - (_%g175457175519%_ _%g175458175522%_))))))) + (_%g177148177747%_ _%L176702%_)) + _%stx174902%_)))) + _%hd176800176923%_ + _%kw-ref176798176944%_ + _%hd176788176910%_ + _%hd176779176886%_ + _%hd176770176862%_) + (_%g176744176806%_ _%g176745176809%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop175506175641%_ - _%target175503175628%_ + (_%loop176793176928%_ + _%target176790176915%_ '())) - (_%g175457175519%_ - _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_))))) - (_%g175457175519%_ _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)))) + (_%g176744176806%_ + _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_))))) + (_%g176744176806%_ _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175457175519%_ - _%g175458175522%_)) - (_%g175457175519%_ - _%g175458175522%_)) - (_%g175457175519%_ - _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_)) + (_%g176744176806%_ + _%g176745176809%_)) + (_%g176744176806%_ + _%g176745176809%_)) + (_%g176744176806%_ + _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175457175519%_ - _%g175458175522%_)) - (_%g175457175519%_ - _%g175458175522%_)))) - (_%g175457175519%_ - _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)) + (_%g176744176806%_ + _%g176745176809%_)) + (_%g176744176806%_ + _%g176745176809%_)))) + (_%g176744176806%_ + _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175457175519%_ - _%g175458175522%_)))) - (_%g175457175519%_ - _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_)))) + (_%g176744176806%_ + _%g176745176809%_)))) + (_%g176744176806%_ + _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175457175519%_ - _%g175458175522%_)))) - (_%g175457175519%_ - _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)) - (_%g175457175519%_ _%g175458175522%_)))) - (_%g175457175519%_ _%g175458175522%_))))) - (_%g175456176464%_ _%L175414%_))) + (_%g176744176806%_ + _%g176745176809%_)))) + (_%g176744176806%_ + _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)) + (_%g176744176806%_ _%g176745176809%_)))) + (_%g176744176806%_ _%g176745176809%_))))) + (_%g176743177751%_ _%L176701%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd175290175408%_ - _%hd175287175400%_ - _%hd175284175392%_ - _%hd175281175384%_ - _%hd175263175336%_) - (_%g175243175296%_ - _%g175244175299%_)))) - (_%g175243175296%_ - _%g175244175299%_)) - (_%g175243175296%_ _%g175244175299%_)) - (_%g175243175296%_ _%g175244175299%_)) - (_%g175243175296%_ _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)) - (_%g175243175296%_ _%g175244175299%_)) - (_%g175243175296%_ _%g175244175299%_)))) + _%hd176577176695%_ + _%hd176574176687%_ + _%hd176571176679%_ + _%hd176568176671%_ + _%hd176550176623%_) + (_%g176530176583%_ + _%g176531176586%_)))) + (_%g176530176583%_ + _%g176531176586%_)) + (_%g176530176583%_ _%g176531176586%_)) + (_%g176530176583%_ _%g176531176586%_)) + (_%g176530176583%_ _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)) + (_%g176530176583%_ _%g176531176586%_)) + (_%g176530176583%_ _%g176531176586%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175243175296%_ - _%g175244175299%_)) - (_%g175243175296%_ - _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)))) + (_%g176530176583%_ + _%g176531176586%_)) + (_%g176530176583%_ + _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175243175296%_ - _%g175244175299%_)) - (_%g175243175296%_ - _%g175244175299%_)) - (_%g175243175296%_ - _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)) - (_%g175243175296%_ _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)))) + (_%g176530176583%_ + _%g176531176586%_)) + (_%g176530176583%_ + _%g176531176586%_)) + (_%g176530176583%_ + _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)) + (_%g176530176583%_ _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175243175296%_ - _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_)) - (_%g175243175296%_ _%g175244175299%_)) - (_%g175243175296%_ _%g175244175299%_)))) - (_%g175243175296%_ _%g175244175299%_))))) + (_%g176530176583%_ + _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_)) + (_%g176530176583%_ _%g176531176586%_)) + (_%g176530176583%_ _%g176531176586%_)))) + (_%g176530176583%_ _%g176531176586%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175242176467%_ _%L173687%_)) - _%stx173615%_)))))))) - (_%__kont176701176702%_ (lambda () _%stx173615%_))) - (let ((_%__match176730176731%_ - (lambda (_%e173627173655%_ - _%hd173628173658%_ - _%tl173629173660%_ - _%e173630173663%_ - _%hd173631173666%_ - _%tl173632173668%_ - _%e173633173671%_ - _%hd173634173674%_ - _%tl173635173676%_ - _%e173636173679%_ - _%hd173637173682%_ - _%tl173638173684%_) - (let ((_%L173687%_ _%hd173637173682%_) - (_%L173688%_ _%hd173634173674%_)) - (if (let ((__tmp177903 + (_%g176529177754%_ _%L174974%_)) + _%stx174902%_)))))))) + (_%__kont177988177989%_ (lambda () _%stx174902%_))) + (let ((_%__match178017178018%_ + (lambda (_%e174914174942%_ + _%hd174915174945%_ + _%tl174916174947%_ + _%e174917174950%_ + _%hd174918174953%_ + _%tl174919174955%_ + _%e174920174958%_ + _%hd174921174961%_ + _%tl174922174963%_ + _%e174923174966%_ + _%hd174924174969%_ + _%tl174925174971%_) + (let ((_%L174974%_ _%hd174924174969%_) + (_%L174975%_ _%hd174921174961%_)) + (if (let ((__tmp179190 (let () (declare (not safe)) - (gxc#identifier-symbol _%L173688%_)))) + (gxc#identifier-symbol _%L174975%_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp177903)) - (_%__kont176699176700%_ _%L173687%_ _%L173688%_) - (_%__kont176701176702%_)))))) + (gxc#optimizer-top-level-method? __tmp179190)) + (_%__kont177986177987%_ _%L174974%_ _%L174975%_) + (_%__kont177988177989%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176697176698%_)) - (let ((_%e173627173655%_ + (gx#stx-pair? _%__stx177984177985%_)) + (let ((_%e174914174942%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176697176698%_)))) - (let ((_%tl173629173660%_ + (gx#stx-e _%__stx177984177985%_)))) + (let ((_%tl174916174947%_ (let () (declare (not safe)) - (##cdr _%e173627173655%_))) - (_%hd173628173658%_ + (##cdr _%e174914174942%_))) + (_%hd174915174945%_ (let () (declare (not safe)) - (##car _%e173627173655%_)))) + (##car _%e174914174942%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173629173660%_)) - (let ((_%e173630173663%_ + (gx#stx-pair? _%tl174916174947%_)) + (let ((_%e174917174950%_ (let () (declare (not safe)) - (gx#stx-e _%tl173629173660%_)))) - (let ((_%tl173632173668%_ + (gx#stx-e _%tl174916174947%_)))) + (let ((_%tl174919174955%_ (let () (declare (not safe)) - (##cdr _%e173630173663%_))) - (_%hd173631173666%_ + (##cdr _%e174917174950%_))) + (_%hd174918174953%_ (let () (declare (not safe)) - (##car _%e173630173663%_)))) + (##car _%e174917174950%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173631173666%_)) - (let ((_%e173633173671%_ + (gx#stx-pair? _%hd174918174953%_)) + (let ((_%e174920174958%_ (let () (declare (not safe)) - (gx#stx-e _%hd173631173666%_)))) - (let ((_%tl173635173676%_ + (gx#stx-e _%hd174918174953%_)))) + (let ((_%tl174922174963%_ (let () (declare (not safe)) - (##cdr _%e173633173671%_))) - (_%hd173634173674%_ + (##cdr _%e174920174958%_))) + (_%hd174921174961%_ (let () (declare (not safe)) - (##car _%e173633173671%_)))) + (##car _%e174920174958%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173635173676%_)) + _%tl174922174963%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173632173668%_)) - (let ((_%e173636173679%_ + _%tl174919174955%_)) + (let ((_%e174923174966%_ (let () (declare (not safe)) (gx#stx-e - _%tl173632173668%_)))) - (let ((_%tl173638173684%_ + _%tl174919174955%_)))) + (let ((_%tl174925174971%_ (let () (declare (not safe)) - (##cdr _%e173636173679%_))) - (_%hd173637173682%_ + (##cdr _%e174923174966%_))) + (_%hd174924174969%_ (let () (declare (not safe)) - (##car _%e173636173679%_)))) + (##car _%e174923174966%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173638173684%_)) - (_%__match176730176731%_ - _%e173627173655%_ - _%hd173628173658%_ - _%tl173629173660%_ - _%e173630173663%_ - _%hd173631173666%_ - _%tl173632173668%_ - _%e173633173671%_ - _%hd173634173674%_ - _%tl173635173676%_ - _%e173636173679%_ - _%hd173637173682%_ - _%tl173638173684%_) - (_%__kont176701176702%_)))) - (_%__kont176701176702%_)) - (_%__kont176701176702%_)))) - (_%__kont176701176702%_)))) - (_%__kont176701176702%_)))) - (_%__kont176701176702%_)))))))) + _%tl174925174971%_)) + (_%__match178017178018%_ + _%e174914174942%_ + _%hd174915174945%_ + _%tl174916174947%_ + _%e174917174950%_ + _%hd174918174953%_ + _%tl174919174955%_ + _%e174920174958%_ + _%hd174921174961%_ + _%tl174922174963%_ + _%e174923174966%_ + _%hd174924174969%_ + _%tl174925174971%_) + (_%__kont177988177989%_)))) + (_%__kont177988177989%_)) + (_%__kont177988177989%_)))) + (_%__kont177988177989%_)))) + (_%__kont177988177989%_)))) + (_%__kont177988177989%_)))))))) (define gxc#extract-receiver-begin-annotation% - (lambda (_%self173467%_ _%stx173468%_) - (let* ((_%__stx176733176734%_ _%stx173468%_) - (_%g173471173504%_ + (lambda (_%self174754%_ _%stx174755%_) + (let* ((_%__stx178020178021%_ _%stx174755%_) + (_%g174758174791%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176733176734%_))))) - (let ((_%__kont176735176736%_ (lambda (_%L173594%_) _%L173594%_)) - (_%__kont176737176738%_ - (lambda (_%L173533%_ _%L173534%_) + _%__stx178020178021%_))))) + (let ((_%__kont178022178023%_ (lambda (_%L174881%_) _%L174881%_)) + (_%__kont178024178025%_ + (lambda (_%L174820%_ _%L174821%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self173467%_ _%L173533%_))))) + (gxc#compile-e__1 _%self174754%_ _%L174820%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176733176734%_)) - (let ((_%e173474173554%_ + (gx#stx-pair? _%__stx178020178021%_)) + (let ((_%e174761174841%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176733176734%_)))) - (let ((_%tl173476173559%_ + (gx#stx-e _%__stx178020178021%_)))) + (let ((_%tl174763174846%_ (let () (declare (not safe)) - (##cdr _%e173474173554%_))) - (_%hd173475173557%_ + (##cdr _%e174761174841%_))) + (_%hd174762174844%_ (let () (declare (not safe)) - (##car _%e173474173554%_)))) + (##car _%e174761174841%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173476173559%_)) - (let ((_%e173477173562%_ + (gx#stx-pair? _%tl174763174846%_)) + (let ((_%e174764174849%_ (let () (declare (not safe)) - (gx#stx-e _%tl173476173559%_)))) - (let ((_%tl173479173567%_ + (gx#stx-e _%tl174763174846%_)))) + (let ((_%tl174766174854%_ (let () (declare (not safe)) - (##cdr _%e173477173562%_))) - (_%hd173478173565%_ + (##cdr _%e174764174849%_))) + (_%hd174765174852%_ (let () (declare (not safe)) - (##car _%e173477173562%_)))) + (##car _%e174764174849%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173478173565%_)) - (let ((_%e173480173570%_ + (gx#stx-pair? _%hd174765174852%_)) + (let ((_%e174767174857%_ (let () (declare (not safe)) - (gx#stx-e _%hd173478173565%_)))) - (let ((_%tl173482173575%_ + (gx#stx-e _%hd174765174852%_)))) + (let ((_%tl174769174862%_ (let () (declare (not safe)) - (##cdr _%e173480173570%_))) - (_%hd173481173573%_ + (##cdr _%e174767174857%_))) + (_%hd174768174860%_ (let () (declare (not safe)) - (##car _%e173480173570%_)))) + (##car _%e174767174857%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd173481173573%_)) + (gx#identifier? _%hd174768174860%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@receiver - _%hd173481173573%_)) + _%hd174768174860%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173482173575%_)) - (let ((_%e173483173578%_ + _%tl174769174862%_)) + (let ((_%e174770174865%_ (let () (declare (not safe)) (gx#stx-e - _%tl173482173575%_)))) - (let ((_%tl173485173583%_ + _%tl174769174862%_)))) + (let ((_%tl174772174870%_ (let () (declare (not safe)) - (##cdr _%e173483173578%_))) - (_%hd173484173581%_ + (##cdr _%e174770174865%_))) + (_%hd174771174868%_ (let () (declare (not safe)) - (##car _%e173483173578%_)))) + (##car _%e174770174865%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173485173583%_)) + _%tl174772174870%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173479173567%_)) - (let ((_%e173486173586%_ + _%tl174766174854%_)) + (let ((_%e174773174873%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl173479173567%_)))) - (let ((_%tl173488173591%_ + (gx#stx-e _%tl174766174854%_)))) + (let ((_%tl174775174878%_ (let () (declare (not safe)) - (##cdr _%e173486173586%_))) - (_%hd173487173589%_ + (##cdr _%e174773174873%_))) + (_%hd174774174876%_ (let () (declare (not safe)) - (##car _%e173486173586%_)))) + (##car _%e174773174873%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173488173591%_)) - (_%__kont176735176736%_ _%hd173484173581%_) + (gx#stx-null? _%tl174775174878%_)) + (_%__kont178022178023%_ _%hd174771174868%_) (let () (declare (not safe)) - (_%g173471173504%_))))) - (let () (declare (not safe)) (_%g173471173504%_))) + (_%g174758174791%_))))) + (let () (declare (not safe)) (_%g174758174791%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173479173567%_)) - (let ((_%e173497173525%_ + (gx#stx-pair? _%tl174766174854%_)) + (let ((_%e174784174812%_ (let () (declare (not safe)) - (gx#stx-e _%tl173479173567%_)))) - (let ((_%tl173499173530%_ + (gx#stx-e _%tl174766174854%_)))) + (let ((_%tl174786174817%_ (let () (declare (not safe)) - (##cdr _%e173497173525%_))) - (_%hd173498173528%_ + (##cdr _%e174784174812%_))) + (_%hd174785174815%_ (let () (declare (not safe)) - (##car _%e173497173525%_)))) + (##car _%e174784174812%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173499173530%_)) - (_%__kont176737176738%_ - _%hd173498173528%_ - _%hd173478173565%_) + (gx#stx-null? _%tl174786174817%_)) + (_%__kont178024178025%_ + _%hd174785174815%_ + _%hd174765174852%_) (let () (declare (not safe)) - (_%g173471173504%_))))) - (let () (declare (not safe)) (_%g173471173504%_)))))) + (_%g174758174791%_))))) + (let () (declare (not safe)) (_%g174758174791%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173479173567%_)) - (let ((_%e173497173525%_ + _%tl174766174854%_)) + (let ((_%e174784174812%_ (let () (declare (not safe)) (gx#stx-e - _%tl173479173567%_)))) - (let ((_%tl173499173530%_ + _%tl174766174854%_)))) + (let ((_%tl174786174817%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e173497173525%_))) - (_%hd173498173528%_ - (let () (declare (not safe)) (##car _%e173497173525%_)))) + (##cdr _%e174784174812%_))) + (_%hd174785174815%_ + (let () (declare (not safe)) (##car _%e174784174812%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173499173530%_)) - (_%__kont176737176738%_ - _%hd173498173528%_ - _%hd173478173565%_) - (let () (declare (not safe)) (_%g173471173504%_))))) + (gx#stx-null? _%tl174786174817%_)) + (_%__kont178024178025%_ + _%hd174785174815%_ + _%hd174765174852%_) + (let () (declare (not safe)) (_%g174758174791%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g173471173504%_)))) + (_%g174758174791%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173479173567%_)) - (let ((_%e173497173525%_ + _%tl174766174854%_)) + (let ((_%e174784174812%_ (let () (declare (not safe)) (gx#stx-e - _%tl173479173567%_)))) - (let ((_%tl173499173530%_ + _%tl174766174854%_)))) + (let ((_%tl174786174817%_ (let () (declare (not safe)) - (##cdr _%e173497173525%_))) - (_%hd173498173528%_ + (##cdr _%e174784174812%_))) + (_%hd174785174815%_ (let () (declare (not safe)) - (##car _%e173497173525%_)))) + (##car _%e174784174812%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173499173530%_)) - (_%__kont176737176738%_ - _%hd173498173528%_ - _%hd173478173565%_) + _%tl174786174817%_)) + (_%__kont178024178025%_ + _%hd174785174815%_ + _%hd174765174852%_) (let () (declare (not safe)) - (_%g173471173504%_))))) + (_%g174758174791%_))))) (let () (declare (not safe)) - (_%g173471173504%_)))) + (_%g174758174791%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173479173567%_)) - (let ((_%e173497173525%_ + _%tl174766174854%_)) + (let ((_%e174784174812%_ (let () (declare (not safe)) (gx#stx-e - _%tl173479173567%_)))) - (let ((_%tl173499173530%_ + _%tl174766174854%_)))) + (let ((_%tl174786174817%_ (let () (declare (not safe)) - (##cdr _%e173497173525%_))) - (_%hd173498173528%_ + (##cdr _%e174784174812%_))) + (_%hd174785174815%_ (let () (declare (not safe)) - (##car _%e173497173525%_)))) + (##car _%e174784174812%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173499173530%_)) - (_%__kont176737176738%_ - _%hd173498173528%_ - _%hd173478173565%_) + _%tl174786174817%_)) + (_%__kont178024178025%_ + _%hd174785174815%_ + _%hd174765174852%_) (let () (declare (not safe)) - (_%g173471173504%_))))) + (_%g174758174791%_))))) (let () (declare (not safe)) - (_%g173471173504%_)))))) + (_%g174758174791%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173479173567%_)) - (let ((_%e173497173525%_ + (gx#stx-pair? _%tl174766174854%_)) + (let ((_%e174784174812%_ (let () (declare (not safe)) - (gx#stx-e _%tl173479173567%_)))) - (let ((_%tl173499173530%_ + (gx#stx-e _%tl174766174854%_)))) + (let ((_%tl174786174817%_ (let () (declare (not safe)) - (##cdr _%e173497173525%_))) - (_%hd173498173528%_ + (##cdr _%e174784174812%_))) + (_%hd174785174815%_ (let () (declare (not safe)) - (##car _%e173497173525%_)))) + (##car _%e174784174812%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173499173530%_)) - (_%__kont176737176738%_ - _%hd173498173528%_ - _%hd173478173565%_) + _%tl174786174817%_)) + (_%__kont178024178025%_ + _%hd174785174815%_ + _%hd174765174852%_) (let () (declare (not safe)) - (_%g173471173504%_))))) + (_%g174758174791%_))))) (let () (declare (not safe)) - (_%g173471173504%_)))))) - (let () (declare (not safe)) (_%g173471173504%_))))) - (let () (declare (not safe)) (_%g173471173504%_))))))) + (_%g174758174791%_)))))) + (let () (declare (not safe)) (_%g174758174791%_))))) + (let () (declare (not safe)) (_%g174758174791%_))))))) (define gxc#extract-receiver-if% - (lambda (_%self173383%_ _%stx173384%_) - (let* ((_%g173386173407%_ - (lambda (_%g173387173404%_) + (lambda (_%self174670%_ _%stx174671%_) + (let* ((_%g174673174694%_ + (lambda (_%g174674174691%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173387173404%_)))) - (_%g173385173464%_ - (lambda (_%g173387173410%_) + _%g174674174691%_)))) + (_%g174672174751%_ + (lambda (_%g174674174697%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173387173410%_)) - (let ((_%e173391173412%_ + (gx#stx-pair? _%g174674174697%_)) + (let ((_%e174678174699%_ (let () (declare (not safe)) - (gx#stx-e _%g173387173410%_)))) - (let ((_%hd173392173415%_ + (gx#stx-e _%g174674174697%_)))) + (let ((_%hd174679174702%_ (let () (declare (not safe)) - (##car _%e173391173412%_))) - (_%tl173393173417%_ + (##car _%e174678174699%_))) + (_%tl174680174704%_ (let () (declare (not safe)) - (##cdr _%e173391173412%_)))) + (##cdr _%e174678174699%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173393173417%_)) - (let ((_%e173394173420%_ + (gx#stx-pair? _%tl174680174704%_)) + (let ((_%e174681174707%_ (let () (declare (not safe)) - (gx#stx-e _%tl173393173417%_)))) - (let ((_%hd173395173423%_ + (gx#stx-e _%tl174680174704%_)))) + (let ((_%hd174682174710%_ (let () (declare (not safe)) - (##car _%e173394173420%_))) - (_%tl173396173425%_ + (##car _%e174681174707%_))) + (_%tl174683174712%_ (let () (declare (not safe)) - (##cdr _%e173394173420%_)))) + (##cdr _%e174681174707%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173396173425%_)) - (let ((_%e173397173428%_ + (gx#stx-pair? _%tl174683174712%_)) + (let ((_%e174684174715%_ (let () (declare (not safe)) - (gx#stx-e _%tl173396173425%_)))) - (let ((_%hd173398173431%_ + (gx#stx-e _%tl174683174712%_)))) + (let ((_%hd174685174718%_ (let () (declare (not safe)) - (##car _%e173397173428%_))) - (_%tl173399173433%_ + (##car _%e174684174715%_))) + (_%tl174686174720%_ (let () (declare (not safe)) - (##cdr _%e173397173428%_)))) + (##cdr _%e174684174715%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173399173433%_)) - (let ((_%e173400173436%_ + _%tl174686174720%_)) + (let ((_%e174687174723%_ (let () (declare (not safe)) (gx#stx-e - _%tl173399173433%_)))) - (let ((_%hd173401173439%_ + _%tl174686174720%_)))) + (let ((_%hd174688174726%_ (let () (declare (not safe)) - (##car _%e173400173436%_))) - (_%tl173402173441%_ + (##car _%e174687174723%_))) + (_%tl174689174728%_ (let () (declare (not safe)) - (##cdr _%e173400173436%_)))) + (##cdr _%e174687174723%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173402173441%_)) - ((lambda (_%L173444%_ - _%L173445%_ - _%L173446%_) + _%tl174689174728%_)) + ((lambda (_%L174731%_ + _%L174732%_ + _%L174733%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self173383%_ - _%L173445%_))) - _%hd173401173439%_ - _%hd173398173431%_ - _%hd173395173423%_) - (_%g173386173407%_ - _%g173387173410%_)))) - (_%g173386173407%_ - _%g173387173410%_)))) - (_%g173386173407%_ _%g173387173410%_)))) - (_%g173386173407%_ _%g173387173410%_)))) - (_%g173386173407%_ _%g173387173410%_))))) - (_%g173385173464%_ _%stx173384%_)))) + _%self174670%_ + _%L174732%_))) + _%hd174688174726%_ + _%hd174685174718%_ + _%hd174682174710%_) + (_%g174673174694%_ + _%g174674174697%_)))) + (_%g174673174694%_ + _%g174674174697%_)))) + (_%g174673174694%_ _%g174674174697%_)))) + (_%g174673174694%_ _%g174674174697%_)))) + (_%g174673174694%_ _%g174674174697%_))))) + (_%g174672174751%_ _%stx174671%_)))) (define gxc#collect-object-refs-call% - (lambda (_%self172344%_ _%stx172345%_) - (let* ((_%__stx176799176800%_ _%stx172345%_) - (_%g172353172575%_ + (lambda (_%self173631%_ _%stx173632%_) + (let* ((_%__stx178086178087%_ _%stx173632%_) + (_%g173640173862%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176799176800%_))))) - (let ((_%__kont176801176802%_ - (lambda (_%L173332%_ _%L173333%_ _%L173334%_ _%L173335%_) - (let ((__tmp177905 + _%__stx178086178087%_))))) + (let ((_%__kont178088178089%_ + (lambda (_%L174619%_ _%L174620%_ _%L174621%_ _%L174622%_) + (let ((__tmp179192 (let () (declare (not safe)) - (slot-ref__0 _%self172344%_ 'methods))) - (__tmp177904 + (slot-ref__0 _%self173631%_ 'methods))) + (__tmp179191 (let () (declare (not safe)) - (gx#stx-e _%L173333%_)))) + (gx#stx-e _%L174620%_)))) (declare (not safe)) - (hash-put! __tmp177905 __tmp177904 '#t)) + (hash-put! __tmp179192 __tmp179191 '#t)) (for-each - (lambda (_%g173368173370%_) + (lambda (_%g174655174657%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172344%_ _%g173368173370%_))) - (let ((__tmp177906 - (lambda (_%g173372173375%_ _%g173373173377%_) - (cons _%g173372173375%_ _%g173373173377%_)))) + (gxc#compile-e__1 _%self173631%_ _%g174655174657%_))) + (let ((__tmp179193 + (lambda (_%g174659174662%_ _%g174660174664%_) + (cons _%g174659174662%_ _%g174660174664%_)))) (declare (not safe)) - (__foldr1 __tmp177906 '() _%L173332%_))))) - (_%__kont176805176806%_ - (lambda (_%L173167%_ - _%L173168%_ - _%L173169%_ - _%L173170%_ - _%L173171%_) - (let ((__tmp177908 + (__foldr1 __tmp179193 '() _%L174619%_))))) + (_%__kont178092178093%_ + (lambda (_%L174454%_ + _%L174455%_ + _%L174456%_ + _%L174457%_ + _%L174458%_) + (let ((__tmp179195 (let () (declare (not safe)) - (slot-ref__0 _%self172344%_ 'methods))) - (__tmp177907 + (slot-ref__0 _%self173631%_ 'methods))) + (__tmp179194 (let () (declare (not safe)) - (gx#stx-e _%L173168%_)))) + (gx#stx-e _%L174455%_)))) (declare (not safe)) - (hash-put! __tmp177908 __tmp177907 '#t)) + (hash-put! __tmp179195 __tmp179194 '#t)) (for-each - (lambda (_%g173211173213%_) + (lambda (_%g174498174500%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172344%_ _%g173211173213%_))) - (let ((__tmp177909 - (lambda (_%g173215173218%_ _%g173216173220%_) - (cons _%g173215173218%_ _%g173216173220%_)))) + (gxc#compile-e__1 _%self173631%_ _%g174498174500%_))) + (let ((__tmp179196 + (lambda (_%g174502174505%_ _%g174503174507%_) + (cons _%g174502174505%_ _%g174503174507%_)))) (declare (not safe)) - (__foldr1 __tmp177909 '() _%L173167%_))))) - (_%__kont176809176810%_ - (lambda (_%L173000%_ _%L173001%_ _%L173002%_) - (let ((__tmp177911 + (__foldr1 __tmp179196 '() _%L174454%_))))) + (_%__kont178096178097%_ + (lambda (_%L174287%_ _%L174288%_ _%L174289%_) + (let ((__tmp179198 (let () (declare (not safe)) - (slot-ref__0 _%self172344%_ 'slots))) - (__tmp177910 + (slot-ref__0 _%self173631%_ 'slots))) + (__tmp179197 (let () (declare (not safe)) - (gx#stx-e _%L173000%_)))) + (gx#stx-e _%L174287%_)))) (declare (not safe)) - (hash-put! __tmp177911 __tmp177910 '#t)))) - (_%__kont176811176812%_ - (lambda (_%L172877%_ _%L172878%_ _%L172879%_ _%L172880%_) - (let ((__tmp177913 + (hash-put! __tmp179198 __tmp179197 '#t)))) + (_%__kont178098178099%_ + (lambda (_%L174164%_ _%L174165%_ _%L174166%_ _%L174167%_) + (let ((__tmp179200 (let () (declare (not safe)) - (slot-ref__0 _%self172344%_ 'slots))) - (__tmp177912 + (slot-ref__0 _%self173631%_ 'slots))) + (__tmp179199 (let () (declare (not safe)) - (gx#stx-e _%L172878%_)))) + (gx#stx-e _%L174165%_)))) (declare (not safe)) - (hash-put! __tmp177913 __tmp177912 '#t)) + (hash-put! __tmp179200 __tmp179199 '#t)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172344%_ _%L172877%_)))) - (_%__kont176813176814%_ - (lambda (_%L172751%_ _%L172752%_) - (let* ((_%accessor172774%_ - (let ((__tmp177914 + (gxc#compile-e__1 _%self173631%_ _%L174164%_)))) + (_%__kont178100178101%_ + (lambda (_%L174038%_ _%L174039%_) + (let* ((_%accessor174061%_ + (let ((__tmp179201 (let () (declare (not safe)) - (gxc#identifier-symbol _%L172752%_)))) + (gxc#identifier-symbol _%L174039%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp177914))) - (_%klass172776%_ - (let ((__tmp177915 + (gxc#optimizer-resolve-type __tmp179201))) + (_%klass174063%_ + (let ((__tmp179202 (##structure-ref - _%accessor172774%_ + _%accessor174061%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx172345%_ - __tmp177915))) - (_%slot172778%_ + _%stx173632%_ + __tmp179202))) + (_%slot174065%_ (##structure-ref - _%accessor172774%_ + _%accessor174061%_ '3 gxc#!accessor::t '#f))) (if (if (##structure-ref - _%accessor172774%_ + _%accessor174061%_ '4 gxc#!accessor::t '#f) @@ -4837,56 +4837,56 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass172776%_ - _%slot172778%_)) + _%klass174063%_ + _%slot174065%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass172776%_ + _%klass174063%_ '8 '#f '#f)))) '#!void - (let ((__tmp177917 + (let ((__tmp179204 (let () (declare (not safe)) - (slot-ref__0 _%self172344%_ 'slots))) - (__tmp177916 + (slot-ref__0 _%self173631%_ 'slots))) + (__tmp179203 (##structure-ref - _%accessor172774%_ + _%accessor174061%_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (hash-put! __tmp177917 __tmp177916 '#t)))))) - (_%__kont176815176816%_ - (lambda (_%L172651%_ _%L172652%_ _%L172653%_) - (let* ((_%mutator172680%_ - (let ((__tmp177918 + (hash-put! __tmp179204 __tmp179203 '#t)))))) + (_%__kont178102178103%_ + (lambda (_%L173938%_ _%L173939%_ _%L173940%_) + (let* ((_%mutator173967%_ + (let ((__tmp179205 (let () (declare (not safe)) - (gxc#identifier-symbol _%L172653%_)))) + (gxc#identifier-symbol _%L173940%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp177918))) - (_%klass172682%_ - (let ((__tmp177919 + (gxc#optimizer-resolve-type __tmp179205))) + (_%klass173969%_ + (let ((__tmp179206 (##structure-ref - _%mutator172680%_ + _%mutator173967%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx172345%_ - __tmp177919))) - (_%slot172684%_ + _%stx173632%_ + __tmp179206))) + (_%slot173971%_ (##structure-ref - _%mutator172680%_ + _%mutator173967%_ '3 gxc#!mutator::t '#f))) (if (if (##structure-ref - _%mutator172680%_ + _%mutator173967%_ '4 gxc#!mutator::t '#f) @@ -4894,2064 +4894,2064 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass172682%_ - _%slot172684%_)) + _%klass173969%_ + _%slot173971%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass172682%_ + _%klass173969%_ '8 '#f '#f)))) '#!void - (let ((__tmp177920 + (let ((__tmp179207 (let () (declare (not safe)) - (slot-ref__0 _%self172344%_ 'slots)))) + (slot-ref__0 _%self173631%_ 'slots)))) (declare (not safe)) - (hash-put! __tmp177920 _%slot172684%_ '#t))) + (hash-put! __tmp179207 _%slot173971%_ '#t))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172344%_ _%L172651%_))))) - (_%__kont176817176818%_ + (gxc#compile-e__1 _%self173631%_ _%L173938%_))))) + (_%__kont178104178105%_ (lambda () (let () (declare (not safe)) - (gxc#apply-operands _%self172344%_ _%stx172345%_))))) - (let* ((_%__match177298177299%_ - (lambda (_%e172547172587%_ - _%hd172548172590%_ - _%tl172549172592%_ - _%e172550172595%_ - _%hd172551172598%_ - _%tl172552172600%_ - _%e172553172603%_ - _%hd172554172606%_ - _%tl172555172608%_ - _%e172556172611%_ - _%hd172557172614%_ - _%tl172558172616%_ - _%e172559172619%_ - _%hd172560172622%_ - _%tl172561172624%_ - _%e172562172627%_ - _%hd172563172630%_ - _%tl172564172632%_ - _%e172565172635%_ - _%hd172566172638%_ - _%tl172567172640%_ - _%e172568172643%_ - _%hd172569172646%_ - _%tl172570172648%_) - (let ((_%L172651%_ _%hd172569172646%_) - (_%L172652%_ _%hd172566172638%_) - (_%L172653%_ _%hd172557172614%_)) - (if (and (let ((__tmp177921 - (let ((__tmp177922 + (gxc#apply-operands _%self173631%_ _%stx173632%_))))) + (let* ((_%__match178585178586%_ + (lambda (_%e173834173874%_ + _%hd173835173877%_ + _%tl173836173879%_ + _%e173837173882%_ + _%hd173838173885%_ + _%tl173839173887%_ + _%e173840173890%_ + _%hd173841173893%_ + _%tl173842173895%_ + _%e173843173898%_ + _%hd173844173901%_ + _%tl173845173903%_ + _%e173846173906%_ + _%hd173847173909%_ + _%tl173848173911%_ + _%e173849173914%_ + _%hd173850173917%_ + _%tl173851173919%_ + _%e173852173922%_ + _%hd173853173925%_ + _%tl173854173927%_ + _%e173855173930%_ + _%hd173856173933%_ + _%tl173857173935%_) + (let ((_%L173938%_ _%hd173856173933%_) + (_%L173939%_ _%hd173853173925%_) + (_%L173940%_ _%hd173844173901%_)) + (if (and (let ((__tmp179208 + (let ((__tmp179209 (let () (declare (not safe)) (gxc#identifier-symbol - _%L172653%_)))) + _%L173940%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp177922)))) + __tmp179209)))) (declare (not safe)) (##structure-instance-of? - __tmp177921 + __tmp179208 'gxc#!mutator::t)) - (let ((__tmp177923 + (let ((__tmp179210 (let () (declare (not safe)) (slot-ref__0 - _%self172344%_ + _%self173631%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172652%_ - __tmp177923))) - (_%__kont176815176816%_ - _%L172651%_ - _%L172652%_ - _%L172653%_) - (_%__kont176817176818%_))))) - (_%__match177296177297%_ - (lambda (_%e172547172587%_ - _%hd172548172590%_ - _%tl172549172592%_ - _%e172550172595%_ - _%hd172551172598%_ - _%tl172552172600%_ - _%e172553172603%_ - _%hd172554172606%_ - _%tl172555172608%_ - _%e172556172611%_ - _%hd172557172614%_ - _%tl172558172616%_ - _%e172559172619%_ - _%hd172560172622%_ - _%tl172561172624%_ - _%e172562172627%_ - _%hd172563172630%_ - _%tl172564172632%_ - _%e172565172635%_ - _%hd172566172638%_ - _%tl172567172640%_ - _%e172568172643%_ - _%hd172569172646%_ - _%tl172570172648%_) + _%L173939%_ + __tmp179210))) + (_%__kont178102178103%_ + _%L173938%_ + _%L173939%_ + _%L173940%_) + (_%__kont178104178105%_))))) + (_%__match178583178584%_ + (lambda (_%e173834173874%_ + _%hd173835173877%_ + _%tl173836173879%_ + _%e173837173882%_ + _%hd173838173885%_ + _%tl173839173887%_ + _%e173840173890%_ + _%hd173841173893%_ + _%tl173842173895%_ + _%e173843173898%_ + _%hd173844173901%_ + _%tl173845173903%_ + _%e173846173906%_ + _%hd173847173909%_ + _%tl173848173911%_ + _%e173849173914%_ + _%hd173850173917%_ + _%tl173851173919%_ + _%e173852173922%_ + _%hd173853173925%_ + _%tl173854173927%_ + _%e173855173930%_ + _%hd173856173933%_ + _%tl173857173935%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172570172648%_)) - (_%__match177298177299%_ - _%e172547172587%_ - _%hd172548172590%_ - _%tl172549172592%_ - _%e172550172595%_ - _%hd172551172598%_ - _%tl172552172600%_ - _%e172553172603%_ - _%hd172554172606%_ - _%tl172555172608%_ - _%e172556172611%_ - _%hd172557172614%_ - _%tl172558172616%_ - _%e172559172619%_ - _%hd172560172622%_ - _%tl172561172624%_ - _%e172562172627%_ - _%hd172563172630%_ - _%tl172564172632%_ - _%e172565172635%_ - _%hd172566172638%_ - _%tl172567172640%_ - _%e172568172643%_ - _%hd172569172646%_ - _%tl172570172648%_) - (_%__kont176817176818%_)))) - (_%__match177290177291%_ - (lambda (_%e172547172587%_ - _%hd172548172590%_ - _%tl172549172592%_ - _%e172550172595%_ - _%hd172551172598%_ - _%tl172552172600%_ - _%e172553172603%_ - _%hd172554172606%_ - _%tl172555172608%_ - _%e172556172611%_ - _%hd172557172614%_ - _%tl172558172616%_ - _%e172559172619%_ - _%hd172560172622%_ - _%tl172561172624%_ - _%e172562172627%_ - _%hd172563172630%_ - _%tl172564172632%_ - _%e172565172635%_ - _%hd172566172638%_ - _%tl172567172640%_) + (gx#stx-null? _%tl173857173935%_)) + (_%__match178585178586%_ + _%e173834173874%_ + _%hd173835173877%_ + _%tl173836173879%_ + _%e173837173882%_ + _%hd173838173885%_ + _%tl173839173887%_ + _%e173840173890%_ + _%hd173841173893%_ + _%tl173842173895%_ + _%e173843173898%_ + _%hd173844173901%_ + _%tl173845173903%_ + _%e173846173906%_ + _%hd173847173909%_ + _%tl173848173911%_ + _%e173849173914%_ + _%hd173850173917%_ + _%tl173851173919%_ + _%e173852173922%_ + _%hd173853173925%_ + _%tl173854173927%_ + _%e173855173930%_ + _%hd173856173933%_ + _%tl173857173935%_) + (_%__kont178104178105%_)))) + (_%__match178577178578%_ + (lambda (_%e173834173874%_ + _%hd173835173877%_ + _%tl173836173879%_ + _%e173837173882%_ + _%hd173838173885%_ + _%tl173839173887%_ + _%e173840173890%_ + _%hd173841173893%_ + _%tl173842173895%_ + _%e173843173898%_ + _%hd173844173901%_ + _%tl173845173903%_ + _%e173846173906%_ + _%hd173847173909%_ + _%tl173848173911%_ + _%e173849173914%_ + _%hd173850173917%_ + _%tl173851173919%_ + _%e173852173922%_ + _%hd173853173925%_ + _%tl173854173927%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172561172624%_)) - (let ((_%e172568172643%_ + (gx#stx-pair? _%tl173848173911%_)) + (let ((_%e173855173930%_ (let () (declare (not safe)) - (gx#stx-e _%tl172561172624%_)))) - (let ((_%tl172570172648%_ + (gx#stx-e _%tl173848173911%_)))) + (let ((_%tl173857173935%_ (let () (declare (not safe)) - (##cdr _%e172568172643%_))) - (_%hd172569172646%_ + (##cdr _%e173855173930%_))) + (_%hd173856173933%_ (let () (declare (not safe)) - (##car _%e172568172643%_)))) + (##car _%e173855173930%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172570172648%_)) - (_%__match177298177299%_ - _%e172547172587%_ - _%hd172548172590%_ - _%tl172549172592%_ - _%e172550172595%_ - _%hd172551172598%_ - _%tl172552172600%_ - _%e172553172603%_ - _%hd172554172606%_ - _%tl172555172608%_ - _%e172556172611%_ - _%hd172557172614%_ - _%tl172558172616%_ - _%e172559172619%_ - _%hd172560172622%_ - _%tl172561172624%_ - _%e172562172627%_ - _%hd172563172630%_ - _%tl172564172632%_ - _%e172565172635%_ - _%hd172566172638%_ - _%tl172567172640%_ - _%e172568172643%_ - _%hd172569172646%_ - _%tl172570172648%_) - (_%__kont176817176818%_)))) - (_%__kont176817176818%_)))) - (_%__match177236177237%_ - (lambda (_%e172523172695%_ - _%hd172524172698%_ - _%tl172525172700%_ - _%e172526172703%_ - _%hd172527172706%_ - _%tl172528172708%_ - _%e172529172711%_ - _%hd172530172714%_ - _%tl172531172716%_ - _%e172532172719%_ - _%hd172533172722%_ - _%tl172534172724%_ - _%e172535172727%_ - _%hd172536172730%_ - _%tl172537172732%_ - _%e172538172735%_ - _%hd172539172738%_ - _%tl172540172740%_ - _%e172541172743%_ - _%hd172542172746%_ - _%tl172543172748%_) - (let ((_%L172751%_ _%hd172542172746%_) - (_%L172752%_ _%hd172533172722%_)) - (if (and (let ((__tmp177924 - (let ((__tmp177925 + (gx#stx-null? _%tl173857173935%_)) + (_%__match178585178586%_ + _%e173834173874%_ + _%hd173835173877%_ + _%tl173836173879%_ + _%e173837173882%_ + _%hd173838173885%_ + _%tl173839173887%_ + _%e173840173890%_ + _%hd173841173893%_ + _%tl173842173895%_ + _%e173843173898%_ + _%hd173844173901%_ + _%tl173845173903%_ + _%e173846173906%_ + _%hd173847173909%_ + _%tl173848173911%_ + _%e173849173914%_ + _%hd173850173917%_ + _%tl173851173919%_ + _%e173852173922%_ + _%hd173853173925%_ + _%tl173854173927%_ + _%e173855173930%_ + _%hd173856173933%_ + _%tl173857173935%_) + (_%__kont178104178105%_)))) + (_%__kont178104178105%_)))) + (_%__match178523178524%_ + (lambda (_%e173810173982%_ + _%hd173811173985%_ + _%tl173812173987%_ + _%e173813173990%_ + _%hd173814173993%_ + _%tl173815173995%_ + _%e173816173998%_ + _%hd173817174001%_ + _%tl173818174003%_ + _%e173819174006%_ + _%hd173820174009%_ + _%tl173821174011%_ + _%e173822174014%_ + _%hd173823174017%_ + _%tl173824174019%_ + _%e173825174022%_ + _%hd173826174025%_ + _%tl173827174027%_ + _%e173828174030%_ + _%hd173829174033%_ + _%tl173830174035%_) + (let ((_%L174038%_ _%hd173829174033%_) + (_%L174039%_ _%hd173820174009%_)) + (if (and (let ((__tmp179211 + (let ((__tmp179212 (let () (declare (not safe)) (gxc#identifier-symbol - _%L172752%_)))) + _%L174039%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp177925)))) + __tmp179212)))) (declare (not safe)) (##structure-instance-of? - __tmp177924 + __tmp179211 'gxc#!accessor::t)) - (let ((__tmp177926 + (let ((__tmp179213 (let () (declare (not safe)) (slot-ref__0 - _%self172344%_ + _%self173631%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172751%_ - __tmp177926))) - (_%__kont176813176814%_ _%L172751%_ _%L172752%_) - (_%__kont176817176818%_))))) - (_%__match177234177235%_ - (lambda (_%e172523172695%_ - _%hd172524172698%_ - _%tl172525172700%_ - _%e172526172703%_ - _%hd172527172706%_ - _%tl172528172708%_ - _%e172529172711%_ - _%hd172530172714%_ - _%tl172531172716%_ - _%e172532172719%_ - _%hd172533172722%_ - _%tl172534172724%_ - _%e172535172727%_ - _%hd172536172730%_ - _%tl172537172732%_ - _%e172538172735%_ - _%hd172539172738%_ - _%tl172540172740%_ - _%e172541172743%_ - _%hd172542172746%_ - _%tl172543172748%_) + _%L174038%_ + __tmp179213))) + (_%__kont178100178101%_ _%L174038%_ _%L174039%_) + (_%__kont178104178105%_))))) + (_%__match178521178522%_ + (lambda (_%e173810173982%_ + _%hd173811173985%_ + _%tl173812173987%_ + _%e173813173990%_ + _%hd173814173993%_ + _%tl173815173995%_ + _%e173816173998%_ + _%hd173817174001%_ + _%tl173818174003%_ + _%e173819174006%_ + _%hd173820174009%_ + _%tl173821174011%_ + _%e173822174014%_ + _%hd173823174017%_ + _%tl173824174019%_ + _%e173825174022%_ + _%hd173826174025%_ + _%tl173827174027%_ + _%e173828174030%_ + _%hd173829174033%_ + _%tl173830174035%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172537172732%_)) - (_%__match177236177237%_ - _%e172523172695%_ - _%hd172524172698%_ - _%tl172525172700%_ - _%e172526172703%_ - _%hd172527172706%_ - _%tl172528172708%_ - _%e172529172711%_ - _%hd172530172714%_ - _%tl172531172716%_ - _%e172532172719%_ - _%hd172533172722%_ - _%tl172534172724%_ - _%e172535172727%_ - _%hd172536172730%_ - _%tl172537172732%_ - _%e172538172735%_ - _%hd172539172738%_ - _%tl172540172740%_ - _%e172541172743%_ - _%hd172542172746%_ - _%tl172543172748%_) - (_%__match177290177291%_ - _%e172523172695%_ - _%hd172524172698%_ - _%tl172525172700%_ - _%e172526172703%_ - _%hd172527172706%_ - _%tl172528172708%_ - _%e172529172711%_ - _%hd172530172714%_ - _%tl172531172716%_ - _%e172532172719%_ - _%hd172533172722%_ - _%tl172534172724%_ - _%e172535172727%_ - _%hd172536172730%_ - _%tl172537172732%_ - _%e172538172735%_ - _%hd172539172738%_ - _%tl172540172740%_ - _%e172541172743%_ - _%hd172542172746%_ - _%tl172543172748%_)))) - (_%__match177180177181%_ - (lambda (_%e172488172789%_ - _%hd172489172792%_ - _%tl172490172794%_ - _%e172491172797%_ - _%hd172492172800%_ - _%tl172493172802%_ - _%e172494172805%_ - _%hd172495172808%_ - _%tl172496172810%_ - _%e172497172813%_ - _%hd172498172816%_ - _%tl172499172818%_ - _%e172500172821%_ - _%hd172501172824%_ - _%tl172502172826%_ - _%e172503172829%_ - _%hd172504172832%_ - _%tl172505172834%_ - _%e172506172837%_ - _%hd172507172840%_ - _%tl172508172842%_ - _%e172509172845%_ - _%hd172510172848%_ - _%tl172511172850%_ - _%e172512172853%_ - _%hd172513172856%_ - _%tl172514172858%_ - _%e172515172861%_ - _%hd172516172864%_ - _%tl172517172866%_ - _%e172518172869%_ - _%hd172519172872%_ - _%tl172520172874%_) - (let ((_%L172877%_ _%hd172519172872%_) - (_%L172878%_ _%hd172516172864%_) - (_%L172879%_ _%hd172507172840%_) - (_%L172880%_ _%hd172498172816%_)) + (gx#stx-null? _%tl173824174019%_)) + (_%__match178523178524%_ + _%e173810173982%_ + _%hd173811173985%_ + _%tl173812173987%_ + _%e173813173990%_ + _%hd173814173993%_ + _%tl173815173995%_ + _%e173816173998%_ + _%hd173817174001%_ + _%tl173818174003%_ + _%e173819174006%_ + _%hd173820174009%_ + _%tl173821174011%_ + _%e173822174014%_ + _%hd173823174017%_ + _%tl173824174019%_ + _%e173825174022%_ + _%hd173826174025%_ + _%tl173827174027%_ + _%e173828174030%_ + _%hd173829174033%_ + _%tl173830174035%_) + (_%__match178577178578%_ + _%e173810173982%_ + _%hd173811173985%_ + _%tl173812173987%_ + _%e173813173990%_ + _%hd173814173993%_ + _%tl173815173995%_ + _%e173816173998%_ + _%hd173817174001%_ + _%tl173818174003%_ + _%e173819174006%_ + _%hd173820174009%_ + _%tl173821174011%_ + _%e173822174014%_ + _%hd173823174017%_ + _%tl173824174019%_ + _%e173825174022%_ + _%hd173826174025%_ + _%tl173827174027%_ + _%e173828174030%_ + _%hd173829174033%_ + _%tl173830174035%_)))) + (_%__match178467178468%_ + (lambda (_%e173775174076%_ + _%hd173776174079%_ + _%tl173777174081%_ + _%e173778174084%_ + _%hd173779174087%_ + _%tl173780174089%_ + _%e173781174092%_ + _%hd173782174095%_ + _%tl173783174097%_ + _%e173784174100%_ + _%hd173785174103%_ + _%tl173786174105%_ + _%e173787174108%_ + _%hd173788174111%_ + _%tl173789174113%_ + _%e173790174116%_ + _%hd173791174119%_ + _%tl173792174121%_ + _%e173793174124%_ + _%hd173794174127%_ + _%tl173795174129%_ + _%e173796174132%_ + _%hd173797174135%_ + _%tl173798174137%_ + _%e173799174140%_ + _%hd173800174143%_ + _%tl173801174145%_ + _%e173802174148%_ + _%hd173803174151%_ + _%tl173804174153%_ + _%e173805174156%_ + _%hd173806174159%_ + _%tl173807174161%_) + (let ((_%L174164%_ _%hd173806174159%_) + (_%L174165%_ _%hd173803174151%_) + (_%L174166%_ _%hd173794174127%_) + (_%L174167%_ _%hd173785174103%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172880%_ + _%L174167%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172880%_ + _%L174167%_ 'unchecked-slot-set!))) - (let ((__tmp177927 + (let ((__tmp179214 (let () (declare (not safe)) (slot-ref__0 - _%self172344%_ + _%self173631%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172879%_ - __tmp177927))) - (_%__kont176811176812%_ - _%L172877%_ - _%L172878%_ - _%L172879%_ - _%L172880%_) - (_%__kont176817176818%_))))) - (_%__match177172177173%_ - (lambda (_%e172488172789%_ - _%hd172489172792%_ - _%tl172490172794%_ - _%e172491172797%_ - _%hd172492172800%_ - _%tl172493172802%_ - _%e172494172805%_ - _%hd172495172808%_ - _%tl172496172810%_ - _%e172497172813%_ - _%hd172498172816%_ - _%tl172499172818%_ - _%e172500172821%_ - _%hd172501172824%_ - _%tl172502172826%_ - _%e172503172829%_ - _%hd172504172832%_ - _%tl172505172834%_ - _%e172506172837%_ - _%hd172507172840%_ - _%tl172508172842%_ - _%e172509172845%_ - _%hd172510172848%_ - _%tl172511172850%_ - _%e172512172853%_ - _%hd172513172856%_ - _%tl172514172858%_ - _%e172515172861%_ - _%hd172516172864%_ - _%tl172517172866%_) + _%L174166%_ + __tmp179214))) + (_%__kont178098178099%_ + _%L174164%_ + _%L174165%_ + _%L174166%_ + _%L174167%_) + (_%__kont178104178105%_))))) + (_%__match178459178460%_ + (lambda (_%e173775174076%_ + _%hd173776174079%_ + _%tl173777174081%_ + _%e173778174084%_ + _%hd173779174087%_ + _%tl173780174089%_ + _%e173781174092%_ + _%hd173782174095%_ + _%tl173783174097%_ + _%e173784174100%_ + _%hd173785174103%_ + _%tl173786174105%_ + _%e173787174108%_ + _%hd173788174111%_ + _%tl173789174113%_ + _%e173790174116%_ + _%hd173791174119%_ + _%tl173792174121%_ + _%e173793174124%_ + _%hd173794174127%_ + _%tl173795174129%_ + _%e173796174132%_ + _%hd173797174135%_ + _%tl173798174137%_ + _%e173799174140%_ + _%hd173800174143%_ + _%tl173801174145%_ + _%e173802174148%_ + _%hd173803174151%_ + _%tl173804174153%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172511172850%_)) - (let ((_%e172518172869%_ + (gx#stx-pair? _%tl173798174137%_)) + (let ((_%e173805174156%_ (let () (declare (not safe)) - (gx#stx-e _%tl172511172850%_)))) - (let ((_%tl172520172874%_ + (gx#stx-e _%tl173798174137%_)))) + (let ((_%tl173807174161%_ (let () (declare (not safe)) - (##cdr _%e172518172869%_))) - (_%hd172519172872%_ + (##cdr _%e173805174156%_))) + (_%hd173806174159%_ (let () (declare (not safe)) - (##car _%e172518172869%_)))) + (##car _%e173805174156%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172520172874%_)) - (_%__match177180177181%_ - _%e172488172789%_ - _%hd172489172792%_ - _%tl172490172794%_ - _%e172491172797%_ - _%hd172492172800%_ - _%tl172493172802%_ - _%e172494172805%_ - _%hd172495172808%_ - _%tl172496172810%_ - _%e172497172813%_ - _%hd172498172816%_ - _%tl172499172818%_ - _%e172500172821%_ - _%hd172501172824%_ - _%tl172502172826%_ - _%e172503172829%_ - _%hd172504172832%_ - _%tl172505172834%_ - _%e172506172837%_ - _%hd172507172840%_ - _%tl172508172842%_ - _%e172509172845%_ - _%hd172510172848%_ - _%tl172511172850%_ - _%e172512172853%_ - _%hd172513172856%_ - _%tl172514172858%_ - _%e172515172861%_ - _%hd172516172864%_ - _%tl172517172866%_ - _%e172518172869%_ - _%hd172519172872%_ - _%tl172520172874%_) - (_%__kont176817176818%_)))) - (_%__match177296177297%_ - _%e172488172789%_ - _%hd172489172792%_ - _%tl172490172794%_ - _%e172491172797%_ - _%hd172492172800%_ - _%tl172493172802%_ - _%e172494172805%_ - _%hd172495172808%_ - _%tl172496172810%_ - _%e172497172813%_ - _%hd172498172816%_ - _%tl172499172818%_ - _%e172500172821%_ - _%hd172501172824%_ - _%tl172502172826%_ - _%e172503172829%_ - _%hd172504172832%_ - _%tl172505172834%_ - _%e172506172837%_ - _%hd172507172840%_ - _%tl172508172842%_ - _%e172509172845%_ - _%hd172510172848%_ - _%tl172511172850%_)))) - (_%__match177094177095%_ - (lambda (_%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_ - _%e172478172984%_ - _%hd172479172987%_ - _%tl172480172989%_ - _%e172481172992%_ - _%hd172482172995%_ - _%tl172483172997%_) - (let ((_%L173000%_ _%hd172482172995%_) - (_%L173001%_ _%hd172473172971%_) - (_%L173002%_ _%hd172464172947%_)) + (gx#stx-null? _%tl173807174161%_)) + (_%__match178467178468%_ + _%e173775174076%_ + _%hd173776174079%_ + _%tl173777174081%_ + _%e173778174084%_ + _%hd173779174087%_ + _%tl173780174089%_ + _%e173781174092%_ + _%hd173782174095%_ + _%tl173783174097%_ + _%e173784174100%_ + _%hd173785174103%_ + _%tl173786174105%_ + _%e173787174108%_ + _%hd173788174111%_ + _%tl173789174113%_ + _%e173790174116%_ + _%hd173791174119%_ + _%tl173792174121%_ + _%e173793174124%_ + _%hd173794174127%_ + _%tl173795174129%_ + _%e173796174132%_ + _%hd173797174135%_ + _%tl173798174137%_ + _%e173799174140%_ + _%hd173800174143%_ + _%tl173801174145%_ + _%e173802174148%_ + _%hd173803174151%_ + _%tl173804174153%_ + _%e173805174156%_ + _%hd173806174159%_ + _%tl173807174161%_) + (_%__kont178104178105%_)))) + (_%__match178583178584%_ + _%e173775174076%_ + _%hd173776174079%_ + _%tl173777174081%_ + _%e173778174084%_ + _%hd173779174087%_ + _%tl173780174089%_ + _%e173781174092%_ + _%hd173782174095%_ + _%tl173783174097%_ + _%e173784174100%_ + _%hd173785174103%_ + _%tl173786174105%_ + _%e173787174108%_ + _%hd173788174111%_ + _%tl173789174113%_ + _%e173790174116%_ + _%hd173791174119%_ + _%tl173792174121%_ + _%e173793174124%_ + _%hd173794174127%_ + _%tl173795174129%_ + _%e173796174132%_ + _%hd173797174135%_ + _%tl173798174137%_)))) + (_%__match178381178382%_ + (lambda (_%e173741174207%_ + _%hd173742174210%_ + _%tl173743174212%_ + _%e173744174215%_ + _%hd173745174218%_ + _%tl173746174220%_ + _%e173747174223%_ + _%hd173748174226%_ + _%tl173749174228%_ + _%e173750174231%_ + _%hd173751174234%_ + _%tl173752174236%_ + _%e173753174239%_ + _%hd173754174242%_ + _%tl173755174244%_ + _%e173756174247%_ + _%hd173757174250%_ + _%tl173758174252%_ + _%e173759174255%_ + _%hd173760174258%_ + _%tl173761174260%_ + _%e173762174263%_ + _%hd173763174266%_ + _%tl173764174268%_ + _%e173765174271%_ + _%hd173766174274%_ + _%tl173767174276%_ + _%e173768174279%_ + _%hd173769174282%_ + _%tl173770174284%_) + (let ((_%L174287%_ _%hd173769174282%_) + (_%L174288%_ _%hd173760174258%_) + (_%L174289%_ _%hd173751174234%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173002%_ + _%L174289%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173002%_ + _%L174289%_ 'unchecked-slot-ref))) - (let ((__tmp177928 + (let ((__tmp179215 (let () (declare (not safe)) (slot-ref__0 - _%self172344%_ + _%self173631%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173001%_ - __tmp177928))) - (_%__kont176809176810%_ - _%L173000%_ - _%L173001%_ - _%L173002%_) - (_%__match177298177299%_ - _%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_))))) - (_%__match177092177093%_ - (lambda (_%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_ - _%e172478172984%_ - _%hd172479172987%_ - _%tl172480172989%_ - _%e172481172992%_ - _%hd172482172995%_ - _%tl172483172997%_) + _%L174288%_ + __tmp179215))) + (_%__kont178096178097%_ + _%L174287%_ + _%L174288%_ + _%L174289%_) + (_%__match178585178586%_ + _%e173741174207%_ + _%hd173742174210%_ + _%tl173743174212%_ + _%e173744174215%_ + _%hd173745174218%_ + _%tl173746174220%_ + _%e173747174223%_ + _%hd173748174226%_ + _%tl173749174228%_ + _%e173750174231%_ + _%hd173751174234%_ + _%tl173752174236%_ + _%e173753174239%_ + _%hd173754174242%_ + _%tl173755174244%_ + _%e173756174247%_ + _%hd173757174250%_ + _%tl173758174252%_ + _%e173759174255%_ + _%hd173760174258%_ + _%tl173761174260%_ + _%e173762174263%_ + _%hd173763174266%_ + _%tl173764174268%_))))) + (_%__match178379178380%_ + (lambda (_%e173741174207%_ + _%hd173742174210%_ + _%tl173743174212%_ + _%e173744174215%_ + _%hd173745174218%_ + _%tl173746174220%_ + _%e173747174223%_ + _%hd173748174226%_ + _%tl173749174228%_ + _%e173750174231%_ + _%hd173751174234%_ + _%tl173752174236%_ + _%e173753174239%_ + _%hd173754174242%_ + _%tl173755174244%_ + _%e173756174247%_ + _%hd173757174250%_ + _%tl173758174252%_ + _%e173759174255%_ + _%hd173760174258%_ + _%tl173761174260%_ + _%e173762174263%_ + _%hd173763174266%_ + _%tl173764174268%_ + _%e173765174271%_ + _%hd173766174274%_ + _%tl173767174276%_ + _%e173768174279%_ + _%hd173769174282%_ + _%tl173770174284%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172477172981%_)) - (_%__match177094177095%_ - _%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_ - _%e172478172984%_ - _%hd172479172987%_ - _%tl172480172989%_ - _%e172481172992%_ - _%hd172482172995%_ - _%tl172483172997%_) - (_%__match177172177173%_ - _%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_ - _%e172478172984%_ - _%hd172479172987%_ - _%tl172480172989%_ - _%e172481172992%_ - _%hd172482172995%_ - _%tl172483172997%_)))) - (_%__match177082177083%_ - (lambda (_%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_ - _%e172478172984%_ - _%hd172479172987%_ - _%tl172480172989%_) + (gx#stx-null? _%tl173764174268%_)) + (_%__match178381178382%_ + _%e173741174207%_ + _%hd173742174210%_ + _%tl173743174212%_ + _%e173744174215%_ + _%hd173745174218%_ + _%tl173746174220%_ + _%e173747174223%_ + _%hd173748174226%_ + _%tl173749174228%_ + _%e173750174231%_ + _%hd173751174234%_ + _%tl173752174236%_ + _%e173753174239%_ + _%hd173754174242%_ + _%tl173755174244%_ + _%e173756174247%_ + _%hd173757174250%_ + _%tl173758174252%_ + _%e173759174255%_ + _%hd173760174258%_ + _%tl173761174260%_ + _%e173762174263%_ + _%hd173763174266%_ + _%tl173764174268%_ + _%e173765174271%_ + _%hd173766174274%_ + _%tl173767174276%_ + _%e173768174279%_ + _%hd173769174282%_ + _%tl173770174284%_) + (_%__match178459178460%_ + _%e173741174207%_ + _%hd173742174210%_ + _%tl173743174212%_ + _%e173744174215%_ + _%hd173745174218%_ + _%tl173746174220%_ + _%e173747174223%_ + _%hd173748174226%_ + _%tl173749174228%_ + _%e173750174231%_ + _%hd173751174234%_ + _%tl173752174236%_ + _%e173753174239%_ + _%hd173754174242%_ + _%tl173755174244%_ + _%e173756174247%_ + _%hd173757174250%_ + _%tl173758174252%_ + _%e173759174255%_ + _%hd173760174258%_ + _%tl173761174260%_ + _%e173762174263%_ + _%hd173763174266%_ + _%tl173764174268%_ + _%e173765174271%_ + _%hd173766174274%_ + _%tl173767174276%_ + _%e173768174279%_ + _%hd173769174282%_ + _%tl173770174284%_)))) + (_%__match178369178370%_ + (lambda (_%e173741174207%_ + _%hd173742174210%_ + _%tl173743174212%_ + _%e173744174215%_ + _%hd173745174218%_ + _%tl173746174220%_ + _%e173747174223%_ + _%hd173748174226%_ + _%tl173749174228%_ + _%e173750174231%_ + _%hd173751174234%_ + _%tl173752174236%_ + _%e173753174239%_ + _%hd173754174242%_ + _%tl173755174244%_ + _%e173756174247%_ + _%hd173757174250%_ + _%tl173758174252%_ + _%e173759174255%_ + _%hd173760174258%_ + _%tl173761174260%_ + _%e173762174263%_ + _%hd173763174266%_ + _%tl173764174268%_ + _%e173765174271%_ + _%hd173766174274%_ + _%tl173767174276%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd172479172987%_)) + (gx#stx-eq? '%#quote _%hd173766174274%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172480172989%_)) - (let ((_%e172481172992%_ + (gx#stx-pair? _%tl173767174276%_)) + (let ((_%e173768174279%_ (let () (declare (not safe)) - (gx#stx-e _%tl172480172989%_)))) - (let ((_%tl172483172997%_ + (gx#stx-e _%tl173767174276%_)))) + (let ((_%tl173770174284%_ (let () (declare (not safe)) - (##cdr _%e172481172992%_))) - (_%hd172482172995%_ + (##cdr _%e173768174279%_))) + (_%hd173769174282%_ (let () (declare (not safe)) - (##car _%e172481172992%_)))) + (##car _%e173768174279%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172483172997%_)) + (gx#stx-null? _%tl173770174284%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172477172981%_)) - (_%__match177094177095%_ - _%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_ - _%e172478172984%_ - _%hd172479172987%_ - _%tl172480172989%_ - _%e172481172992%_ - _%hd172482172995%_ - _%tl172483172997%_) - (_%__match177172177173%_ - _%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_ - _%e172478172984%_ - _%hd172479172987%_ - _%tl172480172989%_ - _%e172481172992%_ - _%hd172482172995%_ - _%tl172483172997%_)) - (_%__match177296177297%_ - _%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_)))) - (_%__match177296177297%_ - _%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_)) - (_%__match177296177297%_ - _%e172454172920%_ - _%hd172455172923%_ - _%tl172456172925%_ - _%e172457172928%_ - _%hd172458172931%_ - _%tl172459172933%_ - _%e172460172936%_ - _%hd172461172939%_ - _%tl172462172941%_ - _%e172463172944%_ - _%hd172464172947%_ - _%tl172465172949%_ - _%e172466172952%_ - _%hd172467172955%_ - _%tl172468172957%_ - _%e172469172960%_ - _%hd172470172963%_ - _%tl172471172965%_ - _%e172472172968%_ - _%hd172473172971%_ - _%tl172474172973%_ - _%e172475172976%_ - _%hd172476172979%_ - _%tl172477172981%_)))) - (_%__match177014177015%_ - (lambda (_%e172403173039%_ - _%hd172404173042%_ - _%tl172405173044%_ - _%e172406173047%_ - _%hd172407173050%_ - _%tl172408173052%_ - _%e172409173055%_ - _%hd172410173058%_ - _%tl172411173060%_ - _%e172412173063%_ - _%hd172413173066%_ - _%tl172414173068%_ - _%e172415173071%_ - _%hd172416173074%_ - _%tl172417173076%_ - _%e172418173079%_ - _%hd172419173082%_ - _%tl172420173084%_ - _%e172421173087%_ - _%hd172422173090%_ - _%tl172423173092%_ - _%e172424173095%_ - _%hd172425173098%_ - _%tl172426173100%_ - _%e172427173103%_ - _%hd172428173106%_ - _%tl172429173108%_ - _%e172430173111%_ - _%hd172431173114%_ - _%tl172432173116%_ - _%e172433173119%_ - _%hd172434173122%_ - _%tl172435173124%_ - _%e172436173127%_ - _%hd172437173130%_ - _%tl172438173132%_ - _%e172439173135%_ - _%hd172440173138%_ - _%tl172441173140%_ - _%__splice176807176808%_ - _%target172442173143%_ - _%tl172444173145%_) - (letrec ((_%loop172445173148%_ - (lambda (_%hd172443173151%_ - _%args172449173153%_) + (gx#stx-null? _%tl173764174268%_)) + (_%__match178381178382%_ + _%e173741174207%_ + _%hd173742174210%_ + _%tl173743174212%_ + _%e173744174215%_ + _%hd173745174218%_ + _%tl173746174220%_ + _%e173747174223%_ + _%hd173748174226%_ + _%tl173749174228%_ + _%e173750174231%_ + _%hd173751174234%_ + _%tl173752174236%_ + _%e173753174239%_ + _%hd173754174242%_ + _%tl173755174244%_ + _%e173756174247%_ + _%hd173757174250%_ + _%tl173758174252%_ + _%e173759174255%_ + _%hd173760174258%_ + _%tl173761174260%_ + _%e173762174263%_ + _%hd173763174266%_ + _%tl173764174268%_ + _%e173765174271%_ + _%hd173766174274%_ + _%tl173767174276%_ + _%e173768174279%_ + _%hd173769174282%_ + _%tl173770174284%_) + (_%__match178459178460%_ + _%e173741174207%_ + _%hd173742174210%_ + _%tl173743174212%_ + _%e173744174215%_ + _%hd173745174218%_ + _%tl173746174220%_ + _%e173747174223%_ + _%hd173748174226%_ + _%tl173749174228%_ + _%e173750174231%_ + _%hd173751174234%_ + _%tl173752174236%_ + _%e173753174239%_ + _%hd173754174242%_ + _%tl173755174244%_ + _%e173756174247%_ + _%hd173757174250%_ + _%tl173758174252%_ + _%e173759174255%_ + _%hd173760174258%_ + _%tl173761174260%_ + _%e173762174263%_ + _%hd173763174266%_ + _%tl173764174268%_ + _%e173765174271%_ + _%hd173766174274%_ + _%tl173767174276%_ + _%e173768174279%_ + _%hd173769174282%_ + _%tl173770174284%_)) + (_%__match178583178584%_ + _%e173741174207%_ + _%hd173742174210%_ + _%tl173743174212%_ + _%e173744174215%_ + _%hd173745174218%_ + _%tl173746174220%_ + _%e173747174223%_ + _%hd173748174226%_ + _%tl173749174228%_ + _%e173750174231%_ + _%hd173751174234%_ + _%tl173752174236%_ + _%e173753174239%_ + _%hd173754174242%_ + _%tl173755174244%_ + _%e173756174247%_ + _%hd173757174250%_ + _%tl173758174252%_ + _%e173759174255%_ + _%hd173760174258%_ + _%tl173761174260%_ + _%e173762174263%_ + _%hd173763174266%_ + _%tl173764174268%_)))) + (_%__match178583178584%_ + _%e173741174207%_ + _%hd173742174210%_ + _%tl173743174212%_ + _%e173744174215%_ + _%hd173745174218%_ + _%tl173746174220%_ + _%e173747174223%_ + _%hd173748174226%_ + _%tl173749174228%_ + _%e173750174231%_ + _%hd173751174234%_ + _%tl173752174236%_ + _%e173753174239%_ + _%hd173754174242%_ + _%tl173755174244%_ + _%e173756174247%_ + _%hd173757174250%_ + _%tl173758174252%_ + _%e173759174255%_ + _%hd173760174258%_ + _%tl173761174260%_ + _%e173762174263%_ + _%hd173763174266%_ + _%tl173764174268%_)) + (_%__match178583178584%_ + _%e173741174207%_ + _%hd173742174210%_ + _%tl173743174212%_ + _%e173744174215%_ + _%hd173745174218%_ + _%tl173746174220%_ + _%e173747174223%_ + _%hd173748174226%_ + _%tl173749174228%_ + _%e173750174231%_ + _%hd173751174234%_ + _%tl173752174236%_ + _%e173753174239%_ + _%hd173754174242%_ + _%tl173755174244%_ + _%e173756174247%_ + _%hd173757174250%_ + _%tl173758174252%_ + _%e173759174255%_ + _%hd173760174258%_ + _%tl173761174260%_ + _%e173762174263%_ + _%hd173763174266%_ + _%tl173764174268%_)))) + (_%__match178301178302%_ + (lambda (_%e173690174326%_ + _%hd173691174329%_ + _%tl173692174331%_ + _%e173693174334%_ + _%hd173694174337%_ + _%tl173695174339%_ + _%e173696174342%_ + _%hd173697174345%_ + _%tl173698174347%_ + _%e173699174350%_ + _%hd173700174353%_ + _%tl173701174355%_ + _%e173702174358%_ + _%hd173703174361%_ + _%tl173704174363%_ + _%e173705174366%_ + _%hd173706174369%_ + _%tl173707174371%_ + _%e173708174374%_ + _%hd173709174377%_ + _%tl173710174379%_ + _%e173711174382%_ + _%hd173712174385%_ + _%tl173713174387%_ + _%e173714174390%_ + _%hd173715174393%_ + _%tl173716174395%_ + _%e173717174398%_ + _%hd173718174401%_ + _%tl173719174403%_ + _%e173720174406%_ + _%hd173721174409%_ + _%tl173722174411%_ + _%e173723174414%_ + _%hd173724174417%_ + _%tl173725174419%_ + _%e173726174422%_ + _%hd173727174425%_ + _%tl173728174427%_ + _%__splice178094178095%_ + _%target173729174430%_ + _%tl173731174432%_) + (letrec ((_%loop173732174435%_ + (lambda (_%hd173730174438%_ + _%args173736174440%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172443173151%_)) - (let ((_%e172446173156%_ + (gx#stx-pair? _%hd173730174438%_)) + (let ((_%e173733174443%_ (let () (declare (not safe)) - (gx#stx-e _%hd172443173151%_)))) - (let ((_%lp-tl172448173161%_ + (gx#stx-e _%hd173730174438%_)))) + (let ((_%lp-tl173735174448%_ (let () (declare (not safe)) - (##cdr _%e172446173156%_))) - (_%lp-hd172447173159%_ + (##cdr _%e173733174443%_))) + (_%lp-hd173734174446%_ (let () (declare (not safe)) - (##car _%e172446173156%_)))) - (_%loop172445173148%_ - _%lp-tl172448173161%_ - (cons _%lp-hd172447173159%_ - _%args172449173153%_)))) - (let ((_%args172450173164%_ - (reverse _%args172449173153%_))) - (let ((_%L173167%_ - _%args172450173164%_) - (_%L173168%_ _%hd172440173138%_) - (_%L173169%_ _%hd172431173114%_) - (_%L173170%_ _%hd172422173090%_) - (_%L173171%_ _%hd172413173066%_)) + (##car _%e173733174443%_)))) + (_%loop173732174435%_ + _%lp-tl173735174448%_ + (cons _%lp-hd173734174446%_ + _%args173736174440%_)))) + (let ((_%args173737174451%_ + (reverse _%args173736174440%_))) + (let ((_%L174454%_ + _%args173737174451%_) + (_%L174455%_ _%hd173727174425%_) + (_%L174456%_ _%hd173718174401%_) + (_%L174457%_ _%hd173709174377%_) + (_%L174458%_ _%hd173700174353%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173171%_ + _%L174458%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173170%_ + _%L174457%_ 'call-method)) - (let ((__tmp177929 + (let ((__tmp179216 (let () (declare (not safe)) (slot-ref__0 - _%self172344%_ + _%self173631%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173169%_ - __tmp177929))) - (_%__kont176805176806%_ - _%L173167%_ - _%L173168%_ - _%L173169%_ - _%L173170%_ - _%L173171%_) - (_%__kont176817176818%_)))))))) - (_%loop172445173148%_ _%target172442173143%_ '())))) - (_%__match176972176973%_ - (lambda (_%e172403173039%_ - _%hd172404173042%_ - _%tl172405173044%_ - _%e172406173047%_ - _%hd172407173050%_ - _%tl172408173052%_ - _%e172409173055%_ - _%hd172410173058%_ - _%tl172411173060%_ - _%e172412173063%_ - _%hd172413173066%_ - _%tl172414173068%_ - _%e172415173071%_ - _%hd172416173074%_ - _%tl172417173076%_ - _%e172418173079%_ - _%hd172419173082%_ - _%tl172420173084%_ - _%e172421173087%_ - _%hd172422173090%_ - _%tl172423173092%_ - _%e172424173095%_ - _%hd172425173098%_ - _%tl172426173100%_ - _%e172427173103%_ - _%hd172428173106%_ - _%tl172429173108%_) + _%L174456%_ + __tmp179216))) + (_%__kont178092178093%_ + _%L174454%_ + _%L174455%_ + _%L174456%_ + _%L174457%_ + _%L174458%_) + (_%__kont178104178105%_)))))))) + (_%loop173732174435%_ _%target173729174430%_ '())))) + (_%__match178259178260%_ + (lambda (_%e173690174326%_ + _%hd173691174329%_ + _%tl173692174331%_ + _%e173693174334%_ + _%hd173694174337%_ + _%tl173695174339%_ + _%e173696174342%_ + _%hd173697174345%_ + _%tl173698174347%_ + _%e173699174350%_ + _%hd173700174353%_ + _%tl173701174355%_ + _%e173702174358%_ + _%hd173703174361%_ + _%tl173704174363%_ + _%e173705174366%_ + _%hd173706174369%_ + _%tl173707174371%_ + _%e173708174374%_ + _%hd173709174377%_ + _%tl173710174379%_ + _%e173711174382%_ + _%hd173712174385%_ + _%tl173713174387%_ + _%e173714174390%_ + _%hd173715174393%_ + _%tl173716174395%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd172428173106%_)) + (gx#stx-eq? '%#ref _%hd173715174393%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172429173108%_)) - (let ((_%e172430173111%_ + (gx#stx-pair? _%tl173716174395%_)) + (let ((_%e173717174398%_ (let () (declare (not safe)) - (gx#stx-e _%tl172429173108%_)))) - (let ((_%tl172432173116%_ + (gx#stx-e _%tl173716174395%_)))) + (let ((_%tl173719174403%_ (let () (declare (not safe)) - (##cdr _%e172430173111%_))) - (_%hd172431173114%_ + (##cdr _%e173717174398%_))) + (_%hd173718174401%_ (let () (declare (not safe)) - (##car _%e172430173111%_)))) + (##car _%e173717174398%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172432173116%_)) + (gx#stx-null? _%tl173719174403%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172426173100%_)) - (let ((_%e172433173119%_ + (gx#stx-pair? _%tl173713174387%_)) + (let ((_%e173720174406%_ (let () (declare (not safe)) (gx#stx-e - _%tl172426173100%_)))) - (let ((_%tl172435173124%_ + _%tl173713174387%_)))) + (let ((_%tl173722174411%_ (let () (declare (not safe)) - (##cdr _%e172433173119%_))) - (_%hd172434173122%_ + (##cdr _%e173720174406%_))) + (_%hd173721174409%_ (let () (declare (not safe)) - (##car _%e172433173119%_)))) + (##car _%e173720174406%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd172434173122%_)) - (let ((_%e172436173127%_ + _%hd173721174409%_)) + (let ((_%e173723174414%_ (let () (declare (not safe)) (gx#stx-e - _%hd172434173122%_)))) - (let ((_%tl172438173132%_ + _%hd173721174409%_)))) + (let ((_%tl173725174419%_ (let () (declare (not safe)) - (##cdr _%e172436173127%_))) - (_%hd172437173130%_ + (##cdr _%e173723174414%_))) + (_%hd173724174417%_ (let () (declare (not safe)) - (##car _%e172436173127%_)))) + (##car _%e173723174414%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd172437173130%_)) + _%hd173724174417%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd172437173130%_)) + (gx#stx-eq? '%#quote _%hd173724174417%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172438173132%_)) - (let ((_%e172439173135%_ + (gx#stx-pair? _%tl173725174419%_)) + (let ((_%e173726174422%_ (let () (declare (not safe)) - (gx#stx-e _%tl172438173132%_)))) - (let ((_%tl172441173140%_ + (gx#stx-e _%tl173725174419%_)))) + (let ((_%tl173728174427%_ (let () (declare (not safe)) - (##cdr _%e172439173135%_))) - (_%hd172440173138%_ + (##cdr _%e173726174422%_))) + (_%hd173727174425%_ (let () (declare (not safe)) - (##car _%e172439173135%_)))) + (##car _%e173726174422%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172441173140%_)) + (gx#stx-null? _%tl173728174427%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl172435173124%_)) - (let ((_%__splice176807176808%_ + (gx#stx-pair/null? _%tl173722174411%_)) + (let ((_%__splice178094178095%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl172435173124%_ + _%tl173722174411%_ '0)))) - (let ((_%tl172444173145%_ + (let ((_%tl173731174432%_ (let () (declare (not safe)) (##vector-ref - _%__splice176807176808%_ + _%__splice178094178095%_ '1))) - (_%target172442173143%_ + (_%target173729174430%_ (let () (declare (not safe)) (##vector-ref - _%__splice176807176808%_ + _%__splice178094178095%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172444173145%_)) - (_%__match177014177015%_ - _%e172403173039%_ - _%hd172404173042%_ - _%tl172405173044%_ - _%e172406173047%_ - _%hd172407173050%_ - _%tl172408173052%_ - _%e172409173055%_ - _%hd172410173058%_ - _%tl172411173060%_ - _%e172412173063%_ - _%hd172413173066%_ - _%tl172414173068%_ - _%e172415173071%_ - _%hd172416173074%_ - _%tl172417173076%_ - _%e172418173079%_ - _%hd172419173082%_ - _%tl172420173084%_ - _%e172421173087%_ - _%hd172422173090%_ - _%tl172423173092%_ - _%e172424173095%_ - _%hd172425173098%_ - _%tl172426173100%_ - _%e172427173103%_ - _%hd172428173106%_ - _%tl172429173108%_ - _%e172430173111%_ - _%hd172431173114%_ - _%tl172432173116%_ - _%e172433173119%_ - _%hd172434173122%_ - _%tl172435173124%_ - _%e172436173127%_ - _%hd172437173130%_ - _%tl172438173132%_ - _%e172439173135%_ - _%hd172440173138%_ - _%tl172441173140%_ - _%__splice176807176808%_ - _%target172442173143%_ - _%tl172444173145%_) - (_%__kont176817176818%_)))) - (_%__kont176817176818%_)) - (_%__kont176817176818%_)))) - (_%__kont176817176818%_)) - (_%__kont176817176818%_)) - (_%__kont176817176818%_)))) + _%tl173731174432%_)) + (_%__match178301178302%_ + _%e173690174326%_ + _%hd173691174329%_ + _%tl173692174331%_ + _%e173693174334%_ + _%hd173694174337%_ + _%tl173695174339%_ + _%e173696174342%_ + _%hd173697174345%_ + _%tl173698174347%_ + _%e173699174350%_ + _%hd173700174353%_ + _%tl173701174355%_ + _%e173702174358%_ + _%hd173703174361%_ + _%tl173704174363%_ + _%e173705174366%_ + _%hd173706174369%_ + _%tl173707174371%_ + _%e173708174374%_ + _%hd173709174377%_ + _%tl173710174379%_ + _%e173711174382%_ + _%hd173712174385%_ + _%tl173713174387%_ + _%e173714174390%_ + _%hd173715174393%_ + _%tl173716174395%_ + _%e173717174398%_ + _%hd173718174401%_ + _%tl173719174403%_ + _%e173720174406%_ + _%hd173721174409%_ + _%tl173722174411%_ + _%e173723174414%_ + _%hd173724174417%_ + _%tl173725174419%_ + _%e173726174422%_ + _%hd173727174425%_ + _%tl173728174427%_ + _%__splice178094178095%_ + _%target173729174430%_ + _%tl173731174432%_) + (_%__kont178104178105%_)))) + (_%__kont178104178105%_)) + (_%__kont178104178105%_)))) + (_%__kont178104178105%_)) + (_%__kont178104178105%_)) + (_%__kont178104178105%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176817176818%_)))) - (_%__match177296177297%_ - _%e172403173039%_ - _%hd172404173042%_ - _%tl172405173044%_ - _%e172406173047%_ - _%hd172407173050%_ - _%tl172408173052%_ - _%e172409173055%_ - _%hd172410173058%_ - _%tl172411173060%_ - _%e172412173063%_ - _%hd172413173066%_ - _%tl172414173068%_ - _%e172415173071%_ - _%hd172416173074%_ - _%tl172417173076%_ - _%e172418173079%_ - _%hd172419173082%_ - _%tl172420173084%_ - _%e172421173087%_ - _%hd172422173090%_ - _%tl172423173092%_ - _%e172424173095%_ - _%hd172425173098%_ - _%tl172426173100%_)) - (_%__match177296177297%_ - _%e172403173039%_ - _%hd172404173042%_ - _%tl172405173044%_ - _%e172406173047%_ - _%hd172407173050%_ - _%tl172408173052%_ - _%e172409173055%_ - _%hd172410173058%_ - _%tl172411173060%_ - _%e172412173063%_ - _%hd172413173066%_ - _%tl172414173068%_ - _%e172415173071%_ - _%hd172416173074%_ - _%tl172417173076%_ - _%e172418173079%_ - _%hd172419173082%_ - _%tl172420173084%_ - _%e172421173087%_ - _%hd172422173090%_ - _%tl172423173092%_ - _%e172424173095%_ - _%hd172425173098%_ - _%tl172426173100%_)))) - (_%__match177296177297%_ - _%e172403173039%_ - _%hd172404173042%_ - _%tl172405173044%_ - _%e172406173047%_ - _%hd172407173050%_ - _%tl172408173052%_ - _%e172409173055%_ - _%hd172410173058%_ - _%tl172411173060%_ - _%e172412173063%_ - _%hd172413173066%_ - _%tl172414173068%_ - _%e172415173071%_ - _%hd172416173074%_ - _%tl172417173076%_ - _%e172418173079%_ - _%hd172419173082%_ - _%tl172420173084%_ - _%e172421173087%_ - _%hd172422173090%_ - _%tl172423173092%_ - _%e172424173095%_ - _%hd172425173098%_ - _%tl172426173100%_)) - (_%__match177082177083%_ - _%e172403173039%_ - _%hd172404173042%_ - _%tl172405173044%_ - _%e172406173047%_ - _%hd172407173050%_ - _%tl172408173052%_ - _%e172409173055%_ - _%hd172410173058%_ - _%tl172411173060%_ - _%e172412173063%_ - _%hd172413173066%_ - _%tl172414173068%_ - _%e172415173071%_ - _%hd172416173074%_ - _%tl172417173076%_ - _%e172418173079%_ - _%hd172419173082%_ - _%tl172420173084%_ - _%e172421173087%_ - _%hd172422173090%_ - _%tl172423173092%_ - _%e172424173095%_ - _%hd172425173098%_ - _%tl172426173100%_ - _%e172427173103%_ - _%hd172428173106%_ - _%tl172429173108%_)))) - (_%__match176904176905%_ - (lambda (_%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_ - _%e172383173292%_ - _%hd172384173295%_ - _%tl172385173297%_ - _%e172386173300%_ - _%hd172387173303%_ - _%tl172388173305%_ - _%__splice176803176804%_ - _%target172389173308%_ - _%tl172391173310%_) - (letrec ((_%loop172392173313%_ - (lambda (_%hd172390173316%_ - _%args172396173318%_) + (_%__kont178104178105%_)))) + (_%__match178583178584%_ + _%e173690174326%_ + _%hd173691174329%_ + _%tl173692174331%_ + _%e173693174334%_ + _%hd173694174337%_ + _%tl173695174339%_ + _%e173696174342%_ + _%hd173697174345%_ + _%tl173698174347%_ + _%e173699174350%_ + _%hd173700174353%_ + _%tl173701174355%_ + _%e173702174358%_ + _%hd173703174361%_ + _%tl173704174363%_ + _%e173705174366%_ + _%hd173706174369%_ + _%tl173707174371%_ + _%e173708174374%_ + _%hd173709174377%_ + _%tl173710174379%_ + _%e173711174382%_ + _%hd173712174385%_ + _%tl173713174387%_)) + (_%__match178583178584%_ + _%e173690174326%_ + _%hd173691174329%_ + _%tl173692174331%_ + _%e173693174334%_ + _%hd173694174337%_ + _%tl173695174339%_ + _%e173696174342%_ + _%hd173697174345%_ + _%tl173698174347%_ + _%e173699174350%_ + _%hd173700174353%_ + _%tl173701174355%_ + _%e173702174358%_ + _%hd173703174361%_ + _%tl173704174363%_ + _%e173705174366%_ + _%hd173706174369%_ + _%tl173707174371%_ + _%e173708174374%_ + _%hd173709174377%_ + _%tl173710174379%_ + _%e173711174382%_ + _%hd173712174385%_ + _%tl173713174387%_)))) + (_%__match178583178584%_ + _%e173690174326%_ + _%hd173691174329%_ + _%tl173692174331%_ + _%e173693174334%_ + _%hd173694174337%_ + _%tl173695174339%_ + _%e173696174342%_ + _%hd173697174345%_ + _%tl173698174347%_ + _%e173699174350%_ + _%hd173700174353%_ + _%tl173701174355%_ + _%e173702174358%_ + _%hd173703174361%_ + _%tl173704174363%_ + _%e173705174366%_ + _%hd173706174369%_ + _%tl173707174371%_ + _%e173708174374%_ + _%hd173709174377%_ + _%tl173710174379%_ + _%e173711174382%_ + _%hd173712174385%_ + _%tl173713174387%_)) + (_%__match178369178370%_ + _%e173690174326%_ + _%hd173691174329%_ + _%tl173692174331%_ + _%e173693174334%_ + _%hd173694174337%_ + _%tl173695174339%_ + _%e173696174342%_ + _%hd173697174345%_ + _%tl173698174347%_ + _%e173699174350%_ + _%hd173700174353%_ + _%tl173701174355%_ + _%e173702174358%_ + _%hd173703174361%_ + _%tl173704174363%_ + _%e173705174366%_ + _%hd173706174369%_ + _%tl173707174371%_ + _%e173708174374%_ + _%hd173709174377%_ + _%tl173710174379%_ + _%e173711174382%_ + _%hd173712174385%_ + _%tl173713174387%_ + _%e173714174390%_ + _%hd173715174393%_ + _%tl173716174395%_)))) + (_%__match178191178192%_ + (lambda (_%e173646174515%_ + _%hd173647174518%_ + _%tl173648174520%_ + _%e173649174523%_ + _%hd173650174526%_ + _%tl173651174528%_ + _%e173652174531%_ + _%hd173653174534%_ + _%tl173654174536%_ + _%e173655174539%_ + _%hd173656174542%_ + _%tl173657174544%_ + _%e173658174547%_ + _%hd173659174550%_ + _%tl173660174552%_ + _%e173661174555%_ + _%hd173662174558%_ + _%tl173663174560%_ + _%e173664174563%_ + _%hd173665174566%_ + _%tl173666174568%_ + _%e173667174571%_ + _%hd173668174574%_ + _%tl173669174576%_ + _%e173670174579%_ + _%hd173671174582%_ + _%tl173672174584%_ + _%e173673174587%_ + _%hd173674174590%_ + _%tl173675174592%_ + _%__splice178090178091%_ + _%target173676174595%_ + _%tl173678174597%_) + (letrec ((_%loop173679174600%_ + (lambda (_%hd173677174603%_ + _%args173683174605%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172390173316%_)) - (let ((_%e172393173321%_ + (gx#stx-pair? _%hd173677174603%_)) + (let ((_%e173680174608%_ (let () (declare (not safe)) - (gx#stx-e _%hd172390173316%_)))) - (let ((_%lp-tl172395173326%_ + (gx#stx-e _%hd173677174603%_)))) + (let ((_%lp-tl173682174613%_ (let () (declare (not safe)) - (##cdr _%e172393173321%_))) - (_%lp-hd172394173324%_ + (##cdr _%e173680174608%_))) + (_%lp-hd173681174611%_ (let () (declare (not safe)) - (##car _%e172393173321%_)))) - (_%loop172392173313%_ - _%lp-tl172395173326%_ - (cons _%lp-hd172394173324%_ - _%args172396173318%_)))) - (let ((_%args172397173329%_ - (reverse _%args172396173318%_))) - (let ((_%L173332%_ - _%args172397173329%_) - (_%L173333%_ _%hd172387173303%_) - (_%L173334%_ _%hd172378173279%_) - (_%L173335%_ _%hd172369173255%_)) + (##car _%e173680174608%_)))) + (_%loop173679174600%_ + _%lp-tl173682174613%_ + (cons _%lp-hd173681174611%_ + _%args173683174605%_)))) + (let ((_%args173684174616%_ + (reverse _%args173683174605%_))) + (let ((_%L174619%_ + _%args173684174616%_) + (_%L174620%_ _%hd173674174590%_) + (_%L174621%_ _%hd173665174566%_) + (_%L174622%_ _%hd173656174542%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173335%_ + _%L174622%_ 'call-method)) - (let ((__tmp177930 + (let ((__tmp179217 (let () (declare (not safe)) (slot-ref__0 - _%self172344%_ + _%self173631%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173334%_ - __tmp177930))) - (_%__kont176801176802%_ - _%L173332%_ - _%L173333%_ - _%L173334%_ - _%L173335%_) - (_%__match177092177093%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_ - _%e172383173292%_ - _%hd172384173295%_ - _%tl172385173297%_ - _%e172386173300%_ - _%hd172387173303%_ - _%tl172388173305%_)))))))) - (_%loop172392173313%_ _%target172389173308%_ '()))))) + _%L174621%_ + __tmp179217))) + (_%__kont178088178089%_ + _%L174619%_ + _%L174620%_ + _%L174621%_ + _%L174622%_) + (_%__match178379178380%_ + _%e173646174515%_ + _%hd173647174518%_ + _%tl173648174520%_ + _%e173649174523%_ + _%hd173650174526%_ + _%tl173651174528%_ + _%e173652174531%_ + _%hd173653174534%_ + _%tl173654174536%_ + _%e173655174539%_ + _%hd173656174542%_ + _%tl173657174544%_ + _%e173658174547%_ + _%hd173659174550%_ + _%tl173660174552%_ + _%e173661174555%_ + _%hd173662174558%_ + _%tl173663174560%_ + _%e173664174563%_ + _%hd173665174566%_ + _%tl173666174568%_ + _%e173667174571%_ + _%hd173668174574%_ + _%tl173669174576%_ + _%e173670174579%_ + _%hd173671174582%_ + _%tl173672174584%_ + _%e173673174587%_ + _%hd173674174590%_ + _%tl173675174592%_)))))))) + (_%loop173679174600%_ _%target173676174595%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176799176800%_)) - (let ((_%e172359173228%_ + (gx#stx-pair? _%__stx178086178087%_)) + (let ((_%e173646174515%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176799176800%_)))) - (let ((_%tl172361173233%_ + (gx#stx-e _%__stx178086178087%_)))) + (let ((_%tl173648174520%_ (let () (declare (not safe)) - (##cdr _%e172359173228%_))) - (_%hd172360173231%_ + (##cdr _%e173646174515%_))) + (_%hd173647174518%_ (let () (declare (not safe)) - (##car _%e172359173228%_)))) + (##car _%e173646174515%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172361173233%_)) - (let ((_%e172362173236%_ + (gx#stx-pair? _%tl173648174520%_)) + (let ((_%e173649174523%_ (let () (declare (not safe)) - (gx#stx-e _%tl172361173233%_)))) - (let ((_%tl172364173241%_ + (gx#stx-e _%tl173648174520%_)))) + (let ((_%tl173651174528%_ (let () (declare (not safe)) - (##cdr _%e172362173236%_))) - (_%hd172363173239%_ + (##cdr _%e173649174523%_))) + (_%hd173650174526%_ (let () (declare (not safe)) - (##car _%e172362173236%_)))) + (##car _%e173649174523%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172363173239%_)) - (let ((_%e172365173244%_ + (gx#stx-pair? _%hd173650174526%_)) + (let ((_%e173652174531%_ (let () (declare (not safe)) - (gx#stx-e _%hd172363173239%_)))) - (let ((_%tl172367173249%_ + (gx#stx-e _%hd173650174526%_)))) + (let ((_%tl173654174536%_ (let () (declare (not safe)) - (##cdr _%e172365173244%_))) - (_%hd172366173247%_ + (##cdr _%e173652174531%_))) + (_%hd173653174534%_ (let () (declare (not safe)) - (##car _%e172365173244%_)))) + (##car _%e173652174531%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd172366173247%_)) + _%hd173653174534%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd172366173247%_)) + _%hd173653174534%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172367173249%_)) - (let ((_%e172368173252%_ + _%tl173654174536%_)) + (let ((_%e173655174539%_ (let () (declare (not safe)) (gx#stx-e - _%tl172367173249%_)))) - (let ((_%tl172370173257%_ + _%tl173654174536%_)))) + (let ((_%tl173657174544%_ (let () (declare (not safe)) - (##cdr _%e172368173252%_))) - (_%hd172369173255%_ + (##cdr _%e173655174539%_))) + (_%hd173656174542%_ (let () (declare (not safe)) - (##car _%e172368173252%_)))) + (##car _%e173655174539%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172370173257%_)) + _%tl173657174544%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl172364173241%_)) - (let ((_%e172371173260%_ + (gx#stx-pair? _%tl173651174528%_)) + (let ((_%e173658174547%_ (let () (declare (not safe)) - (gx#stx-e _%tl172364173241%_)))) - (let ((_%tl172373173265%_ + (gx#stx-e _%tl173651174528%_)))) + (let ((_%tl173660174552%_ (let () (declare (not safe)) - (##cdr _%e172371173260%_))) - (_%hd172372173263%_ + (##cdr _%e173658174547%_))) + (_%hd173659174550%_ (let () (declare (not safe)) - (##car _%e172371173260%_)))) + (##car _%e173658174547%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172372173263%_)) - (let ((_%e172374173268%_ + (gx#stx-pair? _%hd173659174550%_)) + (let ((_%e173661174555%_ (let () (declare (not safe)) - (gx#stx-e _%hd172372173263%_)))) - (let ((_%tl172376173273%_ + (gx#stx-e _%hd173659174550%_)))) + (let ((_%tl173663174560%_ (let () (declare (not safe)) - (##cdr _%e172374173268%_))) - (_%hd172375173271%_ + (##cdr _%e173661174555%_))) + (_%hd173662174558%_ (let () (declare (not safe)) - (##car _%e172374173268%_)))) + (##car _%e173661174555%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd172375173271%_)) + (gx#identifier? _%hd173662174558%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd172375173271%_)) + _%hd173662174558%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172376173273%_)) - (let ((_%e172377173276%_ + _%tl173663174560%_)) + (let ((_%e173664174563%_ (let () (declare (not safe)) (gx#stx-e - _%tl172376173273%_)))) - (let ((_%tl172379173281%_ + _%tl173663174560%_)))) + (let ((_%tl173666174568%_ (let () (declare (not safe)) - (##cdr _%e172377173276%_))) - (_%hd172378173279%_ + (##cdr _%e173664174563%_))) + (_%hd173665174566%_ (let () (declare (not safe)) - (##car _%e172377173276%_)))) + (##car _%e173664174563%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172379173281%_)) + _%tl173666174568%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172373173265%_)) - (let ((_%e172380173284%_ + _%tl173660174552%_)) + (let ((_%e173667174571%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl172373173265%_)))) - (let ((_%tl172382173289%_ + (gx#stx-e _%tl173660174552%_)))) + (let ((_%tl173669174576%_ (let () (declare (not safe)) - (##cdr _%e172380173284%_))) - (_%hd172381173287%_ + (##cdr _%e173667174571%_))) + (_%hd173668174574%_ (let () (declare (not safe)) - (##car _%e172380173284%_)))) + (##car _%e173667174571%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172381173287%_)) - (let ((_%e172383173292%_ + (gx#stx-pair? _%hd173668174574%_)) + (let ((_%e173670174579%_ (let () (declare (not safe)) - (gx#stx-e _%hd172381173287%_)))) - (let ((_%tl172385173297%_ + (gx#stx-e _%hd173668174574%_)))) + (let ((_%tl173672174584%_ (let () (declare (not safe)) - (##cdr _%e172383173292%_))) - (_%hd172384173295%_ + (##cdr _%e173670174579%_))) + (_%hd173671174582%_ (let () (declare (not safe)) - (##car _%e172383173292%_)))) + (##car _%e173670174579%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd172384173295%_)) + (gx#identifier? _%hd173671174582%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd172384173295%_)) + _%hd173671174582%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172385173297%_)) - (let ((_%e172386173300%_ + (gx#stx-pair? _%tl173672174584%_)) + (let ((_%e173673174587%_ (let () (declare (not safe)) (gx#stx-e - _%tl172385173297%_)))) - (let ((_%tl172388173305%_ + _%tl173672174584%_)))) + (let ((_%tl173675174592%_ (let () (declare (not safe)) - (##cdr _%e172386173300%_))) - (_%hd172387173303%_ + (##cdr _%e173673174587%_))) + (_%hd173674174590%_ (let () (declare (not safe)) - (##car _%e172386173300%_)))) + (##car _%e173673174587%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172388173305%_)) + _%tl173675174592%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl172382173289%_)) - (let ((_%__splice176803176804%_ + _%tl173669174576%_)) + (let ((_%__splice178090178091%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl172382173289%_ '0)))) - (let ((_%tl172391173310%_ + (gx#syntax-split-splice _%tl173669174576%_ '0)))) + (let ((_%tl173678174597%_ (let () (declare (not safe)) - (##vector-ref _%__splice176803176804%_ '1))) - (_%target172389173308%_ + (##vector-ref _%__splice178090178091%_ '1))) + (_%target173676174595%_ (let () (declare (not safe)) - (##vector-ref _%__splice176803176804%_ '0)))) + (##vector-ref _%__splice178090178091%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172391173310%_)) - (_%__match176904176905%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_ - _%e172383173292%_ - _%hd172384173295%_ - _%tl172385173297%_ - _%e172386173300%_ - _%hd172387173303%_ - _%tl172388173305%_ - _%__splice176803176804%_ - _%target172389173308%_ - _%tl172391173310%_) - (_%__match177092177093%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_ - _%e172383173292%_ - _%hd172384173295%_ - _%tl172385173297%_ - _%e172386173300%_ - _%hd172387173303%_ - _%tl172388173305%_)))) - (_%__match177092177093%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_ - _%e172383173292%_ - _%hd172384173295%_ - _%tl172385173297%_ - _%e172386173300%_ - _%hd172387173303%_ - _%tl172388173305%_)) + (gx#stx-null? _%tl173678174597%_)) + (_%__match178191178192%_ + _%e173646174515%_ + _%hd173647174518%_ + _%tl173648174520%_ + _%e173649174523%_ + _%hd173650174526%_ + _%tl173651174528%_ + _%e173652174531%_ + _%hd173653174534%_ + _%tl173654174536%_ + _%e173655174539%_ + _%hd173656174542%_ + _%tl173657174544%_ + _%e173658174547%_ + _%hd173659174550%_ + _%tl173660174552%_ + _%e173661174555%_ + _%hd173662174558%_ + _%tl173663174560%_ + _%e173664174563%_ + _%hd173665174566%_ + _%tl173666174568%_ + _%e173667174571%_ + _%hd173668174574%_ + _%tl173669174576%_ + _%e173670174579%_ + _%hd173671174582%_ + _%tl173672174584%_ + _%e173673174587%_ + _%hd173674174590%_ + _%tl173675174592%_ + _%__splice178090178091%_ + _%target173676174595%_ + _%tl173678174597%_) + (_%__match178379178380%_ + _%e173646174515%_ + _%hd173647174518%_ + _%tl173648174520%_ + _%e173649174523%_ + _%hd173650174526%_ + _%tl173651174528%_ + _%e173652174531%_ + _%hd173653174534%_ + _%tl173654174536%_ + _%e173655174539%_ + _%hd173656174542%_ + _%tl173657174544%_ + _%e173658174547%_ + _%hd173659174550%_ + _%tl173660174552%_ + _%e173661174555%_ + _%hd173662174558%_ + _%tl173663174560%_ + _%e173664174563%_ + _%hd173665174566%_ + _%tl173666174568%_ + _%e173667174571%_ + _%hd173668174574%_ + _%tl173669174576%_ + _%e173670174579%_ + _%hd173671174582%_ + _%tl173672174584%_ + _%e173673174587%_ + _%hd173674174590%_ + _%tl173675174592%_)))) + (_%__match178379178380%_ + _%e173646174515%_ + _%hd173647174518%_ + _%tl173648174520%_ + _%e173649174523%_ + _%hd173650174526%_ + _%tl173651174528%_ + _%e173652174531%_ + _%hd173653174534%_ + _%tl173654174536%_ + _%e173655174539%_ + _%hd173656174542%_ + _%tl173657174544%_ + _%e173658174547%_ + _%hd173659174550%_ + _%tl173660174552%_ + _%e173661174555%_ + _%hd173662174558%_ + _%tl173663174560%_ + _%e173664174563%_ + _%hd173665174566%_ + _%tl173666174568%_ + _%e173667174571%_ + _%hd173668174574%_ + _%tl173669174576%_ + _%e173670174579%_ + _%hd173671174582%_ + _%tl173672174584%_ + _%e173673174587%_ + _%hd173674174590%_ + _%tl173675174592%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177296177297%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_)))) - (_%__match177296177297%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_)) - (_%__match176972176973%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_ - _%e172383173292%_ - _%hd172384173295%_ - _%tl172385173297%_)) - (_%__match177296177297%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_)))) - (_%__match177296177297%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_ - _%e172380173284%_ - _%hd172381173287%_ - _%tl172382173289%_)))) - (_%__match177234177235%_ - _%e172359173228%_ - _%hd172360173231%_ - _%tl172361173233%_ - _%e172362173236%_ - _%hd172363173239%_ - _%tl172364173241%_ - _%e172365173244%_ - _%hd172366173247%_ - _%tl172367173249%_ - _%e172368173252%_ - _%hd172369173255%_ - _%tl172370173257%_ - _%e172371173260%_ - _%hd172372173263%_ - _%tl172373173265%_ - _%e172374173268%_ - _%hd172375173271%_ - _%tl172376173273%_ - _%e172377173276%_ - _%hd172378173279%_ - _%tl172379173281%_)) - (_%__kont176817176818%_)))) + (_%__match178583178584%_ + _%e173646174515%_ + _%hd173647174518%_ + _%tl173648174520%_ + _%e173649174523%_ + _%hd173650174526%_ + _%tl173651174528%_ + _%e173652174531%_ + _%hd173653174534%_ + _%tl173654174536%_ + _%e173655174539%_ + _%hd173656174542%_ + _%tl173657174544%_ + _%e173658174547%_ + _%hd173659174550%_ + _%tl173660174552%_ + _%e173661174555%_ + _%hd173662174558%_ + _%tl173663174560%_ + _%e173664174563%_ + _%hd173665174566%_ + _%tl173666174568%_ + _%e173667174571%_ + _%hd173668174574%_ + _%tl173669174576%_)))) + (_%__match178583178584%_ + _%e173646174515%_ + _%hd173647174518%_ + _%tl173648174520%_ + _%e173649174523%_ + _%hd173650174526%_ + _%tl173651174528%_ + _%e173652174531%_ + _%hd173653174534%_ + _%tl173654174536%_ + _%e173655174539%_ + _%hd173656174542%_ + _%tl173657174544%_ + _%e173658174547%_ + _%hd173659174550%_ + _%tl173660174552%_ + _%e173661174555%_ + _%hd173662174558%_ + _%tl173663174560%_ + _%e173664174563%_ + _%hd173665174566%_ + _%tl173666174568%_ + _%e173667174571%_ + _%hd173668174574%_ + _%tl173669174576%_)) + (_%__match178259178260%_ + _%e173646174515%_ + _%hd173647174518%_ + _%tl173648174520%_ + _%e173649174523%_ + _%hd173650174526%_ + _%tl173651174528%_ + _%e173652174531%_ + _%hd173653174534%_ + _%tl173654174536%_ + _%e173655174539%_ + _%hd173656174542%_ + _%tl173657174544%_ + _%e173658174547%_ + _%hd173659174550%_ + _%tl173660174552%_ + _%e173661174555%_ + _%hd173662174558%_ + _%tl173663174560%_ + _%e173664174563%_ + _%hd173665174566%_ + _%tl173666174568%_ + _%e173667174571%_ + _%hd173668174574%_ + _%tl173669174576%_ + _%e173670174579%_ + _%hd173671174582%_ + _%tl173672174584%_)) + (_%__match178583178584%_ + _%e173646174515%_ + _%hd173647174518%_ + _%tl173648174520%_ + _%e173649174523%_ + _%hd173650174526%_ + _%tl173651174528%_ + _%e173652174531%_ + _%hd173653174534%_ + _%tl173654174536%_ + _%e173655174539%_ + _%hd173656174542%_ + _%tl173657174544%_ + _%e173658174547%_ + _%hd173659174550%_ + _%tl173660174552%_ + _%e173661174555%_ + _%hd173662174558%_ + _%tl173663174560%_ + _%e173664174563%_ + _%hd173665174566%_ + _%tl173666174568%_ + _%e173667174571%_ + _%hd173668174574%_ + _%tl173669174576%_)))) + (_%__match178583178584%_ + _%e173646174515%_ + _%hd173647174518%_ + _%tl173648174520%_ + _%e173649174523%_ + _%hd173650174526%_ + _%tl173651174528%_ + _%e173652174531%_ + _%hd173653174534%_ + _%tl173654174536%_ + _%e173655174539%_ + _%hd173656174542%_ + _%tl173657174544%_ + _%e173658174547%_ + _%hd173659174550%_ + _%tl173660174552%_ + _%e173661174555%_ + _%hd173662174558%_ + _%tl173663174560%_ + _%e173664174563%_ + _%hd173665174566%_ + _%tl173666174568%_ + _%e173667174571%_ + _%hd173668174574%_ + _%tl173669174576%_)))) + (_%__match178521178522%_ + _%e173646174515%_ + _%hd173647174518%_ + _%tl173648174520%_ + _%e173649174523%_ + _%hd173650174526%_ + _%tl173651174528%_ + _%e173652174531%_ + _%hd173653174534%_ + _%tl173654174536%_ + _%e173655174539%_ + _%hd173656174542%_ + _%tl173657174544%_ + _%e173658174547%_ + _%hd173659174550%_ + _%tl173660174552%_ + _%e173661174555%_ + _%hd173662174558%_ + _%tl173663174560%_ + _%e173664174563%_ + _%hd173665174566%_ + _%tl173666174568%_)) + (_%__kont178104178105%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176817176818%_)) - (_%__kont176817176818%_)) - (_%__kont176817176818%_)))) - (_%__kont176817176818%_)))) - (_%__kont176817176818%_)) - (_%__kont176817176818%_)))) + (_%__kont178104178105%_)) + (_%__kont178104178105%_)) + (_%__kont178104178105%_)))) + (_%__kont178104178105%_)))) + (_%__kont178104178105%_)) + (_%__kont178104178105%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176817176818%_)) - (_%__kont176817176818%_)) - (_%__kont176817176818%_)))) - (_%__kont176817176818%_)))) - (_%__kont176817176818%_)))) - (_%__kont176817176818%_))))))) + (_%__kont178104178105%_)) + (_%__kont178104178105%_)) + (_%__kont178104178105%_)))) + (_%__kont178104178105%_)))) + (_%__kont178104178105%_)))) + (_%__kont178104178105%_))))))) (define gxc#subst-object-refs-call% - (lambda (_%self171283%_ _%stx171284%_) - (letrec ((_%force-e171286%_ - (lambda (_%target172342%_) + (lambda (_%self172570%_ _%stx172571%_) + (letrec ((_%force-e172573%_ + (lambda (_%target173629%_) (cons '%#call (cons (cons '%#ref (cons 'force '())) - (cons (cons '%#ref (cons _%target172342%_ '())) + (cons (cons '%#ref (cons _%target173629%_ '())) '())))))) - (let* ((_%__stx177301177302%_ _%stx171284%_) - (_%g171294171516%_ + (let* ((_%__stx178588178589%_ _%stx172571%_) + (_%g172581172803%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx177301177302%_))))) - (let ((_%__kont177303177304%_ - (lambda (_%L172288%_ _%L172289%_ _%L172290%_ _%L172291%_) - (let ((_%$method172336%_ - (let ((__tmp177932 + _%__stx178588178589%_))))) + (let ((_%__kont178590178591%_ + (lambda (_%L173575%_ _%L173576%_ _%L173577%_ _%L173578%_) + (let ((_%$method173623%_ + (let ((__tmp179219 (let () (declare (not safe)) - (slot-ref__0 _%self171283%_ 'methods))) - (__tmp177931 + (slot-ref__0 _%self172570%_ 'methods))) + (__tmp179218 (let () (declare (not safe)) - (gx#stx-e _%L172289%_)))) + (gx#stx-e _%L173576%_)))) (declare (not safe)) - (hash-ref__0 __tmp177932 __tmp177931))) - (_%args172337%_ - (map (lambda (_%g172324172326%_) + (hash-ref__0 __tmp179219 __tmp179218))) + (_%args173624%_ + (map (lambda (_%g173611173613%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self171283%_ - _%g172324172326%_))) - (let ((__tmp177933 - (lambda (_%g172328172331%_ - _%g172329172333%_) - (cons _%g172328172331%_ - _%g172329172333%_)))) + _%self172570%_ + _%g173611173613%_))) + (let ((__tmp179220 + (lambda (_%g173615173618%_ + _%g173616173620%_) + (cons _%g173615173618%_ + _%g173616173620%_)))) (declare (not safe)) - (__foldr1 __tmp177933 '() _%L172288%_))))) - (let ((__tmp177934 + (__foldr1 __tmp179220 '() _%L173575%_))))) + (let ((__tmp179221 (cons '%#call - (cons (_%force-e171286%_ _%$method172336%_) + (cons (_%force-e172573%_ _%$method173623%_) (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self172570%_ 'receiver)) '())) - _%args172337%_))))) + _%args173624%_))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177934 _%stx171284%_))))) - (_%__kont177307177308%_ - (lambda (_%L172120%_ - _%L172121%_ - _%L172122%_ - _%L172123%_ - _%L172124%_) - (let ((_%$method172176%_ - (let ((__tmp177936 + (gxc#xform-wrap-source __tmp179221 _%stx172571%_))))) + (_%__kont178594178595%_ + (lambda (_%L173407%_ + _%L173408%_ + _%L173409%_ + _%L173410%_ + _%L173411%_) + (let ((_%$method173463%_ + (let ((__tmp179223 (let () (declare (not safe)) - (slot-ref__0 _%self171283%_ 'methods))) - (__tmp177935 + (slot-ref__0 _%self172570%_ 'methods))) + (__tmp179222 (let () (declare (not safe)) - (gx#stx-e _%L172121%_)))) + (gx#stx-e _%L173408%_)))) (declare (not safe)) - (hash-ref__0 __tmp177936 __tmp177935))) - (_%args172177%_ - (map (lambda (_%g172164172166%_) + (hash-ref__0 __tmp179223 __tmp179222))) + (_%args173464%_ + (map (lambda (_%g173451173453%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self171283%_ - _%g172164172166%_))) - (let ((__tmp177937 - (lambda (_%g172168172171%_ - _%g172169172173%_) - (cons _%g172168172171%_ - _%g172169172173%_)))) + _%self172570%_ + _%g173451173453%_))) + (let ((__tmp179224 + (lambda (_%g173455173458%_ + _%g173456173460%_) + (cons _%g173455173458%_ + _%g173456173460%_)))) (declare (not safe)) - (__foldr1 __tmp177937 '() _%L172120%_))))) - (let ((__tmp177938 + (__foldr1 __tmp179224 '() _%L173407%_))))) + (let ((__tmp179225 (cons '%#call (cons (cons '%#ref (cons 'apply '())) - (cons (_%force-e171286%_ - _%$method172176%_) + (cons (_%force-e172573%_ + _%$method173463%_) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self171283%_ 'receiver)) + (slot-ref__0 _%self172570%_ 'receiver)) '())) - _%args172177%_)))))) + _%args173464%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp177938 _%stx171284%_))))) - (_%__kont177311177312%_ - (lambda (_%L171951%_ _%L171952%_ _%L171953%_) - (let* ((_%$field171985%_ - (let ((__tmp177940 + (gxc#xform-wrap-source __tmp179225 _%stx172571%_))))) + (_%__kont178598178599%_ + (lambda (_%L173238%_ _%L173239%_ _%L173240%_) + (let* ((_%$field173272%_ + (let ((__tmp179227 (let () (declare (not safe)) - (slot-ref__0 _%self171283%_ 'slots))) - (__tmp177939 + (slot-ref__0 _%self172570%_ 'slots))) + (__tmp179226 (let () (declare (not safe)) - (gx#stx-e _%L171951%_)))) + (gx#stx-e _%L173238%_)))) (declare (not safe)) - (hash-ref__0 __tmp177940 __tmp177939))) - (__tmp177941 + (hash-ref__0 __tmp179227 __tmp179226))) + (__tmp179228 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self172570%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field171985%_ + (cons _%$field173272%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self171283%_ 'receiver)) + (slot-ref__0 _%self172570%_ 'receiver)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177941 _%stx171284%_)))) - (_%__kont177313177314%_ - (lambda (_%L171825%_ _%L171826%_ _%L171827%_ _%L171828%_) - (let ((_%$field171863%_ - (let ((__tmp177943 + (gxc#xform-wrap-source __tmp179228 _%stx172571%_)))) + (_%__kont178600178601%_ + (lambda (_%L173112%_ _%L173113%_ _%L173114%_ _%L173115%_) + (let ((_%$field173150%_ + (let ((__tmp179230 (let () (declare (not safe)) - (slot-ref__0 _%self171283%_ 'slots))) - (__tmp177942 + (slot-ref__0 _%self172570%_ 'slots))) + (__tmp179229 (let () (declare (not safe)) - (gx#stx-e _%L171826%_)))) + (gx#stx-e _%L173113%_)))) (declare (not safe)) - (hash-ref__0 __tmp177943 __tmp177942))) - (_%expr171864%_ + (hash-ref__0 __tmp179230 __tmp179229))) + (_%expr173151%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self171283%_ _%L171825%_)))) - (let ((__tmp177944 + (gxc#compile-e__1 _%self172570%_ _%L173112%_)))) + (let ((__tmp179231 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self172570%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field171863%_ + (cons _%$field173150%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self171283%_ 'receiver)) + (slot-ref__0 _%self172570%_ 'receiver)) '())) - (cons _%expr171864%_ '()))))))) + (cons _%expr173151%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp177944 _%stx171284%_))))) - (_%__kont177315177316%_ - (lambda (_%L171697%_ _%L171698%_) - (let* ((_%accessor171720%_ - (let ((__tmp177945 + (gxc#xform-wrap-source __tmp179231 _%stx172571%_))))) + (_%__kont178602178603%_ + (lambda (_%L172984%_ _%L172985%_) + (let* ((_%accessor173007%_ + (let ((__tmp179232 (let () (declare (not safe)) - (gxc#identifier-symbol _%L171698%_)))) + (gxc#identifier-symbol _%L172985%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp177945))) - (_%klass171722%_ - (let ((__tmp177946 + (gxc#optimizer-resolve-type __tmp179232))) + (_%klass173009%_ + (let ((__tmp179233 (##structure-ref - _%accessor171720%_ + _%accessor173007%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx171284%_ - __tmp177946))) - (_%slot171724%_ + _%stx172571%_ + __tmp179233))) + (_%slot173011%_ (##structure-ref - _%accessor171720%_ + _%accessor173007%_ '3 gxc#!accessor::t '#f))) (if (if (##structure-ref - _%accessor171720%_ + _%accessor173007%_ '4 gxc#!accessor::t '#f) @@ -6959,37 +6959,37 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass171722%_ - _%slot171724%_)) + _%klass173009%_ + _%slot173011%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass171722%_ + _%klass173009%_ '8 '#f '#f)))) - _%stx171284%_ - (let* ((_%$field171730%_ - (let ((__tmp177947 + _%stx172571%_ + (let* ((_%$field173017%_ + (let ((__tmp179234 (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self172570%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp177947 _%slot171724%_))) - (__tmp177948 + (hash-ref__0 __tmp179234 _%slot173011%_))) + (__tmp179235 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self172570%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field171730%_ + (cons _%$field173017%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -6997,46 +6997,46 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self171283%_ 'receiver)) + (slot-ref__0 _%self172570%_ 'receiver)) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177948 - _%stx171284%_)))))) - (_%__kont177317177318%_ - (lambda (_%L171592%_ _%L171593%_ _%L171594%_) - (let* ((_%mutator171622%_ - (let ((__tmp177949 + __tmp179235 + _%stx172571%_)))))) + (_%__kont178604178605%_ + (lambda (_%L172879%_ _%L172880%_ _%L172881%_) + (let* ((_%mutator172909%_ + (let ((__tmp179236 (let () (declare (not safe)) - (gxc#identifier-symbol _%L171594%_)))) + (gxc#identifier-symbol _%L172881%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp177949))) - (_%klass171624%_ - (let ((__tmp177950 + (gxc#optimizer-resolve-type __tmp179236))) + (_%klass172911%_ + (let ((__tmp179237 (##structure-ref - _%mutator171622%_ + _%mutator172909%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx171284%_ - __tmp177950))) - (_%slot171626%_ + _%stx172571%_ + __tmp179237))) + (_%slot172913%_ (##structure-ref - _%mutator171622%_ + _%mutator172909%_ '3 gxc#!mutator::t '#f)) - (_%expr171628%_ + (_%expr172915%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self171283%_ _%L171592%_)))) + (gxc#compile-e__1 _%self172570%_ _%L172879%_)))) (if (if (##structure-ref - _%mutator171622%_ + _%mutator172909%_ '4 gxc#!mutator::t '#f) @@ -7044,56 +7044,56 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass171624%_ - _%slot171626%_)) + _%klass172911%_ + _%slot172913%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass171624%_ + _%klass172911%_ '8 '#f '#f)))) - (let ((__tmp177951 + (let ((__tmp179238 (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L171594%_ '())) + (cons _%L172881%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L171593%_ + (cons _%L172880%_ '())) - (cons _%expr171628%_ + (cons _%expr172915%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177951 _%stx171284%_)) - (let* ((_%$field171634%_ - (let ((__tmp177952 + (gxc#xform-wrap-source __tmp179238 _%stx172571%_)) + (let* ((_%$field172921%_ + (let ((__tmp179239 (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self172570%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp177952 _%slot171626%_))) - (__tmp177953 + (hash-ref__0 __tmp179239 _%slot172913%_))) + (__tmp179240 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self172570%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field171634%_ + (cons _%$field172921%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -7101,1846 +7101,1846 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self171283%_ 'receiver)) + (slot-ref__0 _%self172570%_ 'receiver)) '())) - (cons _%expr171628%_ '()))))))) + (cons _%expr172915%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177953 - _%stx171284%_)))))) - (_%__kont177319177320%_ + __tmp179240 + _%stx172571%_)))))) + (_%__kont178606178607%_ (lambda () (let () (declare (not safe)) - (gxc#xform-operands _%self171283%_ _%stx171284%_))))) - (let* ((_%__match177800177801%_ - (lambda (_%e171488171528%_ - _%hd171489171531%_ - _%tl171490171533%_ - _%e171491171536%_ - _%hd171492171539%_ - _%tl171493171541%_ - _%e171494171544%_ - _%hd171495171547%_ - _%tl171496171549%_ - _%e171497171552%_ - _%hd171498171555%_ - _%tl171499171557%_ - _%e171500171560%_ - _%hd171501171563%_ - _%tl171502171565%_ - _%e171503171568%_ - _%hd171504171571%_ - _%tl171505171573%_ - _%e171506171576%_ - _%hd171507171579%_ - _%tl171508171581%_ - _%e171509171584%_ - _%hd171510171587%_ - _%tl171511171589%_) - (let ((_%L171592%_ _%hd171510171587%_) - (_%L171593%_ _%hd171507171579%_) - (_%L171594%_ _%hd171498171555%_)) - (if (and (let ((__tmp177954 + (gxc#xform-operands _%self172570%_ _%stx172571%_))))) + (let* ((_%__match179087179088%_ + (lambda (_%e172775172815%_ + _%hd172776172818%_ + _%tl172777172820%_ + _%e172778172823%_ + _%hd172779172826%_ + _%tl172780172828%_ + _%e172781172831%_ + _%hd172782172834%_ + _%tl172783172836%_ + _%e172784172839%_ + _%hd172785172842%_ + _%tl172786172844%_ + _%e172787172847%_ + _%hd172788172850%_ + _%tl172789172852%_ + _%e172790172855%_ + _%hd172791172858%_ + _%tl172792172860%_ + _%e172793172863%_ + _%hd172794172866%_ + _%tl172795172868%_ + _%e172796172871%_ + _%hd172797172874%_ + _%tl172798172876%_) + (let ((_%L172879%_ _%hd172797172874%_) + (_%L172880%_ _%hd172794172866%_) + (_%L172881%_ _%hd172785172842%_)) + (if (and (let ((__tmp179241 (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self172570%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171593%_ - __tmp177954)) - (let ((__tmp177955 - (let ((__tmp177956 + _%L172880%_ + __tmp179241)) + (let ((__tmp179242 + (let ((__tmp179243 (let () (declare (not safe)) (gxc#identifier-symbol - _%L171594%_)))) + _%L172881%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp177956)))) + __tmp179243)))) (declare (not safe)) (##structure-instance-of? - __tmp177955 + __tmp179242 'gxc#!mutator::t))) - (_%__kont177317177318%_ - _%L171592%_ - _%L171593%_ - _%L171594%_) - (_%__kont177319177320%_))))) - (_%__match177798177799%_ - (lambda (_%e171488171528%_ - _%hd171489171531%_ - _%tl171490171533%_ - _%e171491171536%_ - _%hd171492171539%_ - _%tl171493171541%_ - _%e171494171544%_ - _%hd171495171547%_ - _%tl171496171549%_ - _%e171497171552%_ - _%hd171498171555%_ - _%tl171499171557%_ - _%e171500171560%_ - _%hd171501171563%_ - _%tl171502171565%_ - _%e171503171568%_ - _%hd171504171571%_ - _%tl171505171573%_ - _%e171506171576%_ - _%hd171507171579%_ - _%tl171508171581%_ - _%e171509171584%_ - _%hd171510171587%_ - _%tl171511171589%_) + (_%__kont178604178605%_ + _%L172879%_ + _%L172880%_ + _%L172881%_) + (_%__kont178606178607%_))))) + (_%__match179085179086%_ + (lambda (_%e172775172815%_ + _%hd172776172818%_ + _%tl172777172820%_ + _%e172778172823%_ + _%hd172779172826%_ + _%tl172780172828%_ + _%e172781172831%_ + _%hd172782172834%_ + _%tl172783172836%_ + _%e172784172839%_ + _%hd172785172842%_ + _%tl172786172844%_ + _%e172787172847%_ + _%hd172788172850%_ + _%tl172789172852%_ + _%e172790172855%_ + _%hd172791172858%_ + _%tl172792172860%_ + _%e172793172863%_ + _%hd172794172866%_ + _%tl172795172868%_ + _%e172796172871%_ + _%hd172797172874%_ + _%tl172798172876%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171511171589%_)) - (_%__match177800177801%_ - _%e171488171528%_ - _%hd171489171531%_ - _%tl171490171533%_ - _%e171491171536%_ - _%hd171492171539%_ - _%tl171493171541%_ - _%e171494171544%_ - _%hd171495171547%_ - _%tl171496171549%_ - _%e171497171552%_ - _%hd171498171555%_ - _%tl171499171557%_ - _%e171500171560%_ - _%hd171501171563%_ - _%tl171502171565%_ - _%e171503171568%_ - _%hd171504171571%_ - _%tl171505171573%_ - _%e171506171576%_ - _%hd171507171579%_ - _%tl171508171581%_ - _%e171509171584%_ - _%hd171510171587%_ - _%tl171511171589%_) - (_%__kont177319177320%_)))) - (_%__match177792177793%_ - (lambda (_%e171488171528%_ - _%hd171489171531%_ - _%tl171490171533%_ - _%e171491171536%_ - _%hd171492171539%_ - _%tl171493171541%_ - _%e171494171544%_ - _%hd171495171547%_ - _%tl171496171549%_ - _%e171497171552%_ - _%hd171498171555%_ - _%tl171499171557%_ - _%e171500171560%_ - _%hd171501171563%_ - _%tl171502171565%_ - _%e171503171568%_ - _%hd171504171571%_ - _%tl171505171573%_ - _%e171506171576%_ - _%hd171507171579%_ - _%tl171508171581%_) + (gx#stx-null? _%tl172798172876%_)) + (_%__match179087179088%_ + _%e172775172815%_ + _%hd172776172818%_ + _%tl172777172820%_ + _%e172778172823%_ + _%hd172779172826%_ + _%tl172780172828%_ + _%e172781172831%_ + _%hd172782172834%_ + _%tl172783172836%_ + _%e172784172839%_ + _%hd172785172842%_ + _%tl172786172844%_ + _%e172787172847%_ + _%hd172788172850%_ + _%tl172789172852%_ + _%e172790172855%_ + _%hd172791172858%_ + _%tl172792172860%_ + _%e172793172863%_ + _%hd172794172866%_ + _%tl172795172868%_ + _%e172796172871%_ + _%hd172797172874%_ + _%tl172798172876%_) + (_%__kont178606178607%_)))) + (_%__match179079179080%_ + (lambda (_%e172775172815%_ + _%hd172776172818%_ + _%tl172777172820%_ + _%e172778172823%_ + _%hd172779172826%_ + _%tl172780172828%_ + _%e172781172831%_ + _%hd172782172834%_ + _%tl172783172836%_ + _%e172784172839%_ + _%hd172785172842%_ + _%tl172786172844%_ + _%e172787172847%_ + _%hd172788172850%_ + _%tl172789172852%_ + _%e172790172855%_ + _%hd172791172858%_ + _%tl172792172860%_ + _%e172793172863%_ + _%hd172794172866%_ + _%tl172795172868%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171502171565%_)) - (let ((_%e171509171584%_ + (gx#stx-pair? _%tl172789172852%_)) + (let ((_%e172796172871%_ (let () (declare (not safe)) - (gx#stx-e _%tl171502171565%_)))) - (let ((_%tl171511171589%_ + (gx#stx-e _%tl172789172852%_)))) + (let ((_%tl172798172876%_ (let () (declare (not safe)) - (##cdr _%e171509171584%_))) - (_%hd171510171587%_ + (##cdr _%e172796172871%_))) + (_%hd172797172874%_ (let () (declare (not safe)) - (##car _%e171509171584%_)))) + (##car _%e172796172871%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171511171589%_)) - (_%__match177800177801%_ - _%e171488171528%_ - _%hd171489171531%_ - _%tl171490171533%_ - _%e171491171536%_ - _%hd171492171539%_ - _%tl171493171541%_ - _%e171494171544%_ - _%hd171495171547%_ - _%tl171496171549%_ - _%e171497171552%_ - _%hd171498171555%_ - _%tl171499171557%_ - _%e171500171560%_ - _%hd171501171563%_ - _%tl171502171565%_ - _%e171503171568%_ - _%hd171504171571%_ - _%tl171505171573%_ - _%e171506171576%_ - _%hd171507171579%_ - _%tl171508171581%_ - _%e171509171584%_ - _%hd171510171587%_ - _%tl171511171589%_) - (_%__kont177319177320%_)))) - (_%__kont177319177320%_)))) - (_%__match177738177739%_ - (lambda (_%e171464171641%_ - _%hd171465171644%_ - _%tl171466171646%_ - _%e171467171649%_ - _%hd171468171652%_ - _%tl171469171654%_ - _%e171470171657%_ - _%hd171471171660%_ - _%tl171472171662%_ - _%e171473171665%_ - _%hd171474171668%_ - _%tl171475171670%_ - _%e171476171673%_ - _%hd171477171676%_ - _%tl171478171678%_ - _%e171479171681%_ - _%hd171480171684%_ - _%tl171481171686%_ - _%e171482171689%_ - _%hd171483171692%_ - _%tl171484171694%_) - (let ((_%L171697%_ _%hd171483171692%_) - (_%L171698%_ _%hd171474171668%_)) - (if (and (let ((__tmp177957 + (gx#stx-null? _%tl172798172876%_)) + (_%__match179087179088%_ + _%e172775172815%_ + _%hd172776172818%_ + _%tl172777172820%_ + _%e172778172823%_ + _%hd172779172826%_ + _%tl172780172828%_ + _%e172781172831%_ + _%hd172782172834%_ + _%tl172783172836%_ + _%e172784172839%_ + _%hd172785172842%_ + _%tl172786172844%_ + _%e172787172847%_ + _%hd172788172850%_ + _%tl172789172852%_ + _%e172790172855%_ + _%hd172791172858%_ + _%tl172792172860%_ + _%e172793172863%_ + _%hd172794172866%_ + _%tl172795172868%_ + _%e172796172871%_ + _%hd172797172874%_ + _%tl172798172876%_) + (_%__kont178606178607%_)))) + (_%__kont178606178607%_)))) + (_%__match179025179026%_ + (lambda (_%e172751172928%_ + _%hd172752172931%_ + _%tl172753172933%_ + _%e172754172936%_ + _%hd172755172939%_ + _%tl172756172941%_ + _%e172757172944%_ + _%hd172758172947%_ + _%tl172759172949%_ + _%e172760172952%_ + _%hd172761172955%_ + _%tl172762172957%_ + _%e172763172960%_ + _%hd172764172963%_ + _%tl172765172965%_ + _%e172766172968%_ + _%hd172767172971%_ + _%tl172768172973%_ + _%e172769172976%_ + _%hd172770172979%_ + _%tl172771172981%_) + (let ((_%L172984%_ _%hd172770172979%_) + (_%L172985%_ _%hd172761172955%_)) + (if (and (let ((__tmp179244 (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self172570%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171697%_ - __tmp177957)) - (let ((__tmp177958 - (let ((__tmp177959 + _%L172984%_ + __tmp179244)) + (let ((__tmp179245 + (let ((__tmp179246 (let () (declare (not safe)) (gxc#identifier-symbol - _%L171698%_)))) + _%L172985%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp177959)))) + __tmp179246)))) (declare (not safe)) (##structure-instance-of? - __tmp177958 + __tmp179245 'gxc#!accessor::t))) - (_%__kont177315177316%_ _%L171697%_ _%L171698%_) - (_%__kont177319177320%_))))) - (_%__match177736177737%_ - (lambda (_%e171464171641%_ - _%hd171465171644%_ - _%tl171466171646%_ - _%e171467171649%_ - _%hd171468171652%_ - _%tl171469171654%_ - _%e171470171657%_ - _%hd171471171660%_ - _%tl171472171662%_ - _%e171473171665%_ - _%hd171474171668%_ - _%tl171475171670%_ - _%e171476171673%_ - _%hd171477171676%_ - _%tl171478171678%_ - _%e171479171681%_ - _%hd171480171684%_ - _%tl171481171686%_ - _%e171482171689%_ - _%hd171483171692%_ - _%tl171484171694%_) + (_%__kont178602178603%_ _%L172984%_ _%L172985%_) + (_%__kont178606178607%_))))) + (_%__match179023179024%_ + (lambda (_%e172751172928%_ + _%hd172752172931%_ + _%tl172753172933%_ + _%e172754172936%_ + _%hd172755172939%_ + _%tl172756172941%_ + _%e172757172944%_ + _%hd172758172947%_ + _%tl172759172949%_ + _%e172760172952%_ + _%hd172761172955%_ + _%tl172762172957%_ + _%e172763172960%_ + _%hd172764172963%_ + _%tl172765172965%_ + _%e172766172968%_ + _%hd172767172971%_ + _%tl172768172973%_ + _%e172769172976%_ + _%hd172770172979%_ + _%tl172771172981%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171478171678%_)) - (_%__match177738177739%_ - _%e171464171641%_ - _%hd171465171644%_ - _%tl171466171646%_ - _%e171467171649%_ - _%hd171468171652%_ - _%tl171469171654%_ - _%e171470171657%_ - _%hd171471171660%_ - _%tl171472171662%_ - _%e171473171665%_ - _%hd171474171668%_ - _%tl171475171670%_ - _%e171476171673%_ - _%hd171477171676%_ - _%tl171478171678%_ - _%e171479171681%_ - _%hd171480171684%_ - _%tl171481171686%_ - _%e171482171689%_ - _%hd171483171692%_ - _%tl171484171694%_) - (_%__match177792177793%_ - _%e171464171641%_ - _%hd171465171644%_ - _%tl171466171646%_ - _%e171467171649%_ - _%hd171468171652%_ - _%tl171469171654%_ - _%e171470171657%_ - _%hd171471171660%_ - _%tl171472171662%_ - _%e171473171665%_ - _%hd171474171668%_ - _%tl171475171670%_ - _%e171476171673%_ - _%hd171477171676%_ - _%tl171478171678%_ - _%e171479171681%_ - _%hd171480171684%_ - _%tl171481171686%_ - _%e171482171689%_ - _%hd171483171692%_ - _%tl171484171694%_)))) - (_%__match177682177683%_ - (lambda (_%e171429171737%_ - _%hd171430171740%_ - _%tl171431171742%_ - _%e171432171745%_ - _%hd171433171748%_ - _%tl171434171750%_ - _%e171435171753%_ - _%hd171436171756%_ - _%tl171437171758%_ - _%e171438171761%_ - _%hd171439171764%_ - _%tl171440171766%_ - _%e171441171769%_ - _%hd171442171772%_ - _%tl171443171774%_ - _%e171444171777%_ - _%hd171445171780%_ - _%tl171446171782%_ - _%e171447171785%_ - _%hd171448171788%_ - _%tl171449171790%_ - _%e171450171793%_ - _%hd171451171796%_ - _%tl171452171798%_ - _%e171453171801%_ - _%hd171454171804%_ - _%tl171455171806%_ - _%e171456171809%_ - _%hd171457171812%_ - _%tl171458171814%_ - _%e171459171817%_ - _%hd171460171820%_ - _%tl171461171822%_) - (let ((_%L171825%_ _%hd171460171820%_) - (_%L171826%_ _%hd171457171812%_) - (_%L171827%_ _%hd171448171788%_) - (_%L171828%_ _%hd171439171764%_)) + (gx#stx-null? _%tl172765172965%_)) + (_%__match179025179026%_ + _%e172751172928%_ + _%hd172752172931%_ + _%tl172753172933%_ + _%e172754172936%_ + _%hd172755172939%_ + _%tl172756172941%_ + _%e172757172944%_ + _%hd172758172947%_ + _%tl172759172949%_ + _%e172760172952%_ + _%hd172761172955%_ + _%tl172762172957%_ + _%e172763172960%_ + _%hd172764172963%_ + _%tl172765172965%_ + _%e172766172968%_ + _%hd172767172971%_ + _%tl172768172973%_ + _%e172769172976%_ + _%hd172770172979%_ + _%tl172771172981%_) + (_%__match179079179080%_ + _%e172751172928%_ + _%hd172752172931%_ + _%tl172753172933%_ + _%e172754172936%_ + _%hd172755172939%_ + _%tl172756172941%_ + _%e172757172944%_ + _%hd172758172947%_ + _%tl172759172949%_ + _%e172760172952%_ + _%hd172761172955%_ + _%tl172762172957%_ + _%e172763172960%_ + _%hd172764172963%_ + _%tl172765172965%_ + _%e172766172968%_ + _%hd172767172971%_ + _%tl172768172973%_ + _%e172769172976%_ + _%hd172770172979%_ + _%tl172771172981%_)))) + (_%__match178969178970%_ + (lambda (_%e172716173024%_ + _%hd172717173027%_ + _%tl172718173029%_ + _%e172719173032%_ + _%hd172720173035%_ + _%tl172721173037%_ + _%e172722173040%_ + _%hd172723173043%_ + _%tl172724173045%_ + _%e172725173048%_ + _%hd172726173051%_ + _%tl172727173053%_ + _%e172728173056%_ + _%hd172729173059%_ + _%tl172730173061%_ + _%e172731173064%_ + _%hd172732173067%_ + _%tl172733173069%_ + _%e172734173072%_ + _%hd172735173075%_ + _%tl172736173077%_ + _%e172737173080%_ + _%hd172738173083%_ + _%tl172739173085%_ + _%e172740173088%_ + _%hd172741173091%_ + _%tl172742173093%_ + _%e172743173096%_ + _%hd172744173099%_ + _%tl172745173101%_ + _%e172746173104%_ + _%hd172747173107%_ + _%tl172748173109%_) + (let ((_%L173112%_ _%hd172747173107%_) + (_%L173113%_ _%hd172744173099%_) + (_%L173114%_ _%hd172735173075%_) + (_%L173115%_ _%hd172726173051%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171828%_ + _%L173115%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171828%_ + _%L173115%_ 'unchecked-slot-set!))) - (let ((__tmp177960 + (let ((__tmp179247 (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self172570%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171827%_ - __tmp177960))) - (_%__kont177313177314%_ - _%L171825%_ - _%L171826%_ - _%L171827%_ - _%L171828%_) - (_%__kont177319177320%_))))) - (_%__match177674177675%_ - (lambda (_%e171429171737%_ - _%hd171430171740%_ - _%tl171431171742%_ - _%e171432171745%_ - _%hd171433171748%_ - _%tl171434171750%_ - _%e171435171753%_ - _%hd171436171756%_ - _%tl171437171758%_ - _%e171438171761%_ - _%hd171439171764%_ - _%tl171440171766%_ - _%e171441171769%_ - _%hd171442171772%_ - _%tl171443171774%_ - _%e171444171777%_ - _%hd171445171780%_ - _%tl171446171782%_ - _%e171447171785%_ - _%hd171448171788%_ - _%tl171449171790%_ - _%e171450171793%_ - _%hd171451171796%_ - _%tl171452171798%_ - _%e171453171801%_ - _%hd171454171804%_ - _%tl171455171806%_ - _%e171456171809%_ - _%hd171457171812%_ - _%tl171458171814%_) + _%L173114%_ + __tmp179247))) + (_%__kont178600178601%_ + _%L173112%_ + _%L173113%_ + _%L173114%_ + _%L173115%_) + (_%__kont178606178607%_))))) + (_%__match178961178962%_ + (lambda (_%e172716173024%_ + _%hd172717173027%_ + _%tl172718173029%_ + _%e172719173032%_ + _%hd172720173035%_ + _%tl172721173037%_ + _%e172722173040%_ + _%hd172723173043%_ + _%tl172724173045%_ + _%e172725173048%_ + _%hd172726173051%_ + _%tl172727173053%_ + _%e172728173056%_ + _%hd172729173059%_ + _%tl172730173061%_ + _%e172731173064%_ + _%hd172732173067%_ + _%tl172733173069%_ + _%e172734173072%_ + _%hd172735173075%_ + _%tl172736173077%_ + _%e172737173080%_ + _%hd172738173083%_ + _%tl172739173085%_ + _%e172740173088%_ + _%hd172741173091%_ + _%tl172742173093%_ + _%e172743173096%_ + _%hd172744173099%_ + _%tl172745173101%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171452171798%_)) - (let ((_%e171459171817%_ + (gx#stx-pair? _%tl172739173085%_)) + (let ((_%e172746173104%_ (let () (declare (not safe)) - (gx#stx-e _%tl171452171798%_)))) - (let ((_%tl171461171822%_ + (gx#stx-e _%tl172739173085%_)))) + (let ((_%tl172748173109%_ (let () (declare (not safe)) - (##cdr _%e171459171817%_))) - (_%hd171460171820%_ + (##cdr _%e172746173104%_))) + (_%hd172747173107%_ (let () (declare (not safe)) - (##car _%e171459171817%_)))) + (##car _%e172746173104%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171461171822%_)) - (_%__match177682177683%_ - _%e171429171737%_ - _%hd171430171740%_ - _%tl171431171742%_ - _%e171432171745%_ - _%hd171433171748%_ - _%tl171434171750%_ - _%e171435171753%_ - _%hd171436171756%_ - _%tl171437171758%_ - _%e171438171761%_ - _%hd171439171764%_ - _%tl171440171766%_ - _%e171441171769%_ - _%hd171442171772%_ - _%tl171443171774%_ - _%e171444171777%_ - _%hd171445171780%_ - _%tl171446171782%_ - _%e171447171785%_ - _%hd171448171788%_ - _%tl171449171790%_ - _%e171450171793%_ - _%hd171451171796%_ - _%tl171452171798%_ - _%e171453171801%_ - _%hd171454171804%_ - _%tl171455171806%_ - _%e171456171809%_ - _%hd171457171812%_ - _%tl171458171814%_ - _%e171459171817%_ - _%hd171460171820%_ - _%tl171461171822%_) - (_%__kont177319177320%_)))) - (_%__match177798177799%_ - _%e171429171737%_ - _%hd171430171740%_ - _%tl171431171742%_ - _%e171432171745%_ - _%hd171433171748%_ - _%tl171434171750%_ - _%e171435171753%_ - _%hd171436171756%_ - _%tl171437171758%_ - _%e171438171761%_ - _%hd171439171764%_ - _%tl171440171766%_ - _%e171441171769%_ - _%hd171442171772%_ - _%tl171443171774%_ - _%e171444171777%_ - _%hd171445171780%_ - _%tl171446171782%_ - _%e171447171785%_ - _%hd171448171788%_ - _%tl171449171790%_ - _%e171450171793%_ - _%hd171451171796%_ - _%tl171452171798%_)))) - (_%__match177596177597%_ - (lambda (_%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_ - _%e171419171935%_ - _%hd171420171938%_ - _%tl171421171940%_ - _%e171422171943%_ - _%hd171423171946%_ - _%tl171424171948%_) - (let ((_%L171951%_ _%hd171423171946%_) - (_%L171952%_ _%hd171414171922%_) - (_%L171953%_ _%hd171405171898%_)) + (gx#stx-null? _%tl172748173109%_)) + (_%__match178969178970%_ + _%e172716173024%_ + _%hd172717173027%_ + _%tl172718173029%_ + _%e172719173032%_ + _%hd172720173035%_ + _%tl172721173037%_ + _%e172722173040%_ + _%hd172723173043%_ + _%tl172724173045%_ + _%e172725173048%_ + _%hd172726173051%_ + _%tl172727173053%_ + _%e172728173056%_ + _%hd172729173059%_ + _%tl172730173061%_ + _%e172731173064%_ + _%hd172732173067%_ + _%tl172733173069%_ + _%e172734173072%_ + _%hd172735173075%_ + _%tl172736173077%_ + _%e172737173080%_ + _%hd172738173083%_ + _%tl172739173085%_ + _%e172740173088%_ + _%hd172741173091%_ + _%tl172742173093%_ + _%e172743173096%_ + _%hd172744173099%_ + _%tl172745173101%_ + _%e172746173104%_ + _%hd172747173107%_ + _%tl172748173109%_) + (_%__kont178606178607%_)))) + (_%__match179085179086%_ + _%e172716173024%_ + _%hd172717173027%_ + _%tl172718173029%_ + _%e172719173032%_ + _%hd172720173035%_ + _%tl172721173037%_ + _%e172722173040%_ + _%hd172723173043%_ + _%tl172724173045%_ + _%e172725173048%_ + _%hd172726173051%_ + _%tl172727173053%_ + _%e172728173056%_ + _%hd172729173059%_ + _%tl172730173061%_ + _%e172731173064%_ + _%hd172732173067%_ + _%tl172733173069%_ + _%e172734173072%_ + _%hd172735173075%_ + _%tl172736173077%_ + _%e172737173080%_ + _%hd172738173083%_ + _%tl172739173085%_)))) + (_%__match178883178884%_ + (lambda (_%e172682173158%_ + _%hd172683173161%_ + _%tl172684173163%_ + _%e172685173166%_ + _%hd172686173169%_ + _%tl172687173171%_ + _%e172688173174%_ + _%hd172689173177%_ + _%tl172690173179%_ + _%e172691173182%_ + _%hd172692173185%_ + _%tl172693173187%_ + _%e172694173190%_ + _%hd172695173193%_ + _%tl172696173195%_ + _%e172697173198%_ + _%hd172698173201%_ + _%tl172699173203%_ + _%e172700173206%_ + _%hd172701173209%_ + _%tl172702173211%_ + _%e172703173214%_ + _%hd172704173217%_ + _%tl172705173219%_ + _%e172706173222%_ + _%hd172707173225%_ + _%tl172708173227%_ + _%e172709173230%_ + _%hd172710173233%_ + _%tl172711173235%_) + (let ((_%L173238%_ _%hd172710173233%_) + (_%L173239%_ _%hd172701173209%_) + (_%L173240%_ _%hd172692173185%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171953%_ + _%L173240%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171953%_ + _%L173240%_ 'unchecked-slot-ref))) - (let ((__tmp177961 + (let ((__tmp179248 (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self172570%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171952%_ - __tmp177961))) - (_%__kont177311177312%_ - _%L171951%_ - _%L171952%_ - _%L171953%_) - (_%__match177800177801%_ - _%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_))))) - (_%__match177594177595%_ - (lambda (_%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_ - _%e171419171935%_ - _%hd171420171938%_ - _%tl171421171940%_ - _%e171422171943%_ - _%hd171423171946%_ - _%tl171424171948%_) + _%L173239%_ + __tmp179248))) + (_%__kont178598178599%_ + _%L173238%_ + _%L173239%_ + _%L173240%_) + (_%__match179087179088%_ + _%e172682173158%_ + _%hd172683173161%_ + _%tl172684173163%_ + _%e172685173166%_ + _%hd172686173169%_ + _%tl172687173171%_ + _%e172688173174%_ + _%hd172689173177%_ + _%tl172690173179%_ + _%e172691173182%_ + _%hd172692173185%_ + _%tl172693173187%_ + _%e172694173190%_ + _%hd172695173193%_ + _%tl172696173195%_ + _%e172697173198%_ + _%hd172698173201%_ + _%tl172699173203%_ + _%e172700173206%_ + _%hd172701173209%_ + _%tl172702173211%_ + _%e172703173214%_ + _%hd172704173217%_ + _%tl172705173219%_))))) + (_%__match178881178882%_ + (lambda (_%e172682173158%_ + _%hd172683173161%_ + _%tl172684173163%_ + _%e172685173166%_ + _%hd172686173169%_ + _%tl172687173171%_ + _%e172688173174%_ + _%hd172689173177%_ + _%tl172690173179%_ + _%e172691173182%_ + _%hd172692173185%_ + _%tl172693173187%_ + _%e172694173190%_ + _%hd172695173193%_ + _%tl172696173195%_ + _%e172697173198%_ + _%hd172698173201%_ + _%tl172699173203%_ + _%e172700173206%_ + _%hd172701173209%_ + _%tl172702173211%_ + _%e172703173214%_ + _%hd172704173217%_ + _%tl172705173219%_ + _%e172706173222%_ + _%hd172707173225%_ + _%tl172708173227%_ + _%e172709173230%_ + _%hd172710173233%_ + _%tl172711173235%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171418171932%_)) - (_%__match177596177597%_ - _%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_ - _%e171419171935%_ - _%hd171420171938%_ - _%tl171421171940%_ - _%e171422171943%_ - _%hd171423171946%_ - _%tl171424171948%_) - (_%__match177674177675%_ - _%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_ - _%e171419171935%_ - _%hd171420171938%_ - _%tl171421171940%_ - _%e171422171943%_ - _%hd171423171946%_ - _%tl171424171948%_)))) - (_%__match177584177585%_ - (lambda (_%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_ - _%e171419171935%_ - _%hd171420171938%_ - _%tl171421171940%_) + (gx#stx-null? _%tl172705173219%_)) + (_%__match178883178884%_ + _%e172682173158%_ + _%hd172683173161%_ + _%tl172684173163%_ + _%e172685173166%_ + _%hd172686173169%_ + _%tl172687173171%_ + _%e172688173174%_ + _%hd172689173177%_ + _%tl172690173179%_ + _%e172691173182%_ + _%hd172692173185%_ + _%tl172693173187%_ + _%e172694173190%_ + _%hd172695173193%_ + _%tl172696173195%_ + _%e172697173198%_ + _%hd172698173201%_ + _%tl172699173203%_ + _%e172700173206%_ + _%hd172701173209%_ + _%tl172702173211%_ + _%e172703173214%_ + _%hd172704173217%_ + _%tl172705173219%_ + _%e172706173222%_ + _%hd172707173225%_ + _%tl172708173227%_ + _%e172709173230%_ + _%hd172710173233%_ + _%tl172711173235%_) + (_%__match178961178962%_ + _%e172682173158%_ + _%hd172683173161%_ + _%tl172684173163%_ + _%e172685173166%_ + _%hd172686173169%_ + _%tl172687173171%_ + _%e172688173174%_ + _%hd172689173177%_ + _%tl172690173179%_ + _%e172691173182%_ + _%hd172692173185%_ + _%tl172693173187%_ + _%e172694173190%_ + _%hd172695173193%_ + _%tl172696173195%_ + _%e172697173198%_ + _%hd172698173201%_ + _%tl172699173203%_ + _%e172700173206%_ + _%hd172701173209%_ + _%tl172702173211%_ + _%e172703173214%_ + _%hd172704173217%_ + _%tl172705173219%_ + _%e172706173222%_ + _%hd172707173225%_ + _%tl172708173227%_ + _%e172709173230%_ + _%hd172710173233%_ + _%tl172711173235%_)))) + (_%__match178871178872%_ + (lambda (_%e172682173158%_ + _%hd172683173161%_ + _%tl172684173163%_ + _%e172685173166%_ + _%hd172686173169%_ + _%tl172687173171%_ + _%e172688173174%_ + _%hd172689173177%_ + _%tl172690173179%_ + _%e172691173182%_ + _%hd172692173185%_ + _%tl172693173187%_ + _%e172694173190%_ + _%hd172695173193%_ + _%tl172696173195%_ + _%e172697173198%_ + _%hd172698173201%_ + _%tl172699173203%_ + _%e172700173206%_ + _%hd172701173209%_ + _%tl172702173211%_ + _%e172703173214%_ + _%hd172704173217%_ + _%tl172705173219%_ + _%e172706173222%_ + _%hd172707173225%_ + _%tl172708173227%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd171420171938%_)) + (gx#stx-eq? '%#quote _%hd172707173225%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171421171940%_)) - (let ((_%e171422171943%_ + (gx#stx-pair? _%tl172708173227%_)) + (let ((_%e172709173230%_ (let () (declare (not safe)) - (gx#stx-e _%tl171421171940%_)))) - (let ((_%tl171424171948%_ + (gx#stx-e _%tl172708173227%_)))) + (let ((_%tl172711173235%_ (let () (declare (not safe)) - (##cdr _%e171422171943%_))) - (_%hd171423171946%_ + (##cdr _%e172709173230%_))) + (_%hd172710173233%_ (let () (declare (not safe)) - (##car _%e171422171943%_)))) + (##car _%e172709173230%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171424171948%_)) + (gx#stx-null? _%tl172711173235%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171418171932%_)) - (_%__match177596177597%_ - _%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_ - _%e171419171935%_ - _%hd171420171938%_ - _%tl171421171940%_ - _%e171422171943%_ - _%hd171423171946%_ - _%tl171424171948%_) - (_%__match177674177675%_ - _%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_ - _%e171419171935%_ - _%hd171420171938%_ - _%tl171421171940%_ - _%e171422171943%_ - _%hd171423171946%_ - _%tl171424171948%_)) - (_%__match177798177799%_ - _%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_)))) - (_%__match177798177799%_ - _%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_)) - (_%__match177798177799%_ - _%e171395171871%_ - _%hd171396171874%_ - _%tl171397171876%_ - _%e171398171879%_ - _%hd171399171882%_ - _%tl171400171884%_ - _%e171401171887%_ - _%hd171402171890%_ - _%tl171403171892%_ - _%e171404171895%_ - _%hd171405171898%_ - _%tl171406171900%_ - _%e171407171903%_ - _%hd171408171906%_ - _%tl171409171908%_ - _%e171410171911%_ - _%hd171411171914%_ - _%tl171412171916%_ - _%e171413171919%_ - _%hd171414171922%_ - _%tl171415171924%_ - _%e171416171927%_ - _%hd171417171930%_ - _%tl171418171932%_)))) - (_%__match177516177517%_ - (lambda (_%e171344171992%_ - _%hd171345171995%_ - _%tl171346171997%_ - _%e171347172000%_ - _%hd171348172003%_ - _%tl171349172005%_ - _%e171350172008%_ - _%hd171351172011%_ - _%tl171352172013%_ - _%e171353172016%_ - _%hd171354172019%_ - _%tl171355172021%_ - _%e171356172024%_ - _%hd171357172027%_ - _%tl171358172029%_ - _%e171359172032%_ - _%hd171360172035%_ - _%tl171361172037%_ - _%e171362172040%_ - _%hd171363172043%_ - _%tl171364172045%_ - _%e171365172048%_ - _%hd171366172051%_ - _%tl171367172053%_ - _%e171368172056%_ - _%hd171369172059%_ - _%tl171370172061%_ - _%e171371172064%_ - _%hd171372172067%_ - _%tl171373172069%_ - _%e171374172072%_ - _%hd171375172075%_ - _%tl171376172077%_ - _%e171377172080%_ - _%hd171378172083%_ - _%tl171379172085%_ - _%e171380172088%_ - _%hd171381172091%_ - _%tl171382172093%_ - _%__splice177309177310%_ - _%target171383172096%_ - _%tl171385172098%_) - (letrec ((_%loop171386172101%_ - (lambda (_%hd171384172104%_ - _%args171390172106%_) + _%tl172705173219%_)) + (_%__match178883178884%_ + _%e172682173158%_ + _%hd172683173161%_ + _%tl172684173163%_ + _%e172685173166%_ + _%hd172686173169%_ + _%tl172687173171%_ + _%e172688173174%_ + _%hd172689173177%_ + _%tl172690173179%_ + _%e172691173182%_ + _%hd172692173185%_ + _%tl172693173187%_ + _%e172694173190%_ + _%hd172695173193%_ + _%tl172696173195%_ + _%e172697173198%_ + _%hd172698173201%_ + _%tl172699173203%_ + _%e172700173206%_ + _%hd172701173209%_ + _%tl172702173211%_ + _%e172703173214%_ + _%hd172704173217%_ + _%tl172705173219%_ + _%e172706173222%_ + _%hd172707173225%_ + _%tl172708173227%_ + _%e172709173230%_ + _%hd172710173233%_ + _%tl172711173235%_) + (_%__match178961178962%_ + _%e172682173158%_ + _%hd172683173161%_ + _%tl172684173163%_ + _%e172685173166%_ + _%hd172686173169%_ + _%tl172687173171%_ + _%e172688173174%_ + _%hd172689173177%_ + _%tl172690173179%_ + _%e172691173182%_ + _%hd172692173185%_ + _%tl172693173187%_ + _%e172694173190%_ + _%hd172695173193%_ + _%tl172696173195%_ + _%e172697173198%_ + _%hd172698173201%_ + _%tl172699173203%_ + _%e172700173206%_ + _%hd172701173209%_ + _%tl172702173211%_ + _%e172703173214%_ + _%hd172704173217%_ + _%tl172705173219%_ + _%e172706173222%_ + _%hd172707173225%_ + _%tl172708173227%_ + _%e172709173230%_ + _%hd172710173233%_ + _%tl172711173235%_)) + (_%__match179085179086%_ + _%e172682173158%_ + _%hd172683173161%_ + _%tl172684173163%_ + _%e172685173166%_ + _%hd172686173169%_ + _%tl172687173171%_ + _%e172688173174%_ + _%hd172689173177%_ + _%tl172690173179%_ + _%e172691173182%_ + _%hd172692173185%_ + _%tl172693173187%_ + _%e172694173190%_ + _%hd172695173193%_ + _%tl172696173195%_ + _%e172697173198%_ + _%hd172698173201%_ + _%tl172699173203%_ + _%e172700173206%_ + _%hd172701173209%_ + _%tl172702173211%_ + _%e172703173214%_ + _%hd172704173217%_ + _%tl172705173219%_)))) + (_%__match179085179086%_ + _%e172682173158%_ + _%hd172683173161%_ + _%tl172684173163%_ + _%e172685173166%_ + _%hd172686173169%_ + _%tl172687173171%_ + _%e172688173174%_ + _%hd172689173177%_ + _%tl172690173179%_ + _%e172691173182%_ + _%hd172692173185%_ + _%tl172693173187%_ + _%e172694173190%_ + _%hd172695173193%_ + _%tl172696173195%_ + _%e172697173198%_ + _%hd172698173201%_ + _%tl172699173203%_ + _%e172700173206%_ + _%hd172701173209%_ + _%tl172702173211%_ + _%e172703173214%_ + _%hd172704173217%_ + _%tl172705173219%_)) + (_%__match179085179086%_ + _%e172682173158%_ + _%hd172683173161%_ + _%tl172684173163%_ + _%e172685173166%_ + _%hd172686173169%_ + _%tl172687173171%_ + _%e172688173174%_ + _%hd172689173177%_ + _%tl172690173179%_ + _%e172691173182%_ + _%hd172692173185%_ + _%tl172693173187%_ + _%e172694173190%_ + _%hd172695173193%_ + _%tl172696173195%_ + _%e172697173198%_ + _%hd172698173201%_ + _%tl172699173203%_ + _%e172700173206%_ + _%hd172701173209%_ + _%tl172702173211%_ + _%e172703173214%_ + _%hd172704173217%_ + _%tl172705173219%_)))) + (_%__match178803178804%_ + (lambda (_%e172631173279%_ + _%hd172632173282%_ + _%tl172633173284%_ + _%e172634173287%_ + _%hd172635173290%_ + _%tl172636173292%_ + _%e172637173295%_ + _%hd172638173298%_ + _%tl172639173300%_ + _%e172640173303%_ + _%hd172641173306%_ + _%tl172642173308%_ + _%e172643173311%_ + _%hd172644173314%_ + _%tl172645173316%_ + _%e172646173319%_ + _%hd172647173322%_ + _%tl172648173324%_ + _%e172649173327%_ + _%hd172650173330%_ + _%tl172651173332%_ + _%e172652173335%_ + _%hd172653173338%_ + _%tl172654173340%_ + _%e172655173343%_ + _%hd172656173346%_ + _%tl172657173348%_ + _%e172658173351%_ + _%hd172659173354%_ + _%tl172660173356%_ + _%e172661173359%_ + _%hd172662173362%_ + _%tl172663173364%_ + _%e172664173367%_ + _%hd172665173370%_ + _%tl172666173372%_ + _%e172667173375%_ + _%hd172668173378%_ + _%tl172669173380%_ + _%__splice178596178597%_ + _%target172670173383%_ + _%tl172672173385%_) + (letrec ((_%loop172673173388%_ + (lambda (_%hd172671173391%_ + _%args172677173393%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171384172104%_)) - (let ((_%e171387172109%_ + (gx#stx-pair? _%hd172671173391%_)) + (let ((_%e172674173396%_ (let () (declare (not safe)) (gx#stx-e - _%hd171384172104%_)))) - (let ((_%lp-tl171389172114%_ + _%hd172671173391%_)))) + (let ((_%lp-tl172676173401%_ (let () (declare (not safe)) - (##cdr _%e171387172109%_))) - (_%lp-hd171388172112%_ + (##cdr _%e172674173396%_))) + (_%lp-hd172675173399%_ (let () (declare (not safe)) - (##car _%e171387172109%_)))) - (_%loop171386172101%_ - _%lp-tl171389172114%_ - (cons _%lp-hd171388172112%_ - _%args171390172106%_)))) - (let ((_%args171391172117%_ - (reverse _%args171390172106%_))) - (let ((_%L172120%_ - _%args171391172117%_) - (_%L172121%_ - _%hd171381172091%_) - (_%L172122%_ - _%hd171372172067%_) - (_%L172123%_ - _%hd171363172043%_) - (_%L172124%_ - _%hd171354172019%_)) + (##car _%e172674173396%_)))) + (_%loop172673173388%_ + _%lp-tl172676173401%_ + (cons _%lp-hd172675173399%_ + _%args172677173393%_)))) + (let ((_%args172678173404%_ + (reverse _%args172677173393%_))) + (let ((_%L173407%_ + _%args172678173404%_) + (_%L173408%_ + _%hd172668173378%_) + (_%L173409%_ + _%hd172659173354%_) + (_%L173410%_ + _%hd172650173330%_) + (_%L173411%_ + _%hd172641173306%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172124%_ + _%L173411%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172123%_ + _%L173410%_ 'call-method)) - (let ((__tmp177962 + (let ((__tmp179249 (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self172570%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172122%_ - __tmp177962))) - (_%__kont177307177308%_ - _%L172120%_ - _%L172121%_ - _%L172122%_ - _%L172123%_ - _%L172124%_) - (_%__kont177319177320%_)))))))) - (_%loop171386172101%_ _%target171383172096%_ '())))) - (_%__match177474177475%_ - (lambda (_%e171344171992%_ - _%hd171345171995%_ - _%tl171346171997%_ - _%e171347172000%_ - _%hd171348172003%_ - _%tl171349172005%_ - _%e171350172008%_ - _%hd171351172011%_ - _%tl171352172013%_ - _%e171353172016%_ - _%hd171354172019%_ - _%tl171355172021%_ - _%e171356172024%_ - _%hd171357172027%_ - _%tl171358172029%_ - _%e171359172032%_ - _%hd171360172035%_ - _%tl171361172037%_ - _%e171362172040%_ - _%hd171363172043%_ - _%tl171364172045%_ - _%e171365172048%_ - _%hd171366172051%_ - _%tl171367172053%_ - _%e171368172056%_ - _%hd171369172059%_ - _%tl171370172061%_) + _%L173409%_ + __tmp179249))) + (_%__kont178594178595%_ + _%L173407%_ + _%L173408%_ + _%L173409%_ + _%L173410%_ + _%L173411%_) + (_%__kont178606178607%_)))))))) + (_%loop172673173388%_ _%target172670173383%_ '())))) + (_%__match178761178762%_ + (lambda (_%e172631173279%_ + _%hd172632173282%_ + _%tl172633173284%_ + _%e172634173287%_ + _%hd172635173290%_ + _%tl172636173292%_ + _%e172637173295%_ + _%hd172638173298%_ + _%tl172639173300%_ + _%e172640173303%_ + _%hd172641173306%_ + _%tl172642173308%_ + _%e172643173311%_ + _%hd172644173314%_ + _%tl172645173316%_ + _%e172646173319%_ + _%hd172647173322%_ + _%tl172648173324%_ + _%e172649173327%_ + _%hd172650173330%_ + _%tl172651173332%_ + _%e172652173335%_ + _%hd172653173338%_ + _%tl172654173340%_ + _%e172655173343%_ + _%hd172656173346%_ + _%tl172657173348%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd171369172059%_)) + (gx#stx-eq? '%#ref _%hd172656173346%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171370172061%_)) - (let ((_%e171371172064%_ + (gx#stx-pair? _%tl172657173348%_)) + (let ((_%e172658173351%_ (let () (declare (not safe)) - (gx#stx-e _%tl171370172061%_)))) - (let ((_%tl171373172069%_ + (gx#stx-e _%tl172657173348%_)))) + (let ((_%tl172660173356%_ (let () (declare (not safe)) - (##cdr _%e171371172064%_))) - (_%hd171372172067%_ + (##cdr _%e172658173351%_))) + (_%hd172659173354%_ (let () (declare (not safe)) - (##car _%e171371172064%_)))) + (##car _%e172658173351%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171373172069%_)) + (gx#stx-null? _%tl172660173356%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171367172053%_)) - (let ((_%e171374172072%_ + _%tl172654173340%_)) + (let ((_%e172661173359%_ (let () (declare (not safe)) (gx#stx-e - _%tl171367172053%_)))) - (let ((_%tl171376172077%_ + _%tl172654173340%_)))) + (let ((_%tl172663173364%_ (let () (declare (not safe)) - (##cdr _%e171374172072%_))) - (_%hd171375172075%_ + (##cdr _%e172661173359%_))) + (_%hd172662173362%_ (let () (declare (not safe)) - (##car _%e171374172072%_)))) + (##car _%e172661173359%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd171375172075%_)) - (let ((_%e171377172080%_ + _%hd172662173362%_)) + (let ((_%e172664173367%_ (let () (declare (not safe)) (gx#stx-e - _%hd171375172075%_)))) - (let ((_%tl171379172085%_ + _%hd172662173362%_)))) + (let ((_%tl172666173372%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e171377172080%_))) - (_%hd171378172083%_ - (let () (declare (not safe)) (##car _%e171377172080%_)))) + (##cdr _%e172664173367%_))) + (_%hd172665173370%_ + (let () (declare (not safe)) (##car _%e172664173367%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171378172083%_)) + (gx#identifier? _%hd172665173370%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd171378172083%_)) + (gx#stx-eq? '%#quote _%hd172665173370%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171379172085%_)) - (let ((_%e171380172088%_ + (gx#stx-pair? _%tl172666173372%_)) + (let ((_%e172667173375%_ (let () (declare (not safe)) - (gx#stx-e _%tl171379172085%_)))) - (let ((_%tl171382172093%_ + (gx#stx-e _%tl172666173372%_)))) + (let ((_%tl172669173380%_ (let () (declare (not safe)) - (##cdr _%e171380172088%_))) - (_%hd171381172091%_ + (##cdr _%e172667173375%_))) + (_%hd172668173378%_ (let () (declare (not safe)) - (##car _%e171380172088%_)))) + (##car _%e172667173375%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171382172093%_)) + (gx#stx-null? _%tl172669173380%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl171376172077%_)) - (let ((_%__splice177309177310%_ + _%tl172663173364%_)) + (let ((_%__splice178596178597%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl171376172077%_ + _%tl172663173364%_ '0)))) - (let ((_%tl171385172098%_ + (let ((_%tl172672173385%_ (let () (declare (not safe)) (##vector-ref - _%__splice177309177310%_ + _%__splice178596178597%_ '1))) - (_%target171383172096%_ + (_%target172670173383%_ (let () (declare (not safe)) (##vector-ref - _%__splice177309177310%_ + _%__splice178596178597%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171385172098%_)) - (_%__match177516177517%_ - _%e171344171992%_ - _%hd171345171995%_ - _%tl171346171997%_ - _%e171347172000%_ - _%hd171348172003%_ - _%tl171349172005%_ - _%e171350172008%_ - _%hd171351172011%_ - _%tl171352172013%_ - _%e171353172016%_ - _%hd171354172019%_ - _%tl171355172021%_ - _%e171356172024%_ - _%hd171357172027%_ - _%tl171358172029%_ - _%e171359172032%_ - _%hd171360172035%_ - _%tl171361172037%_ - _%e171362172040%_ - _%hd171363172043%_ - _%tl171364172045%_ - _%e171365172048%_ - _%hd171366172051%_ - _%tl171367172053%_ - _%e171368172056%_ - _%hd171369172059%_ - _%tl171370172061%_ - _%e171371172064%_ - _%hd171372172067%_ - _%tl171373172069%_ - _%e171374172072%_ - _%hd171375172075%_ - _%tl171376172077%_ - _%e171377172080%_ - _%hd171378172083%_ - _%tl171379172085%_ - _%e171380172088%_ - _%hd171381172091%_ - _%tl171382172093%_ - _%__splice177309177310%_ - _%target171383172096%_ - _%tl171385172098%_) - (_%__kont177319177320%_)))) - (_%__kont177319177320%_)) - (_%__kont177319177320%_)))) - (_%__kont177319177320%_)) - (_%__kont177319177320%_)) - (_%__kont177319177320%_)))) + _%tl172672173385%_)) + (_%__match178803178804%_ + _%e172631173279%_ + _%hd172632173282%_ + _%tl172633173284%_ + _%e172634173287%_ + _%hd172635173290%_ + _%tl172636173292%_ + _%e172637173295%_ + _%hd172638173298%_ + _%tl172639173300%_ + _%e172640173303%_ + _%hd172641173306%_ + _%tl172642173308%_ + _%e172643173311%_ + _%hd172644173314%_ + _%tl172645173316%_ + _%e172646173319%_ + _%hd172647173322%_ + _%tl172648173324%_ + _%e172649173327%_ + _%hd172650173330%_ + _%tl172651173332%_ + _%e172652173335%_ + _%hd172653173338%_ + _%tl172654173340%_ + _%e172655173343%_ + _%hd172656173346%_ + _%tl172657173348%_ + _%e172658173351%_ + _%hd172659173354%_ + _%tl172660173356%_ + _%e172661173359%_ + _%hd172662173362%_ + _%tl172663173364%_ + _%e172664173367%_ + _%hd172665173370%_ + _%tl172666173372%_ + _%e172667173375%_ + _%hd172668173378%_ + _%tl172669173380%_ + _%__splice178596178597%_ + _%target172670173383%_ + _%tl172672173385%_) + (_%__kont178606178607%_)))) + (_%__kont178606178607%_)) + (_%__kont178606178607%_)))) + (_%__kont178606178607%_)) + (_%__kont178606178607%_)) + (_%__kont178606178607%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177319177320%_)))) - (_%__match177798177799%_ - _%e171344171992%_ - _%hd171345171995%_ - _%tl171346171997%_ - _%e171347172000%_ - _%hd171348172003%_ - _%tl171349172005%_ - _%e171350172008%_ - _%hd171351172011%_ - _%tl171352172013%_ - _%e171353172016%_ - _%hd171354172019%_ - _%tl171355172021%_ - _%e171356172024%_ - _%hd171357172027%_ - _%tl171358172029%_ - _%e171359172032%_ - _%hd171360172035%_ - _%tl171361172037%_ - _%e171362172040%_ - _%hd171363172043%_ - _%tl171364172045%_ - _%e171365172048%_ - _%hd171366172051%_ - _%tl171367172053%_)) - (_%__match177798177799%_ - _%e171344171992%_ - _%hd171345171995%_ - _%tl171346171997%_ - _%e171347172000%_ - _%hd171348172003%_ - _%tl171349172005%_ - _%e171350172008%_ - _%hd171351172011%_ - _%tl171352172013%_ - _%e171353172016%_ - _%hd171354172019%_ - _%tl171355172021%_ - _%e171356172024%_ - _%hd171357172027%_ - _%tl171358172029%_ - _%e171359172032%_ - _%hd171360172035%_ - _%tl171361172037%_ - _%e171362172040%_ - _%hd171363172043%_ - _%tl171364172045%_ - _%e171365172048%_ - _%hd171366172051%_ - _%tl171367172053%_)))) - (_%__match177798177799%_ - _%e171344171992%_ - _%hd171345171995%_ - _%tl171346171997%_ - _%e171347172000%_ - _%hd171348172003%_ - _%tl171349172005%_ - _%e171350172008%_ - _%hd171351172011%_ - _%tl171352172013%_ - _%e171353172016%_ - _%hd171354172019%_ - _%tl171355172021%_ - _%e171356172024%_ - _%hd171357172027%_ - _%tl171358172029%_ - _%e171359172032%_ - _%hd171360172035%_ - _%tl171361172037%_ - _%e171362172040%_ - _%hd171363172043%_ - _%tl171364172045%_ - _%e171365172048%_ - _%hd171366172051%_ - _%tl171367172053%_)) - (_%__match177584177585%_ - _%e171344171992%_ - _%hd171345171995%_ - _%tl171346171997%_ - _%e171347172000%_ - _%hd171348172003%_ - _%tl171349172005%_ - _%e171350172008%_ - _%hd171351172011%_ - _%tl171352172013%_ - _%e171353172016%_ - _%hd171354172019%_ - _%tl171355172021%_ - _%e171356172024%_ - _%hd171357172027%_ - _%tl171358172029%_ - _%e171359172032%_ - _%hd171360172035%_ - _%tl171361172037%_ - _%e171362172040%_ - _%hd171363172043%_ - _%tl171364172045%_ - _%e171365172048%_ - _%hd171366172051%_ - _%tl171367172053%_ - _%e171368172056%_ - _%hd171369172059%_ - _%tl171370172061%_)))) - (_%__match177406177407%_ - (lambda (_%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_ - _%e171324172248%_ - _%hd171325172251%_ - _%tl171326172253%_ - _%e171327172256%_ - _%hd171328172259%_ - _%tl171329172261%_ - _%__splice177305177306%_ - _%target171330172264%_ - _%tl171332172266%_) - (letrec ((_%loop171333172269%_ - (lambda (_%hd171331172272%_ - _%args171337172274%_) + (_%__kont178606178607%_)))) + (_%__match179085179086%_ + _%e172631173279%_ + _%hd172632173282%_ + _%tl172633173284%_ + _%e172634173287%_ + _%hd172635173290%_ + _%tl172636173292%_ + _%e172637173295%_ + _%hd172638173298%_ + _%tl172639173300%_ + _%e172640173303%_ + _%hd172641173306%_ + _%tl172642173308%_ + _%e172643173311%_ + _%hd172644173314%_ + _%tl172645173316%_ + _%e172646173319%_ + _%hd172647173322%_ + _%tl172648173324%_ + _%e172649173327%_ + _%hd172650173330%_ + _%tl172651173332%_ + _%e172652173335%_ + _%hd172653173338%_ + _%tl172654173340%_)) + (_%__match179085179086%_ + _%e172631173279%_ + _%hd172632173282%_ + _%tl172633173284%_ + _%e172634173287%_ + _%hd172635173290%_ + _%tl172636173292%_ + _%e172637173295%_ + _%hd172638173298%_ + _%tl172639173300%_ + _%e172640173303%_ + _%hd172641173306%_ + _%tl172642173308%_ + _%e172643173311%_ + _%hd172644173314%_ + _%tl172645173316%_ + _%e172646173319%_ + _%hd172647173322%_ + _%tl172648173324%_ + _%e172649173327%_ + _%hd172650173330%_ + _%tl172651173332%_ + _%e172652173335%_ + _%hd172653173338%_ + _%tl172654173340%_)))) + (_%__match179085179086%_ + _%e172631173279%_ + _%hd172632173282%_ + _%tl172633173284%_ + _%e172634173287%_ + _%hd172635173290%_ + _%tl172636173292%_ + _%e172637173295%_ + _%hd172638173298%_ + _%tl172639173300%_ + _%e172640173303%_ + _%hd172641173306%_ + _%tl172642173308%_ + _%e172643173311%_ + _%hd172644173314%_ + _%tl172645173316%_ + _%e172646173319%_ + _%hd172647173322%_ + _%tl172648173324%_ + _%e172649173327%_ + _%hd172650173330%_ + _%tl172651173332%_ + _%e172652173335%_ + _%hd172653173338%_ + _%tl172654173340%_)) + (_%__match178871178872%_ + _%e172631173279%_ + _%hd172632173282%_ + _%tl172633173284%_ + _%e172634173287%_ + _%hd172635173290%_ + _%tl172636173292%_ + _%e172637173295%_ + _%hd172638173298%_ + _%tl172639173300%_ + _%e172640173303%_ + _%hd172641173306%_ + _%tl172642173308%_ + _%e172643173311%_ + _%hd172644173314%_ + _%tl172645173316%_ + _%e172646173319%_ + _%hd172647173322%_ + _%tl172648173324%_ + _%e172649173327%_ + _%hd172650173330%_ + _%tl172651173332%_ + _%e172652173335%_ + _%hd172653173338%_ + _%tl172654173340%_ + _%e172655173343%_ + _%hd172656173346%_ + _%tl172657173348%_)))) + (_%__match178693178694%_ + (lambda (_%e172587173471%_ + _%hd172588173474%_ + _%tl172589173476%_ + _%e172590173479%_ + _%hd172591173482%_ + _%tl172592173484%_ + _%e172593173487%_ + _%hd172594173490%_ + _%tl172595173492%_ + _%e172596173495%_ + _%hd172597173498%_ + _%tl172598173500%_ + _%e172599173503%_ + _%hd172600173506%_ + _%tl172601173508%_ + _%e172602173511%_ + _%hd172603173514%_ + _%tl172604173516%_ + _%e172605173519%_ + _%hd172606173522%_ + _%tl172607173524%_ + _%e172608173527%_ + _%hd172609173530%_ + _%tl172610173532%_ + _%e172611173535%_ + _%hd172612173538%_ + _%tl172613173540%_ + _%e172614173543%_ + _%hd172615173546%_ + _%tl172616173548%_ + _%__splice178592178593%_ + _%target172617173551%_ + _%tl172619173553%_) + (letrec ((_%loop172620173556%_ + (lambda (_%hd172618173559%_ + _%args172624173561%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171331172272%_)) - (let ((_%e171334172277%_ + (gx#stx-pair? _%hd172618173559%_)) + (let ((_%e172621173564%_ (let () (declare (not safe)) (gx#stx-e - _%hd171331172272%_)))) - (let ((_%lp-tl171336172282%_ + _%hd172618173559%_)))) + (let ((_%lp-tl172623173569%_ (let () (declare (not safe)) - (##cdr _%e171334172277%_))) - (_%lp-hd171335172280%_ + (##cdr _%e172621173564%_))) + (_%lp-hd172622173567%_ (let () (declare (not safe)) - (##car _%e171334172277%_)))) - (_%loop171333172269%_ - _%lp-tl171336172282%_ - (cons _%lp-hd171335172280%_ - _%args171337172274%_)))) - (let ((_%args171338172285%_ - (reverse _%args171337172274%_))) - (let ((_%L172288%_ - _%args171338172285%_) - (_%L172289%_ - _%hd171328172259%_) - (_%L172290%_ - _%hd171319172235%_) - (_%L172291%_ - _%hd171310172211%_)) + (##car _%e172621173564%_)))) + (_%loop172620173556%_ + _%lp-tl172623173569%_ + (cons _%lp-hd172622173567%_ + _%args172624173561%_)))) + (let ((_%args172625173572%_ + (reverse _%args172624173561%_))) + (let ((_%L173575%_ + _%args172625173572%_) + (_%L173576%_ + _%hd172615173546%_) + (_%L173577%_ + _%hd172606173522%_) + (_%L173578%_ + _%hd172597173498%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172291%_ + _%L173578%_ 'call-method)) - (let ((__tmp177963 + (let ((__tmp179250 (let () (declare (not safe)) (slot-ref__0 - _%self171283%_ + _%self172570%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172290%_ - __tmp177963))) - (_%__kont177303177304%_ - _%L172288%_ - _%L172289%_ - _%L172290%_ - _%L172291%_) - (_%__match177594177595%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_ - _%e171324172248%_ - _%hd171325172251%_ - _%tl171326172253%_ - _%e171327172256%_ - _%hd171328172259%_ - _%tl171329172261%_)))))))) - (_%loop171333172269%_ _%target171330172264%_ '()))))) + _%L173577%_ + __tmp179250))) + (_%__kont178590178591%_ + _%L173575%_ + _%L173576%_ + _%L173577%_ + _%L173578%_) + (_%__match178881178882%_ + _%e172587173471%_ + _%hd172588173474%_ + _%tl172589173476%_ + _%e172590173479%_ + _%hd172591173482%_ + _%tl172592173484%_ + _%e172593173487%_ + _%hd172594173490%_ + _%tl172595173492%_ + _%e172596173495%_ + _%hd172597173498%_ + _%tl172598173500%_ + _%e172599173503%_ + _%hd172600173506%_ + _%tl172601173508%_ + _%e172602173511%_ + _%hd172603173514%_ + _%tl172604173516%_ + _%e172605173519%_ + _%hd172606173522%_ + _%tl172607173524%_ + _%e172608173527%_ + _%hd172609173530%_ + _%tl172610173532%_ + _%e172611173535%_ + _%hd172612173538%_ + _%tl172613173540%_ + _%e172614173543%_ + _%hd172615173546%_ + _%tl172616173548%_)))))))) + (_%loop172620173556%_ _%target172617173551%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx177301177302%_)) - (let ((_%e171300172184%_ + (gx#stx-pair? _%__stx178588178589%_)) + (let ((_%e172587173471%_ (let () (declare (not safe)) - (gx#stx-e _%__stx177301177302%_)))) - (let ((_%tl171302172189%_ + (gx#stx-e _%__stx178588178589%_)))) + (let ((_%tl172589173476%_ (let () (declare (not safe)) - (##cdr _%e171300172184%_))) - (_%hd171301172187%_ + (##cdr _%e172587173471%_))) + (_%hd172588173474%_ (let () (declare (not safe)) - (##car _%e171300172184%_)))) + (##car _%e172587173471%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171302172189%_)) - (let ((_%e171303172192%_ + (gx#stx-pair? _%tl172589173476%_)) + (let ((_%e172590173479%_ (let () (declare (not safe)) - (gx#stx-e _%tl171302172189%_)))) - (let ((_%tl171305172197%_ + (gx#stx-e _%tl172589173476%_)))) + (let ((_%tl172592173484%_ (let () (declare (not safe)) - (##cdr _%e171303172192%_))) - (_%hd171304172195%_ + (##cdr _%e172590173479%_))) + (_%hd172591173482%_ (let () (declare (not safe)) - (##car _%e171303172192%_)))) + (##car _%e172590173479%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171304172195%_)) - (let ((_%e171306172200%_ + (gx#stx-pair? _%hd172591173482%_)) + (let ((_%e172593173487%_ (let () (declare (not safe)) - (gx#stx-e _%hd171304172195%_)))) - (let ((_%tl171308172205%_ + (gx#stx-e _%hd172591173482%_)))) + (let ((_%tl172595173492%_ (let () (declare (not safe)) - (##cdr _%e171306172200%_))) - (_%hd171307172203%_ + (##cdr _%e172593173487%_))) + (_%hd172594173490%_ (let () (declare (not safe)) - (##car _%e171306172200%_)))) + (##car _%e172593173487%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd171307172203%_)) + _%hd172594173490%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd171307172203%_)) + _%hd172594173490%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171308172205%_)) - (let ((_%e171309172208%_ + _%tl172595173492%_)) + (let ((_%e172596173495%_ (let () (declare (not safe)) (gx#stx-e - _%tl171308172205%_)))) - (let ((_%tl171311172213%_ + _%tl172595173492%_)))) + (let ((_%tl172598173500%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e171309172208%_))) - (_%hd171310172211%_ - (let () (declare (not safe)) (##car _%e171309172208%_)))) + (##cdr _%e172596173495%_))) + (_%hd172597173498%_ + (let () (declare (not safe)) (##car _%e172596173495%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171311172213%_)) + (gx#stx-null? _%tl172598173500%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171305172197%_)) - (let ((_%e171312172216%_ + (gx#stx-pair? _%tl172592173484%_)) + (let ((_%e172599173503%_ (let () (declare (not safe)) - (gx#stx-e _%tl171305172197%_)))) - (let ((_%tl171314172221%_ + (gx#stx-e _%tl172592173484%_)))) + (let ((_%tl172601173508%_ (let () (declare (not safe)) - (##cdr _%e171312172216%_))) - (_%hd171313172219%_ + (##cdr _%e172599173503%_))) + (_%hd172600173506%_ (let () (declare (not safe)) - (##car _%e171312172216%_)))) + (##car _%e172599173503%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171313172219%_)) - (let ((_%e171315172224%_ + (gx#stx-pair? _%hd172600173506%_)) + (let ((_%e172602173511%_ (let () (declare (not safe)) - (gx#stx-e _%hd171313172219%_)))) - (let ((_%tl171317172229%_ + (gx#stx-e _%hd172600173506%_)))) + (let ((_%tl172604173516%_ (let () (declare (not safe)) - (##cdr _%e171315172224%_))) - (_%hd171316172227%_ + (##cdr _%e172602173511%_))) + (_%hd172603173514%_ (let () (declare (not safe)) - (##car _%e171315172224%_)))) + (##car _%e172602173511%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171316172227%_)) + (gx#identifier? _%hd172603173514%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd171316172227%_)) + _%hd172603173514%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171317172229%_)) - (let ((_%e171318172232%_ + _%tl172604173516%_)) + (let ((_%e172605173519%_ (let () (declare (not safe)) (gx#stx-e - _%tl171317172229%_)))) - (let ((_%tl171320172237%_ + _%tl172604173516%_)))) + (let ((_%tl172607173524%_ (let () (declare (not safe)) - (##cdr _%e171318172232%_))) - (_%hd171319172235%_ + (##cdr _%e172605173519%_))) + (_%hd172606173522%_ (let () (declare (not safe)) - (##car _%e171318172232%_)))) + (##car _%e172605173519%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171320172237%_)) + _%tl172607173524%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171314172221%_)) - (let ((_%e171321172240%_ + _%tl172601173508%_)) + (let ((_%e172608173527%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl171314172221%_)))) - (let ((_%tl171323172245%_ + (gx#stx-e _%tl172601173508%_)))) + (let ((_%tl172610173532%_ (let () (declare (not safe)) - (##cdr _%e171321172240%_))) - (_%hd171322172243%_ + (##cdr _%e172608173527%_))) + (_%hd172609173530%_ (let () (declare (not safe)) - (##car _%e171321172240%_)))) + (##car _%e172608173527%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171322172243%_)) - (let ((_%e171324172248%_ + (gx#stx-pair? _%hd172609173530%_)) + (let ((_%e172611173535%_ (let () (declare (not safe)) - (gx#stx-e _%hd171322172243%_)))) - (let ((_%tl171326172253%_ + (gx#stx-e _%hd172609173530%_)))) + (let ((_%tl172613173540%_ (let () (declare (not safe)) - (##cdr _%e171324172248%_))) - (_%hd171325172251%_ + (##cdr _%e172611173535%_))) + (_%hd172612173538%_ (let () (declare (not safe)) - (##car _%e171324172248%_)))) + (##car _%e172611173535%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171325172251%_)) + (gx#identifier? _%hd172612173538%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd171325172251%_)) + _%hd172612173538%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171326172253%_)) - (let ((_%e171327172256%_ + _%tl172613173540%_)) + (let ((_%e172614173543%_ (let () (declare (not safe)) (gx#stx-e - _%tl171326172253%_)))) - (let ((_%tl171329172261%_ + _%tl172613173540%_)))) + (let ((_%tl172616173548%_ (let () (declare (not safe)) - (##cdr _%e171327172256%_))) - (_%hd171328172259%_ + (##cdr _%e172614173543%_))) + (_%hd172615173546%_ (let () (declare (not safe)) - (##car _%e171327172256%_)))) + (##car _%e172614173543%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171329172261%_)) + _%tl172616173548%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl171323172245%_)) - (let ((_%__splice177305177306%_ + _%tl172610173532%_)) + (let ((_%__splice178592178593%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _%tl171323172245%_ '0)))) - (let ((_%tl171332172266%_ + (gx#syntax-split-splice _%tl172610173532%_ '0)))) + (let ((_%tl172619173553%_ (let () (declare (not safe)) - (##vector-ref _%__splice177305177306%_ '1))) - (_%target171330172264%_ + (##vector-ref _%__splice178592178593%_ '1))) + (_%target172617173551%_ (let () (declare (not safe)) - (##vector-ref _%__splice177305177306%_ '0)))) + (##vector-ref _%__splice178592178593%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171332172266%_)) - (_%__match177406177407%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_ - _%e171324172248%_ - _%hd171325172251%_ - _%tl171326172253%_ - _%e171327172256%_ - _%hd171328172259%_ - _%tl171329172261%_ - _%__splice177305177306%_ - _%target171330172264%_ - _%tl171332172266%_) - (_%__match177594177595%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_ - _%e171324172248%_ - _%hd171325172251%_ - _%tl171326172253%_ - _%e171327172256%_ - _%hd171328172259%_ - _%tl171329172261%_)))) - (_%__match177594177595%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_ - _%e171324172248%_ - _%hd171325172251%_ - _%tl171326172253%_ - _%e171327172256%_ - _%hd171328172259%_ - _%tl171329172261%_)) + (gx#stx-null? _%tl172619173553%_)) + (_%__match178693178694%_ + _%e172587173471%_ + _%hd172588173474%_ + _%tl172589173476%_ + _%e172590173479%_ + _%hd172591173482%_ + _%tl172592173484%_ + _%e172593173487%_ + _%hd172594173490%_ + _%tl172595173492%_ + _%e172596173495%_ + _%hd172597173498%_ + _%tl172598173500%_ + _%e172599173503%_ + _%hd172600173506%_ + _%tl172601173508%_ + _%e172602173511%_ + _%hd172603173514%_ + _%tl172604173516%_ + _%e172605173519%_ + _%hd172606173522%_ + _%tl172607173524%_ + _%e172608173527%_ + _%hd172609173530%_ + _%tl172610173532%_ + _%e172611173535%_ + _%hd172612173538%_ + _%tl172613173540%_ + _%e172614173543%_ + _%hd172615173546%_ + _%tl172616173548%_ + _%__splice178592178593%_ + _%target172617173551%_ + _%tl172619173553%_) + (_%__match178881178882%_ + _%e172587173471%_ + _%hd172588173474%_ + _%tl172589173476%_ + _%e172590173479%_ + _%hd172591173482%_ + _%tl172592173484%_ + _%e172593173487%_ + _%hd172594173490%_ + _%tl172595173492%_ + _%e172596173495%_ + _%hd172597173498%_ + _%tl172598173500%_ + _%e172599173503%_ + _%hd172600173506%_ + _%tl172601173508%_ + _%e172602173511%_ + _%hd172603173514%_ + _%tl172604173516%_ + _%e172605173519%_ + _%hd172606173522%_ + _%tl172607173524%_ + _%e172608173527%_ + _%hd172609173530%_ + _%tl172610173532%_ + _%e172611173535%_ + _%hd172612173538%_ + _%tl172613173540%_ + _%e172614173543%_ + _%hd172615173546%_ + _%tl172616173548%_)))) + (_%__match178881178882%_ + _%e172587173471%_ + _%hd172588173474%_ + _%tl172589173476%_ + _%e172590173479%_ + _%hd172591173482%_ + _%tl172592173484%_ + _%e172593173487%_ + _%hd172594173490%_ + _%tl172595173492%_ + _%e172596173495%_ + _%hd172597173498%_ + _%tl172598173500%_ + _%e172599173503%_ + _%hd172600173506%_ + _%tl172601173508%_ + _%e172602173511%_ + _%hd172603173514%_ + _%tl172604173516%_ + _%e172605173519%_ + _%hd172606173522%_ + _%tl172607173524%_ + _%e172608173527%_ + _%hd172609173530%_ + _%tl172610173532%_ + _%e172611173535%_ + _%hd172612173538%_ + _%tl172613173540%_ + _%e172614173543%_ + _%hd172615173546%_ + _%tl172616173548%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177798177799%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_)))) - (_%__match177798177799%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_)) - (_%__match177474177475%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_ - _%e171324172248%_ - _%hd171325172251%_ - _%tl171326172253%_)) - (_%__match177798177799%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_)))) - (_%__match177798177799%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_ - _%e171321172240%_ - _%hd171322172243%_ - _%tl171323172245%_)))) - (_%__match177736177737%_ - _%e171300172184%_ - _%hd171301172187%_ - _%tl171302172189%_ - _%e171303172192%_ - _%hd171304172195%_ - _%tl171305172197%_ - _%e171306172200%_ - _%hd171307172203%_ - _%tl171308172205%_ - _%e171309172208%_ - _%hd171310172211%_ - _%tl171311172213%_ - _%e171312172216%_ - _%hd171313172219%_ - _%tl171314172221%_ - _%e171315172224%_ - _%hd171316172227%_ - _%tl171317172229%_ - _%e171318172232%_ - _%hd171319172235%_ - _%tl171320172237%_)) - (_%__kont177319177320%_)))) + (_%__match179085179086%_ + _%e172587173471%_ + _%hd172588173474%_ + _%tl172589173476%_ + _%e172590173479%_ + _%hd172591173482%_ + _%tl172592173484%_ + _%e172593173487%_ + _%hd172594173490%_ + _%tl172595173492%_ + _%e172596173495%_ + _%hd172597173498%_ + _%tl172598173500%_ + _%e172599173503%_ + _%hd172600173506%_ + _%tl172601173508%_ + _%e172602173511%_ + _%hd172603173514%_ + _%tl172604173516%_ + _%e172605173519%_ + _%hd172606173522%_ + _%tl172607173524%_ + _%e172608173527%_ + _%hd172609173530%_ + _%tl172610173532%_)))) + (_%__match179085179086%_ + _%e172587173471%_ + _%hd172588173474%_ + _%tl172589173476%_ + _%e172590173479%_ + _%hd172591173482%_ + _%tl172592173484%_ + _%e172593173487%_ + _%hd172594173490%_ + _%tl172595173492%_ + _%e172596173495%_ + _%hd172597173498%_ + _%tl172598173500%_ + _%e172599173503%_ + _%hd172600173506%_ + _%tl172601173508%_ + _%e172602173511%_ + _%hd172603173514%_ + _%tl172604173516%_ + _%e172605173519%_ + _%hd172606173522%_ + _%tl172607173524%_ + _%e172608173527%_ + _%hd172609173530%_ + _%tl172610173532%_)) + (_%__match178761178762%_ + _%e172587173471%_ + _%hd172588173474%_ + _%tl172589173476%_ + _%e172590173479%_ + _%hd172591173482%_ + _%tl172592173484%_ + _%e172593173487%_ + _%hd172594173490%_ + _%tl172595173492%_ + _%e172596173495%_ + _%hd172597173498%_ + _%tl172598173500%_ + _%e172599173503%_ + _%hd172600173506%_ + _%tl172601173508%_ + _%e172602173511%_ + _%hd172603173514%_ + _%tl172604173516%_ + _%e172605173519%_ + _%hd172606173522%_ + _%tl172607173524%_ + _%e172608173527%_ + _%hd172609173530%_ + _%tl172610173532%_ + _%e172611173535%_ + _%hd172612173538%_ + _%tl172613173540%_)) + (_%__match179085179086%_ + _%e172587173471%_ + _%hd172588173474%_ + _%tl172589173476%_ + _%e172590173479%_ + _%hd172591173482%_ + _%tl172592173484%_ + _%e172593173487%_ + _%hd172594173490%_ + _%tl172595173492%_ + _%e172596173495%_ + _%hd172597173498%_ + _%tl172598173500%_ + _%e172599173503%_ + _%hd172600173506%_ + _%tl172601173508%_ + _%e172602173511%_ + _%hd172603173514%_ + _%tl172604173516%_ + _%e172605173519%_ + _%hd172606173522%_ + _%tl172607173524%_ + _%e172608173527%_ + _%hd172609173530%_ + _%tl172610173532%_)))) + (_%__match179085179086%_ + _%e172587173471%_ + _%hd172588173474%_ + _%tl172589173476%_ + _%e172590173479%_ + _%hd172591173482%_ + _%tl172592173484%_ + _%e172593173487%_ + _%hd172594173490%_ + _%tl172595173492%_ + _%e172596173495%_ + _%hd172597173498%_ + _%tl172598173500%_ + _%e172599173503%_ + _%hd172600173506%_ + _%tl172601173508%_ + _%e172602173511%_ + _%hd172603173514%_ + _%tl172604173516%_ + _%e172605173519%_ + _%hd172606173522%_ + _%tl172607173524%_ + _%e172608173527%_ + _%hd172609173530%_ + _%tl172610173532%_)))) + (_%__match179023179024%_ + _%e172587173471%_ + _%hd172588173474%_ + _%tl172589173476%_ + _%e172590173479%_ + _%hd172591173482%_ + _%tl172592173484%_ + _%e172593173487%_ + _%hd172594173490%_ + _%tl172595173492%_ + _%e172596173495%_ + _%hd172597173498%_ + _%tl172598173500%_ + _%e172599173503%_ + _%hd172600173506%_ + _%tl172601173508%_ + _%e172602173511%_ + _%hd172603173514%_ + _%tl172604173516%_ + _%e172605173519%_ + _%hd172606173522%_ + _%tl172607173524%_)) + (_%__kont178606178607%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177319177320%_)) - (_%__kont177319177320%_)) - (_%__kont177319177320%_)))) - (_%__kont177319177320%_)))) - (_%__kont177319177320%_)) - (_%__kont177319177320%_)))) + (_%__kont178606178607%_)) + (_%__kont178606178607%_)) + (_%__kont178606178607%_)))) + (_%__kont178606178607%_)))) + (_%__kont178606178607%_)) + (_%__kont178606178607%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177319177320%_)) - (_%__kont177319177320%_)) - (_%__kont177319177320%_)))) - (_%__kont177319177320%_)))) - (_%__kont177319177320%_)))) - (_%__kont177319177320%_)))))))))) + (_%__kont178606178607%_)) + (_%__kont178606178607%_)) + (_%__kont178606178607%_)))) + (_%__kont178606178607%_)))) + (_%__kont178606178607%_)))) + (_%__kont178606178607%_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~1.scm b/src/bootstrap/gerbil/compiler/optimize-spec~1.scm index 93dfe8dd4..4921ed973 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec~1.scm @@ -1,307 +1,307 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g177965_| + (define |gxc[1]#_g179252_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177967_| + (define |gxc[1]#_g179254_| (##structure gx#syntax-quote::t '::generate-method-specializers::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177969_| + (define |gxc[1]#_g179256_| (##structure gx#syntax-quote::t 'make-::generate-method-specializers #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177971_| + (define |gxc[1]#_g179258_| (##structure gx#syntax-quote::t '::generate-method-specializers? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177973_| + (define |gxc[1]#_g179260_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177975_| + (define |gxc[1]#_g179262_| (##structure gx#syntax-quote::t '::extract-receiver::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177977_| + (define |gxc[1]#_g179264_| (##structure gx#syntax-quote::t 'make-::extract-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177979_| + (define |gxc[1]#_g179266_| (##structure gx#syntax-quote::t '::extract-receiver? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177981_| + (define |gxc[1]#_g179268_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177983_| + (define |gxc[1]#_g179270_| (##structure gx#syntax-quote::t '::collect-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177985_| + (define |gxc[1]#_g179272_| (##structure gx#syntax-quote::t 'make-::collect-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177987_| + (define |gxc[1]#_g179274_| (##structure gx#syntax-quote::t '::collect-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177989_| + (define |gxc[1]#_g179276_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177990_| + (define |gxc[1]#_g179277_| (##structure gx#syntax-quote::t '::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177991_| + (define |gxc[1]#_g179278_| (##structure gx#syntax-quote::t '::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177993_| + (define |gxc[1]#_g179280_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177994_| + (define |gxc[1]#_g179281_| (##structure gx#syntax-quote::t '::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177995_| + (define |gxc[1]#_g179282_| (##structure gx#syntax-quote::t '::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177997_| + (define |gxc[1]#_g179284_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177998_| + (define |gxc[1]#_g179285_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g177999_| + (define |gxc[1]#_g179286_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178001_| + (define |gxc[1]#_g179288_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178002_| + (define |gxc[1]#_g179289_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178003_| + (define |gxc[1]#_g179290_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178005_| + (define |gxc[1]#_g179292_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178007_| + (define |gxc[1]#_g179294_| (##structure gx#syntax-quote::t '::subst-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178009_| + (define |gxc[1]#_g179296_| (##structure gx#syntax-quote::t 'make-::subst-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178011_| + (define |gxc[1]#_g179298_| (##structure gx#syntax-quote::t '::subst-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178013_| + (define |gxc[1]#_g179300_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178014_| + (define |gxc[1]#_g179301_| (##structure gx#syntax-quote::t '::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178015_| + (define |gxc[1]#_g179302_| (##structure gx#syntax-quote::t '::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178016_| + (define |gxc[1]#_g179303_| (##structure gx#syntax-quote::t '::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178018_| + (define |gxc[1]#_g179305_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178019_| + (define |gxc[1]#_g179306_| (##structure gx#syntax-quote::t '::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178020_| + (define |gxc[1]#_g179307_| (##structure gx#syntax-quote::t '::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178021_| + (define |gxc[1]#_g179308_| (##structure gx#syntax-quote::t '::subst-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178023_| + (define |gxc[1]#_g179310_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178024_| + (define |gxc[1]#_g179311_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178025_| + (define |gxc[1]#_g179312_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178026_| + (define |gxc[1]#_g179313_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178028_| + (define |gxc[1]#_g179315_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178029_| + (define |gxc[1]#_g179316_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178030_| + (define |gxc[1]#_g179317_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178031_| + (define |gxc[1]#_g179318_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots-set! @@ -310,7 +310,7 @@ '())) (begin (define |gxc[:0:]#::generate-method-specializers| - (let ((__obj177802 + (let ((__obj179089 (let () (declare (not safe)) (##structure @@ -339,7 +339,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177802 + __obj179089 'gxc#::generate-method-specializers::t '1 '#f @@ -347,65 +347,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177802 + __obj179089 '::generate-method-specializers '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj179089 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '6 '#f '#f)) - (let ((__tmp177964 (cons |gxc[1]#_g177965_| '()))) + (##unchecked-structure-set! __obj179089 '() '6 '#f '#f)) + (let ((__tmp179251 (cons |gxc[1]#_g179252_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj177802 __tmp177964 '3 '#f '#f)) + (##unchecked-structure-set! __obj179089 __tmp179251 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj179089 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj179089 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj179089 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '#f '11 '#f '#f)) - (let ((__tmp177966 |gxc[1]#_g177967_|)) + (##unchecked-structure-set! __obj179089 '#f '11 '#f '#f)) + (let ((__tmp179253 |gxc[1]#_g179254_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177802 __tmp177966 '12 '#f '#f)) - (let ((__tmp177968 |gxc[1]#_g177969_|)) + (##unchecked-structure-set! __obj179089 __tmp179253 '12 '#f '#f)) + (let ((__tmp179255 |gxc[1]#_g179256_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177802 __tmp177968 '13 '#f '#f)) - (let ((__tmp177970 |gxc[1]#_g177971_|)) + (##unchecked-structure-set! __obj179089 __tmp179255 '13 '#f '#f)) + (let ((__tmp179257 |gxc[1]#_g179258_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177802 __tmp177970 '14 '#f '#f)) + (##unchecked-structure-set! __obj179089 __tmp179257 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj179089 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj179089 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj179089 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj179089 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj179089 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj179089 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177802 '() '20 '#f '#f)) - __obj177802)) + (##unchecked-structure-set! __obj179089 '() '20 '#f '#f)) + __obj179089)) (define |gxc[:0:]#::extract-receiver| - (let ((__obj177804 + (let ((__obj179091 (let () (declare (not safe)) (##structure @@ -434,7 +434,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177804 + __obj179091 'gxc#::extract-receiver::t '1 '#f @@ -442,65 +442,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177804 + __obj179091 '::extract-receiver '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj179091 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '6 '#f '#f)) - (let ((__tmp177972 (cons |gxc[1]#_g177973_| '()))) + (##unchecked-structure-set! __obj179091 '() '6 '#f '#f)) + (let ((__tmp179259 (cons |gxc[1]#_g179260_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj177804 __tmp177972 '3 '#f '#f)) + (##unchecked-structure-set! __obj179091 __tmp179259 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj179091 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj179091 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj179091 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '#f '11 '#f '#f)) - (let ((__tmp177974 |gxc[1]#_g177975_|)) + (##unchecked-structure-set! __obj179091 '#f '11 '#f '#f)) + (let ((__tmp179261 |gxc[1]#_g179262_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177804 __tmp177974 '12 '#f '#f)) - (let ((__tmp177976 |gxc[1]#_g177977_|)) + (##unchecked-structure-set! __obj179091 __tmp179261 '12 '#f '#f)) + (let ((__tmp179263 |gxc[1]#_g179264_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177804 __tmp177976 '13 '#f '#f)) - (let ((__tmp177978 |gxc[1]#_g177979_|)) + (##unchecked-structure-set! __obj179091 __tmp179263 '13 '#f '#f)) + (let ((__tmp179265 |gxc[1]#_g179266_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177804 __tmp177978 '14 '#f '#f)) + (##unchecked-structure-set! __obj179091 __tmp179265 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj179091 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj179091 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj179091 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj179091 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj179091 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj179091 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177804 '() '20 '#f '#f)) - __obj177804)) + (##unchecked-structure-set! __obj179091 '() '20 '#f '#f)) + __obj179091)) (define |gxc[:0:]#::collect-object-refs| - (let ((__obj177806 + (let ((__obj179093 (let () (declare (not safe)) (##structure @@ -529,7 +529,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177806 + __obj179093 'gxc#::collect-object-refs::t '1 '#f @@ -537,7 +537,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177806 + __obj179093 '::collect-object-refs '2 '#f @@ -545,7 +545,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177806 + __obj179093 '(receiver methods slots) '4 '#f @@ -553,71 +553,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177806 + __obj179093 '(receiver methods slots) '6 '#f '#f)) - (let ((__tmp177980 (cons |gxc[1]#_g177981_| '()))) + (let ((__tmp179267 (cons |gxc[1]#_g179268_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj177806 __tmp177980 '3 '#f '#f)) + (##unchecked-structure-set! __obj179093 __tmp179267 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177806 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj179093 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177806 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj179093 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177806 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj179093 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177806 '#f '11 '#f '#f)) - (let ((__tmp177982 |gxc[1]#_g177983_|)) + (##unchecked-structure-set! __obj179093 '#f '11 '#f '#f)) + (let ((__tmp179269 |gxc[1]#_g179270_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177806 __tmp177982 '12 '#f '#f)) - (let ((__tmp177984 |gxc[1]#_g177985_|)) + (##unchecked-structure-set! __obj179093 __tmp179269 '12 '#f '#f)) + (let ((__tmp179271 |gxc[1]#_g179272_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177806 __tmp177984 '13 '#f '#f)) - (let ((__tmp177986 |gxc[1]#_g177987_|)) + (##unchecked-structure-set! __obj179093 __tmp179271 '13 '#f '#f)) + (let ((__tmp179273 |gxc[1]#_g179274_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177806 __tmp177986 '14 '#f '#f)) - (let ((__tmp177988 - (cons (cons 'receiver |gxc[1]#_g177989_|) - (cons (cons 'methods |gxc[1]#_g177990_|) - (cons (cons 'slots |gxc[1]#_g177991_|) '()))))) + (##unchecked-structure-set! __obj179093 __tmp179273 '14 '#f '#f)) + (let ((__tmp179275 + (cons (cons 'receiver |gxc[1]#_g179276_|) + (cons (cons 'methods |gxc[1]#_g179277_|) + (cons (cons 'slots |gxc[1]#_g179278_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj177806 __tmp177988 '15 '#f '#f)) - (let ((__tmp177992 - (cons (cons 'receiver |gxc[1]#_g177993_|) - (cons (cons 'methods |gxc[1]#_g177994_|) - (cons (cons 'slots |gxc[1]#_g177995_|) '()))))) + (##unchecked-structure-set! __obj179093 __tmp179275 '15 '#f '#f)) + (let ((__tmp179279 + (cons (cons 'receiver |gxc[1]#_g179280_|) + (cons (cons 'methods |gxc[1]#_g179281_|) + (cons (cons 'slots |gxc[1]#_g179282_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj177806 __tmp177992 '16 '#f '#f)) - (let ((__tmp177996 - (cons (cons 'receiver |gxc[1]#_g177997_|) - (cons (cons 'methods |gxc[1]#_g177998_|) - (cons (cons 'slots |gxc[1]#_g177999_|) '()))))) + (##unchecked-structure-set! __obj179093 __tmp179279 '16 '#f '#f)) + (let ((__tmp179283 + (cons (cons 'receiver |gxc[1]#_g179284_|) + (cons (cons 'methods |gxc[1]#_g179285_|) + (cons (cons 'slots |gxc[1]#_g179286_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj177806 __tmp177996 '17 '#f '#f)) - (let ((__tmp178000 - (cons (cons 'receiver |gxc[1]#_g178001_|) - (cons (cons 'methods |gxc[1]#_g178002_|) - (cons (cons 'slots |gxc[1]#_g178003_|) '()))))) + (##unchecked-structure-set! __obj179093 __tmp179283 '17 '#f '#f)) + (let ((__tmp179287 + (cons (cons 'receiver |gxc[1]#_g179288_|) + (cons (cons 'methods |gxc[1]#_g179289_|) + (cons (cons 'slots |gxc[1]#_g179290_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj177806 __tmp178000 '18 '#f '#f)) + (##unchecked-structure-set! __obj179093 __tmp179287 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177806 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj179093 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177806 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj179093 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177806 '() '20 '#f '#f)) - __obj177806)) + (##unchecked-structure-set! __obj179093 '() '20 '#f '#f)) + __obj179093)) (define |gxc[:0:]#::subst-object-refs| - (let ((__obj177808 + (let ((__obj179095 (let () (declare (not safe)) (##structure @@ -646,7 +646,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177808 + __obj179095 'gxc#::subst-object-refs::t '1 '#f @@ -654,7 +654,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177808 + __obj179095 '::subst-object-refs '2 '#f @@ -662,7 +662,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177808 + __obj179095 '(receiver klass methods slots) '4 '#f @@ -670,74 +670,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177808 + __obj179095 '(receiver klass methods slots) '6 '#f '#f)) - (let ((__tmp178004 (cons |gxc[1]#_g178005_| '()))) + (let ((__tmp179291 (cons |gxc[1]#_g179292_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj177808 __tmp178004 '3 '#f '#f)) + (##unchecked-structure-set! __obj179095 __tmp179291 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177808 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj179095 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177808 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj179095 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177808 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj179095 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177808 '#f '11 '#f '#f)) - (let ((__tmp178006 |gxc[1]#_g178007_|)) + (##unchecked-structure-set! __obj179095 '#f '11 '#f '#f)) + (let ((__tmp179293 |gxc[1]#_g179294_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177808 __tmp178006 '12 '#f '#f)) - (let ((__tmp178008 |gxc[1]#_g178009_|)) + (##unchecked-structure-set! __obj179095 __tmp179293 '12 '#f '#f)) + (let ((__tmp179295 |gxc[1]#_g179296_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177808 __tmp178008 '13 '#f '#f)) - (let ((__tmp178010 |gxc[1]#_g178011_|)) + (##unchecked-structure-set! __obj179095 __tmp179295 '13 '#f '#f)) + (let ((__tmp179297 |gxc[1]#_g179298_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177808 __tmp178010 '14 '#f '#f)) - (let ((__tmp178012 - (cons (cons 'receiver |gxc[1]#_g178013_|) - (cons (cons 'klass |gxc[1]#_g178014_|) - (cons (cons 'methods |gxc[1]#_g178015_|) - (cons (cons 'slots |gxc[1]#_g178016_|) + (##unchecked-structure-set! __obj179095 __tmp179297 '14 '#f '#f)) + (let ((__tmp179299 + (cons (cons 'receiver |gxc[1]#_g179300_|) + (cons (cons 'klass |gxc[1]#_g179301_|) + (cons (cons 'methods |gxc[1]#_g179302_|) + (cons (cons 'slots |gxc[1]#_g179303_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj177808 __tmp178012 '15 '#f '#f)) - (let ((__tmp178017 - (cons (cons 'receiver |gxc[1]#_g178018_|) - (cons (cons 'klass |gxc[1]#_g178019_|) - (cons (cons 'methods |gxc[1]#_g178020_|) - (cons (cons 'slots |gxc[1]#_g178021_|) + (##unchecked-structure-set! __obj179095 __tmp179299 '15 '#f '#f)) + (let ((__tmp179304 + (cons (cons 'receiver |gxc[1]#_g179305_|) + (cons (cons 'klass |gxc[1]#_g179306_|) + (cons (cons 'methods |gxc[1]#_g179307_|) + (cons (cons 'slots |gxc[1]#_g179308_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj177808 __tmp178017 '16 '#f '#f)) - (let ((__tmp178022 - (cons (cons 'receiver |gxc[1]#_g178023_|) - (cons (cons 'klass |gxc[1]#_g178024_|) - (cons (cons 'methods |gxc[1]#_g178025_|) - (cons (cons 'slots |gxc[1]#_g178026_|) + (##unchecked-structure-set! __obj179095 __tmp179304 '16 '#f '#f)) + (let ((__tmp179309 + (cons (cons 'receiver |gxc[1]#_g179310_|) + (cons (cons 'klass |gxc[1]#_g179311_|) + (cons (cons 'methods |gxc[1]#_g179312_|) + (cons (cons 'slots |gxc[1]#_g179313_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj177808 __tmp178022 '17 '#f '#f)) - (let ((__tmp178027 - (cons (cons 'receiver |gxc[1]#_g178028_|) - (cons (cons 'klass |gxc[1]#_g178029_|) - (cons (cons 'methods |gxc[1]#_g178030_|) - (cons (cons 'slots |gxc[1]#_g178031_|) + (##unchecked-structure-set! __obj179095 __tmp179309 '17 '#f '#f)) + (let ((__tmp179314 + (cons (cons 'receiver |gxc[1]#_g179315_|) + (cons (cons 'klass |gxc[1]#_g179316_|) + (cons (cons 'methods |gxc[1]#_g179317_|) + (cons (cons 'slots |gxc[1]#_g179318_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj177808 __tmp178027 '18 '#f '#f)) + (##unchecked-structure-set! __obj179095 __tmp179314 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177808 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj179095 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177808 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj179095 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177808 '() '20 '#f '#f)) - __obj177808)))) + (##unchecked-structure-set! __obj179095 '() '20 '#f '#f)) + __obj179095)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~0.scm b/src/bootstrap/gerbil/compiler/optimize-top~0.scm index 9e8ac5508..ccf6b2bf7 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 1713631268) + (define gerbil/compiler/optimize-top::timestamp 1734357964) (begin (define gxc#::collect-top-level-type-info::t - (let ((__tmp170851 (list gxc#::void::t)) - (__tmp170850 (cons (cons 'final: '#t) '()))) + (let ((__tmp172138 (list gxc#::void::t)) + (__tmp172137 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-top-level-type-info::t '::collect-top-level-type-info - __tmp170851 + __tmp172138 '() - __tmp170850 + __tmp172137 '#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 _%$args167793%_ + (lambda _%$args169080%_ (apply make-instance gxc#::collect-top-level-type-info::t - _%$args167793%_))) + _%$args169080%_))) (define gxc#::collect-top-level-type-info-bind-methods! - (let ((__tmp170852 + (let ((__tmp172139 (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 __tmp170852))) + (__make-promise __tmp172139))) (define gxc#apply-collect-top-level-type-info - (lambda (_%stx167785%_) + (lambda (_%stx169072%_) (force gxc#::collect-top-level-type-info-bind-methods!) - (let* ((_%self167788%_ - (let ((__obj170797 + (let* ((_%self169075%_ + (let ((__obj172084 (let () (declare (not safe)) (##structure gxc#::collect-top-level-type-info::t)))) - __obj170797)) - (__tmp170853 + __obj172084)) + (__tmp172140 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167788%_ _%stx167785%_))))) + (gxc#compile-e__1 _%self169075%_ _%stx169072%_))))) (declare (not safe)) (__call-with-parameters - __tmp170853 + __tmp172140 gxc#current-compile-method - _%self167788%_)))) + _%self169075%_)))) (define gxc#::collect-top-level-declarations::t - (let ((__tmp170855 (list gxc#::void::t)) - (__tmp170854 (cons (cons 'final: '#t) '()))) + (let ((__tmp172142 (list gxc#::void::t)) + (__tmp172141 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-top-level-declarations::t '::collect-top-level-declarations - __tmp170855 + __tmp172142 '() - __tmp170854 + __tmp172141 '#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 _%$args167782%_ + (lambda _%$args169069%_ (apply make-instance gxc#::collect-top-level-declarations::t - _%$args167782%_))) + _%$args169069%_))) (define gxc#::collect-top-level-declarations-bind-methods! - (let ((__tmp170856 + (let ((__tmp172143 (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 __tmp170856))) + (__make-promise __tmp172143))) (define gxc#apply-collect-top-level-declarations - (lambda (_%stx167774%_) + (lambda (_%stx169061%_) (force gxc#::collect-top-level-declarations-bind-methods!) - (let* ((_%self167777%_ - (let ((__obj170799 + (let* ((_%self169064%_ + (let ((__obj172086 (let () (declare (not safe)) (##structure gxc#::collect-top-level-declarations::t)))) - __obj170799)) - (__tmp170857 + __obj172086)) + (__tmp172144 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167777%_ _%stx167774%_))))) + (gxc#compile-e__1 _%self169064%_ _%stx169061%_))))) (declare (not safe)) (__call-with-parameters - __tmp170857 + __tmp172144 gxc#current-compile-method - _%self167777%_)))) + _%self169064%_)))) (define gxc#::basic-expression-top-level-type::t - (let ((__tmp170859 (list gxc#::false::t)) - (__tmp170858 (cons (cons 'final: '#t) '()))) + (let ((__tmp172146 (list gxc#::false::t)) + (__tmp172145 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::basic-expression-top-level-type::t '::basic-expression-top-level-type - __tmp170859 + __tmp172146 '() - __tmp170858 + __tmp172145 '#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 _%$args167771%_ + (lambda _%$args169058%_ (apply make-instance gxc#::basic-expression-top-level-type::t - _%$args167771%_))) + _%$args169058%_))) (define gxc#::basic-expression-top-level-type-bind-methods! - (let ((__tmp170860 + (let ((__tmp172147 (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 __tmp170860))) + (__make-promise __tmp172147))) (define gxc#apply-basic-expression-top-level-type - (lambda (_%stx167763%_) + (lambda (_%stx169050%_) (force gxc#::basic-expression-top-level-type-bind-methods!) - (let* ((_%self167766%_ - (let ((__obj170801 + (let* ((_%self169053%_ + (let ((__obj172088 (let () (declare (not safe)) (##structure gxc#::basic-expression-top-level-type::t)))) - __obj170801)) - (__tmp170861 + __obj172088)) + (__tmp172148 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167766%_ _%stx167763%_))))) + (gxc#compile-e__1 _%self169053%_ _%stx169050%_))))) (declare (not safe)) (__call-with-parameters - __tmp170861 + __tmp172148 gxc#current-compile-method - _%self167766%_)))) + _%self169053%_)))) (define gxc#::collect-type-info::t - (let ((__tmp170863 (list gxc#::void::t)) - (__tmp170862 (cons (cons 'final: '#t) '()))) + (let ((__tmp172150 (list gxc#::void::t)) + (__tmp172149 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-type-info::t '::collect-type-info - __tmp170863 + __tmp172150 '() - __tmp170862 + __tmp172149 '#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 _%$args167760%_ - (apply make-instance gxc#::collect-type-info::t _%$args167760%_))) + (lambda _%$args169047%_ + (apply make-instance gxc#::collect-type-info::t _%$args169047%_))) (define gxc#::collect-type-info-bind-methods! - (let ((__tmp170864 + (let ((__tmp172151 (lambda () (force gxc#::void-bind-methods!) (let () @@ -354,48 +354,48 @@ (declare (not safe)) (__seal-class! gxc#::collect-type-info::t))))) (declare (not safe)) - (__make-promise __tmp170864))) + (__make-promise __tmp172151))) (define gxc#apply-collect-type-info - (lambda (_%stx167752%_) + (lambda (_%stx169039%_) (force gxc#::collect-type-info-bind-methods!) - (let* ((_%self167755%_ - (let ((__obj170803 + (let* ((_%self169042%_ + (let ((__obj172090 (let () (declare (not safe)) (##structure gxc#::collect-type-info::t)))) - __obj170803)) - (__tmp170865 + __obj172090)) + (__tmp172152 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167755%_ _%stx167752%_))))) + (gxc#compile-e__1 _%self169042%_ _%stx169039%_))))) (declare (not safe)) (__call-with-parameters - __tmp170865 + __tmp172152 gxc#current-compile-method - _%self167755%_)))) + _%self169042%_)))) (define gxc#::collect-mutable-type-info::t - (let ((__tmp170867 (list gxc#::void::t)) - (__tmp170866 (cons (cons 'final: '#t) '()))) + (let ((__tmp172154 (list gxc#::void::t)) + (__tmp172153 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-mutable-type-info::t '::collect-mutable-type-info - __tmp170867 + __tmp172154 '() - __tmp170866 + __tmp172153 '#f))) (define gxc#::collect-mutable-type-info? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-mutable-type-info::t))) (define gxc#make-::collect-mutable-type-info - (lambda _%$args167749%_ + (lambda _%$args169036%_ (apply make-instance gxc#::collect-mutable-type-info::t - _%$args167749%_))) + _%$args169036%_))) (define gxc#::collect-mutable-type-info-bind-methods! - (let ((__tmp170868 + (let ((__tmp172155 (lambda () (force gxc#::void-bind-methods!) (let () @@ -480,46 +480,46 @@ (declare (not safe)) (__seal-class! gxc#::collect-mutable-type-info::t))))) (declare (not safe)) - (__make-promise __tmp170868))) + (__make-promise __tmp172155))) (define gxc#apply-collect-mutable-type-info - (lambda (_%stx167741%_) + (lambda (_%stx169028%_) (force gxc#::collect-mutable-type-info-bind-methods!) - (let* ((_%self167744%_ - (let ((__obj170805 + (let* ((_%self169031%_ + (let ((__obj172092 (let () (declare (not safe)) (##structure gxc#::collect-mutable-type-info::t)))) - __obj170805)) - (__tmp170869 + __obj172092)) + (__tmp172156 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167744%_ _%stx167741%_))))) + (gxc#compile-e__1 _%self169031%_ _%stx169028%_))))) (declare (not safe)) (__call-with-parameters - __tmp170869 + __tmp172156 gxc#current-compile-method - _%self167744%_)))) + _%self169031%_)))) (define gxc#::refine-type-info::t - (let ((__tmp170871 (list gxc#::void::t)) - (__tmp170870 (cons (cons 'final: '#t) '()))) + (let ((__tmp172158 (list gxc#::void::t)) + (__tmp172157 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::refine-type-info::t '::refine-type-info - __tmp170871 + __tmp172158 '() - __tmp170870 + __tmp172157 '#f))) (define gxc#::refine-type-info? (let () (declare (not safe)) (__make-class-predicate gxc#::refine-type-info::t))) (define gxc#make-::refine-type-info - (lambda _%$args167738%_ - (apply make-instance gxc#::refine-type-info::t _%$args167738%_))) + (lambda _%$args169025%_ + (apply make-instance gxc#::refine-type-info::t _%$args169025%_))) (define gxc#::refine-type-info-bind-methods! - (let ((__tmp170872 + (let ((__tmp172159 (lambda () (force gxc#::void-bind-methods!) (let () @@ -604,33 +604,33 @@ (declare (not safe)) (__seal-class! gxc#::refine-type-info::t))))) (declare (not safe)) - (__make-promise __tmp170872))) + (__make-promise __tmp172159))) (define gxc#apply-refine-type-info - (lambda (_%stx167730%_) + (lambda (_%stx169017%_) (force gxc#::refine-type-info-bind-methods!) - (let* ((_%self167733%_ - (let ((__obj170807 + (let* ((_%self169020%_ + (let ((__obj172094 (let () (declare (not safe)) (##structure gxc#::refine-type-info::t)))) - __obj170807)) - (__tmp170873 + __obj172094)) + (__tmp172160 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167733%_ _%stx167730%_))))) + (gxc#compile-e__1 _%self169020%_ _%stx169017%_))))) (declare (not safe)) (__call-with-parameters - __tmp170873 + __tmp172160 gxc#current-compile-method - _%self167733%_)))) + _%self169020%_)))) (define gxc#::raw-expression-type::t - (let ((__tmp170874 (list gxc#::false::t))) + (let ((__tmp172161 (list gxc#::false::t))) (declare (not safe)) (__make-class-type 'gxc#::raw-expression-type::t '::raw-expression-type - __tmp170874 + __tmp172161 '() '() '#f))) @@ -639,10 +639,10 @@ (declare (not safe)) (__make-class-predicate gxc#::raw-expression-type::t))) (define gxc#make-::raw-expression-type - (lambda _%$args167727%_ - (apply make-instance gxc#::raw-expression-type::t _%$args167727%_))) + (lambda _%$args169014%_ + (apply make-instance gxc#::raw-expression-type::t _%$args169014%_))) (define gxc#::raw-expression-type-bind-methods! - (let ((__tmp170875 + (let ((__tmp172162 (lambda () (force gxc#::false-bind-methods!) (let () @@ -712,46 +712,46 @@ '%#quote gxc#basic-expression-type-quote%))))) (declare (not safe)) - (__make-promise __tmp170875))) + (__make-promise __tmp172162))) (define gxc#apply-raw-expression-type - (lambda (_%stx167719%_) + (lambda (_%stx169006%_) (force gxc#::raw-expression-type-bind-methods!) - (let* ((_%self167722%_ - (let ((__obj170809 + (let* ((_%self169009%_ + (let ((__obj172096 (let () (declare (not safe)) (##structure gxc#::raw-expression-type::t)))) - __obj170809)) - (__tmp170876 + __obj172096)) + (__tmp172163 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167722%_ _%stx167719%_))))) + (gxc#compile-e__1 _%self169009%_ _%stx169006%_))))) (declare (not safe)) (__call-with-parameters - __tmp170876 + __tmp172163 gxc#current-compile-method - _%self167722%_)))) + _%self169009%_)))) (define gxc#::basic-expression-type::t - (let ((__tmp170878 (list gxc#::raw-expression-type::t gxc#::false::t)) - (__tmp170877 (cons (cons 'final: '#t) '()))) + (let ((__tmp172165 (list gxc#::raw-expression-type::t gxc#::false::t)) + (__tmp172164 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::basic-expression-type::t '::basic-expression-type - __tmp170878 + __tmp172165 '() - __tmp170877 + __tmp172164 '#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 _%$args167716%_ - (apply make-instance gxc#::basic-expression-type::t _%$args167716%_))) + (lambda _%$args169003%_ + (apply make-instance gxc#::basic-expression-type::t _%$args169003%_))) (define gxc#::basic-expression-type-bind-methods! - (let ((__tmp170879 + (let ((__tmp172166 (lambda () (force gxc#::raw-expression-type-bind-methods!) (force gxc#::false-bind-methods!) @@ -765,46 +765,46 @@ (declare (not safe)) (__seal-class! gxc#::basic-expression-type::t))))) (declare (not safe)) - (__make-promise __tmp170879))) + (__make-promise __tmp172166))) (define gxc#apply-basic-expression-type - (lambda (_%stx167708%_) + (lambda (_%stx168995%_) (force gxc#::basic-expression-type-bind-methods!) - (let* ((_%self167711%_ - (let ((__obj170811 + (let* ((_%self168998%_ + (let ((__obj172098 (let () (declare (not safe)) (##structure gxc#::basic-expression-type::t)))) - __obj170811)) - (__tmp170880 + __obj172098)) + (__tmp172167 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167711%_ _%stx167708%_))))) + (gxc#compile-e__1 _%self168998%_ _%stx168995%_))))) (declare (not safe)) (__call-with-parameters - __tmp170880 + __tmp172167 gxc#current-compile-method - _%self167711%_)))) + _%self168998%_)))) (define gxc#::lift-top-lambdas::t - (let ((__tmp170882 (list gxc#::basic-xform::t)) - (__tmp170881 (cons (cons 'final: '#t) '()))) + (let ((__tmp172169 (list gxc#::basic-xform::t)) + (__tmp172168 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::lift-top-lambdas::t '::lift-top-lambdas - __tmp170882 + __tmp172169 '() - __tmp170881 + __tmp172168 '#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 _%$args167705%_ - (apply make-instance gxc#::lift-top-lambdas::t _%$args167705%_))) + (lambda _%$args168992%_ + (apply make-instance gxc#::lift-top-lambdas::t _%$args168992%_))) (define gxc#::lift-top-lambdas-bind-methods! - (let ((__tmp170883 + (let ((__tmp172170 (lambda () (force gxc#::basic-xform-bind-methods!) (let () @@ -835,48 +835,48 @@ (declare (not safe)) (__seal-class! gxc#::lift-top-lambdas::t))))) (declare (not safe)) - (__make-promise __tmp170883))) + (__make-promise __tmp172170))) (define gxc#apply-lift-top-lambdas - (lambda (_%stx167697%_) + (lambda (_%stx168984%_) (force gxc#::lift-top-lambdas-bind-methods!) - (let* ((_%self167700%_ - (let ((__obj170813 + (let* ((_%self168987%_ + (let ((__obj172100 (let () (declare (not safe)) (##structure gxc#::lift-top-lambdas::t)))) - __obj170813)) - (__tmp170884 + __obj172100)) + (__tmp172171 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167700%_ _%stx167697%_))))) + (gxc#compile-e__1 _%self168987%_ _%stx168984%_))))) (declare (not safe)) (__call-with-parameters - __tmp170884 + __tmp172171 gxc#current-compile-method - _%self167700%_)))) + _%self168987%_)))) (define gxc#::extract-lambda-signature::t - (let ((__tmp170886 (list gxc#::false::t)) - (__tmp170885 (cons (cons 'final: '#t) '()))) + (let ((__tmp172173 (list gxc#::false::t)) + (__tmp172172 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::extract-lambda-signature::t '::extract-lambda-signature - __tmp170886 + __tmp172173 '() - __tmp170885 + __tmp172172 '#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 _%$args167694%_ + (lambda _%$args168981%_ (apply make-instance gxc#::extract-lambda-signature::t - _%$args167694%_))) + _%$args168981%_))) (define gxc#::extract-lambda-signature-bind-methods! - (let ((__tmp170887 + (let ((__tmp172174 (lambda () (force gxc#::false-bind-methods!) (let () @@ -913,225 +913,225 @@ (declare (not safe)) (__seal-class! gxc#::extract-lambda-signature::t))))) (declare (not safe)) - (__make-promise __tmp170887))) + (__make-promise __tmp172174))) (define gxc#apply-extract-lambda-signature - (lambda (_%stx167686%_) + (lambda (_%stx168973%_) (force gxc#::extract-lambda-signature-bind-methods!) - (let* ((_%self167689%_ - (let ((__obj170815 + (let* ((_%self168976%_ + (let ((__obj172102 (let () (declare (not safe)) (##structure gxc#::extract-lambda-signature::t)))) - __obj170815)) - (__tmp170888 + __obj172102)) + (__tmp172175 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167689%_ _%stx167686%_))))) + (gxc#compile-e__1 _%self168976%_ _%stx168973%_))))) (declare (not safe)) (__call-with-parameters - __tmp170888 + __tmp172175 gxc#current-compile-method - _%self167689%_)))) + _%self168976%_)))) (define gxc#collect-top-level-type-define-values% - (lambda (_%self167588%_ _%stx167589%_) - (let* ((_%__stx167806167807%_ _%stx167589%_) - (_%g167592167612%_ + (lambda (_%self168875%_ _%stx168876%_) + (let* ((_%__stx169093169094%_ _%stx168876%_) + (_%g168879168899%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167806167807%_))))) - (let ((_%__kont167808167809%_ - (lambda (_%L167656%_ _%L167657%_) - (let ((_%sym167675%_ + _%__stx169093169094%_))))) + (let ((_%__kont169095169096%_ + (lambda (_%L168943%_ _%L168944%_) + (let ((_%sym168962%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L167657%_)))) + (gxc#identifier-symbol _%L168944%_)))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167588%_ _%L167656%_)) - (let ((_%type167676167678%_ + (gxc#compile-e__1 _%self168875%_ _%L168943%_)) + (let ((_%type168963168965%_ (gxc#apply-basic-expression-top-level-type - _%L167656%_))) - (if _%type167676167678%_ - (let ((_%type167681%_ _%type167676167678%_)) + _%L168943%_))) + (if _%type168963168965%_ + (let ((_%type168968%_ _%type168963168965%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type167681%_ + _%type168968%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp170889 + (let ((__tmp172176 (let () (declare (not safe)) (##unchecked-structure-ref - _%type167681%_ + _%type168968%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym167675%_ - __tmp170889)) - (let ((__tmp170890 + _%sym168962%_ + __tmp172176)) + (let ((__tmp172177 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx167589%_ + _%stx168876%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym167675%_ - __tmp170890))) + _%sym168962%_ + __tmp172177))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym167675%_ - _%type167681%_)))) + _%sym168962%_ + _%type168968%_)))) '#f))))) - (_%__kont167810167811%_ (lambda () '#!void))) - (let ((_%__match167839167840%_ - (lambda (_%e167596167624%_ - _%hd167597167627%_ - _%tl167598167629%_ - _%e167599167632%_ - _%hd167600167635%_ - _%tl167601167637%_ - _%e167602167640%_ - _%hd167603167643%_ - _%tl167604167645%_ - _%e167605167648%_ - _%hd167606167651%_ - _%tl167607167653%_) - (let ((_%L167656%_ _%hd167606167651%_) - (_%L167657%_ _%hd167603167643%_)) + (_%__kont169097169098%_ (lambda () '#!void))) + (let ((_%__match169126169127%_ + (lambda (_%e168883168911%_ + _%hd168884168914%_ + _%tl168885168916%_ + _%e168886168919%_ + _%hd168887168922%_ + _%tl168888168924%_ + _%e168889168927%_ + _%hd168890168930%_ + _%tl168891168932%_ + _%e168892168935%_ + _%hd168893168938%_ + _%tl168894168940%_) + (let ((_%L168943%_ _%hd168893168938%_) + (_%L168944%_ _%hd168890168930%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L167657%_)) - (_%__kont167808167809%_ _%L167656%_ _%L167657%_) - (_%__kont167810167811%_)))))) + (gx#identifier? _%L168944%_)) + (_%__kont169095169096%_ _%L168943%_ _%L168944%_) + (_%__kont169097169098%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167806167807%_)) - (let ((_%e167596167624%_ + (gx#stx-pair? _%__stx169093169094%_)) + (let ((_%e168883168911%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167806167807%_)))) - (let ((_%tl167598167629%_ + (gx#stx-e _%__stx169093169094%_)))) + (let ((_%tl168885168916%_ (let () (declare (not safe)) - (##cdr _%e167596167624%_))) - (_%hd167597167627%_ + (##cdr _%e168883168911%_))) + (_%hd168884168914%_ (let () (declare (not safe)) - (##car _%e167596167624%_)))) + (##car _%e168883168911%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167598167629%_)) - (let ((_%e167599167632%_ + (gx#stx-pair? _%tl168885168916%_)) + (let ((_%e168886168919%_ (let () (declare (not safe)) - (gx#stx-e _%tl167598167629%_)))) - (let ((_%tl167601167637%_ + (gx#stx-e _%tl168885168916%_)))) + (let ((_%tl168888168924%_ (let () (declare (not safe)) - (##cdr _%e167599167632%_))) - (_%hd167600167635%_ + (##cdr _%e168886168919%_))) + (_%hd168887168922%_ (let () (declare (not safe)) - (##car _%e167599167632%_)))) + (##car _%e168886168919%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167600167635%_)) - (let ((_%e167602167640%_ + (gx#stx-pair? _%hd168887168922%_)) + (let ((_%e168889168927%_ (let () (declare (not safe)) - (gx#stx-e _%hd167600167635%_)))) - (let ((_%tl167604167645%_ + (gx#stx-e _%hd168887168922%_)))) + (let ((_%tl168891168932%_ (let () (declare (not safe)) - (##cdr _%e167602167640%_))) - (_%hd167603167643%_ + (##cdr _%e168889168927%_))) + (_%hd168890168930%_ (let () (declare (not safe)) - (##car _%e167602167640%_)))) + (##car _%e168889168927%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167604167645%_)) + (gx#stx-null? _%tl168891168932%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167601167637%_)) - (let ((_%e167605167648%_ + _%tl168888168924%_)) + (let ((_%e168892168935%_ (let () (declare (not safe)) (gx#stx-e - _%tl167601167637%_)))) - (let ((_%tl167607167653%_ + _%tl168888168924%_)))) + (let ((_%tl168894168940%_ (let () (declare (not safe)) - (##cdr _%e167605167648%_))) - (_%hd167606167651%_ + (##cdr _%e168892168935%_))) + (_%hd168893168938%_ (let () (declare (not safe)) - (##car _%e167605167648%_)))) + (##car _%e168892168935%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167607167653%_)) - (_%__match167839167840%_ - _%e167596167624%_ - _%hd167597167627%_ - _%tl167598167629%_ - _%e167599167632%_ - _%hd167600167635%_ - _%tl167601167637%_ - _%e167602167640%_ - _%hd167603167643%_ - _%tl167604167645%_ - _%e167605167648%_ - _%hd167606167651%_ - _%tl167607167653%_) - (_%__kont167810167811%_)))) - (_%__kont167810167811%_)) - (_%__kont167810167811%_)))) - (_%__kont167810167811%_)))) - (_%__kont167810167811%_)))) - (_%__kont167810167811%_))))))) + _%tl168894168940%_)) + (_%__match169126169127%_ + _%e168883168911%_ + _%hd168884168914%_ + _%tl168885168916%_ + _%e168886168919%_ + _%hd168887168922%_ + _%tl168888168924%_ + _%e168889168927%_ + _%hd168890168930%_ + _%tl168891168932%_ + _%e168892168935%_ + _%hd168893168938%_ + _%tl168894168940%_) + (_%__kont169097169098%_)))) + (_%__kont169097169098%_)) + (_%__kont169097169098%_)))) + (_%__kont169097169098%_)))) + (_%__kont169097169098%_)))) + (_%__kont169097169098%_))))))) (define gxc#collect-top-level-decl-begin-annotation% - (lambda (_%self167410%_ _%stx167411%_) - (let* ((_%__stx167842167843%_ _%stx167411%_) - (_%g167414167454%_ + (lambda (_%self168697%_ _%stx168698%_) + (let* ((_%__stx169129169130%_ _%stx168698%_) + (_%g168701168741%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167842167843%_))))) - (let ((_%__kont167844167845%_ - (lambda (_%L167560%_ _%L167561%_) - (let ((_%type167583%_ - (let ((__tmp170891 + _%__stx169129169130%_))))) + (let ((_%__kont169131169132%_ + (lambda (_%L168847%_ _%L168848%_) + (let ((_%type168870%_ + (let ((__tmp172178 (let () (declare (not safe)) - (gxc#identifier-symbol _%L167561%_)))) + (gxc#identifier-symbol _%L168848%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp170891)))) + (gxc#optimizer-lookup-type __tmp172178)))) (if (let () (declare (not safe)) (##structure-instance-of? - _%type167583%_ + _%type168870%_ 'gxc#!lambda::t)) - (let ((__tmp170892 - (gxc#eval-in-ssxi-context _%L167560%_))) + (let ((__tmp172179 + (gxc#eval-in-ssxi-context _%L168847%_))) (declare (not safe)) (##unchecked-structure-set! - _%type167583%_ - __tmp170892 + _%type168870%_ + __tmp172179 '5 '#f '#f)) @@ -1139,6747 +1139,6747 @@ (declare (not safe)) (gxc#raise-compile-error '"inline rule for non lambda procedure" - _%stx167411%_ - _%L167561%_)))))) - (_%__kont167846167847%_ - (lambda (_%L167483%_ _%L167484%_) '#!void))) + _%stx168698%_ + _%L168848%_)))))) + (_%__kont169133169134%_ + (lambda (_%L168770%_ _%L168771%_) '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167842167843%_)) - (let ((_%e167418167504%_ + (gx#stx-pair? _%__stx169129169130%_)) + (let ((_%e168705168791%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167842167843%_)))) - (let ((_%tl167420167509%_ + (gx#stx-e _%__stx169129169130%_)))) + (let ((_%tl168707168796%_ (let () (declare (not safe)) - (##cdr _%e167418167504%_))) - (_%hd167419167507%_ + (##cdr _%e168705168791%_))) + (_%hd168706168794%_ (let () (declare (not safe)) - (##car _%e167418167504%_)))) + (##car _%e168705168791%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167420167509%_)) - (let ((_%e167421167512%_ + (gx#stx-pair? _%tl168707168796%_)) + (let ((_%e168708168799%_ (let () (declare (not safe)) - (gx#stx-e _%tl167420167509%_)))) - (let ((_%tl167423167517%_ + (gx#stx-e _%tl168707168796%_)))) + (let ((_%tl168710168804%_ (let () (declare (not safe)) - (##cdr _%e167421167512%_))) - (_%hd167422167515%_ + (##cdr _%e168708168799%_))) + (_%hd168709168802%_ (let () (declare (not safe)) - (##car _%e167421167512%_)))) + (##car _%e168708168799%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167422167515%_)) - (let ((_%e167424167520%_ + (gx#stx-pair? _%hd168709168802%_)) + (let ((_%e168711168807%_ (let () (declare (not safe)) - (gx#stx-e _%hd167422167515%_)))) - (let ((_%tl167426167525%_ + (gx#stx-e _%hd168709168802%_)))) + (let ((_%tl168713168812%_ (let () (declare (not safe)) - (##cdr _%e167424167520%_))) - (_%hd167425167523%_ + (##cdr _%e168711168807%_))) + (_%hd168712168810%_ (let () (declare (not safe)) - (##car _%e167424167520%_)))) + (##car _%e168711168807%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167425167523%_)) + (gx#identifier? _%hd168712168810%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd167425167523%_)) + _%hd168712168810%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167426167525%_)) - (let ((_%e167427167528%_ + _%tl168713168812%_)) + (let ((_%e168714168815%_ (let () (declare (not safe)) (gx#stx-e - _%tl167426167525%_)))) - (let ((_%tl167429167533%_ + _%tl168713168812%_)))) + (let ((_%tl168716168820%_ (let () (declare (not safe)) - (##cdr _%e167427167528%_))) - (_%hd167428167531%_ + (##cdr _%e168714168815%_))) + (_%hd168715168818%_ (let () (declare (not safe)) - (##car _%e167427167528%_)))) + (##car _%e168714168815%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167429167533%_)) + _%tl168716168820%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167423167517%_)) - (let ((_%e167430167536%_ + _%tl168710168804%_)) + (let ((_%e168717168823%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl167423167517%_)))) - (let ((_%tl167432167541%_ + (gx#stx-e _%tl168710168804%_)))) + (let ((_%tl168719168828%_ (let () (declare (not safe)) - (##cdr _%e167430167536%_))) - (_%hd167431167539%_ + (##cdr _%e168717168823%_))) + (_%hd168718168826%_ (let () (declare (not safe)) - (##car _%e167430167536%_)))) + (##car _%e168717168823%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167431167539%_)) - (let ((_%e167433167544%_ + (gx#stx-pair? _%hd168718168826%_)) + (let ((_%e168720168831%_ (let () (declare (not safe)) - (gx#stx-e _%hd167431167539%_)))) - (let ((_%tl167435167549%_ + (gx#stx-e _%hd168718168826%_)))) + (let ((_%tl168722168836%_ (let () (declare (not safe)) - (##cdr _%e167433167544%_))) - (_%hd167434167547%_ + (##cdr _%e168720168831%_))) + (_%hd168721168834%_ (let () (declare (not safe)) - (##car _%e167433167544%_)))) + (##car _%e168720168831%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167434167547%_)) + (gx#identifier? _%hd168721168834%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd167434167547%_)) + _%hd168721168834%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167435167549%_)) - (let ((_%e167436167552%_ + _%tl168722168836%_)) + (let ((_%e168723168839%_ (let () (declare (not safe)) (gx#stx-e - _%tl167435167549%_)))) - (let ((_%tl167438167557%_ + _%tl168722168836%_)))) + (let ((_%tl168725168844%_ (let () (declare (not safe)) - (##cdr _%e167436167552%_))) - (_%hd167437167555%_ + (##cdr _%e168723168839%_))) + (_%hd168724168842%_ (let () (declare (not safe)) - (##car _%e167436167552%_)))) + (##car _%e168723168839%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167438167557%_)) + _%tl168725168844%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167432167541%_)) - (_%__kont167844167845%_ - _%hd167437167555%_ - _%hd167428167531%_) + _%tl168719168828%_)) + (_%__kont169131169132%_ + _%hd168724168842%_ + _%hd168715168818%_) (let () (declare (not safe)) - (_%g167414167454%_))) + (_%g168701168741%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167432167541%_)) - (_%__kont167846167847%_ - _%hd167431167539%_ - _%hd167422167515%_) + _%tl168719168828%_)) + (_%__kont169133169134%_ + _%hd168718168826%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167414167454%_)))))) + (_%g168701168741%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167432167541%_)) - (_%__kont167846167847%_ - _%hd167431167539%_ - _%hd167422167515%_) + _%tl168719168828%_)) + (_%__kont169133169134%_ + _%hd168718168826%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167414167454%_)))) + (_%g168701168741%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167432167541%_)) - (_%__kont167846167847%_ - _%hd167431167539%_ - _%hd167422167515%_) + _%tl168719168828%_)) + (_%__kont169133169134%_ + _%hd168718168826%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167414167454%_)))) + (_%g168701168741%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167432167541%_)) - (_%__kont167846167847%_ - _%hd167431167539%_ - _%hd167422167515%_) + (gx#stx-null? _%tl168719168828%_)) + (_%__kont169133169134%_ + _%hd168718168826%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167414167454%_)))))) + (_%g168701168741%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167432167541%_)) - (_%__kont167846167847%_ - _%hd167431167539%_ - _%hd167422167515%_) + (gx#stx-null? _%tl168719168828%_)) + (_%__kont169133169134%_ + _%hd168718168826%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167414167454%_)))))) - (let () (declare (not safe)) (_%g167414167454%_))) + (_%g168701168741%_)))))) + (let () (declare (not safe)) (_%g168701168741%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167423167517%_)) - (let ((_%e167447167475%_ + (gx#stx-pair? _%tl168710168804%_)) + (let ((_%e168734168762%_ (let () (declare (not safe)) - (gx#stx-e _%tl167423167517%_)))) - (let ((_%tl167449167480%_ + (gx#stx-e _%tl168710168804%_)))) + (let ((_%tl168736168767%_ (let () (declare (not safe)) - (##cdr _%e167447167475%_))) - (_%hd167448167478%_ + (##cdr _%e168734168762%_))) + (_%hd168735168765%_ (let () (declare (not safe)) - (##car _%e167447167475%_)))) + (##car _%e168734168762%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167449167480%_)) - (_%__kont167846167847%_ - _%hd167448167478%_ - _%hd167422167515%_) + (gx#stx-null? _%tl168736168767%_)) + (_%__kont169133169134%_ + _%hd168735168765%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167414167454%_))))) - (let () (declare (not safe)) (_%g167414167454%_)))))) + (_%g168701168741%_))))) + (let () (declare (not safe)) (_%g168701168741%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167423167517%_)) - (let ((_%e167447167475%_ + _%tl168710168804%_)) + (let ((_%e168734168762%_ (let () (declare (not safe)) (gx#stx-e - _%tl167423167517%_)))) - (let ((_%tl167449167480%_ + _%tl168710168804%_)))) + (let ((_%tl168736168767%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e167447167475%_))) - (_%hd167448167478%_ - (let () (declare (not safe)) (##car _%e167447167475%_)))) + (##cdr _%e168734168762%_))) + (_%hd168735168765%_ + (let () (declare (not safe)) (##car _%e168734168762%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167449167480%_)) - (_%__kont167846167847%_ - _%hd167448167478%_ - _%hd167422167515%_) - (let () (declare (not safe)) (_%g167414167454%_))))) + (gx#stx-null? _%tl168736168767%_)) + (_%__kont169133169134%_ + _%hd168735168765%_ + _%hd168709168802%_) + (let () (declare (not safe)) (_%g168701168741%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g167414167454%_)))) + (_%g168701168741%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167423167517%_)) - (let ((_%e167447167475%_ + _%tl168710168804%_)) + (let ((_%e168734168762%_ (let () (declare (not safe)) (gx#stx-e - _%tl167423167517%_)))) - (let ((_%tl167449167480%_ + _%tl168710168804%_)))) + (let ((_%tl168736168767%_ (let () (declare (not safe)) - (##cdr _%e167447167475%_))) - (_%hd167448167478%_ + (##cdr _%e168734168762%_))) + (_%hd168735168765%_ (let () (declare (not safe)) - (##car _%e167447167475%_)))) + (##car _%e168734168762%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167449167480%_)) - (_%__kont167846167847%_ - _%hd167448167478%_ - _%hd167422167515%_) + _%tl168736168767%_)) + (_%__kont169133169134%_ + _%hd168735168765%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167414167454%_))))) + (_%g168701168741%_))))) (let () (declare (not safe)) - (_%g167414167454%_)))) + (_%g168701168741%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167423167517%_)) - (let ((_%e167447167475%_ + _%tl168710168804%_)) + (let ((_%e168734168762%_ (let () (declare (not safe)) (gx#stx-e - _%tl167423167517%_)))) - (let ((_%tl167449167480%_ + _%tl168710168804%_)))) + (let ((_%tl168736168767%_ (let () (declare (not safe)) - (##cdr _%e167447167475%_))) - (_%hd167448167478%_ + (##cdr _%e168734168762%_))) + (_%hd168735168765%_ (let () (declare (not safe)) - (##car _%e167447167475%_)))) + (##car _%e168734168762%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167449167480%_)) - (_%__kont167846167847%_ - _%hd167448167478%_ - _%hd167422167515%_) + _%tl168736168767%_)) + (_%__kont169133169134%_ + _%hd168735168765%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167414167454%_))))) + (_%g168701168741%_))))) (let () (declare (not safe)) - (_%g167414167454%_)))))) + (_%g168701168741%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167423167517%_)) - (let ((_%e167447167475%_ + (gx#stx-pair? _%tl168710168804%_)) + (let ((_%e168734168762%_ (let () (declare (not safe)) - (gx#stx-e _%tl167423167517%_)))) - (let ((_%tl167449167480%_ + (gx#stx-e _%tl168710168804%_)))) + (let ((_%tl168736168767%_ (let () (declare (not safe)) - (##cdr _%e167447167475%_))) - (_%hd167448167478%_ + (##cdr _%e168734168762%_))) + (_%hd168735168765%_ (let () (declare (not safe)) - (##car _%e167447167475%_)))) + (##car _%e168734168762%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167449167480%_)) - (_%__kont167846167847%_ - _%hd167448167478%_ - _%hd167422167515%_) + _%tl168736168767%_)) + (_%__kont169133169134%_ + _%hd168735168765%_ + _%hd168709168802%_) (let () (declare (not safe)) - (_%g167414167454%_))))) + (_%g168701168741%_))))) (let () (declare (not safe)) - (_%g167414167454%_)))))) - (let () (declare (not safe)) (_%g167414167454%_))))) - (let () (declare (not safe)) (_%g167414167454%_))))))) + (_%g168701168741%_)))))) + (let () (declare (not safe)) (_%g168701168741%_))))) + (let () (declare (not safe)) (_%g168701168741%_))))))) (define gxc#eval-in-ssxi-context - (lambda (_%expr167407%_) - (let ((__tmp170894 + (lambda (_%expr168694%_) + (let ((__tmp172181 (lambda () (eval '(import :gerbil/compiler/ssxi)) (let () (declare (not safe)) - (gx#eval-syntax__0 _%expr167407%_)))) - (__tmp170893 - (let ((__obj170816 + (gx#eval-syntax__0 _%expr168694%_)))) + (__tmp172180 + (let ((__obj172103 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gx#top-context:::init!__0 __obj170816)) - __obj170816))) + (gx#top-context:::init!__0 __obj172103)) + __obj172103))) (declare (not safe)) (__call-with-parameters - __tmp170894 + __tmp172181 gx#current-expander-context - __tmp170893)))) + __tmp172180)))) (define gxc#collect-type-define-values% - (lambda (_%self167269%_ _%stx167270%_) - (let* ((_%__stx167926167927%_ _%stx167270%_) - (_%g167273167303%_ + (lambda (_%self168556%_ _%stx168557%_) + (let* ((_%__stx169213169214%_ _%stx168557%_) + (_%g168560168590%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167926167927%_))))) - (let ((_%__kont167928167929%_ - (lambda (_%L167383%_ _%L167384%_) - (let ((_%sym167400%_ + _%__stx169213169214%_))))) + (let ((_%__kont169215169216%_ + (lambda (_%L168670%_ _%L168671%_) + (let ((_%sym168687%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L167384%_)))) + (gxc#identifier-symbol _%L168671%_)))) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym167400%_)) + (gxc#optimizer-lookup-type _%sym168687%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167269%_ _%L167383%_)) - (let ((_%type167402%_ - (gxc#apply-basic-expression-type _%L167383%_))) - (if _%type167402%_ + (gxc#compile-e__1 _%self168556%_ _%L168670%_)) + (let ((_%type168689%_ + (gxc#apply-basic-expression-type _%L168670%_))) + (if _%type168689%_ (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym167400%_ - _%type167402%_)) + _%sym168687%_ + _%type168689%_)) '#!void) (let () (declare (not safe)) (gxc#compile-e__1 - _%self167269%_ - _%L167383%_))))))) - (_%__kont167930167931%_ - (lambda (_%L167332%_) + _%self168556%_ + _%L168670%_))))))) + (_%__kont169217169218%_ + (lambda (_%L168619%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167269%_ _%L167332%_))))) - (let ((_%__match167959167960%_ - (lambda (_%e167277167351%_ - _%hd167278167354%_ - _%tl167279167356%_ - _%e167280167359%_ - _%hd167281167362%_ - _%tl167282167364%_ - _%e167283167367%_ - _%hd167284167370%_ - _%tl167285167372%_ - _%e167286167375%_ - _%hd167287167378%_ - _%tl167288167380%_) - (let ((_%L167383%_ _%hd167287167378%_) - (_%L167384%_ _%hd167284167370%_)) + (gxc#compile-e__1 _%self168556%_ _%L168619%_))))) + (let ((_%__match169246169247%_ + (lambda (_%e168564168638%_ + _%hd168565168641%_ + _%tl168566168643%_ + _%e168567168646%_ + _%hd168568168649%_ + _%tl168569168651%_ + _%e168570168654%_ + _%hd168571168657%_ + _%tl168572168659%_ + _%e168573168662%_ + _%hd168574168665%_ + _%tl168575168667%_) + (let ((_%L168670%_ _%hd168574168665%_) + (_%L168671%_ _%hd168571168657%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L167384%_)) - (_%__kont167928167929%_ _%L167383%_ _%L167384%_) - (_%__kont167930167931%_ _%hd167287167378%_)))))) + (gx#identifier? _%L168671%_)) + (_%__kont169215169216%_ _%L168670%_ _%L168671%_) + (_%__kont169217169218%_ _%hd168574168665%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167926167927%_)) - (let ((_%e167277167351%_ + (gx#stx-pair? _%__stx169213169214%_)) + (let ((_%e168564168638%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167926167927%_)))) - (let ((_%tl167279167356%_ + (gx#stx-e _%__stx169213169214%_)))) + (let ((_%tl168566168643%_ (let () (declare (not safe)) - (##cdr _%e167277167351%_))) - (_%hd167278167354%_ + (##cdr _%e168564168638%_))) + (_%hd168565168641%_ (let () (declare (not safe)) - (##car _%e167277167351%_)))) + (##car _%e168564168638%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167279167356%_)) - (let ((_%e167280167359%_ + (gx#stx-pair? _%tl168566168643%_)) + (let ((_%e168567168646%_ (let () (declare (not safe)) - (gx#stx-e _%tl167279167356%_)))) - (let ((_%tl167282167364%_ + (gx#stx-e _%tl168566168643%_)))) + (let ((_%tl168569168651%_ (let () (declare (not safe)) - (##cdr _%e167280167359%_))) - (_%hd167281167362%_ + (##cdr _%e168567168646%_))) + (_%hd168568168649%_ (let () (declare (not safe)) - (##car _%e167280167359%_)))) + (##car _%e168567168646%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167281167362%_)) - (let ((_%e167283167367%_ + (gx#stx-pair? _%hd168568168649%_)) + (let ((_%e168570168654%_ (let () (declare (not safe)) - (gx#stx-e _%hd167281167362%_)))) - (let ((_%tl167285167372%_ + (gx#stx-e _%hd168568168649%_)))) + (let ((_%tl168572168659%_ (let () (declare (not safe)) - (##cdr _%e167283167367%_))) - (_%hd167284167370%_ + (##cdr _%e168570168654%_))) + (_%hd168571168657%_ (let () (declare (not safe)) - (##car _%e167283167367%_)))) + (##car _%e168570168654%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167285167372%_)) + (gx#stx-null? _%tl168572168659%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167282167364%_)) - (let ((_%e167286167375%_ + _%tl168569168651%_)) + (let ((_%e168573168662%_ (let () (declare (not safe)) (gx#stx-e - _%tl167282167364%_)))) - (let ((_%tl167288167380%_ + _%tl168569168651%_)))) + (let ((_%tl168575168667%_ (let () (declare (not safe)) - (##cdr _%e167286167375%_))) - (_%hd167287167378%_ + (##cdr _%e168573168662%_))) + (_%hd168574168665%_ (let () (declare (not safe)) - (##car _%e167286167375%_)))) + (##car _%e168573168662%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167288167380%_)) - (_%__match167959167960%_ - _%e167277167351%_ - _%hd167278167354%_ - _%tl167279167356%_ - _%e167280167359%_ - _%hd167281167362%_ - _%tl167282167364%_ - _%e167283167367%_ - _%hd167284167370%_ - _%tl167285167372%_ - _%e167286167375%_ - _%hd167287167378%_ - _%tl167288167380%_) + _%tl168575168667%_)) + (_%__match169246169247%_ + _%e168564168638%_ + _%hd168565168641%_ + _%tl168566168643%_ + _%e168567168646%_ + _%hd168568168649%_ + _%tl168569168651%_ + _%e168570168654%_ + _%hd168571168657%_ + _%tl168572168659%_ + _%e168573168662%_ + _%hd168574168665%_ + _%tl168575168667%_) (let () (declare (not safe)) - (_%g167273167303%_))))) + (_%g168560168590%_))))) (let () (declare (not safe)) - (_%g167273167303%_))) + (_%g168560168590%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167282167364%_)) - (let ((_%e167296167324%_ + _%tl168569168651%_)) + (let ((_%e168583168611%_ (let () (declare (not safe)) (gx#stx-e - _%tl167282167364%_)))) - (let ((_%tl167298167329%_ + _%tl168569168651%_)))) + (let ((_%tl168585168616%_ (let () (declare (not safe)) - (##cdr _%e167296167324%_))) - (_%hd167297167327%_ + (##cdr _%e168583168611%_))) + (_%hd168584168614%_ (let () (declare (not safe)) - (##car _%e167296167324%_)))) + (##car _%e168583168611%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167298167329%_)) - (_%__kont167930167931%_ - _%hd167297167327%_) + _%tl168585168616%_)) + (_%__kont169217169218%_ + _%hd168584168614%_) (let () (declare (not safe)) - (_%g167273167303%_))))) + (_%g168560168590%_))))) (let () (declare (not safe)) - (_%g167273167303%_)))))) + (_%g168560168590%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167282167364%_)) - (let ((_%e167296167324%_ + (gx#stx-pair? _%tl168569168651%_)) + (let ((_%e168583168611%_ (let () (declare (not safe)) - (gx#stx-e _%tl167282167364%_)))) - (let ((_%tl167298167329%_ + (gx#stx-e _%tl168569168651%_)))) + (let ((_%tl168585168616%_ (let () (declare (not safe)) - (##cdr _%e167296167324%_))) - (_%hd167297167327%_ + (##cdr _%e168583168611%_))) + (_%hd168584168614%_ (let () (declare (not safe)) - (##car _%e167296167324%_)))) + (##car _%e168583168611%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167298167329%_)) - (_%__kont167930167931%_ - _%hd167297167327%_) + _%tl168585168616%_)) + (_%__kont169217169218%_ + _%hd168584168614%_) (let () (declare (not safe)) - (_%g167273167303%_))))) + (_%g168560168590%_))))) (let () (declare (not safe)) - (_%g167273167303%_)))))) - (let () (declare (not safe)) (_%g167273167303%_))))) - (let () (declare (not safe)) (_%g167273167303%_)))))))) + (_%g168560168590%_)))))) + (let () (declare (not safe)) (_%g168560168590%_))))) + (let () (declare (not safe)) (_%g168560168590%_)))))))) (define gxc#collect-type-begin-annotation% - (lambda (_%self167024%_ _%stx167025%_) - (let* ((_%__stx168004168005%_ _%stx167025%_) - (_%g167028167068%_ + (lambda (_%self168311%_ _%stx168312%_) + (let* ((_%__stx169291169292%_ _%stx168312%_) + (_%g168315168355%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168004168005%_))))) - (let ((_%__kont168006168007%_ - (lambda (_%L167174%_ _%L167175%_) + _%__stx169291169292%_))))) + (let ((_%__kont169293169294%_ + (lambda (_%L168461%_ _%L168462%_) (for-each - (lambda (_%assertion167195%_) - (let* ((_%__stx167982167983%_ _%assertion167195%_) - (_%g167198167212%_ + (lambda (_%assertion168482%_) + (let* ((_%__stx169269169270%_ _%assertion168482%_) + (_%g168485168499%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167982167983%_))))) - (let ((_%__kont167984167985%_ - (lambda (_%L167240%_ _%L167241%_) - (let ((__tmp170897 + _%__stx169269169270%_))))) + (let ((_%__kont169271169272%_ + (lambda (_%L168527%_ _%L168528%_) + (let ((__tmp172184 (let () (declare (not safe)) - (gxc#identifier-symbol _%L167241%_))) - (__tmp170895 - (let ((__tmp170896 + (gxc#identifier-symbol _%L168528%_))) + (__tmp172182 + (let ((__tmp172183 (let () (declare (not safe)) (gxc#identifier-symbol - _%L167240%_)))) + _%L168527%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx167025%_ - __tmp170896)))) + _%stx168312%_ + __tmp172183)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp170897 - __tmp170895 + __tmp172184 + __tmp172182 '#t)))) - (_%__kont167986167987%_ + (_%__kont169273169274%_ (lambda () (let () (declare (not safe)) (gxc#raise-compile-error '"malformed type assertion" - _%stx167025%_ - _%assertion167195%_))))) - (let ((_%__match168001168002%_ - (lambda (_%e167202167224%_ - _%hd167203167227%_ - _%tl167204167229%_ - _%e167205167232%_ - _%hd167206167235%_ - _%tl167207167237%_) - (let ((_%L167240%_ _%hd167206167235%_) - (_%L167241%_ _%hd167203167227%_)) + _%stx168312%_ + _%assertion168482%_))))) + (let ((_%__match169288169289%_ + (lambda (_%e168489168511%_ + _%hd168490168514%_ + _%tl168491168516%_ + _%e168492168519%_ + _%hd168493168522%_ + _%tl168494168524%_) + (let ((_%L168527%_ _%hd168493168522%_) + (_%L168528%_ _%hd168490168514%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L167241%_)) + (gx#identifier? _%L168528%_)) (let () (declare (not safe)) - (gx#identifier? _%L167240%_))) - (_%__kont167984167985%_ - _%L167240%_ - _%L167241%_) - (_%__kont167986167987%_)))))) + (gx#identifier? _%L168527%_))) + (_%__kont169271169272%_ + _%L168527%_ + _%L168528%_) + (_%__kont169273169274%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167982167983%_)) - (let ((_%e167202167224%_ + (gx#stx-pair? _%__stx169269169270%_)) + (let ((_%e168489168511%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167982167983%_)))) - (let ((_%tl167204167229%_ + (gx#stx-e _%__stx169269169270%_)))) + (let ((_%tl168491168516%_ (let () (declare (not safe)) - (##cdr _%e167202167224%_))) - (_%hd167203167227%_ + (##cdr _%e168489168511%_))) + (_%hd168490168514%_ (let () (declare (not safe)) - (##car _%e167202167224%_)))) + (##car _%e168489168511%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167204167229%_)) - (let ((_%e167205167232%_ + (gx#stx-pair? _%tl168491168516%_)) + (let ((_%e168492168519%_ (let () (declare (not safe)) (gx#stx-e - _%tl167204167229%_)))) - (let ((_%tl167207167237%_ + _%tl168491168516%_)))) + (let ((_%tl168494168524%_ (let () (declare (not safe)) - (##cdr _%e167205167232%_))) - (_%hd167206167235%_ + (##cdr _%e168492168519%_))) + (_%hd168493168522%_ (let () (declare (not safe)) - (##car _%e167205167232%_)))) + (##car _%e168492168519%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167207167237%_)) - (_%__match168001168002%_ - _%e167202167224%_ - _%hd167203167227%_ - _%tl167204167229%_ - _%e167205167232%_ - _%hd167206167235%_ - _%tl167207167237%_) - (_%__kont167986167987%_)))) - (_%__kont167986167987%_)))) - (_%__kont167986167987%_)))))) - (let ((__tmp170898 - (lambda (_%g167258167261%_ _%g167259167263%_) - (cons _%g167258167261%_ _%g167259167263%_)))) + _%tl168494168524%_)) + (_%__match169288169289%_ + _%e168489168511%_ + _%hd168490168514%_ + _%tl168491168516%_ + _%e168492168519%_ + _%hd168493168522%_ + _%tl168494168524%_) + (_%__kont169273169274%_)))) + (_%__kont169273169274%_)))) + (_%__kont169273169274%_)))))) + (let ((__tmp172185 + (lambda (_%g168545168548%_ _%g168546168550%_) + (cons _%g168545168548%_ _%g168546168550%_)))) (declare (not safe)) - (__foldr1 __tmp170898 '() _%L167175%_))) + (__foldr1 __tmp172185 '() _%L168462%_))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167024%_ _%L167174%_)))) - (_%__kont168010168011%_ - (lambda (_%L167097%_ _%L167098%_) + (gxc#compile-e__1 _%self168311%_ _%L168461%_)))) + (_%__kont169297169298%_ + (lambda (_%L168384%_ _%L168385%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167024%_ _%L167097%_))))) - (let ((_%__match168041168042%_ - (lambda (_%e167032167118%_ - _%hd167033167121%_ - _%tl167034167123%_ - _%e167035167126%_ - _%hd167036167129%_ - _%tl167037167131%_ - _%e167038167134%_ - _%hd167039167137%_ - _%tl167040167139%_ - _%__splice168008168009%_ - _%target167041167142%_ - _%tl167043167144%_) - (letrec ((_%loop167044167147%_ - (lambda (_%hd167042167150%_ - _%assertion167048167152%_) + (gxc#compile-e__1 _%self168311%_ _%L168384%_))))) + (let ((_%__match169328169329%_ + (lambda (_%e168319168405%_ + _%hd168320168408%_ + _%tl168321168410%_ + _%e168322168413%_ + _%hd168323168416%_ + _%tl168324168418%_ + _%e168325168421%_ + _%hd168326168424%_ + _%tl168327168426%_ + _%__splice169295169296%_ + _%target168328168429%_ + _%tl168330168431%_) + (letrec ((_%loop168331168434%_ + (lambda (_%hd168329168437%_ + _%assertion168335168439%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167042167150%_)) - (let ((_%e167045167155%_ + (gx#stx-pair? _%hd168329168437%_)) + (let ((_%e168332168442%_ (let () (declare (not safe)) - (gx#stx-e _%hd167042167150%_)))) - (let ((_%lp-tl167047167160%_ + (gx#stx-e _%hd168329168437%_)))) + (let ((_%lp-tl168334168447%_ (let () (declare (not safe)) - (##cdr _%e167045167155%_))) - (_%lp-hd167046167158%_ + (##cdr _%e168332168442%_))) + (_%lp-hd168333168445%_ (let () (declare (not safe)) - (##car _%e167045167155%_)))) - (_%loop167044167147%_ - _%lp-tl167047167160%_ - (cons _%lp-hd167046167158%_ - _%assertion167048167152%_)))) - (let ((_%assertion167049167163%_ - (reverse _%assertion167048167152%_))) + (##car _%e168332168442%_)))) + (_%loop168331168434%_ + _%lp-tl168334168447%_ + (cons _%lp-hd168333168445%_ + _%assertion168335168439%_)))) + (let ((_%assertion168336168450%_ + (reverse _%assertion168335168439%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167037167131%_)) - (let ((_%e167050167166%_ + (gx#stx-pair? _%tl168324168418%_)) + (let ((_%e168337168453%_ (let () (declare (not safe)) (gx#stx-e - _%tl167037167131%_)))) - (let ((_%tl167052167171%_ + _%tl168324168418%_)))) + (let ((_%tl168339168458%_ (let () (declare (not safe)) - (##cdr _%e167050167166%_))) - (_%hd167051167169%_ + (##cdr _%e168337168453%_))) + (_%hd168338168456%_ (let () (declare (not safe)) - (##car _%e167050167166%_)))) + (##car _%e168337168453%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167052167171%_)) - (_%__kont168006168007%_ - _%hd167051167169%_ - _%assertion167049167163%_) + _%tl168339168458%_)) + (_%__kont169293169294%_ + _%hd168338168456%_ + _%assertion168336168450%_) (let () (declare (not safe)) - (_%g167028167068%_))))) + (_%g168315168355%_))))) (let () (declare (not safe)) - (_%g167028167068%_)))))))) - (_%loop167044167147%_ _%target167041167142%_ '()))))) + (_%g168315168355%_)))))))) + (_%loop168331168434%_ _%target168328168429%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168004168005%_)) - (let ((_%e167032167118%_ + (gx#stx-pair? _%__stx169291169292%_)) + (let ((_%e168319168405%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168004168005%_)))) - (let ((_%tl167034167123%_ + (gx#stx-e _%__stx169291169292%_)))) + (let ((_%tl168321168410%_ (let () (declare (not safe)) - (##cdr _%e167032167118%_))) - (_%hd167033167121%_ + (##cdr _%e168319168405%_))) + (_%hd168320168408%_ (let () (declare (not safe)) - (##car _%e167032167118%_)))) + (##car _%e168319168405%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167034167123%_)) - (let ((_%e167035167126%_ + (gx#stx-pair? _%tl168321168410%_)) + (let ((_%e168322168413%_ (let () (declare (not safe)) - (gx#stx-e _%tl167034167123%_)))) - (let ((_%tl167037167131%_ + (gx#stx-e _%tl168321168410%_)))) + (let ((_%tl168324168418%_ (let () (declare (not safe)) - (##cdr _%e167035167126%_))) - (_%hd167036167129%_ + (##cdr _%e168322168413%_))) + (_%hd168323168416%_ (let () (declare (not safe)) - (##car _%e167035167126%_)))) + (##car _%e168322168413%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167036167129%_)) - (let ((_%e167038167134%_ + (gx#stx-pair? _%hd168323168416%_)) + (let ((_%e168325168421%_ (let () (declare (not safe)) - (gx#stx-e _%hd167036167129%_)))) - (let ((_%tl167040167139%_ + (gx#stx-e _%hd168323168416%_)))) + (let ((_%tl168327168426%_ (let () (declare (not safe)) - (##cdr _%e167038167134%_))) - (_%hd167039167137%_ + (##cdr _%e168325168421%_))) + (_%hd168326168424%_ (let () (declare (not safe)) - (##car _%e167038167134%_)))) + (##car _%e168325168421%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd167039167137%_)) + _%hd168326168424%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.assert - _%hd167039167137%_)) + _%hd168326168424%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl167040167139%_)) - (let ((_%__splice168008168009%_ + _%tl168327168426%_)) + (let ((_%__splice169295169296%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl167040167139%_ + _%tl168327168426%_ '0)))) - (let ((_%tl167043167144%_ + (let ((_%tl168330168431%_ (let () (declare (not safe)) (##vector-ref - _%__splice168008168009%_ + _%__splice169295169296%_ '1))) - (_%target167041167142%_ + (_%target168328168429%_ (let () (declare (not safe)) (##vector-ref - _%__splice168008168009%_ + _%__splice169295169296%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167043167144%_)) - (_%__match168041168042%_ - _%e167032167118%_ - _%hd167033167121%_ - _%tl167034167123%_ - _%e167035167126%_ - _%hd167036167129%_ - _%tl167037167131%_ - _%e167038167134%_ - _%hd167039167137%_ - _%tl167040167139%_ - _%__splice168008168009%_ - _%target167041167142%_ - _%tl167043167144%_) + _%tl168330168431%_)) + (_%__match169328169329%_ + _%e168319168405%_ + _%hd168320168408%_ + _%tl168321168410%_ + _%e168322168413%_ + _%hd168323168416%_ + _%tl168324168418%_ + _%e168325168421%_ + _%hd168326168424%_ + _%tl168327168426%_ + _%__splice169295169296%_ + _%target168328168429%_ + _%tl168330168431%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl167037167131%_)) - (let ((_%e167061167089%_ + (gx#stx-pair? _%tl168324168418%_)) + (let ((_%e168348168376%_ (let () (declare (not safe)) - (gx#stx-e _%tl167037167131%_)))) - (let ((_%tl167063167094%_ + (gx#stx-e _%tl168324168418%_)))) + (let ((_%tl168350168381%_ (let () (declare (not safe)) - (##cdr _%e167061167089%_))) - (_%hd167062167092%_ + (##cdr _%e168348168376%_))) + (_%hd168349168379%_ (let () (declare (not safe)) - (##car _%e167061167089%_)))) + (##car _%e168348168376%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167063167094%_)) - (_%__kont168010168011%_ - _%hd167062167092%_ - _%hd167036167129%_) + (gx#stx-null? _%tl168350168381%_)) + (_%__kont169297169298%_ + _%hd168349168379%_ + _%hd168323168416%_) (let () (declare (not safe)) - (_%g167028167068%_))))) - (let () (declare (not safe)) (_%g167028167068%_)))))) + (_%g168315168355%_))))) + (let () (declare (not safe)) (_%g168315168355%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167037167131%_)) - (let ((_%e167061167089%_ + _%tl168324168418%_)) + (let ((_%e168348168376%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl167037167131%_)))) - (let ((_%tl167063167094%_ - (let () (declare (not safe)) (##cdr _%e167061167089%_))) - (_%hd167062167092%_ + (gx#stx-e _%tl168324168418%_)))) + (let ((_%tl168350168381%_ + (let () (declare (not safe)) (##cdr _%e168348168376%_))) + (_%hd168349168379%_ (let () (declare (not safe)) - (##car _%e167061167089%_)))) + (##car _%e168348168376%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167063167094%_)) - (_%__kont168010168011%_ - _%hd167062167092%_ - _%hd167036167129%_) - (let () (declare (not safe)) (_%g167028167068%_))))) - (let () (declare (not safe)) (_%g167028167068%_)))) + (gx#stx-null? _%tl168350168381%_)) + (_%__kont169297169298%_ + _%hd168349168379%_ + _%hd168323168416%_) + (let () (declare (not safe)) (_%g168315168355%_))))) + (let () (declare (not safe)) (_%g168315168355%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167037167131%_)) - (let ((_%e167061167089%_ + _%tl168324168418%_)) + (let ((_%e168348168376%_ (let () (declare (not safe)) (gx#stx-e - _%tl167037167131%_)))) - (let ((_%tl167063167094%_ + _%tl168324168418%_)))) + (let ((_%tl168350168381%_ (let () (declare (not safe)) - (##cdr _%e167061167089%_))) - (_%hd167062167092%_ + (##cdr _%e168348168376%_))) + (_%hd168349168379%_ (let () (declare (not safe)) - (##car _%e167061167089%_)))) + (##car _%e168348168376%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167063167094%_)) - (_%__kont168010168011%_ - _%hd167062167092%_ - _%hd167036167129%_) + _%tl168350168381%_)) + (_%__kont169297169298%_ + _%hd168349168379%_ + _%hd168323168416%_) (let () (declare (not safe)) - (_%g167028167068%_))))) + (_%g168315168355%_))))) (let () (declare (not safe)) - (_%g167028167068%_)))) + (_%g168315168355%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167037167131%_)) - (let ((_%e167061167089%_ + _%tl168324168418%_)) + (let ((_%e168348168376%_ (let () (declare (not safe)) (gx#stx-e - _%tl167037167131%_)))) - (let ((_%tl167063167094%_ + _%tl168324168418%_)))) + (let ((_%tl168350168381%_ (let () (declare (not safe)) - (##cdr _%e167061167089%_))) - (_%hd167062167092%_ + (##cdr _%e168348168376%_))) + (_%hd168349168379%_ (let () (declare (not safe)) - (##car _%e167061167089%_)))) + (##car _%e168348168376%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167063167094%_)) - (_%__kont168010168011%_ - _%hd167062167092%_ - _%hd167036167129%_) + _%tl168350168381%_)) + (_%__kont169297169298%_ + _%hd168349168379%_ + _%hd168323168416%_) (let () (declare (not safe)) - (_%g167028167068%_))))) + (_%g168315168355%_))))) (let () (declare (not safe)) - (_%g167028167068%_)))))) + (_%g168315168355%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167037167131%_)) - (let ((_%e167061167089%_ + (gx#stx-pair? _%tl168324168418%_)) + (let ((_%e168348168376%_ (let () (declare (not safe)) - (gx#stx-e _%tl167037167131%_)))) - (let ((_%tl167063167094%_ + (gx#stx-e _%tl168324168418%_)))) + (let ((_%tl168350168381%_ (let () (declare (not safe)) - (##cdr _%e167061167089%_))) - (_%hd167062167092%_ + (##cdr _%e168348168376%_))) + (_%hd168349168379%_ (let () (declare (not safe)) - (##car _%e167061167089%_)))) + (##car _%e168348168376%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167063167094%_)) - (_%__kont168010168011%_ - _%hd167062167092%_ - _%hd167036167129%_) + _%tl168350168381%_)) + (_%__kont169297169298%_ + _%hd168349168379%_ + _%hd168323168416%_) (let () (declare (not safe)) - (_%g167028167068%_))))) + (_%g168315168355%_))))) (let () (declare (not safe)) - (_%g167028167068%_)))))) - (let () (declare (not safe)) (_%g167028167068%_))))) - (let () (declare (not safe)) (_%g167028167068%_)))))))) + (_%g168315168355%_)))))) + (let () (declare (not safe)) (_%g168315168355%_))))) + (let () (declare (not safe)) (_%g168315168355%_)))))))) (define gxc#collect-type-lambda% - (lambda (_%self166968%_ _%stx166969%_) - (let* ((_%g166971166985%_ - (lambda (_%g166972166982%_) + (lambda (_%self168255%_ _%stx168256%_) + (let* ((_%g168258168272%_ + (lambda (_%g168259168269%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g166972166982%_)))) - (_%g166970167021%_ - (lambda (_%g166972166988%_) + _%g168259168269%_)))) + (_%g168257168308%_ + (lambda (_%g168259168275%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166972166988%_)) - (let ((_%e166975166990%_ + (gx#stx-pair? _%g168259168275%_)) + (let ((_%e168262168277%_ (let () (declare (not safe)) - (gx#stx-e _%g166972166988%_)))) - (let ((_%hd166976166993%_ + (gx#stx-e _%g168259168275%_)))) + (let ((_%hd168263168280%_ (let () (declare (not safe)) - (##car _%e166975166990%_))) - (_%tl166977166995%_ + (##car _%e168262168277%_))) + (_%tl168264168282%_ (let () (declare (not safe)) - (##cdr _%e166975166990%_)))) + (##cdr _%e168262168277%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166977166995%_)) - (let ((_%e166978166998%_ + (gx#stx-pair? _%tl168264168282%_)) + (let ((_%e168265168285%_ (let () (declare (not safe)) - (gx#stx-e _%tl166977166995%_)))) - (let ((_%hd166979167001%_ + (gx#stx-e _%tl168264168282%_)))) + (let ((_%hd168266168288%_ (let () (declare (not safe)) - (##car _%e166978166998%_))) - (_%tl166980167003%_ + (##car _%e168265168285%_))) + (_%tl168267168290%_ (let () (declare (not safe)) - (##cdr _%e166978166998%_)))) - ((lambda (_%L167006%_ _%L167007%_) - (let ((__tmp170900 + (##cdr _%e168265168285%_)))) + ((lambda (_%L168293%_ _%L168294%_) + (let ((__tmp172187 (lambda () (gxc#collect-type-lambda-formals-tail - _%stx166969%_ - _%L167007%_) + _%stx168256%_ + _%L168294%_) (let () (declare (not safe)) (gxc#apply-body-lambda% - _%self166968%_ - _%stx166969%_)))) - (__tmp170899 + _%self168255%_ + _%stx168256%_)))) + (__tmp172186 (let () (declare (not safe)) (gxc#xform-let-locals - _%L167007%_)))) + _%L168294%_)))) (declare (not safe)) (__call-with-parameters - __tmp170900 + __tmp172187 gxc#current-compile-local-env - __tmp170899))) - _%tl166980167003%_ - _%hd166979167001%_))) - (_%g166971166985%_ _%g166972166988%_)))) - (_%g166971166985%_ _%g166972166988%_))))) - (_%g166970167021%_ _%stx166969%_)))) + __tmp172186))) + _%tl168267168290%_ + _%hd168266168288%_))) + (_%g168258168272%_ _%g168259168275%_)))) + (_%g168258168272%_ _%g168259168275%_))))) + (_%g168257168308%_ _%stx168256%_)))) (define gxc#collect-type-case-lambda% - (lambda (_%self166784%_ _%stx166785%_) - (let* ((_%g166787166815%_ - (lambda (_%g166788166812%_) + (lambda (_%self168071%_ _%stx168072%_) + (let* ((_%g168074168102%_ + (lambda (_%g168075168099%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g166788166812%_)))) - (_%g166786166965%_ - (lambda (_%g166788166818%_) + _%g168075168099%_)))) + (_%g168073168252%_ + (lambda (_%g168075168105%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166788166818%_)) - (let ((_%e166791166820%_ + (gx#stx-pair? _%g168075168105%_)) + (let ((_%e168078168107%_ (let () (declare (not safe)) - (gx#stx-e _%g166788166818%_)))) - (let ((_%hd166792166823%_ + (gx#stx-e _%g168075168105%_)))) + (let ((_%hd168079168110%_ (let () (declare (not safe)) - (##car _%e166791166820%_))) - (_%tl166793166825%_ + (##car _%e168078168107%_))) + (_%tl168080168112%_ (let () (declare (not safe)) - (##cdr _%e166791166820%_)))) + (##cdr _%e168078168107%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166793166825%_)) - (let ((_g170901_ + (gx#stx-pair/null? _%tl168080168112%_)) + (let ((_g172188_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166793166825%_ + _%tl168080168112%_ '0)))) (begin - (let ((_g170902_ + (let ((_g172189_ (let () (declare (not safe)) - (if (##values? _g170901_) - (##vector-length _g170901_) + (if (##values? _g172188_) + (##values-length _g172188_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170902_ 2))) + (##fx= _g172189_ 2))) (error "Context expects 2 values" - _g170902_))) - (let ((_%target166794166828%_ + _g172189_))) + (let ((_%target168081168115%_ (let () (declare (not safe)) - (##vector-ref _g170901_ 0))) - (_%tl166796166830%_ + (##values-ref _g172188_ 0))) + (_%tl168083168117%_ (let () (declare (not safe)) - (##vector-ref _g170901_ 1)))) + (##values-ref _g172188_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166796166830%_)) - (letrec ((_%loop166797166833%_ - (lambda (_%hd166795166836%_ - _%body166801166838%_ - _%hd166802166840%_) + (gx#stx-null? _%tl168083168117%_)) + (letrec ((_%loop168084168120%_ + (lambda (_%hd168082168123%_ + _%body168088168125%_ + _%hd168089168127%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd166795166836%_)) - (let ((_%e166798166843%_ + _%hd168082168123%_)) + (let ((_%e168085168130%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd166795166836%_)))) - (let ((_%lp-hd166799166846%_ + (gx#stx-e _%hd168082168123%_)))) + (let ((_%lp-hd168086168133%_ (let () (declare (not safe)) - (##car _%e166798166843%_))) - (_%lp-tl166800166848%_ + (##car _%e168085168130%_))) + (_%lp-tl168087168135%_ (let () (declare (not safe)) - (##cdr _%e166798166843%_)))) + (##cdr _%e168085168130%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd166799166846%_)) - (let ((_%e166805166851%_ + (gx#stx-pair? _%lp-hd168086168133%_)) + (let ((_%e168092168138%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd166799166846%_)))) - (let ((_%hd166806166854%_ + (gx#stx-e _%lp-hd168086168133%_)))) + (let ((_%hd168093168141%_ (let () (declare (not safe)) - (##car _%e166805166851%_))) - (_%tl166807166856%_ + (##car _%e168092168138%_))) + (_%tl168094168143%_ (let () (declare (not safe)) - (##cdr _%e166805166851%_)))) + (##cdr _%e168092168138%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166807166856%_)) - (let ((_%e166808166859%_ + (gx#stx-pair? _%tl168094168143%_)) + (let ((_%e168095168146%_ (let () (declare (not safe)) - (gx#stx-e _%tl166807166856%_)))) - (let ((_%hd166809166862%_ + (gx#stx-e _%tl168094168143%_)))) + (let ((_%hd168096168149%_ (let () (declare (not safe)) - (##car _%e166808166859%_))) - (_%tl166810166864%_ + (##car _%e168095168146%_))) + (_%tl168097168151%_ (let () (declare (not safe)) - (##cdr _%e166808166859%_)))) + (##cdr _%e168095168146%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166810166864%_)) - (_%loop166797166833%_ - _%lp-tl166800166848%_ - (cons _%hd166809166862%_ - _%body166801166838%_) - (cons _%hd166806166854%_ - _%hd166802166840%_)) - (_%g166787166815%_ - _%g166788166818%_)))) - (_%g166787166815%_ _%g166788166818%_)))) - (_%g166787166815%_ _%g166788166818%_)))) - (let ((_%body166803166867%_ (reverse _%body166801166838%_)) - (_%hd166804166869%_ (reverse _%hd166802166840%_))) - ((lambda (_%L166872%_ _%L166873%_) + (gx#stx-null? _%tl168097168151%_)) + (_%loop168084168120%_ + _%lp-tl168087168135%_ + (cons _%hd168096168149%_ + _%body168088168125%_) + (cons _%hd168093168141%_ + _%hd168089168127%_)) + (_%g168074168102%_ + _%g168075168105%_)))) + (_%g168074168102%_ _%g168075168105%_)))) + (_%g168074168102%_ _%g168075168105%_)))) + (let ((_%body168090168154%_ (reverse _%body168088168125%_)) + (_%hd168091168156%_ (reverse _%hd168089168127%_))) + ((lambda (_%L168159%_ _%L168160%_) (for-each - (lambda (_%g166887166889%_) + (lambda (_%g168174168176%_) (gxc#collect-type-lambda-formals-tail - _%stx166785%_ - _%g166887166889%_)) - (let ((__tmp170903 - (lambda (_%g166891166894%_ _%g166892166896%_) - (cons _%g166891166894%_ _%g166892166896%_)))) + _%stx168072%_ + _%g168174168176%_)) + (let ((__tmp172190 + (lambda (_%g168178168181%_ _%g168179168183%_) + (cons _%g168178168181%_ _%g168179168183%_)))) (declare (not safe)) - (__foldr1 __tmp170903 '() _%L166873%_))) + (__foldr1 __tmp172190 '() _%L168160%_))) (for-each - (lambda (_%clause166899%_) - (let* ((_%g166901166915%_ - (lambda (_%g166902166912%_) + (lambda (_%clause168186%_) + (let* ((_%g168188168202%_ + (lambda (_%g168189168199%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g166902166912%_)))) - (_%g166900166952%_ - (lambda (_%g166902166918%_) + _%g168189168199%_)))) + (_%g168187168239%_ + (lambda (_%g168189168205%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166902166918%_)) - (let ((_%e166905166920%_ + (gx#stx-pair? _%g168189168205%_)) + (let ((_%e168192168207%_ (let () (declare (not safe)) - (gx#stx-e _%g166902166918%_)))) - (let ((_%hd166906166923%_ + (gx#stx-e _%g168189168205%_)))) + (let ((_%hd168193168210%_ (let () (declare (not safe)) - (##car _%e166905166920%_))) - (_%tl166907166925%_ + (##car _%e168192168207%_))) + (_%tl168194168212%_ (let () (declare (not safe)) - (##cdr _%e166905166920%_)))) + (##cdr _%e168192168207%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166907166925%_)) - (let ((_%e166908166928%_ + _%tl168194168212%_)) + (let ((_%e168195168215%_ (let () (declare (not safe)) (gx#stx-e - _%tl166907166925%_)))) - (let ((_%hd166909166931%_ + _%tl168194168212%_)))) + (let ((_%hd168196168218%_ (let () (declare (not safe)) - (##car _%e166908166928%_))) - (_%tl166910166933%_ + (##car _%e168195168215%_))) + (_%tl168197168220%_ (let () (declare (not safe)) - (##cdr _%e166908166928%_)))) + (##cdr _%e168195168215%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166910166933%_)) - ((lambda (_%L166936%_ - _%L166937%_) - (let ((__tmp170905 + _%tl168197168220%_)) + ((lambda (_%L168223%_ + _%L168224%_) + (let ((__tmp172192 (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-body-case-lambda% - _%self166784%_ - _%stx166785%_)))) - (__tmp170904 + _%self168071%_ + _%stx168072%_)))) + (__tmp172191 (let () (declare (not safe)) - (gxc#xform-let-locals _%L166937%_)))) + (gxc#xform-let-locals _%L168224%_)))) (declare (not safe)) (__call-with-parameters - __tmp170905 + __tmp172192 gxc#current-compile-local-env - __tmp170904))) - _%hd166909166931%_ - _%hd166906166923%_) - (_%g166901166915%_ _%g166902166918%_)))) + __tmp172191))) + _%hd168196168218%_ + _%hd168193168210%_) + (_%g168188168202%_ _%g168189168205%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g166901166915%_ - _%g166902166918%_)))) - (_%g166901166915%_ _%g166902166918%_))))) - (_%g166900166952%_ _%clause166899%_))) + (_%g168188168202%_ + _%g168189168205%_)))) + (_%g168188168202%_ _%g168189168205%_))))) + (_%g168187168239%_ _%clause168186%_))) (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L166872%_ - _%L166873%_)) - (let ((__tmp170906 - (lambda (_%g166954166958%_ - _%g166955166960%_ - _%g166956166962%_) - (cons (cons _%g166955166960%_ - (cons _%g166954166958%_ '())) - _%g166956166962%_)))) + _%L168159%_ + _%L168160%_)) + (let ((__tmp172193 + (lambda (_%g168241168245%_ + _%g168242168247%_ + _%g168243168249%_) + (cons (cons _%g168242168247%_ + (cons _%g168241168245%_ '())) + _%g168243168249%_)))) (declare (not safe)) (__foldr2 - __tmp170906 + __tmp172193 '() - _%L166872%_ - _%L166873%_))))) - _%body166803166867%_ - _%hd166804166869%_)))))) + _%L168159%_ + _%L168160%_))))) + _%body168090168154%_ + _%hd168091168156%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop166797166833%_ - _%target166794166828%_ + (_%loop168084168120%_ + _%target168081168115%_ '() '())) - (_%g166787166815%_ - _%g166788166818%_))))) - (_%g166787166815%_ _%g166788166818%_)))) - (_%g166787166815%_ _%g166788166818%_))))) - (_%g166786166965%_ _%stx166785%_)))) + (_%g168074168102%_ + _%g168075168105%_))))) + (_%g168074168102%_ _%g168075168105%_)))) + (_%g168074168102%_ _%g168075168105%_))))) + (_%g168073168252%_ _%stx168072%_)))) (define gxc#collect-type-lambda-formals-tail - (lambda (_%stx166716%_ _%formals166717%_) - (let _%loop166719%_ ((_%rest166721%_ _%formals166717%_)) - (let* ((_%__stx168064168065%_ _%rest166721%_) - (_%g166725166736%_ + (lambda (_%stx168003%_ _%formals168004%_) + (let _%loop168006%_ ((_%rest168008%_ _%formals168004%_)) + (let* ((_%__stx169351169352%_ _%rest168008%_) + (_%g168012168023%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168064168065%_))))) - (let ((_%__kont168066168067%_ - (lambda (_%L166772%_) (_%loop166719%_ _%L166772%_))) - (_%__kont168068168069%_ - (lambda (_%L166748%_) - (let ((__tmp170908 + _%__stx169351169352%_))))) + (let ((_%__kont169353169354%_ + (lambda (_%L168059%_) (_%loop168006%_ _%L168059%_))) + (_%__kont169355169356%_ + (lambda (_%L168035%_) + (let ((__tmp172195 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166748%_))) - (__tmp170907 + (gxc#identifier-symbol _%L168035%_))) + (__tmp172194 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166716%_ + _%stx168003%_ 'list::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp170908 - __tmp170907 + __tmp172195 + __tmp172194 '#t)))) - (_%__kont168070168071%_ (lambda () '#!void))) - (let ((_%g166723166759%_ + (_%__kont169357169358%_ (lambda () '#!void))) + (let ((_%g168010168046%_ (lambda () - (let ((_%L166748%_ _%__stx168064168065%_)) + (let ((_%L168035%_ _%__stx169351169352%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L166748%_)) - (_%__kont168068168069%_ _%L166748%_) - (_%__kont168070168071%_)))))) + (gx#identifier? _%L168035%_)) + (_%__kont169355169356%_ _%L168035%_) + (_%__kont169357169358%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168064168065%_)) - (let ((_%e166728166764%_ + (gx#stx-pair? _%__stx169351169352%_)) + (let ((_%e168015168051%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168064168065%_)))) - (let ((_%tl166730166769%_ + (gx#stx-e _%__stx169351169352%_)))) + (let ((_%tl168017168056%_ (let () (declare (not safe)) - (##cdr _%e166728166764%_))) - (_%hd166729166767%_ + (##cdr _%e168015168051%_))) + (_%hd168016168054%_ (let () (declare (not safe)) - (##car _%e166728166764%_)))) - (_%__kont168066168067%_ _%tl166730166769%_))) - (let () (declare (not safe)) (_%g166723166759%_))))))))) + (##car _%e168015168051%_)))) + (_%__kont169353169354%_ _%tl168017168056%_))) + (let () (declare (not safe)) (_%g168010168046%_))))))))) (define gxc#collect-type-let-values%__% - (lambda (_%self166475%_ _%stx166476%_ _%expression-type166477%_) - (letrec ((_%collect-e166479%_ - (lambda (_%hd166648%_ _%expr166649%_) - (let* ((_%__stx168080168081%_ _%hd166648%_) - (_%g166652166662%_ + (lambda (_%self167762%_ _%stx167763%_ _%expression-type167764%_) + (letrec ((_%collect-e167766%_ + (lambda (_%hd167935%_ _%expr167936%_) + (let* ((_%__stx169367169368%_ _%hd167935%_) + (_%g167939167949%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168080168081%_))))) - (let ((_%__kont168082168083%_ - (lambda (_%L166682%_) - (let* ((_%sym166693%_ + _%__stx169367169368%_))))) + (let ((_%__kont169369169370%_ + (lambda (_%L167969%_) + (let* ((_%sym167980%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L166682%_))) - (_%type166694166696%_ - (_%expression-type166477%_ - _%expr166649%_))) - (if _%type166694166696%_ - (let ((_%type166699%_ - _%type166694166696%_)) + (gxc#identifier-symbol _%L167969%_))) + (_%type167981167983%_ + (_%expression-type167764%_ + _%expr167936%_))) + (if _%type167981167983%_ + (let ((_%type167986%_ + _%type167981167983%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type166699%_ + _%type167986%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp170909 + (let ((__tmp172196 (let () (declare (not safe)) (##unchecked-structure-ref - _%type166699%_ + _%type167986%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym166693%_ - __tmp170909)) - (let ((__tmp170910 + _%sym167980%_ + __tmp172196)) + (let ((__tmp172197 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166476%_ + _%stx167763%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166693%_ - __tmp170910 + _%sym167980%_ + __tmp172197 '#t))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166693%_ - _%type166699%_ + _%sym167980%_ + _%type167986%_ '#t)))) '#f)))) - (_%__kont168084168085%_ (lambda () '#!void))) - (let ((_%__match168093168094%_ - (lambda (_%e166655166674%_ - _%hd166656166677%_ - _%tl166657166679%_) - (let ((_%L166682%_ _%hd166656166677%_)) + (_%__kont169371169372%_ (lambda () '#!void))) + (let ((_%__match169380169381%_ + (lambda (_%e167942167961%_ + _%hd167943167964%_ + _%tl167944167966%_) + (let ((_%L167969%_ _%hd167943167964%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L166682%_)) - (_%__kont168082168083%_ _%L166682%_) - (_%__kont168084168085%_)))))) + (gx#identifier? _%L167969%_)) + (_%__kont169369169370%_ _%L167969%_) + (_%__kont169371169372%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168080168081%_)) - (let ((_%e166655166674%_ + (gx#stx-pair? _%__stx169367169368%_)) + (let ((_%e167942167961%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168080168081%_)))) - (let ((_%tl166657166679%_ + (gx#stx-e _%__stx169367169368%_)))) + (let ((_%tl167944167966%_ (let () (declare (not safe)) - (##cdr _%e166655166674%_))) - (_%hd166656166677%_ + (##cdr _%e167942167961%_))) + (_%hd167943167964%_ (let () (declare (not safe)) - (##car _%e166655166674%_)))) + (##car _%e167942167961%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166657166679%_)) - (_%__match168093168094%_ - _%e166655166674%_ - _%hd166656166677%_ - _%tl166657166679%_) - (_%__kont168084168085%_)))) - (_%__kont168084168085%_)))))))) - (let* ((_%g166481166516%_ - (lambda (_%g166482166513%_) + (gx#stx-null? _%tl167944167966%_)) + (_%__match169380169381%_ + _%e167942167961%_ + _%hd167943167964%_ + _%tl167944167966%_) + (_%__kont169371169372%_)))) + (_%__kont169371169372%_)))))))) + (let* ((_%g167768167803%_ + (lambda (_%g167769167800%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g166482166513%_)))) - (_%g166480166645%_ - (lambda (_%g166482166519%_) + _%g167769167800%_)))) + (_%g167767167932%_ + (lambda (_%g167769167806%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166482166519%_)) - (let ((_%e166486166521%_ + (gx#stx-pair? _%g167769167806%_)) + (let ((_%e167773167808%_ (let () (declare (not safe)) - (gx#stx-e _%g166482166519%_)))) - (let ((_%hd166487166524%_ + (gx#stx-e _%g167769167806%_)))) + (let ((_%hd167774167811%_ (let () (declare (not safe)) - (##car _%e166486166521%_))) - (_%tl166488166526%_ + (##car _%e167773167808%_))) + (_%tl167775167813%_ (let () (declare (not safe)) - (##cdr _%e166486166521%_)))) + (##cdr _%e167773167808%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166488166526%_)) - (let ((_%e166489166529%_ + (gx#stx-pair? _%tl167775167813%_)) + (let ((_%e167776167816%_ (let () (declare (not safe)) - (gx#stx-e _%tl166488166526%_)))) - (let ((_%hd166490166532%_ + (gx#stx-e _%tl167775167813%_)))) + (let ((_%hd167777167819%_ (let () (declare (not safe)) - (##car _%e166489166529%_))) - (_%tl166491166534%_ + (##car _%e167776167816%_))) + (_%tl167778167821%_ (let () (declare (not safe)) - (##cdr _%e166489166529%_)))) + (##cdr _%e167776167816%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd166490166532%_)) - (let ((_g170911_ + _%hd167777167819%_)) + (let ((_g172198_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd166490166532%_ + _%hd167777167819%_ '0)))) (begin - (let ((_g170912_ + (let ((_g172199_ (let () (declare (not safe)) - (if (##values? _g170911_) - (##vector-length - _g170911_) + (if (##values? _g172198_) + (##values-length + _g172198_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170912_ 2))) + (##fx= _g172199_ 2))) (error "Context expects 2 values" - _g170912_))) - (let ((_%target166492166537%_ + _g172199_))) + (let ((_%target167779167824%_ (let () (declare (not safe)) - (##vector-ref - _g170911_ + (##values-ref + _g172198_ 0))) - (_%tl166494166539%_ + (_%tl167781167826%_ (let () (declare (not safe)) - (##vector-ref - _g170911_ + (##values-ref + _g172198_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166494166539%_)) - (letrec ((_%loop166495166542%_ - (lambda (_%hd166493166545%_ + _%tl167781167826%_)) + (letrec ((_%loop167782167829%_ + (lambda (_%hd167780167832%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr166499166547%_ - _%hd166500166549%_) + _%expr167786167834%_ + _%hd167787167836%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166493166545%_)) - (let ((_%e166496166552%_ + (gx#stx-pair? _%hd167780167832%_)) + (let ((_%e167783167839%_ (let () (declare (not safe)) - (gx#stx-e _%hd166493166545%_)))) - (let ((_%lp-hd166497166555%_ + (gx#stx-e _%hd167780167832%_)))) + (let ((_%lp-hd167784167842%_ (let () (declare (not safe)) - (##car _%e166496166552%_))) - (_%lp-tl166498166557%_ + (##car _%e167783167839%_))) + (_%lp-tl167785167844%_ (let () (declare (not safe)) - (##cdr _%e166496166552%_)))) + (##cdr _%e167783167839%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd166497166555%_)) - (let ((_%e166506166560%_ + (gx#stx-pair? _%lp-hd167784167842%_)) + (let ((_%e167793167847%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd166497166555%_)))) - (let ((_%hd166507166563%_ + (gx#stx-e _%lp-hd167784167842%_)))) + (let ((_%hd167794167850%_ (let () (declare (not safe)) - (##car _%e166506166560%_))) - (_%tl166508166565%_ + (##car _%e167793167847%_))) + (_%tl167795167852%_ (let () (declare (not safe)) - (##cdr _%e166506166560%_)))) + (##cdr _%e167793167847%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166508166565%_)) - (let ((_%e166509166568%_ + (gx#stx-pair? _%tl167795167852%_)) + (let ((_%e167796167855%_ (let () (declare (not safe)) (gx#stx-e - _%tl166508166565%_)))) - (let ((_%hd166510166571%_ + _%tl167795167852%_)))) + (let ((_%hd167797167858%_ (let () (declare (not safe)) - (##car _%e166509166568%_))) - (_%tl166511166573%_ + (##car _%e167796167855%_))) + (_%tl167798167860%_ (let () (declare (not safe)) - (##cdr _%e166509166568%_)))) + (##cdr _%e167796167855%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166511166573%_)) - (_%loop166495166542%_ - _%lp-tl166498166557%_ - (cons _%hd166510166571%_ - _%expr166499166547%_) - (cons _%hd166507166563%_ - _%hd166500166549%_)) - (_%g166481166516%_ - _%g166482166519%_)))) - (_%g166481166516%_ - _%g166482166519%_)))) - (_%g166481166516%_ _%g166482166519%_)))) - (let ((_%expr166501166576%_ - (reverse _%expr166499166547%_)) - (_%hd166502166578%_ - (reverse _%hd166500166549%_))) + _%tl167798167860%_)) + (_%loop167782167829%_ + _%lp-tl167785167844%_ + (cons _%hd167797167858%_ + _%expr167786167834%_) + (cons _%hd167794167850%_ + _%hd167787167836%_)) + (_%g167768167803%_ + _%g167769167806%_)))) + (_%g167768167803%_ + _%g167769167806%_)))) + (_%g167768167803%_ _%g167769167806%_)))) + (let ((_%expr167788167863%_ + (reverse _%expr167786167834%_)) + (_%hd167789167865%_ + (reverse _%hd167787167836%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166491166534%_)) - (let ((_%e166503166581%_ + (gx#stx-pair? _%tl167778167821%_)) + (let ((_%e167790167868%_ (let () (declare (not safe)) - (gx#stx-e _%tl166491166534%_)))) - (let ((_%hd166504166584%_ + (gx#stx-e _%tl167778167821%_)))) + (let ((_%hd167791167871%_ (let () (declare (not safe)) - (##car _%e166503166581%_))) - (_%tl166505166586%_ + (##car _%e167790167868%_))) + (_%tl167792167873%_ (let () (declare (not safe)) - (##cdr _%e166503166581%_)))) + (##cdr _%e167790167868%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166505166586%_)) - ((lambda (_%L166589%_ - _%L166590%_ - _%L166591%_) + (gx#stx-null? _%tl167792167873%_)) + ((lambda (_%L167876%_ + _%L167877%_ + _%L167878%_) (for-each - _%collect-e166479%_ - (let ((__tmp170913 - (lambda (_%g166611166614%_ - _%g166612166616%_) - (cons _%g166611166614%_ - _%g166612166616%_)))) + _%collect-e167766%_ + (let ((__tmp172200 + (lambda (_%g167898167901%_ + _%g167899167903%_) + (cons _%g167898167901%_ + _%g167899167903%_)))) (declare (not safe)) (__foldr1 - __tmp170913 + __tmp172200 '() - _%L166591%_)) - (let ((__tmp170914 - (lambda (_%g166618166621%_ - _%g166619166623%_) - (cons _%g166618166621%_ - _%g166619166623%_)))) + _%L167878%_)) + (let ((__tmp172201 + (lambda (_%g167905167908%_ + _%g167906167910%_) + (cons _%g167905167908%_ + _%g167906167910%_)))) (declare (not safe)) (__foldr1 - __tmp170914 + __tmp172201 '() - _%L166590%_))) + _%L167877%_))) (for-each - (lambda (_%g166625166627%_) + (lambda (_%g167912167914%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166475%_ - _%g166625166627%_))) - (let ((__tmp170915 - (lambda (_%g166629166632%_ - _%g166630166634%_) - (cons _%g166629166632%_ - _%g166630166634%_)))) + _%self167762%_ + _%g167912167914%_))) + (let ((__tmp172202 + (lambda (_%g167916167919%_ + _%g167917167921%_) + (cons _%g167916167919%_ + _%g167917167921%_)))) (declare (not safe)) (__foldr1 - __tmp170915 + __tmp172202 '() - _%L166590%_))) - (let ((__tmp170919 + _%L167877%_))) + (let ((__tmp172206 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self166475%_ - _%L166589%_)))) - (__tmp170916 - (let ((__tmp170917 - (let ((__tmp170918 - (lambda (_%g166637166640%_ + _%self167762%_ + _%L167876%_)))) + (__tmp172203 + (let ((__tmp172204 + (let ((__tmp172205 + (lambda (_%g167924167927%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166638166642%_) - (cons _%g166637166640%_ _%g166638166642%_)))) + _%g167925167929%_) + (cons _%g167924167927%_ _%g167925167929%_)))) (declare (not safe)) - (__foldr1 __tmp170918 '() _%L166591%_)))) + (__foldr1 __tmp172205 '() _%L167878%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp170917)))) + __tmp172204)))) (declare (not safe)) (__call-with-parameters - __tmp170919 + __tmp172206 gxc#current-compile-local-env - __tmp170916))) - _%hd166504166584%_ - _%expr166501166576%_ - _%hd166502166578%_) - (_%g166481166516%_ - _%g166482166519%_)))) - (_%g166481166516%_ _%g166482166519%_))))))) + __tmp172203))) + _%hd167791167871%_ + _%expr167788167863%_ + _%hd167789167865%_) + (_%g167768167803%_ + _%g167769167806%_)))) + (_%g167768167803%_ _%g167769167806%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop166495166542%_ - _%target166492166537%_ + (_%loop167782167829%_ + _%target167779167824%_ '() '())) - (_%g166481166516%_ - _%g166482166519%_))))) - (_%g166481166516%_ - _%g166482166519%_)))) - (_%g166481166516%_ _%g166482166519%_)))) - (_%g166481166516%_ _%g166482166519%_))))) - (_%g166480166645%_ _%stx166476%_))))) + (_%g167768167803%_ + _%g167769167806%_))))) + (_%g167768167803%_ + _%g167769167806%_)))) + (_%g167768167803%_ _%g167769167806%_)))) + (_%g167768167803%_ _%g167769167806%_))))) + (_%g167767167932%_ _%stx167763%_))))) (define gxc#collect-type-let-values%__0 - (lambda (_%self166707%_ _%stx166708%_) - (let ((_%expression-type166710%_ gxc#apply-basic-expression-type)) + (lambda (_%self167994%_ _%stx167995%_) + (let ((_%expression-type167997%_ gxc#apply-basic-expression-type)) (gxc#collect-type-let-values%__% - _%self166707%_ - _%stx166708%_ - _%expression-type166710%_)))) + _%self167994%_ + _%stx167995%_ + _%expression-type167997%_)))) (define gxc#collect-type-let-values% - (lambda _g170921_ - (let ((_g170920_ (let () (declare (not safe)) (##length _g170921_)))) - (cond ((let () (declare (not safe)) (##fx= _g170920_ 2)) - (apply gxc#collect-type-let-values%__0 _g170921_)) - ((let () (declare (not safe)) (##fx= _g170920_ 3)) - (apply gxc#collect-type-let-values%__% _g170921_)) + (lambda _g172208_ + (let ((_g172207_ (let () (declare (not safe)) (##length _g172208_)))) + (cond ((let () (declare (not safe)) (##fx= _g172207_ 2)) + (apply gxc#collect-type-let-values%__0 _g172208_)) + ((let () (declare (not safe)) (##fx= _g172207_ 3)) + (apply gxc#collect-type-let-values%__% _g172208_)) (else (##raise-wrong-number-of-arguments-exception gxc#collect-type-let-values% - _g170921_)))))) + _g172208_)))))) (define gxc#collect-type-letrec-values%__% - (lambda (_%self166208%_ _%stx166209%_ _%expression-type166210%_) - (letrec ((_%collect-e166212%_ - (lambda (_%hd166406%_ _%expr166407%_) - (let* ((_%__stx168096168097%_ _%hd166406%_) - (_%g166410166420%_ + (lambda (_%self167495%_ _%stx167496%_ _%expression-type167497%_) + (letrec ((_%collect-e167499%_ + (lambda (_%hd167693%_ _%expr167694%_) + (let* ((_%__stx169383169384%_ _%hd167693%_) + (_%g167697167707%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168096168097%_))))) - (let ((_%__kont168098168099%_ - (lambda (_%L166440%_) - (let* ((_%sym166451%_ + _%__stx169383169384%_))))) + (let ((_%__kont169385169386%_ + (lambda (_%L167727%_) + (let* ((_%sym167738%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L166440%_))) - (_%type166452166454%_ - (_%expression-type166210%_ - _%expr166407%_))) - (if _%type166452166454%_ - (let ((_%type166457%_ - _%type166452166454%_)) + (gxc#identifier-symbol _%L167727%_))) + (_%type167739167741%_ + (_%expression-type167497%_ + _%expr167694%_))) + (if _%type167739167741%_ + (let ((_%type167744%_ + _%type167739167741%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type166457%_ + _%type167744%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp170922 + (let ((__tmp172209 (let () (declare (not safe)) (##unchecked-structure-ref - _%type166457%_ + _%type167744%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym166451%_ - __tmp170922)) - (let ((__tmp170923 + _%sym167738%_ + __tmp172209)) + (let ((__tmp172210 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166209%_ + _%stx167496%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166451%_ - __tmp170923 + _%sym167738%_ + __tmp172210 '#t))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166451%_ - _%type166457%_ + _%sym167738%_ + _%type167744%_ '#t)))) '#f)))) - (_%__kont168100168101%_ (lambda () '#!void))) - (let ((_%__match168109168110%_ - (lambda (_%e166413166432%_ - _%hd166414166435%_ - _%tl166415166437%_) - (let ((_%L166440%_ _%hd166414166435%_)) + (_%__kont169387169388%_ (lambda () '#!void))) + (let ((_%__match169396169397%_ + (lambda (_%e167700167719%_ + _%hd167701167722%_ + _%tl167702167724%_) + (let ((_%L167727%_ _%hd167701167722%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L166440%_)) - (_%__kont168098168099%_ _%L166440%_) - (_%__kont168100168101%_)))))) + (gx#identifier? _%L167727%_)) + (_%__kont169385169386%_ _%L167727%_) + (_%__kont169387169388%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168096168097%_)) - (let ((_%e166413166432%_ + (gx#stx-pair? _%__stx169383169384%_)) + (let ((_%e167700167719%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168096168097%_)))) - (let ((_%tl166415166437%_ + (gx#stx-e _%__stx169383169384%_)))) + (let ((_%tl167702167724%_ (let () (declare (not safe)) - (##cdr _%e166413166432%_))) - (_%hd166414166435%_ + (##cdr _%e167700167719%_))) + (_%hd167701167722%_ (let () (declare (not safe)) - (##car _%e166413166432%_)))) + (##car _%e167700167719%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166415166437%_)) - (_%__match168109168110%_ - _%e166413166432%_ - _%hd166414166435%_ - _%tl166415166437%_) - (_%__kont168100168101%_)))) - (_%__kont168100168101%_)))))))) - (let* ((_%g166214166249%_ - (lambda (_%g166215166246%_) + (gx#stx-null? _%tl167702167724%_)) + (_%__match169396169397%_ + _%e167700167719%_ + _%hd167701167722%_ + _%tl167702167724%_) + (_%__kont169387169388%_)))) + (_%__kont169387169388%_)))))))) + (let* ((_%g167501167536%_ + (lambda (_%g167502167533%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g166215166246%_)))) - (_%g166213166403%_ - (lambda (_%g166215166252%_) + _%g167502167533%_)))) + (_%g167500167690%_ + (lambda (_%g167502167539%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166215166252%_)) - (let ((_%e166219166254%_ + (gx#stx-pair? _%g167502167539%_)) + (let ((_%e167506167541%_ (let () (declare (not safe)) - (gx#stx-e _%g166215166252%_)))) - (let ((_%hd166220166257%_ + (gx#stx-e _%g167502167539%_)))) + (let ((_%hd167507167544%_ (let () (declare (not safe)) - (##car _%e166219166254%_))) - (_%tl166221166259%_ + (##car _%e167506167541%_))) + (_%tl167508167546%_ (let () (declare (not safe)) - (##cdr _%e166219166254%_)))) + (##cdr _%e167506167541%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166221166259%_)) - (let ((_%e166222166262%_ + (gx#stx-pair? _%tl167508167546%_)) + (let ((_%e167509167549%_ (let () (declare (not safe)) - (gx#stx-e _%tl166221166259%_)))) - (let ((_%hd166223166265%_ + (gx#stx-e _%tl167508167546%_)))) + (let ((_%hd167510167552%_ (let () (declare (not safe)) - (##car _%e166222166262%_))) - (_%tl166224166267%_ + (##car _%e167509167549%_))) + (_%tl167511167554%_ (let () (declare (not safe)) - (##cdr _%e166222166262%_)))) + (##cdr _%e167509167549%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd166223166265%_)) - (let ((_g170924_ + _%hd167510167552%_)) + (let ((_g172211_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd166223166265%_ + _%hd167510167552%_ '0)))) (begin - (let ((_g170925_ + (let ((_g172212_ (let () (declare (not safe)) - (if (##values? _g170924_) - (##vector-length - _g170924_) + (if (##values? _g172211_) + (##values-length + _g172211_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170925_ 2))) + (##fx= _g172212_ 2))) (error "Context expects 2 values" - _g170925_))) - (let ((_%target166225166270%_ + _g172212_))) + (let ((_%target167512167557%_ (let () (declare (not safe)) - (##vector-ref - _g170924_ + (##values-ref + _g172211_ 0))) - (_%tl166227166272%_ + (_%tl167514167559%_ (let () (declare (not safe)) - (##vector-ref - _g170924_ + (##values-ref + _g172211_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166227166272%_)) - (letrec ((_%loop166228166275%_ - (lambda (_%hd166226166278%_ + _%tl167514167559%_)) + (letrec ((_%loop167515167562%_ + (lambda (_%hd167513167565%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr166232166280%_ - _%hd166233166282%_) + _%expr167519167567%_ + _%hd167520167569%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166226166278%_)) - (let ((_%e166229166285%_ + (gx#stx-pair? _%hd167513167565%_)) + (let ((_%e167516167572%_ (let () (declare (not safe)) - (gx#stx-e _%hd166226166278%_)))) - (let ((_%lp-hd166230166288%_ + (gx#stx-e _%hd167513167565%_)))) + (let ((_%lp-hd167517167575%_ (let () (declare (not safe)) - (##car _%e166229166285%_))) - (_%lp-tl166231166290%_ + (##car _%e167516167572%_))) + (_%lp-tl167518167577%_ (let () (declare (not safe)) - (##cdr _%e166229166285%_)))) + (##cdr _%e167516167572%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd166230166288%_)) - (let ((_%e166239166293%_ + (gx#stx-pair? _%lp-hd167517167575%_)) + (let ((_%e167526167580%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd166230166288%_)))) - (let ((_%hd166240166296%_ + (gx#stx-e _%lp-hd167517167575%_)))) + (let ((_%hd167527167583%_ (let () (declare (not safe)) - (##car _%e166239166293%_))) - (_%tl166241166298%_ + (##car _%e167526167580%_))) + (_%tl167528167585%_ (let () (declare (not safe)) - (##cdr _%e166239166293%_)))) + (##cdr _%e167526167580%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166241166298%_)) - (let ((_%e166242166301%_ + (gx#stx-pair? _%tl167528167585%_)) + (let ((_%e167529167588%_ (let () (declare (not safe)) (gx#stx-e - _%tl166241166298%_)))) - (let ((_%hd166243166304%_ + _%tl167528167585%_)))) + (let ((_%hd167530167591%_ (let () (declare (not safe)) - (##car _%e166242166301%_))) - (_%tl166244166306%_ + (##car _%e167529167588%_))) + (_%tl167531167593%_ (let () (declare (not safe)) - (##cdr _%e166242166301%_)))) + (##cdr _%e167529167588%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166244166306%_)) - (_%loop166228166275%_ - _%lp-tl166231166290%_ - (cons _%hd166243166304%_ - _%expr166232166280%_) - (cons _%hd166240166296%_ - _%hd166233166282%_)) - (_%g166214166249%_ - _%g166215166252%_)))) - (_%g166214166249%_ - _%g166215166252%_)))) - (_%g166214166249%_ _%g166215166252%_)))) - (let ((_%expr166234166309%_ - (reverse _%expr166232166280%_)) - (_%hd166235166311%_ - (reverse _%hd166233166282%_))) + _%tl167531167593%_)) + (_%loop167515167562%_ + _%lp-tl167518167577%_ + (cons _%hd167530167591%_ + _%expr167519167567%_) + (cons _%hd167527167583%_ + _%hd167520167569%_)) + (_%g167501167536%_ + _%g167502167539%_)))) + (_%g167501167536%_ + _%g167502167539%_)))) + (_%g167501167536%_ _%g167502167539%_)))) + (let ((_%expr167521167596%_ + (reverse _%expr167519167567%_)) + (_%hd167522167598%_ + (reverse _%hd167520167569%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166224166267%_)) - (let ((_%e166236166314%_ + (gx#stx-pair? _%tl167511167554%_)) + (let ((_%e167523167601%_ (let () (declare (not safe)) - (gx#stx-e _%tl166224166267%_)))) - (let ((_%hd166237166317%_ + (gx#stx-e _%tl167511167554%_)))) + (let ((_%hd167524167604%_ (let () (declare (not safe)) - (##car _%e166236166314%_))) - (_%tl166238166319%_ + (##car _%e167523167601%_))) + (_%tl167525167606%_ (let () (declare (not safe)) - (##cdr _%e166236166314%_)))) + (##cdr _%e167523167601%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166238166319%_)) - ((lambda (_%L166322%_ - _%L166323%_ - _%L166324%_) - (let ((__tmp170929 + (gx#stx-null? _%tl167525167606%_)) + ((lambda (_%L167609%_ + _%L167610%_ + _%L167611%_) + (let ((__tmp172216 (lambda () (for-each - _%collect-e166212%_ - (let ((__tmp170930 - (lambda (_%g166345166348%_ + _%collect-e167499%_ + (let ((__tmp172217 + (lambda (_%g167632167635%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166346166350%_) - (cons _%g166345166348%_ _%g166346166350%_)))) + _%g167633167637%_) + (cons _%g167632167635%_ _%g167633167637%_)))) (declare (not safe)) - (__foldr1 __tmp170930 '() _%L166324%_)) + (__foldr1 __tmp172217 '() _%L167611%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp170931 - (lambda (_%g166352166355%_ + (let ((__tmp172218 + (lambda (_%g167639167642%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166353166357%_) - (cons _%g166352166355%_ _%g166353166357%_)))) + _%g167640167644%_) + (cons _%g167639167642%_ _%g167640167644%_)))) (declare (not safe)) - (__foldr1 __tmp170931 '() _%L166323%_))) + (__foldr1 __tmp172218 '() _%L167610%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g166359166361%_) + (lambda (_%g167646167648%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166208%_ - _%g166359166361%_))) - (let ((__tmp170932 - (lambda (_%g166363166366%_ + _%self167495%_ + _%g167646167648%_))) + (let ((__tmp172219 + (lambda (_%g167650167653%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166364166368%_) - (cons _%g166363166366%_ _%g166364166368%_)))) + _%g167651167655%_) + (cons _%g167650167653%_ _%g167651167655%_)))) (declare (not safe)) - (__foldr1 __tmp170932 '() _%L166323%_))) + (__foldr1 __tmp172219 '() _%L167610%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - _%collect-e166212%_ - (let ((__tmp170933 - (lambda (_%g166370166373%_ + _%collect-e167499%_ + (let ((__tmp172220 + (lambda (_%g167657167660%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166371166375%_) - (cons _%g166370166373%_ _%g166371166375%_)))) + _%g167658167662%_) + (cons _%g167657167660%_ _%g167658167662%_)))) (declare (not safe)) - (__foldr1 __tmp170933 '() _%L166324%_)) + (__foldr1 __tmp172220 '() _%L167611%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp170934 - (lambda (_%g166377166380%_ + (let ((__tmp172221 + (lambda (_%g167664167667%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166378166382%_) - (cons _%g166377166380%_ _%g166378166382%_)))) + _%g167665167669%_) + (cons _%g167664167667%_ _%g167665167669%_)))) (declare (not safe)) - (__foldr1 __tmp170934 '() _%L166323%_))) + (__foldr1 __tmp172221 '() _%L167610%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g166384166386%_) + (lambda (_%g167671167673%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166208%_ - _%g166384166386%_))) - (let ((__tmp170935 - (lambda (_%g166388166391%_ + _%self167495%_ + _%g167671167673%_))) + (let ((__tmp172222 + (lambda (_%g167675167678%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166389166393%_) - (cons _%g166388166391%_ _%g166389166393%_)))) + _%g167676167680%_) + (cons _%g167675167678%_ _%g167676167680%_)))) (declare (not safe)) - (__foldr1 __tmp170935 '() _%L166323%_))) + (__foldr1 __tmp172222 '() _%L167610%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self166208%_ - _%L166322%_)))) - (__tmp170926 - (let ((__tmp170927 - (let ((__tmp170928 - (lambda (_%g166395166398%_ + _%self167495%_ + _%L167609%_)))) + (__tmp172213 + (let ((__tmp172214 + (let ((__tmp172215 + (lambda (_%g167682167685%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166396166400%_) - (cons _%g166395166398%_ _%g166396166400%_)))) + _%g167683167687%_) + (cons _%g167682167685%_ _%g167683167687%_)))) (declare (not safe)) - (__foldr1 __tmp170928 '() _%L166324%_)))) + (__foldr1 __tmp172215 '() _%L167611%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp170927)))) + __tmp172214)))) (declare (not safe)) (__call-with-parameters - __tmp170929 + __tmp172216 gxc#current-compile-local-env - __tmp170926))) - _%hd166237166317%_ - _%expr166234166309%_ - _%hd166235166311%_) - (_%g166214166249%_ - _%g166215166252%_)))) - (_%g166214166249%_ _%g166215166252%_))))))) + __tmp172213))) + _%hd167524167604%_ + _%expr167521167596%_ + _%hd167522167598%_) + (_%g167501167536%_ + _%g167502167539%_)))) + (_%g167501167536%_ _%g167502167539%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop166228166275%_ - _%target166225166270%_ + (_%loop167515167562%_ + _%target167512167557%_ '() '())) - (_%g166214166249%_ - _%g166215166252%_))))) - (_%g166214166249%_ - _%g166215166252%_)))) - (_%g166214166249%_ _%g166215166252%_)))) - (_%g166214166249%_ _%g166215166252%_))))) - (_%g166213166403%_ _%stx166209%_))))) + (_%g167501167536%_ + _%g167502167539%_))))) + (_%g167501167536%_ + _%g167502167539%_)))) + (_%g167501167536%_ _%g167502167539%_)))) + (_%g167501167536%_ _%g167502167539%_))))) + (_%g167500167690%_ _%stx167496%_))))) (define gxc#collect-type-letrec-values%__0 - (lambda (_%self166465%_ _%stx166466%_) - (let ((_%expression-type166468%_ gxc#apply-basic-expression-type)) + (lambda (_%self167752%_ _%stx167753%_) + (let ((_%expression-type167755%_ gxc#apply-basic-expression-type)) (gxc#collect-type-letrec-values%__% - _%self166465%_ - _%stx166466%_ - _%expression-type166468%_)))) + _%self167752%_ + _%stx167753%_ + _%expression-type167755%_)))) (define gxc#collect-type-letrec-values% - (lambda _g170937_ - (let ((_g170936_ (let () (declare (not safe)) (##length _g170937_)))) - (cond ((let () (declare (not safe)) (##fx= _g170936_ 2)) - (apply gxc#collect-type-letrec-values%__0 _g170937_)) - ((let () (declare (not safe)) (##fx= _g170936_ 3)) - (apply gxc#collect-type-letrec-values%__% _g170937_)) + (lambda _g172224_ + (let ((_g172223_ (let () (declare (not safe)) (##length _g172224_)))) + (cond ((let () (declare (not safe)) (##fx= _g172223_ 2)) + (apply gxc#collect-type-letrec-values%__0 _g172224_)) + ((let () (declare (not safe)) (##fx= _g172223_ 3)) + (apply gxc#collect-type-letrec-values%__% _g172224_)) (else (##raise-wrong-number-of-arguments-exception gxc#collect-type-letrec-values% - _g170937_)))))) + _g172224_)))))) (define gxc#collect-top-level-type-let-values% - (lambda (_%self166204%_ _%stx166205%_) + (lambda (_%self167491%_ _%stx167492%_) (gxc#collect-type-let-values%__% - _%self166204%_ - _%stx166205%_ + _%self167491%_ + _%stx167492%_ gxc#apply-raw-expression-type))) (define gxc#collect-top-level-type-letrec-values% - (lambda (_%self166201%_ _%stx166202%_) + (lambda (_%self167488%_ _%stx167489%_) (gxc#collect-type-letrec-values%__% - _%self166201%_ - _%stx166202%_ + _%self167488%_ + _%stx167489%_ gxc#apply-raw-expression-type))) (define gxc#collect-top-level-type-call% - (lambda (_%self165688%_ _%stx165689%_) - (let* ((_%__stx168112168113%_ _%stx165689%_) - (_%g165693165808%_ + (lambda (_%self166975%_ _%stx166976%_) + (let* ((_%__stx169399169400%_ _%stx166976%_) + (_%g166980167095%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168112168113%_))))) - (let ((_%__kont168114168115%_ - (lambda (_%L166151%_ - _%L166152%_ - _%L166153%_ - _%L166154%_ - _%L166155%_) - (let ((__tmp170941 + _%__stx169399169400%_))))) + (let ((_%__kont169401169402%_ + (lambda (_%L167438%_ + _%L167439%_ + _%L167440%_ + _%L167441%_ + _%L167442%_) + (let ((__tmp172228 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166154%_))) - (__tmp170940 - (let () (declare (not safe)) (gx#stx-e _%L166153%_))) - (__tmp170939 + (gxc#identifier-symbol _%L167441%_))) + (__tmp172227 + (let () (declare (not safe)) (gx#stx-e _%L167440%_))) + (__tmp172226 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166152%_))) - (__tmp170938 + (gxc#identifier-symbol _%L167439%_))) + (__tmp172225 (let () (declare (not safe)) - (gx#stx-e _%L166151%_)))) + (gx#stx-e _%L167438%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp170941 - __tmp170940 - __tmp170939 - __tmp170938)))) - (_%__kont168116168117%_ - (lambda (_%L165979%_ _%L165980%_ _%L165981%_ _%L165982%_) - (let ((__tmp170944 + __tmp172228 + __tmp172227 + __tmp172226 + __tmp172225)))) + (_%__kont169403169404%_ + (lambda (_%L167266%_ _%L167267%_ _%L167268%_ _%L167269%_) + (let ((__tmp172231 (let () (declare (not safe)) - (gxc#identifier-symbol _%L165981%_))) - (__tmp170943 - (let () (declare (not safe)) (gx#stx-e _%L165980%_))) - (__tmp170942 + (gxc#identifier-symbol _%L167268%_))) + (__tmp172230 + (let () (declare (not safe)) (gx#stx-e _%L167267%_))) + (__tmp172229 (let () (declare (not safe)) - (gxc#identifier-symbol _%L165979%_)))) + (gxc#identifier-symbol _%L167266%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp170944 - __tmp170943 - __tmp170942 + __tmp172231 + __tmp172230 + __tmp172229 '#f)))) - (_%__kont168118168119%_ - (lambda (_%L165845%_) + (_%__kont169405169406%_ + (lambda (_%L167132%_) (for-each - (lambda (_%g165858165860%_) + (lambda (_%g167145167147%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165688%_ _%g165858165860%_))) - (let ((__tmp170945 - (lambda (_%g165862165865%_ _%g165863165867%_) - (cons _%g165862165865%_ _%g165863165867%_)))) + (gxc#compile-e__1 _%self166975%_ _%g167145167147%_))) + (let ((__tmp172232 + (lambda (_%g167149167152%_ _%g167150167154%_) + (cons _%g167149167152%_ _%g167150167154%_)))) (declare (not safe)) - (__foldr1 __tmp170945 '() _%L165845%_)))))) - (let* ((_%__match168369168370%_ - (lambda (_%e165792165813%_ - _%hd165793165816%_ - _%tl165794165818%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) - (letrec ((_%loop165798165826%_ - (lambda (_%hd165796165829%_ - _%expr165802165831%_) + (__foldr1 __tmp172232 '() _%L167132%_)))))) + (let* ((_%__match169656169657%_ + (lambda (_%e167079167100%_ + _%hd167080167103%_ + _%tl167081167105%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) + (letrec ((_%loop167085167113%_ + (lambda (_%hd167083167116%_ + _%expr167089167118%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165796165829%_)) - (let ((_%e165799165834%_ + (gx#stx-pair? _%hd167083167116%_)) + (let ((_%e167086167121%_ (let () (declare (not safe)) - (gx#stx-e _%hd165796165829%_)))) - (let ((_%lp-tl165801165839%_ + (gx#stx-e _%hd167083167116%_)))) + (let ((_%lp-tl167088167126%_ (let () (declare (not safe)) - (##cdr _%e165799165834%_))) - (_%lp-hd165800165837%_ + (##cdr _%e167086167121%_))) + (_%lp-hd167087167124%_ (let () (declare (not safe)) - (##car _%e165799165834%_)))) - (_%loop165798165826%_ - _%lp-tl165801165839%_ - (cons _%lp-hd165800165837%_ - _%expr165802165831%_)))) - (let ((_%expr165803165842%_ - (reverse _%expr165802165831%_))) - (_%__kont168118168119%_ - _%expr165803165842%_)))))) - (_%loop165798165826%_ _%target165795165821%_ '())))) - (_%__match168249168250%_ - (lambda (_%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%e165703166031%_ - _%hd165704166034%_ - _%tl165705166036%_ - _%e165706166039%_ - _%hd165707166042%_ - _%tl165708166044%_ - _%e165709166047%_ - _%hd165710166050%_ - _%tl165711166052%_ - _%e165712166055%_ - _%hd165713166058%_ - _%tl165714166060%_ - _%e165715166063%_ - _%hd165716166066%_ - _%tl165717166068%_ - _%e165718166071%_ - _%hd165719166074%_ - _%tl165720166076%_ - _%e165721166079%_ - _%hd165722166082%_ - _%tl165723166084%_ - _%e165724166087%_ - _%hd165725166090%_ - _%tl165726166092%_ - _%e165727166095%_ - _%hd165728166098%_ - _%tl165729166100%_ - _%e165730166103%_ - _%hd165731166106%_ - _%tl165732166108%_ - _%e165733166111%_ - _%hd165734166114%_ - _%tl165735166116%_ - _%e165736166119%_ - _%hd165737166122%_ - _%tl165738166124%_ - _%e165739166127%_ - _%hd165740166130%_ - _%tl165741166132%_ - _%e165742166135%_ - _%hd165743166138%_ - _%tl165744166140%_ - _%e165745166143%_ - _%hd165746166146%_ - _%tl165747166148%_) - (let ((_%L166151%_ _%hd165746166146%_) - (_%L166152%_ _%hd165737166122%_) - (_%L166153%_ _%hd165728166098%_) - (_%L166154%_ _%hd165719166074%_) - (_%L166155%_ _%hd165710166050%_)) + (##car _%e167086167121%_)))) + (_%loop167085167113%_ + _%lp-tl167088167126%_ + (cons _%lp-hd167087167124%_ + _%expr167089167118%_)))) + (let ((_%expr167090167129%_ + (reverse _%expr167089167118%_))) + (_%__kont169405169406%_ + _%expr167090167129%_)))))) + (_%loop167085167113%_ _%target167082167108%_ '())))) + (_%__match169536169537%_ + (lambda (_%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%e166990167318%_ + _%hd166991167321%_ + _%tl166992167323%_ + _%e166993167326%_ + _%hd166994167329%_ + _%tl166995167331%_ + _%e166996167334%_ + _%hd166997167337%_ + _%tl166998167339%_ + _%e166999167342%_ + _%hd167000167345%_ + _%tl167001167347%_ + _%e167002167350%_ + _%hd167003167353%_ + _%tl167004167355%_ + _%e167005167358%_ + _%hd167006167361%_ + _%tl167007167363%_ + _%e167008167366%_ + _%hd167009167369%_ + _%tl167010167371%_ + _%e167011167374%_ + _%hd167012167377%_ + _%tl167013167379%_ + _%e167014167382%_ + _%hd167015167385%_ + _%tl167016167387%_ + _%e167017167390%_ + _%hd167018167393%_ + _%tl167019167395%_ + _%e167020167398%_ + _%hd167021167401%_ + _%tl167022167403%_ + _%e167023167406%_ + _%hd167024167409%_ + _%tl167025167411%_ + _%e167026167414%_ + _%hd167027167417%_ + _%tl167028167419%_ + _%e167029167422%_ + _%hd167030167425%_ + _%tl167031167427%_ + _%e167032167430%_ + _%hd167033167433%_ + _%tl167034167435%_) + (let ((_%L167438%_ _%hd167033167433%_) + (_%L167439%_ _%hd167024167409%_) + (_%L167440%_ _%hd167015167385%_) + (_%L167441%_ _%hd167006167361%_) + (_%L167442%_ _%hd166997167337%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L166155%_ + _%L167442%_ 'bind-method!)) - (_%__kont168114168115%_ - _%L166151%_ - _%L166152%_ - _%L166153%_ - _%L166154%_ - _%L166155%_) + (_%__kont169401169402%_ + _%L167438%_ + _%L167439%_ + _%L167440%_ + _%L167441%_ + _%L167442%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))))) + (_%g166980167095%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168112168113%_)) - (let ((_%e165700166023%_ + (gx#stx-pair? _%__stx169399169400%_)) + (let ((_%e166987167310%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168112168113%_)))) - (let ((_%tl165702166028%_ + (gx#stx-e _%__stx169399169400%_)))) + (let ((_%tl166989167315%_ (let () (declare (not safe)) - (##cdr _%e165700166023%_))) - (_%hd165701166026%_ + (##cdr _%e166987167310%_))) + (_%hd166988167313%_ (let () (declare (not safe)) - (##car _%e165700166023%_)))) + (##car _%e166987167310%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165702166028%_)) - (let ((_%e165703166031%_ + (gx#stx-pair? _%tl166989167315%_)) + (let ((_%e166990167318%_ (let () (declare (not safe)) - (gx#stx-e _%tl165702166028%_)))) - (let ((_%tl165705166036%_ + (gx#stx-e _%tl166989167315%_)))) + (let ((_%tl166992167323%_ (let () (declare (not safe)) - (##cdr _%e165703166031%_))) - (_%hd165704166034%_ + (##cdr _%e166990167318%_))) + (_%hd166991167321%_ (let () (declare (not safe)) - (##car _%e165703166031%_)))) + (##car _%e166990167318%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165704166034%_)) - (let ((_%e165706166039%_ + (gx#stx-pair? _%hd166991167321%_)) + (let ((_%e166993167326%_ (let () (declare (not safe)) - (gx#stx-e _%hd165704166034%_)))) - (let ((_%tl165708166044%_ + (gx#stx-e _%hd166991167321%_)))) + (let ((_%tl166995167331%_ (let () (declare (not safe)) - (##cdr _%e165706166039%_))) - (_%hd165707166042%_ + (##cdr _%e166993167326%_))) + (_%hd166994167329%_ (let () (declare (not safe)) - (##car _%e165706166039%_)))) + (##car _%e166993167326%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd165707166042%_)) + _%hd166994167329%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd165707166042%_)) + _%hd166994167329%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165708166044%_)) - (let ((_%e165709166047%_ + _%tl166995167331%_)) + (let ((_%e166996167334%_ (let () (declare (not safe)) (gx#stx-e - _%tl165708166044%_)))) - (let ((_%tl165711166052%_ + _%tl166995167331%_)))) + (let ((_%tl166998167339%_ (let () (declare (not safe)) - (##cdr _%e165709166047%_))) - (_%hd165710166050%_ + (##cdr _%e166996167334%_))) + (_%hd166997167337%_ (let () (declare (not safe)) - (##car _%e165709166047%_)))) + (##car _%e166996167334%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165711166052%_)) + _%tl166998167339%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl165705166036%_)) - (let ((_%e165712166055%_ + (gx#stx-pair? _%tl166992167323%_)) + (let ((_%e166999167342%_ (let () (declare (not safe)) - (gx#stx-e _%tl165705166036%_)))) - (let ((_%tl165714166060%_ + (gx#stx-e _%tl166992167323%_)))) + (let ((_%tl167001167347%_ (let () (declare (not safe)) - (##cdr _%e165712166055%_))) - (_%hd165713166058%_ + (##cdr _%e166999167342%_))) + (_%hd167000167345%_ (let () (declare (not safe)) - (##car _%e165712166055%_)))) + (##car _%e166999167342%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165713166058%_)) - (let ((_%e165715166063%_ + (gx#stx-pair? _%hd167000167345%_)) + (let ((_%e167002167350%_ (let () (declare (not safe)) - (gx#stx-e _%hd165713166058%_)))) - (let ((_%tl165717166068%_ + (gx#stx-e _%hd167000167345%_)))) + (let ((_%tl167004167355%_ (let () (declare (not safe)) - (##cdr _%e165715166063%_))) - (_%hd165716166066%_ + (##cdr _%e167002167350%_))) + (_%hd167003167353%_ (let () (declare (not safe)) - (##car _%e165715166063%_)))) + (##car _%e167002167350%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165716166066%_)) + (gx#identifier? _%hd167003167353%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd165716166066%_)) + _%hd167003167353%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165717166068%_)) - (let ((_%e165718166071%_ + _%tl167004167355%_)) + (let ((_%e167005167358%_ (let () (declare (not safe)) (gx#stx-e - _%tl165717166068%_)))) - (let ((_%tl165720166076%_ + _%tl167004167355%_)))) + (let ((_%tl167007167363%_ (let () (declare (not safe)) - (##cdr _%e165718166071%_))) - (_%hd165719166074%_ + (##cdr _%e167005167358%_))) + (_%hd167006167361%_ (let () (declare (not safe)) - (##car _%e165718166071%_)))) + (##car _%e167005167358%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165720166076%_)) + _%tl167007167363%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165714166060%_)) - (let ((_%e165721166079%_ + _%tl167001167347%_)) + (let ((_%e167008167366%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl165714166060%_)))) - (let ((_%tl165723166084%_ + (gx#stx-e _%tl167001167347%_)))) + (let ((_%tl167010167371%_ (let () (declare (not safe)) - (##cdr _%e165721166079%_))) - (_%hd165722166082%_ + (##cdr _%e167008167366%_))) + (_%hd167009167369%_ (let () (declare (not safe)) - (##car _%e165721166079%_)))) + (##car _%e167008167366%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165722166082%_)) - (let ((_%e165724166087%_ + (gx#stx-pair? _%hd167009167369%_)) + (let ((_%e167011167374%_ (let () (declare (not safe)) - (gx#stx-e _%hd165722166082%_)))) - (let ((_%tl165726166092%_ + (gx#stx-e _%hd167009167369%_)))) + (let ((_%tl167013167379%_ (let () (declare (not safe)) - (##cdr _%e165724166087%_))) - (_%hd165725166090%_ + (##cdr _%e167011167374%_))) + (_%hd167012167377%_ (let () (declare (not safe)) - (##car _%e165724166087%_)))) + (##car _%e167011167374%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165725166090%_)) + (gx#identifier? _%hd167012167377%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd165725166090%_)) + _%hd167012167377%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165726166092%_)) - (let ((_%e165727166095%_ + (gx#stx-pair? _%tl167013167379%_)) + (let ((_%e167014167382%_ (let () (declare (not safe)) (gx#stx-e - _%tl165726166092%_)))) - (let ((_%tl165729166100%_ + _%tl167013167379%_)))) + (let ((_%tl167016167387%_ (let () (declare (not safe)) - (##cdr _%e165727166095%_))) - (_%hd165728166098%_ + (##cdr _%e167014167382%_))) + (_%hd167015167385%_ (let () (declare (not safe)) - (##car _%e165727166095%_)))) + (##car _%e167014167382%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165729166100%_)) + _%tl167016167387%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165723166084%_)) - (let ((_%e165730166103%_ + _%tl167010167371%_)) + (let ((_%e167017167390%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165723166084%_)))) - (let ((_%tl165732166108%_ - (let () (declare (not safe)) (##cdr _%e165730166103%_))) - (_%hd165731166106%_ + (gx#stx-e _%tl167010167371%_)))) + (let ((_%tl167019167395%_ + (let () (declare (not safe)) (##cdr _%e167017167390%_))) + (_%hd167018167393%_ (let () (declare (not safe)) - (##car _%e165730166103%_)))) + (##car _%e167017167390%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165731166106%_)) - (let ((_%e165733166111%_ + (gx#stx-pair? _%hd167018167393%_)) + (let ((_%e167020167398%_ (let () (declare (not safe)) - (gx#stx-e _%hd165731166106%_)))) - (let ((_%tl165735166116%_ + (gx#stx-e _%hd167018167393%_)))) + (let ((_%tl167022167403%_ (let () (declare (not safe)) - (##cdr _%e165733166111%_))) - (_%hd165734166114%_ + (##cdr _%e167020167398%_))) + (_%hd167021167401%_ (let () (declare (not safe)) - (##car _%e165733166111%_)))) + (##car _%e167020167398%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165734166114%_)) + (gx#identifier? _%hd167021167401%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd165734166114%_)) + (gx#stx-eq? '%#ref _%hd167021167401%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165735166116%_)) - (let ((_%e165736166119%_ + (gx#stx-pair? _%tl167022167403%_)) + (let ((_%e167023167406%_ (let () (declare (not safe)) - (gx#stx-e _%tl165735166116%_)))) - (let ((_%tl165738166124%_ + (gx#stx-e _%tl167022167403%_)))) + (let ((_%tl167025167411%_ (let () (declare (not safe)) - (##cdr _%e165736166119%_))) - (_%hd165737166122%_ + (##cdr _%e167023167406%_))) + (_%hd167024167409%_ (let () (declare (not safe)) - (##car _%e165736166119%_)))) + (##car _%e167023167406%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165738166124%_)) + _%tl167025167411%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165732166108%_)) - (let ((_%e165739166127%_ + _%tl167019167395%_)) + (let ((_%e167026167414%_ (let () (declare (not safe)) (gx#stx-e - _%tl165732166108%_)))) - (let ((_%tl165741166132%_ + _%tl167019167395%_)))) + (let ((_%tl167028167419%_ (let () (declare (not safe)) - (##cdr _%e165739166127%_))) - (_%hd165740166130%_ + (##cdr _%e167026167414%_))) + (_%hd167027167417%_ (let () (declare (not safe)) - (##car _%e165739166127%_)))) + (##car _%e167026167414%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165740166130%_)) - (let ((_%e165742166135%_ + _%hd167027167417%_)) + (let ((_%e167029167422%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd165740166130%_)))) - (let ((_%tl165744166140%_ + (gx#stx-e _%hd167027167417%_)))) + (let ((_%tl167031167427%_ (let () (declare (not safe)) - (##cdr _%e165742166135%_))) - (_%hd165743166138%_ + (##cdr _%e167029167422%_))) + (_%hd167030167425%_ (let () (declare (not safe)) - (##car _%e165742166135%_)))) + (##car _%e167029167422%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165743166138%_)) + (gx#identifier? _%hd167030167425%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd165743166138%_)) + (gx#stx-eq? '%#quote _%hd167030167425%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165744166140%_)) - (let ((_%e165745166143%_ + (gx#stx-pair? _%tl167031167427%_)) + (let ((_%e167032167430%_ (let () (declare (not safe)) - (gx#stx-e _%tl165744166140%_)))) - (let ((_%tl165747166148%_ + (gx#stx-e _%tl167031167427%_)))) + (let ((_%tl167034167435%_ (let () (declare (not safe)) - (##cdr _%e165745166143%_))) - (_%hd165746166146%_ + (##cdr _%e167032167430%_))) + (_%hd167033167433%_ (let () (declare (not safe)) - (##car _%e165745166143%_)))) + (##car _%e167032167430%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165747166148%_)) + (gx#stx-null? _%tl167034167435%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165741166132%_)) - (_%__match168249168250%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%e165703166031%_ - _%hd165704166034%_ - _%tl165705166036%_ - _%e165706166039%_ - _%hd165707166042%_ - _%tl165708166044%_ - _%e165709166047%_ - _%hd165710166050%_ - _%tl165711166052%_ - _%e165712166055%_ - _%hd165713166058%_ - _%tl165714166060%_ - _%e165715166063%_ - _%hd165716166066%_ - _%tl165717166068%_ - _%e165718166071%_ - _%hd165719166074%_ - _%tl165720166076%_ - _%e165721166079%_ - _%hd165722166082%_ - _%tl165723166084%_ - _%e165724166087%_ - _%hd165725166090%_ - _%tl165726166092%_ - _%e165727166095%_ - _%hd165728166098%_ - _%tl165729166100%_ - _%e165730166103%_ - _%hd165731166106%_ - _%tl165732166108%_ - _%e165733166111%_ - _%hd165734166114%_ - _%tl165735166116%_ - _%e165736166119%_ - _%hd165737166122%_ - _%tl165738166124%_ - _%e165739166127%_ - _%hd165740166130%_ - _%tl165741166132%_ - _%e165742166135%_ - _%hd165743166138%_ - _%tl165744166140%_ - _%e165745166143%_ - _%hd165746166146%_ - _%tl165747166148%_) + _%tl167028167419%_)) + (_%__match169536169537%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%e166990167318%_ + _%hd166991167321%_ + _%tl166992167323%_ + _%e166993167326%_ + _%hd166994167329%_ + _%tl166995167331%_ + _%e166996167334%_ + _%hd166997167337%_ + _%tl166998167339%_ + _%e166999167342%_ + _%hd167000167345%_ + _%tl167001167347%_ + _%e167002167350%_ + _%hd167003167353%_ + _%tl167004167355%_ + _%e167005167358%_ + _%hd167006167361%_ + _%tl167007167363%_ + _%e167008167366%_ + _%hd167009167369%_ + _%tl167010167371%_ + _%e167011167374%_ + _%hd167012167377%_ + _%tl167013167379%_ + _%e167014167382%_ + _%hd167015167385%_ + _%tl167016167387%_ + _%e167017167390%_ + _%hd167018167393%_ + _%tl167019167395%_ + _%e167020167398%_ + _%hd167021167401%_ + _%tl167022167403%_ + _%e167023167406%_ + _%hd167024167409%_ + _%tl167025167411%_ + _%e167026167414%_ + _%hd167027167417%_ + _%tl167028167419%_ + _%e167029167422%_ + _%hd167030167425%_ + _%tl167031167427%_ + _%e167032167430%_ + _%hd167033167433%_ + _%tl167034167435%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))))) + (_%g166980167095%_))))) + (let () (declare (not safe)) (_%g166980167095%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl165732166108%_)) - (if (let ((__tmp170946 + _%tl167019167395%_)) + (if (let ((__tmp172233 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp170946 'bind-method!)) - (let ((_%L165979%_ _%hd165737166122%_) - (_%L165980%_ _%hd165728166098%_) - (_%L165981%_ _%hd165719166074%_) - (_%L165982%_ _%hd165710166050%_)) - (_%__kont168116168117%_ - _%L165979%_ - _%L165980%_ - _%L165981%_ - _%L165982%_)) + (gxc#runtime-identifier=? __tmp172233 'bind-method!)) + (let ((_%L167266%_ _%hd167024167409%_) + (_%L167267%_ _%hd167015167385%_) + (_%L167268%_ _%hd167006167361%_) + (_%L167269%_ _%hd166997167337%_)) + (_%__kont169403169404%_ + _%L167266%_ + _%L167267%_ + _%L167268%_ + _%L167269%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))) + (_%g166980167095%_))))) + (let () (declare (not safe)) (_%g166980167095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl165702166028%_ '0)))) - (let ((_%tl165797165823%_ + (gx#syntax-split-splice _%tl166989167315%_ '0)))) + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) - (let () (declare (not safe)) (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_))))) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) + (let () (declare (not safe)) (_%g166980167095%_))))) + (let () (declare (not safe)) (_%g166980167095%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))))) + (_%g166980167095%_))))) + (let () (declare (not safe)) (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl165702166028%_ '0)))) - (let ((_%tl165797165823%_ + (gx#syntax-split-splice _%tl166989167315%_ '0)))) + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) - (let () (declare (not safe)) (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) + (let () (declare (not safe)) (_%g166980167095%_))))) + (let () (declare (not safe)) (_%g166980167095%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl165702166028%_ '0)))) - (let ((_%tl165797165823%_ + (gx#syntax-split-splice _%tl166989167315%_ '0)))) + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) - (let () (declare (not safe)) (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))))) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) + (let () (declare (not safe)) (_%g166980167095%_))))) + (let () (declare (not safe)) (_%g166980167095%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))) + (_%g166980167095%_))))) + (let () (declare (not safe)) (_%g166980167095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl165702166028%_ '0)))) - (let ((_%tl165797165823%_ + (gx#syntax-split-splice _%tl166989167315%_ '0)))) + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) - (let () (declare (not safe)) (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))))) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) + (let () (declare (not safe)) (_%g166980167095%_))))) + (let () (declare (not safe)) (_%g166980167095%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))) + (_%g166980167095%_))))) + (let () (declare (not safe)) (_%g166980167095%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))))) + (_%g166980167095%_))))) + (let () (declare (not safe)) (_%g166980167095%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl165702166028%_ '0)))) - (let ((_%tl165797165823%_ + (gx#syntax-split-splice _%tl166989167315%_ '0)))) + (let ((_%tl167084167110%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '1))) - (_%target165795165821%_ + (##vector-ref _%__splice169407169408%_ '1))) + (_%target167082167108%_ (let () (declare (not safe)) - (##vector-ref _%__splice168120168121%_ '0)))) + (##vector-ref _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) - (let () (declare (not safe)) (_%g165693165808%_))))) - (let () (declare (not safe)) (_%g165693165808%_)))) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) + (let () (declare (not safe)) (_%g166980167095%_))))) + (let () (declare (not safe)) (_%g166980167095%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))) + (_%g166980167095%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) + (_%g166980167095%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165702166028%_)) - (let ((_%__splice168120168121%_ + (gx#stx-pair/null? _%tl166989167315%_)) + (let ((_%__splice169407169408%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165702166028%_ + _%tl166989167315%_ '0)))) - (let ((_%tl165797165823%_ + (let ((_%tl167084167110%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '1))) - (_%target165795165821%_ + (_%target167082167108%_ (let () (declare (not safe)) (##vector-ref - _%__splice168120168121%_ + _%__splice169407169408%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165797165823%_)) - (_%__match168369168370%_ - _%e165700166023%_ - _%hd165701166026%_ - _%tl165702166028%_ - _%__splice168120168121%_ - _%target165795165821%_ - _%tl165797165823%_) + (gx#stx-null? _%tl167084167110%_)) + (_%__match169656169657%_ + _%e166987167310%_ + _%hd166988167313%_ + _%tl166989167315%_ + _%__splice169407169408%_ + _%target167082167108%_ + _%tl167084167110%_) (let () (declare (not safe)) - (_%g165693165808%_))))) + (_%g166980167095%_))))) (let () (declare (not safe)) - (_%g165693165808%_)))))) - (let () (declare (not safe)) (_%g165693165808%_)))))))) + (_%g166980167095%_)))))) + (let () (declare (not safe)) (_%g166980167095%_)))))))) (define gxc#collect-type-setq% - (lambda (_%self165611%_ _%stx165612%_) - (let* ((_%g165614165631%_ - (lambda (_%g165615165628%_) + (lambda (_%self166898%_ _%stx166899%_) + (let* ((_%g166901166918%_ + (lambda (_%g166902166915%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165615165628%_)))) - (_%g165613165685%_ - (lambda (_%g165615165634%_) + _%g166902166915%_)))) + (_%g166900166972%_ + (lambda (_%g166902166921%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165615165634%_)) - (let ((_%e165618165636%_ + (gx#stx-pair? _%g166902166921%_)) + (let ((_%e166905166923%_ (let () (declare (not safe)) - (gx#stx-e _%g165615165634%_)))) - (let ((_%hd165619165639%_ + (gx#stx-e _%g166902166921%_)))) + (let ((_%hd166906166926%_ (let () (declare (not safe)) - (##car _%e165618165636%_))) - (_%tl165620165641%_ + (##car _%e166905166923%_))) + (_%tl166907166928%_ (let () (declare (not safe)) - (##cdr _%e165618165636%_)))) + (##cdr _%e166905166923%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165620165641%_)) - (let ((_%e165621165644%_ + (gx#stx-pair? _%tl166907166928%_)) + (let ((_%e166908166931%_ (let () (declare (not safe)) - (gx#stx-e _%tl165620165641%_)))) - (let ((_%hd165622165647%_ + (gx#stx-e _%tl166907166928%_)))) + (let ((_%hd166909166934%_ (let () (declare (not safe)) - (##car _%e165621165644%_))) - (_%tl165623165649%_ + (##car _%e166908166931%_))) + (_%tl166910166936%_ (let () (declare (not safe)) - (##cdr _%e165621165644%_)))) + (##cdr _%e166908166931%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165623165649%_)) - (let ((_%e165624165652%_ + (gx#stx-pair? _%tl166910166936%_)) + (let ((_%e166911166939%_ (let () (declare (not safe)) - (gx#stx-e _%tl165623165649%_)))) - (let ((_%hd165625165655%_ + (gx#stx-e _%tl166910166936%_)))) + (let ((_%hd166912166942%_ (let () (declare (not safe)) - (##car _%e165624165652%_))) - (_%tl165626165657%_ + (##car _%e166911166939%_))) + (_%tl166913166944%_ (let () (declare (not safe)) - (##cdr _%e165624165652%_)))) + (##cdr _%e166911166939%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165626165657%_)) - ((lambda (_%L165660%_ - _%L165661%_) - (let* ((_%sym165676%_ + _%tl166913166944%_)) + ((lambda (_%L166947%_ + _%L166948%_) + (let* ((_%sym166963%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L165661%_))) - (_%bind-type165678%_ + _%L166948%_))) + (_%bind-type166965%_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _%sym165676%_))) - (_%expr-type165680%_ + _%sym166963%_))) + (_%expr-type166967%_ (gxc#apply-basic-expression-type - _%L165660%_)) - (_%reduced-type165682%_ + _%L166947%_)) + (_%reduced-type166969%_ (gxc#greatest-common-type - _%stx165612%_ - _%bind-type165678%_ - _%expr-type165680%_))) - (if _%reduced-type165682%_ - (let ((__tmp170947 - (memq _%sym165676%_ + _%stx166899%_ + _%bind-type166965%_ + _%expr-type166967%_))) + (if _%reduced-type166969%_ + (let ((__tmp172234 + (memq _%sym166963%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#current-compile-local-env))))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165676%_ - _%reduced-type165682%_ - __tmp170947)) + _%sym166963%_ + _%reduced-type166969%_ + __tmp172234)) '#!void) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self165611%_ - _%L165660%_)))) - _%hd165625165655%_ - _%hd165622165647%_) - (_%g165614165631%_ - _%g165615165634%_)))) - (_%g165614165631%_ _%g165615165634%_)))) - (_%g165614165631%_ _%g165615165634%_)))) - (_%g165614165631%_ _%g165615165634%_))))) - (_%g165613165685%_ _%stx165612%_)))) + _%self166898%_ + _%L166947%_)))) + _%hd166912166942%_ + _%hd166909166934%_) + (_%g166901166918%_ + _%g166902166921%_)))) + (_%g166901166918%_ _%g166902166921%_)))) + (_%g166901166918%_ _%g166902166921%_)))) + (_%g166901166918%_ _%g166902166921%_))))) + (_%g166900166972%_ _%stx166899%_)))) (define gxc#apply-path-type-if% - (lambda (_%self165211%_ _%stx165212%_) - (let* ((_%__stx168372168373%_ _%stx165212%_) - (_%g165216165305%_ + (lambda (_%self166498%_ _%stx166499%_) + (let* ((_%__stx169659169660%_ _%stx166499%_) + (_%g166503166592%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168372168373%_))))) - (let ((_%__kont168374168375%_ - (lambda (_%L165563%_ _%L165564%_ _%L165565%_ _%L165566%_) - (let ((_%$e165598%_ - (let ((__tmp170948 + _%__stx169659169660%_))))) + (let ((_%__kont169661169662%_ + (lambda (_%L166850%_ _%L166851%_ _%L166852%_ _%L166853%_) + (let ((_%$e166885%_ + (let ((__tmp172235 (let () (declare (not safe)) - (gxc#identifier-symbol _%L165566%_)))) + (gxc#identifier-symbol _%L166853%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp170948)))) - (if _%$e165598%_ - ((lambda (_%pred-type165601%_) + (gxc#optimizer-lookup-type __tmp172235)))) + (if _%$e166885%_ + ((lambda (_%pred-type166888%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type165601%_ + _%pred-type166888%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type165601%_ + _%pred-type166888%_ 'gxc#!primitive-predicate::t))) (begin - (let ((__tmp170951 + (let ((__tmp172238 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self165211%_ - _%L165564%_)))) - (__tmp170949 + _%self166498%_ + _%L166851%_)))) + (__tmp172236 (cons (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L165565%_)) - (let ((__tmp170950 + _%L166852%_)) + (let ((__tmp172237 (##structure-ref - _%pred-type165601%_ + _%pred-type166888%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx165212%_ - __tmp170950))) + _%stx166499%_ + __tmp172237))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) (declare (not safe)) (__call-with-parameters - __tmp170951 + __tmp172238 gxc#current-compile-path-type - __tmp170949)) + __tmp172236)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self165211%_ - _%L165563%_))) + _%self166498%_ + _%L166850%_))) (let () (declare (not safe)) (gxc#apply-operands - _%self165211%_ - _%stx165212%_)))) - _%$e165598%_) + _%self166498%_ + _%stx166499%_)))) + _%$e166885%_) (let () (declare (not safe)) (gxc#apply-operands - _%self165211%_ - _%stx165212%_)))))) - (_%__kont168376168377%_ - (lambda (_%L165439%_ _%L165440%_ _%L165441%_ _%L165442%_) + _%self166498%_ + _%stx166499%_)))))) + (_%__kont169663169664%_ + (lambda (_%L166726%_ _%L166727%_ _%L166728%_ _%L166729%_) (gxc#apply-path-type-if% - _%self165211%_ - (let ((__tmp170952 + _%self166498%_ + (let ((__tmp172239 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L165441%_ - (cons _%L165439%_ - (cons _%L165440%_ '())))))) + (cons _%L166728%_ + (cons _%L166726%_ + (cons _%L166727%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp170952 _%stx165212%_))))) - (_%__kont168378168379%_ - (lambda (_%L165342%_ _%L165343%_ _%L165344%_) + (gxc#xform-wrap-source __tmp172239 _%stx166499%_))))) + (_%__kont169665169666%_ + (lambda (_%L166629%_ _%L166630%_ _%L166631%_) (let () (declare (not safe)) - (gxc#apply-operands _%self165211%_ _%stx165212%_))))) - (let ((_%__match168533168534%_ - (lambda (_%e165259165367%_ - _%hd165260165370%_ - _%tl165261165372%_ - _%e165262165375%_ - _%hd165263165378%_ - _%tl165264165380%_ - _%e165265165383%_ - _%hd165266165386%_ - _%tl165267165388%_ - _%e165268165391%_ - _%hd165269165394%_ - _%tl165270165396%_ - _%e165271165399%_ - _%hd165272165402%_ - _%tl165273165404%_ - _%e165274165407%_ - _%hd165275165410%_ - _%tl165276165412%_ - _%e165277165415%_ - _%hd165278165418%_ - _%tl165279165420%_ - _%e165280165423%_ - _%hd165281165426%_ - _%tl165282165428%_ - _%e165283165431%_ - _%hd165284165434%_ - _%tl165285165436%_) - (let ((_%L165439%_ _%hd165284165434%_) - (_%L165440%_ _%hd165281165426%_) - (_%L165441%_ _%hd165278165418%_) - (_%L165442%_ _%hd165275165410%_)) + (gxc#apply-operands _%self166498%_ _%stx166499%_))))) + (let ((_%__match169820169821%_ + (lambda (_%e166546166654%_ + _%hd166547166657%_ + _%tl166548166659%_ + _%e166549166662%_ + _%hd166550166665%_ + _%tl166551166667%_ + _%e166552166670%_ + _%hd166553166673%_ + _%tl166554166675%_ + _%e166555166678%_ + _%hd166556166681%_ + _%tl166557166683%_ + _%e166558166686%_ + _%hd166559166689%_ + _%tl166560166691%_ + _%e166561166694%_ + _%hd166562166697%_ + _%tl166563166699%_ + _%e166564166702%_ + _%hd166565166705%_ + _%tl166566166707%_ + _%e166567166710%_ + _%hd166568166713%_ + _%tl166569166715%_ + _%e166570166718%_ + _%hd166571166721%_ + _%tl166572166723%_) + (let ((_%L166726%_ _%hd166571166721%_) + (_%L166727%_ _%hd166568166713%_) + (_%L166728%_ _%hd166565166705%_) + (_%L166729%_ _%hd166562166697%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L165442%_ 'not)) - (_%__kont168376168377%_ - _%L165439%_ - _%L165440%_ - _%L165441%_ - _%L165442%_) - (_%__kont168378168379%_ - _%hd165284165434%_ - _%hd165281165426%_ - _%hd165263165378%_)))))) + (gxc#runtime-identifier=? _%L166729%_ 'not)) + (_%__kont169663169664%_ + _%L166726%_ + _%L166727%_ + _%L166728%_ + _%L166729%_) + (_%__kont169665169666%_ + _%hd166571166721%_ + _%hd166568166713%_ + _%hd166550166665%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168372168373%_)) - (let ((_%e165222165475%_ + (gx#stx-pair? _%__stx169659169660%_)) + (let ((_%e166509166762%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168372168373%_)))) - (let ((_%tl165224165480%_ + (gx#stx-e _%__stx169659169660%_)))) + (let ((_%tl166511166767%_ (let () (declare (not safe)) - (##cdr _%e165222165475%_))) - (_%hd165223165478%_ + (##cdr _%e166509166762%_))) + (_%hd166510166765%_ (let () (declare (not safe)) - (##car _%e165222165475%_)))) + (##car _%e166509166762%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165224165480%_)) - (let ((_%e165225165483%_ + (gx#stx-pair? _%tl166511166767%_)) + (let ((_%e166512166770%_ (let () (declare (not safe)) - (gx#stx-e _%tl165224165480%_)))) - (let ((_%tl165227165488%_ + (gx#stx-e _%tl166511166767%_)))) + (let ((_%tl166514166775%_ (let () (declare (not safe)) - (##cdr _%e165225165483%_))) - (_%hd165226165486%_ + (##cdr _%e166512166770%_))) + (_%hd166513166773%_ (let () (declare (not safe)) - (##car _%e165225165483%_)))) + (##car _%e166512166770%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165226165486%_)) - (let ((_%e165228165491%_ + (gx#stx-pair? _%hd166513166773%_)) + (let ((_%e166515166778%_ (let () (declare (not safe)) - (gx#stx-e _%hd165226165486%_)))) - (let ((_%tl165230165496%_ + (gx#stx-e _%hd166513166773%_)))) + (let ((_%tl166517166783%_ (let () (declare (not safe)) - (##cdr _%e165228165491%_))) - (_%hd165229165494%_ + (##cdr _%e166515166778%_))) + (_%hd166516166781%_ (let () (declare (not safe)) - (##car _%e165228165491%_)))) + (##car _%e166515166778%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd165229165494%_)) + _%hd166516166781%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd165229165494%_)) + _%hd166516166781%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165230165496%_)) - (let ((_%e165231165499%_ + _%tl166517166783%_)) + (let ((_%e166518166786%_ (let () (declare (not safe)) (gx#stx-e - _%tl165230165496%_)))) - (let ((_%tl165233165504%_ + _%tl166517166783%_)))) + (let ((_%tl166520166791%_ (let () (declare (not safe)) - (##cdr _%e165231165499%_))) - (_%hd165232165502%_ + (##cdr _%e166518166786%_))) + (_%hd166519166789%_ (let () (declare (not safe)) - (##car _%e165231165499%_)))) + (##car _%e166518166786%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165232165502%_)) - (let ((_%e165234165507%_ + _%hd166519166789%_)) + (let ((_%e166521166794%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd165232165502%_)))) - (let ((_%tl165236165512%_ + (gx#stx-e _%hd166519166789%_)))) + (let ((_%tl166523166799%_ (let () (declare (not safe)) - (##cdr _%e165234165507%_))) - (_%hd165235165510%_ + (##cdr _%e166521166794%_))) + (_%hd166522166797%_ (let () (declare (not safe)) - (##car _%e165234165507%_)))) + (##car _%e166521166794%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165235165510%_)) + (gx#identifier? _%hd166522166797%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd165235165510%_)) + (gx#stx-eq? '%#ref _%hd166522166797%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165236165512%_)) - (let ((_%e165237165515%_ + (gx#stx-pair? _%tl166523166799%_)) + (let ((_%e166524166802%_ (let () (declare (not safe)) - (gx#stx-e _%tl165236165512%_)))) - (let ((_%tl165239165520%_ + (gx#stx-e _%tl166523166799%_)))) + (let ((_%tl166526166807%_ (let () (declare (not safe)) - (##cdr _%e165237165515%_))) - (_%hd165238165518%_ + (##cdr _%e166524166802%_))) + (_%hd166525166805%_ (let () (declare (not safe)) - (##car _%e165237165515%_)))) + (##car _%e166524166802%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165239165520%_)) + (gx#stx-null? _%tl166526166807%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165233165504%_)) - (let ((_%e165240165523%_ + _%tl166520166791%_)) + (let ((_%e166527166810%_ (let () (declare (not safe)) (gx#stx-e - _%tl165233165504%_)))) - (let ((_%tl165242165528%_ + _%tl166520166791%_)))) + (let ((_%tl166529166815%_ (let () (declare (not safe)) - (##cdr _%e165240165523%_))) - (_%hd165241165526%_ + (##cdr _%e166527166810%_))) + (_%hd166528166813%_ (let () (declare (not safe)) - (##car _%e165240165523%_)))) + (##car _%e166527166810%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165241165526%_)) - (let ((_%e165243165531%_ + _%hd166528166813%_)) + (let ((_%e166530166818%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd165241165526%_)))) - (let ((_%tl165245165536%_ - (let () (declare (not safe)) (##cdr _%e165243165531%_))) - (_%hd165244165534%_ + (gx#stx-e _%hd166528166813%_)))) + (let ((_%tl166532166823%_ + (let () (declare (not safe)) (##cdr _%e166530166818%_))) + (_%hd166531166821%_ (let () (declare (not safe)) - (##car _%e165243165531%_)))) + (##car _%e166530166818%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165244165534%_)) + (gx#identifier? _%hd166531166821%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd165244165534%_)) + (gx#stx-eq? '%#ref _%hd166531166821%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165245165536%_)) - (let ((_%e165246165539%_ + (gx#stx-pair? _%tl166532166823%_)) + (let ((_%e166533166826%_ (let () (declare (not safe)) - (gx#stx-e _%tl165245165536%_)))) - (let ((_%tl165248165544%_ + (gx#stx-e _%tl166532166823%_)))) + (let ((_%tl166535166831%_ (let () (declare (not safe)) - (##cdr _%e165246165539%_))) - (_%hd165247165542%_ + (##cdr _%e166533166826%_))) + (_%hd166534166829%_ (let () (declare (not safe)) - (##car _%e165246165539%_)))) + (##car _%e166533166826%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165248165544%_)) + (gx#stx-null? _%tl166535166831%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165242165528%_)) + (gx#stx-null? _%tl166529166815%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165249165547%_ + _%tl166514166775%_)) + (let ((_%e166536166834%_ (let () (declare (not safe)) (gx#stx-e - _%tl165227165488%_)))) - (let ((_%tl165251165552%_ + _%tl166514166775%_)))) + (let ((_%tl166538166839%_ (let () (declare (not safe)) - (##cdr _%e165249165547%_))) - (_%hd165250165550%_ + (##cdr _%e166536166834%_))) + (_%hd166537166837%_ (let () (declare (not safe)) - (##car _%e165249165547%_)))) + (##car _%e166536166834%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165251165552%_)) - (let ((_%e165252165555%_ + _%tl166538166839%_)) + (let ((_%e166539166842%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165251165552%_)))) - (let ((_%tl165254165560%_ - (let () (declare (not safe)) (##cdr _%e165252165555%_))) - (_%hd165253165558%_ + (gx#stx-e _%tl166538166839%_)))) + (let ((_%tl166541166847%_ + (let () (declare (not safe)) (##cdr _%e166539166842%_))) + (_%hd166540166845%_ (let () (declare (not safe)) - (##car _%e165252165555%_)))) + (##car _%e166539166842%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165254165560%_)) - (_%__kont168374168375%_ - _%hd165253165558%_ - _%hd165250165550%_ - _%hd165247165542%_ - _%hd165238165518%_) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) + (gx#stx-null? _%tl166541166847%_)) + (_%__kont169661169662%_ + _%hd166540166845%_ + _%hd166537166837%_ + _%hd166534166829%_ + _%hd166525166805%_) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165216165305%_))) + (_%g166503166592%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165295165326%_ + _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) (gx#stx-e - _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ - (let () (declare (not safe)) (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ + (let () (declare (not safe)) (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165216165305%_)))) + (_%g166503166592%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165242165528%_)) + (gx#stx-null? _%tl166529166815%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165280165423%_ + _%tl166514166775%_)) + (let ((_%e166567166710%_ (let () (declare (not safe)) (gx#stx-e - _%tl165227165488%_)))) - (let ((_%tl165282165428%_ + _%tl166514166775%_)))) + (let ((_%tl166569166715%_ (let () (declare (not safe)) - (##cdr _%e165280165423%_))) - (_%hd165281165426%_ + (##cdr _%e166567166710%_))) + (_%hd166568166713%_ (let () (declare (not safe)) - (##car _%e165280165423%_)))) + (##car _%e166567166710%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165282165428%_)) - (let ((_%e165283165431%_ + _%tl166569166715%_)) + (let ((_%e166570166718%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165282165428%_)))) - (let ((_%tl165285165436%_ - (let () (declare (not safe)) (##cdr _%e165283165431%_))) - (_%hd165284165434%_ + (gx#stx-e _%tl166569166715%_)))) + (let ((_%tl166572166723%_ + (let () (declare (not safe)) (##cdr _%e166570166718%_))) + (_%hd166571166721%_ (let () (declare (not safe)) - (##car _%e165283165431%_)))) + (##car _%e166570166718%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165285165436%_)) - (_%__match168533168534%_ - _%e165222165475%_ - _%hd165223165478%_ - _%tl165224165480%_ - _%e165225165483%_ - _%hd165226165486%_ - _%tl165227165488%_ - _%e165228165491%_ - _%hd165229165494%_ - _%tl165230165496%_ - _%e165231165499%_ - _%hd165232165502%_ - _%tl165233165504%_ - _%e165234165507%_ - _%hd165235165510%_ - _%tl165236165512%_ - _%e165237165515%_ - _%hd165238165518%_ - _%tl165239165520%_ - _%e165240165523%_ - _%hd165241165526%_ - _%tl165242165528%_ - _%e165280165423%_ - _%hd165281165426%_ - _%tl165282165428%_ - _%e165283165431%_ - _%hd165284165434%_ - _%tl165285165436%_) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) + (gx#stx-null? _%tl166572166723%_)) + (_%__match169820169821%_ + _%e166509166762%_ + _%hd166510166765%_ + _%tl166511166767%_ + _%e166512166770%_ + _%hd166513166773%_ + _%tl166514166775%_ + _%e166515166778%_ + _%hd166516166781%_ + _%tl166517166783%_ + _%e166518166786%_ + _%hd166519166789%_ + _%tl166520166791%_ + _%e166521166794%_ + _%hd166522166797%_ + _%tl166523166799%_ + _%e166524166802%_ + _%hd166525166805%_ + _%tl166526166807%_ + _%e166527166810%_ + _%hd166528166813%_ + _%tl166529166815%_ + _%e166567166710%_ + _%hd166568166713%_ + _%tl166569166715%_ + _%e166570166718%_ + _%hd166571166721%_ + _%tl166572166723%_) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165216165305%_))) + (_%g166503166592%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165295165326%_ + _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) (gx#stx-e - _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ - (let () (declare (not safe)) (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ + (let () (declare (not safe)) (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165216165305%_))))))) + (_%g166503166592%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165242165528%_)) + (gx#stx-null? _%tl166529166815%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165280165423%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166567166710%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165282165428%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166569166715%_ (let () (declare (not safe)) - (##cdr _%e165280165423%_))) - (_%hd165281165426%_ + (##cdr _%e166567166710%_))) + (_%hd166568166713%_ (let () (declare (not safe)) - (##car _%e165280165423%_)))) + (##car _%e166567166710%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165282165428%_)) - (let ((_%e165283165431%_ + _%tl166569166715%_)) + (let ((_%e166570166718%_ (let () (declare (not safe)) (gx#stx-e - _%tl165282165428%_)))) - (let ((_%tl165285165436%_ + _%tl166569166715%_)))) + (let ((_%tl166572166723%_ (let () (declare (not safe)) - (##cdr _%e165283165431%_))) - (_%hd165284165434%_ + (##cdr _%e166570166718%_))) + (_%hd166571166721%_ (let () (declare (not safe)) - (##car _%e165283165431%_)))) + (##car _%e166570166718%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165285165436%_)) - (_%__match168533168534%_ - _%e165222165475%_ - _%hd165223165478%_ - _%tl165224165480%_ - _%e165225165483%_ - _%hd165226165486%_ - _%tl165227165488%_ - _%e165228165491%_ - _%hd165229165494%_ - _%tl165230165496%_ - _%e165231165499%_ - _%hd165232165502%_ - _%tl165233165504%_ - _%e165234165507%_ - _%hd165235165510%_ - _%tl165236165512%_ - _%e165237165515%_ - _%hd165238165518%_ - _%tl165239165520%_ - _%e165240165523%_ - _%hd165241165526%_ - _%tl165242165528%_ - _%e165280165423%_ - _%hd165281165426%_ - _%tl165282165428%_ - _%e165283165431%_ - _%hd165284165434%_ - _%tl165285165436%_) + _%tl166572166723%_)) + (_%__match169820169821%_ + _%e166509166762%_ + _%hd166510166765%_ + _%tl166511166767%_ + _%e166512166770%_ + _%hd166513166773%_ + _%tl166514166775%_ + _%e166515166778%_ + _%hd166516166781%_ + _%tl166517166783%_ + _%e166518166786%_ + _%hd166519166789%_ + _%tl166520166791%_ + _%e166521166794%_ + _%hd166522166797%_ + _%tl166523166799%_ + _%e166524166802%_ + _%hd166525166805%_ + _%tl166526166807%_ + _%e166527166810%_ + _%hd166528166813%_ + _%tl166529166815%_ + _%e166567166710%_ + _%hd166568166713%_ + _%tl166569166715%_ + _%e166570166718%_ + _%hd166571166721%_ + _%tl166572166723%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))) + (_%g166503166592%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) (gx#stx-e - _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165242165528%_)) + (gx#stx-null? _%tl166529166815%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165280165423%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166567166710%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165282165428%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166569166715%_ (let () (declare (not safe)) - (##cdr _%e165280165423%_))) - (_%hd165281165426%_ + (##cdr _%e166567166710%_))) + (_%hd166568166713%_ (let () (declare (not safe)) - (##car _%e165280165423%_)))) + (##car _%e166567166710%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165282165428%_)) - (let ((_%e165283165431%_ + (gx#stx-pair? _%tl166569166715%_)) + (let ((_%e166570166718%_ (let () (declare (not safe)) (gx#stx-e - _%tl165282165428%_)))) - (let ((_%tl165285165436%_ + _%tl166569166715%_)))) + (let ((_%tl166572166723%_ (let () (declare (not safe)) - (##cdr _%e165283165431%_))) - (_%hd165284165434%_ + (##cdr _%e166570166718%_))) + (_%hd166571166721%_ (let () (declare (not safe)) - (##car _%e165283165431%_)))) + (##car _%e166570166718%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165285165436%_)) - (_%__match168533168534%_ - _%e165222165475%_ - _%hd165223165478%_ - _%tl165224165480%_ - _%e165225165483%_ - _%hd165226165486%_ - _%tl165227165488%_ - _%e165228165491%_ - _%hd165229165494%_ - _%tl165230165496%_ - _%e165231165499%_ - _%hd165232165502%_ - _%tl165233165504%_ - _%e165234165507%_ - _%hd165235165510%_ - _%tl165236165512%_ - _%e165237165515%_ - _%hd165238165518%_ - _%tl165239165520%_ - _%e165240165523%_ - _%hd165241165526%_ - _%tl165242165528%_ - _%e165280165423%_ - _%hd165281165426%_ - _%tl165282165428%_ - _%e165283165431%_ - _%hd165284165434%_ - _%tl165285165436%_) + _%tl166572166723%_)) + (_%__match169820169821%_ + _%e166509166762%_ + _%hd166510166765%_ + _%tl166511166767%_ + _%e166512166770%_ + _%hd166513166773%_ + _%tl166514166775%_ + _%e166515166778%_ + _%hd166516166781%_ + _%tl166517166783%_ + _%e166518166786%_ + _%hd166519166789%_ + _%tl166520166791%_ + _%e166521166794%_ + _%hd166522166797%_ + _%tl166523166799%_ + _%e166524166802%_ + _%hd166525166805%_ + _%tl166526166807%_ + _%e166527166810%_ + _%hd166528166813%_ + _%tl166529166815%_ + _%e166567166710%_ + _%hd166568166713%_ + _%tl166569166715%_ + _%e166570166718%_ + _%hd166571166721%_ + _%tl166572166723%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))) + (_%g166503166592%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165297165331%_)) - (let ((_%e165298165334%_ + (gx#stx-pair? _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) (gx#stx-e - _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165242165528%_)) + (gx#stx-null? _%tl166529166815%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165280165423%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166567166710%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165282165428%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166569166715%_ (let () (declare (not safe)) - (##cdr _%e165280165423%_))) - (_%hd165281165426%_ + (##cdr _%e166567166710%_))) + (_%hd166568166713%_ (let () (declare (not safe)) - (##car _%e165280165423%_)))) + (##car _%e166567166710%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165282165428%_)) - (let ((_%e165283165431%_ + (gx#stx-pair? _%tl166569166715%_)) + (let ((_%e166570166718%_ (let () (declare (not safe)) - (gx#stx-e _%tl165282165428%_)))) - (let ((_%tl165285165436%_ + (gx#stx-e _%tl166569166715%_)))) + (let ((_%tl166572166723%_ (let () (declare (not safe)) - (##cdr _%e165283165431%_))) - (_%hd165284165434%_ + (##cdr _%e166570166718%_))) + (_%hd166571166721%_ (let () (declare (not safe)) - (##car _%e165283165431%_)))) + (##car _%e166570166718%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165285165436%_)) - (_%__match168533168534%_ - _%e165222165475%_ - _%hd165223165478%_ - _%tl165224165480%_ - _%e165225165483%_ - _%hd165226165486%_ - _%tl165227165488%_ - _%e165228165491%_ - _%hd165229165494%_ - _%tl165230165496%_ - _%e165231165499%_ - _%hd165232165502%_ - _%tl165233165504%_ - _%e165234165507%_ - _%hd165235165510%_ - _%tl165236165512%_ - _%e165237165515%_ - _%hd165238165518%_ - _%tl165239165520%_ - _%e165240165523%_ - _%hd165241165526%_ - _%tl165242165528%_ - _%e165280165423%_ - _%hd165281165426%_ - _%tl165282165428%_ - _%e165283165431%_ - _%hd165284165434%_ - _%tl165285165436%_) + _%tl166572166723%_)) + (_%__match169820169821%_ + _%e166509166762%_ + _%hd166510166765%_ + _%tl166511166767%_ + _%e166512166770%_ + _%hd166513166773%_ + _%tl166514166775%_ + _%e166515166778%_ + _%hd166516166781%_ + _%tl166517166783%_ + _%e166518166786%_ + _%hd166519166789%_ + _%tl166520166791%_ + _%e166521166794%_ + _%hd166522166797%_ + _%tl166523166799%_ + _%e166524166802%_ + _%hd166525166805%_ + _%tl166526166807%_ + _%e166527166810%_ + _%hd166528166813%_ + _%tl166529166815%_ + _%e166567166710%_ + _%hd166568166713%_ + _%tl166569166715%_ + _%e166570166718%_ + _%hd166571166721%_ + _%tl166572166723%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))) + (_%g166503166592%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165297165331%_)) - (let ((_%e165298165334%_ + (gx#stx-pair? _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))))) + (_%g166503166592%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165242165528%_)) + (gx#stx-null? _%tl166529166815%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165280165423%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166567166710%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165282165428%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166569166715%_ (let () (declare (not safe)) - (##cdr _%e165280165423%_))) - (_%hd165281165426%_ + (##cdr _%e166567166710%_))) + (_%hd166568166713%_ (let () (declare (not safe)) - (##car _%e165280165423%_)))) + (##car _%e166567166710%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165282165428%_)) - (let ((_%e165283165431%_ + (gx#stx-pair? _%tl166569166715%_)) + (let ((_%e166570166718%_ (let () (declare (not safe)) - (gx#stx-e _%tl165282165428%_)))) - (let ((_%tl165285165436%_ + (gx#stx-e _%tl166569166715%_)))) + (let ((_%tl166572166723%_ (let () (declare (not safe)) - (##cdr _%e165283165431%_))) - (_%hd165284165434%_ + (##cdr _%e166570166718%_))) + (_%hd166571166721%_ (let () (declare (not safe)) - (##car _%e165283165431%_)))) + (##car _%e166570166718%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165285165436%_)) - (_%__match168533168534%_ - _%e165222165475%_ - _%hd165223165478%_ - _%tl165224165480%_ - _%e165225165483%_ - _%hd165226165486%_ - _%tl165227165488%_ - _%e165228165491%_ - _%hd165229165494%_ - _%tl165230165496%_ - _%e165231165499%_ - _%hd165232165502%_ - _%tl165233165504%_ - _%e165234165507%_ - _%hd165235165510%_ - _%tl165236165512%_ - _%e165237165515%_ - _%hd165238165518%_ - _%tl165239165520%_ - _%e165240165523%_ - _%hd165241165526%_ - _%tl165242165528%_ - _%e165280165423%_ - _%hd165281165426%_ - _%tl165282165428%_ - _%e165283165431%_ - _%hd165284165434%_ - _%tl165285165436%_) + (gx#stx-null? _%tl166572166723%_)) + (_%__match169820169821%_ + _%e166509166762%_ + _%hd166510166765%_ + _%tl166511166767%_ + _%e166512166770%_ + _%hd166513166773%_ + _%tl166514166775%_ + _%e166515166778%_ + _%hd166516166781%_ + _%tl166517166783%_ + _%e166518166786%_ + _%hd166519166789%_ + _%tl166520166791%_ + _%e166521166794%_ + _%hd166522166797%_ + _%tl166523166799%_ + _%e166524166802%_ + _%hd166525166805%_ + _%tl166526166807%_ + _%e166527166810%_ + _%hd166528166813%_ + _%tl166529166815%_ + _%e166567166710%_ + _%hd166568166713%_ + _%tl166569166715%_ + _%e166570166718%_ + _%hd166571166721%_ + _%tl166572166723%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))) + (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165297165331%_)) - (let ((_%e165298165334%_ + (gx#stx-pair? _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))))) + (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165295165326%_ + _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) (gx#stx-e - _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165216165305%_)))) + (_%g166503166592%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165295165326%_ + _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) (gx#stx-e - _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ - (let () (declare (not safe)) (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ + (let () (declare (not safe)) (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165216165305%_)))))) + (_%g166503166592%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) (gx#stx-e - _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_)))) + (_%g166503166592%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165297165331%_)) - (let ((_%e165298165334%_ + (gx#stx-pair? _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) (gx#stx-e - _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_)))) + (_%g166503166592%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165297165331%_)) - (let ((_%e165298165334%_ + (gx#stx-pair? _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_)))))) + (_%g166503166592%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165297165331%_)) - (let ((_%e165298165334%_ + (gx#stx-pair? _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_)))))) + (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165295165326%_ + _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ - (let () (declare (not safe)) (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ + (let () (declare (not safe)) (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165297165331%_)) - (let ((_%e165298165334%_ + (gx#stx-pair? _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_)))) + (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165295165326%_ + _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) (gx#stx-e - _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165216165305%_)))) + (_%g166503166592%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165227165488%_)) - (let ((_%e165295165326%_ + _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) (gx#stx-e - _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165297165331%_)))) - (let ((_%tl165300165339%_ - (let () (declare (not safe)) (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (gx#stx-e _%tl166584166618%_)))) + (let ((_%tl166587166626%_ + (let () (declare (not safe)) (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_))))) + (gx#stx-null? _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165216165305%_)))))) + (_%g166503166592%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165227165488%_)) - (let ((_%e165295165326%_ + (gx#stx-pair? _%tl166514166775%_)) + (let ((_%e166582166613%_ (let () (declare (not safe)) - (gx#stx-e _%tl165227165488%_)))) - (let ((_%tl165297165331%_ + (gx#stx-e _%tl166514166775%_)))) + (let ((_%tl166584166618%_ (let () (declare (not safe)) - (##cdr _%e165295165326%_))) - (_%hd165296165329%_ + (##cdr _%e166582166613%_))) + (_%hd166583166616%_ (let () (declare (not safe)) - (##car _%e165295165326%_)))) + (##car _%e166582166613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165297165331%_)) - (let ((_%e165298165334%_ + _%tl166584166618%_)) + (let ((_%e166585166621%_ (let () (declare (not safe)) (gx#stx-e - _%tl165297165331%_)))) - (let ((_%tl165300165339%_ + _%tl166584166618%_)))) + (let ((_%tl166587166626%_ (let () (declare (not safe)) - (##cdr _%e165298165334%_))) - (_%hd165299165337%_ + (##cdr _%e166585166621%_))) + (_%hd166586166624%_ (let () (declare (not safe)) - (##car _%e165298165334%_)))) + (##car _%e166585166621%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165300165339%_)) - (_%__kont168378168379%_ - _%hd165299165337%_ - _%hd165296165329%_ - _%hd165226165486%_) + _%tl166587166626%_)) + (_%__kont169665169666%_ + _%hd166586166624%_ + _%hd166583166616%_ + _%hd166513166773%_) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_))))) + (_%g166503166592%_))))) (let () (declare (not safe)) - (_%g165216165305%_)))))) - (let () (declare (not safe)) (_%g165216165305%_))))) - (let () (declare (not safe)) (_%g165216165305%_)))))))) + (_%g166503166592%_)))))) + (let () (declare (not safe)) (_%g166503166592%_))))) + (let () (declare (not safe)) (_%g166503166592%_)))))))) (define gxc#refine-type-define-values% - (lambda (_%self165069%_ _%stx165070%_) - (let* ((_%__stx168562168563%_ _%stx165070%_) - (_%g165073165103%_ + (lambda (_%self166356%_ _%stx166357%_) + (let* ((_%__stx169849169850%_ _%stx166357%_) + (_%g166360166390%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168562168563%_))))) - (let ((_%__kont168564168565%_ - (lambda (_%L165183%_ _%L165184%_) - (let ((_%sym165200%_ + _%__stx169849169850%_))))) + (let ((_%__kont169851169852%_ + (lambda (_%L166470%_ _%L166471%_) + (let ((_%sym166487%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L165184%_)))) - (if (let ((__tmp170953 + (gxc#identifier-symbol _%L166471%_)))) + (if (let ((__tmp172240 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp170953 _%sym165200%_)) + (hash-get __tmp172240 _%sym166487%_)) '#!void - (let ((_%type165201165203%_ - (gxc#apply-basic-expression-type _%L165183%_))) - (if _%type165201165203%_ - (let ((_%type165206%_ _%type165201165203%_)) + (let ((_%type166488166490%_ + (gxc#apply-basic-expression-type _%L166470%_))) + (if _%type166488166490%_ + (let ((_%type166493%_ _%type166488166490%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type165206%_ + _%type166493%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym165200%_ - _%type165206%_)))) + _%sym166487%_ + _%type166493%_)))) '#f))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165069%_ _%L165183%_))))) - (_%__kont168566168567%_ - (lambda (_%L165132%_) + (gxc#compile-e__1 _%self166356%_ _%L166470%_))))) + (_%__kont169853169854%_ + (lambda (_%L166419%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165069%_ _%L165132%_))))) - (let ((_%__match168595168596%_ - (lambda (_%e165077165151%_ - _%hd165078165154%_ - _%tl165079165156%_ - _%e165080165159%_ - _%hd165081165162%_ - _%tl165082165164%_ - _%e165083165167%_ - _%hd165084165170%_ - _%tl165085165172%_ - _%e165086165175%_ - _%hd165087165178%_ - _%tl165088165180%_) - (let ((_%L165183%_ _%hd165087165178%_) - (_%L165184%_ _%hd165084165170%_)) + (gxc#compile-e__1 _%self166356%_ _%L166419%_))))) + (let ((_%__match169882169883%_ + (lambda (_%e166364166438%_ + _%hd166365166441%_ + _%tl166366166443%_ + _%e166367166446%_ + _%hd166368166449%_ + _%tl166369166451%_ + _%e166370166454%_ + _%hd166371166457%_ + _%tl166372166459%_ + _%e166373166462%_ + _%hd166374166465%_ + _%tl166375166467%_) + (let ((_%L166470%_ _%hd166374166465%_) + (_%L166471%_ _%hd166371166457%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165184%_)) - (_%__kont168564168565%_ _%L165183%_ _%L165184%_) - (_%__kont168566168567%_ _%hd165087165178%_)))))) + (gx#identifier? _%L166471%_)) + (_%__kont169851169852%_ _%L166470%_ _%L166471%_) + (_%__kont169853169854%_ _%hd166374166465%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168562168563%_)) - (let ((_%e165077165151%_ + (gx#stx-pair? _%__stx169849169850%_)) + (let ((_%e166364166438%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168562168563%_)))) - (let ((_%tl165079165156%_ + (gx#stx-e _%__stx169849169850%_)))) + (let ((_%tl166366166443%_ (let () (declare (not safe)) - (##cdr _%e165077165151%_))) - (_%hd165078165154%_ + (##cdr _%e166364166438%_))) + (_%hd166365166441%_ (let () (declare (not safe)) - (##car _%e165077165151%_)))) + (##car _%e166364166438%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165079165156%_)) - (let ((_%e165080165159%_ + (gx#stx-pair? _%tl166366166443%_)) + (let ((_%e166367166446%_ (let () (declare (not safe)) - (gx#stx-e _%tl165079165156%_)))) - (let ((_%tl165082165164%_ + (gx#stx-e _%tl166366166443%_)))) + (let ((_%tl166369166451%_ (let () (declare (not safe)) - (##cdr _%e165080165159%_))) - (_%hd165081165162%_ + (##cdr _%e166367166446%_))) + (_%hd166368166449%_ (let () (declare (not safe)) - (##car _%e165080165159%_)))) + (##car _%e166367166446%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165081165162%_)) - (let ((_%e165083165167%_ + (gx#stx-pair? _%hd166368166449%_)) + (let ((_%e166370166454%_ (let () (declare (not safe)) - (gx#stx-e _%hd165081165162%_)))) - (let ((_%tl165085165172%_ + (gx#stx-e _%hd166368166449%_)))) + (let ((_%tl166372166459%_ (let () (declare (not safe)) - (##cdr _%e165083165167%_))) - (_%hd165084165170%_ + (##cdr _%e166370166454%_))) + (_%hd166371166457%_ (let () (declare (not safe)) - (##car _%e165083165167%_)))) + (##car _%e166370166454%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165085165172%_)) + (gx#stx-null? _%tl166372166459%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165082165164%_)) - (let ((_%e165086165175%_ + _%tl166369166451%_)) + (let ((_%e166373166462%_ (let () (declare (not safe)) (gx#stx-e - _%tl165082165164%_)))) - (let ((_%tl165088165180%_ + _%tl166369166451%_)))) + (let ((_%tl166375166467%_ (let () (declare (not safe)) - (##cdr _%e165086165175%_))) - (_%hd165087165178%_ + (##cdr _%e166373166462%_))) + (_%hd166374166465%_ (let () (declare (not safe)) - (##car _%e165086165175%_)))) + (##car _%e166373166462%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165088165180%_)) - (_%__match168595168596%_ - _%e165077165151%_ - _%hd165078165154%_ - _%tl165079165156%_ - _%e165080165159%_ - _%hd165081165162%_ - _%tl165082165164%_ - _%e165083165167%_ - _%hd165084165170%_ - _%tl165085165172%_ - _%e165086165175%_ - _%hd165087165178%_ - _%tl165088165180%_) + _%tl166375166467%_)) + (_%__match169882169883%_ + _%e166364166438%_ + _%hd166365166441%_ + _%tl166366166443%_ + _%e166367166446%_ + _%hd166368166449%_ + _%tl166369166451%_ + _%e166370166454%_ + _%hd166371166457%_ + _%tl166372166459%_ + _%e166373166462%_ + _%hd166374166465%_ + _%tl166375166467%_) (let () (declare (not safe)) - (_%g165073165103%_))))) + (_%g166360166390%_))))) (let () (declare (not safe)) - (_%g165073165103%_))) + (_%g166360166390%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165082165164%_)) - (let ((_%e165096165124%_ + _%tl166369166451%_)) + (let ((_%e166383166411%_ (let () (declare (not safe)) (gx#stx-e - _%tl165082165164%_)))) - (let ((_%tl165098165129%_ + _%tl166369166451%_)))) + (let ((_%tl166385166416%_ (let () (declare (not safe)) - (##cdr _%e165096165124%_))) - (_%hd165097165127%_ + (##cdr _%e166383166411%_))) + (_%hd166384166414%_ (let () (declare (not safe)) - (##car _%e165096165124%_)))) + (##car _%e166383166411%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165098165129%_)) - (_%__kont168566168567%_ - _%hd165097165127%_) + _%tl166385166416%_)) + (_%__kont169853169854%_ + _%hd166384166414%_) (let () (declare (not safe)) - (_%g165073165103%_))))) + (_%g166360166390%_))))) (let () (declare (not safe)) - (_%g165073165103%_)))))) + (_%g166360166390%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165082165164%_)) - (let ((_%e165096165124%_ + (gx#stx-pair? _%tl166369166451%_)) + (let ((_%e166383166411%_ (let () (declare (not safe)) - (gx#stx-e _%tl165082165164%_)))) - (let ((_%tl165098165129%_ + (gx#stx-e _%tl166369166451%_)))) + (let ((_%tl166385166416%_ (let () (declare (not safe)) - (##cdr _%e165096165124%_))) - (_%hd165097165127%_ + (##cdr _%e166383166411%_))) + (_%hd166384166414%_ (let () (declare (not safe)) - (##car _%e165096165124%_)))) + (##car _%e166383166411%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165098165129%_)) - (_%__kont168566168567%_ - _%hd165097165127%_) + _%tl166385166416%_)) + (_%__kont169853169854%_ + _%hd166384166414%_) (let () (declare (not safe)) - (_%g165073165103%_))))) + (_%g166360166390%_))))) (let () (declare (not safe)) - (_%g165073165103%_)))))) - (let () (declare (not safe)) (_%g165073165103%_))))) - (let () (declare (not safe)) (_%g165073165103%_)))))))) + (_%g166360166390%_)))))) + (let () (declare (not safe)) (_%g166360166390%_))))) + (let () (declare (not safe)) (_%g166360166390%_)))))))) (define gxc#refine-type-let-values% - (lambda (_%self164841%_ _%stx164842%_) - (letrec ((_%collect-e164844%_ - (lambda (_%hd165013%_ _%expr165014%_) - (let* ((_%__stx168618168619%_ _%hd165013%_) - (_%g165017165027%_ + (lambda (_%self166128%_ _%stx166129%_) + (letrec ((_%collect-e166131%_ + (lambda (_%hd166300%_ _%expr166301%_) + (let* ((_%__stx169905169906%_ _%hd166300%_) + (_%g166304166314%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168618168619%_))))) - (let ((_%__kont168620168621%_ - (lambda (_%L165047%_) - (let ((_%sym165058%_ + _%__stx169905169906%_))))) + (let ((_%__kont169907169908%_ + (lambda (_%L166334%_) + (let ((_%sym166345%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L165047%_)))) - (if (let ((__tmp170954 + (gxc#identifier-symbol _%L166334%_)))) + (if (let ((__tmp172241 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp170954 _%sym165058%_)) + (hash-get __tmp172241 _%sym166345%_)) '#!void - (let ((_%type165059165061%_ + (let ((_%type166346166348%_ (gxc#apply-basic-expression-type - _%expr165014%_))) - (if _%type165059165061%_ - (let ((_%type165064%_ - _%type165059165061%_)) + _%expr166301%_))) + (if _%type166346166348%_ + (let ((_%type166351%_ + _%type166346166348%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type165064%_ + _%type166351%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165058%_ - _%type165064%_ + _%sym166345%_ + _%type166351%_ '#t)))) '#f)))))) - (_%__kont168622168623%_ (lambda () '#!void))) - (let ((_%__match168631168632%_ - (lambda (_%e165020165039%_ - _%hd165021165042%_ - _%tl165022165044%_) - (let ((_%L165047%_ _%hd165021165042%_)) + (_%__kont169909169910%_ (lambda () '#!void))) + (let ((_%__match169918169919%_ + (lambda (_%e166307166326%_ + _%hd166308166329%_ + _%tl166309166331%_) + (let ((_%L166334%_ _%hd166308166329%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165047%_)) - (_%__kont168620168621%_ _%L165047%_) - (_%__kont168622168623%_)))))) + (gx#identifier? _%L166334%_)) + (_%__kont169907169908%_ _%L166334%_) + (_%__kont169909169910%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168618168619%_)) - (let ((_%e165020165039%_ + (gx#stx-pair? _%__stx169905169906%_)) + (let ((_%e166307166326%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168618168619%_)))) - (let ((_%tl165022165044%_ + (gx#stx-e _%__stx169905169906%_)))) + (let ((_%tl166309166331%_ (let () (declare (not safe)) - (##cdr _%e165020165039%_))) - (_%hd165021165042%_ + (##cdr _%e166307166326%_))) + (_%hd166308166329%_ (let () (declare (not safe)) - (##car _%e165020165039%_)))) + (##car _%e166307166326%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165022165044%_)) - (_%__match168631168632%_ - _%e165020165039%_ - _%hd165021165042%_ - _%tl165022165044%_) - (_%__kont168622168623%_)))) - (_%__kont168622168623%_)))))))) - (let* ((_%g164846164881%_ - (lambda (_%g164847164878%_) + (gx#stx-null? _%tl166309166331%_)) + (_%__match169918169919%_ + _%e166307166326%_ + _%hd166308166329%_ + _%tl166309166331%_) + (_%__kont169909169910%_)))) + (_%__kont169909169910%_)))))))) + (let* ((_%g166133166168%_ + (lambda (_%g166134166165%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164847164878%_)))) - (_%g164845165010%_ - (lambda (_%g164847164884%_) + _%g166134166165%_)))) + (_%g166132166297%_ + (lambda (_%g166134166171%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164847164884%_)) - (let ((_%e164851164886%_ + (gx#stx-pair? _%g166134166171%_)) + (let ((_%e166138166173%_ (let () (declare (not safe)) - (gx#stx-e _%g164847164884%_)))) - (let ((_%hd164852164889%_ + (gx#stx-e _%g166134166171%_)))) + (let ((_%hd166139166176%_ (let () (declare (not safe)) - (##car _%e164851164886%_))) - (_%tl164853164891%_ + (##car _%e166138166173%_))) + (_%tl166140166178%_ (let () (declare (not safe)) - (##cdr _%e164851164886%_)))) + (##cdr _%e166138166173%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164853164891%_)) - (let ((_%e164854164894%_ + (gx#stx-pair? _%tl166140166178%_)) + (let ((_%e166141166181%_ (let () (declare (not safe)) - (gx#stx-e _%tl164853164891%_)))) - (let ((_%hd164855164897%_ + (gx#stx-e _%tl166140166178%_)))) + (let ((_%hd166142166184%_ (let () (declare (not safe)) - (##car _%e164854164894%_))) - (_%tl164856164899%_ + (##car _%e166141166181%_))) + (_%tl166143166186%_ (let () (declare (not safe)) - (##cdr _%e164854164894%_)))) + (##cdr _%e166141166181%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd164855164897%_)) - (let ((_g170955_ + _%hd166142166184%_)) + (let ((_g172242_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd164855164897%_ + _%hd166142166184%_ '0)))) (begin - (let ((_g170956_ + (let ((_g172243_ (let () (declare (not safe)) - (if (##values? _g170955_) - (##vector-length - _g170955_) + (if (##values? _g172242_) + (##values-length + _g172242_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170956_ 2))) + (##fx= _g172243_ 2))) (error "Context expects 2 values" - _g170956_))) - (let ((_%target164857164902%_ + _g172243_))) + (let ((_%target166144166189%_ (let () (declare (not safe)) - (##vector-ref - _g170955_ + (##values-ref + _g172242_ 0))) - (_%tl164859164904%_ + (_%tl166146166191%_ (let () (declare (not safe)) - (##vector-ref - _g170955_ + (##values-ref + _g172242_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164859164904%_)) - (letrec ((_%loop164860164907%_ - (lambda (_%hd164858164910%_ + _%tl166146166191%_)) + (letrec ((_%loop166147166194%_ + (lambda (_%hd166145166197%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr164864164912%_ - _%hd164865164914%_) + _%expr166151166199%_ + _%hd166152166201%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164858164910%_)) - (let ((_%e164861164917%_ + (gx#stx-pair? _%hd166145166197%_)) + (let ((_%e166148166204%_ (let () (declare (not safe)) - (gx#stx-e _%hd164858164910%_)))) - (let ((_%lp-hd164862164920%_ + (gx#stx-e _%hd166145166197%_)))) + (let ((_%lp-hd166149166207%_ (let () (declare (not safe)) - (##car _%e164861164917%_))) - (_%lp-tl164863164922%_ + (##car _%e166148166204%_))) + (_%lp-tl166150166209%_ (let () (declare (not safe)) - (##cdr _%e164861164917%_)))) + (##cdr _%e166148166204%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd164862164920%_)) - (let ((_%e164871164925%_ + (gx#stx-pair? _%lp-hd166149166207%_)) + (let ((_%e166158166212%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd164862164920%_)))) - (let ((_%hd164872164928%_ + (gx#stx-e _%lp-hd166149166207%_)))) + (let ((_%hd166159166215%_ (let () (declare (not safe)) - (##car _%e164871164925%_))) - (_%tl164873164930%_ + (##car _%e166158166212%_))) + (_%tl166160166217%_ (let () (declare (not safe)) - (##cdr _%e164871164925%_)))) + (##cdr _%e166158166212%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164873164930%_)) - (let ((_%e164874164933%_ + (gx#stx-pair? _%tl166160166217%_)) + (let ((_%e166161166220%_ (let () (declare (not safe)) (gx#stx-e - _%tl164873164930%_)))) - (let ((_%hd164875164936%_ + _%tl166160166217%_)))) + (let ((_%hd166162166223%_ (let () (declare (not safe)) - (##car _%e164874164933%_))) - (_%tl164876164938%_ + (##car _%e166161166220%_))) + (_%tl166163166225%_ (let () (declare (not safe)) - (##cdr _%e164874164933%_)))) + (##cdr _%e166161166220%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164876164938%_)) - (_%loop164860164907%_ - _%lp-tl164863164922%_ - (cons _%hd164875164936%_ - _%expr164864164912%_) - (cons _%hd164872164928%_ - _%hd164865164914%_)) - (_%g164846164881%_ - _%g164847164884%_)))) - (_%g164846164881%_ - _%g164847164884%_)))) - (_%g164846164881%_ _%g164847164884%_)))) - (let ((_%expr164866164941%_ - (reverse _%expr164864164912%_)) - (_%hd164867164943%_ - (reverse _%hd164865164914%_))) + _%tl166163166225%_)) + (_%loop166147166194%_ + _%lp-tl166150166209%_ + (cons _%hd166162166223%_ + _%expr166151166199%_) + (cons _%hd166159166215%_ + _%hd166152166201%_)) + (_%g166133166168%_ + _%g166134166171%_)))) + (_%g166133166168%_ + _%g166134166171%_)))) + (_%g166133166168%_ _%g166134166171%_)))) + (let ((_%expr166153166228%_ + (reverse _%expr166151166199%_)) + (_%hd166154166230%_ + (reverse _%hd166152166201%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164856164899%_)) - (let ((_%e164868164946%_ + (gx#stx-pair? _%tl166143166186%_)) + (let ((_%e166155166233%_ (let () (declare (not safe)) - (gx#stx-e _%tl164856164899%_)))) - (let ((_%hd164869164949%_ + (gx#stx-e _%tl166143166186%_)))) + (let ((_%hd166156166236%_ (let () (declare (not safe)) - (##car _%e164868164946%_))) - (_%tl164870164951%_ + (##car _%e166155166233%_))) + (_%tl166157166238%_ (let () (declare (not safe)) - (##cdr _%e164868164946%_)))) + (##cdr _%e166155166233%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164870164951%_)) - ((lambda (_%L164954%_ - _%L164955%_ - _%L164956%_) + (gx#stx-null? _%tl166157166238%_)) + ((lambda (_%L166241%_ + _%L166242%_ + _%L166243%_) (for-each - _%collect-e164844%_ - (let ((__tmp170957 - (lambda (_%g164976164979%_ - _%g164977164981%_) - (cons _%g164976164979%_ - _%g164977164981%_)))) + _%collect-e166131%_ + (let ((__tmp172244 + (lambda (_%g166263166266%_ + _%g166264166268%_) + (cons _%g166263166266%_ + _%g166264166268%_)))) (declare (not safe)) (__foldr1 - __tmp170957 + __tmp172244 '() - _%L164956%_)) - (let ((__tmp170958 - (lambda (_%g164983164986%_ - _%g164984164988%_) - (cons _%g164983164986%_ - _%g164984164988%_)))) + _%L166243%_)) + (let ((__tmp172245 + (lambda (_%g166270166273%_ + _%g166271166275%_) + (cons _%g166270166273%_ + _%g166271166275%_)))) (declare (not safe)) (__foldr1 - __tmp170958 + __tmp172245 '() - _%L164955%_))) + _%L166242%_))) (for-each - (lambda (_%g164990164992%_) + (lambda (_%g166277166279%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self164841%_ - _%g164990164992%_))) - (let ((__tmp170959 - (lambda (_%g164994164997%_ - _%g164995164999%_) - (cons _%g164994164997%_ - _%g164995164999%_)))) + _%self166128%_ + _%g166277166279%_))) + (let ((__tmp172246 + (lambda (_%g166281166284%_ + _%g166282166286%_) + (cons _%g166281166284%_ + _%g166282166286%_)))) (declare (not safe)) (__foldr1 - __tmp170959 + __tmp172246 '() - _%L164955%_))) - (let ((__tmp170963 + _%L166242%_))) + (let ((__tmp172250 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self164841%_ - _%L164954%_)))) - (__tmp170960 - (let ((__tmp170961 - (let ((__tmp170962 - (lambda (_%g165002165005%_ + _%self166128%_ + _%L166241%_)))) + (__tmp172247 + (let ((__tmp172248 + (let ((__tmp172249 + (lambda (_%g166289166292%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165003165007%_) - (cons _%g165002165005%_ _%g165003165007%_)))) + _%g166290166294%_) + (cons _%g166289166292%_ _%g166290166294%_)))) (declare (not safe)) - (__foldr1 __tmp170962 '() _%L164956%_)))) + (__foldr1 __tmp172249 '() _%L166243%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp170961)))) + __tmp172248)))) (declare (not safe)) (__call-with-parameters - __tmp170963 + __tmp172250 gxc#current-compile-local-env - __tmp170960))) - _%hd164869164949%_ - _%expr164866164941%_ - _%hd164867164943%_) - (_%g164846164881%_ - _%g164847164884%_)))) - (_%g164846164881%_ _%g164847164884%_))))))) + __tmp172247))) + _%hd166156166236%_ + _%expr166153166228%_ + _%hd166154166230%_) + (_%g166133166168%_ + _%g166134166171%_)))) + (_%g166133166168%_ _%g166134166171%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop164860164907%_ - _%target164857164902%_ + (_%loop166147166194%_ + _%target166144166189%_ '() '())) - (_%g164846164881%_ - _%g164847164884%_))))) - (_%g164846164881%_ - _%g164847164884%_)))) - (_%g164846164881%_ _%g164847164884%_)))) - (_%g164846164881%_ _%g164847164884%_))))) - (_%g164845165010%_ _%stx164842%_))))) + (_%g166133166168%_ + _%g166134166171%_))))) + (_%g166133166168%_ + _%g166134166171%_)))) + (_%g166133166168%_ _%g166134166171%_)))) + (_%g166133166168%_ _%g166134166171%_))))) + (_%g166132166297%_ _%stx166129%_))))) (define gxc#refine-type-letrec-values% - (lambda (_%self164613%_ _%stx164614%_) - (letrec ((_%collect-e164616%_ - (lambda (_%hd164785%_ _%expr164786%_) - (let* ((_%__stx168634168635%_ _%hd164785%_) - (_%g164789164799%_ + (lambda (_%self165900%_ _%stx165901%_) + (letrec ((_%collect-e165903%_ + (lambda (_%hd166072%_ _%expr166073%_) + (let* ((_%__stx169921169922%_ _%hd166072%_) + (_%g166076166086%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168634168635%_))))) - (let ((_%__kont168636168637%_ - (lambda (_%L164819%_) - (let ((_%sym164830%_ + _%__stx169921169922%_))))) + (let ((_%__kont169923169924%_ + (lambda (_%L166106%_) + (let ((_%sym166117%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L164819%_)))) - (if (let ((__tmp170964 + (gxc#identifier-symbol _%L166106%_)))) + (if (let ((__tmp172251 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp170964 _%sym164830%_)) + (hash-get __tmp172251 _%sym166117%_)) '#!void - (let ((_%type164831164833%_ + (let ((_%type166118166120%_ (gxc#apply-basic-expression-type - _%expr164786%_))) - (if _%type164831164833%_ - (let ((_%type164836%_ - _%type164831164833%_)) + _%expr166073%_))) + (if _%type166118166120%_ + (let ((_%type166123%_ + _%type166118166120%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type164836%_ + _%type166123%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym164830%_ - _%type164836%_ + _%sym166117%_ + _%type166123%_ '#t)))) '#f)))))) - (_%__kont168638168639%_ (lambda () '#!void))) - (let ((_%__match168647168648%_ - (lambda (_%e164792164811%_ - _%hd164793164814%_ - _%tl164794164816%_) - (let ((_%L164819%_ _%hd164793164814%_)) + (_%__kont169925169926%_ (lambda () '#!void))) + (let ((_%__match169934169935%_ + (lambda (_%e166079166098%_ + _%hd166080166101%_ + _%tl166081166103%_) + (let ((_%L166106%_ _%hd166080166101%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L164819%_)) - (_%__kont168636168637%_ _%L164819%_) - (_%__kont168638168639%_)))))) + (gx#identifier? _%L166106%_)) + (_%__kont169923169924%_ _%L166106%_) + (_%__kont169925169926%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168634168635%_)) - (let ((_%e164792164811%_ + (gx#stx-pair? _%__stx169921169922%_)) + (let ((_%e166079166098%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168634168635%_)))) - (let ((_%tl164794164816%_ + (gx#stx-e _%__stx169921169922%_)))) + (let ((_%tl166081166103%_ (let () (declare (not safe)) - (##cdr _%e164792164811%_))) - (_%hd164793164814%_ + (##cdr _%e166079166098%_))) + (_%hd166080166101%_ (let () (declare (not safe)) - (##car _%e164792164811%_)))) + (##car _%e166079166098%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164794164816%_)) - (_%__match168647168648%_ - _%e164792164811%_ - _%hd164793164814%_ - _%tl164794164816%_) - (_%__kont168638168639%_)))) - (_%__kont168638168639%_)))))))) - (let* ((_%g164618164653%_ - (lambda (_%g164619164650%_) + (gx#stx-null? _%tl166081166103%_)) + (_%__match169934169935%_ + _%e166079166098%_ + _%hd166080166101%_ + _%tl166081166103%_) + (_%__kont169925169926%_)))) + (_%__kont169925169926%_)))))))) + (let* ((_%g165905165940%_ + (lambda (_%g165906165937%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164619164650%_)))) - (_%g164617164782%_ - (lambda (_%g164619164656%_) + _%g165906165937%_)))) + (_%g165904166069%_ + (lambda (_%g165906165943%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164619164656%_)) - (let ((_%e164623164658%_ + (gx#stx-pair? _%g165906165943%_)) + (let ((_%e165910165945%_ (let () (declare (not safe)) - (gx#stx-e _%g164619164656%_)))) - (let ((_%hd164624164661%_ + (gx#stx-e _%g165906165943%_)))) + (let ((_%hd165911165948%_ (let () (declare (not safe)) - (##car _%e164623164658%_))) - (_%tl164625164663%_ + (##car _%e165910165945%_))) + (_%tl165912165950%_ (let () (declare (not safe)) - (##cdr _%e164623164658%_)))) + (##cdr _%e165910165945%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164625164663%_)) - (let ((_%e164626164666%_ + (gx#stx-pair? _%tl165912165950%_)) + (let ((_%e165913165953%_ (let () (declare (not safe)) - (gx#stx-e _%tl164625164663%_)))) - (let ((_%hd164627164669%_ + (gx#stx-e _%tl165912165950%_)))) + (let ((_%hd165914165956%_ (let () (declare (not safe)) - (##car _%e164626164666%_))) - (_%tl164628164671%_ + (##car _%e165913165953%_))) + (_%tl165915165958%_ (let () (declare (not safe)) - (##cdr _%e164626164666%_)))) + (##cdr _%e165913165953%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd164627164669%_)) - (let ((_g170965_ + _%hd165914165956%_)) + (let ((_g172252_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd164627164669%_ + _%hd165914165956%_ '0)))) (begin - (let ((_g170966_ + (let ((_g172253_ (let () (declare (not safe)) - (if (##values? _g170965_) - (##vector-length - _g170965_) + (if (##values? _g172252_) + (##values-length + _g172252_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170966_ 2))) + (##fx= _g172253_ 2))) (error "Context expects 2 values" - _g170966_))) - (let ((_%target164629164674%_ + _g172253_))) + (let ((_%target165916165961%_ (let () (declare (not safe)) - (##vector-ref - _g170965_ + (##values-ref + _g172252_ 0))) - (_%tl164631164676%_ + (_%tl165918165963%_ (let () (declare (not safe)) - (##vector-ref - _g170965_ + (##values-ref + _g172252_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164631164676%_)) - (letrec ((_%loop164632164679%_ - (lambda (_%hd164630164682%_ + _%tl165918165963%_)) + (letrec ((_%loop165919165966%_ + (lambda (_%hd165917165969%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr164636164684%_ - _%hd164637164686%_) + _%expr165923165971%_ + _%hd165924165973%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164630164682%_)) - (let ((_%e164633164689%_ + (gx#stx-pair? _%hd165917165969%_)) + (let ((_%e165920165976%_ (let () (declare (not safe)) - (gx#stx-e _%hd164630164682%_)))) - (let ((_%lp-hd164634164692%_ + (gx#stx-e _%hd165917165969%_)))) + (let ((_%lp-hd165921165979%_ (let () (declare (not safe)) - (##car _%e164633164689%_))) - (_%lp-tl164635164694%_ + (##car _%e165920165976%_))) + (_%lp-tl165922165981%_ (let () (declare (not safe)) - (##cdr _%e164633164689%_)))) + (##cdr _%e165920165976%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd164634164692%_)) - (let ((_%e164643164697%_ + (gx#stx-pair? _%lp-hd165921165979%_)) + (let ((_%e165930165984%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd164634164692%_)))) - (let ((_%hd164644164700%_ + (gx#stx-e _%lp-hd165921165979%_)))) + (let ((_%hd165931165987%_ (let () (declare (not safe)) - (##car _%e164643164697%_))) - (_%tl164645164702%_ + (##car _%e165930165984%_))) + (_%tl165932165989%_ (let () (declare (not safe)) - (##cdr _%e164643164697%_)))) + (##cdr _%e165930165984%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164645164702%_)) - (let ((_%e164646164705%_ + (gx#stx-pair? _%tl165932165989%_)) + (let ((_%e165933165992%_ (let () (declare (not safe)) (gx#stx-e - _%tl164645164702%_)))) - (let ((_%hd164647164708%_ + _%tl165932165989%_)))) + (let ((_%hd165934165995%_ (let () (declare (not safe)) - (##car _%e164646164705%_))) - (_%tl164648164710%_ + (##car _%e165933165992%_))) + (_%tl165935165997%_ (let () (declare (not safe)) - (##cdr _%e164646164705%_)))) + (##cdr _%e165933165992%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164648164710%_)) - (_%loop164632164679%_ - _%lp-tl164635164694%_ - (cons _%hd164647164708%_ - _%expr164636164684%_) - (cons _%hd164644164700%_ - _%hd164637164686%_)) - (_%g164618164653%_ - _%g164619164656%_)))) - (_%g164618164653%_ - _%g164619164656%_)))) - (_%g164618164653%_ _%g164619164656%_)))) - (let ((_%expr164638164713%_ - (reverse _%expr164636164684%_)) - (_%hd164639164715%_ - (reverse _%hd164637164686%_))) + _%tl165935165997%_)) + (_%loop165919165966%_ + _%lp-tl165922165981%_ + (cons _%hd165934165995%_ + _%expr165923165971%_) + (cons _%hd165931165987%_ + _%hd165924165973%_)) + (_%g165905165940%_ + _%g165906165943%_)))) + (_%g165905165940%_ + _%g165906165943%_)))) + (_%g165905165940%_ _%g165906165943%_)))) + (let ((_%expr165925166000%_ + (reverse _%expr165923165971%_)) + (_%hd165926166002%_ + (reverse _%hd165924165973%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164628164671%_)) - (let ((_%e164640164718%_ + (gx#stx-pair? _%tl165915165958%_)) + (let ((_%e165927166005%_ (let () (declare (not safe)) - (gx#stx-e _%tl164628164671%_)))) - (let ((_%hd164641164721%_ + (gx#stx-e _%tl165915165958%_)))) + (let ((_%hd165928166008%_ (let () (declare (not safe)) - (##car _%e164640164718%_))) - (_%tl164642164723%_ + (##car _%e165927166005%_))) + (_%tl165929166010%_ (let () (declare (not safe)) - (##cdr _%e164640164718%_)))) + (##cdr _%e165927166005%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164642164723%_)) - ((lambda (_%L164726%_ - _%L164727%_ - _%L164728%_) - (let ((__tmp170970 + (gx#stx-null? _%tl165929166010%_)) + ((lambda (_%L166013%_ + _%L166014%_ + _%L166015%_) + (let ((__tmp172257 (lambda () (for-each - _%collect-e164616%_ - (let ((__tmp170971 - (lambda (_%g164749164752%_ + _%collect-e165903%_ + (let ((__tmp172258 + (lambda (_%g166036166039%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164750164754%_) - (cons _%g164749164752%_ _%g164750164754%_)))) + _%g166037166041%_) + (cons _%g166036166039%_ _%g166037166041%_)))) (declare (not safe)) - (__foldr1 __tmp170971 '() _%L164728%_)) + (__foldr1 __tmp172258 '() _%L166015%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp170972 - (lambda (_%g164756164759%_ + (let ((__tmp172259 + (lambda (_%g166043166046%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164757164761%_) - (cons _%g164756164759%_ _%g164757164761%_)))) + _%g166044166048%_) + (cons _%g166043166046%_ _%g166044166048%_)))) (declare (not safe)) - (__foldr1 __tmp170972 '() _%L164727%_))) + (__foldr1 __tmp172259 '() _%L166014%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g164763164765%_) + (lambda (_%g166050166052%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self164613%_ - _%g164763164765%_))) - (let ((__tmp170973 - (lambda (_%g164767164770%_ + _%self165900%_ + _%g166050166052%_))) + (let ((__tmp172260 + (lambda (_%g166054166057%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164768164772%_) - (cons _%g164767164770%_ _%g164768164772%_)))) + _%g166055166059%_) + (cons _%g166054166057%_ _%g166055166059%_)))) (declare (not safe)) - (__foldr1 __tmp170973 '() _%L164727%_))) + (__foldr1 __tmp172260 '() _%L166014%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self164613%_ - _%L164726%_)))) - (__tmp170967 - (let ((__tmp170968 - (let ((__tmp170969 - (lambda (_%g164774164777%_ + _%self165900%_ + _%L166013%_)))) + (__tmp172254 + (let ((__tmp172255 + (let ((__tmp172256 + (lambda (_%g166061166064%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164775164779%_) - (cons _%g164774164777%_ _%g164775164779%_)))) + _%g166062166066%_) + (cons _%g166061166064%_ _%g166062166066%_)))) (declare (not safe)) - (__foldr1 __tmp170969 '() _%L164728%_)))) + (__foldr1 __tmp172256 '() _%L166015%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp170968)))) + __tmp172255)))) (declare (not safe)) (__call-with-parameters - __tmp170970 + __tmp172257 gxc#current-compile-local-env - __tmp170967))) - _%hd164641164721%_ - _%expr164638164713%_ - _%hd164639164715%_) - (_%g164618164653%_ - _%g164619164656%_)))) - (_%g164618164653%_ _%g164619164656%_))))))) + __tmp172254))) + _%hd165928166008%_ + _%expr165925166000%_ + _%hd165926166002%_) + (_%g165905165940%_ + _%g165906165943%_)))) + (_%g165905165940%_ _%g165906165943%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop164632164679%_ - _%target164629164674%_ + (_%loop165919165966%_ + _%target165916165961%_ '() '())) - (_%g164618164653%_ - _%g164619164656%_))))) - (_%g164618164653%_ - _%g164619164656%_)))) - (_%g164618164653%_ _%g164619164656%_)))) - (_%g164618164653%_ _%g164619164656%_))))) - (_%g164617164782%_ _%stx164614%_))))) + (_%g165905165940%_ + _%g165906165943%_))))) + (_%g165905165940%_ + _%g165906165943%_)))) + (_%g165905165940%_ _%g165906165943%_)))) + (_%g165905165940%_ _%g165906165943%_))))) + (_%g165904166069%_ _%stx165901%_))))) (define gxc#refine-type-lambda% - (lambda (_%self164557%_ _%stx164558%_) - (let* ((_%g164560164574%_ - (lambda (_%g164561164571%_) + (lambda (_%self165844%_ _%stx165845%_) + (let* ((_%g165847165861%_ + (lambda (_%g165848165858%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164561164571%_)))) - (_%g164559164610%_ - (lambda (_%g164561164577%_) + _%g165848165858%_)))) + (_%g165846165897%_ + (lambda (_%g165848165864%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164561164577%_)) - (let ((_%e164564164579%_ + (gx#stx-pair? _%g165848165864%_)) + (let ((_%e165851165866%_ (let () (declare (not safe)) - (gx#stx-e _%g164561164577%_)))) - (let ((_%hd164565164582%_ + (gx#stx-e _%g165848165864%_)))) + (let ((_%hd165852165869%_ (let () (declare (not safe)) - (##car _%e164564164579%_))) - (_%tl164566164584%_ + (##car _%e165851165866%_))) + (_%tl165853165871%_ (let () (declare (not safe)) - (##cdr _%e164564164579%_)))) + (##cdr _%e165851165866%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164566164584%_)) - (let ((_%e164567164587%_ + (gx#stx-pair? _%tl165853165871%_)) + (let ((_%e165854165874%_ (let () (declare (not safe)) - (gx#stx-e _%tl164566164584%_)))) - (let ((_%hd164568164590%_ + (gx#stx-e _%tl165853165871%_)))) + (let ((_%hd165855165877%_ (let () (declare (not safe)) - (##car _%e164567164587%_))) - (_%tl164569164592%_ + (##car _%e165854165874%_))) + (_%tl165856165879%_ (let () (declare (not safe)) - (##cdr _%e164567164587%_)))) - ((lambda (_%L164595%_ _%L164596%_) - (let ((__tmp170975 + (##cdr _%e165854165874%_)))) + ((lambda (_%L165882%_ _%L165883%_) + (let ((__tmp172262 (lambda () (let () (declare (not safe)) (gxc#apply-body-lambda% - _%self164557%_ - _%stx164558%_)))) - (__tmp170974 + _%self165844%_ + _%stx165845%_)))) + (__tmp172261 (let () (declare (not safe)) (gxc#xform-let-locals - _%L164596%_)))) + _%L165883%_)))) (declare (not safe)) (__call-with-parameters - __tmp170975 + __tmp172262 gxc#current-compile-local-env - __tmp170974))) - _%tl164569164592%_ - _%hd164568164590%_))) - (_%g164560164574%_ _%g164561164577%_)))) - (_%g164560164574%_ _%g164561164577%_))))) - (_%g164559164610%_ _%stx164558%_)))) + __tmp172261))) + _%tl165856165879%_ + _%hd165855165877%_))) + (_%g165847165861%_ _%g165848165864%_)))) + (_%g165847165861%_ _%g165848165864%_))))) + (_%g165846165897%_ _%stx165845%_)))) (define gxc#refine-type-case-lambda% - (lambda (_%self164384%_ _%stx164385%_) - (let* ((_%g164387164415%_ - (lambda (_%g164388164412%_) + (lambda (_%self165671%_ _%stx165672%_) + (let* ((_%g165674165702%_ + (lambda (_%g165675165699%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164388164412%_)))) - (_%g164386164554%_ - (lambda (_%g164388164418%_) + _%g165675165699%_)))) + (_%g165673165841%_ + (lambda (_%g165675165705%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164388164418%_)) - (let ((_%e164391164420%_ + (gx#stx-pair? _%g165675165705%_)) + (let ((_%e165678165707%_ (let () (declare (not safe)) - (gx#stx-e _%g164388164418%_)))) - (let ((_%hd164392164423%_ + (gx#stx-e _%g165675165705%_)))) + (let ((_%hd165679165710%_ (let () (declare (not safe)) - (##car _%e164391164420%_))) - (_%tl164393164425%_ + (##car _%e165678165707%_))) + (_%tl165680165712%_ (let () (declare (not safe)) - (##cdr _%e164391164420%_)))) + (##cdr _%e165678165707%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164393164425%_)) - (let ((_g170976_ + (gx#stx-pair/null? _%tl165680165712%_)) + (let ((_g172263_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164393164425%_ + _%tl165680165712%_ '0)))) (begin - (let ((_g170977_ + (let ((_g172264_ (let () (declare (not safe)) - (if (##values? _g170976_) - (##vector-length _g170976_) + (if (##values? _g172263_) + (##values-length _g172263_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g170977_ 2))) + (##fx= _g172264_ 2))) (error "Context expects 2 values" - _g170977_))) - (let ((_%target164394164428%_ + _g172264_))) + (let ((_%target165681165715%_ (let () (declare (not safe)) - (##vector-ref _g170976_ 0))) - (_%tl164396164430%_ + (##values-ref _g172263_ 0))) + (_%tl165683165717%_ (let () (declare (not safe)) - (##vector-ref _g170976_ 1)))) + (##values-ref _g172263_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164396164430%_)) - (letrec ((_%loop164397164433%_ - (lambda (_%hd164395164436%_ - _%body164401164438%_ - _%hd164402164440%_) + (gx#stx-null? _%tl165683165717%_)) + (letrec ((_%loop165684165720%_ + (lambda (_%hd165682165723%_ + _%body165688165725%_ + _%hd165689165727%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd164395164436%_)) - (let ((_%e164398164443%_ + _%hd165682165723%_)) + (let ((_%e165685165730%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd164395164436%_)))) - (let ((_%lp-hd164399164446%_ + (gx#stx-e _%hd165682165723%_)))) + (let ((_%lp-hd165686165733%_ (let () (declare (not safe)) - (##car _%e164398164443%_))) - (_%lp-tl164400164448%_ + (##car _%e165685165730%_))) + (_%lp-tl165687165735%_ (let () (declare (not safe)) - (##cdr _%e164398164443%_)))) + (##cdr _%e165685165730%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd164399164446%_)) - (let ((_%e164405164451%_ + (gx#stx-pair? _%lp-hd165686165733%_)) + (let ((_%e165692165738%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd164399164446%_)))) - (let ((_%hd164406164454%_ + (gx#stx-e _%lp-hd165686165733%_)))) + (let ((_%hd165693165741%_ (let () (declare (not safe)) - (##car _%e164405164451%_))) - (_%tl164407164456%_ + (##car _%e165692165738%_))) + (_%tl165694165743%_ (let () (declare (not safe)) - (##cdr _%e164405164451%_)))) + (##cdr _%e165692165738%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164407164456%_)) - (let ((_%e164408164459%_ + (gx#stx-pair? _%tl165694165743%_)) + (let ((_%e165695165746%_ (let () (declare (not safe)) - (gx#stx-e _%tl164407164456%_)))) - (let ((_%hd164409164462%_ + (gx#stx-e _%tl165694165743%_)))) + (let ((_%hd165696165749%_ (let () (declare (not safe)) - (##car _%e164408164459%_))) - (_%tl164410164464%_ + (##car _%e165695165746%_))) + (_%tl165697165751%_ (let () (declare (not safe)) - (##cdr _%e164408164459%_)))) + (##cdr _%e165695165746%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164410164464%_)) - (_%loop164397164433%_ - _%lp-tl164400164448%_ - (cons _%hd164409164462%_ - _%body164401164438%_) - (cons _%hd164406164454%_ - _%hd164402164440%_)) - (_%g164387164415%_ - _%g164388164418%_)))) - (_%g164387164415%_ _%g164388164418%_)))) - (_%g164387164415%_ _%g164388164418%_)))) - (let ((_%body164403164467%_ (reverse _%body164401164438%_)) - (_%hd164404164469%_ (reverse _%hd164402164440%_))) - ((lambda (_%L164472%_ _%L164473%_) + (gx#stx-null? _%tl165697165751%_)) + (_%loop165684165720%_ + _%lp-tl165687165735%_ + (cons _%hd165696165749%_ + _%body165688165725%_) + (cons _%hd165693165741%_ + _%hd165689165727%_)) + (_%g165674165702%_ + _%g165675165705%_)))) + (_%g165674165702%_ _%g165675165705%_)))) + (_%g165674165702%_ _%g165675165705%_)))) + (let ((_%body165690165754%_ (reverse _%body165688165725%_)) + (_%hd165691165756%_ (reverse _%hd165689165727%_))) + ((lambda (_%L165759%_ _%L165760%_) (for-each - (lambda (_%clause164488%_) - (let* ((_%g164490164504%_ - (lambda (_%g164491164501%_) + (lambda (_%clause165775%_) + (let* ((_%g165777165791%_ + (lambda (_%g165778165788%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164491164501%_)))) - (_%g164489164541%_ - (lambda (_%g164491164507%_) + _%g165778165788%_)))) + (_%g165776165828%_ + (lambda (_%g165778165794%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164491164507%_)) - (let ((_%e164494164509%_ + (gx#stx-pair? _%g165778165794%_)) + (let ((_%e165781165796%_ (let () (declare (not safe)) - (gx#stx-e _%g164491164507%_)))) - (let ((_%hd164495164512%_ + (gx#stx-e _%g165778165794%_)))) + (let ((_%hd165782165799%_ (let () (declare (not safe)) - (##car _%e164494164509%_))) - (_%tl164496164514%_ + (##car _%e165781165796%_))) + (_%tl165783165801%_ (let () (declare (not safe)) - (##cdr _%e164494164509%_)))) + (##cdr _%e165781165796%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164496164514%_)) - (let ((_%e164497164517%_ + _%tl165783165801%_)) + (let ((_%e165784165804%_ (let () (declare (not safe)) (gx#stx-e - _%tl164496164514%_)))) - (let ((_%hd164498164520%_ + _%tl165783165801%_)))) + (let ((_%hd165785165807%_ (let () (declare (not safe)) - (##car _%e164497164517%_))) - (_%tl164499164522%_ + (##car _%e165784165804%_))) + (_%tl165786165809%_ (let () (declare (not safe)) - (##cdr _%e164497164517%_)))) + (##cdr _%e165784165804%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164499164522%_)) - ((lambda (_%L164525%_ - _%L164526%_) - (let ((__tmp170979 + _%tl165786165809%_)) + ((lambda (_%L165812%_ + _%L165813%_) + (let ((__tmp172266 (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-body-case-lambda% - _%self164384%_ - _%stx164385%_)))) - (__tmp170978 + _%self165671%_ + _%stx165672%_)))) + (__tmp172265 (let () (declare (not safe)) - (gxc#xform-let-locals _%L164526%_)))) + (gxc#xform-let-locals _%L165813%_)))) (declare (not safe)) (__call-with-parameters - __tmp170979 + __tmp172266 gxc#current-compile-local-env - __tmp170978))) - _%hd164498164520%_ - _%hd164495164512%_) - (_%g164490164504%_ _%g164491164507%_)))) + __tmp172265))) + _%hd165785165807%_ + _%hd165782165799%_) + (_%g165777165791%_ _%g165778165794%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164490164504%_ - _%g164491164507%_)))) - (_%g164490164504%_ _%g164491164507%_))))) - (_%g164489164541%_ _%clause164488%_))) + (_%g165777165791%_ + _%g165778165794%_)))) + (_%g165777165791%_ _%g165778165794%_))))) + (_%g165776165828%_ _%clause165775%_))) (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L164472%_ - _%L164473%_)) - (let ((__tmp170980 - (lambda (_%g164543164547%_ - _%g164544164549%_ - _%g164545164551%_) - (cons (cons _%g164544164549%_ - (cons _%g164543164547%_ '())) - _%g164545164551%_)))) + _%L165759%_ + _%L165760%_)) + (let ((__tmp172267 + (lambda (_%g165830165834%_ + _%g165831165836%_ + _%g165832165838%_) + (cons (cons _%g165831165836%_ + (cons _%g165830165834%_ '())) + _%g165832165838%_)))) (declare (not safe)) (__foldr2 - __tmp170980 + __tmp172267 '() - _%L164472%_ - _%L164473%_))))) - _%body164403164467%_ - _%hd164404164469%_)))))) + _%L165759%_ + _%L165760%_))))) + _%body165690165754%_ + _%hd165691165756%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop164397164433%_ - _%target164394164428%_ + (_%loop165684165720%_ + _%target165681165715%_ '() '())) - (_%g164387164415%_ - _%g164388164418%_))))) - (_%g164387164415%_ _%g164388164418%_)))) - (_%g164387164415%_ _%g164388164418%_))))) - (_%g164386164554%_ _%stx164385%_)))) + (_%g165674165702%_ + _%g165675165705%_))))) + (_%g165674165702%_ _%g165675165705%_)))) + (_%g165674165702%_ _%g165675165705%_))))) + (_%g165673165841%_ _%stx165672%_)))) (define gxc#basic-expression-type-annotations (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_%self164262%_ _%stx164263%_) - (let* ((_%g164265164282%_ - (lambda (_%g164266164279%_) + (lambda (_%self165549%_ _%stx165550%_) + (let* ((_%g165552165569%_ + (lambda (_%g165553165566%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164266164279%_)))) - (_%g164264164381%_ - (lambda (_%g164266164285%_) + _%g165553165566%_)))) + (_%g165551165668%_ + (lambda (_%g165553165572%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164266164285%_)) - (let ((_%e164269164287%_ + (gx#stx-pair? _%g165553165572%_)) + (let ((_%e165556165574%_ (let () (declare (not safe)) - (gx#stx-e _%g164266164285%_)))) - (let ((_%hd164270164290%_ + (gx#stx-e _%g165553165572%_)))) + (let ((_%hd165557165577%_ (let () (declare (not safe)) - (##car _%e164269164287%_))) - (_%tl164271164292%_ + (##car _%e165556165574%_))) + (_%tl165558165579%_ (let () (declare (not safe)) - (##cdr _%e164269164287%_)))) + (##cdr _%e165556165574%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164271164292%_)) - (let ((_%e164272164295%_ + (gx#stx-pair? _%tl165558165579%_)) + (let ((_%e165559165582%_ (let () (declare (not safe)) - (gx#stx-e _%tl164271164292%_)))) - (let ((_%hd164273164298%_ + (gx#stx-e _%tl165558165579%_)))) + (let ((_%hd165560165585%_ (let () (declare (not safe)) - (##car _%e164272164295%_))) - (_%tl164274164300%_ + (##car _%e165559165582%_))) + (_%tl165561165587%_ (let () (declare (not safe)) - (##cdr _%e164272164295%_)))) + (##cdr _%e165559165582%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164274164300%_)) - (let ((_%e164275164303%_ + (gx#stx-pair? _%tl165561165587%_)) + (let ((_%e165562165590%_ (let () (declare (not safe)) - (gx#stx-e _%tl164274164300%_)))) - (let ((_%hd164276164306%_ + (gx#stx-e _%tl165561165587%_)))) + (let ((_%hd165563165593%_ (let () (declare (not safe)) - (##car _%e164275164303%_))) - (_%tl164277164308%_ + (##car _%e165562165590%_))) + (_%tl165564165595%_ (let () (declare (not safe)) - (##cdr _%e164275164303%_)))) + (##cdr _%e165562165590%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164277164308%_)) - ((lambda (_%L164311%_ - _%L164312%_) - (let* ((_%__stx168650168651%_ - _%L164312%_) - (_%g164328164339%_ + _%tl165564165595%_)) + ((lambda (_%L165598%_ + _%L165599%_) + (let* ((_%__stx169937169938%_ + _%L165599%_) + (_%g165615165626%_ (lambda () (let () (declare @@ -7887,325 +7887,325 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168650168651%_))))) - (let ((_%__kont168652168653%_ - (lambda (_%L164359%_ + _%__stx169937169938%_))))) + (let ((_%__kont169939169940%_ + (lambda (_%L165646%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L164360%_) - (let ((_%$e164372%_ - (let ((__tmp170981 + _%L165647%_) + (let ((_%$e165659%_ + (let ((__tmp172268 (let () (declare (not safe)) - (gx#stx-e _%L164360%_)))) + (gx#stx-e _%L165647%_)))) (declare (not safe)) (__hash-get gxc#basic-expression-type-annotations - __tmp170981)))) - (if _%$e164372%_ - ((lambda (_%type-e164375%_) - (_%type-e164375%_ _%stx164263%_ _%L164312%_)) - _%$e164372%_) + __tmp172268)))) + (if _%$e165659%_ + ((lambda (_%type-e165662%_) + (_%type-e165662%_ _%stx165550%_ _%L165599%_)) + _%$e165659%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self164262%_ _%L164311%_)))))) - (_%__kont168654168655%_ + (gxc#compile-e__1 _%self165549%_ _%L165598%_)))))) + (_%__kont169941169942%_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self164262%_ _%L164311%_))))) + (gxc#compile-e__1 _%self165549%_ _%L165598%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match168661168662%_ - (lambda (_%e164332164351%_ + (let ((_%__match169948169949%_ + (lambda (_%e165619165638%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd164333164354%_ - _%tl164334164356%_) - (let ((_%L164359%_ _%tl164334164356%_) - (_%L164360%_ _%hd164333164354%_)) + _%hd165620165641%_ + _%tl165621165643%_) + (let ((_%L165646%_ _%tl165621165643%_) + (_%L165647%_ _%hd165620165641%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L164360%_)) - (_%__kont168652168653%_ _%L164359%_ _%L164360%_) - (_%__kont168654168655%_)))))) + (gx#identifier? _%L165647%_)) + (_%__kont169939169940%_ _%L165646%_ _%L165647%_) + (_%__kont169941169942%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168650168651%_)) - (let ((_%e164332164351%_ + (gx#stx-pair? _%__stx169937169938%_)) + (let ((_%e165619165638%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168650168651%_)))) - (let ((_%tl164334164356%_ + (gx#stx-e _%__stx169937169938%_)))) + (let ((_%tl165621165643%_ (let () (declare (not safe)) - (##cdr _%e164332164351%_))) - (_%hd164333164354%_ + (##cdr _%e165619165638%_))) + (_%hd165620165641%_ (let () (declare (not safe)) - (##car _%e164332164351%_)))) - (_%__match168661168662%_ - _%e164332164351%_ - _%hd164333164354%_ - _%tl164334164356%_))) - (_%__kont168654168655%_)))))) + (##car _%e165619165638%_)))) + (_%__match169948169949%_ + _%e165619165638%_ + _%hd165620165641%_ + _%tl165621165643%_))) + (_%__kont169941169942%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd164276164306%_ - _%hd164273164298%_) - (_%g164265164282%_ - _%g164266164285%_)))) - (_%g164265164282%_ _%g164266164285%_)))) - (_%g164265164282%_ _%g164266164285%_)))) - (_%g164265164282%_ _%g164266164285%_))))) - (_%g164264164381%_ _%stx164263%_)))) + _%hd165563165593%_ + _%hd165560165585%_) + (_%g165552165569%_ + _%g165553165572%_)))) + (_%g165552165569%_ _%g165553165572%_)))) + (_%g165552165569%_ _%g165553165572%_)))) + (_%g165552165569%_ _%g165553165572%_))))) + (_%g165551165668%_ _%stx165550%_)))) (define gxc#basic-expression-type-annotation-typedecl - (lambda (_%stx164210%_ _%ann164211%_) - (let* ((_%g164213164226%_ - (lambda (_%g164214164223%_) + (lambda (_%stx165497%_ _%ann165498%_) + (let* ((_%g165500165513%_ + (lambda (_%g165501165510%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164214164223%_)))) - (_%g164212164259%_ - (lambda (_%g164214164229%_) + _%g165501165510%_)))) + (_%g165499165546%_ + (lambda (_%g165501165516%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164214164229%_)) - (let ((_%e164216164231%_ + (gx#stx-pair? _%g165501165516%_)) + (let ((_%e165503165518%_ (let () (declare (not safe)) - (gx#stx-e _%g164214164229%_)))) - (let ((_%hd164217164234%_ + (gx#stx-e _%g165501165516%_)))) + (let ((_%hd165504165521%_ (let () (declare (not safe)) - (##car _%e164216164231%_))) - (_%tl164218164236%_ + (##car _%e165503165518%_))) + (_%tl165505165523%_ (let () (declare (not safe)) - (##cdr _%e164216164231%_)))) + (##cdr _%e165503165518%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164218164236%_)) - (let ((_%e164219164239%_ + (gx#stx-pair? _%tl165505165523%_)) + (let ((_%e165506165526%_ (let () (declare (not safe)) - (gx#stx-e _%tl164218164236%_)))) - (let ((_%hd164220164242%_ + (gx#stx-e _%tl165505165523%_)))) + (let ((_%hd165507165529%_ (let () (declare (not safe)) - (##car _%e164219164239%_))) - (_%tl164221164244%_ + (##car _%e165506165526%_))) + (_%tl165508165531%_ (let () (declare (not safe)) - (##cdr _%e164219164239%_)))) + (##cdr _%e165506165526%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164221164244%_)) - ((lambda (_%L164247%_) - (let ((__tmp170982 + (gx#stx-null? _%tl165508165531%_)) + ((lambda (_%L165534%_) + (let ((__tmp172269 (let () (declare (not safe)) (gxc#identifier-symbol - _%L164247%_)))) + _%L165534%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx164210%_ - __tmp170982))) - _%hd164220164242%_) - (_%g164213164226%_ _%g164214164229%_)))) - (_%g164213164226%_ _%g164214164229%_)))) - (_%g164213164226%_ _%g164214164229%_))))) - (_%g164212164259%_ _%ann164211%_)))) + _%stx165497%_ + __tmp172269))) + _%hd165507165529%_) + (_%g165500165513%_ _%g165501165516%_)))) + (_%g165500165513%_ _%g165501165516%_)))) + (_%g165500165513%_ _%g165501165516%_))))) + (_%g165499165546%_ _%ann165498%_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_%stx164054%_ _%ann164055%_) - (let* ((_%g164057164094%_ - (lambda (_%g164058164091%_) + (lambda (_%stx165341%_ _%ann165342%_) + (let* ((_%g165344165381%_ + (lambda (_%g165345165378%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164058164091%_)))) - (_%g164056164207%_ - (lambda (_%g164058164097%_) + _%g165345165378%_)))) + (_%g165343165494%_ + (lambda (_%g165345165384%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164058164097%_)) - (let ((_%e164066164099%_ + (gx#stx-pair? _%g165345165384%_)) + (let ((_%e165353165386%_ (let () (declare (not safe)) - (gx#stx-e _%g164058164097%_)))) - (let ((_%hd164067164102%_ + (gx#stx-e _%g165345165384%_)))) + (let ((_%hd165354165389%_ (let () (declare (not safe)) - (##car _%e164066164099%_))) - (_%tl164068164104%_ + (##car _%e165353165386%_))) + (_%tl165355165391%_ (let () (declare (not safe)) - (##cdr _%e164066164099%_)))) + (##cdr _%e165353165386%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164068164104%_)) - (let ((_%e164069164107%_ + (gx#stx-pair? _%tl165355165391%_)) + (let ((_%e165356165394%_ (let () (declare (not safe)) - (gx#stx-e _%tl164068164104%_)))) - (let ((_%hd164070164110%_ + (gx#stx-e _%tl165355165391%_)))) + (let ((_%hd165357165397%_ (let () (declare (not safe)) - (##car _%e164069164107%_))) - (_%tl164071164112%_ + (##car _%e165356165394%_))) + (_%tl165358165399%_ (let () (declare (not safe)) - (##cdr _%e164069164107%_)))) + (##cdr _%e165356165394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164071164112%_)) - (let ((_%e164072164115%_ + (gx#stx-pair? _%tl165358165399%_)) + (let ((_%e165359165402%_ (let () (declare (not safe)) - (gx#stx-e _%tl164071164112%_)))) - (let ((_%hd164073164118%_ + (gx#stx-e _%tl165358165399%_)))) + (let ((_%hd165360165405%_ (let () (declare (not safe)) - (##car _%e164072164115%_))) - (_%tl164074164120%_ + (##car _%e165359165402%_))) + (_%tl165361165407%_ (let () (declare (not safe)) - (##cdr _%e164072164115%_)))) + (##cdr _%e165359165402%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164074164120%_)) - (let ((_%e164075164123%_ + _%tl165361165407%_)) + (let ((_%e165362165410%_ (let () (declare (not safe)) (gx#stx-e - _%tl164074164120%_)))) - (let ((_%hd164076164126%_ + _%tl165361165407%_)))) + (let ((_%hd165363165413%_ (let () (declare (not safe)) - (##car _%e164075164123%_))) - (_%tl164077164128%_ + (##car _%e165362165410%_))) + (_%tl165364165415%_ (let () (declare (not safe)) - (##cdr _%e164075164123%_)))) + (##cdr _%e165362165410%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164077164128%_)) - (let ((_%e164078164131%_ + _%tl165364165415%_)) + (let ((_%e165365165418%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl164077164128%_)))) - (let ((_%hd164079164134%_ - (let () (declare (not safe)) (##car _%e164078164131%_))) - (_%tl164080164136%_ + (gx#stx-e _%tl165364165415%_)))) + (let ((_%hd165366165421%_ + (let () (declare (not safe)) (##car _%e165365165418%_))) + (_%tl165367165423%_ (let () (declare (not safe)) - (##cdr _%e164078164131%_)))) + (##cdr _%e165365165418%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164080164136%_)) - (let ((_%e164081164139%_ + (gx#stx-pair? _%tl165367165423%_)) + (let ((_%e165368165426%_ (let () (declare (not safe)) - (gx#stx-e _%tl164080164136%_)))) - (let ((_%hd164082164142%_ + (gx#stx-e _%tl165367165423%_)))) + (let ((_%hd165369165429%_ (let () (declare (not safe)) - (##car _%e164081164139%_))) - (_%tl164083164144%_ + (##car _%e165368165426%_))) + (_%tl165370165431%_ (let () (declare (not safe)) - (##cdr _%e164081164139%_)))) + (##cdr _%e165368165426%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164083164144%_)) - (let ((_%e164084164147%_ + (gx#stx-pair? _%tl165370165431%_)) + (let ((_%e165371165434%_ (let () (declare (not safe)) - (gx#stx-e _%tl164083164144%_)))) - (let ((_%hd164085164150%_ + (gx#stx-e _%tl165370165431%_)))) + (let ((_%hd165372165437%_ (let () (declare (not safe)) - (##car _%e164084164147%_))) - (_%tl164086164152%_ + (##car _%e165371165434%_))) + (_%tl165373165439%_ (let () (declare (not safe)) - (##cdr _%e164084164147%_)))) + (##cdr _%e165371165434%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164086164152%_)) - (let ((_%e164087164155%_ + (gx#stx-pair? _%tl165373165439%_)) + (let ((_%e165374165442%_ (let () (declare (not safe)) - (gx#stx-e _%tl164086164152%_)))) - (let ((_%hd164088164158%_ + (gx#stx-e _%tl165373165439%_)))) + (let ((_%hd165375165445%_ (let () (declare (not safe)) - (##car _%e164087164155%_))) - (_%tl164089164160%_ + (##car _%e165374165442%_))) + (_%tl165376165447%_ (let () (declare (not safe)) - (##cdr _%e164087164155%_)))) + (##cdr _%e165374165442%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164089164160%_)) - ((lambda (_%L164163%_ - _%L164164%_ - _%L164165%_ - _%L164166%_ - _%L164167%_ - _%L164168%_ - _%L164169%_) - (let ((_%type-id164199%_ + _%tl165376165447%_)) + ((lambda (_%L165450%_ + _%L165451%_ + _%L165452%_ + _%L165453%_ + _%L165454%_ + _%L165455%_ + _%L165456%_) + (let ((_%type-id165486%_ (let () (declare (not safe)) (gx#stx-e - _%L164169%_))) - (_%super164200%_ + _%L165456%_))) + (_%super165487%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L164168%_))) - (_%slots164201%_ + _%L165455%_))) + (_%slots165488%_ (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L164167%_))) - (_%ctor-method164202%_ + _%L165454%_))) + (_%ctor-method165489%_ (let () (declare (not safe)) (gx#stx-e - _%L164166%_))) - (_%struct?164203%_ + _%L165453%_))) + (_%struct?165490%_ (let () (declare (not safe)) (gx#stx-e - _%L164165%_))) - (_%final?164204%_ + _%L165452%_))) + (_%final?165491%_ (let () (declare (not safe)) (gx#stx-e - _%L164164%_))) - (_%metaclass164205%_ + _%L165451%_))) + (_%metaclass165492%_ (if (let () (declare (not safe)) (gx#stx-e - _%L164163%_)) + _%L165450%_)) (let () (declare (not safe)) (gxc#identifier-symbol - _%L164163%_)) + _%L165450%_)) '#f))) - (let ((__obj170818 + (let ((__obj172105 (let () (declare (not safe)) @@ -8213,8 +8213,8 @@ gxc#!class-meta::t '#f '#f)))) - (let ((__tmp170983 - (let ((__obj170817 + (let ((__tmp172270 + (let ((__obj172104 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -8234,115 +8234,115 @@ (let () (declare (not safe)) (gxc#!class:::init!__0 - __obj170817 - _%type-id164199%_ - _%super164200%_ - _%slots164201%_ - _%ctor-method164202%_ - _%struct?164203%_ - _%final?164204%_ + __obj172104 + _%type-id165486%_ + _%super165487%_ + _%slots165488%_ + _%ctor-method165489%_ + _%struct?165490%_ + _%final?165491%_ '#f - _%metaclass164205%_)) - __obj170817))) + _%metaclass165492%_)) + __obj172104))) (declare (not safe)) - (gxc#!class-meta:::init! __obj170818 __tmp170983)) + (gxc#!class-meta:::init! __obj172105 __tmp172270)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj170818))) - _%hd164088164158%_ - _%hd164085164150%_ - _%hd164082164142%_ - _%hd164079164134%_ - _%hd164076164126%_ - _%hd164073164118%_ - _%hd164070164110%_) - (_%g164057164094%_ - _%g164058164097%_)))) - (_%g164057164094%_ _%g164058164097%_)))) - (_%g164057164094%_ _%g164058164097%_)))) - (_%g164057164094%_ _%g164058164097%_)))) - (_%g164057164094%_ _%g164058164097%_)))) + __obj172105))) + _%hd165375165445%_ + _%hd165372165437%_ + _%hd165369165429%_ + _%hd165366165421%_ + _%hd165363165413%_ + _%hd165360165405%_ + _%hd165357165397%_) + (_%g165344165381%_ + _%g165345165384%_)))) + (_%g165344165381%_ _%g165345165384%_)))) + (_%g165344165381%_ _%g165345165384%_)))) + (_%g165344165381%_ _%g165345165384%_)))) + (_%g165344165381%_ _%g165345165384%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164057164094%_ - _%g164058164097%_)))) - (_%g164057164094%_ _%g164058164097%_)))) - (_%g164057164094%_ _%g164058164097%_)))) - (_%g164057164094%_ _%g164058164097%_))))) - (_%g164056164207%_ _%ann164055%_)))) + (_%g165344165381%_ + _%g165345165384%_)))) + (_%g165344165381%_ _%g165345165384%_)))) + (_%g165344165381%_ _%g165345165384%_)))) + (_%g165344165381%_ _%g165345165384%_))))) + (_%g165343165494%_ _%ann165342%_)))) (define gxc#basic-expression-type-annotation-mop.system - (lambda (_%stx163983%_ _%ann163984%_) - (let* ((_%g163986164003%_ - (lambda (_%g163987164000%_) + (lambda (_%stx165270%_ _%ann165271%_) + (let* ((_%g165273165290%_ + (lambda (_%g165274165287%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163987164000%_)))) - (_%g163985164051%_ - (lambda (_%g163987164006%_) + _%g165274165287%_)))) + (_%g165272165338%_ + (lambda (_%g165274165293%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163987164006%_)) - (let ((_%e163990164008%_ + (gx#stx-pair? _%g165274165293%_)) + (let ((_%e165277165295%_ (let () (declare (not safe)) - (gx#stx-e _%g163987164006%_)))) - (let ((_%hd163991164011%_ + (gx#stx-e _%g165274165293%_)))) + (let ((_%hd165278165298%_ (let () (declare (not safe)) - (##car _%e163990164008%_))) - (_%tl163992164013%_ + (##car _%e165277165295%_))) + (_%tl165279165300%_ (let () (declare (not safe)) - (##cdr _%e163990164008%_)))) + (##cdr _%e165277165295%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163992164013%_)) - (let ((_%e163993164016%_ + (gx#stx-pair? _%tl165279165300%_)) + (let ((_%e165280165303%_ (let () (declare (not safe)) - (gx#stx-e _%tl163992164013%_)))) - (let ((_%hd163994164019%_ + (gx#stx-e _%tl165279165300%_)))) + (let ((_%hd165281165306%_ (let () (declare (not safe)) - (##car _%e163993164016%_))) - (_%tl163995164021%_ + (##car _%e165280165303%_))) + (_%tl165282165308%_ (let () (declare (not safe)) - (##cdr _%e163993164016%_)))) + (##cdr _%e165280165303%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163995164021%_)) - (let ((_%e163996164024%_ + (gx#stx-pair? _%tl165282165308%_)) + (let ((_%e165283165311%_ (let () (declare (not safe)) - (gx#stx-e _%tl163995164021%_)))) - (let ((_%hd163997164027%_ + (gx#stx-e _%tl165282165308%_)))) + (let ((_%hd165284165314%_ (let () (declare (not safe)) - (##car _%e163996164024%_))) - (_%tl163998164029%_ + (##car _%e165283165311%_))) + (_%tl165285165316%_ (let () (declare (not safe)) - (##cdr _%e163996164024%_)))) + (##cdr _%e165283165311%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163998164029%_)) - ((lambda (_%L164032%_ - _%L164033%_) - (let ((_%type-id164048%_ + _%tl165285165316%_)) + ((lambda (_%L165319%_ + _%L165320%_) + (let ((_%type-id165335%_ (let () (declare (not safe)) (gx#stx-e - _%L164033%_))) - (_%super164049%_ + _%L165320%_))) + (_%super165336%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L164032%_)))) - (let ((__obj170820 + _%L165319%_)))) + (let ((__obj172107 (let () (declare (not safe)) @@ -8350,8 +8350,8 @@ gxc#!class-meta::t '#f '#f)))) - (let ((__tmp170984 - (let ((__obj170819 + (let ((__tmp172271 + (let ((__obj172106 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -8371,589 +8371,589 @@ (let () (declare (not safe)) (gxc#!class:::init!__0 - __obj170819 - _%type-id164048%_ - _%super164049%_ + __obj172106 + _%type-id165335%_ + _%super165336%_ '() '#f '#f '#f '#t '#f)) - __obj170819))) + __obj172106))) (declare (not safe)) - (gxc#!class-meta:::init! __obj170820 __tmp170984)) + (gxc#!class-meta:::init! __obj172107 __tmp172271)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj170820))) - _%hd163997164027%_ - _%hd163994164019%_) - (_%g163986164003%_ - _%g163987164006%_)))) - (_%g163986164003%_ _%g163987164006%_)))) - (_%g163986164003%_ _%g163987164006%_)))) - (_%g163986164003%_ _%g163987164006%_))))) - (_%g163985164051%_ _%ann163984%_)))) + __obj172107))) + _%hd165284165314%_ + _%hd165281165306%_) + (_%g165273165290%_ + _%g165274165293%_)))) + (_%g165273165290%_ _%g165274165293%_)))) + (_%g165273165290%_ _%g165274165293%_)))) + (_%g165273165290%_ _%g165274165293%_))))) + (_%g165272165338%_ _%ann165271%_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_%stx163931%_ _%ann163932%_) - (let* ((_%g163934163947%_ - (lambda (_%g163935163944%_) + (lambda (_%stx165218%_ _%ann165219%_) + (let* ((_%g165221165234%_ + (lambda (_%g165222165231%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163935163944%_)))) - (_%g163933163980%_ - (lambda (_%g163935163950%_) + _%g165222165231%_)))) + (_%g165220165267%_ + (lambda (_%g165222165237%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163935163950%_)) - (let ((_%e163937163952%_ + (gx#stx-pair? _%g165222165237%_)) + (let ((_%e165224165239%_ (let () (declare (not safe)) - (gx#stx-e _%g163935163950%_)))) - (let ((_%hd163938163955%_ + (gx#stx-e _%g165222165237%_)))) + (let ((_%hd165225165242%_ (let () (declare (not safe)) - (##car _%e163937163952%_))) - (_%tl163939163957%_ + (##car _%e165224165239%_))) + (_%tl165226165244%_ (let () (declare (not safe)) - (##cdr _%e163937163952%_)))) + (##cdr _%e165224165239%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163939163957%_)) - (let ((_%e163940163960%_ + (gx#stx-pair? _%tl165226165244%_)) + (let ((_%e165227165247%_ (let () (declare (not safe)) - (gx#stx-e _%tl163939163957%_)))) - (let ((_%hd163941163963%_ + (gx#stx-e _%tl165226165244%_)))) + (let ((_%hd165228165250%_ (let () (declare (not safe)) - (##car _%e163940163960%_))) - (_%tl163942163965%_ + (##car _%e165227165247%_))) + (_%tl165229165252%_ (let () (declare (not safe)) - (##cdr _%e163940163960%_)))) + (##cdr _%e165227165247%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163942163965%_)) - ((lambda (_%L163968%_) - (let ((__obj170821 + (gx#stx-null? _%tl165229165252%_)) + ((lambda (_%L165255%_) + (let ((__obj172108 (let () (declare (not safe)) (##structure gxc#!constructor::t '#f '#f)))) - (let ((__tmp170985 + (let ((__tmp172272 (let () (declare (not safe)) (gxc#identifier-symbol - _%L163968%_)))) + _%L165255%_)))) (declare (not safe)) (gxc#!constructor:::init! - __obj170821 - __tmp170985)) - __obj170821)) - _%hd163941163963%_) - (_%g163934163947%_ _%g163935163950%_)))) - (_%g163934163947%_ _%g163935163950%_)))) - (_%g163934163947%_ _%g163935163950%_))))) - (_%g163933163980%_ _%ann163932%_)))) + __obj172108 + __tmp172272)) + __obj172108)) + _%hd165228165250%_) + (_%g165221165234%_ _%g165222165237%_)))) + (_%g165221165234%_ _%g165222165237%_)))) + (_%g165221165234%_ _%g165222165237%_))))) + (_%g165220165267%_ _%ann165219%_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_%stx163879%_ _%ann163880%_) - (let* ((_%g163882163895%_ - (lambda (_%g163883163892%_) + (lambda (_%stx165166%_ _%ann165167%_) + (let* ((_%g165169165182%_ + (lambda (_%g165170165179%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163883163892%_)))) - (_%g163881163928%_ - (lambda (_%g163883163898%_) + _%g165170165179%_)))) + (_%g165168165215%_ + (lambda (_%g165170165185%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163883163898%_)) - (let ((_%e163885163900%_ + (gx#stx-pair? _%g165170165185%_)) + (let ((_%e165172165187%_ (let () (declare (not safe)) - (gx#stx-e _%g163883163898%_)))) - (let ((_%hd163886163903%_ + (gx#stx-e _%g165170165185%_)))) + (let ((_%hd165173165190%_ (let () (declare (not safe)) - (##car _%e163885163900%_))) - (_%tl163887163905%_ + (##car _%e165172165187%_))) + (_%tl165174165192%_ (let () (declare (not safe)) - (##cdr _%e163885163900%_)))) + (##cdr _%e165172165187%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163887163905%_)) - (let ((_%e163888163908%_ + (gx#stx-pair? _%tl165174165192%_)) + (let ((_%e165175165195%_ (let () (declare (not safe)) - (gx#stx-e _%tl163887163905%_)))) - (let ((_%hd163889163911%_ + (gx#stx-e _%tl165174165192%_)))) + (let ((_%hd165176165198%_ (let () (declare (not safe)) - (##car _%e163888163908%_))) - (_%tl163890163913%_ + (##car _%e165175165195%_))) + (_%tl165177165200%_ (let () (declare (not safe)) - (##cdr _%e163888163908%_)))) + (##cdr _%e165175165195%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163890163913%_)) - ((lambda (_%L163916%_) - (let ((__obj170822 + (gx#stx-null? _%tl165177165200%_)) + ((lambda (_%L165203%_) + (let ((__obj172109 (let () (declare (not safe)) (##structure gxc#!predicate::t '#f '#f)))) - (let ((__tmp170986 + (let ((__tmp172273 (let () (declare (not safe)) (gxc#identifier-symbol - _%L163916%_)))) + _%L165203%_)))) (declare (not safe)) (gxc#!predicate:::init! - __obj170822 - __tmp170986)) - __obj170822)) - _%hd163889163911%_) - (_%g163882163895%_ _%g163883163898%_)))) - (_%g163882163895%_ _%g163883163898%_)))) - (_%g163882163895%_ _%g163883163898%_))))) - (_%g163881163928%_ _%ann163880%_)))) + __obj172109 + __tmp172273)) + __obj172109)) + _%hd165176165198%_) + (_%g165169165182%_ _%g165170165185%_)))) + (_%g165169165182%_ _%g165170165185%_)))) + (_%g165169165182%_ _%g165170165185%_))))) + (_%g165168165215%_ _%ann165167%_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_%stx163795%_ _%ann163796%_) - (let* ((_%g163798163819%_ - (lambda (_%g163799163816%_) + (lambda (_%stx165082%_ _%ann165083%_) + (let* ((_%g165085165106%_ + (lambda (_%g165086165103%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163799163816%_)))) - (_%g163797163876%_ - (lambda (_%g163799163822%_) + _%g165086165103%_)))) + (_%g165084165163%_ + (lambda (_%g165086165109%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163799163822%_)) - (let ((_%e163803163824%_ + (gx#stx-pair? _%g165086165109%_)) + (let ((_%e165090165111%_ (let () (declare (not safe)) - (gx#stx-e _%g163799163822%_)))) - (let ((_%hd163804163827%_ + (gx#stx-e _%g165086165109%_)))) + (let ((_%hd165091165114%_ (let () (declare (not safe)) - (##car _%e163803163824%_))) - (_%tl163805163829%_ + (##car _%e165090165111%_))) + (_%tl165092165116%_ (let () (declare (not safe)) - (##cdr _%e163803163824%_)))) + (##cdr _%e165090165111%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163805163829%_)) - (let ((_%e163806163832%_ + (gx#stx-pair? _%tl165092165116%_)) + (let ((_%e165093165119%_ (let () (declare (not safe)) - (gx#stx-e _%tl163805163829%_)))) - (let ((_%hd163807163835%_ + (gx#stx-e _%tl165092165116%_)))) + (let ((_%hd165094165122%_ (let () (declare (not safe)) - (##car _%e163806163832%_))) - (_%tl163808163837%_ + (##car _%e165093165119%_))) + (_%tl165095165124%_ (let () (declare (not safe)) - (##cdr _%e163806163832%_)))) + (##cdr _%e165093165119%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163808163837%_)) - (let ((_%e163809163840%_ + (gx#stx-pair? _%tl165095165124%_)) + (let ((_%e165096165127%_ (let () (declare (not safe)) - (gx#stx-e _%tl163808163837%_)))) - (let ((_%hd163810163843%_ + (gx#stx-e _%tl165095165124%_)))) + (let ((_%hd165097165130%_ (let () (declare (not safe)) - (##car _%e163809163840%_))) - (_%tl163811163845%_ + (##car _%e165096165127%_))) + (_%tl165098165132%_ (let () (declare (not safe)) - (##cdr _%e163809163840%_)))) + (##cdr _%e165096165127%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163811163845%_)) - (let ((_%e163812163848%_ + _%tl165098165132%_)) + (let ((_%e165099165135%_ (let () (declare (not safe)) (gx#stx-e - _%tl163811163845%_)))) - (let ((_%hd163813163851%_ + _%tl165098165132%_)))) + (let ((_%hd165100165138%_ (let () (declare (not safe)) - (##car _%e163812163848%_))) - (_%tl163814163853%_ + (##car _%e165099165135%_))) + (_%tl165101165140%_ (let () (declare (not safe)) - (##cdr _%e163812163848%_)))) + (##cdr _%e165099165135%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163814163853%_)) - ((lambda (_%L163856%_ - _%L163857%_ - _%L163858%_) - (let ((__obj170823 + _%tl165101165140%_)) + ((lambda (_%L165143%_ + _%L165144%_ + _%L165145%_) + (let ((__obj172110 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!accessor::t '#f '#f '#f '#f)))) - (let ((__tmp170989 + (let ((__tmp172276 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163858%_))) - (__tmp170988 - (let () (declare (not safe)) (gx#stx-e _%L163857%_))) - (__tmp170987 + (gxc#identifier-symbol _%L165145%_))) + (__tmp172275 + (let () (declare (not safe)) (gx#stx-e _%L165144%_))) + (__tmp172274 (let () (declare (not safe)) - (gx#stx-e _%L163856%_)))) + (gx#stx-e _%L165143%_)))) (declare (not safe)) (gxc#!accessor:::init! - __obj170823 - __tmp170989 - __tmp170988 - __tmp170987)) - __obj170823)) - _%hd163813163851%_ - _%hd163810163843%_ - _%hd163807163835%_) - (_%g163798163819%_ _%g163799163822%_)))) + __obj172110 + __tmp172276 + __tmp172275 + __tmp172274)) + __obj172110)) + _%hd165100165138%_ + _%hd165097165130%_ + _%hd165094165122%_) + (_%g165085165106%_ _%g165086165109%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g163798163819%_ - _%g163799163822%_)))) - (_%g163798163819%_ _%g163799163822%_)))) - (_%g163798163819%_ _%g163799163822%_)))) - (_%g163798163819%_ _%g163799163822%_))))) - (_%g163797163876%_ _%ann163796%_)))) + (_%g165085165106%_ + _%g165086165109%_)))) + (_%g165085165106%_ _%g165086165109%_)))) + (_%g165085165106%_ _%g165086165109%_)))) + (_%g165085165106%_ _%g165086165109%_))))) + (_%g165084165163%_ _%ann165083%_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_%stx163711%_ _%ann163712%_) - (let* ((_%g163714163735%_ - (lambda (_%g163715163732%_) + (lambda (_%stx164998%_ _%ann164999%_) + (let* ((_%g165001165022%_ + (lambda (_%g165002165019%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163715163732%_)))) - (_%g163713163792%_ - (lambda (_%g163715163738%_) + _%g165002165019%_)))) + (_%g165000165079%_ + (lambda (_%g165002165025%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163715163738%_)) - (let ((_%e163719163740%_ + (gx#stx-pair? _%g165002165025%_)) + (let ((_%e165006165027%_ (let () (declare (not safe)) - (gx#stx-e _%g163715163738%_)))) - (let ((_%hd163720163743%_ + (gx#stx-e _%g165002165025%_)))) + (let ((_%hd165007165030%_ (let () (declare (not safe)) - (##car _%e163719163740%_))) - (_%tl163721163745%_ + (##car _%e165006165027%_))) + (_%tl165008165032%_ (let () (declare (not safe)) - (##cdr _%e163719163740%_)))) + (##cdr _%e165006165027%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163721163745%_)) - (let ((_%e163722163748%_ + (gx#stx-pair? _%tl165008165032%_)) + (let ((_%e165009165035%_ (let () (declare (not safe)) - (gx#stx-e _%tl163721163745%_)))) - (let ((_%hd163723163751%_ + (gx#stx-e _%tl165008165032%_)))) + (let ((_%hd165010165038%_ (let () (declare (not safe)) - (##car _%e163722163748%_))) - (_%tl163724163753%_ + (##car _%e165009165035%_))) + (_%tl165011165040%_ (let () (declare (not safe)) - (##cdr _%e163722163748%_)))) + (##cdr _%e165009165035%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163724163753%_)) - (let ((_%e163725163756%_ + (gx#stx-pair? _%tl165011165040%_)) + (let ((_%e165012165043%_ (let () (declare (not safe)) - (gx#stx-e _%tl163724163753%_)))) - (let ((_%hd163726163759%_ + (gx#stx-e _%tl165011165040%_)))) + (let ((_%hd165013165046%_ (let () (declare (not safe)) - (##car _%e163725163756%_))) - (_%tl163727163761%_ + (##car _%e165012165043%_))) + (_%tl165014165048%_ (let () (declare (not safe)) - (##cdr _%e163725163756%_)))) + (##cdr _%e165012165043%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163727163761%_)) - (let ((_%e163728163764%_ + _%tl165014165048%_)) + (let ((_%e165015165051%_ (let () (declare (not safe)) (gx#stx-e - _%tl163727163761%_)))) - (let ((_%hd163729163767%_ + _%tl165014165048%_)))) + (let ((_%hd165016165054%_ (let () (declare (not safe)) - (##car _%e163728163764%_))) - (_%tl163730163769%_ + (##car _%e165015165051%_))) + (_%tl165017165056%_ (let () (declare (not safe)) - (##cdr _%e163728163764%_)))) + (##cdr _%e165015165051%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163730163769%_)) - ((lambda (_%L163772%_ - _%L163773%_ - _%L163774%_) - (let ((__obj170824 + _%tl165017165056%_)) + ((lambda (_%L165059%_ + _%L165060%_ + _%L165061%_) + (let ((__obj172111 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!mutator::t '#f '#f '#f '#f)))) - (let ((__tmp170992 + (let ((__tmp172279 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163774%_))) - (__tmp170991 - (let () (declare (not safe)) (gx#stx-e _%L163773%_))) - (__tmp170990 + (gxc#identifier-symbol _%L165061%_))) + (__tmp172278 + (let () (declare (not safe)) (gx#stx-e _%L165060%_))) + (__tmp172277 (let () (declare (not safe)) - (gx#stx-e _%L163772%_)))) + (gx#stx-e _%L165059%_)))) (declare (not safe)) (gxc#!mutator:::init! - __obj170824 - __tmp170992 - __tmp170991 - __tmp170990)) - __obj170824)) - _%hd163729163767%_ - _%hd163726163759%_ - _%hd163723163751%_) - (_%g163714163735%_ _%g163715163738%_)))) + __obj172111 + __tmp172279 + __tmp172278 + __tmp172277)) + __obj172111)) + _%hd165016165054%_ + _%hd165013165046%_ + _%hd165010165038%_) + (_%g165001165022%_ _%g165002165025%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g163714163735%_ - _%g163715163738%_)))) - (_%g163714163735%_ _%g163715163738%_)))) - (_%g163714163735%_ _%g163715163738%_)))) - (_%g163714163735%_ _%g163715163738%_))))) - (_%g163713163792%_ _%ann163712%_)))) + (_%g165001165022%_ + _%g165002165025%_)))) + (_%g165001165022%_ _%g165002165025%_)))) + (_%g165001165022%_ _%g165002165025%_)))) + (_%g165001165022%_ _%g165002165025%_))))) + (_%g165000165079%_ _%ann164999%_)))) (define gxc#basic-expression-type-annotation-interface - (lambda (_%stx163643%_ _%ann163644%_) - (let* ((_%g163646163663%_ - (lambda (_%g163647163660%_) + (lambda (_%stx164930%_ _%ann164931%_) + (let* ((_%g164933164950%_ + (lambda (_%g164934164947%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163647163660%_)))) - (_%g163645163708%_ - (lambda (_%g163647163666%_) + _%g164934164947%_)))) + (_%g164932164995%_ + (lambda (_%g164934164953%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163647163666%_)) - (let ((_%e163650163668%_ + (gx#stx-pair? _%g164934164953%_)) + (let ((_%e164937164955%_ (let () (declare (not safe)) - (gx#stx-e _%g163647163666%_)))) - (let ((_%hd163651163671%_ + (gx#stx-e _%g164934164953%_)))) + (let ((_%hd164938164958%_ (let () (declare (not safe)) - (##car _%e163650163668%_))) - (_%tl163652163673%_ + (##car _%e164937164955%_))) + (_%tl164939164960%_ (let () (declare (not safe)) - (##cdr _%e163650163668%_)))) + (##cdr _%e164937164955%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163652163673%_)) - (let ((_%e163653163676%_ + (gx#stx-pair? _%tl164939164960%_)) + (let ((_%e164940164963%_ (let () (declare (not safe)) - (gx#stx-e _%tl163652163673%_)))) - (let ((_%hd163654163679%_ + (gx#stx-e _%tl164939164960%_)))) + (let ((_%hd164941164966%_ (let () (declare (not safe)) - (##car _%e163653163676%_))) - (_%tl163655163681%_ + (##car _%e164940164963%_))) + (_%tl164942164968%_ (let () (declare (not safe)) - (##cdr _%e163653163676%_)))) + (##cdr _%e164940164963%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163655163681%_)) - (let ((_%e163656163684%_ + (gx#stx-pair? _%tl164942164968%_)) + (let ((_%e164943164971%_ (let () (declare (not safe)) - (gx#stx-e _%tl163655163681%_)))) - (let ((_%hd163657163687%_ + (gx#stx-e _%tl164942164968%_)))) + (let ((_%hd164944164974%_ (let () (declare (not safe)) - (##car _%e163656163684%_))) - (_%tl163658163689%_ + (##car _%e164943164971%_))) + (_%tl164945164976%_ (let () (declare (not safe)) - (##cdr _%e163656163684%_)))) + (##cdr _%e164943164971%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163658163689%_)) - ((lambda (_%L163692%_ - _%L163693%_) - (let ((__tmp170994 + _%tl164945164976%_)) + ((lambda (_%L164979%_ + _%L164980%_) + (let ((__tmp172281 (let () (declare (not safe)) (gxc#identifier-symbol - _%L163693%_))) - (__tmp170993 + _%L164980%_))) + (__tmp172280 (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L163692%_)))) + _%L164979%_)))) (declare (not safe)) (##structure gxc#!interface::t - __tmp170994 - __tmp170993))) - _%hd163657163687%_ - _%hd163654163679%_) - (_%g163646163663%_ - _%g163647163666%_)))) - (_%g163646163663%_ _%g163647163666%_)))) - (_%g163646163663%_ _%g163647163666%_)))) - (_%g163646163663%_ _%g163647163666%_))))) - (_%g163645163708%_ _%ann163644%_)))) + __tmp172281 + __tmp172280))) + _%hd164944164974%_ + _%hd164941164966%_) + (_%g164933164950%_ + _%g164934164953%_)))) + (_%g164933164950%_ _%g164934164953%_)))) + (_%g164933164950%_ _%g164934164953%_)))) + (_%g164933164950%_ _%g164934164953%_))))) + (_%g164932164995%_ _%ann164931%_)))) (define gxc#basic-expression-type-annotation-predicate - (lambda (_%stx163591%_ _%ann163592%_) - (let* ((_%g163594163607%_ - (lambda (_%g163595163604%_) + (lambda (_%stx164878%_ _%ann164879%_) + (let* ((_%g164881164894%_ + (lambda (_%g164882164891%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163595163604%_)))) - (_%g163593163640%_ - (lambda (_%g163595163610%_) + _%g164882164891%_)))) + (_%g164880164927%_ + (lambda (_%g164882164897%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163595163610%_)) - (let ((_%e163597163612%_ + (gx#stx-pair? _%g164882164897%_)) + (let ((_%e164884164899%_ (let () (declare (not safe)) - (gx#stx-e _%g163595163610%_)))) - (let ((_%hd163598163615%_ + (gx#stx-e _%g164882164897%_)))) + (let ((_%hd164885164902%_ (let () (declare (not safe)) - (##car _%e163597163612%_))) - (_%tl163599163617%_ + (##car _%e164884164899%_))) + (_%tl164886164904%_ (let () (declare (not safe)) - (##cdr _%e163597163612%_)))) + (##cdr _%e164884164899%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163599163617%_)) - (let ((_%e163600163620%_ + (gx#stx-pair? _%tl164886164904%_)) + (let ((_%e164887164907%_ (let () (declare (not safe)) - (gx#stx-e _%tl163599163617%_)))) - (let ((_%hd163601163623%_ + (gx#stx-e _%tl164886164904%_)))) + (let ((_%hd164888164910%_ (let () (declare (not safe)) - (##car _%e163600163620%_))) - (_%tl163602163625%_ + (##car _%e164887164907%_))) + (_%tl164889164912%_ (let () (declare (not safe)) - (##cdr _%e163600163620%_)))) + (##cdr _%e164887164907%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163602163625%_)) - ((lambda (_%L163628%_) - (let ((__obj170825 + (gx#stx-null? _%tl164889164912%_)) + ((lambda (_%L164915%_) + (let ((__obj172112 (let () (declare (not safe)) (##structure gxc#!primitive-predicate::t '#f '#f)))) - (let ((__tmp170995 + (let ((__tmp172282 (let () (declare (not safe)) (gxc#identifier-symbol - _%L163628%_)))) + _%L164915%_)))) (declare (not safe)) (gxc#!primitive-predicate:::init! - __obj170825 - __tmp170995)) - __obj170825)) - _%hd163601163623%_) - (_%g163594163607%_ _%g163595163610%_)))) - (_%g163594163607%_ _%g163595163610%_)))) - (_%g163594163607%_ _%g163595163610%_))))) - (_%g163593163640%_ _%ann163592%_)))) + __obj172112 + __tmp172282)) + __obj172112)) + _%hd164888164910%_) + (_%g164881164894%_ _%g164882164897%_)))) + (_%g164881164894%_ _%g164882164897%_)))) + (_%g164881164894%_ _%g164882164897%_))))) + (_%g164880164927%_ _%ann164879%_)))) (define gxc#basic-expression-type-annotation-abort - (lambda (_%stx163561%_ _%ann163562%_) - (let* ((_%g163564163573%_ - (lambda (_%g163565163570%_) + (lambda (_%stx164848%_ _%ann164849%_) + (let* ((_%g164851164860%_ + (lambda (_%g164852164857%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163565163570%_)))) - (_%g163563163588%_ - (lambda (_%g163565163576%_) + _%g164852164857%_)))) + (_%g164850164875%_ + (lambda (_%g164852164863%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163565163576%_)) - (let ((_%e163566163578%_ + (gx#stx-pair? _%g164852164863%_)) + (let ((_%e164853164865%_ (let () (declare (not safe)) - (gx#stx-e _%g163565163576%_)))) - (let ((_%hd163567163581%_ + (gx#stx-e _%g164852164863%_)))) + (let ((_%hd164854164868%_ (let () (declare (not safe)) - (##car _%e163566163578%_))) - (_%tl163568163583%_ + (##car _%e164853164865%_))) + (_%tl164855164870%_ (let () (declare (not safe)) - (##cdr _%e163566163578%_)))) + (##cdr _%e164853164865%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163568163583%_)) + (gx#stx-null? _%tl164855164870%_)) ((lambda () - (let ((__obj170826 + (let ((__obj172113 (let () (declare (not safe)) (##structure gxc#!abort::t '#f)))) (let () (declare (not safe)) - (gxc#!abort:::init! __obj170826)) - __obj170826))) - (_%g163564163573%_ _%g163565163576%_)))) - (_%g163564163573%_ _%g163565163576%_))))) - (_%g163563163588%_ _%ann163562%_)))) + (gxc#!abort:::init! __obj172113)) + __obj172113))) + (_%g164851164860%_ _%g164852164863%_)))) + (_%g164851164860%_ _%g164852164863%_))))) + (_%g164850164875%_ _%ann164849%_)))) (let () (declare (not safe)) (__hash-put! @@ -9015,19 +9015,19 @@ '@abort gxc#basic-expression-type-annotation-abort)) (define gxc#raw-expression-type-lambda% - (lambda (_%self163493%_ _%stx163494%_) - (let* ((_%__stx168664168665%_ _%stx163494%_) - (_%g163497163511%_ + (lambda (_%self164780%_ _%stx164781%_) + (let* ((_%__stx169951169952%_ _%stx164781%_) + (_%g164784164798%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168664168665%_))))) - (let ((_%__kont168666168667%_ - (lambda (_%L163549%_) - (let ((__obj170827 + _%__stx169951169952%_))))) + (let ((_%__kont169953169954%_ + (lambda (_%L164836%_) + (let ((__obj172114 (let () (declare (not safe)) (##structure @@ -9038,22 +9038,22 @@ '#f '#f '#f)))) - (let ((__tmp170997 (gxc#lambda-form-arity _%L163549%_)) - (__tmp170996 - (gxc#dispatch-lambda-form-delegate _%L163549%_))) + (let ((__tmp172284 (gxc#lambda-form-arity _%L164836%_)) + (__tmp172283 + (gxc#dispatch-lambda-form-delegate _%L164836%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f absent-value - __obj170827 - __tmp170997 - __tmp170996)) - __obj170827))) - (_%__kont168668168669%_ - (lambda (_%L163524%_) - (let* ((_%signature163534%_ - (gxc#lambda-form-infer-signature _%L163524%_)) - (__obj170828 + __obj172114 + __tmp172284 + __tmp172283)) + __obj172114))) + (_%__kont169955169956%_ + (lambda (_%L164811%_) + (let* ((_%signature164821%_ + (gxc#lambda-form-infer-signature _%L164811%_)) + (__obj172115 (let () (declare (not safe)) (##structure @@ -9064,98 +9064,98 @@ '#f '#f '#f)))) - (let ((__tmp170998 (gxc#lambda-form-arity _%L163524%_))) + (let ((__tmp172285 (gxc#lambda-form-arity _%L164811%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature163534%_ - __obj170828 - __tmp170998 + _%signature164821%_ + __obj172115 + __tmp172285 '#f)) - __obj170828)))) - (let ((_%__match168675168676%_ - (lambda (_%e163500163541%_ - _%hd163501163544%_ - _%tl163502163546%_) - (let ((_%L163549%_ _%tl163502163546%_)) - (if (gxc#dispatch-lambda-form? _%L163549%_) - (_%__kont168666168667%_ _%L163549%_) - (_%__kont168668168669%_ _%tl163502163546%_)))))) + __obj172115)))) + (let ((_%__match169962169963%_ + (lambda (_%e164787164828%_ + _%hd164788164831%_ + _%tl164789164833%_) + (let ((_%L164836%_ _%tl164789164833%_)) + (if (gxc#dispatch-lambda-form? _%L164836%_) + (_%__kont169953169954%_ _%L164836%_) + (_%__kont169955169956%_ _%tl164789164833%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168664168665%_)) - (let ((_%e163500163541%_ + (gx#stx-pair? _%__stx169951169952%_)) + (let ((_%e164787164828%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168664168665%_)))) - (let ((_%tl163502163546%_ + (gx#stx-e _%__stx169951169952%_)))) + (let ((_%tl164789164833%_ (let () (declare (not safe)) - (##cdr _%e163500163541%_))) - (_%hd163501163544%_ + (##cdr _%e164787164828%_))) + (_%hd164788164831%_ (let () (declare (not safe)) - (##car _%e163500163541%_)))) - (_%__match168675168676%_ - _%e163500163541%_ - _%hd163501163544%_ - _%tl163502163546%_))) - (let () (declare (not safe)) (_%g163497163511%_)))))))) + (##car _%e164787164828%_)))) + (_%__match169962169963%_ + _%e164787164828%_ + _%hd164788164831%_ + _%tl164789164833%_))) + (let () (declare (not safe)) (_%g164784164798%_)))))))) (define gxc#basic-expression-type-lambda% - (lambda (_%self162637%_ _%stx162638%_) - (let* ((_%__stx168684168685%_ _%stx162638%_) - (_%g162643162835%_ + (lambda (_%self163924%_ _%stx163925%_) + (let* ((_%__stx169971169972%_ _%stx163925%_) + (_%g163930164122%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168684168685%_))))) - (let ((_%__kont168686168687%_ - (lambda (_%L163430%_ - _%L163431%_ - _%L163432%_ - _%L163433%_ - _%L163434%_ - _%L163435%_) - (let* ((_%tab163485%_ + _%__stx169971169972%_))))) + (let ((_%__kont169973169974%_ + (lambda (_%L164717%_ + _%L164718%_ + _%L164719%_ + _%L164720%_ + _%L164721%_ + _%L164722%_) + (let* ((_%tab164772%_ (let () (declare (not safe)) - (gx#stx-e _%L163432%_))) - (_%keys163487%_ - (if _%tab163485%_ - (let ((__tmp170999 - (vector->list _%tab163485%_))) + (gx#stx-e _%L164719%_))) + (_%keys164774%_ + (if _%tab164772%_ + (let ((__tmp172286 + (vector->list _%tab164772%_))) (declare (not safe)) - (##filter identity __tmp170999)) + (##filter identity __tmp172286)) '#f)) - (__obj170829 + (__obj172116 (let () (declare (not safe)) (##structure gxc#!kw-lambda::t '#f '#f '#f '#f)))) - (let ((__tmp171000 + (let ((__tmp172287 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163431%_)))) + (gxc#identifier-symbol _%L164718%_)))) (declare (not safe)) (gxc#!kw-lambda:::init! - __obj170829 - _%keys163487%_ - __tmp171000)) - __obj170829))) - (_%__kont168688168689%_ - (lambda (_%L163163%_ - _%L163164%_ - _%L163165%_ - _%L163166%_ - _%L163167%_ - _%L163168%_ - _%L163169%_ - _%L163170%_ - _%L163171%_ - _%L163172%_) - (let ((__obj170830 + __obj172116 + _%keys164774%_ + __tmp172287)) + __obj172116))) + (_%__kont169975169976%_ + (lambda (_%L164450%_ + _%L164451%_ + _%L164452%_ + _%L164453%_ + _%L164454%_ + _%L164455%_ + _%L164456%_ + _%L164457%_ + _%L164458%_ + _%L164459%_) + (let ((__obj172117 (let () (declare (not safe)) (##structure @@ -9164,28 +9164,28 @@ '#f '#f '#f)))) - (let ((__tmp171002 + (let ((__tmp172289 (map gx#stx-e - (let ((__tmp171003 - (lambda (_%g163265163268%_ - _%g163266163270%_) - (cons _%g163265163268%_ - _%g163266163270%_)))) + (let ((__tmp172290 + (lambda (_%g164552164555%_ + _%g164553164557%_) + (cons _%g164552164555%_ + _%g164553164557%_)))) (declare (not safe)) - (__foldr1 __tmp171003 '() _%L163165%_)))) - (__tmp171001 + (__foldr1 __tmp172290 '() _%L164452%_)))) + (__tmp172288 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163169%_)))) + (gxc#identifier-symbol _%L164456%_)))) (declare (not safe)) (gxc#!kw-lambda-primary:::init! - __obj170830 - __tmp171002 - __tmp171001)) - __obj170830))) - (_%__kont168692168693%_ - (lambda (_%L162873%_) - (let ((__obj170831 + __obj172117 + __tmp172289 + __tmp172288)) + __obj172117))) + (_%__kont169979169980%_ + (lambda (_%L164160%_) + (let ((__obj172118 (let () (declare (not safe)) (##structure @@ -9196,22 +9196,22 @@ '#f '#f '#f)))) - (let ((__tmp171005 (gxc#lambda-form-arity _%L162873%_)) - (__tmp171004 - (gxc#dispatch-lambda-form-delegate _%L162873%_))) + (let ((__tmp172292 (gxc#lambda-form-arity _%L164160%_)) + (__tmp172291 + (gxc#dispatch-lambda-form-delegate _%L164160%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f absent-value - __obj170831 - __tmp171005 - __tmp171004)) - __obj170831))) - (_%__kont168694168695%_ - (lambda (_%L162848%_) - (let* ((_%signature162858%_ - (gxc#lambda-form-infer-signature _%L162848%_)) - (__obj170832 + __obj172118 + __tmp172292 + __tmp172291)) + __obj172118))) + (_%__kont169981169982%_ + (lambda (_%L164135%_) + (let* ((_%signature164145%_ + (gxc#lambda-form-infer-signature _%L164135%_)) + (__obj172119 (let () (declare (not safe)) (##structure @@ -9222,1937 +9222,1937 @@ '#f '#f '#f)))) - (let ((__tmp171006 (gxc#lambda-form-arity _%L162848%_))) + (let ((__tmp172293 (gxc#lambda-form-arity _%L164135%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature162858%_ - __obj170832 - __tmp171006 + _%signature164145%_ + __obj172119 + __tmp172293 '#f)) - __obj170832)))) - (let* ((_%__match168993168994%_ - (lambda (_%e162824162865%_ - _%hd162825162868%_ - _%tl162826162870%_) - (let ((_%L162873%_ _%tl162826162870%_)) - (if (gxc#dispatch-lambda-form? _%L162873%_) - (_%__kont168692168693%_ _%L162873%_) - (_%__kont168694168695%_ _%tl162826162870%_))))) - (_%__match168987168988%_ - (lambda (_%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_ - _%e162721162895%_ - _%hd162722162898%_ - _%tl162723162900%_ - _%e162724162903%_ - _%hd162725162906%_ - _%tl162726162908%_ - _%e162727162911%_ - _%hd162728162914%_ - _%tl162729162916%_ - _%e162730162919%_ - _%hd162731162922%_ - _%tl162732162924%_ - _%e162733162927%_ - _%hd162734162930%_ - _%tl162735162932%_ - _%e162736162935%_ - _%hd162737162938%_ - _%tl162738162940%_ - _%e162739162943%_ - _%hd162740162946%_ - _%tl162741162948%_ - _%e162742162951%_ - _%hd162743162954%_ - _%tl162744162956%_ - _%e162745162959%_ - _%hd162746162962%_ - _%tl162747162964%_ - _%e162748162967%_ - _%hd162749162970%_ - _%tl162750162972%_ - _%e162751162975%_ - _%hd162752162978%_ - _%tl162753162980%_ - _%e162754162983%_ - _%hd162755162986%_ - _%tl162756162988%_ - _%e162757162991%_ - _%hd162758162994%_ - _%tl162759162996%_ - _%__splice168690168691%_ - _%target162760162999%_ - _%tl162762163001%_ - _%e162775163004%_ - _%hd162776163007%_ - _%tl162777163009%_ - _%e162778163012%_ - _%hd162779163015%_ - _%tl162780163017%_ - _%e162781163020%_ - _%hd162782163023%_ - _%tl162783163025%_) - (letrec ((_%loop162763163028%_ - (lambda (_%hd162761163031%_ - _%-absent-value162767163033%_ - _%key162768163035%_ - _%-xkwvar162769163037%_ - _%-hash-ref162770163039%_) + __obj172119)))) + (let* ((_%__match170280170281%_ + (lambda (_%e164111164152%_ + _%hd164112164155%_ + _%tl164113164157%_) + (let ((_%L164160%_ _%tl164113164157%_)) + (if (gxc#dispatch-lambda-form? _%L164160%_) + (_%__kont169979169980%_ _%L164160%_) + (_%__kont169981169982%_ _%tl164113164157%_))))) + (_%__match170274170275%_ + (lambda (_%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_ + _%e164008164182%_ + _%hd164009164185%_ + _%tl164010164187%_ + _%e164011164190%_ + _%hd164012164193%_ + _%tl164013164195%_ + _%e164014164198%_ + _%hd164015164201%_ + _%tl164016164203%_ + _%e164017164206%_ + _%hd164018164209%_ + _%tl164019164211%_ + _%e164020164214%_ + _%hd164021164217%_ + _%tl164022164219%_ + _%e164023164222%_ + _%hd164024164225%_ + _%tl164025164227%_ + _%e164026164230%_ + _%hd164027164233%_ + _%tl164028164235%_ + _%e164029164238%_ + _%hd164030164241%_ + _%tl164031164243%_ + _%e164032164246%_ + _%hd164033164249%_ + _%tl164034164251%_ + _%e164035164254%_ + _%hd164036164257%_ + _%tl164037164259%_ + _%e164038164262%_ + _%hd164039164265%_ + _%tl164040164267%_ + _%e164041164270%_ + _%hd164042164273%_ + _%tl164043164275%_ + _%e164044164278%_ + _%hd164045164281%_ + _%tl164046164283%_ + _%__splice169977169978%_ + _%target164047164286%_ + _%tl164049164288%_ + _%e164062164291%_ + _%hd164063164294%_ + _%tl164064164296%_ + _%e164065164299%_ + _%hd164066164302%_ + _%tl164067164304%_ + _%e164068164307%_ + _%hd164069164310%_ + _%tl164070164312%_) + (letrec ((_%loop164050164315%_ + (lambda (_%hd164048164318%_ + _%-absent-value164054164320%_ + _%key164055164322%_ + _%-xkwvar164056164324%_ + _%-hash-ref164057164326%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162761163031%_)) - (let ((_%e162764163042%_ + (gx#stx-pair? _%hd164048164318%_)) + (let ((_%e164051164329%_ (let () (declare (not safe)) - (gx#stx-e _%hd162761163031%_)))) - (let ((_%lp-tl162766163047%_ + (gx#stx-e _%hd164048164318%_)))) + (let ((_%lp-tl164053164334%_ (let () (declare (not safe)) - (##cdr _%e162764163042%_))) - (_%lp-hd162765163045%_ + (##cdr _%e164051164329%_))) + (_%lp-hd164052164332%_ (let () (declare (not safe)) - (##car _%e162764163042%_)))) + (##car _%e164051164329%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd162765163045%_)) - (let ((_%e162784163050%_ + _%lp-hd164052164332%_)) + (let ((_%e164071164337%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd162765163045%_)))) - (let ((_%tl162786163055%_ + _%lp-hd164052164332%_)))) + (let ((_%tl164073164342%_ (let () (declare (not safe)) - (##cdr _%e162784163050%_))) - (_%hd162785163053%_ + (##cdr _%e164071164337%_))) + (_%hd164072164340%_ (let () (declare (not safe)) - (##car _%e162784163050%_)))) + (##car _%e164071164337%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162785163053%_)) + _%hd164072164340%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd162785163053%_)) + _%hd164072164340%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl162786163055%_)) - (let ((_%e162787163058%_ + (gx#stx-pair? _%tl164073164342%_)) + (let ((_%e164074164345%_ (let () (declare (not safe)) - (gx#stx-e _%tl162786163055%_)))) - (let ((_%tl162789163063%_ + (gx#stx-e _%tl164073164342%_)))) + (let ((_%tl164076164350%_ (let () (declare (not safe)) - (##cdr _%e162787163058%_))) - (_%hd162788163061%_ + (##cdr _%e164074164345%_))) + (_%hd164075164348%_ (let () (declare (not safe)) - (##car _%e162787163058%_)))) + (##car _%e164074164345%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162788163061%_)) - (let ((_%e162790163066%_ + (gx#stx-pair? _%hd164075164348%_)) + (let ((_%e164077164353%_ (let () (declare (not safe)) - (gx#stx-e _%hd162788163061%_)))) - (let ((_%tl162792163071%_ + (gx#stx-e _%hd164075164348%_)))) + (let ((_%tl164079164358%_ (let () (declare (not safe)) - (##cdr _%e162790163066%_))) - (_%hd162791163069%_ + (##cdr _%e164077164353%_))) + (_%hd164078164356%_ (let () (declare (not safe)) - (##car _%e162790163066%_)))) + (##car _%e164077164353%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162791163069%_)) + (gx#identifier? _%hd164078164356%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd162791163069%_)) + _%hd164078164356%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162792163071%_)) - (let ((_%e162793163074%_ + _%tl164079164358%_)) + (let ((_%e164080164361%_ (let () (declare (not safe)) (gx#stx-e - _%tl162792163071%_)))) - (let ((_%tl162795163079%_ + _%tl164079164358%_)))) + (let ((_%tl164082164366%_ (let () (declare (not safe)) - (##cdr _%e162793163074%_))) - (_%hd162794163077%_ + (##cdr _%e164080164361%_))) + (_%hd164081164364%_ (let () (declare (not safe)) - (##car _%e162793163074%_)))) + (##car _%e164080164361%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162795163079%_)) + _%tl164082164366%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162789163063%_)) - (let ((_%e162796163082%_ + _%tl164076164350%_)) + (let ((_%e164083164369%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl162789163063%_)))) - (let ((_%tl162798163087%_ + (gx#stx-e _%tl164076164350%_)))) + (let ((_%tl164085164374%_ (let () (declare (not safe)) - (##cdr _%e162796163082%_))) - (_%hd162797163085%_ + (##cdr _%e164083164369%_))) + (_%hd164084164372%_ (let () (declare (not safe)) - (##car _%e162796163082%_)))) + (##car _%e164083164369%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162797163085%_)) - (let ((_%e162799163090%_ + (gx#stx-pair? _%hd164084164372%_)) + (let ((_%e164086164377%_ (let () (declare (not safe)) - (gx#stx-e _%hd162797163085%_)))) - (let ((_%tl162801163095%_ + (gx#stx-e _%hd164084164372%_)))) + (let ((_%tl164088164382%_ (let () (declare (not safe)) - (##cdr _%e162799163090%_))) - (_%hd162800163093%_ + (##cdr _%e164086164377%_))) + (_%hd164087164380%_ (let () (declare (not safe)) - (##car _%e162799163090%_)))) + (##car _%e164086164377%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162800163093%_)) + (gx#identifier? _%hd164087164380%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162800163093%_)) + (gx#stx-eq? '%#ref _%hd164087164380%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162801163095%_)) - (let ((_%e162802163098%_ + (gx#stx-pair? _%tl164088164382%_)) + (let ((_%e164089164385%_ (let () (declare (not safe)) (gx#stx-e - _%tl162801163095%_)))) - (let ((_%tl162804163103%_ + _%tl164088164382%_)))) + (let ((_%tl164091164390%_ (let () (declare (not safe)) - (##cdr _%e162802163098%_))) - (_%hd162803163101%_ + (##cdr _%e164089164385%_))) + (_%hd164090164388%_ (let () (declare (not safe)) - (##car _%e162802163098%_)))) + (##car _%e164089164385%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162804163103%_)) + _%tl164091164390%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162798163087%_)) - (let ((_%e162805163106%_ + _%tl164085164374%_)) + (let ((_%e164092164393%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl162798163087%_)))) - (let ((_%tl162807163111%_ - (let () (declare (not safe)) (##cdr _%e162805163106%_))) - (_%hd162806163109%_ + (gx#stx-e _%tl164085164374%_)))) + (let ((_%tl164094164398%_ + (let () (declare (not safe)) (##cdr _%e164092164393%_))) + (_%hd164093164396%_ (let () (declare (not safe)) - (##car _%e162805163106%_)))) + (##car _%e164092164393%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162806163109%_)) - (let ((_%e162808163114%_ + (gx#stx-pair? _%hd164093164396%_)) + (let ((_%e164095164401%_ (let () (declare (not safe)) - (gx#stx-e _%hd162806163109%_)))) - (let ((_%tl162810163119%_ + (gx#stx-e _%hd164093164396%_)))) + (let ((_%tl164097164406%_ (let () (declare (not safe)) - (##cdr _%e162808163114%_))) - (_%hd162809163117%_ + (##cdr _%e164095164401%_))) + (_%hd164096164404%_ (let () (declare (not safe)) - (##car _%e162808163114%_)))) + (##car _%e164095164401%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162809163117%_)) + (gx#identifier? _%hd164096164404%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd162809163117%_)) + (gx#stx-eq? '%#quote _%hd164096164404%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162810163119%_)) - (let ((_%e162811163122%_ + (gx#stx-pair? _%tl164097164406%_)) + (let ((_%e164098164409%_ (let () (declare (not safe)) - (gx#stx-e _%tl162810163119%_)))) - (let ((_%tl162813163127%_ + (gx#stx-e _%tl164097164406%_)))) + (let ((_%tl164100164414%_ (let () (declare (not safe)) - (##cdr _%e162811163122%_))) - (_%hd162812163125%_ + (##cdr _%e164098164409%_))) + (_%hd164099164412%_ (let () (declare (not safe)) - (##car _%e162811163122%_)))) + (##car _%e164098164409%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162813163127%_)) + _%tl164100164414%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162807163111%_)) - (let ((_%e162814163130%_ + _%tl164094164398%_)) + (let ((_%e164101164417%_ (let () (declare (not safe)) (gx#stx-e - _%tl162807163111%_)))) - (let ((_%tl162816163135%_ + _%tl164094164398%_)))) + (let ((_%tl164103164422%_ (let () (declare (not safe)) - (##cdr _%e162814163130%_))) - (_%hd162815163133%_ + (##cdr _%e164101164417%_))) + (_%hd164102164420%_ (let () (declare (not safe)) - (##car _%e162814163130%_)))) + (##car _%e164101164417%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162815163133%_)) - (let ((_%e162817163138%_ + _%hd164102164420%_)) + (let ((_%e164104164425%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd162815163133%_)))) - (let ((_%tl162819163143%_ + (gx#stx-e _%hd164102164420%_)))) + (let ((_%tl164106164430%_ (let () (declare (not safe)) - (##cdr _%e162817163138%_))) - (_%hd162818163141%_ + (##cdr _%e164104164425%_))) + (_%hd164105164428%_ (let () (declare (not safe)) - (##car _%e162817163138%_)))) + (##car _%e164104164425%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162818163141%_)) + (gx#identifier? _%hd164105164428%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162818163141%_)) + (gx#stx-eq? '%#ref _%hd164105164428%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162819163143%_)) - (let ((_%e162820163146%_ + (gx#stx-pair? _%tl164106164430%_)) + (let ((_%e164107164433%_ (let () (declare (not safe)) - (gx#stx-e _%tl162819163143%_)))) - (let ((_%tl162822163151%_ + (gx#stx-e _%tl164106164430%_)))) + (let ((_%tl164109164438%_ (let () (declare (not safe)) - (##cdr _%e162820163146%_))) - (_%hd162821163149%_ + (##cdr _%e164107164433%_))) + (_%hd164108164436%_ (let () (declare (not safe)) - (##car _%e162820163146%_)))) + (##car _%e164107164433%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162822163151%_)) + (gx#stx-null? _%tl164109164438%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162816163135%_)) - (_%loop162763163028%_ - _%lp-tl162766163047%_ - (cons _%hd162821163149%_ - _%-absent-value162767163033%_) - (cons _%hd162812163125%_ - _%key162768163035%_) - (cons _%hd162803163101%_ - _%-xkwvar162769163037%_) - (cons _%hd162794163077%_ - _%-hash-ref162770163039%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) + _%tl164103164422%_)) + (_%loop164050164315%_ + _%lp-tl164053164334%_ + (cons _%hd164108164436%_ + _%-absent-value164054164320%_) + (cons _%hd164099164412%_ + _%key164055164322%_) + (cons _%hd164090164388%_ + _%-xkwvar164056164324%_) + (cons _%hd164081164364%_ + _%-hash-ref164057164326%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (let ((_%-hash-ref162774163160%_ - (reverse _%-hash-ref162770163039%_)) - (_%-xkwvar162773163158%_ - (reverse _%-xkwvar162769163037%_)) - (_%key162772163156%_ - (reverse _%key162768163035%_)) - (_%-absent-value162771163154%_ - (reverse _%-absent-value162767163033%_))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (let ((_%-hash-ref164061164447%_ + (reverse _%-hash-ref164057164326%_)) + (_%-xkwvar164060164445%_ + (reverse _%-xkwvar164056164324%_)) + (_%key164059164443%_ + (reverse _%key164055164322%_)) + (_%-absent-value164058164441%_ + (reverse _%-absent-value164054164320%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162729162916%_)) - (let ((_%L163163%_ - _%hd162782163023%_) - (_%L163164%_ - _%-absent-value162771163154%_) - (_%L163165%_ - _%key162772163156%_) - (_%L163166%_ - _%-xkwvar162773163158%_) - (_%L163167%_ - _%-hash-ref162774163160%_) - (_%L163168%_ - _%hd162758162994%_) - (_%L163169%_ - _%hd162749162970%_) - (_%L163170%_ - _%hd162740162946%_) - (_%L163171%_ - _%tl162726162908%_) - (_%L163172%_ - _%hd162725162906%_)) + _%tl164016164203%_)) + (let ((_%L164450%_ + _%hd164069164310%_) + (_%L164451%_ + _%-absent-value164058164441%_) + (_%L164452%_ + _%key164059164443%_) + (_%L164453%_ + _%-xkwvar164060164445%_) + (_%L164454%_ + _%-hash-ref164061164447%_) + (_%L164455%_ + _%hd164045164281%_) + (_%L164456%_ + _%hd164036164257%_) + (_%L164457%_ + _%hd164027164233%_) + (_%L164458%_ + _%tl164013164195%_) + (_%L164459%_ + _%hd164012164193%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L163172%_)) + _%L164459%_)) (let () (declare (not safe)) (gx#identifier? - _%L163171%_)) + _%L164458%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L163170%_ + _%L164457%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L163172%_ - _%L163168%_)) - (let ((__tmp171007 - (let ((__tmp171008 + _%L164459%_ + _%L164455%_)) + (let ((__tmp172294 + (let ((__tmp172295 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g163225163228%_ _%g163226163230%_) - (cons _%g163225163228%_ _%g163226163230%_)))) + (lambda (_%g164512164515%_ _%g164513164517%_) + (cons _%g164512164515%_ _%g164513164517%_)))) (declare (not safe)) - (__foldr1 __tmp171008 '() _%L163165%_)))) + (__foldr1 __tmp172295 '() _%L164452%_)))) (declare (not safe)) - (__andmap1 gx#stx-keyword? __tmp171007)) - (let ((__tmp171011 - (lambda (_%g163232163234%_) + (__andmap1 gx#stx-keyword? __tmp172294)) + (let ((__tmp172298 + (lambda (_%g164519164521%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g163232163234%_ + _%g164519164521%_ 'symbolic-table-ref)))) - (__tmp171009 - (let ((__tmp171010 - (lambda (_%g163236163239%_ _%g163237163241%_) - (cons _%g163236163239%_ _%g163237163241%_)))) + (__tmp172296 + (let ((__tmp172297 + (lambda (_%g164523164526%_ _%g164524164528%_) + (cons _%g164523164526%_ _%g164524164528%_)))) (declare (not safe)) - (__foldr1 __tmp171010 '() _%L163167%_)))) + (__foldr1 __tmp172297 '() _%L164454%_)))) (declare (not safe)) - (__andmap1 __tmp171011 __tmp171009)) - (let ((__tmp171014 - (lambda (_%g163243163245%_) + (__andmap1 __tmp172298 __tmp172296)) + (let ((__tmp172301 + (lambda (_%g164530164532%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g163243163245%_ + _%g164530164532%_ 'absent-value)))) - (__tmp171012 - (let ((__tmp171013 - (lambda (_%g163247163250%_ _%g163248163252%_) - (cons _%g163247163250%_ _%g163248163252%_)))) + (__tmp172299 + (let ((__tmp172300 + (lambda (_%g164534164537%_ _%g164535164539%_) + (cons _%g164534164537%_ _%g164535164539%_)))) (declare (not safe)) - (__foldr1 __tmp171013 '() _%L163164%_)))) + (__foldr1 __tmp172300 '() _%L164451%_)))) (declare (not safe)) - (__andmap1 __tmp171014 __tmp171012)) - (let ((__tmp171017 - (lambda (_%g163254163256%_) + (__andmap1 __tmp172301 __tmp172299)) + (let ((__tmp172304 + (lambda (_%g164541164543%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g163254163256%_ - _%L163172%_)))) - (__tmp171015 - (let ((__tmp171016 - (lambda (_%g163258163261%_ _%g163259163263%_) - (cons _%g163258163261%_ _%g163259163263%_)))) + _%g164541164543%_ + _%L164459%_)))) + (__tmp172302 + (let ((__tmp172303 + (lambda (_%g164545164548%_ _%g164546164550%_) + (cons _%g164545164548%_ _%g164546164550%_)))) (declare (not safe)) - (__foldr1 __tmp171016 '() _%L163166%_)))) + (__foldr1 __tmp172303 '() _%L164453%_)))) (declare (not safe)) - (__andmap1 __tmp171017 __tmp171015))) + (__andmap1 __tmp172304 __tmp172302))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168688168689%_ - _%L163163%_ - _%L163164%_ - _%L163165%_ - _%L163166%_ - _%L163167%_ - _%L163168%_ - _%L163169%_ - _%L163170%_ - _%L163171%_ - _%L163172%_) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_))))))) - (_%loop162763163028%_ - _%target162760162999%_ + (_%__kont169975169976%_ + _%L164450%_ + _%L164451%_ + _%L164452%_ + _%L164453%_ + _%L164454%_ + _%L164455%_ + _%L164456%_ + _%L164457%_ + _%L164458%_ + _%L164459%_) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_))))))) + (_%loop164050164315%_ + _%target164047164286%_ '() '() '() '())))) - (_%__match168859168860%_ - (lambda (_%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_ - _%e162721162895%_ - _%hd162722162898%_ - _%tl162723162900%_) + (_%__match170146170147%_ + (lambda (_%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_ + _%e164008164182%_ + _%hd164009164185%_ + _%tl164010164187%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162722162898%_)) - (let ((_%e162724162903%_ + (gx#stx-pair? _%hd164009164185%_)) + (let ((_%e164011164190%_ (let () (declare (not safe)) - (gx#stx-e _%hd162722162898%_)))) - (let ((_%tl162726162908%_ + (gx#stx-e _%hd164009164185%_)))) + (let ((_%tl164013164195%_ (let () (declare (not safe)) - (##cdr _%e162724162903%_))) - (_%hd162725162906%_ + (##cdr _%e164011164190%_))) + (_%hd164012164193%_ (let () (declare (not safe)) - (##car _%e162724162903%_)))) + (##car _%e164011164190%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162723162900%_)) - (let ((_%e162727162911%_ + (gx#stx-pair? _%tl164010164187%_)) + (let ((_%e164014164198%_ (let () (declare (not safe)) - (gx#stx-e _%tl162723162900%_)))) - (let ((_%tl162729162916%_ + (gx#stx-e _%tl164010164187%_)))) + (let ((_%tl164016164203%_ (let () (declare (not safe)) - (##cdr _%e162727162911%_))) - (_%hd162728162914%_ + (##cdr _%e164014164198%_))) + (_%hd164015164201%_ (let () (declare (not safe)) - (##car _%e162727162911%_)))) + (##car _%e164014164198%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162728162914%_)) - (let ((_%e162730162919%_ + (gx#stx-pair? _%hd164015164201%_)) + (let ((_%e164017164206%_ (let () (declare (not safe)) (gx#stx-e - _%hd162728162914%_)))) - (let ((_%tl162732162924%_ + _%hd164015164201%_)))) + (let ((_%tl164019164211%_ (let () (declare (not safe)) - (##cdr _%e162730162919%_))) - (_%hd162731162922%_ + (##cdr _%e164017164206%_))) + (_%hd164018164209%_ (let () (declare (not safe)) - (##car _%e162730162919%_)))) + (##car _%e164017164206%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162731162922%_)) + _%hd164018164209%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd162731162922%_)) + _%hd164018164209%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162732162924%_)) - (let ((_%e162733162927%_ + _%tl164019164211%_)) + (let ((_%e164020164214%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl162732162924%_)))) - (let ((_%tl162735162932%_ + (gx#stx-e _%tl164019164211%_)))) + (let ((_%tl164022164219%_ (let () (declare (not safe)) - (##cdr _%e162733162927%_))) - (_%hd162734162930%_ + (##cdr _%e164020164214%_))) + (_%hd164021164217%_ (let () (declare (not safe)) - (##car _%e162733162927%_)))) + (##car _%e164020164214%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162734162930%_)) - (let ((_%e162736162935%_ + (gx#stx-pair? _%hd164021164217%_)) + (let ((_%e164023164222%_ (let () (declare (not safe)) - (gx#stx-e _%hd162734162930%_)))) - (let ((_%tl162738162940%_ + (gx#stx-e _%hd164021164217%_)))) + (let ((_%tl164025164227%_ (let () (declare (not safe)) - (##cdr _%e162736162935%_))) - (_%hd162737162938%_ + (##cdr _%e164023164222%_))) + (_%hd164024164225%_ (let () (declare (not safe)) - (##car _%e162736162935%_)))) + (##car _%e164023164222%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162737162938%_)) + (gx#identifier? _%hd164024164225%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162737162938%_)) + (gx#stx-eq? '%#ref _%hd164024164225%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162738162940%_)) - (let ((_%e162739162943%_ + (gx#stx-pair? _%tl164025164227%_)) + (let ((_%e164026164230%_ (let () (declare (not safe)) (gx#stx-e - _%tl162738162940%_)))) - (let ((_%tl162741162948%_ + _%tl164025164227%_)))) + (let ((_%tl164028164235%_ (let () (declare (not safe)) - (##cdr _%e162739162943%_))) - (_%hd162740162946%_ + (##cdr _%e164026164230%_))) + (_%hd164027164233%_ (let () (declare (not safe)) - (##car _%e162739162943%_)))) + (##car _%e164026164230%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162741162948%_)) + _%tl164028164235%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162735162932%_)) - (let ((_%e162742162951%_ + _%tl164022164219%_)) + (let ((_%e164029164238%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl162735162932%_)))) - (let ((_%tl162744162956%_ - (let () (declare (not safe)) (##cdr _%e162742162951%_))) - (_%hd162743162954%_ + (gx#stx-e _%tl164022164219%_)))) + (let ((_%tl164031164243%_ + (let () (declare (not safe)) (##cdr _%e164029164238%_))) + (_%hd164030164241%_ (let () (declare (not safe)) - (##car _%e162742162951%_)))) + (##car _%e164029164238%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162743162954%_)) - (let ((_%e162745162959%_ + (gx#stx-pair? _%hd164030164241%_)) + (let ((_%e164032164246%_ (let () (declare (not safe)) - (gx#stx-e _%hd162743162954%_)))) - (let ((_%tl162747162964%_ + (gx#stx-e _%hd164030164241%_)))) + (let ((_%tl164034164251%_ (let () (declare (not safe)) - (##cdr _%e162745162959%_))) - (_%hd162746162962%_ + (##cdr _%e164032164246%_))) + (_%hd164033164249%_ (let () (declare (not safe)) - (##car _%e162745162959%_)))) + (##car _%e164032164246%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162746162962%_)) + (gx#identifier? _%hd164033164249%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162746162962%_)) + (gx#stx-eq? '%#ref _%hd164033164249%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162747162964%_)) - (let ((_%e162748162967%_ + (gx#stx-pair? _%tl164034164251%_)) + (let ((_%e164035164254%_ (let () (declare (not safe)) - (gx#stx-e _%tl162747162964%_)))) - (let ((_%tl162750162972%_ + (gx#stx-e _%tl164034164251%_)))) + (let ((_%tl164037164259%_ (let () (declare (not safe)) - (##cdr _%e162748162967%_))) - (_%hd162749162970%_ + (##cdr _%e164035164254%_))) + (_%hd164036164257%_ (let () (declare (not safe)) - (##car _%e162748162967%_)))) + (##car _%e164035164254%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162750162972%_)) + _%tl164037164259%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162744162956%_)) - (let ((_%e162751162975%_ + _%tl164031164243%_)) + (let ((_%e164038164262%_ (let () (declare (not safe)) (gx#stx-e - _%tl162744162956%_)))) - (let ((_%tl162753162980%_ + _%tl164031164243%_)))) + (let ((_%tl164040164267%_ (let () (declare (not safe)) - (##cdr _%e162751162975%_))) - (_%hd162752162978%_ + (##cdr _%e164038164262%_))) + (_%hd164039164265%_ (let () (declare (not safe)) - (##car _%e162751162975%_)))) + (##car _%e164038164262%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162752162978%_)) - (let ((_%e162754162983%_ + _%hd164039164265%_)) + (let ((_%e164041164270%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd162752162978%_)))) - (let ((_%tl162756162988%_ + (gx#stx-e _%hd164039164265%_)))) + (let ((_%tl164043164275%_ (let () (declare (not safe)) - (##cdr _%e162754162983%_))) - (_%hd162755162986%_ + (##cdr _%e164041164270%_))) + (_%hd164042164273%_ (let () (declare (not safe)) - (##car _%e162754162983%_)))) + (##car _%e164041164270%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162755162986%_)) + (gx#identifier? _%hd164042164273%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162755162986%_)) + (gx#stx-eq? '%#ref _%hd164042164273%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162756162988%_)) - (let ((_%e162757162991%_ + (gx#stx-pair? _%tl164043164275%_)) + (let ((_%e164044164278%_ (let () (declare (not safe)) - (gx#stx-e _%tl162756162988%_)))) - (let ((_%tl162759162996%_ + (gx#stx-e _%tl164043164275%_)))) + (let ((_%tl164046164283%_ (let () (declare (not safe)) - (##cdr _%e162757162991%_))) - (_%hd162758162994%_ + (##cdr _%e164044164278%_))) + (_%hd164045164281%_ (let () (declare (not safe)) - (##car _%e162757162991%_)))) + (##car _%e164044164278%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162759162996%_)) + (gx#stx-null? _%tl164046164283%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl162753162980%_)) - (if (let ((__tmp171018 + _%tl164040164267%_)) + (if (let ((__tmp172305 (let () (declare (not safe)) (gx#stx-length - _%tl162753162980%_)))) + _%tl164040164267%_)))) (declare (not safe)) - (##fx>= __tmp171018 '1)) - (let ((_%__splice168690168691%_ + (##fx>= __tmp172305 '1)) + (let ((_%__splice169977169978%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl162753162980%_ + _%tl164040164267%_ '1)))) - (let ((_%tl162762163001%_ + (let ((_%tl164049164288%_ (let () (declare (not safe)) (##vector-ref - _%__splice168690168691%_ + _%__splice169977169978%_ '1))) - (_%target162760162999%_ + (_%target164047164286%_ (let () (declare (not safe)) (##vector-ref - _%__splice168690168691%_ + _%__splice169977169978%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162762163001%_)) - (let ((_%e162775163004%_ + _%tl164049164288%_)) + (let ((_%e164062164291%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl162762163001%_)))) - (let ((_%tl162777163009%_ + (gx#stx-e _%tl164049164288%_)))) + (let ((_%tl164064164296%_ (let () (declare (not safe)) - (##cdr _%e162775163004%_))) - (_%hd162776163007%_ + (##cdr _%e164062164291%_))) + (_%hd164063164294%_ (let () (declare (not safe)) - (##car _%e162775163004%_)))) + (##car _%e164062164291%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162776163007%_)) - (let ((_%e162778163012%_ + (gx#stx-pair? _%hd164063164294%_)) + (let ((_%e164065164299%_ (let () (declare (not safe)) - (gx#stx-e _%hd162776163007%_)))) - (let ((_%tl162780163017%_ + (gx#stx-e _%hd164063164294%_)))) + (let ((_%tl164067164304%_ (let () (declare (not safe)) - (##cdr _%e162778163012%_))) - (_%hd162779163015%_ + (##cdr _%e164065164299%_))) + (_%hd164066164302%_ (let () (declare (not safe)) - (##car _%e162778163012%_)))) + (##car _%e164065164299%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162779163015%_)) + (gx#identifier? _%hd164066164302%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162779163015%_)) + (gx#stx-eq? '%#ref _%hd164066164302%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162780163017%_)) - (let ((_%e162781163020%_ + (gx#stx-pair? _%tl164067164304%_)) + (let ((_%e164068164307%_ (let () (declare (not safe)) (gx#stx-e - _%tl162780163017%_)))) - (let ((_%tl162783163025%_ + _%tl164067164304%_)))) + (let ((_%tl164070164312%_ (let () (declare (not safe)) - (##cdr _%e162781163020%_))) - (_%hd162782163023%_ + (##cdr _%e164068164307%_))) + (_%hd164069164310%_ (let () (declare (not safe)) - (##car _%e162781163020%_)))) + (##car _%e164068164307%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162783163025%_)) + _%tl164070164312%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162777163009%_)) - (_%__match168987168988%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_ - _%e162721162895%_ - _%hd162722162898%_ - _%tl162723162900%_ - _%e162724162903%_ - _%hd162725162906%_ - _%tl162726162908%_ - _%e162727162911%_ - _%hd162728162914%_ - _%tl162729162916%_ - _%e162730162919%_ - _%hd162731162922%_ - _%tl162732162924%_ - _%e162733162927%_ - _%hd162734162930%_ - _%tl162735162932%_ - _%e162736162935%_ - _%hd162737162938%_ - _%tl162738162940%_ - _%e162739162943%_ - _%hd162740162946%_ - _%tl162741162948%_ - _%e162742162951%_ - _%hd162743162954%_ - _%tl162744162956%_ - _%e162745162959%_ - _%hd162746162962%_ - _%tl162747162964%_ - _%e162748162967%_ - _%hd162749162970%_ - _%tl162750162972%_ - _%e162751162975%_ - _%hd162752162978%_ - _%tl162753162980%_ - _%e162754162983%_ - _%hd162755162986%_ - _%tl162756162988%_ - _%e162757162991%_ - _%hd162758162994%_ - _%tl162759162996%_ - _%__splice168690168691%_ - _%target162760162999%_ - _%tl162762163001%_ - _%e162775163004%_ - _%hd162776163007%_ - _%tl162777163009%_ - _%e162778163012%_ - _%hd162779163015%_ - _%tl162780163017%_ - _%e162781163020%_ - _%hd162782163023%_ - _%tl162783163025%_) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) + _%tl164064164296%_)) + (_%__match170274170275%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_ + _%e164008164182%_ + _%hd164009164185%_ + _%tl164010164187%_ + _%e164011164190%_ + _%hd164012164193%_ + _%tl164013164195%_ + _%e164014164198%_ + _%hd164015164201%_ + _%tl164016164203%_ + _%e164017164206%_ + _%hd164018164209%_ + _%tl164019164211%_ + _%e164020164214%_ + _%hd164021164217%_ + _%tl164022164219%_ + _%e164023164222%_ + _%hd164024164225%_ + _%tl164025164227%_ + _%e164026164230%_ + _%hd164027164233%_ + _%tl164028164235%_ + _%e164029164238%_ + _%hd164030164241%_ + _%tl164031164243%_ + _%e164032164246%_ + _%hd164033164249%_ + _%tl164034164251%_ + _%e164035164254%_ + _%hd164036164257%_ + _%tl164037164259%_ + _%e164038164262%_ + _%hd164039164265%_ + _%tl164040164267%_ + _%e164041164270%_ + _%hd164042164273%_ + _%tl164043164275%_ + _%e164044164278%_ + _%hd164045164281%_ + _%tl164046164283%_ + _%__splice169977169978%_ + _%target164047164286%_ + _%tl164049164288%_ + _%e164062164291%_ + _%hd164063164294%_ + _%tl164064164296%_ + _%e164065164299%_ + _%hd164066164302%_ + _%tl164067164304%_ + _%e164068164307%_ + _%hd164069164310%_ + _%tl164070164312%_) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168993168994%_ - _%e162718162887%_ - _%hd162719162890%_ - _%tl162720162892%_)))) - (_%__match168847168848%_ - (lambda (_%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_ - _%e162657163294%_ - _%hd162658163297%_ - _%tl162659163299%_ - _%e162660163302%_ - _%hd162661163305%_ - _%tl162662163307%_ - _%e162663163310%_ - _%hd162664163313%_ - _%tl162665163315%_ - _%e162666163318%_ - _%hd162667163321%_ - _%tl162668163323%_ - _%e162669163326%_ - _%hd162670163329%_ - _%tl162671163331%_ - _%e162672163334%_ - _%hd162673163337%_ - _%tl162674163339%_ - _%e162675163342%_ - _%hd162676163345%_ - _%tl162677163347%_ - _%e162678163350%_ - _%hd162679163353%_ - _%tl162680163355%_ - _%e162681163358%_ - _%hd162682163361%_ - _%tl162683163363%_ - _%e162684163366%_ - _%hd162685163369%_ - _%tl162686163371%_ - _%e162687163374%_ - _%hd162688163377%_ - _%tl162689163379%_ - _%e162690163382%_ - _%hd162691163385%_ - _%tl162692163387%_ - _%e162693163390%_ - _%hd162694163393%_ - _%tl162695163395%_ - _%e162696163398%_ - _%hd162697163401%_ - _%tl162698163403%_ - _%e162699163406%_ - _%hd162700163409%_ - _%tl162701163411%_ - _%e162702163414%_ - _%hd162703163417%_ - _%tl162704163419%_ - _%e162705163422%_ - _%hd162706163425%_ - _%tl162707163427%_) - (let ((_%L163430%_ _%hd162706163425%_) - (_%L163431%_ _%hd162697163401%_) - (_%L163432%_ _%hd162688163377%_) - (_%L163433%_ _%hd162679163353%_) - (_%L163434%_ _%hd162670163329%_) - (_%L163435%_ _%hd162655163289%_)) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170280170281%_ + _%e164005164174%_ + _%hd164006164177%_ + _%tl164007164179%_)))) + (_%__match170134170135%_ + (lambda (_%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_ + _%e163944164581%_ + _%hd163945164584%_ + _%tl163946164586%_ + _%e163947164589%_ + _%hd163948164592%_ + _%tl163949164594%_ + _%e163950164597%_ + _%hd163951164600%_ + _%tl163952164602%_ + _%e163953164605%_ + _%hd163954164608%_ + _%tl163955164610%_ + _%e163956164613%_ + _%hd163957164616%_ + _%tl163958164618%_ + _%e163959164621%_ + _%hd163960164624%_ + _%tl163961164626%_ + _%e163962164629%_ + _%hd163963164632%_ + _%tl163964164634%_ + _%e163965164637%_ + _%hd163966164640%_ + _%tl163967164642%_ + _%e163968164645%_ + _%hd163969164648%_ + _%tl163970164650%_ + _%e163971164653%_ + _%hd163972164656%_ + _%tl163973164658%_ + _%e163974164661%_ + _%hd163975164664%_ + _%tl163976164666%_ + _%e163977164669%_ + _%hd163978164672%_ + _%tl163979164674%_ + _%e163980164677%_ + _%hd163981164680%_ + _%tl163982164682%_ + _%e163983164685%_ + _%hd163984164688%_ + _%tl163985164690%_ + _%e163986164693%_ + _%hd163987164696%_ + _%tl163988164698%_ + _%e163989164701%_ + _%hd163990164704%_ + _%tl163991164706%_ + _%e163992164709%_ + _%hd163993164712%_ + _%tl163994164714%_) + (let ((_%L164717%_ _%hd163993164712%_) + (_%L164718%_ _%hd163984164688%_) + (_%L164719%_ _%hd163975164664%_) + (_%L164720%_ _%hd163966164640%_) + (_%L164721%_ _%hd163957164616%_) + (_%L164722%_ _%hd163942164576%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L163435%_)) + (gx#identifier? _%L164722%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L163434%_ + _%L164721%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L163433%_ + _%L164720%_ 'keyword-dispatch)) (let () (declare (not safe)) (gx#free-identifier=? - _%L163435%_ - _%L163430%_))) - (_%__kont168686168687%_ - _%L163430%_ - _%L163431%_ - _%L163432%_ - _%L163433%_ - _%L163434%_ - _%L163435%_) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))))) + _%L164722%_ + _%L164717%_))) + (_%__kont169973169974%_ + _%L164717%_ + _%L164718%_ + _%L164719%_ + _%L164720%_ + _%L164721%_ + _%L164722%_) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168684168685%_)) - (let ((_%e162651163278%_ + (gx#stx-pair? _%__stx169971169972%_)) + (let ((_%e163938164565%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168684168685%_)))) - (let ((_%tl162653163283%_ + (gx#stx-e _%__stx169971169972%_)))) + (let ((_%tl163940164570%_ (let () (declare (not safe)) - (##cdr _%e162651163278%_))) - (_%hd162652163281%_ + (##cdr _%e163938164565%_))) + (_%hd163939164568%_ (let () (declare (not safe)) - (##car _%e162651163278%_)))) + (##car _%e163938164565%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162653163283%_)) - (let ((_%e162654163286%_ + (gx#stx-pair? _%tl163940164570%_)) + (let ((_%e163941164573%_ (let () (declare (not safe)) - (gx#stx-e _%tl162653163283%_)))) - (let ((_%tl162656163291%_ + (gx#stx-e _%tl163940164570%_)))) + (let ((_%tl163943164578%_ (let () (declare (not safe)) - (##cdr _%e162654163286%_))) - (_%hd162655163289%_ + (##cdr _%e163941164573%_))) + (_%hd163942164576%_ (let () (declare (not safe)) - (##car _%e162654163286%_)))) + (##car _%e163941164573%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162656163291%_)) - (let ((_%e162657163294%_ + (gx#stx-pair? _%tl163943164578%_)) + (let ((_%e163944164581%_ (let () (declare (not safe)) - (gx#stx-e _%tl162656163291%_)))) - (let ((_%tl162659163299%_ + (gx#stx-e _%tl163943164578%_)))) + (let ((_%tl163946164586%_ (let () (declare (not safe)) - (##cdr _%e162657163294%_))) - (_%hd162658163297%_ + (##cdr _%e163944164581%_))) + (_%hd163945164584%_ (let () (declare (not safe)) - (##car _%e162657163294%_)))) + (##car _%e163944164581%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162658163297%_)) - (let ((_%e162660163302%_ + (gx#stx-pair? _%hd163945164584%_)) + (let ((_%e163947164589%_ (let () (declare (not safe)) (gx#stx-e - _%hd162658163297%_)))) - (let ((_%tl162662163307%_ + _%hd163945164584%_)))) + (let ((_%tl163949164594%_ (let () (declare (not safe)) - (##cdr _%e162660163302%_))) - (_%hd162661163305%_ + (##cdr _%e163947164589%_))) + (_%hd163948164592%_ (let () (declare (not safe)) - (##car _%e162660163302%_)))) + (##car _%e163947164589%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162661163305%_)) + _%hd163948164592%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd162661163305%_)) + _%hd163948164592%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162662163307%_)) - (let ((_%e162663163310%_ + _%tl163949164594%_)) + (let ((_%e163950164597%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl162662163307%_)))) - (let ((_%tl162665163315%_ + (gx#stx-e _%tl163949164594%_)))) + (let ((_%tl163952164602%_ (let () (declare (not safe)) - (##cdr _%e162663163310%_))) - (_%hd162664163313%_ + (##cdr _%e163950164597%_))) + (_%hd163951164600%_ (let () (declare (not safe)) - (##car _%e162663163310%_)))) + (##car _%e163950164597%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162664163313%_)) - (let ((_%e162666163318%_ + (gx#stx-pair? _%hd163951164600%_)) + (let ((_%e163953164605%_ (let () (declare (not safe)) - (gx#stx-e _%hd162664163313%_)))) - (let ((_%tl162668163323%_ + (gx#stx-e _%hd163951164600%_)))) + (let ((_%tl163955164610%_ (let () (declare (not safe)) - (##cdr _%e162666163318%_))) - (_%hd162667163321%_ + (##cdr _%e163953164605%_))) + (_%hd163954164608%_ (let () (declare (not safe)) - (##car _%e162666163318%_)))) + (##car _%e163953164605%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162667163321%_)) + (gx#identifier? _%hd163954164608%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162667163321%_)) + (gx#stx-eq? '%#ref _%hd163954164608%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162668163323%_)) - (let ((_%e162669163326%_ + (gx#stx-pair? _%tl163955164610%_)) + (let ((_%e163956164613%_ (let () (declare (not safe)) (gx#stx-e - _%tl162668163323%_)))) - (let ((_%tl162671163331%_ + _%tl163955164610%_)))) + (let ((_%tl163958164618%_ (let () (declare (not safe)) - (##cdr _%e162669163326%_))) - (_%hd162670163329%_ + (##cdr _%e163956164613%_))) + (_%hd163957164616%_ (let () (declare (not safe)) - (##car _%e162669163326%_)))) + (##car _%e163956164613%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162671163331%_)) + _%tl163958164618%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162665163315%_)) - (let ((_%e162672163334%_ + _%tl163952164602%_)) + (let ((_%e163959164621%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl162665163315%_)))) - (let ((_%tl162674163339%_ - (let () (declare (not safe)) (##cdr _%e162672163334%_))) - (_%hd162673163337%_ + (gx#stx-e _%tl163952164602%_)))) + (let ((_%tl163961164626%_ + (let () (declare (not safe)) (##cdr _%e163959164621%_))) + (_%hd163960164624%_ (let () (declare (not safe)) - (##car _%e162672163334%_)))) + (##car _%e163959164621%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162673163337%_)) - (let ((_%e162675163342%_ + (gx#stx-pair? _%hd163960164624%_)) + (let ((_%e163962164629%_ (let () (declare (not safe)) - (gx#stx-e _%hd162673163337%_)))) - (let ((_%tl162677163347%_ + (gx#stx-e _%hd163960164624%_)))) + (let ((_%tl163964164634%_ (let () (declare (not safe)) - (##cdr _%e162675163342%_))) - (_%hd162676163345%_ + (##cdr _%e163962164629%_))) + (_%hd163963164632%_ (let () (declare (not safe)) - (##car _%e162675163342%_)))) + (##car _%e163962164629%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162676163345%_)) + (gx#identifier? _%hd163963164632%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162676163345%_)) + (gx#stx-eq? '%#ref _%hd163963164632%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162677163347%_)) - (let ((_%e162678163350%_ + (gx#stx-pair? _%tl163964164634%_)) + (let ((_%e163965164637%_ (let () (declare (not safe)) - (gx#stx-e _%tl162677163347%_)))) - (let ((_%tl162680163355%_ + (gx#stx-e _%tl163964164634%_)))) + (let ((_%tl163967164642%_ (let () (declare (not safe)) - (##cdr _%e162678163350%_))) - (_%hd162679163353%_ + (##cdr _%e163965164637%_))) + (_%hd163966164640%_ (let () (declare (not safe)) - (##car _%e162678163350%_)))) + (##car _%e163965164637%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162680163355%_)) + _%tl163967164642%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162674163339%_)) - (let ((_%e162681163358%_ + _%tl163961164626%_)) + (let ((_%e163968164645%_ (let () (declare (not safe)) (gx#stx-e - _%tl162674163339%_)))) - (let ((_%tl162683163363%_ + _%tl163961164626%_)))) + (let ((_%tl163970164650%_ (let () (declare (not safe)) - (##cdr _%e162681163358%_))) - (_%hd162682163361%_ + (##cdr _%e163968164645%_))) + (_%hd163969164648%_ (let () (declare (not safe)) - (##car _%e162681163358%_)))) + (##car _%e163968164645%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162682163361%_)) - (let ((_%e162684163366%_ + _%hd163969164648%_)) + (let ((_%e163971164653%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd162682163361%_)))) - (let ((_%tl162686163371%_ + (gx#stx-e _%hd163969164648%_)))) + (let ((_%tl163973164658%_ (let () (declare (not safe)) - (##cdr _%e162684163366%_))) - (_%hd162685163369%_ + (##cdr _%e163971164653%_))) + (_%hd163972164656%_ (let () (declare (not safe)) - (##car _%e162684163366%_)))) + (##car _%e163971164653%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162685163369%_)) + (gx#identifier? _%hd163972164656%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd162685163369%_)) + (gx#stx-eq? '%#quote _%hd163972164656%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162686163371%_)) - (let ((_%e162687163374%_ + (gx#stx-pair? _%tl163973164658%_)) + (let ((_%e163974164661%_ (let () (declare (not safe)) - (gx#stx-e _%tl162686163371%_)))) - (let ((_%tl162689163379%_ + (gx#stx-e _%tl163973164658%_)))) + (let ((_%tl163976164666%_ (let () (declare (not safe)) - (##cdr _%e162687163374%_))) - (_%hd162688163377%_ + (##cdr _%e163974164661%_))) + (_%hd163975164664%_ (let () (declare (not safe)) - (##car _%e162687163374%_)))) + (##car _%e163974164661%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162689163379%_)) + (gx#stx-null? _%tl163976164666%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162683163363%_)) - (let ((_%e162690163382%_ + _%tl163970164650%_)) + (let ((_%e163977164669%_ (let () (declare (not safe)) (gx#stx-e - _%tl162683163363%_)))) - (let ((_%tl162692163387%_ + _%tl163970164650%_)))) + (let ((_%tl163979164674%_ (let () (declare (not safe)) - (##cdr _%e162690163382%_))) - (_%hd162691163385%_ + (##cdr _%e163977164669%_))) + (_%hd163978164672%_ (let () (declare (not safe)) - (##car _%e162690163382%_)))) + (##car _%e163977164669%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162691163385%_)) - (let ((_%e162693163390%_ + _%hd163978164672%_)) + (let ((_%e163980164677%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd162691163385%_)))) - (let ((_%tl162695163395%_ - (let () (declare (not safe)) (##cdr _%e162693163390%_))) - (_%hd162694163393%_ + (gx#stx-e _%hd163978164672%_)))) + (let ((_%tl163982164682%_ + (let () (declare (not safe)) (##cdr _%e163980164677%_))) + (_%hd163981164680%_ (let () (declare (not safe)) - (##car _%e162693163390%_)))) + (##car _%e163980164677%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162694163393%_)) + (gx#identifier? _%hd163981164680%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162694163393%_)) + (gx#stx-eq? '%#ref _%hd163981164680%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162695163395%_)) - (let ((_%e162696163398%_ + (gx#stx-pair? _%tl163982164682%_)) + (let ((_%e163983164685%_ (let () (declare (not safe)) - (gx#stx-e _%tl162695163395%_)))) - (let ((_%tl162698163403%_ + (gx#stx-e _%tl163982164682%_)))) + (let ((_%tl163985164690%_ (let () (declare (not safe)) - (##cdr _%e162696163398%_))) - (_%hd162697163401%_ + (##cdr _%e163983164685%_))) + (_%hd163984164688%_ (let () (declare (not safe)) - (##car _%e162696163398%_)))) + (##car _%e163983164685%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162698163403%_)) + (gx#stx-null? _%tl163985164690%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162692163387%_)) - (let ((_%e162699163406%_ + (gx#stx-pair? _%tl163979164674%_)) + (let ((_%e163986164693%_ (let () (declare (not safe)) (gx#stx-e - _%tl162692163387%_)))) - (let ((_%tl162701163411%_ + _%tl163979164674%_)))) + (let ((_%tl163988164698%_ (let () (declare (not safe)) - (##cdr _%e162699163406%_))) - (_%hd162700163409%_ + (##cdr _%e163986164693%_))) + (_%hd163987164696%_ (let () (declare (not safe)) - (##car _%e162699163406%_)))) + (##car _%e163986164693%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162700163409%_)) - (let ((_%e162702163414%_ + _%hd163987164696%_)) + (let ((_%e163989164701%_ (let () (declare (not safe)) (gx#stx-e - _%hd162700163409%_)))) - (let ((_%tl162704163419%_ + _%hd163987164696%_)))) + (let ((_%tl163991164706%_ (let () (declare (not safe)) - (##cdr _%e162702163414%_))) - (_%hd162703163417%_ + (##cdr _%e163989164701%_))) + (_%hd163990164704%_ (let () (declare (not safe)) - (##car _%e162702163414%_)))) + (##car _%e163989164701%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162703163417%_)) + _%hd163990164704%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd162703163417%_)) + (gx#stx-eq? '%#ref _%hd163990164704%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162704163419%_)) - (let ((_%e162705163422%_ + (gx#stx-pair? _%tl163991164706%_)) + (let ((_%e163992164709%_ (let () (declare (not safe)) - (gx#stx-e _%tl162704163419%_)))) - (let ((_%tl162707163427%_ + (gx#stx-e _%tl163991164706%_)))) + (let ((_%tl163994164714%_ (let () (declare (not safe)) - (##cdr _%e162705163422%_))) - (_%hd162706163425%_ + (##cdr _%e163992164709%_))) + (_%hd163993164712%_ (let () (declare (not safe)) - (##car _%e162705163422%_)))) + (##car _%e163992164709%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162707163427%_)) + (gx#stx-null? _%tl163994164714%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162701163411%_)) + (gx#stx-null? _%tl163988164698%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162659163299%_)) - (_%__match168847168848%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_ - _%e162657163294%_ - _%hd162658163297%_ - _%tl162659163299%_ - _%e162660163302%_ - _%hd162661163305%_ - _%tl162662163307%_ - _%e162663163310%_ - _%hd162664163313%_ - _%tl162665163315%_ - _%e162666163318%_ - _%hd162667163321%_ - _%tl162668163323%_ - _%e162669163326%_ - _%hd162670163329%_ - _%tl162671163331%_ - _%e162672163334%_ - _%hd162673163337%_ - _%tl162674163339%_ - _%e162675163342%_ - _%hd162676163345%_ - _%tl162677163347%_ - _%e162678163350%_ - _%hd162679163353%_ - _%tl162680163355%_ - _%e162681163358%_ - _%hd162682163361%_ - _%tl162683163363%_ - _%e162684163366%_ - _%hd162685163369%_ - _%tl162686163371%_ - _%e162687163374%_ - _%hd162688163377%_ - _%tl162689163379%_ - _%e162690163382%_ - _%hd162691163385%_ - _%tl162692163387%_ - _%e162693163390%_ - _%hd162694163393%_ - _%tl162695163395%_ - _%e162696163398%_ - _%hd162697163401%_ - _%tl162698163403%_ - _%e162699163406%_ - _%hd162700163409%_ - _%tl162701163411%_ - _%e162702163414%_ - _%hd162703163417%_ - _%tl162704163419%_ - _%e162705163422%_ - _%hd162706163425%_ - _%tl162707163427%_) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) + (gx#stx-null? _%tl163946164586%_)) + (_%__match170134170135%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_ + _%e163944164581%_ + _%hd163945164584%_ + _%tl163946164586%_ + _%e163947164589%_ + _%hd163948164592%_ + _%tl163949164594%_ + _%e163950164597%_ + _%hd163951164600%_ + _%tl163952164602%_ + _%e163953164605%_ + _%hd163954164608%_ + _%tl163955164610%_ + _%e163956164613%_ + _%hd163957164616%_ + _%tl163958164618%_ + _%e163959164621%_ + _%hd163960164624%_ + _%tl163961164626%_ + _%e163962164629%_ + _%hd163963164632%_ + _%tl163964164634%_ + _%e163965164637%_ + _%hd163966164640%_ + _%tl163967164642%_ + _%e163968164645%_ + _%hd163969164648%_ + _%tl163970164650%_ + _%e163971164653%_ + _%hd163972164656%_ + _%tl163973164658%_ + _%e163974164661%_ + _%hd163975164664%_ + _%tl163976164666%_ + _%e163977164669%_ + _%hd163978164672%_ + _%tl163979164674%_ + _%e163980164677%_ + _%hd163981164680%_ + _%tl163982164682%_ + _%e163983164685%_ + _%hd163984164688%_ + _%tl163985164690%_ + _%e163986164693%_ + _%hd163987164696%_ + _%tl163988164698%_ + _%e163989164701%_ + _%hd163990164704%_ + _%tl163991164706%_ + _%e163992164709%_ + _%hd163993164712%_ + _%tl163994164714%_) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168859168860%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_ - _%e162654163286%_ - _%hd162655163289%_ - _%tl162656163291%_)))) - (_%__match168993168994%_ - _%e162651163278%_ - _%hd162652163281%_ - _%tl162653163283%_)))) - (let () (declare (not safe)) (_%g162643162835%_)))))))) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) + (_%__match170146170147%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_ + _%e163941164573%_ + _%hd163942164576%_ + _%tl163943164578%_)))) + (_%__match170280170281%_ + _%e163938164565%_ + _%hd163939164568%_ + _%tl163940164570%_)))) + (let () (declare (not safe)) (_%g163930164122%_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_%self162507%_ _%stx162508%_) - (letrec ((_%clause-e162510%_ - (lambda (_%form162633%_) - (let* ((_%signature162635%_ - (gxc#lambda-form-infer-signature _%form162633%_)) - (__obj170833 + (lambda (_%self163794%_ _%stx163795%_) + (letrec ((_%clause-e163797%_ + (lambda (_%form163920%_) + (let* ((_%signature163922%_ + (gxc#lambda-form-infer-signature _%form163920%_)) + (__obj172120 (let () (declare (not safe)) (##structure @@ -11163,126 +11163,126 @@ '#f '#f '#f)))) - (let ((__tmp171020 - (gxc#lambda-form-arity _%form162633%_)) - (__tmp171019 - (if (gxc#dispatch-lambda-form? _%form162633%_) + (let ((__tmp172307 + (gxc#lambda-form-arity _%form163920%_)) + (__tmp172306 + (if (gxc#dispatch-lambda-form? _%form163920%_) (gxc#dispatch-lambda-form-delegate - _%form162633%_) + _%form163920%_) '#f))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature162635%_ - __obj170833 - __tmp171020 - __tmp171019)) - __obj170833))) - (_%return-type-e162511%_ - (lambda (_%clauses162561%_) - (let _%loop162563%_ ((_%rest162565%_ _%clauses162561%_) - (_%result162566%_ '#f)) - (let* ((_%rest162567162575%_ _%rest162565%_) - (_%else162569162583%_ - (lambda () _%result162566%_)) - (_%K162571162621%_ - (lambda (_%rest162586%_ _%clause162587%_) - (let* ((_%clause162589%_ _%clause162587%_) - (_%return162613%_ - (let* ((_%signature162602%_ + _%signature163922%_ + __obj172120 + __tmp172307 + __tmp172306)) + __obj172120))) + (_%return-type-e163798%_ + (lambda (_%clauses163848%_) + (let _%loop163850%_ ((_%rest163852%_ _%clauses163848%_) + (_%result163853%_ '#f)) + (let* ((_%rest163854163862%_ _%rest163852%_) + (_%else163856163870%_ + (lambda () _%result163853%_)) + (_%K163858163908%_ + (lambda (_%rest163873%_ _%clause163874%_) + (let* ((_%clause163876%_ _%clause163874%_) + (_%return163900%_ + (let* ((_%signature163889%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%clause162589%_ + _%clause163876%_ '2 '#f '#f))) - (_%signature162604%_ - _%signature162602%_)) - (if _%signature162604%_ + (_%signature163891%_ + _%signature163889%_)) + (if _%signature163891%_ (if (let () (declare (not safe)) (##unchecked-structure-ref - _%signature162604%_ + _%signature163891%_ '1 '#f '#f)) - (let ((__tmp171021 + (let ((__tmp172308 (let () (declare (not safe)) (##unchecked-structure-ref - _%signature162604%_ + _%signature163891%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx162508%_ - __tmp171021)) + _%stx163795%_ + __tmp172308)) '#f) '#f))) - (_%result162618%_ - (if (and _%result162566%_ - _%return162613%_) + (_%result163905%_ + (if (and _%result163853%_ + _%return163900%_) (gxc#greatest-common-type - _%stx162508%_ - _%result162566%_ - _%return162613%_) - (let ((_%$e162615%_ - _%result162566%_)) - (if _%$e162615%_ - _%$e162615%_ - _%return162613%_))))) - (_%loop162563%_ - _%rest162586%_ - _%result162618%_))))) - (if (pair? _%rest162567162575%_) - (let ((_%hd162572162624%_ + _%stx163795%_ + _%result163853%_ + _%return163900%_) + (let ((_%$e163902%_ + _%result163853%_)) + (if _%$e163902%_ + _%$e163902%_ + _%return163900%_))))) + (_%loop163850%_ + _%rest163873%_ + _%result163905%_))))) + (if (pair? _%rest163854163862%_) + (let ((_%hd163859163911%_ (let () (declare (not safe)) - (##car _%rest162567162575%_))) - (_%tl162573162626%_ + (##car _%rest163854163862%_))) + (_%tl163860163913%_ (let () (declare (not safe)) - (##cdr _%rest162567162575%_)))) - (let* ((_%clause162629%_ _%hd162572162624%_) - (_%rest162631%_ _%tl162573162626%_)) - (_%K162571162621%_ - _%rest162631%_ - _%clause162629%_))) - (_%else162569162583%_))))))) - (let* ((_%g162513162523%_ - (lambda (_%g162514162520%_) + (##cdr _%rest163854163862%_)))) + (let* ((_%clause163916%_ _%hd163859163911%_) + (_%rest163918%_ _%tl163860163913%_)) + (_%K163858163908%_ + _%rest163918%_ + _%clause163916%_))) + (_%else163856163870%_))))))) + (let* ((_%g163800163810%_ + (lambda (_%g163801163807%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162514162520%_)))) - (_%g162512162558%_ - (lambda (_%g162514162526%_) + _%g163801163807%_)))) + (_%g163799163845%_ + (lambda (_%g163801163813%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162514162526%_)) - (let ((_%e162516162528%_ + (gx#stx-pair? _%g163801163813%_)) + (let ((_%e163803163815%_ (let () (declare (not safe)) - (gx#stx-e _%g162514162526%_)))) - (let ((_%hd162517162531%_ + (gx#stx-e _%g163801163813%_)))) + (let ((_%hd163804163818%_ (let () (declare (not safe)) - (##car _%e162516162528%_))) - (_%tl162518162533%_ + (##car _%e163803163815%_))) + (_%tl163805163820%_ (let () (declare (not safe)) - (##cdr _%e162516162528%_)))) - ((lambda (_%L162536%_) - (let* ((_%clauses162547%_ - (map _%clause-e162510%_ _%L162536%_)) - (_%return162549%_ - (_%return-type-e162511%_ - _%clauses162547%_)) - (__obj170835 + (##cdr _%e163803163815%_)))) + ((lambda (_%L163823%_) + (let* ((_%clauses163834%_ + (map _%clause-e163797%_ _%L163823%_)) + (_%return163836%_ + (_%return-type-e163798%_ + _%clauses163834%_)) + (__obj172122 (let () (declare (not safe)) (##structure @@ -11290,17 +11290,17 @@ '#f '#f '#f)))) - (let ((__tmp171022 - (if _%return162549%_ - (let ((_%return-type162551162553%_ + (let ((__tmp172309 + (if _%return163836%_ + (let ((_%return-type163838163840%_ (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%return162549%_)))) - (if _%return-type162551162553%_ - (let* ((_%return-type162556%_ - _%return-type162551162553%_) - (__obj170834 + _%return163836%_)))) + (if _%return-type163838163840%_ + (let* ((_%return-type163843%_ + _%return-type163838163840%_) + (__obj172121 (let () (declare (not safe)) @@ -11314,216 +11314,216 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170834 - _%return-type162556%_ + __obj172121 + _%return-type163843%_ '1 '#f '#f)) - __obj170834) + __obj172121) '#f)) '#f))) (declare (not safe)) (gxc#!case-lambda:::init!__% '#f - __tmp171022 - __obj170835 - _%clauses162547%_)) - __obj170835)) - _%tl162518162533%_))) - (_%g162513162523%_ _%g162514162526%_))))) - (_%g162512162558%_ _%stx162508%_))))) + __tmp172309 + __obj172122 + _%clauses163834%_)) + __obj172122)) + _%tl163805163820%_))) + (_%g163800163810%_ _%g163801163813%_))))) + (_%g163799163845%_ _%stx163795%_))))) (define gxc#basic-expression-type-special (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-call% - (lambda (_%self162367%_ _%stx162368%_) - (letrec ((_%type-e162370%_ - (lambda (_%rator162500%_ _%rator-type162501%_ _%args162502%_) - (if (not _%rator-type162501%_) + (lambda (_%self163654%_ _%stx163655%_) + (letrec ((_%type-e163657%_ + (lambda (_%rator163787%_ _%rator-type163788%_ _%args163789%_) + (if (not _%rator-type163788%_) '#f (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type162501%_ + _%rator-type163788%_ 'gxc#!procedure::t)) - (let ((__method170836 + (let ((__method172123 (let () (declare (not safe)) (__method-ref - _%rator-type162501%_ + _%rator-type163788%_ 'return-type)))) - (if __method170836 + (if __method172123 (let () (declare (not safe)) - (__method170836 - _%rator-type162501%_ - _%self162367%_ - _%stx162368%_ - _%args162502%_)) + (__method172123 + _%rator-type163788%_ + _%self163654%_ + _%stx163655%_ + _%args163789%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type162501%_ + _%rator-type163788%_ 'return-type)) '#!void))) '#f))))) - (let* ((_%__stx169002169003%_ _%stx162368%_) - (_%g162373162401%_ + (let* ((_%__stx170289170290%_ _%stx163655%_) + (_%g163660163688%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169002169003%_))))) - (let ((_%__kont169004169005%_ - (lambda (_%L162474%_ _%L162475%_) - (let ((_%$e162491%_ - (let ((__tmp171023 + _%__stx170289170290%_))))) + (let ((_%__kont170291170292%_ + (lambda (_%L163761%_ _%L163762%_) + (let ((_%$e163778%_ + (let ((__tmp172310 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162475%_)))) + (gxc#identifier-symbol _%L163762%_)))) (declare (not safe)) (__hash-get gxc#basic-expression-type-special - __tmp171023)))) - (if _%$e162491%_ - ((lambda (_%type-e162494%_) - (_%type-e162494%_ _%self162367%_ _%stx162368%_)) - _%$e162491%_) - (_%type-e162370%_ - _%L162475%_ - (let ((__tmp171024 + __tmp172310)))) + (if _%$e163778%_ + ((lambda (_%type-e163781%_) + (_%type-e163781%_ _%self163654%_ _%stx163655%_)) + _%$e163778%_) + (_%type-e163657%_ + _%L163762%_ + (let ((__tmp172311 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162475%_)))) + (gxc#identifier-symbol _%L163762%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp171024)) - _%L162474%_))))) - (_%__kont169006169007%_ - (lambda (_%L162422%_ _%L162423%_) - (_%type-e162370%_ - _%L162423%_ - (gxc#apply-basic-expression-type _%L162423%_) - _%L162422%_)))) + (gxc#optimizer-resolve-type __tmp172311)) + _%L163761%_))))) + (_%__kont170293170294%_ + (lambda (_%L163709%_ _%L163710%_) + (_%type-e163657%_ + _%L163710%_ + (gxc#apply-basic-expression-type _%L163710%_) + _%L163709%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169002169003%_)) - (let ((_%e162377162442%_ + (gx#stx-pair? _%__stx170289170290%_)) + (let ((_%e163664163729%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169002169003%_)))) - (let ((_%tl162379162447%_ + (gx#stx-e _%__stx170289170290%_)))) + (let ((_%tl163666163734%_ (let () (declare (not safe)) - (##cdr _%e162377162442%_))) - (_%hd162378162445%_ + (##cdr _%e163664163729%_))) + (_%hd163665163732%_ (let () (declare (not safe)) - (##car _%e162377162442%_)))) + (##car _%e163664163729%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162379162447%_)) - (let ((_%e162380162450%_ + (gx#stx-pair? _%tl163666163734%_)) + (let ((_%e163667163737%_ (let () (declare (not safe)) - (gx#stx-e _%tl162379162447%_)))) - (let ((_%tl162382162455%_ + (gx#stx-e _%tl163666163734%_)))) + (let ((_%tl163669163742%_ (let () (declare (not safe)) - (##cdr _%e162380162450%_))) - (_%hd162381162453%_ + (##cdr _%e163667163737%_))) + (_%hd163668163740%_ (let () (declare (not safe)) - (##car _%e162380162450%_)))) + (##car _%e163667163737%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162381162453%_)) - (let ((_%e162383162458%_ + (gx#stx-pair? _%hd163668163740%_)) + (let ((_%e163670163745%_ (let () (declare (not safe)) - (gx#stx-e _%hd162381162453%_)))) - (let ((_%tl162385162463%_ + (gx#stx-e _%hd163668163740%_)))) + (let ((_%tl163672163750%_ (let () (declare (not safe)) - (##cdr _%e162383162458%_))) - (_%hd162384162461%_ + (##cdr _%e163670163745%_))) + (_%hd163671163748%_ (let () (declare (not safe)) - (##car _%e162383162458%_)))) + (##car _%e163670163745%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162384162461%_)) + _%hd163671163748%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd162384162461%_)) + _%hd163671163748%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162385162463%_)) - (let ((_%e162386162466%_ + _%tl163672163750%_)) + (let ((_%e163673163753%_ (let () (declare (not safe)) (gx#stx-e - _%tl162385162463%_)))) - (let ((_%tl162388162471%_ + _%tl163672163750%_)))) + (let ((_%tl163675163758%_ (let () (declare (not safe)) - (##cdr _%e162386162466%_))) - (_%hd162387162469%_ + (##cdr _%e163673163753%_))) + (_%hd163674163756%_ (let () (declare (not safe)) - (##car _%e162386162466%_)))) + (##car _%e163673163753%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162388162471%_)) - (_%__kont169004169005%_ - _%tl162382162455%_ - _%hd162387162469%_) - (_%__kont169006169007%_ - _%tl162382162455%_ - _%hd162381162453%_)))) - (_%__kont169006169007%_ - _%tl162382162455%_ - _%hd162381162453%_)) - (_%__kont169006169007%_ - _%tl162382162455%_ - _%hd162381162453%_)) - (_%__kont169006169007%_ - _%tl162382162455%_ - _%hd162381162453%_)))) - (_%__kont169006169007%_ - _%tl162382162455%_ - _%hd162381162453%_)))) - (let () (declare (not safe)) (_%g162373162401%_))))) - (let () (declare (not safe)) (_%g162373162401%_)))))))) + _%tl163675163758%_)) + (_%__kont170291170292%_ + _%tl163669163742%_ + _%hd163674163756%_) + (_%__kont170293170294%_ + _%tl163669163742%_ + _%hd163668163740%_)))) + (_%__kont170293170294%_ + _%tl163669163742%_ + _%hd163668163740%_)) + (_%__kont170293170294%_ + _%tl163669163742%_ + _%hd163668163740%_)) + (_%__kont170293170294%_ + _%tl163669163742%_ + _%hd163668163740%_)))) + (_%__kont170293170294%_ + _%tl163669163742%_ + _%hd163668163740%_)))) + (let () (declare (not safe)) (_%g163660163688%_))))) + (let () (declare (not safe)) (_%g163660163688%_)))))))) (define gxc#!procedure::return-type - (lambda (_%self154110162349%_ _%ctx162351%_ _%stx162352%_ _%args162353%_) - (let* ((_%self162355%_ _%self154110162349%_) - (_%self162357%_ _%self162355%_)) + (lambda (_%self155397163636%_ _%ctx163638%_ _%stx163639%_ _%args163640%_) + (let* ((_%self163642%_ _%self155397163636%_) + (_%self163644%_ _%self163642%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self162357%_ '2 '#f '#f)) - (let ((__tmp171025 - (let ((__tmp171026 + (##unchecked-structure-ref _%self163644%_ '2 '#f '#f)) + (let ((__tmp172312 + (let ((__tmp172313 (let () (declare (not safe)) (##unchecked-structure-ref - _%self162357%_ + _%self163644%_ '2 '#f '#f)))) (declare (not safe)) - (##unchecked-structure-ref __tmp171026 '1 '#f '#f)))) + (##unchecked-structure-ref __tmp172313 '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx162352%_ __tmp171025)) + (gxc#optimizer-resolve-class _%stx163639%_ __tmp172312)) '#f)))) (let () (declare (not safe)) @@ -11541,59 +11541,59 @@ gxc#!procedure::apply-return-type '#f)) (define gxc#!lambda::return-type - (lambda (_%self154111162081%_ _%ctx162083%_ _%stx162084%_ _%args162085%_) - (let* ((_%self162087%_ _%self154111162081%_) - (_%self162089%_ _%self162087%_)) + (lambda (_%self155398163368%_ _%ctx163370%_ _%stx163371%_ _%args163372%_) + (let* ((_%self163374%_ _%self155398163368%_) + (_%self163376%_ _%self163374%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self162089%_ '4 '#f '#f)) - (let ((_%dispatch-type162098162100%_ - (let ((__tmp171027 + (##unchecked-structure-ref _%self163376%_ '4 '#f '#f)) + (let ((_%dispatch-type163385163387%_ + (let ((__tmp172314 (let () (declare (not safe)) (##unchecked-structure-ref - _%self162089%_ + _%self163376%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171027)))) - (if _%dispatch-type162098162100%_ - (let ((_%dispatch-type162103%_ - _%dispatch-type162098162100%_)) + (gxc#optimizer-lookup-type __tmp172314)))) + (if _%dispatch-type163385163387%_ + (let ((_%dispatch-type163390%_ + _%dispatch-type163385163387%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%dispatch-type162103%_ + _%dispatch-type163390%_ 'gxc#!procedure::t)) - (let ((__method170837 + (let ((__method172124 (let () (declare (not safe)) (__method-ref - _%dispatch-type162103%_ + _%dispatch-type163390%_ 'return-type)))) - (if __method170837 + (if __method172124 (let () (declare (not safe)) - (__method170837 - _%dispatch-type162103%_ - _%ctx162083%_ - _%stx162084%_ - _%args162085%_)) + (__method172124 + _%dispatch-type163390%_ + _%ctx163370%_ + _%stx163371%_ + _%args163372%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%dispatch-type162103%_ + _%dispatch-type163390%_ 'return-type)) '#!void))) '#f)) '#f)) (gxc#!procedure::return-type - _%self162089%_ - _%ctx162083%_ - _%stx162084%_ - _%args162085%_))))) + _%self163376%_ + _%ctx163370%_ + _%stx163371%_ + _%args163372%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11610,52 +11610,52 @@ gxc#!lambda::apply-return-type '#f)) (define gxc#!case-lambda::return-type - (lambda (_%self154112161809%_ _%ctx161811%_ _%stx161812%_ _%args161813%_) - (let* ((_%self161815%_ _%self154112161809%_) - (_%self161817%_ _%self161815%_) - (_%$e161831%_ - (let ((__tmp171029 - (lambda (_%g161826161828%_) + (lambda (_%self155399163096%_ _%ctx163098%_ _%stx163099%_ _%args163100%_) + (let* ((_%self163102%_ _%self155399163096%_) + (_%self163104%_ _%self163102%_) + (_%$e163118%_ + (let ((__tmp172316 + (lambda (_%g163113163115%_) (gxc#!lambda-arity-match? - _%g161826161828%_ - _%args161813%_))) - (__tmp171028 + _%g163113163115%_ + _%args163100%_))) + (__tmp172315 (let () (declare (not safe)) (##unchecked-structure-ref - _%self161817%_ + _%self163104%_ '3 '#f '#f)))) (declare (not safe)) - (__find __tmp171029 __tmp171028)))) - (if _%$e161831%_ - ((lambda (_%clause161834%_) - (let ((__method170838 + (__find __tmp172316 __tmp172315)))) + (if _%$e163118%_ + ((lambda (_%clause163121%_) + (let ((__method172125 (let () (declare (not safe)) - (__method-ref _%clause161834%_ 'return-type)))) - (if __method170838 + (__method-ref _%clause163121%_ 'return-type)))) + (if __method172125 (let () (declare (not safe)) - (__method170838 - _%clause161834%_ - _%ctx161811%_ - _%stx161812%_ - _%args161813%_)) + (__method172125 + _%clause163121%_ + _%ctx163098%_ + _%stx163099%_ + _%args163100%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause161834%_ + _%clause163121%_ 'return-type)) '#!void)))) - _%$e161831%_) + _%$e163118%_) (gxc#!procedure::return-type - _%self161817%_ - _%ctx161811%_ - _%stx161812%_ - _%args161813%_))))) + _%self163104%_ + _%ctx163098%_ + _%stx163099%_ + _%args163100%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11664,73 +11664,73 @@ gxc#!case-lambda::return-type '#f)) (define gxc#!case-lambda::apply-return-type - (lambda (_%self154113161655%_ _%ctx161657%_ _%stx161658%_ _%args161659%_) - (let* ((_%self161661%_ _%self154113161655%_) - (_%self161663%_ _%self161661%_) - (_%candidates161677%_ - (filter (lambda (_%g161672161674%_) + (lambda (_%self155400162942%_ _%ctx162944%_ _%stx162945%_ _%args162946%_) + (let* ((_%self162948%_ _%self155400162942%_) + (_%self162950%_ _%self162948%_) + (_%candidates162964%_ + (filter (lambda (_%g162959162961%_) (gxc#!lambda-arity-match-apply? - _%g161672161674%_ - _%args161659%_)) + _%g162959162961%_ + _%args162946%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%self161663%_ + _%self162950%_ '3 '#f '#f)))) - (_%candidate-types161681%_ - (let ((__tmp171030 - (lambda (_%candidate161679%_) - (let ((__method170839 + (_%candidate-types162968%_ + (let ((__tmp172317 + (lambda (_%candidate162966%_) + (let ((__method172126 (let () (declare (not safe)) (__method-ref - _%candidate161679%_ + _%candidate162966%_ 'apply-return-type)))) - (if __method170839 + (if __method172126 (let () (declare (not safe)) - (__method170839 - _%candidate161679%_ - _%ctx161657%_ - _%stx161658%_ - _%args161659%_)) + (__method172126 + _%candidate162966%_ + _%ctx162944%_ + _%stx162945%_ + _%args162946%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%candidate161679%_ + _%candidate162966%_ 'apply-return-type)) '#!void)))))) (declare (not safe)) - (##map __tmp171030 _%candidates161677%_)))) - (if (pair? _%candidate-types161681%_) - (let ((__tmp171033 - (lambda (_%candidate-type161684%_ _%ret161685%_) - (if _%ret161685%_ - (if _%candidate-type161684%_ + (##map __tmp172317 _%candidates162964%_)))) + (if (pair? _%candidate-types162968%_) + (let ((__tmp172320 + (lambda (_%candidate-type162971%_ _%ret162972%_) + (if _%ret162972%_ + (if _%candidate-type162971%_ (gxc#greatest-common-type - _%stx161658%_ - _%candidate-type161684%_ - _%ret161685%_) + _%stx162945%_ + _%candidate-type162971%_ + _%ret162972%_) '#f) '#f))) - (__tmp171032 + (__tmp172319 (let () (declare (not safe)) - (##car _%candidate-types161681%_))) - (__tmp171031 + (##car _%candidate-types162968%_))) + (__tmp172318 (let () (declare (not safe)) - (##cdr _%candidate-types161681%_)))) + (##cdr _%candidate-types162968%_)))) (declare (not safe)) - (__foldl1 __tmp171033 __tmp171032 __tmp171031)) + (__foldl1 __tmp172320 __tmp172319 __tmp172318)) (gxc#!procedure::return-type - _%self161663%_ - _%ctx161657%_ - _%stx161658%_ - _%args161659%_))))) + _%self162950%_ + _%ctx162944%_ + _%stx162945%_ + _%args162946%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11739,135 +11739,135 @@ gxc#!case-lambda::apply-return-type '#f)) (define gxc#!kw-lambda::return-type - (lambda (_%self154114161459%_ _%ctx161461%_ _%stx161462%_ _%args161463%_) - (let* ((_%self161465%_ _%self154114161459%_) - (_%self161467%_ _%self161465%_) - (_%g161476161487%_ - (let ((__tmp171034 + (lambda (_%self155401162746%_ _%ctx162748%_ _%stx162749%_ _%args162750%_) + (let* ((_%self162752%_ _%self155401162746%_) + (_%self162754%_ _%self162752%_) + (_%g162763162774%_ + (let ((__tmp172321 (let () (declare (not safe)) (##unchecked-structure-ref - _%self161467%_ + _%self162754%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171034))) - (_%E161479161491%_ + (gxc#optimizer-lookup-type __tmp172321))) + (_%E162766162778%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g161476161487%_ + _%g162763162774%_ '((!kw-lambda-primary _ _ keys main)) '((? !procedure? proc)))) '#!void))) - (let ((_%K161481161514%_ - (lambda (_%main161505%_ _%keys161506%_) - (let ((_%main-type161507161509%_ + (let ((_%K162768162801%_ + (lambda (_%main162792%_ _%keys162793%_) + (let ((_%main-type162794162796%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%main161505%_)))) - (if _%main-type161507161509%_ - (let* ((_%main-type161512%_ _%main-type161507161509%_) - (__method170840 + (gxc#optimizer-lookup-type _%main162792%_)))) + (if _%main-type162794162796%_ + (let* ((_%main-type162799%_ _%main-type162794162796%_) + (__method172127 (let () (declare (not safe)) (__method-ref - _%main-type161512%_ + _%main-type162799%_ 'return-type)))) - (if __method170840 - (let ((__tmp171035 + (if __method172127 + (let ((__tmp172322 (gxc#extract-keyword-args - _%args161463%_))) + _%args162750%_))) (declare (not safe)) - (__method170840 - _%main-type161512%_ - _%ctx161461%_ - _%stx161462%_ - __tmp171035)) + (__method172127 + _%main-type162799%_ + _%ctx162748%_ + _%stx162749%_ + __tmp172322)) (begin (let () (declare (not safe)) (error '"Missing method" - _%main-type161512%_ + _%main-type162799%_ 'return-type)) '#!void))) '#f)))) - (_%K161480161497%_ - (lambda (_%proc161495%_) - (let ((__method170841 + (_%K162767162784%_ + (lambda (_%proc162782%_) + (let ((__method172128 (let () (declare (not safe)) - (__method-ref _%proc161495%_ 'return-type)))) - (if __method170841 - (let ((__tmp171036 - (gxc#extract-keyword-args _%args161463%_))) + (__method-ref _%proc162782%_ 'return-type)))) + (if __method172128 + (let ((__tmp172323 + (gxc#extract-keyword-args _%args162750%_))) (declare (not safe)) - (__method170841 - _%proc161495%_ - _%proc161495%_ - _%ctx161461%_ - _%stx161462%_ - __tmp171036)) + (__method172128 + _%proc162782%_ + _%proc162782%_ + _%ctx162748%_ + _%stx162749%_ + __tmp172323)) (begin (let () (declare (not safe)) (error '"Missing method" - _%proc161495%_ + _%proc162782%_ 'return-type)) '#!void)))))) - (let ((_%try-match161478161502%_ + (let ((_%try-match162765162789%_ (lambda () (if (let () (declare (not safe)) (##structure-instance-of? - _%g161476161487%_ + _%g162763162774%_ 'gxc#!procedure::t)) - (let ((_%proc161500%_ _%g161476161487%_)) - (_%K161480161497%_ _%proc161500%_)) - (_%E161479161491%_))))) + (let ((_%proc162787%_ _%g162763162774%_)) + (_%K162767162784%_ _%proc162787%_)) + (_%E162766162778%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g161476161487%_ + _%g162763162774%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e161482161517%_ + (let* ((_%e162769162804%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161476161487%_ + _%g162763162774%_ '1 '#f '#f))) - (_%e161483161520%_ + (_%e162770162807%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161476161487%_ + _%g162763162774%_ '2 '#f '#f))) - (_%e161484161523%_ + (_%e162771162810%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161476161487%_ + _%g162763162774%_ '3 '#f '#f))) - (_%e161485161528%_ + (_%e162772162815%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161476161487%_ + _%g162763162774%_ '4 '#f '#f)))) - (let ((_%keys161526%_ _%e161484161523%_) - (_%main161531%_ _%e161485161528%_)) - (_%K161481161514%_ _%main161531%_ _%keys161526%_))) - (_%try-match161478161502%_))))))) + (let ((_%keys162813%_ _%e162771162810%_) + (_%main162818%_ _%e162772162815%_)) + (_%K162768162801%_ _%main162818%_ _%keys162813%_))) + (_%try-match162765162789%_))))))) (let () (declare (not safe)) (__bind-method!__% @@ -11876,135 +11876,135 @@ gxc#!kw-lambda::return-type '#f)) (define gxc#!kw-lambda::apply-return-type - (lambda (_%self154115161263%_ _%ctx161265%_ _%stx161266%_ _%args161267%_) - (let* ((_%self161269%_ _%self154115161263%_) - (_%self161271%_ _%self161269%_) - (_%g161280161291%_ - (let ((__tmp171037 + (lambda (_%self155402162550%_ _%ctx162552%_ _%stx162553%_ _%args162554%_) + (let* ((_%self162556%_ _%self155402162550%_) + (_%self162558%_ _%self162556%_) + (_%g162567162578%_ + (let ((__tmp172324 (let () (declare (not safe)) (##unchecked-structure-ref - _%self161271%_ + _%self162558%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171037))) - (_%E161283161295%_ + (gxc#optimizer-lookup-type __tmp172324))) + (_%E162570162582%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g161280161291%_ + _%g162567162578%_ '((!kw-lambda-primary _ _ keys main)) '((? !procedure? proc)))) '#!void))) - (let ((_%K161285161318%_ - (lambda (_%main161309%_ _%keys161310%_) - (let ((_%main-type161311161313%_ + (let ((_%K162572162605%_ + (lambda (_%main162596%_ _%keys162597%_) + (let ((_%main-type162598162600%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%main161309%_)))) - (if _%main-type161311161313%_ - (let* ((_%main-type161316%_ _%main-type161311161313%_) - (__method170842 + (gxc#optimizer-lookup-type _%main162596%_)))) + (if _%main-type162598162600%_ + (let* ((_%main-type162603%_ _%main-type162598162600%_) + (__method172129 (let () (declare (not safe)) (__method-ref - _%main-type161316%_ + _%main-type162603%_ 'apply-return-type)))) - (if __method170842 - (let ((__tmp171038 + (if __method172129 + (let ((__tmp172325 (gxc#extract-keyword-args - _%args161267%_))) + _%args162554%_))) (declare (not safe)) - (__method170842 - _%main-type161316%_ - _%ctx161265%_ - _%stx161266%_ - __tmp171038)) + (__method172129 + _%main-type162603%_ + _%ctx162552%_ + _%stx162553%_ + __tmp172325)) (begin (let () (declare (not safe)) (error '"Missing method" - _%main-type161316%_ + _%main-type162603%_ 'apply-return-type)) '#!void))) '#f)))) - (_%K161284161301%_ - (lambda (_%proc161299%_) - (let ((__method170843 + (_%K162571162588%_ + (lambda (_%proc162586%_) + (let ((__method172130 (let () (declare (not safe)) - (__method-ref _%proc161299%_ 'apply-return-type)))) - (if __method170843 - (let ((__tmp171039 - (gxc#extract-keyword-args _%args161267%_))) + (__method-ref _%proc162586%_ 'apply-return-type)))) + (if __method172130 + (let ((__tmp172326 + (gxc#extract-keyword-args _%args162554%_))) (declare (not safe)) - (__method170843 - _%proc161299%_ - _%proc161299%_ - _%ctx161265%_ - _%stx161266%_ - __tmp171039)) + (__method172130 + _%proc162586%_ + _%proc162586%_ + _%ctx162552%_ + _%stx162553%_ + __tmp172326)) (begin (let () (declare (not safe)) (error '"Missing method" - _%proc161299%_ + _%proc162586%_ 'apply-return-type)) '#!void)))))) - (let ((_%try-match161282161306%_ + (let ((_%try-match162569162593%_ (lambda () (if (let () (declare (not safe)) (##structure-instance-of? - _%g161280161291%_ + _%g162567162578%_ 'gxc#!procedure::t)) - (let ((_%proc161304%_ _%g161280161291%_)) - (_%K161284161301%_ _%proc161304%_)) - (_%E161283161295%_))))) + (let ((_%proc162591%_ _%g162567162578%_)) + (_%K162571162588%_ _%proc162591%_)) + (_%E162570162582%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g161280161291%_ + _%g162567162578%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e161286161321%_ + (let* ((_%e162573162608%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161280161291%_ + _%g162567162578%_ '1 '#f '#f))) - (_%e161287161324%_ + (_%e162574162611%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161280161291%_ + _%g162567162578%_ '2 '#f '#f))) - (_%e161288161327%_ + (_%e162575162614%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161280161291%_ + _%g162567162578%_ '3 '#f '#f))) - (_%e161289161332%_ + (_%e162576162619%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161280161291%_ + _%g162567162578%_ '4 '#f '#f)))) - (let ((_%keys161330%_ _%e161288161327%_) - (_%main161335%_ _%e161289161332%_)) - (_%K161285161318%_ _%main161335%_ _%keys161330%_))) - (_%try-match161282161306%_))))))) + (let ((_%keys162617%_ _%e162575162614%_) + (_%main162622%_ _%e162576162619%_)) + (_%K162572162605%_ _%main162622%_ _%keys162617%_))) + (_%try-match162569162593%_))))))) (let () (declare (not safe)) (__bind-method!__% @@ -12013,788 +12013,788 @@ gxc#!kw-lambda::apply-return-type '#f)) (define gxc#extract-keyword-args - (lambda (_%args161012%_) - (let _%loop161014%_ ((_%rest161016%_ _%args161012%_) - (_%result161017%_ '())) - (let* ((_%__stx169082169083%_ _%rest161016%_) - (_%g161021161047%_ + (lambda (_%args162299%_) + (let _%loop162301%_ ((_%rest162303%_ _%args162299%_) + (_%result162304%_ '())) + (let* ((_%__stx170369170370%_ _%rest162303%_) + (_%g162308162334%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169082169083%_))))) - (let ((_%__kont169084169085%_ - (lambda (_%L161119%_ _%L161120%_ _%L161121%_) - (_%loop161014%_ - _%L161119%_ - (cons _%L161120%_ _%result161017%_)))) - (_%__kont169086169087%_ - (lambda (_%L161067%_ _%L161068%_) - (_%loop161014%_ - _%L161067%_ - (cons _%L161068%_ _%result161017%_)))) - (_%__kont169088169089%_ - (lambda () (reverse! _%result161017%_)))) - (let ((_%__match169119169120%_ - (lambda (_%e161026161087%_ - _%hd161027161090%_ - _%tl161028161092%_ - _%e161029161095%_ - _%hd161030161098%_ - _%tl161031161100%_ - _%e161032161103%_ - _%hd161033161106%_ - _%tl161034161108%_ - _%e161035161111%_ - _%hd161036161114%_ - _%tl161037161116%_) - (let ((_%L161119%_ _%tl161037161116%_) - (_%L161120%_ _%hd161036161114%_) - (_%L161121%_ _%hd161033161106%_)) + _%__stx170369170370%_))))) + (let ((_%__kont170371170372%_ + (lambda (_%L162406%_ _%L162407%_ _%L162408%_) + (_%loop162301%_ + _%L162406%_ + (cons _%L162407%_ _%result162304%_)))) + (_%__kont170373170374%_ + (lambda (_%L162354%_ _%L162355%_) + (_%loop162301%_ + _%L162354%_ + (cons _%L162355%_ _%result162304%_)))) + (_%__kont170375170376%_ + (lambda () (reverse! _%result162304%_)))) + (let ((_%__match170406170407%_ + (lambda (_%e162313162374%_ + _%hd162314162377%_ + _%tl162315162379%_ + _%e162316162382%_ + _%hd162317162385%_ + _%tl162318162387%_ + _%e162319162390%_ + _%hd162320162393%_ + _%tl162321162395%_ + _%e162322162398%_ + _%hd162323162401%_ + _%tl162324162403%_) + (let ((_%L162406%_ _%tl162324162403%_) + (_%L162407%_ _%hd162323162401%_) + (_%L162408%_ _%hd162320162393%_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _%L161121%_)) - (_%__kont169084169085%_ - _%L161119%_ - _%L161120%_ - _%L161121%_) - (_%__kont169086169087%_ - _%tl161028161092%_ - _%hd161027161090%_)))))) + (gx#stx-keyword? _%L162408%_)) + (_%__kont170371170372%_ + _%L162406%_ + _%L162407%_ + _%L162408%_) + (_%__kont170373170374%_ + _%tl162315162379%_ + _%hd162314162377%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169082169083%_)) - (let ((_%e161026161087%_ + (gx#stx-pair? _%__stx170369170370%_)) + (let ((_%e162313162374%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169082169083%_)))) - (let ((_%tl161028161092%_ + (gx#stx-e _%__stx170369170370%_)))) + (let ((_%tl162315162379%_ (let () (declare (not safe)) - (##cdr _%e161026161087%_))) - (_%hd161027161090%_ + (##cdr _%e162313162374%_))) + (_%hd162314162377%_ (let () (declare (not safe)) - (##car _%e161026161087%_)))) + (##car _%e162313162374%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161027161090%_)) - (let ((_%e161029161095%_ + (gx#stx-pair? _%hd162314162377%_)) + (let ((_%e162316162382%_ (let () (declare (not safe)) - (gx#stx-e _%hd161027161090%_)))) - (let ((_%tl161031161100%_ + (gx#stx-e _%hd162314162377%_)))) + (let ((_%tl162318162387%_ (let () (declare (not safe)) - (##cdr _%e161029161095%_))) - (_%hd161030161098%_ + (##cdr _%e162316162382%_))) + (_%hd162317162385%_ (let () (declare (not safe)) - (##car _%e161029161095%_)))) + (##car _%e162316162382%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161030161098%_)) + (gx#identifier? _%hd162317162385%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd161030161098%_)) + _%hd162317162385%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161031161100%_)) - (let ((_%e161032161103%_ + _%tl162318162387%_)) + (let ((_%e162319162390%_ (let () (declare (not safe)) (gx#stx-e - _%tl161031161100%_)))) - (let ((_%tl161034161108%_ + _%tl162318162387%_)))) + (let ((_%tl162321162395%_ (let () (declare (not safe)) - (##cdr _%e161032161103%_))) - (_%hd161033161106%_ + (##cdr _%e162319162390%_))) + (_%hd162320162393%_ (let () (declare (not safe)) - (##car _%e161032161103%_)))) + (##car _%e162319162390%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161034161108%_)) + _%tl162321162395%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161028161092%_)) - (let ((_%e161035161111%_ + _%tl162315162379%_)) + (let ((_%e162322162398%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl161028161092%_)))) - (let ((_%tl161037161116%_ + (gx#stx-e _%tl162315162379%_)))) + (let ((_%tl162324162403%_ (let () (declare (not safe)) - (##cdr _%e161035161111%_))) - (_%hd161036161114%_ + (##cdr _%e162322162398%_))) + (_%hd162323162401%_ (let () (declare (not safe)) - (##car _%e161035161111%_)))) - (_%__match169119169120%_ - _%e161026161087%_ - _%hd161027161090%_ - _%tl161028161092%_ - _%e161029161095%_ - _%hd161030161098%_ - _%tl161031161100%_ - _%e161032161103%_ - _%hd161033161106%_ - _%tl161034161108%_ - _%e161035161111%_ - _%hd161036161114%_ - _%tl161037161116%_))) - (_%__kont169086169087%_ _%tl161028161092%_ _%hd161027161090%_)) + (##car _%e162322162398%_)))) + (_%__match170406170407%_ + _%e162313162374%_ + _%hd162314162377%_ + _%tl162315162379%_ + _%e162316162382%_ + _%hd162317162385%_ + _%tl162318162387%_ + _%e162319162390%_ + _%hd162320162393%_ + _%tl162321162395%_ + _%e162322162398%_ + _%hd162323162401%_ + _%tl162324162403%_))) + (_%__kont170373170374%_ _%tl162315162379%_ _%hd162314162377%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169086169087%_ - _%tl161028161092%_ - _%hd161027161090%_)))) - (_%__kont169086169087%_ - _%tl161028161092%_ - _%hd161027161090%_)) - (_%__kont169086169087%_ - _%tl161028161092%_ - _%hd161027161090%_)) - (_%__kont169086169087%_ - _%tl161028161092%_ - _%hd161027161090%_)))) - (_%__kont169086169087%_ - _%tl161028161092%_ - _%hd161027161090%_)))) - (_%__kont169088169089%_)))))))) + (_%__kont170373170374%_ + _%tl162315162379%_ + _%hd162314162377%_)))) + (_%__kont170373170374%_ + _%tl162315162379%_ + _%hd162314162377%_)) + (_%__kont170373170374%_ + _%tl162315162379%_ + _%hd162314162377%_)) + (_%__kont170373170374%_ + _%tl162315162379%_ + _%hd162314162377%_)))) + (_%__kont170373170374%_ + _%tl162315162379%_ + _%hd162314162377%_)))) + (_%__kont170375170376%_)))))))) (define gxc#!lambda-arity-match? - (lambda (_%self160944%_ _%args160945%_) - (let* ((_%self160946160954%_ _%self160944%_) - (_%E160948160958%_ + (lambda (_%self162231%_ _%args162232%_) + (let* ((_%self162233162241%_ _%self162231%_) + (_%E162235162245%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self160946160954%_ + _%self162233162241%_ '((!lambda _ _ arity)))) '#!void)) - (_%K160949160998%_ - (lambda (_%arity160961%_) - (let* ((_%arity160962160971%_ _%arity160961%_) - (_%E160965160975%_ + (_%K162236162285%_ + (lambda (_%arity162248%_) + (let* ((_%arity162249162258%_ _%arity162248%_) + (_%E162252162262%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity160962160971%_ + _%arity162249162258%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K160969160995%_ + (let ((_%K162256162282%_ (lambda () - (fx= (length _%args160945%_) _%arity160961%_))) - (_%K160966160981%_ - (lambda (_%arity160979%_) - (fx>= (length _%args160945%_) _%arity160979%_)))) - (let* ((_%__match169138169139%_ - (lambda (_%hd160967160984%_ _%tl160968160986%_) - (let ((_%arity160989%_ _%hd160967160984%_)) - (_%E160965160975%_)))) - (_%try-match160964160991%_ + (fx= (length _%args162232%_) _%arity162248%_))) + (_%K162253162268%_ + (lambda (_%arity162266%_) + (fx>= (length _%args162232%_) _%arity162266%_)))) + (let* ((_%__match170425170426%_ + (lambda (_%hd162254162271%_ _%tl162255162273%_) + (let ((_%arity162276%_ _%hd162254162271%_)) + (_%E162252162262%_)))) + (_%try-match162251162278%_ (lambda () - (if (pair? _%arity160962160971%_) - (let ((_%tl160968160986%_ + (if (pair? _%arity162249162258%_) + (let ((_%tl162255162273%_ (let () (declare (not safe)) - (##cdr _%arity160962160971%_))) - (_%hd160967160984%_ + (##cdr _%arity162249162258%_))) + (_%hd162254162271%_ (let () (declare (not safe)) - (##car _%arity160962160971%_)))) - (if (null? _%tl160968160986%_) - (let ((_%arity160989%_ - _%hd160967160984%_)) - (_%K160966160981%_ - _%arity160989%_)) - (_%__match169138169139%_ - _%hd160967160984%_ - _%tl160968160986%_))) - (_%E160965160975%_))))) - (if (fixnum? _%arity160962160971%_) - (_%K160969160995%_) - (_%try-match160964160991%_)))))))) + (##car _%arity162249162258%_)))) + (if (null? _%tl162255162273%_) + (let ((_%arity162276%_ + _%hd162254162271%_)) + (_%K162253162268%_ + _%arity162276%_)) + (_%__match170425170426%_ + _%hd162254162271%_ + _%tl162255162273%_))) + (_%E162252162262%_))))) + (if (fixnum? _%arity162249162258%_) + (_%K162256162282%_) + (_%try-match162251162278%_)))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%self160946160954%_ + _%self162233162241%_ 'gxc#!lambda::t)) - (let* ((_%e160950161001%_ + (let* ((_%e162237162288%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self160946160954%_ + _%self162233162241%_ '1 '#f '#f))) - (_%e160951161004%_ + (_%e162238162291%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self160946160954%_ + _%self162233162241%_ '2 '#f '#f))) - (_%e160952161007%_ + (_%e162239162294%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self160946160954%_ + _%self162233162241%_ '3 '#f '#f))) - (_%arity161010%_ _%e160952161007%_)) - (_%K160949160998%_ _%arity161010%_)) - (_%E160948160958%_))))) + (_%arity162297%_ _%e162239162294%_)) + (_%K162236162285%_ _%arity162297%_)) + (_%E162235162245%_))))) (define gxc#!lambda-arity-match-apply? - (lambda (_%self160876%_ _%args160877%_) - (let* ((_%self160878160886%_ _%self160876%_) - (_%E160880160890%_ + (lambda (_%self162163%_ _%args162164%_) + (let* ((_%self162165162173%_ _%self162163%_) + (_%E162167162177%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self160878160886%_ + _%self162165162173%_ '((!lambda _ _ arity)))) '#!void)) - (_%K160881160930%_ - (lambda (_%arity160893%_) - (let* ((_%arity160894160903%_ _%arity160893%_) - (_%E160897160907%_ + (_%K162168162217%_ + (lambda (_%arity162180%_) + (let* ((_%arity162181162190%_ _%arity162180%_) + (_%E162184162194%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity160894160903%_ + _%arity162181162190%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K160901160927%_ + (let ((_%K162188162214%_ (lambda () - (let ((__tmp171040 (length _%args160877%_))) + (let ((__tmp172327 (length _%args162164%_))) (declare (not safe)) - (##fx>= _%arity160893%_ __tmp171040)))) - (_%K160898160913%_ (lambda (_%arity160911%_) '#t))) - (let* ((_%__match169151169152%_ - (lambda (_%hd160899160916%_ _%tl160900160918%_) - (let ((_%arity160921%_ _%hd160899160916%_)) - (_%E160897160907%_)))) - (_%try-match160896160923%_ + (##fx>= _%arity162180%_ __tmp172327)))) + (_%K162185162200%_ (lambda (_%arity162198%_) '#t))) + (let* ((_%__match170438170439%_ + (lambda (_%hd162186162203%_ _%tl162187162205%_) + (let ((_%arity162208%_ _%hd162186162203%_)) + (_%E162184162194%_)))) + (_%try-match162183162210%_ (lambda () - (if (pair? _%arity160894160903%_) - (let ((_%tl160900160918%_ + (if (pair? _%arity162181162190%_) + (let ((_%tl162187162205%_ (let () (declare (not safe)) - (##cdr _%arity160894160903%_))) - (_%hd160899160916%_ + (##cdr _%arity162181162190%_))) + (_%hd162186162203%_ (let () (declare (not safe)) - (##car _%arity160894160903%_)))) - (if (null? _%tl160900160918%_) - (let ((_%arity160921%_ - _%hd160899160916%_)) - (_%K160898160913%_ - _%arity160921%_)) - (_%__match169151169152%_ - _%hd160899160916%_ - _%tl160900160918%_))) - (_%E160897160907%_))))) - (if (fixnum? _%arity160894160903%_) - (_%K160901160927%_) - (_%try-match160896160923%_)))))))) + (##car _%arity162181162190%_)))) + (if (null? _%tl162187162205%_) + (let ((_%arity162208%_ + _%hd162186162203%_)) + (_%K162185162200%_ + _%arity162208%_)) + (_%__match170438170439%_ + _%hd162186162203%_ + _%tl162187162205%_))) + (_%E162184162194%_))))) + (if (fixnum? _%arity162181162190%_) + (_%K162188162214%_) + (_%try-match162183162210%_)))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%self160878160886%_ + _%self162165162173%_ 'gxc#!lambda::t)) - (let* ((_%e160882160933%_ + (let* ((_%e162169162220%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self160878160886%_ + _%self162165162173%_ '1 '#f '#f))) - (_%e160883160936%_ + (_%e162170162223%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self160878160886%_ + _%self162165162173%_ '2 '#f '#f))) - (_%e160884160939%_ + (_%e162171162226%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self160878160886%_ + _%self162165162173%_ '3 '#f '#f))) - (_%arity160942%_ _%e160884160939%_)) - (_%K160881160930%_ _%arity160942%_)) - (_%E160880160890%_))))) + (_%arity162229%_ _%e162171162226%_)) + (_%K162168162217%_ _%arity162229%_)) + (_%E162167162177%_))))) (define gxc#basic-expression-type-special-cast - (lambda (_%ctx160763%_ _%stx160764%_) - (let* ((_%g160766160792%_ - (lambda (_%g160767160789%_) + (lambda (_%ctx162050%_ _%stx162051%_) + (let* ((_%g162053162079%_ + (lambda (_%g162054162076%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160767160789%_)))) - (_%g160765160873%_ - (lambda (_%g160767160795%_) + _%g162054162076%_)))) + (_%g162052162160%_ + (lambda (_%g162054162082%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160767160795%_)) - (let ((_%e160770160797%_ + (gx#stx-pair? _%g162054162082%_)) + (let ((_%e162057162084%_ (let () (declare (not safe)) - (gx#stx-e _%g160767160795%_)))) - (let ((_%hd160771160800%_ + (gx#stx-e _%g162054162082%_)))) + (let ((_%hd162058162087%_ (let () (declare (not safe)) - (##car _%e160770160797%_))) - (_%tl160772160802%_ + (##car _%e162057162084%_))) + (_%tl162059162089%_ (let () (declare (not safe)) - (##cdr _%e160770160797%_)))) + (##cdr _%e162057162084%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160772160802%_)) - (let ((_%e160773160805%_ + (gx#stx-pair? _%tl162059162089%_)) + (let ((_%e162060162092%_ (let () (declare (not safe)) - (gx#stx-e _%tl160772160802%_)))) - (let ((_%hd160774160808%_ + (gx#stx-e _%tl162059162089%_)))) + (let ((_%hd162061162095%_ (let () (declare (not safe)) - (##car _%e160773160805%_))) - (_%tl160775160810%_ + (##car _%e162060162092%_))) + (_%tl162062162097%_ (let () (declare (not safe)) - (##cdr _%e160773160805%_)))) + (##cdr _%e162060162092%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160775160810%_)) - (let ((_%e160776160813%_ + (gx#stx-pair? _%tl162062162097%_)) + (let ((_%e162063162100%_ (let () (declare (not safe)) - (gx#stx-e _%tl160775160810%_)))) - (let ((_%hd160777160816%_ + (gx#stx-e _%tl162062162097%_)))) + (let ((_%hd162064162103%_ (let () (declare (not safe)) - (##car _%e160776160813%_))) - (_%tl160778160818%_ + (##car _%e162063162100%_))) + (_%tl162065162105%_ (let () (declare (not safe)) - (##cdr _%e160776160813%_)))) + (##cdr _%e162063162100%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd160777160816%_)) - (let ((_%e160779160821%_ + _%hd162064162103%_)) + (let ((_%e162066162108%_ (let () (declare (not safe)) (gx#stx-e - _%hd160777160816%_)))) - (let ((_%hd160780160824%_ + _%hd162064162103%_)))) + (let ((_%hd162067162111%_ (let () (declare (not safe)) - (##car _%e160779160821%_))) - (_%tl160781160826%_ + (##car _%e162066162108%_))) + (_%tl162068162113%_ (let () (declare (not safe)) - (##cdr _%e160779160821%_)))) + (##cdr _%e162066162108%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd160780160824%_)) + _%hd162067162111%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd160780160824%_)) + _%hd162067162111%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl160781160826%_)) - (let ((_%e160782160829%_ + (gx#stx-pair? _%tl162068162113%_)) + (let ((_%e162069162116%_ (let () (declare (not safe)) - (gx#stx-e _%tl160781160826%_)))) - (let ((_%hd160783160832%_ + (gx#stx-e _%tl162068162113%_)))) + (let ((_%hd162070162119%_ (let () (declare (not safe)) - (##car _%e160782160829%_))) - (_%tl160784160834%_ + (##car _%e162069162116%_))) + (_%tl162071162121%_ (let () (declare (not safe)) - (##cdr _%e160782160829%_)))) + (##cdr _%e162069162116%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160784160834%_)) + (gx#stx-null? _%tl162071162121%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160778160818%_)) - (let ((_%e160785160837%_ + (gx#stx-pair? _%tl162065162105%_)) + (let ((_%e162072162124%_ (let () (declare (not safe)) - (gx#stx-e _%tl160778160818%_)))) - (let ((_%hd160786160840%_ + (gx#stx-e _%tl162065162105%_)))) + (let ((_%hd162073162127%_ (let () (declare (not safe)) - (##car _%e160785160837%_))) - (_%tl160787160842%_ + (##car _%e162072162124%_))) + (_%tl162074162129%_ (let () (declare (not safe)) - (##cdr _%e160785160837%_)))) + (##cdr _%e162072162124%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160787160842%_)) - ((lambda (_%L160845%_ _%L160846%_) - (let ((_%interface-type160866160868%_ - (let ((__tmp171041 + (gx#stx-null? _%tl162074162129%_)) + ((lambda (_%L162132%_ _%L162133%_) + (let ((_%interface-type162153162155%_ + (let ((__tmp172328 (let () (declare (not safe)) (gxc#identifier-symbol - _%L160846%_)))) + _%L162133%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp171041)))) - (if _%interface-type160866160868%_ - (let ((_%interface-type160871%_ - _%interface-type160866160868%_)) + __tmp172328)))) + (if _%interface-type162153162155%_ + (let ((_%interface-type162158%_ + _%interface-type162153162155%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%interface-type160871%_ + _%interface-type162158%_ 'gxc#!interface::t)) - (let ((__tmp171042 + (let ((__tmp172329 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%interface-type160871%_ + _%interface-type162158%_ '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx160764%_ __tmp171042)) + (gxc#optimizer-resolve-class _%stx162051%_ __tmp172329)) (let () (declare (not safe)) (gxc#raise-compile-error '"cast to non interface" - _%stx160764%_ - _%L160846%_ - _%interface-type160871%_)))) + _%stx162051%_ + _%L162133%_ + _%interface-type162158%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#f))) - _%hd160786160840%_ - _%hd160783160832%_) - (_%g160766160792%_ - _%g160767160795%_)))) - (_%g160766160792%_ _%g160767160795%_)) - (_%g160766160792%_ _%g160767160795%_)))) - (_%g160766160792%_ _%g160767160795%_)) - (_%g160766160792%_ _%g160767160795%_)) - (_%g160766160792%_ _%g160767160795%_)))) + _%hd162073162127%_ + _%hd162070162119%_) + (_%g162053162079%_ + _%g162054162082%_)))) + (_%g162053162079%_ _%g162054162082%_)) + (_%g162053162079%_ _%g162054162082%_)))) + (_%g162053162079%_ _%g162054162082%_)) + (_%g162053162079%_ _%g162054162082%_)) + (_%g162053162079%_ _%g162054162082%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g160766160792%_ - _%g160767160795%_)))) - (_%g160766160792%_ _%g160767160795%_)))) - (_%g160766160792%_ _%g160767160795%_)))) - (_%g160766160792%_ _%g160767160795%_))))) - (_%g160765160873%_ _%stx160764%_)))) + (_%g162053162079%_ + _%g162054162082%_)))) + (_%g162053162079%_ _%g162054162082%_)))) + (_%g162053162079%_ _%g162054162082%_)))) + (_%g162053162079%_ _%g162054162082%_))))) + (_%g162052162160%_ _%stx162051%_)))) (define gxc#basic-expression-type-special-apply - (lambda (_%ctx160553%_ _%stx160554%_) - (letrec ((_%type-e160556%_ - (lambda (_%rator160759%_ _%rator-type160760%_ _%args160761%_) + (lambda (_%ctx161840%_ _%stx161841%_) + (letrec ((_%type-e161843%_ + (lambda (_%rator162046%_ _%rator-type162047%_ _%args162048%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type160760%_ + _%rator-type162047%_ 'gxc#!procedure::t)) - (let ((__method170844 + (let ((__method172131 (let () (declare (not safe)) (__method-ref - _%rator-type160760%_ + _%rator-type162047%_ 'apply-return-type)))) - (if __method170844 + (if __method172131 (let () (declare (not safe)) - (__method170844 - _%rator-type160760%_ - _%ctx160553%_ - _%stx160554%_ - _%args160761%_)) + (__method172131 + _%rator-type162047%_ + _%ctx161840%_ + _%stx161841%_ + _%args162048%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type160760%_ + _%rator-type162047%_ 'apply-return-type)) '#!void))) '#f)))) - (let* ((_%__stx169154169155%_ _%stx160554%_) - (_%g160560160602%_ + (let* ((_%__stx170441170442%_ _%stx161841%_) + (_%g161847161889%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169154169155%_))))) - (let ((_%__kont169156169157%_ - (lambda (_%L160723%_ _%L160724%_ _%L160725%_ _%L160726%_) - (let ((_%rator-type160749160751%_ - (gxc#apply-basic-expression-type _%L160724%_))) - (if _%rator-type160749160751%_ - (let ((_%rator-type160754%_ - _%rator-type160749160751%_)) - (_%type-e160556%_ - _%L160724%_ - _%rator-type160754%_ - (cons _%L160725%_ _%L160723%_))) + _%__stx170441170442%_))))) + (let ((_%__kont170443170444%_ + (lambda (_%L162010%_ _%L162011%_ _%L162012%_ _%L162013%_) + (let ((_%rator-type162036162038%_ + (gxc#apply-basic-expression-type _%L162011%_))) + (if _%rator-type162036162038%_ + (let ((_%rator-type162041%_ + _%rator-type162036162038%_)) + (_%type-e161843%_ + _%L162011%_ + _%rator-type162041%_ + (cons _%L162012%_ _%L162010%_))) '#f)))) - (_%__kont169158169159%_ - (lambda (_%L160638%_ _%L160639%_) - (let ((_%rator-type160655160657%_ - (gxc#apply-basic-expression-type _%L160639%_))) - (if _%rator-type160655160657%_ - (let ((_%rator-type160660%_ - _%rator-type160655160657%_)) - (_%type-e160556%_ - _%L160639%_ - _%rator-type160660%_ - _%L160638%_)) + (_%__kont170445170446%_ + (lambda (_%L161925%_ _%L161926%_) + (let ((_%rator-type161942161944%_ + (gxc#apply-basic-expression-type _%L161926%_))) + (if _%rator-type161942161944%_ + (let ((_%rator-type161947%_ + _%rator-type161942161944%_)) + (_%type-e161843%_ + _%L161926%_ + _%rator-type161947%_ + _%L161925%_)) '#f)))) - (_%__kont169160169161%_ (lambda () '#f))) - (let ((_%__match169209169210%_ - (lambda (_%e160566160667%_ - _%hd160567160670%_ - _%tl160568160672%_ - _%e160569160675%_ - _%hd160570160678%_ - _%tl160571160680%_ - _%e160572160683%_ - _%hd160573160686%_ - _%tl160574160688%_ - _%e160575160691%_ - _%hd160576160694%_ - _%tl160577160696%_ - _%e160578160699%_ - _%hd160579160702%_ - _%tl160580160704%_ - _%e160581160707%_ - _%hd160582160710%_ - _%tl160583160712%_ - _%e160584160715%_ - _%hd160585160718%_ - _%tl160586160720%_) - (let ((_%L160723%_ _%tl160586160720%_) - (_%L160724%_ _%hd160585160718%_) - (_%L160725%_ _%hd160582160710%_) - (_%L160726%_ _%hd160579160702%_)) + (_%__kont170447170448%_ (lambda () '#f))) + (let ((_%__match170496170497%_ + (lambda (_%e161853161954%_ + _%hd161854161957%_ + _%tl161855161959%_ + _%e161856161962%_ + _%hd161857161965%_ + _%tl161858161967%_ + _%e161859161970%_ + _%hd161860161973%_ + _%tl161861161975%_ + _%e161862161978%_ + _%hd161863161981%_ + _%tl161864161983%_ + _%e161865161986%_ + _%hd161866161989%_ + _%tl161867161991%_ + _%e161868161994%_ + _%hd161869161997%_ + _%tl161870161999%_ + _%e161871162002%_ + _%hd161872162005%_ + _%tl161873162007%_) + (let ((_%L162010%_ _%tl161873162007%_) + (_%L162011%_ _%hd161872162005%_) + (_%L162012%_ _%hd161869161997%_) + (_%L162013%_ _%hd161866161989%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L160726%_ + _%L162013%_ 'keyword-dispatch)) - (_%__kont169156169157%_ - _%L160723%_ - _%L160724%_ - _%L160725%_ - _%L160726%_) - (_%__kont169158169159%_ - _%tl160574160688%_ - _%hd160573160686%_)))))) + (_%__kont170443170444%_ + _%L162010%_ + _%L162011%_ + _%L162012%_ + _%L162013%_) + (_%__kont170445170446%_ + _%tl161861161975%_ + _%hd161860161973%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169154169155%_)) - (let ((_%e160566160667%_ + (gx#stx-pair? _%__stx170441170442%_)) + (let ((_%e161853161954%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169154169155%_)))) - (let ((_%tl160568160672%_ + (gx#stx-e _%__stx170441170442%_)))) + (let ((_%tl161855161959%_ (let () (declare (not safe)) - (##cdr _%e160566160667%_))) - (_%hd160567160670%_ + (##cdr _%e161853161954%_))) + (_%hd161854161957%_ (let () (declare (not safe)) - (##car _%e160566160667%_)))) + (##car _%e161853161954%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160568160672%_)) - (let ((_%e160569160675%_ + (gx#stx-pair? _%tl161855161959%_)) + (let ((_%e161856161962%_ (let () (declare (not safe)) - (gx#stx-e _%tl160568160672%_)))) - (let ((_%tl160571160680%_ + (gx#stx-e _%tl161855161959%_)))) + (let ((_%tl161858161967%_ (let () (declare (not safe)) - (##cdr _%e160569160675%_))) - (_%hd160570160678%_ + (##cdr _%e161856161962%_))) + (_%hd161857161965%_ (let () (declare (not safe)) - (##car _%e160569160675%_)))) + (##car _%e161856161962%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160571160680%_)) - (let ((_%e160572160683%_ + (gx#stx-pair? _%tl161858161967%_)) + (let ((_%e161859161970%_ (let () (declare (not safe)) - (gx#stx-e _%tl160571160680%_)))) - (let ((_%tl160574160688%_ + (gx#stx-e _%tl161858161967%_)))) + (let ((_%tl161861161975%_ (let () (declare (not safe)) - (##cdr _%e160572160683%_))) - (_%hd160573160686%_ + (##cdr _%e161859161970%_))) + (_%hd161860161973%_ (let () (declare (not safe)) - (##car _%e160572160683%_)))) + (##car _%e161859161970%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd160573160686%_)) - (let ((_%e160575160691%_ + _%hd161860161973%_)) + (let ((_%e161862161978%_ (let () (declare (not safe)) (gx#stx-e - _%hd160573160686%_)))) - (let ((_%tl160577160696%_ + _%hd161860161973%_)))) + (let ((_%tl161864161983%_ (let () (declare (not safe)) - (##cdr _%e160575160691%_))) - (_%hd160576160694%_ + (##cdr _%e161862161978%_))) + (_%hd161863161981%_ (let () (declare (not safe)) - (##car _%e160575160691%_)))) + (##car _%e161862161978%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd160576160694%_)) + _%hd161863161981%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd160576160694%_)) + _%hd161863161981%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160577160696%_)) - (let ((_%e160578160699%_ + _%tl161864161983%_)) + (let ((_%e161865161986%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl160577160696%_)))) - (let ((_%tl160580160704%_ + (gx#stx-e _%tl161864161983%_)))) + (let ((_%tl161867161991%_ (let () (declare (not safe)) - (##cdr _%e160578160699%_))) - (_%hd160579160702%_ + (##cdr _%e161865161986%_))) + (_%hd161866161989%_ (let () (declare (not safe)) - (##car _%e160578160699%_)))) + (##car _%e161865161986%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160580160704%_)) + (gx#stx-null? _%tl161867161991%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160574160688%_)) - (let ((_%e160581160707%_ + (gx#stx-pair? _%tl161861161975%_)) + (let ((_%e161868161994%_ (let () (declare (not safe)) - (gx#stx-e _%tl160574160688%_)))) - (let ((_%tl160583160712%_ + (gx#stx-e _%tl161861161975%_)))) + (let ((_%tl161870161999%_ (let () (declare (not safe)) - (##cdr _%e160581160707%_))) - (_%hd160582160710%_ + (##cdr _%e161868161994%_))) + (_%hd161869161997%_ (let () (declare (not safe)) - (##car _%e160581160707%_)))) + (##car _%e161868161994%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160583160712%_)) - (let ((_%e160584160715%_ + (gx#stx-pair? _%tl161870161999%_)) + (let ((_%e161871162002%_ (let () (declare (not safe)) (gx#stx-e - _%tl160583160712%_)))) - (let ((_%tl160586160720%_ + _%tl161870161999%_)))) + (let ((_%tl161873162007%_ (let () (declare (not safe)) - (##cdr _%e160584160715%_))) - (_%hd160585160718%_ + (##cdr _%e161871162002%_))) + (_%hd161872162005%_ (let () (declare (not safe)) - (##car _%e160584160715%_)))) - (_%__match169209169210%_ - _%e160566160667%_ - _%hd160567160670%_ - _%tl160568160672%_ - _%e160569160675%_ - _%hd160570160678%_ - _%tl160571160680%_ - _%e160572160683%_ - _%hd160573160686%_ - _%tl160574160688%_ - _%e160575160691%_ - _%hd160576160694%_ - _%tl160577160696%_ - _%e160578160699%_ - _%hd160579160702%_ - _%tl160580160704%_ - _%e160581160707%_ - _%hd160582160710%_ - _%tl160583160712%_ - _%e160584160715%_ - _%hd160585160718%_ - _%tl160586160720%_))) - (_%__kont169158169159%_ - _%tl160574160688%_ - _%hd160573160686%_)))) - (_%__kont169158169159%_ - _%tl160574160688%_ - _%hd160573160686%_)) - (_%__kont169158169159%_ - _%tl160574160688%_ - _%hd160573160686%_)))) - (_%__kont169158169159%_ - _%tl160574160688%_ - _%hd160573160686%_)) - (_%__kont169158169159%_ _%tl160574160688%_ _%hd160573160686%_)) + (##car _%e161871162002%_)))) + (_%__match170496170497%_ + _%e161853161954%_ + _%hd161854161957%_ + _%tl161855161959%_ + _%e161856161962%_ + _%hd161857161965%_ + _%tl161858161967%_ + _%e161859161970%_ + _%hd161860161973%_ + _%tl161861161975%_ + _%e161862161978%_ + _%hd161863161981%_ + _%tl161864161983%_ + _%e161865161986%_ + _%hd161866161989%_ + _%tl161867161991%_ + _%e161868161994%_ + _%hd161869161997%_ + _%tl161870161999%_ + _%e161871162002%_ + _%hd161872162005%_ + _%tl161873162007%_))) + (_%__kont170445170446%_ + _%tl161861161975%_ + _%hd161860161973%_)))) + (_%__kont170445170446%_ + _%tl161861161975%_ + _%hd161860161973%_)) + (_%__kont170445170446%_ + _%tl161861161975%_ + _%hd161860161973%_)))) + (_%__kont170445170446%_ + _%tl161861161975%_ + _%hd161860161973%_)) + (_%__kont170445170446%_ _%tl161861161975%_ _%hd161860161973%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169158169159%_ - _%tl160574160688%_ - _%hd160573160686%_)))) - (_%__kont169158169159%_ - _%tl160574160688%_ - _%hd160573160686%_)))) - (_%__kont169160169161%_)))) - (_%__kont169160169161%_)))) - (_%__kont169160169161%_)))))))) + (_%__kont170445170446%_ + _%tl161861161975%_ + _%hd161860161973%_)))) + (_%__kont170445170446%_ + _%tl161861161975%_ + _%hd161860161973%_)))) + (_%__kont170447170448%_)))) + (_%__kont170447170448%_)))) + (_%__kont170447170448%_)))))))) (let () (declare (not safe)) (__hash-put! @@ -12814,1758 +12814,1758 @@ '##apply gxc#basic-expression-type-special-apply)) (define gxc#basic-expression-type-ref% - (lambda (_%self160501%_ _%stx160502%_) - (let* ((_%g160504160517%_ - (lambda (_%g160505160514%_) + (lambda (_%self161788%_ _%stx161789%_) + (let* ((_%g161791161804%_ + (lambda (_%g161792161801%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160505160514%_)))) - (_%g160503160550%_ - (lambda (_%g160505160520%_) + _%g161792161801%_)))) + (_%g161790161837%_ + (lambda (_%g161792161807%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160505160520%_)) - (let ((_%e160507160522%_ + (gx#stx-pair? _%g161792161807%_)) + (let ((_%e161794161809%_ (let () (declare (not safe)) - (gx#stx-e _%g160505160520%_)))) - (let ((_%hd160508160525%_ + (gx#stx-e _%g161792161807%_)))) + (let ((_%hd161795161812%_ (let () (declare (not safe)) - (##car _%e160507160522%_))) - (_%tl160509160527%_ + (##car _%e161794161809%_))) + (_%tl161796161814%_ (let () (declare (not safe)) - (##cdr _%e160507160522%_)))) + (##cdr _%e161794161809%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160509160527%_)) - (let ((_%e160510160530%_ + (gx#stx-pair? _%tl161796161814%_)) + (let ((_%e161797161817%_ (let () (declare (not safe)) - (gx#stx-e _%tl160509160527%_)))) - (let ((_%hd160511160533%_ + (gx#stx-e _%tl161796161814%_)))) + (let ((_%hd161798161820%_ (let () (declare (not safe)) - (##car _%e160510160530%_))) - (_%tl160512160535%_ + (##car _%e161797161817%_))) + (_%tl161799161822%_ (let () (declare (not safe)) - (##cdr _%e160510160530%_)))) + (##cdr _%e161797161817%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160512160535%_)) - ((lambda (_%L160538%_) - (let ((__tmp171043 + (gx#stx-null? _%tl161799161822%_)) + ((lambda (_%L161825%_) + (let ((__tmp172330 (let () (declare (not safe)) (gxc#identifier-symbol - _%L160538%_)))) + _%L161825%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp171043))) - _%hd160511160533%_) - (_%g160504160517%_ _%g160505160520%_)))) - (_%g160504160517%_ _%g160505160520%_)))) - (_%g160504160517%_ _%g160505160520%_))))) - (_%g160503160550%_ _%stx160502%_)))) + __tmp172330))) + _%hd161798161820%_) + (_%g161791161804%_ _%g161792161807%_)))) + (_%g161791161804%_ _%g161792161807%_)))) + (_%g161791161804%_ _%g161792161807%_))))) + (_%g161790161837%_ _%stx161789%_)))) (define gxc#basic-expression-type-if% - (lambda (_%self160080%_ _%stx160081%_) - (letrec ((_%type-e160083%_ - (lambda (_%type-K160495%_ _%type-E160496%_) + (lambda (_%self161367%_ _%stx161368%_) + (letrec ((_%type-e161370%_ + (lambda (_%type-K161782%_ _%type-E161783%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-E160496%_ + _%type-E161783%_ 'gxc#!abort::t)) - _%type-K160495%_ + _%type-K161782%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-K160495%_ + _%type-K161782%_ 'gxc#!abort::t)) - _%type-E160496%_ + _%type-E161783%_ (gxc#greatest-common-type - _%stx160081%_ - _%type-K160495%_ - _%type-E160496%_))))) - (_%basic-type-e160084%_ - (lambda (_%K160489%_ _%E160490%_) - (let ((_%type-K160492%_ - (gxc#apply-basic-expression-type _%K160489%_)) - (_%type-E160493%_ - (gxc#apply-basic-expression-type _%E160490%_))) - (_%type-e160083%_ _%type-K160492%_ _%type-E160493%_))))) - (let* ((_%__stx169230169231%_ _%stx160081%_) - (_%g160088160177%_ + _%stx161368%_ + _%type-K161782%_ + _%type-E161783%_))))) + (_%basic-type-e161371%_ + (lambda (_%K161776%_ _%E161777%_) + (let ((_%type-K161779%_ + (gxc#apply-basic-expression-type _%K161776%_)) + (_%type-E161780%_ + (gxc#apply-basic-expression-type _%E161777%_))) + (_%type-e161370%_ _%type-K161779%_ _%type-E161780%_))))) + (let* ((_%__stx170517170518%_ _%stx161368%_) + (_%g161375161464%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169230169231%_))))) - (let ((_%__kont169232169233%_ - (lambda (_%L160436%_ _%L160437%_ _%L160438%_ _%L160439%_) - (let ((_%$e160471%_ - (let ((__tmp171044 + _%__stx170517170518%_))))) + (let ((_%__kont170519170520%_ + (lambda (_%L161723%_ _%L161724%_ _%L161725%_ _%L161726%_) + (let ((_%$e161758%_ + (let ((__tmp172331 (let () (declare (not safe)) - (gxc#identifier-symbol _%L160439%_)))) + (gxc#identifier-symbol _%L161726%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171044)))) - (if _%$e160471%_ - ((lambda (_%pred-type160474%_) + (gxc#optimizer-lookup-type __tmp172331)))) + (if _%$e161758%_ + ((lambda (_%pred-type161761%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type160474%_ + _%pred-type161761%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type160474%_ + _%pred-type161761%_ 'gxc#!primitive-predicate::t))) - (let* ((_%type-K160480%_ - (let ((__tmp171047 + (let* ((_%type-K161767%_ + (let ((__tmp172334 (lambda () (gxc#apply-basic-expression-type - _%L160437%_))) - (__tmp171045 + _%L161724%_))) + (__tmp172332 (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#identifier-symbol _%L160438%_)) - (let ((__tmp171046 + (gxc#identifier-symbol _%L161725%_)) + (let ((__tmp172333 (##structure-ref - _%pred-type160474%_ + _%pred-type161761%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160081%_ - __tmp171046))) + _%stx161368%_ + __tmp172333))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp171047 + __tmp172334 gxc#current-compile-path-type - __tmp171045))) - (_%type-E160482%_ + __tmp172332))) + (_%type-E161769%_ (gxc#apply-basic-expression-type - _%L160436%_))) - (_%type-e160083%_ - _%type-K160480%_ - _%type-E160482%_)) - (_%basic-type-e160084%_ - _%L160437%_ - _%L160436%_))) - _%$e160471%_) - (_%basic-type-e160084%_ _%L160437%_ _%L160436%_))))) - (_%__kont169234169235%_ - (lambda (_%L160312%_ _%L160313%_ _%L160314%_ _%L160315%_) + _%L161723%_))) + (_%type-e161370%_ + _%type-K161767%_ + _%type-E161769%_)) + (_%basic-type-e161371%_ + _%L161724%_ + _%L161723%_))) + _%$e161758%_) + (_%basic-type-e161371%_ _%L161724%_ _%L161723%_))))) + (_%__kont170521170522%_ + (lambda (_%L161599%_ _%L161600%_ _%L161601%_ _%L161602%_) (gxc#basic-expression-type-if% - _%self160080%_ - (let ((__tmp171048 + _%self161367%_ + (let ((__tmp172335 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L160314%_ - (cons _%L160312%_ - (cons _%L160313%_ '())))))) + (cons _%L161601%_ + (cons _%L161599%_ + (cons _%L161600%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171048 _%stx160081%_))))) - (_%__kont169236169237%_ - (lambda (_%L160214%_ _%L160215%_ _%L160216%_) - (_%basic-type-e160084%_ _%L160215%_ _%L160214%_)))) - (let ((_%__match169391169392%_ - (lambda (_%e160131160240%_ - _%hd160132160243%_ - _%tl160133160245%_ - _%e160134160248%_ - _%hd160135160251%_ - _%tl160136160253%_ - _%e160137160256%_ - _%hd160138160259%_ - _%tl160139160261%_ - _%e160140160264%_ - _%hd160141160267%_ - _%tl160142160269%_ - _%e160143160272%_ - _%hd160144160275%_ - _%tl160145160277%_ - _%e160146160280%_ - _%hd160147160283%_ - _%tl160148160285%_ - _%e160149160288%_ - _%hd160150160291%_ - _%tl160151160293%_ - _%e160152160296%_ - _%hd160153160299%_ - _%tl160154160301%_ - _%e160155160304%_ - _%hd160156160307%_ - _%tl160157160309%_) - (let ((_%L160312%_ _%hd160156160307%_) - (_%L160313%_ _%hd160153160299%_) - (_%L160314%_ _%hd160150160291%_) - (_%L160315%_ _%hd160147160283%_)) + (gxc#xform-wrap-source __tmp172335 _%stx161368%_))))) + (_%__kont170523170524%_ + (lambda (_%L161501%_ _%L161502%_ _%L161503%_) + (_%basic-type-e161371%_ _%L161502%_ _%L161501%_)))) + (let ((_%__match170678170679%_ + (lambda (_%e161418161527%_ + _%hd161419161530%_ + _%tl161420161532%_ + _%e161421161535%_ + _%hd161422161538%_ + _%tl161423161540%_ + _%e161424161543%_ + _%hd161425161546%_ + _%tl161426161548%_ + _%e161427161551%_ + _%hd161428161554%_ + _%tl161429161556%_ + _%e161430161559%_ + _%hd161431161562%_ + _%tl161432161564%_ + _%e161433161567%_ + _%hd161434161570%_ + _%tl161435161572%_ + _%e161436161575%_ + _%hd161437161578%_ + _%tl161438161580%_ + _%e161439161583%_ + _%hd161440161586%_ + _%tl161441161588%_ + _%e161442161591%_ + _%hd161443161594%_ + _%tl161444161596%_) + (let ((_%L161599%_ _%hd161443161594%_) + (_%L161600%_ _%hd161440161586%_) + (_%L161601%_ _%hd161437161578%_) + (_%L161602%_ _%hd161434161570%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L160315%_ 'not)) - (_%__kont169234169235%_ - _%L160312%_ - _%L160313%_ - _%L160314%_ - _%L160315%_) - (_%__kont169236169237%_ - _%hd160156160307%_ - _%hd160153160299%_ - _%hd160135160251%_)))))) + (gxc#runtime-identifier=? _%L161602%_ 'not)) + (_%__kont170521170522%_ + _%L161599%_ + _%L161600%_ + _%L161601%_ + _%L161602%_) + (_%__kont170523170524%_ + _%hd161443161594%_ + _%hd161440161586%_ + _%hd161422161538%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169230169231%_)) - (let ((_%e160094160348%_ + (gx#stx-pair? _%__stx170517170518%_)) + (let ((_%e161381161635%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169230169231%_)))) - (let ((_%tl160096160353%_ + (gx#stx-e _%__stx170517170518%_)))) + (let ((_%tl161383161640%_ (let () (declare (not safe)) - (##cdr _%e160094160348%_))) - (_%hd160095160351%_ + (##cdr _%e161381161635%_))) + (_%hd161382161638%_ (let () (declare (not safe)) - (##car _%e160094160348%_)))) + (##car _%e161381161635%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160096160353%_)) - (let ((_%e160097160356%_ + (gx#stx-pair? _%tl161383161640%_)) + (let ((_%e161384161643%_ (let () (declare (not safe)) - (gx#stx-e _%tl160096160353%_)))) - (let ((_%tl160099160361%_ + (gx#stx-e _%tl161383161640%_)))) + (let ((_%tl161386161648%_ (let () (declare (not safe)) - (##cdr _%e160097160356%_))) - (_%hd160098160359%_ + (##cdr _%e161384161643%_))) + (_%hd161385161646%_ (let () (declare (not safe)) - (##car _%e160097160356%_)))) + (##car _%e161384161643%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd160098160359%_)) - (let ((_%e160100160364%_ + (gx#stx-pair? _%hd161385161646%_)) + (let ((_%e161387161651%_ (let () (declare (not safe)) - (gx#stx-e _%hd160098160359%_)))) - (let ((_%tl160102160369%_ + (gx#stx-e _%hd161385161646%_)))) + (let ((_%tl161389161656%_ (let () (declare (not safe)) - (##cdr _%e160100160364%_))) - (_%hd160101160367%_ + (##cdr _%e161387161651%_))) + (_%hd161388161654%_ (let () (declare (not safe)) - (##car _%e160100160364%_)))) + (##car _%e161387161651%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd160101160367%_)) + _%hd161388161654%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd160101160367%_)) + _%hd161388161654%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160102160369%_)) - (let ((_%e160103160372%_ + _%tl161389161656%_)) + (let ((_%e161390161659%_ (let () (declare (not safe)) (gx#stx-e - _%tl160102160369%_)))) - (let ((_%tl160105160377%_ + _%tl161389161656%_)))) + (let ((_%tl161392161664%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e160103160372%_))) - (_%hd160104160375%_ - (let () (declare (not safe)) (##car _%e160103160372%_)))) + (##cdr _%e161390161659%_))) + (_%hd161391161662%_ + (let () (declare (not safe)) (##car _%e161390161659%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd160104160375%_)) - (let ((_%e160106160380%_ + (gx#stx-pair? _%hd161391161662%_)) + (let ((_%e161393161667%_ (let () (declare (not safe)) - (gx#stx-e _%hd160104160375%_)))) - (let ((_%tl160108160385%_ + (gx#stx-e _%hd161391161662%_)))) + (let ((_%tl161395161672%_ (let () (declare (not safe)) - (##cdr _%e160106160380%_))) - (_%hd160107160383%_ + (##cdr _%e161393161667%_))) + (_%hd161394161670%_ (let () (declare (not safe)) - (##car _%e160106160380%_)))) + (##car _%e161393161667%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd160107160383%_)) + (gx#identifier? _%hd161394161670%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd160107160383%_)) + (gx#stx-eq? '%#ref _%hd161394161670%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160108160385%_)) - (let ((_%e160109160388%_ + (gx#stx-pair? _%tl161395161672%_)) + (let ((_%e161396161675%_ (let () (declare (not safe)) - (gx#stx-e _%tl160108160385%_)))) - (let ((_%tl160111160393%_ + (gx#stx-e _%tl161395161672%_)))) + (let ((_%tl161398161680%_ (let () (declare (not safe)) - (##cdr _%e160109160388%_))) - (_%hd160110160391%_ + (##cdr _%e161396161675%_))) + (_%hd161397161678%_ (let () (declare (not safe)) - (##car _%e160109160388%_)))) + (##car _%e161396161675%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160111160393%_)) + _%tl161398161680%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160105160377%_)) - (let ((_%e160112160396%_ + _%tl161392161664%_)) + (let ((_%e161399161683%_ (let () (declare (not safe)) (gx#stx-e - _%tl160105160377%_)))) - (let ((_%tl160114160401%_ + _%tl161392161664%_)))) + (let ((_%tl161401161688%_ (let () (declare (not safe)) - (##cdr _%e160112160396%_))) - (_%hd160113160399%_ + (##cdr _%e161399161683%_))) + (_%hd161400161686%_ (let () (declare (not safe)) - (##car _%e160112160396%_)))) + (##car _%e161399161683%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd160113160399%_)) - (let ((_%e160115160404%_ + _%hd161400161686%_)) + (let ((_%e161402161691%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd160113160399%_)))) - (let ((_%tl160117160409%_ + (gx#stx-e _%hd161400161686%_)))) + (let ((_%tl161404161696%_ (let () (declare (not safe)) - (##cdr _%e160115160404%_))) - (_%hd160116160407%_ + (##cdr _%e161402161691%_))) + (_%hd161403161694%_ (let () (declare (not safe)) - (##car _%e160115160404%_)))) + (##car _%e161402161691%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd160116160407%_)) + (gx#identifier? _%hd161403161694%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd160116160407%_)) + (gx#stx-eq? '%#ref _%hd161403161694%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160117160409%_)) - (let ((_%e160118160412%_ + (gx#stx-pair? _%tl161404161696%_)) + (let ((_%e161405161699%_ (let () (declare (not safe)) - (gx#stx-e _%tl160117160409%_)))) - (let ((_%tl160120160417%_ + (gx#stx-e _%tl161404161696%_)))) + (let ((_%tl161407161704%_ (let () (declare (not safe)) - (##cdr _%e160118160412%_))) - (_%hd160119160415%_ + (##cdr _%e161405161699%_))) + (_%hd161406161702%_ (let () (declare (not safe)) - (##car _%e160118160412%_)))) + (##car _%e161405161699%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160120160417%_)) + (gx#stx-null? _%tl161407161704%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160114160401%_)) + _%tl161401161688%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160121160420%_ + _%tl161386161648%_)) + (let ((_%e161408161707%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160123160425%_ + _%tl161386161648%_)))) + (let ((_%tl161410161712%_ (let () (declare (not safe)) - (##cdr _%e160121160420%_))) - (_%hd160122160423%_ + (##cdr _%e161408161707%_))) + (_%hd161409161710%_ (let () (declare (not safe)) - (##car _%e160121160420%_)))) + (##car _%e161408161707%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160123160425%_)) - (let ((_%e160124160428%_ + _%tl161410161712%_)) + (let ((_%e161411161715%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160123160425%_)))) - (let ((_%tl160126160433%_ + (gx#stx-e _%tl161410161712%_)))) + (let ((_%tl161413161720%_ (let () (declare (not safe)) - (##cdr _%e160124160428%_))) - (_%hd160125160431%_ + (##cdr _%e161411161715%_))) + (_%hd161412161718%_ (let () (declare (not safe)) - (##car _%e160124160428%_)))) + (##car _%e161411161715%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160126160433%_)) - (_%__kont169232169233%_ - _%hd160125160431%_ - _%hd160122160423%_ - _%hd160119160415%_ - _%hd160110160391%_) - (let () (declare (not safe)) (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) + (gx#stx-null? _%tl161413161720%_)) + (_%__kont170519170520%_ + _%hd161412161718%_ + _%hd161409161710%_ + _%hd161406161702%_ + _%hd161397161678%_) + (let () (declare (not safe)) (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160088160177%_))) + (_%g161375161464%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160167160198%_ + _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) - (let () (declare (not safe)) (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) + (let () (declare (not safe)) (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160088160177%_)))) + (_%g161375161464%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160114160401%_)) + _%tl161401161688%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160152160296%_ + _%tl161386161648%_)) + (let ((_%e161439161583%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160154160301%_ + _%tl161386161648%_)))) + (let ((_%tl161441161588%_ (let () (declare (not safe)) - (##cdr _%e160152160296%_))) - (_%hd160153160299%_ + (##cdr _%e161439161583%_))) + (_%hd161440161586%_ (let () (declare (not safe)) - (##car _%e160152160296%_)))) + (##car _%e161439161583%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160154160301%_)) - (let ((_%e160155160304%_ + _%tl161441161588%_)) + (let ((_%e161442161591%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160154160301%_)))) - (let ((_%tl160157160309%_ + (gx#stx-e _%tl161441161588%_)))) + (let ((_%tl161444161596%_ (let () (declare (not safe)) - (##cdr _%e160155160304%_))) - (_%hd160156160307%_ + (##cdr _%e161442161591%_))) + (_%hd161443161594%_ (let () (declare (not safe)) - (##car _%e160155160304%_)))) + (##car _%e161442161591%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160157160309%_)) - (_%__match169391169392%_ - _%e160094160348%_ - _%hd160095160351%_ - _%tl160096160353%_ - _%e160097160356%_ - _%hd160098160359%_ - _%tl160099160361%_ - _%e160100160364%_ - _%hd160101160367%_ - _%tl160102160369%_ - _%e160103160372%_ - _%hd160104160375%_ - _%tl160105160377%_ - _%e160106160380%_ - _%hd160107160383%_ - _%tl160108160385%_ - _%e160109160388%_ - _%hd160110160391%_ - _%tl160111160393%_ - _%e160112160396%_ - _%hd160113160399%_ - _%tl160114160401%_ - _%e160152160296%_ - _%hd160153160299%_ - _%tl160154160301%_ - _%e160155160304%_ - _%hd160156160307%_ - _%tl160157160309%_) - (let () (declare (not safe)) (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) + (gx#stx-null? _%tl161444161596%_)) + (_%__match170678170679%_ + _%e161381161635%_ + _%hd161382161638%_ + _%tl161383161640%_ + _%e161384161643%_ + _%hd161385161646%_ + _%tl161386161648%_ + _%e161387161651%_ + _%hd161388161654%_ + _%tl161389161656%_ + _%e161390161659%_ + _%hd161391161662%_ + _%tl161392161664%_ + _%e161393161667%_ + _%hd161394161670%_ + _%tl161395161672%_ + _%e161396161675%_ + _%hd161397161678%_ + _%tl161398161680%_ + _%e161399161683%_ + _%hd161400161686%_ + _%tl161401161688%_ + _%e161439161583%_ + _%hd161440161586%_ + _%tl161441161588%_ + _%e161442161591%_ + _%hd161443161594%_ + _%tl161444161596%_) + (let () (declare (not safe)) (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160088160177%_))) + (_%g161375161464%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160167160198%_ + _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) - (let () (declare (not safe)) (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) + (let () (declare (not safe)) (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160088160177%_))))))) + (_%g161375161464%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160114160401%_)) + (gx#stx-null? _%tl161401161688%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160152160296%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161439161583%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160154160301%_ + _%tl161386161648%_)))) + (let ((_%tl161441161588%_ (let () (declare (not safe)) - (##cdr _%e160152160296%_))) - (_%hd160153160299%_ + (##cdr _%e161439161583%_))) + (_%hd161440161586%_ (let () (declare (not safe)) - (##car _%e160152160296%_)))) + (##car _%e161439161583%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160154160301%_)) - (let ((_%e160155160304%_ + _%tl161441161588%_)) + (let ((_%e161442161591%_ (let () (declare (not safe)) (gx#stx-e - _%tl160154160301%_)))) - (let ((_%tl160157160309%_ + _%tl161441161588%_)))) + (let ((_%tl161444161596%_ (let () (declare (not safe)) - (##cdr _%e160155160304%_))) - (_%hd160156160307%_ + (##cdr _%e161442161591%_))) + (_%hd161443161594%_ (let () (declare (not safe)) - (##car _%e160155160304%_)))) + (##car _%e161442161591%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160157160309%_)) - (_%__match169391169392%_ - _%e160094160348%_ - _%hd160095160351%_ - _%tl160096160353%_ - _%e160097160356%_ - _%hd160098160359%_ - _%tl160099160361%_ - _%e160100160364%_ - _%hd160101160367%_ - _%tl160102160369%_ - _%e160103160372%_ - _%hd160104160375%_ - _%tl160105160377%_ - _%e160106160380%_ - _%hd160107160383%_ - _%tl160108160385%_ - _%e160109160388%_ - _%hd160110160391%_ - _%tl160111160393%_ - _%e160112160396%_ - _%hd160113160399%_ - _%tl160114160401%_ - _%e160152160296%_ - _%hd160153160299%_ - _%tl160154160301%_ - _%e160155160304%_ - _%hd160156160307%_ - _%tl160157160309%_) + _%tl161444161596%_)) + (_%__match170678170679%_ + _%e161381161635%_ + _%hd161382161638%_ + _%tl161383161640%_ + _%e161384161643%_ + _%hd161385161646%_ + _%tl161386161648%_ + _%e161387161651%_ + _%hd161388161654%_ + _%tl161389161656%_ + _%e161390161659%_ + _%hd161391161662%_ + _%tl161392161664%_ + _%e161393161667%_ + _%hd161394161670%_ + _%tl161395161672%_ + _%e161396161675%_ + _%hd161397161678%_ + _%tl161398161680%_ + _%e161399161683%_ + _%hd161400161686%_ + _%tl161401161688%_ + _%e161439161583%_ + _%hd161440161586%_ + _%tl161441161588%_ + _%e161442161591%_ + _%hd161443161594%_ + _%tl161444161596%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))) + (_%g161375161464%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) (gx#stx-e - _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160114160401%_)) + (gx#stx-null? _%tl161401161688%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160152160296%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161439161583%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160154160301%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161441161588%_ (let () (declare (not safe)) - (##cdr _%e160152160296%_))) - (_%hd160153160299%_ + (##cdr _%e161439161583%_))) + (_%hd161440161586%_ (let () (declare (not safe)) - (##car _%e160152160296%_)))) + (##car _%e161439161583%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160154160301%_)) - (let ((_%e160155160304%_ + _%tl161441161588%_)) + (let ((_%e161442161591%_ (let () (declare (not safe)) (gx#stx-e - _%tl160154160301%_)))) - (let ((_%tl160157160309%_ + _%tl161441161588%_)))) + (let ((_%tl161444161596%_ (let () (declare (not safe)) - (##cdr _%e160155160304%_))) - (_%hd160156160307%_ + (##cdr _%e161442161591%_))) + (_%hd161443161594%_ (let () (declare (not safe)) - (##car _%e160155160304%_)))) + (##car _%e161442161591%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160157160309%_)) - (_%__match169391169392%_ - _%e160094160348%_ - _%hd160095160351%_ - _%tl160096160353%_ - _%e160097160356%_ - _%hd160098160359%_ - _%tl160099160361%_ - _%e160100160364%_ - _%hd160101160367%_ - _%tl160102160369%_ - _%e160103160372%_ - _%hd160104160375%_ - _%tl160105160377%_ - _%e160106160380%_ - _%hd160107160383%_ - _%tl160108160385%_ - _%e160109160388%_ - _%hd160110160391%_ - _%tl160111160393%_ - _%e160112160396%_ - _%hd160113160399%_ - _%tl160114160401%_ - _%e160152160296%_ - _%hd160153160299%_ - _%tl160154160301%_ - _%e160155160304%_ - _%hd160156160307%_ - _%tl160157160309%_) + _%tl161444161596%_)) + (_%__match170678170679%_ + _%e161381161635%_ + _%hd161382161638%_ + _%tl161383161640%_ + _%e161384161643%_ + _%hd161385161646%_ + _%tl161386161648%_ + _%e161387161651%_ + _%hd161388161654%_ + _%tl161389161656%_ + _%e161390161659%_ + _%hd161391161662%_ + _%tl161392161664%_ + _%e161393161667%_ + _%hd161394161670%_ + _%tl161395161672%_ + _%e161396161675%_ + _%hd161397161678%_ + _%tl161398161680%_ + _%e161399161683%_ + _%hd161400161686%_ + _%tl161401161688%_ + _%e161439161583%_ + _%hd161440161586%_ + _%tl161441161588%_ + _%e161442161591%_ + _%hd161443161594%_ + _%tl161444161596%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))) + (_%g161375161464%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) (gx#stx-e - _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160114160401%_)) + (gx#stx-null? _%tl161401161688%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160152160296%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161439161583%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160154160301%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161441161588%_ (let () (declare (not safe)) - (##cdr _%e160152160296%_))) - (_%hd160153160299%_ + (##cdr _%e161439161583%_))) + (_%hd161440161586%_ (let () (declare (not safe)) - (##car _%e160152160296%_)))) + (##car _%e161439161583%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160154160301%_)) - (let ((_%e160155160304%_ + (gx#stx-pair? _%tl161441161588%_)) + (let ((_%e161442161591%_ (let () (declare (not safe)) (gx#stx-e - _%tl160154160301%_)))) - (let ((_%tl160157160309%_ + _%tl161441161588%_)))) + (let ((_%tl161444161596%_ (let () (declare (not safe)) - (##cdr _%e160155160304%_))) - (_%hd160156160307%_ + (##cdr _%e161442161591%_))) + (_%hd161443161594%_ (let () (declare (not safe)) - (##car _%e160155160304%_)))) + (##car _%e161442161591%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160157160309%_)) - (_%__match169391169392%_ - _%e160094160348%_ - _%hd160095160351%_ - _%tl160096160353%_ - _%e160097160356%_ - _%hd160098160359%_ - _%tl160099160361%_ - _%e160100160364%_ - _%hd160101160367%_ - _%tl160102160369%_ - _%e160103160372%_ - _%hd160104160375%_ - _%tl160105160377%_ - _%e160106160380%_ - _%hd160107160383%_ - _%tl160108160385%_ - _%e160109160388%_ - _%hd160110160391%_ - _%tl160111160393%_ - _%e160112160396%_ - _%hd160113160399%_ - _%tl160114160401%_ - _%e160152160296%_ - _%hd160153160299%_ - _%tl160154160301%_ - _%e160155160304%_ - _%hd160156160307%_ - _%tl160157160309%_) + _%tl161444161596%_)) + (_%__match170678170679%_ + _%e161381161635%_ + _%hd161382161638%_ + _%tl161383161640%_ + _%e161384161643%_ + _%hd161385161646%_ + _%tl161386161648%_ + _%e161387161651%_ + _%hd161388161654%_ + _%tl161389161656%_ + _%e161390161659%_ + _%hd161391161662%_ + _%tl161392161664%_ + _%e161393161667%_ + _%hd161394161670%_ + _%tl161395161672%_ + _%e161396161675%_ + _%hd161397161678%_ + _%tl161398161680%_ + _%e161399161683%_ + _%hd161400161686%_ + _%tl161401161688%_ + _%e161439161583%_ + _%hd161440161586%_ + _%tl161441161588%_ + _%e161442161591%_ + _%hd161443161594%_ + _%tl161444161596%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))) + (_%g161375161464%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160169160203%_)) - (let ((_%e160170160206%_ + (gx#stx-pair? _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) (gx#stx-e - _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))))) + (_%g161375161464%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160114160401%_)) + (gx#stx-null? _%tl161401161688%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160152160296%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161439161583%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160154160301%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161441161588%_ (let () (declare (not safe)) - (##cdr _%e160152160296%_))) - (_%hd160153160299%_ + (##cdr _%e161439161583%_))) + (_%hd161440161586%_ (let () (declare (not safe)) - (##car _%e160152160296%_)))) + (##car _%e161439161583%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160154160301%_)) - (let ((_%e160155160304%_ + (gx#stx-pair? _%tl161441161588%_)) + (let ((_%e161442161591%_ (let () (declare (not safe)) - (gx#stx-e _%tl160154160301%_)))) - (let ((_%tl160157160309%_ + (gx#stx-e _%tl161441161588%_)))) + (let ((_%tl161444161596%_ (let () (declare (not safe)) - (##cdr _%e160155160304%_))) - (_%hd160156160307%_ + (##cdr _%e161442161591%_))) + (_%hd161443161594%_ (let () (declare (not safe)) - (##car _%e160155160304%_)))) + (##car _%e161442161591%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160157160309%_)) - (_%__match169391169392%_ - _%e160094160348%_ - _%hd160095160351%_ - _%tl160096160353%_ - _%e160097160356%_ - _%hd160098160359%_ - _%tl160099160361%_ - _%e160100160364%_ - _%hd160101160367%_ - _%tl160102160369%_ - _%e160103160372%_ - _%hd160104160375%_ - _%tl160105160377%_ - _%e160106160380%_ - _%hd160107160383%_ - _%tl160108160385%_ - _%e160109160388%_ - _%hd160110160391%_ - _%tl160111160393%_ - _%e160112160396%_ - _%hd160113160399%_ - _%tl160114160401%_ - _%e160152160296%_ - _%hd160153160299%_ - _%tl160154160301%_ - _%e160155160304%_ - _%hd160156160307%_ - _%tl160157160309%_) + (gx#stx-null? _%tl161444161596%_)) + (_%__match170678170679%_ + _%e161381161635%_ + _%hd161382161638%_ + _%tl161383161640%_ + _%e161384161643%_ + _%hd161385161646%_ + _%tl161386161648%_ + _%e161387161651%_ + _%hd161388161654%_ + _%tl161389161656%_ + _%e161390161659%_ + _%hd161391161662%_ + _%tl161392161664%_ + _%e161393161667%_ + _%hd161394161670%_ + _%tl161395161672%_ + _%e161396161675%_ + _%hd161397161678%_ + _%tl161398161680%_ + _%e161399161683%_ + _%hd161400161686%_ + _%tl161401161688%_ + _%e161439161583%_ + _%hd161440161586%_ + _%tl161441161588%_ + _%e161442161591%_ + _%hd161443161594%_ + _%tl161444161596%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))) + (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160169160203%_)) - (let ((_%e160170160206%_ + (gx#stx-pair? _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))))) + (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160167160198%_ + _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ - (let () (declare (not safe)) (##car _%e160167160198%_)))) + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ + (let () (declare (not safe)) (##car _%e161454161485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160169160203%_)) - (let ((_%e160170160206%_ + (gx#stx-pair? _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) + (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160088160177%_)))) + (_%g161375161464%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160167160198%_ + _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) - (let () (declare (not safe)) (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) + (let () (declare (not safe)) (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160088160177%_)))))) + (_%g161375161464%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) (gx#stx-e - _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_)))) + (_%g161375161464%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) (gx#stx-e - _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_)))) + (_%g161375161464%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160169160203%_)) - (let ((_%e160170160206%_ + (gx#stx-pair? _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) (gx#stx-e - _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_)))))) + (_%g161375161464%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160169160203%_)) - (let ((_%e160170160206%_ + (gx#stx-pair? _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_)))))) + (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160167160198%_ + _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + (gx#stx-e _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160169160203%_)) - (let ((_%e160170160206%_ + (gx#stx-pair? _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_)))) + (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160167160198%_ + _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ - (let () (declare (not safe)) (##car _%e160167160198%_)))) + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ + (let () (declare (not safe)) (##car _%e161454161485%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160169160203%_)) - (let ((_%e160170160206%_ + (gx#stx-pair? _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) + (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160088160177%_)))) + (_%g161375161464%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160099160361%_)) - (let ((_%e160167160198%_ + _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + (gx#stx-e _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) - (let () (declare (not safe)) (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))) + (gx#stx-null? _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) + (let () (declare (not safe)) (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160088160177%_)))))) + (_%g161375161464%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160099160361%_)) - (let ((_%e160167160198%_ + (gx#stx-pair? _%tl161386161648%_)) + (let ((_%e161454161485%_ (let () (declare (not safe)) (gx#stx-e - _%tl160099160361%_)))) - (let ((_%tl160169160203%_ + _%tl161386161648%_)))) + (let ((_%tl161456161490%_ (let () (declare (not safe)) - (##cdr _%e160167160198%_))) - (_%hd160168160201%_ + (##cdr _%e161454161485%_))) + (_%hd161455161488%_ (let () (declare (not safe)) - (##car _%e160167160198%_)))) + (##car _%e161454161485%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160169160203%_)) - (let ((_%e160170160206%_ + _%tl161456161490%_)) + (let ((_%e161457161493%_ (let () (declare (not safe)) (gx#stx-e - _%tl160169160203%_)))) - (let ((_%tl160172160211%_ + _%tl161456161490%_)))) + (let ((_%tl161459161498%_ (let () (declare (not safe)) - (##cdr _%e160170160206%_))) - (_%hd160171160209%_ + (##cdr _%e161457161493%_))) + (_%hd161458161496%_ (let () (declare (not safe)) - (##car _%e160170160206%_)))) + (##car _%e161457161493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160172160211%_)) - (_%__kont169236169237%_ - _%hd160171160209%_ - _%hd160168160201%_ - _%hd160098160359%_) + _%tl161459161498%_)) + (_%__kont170523170524%_ + _%hd161458161496%_ + _%hd161455161488%_ + _%hd161385161646%_) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_))))) + (_%g161375161464%_))))) (let () (declare (not safe)) - (_%g160088160177%_)))))) + (_%g161375161464%_)))))) (let () (declare (not safe)) - (_%g160088160177%_))))) - (let () (declare (not safe)) (_%g160088160177%_))))))))) + (_%g161375161464%_))))) + (let () (declare (not safe)) (_%g161375161464%_))))))))) (define gxc#greatest-common-type - (lambda (_%stx159936%_ _%type-a159937%_ _%type-b159938%_) - (letrec ((_%common-e159940%_ - (lambda (_%left160040%_ _%right160041%_) - (let _%loop160043%_ ((_%rest160045%_ _%left160040%_)) - (let* ((_%rest160046160054%_ _%rest160045%_) - (_%else160048160062%_ + (lambda (_%stx161223%_ _%type-a161224%_ _%type-b161225%_) + (letrec ((_%common-e161227%_ + (lambda (_%left161327%_ _%right161328%_) + (let _%loop161330%_ ((_%rest161332%_ _%left161327%_)) + (let* ((_%rest161333161341%_ _%rest161332%_) + (_%else161335161349%_ (lambda () (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159936%_ + _%stx161223%_ 't::t)))) - (_%K160050160068%_ - (lambda (_%rest160065%_ _%klass-name160066%_) - (if (memq _%klass-name160066%_ _%right160041%_) + (_%K161337161355%_ + (lambda (_%rest161352%_ _%klass-name161353%_) + (if (memq _%klass-name161353%_ _%right161328%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159936%_ - _%klass-name160066%_)) - (_%loop160043%_ _%rest160065%_))))) - (if (pair? _%rest160046160054%_) - (let ((_%hd160051160071%_ + _%stx161223%_ + _%klass-name161353%_)) + (_%loop161330%_ _%rest161352%_))))) + (if (pair? _%rest161333161341%_) + (let ((_%hd161338161358%_ (let () (declare (not safe)) - (##car _%rest160046160054%_))) - (_%tl160052160073%_ + (##car _%rest161333161341%_))) + (_%tl161339161360%_ (let () (declare (not safe)) - (##cdr _%rest160046160054%_)))) - (let* ((_%klass-name160076%_ _%hd160051160071%_) - (_%rest160078%_ _%tl160052160073%_)) - (_%K160050160068%_ - _%rest160078%_ - _%klass-name160076%_))) - (_%else160048160062%_)))))) - (_%common-tail159941%_ - (lambda (_%precedence-list-a159960%_ - _%precedence-list-b159961%_) - (let* ((_%rev-precedence-list-a159963%_ - (reverse _%precedence-list-a159960%_)) - (_%rev-precedence-list-b159965%_ - (reverse _%precedence-list-b159961%_))) - (let _%loop159968%_ ((_%rest-a159970%_ - _%rev-precedence-list-a159963%_) - (_%rest-b159971%_ - _%rev-precedence-list-b159965%_) - (_%result159972%_ '#f)) - (let* ((_%rest-a159973159981%_ _%rest-a159970%_) - (_%else159975159989%_ + (##cdr _%rest161333161341%_)))) + (let* ((_%klass-name161363%_ _%hd161338161358%_) + (_%rest161365%_ _%tl161339161360%_)) + (_%K161337161355%_ + _%rest161365%_ + _%klass-name161363%_))) + (_%else161335161349%_)))))) + (_%common-tail161228%_ + (lambda (_%precedence-list-a161247%_ + _%precedence-list-b161248%_) + (let* ((_%rev-precedence-list-a161250%_ + (reverse _%precedence-list-a161247%_)) + (_%rev-precedence-list-b161252%_ + (reverse _%precedence-list-b161248%_))) + (let _%loop161255%_ ((_%rest-a161257%_ + _%rev-precedence-list-a161250%_) + (_%rest-b161258%_ + _%rev-precedence-list-b161252%_) + (_%result161259%_ '#f)) + (let* ((_%rest-a161260161268%_ _%rest-a161257%_) + (_%else161262161276%_ (lambda () - (if _%result159972%_ + (if _%result161259%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159936%_ - _%result159972%_)) + _%stx161223%_ + _%result161259%_)) '#f))) - (_%K159977160028%_ - (lambda (_%rest-a159992%_ _%super-a159993%_) - (let* ((_%rest-b159994160002%_ - _%rest-b159971%_) - (_%else159996160010%_ + (_%K161264161315%_ + (lambda (_%rest-a161279%_ _%super-a161280%_) + (let* ((_%rest-b161281161289%_ + _%rest-b161258%_) + (_%else161283161297%_ (lambda () - (if _%result159972%_ + (if _%result161259%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159936%_ - _%result159972%_)) + _%stx161223%_ + _%result161259%_)) '#f))) - (_%K159998160016%_ - (lambda (_%rest-b160013%_ - _%super-b160014%_) - (if (eq? _%super-a159993%_ - _%super-b160014%_) - (_%loop159968%_ - _%rest-a159992%_ - _%rest-b160013%_ - _%super-a159993%_) - (if _%result159972%_ + (_%K161285161303%_ + (lambda (_%rest-b161300%_ + _%super-b161301%_) + (if (eq? _%super-a161280%_ + _%super-b161301%_) + (_%loop161255%_ + _%rest-a161279%_ + _%rest-b161300%_ + _%super-a161280%_) + (if _%result161259%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159936%_ - _%result159972%_)) + _%stx161223%_ + _%result161259%_)) '#f))))) - (if (pair? _%rest-b159994160002%_) - (let ((_%hd159999160019%_ + (if (pair? _%rest-b161281161289%_) + (let ((_%hd161286161306%_ (let () (declare (not safe)) - (##car _%rest-b159994160002%_))) - (_%tl160000160021%_ + (##car _%rest-b161281161289%_))) + (_%tl161287161308%_ (let () (declare (not safe)) - (##cdr _%rest-b159994160002%_)))) - (let* ((_%super-b160024%_ - _%hd159999160019%_) - (_%rest-b160026%_ - _%tl160000160021%_)) - (_%K159998160016%_ - _%rest-b160026%_ - _%super-b160024%_))) - (_%else159996160010%_)))))) - (if (pair? _%rest-a159973159981%_) - (let ((_%hd159978160031%_ + (##cdr _%rest-b161281161289%_)))) + (let* ((_%super-b161311%_ + _%hd161286161306%_) + (_%rest-b161313%_ + _%tl161287161308%_)) + (_%K161285161303%_ + _%rest-b161313%_ + _%super-b161311%_))) + (_%else161283161297%_)))))) + (if (pair? _%rest-a161260161268%_) + (let ((_%hd161265161318%_ (let () (declare (not safe)) - (##car _%rest-a159973159981%_))) - (_%tl159979160033%_ + (##car _%rest-a161260161268%_))) + (_%tl161266161320%_ (let () (declare (not safe)) - (##cdr _%rest-a159973159981%_)))) - (let* ((_%super-a160036%_ _%hd159978160031%_) - (_%rest-a160038%_ _%tl159979160033%_)) - (_%K159977160028%_ - _%rest-a160038%_ - _%super-a160036%_))) - (_%else159975159989%_)))))))) - (if (or (not _%type-a159937%_) (not _%type-b159938%_)) + (##cdr _%rest-a161260161268%_)))) + (let* ((_%super-a161323%_ _%hd161265161318%_) + (_%rest-a161325%_ _%tl161266161320%_)) + (_%K161264161315%_ + _%rest-a161325%_ + _%super-a161323%_))) + (_%else161262161276%_)))))))) + (if (or (not _%type-a161224%_) (not _%type-b161225%_)) (let () (declare (not safe)) - (gxc#optimizer-resolve-class _%stx159936%_ 't::t)) + (gxc#optimizer-resolve-class _%stx161223%_ 't::t)) (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-a159937%_ _%type-b159938%_)) - _%type-b159938%_ + (gxc#!type-subtype? _%type-a161224%_ _%type-b161225%_)) + _%type-b161225%_ (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-b159938%_ _%type-a159937%_)) - _%type-a159937%_ + (gxc#!type-subtype? _%type-b161225%_ _%type-a161224%_)) + _%type-a161224%_ (if (and (let () (declare (not safe)) (##structure-instance-of? - _%type-a159937%_ + _%type-a161224%_ 'gxc#!class::t)) (let () (declare (not safe)) (##structure-instance-of? - _%type-b159938%_ + _%type-b161225%_ 'gxc#!class::t))) - (let* ((_%precedence-list-a159950%_ + (let* ((_%precedence-list-a161237%_ (##structure-ref - _%type-a159937%_ + _%type-a161224%_ '3 gxc#!class::t '#f)) - (_%precedence-list-b159952%_ + (_%precedence-list-b161239%_ (##structure-ref - _%type-b159938%_ + _%type-b161225%_ '3 gxc#!class::t '#f))) - (if (> (length _%precedence-list-a159950%_) - (length _%precedence-list-b159952%_)) - (_%common-e159940%_ - _%precedence-list-b159952%_ - _%precedence-list-a159950%_) - (if (< (length _%precedence-list-a159950%_) - (length _%precedence-list-b159952%_)) - (_%common-e159940%_ - _%precedence-list-a159950%_ - _%precedence-list-b159952%_) - (_%common-tail159941%_ - _%precedence-list-a159950%_ - _%precedence-list-b159952%_)))) + (if (> (length _%precedence-list-a161237%_) + (length _%precedence-list-b161239%_)) + (_%common-e161227%_ + _%precedence-list-b161239%_ + _%precedence-list-a161237%_) + (if (< (length _%precedence-list-a161237%_) + (length _%precedence-list-b161239%_)) + (_%common-e161227%_ + _%precedence-list-a161237%_ + _%precedence-list-b161239%_) + (_%common-tail161228%_ + _%precedence-list-a161237%_ + _%precedence-list-b161239%_)))) (if (and (eq? (##structure-ref - _%type-a159937%_ + _%type-a161224%_ '1 gxc#!type::t '#f) 'procedure) (eq? (##structure-ref - _%type-b159938%_ + _%type-b161225%_ '1 gxc#!type::t '#f) @@ -14573,3419 +14573,3419 @@ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159936%_ + _%stx161223%_ 'procedure::t)) '#f)))))))) (define gxc#basic-expression-type-quote% - (lambda (_%self159848%_ _%stx159849%_) - (let* ((_%g159851159864%_ - (lambda (_%g159852159861%_) + (lambda (_%self161135%_ _%stx161136%_) + (let* ((_%g161138161151%_ + (lambda (_%g161139161148%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g159852159861%_)))) - (_%g159850159933%_ - (lambda (_%g159852159867%_) + _%g161139161148%_)))) + (_%g161137161220%_ + (lambda (_%g161139161154%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g159852159867%_)) - (let ((_%e159854159869%_ + (gx#stx-pair? _%g161139161154%_)) + (let ((_%e161141161156%_ (let () (declare (not safe)) - (gx#stx-e _%g159852159867%_)))) - (let ((_%hd159855159872%_ + (gx#stx-e _%g161139161154%_)))) + (let ((_%hd161142161159%_ (let () (declare (not safe)) - (##car _%e159854159869%_))) - (_%tl159856159874%_ + (##car _%e161141161156%_))) + (_%tl161143161161%_ (let () (declare (not safe)) - (##cdr _%e159854159869%_)))) + (##cdr _%e161141161156%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159856159874%_)) - (let ((_%e159857159877%_ + (gx#stx-pair? _%tl161143161161%_)) + (let ((_%e161144161164%_ (let () (declare (not safe)) - (gx#stx-e _%tl159856159874%_)))) - (let ((_%hd159858159880%_ + (gx#stx-e _%tl161143161161%_)))) + (let ((_%hd161145161167%_ (let () (declare (not safe)) - (##car _%e159857159877%_))) - (_%tl159859159882%_ + (##car _%e161144161164%_))) + (_%tl161146161169%_ (let () (declare (not safe)) - (##cdr _%e159857159877%_)))) + (##cdr _%e161144161164%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159859159882%_)) - ((lambda (_%L159885%_) - (let ((_%obj159897%_ + (gx#stx-null? _%tl161146161169%_)) + ((lambda (_%L161172%_) + (let ((_%obj161184%_ (let () (declare (not safe)) - (gx#stx-e _%L159885%_)))) + (gx#stx-e _%L161172%_)))) (if (let () (declare (not safe)) - (immediate? _%obj159897%_)) - (if (char? _%obj159897%_) + (immediate? _%obj161184%_)) + (if (char? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'char::t)) - (if (eq? _%obj159897%_ '#t) + (if (eq? _%obj161184%_ '#t) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'true::t)) - (if (not _%obj159897%_) + (if (not _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'false::t)) - (if (eq? _%obj159897%_ + (if (eq? _%obj161184%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!void) (let () (declare (not safe)) - (gxc#optimizer-resolve-class _%stx159849%_ 'void::t)) - (if (eof-object? _%obj159897%_) + (gxc#optimizer-resolve-class _%stx161136%_ 'void::t)) + (if (eof-object? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'eof::t)) - (if (fixnum? _%obj159897%_) + (if (fixnum? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'fixnum::t)) - (if (null? _%obj159897%_) + (if (null? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'null::t)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'special::t))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (number? _%obj159897%_) - (if (flonum? _%obj159897%_) + (if (number? _%obj161184%_) + (if (flonum? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'flonum::t)) (if (let () (declare (not safe)) (##bignum? - _%obj159897%_)) + _%obj161184%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'bignum::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##ratnum? _%obj159897%_)) + (##ratnum? _%obj161184%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'ratnum::t)) (if (let () (declare (not safe)) - (##cpxnum? _%obj159897%_)) + (##cpxnum? _%obj161184%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'cpxnum::t)) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (symbol? _%obj159897%_) + (if (symbol? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'symbol::t)) (if (keyword? - _%obj159897%_) + _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'keyword::t)) - (if (pair? _%obj159897%_) + (if (pair? _%obj161184%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#optimizer-resolve-class _%stx159849%_ 'pair::t)) - (if (sequence? _%obj159897%_) - (if (vector? _%obj159897%_) + (gxc#optimizer-resolve-class _%stx161136%_ 'pair::t)) + (if (sequence? _%obj161184%_) + (if (vector? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'vector::t)) - (if (string? _%obj159897%_) + (if (string? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'string::t)) - (if (u8vector? _%obj159897%_) + (if (u8vector? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'u8vector::t)) - (if (s8vector? _%obj159897%_) + (if (s8vector? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 's8vector::t)) - (if (u16vector? _%obj159897%_) + (if (u16vector? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'u16vector::t)) - (if (s16vector? _%obj159897%_) + (if (s16vector? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 's16vector::t)) (if (u32vector? - _%obj159897%_) + _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'u32vector::t)) (if (s32vector? - _%obj159897%_) + _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 's32vector::t)) (if (u64vector? - _%obj159897%_) + _%obj161184%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'u64vector::t)) - (if (s64vector? _%obj159897%_) + (if (s64vector? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 's64vector::t)) - (if (f32vector? _%obj159897%_) + (if (f32vector? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'f32vector::t)) - (if (f64vector? _%obj159897%_) + (if (f64vector? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'f64vector::t)) '#f)))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (box? _%obj159897%_) + (if (box? _%obj161184%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx159849%_ + _%stx161136%_ 'box::t)) '#f))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd159858159880%_) - (_%g159851159864%_ _%g159852159867%_)))) - (_%g159851159864%_ _%g159852159867%_)))) - (_%g159851159864%_ _%g159852159867%_))))) - (_%g159850159933%_ _%stx159849%_)))) + _%hd161145161167%_) + (_%g161138161151%_ _%g161139161154%_)))) + (_%g161138161151%_ _%g161139161154%_)))) + (_%g161138161151%_ _%g161139161154%_))))) + (_%g161137161220%_ _%stx161136%_)))) (define gxc#dispatch-lambda-form? - (lambda (_%form159082%_) - (let* ((_%__stx169420169421%_ _%form159082%_) - (_%g159087159244%_ + (lambda (_%form160369%_) + (let* ((_%__stx170707170708%_ _%form160369%_) + (_%g160374160531%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169420169421%_))))) - (let ((_%__kont169422169423%_ - (lambda (_%L159768%_ _%L159769%_ _%L159770%_) '#t)) - (_%__kont169428169429%_ - (lambda (_%L159556%_ - _%L159557%_ - _%L159558%_ - _%L159559%_ - _%L159560%_ - _%L159561%_) + _%__stx170707170708%_))))) + (let ((_%__kont170709170710%_ + (lambda (_%L161055%_ _%L161056%_ _%L161057%_) '#t)) + (_%__kont170715170716%_ + (lambda (_%L160843%_ + _%L160844%_ + _%L160845%_ + _%L160846%_ + _%L160847%_ + _%L160848%_) '#t)) - (_%__kont169434169435%_ - (lambda (_%L159352%_ _%L159353%_ _%L159354%_ _%L159355%_) + (_%__kont170721170722%_ + (lambda (_%L160639%_ _%L160640%_ _%L160641%_ _%L160642%_) '#t)) - (_%__kont169436169437%_ (lambda () '#f))) - (let* ((_%__match169561169562%_ - (lambda (_%e159204159256%_ - _%hd159205159259%_ - _%tl159206159261%_ - _%e159207159264%_ - _%hd159208159267%_ - _%tl159209159269%_ - _%e159210159272%_ - _%hd159211159275%_ - _%tl159212159277%_ - _%e159213159280%_ - _%hd159214159283%_ - _%tl159215159285%_ - _%e159216159288%_ - _%hd159217159291%_ - _%tl159218159293%_ - _%e159219159296%_ - _%hd159220159299%_ - _%tl159221159301%_ - _%e159222159304%_ - _%hd159223159307%_ - _%tl159224159309%_ - _%e159225159312%_ - _%hd159226159315%_ - _%tl159227159317%_ - _%e159228159320%_ - _%hd159229159323%_ - _%tl159230159325%_ - _%e159231159328%_ - _%hd159232159331%_ - _%tl159233159333%_ - _%e159234159336%_ - _%hd159235159339%_ - _%tl159236159341%_ - _%e159237159344%_ - _%hd159238159347%_ - _%tl159239159349%_) - (let ((_%L159352%_ _%hd159238159347%_) - (_%L159353%_ _%hd159229159323%_) - (_%L159354%_ _%hd159220159299%_) - (_%L159355%_ _%hd159205159259%_)) + (_%__kont170723170724%_ (lambda () '#f))) + (let* ((_%__match170848170849%_ + (lambda (_%e160491160543%_ + _%hd160492160546%_ + _%tl160493160548%_ + _%e160494160551%_ + _%hd160495160554%_ + _%tl160496160556%_ + _%e160497160559%_ + _%hd160498160562%_ + _%tl160499160564%_ + _%e160500160567%_ + _%hd160501160570%_ + _%tl160502160572%_ + _%e160503160575%_ + _%hd160504160578%_ + _%tl160505160580%_ + _%e160506160583%_ + _%hd160507160586%_ + _%tl160508160588%_ + _%e160509160591%_ + _%hd160510160594%_ + _%tl160511160596%_ + _%e160512160599%_ + _%hd160513160602%_ + _%tl160514160604%_ + _%e160515160607%_ + _%hd160516160610%_ + _%tl160517160612%_ + _%e160518160615%_ + _%hd160519160618%_ + _%tl160520160620%_ + _%e160521160623%_ + _%hd160522160626%_ + _%tl160523160628%_ + _%e160524160631%_ + _%hd160525160634%_ + _%tl160526160636%_) + (let ((_%L160639%_ _%hd160525160634%_) + (_%L160640%_ _%hd160516160610%_) + (_%L160641%_ _%hd160507160586%_) + (_%L160642%_ _%hd160492160546%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L159355%_)) + (gx#identifier? _%L160642%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L159354%_ + _%L160641%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L159355%_ - _%L159352%_)) + _%L160642%_ + _%L160639%_)) (not (let () (declare (not safe)) (gx#free-identifier=? - _%L159353%_ - _%L159355%_)))) - (_%__kont169434169435%_ - _%L159352%_ - _%L159353%_ - _%L159354%_ - _%L159355%_) - (_%__kont169436169437%_))))) - (_%__match169533169534%_ - (lambda (_%e159204159256%_ - _%hd159205159259%_ - _%tl159206159261%_ - _%e159207159264%_ - _%hd159208159267%_ - _%tl159209159269%_ - _%e159210159272%_ - _%hd159211159275%_ - _%tl159212159277%_ - _%e159213159280%_ - _%hd159214159283%_ - _%tl159215159285%_ - _%e159216159288%_ - _%hd159217159291%_ - _%tl159218159293%_ - _%e159219159296%_ - _%hd159220159299%_ - _%tl159221159301%_ - _%e159222159304%_ - _%hd159223159307%_ - _%tl159224159309%_ - _%e159225159312%_ - _%hd159226159315%_ - _%tl159227159317%_ - _%e159228159320%_ - _%hd159229159323%_ - _%tl159230159325%_) + _%L160640%_ + _%L160642%_)))) + (_%__kont170721170722%_ + _%L160639%_ + _%L160640%_ + _%L160641%_ + _%L160642%_) + (_%__kont170723170724%_))))) + (_%__match170820170821%_ + (lambda (_%e160491160543%_ + _%hd160492160546%_ + _%tl160493160548%_ + _%e160494160551%_ + _%hd160495160554%_ + _%tl160496160556%_ + _%e160497160559%_ + _%hd160498160562%_ + _%tl160499160564%_ + _%e160500160567%_ + _%hd160501160570%_ + _%tl160502160572%_ + _%e160503160575%_ + _%hd160504160578%_ + _%tl160505160580%_ + _%e160506160583%_ + _%hd160507160586%_ + _%tl160508160588%_ + _%e160509160591%_ + _%hd160510160594%_ + _%tl160511160596%_ + _%e160512160599%_ + _%hd160513160602%_ + _%tl160514160604%_ + _%e160515160607%_ + _%hd160516160610%_ + _%tl160517160612%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159224159309%_)) - (let ((_%e159231159328%_ + (gx#stx-pair? _%tl160511160596%_)) + (let ((_%e160518160615%_ (let () (declare (not safe)) - (gx#stx-e _%tl159224159309%_)))) - (let ((_%tl159233159333%_ + (gx#stx-e _%tl160511160596%_)))) + (let ((_%tl160520160620%_ (let () (declare (not safe)) - (##cdr _%e159231159328%_))) - (_%hd159232159331%_ + (##cdr _%e160518160615%_))) + (_%hd160519160618%_ (let () (declare (not safe)) - (##car _%e159231159328%_)))) + (##car _%e160518160615%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159232159331%_)) - (let ((_%e159234159336%_ + (gx#stx-pair? _%hd160519160618%_)) + (let ((_%e160521160623%_ (let () (declare (not safe)) - (gx#stx-e _%hd159232159331%_)))) - (let ((_%tl159236159341%_ + (gx#stx-e _%hd160519160618%_)))) + (let ((_%tl160523160628%_ (let () (declare (not safe)) - (##cdr _%e159234159336%_))) - (_%hd159235159339%_ + (##cdr _%e160521160623%_))) + (_%hd160522160626%_ (let () (declare (not safe)) - (##car _%e159234159336%_)))) + (##car _%e160521160623%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159235159339%_)) + _%hd160522160626%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159235159339%_)) + _%hd160522160626%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159236159341%_)) - (let ((_%e159237159344%_ + _%tl160523160628%_)) + (let ((_%e160524160631%_ (let () (declare (not safe)) (gx#stx-e - _%tl159236159341%_)))) - (let ((_%tl159239159349%_ + _%tl160523160628%_)))) + (let ((_%tl160526160636%_ (let () (declare (not safe)) - (##cdr _%e159237159344%_))) - (_%hd159238159347%_ + (##cdr _%e160524160631%_))) + (_%hd160525160634%_ (let () (declare (not safe)) - (##car _%e159237159344%_)))) + (##car _%e160524160631%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159239159349%_)) + _%tl160526160636%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl159233159333%_)) + (gx#stx-null? _%tl160520160620%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159209159269%_)) - (_%__match169561169562%_ - _%e159204159256%_ - _%hd159205159259%_ - _%tl159206159261%_ - _%e159207159264%_ - _%hd159208159267%_ - _%tl159209159269%_ - _%e159210159272%_ - _%hd159211159275%_ - _%tl159212159277%_ - _%e159213159280%_ - _%hd159214159283%_ - _%tl159215159285%_ - _%e159216159288%_ - _%hd159217159291%_ - _%tl159218159293%_ - _%e159219159296%_ - _%hd159220159299%_ - _%tl159221159301%_ - _%e159222159304%_ - _%hd159223159307%_ - _%tl159224159309%_ - _%e159225159312%_ - _%hd159226159315%_ - _%tl159227159317%_ - _%e159228159320%_ - _%hd159229159323%_ - _%tl159230159325%_ - _%e159231159328%_ - _%hd159232159331%_ - _%tl159233159333%_ - _%e159234159336%_ - _%hd159235159339%_ - _%tl159236159341%_ - _%e159237159344%_ - _%hd159238159347%_ - _%tl159239159349%_) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) + (gx#stx-null? _%tl160496160556%_)) + (_%__match170848170849%_ + _%e160491160543%_ + _%hd160492160546%_ + _%tl160493160548%_ + _%e160494160551%_ + _%hd160495160554%_ + _%tl160496160556%_ + _%e160497160559%_ + _%hd160498160562%_ + _%tl160499160564%_ + _%e160500160567%_ + _%hd160501160570%_ + _%tl160502160572%_ + _%e160503160575%_ + _%hd160504160578%_ + _%tl160505160580%_ + _%e160506160583%_ + _%hd160507160586%_ + _%tl160508160588%_ + _%e160509160591%_ + _%hd160510160594%_ + _%tl160511160596%_ + _%e160512160599%_ + _%hd160513160602%_ + _%tl160514160604%_ + _%e160515160607%_ + _%hd160516160610%_ + _%tl160517160612%_ + _%e160518160615%_ + _%hd160519160618%_ + _%tl160520160620%_ + _%e160521160623%_ + _%hd160522160626%_ + _%tl160523160628%_ + _%e160524160631%_ + _%hd160525160634%_ + _%tl160526160636%_) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)))) - (_%__match169463169464%_ - (lambda (_%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%__splice169430169431%_ - _%target159143159404%_ - _%tl159145159406%_) - (letrec ((_%loop159146159409%_ - (lambda (_%hd159144159412%_ - _%arg159150159414%_) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)))) + (_%__match170750170751%_ + (lambda (_%e160427160683%_ + _%hd160428160686%_ + _%tl160429160688%_ + _%__splice170717170718%_ + _%target160430160691%_ + _%tl160432160693%_) + (letrec ((_%loop160433160696%_ + (lambda (_%hd160431160699%_ + _%arg160437160701%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159144159412%_)) - (let ((_%e159147159417%_ + (gx#stx-pair? _%hd160431160699%_)) + (let ((_%e160434160704%_ (let () (declare (not safe)) - (gx#stx-e _%hd159144159412%_)))) - (let ((_%lp-tl159149159422%_ + (gx#stx-e _%hd160431160699%_)))) + (let ((_%lp-tl160436160709%_ (let () (declare (not safe)) - (##cdr _%e159147159417%_))) - (_%lp-hd159148159420%_ + (##cdr _%e160434160704%_))) + (_%lp-hd160435160707%_ (let () (declare (not safe)) - (##car _%e159147159417%_)))) - (_%loop159146159409%_ - _%lp-tl159149159422%_ - (cons _%lp-hd159148159420%_ - _%arg159150159414%_)))) - (let ((_%arg159151159425%_ - (reverse _%arg159150159414%_))) + (##car _%e160434160704%_)))) + (_%loop160433160696%_ + _%lp-tl160436160709%_ + (cons _%lp-hd160435160707%_ + _%arg160437160701%_)))) + (let ((_%arg160438160712%_ + (reverse _%arg160437160701%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159142159401%_)) - (let ((_%e159152159428%_ + _%tl160429160688%_)) + (let ((_%e160439160715%_ (let () (declare (not safe)) (gx#stx-e - _%tl159142159401%_)))) - (let ((_%tl159154159433%_ + _%tl160429160688%_)))) + (let ((_%tl160441160720%_ (let () (declare (not safe)) - (##cdr _%e159152159428%_))) - (_%hd159153159431%_ + (##cdr _%e160439160715%_))) + (_%hd160440160718%_ (let () (declare (not safe)) - (##car _%e159152159428%_)))) + (##car _%e160439160715%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159153159431%_)) - (let ((_%e159155159436%_ + _%hd160440160718%_)) + (let ((_%e160442160723%_ (let () (declare (not safe)) (gx#stx-e - _%hd159153159431%_)))) - (let ((_%tl159157159441%_ + _%hd160440160718%_)))) + (let ((_%tl160444160728%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159155159436%_))) - (_%hd159156159439%_ - (let () (declare (not safe)) (##car _%e159155159436%_)))) + (##cdr _%e160442160723%_))) + (_%hd160443160726%_ + (let () (declare (not safe)) (##car _%e160442160723%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159156159439%_)) + (gx#identifier? _%hd160443160726%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd159156159439%_)) + (gx#stx-eq? '%#call _%hd160443160726%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159157159441%_)) - (let ((_%e159158159444%_ + (gx#stx-pair? _%tl160444160728%_)) + (let ((_%e160445160731%_ (let () (declare (not safe)) - (gx#stx-e _%tl159157159441%_)))) - (let ((_%tl159160159449%_ + (gx#stx-e _%tl160444160728%_)))) + (let ((_%tl160447160736%_ (let () (declare (not safe)) - (##cdr _%e159158159444%_))) - (_%hd159159159447%_ + (##cdr _%e160445160731%_))) + (_%hd160446160734%_ (let () (declare (not safe)) - (##car _%e159158159444%_)))) + (##car _%e160445160731%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159159159447%_)) - (let ((_%e159161159452%_ + (gx#stx-pair? _%hd160446160734%_)) + (let ((_%e160448160739%_ (let () (declare (not safe)) - (gx#stx-e _%hd159159159447%_)))) - (let ((_%tl159163159457%_ + (gx#stx-e _%hd160446160734%_)))) + (let ((_%tl160450160744%_ (let () (declare (not safe)) - (##cdr _%e159161159452%_))) - (_%hd159162159455%_ + (##cdr _%e160448160739%_))) + (_%hd160449160742%_ (let () (declare (not safe)) - (##car _%e159161159452%_)))) + (##car _%e160448160739%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159162159455%_)) + _%hd160449160742%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159162159455%_)) + _%hd160449160742%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159163159457%_)) - (let ((_%e159164159460%_ + _%tl160450160744%_)) + (let ((_%e160451160747%_ (let () (declare (not safe)) (gx#stx-e - _%tl159163159457%_)))) - (let ((_%tl159166159465%_ + _%tl160450160744%_)))) + (let ((_%tl160453160752%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159164159460%_))) - (_%hd159165159463%_ - (let () (declare (not safe)) (##car _%e159164159460%_)))) + (##cdr _%e160451160747%_))) + (_%hd160452160750%_ + (let () (declare (not safe)) (##car _%e160451160747%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159166159465%_)) + (gx#stx-null? _%tl160453160752%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159160159449%_)) - (let ((_%e159167159468%_ + (gx#stx-pair? _%tl160447160736%_)) + (let ((_%e160454160755%_ (let () (declare (not safe)) - (gx#stx-e _%tl159160159449%_)))) - (let ((_%tl159169159473%_ + (gx#stx-e _%tl160447160736%_)))) + (let ((_%tl160456160760%_ (let () (declare (not safe)) - (##cdr _%e159167159468%_))) - (_%hd159168159471%_ + (##cdr _%e160454160755%_))) + (_%hd160455160758%_ (let () (declare (not safe)) - (##car _%e159167159468%_)))) + (##car _%e160454160755%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159168159471%_)) - (let ((_%e159170159476%_ + (gx#stx-pair? _%hd160455160758%_)) + (let ((_%e160457160763%_ (let () (declare (not safe)) - (gx#stx-e _%hd159168159471%_)))) - (let ((_%tl159172159481%_ + (gx#stx-e _%hd160455160758%_)))) + (let ((_%tl160459160768%_ (let () (declare (not safe)) - (##cdr _%e159170159476%_))) - (_%hd159171159479%_ + (##cdr _%e160457160763%_))) + (_%hd160458160766%_ (let () (declare (not safe)) - (##car _%e159170159476%_)))) + (##car _%e160457160763%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159171159479%_)) + (gx#identifier? _%hd160458160766%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159171159479%_)) + _%hd160458160766%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159172159481%_)) - (let ((_%e159173159484%_ + _%tl160459160768%_)) + (let ((_%e160460160771%_ (let () (declare (not safe)) (gx#stx-e - _%tl159172159481%_)))) - (let ((_%tl159175159489%_ + _%tl160459160768%_)))) + (let ((_%tl160462160776%_ (let () (declare (not safe)) - (##cdr _%e159173159484%_))) - (_%hd159174159487%_ + (##cdr _%e160460160771%_))) + (_%hd160461160774%_ (let () (declare (not safe)) - (##car _%e159173159484%_)))) + (##car _%e160460160771%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159175159489%_)) + _%tl160462160776%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl159169159473%_)) - (if (let ((__tmp171049 + _%tl160456160760%_)) + (if (let ((__tmp172336 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-length _%tl159169159473%_)))) + (gx#stx-length _%tl160456160760%_)))) (declare (not safe)) - (##fx>= __tmp171049 '1)) - (let ((_%__splice169432169433%_ + (##fx>= __tmp172336 '1)) + (let ((_%__splice170719170720%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl159169159473%_ + _%tl160456160760%_ '1)))) - (let ((_%tl159178159494%_ + (let ((_%tl160465160781%_ (let () (declare (not safe)) - (##vector-ref _%__splice169432169433%_ '1))) - (_%target159176159492%_ + (##vector-ref _%__splice170719170720%_ '1))) + (_%target160463160779%_ (let () (declare (not safe)) (##vector-ref - _%__splice169432169433%_ + _%__splice170719170720%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159178159494%_)) - (let ((_%e159185159497%_ + (gx#stx-pair? _%tl160465160781%_)) + (let ((_%e160472160784%_ (let () (declare (not safe)) - (gx#stx-e _%tl159178159494%_)))) - (let ((_%tl159187159502%_ + (gx#stx-e _%tl160465160781%_)))) + (let ((_%tl160474160789%_ (let () (declare (not safe)) - (##cdr _%e159185159497%_))) - (_%hd159186159500%_ + (##cdr _%e160472160784%_))) + (_%hd160473160787%_ (let () (declare (not safe)) - (##car _%e159185159497%_)))) + (##car _%e160472160784%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159186159500%_)) - (let ((_%e159188159505%_ + (gx#stx-pair? _%hd160473160787%_)) + (let ((_%e160475160792%_ (let () (declare (not safe)) (gx#stx-e - _%hd159186159500%_)))) - (let ((_%tl159190159510%_ + _%hd160473160787%_)))) + (let ((_%tl160477160797%_ (let () (declare (not safe)) - (##cdr _%e159188159505%_))) - (_%hd159189159508%_ + (##cdr _%e160475160792%_))) + (_%hd160476160795%_ (let () (declare (not safe)) - (##car _%e159188159505%_)))) + (##car _%e160475160792%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159189159508%_)) + _%hd160476160795%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159189159508%_)) + _%hd160476160795%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159190159510%_)) - (let ((_%e159191159513%_ + _%tl160477160797%_)) + (let ((_%e160478160800%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl159190159510%_)))) - (let ((_%tl159193159518%_ + (gx#stx-e _%tl160477160797%_)))) + (let ((_%tl160480160805%_ (let () (declare (not safe)) - (##cdr _%e159191159513%_))) - (_%hd159192159516%_ + (##cdr _%e160478160800%_))) + (_%hd160479160803%_ (let () (declare (not safe)) - (##car _%e159191159513%_)))) + (##car _%e160478160800%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159193159518%_)) + (gx#stx-null? _%tl160480160805%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159187159502%_)) - (letrec ((_%loop159179159521%_ - (lambda (_%hd159177159524%_ - _%xarg159183159526%_) + (gx#stx-null? _%tl160474160789%_)) + (letrec ((_%loop160466160808%_ + (lambda (_%hd160464160811%_ + _%xarg160470160813%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159177159524%_)) - (let ((_%e159180159529%_ + _%hd160464160811%_)) + (let ((_%e160467160816%_ (let () (declare (not safe)) (gx#stx-e - _%hd159177159524%_)))) - (let ((_%lp-tl159182159534%_ + _%hd160464160811%_)))) + (let ((_%lp-tl160469160821%_ (let () (declare (not safe)) - (##cdr _%e159180159529%_))) - (_%lp-hd159181159532%_ + (##cdr _%e160467160816%_))) + (_%lp-hd160468160819%_ (let () (declare (not safe)) - (##car _%e159180159529%_)))) + (##car _%e160467160816%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd159181159532%_)) - (let ((_%e159194159537%_ + _%lp-hd160468160819%_)) + (let ((_%e160481160824%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd159181159532%_)))) - (let ((_%tl159196159542%_ + _%lp-hd160468160819%_)))) + (let ((_%tl160483160829%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159194159537%_))) - (_%hd159195159540%_ - (let () (declare (not safe)) (##car _%e159194159537%_)))) + (##cdr _%e160481160824%_))) + (_%hd160482160827%_ + (let () (declare (not safe)) (##car _%e160481160824%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159195159540%_)) + (gx#identifier? _%hd160482160827%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159195159540%_)) + (gx#stx-eq? '%#ref _%hd160482160827%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159196159542%_)) - (let ((_%e159197159545%_ + (gx#stx-pair? _%tl160483160829%_)) + (let ((_%e160484160832%_ (let () (declare (not safe)) - (gx#stx-e _%tl159196159542%_)))) - (let ((_%tl159199159550%_ + (gx#stx-e _%tl160483160829%_)))) + (let ((_%tl160486160837%_ (let () (declare (not safe)) - (##cdr _%e159197159545%_))) - (_%hd159198159548%_ + (##cdr _%e160484160832%_))) + (_%hd160485160835%_ (let () (declare (not safe)) - (##car _%e159197159545%_)))) + (##car _%e160484160832%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159199159550%_)) - (_%loop159179159521%_ - _%lp-tl159182159534%_ - (cons _%hd159198159548%_ - _%xarg159183159526%_)) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)))) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)))) + (gx#stx-null? _%tl160486160837%_)) + (_%loop160466160808%_ + _%lp-tl160469160821%_ + (cons _%hd160485160835%_ + _%xarg160470160813%_)) + (_%__match170820170821%_ + _%e160427160683%_ + _%hd160428160686%_ + _%tl160429160688%_ + _%e160439160715%_ + _%hd160440160718%_ + _%tl160441160720%_ + _%e160442160723%_ + _%hd160443160726%_ + _%tl160444160728%_ + _%e160445160731%_ + _%hd160446160734%_ + _%tl160447160736%_ + _%e160448160739%_ + _%hd160449160742%_ + _%tl160450160744%_ + _%e160451160747%_ + _%hd160452160750%_ + _%tl160453160752%_ + _%e160454160755%_ + _%hd160455160758%_ + _%tl160456160760%_ + _%e160457160763%_ + _%hd160458160766%_ + _%tl160459160768%_ + _%e160460160771%_ + _%hd160461160774%_ + _%tl160462160776%_)))) + (_%__match170820170821%_ + _%e160427160683%_ + _%hd160428160686%_ + _%tl160429160688%_ + _%e160439160715%_ + _%hd160440160718%_ + _%tl160441160720%_ + _%e160442160723%_ + _%hd160443160726%_ + _%tl160444160728%_ + _%e160445160731%_ + _%hd160446160734%_ + _%tl160447160736%_ + _%e160448160739%_ + _%hd160449160742%_ + _%tl160450160744%_ + _%e160451160747%_ + _%hd160452160750%_ + _%tl160453160752%_ + _%e160454160755%_ + _%hd160455160758%_ + _%tl160456160760%_ + _%e160457160763%_ + _%hd160458160766%_ + _%tl160459160768%_ + _%e160460160771%_ + _%hd160461160774%_ + _%tl160462160776%_)) + (_%__match170820170821%_ + _%e160427160683%_ + _%hd160428160686%_ + _%tl160429160688%_ + _%e160439160715%_ + _%hd160440160718%_ + _%tl160441160720%_ + _%e160442160723%_ + _%hd160443160726%_ + _%tl160444160728%_ + _%e160445160731%_ + _%hd160446160734%_ + _%tl160447160736%_ + _%e160448160739%_ + _%hd160449160742%_ + _%tl160450160744%_ + _%e160451160747%_ + _%hd160452160750%_ + _%tl160453160752%_ + _%e160454160755%_ + _%hd160455160758%_ + _%tl160456160760%_ + _%e160457160763%_ + _%hd160458160766%_ + _%tl160459160768%_ + _%e160460160771%_ + _%hd160461160774%_ + _%tl160462160776%_)) + (_%__match170820170821%_ + _%e160427160683%_ + _%hd160428160686%_ + _%tl160429160688%_ + _%e160439160715%_ + _%hd160440160718%_ + _%tl160441160720%_ + _%e160442160723%_ + _%hd160443160726%_ + _%tl160444160728%_ + _%e160445160731%_ + _%hd160446160734%_ + _%tl160447160736%_ + _%e160448160739%_ + _%hd160449160742%_ + _%tl160450160744%_ + _%e160451160747%_ + _%hd160452160750%_ + _%tl160453160752%_ + _%e160454160755%_ + _%hd160455160758%_ + _%tl160456160760%_ + _%e160457160763%_ + _%hd160458160766%_ + _%tl160459160768%_ + _%e160460160771%_ + _%hd160461160774%_ + _%tl160462160776%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)))) - (let ((_%xarg159184159553%_ - (reverse _%xarg159183159526%_))) + (_%__match170820170821%_ + _%e160427160683%_ + _%hd160428160686%_ + _%tl160429160688%_ + _%e160439160715%_ + _%hd160440160718%_ + _%tl160441160720%_ + _%e160442160723%_ + _%hd160443160726%_ + _%tl160444160728%_ + _%e160445160731%_ + _%hd160446160734%_ + _%tl160447160736%_ + _%e160448160739%_ + _%hd160449160742%_ + _%tl160450160744%_ + _%e160451160747%_ + _%hd160452160750%_ + _%tl160453160752%_ + _%e160454160755%_ + _%hd160455160758%_ + _%tl160456160760%_ + _%e160457160763%_ + _%hd160458160766%_ + _%tl160459160768%_ + _%e160460160771%_ + _%hd160461160774%_ + _%tl160462160776%_)))) + (let ((_%xarg160471160840%_ + (reverse _%xarg160470160813%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159154159433%_)) - (let ((_%L159556%_ - _%hd159192159516%_) - (_%L159557%_ - _%xarg159184159553%_) - (_%L159558%_ - _%hd159174159487%_) - (_%L159559%_ - _%hd159165159463%_) - (_%L159560%_ - _%tl159145159406%_) - (_%L159561%_ - _%arg159151159425%_)) - (if (and (let ((__tmp171050 + _%tl160441160720%_)) + (let ((_%L160843%_ + _%hd160479160803%_) + (_%L160844%_ + _%xarg160471160840%_) + (_%L160845%_ + _%hd160461160774%_) + (_%L160846%_ + _%hd160452160750%_) + (_%L160847%_ + _%tl160432160693%_) + (_%L160848%_ + _%arg160438160712%_)) + (if (and (let ((__tmp172337 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171051 - (lambda (_%g159604159607%_ - _%g159605159609%_) - (cons _%g159604159607%_ - _%g159605159609%_)))) + (let ((__tmp172338 + (lambda (_%g160891160894%_ + _%g160892160896%_) + (cons _%g160891160894%_ + _%g160892160896%_)))) (declare (not safe)) - (__foldr1 __tmp171051 '() _%L159561%_)))) + (__foldr1 __tmp172338 '() _%L160848%_)))) (declare (not safe)) - (gx#identifier-list? __tmp171050)) - (let () (declare (not safe)) (gx#identifier? _%L159560%_)) + (gx#identifier-list? __tmp172337)) + (let () (declare (not safe)) (gx#identifier? _%L160847%_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L159559%_ 'apply)) - (let ((__tmp171054 - (length (let ((__tmp171055 - (lambda (_%g159611159614%_ - _%g159612159616%_) - (cons _%g159611159614%_ - _%g159612159616%_)))) + (gxc#runtime-identifier=? _%L160846%_ 'apply)) + (let ((__tmp172341 + (length (let ((__tmp172342 + (lambda (_%g160898160901%_ + _%g160899160903%_) + (cons _%g160898160901%_ + _%g160899160903%_)))) (declare (not safe)) - (__foldr1 __tmp171055 '() _%L159561%_)))) - (__tmp171052 - (length (let ((__tmp171053 - (lambda (_%g159618159621%_ - _%g159619159623%_) - (cons _%g159618159621%_ - _%g159619159623%_)))) + (__foldr1 __tmp172342 '() _%L160848%_)))) + (__tmp172339 + (length (let ((__tmp172340 + (lambda (_%g160905160908%_ + _%g160906160910%_) + (cons _%g160905160908%_ + _%g160906160910%_)))) (declare (not safe)) (__foldr1 - __tmp171053 + __tmp172340 '() - _%L159557%_))))) + _%L160844%_))))) (declare (not safe)) - (##fx= __tmp171054 __tmp171052)) - (let ((__tmp171058 - (let ((__tmp171059 - (lambda (_%g159625159628%_ - _%g159626159630%_) - (cons _%g159625159628%_ - _%g159626159630%_)))) + (##fx= __tmp172341 __tmp172339)) + (let ((__tmp172345 + (let ((__tmp172346 + (lambda (_%g160912160915%_ + _%g160913160917%_) + (cons _%g160912160915%_ + _%g160913160917%_)))) (declare (not safe)) - (__foldr1 __tmp171059 '() _%L159561%_))) - (__tmp171056 - (let ((__tmp171057 - (lambda (_%g159632159635%_ - _%g159633159637%_) - (cons _%g159632159635%_ - _%g159633159637%_)))) + (__foldr1 __tmp172346 '() _%L160848%_))) + (__tmp172343 + (let ((__tmp172344 + (lambda (_%g160919160922%_ + _%g160920160924%_) + (cons _%g160919160922%_ + _%g160920160924%_)))) (declare (not safe)) - (__foldr1 __tmp171057 '() _%L159557%_)))) + (__foldr1 __tmp172344 '() _%L160844%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp171058 - __tmp171056)) + __tmp172345 + __tmp172343)) (let () (declare (not safe)) - (gx#free-identifier=? _%L159560%_ _%L159556%_)) - (not (let ((__tmp171063 - (lambda (_%g159639159641%_) + (gx#free-identifier=? _%L160847%_ _%L160843%_)) + (not (let ((__tmp172350 + (lambda (_%g160926160928%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g159639159641%_ - _%L159558%_)))) - (__tmp171060 - (let ((__tmp171062 - (lambda (_%g159643159646%_ - _%g159644159648%_) - (cons _%g159643159646%_ - _%g159644159648%_))) - (__tmp171061 (cons _%L159560%_ '()))) + _%g160926160928%_ + _%L160845%_)))) + (__tmp172347 + (let ((__tmp172349 + (lambda (_%g160930160933%_ + _%g160931160935%_) + (cons _%g160930160933%_ + _%g160931160935%_))) + (__tmp172348 (cons _%L160847%_ '()))) (declare (not safe)) (__foldr1 - __tmp171062 - __tmp171061 - _%L159561%_)))) + __tmp172349 + __tmp172348 + _%L160848%_)))) (declare (not safe)) - (__find __tmp171063 __tmp171060)))) - (_%__kont169428169429%_ - _%L159556%_ - _%L159557%_ - _%L159558%_ - _%L159559%_ - _%L159560%_ - _%L159561%_) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_))) + (__find __tmp172350 __tmp172347)))) + (_%__kont170715170716%_ + _%L160843%_ + _%L160844%_ + _%L160845%_ + _%L160846%_ + _%L160847%_ + _%L160848%_) + (_%__match170820170821%_ + _%e160427160683%_ + _%hd160428160686%_ + _%tl160429160688%_ + _%e160439160715%_ + _%hd160440160718%_ + _%tl160441160720%_ + _%e160442160723%_ + _%hd160443160726%_ + _%tl160444160728%_ + _%e160445160731%_ + _%hd160446160734%_ + _%tl160447160736%_ + _%e160448160739%_ + _%hd160449160742%_ + _%tl160450160744%_ + _%e160451160747%_ + _%hd160452160750%_ + _%tl160453160752%_ + _%e160454160755%_ + _%hd160455160758%_ + _%tl160456160760%_ + _%e160457160763%_ + _%hd160458160766%_ + _%tl160459160768%_ + _%e160460160771%_ + _%hd160461160774%_ + _%tl160462160776%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_))))))) - (_%loop159179159521%_ - _%target159176159492%_ + (_%__match170820170821%_ + _%e160427160683%_ + _%hd160428160686%_ + _%tl160429160688%_ + _%e160439160715%_ + _%hd160440160718%_ + _%tl160441160720%_ + _%e160442160723%_ + _%hd160443160726%_ + _%tl160444160728%_ + _%e160445160731%_ + _%hd160446160734%_ + _%tl160447160736%_ + _%e160448160739%_ + _%hd160449160742%_ + _%tl160450160744%_ + _%e160451160747%_ + _%hd160452160750%_ + _%tl160453160752%_ + _%e160454160755%_ + _%hd160455160758%_ + _%tl160456160760%_ + _%e160457160763%_ + _%hd160458160766%_ + _%tl160459160768%_ + _%e160460160771%_ + _%hd160461160774%_ + _%tl160462160776%_))))))) + (_%loop160466160808%_ + _%target160463160779%_ '())) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)))) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)) + (_%__match170820170821%_ + _%e160427160683%_ + _%hd160428160686%_ + _%tl160429160688%_ + _%e160439160715%_ + _%hd160440160718%_ + _%tl160441160720%_ + _%e160442160723%_ + _%hd160443160726%_ + _%tl160444160728%_ + _%e160445160731%_ + _%hd160446160734%_ + _%tl160447160736%_ + _%e160448160739%_ + _%hd160449160742%_ + _%tl160450160744%_ + _%e160451160747%_ + _%hd160452160750%_ + _%tl160453160752%_ + _%e160454160755%_ + _%hd160455160758%_ + _%tl160456160760%_ + _%e160457160763%_ + _%hd160458160766%_ + _%tl160459160768%_ + _%e160460160771%_ + _%hd160461160774%_ + _%tl160462160776%_)) + (_%__match170820170821%_ + _%e160427160683%_ + _%hd160428160686%_ + _%tl160429160688%_ + _%e160439160715%_ + _%hd160440160718%_ + _%tl160441160720%_ + _%e160442160723%_ + _%hd160443160726%_ + _%tl160444160728%_ + _%e160445160731%_ + _%hd160446160734%_ + _%tl160447160736%_ + _%e160448160739%_ + _%hd160449160742%_ + _%tl160450160744%_ + _%e160451160747%_ + _%hd160452160750%_ + _%tl160453160752%_ + _%e160454160755%_ + _%hd160455160758%_ + _%tl160456160760%_ + _%e160457160763%_ + _%hd160458160766%_ + _%tl160459160768%_ + _%e160460160771%_ + _%hd160461160774%_ + _%tl160462160776%_)))) + (_%__match170820170821%_ + _%e160427160683%_ + _%hd160428160686%_ + _%tl160429160688%_ + _%e160439160715%_ + _%hd160440160718%_ + _%tl160441160720%_ + _%e160442160723%_ + _%hd160443160726%_ + _%tl160444160728%_ + _%e160445160731%_ + _%hd160446160734%_ + _%tl160447160736%_ + _%e160448160739%_ + _%hd160449160742%_ + _%tl160450160744%_ + _%e160451160747%_ + _%hd160452160750%_ + _%tl160453160752%_ + _%e160454160755%_ + _%hd160455160758%_ + _%tl160456160760%_ + _%e160457160763%_ + _%hd160458160766%_ + _%tl160459160768%_ + _%e160460160771%_ + _%hd160461160774%_ + _%tl160462160776%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)))) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)))) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)))) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)) - (_%__match169533169534%_ - _%e159140159396%_ - _%hd159141159399%_ - _%tl159142159401%_ - _%e159152159428%_ - _%hd159153159431%_ - _%tl159154159433%_ - _%e159155159436%_ - _%hd159156159439%_ - _%tl159157159441%_ - _%e159158159444%_ - _%hd159159159447%_ - _%tl159160159449%_ - _%e159161159452%_ - _%hd159162159455%_ - _%tl159163159457%_ - _%e159164159460%_ - _%hd159165159463%_ - _%tl159166159465%_ - _%e159167159468%_ - _%hd159168159471%_ - _%tl159169159473%_ - _%e159170159476%_ - _%hd159171159479%_ - _%tl159172159481%_ - _%e159173159484%_ - _%hd159174159487%_ - _%tl159175159489%_)) - (_%__kont169436169437%_)))) + (_%__match170820170821%_ + _%e160427160683%_ + _%hd160428160686%_ + _%tl160429160688%_ + _%e160439160715%_ + _%hd160440160718%_ + _%tl160441160720%_ + _%e160442160723%_ + _%hd160443160726%_ + _%tl160444160728%_ + _%e160445160731%_ + _%hd160446160734%_ + _%tl160447160736%_ + _%e160448160739%_ + _%hd160449160742%_ + _%tl160450160744%_ + _%e160451160747%_ + _%hd160452160750%_ + _%tl160453160752%_ + _%e160454160755%_ + _%hd160455160758%_ + _%tl160456160760%_ + _%e160457160763%_ + _%hd160458160766%_ + _%tl160459160768%_ + _%e160460160771%_ + _%hd160461160774%_ + _%tl160462160776%_)) + (_%__match170820170821%_ + _%e160427160683%_ + _%hd160428160686%_ + _%tl160429160688%_ + _%e160439160715%_ + _%hd160440160718%_ + _%tl160441160720%_ + _%e160442160723%_ + _%hd160443160726%_ + _%tl160444160728%_ + _%e160445160731%_ + _%hd160446160734%_ + _%tl160447160736%_ + _%e160448160739%_ + _%hd160449160742%_ + _%tl160450160744%_ + _%e160451160747%_ + _%hd160452160750%_ + _%tl160453160752%_ + _%e160454160755%_ + _%hd160455160758%_ + _%tl160456160760%_ + _%e160457160763%_ + _%hd160458160766%_ + _%tl160459160768%_ + _%e160460160771%_ + _%hd160461160774%_ + _%tl160462160776%_)))) + (_%__match170820170821%_ + _%e160427160683%_ + _%hd160428160686%_ + _%tl160429160688%_ + _%e160439160715%_ + _%hd160440160718%_ + _%tl160441160720%_ + _%e160442160723%_ + _%hd160443160726%_ + _%tl160444160728%_ + _%e160445160731%_ + _%hd160446160734%_ + _%tl160447160736%_ + _%e160448160739%_ + _%hd160449160742%_ + _%tl160450160744%_ + _%e160451160747%_ + _%hd160452160750%_ + _%tl160453160752%_ + _%e160454160755%_ + _%hd160455160758%_ + _%tl160456160760%_ + _%e160457160763%_ + _%hd160458160766%_ + _%tl160459160768%_ + _%e160460160771%_ + _%hd160461160774%_ + _%tl160462160776%_)))) + (_%__match170820170821%_ + _%e160427160683%_ + _%hd160428160686%_ + _%tl160429160688%_ + _%e160439160715%_ + _%hd160440160718%_ + _%tl160441160720%_ + _%e160442160723%_ + _%hd160443160726%_ + _%tl160444160728%_ + _%e160445160731%_ + _%hd160446160734%_ + _%tl160447160736%_ + _%e160448160739%_ + _%hd160449160742%_ + _%tl160450160744%_ + _%e160451160747%_ + _%hd160452160750%_ + _%tl160453160752%_ + _%e160454160755%_ + _%hd160455160758%_ + _%tl160456160760%_ + _%e160457160763%_ + _%hd160458160766%_ + _%tl160459160768%_ + _%e160460160771%_ + _%hd160461160774%_ + _%tl160462160776%_)))) + (_%__match170820170821%_ + _%e160427160683%_ + _%hd160428160686%_ + _%tl160429160688%_ + _%e160439160715%_ + _%hd160440160718%_ + _%tl160441160720%_ + _%e160442160723%_ + _%hd160443160726%_ + _%tl160444160728%_ + _%e160445160731%_ + _%hd160446160734%_ + _%tl160447160736%_ + _%e160448160739%_ + _%hd160449160742%_ + _%tl160450160744%_ + _%e160451160747%_ + _%hd160452160750%_ + _%tl160453160752%_ + _%e160454160755%_ + _%hd160455160758%_ + _%tl160456160760%_ + _%e160457160763%_ + _%hd160458160766%_ + _%tl160459160768%_ + _%e160460160771%_ + _%hd160461160774%_ + _%tl160462160776%_)) + (_%__match170820170821%_ + _%e160427160683%_ + _%hd160428160686%_ + _%tl160429160688%_ + _%e160439160715%_ + _%hd160440160718%_ + _%tl160441160720%_ + _%e160442160723%_ + _%hd160443160726%_ + _%tl160444160728%_ + _%e160445160731%_ + _%hd160446160734%_ + _%tl160447160736%_ + _%e160448160739%_ + _%hd160449160742%_ + _%tl160450160744%_ + _%e160451160747%_ + _%hd160452160750%_ + _%tl160453160752%_ + _%e160454160755%_ + _%hd160455160758%_ + _%tl160456160760%_ + _%e160457160763%_ + _%hd160458160766%_ + _%tl160459160768%_ + _%e160460160771%_ + _%hd160461160774%_ + _%tl160462160776%_)) + (_%__kont170723170724%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169436169437%_)))) - (_%__kont169436169437%_))))))) - (_%loop159146159409%_ _%target159143159404%_ '())))) - (_%__match169451169452%_ - (lambda (_%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_) - (letrec ((_%loop159098159669%_ - (lambda (_%hd159096159672%_ - _%arg159102159674%_) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_))))))) + (_%loop160433160696%_ _%target160430160691%_ '())))) + (_%__match170738170739%_ + (lambda (_%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_) + (letrec ((_%loop160385160956%_ + (lambda (_%hd160383160959%_ + _%arg160389160961%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159096159672%_)) - (let ((_%e159099159677%_ + (gx#stx-pair? _%hd160383160959%_)) + (let ((_%e160386160964%_ (let () (declare (not safe)) - (gx#stx-e _%hd159096159672%_)))) - (let ((_%lp-tl159101159682%_ + (gx#stx-e _%hd160383160959%_)))) + (let ((_%lp-tl160388160969%_ (let () (declare (not safe)) - (##cdr _%e159099159677%_))) - (_%lp-hd159100159680%_ + (##cdr _%e160386160964%_))) + (_%lp-hd160387160967%_ (let () (declare (not safe)) - (##car _%e159099159677%_)))) - (_%loop159098159669%_ - _%lp-tl159101159682%_ - (cons _%lp-hd159100159680%_ - _%arg159102159674%_)))) - (let ((_%arg159103159685%_ - (reverse _%arg159102159674%_))) + (##car _%e160386160964%_)))) + (_%loop160385160956%_ + _%lp-tl160388160969%_ + (cons _%lp-hd160387160967%_ + _%arg160389160961%_)))) + (let ((_%arg160390160972%_ + (reverse _%arg160389160961%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159094159661%_)) - (let ((_%e159104159688%_ + _%tl160381160948%_)) + (let ((_%e160391160975%_ (let () (declare (not safe)) (gx#stx-e - _%tl159094159661%_)))) - (let ((_%tl159106159693%_ + _%tl160381160948%_)))) + (let ((_%tl160393160980%_ (let () (declare (not safe)) - (##cdr _%e159104159688%_))) - (_%hd159105159691%_ + (##cdr _%e160391160975%_))) + (_%hd160392160978%_ (let () (declare (not safe)) - (##car _%e159104159688%_)))) + (##car _%e160391160975%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159105159691%_)) - (let ((_%e159107159696%_ + _%hd160392160978%_)) + (let ((_%e160394160983%_ (let () (declare (not safe)) (gx#stx-e - _%hd159105159691%_)))) - (let ((_%tl159109159701%_ + _%hd160392160978%_)))) + (let ((_%tl160396160988%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159107159696%_))) - (_%hd159108159699%_ - (let () (declare (not safe)) (##car _%e159107159696%_)))) + (##cdr _%e160394160983%_))) + (_%hd160395160986%_ + (let () (declare (not safe)) (##car _%e160394160983%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159108159699%_)) + (gx#identifier? _%hd160395160986%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd159108159699%_)) + (gx#stx-eq? '%#call _%hd160395160986%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159109159701%_)) - (let ((_%e159110159704%_ + (gx#stx-pair? _%tl160396160988%_)) + (let ((_%e160397160991%_ (let () (declare (not safe)) - (gx#stx-e _%tl159109159701%_)))) - (let ((_%tl159112159709%_ + (gx#stx-e _%tl160396160988%_)))) + (let ((_%tl160399160996%_ (let () (declare (not safe)) - (##cdr _%e159110159704%_))) - (_%hd159111159707%_ + (##cdr _%e160397160991%_))) + (_%hd160398160994%_ (let () (declare (not safe)) - (##car _%e159110159704%_)))) + (##car _%e160397160991%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159111159707%_)) - (let ((_%e159113159712%_ + (gx#stx-pair? _%hd160398160994%_)) + (let ((_%e160400160999%_ (let () (declare (not safe)) - (gx#stx-e _%hd159111159707%_)))) - (let ((_%tl159115159717%_ + (gx#stx-e _%hd160398160994%_)))) + (let ((_%tl160402161004%_ (let () (declare (not safe)) - (##cdr _%e159113159712%_))) - (_%hd159114159715%_ + (##cdr _%e160400160999%_))) + (_%hd160401161002%_ (let () (declare (not safe)) - (##car _%e159113159712%_)))) + (##car _%e160400160999%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159114159715%_)) + _%hd160401161002%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159114159715%_)) + _%hd160401161002%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159115159717%_)) - (let ((_%e159116159720%_ + _%tl160402161004%_)) + (let ((_%e160403161007%_ (let () (declare (not safe)) (gx#stx-e - _%tl159115159717%_)))) - (let ((_%tl159118159725%_ + _%tl160402161004%_)))) + (let ((_%tl160405161012%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159116159720%_))) - (_%hd159117159723%_ - (let () (declare (not safe)) (##car _%e159116159720%_)))) + (##cdr _%e160403161007%_))) + (_%hd160404161010%_ + (let () (declare (not safe)) (##car _%e160403161007%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159118159725%_)) + (gx#stx-null? _%tl160405161012%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl159112159709%_)) - (let ((_%__splice169426169427%_ + (gx#stx-pair/null? _%tl160399160996%_)) + (let ((_%__splice170713170714%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl159112159709%_ + _%tl160399160996%_ '0)))) - (let ((_%tl159121159730%_ + (let ((_%tl160408161017%_ (let () (declare (not safe)) - (##vector-ref _%__splice169426169427%_ '1))) - (_%target159119159728%_ + (##vector-ref _%__splice170713170714%_ '1))) + (_%target160406161015%_ (let () (declare (not safe)) (##vector-ref - _%__splice169426169427%_ + _%__splice170713170714%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159121159730%_)) - (letrec ((_%loop159122159733%_ - (lambda (_%hd159120159736%_ - _%xarg159126159738%_) + (gx#stx-null? _%tl160408161017%_)) + (letrec ((_%loop160409161020%_ + (lambda (_%hd160407161023%_ + _%xarg160413161025%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159120159736%_)) - (let ((_%e159123159741%_ + _%hd160407161023%_)) + (let ((_%e160410161028%_ (let () (declare (not safe)) (gx#stx-e - _%hd159120159736%_)))) - (let ((_%lp-tl159125159746%_ + _%hd160407161023%_)))) + (let ((_%lp-tl160412161033%_ (let () (declare (not safe)) - (##cdr _%e159123159741%_))) - (_%lp-hd159124159744%_ + (##cdr _%e160410161028%_))) + (_%lp-hd160411161031%_ (let () (declare (not safe)) - (##car _%e159123159741%_)))) + (##car _%e160410161028%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd159124159744%_)) - (let ((_%e159128159749%_ + _%lp-hd160411161031%_)) + (let ((_%e160415161036%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd159124159744%_)))) - (let ((_%tl159130159754%_ + (gx#stx-e _%lp-hd160411161031%_)))) + (let ((_%tl160417161041%_ (let () (declare (not safe)) - (##cdr _%e159128159749%_))) - (_%hd159129159752%_ + (##cdr _%e160415161036%_))) + (_%hd160416161039%_ (let () (declare (not safe)) - (##car _%e159128159749%_)))) + (##car _%e160415161036%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159129159752%_)) + (gx#identifier? _%hd160416161039%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159129159752%_)) + (gx#stx-eq? '%#ref _%hd160416161039%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159130159754%_)) - (let ((_%e159131159757%_ + (gx#stx-pair? _%tl160417161041%_)) + (let ((_%e160418161044%_ (let () (declare (not safe)) - (gx#stx-e _%tl159130159754%_)))) - (let ((_%tl159133159762%_ + (gx#stx-e _%tl160417161041%_)))) + (let ((_%tl160420161049%_ (let () (declare (not safe)) - (##cdr _%e159131159757%_))) - (_%hd159132159760%_ + (##cdr _%e160418161044%_))) + (_%hd160419161047%_ (let () (declare (not safe)) - (##car _%e159131159757%_)))) + (##car _%e160418161044%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159133159762%_)) - (_%loop159122159733%_ - _%lp-tl159125159746%_ - (cons _%hd159132159760%_ - _%xarg159126159738%_)) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) + (gx#stx-null? _%tl160420161049%_)) + (_%loop160409161020%_ + _%lp-tl160412161033%_ + (cons _%hd160419161047%_ + _%xarg160413161025%_)) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)))) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)))) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%xarg159127159765%_ - (reverse _%xarg159126159738%_))) + (let ((_%xarg160414161052%_ + (reverse _%xarg160413161025%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159106159693%_)) - (let ((_%L159768%_ - _%xarg159127159765%_) - (_%L159769%_ - _%hd159117159723%_) - (_%L159770%_ - _%arg159103159685%_)) - (if (and (let ((__tmp171064 + _%tl160393160980%_)) + (let ((_%L161055%_ + _%xarg160414161052%_) + (_%L161056%_ + _%hd160404161010%_) + (_%L161057%_ + _%arg160390160972%_)) + (if (and (let ((__tmp172351 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171065 - (lambda (_%g159798159801%_ - _%g159799159803%_) - (cons _%g159798159801%_ - _%g159799159803%_)))) + (let ((__tmp172352 + (lambda (_%g161085161088%_ + _%g161086161090%_) + (cons _%g161085161088%_ + _%g161086161090%_)))) (declare (not safe)) - (__foldr1 __tmp171065 '() _%L159770%_)))) + (__foldr1 __tmp172352 '() _%L161057%_)))) (declare (not safe)) - (gx#identifier-list? __tmp171064)) - (let ((__tmp171068 - (length (let ((__tmp171069 - (lambda (_%g159805159808%_ - _%g159806159810%_) - (cons _%g159805159808%_ - _%g159806159810%_)))) + (gx#identifier-list? __tmp172351)) + (let ((__tmp172355 + (length (let ((__tmp172356 + (lambda (_%g161092161095%_ + _%g161093161097%_) + (cons _%g161092161095%_ + _%g161093161097%_)))) (declare (not safe)) (__foldr1 - __tmp171069 + __tmp172356 '() - _%L159770%_)))) - (__tmp171066 - (length (let ((__tmp171067 - (lambda (_%g159812159815%_ - _%g159813159817%_) - (cons _%g159812159815%_ - _%g159813159817%_)))) + _%L161057%_)))) + (__tmp172353 + (length (let ((__tmp172354 + (lambda (_%g161099161102%_ + _%g161100161104%_) + (cons _%g161099161102%_ + _%g161100161104%_)))) (declare (not safe)) (__foldr1 - __tmp171067 + __tmp172354 '() - _%L159768%_))))) + _%L161055%_))))) (declare (not safe)) - (##fx= __tmp171068 __tmp171066)) - (let ((__tmp171072 - (let ((__tmp171073 - (lambda (_%g159819159822%_ - _%g159820159824%_) - (cons _%g159819159822%_ - _%g159820159824%_)))) + (##fx= __tmp172355 __tmp172353)) + (let ((__tmp172359 + (let ((__tmp172360 + (lambda (_%g161106161109%_ + _%g161107161111%_) + (cons _%g161106161109%_ + _%g161107161111%_)))) (declare (not safe)) - (__foldr1 __tmp171073 '() _%L159770%_))) - (__tmp171070 - (let ((__tmp171071 - (lambda (_%g159826159829%_ - _%g159827159831%_) - (cons _%g159826159829%_ - _%g159827159831%_)))) + (__foldr1 __tmp172360 '() _%L161057%_))) + (__tmp172357 + (let ((__tmp172358 + (lambda (_%g161113161116%_ + _%g161114161118%_) + (cons _%g161113161116%_ + _%g161114161118%_)))) (declare (not safe)) - (__foldr1 __tmp171071 '() _%L159768%_)))) + (__foldr1 __tmp172358 '() _%L161055%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp171072 - __tmp171070)) - (not (let ((__tmp171076 - (lambda (_%g159833159835%_) + __tmp172359 + __tmp172357)) + (not (let ((__tmp172363 + (lambda (_%g161120161122%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g159833159835%_ - _%L159769%_)))) - (__tmp171074 - (let ((__tmp171075 - (lambda (_%g159837159840%_ - _%g159838159842%_) - (cons _%g159837159840%_ - _%g159838159842%_)))) + _%g161120161122%_ + _%L161056%_)))) + (__tmp172361 + (let ((__tmp172362 + (lambda (_%g161124161127%_ + _%g161125161129%_) + (cons _%g161124161127%_ + _%g161125161129%_)))) (declare (not safe)) (__foldr1 - __tmp171075 + __tmp172362 '() - _%L159770%_)))) + _%L161057%_)))) (declare (not safe)) - (__find __tmp171076 __tmp171074)))) - (_%__kont169422169423%_ - _%L159768%_ - _%L159769%_ - _%L159770%_) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_))) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_))))))) + (__find __tmp172363 __tmp172361)))) + (_%__kont170709170710%_ + _%L161055%_ + _%L161056%_ + _%L161057%_) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_))) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop159122159733%_ - _%target159119159728%_ + (_%loop160409161020%_ + _%target160406161015%_ '())) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)))) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)))) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)))) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_))))))) - (_%loop159098159669%_ _%target159095159664%_ '()))))) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)))) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_))))))) + (_%loop160385160956%_ _%target160382160951%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169420169421%_)) - (let ((_%e159092159656%_ + (gx#stx-pair? _%__stx170707170708%_)) + (let ((_%e160379160943%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169420169421%_)))) - (let ((_%tl159094159661%_ + (gx#stx-e _%__stx170707170708%_)))) + (let ((_%tl160381160948%_ (let () (declare (not safe)) - (##cdr _%e159092159656%_))) - (_%hd159093159659%_ + (##cdr _%e160379160943%_))) + (_%hd160380160946%_ (let () (declare (not safe)) - (##car _%e159092159656%_)))) + (##car _%e160379160943%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd159093159659%_)) - (let ((_%__splice169424169425%_ + (gx#stx-pair/null? _%hd160380160946%_)) + (let ((_%__splice170711170712%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd159093159659%_ + _%hd160380160946%_ '0)))) - (let ((_%tl159097159666%_ + (let ((_%tl160384160953%_ (let () (declare (not safe)) (##vector-ref - _%__splice169424169425%_ + _%__splice170711170712%_ '1))) - (_%target159095159664%_ + (_%target160382160951%_ (let () (declare (not safe)) (##vector-ref - _%__splice169424169425%_ + _%__splice170711170712%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159097159666%_)) - (_%__match169451169452%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_) - (_%__match169463169464%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%__splice169424169425%_ - _%target159095159664%_ - _%tl159097159666%_)))) + (gx#stx-null? _%tl160384160953%_)) + (_%__match170738170739%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_) + (_%__match170750170751%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%__splice170711170712%_ + _%target160382160951%_ + _%tl160384160953%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159094159661%_)) - (let ((_%e159207159264%_ + (gx#stx-pair? _%tl160381160948%_)) + (let ((_%e160494160551%_ (let () (declare (not safe)) - (gx#stx-e _%tl159094159661%_)))) - (let ((_%tl159209159269%_ + (gx#stx-e _%tl160381160948%_)))) + (let ((_%tl160496160556%_ (let () (declare (not safe)) - (##cdr _%e159207159264%_))) - (_%hd159208159267%_ + (##cdr _%e160494160551%_))) + (_%hd160495160554%_ (let () (declare (not safe)) - (##car _%e159207159264%_)))) + (##car _%e160494160551%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159208159267%_)) - (let ((_%e159210159272%_ + (gx#stx-pair? _%hd160495160554%_)) + (let ((_%e160497160559%_ (let () (declare (not safe)) - (gx#stx-e _%hd159208159267%_)))) - (let ((_%tl159212159277%_ + (gx#stx-e _%hd160495160554%_)))) + (let ((_%tl160499160564%_ (let () (declare (not safe)) - (##cdr _%e159210159272%_))) - (_%hd159211159275%_ + (##cdr _%e160497160559%_))) + (_%hd160498160562%_ (let () (declare (not safe)) - (##car _%e159210159272%_)))) + (##car _%e160497160559%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159211159275%_)) + _%hd160498160562%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd159211159275%_)) + _%hd160498160562%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159212159277%_)) - (let ((_%e159213159280%_ + _%tl160499160564%_)) + (let ((_%e160500160567%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl159212159277%_)))) - (let ((_%tl159215159285%_ - (let () (declare (not safe)) (##cdr _%e159213159280%_))) - (_%hd159214159283%_ + (gx#stx-e _%tl160499160564%_)))) + (let ((_%tl160502160572%_ + (let () (declare (not safe)) (##cdr _%e160500160567%_))) + (_%hd160501160570%_ (let () (declare (not safe)) - (##car _%e159213159280%_)))) + (##car _%e160500160567%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159214159283%_)) - (let ((_%e159216159288%_ + (gx#stx-pair? _%hd160501160570%_)) + (let ((_%e160503160575%_ (let () (declare (not safe)) - (gx#stx-e _%hd159214159283%_)))) - (let ((_%tl159218159293%_ + (gx#stx-e _%hd160501160570%_)))) + (let ((_%tl160505160580%_ (let () (declare (not safe)) - (##cdr _%e159216159288%_))) - (_%hd159217159291%_ + (##cdr _%e160503160575%_))) + (_%hd160504160578%_ (let () (declare (not safe)) - (##car _%e159216159288%_)))) + (##car _%e160503160575%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159217159291%_)) + (gx#identifier? _%hd160504160578%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159217159291%_)) + (gx#stx-eq? '%#ref _%hd160504160578%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159218159293%_)) - (let ((_%e159219159296%_ + (gx#stx-pair? _%tl160505160580%_)) + (let ((_%e160506160583%_ (let () (declare (not safe)) - (gx#stx-e _%tl159218159293%_)))) - (let ((_%tl159221159301%_ + (gx#stx-e _%tl160505160580%_)))) + (let ((_%tl160508160588%_ (let () (declare (not safe)) - (##cdr _%e159219159296%_))) - (_%hd159220159299%_ + (##cdr _%e160506160583%_))) + (_%hd160507160586%_ (let () (declare (not safe)) - (##car _%e159219159296%_)))) + (##car _%e160506160583%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159221159301%_)) + _%tl160508160588%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159215159285%_)) - (let ((_%e159222159304%_ + _%tl160502160572%_)) + (let ((_%e160509160591%_ (let () (declare (not safe)) (gx#stx-e - _%tl159215159285%_)))) - (let ((_%tl159224159309%_ + _%tl160502160572%_)))) + (let ((_%tl160511160596%_ (let () (declare (not safe)) - (##cdr _%e159222159304%_))) - (_%hd159223159307%_ + (##cdr _%e160509160591%_))) + (_%hd160510160594%_ (let () (declare (not safe)) - (##car _%e159222159304%_)))) + (##car _%e160509160591%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159223159307%_)) - (let ((_%e159225159312%_ + _%hd160510160594%_)) + (let ((_%e160512160599%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd159223159307%_)))) - (let ((_%tl159227159317%_ + (gx#stx-e _%hd160510160594%_)))) + (let ((_%tl160514160604%_ (let () (declare (not safe)) - (##cdr _%e159225159312%_))) - (_%hd159226159315%_ + (##cdr _%e160512160599%_))) + (_%hd160513160602%_ (let () (declare (not safe)) - (##car _%e159225159312%_)))) + (##car _%e160512160599%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159226159315%_)) + (gx#identifier? _%hd160513160602%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159226159315%_)) + (gx#stx-eq? '%#ref _%hd160513160602%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159227159317%_)) - (let ((_%e159228159320%_ + (gx#stx-pair? _%tl160514160604%_)) + (let ((_%e160515160607%_ (let () (declare (not safe)) - (gx#stx-e _%tl159227159317%_)))) - (let ((_%tl159230159325%_ + (gx#stx-e _%tl160514160604%_)))) + (let ((_%tl160517160612%_ (let () (declare (not safe)) - (##cdr _%e159228159320%_))) - (_%hd159229159323%_ + (##cdr _%e160515160607%_))) + (_%hd160516160610%_ (let () (declare (not safe)) - (##car _%e159228159320%_)))) + (##car _%e160515160607%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159230159325%_)) + (gx#stx-null? _%tl160517160612%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159224159309%_)) - (let ((_%e159231159328%_ + _%tl160511160596%_)) + (let ((_%e160518160615%_ (let () (declare (not safe)) (gx#stx-e - _%tl159224159309%_)))) - (let ((_%tl159233159333%_ + _%tl160511160596%_)))) + (let ((_%tl160520160620%_ (let () (declare (not safe)) - (##cdr _%e159231159328%_))) - (_%hd159232159331%_ + (##cdr _%e160518160615%_))) + (_%hd160519160618%_ (let () (declare (not safe)) - (##car _%e159231159328%_)))) + (##car _%e160518160615%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159232159331%_)) - (let ((_%e159234159336%_ + _%hd160519160618%_)) + (let ((_%e160521160623%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd159232159331%_)))) - (let ((_%tl159236159341%_ - (let () (declare (not safe)) (##cdr _%e159234159336%_))) - (_%hd159235159339%_ + (gx#stx-e _%hd160519160618%_)))) + (let ((_%tl160523160628%_ + (let () (declare (not safe)) (##cdr _%e160521160623%_))) + (_%hd160522160626%_ (let () (declare (not safe)) - (##car _%e159234159336%_)))) + (##car _%e160521160623%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159235159339%_)) + (gx#identifier? _%hd160522160626%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159235159339%_)) + (gx#stx-eq? '%#ref _%hd160522160626%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159236159341%_)) - (let ((_%e159237159344%_ + (gx#stx-pair? _%tl160523160628%_)) + (let ((_%e160524160631%_ (let () (declare (not safe)) - (gx#stx-e _%tl159236159341%_)))) - (let ((_%tl159239159349%_ + (gx#stx-e _%tl160523160628%_)))) + (let ((_%tl160526160636%_ (let () (declare (not safe)) - (##cdr _%e159237159344%_))) - (_%hd159238159347%_ + (##cdr _%e160524160631%_))) + (_%hd160525160634%_ (let () (declare (not safe)) - (##car _%e159237159344%_)))) + (##car _%e160524160631%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159239159349%_)) + (gx#stx-null? _%tl160526160636%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159233159333%_)) + (gx#stx-null? _%tl160520160620%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159209159269%_)) - (_%__match169561169562%_ - _%e159092159656%_ - _%hd159093159659%_ - _%tl159094159661%_ - _%e159207159264%_ - _%hd159208159267%_ - _%tl159209159269%_ - _%e159210159272%_ - _%hd159211159275%_ - _%tl159212159277%_ - _%e159213159280%_ - _%hd159214159283%_ - _%tl159215159285%_ - _%e159216159288%_ - _%hd159217159291%_ - _%tl159218159293%_ - _%e159219159296%_ - _%hd159220159299%_ - _%tl159221159301%_ - _%e159222159304%_ - _%hd159223159307%_ - _%tl159224159309%_ - _%e159225159312%_ - _%hd159226159315%_ - _%tl159227159317%_ - _%e159228159320%_ - _%hd159229159323%_ - _%tl159230159325%_ - _%e159231159328%_ - _%hd159232159331%_ - _%tl159233159333%_ - _%e159234159336%_ - _%hd159235159339%_ - _%tl159236159341%_ - _%e159237159344%_ - _%hd159238159347%_ - _%tl159239159349%_) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)))) + _%tl160496160556%_)) + (_%__match170848170849%_ + _%e160379160943%_ + _%hd160380160946%_ + _%tl160381160948%_ + _%e160494160551%_ + _%hd160495160554%_ + _%tl160496160556%_ + _%e160497160559%_ + _%hd160498160562%_ + _%tl160499160564%_ + _%e160500160567%_ + _%hd160501160570%_ + _%tl160502160572%_ + _%e160503160575%_ + _%hd160504160578%_ + _%tl160505160580%_ + _%e160506160583%_ + _%hd160507160586%_ + _%tl160508160588%_ + _%e160509160591%_ + _%hd160510160594%_ + _%tl160511160596%_ + _%e160512160599%_ + _%hd160513160602%_ + _%tl160514160604%_ + _%e160515160607%_ + _%hd160516160610%_ + _%tl160517160612%_ + _%e160518160615%_ + _%hd160519160618%_ + _%tl160520160620%_ + _%e160521160623%_ + _%hd160522160626%_ + _%tl160523160628%_ + _%e160524160631%_ + _%hd160525160634%_ + _%tl160526160636%_) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)))) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169436169437%_)) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_)))) - (_%__kont169436169437%_))))) - (_%__kont169436169437%_))))))) + (_%__kont170723170724%_)) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_)))) + (_%__kont170723170724%_))))) + (_%__kont170723170724%_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_%form158550%_) - (let* ((_%__stx169564169565%_ _%form158550%_) - (_%g158554158678%_ + (lambda (_%form159837%_) + (let* ((_%__stx170851170852%_ _%form159837%_) + (_%g159841159965%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169564169565%_))))) - (let ((_%__kont169566169567%_ - (lambda (_%L159048%_ _%L159049%_ _%L159050%_) + _%__stx170851170852%_))))) + (let ((_%__kont170853170854%_ + (lambda (_%L160335%_ _%L160336%_ _%L160337%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L159049%_)))) - (_%__kont169572169573%_ - (lambda (_%L158896%_ _%L158897%_ _%L158898%_ _%L158899%_) + (gxc#identifier-symbol _%L160336%_)))) + (_%__kont170859170860%_ + (lambda (_%L160183%_ _%L160184%_ _%L160185%_ _%L160186%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L158896%_)))) - (_%__kont169576169577%_ - (lambda (_%L158763%_ _%L158764%_ _%L158765%_) + (gxc#identifier-symbol _%L160183%_)))) + (_%__kont170863170864%_ + (lambda (_%L160050%_ _%L160051%_ _%L160052%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L158763%_))))) - (let* ((_%__match169673169674%_ - (lambda (_%e158644158683%_ - _%hd158645158686%_ - _%tl158646158688%_ - _%e158647158691%_ - _%hd158648158694%_ - _%tl158649158696%_ - _%e158650158699%_ - _%hd158651158702%_ - _%tl158652158704%_ - _%e158653158707%_ - _%hd158654158710%_ - _%tl158655158712%_ - _%e158656158715%_ - _%hd158657158718%_ - _%tl158658158720%_ - _%e158659158723%_ - _%hd158660158726%_ - _%tl158661158728%_ - _%e158662158731%_ - _%hd158663158734%_ - _%tl158664158736%_ - _%e158665158739%_ - _%hd158666158742%_ - _%tl158667158744%_ - _%e158668158747%_ - _%hd158669158750%_ - _%tl158670158752%_) + (gxc#identifier-symbol _%L160050%_))))) + (let* ((_%__match170960170961%_ + (lambda (_%e159931159970%_ + _%hd159932159973%_ + _%tl159933159975%_ + _%e159934159978%_ + _%hd159935159981%_ + _%tl159936159983%_ + _%e159937159986%_ + _%hd159938159989%_ + _%tl159939159991%_ + _%e159940159994%_ + _%hd159941159997%_ + _%tl159942159999%_ + _%e159943160002%_ + _%hd159944160005%_ + _%tl159945160007%_ + _%e159946160010%_ + _%hd159947160013%_ + _%tl159948160015%_ + _%e159949160018%_ + _%hd159950160021%_ + _%tl159951160023%_ + _%e159952160026%_ + _%hd159953160029%_ + _%tl159954160031%_ + _%e159955160034%_ + _%hd159956160037%_ + _%tl159957160039%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158664158736%_)) - (let ((_%e158671158755%_ + (gx#stx-pair? _%tl159951160023%_)) + (let ((_%e159958160042%_ (let () (declare (not safe)) - (gx#stx-e _%tl158664158736%_)))) - (let ((_%tl158673158760%_ + (gx#stx-e _%tl159951160023%_)))) + (let ((_%tl159960160047%_ (let () (declare (not safe)) - (##cdr _%e158671158755%_))) - (_%hd158672158758%_ + (##cdr _%e159958160042%_))) + (_%hd159959160045%_ (let () (declare (not safe)) - (##car _%e158671158755%_)))) + (##car _%e159958160042%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158673158760%_)) + (gx#stx-null? _%tl159960160047%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158649158696%_)) - (_%__kont169576169577%_ - _%hd158669158750%_ - _%hd158660158726%_ - _%hd158645158686%_) + (gx#stx-null? _%tl159936159983%_)) + (_%__kont170863170864%_ + _%hd159956160037%_ + _%hd159947160013%_ + _%hd159932159973%_) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158554158678%_))))) - (let () (declare (not safe)) (_%g158554158678%_))))) - (_%__match169603169604%_ - (lambda (_%e158605158800%_ - _%hd158606158803%_ - _%tl158607158805%_ - _%__splice169574169575%_ - _%target158608158808%_ - _%tl158610158810%_) - (letrec ((_%loop158611158813%_ - (lambda (_%hd158609158816%_ - _%arg158615158818%_) + (_%g159841159965%_))))) + (let () (declare (not safe)) (_%g159841159965%_))))) + (_%__match170890170891%_ + (lambda (_%e159892160087%_ + _%hd159893160090%_ + _%tl159894160092%_ + _%__splice170861170862%_ + _%target159895160095%_ + _%tl159897160097%_) + (letrec ((_%loop159898160100%_ + (lambda (_%hd159896160103%_ + _%arg159902160105%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158609158816%_)) - (let ((_%e158612158821%_ + (gx#stx-pair? _%hd159896160103%_)) + (let ((_%e159899160108%_ (let () (declare (not safe)) - (gx#stx-e _%hd158609158816%_)))) - (let ((_%lp-tl158614158826%_ + (gx#stx-e _%hd159896160103%_)))) + (let ((_%lp-tl159901160113%_ (let () (declare (not safe)) - (##cdr _%e158612158821%_))) - (_%lp-hd158613158824%_ + (##cdr _%e159899160108%_))) + (_%lp-hd159900160111%_ (let () (declare (not safe)) - (##car _%e158612158821%_)))) - (_%loop158611158813%_ - _%lp-tl158614158826%_ - (cons _%lp-hd158613158824%_ - _%arg158615158818%_)))) - (let ((_%arg158616158829%_ - (reverse _%arg158615158818%_))) + (##car _%e159899160108%_)))) + (_%loop159898160100%_ + _%lp-tl159901160113%_ + (cons _%lp-hd159900160111%_ + _%arg159902160105%_)))) + (let ((_%arg159903160116%_ + (reverse _%arg159902160105%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158607158805%_)) - (let ((_%e158617158832%_ + _%tl159894160092%_)) + (let ((_%e159904160119%_ (let () (declare (not safe)) (gx#stx-e - _%tl158607158805%_)))) - (let ((_%tl158619158837%_ + _%tl159894160092%_)))) + (let ((_%tl159906160124%_ (let () (declare (not safe)) - (##cdr _%e158617158832%_))) - (_%hd158618158835%_ + (##cdr _%e159904160119%_))) + (_%hd159905160122%_ (let () (declare (not safe)) - (##car _%e158617158832%_)))) + (##car _%e159904160119%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158618158835%_)) - (let ((_%e158620158840%_ + _%hd159905160122%_)) + (let ((_%e159907160127%_ (let () (declare (not safe)) (gx#stx-e - _%hd158618158835%_)))) - (let ((_%tl158622158845%_ + _%hd159905160122%_)))) + (let ((_%tl159909160132%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158620158840%_))) - (_%hd158621158843%_ - (let () (declare (not safe)) (##car _%e158620158840%_)))) + (##cdr _%e159907160127%_))) + (_%hd159908160130%_ + (let () (declare (not safe)) (##car _%e159907160127%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158621158843%_)) + (gx#identifier? _%hd159908160130%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd158621158843%_)) + (gx#stx-eq? '%#call _%hd159908160130%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158622158845%_)) - (let ((_%e158623158848%_ + (gx#stx-pair? _%tl159909160132%_)) + (let ((_%e159910160135%_ (let () (declare (not safe)) - (gx#stx-e _%tl158622158845%_)))) - (let ((_%tl158625158853%_ + (gx#stx-e _%tl159909160132%_)))) + (let ((_%tl159912160140%_ (let () (declare (not safe)) - (##cdr _%e158623158848%_))) - (_%hd158624158851%_ + (##cdr _%e159910160135%_))) + (_%hd159911160138%_ (let () (declare (not safe)) - (##car _%e158623158848%_)))) + (##car _%e159910160135%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158624158851%_)) - (let ((_%e158626158856%_ + (gx#stx-pair? _%hd159911160138%_)) + (let ((_%e159913160143%_ (let () (declare (not safe)) - (gx#stx-e _%hd158624158851%_)))) - (let ((_%tl158628158861%_ + (gx#stx-e _%hd159911160138%_)))) + (let ((_%tl159915160148%_ (let () (declare (not safe)) - (##cdr _%e158626158856%_))) - (_%hd158627158859%_ + (##cdr _%e159913160143%_))) + (_%hd159914160146%_ (let () (declare (not safe)) - (##car _%e158626158856%_)))) + (##car _%e159913160143%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158627158859%_)) + _%hd159914160146%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158627158859%_)) + _%hd159914160146%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158628158861%_)) - (let ((_%e158629158864%_ + _%tl159915160148%_)) + (let ((_%e159916160151%_ (let () (declare (not safe)) (gx#stx-e - _%tl158628158861%_)))) - (let ((_%tl158631158869%_ + _%tl159915160148%_)))) + (let ((_%tl159918160156%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158629158864%_))) - (_%hd158630158867%_ - (let () (declare (not safe)) (##car _%e158629158864%_)))) + (##cdr _%e159916160151%_))) + (_%hd159917160154%_ + (let () (declare (not safe)) (##car _%e159916160151%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158631158869%_)) + (gx#stx-null? _%tl159918160156%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158625158853%_)) - (let ((_%e158632158872%_ + (gx#stx-pair? _%tl159912160140%_)) + (let ((_%e159919160159%_ (let () (declare (not safe)) - (gx#stx-e _%tl158625158853%_)))) - (let ((_%tl158634158877%_ + (gx#stx-e _%tl159912160140%_)))) + (let ((_%tl159921160164%_ (let () (declare (not safe)) - (##cdr _%e158632158872%_))) - (_%hd158633158875%_ + (##cdr _%e159919160159%_))) + (_%hd159920160162%_ (let () (declare (not safe)) - (##car _%e158632158872%_)))) + (##car _%e159919160159%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158633158875%_)) - (let ((_%e158635158880%_ + (gx#stx-pair? _%hd159920160162%_)) + (let ((_%e159922160167%_ (let () (declare (not safe)) - (gx#stx-e _%hd158633158875%_)))) - (let ((_%tl158637158885%_ + (gx#stx-e _%hd159920160162%_)))) + (let ((_%tl159924160172%_ (let () (declare (not safe)) - (##cdr _%e158635158880%_))) - (_%hd158636158883%_ + (##cdr _%e159922160167%_))) + (_%hd159923160170%_ (let () (declare (not safe)) - (##car _%e158635158880%_)))) + (##car _%e159922160167%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158636158883%_)) + (gx#identifier? _%hd159923160170%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158636158883%_)) + _%hd159923160170%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158637158885%_)) - (let ((_%e158638158888%_ + _%tl159924160172%_)) + (let ((_%e159925160175%_ (let () (declare (not safe)) (gx#stx-e - _%tl158637158885%_)))) - (let ((_%tl158640158893%_ + _%tl159924160172%_)))) + (let ((_%tl159927160180%_ (let () (declare (not safe)) - (##cdr _%e158638158888%_))) - (_%hd158639158891%_ + (##cdr _%e159925160175%_))) + (_%hd159926160178%_ (let () (declare (not safe)) - (##car _%e158638158888%_)))) + (##car _%e159925160175%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158640158893%_)) + _%tl159927160180%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158619158837%_)) - (_%__kont169572169573%_ - _%hd158639158891%_ - _%hd158630158867%_ - _%tl158610158810%_ - _%arg158616158829%_) - (_%__match169673169674%_ - _%e158605158800%_ - _%hd158606158803%_ - _%tl158607158805%_ - _%e158617158832%_ - _%hd158618158835%_ - _%tl158619158837%_ - _%e158620158840%_ - _%hd158621158843%_ - _%tl158622158845%_ - _%e158623158848%_ - _%hd158624158851%_ - _%tl158625158853%_ - _%e158626158856%_ - _%hd158627158859%_ - _%tl158628158861%_ - _%e158629158864%_ - _%hd158630158867%_ - _%tl158631158869%_ - _%e158632158872%_ - _%hd158633158875%_ - _%tl158634158877%_ - _%e158635158880%_ - _%hd158636158883%_ - _%tl158637158885%_ - _%e158638158888%_ - _%hd158639158891%_ - _%tl158640158893%_)) + _%tl159906160124%_)) + (_%__kont170859170860%_ + _%hd159926160178%_ + _%hd159917160154%_ + _%tl159897160097%_ + _%arg159903160116%_) + (_%__match170960170961%_ + _%e159892160087%_ + _%hd159893160090%_ + _%tl159894160092%_ + _%e159904160119%_ + _%hd159905160122%_ + _%tl159906160124%_ + _%e159907160127%_ + _%hd159908160130%_ + _%tl159909160132%_ + _%e159910160135%_ + _%hd159911160138%_ + _%tl159912160140%_ + _%e159913160143%_ + _%hd159914160146%_ + _%tl159915160148%_ + _%e159916160151%_ + _%hd159917160154%_ + _%tl159918160156%_ + _%e159919160159%_ + _%hd159920160162%_ + _%tl159921160164%_ + _%e159922160167%_ + _%hd159923160170%_ + _%tl159924160172%_ + _%e159925160175%_ + _%hd159926160178%_ + _%tl159927160180%_)) (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158554158678%_))))) - (let () (declare (not safe)) (_%g158554158678%_))) - (let () (declare (not safe)) (_%g158554158678%_))))) + (_%g159841159965%_))))) + (let () (declare (not safe)) (_%g159841159965%_))) + (let () (declare (not safe)) (_%g159841159965%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158554158678%_))))) - (let () (declare (not safe)) (_%g158554158678%_))) - (let () (declare (not safe)) (_%g158554158678%_))) - (let () (declare (not safe)) (_%g158554158678%_))))) + (_%g159841159965%_))))) + (let () (declare (not safe)) (_%g159841159965%_))) + (let () (declare (not safe)) (_%g159841159965%_))) + (let () (declare (not safe)) (_%g159841159965%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158554158678%_)))))))) - (_%loop158611158813%_ _%target158608158808%_ '())))) - (_%__match169591169592%_ - (lambda (_%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_) - (letrec ((_%loop158565158949%_ - (lambda (_%hd158563158952%_ - _%arg158569158954%_) + (_%g159841159965%_)))))))) + (_%loop159898160100%_ _%target159895160095%_ '())))) + (_%__match170878170879%_ + (lambda (_%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_) + (letrec ((_%loop159852160236%_ + (lambda (_%hd159850160239%_ + _%arg159856160241%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158563158952%_)) - (let ((_%e158566158957%_ + (gx#stx-pair? _%hd159850160239%_)) + (let ((_%e159853160244%_ (let () (declare (not safe)) - (gx#stx-e _%hd158563158952%_)))) - (let ((_%lp-tl158568158962%_ + (gx#stx-e _%hd159850160239%_)))) + (let ((_%lp-tl159855160249%_ (let () (declare (not safe)) - (##cdr _%e158566158957%_))) - (_%lp-hd158567158960%_ + (##cdr _%e159853160244%_))) + (_%lp-hd159854160247%_ (let () (declare (not safe)) - (##car _%e158566158957%_)))) - (_%loop158565158949%_ - _%lp-tl158568158962%_ - (cons _%lp-hd158567158960%_ - _%arg158569158954%_)))) - (let ((_%arg158570158965%_ - (reverse _%arg158569158954%_))) + (##car _%e159853160244%_)))) + (_%loop159852160236%_ + _%lp-tl159855160249%_ + (cons _%lp-hd159854160247%_ + _%arg159856160241%_)))) + (let ((_%arg159857160252%_ + (reverse _%arg159856160241%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158561158941%_)) - (let ((_%e158571158968%_ + _%tl159848160228%_)) + (let ((_%e159858160255%_ (let () (declare (not safe)) (gx#stx-e - _%tl158561158941%_)))) - (let ((_%tl158573158973%_ + _%tl159848160228%_)))) + (let ((_%tl159860160260%_ (let () (declare (not safe)) - (##cdr _%e158571158968%_))) - (_%hd158572158971%_ + (##cdr _%e159858160255%_))) + (_%hd159859160258%_ (let () (declare (not safe)) - (##car _%e158571158968%_)))) + (##car _%e159858160255%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158572158971%_)) - (let ((_%e158574158976%_ + _%hd159859160258%_)) + (let ((_%e159861160263%_ (let () (declare (not safe)) (gx#stx-e - _%hd158572158971%_)))) - (let ((_%tl158576158981%_ + _%hd159859160258%_)))) + (let ((_%tl159863160268%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158574158976%_))) - (_%hd158575158979%_ - (let () (declare (not safe)) (##car _%e158574158976%_)))) + (##cdr _%e159861160263%_))) + (_%hd159862160266%_ + (let () (declare (not safe)) (##car _%e159861160263%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158575158979%_)) + (gx#identifier? _%hd159862160266%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd158575158979%_)) + (gx#stx-eq? '%#call _%hd159862160266%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158576158981%_)) - (let ((_%e158577158984%_ + (gx#stx-pair? _%tl159863160268%_)) + (let ((_%e159864160271%_ (let () (declare (not safe)) - (gx#stx-e _%tl158576158981%_)))) - (let ((_%tl158579158989%_ + (gx#stx-e _%tl159863160268%_)))) + (let ((_%tl159866160276%_ (let () (declare (not safe)) - (##cdr _%e158577158984%_))) - (_%hd158578158987%_ + (##cdr _%e159864160271%_))) + (_%hd159865160274%_ (let () (declare (not safe)) - (##car _%e158577158984%_)))) + (##car _%e159864160271%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158578158987%_)) - (let ((_%e158580158992%_ + (gx#stx-pair? _%hd159865160274%_)) + (let ((_%e159867160279%_ (let () (declare (not safe)) - (gx#stx-e _%hd158578158987%_)))) - (let ((_%tl158582158997%_ + (gx#stx-e _%hd159865160274%_)))) + (let ((_%tl159869160284%_ (let () (declare (not safe)) - (##cdr _%e158580158992%_))) - (_%hd158581158995%_ + (##cdr _%e159867160279%_))) + (_%hd159868160282%_ (let () (declare (not safe)) - (##car _%e158580158992%_)))) + (##car _%e159867160279%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158581158995%_)) + _%hd159868160282%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158581158995%_)) + _%hd159868160282%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158582158997%_)) - (let ((_%e158583159000%_ + _%tl159869160284%_)) + (let ((_%e159870160287%_ (let () (declare (not safe)) (gx#stx-e - _%tl158582158997%_)))) - (let ((_%tl158585159005%_ + _%tl159869160284%_)))) + (let ((_%tl159872160292%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158583159000%_))) - (_%hd158584159003%_ - (let () (declare (not safe)) (##car _%e158583159000%_)))) + (##cdr _%e159870160287%_))) + (_%hd159871160290%_ + (let () (declare (not safe)) (##car _%e159870160287%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158585159005%_)) + (gx#stx-null? _%tl159872160292%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl158579158989%_)) - (let ((_%__splice169570169571%_ + (gx#stx-pair/null? _%tl159866160276%_)) + (let ((_%__splice170857170858%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl158579158989%_ + _%tl159866160276%_ '0)))) - (let ((_%tl158588159010%_ + (let ((_%tl159875160297%_ (let () (declare (not safe)) - (##vector-ref _%__splice169570169571%_ '1))) - (_%target158586159008%_ + (##vector-ref _%__splice170857170858%_ '1))) + (_%target159873160295%_ (let () (declare (not safe)) (##vector-ref - _%__splice169570169571%_ + _%__splice170857170858%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158588159010%_)) - (letrec ((_%loop158589159013%_ - (lambda (_%hd158587159016%_ - _%xarg158593159018%_) + (gx#stx-null? _%tl159875160297%_)) + (letrec ((_%loop159876160300%_ + (lambda (_%hd159874160303%_ + _%xarg159880160305%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158587159016%_)) - (let ((_%e158590159021%_ + _%hd159874160303%_)) + (let ((_%e159877160308%_ (let () (declare (not safe)) (gx#stx-e - _%hd158587159016%_)))) - (let ((_%lp-tl158592159026%_ + _%hd159874160303%_)))) + (let ((_%lp-tl159879160313%_ (let () (declare (not safe)) - (##cdr _%e158590159021%_))) - (_%lp-hd158591159024%_ + (##cdr _%e159877160308%_))) + (_%lp-hd159878160311%_ (let () (declare (not safe)) - (##car _%e158590159021%_)))) + (##car _%e159877160308%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd158591159024%_)) - (let ((_%e158595159029%_ + _%lp-hd159878160311%_)) + (let ((_%e159882160316%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd158591159024%_)))) - (let ((_%tl158597159034%_ + (gx#stx-e _%lp-hd159878160311%_)))) + (let ((_%tl159884160321%_ (let () (declare (not safe)) - (##cdr _%e158595159029%_))) - (_%hd158596159032%_ + (##cdr _%e159882160316%_))) + (_%hd159883160319%_ (let () (declare (not safe)) - (##car _%e158595159029%_)))) + (##car _%e159882160316%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158596159032%_)) + (gx#identifier? _%hd159883160319%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158596159032%_)) + (gx#stx-eq? '%#ref _%hd159883160319%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158597159034%_)) - (let ((_%e158598159037%_ + (gx#stx-pair? _%tl159884160321%_)) + (let ((_%e159885160324%_ (let () (declare (not safe)) - (gx#stx-e _%tl158597159034%_)))) - (let ((_%tl158600159042%_ + (gx#stx-e _%tl159884160321%_)))) + (let ((_%tl159887160329%_ (let () (declare (not safe)) - (##cdr _%e158598159037%_))) - (_%hd158599159040%_ + (##cdr _%e159885160324%_))) + (_%hd159886160327%_ (let () (declare (not safe)) - (##car _%e158598159037%_)))) + (##car _%e159885160324%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158600159042%_)) - (_%loop158589159013%_ - _%lp-tl158592159026%_ - (cons _%hd158599159040%_ - _%xarg158593159018%_)) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) + (gx#stx-null? _%tl159887160329%_)) + (_%loop159876160300%_ + _%lp-tl159879160313%_ + (cons _%hd159886160327%_ + _%xarg159880160305%_)) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)))) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)))) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%xarg158594159045%_ - (reverse _%xarg158593159018%_))) + (let ((_%xarg159881160332%_ + (reverse _%xarg159880160305%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158573158973%_)) - (_%__kont169566169567%_ - _%xarg158594159045%_ - _%hd158584159003%_ - _%arg158570158965%_) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_))))))) - (_%loop158589159013%_ - _%target158586159008%_ + _%tl159860160260%_)) + (_%__kont170853170854%_ + _%xarg159881160332%_ + _%hd159871160290%_ + _%arg159857160252%_) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_))))))) + (_%loop159876160300%_ + _%target159873160295%_ '())) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)))) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)))) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)))) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_))))))) - (_%loop158565158949%_ _%target158562158944%_ '()))))) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)))) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_))))))) + (_%loop159852160236%_ _%target159849160231%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169564169565%_)) - (let ((_%e158559158936%_ + (gx#stx-pair? _%__stx170851170852%_)) + (let ((_%e159846160223%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169564169565%_)))) - (let ((_%tl158561158941%_ + (gx#stx-e _%__stx170851170852%_)))) + (let ((_%tl159848160228%_ (let () (declare (not safe)) - (##cdr _%e158559158936%_))) - (_%hd158560158939%_ + (##cdr _%e159846160223%_))) + (_%hd159847160226%_ (let () (declare (not safe)) - (##car _%e158559158936%_)))) + (##car _%e159846160223%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd158560158939%_)) - (let ((_%__splice169568169569%_ + (gx#stx-pair/null? _%hd159847160226%_)) + (let ((_%__splice170855170856%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd158560158939%_ + _%hd159847160226%_ '0)))) - (let ((_%tl158564158946%_ + (let ((_%tl159851160233%_ (let () (declare (not safe)) (##vector-ref - _%__splice169568169569%_ + _%__splice170855170856%_ '1))) - (_%target158562158944%_ + (_%target159849160231%_ (let () (declare (not safe)) (##vector-ref - _%__splice169568169569%_ + _%__splice170855170856%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158564158946%_)) - (_%__match169591169592%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_) - (_%__match169603169604%_ - _%e158559158936%_ - _%hd158560158939%_ - _%tl158561158941%_ - _%__splice169568169569%_ - _%target158562158944%_ - _%tl158564158946%_)))) + (gx#stx-null? _%tl159851160233%_)) + (_%__match170878170879%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_) + (_%__match170890170891%_ + _%e159846160223%_ + _%hd159847160226%_ + _%tl159848160228%_ + _%__splice170855170856%_ + _%target159849160231%_ + _%tl159851160233%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158561158941%_)) - (let ((_%e158647158691%_ + (gx#stx-pair? _%tl159848160228%_)) + (let ((_%e159934159978%_ (let () (declare (not safe)) - (gx#stx-e _%tl158561158941%_)))) - (let ((_%tl158649158696%_ + (gx#stx-e _%tl159848160228%_)))) + (let ((_%tl159936159983%_ (let () (declare (not safe)) - (##cdr _%e158647158691%_))) - (_%hd158648158694%_ + (##cdr _%e159934159978%_))) + (_%hd159935159981%_ (let () (declare (not safe)) - (##car _%e158647158691%_)))) + (##car _%e159934159978%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158648158694%_)) - (let ((_%e158650158699%_ + (gx#stx-pair? _%hd159935159981%_)) + (let ((_%e159937159986%_ (let () (declare (not safe)) - (gx#stx-e _%hd158648158694%_)))) - (let ((_%tl158652158704%_ + (gx#stx-e _%hd159935159981%_)))) + (let ((_%tl159939159991%_ (let () (declare (not safe)) - (##cdr _%e158650158699%_))) - (_%hd158651158702%_ + (##cdr _%e159937159986%_))) + (_%hd159938159989%_ (let () (declare (not safe)) - (##car _%e158650158699%_)))) + (##car _%e159937159986%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158651158702%_)) + _%hd159938159989%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd158651158702%_)) + _%hd159938159989%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158652158704%_)) - (let ((_%e158653158707%_ + _%tl159939159991%_)) + (let ((_%e159940159994%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl158652158704%_)))) - (let ((_%tl158655158712%_ - (let () (declare (not safe)) (##cdr _%e158653158707%_))) - (_%hd158654158710%_ + (gx#stx-e _%tl159939159991%_)))) + (let ((_%tl159942159999%_ + (let () (declare (not safe)) (##cdr _%e159940159994%_))) + (_%hd159941159997%_ (let () (declare (not safe)) - (##car _%e158653158707%_)))) + (##car _%e159940159994%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158654158710%_)) - (let ((_%e158656158715%_ + (gx#stx-pair? _%hd159941159997%_)) + (let ((_%e159943160002%_ (let () (declare (not safe)) - (gx#stx-e _%hd158654158710%_)))) - (let ((_%tl158658158720%_ + (gx#stx-e _%hd159941159997%_)))) + (let ((_%tl159945160007%_ (let () (declare (not safe)) - (##cdr _%e158656158715%_))) - (_%hd158657158718%_ + (##cdr _%e159943160002%_))) + (_%hd159944160005%_ (let () (declare (not safe)) - (##car _%e158656158715%_)))) + (##car _%e159943160002%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158657158718%_)) + (gx#identifier? _%hd159944160005%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158657158718%_)) + (gx#stx-eq? '%#ref _%hd159944160005%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158658158720%_)) - (let ((_%e158659158723%_ + (gx#stx-pair? _%tl159945160007%_)) + (let ((_%e159946160010%_ (let () (declare (not safe)) - (gx#stx-e _%tl158658158720%_)))) - (let ((_%tl158661158728%_ + (gx#stx-e _%tl159945160007%_)))) + (let ((_%tl159948160015%_ (let () (declare (not safe)) - (##cdr _%e158659158723%_))) - (_%hd158660158726%_ + (##cdr _%e159946160010%_))) + (_%hd159947160013%_ (let () (declare (not safe)) - (##car _%e158659158723%_)))) + (##car _%e159946160010%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158661158728%_)) + _%tl159948160015%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158655158712%_)) - (let ((_%e158662158731%_ + _%tl159942159999%_)) + (let ((_%e159949160018%_ (let () (declare (not safe)) (gx#stx-e - _%tl158655158712%_)))) - (let ((_%tl158664158736%_ + _%tl159942159999%_)))) + (let ((_%tl159951160023%_ (let () (declare (not safe)) - (##cdr _%e158662158731%_))) - (_%hd158663158734%_ + (##cdr _%e159949160018%_))) + (_%hd159950160021%_ (let () (declare (not safe)) - (##car _%e158662158731%_)))) + (##car _%e159949160018%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158663158734%_)) - (let ((_%e158665158739%_ + _%hd159950160021%_)) + (let ((_%e159952160026%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd158663158734%_)))) - (let ((_%tl158667158744%_ + (gx#stx-e _%hd159950160021%_)))) + (let ((_%tl159954160031%_ (let () (declare (not safe)) - (##cdr _%e158665158739%_))) - (_%hd158666158742%_ + (##cdr _%e159952160026%_))) + (_%hd159953160029%_ (let () (declare (not safe)) - (##car _%e158665158739%_)))) + (##car _%e159952160026%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158666158742%_)) + (gx#identifier? _%hd159953160029%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158666158742%_)) + (gx#stx-eq? '%#ref _%hd159953160029%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158667158744%_)) - (let ((_%e158668158747%_ + (gx#stx-pair? _%tl159954160031%_)) + (let ((_%e159955160034%_ (let () (declare (not safe)) - (gx#stx-e _%tl158667158744%_)))) - (let ((_%tl158670158752%_ + (gx#stx-e _%tl159954160031%_)))) + (let ((_%tl159957160039%_ (let () (declare (not safe)) - (##cdr _%e158668158747%_))) - (_%hd158669158750%_ + (##cdr _%e159955160034%_))) + (_%hd159956160037%_ (let () (declare (not safe)) - (##car _%e158668158747%_)))) + (##car _%e159955160034%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158670158752%_)) + (gx#stx-null? _%tl159957160039%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158664158736%_)) - (let ((_%e158671158755%_ + _%tl159951160023%_)) + (let ((_%e159958160042%_ (let () (declare (not safe)) (gx#stx-e - _%tl158664158736%_)))) - (let ((_%tl158673158760%_ + _%tl159951160023%_)))) + (let ((_%tl159960160047%_ (let () (declare (not safe)) - (##cdr _%e158671158755%_))) - (_%hd158672158758%_ + (##cdr _%e159958160042%_))) + (_%hd159959160045%_ (let () (declare (not safe)) - (##car _%e158671158755%_)))) + (##car _%e159958160042%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158673158760%_)) + _%tl159960160047%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158649158696%_)) - (_%__kont169576169577%_ - _%hd158669158750%_ - _%hd158660158726%_ - _%hd158560158939%_) + _%tl159936159983%_)) + (_%__kont170863170864%_ + _%hd159956160037%_ + _%hd159947160013%_ + _%hd159847160226%_) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158554158678%_))) - (let () (declare (not safe)) (_%g158554158678%_))))) - (let () (declare (not safe)) (_%g158554158678%_))))) + (_%g159841159965%_))) + (let () (declare (not safe)) (_%g159841159965%_))))) + (let () (declare (not safe)) (_%g159841159965%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158554158678%_))))) - (let () (declare (not safe)) (_%g158554158678%_))))) - (let () (declare (not safe)) (_%g158554158678%_))) + (_%g159841159965%_))))) + (let () (declare (not safe)) (_%g159841159965%_))))) + (let () (declare (not safe)) (_%g159841159965%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158554158678%_))) + (_%g159841159965%_))) (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158554158678%_))))) + (_%g159841159965%_))))) (let () (declare (not safe)) - (_%g158554158678%_)))))) - (let () (declare (not safe)) (_%g158554158678%_)))))))) + (_%g159841159965%_)))))) + (let () (declare (not safe)) (_%g159841159965%_)))))))) (define gxc#lambda-form-arity - (lambda (_%form158354%_) - (let* ((_%g158356158370%_ - (lambda (_%g158357158367%_) + (lambda (_%form159641%_) + (let* ((_%g159643159657%_ + (lambda (_%g159644159654%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g158357158367%_)))) - (_%g158355158547%_ - (lambda (_%g158357158373%_) + _%g159644159654%_)))) + (_%g159642159834%_ + (lambda (_%g159644159660%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g158357158373%_)) - (let ((_%e158360158375%_ + (gx#stx-pair? _%g159644159660%_)) + (let ((_%e159647159662%_ (let () (declare (not safe)) - (gx#stx-e _%g158357158373%_)))) - (let ((_%hd158361158378%_ + (gx#stx-e _%g159644159660%_)))) + (let ((_%hd159648159665%_ (let () (declare (not safe)) - (##car _%e158360158375%_))) - (_%tl158362158380%_ + (##car _%e159647159662%_))) + (_%tl159649159667%_ (let () (declare (not safe)) - (##cdr _%e158360158375%_)))) + (##cdr _%e159647159662%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158362158380%_)) - (let ((_%e158363158383%_ + (gx#stx-pair? _%tl159649159667%_)) + (let ((_%e159650159670%_ (let () (declare (not safe)) - (gx#stx-e _%tl158362158380%_)))) - (let ((_%hd158364158386%_ + (gx#stx-e _%tl159649159667%_)))) + (let ((_%hd159651159673%_ (let () (declare (not safe)) - (##car _%e158363158383%_))) - (_%tl158365158388%_ + (##car _%e159650159670%_))) + (_%tl159652159675%_ (let () (declare (not safe)) - (##cdr _%e158363158383%_)))) + (##cdr _%e159650159670%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158365158388%_)) - ((lambda (_%L158391%_ _%L158392%_) - (let* ((_%__stx169686169687%_ - _%L158392%_) - (_%g158407158435%_ + (gx#stx-null? _%tl159652159675%_)) + ((lambda (_%L159678%_ _%L159679%_) + (let* ((_%__stx170973170974%_ + _%L159679%_) + (_%g159694159722%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169686169687%_))))) - (let ((_%__kont169688169689%_ - (lambda (_%L158526%_) - (length (let ((__tmp171077 + _%__stx170973170974%_))))) + (let ((_%__kont170975170976%_ + (lambda (_%L159813%_) + (length (let ((__tmp172364 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g158536158539%_ _%g158537158541%_) - (cons _%g158536158539%_ _%g158537158541%_)))) + (lambda (_%g159823159826%_ _%g159824159828%_) + (cons _%g159823159826%_ _%g159824159828%_)))) (declare (not safe)) - (__foldr1 __tmp171077 '() _%L158526%_))))) + (__foldr1 __tmp172364 '() _%L159813%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169692169693%_ - (lambda (_%L158477%_ - _%L158478%_) - (cons (length (let ((__tmp171078 + (_%__kont170979170980%_ + (lambda (_%L159764%_ + _%L159765%_) + (cons (length (let ((__tmp172365 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g158489158492%_ _%g158490158494%_) - (cons _%g158489158492%_ - _%g158490158494%_)))) + (lambda (_%g159776159779%_ _%g159777159781%_) + (cons _%g159776159779%_ + _%g159777159781%_)))) (declare (not safe)) - (__foldr1 __tmp171078 '() _%L158478%_))) + (__foldr1 __tmp172365 '() _%L159765%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169696169697%_ - (lambda (_%L158440%_) + (_%__kont170983170984%_ + (lambda (_%L159727%_) (cons '0 '())))) - (let* ((_%__match169711169712%_ - (lambda (_%__splice169694169695%_ - _%target158421158453%_ - _%tl158423158455%_) - (letrec ((_%loop158424158458%_ + (let* ((_%__match170998170999%_ + (lambda (_%__splice170981170982%_ + _%target159708159740%_ + _%tl159710159742%_) + (letrec ((_%loop159711159745%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd158422158461%_ _%arg158428158463%_) + (lambda (_%hd159709159748%_ _%arg159715159750%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158422158461%_)) - (let ((_%e158425158466%_ + (gx#stx-pair? _%hd159709159748%_)) + (let ((_%e159712159753%_ (let () (declare (not safe)) - (gx#stx-e _%hd158422158461%_)))) - (let ((_%lp-tl158427158471%_ + (gx#stx-e _%hd159709159748%_)))) + (let ((_%lp-tl159714159758%_ (let () (declare (not safe)) - (##cdr _%e158425158466%_))) - (_%lp-hd158426158469%_ + (##cdr _%e159712159753%_))) + (_%lp-hd159713159756%_ (let () (declare (not safe)) - (##car _%e158425158466%_)))) - (_%loop158424158458%_ - _%lp-tl158427158471%_ - (cons _%lp-hd158426158469%_ - _%arg158428158463%_)))) - (let ((_%arg158429158474%_ - (reverse _%arg158428158463%_))) - (_%__kont169692169693%_ - _%tl158423158455%_ - _%arg158429158474%_)))))) - (_%loop158424158458%_ _%target158421158453%_ '())))) + (##car _%e159712159753%_)))) + (_%loop159711159745%_ + _%lp-tl159714159758%_ + (cons _%lp-hd159713159756%_ + _%arg159715159750%_)))) + (let ((_%arg159716159761%_ + (reverse _%arg159715159750%_))) + (_%__kont170979170980%_ + _%tl159710159742%_ + _%arg159716159761%_)))))) + (_%loop159711159745%_ _%target159708159740%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169705169706%_ - (lambda (_%__splice169690169691%_ - _%target158410158502%_ - _%tl158412158504%_) - (letrec ((_%loop158413158507%_ + (_%__match170992170993%_ + (lambda (_%__splice170977170978%_ + _%target159697159789%_ + _%tl159699159791%_) + (letrec ((_%loop159700159794%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd158411158510%_ _%arg158417158512%_) + (lambda (_%hd159698159797%_ _%arg159704159799%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158411158510%_)) - (let ((_%e158414158515%_ + (gx#stx-pair? _%hd159698159797%_)) + (let ((_%e159701159802%_ (let () (declare (not safe)) - (gx#stx-e _%hd158411158510%_)))) - (let ((_%lp-tl158416158520%_ + (gx#stx-e _%hd159698159797%_)))) + (let ((_%lp-tl159703159807%_ (let () (declare (not safe)) - (##cdr _%e158414158515%_))) - (_%lp-hd158415158518%_ + (##cdr _%e159701159802%_))) + (_%lp-hd159702159805%_ (let () (declare (not safe)) - (##car _%e158414158515%_)))) - (_%loop158413158507%_ - _%lp-tl158416158520%_ - (cons _%lp-hd158415158518%_ - _%arg158417158512%_)))) - (let ((_%arg158418158523%_ - (reverse _%arg158417158512%_))) - (_%__kont169688169689%_ - _%arg158418158523%_)))))) - (_%loop158413158507%_ _%target158410158502%_ '()))))) + (##car _%e159701159802%_)))) + (_%loop159700159794%_ + _%lp-tl159703159807%_ + (cons _%lp-hd159702159805%_ + _%arg159704159799%_)))) + (let ((_%arg159705159810%_ + (reverse _%arg159704159799%_))) + (_%__kont170975170976%_ + _%arg159705159810%_)))))) + (_%loop159700159794%_ _%target159697159789%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%__stx169686169687%_)) - (let ((_%__splice169690169691%_ + _%__stx170973170974%_)) + (let ((_%__splice170977170978%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%__stx169686169687%_ + _%__stx170973170974%_ '0)))) - (let ((_%tl158412158504%_ + (let ((_%tl159699159791%_ (let () (declare (not safe)) (##vector-ref - _%__splice169690169691%_ + _%__splice170977170978%_ '1))) - (_%target158410158502%_ + (_%target159697159789%_ (let () (declare (not safe)) (##vector-ref - _%__splice169690169691%_ + _%__splice170977170978%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158412158504%_)) - (_%__match169705169706%_ - _%__splice169690169691%_ - _%target158410158502%_ - _%tl158412158504%_) - (_%__match169711169712%_ - _%__splice169690169691%_ - _%target158410158502%_ - _%tl158412158504%_)))) - (_%__kont169696169697%_ - _%__stx169686169687%_)))))) - _%hd158364158386%_ - _%hd158361158378%_) - (_%g158356158370%_ _%g158357158373%_)))) - (_%g158356158370%_ _%g158357158373%_)))) - (_%g158356158370%_ _%g158357158373%_))))) - (_%g158355158547%_ _%form158354%_)))) + _%tl159699159791%_)) + (_%__match170992170993%_ + _%__splice170977170978%_ + _%target159697159789%_ + _%tl159699159791%_) + (_%__match170998170999%_ + _%__splice170977170978%_ + _%target159697159789%_ + _%tl159699159791%_)))) + (_%__kont170983170984%_ + _%__stx170973170974%_)))))) + _%hd159651159673%_ + _%hd159648159665%_) + (_%g159643159657%_ _%g159644159660%_)))) + (_%g159643159657%_ _%g159644159660%_)))) + (_%g159643159657%_ _%g159644159660%_))))) + (_%g159642159834%_ _%form159641%_)))) (define gxc#lambda-form-infer-signature - (lambda (_%form158280%_) - (letrec ((_%default-signature158282%_ + (lambda (_%form159567%_) + (letrec ((_%default-signature159569%_ (lambda () - (let ((__obj170845 + (let ((__obj172132 (let () (declare (not safe)) (##structure @@ -17998,12 +17998,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170845 + __obj172132 't::t '1 '#f '#f)) - (let ((__tmp171079 + (let ((__tmp172366 (##structure-ref (let () (declare (not safe)) @@ -18013,74 +18013,74 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj170845 - __tmp171079 + __obj172132 + __tmp172366 '5 '#f '#f)) - __obj170845)))) - (let* ((_%g158284158298%_ - (lambda (_%g158285158295%_) + __obj172132)))) + (let* ((_%g159571159585%_ + (lambda (_%g159572159582%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g158285158295%_)))) - (_%g158283158350%_ - (lambda (_%g158285158301%_) + _%g159572159582%_)))) + (_%g159570159637%_ + (lambda (_%g159572159588%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g158285158301%_)) - (let ((_%e158288158303%_ + (gx#stx-pair? _%g159572159588%_)) + (let ((_%e159575159590%_ (let () (declare (not safe)) - (gx#stx-e _%g158285158301%_)))) - (let ((_%hd158289158306%_ + (gx#stx-e _%g159572159588%_)))) + (let ((_%hd159576159593%_ (let () (declare (not safe)) - (##car _%e158288158303%_))) - (_%tl158290158308%_ + (##car _%e159575159590%_))) + (_%tl159577159595%_ (let () (declare (not safe)) - (##cdr _%e158288158303%_)))) + (##cdr _%e159575159590%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158290158308%_)) - (let ((_%e158291158311%_ + (gx#stx-pair? _%tl159577159595%_)) + (let ((_%e159578159598%_ (let () (declare (not safe)) - (gx#stx-e _%tl158290158308%_)))) - (let ((_%hd158292158314%_ + (gx#stx-e _%tl159577159595%_)))) + (let ((_%hd159579159601%_ (let () (declare (not safe)) - (##car _%e158291158311%_))) - (_%tl158293158316%_ + (##car _%e159578159598%_))) + (_%tl159580159603%_ (let () (declare (not safe)) - (##cdr _%e158291158311%_)))) + (##cdr _%e159578159598%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158293158316%_)) - ((lambda (_%L158319%_ _%L158320%_) - (let ((_%$e158334%_ + (gx#stx-null? _%tl159580159603%_)) + ((lambda (_%L159606%_ _%L159607%_) + (let ((_%$e159621%_ (gxc#apply-extract-lambda-signature - _%L158319%_))) - (if _%$e158334%_ - _%$e158334%_ - (let ((_%$e158337%_ + _%L159606%_))) + (if _%$e159621%_ + _%$e159621%_ + (let ((_%$e159624%_ (gxc#apply-basic-expression-type - _%L158319%_))) - (if _%$e158337%_ - ((lambda (_%return-type158340%_) + _%L159606%_))) + (if _%$e159624%_ + ((lambda (_%return-type159627%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-instance-of? - _%return-type158340%_ + _%return-type159627%_ 'gxc#!procedure::t)) - (let ((__obj170847 + (let ((__obj172134 (let () (declare (not safe)) (##structure @@ -18093,12 +18093,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170847 + __obj172134 'procedure::t '1 '#f '#f)) - (let ((__tmp171080 + (let ((__tmp172367 (##structure-ref (let () (declare (not safe)) @@ -18108,20 +18108,20 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj170847 - __tmp171080 + __obj172134 + __tmp172367 '5 '#f '#f)) - __obj170847) - (let ((_%$e158343%_ + __obj172134) + (let ((_%$e159630%_ (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%return-type158340%_)))) - (if _%$e158343%_ - ((lambda (_%return-type-name158346%_) - (let ((__obj170846 + _%return-type159627%_)))) + (if _%$e159630%_ + ((lambda (_%return-type-name159633%_) + (let ((__obj172133 (let () (declare (not safe)) (##structure @@ -18134,12 +18134,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170846 - _%return-type-name158346%_ + __obj172133 + _%return-type-name159633%_ '1 '#f '#f)) - (let ((__tmp171081 + (let ((__tmp172368 (##structure-ref (let () (declare (not safe)) @@ -18149,124 +18149,124 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj170846 - __tmp171081 + __obj172133 + __tmp172368 '5 '#f '#f)) - __obj170846)) - _%$e158343%_) - (_%default-signature158282%_))))) - _%$e158337%_) - (_%default-signature158282%_)))))) + __obj172133)) + _%$e159630%_) + (_%default-signature159569%_))))) + _%$e159624%_) + (_%default-signature159569%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd158292158314%_ - _%hd158289158306%_) - (_%g158284158298%_ - _%g158285158301%_)))) - (_%g158284158298%_ _%g158285158301%_)))) - (_%g158284158298%_ _%g158285158301%_))))) - (_%g158283158350%_ _%form158280%_))))) + _%hd159579159601%_ + _%hd159576159593%_) + (_%g159571159585%_ + _%g159572159588%_)))) + (_%g159571159585%_ _%g159572159588%_)))) + (_%g159571159585%_ _%g159572159588%_))))) + (_%g159570159637%_ _%form159567%_))))) (define gxc#extract-lambda-signature-begin-annotation% - (lambda (_%self158019%_ _%stx158020%_) - (let* ((_%__stx169727169728%_ _%stx158020%_) - (_%g158023158063%_ + (lambda (_%self159306%_ _%stx159307%_) + (let* ((_%__stx171014171015%_ _%stx159307%_) + (_%g159310159350%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169727169728%_))))) - (let ((_%__kont169729169730%_ - (lambda (_%L158169%_ _%L158170%_) - (let _%loop158190%_ ((_%rest158192%_ - (let ((__tmp171086 - (lambda (_%g158269158272%_ - _%g158270158274%_) - (cons _%g158269158272%_ - _%g158270158274%_)))) + _%__stx171014171015%_))))) + (let ((_%__kont171016171017%_ + (lambda (_%L159456%_ _%L159457%_) + (let _%loop159477%_ ((_%rest159479%_ + (let ((__tmp172373 + (lambda (_%g159556159559%_ + _%g159557159561%_) + (cons _%g159556159559%_ + _%g159557159561%_)))) (declare (not safe)) (__foldr1 - __tmp171086 + __tmp172373 '() - _%L158170%_))) - (_%result158193%_ '())) - (let* ((_%rest158194158207%_ _%rest158192%_) - (_%E158198158211%_ + _%L159457%_))) + (_%result159480%_ '())) + (let* ((_%rest159481159494%_ _%rest159479%_) + (_%E159485159498%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest158194158207%_ + _%rest159481159494%_ '([(? stx-keyword? key) arg . rest]) '([]) '(_))) '#!void))) - (let ((_%K158201158251%_ - (lambda (_%rest158237%_ - _%arg158238%_ - _%key158239%_) - (let ((_%$e158241%_ + (let ((_%K159488159538%_ + (lambda (_%rest159524%_ + _%arg159525%_ + _%key159526%_) + (let ((_%$e159528%_ (let () (declare (not safe)) - (gx#stx-e _%key158239%_)))) - (if (eq? 'return: _%$e158241%_) - (_%loop158190%_ - _%rest158237%_ + (gx#stx-e _%key159526%_)))) + (if (eq? 'return: _%$e159528%_) + (_%loop159477%_ + _%rest159524%_ (cons 'return: (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%arg158238%_)) - _%result158193%_))) - (if (eq? 'effect: _%$e158241%_) - (_%loop158190%_ - _%rest158237%_ + _%arg159525%_)) + _%result159480%_))) + (if (eq? 'effect: _%$e159528%_) + (_%loop159477%_ + _%rest159524%_ (cons 'effect: - (cons (if _%arg158238%_ + (cons (if _%arg159525%_ (map gx#stx-e - _%arg158238%_) + _%arg159525%_) '#f) - _%result158193%_))) - (if (eq? 'arguments: _%$e158241%_) - (_%loop158190%_ - _%rest158237%_ + _%result159480%_))) + (if (eq? 'arguments: _%$e159528%_) + (_%loop159477%_ + _%rest159524%_ (cons 'arguments: (cons (let () (declare (not safe)) (gxc#map* gxc#identifier-symbol - _%arg158238%_)) - _%result158193%_))) + _%arg159525%_)) + _%result159480%_))) (if (eq? 'unchecked: - _%$e158241%_) - (_%loop158190%_ - _%rest158237%_ + _%$e159528%_) + (_%loop159477%_ + _%rest159524%_ (cons 'unchecked: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _%arg158238%_)) - _%result158193%_))) + (gxc#identifier-symbol _%arg159525%_)) + _%result159480%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171082 - (let ((__tmp171083 - (lambda (_%g158243158246%_ + (let ((__tmp172369 + (let ((__tmp172370 + (lambda (_%g159530159533%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g158244158248%_) - (cons _%g158243158246%_ _%g158244158248%_)))) + _%g159531159535%_) + (cons _%g159530159533%_ _%g159531159535%_)))) (declare (not safe)) - (__foldr1 __tmp171083 '() _%L158170%_)))) + (__foldr1 __tmp172370 '() _%L159457%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx158020%_ - __tmp171082 - _%key158239%_))))))))) - (_%K158200158231%_ + _%stx159307%_ + __tmp172369 + _%key159526%_))))))))) + (_%K159487159518%_ (lambda () (apply gxc#make-!signature 'origin: @@ -18277,1824 +18277,1824 @@ '1 gx#expander-context::t '#f) - _%result158193%_))) - (_%K158199158223%_ + _%result159480%_))) + (_%K159486159510%_ (lambda () - (let ((__tmp171084 - (let ((__tmp171085 - (lambda (_%g158215158218%_ - _%g158216158220%_) - (cons _%g158215158218%_ - _%g158216158220%_)))) + (let ((__tmp172371 + (let ((__tmp172372 + (lambda (_%g159502159505%_ + _%g159503159507%_) + (cons _%g159502159505%_ + _%g159503159507%_)))) (declare (not safe)) (__foldr1 - __tmp171085 + __tmp172372 '() - _%L158170%_)))) + _%L159457%_)))) (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx158020%_ - __tmp171084))))) - (let ((_%try-match158196158234%_ + _%stx159307%_ + __tmp172371))))) + (let ((_%try-match159483159521%_ (lambda () - (if (null? _%rest158194158207%_) - (_%K158200158231%_) - (_%K158199158223%_))))) - (if (pair? _%rest158194158207%_) - (let ((_%tl158203158256%_ + (if (null? _%rest159481159494%_) + (_%K159487159518%_) + (_%K159486159510%_))))) + (if (pair? _%rest159481159494%_) + (let ((_%tl159490159543%_ (let () (declare (not safe)) - (##cdr _%rest158194158207%_))) - (_%hd158202158254%_ + (##cdr _%rest159481159494%_))) + (_%hd159489159541%_ (let () (declare (not safe)) - (##car _%rest158194158207%_)))) + (##car _%rest159481159494%_)))) (if (let () (declare (not safe)) - (gx#stx-keyword? _%hd158202158254%_)) - (if (pair? _%tl158203158256%_) - (let ((_%tl158205158263%_ + (gx#stx-keyword? _%hd159489159541%_)) + (if (pair? _%tl159490159543%_) + (let ((_%tl159492159550%_ (let () (declare (not safe)) - (##cdr _%tl158203158256%_))) - (_%hd158204158261%_ + (##cdr _%tl159490159543%_))) + (_%hd159491159548%_ (let () (declare (not safe)) - (##car _%tl158203158256%_)))) - (let ((_%key158259%_ - _%hd158202158254%_) - (_%arg158266%_ - _%hd158204158261%_) - (_%rest158268%_ - _%tl158205158263%_)) - (_%K158201158251%_ - _%rest158268%_ - _%arg158266%_ - _%key158259%_))) - (_%K158199158223%_)) - (_%K158199158223%_))) - (_%try-match158196158234%_)))))))) - (_%__kont169733169734%_ - (lambda (_%L158092%_ _%L158093%_) + (##car _%tl159490159543%_)))) + (let ((_%key159546%_ + _%hd159489159541%_) + (_%arg159553%_ + _%hd159491159548%_) + (_%rest159555%_ + _%tl159492159550%_)) + (_%K159488159538%_ + _%rest159555%_ + _%arg159553%_ + _%key159546%_))) + (_%K159486159510%_)) + (_%K159486159510%_))) + (_%try-match159483159521%_)))))))) + (_%__kont171020171021%_ + (lambda (_%L159379%_ _%L159380%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self158019%_ _%L158092%_))))) - (let ((_%__match169764169765%_ - (lambda (_%e158027158113%_ - _%hd158028158116%_ - _%tl158029158118%_ - _%e158030158121%_ - _%hd158031158124%_ - _%tl158032158126%_ - _%e158033158129%_ - _%hd158034158132%_ - _%tl158035158134%_ - _%__splice169731169732%_ - _%target158036158137%_ - _%tl158038158139%_) - (letrec ((_%loop158039158142%_ - (lambda (_%hd158037158145%_ - _%signature158043158147%_) + (gxc#compile-e__1 _%self159306%_ _%L159379%_))))) + (let ((_%__match171051171052%_ + (lambda (_%e159314159400%_ + _%hd159315159403%_ + _%tl159316159405%_ + _%e159317159408%_ + _%hd159318159411%_ + _%tl159319159413%_ + _%e159320159416%_ + _%hd159321159419%_ + _%tl159322159421%_ + _%__splice171018171019%_ + _%target159323159424%_ + _%tl159325159426%_) + (letrec ((_%loop159326159429%_ + (lambda (_%hd159324159432%_ + _%signature159330159434%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158037158145%_)) - (let ((_%e158040158150%_ + (gx#stx-pair? _%hd159324159432%_)) + (let ((_%e159327159437%_ (let () (declare (not safe)) - (gx#stx-e _%hd158037158145%_)))) - (let ((_%lp-tl158042158155%_ + (gx#stx-e _%hd159324159432%_)))) + (let ((_%lp-tl159329159442%_ (let () (declare (not safe)) - (##cdr _%e158040158150%_))) - (_%lp-hd158041158153%_ + (##cdr _%e159327159437%_))) + (_%lp-hd159328159440%_ (let () (declare (not safe)) - (##car _%e158040158150%_)))) - (_%loop158039158142%_ - _%lp-tl158042158155%_ - (cons _%lp-hd158041158153%_ - _%signature158043158147%_)))) - (let ((_%signature158044158158%_ - (reverse _%signature158043158147%_))) + (##car _%e159327159437%_)))) + (_%loop159326159429%_ + _%lp-tl159329159442%_ + (cons _%lp-hd159328159440%_ + _%signature159330159434%_)))) + (let ((_%signature159331159445%_ + (reverse _%signature159330159434%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158032158126%_)) - (let ((_%e158045158161%_ + (gx#stx-pair? _%tl159319159413%_)) + (let ((_%e159332159448%_ (let () (declare (not safe)) (gx#stx-e - _%tl158032158126%_)))) - (let ((_%tl158047158166%_ + _%tl159319159413%_)))) + (let ((_%tl159334159453%_ (let () (declare (not safe)) - (##cdr _%e158045158161%_))) - (_%hd158046158164%_ + (##cdr _%e159332159448%_))) + (_%hd159333159451%_ (let () (declare (not safe)) - (##car _%e158045158161%_)))) + (##car _%e159332159448%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158047158166%_)) - (_%__kont169729169730%_ - _%hd158046158164%_ - _%signature158044158158%_) + _%tl159334159453%_)) + (_%__kont171016171017%_ + _%hd159333159451%_ + _%signature159331159445%_) (let () (declare (not safe)) - (_%g158023158063%_))))) + (_%g159310159350%_))))) (let () (declare (not safe)) - (_%g158023158063%_)))))))) - (_%loop158039158142%_ _%target158036158137%_ '()))))) + (_%g159310159350%_)))))))) + (_%loop159326159429%_ _%target159323159424%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169727169728%_)) - (let ((_%e158027158113%_ + (gx#stx-pair? _%__stx171014171015%_)) + (let ((_%e159314159400%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169727169728%_)))) - (let ((_%tl158029158118%_ + (gx#stx-e _%__stx171014171015%_)))) + (let ((_%tl159316159405%_ (let () (declare (not safe)) - (##cdr _%e158027158113%_))) - (_%hd158028158116%_ + (##cdr _%e159314159400%_))) + (_%hd159315159403%_ (let () (declare (not safe)) - (##car _%e158027158113%_)))) + (##car _%e159314159400%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158029158118%_)) - (let ((_%e158030158121%_ + (gx#stx-pair? _%tl159316159405%_)) + (let ((_%e159317159408%_ (let () (declare (not safe)) - (gx#stx-e _%tl158029158118%_)))) - (let ((_%tl158032158126%_ + (gx#stx-e _%tl159316159405%_)))) + (let ((_%tl159319159413%_ (let () (declare (not safe)) - (##cdr _%e158030158121%_))) - (_%hd158031158124%_ + (##cdr _%e159317159408%_))) + (_%hd159318159411%_ (let () (declare (not safe)) - (##car _%e158030158121%_)))) + (##car _%e159317159408%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158031158124%_)) - (let ((_%e158033158129%_ + (gx#stx-pair? _%hd159318159411%_)) + (let ((_%e159320159416%_ (let () (declare (not safe)) - (gx#stx-e _%hd158031158124%_)))) - (let ((_%tl158035158134%_ + (gx#stx-e _%hd159318159411%_)))) + (let ((_%tl159322159421%_ (let () (declare (not safe)) - (##cdr _%e158033158129%_))) - (_%hd158034158132%_ + (##cdr _%e159320159416%_))) + (_%hd159321159419%_ (let () (declare (not safe)) - (##car _%e158033158129%_)))) + (##car _%e159320159416%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158034158132%_)) + _%hd159321159419%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd158034158132%_)) + _%hd159321159419%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl158035158134%_)) - (let ((_%__splice169731169732%_ + _%tl159322159421%_)) + (let ((_%__splice171018171019%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl158035158134%_ + _%tl159322159421%_ '0)))) - (let ((_%tl158038158139%_ + (let ((_%tl159325159426%_ (let () (declare (not safe)) (##vector-ref - _%__splice169731169732%_ + _%__splice171018171019%_ '1))) - (_%target158036158137%_ + (_%target159323159424%_ (let () (declare (not safe)) (##vector-ref - _%__splice169731169732%_ + _%__splice171018171019%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158038158139%_)) - (_%__match169764169765%_ - _%e158027158113%_ - _%hd158028158116%_ - _%tl158029158118%_ - _%e158030158121%_ - _%hd158031158124%_ - _%tl158032158126%_ - _%e158033158129%_ - _%hd158034158132%_ - _%tl158035158134%_ - _%__splice169731169732%_ - _%target158036158137%_ - _%tl158038158139%_) + _%tl159325159426%_)) + (_%__match171051171052%_ + _%e159314159400%_ + _%hd159315159403%_ + _%tl159316159405%_ + _%e159317159408%_ + _%hd159318159411%_ + _%tl159319159413%_ + _%e159320159416%_ + _%hd159321159419%_ + _%tl159322159421%_ + _%__splice171018171019%_ + _%target159323159424%_ + _%tl159325159426%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl158032158126%_)) - (let ((_%e158056158084%_ + (gx#stx-pair? _%tl159319159413%_)) + (let ((_%e159343159371%_ (let () (declare (not safe)) - (gx#stx-e _%tl158032158126%_)))) - (let ((_%tl158058158089%_ + (gx#stx-e _%tl159319159413%_)))) + (let ((_%tl159345159376%_ (let () (declare (not safe)) - (##cdr _%e158056158084%_))) - (_%hd158057158087%_ + (##cdr _%e159343159371%_))) + (_%hd159344159374%_ (let () (declare (not safe)) - (##car _%e158056158084%_)))) + (##car _%e159343159371%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158058158089%_)) - (_%__kont169733169734%_ - _%hd158057158087%_ - _%hd158031158124%_) + (gx#stx-null? _%tl159345159376%_)) + (_%__kont171020171021%_ + _%hd159344159374%_ + _%hd159318159411%_) (let () (declare (not safe)) - (_%g158023158063%_))))) - (let () (declare (not safe)) (_%g158023158063%_)))))) + (_%g159310159350%_))))) + (let () (declare (not safe)) (_%g159310159350%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158032158126%_)) - (let ((_%e158056158084%_ + _%tl159319159413%_)) + (let ((_%e159343159371%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl158032158126%_)))) - (let ((_%tl158058158089%_ - (let () (declare (not safe)) (##cdr _%e158056158084%_))) - (_%hd158057158087%_ + (gx#stx-e _%tl159319159413%_)))) + (let ((_%tl159345159376%_ + (let () (declare (not safe)) (##cdr _%e159343159371%_))) + (_%hd159344159374%_ (let () (declare (not safe)) - (##car _%e158056158084%_)))) + (##car _%e159343159371%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158058158089%_)) - (_%__kont169733169734%_ - _%hd158057158087%_ - _%hd158031158124%_) - (let () (declare (not safe)) (_%g158023158063%_))))) - (let () (declare (not safe)) (_%g158023158063%_)))) + (gx#stx-null? _%tl159345159376%_)) + (_%__kont171020171021%_ + _%hd159344159374%_ + _%hd159318159411%_) + (let () (declare (not safe)) (_%g159310159350%_))))) + (let () (declare (not safe)) (_%g159310159350%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158032158126%_)) - (let ((_%e158056158084%_ + _%tl159319159413%_)) + (let ((_%e159343159371%_ (let () (declare (not safe)) (gx#stx-e - _%tl158032158126%_)))) - (let ((_%tl158058158089%_ + _%tl159319159413%_)))) + (let ((_%tl159345159376%_ (let () (declare (not safe)) - (##cdr _%e158056158084%_))) - (_%hd158057158087%_ + (##cdr _%e159343159371%_))) + (_%hd159344159374%_ (let () (declare (not safe)) - (##car _%e158056158084%_)))) + (##car _%e159343159371%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158058158089%_)) - (_%__kont169733169734%_ - _%hd158057158087%_ - _%hd158031158124%_) + _%tl159345159376%_)) + (_%__kont171020171021%_ + _%hd159344159374%_ + _%hd159318159411%_) (let () (declare (not safe)) - (_%g158023158063%_))))) + (_%g159310159350%_))))) (let () (declare (not safe)) - (_%g158023158063%_)))) + (_%g159310159350%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158032158126%_)) - (let ((_%e158056158084%_ + _%tl159319159413%_)) + (let ((_%e159343159371%_ (let () (declare (not safe)) (gx#stx-e - _%tl158032158126%_)))) - (let ((_%tl158058158089%_ + _%tl159319159413%_)))) + (let ((_%tl159345159376%_ (let () (declare (not safe)) - (##cdr _%e158056158084%_))) - (_%hd158057158087%_ + (##cdr _%e159343159371%_))) + (_%hd159344159374%_ (let () (declare (not safe)) - (##car _%e158056158084%_)))) + (##car _%e159343159371%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158058158089%_)) - (_%__kont169733169734%_ - _%hd158057158087%_ - _%hd158031158124%_) + _%tl159345159376%_)) + (_%__kont171020171021%_ + _%hd159344159374%_ + _%hd159318159411%_) (let () (declare (not safe)) - (_%g158023158063%_))))) + (_%g159310159350%_))))) (let () (declare (not safe)) - (_%g158023158063%_)))))) + (_%g159310159350%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158032158126%_)) - (let ((_%e158056158084%_ + (gx#stx-pair? _%tl159319159413%_)) + (let ((_%e159343159371%_ (let () (declare (not safe)) - (gx#stx-e _%tl158032158126%_)))) - (let ((_%tl158058158089%_ + (gx#stx-e _%tl159319159413%_)))) + (let ((_%tl159345159376%_ (let () (declare (not safe)) - (##cdr _%e158056158084%_))) - (_%hd158057158087%_ + (##cdr _%e159343159371%_))) + (_%hd159344159374%_ (let () (declare (not safe)) - (##car _%e158056158084%_)))) + (##car _%e159343159371%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158058158089%_)) - (_%__kont169733169734%_ - _%hd158057158087%_ - _%hd158031158124%_) + _%tl159345159376%_)) + (_%__kont171020171021%_ + _%hd159344159374%_ + _%hd159318159411%_) (let () (declare (not safe)) - (_%g158023158063%_))))) + (_%g159310159350%_))))) (let () (declare (not safe)) - (_%g158023158063%_)))))) - (let () (declare (not safe)) (_%g158023158063%_))))) - (let () (declare (not safe)) (_%g158023158063%_)))))))) + (_%g159310159350%_)))))) + (let () (declare (not safe)) (_%g159310159350%_))))) + (let () (declare (not safe)) (_%g159310159350%_)))))))) (define gxc#lambda-expr? - (lambda (_%expr157972%_) - (let* ((_%__stx169787169788%_ _%expr157972%_) - (_%g157975157985%_ + (lambda (_%expr159259%_) + (let* ((_%__stx171074171075%_ _%expr159259%_) + (_%g159262159272%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169787169788%_))))) - (let ((_%__kont169789169790%_ (lambda (_%L158005%_) '#t)) - (_%__kont169791169792%_ (lambda () '#f))) + _%__stx171074171075%_))))) + (let ((_%__kont171076171077%_ (lambda (_%L159292%_) '#t)) + (_%__kont171078171079%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169787169788%_)) - (let ((_%e157978157997%_ + (gx#stx-pair? _%__stx171074171075%_)) + (let ((_%e159265159284%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169787169788%_)))) - (let ((_%tl157980158002%_ + (gx#stx-e _%__stx171074171075%_)))) + (let ((_%tl159267159289%_ (let () (declare (not safe)) - (##cdr _%e157978157997%_))) - (_%hd157979158000%_ + (##cdr _%e159265159284%_))) + (_%hd159266159287%_ (let () (declare (not safe)) - (##car _%e157978157997%_)))) + (##car _%e159265159284%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157979158000%_)) + (gx#identifier? _%hd159266159287%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd157979158000%_)) - (_%__kont169789169790%_ _%tl157980158002%_) - (_%__kont169791169792%_)) - (_%__kont169791169792%_)))) - (_%__kont169791169792%_)))))) + (gx#stx-eq? '%#lambda _%hd159266159287%_)) + (_%__kont171076171077%_ _%tl159267159289%_) + (_%__kont171078171079%_)) + (_%__kont171078171079%_)))) + (_%__kont171078171079%_)))))) (define gxc#case-lambda-expr? - (lambda (_%expr157925%_) - (let* ((_%__stx169805169806%_ _%expr157925%_) - (_%g157928157938%_ + (lambda (_%expr159212%_) + (let* ((_%__stx171092171093%_ _%expr159212%_) + (_%g159215159225%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169805169806%_))))) - (let ((_%__kont169807169808%_ (lambda (_%L157958%_) '#t)) - (_%__kont169809169810%_ (lambda () '#f))) + _%__stx171092171093%_))))) + (let ((_%__kont171094171095%_ (lambda (_%L159245%_) '#t)) + (_%__kont171096171097%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169805169806%_)) - (let ((_%e157931157950%_ + (gx#stx-pair? _%__stx171092171093%_)) + (let ((_%e159218159237%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169805169806%_)))) - (let ((_%tl157933157955%_ + (gx#stx-e _%__stx171092171093%_)))) + (let ((_%tl159220159242%_ (let () (declare (not safe)) - (##cdr _%e157931157950%_))) - (_%hd157932157953%_ + (##cdr _%e159218159237%_))) + (_%hd159219159240%_ (let () (declare (not safe)) - (##car _%e157931157950%_)))) + (##car _%e159218159237%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157932157953%_)) + (gx#identifier? _%hd159219159240%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _%hd157932157953%_)) - (_%__kont169807169808%_ _%tl157933157955%_) - (_%__kont169809169810%_)) - (_%__kont169809169810%_)))) - (_%__kont169809169810%_)))))) + (gx#stx-eq? '%#case-lambda _%hd159219159240%_)) + (_%__kont171094171095%_ _%tl159220159242%_) + (_%__kont171096171097%_)) + (_%__kont171096171097%_)))) + (_%__kont171096171097%_)))))) (define gxc#opt-lambda-expr? - (lambda (_%expr157794%_) - (let* ((_%__stx169823169824%_ _%expr157794%_) - (_%g157797157827%_ + (lambda (_%expr159081%_) + (let* ((_%__stx171110171111%_ _%expr159081%_) + (_%g159084159114%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169823169824%_))))) - (let ((_%__kont169825169826%_ - (lambda (_%L157895%_ _%L157896%_ _%L157897%_) + _%__stx171110171111%_))))) + (let ((_%__kont171112171113%_ + (lambda (_%L159182%_ _%L159183%_ _%L159184%_) (if (let () (declare (not safe)) - (gx#identifier? _%L157897%_)) - (if (gxc#lambda-expr? _%L157896%_) - (gxc#case-lambda-expr? _%L157895%_) + (gx#identifier? _%L159184%_)) + (if (gxc#lambda-expr? _%L159183%_) + (gxc#case-lambda-expr? _%L159182%_) '#f) '#f))) - (_%__kont169827169828%_ (lambda () '#f))) + (_%__kont171114171115%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169823169824%_)) - (let ((_%e157802157839%_ + (gx#stx-pair? _%__stx171110171111%_)) + (let ((_%e159089159126%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169823169824%_)))) - (let ((_%tl157804157844%_ + (gx#stx-e _%__stx171110171111%_)))) + (let ((_%tl159091159131%_ (let () (declare (not safe)) - (##cdr _%e157802157839%_))) - (_%hd157803157842%_ + (##cdr _%e159089159126%_))) + (_%hd159090159129%_ (let () (declare (not safe)) - (##car _%e157802157839%_)))) + (##car _%e159089159126%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157803157842%_)) + (gx#identifier? _%hd159090159129%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd157803157842%_)) + (gx#stx-eq? '%#let-values _%hd159090159129%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157804157844%_)) - (let ((_%e157805157847%_ + (gx#stx-pair? _%tl159091159131%_)) + (let ((_%e159092159134%_ (let () (declare (not safe)) - (gx#stx-e _%tl157804157844%_)))) - (let ((_%tl157807157852%_ + (gx#stx-e _%tl159091159131%_)))) + (let ((_%tl159094159139%_ (let () (declare (not safe)) - (##cdr _%e157805157847%_))) - (_%hd157806157850%_ + (##cdr _%e159092159134%_))) + (_%hd159093159137%_ (let () (declare (not safe)) - (##car _%e157805157847%_)))) + (##car _%e159092159134%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157806157850%_)) - (let ((_%e157808157855%_ + (gx#stx-pair? _%hd159093159137%_)) + (let ((_%e159095159142%_ (let () (declare (not safe)) (gx#stx-e - _%hd157806157850%_)))) - (let ((_%tl157810157860%_ + _%hd159093159137%_)))) + (let ((_%tl159097159147%_ (let () (declare (not safe)) - (##cdr _%e157808157855%_))) - (_%hd157809157858%_ + (##cdr _%e159095159142%_))) + (_%hd159096159145%_ (let () (declare (not safe)) - (##car _%e157808157855%_)))) + (##car _%e159095159142%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157809157858%_)) - (let ((_%e157811157863%_ + _%hd159096159145%_)) + (let ((_%e159098159150%_ (let () (declare (not safe)) (gx#stx-e - _%hd157809157858%_)))) - (let ((_%tl157813157868%_ + _%hd159096159145%_)))) + (let ((_%tl159100159155%_ (let () (declare (not safe)) - (##cdr _%e157811157863%_))) - (_%hd157812157866%_ + (##cdr _%e159098159150%_))) + (_%hd159099159153%_ (let () (declare (not safe)) - (##car _%e157811157863%_)))) + (##car _%e159098159150%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157812157866%_)) - (let ((_%e157814157871%_ + _%hd159099159153%_)) + (let ((_%e159101159158%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157812157866%_)))) - (let ((_%tl157816157876%_ + (gx#stx-e _%hd159099159153%_)))) + (let ((_%tl159103159163%_ (let () (declare (not safe)) - (##cdr _%e157814157871%_))) - (_%hd157815157874%_ + (##cdr _%e159101159158%_))) + (_%hd159102159161%_ (let () (declare (not safe)) - (##car _%e157814157871%_)))) + (##car _%e159101159158%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157816157876%_)) + (gx#stx-null? _%tl159103159163%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157813157868%_)) - (let ((_%e157817157879%_ + (gx#stx-pair? _%tl159100159155%_)) + (let ((_%e159104159166%_ (let () (declare (not safe)) - (gx#stx-e _%tl157813157868%_)))) - (let ((_%tl157819157884%_ + (gx#stx-e _%tl159100159155%_)))) + (let ((_%tl159106159171%_ (let () (declare (not safe)) - (##cdr _%e157817157879%_))) - (_%hd157818157882%_ + (##cdr _%e159104159166%_))) + (_%hd159105159169%_ (let () (declare (not safe)) - (##car _%e157817157879%_)))) + (##car _%e159104159166%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157819157884%_)) + (gx#stx-null? _%tl159106159171%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157810157860%_)) + (gx#stx-null? _%tl159097159147%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157807157852%_)) - (let ((_%e157820157887%_ + _%tl159094159139%_)) + (let ((_%e159107159174%_ (let () (declare (not safe)) (gx#stx-e - _%tl157807157852%_)))) - (let ((_%tl157822157892%_ + _%tl159094159139%_)))) + (let ((_%tl159109159179%_ (let () (declare (not safe)) - (##cdr _%e157820157887%_))) - (_%hd157821157890%_ + (##cdr _%e159107159174%_))) + (_%hd159108159177%_ (let () (declare (not safe)) - (##car _%e157820157887%_)))) + (##car _%e159107159174%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157822157892%_)) - (_%__kont169825169826%_ - _%hd157821157890%_ - _%hd157818157882%_ - _%hd157815157874%_) - (_%__kont169827169828%_)))) - (_%__kont169827169828%_)) - (_%__kont169827169828%_)) - (_%__kont169827169828%_)))) - (_%__kont169827169828%_)) - (_%__kont169827169828%_)))) - (_%__kont169827169828%_)))) + _%tl159109159179%_)) + (_%__kont171112171113%_ + _%hd159108159177%_ + _%hd159105159169%_ + _%hd159102159161%_) + (_%__kont171114171115%_)))) + (_%__kont171114171115%_)) + (_%__kont171114171115%_)) + (_%__kont171114171115%_)))) + (_%__kont171114171115%_)) + (_%__kont171114171115%_)))) + (_%__kont171114171115%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169827169828%_)))) - (_%__kont169827169828%_)))) - (_%__kont169827169828%_)) - (_%__kont169827169828%_)) - (_%__kont169827169828%_)))) - (_%__kont169827169828%_)))))) + (_%__kont171114171115%_)))) + (_%__kont171114171115%_)))) + (_%__kont171114171115%_)) + (_%__kont171114171115%_)) + (_%__kont171114171115%_)))) + (_%__kont171114171115%_)))))) (define gxc#kw-lambda-expr? - (lambda (_%expr157119%_) - (let* ((_%__stx169885169886%_ _%expr157119%_) - (_%g157122157280%_ + (lambda (_%expr158406%_) + (let* ((_%__stx171172171173%_ _%expr158406%_) + (_%g158409158567%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169885169886%_))))) - (let ((_%__kont169887169888%_ - (lambda (_%L157668%_ - _%L157669%_ - _%L157670%_ - _%L157671%_ - _%L157672%_ - _%L157673%_ - _%L157674%_ - _%L157675%_ - _%L157676%_ - _%L157677%_ - _%L157678%_) + _%__stx171172171173%_))))) + (let ((_%__kont171174171175%_ + (lambda (_%L158955%_ + _%L158956%_ + _%L158957%_ + _%L158958%_ + _%L158959%_ + _%L158960%_ + _%L158961%_ + _%L158962%_ + _%L158963%_ + _%L158964%_ + _%L158965%_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L157675%_ 'apply)) + (gxc#runtime-identifier=? _%L158962%_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L157671%_ 'apply)) + (gxc#runtime-identifier=? _%L158958%_ 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L157670%_ + _%L158957%_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L157678%_ - _%L157669%_)) + _%L158965%_ + _%L158956%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L157677%_ - _%L157674%_)) + _%L158964%_ + _%L158961%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L157672%_ - _%L157668%_)) + _%L158959%_ + _%L158955%_)) (let () (declare (not safe)) (gx#free-identifier=? - _%L157676%_ - _%L157673%_)) + _%L158963%_ + _%L158960%_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (_%__kont169889169890%_ (lambda () '#f))) + (_%__kont171176171177%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169885169886%_)) - (let ((_%e157135157292%_ + (gx#stx-pair? _%__stx171172171173%_)) + (let ((_%e158422158579%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169885169886%_)))) - (let ((_%tl157137157297%_ + (gx#stx-e _%__stx171172171173%_)))) + (let ((_%tl158424158584%_ (let () (declare (not safe)) - (##cdr _%e157135157292%_))) - (_%hd157136157295%_ + (##cdr _%e158422158579%_))) + (_%hd158423158582%_ (let () (declare (not safe)) - (##car _%e157135157292%_)))) + (##car _%e158422158579%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157136157295%_)) + (gx#identifier? _%hd158423158582%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd157136157295%_)) + (gx#stx-eq? '%#let-values _%hd158423158582%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157137157297%_)) - (let ((_%e157138157300%_ + (gx#stx-pair? _%tl158424158584%_)) + (let ((_%e158425158587%_ (let () (declare (not safe)) - (gx#stx-e _%tl157137157297%_)))) - (let ((_%tl157140157305%_ + (gx#stx-e _%tl158424158584%_)))) + (let ((_%tl158427158592%_ (let () (declare (not safe)) - (##cdr _%e157138157300%_))) - (_%hd157139157303%_ + (##cdr _%e158425158587%_))) + (_%hd158426158590%_ (let () (declare (not safe)) - (##car _%e157138157300%_)))) + (##car _%e158425158587%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157139157303%_)) - (let ((_%e157141157308%_ + (gx#stx-pair? _%hd158426158590%_)) + (let ((_%e158428158595%_ (let () (declare (not safe)) (gx#stx-e - _%hd157139157303%_)))) - (let ((_%tl157143157313%_ + _%hd158426158590%_)))) + (let ((_%tl158430158600%_ (let () (declare (not safe)) - (##cdr _%e157141157308%_))) - (_%hd157142157311%_ + (##cdr _%e158428158595%_))) + (_%hd158429158598%_ (let () (declare (not safe)) - (##car _%e157141157308%_)))) + (##car _%e158428158595%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157142157311%_)) - (let ((_%e157144157316%_ + _%hd158429158598%_)) + (let ((_%e158431158603%_ (let () (declare (not safe)) (gx#stx-e - _%hd157142157311%_)))) - (let ((_%tl157146157321%_ + _%hd158429158598%_)))) + (let ((_%tl158433158608%_ (let () (declare (not safe)) - (##cdr _%e157144157316%_))) - (_%hd157145157319%_ + (##cdr _%e158431158603%_))) + (_%hd158432158606%_ (let () (declare (not safe)) - (##car _%e157144157316%_)))) + (##car _%e158431158603%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157145157319%_)) - (let ((_%e157147157324%_ + _%hd158432158606%_)) + (let ((_%e158434158611%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157145157319%_)))) - (let ((_%tl157149157329%_ + (gx#stx-e _%hd158432158606%_)))) + (let ((_%tl158436158616%_ (let () (declare (not safe)) - (##cdr _%e157147157324%_))) - (_%hd157148157327%_ + (##cdr _%e158434158611%_))) + (_%hd158435158614%_ (let () (declare (not safe)) - (##car _%e157147157324%_)))) + (##car _%e158434158611%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157149157329%_)) + (gx#stx-null? _%tl158436158616%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157146157321%_)) - (let ((_%e157150157332%_ + (gx#stx-pair? _%tl158433158608%_)) + (let ((_%e158437158619%_ (let () (declare (not safe)) - (gx#stx-e _%tl157146157321%_)))) - (let ((_%tl157152157337%_ + (gx#stx-e _%tl158433158608%_)))) + (let ((_%tl158439158624%_ (let () (declare (not safe)) - (##cdr _%e157150157332%_))) - (_%hd157151157335%_ + (##cdr _%e158437158619%_))) + (_%hd158438158622%_ (let () (declare (not safe)) - (##car _%e157150157332%_)))) + (##car _%e158437158619%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157151157335%_)) - (let ((_%e157153157340%_ + (gx#stx-pair? _%hd158438158622%_)) + (let ((_%e158440158627%_ (let () (declare (not safe)) - (gx#stx-e _%hd157151157335%_)))) - (let ((_%tl157155157345%_ + (gx#stx-e _%hd158438158622%_)))) + (let ((_%tl158442158632%_ (let () (declare (not safe)) - (##cdr _%e157153157340%_))) - (_%hd157154157343%_ + (##cdr _%e158440158627%_))) + (_%hd158441158630%_ (let () (declare (not safe)) - (##car _%e157153157340%_)))) + (##car _%e158440158627%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157154157343%_)) + _%hd158441158630%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd157154157343%_)) + _%hd158441158630%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157155157345%_)) - (let ((_%e157156157348%_ + _%tl158442158632%_)) + (let ((_%e158443158635%_ (let () (declare (not safe)) (gx#stx-e - _%tl157155157345%_)))) - (let ((_%tl157158157353%_ + _%tl158442158632%_)))) + (let ((_%tl158445158640%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157156157348%_))) - (_%hd157157157351%_ - (let () (declare (not safe)) (##car _%e157156157348%_)))) + (##cdr _%e158443158635%_))) + (_%hd158444158638%_ + (let () (declare (not safe)) (##car _%e158443158635%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157157157351%_)) - (let ((_%e157159157356%_ + (gx#stx-pair? _%hd158444158638%_)) + (let ((_%e158446158643%_ (let () (declare (not safe)) - (gx#stx-e _%hd157157157351%_)))) - (let ((_%tl157161157361%_ + (gx#stx-e _%hd158444158638%_)))) + (let ((_%tl158448158648%_ (let () (declare (not safe)) - (##cdr _%e157159157356%_))) - (_%hd157160157359%_ + (##cdr _%e158446158643%_))) + (_%hd158447158646%_ (let () (declare (not safe)) - (##car _%e157159157356%_)))) + (##car _%e158446158643%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157160157359%_)) - (let ((_%e157162157364%_ + (gx#stx-pair? _%hd158447158646%_)) + (let ((_%e158449158651%_ (let () (declare (not safe)) - (gx#stx-e _%hd157160157359%_)))) - (let ((_%tl157164157369%_ + (gx#stx-e _%hd158447158646%_)))) + (let ((_%tl158451158656%_ (let () (declare (not safe)) - (##cdr _%e157162157364%_))) - (_%hd157163157367%_ + (##cdr _%e158449158651%_))) + (_%hd158450158654%_ (let () (declare (not safe)) - (##car _%e157162157364%_)))) + (##car _%e158449158651%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157163157367%_)) - (let ((_%e157165157372%_ + (gx#stx-pair? _%hd158450158654%_)) + (let ((_%e158452158659%_ (let () (declare (not safe)) - (gx#stx-e _%hd157163157367%_)))) - (let ((_%tl157167157377%_ + (gx#stx-e _%hd158450158654%_)))) + (let ((_%tl158454158664%_ (let () (declare (not safe)) - (##cdr _%e157165157372%_))) - (_%hd157166157375%_ + (##cdr _%e158452158659%_))) + (_%hd158453158662%_ (let () (declare (not safe)) - (##car _%e157165157372%_)))) + (##car _%e158452158659%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157167157377%_)) + _%tl158454158664%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157164157369%_)) - (let ((_%e157168157380%_ + _%tl158451158656%_)) + (let ((_%e158455158667%_ (let () (declare (not safe)) (gx#stx-e - _%tl157164157369%_)))) - (let ((_%tl157170157385%_ + _%tl158451158656%_)))) + (let ((_%tl158457158672%_ (let () (declare (not safe)) - (##cdr _%e157168157380%_))) - (_%hd157169157383%_ + (##cdr _%e158455158667%_))) + (_%hd158456158670%_ (let () (declare (not safe)) - (##car _%e157168157380%_)))) + (##car _%e158455158667%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157170157385%_)) + _%tl158457158672%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157161157361%_)) + _%tl158448158648%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl157158157353%_)) - (let ((_%e157171157388%_ + (gx#stx-pair? _%tl158445158640%_)) + (let ((_%e158458158675%_ (let () (declare (not safe)) - (gx#stx-e _%tl157158157353%_)))) - (let ((_%tl157173157393%_ + (gx#stx-e _%tl158445158640%_)))) + (let ((_%tl158460158680%_ (let () (declare (not safe)) - (##cdr _%e157171157388%_))) - (_%hd157172157391%_ + (##cdr _%e158458158675%_))) + (_%hd158459158678%_ (let () (declare (not safe)) - (##car _%e157171157388%_)))) + (##car _%e158458158675%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157172157391%_)) - (let ((_%e157174157396%_ + (gx#stx-pair? _%hd158459158678%_)) + (let ((_%e158461158683%_ (let () (declare (not safe)) - (gx#stx-e _%hd157172157391%_)))) - (let ((_%tl157176157401%_ + (gx#stx-e _%hd158459158678%_)))) + (let ((_%tl158463158688%_ (let () (declare (not safe)) - (##cdr _%e157174157396%_))) - (_%hd157175157399%_ + (##cdr _%e158461158683%_))) + (_%hd158462158686%_ (let () (declare (not safe)) - (##car _%e157174157396%_)))) + (##car _%e158461158683%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157175157399%_)) + (gx#identifier? _%hd158462158686%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd157175157399%_)) + _%hd158462158686%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157176157401%_)) - (let ((_%e157177157404%_ + _%tl158463158688%_)) + (let ((_%e158464158691%_ (let () (declare (not safe)) (gx#stx-e - _%tl157176157401%_)))) - (let ((_%tl157179157409%_ + _%tl158463158688%_)))) + (let ((_%tl158466158696%_ (let () (declare (not safe)) - (##cdr _%e157177157404%_))) - (_%hd157178157407%_ + (##cdr _%e158464158691%_))) + (_%hd158465158694%_ (let () (declare (not safe)) - (##car _%e157177157404%_)))) + (##car _%e158464158691%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157178157407%_)) - (let ((_%e157180157412%_ + _%hd158465158694%_)) + (let ((_%e158467158699%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157178157407%_)))) - (let ((_%tl157182157417%_ + (gx#stx-e _%hd158465158694%_)))) + (let ((_%tl158469158704%_ (let () (declare (not safe)) - (##cdr _%e157180157412%_))) - (_%hd157181157415%_ + (##cdr _%e158467158699%_))) + (_%hd158468158702%_ (let () (declare (not safe)) - (##car _%e157180157412%_)))) + (##car _%e158467158699%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157179157409%_)) - (let ((_%e157183157420%_ + (gx#stx-pair? _%tl158466158696%_)) + (let ((_%e158470158707%_ (let () (declare (not safe)) - (gx#stx-e _%tl157179157409%_)))) - (let ((_%tl157185157425%_ + (gx#stx-e _%tl158466158696%_)))) + (let ((_%tl158472158712%_ (let () (declare (not safe)) - (##cdr _%e157183157420%_))) - (_%hd157184157423%_ + (##cdr _%e158470158707%_))) + (_%hd158471158710%_ (let () (declare (not safe)) - (##car _%e157183157420%_)))) + (##car _%e158470158707%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157184157423%_)) - (let ((_%e157186157428%_ + (gx#stx-pair? _%hd158471158710%_)) + (let ((_%e158473158715%_ (let () (declare (not safe)) - (gx#stx-e _%hd157184157423%_)))) - (let ((_%tl157188157433%_ + (gx#stx-e _%hd158471158710%_)))) + (let ((_%tl158475158720%_ (let () (declare (not safe)) - (##cdr _%e157186157428%_))) - (_%hd157187157431%_ + (##cdr _%e158473158715%_))) + (_%hd158474158718%_ (let () (declare (not safe)) - (##car _%e157186157428%_)))) + (##car _%e158473158715%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157187157431%_)) + (gx#identifier? _%hd158474158718%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd157187157431%_)) + _%hd158474158718%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157188157433%_)) - (let ((_%e157189157436%_ + _%tl158475158720%_)) + (let ((_%e158476158723%_ (let () (declare (not safe)) (gx#stx-e - _%tl157188157433%_)))) - (let ((_%tl157191157441%_ + _%tl158475158720%_)))) + (let ((_%tl158478158728%_ (let () (declare (not safe)) - (##cdr _%e157189157436%_))) - (_%hd157190157439%_ + (##cdr _%e158476158723%_))) + (_%hd158477158726%_ (let () (declare (not safe)) - (##car _%e157189157436%_)))) + (##car _%e158476158723%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157190157439%_)) - (let ((_%e157192157444%_ + _%hd158477158726%_)) + (let ((_%e158479158731%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157190157439%_)))) - (let ((_%tl157194157449%_ + (gx#stx-e _%hd158477158726%_)))) + (let ((_%tl158481158736%_ (let () (declare (not safe)) - (##cdr _%e157192157444%_))) - (_%hd157193157447%_ + (##cdr _%e158479158731%_))) + (_%hd158480158734%_ (let () (declare (not safe)) - (##car _%e157192157444%_)))) + (##car _%e158479158731%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157193157447%_)) + (gx#identifier? _%hd158480158734%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157193157447%_)) + (gx#stx-eq? '%#ref _%hd158480158734%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157194157449%_)) - (let ((_%e157195157452%_ + (gx#stx-pair? _%tl158481158736%_)) + (let ((_%e158482158739%_ (let () (declare (not safe)) - (gx#stx-e _%tl157194157449%_)))) - (let ((_%tl157197157457%_ + (gx#stx-e _%tl158481158736%_)))) + (let ((_%tl158484158744%_ (let () (declare (not safe)) - (##cdr _%e157195157452%_))) - (_%hd157196157455%_ + (##cdr _%e158482158739%_))) + (_%hd158483158742%_ (let () (declare (not safe)) - (##car _%e157195157452%_)))) + (##car _%e158482158739%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157197157457%_)) + (gx#stx-null? _%tl158484158744%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157191157441%_)) - (let ((_%e157198157460%_ + _%tl158478158728%_)) + (let ((_%e158485158747%_ (let () (declare (not safe)) (gx#stx-e - _%tl157191157441%_)))) - (let ((_%tl157200157465%_ + _%tl158478158728%_)))) + (let ((_%tl158487158752%_ (let () (declare (not safe)) - (##cdr _%e157198157460%_))) - (_%hd157199157463%_ + (##cdr _%e158485158747%_))) + (_%hd158486158750%_ (let () (declare (not safe)) - (##car _%e157198157460%_)))) + (##car _%e158485158747%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157199157463%_)) - (let ((_%e157201157468%_ + _%hd158486158750%_)) + (let ((_%e158488158755%_ (let () (declare (not safe)) (gx#stx-e - _%hd157199157463%_)))) - (let ((_%tl157203157473%_ + _%hd158486158750%_)))) + (let ((_%tl158490158760%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157201157468%_))) - (_%hd157202157471%_ - (let () (declare (not safe)) (##car _%e157201157468%_)))) + (##cdr _%e158488158755%_))) + (_%hd158489158758%_ + (let () (declare (not safe)) (##car _%e158488158755%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157202157471%_)) + (gx#identifier? _%hd158489158758%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157202157471%_)) + (gx#stx-eq? '%#ref _%hd158489158758%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157203157473%_)) - (let ((_%e157204157476%_ + (gx#stx-pair? _%tl158490158760%_)) + (let ((_%e158491158763%_ (let () (declare (not safe)) - (gx#stx-e _%tl157203157473%_)))) - (let ((_%tl157206157481%_ + (gx#stx-e _%tl158490158760%_)))) + (let ((_%tl158493158768%_ (let () (declare (not safe)) - (##cdr _%e157204157476%_))) - (_%hd157205157479%_ + (##cdr _%e158491158763%_))) + (_%hd158492158766%_ (let () (declare (not safe)) - (##car _%e157204157476%_)))) + (##car _%e158491158763%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157206157481%_)) + (gx#stx-null? _%tl158493158768%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157200157465%_)) - (let ((_%e157207157484%_ + (gx#stx-pair? _%tl158487158752%_)) + (let ((_%e158494158771%_ (let () (declare (not safe)) (gx#stx-e - _%tl157200157465%_)))) - (let ((_%tl157209157489%_ + _%tl158487158752%_)))) + (let ((_%tl158496158776%_ (let () (declare (not safe)) - (##cdr _%e157207157484%_))) - (_%hd157208157487%_ + (##cdr _%e158494158771%_))) + (_%hd158495158774%_ (let () (declare (not safe)) - (##car _%e157207157484%_)))) + (##car _%e158494158771%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157208157487%_)) - (let ((_%e157210157492%_ + _%hd158495158774%_)) + (let ((_%e158497158779%_ (let () (declare (not safe)) (gx#stx-e - _%hd157208157487%_)))) - (let ((_%tl157212157497%_ + _%hd158495158774%_)))) + (let ((_%tl158499158784%_ (let () (declare (not safe)) - (##cdr _%e157210157492%_))) - (_%hd157211157495%_ + (##cdr _%e158497158779%_))) + (_%hd158498158782%_ (let () (declare (not safe)) - (##car _%e157210157492%_)))) + (##car _%e158497158779%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157211157495%_)) + _%hd158498158782%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157211157495%_)) + _%hd158498158782%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl157212157497%_)) - (let ((_%e157213157500%_ + (gx#stx-pair? _%tl158499158784%_)) + (let ((_%e158500158787%_ (let () (declare (not safe)) - (gx#stx-e _%tl157212157497%_)))) - (let ((_%tl157215157505%_ + (gx#stx-e _%tl158499158784%_)))) + (let ((_%tl158502158792%_ (let () (declare (not safe)) - (##cdr _%e157213157500%_))) - (_%hd157214157503%_ + (##cdr _%e158500158787%_))) + (_%hd158501158790%_ (let () (declare (not safe)) - (##car _%e157213157500%_)))) + (##car _%e158500158787%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157215157505%_)) + (gx#stx-null? _%tl158502158792%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157185157425%_)) + (gx#stx-null? _%tl158472158712%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157173157393%_)) + (gx#stx-null? _%tl158460158680%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157152157337%_)) + _%tl158439158624%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157143157313%_)) + _%tl158430158600%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157140157305%_)) - (let ((_%e157216157508%_ + _%tl158427158592%_)) + (let ((_%e158503158795%_ (let () (declare (not safe)) (gx#stx-e - _%tl157140157305%_)))) - (let ((_%tl157218157513%_ + _%tl158427158592%_)))) + (let ((_%tl158505158800%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157216157508%_))) - (_%hd157217157511%_ - (let () (declare (not safe)) (##car _%e157216157508%_)))) + (##cdr _%e158503158795%_))) + (_%hd158504158798%_ + (let () (declare (not safe)) (##car _%e158503158795%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157217157511%_)) - (let ((_%e157219157516%_ + (gx#stx-pair? _%hd158504158798%_)) + (let ((_%e158506158803%_ (let () (declare (not safe)) - (gx#stx-e _%hd157217157511%_)))) - (let ((_%tl157221157521%_ + (gx#stx-e _%hd158504158798%_)))) + (let ((_%tl158508158808%_ (let () (declare (not safe)) - (##cdr _%e157219157516%_))) - (_%hd157220157519%_ + (##cdr _%e158506158803%_))) + (_%hd158507158806%_ (let () (declare (not safe)) - (##car _%e157219157516%_)))) + (##car _%e158506158803%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157220157519%_)) + (gx#identifier? _%hd158507158806%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd157220157519%_)) + (gx#stx-eq? '%#lambda _%hd158507158806%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157221157521%_)) - (let ((_%e157222157524%_ + (gx#stx-pair? _%tl158508158808%_)) + (let ((_%e158509158811%_ (let () (declare (not safe)) - (gx#stx-e _%tl157221157521%_)))) - (let ((_%tl157224157529%_ + (gx#stx-e _%tl158508158808%_)))) + (let ((_%tl158511158816%_ (let () (declare (not safe)) - (##cdr _%e157222157524%_))) - (_%hd157223157527%_ + (##cdr _%e158509158811%_))) + (_%hd158510158814%_ (let () (declare (not safe)) - (##car _%e157222157524%_)))) + (##car _%e158509158811%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157224157529%_)) - (let ((_%e157225157532%_ + _%tl158511158816%_)) + (let ((_%e158512158819%_ (let () (declare (not safe)) (gx#stx-e - _%tl157224157529%_)))) - (let ((_%tl157227157537%_ + _%tl158511158816%_)))) + (let ((_%tl158514158824%_ (let () (declare (not safe)) - (##cdr _%e157225157532%_))) - (_%hd157226157535%_ + (##cdr _%e158512158819%_))) + (_%hd158513158822%_ (let () (declare (not safe)) - (##car _%e157225157532%_)))) + (##car _%e158512158819%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157226157535%_)) - (let ((_%e157228157540%_ + _%hd158513158822%_)) + (let ((_%e158515158827%_ (let () (declare (not safe)) (gx#stx-e - _%hd157226157535%_)))) - (let ((_%tl157230157545%_ + _%hd158513158822%_)))) + (let ((_%tl158517158832%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157228157540%_))) - (_%hd157229157543%_ - (let () (declare (not safe)) (##car _%e157228157540%_)))) + (##cdr _%e158515158827%_))) + (_%hd158516158830%_ + (let () (declare (not safe)) (##car _%e158515158827%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157229157543%_)) + (gx#identifier? _%hd158516158830%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd157229157543%_)) + (gx#stx-eq? '%#call _%hd158516158830%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157230157545%_)) - (let ((_%e157231157548%_ + (gx#stx-pair? _%tl158517158832%_)) + (let ((_%e158518158835%_ (let () (declare (not safe)) - (gx#stx-e _%tl157230157545%_)))) - (let ((_%tl157233157553%_ + (gx#stx-e _%tl158517158832%_)))) + (let ((_%tl158520158840%_ (let () (declare (not safe)) - (##cdr _%e157231157548%_))) - (_%hd157232157551%_ + (##cdr _%e158518158835%_))) + (_%hd158519158838%_ (let () (declare (not safe)) - (##car _%e157231157548%_)))) + (##car _%e158518158835%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157232157551%_)) - (let ((_%e157234157556%_ + (gx#stx-pair? _%hd158519158838%_)) + (let ((_%e158521158843%_ (let () (declare (not safe)) - (gx#stx-e _%hd157232157551%_)))) - (let ((_%tl157236157561%_ + (gx#stx-e _%hd158519158838%_)))) + (let ((_%tl158523158848%_ (let () (declare (not safe)) - (##cdr _%e157234157556%_))) - (_%hd157235157559%_ + (##cdr _%e158521158843%_))) + (_%hd158522158846%_ (let () (declare (not safe)) - (##car _%e157234157556%_)))) + (##car _%e158521158843%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157235157559%_)) + _%hd158522158846%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157235157559%_)) + _%hd158522158846%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157236157561%_)) - (let ((_%e157237157564%_ + _%tl158523158848%_)) + (let ((_%e158524158851%_ (let () (declare (not safe)) (gx#stx-e - _%tl157236157561%_)))) - (let ((_%tl157239157569%_ + _%tl158523158848%_)))) + (let ((_%tl158526158856%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157237157564%_))) - (_%hd157238157567%_ - (let () (declare (not safe)) (##car _%e157237157564%_)))) + (##cdr _%e158524158851%_))) + (_%hd158525158854%_ + (let () (declare (not safe)) (##car _%e158524158851%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157239157569%_)) + (gx#stx-null? _%tl158526158856%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157233157553%_)) - (let ((_%e157240157572%_ + (gx#stx-pair? _%tl158520158840%_)) + (let ((_%e158527158859%_ (let () (declare (not safe)) - (gx#stx-e _%tl157233157553%_)))) - (let ((_%tl157242157577%_ + (gx#stx-e _%tl158520158840%_)))) + (let ((_%tl158529158864%_ (let () (declare (not safe)) - (##cdr _%e157240157572%_))) - (_%hd157241157575%_ + (##cdr _%e158527158859%_))) + (_%hd158528158862%_ (let () (declare (not safe)) - (##car _%e157240157572%_)))) + (##car _%e158527158859%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157241157575%_)) - (let ((_%e157243157580%_ + (gx#stx-pair? _%hd158528158862%_)) + (let ((_%e158530158867%_ (let () (declare (not safe)) - (gx#stx-e _%hd157241157575%_)))) - (let ((_%tl157245157585%_ + (gx#stx-e _%hd158528158862%_)))) + (let ((_%tl158532158872%_ (let () (declare (not safe)) - (##cdr _%e157243157580%_))) - (_%hd157244157583%_ + (##cdr _%e158530158867%_))) + (_%hd158531158870%_ (let () (declare (not safe)) - (##car _%e157243157580%_)))) + (##car _%e158530158867%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157244157583%_)) + (gx#identifier? _%hd158531158870%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157244157583%_)) + _%hd158531158870%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157245157585%_)) - (let ((_%e157246157588%_ + _%tl158532158872%_)) + (let ((_%e158533158875%_ (let () (declare (not safe)) (gx#stx-e - _%tl157245157585%_)))) - (let ((_%tl157248157593%_ + _%tl158532158872%_)))) + (let ((_%tl158535158880%_ (let () (declare (not safe)) - (##cdr _%e157246157588%_))) - (_%hd157247157591%_ + (##cdr _%e158533158875%_))) + (_%hd158534158878%_ (let () (declare (not safe)) - (##car _%e157246157588%_)))) + (##car _%e158533158875%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157248157593%_)) + _%tl158535158880%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157242157577%_)) - (let ((_%e157249157596%_ + _%tl158529158864%_)) + (let ((_%e158536158883%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl157242157577%_)))) - (let ((_%tl157251157601%_ + (gx#stx-e _%tl158529158864%_)))) + (let ((_%tl158538158888%_ (let () (declare (not safe)) - (##cdr _%e157249157596%_))) - (_%hd157250157599%_ + (##cdr _%e158536158883%_))) + (_%hd158537158886%_ (let () (declare (not safe)) - (##car _%e157249157596%_)))) + (##car _%e158536158883%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157250157599%_)) - (let ((_%e157252157604%_ + (gx#stx-pair? _%hd158537158886%_)) + (let ((_%e158539158891%_ (let () (declare (not safe)) - (gx#stx-e _%hd157250157599%_)))) - (let ((_%tl157254157609%_ + (gx#stx-e _%hd158537158886%_)))) + (let ((_%tl158541158896%_ (let () (declare (not safe)) - (##cdr _%e157252157604%_))) - (_%hd157253157607%_ + (##cdr _%e158539158891%_))) + (_%hd158540158894%_ (let () (declare (not safe)) - (##car _%e157252157604%_)))) + (##car _%e158539158891%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157253157607%_)) + (gx#identifier? _%hd158540158894%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd157253157607%_)) + _%hd158540158894%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157254157609%_)) - (let ((_%e157255157612%_ + _%tl158541158896%_)) + (let ((_%e158542158899%_ (let () (declare (not safe)) (gx#stx-e - _%tl157254157609%_)))) - (let ((_%tl157257157617%_ + _%tl158541158896%_)))) + (let ((_%tl158544158904%_ (let () (declare (not safe)) - (##cdr _%e157255157612%_))) - (_%hd157256157615%_ + (##cdr _%e158542158899%_))) + (_%hd158543158902%_ (let () (declare (not safe)) - (##car _%e157255157612%_)))) + (##car _%e158542158899%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157257157617%_)) + _%tl158544158904%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157251157601%_)) - (let ((_%e157258157620%_ + _%tl158538158888%_)) + (let ((_%e158545158907%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl157251157601%_)))) - (let ((_%tl157260157625%_ + (gx#stx-e _%tl158538158888%_)))) + (let ((_%tl158547158912%_ (let () (declare (not safe)) - (##cdr _%e157258157620%_))) - (_%hd157259157623%_ + (##cdr _%e158545158907%_))) + (_%hd158546158910%_ (let () (declare (not safe)) - (##car _%e157258157620%_)))) + (##car _%e158545158907%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157259157623%_)) - (let ((_%e157261157628%_ + (gx#stx-pair? _%hd158546158910%_)) + (let ((_%e158548158915%_ (let () (declare (not safe)) - (gx#stx-e _%hd157259157623%_)))) - (let ((_%tl157263157633%_ + (gx#stx-e _%hd158546158910%_)))) + (let ((_%tl158550158920%_ (let () (declare (not safe)) - (##cdr _%e157261157628%_))) - (_%hd157262157631%_ + (##cdr _%e158548158915%_))) + (_%hd158549158918%_ (let () (declare (not safe)) - (##car _%e157261157628%_)))) + (##car _%e158548158915%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157262157631%_)) + (gx#identifier? _%hd158549158918%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157262157631%_)) + (gx#stx-eq? '%#ref _%hd158549158918%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157263157633%_)) - (let ((_%e157264157636%_ + (gx#stx-pair? _%tl158550158920%_)) + (let ((_%e158551158923%_ (let () (declare (not safe)) (gx#stx-e - _%tl157263157633%_)))) - (let ((_%tl157266157641%_ + _%tl158550158920%_)))) + (let ((_%tl158553158928%_ (let () (declare (not safe)) - (##cdr _%e157264157636%_))) - (_%hd157265157639%_ + (##cdr _%e158551158923%_))) + (_%hd158552158926%_ (let () (declare (not safe)) - (##car _%e157264157636%_)))) + (##car _%e158551158923%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157266157641%_)) + _%tl158553158928%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157260157625%_)) - (let ((_%e157267157644%_ + _%tl158547158912%_)) + (let ((_%e158554158931%_ (let () (declare (not safe)) (gx#stx-e - _%tl157260157625%_)))) - (let ((_%tl157269157649%_ + _%tl158547158912%_)))) + (let ((_%tl158556158936%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157267157644%_))) - (_%hd157268157647%_ - (let () (declare (not safe)) (##car _%e157267157644%_)))) + (##cdr _%e158554158931%_))) + (_%hd158555158934%_ + (let () (declare (not safe)) (##car _%e158554158931%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157268157647%_)) - (let ((_%e157270157652%_ + (gx#stx-pair? _%hd158555158934%_)) + (let ((_%e158557158939%_ (let () (declare (not safe)) - (gx#stx-e _%hd157268157647%_)))) - (let ((_%tl157272157657%_ + (gx#stx-e _%hd158555158934%_)))) + (let ((_%tl158559158944%_ (let () (declare (not safe)) - (##cdr _%e157270157652%_))) - (_%hd157271157655%_ + (##cdr _%e158557158939%_))) + (_%hd158558158942%_ (let () (declare (not safe)) - (##car _%e157270157652%_)))) + (##car _%e158557158939%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157271157655%_)) + (gx#identifier? _%hd158558158942%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157271157655%_)) + (gx#stx-eq? '%#ref _%hd158558158942%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157272157657%_)) - (let ((_%e157273157660%_ + (gx#stx-pair? _%tl158559158944%_)) + (let ((_%e158560158947%_ (let () (declare (not safe)) - (gx#stx-e _%tl157272157657%_)))) - (let ((_%tl157275157665%_ + (gx#stx-e _%tl158559158944%_)))) + (let ((_%tl158562158952%_ (let () (declare (not safe)) - (##cdr _%e157273157660%_))) - (_%hd157274157663%_ + (##cdr _%e158560158947%_))) + (_%hd158561158950%_ (let () (declare (not safe)) - (##car _%e157273157660%_)))) + (##car _%e158560158947%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157275157665%_)) + _%tl158562158952%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157269157649%_)) + _%tl158556158936%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157227157537%_)) + _%tl158514158824%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157218157513%_)) - (_%__kont169887169888%_ - _%hd157274157663%_ - _%hd157265157639%_ - _%hd157247157591%_ - _%hd157238157567%_ - _%hd157223157527%_ - _%hd157214157503%_ - _%hd157205157479%_ - _%hd157196157455%_ - _%hd157181157415%_ - _%hd157166157375%_ - _%hd157148157327%_) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) + _%tl158505158800%_)) + (_%__kont171174171175%_ + _%hd158561158950%_ + _%hd158552158926%_ + _%hd158534158878%_ + _%hd158525158854%_ + _%hd158510158814%_ + _%hd158501158790%_ + _%hd158492158766%_ + _%hd158483158742%_ + _%hd158468158702%_ + _%hd158453158662%_ + _%hd158435158614%_) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)) - (_%__kont169889169890%_)))) - (_%__kont169889169890%_)))))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)) + (_%__kont171176171177%_)))) + (_%__kont171176171177%_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_%stx156861%_ _%id156862%_ _%clauses156863%_ _%gensym?156864%_) - (let _%lp156866%_ ((_%rest156868%_ _%clauses156863%_) - (_%ids156869%_ '()) - (_%impls156870%_ '()) - (_%clauses156871%_ '())) - (let* ((_%rest156872156880%_ _%rest156868%_) - (_%else156874156888%_ + (lambda (_%stx158148%_ _%id158149%_ _%clauses158150%_ _%gensym?158151%_) + (let _%lp158153%_ ((_%rest158155%_ _%clauses158150%_) + (_%ids158156%_ '()) + (_%impls158157%_ '()) + (_%clauses158158%_ '())) + (let* ((_%rest158159158167%_ _%rest158155%_) + (_%else158161158175%_ (lambda () - (values (reverse _%ids156869%_) - (reverse _%impls156870%_) - (reverse _%clauses156871%_)))) - (_%K156876157093%_ - (lambda (_%rest156891%_ _%clause156892%_) - (if (gxc#dispatch-lambda-form? _%clause156892%_) - (_%lp156866%_ - _%rest156891%_ - _%ids156869%_ - _%impls156870%_ - (cons _%clause156892%_ _%clauses156871%_)) - (let* ((_%g156894156905%_ - (lambda (_%g156895156902%_) + (values (reverse _%ids158156%_) + (reverse _%impls158157%_) + (reverse _%clauses158158%_)))) + (_%K158163158380%_ + (lambda (_%rest158178%_ _%clause158179%_) + (if (gxc#dispatch-lambda-form? _%clause158179%_) + (_%lp158153%_ + _%rest158178%_ + _%ids158156%_ + _%impls158157%_ + (cons _%clause158179%_ _%clauses158158%_)) + (let* ((_%g158181158192%_ + (lambda (_%g158182158189%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156895156902%_)))) - (_%g156893157090%_ - (lambda (_%g156895156908%_) + _%g158182158189%_)))) + (_%g158180158377%_ + (lambda (_%g158182158195%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g156895156908%_)) - (let ((_%e156898156910%_ + (gx#stx-pair? _%g158182158195%_)) + (let ((_%e158185158197%_ (let () (declare (not safe)) - (gx#stx-e _%g156895156908%_)))) - (let ((_%hd156899156913%_ + (gx#stx-e _%g158182158195%_)))) + (let ((_%hd158186158200%_ (let () (declare (not safe)) - (##car _%e156898156910%_))) - (_%tl156900156915%_ + (##car _%e158185158197%_))) + (_%tl158187158202%_ (let () (declare (not safe)) - (##cdr _%e156898156910%_)))) - ((lambda (_%L156918%_ _%L156919%_) - (let* ((_%id156936%_ - (let ((__tmp171089 + (##cdr _%e158185158197%_)))) + ((lambda (_%L158205%_ _%L158206%_) + (let* ((_%id158223%_ + (let ((__tmp172376 (let () (declare (not safe)) (gx#stx-e - _%id156862%_))) - (__tmp171088 - (length _%clauses156871%_)) - (__tmp171087 - (if _%gensym?156864%_ + _%id158149%_))) + (__tmp172375 + (length _%clauses158158%_)) + (__tmp172374 + (if _%gensym?158151%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##gensym '__)) '""))) (declare (not safe)) - (make-symbol__1 __tmp171089 '"__" __tmp171088 __tmp171087))) + (make-symbol__1 __tmp172376 '"__" __tmp172375 __tmp172374))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%id156938%_ - (let ((__tmp171090 + (_%id158225%_ + (let ((__tmp172377 (let () (declare (not safe)) (gx#stx-source - _%stx156861%_)))) + _%stx158148%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id156936%_ - __tmp171090))) - (_%impl156940%_ - (let ((__tmp171091 + _%id158223%_ + __tmp172377))) + (_%impl158227%_ + (let ((__tmp172378 (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons _%L156919%_ _%L156918%_)))) + (cons _%L158206%_ _%L158205%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171091 _%stx156861%_))) + (gxc#xform-wrap-source __tmp172378 _%stx158148%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%clause157087%_ - (let* ((_%__stx170269170270%_ - _%L156919%_) - (_%g156944156972%_ + (_%clause158374%_ + (let* ((_%__stx171556171557%_ + _%L158206%_) + (_%g158231158259%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -20102,353 +20102,353 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170269170270%_))))) - (let ((_%__kont170271170272%_ - (lambda (_%L157066%_) - (cons _%L156919%_ - (cons (let ((__tmp171092 + _%__stx171556171557%_))))) + (let ((_%__kont171558171559%_ + (lambda (_%L158353%_) + (cons _%L158206%_ + (cons (let ((__tmp172379 (cons '%#call (cons (cons '%#ref - (cons _%id156938%_ + (cons _%id158225%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp171093 - (lambda (_%g157076157079%_ _%g157077157081%_) + (let ((__tmp172380 + (lambda (_%g158363158366%_ _%g158364158368%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g157076157079%_ '())) - _%g157077157081%_)))) + (cons _%g158363158366%_ '())) + _%g158364158368%_)))) (declare (not safe)) - (__foldr1 __tmp171093 '() _%L157066%_)))))) + (__foldr1 __tmp172380 '() _%L158353%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171092 - _%stx156861%_)) + __tmp172379 + _%stx158148%_)) '())))) - (_%__kont170275170276%_ - (lambda (_%L157017%_ _%L157018%_) - (cons _%L156919%_ - (cons (let ((__tmp171094 + (_%__kont171562171563%_ + (lambda (_%L158304%_ _%L158305%_) + (cons _%L158206%_ + (cons (let ((__tmp172381 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id156938%_ '())) - (let ((__tmp171097 + (cons _%id158225%_ '())) + (let ((__tmp172384 (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L157017%_ '())) + (cons _%L158304%_ '())) '())) - (__tmp171095 - (let ((__tmp171096 - (lambda (_%g157029157032%_ - _%g157030157034%_) + (__tmp172382 + (let ((__tmp172383 + (lambda (_%g158316158319%_ + _%g158317158321%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g157029157032%_ '())) - _%g157030157034%_)))) + (cons _%g158316158319%_ '())) + _%g158317158321%_)))) (declare (not safe)) - (__foldr1 __tmp171096 '() _%L157018%_)))) + (__foldr1 __tmp172383 '() _%L158305%_)))) (declare (not safe)) - (__foldr1 cons __tmp171097 __tmp171095))))))) + (__foldr1 cons __tmp172384 __tmp172382))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171094 - _%stx156861%_)) + __tmp172381 + _%stx158148%_)) '())))) - (_%__kont170279170280%_ - (lambda (_%L156977%_) - (cons _%L156919%_ - (cons (let ((__tmp171098 + (_%__kont171566171567%_ + (lambda (_%L158264%_) + (cons _%L158206%_ + (cons (let ((__tmp172385 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id156938%_ '())) + (cons _%id158225%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L156977%_ '())) + (cons _%L158264%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171098 - _%stx156861%_)) + __tmp172385 + _%stx158148%_)) '()))))) - (let* ((_%__match170294170295%_ - (lambda (_%__splice170277170278%_ - _%target156958156993%_ - _%tl156960156995%_) - (letrec ((_%loop156961156998%_ - (lambda (_%hd156959157001%_ - _%arg156965157003%_) + (let* ((_%__match171581171582%_ + (lambda (_%__splice171564171565%_ + _%target158245158280%_ + _%tl158247158282%_) + (letrec ((_%loop158248158285%_ + (lambda (_%hd158246158288%_ + _%arg158252158290%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156959157001%_)) - (let ((_%e156962157006%_ + (gx#stx-pair? _%hd158246158288%_)) + (let ((_%e158249158293%_ (let () (declare (not safe)) (gx#stx-e - _%hd156959157001%_)))) - (let ((_%lp-tl156964157011%_ + _%hd158246158288%_)))) + (let ((_%lp-tl158251158298%_ (let () (declare (not safe)) - (##cdr _%e156962157006%_))) - (_%lp-hd156963157009%_ + (##cdr _%e158249158293%_))) + (_%lp-hd158250158296%_ (let () (declare (not safe)) - (##car _%e156962157006%_)))) - (_%loop156961156998%_ - _%lp-tl156964157011%_ - (cons _%lp-hd156963157009%_ - _%arg156965157003%_)))) - (let ((_%arg156966157014%_ - (reverse _%arg156965157003%_))) - (_%__kont170275170276%_ - _%tl156960156995%_ - _%arg156966157014%_)))))) - (_%loop156961156998%_ - _%target156958156993%_ + (##car _%e158249158293%_)))) + (_%loop158248158285%_ + _%lp-tl158251158298%_ + (cons _%lp-hd158250158296%_ + _%arg158252158290%_)))) + (let ((_%arg158253158301%_ + (reverse _%arg158252158290%_))) + (_%__kont171562171563%_ + _%tl158247158282%_ + _%arg158253158301%_)))))) + (_%loop158248158285%_ + _%target158245158280%_ '())))) - (_%__match170288170289%_ - (lambda (_%__splice170273170274%_ - _%target156947157042%_ - _%tl156949157044%_) - (letrec ((_%loop156950157047%_ - (lambda (_%hd156948157050%_ - _%arg156954157052%_) + (_%__match171575171576%_ + (lambda (_%__splice171560171561%_ + _%target158234158329%_ + _%tl158236158331%_) + (letrec ((_%loop158237158334%_ + (lambda (_%hd158235158337%_ + _%arg158241158339%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156948157050%_)) - (let ((_%e156951157055%_ + (gx#stx-pair? _%hd158235158337%_)) + (let ((_%e158238158342%_ (let () (declare (not safe)) (gx#stx-e - _%hd156948157050%_)))) - (let ((_%lp-tl156953157060%_ + _%hd158235158337%_)))) + (let ((_%lp-tl158240158347%_ (let () (declare (not safe)) - (##cdr _%e156951157055%_))) - (_%lp-hd156952157058%_ + (##cdr _%e158238158342%_))) + (_%lp-hd158239158345%_ (let () (declare (not safe)) - (##car _%e156951157055%_)))) - (_%loop156950157047%_ - _%lp-tl156953157060%_ - (cons _%lp-hd156952157058%_ - _%arg156954157052%_)))) - (let ((_%arg156955157063%_ - (reverse _%arg156954157052%_))) - (_%__kont170271170272%_ - _%arg156955157063%_)))))) - (_%loop156950157047%_ - _%target156947157042%_ + (##car _%e158238158342%_)))) + (_%loop158237158334%_ + _%lp-tl158240158347%_ + (cons _%lp-hd158239158345%_ + _%arg158241158339%_)))) + (let ((_%arg158242158350%_ + (reverse _%arg158241158339%_))) + (_%__kont171558171559%_ + _%arg158242158350%_)))))) + (_%loop158237158334%_ + _%target158234158329%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%__stx170269170270%_)) - (let ((_%__splice170273170274%_ + (gx#stx-pair/null? _%__stx171556171557%_)) + (let ((_%__splice171560171561%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%__stx170269170270%_ + _%__stx171556171557%_ '0)))) - (let ((_%tl156949157044%_ + (let ((_%tl158236158331%_ (let () (declare (not safe)) - (##vector-ref _%__splice170273170274%_ '1))) - (_%target156947157042%_ + (##vector-ref _%__splice171560171561%_ '1))) + (_%target158234158329%_ (let () (declare (not safe)) - (##vector-ref _%__splice170273170274%_ '0)))) + (##vector-ref _%__splice171560171561%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156949157044%_)) - (_%__match170288170289%_ - _%__splice170273170274%_ - _%target156947157042%_ - _%tl156949157044%_) - (_%__match170294170295%_ - _%__splice170273170274%_ - _%target156947157042%_ - _%tl156949157044%_)))) - (_%__kont170279170280%_ _%__stx170269170270%_))))))) + (gx#stx-null? _%tl158236158331%_)) + (_%__match171575171576%_ + _%__splice171560171561%_ + _%target158234158329%_ + _%tl158236158331%_) + (_%__match171581171582%_ + _%__splice171560171561%_ + _%target158234158329%_ + _%tl158236158331%_)))) + (_%__kont171566171567%_ _%__stx171556171557%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp156866%_ - _%rest156891%_ - (cons _%id156938%_ - _%ids156869%_) - (cons _%impl156940%_ - _%impls156870%_) - (cons _%clause157087%_ - _%clauses156871%_)))) - _%tl156900156915%_ - _%hd156899156913%_))) - (_%g156894156905%_ _%g156895156908%_))))) - (_%g156893157090%_ _%clause156892%_)))))) - (if (pair? _%rest156872156880%_) - (let ((_%hd156877157096%_ + (_%lp158153%_ + _%rest158178%_ + (cons _%id158225%_ + _%ids158156%_) + (cons _%impl158227%_ + _%impls158157%_) + (cons _%clause158374%_ + _%clauses158158%_)))) + _%tl158187158202%_ + _%hd158186158200%_))) + (_%g158181158192%_ _%g158182158195%_))))) + (_%g158180158377%_ _%clause158179%_)))))) + (if (pair? _%rest158159158167%_) + (let ((_%hd158164158383%_ (let () (declare (not safe)) - (##car _%rest156872156880%_))) - (_%tl156878157098%_ + (##car _%rest158159158167%_))) + (_%tl158165158385%_ (let () (declare (not safe)) - (##cdr _%rest156872156880%_)))) - (let* ((_%clause157101%_ _%hd156877157096%_) - (_%rest157103%_ _%tl156878157098%_)) - (_%K156876157093%_ _%rest157103%_ _%clause157101%_))) - (_%else156874156888%_)))))) + (##cdr _%rest158159158167%_)))) + (let* ((_%clause158388%_ _%hd158164158383%_) + (_%rest158390%_ _%tl158165158385%_)) + (_%K158163158380%_ _%rest158390%_ _%clause158388%_))) + (_%else158161158175%_)))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_%stx157108%_ _%id157109%_ _%clauses157110%_) - (let ((_%gensym?157112%_ '#f)) + (lambda (_%stx158395%_ _%id158396%_ _%clauses158397%_) + (let ((_%gensym?158399%_ '#f)) (gxc#lift-case-lambda-clauses__% - _%stx157108%_ - _%id157109%_ - _%clauses157110%_ - _%gensym?157112%_)))) + _%stx158395%_ + _%id158396%_ + _%clauses158397%_ + _%gensym?158399%_)))) (define gxc#lift-case-lambda-clauses - (lambda _g171100_ - (let ((_g171099_ (let () (declare (not safe)) (##length _g171100_)))) - (cond ((let () (declare (not safe)) (##fx= _g171099_ 3)) - (apply gxc#lift-case-lambda-clauses__0 _g171100_)) - ((let () (declare (not safe)) (##fx= _g171099_ 4)) - (apply gxc#lift-case-lambda-clauses__% _g171100_)) + (lambda _g172387_ + (let ((_g172386_ (let () (declare (not safe)) (##length _g172387_)))) + (cond ((let () (declare (not safe)) (##fx= _g172386_ 3)) + (apply gxc#lift-case-lambda-clauses__0 _g172387_)) + ((let () (declare (not safe)) (##fx= _g172386_ 4)) + (apply gxc#lift-case-lambda-clauses__% _g172387_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g171100_)))))) + _g172387_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_%self156133%_ _%stx156134%_) - (letrec ((_%case-lambda-clause-def156136%_ - (lambda (_%id156857%_ _%impl156858%_) - (let ((__tmp171101 + (lambda (_%self157420%_ _%stx157421%_) + (letrec ((_%case-lambda-clause-def157423%_ + (lambda (_%id158144%_ _%impl158145%_) + (let ((__tmp172388 (cons '%#define-values - (cons (cons _%id156857%_ '()) + (cons (cons _%id158144%_ '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self156133%_ - _%impl156858%_)) + _%self157420%_ + _%impl158145%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171101 _%stx156134%_)))) - (_%opt-lambda-dispatch-name156137%_ - (lambda (_%id156853%_) - (if (uninterned-symbol? _%id156853%_) - (let ((_%str156855%_ (symbol->string _%id156853%_))) + (gxc#xform-wrap-source __tmp172388 _%stx157421%_)))) + (_%opt-lambda-dispatch-name157424%_ + (lambda (_%id158140%_) + (if (uninterned-symbol? _%id158140%_) + (let ((_%str158142%_ (symbol->string _%id158140%_))) (if (let () (declare (not safe)) - (##string-prefix? '"opt-lambda" _%str156855%_)) + (##string-prefix? '"opt-lambda" _%str158142%_)) '"%" - _%id156853%_)) - _%id156853%_))) - (_%kw-lambda-dispatch-name156138%_ - (lambda (_%id156848%_ _%name156849%_) - (if (uninterned-symbol? _%id156848%_) - (let ((_%str156851%_ (symbol->string _%id156848%_))) + _%id158140%_)) + _%id158140%_))) + (_%kw-lambda-dispatch-name157425%_ + (lambda (_%id158135%_ _%name158136%_) + (if (uninterned-symbol? _%id158135%_) + (let ((_%str158138%_ (symbol->string _%id158135%_))) (if (let () (declare (not safe)) - (##string-prefix? '"kw-lambda" _%str156851%_)) - _%name156849%_ - _%id156848%_)) - _%id156848%_)))) - (let* ((_%__stx170317170318%_ _%stx156134%_) - (_%g156143156202%_ + (##string-prefix? '"kw-lambda" _%str158138%_)) + _%name158136%_ + _%id158135%_)) + _%id158135%_)))) + (let* ((_%__stx171604171605%_ _%stx157421%_) + (_%g157430157489%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170317170318%_))))) - (let ((_%__kont170319170320%_ - (lambda (_%L156756%_ _%L156757%_) - (let* ((_%__stx170297170298%_ _%L156756%_) - (_%g156774156788%_ + _%__stx171604171605%_))))) + (let ((_%__kont171606171607%_ + (lambda (_%L158043%_ _%L158044%_) + (let* ((_%__stx171584171585%_ _%L158043%_) + (_%g158061158075%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170297170298%_))))) - (let ((_%__kont170299170300%_ - (lambda (_%L156833%_) _%stx156134%_)) - (_%__kont170301170302%_ - (lambda (_%L156801%_) - (let ((_g171102_ + _%__stx171584171585%_))))) + (let ((_%__kont171586171587%_ + (lambda (_%L158120%_) _%stx157421%_)) + (_%__kont171588171589%_ + (lambda (_%L158088%_) + (let ((_g172389_ (gxc#lift-case-lambda-clauses__0 - _%stx156134%_ - _%L156757%_ - _%L156801%_))) + _%stx157421%_ + _%L158044%_ + _%L158088%_))) (begin - (let ((_g171103_ + (let ((_g172390_ (let () (declare (not safe)) - (if (##values? _g171102_) - (##vector-length _g171102_) + (if (##values? _g172389_) + (##values-length _g172389_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171103_ 3))) + (##fx= _g172390_ 3))) (error "Context expects 3 values" - _g171103_))) - (let ((_%ids156811%_ + _g172390_))) + (let ((_%ids158098%_ (let () (declare (not safe)) - (##vector-ref _g171102_ 0))) - (_%impls156812%_ + (##values-ref _g172389_ 0))) + (_%impls158099%_ (let () (declare (not safe)) - (##vector-ref _g171102_ 1))) - (_%clauses156813%_ + (##values-ref _g172389_ 1))) + (_%clauses158100%_ (let () (declare (not safe)) - (##vector-ref _g171102_ 2)))) - (let* ((_%_156815%_ + (##values-ref _g172389_ 2)))) + (let* ((_%_158102%_ (for-each gx#core-bind-runtime! - _%ids156811%_)) - (_%defs156817%_ - (map _%case-lambda-clause-def156136%_ - _%ids156811%_ - _%impls156812%_))) - (let ((__tmp171105 + _%ids158098%_)) + (_%defs158104%_ + (map _%case-lambda-clause-def157423%_ + _%ids158098%_ + _%impls158099%_))) + (let ((__tmp172392 (let () (declare (not safe)) (gxc#identifier-symbol - _%L156757%_))) - (__tmp171104 + _%L158044%_))) + (__tmp172391 (map gxc#identifier-symbol - _%ids156811%_))) + _%ids158098%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp171105 + __tmp172392 '" => " - __tmp171104)) - (let ((__tmp171106 + __tmp172391)) + (let ((__tmp172393 (cons '%#begin - (let ((__tmp171107 - (cons (let ((__tmp171108 + (let ((__tmp172394 + (cons (let ((__tmp172395 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#define-values - (cons (cons _%L156757%_ '()) - (cons (let ((__tmp171110 + (cons (cons _%L158044%_ '()) + (cons (let ((__tmp172397 (cons '%#case-lambda - _%clauses156813%_)) - (__tmp171109 + _%clauses158100%_)) + (__tmp172396 (let () (declare (not safe)) @@ -20457,1128 +20457,1128 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171110 - __tmp171109)) + __tmp172397 + __tmp172396)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171108 _%stx156134%_)) + (gxc#xform-wrap-source __tmp172395 _%stx157421%_)) '()))) (declare (not safe)) - (__foldr1 cons __tmp171107 _%defs156817%_))))) + (__foldr1 cons __tmp172394 _%defs158104%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171106 - _%stx156134%_))))))))) - (let ((_%__match170308170309%_ - (lambda (_%e156777156825%_ - _%hd156778156828%_ - _%tl156779156830%_) - (let ((_%L156833%_ _%tl156779156830%_)) + __tmp172393 + _%stx157421%_))))))))) + (let ((_%__match171595171596%_ + (lambda (_%e158064158112%_ + _%hd158065158115%_ + _%tl158066158117%_) + (let ((_%L158120%_ _%tl158066158117%_)) (if (let () (declare (not safe)) (__andmap1 gxc#dispatch-lambda-form? - _%L156833%_)) - (_%__kont170299170300%_ _%L156833%_) - (_%__kont170301170302%_ - _%tl156779156830%_)))))) + _%L158120%_)) + (_%__kont171586171587%_ _%L158120%_) + (_%__kont171588171589%_ + _%tl158066158117%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170297170298%_)) - (let ((_%e156777156825%_ + (gx#stx-pair? _%__stx171584171585%_)) + (let ((_%e158064158112%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170297170298%_)))) - (let ((_%tl156779156830%_ + (gx#stx-e _%__stx171584171585%_)))) + (let ((_%tl158066158117%_ (let () (declare (not safe)) - (##cdr _%e156777156825%_))) - (_%hd156778156828%_ + (##cdr _%e158064158112%_))) + (_%hd158065158115%_ (let () (declare (not safe)) - (##car _%e156777156825%_)))) - (_%__match170308170309%_ - _%e156777156825%_ - _%hd156778156828%_ - _%tl156779156830%_))) + (##car _%e158064158112%_)))) + (_%__match171595171596%_ + _%e158064158112%_ + _%hd158065158115%_ + _%tl158066158117%_))) (let () (declare (not safe)) - (_%g156774156788%_)))))))) - (_%__kont170321170322%_ - (lambda (_%L156573%_ _%L156574%_) - (let* ((_%g156590156620%_ - (lambda (_%g156591156617%_) + (_%g158061158075%_)))))))) + (_%__kont171608171609%_ + (lambda (_%L157860%_ _%L157861%_) + (let* ((_%g157877157907%_ + (lambda (_%g157878157904%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156591156617%_)))) - (_%g156589156716%_ - (lambda (_%g156591156623%_) + _%g157878157904%_)))) + (_%g157876158003%_ + (lambda (_%g157878157910%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g156591156623%_)) - (let ((_%e156595156625%_ + (gx#stx-pair? _%g157878157910%_)) + (let ((_%e157882157912%_ (let () (declare (not safe)) - (gx#stx-e _%g156591156623%_)))) - (let ((_%hd156596156628%_ + (gx#stx-e _%g157878157910%_)))) + (let ((_%hd157883157915%_ (let () (declare (not safe)) - (##car _%e156595156625%_))) - (_%tl156597156630%_ + (##car _%e157882157912%_))) + (_%tl157884157917%_ (let () (declare (not safe)) - (##cdr _%e156595156625%_)))) + (##cdr _%e157882157912%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156597156630%_)) - (let ((_%e156598156633%_ + (gx#stx-pair? _%tl157884157917%_)) + (let ((_%e157885157920%_ (let () (declare (not safe)) (gx#stx-e - _%tl156597156630%_)))) - (let ((_%hd156599156636%_ + _%tl157884157917%_)))) + (let ((_%hd157886157923%_ (let () (declare (not safe)) - (##car _%e156598156633%_))) - (_%tl156600156638%_ + (##car _%e157885157920%_))) + (_%tl157887157925%_ (let () (declare (not safe)) - (##cdr _%e156598156633%_)))) + (##cdr _%e157885157920%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156599156636%_)) - (let ((_%e156601156641%_ + _%hd157886157923%_)) + (let ((_%e157888157928%_ (let () (declare (not safe)) (gx#stx-e - _%hd156599156636%_)))) - (let ((_%hd156602156644%_ + _%hd157886157923%_)))) + (let ((_%hd157889157931%_ (let () (declare (not safe)) - (##car _%e156601156641%_))) - (_%tl156603156646%_ + (##car _%e157888157928%_))) + (_%tl157890157933%_ (let () (declare (not safe)) - (##cdr _%e156601156641%_)))) + (##cdr _%e157888157928%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156602156644%_)) - (let ((_%e156604156649%_ + _%hd157889157931%_)) + (let ((_%e157891157936%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd156602156644%_)))) - (let ((_%hd156605156652%_ + (gx#stx-e _%hd157889157931%_)))) + (let ((_%hd157892157939%_ (let () (declare (not safe)) - (##car _%e156604156649%_))) - (_%tl156606156654%_ + (##car _%e157891157936%_))) + (_%tl157893157941%_ (let () (declare (not safe)) - (##cdr _%e156604156649%_)))) + (##cdr _%e157891157936%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156605156652%_)) - (let ((_%e156607156657%_ + (gx#stx-pair? _%hd157892157939%_)) + (let ((_%e157894157944%_ (let () (declare (not safe)) - (gx#stx-e _%hd156605156652%_)))) - (let ((_%hd156608156660%_ + (gx#stx-e _%hd157892157939%_)))) + (let ((_%hd157895157947%_ (let () (declare (not safe)) - (##car _%e156607156657%_))) - (_%tl156609156662%_ + (##car _%e157894157944%_))) + (_%tl157896157949%_ (let () (declare (not safe)) - (##cdr _%e156607156657%_)))) + (##cdr _%e157894157944%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156609156662%_)) + (gx#stx-null? _%tl157896157949%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156606156654%_)) - (let ((_%e156610156665%_ + (gx#stx-pair? _%tl157893157941%_)) + (let ((_%e157897157952%_ (let () (declare (not safe)) (gx#stx-e - _%tl156606156654%_)))) - (let ((_%hd156611156668%_ + _%tl157893157941%_)))) + (let ((_%hd157898157955%_ (let () (declare (not safe)) - (##car _%e156610156665%_))) - (_%tl156612156670%_ + (##car _%e157897157952%_))) + (_%tl157899157957%_ (let () (declare (not safe)) - (##cdr _%e156610156665%_)))) + (##cdr _%e157897157952%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156612156670%_)) + _%tl157899157957%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156603156646%_)) + _%tl157890157933%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156600156638%_)) - (let ((_%e156613156673%_ + _%tl157887157925%_)) + (let ((_%e157900157960%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl156600156638%_)))) - (let ((_%hd156614156676%_ + (gx#stx-e _%tl157887157925%_)))) + (let ((_%hd157901157963%_ (let () (declare (not safe)) - (##car _%e156613156673%_))) - (_%tl156615156678%_ + (##car _%e157900157960%_))) + (_%tl157902157965%_ (let () (declare (not safe)) - (##cdr _%e156613156673%_)))) + (##cdr _%e157900157960%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156615156678%_)) - ((lambda (_%L156681%_ _%L156682%_ _%L156683%_) - (let* ((_%lambda-id156707%_ - (let ((__tmp171112 + (gx#stx-null? _%tl157902157965%_)) + ((lambda (_%L157968%_ _%L157969%_ _%L157970%_) + (let* ((_%lambda-id157994%_ + (let ((__tmp172399 (let () (declare (not safe)) - (gx#stx-e _%L156574%_))) - (__tmp171111 - (_%opt-lambda-dispatch-name156137%_ + (gx#stx-e _%L157861%_))) + (__tmp172398 + (_%opt-lambda-dispatch-name157424%_ (let () (declare (not safe)) - (gx#stx-e _%L156683%_))))) + (gx#stx-e _%L157970%_))))) (declare (not safe)) (make-symbol__1 - __tmp171112 + __tmp172399 '"__" - __tmp171111))) - (_%lambda-id156709%_ - (let ((__tmp171113 + __tmp172398))) + (_%lambda-id157996%_ + (let ((__tmp172400 (let () (declare (not safe)) - (gx#stx-source _%stx156134%_)))) + (gx#stx-source _%stx157421%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%lambda-id156707%_ - __tmp171113))) - (_%_156711%_ + _%lambda-id157994%_ + __tmp172400))) + (_%_157998%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%lambda-id156709%_))) - (_%new-case-lambda-expr156713%_ + _%lambda-id157996%_))) + (_%new-case-lambda-expr158000%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156683%_ - _%lambda-id156709%_ - _%L156681%_)))) - (let ((__tmp171115 + _%L157970%_ + _%lambda-id157996%_ + _%L157968%_)))) + (let ((__tmp172402 (let () (declare (not safe)) - (gxc#identifier-symbol _%L156574%_))) - (__tmp171114 + (gxc#identifier-symbol _%L157861%_))) + (__tmp172401 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id156709%_)))) + _%lambda-id157996%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp171115 + __tmp172402 '" => " - __tmp171114)) - (let ((__tmp171116 + __tmp172401)) + (let ((__tmp172403 (cons '%#begin - (cons (let ((__tmp171117 + (cons (let ((__tmp172404 (cons '%#define-values - (cons (cons _%lambda-id156709%_ + (cons (cons _%lambda-id157996%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self156133%_ - _%L156682%_)) + _%self157420%_ + _%L157969%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171117 - _%stx156134%_)) + __tmp172404 + _%stx157421%_)) (cons (gxc#lift-top-lambda-define-values% - _%self156133%_ - (let ((__tmp171118 + _%self157420%_ + (let ((__tmp172405 (cons '%#define-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L156574%_ '()) - (cons _%new-case-lambda-expr156713%_ '()))))) + (cons (cons _%L157861%_ '()) + (cons _%new-case-lambda-expr158000%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171118 _%stx156134%_))) + (gxc#xform-wrap-source __tmp172405 _%stx157421%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171116 - _%stx156134%_)))) - _%hd156614156676%_ - _%hd156611156668%_ - _%hd156608156660%_) - (_%g156590156620%_ _%g156591156623%_)))) - (_%g156590156620%_ _%g156591156623%_)) + __tmp172403 + _%stx157421%_)))) + _%hd157901157963%_ + _%hd157898157955%_ + _%hd157895157947%_) + (_%g157877157907%_ _%g157878157910%_)))) + (_%g157877157907%_ _%g157878157910%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156590156620%_ - _%g156591156623%_)) - (_%g156590156620%_ - _%g156591156623%_)))) - (_%g156590156620%_ _%g156591156623%_)) - (_%g156590156620%_ _%g156591156623%_)))) - (_%g156590156620%_ _%g156591156623%_)))) - (_%g156590156620%_ _%g156591156623%_)))) + (_%g157877157907%_ + _%g157878157910%_)) + (_%g157877157907%_ + _%g157878157910%_)))) + (_%g157877157907%_ _%g157878157910%_)) + (_%g157877157907%_ _%g157878157910%_)))) + (_%g157877157907%_ _%g157878157910%_)))) + (_%g157877157907%_ _%g157878157910%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156590156620%_ - _%g156591156623%_)))) - (_%g156590156620%_ - _%g156591156623%_)))) - (_%g156590156620%_ _%g156591156623%_))))) - (_%g156589156716%_ _%L156573%_)))) - (_%__kont170323170324%_ - (lambda (_%L156285%_ _%L156286%_) - (let* ((_%g156302156355%_ - (lambda (_%g156303156352%_) + (_%g157877157907%_ + _%g157878157910%_)))) + (_%g157877157907%_ + _%g157878157910%_)))) + (_%g157877157907%_ _%g157878157910%_))))) + (_%g157876158003%_ _%L157860%_)))) + (_%__kont171610171611%_ + (lambda (_%L157572%_ _%L157573%_) + (let* ((_%g157589157642%_ + (lambda (_%g157590157639%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156303156352%_)))) - (_%g156301156533%_ - (lambda (_%g156303156358%_) + _%g157590157639%_)))) + (_%g157588157820%_ + (lambda (_%g157590157645%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g156303156358%_)) - (let ((_%e156309156360%_ + (gx#stx-pair? _%g157590157645%_)) + (let ((_%e157596157647%_ (let () (declare (not safe)) - (gx#stx-e _%g156303156358%_)))) - (let ((_%hd156310156363%_ + (gx#stx-e _%g157590157645%_)))) + (let ((_%hd157597157650%_ (let () (declare (not safe)) - (##car _%e156309156360%_))) - (_%tl156311156365%_ + (##car _%e157596157647%_))) + (_%tl157598157652%_ (let () (declare (not safe)) - (##cdr _%e156309156360%_)))) + (##cdr _%e157596157647%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156311156365%_)) - (let ((_%e156312156368%_ + (gx#stx-pair? _%tl157598157652%_)) + (let ((_%e157599157655%_ (let () (declare (not safe)) (gx#stx-e - _%tl156311156365%_)))) - (let ((_%hd156313156371%_ + _%tl157598157652%_)))) + (let ((_%hd157600157658%_ (let () (declare (not safe)) - (##car _%e156312156368%_))) - (_%tl156314156373%_ + (##car _%e157599157655%_))) + (_%tl157601157660%_ (let () (declare (not safe)) - (##cdr _%e156312156368%_)))) + (##cdr _%e157599157655%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156313156371%_)) - (let ((_%e156315156376%_ + _%hd157600157658%_)) + (let ((_%e157602157663%_ (let () (declare (not safe)) (gx#stx-e - _%hd156313156371%_)))) - (let ((_%hd156316156379%_ + _%hd157600157658%_)))) + (let ((_%hd157603157666%_ (let () (declare (not safe)) - (##car _%e156315156376%_))) - (_%tl156317156381%_ + (##car _%e157602157663%_))) + (_%tl157604157668%_ (let () (declare (not safe)) - (##cdr _%e156315156376%_)))) + (##cdr _%e157602157663%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156316156379%_)) - (let ((_%e156318156384%_ + _%hd157603157666%_)) + (let ((_%e157605157671%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd156316156379%_)))) - (let ((_%hd156319156387%_ + (gx#stx-e _%hd157603157666%_)))) + (let ((_%hd157606157674%_ (let () (declare (not safe)) - (##car _%e156318156384%_))) - (_%tl156320156389%_ + (##car _%e157605157671%_))) + (_%tl157607157676%_ (let () (declare (not safe)) - (##cdr _%e156318156384%_)))) + (##cdr _%e157605157671%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156319156387%_)) - (let ((_%e156321156392%_ + (gx#stx-pair? _%hd157606157674%_)) + (let ((_%e157608157679%_ (let () (declare (not safe)) - (gx#stx-e _%hd156319156387%_)))) - (let ((_%hd156322156395%_ + (gx#stx-e _%hd157606157674%_)))) + (let ((_%hd157609157682%_ (let () (declare (not safe)) - (##car _%e156321156392%_))) - (_%tl156323156397%_ + (##car _%e157608157679%_))) + (_%tl157610157684%_ (let () (declare (not safe)) - (##cdr _%e156321156392%_)))) + (##cdr _%e157608157679%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156323156397%_)) + (gx#stx-null? _%tl157610157684%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156320156389%_)) - (let ((_%e156324156400%_ + (gx#stx-pair? _%tl157607157676%_)) + (let ((_%e157611157687%_ (let () (declare (not safe)) (gx#stx-e - _%tl156320156389%_)))) - (let ((_%hd156325156403%_ + _%tl157607157676%_)))) + (let ((_%hd157612157690%_ (let () (declare (not safe)) - (##car _%e156324156400%_))) - (_%tl156326156405%_ + (##car _%e157611157687%_))) + (_%tl157613157692%_ (let () (declare (not safe)) - (##cdr _%e156324156400%_)))) + (##cdr _%e157611157687%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156325156403%_)) - (let ((_%e156327156408%_ + _%hd157612157690%_)) + (let ((_%e157614157695%_ (let () (declare (not safe)) (gx#stx-e - _%hd156325156403%_)))) - (let ((_%hd156328156411%_ + _%hd157612157690%_)))) + (let ((_%hd157615157698%_ (let () (declare (not safe)) - (##car _%e156327156408%_))) - (_%tl156329156413%_ + (##car _%e157614157695%_))) + (_%tl157616157700%_ (let () (declare (not safe)) - (##cdr _%e156327156408%_)))) + (##cdr _%e157614157695%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156329156413%_)) - (let ((_%e156330156416%_ + _%tl157616157700%_)) + (let ((_%e157617157703%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl156329156413%_)))) - (let ((_%hd156331156419%_ + (gx#stx-e _%tl157616157700%_)))) + (let ((_%hd157618157706%_ (let () (declare (not safe)) - (##car _%e156330156416%_))) - (_%tl156332156421%_ + (##car _%e157617157703%_))) + (_%tl157619157708%_ (let () (declare (not safe)) - (##cdr _%e156330156416%_)))) + (##cdr _%e157617157703%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156331156419%_)) - (let ((_%e156333156424%_ + (gx#stx-pair? _%hd157618157706%_)) + (let ((_%e157620157711%_ (let () (declare (not safe)) - (gx#stx-e _%hd156331156419%_)))) - (let ((_%hd156334156427%_ + (gx#stx-e _%hd157618157706%_)))) + (let ((_%hd157621157714%_ (let () (declare (not safe)) - (##car _%e156333156424%_))) - (_%tl156335156429%_ + (##car _%e157620157711%_))) + (_%tl157622157716%_ (let () (declare (not safe)) - (##cdr _%e156333156424%_)))) + (##cdr _%e157620157711%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156334156427%_)) - (let ((_%e156336156432%_ + (gx#stx-pair? _%hd157621157714%_)) + (let ((_%e157623157719%_ (let () (declare (not safe)) - (gx#stx-e _%hd156334156427%_)))) - (let ((_%hd156337156435%_ + (gx#stx-e _%hd157621157714%_)))) + (let ((_%hd157624157722%_ (let () (declare (not safe)) - (##car _%e156336156432%_))) - (_%tl156338156437%_ + (##car _%e157623157719%_))) + (_%tl157625157724%_ (let () (declare (not safe)) - (##cdr _%e156336156432%_)))) + (##cdr _%e157623157719%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156337156435%_)) - (let ((_%e156339156440%_ + (gx#stx-pair? _%hd157624157722%_)) + (let ((_%e157626157727%_ (let () (declare (not safe)) (gx#stx-e - _%hd156337156435%_)))) - (let ((_%hd156340156443%_ + _%hd157624157722%_)))) + (let ((_%hd157627157730%_ (let () (declare (not safe)) - (##car _%e156339156440%_))) - (_%tl156341156445%_ + (##car _%e157626157727%_))) + (_%tl157628157732%_ (let () (declare (not safe)) - (##cdr _%e156339156440%_)))) + (##cdr _%e157626157727%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156341156445%_)) + _%tl157628157732%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156338156437%_)) - (let ((_%e156342156448%_ + _%tl157625157724%_)) + (let ((_%e157629157735%_ (let () (declare (not safe)) (gx#stx-e - _%tl156338156437%_)))) - (let ((_%hd156343156451%_ + _%tl157625157724%_)))) + (let ((_%hd157630157738%_ (let () (declare (not safe)) - (##car _%e156342156448%_))) - (_%tl156344156453%_ + (##car _%e157629157735%_))) + (_%tl157631157740%_ (let () (declare (not safe)) - (##cdr _%e156342156448%_)))) + (##cdr _%e157629157735%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156344156453%_)) + _%tl157631157740%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _%tl156335156429%_)) + (gx#stx-null? _%tl157622157716%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156332156421%_)) - (let ((_%e156345156456%_ + (gx#stx-pair? _%tl157619157708%_)) + (let ((_%e157632157743%_ (let () (declare (not safe)) - (gx#stx-e _%tl156332156421%_)))) - (let ((_%hd156346156459%_ + (gx#stx-e _%tl157619157708%_)))) + (let ((_%hd157633157746%_ (let () (declare (not safe)) - (##car _%e156345156456%_))) - (_%tl156347156461%_ + (##car _%e157632157743%_))) + (_%tl157634157748%_ (let () (declare (not safe)) - (##cdr _%e156345156456%_)))) + (##cdr _%e157632157743%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156347156461%_)) + (gx#stx-null? _%tl157634157748%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156326156405%_)) + (gx#stx-null? _%tl157613157692%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156317156381%_)) + (gx#stx-null? _%tl157604157668%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156314156373%_)) - (let ((_%e156348156464%_ + _%tl157601157660%_)) + (let ((_%e157635157751%_ (let () (declare (not safe)) (gx#stx-e - _%tl156314156373%_)))) - (let ((_%hd156349156467%_ + _%tl157601157660%_)))) + (let ((_%hd157636157754%_ (let () (declare (not safe)) - (##car _%e156348156464%_))) - (_%tl156350156469%_ + (##car _%e157635157751%_))) + (_%tl157637157756%_ (let () (declare (not safe)) - (##cdr _%e156348156464%_)))) + (##cdr _%e157635157751%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156350156469%_)) - ((lambda (_%L156472%_ + _%tl157637157756%_)) + ((lambda (_%L157759%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L156473%_ - _%L156474%_ - _%L156475%_ - _%L156476%_) - (let* ((_%get-kws-id156516%_ - (let ((__tmp171120 + _%L157760%_ + _%L157761%_ + _%L157762%_ + _%L157763%_) + (let* ((_%get-kws-id157803%_ + (let ((__tmp172407 (let () (declare (not safe)) - (gx#stx-e _%L156286%_))) - (__tmp171119 - (_%kw-lambda-dispatch-name156138%_ + (gx#stx-e _%L157573%_))) + (__tmp172406 + (_%kw-lambda-dispatch-name157425%_ (let () (declare (not safe)) - (gx#stx-e _%L156476%_)) + (gx#stx-e _%L157763%_)) '"@"))) (declare (not safe)) - (make-symbol__1 __tmp171120 '"__" __tmp171119))) - (_%get-kws-id156518%_ - (let ((__tmp171121 + (make-symbol__1 __tmp172407 '"__" __tmp172406))) + (_%get-kws-id157805%_ + (let ((__tmp172408 (let () (declare (not safe)) - (gx#stx-source _%stx156134%_)))) + (gx#stx-source _%stx157421%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id156516%_ - __tmp171121))) - (_%main-id156520%_ - (let ((__tmp171123 + _%get-kws-id157803%_ + __tmp172408))) + (_%main-id157807%_ + (let ((__tmp172410 (let () (declare (not safe)) - (gx#stx-e _%L156286%_))) - (__tmp171122 - (_%kw-lambda-dispatch-name156138%_ + (gx#stx-e _%L157573%_))) + (__tmp172409 + (_%kw-lambda-dispatch-name157425%_ (let () (declare (not safe)) - (gx#stx-e _%L156475%_)) + (gx#stx-e _%L157762%_)) '"%"))) (declare (not safe)) - (make-symbol__1 __tmp171123 '"__" __tmp171122))) - (_%main-id156522%_ - (let ((__tmp171124 + (make-symbol__1 __tmp172410 '"__" __tmp172409))) + (_%main-id157809%_ + (let ((__tmp172411 (let () (declare (not safe)) - (gx#stx-source _%stx156134%_)))) + (gx#stx-source _%stx157421%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id156520%_ - __tmp171124))) - (_%_156524%_ + _%main-id157807%_ + __tmp172411))) + (_%_157811%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%get-kws-id156518%_))) - (_%_156526%_ + (gx#core-bind-runtime!__0 _%get-kws-id157805%_))) + (_%_157813%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%main-id156522%_))) - (_%new-kw-dispatch156528%_ + (gx#core-bind-runtime!__0 _%main-id157809%_))) + (_%new-kw-dispatch157815%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156476%_ - _%get-kws-id156518%_ - _%L156472%_))) - (_%new-get-kws156530%_ + _%L157763%_ + _%get-kws-id157805%_ + _%L157759%_))) + (_%new-get-kws157817%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156475%_ - _%main-id156522%_ - _%L156473%_)))) - (let ((__tmp171127 + _%L157762%_ + _%main-id157809%_ + _%L157760%_)))) + (let ((__tmp172414 (let () (declare (not safe)) - (gxc#identifier-symbol _%L156286%_))) - (__tmp171126 + (gxc#identifier-symbol _%L157573%_))) + (__tmp172413 (let () (declare (not safe)) - (gxc#identifier-symbol _%get-kws-id156518%_))) - (__tmp171125 + (gxc#identifier-symbol _%get-kws-id157805%_))) + (__tmp172412 (let () (declare (not safe)) - (gxc#identifier-symbol _%main-id156522%_)))) + (gxc#identifier-symbol _%main-id157809%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp171127 + __tmp172414 '" => " - __tmp171126 + __tmp172413 '" => " - __tmp171125)) - (let ((__tmp171128 + __tmp172412)) + (let ((__tmp172415 (cons '%#begin (cons (gxc#lift-top-lambda-define-values% - _%self156133%_ - (let ((__tmp171129 + _%self157420%_ + (let ((__tmp172416 (cons '%#define-values - (cons (cons _%main-id156522%_ + (cons (cons _%main-id157809%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L156474%_ '()))))) + (cons _%L157761%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171129 - _%stx156134%_))) - (cons (let ((__tmp171130 + __tmp172416 + _%stx157421%_))) + (cons (let ((__tmp172417 (cons '%#define-values - (cons (cons _%get-kws-id156518%_ + (cons (cons _%get-kws-id157805%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-get-kws156530%_ '()))))) + (cons _%new-get-kws157817%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171130 - _%stx156134%_)) - (cons (let ((__tmp171131 + __tmp172417 + _%stx157421%_)) + (cons (let ((__tmp172418 (cons '%#define-values - (cons (cons _%L156286%_ + (cons (cons _%L157573%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-kw-dispatch156528%_ '()))))) + (cons _%new-kw-dispatch157815%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171131 - _%stx156134%_)) + __tmp172418 + _%stx157421%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171128 _%stx156134%_)))) - _%hd156349156467%_ - _%hd156346156459%_ - _%hd156343156451%_ - _%hd156340156443%_ - _%hd156322156395%_) - (_%g156302156355%_ _%g156303156358%_)))) + (gxc#xform-wrap-source __tmp172415 _%stx157421%_)))) + _%hd157636157754%_ + _%hd157633157746%_ + _%hd157630157738%_ + _%hd157627157730%_ + _%hd157609157682%_) + (_%g157589157642%_ _%g157590157645%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156302156355%_ - _%g156303156358%_)) - (_%g156302156355%_ - _%g156303156358%_)) - (_%g156302156355%_ _%g156303156358%_)) - (_%g156302156355%_ _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_)) - (_%g156302156355%_ _%g156303156358%_)) - (_%g156302156355%_ _%g156303156358%_)))) + (_%g157589157642%_ + _%g157590157645%_)) + (_%g157589157642%_ + _%g157590157645%_)) + (_%g157589157642%_ _%g157590157645%_)) + (_%g157589157642%_ _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_)) + (_%g157589157642%_ _%g157590157645%_)) + (_%g157589157642%_ _%g157590157645%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156302156355%_ - _%g156303156358%_)) - (_%g156302156355%_ - _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_)))) + (_%g157589157642%_ + _%g157590157645%_)) + (_%g157589157642%_ + _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156302156355%_ - _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_)) - (_%g156302156355%_ _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_)))) + (_%g157589157642%_ + _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_)) + (_%g157589157642%_ _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156302156355%_ - _%g156303156358%_)))) - (_%g156302156355%_ - _%g156303156358%_)))) - (_%g156302156355%_ _%g156303156358%_))))) - (_%g156301156533%_ _%L156285%_)))) - (_%__kont170325170326%_ - (lambda (_%L156231%_ _%L156232%_) - (let ((__tmp171132 + (_%g157589157642%_ + _%g157590157645%_)))) + (_%g157589157642%_ + _%g157590157645%_)))) + (_%g157589157642%_ _%g157590157645%_))))) + (_%g157588157820%_ _%L157572%_)))) + (_%__kont171612171613%_ + (lambda (_%L157518%_ _%L157519%_) + (let ((__tmp172419 (cons '%#define-values - (cons _%L156232%_ + (cons _%L157519%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self156133%_ - _%L156231%_)) + _%self157420%_ + _%L157518%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171132 _%stx156134%_))))) - (let* ((_%__match170410170411%_ - (lambda (_%e156175156253%_ - _%hd156176156256%_ - _%tl156177156258%_ - _%e156178156261%_ - _%hd156179156264%_ - _%tl156180156266%_ - _%e156181156269%_ - _%hd156182156272%_ - _%tl156183156274%_ - _%e156184156277%_ - _%hd156185156280%_ - _%tl156186156282%_) - (let ((_%L156285%_ _%hd156185156280%_) - (_%L156286%_ _%hd156182156272%_)) + (gxc#xform-wrap-source __tmp172419 _%stx157421%_))))) + (let* ((_%__match171697171698%_ + (lambda (_%e157462157540%_ + _%hd157463157543%_ + _%tl157464157545%_ + _%e157465157548%_ + _%hd157466157551%_ + _%tl157467157553%_ + _%e157468157556%_ + _%hd157469157559%_ + _%tl157470157561%_ + _%e157471157564%_ + _%hd157472157567%_ + _%tl157473157569%_) + (let ((_%L157572%_ _%hd157472157567%_) + (_%L157573%_ _%hd157469157559%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L156286%_)) - (gxc#kw-lambda-expr? _%L156285%_)) - (_%__kont170323170324%_ _%L156285%_ _%L156286%_) - (_%__kont170325170326%_ - _%hd156185156280%_ - _%hd156179156264%_))))) - (_%__match170382170383%_ - (lambda (_%e156161156541%_ - _%hd156162156544%_ - _%tl156163156546%_ - _%e156164156549%_ - _%hd156165156552%_ - _%tl156166156554%_ - _%e156167156557%_ - _%hd156168156560%_ - _%tl156169156562%_ - _%e156170156565%_ - _%hd156171156568%_ - _%tl156172156570%_) - (let ((_%L156573%_ _%hd156171156568%_) - (_%L156574%_ _%hd156168156560%_)) + (gx#identifier? _%L157573%_)) + (gxc#kw-lambda-expr? _%L157572%_)) + (_%__kont171610171611%_ _%L157572%_ _%L157573%_) + (_%__kont171612171613%_ + _%hd157472157567%_ + _%hd157466157551%_))))) + (_%__match171669171670%_ + (lambda (_%e157448157828%_ + _%hd157449157831%_ + _%tl157450157833%_ + _%e157451157836%_ + _%hd157452157839%_ + _%tl157453157841%_ + _%e157454157844%_ + _%hd157455157847%_ + _%tl157456157849%_ + _%e157457157852%_ + _%hd157458157855%_ + _%tl157459157857%_) + (let ((_%L157860%_ _%hd157458157855%_) + (_%L157861%_ _%hd157455157847%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L156574%_)) - (gxc#opt-lambda-expr? _%L156573%_)) - (_%__kont170321170322%_ _%L156573%_ _%L156574%_) - (_%__match170410170411%_ - _%e156161156541%_ - _%hd156162156544%_ - _%tl156163156546%_ - _%e156164156549%_ - _%hd156165156552%_ - _%tl156166156554%_ - _%e156167156557%_ - _%hd156168156560%_ - _%tl156169156562%_ - _%e156170156565%_ - _%hd156171156568%_ - _%tl156172156570%_))))) - (_%__match170354170355%_ - (lambda (_%e156147156724%_ - _%hd156148156727%_ - _%tl156149156729%_ - _%e156150156732%_ - _%hd156151156735%_ - _%tl156152156737%_ - _%e156153156740%_ - _%hd156154156743%_ - _%tl156155156745%_ - _%e156156156748%_ - _%hd156157156751%_ - _%tl156158156753%_) - (let ((_%L156756%_ _%hd156157156751%_) - (_%L156757%_ _%hd156154156743%_)) + (gx#identifier? _%L157861%_)) + (gxc#opt-lambda-expr? _%L157860%_)) + (_%__kont171608171609%_ _%L157860%_ _%L157861%_) + (_%__match171697171698%_ + _%e157448157828%_ + _%hd157449157831%_ + _%tl157450157833%_ + _%e157451157836%_ + _%hd157452157839%_ + _%tl157453157841%_ + _%e157454157844%_ + _%hd157455157847%_ + _%tl157456157849%_ + _%e157457157852%_ + _%hd157458157855%_ + _%tl157459157857%_))))) + (_%__match171641171642%_ + (lambda (_%e157434158011%_ + _%hd157435158014%_ + _%tl157436158016%_ + _%e157437158019%_ + _%hd157438158022%_ + _%tl157439158024%_ + _%e157440158027%_ + _%hd157441158030%_ + _%tl157442158032%_ + _%e157443158035%_ + _%hd157444158038%_ + _%tl157445158040%_) + (let ((_%L158043%_ _%hd157444158038%_) + (_%L158044%_ _%hd157441158030%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L156757%_)) - (gxc#case-lambda-expr? _%L156756%_)) - (_%__kont170319170320%_ _%L156756%_ _%L156757%_) - (_%__match170382170383%_ - _%e156147156724%_ - _%hd156148156727%_ - _%tl156149156729%_ - _%e156150156732%_ - _%hd156151156735%_ - _%tl156152156737%_ - _%e156153156740%_ - _%hd156154156743%_ - _%tl156155156745%_ - _%e156156156748%_ - _%hd156157156751%_ - _%tl156158156753%_)))))) + (gx#identifier? _%L158044%_)) + (gxc#case-lambda-expr? _%L158043%_)) + (_%__kont171606171607%_ _%L158043%_ _%L158044%_) + (_%__match171669171670%_ + _%e157434158011%_ + _%hd157435158014%_ + _%tl157436158016%_ + _%e157437158019%_ + _%hd157438158022%_ + _%tl157439158024%_ + _%e157440158027%_ + _%hd157441158030%_ + _%tl157442158032%_ + _%e157443158035%_ + _%hd157444158038%_ + _%tl157445158040%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170317170318%_)) - (let ((_%e156147156724%_ + (gx#stx-pair? _%__stx171604171605%_)) + (let ((_%e157434158011%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170317170318%_)))) - (let ((_%tl156149156729%_ + (gx#stx-e _%__stx171604171605%_)))) + (let ((_%tl157436158016%_ (let () (declare (not safe)) - (##cdr _%e156147156724%_))) - (_%hd156148156727%_ + (##cdr _%e157434158011%_))) + (_%hd157435158014%_ (let () (declare (not safe)) - (##car _%e156147156724%_)))) + (##car _%e157434158011%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156149156729%_)) - (let ((_%e156150156732%_ + (gx#stx-pair? _%tl157436158016%_)) + (let ((_%e157437158019%_ (let () (declare (not safe)) - (gx#stx-e _%tl156149156729%_)))) - (let ((_%tl156152156737%_ + (gx#stx-e _%tl157436158016%_)))) + (let ((_%tl157439158024%_ (let () (declare (not safe)) - (##cdr _%e156150156732%_))) - (_%hd156151156735%_ + (##cdr _%e157437158019%_))) + (_%hd157438158022%_ (let () (declare (not safe)) - (##car _%e156150156732%_)))) + (##car _%e157437158019%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156151156735%_)) - (let ((_%e156153156740%_ + (gx#stx-pair? _%hd157438158022%_)) + (let ((_%e157440158027%_ (let () (declare (not safe)) - (gx#stx-e _%hd156151156735%_)))) - (let ((_%tl156155156745%_ + (gx#stx-e _%hd157438158022%_)))) + (let ((_%tl157442158032%_ (let () (declare (not safe)) - (##cdr _%e156153156740%_))) - (_%hd156154156743%_ + (##cdr _%e157440158027%_))) + (_%hd157441158030%_ (let () (declare (not safe)) - (##car _%e156153156740%_)))) + (##car _%e157440158027%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156155156745%_)) + _%tl157442158032%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156152156737%_)) - (let ((_%e156156156748%_ + _%tl157439158024%_)) + (let ((_%e157443158035%_ (let () (declare (not safe)) (gx#stx-e - _%tl156152156737%_)))) - (let ((_%tl156158156753%_ + _%tl157439158024%_)))) + (let ((_%tl157445158040%_ (let () (declare (not safe)) - (##cdr _%e156156156748%_))) - (_%hd156157156751%_ + (##cdr _%e157443158035%_))) + (_%hd157444158038%_ (let () (declare (not safe)) - (##car _%e156156156748%_)))) + (##car _%e157443158035%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156158156753%_)) - (_%__match170354170355%_ - _%e156147156724%_ - _%hd156148156727%_ - _%tl156149156729%_ - _%e156150156732%_ - _%hd156151156735%_ - _%tl156152156737%_ - _%e156153156740%_ - _%hd156154156743%_ - _%tl156155156745%_ - _%e156156156748%_ - _%hd156157156751%_ - _%tl156158156753%_) + _%tl157445158040%_)) + (_%__match171641171642%_ + _%e157434158011%_ + _%hd157435158014%_ + _%tl157436158016%_ + _%e157437158019%_ + _%hd157438158022%_ + _%tl157439158024%_ + _%e157440158027%_ + _%hd157441158030%_ + _%tl157442158032%_ + _%e157443158035%_ + _%hd157444158038%_ + _%tl157445158040%_) (let () (declare (not safe)) - (_%g156143156202%_))))) + (_%g157430157489%_))))) (let () (declare (not safe)) - (_%g156143156202%_))) + (_%g157430157489%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156152156737%_)) - (let ((_%e156195156223%_ + _%tl157439158024%_)) + (let ((_%e157482157510%_ (let () (declare (not safe)) (gx#stx-e - _%tl156152156737%_)))) - (let ((_%tl156197156228%_ + _%tl157439158024%_)))) + (let ((_%tl157484157515%_ (let () (declare (not safe)) - (##cdr _%e156195156223%_))) - (_%hd156196156226%_ + (##cdr _%e157482157510%_))) + (_%hd157483157513%_ (let () (declare (not safe)) - (##car _%e156195156223%_)))) + (##car _%e157482157510%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156197156228%_)) - (_%__kont170325170326%_ - _%hd156196156226%_ - _%hd156151156735%_) + _%tl157484157515%_)) + (_%__kont171612171613%_ + _%hd157483157513%_ + _%hd157438158022%_) (let () (declare (not safe)) - (_%g156143156202%_))))) + (_%g157430157489%_))))) (let () (declare (not safe)) - (_%g156143156202%_)))))) + (_%g157430157489%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156152156737%_)) - (let ((_%e156195156223%_ + (gx#stx-pair? _%tl157439158024%_)) + (let ((_%e157482157510%_ (let () (declare (not safe)) (gx#stx-e - _%tl156152156737%_)))) - (let ((_%tl156197156228%_ + _%tl157439158024%_)))) + (let ((_%tl157484157515%_ (let () (declare (not safe)) - (##cdr _%e156195156223%_))) - (_%hd156196156226%_ + (##cdr _%e157482157510%_))) + (_%hd157483157513%_ (let () (declare (not safe)) - (##car _%e156195156223%_)))) + (##car _%e157482157510%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156197156228%_)) - (_%__kont170325170326%_ - _%hd156196156226%_ - _%hd156151156735%_) + _%tl157484157515%_)) + (_%__kont171612171613%_ + _%hd157483157513%_ + _%hd157438158022%_) (let () (declare (not safe)) - (_%g156143156202%_))))) + (_%g157430157489%_))))) (let () (declare (not safe)) - (_%g156143156202%_)))))) + (_%g157430157489%_)))))) (let () (declare (not safe)) - (_%g156143156202%_))))) - (let () (declare (not safe)) (_%g156143156202%_))))))))) + (_%g157430157489%_))))) + (let () (declare (not safe)) (_%g157430157489%_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_%self155060%_ _%stx155061%_) - (letrec* ((_%bind-e__167796167797%_ - (lambda (_%id156117%_ _%expr156118%_ _%compile?156119%_) - (cons (cons _%id156117%_ '()) - (cons (if _%compile?156119%_ + (lambda (_%self156347%_ _%stx156348%_) + (letrec* ((_%bind-e__169083169084%_ + (lambda (_%id157404%_ _%expr157405%_ _%compile?157406%_) + (cons (cons _%id157404%_ '()) + (cons (if _%compile?157406%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self155060%_ - _%expr156118%_)) - _%expr156118%_) + _%self156347%_ + _%expr157405%_)) + _%expr157405%_) '())))) - (_%bind-e__0__167798167799%_ - (lambda (_%id156124%_ _%expr156125%_) - (let ((_%compile?156127%_ '#t)) - (_%bind-e__167796167797%_ - _%id156124%_ - _%expr156125%_ - _%compile?156127%_)))) - (_%bind-e155063%_ - (lambda _g171134_ - (let ((_g171133_ + (_%bind-e__0__169085169086%_ + (lambda (_%id157411%_ _%expr157412%_) + (let ((_%compile?157414%_ '#t)) + (_%bind-e__169083169084%_ + _%id157411%_ + _%expr157412%_ + _%compile?157414%_)))) + (_%bind-e156350%_ + (lambda _g172421_ + (let ((_g172420_ (let () (declare (not safe)) - (##length _g171134_)))) - (cond ((let () (declare (not safe)) (##fx= _g171133_ 2)) - (apply _%bind-e__0__167798167799%_ _g171134_)) - ((let () (declare (not safe)) (##fx= _g171133_ 3)) - (apply _%bind-e__167796167797%_ _g171134_)) + (##length _g172421_)))) + (cond ((let () (declare (not safe)) (##fx= _g172420_ 2)) + (apply _%bind-e__0__169085169086%_ _g172421_)) + ((let () (declare (not safe)) (##fx= _g172420_ 3)) + (apply _%bind-e__169083169084%_ _g172421_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g171134_)))))) - (_%compile-bindings155064%_ - (lambda (_%bindings155699%_) - (let _%lp155701%_ ((_%rest155703%_ _%bindings155699%_) - (_%lift1155704%_ '()) - (_%lift2155705%_ '()) - (_%bind155706%_ '())) - (let* ((_%rest155707155715%_ _%rest155703%_) - (_%else155709155723%_ + _g172421_)))))) + (_%compile-bindings156351%_ + (lambda (_%bindings156986%_) + (let _%lp156988%_ ((_%rest156990%_ _%bindings156986%_) + (_%lift1156991%_ '()) + (_%lift2156992%_ '()) + (_%bind156993%_ '())) + (let* ((_%rest156994157002%_ _%rest156990%_) + (_%else156996157010%_ (lambda () - (values (reverse _%lift1155704%_) - (reverse _%lift2155705%_) - (reverse _%bind155706%_)))) - (_%K155711156104%_ - (lambda (_%rest155726%_ _%hd155727%_) - (let* ((_%__stx170453170454%_ _%hd155727%_) - (_%g155731155767%_ + (values (reverse _%lift1156991%_) + (reverse _%lift2156992%_) + (reverse _%bind156993%_)))) + (_%K156998157391%_ + (lambda (_%rest157013%_ _%hd157014%_) + (let* ((_%__stx171740171741%_ _%hd157014%_) + (_%g157018157054%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170453170454%_))))) - (let ((_%__kont170455170456%_ - (lambda (_%L156010%_ _%L156011%_) - (let* ((_%__stx170433170434%_ - _%L156010%_) - (_%g156026156040%_ + _%__stx171740171741%_))))) + (let ((_%__kont171742171743%_ + (lambda (_%L157297%_ _%L157298%_) + (let* ((_%__stx171720171721%_ + _%L157297%_) + (_%g157313157327%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170433170434%_))))) - (let ((_%__kont170435170436%_ - (lambda (_%L156089%_) - (_%lp155701%_ - _%rest155726%_ - _%lift1155704%_ - _%lift2155705%_ - (cons (_%bind-e__167796167797%_ - _%L156011%_ - _%L156010%_ + _%__stx171720171721%_))))) + (let ((_%__kont171722171723%_ + (lambda (_%L157376%_) + (_%lp156988%_ + _%rest157013%_ + _%lift1156991%_ + _%lift2156992%_ + (cons (_%bind-e__169083169084%_ + _%L157298%_ + _%L157297%_ '#f) - _%bind155706%_)))) - (_%__kont170437170438%_ - (lambda (_%L156053%_) - (let ((_g171135_ + _%bind156993%_)))) + (_%__kont171724171725%_ + (lambda (_%L157340%_) + (let ((_g172422_ (gxc#lift-case-lambda-clauses__% - _%stx155061%_ - _%L156011%_ - _%L156053%_ + _%stx156348%_ + _%L157298%_ + _%L157340%_ '#t))) (begin - (let ((_g171136_ + (let ((_g172423_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g171135_) - (##vector-length _g171135_) + (if (##values? _g172422_) + (##values-length _g172422_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171136_ 3))) - (error "Context expects 3 values" _g171136_))) - (let ((_%ids156063%_ + (##fx= _g172423_ 3))) + (error "Context expects 3 values" _g172423_))) + (let ((_%ids157350%_ (let () (declare (not safe)) - (##vector-ref _g171135_ 0))) - (_%impls156064%_ + (##values-ref _g172422_ 0))) + (_%impls157351%_ (let () (declare (not safe)) - (##vector-ref _g171135_ 1))) - (_%clauses156065%_ + (##values-ref _g172422_ 1))) + (_%clauses157352%_ (let () (declare (not safe)) - (##vector-ref _g171135_ 2)))) - (let* ((_%_156067%_ - (for-each gx#core-bind-runtime! _%ids156063%_)) - (_%xbind156069%_ - (map _%bind-e155063%_ - _%ids156063%_ - _%impls156064%_)) - (_%expr*156071%_ - (let ((__tmp171138 - (cons '%#case-lambda _%clauses156065%_)) - (__tmp171137 + (##values-ref _g172422_ 2)))) + (let* ((_%_157354%_ + (for-each gx#core-bind-runtime! _%ids157350%_)) + (_%xbind157356%_ + (map _%bind-e156350%_ + _%ids157350%_ + _%impls157351%_)) + (_%expr*157358%_ + (let ((__tmp172425 + (cons '%#case-lambda _%clauses157352%_)) + (__tmp172424 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -21586,1408 +21586,1408 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171138 - __tmp171137))) - (_%bind*156073%_ - (_%bind-e__167796167797%_ - _%L156011%_ - _%expr*156071%_ + __tmp172425 + __tmp172424))) + (_%bind*157360%_ + (_%bind-e__169083169084%_ + _%L157298%_ + _%expr*157358%_ '#f))) - (let ((__tmp171140 + (let ((__tmp172427 (let () (declare (not safe)) - (gxc#identifier-symbol _%L156011%_))) - (__tmp171139 - (map gxc#identifier-symbol _%ids156063%_))) + (gxc#identifier-symbol _%L157298%_))) + (__tmp172426 + (map gxc#identifier-symbol _%ids157350%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp171140 + __tmp172427 '" => " - __tmp171139)) - (_%lp155701%_ - _%rest155726%_ - _%lift1155704%_ + __tmp172426)) + (_%lp156988%_ + _%rest157013%_ + _%lift1156991%_ (let () (declare (not safe)) - (__foldl1 cons _%lift2155705%_ _%xbind156069%_)) - (cons _%bind*156073%_ _%bind155706%_))))))))) + (__foldl1 cons _%lift2156992%_ _%xbind157356%_)) + (cons _%bind*157360%_ _%bind156993%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match170444170445%_ - (lambda (_%e156029156081%_ - _%hd156030156084%_ - _%tl156031156086%_) - (let ((_%L156089%_ - _%tl156031156086%_)) + (let ((_%__match171731171732%_ + (lambda (_%e157316157368%_ + _%hd157317157371%_ + _%tl157318157373%_) + (let ((_%L157376%_ + _%tl157318157373%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L156089%_)) - (_%__kont170435170436%_ _%L156089%_) - (_%__kont170437170438%_ _%tl156031156086%_)))))) + (__andmap1 gxc#dispatch-lambda-form? _%L157376%_)) + (_%__kont171722171723%_ _%L157376%_) + (_%__kont171724171725%_ _%tl157318157373%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170433170434%_)) - (let ((_%e156029156081%_ + _%__stx171720171721%_)) + (let ((_%e157316157368%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx170433170434%_)))) - (let ((_%tl156031156086%_ - (let () (declare (not safe)) (##cdr _%e156029156081%_))) - (_%hd156030156084%_ + (gx#stx-e _%__stx171720171721%_)))) + (let ((_%tl157318157373%_ + (let () (declare (not safe)) (##cdr _%e157316157368%_))) + (_%hd157317157371%_ (let () (declare (not safe)) - (##car _%e156029156081%_)))) - (_%__match170444170445%_ - _%e156029156081%_ - _%hd156030156084%_ - _%tl156031156086%_))) - (let () (declare (not safe)) (_%g156026156040%_)))))))) + (##car _%e157316157368%_)))) + (_%__match171731171732%_ + _%e157316157368%_ + _%hd157317157371%_ + _%tl157318157373%_))) + (let () (declare (not safe)) (_%g157313157327%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170457170458%_ - (lambda (_%L155837%_ _%L155838%_) - (let* ((_%g155852155882%_ - (lambda (_%g155853155879%_) + (_%__kont171744171745%_ + (lambda (_%L157124%_ _%L157125%_) + (let* ((_%g157139157169%_ + (lambda (_%g157140157166%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155853155879%_)))) - (_%g155851155978%_ - (lambda (_%g155853155885%_) + _%g157140157166%_)))) + (_%g157138157265%_ + (lambda (_%g157140157172%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g155853155885%_)) - (let ((_%e155857155887%_ + _%g157140157172%_)) + (let ((_%e157144157174%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g155853155885%_)))) - (let ((_%hd155858155890%_ + (gx#stx-e _%g157140157172%_)))) + (let ((_%hd157145157177%_ (let () (declare (not safe)) - (##car _%e155857155887%_))) - (_%tl155859155892%_ + (##car _%e157144157174%_))) + (_%tl157146157179%_ (let () (declare (not safe)) - (##cdr _%e155857155887%_)))) + (##cdr _%e157144157174%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155859155892%_)) - (let ((_%e155860155895%_ + (gx#stx-pair? _%tl157146157179%_)) + (let ((_%e157147157182%_ (let () (declare (not safe)) - (gx#stx-e _%tl155859155892%_)))) - (let ((_%hd155861155898%_ + (gx#stx-e _%tl157146157179%_)))) + (let ((_%hd157148157185%_ (let () (declare (not safe)) - (##car _%e155860155895%_))) - (_%tl155862155900%_ + (##car _%e157147157182%_))) + (_%tl157149157187%_ (let () (declare (not safe)) - (##cdr _%e155860155895%_)))) + (##cdr _%e157147157182%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155861155898%_)) - (let ((_%e155863155903%_ + (gx#stx-pair? _%hd157148157185%_)) + (let ((_%e157150157190%_ (let () (declare (not safe)) - (gx#stx-e _%hd155861155898%_)))) - (let ((_%hd155864155906%_ + (gx#stx-e _%hd157148157185%_)))) + (let ((_%hd157151157193%_ (let () (declare (not safe)) - (##car _%e155863155903%_))) - (_%tl155865155908%_ + (##car _%e157150157190%_))) + (_%tl157152157195%_ (let () (declare (not safe)) - (##cdr _%e155863155903%_)))) + (##cdr _%e157150157190%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155864155906%_)) - (let ((_%e155866155911%_ + (gx#stx-pair? _%hd157151157193%_)) + (let ((_%e157153157198%_ (let () (declare (not safe)) (gx#stx-e - _%hd155864155906%_)))) - (let ((_%hd155867155914%_ + _%hd157151157193%_)))) + (let ((_%hd157154157201%_ (let () (declare (not safe)) - (##car _%e155866155911%_))) - (_%tl155868155916%_ + (##car _%e157153157198%_))) + (_%tl157155157203%_ (let () (declare (not safe)) - (##cdr _%e155866155911%_)))) + (##cdr _%e157153157198%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155867155914%_)) - (let ((_%e155869155919%_ + _%hd157154157201%_)) + (let ((_%e157156157206%_ (let () (declare (not safe)) (gx#stx-e - _%hd155867155914%_)))) - (let ((_%hd155870155922%_ + _%hd157154157201%_)))) + (let ((_%hd157157157209%_ (let () (declare (not safe)) - (##car _%e155869155919%_))) - (_%tl155871155924%_ + (##car _%e157156157206%_))) + (_%tl157158157211%_ (let () (declare (not safe)) - (##cdr _%e155869155919%_)))) + (##cdr _%e157156157206%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155871155924%_)) + _%tl157158157211%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl155868155916%_)) - (let ((_%e155872155927%_ + (gx#stx-pair? _%tl157155157203%_)) + (let ((_%e157159157214%_ (let () (declare (not safe)) - (gx#stx-e _%tl155868155916%_)))) - (let ((_%hd155873155930%_ + (gx#stx-e _%tl157155157203%_)))) + (let ((_%hd157160157217%_ (let () (declare (not safe)) - (##car _%e155872155927%_))) - (_%tl155874155932%_ + (##car _%e157159157214%_))) + (_%tl157161157219%_ (let () (declare (not safe)) - (##cdr _%e155872155927%_)))) + (##cdr _%e157159157214%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155874155932%_)) + (gx#stx-null? _%tl157161157219%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155865155908%_)) + (gx#stx-null? _%tl157152157195%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155862155900%_)) - (let ((_%e155875155935%_ + (gx#stx-pair? _%tl157149157187%_)) + (let ((_%e157162157222%_ (let () (declare (not safe)) - (gx#stx-e _%tl155862155900%_)))) - (let ((_%hd155876155938%_ + (gx#stx-e _%tl157149157187%_)))) + (let ((_%hd157163157225%_ (let () (declare (not safe)) - (##car _%e155875155935%_))) - (_%tl155877155940%_ + (##car _%e157162157222%_))) + (_%tl157164157227%_ (let () (declare (not safe)) - (##cdr _%e155875155935%_)))) + (##cdr _%e157162157222%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155877155940%_)) - ((lambda (_%L155943%_ - _%L155944%_ - _%L155945%_) - (let* ((_%lambda-id155969%_ - (let ((__tmp171142 + _%tl157164157227%_)) + ((lambda (_%L157230%_ + _%L157231%_ + _%L157232%_) + (let* ((_%lambda-id157256%_ + (let ((__tmp172429 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L155838%_))) - (__tmp171141 + (gx#stx-e _%L157125%_))) + (__tmp172428 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp171142 __tmp171141))) - (_%lambda-id155971%_ - (let ((__tmp171143 + (make-symbol__1 __tmp172429 __tmp172428))) + (_%lambda-id157258%_ + (let ((__tmp172430 (let () (declare (not safe)) - (gx#stx-source _%stx155061%_)))) + (gx#stx-source _%stx156348%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id155969%_ __tmp171143))) - (_%_155973%_ + (gx#core-quote-syntax__1 _%lambda-id157256%_ __tmp172430))) + (_%_157260%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id155971%_))) - (_%new-case-lambda-expr155975%_ + (gx#core-bind-runtime!__0 _%lambda-id157258%_))) + (_%new-case-lambda-expr157262%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155945%_ - _%lambda-id155971%_ - _%L155943%_)))) + _%L157232%_ + _%lambda-id157258%_ + _%L157230%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171145 + (let ((__tmp172432 (let () (declare (not safe)) (gxc#identifier-symbol - _%L155838%_))) - (__tmp171144 + _%L157125%_))) + (__tmp172431 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id155971%_)))) + _%lambda-id157258%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp171145 + __tmp172432 '" => " - __tmp171144)) - (_%lp155701%_ - (cons (_%bind-e__167796167797%_ - _%L155838%_ - _%new-case-lambda-expr155975%_ + __tmp172431)) + (_%lp156988%_ + (cons (_%bind-e__169083169084%_ + _%L157125%_ + _%new-case-lambda-expr157262%_ '#f) - _%rest155726%_) - (cons (_%bind-e__0__167798167799%_ - _%lambda-id155971%_ - _%L155944%_) - _%lift1155704%_) - _%lift2155705%_ - _%bind155706%_))) - _%hd155876155938%_ - _%hd155873155930%_ - _%hd155870155922%_) - (_%g155852155882%_ - _%g155853155885%_)))) - (_%g155852155882%_ _%g155853155885%_)) - (_%g155852155882%_ _%g155853155885%_)) - (_%g155852155882%_ _%g155853155885%_)))) - (_%g155852155882%_ _%g155853155885%_)) - (_%g155852155882%_ _%g155853155885%_)))) + _%rest157013%_) + (cons (_%bind-e__0__169085169086%_ + _%lambda-id157258%_ + _%L157231%_) + _%lift1156991%_) + _%lift2156992%_ + _%bind156993%_))) + _%hd157163157225%_ + _%hd157160157217%_ + _%hd157157157209%_) + (_%g157139157169%_ + _%g157140157172%_)))) + (_%g157139157169%_ _%g157140157172%_)) + (_%g157139157169%_ _%g157140157172%_)) + (_%g157139157169%_ _%g157140157172%_)))) + (_%g157139157169%_ _%g157140157172%_)) + (_%g157139157169%_ _%g157140157172%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155852155882%_ - _%g155853155885%_)))) - (_%g155852155882%_ - _%g155853155885%_)))) - (_%g155852155882%_ _%g155853155885%_)))) - (_%g155852155882%_ _%g155853155885%_)))) - (_%g155852155882%_ _%g155853155885%_))))) + (_%g157139157169%_ + _%g157140157172%_)))) + (_%g157139157169%_ + _%g157140157172%_)))) + (_%g157139157169%_ _%g157140157172%_)))) + (_%g157139157169%_ _%g157140157172%_)))) + (_%g157139157169%_ _%g157140157172%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155851155978%_ - _%L155837%_)))) - (_%__kont170459170460%_ - (lambda (_%L155788%_ _%L155789%_) - (_%lp155701%_ - _%rest155726%_ - _%lift1155704%_ - _%lift2155705%_ - (cons (cons _%L155789%_ + (_%g157138157265%_ + _%L157124%_)))) + (_%__kont171746171747%_ + (lambda (_%L157075%_ _%L157076%_) + (_%lp156988%_ + _%rest157013%_ + _%lift1156991%_ + _%lift2156992%_ + (cons (cons _%L157076%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self155060%_ _%L155788%_)) + (gxc#compile-e__1 _%self156347%_ _%L157075%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind155706%_))))) - (let* ((_%__match170504170505%_ - (lambda (_%e155746155813%_ - _%hd155747155816%_ - _%tl155748155818%_ - _%e155749155821%_ - _%hd155750155824%_ - _%tl155751155826%_ - _%e155752155829%_ - _%hd155753155832%_ - _%tl155754155834%_) - (let ((_%L155837%_ - _%hd155753155832%_) - (_%L155838%_ - _%hd155750155824%_)) + _%bind156993%_))))) + (let* ((_%__match171791171792%_ + (lambda (_%e157033157100%_ + _%hd157034157103%_ + _%tl157035157105%_ + _%e157036157108%_ + _%hd157037157111%_ + _%tl157038157113%_ + _%e157039157116%_ + _%hd157040157119%_ + _%tl157041157121%_) + (let ((_%L157124%_ + _%hd157040157119%_) + (_%L157125%_ + _%hd157037157111%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L155838%_)) + _%L157125%_)) (gxc#opt-lambda-expr? - _%L155837%_)) - (_%__kont170457170458%_ - _%L155837%_ - _%L155838%_) - (_%__kont170459170460%_ - _%hd155753155832%_ - _%hd155747155816%_))))) - (_%__match170482170483%_ - (lambda (_%e155735155986%_ - _%hd155736155989%_ - _%tl155737155991%_ - _%e155738155994%_ - _%hd155739155997%_ - _%tl155740155999%_ - _%e155741156002%_ - _%hd155742156005%_ - _%tl155743156007%_) - (let ((_%L156010%_ - _%hd155742156005%_) - (_%L156011%_ - _%hd155739155997%_)) + _%L157124%_)) + (_%__kont171744171745%_ + _%L157124%_ + _%L157125%_) + (_%__kont171746171747%_ + _%hd157040157119%_ + _%hd157034157103%_))))) + (_%__match171769171770%_ + (lambda (_%e157022157273%_ + _%hd157023157276%_ + _%tl157024157278%_ + _%e157025157281%_ + _%hd157026157284%_ + _%tl157027157286%_ + _%e157028157289%_ + _%hd157029157292%_ + _%tl157030157294%_) + (let ((_%L157297%_ + _%hd157029157292%_) + (_%L157298%_ + _%hd157026157284%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L156011%_)) + _%L157298%_)) (gxc#case-lambda-expr? - _%L156010%_)) - (_%__kont170455170456%_ - _%L156010%_ - _%L156011%_) - (_%__match170504170505%_ - _%e155735155986%_ - _%hd155736155989%_ - _%tl155737155991%_ - _%e155738155994%_ - _%hd155739155997%_ - _%tl155740155999%_ - _%e155741156002%_ - _%hd155742156005%_ - _%tl155743156007%_)))))) + _%L157297%_)) + (_%__kont171742171743%_ + _%L157297%_ + _%L157298%_) + (_%__match171791171792%_ + _%e157022157273%_ + _%hd157023157276%_ + _%tl157024157278%_ + _%e157025157281%_ + _%hd157026157284%_ + _%tl157027157286%_ + _%e157028157289%_ + _%hd157029157292%_ + _%tl157030157294%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170453170454%_)) - (let ((_%e155735155986%_ + _%__stx171740171741%_)) + (let ((_%e157022157273%_ (let () (declare (not safe)) (gx#stx-e - _%__stx170453170454%_)))) - (let ((_%tl155737155991%_ + _%__stx171740171741%_)))) + (let ((_%tl157024157278%_ (let () (declare (not safe)) - (##cdr _%e155735155986%_))) - (_%hd155736155989%_ + (##cdr _%e157022157273%_))) + (_%hd157023157276%_ (let () (declare (not safe)) - (##car _%e155735155986%_)))) + (##car _%e157022157273%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155736155989%_)) - (let ((_%e155738155994%_ + _%hd157023157276%_)) + (let ((_%e157025157281%_ (let () (declare (not safe)) (gx#stx-e - _%hd155736155989%_)))) - (let ((_%tl155740155999%_ + _%hd157023157276%_)))) + (let ((_%tl157027157286%_ (let () (declare (not safe)) - (##cdr _%e155738155994%_))) - (_%hd155739155997%_ + (##cdr _%e157025157281%_))) + (_%hd157026157284%_ (let () (declare (not safe)) - (##car _%e155738155994%_)))) + (##car _%e157025157281%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155740155999%_)) + _%tl157027157286%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl155737155991%_)) - (let ((_%e155741156002%_ + (gx#stx-pair? _%tl157024157278%_)) + (let ((_%e157028157289%_ (let () (declare (not safe)) - (gx#stx-e _%tl155737155991%_)))) - (let ((_%tl155743156007%_ + (gx#stx-e _%tl157024157278%_)))) + (let ((_%tl157030157294%_ (let () (declare (not safe)) - (##cdr _%e155741156002%_))) - (_%hd155742156005%_ + (##cdr _%e157028157289%_))) + (_%hd157029157292%_ (let () (declare (not safe)) - (##car _%e155741156002%_)))) + (##car _%e157028157289%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155743156007%_)) - (_%__match170482170483%_ - _%e155735155986%_ - _%hd155736155989%_ - _%tl155737155991%_ - _%e155738155994%_ - _%hd155739155997%_ - _%tl155740155999%_ - _%e155741156002%_ - _%hd155742156005%_ - _%tl155743156007%_) + (gx#stx-null? _%tl157030157294%_)) + (_%__match171769171770%_ + _%e157022157273%_ + _%hd157023157276%_ + _%tl157024157278%_ + _%e157025157281%_ + _%hd157026157284%_ + _%tl157027157286%_ + _%e157028157289%_ + _%hd157029157292%_ + _%tl157030157294%_) (let () (declare (not safe)) - (_%g155731155767%_))))) - (let () (declare (not safe)) (_%g155731155767%_))) + (_%g157018157054%_))))) + (let () (declare (not safe)) (_%g157018157054%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155737155991%_)) - (let ((_%e155760155780%_ + (gx#stx-pair? _%tl157024157278%_)) + (let ((_%e157047157067%_ (let () (declare (not safe)) - (gx#stx-e _%tl155737155991%_)))) - (let ((_%tl155762155785%_ + (gx#stx-e _%tl157024157278%_)))) + (let ((_%tl157049157072%_ (let () (declare (not safe)) - (##cdr _%e155760155780%_))) - (_%hd155761155783%_ + (##cdr _%e157047157067%_))) + (_%hd157048157070%_ (let () (declare (not safe)) - (##car _%e155760155780%_)))) + (##car _%e157047157067%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155762155785%_)) - (_%__kont170459170460%_ - _%hd155761155783%_ - _%hd155736155989%_) + (gx#stx-null? _%tl157049157072%_)) + (_%__kont171746171747%_ + _%hd157048157070%_ + _%hd157023157276%_) (let () (declare (not safe)) - (_%g155731155767%_))))) - (let () (declare (not safe)) (_%g155731155767%_)))))) + (_%g157018157054%_))))) + (let () (declare (not safe)) (_%g157018157054%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155737155991%_)) - (let ((_%e155760155780%_ + _%tl157024157278%_)) + (let ((_%e157047157067%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl155737155991%_)))) - (let ((_%tl155762155785%_ + (gx#stx-e _%tl157024157278%_)))) + (let ((_%tl157049157072%_ (let () (declare (not safe)) - (##cdr _%e155760155780%_))) - (_%hd155761155783%_ + (##cdr _%e157047157067%_))) + (_%hd157048157070%_ (let () (declare (not safe)) - (##car _%e155760155780%_)))) + (##car _%e157047157067%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155762155785%_)) - (_%__kont170459170460%_ - _%hd155761155783%_ - _%hd155736155989%_) - (let () (declare (not safe)) (_%g155731155767%_))))) - (let () (declare (not safe)) (_%g155731155767%_)))))) + (gx#stx-null? _%tl157049157072%_)) + (_%__kont171746171747%_ + _%hd157048157070%_ + _%hd157023157276%_) + (let () (declare (not safe)) (_%g157018157054%_))))) + (let () (declare (not safe)) (_%g157018157054%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g155731155767%_))))))))) - (if (pair? _%rest155707155715%_) - (let ((_%hd155712156107%_ + (_%g157018157054%_))))))))) + (if (pair? _%rest156994157002%_) + (let ((_%hd156999157394%_ (let () (declare (not safe)) - (##car _%rest155707155715%_))) - (_%tl155713156109%_ + (##car _%rest156994157002%_))) + (_%tl157000157396%_ (let () (declare (not safe)) - (##cdr _%rest155707155715%_)))) - (let* ((_%hd156112%_ _%hd155712156107%_) - (_%rest156114%_ _%tl155713156109%_)) - (_%K155711156104%_ - _%rest156114%_ - _%hd156112%_))) - (_%else155709155723%_)))))) - (_%lift-kw-lambda?155065%_ - (lambda (_%bind155623%_) - (let* ((_%__stx170521170522%_ _%bind155623%_) - (_%g155626155643%_ + (##cdr _%rest156994157002%_)))) + (let* ((_%hd157399%_ _%hd156999157394%_) + (_%rest157401%_ _%tl157000157396%_)) + (_%K156998157391%_ + _%rest157401%_ + _%hd157399%_))) + (_%else156996157010%_)))))) + (_%lift-kw-lambda?156352%_ + (lambda (_%bind156910%_) + (let* ((_%__stx171808171809%_ _%bind156910%_) + (_%g156913156930%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170521170522%_))))) - (let ((_%__kont170523170524%_ - (lambda (_%L155679%_ _%L155680%_) + _%__stx171808171809%_))))) + (let ((_%__kont171810171811%_ + (lambda (_%L156966%_ _%L156967%_) (if (let () (declare (not safe)) - (gx#identifier? _%L155680%_)) - (gxc#kw-lambda-expr? _%L155679%_) + (gx#identifier? _%L156967%_)) + (gxc#kw-lambda-expr? _%L156966%_) '#f))) - (_%__kont170525170526%_ (lambda () '#f))) + (_%__kont171812171813%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170521170522%_)) - (let ((_%e155630155655%_ + (gx#stx-pair? _%__stx171808171809%_)) + (let ((_%e156917156942%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170521170522%_)))) - (let ((_%tl155632155660%_ + (gx#stx-e _%__stx171808171809%_)))) + (let ((_%tl156919156947%_ (let () (declare (not safe)) - (##cdr _%e155630155655%_))) - (_%hd155631155658%_ + (##cdr _%e156917156942%_))) + (_%hd156918156945%_ (let () (declare (not safe)) - (##car _%e155630155655%_)))) + (##car _%e156917156942%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155631155658%_)) - (let ((_%e155633155663%_ + (gx#stx-pair? _%hd156918156945%_)) + (let ((_%e156920156950%_ (let () (declare (not safe)) - (gx#stx-e _%hd155631155658%_)))) - (let ((_%tl155635155668%_ + (gx#stx-e _%hd156918156945%_)))) + (let ((_%tl156922156955%_ (let () (declare (not safe)) - (##cdr _%e155633155663%_))) - (_%hd155634155666%_ + (##cdr _%e156920156950%_))) + (_%hd156921156953%_ (let () (declare (not safe)) - (##car _%e155633155663%_)))) + (##car _%e156920156950%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155635155668%_)) + _%tl156922156955%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155632155660%_)) - (let ((_%e155636155671%_ + _%tl156919156947%_)) + (let ((_%e156923156958%_ (let () (declare (not safe)) (gx#stx-e - _%tl155632155660%_)))) - (let ((_%tl155638155676%_ + _%tl156919156947%_)))) + (let ((_%tl156925156963%_ (let () (declare (not safe)) - (##cdr _%e155636155671%_))) - (_%hd155637155674%_ + (##cdr _%e156923156958%_))) + (_%hd156924156961%_ (let () (declare (not safe)) - (##car _%e155636155671%_)))) + (##car _%e156923156958%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155638155676%_)) - (_%__kont170523170524%_ - _%hd155637155674%_ - _%hd155634155666%_) - (_%__kont170525170526%_)))) - (_%__kont170525170526%_)) - (_%__kont170525170526%_)))) - (_%__kont170525170526%_)))) - (_%__kont170525170526%_)))))) - (_%lift-kw-lambda-bindings155066%_ - (lambda (_%bindings155233%_) - (let _%lp155235%_ ((_%rest155237%_ _%bindings155233%_) - (_%lift1155238%_ '()) - (_%lift2155239%_ '()) - (_%bind155240%_ '())) - (let* ((_%rest155241155249%_ _%rest155237%_) - (_%else155243155257%_ + _%tl156925156963%_)) + (_%__kont171810171811%_ + _%hd156924156961%_ + _%hd156921156953%_) + (_%__kont171812171813%_)))) + (_%__kont171812171813%_)) + (_%__kont171812171813%_)))) + (_%__kont171812171813%_)))) + (_%__kont171812171813%_)))))) + (_%lift-kw-lambda-bindings156353%_ + (lambda (_%bindings156520%_) + (let _%lp156522%_ ((_%rest156524%_ _%bindings156520%_) + (_%lift1156525%_ '()) + (_%lift2156526%_ '()) + (_%bind156527%_ '())) + (let* ((_%rest156528156536%_ _%rest156524%_) + (_%else156530156544%_ (lambda () - (values (reverse _%lift1155238%_) - (reverse _%lift2155239%_) - (reverse _%bind155240%_)))) - (_%K155245155611%_ - (lambda (_%rest155260%_ _%hd155261%_) - (let* ((_%__stx170551170552%_ _%hd155261%_) - (_%g155264155289%_ + (values (reverse _%lift1156525%_) + (reverse _%lift2156526%_) + (reverse _%bind156527%_)))) + (_%K156532156898%_ + (lambda (_%rest156547%_ _%hd156548%_) + (let* ((_%__stx171838171839%_ _%hd156548%_) + (_%g156551156576%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170551170552%_))))) - (let ((_%__kont170553170554%_ - (lambda (_%L155359%_ _%L155360%_) - (let* ((_%g155374155427%_ - (lambda (_%g155375155424%_) + _%__stx171838171839%_))))) + (let ((_%__kont171840171841%_ + (lambda (_%L156646%_ _%L156647%_) + (let* ((_%g156661156714%_ + (lambda (_%g156662156711%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155375155424%_)))) - (_%g155373155605%_ - (lambda (_%g155375155430%_) + _%g156662156711%_)))) + (_%g156660156892%_ + (lambda (_%g156662156717%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g155375155430%_)) - (let ((_%e155381155432%_ + _%g156662156717%_)) + (let ((_%e156668156719%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g155375155430%_)))) - (let ((_%hd155382155435%_ + (gx#stx-e _%g156662156717%_)))) + (let ((_%hd156669156722%_ (let () (declare (not safe)) - (##car _%e155381155432%_))) - (_%tl155383155437%_ + (##car _%e156668156719%_))) + (_%tl156670156724%_ (let () (declare (not safe)) - (##cdr _%e155381155432%_)))) + (##cdr _%e156668156719%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155383155437%_)) - (let ((_%e155384155440%_ + (gx#stx-pair? _%tl156670156724%_)) + (let ((_%e156671156727%_ (let () (declare (not safe)) - (gx#stx-e _%tl155383155437%_)))) - (let ((_%hd155385155443%_ + (gx#stx-e _%tl156670156724%_)))) + (let ((_%hd156672156730%_ (let () (declare (not safe)) - (##car _%e155384155440%_))) - (_%tl155386155445%_ + (##car _%e156671156727%_))) + (_%tl156673156732%_ (let () (declare (not safe)) - (##cdr _%e155384155440%_)))) + (##cdr _%e156671156727%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155385155443%_)) - (let ((_%e155387155448%_ + (gx#stx-pair? _%hd156672156730%_)) + (let ((_%e156674156735%_ (let () (declare (not safe)) - (gx#stx-e _%hd155385155443%_)))) - (let ((_%hd155388155451%_ + (gx#stx-e _%hd156672156730%_)))) + (let ((_%hd156675156738%_ (let () (declare (not safe)) - (##car _%e155387155448%_))) - (_%tl155389155453%_ + (##car _%e156674156735%_))) + (_%tl156676156740%_ (let () (declare (not safe)) - (##cdr _%e155387155448%_)))) + (##cdr _%e156674156735%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155388155451%_)) - (let ((_%e155390155456%_ + (gx#stx-pair? _%hd156675156738%_)) + (let ((_%e156677156743%_ (let () (declare (not safe)) (gx#stx-e - _%hd155388155451%_)))) - (let ((_%hd155391155459%_ + _%hd156675156738%_)))) + (let ((_%hd156678156746%_ (let () (declare (not safe)) - (##car _%e155390155456%_))) - (_%tl155392155461%_ + (##car _%e156677156743%_))) + (_%tl156679156748%_ (let () (declare (not safe)) - (##cdr _%e155390155456%_)))) + (##cdr _%e156677156743%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155391155459%_)) - (let ((_%e155393155464%_ + _%hd156678156746%_)) + (let ((_%e156680156751%_ (let () (declare (not safe)) (gx#stx-e - _%hd155391155459%_)))) - (let ((_%hd155394155467%_ + _%hd156678156746%_)))) + (let ((_%hd156681156754%_ (let () (declare (not safe)) - (##car _%e155393155464%_))) - (_%tl155395155469%_ + (##car _%e156680156751%_))) + (_%tl156682156756%_ (let () (declare (not safe)) - (##cdr _%e155393155464%_)))) + (##cdr _%e156680156751%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155395155469%_)) + _%tl156682156756%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl155392155461%_)) - (let ((_%e155396155472%_ + (gx#stx-pair? _%tl156679156748%_)) + (let ((_%e156683156759%_ (let () (declare (not safe)) - (gx#stx-e _%tl155392155461%_)))) - (let ((_%hd155397155475%_ + (gx#stx-e _%tl156679156748%_)))) + (let ((_%hd156684156762%_ (let () (declare (not safe)) - (##car _%e155396155472%_))) - (_%tl155398155477%_ + (##car _%e156683156759%_))) + (_%tl156685156764%_ (let () (declare (not safe)) - (##cdr _%e155396155472%_)))) + (##cdr _%e156683156759%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155397155475%_)) - (let ((_%e155399155480%_ + (gx#stx-pair? _%hd156684156762%_)) + (let ((_%e156686156767%_ (let () (declare (not safe)) - (gx#stx-e _%hd155397155475%_)))) - (let ((_%hd155400155483%_ + (gx#stx-e _%hd156684156762%_)))) + (let ((_%hd156687156770%_ (let () (declare (not safe)) - (##car _%e155399155480%_))) - (_%tl155401155485%_ + (##car _%e156686156767%_))) + (_%tl156688156772%_ (let () (declare (not safe)) - (##cdr _%e155399155480%_)))) + (##cdr _%e156686156767%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155401155485%_)) - (let ((_%e155402155488%_ + (gx#stx-pair? _%tl156688156772%_)) + (let ((_%e156689156775%_ (let () (declare (not safe)) - (gx#stx-e _%tl155401155485%_)))) - (let ((_%hd155403155491%_ + (gx#stx-e _%tl156688156772%_)))) + (let ((_%hd156690156778%_ (let () (declare (not safe)) - (##car _%e155402155488%_))) - (_%tl155404155493%_ + (##car _%e156689156775%_))) + (_%tl156691156780%_ (let () (declare (not safe)) - (##cdr _%e155402155488%_)))) + (##cdr _%e156689156775%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155403155491%_)) - (let ((_%e155405155496%_ + _%hd156690156778%_)) + (let ((_%e156692156783%_ (let () (declare (not safe)) (gx#stx-e - _%hd155403155491%_)))) - (let ((_%hd155406155499%_ + _%hd156690156778%_)))) + (let ((_%hd156693156786%_ (let () (declare (not safe)) - (##car _%e155405155496%_))) - (_%tl155407155501%_ + (##car _%e156692156783%_))) + (_%tl156694156788%_ (let () (declare (not safe)) - (##cdr _%e155405155496%_)))) + (##cdr _%e156692156783%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155406155499%_)) - (let ((_%e155408155504%_ + _%hd156693156786%_)) + (let ((_%e156695156791%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd155406155499%_)))) - (let ((_%hd155409155507%_ - (let () (declare (not safe)) (##car _%e155408155504%_))) - (_%tl155410155509%_ + (gx#stx-e _%hd156693156786%_)))) + (let ((_%hd156696156794%_ + (let () (declare (not safe)) (##car _%e156695156791%_))) + (_%tl156697156796%_ (let () (declare (not safe)) - (##cdr _%e155408155504%_)))) + (##cdr _%e156695156791%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155409155507%_)) - (let ((_%e155411155512%_ + (gx#stx-pair? _%hd156696156794%_)) + (let ((_%e156698156799%_ (let () (declare (not safe)) - (gx#stx-e _%hd155409155507%_)))) - (let ((_%hd155412155515%_ + (gx#stx-e _%hd156696156794%_)))) + (let ((_%hd156699156802%_ (let () (declare (not safe)) - (##car _%e155411155512%_))) - (_%tl155413155517%_ + (##car _%e156698156799%_))) + (_%tl156700156804%_ (let () (declare (not safe)) - (##cdr _%e155411155512%_)))) + (##cdr _%e156698156799%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155413155517%_)) + (gx#stx-null? _%tl156700156804%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155410155509%_)) - (let ((_%e155414155520%_ + (gx#stx-pair? _%tl156697156796%_)) + (let ((_%e156701156807%_ (let () (declare (not safe)) - (gx#stx-e _%tl155410155509%_)))) - (let ((_%hd155415155523%_ + (gx#stx-e _%tl156697156796%_)))) + (let ((_%hd156702156810%_ (let () (declare (not safe)) - (##car _%e155414155520%_))) - (_%tl155416155525%_ + (##car _%e156701156807%_))) + (_%tl156703156812%_ (let () (declare (not safe)) - (##cdr _%e155414155520%_)))) + (##cdr _%e156701156807%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155416155525%_)) + (gx#stx-null? _%tl156703156812%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155407155501%_)) + _%tl156694156788%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155404155493%_)) - (let ((_%e155417155528%_ + _%tl156691156780%_)) + (let ((_%e156704156815%_ (let () (declare (not safe)) (gx#stx-e - _%tl155404155493%_)))) - (let ((_%hd155418155531%_ + _%tl156691156780%_)))) + (let ((_%hd156705156818%_ (let () (declare (not safe)) - (##car _%e155417155528%_))) - (_%tl155419155533%_ + (##car _%e156704156815%_))) + (_%tl156706156820%_ (let () (declare (not safe)) - (##cdr _%e155417155528%_)))) + (##cdr _%e156704156815%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155419155533%_)) + _%tl156706156820%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl155398155477%_)) + (gx#stx-null? _%tl156685156764%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155389155453%_)) + (gx#stx-null? _%tl156676156740%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155386155445%_)) - (let ((_%e155420155536%_ + (gx#stx-pair? _%tl156673156732%_)) + (let ((_%e156707156823%_ (let () (declare (not safe)) - (gx#stx-e _%tl155386155445%_)))) - (let ((_%hd155421155539%_ + (gx#stx-e _%tl156673156732%_)))) + (let ((_%hd156708156826%_ (let () (declare (not safe)) - (##car _%e155420155536%_))) - (_%tl155422155541%_ + (##car _%e156707156823%_))) + (_%tl156709156828%_ (let () (declare (not safe)) - (##cdr _%e155420155536%_)))) + (##cdr _%e156707156823%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155422155541%_)) - ((lambda (_%L155544%_ - _%L155545%_ - _%L155546%_ - _%L155547%_ - _%L155548%_) - (let* ((_%get-kws-id155588%_ - (let ((__tmp171147 + (gx#stx-null? _%tl156709156828%_)) + ((lambda (_%L156831%_ + _%L156832%_ + _%L156833%_ + _%L156834%_ + _%L156835%_) + (let* ((_%get-kws-id156875%_ + (let ((__tmp172434 (let () (declare (not safe)) (gx#stx-e - _%L155360%_))) - (__tmp171146 + _%L156647%_))) + (__tmp172433 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171147 - __tmp171146))) - (_%get-kws-id155590%_ - (let ((__tmp171148 + __tmp172434 + __tmp172433))) + (_%get-kws-id156877%_ + (let ((__tmp172435 (let () (declare (not safe)) (gx#stx-source - _%stx155061%_)))) + _%stx156348%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id155588%_ - __tmp171148))) - (_%main-id155592%_ - (let ((__tmp171150 + _%get-kws-id156875%_ + __tmp172435))) + (_%main-id156879%_ + (let ((__tmp172437 (let () (declare (not safe)) (gx#stx-e - _%L155360%_))) - (__tmp171149 + _%L156647%_))) + (__tmp172436 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171150 - __tmp171149))) - (_%main-id155594%_ - (let ((__tmp171151 + __tmp172437 + __tmp172436))) + (_%main-id156881%_ + (let ((__tmp172438 (let () (declare (not safe)) (gx#stx-source - _%stx155061%_)))) + _%stx156348%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id155592%_ - __tmp171151))) - (_%_155596%_ + _%main-id156879%_ + __tmp172438))) + (_%_156883%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id155590%_))) - (_%_155598%_ + _%get-kws-id156877%_))) + (_%_156885%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id155594%_))) - (_%new-kw-dispatch155600%_ + _%main-id156881%_))) + (_%new-kw-dispatch156887%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155548%_ - _%get-kws-id155590%_ - _%L155544%_))) - (_%new-get-kws155602%_ + _%L156835%_ + _%get-kws-id156877%_ + _%L156831%_))) + (_%new-get-kws156889%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155547%_ - _%main-id155594%_ - _%L155545%_)))) - (let ((__tmp171154 + _%L156834%_ + _%main-id156881%_ + _%L156832%_)))) + (let ((__tmp172441 (let () (declare (not safe)) (gxc#identifier-symbol - _%L155360%_))) - (__tmp171153 + _%L156647%_))) + (__tmp172440 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id155590%_))) - (__tmp171152 + _%get-kws-id156877%_))) + (__tmp172439 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id155594%_)))) + _%main-id156881%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp171154 + __tmp172441 '" => " - __tmp171153 + __tmp172440 '" => " - __tmp171152)) - (_%lp155235%_ - _%rest155260%_ - (cons (_%bind-e__167796167797%_ - _%main-id155594%_ - _%L155546%_ + __tmp172439)) + (_%lp156522%_ + _%rest156547%_ + (cons (_%bind-e__169083169084%_ + _%main-id156881%_ + _%L156833%_ '#f) - _%lift1155238%_) - (cons (_%bind-e__167796167797%_ - _%get-kws-id155590%_ - _%new-get-kws155602%_ + _%lift1156525%_) + (cons (_%bind-e__169083169084%_ + _%get-kws-id156877%_ + _%new-get-kws156889%_ '#f) - _%lift2155239%_) - (cons (_%bind-e__167796167797%_ - _%L155360%_ - _%new-kw-dispatch155600%_ + _%lift2156526%_) + (cons (_%bind-e__169083169084%_ + _%L156647%_ + _%new-kw-dispatch156887%_ '#f) - _%bind155240%_)))) - _%hd155421155539%_ - _%hd155418155531%_ - _%hd155415155523%_ - _%hd155412155515%_ - _%hd155394155467%_) - (_%g155374155427%_ _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)) - (_%g155374155427%_ _%g155375155430%_)) - (_%g155374155427%_ _%g155375155430%_)) - (_%g155374155427%_ _%g155375155430%_)))) + _%bind156527%_)))) + _%hd156708156826%_ + _%hd156705156818%_ + _%hd156702156810%_ + _%hd156699156802%_ + _%hd156681156754%_) + (_%g156661156714%_ _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)) + (_%g156661156714%_ _%g156662156717%_)) + (_%g156661156714%_ _%g156662156717%_)) + (_%g156661156714%_ _%g156662156717%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155374155427%_ - _%g155375155430%_)) - (_%g155374155427%_ - _%g155375155430%_)) - (_%g155374155427%_ - _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)) - (_%g155374155427%_ _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)))) + (_%g156661156714%_ + _%g156662156717%_)) + (_%g156661156714%_ + _%g156662156717%_)) + (_%g156661156714%_ + _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)) + (_%g156661156714%_ _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155374155427%_ - _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)) - (_%g155374155427%_ _%g155375155430%_)))) + (_%g156661156714%_ + _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)) + (_%g156661156714%_ _%g156662156717%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155374155427%_ - _%g155375155430%_)))) - (_%g155374155427%_ - _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_)))) - (_%g155374155427%_ _%g155375155430%_))))) + (_%g156661156714%_ + _%g156662156717%_)))) + (_%g156661156714%_ + _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_)))) + (_%g156661156714%_ _%g156662156717%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155373155605%_ - _%L155359%_)))) - (_%__kont170555170556%_ - (lambda (_%L155310%_ _%L155311%_) - (_%lp155235%_ - _%rest155260%_ - _%lift1155238%_ - _%lift2155239%_ - (cons (cons _%L155311%_ - (cons _%L155310%_ + (_%g156660156892%_ + _%L156646%_)))) + (_%__kont171842171843%_ + (lambda (_%L156597%_ _%L156598%_) + (_%lp156522%_ + _%rest156547%_ + _%lift1156525%_ + _%lift2156526%_ + (cons (cons _%L156598%_ + (cons _%L156597%_ '())) - _%bind155240%_))))) - (let ((_%__match170578170579%_ - (lambda (_%e155268155335%_ - _%hd155269155338%_ - _%tl155270155340%_ - _%e155271155343%_ - _%hd155272155346%_ - _%tl155273155348%_ - _%e155274155351%_ - _%hd155275155354%_ - _%tl155276155356%_) - (let ((_%L155359%_ - _%hd155275155354%_) - (_%L155360%_ - _%hd155272155346%_)) + _%bind156527%_))))) + (let ((_%__match171865171866%_ + (lambda (_%e156555156622%_ + _%hd156556156625%_ + _%tl156557156627%_ + _%e156558156630%_ + _%hd156559156633%_ + _%tl156560156635%_ + _%e156561156638%_ + _%hd156562156641%_ + _%tl156563156643%_) + (let ((_%L156646%_ + _%hd156562156641%_) + (_%L156647%_ + _%hd156559156633%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L155360%_)) + _%L156647%_)) (gxc#kw-lambda-expr? - _%L155359%_)) - (_%__kont170553170554%_ - _%L155359%_ - _%L155360%_) - (_%__kont170555170556%_ - _%hd155275155354%_ - _%hd155269155338%_)))))) + _%L156646%_)) + (_%__kont171840171841%_ + _%L156646%_ + _%L156647%_) + (_%__kont171842171843%_ + _%hd156562156641%_ + _%hd156556156625%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170551170552%_)) - (let ((_%e155268155335%_ + _%__stx171838171839%_)) + (let ((_%e156555156622%_ (let () (declare (not safe)) (gx#stx-e - _%__stx170551170552%_)))) - (let ((_%tl155270155340%_ + _%__stx171838171839%_)))) + (let ((_%tl156557156627%_ (let () (declare (not safe)) - (##cdr _%e155268155335%_))) - (_%hd155269155338%_ + (##cdr _%e156555156622%_))) + (_%hd156556156625%_ (let () (declare (not safe)) - (##car _%e155268155335%_)))) + (##car _%e156555156622%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155269155338%_)) - (let ((_%e155271155343%_ + _%hd156556156625%_)) + (let ((_%e156558156630%_ (let () (declare (not safe)) (gx#stx-e - _%hd155269155338%_)))) - (let ((_%tl155273155348%_ + _%hd156556156625%_)))) + (let ((_%tl156560156635%_ (let () (declare (not safe)) - (##cdr _%e155271155343%_))) - (_%hd155272155346%_ + (##cdr _%e156558156630%_))) + (_%hd156559156633%_ (let () (declare (not safe)) - (##car _%e155271155343%_)))) + (##car _%e156558156630%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155273155348%_)) + _%tl156560156635%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl155270155340%_)) - (let ((_%e155274155351%_ + (gx#stx-pair? _%tl156557156627%_)) + (let ((_%e156561156638%_ (let () (declare (not safe)) - (gx#stx-e _%tl155270155340%_)))) - (let ((_%tl155276155356%_ + (gx#stx-e _%tl156557156627%_)))) + (let ((_%tl156563156643%_ (let () (declare (not safe)) - (##cdr _%e155274155351%_))) - (_%hd155275155354%_ + (##cdr _%e156561156638%_))) + (_%hd156562156641%_ (let () (declare (not safe)) - (##car _%e155274155351%_)))) + (##car _%e156561156638%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155276155356%_)) - (_%__match170578170579%_ - _%e155268155335%_ - _%hd155269155338%_ - _%tl155270155340%_ - _%e155271155343%_ - _%hd155272155346%_ - _%tl155273155348%_ - _%e155274155351%_ - _%hd155275155354%_ - _%tl155276155356%_) + (gx#stx-null? _%tl156563156643%_)) + (_%__match171865171866%_ + _%e156555156622%_ + _%hd156556156625%_ + _%tl156557156627%_ + _%e156558156630%_ + _%hd156559156633%_ + _%tl156560156635%_ + _%e156561156638%_ + _%hd156562156641%_ + _%tl156563156643%_) (let () (declare (not safe)) - (_%g155264155289%_))))) - (let () (declare (not safe)) (_%g155264155289%_))) + (_%g156551156576%_))))) + (let () (declare (not safe)) (_%g156551156576%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155270155340%_)) - (let ((_%e155282155302%_ + (gx#stx-pair? _%tl156557156627%_)) + (let ((_%e156569156589%_ (let () (declare (not safe)) - (gx#stx-e _%tl155270155340%_)))) - (let ((_%tl155284155307%_ + (gx#stx-e _%tl156557156627%_)))) + (let ((_%tl156571156594%_ (let () (declare (not safe)) - (##cdr _%e155282155302%_))) - (_%hd155283155305%_ + (##cdr _%e156569156589%_))) + (_%hd156570156592%_ (let () (declare (not safe)) - (##car _%e155282155302%_)))) + (##car _%e156569156589%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155284155307%_)) - (_%__kont170555170556%_ - _%hd155283155305%_ - _%hd155269155338%_) + (gx#stx-null? _%tl156571156594%_)) + (_%__kont171842171843%_ + _%hd156570156592%_ + _%hd156556156625%_) (let () (declare (not safe)) - (_%g155264155289%_))))) - (let () (declare (not safe)) (_%g155264155289%_)))))) + (_%g156551156576%_))))) + (let () (declare (not safe)) (_%g156551156576%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155270155340%_)) - (let ((_%e155282155302%_ + _%tl156557156627%_)) + (let ((_%e156569156589%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl155270155340%_)))) - (let ((_%tl155284155307%_ + (gx#stx-e _%tl156557156627%_)))) + (let ((_%tl156571156594%_ (let () (declare (not safe)) - (##cdr _%e155282155302%_))) - (_%hd155283155305%_ + (##cdr _%e156569156589%_))) + (_%hd156570156592%_ (let () (declare (not safe)) - (##car _%e155282155302%_)))) + (##car _%e156569156589%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155284155307%_)) - (_%__kont170555170556%_ - _%hd155283155305%_ - _%hd155269155338%_) - (let () (declare (not safe)) (_%g155264155289%_))))) - (let () (declare (not safe)) (_%g155264155289%_)))))) + (gx#stx-null? _%tl156571156594%_)) + (_%__kont171842171843%_ + _%hd156570156592%_ + _%hd156556156625%_) + (let () (declare (not safe)) (_%g156551156576%_))))) + (let () (declare (not safe)) (_%g156551156576%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g155264155289%_))))))))) - (if (pair? _%rest155241155249%_) - (let ((_%hd155246155614%_ + (_%g156551156576%_))))))))) + (if (pair? _%rest156528156536%_) + (let ((_%hd156533156901%_ (let () (declare (not safe)) - (##car _%rest155241155249%_))) - (_%tl155247155616%_ + (##car _%rest156528156536%_))) + (_%tl156534156903%_ (let () (declare (not safe)) - (##cdr _%rest155241155249%_)))) - (let* ((_%hd155619%_ _%hd155246155614%_) - (_%rest155621%_ _%tl155247155616%_)) - (_%K155245155611%_ - _%rest155621%_ - _%hd155619%_))) - (_%else155243155257%_))))))) - (let* ((_%__stx170595170596%_ _%stx155061%_) - (_%g155069155095%_ + (##cdr _%rest156528156536%_)))) + (let* ((_%hd156906%_ _%hd156533156901%_) + (_%rest156908%_ _%tl156534156903%_)) + (_%K156532156898%_ + _%rest156908%_ + _%hd156906%_))) + (_%else156530156544%_))))))) + (let* ((_%__stx171882171883%_ _%stx156348%_) + (_%g156356156382%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170595170596%_))))) - (let ((_%__kont170597170598%_ - (lambda (_%L155155%_ _%L155156%_) - (let ((__tmp171156 + _%__stx171882171883%_))))) + (let ((_%__kont171884171885%_ + (lambda (_%L156442%_ _%L156443%_) + (let ((__tmp172443 (lambda () - (if (let ((__tmp171157 - (let ((__tmp171158 - (lambda (_%g155184155187%_ - _%g155185155189%_) - (cons _%g155184155187%_ - _%g155185155189%_)))) + (if (let ((__tmp172444 + (let ((__tmp172445 + (lambda (_%g156471156474%_ + _%g156472156476%_) + (cons _%g156471156474%_ + _%g156472156476%_)))) (declare (not safe)) (__foldr1 - __tmp171158 + __tmp172445 '() - _%L155156%_)))) + _%L156443%_)))) (declare (not safe)) (__ormap1 - _%lift-kw-lambda?155065%_ - __tmp171157)) - (let ((_g171159_ - (_%lift-kw-lambda-bindings155066%_ - (let ((__tmp171161 - (lambda (_%g155191155194%_ - _%g155192155196%_) - (cons _%g155191155194%_ - _%g155192155196%_)))) + _%lift-kw-lambda?156352%_ + __tmp172444)) + (let ((_g172446_ + (_%lift-kw-lambda-bindings156353%_ + (let ((__tmp172448 + (lambda (_%g156478156481%_ + _%g156479156483%_) + (cons _%g156478156481%_ + _%g156479156483%_)))) (declare (not safe)) (__foldr1 - __tmp171161 + __tmp172448 '() - _%L155156%_))))) + _%L156443%_))))) (begin - (let ((_g171160_ + (let ((_g172447_ (let () (declare (not safe)) - (if (##values? _g171159_) - (##vector-length _g171159_) + (if (##values? _g172446_) + (##values-length _g172446_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171160_ 3))) + (##fx= _g172447_ 3))) (error "Context expects 3 values" - _g171160_))) - (let ((_%lift1155199%_ + _g172447_))) + (let ((_%lift1156486%_ (let () (declare (not safe)) - (##vector-ref _g171159_ 0))) - (_%lift2155200%_ + (##values-ref _g172446_ 0))) + (_%lift2156487%_ (let () (declare (not safe)) - (##vector-ref _g171159_ 1))) - (_%hd155201%_ + (##values-ref _g172446_ 1))) + (_%hd156488%_ (let () (declare (not safe)) - (##vector-ref _g171159_ 2)))) - (let* ((_%expr155203%_ - (let ((__tmp171162 + (##values-ref _g172446_ 2)))) + (let* ((_%expr156490%_ + (let ((__tmp172449 (cons '%#let-values - (cons _%hd155201%_ + (cons _%hd156488%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L155155%_ '()))))) + (cons _%L156442%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171162 - _%stx155061%_))) - (_%expr155205%_ - (let ((__tmp171163 + __tmp172449 + _%stx156348%_))) + (_%expr156492%_ + (let ((__tmp172450 (cons '%#let-values - (cons _%lift2155200%_ + (cons _%lift2156487%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr155203%_ '()))))) + (cons _%expr156490%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171163 - _%stx155061%_))) - (_%expr155207%_ - (let ((__tmp171164 + __tmp172450 + _%stx156348%_))) + (_%expr156494%_ + (let ((__tmp172451 (cons '%#let-values - (cons _%lift1155199%_ + (cons _%lift1156486%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr155205%_ '()))))) + (cons _%expr156492%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171164 - _%stx155061%_)))) + __tmp172451 + _%stx156348%_)))) (gxc#lift-top-lambda-let-values% - _%self155060%_ - _%expr155207%_))))) - (let ((_g171165_ - (_%compile-bindings155064%_ - (let ((__tmp171167 - (lambda (_%g155209155212%_ - _%g155210155214%_) - (cons _%g155209155212%_ - _%g155210155214%_)))) + _%self156347%_ + _%expr156494%_))))) + (let ((_g172452_ + (_%compile-bindings156351%_ + (let ((__tmp172454 + (lambda (_%g156496156499%_ + _%g156497156501%_) + (cons _%g156496156499%_ + _%g156497156501%_)))) (declare (not safe)) (__foldr1 - __tmp171167 + __tmp172454 '() - _%L155156%_))))) + _%L156443%_))))) (begin - (let ((_g171166_ + (let ((_g172453_ (let () (declare (not safe)) - (if (##values? _g171165_) - (##vector-length _g171165_) + (if (##values? _g172452_) + (##values-length _g172452_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171166_ 3))) + (##fx= _g172453_ 3))) (error "Context expects 3 values" - _g171166_))) - (let ((_%lift1155217%_ + _g172453_))) + (let ((_%lift1156504%_ (let () (declare (not safe)) - (##vector-ref _g171165_ 0))) - (_%lift2155218%_ + (##values-ref _g172452_ 0))) + (_%lift2156505%_ (let () (declare (not safe)) - (##vector-ref _g171165_ 1))) - (_%hd155219%_ + (##values-ref _g172452_ 1))) + (_%hd156506%_ (let () (declare (not safe)) - (##vector-ref _g171165_ 2)))) - (let* ((_%body155221%_ + (##values-ref _g172452_ 2)))) + (let* ((_%body156508%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self155060%_ - _%L155155%_))) - (_%expr155223%_ - (let ((__tmp171168 + _%self156347%_ + _%L156442%_))) + (_%expr156510%_ + (let ((__tmp172455 (cons '%#let-values - (cons _%hd155219%_ + (cons _%hd156506%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%body155221%_ '()))))) + (cons _%body156508%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171168 - _%stx155061%_))) - (_%expr155225%_ - (if (null? _%lift2155218%_) - _%expr155223%_ - (let ((__tmp171169 + __tmp172455 + _%stx156348%_))) + (_%expr156512%_ + (if (null? _%lift2156505%_) + _%expr156510%_ + (let ((__tmp172456 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift2155218%_ (cons _%expr155223%_ '()))))) + (cons _%lift2156505%_ (cons _%expr156510%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171169 _%stx155061%_)))) + (gxc#xform-wrap-source __tmp172456 _%stx156348%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%expr155227%_ - (if (null? _%lift1155217%_) - _%expr155225%_ - (let ((__tmp171170 + (_%expr156514%_ + (if (null? _%lift1156504%_) + _%expr156512%_ + (let ((__tmp172457 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift1155217%_ (cons _%expr155225%_ '()))))) + (cons _%lift1156504%_ (cons _%expr156512%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171170 _%stx155061%_))))) + (gxc#xform-wrap-source __tmp172457 _%stx156348%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%expr155227%_))))))) - (__tmp171155 - (let ((__obj170848 + _%expr156514%_))))))) + (__tmp172442 + (let ((__obj172135 (let () (declare (not safe)) (##structure @@ -22999,278 +22999,278 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj170848)) - __obj170848))) + (gx#local-context:::init!__0 __obj172135)) + __obj172135))) (declare (not safe)) (__call-with-parameters - __tmp171156 + __tmp172443 gx#current-expander-context - __tmp171155)))) - (_%__kont170601170602%_ + __tmp172442)))) + (_%__kont171888171889%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self155060%_ _%stx155061%_))))) - (let ((_%__match170622170623%_ - (lambda (_%e155073155107%_ - _%hd155074155110%_ - _%tl155075155112%_ - _%e155076155115%_ - _%hd155077155118%_ - _%tl155078155120%_ - _%__splice170599170600%_ - _%target155079155123%_ - _%tl155081155125%_) - (letrec ((_%loop155082155128%_ - (lambda (_%hd155080155131%_ - _%bind155086155133%_) + (gxc#xform-let-values% _%self156347%_ _%stx156348%_))))) + (let ((_%__match171909171910%_ + (lambda (_%e156360156394%_ + _%hd156361156397%_ + _%tl156362156399%_ + _%e156363156402%_ + _%hd156364156405%_ + _%tl156365156407%_ + _%__splice171886171887%_ + _%target156366156410%_ + _%tl156368156412%_) + (letrec ((_%loop156369156415%_ + (lambda (_%hd156367156418%_ + _%bind156373156420%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155080155131%_)) - (let ((_%e155083155136%_ + (gx#stx-pair? _%hd156367156418%_)) + (let ((_%e156370156423%_ (let () (declare (not safe)) (gx#stx-e - _%hd155080155131%_)))) - (let ((_%lp-tl155085155141%_ + _%hd156367156418%_)))) + (let ((_%lp-tl156372156428%_ (let () (declare (not safe)) - (##cdr _%e155083155136%_))) - (_%lp-hd155084155139%_ + (##cdr _%e156370156423%_))) + (_%lp-hd156371156426%_ (let () (declare (not safe)) - (##car _%e155083155136%_)))) - (_%loop155082155128%_ - _%lp-tl155085155141%_ - (cons _%lp-hd155084155139%_ - _%bind155086155133%_)))) - (let ((_%bind155087155144%_ - (reverse _%bind155086155133%_))) + (##car _%e156370156423%_)))) + (_%loop156369156415%_ + _%lp-tl156372156428%_ + (cons _%lp-hd156371156426%_ + _%bind156373156420%_)))) + (let ((_%bind156374156431%_ + (reverse _%bind156373156420%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155078155120%_)) - (let ((_%e155088155147%_ + _%tl156365156407%_)) + (let ((_%e156375156434%_ (let () (declare (not safe)) (gx#stx-e - _%tl155078155120%_)))) - (let ((_%tl155090155152%_ + _%tl156365156407%_)))) + (let ((_%tl156377156439%_ (let () (declare (not safe)) - (##cdr _%e155088155147%_))) - (_%hd155089155150%_ + (##cdr _%e156375156434%_))) + (_%hd156376156437%_ (let () (declare (not safe)) - (##car _%e155088155147%_)))) + (##car _%e156375156434%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155090155152%_)) - (let ((_%L155155%_ - _%hd155089155150%_) - (_%L155156%_ - _%bind155087155144%_)) - (if (let ((__tmp171171 + _%tl156377156439%_)) + (let ((_%L156442%_ + _%hd156376156437%_) + (_%L156443%_ + _%bind156374156431%_)) + (if (let ((__tmp172458 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171172 - (lambda (_%g155176155179%_ _%g155177155181%_) - (cons _%g155176155179%_ - _%g155177155181%_)))) + (let ((__tmp172459 + (lambda (_%g156463156466%_ _%g156464156468%_) + (cons _%g156463156466%_ + _%g156464156468%_)))) (declare (not safe)) - (__foldr1 __tmp171172 '() _%L155156%_)))) + (__foldr1 __tmp172459 '() _%L156443%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp171171)) - (_%__kont170597170598%_ _%L155155%_ _%L155156%_) - (_%__kont170601170602%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp172458)) + (_%__kont171884171885%_ _%L156442%_ _%L156443%_) + (_%__kont171888171889%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170601170602%_)))) - (_%__kont170601170602%_))))))) - (_%loop155082155128%_ _%target155079155123%_ '()))))) + (_%__kont171888171889%_)))) + (_%__kont171888171889%_))))))) + (_%loop156369156415%_ _%target156366156410%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170595170596%_)) - (let ((_%e155073155107%_ + (gx#stx-pair? _%__stx171882171883%_)) + (let ((_%e156360156394%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170595170596%_)))) - (let ((_%tl155075155112%_ + (gx#stx-e _%__stx171882171883%_)))) + (let ((_%tl156362156399%_ (let () (declare (not safe)) - (##cdr _%e155073155107%_))) - (_%hd155074155110%_ + (##cdr _%e156360156394%_))) + (_%hd156361156397%_ (let () (declare (not safe)) - (##car _%e155073155107%_)))) + (##car _%e156360156394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155075155112%_)) - (let ((_%e155076155115%_ + (gx#stx-pair? _%tl156362156399%_)) + (let ((_%e156363156402%_ (let () (declare (not safe)) - (gx#stx-e _%tl155075155112%_)))) - (let ((_%tl155078155120%_ + (gx#stx-e _%tl156362156399%_)))) + (let ((_%tl156365156407%_ (let () (declare (not safe)) - (##cdr _%e155076155115%_))) - (_%hd155077155118%_ + (##cdr _%e156363156402%_))) + (_%hd156364156405%_ (let () (declare (not safe)) - (##car _%e155076155115%_)))) + (##car _%e156363156402%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd155077155118%_)) - (let ((_%__splice170599170600%_ + (gx#stx-pair/null? _%hd156364156405%_)) + (let ((_%__splice171886171887%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd155077155118%_ + _%hd156364156405%_ '0)))) - (let ((_%tl155081155125%_ + (let ((_%tl156368156412%_ (let () (declare (not safe)) (##vector-ref - _%__splice170599170600%_ + _%__splice171886171887%_ '1))) - (_%target155079155123%_ + (_%target156366156410%_ (let () (declare (not safe)) (##vector-ref - _%__splice170599170600%_ + _%__splice171886171887%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155081155125%_)) - (_%__match170622170623%_ - _%e155073155107%_ - _%hd155074155110%_ - _%tl155075155112%_ - _%e155076155115%_ - _%hd155077155118%_ - _%tl155078155120%_ - _%__splice170599170600%_ - _%target155079155123%_ - _%tl155081155125%_) - (_%__kont170601170602%_)))) - (_%__kont170601170602%_)))) - (_%__kont170601170602%_)))) - (_%__kont170601170602%_)))))))) + _%tl156368156412%_)) + (_%__match171909171910%_ + _%e156360156394%_ + _%hd156361156397%_ + _%tl156362156399%_ + _%e156363156402%_ + _%hd156364156405%_ + _%tl156365156407%_ + _%__splice171886171887%_ + _%target156366156410%_ + _%tl156368156412%_) + (_%__kont171888171889%_)))) + (_%__kont171888171889%_)))) + (_%__kont171888171889%_)))) + (_%__kont171888171889%_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_%self154199%_ _%stx154200%_) - (letrec* ((_%bind-e__167801167802%_ - (lambda (_%id155044%_ _%expr155045%_ _%compile?155046%_) - (cons (cons _%id155044%_ '()) - (cons (if _%compile?155046%_ + (lambda (_%self155486%_ _%stx155487%_) + (letrec* ((_%bind-e__169088169089%_ + (lambda (_%id156331%_ _%expr156332%_ _%compile?156333%_) + (cons (cons _%id156331%_ '()) + (cons (if _%compile?156333%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self154199%_ - _%expr155045%_)) - _%expr155045%_) + _%self155486%_ + _%expr156332%_)) + _%expr156332%_) '())))) - (_%bind-e__0__167803167804%_ - (lambda (_%id155051%_ _%expr155052%_) - (let ((_%compile?155054%_ '#t)) - (_%bind-e__167801167802%_ - _%id155051%_ - _%expr155052%_ - _%compile?155054%_)))) - (_%bind-e154202%_ - (lambda _g171174_ - (let ((_g171173_ + (_%bind-e__0__169090169091%_ + (lambda (_%id156338%_ _%expr156339%_) + (let ((_%compile?156341%_ '#t)) + (_%bind-e__169088169089%_ + _%id156338%_ + _%expr156339%_ + _%compile?156341%_)))) + (_%bind-e155489%_ + (lambda _g172461_ + (let ((_g172460_ (let () (declare (not safe)) - (##length _g171174_)))) - (cond ((let () (declare (not safe)) (##fx= _g171173_ 2)) - (apply _%bind-e__0__167803167804%_ _g171174_)) - ((let () (declare (not safe)) (##fx= _g171173_ 3)) - (apply _%bind-e__167801167802%_ _g171174_)) + (##length _g172461_)))) + (cond ((let () (declare (not safe)) (##fx= _g172460_ 2)) + (apply _%bind-e__0__169090169091%_ _g172461_)) + ((let () (declare (not safe)) (##fx= _g172460_ 3)) + (apply _%bind-e__169088169089%_ _g172461_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g171174_)))))) - (_%compile-bindings154203%_ - (lambda (_%rest154338%_) - (let _%lp154340%_ ((_%rest154342%_ _%rest154338%_) - (_%bind154343%_ '())) - (let* ((_%rest154344154352%_ _%rest154342%_) - (_%else154346154360%_ - (lambda () (reverse _%bind154343%_))) - (_%K154348155031%_ - (lambda (_%rest154363%_ _%hd154364%_) - (let* ((_%__stx170645170646%_ _%hd154364%_) - (_%g154369154416%_ + _g172461_)))))) + (_%compile-bindings155490%_ + (lambda (_%rest155625%_) + (let _%lp155627%_ ((_%rest155629%_ _%rest155625%_) + (_%bind155630%_ '())) + (let* ((_%rest155631155639%_ _%rest155629%_) + (_%else155633155647%_ + (lambda () (reverse _%bind155630%_))) + (_%K155635156318%_ + (lambda (_%rest155650%_ _%hd155651%_) + (let* ((_%__stx171932171933%_ _%hd155651%_) + (_%g155656155703%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170645170646%_))))) - (let ((_%__kont170647170648%_ - (lambda (_%L154937%_ _%L154938%_) - (let* ((_%__stx170625170626%_ - _%L154937%_) - (_%g154953154967%_ + _%__stx171932171933%_))))) + (let ((_%__kont171934171935%_ + (lambda (_%L156224%_ _%L156225%_) + (let* ((_%__stx171912171913%_ + _%L156224%_) + (_%g156240156254%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170625170626%_))))) - (let ((_%__kont170627170628%_ - (lambda (_%L155016%_) - (_%lp154340%_ - _%rest154363%_ - (cons (_%bind-e__167801167802%_ - _%L154938%_ - _%L154937%_ + _%__stx171912171913%_))))) + (let ((_%__kont171914171915%_ + (lambda (_%L156303%_) + (_%lp155627%_ + _%rest155650%_ + (cons (_%bind-e__169088169089%_ + _%L156225%_ + _%L156224%_ '#f) - _%bind154343%_)))) - (_%__kont170629170630%_ - (lambda (_%L154980%_) - (let ((_g171175_ + _%bind155630%_)))) + (_%__kont171916171917%_ + (lambda (_%L156267%_) + (let ((_g172462_ (gxc#lift-case-lambda-clauses__% - _%stx154200%_ - _%L154938%_ - _%L154980%_ + _%stx155487%_ + _%L156225%_ + _%L156267%_ '#t))) (begin - (let ((_g171176_ + (let ((_g172463_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g171175_) - (##vector-length _g171175_) + (if (##values? _g172462_) + (##values-length _g172462_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171176_ 3))) - (error "Context expects 3 values" _g171176_))) - (let ((_%ids154990%_ + (##fx= _g172463_ 3))) + (error "Context expects 3 values" _g172463_))) + (let ((_%ids156277%_ (let () (declare (not safe)) - (##vector-ref _g171175_ 0))) - (_%impls154991%_ + (##values-ref _g172462_ 0))) + (_%impls156278%_ (let () (declare (not safe)) - (##vector-ref _g171175_ 1))) - (_%clauses154992%_ + (##values-ref _g172462_ 1))) + (_%clauses156279%_ (let () (declare (not safe)) - (##vector-ref _g171175_ 2)))) - (let* ((_%_154994%_ - (for-each gx#core-bind-runtime! _%ids154990%_)) - (_%xbind154996%_ - (map _%bind-e154202%_ - _%ids154990%_ - _%impls154991%_)) - (_%expr*154998%_ - (let ((__tmp171178 - (cons '%#case-lambda _%clauses154992%_)) - (__tmp171177 + (##values-ref _g172462_ 2)))) + (let* ((_%_156281%_ + (for-each gx#core-bind-runtime! _%ids156277%_)) + (_%xbind156283%_ + (map _%bind-e155489%_ + _%ids156277%_ + _%impls156278%_)) + (_%expr*156285%_ + (let ((__tmp172465 + (cons '%#case-lambda _%clauses156279%_)) + (__tmp172464 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -23278,1015 +23278,1015 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171178 - __tmp171177))) - (_%bind*155000%_ - (_%bind-e__167801167802%_ - _%L154938%_ - _%expr*154998%_ + __tmp172465 + __tmp172464))) + (_%bind*156287%_ + (_%bind-e__169088169089%_ + _%L156225%_ + _%expr*156285%_ '#f))) - (let ((__tmp171180 + (let ((__tmp172467 (let () (declare (not safe)) - (gxc#identifier-symbol _%L154938%_))) - (__tmp171179 - (map gxc#identifier-symbol _%ids154990%_))) + (gxc#identifier-symbol _%L156225%_))) + (__tmp172466 + (map gxc#identifier-symbol _%ids156277%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp171180 + __tmp172467 '" => " - __tmp171179)) - (_%lp154340%_ - _%rest154363%_ - (cons _%bind*155000%_ + __tmp172466)) + (_%lp155627%_ + _%rest155650%_ + (cons _%bind*156287%_ (let () (declare (not safe)) (__foldl1 cons - _%bind154343%_ - _%xbind154996%_))))))))))) + _%bind155630%_ + _%xbind156283%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match170636170637%_ - (lambda (_%e154956155008%_ - _%hd154957155011%_ - _%tl154958155013%_) - (let ((_%L155016%_ - _%tl154958155013%_)) + (let ((_%__match171923171924%_ + (lambda (_%e156243156295%_ + _%hd156244156298%_ + _%tl156245156300%_) + (let ((_%L156303%_ + _%tl156245156300%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L155016%_)) - (_%__kont170627170628%_ _%L155016%_) - (_%__kont170629170630%_ _%tl154958155013%_)))))) + (__andmap1 gxc#dispatch-lambda-form? _%L156303%_)) + (_%__kont171914171915%_ _%L156303%_) + (_%__kont171916171917%_ _%tl156245156300%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170625170626%_)) - (let ((_%e154956155008%_ + _%__stx171912171913%_)) + (let ((_%e156243156295%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx170625170626%_)))) - (let ((_%tl154958155013%_ - (let () (declare (not safe)) (##cdr _%e154956155008%_))) - (_%hd154957155011%_ + (gx#stx-e _%__stx171912171913%_)))) + (let ((_%tl156245156300%_ + (let () (declare (not safe)) (##cdr _%e156243156295%_))) + (_%hd156244156298%_ (let () (declare (not safe)) - (##car _%e154956155008%_)))) - (_%__match170636170637%_ - _%e154956155008%_ - _%hd154957155011%_ - _%tl154958155013%_))) - (let () (declare (not safe)) (_%g154953154967%_)))))))) + (##car _%e156243156295%_)))) + (_%__match171923171924%_ + _%e156243156295%_ + _%hd156244156298%_ + _%tl156245156300%_))) + (let () (declare (not safe)) (_%g156240156254%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170649170650%_ - (lambda (_%L154764%_ _%L154765%_) - (let* ((_%g154779154809%_ - (lambda (_%g154780154806%_) + (_%__kont171936171937%_ + (lambda (_%L156051%_ _%L156052%_) + (let* ((_%g156066156096%_ + (lambda (_%g156067156093%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154780154806%_)))) - (_%g154778154905%_ - (lambda (_%g154780154812%_) + _%g156067156093%_)))) + (_%g156065156192%_ + (lambda (_%g156067156099%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g154780154812%_)) - (let ((_%e154784154814%_ + _%g156067156099%_)) + (let ((_%e156071156101%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g154780154812%_)))) - (let ((_%hd154785154817%_ + (gx#stx-e _%g156067156099%_)))) + (let ((_%hd156072156104%_ (let () (declare (not safe)) - (##car _%e154784154814%_))) - (_%tl154786154819%_ + (##car _%e156071156101%_))) + (_%tl156073156106%_ (let () (declare (not safe)) - (##cdr _%e154784154814%_)))) + (##cdr _%e156071156101%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154786154819%_)) - (let ((_%e154787154822%_ + (gx#stx-pair? _%tl156073156106%_)) + (let ((_%e156074156109%_ (let () (declare (not safe)) - (gx#stx-e _%tl154786154819%_)))) - (let ((_%hd154788154825%_ + (gx#stx-e _%tl156073156106%_)))) + (let ((_%hd156075156112%_ (let () (declare (not safe)) - (##car _%e154787154822%_))) - (_%tl154789154827%_ + (##car _%e156074156109%_))) + (_%tl156076156114%_ (let () (declare (not safe)) - (##cdr _%e154787154822%_)))) + (##cdr _%e156074156109%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154788154825%_)) - (let ((_%e154790154830%_ + (gx#stx-pair? _%hd156075156112%_)) + (let ((_%e156077156117%_ (let () (declare (not safe)) - (gx#stx-e _%hd154788154825%_)))) - (let ((_%hd154791154833%_ + (gx#stx-e _%hd156075156112%_)))) + (let ((_%hd156078156120%_ (let () (declare (not safe)) - (##car _%e154790154830%_))) - (_%tl154792154835%_ + (##car _%e156077156117%_))) + (_%tl156079156122%_ (let () (declare (not safe)) - (##cdr _%e154790154830%_)))) + (##cdr _%e156077156117%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154791154833%_)) - (let ((_%e154793154838%_ + (gx#stx-pair? _%hd156078156120%_)) + (let ((_%e156080156125%_ (let () (declare (not safe)) (gx#stx-e - _%hd154791154833%_)))) - (let ((_%hd154794154841%_ + _%hd156078156120%_)))) + (let ((_%hd156081156128%_ (let () (declare (not safe)) - (##car _%e154793154838%_))) - (_%tl154795154843%_ + (##car _%e156080156125%_))) + (_%tl156082156130%_ (let () (declare (not safe)) - (##cdr _%e154793154838%_)))) + (##cdr _%e156080156125%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154794154841%_)) - (let ((_%e154796154846%_ + _%hd156081156128%_)) + (let ((_%e156083156133%_ (let () (declare (not safe)) (gx#stx-e - _%hd154794154841%_)))) - (let ((_%hd154797154849%_ + _%hd156081156128%_)))) + (let ((_%hd156084156136%_ (let () (declare (not safe)) - (##car _%e154796154846%_))) - (_%tl154798154851%_ + (##car _%e156083156133%_))) + (_%tl156085156138%_ (let () (declare (not safe)) - (##cdr _%e154796154846%_)))) + (##cdr _%e156083156133%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154798154851%_)) + _%tl156085156138%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl154795154843%_)) - (let ((_%e154799154854%_ + (gx#stx-pair? _%tl156082156130%_)) + (let ((_%e156086156141%_ (let () (declare (not safe)) - (gx#stx-e _%tl154795154843%_)))) - (let ((_%hd154800154857%_ + (gx#stx-e _%tl156082156130%_)))) + (let ((_%hd156087156144%_ (let () (declare (not safe)) - (##car _%e154799154854%_))) - (_%tl154801154859%_ + (##car _%e156086156141%_))) + (_%tl156088156146%_ (let () (declare (not safe)) - (##cdr _%e154799154854%_)))) + (##cdr _%e156086156141%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154801154859%_)) + (gx#stx-null? _%tl156088156146%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154792154835%_)) + (gx#stx-null? _%tl156079156122%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154789154827%_)) - (let ((_%e154802154862%_ + (gx#stx-pair? _%tl156076156114%_)) + (let ((_%e156089156149%_ (let () (declare (not safe)) - (gx#stx-e _%tl154789154827%_)))) - (let ((_%hd154803154865%_ + (gx#stx-e _%tl156076156114%_)))) + (let ((_%hd156090156152%_ (let () (declare (not safe)) - (##car _%e154802154862%_))) - (_%tl154804154867%_ + (##car _%e156089156149%_))) + (_%tl156091156154%_ (let () (declare (not safe)) - (##cdr _%e154802154862%_)))) + (##cdr _%e156089156149%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154804154867%_)) - ((lambda (_%L154870%_ - _%L154871%_ - _%L154872%_) - (let* ((_%lambda-id154896%_ - (let ((__tmp171182 + _%tl156091156154%_)) + ((lambda (_%L156157%_ + _%L156158%_ + _%L156159%_) + (let* ((_%lambda-id156183%_ + (let ((__tmp172469 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L154765%_))) - (__tmp171181 + (gx#stx-e _%L156052%_))) + (__tmp172468 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp171182 __tmp171181))) - (_%lambda-id154898%_ - (let ((__tmp171183 + (make-symbol__1 __tmp172469 __tmp172468))) + (_%lambda-id156185%_ + (let ((__tmp172470 (let () (declare (not safe)) - (gx#stx-source _%stx154200%_)))) + (gx#stx-source _%stx155487%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id154896%_ __tmp171183))) - (_%_154900%_ + (gx#core-quote-syntax__1 _%lambda-id156183%_ __tmp172470))) + (_%_156187%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id154898%_))) - (_%new-case-lambda-expr154902%_ + (gx#core-bind-runtime!__0 _%lambda-id156185%_))) + (_%new-case-lambda-expr156189%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154872%_ - _%lambda-id154898%_ - _%L154870%_)))) + _%L156159%_ + _%lambda-id156185%_ + _%L156157%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171185 + (let ((__tmp172472 (let () (declare (not safe)) (gxc#identifier-symbol - _%L154765%_))) - (__tmp171184 + _%L156052%_))) + (__tmp172471 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id154898%_)))) + _%lambda-id156185%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp171185 + __tmp172472 '" => " - __tmp171184)) - (_%lp154340%_ - (cons (_%bind-e__167801167802%_ - _%L154765%_ - _%new-case-lambda-expr154902%_ + __tmp172471)) + (_%lp155627%_ + (cons (_%bind-e__169088169089%_ + _%L156052%_ + _%new-case-lambda-expr156189%_ '#f) - _%rest154363%_) - (cons (_%bind-e__0__167803167804%_ - _%lambda-id154898%_ - _%L154871%_) - _%bind154343%_)))) - _%hd154803154865%_ - _%hd154800154857%_ - _%hd154797154849%_) - (_%g154779154809%_ - _%g154780154812%_)))) - (_%g154779154809%_ _%g154780154812%_)) - (_%g154779154809%_ _%g154780154812%_)) - (_%g154779154809%_ _%g154780154812%_)))) - (_%g154779154809%_ _%g154780154812%_)) - (_%g154779154809%_ _%g154780154812%_)))) + _%rest155650%_) + (cons (_%bind-e__0__169090169091%_ + _%lambda-id156185%_ + _%L156158%_) + _%bind155630%_)))) + _%hd156090156152%_ + _%hd156087156144%_ + _%hd156084156136%_) + (_%g156066156096%_ + _%g156067156099%_)))) + (_%g156066156096%_ _%g156067156099%_)) + (_%g156066156096%_ _%g156067156099%_)) + (_%g156066156096%_ _%g156067156099%_)))) + (_%g156066156096%_ _%g156067156099%_)) + (_%g156066156096%_ _%g156067156099%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154779154809%_ - _%g154780154812%_)))) - (_%g154779154809%_ - _%g154780154812%_)))) - (_%g154779154809%_ _%g154780154812%_)))) - (_%g154779154809%_ _%g154780154812%_)))) - (_%g154779154809%_ _%g154780154812%_))))) + (_%g156066156096%_ + _%g156067156099%_)))) + (_%g156066156096%_ + _%g156067156099%_)))) + (_%g156066156096%_ _%g156067156099%_)))) + (_%g156066156096%_ _%g156067156099%_)))) + (_%g156066156096%_ _%g156067156099%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154778154905%_ - _%L154764%_)))) - (_%__kont170651170652%_ - (lambda (_%L154486%_ _%L154487%_) - (let* ((_%g154501154554%_ - (lambda (_%g154502154551%_) + (_%g156065156192%_ + _%L156051%_)))) + (_%__kont171938171939%_ + (lambda (_%L155773%_ _%L155774%_) + (let* ((_%g155788155841%_ + (lambda (_%g155789155838%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154502154551%_)))) - (_%g154500154732%_ - (lambda (_%g154502154557%_) + _%g155789155838%_)))) + (_%g155787156019%_ + (lambda (_%g155789155844%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g154502154557%_)) - (let ((_%e154508154559%_ + _%g155789155844%_)) + (let ((_%e155795155846%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g154502154557%_)))) - (let ((_%hd154509154562%_ + (gx#stx-e _%g155789155844%_)))) + (let ((_%hd155796155849%_ (let () (declare (not safe)) - (##car _%e154508154559%_))) - (_%tl154510154564%_ + (##car _%e155795155846%_))) + (_%tl155797155851%_ (let () (declare (not safe)) - (##cdr _%e154508154559%_)))) + (##cdr _%e155795155846%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154510154564%_)) - (let ((_%e154511154567%_ + (gx#stx-pair? _%tl155797155851%_)) + (let ((_%e155798155854%_ (let () (declare (not safe)) - (gx#stx-e _%tl154510154564%_)))) - (let ((_%hd154512154570%_ + (gx#stx-e _%tl155797155851%_)))) + (let ((_%hd155799155857%_ (let () (declare (not safe)) - (##car _%e154511154567%_))) - (_%tl154513154572%_ + (##car _%e155798155854%_))) + (_%tl155800155859%_ (let () (declare (not safe)) - (##cdr _%e154511154567%_)))) + (##cdr _%e155798155854%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154512154570%_)) - (let ((_%e154514154575%_ + (gx#stx-pair? _%hd155799155857%_)) + (let ((_%e155801155862%_ (let () (declare (not safe)) - (gx#stx-e _%hd154512154570%_)))) - (let ((_%hd154515154578%_ + (gx#stx-e _%hd155799155857%_)))) + (let ((_%hd155802155865%_ (let () (declare (not safe)) - (##car _%e154514154575%_))) - (_%tl154516154580%_ + (##car _%e155801155862%_))) + (_%tl155803155867%_ (let () (declare (not safe)) - (##cdr _%e154514154575%_)))) + (##cdr _%e155801155862%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154515154578%_)) - (let ((_%e154517154583%_ + (gx#stx-pair? _%hd155802155865%_)) + (let ((_%e155804155870%_ (let () (declare (not safe)) (gx#stx-e - _%hd154515154578%_)))) - (let ((_%hd154518154586%_ + _%hd155802155865%_)))) + (let ((_%hd155805155873%_ (let () (declare (not safe)) - (##car _%e154517154583%_))) - (_%tl154519154588%_ + (##car _%e155804155870%_))) + (_%tl155806155875%_ (let () (declare (not safe)) - (##cdr _%e154517154583%_)))) + (##cdr _%e155804155870%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154518154586%_)) - (let ((_%e154520154591%_ + _%hd155805155873%_)) + (let ((_%e155807155878%_ (let () (declare (not safe)) (gx#stx-e - _%hd154518154586%_)))) - (let ((_%hd154521154594%_ + _%hd155805155873%_)))) + (let ((_%hd155808155881%_ (let () (declare (not safe)) - (##car _%e154520154591%_))) - (_%tl154522154596%_ + (##car _%e155807155878%_))) + (_%tl155809155883%_ (let () (declare (not safe)) - (##cdr _%e154520154591%_)))) + (##cdr _%e155807155878%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154522154596%_)) + _%tl155809155883%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl154519154588%_)) - (let ((_%e154523154599%_ + (gx#stx-pair? _%tl155806155875%_)) + (let ((_%e155810155886%_ (let () (declare (not safe)) - (gx#stx-e _%tl154519154588%_)))) - (let ((_%hd154524154602%_ + (gx#stx-e _%tl155806155875%_)))) + (let ((_%hd155811155889%_ (let () (declare (not safe)) - (##car _%e154523154599%_))) - (_%tl154525154604%_ + (##car _%e155810155886%_))) + (_%tl155812155891%_ (let () (declare (not safe)) - (##cdr _%e154523154599%_)))) + (##cdr _%e155810155886%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154524154602%_)) - (let ((_%e154526154607%_ + (gx#stx-pair? _%hd155811155889%_)) + (let ((_%e155813155894%_ (let () (declare (not safe)) - (gx#stx-e _%hd154524154602%_)))) - (let ((_%hd154527154610%_ + (gx#stx-e _%hd155811155889%_)))) + (let ((_%hd155814155897%_ (let () (declare (not safe)) - (##car _%e154526154607%_))) - (_%tl154528154612%_ + (##car _%e155813155894%_))) + (_%tl155815155899%_ (let () (declare (not safe)) - (##cdr _%e154526154607%_)))) + (##cdr _%e155813155894%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154528154612%_)) - (let ((_%e154529154615%_ + (gx#stx-pair? _%tl155815155899%_)) + (let ((_%e155816155902%_ (let () (declare (not safe)) - (gx#stx-e _%tl154528154612%_)))) - (let ((_%hd154530154618%_ + (gx#stx-e _%tl155815155899%_)))) + (let ((_%hd155817155905%_ (let () (declare (not safe)) - (##car _%e154529154615%_))) - (_%tl154531154620%_ + (##car _%e155816155902%_))) + (_%tl155818155907%_ (let () (declare (not safe)) - (##cdr _%e154529154615%_)))) + (##cdr _%e155816155902%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154530154618%_)) - (let ((_%e154532154623%_ + _%hd155817155905%_)) + (let ((_%e155819155910%_ (let () (declare (not safe)) (gx#stx-e - _%hd154530154618%_)))) - (let ((_%hd154533154626%_ + _%hd155817155905%_)))) + (let ((_%hd155820155913%_ (let () (declare (not safe)) - (##car _%e154532154623%_))) - (_%tl154534154628%_ + (##car _%e155819155910%_))) + (_%tl155821155915%_ (let () (declare (not safe)) - (##cdr _%e154532154623%_)))) + (##cdr _%e155819155910%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154533154626%_)) - (let ((_%e154535154631%_ + _%hd155820155913%_)) + (let ((_%e155822155918%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd154533154626%_)))) - (let ((_%hd154536154634%_ - (let () (declare (not safe)) (##car _%e154535154631%_))) - (_%tl154537154636%_ + (gx#stx-e _%hd155820155913%_)))) + (let ((_%hd155823155921%_ + (let () (declare (not safe)) (##car _%e155822155918%_))) + (_%tl155824155923%_ (let () (declare (not safe)) - (##cdr _%e154535154631%_)))) + (##cdr _%e155822155918%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154536154634%_)) - (let ((_%e154538154639%_ + (gx#stx-pair? _%hd155823155921%_)) + (let ((_%e155825155926%_ (let () (declare (not safe)) - (gx#stx-e _%hd154536154634%_)))) - (let ((_%hd154539154642%_ + (gx#stx-e _%hd155823155921%_)))) + (let ((_%hd155826155929%_ (let () (declare (not safe)) - (##car _%e154538154639%_))) - (_%tl154540154644%_ + (##car _%e155825155926%_))) + (_%tl155827155931%_ (let () (declare (not safe)) - (##cdr _%e154538154639%_)))) + (##cdr _%e155825155926%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154540154644%_)) + (gx#stx-null? _%tl155827155931%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154537154636%_)) - (let ((_%e154541154647%_ + (gx#stx-pair? _%tl155824155923%_)) + (let ((_%e155828155934%_ (let () (declare (not safe)) - (gx#stx-e _%tl154537154636%_)))) - (let ((_%hd154542154650%_ + (gx#stx-e _%tl155824155923%_)))) + (let ((_%hd155829155937%_ (let () (declare (not safe)) - (##car _%e154541154647%_))) - (_%tl154543154652%_ + (##car _%e155828155934%_))) + (_%tl155830155939%_ (let () (declare (not safe)) - (##cdr _%e154541154647%_)))) + (##cdr _%e155828155934%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154543154652%_)) + (gx#stx-null? _%tl155830155939%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154534154628%_)) + _%tl155821155915%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154531154620%_)) - (let ((_%e154544154655%_ + _%tl155818155907%_)) + (let ((_%e155831155942%_ (let () (declare (not safe)) (gx#stx-e - _%tl154531154620%_)))) - (let ((_%hd154545154658%_ + _%tl155818155907%_)))) + (let ((_%hd155832155945%_ (let () (declare (not safe)) - (##car _%e154544154655%_))) - (_%tl154546154660%_ + (##car _%e155831155942%_))) + (_%tl155833155947%_ (let () (declare (not safe)) - (##cdr _%e154544154655%_)))) + (##cdr _%e155831155942%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154546154660%_)) + _%tl155833155947%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl154525154604%_)) + (gx#stx-null? _%tl155812155891%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154516154580%_)) + (gx#stx-null? _%tl155803155867%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154513154572%_)) - (let ((_%e154547154663%_ + (gx#stx-pair? _%tl155800155859%_)) + (let ((_%e155834155950%_ (let () (declare (not safe)) - (gx#stx-e _%tl154513154572%_)))) - (let ((_%hd154548154666%_ + (gx#stx-e _%tl155800155859%_)))) + (let ((_%hd155835155953%_ (let () (declare (not safe)) - (##car _%e154547154663%_))) - (_%tl154549154668%_ + (##car _%e155834155950%_))) + (_%tl155836155955%_ (let () (declare (not safe)) - (##cdr _%e154547154663%_)))) + (##cdr _%e155834155950%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154549154668%_)) - ((lambda (_%L154671%_ - _%L154672%_ - _%L154673%_ - _%L154674%_ - _%L154675%_) - (let* ((_%get-kws-id154715%_ - (let ((__tmp171187 + (gx#stx-null? _%tl155836155955%_)) + ((lambda (_%L155958%_ + _%L155959%_ + _%L155960%_ + _%L155961%_ + _%L155962%_) + (let* ((_%get-kws-id156002%_ + (let ((__tmp172474 (let () (declare (not safe)) (gx#stx-e - _%L154487%_))) - (__tmp171186 + _%L155774%_))) + (__tmp172473 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171187 - __tmp171186))) - (_%get-kws-id154717%_ - (let ((__tmp171188 + __tmp172474 + __tmp172473))) + (_%get-kws-id156004%_ + (let ((__tmp172475 (let () (declare (not safe)) (gx#stx-source - _%stx154200%_)))) + _%stx155487%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id154715%_ - __tmp171188))) - (_%main-id154719%_ - (let ((__tmp171190 + _%get-kws-id156002%_ + __tmp172475))) + (_%main-id156006%_ + (let ((__tmp172477 (let () (declare (not safe)) (gx#stx-e - _%L154487%_))) - (__tmp171189 + _%L155774%_))) + (__tmp172476 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171190 - __tmp171189))) - (_%main-id154721%_ - (let ((__tmp171191 + __tmp172477 + __tmp172476))) + (_%main-id156008%_ + (let ((__tmp172478 (let () (declare (not safe)) (gx#stx-source - _%stx154200%_)))) + _%stx155487%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id154719%_ - __tmp171191))) - (_%_154723%_ + _%main-id156006%_ + __tmp172478))) + (_%_156010%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id154717%_))) - (_%_154725%_ + _%get-kws-id156004%_))) + (_%_156012%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id154721%_))) - (_%new-kw-dispatch154727%_ + _%main-id156008%_))) + (_%new-kw-dispatch156014%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154675%_ - _%get-kws-id154717%_ - _%L154671%_))) - (_%new-get-kws154729%_ + _%L155962%_ + _%get-kws-id156004%_ + _%L155958%_))) + (_%new-get-kws156016%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154674%_ - _%main-id154721%_ - _%L154672%_)))) - (let ((__tmp171194 + _%L155961%_ + _%main-id156008%_ + _%L155959%_)))) + (let ((__tmp172481 (let () (declare (not safe)) (gxc#identifier-symbol - _%L154487%_))) - (__tmp171193 + _%L155774%_))) + (__tmp172480 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id154717%_))) - (__tmp171192 + _%get-kws-id156004%_))) + (__tmp172479 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id154721%_)))) + _%main-id156008%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp171194 + __tmp172481 '" => " - __tmp171193 + __tmp172480 '" => " - __tmp171192)) - (_%lp154340%_ - (cons (_%bind-e__167801167802%_ - _%main-id154721%_ - _%L154673%_ + __tmp172479)) + (_%lp155627%_ + (cons (_%bind-e__169088169089%_ + _%main-id156008%_ + _%L155960%_ '#f) - (cons (_%bind-e__167801167802%_ - _%get-kws-id154717%_ - _%new-get-kws154729%_ + (cons (_%bind-e__169088169089%_ + _%get-kws-id156004%_ + _%new-get-kws156016%_ '#f) - (cons (_%bind-e__167801167802%_ - _%L154487%_ - _%new-kw-dispatch154727%_ + (cons (_%bind-e__169088169089%_ + _%L155774%_ + _%new-kw-dispatch156014%_ '#f) - _%rest154363%_))) - _%bind154343%_))) - _%hd154548154666%_ - _%hd154545154658%_ - _%hd154542154650%_ - _%hd154539154642%_ - _%hd154521154594%_) - (_%g154501154554%_ _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)) - (_%g154501154554%_ _%g154502154557%_)) - (_%g154501154554%_ _%g154502154557%_)) - (_%g154501154554%_ _%g154502154557%_)))) + _%rest155650%_))) + _%bind155630%_))) + _%hd155835155953%_ + _%hd155832155945%_ + _%hd155829155937%_ + _%hd155826155929%_ + _%hd155808155881%_) + (_%g155788155841%_ _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)) + (_%g155788155841%_ _%g155789155844%_)) + (_%g155788155841%_ _%g155789155844%_)) + (_%g155788155841%_ _%g155789155844%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154501154554%_ - _%g154502154557%_)) - (_%g154501154554%_ - _%g154502154557%_)) - (_%g154501154554%_ - _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)) - (_%g154501154554%_ _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)))) + (_%g155788155841%_ + _%g155789155844%_)) + (_%g155788155841%_ + _%g155789155844%_)) + (_%g155788155841%_ + _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)) + (_%g155788155841%_ _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154501154554%_ - _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)) - (_%g154501154554%_ _%g154502154557%_)))) + (_%g155788155841%_ + _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)) + (_%g155788155841%_ _%g155789155844%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154501154554%_ - _%g154502154557%_)))) - (_%g154501154554%_ - _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_)))) - (_%g154501154554%_ _%g154502154557%_))))) + (_%g155788155841%_ + _%g155789155844%_)))) + (_%g155788155841%_ + _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_)))) + (_%g155788155841%_ _%g155789155844%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154500154732%_ - _%L154486%_)))) - (_%__kont170653170654%_ - (lambda (_%L154437%_ _%L154438%_) - (_%lp154340%_ - _%rest154363%_ - (cons (cons _%L154438%_ + (_%g155787156019%_ + _%L155773%_)))) + (_%__kont171940171941%_ + (lambda (_%L155724%_ _%L155725%_) + (_%lp155627%_ + _%rest155650%_ + (cons (cons _%L155725%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self154199%_ _%L154437%_)) + (gxc#compile-e__1 _%self155486%_ _%L155724%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind154343%_))))) - (let* ((_%__match170720170721%_ - (lambda (_%e154395154462%_ - _%hd154396154465%_ - _%tl154397154467%_ - _%e154398154470%_ - _%hd154399154473%_ - _%tl154400154475%_ - _%e154401154478%_ - _%hd154402154481%_ - _%tl154403154483%_) - (let ((_%L154486%_ - _%hd154402154481%_) - (_%L154487%_ - _%hd154399154473%_)) + _%bind155630%_))))) + (let* ((_%__match172007172008%_ + (lambda (_%e155682155749%_ + _%hd155683155752%_ + _%tl155684155754%_ + _%e155685155757%_ + _%hd155686155760%_ + _%tl155687155762%_ + _%e155688155765%_ + _%hd155689155768%_ + _%tl155690155770%_) + (let ((_%L155773%_ + _%hd155689155768%_) + (_%L155774%_ + _%hd155686155760%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L154487%_)) + _%L155774%_)) (gxc#kw-lambda-expr? - _%L154486%_)) - (_%__kont170651170652%_ - _%L154486%_ - _%L154487%_) - (_%__kont170653170654%_ - _%hd154402154481%_ - _%hd154396154465%_))))) - (_%__match170698170699%_ - (lambda (_%e154384154740%_ - _%hd154385154743%_ - _%tl154386154745%_ - _%e154387154748%_ - _%hd154388154751%_ - _%tl154389154753%_ - _%e154390154756%_ - _%hd154391154759%_ - _%tl154392154761%_) - (let ((_%L154764%_ - _%hd154391154759%_) - (_%L154765%_ - _%hd154388154751%_)) + _%L155773%_)) + (_%__kont171938171939%_ + _%L155773%_ + _%L155774%_) + (_%__kont171940171941%_ + _%hd155689155768%_ + _%hd155683155752%_))))) + (_%__match171985171986%_ + (lambda (_%e155671156027%_ + _%hd155672156030%_ + _%tl155673156032%_ + _%e155674156035%_ + _%hd155675156038%_ + _%tl155676156040%_ + _%e155677156043%_ + _%hd155678156046%_ + _%tl155679156048%_) + (let ((_%L156051%_ + _%hd155678156046%_) + (_%L156052%_ + _%hd155675156038%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L154765%_)) + _%L156052%_)) (gxc#opt-lambda-expr? - _%L154764%_)) - (_%__kont170649170650%_ - _%L154764%_ - _%L154765%_) - (_%__match170720170721%_ - _%e154384154740%_ - _%hd154385154743%_ - _%tl154386154745%_ - _%e154387154748%_ - _%hd154388154751%_ - _%tl154389154753%_ - _%e154390154756%_ - _%hd154391154759%_ - _%tl154392154761%_))))) - (_%__match170676170677%_ - (lambda (_%e154373154913%_ - _%hd154374154916%_ - _%tl154375154918%_ - _%e154376154921%_ - _%hd154377154924%_ - _%tl154378154926%_ - _%e154379154929%_ - _%hd154380154932%_ - _%tl154381154934%_) - (let ((_%L154937%_ - _%hd154380154932%_) - (_%L154938%_ - _%hd154377154924%_)) + _%L156051%_)) + (_%__kont171936171937%_ + _%L156051%_ + _%L156052%_) + (_%__match172007172008%_ + _%e155671156027%_ + _%hd155672156030%_ + _%tl155673156032%_ + _%e155674156035%_ + _%hd155675156038%_ + _%tl155676156040%_ + _%e155677156043%_ + _%hd155678156046%_ + _%tl155679156048%_))))) + (_%__match171963171964%_ + (lambda (_%e155660156200%_ + _%hd155661156203%_ + _%tl155662156205%_ + _%e155663156208%_ + _%hd155664156211%_ + _%tl155665156213%_ + _%e155666156216%_ + _%hd155667156219%_ + _%tl155668156221%_) + (let ((_%L156224%_ + _%hd155667156219%_) + (_%L156225%_ + _%hd155664156211%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L154938%_)) + _%L156225%_)) (gxc#case-lambda-expr? - _%L154937%_)) - (_%__kont170647170648%_ - _%L154937%_ - _%L154938%_) - (_%__match170698170699%_ - _%e154373154913%_ - _%hd154374154916%_ - _%tl154375154918%_ - _%e154376154921%_ - _%hd154377154924%_ - _%tl154378154926%_ - _%e154379154929%_ - _%hd154380154932%_ - _%tl154381154934%_)))))) + _%L156224%_)) + (_%__kont171934171935%_ + _%L156224%_ + _%L156225%_) + (_%__match171985171986%_ + _%e155660156200%_ + _%hd155661156203%_ + _%tl155662156205%_ + _%e155663156208%_ + _%hd155664156211%_ + _%tl155665156213%_ + _%e155666156216%_ + _%hd155667156219%_ + _%tl155668156221%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170645170646%_)) - (let ((_%e154373154913%_ + _%__stx171932171933%_)) + (let ((_%e155660156200%_ (let () (declare (not safe)) (gx#stx-e - _%__stx170645170646%_)))) - (let ((_%tl154375154918%_ + _%__stx171932171933%_)))) + (let ((_%tl155662156205%_ (let () (declare (not safe)) - (##cdr _%e154373154913%_))) - (_%hd154374154916%_ + (##cdr _%e155660156200%_))) + (_%hd155661156203%_ (let () (declare (not safe)) - (##car _%e154373154913%_)))) + (##car _%e155660156200%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154374154916%_)) - (let ((_%e154376154921%_ + _%hd155661156203%_)) + (let ((_%e155663156208%_ (let () (declare (not safe)) (gx#stx-e - _%hd154374154916%_)))) - (let ((_%tl154378154926%_ + _%hd155661156203%_)))) + (let ((_%tl155665156213%_ (let () (declare (not safe)) - (##cdr _%e154376154921%_))) - (_%hd154377154924%_ + (##cdr _%e155663156208%_))) + (_%hd155664156211%_ (let () (declare (not safe)) - (##car _%e154376154921%_)))) + (##car _%e155663156208%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154378154926%_)) + _%tl155665156213%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl154375154918%_)) - (let ((_%e154379154929%_ + (gx#stx-pair? _%tl155662156205%_)) + (let ((_%e155666156216%_ (let () (declare (not safe)) - (gx#stx-e _%tl154375154918%_)))) - (let ((_%tl154381154934%_ + (gx#stx-e _%tl155662156205%_)))) + (let ((_%tl155668156221%_ (let () (declare (not safe)) - (##cdr _%e154379154929%_))) - (_%hd154380154932%_ + (##cdr _%e155666156216%_))) + (_%hd155667156219%_ (let () (declare (not safe)) - (##car _%e154379154929%_)))) + (##car _%e155666156216%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154381154934%_)) - (_%__match170676170677%_ - _%e154373154913%_ - _%hd154374154916%_ - _%tl154375154918%_ - _%e154376154921%_ - _%hd154377154924%_ - _%tl154378154926%_ - _%e154379154929%_ - _%hd154380154932%_ - _%tl154381154934%_) + (gx#stx-null? _%tl155668156221%_)) + (_%__match171963171964%_ + _%e155660156200%_ + _%hd155661156203%_ + _%tl155662156205%_ + _%e155663156208%_ + _%hd155664156211%_ + _%tl155665156213%_ + _%e155666156216%_ + _%hd155667156219%_ + _%tl155668156221%_) (let () (declare (not safe)) - (_%g154369154416%_))))) - (let () (declare (not safe)) (_%g154369154416%_))) + (_%g155656155703%_))))) + (let () (declare (not safe)) (_%g155656155703%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154375154918%_)) - (let ((_%e154409154429%_ + (gx#stx-pair? _%tl155662156205%_)) + (let ((_%e155696155716%_ (let () (declare (not safe)) - (gx#stx-e _%tl154375154918%_)))) - (let ((_%tl154411154434%_ + (gx#stx-e _%tl155662156205%_)))) + (let ((_%tl155698155721%_ (let () (declare (not safe)) - (##cdr _%e154409154429%_))) - (_%hd154410154432%_ + (##cdr _%e155696155716%_))) + (_%hd155697155719%_ (let () (declare (not safe)) - (##car _%e154409154429%_)))) + (##car _%e155696155716%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154411154434%_)) - (_%__kont170653170654%_ - _%hd154410154432%_ - _%hd154374154916%_) + (gx#stx-null? _%tl155698155721%_)) + (_%__kont171940171941%_ + _%hd155697155719%_ + _%hd155661156203%_) (let () (declare (not safe)) - (_%g154369154416%_))))) - (let () (declare (not safe)) (_%g154369154416%_)))))) + (_%g155656155703%_))))) + (let () (declare (not safe)) (_%g155656155703%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154375154918%_)) - (let ((_%e154409154429%_ + _%tl155662156205%_)) + (let ((_%e155696155716%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl154375154918%_)))) - (let ((_%tl154411154434%_ + (gx#stx-e _%tl155662156205%_)))) + (let ((_%tl155698155721%_ (let () (declare (not safe)) - (##cdr _%e154409154429%_))) - (_%hd154410154432%_ + (##cdr _%e155696155716%_))) + (_%hd155697155719%_ (let () (declare (not safe)) - (##car _%e154409154429%_)))) + (##car _%e155696155716%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154411154434%_)) - (_%__kont170653170654%_ - _%hd154410154432%_ - _%hd154374154916%_) - (let () (declare (not safe)) (_%g154369154416%_))))) - (let () (declare (not safe)) (_%g154369154416%_)))))) + (gx#stx-null? _%tl155698155721%_)) + (_%__kont171940171941%_ + _%hd155697155719%_ + _%hd155661156203%_) + (let () (declare (not safe)) (_%g155656155703%_))))) + (let () (declare (not safe)) (_%g155656155703%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g154369154416%_))))))))) - (if (pair? _%rest154344154352%_) - (let ((_%hd154349155034%_ + (_%g155656155703%_))))))))) + (if (pair? _%rest155631155639%_) + (let ((_%hd155636156321%_ (let () (declare (not safe)) - (##car _%rest154344154352%_))) - (_%tl154350155036%_ + (##car _%rest155631155639%_))) + (_%tl155637156323%_ (let () (declare (not safe)) - (##cdr _%rest154344154352%_)))) - (let* ((_%hd155039%_ _%hd154349155034%_) - (_%rest155041%_ _%tl154350155036%_)) - (_%K154348155031%_ - _%rest155041%_ - _%hd155039%_))) - (_%else154346154360%_))))))) - (let* ((_%__stx170737170738%_ _%stx154200%_) - (_%g154206154233%_ + (##cdr _%rest155631155639%_)))) + (let* ((_%hd156326%_ _%hd155636156321%_) + (_%rest156328%_ _%tl155637156323%_)) + (_%K155635156318%_ + _%rest156328%_ + _%hd156326%_))) + (_%else155633155647%_))))))) + (let* ((_%__stx172024172025%_ _%stx155487%_) + (_%g155493155520%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170737170738%_))))) - (let ((_%__kont170739170740%_ - (lambda (_%L154293%_ _%L154294%_ _%L154295%_) - (let ((__tmp171196 + _%__stx172024172025%_))))) + (let ((_%__kont172026172027%_ + (lambda (_%L155580%_ _%L155581%_ _%L155582%_) + (let ((__tmp172483 (lambda () - (let ((_%hd154332%_ - (_%compile-bindings154203%_ - (let ((__tmp171197 - (lambda (_%g154324154327%_ - _%g154325154329%_) - (cons _%g154324154327%_ - _%g154325154329%_)))) + (let ((_%hd155619%_ + (_%compile-bindings155490%_ + (let ((__tmp172484 + (lambda (_%g155611155614%_ + _%g155612155616%_) + (cons _%g155611155614%_ + _%g155612155616%_)))) (declare (not safe)) (__foldr1 - __tmp171197 + __tmp172484 '() - _%L154294%_)))) - (_%body154333%_ + _%L155581%_)))) + (_%body155620%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self154199%_ - _%L154293%_)))) - (let ((__tmp171198 - (cons _%L154295%_ - (cons _%hd154332%_ - (cons _%body154333%_ + _%self155486%_ + _%L155580%_)))) + (let ((__tmp172485 + (cons _%L155582%_ + (cons _%hd155619%_ + (cons _%body155620%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171198 - _%stx154200%_))))) - (__tmp171195 - (let ((__obj170849 + __tmp172485 + _%stx155487%_))))) + (__tmp172482 + (let ((__obj172136 (let () (declare (not safe)) (##structure @@ -24298,249 +24298,249 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj170849)) - __obj170849))) + (gx#local-context:::init!__0 __obj172136)) + __obj172136))) (declare (not safe)) (__call-with-parameters - __tmp171196 + __tmp172483 gx#current-expander-context - __tmp171195)))) - (_%__kont170743170744%_ + __tmp172482)))) + (_%__kont172030172031%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self154199%_ _%stx154200%_))))) - (let ((_%__match170764170765%_ - (lambda (_%e154211154245%_ - _%hd154212154248%_ - _%tl154213154250%_ - _%e154214154253%_ - _%hd154215154256%_ - _%tl154216154258%_ - _%__splice170741170742%_ - _%target154217154261%_ - _%tl154219154263%_) - (letrec ((_%loop154220154266%_ - (lambda (_%hd154218154269%_ - _%bind154224154271%_) + (gxc#xform-let-values% _%self155486%_ _%stx155487%_))))) + (let ((_%__match172051172052%_ + (lambda (_%e155498155532%_ + _%hd155499155535%_ + _%tl155500155537%_ + _%e155501155540%_ + _%hd155502155543%_ + _%tl155503155545%_ + _%__splice172028172029%_ + _%target155504155548%_ + _%tl155506155550%_) + (letrec ((_%loop155507155553%_ + (lambda (_%hd155505155556%_ + _%bind155511155558%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154218154269%_)) - (let ((_%e154221154274%_ + (gx#stx-pair? _%hd155505155556%_)) + (let ((_%e155508155561%_ (let () (declare (not safe)) (gx#stx-e - _%hd154218154269%_)))) - (let ((_%lp-tl154223154279%_ + _%hd155505155556%_)))) + (let ((_%lp-tl155510155566%_ (let () (declare (not safe)) - (##cdr _%e154221154274%_))) - (_%lp-hd154222154277%_ + (##cdr _%e155508155561%_))) + (_%lp-hd155509155564%_ (let () (declare (not safe)) - (##car _%e154221154274%_)))) - (_%loop154220154266%_ - _%lp-tl154223154279%_ - (cons _%lp-hd154222154277%_ - _%bind154224154271%_)))) - (let ((_%bind154225154282%_ - (reverse _%bind154224154271%_))) + (##car _%e155508155561%_)))) + (_%loop155507155553%_ + _%lp-tl155510155566%_ + (cons _%lp-hd155509155564%_ + _%bind155511155558%_)))) + (let ((_%bind155512155569%_ + (reverse _%bind155511155558%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154216154258%_)) - (let ((_%e154226154285%_ + _%tl155503155545%_)) + (let ((_%e155513155572%_ (let () (declare (not safe)) (gx#stx-e - _%tl154216154258%_)))) - (let ((_%tl154228154290%_ + _%tl155503155545%_)))) + (let ((_%tl155515155577%_ (let () (declare (not safe)) - (##cdr _%e154226154285%_))) - (_%hd154227154288%_ + (##cdr _%e155513155572%_))) + (_%hd155514155575%_ (let () (declare (not safe)) - (##car _%e154226154285%_)))) + (##car _%e155513155572%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154228154290%_)) - (let ((_%L154293%_ - _%hd154227154288%_) - (_%L154294%_ - _%bind154225154282%_) - (_%L154295%_ - _%hd154212154248%_)) - (if (let ((__tmp171199 + _%tl155515155577%_)) + (let ((_%L155580%_ + _%hd155514155575%_) + (_%L155581%_ + _%bind155512155569%_) + (_%L155582%_ + _%hd155499155535%_)) + (if (let ((__tmp172486 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171200 - (lambda (_%g154316154319%_ _%g154317154321%_) - (cons _%g154316154319%_ - _%g154317154321%_)))) + (let ((__tmp172487 + (lambda (_%g155603155606%_ _%g155604155608%_) + (cons _%g155603155606%_ + _%g155604155608%_)))) (declare (not safe)) - (__foldr1 __tmp171200 '() _%L154294%_)))) + (__foldr1 __tmp172487 '() _%L155581%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp171199)) - (_%__kont170739170740%_ _%L154293%_ _%L154294%_ _%L154295%_) - (_%__kont170743170744%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp172486)) + (_%__kont172026172027%_ _%L155580%_ _%L155581%_ _%L155582%_) + (_%__kont172030172031%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170743170744%_)))) - (_%__kont170743170744%_))))))) - (_%loop154220154266%_ _%target154217154261%_ '()))))) + (_%__kont172030172031%_)))) + (_%__kont172030172031%_))))))) + (_%loop155507155553%_ _%target155504155548%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170737170738%_)) - (let ((_%e154211154245%_ + (gx#stx-pair? _%__stx172024172025%_)) + (let ((_%e155498155532%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170737170738%_)))) - (let ((_%tl154213154250%_ + (gx#stx-e _%__stx172024172025%_)))) + (let ((_%tl155500155537%_ (let () (declare (not safe)) - (##cdr _%e154211154245%_))) - (_%hd154212154248%_ + (##cdr _%e155498155532%_))) + (_%hd155499155535%_ (let () (declare (not safe)) - (##car _%e154211154245%_)))) + (##car _%e155498155532%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154213154250%_)) - (let ((_%e154214154253%_ + (gx#stx-pair? _%tl155500155537%_)) + (let ((_%e155501155540%_ (let () (declare (not safe)) - (gx#stx-e _%tl154213154250%_)))) - (let ((_%tl154216154258%_ + (gx#stx-e _%tl155500155537%_)))) + (let ((_%tl155503155545%_ (let () (declare (not safe)) - (##cdr _%e154214154253%_))) - (_%hd154215154256%_ + (##cdr _%e155501155540%_))) + (_%hd155502155543%_ (let () (declare (not safe)) - (##car _%e154214154253%_)))) + (##car _%e155501155540%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd154215154256%_)) - (let ((_%__splice170741170742%_ + (gx#stx-pair/null? _%hd155502155543%_)) + (let ((_%__splice172028172029%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd154215154256%_ + _%hd155502155543%_ '0)))) - (let ((_%tl154219154263%_ + (let ((_%tl155506155550%_ (let () (declare (not safe)) (##vector-ref - _%__splice170741170742%_ + _%__splice172028172029%_ '1))) - (_%target154217154261%_ + (_%target155504155548%_ (let () (declare (not safe)) (##vector-ref - _%__splice170741170742%_ + _%__splice172028172029%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154219154263%_)) - (_%__match170764170765%_ - _%e154211154245%_ - _%hd154212154248%_ - _%tl154213154250%_ - _%e154214154253%_ - _%hd154215154256%_ - _%tl154216154258%_ - _%__splice170741170742%_ - _%target154217154261%_ - _%tl154219154263%_) - (_%__kont170743170744%_)))) - (_%__kont170743170744%_)))) - (_%__kont170743170744%_)))) - (_%__kont170743170744%_)))))))) + _%tl155506155550%_)) + (_%__match172051172052%_ + _%e155498155532%_ + _%hd155499155535%_ + _%tl155500155537%_ + _%e155501155540%_ + _%hd155502155543%_ + _%tl155503155545%_ + _%__splice172028172029%_ + _%target155504155548%_ + _%tl155506155550%_) + (_%__kont172030172031%_)))) + (_%__kont172030172031%_)))) + (_%__kont172030172031%_)))) + (_%__kont172030172031%_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_%bind154117%_) - (let* ((_%__stx170767170768%_ _%bind154117%_) - (_%g154120154137%_ + (lambda (_%bind155404%_) + (let* ((_%__stx172054172055%_ _%bind155404%_) + (_%g155407155424%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170767170768%_))))) - (let ((_%__kont170769170770%_ - (lambda (_%L154173%_ _%L154174%_) + _%__stx172054172055%_))))) + (let ((_%__kont172056172057%_ + (lambda (_%L155460%_ _%L155461%_) (if (let () (declare (not safe)) - (gx#identifier? _%L154174%_)) - (let ((_%$e154190%_ - (gxc#case-lambda-expr? _%L154173%_))) - (if _%$e154190%_ - _%$e154190%_ - (let ((_%$e154193%_ - (gxc#opt-lambda-expr? _%L154173%_))) - (if _%$e154193%_ - _%$e154193%_ - (gxc#kw-lambda-expr? _%L154173%_))))) + (gx#identifier? _%L155461%_)) + (let ((_%$e155477%_ + (gxc#case-lambda-expr? _%L155460%_))) + (if _%$e155477%_ + _%$e155477%_ + (let ((_%$e155480%_ + (gxc#opt-lambda-expr? _%L155460%_))) + (if _%$e155480%_ + _%$e155480%_ + (gxc#kw-lambda-expr? _%L155460%_))))) '#f))) - (_%__kont170771170772%_ (lambda () '#f))) + (_%__kont172058172059%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170767170768%_)) - (let ((_%e154124154149%_ + (gx#stx-pair? _%__stx172054172055%_)) + (let ((_%e155411155436%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170767170768%_)))) - (let ((_%tl154126154154%_ + (gx#stx-e _%__stx172054172055%_)))) + (let ((_%tl155413155441%_ (let () (declare (not safe)) - (##cdr _%e154124154149%_))) - (_%hd154125154152%_ + (##cdr _%e155411155436%_))) + (_%hd155412155439%_ (let () (declare (not safe)) - (##car _%e154124154149%_)))) + (##car _%e155411155436%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154125154152%_)) - (let ((_%e154127154157%_ + (gx#stx-pair? _%hd155412155439%_)) + (let ((_%e155414155444%_ (let () (declare (not safe)) - (gx#stx-e _%hd154125154152%_)))) - (let ((_%tl154129154162%_ + (gx#stx-e _%hd155412155439%_)))) + (let ((_%tl155416155449%_ (let () (declare (not safe)) - (##cdr _%e154127154157%_))) - (_%hd154128154160%_ + (##cdr _%e155414155444%_))) + (_%hd155415155447%_ (let () (declare (not safe)) - (##car _%e154127154157%_)))) + (##car _%e155414155444%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154129154162%_)) + (gx#stx-null? _%tl155416155449%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154126154154%_)) - (let ((_%e154130154165%_ + (gx#stx-pair? _%tl155413155441%_)) + (let ((_%e155417155452%_ (let () (declare (not safe)) - (gx#stx-e _%tl154126154154%_)))) - (let ((_%tl154132154170%_ + (gx#stx-e _%tl155413155441%_)))) + (let ((_%tl155419155457%_ (let () (declare (not safe)) - (##cdr _%e154130154165%_))) - (_%hd154131154168%_ + (##cdr _%e155417155452%_))) + (_%hd155418155455%_ (let () (declare (not safe)) - (##car _%e154130154165%_)))) + (##car _%e155417155452%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154132154170%_)) - (_%__kont170769170770%_ - _%hd154131154168%_ - _%hd154128154160%_) - (_%__kont170771170772%_)))) - (_%__kont170771170772%_)) - (_%__kont170771170772%_)))) - (_%__kont170771170772%_)))) - (_%__kont170771170772%_)))))))) + _%tl155419155457%_)) + (_%__kont172056172057%_ + _%hd155418155455%_ + _%hd155415155447%_) + (_%__kont172058172059%_)))) + (_%__kont172058172059%_)) + (_%__kont172058172059%_)))) + (_%__kont172058172059%_)))) + (_%__kont172058172059%_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~1.scm b/src/bootstrap/gerbil/compiler/optimize-top~1.scm index 612736517..70440af00 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top~1.scm @@ -1,237 +1,237 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g171202_| + (define |gxc[1]#_g172489_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171204_| + (define |gxc[1]#_g172491_| (##structure gx#syntax-quote::t '::collect-top-level-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171206_| + (define |gxc[1]#_g172493_| (##structure gx#syntax-quote::t 'make-::collect-top-level-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171208_| + (define |gxc[1]#_g172495_| (##structure gx#syntax-quote::t '::collect-top-level-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171211_| + (define |gxc[1]#_g172498_| (##structure gx#syntax-quote::t '::collect-top-level-declarations::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171213_| + (define |gxc[1]#_g172500_| (##structure gx#syntax-quote::t 'make-::collect-top-level-declarations #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171215_| + (define |gxc[1]#_g172502_| (##structure gx#syntax-quote::t '::collect-top-level-declarations? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171217_| + (define |gxc[1]#_g172504_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171219_| + (define |gxc[1]#_g172506_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171221_| + (define |gxc[1]#_g172508_| (##structure gx#syntax-quote::t 'make-::basic-expression-top-level-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171223_| + (define |gxc[1]#_g172510_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171226_| + (define |gxc[1]#_g172513_| (##structure gx#syntax-quote::t '::collect-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171228_| + (define |gxc[1]#_g172515_| (##structure gx#syntax-quote::t 'make-::collect-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171230_| + (define |gxc[1]#_g172517_| (##structure gx#syntax-quote::t '::collect-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171233_| + (define |gxc[1]#_g172520_| (##structure gx#syntax-quote::t '::collect-mutable-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171235_| + (define |gxc[1]#_g172522_| (##structure gx#syntax-quote::t 'make-::collect-mutable-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171237_| + (define |gxc[1]#_g172524_| (##structure gx#syntax-quote::t '::collect-mutable-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171240_| + (define |gxc[1]#_g172527_| (##structure gx#syntax-quote::t '::refine-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171242_| + (define |gxc[1]#_g172529_| (##structure gx#syntax-quote::t 'make-::refine-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171244_| + (define |gxc[1]#_g172531_| (##structure gx#syntax-quote::t '::refine-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171247_| + (define |gxc[1]#_g172534_| (##structure gx#syntax-quote::t '::raw-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171249_| + (define |gxc[1]#_g172536_| (##structure gx#syntax-quote::t 'make-::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171251_| + (define |gxc[1]#_g172538_| (##structure gx#syntax-quote::t '::raw-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171253_| + (define |gxc[1]#_g172540_| (##structure gx#syntax-quote::t '::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171255_| + (define |gxc[1]#_g172542_| (##structure gx#syntax-quote::t '::basic-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171257_| + (define |gxc[1]#_g172544_| (##structure gx#syntax-quote::t 'make-::basic-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171259_| + (define |gxc[1]#_g172546_| (##structure gx#syntax-quote::t '::basic-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171261_| + (define |gxc[1]#_g172548_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171263_| + (define |gxc[1]#_g172550_| (##structure gx#syntax-quote::t '::lift-top-lambdas::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171265_| + (define |gxc[1]#_g172552_| (##structure gx#syntax-quote::t 'make-::lift-top-lambdas #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171267_| + (define |gxc[1]#_g172554_| (##structure gx#syntax-quote::t '::lift-top-lambdas? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171270_| + (define |gxc[1]#_g172557_| (##structure gx#syntax-quote::t '::extract-lambda-signature::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171272_| + (define |gxc[1]#_g172559_| (##structure gx#syntax-quote::t 'make-::extract-lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171274_| + (define |gxc[1]#_g172561_| (##structure gx#syntax-quote::t '::extract-lambda-signature? @@ -240,7 +240,7 @@ '())) (begin (define |gxc[:0:]#::collect-top-level-type-info| - (let ((__obj170796 + (let ((__obj172083 (let () (declare (not safe)) (##structure @@ -269,7 +269,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170796 + __obj172083 'gxc#::collect-top-level-type-info::t '1 '#f @@ -277,65 +277,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170796 + __obj172083 '::collect-top-level-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172083 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '6 '#f '#f)) - (let ((__tmp171201 (cons |gxc[1]#_g171202_| '()))) + (##unchecked-structure-set! __obj172083 '() '6 '#f '#f)) + (let ((__tmp172488 (cons |gxc[1]#_g172489_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170796 __tmp171201 '3 '#f '#f)) + (##unchecked-structure-set! __obj172083 __tmp172488 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172083 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172083 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172083 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '#f '11 '#f '#f)) - (let ((__tmp171203 |gxc[1]#_g171204_|)) + (##unchecked-structure-set! __obj172083 '#f '11 '#f '#f)) + (let ((__tmp172490 |gxc[1]#_g172491_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170796 __tmp171203 '12 '#f '#f)) - (let ((__tmp171205 |gxc[1]#_g171206_|)) + (##unchecked-structure-set! __obj172083 __tmp172490 '12 '#f '#f)) + (let ((__tmp172492 |gxc[1]#_g172493_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170796 __tmp171205 '13 '#f '#f)) - (let ((__tmp171207 |gxc[1]#_g171208_|)) + (##unchecked-structure-set! __obj172083 __tmp172492 '13 '#f '#f)) + (let ((__tmp172494 |gxc[1]#_g172495_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170796 __tmp171207 '14 '#f '#f)) + (##unchecked-structure-set! __obj172083 __tmp172494 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172083 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172083 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172083 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172083 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172083 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172083 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170796 '() '20 '#f '#f)) - __obj170796)) + (##unchecked-structure-set! __obj172083 '() '20 '#f '#f)) + __obj172083)) (define |gxc[:0:]#::collect-top-level-declarations| - (let ((__obj170798 + (let ((__obj172085 (let () (declare (not safe)) (##structure @@ -364,7 +364,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170798 + __obj172085 'gxc#::collect-top-level-declarations::t '1 '#f @@ -372,65 +372,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170798 + __obj172085 '::collect-top-level-declarations '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172085 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '6 '#f '#f)) - (let ((__tmp171209 (cons |gxc[1]#_g171202_| '()))) + (##unchecked-structure-set! __obj172085 '() '6 '#f '#f)) + (let ((__tmp172496 (cons |gxc[1]#_g172489_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170798 __tmp171209 '3 '#f '#f)) + (##unchecked-structure-set! __obj172085 __tmp172496 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172085 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172085 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172085 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '#f '11 '#f '#f)) - (let ((__tmp171210 |gxc[1]#_g171211_|)) + (##unchecked-structure-set! __obj172085 '#f '11 '#f '#f)) + (let ((__tmp172497 |gxc[1]#_g172498_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170798 __tmp171210 '12 '#f '#f)) - (let ((__tmp171212 |gxc[1]#_g171213_|)) + (##unchecked-structure-set! __obj172085 __tmp172497 '12 '#f '#f)) + (let ((__tmp172499 |gxc[1]#_g172500_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170798 __tmp171212 '13 '#f '#f)) - (let ((__tmp171214 |gxc[1]#_g171215_|)) + (##unchecked-structure-set! __obj172085 __tmp172499 '13 '#f '#f)) + (let ((__tmp172501 |gxc[1]#_g172502_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170798 __tmp171214 '14 '#f '#f)) + (##unchecked-structure-set! __obj172085 __tmp172501 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172085 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172085 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172085 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172085 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172085 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172085 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170798 '() '20 '#f '#f)) - __obj170798)) + (##unchecked-structure-set! __obj172085 '() '20 '#f '#f)) + __obj172085)) (define |gxc[:0:]#::basic-expression-top-level-type| - (let ((__obj170800 + (let ((__obj172087 (let () (declare (not safe)) (##structure @@ -459,7 +459,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170800 + __obj172087 'gxc#::basic-expression-top-level-type::t '1 '#f @@ -467,65 +467,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170800 + __obj172087 '::basic-expression-top-level-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172087 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '6 '#f '#f)) - (let ((__tmp171216 (cons |gxc[1]#_g171217_| '()))) + (##unchecked-structure-set! __obj172087 '() '6 '#f '#f)) + (let ((__tmp172503 (cons |gxc[1]#_g172504_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170800 __tmp171216 '3 '#f '#f)) + (##unchecked-structure-set! __obj172087 __tmp172503 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172087 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172087 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172087 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '#f '11 '#f '#f)) - (let ((__tmp171218 |gxc[1]#_g171219_|)) + (##unchecked-structure-set! __obj172087 '#f '11 '#f '#f)) + (let ((__tmp172505 |gxc[1]#_g172506_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170800 __tmp171218 '12 '#f '#f)) - (let ((__tmp171220 |gxc[1]#_g171221_|)) + (##unchecked-structure-set! __obj172087 __tmp172505 '12 '#f '#f)) + (let ((__tmp172507 |gxc[1]#_g172508_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170800 __tmp171220 '13 '#f '#f)) - (let ((__tmp171222 |gxc[1]#_g171223_|)) + (##unchecked-structure-set! __obj172087 __tmp172507 '13 '#f '#f)) + (let ((__tmp172509 |gxc[1]#_g172510_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170800 __tmp171222 '14 '#f '#f)) + (##unchecked-structure-set! __obj172087 __tmp172509 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172087 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172087 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172087 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172087 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172087 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172087 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170800 '() '20 '#f '#f)) - __obj170800)) + (##unchecked-structure-set! __obj172087 '() '20 '#f '#f)) + __obj172087)) (define |gxc[:0:]#::collect-type-info| - (let ((__obj170802 + (let ((__obj172089 (let () (declare (not safe)) (##structure @@ -554,7 +554,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170802 + __obj172089 'gxc#::collect-type-info::t '1 '#f @@ -562,65 +562,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170802 + __obj172089 '::collect-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172089 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '6 '#f '#f)) - (let ((__tmp171224 (cons |gxc[1]#_g171202_| '()))) + (##unchecked-structure-set! __obj172089 '() '6 '#f '#f)) + (let ((__tmp172511 (cons |gxc[1]#_g172489_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170802 __tmp171224 '3 '#f '#f)) + (##unchecked-structure-set! __obj172089 __tmp172511 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172089 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172089 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172089 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '#f '11 '#f '#f)) - (let ((__tmp171225 |gxc[1]#_g171226_|)) + (##unchecked-structure-set! __obj172089 '#f '11 '#f '#f)) + (let ((__tmp172512 |gxc[1]#_g172513_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170802 __tmp171225 '12 '#f '#f)) - (let ((__tmp171227 |gxc[1]#_g171228_|)) + (##unchecked-structure-set! __obj172089 __tmp172512 '12 '#f '#f)) + (let ((__tmp172514 |gxc[1]#_g172515_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170802 __tmp171227 '13 '#f '#f)) - (let ((__tmp171229 |gxc[1]#_g171230_|)) + (##unchecked-structure-set! __obj172089 __tmp172514 '13 '#f '#f)) + (let ((__tmp172516 |gxc[1]#_g172517_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170802 __tmp171229 '14 '#f '#f)) + (##unchecked-structure-set! __obj172089 __tmp172516 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172089 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172089 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172089 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172089 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172089 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172089 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170802 '() '20 '#f '#f)) - __obj170802)) + (##unchecked-structure-set! __obj172089 '() '20 '#f '#f)) + __obj172089)) (define |gxc[:0:]#::collect-mutable-type-info| - (let ((__obj170804 + (let ((__obj172091 (let () (declare (not safe)) (##structure @@ -649,7 +649,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170804 + __obj172091 'gxc#::collect-mutable-type-info::t '1 '#f @@ -657,65 +657,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170804 + __obj172091 '::collect-mutable-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172091 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '6 '#f '#f)) - (let ((__tmp171231 (cons |gxc[1]#_g171202_| '()))) + (##unchecked-structure-set! __obj172091 '() '6 '#f '#f)) + (let ((__tmp172518 (cons |gxc[1]#_g172489_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170804 __tmp171231 '3 '#f '#f)) + (##unchecked-structure-set! __obj172091 __tmp172518 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172091 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172091 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172091 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '#f '11 '#f '#f)) - (let ((__tmp171232 |gxc[1]#_g171233_|)) + (##unchecked-structure-set! __obj172091 '#f '11 '#f '#f)) + (let ((__tmp172519 |gxc[1]#_g172520_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170804 __tmp171232 '12 '#f '#f)) - (let ((__tmp171234 |gxc[1]#_g171235_|)) + (##unchecked-structure-set! __obj172091 __tmp172519 '12 '#f '#f)) + (let ((__tmp172521 |gxc[1]#_g172522_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170804 __tmp171234 '13 '#f '#f)) - (let ((__tmp171236 |gxc[1]#_g171237_|)) + (##unchecked-structure-set! __obj172091 __tmp172521 '13 '#f '#f)) + (let ((__tmp172523 |gxc[1]#_g172524_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170804 __tmp171236 '14 '#f '#f)) + (##unchecked-structure-set! __obj172091 __tmp172523 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172091 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172091 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172091 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172091 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172091 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172091 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170804 '() '20 '#f '#f)) - __obj170804)) + (##unchecked-structure-set! __obj172091 '() '20 '#f '#f)) + __obj172091)) (define |gxc[:0:]#::refine-type-info| - (let ((__obj170806 + (let ((__obj172093 (let () (declare (not safe)) (##structure @@ -744,7 +744,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170806 + __obj172093 'gxc#::refine-type-info::t '1 '#f @@ -752,65 +752,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170806 + __obj172093 '::refine-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172093 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '6 '#f '#f)) - (let ((__tmp171238 (cons |gxc[1]#_g171202_| '()))) + (##unchecked-structure-set! __obj172093 '() '6 '#f '#f)) + (let ((__tmp172525 (cons |gxc[1]#_g172489_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170806 __tmp171238 '3 '#f '#f)) + (##unchecked-structure-set! __obj172093 __tmp172525 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172093 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172093 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172093 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '#f '11 '#f '#f)) - (let ((__tmp171239 |gxc[1]#_g171240_|)) + (##unchecked-structure-set! __obj172093 '#f '11 '#f '#f)) + (let ((__tmp172526 |gxc[1]#_g172527_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170806 __tmp171239 '12 '#f '#f)) - (let ((__tmp171241 |gxc[1]#_g171242_|)) + (##unchecked-structure-set! __obj172093 __tmp172526 '12 '#f '#f)) + (let ((__tmp172528 |gxc[1]#_g172529_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170806 __tmp171241 '13 '#f '#f)) - (let ((__tmp171243 |gxc[1]#_g171244_|)) + (##unchecked-structure-set! __obj172093 __tmp172528 '13 '#f '#f)) + (let ((__tmp172530 |gxc[1]#_g172531_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170806 __tmp171243 '14 '#f '#f)) + (##unchecked-structure-set! __obj172093 __tmp172530 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172093 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172093 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172093 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172093 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172093 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172093 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170806 '() '20 '#f '#f)) - __obj170806)) + (##unchecked-structure-set! __obj172093 '() '20 '#f '#f)) + __obj172093)) (define |gxc[:0:]#::raw-expression-type| - (let ((__obj170808 + (let ((__obj172095 (let () (declare (not safe)) (##structure @@ -839,7 +839,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170808 + __obj172095 'gxc#::raw-expression-type::t '1 '#f @@ -847,65 +847,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170808 + __obj172095 '::raw-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172095 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '6 '#f '#f)) - (let ((__tmp171245 (cons |gxc[1]#_g171217_| '()))) + (##unchecked-structure-set! __obj172095 '() '6 '#f '#f)) + (let ((__tmp172532 (cons |gxc[1]#_g172504_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170808 __tmp171245 '3 '#f '#f)) + (##unchecked-structure-set! __obj172095 __tmp172532 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172095 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj172095 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172095 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '#f '11 '#f '#f)) - (let ((__tmp171246 |gxc[1]#_g171247_|)) + (##unchecked-structure-set! __obj172095 '#f '11 '#f '#f)) + (let ((__tmp172533 |gxc[1]#_g172534_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170808 __tmp171246 '12 '#f '#f)) - (let ((__tmp171248 |gxc[1]#_g171249_|)) + (##unchecked-structure-set! __obj172095 __tmp172533 '12 '#f '#f)) + (let ((__tmp172535 |gxc[1]#_g172536_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170808 __tmp171248 '13 '#f '#f)) - (let ((__tmp171250 |gxc[1]#_g171251_|)) + (##unchecked-structure-set! __obj172095 __tmp172535 '13 '#f '#f)) + (let ((__tmp172537 |gxc[1]#_g172538_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170808 __tmp171250 '14 '#f '#f)) + (##unchecked-structure-set! __obj172095 __tmp172537 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172095 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172095 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172095 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172095 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172095 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172095 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170808 '() '20 '#f '#f)) - __obj170808)) + (##unchecked-structure-set! __obj172095 '() '20 '#f '#f)) + __obj172095)) (define |gxc[:0:]#::basic-expression-type| - (let ((__obj170810 + (let ((__obj172097 (let () (declare (not safe)) (##structure @@ -934,7 +934,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170810 + __obj172097 'gxc#::basic-expression-type::t '1 '#f @@ -942,66 +942,66 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170810 + __obj172097 '::basic-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172097 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '6 '#f '#f)) - (let ((__tmp171252 - (cons |gxc[1]#_g171253_| (cons |gxc[1]#_g171217_| '())))) + (##unchecked-structure-set! __obj172097 '() '6 '#f '#f)) + (let ((__tmp172539 + (cons |gxc[1]#_g172540_| (cons |gxc[1]#_g172504_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj170810 __tmp171252 '3 '#f '#f)) + (##unchecked-structure-set! __obj172097 __tmp172539 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172097 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172097 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172097 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '#f '11 '#f '#f)) - (let ((__tmp171254 |gxc[1]#_g171255_|)) + (##unchecked-structure-set! __obj172097 '#f '11 '#f '#f)) + (let ((__tmp172541 |gxc[1]#_g172542_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170810 __tmp171254 '12 '#f '#f)) - (let ((__tmp171256 |gxc[1]#_g171257_|)) + (##unchecked-structure-set! __obj172097 __tmp172541 '12 '#f '#f)) + (let ((__tmp172543 |gxc[1]#_g172544_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170810 __tmp171256 '13 '#f '#f)) - (let ((__tmp171258 |gxc[1]#_g171259_|)) + (##unchecked-structure-set! __obj172097 __tmp172543 '13 '#f '#f)) + (let ((__tmp172545 |gxc[1]#_g172546_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170810 __tmp171258 '14 '#f '#f)) + (##unchecked-structure-set! __obj172097 __tmp172545 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172097 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172097 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172097 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172097 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172097 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172097 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170810 '() '20 '#f '#f)) - __obj170810)) + (##unchecked-structure-set! __obj172097 '() '20 '#f '#f)) + __obj172097)) (define |gxc[:0:]#::lift-top-lambdas| - (let ((__obj170812 + (let ((__obj172099 (let () (declare (not safe)) (##structure @@ -1030,7 +1030,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170812 + __obj172099 'gxc#::lift-top-lambdas::t '1 '#f @@ -1038,65 +1038,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170812 + __obj172099 '::lift-top-lambdas '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172099 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '6 '#f '#f)) - (let ((__tmp171260 (cons |gxc[1]#_g171261_| '()))) + (##unchecked-structure-set! __obj172099 '() '6 '#f '#f)) + (let ((__tmp172547 (cons |gxc[1]#_g172548_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170812 __tmp171260 '3 '#f '#f)) + (##unchecked-structure-set! __obj172099 __tmp172547 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172099 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172099 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172099 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '#f '11 '#f '#f)) - (let ((__tmp171262 |gxc[1]#_g171263_|)) + (##unchecked-structure-set! __obj172099 '#f '11 '#f '#f)) + (let ((__tmp172549 |gxc[1]#_g172550_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170812 __tmp171262 '12 '#f '#f)) - (let ((__tmp171264 |gxc[1]#_g171265_|)) + (##unchecked-structure-set! __obj172099 __tmp172549 '12 '#f '#f)) + (let ((__tmp172551 |gxc[1]#_g172552_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170812 __tmp171264 '13 '#f '#f)) - (let ((__tmp171266 |gxc[1]#_g171267_|)) + (##unchecked-structure-set! __obj172099 __tmp172551 '13 '#f '#f)) + (let ((__tmp172553 |gxc[1]#_g172554_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170812 __tmp171266 '14 '#f '#f)) + (##unchecked-structure-set! __obj172099 __tmp172553 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172099 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172099 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172099 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172099 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172099 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172099 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170812 '() '20 '#f '#f)) - __obj170812)) + (##unchecked-structure-set! __obj172099 '() '20 '#f '#f)) + __obj172099)) (define |gxc[:0:]#::extract-lambda-signature| - (let ((__obj170814 + (let ((__obj172101 (let () (declare (not safe)) (##structure @@ -1125,7 +1125,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170814 + __obj172101 'gxc#::extract-lambda-signature::t '1 '#f @@ -1133,189 +1133,189 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170814 + __obj172101 '::extract-lambda-signature '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj172101 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '6 '#f '#f)) - (let ((__tmp171268 (cons |gxc[1]#_g171217_| '()))) + (##unchecked-structure-set! __obj172101 '() '6 '#f '#f)) + (let ((__tmp172555 (cons |gxc[1]#_g172504_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170814 __tmp171268 '3 '#f '#f)) + (##unchecked-structure-set! __obj172101 __tmp172555 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj172101 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj172101 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj172101 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '#f '11 '#f '#f)) - (let ((__tmp171269 |gxc[1]#_g171270_|)) + (##unchecked-structure-set! __obj172101 '#f '11 '#f '#f)) + (let ((__tmp172556 |gxc[1]#_g172557_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170814 __tmp171269 '12 '#f '#f)) - (let ((__tmp171271 |gxc[1]#_g171272_|)) + (##unchecked-structure-set! __obj172101 __tmp172556 '12 '#f '#f)) + (let ((__tmp172558 |gxc[1]#_g172559_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170814 __tmp171271 '13 '#f '#f)) - (let ((__tmp171273 |gxc[1]#_g171274_|)) + (##unchecked-structure-set! __obj172101 __tmp172558 '13 '#f '#f)) + (let ((__tmp172560 |gxc[1]#_g172561_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170814 __tmp171273 '14 '#f '#f)) + (##unchecked-structure-set! __obj172101 __tmp172560 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj172101 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj172101 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj172101 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj172101 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj172101 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj172101 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170814 '() '20 '#f '#f)) - __obj170814)) + (##unchecked-structure-set! __obj172101 '() '20 '#f '#f)) + __obj172101)) (define |gxc[:0:]#defbasic-expression-type-annotations| - (lambda (_%$stx153834%_) - (let* ((_%g153838153867%_ - (lambda (_%g153839153863%_) + (lambda (_%$stx155121%_) + (let* ((_%g155125155154%_ + (lambda (_%g155126155150%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153839153863%_)))) - (_%g153837153968%_ - (lambda (_%g153839153871%_) + _%g155126155150%_)))) + (_%g155124155255%_ + (lambda (_%g155126155158%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153839153871%_)) - (let ((_%e153842153874%_ + (gx#stx-pair? _%g155126155158%_)) + (let ((_%e155129155161%_ (let () (declare (not safe)) - (gx#syntax-e _%g153839153871%_)))) - (let ((_%hd153843153878%_ + (gx#syntax-e _%g155126155158%_)))) + (let ((_%hd155130155165%_ (let () (declare (not safe)) - (##car _%e153842153874%_))) - (_%tl153844153881%_ + (##car _%e155129155161%_))) + (_%tl155131155168%_ (let () (declare (not safe)) - (##cdr _%e153842153874%_)))) + (##cdr _%e155129155161%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl153844153881%_)) - (let ((_g171275_ + (gx#stx-pair/null? _%tl155131155168%_)) + (let ((_g172562_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl153844153881%_ + _%tl155131155168%_ '0)))) (begin - (let ((_g171276_ + (let ((_g172563_ (let () (declare (not safe)) - (if (##values? _g171275_) - (##vector-length _g171275_) + (if (##values? _g172562_) + (##values-length _g172562_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171276_ 2))) + (##fx= _g172563_ 2))) (error "Context expects 2 values" - _g171276_))) - (let ((_%target153845153884%_ + _g172563_))) + (let ((_%target155132155171%_ (let () (declare (not safe)) - (##vector-ref _g171275_ 0))) - (_%tl153847153887%_ + (##values-ref _g172562_ 0))) + (_%tl155134155174%_ (let () (declare (not safe)) - (##vector-ref _g171275_ 1)))) + (##values-ref _g172562_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153847153887%_)) - (letrec ((_%loop153848153890%_ - (lambda (_%hd153846153894%_ - _%type-e153852153897%_ - _%id153853153899%_) + (gx#stx-null? _%tl155134155174%_)) + (letrec ((_%loop155135155177%_ + (lambda (_%hd155133155181%_ + _%type-e155139155184%_ + _%id155140155186%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153846153894%_)) - (let ((_%e153849153902%_ + _%hd155133155181%_)) + (let ((_%e155136155189%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd153846153894%_)))) - (let ((_%lp-hd153850153906%_ + (gx#syntax-e _%hd155133155181%_)))) + (let ((_%lp-hd155137155193%_ (let () (declare (not safe)) - (##car _%e153849153902%_))) - (_%lp-tl153851153909%_ + (##car _%e155136155189%_))) + (_%lp-tl155138155196%_ (let () (declare (not safe)) - (##cdr _%e153849153902%_)))) + (##cdr _%e155136155189%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd153850153906%_)) - (let ((_%e153856153912%_ + (gx#stx-pair? _%lp-hd155137155193%_)) + (let ((_%e155143155199%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd153850153906%_)))) - (let ((_%hd153857153916%_ + (gx#syntax-e _%lp-hd155137155193%_)))) + (let ((_%hd155144155203%_ (let () (declare (not safe)) - (##car _%e153856153912%_))) - (_%tl153858153919%_ + (##car _%e155143155199%_))) + (_%tl155145155206%_ (let () (declare (not safe)) - (##cdr _%e153856153912%_)))) + (##cdr _%e155143155199%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153858153919%_)) - (let ((_%e153859153922%_ + (gx#stx-pair? _%tl155145155206%_)) + (let ((_%e155146155209%_ (let () (declare (not safe)) - (gx#syntax-e _%tl153858153919%_)))) - (let ((_%hd153860153926%_ + (gx#syntax-e _%tl155145155206%_)))) + (let ((_%hd155147155213%_ (let () (declare (not safe)) - (##car _%e153859153922%_))) - (_%tl153861153929%_ + (##car _%e155146155209%_))) + (_%tl155148155216%_ (let () (declare (not safe)) - (##cdr _%e153859153922%_)))) + (##cdr _%e155146155209%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153861153929%_)) - (_%loop153848153890%_ - _%lp-tl153851153909%_ - (cons _%hd153860153926%_ - _%type-e153852153897%_) - (cons _%hd153857153916%_ - _%id153853153899%_)) - (_%g153838153867%_ - _%g153839153871%_)))) - (_%g153838153867%_ _%g153839153871%_)))) - (_%g153838153867%_ _%g153839153871%_)))) - (let ((_%type-e153854153932%_ (reverse _%type-e153852153897%_)) - (_%id153855153935%_ (reverse _%id153853153899%_))) - ((lambda (_%L153938%_ _%L153940%_) + (gx#stx-null? _%tl155148155216%_)) + (_%loop155135155177%_ + _%lp-tl155138155196%_ + (cons _%hd155147155213%_ + _%type-e155139155184%_) + (cons _%hd155144155203%_ + _%id155140155186%_)) + (_%g155125155154%_ + _%g155126155158%_)))) + (_%g155125155154%_ _%g155126155158%_)))) + (_%g155125155154%_ _%g155126155158%_)))) + (let ((_%type-e155141155219%_ (reverse _%type-e155139155184%_)) + (_%id155142155222%_ (reverse _%id155140155186%_))) + ((lambda (_%L155225%_ _%L155227%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -1323,12 +1323,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L153938%_ - _%L153940%_)) - (let ((__tmp171277 - (lambda (_%g153956153960%_ - _%g153957153963%_ - _%g153958153965%_) + _%L155225%_ + _%L155227%_)) + (let ((__tmp172564 + (lambda (_%g155243155247%_ + _%g155244155250%_ + _%g155245155252%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1343,154 +1343,154 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g153957153963%_ '())) - (cons _%g153956153960%_ '())))) + (cons _%g155244155250%_ '())) + (cons _%g155243155247%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g153958153965%_)))) + _%g155245155252%_)))) (declare (not safe)) (__foldr2 - __tmp171277 + __tmp172564 '() - _%L153938%_ - _%L153940%_))))) - _%type-e153854153932%_ - _%id153855153935%_)))))) + _%L155225%_ + _%L155227%_))))) + _%type-e155141155219%_ + _%id155142155222%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop153848153890%_ - _%target153845153884%_ + (_%loop155135155177%_ + _%target155132155171%_ '() '())) - (_%g153838153867%_ - _%g153839153871%_))))) - (_%g153838153867%_ _%g153839153871%_)))) - (_%g153838153867%_ _%g153839153871%_))))) - (_%g153837153968%_ _%$stx153834%_)))) + (_%g155125155154%_ + _%g155126155158%_))))) + (_%g155125155154%_ _%g155126155158%_)))) + (_%g155125155154%_ _%g155126155158%_))))) + (_%g155124155255%_ _%$stx155121%_)))) (define |gxc[:0:]#defbasic-expression-type-special| - (lambda (_%$stx153973%_) - (let* ((_%g153977154006%_ - (lambda (_%g153978154002%_) + (lambda (_%$stx155260%_) + (let* ((_%g155264155293%_ + (lambda (_%g155265155289%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153978154002%_)))) - (_%g153976154106%_ - (lambda (_%g153978154010%_) + _%g155265155289%_)))) + (_%g155263155393%_ + (lambda (_%g155265155297%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153978154010%_)) - (let ((_%e153981154013%_ + (gx#stx-pair? _%g155265155297%_)) + (let ((_%e155268155300%_ (let () (declare (not safe)) - (gx#syntax-e _%g153978154010%_)))) - (let ((_%hd153982154017%_ + (gx#syntax-e _%g155265155297%_)))) + (let ((_%hd155269155304%_ (let () (declare (not safe)) - (##car _%e153981154013%_))) - (_%tl153983154020%_ + (##car _%e155268155300%_))) + (_%tl155270155307%_ (let () (declare (not safe)) - (##cdr _%e153981154013%_)))) + (##cdr _%e155268155300%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl153983154020%_)) - (let ((_g171278_ + (gx#stx-pair/null? _%tl155270155307%_)) + (let ((_g172565_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl153983154020%_ + _%tl155270155307%_ '0)))) (begin - (let ((_g171279_ + (let ((_g172566_ (let () (declare (not safe)) - (if (##values? _g171278_) - (##vector-length _g171278_) + (if (##values? _g172565_) + (##values-length _g172565_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171279_ 2))) + (##fx= _g172566_ 2))) (error "Context expects 2 values" - _g171279_))) - (let ((_%target153984154023%_ + _g172566_))) + (let ((_%target155271155310%_ (let () (declare (not safe)) - (##vector-ref _g171278_ 0))) - (_%tl153986154026%_ + (##values-ref _g172565_ 0))) + (_%tl155273155313%_ (let () (declare (not safe)) - (##vector-ref _g171278_ 1)))) + (##values-ref _g172565_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153986154026%_)) - (letrec ((_%loop153987154029%_ - (lambda (_%hd153985154033%_ - _%type-e153991154036%_ - _%id153992154038%_) + (gx#stx-null? _%tl155273155313%_)) + (letrec ((_%loop155274155316%_ + (lambda (_%hd155272155320%_ + _%type-e155278155323%_ + _%id155279155325%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153985154033%_)) - (let ((_%e153988154041%_ + _%hd155272155320%_)) + (let ((_%e155275155328%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd153985154033%_)))) - (let ((_%lp-hd153989154045%_ + (gx#syntax-e _%hd155272155320%_)))) + (let ((_%lp-hd155276155332%_ (let () (declare (not safe)) - (##car _%e153988154041%_))) - (_%lp-tl153990154048%_ + (##car _%e155275155328%_))) + (_%lp-tl155277155335%_ (let () (declare (not safe)) - (##cdr _%e153988154041%_)))) + (##cdr _%e155275155328%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd153989154045%_)) - (let ((_%e153995154051%_ + (gx#stx-pair? _%lp-hd155276155332%_)) + (let ((_%e155282155338%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd153989154045%_)))) - (let ((_%hd153996154055%_ + (gx#syntax-e _%lp-hd155276155332%_)))) + (let ((_%hd155283155342%_ (let () (declare (not safe)) - (##car _%e153995154051%_))) - (_%tl153997154058%_ + (##car _%e155282155338%_))) + (_%tl155284155345%_ (let () (declare (not safe)) - (##cdr _%e153995154051%_)))) + (##cdr _%e155282155338%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153997154058%_)) - (let ((_%e153998154061%_ + (gx#stx-pair? _%tl155284155345%_)) + (let ((_%e155285155348%_ (let () (declare (not safe)) - (gx#syntax-e _%tl153997154058%_)))) - (let ((_%hd153999154065%_ + (gx#syntax-e _%tl155284155345%_)))) + (let ((_%hd155286155352%_ (let () (declare (not safe)) - (##car _%e153998154061%_))) - (_%tl154000154068%_ + (##car _%e155285155348%_))) + (_%tl155287155355%_ (let () (declare (not safe)) - (##cdr _%e153998154061%_)))) + (##cdr _%e155285155348%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154000154068%_)) - (_%loop153987154029%_ - _%lp-tl153990154048%_ - (cons _%hd153999154065%_ - _%type-e153991154036%_) - (cons _%hd153996154055%_ - _%id153992154038%_)) - (_%g153977154006%_ - _%g153978154010%_)))) - (_%g153977154006%_ _%g153978154010%_)))) - (_%g153977154006%_ _%g153978154010%_)))) - (let ((_%type-e153993154071%_ (reverse _%type-e153991154036%_)) - (_%id153994154074%_ (reverse _%id153992154038%_))) - ((lambda (_%L154077%_ _%L154079%_) + (gx#stx-null? _%tl155287155355%_)) + (_%loop155274155316%_ + _%lp-tl155277155335%_ + (cons _%hd155286155352%_ + _%type-e155278155323%_) + (cons _%hd155283155342%_ + _%id155279155325%_)) + (_%g155264155293%_ + _%g155265155297%_)))) + (_%g155264155293%_ _%g155265155297%_)))) + (_%g155264155293%_ _%g155265155297%_)))) + (let ((_%type-e155280155358%_ (reverse _%type-e155278155323%_)) + (_%id155281155361%_ (reverse _%id155279155325%_))) + ((lambda (_%L155364%_ _%L155366%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -1498,12 +1498,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L154077%_ - _%L154079%_)) - (let ((__tmp171280 - (lambda (_%g154094154098%_ - _%g154095154101%_ - _%g154096154103%_) + _%L155364%_ + _%L155366%_)) + (let ((__tmp172567 + (lambda (_%g155381155385%_ + _%g155382155388%_ + _%g155383155390%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1518,25 +1518,25 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g154095154101%_ '())) - (cons _%g154094154098%_ '())))) + (cons _%g155382155388%_ '())) + (cons _%g155381155385%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g154096154103%_)))) + _%g155383155390%_)))) (declare (not safe)) (__foldr2 - __tmp171280 + __tmp172567 '() - _%L154077%_ - _%L154079%_))))) - _%type-e153993154071%_ - _%id153994154074%_)))))) + _%L155364%_ + _%L155366%_))))) + _%type-e155280155358%_ + _%id155281155361%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop153987154029%_ - _%target153984154023%_ + (_%loop155274155316%_ + _%target155271155310%_ '() '())) - (_%g153977154006%_ - _%g153978154010%_))))) - (_%g153977154006%_ _%g153978154010%_)))) - (_%g153977154006%_ _%g153978154010%_))))) - (_%g153976154106%_ _%$stx153973%_)))))) + (_%g155264155293%_ + _%g155265155297%_))))) + (_%g155264155293%_ _%g155265155297%_)))) + (_%g155264155293%_ _%g155265155297%_))))) + (_%g155263155393%_ _%$stx155260%_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~0.scm b/src/bootstrap/gerbil/compiler/optimize-xform~0.scm index c53a058f8..c171fbfe4 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 1713631268) + (define gerbil/compiler/optimize-xform::timestamp 1734357964) (begin (define gxc#::collect-mutators::t - (let ((__tmp153699 (list gxc#::void::t)) - (__tmp153698 (cons (cons 'final: '#t) '()))) + (let ((__tmp154986 (list gxc#::void::t)) + (__tmp154985 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-mutators::t '::collect-mutators - __tmp153699 + __tmp154986 '() - __tmp153698 + __tmp154985 '#f))) (define gxc#::collect-mutators? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-mutators::t))) (define gxc#make-::collect-mutators - (lambda _%$args153685%_ - (apply make-instance gxc#::collect-mutators::t _%$args153685%_))) + (lambda _%$args154972%_ + (apply make-instance gxc#::collect-mutators::t _%$args154972%_))) (define gxc#::collect-mutators-bind-methods! - (let ((__tmp153700 + (let ((__tmp154987 (lambda () (force gxc#::void-bind-methods!) (let () @@ -166,44 +166,44 @@ (declare (not safe)) (__seal-class! gxc#::collect-mutators::t))))) (declare (not safe)) - (__make-promise __tmp153700))) + (__make-promise __tmp154987))) (define gxc#apply-collect-mutators - (lambda (_%stx153677%_) + (lambda (_%stx154964%_) (force gxc#::collect-mutators-bind-methods!) - (let* ((_%self153680%_ - (let ((__obj153688 + (let* ((_%self154967%_ + (let ((__obj154975 (let () (declare (not safe)) (##structure gxc#::collect-mutators::t)))) - __obj153688)) - (__tmp153701 + __obj154975)) + (__tmp154988 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153680%_ _%stx153677%_))))) + (gxc#compile-e__1 _%self154967%_ _%stx154964%_))))) (declare (not safe)) (__call-with-parameters - __tmp153701 + __tmp154988 gxc#current-compile-method - _%self153680%_)))) + _%self154967%_)))) (define gxc#::expression-subst::t - (let ((__tmp153703 (list gxc#::basic-xform-expression::t)) - (__tmp153702 (cons (cons 'final: '#t) '()))) + (let ((__tmp154990 (list gxc#::basic-xform-expression::t)) + (__tmp154989 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::expression-subst::t '::expression-subst - __tmp153703 + __tmp154990 '(id new-id) - __tmp153702 + __tmp154989 '#f))) (define gxc#::expression-subst? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst::t))) (define gxc#make-::expression-subst - (lambda _%$args153674%_ - (apply make-instance gxc#::expression-subst::t _%$args153674%_))) + (lambda _%$args154961%_ + (apply make-instance gxc#::expression-subst::t _%$args154961%_))) (define gxc#::expression-subst-id (let () (declare (not safe)) @@ -241,7 +241,7 @@ gxc#::expression-subst::t 'new-id))) (define gxc#::expression-subst-bind-methods! - (let ((__tmp153704 + (let ((__tmp154991 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (let () @@ -266,95 +266,95 @@ (declare (not safe)) (__seal-class! gxc#::expression-subst::t))))) (declare (not safe)) - (__make-promise __tmp153704))) + (__make-promise __tmp154991))) (define gxc#apply-expression-subst__% - (lambda (_%@@keywords153644%_ - _%id153640153645%_ - _%new-id153641153647%_ - _%stx153649%_) - (let* ((_%id153652%_ - (if (eq? _%id153640153645%_ absent-value) + (lambda (_%@@keywords154931%_ + _%id154927154932%_ + _%new-id154928154934%_ + _%stx154936%_) + (let* ((_%id154939%_ + (if (eq? _%id154927154932%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'id:)) - _%id153640153645%_)) - (_%new-id153654%_ - (if (eq? _%new-id153641153647%_ absent-value) + _%id154927154932%_)) + (_%new-id154941%_ + (if (eq? _%new-id154928154934%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'new-id:)) - _%new-id153641153647%_))) + _%new-id154928154934%_))) (force gxc#::expression-subst-bind-methods!) - (let* ((_%self153656%_ - (let ((__obj153690 + (let* ((_%self154943%_ + (let ((__obj154977 (let () (declare (not safe)) (##structure gxc#::expression-subst::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153690 - _%id153652%_ + __obj154977 + _%id154939%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153690 - _%new-id153654%_ + __obj154977 + _%new-id154941%_ '2 '#f '#f)) - __obj153690)) - (__tmp153705 + __obj154977)) + (__tmp154992 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153656%_ _%stx153649%_))))) + (gxc#compile-e__1 _%self154943%_ _%stx154936%_))))) (declare (not safe)) (__call-with-parameters - __tmp153705 + __tmp154992 gxc#current-compile-method - _%self153656%_))))) + _%self154943%_))))) (define gxc#apply-expression-subst__@ - (lambda (_%@@keywords153663%_ . _%args153664%_) + (lambda (_%@@keywords154950%_ . _%args154951%_) (apply gxc#apply-expression-subst__% - _%@@keywords153663%_ + _%@@keywords154950%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords153663%_ 'id: absent-value)) + (symbolic-table-ref _%@@keywords154950%_ 'id: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords153663%_ + _%@@keywords154950%_ 'new-id: absent-value)) - _%args153664%_))) + _%args154951%_))) (define gxc#apply-expression-subst - (lambda _%args153642153670%_ + (lambda _%args154929154957%_ (apply keyword-dispatch '#(id: new-id:) gxc#apply-expression-subst__@ - _%args153642153670%_))) + _%args154929154957%_))) (define gxc#::expression-subst*::t - (let ((__tmp153707 (list gxc#::basic-xform-expression::t)) - (__tmp153706 (cons (cons 'final: '#t) '()))) + (let ((__tmp154994 (list gxc#::basic-xform-expression::t)) + (__tmp154993 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::expression-subst*::t '::expression-subst* - __tmp153707 + __tmp154994 '(subst) - __tmp153706 + __tmp154993 '#f))) (define gxc#::expression-subst*? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst*::t))) (define gxc#make-::expression-subst* - (lambda _%$args153636%_ - (apply make-instance gxc#::expression-subst*::t _%$args153636%_))) + (lambda _%$args154923%_ + (apply make-instance gxc#::expression-subst*::t _%$args154923%_))) (define gxc#::expression-subst*-subst (let () (declare (not safe)) @@ -376,7 +376,7 @@ gxc#::expression-subst*::t 'subst))) (define gxc#::expression-subst*-bind-methods! - (let ((__tmp153708 + (let ((__tmp154995 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (let () @@ -401,64 +401,64 @@ (declare (not safe)) (__seal-class! gxc#::expression-subst*::t))))) (declare (not safe)) - (__make-promise __tmp153708))) + (__make-promise __tmp154995))) (define gxc#apply-expression-subst*__% - (lambda (_%@@keywords153610%_ _%subst153607153611%_ _%stx153613%_) - (let ((_%subst153616%_ - (if (eq? _%subst153607153611%_ absent-value) + (lambda (_%@@keywords154897%_ _%subst154894154898%_ _%stx154900%_) + (let ((_%subst154903%_ + (if (eq? _%subst154894154898%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'subst:)) - _%subst153607153611%_))) + _%subst154894154898%_))) (force gxc#::expression-subst*-bind-methods!) - (let* ((_%self153618%_ - (let ((__obj153692 + (let* ((_%self154905%_ + (let ((__obj154979 (let () (declare (not safe)) (##structure gxc#::expression-subst*::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153692 - _%subst153616%_ + __obj154979 + _%subst154903%_ '1 '#f '#f)) - __obj153692)) - (__tmp153709 + __obj154979)) + (__tmp154996 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153618%_ _%stx153613%_))))) + (gxc#compile-e__1 _%self154905%_ _%stx154900%_))))) (declare (not safe)) (__call-with-parameters - __tmp153709 + __tmp154996 gxc#current-compile-method - _%self153618%_))))) + _%self154905%_))))) (define gxc#apply-expression-subst*__@ - (lambda (_%@@keywords153625%_ . _%args153626%_) + (lambda (_%@@keywords154912%_ . _%args154913%_) (apply gxc#apply-expression-subst*__% - _%@@keywords153625%_ + _%@@keywords154912%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords153625%_ + _%@@keywords154912%_ 'subst: absent-value)) - _%args153626%_))) + _%args154913%_))) (define gxc#apply-expression-subst* - (lambda _%args153608153632%_ + (lambda _%args154895154919%_ (apply keyword-dispatch '#(subst:) gxc#apply-expression-subst*__@ - _%args153608153632%_))) + _%args154895154919%_))) (define gxc#::find-expression::t - (let ((__tmp153710 (list gxc#::false-expression::t))) + (let ((__tmp154997 (list gxc#::false-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::find-expression::t '::find-expression - __tmp153710 + __tmp154997 '() '() '#f))) @@ -467,10 +467,10 @@ (declare (not safe)) (__make-class-predicate gxc#::find-expression::t))) (define gxc#make-::find-expression - (lambda _%$args153603%_ - (apply make-instance gxc#::find-expression::t _%$args153603%_))) + (lambda _%$args154890%_ + (apply make-instance gxc#::find-expression::t _%$args154890%_))) (define gxc#::find-expression-bind-methods! - (let ((__tmp153711 + (let ((__tmp154998 (lambda () (force gxc#::false-expression-bind-methods!) (let () @@ -588,25 +588,25 @@ '%#struct-unchecked-set! gxc#find-body%))))) (declare (not safe)) - (__make-promise __tmp153711))) + (__make-promise __tmp154998))) (define gxc#::find-var-refs::t - (let ((__tmp153713 (list gxc#::find-expression::t)) - (__tmp153712 (cons (cons 'final: '#t) '()))) + (let ((__tmp155000 (list gxc#::find-expression::t)) + (__tmp154999 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-var-refs::t '::find-var-refs - __tmp153713 + __tmp155000 '(ids) - __tmp153712 + __tmp154999 '#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 _%$args153599%_ - (apply make-instance gxc#::find-var-refs::t _%$args153599%_))) + (lambda _%$args154886%_ + (apply make-instance gxc#::find-var-refs::t _%$args154886%_))) (define gxc#::find-var-refs-ids (let () (declare (not safe)) @@ -624,7 +624,7 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#::find-var-refs::t 'ids))) (define gxc#::find-var-refs-bind-methods! - (let ((__tmp153714 + (let ((__tmp155001 (lambda () (force gxc#::find-expression-bind-methods!) (let () @@ -643,72 +643,72 @@ (declare (not safe)) (__seal-class! gxc#::find-var-refs::t))))) (declare (not safe)) - (__make-promise __tmp153714))) + (__make-promise __tmp155001))) (define gxc#apply-find-var-refs__% - (lambda (_%@@keywords153573%_ _%ids153570153574%_ _%stx153576%_) - (let ((_%ids153579%_ - (if (eq? _%ids153570153574%_ absent-value) + (lambda (_%@@keywords154860%_ _%ids154857154861%_ _%stx154863%_) + (let ((_%ids154866%_ + (if (eq? _%ids154857154861%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'ids:)) - _%ids153570153574%_))) + _%ids154857154861%_))) (force gxc#::find-var-refs-bind-methods!) - (let* ((_%self153581%_ - (let ((__obj153695 + (let* ((_%self154868%_ + (let ((__obj154982 (let () (declare (not safe)) (##structure gxc#::find-var-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153695 - _%ids153579%_ + __obj154982 + _%ids154866%_ '1 '#f '#f)) - __obj153695)) - (__tmp153715 + __obj154982)) + (__tmp155002 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153581%_ _%stx153576%_))))) + (gxc#compile-e__1 _%self154868%_ _%stx154863%_))))) (declare (not safe)) (__call-with-parameters - __tmp153715 + __tmp155002 gxc#current-compile-method - _%self153581%_))))) + _%self154868%_))))) (define gxc#apply-find-var-refs__@ - (lambda (_%@@keywords153588%_ . _%args153589%_) + (lambda (_%@@keywords154875%_ . _%args154876%_) (apply gxc#apply-find-var-refs__% - _%@@keywords153588%_ + _%@@keywords154875%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords153588%_ 'ids: absent-value)) - _%args153589%_))) + (symbolic-table-ref _%@@keywords154875%_ 'ids: absent-value)) + _%args154876%_))) (define gxc#apply-find-var-refs - (lambda _%args153571153595%_ + (lambda _%args154858154882%_ (apply keyword-dispatch '#(ids:) gxc#apply-find-var-refs__@ - _%args153571153595%_))) + _%args154858154882%_))) (define gxc#::collect-runtime-refs::t - (let ((__tmp153717 (list gxc#::collect-expression-refs::t)) - (__tmp153716 (cons (cons 'final: '#t) '()))) + (let ((__tmp155004 (list gxc#::collect-expression-refs::t)) + (__tmp155003 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-runtime-refs::t '::collect-runtime-refs - __tmp153717 + __tmp155004 '() - __tmp153716 + __tmp155003 '#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 _%$args153566%_ - (apply make-instance gxc#::collect-runtime-refs::t _%$args153566%_))) + (lambda _%$args154853%_ + (apply make-instance gxc#::collect-runtime-refs::t _%$args154853%_))) (define gxc#::collect-runtime-refs-table (let () (declare (not safe)) @@ -730,7 +730,7 @@ gxc#::collect-runtime-refs::t 'table))) (define gxc#::collect-runtime-refs-bind-methods! - (let ((__tmp153718 + (let ((__tmp155005 (lambda () (force gxc#::collect-expression-refs-bind-methods!) (let () @@ -749,1158 +749,1158 @@ (declare (not safe)) (__seal-class! gxc#::collect-runtime-refs::t))))) (declare (not safe)) - (__make-promise __tmp153718))) + (__make-promise __tmp155005))) (define gxc#apply-collect-runtime-refs__% - (lambda (_%@@keywords153540%_ _%table153537153541%_ _%stx153543%_) - (let ((_%table153546%_ - (if (eq? _%table153537153541%_ absent-value) + (lambda (_%@@keywords154827%_ _%table154824154828%_ _%stx154830%_) + (let ((_%table154833%_ + (if (eq? _%table154824154828%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table153537153541%_))) + _%table154824154828%_))) (force gxc#::collect-runtime-refs-bind-methods!) - (let* ((_%self153548%_ - (let ((__obj153697 + (let* ((_%self154835%_ + (let ((__obj154984 (let () (declare (not safe)) (##structure gxc#::collect-runtime-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153697 - _%table153546%_ + __obj154984 + _%table154833%_ '1 '#f '#f)) - __obj153697)) - (__tmp153719 + __obj154984)) + (__tmp155006 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153548%_ _%stx153543%_))))) + (gxc#compile-e__1 _%self154835%_ _%stx154830%_))))) (declare (not safe)) (__call-with-parameters - __tmp153719 + __tmp155006 gxc#current-compile-method - _%self153548%_))))) + _%self154835%_))))) (define gxc#apply-collect-runtime-refs__@ - (lambda (_%@@keywords153555%_ . _%args153556%_) + (lambda (_%@@keywords154842%_ . _%args154843%_) (apply gxc#apply-collect-runtime-refs__% - _%@@keywords153555%_ + _%@@keywords154842%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords153555%_ + _%@@keywords154842%_ 'table: absent-value)) - _%args153556%_))) + _%args154843%_))) (define gxc#apply-collect-runtime-refs - (lambda _%args153538153562%_ + (lambda _%args154825154849%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-runtime-refs__@ - _%args153538153562%_))) + _%args154825154849%_))) (define gxc#collect-mutators-setq% - (lambda (_%self153466%_ _%stx153467%_) - (let* ((_%g153469153486%_ - (lambda (_%g153470153483%_) + (lambda (_%self154753%_ _%stx154754%_) + (let* ((_%g154756154773%_ + (lambda (_%g154757154770%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153470153483%_)))) - (_%g153468153533%_ - (lambda (_%g153470153489%_) + _%g154757154770%_)))) + (_%g154755154820%_ + (lambda (_%g154757154776%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153470153489%_)) - (let ((_%e153473153491%_ + (gx#stx-pair? _%g154757154776%_)) + (let ((_%e154760154778%_ (let () (declare (not safe)) - (gx#stx-e _%g153470153489%_)))) - (let ((_%hd153474153494%_ + (gx#stx-e _%g154757154776%_)))) + (let ((_%hd154761154781%_ (let () (declare (not safe)) - (##car _%e153473153491%_))) - (_%tl153475153496%_ + (##car _%e154760154778%_))) + (_%tl154762154783%_ (let () (declare (not safe)) - (##cdr _%e153473153491%_)))) + (##cdr _%e154760154778%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153475153496%_)) - (let ((_%e153476153499%_ + (gx#stx-pair? _%tl154762154783%_)) + (let ((_%e154763154786%_ (let () (declare (not safe)) - (gx#stx-e _%tl153475153496%_)))) - (let ((_%hd153477153502%_ + (gx#stx-e _%tl154762154783%_)))) + (let ((_%hd154764154789%_ (let () (declare (not safe)) - (##car _%e153476153499%_))) - (_%tl153478153504%_ + (##car _%e154763154786%_))) + (_%tl154765154791%_ (let () (declare (not safe)) - (##cdr _%e153476153499%_)))) + (##cdr _%e154763154786%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153478153504%_)) - (let ((_%e153479153507%_ + (gx#stx-pair? _%tl154765154791%_)) + (let ((_%e154766154794%_ (let () (declare (not safe)) - (gx#stx-e _%tl153478153504%_)))) - (let ((_%hd153480153510%_ + (gx#stx-e _%tl154765154791%_)))) + (let ((_%hd154767154797%_ (let () (declare (not safe)) - (##car _%e153479153507%_))) - (_%tl153481153512%_ + (##car _%e154766154794%_))) + (_%tl154768154799%_ (let () (declare (not safe)) - (##cdr _%e153479153507%_)))) + (##cdr _%e154766154794%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153481153512%_)) - ((lambda (_%L153515%_ - _%L153516%_) - (let ((_%sym153531%_ + _%tl154768154799%_)) + ((lambda (_%L154802%_ + _%L154803%_) + (let ((_%sym154818%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L153516%_)))) + _%L154803%_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _%sym153531%_)) - (let ((__tmp153720 + _%sym154818%_)) + (let ((__tmp155007 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) (hash-put! - __tmp153720 - _%sym153531%_ + __tmp155007 + _%sym154818%_ '#t)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self153466%_ - _%L153515%_)))) - _%hd153480153510%_ - _%hd153477153502%_) - (_%g153469153486%_ - _%g153470153489%_)))) - (_%g153469153486%_ _%g153470153489%_)))) - (_%g153469153486%_ _%g153470153489%_)))) - (_%g153469153486%_ _%g153470153489%_))))) - (_%g153468153533%_ _%stx153467%_)))) + _%self154753%_ + _%L154802%_)))) + _%hd154767154797%_ + _%hd154764154789%_) + (_%g154756154773%_ + _%g154757154776%_)))) + (_%g154756154773%_ _%g154757154776%_)))) + (_%g154756154773%_ _%g154757154776%_)))) + (_%g154756154773%_ _%g154757154776%_))))) + (_%g154755154820%_ _%stx154754%_)))) (define gxc#expression-subst-ref% - (lambda (_%self153414%_ _%stx153415%_) - (let* ((_%g153417153430%_ - (lambda (_%g153418153427%_) + (lambda (_%self154701%_ _%stx154702%_) + (let* ((_%g154704154717%_ + (lambda (_%g154705154714%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153418153427%_)))) - (_%g153416153463%_ - (lambda (_%g153418153433%_) + _%g154705154714%_)))) + (_%g154703154750%_ + (lambda (_%g154705154720%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153418153433%_)) - (let ((_%e153420153435%_ + (gx#stx-pair? _%g154705154720%_)) + (let ((_%e154707154722%_ (let () (declare (not safe)) - (gx#stx-e _%g153418153433%_)))) - (let ((_%hd153421153438%_ + (gx#stx-e _%g154705154720%_)))) + (let ((_%hd154708154725%_ (let () (declare (not safe)) - (##car _%e153420153435%_))) - (_%tl153422153440%_ + (##car _%e154707154722%_))) + (_%tl154709154727%_ (let () (declare (not safe)) - (##cdr _%e153420153435%_)))) + (##cdr _%e154707154722%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153422153440%_)) - (let ((_%e153423153443%_ + (gx#stx-pair? _%tl154709154727%_)) + (let ((_%e154710154730%_ (let () (declare (not safe)) - (gx#stx-e _%tl153422153440%_)))) - (let ((_%hd153424153446%_ + (gx#stx-e _%tl154709154727%_)))) + (let ((_%hd154711154733%_ (let () (declare (not safe)) - (##car _%e153423153443%_))) - (_%tl153425153448%_ + (##car _%e154710154730%_))) + (_%tl154712154735%_ (let () (declare (not safe)) - (##cdr _%e153423153443%_)))) + (##cdr _%e154710154730%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153425153448%_)) - ((lambda (_%L153451%_) - (if (let ((__tmp153721 + (gx#stx-null? _%tl154712154735%_)) + ((lambda (_%L154738%_) + (if (let ((__tmp155008 (let () (declare (not safe)) (slot-ref__0 - _%self153414%_ + _%self154701%_ 'id)))) (declare (not safe)) (gx#free-identifier=? - _%L153451%_ - __tmp153721)) - (let ((__tmp153722 + _%L154738%_ + __tmp155008)) + (let ((__tmp155009 (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self153414%_ 'new-id)) + (slot-ref__0 _%self154701%_ 'new-id)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153722 - _%stx153415%_)) - _%stx153415%_)) - _%hd153424153446%_) - (_%g153417153430%_ _%g153418153433%_)))) - (_%g153417153430%_ _%g153418153433%_)))) - (_%g153417153430%_ _%g153418153433%_))))) - (_%g153416153463%_ _%stx153415%_)))) + __tmp155009 + _%stx154702%_)) + _%stx154702%_)) + _%hd154711154733%_) + (_%g154704154717%_ _%g154705154720%_)))) + (_%g154704154717%_ _%g154705154720%_)))) + (_%g154704154717%_ _%g154705154720%_))))) + (_%g154703154750%_ _%stx154702%_)))) (define gxc#expression-subst*-ref% - (lambda (_%self153354%_ _%stx153355%_) - (let* ((_%g153357153370%_ - (lambda (_%g153358153367%_) + (lambda (_%self154641%_ _%stx154642%_) + (let* ((_%g154644154657%_ + (lambda (_%g154645154654%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153358153367%_)))) - (_%g153356153411%_ - (lambda (_%g153358153373%_) + _%g154645154654%_)))) + (_%g154643154698%_ + (lambda (_%g154645154660%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153358153373%_)) - (let ((_%e153360153375%_ + (gx#stx-pair? _%g154645154660%_)) + (let ((_%e154647154662%_ (let () (declare (not safe)) - (gx#stx-e _%g153358153373%_)))) - (let ((_%hd153361153378%_ + (gx#stx-e _%g154645154660%_)))) + (let ((_%hd154648154665%_ (let () (declare (not safe)) - (##car _%e153360153375%_))) - (_%tl153362153380%_ + (##car _%e154647154662%_))) + (_%tl154649154667%_ (let () (declare (not safe)) - (##cdr _%e153360153375%_)))) + (##cdr _%e154647154662%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153362153380%_)) - (let ((_%e153363153383%_ + (gx#stx-pair? _%tl154649154667%_)) + (let ((_%e154650154670%_ (let () (declare (not safe)) - (gx#stx-e _%tl153362153380%_)))) - (let ((_%hd153364153386%_ + (gx#stx-e _%tl154649154667%_)))) + (let ((_%hd154651154673%_ (let () (declare (not safe)) - (##car _%e153363153383%_))) - (_%tl153365153388%_ + (##car _%e154650154670%_))) + (_%tl154652154675%_ (let () (declare (not safe)) - (##cdr _%e153363153383%_)))) + (##cdr _%e154650154670%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153365153388%_)) - ((lambda (_%L153391%_) - (let ((_%$e153405%_ - (let ((__tmp153724 - (lambda (_%sub153403%_) - (let ((__tmp153725 - (car _%sub153403%_))) + (gx#stx-null? _%tl154652154675%_)) + ((lambda (_%L154678%_) + (let ((_%$e154692%_ + (let ((__tmp155011 + (lambda (_%sub154690%_) + (let ((__tmp155012 + (car _%sub154690%_))) (declare (not safe)) (gx#free-identifier=? - _%L153391%_ - __tmp153725)))) - (__tmp153723 + _%L154678%_ + __tmp155012)))) + (__tmp155010 (let () (declare (not safe)) (slot-ref__0 - _%self153354%_ + _%self154641%_ 'subst)))) (declare (not safe)) - (__find __tmp153724 - __tmp153723)))) - (if _%$e153405%_ - ((lambda (_%sub153408%_) - (let ((__tmp153726 + (__find __tmp155011 + __tmp155010)))) + (if _%$e154692%_ + ((lambda (_%sub154695%_) + (let ((__tmp155013 (cons '%#ref - (cons (cdr _%sub153408%_) + (cons (cdr _%sub154695%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153726 - _%stx153355%_))) - _%$e153405%_) - _%stx153355%_))) - _%hd153364153386%_) - (_%g153357153370%_ _%g153358153373%_)))) - (_%g153357153370%_ _%g153358153373%_)))) - (_%g153357153370%_ _%g153358153373%_))))) - (_%g153356153411%_ _%stx153355%_)))) + __tmp155013 + _%stx154642%_))) + _%$e154692%_) + _%stx154642%_))) + _%hd154651154673%_) + (_%g154644154657%_ _%g154645154660%_)))) + (_%g154644154657%_ _%g154645154660%_)))) + (_%g154644154657%_ _%g154645154660%_))))) + (_%g154643154698%_ _%stx154642%_)))) (define gxc#expression-subst-setq% - (lambda (_%self153283%_ _%stx153284%_) - (let* ((_%g153286153303%_ - (lambda (_%g153287153300%_) + (lambda (_%self154570%_ _%stx154571%_) + (let* ((_%g154573154590%_ + (lambda (_%g154574154587%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153287153300%_)))) - (_%g153285153351%_ - (lambda (_%g153287153306%_) + _%g154574154587%_)))) + (_%g154572154638%_ + (lambda (_%g154574154593%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153287153306%_)) - (let ((_%e153290153308%_ + (gx#stx-pair? _%g154574154593%_)) + (let ((_%e154577154595%_ (let () (declare (not safe)) - (gx#stx-e _%g153287153306%_)))) - (let ((_%hd153291153311%_ + (gx#stx-e _%g154574154593%_)))) + (let ((_%hd154578154598%_ (let () (declare (not safe)) - (##car _%e153290153308%_))) - (_%tl153292153313%_ + (##car _%e154577154595%_))) + (_%tl154579154600%_ (let () (declare (not safe)) - (##cdr _%e153290153308%_)))) + (##cdr _%e154577154595%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153292153313%_)) - (let ((_%e153293153316%_ + (gx#stx-pair? _%tl154579154600%_)) + (let ((_%e154580154603%_ (let () (declare (not safe)) - (gx#stx-e _%tl153292153313%_)))) - (let ((_%hd153294153319%_ + (gx#stx-e _%tl154579154600%_)))) + (let ((_%hd154581154606%_ (let () (declare (not safe)) - (##car _%e153293153316%_))) - (_%tl153295153321%_ + (##car _%e154580154603%_))) + (_%tl154582154608%_ (let () (declare (not safe)) - (##cdr _%e153293153316%_)))) + (##cdr _%e154580154603%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153295153321%_)) - (let ((_%e153296153324%_ + (gx#stx-pair? _%tl154582154608%_)) + (let ((_%e154583154611%_ (let () (declare (not safe)) - (gx#stx-e _%tl153295153321%_)))) - (let ((_%hd153297153327%_ + (gx#stx-e _%tl154582154608%_)))) + (let ((_%hd154584154614%_ (let () (declare (not safe)) - (##car _%e153296153324%_))) - (_%tl153298153329%_ + (##car _%e154583154611%_))) + (_%tl154585154616%_ (let () (declare (not safe)) - (##cdr _%e153296153324%_)))) + (##cdr _%e154583154611%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153298153329%_)) - ((lambda (_%L153332%_ - _%L153333%_) - (let ((_%new-expr153348%_ + _%tl154585154616%_)) + ((lambda (_%L154619%_ + _%L154620%_) + (let ((_%new-expr154635%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153283%_ - _%L153332%_))) - (_%new-xid153349%_ - (if (let ((__tmp153727 + _%self154570%_ + _%L154619%_))) + (_%new-xid154636%_ + (if (let ((__tmp155014 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (slot-ref__0 _%self153283%_ 'id)))) + (slot-ref__0 _%self154570%_ 'id)))) (declare (not safe)) - (gx#free-identifier=? _%L153333%_ __tmp153727)) + (gx#free-identifier=? _%L154620%_ __tmp155014)) (let () (declare (not safe)) - (slot-ref__0 _%self153283%_ 'new-id)) - _%L153333%_))) + (slot-ref__0 _%self154570%_ 'new-id)) + _%L154620%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp153728 + (let ((__tmp155015 (cons '%#set! - (cons _%new-xid153349%_ + (cons _%new-xid154636%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr153348%_ '()))))) + (cons _%new-expr154635%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153728 - _%stx153284%_)))) - _%hd153297153327%_ - _%hd153294153319%_) - (_%g153286153303%_ - _%g153287153306%_)))) - (_%g153286153303%_ _%g153287153306%_)))) - (_%g153286153303%_ _%g153287153306%_)))) - (_%g153286153303%_ _%g153287153306%_))))) - (_%g153285153351%_ _%stx153284%_)))) + __tmp155015 + _%stx154571%_)))) + _%hd154584154614%_ + _%hd154581154606%_) + (_%g154573154590%_ + _%g154574154593%_)))) + (_%g154573154590%_ _%g154574154593%_)))) + (_%g154573154590%_ _%g154574154593%_)))) + (_%g154573154590%_ _%g154574154593%_))))) + (_%g154572154638%_ _%stx154571%_)))) (define gxc#expression-subst*-setq% - (lambda (_%self153206%_ _%stx153207%_) - (let* ((_%g153209153226%_ - (lambda (_%g153210153223%_) + (lambda (_%self154493%_ _%stx154494%_) + (let* ((_%g154496154513%_ + (lambda (_%g154497154510%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153210153223%_)))) - (_%g153208153280%_ - (lambda (_%g153210153229%_) + _%g154497154510%_)))) + (_%g154495154567%_ + (lambda (_%g154497154516%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153210153229%_)) - (let ((_%e153213153231%_ + (gx#stx-pair? _%g154497154516%_)) + (let ((_%e154500154518%_ (let () (declare (not safe)) - (gx#stx-e _%g153210153229%_)))) - (let ((_%hd153214153234%_ + (gx#stx-e _%g154497154516%_)))) + (let ((_%hd154501154521%_ (let () (declare (not safe)) - (##car _%e153213153231%_))) - (_%tl153215153236%_ + (##car _%e154500154518%_))) + (_%tl154502154523%_ (let () (declare (not safe)) - (##cdr _%e153213153231%_)))) + (##cdr _%e154500154518%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153215153236%_)) - (let ((_%e153216153239%_ + (gx#stx-pair? _%tl154502154523%_)) + (let ((_%e154503154526%_ (let () (declare (not safe)) - (gx#stx-e _%tl153215153236%_)))) - (let ((_%hd153217153242%_ + (gx#stx-e _%tl154502154523%_)))) + (let ((_%hd154504154529%_ (let () (declare (not safe)) - (##car _%e153216153239%_))) - (_%tl153218153244%_ + (##car _%e154503154526%_))) + (_%tl154505154531%_ (let () (declare (not safe)) - (##cdr _%e153216153239%_)))) + (##cdr _%e154503154526%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153218153244%_)) - (let ((_%e153219153247%_ + (gx#stx-pair? _%tl154505154531%_)) + (let ((_%e154506154534%_ (let () (declare (not safe)) - (gx#stx-e _%tl153218153244%_)))) - (let ((_%hd153220153250%_ + (gx#stx-e _%tl154505154531%_)))) + (let ((_%hd154507154537%_ (let () (declare (not safe)) - (##car _%e153219153247%_))) - (_%tl153221153252%_ + (##car _%e154506154534%_))) + (_%tl154508154539%_ (let () (declare (not safe)) - (##cdr _%e153219153247%_)))) + (##cdr _%e154506154534%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153221153252%_)) - ((lambda (_%L153255%_ - _%L153256%_) - (let ((_%new-expr153277%_ + _%tl154508154539%_)) + ((lambda (_%L154542%_ + _%L154543%_) + (let ((_%new-expr154564%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153206%_ - _%L153255%_))) - (_%new-xid153278%_ - (let ((_%$e153273%_ - (let ((__tmp153730 + _%self154493%_ + _%L154542%_))) + (_%new-xid154565%_ + (let ((_%$e154560%_ + (let ((__tmp155017 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%sub153271%_) - (let ((__tmp153731 (car _%sub153271%_))) + (lambda (_%sub154558%_) + (let ((__tmp155018 (car _%sub154558%_))) (declare (not safe)) (gx#free-identifier=? - _%L153256%_ - __tmp153731)))) - (__tmp153729 + _%L154543%_ + __tmp155018)))) + (__tmp155016 (let () (declare (not safe)) - (slot-ref__0 _%self153206%_ 'subst)))) + (slot-ref__0 _%self154493%_ 'subst)))) (declare (not safe)) - (__find __tmp153730 __tmp153729)))) - (if _%$e153273%_ (cdr _%$e153273%_) _%L153256%_)))) + (__find __tmp155017 __tmp155016)))) + (if _%$e154560%_ (cdr _%$e154560%_) _%L154543%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp153732 + (let ((__tmp155019 (cons '%#set! - (cons _%new-xid153278%_ + (cons _%new-xid154565%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr153277%_ '()))))) + (cons _%new-expr154564%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153732 - _%stx153207%_)))) - _%hd153220153250%_ - _%hd153217153242%_) - (_%g153209153226%_ - _%g153210153229%_)))) - (_%g153209153226%_ _%g153210153229%_)))) - (_%g153209153226%_ _%g153210153229%_)))) - (_%g153209153226%_ _%g153210153229%_))))) - (_%g153208153280%_ _%stx153207%_)))) + __tmp155019 + _%stx154494%_)))) + _%hd154507154537%_ + _%hd154504154529%_) + (_%g154496154513%_ + _%g154497154516%_)))) + (_%g154496154513%_ _%g154497154516%_)))) + (_%g154496154513%_ _%g154497154516%_)))) + (_%g154496154513%_ _%g154497154516%_))))) + (_%g154495154567%_ _%stx154494%_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_%self153152%_ _%stx153153%_) - (let* ((_%g153155153168%_ - (lambda (_%g153156153165%_) + (lambda (_%self154439%_ _%stx154440%_) + (let* ((_%g154442154455%_ + (lambda (_%g154443154452%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153156153165%_)))) - (_%g153154153203%_ - (lambda (_%g153156153171%_) + _%g154443154452%_)))) + (_%g154441154490%_ + (lambda (_%g154443154458%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153156153171%_)) - (let ((_%e153158153173%_ + (gx#stx-pair? _%g154443154458%_)) + (let ((_%e154445154460%_ (let () (declare (not safe)) - (gx#stx-e _%g153156153171%_)))) - (let ((_%hd153159153176%_ + (gx#stx-e _%g154443154458%_)))) + (let ((_%hd154446154463%_ (let () (declare (not safe)) - (##car _%e153158153173%_))) - (_%tl153160153178%_ + (##car _%e154445154460%_))) + (_%tl154447154465%_ (let () (declare (not safe)) - (##cdr _%e153158153173%_)))) + (##cdr _%e154445154460%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153160153178%_)) - (let ((_%e153161153181%_ + (gx#stx-pair? _%tl154447154465%_)) + (let ((_%e154448154468%_ (let () (declare (not safe)) - (gx#stx-e _%tl153160153178%_)))) - (let ((_%hd153162153184%_ + (gx#stx-e _%tl154447154465%_)))) + (let ((_%hd154449154471%_ (let () (declare (not safe)) - (##car _%e153161153181%_))) - (_%tl153163153186%_ + (##car _%e154448154468%_))) + (_%tl154450154473%_ (let () (declare (not safe)) - (##cdr _%e153161153181%_)))) + (##cdr _%e154448154468%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153163153186%_)) - ((lambda (_%L153189%_) - (let* ((_%eid153201%_ + (gx#stx-null? _%tl154450154473%_)) + ((lambda (_%L154476%_) + (let* ((_%eid154488%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L153189%_))) - (__tmp153733 + _%L154476%_))) + (__tmp155020 (let () (declare (not safe)) (slot-ref__0 - _%self153152%_ + _%self154439%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp153733 - _%eid153201%_ + __tmp155020 + _%eid154488%_ 1+ '0))) - _%hd153162153184%_) - (_%g153155153168%_ _%g153156153171%_)))) - (_%g153155153168%_ _%g153156153171%_)))) - (_%g153155153168%_ _%g153156153171%_))))) - (_%g153154153203%_ _%stx153153%_)))) + _%hd154449154471%_) + (_%g154442154455%_ _%g154443154458%_)))) + (_%g154442154455%_ _%g154443154458%_)))) + (_%g154442154455%_ _%g154443154458%_))))) + (_%g154441154490%_ _%stx154440%_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_%self153082%_ _%stx153083%_) - (let* ((_%g153085153102%_ - (lambda (_%g153086153099%_) + (lambda (_%self154369%_ _%stx154370%_) + (let* ((_%g154372154389%_ + (lambda (_%g154373154386%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153086153099%_)))) - (_%g153084153149%_ - (lambda (_%g153086153105%_) + _%g154373154386%_)))) + (_%g154371154436%_ + (lambda (_%g154373154392%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153086153105%_)) - (let ((_%e153089153107%_ + (gx#stx-pair? _%g154373154392%_)) + (let ((_%e154376154394%_ (let () (declare (not safe)) - (gx#stx-e _%g153086153105%_)))) - (let ((_%hd153090153110%_ + (gx#stx-e _%g154373154392%_)))) + (let ((_%hd154377154397%_ (let () (declare (not safe)) - (##car _%e153089153107%_))) - (_%tl153091153112%_ + (##car _%e154376154394%_))) + (_%tl154378154399%_ (let () (declare (not safe)) - (##cdr _%e153089153107%_)))) + (##cdr _%e154376154394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153091153112%_)) - (let ((_%e153092153115%_ + (gx#stx-pair? _%tl154378154399%_)) + (let ((_%e154379154402%_ (let () (declare (not safe)) - (gx#stx-e _%tl153091153112%_)))) - (let ((_%hd153093153118%_ + (gx#stx-e _%tl154378154399%_)))) + (let ((_%hd154380154405%_ (let () (declare (not safe)) - (##car _%e153092153115%_))) - (_%tl153094153120%_ + (##car _%e154379154402%_))) + (_%tl154381154407%_ (let () (declare (not safe)) - (##cdr _%e153092153115%_)))) + (##cdr _%e154379154402%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153094153120%_)) - (let ((_%e153095153123%_ + (gx#stx-pair? _%tl154381154407%_)) + (let ((_%e154382154410%_ (let () (declare (not safe)) - (gx#stx-e _%tl153094153120%_)))) - (let ((_%hd153096153126%_ + (gx#stx-e _%tl154381154407%_)))) + (let ((_%hd154383154413%_ (let () (declare (not safe)) - (##car _%e153095153123%_))) - (_%tl153097153128%_ + (##car _%e154382154410%_))) + (_%tl154384154415%_ (let () (declare (not safe)) - (##cdr _%e153095153123%_)))) + (##cdr _%e154382154410%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153097153128%_)) - ((lambda (_%L153131%_ - _%L153132%_) - (let ((_%eid153147%_ + _%tl154384154415%_)) + ((lambda (_%L154418%_ + _%L154419%_) + (let ((_%eid154434%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L153132%_)))) - (let ((__tmp153734 + _%L154419%_)))) + (let ((__tmp155021 (let () (declare (not safe)) (slot-ref__0 - _%self153082%_ + _%self154369%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp153734 - _%eid153147%_ + __tmp155021 + _%eid154434%_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self153082%_ - _%L153131%_)))) - _%hd153096153126%_ - _%hd153093153118%_) - (_%g153085153102%_ - _%g153086153105%_)))) - (_%g153085153102%_ _%g153086153105%_)))) - (_%g153085153102%_ _%g153086153105%_)))) - (_%g153085153102%_ _%g153086153105%_))))) - (_%g153084153149%_ _%stx153083%_)))) + _%self154369%_ + _%L154418%_)))) + _%hd154383154413%_ + _%hd154380154405%_) + (_%g154372154389%_ + _%g154373154392%_)))) + (_%g154372154389%_ _%g154373154392%_)))) + (_%g154372154389%_ _%g154373154392%_)))) + (_%g154372154389%_ _%g154373154392%_))))) + (_%g154371154436%_ _%stx154370%_)))) (define gxc#find-body% - (lambda (_%self152995%_ _%stx152996%_) - (let* ((_%g152998153017%_ - (lambda (_%g152999153014%_) + (lambda (_%self154282%_ _%stx154283%_) + (let* ((_%g154285154304%_ + (lambda (_%g154286154301%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152999153014%_)))) - (_%g152997153079%_ - (lambda (_%g152999153020%_) + _%g154286154301%_)))) + (_%g154284154366%_ + (lambda (_%g154286154307%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152999153020%_)) - (let ((_%e153001153022%_ + (gx#stx-pair? _%g154286154307%_)) + (let ((_%e154288154309%_ (let () (declare (not safe)) - (gx#stx-e _%g152999153020%_)))) - (let ((_%hd153002153025%_ + (gx#stx-e _%g154286154307%_)))) + (let ((_%hd154289154312%_ (let () (declare (not safe)) - (##car _%e153001153022%_))) - (_%tl153003153027%_ + (##car _%e154288154309%_))) + (_%tl154290154314%_ (let () (declare (not safe)) - (##cdr _%e153001153022%_)))) + (##cdr _%e154288154309%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl153003153027%_)) - (let ((_g153735_ + (gx#stx-pair/null? _%tl154290154314%_)) + (let ((_g155022_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl153003153027%_ + _%tl154290154314%_ '0)))) (begin - (let ((_g153736_ + (let ((_g155023_ (let () (declare (not safe)) - (if (##values? _g153735_) - (##vector-length _g153735_) + (if (##values? _g155022_) + (##values-length _g155022_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g153736_ 2))) + (##fx= _g155023_ 2))) (error "Context expects 2 values" - _g153736_))) - (let ((_%target153004153030%_ + _g155023_))) + (let ((_%target154291154317%_ (let () (declare (not safe)) - (##vector-ref _g153735_ 0))) - (_%tl153006153032%_ + (##values-ref _g155022_ 0))) + (_%tl154293154319%_ (let () (declare (not safe)) - (##vector-ref _g153735_ 1)))) + (##values-ref _g155022_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153006153032%_)) - (letrec ((_%loop153007153035%_ - (lambda (_%hd153005153038%_ - _%expr153011153040%_) + (gx#stx-null? _%tl154293154319%_)) + (letrec ((_%loop154294154322%_ + (lambda (_%hd154292154325%_ + _%expr154298154327%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153005153038%_)) - (let ((_%e153008153043%_ + _%hd154292154325%_)) + (let ((_%e154295154330%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd153005153038%_)))) - (let ((_%lp-hd153009153046%_ + (gx#stx-e _%hd154292154325%_)))) + (let ((_%lp-hd154296154333%_ (let () (declare (not safe)) - (##car _%e153008153043%_))) - (_%lp-tl153010153048%_ + (##car _%e154295154330%_))) + (_%lp-tl154297154335%_ (let () (declare (not safe)) - (##cdr _%e153008153043%_)))) - (_%loop153007153035%_ - _%lp-tl153010153048%_ - (cons _%lp-hd153009153046%_ _%expr153011153040%_)))) - (let ((_%expr153012153051%_ (reverse _%expr153011153040%_))) - ((lambda (_%L153054%_) - (let ((__tmp153739 - (lambda (_%g153067153069%_) + (##cdr _%e154295154330%_)))) + (_%loop154294154322%_ + _%lp-tl154297154335%_ + (cons _%lp-hd154296154333%_ _%expr154298154327%_)))) + (let ((_%expr154299154338%_ (reverse _%expr154298154327%_))) + ((lambda (_%L154341%_) + (let ((__tmp155026 + (lambda (_%g154354154356%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self152995%_ - _%g153067153069%_)))) - (__tmp153737 - (let ((__tmp153738 - (lambda (_%g153071153074%_ - _%g153072153076%_) - (cons _%g153071153074%_ - _%g153072153076%_)))) + _%self154282%_ + _%g154354154356%_)))) + (__tmp155024 + (let ((__tmp155025 + (lambda (_%g154358154361%_ + _%g154359154363%_) + (cons _%g154358154361%_ + _%g154359154363%_)))) (declare (not safe)) - (__foldr1 __tmp153738 '() _%L153054%_)))) + (__foldr1 __tmp155025 '() _%L154341%_)))) (declare (not safe)) - (__ormap1 __tmp153739 __tmp153737))) - _%expr153012153051%_)))))) + (__ormap1 __tmp155026 __tmp155024))) + _%expr154299154338%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop153007153035%_ - _%target153004153030%_ + (_%loop154294154322%_ + _%target154291154317%_ '())) - (_%g152998153017%_ - _%g152999153020%_))))) - (_%g152998153017%_ _%g152999153020%_)))) - (_%g152998153017%_ _%g152999153020%_))))) - (_%g152997153079%_ _%stx152996%_)))) + (_%g154285154304%_ + _%g154286154307%_))))) + (_%g154285154304%_ _%g154286154307%_)))) + (_%g154285154304%_ _%g154286154307%_))))) + (_%g154284154366%_ _%stx154283%_)))) (define gxc#find-let-values% - (lambda (_%self152845%_ _%stx152846%_) - (let* ((_%g152848152883%_ - (lambda (_%g152849152880%_) + (lambda (_%self154132%_ _%stx154133%_) + (let* ((_%g154135154170%_ + (lambda (_%g154136154167%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152849152880%_)))) - (_%g152847152992%_ - (lambda (_%g152849152886%_) + _%g154136154167%_)))) + (_%g154134154279%_ + (lambda (_%g154136154173%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152849152886%_)) - (let ((_%e152853152888%_ + (gx#stx-pair? _%g154136154173%_)) + (let ((_%e154140154175%_ (let () (declare (not safe)) - (gx#stx-e _%g152849152886%_)))) - (let ((_%hd152854152891%_ + (gx#stx-e _%g154136154173%_)))) + (let ((_%hd154141154178%_ (let () (declare (not safe)) - (##car _%e152853152888%_))) - (_%tl152855152893%_ + (##car _%e154140154175%_))) + (_%tl154142154180%_ (let () (declare (not safe)) - (##cdr _%e152853152888%_)))) + (##cdr _%e154140154175%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152855152893%_)) - (let ((_%e152856152896%_ + (gx#stx-pair? _%tl154142154180%_)) + (let ((_%e154143154183%_ (let () (declare (not safe)) - (gx#stx-e _%tl152855152893%_)))) - (let ((_%hd152857152899%_ + (gx#stx-e _%tl154142154180%_)))) + (let ((_%hd154144154186%_ (let () (declare (not safe)) - (##car _%e152856152896%_))) - (_%tl152858152901%_ + (##car _%e154143154183%_))) + (_%tl154145154188%_ (let () (declare (not safe)) - (##cdr _%e152856152896%_)))) + (##cdr _%e154143154183%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd152857152899%_)) - (let ((_g153740_ + (gx#stx-pair/null? _%hd154144154186%_)) + (let ((_g155027_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd152857152899%_ + _%hd154144154186%_ '0)))) (begin - (let ((_g153741_ + (let ((_g155028_ (let () (declare (not safe)) - (if (##values? _g153740_) - (##vector-length - _g153740_) + (if (##values? _g155027_) + (##values-length + _g155027_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g153741_ 2))) + (##fx= _g155028_ 2))) (error "Context expects 2 values" - _g153741_))) - (let ((_%target152859152904%_ + _g155028_))) + (let ((_%target154146154191%_ (let () (declare (not safe)) - (##vector-ref _g153740_ 0))) - (_%tl152861152906%_ + (##values-ref _g155027_ 0))) + (_%tl154148154193%_ (let () (declare (not safe)) - (##vector-ref - _g153740_ + (##values-ref + _g155027_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152861152906%_)) - (letrec ((_%loop152862152909%_ - (lambda (_%hd152860152912%_ + _%tl154148154193%_)) + (letrec ((_%loop154149154196%_ + (lambda (_%hd154147154199%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr152866152914%_ - _%bind152867152916%_) + _%expr154153154201%_ + _%bind154154154203%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd152860152912%_)) - (let ((_%e152863152919%_ + (gx#stx-pair? _%hd154147154199%_)) + (let ((_%e154150154206%_ (let () (declare (not safe)) - (gx#stx-e _%hd152860152912%_)))) - (let ((_%lp-hd152864152922%_ + (gx#stx-e _%hd154147154199%_)))) + (let ((_%lp-hd154151154209%_ (let () (declare (not safe)) - (##car _%e152863152919%_))) - (_%lp-tl152865152924%_ + (##car _%e154150154206%_))) + (_%lp-tl154152154211%_ (let () (declare (not safe)) - (##cdr _%e152863152919%_)))) + (##cdr _%e154150154206%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd152864152922%_)) - (let ((_%e152873152927%_ + (gx#stx-pair? _%lp-hd154151154209%_)) + (let ((_%e154160154214%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd152864152922%_)))) - (let ((_%hd152874152930%_ + (gx#stx-e _%lp-hd154151154209%_)))) + (let ((_%hd154161154217%_ (let () (declare (not safe)) - (##car _%e152873152927%_))) - (_%tl152875152932%_ + (##car _%e154160154214%_))) + (_%tl154162154219%_ (let () (declare (not safe)) - (##cdr _%e152873152927%_)))) + (##cdr _%e154160154214%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152875152932%_)) - (let ((_%e152876152935%_ + (gx#stx-pair? _%tl154162154219%_)) + (let ((_%e154163154222%_ (let () (declare (not safe)) (gx#stx-e - _%tl152875152932%_)))) - (let ((_%hd152877152938%_ + _%tl154162154219%_)))) + (let ((_%hd154164154225%_ (let () (declare (not safe)) - (##car _%e152876152935%_))) - (_%tl152878152940%_ + (##car _%e154163154222%_))) + (_%tl154165154227%_ (let () (declare (not safe)) - (##cdr _%e152876152935%_)))) + (##cdr _%e154163154222%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152878152940%_)) - (_%loop152862152909%_ - _%lp-tl152865152924%_ - (cons _%hd152877152938%_ - _%expr152866152914%_) - (cons _%hd152874152930%_ - _%bind152867152916%_)) - (_%g152848152883%_ - _%g152849152886%_)))) - (_%g152848152883%_ - _%g152849152886%_)))) - (_%g152848152883%_ _%g152849152886%_)))) - (let ((_%expr152868152943%_ - (reverse _%expr152866152914%_)) - (_%bind152869152945%_ - (reverse _%bind152867152916%_))) + _%tl154165154227%_)) + (_%loop154149154196%_ + _%lp-tl154152154211%_ + (cons _%hd154164154225%_ + _%expr154153154201%_) + (cons _%hd154161154217%_ + _%bind154154154203%_)) + (_%g154135154170%_ + _%g154136154173%_)))) + (_%g154135154170%_ + _%g154136154173%_)))) + (_%g154135154170%_ _%g154136154173%_)))) + (let ((_%expr154155154230%_ + (reverse _%expr154153154201%_)) + (_%bind154156154232%_ + (reverse _%bind154154154203%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152858152901%_)) - (let ((_%e152870152948%_ + (gx#stx-pair? _%tl154145154188%_)) + (let ((_%e154157154235%_ (let () (declare (not safe)) - (gx#stx-e _%tl152858152901%_)))) - (let ((_%hd152871152951%_ + (gx#stx-e _%tl154145154188%_)))) + (let ((_%hd154158154238%_ (let () (declare (not safe)) - (##car _%e152870152948%_))) - (_%tl152872152953%_ + (##car _%e154157154235%_))) + (_%tl154159154240%_ (let () (declare (not safe)) - (##cdr _%e152870152948%_)))) + (##cdr _%e154157154235%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152872152953%_)) - ((lambda (_%L152956%_ - _%L152957%_ - _%L152958%_) - (let ((_%$e152989%_ - (let ((__tmp153744 - (lambda (_%g152977152979%_) + (gx#stx-null? _%tl154159154240%_)) + ((lambda (_%L154243%_ + _%L154244%_ + _%L154245%_) + (let ((_%$e154276%_ + (let ((__tmp155031 + (lambda (_%g154264154266%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self152845%_ - _%g152977152979%_)))) - (__tmp153742 - (let ((__tmp153743 - (lambda (_%g152981152984%_ + _%self154132%_ + _%g154264154266%_)))) + (__tmp155029 + (let ((__tmp155030 + (lambda (_%g154268154271%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g152982152986%_) - (cons _%g152981152984%_ _%g152982152986%_)))) + _%g154269154273%_) + (cons _%g154268154271%_ _%g154269154273%_)))) (declare (not safe)) - (__foldr1 __tmp153743 '() _%L152957%_)))) + (__foldr1 __tmp155030 '() _%L154244%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__ormap1 - __tmp153744 - __tmp153742)))) - (if _%$e152989%_ - _%$e152989%_ + __tmp155031 + __tmp155029)))) + (if _%$e154276%_ + _%$e154276%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152845%_ - _%L152956%_))))) - _%hd152871152951%_ - _%expr152868152943%_ - _%bind152869152945%_) - (_%g152848152883%_ _%g152849152886%_)))) - (_%g152848152883%_ _%g152849152886%_))))))) + _%self154132%_ + _%L154243%_))))) + _%hd154158154238%_ + _%expr154155154230%_ + _%bind154156154232%_) + (_%g154135154170%_ _%g154136154173%_)))) + (_%g154135154170%_ _%g154136154173%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop152862152909%_ - _%target152859152904%_ + (_%loop154149154196%_ + _%target154146154191%_ '() '())) - (_%g152848152883%_ - _%g152849152886%_))))) - (_%g152848152883%_ _%g152849152886%_)))) - (_%g152848152883%_ _%g152849152886%_)))) - (_%g152848152883%_ _%g152849152886%_))))) - (_%g152847152992%_ _%stx152846%_)))) + (_%g154135154170%_ + _%g154136154173%_))))) + (_%g154135154170%_ _%g154136154173%_)))) + (_%g154135154170%_ _%g154136154173%_)))) + (_%g154135154170%_ _%g154136154173%_))))) + (_%g154134154279%_ _%stx154133%_)))) (define gxc#find-var-refs-ref% - (lambda (_%self152789%_ _%stx152790%_) - (let* ((_%g152792152805%_ - (lambda (_%g152793152802%_) + (lambda (_%self154076%_ _%stx154077%_) + (let* ((_%g154079154092%_ + (lambda (_%g154080154089%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152793152802%_)))) - (_%g152791152842%_ - (lambda (_%g152793152808%_) + _%g154080154089%_)))) + (_%g154078154129%_ + (lambda (_%g154080154095%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152793152808%_)) - (let ((_%e152795152810%_ + (gx#stx-pair? _%g154080154095%_)) + (let ((_%e154082154097%_ (let () (declare (not safe)) - (gx#stx-e _%g152793152808%_)))) - (let ((_%hd152796152813%_ + (gx#stx-e _%g154080154095%_)))) + (let ((_%hd154083154100%_ (let () (declare (not safe)) - (##car _%e152795152810%_))) - (_%tl152797152815%_ + (##car _%e154082154097%_))) + (_%tl154084154102%_ (let () (declare (not safe)) - (##cdr _%e152795152810%_)))) + (##cdr _%e154082154097%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152797152815%_)) - (let ((_%e152798152818%_ + (gx#stx-pair? _%tl154084154102%_)) + (let ((_%e154085154105%_ (let () (declare (not safe)) - (gx#stx-e _%tl152797152815%_)))) - (let ((_%hd152799152821%_ + (gx#stx-e _%tl154084154102%_)))) + (let ((_%hd154086154108%_ (let () (declare (not safe)) - (##car _%e152798152818%_))) - (_%tl152800152823%_ + (##car _%e154085154105%_))) + (_%tl154087154110%_ (let () (declare (not safe)) - (##cdr _%e152798152818%_)))) + (##cdr _%e154085154105%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152800152823%_)) - ((lambda (_%L152826%_) - (let ((__tmp153746 - (lambda (_%g152837152839%_) + (gx#stx-null? _%tl154087154110%_)) + ((lambda (_%L154113%_) + (let ((__tmp155033 + (lambda (_%g154124154126%_) (let () (declare (not safe)) (gx#free-identifier=? - _%L152826%_ - _%g152837152839%_)))) - (__tmp153745 + _%L154113%_ + _%g154124154126%_)))) + (__tmp155032 (let () (declare (not safe)) (slot-ref__0 - _%self152789%_ + _%self154076%_ 'ids)))) (declare (not safe)) - (__find __tmp153746 __tmp153745))) - _%hd152799152821%_) - (_%g152792152805%_ _%g152793152808%_)))) - (_%g152792152805%_ _%g152793152808%_)))) - (_%g152792152805%_ _%g152793152808%_))))) - (_%g152791152842%_ _%stx152790%_)))) + (__find __tmp155033 __tmp155032))) + _%hd154086154108%_) + (_%g154079154092%_ _%g154080154095%_)))) + (_%g154079154092%_ _%g154080154095%_)))) + (_%g154079154092%_ _%g154080154095%_))))) + (_%g154078154129%_ _%stx154077%_)))) (define gxc#find-var-refs-setq% - (lambda (_%self152714%_ _%stx152715%_) - (let* ((_%g152717152734%_ - (lambda (_%g152718152731%_) + (lambda (_%self154001%_ _%stx154002%_) + (let* ((_%g154004154021%_ + (lambda (_%g154005154018%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152718152731%_)))) - (_%g152716152786%_ - (lambda (_%g152718152737%_) + _%g154005154018%_)))) + (_%g154003154073%_ + (lambda (_%g154005154024%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152718152737%_)) - (let ((_%e152721152739%_ + (gx#stx-pair? _%g154005154024%_)) + (let ((_%e154008154026%_ (let () (declare (not safe)) - (gx#stx-e _%g152718152737%_)))) - (let ((_%hd152722152742%_ + (gx#stx-e _%g154005154024%_)))) + (let ((_%hd154009154029%_ (let () (declare (not safe)) - (##car _%e152721152739%_))) - (_%tl152723152744%_ + (##car _%e154008154026%_))) + (_%tl154010154031%_ (let () (declare (not safe)) - (##cdr _%e152721152739%_)))) + (##cdr _%e154008154026%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152723152744%_)) - (let ((_%e152724152747%_ + (gx#stx-pair? _%tl154010154031%_)) + (let ((_%e154011154034%_ (let () (declare (not safe)) - (gx#stx-e _%tl152723152744%_)))) - (let ((_%hd152725152750%_ + (gx#stx-e _%tl154010154031%_)))) + (let ((_%hd154012154037%_ (let () (declare (not safe)) - (##car _%e152724152747%_))) - (_%tl152726152752%_ + (##car _%e154011154034%_))) + (_%tl154013154039%_ (let () (declare (not safe)) - (##cdr _%e152724152747%_)))) + (##cdr _%e154011154034%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152726152752%_)) - (let ((_%e152727152755%_ + (gx#stx-pair? _%tl154013154039%_)) + (let ((_%e154014154042%_ (let () (declare (not safe)) - (gx#stx-e _%tl152726152752%_)))) - (let ((_%hd152728152758%_ + (gx#stx-e _%tl154013154039%_)))) + (let ((_%hd154015154045%_ (let () (declare (not safe)) - (##car _%e152727152755%_))) - (_%tl152729152760%_ + (##car _%e154014154042%_))) + (_%tl154016154047%_ (let () (declare (not safe)) - (##cdr _%e152727152755%_)))) + (##cdr _%e154014154042%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152729152760%_)) - ((lambda (_%L152763%_ - _%L152764%_) - (let ((_%$e152783%_ - (let ((__tmp153748 - (lambda (_%g152778152780%_) + _%tl154016154047%_)) + ((lambda (_%L154050%_ + _%L154051%_) + (let ((_%$e154070%_ + (let ((__tmp155035 + (lambda (_%g154065154067%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#free-identifier=? - _%L152764%_ - _%g152778152780%_)))) - (__tmp153747 + _%L154051%_ + _%g154065154067%_)))) + (__tmp155034 (let () (declare (not safe)) - (slot-ref__0 _%self152714%_ 'ids)))) + (slot-ref__0 _%self154001%_ 'ids)))) (declare (not safe)) - (__find __tmp153748 __tmp153747)))) + (__find __tmp155035 __tmp155034)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e152783%_ - _%$e152783%_ + (if _%$e154070%_ + _%$e154070%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152714%_ - _%L152763%_))))) - _%hd152728152758%_ - _%hd152725152750%_) - (_%g152717152734%_ - _%g152718152737%_)))) - (_%g152717152734%_ _%g152718152737%_)))) - (_%g152717152734%_ _%g152718152737%_)))) - (_%g152717152734%_ _%g152718152737%_))))) - (_%g152716152786%_ _%stx152715%_)))))) + _%self154001%_ + _%L154050%_))))) + _%hd154015154045%_ + _%hd154012154037%_) + (_%g154004154021%_ + _%g154005154024%_)))) + (_%g154004154021%_ _%g154005154024%_)))) + (_%g154004154021%_ _%g154005154024%_)))) + (_%g154004154021%_ _%g154005154024%_))))) + (_%g154003154073%_ _%stx154002%_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~1.scm b/src/bootstrap/gerbil/compiler/optimize-xform~1.scm index b18c4e1ef..5b5af5ed5 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform~1.scm @@ -1,300 +1,300 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g153750_| + (define |gxc[1]#_g155037_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153752_| + (define |gxc[1]#_g155039_| (##structure gx#syntax-quote::t '::collect-mutators::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153754_| + (define |gxc[1]#_g155041_| (##structure gx#syntax-quote::t 'make-::collect-mutators #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153756_| + (define |gxc[1]#_g155043_| (##structure gx#syntax-quote::t '::collect-mutators? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153758_| + (define |gxc[1]#_g155045_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153760_| + (define |gxc[1]#_g155047_| (##structure gx#syntax-quote::t '::expression-subst::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153762_| + (define |gxc[1]#_g155049_| (##structure gx#syntax-quote::t 'make-::expression-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153764_| + (define |gxc[1]#_g155051_| (##structure gx#syntax-quote::t '::expression-subst? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153766_| + (define |gxc[1]#_g155053_| (##structure gx#syntax-quote::t '::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153767_| + (define |gxc[1]#_g155054_| (##structure gx#syntax-quote::t '::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153769_| + (define |gxc[1]#_g155056_| (##structure gx#syntax-quote::t '::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153770_| + (define |gxc[1]#_g155057_| (##structure gx#syntax-quote::t '::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153772_| + (define |gxc[1]#_g155059_| (##structure gx#syntax-quote::t '&::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153773_| + (define |gxc[1]#_g155060_| (##structure gx#syntax-quote::t '&::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153775_| + (define |gxc[1]#_g155062_| (##structure gx#syntax-quote::t '&::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153776_| + (define |gxc[1]#_g155063_| (##structure gx#syntax-quote::t '&::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153779_| + (define |gxc[1]#_g155066_| (##structure gx#syntax-quote::t '::expression-subst*::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153781_| + (define |gxc[1]#_g155068_| (##structure gx#syntax-quote::t 'make-::expression-subst* #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153783_| + (define |gxc[1]#_g155070_| (##structure gx#syntax-quote::t '::expression-subst*? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153785_| + (define |gxc[1]#_g155072_| (##structure gx#syntax-quote::t '::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153787_| + (define |gxc[1]#_g155074_| (##structure gx#syntax-quote::t '::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153789_| + (define |gxc[1]#_g155076_| (##structure gx#syntax-quote::t '&::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153791_| + (define |gxc[1]#_g155078_| (##structure gx#syntax-quote::t '&::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153793_| + (define |gxc[1]#_g155080_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153795_| + (define |gxc[1]#_g155082_| (##structure gx#syntax-quote::t '::find-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153797_| + (define |gxc[1]#_g155084_| (##structure gx#syntax-quote::t 'make-::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153799_| + (define |gxc[1]#_g155086_| (##structure gx#syntax-quote::t '::find-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153801_| + (define |gxc[1]#_g155088_| (##structure gx#syntax-quote::t '::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153803_| + (define |gxc[1]#_g155090_| (##structure gx#syntax-quote::t '::find-var-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153805_| + (define |gxc[1]#_g155092_| (##structure gx#syntax-quote::t 'make-::find-var-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153807_| + (define |gxc[1]#_g155094_| (##structure gx#syntax-quote::t '::find-var-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153809_| + (define |gxc[1]#_g155096_| (##structure gx#syntax-quote::t '::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153811_| + (define |gxc[1]#_g155098_| (##structure gx#syntax-quote::t '::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153813_| + (define |gxc[1]#_g155100_| (##structure gx#syntax-quote::t '&::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153815_| + (define |gxc[1]#_g155102_| (##structure gx#syntax-quote::t '&::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153817_| + (define |gxc[1]#_g155104_| (##structure gx#syntax-quote::t '::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153819_| + (define |gxc[1]#_g155106_| (##structure gx#syntax-quote::t '::collect-runtime-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153821_| + (define |gxc[1]#_g155108_| (##structure gx#syntax-quote::t 'make-::collect-runtime-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153823_| + (define |gxc[1]#_g155110_| (##structure gx#syntax-quote::t '::collect-runtime-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153825_| + (define |gxc[1]#_g155112_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153827_| + (define |gxc[1]#_g155114_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153829_| + (define |gxc[1]#_g155116_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153831_| + (define |gxc[1]#_g155118_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table-set! @@ -303,7 +303,7 @@ '())) (begin (define |gxc[:0:]#::collect-mutators| - (let ((__obj153687 + (let ((__obj154974 (let () (declare (not safe)) (##structure @@ -332,7 +332,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153687 + __obj154974 'gxc#::collect-mutators::t '1 '#f @@ -340,65 +340,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153687 + __obj154974 '::collect-mutators '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj154974 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '6 '#f '#f)) - (let ((__tmp153749 (cons |gxc[1]#_g153750_| '()))) + (##unchecked-structure-set! __obj154974 '() '6 '#f '#f)) + (let ((__tmp155036 (cons |gxc[1]#_g155037_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153687 __tmp153749 '3 '#f '#f)) + (##unchecked-structure-set! __obj154974 __tmp155036 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj154974 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj154974 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj154974 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '#f '11 '#f '#f)) - (let ((__tmp153751 |gxc[1]#_g153752_|)) + (##unchecked-structure-set! __obj154974 '#f '11 '#f '#f)) + (let ((__tmp155038 |gxc[1]#_g155039_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153687 __tmp153751 '12 '#f '#f)) - (let ((__tmp153753 |gxc[1]#_g153754_|)) + (##unchecked-structure-set! __obj154974 __tmp155038 '12 '#f '#f)) + (let ((__tmp155040 |gxc[1]#_g155041_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153687 __tmp153753 '13 '#f '#f)) - (let ((__tmp153755 |gxc[1]#_g153756_|)) + (##unchecked-structure-set! __obj154974 __tmp155040 '13 '#f '#f)) + (let ((__tmp155042 |gxc[1]#_g155043_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153687 __tmp153755 '14 '#f '#f)) + (##unchecked-structure-set! __obj154974 __tmp155042 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj154974 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj154974 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj154974 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj154974 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj154974 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj154974 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153687 '() '20 '#f '#f)) - __obj153687)) + (##unchecked-structure-set! __obj154974 '() '20 '#f '#f)) + __obj154974)) (define |gxc[:0:]#::expression-subst| - (let ((__obj153689 + (let ((__obj154976 (let () (declare (not safe)) (##structure @@ -427,7 +427,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153689 + __obj154976 'gxc#::expression-subst::t '1 '#f @@ -435,73 +435,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153689 + __obj154976 '::expression-subst '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '(id new-id) '4 '#f '#f)) + (##unchecked-structure-set! __obj154976 '(id new-id) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '(id new-id) '6 '#f '#f)) - (let ((__tmp153757 (cons |gxc[1]#_g153758_| '()))) + (##unchecked-structure-set! __obj154976 '(id new-id) '6 '#f '#f)) + (let ((__tmp155044 (cons |gxc[1]#_g155045_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153689 __tmp153757 '3 '#f '#f)) + (##unchecked-structure-set! __obj154976 __tmp155044 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj154976 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj154976 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj154976 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '#f '11 '#f '#f)) - (let ((__tmp153759 |gxc[1]#_g153760_|)) + (##unchecked-structure-set! __obj154976 '#f '11 '#f '#f)) + (let ((__tmp155046 |gxc[1]#_g155047_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153689 __tmp153759 '12 '#f '#f)) - (let ((__tmp153761 |gxc[1]#_g153762_|)) + (##unchecked-structure-set! __obj154976 __tmp155046 '12 '#f '#f)) + (let ((__tmp155048 |gxc[1]#_g155049_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153689 __tmp153761 '13 '#f '#f)) - (let ((__tmp153763 |gxc[1]#_g153764_|)) + (##unchecked-structure-set! __obj154976 __tmp155048 '13 '#f '#f)) + (let ((__tmp155050 |gxc[1]#_g155051_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153689 __tmp153763 '14 '#f '#f)) - (let ((__tmp153765 - (cons (cons 'id |gxc[1]#_g153766_|) - (cons (cons 'new-id |gxc[1]#_g153767_|) '())))) + (##unchecked-structure-set! __obj154976 __tmp155050 '14 '#f '#f)) + (let ((__tmp155052 + (cons (cons 'id |gxc[1]#_g155053_|) + (cons (cons 'new-id |gxc[1]#_g155054_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj153689 __tmp153765 '15 '#f '#f)) - (let ((__tmp153768 - (cons (cons 'id |gxc[1]#_g153769_|) - (cons (cons 'new-id |gxc[1]#_g153770_|) '())))) + (##unchecked-structure-set! __obj154976 __tmp155052 '15 '#f '#f)) + (let ((__tmp155055 + (cons (cons 'id |gxc[1]#_g155056_|) + (cons (cons 'new-id |gxc[1]#_g155057_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj153689 __tmp153768 '16 '#f '#f)) - (let ((__tmp153771 - (cons (cons 'id |gxc[1]#_g153772_|) - (cons (cons 'new-id |gxc[1]#_g153773_|) '())))) + (##unchecked-structure-set! __obj154976 __tmp155055 '16 '#f '#f)) + (let ((__tmp155058 + (cons (cons 'id |gxc[1]#_g155059_|) + (cons (cons 'new-id |gxc[1]#_g155060_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj153689 __tmp153771 '17 '#f '#f)) - (let ((__tmp153774 - (cons (cons 'id |gxc[1]#_g153775_|) - (cons (cons 'new-id |gxc[1]#_g153776_|) '())))) + (##unchecked-structure-set! __obj154976 __tmp155058 '17 '#f '#f)) + (let ((__tmp155061 + (cons (cons 'id |gxc[1]#_g155062_|) + (cons (cons 'new-id |gxc[1]#_g155063_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj153689 __tmp153774 '18 '#f '#f)) + (##unchecked-structure-set! __obj154976 __tmp155061 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj154976 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj154976 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153689 '() '20 '#f '#f)) - __obj153689)) + (##unchecked-structure-set! __obj154976 '() '20 '#f '#f)) + __obj154976)) (define |gxc[:0:]#::expression-subst*| - (let ((__obj153691 + (let ((__obj154978 (let () (declare (not safe)) (##structure @@ -530,7 +530,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153691 + __obj154978 'gxc#::expression-subst*::t '1 '#f @@ -538,65 +538,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153691 + __obj154978 '::expression-subst* '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '(subst) '4 '#f '#f)) + (##unchecked-structure-set! __obj154978 '(subst) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '(subst) '6 '#f '#f)) - (let ((__tmp153777 (cons |gxc[1]#_g153758_| '()))) + (##unchecked-structure-set! __obj154978 '(subst) '6 '#f '#f)) + (let ((__tmp155064 (cons |gxc[1]#_g155045_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153691 __tmp153777 '3 '#f '#f)) + (##unchecked-structure-set! __obj154978 __tmp155064 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj154978 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj154978 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj154978 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '#f '11 '#f '#f)) - (let ((__tmp153778 |gxc[1]#_g153779_|)) + (##unchecked-structure-set! __obj154978 '#f '11 '#f '#f)) + (let ((__tmp155065 |gxc[1]#_g155066_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153691 __tmp153778 '12 '#f '#f)) - (let ((__tmp153780 |gxc[1]#_g153781_|)) + (##unchecked-structure-set! __obj154978 __tmp155065 '12 '#f '#f)) + (let ((__tmp155067 |gxc[1]#_g155068_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153691 __tmp153780 '13 '#f '#f)) - (let ((__tmp153782 |gxc[1]#_g153783_|)) + (##unchecked-structure-set! __obj154978 __tmp155067 '13 '#f '#f)) + (let ((__tmp155069 |gxc[1]#_g155070_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153691 __tmp153782 '14 '#f '#f)) - (let ((__tmp153784 (cons (cons 'subst |gxc[1]#_g153785_|) '()))) + (##unchecked-structure-set! __obj154978 __tmp155069 '14 '#f '#f)) + (let ((__tmp155071 (cons (cons 'subst |gxc[1]#_g155072_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153691 __tmp153784 '15 '#f '#f)) - (let ((__tmp153786 (cons (cons 'subst |gxc[1]#_g153787_|) '()))) + (##unchecked-structure-set! __obj154978 __tmp155071 '15 '#f '#f)) + (let ((__tmp155073 (cons (cons 'subst |gxc[1]#_g155074_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153691 __tmp153786 '16 '#f '#f)) - (let ((__tmp153788 (cons (cons 'subst |gxc[1]#_g153789_|) '()))) + (##unchecked-structure-set! __obj154978 __tmp155073 '16 '#f '#f)) + (let ((__tmp155075 (cons (cons 'subst |gxc[1]#_g155076_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153691 __tmp153788 '17 '#f '#f)) - (let ((__tmp153790 (cons (cons 'subst |gxc[1]#_g153791_|) '()))) + (##unchecked-structure-set! __obj154978 __tmp155075 '17 '#f '#f)) + (let ((__tmp155077 (cons (cons 'subst |gxc[1]#_g155078_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153691 __tmp153790 '18 '#f '#f)) + (##unchecked-structure-set! __obj154978 __tmp155077 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj154978 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj154978 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153691 '() '20 '#f '#f)) - __obj153691)) + (##unchecked-structure-set! __obj154978 '() '20 '#f '#f)) + __obj154978)) (define |gxc[:0:]#::find-expression| - (let ((__obj153693 + (let ((__obj154980 (let () (declare (not safe)) (##structure @@ -625,7 +625,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153693 + __obj154980 'gxc#::find-expression::t '1 '#f @@ -633,65 +633,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153693 + __obj154980 '::find-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj154980 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '6 '#f '#f)) - (let ((__tmp153792 (cons |gxc[1]#_g153793_| '()))) + (##unchecked-structure-set! __obj154980 '() '6 '#f '#f)) + (let ((__tmp155079 (cons |gxc[1]#_g155080_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153693 __tmp153792 '3 '#f '#f)) + (##unchecked-structure-set! __obj154980 __tmp155079 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj154980 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj154980 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj154980 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '#f '11 '#f '#f)) - (let ((__tmp153794 |gxc[1]#_g153795_|)) + (##unchecked-structure-set! __obj154980 '#f '11 '#f '#f)) + (let ((__tmp155081 |gxc[1]#_g155082_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153693 __tmp153794 '12 '#f '#f)) - (let ((__tmp153796 |gxc[1]#_g153797_|)) + (##unchecked-structure-set! __obj154980 __tmp155081 '12 '#f '#f)) + (let ((__tmp155083 |gxc[1]#_g155084_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153693 __tmp153796 '13 '#f '#f)) - (let ((__tmp153798 |gxc[1]#_g153799_|)) + (##unchecked-structure-set! __obj154980 __tmp155083 '13 '#f '#f)) + (let ((__tmp155085 |gxc[1]#_g155086_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153693 __tmp153798 '14 '#f '#f)) + (##unchecked-structure-set! __obj154980 __tmp155085 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj154980 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj154980 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj154980 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj154980 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj154980 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj154980 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153693 '() '20 '#f '#f)) - __obj153693)) + (##unchecked-structure-set! __obj154980 '() '20 '#f '#f)) + __obj154980)) (define |gxc[:0:]#::find-var-refs| - (let ((__obj153694 + (let ((__obj154981 (let () (declare (not safe)) (##structure @@ -720,68 +720,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153694 + __obj154981 'gxc#::find-var-refs::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '::find-var-refs '2 '#f '#f)) + (##unchecked-structure-set! __obj154981 '::find-var-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '(ids) '4 '#f '#f)) + (##unchecked-structure-set! __obj154981 '(ids) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '(ids) '6 '#f '#f)) - (let ((__tmp153800 (cons |gxc[1]#_g153801_| '()))) + (##unchecked-structure-set! __obj154981 '(ids) '6 '#f '#f)) + (let ((__tmp155087 (cons |gxc[1]#_g155088_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153694 __tmp153800 '3 '#f '#f)) + (##unchecked-structure-set! __obj154981 __tmp155087 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj154981 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj154981 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj154981 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '#f '11 '#f '#f)) - (let ((__tmp153802 |gxc[1]#_g153803_|)) + (##unchecked-structure-set! __obj154981 '#f '11 '#f '#f)) + (let ((__tmp155089 |gxc[1]#_g155090_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153694 __tmp153802 '12 '#f '#f)) - (let ((__tmp153804 |gxc[1]#_g153805_|)) + (##unchecked-structure-set! __obj154981 __tmp155089 '12 '#f '#f)) + (let ((__tmp155091 |gxc[1]#_g155092_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153694 __tmp153804 '13 '#f '#f)) - (let ((__tmp153806 |gxc[1]#_g153807_|)) + (##unchecked-structure-set! __obj154981 __tmp155091 '13 '#f '#f)) + (let ((__tmp155093 |gxc[1]#_g155094_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153694 __tmp153806 '14 '#f '#f)) - (let ((__tmp153808 (cons (cons 'ids |gxc[1]#_g153809_|) '()))) + (##unchecked-structure-set! __obj154981 __tmp155093 '14 '#f '#f)) + (let ((__tmp155095 (cons (cons 'ids |gxc[1]#_g155096_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153694 __tmp153808 '15 '#f '#f)) - (let ((__tmp153810 (cons (cons 'ids |gxc[1]#_g153811_|) '()))) + (##unchecked-structure-set! __obj154981 __tmp155095 '15 '#f '#f)) + (let ((__tmp155097 (cons (cons 'ids |gxc[1]#_g155098_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153694 __tmp153810 '16 '#f '#f)) - (let ((__tmp153812 (cons (cons 'ids |gxc[1]#_g153813_|) '()))) + (##unchecked-structure-set! __obj154981 __tmp155097 '16 '#f '#f)) + (let ((__tmp155099 (cons (cons 'ids |gxc[1]#_g155100_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153694 __tmp153812 '17 '#f '#f)) - (let ((__tmp153814 (cons (cons 'ids |gxc[1]#_g153815_|) '()))) + (##unchecked-structure-set! __obj154981 __tmp155099 '17 '#f '#f)) + (let ((__tmp155101 (cons (cons 'ids |gxc[1]#_g155102_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153694 __tmp153814 '18 '#f '#f)) + (##unchecked-structure-set! __obj154981 __tmp155101 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj154981 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj154981 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153694 '() '20 '#f '#f)) - __obj153694)) + (##unchecked-structure-set! __obj154981 '() '20 '#f '#f)) + __obj154981)) (define |gxc[:0:]#::collect-runtime-refs| - (let ((__obj153696 + (let ((__obj154983 (let () (declare (not safe)) (##structure @@ -810,7 +810,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153696 + __obj154983 'gxc#::collect-runtime-refs::t '1 '#f @@ -818,60 +818,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153696 + __obj154983 '::collect-runtime-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj154983 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '(table) '6 '#f '#f)) - (let ((__tmp153816 (cons |gxc[1]#_g153817_| '()))) + (##unchecked-structure-set! __obj154983 '(table) '6 '#f '#f)) + (let ((__tmp155103 (cons |gxc[1]#_g155104_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153696 __tmp153816 '3 '#f '#f)) + (##unchecked-structure-set! __obj154983 __tmp155103 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj154983 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj154983 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj154983 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '#f '11 '#f '#f)) - (let ((__tmp153818 |gxc[1]#_g153819_|)) + (##unchecked-structure-set! __obj154983 '#f '11 '#f '#f)) + (let ((__tmp155105 |gxc[1]#_g155106_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153696 __tmp153818 '12 '#f '#f)) - (let ((__tmp153820 |gxc[1]#_g153821_|)) + (##unchecked-structure-set! __obj154983 __tmp155105 '12 '#f '#f)) + (let ((__tmp155107 |gxc[1]#_g155108_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153696 __tmp153820 '13 '#f '#f)) - (let ((__tmp153822 |gxc[1]#_g153823_|)) + (##unchecked-structure-set! __obj154983 __tmp155107 '13 '#f '#f)) + (let ((__tmp155109 |gxc[1]#_g155110_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153696 __tmp153822 '14 '#f '#f)) - (let ((__tmp153824 (cons (cons 'table |gxc[1]#_g153825_|) '()))) + (##unchecked-structure-set! __obj154983 __tmp155109 '14 '#f '#f)) + (let ((__tmp155111 (cons (cons 'table |gxc[1]#_g155112_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153696 __tmp153824 '15 '#f '#f)) - (let ((__tmp153826 (cons (cons 'table |gxc[1]#_g153827_|) '()))) + (##unchecked-structure-set! __obj154983 __tmp155111 '15 '#f '#f)) + (let ((__tmp155113 (cons (cons 'table |gxc[1]#_g155114_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153696 __tmp153826 '16 '#f '#f)) - (let ((__tmp153828 (cons (cons 'table |gxc[1]#_g153829_|) '()))) + (##unchecked-structure-set! __obj154983 __tmp155113 '16 '#f '#f)) + (let ((__tmp155115 (cons (cons 'table |gxc[1]#_g155116_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153696 __tmp153828 '17 '#f '#f)) - (let ((__tmp153830 (cons (cons 'table |gxc[1]#_g153831_|) '()))) + (##unchecked-structure-set! __obj154983 __tmp155115 '17 '#f '#f)) + (let ((__tmp155117 (cons (cons 'table |gxc[1]#_g155118_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153696 __tmp153830 '18 '#f '#f)) + (##unchecked-structure-set! __obj154983 __tmp155117 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj154983 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj154983 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153696 '() '20 '#f '#f)) - __obj153696)))) + (##unchecked-structure-set! __obj154983 '() '20 '#f '#f)) + __obj154983)))) diff --git a/src/bootstrap/gerbil/compiler/optimize~0.scm b/src/bootstrap/gerbil/compiler/optimize~0.scm index 0b52dc0f4..2ce2014cd 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 1713631273) + (define gerbil/compiler/optimize::timestamp 1734357969) (begin (define gxc#optimizer-info-init! (lambda () (if (let () (declare (not safe)) (gxc#current-compile-optimizer-info)) '#!void - (let ((__tmp200552 - (let ((__obj200546 + (let ((__tmp201839 + (let ((__obj201833 (let () (declare (not safe)) (##structure @@ -18,17 +18,17 @@ '#f)))) (let () (declare (not safe)) - (gxc#optimizer-info:::init! __obj200546)) - __obj200546))) + (gxc#optimizer-info:::init! __obj201833)) + __obj201833))) (declare (not safe)) - (gxc#current-compile-optimizer-info __tmp200552))))) + (gxc#current-compile-optimizer-info __tmp201839))))) (define gxc#optimize! - (lambda (_%ctx200155%_) - (let ((__tmp200555 + (lambda (_%ctx201442%_) + (let ((__tmp201842 (lambda () - (gxc#optimizer-load-builtin-ssxi _%ctx200155%_) - (gxc#optimizer-load-ssxi-deps _%ctx200155%_) - (let ((__tmp200557 + (gxc#optimizer-load-builtin-ssxi _%ctx201442%_) + (gxc#optimizer-load-ssxi-deps _%ctx201442%_) + (let ((__tmp201844 (##structure-ref (let () (declare (not safe)) @@ -36,41 +36,41 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp200556 + (__tmp201843 (##structure-ref - _%ctx200155%_ + _%ctx201442%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-put! __tmp200557 __tmp200556 '#t)) - (let ((_%code200158%_ + (hash-put! __tmp201844 __tmp201843 '#t)) + (let ((_%code201445%_ (gxc#optimize-source (##structure-ref - _%ctx200155%_ + _%ctx201442%_ '11 gx#module-context::t '#f)))) (##structure-set! - _%ctx200155%_ - _%code200158%_ + _%ctx201442%_ + _%code201445%_ '11 gx#module-context::t '#f)))) - (__tmp200554 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp200553 (let () (declare (not safe)) (make-hash-table-eq)))) + (__tmp201841 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp201840 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (__call-with-parameters - __tmp200555 + __tmp201842 gxc#current-compile-mutators - __tmp200554 + __tmp201841 gxc#current-compile-local-type - __tmp200553)))) + __tmp201840)))) (define gxc#optimizer-load-builtin-ssxi - (lambda (_%ctx200141%_) - (letrec ((_%load-it!200143%_ - (lambda (_%id200153%_) - (if (let ((__tmp200558 + (lambda (_%ctx201428%_) + (letrec ((_%load-it!201430%_ + (lambda (_%id201440%_) + (if (let ((__tmp201845 (##structure-ref (let () (declare (not safe)) @@ -79,11 +79,11 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp200558 _%id200153%_)) + (hash-get __tmp201845 _%id201440%_)) '#!void (begin - (gxc#optimizer-import-ssxi-by-id _%id200153%_) - (let ((__tmp200559 + (gxc#optimizer-import-ssxi-by-id _%id201440%_) + (let ((__tmp201846 (##structure-ref (let () (declare (not safe)) @@ -92,29 +92,29 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp200559 _%id200153%_ '#t))))))) - (let* ((_%modid200145%_ + (hash-put! __tmp201846 _%id201440%_ '#t))))))) + (let* ((_%modid201432%_ (##structure-ref - _%ctx200141%_ + _%ctx201428%_ '1 gx#expander-context::t '#f)) - (_%modid-str200147%_ (symbol->string _%modid200145%_))) + (_%modid-str201434%_ (symbol->string _%modid201432%_))) (if (or (let () (declare (not safe)) - (##string-prefix? '"gerbil/runtime" _%modid-str200147%_)) + (##string-prefix? '"gerbil/runtime" _%modid-str201434%_)) (let () (declare (not safe)) - (##string-prefix? '"gerbil/core" _%modid-str200147%_))) + (##string-prefix? '"gerbil/core" _%modid-str201434%_))) (let () (declare (not safe)) (##for-each - _%load-it!200143%_ + _%load-it!201430%_ '(gerbil/builtin gerbil/builtin-inline-rules))) (let () (declare (not safe)) (##for-each - _%load-it!200143%_ + _%load-it!201430%_ '(gerbil/builtin gerbil/builtin-inline-rules gerbil/runtime/gambit @@ -136,35 +136,35 @@ gerbil/runtime/init gerbil/runtime)))))))) (define gxc#optimizer-load-ssxi-deps - (lambda (_%ctx200078%_) - (letrec* ((_%deps200080%_ - (let* ((_%imports200131%_ + (lambda (_%ctx201365%_) + (letrec* ((_%deps201367%_ + (let* ((_%imports201418%_ (##structure-ref - _%ctx200078%_ + _%ctx201365%_ '8 gx#module-context::t '#f)) - (_%$e200133%_ + (_%$e201420%_ (let () (declare (not safe)) - (gx#core-context-prelude__% _%ctx200078%_)))) - (if _%$e200133%_ - ((lambda (_%g200135200137%_) - (cons _%g200135200137%_ _%imports200131%_)) - _%$e200133%_) - _%imports200131%_)))) - (let _%lp200082%_ ((_%rest200084%_ _%deps200080%_)) - (let* ((_%rest200085200093%_ _%rest200084%_) - (_%else200087200101%_ (lambda () '#!void)) - (_%K200089200119%_ - (lambda (_%rest200104%_ _%hd200105%_) + (gx#core-context-prelude__% _%ctx201365%_)))) + (if _%$e201420%_ + ((lambda (_%g201422201424%_) + (cons _%g201422201424%_ _%imports201418%_)) + _%$e201420%_) + _%imports201418%_)))) + (let _%lp201369%_ ((_%rest201371%_ _%deps201367%_)) + (let* ((_%rest201372201380%_ _%rest201371%_) + (_%else201374201388%_ (lambda () '#!void)) + (_%K201376201406%_ + (lambda (_%rest201391%_ _%hd201392%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd200105%_ + _%hd201392%_ 'gx#module-context::t)) (let () - (if (let ((__tmp200561 + (if (let ((__tmp201848 (##structure-ref (let () (declare (not safe)) @@ -172,52 +172,52 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp200560 + (__tmp201847 (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200105%_ + _%hd201392%_ '1 '#f '#f)))) (declare (not safe)) - (hash-get __tmp200561 __tmp200560)) + (hash-get __tmp201848 __tmp201847)) '#!void (begin - (let ((_%$e200108%_ + (let ((_%$e201395%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd200105%_)))) - (if _%$e200108%_ - ((lambda (_%pre200111%_) - (_%lp200082%_ - (cons _%pre200111%_ + _%hd201392%_)))) + (if _%$e201395%_ + ((lambda (_%pre201398%_) + (_%lp201369%_ + (cons _%pre201398%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200105%_ + _%hd201392%_ '8 '#f '#f))))) - _%$e200108%_) - (_%lp200082%_ + _%$e201395%_) + (_%lp201369%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200105%_ + _%hd201392%_ '8 '#f '#f))))) - (gxc#optimizer-load-ssxi _%hd200105%_))) - (_%lp200082%_ _%rest200104%_)) + (gxc#optimizer-load-ssxi _%hd201392%_))) + (_%lp201369%_ _%rest201391%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd200105%_ + _%hd201392%_ 'gx#prelude-context::t)) (let () - (if (let ((__tmp200563 + (if (let ((__tmp201850 (##structure-ref (let () (declare (not safe)) @@ -225,103 +225,103 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp200562 + (__tmp201849 (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200105%_ + _%hd201392%_ '1 '#f '#f)))) (declare (not safe)) - (hash-get __tmp200563 __tmp200562)) + (hash-get __tmp201850 __tmp201849)) '#!void (begin - (_%lp200082%_ + (_%lp201369%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200105%_ + _%hd201392%_ '7 '#f '#f))) - (gxc#optimizer-load-ssxi _%hd200105%_))) - (_%lp200082%_ _%rest200104%_)) + (gxc#optimizer-load-ssxi _%hd201392%_))) + (_%lp201369%_ _%rest201391%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200105%_ + _%hd201392%_ 'gx#module-import::t)) - (_%lp200082%_ + (_%lp201369%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200105%_ + _%hd201392%_ '1 '#f '#f)) - _%rest200104%_)) + _%rest201391%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200105%_ + _%hd201392%_ 'gx#module-export::t)) - (_%lp200082%_ + (_%lp201369%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200105%_ + _%hd201392%_ '1 '#f '#f)) - _%rest200104%_)) + _%rest201391%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200105%_ + _%hd201392%_ 'gx#import-set::t)) - (_%lp200082%_ + (_%lp201369%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200105%_ + _%hd201392%_ '1 '#f '#f)) - _%rest200104%_)) + _%rest201391%_)) (let () (declare (not safe)) (error '"Unexpected module import" - _%hd200105%_)))))))))) - (if (pair? _%rest200085200093%_) - (let ((_%hd200090200122%_ + _%hd201392%_)))))))))) + (if (pair? _%rest201372201380%_) + (let ((_%hd201377201409%_ (let () (declare (not safe)) - (##car _%rest200085200093%_))) - (_%tl200091200124%_ + (##car _%rest201372201380%_))) + (_%tl201378201411%_ (let () (declare (not safe)) - (##cdr _%rest200085200093%_)))) - (let* ((_%hd200127%_ _%hd200090200122%_) - (_%rest200129%_ _%tl200091200124%_)) - (_%K200089200119%_ _%rest200129%_ _%hd200127%_))) + (##cdr _%rest201372201380%_)))) + (let* ((_%hd201414%_ _%hd201377201409%_) + (_%rest201416%_ _%tl201378201411%_)) + (_%K201376201406%_ _%rest201416%_ _%hd201414%_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_%ctx200058%_) + (lambda (_%ctx201345%_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%ctx200058%_ + _%ctx201345%_ 'gx#module-context::t)) (list? (let () (declare (not safe)) (##unchecked-structure-ref - _%ctx200058%_ + _%ctx201345%_ '7 '#f '#f)))) '#!void - (let* ((_%ht200060%_ + (let* ((_%ht201347%_ (##structure-ref (let () (declare (not safe)) @@ -329,172 +329,172 @@ '3 gxc#optimizer-info::t '#f)) - (_%id200062%_ + (_%id201349%_ (##structure-ref - _%ctx200058%_ + _%ctx201345%_ '1 gx#expander-context::t '#f)) - (_%mod200064%_ + (_%mod201351%_ (let () (declare (not safe)) - (hash-get _%ht200060%_ _%id200062%_))) - (_%$e200067%_ _%mod200064%_)) - (if _%$e200067%_ - _%$e200067%_ - (let* ((_%mod200070%_ - (gxc#optimizer-import-ssxi _%ctx200058%_)) - (_%val200075%_ - (let ((_%$e200072%_ _%mod200070%_)) - (if _%$e200072%_ _%$e200072%_ '#!void)))) + (hash-get _%ht201347%_ _%id201349%_))) + (_%$e201354%_ _%mod201351%_)) + (if _%$e201354%_ + _%$e201354%_ + (let* ((_%mod201357%_ + (gxc#optimizer-import-ssxi _%ctx201345%_)) + (_%val201362%_ + (let ((_%$e201359%_ _%mod201357%_)) + (if _%$e201359%_ _%$e201359%_ '#!void)))) (let () (declare (not safe)) - (hash-put! _%ht200060%_ _%id200062%_ _%val200075%_)) - _%val200075%_)))))) + (hash-put! _%ht201347%_ _%id201349%_ _%val201362%_)) + _%val201362%_)))))) (define gxc#optimizer-import-ssxi - (lambda (_%ctx200056%_) - (if (##structure-ref _%ctx200056%_ '1 gx#expander-context::t '#f) + (lambda (_%ctx201343%_) + (if (##structure-ref _%ctx201343%_ '1 gx#expander-context::t '#f) (gxc#optimizer-import-ssxi-by-id - (##structure-ref _%ctx200056%_ '1 gx#expander-context::t '#f)) + (##structure-ref _%ctx201343%_ '1 gx#expander-context::t '#f)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_%id200033%_) - (letrec ((_%catch-e200035%_ - (lambda (_%exn200054%_) + (lambda (_%id201320%_) + (letrec ((_%catch-e201322%_ + (lambda (_%exn201341%_) (if (equal? (let () (declare (not safe)) - (error-message _%exn200054%_)) + (error-message _%exn201341%_)) '"cannot find library module") '#!void (begin (let () (declare (not safe)) - (display-exception__0 _%exn200054%_)) + (display-exception__0 _%exn201341%_)) (let () (declare (not safe)) (displayln '"*** WARNING Failed to load ssxi module for " - _%id200033%_)))) + _%id201320%_)))) '#f)) - (_%import-e200036%_ + (_%import-e201323%_ (lambda () - (let* ((_%str-id200039%_ - (let ((__tmp200564 + (let* ((_%str-id201326%_ + (let ((__tmp201851 (let () (declare (not safe)) (gxc#module-id->path-string - _%id200033%_)))) + _%id201320%_)))) (declare (not safe)) - (##string-append __tmp200564 '".ssxi"))) - (_%artefact-path200047%_ - (let ((_%odir200040200042%_ + (##string-append __tmp201851 '".ssxi"))) + (_%artefact-path201334%_ + (let ((_%odir201327201329%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%odir200040200042%_ - (let ((_%odir200045%_ _%odir200040200042%_)) + (if _%odir201327201329%_ + (let ((_%odir201332%_ _%odir201327201329%_)) (path-expand (let () (declare (not safe)) (##string-append - _%str-id200039%_ + _%str-id201326%_ '".ss")) - _%odir200045%_)) + _%odir201332%_)) '#f))) - (_%library-path200049%_ - (let ((__tmp200565 + (_%library-path201336%_ + (let ((__tmp201852 (let () (declare (not safe)) (##string-append '":" - _%str-id200039%_ + _%str-id201326%_ '".ss")))) (declare (not safe)) - (##string->symbol __tmp200565))) - (_%ssxi-path200051%_ - (if (and _%artefact-path200047%_ - (file-exists? _%artefact-path200047%_)) - _%artefact-path200047%_ - _%library-path200049%_))) + (##string->symbol __tmp201852))) + (_%ssxi-path201338%_ + (if (and _%artefact-path201334%_ + (file-exists? _%artefact-path201334%_)) + _%artefact-path201334%_ + _%library-path201336%_))) (let () (declare (not safe)) (gxc#verbose '"Loading ssxi module " - _%ssxi-path200051%_)) + _%ssxi-path201338%_)) (let () (declare (not safe)) - (gx#import-module__% _%ssxi-path200051%_ '#t '#t)))))) + (gx#import-module__% _%ssxi-path201338%_ '#t '#t)))))) (let () (declare (not safe)) - (__with-catch _%catch-e200035%_ _%import-e200036%_))))) + (__with-catch _%catch-e201322%_ _%import-e201323%_))))) (define gxc#optimize-source - (lambda (_%stx200018%_) + (lambda (_%stx201305%_) (let () (declare (not safe)) - (gxc#apply-collect-mutators _%stx200018%_)) + (gxc#apply-collect-mutators _%stx201305%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _%stx200018%_)) - (let* ((_%stx200020%_ + (gxc#apply-collect-top-level-type-info _%stx201305%_)) + (let* ((_%stx201307%_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _%stx200018%_))) - (_%stx200022%_ + (gxc#apply-generate-method-specializers _%stx201305%_))) + (_%stx201309%_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _%stx200020%_)))) + (gxc#apply-lift-top-lambdas _%stx201307%_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _%stx200022%_)) + (gxc#apply-collect-type-info _%stx201309%_)) (let () (declare (not safe)) - (gxc#apply-collect-mutable-type-info _%stx200022%_)) - (let _%fixpoint200025%_ ((_%current200027%_ + (gxc#apply-collect-mutable-type-info _%stx201309%_)) + (let _%fixpoint201312%_ ((_%current201314%_ (let () (declare (not safe)) (gxc#optimizer-current-types)))) (let () (declare (not safe)) - (gxc#apply-refine-type-info _%stx200022%_)) - (let ((_%refined200029%_ + (gxc#apply-refine-type-info _%stx201309%_)) + (let ((_%refined201316%_ (let () (declare (not safe)) (gxc#optimizer-current-types)))) - (if (equal? _%current200027%_ _%refined200029%_) + (if (equal? _%current201314%_ _%refined201316%_) '#!void - (_%fixpoint200025%_ _%refined200029%_)))) + (_%fixpoint201312%_ _%refined201316%_)))) (let () (declare (not safe)) - (gxc#apply-check-return-type _%stx200022%_)) + (gxc#apply-check-return-type _%stx201309%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-declarations _%stx200022%_)) - (let ((_%stx200031%_ + (gxc#apply-collect-top-level-declarations _%stx201309%_)) + (let ((_%stx201318%_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _%stx200022%_)))) + (gxc#apply-optimize-annotated _%stx201309%_)))) (declare (not safe)) - (gxc#apply-optimize-call _%stx200031%_))))) + (gxc#apply-optimize-call _%stx201318%_))))) (define gxc#::generate-ssxi::t - (let ((__tmp200567 (list gxc#::generate-runtime-empty::t)) - (__tmp200566 (cons (cons 'final: '#t) '()))) + (let ((__tmp201854 (list gxc#::generate-runtime-empty::t)) + (__tmp201853 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-ssxi::t '::generate-ssxi - __tmp200567 + __tmp201854 '() - __tmp200566 + __tmp201853 '#f))) (define gxc#::generate-ssxi? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-ssxi::t))) (define gxc#make-::generate-ssxi - (lambda _%$args200015%_ - (apply make-instance gxc#::generate-ssxi::t _%$args200015%_))) + (lambda _%$args201302%_ + (apply make-instance gxc#::generate-ssxi::t _%$args201302%_))) (define gxc#::generate-ssxi-bind-methods! - (let ((__tmp200568 + (let ((__tmp201855 (lambda () (force gxc#::generate-runtime-empty-bind-methods!) (let () @@ -537,201 +537,201 @@ (declare (not safe)) (__seal-class! gxc#::generate-ssxi::t))))) (declare (not safe)) - (__make-promise __tmp200568))) + (__make-promise __tmp201855))) (define gxc#apply-generate-ssxi - (lambda (_%stx200007%_) + (lambda (_%stx201294%_) (force gxc#::generate-ssxi-bind-methods!) - (let* ((_%self200010%_ - (let ((__obj200548 + (let* ((_%self201297%_ + (let ((__obj201835 (let () (declare (not safe)) (##structure gxc#::generate-ssxi::t)))) - __obj200548)) - (__tmp200569 + __obj201835)) + (__tmp201856 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self200010%_ _%stx200007%_))))) + (gxc#compile-e__1 _%self201297%_ _%stx201294%_))))) (declare (not safe)) (__call-with-parameters - __tmp200569 + __tmp201856 gxc#current-compile-method - _%self200010%_)))) + _%self201297%_)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_%self199967%_ _%stx199968%_) - (let* ((_%g199970199980%_ - (lambda (_%g199971199977%_) + (lambda (_%self201254%_ _%stx201255%_) + (let* ((_%g201257201267%_ + (lambda (_%g201258201264%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g199971199977%_)))) - (_%g199969200004%_ - (lambda (_%g199971199983%_) + _%g201258201264%_)))) + (_%g201256201291%_ + (lambda (_%g201258201270%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g199971199983%_)) - (let ((_%e199973199985%_ + (gx#stx-pair? _%g201258201270%_)) + (let ((_%e201260201272%_ (let () (declare (not safe)) - (gx#stx-e _%g199971199983%_)))) - (let ((_%hd199974199988%_ + (gx#stx-e _%g201258201270%_)))) + (let ((_%hd201261201275%_ (let () (declare (not safe)) - (##car _%e199973199985%_))) - (_%tl199975199990%_ + (##car _%e201260201272%_))) + (_%tl201262201277%_ (let () (declare (not safe)) - (##cdr _%e199973199985%_)))) - ((lambda (_%L199993%_) - (let ((__tmp200572 + (##cdr _%e201260201272%_)))) + ((lambda (_%L201280%_) + (let ((__tmp201859 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _%self199967%_ - _%stx199968%_)))) - (__tmp200570 - (let ((__tmp200571 + _%self201254%_ + _%stx201255%_)))) + (__tmp201857 + (let ((__tmp201858 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp200571 '1)))) + (##fx+ __tmp201858 '1)))) (declare (not safe)) (__call-with-parameters - __tmp200572 + __tmp201859 gx#current-expander-phi - __tmp200570))) - _%tl199975199990%_))) - (_%g199970199980%_ _%g199971199983%_))))) - (_%g199969200004%_ _%stx199968%_)))) + __tmp201857))) + _%tl201262201277%_))) + (_%g201257201267%_ _%g201258201270%_))))) + (_%g201256201291%_ _%stx201255%_)))) (define gxc#generate-ssxi-module% - (lambda (_%self199906%_ _%stx199907%_) - (let* ((_%g199909199923%_ - (lambda (_%g199910199920%_) + (lambda (_%self201193%_ _%stx201194%_) + (let* ((_%g201196201210%_ + (lambda (_%g201197201207%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g199910199920%_)))) - (_%g199908199964%_ - (lambda (_%g199910199926%_) + _%g201197201207%_)))) + (_%g201195201251%_ + (lambda (_%g201197201213%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g199910199926%_)) - (let ((_%e199913199928%_ + (gx#stx-pair? _%g201197201213%_)) + (let ((_%e201200201215%_ (let () (declare (not safe)) - (gx#stx-e _%g199910199926%_)))) - (let ((_%hd199914199931%_ + (gx#stx-e _%g201197201213%_)))) + (let ((_%hd201201201218%_ (let () (declare (not safe)) - (##car _%e199913199928%_))) - (_%tl199915199933%_ + (##car _%e201200201215%_))) + (_%tl201202201220%_ (let () (declare (not safe)) - (##cdr _%e199913199928%_)))) + (##cdr _%e201200201215%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199915199933%_)) - (let ((_%e199916199936%_ + (gx#stx-pair? _%tl201202201220%_)) + (let ((_%e201203201223%_ (let () (declare (not safe)) - (gx#stx-e _%tl199915199933%_)))) - (let ((_%hd199917199939%_ + (gx#stx-e _%tl201202201220%_)))) + (let ((_%hd201204201226%_ (let () (declare (not safe)) - (##car _%e199916199936%_))) - (_%tl199918199941%_ + (##car _%e201203201223%_))) + (_%tl201205201228%_ (let () (declare (not safe)) - (##cdr _%e199916199936%_)))) - ((lambda (_%L199944%_ _%L199945%_) - (let* ((_%ctx199958%_ + (##cdr _%e201203201223%_)))) + ((lambda (_%L201231%_ _%L201232%_) + (let* ((_%ctx201245%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L199945%_))) - (_%code199960%_ + _%L201232%_))) + (_%code201247%_ (##structure-ref - _%ctx199958%_ + _%ctx201245%_ '11 gx#module-context::t '#f)) - (__tmp200573 + (__tmp201860 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self199906%_ - _%code199960%_))))) + _%self201193%_ + _%code201247%_))))) (declare (not safe)) (__call-with-parameters - __tmp200573 + __tmp201860 gx#current-expander-context - _%ctx199958%_))) - _%tl199918199941%_ - _%hd199917199939%_))) - (_%g199909199923%_ _%g199910199926%_)))) - (_%g199909199923%_ _%g199910199926%_))))) - (_%g199908199964%_ _%stx199907%_)))) + _%ctx201245%_))) + _%tl201205201228%_ + _%hd201204201226%_))) + (_%g201196201210%_ _%g201197201213%_)))) + (_%g201196201210%_ _%g201197201213%_))))) + (_%g201195201251%_ _%stx201194%_)))) (define gxc#generate-ssxi-define-values% - (lambda (_%self199711%_ _%stx199712%_) - (letrec ((_%generate-e199714%_ - (lambda (_%id199891%_) - (let* ((_%sym199893%_ - (if (let ((__tmp200574 + (lambda (_%self200998%_ _%stx200999%_) + (letrec ((_%generate-e201001%_ + (lambda (_%id201178%_) + (let* ((_%sym201180%_ + (if (let ((__tmp201861 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'id)))) (declare (not safe)) - (gx#identifier? __tmp200574)) + (gx#identifier? __tmp201861)) (let () (declare (not safe)) - (gxc#identifier-symbol _%id199891%_)) + (gxc#identifier-symbol _%id201178%_)) '#f)) - (_%$e199895%_ + (_%$e201182%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-class _%sym199893%_)))) - (if _%$e199895%_ - ((lambda (_%klass199898%_) + (gxc#optimizer-lookup-class _%sym201180%_)))) + (if _%$e201182%_ + ((lambda (_%klass201185%_) (let () (declare (not safe)) (gxc#verbose '"generate class decl" - _%sym199893%_)) + _%sym201180%_)) (cons 'begin (cons (cons 'declare-class - (cons _%sym199893%_ - (cons (let ((__method200549 + (cons _%sym201180%_ + (cons (let ((__method201836 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__method-ref _%klass199898%_ 'typedecl)))) - (if __method200549 + (__method-ref _%klass201185%_ 'typedecl)))) + (if __method201836 (let () (declare (not safe)) - (__method200549 _%klass199898%_)) + (__method201836 _%klass201185%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%klass199898%_ + _%klass201185%_ 'typedecl)) '#!void))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'declare-type - (cons _%sym199893%_ + (cons _%sym201180%_ (cons (cons 'optimizer-resolve-class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'quote (cons (cons 'typedecl - (cons _%sym199893%_ + (cons _%sym201180%_ '())) '())) (cons (cons 'quote (cons 'class::t '())) @@ -739,1309 +739,1309 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%$e199895%_) - (let ((_%$e199900%_ + _%$e201182%_) + (let ((_%$e201187%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym199893%_)))) - (if _%$e199900%_ - ((lambda (_%type199903%_) + (gxc#optimizer-lookup-type _%sym201180%_)))) + (if _%$e201187%_ + ((lambda (_%type201190%_) (let () (declare (not safe)) (gxc#verbose '"generate typedecl " - _%sym199893%_ + _%sym201180%_ '" " - _%type199903%_)) + _%type201190%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type199903%_ + _%type201190%_ 'gxc#!class::t)) (cons 'declare-type - (cons _%sym199893%_ + (cons _%sym201180%_ (cons (cons 'optimizer-resolve-class (cons (cons 'quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'typedecl - (cons _%sym199893%_ '())) + (cons _%sym201180%_ '())) '())) (cons (cons 'quote (cons (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%type199903%_)) + _%type201190%_)) '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons 'declare-type - (cons _%sym199893%_ - (cons (let ((__method200550 + (cons _%sym201180%_ + (cons (let ((__method201837 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__method-ref _%type199903%_ 'typedecl)))) - (if __method200550 + (__method-ref _%type201190%_ 'typedecl)))) + (if __method201837 (let () (declare (not safe)) - (__method200550 _%type199903%_)) + (__method201837 _%type201190%_)) (begin (let () (declare (not safe)) - (error '"Missing method" _%type199903%_ 'typedecl)) + (error '"Missing method" _%type201190%_ 'typedecl)) '#!void))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e199900%_) + _%$e201187%_) '(begin)))))))) - (let* ((_%__stx200161200162%_ _%stx199712%_) - (_%g199717199755%_ + (let* ((_%__stx201448201449%_ _%stx200999%_) + (_%g201004201042%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200161200162%_))))) - (let ((_%__kont200163200164%_ - (lambda (_%L199873%_) (_%generate-e199714%_ _%L199873%_))) - (_%__kont200165200166%_ - (lambda (_%L199808%_) - (let ((_%types199834%_ - (map _%generate-e199714%_ - (let ((__tmp200575 - (lambda (_%g199826199829%_ - _%g199827199831%_) - (cons _%g199826199829%_ - _%g199827199831%_)))) + _%__stx201448201449%_))))) + (let ((_%__kont201450201451%_ + (lambda (_%L201160%_) (_%generate-e201001%_ _%L201160%_))) + (_%__kont201452201453%_ + (lambda (_%L201095%_) + (let ((_%types201121%_ + (map _%generate-e201001%_ + (let ((__tmp201862 + (lambda (_%g201113201116%_ + _%g201114201118%_) + (cons _%g201113201116%_ + _%g201114201118%_)))) (declare (not safe)) - (__foldr1 __tmp200575 '() _%L199808%_))))) - (cons 'begin _%types199834%_))))) - (let ((_%__match200216200217%_ - (lambda (_%e199733199760%_ - _%hd199734199763%_ - _%tl199735199765%_ - _%e199736199768%_ - _%hd199737199771%_ - _%tl199738199773%_ - _%__splice200167200168%_ - _%target199739199776%_ - _%tl199741199778%_) - (letrec ((_%loop199742199781%_ - (lambda (_%hd199740199784%_ - _%id199746199786%_) + (__foldr1 __tmp201862 '() _%L201095%_))))) + (cons 'begin _%types201121%_))))) + (let ((_%__match201503201504%_ + (lambda (_%e201020201047%_ + _%hd201021201050%_ + _%tl201022201052%_ + _%e201023201055%_ + _%hd201024201058%_ + _%tl201025201060%_ + _%__splice201454201455%_ + _%target201026201063%_ + _%tl201028201065%_) + (letrec ((_%loop201029201068%_ + (lambda (_%hd201027201071%_ + _%id201033201073%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199740199784%_)) - (let ((_%e199743199789%_ + (gx#stx-pair? _%hd201027201071%_)) + (let ((_%e201030201076%_ (let () (declare (not safe)) (gx#stx-e - _%hd199740199784%_)))) - (let ((_%lp-tl199745199794%_ + _%hd201027201071%_)))) + (let ((_%lp-tl201032201081%_ (let () (declare (not safe)) - (##cdr _%e199743199789%_))) - (_%lp-hd199744199792%_ + (##cdr _%e201030201076%_))) + (_%lp-hd201031201079%_ (let () (declare (not safe)) - (##car _%e199743199789%_)))) - (_%loop199742199781%_ - _%lp-tl199745199794%_ - (cons _%lp-hd199744199792%_ - _%id199746199786%_)))) - (let ((_%id199747199797%_ - (reverse _%id199746199786%_))) + (##car _%e201030201076%_)))) + (_%loop201029201068%_ + _%lp-tl201032201081%_ + (cons _%lp-hd201031201079%_ + _%id201033201073%_)))) + (let ((_%id201034201084%_ + (reverse _%id201033201073%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199738199773%_)) - (let ((_%e199748199800%_ + _%tl201025201060%_)) + (let ((_%e201035201087%_ (let () (declare (not safe)) (gx#stx-e - _%tl199738199773%_)))) - (let ((_%tl199750199805%_ + _%tl201025201060%_)))) + (let ((_%tl201037201092%_ (let () (declare (not safe)) - (##cdr _%e199748199800%_))) - (_%hd199749199803%_ + (##cdr _%e201035201087%_))) + (_%hd201036201090%_ (let () (declare (not safe)) - (##car _%e199748199800%_)))) + (##car _%e201035201087%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199750199805%_)) - (_%__kont200165200166%_ - _%id199747199797%_) + _%tl201037201092%_)) + (_%__kont201452201453%_ + _%id201034201084%_) (let () (declare (not safe)) - (_%g199717199755%_))))) + (_%g201004201042%_))))) (let () (declare (not safe)) - (_%g199717199755%_)))))))) - (_%loop199742199781%_ _%target199739199776%_ '()))))) + (_%g201004201042%_)))))))) + (_%loop201029201068%_ _%target201026201063%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200161200162%_)) - (let ((_%e199720199841%_ + (gx#stx-pair? _%__stx201448201449%_)) + (let ((_%e201007201128%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200161200162%_)))) - (let ((_%tl199722199846%_ + (gx#stx-e _%__stx201448201449%_)))) + (let ((_%tl201009201133%_ (let () (declare (not safe)) - (##cdr _%e199720199841%_))) - (_%hd199721199844%_ + (##cdr _%e201007201128%_))) + (_%hd201008201131%_ (let () (declare (not safe)) - (##car _%e199720199841%_)))) + (##car _%e201007201128%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199722199846%_)) - (let ((_%e199723199849%_ + (gx#stx-pair? _%tl201009201133%_)) + (let ((_%e201010201136%_ (let () (declare (not safe)) - (gx#stx-e _%tl199722199846%_)))) - (let ((_%tl199725199854%_ + (gx#stx-e _%tl201009201133%_)))) + (let ((_%tl201012201141%_ (let () (declare (not safe)) - (##cdr _%e199723199849%_))) - (_%hd199724199852%_ + (##cdr _%e201010201136%_))) + (_%hd201011201139%_ (let () (declare (not safe)) - (##car _%e199723199849%_)))) + (##car _%e201010201136%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199724199852%_)) - (let ((_%e199726199857%_ + (gx#stx-pair? _%hd201011201139%_)) + (let ((_%e201013201144%_ (let () (declare (not safe)) - (gx#stx-e _%hd199724199852%_)))) - (let ((_%tl199728199862%_ + (gx#stx-e _%hd201011201139%_)))) + (let ((_%tl201015201149%_ (let () (declare (not safe)) - (##cdr _%e199726199857%_))) - (_%hd199727199860%_ + (##cdr _%e201013201144%_))) + (_%hd201014201147%_ (let () (declare (not safe)) - (##car _%e199726199857%_)))) + (##car _%e201013201144%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199728199862%_)) + _%tl201015201149%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199725199854%_)) - (let ((_%e199729199865%_ + _%tl201012201141%_)) + (let ((_%e201016201152%_ (let () (declare (not safe)) (gx#stx-e - _%tl199725199854%_)))) - (let ((_%tl199731199870%_ + _%tl201012201141%_)))) + (let ((_%tl201018201157%_ (let () (declare (not safe)) - (##cdr _%e199729199865%_))) - (_%hd199730199868%_ + (##cdr _%e201016201152%_))) + (_%hd201017201155%_ (let () (declare (not safe)) - (##car _%e199729199865%_)))) + (##car _%e201016201152%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199731199870%_)) - (_%__kont200163200164%_ - _%hd199727199860%_) + _%tl201018201157%_)) + (_%__kont201450201451%_ + _%hd201014201147%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd199724199852%_)) - (let ((_%__splice200167200168%_ + _%hd201011201139%_)) + (let ((_%__splice201454201455%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd199724199852%_ '0)))) - (let ((_%tl199741199778%_ + (gx#syntax-split-splice _%hd201011201139%_ '0)))) + (let ((_%tl201028201065%_ (let () (declare (not safe)) - (##vector-ref _%__splice200167200168%_ '1))) - (_%target199739199776%_ + (##vector-ref _%__splice201454201455%_ '1))) + (_%target201026201063%_ (let () (declare (not safe)) - (##vector-ref _%__splice200167200168%_ '0)))) + (##vector-ref _%__splice201454201455%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199741199778%_)) - (_%__match200216200217%_ - _%e199720199841%_ - _%hd199721199844%_ - _%tl199722199846%_ - _%e199723199849%_ - _%hd199724199852%_ - _%tl199725199854%_ - _%__splice200167200168%_ - _%target199739199776%_ - _%tl199741199778%_) + (gx#stx-null? _%tl201028201065%_)) + (_%__match201503201504%_ + _%e201007201128%_ + _%hd201008201131%_ + _%tl201009201133%_ + _%e201010201136%_ + _%hd201011201139%_ + _%tl201012201141%_ + _%__splice201454201455%_ + _%target201026201063%_ + _%tl201028201065%_) (let () (declare (not safe)) - (_%g199717199755%_))))) - (let () (declare (not safe)) (_%g199717199755%_)))))) + (_%g201004201042%_))))) + (let () (declare (not safe)) (_%g201004201042%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd199724199852%_)) - (let ((_%__splice200167200168%_ + _%hd201011201139%_)) + (let ((_%__splice201454201455%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd199724199852%_ + _%hd201011201139%_ '0)))) - (let ((_%tl199741199778%_ + (let ((_%tl201028201065%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice200167200168%_ '1))) - (_%target199739199776%_ + (##vector-ref _%__splice201454201455%_ '1))) + (_%target201026201063%_ (let () (declare (not safe)) - (##vector-ref _%__splice200167200168%_ '0)))) + (##vector-ref _%__splice201454201455%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199741199778%_)) - (_%__match200216200217%_ - _%e199720199841%_ - _%hd199721199844%_ - _%tl199722199846%_ - _%e199723199849%_ - _%hd199724199852%_ - _%tl199725199854%_ - _%__splice200167200168%_ - _%target199739199776%_ - _%tl199741199778%_) - (let () (declare (not safe)) (_%g199717199755%_))))) + (gx#stx-null? _%tl201028201065%_)) + (_%__match201503201504%_ + _%e201007201128%_ + _%hd201008201131%_ + _%tl201009201133%_ + _%e201010201136%_ + _%hd201011201139%_ + _%tl201012201141%_ + _%__splice201454201455%_ + _%target201026201063%_ + _%tl201028201065%_) + (let () (declare (not safe)) (_%g201004201042%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g199717199755%_)))) + (_%g201004201042%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd199724199852%_)) - (let ((_%__splice200167200168%_ + _%hd201011201139%_)) + (let ((_%__splice201454201455%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd199724199852%_ + _%hd201011201139%_ '0)))) - (let ((_%tl199741199778%_ + (let ((_%tl201028201065%_ (let () (declare (not safe)) (##vector-ref - _%__splice200167200168%_ + _%__splice201454201455%_ '1))) - (_%target199739199776%_ + (_%target201026201063%_ (let () (declare (not safe)) (##vector-ref - _%__splice200167200168%_ + _%__splice201454201455%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199741199778%_)) - (_%__match200216200217%_ - _%e199720199841%_ - _%hd199721199844%_ - _%tl199722199846%_ - _%e199723199849%_ - _%hd199724199852%_ - _%tl199725199854%_ - _%__splice200167200168%_ - _%target199739199776%_ - _%tl199741199778%_) + _%tl201028201065%_)) + (_%__match201503201504%_ + _%e201007201128%_ + _%hd201008201131%_ + _%tl201009201133%_ + _%e201010201136%_ + _%hd201011201139%_ + _%tl201012201141%_ + _%__splice201454201455%_ + _%target201026201063%_ + _%tl201028201065%_) (let () (declare (not safe)) - (_%g199717199755%_))))) + (_%g201004201042%_))))) (let () (declare (not safe)) - (_%g199717199755%_)))))) + (_%g201004201042%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd199724199852%_)) - (let ((_%__splice200167200168%_ + _%hd201011201139%_)) + (let ((_%__splice201454201455%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd199724199852%_ + _%hd201011201139%_ '0)))) - (let ((_%tl199741199778%_ + (let ((_%tl201028201065%_ (let () (declare (not safe)) (##vector-ref - _%__splice200167200168%_ + _%__splice201454201455%_ '1))) - (_%target199739199776%_ + (_%target201026201063%_ (let () (declare (not safe)) (##vector-ref - _%__splice200167200168%_ + _%__splice201454201455%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199741199778%_)) - (_%__match200216200217%_ - _%e199720199841%_ - _%hd199721199844%_ - _%tl199722199846%_ - _%e199723199849%_ - _%hd199724199852%_ - _%tl199725199854%_ - _%__splice200167200168%_ - _%target199739199776%_ - _%tl199741199778%_) + _%tl201028201065%_)) + (_%__match201503201504%_ + _%e201007201128%_ + _%hd201008201131%_ + _%tl201009201133%_ + _%e201010201136%_ + _%hd201011201139%_ + _%tl201012201141%_ + _%__splice201454201455%_ + _%target201026201063%_ + _%tl201028201065%_) (let () (declare (not safe)) - (_%g199717199755%_))))) + (_%g201004201042%_))))) (let () (declare (not safe)) - (_%g199717199755%_)))))) + (_%g201004201042%_)))))) (let () (declare (not safe)) - (_%g199717199755%_))))) - (let () (declare (not safe)) (_%g199717199755%_))))))))) + (_%g201004201042%_))))) + (let () (declare (not safe)) (_%g201004201042%_))))))))) (define gxc#generate-ssxi-call% - (lambda (_%self199264%_ _%stx199265%_) - (let* ((_%__stx200219200220%_ _%stx199265%_) - (_%g199269199371%_ + (lambda (_%self200551%_ _%stx200552%_) + (let* ((_%__stx201506201507%_ _%stx200552%_) + (_%g200556200658%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200219200220%_))))) - (let ((_%__kont200221200222%_ - (lambda (_%L199661%_ - _%L199662%_ - _%L199663%_ - _%L199664%_ - _%L199665%_) + _%__stx201506201507%_))))) + (let ((_%__kont201508201509%_ + (lambda (_%L200948%_ + _%L200949%_ + _%L200950%_ + _%L200951%_ + _%L200952%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L199664%_)) + (gxc#identifier-symbol _%L200951%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L199663%_)) + (gx#stx-e _%L200950%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L199662%_)) + _%L200949%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L199661%_)) + (gx#stx-e _%L200948%_)) '()))))))) - (_%__kont200223200224%_ - (lambda (_%L199487%_ _%L199488%_ _%L199489%_ _%L199490%_) + (_%__kont201510201511%_ + (lambda (_%L200774%_ _%L200775%_ _%L200776%_ _%L200777%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L199489%_)) + (gxc#identifier-symbol _%L200776%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L199488%_)) + (gx#stx-e _%L200775%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L199487%_)) + _%L200774%_)) (cons '#f '()))))))) - (_%__kont200225200226%_ (lambda () '(begin)))) - (let ((_%__match200354200355%_ - (lambda (_%e199276199533%_ - _%hd199277199536%_ - _%tl199278199538%_ - _%e199279199541%_ - _%hd199280199544%_ - _%tl199281199546%_ - _%e199282199549%_ - _%hd199283199552%_ - _%tl199284199554%_ - _%e199285199557%_ - _%hd199286199560%_ - _%tl199287199562%_ - _%e199288199565%_ - _%hd199289199568%_ - _%tl199290199570%_ - _%e199291199573%_ - _%hd199292199576%_ - _%tl199293199578%_ - _%e199294199581%_ - _%hd199295199584%_ - _%tl199296199586%_ - _%e199297199589%_ - _%hd199298199592%_ - _%tl199299199594%_ - _%e199300199597%_ - _%hd199301199600%_ - _%tl199302199602%_ - _%e199303199605%_ - _%hd199304199608%_ - _%tl199305199610%_ - _%e199306199613%_ - _%hd199307199616%_ - _%tl199308199618%_ - _%e199309199621%_ - _%hd199310199624%_ - _%tl199311199626%_ - _%e199312199629%_ - _%hd199313199632%_ - _%tl199314199634%_ - _%e199315199637%_ - _%hd199316199640%_ - _%tl199317199642%_ - _%e199318199645%_ - _%hd199319199648%_ - _%tl199320199650%_ - _%e199321199653%_ - _%hd199322199656%_ - _%tl199323199658%_) - (let ((_%L199661%_ _%hd199322199656%_) - (_%L199662%_ _%hd199313199632%_) - (_%L199663%_ _%hd199304199608%_) - (_%L199664%_ _%hd199295199584%_) - (_%L199665%_ _%hd199286199560%_)) + (_%__kont201512201513%_ (lambda () '(begin)))) + (let ((_%__match201641201642%_ + (lambda (_%e200563200820%_ + _%hd200564200823%_ + _%tl200565200825%_ + _%e200566200828%_ + _%hd200567200831%_ + _%tl200568200833%_ + _%e200569200836%_ + _%hd200570200839%_ + _%tl200571200841%_ + _%e200572200844%_ + _%hd200573200847%_ + _%tl200574200849%_ + _%e200575200852%_ + _%hd200576200855%_ + _%tl200577200857%_ + _%e200578200860%_ + _%hd200579200863%_ + _%tl200580200865%_ + _%e200581200868%_ + _%hd200582200871%_ + _%tl200583200873%_ + _%e200584200876%_ + _%hd200585200879%_ + _%tl200586200881%_ + _%e200587200884%_ + _%hd200588200887%_ + _%tl200589200889%_ + _%e200590200892%_ + _%hd200591200895%_ + _%tl200592200897%_ + _%e200593200900%_ + _%hd200594200903%_ + _%tl200595200905%_ + _%e200596200908%_ + _%hd200597200911%_ + _%tl200598200913%_ + _%e200599200916%_ + _%hd200600200919%_ + _%tl200601200921%_ + _%e200602200924%_ + _%hd200603200927%_ + _%tl200604200929%_ + _%e200605200932%_ + _%hd200606200935%_ + _%tl200607200937%_ + _%e200608200940%_ + _%hd200609200943%_ + _%tl200610200945%_) + (let ((_%L200948%_ _%hd200609200943%_) + (_%L200949%_ _%hd200600200919%_) + (_%L200950%_ _%hd200591200895%_) + (_%L200951%_ _%hd200582200871%_) + (_%L200952%_ _%hd200573200847%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L199665%_ + _%L200952%_ 'bind-method!)) - (_%__kont200221200222%_ - _%L199661%_ - _%L199662%_ - _%L199663%_ - _%L199664%_ - _%L199665%_) - (_%__kont200225200226%_)))))) + (_%__kont201508201509%_ + _%L200948%_ + _%L200949%_ + _%L200950%_ + _%L200951%_ + _%L200952%_) + (_%__kont201512201513%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200219200220%_)) - (let ((_%e199276199533%_ + (gx#stx-pair? _%__stx201506201507%_)) + (let ((_%e200563200820%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200219200220%_)))) - (let ((_%tl199278199538%_ + (gx#stx-e _%__stx201506201507%_)))) + (let ((_%tl200565200825%_ (let () (declare (not safe)) - (##cdr _%e199276199533%_))) - (_%hd199277199536%_ + (##cdr _%e200563200820%_))) + (_%hd200564200823%_ (let () (declare (not safe)) - (##car _%e199276199533%_)))) + (##car _%e200563200820%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199278199538%_)) - (let ((_%e199279199541%_ + (gx#stx-pair? _%tl200565200825%_)) + (let ((_%e200566200828%_ (let () (declare (not safe)) - (gx#stx-e _%tl199278199538%_)))) - (let ((_%tl199281199546%_ + (gx#stx-e _%tl200565200825%_)))) + (let ((_%tl200568200833%_ (let () (declare (not safe)) - (##cdr _%e199279199541%_))) - (_%hd199280199544%_ + (##cdr _%e200566200828%_))) + (_%hd200567200831%_ (let () (declare (not safe)) - (##car _%e199279199541%_)))) + (##car _%e200566200828%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199280199544%_)) - (let ((_%e199282199549%_ + (gx#stx-pair? _%hd200567200831%_)) + (let ((_%e200569200836%_ (let () (declare (not safe)) - (gx#stx-e _%hd199280199544%_)))) - (let ((_%tl199284199554%_ + (gx#stx-e _%hd200567200831%_)))) + (let ((_%tl200571200841%_ (let () (declare (not safe)) - (##cdr _%e199282199549%_))) - (_%hd199283199552%_ + (##cdr _%e200569200836%_))) + (_%hd200570200839%_ (let () (declare (not safe)) - (##car _%e199282199549%_)))) + (##car _%e200569200836%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd199283199552%_)) + _%hd200570200839%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd199283199552%_)) + _%hd200570200839%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199284199554%_)) - (let ((_%e199285199557%_ + _%tl200571200841%_)) + (let ((_%e200572200844%_ (let () (declare (not safe)) (gx#stx-e - _%tl199284199554%_)))) - (let ((_%tl199287199562%_ + _%tl200571200841%_)))) + (let ((_%tl200574200849%_ (let () (declare (not safe)) - (##cdr _%e199285199557%_))) - (_%hd199286199560%_ + (##cdr _%e200572200844%_))) + (_%hd200573200847%_ (let () (declare (not safe)) - (##car _%e199285199557%_)))) + (##car _%e200572200844%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199287199562%_)) + _%tl200574200849%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl199281199546%_)) - (let ((_%e199288199565%_ + (gx#stx-pair? _%tl200568200833%_)) + (let ((_%e200575200852%_ (let () (declare (not safe)) - (gx#stx-e _%tl199281199546%_)))) - (let ((_%tl199290199570%_ + (gx#stx-e _%tl200568200833%_)))) + (let ((_%tl200577200857%_ (let () (declare (not safe)) - (##cdr _%e199288199565%_))) - (_%hd199289199568%_ + (##cdr _%e200575200852%_))) + (_%hd200576200855%_ (let () (declare (not safe)) - (##car _%e199288199565%_)))) + (##car _%e200575200852%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199289199568%_)) - (let ((_%e199291199573%_ + (gx#stx-pair? _%hd200576200855%_)) + (let ((_%e200578200860%_ (let () (declare (not safe)) - (gx#stx-e _%hd199289199568%_)))) - (let ((_%tl199293199578%_ + (gx#stx-e _%hd200576200855%_)))) + (let ((_%tl200580200865%_ (let () (declare (not safe)) - (##cdr _%e199291199573%_))) - (_%hd199292199576%_ + (##cdr _%e200578200860%_))) + (_%hd200579200863%_ (let () (declare (not safe)) - (##car _%e199291199573%_)))) + (##car _%e200578200860%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199292199576%_)) + (gx#identifier? _%hd200579200863%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd199292199576%_)) + _%hd200579200863%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199293199578%_)) - (let ((_%e199294199581%_ + _%tl200580200865%_)) + (let ((_%e200581200868%_ (let () (declare (not safe)) (gx#stx-e - _%tl199293199578%_)))) - (let ((_%tl199296199586%_ + _%tl200580200865%_)))) + (let ((_%tl200583200873%_ (let () (declare (not safe)) - (##cdr _%e199294199581%_))) - (_%hd199295199584%_ + (##cdr _%e200581200868%_))) + (_%hd200582200871%_ (let () (declare (not safe)) - (##car _%e199294199581%_)))) + (##car _%e200581200868%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199296199586%_)) + _%tl200583200873%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199290199570%_)) - (let ((_%e199297199589%_ + _%tl200577200857%_)) + (let ((_%e200584200876%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl199290199570%_)))) - (let ((_%tl199299199594%_ + (gx#stx-e _%tl200577200857%_)))) + (let ((_%tl200586200881%_ (let () (declare (not safe)) - (##cdr _%e199297199589%_))) - (_%hd199298199592%_ + (##cdr _%e200584200876%_))) + (_%hd200585200879%_ (let () (declare (not safe)) - (##car _%e199297199589%_)))) + (##car _%e200584200876%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199298199592%_)) - (let ((_%e199300199597%_ + (gx#stx-pair? _%hd200585200879%_)) + (let ((_%e200587200884%_ (let () (declare (not safe)) - (gx#stx-e _%hd199298199592%_)))) - (let ((_%tl199302199602%_ + (gx#stx-e _%hd200585200879%_)))) + (let ((_%tl200589200889%_ (let () (declare (not safe)) - (##cdr _%e199300199597%_))) - (_%hd199301199600%_ + (##cdr _%e200587200884%_))) + (_%hd200588200887%_ (let () (declare (not safe)) - (##car _%e199300199597%_)))) + (##car _%e200587200884%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199301199600%_)) + (gx#identifier? _%hd200588200887%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd199301199600%_)) + _%hd200588200887%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199302199602%_)) - (let ((_%e199303199605%_ + (gx#stx-pair? _%tl200589200889%_)) + (let ((_%e200590200892%_ (let () (declare (not safe)) (gx#stx-e - _%tl199302199602%_)))) - (let ((_%tl199305199610%_ + _%tl200589200889%_)))) + (let ((_%tl200592200897%_ (let () (declare (not safe)) - (##cdr _%e199303199605%_))) - (_%hd199304199608%_ + (##cdr _%e200590200892%_))) + (_%hd200591200895%_ (let () (declare (not safe)) - (##car _%e199303199605%_)))) + (##car _%e200590200892%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199305199610%_)) + _%tl200592200897%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199299199594%_)) - (let ((_%e199306199613%_ + _%tl200586200881%_)) + (let ((_%e200593200900%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl199299199594%_)))) - (let ((_%tl199308199618%_ - (let () (declare (not safe)) (##cdr _%e199306199613%_))) - (_%hd199307199616%_ + (gx#stx-e _%tl200586200881%_)))) + (let ((_%tl200595200905%_ + (let () (declare (not safe)) (##cdr _%e200593200900%_))) + (_%hd200594200903%_ (let () (declare (not safe)) - (##car _%e199306199613%_)))) + (##car _%e200593200900%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199307199616%_)) - (let ((_%e199309199621%_ + (gx#stx-pair? _%hd200594200903%_)) + (let ((_%e200596200908%_ (let () (declare (not safe)) - (gx#stx-e _%hd199307199616%_)))) - (let ((_%tl199311199626%_ + (gx#stx-e _%hd200594200903%_)))) + (let ((_%tl200598200913%_ (let () (declare (not safe)) - (##cdr _%e199309199621%_))) - (_%hd199310199624%_ + (##cdr _%e200596200908%_))) + (_%hd200597200911%_ (let () (declare (not safe)) - (##car _%e199309199621%_)))) + (##car _%e200596200908%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199310199624%_)) + (gx#identifier? _%hd200597200911%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd199310199624%_)) + (gx#stx-eq? '%#ref _%hd200597200911%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199311199626%_)) - (let ((_%e199312199629%_ + (gx#stx-pair? _%tl200598200913%_)) + (let ((_%e200599200916%_ (let () (declare (not safe)) - (gx#stx-e _%tl199311199626%_)))) - (let ((_%tl199314199634%_ + (gx#stx-e _%tl200598200913%_)))) + (let ((_%tl200601200921%_ (let () (declare (not safe)) - (##cdr _%e199312199629%_))) - (_%hd199313199632%_ + (##cdr _%e200599200916%_))) + (_%hd200600200919%_ (let () (declare (not safe)) - (##car _%e199312199629%_)))) + (##car _%e200599200916%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199314199634%_)) + _%tl200601200921%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199308199618%_)) - (let ((_%e199315199637%_ + _%tl200595200905%_)) + (let ((_%e200602200924%_ (let () (declare (not safe)) (gx#stx-e - _%tl199308199618%_)))) - (let ((_%tl199317199642%_ + _%tl200595200905%_)))) + (let ((_%tl200604200929%_ (let () (declare (not safe)) - (##cdr _%e199315199637%_))) - (_%hd199316199640%_ + (##cdr _%e200602200924%_))) + (_%hd200603200927%_ (let () (declare (not safe)) - (##car _%e199315199637%_)))) + (##car _%e200602200924%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd199316199640%_)) - (let ((_%e199318199645%_ + _%hd200603200927%_)) + (let ((_%e200605200932%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd199316199640%_)))) - (let ((_%tl199320199650%_ + (gx#stx-e _%hd200603200927%_)))) + (let ((_%tl200607200937%_ (let () (declare (not safe)) - (##cdr _%e199318199645%_))) - (_%hd199319199648%_ + (##cdr _%e200605200932%_))) + (_%hd200606200935%_ (let () (declare (not safe)) - (##car _%e199318199645%_)))) + (##car _%e200605200932%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199319199648%_)) + (gx#identifier? _%hd200606200935%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd199319199648%_)) + (gx#stx-eq? '%#quote _%hd200606200935%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199320199650%_)) - (let ((_%e199321199653%_ + (gx#stx-pair? _%tl200607200937%_)) + (let ((_%e200608200940%_ (let () (declare (not safe)) - (gx#stx-e _%tl199320199650%_)))) - (let ((_%tl199323199658%_ + (gx#stx-e _%tl200607200937%_)))) + (let ((_%tl200610200945%_ (let () (declare (not safe)) - (##cdr _%e199321199653%_))) - (_%hd199322199656%_ + (##cdr _%e200608200940%_))) + (_%hd200609200943%_ (let () (declare (not safe)) - (##car _%e199321199653%_)))) + (##car _%e200608200940%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199323199658%_)) + (gx#stx-null? _%tl200610200945%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199317199642%_)) - (_%__match200354200355%_ - _%e199276199533%_ - _%hd199277199536%_ - _%tl199278199538%_ - _%e199279199541%_ - _%hd199280199544%_ - _%tl199281199546%_ - _%e199282199549%_ - _%hd199283199552%_ - _%tl199284199554%_ - _%e199285199557%_ - _%hd199286199560%_ - _%tl199287199562%_ - _%e199288199565%_ - _%hd199289199568%_ - _%tl199290199570%_ - _%e199291199573%_ - _%hd199292199576%_ - _%tl199293199578%_ - _%e199294199581%_ - _%hd199295199584%_ - _%tl199296199586%_ - _%e199297199589%_ - _%hd199298199592%_ - _%tl199299199594%_ - _%e199300199597%_ - _%hd199301199600%_ - _%tl199302199602%_ - _%e199303199605%_ - _%hd199304199608%_ - _%tl199305199610%_ - _%e199306199613%_ - _%hd199307199616%_ - _%tl199308199618%_ - _%e199309199621%_ - _%hd199310199624%_ - _%tl199311199626%_ - _%e199312199629%_ - _%hd199313199632%_ - _%tl199314199634%_ - _%e199315199637%_ - _%hd199316199640%_ - _%tl199317199642%_ - _%e199318199645%_ - _%hd199319199648%_ - _%tl199320199650%_ - _%e199321199653%_ - _%hd199322199656%_ - _%tl199323199658%_) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)))) + _%tl200604200929%_)) + (_%__match201641201642%_ + _%e200563200820%_ + _%hd200564200823%_ + _%tl200565200825%_ + _%e200566200828%_ + _%hd200567200831%_ + _%tl200568200833%_ + _%e200569200836%_ + _%hd200570200839%_ + _%tl200571200841%_ + _%e200572200844%_ + _%hd200573200847%_ + _%tl200574200849%_ + _%e200575200852%_ + _%hd200576200855%_ + _%tl200577200857%_ + _%e200578200860%_ + _%hd200579200863%_ + _%tl200580200865%_ + _%e200581200868%_ + _%hd200582200871%_ + _%tl200583200873%_ + _%e200584200876%_ + _%hd200585200879%_ + _%tl200586200881%_ + _%e200587200884%_ + _%hd200588200887%_ + _%tl200589200889%_ + _%e200590200892%_ + _%hd200591200895%_ + _%tl200592200897%_ + _%e200593200900%_ + _%hd200594200903%_ + _%tl200595200905%_ + _%e200596200908%_ + _%hd200597200911%_ + _%tl200598200913%_ + _%e200599200916%_ + _%hd200600200919%_ + _%tl200601200921%_ + _%e200602200924%_ + _%hd200603200927%_ + _%tl200604200929%_ + _%e200605200932%_ + _%hd200606200935%_ + _%tl200607200937%_ + _%e200608200940%_ + _%hd200609200943%_ + _%tl200610200945%_) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl199308199618%_)) - (if (let ((__tmp200576 + _%tl200595200905%_)) + (if (let ((__tmp201863 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp200576 'bind-method!)) - (let ((_%L199487%_ _%hd199313199632%_) - (_%L199488%_ _%hd199304199608%_) - (_%L199489%_ _%hd199295199584%_) - (_%L199490%_ _%hd199286199560%_)) - (_%__kont200223200224%_ - _%L199487%_ - _%L199488%_ - _%L199489%_ - _%L199490%_)) - (_%__kont200225200226%_)) - (_%__kont200225200226%_))) + (gxc#runtime-identifier=? __tmp201863 'bind-method!)) + (let ((_%L200774%_ _%hd200600200919%_) + (_%L200775%_ _%hd200591200895%_) + (_%L200776%_ _%hd200582200871%_) + (_%L200777%_ _%hd200573200847%_)) + (_%__kont201510201511%_ + _%L200774%_ + _%L200775%_ + _%L200776%_ + _%L200777%_)) + (_%__kont201512201513%_)) + (_%__kont201512201513%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)))) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200225200226%_)) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)))) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200225200226%_)) - (_%__kont200225200226%_)) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_)))) - (_%__kont200225200226%_))))))) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_)))) + (_%__kont201512201513%_))))))) (define gxc#generate-ssxi-begin-annotation% - (lambda (_%self199088%_ _%stx199089%_) - (let* ((_%__stx200463200464%_ _%stx199089%_) - (_%g199092199132%_ + (lambda (_%self200375%_ _%stx200376%_) + (let* ((_%__stx201750201751%_ _%stx200376%_) + (_%g200379200419%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200463200464%_))))) - (let ((_%__kont200465200466%_ - (lambda (_%L199238%_ _%L199239%_) + _%__stx201750201751%_))))) + (let ((_%__kont201752201753%_ + (lambda (_%L200525%_ _%L200526%_) (cons 'declare-inline-rule! (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L199239%_)) - (cons _%L199238%_ '()))))) - (_%__kont200467200468%_ - (lambda (_%L199161%_ _%L199162%_) '(begin)))) + (gxc#identifier-symbol _%L200526%_)) + (cons _%L200525%_ '()))))) + (_%__kont201754201755%_ + (lambda (_%L200448%_ _%L200449%_) '(begin)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200463200464%_)) - (let ((_%e199096199182%_ + (gx#stx-pair? _%__stx201750201751%_)) + (let ((_%e200383200469%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200463200464%_)))) - (let ((_%tl199098199187%_ + (gx#stx-e _%__stx201750201751%_)))) + (let ((_%tl200385200474%_ (let () (declare (not safe)) - (##cdr _%e199096199182%_))) - (_%hd199097199185%_ + (##cdr _%e200383200469%_))) + (_%hd200384200472%_ (let () (declare (not safe)) - (##car _%e199096199182%_)))) + (##car _%e200383200469%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199098199187%_)) - (let ((_%e199099199190%_ + (gx#stx-pair? _%tl200385200474%_)) + (let ((_%e200386200477%_ (let () (declare (not safe)) - (gx#stx-e _%tl199098199187%_)))) - (let ((_%tl199101199195%_ + (gx#stx-e _%tl200385200474%_)))) + (let ((_%tl200388200482%_ (let () (declare (not safe)) - (##cdr _%e199099199190%_))) - (_%hd199100199193%_ + (##cdr _%e200386200477%_))) + (_%hd200387200480%_ (let () (declare (not safe)) - (##car _%e199099199190%_)))) + (##car _%e200386200477%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199100199193%_)) - (let ((_%e199102199198%_ + (gx#stx-pair? _%hd200387200480%_)) + (let ((_%e200389200485%_ (let () (declare (not safe)) - (gx#stx-e _%hd199100199193%_)))) - (let ((_%tl199104199203%_ + (gx#stx-e _%hd200387200480%_)))) + (let ((_%tl200391200490%_ (let () (declare (not safe)) - (##cdr _%e199102199198%_))) - (_%hd199103199201%_ + (##cdr _%e200389200485%_))) + (_%hd200390200488%_ (let () (declare (not safe)) - (##car _%e199102199198%_)))) + (##car _%e200389200485%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199103199201%_)) + (gx#identifier? _%hd200390200488%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd199103199201%_)) + _%hd200390200488%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199104199203%_)) - (let ((_%e199105199206%_ + _%tl200391200490%_)) + (let ((_%e200392200493%_ (let () (declare (not safe)) (gx#stx-e - _%tl199104199203%_)))) - (let ((_%tl199107199211%_ + _%tl200391200490%_)))) + (let ((_%tl200394200498%_ (let () (declare (not safe)) - (##cdr _%e199105199206%_))) - (_%hd199106199209%_ + (##cdr _%e200392200493%_))) + (_%hd200393200496%_ (let () (declare (not safe)) - (##car _%e199105199206%_)))) + (##car _%e200392200493%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199107199211%_)) + _%tl200394200498%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199101199195%_)) - (let ((_%e199108199214%_ + _%tl200388200482%_)) + (let ((_%e200395200501%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl199101199195%_)))) - (let ((_%tl199110199219%_ + (gx#stx-e _%tl200388200482%_)))) + (let ((_%tl200397200506%_ (let () (declare (not safe)) - (##cdr _%e199108199214%_))) - (_%hd199109199217%_ + (##cdr _%e200395200501%_))) + (_%hd200396200504%_ (let () (declare (not safe)) - (##car _%e199108199214%_)))) + (##car _%e200395200501%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199109199217%_)) - (let ((_%e199111199222%_ + (gx#stx-pair? _%hd200396200504%_)) + (let ((_%e200398200509%_ (let () (declare (not safe)) - (gx#stx-e _%hd199109199217%_)))) - (let ((_%tl199113199227%_ + (gx#stx-e _%hd200396200504%_)))) + (let ((_%tl200400200514%_ (let () (declare (not safe)) - (##cdr _%e199111199222%_))) - (_%hd199112199225%_ + (##cdr _%e200398200509%_))) + (_%hd200399200512%_ (let () (declare (not safe)) - (##car _%e199111199222%_)))) + (##car _%e200398200509%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199112199225%_)) + (gx#identifier? _%hd200399200512%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd199112199225%_)) + _%hd200399200512%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199113199227%_)) - (let ((_%e199114199230%_ + _%tl200400200514%_)) + (let ((_%e200401200517%_ (let () (declare (not safe)) (gx#stx-e - _%tl199113199227%_)))) - (let ((_%tl199116199235%_ + _%tl200400200514%_)))) + (let ((_%tl200403200522%_ (let () (declare (not safe)) - (##cdr _%e199114199230%_))) - (_%hd199115199233%_ + (##cdr _%e200401200517%_))) + (_%hd200402200520%_ (let () (declare (not safe)) - (##car _%e199114199230%_)))) + (##car _%e200401200517%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199116199235%_)) + _%tl200403200522%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199110199219%_)) - (_%__kont200465200466%_ - _%hd199115199233%_ - _%hd199106199209%_) + _%tl200397200506%_)) + (_%__kont201752201753%_ + _%hd200402200520%_ + _%hd200393200496%_) (let () (declare (not safe)) - (_%g199092199132%_))) + (_%g200379200419%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199110199219%_)) - (_%__kont200467200468%_ - _%hd199109199217%_ - _%hd199100199193%_) + _%tl200397200506%_)) + (_%__kont201754201755%_ + _%hd200396200504%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199092199132%_)))))) + (_%g200379200419%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199110199219%_)) - (_%__kont200467200468%_ - _%hd199109199217%_ - _%hd199100199193%_) + _%tl200397200506%_)) + (_%__kont201754201755%_ + _%hd200396200504%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199092199132%_)))) + (_%g200379200419%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199110199219%_)) - (_%__kont200467200468%_ - _%hd199109199217%_ - _%hd199100199193%_) + _%tl200397200506%_)) + (_%__kont201754201755%_ + _%hd200396200504%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199092199132%_)))) + (_%g200379200419%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199110199219%_)) - (_%__kont200467200468%_ - _%hd199109199217%_ - _%hd199100199193%_) + (gx#stx-null? _%tl200397200506%_)) + (_%__kont201754201755%_ + _%hd200396200504%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199092199132%_)))))) + (_%g200379200419%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199110199219%_)) - (_%__kont200467200468%_ - _%hd199109199217%_ - _%hd199100199193%_) + (gx#stx-null? _%tl200397200506%_)) + (_%__kont201754201755%_ + _%hd200396200504%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199092199132%_)))))) - (let () (declare (not safe)) (_%g199092199132%_))) + (_%g200379200419%_)))))) + (let () (declare (not safe)) (_%g200379200419%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199101199195%_)) - (let ((_%e199125199153%_ + (gx#stx-pair? _%tl200388200482%_)) + (let ((_%e200412200440%_ (let () (declare (not safe)) - (gx#stx-e _%tl199101199195%_)))) - (let ((_%tl199127199158%_ + (gx#stx-e _%tl200388200482%_)))) + (let ((_%tl200414200445%_ (let () (declare (not safe)) - (##cdr _%e199125199153%_))) - (_%hd199126199156%_ + (##cdr _%e200412200440%_))) + (_%hd200413200443%_ (let () (declare (not safe)) - (##car _%e199125199153%_)))) + (##car _%e200412200440%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199127199158%_)) - (_%__kont200467200468%_ - _%hd199126199156%_ - _%hd199100199193%_) + (gx#stx-null? _%tl200414200445%_)) + (_%__kont201754201755%_ + _%hd200413200443%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199092199132%_))))) - (let () (declare (not safe)) (_%g199092199132%_)))))) + (_%g200379200419%_))))) + (let () (declare (not safe)) (_%g200379200419%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199101199195%_)) - (let ((_%e199125199153%_ + _%tl200388200482%_)) + (let ((_%e200412200440%_ (let () (declare (not safe)) (gx#stx-e - _%tl199101199195%_)))) - (let ((_%tl199127199158%_ + _%tl200388200482%_)))) + (let ((_%tl200414200445%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e199125199153%_))) - (_%hd199126199156%_ - (let () (declare (not safe)) (##car _%e199125199153%_)))) + (##cdr _%e200412200440%_))) + (_%hd200413200443%_ + (let () (declare (not safe)) (##car _%e200412200440%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199127199158%_)) - (_%__kont200467200468%_ - _%hd199126199156%_ - _%hd199100199193%_) - (let () (declare (not safe)) (_%g199092199132%_))))) + (gx#stx-null? _%tl200414200445%_)) + (_%__kont201754201755%_ + _%hd200413200443%_ + _%hd200387200480%_) + (let () (declare (not safe)) (_%g200379200419%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g199092199132%_)))) + (_%g200379200419%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199101199195%_)) - (let ((_%e199125199153%_ + _%tl200388200482%_)) + (let ((_%e200412200440%_ (let () (declare (not safe)) (gx#stx-e - _%tl199101199195%_)))) - (let ((_%tl199127199158%_ + _%tl200388200482%_)))) + (let ((_%tl200414200445%_ (let () (declare (not safe)) - (##cdr _%e199125199153%_))) - (_%hd199126199156%_ + (##cdr _%e200412200440%_))) + (_%hd200413200443%_ (let () (declare (not safe)) - (##car _%e199125199153%_)))) + (##car _%e200412200440%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199127199158%_)) - (_%__kont200467200468%_ - _%hd199126199156%_ - _%hd199100199193%_) + _%tl200414200445%_)) + (_%__kont201754201755%_ + _%hd200413200443%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199092199132%_))))) + (_%g200379200419%_))))) (let () (declare (not safe)) - (_%g199092199132%_)))) + (_%g200379200419%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199101199195%_)) - (let ((_%e199125199153%_ + _%tl200388200482%_)) + (let ((_%e200412200440%_ (let () (declare (not safe)) (gx#stx-e - _%tl199101199195%_)))) - (let ((_%tl199127199158%_ + _%tl200388200482%_)))) + (let ((_%tl200414200445%_ (let () (declare (not safe)) - (##cdr _%e199125199153%_))) - (_%hd199126199156%_ + (##cdr _%e200412200440%_))) + (_%hd200413200443%_ (let () (declare (not safe)) - (##car _%e199125199153%_)))) + (##car _%e200412200440%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199127199158%_)) - (_%__kont200467200468%_ - _%hd199126199156%_ - _%hd199100199193%_) + _%tl200414200445%_)) + (_%__kont201754201755%_ + _%hd200413200443%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199092199132%_))))) + (_%g200379200419%_))))) (let () (declare (not safe)) - (_%g199092199132%_)))))) + (_%g200379200419%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199101199195%_)) - (let ((_%e199125199153%_ + (gx#stx-pair? _%tl200388200482%_)) + (let ((_%e200412200440%_ (let () (declare (not safe)) - (gx#stx-e _%tl199101199195%_)))) - (let ((_%tl199127199158%_ + (gx#stx-e _%tl200388200482%_)))) + (let ((_%tl200414200445%_ (let () (declare (not safe)) - (##cdr _%e199125199153%_))) - (_%hd199126199156%_ + (##cdr _%e200412200440%_))) + (_%hd200413200443%_ (let () (declare (not safe)) - (##car _%e199125199153%_)))) + (##car _%e200412200440%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199127199158%_)) - (_%__kont200467200468%_ - _%hd199126199156%_ - _%hd199100199193%_) + _%tl200414200445%_)) + (_%__kont201754201755%_ + _%hd200413200443%_ + _%hd200387200480%_) (let () (declare (not safe)) - (_%g199092199132%_))))) + (_%g200379200419%_))))) (let () (declare (not safe)) - (_%g199092199132%_)))))) - (let () (declare (not safe)) (_%g199092199132%_))))) - (let () (declare (not safe)) (_%g199092199132%_))))))) + (_%g200379200419%_)))))) + (let () (declare (not safe)) (_%g200379200419%_))))) + (let () (declare (not safe)) (_%g200379200419%_))))))) (define gxc#!alias::typedecl - (lambda (_%self197282199073%_) - (let* ((_%self199076%_ _%self197282199073%_) - (_%self199078%_ _%self199076%_)) + (lambda (_%self198569200360%_) + (let* ((_%self200363%_ _%self198569200360%_) + (_%self200365%_ _%self200363%_)) (cons '@alias (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self199078%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self200365%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) (__bind-method!__% gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!class::typedecl - (lambda (_%self197283198844%_) - (let* ((_%self198847%_ _%self197283198844%_) - (_%self198849%_ _%self198847%_) - (_%self198858198874%_ _%self198849%_) - (_%E198860198878%_ + (lambda (_%self198570200131%_) + (let* ((_%self200134%_ _%self198570200131%_) + (_%self200136%_ _%self200134%_) + (_%self200145200161%_ _%self200136%_) + (_%E200147200165%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self198858198874%_ + _%self200145200161%_ '((!class id super precendence-list @@ -2054,124 +2054,124 @@ metaclass methods)))) '#!void)) - (_%K198861198893%_ - (lambda (_%methods198881%_ - _%metaclass198882%_ - _%system?198883%_ - _%final?198884%_ - _%struct?198885%_ - _%constructor198886%_ - _%fields198887%_ - _%slots198888%_ - _%precendence-list198889%_ - _%super198890%_ - _%id198891%_) + (_%K200148200180%_ + (lambda (_%methods200168%_ + _%metaclass200169%_ + _%system?200170%_ + _%final?200171%_ + _%struct?200172%_ + _%constructor200173%_ + _%fields200174%_ + _%slots200175%_ + _%precendence-list200176%_ + _%super200177%_ + _%id200178%_) (cons '@class - (cons _%id198891%_ - (cons _%super198890%_ - (cons _%precendence-list198889%_ - (cons _%slots198888%_ - (cons _%fields198887%_ - (cons _%constructor198886%_ - (cons _%struct?198885%_ + (cons _%id200178%_ + (cons _%super200177%_ + (cons _%precendence-list200176%_ + (cons _%slots200175%_ + (cons _%fields200174%_ + (cons _%constructor200173%_ + (cons _%struct?200172%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%final?198884%_ - (cons _%system?198883%_ - (cons _%metaclass198882%_ - (cons (if _%methods198881%_ + (cons _%final?200171%_ + (cons _%system?200170%_ + (cons _%metaclass200169%_ + (cons (if _%methods200168%_ (let () (declare (not safe)) (hash->list - _%methods198881%_)) + _%methods200168%_)) '#f) '())))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%e198862198896%_ + (_%e200149200183%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '1 '#f '#f))) - (_%id198899%_ _%e198862198896%_) - (_%e198863198901%_ + (##unchecked-structure-ref _%self200145200161%_ '1 '#f '#f))) + (_%id200186%_ _%e200149200183%_) + (_%e200150200188%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '2 '#f '#f))) - (_%super198904%_ _%e198863198901%_) - (_%e198864198906%_ + (##unchecked-structure-ref _%self200145200161%_ '2 '#f '#f))) + (_%super200191%_ _%e200150200188%_) + (_%e200151200193%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '3 '#f '#f))) - (_%precendence-list198909%_ _%e198864198906%_) - (_%e198865198911%_ + (##unchecked-structure-ref _%self200145200161%_ '3 '#f '#f))) + (_%precendence-list200196%_ _%e200151200193%_) + (_%e200152200198%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '4 '#f '#f))) - (_%slots198914%_ _%e198865198911%_) - (_%e198866198916%_ + (##unchecked-structure-ref _%self200145200161%_ '4 '#f '#f))) + (_%slots200201%_ _%e200152200198%_) + (_%e200153200203%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '5 '#f '#f))) - (_%fields198919%_ _%e198866198916%_) - (_%e198867198921%_ + (##unchecked-structure-ref _%self200145200161%_ '5 '#f '#f))) + (_%fields200206%_ _%e200153200203%_) + (_%e200154200208%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '6 '#f '#f))) - (_%constructor198924%_ _%e198867198921%_) - (_%e198868198926%_ + (##unchecked-structure-ref _%self200145200161%_ '6 '#f '#f))) + (_%constructor200211%_ _%e200154200208%_) + (_%e200155200213%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '7 '#f '#f))) - (_%struct?198929%_ _%e198868198926%_) - (_%e198869198931%_ + (##unchecked-structure-ref _%self200145200161%_ '7 '#f '#f))) + (_%struct?200216%_ _%e200155200213%_) + (_%e200156200218%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '8 '#f '#f))) - (_%final?198934%_ _%e198869198931%_) - (_%e198870198936%_ + (##unchecked-structure-ref _%self200145200161%_ '8 '#f '#f))) + (_%final?200221%_ _%e200156200218%_) + (_%e200157200223%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198858198874%_ '9 '#f '#f))) - (_%system?198939%_ _%e198870198936%_) - (_%e198871198941%_ + (##unchecked-structure-ref _%self200145200161%_ '9 '#f '#f))) + (_%system?200226%_ _%e200157200223%_) + (_%e200158200228%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self198858198874%_ + _%self200145200161%_ '10 '#f '#f))) - (_%metaclass198944%_ _%e198871198941%_) - (_%e198872198946%_ + (_%metaclass200231%_ _%e200158200228%_) + (_%e200159200233%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self198858198874%_ + _%self200145200161%_ '11 '#f '#f))) - (_%methods198949%_ _%e198872198946%_)) - (_%K198861198893%_ - _%methods198949%_ - _%metaclass198944%_ - _%system?198939%_ - _%final?198934%_ - _%struct?198929%_ - _%constructor198924%_ - _%fields198919%_ - _%slots198914%_ - _%precendence-list198909%_ - _%super198904%_ - _%id198899%_)))) + (_%methods200236%_ _%e200159200233%_)) + (_%K200148200180%_ + _%methods200236%_ + _%metaclass200231%_ + _%system?200226%_ + _%final?200221%_ + _%struct?200216%_ + _%constructor200211%_ + _%fields200206%_ + _%slots200201%_ + _%precendence-list200196%_ + _%super200191%_ + _%id200186%_)))) (let () (declare (not safe)) (__bind-method!__% gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) (define gxc#!predicate::typedecl - (lambda (_%self197284198707%_) - (let* ((_%self198710%_ _%self197284198707%_) - (_%self198712%_ _%self198710%_)) + (lambda (_%self198571199994%_) + (let* ((_%self199997%_ _%self198571199994%_) + (_%self199999%_ _%self199997%_)) (cons '@predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198712%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self199999%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) @@ -2181,13 +2181,13 @@ gxc#!predicate::typedecl '#f)) (define gxc#!constructor::typedecl - (lambda (_%self197285198570%_) - (let* ((_%self198573%_ _%self197285198570%_) - (_%self198575%_ _%self198573%_)) + (lambda (_%self198572199857%_) + (let* ((_%self199860%_ _%self198572199857%_) + (_%self199862%_ _%self199860%_)) (cons '@constructor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198575%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self199862%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) @@ -2197,24 +2197,24 @@ gxc#!constructor::typedecl '#f)) (define gxc#!accessor::typedecl - (lambda (_%self197286198433%_) - (let* ((_%self198436%_ _%self197286198433%_) - (_%self198438%_ _%self198436%_)) + (lambda (_%self198573199720%_) + (let* ((_%self199723%_ _%self198573199720%_) + (_%self199725%_ _%self199723%_)) (cons '@accessor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198438%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self199725%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198438%_ + _%self199725%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198438%_ + _%self199725%_ '4 '#f '#f)) @@ -2227,24 +2227,24 @@ gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_%self197287198296%_) - (let* ((_%self198299%_ _%self197287198296%_) - (_%self198301%_ _%self198299%_)) + (lambda (_%self198574199583%_) + (let* ((_%self199586%_ _%self198574199583%_) + (_%self199588%_ _%self199586%_)) (cons '@mutator (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198301%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self199588%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198301%_ + _%self199588%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198301%_ + _%self199588%_ '4 '#f '#f)) @@ -2253,17 +2253,17 @@ (declare (not safe)) (__bind-method!__% gxc#!mutator::t 'typedecl gxc#!mutator::typedecl '#f)) (define gxc#!interface::typedecl - (lambda (_%self197288198159%_) - (let* ((_%self198162%_ _%self197288198159%_) - (_%self198164%_ _%self198162%_)) + (lambda (_%self198575199446%_) + (let* ((_%self199449%_ _%self198575199446%_) + (_%self199451%_ _%self199449%_)) (cons '@interface (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198164%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self199451%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198164%_ + _%self199451%_ '2 '#f '#f)) @@ -2276,34 +2276,34 @@ gxc#!interface::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_%self197289197970%_) - (let* ((_%self197973%_ _%self197289197970%_) - (_%self197975%_ _%self197973%_) - (_%self197984197993%_ _%self197975%_) - (_%E197986197997%_ + (lambda (_%self198576199257%_) + (let* ((_%self199260%_ _%self198576199257%_) + (_%self199262%_ _%self199260%_) + (_%self199271199280%_ _%self199262%_) + (_%E199273199284%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self197984197993%_ + _%self199271199280%_ '((!lambda _ signature arity dispatch)))) '#!void)) - (_%K197987198016%_ - (lambda (_%dispatch198000%_ - _%arity198001%_ - _%signature198002%_) - (if _%signature198002%_ - (let ((_%signature198004%_ _%signature198002%_)) + (_%K199274199303%_ + (lambda (_%dispatch199287%_ + _%arity199288%_ + _%signature199289%_) + (if _%signature199289%_ + (let ((_%signature199291%_ _%signature199289%_)) (cons '@lambda - (cons _%arity198001%_ - (cons _%dispatch198000%_ + (cons _%arity199288%_ + (cons _%dispatch199287%_ (cons 'signature: (cons (cons 'return: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%signature198004%_ + _%signature199291%_ '1 '#f '#f)) @@ -2311,7 +2311,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature198004%_ + _%signature199291%_ '2 '#f '#f)) @@ -2319,7 +2319,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature198004%_ + _%signature199291%_ '3 '#f '#f)) @@ -2329,7 +2329,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%signature198004%_ + _%signature199291%_ '4 '#f '#f)) @@ -2337,7 +2337,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature198004%_ + _%signature199291%_ '5 '#f '#f)) @@ -2346,63 +2346,63 @@ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '@lambda - (cons _%arity198001%_ - (cons _%dispatch198000%_ '())))))) - (_%e197988198019%_ + (cons _%arity199288%_ + (cons _%dispatch199287%_ '())))))) + (_%e199275199306%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197984197993%_ '1 '#f '#f))) - (_%e197989198022%_ + (##unchecked-structure-ref _%self199271199280%_ '1 '#f '#f))) + (_%e199276199309%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197984197993%_ '2 '#f '#f))) - (_%signature198025%_ _%e197989198022%_) - (_%e197990198027%_ + (##unchecked-structure-ref _%self199271199280%_ '2 '#f '#f))) + (_%signature199312%_ _%e199276199309%_) + (_%e199277199314%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197984197993%_ '3 '#f '#f))) - (_%arity198030%_ _%e197990198027%_) - (_%e197991198032%_ + (##unchecked-structure-ref _%self199271199280%_ '3 '#f '#f))) + (_%arity199317%_ _%e199277199314%_) + (_%e199278199319%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self197984197993%_ '4 '#f '#f))) - (_%dispatch198035%_ _%e197991198032%_)) - (_%K197987198016%_ - _%dispatch198035%_ - _%arity198030%_ - _%signature198025%_)))) + (##unchecked-structure-ref _%self199271199280%_ '4 '#f '#f))) + (_%dispatch199322%_ _%e199278199319%_)) + (_%K199274199303%_ + _%dispatch199322%_ + _%arity199317%_ + _%signature199312%_)))) (let () (declare (not safe)) (__bind-method!__% gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_%self197290197829%_) - (let* ((_%self197832%_ _%self197290197829%_) - (_%self197834%_ _%self197832%_)) - (letrec ((_%clause-e197844%_ - (lambda (_%clause197846%_) - (cdr (let ((__method200551 + (lambda (_%self198577199116%_) + (let* ((_%self199119%_ _%self198577199116%_) + (_%self199121%_ _%self199119%_)) + (letrec ((_%clause-e199131%_ + (lambda (_%clause199133%_) + (cdr (let ((__method201838 (let () (declare (not safe)) (__method-ref - _%clause197846%_ + _%clause199133%_ 'typedecl)))) - (if __method200551 + (if __method201838 (let () (declare (not safe)) - (__method200551 _%clause197846%_)) + (__method201838 _%clause199133%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause197846%_ + _%clause199133%_ 'typedecl)) '#!void))))))) (cons '@case-lambda - (map _%clause-e197844%_ + (map _%clause-e199131%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self197834%_ + _%self199121%_ '3 '#f '#f)))))))) @@ -2414,17 +2414,17 @@ gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_%self197291197692%_) - (let* ((_%self197695%_ _%self197291197692%_) - (_%self197697%_ _%self197695%_)) + (lambda (_%self198578198979%_) + (let* ((_%self198982%_ _%self198578198979%_) + (_%self198984%_ _%self198982%_)) (cons '@kw-lambda (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197697%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self198984%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self197697%_ + _%self198984%_ '4 '#f '#f)) @@ -2437,17 +2437,17 @@ gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_%self197292197555%_) - (let* ((_%self197558%_ _%self197292197555%_) - (_%self197560%_ _%self197558%_)) + (lambda (_%self198579198842%_) + (let* ((_%self198845%_ _%self198579198842%_) + (_%self198847%_ _%self198845%_)) (cons '@kw-lambda-dispatch (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197560%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self198847%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self197560%_ + _%self198847%_ '4 '#f '#f)) @@ -2460,13 +2460,13 @@ gxc#!kw-lambda-primary::typedecl '#f)) (define gxc#!primitive-predicate::typedecl - (lambda (_%self197293197418%_) - (let* ((_%self197421%_ _%self197293197418%_) - (_%self197423%_ _%self197421%_)) + (lambda (_%self198580198705%_) + (let* ((_%self198708%_ _%self198580198705%_) + (_%self198710%_ _%self198708%_)) (cons '@primitive-predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197423%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198710%_ '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 532f1aae7..95dc90cf9 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]#_g200578_| + (define |gxc[1]#_g201865_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g200580_| + (define |gxc[1]#_g201867_| (##structure gx#syntax-quote::t '::generate-ssxi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g200582_| + (define |gxc[1]#_g201869_| (##structure gx#syntax-quote::t 'make-::generate-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g200584_| + (define |gxc[1]#_g201871_| (##structure gx#syntax-quote::t '::generate-ssxi? @@ -29,7 +29,7 @@ (gx#current-expander-context) '())) (define |gxc[:0:]#::generate-ssxi| - (let ((__obj200547 + (let ((__obj201834 (let () (declare (not safe)) (##structure @@ -58,63 +58,63 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj200547 + __obj201834 'gxc#::generate-ssxi::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '::generate-ssxi '2 '#f '#f)) + (##unchecked-structure-set! __obj201834 '::generate-ssxi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj201834 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '6 '#f '#f)) - (let ((__tmp200577 (cons |gxc[1]#_g200578_| '()))) + (##unchecked-structure-set! __obj201834 '() '6 '#f '#f)) + (let ((__tmp201864 (cons |gxc[1]#_g201865_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj200547 __tmp200577 '3 '#f '#f)) + (##unchecked-structure-set! __obj201834 __tmp201864 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj201834 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj201834 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj201834 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '#f '11 '#f '#f)) - (let ((__tmp200579 |gxc[1]#_g200580_|)) + (##unchecked-structure-set! __obj201834 '#f '11 '#f '#f)) + (let ((__tmp201866 |gxc[1]#_g201867_|)) (declare (not safe)) - (##unchecked-structure-set! __obj200547 __tmp200579 '12 '#f '#f)) - (let ((__tmp200581 |gxc[1]#_g200582_|)) + (##unchecked-structure-set! __obj201834 __tmp201866 '12 '#f '#f)) + (let ((__tmp201868 |gxc[1]#_g201869_|)) (declare (not safe)) - (##unchecked-structure-set! __obj200547 __tmp200581 '13 '#f '#f)) - (let ((__tmp200583 |gxc[1]#_g200584_|)) + (##unchecked-structure-set! __obj201834 __tmp201868 '13 '#f '#f)) + (let ((__tmp201870 |gxc[1]#_g201871_|)) (declare (not safe)) - (##unchecked-structure-set! __obj200547 __tmp200583 '14 '#f '#f)) + (##unchecked-structure-set! __obj201834 __tmp201870 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj201834 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj201834 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj201834 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj201834 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj201834 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj201834 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200547 '() '20 '#f '#f)) - __obj200547))) + (##unchecked-structure-set! __obj201834 '() '20 '#f '#f)) + __obj201834))) diff --git a/src/bootstrap/gerbil/compiler/ssxi~1.scm b/src/bootstrap/gerbil/compiler/ssxi~1.scm index 7b76de732..4e243325c 100644 --- a/src/bootstrap/gerbil/compiler/ssxi~1.scm +++ b/src/bootstrap/gerbil/compiler/ssxi~1.scm @@ -1,76 +1,76 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g209065_| + (define |gxc[1]#_g210384_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209072_| + (define |gxc[1]#_g210391_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209074_| + (define |gxc[1]#_g210393_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209076_| + (define |gxc[1]#_g210395_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209078_| + (define |gxc[1]#_g210397_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209080_| + (define |gxc[1]#_g210399_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209092_| + (define |gxc[1]#_g210411_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209094_| + (define |gxc[1]#_g210413_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209096_| + (define |gxc[1]#_g210415_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209098_| + (define |gxc[1]#_g210417_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209100_| + (define |gxc[1]#_g210419_| (##structure gx#syntax-quote::t 'quote @@ -79,73 +79,73 @@ '())) (begin (define |gxc[:0:]#declare-type| - (lambda (_%$stx202483%_) - (let* ((_%g202487202505%_ - (lambda (_%g202488202501%_) + (lambda (_%$stx203802%_) + (let* ((_%g203806203824%_ + (lambda (_%g203807203820%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202488202501%_)))) - (_%g202486202560%_ - (lambda (_%g202488202509%_) + _%g203807203820%_)))) + (_%g203805203879%_ + (lambda (_%g203807203828%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202488202509%_)) - (let ((_%e202491202512%_ + (gx#stx-pair? _%g203807203828%_)) + (let ((_%e203810203831%_ (let () (declare (not safe)) - (gx#syntax-e _%g202488202509%_)))) - (let ((_%hd202492202516%_ + (gx#syntax-e _%g203807203828%_)))) + (let ((_%hd203811203835%_ (let () (declare (not safe)) - (##car _%e202491202512%_))) - (_%tl202493202519%_ + (##car _%e203810203831%_))) + (_%tl203812203838%_ (let () (declare (not safe)) - (##cdr _%e202491202512%_)))) + (##cdr _%e203810203831%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202493202519%_)) - (let ((_%e202494202522%_ + (gx#stx-pair? _%tl203812203838%_)) + (let ((_%e203813203841%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202493202519%_)))) - (let ((_%hd202495202526%_ + (gx#syntax-e _%tl203812203838%_)))) + (let ((_%hd203814203845%_ (let () (declare (not safe)) - (##car _%e202494202522%_))) - (_%tl202496202529%_ + (##car _%e203813203841%_))) + (_%tl203815203848%_ (let () (declare (not safe)) - (##cdr _%e202494202522%_)))) + (##cdr _%e203813203841%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202496202529%_)) - (let ((_%e202497202532%_ + (gx#stx-pair? _%tl203815203848%_)) + (let ((_%e203816203851%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202496202529%_)))) - (let ((_%hd202498202536%_ + _%tl203815203848%_)))) + (let ((_%hd203817203855%_ (let () (declare (not safe)) - (##car _%e202497202532%_))) - (_%tl202499202539%_ + (##car _%e203816203851%_))) + (_%tl203818203858%_ (let () (declare (not safe)) - (##cdr _%e202497202532%_)))) + (##cdr _%e203816203851%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202499202539%_)) - ((lambda (_%L202542%_ - _%L202544%_) + _%tl203818203858%_)) + ((lambda (_%L203861%_ + _%L203863%_) (if (let () (declare (not safe)) (gx#identifier? - _%L202544%_)) + _%L203863%_)) (cons (let () (declare (not safe)) @@ -156,87 +156,87 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202544%_ '())) - (cons _%L202542%_ '()))) + (cons _%L203863%_ '())) + (cons _%L203861%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g202487202505%_ - _%g202488202509%_))) - _%hd202498202536%_ - _%hd202495202526%_) - (_%g202487202505%_ - _%g202488202509%_)))) - (_%g202487202505%_ _%g202488202509%_)))) - (_%g202487202505%_ _%g202488202509%_)))) - (_%g202487202505%_ _%g202488202509%_))))) - (_%g202486202560%_ _%$stx202483%_)))) + (_%g203806203824%_ + _%g203807203828%_))) + _%hd203817203855%_ + _%hd203814203845%_) + (_%g203806203824%_ + _%g203807203828%_)))) + (_%g203806203824%_ _%g203807203828%_)))) + (_%g203806203824%_ _%g203807203828%_)))) + (_%g203806203824%_ _%g203807203828%_))))) + (_%g203805203879%_ _%$stx203802%_)))) (define |gxc[:0:]#declare-class| - (lambda (_%$stx202564%_) - (let* ((_%g202568202586%_ - (lambda (_%g202569202582%_) + (lambda (_%$stx203883%_) + (let* ((_%g203887203905%_ + (lambda (_%g203888203901%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202569202582%_)))) - (_%g202567202641%_ - (lambda (_%g202569202590%_) + _%g203888203901%_)))) + (_%g203886203960%_ + (lambda (_%g203888203909%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202569202590%_)) - (let ((_%e202572202593%_ + (gx#stx-pair? _%g203888203909%_)) + (let ((_%e203891203912%_ (let () (declare (not safe)) - (gx#syntax-e _%g202569202590%_)))) - (let ((_%hd202573202597%_ + (gx#syntax-e _%g203888203909%_)))) + (let ((_%hd203892203916%_ (let () (declare (not safe)) - (##car _%e202572202593%_))) - (_%tl202574202600%_ + (##car _%e203891203912%_))) + (_%tl203893203919%_ (let () (declare (not safe)) - (##cdr _%e202572202593%_)))) + (##cdr _%e203891203912%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202574202600%_)) - (let ((_%e202575202603%_ + (gx#stx-pair? _%tl203893203919%_)) + (let ((_%e203894203922%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202574202600%_)))) - (let ((_%hd202576202607%_ + (gx#syntax-e _%tl203893203919%_)))) + (let ((_%hd203895203926%_ (let () (declare (not safe)) - (##car _%e202575202603%_))) - (_%tl202577202610%_ + (##car _%e203894203922%_))) + (_%tl203896203929%_ (let () (declare (not safe)) - (##cdr _%e202575202603%_)))) + (##cdr _%e203894203922%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202577202610%_)) - (let ((_%e202578202613%_ + (gx#stx-pair? _%tl203896203929%_)) + (let ((_%e203897203932%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202577202610%_)))) - (let ((_%hd202579202617%_ + _%tl203896203929%_)))) + (let ((_%hd203898203936%_ (let () (declare (not safe)) - (##car _%e202578202613%_))) - (_%tl202580202620%_ + (##car _%e203897203932%_))) + (_%tl203899203939%_ (let () (declare (not safe)) - (##cdr _%e202578202613%_)))) + (##cdr _%e203897203932%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202580202620%_)) - ((lambda (_%L202623%_ - _%L202625%_) + _%tl203899203939%_)) + ((lambda (_%L203942%_ + _%L203944%_) (if (let () (declare (not safe)) (gx#identifier? - _%L202625%_)) + _%L203944%_)) (cons (let () (declare (not safe)) @@ -247,146 +247,146 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202625%_ '())) - (cons _%L202623%_ '()))) + (cons _%L203944%_ '())) + (cons _%L203942%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g202568202586%_ - _%g202569202590%_))) - _%hd202579202617%_ - _%hd202576202607%_) - (_%g202568202586%_ - _%g202569202590%_)))) - (_%g202568202586%_ _%g202569202590%_)))) - (_%g202568202586%_ _%g202569202590%_)))) - (_%g202568202586%_ _%g202569202590%_))))) - (_%g202567202641%_ _%$stx202564%_)))) + (_%g203887203905%_ + _%g203888203909%_))) + _%hd203898203936%_ + _%hd203895203926%_) + (_%g203887203905%_ + _%g203888203909%_)))) + (_%g203887203905%_ _%g203888203909%_)))) + (_%g203887203905%_ _%g203888203909%_)))) + (_%g203887203905%_ _%g203888203909%_))))) + (_%g203886203960%_ _%$stx203883%_)))) (define |gxc[:0:]#declare-type*| - (lambda (_%$stx202645%_) - (let* ((_%g202649202678%_ - (lambda (_%g202650202674%_) + (lambda (_%$stx203964%_) + (let* ((_%g203968203997%_ + (lambda (_%g203969203993%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202650202674%_)))) - (_%g202648202778%_ - (lambda (_%g202650202682%_) + _%g203969203993%_)))) + (_%g203967204097%_ + (lambda (_%g203969204001%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202650202682%_)) - (let ((_%e202653202685%_ + (gx#stx-pair? _%g203969204001%_)) + (let ((_%e203972204004%_ (let () (declare (not safe)) - (gx#syntax-e _%g202650202682%_)))) - (let ((_%hd202654202689%_ + (gx#syntax-e _%g203969204001%_)))) + (let ((_%hd203973204008%_ (let () (declare (not safe)) - (##car _%e202653202685%_))) - (_%tl202655202692%_ + (##car _%e203972204004%_))) + (_%tl203974204011%_ (let () (declare (not safe)) - (##cdr _%e202653202685%_)))) + (##cdr _%e203972204004%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl202655202692%_)) - (let ((_g209043_ + (gx#stx-pair/null? _%tl203974204011%_)) + (let ((_g210362_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl202655202692%_ + _%tl203974204011%_ '0)))) (begin - (let ((_g209044_ + (let ((_g210363_ (let () (declare (not safe)) - (if (##values? _g209043_) - (##vector-length _g209043_) + (if (##values? _g210362_) + (##values-length _g210362_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209044_ 2))) + (##fx= _g210363_ 2))) (error "Context expects 2 values" - _g209044_))) - (let ((_%target202656202695%_ + _g210363_))) + (let ((_%target203975204014%_ (let () (declare (not safe)) - (##vector-ref _g209043_ 0))) - (_%tl202658202698%_ + (##values-ref _g210362_ 0))) + (_%tl203977204017%_ (let () (declare (not safe)) - (##vector-ref _g209043_ 1)))) + (##values-ref _g210362_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202658202698%_)) - (letrec ((_%loop202659202701%_ - (lambda (_%hd202657202705%_ - _%type202663202708%_ - _%symbol202664202710%_) + (gx#stx-null? _%tl203977204017%_)) + (letrec ((_%loop203978204020%_ + (lambda (_%hd203976204024%_ + _%type203982204027%_ + _%symbol203983204029%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd202657202705%_)) - (let ((_%e202660202713%_ + _%hd203976204024%_)) + (let ((_%e203979204032%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd202657202705%_)))) - (let ((_%lp-hd202661202717%_ + (gx#syntax-e _%hd203976204024%_)))) + (let ((_%lp-hd203980204036%_ (let () (declare (not safe)) - (##car _%e202660202713%_))) - (_%lp-tl202662202720%_ + (##car _%e203979204032%_))) + (_%lp-tl203981204039%_ (let () (declare (not safe)) - (##cdr _%e202660202713%_)))) + (##cdr _%e203979204032%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd202661202717%_)) - (let ((_%e202667202723%_ + (gx#stx-pair? _%lp-hd203980204036%_)) + (let ((_%e203986204042%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd202661202717%_)))) - (let ((_%hd202668202727%_ + (gx#syntax-e _%lp-hd203980204036%_)))) + (let ((_%hd203987204046%_ (let () (declare (not safe)) - (##car _%e202667202723%_))) - (_%tl202669202730%_ + (##car _%e203986204042%_))) + (_%tl203988204049%_ (let () (declare (not safe)) - (##cdr _%e202667202723%_)))) + (##cdr _%e203986204042%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202669202730%_)) - (let ((_%e202670202733%_ + (gx#stx-pair? _%tl203988204049%_)) + (let ((_%e203989204052%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202669202730%_)))) - (let ((_%hd202671202737%_ + (gx#syntax-e _%tl203988204049%_)))) + (let ((_%hd203990204056%_ (let () (declare (not safe)) - (##car _%e202670202733%_))) - (_%tl202672202740%_ + (##car _%e203989204052%_))) + (_%tl203991204059%_ (let () (declare (not safe)) - (##cdr _%e202670202733%_)))) + (##cdr _%e203989204052%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202672202740%_)) - (_%loop202659202701%_ - _%lp-tl202662202720%_ - (cons _%hd202671202737%_ - _%type202663202708%_) - (cons _%hd202668202727%_ - _%symbol202664202710%_)) - (_%g202649202678%_ - _%g202650202682%_)))) - (_%g202649202678%_ _%g202650202682%_)))) - (_%g202649202678%_ _%g202650202682%_)))) - (let ((_%type202665202743%_ (reverse _%type202663202708%_)) - (_%symbol202666202746%_ - (reverse _%symbol202664202710%_))) - ((lambda (_%L202749%_ _%L202751%_) + (gx#stx-null? _%tl203991204059%_)) + (_%loop203978204020%_ + _%lp-tl203981204039%_ + (cons _%hd203990204056%_ + _%type203982204027%_) + (cons _%hd203987204046%_ + _%symbol203983204029%_)) + (_%g203968203997%_ + _%g203969204001%_)))) + (_%g203968203997%_ _%g203969204001%_)))) + (_%g203968203997%_ _%g203969204001%_)))) + (let ((_%type203984204062%_ (reverse _%type203982204027%_)) + (_%symbol203985204065%_ + (reverse _%symbol203983204029%_))) + ((lambda (_%L204068%_ _%L204070%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -394,52 +394,52 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L202749%_ - _%L202751%_)) - (let ((__tmp209045 - (lambda (_%g202766202770%_ - _%g202767202773%_ - _%g202768202775%_) + _%L204068%_ + _%L204070%_)) + (let ((__tmp210364 + (lambda (_%g204085204089%_ + _%g204086204092%_ + _%g204087204094%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%g202767202773%_ - (cons _%g202766202770%_ + (cons _%g204086204092%_ + (cons _%g204085204089%_ '()))) - _%g202768202775%_)))) + _%g204087204094%_)))) (declare (not safe)) (__foldr2 - __tmp209045 + __tmp210364 '() - _%L202749%_ - _%L202751%_))))) - _%type202665202743%_ - _%symbol202666202746%_)))))) + _%L204068%_ + _%L204070%_))))) + _%type203984204062%_ + _%symbol203985204065%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop202659202701%_ - _%target202656202695%_ + (_%loop203978204020%_ + _%target203975204014%_ '() '())) - (_%g202649202678%_ - _%g202650202682%_))))) - (_%g202649202678%_ _%g202650202682%_)))) - (_%g202649202678%_ _%g202650202682%_))))) - (_%g202648202778%_ _%$stx202645%_)))) + (_%g203968203997%_ + _%g203969204001%_))))) + (_%g203968203997%_ _%g203969204001%_)))) + (_%g203968203997%_ _%g203969204001%_))))) + (_%g203967204097%_ _%$stx203964%_)))) (define |gxc[:0:]#declare-method| - (lambda (_%$stx202783%_) - (let* ((_%__stx208354208355%_ _%$stx202783%_) - (_%g202788202830%_ + (lambda (_%$stx204102%_) + (let* ((_%__stx209673209674%_ _%$stx204102%_) + (_%g204107204149%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208354208355%_))))) - (let ((_%__kont208357208358%_ - (lambda (_%L202958%_ _%L202960%_ _%L202961%_ _%L202962%_) + _%__stx209673209674%_))))) + (let ((_%__kont209676209677%_ + (lambda (_%L204277%_ _%L204279%_ _%L204280%_ _%L204281%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -448,342 +448,342 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202962%_ '())) + (cons _%L204281%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202961%_ '())) + (cons _%L204280%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202960%_ '())) - (cons _%L202958%_ '()))))))) - (_%__kont208359208360%_ - (lambda (_%L202877%_ _%L202879%_ _%L202880%_ _%L202881%_) - (cons _%L202881%_ - (cons _%L202880%_ - (cons _%L202879%_ - (cons _%L202877%_ + (cons _%L204279%_ '())) + (cons _%L204277%_ '()))))))) + (_%__kont209678209679%_ + (lambda (_%L204196%_ _%L204198%_ _%L204199%_ _%L204200%_) + (cons _%L204200%_ + (cons _%L204199%_ + (cons _%L204198%_ + (cons _%L204196%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)) '())))))))) - (let ((_%__match208393208394%_ - (lambda (_%e202794202908%_ - _%hd202795202912%_ - _%tl202796202915%_ - _%e202797202918%_ - _%hd202798202922%_ - _%tl202799202925%_ - _%e202800202928%_ - _%hd202801202932%_ - _%tl202802202935%_ - _%e202803202938%_ - _%hd202804202942%_ - _%tl202805202945%_ - _%e202806202948%_ - _%hd202807202952%_ - _%tl202808202955%_) - (let ((_%L202958%_ _%hd202807202952%_) - (_%L202960%_ _%hd202804202942%_) - (_%L202961%_ _%hd202801202932%_) - (_%L202962%_ _%hd202798202922%_)) + (let ((_%__match209712209713%_ + (lambda (_%e204113204227%_ + _%hd204114204231%_ + _%tl204115204234%_ + _%e204116204237%_ + _%hd204117204241%_ + _%tl204118204244%_ + _%e204119204247%_ + _%hd204120204251%_ + _%tl204121204254%_ + _%e204122204257%_ + _%hd204123204261%_ + _%tl204124204264%_ + _%e204125204267%_ + _%hd204126204271%_ + _%tl204127204274%_) + (let ((_%L204277%_ _%hd204126204271%_) + (_%L204279%_ _%hd204123204261%_) + (_%L204280%_ _%hd204120204251%_) + (_%L204281%_ _%hd204117204241%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L202962%_)) + (gx#identifier? _%L204281%_)) (let () (declare (not safe)) - (gx#identifier? _%L202961%_)) + (gx#identifier? _%L204280%_)) (let () (declare (not safe)) - (gx#identifier? _%L202960%_))) - (_%__kont208357208358%_ - _%L202958%_ - _%L202960%_ - _%L202961%_ - _%L202962%_) + (gx#identifier? _%L204279%_))) + (_%__kont209676209677%_ + _%L204277%_ + _%L204279%_ + _%L204280%_ + _%L204281%_) (let () (declare (not safe)) - (_%g202788202830%_))))))) + (_%g204107204149%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208354208355%_)) - (let ((_%e202794202908%_ + (gx#stx-pair? _%__stx209673209674%_)) + (let ((_%e204113204227%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208354208355%_)))) - (let ((_%tl202796202915%_ + (gx#syntax-e _%__stx209673209674%_)))) + (let ((_%tl204115204234%_ (let () (declare (not safe)) - (##cdr _%e202794202908%_))) - (_%hd202795202912%_ + (##cdr _%e204113204227%_))) + (_%hd204114204231%_ (let () (declare (not safe)) - (##car _%e202794202908%_)))) + (##car _%e204113204227%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202796202915%_)) - (let ((_%e202797202918%_ + (gx#stx-pair? _%tl204115204234%_)) + (let ((_%e204116204237%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202796202915%_)))) - (let ((_%tl202799202925%_ + (gx#syntax-e _%tl204115204234%_)))) + (let ((_%tl204118204244%_ (let () (declare (not safe)) - (##cdr _%e202797202918%_))) - (_%hd202798202922%_ + (##cdr _%e204116204237%_))) + (_%hd204117204241%_ (let () (declare (not safe)) - (##car _%e202797202918%_)))) + (##car _%e204116204237%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202799202925%_)) - (let ((_%e202800202928%_ + (gx#stx-pair? _%tl204118204244%_)) + (let ((_%e204119204247%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202799202925%_)))) - (let ((_%tl202802202935%_ + (gx#syntax-e _%tl204118204244%_)))) + (let ((_%tl204121204254%_ (let () (declare (not safe)) - (##cdr _%e202800202928%_))) - (_%hd202801202932%_ + (##cdr _%e204119204247%_))) + (_%hd204120204251%_ (let () (declare (not safe)) - (##car _%e202800202928%_)))) + (##car _%e204119204247%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202802202935%_)) - (let ((_%e202803202938%_ + (gx#stx-pair? _%tl204121204254%_)) + (let ((_%e204122204257%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202802202935%_)))) - (let ((_%tl202805202945%_ + _%tl204121204254%_)))) + (let ((_%tl204124204264%_ (let () (declare (not safe)) - (##cdr _%e202803202938%_))) - (_%hd202804202942%_ + (##cdr _%e204122204257%_))) + (_%hd204123204261%_ (let () (declare (not safe)) - (##car _%e202803202938%_)))) + (##car _%e204122204257%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl202805202945%_)) - (let ((_%e202806202948%_ + _%tl204124204264%_)) + (let ((_%e204125204267%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202805202945%_)))) - (let ((_%tl202808202955%_ + _%tl204124204264%_)))) + (let ((_%tl204127204274%_ (let () (declare (not safe)) - (##cdr _%e202806202948%_))) - (_%hd202807202952%_ + (##cdr _%e204125204267%_))) + (_%hd204126204271%_ (let () (declare (not safe)) - (##car _%e202806202948%_)))) + (##car _%e204125204267%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202808202955%_)) - (_%__match208393208394%_ - _%e202794202908%_ - _%hd202795202912%_ - _%tl202796202915%_ - _%e202797202918%_ - _%hd202798202922%_ - _%tl202799202925%_ - _%e202800202928%_ - _%hd202801202932%_ - _%tl202802202935%_ - _%e202803202938%_ - _%hd202804202942%_ - _%tl202805202945%_ - _%e202806202948%_ - _%hd202807202952%_ - _%tl202808202955%_) + _%tl204127204274%_)) + (_%__match209712209713%_ + _%e204113204227%_ + _%hd204114204231%_ + _%tl204115204234%_ + _%e204116204237%_ + _%hd204117204241%_ + _%tl204118204244%_ + _%e204119204247%_ + _%hd204120204251%_ + _%tl204121204254%_ + _%e204122204257%_ + _%hd204123204261%_ + _%tl204124204264%_ + _%e204125204267%_ + _%hd204126204271%_ + _%tl204127204274%_) (let () (declare (not safe)) - (_%g202788202830%_))))) + (_%g204107204149%_))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202805202945%_)) - (_%__kont208359208360%_ - _%hd202804202942%_ - _%hd202801202932%_ - _%hd202798202922%_ - _%hd202795202912%_) + _%tl204124204264%_)) + (_%__kont209678209679%_ + _%hd204123204261%_ + _%hd204120204251%_ + _%hd204117204241%_ + _%hd204114204231%_) (let () (declare (not safe)) - (_%g202788202830%_)))))) + (_%g204107204149%_)))))) (let () (declare (not safe)) - (_%g202788202830%_))))) + (_%g204107204149%_))))) (let () (declare (not safe)) - (_%g202788202830%_))))) - (let () (declare (not safe)) (_%g202788202830%_))))) - (let () (declare (not safe)) (_%g202788202830%_)))))))) + (_%g204107204149%_))))) + (let () (declare (not safe)) (_%g204107204149%_))))) + (let () (declare (not safe)) (_%g204107204149%_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_%$stx202987%_) - (let* ((_%g202991203026%_ - (lambda (_%g202992203022%_) + (lambda (_%$stx204306%_) + (let* ((_%g204310204345%_ + (lambda (_%g204311204341%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202992203022%_)))) - (_%g202990203145%_ - (lambda (_%g202992203030%_) + _%g204311204341%_)))) + (_%g204309204464%_ + (lambda (_%g204311204349%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202992203030%_)) - (let ((_%e202996203033%_ + (gx#stx-pair? _%g204311204349%_)) + (let ((_%e204315204352%_ (let () (declare (not safe)) - (gx#syntax-e _%g202992203030%_)))) - (let ((_%hd202997203037%_ + (gx#syntax-e _%g204311204349%_)))) + (let ((_%hd204316204356%_ (let () (declare (not safe)) - (##car _%e202996203033%_))) - (_%tl202998203040%_ + (##car _%e204315204352%_))) + (_%tl204317204359%_ (let () (declare (not safe)) - (##cdr _%e202996203033%_)))) + (##cdr _%e204315204352%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl202998203040%_)) - (let ((_g209046_ + (gx#stx-pair/null? _%tl204317204359%_)) + (let ((_g210365_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl202998203040%_ + _%tl204317204359%_ '0)))) (begin - (let ((_g209047_ + (let ((_g210366_ (let () (declare (not safe)) - (if (##values? _g209046_) - (##vector-length _g209046_) + (if (##values? _g210365_) + (##values-length _g210365_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209047_ 2))) + (##fx= _g210366_ 2))) (error "Context expects 2 values" - _g209047_))) - (let ((_%target202999203043%_ + _g210366_))) + (let ((_%target204318204362%_ (let () (declare (not safe)) - (##vector-ref _g209046_ 0))) - (_%tl203001203046%_ + (##values-ref _g210365_ 0))) + (_%tl204320204365%_ (let () (declare (not safe)) - (##vector-ref _g209046_ 1)))) + (##values-ref _g210365_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203001203046%_)) - (letrec ((_%loop203002203049%_ - (lambda (_%hd203000203053%_ - _%symbol203006203056%_ - _%method203007203058%_ - _%type-t203008203060%_) + (gx#stx-null? _%tl204320204365%_)) + (letrec ((_%loop204321204368%_ + (lambda (_%hd204319204372%_ + _%symbol204325204375%_ + _%method204326204377%_ + _%type-t204327204379%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd203000203053%_)) - (let ((_%e203003203063%_ + _%hd204319204372%_)) + (let ((_%e204322204382%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd203000203053%_)))) - (let ((_%lp-hd203004203067%_ + (gx#syntax-e _%hd204319204372%_)))) + (let ((_%lp-hd204323204386%_ (let () (declare (not safe)) - (##car _%e203003203063%_))) - (_%lp-tl203005203070%_ + (##car _%e204322204382%_))) + (_%lp-tl204324204389%_ (let () (declare (not safe)) - (##cdr _%e203003203063%_)))) + (##cdr _%e204322204382%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd203004203067%_)) - (let ((_%e203012203073%_ + (gx#stx-pair? _%lp-hd204323204386%_)) + (let ((_%e204331204392%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd203004203067%_)))) - (let ((_%hd203013203077%_ + (gx#syntax-e _%lp-hd204323204386%_)))) + (let ((_%hd204332204396%_ (let () (declare (not safe)) - (##car _%e203012203073%_))) - (_%tl203014203080%_ + (##car _%e204331204392%_))) + (_%tl204333204399%_ (let () (declare (not safe)) - (##cdr _%e203012203073%_)))) + (##cdr _%e204331204392%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203014203080%_)) - (let ((_%e203015203083%_ + (gx#stx-pair? _%tl204333204399%_)) + (let ((_%e204334204402%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203014203080%_)))) - (let ((_%hd203016203087%_ + (gx#syntax-e _%tl204333204399%_)))) + (let ((_%hd204335204406%_ (let () (declare (not safe)) - (##car _%e203015203083%_))) - (_%tl203017203090%_ + (##car _%e204334204402%_))) + (_%tl204336204409%_ (let () (declare (not safe)) - (##cdr _%e203015203083%_)))) + (##cdr _%e204334204402%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203017203090%_)) - (let ((_%e203018203093%_ + (gx#stx-pair? _%tl204336204409%_)) + (let ((_%e204337204412%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203017203090%_)))) - (let ((_%hd203019203097%_ + _%tl204336204409%_)))) + (let ((_%hd204338204416%_ (let () (declare (not safe)) - (##car _%e203018203093%_))) - (_%tl203020203100%_ + (##car _%e204337204412%_))) + (_%tl204339204419%_ (let () (declare (not safe)) - (##cdr _%e203018203093%_)))) + (##cdr _%e204337204412%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203020203100%_)) - (_%loop203002203049%_ - _%lp-tl203005203070%_ - (cons _%hd203019203097%_ - _%symbol203006203056%_) - (cons _%hd203016203087%_ - _%method203007203058%_) - (cons _%hd203013203077%_ - _%type-t203008203060%_)) - (_%g202991203026%_ - _%g202992203030%_)))) - (_%g202991203026%_ - _%g202992203030%_)))) - (_%g202991203026%_ _%g202992203030%_)))) - (_%g202991203026%_ _%g202992203030%_)))) - (let ((_%symbol203009203103%_ (reverse _%symbol203006203056%_)) - (_%method203010203106%_ (reverse _%method203007203058%_)) - (_%type-t203011203108%_ - (reverse _%type-t203008203060%_))) - ((lambda (_%L203111%_ _%L203113%_ _%L203114%_) + _%tl204339204419%_)) + (_%loop204321204368%_ + _%lp-tl204324204389%_ + (cons _%hd204338204416%_ + _%symbol204325204375%_) + (cons _%hd204335204406%_ + _%method204326204377%_) + (cons _%hd204332204396%_ + _%type-t204327204379%_)) + (_%g204310204345%_ + _%g204311204349%_)))) + (_%g204310204345%_ + _%g204311204349%_)))) + (_%g204310204345%_ _%g204311204349%_)))) + (_%g204310204345%_ _%g204311204349%_)))) + (let ((_%symbol204328204422%_ (reverse _%symbol204325204375%_)) + (_%method204329204425%_ (reverse _%method204326204377%_)) + (_%type-t204330204427%_ + (reverse _%type-t204327204379%_))) + ((lambda (_%L204430%_ _%L204432%_ _%L204433%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -791,196 +791,196 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L203111%_ - _%L203113%_ - _%L203114%_)) - (let ((__tmp209048 - (lambda (_%g203130203135%_ - _%g203131203138%_ - _%g203132203140%_ - _%g203133203142%_) + _%L204430%_ + _%L204432%_ + _%L204433%_)) + (let ((__tmp210367 + (lambda (_%g204449204454%_ + _%g204450204457%_ + _%g204451204459%_ + _%g204452204461%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%g203132203140%_ - (cons _%g203131203138%_ - (cons _%g203130203135%_ + (cons _%g204451204459%_ + (cons _%g204450204457%_ + (cons _%g204449204454%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g203133203142%_)))) + _%g204452204461%_)))) (declare (not safe)) (__foldr* - __tmp209048 + __tmp210367 '() - _%L203111%_ - _%L203113%_ - _%L203114%_))))) - _%symbol203009203103%_ - _%method203010203106%_ - _%type-t203011203108%_)))))) + _%L204430%_ + _%L204432%_ + _%L204433%_))))) + _%symbol204328204422%_ + _%method204329204425%_ + _%type-t204330204427%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop203002203049%_ - _%target202999203043%_ + (_%loop204321204368%_ + _%target204318204362%_ '() '() '())) - (_%g202991203026%_ - _%g202992203030%_))))) - (_%g202991203026%_ _%g202992203030%_)))) - (_%g202991203026%_ _%g202992203030%_))))) - (_%g202990203145%_ _%$stx202987%_)))) + (_%g204310204345%_ + _%g204311204349%_))))) + (_%g204310204345%_ _%g204311204349%_)))) + (_%g204310204345%_ _%g204311204349%_))))) + (_%g204309204464%_ _%$stx204306%_)))) (define |gxc[:0:]#declare-methods| - (lambda (_%$stx203150%_) - (let* ((_%g203154203187%_ - (lambda (_%g203155203183%_) + (lambda (_%$stx204469%_) + (let* ((_%g204473204506%_ + (lambda (_%g204474204502%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203155203183%_)))) - (_%g203153203301%_ - (lambda (_%g203155203191%_) + _%g204474204502%_)))) + (_%g204472204620%_ + (lambda (_%g204474204510%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203155203191%_)) - (let ((_%e203159203194%_ + (gx#stx-pair? _%g204474204510%_)) + (let ((_%e204478204513%_ (let () (declare (not safe)) - (gx#syntax-e _%g203155203191%_)))) - (let ((_%hd203160203198%_ + (gx#syntax-e _%g204474204510%_)))) + (let ((_%hd204479204517%_ (let () (declare (not safe)) - (##car _%e203159203194%_))) - (_%tl203161203201%_ + (##car _%e204478204513%_))) + (_%tl204480204520%_ (let () (declare (not safe)) - (##cdr _%e203159203194%_)))) + (##cdr _%e204478204513%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203161203201%_)) - (let ((_%e203162203204%_ + (gx#stx-pair? _%tl204480204520%_)) + (let ((_%e204481204523%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203161203201%_)))) - (let ((_%hd203163203208%_ + (gx#syntax-e _%tl204480204520%_)))) + (let ((_%hd204482204527%_ (let () (declare (not safe)) - (##car _%e203162203204%_))) - (_%tl203164203211%_ + (##car _%e204481204523%_))) + (_%tl204483204530%_ (let () (declare (not safe)) - (##cdr _%e203162203204%_)))) + (##cdr _%e204481204523%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203164203211%_)) - (let ((_g209049_ + (gx#stx-pair/null? _%tl204483204530%_)) + (let ((_g210368_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203164203211%_ + _%tl204483204530%_ '0)))) (begin - (let ((_g209050_ + (let ((_g210369_ (let () (declare (not safe)) - (if (##values? _g209049_) - (##vector-length - _g209049_) + (if (##values? _g210368_) + (##values-length + _g210368_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209050_ 2))) + (##fx= _g210369_ 2))) (error "Context expects 2 values" - _g209050_))) - (let ((_%target203165203214%_ + _g210369_))) + (let ((_%target204484204533%_ (let () (declare (not safe)) - (##vector-ref _g209049_ 0))) - (_%tl203167203217%_ + (##values-ref _g210368_ 0))) + (_%tl204486204536%_ (let () (declare (not safe)) - (##vector-ref - _g209049_ + (##values-ref + _g210368_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203167203217%_)) - (letrec ((_%loop203168203220%_ - (lambda (_%hd203166203224%_ + _%tl204486204536%_)) + (letrec ((_%loop204487204539%_ + (lambda (_%hd204485204543%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%symbol203172203227%_ - _%method203173203229%_) + _%symbol204491204546%_ + _%method204492204548%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd203166203224%_)) - (let ((_%e203169203232%_ + (gx#stx-pair? _%hd204485204543%_)) + (let ((_%e204488204551%_ (let () (declare (not safe)) - (gx#syntax-e _%hd203166203224%_)))) - (let ((_%lp-hd203170203236%_ + (gx#syntax-e _%hd204485204543%_)))) + (let ((_%lp-hd204489204555%_ (let () (declare (not safe)) - (##car _%e203169203232%_))) - (_%lp-tl203171203239%_ + (##car _%e204488204551%_))) + (_%lp-tl204490204558%_ (let () (declare (not safe)) - (##cdr _%e203169203232%_)))) + (##cdr _%e204488204551%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd203170203236%_)) - (let ((_%e203176203242%_ + (gx#stx-pair? _%lp-hd204489204555%_)) + (let ((_%e204495204561%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd203170203236%_)))) - (let ((_%hd203177203246%_ + (gx#syntax-e _%lp-hd204489204555%_)))) + (let ((_%hd204496204565%_ (let () (declare (not safe)) - (##car _%e203176203242%_))) - (_%tl203178203249%_ + (##car _%e204495204561%_))) + (_%tl204497204568%_ (let () (declare (not safe)) - (##cdr _%e203176203242%_)))) + (##cdr _%e204495204561%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203178203249%_)) - (let ((_%e203179203252%_ + (gx#stx-pair? _%tl204497204568%_)) + (let ((_%e204498204571%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203178203249%_)))) - (let ((_%hd203180203256%_ + _%tl204497204568%_)))) + (let ((_%hd204499204575%_ (let () (declare (not safe)) - (##car _%e203179203252%_))) - (_%tl203181203259%_ + (##car _%e204498204571%_))) + (_%tl204500204578%_ (let () (declare (not safe)) - (##cdr _%e203179203252%_)))) + (##cdr _%e204498204571%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203181203259%_)) - (_%loop203168203220%_ - _%lp-tl203171203239%_ - (cons _%hd203180203256%_ - _%symbol203172203227%_) - (cons _%hd203177203246%_ - _%method203173203229%_)) - (_%g203154203187%_ - _%g203155203191%_)))) - (_%g203154203187%_ - _%g203155203191%_)))) - (_%g203154203187%_ _%g203155203191%_)))) - (let ((_%symbol203174203262%_ - (reverse _%symbol203172203227%_)) - (_%method203175203265%_ - (reverse _%method203173203229%_))) - ((lambda (_%L203268%_ _%L203270%_ _%L203271%_) + _%tl204500204578%_)) + (_%loop204487204539%_ + _%lp-tl204490204558%_ + (cons _%hd204499204575%_ + _%symbol204491204546%_) + (cons _%hd204496204565%_ + _%method204492204548%_)) + (_%g204473204506%_ + _%g204474204510%_)))) + (_%g204473204506%_ + _%g204474204510%_)))) + (_%g204473204506%_ _%g204474204510%_)))) + (let ((_%symbol204493204581%_ + (reverse _%symbol204491204546%_)) + (_%method204494204584%_ + (reverse _%method204492204548%_))) + ((lambda (_%L204587%_ _%L204589%_ _%L204590%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -988,90 +988,90 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L203268%_ - _%L203270%_)) - (let ((__tmp209051 - (lambda (_%g203289203293%_ - _%g203290203296%_ - _%g203291203298%_) + _%L204587%_ + _%L204589%_)) + (let ((__tmp210370 + (lambda (_%g204608204612%_ + _%g204609204615%_ + _%g204610204617%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%L203271%_ - (cons _%g203290203296%_ + (cons _%L204590%_ + (cons _%g204609204615%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g203289203293%_ '())))) + (cons _%g204608204612%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g203291203298%_)))) + _%g204610204617%_)))) (declare (not safe)) (__foldr2 - __tmp209051 + __tmp210370 '() - _%L203268%_ - _%L203270%_))))) - _%symbol203174203262%_ - _%method203175203265%_ - _%hd203163203208%_)))))) + _%L204587%_ + _%L204589%_))))) + _%symbol204493204581%_ + _%method204494204584%_ + _%hd204482204527%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop203168203220%_ - _%target203165203214%_ + (_%loop204487204539%_ + _%target204484204533%_ '() '())) - (_%g203154203187%_ - _%g203155203191%_))))) - (_%g203154203187%_ _%g203155203191%_)))) - (_%g203154203187%_ _%g203155203191%_)))) - (_%g203154203187%_ _%g203155203191%_))))) - (_%g203153203301%_ _%$stx203150%_)))) + (_%g204473204506%_ + _%g204474204510%_))))) + (_%g204473204506%_ _%g204474204510%_)))) + (_%g204473204506%_ _%g204474204510%_)))) + (_%g204473204506%_ _%g204474204510%_))))) + (_%g204472204620%_ _%$stx204469%_)))) (define |gxc[:0:]#@alias| - (lambda (_%$stx203306%_) - (let* ((_%g203310203324%_ - (lambda (_%g203311203320%_) + (lambda (_%$stx204625%_) + (let* ((_%g204629204643%_ + (lambda (_%g204630204639%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203311203320%_)))) - (_%g203309203365%_ - (lambda (_%g203311203328%_) + _%g204630204639%_)))) + (_%g204628204684%_ + (lambda (_%g204630204647%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203311203328%_)) - (let ((_%e203313203331%_ + (gx#stx-pair? _%g204630204647%_)) + (let ((_%e204632204650%_ (let () (declare (not safe)) - (gx#syntax-e _%g203311203328%_)))) - (let ((_%hd203314203335%_ + (gx#syntax-e _%g204630204647%_)))) + (let ((_%hd204633204654%_ (let () (declare (not safe)) - (##car _%e203313203331%_))) - (_%tl203315203338%_ + (##car _%e204632204650%_))) + (_%tl204634204657%_ (let () (declare (not safe)) - (##cdr _%e203313203331%_)))) + (##cdr _%e204632204650%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203315203338%_)) - (let ((_%e203316203341%_ + (gx#stx-pair? _%tl204634204657%_)) + (let ((_%e204635204660%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203315203338%_)))) - (let ((_%hd203317203345%_ + (gx#syntax-e _%tl204634204657%_)))) + (let ((_%hd204636204664%_ (let () (declare (not safe)) - (##car _%e203316203341%_))) - (_%tl203318203348%_ + (##car _%e204635204660%_))) + (_%tl204637204667%_ (let () (declare (not safe)) - (##cdr _%e203316203341%_)))) + (##cdr _%e204635204660%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203318203348%_)) - ((lambda (_%L203351%_) + (gx#stx-null? _%tl204637204667%_)) + ((lambda (_%L204670%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1083,230 +1083,230 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203351%_ + (cons _%L204670%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd203317203345%_) - (_%g203310203324%_ _%g203311203328%_)))) - (_%g203310203324%_ _%g203311203328%_)))) - (_%g203310203324%_ _%g203311203328%_))))) - (_%g203309203365%_ _%$stx203306%_)))) + _%hd204636204664%_) + (_%g204629204643%_ _%g204630204647%_)))) + (_%g204629204643%_ _%g204630204647%_)))) + (_%g204629204643%_ _%g204630204647%_))))) + (_%g204628204684%_ _%$stx204625%_)))) (define |gxc[:0:]#@class| - (lambda (_%$stx203369%_) - (let* ((_%g203373203427%_ - (lambda (_%g203374203423%_) + (lambda (_%$stx204688%_) + (let* ((_%g204692204746%_ + (lambda (_%g204693204742%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203374203423%_)))) - (_%g203372203608%_ - (lambda (_%g203374203431%_) + _%g204693204742%_)))) + (_%g204691204927%_ + (lambda (_%g204693204750%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203374203431%_)) - (let ((_%e203386203434%_ + (gx#stx-pair? _%g204693204750%_)) + (let ((_%e204705204753%_ (let () (declare (not safe)) - (gx#syntax-e _%g203374203431%_)))) - (let ((_%hd203387203438%_ + (gx#syntax-e _%g204693204750%_)))) + (let ((_%hd204706204757%_ (let () (declare (not safe)) - (##car _%e203386203434%_))) - (_%tl203388203441%_ + (##car _%e204705204753%_))) + (_%tl204707204760%_ (let () (declare (not safe)) - (##cdr _%e203386203434%_)))) + (##cdr _%e204705204753%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203388203441%_)) - (let ((_%e203389203444%_ + (gx#stx-pair? _%tl204707204760%_)) + (let ((_%e204708204763%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203388203441%_)))) - (let ((_%hd203390203448%_ + (gx#syntax-e _%tl204707204760%_)))) + (let ((_%hd204709204767%_ (let () (declare (not safe)) - (##car _%e203389203444%_))) - (_%tl203391203451%_ + (##car _%e204708204763%_))) + (_%tl204710204770%_ (let () (declare (not safe)) - (##cdr _%e203389203444%_)))) + (##cdr _%e204708204763%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203391203451%_)) - (let ((_%e203392203454%_ + (gx#stx-pair? _%tl204710204770%_)) + (let ((_%e204711204773%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203391203451%_)))) - (let ((_%hd203393203458%_ + _%tl204710204770%_)))) + (let ((_%hd204712204777%_ (let () (declare (not safe)) - (##car _%e203392203454%_))) - (_%tl203394203461%_ + (##car _%e204711204773%_))) + (_%tl204713204780%_ (let () (declare (not safe)) - (##cdr _%e203392203454%_)))) + (##cdr _%e204711204773%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203394203461%_)) - (let ((_%e203395203464%_ + _%tl204713204780%_)) + (let ((_%e204714204783%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203394203461%_)))) - (let ((_%hd203396203468%_ + _%tl204713204780%_)))) + (let ((_%hd204715204787%_ (let () (declare (not safe)) - (##car _%e203395203464%_))) - (_%tl203397203471%_ + (##car _%e204714204783%_))) + (_%tl204716204790%_ (let () (declare (not safe)) - (##cdr _%e203395203464%_)))) + (##cdr _%e204714204783%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203397203471%_)) - (let ((_%e203398203474%_ + _%tl204716204790%_)) + (let ((_%e204717204793%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl203397203471%_)))) - (let ((_%hd203399203478%_ - (let () (declare (not safe)) (##car _%e203398203474%_))) - (_%tl203400203481%_ + (gx#syntax-e _%tl204716204790%_)))) + (let ((_%hd204718204797%_ + (let () (declare (not safe)) (##car _%e204717204793%_))) + (_%tl204719204800%_ (let () (declare (not safe)) - (##cdr _%e203398203474%_)))) + (##cdr _%e204717204793%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203400203481%_)) - (let ((_%e203401203484%_ + (gx#stx-pair? _%tl204719204800%_)) + (let ((_%e204720204803%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203400203481%_)))) - (let ((_%hd203402203488%_ + (gx#syntax-e _%tl204719204800%_)))) + (let ((_%hd204721204807%_ (let () (declare (not safe)) - (##car _%e203401203484%_))) - (_%tl203403203491%_ + (##car _%e204720204803%_))) + (_%tl204722204810%_ (let () (declare (not safe)) - (##cdr _%e203401203484%_)))) + (##cdr _%e204720204803%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203403203491%_)) - (let ((_%e203404203494%_ + (gx#stx-pair? _%tl204722204810%_)) + (let ((_%e204723204813%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203403203491%_)))) - (let ((_%hd203405203498%_ + (gx#syntax-e _%tl204722204810%_)))) + (let ((_%hd204724204817%_ (let () (declare (not safe)) - (##car _%e203404203494%_))) - (_%tl203406203501%_ + (##car _%e204723204813%_))) + (_%tl204725204820%_ (let () (declare (not safe)) - (##cdr _%e203404203494%_)))) + (##cdr _%e204723204813%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203406203501%_)) - (let ((_%e203407203504%_ + (gx#stx-pair? _%tl204725204820%_)) + (let ((_%e204726204823%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203406203501%_)))) - (let ((_%hd203408203508%_ + _%tl204725204820%_)))) + (let ((_%hd204727204827%_ (let () (declare (not safe)) - (##car _%e203407203504%_))) - (_%tl203409203511%_ + (##car _%e204726204823%_))) + (_%tl204728204830%_ (let () (declare (not safe)) - (##cdr _%e203407203504%_)))) + (##cdr _%e204726204823%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203409203511%_)) - (let ((_%e203410203514%_ + _%tl204728204830%_)) + (let ((_%e204729204833%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203409203511%_)))) - (let ((_%hd203411203518%_ + _%tl204728204830%_)))) + (let ((_%hd204730204837%_ (let () (declare (not safe)) - (##car _%e203410203514%_))) - (_%tl203412203521%_ + (##car _%e204729204833%_))) + (_%tl204731204840%_ (let () (declare (not safe)) - (##cdr _%e203410203514%_)))) + (##cdr _%e204729204833%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203412203521%_)) - (let ((_%e203413203524%_ + _%tl204731204840%_)) + (let ((_%e204732204843%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl203412203521%_)))) - (let ((_%hd203414203528%_ - (let () (declare (not safe)) (##car _%e203413203524%_))) - (_%tl203415203531%_ + (gx#syntax-e _%tl204731204840%_)))) + (let ((_%hd204733204847%_ + (let () (declare (not safe)) (##car _%e204732204843%_))) + (_%tl204734204850%_ (let () (declare (not safe)) - (##cdr _%e203413203524%_)))) + (##cdr _%e204732204843%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203415203531%_)) - (let ((_%e203416203534%_ + (gx#stx-pair? _%tl204734204850%_)) + (let ((_%e204735204853%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203415203531%_)))) - (let ((_%hd203417203538%_ + (gx#syntax-e _%tl204734204850%_)))) + (let ((_%hd204736204857%_ (let () (declare (not safe)) - (##car _%e203416203534%_))) - (_%tl203418203541%_ + (##car _%e204735204853%_))) + (_%tl204737204860%_ (let () (declare (not safe)) - (##cdr _%e203416203534%_)))) + (##cdr _%e204735204853%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203418203541%_)) - (let ((_%e203419203544%_ + (gx#stx-pair? _%tl204737204860%_)) + (let ((_%e204738204863%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203418203541%_)))) - (let ((_%hd203420203548%_ + (gx#syntax-e _%tl204737204860%_)))) + (let ((_%hd204739204867%_ (let () (declare (not safe)) - (##car _%e203419203544%_))) - (_%tl203421203551%_ + (##car _%e204738204863%_))) + (_%tl204740204870%_ (let () (declare (not safe)) - (##cdr _%e203419203544%_)))) + (##cdr _%e204738204863%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203421203551%_)) - ((lambda (_%L203554%_ - _%L203556%_ - _%L203557%_ - _%L203558%_ - _%L203559%_ - _%L203560%_ - _%L203561%_ - _%L203562%_ - _%L203563%_ - _%L203564%_ - _%L203565%_) + (gx#stx-null? _%tl204740204870%_)) + ((lambda (_%L204873%_ + _%L204875%_ + _%L204876%_ + _%L204877%_ + _%L204878%_ + _%L204879%_ + _%L204880%_ + _%L204881%_ + _%L204882%_ + _%L204883%_ + _%L204884%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1318,7 +1318,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203565%_ + (cons _%L204884%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1326,115 +1326,115 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203564%_ '())) + (cons _%L204883%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203563%_ '())) + (cons _%L204882%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203562%_ '())) + (cons _%L204881%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203561%_ '())) + (cons _%L204880%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203560%_ '())) - (cons _%L203559%_ - (cons _%L203558%_ - (cons _%L203557%_ + (cons _%L204879%_ '())) + (cons _%L204878%_ + (cons _%L204877%_ + (cons _%L204876%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203556%_ '())) + (cons _%L204875%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203554%_ '())) + (cons _%L204873%_ '())) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd203420203548%_ - _%hd203417203538%_ - _%hd203414203528%_ - _%hd203411203518%_ - _%hd203408203508%_ - _%hd203405203498%_ - _%hd203402203488%_ - _%hd203399203478%_ - _%hd203396203468%_ - _%hd203393203458%_ - _%hd203390203448%_) - (_%g203373203427%_ _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) + _%hd204739204867%_ + _%hd204736204857%_ + _%hd204733204847%_ + _%hd204730204837%_ + _%hd204727204827%_ + _%hd204724204817%_ + _%hd204721204807%_ + _%hd204718204797%_ + _%hd204715204787%_ + _%hd204712204777%_ + _%hd204709204767%_) + (_%g204692204746%_ _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g203373203427%_ - _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) + (_%g204692204746%_ + _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g203373203427%_ - _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_)))) - (_%g203373203427%_ _%g203374203431%_))))) - (_%g203372203608%_ _%$stx203369%_)))) + (_%g204692204746%_ + _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_)))) + (_%g204692204746%_ _%g204693204750%_))))) + (_%g204691204927%_ _%$stx204688%_)))) (define |gxc[:0:]#@predicate| - (lambda (_%$stx203612%_) - (let* ((_%g203616203630%_ - (lambda (_%g203617203626%_) + (lambda (_%$stx204931%_) + (let* ((_%g204935204949%_ + (lambda (_%g204936204945%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203617203626%_)))) - (_%g203615203671%_ - (lambda (_%g203617203634%_) + _%g204936204945%_)))) + (_%g204934204990%_ + (lambda (_%g204936204953%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203617203634%_)) - (let ((_%e203619203637%_ + (gx#stx-pair? _%g204936204953%_)) + (let ((_%e204938204956%_ (let () (declare (not safe)) - (gx#syntax-e _%g203617203634%_)))) - (let ((_%hd203620203641%_ + (gx#syntax-e _%g204936204953%_)))) + (let ((_%hd204939204960%_ (let () (declare (not safe)) - (##car _%e203619203637%_))) - (_%tl203621203644%_ + (##car _%e204938204956%_))) + (_%tl204940204963%_ (let () (declare (not safe)) - (##cdr _%e203619203637%_)))) + (##cdr _%e204938204956%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203621203644%_)) - (let ((_%e203622203647%_ + (gx#stx-pair? _%tl204940204963%_)) + (let ((_%e204941204966%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203621203644%_)))) - (let ((_%hd203623203651%_ + (gx#syntax-e _%tl204940204963%_)))) + (let ((_%hd204942204970%_ (let () (declare (not safe)) - (##car _%e203622203647%_))) - (_%tl203624203654%_ + (##car _%e204941204966%_))) + (_%tl204943204973%_ (let () (declare (not safe)) - (##cdr _%e203622203647%_)))) + (##cdr _%e204941204966%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203624203654%_)) - ((lambda (_%L203657%_) + (gx#stx-null? _%tl204943204973%_)) + ((lambda (_%L204976%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1446,62 +1446,62 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203657%_ + (cons _%L204976%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd203623203651%_) - (_%g203616203630%_ _%g203617203634%_)))) - (_%g203616203630%_ _%g203617203634%_)))) - (_%g203616203630%_ _%g203617203634%_))))) - (_%g203615203671%_ _%$stx203612%_)))) + _%hd204942204970%_) + (_%g204935204949%_ _%g204936204953%_)))) + (_%g204935204949%_ _%g204936204953%_)))) + (_%g204935204949%_ _%g204936204953%_))))) + (_%g204934204990%_ _%$stx204931%_)))) (define |gxc[:0:]#@constructor| - (lambda (_%$stx203675%_) - (let* ((_%g203679203693%_ - (lambda (_%g203680203689%_) + (lambda (_%$stx204994%_) + (let* ((_%g204998205012%_ + (lambda (_%g204999205008%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203680203689%_)))) - (_%g203678203734%_ - (lambda (_%g203680203697%_) + _%g204999205008%_)))) + (_%g204997205053%_ + (lambda (_%g204999205016%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203680203697%_)) - (let ((_%e203682203700%_ + (gx#stx-pair? _%g204999205016%_)) + (let ((_%e205001205019%_ (let () (declare (not safe)) - (gx#syntax-e _%g203680203697%_)))) - (let ((_%hd203683203704%_ + (gx#syntax-e _%g204999205016%_)))) + (let ((_%hd205002205023%_ (let () (declare (not safe)) - (##car _%e203682203700%_))) - (_%tl203684203707%_ + (##car _%e205001205019%_))) + (_%tl205003205026%_ (let () (declare (not safe)) - (##cdr _%e203682203700%_)))) + (##cdr _%e205001205019%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203684203707%_)) - (let ((_%e203685203710%_ + (gx#stx-pair? _%tl205003205026%_)) + (let ((_%e205004205029%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203684203707%_)))) - (let ((_%hd203686203714%_ + (gx#syntax-e _%tl205003205026%_)))) + (let ((_%hd205005205033%_ (let () (declare (not safe)) - (##car _%e203685203710%_))) - (_%tl203687203717%_ + (##car _%e205004205029%_))) + (_%tl205006205036%_ (let () (declare (not safe)) - (##cdr _%e203685203710%_)))) + (##cdr _%e205004205029%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203687203717%_)) - ((lambda (_%L203720%_) + (gx#stx-null? _%tl205006205036%_)) + ((lambda (_%L205039%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1513,98 +1513,98 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203720%_ + (cons _%L205039%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd203686203714%_) - (_%g203679203693%_ _%g203680203697%_)))) - (_%g203679203693%_ _%g203680203697%_)))) - (_%g203679203693%_ _%g203680203697%_))))) - (_%g203678203734%_ _%$stx203675%_)))) + _%hd205005205033%_) + (_%g204998205012%_ _%g204999205016%_)))) + (_%g204998205012%_ _%g204999205016%_)))) + (_%g204998205012%_ _%g204999205016%_))))) + (_%g204997205053%_ _%$stx204994%_)))) (define |gxc[:0:]#@accessor| - (lambda (_%$stx203738%_) - (let* ((_%g203742203764%_ - (lambda (_%g203743203760%_) + (lambda (_%$stx205057%_) + (let* ((_%g205061205083%_ + (lambda (_%g205062205079%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203743203760%_)))) - (_%g203741203833%_ - (lambda (_%g203743203768%_) + _%g205062205079%_)))) + (_%g205060205152%_ + (lambda (_%g205062205087%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203743203768%_)) - (let ((_%e203747203771%_ + (gx#stx-pair? _%g205062205087%_)) + (let ((_%e205066205090%_ (let () (declare (not safe)) - (gx#syntax-e _%g203743203768%_)))) - (let ((_%hd203748203775%_ + (gx#syntax-e _%g205062205087%_)))) + (let ((_%hd205067205094%_ (let () (declare (not safe)) - (##car _%e203747203771%_))) - (_%tl203749203778%_ + (##car _%e205066205090%_))) + (_%tl205068205097%_ (let () (declare (not safe)) - (##cdr _%e203747203771%_)))) + (##cdr _%e205066205090%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203749203778%_)) - (let ((_%e203750203781%_ + (gx#stx-pair? _%tl205068205097%_)) + (let ((_%e205069205100%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203749203778%_)))) - (let ((_%hd203751203785%_ + (gx#syntax-e _%tl205068205097%_)))) + (let ((_%hd205070205104%_ (let () (declare (not safe)) - (##car _%e203750203781%_))) - (_%tl203752203788%_ + (##car _%e205069205100%_))) + (_%tl205071205107%_ (let () (declare (not safe)) - (##cdr _%e203750203781%_)))) + (##cdr _%e205069205100%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203752203788%_)) - (let ((_%e203753203791%_ + (gx#stx-pair? _%tl205071205107%_)) + (let ((_%e205072205110%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203752203788%_)))) - (let ((_%hd203754203795%_ + _%tl205071205107%_)))) + (let ((_%hd205073205114%_ (let () (declare (not safe)) - (##car _%e203753203791%_))) - (_%tl203755203798%_ + (##car _%e205072205110%_))) + (_%tl205074205117%_ (let () (declare (not safe)) - (##cdr _%e203753203791%_)))) + (##cdr _%e205072205110%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203755203798%_)) - (let ((_%e203756203801%_ + _%tl205074205117%_)) + (let ((_%e205075205120%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203755203798%_)))) - (let ((_%hd203757203805%_ + _%tl205074205117%_)))) + (let ((_%hd205076205124%_ (let () (declare (not safe)) - (##car _%e203756203801%_))) - (_%tl203758203808%_ + (##car _%e205075205120%_))) + (_%tl205077205127%_ (let () (declare (not safe)) - (##cdr _%e203756203801%_)))) + (##cdr _%e205075205120%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203758203808%_)) - ((lambda (_%L203811%_ - _%L203813%_ - _%L203814%_) + _%tl205077205127%_)) + ((lambda (_%L205130%_ + _%L205132%_ + _%L205133%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1612,105 +1612,105 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203814%_ '())) + (cons _%L205133%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203813%_ '())) - (cons _%L203811%_ '()))))) - _%hd203757203805%_ - _%hd203754203795%_ - _%hd203751203785%_) - (_%g203742203764%_ _%g203743203768%_)))) + (cons _%L205132%_ '())) + (cons _%L205130%_ '()))))) + _%hd205076205124%_ + _%hd205073205114%_ + _%hd205070205104%_) + (_%g205061205083%_ _%g205062205087%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g203742203764%_ - _%g203743203768%_)))) - (_%g203742203764%_ _%g203743203768%_)))) - (_%g203742203764%_ _%g203743203768%_)))) - (_%g203742203764%_ _%g203743203768%_))))) - (_%g203741203833%_ _%$stx203738%_)))) + (_%g205061205083%_ + _%g205062205087%_)))) + (_%g205061205083%_ _%g205062205087%_)))) + (_%g205061205083%_ _%g205062205087%_)))) + (_%g205061205083%_ _%g205062205087%_))))) + (_%g205060205152%_ _%$stx205057%_)))) (define |gxc[:0:]#@mutator| - (lambda (_%$stx203837%_) - (let* ((_%g203841203863%_ - (lambda (_%g203842203859%_) + (lambda (_%$stx205156%_) + (let* ((_%g205160205182%_ + (lambda (_%g205161205178%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203842203859%_)))) - (_%g203840203932%_ - (lambda (_%g203842203867%_) + _%g205161205178%_)))) + (_%g205159205251%_ + (lambda (_%g205161205186%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203842203867%_)) - (let ((_%e203846203870%_ + (gx#stx-pair? _%g205161205186%_)) + (let ((_%e205165205189%_ (let () (declare (not safe)) - (gx#syntax-e _%g203842203867%_)))) - (let ((_%hd203847203874%_ + (gx#syntax-e _%g205161205186%_)))) + (let ((_%hd205166205193%_ (let () (declare (not safe)) - (##car _%e203846203870%_))) - (_%tl203848203877%_ + (##car _%e205165205189%_))) + (_%tl205167205196%_ (let () (declare (not safe)) - (##cdr _%e203846203870%_)))) + (##cdr _%e205165205189%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203848203877%_)) - (let ((_%e203849203880%_ + (gx#stx-pair? _%tl205167205196%_)) + (let ((_%e205168205199%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203848203877%_)))) - (let ((_%hd203850203884%_ + (gx#syntax-e _%tl205167205196%_)))) + (let ((_%hd205169205203%_ (let () (declare (not safe)) - (##car _%e203849203880%_))) - (_%tl203851203887%_ + (##car _%e205168205199%_))) + (_%tl205170205206%_ (let () (declare (not safe)) - (##cdr _%e203849203880%_)))) + (##cdr _%e205168205199%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203851203887%_)) - (let ((_%e203852203890%_ + (gx#stx-pair? _%tl205170205206%_)) + (let ((_%e205171205209%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203851203887%_)))) - (let ((_%hd203853203894%_ + _%tl205170205206%_)))) + (let ((_%hd205172205213%_ (let () (declare (not safe)) - (##car _%e203852203890%_))) - (_%tl203854203897%_ + (##car _%e205171205209%_))) + (_%tl205173205216%_ (let () (declare (not safe)) - (##cdr _%e203852203890%_)))) + (##cdr _%e205171205209%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203854203897%_)) - (let ((_%e203855203900%_ + _%tl205173205216%_)) + (let ((_%e205174205219%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203854203897%_)))) - (let ((_%hd203856203904%_ + _%tl205173205216%_)))) + (let ((_%hd205175205223%_ (let () (declare (not safe)) - (##car _%e203855203900%_))) - (_%tl203857203907%_ + (##car _%e205174205219%_))) + (_%tl205176205226%_ (let () (declare (not safe)) - (##cdr _%e203855203900%_)))) + (##cdr _%e205174205219%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203857203907%_)) - ((lambda (_%L203910%_ - _%L203912%_ - _%L203913%_) + _%tl205176205226%_)) + ((lambda (_%L205229%_ + _%L205231%_ + _%L205232%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1718,69 +1718,69 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203913%_ '())) + (cons _%L205232%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203912%_ '())) - (cons _%L203910%_ '()))))) - _%hd203856203904%_ - _%hd203853203894%_ - _%hd203850203884%_) - (_%g203841203863%_ _%g203842203867%_)))) + (cons _%L205231%_ '())) + (cons _%L205229%_ '()))))) + _%hd205175205223%_ + _%hd205172205213%_ + _%hd205169205203%_) + (_%g205160205182%_ _%g205161205186%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g203841203863%_ - _%g203842203867%_)))) - (_%g203841203863%_ _%g203842203867%_)))) - (_%g203841203863%_ _%g203842203867%_)))) - (_%g203841203863%_ _%g203842203867%_))))) - (_%g203840203932%_ _%$stx203837%_)))) + (_%g205160205182%_ + _%g205161205186%_)))) + (_%g205160205182%_ _%g205161205186%_)))) + (_%g205160205182%_ _%g205161205186%_)))) + (_%g205160205182%_ _%g205161205186%_))))) + (_%g205159205251%_ _%$stx205156%_)))) (define |gxc[:0:]#@primitive-predicate| - (lambda (_%$stx203936%_) - (let* ((_%g203940203954%_ - (lambda (_%g203941203950%_) + (lambda (_%$stx205255%_) + (let* ((_%g205259205273%_ + (lambda (_%g205260205269%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203941203950%_)))) - (_%g203939203995%_ - (lambda (_%g203941203958%_) + _%g205260205269%_)))) + (_%g205258205314%_ + (lambda (_%g205260205277%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203941203958%_)) - (let ((_%e203943203961%_ + (gx#stx-pair? _%g205260205277%_)) + (let ((_%e205262205280%_ (let () (declare (not safe)) - (gx#syntax-e _%g203941203958%_)))) - (let ((_%hd203944203965%_ + (gx#syntax-e _%g205260205277%_)))) + (let ((_%hd205263205284%_ (let () (declare (not safe)) - (##car _%e203943203961%_))) - (_%tl203945203968%_ + (##car _%e205262205280%_))) + (_%tl205264205287%_ (let () (declare (not safe)) - (##cdr _%e203943203961%_)))) + (##cdr _%e205262205280%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203945203968%_)) - (let ((_%e203946203971%_ + (gx#stx-pair? _%tl205264205287%_)) + (let ((_%e205265205290%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203945203968%_)))) - (let ((_%hd203947203975%_ + (gx#syntax-e _%tl205264205287%_)))) + (let ((_%hd205266205294%_ (let () (declare (not safe)) - (##car _%e203946203971%_))) - (_%tl203948203978%_ + (##car _%e205265205290%_))) + (_%tl205267205297%_ (let () (declare (not safe)) - (##cdr _%e203946203971%_)))) + (##cdr _%e205265205290%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203948203978%_)) - ((lambda (_%L203981%_) + (gx#stx-null? _%tl205267205297%_)) + ((lambda (_%L205300%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1792,80 +1792,80 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203981%_ + (cons _%L205300%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd203947203975%_) - (_%g203940203954%_ _%g203941203958%_)))) - (_%g203940203954%_ _%g203941203958%_)))) - (_%g203940203954%_ _%g203941203958%_))))) - (_%g203939203995%_ _%$stx203936%_)))) + _%hd205266205294%_) + (_%g205259205273%_ _%g205260205277%_)))) + (_%g205259205273%_ _%g205260205277%_)))) + (_%g205259205273%_ _%g205260205277%_))))) + (_%g205258205314%_ _%$stx205255%_)))) (define |gxc[:0:]#@interface| - (lambda (_%$stx203999%_) - (let* ((_%g204003204021%_ - (lambda (_%g204004204017%_) + (lambda (_%$stx205318%_) + (let* ((_%g205322205340%_ + (lambda (_%g205323205336%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204004204017%_)))) - (_%g204002204076%_ - (lambda (_%g204004204025%_) + _%g205323205336%_)))) + (_%g205321205395%_ + (lambda (_%g205323205344%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204004204025%_)) - (let ((_%e204007204028%_ + (gx#stx-pair? _%g205323205344%_)) + (let ((_%e205326205347%_ (let () (declare (not safe)) - (gx#syntax-e _%g204004204025%_)))) - (let ((_%hd204008204032%_ + (gx#syntax-e _%g205323205344%_)))) + (let ((_%hd205327205351%_ (let () (declare (not safe)) - (##car _%e204007204028%_))) - (_%tl204009204035%_ + (##car _%e205326205347%_))) + (_%tl205328205354%_ (let () (declare (not safe)) - (##cdr _%e204007204028%_)))) + (##cdr _%e205326205347%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204009204035%_)) - (let ((_%e204010204038%_ + (gx#stx-pair? _%tl205328205354%_)) + (let ((_%e205329205357%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204009204035%_)))) - (let ((_%hd204011204042%_ + (gx#syntax-e _%tl205328205354%_)))) + (let ((_%hd205330205361%_ (let () (declare (not safe)) - (##car _%e204010204038%_))) - (_%tl204012204045%_ + (##car _%e205329205357%_))) + (_%tl205331205364%_ (let () (declare (not safe)) - (##cdr _%e204010204038%_)))) + (##cdr _%e205329205357%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204012204045%_)) - (let ((_%e204013204048%_ + (gx#stx-pair? _%tl205331205364%_)) + (let ((_%e205332205367%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204012204045%_)))) - (let ((_%hd204014204052%_ + _%tl205331205364%_)))) + (let ((_%hd205333205371%_ (let () (declare (not safe)) - (##car _%e204013204048%_))) - (_%tl204015204055%_ + (##car _%e205332205367%_))) + (_%tl205334205374%_ (let () (declare (not safe)) - (##cdr _%e204013204048%_)))) + (##cdr _%e205332205367%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204015204055%_)) - ((lambda (_%L204058%_ - _%L204060%_) + _%tl205334205374%_)) + ((lambda (_%L205377%_ + _%L205379%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1875,59 +1875,59 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204060%_ '())) + (cons _%L205379%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204058%_ '())) + (cons _%L205377%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd204014204052%_ - _%hd204011204042%_) - (_%g204003204021%_ - _%g204004204025%_)))) - (_%g204003204021%_ _%g204004204025%_)))) - (_%g204003204021%_ _%g204004204025%_)))) - (_%g204003204021%_ _%g204004204025%_))))) - (_%g204002204076%_ _%$stx203999%_)))) + _%hd205333205371%_ + _%hd205330205361%_) + (_%g205322205340%_ + _%g205323205344%_)))) + (_%g205322205340%_ _%g205323205344%_)))) + (_%g205322205340%_ _%g205323205344%_)))) + (_%g205322205340%_ _%g205323205344%_))))) + (_%g205321205395%_ _%$stx205318%_)))) (define |gxc[:0:]#@lambda| - (lambda (_%$stx204080%_) - (let* ((_%__stx208422208423%_ _%$stx204080%_) - (_%g204087204148%_ + (lambda (_%$stx205399%_) + (let* ((_%__stx209741209742%_ _%$stx205399%_) + (_%g205406205467%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208422208423%_))))) - (let ((_%__kont208425208426%_ - (lambda (_%L204386%_ _%L204388%_) + _%__stx209741209742%_))))) + (let ((_%__kont209744209745%_ + (lambda (_%L205705%_ _%L205707%_) (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 _%L204388%_ '())) + (cons _%L205707%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204386%_ '())) + (cons _%L205705%_ '())) '()))))) - (_%__kont208427208428%_ - (lambda (_%L204325%_ _%L204327%_ _%L204328%_) + (_%__kont209746209747%_ + (lambda (_%L205644%_ _%L205646%_ _%L205647%_) (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 _%L204328%_ '())) + (cons _%L205647%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204327%_ '())) + (cons _%L205646%_ '())) (cons 'signature: (cons (cons (let () (declare (not safe)) @@ -1942,478 +1942,478 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204325%_ '())) + (cons _%L205644%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (_%__kont208429208430%_ - (lambda (_%L204249%_ _%L204251%_) - (cons _%L204251%_ (cons _%L204249%_ (cons '#f '()))))) - (_%__kont208431208432%_ - (lambda (_%L204199%_ _%L204201%_ _%L204202%_) - (cons _%L204202%_ - (cons _%L204201%_ + (_%__kont209748209749%_ + (lambda (_%L205568%_ _%L205570%_) + (cons _%L205570%_ (cons _%L205568%_ (cons '#f '()))))) + (_%__kont209750209751%_ + (lambda (_%L205518%_ _%L205520%_ _%L205521%_) + (cons _%L205521%_ + (cons _%L205520%_ (cons '#f (cons 'signature: - (cons _%L204199%_ '())))))))) + (cons _%L205518%_ '())))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208422208423%_)) - (let ((_%e204091204356%_ + (gx#stx-pair? _%__stx209741209742%_)) + (let ((_%e205410205675%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208422208423%_)))) - (let ((_%tl204093204363%_ + (gx#syntax-e _%__stx209741209742%_)))) + (let ((_%tl205412205682%_ (let () (declare (not safe)) - (##cdr _%e204091204356%_))) - (_%hd204092204360%_ + (##cdr _%e205410205675%_))) + (_%hd205411205679%_ (let () (declare (not safe)) - (##car _%e204091204356%_)))) + (##car _%e205410205675%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204093204363%_)) - (let ((_%e204094204366%_ + (gx#stx-pair? _%tl205412205682%_)) + (let ((_%e205413205685%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204093204363%_)))) - (let ((_%tl204096204373%_ + (gx#syntax-e _%tl205412205682%_)))) + (let ((_%tl205415205692%_ (let () (declare (not safe)) - (##cdr _%e204094204366%_))) - (_%hd204095204370%_ + (##cdr _%e205413205685%_))) + (_%hd205414205689%_ (let () (declare (not safe)) - (##car _%e204094204366%_)))) + (##car _%e205413205685%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204096204373%_)) - (let ((_%e204097204376%_ + (gx#stx-pair? _%tl205415205692%_)) + (let ((_%e205416205695%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204096204373%_)))) - (let ((_%tl204099204383%_ + (gx#syntax-e _%tl205415205692%_)))) + (let ((_%tl205418205702%_ (let () (declare (not safe)) - (##cdr _%e204097204376%_))) - (_%hd204098204380%_ + (##cdr _%e205416205695%_))) + (_%hd205417205699%_ (let () (declare (not safe)) - (##car _%e204097204376%_)))) + (##car _%e205416205695%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204099204383%_)) - (_%__kont208425208426%_ - _%hd204098204380%_ - _%hd204095204370%_) + (gx#stx-null? _%tl205418205702%_)) + (_%__kont209744209745%_ + _%hd205417205699%_ + _%hd205414205689%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204099204383%_)) - (let ((_%e204112204301%_ + _%tl205418205702%_)) + (let ((_%e205431205620%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204099204383%_)))) - (let ((_%tl204114204308%_ + _%tl205418205702%_)))) + (let ((_%tl205433205627%_ (let () (declare (not safe)) - (##cdr _%e204112204301%_))) - (_%hd204113204305%_ + (##cdr _%e205431205620%_))) + (_%hd205432205624%_ (let () (declare (not safe)) - (##car _%e204112204301%_)))) + (##car _%e205431205620%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204113204305%_)) - (let ((_%e204115204311%_ + _%hd205432205624%_)) + (let ((_%e205434205630%_ (let () (declare (not safe)) (gx#stx-e - _%hd204113204305%_)))) - (if (equal? _%e204115204311%_ + _%hd205432205624%_)))) + (if (equal? _%e205434205630%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'signature:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204114204308%_)) - (let ((_%e204116204315%_ + (gx#stx-pair? _%tl205433205627%_)) + (let ((_%e205435205634%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204114204308%_)))) - (let ((_%tl204118204322%_ + (gx#syntax-e _%tl205433205627%_)))) + (let ((_%tl205437205641%_ (let () (declare (not safe)) - (##cdr _%e204116204315%_))) - (_%hd204117204319%_ + (##cdr _%e205435205634%_))) + (_%hd205436205638%_ (let () (declare (not safe)) - (##car _%e204116204315%_)))) + (##car _%e205435205634%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204118204322%_)) - (_%__kont208427208428%_ - _%hd204117204319%_ - _%hd204098204380%_ - _%hd204095204370%_) + (gx#stx-null? _%tl205437205641%_)) + (_%__kont209746209747%_ + _%hd205436205638%_ + _%hd205417205699%_ + _%hd205414205689%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204098204380%_)) - (let ((_%e204139204185%_ + (gx#stx-datum? _%hd205417205699%_)) + (let ((_%e205458205504%_ (let () (declare (not safe)) - (gx#stx-e _%hd204098204380%_)))) + (gx#stx-e _%hd205417205699%_)))) (declare (not safe)) - (_%g204087204148%_)) + (_%g205406205467%_)) (let () (declare (not safe)) - (_%g204087204148%_)))))) + (_%g205406205467%_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204098204380%_)) - (let ((_%e204139204185%_ + (gx#stx-datum? _%hd205417205699%_)) + (let ((_%e205458205504%_ (let () (declare (not safe)) - (gx#stx-e _%hd204098204380%_)))) - (if (equal? _%e204139204185%_ 'signature:) + (gx#stx-e _%hd205417205699%_)))) + (if (equal? _%e205458205504%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204114204308%_)) - (_%__kont208431208432%_ - _%hd204113204305%_ - _%hd204095204370%_ - _%hd204092204360%_) + (gx#stx-null? _%tl205433205627%_)) + (_%__kont209750209751%_ + _%hd205432205624%_ + _%hd205414205689%_ + _%hd205411205679%_) (let () (declare (not safe)) - (_%g204087204148%_))) + (_%g205406205467%_))) (let () (declare (not safe)) - (_%g204087204148%_)))) - (let () (declare (not safe)) (_%g204087204148%_)))) + (_%g205406205467%_)))) + (let () (declare (not safe)) (_%g205406205467%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204098204380%_)) - (let ((_%e204139204185%_ + (gx#stx-datum? _%hd205417205699%_)) + (let ((_%e205458205504%_ (let () (declare (not safe)) - (gx#stx-e _%hd204098204380%_)))) - (if (equal? _%e204139204185%_ 'signature:) + (gx#stx-e _%hd205417205699%_)))) + (if (equal? _%e205458205504%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204114204308%_)) - (_%__kont208431208432%_ - _%hd204113204305%_ - _%hd204095204370%_ - _%hd204092204360%_) + (gx#stx-null? _%tl205433205627%_)) + (_%__kont209750209751%_ + _%hd205432205624%_ + _%hd205414205689%_ + _%hd205411205679%_) (let () (declare (not safe)) - (_%g204087204148%_))) - (let () (declare (not safe)) (_%g204087204148%_)))) - (let () (declare (not safe)) (_%g204087204148%_))))) + (_%g205406205467%_))) + (let () (declare (not safe)) (_%g205406205467%_)))) + (let () (declare (not safe)) (_%g205406205467%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204098204380%_)) - (let ((_%e204139204185%_ + _%hd205417205699%_)) + (let ((_%e205458205504%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd204098204380%_)))) - (if (equal? _%e204139204185%_ 'signature:) + (gx#stx-e _%hd205417205699%_)))) + (if (equal? _%e205458205504%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204114204308%_)) - (_%__kont208431208432%_ - _%hd204113204305%_ - _%hd204095204370%_ - _%hd204092204360%_) - (let () (declare (not safe)) (_%g204087204148%_))) - (let () (declare (not safe)) (_%g204087204148%_)))) - (let () (declare (not safe)) (_%g204087204148%_)))))) + (gx#stx-null? _%tl205433205627%_)) + (_%__kont209750209751%_ + _%hd205432205624%_ + _%hd205414205689%_ + _%hd205411205679%_) + (let () (declare (not safe)) (_%g205406205467%_))) + (let () (declare (not safe)) (_%g205406205467%_)))) + (let () (declare (not safe)) (_%g205406205467%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204098204380%_)) - (let ((_%e204139204185%_ + _%hd205417205699%_)) + (let ((_%e205458205504%_ (let () (declare (not safe)) (gx#stx-e - _%hd204098204380%_)))) + _%hd205417205699%_)))) (declare (not safe)) - (_%g204087204148%_)) + (_%g205406205467%_)) (let () (declare (not safe)) - (_%g204087204148%_))))))) + (_%g205406205467%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204096204373%_)) - (_%__kont208429208430%_ - _%hd204095204370%_ - _%hd204092204360%_) + (gx#stx-null? _%tl205415205692%_)) + (_%__kont209748209749%_ + _%hd205414205689%_ + _%hd205411205679%_) (let () (declare (not safe)) - (_%g204087204148%_)))))) - (let () (declare (not safe)) (_%g204087204148%_))))) - (let () (declare (not safe)) (_%g204087204148%_))))))) + (_%g205406205467%_)))))) + (let () (declare (not safe)) (_%g205406205467%_))))) + (let () (declare (not safe)) (_%g205406205467%_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_%$stx204407%_) - (let* ((_%g204411204440%_ - (lambda (_%g204412204436%_) + (lambda (_%$stx205726%_) + (let* ((_%g205730205759%_ + (lambda (_%g205731205755%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204412204436%_)))) - (_%g204410204549%_ - (lambda (_%g204412204444%_) + _%g205731205755%_)))) + (_%g205729205868%_ + (lambda (_%g205731205763%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204412204444%_)) - (let ((_%e204414204447%_ + (gx#stx-pair? _%g205731205763%_)) + (let ((_%e205733205766%_ (let () (declare (not safe)) - (gx#syntax-e _%g204412204444%_)))) - (let ((_%hd204415204451%_ + (gx#syntax-e _%g205731205763%_)))) + (let ((_%hd205734205770%_ (let () (declare (not safe)) - (##car _%e204414204447%_))) - (_%tl204416204454%_ + (##car _%e205733205766%_))) + (_%tl205735205773%_ (let () (declare (not safe)) - (##cdr _%e204414204447%_)))) + (##cdr _%e205733205766%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl204416204454%_)) - (let ((_g209052_ + (gx#stx-pair/null? _%tl205735205773%_)) + (let ((_g210371_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl204416204454%_ + _%tl205735205773%_ '0)))) (begin - (let ((_g209053_ + (let ((_g210372_ (let () (declare (not safe)) - (if (##values? _g209052_) - (##vector-length _g209052_) + (if (##values? _g210371_) + (##values-length _g210371_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209053_ 2))) + (##fx= _g210372_ 2))) (error "Context expects 2 values" - _g209053_))) - (let ((_%target204417204457%_ + _g210372_))) + (let ((_%target205736205776%_ (let () (declare (not safe)) - (##vector-ref _g209052_ 0))) - (_%tl204419204460%_ + (##values-ref _g210371_ 0))) + (_%tl205738205779%_ (let () (declare (not safe)) - (##vector-ref _g209052_ 1)))) + (##values-ref _g210371_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204419204460%_)) - (letrec ((_%loop204420204463%_ - (lambda (_%hd204418204467%_ - _%clause204424204470%_) + (gx#stx-null? _%tl205738205779%_)) + (letrec ((_%loop205739205782%_ + (lambda (_%hd205737205786%_ + _%clause205743205789%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204418204467%_)) - (let ((_%e204421204473%_ + _%hd205737205786%_)) + (let ((_%e205740205792%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd204418204467%_)))) - (let ((_%lp-hd204422204477%_ + (gx#syntax-e _%hd205737205786%_)))) + (let ((_%lp-hd205741205796%_ (let () (declare (not safe)) - (##car _%e204421204473%_))) - (_%lp-tl204423204480%_ + (##car _%e205740205792%_))) + (_%lp-tl205742205799%_ (let () (declare (not safe)) - (##cdr _%e204421204473%_)))) + (##cdr _%e205740205792%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%lp-hd204422204477%_)) - (let ((_g209054_ + (gx#stx-pair/null? _%lp-hd205741205796%_)) + (let ((_g210373_ (let () (declare (not safe)) (gx#syntax-split-splice - _%lp-hd204422204477%_ + _%lp-hd205741205796%_ '0)))) (begin - (let ((_g209055_ + (let ((_g210374_ (let () (declare (not safe)) - (if (##values? _g209054_) - (##vector-length _g209054_) + (if (##values? _g210373_) + (##values-length _g210373_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209055_ 2))) + (##fx= _g210374_ 2))) (error "Context expects 2 values" - _g209055_))) - (let ((_%target204426204483%_ + _g210374_))) + (let ((_%target205745205802%_ (let () (declare (not safe)) - (##vector-ref _g209054_ 0))) - (_%tl204428204486%_ + (##values-ref _g210373_ 0))) + (_%tl205747205805%_ (let () (declare (not safe)) - (##vector-ref _g209054_ 1)))) + (##values-ref _g210373_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204428204486%_)) - (letrec ((_%loop204429204489%_ - (lambda (_%hd204427204493%_ - _%clause204433204496%_) + (gx#stx-null? _%tl205747205805%_)) + (letrec ((_%loop205748205808%_ + (lambda (_%hd205746205812%_ + _%clause205752205815%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204427204493%_)) - (let ((_%e204430204499%_ + _%hd205746205812%_)) + (let ((_%e205749205818%_ (let () (declare (not safe)) (gx#syntax-e - _%hd204427204493%_)))) - (let ((_%lp-hd204431204503%_ + _%hd205746205812%_)))) + (let ((_%lp-hd205750205822%_ (let () (declare (not safe)) - (##car _%e204430204499%_))) - (_%lp-tl204432204506%_ + (##car _%e205749205818%_))) + (_%lp-tl205751205825%_ (let () (declare (not safe)) - (##cdr _%e204430204499%_)))) - (_%loop204429204489%_ - _%lp-tl204432204506%_ - (cons _%lp-hd204431204503%_ - _%clause204433204496%_)))) - (let ((_%clause204434204509%_ - (reverse _%clause204433204496%_))) - (_%loop204420204463%_ - _%lp-tl204423204480%_ - (cons _%clause204434204509%_ - _%clause204424204470%_))))))) - (_%loop204429204489%_ - _%target204426204483%_ + (##cdr _%e205749205818%_)))) + (_%loop205748205808%_ + _%lp-tl205751205825%_ + (cons _%lp-hd205750205822%_ + _%clause205752205815%_)))) + (let ((_%clause205753205828%_ + (reverse _%clause205752205815%_))) + (_%loop205739205782%_ + _%lp-tl205742205799%_ + (cons _%clause205753205828%_ + _%clause205743205789%_))))))) + (_%loop205748205808%_ + _%target205745205802%_ '())) - (_%g204411204440%_ _%g204412204444%_))))) - (_%g204411204440%_ _%g204412204444%_)))) - (let ((_%clause204425204513%_ - (reverse _%clause204424204470%_))) - ((lambda (_%L204517%_) + (_%g205730205759%_ _%g205731205763%_))))) + (_%g205730205759%_ _%g205731205763%_)))) + (let ((_%clause205744205832%_ + (reverse _%clause205743205789%_))) + ((lambda (_%L205836%_) (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 ((__tmp209056 - (lambda (_%g204532204537%_ - _%g204533204540%_) + (let ((__tmp210375 + (lambda (_%g205851205856%_ + _%g205852205859%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda)) - (let ((__tmp209057 + (let ((__tmp210376 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g204534204543%_ _%g204535204546%_) - (cons _%g204534204543%_ _%g204535204546%_)))) + (lambda (_%g205853205862%_ _%g205854205865%_) + (cons _%g205853205862%_ _%g205854205865%_)))) (declare (not safe)) - (__foldr1 __tmp209057 '() _%g204532204537%_))) - _%g204533204540%_)))) + (__foldr1 __tmp210376 '() _%g205851205856%_))) + _%g205852205859%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp209056 + __tmp210375 '() - _%L204517%_))) + _%L205836%_))) '()))) - _%clause204425204513%_)))))) + _%clause205744205832%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop204420204463%_ - _%target204417204457%_ + (_%loop205739205782%_ + _%target205736205776%_ '())) - (_%g204411204440%_ - _%g204412204444%_))))) - (_%g204411204440%_ _%g204412204444%_)))) - (_%g204411204440%_ _%g204412204444%_))))) - (_%g204410204549%_ _%$stx204407%_)))) + (_%g205730205759%_ + _%g205731205763%_))))) + (_%g205730205759%_ _%g205731205763%_)))) + (_%g205730205759%_ _%g205731205763%_))))) + (_%g205729205868%_ _%$stx205726%_)))) (define |gxc[:0:]#@kw-lambda| - (lambda (_%$stx204555%_) - (let* ((_%g204559204577%_ - (lambda (_%g204560204573%_) + (lambda (_%$stx205874%_) + (let* ((_%g205878205896%_ + (lambda (_%g205879205892%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204560204573%_)))) - (_%g204558204632%_ - (lambda (_%g204560204581%_) + _%g205879205892%_)))) + (_%g205877205951%_ + (lambda (_%g205879205900%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204560204581%_)) - (let ((_%e204563204584%_ + (gx#stx-pair? _%g205879205900%_)) + (let ((_%e205882205903%_ (let () (declare (not safe)) - (gx#syntax-e _%g204560204581%_)))) - (let ((_%hd204564204588%_ + (gx#syntax-e _%g205879205900%_)))) + (let ((_%hd205883205907%_ (let () (declare (not safe)) - (##car _%e204563204584%_))) - (_%tl204565204591%_ + (##car _%e205882205903%_))) + (_%tl205884205910%_ (let () (declare (not safe)) - (##cdr _%e204563204584%_)))) + (##cdr _%e205882205903%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204565204591%_)) - (let ((_%e204566204594%_ + (gx#stx-pair? _%tl205884205910%_)) + (let ((_%e205885205913%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204565204591%_)))) - (let ((_%hd204567204598%_ + (gx#syntax-e _%tl205884205910%_)))) + (let ((_%hd205886205917%_ (let () (declare (not safe)) - (##car _%e204566204594%_))) - (_%tl204568204601%_ + (##car _%e205885205913%_))) + (_%tl205887205920%_ (let () (declare (not safe)) - (##cdr _%e204566204594%_)))) + (##cdr _%e205885205913%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204568204601%_)) - (let ((_%e204569204604%_ + (gx#stx-pair? _%tl205887205920%_)) + (let ((_%e205888205923%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204568204601%_)))) - (let ((_%hd204570204608%_ + _%tl205887205920%_)))) + (let ((_%hd205889205927%_ (let () (declare (not safe)) - (##car _%e204569204604%_))) - (_%tl204571204611%_ + (##car _%e205888205923%_))) + (_%tl205890205930%_ (let () (declare (not safe)) - (##cdr _%e204569204604%_)))) + (##cdr _%e205888205923%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204571204611%_)) - ((lambda (_%L204614%_ - _%L204616%_) + _%tl205890205930%_)) + ((lambda (_%L205933%_ + _%L205935%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2423,85 +2423,85 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204616%_ '())) + (cons _%L205935%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204614%_ '())) + (cons _%L205933%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd204570204608%_ - _%hd204567204598%_) - (_%g204559204577%_ - _%g204560204581%_)))) - (_%g204559204577%_ _%g204560204581%_)))) - (_%g204559204577%_ _%g204560204581%_)))) - (_%g204559204577%_ _%g204560204581%_))))) - (_%g204558204632%_ _%$stx204555%_)))) + _%hd205889205927%_ + _%hd205886205917%_) + (_%g205878205896%_ + _%g205879205900%_)))) + (_%g205878205896%_ _%g205879205900%_)))) + (_%g205878205896%_ _%g205879205900%_)))) + (_%g205878205896%_ _%g205879205900%_))))) + (_%g205877205951%_ _%$stx205874%_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_%$stx204636%_) - (let* ((_%g204640204658%_ - (lambda (_%g204641204654%_) + (lambda (_%$stx205955%_) + (let* ((_%g205959205977%_ + (lambda (_%g205960205973%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204641204654%_)))) - (_%g204639204713%_ - (lambda (_%g204641204662%_) + _%g205960205973%_)))) + (_%g205958206032%_ + (lambda (_%g205960205981%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204641204662%_)) - (let ((_%e204644204665%_ + (gx#stx-pair? _%g205960205981%_)) + (let ((_%e205963205984%_ (let () (declare (not safe)) - (gx#syntax-e _%g204641204662%_)))) - (let ((_%hd204645204669%_ + (gx#syntax-e _%g205960205981%_)))) + (let ((_%hd205964205988%_ (let () (declare (not safe)) - (##car _%e204644204665%_))) - (_%tl204646204672%_ + (##car _%e205963205984%_))) + (_%tl205965205991%_ (let () (declare (not safe)) - (##cdr _%e204644204665%_)))) + (##cdr _%e205963205984%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204646204672%_)) - (let ((_%e204647204675%_ + (gx#stx-pair? _%tl205965205991%_)) + (let ((_%e205966205994%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204646204672%_)))) - (let ((_%hd204648204679%_ + (gx#syntax-e _%tl205965205991%_)))) + (let ((_%hd205967205998%_ (let () (declare (not safe)) - (##car _%e204647204675%_))) - (_%tl204649204682%_ + (##car _%e205966205994%_))) + (_%tl205968206001%_ (let () (declare (not safe)) - (##cdr _%e204647204675%_)))) + (##cdr _%e205966205994%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204649204682%_)) - (let ((_%e204650204685%_ + (gx#stx-pair? _%tl205968206001%_)) + (let ((_%e205969206004%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204649204682%_)))) - (let ((_%hd204651204689%_ + _%tl205968206001%_)))) + (let ((_%hd205970206008%_ (let () (declare (not safe)) - (##car _%e204650204685%_))) - (_%tl204652204692%_ + (##car _%e205969206004%_))) + (_%tl205971206011%_ (let () (declare (not safe)) - (##cdr _%e204650204685%_)))) + (##cdr _%e205969206004%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204652204692%_)) - ((lambda (_%L204695%_ - _%L204697%_) + _%tl205971206011%_)) + ((lambda (_%L206014%_ + _%L206016%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2511,147 +2511,147 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204697%_ '())) + (cons _%L206016%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204695%_ '())) + (cons _%L206014%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd204651204689%_ - _%hd204648204679%_) - (_%g204640204658%_ - _%g204641204662%_)))) - (_%g204640204658%_ _%g204641204662%_)))) - (_%g204640204658%_ _%g204641204662%_)))) - (_%g204640204658%_ _%g204641204662%_))))) - (_%g204639204713%_ _%$stx204636%_)))) + _%hd205970206008%_ + _%hd205967205998%_) + (_%g205959205977%_ + _%g205960205981%_)))) + (_%g205959205977%_ _%g205960205981%_)))) + (_%g205959205977%_ _%g205960205981%_)))) + (_%g205959205977%_ _%g205960205981%_))))) + (_%g205958206032%_ _%$stx205955%_)))) (define |gxc[:0:]#declare-inline-rules!| - (lambda (_%$stx204717%_) - (let* ((_%g204721204750%_ - (lambda (_%g204722204746%_) + (lambda (_%$stx206036%_) + (let* ((_%g206040206069%_ + (lambda (_%g206041206065%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204722204746%_)))) - (_%g204720204850%_ - (lambda (_%g204722204754%_) + _%g206041206065%_)))) + (_%g206039206169%_ + (lambda (_%g206041206073%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204722204754%_)) - (let ((_%e204725204757%_ + (gx#stx-pair? _%g206041206073%_)) + (let ((_%e206044206076%_ (let () (declare (not safe)) - (gx#syntax-e _%g204722204754%_)))) - (let ((_%hd204726204761%_ + (gx#syntax-e _%g206041206073%_)))) + (let ((_%hd206045206080%_ (let () (declare (not safe)) - (##car _%e204725204757%_))) - (_%tl204727204764%_ + (##car _%e206044206076%_))) + (_%tl206046206083%_ (let () (declare (not safe)) - (##cdr _%e204725204757%_)))) + (##cdr _%e206044206076%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl204727204764%_)) - (let ((_g209058_ + (gx#stx-pair/null? _%tl206046206083%_)) + (let ((_g210377_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl204727204764%_ + _%tl206046206083%_ '0)))) (begin - (let ((_g209059_ + (let ((_g210378_ (let () (declare (not safe)) - (if (##values? _g209058_) - (##vector-length _g209058_) + (if (##values? _g210377_) + (##values-length _g210377_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209059_ 2))) + (##fx= _g210378_ 2))) (error "Context expects 2 values" - _g209059_))) - (let ((_%target204728204767%_ + _g210378_))) + (let ((_%target206047206086%_ (let () (declare (not safe)) - (##vector-ref _g209058_ 0))) - (_%tl204730204770%_ + (##values-ref _g210377_ 0))) + (_%tl206049206089%_ (let () (declare (not safe)) - (##vector-ref _g209058_ 1)))) + (##values-ref _g210377_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204730204770%_)) - (letrec ((_%loop204731204773%_ - (lambda (_%hd204729204777%_ - _%rule204735204780%_ - _%proc204736204782%_) + (gx#stx-null? _%tl206049206089%_)) + (letrec ((_%loop206050206092%_ + (lambda (_%hd206048206096%_ + _%rule206054206099%_ + _%proc206055206101%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204729204777%_)) - (let ((_%e204732204785%_ + _%hd206048206096%_)) + (let ((_%e206051206104%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd204729204777%_)))) - (let ((_%lp-hd204733204789%_ + (gx#syntax-e _%hd206048206096%_)))) + (let ((_%lp-hd206052206108%_ (let () (declare (not safe)) - (##car _%e204732204785%_))) - (_%lp-tl204734204792%_ + (##car _%e206051206104%_))) + (_%lp-tl206053206111%_ (let () (declare (not safe)) - (##cdr _%e204732204785%_)))) + (##cdr _%e206051206104%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd204733204789%_)) - (let ((_%e204739204795%_ + (gx#stx-pair? _%lp-hd206052206108%_)) + (let ((_%e206058206114%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd204733204789%_)))) - (let ((_%hd204740204799%_ + (gx#syntax-e _%lp-hd206052206108%_)))) + (let ((_%hd206059206118%_ (let () (declare (not safe)) - (##car _%e204739204795%_))) - (_%tl204741204802%_ + (##car _%e206058206114%_))) + (_%tl206060206121%_ (let () (declare (not safe)) - (##cdr _%e204739204795%_)))) + (##cdr _%e206058206114%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204741204802%_)) - (let ((_%e204742204805%_ + (gx#stx-pair? _%tl206060206121%_)) + (let ((_%e206061206124%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204741204802%_)))) - (let ((_%hd204743204809%_ + (gx#syntax-e _%tl206060206121%_)))) + (let ((_%hd206062206128%_ (let () (declare (not safe)) - (##car _%e204742204805%_))) - (_%tl204744204812%_ + (##car _%e206061206124%_))) + (_%tl206063206131%_ (let () (declare (not safe)) - (##cdr _%e204742204805%_)))) + (##cdr _%e206061206124%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204744204812%_)) - (_%loop204731204773%_ - _%lp-tl204734204792%_ - (cons _%hd204743204809%_ - _%rule204735204780%_) - (cons _%hd204740204799%_ - _%proc204736204782%_)) - (_%g204721204750%_ - _%g204722204754%_)))) - (_%g204721204750%_ _%g204722204754%_)))) - (_%g204721204750%_ _%g204722204754%_)))) - (let ((_%rule204737204815%_ (reverse _%rule204735204780%_)) - (_%proc204738204818%_ (reverse _%proc204736204782%_))) - ((lambda (_%L204821%_ _%L204823%_) + (gx#stx-null? _%tl206063206131%_)) + (_%loop206050206092%_ + _%lp-tl206053206111%_ + (cons _%hd206062206128%_ + _%rule206054206099%_) + (cons _%hd206059206118%_ + _%proc206055206101%_)) + (_%g206040206069%_ + _%g206041206073%_)))) + (_%g206040206069%_ _%g206041206073%_)))) + (_%g206040206069%_ _%g206041206073%_)))) + (let ((_%rule206056206134%_ (reverse _%rule206054206099%_)) + (_%proc206057206137%_ (reverse _%proc206055206101%_))) + ((lambda (_%L206140%_ _%L206142%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2659,103 +2659,103 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L204821%_ - _%L204823%_)) - (let ((__tmp209060 - (lambda (_%g204838204842%_ - _%g204839204845%_ - _%g204840204847%_) + _%L206140%_ + _%L206142%_)) + (let ((__tmp210379 + (lambda (_%g206157206161%_ + _%g206158206164%_ + _%g206159206166%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-inline-rule!)) - (cons _%g204839204845%_ - (cons _%g204838204842%_ + (cons _%g206158206164%_ + (cons _%g206157206161%_ '()))) - _%g204840204847%_)))) + _%g206159206166%_)))) (declare (not safe)) (__foldr2 - __tmp209060 + __tmp210379 '() - _%L204821%_ - _%L204823%_))))) - _%rule204737204815%_ - _%proc204738204818%_)))))) + _%L206140%_ + _%L206142%_))))) + _%rule206056206134%_ + _%proc206057206137%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop204731204773%_ - _%target204728204767%_ + (_%loop206050206092%_ + _%target206047206086%_ '() '())) - (_%g204721204750%_ - _%g204722204754%_))))) - (_%g204721204750%_ _%g204722204754%_)))) - (_%g204721204750%_ _%g204722204754%_))))) - (_%g204720204850%_ _%$stx204717%_)))) + (_%g206040206069%_ + _%g206041206073%_))))) + (_%g206040206069%_ _%g206041206073%_)))) + (_%g206040206069%_ _%g206041206073%_))))) + (_%g206039206169%_ _%$stx206036%_)))) (define |gxc[:0:]#declare-inline-rule!| - (lambda (_%$stx204855%_) - (let* ((_%g204859204877%_ - (lambda (_%g204860204873%_) + (lambda (_%$stx206174%_) + (let* ((_%g206178206196%_ + (lambda (_%g206179206192%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204860204873%_)))) - (_%g204858204932%_ - (lambda (_%g204860204881%_) + _%g206179206192%_)))) + (_%g206177206251%_ + (lambda (_%g206179206200%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204860204881%_)) - (let ((_%e204863204884%_ + (gx#stx-pair? _%g206179206200%_)) + (let ((_%e206182206203%_ (let () (declare (not safe)) - (gx#syntax-e _%g204860204881%_)))) - (let ((_%hd204864204888%_ + (gx#syntax-e _%g206179206200%_)))) + (let ((_%hd206183206207%_ (let () (declare (not safe)) - (##car _%e204863204884%_))) - (_%tl204865204891%_ + (##car _%e206182206203%_))) + (_%tl206184206210%_ (let () (declare (not safe)) - (##cdr _%e204863204884%_)))) + (##cdr _%e206182206203%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204865204891%_)) - (let ((_%e204866204894%_ + (gx#stx-pair? _%tl206184206210%_)) + (let ((_%e206185206213%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204865204891%_)))) - (let ((_%hd204867204898%_ + (gx#syntax-e _%tl206184206210%_)))) + (let ((_%hd206186206217%_ (let () (declare (not safe)) - (##car _%e204866204894%_))) - (_%tl204868204901%_ + (##car _%e206185206213%_))) + (_%tl206187206220%_ (let () (declare (not safe)) - (##cdr _%e204866204894%_)))) + (##cdr _%e206185206213%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204868204901%_)) - (let ((_%e204869204904%_ + (gx#stx-pair? _%tl206187206220%_)) + (let ((_%e206188206223%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204868204901%_)))) - (let ((_%hd204870204908%_ + _%tl206187206220%_)))) + (let ((_%hd206189206227%_ (let () (declare (not safe)) - (##car _%e204869204904%_))) - (_%tl204871204911%_ + (##car _%e206188206223%_))) + (_%tl206190206230%_ (let () (declare (not safe)) - (##cdr _%e204869204904%_)))) + (##cdr _%e206188206223%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204871204911%_)) - ((lambda (_%L204914%_ - _%L204916%_) + _%tl206190206230%_)) + ((lambda (_%L206233%_ + _%L206235%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2775,7 +2775,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204916%_ '())) + (cons _%L206235%_ '())) '())) '())) (cons (cons (let () @@ -2805,7 +2805,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'type)) '())) - (cons _%L204914%_ '()))) + (cons _%L206233%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare (not safe)) @@ -2817,39 +2817,39 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204916%_ '())) + (cons _%L206235%_ '())) (cons '"; ignoring inline rule" '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd204870204908%_ - _%hd204867204898%_) - (_%g204859204877%_ - _%g204860204881%_)))) - (_%g204859204877%_ _%g204860204881%_)))) - (_%g204859204877%_ _%g204860204881%_)))) - (_%g204859204877%_ _%g204860204881%_))))) - (_%g204858204932%_ _%$stx204855%_)))) + _%hd206189206227%_ + _%hd206186206217%_) + (_%g206178206196%_ + _%g206179206200%_)))) + (_%g206178206196%_ _%g206179206200%_)))) + (_%g206178206196%_ _%g206179206200%_)))) + (_%g206178206196%_ _%g206179206200%_))))) + (_%g206177206251%_ _%$stx206174%_)))) (define |gxc[:0:]#declare-primitive-predicates| - (lambda (_%$stx204936%_) - (let* ((_%__stx208540208541%_ _%$stx204936%_) - (_%g204941204966%_ + (lambda (_%$stx206255%_) + (let* ((_%__stx209859209860%_ _%$stx206255%_) + (_%g206260206285%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208540208541%_))))) - (let ((_%__kont208543208544%_ + _%__stx209859209860%_))))) + (let ((_%__kont209862209863%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont208545208546%_ - (lambda (_%L205013%_ _%L205015%_ _%L205016%_) + (_%__kont209864209865%_ + (lambda (_%L206332%_ _%L206334%_ _%L206335%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2858,121 +2858,121 @@ (gx#datum->syntax__0 '#f 'declare-primitive-predicate)) - (cons _%L205016%_ (cons _%L205015%_ '()))) + (cons _%L206335%_ (cons _%L206334%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-predicates)) - _%L205013%_) + _%L206332%_) '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208540208541%_)) - (let ((_%e204943205042%_ + (gx#stx-pair? _%__stx209859209860%_)) + (let ((_%e206262206361%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208540208541%_)))) - (let ((_%tl204945205049%_ + (gx#syntax-e _%__stx209859209860%_)))) + (let ((_%tl206264206368%_ (let () (declare (not safe)) - (##cdr _%e204943205042%_))) - (_%hd204944205046%_ + (##cdr _%e206262206361%_))) + (_%hd206263206365%_ (let () (declare (not safe)) - (##car _%e204943205042%_)))) + (##car _%e206262206361%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204945205049%_)) - (_%__kont208543208544%_) + (gx#stx-null? _%tl206264206368%_)) + (_%__kont209862209863%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204945205049%_)) - (let ((_%e204952204983%_ + (gx#stx-pair? _%tl206264206368%_)) + (let ((_%e206271206302%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204945205049%_)))) - (let ((_%tl204954204990%_ + (gx#syntax-e _%tl206264206368%_)))) + (let ((_%tl206273206309%_ (let () (declare (not safe)) - (##cdr _%e204952204983%_))) - (_%hd204953204987%_ + (##cdr _%e206271206302%_))) + (_%hd206272206306%_ (let () (declare (not safe)) - (##car _%e204952204983%_)))) + (##car _%e206271206302%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd204953204987%_)) - (let ((_%e204955204993%_ + (gx#stx-pair? _%hd206272206306%_)) + (let ((_%e206274206312%_ (let () (declare (not safe)) (gx#syntax-e - _%hd204953204987%_)))) - (let ((_%tl204957205000%_ + _%hd206272206306%_)))) + (let ((_%tl206276206319%_ (let () (declare (not safe)) - (##cdr _%e204955204993%_))) - (_%hd204956204997%_ + (##cdr _%e206274206312%_))) + (_%hd206275206316%_ (let () (declare (not safe)) - (##car _%e204955204993%_)))) + (##car _%e206274206312%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204957205000%_)) - (let ((_%e204958205003%_ + _%tl206276206319%_)) + (let ((_%e206277206322%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204957205000%_)))) - (let ((_%tl204960205010%_ + _%tl206276206319%_)))) + (let ((_%tl206279206329%_ (let () (declare (not safe)) - (##cdr _%e204958205003%_))) - (_%hd204959205007%_ + (##cdr _%e206277206322%_))) + (_%hd206278206326%_ (let () (declare (not safe)) - (##car _%e204958205003%_)))) + (##car _%e206277206322%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204960205010%_)) - (_%__kont208545208546%_ - _%tl204954204990%_ - _%hd204959205007%_ - _%hd204956204997%_) + _%tl206279206329%_)) + (_%__kont209864209865%_ + _%tl206273206309%_ + _%hd206278206326%_ + _%hd206275206316%_) (let () (declare (not safe)) - (_%g204941204966%_))))) + (_%g206260206285%_))))) (let () (declare (not safe)) - (_%g204941204966%_))))) + (_%g206260206285%_))))) (let () (declare (not safe)) - (_%g204941204966%_))))) + (_%g206260206285%_))))) (let () (declare (not safe)) - (_%g204941204966%_)))))) - (let () (declare (not safe)) (_%g204941204966%_))))))) + (_%g206260206285%_)))))) + (let () (declare (not safe)) (_%g206260206285%_))))))) (define |gxc[:0:]#declare-primitive-procedures| - (lambda (_%$stx205060%_) - (let* ((_%__stx208584208585%_ _%$stx205060%_) - (_%g205065205096%_ + (lambda (_%$stx206379%_) + (let* ((_%__stx209903209904%_ _%$stx206379%_) + (_%g206384206415%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208584208585%_))))) - (let ((_%__kont208587208588%_ + _%__stx209903209904%_))))) + (let ((_%__kont209906209907%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont208589208590%_ - (lambda (_%L205163%_ _%L205165%_ _%L205166%_) + (_%__kont209908209909%_ + (lambda (_%L206482%_ _%L206484%_ _%L206485%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2981,883 +2981,883 @@ (gx#datum->syntax__0 '#f 'declare-primitive-procedure)) - (cons _%L205166%_ - (let ((__tmp209061 - (lambda (_%g205186205189%_ - _%g205187205192%_) - (cons _%g205186205189%_ - _%g205187205192%_)))) + (cons _%L206485%_ + (let ((__tmp210380 + (lambda (_%g206505206508%_ + _%g206506206511%_) + (cons _%g206505206508%_ + _%g206506206511%_)))) (declare (not safe)) (__foldr1 - __tmp209061 + __tmp210380 '() - _%L205165%_)))) + _%L206484%_)))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-procedures)) - _%L205163%_) + _%L206482%_) '())))))) - (let ((_%__match208627208628%_ - (lambda (_%e205073205103%_ - _%hd205074205107%_ - _%tl205075205110%_ - _%e205076205113%_ - _%hd205077205117%_ - _%tl205078205120%_ - _%e205079205123%_ - _%hd205080205127%_ - _%tl205081205130%_ - _%__splice208591208592%_ - _%target205082205133%_ - _%tl205084205136%_) - (letrec ((_%loop205085205139%_ - (lambda (_%hd205083205143%_ _%sig205089205146%_) + (let ((_%__match209946209947%_ + (lambda (_%e206392206422%_ + _%hd206393206426%_ + _%tl206394206429%_ + _%e206395206432%_ + _%hd206396206436%_ + _%tl206397206439%_ + _%e206398206442%_ + _%hd206399206446%_ + _%tl206400206449%_ + _%__splice209910209911%_ + _%target206401206452%_ + _%tl206403206455%_) + (letrec ((_%loop206404206458%_ + (lambda (_%hd206402206462%_ _%sig206408206465%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205083205143%_)) - (let ((_%e205086205149%_ + (gx#stx-pair? _%hd206402206462%_)) + (let ((_%e206405206468%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205083205143%_)))) - (let ((_%lp-tl205088205156%_ + _%hd206402206462%_)))) + (let ((_%lp-tl206407206475%_ (let () (declare (not safe)) - (##cdr _%e205086205149%_))) - (_%lp-hd205087205153%_ + (##cdr _%e206405206468%_))) + (_%lp-hd206406206472%_ (let () (declare (not safe)) - (##car _%e205086205149%_)))) - (_%loop205085205139%_ - _%lp-tl205088205156%_ - (cons _%lp-hd205087205153%_ - _%sig205089205146%_)))) - (let ((_%sig205090205159%_ - (reverse _%sig205089205146%_))) - (_%__kont208589208590%_ - _%tl205078205120%_ - _%sig205090205159%_ - _%hd205080205127%_)))))) - (_%loop205085205139%_ _%target205082205133%_ '()))))) + (##car _%e206405206468%_)))) + (_%loop206404206458%_ + _%lp-tl206407206475%_ + (cons _%lp-hd206406206472%_ + _%sig206408206465%_)))) + (let ((_%sig206409206478%_ + (reverse _%sig206408206465%_))) + (_%__kont209908209909%_ + _%tl206397206439%_ + _%sig206409206478%_ + _%hd206399206446%_)))))) + (_%loop206404206458%_ _%target206401206452%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208584208585%_)) - (let ((_%e205067205202%_ + (gx#stx-pair? _%__stx209903209904%_)) + (let ((_%e206386206521%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208584208585%_)))) - (let ((_%tl205069205209%_ + (gx#syntax-e _%__stx209903209904%_)))) + (let ((_%tl206388206528%_ (let () (declare (not safe)) - (##cdr _%e205067205202%_))) - (_%hd205068205206%_ + (##cdr _%e206386206521%_))) + (_%hd206387206525%_ (let () (declare (not safe)) - (##car _%e205067205202%_)))) + (##car _%e206386206521%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205069205209%_)) - (_%__kont208587208588%_) + (gx#stx-null? _%tl206388206528%_)) + (_%__kont209906209907%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205069205209%_)) - (let ((_%e205076205113%_ + (gx#stx-pair? _%tl206388206528%_)) + (let ((_%e206395206432%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205069205209%_)))) - (let ((_%tl205078205120%_ + (gx#syntax-e _%tl206388206528%_)))) + (let ((_%tl206397206439%_ (let () (declare (not safe)) - (##cdr _%e205076205113%_))) - (_%hd205077205117%_ + (##cdr _%e206395206432%_))) + (_%hd206396206436%_ (let () (declare (not safe)) - (##car _%e205076205113%_)))) + (##car _%e206395206432%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205077205117%_)) - (let ((_%e205079205123%_ + (gx#stx-pair? _%hd206396206436%_)) + (let ((_%e206398206442%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205077205117%_)))) - (let ((_%tl205081205130%_ + _%hd206396206436%_)))) + (let ((_%tl206400206449%_ (let () (declare (not safe)) - (##cdr _%e205079205123%_))) - (_%hd205080205127%_ + (##cdr _%e206398206442%_))) + (_%hd206399206446%_ (let () (declare (not safe)) - (##car _%e205079205123%_)))) + (##car _%e206398206442%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205081205130%_)) - (let ((_%__splice208591208592%_ + _%tl206400206449%_)) + (let ((_%__splice209910209911%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205081205130%_ + _%tl206400206449%_ '0)))) - (let ((_%tl205084205136%_ + (let ((_%tl206403206455%_ (let () (declare (not safe)) (##vector-ref - _%__splice208591208592%_ + _%__splice209910209911%_ '1))) - (_%target205082205133%_ + (_%target206401206452%_ (let () (declare (not safe)) (##vector-ref - _%__splice208591208592%_ + _%__splice209910209911%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205084205136%_)) - (_%__match208627208628%_ - _%e205067205202%_ - _%hd205068205206%_ - _%tl205069205209%_ - _%e205076205113%_ - _%hd205077205117%_ - _%tl205078205120%_ - _%e205079205123%_ - _%hd205080205127%_ - _%tl205081205130%_ - _%__splice208591208592%_ - _%target205082205133%_ - _%tl205084205136%_) + _%tl206403206455%_)) + (_%__match209946209947%_ + _%e206386206521%_ + _%hd206387206525%_ + _%tl206388206528%_ + _%e206395206432%_ + _%hd206396206436%_ + _%tl206397206439%_ + _%e206398206442%_ + _%hd206399206446%_ + _%tl206400206449%_ + _%__splice209910209911%_ + _%target206401206452%_ + _%tl206403206455%_) (let () (declare (not safe)) - (_%g205065205096%_))))) + (_%g206384206415%_))))) (let () (declare (not safe)) - (_%g205065205096%_))))) + (_%g206384206415%_))))) (let () (declare (not safe)) - (_%g205065205096%_))))) + (_%g206384206415%_))))) (let () (declare (not safe)) - (_%g205065205096%_)))))) - (let () (declare (not safe)) (_%g205065205096%_)))))))) + (_%g206384206415%_)))))) + (let () (declare (not safe)) (_%g206384206415%_)))))))) (define |gxc[:0:]#declare-primitive-procedure| - (lambda (_%$stx205221%_) - (let* ((_%__stx208630208631%_ _%$stx205221%_) - (_%g205226205273%_ + (lambda (_%$stx206540%_) + (let* ((_%__stx209949209950%_ _%$stx206540%_) + (_%g206545206592%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208630208631%_))))) - (let ((_%__kont208633208634%_ - (lambda (_%L205435%_ _%L205437%_) + _%__stx209949209950%_))))) + (let ((_%__kont209952209953%_ + (lambda (_%L206754%_ _%L206756%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-case-lambda)) - (cons _%L205437%_ - (let ((__tmp209062 - (lambda (_%g205457205460%_ - _%g205458205463%_) - (cons _%g205457205460%_ - _%g205458205463%_)))) + (cons _%L206756%_ + (let ((__tmp210381 + (lambda (_%g206776206779%_ + _%g206777206782%_) + (cons _%g206776206779%_ + _%g206777206782%_)))) (declare (not safe)) - (__foldr1 __tmp209062 '() _%L205435%_)))))) - (_%__kont208637208638%_ - (lambda (_%L205330%_ _%L205332%_) + (__foldr1 __tmp210381 '() _%L206754%_)))))) + (_%__kont209956209957%_ + (lambda (_%L206649%_ _%L206651%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-lambda)) - (cons _%L205332%_ - (let ((__tmp209063 - (lambda (_%g205349205352%_ - _%g205350205355%_) - (cons _%g205349205352%_ - _%g205350205355%_)))) + (cons _%L206651%_ + (let ((__tmp210382 + (lambda (_%g206668206671%_ + _%g206669206674%_) + (cons _%g206668206671%_ + _%g206669206674%_)))) (declare (not safe)) - (__foldr1 __tmp209063 '() _%L205330%_))))))) - (let* ((_%__match208697208698%_ - (lambda (_%e205253205280%_ - _%hd205254205284%_ - _%tl205255205287%_ - _%e205256205290%_ - _%hd205257205294%_ - _%tl205258205297%_ - _%__splice208639208640%_ - _%target205259205300%_ - _%tl205261205303%_) - (letrec ((_%loop205262205306%_ - (lambda (_%hd205260205310%_ - _%sig205266205313%_) + (__foldr1 __tmp210382 '() _%L206649%_))))))) + (let* ((_%__match210016210017%_ + (lambda (_%e206572206599%_ + _%hd206573206603%_ + _%tl206574206606%_ + _%e206575206609%_ + _%hd206576206613%_ + _%tl206577206616%_ + _%__splice209958209959%_ + _%target206578206619%_ + _%tl206580206622%_) + (letrec ((_%loop206581206625%_ + (lambda (_%hd206579206629%_ + _%sig206585206632%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205260205310%_)) - (let ((_%e205263205316%_ + (gx#stx-pair? _%hd206579206629%_)) + (let ((_%e206582206635%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205260205310%_)))) - (let ((_%lp-tl205265205323%_ + _%hd206579206629%_)))) + (let ((_%lp-tl206584206642%_ (let () (declare (not safe)) - (##cdr _%e205263205316%_))) - (_%lp-hd205264205320%_ + (##cdr _%e206582206635%_))) + (_%lp-hd206583206639%_ (let () (declare (not safe)) - (##car _%e205263205316%_)))) - (_%loop205262205306%_ - _%lp-tl205265205323%_ - (cons _%lp-hd205264205320%_ - _%sig205266205313%_)))) - (let ((_%sig205267205326%_ - (reverse _%sig205266205313%_))) - (_%__kont208637208638%_ - _%sig205267205326%_ - _%hd205257205294%_)))))) - (_%loop205262205306%_ _%target205259205300%_ '())))) - (_%__match208689208690%_ - (lambda (_%e205253205280%_ - _%hd205254205284%_ - _%tl205255205287%_ - _%e205256205290%_ - _%hd205257205294%_ - _%tl205258205297%_) + (##car _%e206582206635%_)))) + (_%loop206581206625%_ + _%lp-tl206584206642%_ + (cons _%lp-hd206583206639%_ + _%sig206585206632%_)))) + (let ((_%sig206586206645%_ + (reverse _%sig206585206632%_))) + (_%__kont209956209957%_ + _%sig206586206645%_ + _%hd206576206613%_)))))) + (_%loop206581206625%_ _%target206578206619%_ '())))) + (_%__match210008210009%_ + (lambda (_%e206572206599%_ + _%hd206573206603%_ + _%tl206574206606%_ + _%e206575206609%_ + _%hd206576206613%_ + _%tl206577206616%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205258205297%_)) - (let ((_%__splice208639208640%_ + (gx#stx-pair/null? _%tl206577206616%_)) + (let ((_%__splice209958209959%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205258205297%_ + _%tl206577206616%_ '0)))) - (let ((_%tl205261205303%_ + (let ((_%tl206580206622%_ (let () (declare (not safe)) (##vector-ref - _%__splice208639208640%_ + _%__splice209958209959%_ '1))) - (_%target205259205300%_ + (_%target206578206619%_ (let () (declare (not safe)) (##vector-ref - _%__splice208639208640%_ + _%__splice209958209959%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205261205303%_)) - (_%__match208697208698%_ - _%e205253205280%_ - _%hd205254205284%_ - _%tl205255205287%_ - _%e205256205290%_ - _%hd205257205294%_ - _%tl205258205297%_ - _%__splice208639208640%_ - _%target205259205300%_ - _%tl205261205303%_) + (gx#stx-null? _%tl206580206622%_)) + (_%__match210016210017%_ + _%e206572206599%_ + _%hd206573206603%_ + _%tl206574206606%_ + _%e206575206609%_ + _%hd206576206613%_ + _%tl206577206616%_ + _%__splice209958209959%_ + _%target206578206619%_ + _%tl206580206622%_) (let () (declare (not safe)) - (_%g205226205273%_))))) - (let () (declare (not safe)) (_%g205226205273%_))))) - (_%__match208677208678%_ - (lambda (_%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_ - _%e205236205385%_ - _%hd205237205389%_ - _%tl205238205392%_ - _%e205239205395%_ - _%hd205240205399%_ - _%tl205241205402%_ - _%__splice208635208636%_ - _%target205242205405%_ - _%tl205244205408%_) - (letrec ((_%loop205245205411%_ - (lambda (_%hd205243205415%_ - _%sig205249205418%_) + (_%g206545206592%_))))) + (let () (declare (not safe)) (_%g206545206592%_))))) + (_%__match209996209997%_ + (lambda (_%e206549206684%_ + _%hd206550206688%_ + _%tl206551206691%_ + _%e206552206694%_ + _%hd206553206698%_ + _%tl206554206701%_ + _%e206555206704%_ + _%hd206556206708%_ + _%tl206557206711%_ + _%e206558206714%_ + _%hd206559206718%_ + _%tl206560206721%_ + _%__splice209954209955%_ + _%target206561206724%_ + _%tl206563206727%_) + (letrec ((_%loop206564206730%_ + (lambda (_%hd206562206734%_ + _%sig206568206737%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205243205415%_)) - (let ((_%e205246205421%_ + (gx#stx-pair? _%hd206562206734%_)) + (let ((_%e206565206740%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205243205415%_)))) - (let ((_%lp-tl205248205428%_ + _%hd206562206734%_)))) + (let ((_%lp-tl206567206747%_ (let () (declare (not safe)) - (##cdr _%e205246205421%_))) - (_%lp-hd205247205425%_ + (##cdr _%e206565206740%_))) + (_%lp-hd206566206744%_ (let () (declare (not safe)) - (##car _%e205246205421%_)))) - (_%loop205245205411%_ - _%lp-tl205248205428%_ - (cons _%lp-hd205247205425%_ - _%sig205249205418%_)))) - (let ((_%sig205250205431%_ - (reverse _%sig205249205418%_))) + (##car _%e206565206740%_)))) + (_%loop206564206730%_ + _%lp-tl206567206747%_ + (cons _%lp-hd206566206744%_ + _%sig206568206737%_)))) + (let ((_%sig206569206750%_ + (reverse _%sig206568206737%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205238205392%_)) - (_%__kont208633208634%_ - _%sig205250205431%_ - _%hd205234205379%_) - (_%__match208689208690%_ - _%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_))))))) - (_%loop205245205411%_ _%target205242205405%_ '()))))) + _%tl206557206711%_)) + (_%__kont209952209953%_ + _%sig206569206750%_ + _%hd206553206698%_) + (_%__match210008210009%_ + _%e206549206684%_ + _%hd206550206688%_ + _%tl206551206691%_ + _%e206552206694%_ + _%hd206553206698%_ + _%tl206554206701%_))))))) + (_%loop206564206730%_ _%target206561206724%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208630208631%_)) - (let ((_%e205230205365%_ + (gx#stx-pair? _%__stx209949209950%_)) + (let ((_%e206549206684%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208630208631%_)))) - (let ((_%tl205232205372%_ + (gx#syntax-e _%__stx209949209950%_)))) + (let ((_%tl206551206691%_ (let () (declare (not safe)) - (##cdr _%e205230205365%_))) - (_%hd205231205369%_ + (##cdr _%e206549206684%_))) + (_%hd206550206688%_ (let () (declare (not safe)) - (##car _%e205230205365%_)))) + (##car _%e206549206684%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205232205372%_)) - (let ((_%e205233205375%_ + (gx#stx-pair? _%tl206551206691%_)) + (let ((_%e206552206694%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205232205372%_)))) - (let ((_%tl205235205382%_ + (gx#syntax-e _%tl206551206691%_)))) + (let ((_%tl206554206701%_ (let () (declare (not safe)) - (##cdr _%e205233205375%_))) - (_%hd205234205379%_ + (##cdr _%e206552206694%_))) + (_%hd206553206698%_ (let () (declare (not safe)) - (##car _%e205233205375%_)))) + (##car _%e206552206694%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205235205382%_)) - (let ((_%e205236205385%_ + (gx#stx-pair? _%tl206554206701%_)) + (let ((_%e206555206704%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205235205382%_)))) - (let ((_%tl205238205392%_ + (gx#syntax-e _%tl206554206701%_)))) + (let ((_%tl206557206711%_ (let () (declare (not safe)) - (##cdr _%e205236205385%_))) - (_%hd205237205389%_ + (##cdr _%e206555206704%_))) + (_%hd206556206708%_ (let () (declare (not safe)) - (##car _%e205236205385%_)))) + (##car _%e206555206704%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205237205389%_)) - (let ((_%e205239205395%_ + (gx#stx-pair? _%hd206556206708%_)) + (let ((_%e206558206714%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205237205389%_)))) - (let ((_%tl205241205402%_ + _%hd206556206708%_)))) + (let ((_%tl206560206721%_ (let () (declare (not safe)) - (##cdr _%e205239205395%_))) - (_%hd205240205399%_ + (##cdr _%e206558206714%_))) + (_%hd206559206718%_ (let () (declare (not safe)) - (##car _%e205239205395%_)))) + (##car _%e206558206714%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd205240205399%_)) - (if (let ((__tmp209064 - |gxc[1]#_g209065_|)) + _%hd206559206718%_)) + (if (let ((__tmp210383 + |gxc[1]#_g210384_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209064 - _%hd205240205399%_)) + __tmp210383 + _%hd206559206718%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205241205402%_)) - (let ((_%__splice208635208636%_ + _%tl206560206721%_)) + (let ((_%__splice209954209955%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl205241205402%_ '0)))) - (let ((_%tl205244205408%_ + (gx#syntax-split-splice _%tl206560206721%_ '0)))) + (let ((_%tl206563206727%_ (let () (declare (not safe)) - (##vector-ref _%__splice208635208636%_ '1))) - (_%target205242205405%_ + (##vector-ref _%__splice209954209955%_ '1))) + (_%target206561206724%_ (let () (declare (not safe)) - (##vector-ref _%__splice208635208636%_ '0)))) + (##vector-ref _%__splice209954209955%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205244205408%_)) - (_%__match208677208678%_ - _%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_ - _%e205236205385%_ - _%hd205237205389%_ - _%tl205238205392%_ - _%e205239205395%_ - _%hd205240205399%_ - _%tl205241205402%_ - _%__splice208635208636%_ - _%target205242205405%_ - _%tl205244205408%_) + (gx#stx-null? _%tl206563206727%_)) + (_%__match209996209997%_ + _%e206549206684%_ + _%hd206550206688%_ + _%tl206551206691%_ + _%e206552206694%_ + _%hd206553206698%_ + _%tl206554206701%_ + _%e206555206704%_ + _%hd206556206708%_ + _%tl206557206711%_ + _%e206558206714%_ + _%hd206559206718%_ + _%tl206560206721%_ + _%__splice209954209955%_ + _%target206561206724%_ + _%tl206563206727%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205235205382%_)) - (let ((_%__splice208639208640%_ + (gx#stx-pair/null? _%tl206554206701%_)) + (let ((_%__splice209958209959%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205235205382%_ + _%tl206554206701%_ '0)))) - (let ((_%tl205261205303%_ + (let ((_%tl206580206622%_ (let () (declare (not safe)) (##vector-ref - _%__splice208639208640%_ + _%__splice209958209959%_ '1))) - (_%target205259205300%_ + (_%target206578206619%_ (let () (declare (not safe)) (##vector-ref - _%__splice208639208640%_ + _%__splice209958209959%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205261205303%_)) - (_%__match208697208698%_ - _%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_ - _%__splice208639208640%_ - _%target205259205300%_ - _%tl205261205303%_) + (gx#stx-null? _%tl206580206622%_)) + (_%__match210016210017%_ + _%e206549206684%_ + _%hd206550206688%_ + _%tl206551206691%_ + _%e206552206694%_ + _%hd206553206698%_ + _%tl206554206701%_ + _%__splice209958209959%_ + _%target206578206619%_ + _%tl206580206622%_) (let () (declare (not safe)) - (_%g205226205273%_))))) + (_%g206545206592%_))))) (let () (declare (not safe)) - (_%g205226205273%_)))))) + (_%g206545206592%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205235205382%_)) - (let ((_%__splice208639208640%_ + (gx#stx-pair/null? _%tl206554206701%_)) + (let ((_%__splice209958209959%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205235205382%_ + _%tl206554206701%_ '0)))) - (let ((_%tl205261205303%_ + (let ((_%tl206580206622%_ (let () (declare (not safe)) - (##vector-ref _%__splice208639208640%_ '1))) - (_%target205259205300%_ + (##vector-ref _%__splice209958209959%_ '1))) + (_%target206578206619%_ (let () (declare (not safe)) - (##vector-ref _%__splice208639208640%_ '0)))) + (##vector-ref _%__splice209958209959%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205261205303%_)) - (_%__match208697208698%_ - _%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_ - _%__splice208639208640%_ - _%target205259205300%_ - _%tl205261205303%_) + (gx#stx-null? _%tl206580206622%_)) + (_%__match210016210017%_ + _%e206549206684%_ + _%hd206550206688%_ + _%tl206551206691%_ + _%e206552206694%_ + _%hd206553206698%_ + _%tl206554206701%_ + _%__splice209958209959%_ + _%target206578206619%_ + _%tl206580206622%_) (let () (declare (not safe)) - (_%g205226205273%_))))) - (let () (declare (not safe)) (_%g205226205273%_)))) + (_%g206545206592%_))))) + (let () (declare (not safe)) (_%g206545206592%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205235205382%_)) - (let ((_%__splice208639208640%_ + (gx#stx-pair/null? _%tl206554206701%_)) + (let ((_%__splice209958209959%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl205235205382%_ '0)))) - (let ((_%tl205261205303%_ + (gx#syntax-split-splice _%tl206554206701%_ '0)))) + (let ((_%tl206580206622%_ (let () (declare (not safe)) - (##vector-ref _%__splice208639208640%_ '1))) - (_%target205259205300%_ + (##vector-ref _%__splice209958209959%_ '1))) + (_%target206578206619%_ (let () (declare (not safe)) - (##vector-ref _%__splice208639208640%_ '0)))) + (##vector-ref _%__splice209958209959%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205261205303%_)) - (_%__match208697208698%_ - _%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_ - _%__splice208639208640%_ - _%target205259205300%_ - _%tl205261205303%_) - (let () (declare (not safe)) (_%g205226205273%_))))) - (let () (declare (not safe)) (_%g205226205273%_)))) + (gx#stx-null? _%tl206580206622%_)) + (_%__match210016210017%_ + _%e206549206684%_ + _%hd206550206688%_ + _%tl206551206691%_ + _%e206552206694%_ + _%hd206553206698%_ + _%tl206554206701%_ + _%__splice209958209959%_ + _%target206578206619%_ + _%tl206580206622%_) + (let () (declare (not safe)) (_%g206545206592%_))))) + (let () (declare (not safe)) (_%g206545206592%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205235205382%_)) - (let ((_%__splice208639208640%_ + _%tl206554206701%_)) + (let ((_%__splice209958209959%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl205235205382%_ '0)))) - (let ((_%tl205261205303%_ + (gx#syntax-split-splice _%tl206554206701%_ '0)))) + (let ((_%tl206580206622%_ (let () (declare (not safe)) - (##vector-ref _%__splice208639208640%_ '1))) - (_%target205259205300%_ + (##vector-ref _%__splice209958209959%_ '1))) + (_%target206578206619%_ (let () (declare (not safe)) - (##vector-ref _%__splice208639208640%_ '0)))) + (##vector-ref _%__splice209958209959%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205261205303%_)) - (_%__match208697208698%_ - _%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_ - _%__splice208639208640%_ - _%target205259205300%_ - _%tl205261205303%_) - (let () (declare (not safe)) (_%g205226205273%_))))) - (let () (declare (not safe)) (_%g205226205273%_)))))) + (gx#stx-null? _%tl206580206622%_)) + (_%__match210016210017%_ + _%e206549206684%_ + _%hd206550206688%_ + _%tl206551206691%_ + _%e206552206694%_ + _%hd206553206698%_ + _%tl206554206701%_ + _%__splice209958209959%_ + _%target206578206619%_ + _%tl206580206622%_) + (let () (declare (not safe)) (_%g206545206592%_))))) + (let () (declare (not safe)) (_%g206545206592%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205235205382%_)) - (let ((_%__splice208639208640%_ + _%tl206554206701%_)) + (let ((_%__splice209958209959%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205235205382%_ + _%tl206554206701%_ '0)))) - (let ((_%tl205261205303%_ + (let ((_%tl206580206622%_ (let () (declare (not safe)) (##vector-ref - _%__splice208639208640%_ + _%__splice209958209959%_ '1))) - (_%target205259205300%_ + (_%target206578206619%_ (let () (declare (not safe)) (##vector-ref - _%__splice208639208640%_ + _%__splice209958209959%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205261205303%_)) - (_%__match208697208698%_ - _%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_ - _%__splice208639208640%_ - _%target205259205300%_ - _%tl205261205303%_) + _%tl206580206622%_)) + (_%__match210016210017%_ + _%e206549206684%_ + _%hd206550206688%_ + _%tl206551206691%_ + _%e206552206694%_ + _%hd206553206698%_ + _%tl206554206701%_ + _%__splice209958209959%_ + _%target206578206619%_ + _%tl206580206622%_) (let () (declare (not safe)) - (_%g205226205273%_))))) + (_%g206545206592%_))))) (let () (declare (not safe)) - (_%g205226205273%_)))))) + (_%g206545206592%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205235205382%_)) - (let ((_%__splice208639208640%_ + (gx#stx-pair/null? _%tl206554206701%_)) + (let ((_%__splice209958209959%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205235205382%_ + _%tl206554206701%_ '0)))) - (let ((_%tl205261205303%_ + (let ((_%tl206580206622%_ (let () (declare (not safe)) (##vector-ref - _%__splice208639208640%_ + _%__splice209958209959%_ '1))) - (_%target205259205300%_ + (_%target206578206619%_ (let () (declare (not safe)) (##vector-ref - _%__splice208639208640%_ + _%__splice209958209959%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205261205303%_)) - (_%__match208697208698%_ - _%e205230205365%_ - _%hd205231205369%_ - _%tl205232205372%_ - _%e205233205375%_ - _%hd205234205379%_ - _%tl205235205382%_ - _%__splice208639208640%_ - _%target205259205300%_ - _%tl205261205303%_) + _%tl206580206622%_)) + (_%__match210016210017%_ + _%e206549206684%_ + _%hd206550206688%_ + _%tl206551206691%_ + _%e206552206694%_ + _%hd206553206698%_ + _%tl206554206701%_ + _%__splice209958209959%_ + _%target206578206619%_ + _%tl206580206622%_) (let () (declare (not safe)) - (_%g205226205273%_))))) + (_%g206545206592%_))))) (let () (declare (not safe)) - (_%g205226205273%_)))))) - (let () (declare (not safe)) (_%g205226205273%_))))) - (let () (declare (not safe)) (_%g205226205273%_)))))))) + (_%g206545206592%_)))))) + (let () (declare (not safe)) (_%g206545206592%_))))) + (let () (declare (not safe)) (_%g206545206592%_)))))))) (define |gxc[1]#verify-procedure!| - (lambda (_%ctx206620%_ _%id206622%_) - (let ((_%proc206626%_ - (let ((__tmp209066 + (lambda (_%ctx207939%_ _%id207941%_) + (let ((_%proc207945%_ + (let ((__tmp210385 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id206622%_))))) + (gx#eval-syntax__0 _%id207941%_))))) (declare (not safe)) - (__with-catch false __tmp209066)))) - (if (procedure? _%proc206626%_) + (__with-catch false __tmp210385)))) + (if (procedure? _%proc207945%_) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown procedure" - _%ctx206620%_ - _%id206622%_)))))) + _%ctx207939%_ + _%id207941%_)))))) (define |gxc[1]#verify-class!| - (lambda (_%ctx206611%_ _%id206613%_) - (let ((_%klass206617%_ - (let ((__tmp209067 + (lambda (_%ctx207930%_ _%id207932%_) + (let ((_%klass207936%_ + (let ((__tmp210386 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id206613%_))))) + (gx#eval-syntax__0 _%id207932%_))))) (declare (not safe)) - (__with-catch false __tmp209067)))) + (__with-catch false __tmp210386)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass206617%_ 'class)) + (##structure-instance-of? _%klass207936%_ 'class)) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown class" - _%ctx206611%_ - _%id206613%_)))))) + _%ctx207930%_ + _%id207932%_)))))) (define |gxc[1]#parse-signature| - (lambda (_%ctx205861%_ _%proc205863%_ _%sig205864%_) - (letrec ((_%signature-arity205866%_ - (lambda (_%args206543%_) - (let _%loop206546%_ ((_%rest206549%_ _%args206543%_) - (_%count206551%_ '0)) - (let* ((_%rest206552206563%_ _%rest206549%_) - (_%E206556206569%_ + (lambda (_%ctx207180%_ _%proc207182%_ _%sig207183%_) + (letrec ((_%signature-arity207185%_ + (lambda (_%args207862%_) + (let _%loop207865%_ ((_%rest207868%_ _%args207862%_) + (_%count207870%_ '0)) + (let* ((_%rest207871207882%_ _%rest207868%_) + (_%E207875207888%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest206552206563%_ + _%rest207871207882%_ '([_ . rest]) '([]) '(_))) '#!void))) - (let ((_%K206559206600%_ - (lambda (_%rest206597%_) - (_%loop206546%_ - _%rest206597%_ + (let ((_%K207878207919%_ + (lambda (_%rest207916%_) + (_%loop207865%_ + _%rest207916%_ (let () (declare (not safe)) - (##fx+ _%count206551%_ '1))))) - (_%K206558206589%_ (lambda () _%count206551%_)) - (_%K206557206577%_ - (lambda () (cons _%count206551%_ '())))) - (let ((_%try-match206554206593%_ + (##fx+ _%count207870%_ '1))))) + (_%K207877207908%_ (lambda () _%count207870%_)) + (_%K207876207896%_ + (lambda () (cons _%count207870%_ '())))) + (let ((_%try-match207873207912%_ (lambda () - (if (null? _%rest206552206563%_) - (_%K206558206589%_) - (_%K206557206577%_))))) - (if (pair? _%rest206552206563%_) - (let* ((_%tl206561206604%_ + (if (null? _%rest207871207882%_) + (_%K207877207908%_) + (_%K207876207896%_))))) + (if (pair? _%rest207871207882%_) + (let* ((_%tl207880207923%_ (let () (declare (not safe)) - (##cdr _%rest206552206563%_))) - (_%rest206608%_ _%tl206561206604%_)) - (_%K206559206600%_ _%rest206608%_)) - (_%try-match206554206593%_)))))))) - (_%make-signature205868%_ - (lambda (_%args206425%_ - _%return206427%_ - _%effect206428%_ - _%unchecked206429%_) - (let ((__tmp209068 - (lambda (_%g206430206432%_) + (##cdr _%rest207871207882%_))) + (_%rest207927%_ _%tl207880207923%_)) + (_%K207878207919%_ _%rest207927%_)) + (_%try-match207873207912%_)))))))) + (_%make-signature207187%_ + (lambda (_%args207744%_ + _%return207746%_ + _%effect207747%_ + _%unchecked207748%_) + (let ((__tmp210387 + (lambda (_%g207749207751%_) (|gxc[1]#verify-class!| - _%ctx205861%_ - _%g206430206432%_)))) + _%ctx207180%_ + _%g207749207751%_)))) (declare (not safe)) - (gx#stx-for-each1 __tmp209068 _%args206425%_)) - (|gxc[1]#verify-class!| _%ctx205861%_ _%return206427%_) - (if _%unchecked206429%_ + (gx#stx-for-each1 __tmp210387 _%args207744%_)) + (|gxc[1]#verify-class!| _%ctx207180%_ _%return207746%_) + (if _%unchecked207748%_ (|gxc[1]#verify-procedure!| - _%ctx205861%_ - _%unchecked206429%_) + _%ctx207180%_ + _%unchecked207748%_) '#!void) - (let ((_%arity206436%_ - (_%signature-arity205866%_ + (let ((_%arity207755%_ + (_%signature-arity207185%_ (let () (declare (not safe)) - (gx#stx-map1 gx#stx-e _%args206425%_))))) - (if _%effect206428%_ - (let ((_%effect206439%_ + (gx#stx-map1 gx#stx-e _%args207744%_))))) + (if _%effect207747%_ + (let ((_%effect207758%_ (let () (declare (not safe)) - (gx#syntax->datum _%effect206428%_)))) - (if (and (list? _%effect206439%_) + (gx#syntax->datum _%effect207747%_)))) + (if (and (list? _%effect207758%_) (let () (declare (not safe)) - (__andmap1 symbol? _%effect206439%_))) + (__andmap1 symbol? _%effect207758%_))) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"bad effect" - _%ctx205861%_ - _%proc205863%_ - _%effect206439%_)))) + _%ctx207180%_ + _%proc207182%_ + _%effect207758%_)))) '#!void) - (cons _%arity206436%_ - (cons (let* ((_%g206442206465%_ - (lambda (_%g206443206461%_) + (cons _%arity207755%_ + (cons (let* ((_%g207761207784%_ + (lambda (_%g207762207780%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206443206461%_)))) - (_%g206441206539%_ - (lambda (_%g206443206469%_) + _%g207762207780%_)))) + (_%g207760207858%_ + (lambda (_%g207762207788%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g206443206469%_)) - (let ((_%e206448206472%_ + _%g207762207788%_)) + (let ((_%e207767207791%_ (let () (declare (not safe)) (gx#syntax-e - _%g206443206469%_)))) - (let ((_%hd206449206476%_ + _%g207762207788%_)))) + (let ((_%hd207768207795%_ (let () (declare (not safe)) - (##car _%e206448206472%_))) - (_%tl206450206479%_ + (##car _%e207767207791%_))) + (_%tl207769207798%_ (let () (declare (not safe)) - (##cdr _%e206448206472%_)))) + (##cdr _%e207767207791%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206450206479%_)) - (let ((_%e206451206482%_ + _%tl207769207798%_)) + (let ((_%e207770207801%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl206450206479%_)))) - (let ((_%hd206452206486%_ + (gx#syntax-e _%tl207769207798%_)))) + (let ((_%hd207771207805%_ (let () (declare (not safe)) - (##car _%e206451206482%_))) - (_%tl206453206489%_ + (##car _%e207770207801%_))) + (_%tl207772207808%_ (let () (declare (not safe)) - (##cdr _%e206451206482%_)))) + (##cdr _%e207770207801%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206453206489%_)) - (let ((_%e206454206492%_ + (gx#stx-pair? _%tl207772207808%_)) + (let ((_%e207773207811%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206453206489%_)))) - (let ((_%hd206455206496%_ + (gx#syntax-e _%tl207772207808%_)))) + (let ((_%hd207774207815%_ (let () (declare (not safe)) - (##car _%e206454206492%_))) - (_%tl206456206499%_ + (##car _%e207773207811%_))) + (_%tl207775207818%_ (let () (declare (not safe)) - (##cdr _%e206454206492%_)))) + (##cdr _%e207773207811%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206456206499%_)) - (let ((_%e206457206502%_ + (gx#stx-pair? _%tl207775207818%_)) + (let ((_%e207776207821%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206456206499%_)))) - (let ((_%hd206458206506%_ + (gx#syntax-e _%tl207775207818%_)))) + (let ((_%hd207777207825%_ (let () (declare (not safe)) - (##car _%e206457206502%_))) - (_%tl206459206509%_ + (##car _%e207776207821%_))) + (_%tl207778207828%_ (let () (declare (not safe)) - (##cdr _%e206457206502%_)))) + (##cdr _%e207776207821%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206459206509%_)) - ((lambda (_%L206512%_ - _%L206514%_ - _%L206515%_ - _%L206516%_) + (gx#stx-null? _%tl207778207828%_)) + ((lambda (_%L207831%_ + _%L207833%_ + _%L207834%_ + _%L207835%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -3868,25 +3868,25 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206516%_ '())) + (cons _%L207835%_ '())) (cons 'return: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206515%_ '())) + (cons _%L207834%_ '())) (cons 'effect: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206514%_ '())) + (cons _%L207833%_ '())) (cons 'unchecked: (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206512%_ '())) + (cons _%L207831%_ '())) (cons 'origin: (cons (cons (let () (declare (not safe)) @@ -3898,779 +3898,779 @@ '())))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd206458206506%_ - _%hd206455206496%_ - _%hd206452206486%_ - _%hd206449206476%_) - (_%g206442206465%_ - _%g206443206469%_)))) - (_%g206442206465%_ _%g206443206469%_)))) - (_%g206442206465%_ _%g206443206469%_)))) - (_%g206442206465%_ _%g206443206469%_)))) + _%hd207777207825%_ + _%hd207774207815%_ + _%hd207771207805%_ + _%hd207768207795%_) + (_%g207761207784%_ + _%g207762207788%_)))) + (_%g207761207784%_ _%g207762207788%_)))) + (_%g207761207784%_ _%g207762207788%_)))) + (_%g207761207784%_ _%g207762207788%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206442206465%_ - _%g206443206469%_))))) - (_%g206441206539%_ - (list _%args206425%_ - _%return206427%_ - _%effect206428%_ - _%unchecked206429%_))) + (_%g207761207784%_ + _%g207762207788%_))))) + (_%g207760207858%_ + (list _%args207744%_ + _%return207746%_ + _%effect207747%_ + _%unchecked207748%_))) '())))))) - (|gxc[1]#verify-procedure!| _%ctx205861%_ _%proc205863%_) - (let* ((_%__stx208708208709%_ _%sig205864%_) - (_%g205875205978%_ + (|gxc[1]#verify-procedure!| _%ctx207180%_ _%proc207182%_) + (let* ((_%__stx210027210028%_ _%sig207183%_) + (_%g207194207297%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208708208709%_))))) - (let ((_%__kont208711208712%_ - (lambda (_%L206406%_ _%L206408%_) - (_%make-signature205868%_ - _%L206408%_ - _%L206406%_ + _%__stx210027210028%_))))) + (let ((_%__kont210030210031%_ + (lambda (_%L207725%_ _%L207727%_) + (_%make-signature207187%_ + _%L207727%_ + _%L207725%_ '#f '#f))) - (_%__kont208713208714%_ - (lambda (_%L206357%_ _%L206359%_ _%L206360%_) - (_%make-signature205868%_ - _%L206360%_ - _%L206359%_ - _%L206357%_ + (_%__kont210032210033%_ + (lambda (_%L207676%_ _%L207678%_ _%L207679%_) + (_%make-signature207187%_ + _%L207679%_ + _%L207678%_ + _%L207676%_ '#f))) - (_%__kont208715208716%_ - (lambda (_%L206281%_ _%L206283%_ _%L206284%_) - (_%make-signature205868%_ - _%L206284%_ - _%L206283%_ - _%L206281%_ - (let ((__tmp209069 + (_%__kont210034210035%_ + (lambda (_%L207600%_ _%L207602%_ _%L207603%_) + (_%make-signature207187%_ + _%L207603%_ + _%L207602%_ + _%L207600%_ + (let ((__tmp210388 (let () (declare (not safe)) - (gx#stx-e _%proc205863%_)))) + (gx#stx-e _%proc207182%_)))) (declare (not safe)) - (make-symbol__1 '"##" __tmp209069))))) - (_%__kont208717208718%_ - (lambda (_%L206187%_ _%L206189%_ _%L206190%_ _%L206191%_) - (_%make-signature205868%_ - _%L206191%_ - _%L206190%_ + (make-symbol__1 '"##" __tmp210388))))) + (_%__kont210036210037%_ + (lambda (_%L207506%_ _%L207508%_ _%L207509%_ _%L207510%_) + (_%make-signature207187%_ + _%L207510%_ + _%L207509%_ '#f - (let () (declare (not safe)) (gx#stx-e _%L206187%_))))) - (_%__kont208719208720%_ - (lambda (_%L206094%_ _%L206096%_) - (_%make-signature205868%_ - _%L206096%_ - _%L206094%_ + (let () (declare (not safe)) (gx#stx-e _%L207506%_))))) + (_%__kont210038210039%_ + (lambda (_%L207413%_ _%L207415%_) + (_%make-signature207187%_ + _%L207415%_ + _%L207413%_ '#f - (let ((__tmp209070 + (let ((__tmp210389 (let () (declare (not safe)) - (gx#stx-e _%proc205863%_)))) + (gx#stx-e _%proc207182%_)))) (declare (not safe)) - (make-symbol__1 '"##" __tmp209070))))) - (_%__kont208721208722%_ - (lambda (_%L206029%_ _%L206031%_ _%L206032%_) - (_%make-signature205868%_ - _%L206032%_ - _%L206031%_ + (make-symbol__1 '"##" __tmp210389))))) + (_%__kont210040210041%_ + (lambda (_%L207348%_ _%L207350%_ _%L207351%_) + (_%make-signature207187%_ + _%L207351%_ + _%L207350%_ '#f - (let () (declare (not safe)) (gx#stx-e _%L206029%_)))))) + (let () (declare (not safe)) (gx#stx-e _%L207348%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208708208709%_)) - (let ((_%e205879206386%_ + (gx#stx-pair? _%__stx210027210028%_)) + (let ((_%e207198207705%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208708208709%_)))) - (let ((_%tl205881206393%_ + (gx#syntax-e _%__stx210027210028%_)))) + (let ((_%tl207200207712%_ (let () (declare (not safe)) - (##cdr _%e205879206386%_))) - (_%hd205880206390%_ + (##cdr _%e207198207705%_))) + (_%hd207199207709%_ (let () (declare (not safe)) - (##car _%e205879206386%_)))) + (##car _%e207198207705%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205881206393%_)) - (let ((_%e205882206396%_ + (gx#stx-pair? _%tl207200207712%_)) + (let ((_%e207201207715%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205881206393%_)))) - (let ((_%tl205884206403%_ + (gx#syntax-e _%tl207200207712%_)))) + (let ((_%tl207203207722%_ (let () (declare (not safe)) - (##cdr _%e205882206396%_))) - (_%hd205883206400%_ + (##cdr _%e207201207715%_))) + (_%hd207202207719%_ (let () (declare (not safe)) - (##car _%e205882206396%_)))) + (##car _%e207201207715%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205884206403%_)) - (_%__kont208711208712%_ - _%hd205883206400%_ - _%hd205880206390%_) + (gx#stx-null? _%tl207203207722%_)) + (_%__kont210030210031%_ + _%hd207202207719%_ + _%hd207199207709%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205884206403%_)) - (let ((_%e205894206333%_ + (gx#stx-pair? _%tl207203207722%_)) + (let ((_%e207213207652%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205884206403%_)))) - (let ((_%tl205896206340%_ + _%tl207203207722%_)))) + (let ((_%tl207215207659%_ (let () (declare (not safe)) - (##cdr _%e205894206333%_))) - (_%hd205895206337%_ + (##cdr _%e207213207652%_))) + (_%hd207214207656%_ (let () (declare (not safe)) - (##car _%e205894206333%_)))) + (##car _%e207213207652%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd205895206337%_)) - (let ((_%e205897206343%_ + _%hd207214207656%_)) + (let ((_%e207216207662%_ (let () (declare (not safe)) (gx#stx-e - _%hd205895206337%_)))) - (if (equal? _%e205897206343%_ + _%hd207214207656%_)))) + (if (equal? _%e207216207662%_ 'effect:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205896206340%_)) - (let ((_%e205898206347%_ + _%tl207215207659%_)) + (let ((_%e207217207666%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl205896206340%_)))) - (let ((_%tl205900206354%_ + (gx#syntax-e _%tl207215207659%_)))) + (let ((_%tl207219207673%_ (let () (declare (not safe)) - (##cdr _%e205898206347%_))) - (_%hd205899206351%_ + (##cdr _%e207217207666%_))) + (_%hd207218207670%_ (let () (declare (not safe)) - (##car _%e205898206347%_)))) + (##car _%e207217207666%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205900206354%_)) - (_%__kont208713208714%_ - _%hd205899206351%_ - _%hd205883206400%_ - _%hd205880206390%_) + (gx#stx-null? _%tl207219207673%_)) + (_%__kont210032210033%_ + _%hd207218207670%_ + _%hd207202207719%_ + _%hd207199207709%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205900206354%_)) - (let ((_%e205917206267%_ + (gx#stx-pair? _%tl207219207673%_)) + (let ((_%e207236207586%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205900206354%_)))) - (let ((_%tl205919206274%_ + (gx#syntax-e _%tl207219207673%_)))) + (let ((_%tl207238207593%_ (let () (declare (not safe)) - (##cdr _%e205917206267%_))) - (_%hd205918206271%_ + (##cdr _%e207236207586%_))) + (_%hd207237207590%_ (let () (declare (not safe)) - (##car _%e205917206267%_)))) + (##car _%e207236207586%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205918206271%_)) - (let ((_%e205920206277%_ + (gx#stx-datum? _%hd207237207590%_)) + (let ((_%e207239207596%_ (let () (declare (not safe)) - (gx#stx-e _%hd205918206271%_)))) - (if (equal? _%e205920206277%_ + (gx#stx-e _%hd207237207590%_)))) + (if (equal? _%e207239207596%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205919206274%_)) - (_%__kont208715208716%_ - _%hd205899206351%_ - _%hd205883206400%_ - _%hd205880206390%_) + _%tl207238207593%_)) + (_%__kont210034210035%_ + _%hd207218207670%_ + _%hd207202207719%_ + _%hd207199207709%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205919206274%_)) - (let ((_%e205942206177%_ + _%tl207238207593%_)) + (let ((_%e207261207496%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205919206274%_)))) - (let ((_%tl205944206184%_ + _%tl207238207593%_)))) + (let ((_%tl207263207503%_ (let () (declare (not safe)) - (##cdr _%e205942206177%_))) - (_%hd205943206181%_ + (##cdr _%e207261207496%_))) + (_%hd207262207500%_ (let () (declare (not safe)) - (##car _%e205942206177%_)))) + (##car _%e207261207496%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205944206184%_)) - (_%__kont208717208718%_ - _%hd205943206181%_ - _%hd205899206351%_ - _%hd205883206400%_ - _%hd205880206390%_) + _%tl207263207503%_)) + (_%__kont210036210037%_ + _%hd207262207500%_ + _%hd207218207670%_ + _%hd207202207719%_ + _%hd207199207709%_) (let () (declare (not safe)) - (_%g205875205978%_))))) + (_%g207194207297%_))))) (let () (declare (not safe)) - (_%g205875205978%_)))) + (_%g207194207297%_)))) (let () (declare (not safe)) - (_%g205875205978%_)))) + (_%g207194207297%_)))) (let () (declare (not safe)) - (_%g205875205978%_))))) + (_%g207194207297%_))))) (let () (declare (not safe)) - (_%g205875205978%_)))))) - (let () (declare (not safe)) (_%g205875205978%_))) + (_%g207194207297%_)))))) + (let () (declare (not safe)) (_%g207194207297%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e205897206343%_ + (if (equal? _%e207216207662%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205896206340%_)) - (_%__kont208719208720%_ - _%hd205883206400%_ - _%hd205880206390%_) + _%tl207215207659%_)) + (_%__kont210038210039%_ + _%hd207202207719%_ + _%hd207199207709%_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl205896206340%_)) - (let ((_%e205970206019%_ + (gx#stx-pair? _%tl207215207659%_)) + (let ((_%e207289207338%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205896206340%_)))) - (let ((_%tl205972206026%_ + (gx#syntax-e _%tl207215207659%_)))) + (let ((_%tl207291207345%_ (let () (declare (not safe)) - (##cdr _%e205970206019%_))) - (_%hd205971206023%_ + (##cdr _%e207289207338%_))) + (_%hd207290207342%_ (let () (declare (not safe)) - (##car _%e205970206019%_)))) + (##car _%e207289207338%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205972206026%_)) - (_%__kont208721208722%_ - _%hd205971206023%_ - _%hd205883206400%_ - _%hd205880206390%_) + (gx#stx-null? _%tl207291207345%_)) + (_%__kont210040210041%_ + _%hd207290207342%_ + _%hd207202207719%_ + _%hd207199207709%_) (let () (declare (not safe)) - (_%g205875205978%_))))) - (let () (declare (not safe)) (_%g205875205978%_)))) - (let () (declare (not safe)) (_%g205875205978%_))))) + (_%g207194207297%_))))) + (let () (declare (not safe)) (_%g207194207297%_)))) + (let () (declare (not safe)) (_%g207194207297%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g205875205978%_))))) + (_%g207194207297%_))))) (let () (declare (not safe)) - (_%g205875205978%_)))))) - (let () (declare (not safe)) (_%g205875205978%_))))) - (let () (declare (not safe)) (_%g205875205978%_)))))))) + (_%g207194207297%_)))))) + (let () (declare (not safe)) (_%g207194207297%_))))) + (let () (declare (not safe)) (_%g207194207297%_)))))))) (define |gxc[1]#signature->unchecked-signature| - (lambda (_%sig205472%_) - (let* ((_%g205475205555%_ - (lambda (_%g205476205551%_) + (lambda (_%sig206791%_) + (let* ((_%g206794206874%_ + (lambda (_%g206795206870%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205476205551%_)))) - (_%g205474205857%_ - (lambda (_%g205476205559%_) + _%g206795206870%_)))) + (_%g206793207176%_ + (lambda (_%g206795206878%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g205476205559%_)) - (let ((_%e205482205562%_ + (gx#stx-pair? _%g206795206878%_)) + (let ((_%e206801206881%_ (let () (declare (not safe)) - (gx#syntax-e _%g205476205559%_)))) - (let ((_%hd205483205566%_ + (gx#syntax-e _%g206795206878%_)))) + (let ((_%hd206802206885%_ (let () (declare (not safe)) - (##car _%e205482205562%_))) - (_%tl205484205569%_ + (##car _%e206801206881%_))) + (_%tl206803206888%_ (let () (declare (not safe)) - (##cdr _%e205482205562%_)))) + (##cdr _%e206801206881%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205484205569%_)) - (let ((_%e205485205572%_ + (gx#stx-pair? _%tl206803206888%_)) + (let ((_%e206804206891%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205484205569%_)))) - (let ((_%hd205486205576%_ + (gx#syntax-e _%tl206803206888%_)))) + (let ((_%hd206805206895%_ (let () (declare (not safe)) - (##car _%e205485205572%_))) - (_%tl205487205579%_ + (##car _%e206804206891%_))) + (_%tl206806206898%_ (let () (declare (not safe)) - (##cdr _%e205485205572%_)))) + (##cdr _%e206804206891%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205486205576%_)) - (let ((_%e205488205582%_ + (gx#stx-datum? _%hd206805206895%_)) + (let ((_%e206807206901%_ (let () (declare (not safe)) - (gx#stx-e _%hd205486205576%_)))) - (if (equal? _%e205488205582%_ + (gx#stx-e _%hd206805206895%_)))) + (if (equal? _%e206807206901%_ 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205487205579%_)) - (let ((_%e205489205586%_ + _%tl206806206898%_)) + (let ((_%e206808206905%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205487205579%_)))) - (let ((_%hd205490205590%_ + _%tl206806206898%_)))) + (let ((_%hd206809206909%_ (let () (declare (not safe)) - (##car _%e205489205586%_))) - (_%tl205491205593%_ + (##car _%e206808206905%_))) + (_%tl206810206912%_ (let () (declare (not safe)) - (##cdr _%e205489205586%_)))) + (##cdr _%e206808206905%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205490205590%_)) - (let ((_%e205492205596%_ + _%hd206809206909%_)) + (let ((_%e206811206915%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd205490205590%_)))) - (let ((_%hd205493205600%_ + (gx#syntax-e _%hd206809206909%_)))) + (let ((_%hd206812206919%_ (let () (declare (not safe)) - (##car _%e205492205596%_))) - (_%tl205494205603%_ + (##car _%e206811206915%_))) + (_%tl206813206922%_ (let () (declare (not safe)) - (##cdr _%e205492205596%_)))) + (##cdr _%e206811206915%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205493205600%_)) - (if (let ((__tmp209071 |gxc[1]#_g209072_|)) + (gx#identifier? _%hd206812206919%_)) + (if (let ((__tmp210390 |gxc[1]#_g210391_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209071 - _%hd205493205600%_)) + __tmp210390 + _%hd206812206919%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205494205603%_)) - (let ((_%e205495205606%_ + (gx#stx-pair? _%tl206813206922%_)) + (let ((_%e206814206925%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205494205603%_)))) - (let ((_%hd205496205610%_ + (gx#syntax-e _%tl206813206922%_)))) + (let ((_%hd206815206929%_ (let () (declare (not safe)) - (##car _%e205495205606%_))) - (_%tl205497205613%_ + (##car _%e206814206925%_))) + (_%tl206816206932%_ (let () (declare (not safe)) - (##cdr _%e205495205606%_)))) + (##cdr _%e206814206925%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205497205613%_)) + (gx#stx-null? _%tl206816206932%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205491205593%_)) - (let ((_%e205498205616%_ + _%tl206810206912%_)) + (let ((_%e206817206935%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205491205593%_)))) - (let ((_%hd205499205620%_ + _%tl206810206912%_)))) + (let ((_%hd206818206939%_ (let () (declare (not safe)) - (##car _%e205498205616%_))) - (_%tl205500205623%_ + (##car _%e206817206935%_))) + (_%tl206819206942%_ (let () (declare (not safe)) - (##cdr _%e205498205616%_)))) + (##cdr _%e206817206935%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd205499205620%_)) - (let ((_%e205501205626%_ + _%hd206818206939%_)) + (let ((_%e206820206945%_ (let () (declare (not safe)) (gx#stx-e - _%hd205499205620%_)))) - (if (equal? _%e205501205626%_ + _%hd206818206939%_)))) + (if (equal? _%e206820206945%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'return:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205500205623%_)) - (let ((_%e205502205630%_ + (gx#stx-pair? _%tl206819206942%_)) + (let ((_%e206821206949%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205500205623%_)))) - (let ((_%hd205503205634%_ + (gx#syntax-e _%tl206819206942%_)))) + (let ((_%hd206822206953%_ (let () (declare (not safe)) - (##car _%e205502205630%_))) - (_%tl205504205637%_ + (##car _%e206821206949%_))) + (_%tl206823206956%_ (let () (declare (not safe)) - (##cdr _%e205502205630%_)))) + (##cdr _%e206821206949%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205503205634%_)) - (let ((_%e205505205640%_ + (gx#stx-pair? _%hd206822206953%_)) + (let ((_%e206824206959%_ (let () (declare (not safe)) - (gx#syntax-e _%hd205503205634%_)))) - (let ((_%hd205506205644%_ + (gx#syntax-e _%hd206822206953%_)))) + (let ((_%hd206825206963%_ (let () (declare (not safe)) - (##car _%e205505205640%_))) - (_%tl205507205647%_ + (##car _%e206824206959%_))) + (_%tl206826206966%_ (let () (declare (not safe)) - (##cdr _%e205505205640%_)))) + (##cdr _%e206824206959%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205506205644%_)) - (if (let ((__tmp209073 - |gxc[1]#_g209074_|)) + (gx#identifier? _%hd206825206963%_)) + (if (let ((__tmp210392 + |gxc[1]#_g210393_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209073 - _%hd205506205644%_)) + __tmp210392 + _%hd206825206963%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205507205647%_)) - (let ((_%e205508205650%_ + _%tl206826206966%_)) + (let ((_%e206827206969%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205507205647%_)))) - (let ((_%hd205509205654%_ + _%tl206826206966%_)))) + (let ((_%hd206828206973%_ (let () (declare (not safe)) - (##car _%e205508205650%_))) - (_%tl205510205657%_ + (##car _%e206827206969%_))) + (_%tl206829206976%_ (let () (declare (not safe)) - (##cdr _%e205508205650%_)))) + (##cdr _%e206827206969%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205510205657%_)) + _%tl206829206976%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205504205637%_)) - (let ((_%e205511205660%_ + _%tl206823206956%_)) + (let ((_%e206830206979%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl205504205637%_)))) - (let ((_%hd205512205664%_ + (gx#syntax-e _%tl206823206956%_)))) + (let ((_%hd206831206983%_ (let () (declare (not safe)) - (##car _%e205511205660%_))) - (_%tl205513205667%_ + (##car _%e206830206979%_))) + (_%tl206832206986%_ (let () (declare (not safe)) - (##cdr _%e205511205660%_)))) + (##cdr _%e206830206979%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205512205664%_)) - (let ((_%e205514205670%_ + (gx#stx-datum? _%hd206831206983%_)) + (let ((_%e206833206989%_ (let () (declare (not safe)) - (gx#stx-e _%hd205512205664%_)))) - (if (equal? _%e205514205670%_ 'effect:) + (gx#stx-e _%hd206831206983%_)))) + (if (equal? _%e206833206989%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205513205667%_)) - (let ((_%e205515205674%_ + (gx#stx-pair? _%tl206832206986%_)) + (let ((_%e206834206993%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205513205667%_)))) - (let ((_%hd205516205678%_ + _%tl206832206986%_)))) + (let ((_%hd206835206997%_ (let () (declare (not safe)) - (##car _%e205515205674%_))) - (_%tl205517205681%_ + (##car _%e206834206993%_))) + (_%tl206836207000%_ (let () (declare (not safe)) - (##cdr _%e205515205674%_)))) + (##cdr _%e206834206993%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205516205678%_)) - (let ((_%e205518205684%_ + _%hd206835206997%_)) + (let ((_%e206837207003%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205516205678%_)))) - (let ((_%hd205519205688%_ + _%hd206835206997%_)))) + (let ((_%hd206838207007%_ (let () (declare (not safe)) - (##car _%e205518205684%_))) - (_%tl205520205691%_ + (##car _%e206837207003%_))) + (_%tl206839207010%_ (let () (declare (not safe)) - (##cdr _%e205518205684%_)))) + (##cdr _%e206837207003%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd205519205688%_)) - (if (let ((__tmp209075 - |gxc[1]#_g209076_|)) + _%hd206838207007%_)) + (if (let ((__tmp210394 + |gxc[1]#_g210395_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209075 - _%hd205519205688%_)) + __tmp210394 + _%hd206838207007%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205520205691%_)) - (let ((_%e205521205694%_ + _%tl206839207010%_)) + (let ((_%e206840207013%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl205520205691%_)))) - (let ((_%hd205522205698%_ + (gx#syntax-e _%tl206839207010%_)))) + (let ((_%hd206841207017%_ (let () (declare (not safe)) - (##car _%e205521205694%_))) - (_%tl205523205701%_ + (##car _%e206840207013%_))) + (_%tl206842207020%_ (let () (declare (not safe)) - (##cdr _%e205521205694%_)))) + (##cdr _%e206840207013%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205523205701%_)) + (gx#stx-null? _%tl206842207020%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205517205681%_)) - (let ((_%e205524205704%_ + (gx#stx-pair? _%tl206836207000%_)) + (let ((_%e206843207023%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205517205681%_)))) - (let ((_%hd205525205708%_ + (gx#syntax-e _%tl206836207000%_)))) + (let ((_%hd206844207027%_ (let () (declare (not safe)) - (##car _%e205524205704%_))) - (_%tl205526205711%_ + (##car _%e206843207023%_))) + (_%tl206845207030%_ (let () (declare (not safe)) - (##cdr _%e205524205704%_)))) + (##cdr _%e206843207023%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205525205708%_)) - (let ((_%e205527205714%_ + (gx#stx-datum? _%hd206844207027%_)) + (let ((_%e206846207033%_ (let () (declare (not safe)) (gx#stx-e - _%hd205525205708%_)))) - (if (equal? _%e205527205714%_ + _%hd206844207027%_)))) + (if (equal? _%e206846207033%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205526205711%_)) - (let ((_%e205528205718%_ + _%tl206845207030%_)) + (let ((_%e206847207037%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205526205711%_)))) - (let ((_%hd205529205722%_ + _%tl206845207030%_)))) + (let ((_%hd206848207041%_ (let () (declare (not safe)) - (##car _%e205528205718%_))) - (_%tl205530205725%_ + (##car _%e206847207037%_))) + (_%tl206849207044%_ (let () (declare (not safe)) - (##cdr _%e205528205718%_)))) + (##cdr _%e206847207037%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205529205722%_)) - (let ((_%e205531205728%_ + _%hd206848207041%_)) + (let ((_%e206850207047%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd205529205722%_)))) - (let ((_%hd205532205732%_ + (gx#syntax-e _%hd206848207041%_)))) + (let ((_%hd206851207051%_ (let () (declare (not safe)) - (##car _%e205531205728%_))) - (_%tl205533205735%_ + (##car _%e206850207047%_))) + (_%tl206852207054%_ (let () (declare (not safe)) - (##cdr _%e205531205728%_)))) + (##cdr _%e206850207047%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205532205732%_)) - (if (let ((__tmp209077 |gxc[1]#_g209078_|)) + (gx#identifier? _%hd206851207051%_)) + (if (let ((__tmp210396 |gxc[1]#_g210397_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209077 - _%hd205532205732%_)) + __tmp210396 + _%hd206851207051%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205533205735%_)) - (let ((_%e205534205738%_ + (gx#stx-pair? _%tl206852207054%_)) + (let ((_%e206853207057%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205533205735%_)))) - (let ((_%hd205535205742%_ + (gx#syntax-e _%tl206852207054%_)))) + (let ((_%hd206854207061%_ (let () (declare (not safe)) - (##car _%e205534205738%_))) - (_%tl205536205745%_ + (##car _%e206853207057%_))) + (_%tl206855207064%_ (let () (declare (not safe)) - (##cdr _%e205534205738%_)))) + (##cdr _%e206853207057%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205536205745%_)) + (gx#stx-null? _%tl206855207064%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205530205725%_)) - (let ((_%e205537205748%_ + _%tl206849207044%_)) + (let ((_%e206856207067%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205530205725%_)))) - (let ((_%hd205538205752%_ + _%tl206849207044%_)))) + (let ((_%hd206857207071%_ (let () (declare (not safe)) - (##car _%e205537205748%_))) - (_%tl205539205755%_ + (##car _%e206856207067%_))) + (_%tl206858207074%_ (let () (declare (not safe)) - (##cdr _%e205537205748%_)))) + (##cdr _%e206856207067%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd205538205752%_)) - (let ((_%e205540205758%_ + _%hd206857207071%_)) + (let ((_%e206859207077%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd205538205752%_)))) - (if (equal? _%e205540205758%_ 'origin:) + (gx#stx-e _%hd206857207071%_)))) + (if (equal? _%e206859207077%_ 'origin:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205539205755%_)) - (let ((_%e205541205762%_ + (gx#stx-pair? _%tl206858207074%_)) + (let ((_%e206860207081%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205539205755%_)))) - (let ((_%hd205542205766%_ + (gx#syntax-e _%tl206858207074%_)))) + (let ((_%hd206861207085%_ (let () (declare (not safe)) - (##car _%e205541205762%_))) - (_%tl205543205769%_ + (##car _%e206860207081%_))) + (_%tl206862207088%_ (let () (declare (not safe)) - (##cdr _%e205541205762%_)))) + (##cdr _%e206860207081%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205542205766%_)) - (let ((_%e205544205772%_ + (gx#stx-pair? _%hd206861207085%_)) + (let ((_%e206863207091%_ (let () (declare (not safe)) - (gx#syntax-e _%hd205542205766%_)))) - (let ((_%hd205545205776%_ + (gx#syntax-e _%hd206861207085%_)))) + (let ((_%hd206864207095%_ (let () (declare (not safe)) - (##car _%e205544205772%_))) - (_%tl205546205779%_ + (##car _%e206863207091%_))) + (_%tl206865207098%_ (let () (declare (not safe)) - (##cdr _%e205544205772%_)))) + (##cdr _%e206863207091%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205545205776%_)) - (if (let ((__tmp209079 - |gxc[1]#_g209080_|)) + (gx#identifier? _%hd206864207095%_)) + (if (let ((__tmp210398 + |gxc[1]#_g210399_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209079 - _%hd205545205776%_)) + __tmp210398 + _%hd206864207095%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205546205779%_)) - (let ((_%e205547205782%_ + _%tl206865207098%_)) + (let ((_%e206866207101%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205546205779%_)))) - (let ((_%hd205548205786%_ + _%tl206865207098%_)))) + (let ((_%hd206867207105%_ (let () (declare (not safe)) - (##car _%e205547205782%_))) - (_%tl205549205789%_ + (##car _%e206866207101%_))) + (_%tl206868207108%_ (let () (declare (not safe)) - (##cdr _%e205547205782%_)))) + (##cdr _%e206866207101%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205549205789%_)) + _%tl206868207108%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205543205769%_)) - ((lambda (_%L205792%_ + _%tl206862207088%_)) + ((lambda (_%L207111%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L205794%_ - _%L205795%_ - _%L205796%_ - _%L205797%_) - (if (let () (declare (not safe)) (gx#stx-e _%L205794%_)) - (cons _%L205794%_ + _%L207113%_ + _%L207114%_ + _%L207115%_ + _%L207116%_) + (if (let () (declare (not safe)) (gx#stx-e _%L207113%_)) + (cons _%L207113%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -4681,180 +4681,180 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205796%_ '())) + (cons _%L207115%_ '())) (cons 'origin: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205792%_ '())) + (cons _%L207111%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '#f)) - _%hd205548205786%_ - _%hd205535205742%_ - _%hd205522205698%_ - _%hd205509205654%_ - _%hd205496205610%_) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)))) + _%hd206867207105%_ + _%hd206854207061%_ + _%hd206841207017%_ + _%hd206828206973%_ + _%hd206815206929%_) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205475205555%_ - _%g205476205559%_)) - (_%g205475205555%_ - _%g205476205559%_)) - (_%g205475205555%_ - _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_))) - (_%g205475205555%_ _%g205476205559%_)))) + (_%g206794206874%_ + _%g206795206878%_)) + (_%g206794206874%_ + _%g206795206878%_)) + (_%g206794206874%_ + _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_))) + (_%g206794206874%_ _%g206795206878%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205475205555%_ - _%g205476205559%_)) - (_%g205475205555%_ - _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)))) + (_%g206794206874%_ + _%g206795206878%_)) + (_%g206794206874%_ + _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205475205555%_ - _%g205476205559%_)) - (_%g205475205555%_ - _%g205476205559%_))) - (_%g205475205555%_ - _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)) + (_%g206794206874%_ + _%g206795206878%_)) + (_%g206794206874%_ + _%g206795206878%_))) + (_%g206794206874%_ + _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205475205555%_ - _%g205476205559%_)))) - (_%g205475205555%_ - _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_))) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)))) + (_%g206794206874%_ + _%g206795206878%_)))) + (_%g206794206874%_ + _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_))) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205475205555%_ - _%g205476205559%_)) - (_%g205475205555%_ - _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_))) + (_%g206794206874%_ + _%g206795206878%_)) + (_%g206794206874%_ + _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205475205555%_ - _%g205476205559%_)))) - (_%g205475205555%_ - _%g205476205559%_)) - (_%g205475205555%_ - _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)))) + (_%g206794206874%_ + _%g206795206878%_)))) + (_%g206794206874%_ + _%g206795206878%_)) + (_%g206794206874%_ + _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205475205555%_ - _%g205476205559%_)) - (_%g205475205555%_ - _%g205476205559%_))) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_)))) - (_%g205475205555%_ _%g205476205559%_))))) - (_%g205474205857%_ _%sig205472%_)))) + (_%g206794206874%_ + _%g206795206878%_)) + (_%g206794206874%_ + _%g206795206878%_))) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_)))) + (_%g206794206874%_ _%g206795206878%_))))) + (_%g206793207176%_ _%sig206791%_)))) (define |gxc[:0:]#declare-primitive-predicate| - (lambda (_%stx206629%_) - (let* ((_%g206632206650%_ - (lambda (_%g206633206646%_) + (lambda (_%stx207948%_) + (let* ((_%g207951207969%_ + (lambda (_%g207952207965%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206633206646%_)))) - (_%g206631206705%_ - (lambda (_%g206633206654%_) + _%g207952207965%_)))) + (_%g207950208024%_ + (lambda (_%g207952207973%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g206633206654%_)) - (let ((_%e206636206657%_ + (gx#stx-pair? _%g207952207973%_)) + (let ((_%e207955207976%_ (let () (declare (not safe)) - (gx#syntax-e _%g206633206654%_)))) - (let ((_%hd206637206661%_ + (gx#syntax-e _%g207952207973%_)))) + (let ((_%hd207956207980%_ (let () (declare (not safe)) - (##car _%e206636206657%_))) - (_%tl206638206664%_ + (##car _%e207955207976%_))) + (_%tl207957207983%_ (let () (declare (not safe)) - (##cdr _%e206636206657%_)))) + (##cdr _%e207955207976%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206638206664%_)) - (let ((_%e206639206667%_ + (gx#stx-pair? _%tl207957207983%_)) + (let ((_%e207958207986%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206638206664%_)))) - (let ((_%hd206640206671%_ + (gx#syntax-e _%tl207957207983%_)))) + (let ((_%hd207959207990%_ (let () (declare (not safe)) - (##car _%e206639206667%_))) - (_%tl206641206674%_ + (##car _%e207958207986%_))) + (_%tl207960207993%_ (let () (declare (not safe)) - (##cdr _%e206639206667%_)))) + (##cdr _%e207958207986%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206641206674%_)) - (let ((_%e206642206677%_ + (gx#stx-pair? _%tl207960207993%_)) + (let ((_%e207961207996%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206641206674%_)))) - (let ((_%hd206643206681%_ + _%tl207960207993%_)))) + (let ((_%hd207962208000%_ (let () (declare (not safe)) - (##car _%e206642206677%_))) - (_%tl206644206684%_ + (##car _%e207961207996%_))) + (_%tl207963208003%_ (let () (declare (not safe)) - (##cdr _%e206642206677%_)))) + (##cdr _%e207961207996%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206644206684%_)) - ((lambda (_%L206687%_ - _%L206689%_) + _%tl207963208003%_)) + ((lambda (_%L208006%_ + _%L208008%_) (if (and (let () (declare (not safe)) (gx#identifier? - _%L206689%_)) + _%L208008%_)) (let () (declare (not safe)) (gx#identifier? - _%L206687%_))) + _%L208006%_))) (begin (|gxc[1]#verify-procedure!| - _%stx206629%_ - _%L206689%_) + _%stx207948%_ + _%L208008%_) (|gxc[1]#verify-class!| - _%stx206629%_ - _%L206687%_) + _%stx207948%_ + _%L208006%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L206689%_ + (cons _%L208008%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -4865,268 +4865,268 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206687%_ '())) + (cons _%L208006%_ '())) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206632206650%_ - _%g206633206654%_))) - _%hd206643206681%_ - _%hd206640206671%_) - (_%g206632206650%_ - _%g206633206654%_)))) - (_%g206632206650%_ _%g206633206654%_)))) - (_%g206632206650%_ _%g206633206654%_)))) - (_%g206632206650%_ _%g206633206654%_))))) - (_%g206631206705%_ _%stx206629%_)))) + (_%g207951207969%_ + _%g207952207973%_))) + _%hd207962208000%_ + _%hd207959207990%_) + (_%g207951207969%_ + _%g207952207973%_)))) + (_%g207951207969%_ _%g207952207973%_)))) + (_%g207951207969%_ _%g207952207973%_)))) + (_%g207951207969%_ _%g207952207973%_))))) + (_%g207950208024%_ _%stx207948%_)))) (define |gxc[:0:]#declare-primitive-lambda| - (lambda (_%stx206709%_) - (let* ((_%g206712206736%_ - (lambda (_%g206713206732%_) + (lambda (_%stx208028%_) + (let* ((_%g208031208055%_ + (lambda (_%g208032208051%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206713206732%_)))) - (_%g206711207019%_ - (lambda (_%g206713206740%_) + _%g208032208051%_)))) + (_%g208030208338%_ + (lambda (_%g208032208059%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g206713206740%_)) - (let ((_%e206716206743%_ + (gx#stx-pair? _%g208032208059%_)) + (let ((_%e208035208062%_ (let () (declare (not safe)) - (gx#syntax-e _%g206713206740%_)))) - (let ((_%hd206717206747%_ + (gx#syntax-e _%g208032208059%_)))) + (let ((_%hd208036208066%_ (let () (declare (not safe)) - (##car _%e206716206743%_))) - (_%tl206718206750%_ + (##car _%e208035208062%_))) + (_%tl208037208069%_ (let () (declare (not safe)) - (##cdr _%e206716206743%_)))) + (##cdr _%e208035208062%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206718206750%_)) - (let ((_%e206719206753%_ + (gx#stx-pair? _%tl208037208069%_)) + (let ((_%e208038208072%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206718206750%_)))) - (let ((_%hd206720206757%_ + (gx#syntax-e _%tl208037208069%_)))) + (let ((_%hd208039208076%_ (let () (declare (not safe)) - (##car _%e206719206753%_))) - (_%tl206721206760%_ + (##car _%e208038208072%_))) + (_%tl208040208079%_ (let () (declare (not safe)) - (##cdr _%e206719206753%_)))) + (##cdr _%e208038208072%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl206721206760%_)) - (let ((_g209081_ + (gx#stx-pair/null? _%tl208040208079%_)) + (let ((_g210400_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl206721206760%_ + _%tl208040208079%_ '0)))) (begin - (let ((_g209082_ + (let ((_g210401_ (let () (declare (not safe)) - (if (##values? _g209081_) - (##vector-length - _g209081_) + (if (##values? _g210400_) + (##values-length + _g210400_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209082_ 2))) + (##fx= _g210401_ 2))) (error "Context expects 2 values" - _g209082_))) - (let ((_%target206722206763%_ + _g210401_))) + (let ((_%target208041208082%_ (let () (declare (not safe)) - (##vector-ref _g209081_ 0))) - (_%tl206724206766%_ + (##values-ref _g210400_ 0))) + (_%tl208043208085%_ (let () (declare (not safe)) - (##vector-ref - _g209081_ + (##values-ref + _g210400_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206724206766%_)) - (letrec ((_%loop206725206769%_ - (lambda (_%hd206723206773%_ + _%tl208043208085%_)) + (letrec ((_%loop208044208088%_ + (lambda (_%hd208042208092%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%signature206729206776%_) + _%signature208048208095%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd206723206773%_)) - (let ((_%e206726206779%_ + (gx#stx-pair? _%hd208042208092%_)) + (let ((_%e208045208098%_ (let () (declare (not safe)) - (gx#syntax-e _%hd206723206773%_)))) - (let ((_%lp-hd206727206783%_ + (gx#syntax-e _%hd208042208092%_)))) + (let ((_%lp-hd208046208102%_ (let () (declare (not safe)) - (##car _%e206726206779%_))) - (_%lp-tl206728206786%_ + (##car _%e208045208098%_))) + (_%lp-tl208047208105%_ (let () (declare (not safe)) - (##cdr _%e206726206779%_)))) - (_%loop206725206769%_ - _%lp-tl206728206786%_ - (cons _%lp-hd206727206783%_ - _%signature206729206776%_)))) - (let ((_%signature206730206789%_ - (reverse _%signature206729206776%_))) - ((lambda (_%L206793%_ _%L206795%_) + (##cdr _%e208045208098%_)))) + (_%loop208044208088%_ + _%lp-tl208047208105%_ + (cons _%lp-hd208046208102%_ + _%signature208048208095%_)))) + (let ((_%signature208049208108%_ + (reverse _%signature208048208095%_))) + ((lambda (_%L208112%_ _%L208114%_) (if (let () (declare (not safe)) - (gx#identifier? _%L206795%_)) - (let* ((_%g206813206828%_ - (lambda (_%g206814206824%_) + (gx#identifier? _%L208114%_)) + (let* ((_%g208132208147%_ + (lambda (_%g208133208143%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206814206824%_)))) - (_%g206812207007%_ - (lambda (_%g206814206832%_) + _%g208133208143%_)))) + (_%g208131208326%_ + (lambda (_%g208133208151%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g206814206832%_)) - (let ((_%e206817206835%_ + _%g208133208151%_)) + (let ((_%e208136208154%_ (let () (declare (not safe)) (gx#syntax-e - _%g206814206832%_)))) - (let ((_%hd206818206839%_ + _%g208133208151%_)))) + (let ((_%hd208137208158%_ (let () (declare (not safe)) - (##car _%e206817206835%_))) - (_%tl206819206842%_ + (##car _%e208136208154%_))) + (_%tl208138208161%_ (let () (declare (not safe)) - (##cdr _%e206817206835%_)))) + (##cdr _%e208136208154%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206819206842%_)) - (let ((_%e206820206845%_ + _%tl208138208161%_)) + (let ((_%e208139208164%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl206819206842%_)))) - (let ((_%hd206821206849%_ + (gx#syntax-e _%tl208138208161%_)))) + (let ((_%hd208140208168%_ (let () (declare (not safe)) - (##car _%e206820206845%_))) - (_%tl206822206852%_ + (##car _%e208139208164%_))) + (_%tl208141208171%_ (let () (declare (not safe)) - (##cdr _%e206820206845%_)))) + (##cdr _%e208139208164%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206822206852%_)) - ((lambda (_%L206855%_ _%L206857%_) - (let* ((_%g206873206881%_ - (lambda (_%g206874206877%_) + (gx#stx-null? _%tl208141208171%_)) + ((lambda (_%L208174%_ _%L208176%_) + (let* ((_%g208192208200%_ + (lambda (_%g208193208196%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206874206877%_)))) - (_%g206872207003%_ - (lambda (_%g206874206885%_) - ((lambda (_%L206888%_) - (let* ((_%unchecked206901%_ + _%g208193208196%_)))) + (_%g208191208322%_ + (lambda (_%g208193208204%_) + ((lambda (_%L208207%_) + (let* ((_%unchecked208220%_ (|gxc[1]#signature->unchecked-signature| - _%L206855%_)) - (_%g206904206912%_ - (lambda (_%g206905206908%_) + _%L208174%_)) + (_%g208223208231%_ + (lambda (_%g208224208227%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206905206908%_)))) - (_%g206903206935%_ - (lambda (_%g206905206916%_) - ((lambda (_%L206919%_) + _%g208224208227%_)))) + (_%g208222208254%_ + (lambda (_%g208224208235%_) + ((lambda (_%L208238%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (cons _%L206888%_ - (cons _%L206919%_ + (cons _%L208207%_ + (cons _%L208238%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g206905206916%_)))) - (_%g206903206935%_ - (if _%unchecked206901%_ - (let* ((_%g206939206954%_ - (lambda (_%g206940206950%_) + _%g208224208235%_)))) + (_%g208222208254%_ + (if _%unchecked208220%_ + (let* ((_%g208258208273%_ + (lambda (_%g208259208269%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206940206950%_)))) - (_%g206938206999%_ - (lambda (_%g206940206958%_) + _%g208259208269%_)))) + (_%g208257208318%_ + (lambda (_%g208259208277%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g206940206958%_)) - (let ((_%e206943206961%_ + _%g208259208277%_)) + (let ((_%e208262208280%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%g206940206958%_)))) - (let ((_%hd206944206965%_ + (gx#syntax-e _%g208259208277%_)))) + (let ((_%hd208263208284%_ (let () (declare (not safe)) - (##car _%e206943206961%_))) - (_%tl206945206968%_ + (##car _%e208262208280%_))) + (_%tl208264208287%_ (let () (declare (not safe)) - (##cdr _%e206943206961%_)))) + (##cdr _%e208262208280%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206945206968%_)) - (let ((_%e206946206971%_ + (gx#stx-pair? _%tl208264208287%_)) + (let ((_%e208265208290%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206945206968%_)))) - (let ((_%hd206947206975%_ + (gx#syntax-e _%tl208264208287%_)))) + (let ((_%hd208266208294%_ (let () (declare (not safe)) - (##car _%e206946206971%_))) - (_%tl206948206978%_ + (##car _%e208265208290%_))) + (_%tl208267208297%_ (let () (declare (not safe)) - (##cdr _%e206946206971%_)))) + (##cdr _%e208265208290%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206948206978%_)) - ((lambda (_%L206981%_ _%L206983%_) + (gx#stx-null? _%tl208267208297%_)) + ((lambda (_%L208300%_ _%L208302%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L206983%_ + (cons _%L208302%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -5134,26 +5134,26 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206857%_ '())) + (cons _%L208176%_ '())) (cons '#f - (cons 'signature: (cons _%L206981%_ '()))))) + (cons 'signature: (cons _%L208300%_ '()))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd206947206975%_ - _%hd206944206965%_) - (_%g206939206954%_ _%g206940206958%_)))) - (_%g206939206954%_ _%g206940206958%_)))) - (_%g206939206954%_ _%g206940206958%_))))) + _%hd208266208294%_ + _%hd208263208284%_) + (_%g208258208273%_ _%g208259208277%_)))) + (_%g208258208273%_ _%g208259208277%_)))) + (_%g208258208273%_ _%g208259208277%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206938206999%_ - _%unchecked206901%_)) + (_%g208257208318%_ + _%unchecked208220%_)) '(begin))))) - _%g206874206885%_)))) - (_%g206872207003%_ + _%g208193208204%_)))) + (_%g208191208322%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L206795%_ + (cons _%L208114%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -5163,313 +5163,313 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206857%_ '())) - (cons '#f (cons 'signature: (cons _%L206855%_ '()))))) + (cons _%L208176%_ '())) + (cons '#f (cons 'signature: (cons _%L208174%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _%hd206821206849%_ - _%hd206818206839%_) - (_%g206813206828%_ _%g206814206832%_)))) - (_%g206813206828%_ _%g206814206832%_)))) + _%hd208140208168%_ + _%hd208137208158%_) + (_%g208132208147%_ _%g208133208151%_)))) + (_%g208132208147%_ _%g208133208151%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206813206828%_ - _%g206814206832%_))))) - (_%g206812207007%_ + (_%g208132208147%_ + _%g208133208151%_))))) + (_%g208131208326%_ (|gxc[1]#parse-signature| - _%stx206709%_ - _%L206795%_ - (let ((__tmp209083 - (lambda (_%g207010207013%_ - _%g207011207016%_) - (cons _%g207010207013%_ - _%g207011207016%_)))) + _%stx208028%_ + _%L208114%_ + (let ((__tmp210402 + (lambda (_%g208329208332%_ + _%g208330208335%_) + (cons _%g208329208332%_ + _%g208330208335%_)))) (declare (not safe)) (__foldr1 - __tmp209083 + __tmp210402 '() - _%L206793%_))))) - (_%g206712206736%_ _%g206713206740%_))) - _%signature206730206789%_ - _%hd206720206757%_)))))) + _%L208112%_))))) + (_%g208031208055%_ _%g208032208059%_))) + _%signature208049208108%_ + _%hd208039208076%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop206725206769%_ - _%target206722206763%_ + (_%loop208044208088%_ + _%target208041208082%_ '())) - (_%g206712206736%_ - _%g206713206740%_))))) - (_%g206712206736%_ _%g206713206740%_)))) - (_%g206712206736%_ _%g206713206740%_)))) - (_%g206712206736%_ _%g206713206740%_))))) - (_%g206711207019%_ _%stx206709%_)))) + (_%g208031208055%_ + _%g208032208059%_))))) + (_%g208031208055%_ _%g208032208059%_)))) + (_%g208031208055%_ _%g208032208059%_)))) + (_%g208031208055%_ _%g208032208059%_))))) + (_%g208030208338%_ _%stx208028%_)))) (define |gxc[:0:]#declare-primitive-case-lambda| - (lambda (_%stx207024%_) - (let* ((_%g207027207051%_ - (lambda (_%g207028207047%_) + (lambda (_%stx208343%_) + (let* ((_%g208346208370%_ + (lambda (_%g208347208366%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207028207047%_)))) - (_%g207026207934%_ - (lambda (_%g207028207055%_) + _%g208347208366%_)))) + (_%g208345209253%_ + (lambda (_%g208347208374%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g207028207055%_)) - (let ((_%e207031207058%_ + (gx#stx-pair? _%g208347208374%_)) + (let ((_%e208350208377%_ (let () (declare (not safe)) - (gx#syntax-e _%g207028207055%_)))) - (let ((_%hd207032207062%_ + (gx#syntax-e _%g208347208374%_)))) + (let ((_%hd208351208381%_ (let () (declare (not safe)) - (##car _%e207031207058%_))) - (_%tl207033207065%_ + (##car _%e208350208377%_))) + (_%tl208352208384%_ (let () (declare (not safe)) - (##cdr _%e207031207058%_)))) + (##cdr _%e208350208377%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207033207065%_)) - (let ((_%e207034207068%_ + (gx#stx-pair? _%tl208352208384%_)) + (let ((_%e208353208387%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207033207065%_)))) - (let ((_%hd207035207072%_ + (gx#syntax-e _%tl208352208384%_)))) + (let ((_%hd208354208391%_ (let () (declare (not safe)) - (##car _%e207034207068%_))) - (_%tl207036207075%_ + (##car _%e208353208387%_))) + (_%tl208355208394%_ (let () (declare (not safe)) - (##cdr _%e207034207068%_)))) + (##cdr _%e208353208387%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl207036207075%_)) - (let ((_g209084_ + (gx#stx-pair/null? _%tl208355208394%_)) + (let ((_g210403_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl207036207075%_ + _%tl208355208394%_ '0)))) (begin - (let ((_g209085_ + (let ((_g210404_ (let () (declare (not safe)) - (if (##values? _g209084_) - (##vector-length - _g209084_) + (if (##values? _g210403_) + (##values-length + _g210403_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209085_ 2))) + (##fx= _g210404_ 2))) (error "Context expects 2 values" - _g209085_))) - (let ((_%target207037207078%_ + _g210404_))) + (let ((_%target208356208397%_ (let () (declare (not safe)) - (##vector-ref _g209084_ 0))) - (_%tl207039207081%_ + (##values-ref _g210403_ 0))) + (_%tl208358208400%_ (let () (declare (not safe)) - (##vector-ref - _g209084_ + (##values-ref + _g210403_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207039207081%_)) - (letrec ((_%loop207040207084%_ - (lambda (_%hd207038207088%_ + _%tl208358208400%_)) + (letrec ((_%loop208359208403%_ + (lambda (_%hd208357208407%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%case-signature207044207091%_) + _%case-signature208363208410%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207038207088%_)) - (let ((_%e207041207094%_ + (gx#stx-pair? _%hd208357208407%_)) + (let ((_%e208360208413%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207038207088%_)))) - (let ((_%lp-hd207042207098%_ + (gx#syntax-e _%hd208357208407%_)))) + (let ((_%lp-hd208361208417%_ (let () (declare (not safe)) - (##car _%e207041207094%_))) - (_%lp-tl207043207101%_ + (##car _%e208360208413%_))) + (_%lp-tl208362208420%_ (let () (declare (not safe)) - (##cdr _%e207041207094%_)))) - (_%loop207040207084%_ - _%lp-tl207043207101%_ - (cons _%lp-hd207042207098%_ - _%case-signature207044207091%_)))) - (let ((_%case-signature207045207104%_ - (reverse _%case-signature207044207091%_))) - ((lambda (_%L207108%_ _%L207110%_) + (##cdr _%e208360208413%_)))) + (_%loop208359208403%_ + _%lp-tl208362208420%_ + (cons _%lp-hd208361208417%_ + _%case-signature208363208410%_)))) + (let ((_%case-signature208364208423%_ + (reverse _%case-signature208363208410%_))) + ((lambda (_%L208427%_ _%L208429%_) (if (let () (declare (not safe)) - (gx#identifier? _%L207110%_)) - (let* ((_%signatures207141%_ - (map (lambda (_%g207127207129%_) + (gx#identifier? _%L208429%_)) + (let* ((_%signatures208460%_ + (map (lambda (_%g208446208448%_) (|gxc[1]#parse-signature| - _%stx207024%_ - _%L207110%_ - _%g207127207129%_)) - (let ((__tmp209086 - (lambda (_%g207132207135%_ - _%g207133207138%_) - (cons _%g207132207135%_ - _%g207133207138%_)))) + _%stx208343%_ + _%L208429%_ + _%g208446208448%_)) + (let ((__tmp210405 + (lambda (_%g208451208454%_ + _%g208452208457%_) + (cons _%g208451208454%_ + _%g208452208457%_)))) (declare (not safe)) (__foldr1 - __tmp209086 + __tmp210405 '() - _%L207108%_)))) - (_%g207144207170%_ - (lambda (_%g207145207166%_) + _%L208427%_)))) + (_%g208463208489%_ + (lambda (_%g208464208485%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207145207166%_)))) - (_%g207143207930%_ - (lambda (_%g207145207174%_) + _%g208464208485%_)))) + (_%g208462209249%_ + (lambda (_%g208464208493%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g207145207174%_)) - (let ((_g209087_ + _%g208464208493%_)) + (let ((_g210406_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g207145207174%_ + _%g208464208493%_ '0)))) (begin - (let ((_g209088_ + (let ((_g210407_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g209087_) - (##vector-length _g209087_) + _g210406_) + (##values-length _g210406_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g209088_ 2))) - (error "Context expects 2 values" _g209088_))) + (##fx= _g210407_ 2))) + (error "Context expects 2 values" _g210407_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target207148207177%_ + (let ((_%target208467208496%_ (let () (declare (not safe)) - (##vector-ref - _g209087_ + (##values-ref + _g210406_ 0))) - (_%tl207150207180%_ + (_%tl208469208499%_ (let () (declare (not safe)) - (##vector-ref - _g209087_ + (##values-ref + _g210406_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207150207180%_)) - (letrec ((_%loop207151207183%_ + _%tl208469208499%_)) + (letrec ((_%loop208470208502%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd207149207187%_ - _%sig207155207190%_ - _%arity207156207192%_) + (lambda (_%hd208468208506%_ + _%sig208474208509%_ + _%arity208475208511%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207149207187%_)) - (let ((_%e207152207195%_ + (gx#stx-pair? _%hd208468208506%_)) + (let ((_%e208471208514%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207149207187%_)))) - (let ((_%lp-hd207153207199%_ + (gx#syntax-e _%hd208468208506%_)))) + (let ((_%lp-hd208472208518%_ (let () (declare (not safe)) - (##car _%e207152207195%_))) - (_%lp-tl207154207202%_ + (##car _%e208471208514%_))) + (_%lp-tl208473208521%_ (let () (declare (not safe)) - (##cdr _%e207152207195%_)))) + (##cdr _%e208471208514%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd207153207199%_)) - (let ((_%e207159207205%_ + _%lp-hd208472208518%_)) + (let ((_%e208478208524%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd207153207199%_)))) - (let ((_%hd207160207209%_ + _%lp-hd208472208518%_)))) + (let ((_%hd208479208528%_ (let () (declare (not safe)) - (##car _%e207159207205%_))) - (_%tl207161207212%_ + (##car _%e208478208524%_))) + (_%tl208480208531%_ (let () (declare (not safe)) - (##cdr _%e207159207205%_)))) + (##cdr _%e208478208524%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207161207212%_)) - (let ((_%e207162207215%_ + _%tl208480208531%_)) + (let ((_%e208481208534%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207161207212%_)))) - (let ((_%hd207163207219%_ + _%tl208480208531%_)))) + (let ((_%hd208482208538%_ (let () (declare (not safe)) - (##car _%e207162207215%_))) - (_%tl207164207222%_ + (##car _%e208481208534%_))) + (_%tl208483208541%_ (let () (declare (not safe)) - (##cdr _%e207162207215%_)))) + (##cdr _%e208481208534%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207164207222%_)) - (_%loop207151207183%_ - _%lp-tl207154207202%_ - (cons _%hd207163207219%_ - _%sig207155207190%_) - (cons _%hd207160207209%_ - _%arity207156207192%_)) - (_%g207144207170%_ - _%g207145207174%_)))) - (_%g207144207170%_ - _%g207145207174%_)))) - (_%g207144207170%_ - _%g207145207174%_)))) - (let ((_%sig207157207225%_ - (reverse _%sig207155207190%_)) - (_%arity207158207228%_ - (reverse _%arity207156207192%_))) - ((lambda (_%L207231%_ _%L207233%_) - (let* ((_%g207250207258%_ - (lambda (_%g207251207254%_) + _%tl208483208541%_)) + (_%loop208470208502%_ + _%lp-tl208473208521%_ + (cons _%hd208482208538%_ + _%sig208474208509%_) + (cons _%hd208479208528%_ + _%arity208475208511%_)) + (_%g208463208489%_ + _%g208464208493%_)))) + (_%g208463208489%_ + _%g208464208493%_)))) + (_%g208463208489%_ + _%g208464208493%_)))) + (let ((_%sig208476208544%_ + (reverse _%sig208474208509%_)) + (_%arity208477208547%_ + (reverse _%arity208475208511%_))) + ((lambda (_%L208550%_ _%L208552%_) + (let* ((_%g208569208577%_ + (lambda (_%g208570208573%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207251207254%_)))) - (_%g207249207915%_ - (lambda (_%g207251207262%_) - ((lambda (_%L207265%_) - (let* ((_%g207278207286%_ - (lambda (_%g207279207282%_) + _%g208570208573%_)))) + (_%g208568209234%_ + (lambda (_%g208570208581%_) + ((lambda (_%L208584%_) + (let* ((_%g208597208605%_ + (lambda (_%g208598208601%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -5477,551 +5477,551 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207279207282%_)))) - (_%g207277207308%_ - (lambda (_%g207279207290%_) - ((lambda (_%L207293%_) + _%g208598208601%_)))) + (_%g208596208627%_ + (lambda (_%g208598208609%_) + ((lambda (_%L208612%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (cons _%L207265%_ (cons _%L207293%_ '())))) - _%g207279207290%_)))) + (cons _%L208584%_ (cons _%L208612%_ '())))) + _%g208598208609%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207277207308%_ - (let ((_g209089_ - (let _%loop207312%_ ((_%rest207315%_ + (_%g208596208627%_ + (let ((_g210408_ + (let _%loop208631%_ ((_%rest208634%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%signatures207141%_) - (_%unchecked-proc207317%_ '#f) - (_%unchecked-clauses207318%_ '())) - (let* ((_%rest207319207327%_ _%rest207315%_) - (_%else207321207339%_ + _%signatures208460%_) + (_%unchecked-proc208636%_ '#f) + (_%unchecked-clauses208637%_ '())) + (let* ((_%rest208638208646%_ _%rest208634%_) + (_%else208640208658%_ (lambda () - (values _%unchecked-proc207317%_ + (values _%unchecked-proc208636%_ (reverse! - _%unchecked-clauses207318%_)))) - (_%K207323207780%_ - (lambda (_%rest207343%_ _%hd207345%_) - (let* ((_%g207347207434%_ - (lambda (_%g207348207430%_) + _%unchecked-clauses208637%_)))) + (_%K208642209099%_ + (lambda (_%rest208662%_ _%hd208664%_) + (let* ((_%g208666208753%_ + (lambda (_%g208667208749%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207348207430%_)))) - (_%g207346207776%_ - (lambda (_%g207348207438%_) + _%g208667208749%_)))) + (_%g208665209095%_ + (lambda (_%g208667208757%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g207348207438%_)) - (let ((_%e207355207441%_ + _%g208667208757%_)) + (let ((_%e208674208760%_ (let () (declare (not safe)) (gx#syntax-e - _%g207348207438%_)))) - (let ((_%hd207356207445%_ + _%g208667208757%_)))) + (let ((_%hd208675208764%_ (let () (declare (not safe)) - (##car _%e207355207441%_))) - (_%tl207357207448%_ + (##car _%e208674208760%_))) + (_%tl208676208767%_ (let () (declare (not safe)) - (##cdr _%e207355207441%_)))) + (##cdr _%e208674208760%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207357207448%_)) - (let ((_%e207358207451%_ + _%tl208676208767%_)) + (let ((_%e208677208770%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl207357207448%_)))) - (let ((_%hd207359207455%_ + (gx#syntax-e _%tl208676208767%_)))) + (let ((_%hd208678208774%_ (let () (declare (not safe)) - (##car _%e207358207451%_))) - (_%tl207360207458%_ + (##car _%e208677208770%_))) + (_%tl208679208777%_ (let () (declare (not safe)) - (##cdr _%e207358207451%_)))) + (##cdr _%e208677208770%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207359207455%_)) - (let ((_%e207361207461%_ + (gx#stx-pair? _%hd208678208774%_)) + (let ((_%e208680208780%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207359207455%_)))) - (let ((_%hd207362207465%_ + (gx#syntax-e _%hd208678208774%_)))) + (let ((_%hd208681208784%_ (let () (declare (not safe)) - (##car _%e207361207461%_))) - (_%tl207363207468%_ + (##car _%e208680208780%_))) + (_%tl208682208787%_ (let () (declare (not safe)) - (##cdr _%e207361207461%_)))) + (##cdr _%e208680208780%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207363207468%_)) - (let ((_%e207364207471%_ + (gx#stx-pair? _%tl208682208787%_)) + (let ((_%e208683208790%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207363207468%_)))) - (let ((_%hd207365207475%_ + (gx#syntax-e _%tl208682208787%_)))) + (let ((_%hd208684208794%_ (let () (declare (not safe)) - (##car _%e207364207471%_))) - (_%tl207366207478%_ + (##car _%e208683208790%_))) + (_%tl208685208797%_ (let () (declare (not safe)) - (##cdr _%e207364207471%_)))) + (##cdr _%e208683208790%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd207365207475%_)) - (let ((_%e207367207481%_ + (gx#stx-datum? _%hd208684208794%_)) + (let ((_%e208686208800%_ (let () (declare (not safe)) (gx#stx-e - _%hd207365207475%_)))) - (if (equal? _%e207367207481%_ + _%hd208684208794%_)))) + (if (equal? _%e208686208800%_ 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207366207478%_)) - (let ((_%e207368207485%_ + _%tl208685208797%_)) + (let ((_%e208687208804%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207366207478%_)))) - (let ((_%hd207369207489%_ + _%tl208685208797%_)))) + (let ((_%hd208688208808%_ (let () (declare (not safe)) - (##car _%e207368207485%_))) - (_%tl207370207492%_ + (##car _%e208687208804%_))) + (_%tl208689208811%_ (let () (declare (not safe)) - (##cdr _%e207368207485%_)))) + (##cdr _%e208687208804%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd207369207489%_)) - (let ((_%e207371207495%_ + _%hd208688208808%_)) + (let ((_%e208690208814%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd207369207489%_)))) - (let ((_%hd207372207499%_ + (gx#syntax-e _%hd208688208808%_)))) + (let ((_%hd208691208818%_ (let () (declare (not safe)) - (##car _%e207371207495%_))) - (_%tl207373207502%_ + (##car _%e208690208814%_))) + (_%tl208692208821%_ (let () (declare (not safe)) - (##cdr _%e207371207495%_)))) + (##cdr _%e208690208814%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207372207499%_)) - (if (let ((__tmp209091 |gxc[1]#_g209092_|)) + (gx#identifier? _%hd208691208818%_)) + (if (let ((__tmp210410 |gxc[1]#_g210411_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209091 - _%hd207372207499%_)) + __tmp210410 + _%hd208691208818%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207373207502%_)) - (let ((_%e207374207505%_ + (gx#stx-pair? _%tl208692208821%_)) + (let ((_%e208693208824%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207373207502%_)))) - (let ((_%hd207375207509%_ + (gx#syntax-e _%tl208692208821%_)))) + (let ((_%hd208694208828%_ (let () (declare (not safe)) - (##car _%e207374207505%_))) - (_%tl207376207512%_ + (##car _%e208693208824%_))) + (_%tl208695208831%_ (let () (declare (not safe)) - (##cdr _%e207374207505%_)))) + (##cdr _%e208693208824%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207376207512%_)) + (gx#stx-null? _%tl208695208831%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207370207492%_)) - (let ((_%e207377207515%_ + _%tl208689208811%_)) + (let ((_%e208696208834%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207370207492%_)))) - (let ((_%hd207378207519%_ + _%tl208689208811%_)))) + (let ((_%hd208697208838%_ (let () (declare (not safe)) - (##car _%e207377207515%_))) - (_%tl207379207522%_ + (##car _%e208696208834%_))) + (_%tl208698208841%_ (let () (declare (not safe)) - (##cdr _%e207377207515%_)))) + (##cdr _%e208696208834%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd207378207519%_)) - (let ((_%e207380207525%_ + _%hd208697208838%_)) + (let ((_%e208699208844%_ (let () (declare (not safe)) (gx#stx-e - _%hd207378207519%_)))) - (if (equal? _%e207380207525%_ + _%hd208697208838%_)))) + (if (equal? _%e208699208844%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'return:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207379207522%_)) - (let ((_%e207381207529%_ + (gx#stx-pair? _%tl208698208841%_)) + (let ((_%e208700208848%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207379207522%_)))) - (let ((_%hd207382207533%_ + (gx#syntax-e _%tl208698208841%_)))) + (let ((_%hd208701208852%_ (let () (declare (not safe)) - (##car _%e207381207529%_))) - (_%tl207383207536%_ + (##car _%e208700208848%_))) + (_%tl208702208855%_ (let () (declare (not safe)) - (##cdr _%e207381207529%_)))) + (##cdr _%e208700208848%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207382207533%_)) - (let ((_%e207384207539%_ + (gx#stx-pair? _%hd208701208852%_)) + (let ((_%e208703208858%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207382207533%_)))) - (let ((_%hd207385207543%_ + (gx#syntax-e _%hd208701208852%_)))) + (let ((_%hd208704208862%_ (let () (declare (not safe)) - (##car _%e207384207539%_))) - (_%tl207386207546%_ + (##car _%e208703208858%_))) + (_%tl208705208865%_ (let () (declare (not safe)) - (##cdr _%e207384207539%_)))) + (##cdr _%e208703208858%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207385207543%_)) - (if (let ((__tmp209093 - |gxc[1]#_g209094_|)) + (gx#identifier? _%hd208704208862%_)) + (if (let ((__tmp210412 + |gxc[1]#_g210413_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209093 - _%hd207385207543%_)) + __tmp210412 + _%hd208704208862%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207386207546%_)) - (let ((_%e207387207549%_ + _%tl208705208865%_)) + (let ((_%e208706208868%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207386207546%_)))) - (let ((_%hd207388207553%_ + _%tl208705208865%_)))) + (let ((_%hd208707208872%_ (let () (declare (not safe)) - (##car _%e207387207549%_))) - (_%tl207389207556%_ + (##car _%e208706208868%_))) + (_%tl208708208875%_ (let () (declare (not safe)) - (##cdr _%e207387207549%_)))) + (##cdr _%e208706208868%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207389207556%_)) + _%tl208708208875%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207383207536%_)) - (let ((_%e207390207559%_ + _%tl208702208855%_)) + (let ((_%e208709208878%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl207383207536%_)))) - (let ((_%hd207391207563%_ + (gx#syntax-e _%tl208702208855%_)))) + (let ((_%hd208710208882%_ (let () (declare (not safe)) - (##car _%e207390207559%_))) - (_%tl207392207566%_ + (##car _%e208709208878%_))) + (_%tl208711208885%_ (let () (declare (not safe)) - (##cdr _%e207390207559%_)))) + (##cdr _%e208709208878%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd207391207563%_)) - (let ((_%e207393207569%_ + (gx#stx-datum? _%hd208710208882%_)) + (let ((_%e208712208888%_ (let () (declare (not safe)) - (gx#stx-e _%hd207391207563%_)))) - (if (equal? _%e207393207569%_ 'effect:) + (gx#stx-e _%hd208710208882%_)))) + (if (equal? _%e208712208888%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207392207566%_)) - (let ((_%e207394207573%_ + (gx#stx-pair? _%tl208711208885%_)) + (let ((_%e208713208892%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207392207566%_)))) - (let ((_%hd207395207577%_ + _%tl208711208885%_)))) + (let ((_%hd208714208896%_ (let () (declare (not safe)) - (##car _%e207394207573%_))) - (_%tl207396207580%_ + (##car _%e208713208892%_))) + (_%tl208715208899%_ (let () (declare (not safe)) - (##cdr _%e207394207573%_)))) + (##cdr _%e208713208892%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd207395207577%_)) - (let ((_%e207397207583%_ + _%hd208714208896%_)) + (let ((_%e208716208902%_ (let () (declare (not safe)) (gx#syntax-e - _%hd207395207577%_)))) - (let ((_%hd207398207587%_ + _%hd208714208896%_)))) + (let ((_%hd208717208906%_ (let () (declare (not safe)) - (##car _%e207397207583%_))) - (_%tl207399207590%_ + (##car _%e208716208902%_))) + (_%tl208718208909%_ (let () (declare (not safe)) - (##cdr _%e207397207583%_)))) + (##cdr _%e208716208902%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd207398207587%_)) - (if (let ((__tmp209095 - |gxc[1]#_g209096_|)) + _%hd208717208906%_)) + (if (let ((__tmp210414 + |gxc[1]#_g210415_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209095 - _%hd207398207587%_)) + __tmp210414 + _%hd208717208906%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl207399207590%_)) - (let ((_%e207400207593%_ + (gx#stx-pair? _%tl208718208909%_)) + (let ((_%e208719208912%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207399207590%_)))) - (let ((_%hd207401207597%_ + (gx#syntax-e _%tl208718208909%_)))) + (let ((_%hd208720208916%_ (let () (declare (not safe)) - (##car _%e207400207593%_))) - (_%tl207402207600%_ + (##car _%e208719208912%_))) + (_%tl208721208919%_ (let () (declare (not safe)) - (##cdr _%e207400207593%_)))) + (##cdr _%e208719208912%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207402207600%_)) + (gx#stx-null? _%tl208721208919%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207396207580%_)) - (let ((_%e207403207603%_ + (gx#stx-pair? _%tl208715208899%_)) + (let ((_%e208722208922%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207396207580%_)))) - (let ((_%hd207404207607%_ + (gx#syntax-e _%tl208715208899%_)))) + (let ((_%hd208723208926%_ (let () (declare (not safe)) - (##car _%e207403207603%_))) - (_%tl207405207610%_ + (##car _%e208722208922%_))) + (_%tl208724208929%_ (let () (declare (not safe)) - (##cdr _%e207403207603%_)))) + (##cdr _%e208722208922%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd207404207607%_)) - (let ((_%e207406207613%_ + (gx#stx-datum? _%hd208723208926%_)) + (let ((_%e208725208932%_ (let () (declare (not safe)) (gx#stx-e - _%hd207404207607%_)))) - (if (equal? _%e207406207613%_ + _%hd208723208926%_)))) + (if (equal? _%e208725208932%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207405207610%_)) - (let ((_%e207407207617%_ + _%tl208724208929%_)) + (let ((_%e208726208936%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207405207610%_)))) - (let ((_%hd207408207621%_ + _%tl208724208929%_)))) + (let ((_%hd208727208940%_ (let () (declare (not safe)) - (##car _%e207407207617%_))) - (_%tl207409207624%_ + (##car _%e208726208936%_))) + (_%tl208728208943%_ (let () (declare (not safe)) - (##cdr _%e207407207617%_)))) + (##cdr _%e208726208936%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd207408207621%_)) - (let ((_%e207410207627%_ + _%hd208727208940%_)) + (let ((_%e208729208946%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd207408207621%_)))) - (let ((_%hd207411207631%_ + (gx#syntax-e _%hd208727208940%_)))) + (let ((_%hd208730208950%_ (let () (declare (not safe)) - (##car _%e207410207627%_))) - (_%tl207412207634%_ + (##car _%e208729208946%_))) + (_%tl208731208953%_ (let () (declare (not safe)) - (##cdr _%e207410207627%_)))) + (##cdr _%e208729208946%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207411207631%_)) - (if (let ((__tmp209097 |gxc[1]#_g209098_|)) + (gx#identifier? _%hd208730208950%_)) + (if (let ((__tmp210416 |gxc[1]#_g210417_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209097 - _%hd207411207631%_)) + __tmp210416 + _%hd208730208950%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207412207634%_)) - (let ((_%e207413207637%_ + (gx#stx-pair? _%tl208731208953%_)) + (let ((_%e208732208956%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207412207634%_)))) - (let ((_%hd207414207641%_ + (gx#syntax-e _%tl208731208953%_)))) + (let ((_%hd208733208960%_ (let () (declare (not safe)) - (##car _%e207413207637%_))) - (_%tl207415207644%_ + (##car _%e208732208956%_))) + (_%tl208734208963%_ (let () (declare (not safe)) - (##cdr _%e207413207637%_)))) + (##cdr _%e208732208956%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207415207644%_)) + (gx#stx-null? _%tl208734208963%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207409207624%_)) - (let ((_%e207416207647%_ + _%tl208728208943%_)) + (let ((_%e208735208966%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207409207624%_)))) - (let ((_%hd207417207651%_ + _%tl208728208943%_)))) + (let ((_%hd208736208970%_ (let () (declare (not safe)) - (##car _%e207416207647%_))) - (_%tl207418207654%_ + (##car _%e208735208966%_))) + (_%tl208737208973%_ (let () (declare (not safe)) - (##cdr _%e207416207647%_)))) + (##cdr _%e208735208966%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd207417207651%_)) - (let ((_%e207419207657%_ + _%hd208736208970%_)) + (let ((_%e208738208976%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd207417207651%_)))) - (if (equal? _%e207419207657%_ 'origin:) + (gx#stx-e _%hd208736208970%_)))) + (if (equal? _%e208738208976%_ 'origin:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207418207654%_)) - (let ((_%e207420207661%_ + (gx#stx-pair? _%tl208737208973%_)) + (let ((_%e208739208980%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207418207654%_)))) - (let ((_%hd207421207665%_ + (gx#syntax-e _%tl208737208973%_)))) + (let ((_%hd208740208984%_ (let () (declare (not safe)) - (##car _%e207420207661%_))) - (_%tl207422207668%_ + (##car _%e208739208980%_))) + (_%tl208741208987%_ (let () (declare (not safe)) - (##cdr _%e207420207661%_)))) + (##cdr _%e208739208980%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207421207665%_)) - (let ((_%e207423207671%_ + (gx#stx-pair? _%hd208740208984%_)) + (let ((_%e208742208990%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207421207665%_)))) - (let ((_%hd207424207675%_ + (gx#syntax-e _%hd208740208984%_)))) + (let ((_%hd208743208994%_ (let () (declare (not safe)) - (##car _%e207423207671%_))) - (_%tl207425207678%_ + (##car _%e208742208990%_))) + (_%tl208744208997%_ (let () (declare (not safe)) - (##cdr _%e207423207671%_)))) + (##cdr _%e208742208990%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207424207675%_)) - (if (let ((__tmp209099 - |gxc[1]#_g209100_|)) + (gx#identifier? _%hd208743208994%_)) + (if (let ((__tmp210418 + |gxc[1]#_g210419_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209099 - _%hd207424207675%_)) + __tmp210418 + _%hd208743208994%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207425207678%_)) - (let ((_%e207426207681%_ + _%tl208744208997%_)) + (let ((_%e208745209000%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207425207678%_)))) - (let ((_%hd207427207685%_ + _%tl208744208997%_)))) + (let ((_%hd208746209004%_ (let () (declare (not safe)) - (##car _%e207426207681%_))) - (_%tl207428207688%_ + (##car _%e208745209000%_))) + (_%tl208747209007%_ (let () (declare (not safe)) - (##cdr _%e207426207681%_)))) + (##cdr _%e208745209000%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207428207688%_)) + _%tl208747209007%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl207422207668%_)) + (gx#stx-null? _%tl208741208987%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207360207458%_)) - ((lambda (_%L207691%_ - _%L207693%_ - _%L207694%_ - _%L207695%_ - _%L207696%_ - _%L207697%_) - (let ((_%clause207768%_ + (gx#stx-null? _%tl208679208777%_)) + ((lambda (_%L209010%_ + _%L209012%_ + _%L209013%_ + _%L209014%_ + _%L209015%_ + _%L209016%_) + (let ((_%clause209087%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6032,7 +6032,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207697%_ '())) + (cons _%L209016%_ '())) (cons '#f (cons 'signature: (cons (cons (let () @@ -6045,256 +6045,256 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207695%_ '())) + (cons _%L209014%_ '())) (cons 'origin: (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207691%_ '())) + (cons _%L209010%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%unchecked207770%_ + (_%unchecked209089%_ (let () (declare (not safe)) - (gx#stx-e _%L207693%_)))) - (_%loop207312%_ - _%rest207343%_ - (let ((_%$e207772%_ _%unchecked207770%_)) - (if _%$e207772%_ - _%$e207772%_ - _%unchecked-proc207317%_)) - (cons _%clause207768%_ - _%unchecked-clauses207318%_)))) - _%hd207427207685%_ - _%hd207414207641%_ - _%hd207401207597%_ - _%hd207388207553%_ - _%hd207375207509%_ - _%hd207356207445%_) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)))) + (gx#stx-e _%L209012%_)))) + (_%loop208631%_ + _%rest208662%_ + (let ((_%$e209091%_ _%unchecked209089%_)) + (if _%$e209091%_ + _%$e209091%_ + _%unchecked-proc208636%_)) + (cons _%clause209087%_ + _%unchecked-clauses208637%_)))) + _%hd208746209004%_ + _%hd208733208960%_ + _%hd208720208916%_ + _%hd208707208872%_ + _%hd208694208828%_ + _%hd208675208764%_) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207347207434%_ - _%g207348207438%_)) - (_%g207347207434%_ - _%g207348207438%_)) - (_%g207347207434%_ - _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_))) - (_%g207347207434%_ _%g207348207438%_)))) + (_%g208666208753%_ + _%g208667208757%_)) + (_%g208666208753%_ + _%g208667208757%_)) + (_%g208666208753%_ + _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_))) + (_%g208666208753%_ _%g208667208757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207347207434%_ - _%g207348207438%_)) - (_%g207347207434%_ - _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)))) + (_%g208666208753%_ + _%g208667208757%_)) + (_%g208666208753%_ + _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207347207434%_ - _%g207348207438%_)) - (_%g207347207434%_ - _%g207348207438%_))) - (_%g207347207434%_ - _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)) + (_%g208666208753%_ + _%g208667208757%_)) + (_%g208666208753%_ + _%g208667208757%_))) + (_%g208666208753%_ + _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207347207434%_ - _%g207348207438%_)))) - (_%g207347207434%_ - _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_))) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)))) + (_%g208666208753%_ + _%g208667208757%_)))) + (_%g208666208753%_ + _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_))) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207347207434%_ - _%g207348207438%_)) - (_%g207347207434%_ - _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_))) + (_%g208666208753%_ + _%g208667208757%_)) + (_%g208666208753%_ + _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207347207434%_ - _%g207348207438%_)))) - (_%g207347207434%_ - _%g207348207438%_)) - (_%g207347207434%_ - _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)))) + (_%g208666208753%_ + _%g208667208757%_)))) + (_%g208666208753%_ + _%g208667208757%_)) + (_%g208666208753%_ + _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207347207434%_ - _%g207348207438%_)) - (_%g207347207434%_ - _%g207348207438%_))) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)))) - (_%g207347207434%_ _%g207348207438%_)))) + (_%g208666208753%_ + _%g208667208757%_)) + (_%g208666208753%_ + _%g208667208757%_))) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)))) + (_%g208666208753%_ _%g208667208757%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207347207434%_ - _%g207348207438%_))))) - (_%g207346207776%_ _%hd207345%_))))) - (if (pair? _%rest207319207327%_) - (let ((_%hd207324207784%_ + (_%g208666208753%_ + _%g208667208757%_))))) + (_%g208665209095%_ _%hd208664%_))))) + (if (pair? _%rest208638208646%_) + (let ((_%hd208643209103%_ (let () (declare (not safe)) - (##car _%rest207319207327%_))) - (_%tl207325207787%_ + (##car _%rest208638208646%_))) + (_%tl208644209106%_ (let () (declare (not safe)) - (##cdr _%rest207319207327%_)))) - (let* ((_%hd207790%_ _%hd207324207784%_) - (_%rest207793%_ _%tl207325207787%_)) - (_%K207323207780%_ - _%rest207793%_ - _%hd207790%_))) - (_%else207321207339%_)))))) + (##cdr _%rest208638208646%_)))) + (let* ((_%hd209109%_ _%hd208643209103%_) + (_%rest209112%_ _%tl208644209106%_)) + (_%K208642209099%_ + _%rest209112%_ + _%hd209109%_))) + (_%else208640208658%_)))))) (begin - (let ((_g209090_ + (let ((_g210409_ (let () (declare (not safe)) - (if (##values? _g209089_) - (##vector-length _g209089_) + (if (##values? _g210408_) + (##values-length _g210408_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g209090_ 2))) - (error "Context expects 2 values" _g209090_))) - (let ((_%unchecked-proc207796%_ + (if (not (let () (declare (not safe)) (##fx= _g210409_ 2))) + (error "Context expects 2 values" _g210409_))) + (let ((_%unchecked-proc209115%_ (let () (declare (not safe)) - (##vector-ref _g209089_ 0))) - (_%unchecked-clauses207798%_ + (##values-ref _g210408_ 0))) + (_%unchecked-clauses209117%_ (let () (declare (not safe)) - (##vector-ref _g209089_ 1)))) - (if _%unchecked-proc207796%_ - (let* ((_%g207800207824%_ - (lambda (_%g207801207820%_) + (##values-ref _g210408_ 1)))) + (if _%unchecked-proc209115%_ + (let* ((_%g209119209143%_ + (lambda (_%g209120209139%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207801207820%_)))) - (_%g207799207911%_ - (lambda (_%g207801207828%_) + _%g209120209139%_)))) + (_%g209118209230%_ + (lambda (_%g209120209147%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g207801207828%_)) - (let ((_%e207804207831%_ + (gx#stx-pair? _%g209120209147%_)) + (let ((_%e209123209150%_ (let () (declare (not safe)) (gx#syntax-e - _%g207801207828%_)))) - (let ((_%hd207805207835%_ + _%g209120209147%_)))) + (let ((_%hd209124209154%_ (let () (declare (not safe)) - (##car _%e207804207831%_))) - (_%tl207806207838%_ + (##car _%e209123209150%_))) + (_%tl209125209157%_ (let () (declare (not safe)) - (##cdr _%e207804207831%_)))) + (##cdr _%e209123209150%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207806207838%_)) - (let ((_%e207807207841%_ + _%tl209125209157%_)) + (let ((_%e209126209160%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207806207838%_)))) - (let ((_%hd207808207845%_ + _%tl209125209157%_)))) + (let ((_%hd209127209164%_ (let () (declare (not safe)) - (##car _%e207807207841%_))) - (_%tl207809207848%_ + (##car _%e209126209160%_))) + (_%tl209128209167%_ (let () (declare (not safe)) - (##cdr _%e207807207841%_)))) + (##cdr _%e209126209160%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd207808207845%_)) - (let ((_g209101_ + _%hd209127209164%_)) + (let ((_g210420_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%hd207808207845%_ '0)))) + (gx#syntax-split-splice _%hd209127209164%_ '0)))) (begin - (let ((_g209102_ + (let ((_g210421_ (let () (declare (not safe)) - (if (##values? _g209101_) - (##vector-length _g209101_) + (if (##values? _g210420_) + (##values-length _g210420_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g209102_ 2))) - (error "Context expects 2 values" _g209102_))) - (let ((_%target207810207851%_ + (if (not (let () (declare (not safe)) (##fx= _g210421_ 2))) + (error "Context expects 2 values" _g210421_))) + (let ((_%target209129209170%_ (let () (declare (not safe)) - (##vector-ref _g209101_ 0))) - (_%tl207812207854%_ + (##values-ref _g210420_ 0))) + (_%tl209131209173%_ (let () (declare (not safe)) - (##vector-ref _g209101_ 1)))) + (##values-ref _g210420_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207812207854%_)) - (letrec ((_%loop207813207857%_ - (lambda (_%hd207811207861%_ - _%clause207817207864%_) + (gx#stx-null? _%tl209131209173%_)) + (letrec ((_%loop209132209176%_ + (lambda (_%hd209130209180%_ + _%clause209136209183%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207811207861%_)) - (let ((_%e207814207867%_ + (gx#stx-pair? _%hd209130209180%_)) + (let ((_%e209133209186%_ (let () (declare (not safe)) (gx#syntax-e - _%hd207811207861%_)))) - (let ((_%lp-hd207815207871%_ + _%hd209130209180%_)))) + (let ((_%lp-hd209134209190%_ (let () (declare (not safe)) - (##car _%e207814207867%_))) - (_%lp-tl207816207874%_ + (##car _%e209133209186%_))) + (_%lp-tl209135209193%_ (let () (declare (not safe)) - (##cdr _%e207814207867%_)))) - (_%loop207813207857%_ - _%lp-tl207816207874%_ - (cons _%lp-hd207815207871%_ - _%clause207817207864%_)))) - (let ((_%clause207818207877%_ - (reverse _%clause207817207864%_))) + (##cdr _%e209133209186%_)))) + (_%loop209132209176%_ + _%lp-tl209135209193%_ + (cons _%lp-hd209134209190%_ + _%clause209136209183%_)))) + (let ((_%clause209137209196%_ + (reverse _%clause209136209183%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207809207848%_)) - ((lambda (_%L207881%_ - _%L207883%_) + _%tl209128209167%_)) + ((lambda (_%L209200%_ + _%L209202%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L207883%_ + (cons _%L209202%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -6306,43 +6306,43 @@ (gx#datum->syntax__0 '#f '@list)) - (let ((__tmp209103 - (lambda (_%g207902207905%_ - _%g207903207908%_) - (cons _%g207902207905%_ - _%g207903207908%_)))) + (let ((__tmp210422 + (lambda (_%g209221209224%_ + _%g209222209227%_) + (cons _%g209221209224%_ + _%g209222209227%_)))) (declare (not safe)) (__foldr1 - __tmp209103 + __tmp210422 '() - _%L207881%_))) + _%L209200%_))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause207818207877%_ - _%hd207805207835%_) - (_%g207800207824%_ - _%g207801207828%_))))))) - (_%loop207813207857%_ _%target207810207851%_ '())) - (_%g207800207824%_ _%g207801207828%_))))) - (_%g207800207824%_ _%g207801207828%_)))) + _%clause209137209196%_ + _%hd209124209154%_) + (_%g209119209143%_ + _%g209120209147%_))))))) + (_%loop209132209176%_ _%target209129209170%_ '())) + (_%g209119209143%_ _%g209120209147%_))))) + (_%g209119209143%_ _%g209120209147%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207800207824%_ - _%g207801207828%_)))) - (_%g207800207824%_ _%g207801207828%_))))) - (_%g207799207911%_ - (list _%unchecked-proc207796%_ - _%unchecked-clauses207798%_))) + (_%g209119209143%_ + _%g209120209147%_)))) + (_%g209119209143%_ _%g209120209147%_))))) + (_%g209118209230%_ + (list _%unchecked-proc209115%_ + _%unchecked-clauses209117%_))) '(begin)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g207251207262%_)))) - (_%g207249207915%_ + _%g208570208581%_)))) + (_%g208568209234%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L207110%_ + (cons _%L208429%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -6356,12 +6356,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L207231%_ - _%L207233%_)) - (let ((__tmp209104 - (lambda (_%g207918207922%_ - _%g207919207925%_ - _%g207920207927%_) + _%L208550%_ + _%L208552%_)) + (let ((__tmp210423 + (lambda (_%g209237209241%_ + _%g209238209244%_ + _%g209239209246%_) (cons (cons (let () (declare (not safe)) @@ -6372,55 +6372,55 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g207919207925%_ '())) + (cons _%g209238209244%_ '())) (cons '#f (cons 'signature: - (cons _%g207918207922%_ '()))))) - _%g207920207927%_)))) + (cons _%g209237209241%_ '()))))) + _%g209239209246%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp209104 + __tmp210423 '() - _%L207231%_ - _%L207233%_)))) + _%L208550%_ + _%L208552%_)))) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%sig207157207225%_ - _%arity207158207228%_)))))) - (_%loop207151207183%_ _%target207148207177%_ '() '())) - (_%g207144207170%_ _%g207145207174%_))))) + _%sig208476208544%_ + _%arity208477208547%_)))))) + (_%loop208470208502%_ _%target208467208496%_ '() '())) + (_%g208463208489%_ _%g208464208493%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207144207170%_ - _%g207145207174%_))))) - (_%g207143207930%_ _%signatures207141%_)) - (_%g207027207051%_ _%g207028207055%_))) - _%case-signature207045207104%_ - _%hd207035207072%_)))))) + (_%g208463208489%_ + _%g208464208493%_))))) + (_%g208462209249%_ _%signatures208460%_)) + (_%g208346208370%_ _%g208347208374%_))) + _%case-signature208364208423%_ + _%hd208354208391%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop207040207084%_ - _%target207037207078%_ + (_%loop208359208403%_ + _%target208356208397%_ '())) - (_%g207027207051%_ - _%g207028207055%_))))) - (_%g207027207051%_ _%g207028207055%_)))) - (_%g207027207051%_ _%g207028207055%_)))) - (_%g207027207051%_ _%g207028207055%_))))) - (_%g207026207934%_ _%stx207024%_)))) + (_%g208346208370%_ + _%g208347208374%_))))) + (_%g208346208370%_ _%g208347208374%_)))) + (_%g208346208370%_ _%g208347208374%_)))) + (_%g208346208370%_ _%g208347208374%_))))) + (_%g208345209253%_ _%stx208343%_)))) (define |gxc[:0:]#declare-builtin-class| - (lambda (_%$stx207942%_) - (let* ((_%__stx208924208925%_ _%$stx207942%_) - (_%g207948208008%_ + (lambda (_%$stx209261%_) + (let* ((_%__stx210243210244%_ _%$stx209261%_) + (_%g209267209327%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208924208925%_))))) - (let ((_%__kont208927208928%_ - (lambda (_%L208230%_ _%L208232%_) + _%__stx210243210244%_))))) + (let ((_%__kont210246210247%_ + (lambda (_%L209549%_ _%L209551%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6429,7 +6429,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208232%_ '())) + (cons _%L209551%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6440,13 +6440,13 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L208232%_ '())) + (cons _%L209551%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208230%_ '())) + (cons _%L209549%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)) @@ -6455,8 +6455,8 @@ (cons '#f (cons '#f (cons '#t (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont208929208930%_ - (lambda (_%L208155%_ _%L208157%_ _%L208158%_) + (_%__kont210248210249%_ + (lambda (_%L209474%_ _%L209476%_ _%L209477%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6465,7 +6465,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208158%_ '())) + (cons _%L209477%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6476,23 +6476,23 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L208158%_ '())) + (cons _%L209477%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208157%_ '())) + (cons _%L209476%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208155%_ '())) + (cons _%L209474%_ '())) (cons '#f (cons '#f (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont208931208932%_ - (lambda (_%L208069%_ _%L208071%_ _%L208072%_) + (_%__kont210250210251%_ + (lambda (_%L209388%_ _%L209390%_ _%L209391%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6501,7 +6501,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208072%_ '())) + (cons _%L209391%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6512,360 +6512,360 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L208072%_ '())) + (cons _%L209391%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208071%_ '())) + (cons _%L209390%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208069%_ '())) + (cons _%L209388%_ '())) (cons '#f (cons '#t (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208924208925%_)) - (let ((_%e207952208186%_ + (gx#stx-pair? _%__stx210243210244%_)) + (let ((_%e209271209505%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208924208925%_)))) - (let ((_%tl207954208193%_ + (gx#syntax-e _%__stx210243210244%_)))) + (let ((_%tl209273209512%_ (let () (declare (not safe)) - (##cdr _%e207952208186%_))) - (_%hd207953208190%_ + (##cdr _%e209271209505%_))) + (_%hd209272209509%_ (let () (declare (not safe)) - (##car _%e207952208186%_)))) + (##car _%e209271209505%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207954208193%_)) - (let ((_%e207955208196%_ + (gx#stx-pair? _%tl209273209512%_)) + (let ((_%e209274209515%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207954208193%_)))) - (let ((_%tl207957208203%_ + (gx#syntax-e _%tl209273209512%_)))) + (let ((_%tl209276209522%_ (let () (declare (not safe)) - (##cdr _%e207955208196%_))) - (_%hd207956208200%_ + (##cdr _%e209274209515%_))) + (_%hd209275209519%_ (let () (declare (not safe)) - (##car _%e207955208196%_)))) + (##car _%e209274209515%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd207956208200%_)) - (let ((_%e207958208206%_ + (gx#stx-datum? _%hd209275209519%_)) + (let ((_%e209277209525%_ (let () (declare (not safe)) - (gx#stx-e _%hd207956208200%_)))) - (if (equal? _%e207958208206%_ 'system:) + (gx#stx-e _%hd209275209519%_)))) + (if (equal? _%e209277209525%_ 'system:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207957208203%_)) - (let ((_%e207959208210%_ + (gx#stx-pair? _%tl209276209522%_)) + (let ((_%e209278209529%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207957208203%_)))) - (let ((_%tl207961208217%_ + _%tl209276209522%_)))) + (let ((_%tl209280209536%_ (let () (declare (not safe)) - (##cdr _%e207959208210%_))) - (_%hd207960208214%_ + (##cdr _%e209278209529%_))) + (_%hd209279209533%_ (let () (declare (not safe)) - (##car _%e207959208210%_)))) + (##car _%e209278209529%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207961208217%_)) - (let ((_%e207962208220%_ + _%tl209280209536%_)) + (let ((_%e209281209539%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207961208217%_)))) - (let ((_%tl207964208227%_ + _%tl209280209536%_)))) + (let ((_%tl209283209546%_ (let () (declare (not safe)) - (##cdr _%e207962208220%_))) - (_%hd207963208224%_ + (##cdr _%e209281209539%_))) + (_%hd209282209543%_ (let () (declare (not safe)) - (##car _%e207962208220%_)))) + (##car _%e209281209539%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207964208227%_)) - (_%__kont208927208928%_ - _%hd207963208224%_ - _%hd207960208214%_) + _%tl209283209546%_)) + (_%__kont210246210247%_ + _%hd209282209543%_ + _%hd209279209533%_) (let () (declare (not safe)) - (_%g207948208008%_))))) + (_%g209267209327%_))))) (let () (declare (not safe)) - (_%g207948208008%_))))) + (_%g209267209327%_))))) (let () (declare (not safe)) - (_%g207948208008%_))) - (if (equal? _%e207958208206%_ 'struct:) + (_%g209267209327%_))) + (if (equal? _%e209277209525%_ 'struct:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207957208203%_)) - (let ((_%e207975208125%_ + _%tl209276209522%_)) + (let ((_%e209294209444%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207957208203%_)))) - (let ((_%tl207977208132%_ + _%tl209276209522%_)))) + (let ((_%tl209296209451%_ (let () (declare (not safe)) - (##cdr _%e207975208125%_))) - (_%hd207976208129%_ + (##cdr _%e209294209444%_))) + (_%hd209295209448%_ (let () (declare (not safe)) - (##car _%e207975208125%_)))) + (##car _%e209294209444%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207977208132%_)) - (let ((_%e207978208135%_ + _%tl209296209451%_)) + (let ((_%e209297209454%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl207977208132%_)))) - (let ((_%tl207980208142%_ - (let () (declare (not safe)) (##cdr _%e207978208135%_))) - (_%hd207979208139%_ + (gx#syntax-e _%tl209296209451%_)))) + (let ((_%tl209299209461%_ + (let () (declare (not safe)) (##cdr _%e209297209454%_))) + (_%hd209298209458%_ (let () (declare (not safe)) - (##car _%e207978208135%_)))) + (##car _%e209297209454%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207980208142%_)) - (let ((_%e207981208145%_ + (gx#stx-pair? _%tl209299209461%_)) + (let ((_%e209300209464%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207980208142%_)))) - (let ((_%tl207983208152%_ + (gx#syntax-e _%tl209299209461%_)))) + (let ((_%tl209302209471%_ (let () (declare (not safe)) - (##cdr _%e207981208145%_))) - (_%hd207982208149%_ + (##cdr _%e209300209464%_))) + (_%hd209301209468%_ (let () (declare (not safe)) - (##car _%e207981208145%_)))) + (##car _%e209300209464%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207983208152%_)) - (_%__kont208929208930%_ - _%hd207982208149%_ - _%hd207979208139%_ - _%hd207976208129%_) + (gx#stx-null? _%tl209302209471%_)) + (_%__kont210248210249%_ + _%hd209301209468%_ + _%hd209298209458%_ + _%hd209295209448%_) (let () (declare (not safe)) - (_%g207948208008%_))))) - (let () (declare (not safe)) (_%g207948208008%_))))) - (let () (declare (not safe)) (_%g207948208008%_))))) + (_%g209267209327%_))))) + (let () (declare (not safe)) (_%g209267209327%_))))) + (let () (declare (not safe)) (_%g209267209327%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g207948208008%_))) - (if (equal? _%e207958208206%_ + (_%g209267209327%_))) + (if (equal? _%e209277209525%_ 'class:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207957208203%_)) - (let ((_%e207994208039%_ + _%tl209276209522%_)) + (let ((_%e209313209358%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207957208203%_)))) - (let ((_%tl207996208046%_ + _%tl209276209522%_)))) + (let ((_%tl209315209365%_ (let () (declare (not safe)) - (##cdr _%e207994208039%_))) - (_%hd207995208043%_ + (##cdr _%e209313209358%_))) + (_%hd209314209362%_ (let () (declare (not safe)) - (##car _%e207994208039%_)))) + (##car _%e209313209358%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207996208046%_)) - (let ((_%e207997208049%_ + _%tl209315209365%_)) + (let ((_%e209316209368%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl207996208046%_)))) - (let ((_%tl207999208056%_ + (gx#syntax-e _%tl209315209365%_)))) + (let ((_%tl209318209375%_ (let () (declare (not safe)) - (##cdr _%e207997208049%_))) - (_%hd207998208053%_ + (##cdr _%e209316209368%_))) + (_%hd209317209372%_ (let () (declare (not safe)) - (##car _%e207997208049%_)))) + (##car _%e209316209368%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207999208056%_)) - (let ((_%e208000208059%_ + (gx#stx-pair? _%tl209318209375%_)) + (let ((_%e209319209378%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207999208056%_)))) - (let ((_%tl208002208066%_ + (gx#syntax-e _%tl209318209375%_)))) + (let ((_%tl209321209385%_ (let () (declare (not safe)) - (##cdr _%e208000208059%_))) - (_%hd208001208063%_ + (##cdr _%e209319209378%_))) + (_%hd209320209382%_ (let () (declare (not safe)) - (##car _%e208000208059%_)))) + (##car _%e209319209378%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208002208066%_)) - (_%__kont208931208932%_ - _%hd208001208063%_ - _%hd207998208053%_ - _%hd207995208043%_) + (gx#stx-null? _%tl209321209385%_)) + (_%__kont210250210251%_ + _%hd209320209382%_ + _%hd209317209372%_ + _%hd209314209362%_) (let () (declare (not safe)) - (_%g207948208008%_))))) - (let () (declare (not safe)) (_%g207948208008%_))))) - (let () (declare (not safe)) (_%g207948208008%_))))) + (_%g209267209327%_))))) + (let () (declare (not safe)) (_%g209267209327%_))))) + (let () (declare (not safe)) (_%g209267209327%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g207948208008%_))) + (_%g209267209327%_))) (let () (declare (not safe)) - (_%g207948208008%_)))))) + (_%g209267209327%_)))))) (let () (declare (not safe)) - (_%g207948208008%_))))) - (let () (declare (not safe)) (_%g207948208008%_))))) - (let () (declare (not safe)) (_%g207948208008%_))))))) + (_%g209267209327%_))))) + (let () (declare (not safe)) (_%g209267209327%_))))) + (let () (declare (not safe)) (_%g209267209327%_))))))) (define |gxc[:0:]#declare-builtin-classes| - (lambda (_%$stx208254%_) - (let* ((_%g208258208278%_ - (lambda (_%g208259208274%_) + (lambda (_%$stx209573%_) + (let* ((_%g209577209597%_ + (lambda (_%g209578209593%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g208259208274%_)))) - (_%g208257208349%_ - (lambda (_%g208259208282%_) + _%g209578209593%_)))) + (_%g209576209668%_ + (lambda (_%g209578209601%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g208259208282%_)) - (let ((_%e208261208285%_ + (gx#stx-pair? _%g209578209601%_)) + (let ((_%e209580209604%_ (let () (declare (not safe)) - (gx#syntax-e _%g208259208282%_)))) - (let ((_%hd208262208289%_ + (gx#syntax-e _%g209578209601%_)))) + (let ((_%hd209581209608%_ (let () (declare (not safe)) - (##car _%e208261208285%_))) - (_%tl208263208292%_ + (##car _%e209580209604%_))) + (_%tl209582209611%_ (let () (declare (not safe)) - (##cdr _%e208261208285%_)))) + (##cdr _%e209580209604%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl208263208292%_)) - (let ((_g209105_ + (gx#stx-pair/null? _%tl209582209611%_)) + (let ((_g210424_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl208263208292%_ + _%tl209582209611%_ '0)))) (begin - (let ((_g209106_ + (let ((_g210425_ (let () (declare (not safe)) - (if (##values? _g209105_) - (##vector-length _g209105_) + (if (##values? _g210424_) + (##values-length _g210424_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209106_ 2))) + (##fx= _g210425_ 2))) (error "Context expects 2 values" - _g209106_))) - (let ((_%target208264208295%_ + _g210425_))) + (let ((_%target209583209614%_ (let () (declare (not safe)) - (##vector-ref _g209105_ 0))) - (_%tl208266208298%_ + (##values-ref _g210424_ 0))) + (_%tl209585209617%_ (let () (declare (not safe)) - (##vector-ref _g209105_ 1)))) + (##values-ref _g210424_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208266208298%_)) - (letrec ((_%loop208267208301%_ - (lambda (_%hd208265208305%_ - _%decl208271208308%_) + (gx#stx-null? _%tl209585209617%_)) + (letrec ((_%loop209586209620%_ + (lambda (_%hd209584209624%_ + _%decl209590209627%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd208265208305%_)) - (let ((_%e208268208311%_ + _%hd209584209624%_)) + (let ((_%e209587209630%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd208265208305%_)))) - (let ((_%lp-hd208269208315%_ + (gx#syntax-e _%hd209584209624%_)))) + (let ((_%lp-hd209588209634%_ (let () (declare (not safe)) - (##car _%e208268208311%_))) - (_%lp-tl208270208318%_ + (##car _%e209587209630%_))) + (_%lp-tl209589209637%_ (let () (declare (not safe)) - (##cdr _%e208268208311%_)))) - (_%loop208267208301%_ - _%lp-tl208270208318%_ - (cons _%lp-hd208269208315%_ _%decl208271208308%_)))) - (let ((_%decl208272208321%_ (reverse _%decl208271208308%_))) - ((lambda (_%L208325%_) + (##cdr _%e209587209630%_)))) + (_%loop209586209620%_ + _%lp-tl209589209637%_ + (cons _%lp-hd209588209634%_ _%decl209590209627%_)))) + (let ((_%decl209591209640%_ (reverse _%decl209590209627%_))) + ((lambda (_%L209644%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp209107 - (lambda (_%g208340208343%_ _%g208341208346%_) + (let ((__tmp210426 + (lambda (_%g209659209662%_ _%g209660209665%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-builtin-class)) - _%g208340208343%_) - _%g208341208346%_)))) + _%g209659209662%_) + _%g209660209665%_)))) (declare (not safe)) - (__foldr1 __tmp209107 '() _%L208325%_)))) - _%decl208272208321%_)))))) + (__foldr1 __tmp210426 '() _%L209644%_)))) + _%decl209591209640%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop208267208301%_ - _%target208264208295%_ + (_%loop209586209620%_ + _%target209583209614%_ '())) - (_%g208258208278%_ - _%g208259208282%_))))) - (_%g208258208278%_ _%g208259208282%_)))) - (_%g208258208278%_ _%g208259208282%_))))) - (_%g208257208349%_ _%$stx208254%_)))))) + (_%g209577209597%_ + _%g209578209601%_))))) + (_%g209577209597%_ _%g209578209601%_)))) + (_%g209577209597%_ _%g209578209601%_))))) + (_%g209576209668%_ _%$stx209573%_)))))) diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index a4c8206a5..881d2b9d9 100644 --- a/src/bootstrap/gerbil/core.ssi +++ b/src/bootstrap/gerbil/core.ssi @@ -9,327 +9,327 @@ namespace: gerbil/core (spec: (:gerbil/core/mop) (0 MOP-3 0 MOP-3) - (0 MOP-2 0 MOP-2) (0 MOP-5 0 MOP-5) - (0 MOP-4 0 MOP-4) + (0 MOP-2 0 MOP-2) (0 MOP-1 0 MOP-1) + (0 MOP-4 0 MOP-4) (0 defclass-type 0 defclass-type) (0 defstruct-type 0 defstruct-type) (1 module-type-id 1 module-type-id) (1 make-class-type-id 1 make-class-type-id) - (0 define-class 0 define-class) + (0 defmethod 0 defmethod) (0 define-struct 0 define-struct) + (0 define-class 0 define-class) (0 @-set! 0 @-set!) - (0 defmethod 0 defmethod) (0 @ 0 @) (0 defclass 0 defclass) (0 defstruct 0 defstruct) - (0 :readtable 0 :readtable) - (0 :number 0 :number) - (0 :directory-port 0 :directory-port) - (0 :real 0 :real) - (0 :f64vector 0 :f64vector) + (0 :udp-port 0 :udp-port) + (0 :eof 0 :eof) (0 :class 0 :class) - (0 :thread 0 :thread) - (0 :u64vector 0 :u64vector) + (0 :boolean 0 :boolean) + (0 :immediate 0 :immediate) + (0 :fixnum 0 :fixnum) + (0 :atom 0 :atom) + (0 :frame 0 :frame) + (0 :device-port 0 :device-port) (0 :processor 0 :processor) - (0 :s64vector 0 :s64vector) - (0 :ratnum 0 :ratnum) - (0 :port 0 :port) - (0 :bignum 0 :bignum) + (0 :false 0 :false) + (0 :u64vector 0 :u64vector) (0 :writeenv 0 :writeenv) - (0 :event-queue-port 0 :event-queue-port) - (0 :time 0 :time) - (0 :promise 0 :promise) - (0 :eof 0 :eof) - (0 :s16vector 0 :s16vector) + (0 :mutex 0 :mutex) + (0 :values 0 :values) + (0 :vector 0 :vector) (0 :t 0 :t) - (0 :weak 0 :weak) - (0 :hvector 0 :hvector) - (0 :fixnum 0 :fixnum) - (0 defsystem-class-info 0 defsystem-class-info) - (0 :immediate 0 :immediate) + (0 :bignum 0 :bignum) + (0 :address-info 0 :address-info) (0 :readenv 0 :readenv) - (0 :tcp-server-port 0 :tcp-server-port) - (0 :u8vector 0 :u8vector) - (0 :device-port 0 :device-port) - (0 :frame 0 :frame) - (0 :boolean 0 :boolean) + (0 :directory-port 0 :directory-port) + (0 :port 0 :port) + (0 :weak 0 :weak) + (0 :s64vector 0 :s64vector) + (0 :raw-device-port 0 :raw-device-port) (0 :object-port 0 :object-port) - (0 :pair 0 :pair) + (0 :promise 0 :promise) + (0 :foreign 0 :foreign) + (0 :null 0 :null) + (0 :special 0 :special) + (0 :object 0 :object) + (0 :list 0 :list) (0 :continuation 0 :continuation) - (0 :mutex 0 :mutex) - (0 :vm 0 :vm) (0 :f32vector 0 :f32vector) - (0 :s8vector 0 :s8vector) - (0 :values 0 :values) - (0 :vector 0 :vector) - (0 :void 0 :void) - (0 :char 0 :char) - (0 :atom 0 :atom) - (0 :object 0 :object) - (0 :thread-group 0 :thread-group) - (0 :false 0 :false) - (0 :address-info 0 :address-info) - (0 :table 0 :table) (0 :flonum 0 :flonum) - (0 :s32vector 0 :s32vector) - (0 :null 0 :null) + (0 :string 0 :string) + (0 :sequence 0 :sequence) + (0 :procedure 0 :procedure) + (0 :socket-info 0 :socket-info) + (0 :u16vector 0 :u16vector) + (0 :vm 0 :vm) + (0 :table 0 :table) + (0 :vector-port 0 :vector-port) + (0 :condvar 0 :condvar) + (0 :f64vector 0 :f64vector) (0 :keyword 0 :keyword) - (0 :true 0 :true) - (0 :symbolic 0 :symbolic) - (0 :cpxnum 0 :cpxnum) - (0 :special 0 :special) + (0 :thread-group 0 :thread-group) + (0 :ratnum 0 :ratnum) + (0 :u32vector 0 :u32vector) (0 :integer 0 :integer) - (0 :udp-port 0 :udp-port) - (0 :raw-device-port 0 :raw-device-port) - (0 :u8vector-port 0 :u8vector-port) + (0 :u8vector 0 :u8vector) + (0 :cpxnum 0 :cpxnum) + (0 :void 0 :void) + (0 :char 0 :char) + (0 :hvector 0 :hvector) + (0 :file-info 0 :file-info) + (0 :tcp-server-port 0 :tcp-server-port) + (0 :s32vector 0 :s32vector) (0 :byte-port 0 :byte-port) - (0 :condvar 0 :condvar) - (0 :procedure 0 :procedure) - (0 :u32vector 0 :u32vector) - (0 class 0 class) - (0 :foreign 0 :foreign) - (0 :sequence 0 :sequence) (0 :box 0 :box) - (0 :u16vector 0 :u16vector) - (0 :string 0 :string) - (0 :list 0 :list) + (0 defsystem-class-info 0 defsystem-class-info) + (0 :symbolic 0 :symbolic) + (0 :s8vector 0 :s8vector) + (0 :pair 0 :pair) + (0 :time 0 :time) + (0 :readtable 0 :readtable) + (0 :thread 0 :thread) + (0 :true 0 :true) + (0 :s16vector 0 :s16vector) + (0 :number 0 :number) (0 :symbol 0 :symbol) - (0 :socket-info 0 :socket-info) - (0 :file-info 0 :file-info) - (0 :string-port 0 :string-port) + (0 :event-queue-port 0 :event-queue-port) + (0 :u8vector-port 0 :u8vector-port) + (0 :real 0 :real) (0 :character-port 0 :character-port) - (0 :vector-port 0 :vector-port) + (0 :string-port 0 :string-port) + (0 class 0 class) (1 defclass-type 1 defclass-type) (1 defstruct-type 1 defstruct-type) (2 module-type-id 2 module-type-id) (2 make-class-type-id 2 make-class-type-id) - (1 &!class-type-system?-set! 1 &!class-type-system?-set!) - (1 !class-type-descriptor 1 !class-type-descriptor) + (1 &!class-type-constructor-set! 1 &!class-type-constructor-set!) + (1 &!class-type-slot-types 1 &!class-type-slot-types) + (1 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + (1 &!class-type-id-set! 1 &!class-type-id-set!) + (1 &!class-type-constructor 1 &!class-type-constructor) (1 - &!class-type-constructor-method + !class-type-unchecked-accessors 1 - &!class-type-constructor-method) - (1 &!class-type-slots-set! 1 &!class-type-slots-set!) - (1 !class-type-super-set! 1 !class-type-super-set!) - (1 !class-type-final? 1 !class-type-final?) - (1 !class-type-slot-types-set! 1 !class-type-slot-types-set!) + !class-type-unchecked-accessors) + (1 &!class-type-system? 1 &!class-type-system?) + (1 + !class-type-precedence-list-set! + 1 + !class-type-precedence-list-set!) + (1 !class-type-slots-set! 1 !class-type-slots-set!) + (1 !class-type-constructor 1 !class-type-constructor) + (1 !class-type-constructor-method 1 !class-type-constructor-method) (1 !class-type-struct? 1 !class-type-struct?) - (1 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (1 !class-type-id 1 !class-type-id) + (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) (1 - &!class-type-unchecked-mutators-set! + &!class-type-slot-contracts-set! 1 - &!class-type-unchecked-mutators-set!) + &!class-type-slot-contracts-set!) + (1 + !class-type-unchecked-accessors-set! + 1 + !class-type-unchecked-accessors-set!) + (1 !class-type-id-set! 1 !class-type-id-set!) + (1 &!class-type-struct? 1 &!class-type-struct?) + (1 class-type-info? 1 class-type-info?) + (1 &!class-type-name 1 &!class-type-name) + (1 !class-type-slots 1 !class-type-slots) + (1 class-type-info::t 1 class-type-info::t) + (1 &!class-type-slots-set! 1 &!class-type-slots-set!) + (1 syntax-local-class-type-info? 1 syntax-local-class-type-info?) + (1 &!class-type-predicate-set! 1 &!class-type-predicate-set!) + (1 !class-type-slot-contracts 1 !class-type-slot-contracts) + (1 !class-type-accessors 1 !class-type-accessors) + (1 !class-type-precedence-list 1 !class-type-precedence-list) + (1 !class-type-slot-types 1 !class-type-slot-types) (1 &!class-type-constructor-method-set! 1 &!class-type-constructor-method-set!) - (1 &!class-type-predicate 1 &!class-type-predicate) + (1 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) + (1 &!class-type-super 1 &!class-type-super) + (1 + &!class-type-unchecked-mutators-set! + 1 + &!class-type-unchecked-mutators-set!) + (1 !class-type-metaclass 1 !class-type-metaclass) + (1 &!class-type-accessors 1 &!class-type-accessors) + (1 !class-type-system? 1 !class-type-system?) + (1 !class-type-ordered-slots 1 !class-type-ordered-slots) (1 &!class-type-slot-defaults-set! 1 &!class-type-slot-defaults-set!) - (1 &!class-type-accessors-set! 1 &!class-type-accessors-set!) (1 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) + (1 &!class-type-final?-set! 1 &!class-type-final?-set!) + (1 &!class-type-slot-defaults 1 &!class-type-slot-defaults) + (1 !class-type-descriptor-set! 1 !class-type-descriptor-set!) + (1 make-class-type-info 1 make-class-type-info) (1 &!class-type-precedence-list-set! 1 &!class-type-precedence-list-set!) - (1 &!class-type-name-set! 1 &!class-type-name-set!) - (1 &!class-type-id-set! 1 &!class-type-id-set!) - (1 !class-type-slots 1 !class-type-slots) - (1 &!class-type-slot-types 1 &!class-type-slot-types) (1 - !class-type-unchecked-mutators-set! + &!class-type-unchecked-mutators 1 - !class-type-unchecked-mutators-set!) - (1 &!class-type-slots 1 &!class-type-slots) - (1 &!class-type-struct? 1 &!class-type-struct?) - (1 !class-type-predicate-set! 1 !class-type-predicate-set!) - (1 &!class-type-slot-defaults 1 &!class-type-slot-defaults) + &!class-type-unchecked-mutators) + (1 &!class-type-id 1 &!class-type-id) + (1 !class-type-mutators-set! 1 !class-type-mutators-set!) + (1 + !class-type-constructor-method-set! + 1 + !class-type-constructor-method-set!) + (1 !class-type-slot-defaults 1 !class-type-slot-defaults) + (1 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) + (1 !class-type-constructor-set! 1 !class-type-constructor-set!) + (1 !class-type-system?-set! 1 !class-type-system?-set!) (1 &!class-type-mutators 1 &!class-type-mutators) - (1 !class-type-final?-set! 1 !class-type-final?-set!) - (1 &!class-type-descriptor 1 &!class-type-descriptor) - (1 &!class-type-super 1 &!class-type-super) + (1 !class-type-super 1 !class-type-super) + (1 &!class-type-predicate 1 &!class-type-predicate) + (1 !class-type-struct?-set! 1 !class-type-struct?-set!) + (1 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) + (1 !class-type-accessors-set! 1 !class-type-accessors-set!) + (1 !class-type-predicate 1 !class-type-predicate) + (1 &!class-type-ordered-slots 1 &!class-type-ordered-slots) + (1 !class-type-name-set! 1 !class-type-name-set!) + (1 &!class-type-slots 1 &!class-type-slots) + (1 &!class-type-name-set! 1 &!class-type-name-set!) (1 - !class-type-precedence-list-set! + &!class-type-unchecked-accessors-set! 1 - !class-type-precedence-list-set!) - (1 !class-type-slot-contracts 1 !class-type-slot-contracts) - (1 !class-type-mutators 1 !class-type-mutators) - (1 !class-type-constructor-method 1 !class-type-constructor-method) - (1 !class-type-precedence-list 1 !class-type-precedence-list) + &!class-type-unchecked-accessors-set!) + (1 &!class-type-accessors-set! 1 &!class-type-accessors-set!) + (1 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) + (1 &!class-type-struct?-set! 1 &!class-type-struct?-set!) (1 - !class-type-slot-contracts-set! + &!class-type-ordered-slots-set! 1 - !class-type-slot-contracts-set!) - (1 &!class-type-metaclass 1 &!class-type-metaclass) + &!class-type-ordered-slots-set!) + (1 &!class-type-super-set! 1 &!class-type-super-set!) + (1 &!class-type-slot-contracts 1 &!class-type-slot-contracts) (1 &!class-type-unchecked-accessors 1 &!class-type-unchecked-accessors) - (1 !class-type-id 1 !class-type-id) - (1 &!class-type-id 1 &!class-type-id) + (1 &!class-type-descriptor 1 &!class-type-descriptor) (1 - &!class-type-slot-contracts-set! + &!class-type-constructor-method 1 - &!class-type-slot-contracts-set!) - (1 !class-type-accessors-set! 1 !class-type-accessors-set!) - (1 syntax-local-class-type-info? 1 syntax-local-class-type-info?) - (1 - &!class-type-unchecked-accessors-set! - 1 - &!class-type-unchecked-accessors-set!) - (1 !class-type-predicate 1 !class-type-predicate) - (1 &!class-type-accessors 1 &!class-type-accessors) - (1 !class-type-metaclass-set! 1 !class-type-metaclass-set!) - (1 &!class-type-precedence-list 1 &!class-type-precedence-list) - (1 &!class-type-final?-set! 1 &!class-type-final?-set!) - (1 !class-type-constructor 1 !class-type-constructor) - (1 !class-type-slot-types 1 !class-type-slot-types) + &!class-type-constructor-method) (1 &!class-type-final? 1 &!class-type-final?) - (1 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + (1 &!class-type-precedence-list 1 &!class-type-precedence-list) (1 - &!class-type-unchecked-mutators + !class-type-slot-contracts-set! 1 - &!class-type-unchecked-mutators) - (1 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) - (1 !class-type-super 1 !class-type-super) - (1 &!class-type-constructor-set! 1 &!class-type-constructor-set!) - (1 &!class-type-system? 1 &!class-type-system?) - (1 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) - (1 !class-type-mutators-set! 1 !class-type-mutators-set!) - (1 !class-type-constructor-set! 1 !class-type-constructor-set!) - (1 !class-type-system?-set! 1 !class-type-system?-set!) - (1 !class-type-metaclass 1 !class-type-metaclass) - (1 !class-type-name-set! 1 !class-type-name-set!) - (1 !class-type-accessors 1 !class-type-accessors) - (1 !class-type-system? 1 !class-type-system?) - (1 !class-type-name 1 !class-type-name) - (1 &!class-type-name 1 &!class-type-name) - (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) + !class-type-slot-contracts-set!) + (1 !class-type-final?-set! 1 !class-type-final?-set!) + (1 !class-type-slot-types-set! 1 !class-type-slot-types-set!) (1 - !class-type-unchecked-accessors + !class-type-unchecked-mutators-set! 1 - !class-type-unchecked-accessors) - (1 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) - (1 !class-type-id-set! 1 !class-type-id-set!) - (1 class-type-info? 1 class-type-info?) - (1 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (1 &!class-type-ordered-slots 1 &!class-type-ordered-slots) - (1 !class-type-descriptor-set! 1 !class-type-descriptor-set!) + !class-type-unchecked-mutators-set!) + (1 !class-type-predicate-set! 1 !class-type-predicate-set!) + (1 !class-type-metaclass-set! 1 !class-type-metaclass-set!) + (1 !class-type-descriptor 1 !class-type-descriptor) + (1 !class-type-final? 1 !class-type-final?) + (1 !class-type-name 1 !class-type-name) + (1 &!class-type-metaclass 1 &!class-type-metaclass) + (1 !class-type-mutators 1 !class-type-mutators) + (1 &!class-type-system?-set! 1 &!class-type-system?-set!) (1 class-type-info::apply-macro-expander 1 class-type-info::apply-macro-expander) - (1 - !class-type-constructor-method-set! - 1 - !class-type-constructor-method-set!) - (1 make-class-type-info 1 make-class-type-info) - (1 &!class-type-predicate-set! 1 &!class-type-predicate-set!) - (1 &!class-type-constructor 1 &!class-type-constructor) - (1 &!class-type-super-set! 1 &!class-type-super-set!) - (1 - &!class-type-ordered-slots-set! - 1 - &!class-type-ordered-slots-set!) - (1 - !class-type-unchecked-accessors-set! - 1 - !class-type-unchecked-accessors-set!) - (1 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) - (1 !class-type-slot-defaults 1 !class-type-slot-defaults) - (1 !class-type-ordered-slots 1 !class-type-ordered-slots) - (1 !class-type-struct?-set! 1 !class-type-struct?-set!) - (1 !class-type-slots-set! 1 !class-type-slots-set!) - (1 class-type-info::t 1 class-type-info::t) + (1 !class-type-super-set! 1 !class-type-super-set!) (1 class-type-info 1 class-type-info) - (1 define-class 1 define-class) + (1 defmethod 1 defmethod) (1 define-struct 1 define-struct) + (1 define-class 1 define-class) (1 @-set! 1 @-set!) - (1 defmethod 1 defmethod) (1 @ 1 @) (1 defclass 1 defclass) (1 defstruct 1 defstruct) - (1 :readtable 1 :readtable) - (1 :number 1 :number) - (1 :directory-port 1 :directory-port) - (1 :real 1 :real) - (1 :f64vector 1 :f64vector) + (1 :udp-port 1 :udp-port) + (1 :eof 1 :eof) (1 :class 1 :class) - (1 :thread 1 :thread) - (1 :u64vector 1 :u64vector) + (1 :boolean 1 :boolean) + (1 :immediate 1 :immediate) + (1 :fixnum 1 :fixnum) + (1 :atom 1 :atom) + (1 :frame 1 :frame) + (1 :device-port 1 :device-port) (1 :processor 1 :processor) - (1 :s64vector 1 :s64vector) - (1 :ratnum 1 :ratnum) - (1 :port 1 :port) - (1 :bignum 1 :bignum) + (1 :false 1 :false) + (1 :u64vector 1 :u64vector) (1 :writeenv 1 :writeenv) - (1 :event-queue-port 1 :event-queue-port) - (1 :time 1 :time) - (1 :promise 1 :promise) - (1 :eof 1 :eof) - (1 :s16vector 1 :s16vector) + (1 :mutex 1 :mutex) + (1 :values 1 :values) + (1 :vector 1 :vector) (1 :t 1 :t) - (1 :weak 1 :weak) - (1 :hvector 1 :hvector) - (1 :fixnum 1 :fixnum) - (1 defsystem-class-info 1 defsystem-class-info) - (1 :immediate 1 :immediate) + (1 :bignum 1 :bignum) + (1 :address-info 1 :address-info) (1 :readenv 1 :readenv) - (1 :tcp-server-port 1 :tcp-server-port) - (1 :u8vector 1 :u8vector) - (1 :device-port 1 :device-port) - (1 :frame 1 :frame) - (1 :boolean 1 :boolean) + (1 :directory-port 1 :directory-port) + (1 :port 1 :port) + (1 :weak 1 :weak) + (1 :s64vector 1 :s64vector) + (1 :raw-device-port 1 :raw-device-port) (1 :object-port 1 :object-port) - (1 :pair 1 :pair) + (1 :promise 1 :promise) + (1 :foreign 1 :foreign) + (1 :null 1 :null) + (1 :special 1 :special) + (1 :object 1 :object) + (1 :list 1 :list) (1 :continuation 1 :continuation) - (1 :mutex 1 :mutex) - (1 :vm 1 :vm) (1 :f32vector 1 :f32vector) - (1 :s8vector 1 :s8vector) - (1 :values 1 :values) - (1 :vector 1 :vector) - (1 :void 1 :void) - (1 :char 1 :char) - (1 :atom 1 :atom) - (1 :object 1 :object) - (1 :thread-group 1 :thread-group) - (1 :false 1 :false) - (1 :address-info 1 :address-info) - (1 :table 1 :table) (1 :flonum 1 :flonum) - (1 :s32vector 1 :s32vector) - (1 :null 1 :null) + (1 :string 1 :string) + (1 :sequence 1 :sequence) + (1 :procedure 1 :procedure) + (1 :socket-info 1 :socket-info) + (1 :u16vector 1 :u16vector) + (1 :vm 1 :vm) + (1 :table 1 :table) + (1 :vector-port 1 :vector-port) + (1 :condvar 1 :condvar) + (1 :f64vector 1 :f64vector) (1 :keyword 1 :keyword) - (1 :true 1 :true) - (1 :symbolic 1 :symbolic) - (1 :cpxnum 1 :cpxnum) - (1 :special 1 :special) + (1 :thread-group 1 :thread-group) + (1 :ratnum 1 :ratnum) + (1 :u32vector 1 :u32vector) (1 :integer 1 :integer) - (1 :udp-port 1 :udp-port) - (1 :raw-device-port 1 :raw-device-port) - (1 :u8vector-port 1 :u8vector-port) + (1 :u8vector 1 :u8vector) + (1 :cpxnum 1 :cpxnum) + (1 :void 1 :void) + (1 :char 1 :char) + (1 :hvector 1 :hvector) + (1 :file-info 1 :file-info) + (1 :tcp-server-port 1 :tcp-server-port) + (1 :s32vector 1 :s32vector) (1 :byte-port 1 :byte-port) - (1 :condvar 1 :condvar) - (1 :procedure 1 :procedure) - (1 :u32vector 1 :u32vector) - (1 class 1 class) - (1 :foreign 1 :foreign) - (1 :sequence 1 :sequence) (1 :box 1 :box) - (1 :u16vector 1 :u16vector) - (1 :string 1 :string) - (1 :list 1 :list) + (1 defsystem-class-info 1 defsystem-class-info) + (1 :symbolic 1 :symbolic) + (1 :s8vector 1 :s8vector) + (1 :pair 1 :pair) + (1 :time 1 :time) + (1 :readtable 1 :readtable) + (1 :thread 1 :thread) + (1 :true 1 :true) + (1 :s16vector 1 :s16vector) + (1 :number 1 :number) (1 :symbol 1 :symbol) - (1 :socket-info 1 :socket-info) - (1 :file-info 1 :file-info) - (1 :string-port 1 :string-port) + (1 :event-queue-port 1 :event-queue-port) + (1 :u8vector-port 1 :u8vector-port) + (1 :real 1 :real) (1 :character-port 1 :character-port) - (1 :vector-port 1 :vector-port)) + (1 :string-port 1 :string-port) + (1 class 1 class)) :gerbil/core/match :gerbil/core/more-sugar :gerbil/core/contract @@ -338,327 +338,327 @@ namespace: gerbil/core (spec: (:gerbil/core/mop) (1 MOP-3 0 MOP-3) - (1 MOP-2 0 MOP-2) (1 MOP-5 0 MOP-5) - (1 MOP-4 0 MOP-4) + (1 MOP-2 0 MOP-2) (1 MOP-1 0 MOP-1) + (1 MOP-4 0 MOP-4) (1 defclass-type 0 defclass-type) (1 defstruct-type 0 defstruct-type) (2 module-type-id 1 module-type-id) (2 make-class-type-id 1 make-class-type-id) - (1 define-class 0 define-class) + (1 defmethod 0 defmethod) (1 define-struct 0 define-struct) + (1 define-class 0 define-class) (1 @-set! 0 @-set!) - (1 defmethod 0 defmethod) (1 @ 0 @) (1 defclass 0 defclass) (1 defstruct 0 defstruct) - (1 :readtable 0 :readtable) - (1 :number 0 :number) - (1 :directory-port 0 :directory-port) - (1 :real 0 :real) - (1 :f64vector 0 :f64vector) - (1 :class 0 :class) - (1 :thread 0 :thread) - (1 :u64vector 0 :u64vector) - (1 :processor 0 :processor) - (1 :s64vector 0 :s64vector) - (1 :ratnum 0 :ratnum) - (1 :port 0 :port) - (1 :bignum 0 :bignum) - (1 :writeenv 0 :writeenv) - (1 :event-queue-port 0 :event-queue-port) - (1 :time 0 :time) - (1 :promise 0 :promise) + (1 :udp-port 0 :udp-port) (1 :eof 0 :eof) - (1 :s16vector 0 :s16vector) - (1 :t 0 :t) - (1 :weak 0 :weak) - (1 :hvector 0 :hvector) - (1 :fixnum 0 :fixnum) - (1 defsystem-class-info 0 defsystem-class-info) + (1 :class 0 :class) + (1 :boolean 0 :boolean) (1 :immediate 0 :immediate) - (1 :readenv 0 :readenv) - (1 :tcp-server-port 0 :tcp-server-port) - (1 :u8vector 0 :u8vector) - (1 :device-port 0 :device-port) + (1 :fixnum 0 :fixnum) + (1 :atom 0 :atom) (1 :frame 0 :frame) - (1 :boolean 0 :boolean) - (1 :object-port 0 :object-port) - (1 :pair 0 :pair) - (1 :continuation 0 :continuation) + (1 :device-port 0 :device-port) + (1 :processor 0 :processor) + (1 :false 0 :false) + (1 :u64vector 0 :u64vector) + (1 :writeenv 0 :writeenv) (1 :mutex 0 :mutex) - (1 :vm 0 :vm) - (1 :f32vector 0 :f32vector) - (1 :s8vector 0 :s8vector) (1 :values 0 :values) (1 :vector 0 :vector) - (1 :void 0 :void) - (1 :char 0 :char) - (1 :atom 0 :atom) - (1 :object 0 :object) - (1 :thread-group 0 :thread-group) - (1 :false 0 :false) + (1 :t 0 :t) + (1 :bignum 0 :bignum) (1 :address-info 0 :address-info) - (1 :table 0 :table) - (1 :flonum 0 :flonum) - (1 :s32vector 0 :s32vector) + (1 :readenv 0 :readenv) + (1 :directory-port 0 :directory-port) + (1 :port 0 :port) + (1 :weak 0 :weak) + (1 :s64vector 0 :s64vector) + (1 :raw-device-port 0 :raw-device-port) + (1 :object-port 0 :object-port) + (1 :promise 0 :promise) + (1 :foreign 0 :foreign) (1 :null 0 :null) - (1 :keyword 0 :keyword) - (1 :true 0 :true) - (1 :symbolic 0 :symbolic) - (1 :cpxnum 0 :cpxnum) (1 :special 0 :special) - (1 :integer 0 :integer) - (1 :udp-port 0 :udp-port) - (1 :raw-device-port 0 :raw-device-port) - (1 :u8vector-port 0 :u8vector-port) - (1 :byte-port 0 :byte-port) - (1 :condvar 0 :condvar) + (1 :object 0 :object) + (1 :list 0 :list) + (1 :continuation 0 :continuation) + (1 :f32vector 0 :f32vector) + (1 :flonum 0 :flonum) + (1 :string 0 :string) + (1 :sequence 0 :sequence) (1 :procedure 0 :procedure) + (1 :socket-info 0 :socket-info) + (1 :u16vector 0 :u16vector) + (1 :vm 0 :vm) + (1 :table 0 :table) + (1 :vector-port 0 :vector-port) + (1 :condvar 0 :condvar) + (1 :f64vector 0 :f64vector) + (1 :keyword 0 :keyword) + (1 :thread-group 0 :thread-group) + (1 :ratnum 0 :ratnum) (1 :u32vector 0 :u32vector) - (1 class 0 class) - (1 :foreign 0 :foreign) - (1 :sequence 0 :sequence) + (1 :integer 0 :integer) + (1 :u8vector 0 :u8vector) + (1 :cpxnum 0 :cpxnum) + (1 :void 0 :void) + (1 :char 0 :char) + (1 :hvector 0 :hvector) + (1 :file-info 0 :file-info) + (1 :tcp-server-port 0 :tcp-server-port) + (1 :s32vector 0 :s32vector) + (1 :byte-port 0 :byte-port) (1 :box 0 :box) - (1 :u16vector 0 :u16vector) - (1 :string 0 :string) - (1 :list 0 :list) + (1 defsystem-class-info 0 defsystem-class-info) + (1 :symbolic 0 :symbolic) + (1 :s8vector 0 :s8vector) + (1 :pair 0 :pair) + (1 :time 0 :time) + (1 :readtable 0 :readtable) + (1 :thread 0 :thread) + (1 :true 0 :true) + (1 :s16vector 0 :s16vector) + (1 :number 0 :number) (1 :symbol 0 :symbol) - (1 :socket-info 0 :socket-info) - (1 :file-info 0 :file-info) - (1 :string-port 0 :string-port) + (1 :event-queue-port 0 :event-queue-port) + (1 :u8vector-port 0 :u8vector-port) + (1 :real 0 :real) (1 :character-port 0 :character-port) - (1 :vector-port 0 :vector-port) + (1 :string-port 0 :string-port) + (1 class 0 class) (2 defclass-type 1 defclass-type) (2 defstruct-type 1 defstruct-type) (3 module-type-id 2 module-type-id) (3 make-class-type-id 2 make-class-type-id) - (2 &!class-type-system?-set! 1 &!class-type-system?-set!) - (2 !class-type-descriptor 1 !class-type-descriptor) + (2 &!class-type-constructor-set! 1 &!class-type-constructor-set!) + (2 &!class-type-slot-types 1 &!class-type-slot-types) + (2 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + (2 &!class-type-id-set! 1 &!class-type-id-set!) + (2 &!class-type-constructor 1 &!class-type-constructor) (2 - &!class-type-constructor-method + !class-type-unchecked-accessors 1 - &!class-type-constructor-method) - (2 &!class-type-slots-set! 1 &!class-type-slots-set!) - (2 !class-type-super-set! 1 !class-type-super-set!) - (2 !class-type-final? 1 !class-type-final?) - (2 !class-type-slot-types-set! 1 !class-type-slot-types-set!) + !class-type-unchecked-accessors) + (2 &!class-type-system? 1 &!class-type-system?) + (2 + !class-type-precedence-list-set! + 1 + !class-type-precedence-list-set!) + (2 !class-type-slots-set! 1 !class-type-slots-set!) + (2 !class-type-constructor 1 !class-type-constructor) + (2 !class-type-constructor-method 1 !class-type-constructor-method) (2 !class-type-struct? 1 !class-type-struct?) - (2 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (2 !class-type-id 1 !class-type-id) + (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) (2 - &!class-type-unchecked-mutators-set! + &!class-type-slot-contracts-set! 1 - &!class-type-unchecked-mutators-set!) + &!class-type-slot-contracts-set!) + (2 + !class-type-unchecked-accessors-set! + 1 + !class-type-unchecked-accessors-set!) + (2 !class-type-id-set! 1 !class-type-id-set!) + (2 &!class-type-struct? 1 &!class-type-struct?) + (2 class-type-info? 1 class-type-info?) + (2 &!class-type-name 1 &!class-type-name) + (2 !class-type-slots 1 !class-type-slots) + (2 class-type-info::t 1 class-type-info::t) + (2 &!class-type-slots-set! 1 &!class-type-slots-set!) + (2 syntax-local-class-type-info? 1 syntax-local-class-type-info?) + (2 &!class-type-predicate-set! 1 &!class-type-predicate-set!) + (2 !class-type-slot-contracts 1 !class-type-slot-contracts) + (2 !class-type-accessors 1 !class-type-accessors) + (2 !class-type-precedence-list 1 !class-type-precedence-list) + (2 !class-type-slot-types 1 !class-type-slot-types) (2 &!class-type-constructor-method-set! 1 &!class-type-constructor-method-set!) - (2 &!class-type-predicate 1 &!class-type-predicate) + (2 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) + (2 &!class-type-super 1 &!class-type-super) + (2 + &!class-type-unchecked-mutators-set! + 1 + &!class-type-unchecked-mutators-set!) + (2 !class-type-metaclass 1 !class-type-metaclass) + (2 &!class-type-accessors 1 &!class-type-accessors) + (2 !class-type-system? 1 !class-type-system?) + (2 !class-type-ordered-slots 1 !class-type-ordered-slots) (2 &!class-type-slot-defaults-set! 1 &!class-type-slot-defaults-set!) - (2 &!class-type-accessors-set! 1 &!class-type-accessors-set!) (2 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) + (2 &!class-type-final?-set! 1 &!class-type-final?-set!) + (2 &!class-type-slot-defaults 1 &!class-type-slot-defaults) + (2 !class-type-descriptor-set! 1 !class-type-descriptor-set!) + (2 make-class-type-info 1 make-class-type-info) (2 &!class-type-precedence-list-set! 1 &!class-type-precedence-list-set!) - (2 &!class-type-name-set! 1 &!class-type-name-set!) - (2 &!class-type-id-set! 1 &!class-type-id-set!) - (2 !class-type-slots 1 !class-type-slots) - (2 &!class-type-slot-types 1 &!class-type-slot-types) (2 - !class-type-unchecked-mutators-set! + &!class-type-unchecked-mutators 1 - !class-type-unchecked-mutators-set!) - (2 &!class-type-slots 1 &!class-type-slots) - (2 &!class-type-struct? 1 &!class-type-struct?) - (2 !class-type-predicate-set! 1 !class-type-predicate-set!) - (2 &!class-type-slot-defaults 1 &!class-type-slot-defaults) + &!class-type-unchecked-mutators) + (2 &!class-type-id 1 &!class-type-id) + (2 !class-type-mutators-set! 1 !class-type-mutators-set!) + (2 + !class-type-constructor-method-set! + 1 + !class-type-constructor-method-set!) + (2 !class-type-slot-defaults 1 !class-type-slot-defaults) + (2 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) + (2 !class-type-constructor-set! 1 !class-type-constructor-set!) + (2 !class-type-system?-set! 1 !class-type-system?-set!) (2 &!class-type-mutators 1 &!class-type-mutators) - (2 !class-type-final?-set! 1 !class-type-final?-set!) - (2 &!class-type-descriptor 1 &!class-type-descriptor) - (2 &!class-type-super 1 &!class-type-super) + (2 !class-type-super 1 !class-type-super) + (2 &!class-type-predicate 1 &!class-type-predicate) + (2 !class-type-struct?-set! 1 !class-type-struct?-set!) + (2 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) + (2 !class-type-accessors-set! 1 !class-type-accessors-set!) + (2 !class-type-predicate 1 !class-type-predicate) + (2 &!class-type-ordered-slots 1 &!class-type-ordered-slots) + (2 !class-type-name-set! 1 !class-type-name-set!) + (2 &!class-type-slots 1 &!class-type-slots) + (2 &!class-type-name-set! 1 &!class-type-name-set!) (2 - !class-type-precedence-list-set! + &!class-type-unchecked-accessors-set! 1 - !class-type-precedence-list-set!) - (2 !class-type-slot-contracts 1 !class-type-slot-contracts) - (2 !class-type-mutators 1 !class-type-mutators) - (2 !class-type-constructor-method 1 !class-type-constructor-method) - (2 !class-type-precedence-list 1 !class-type-precedence-list) + &!class-type-unchecked-accessors-set!) + (2 &!class-type-accessors-set! 1 &!class-type-accessors-set!) + (2 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) + (2 &!class-type-struct?-set! 1 &!class-type-struct?-set!) (2 - !class-type-slot-contracts-set! + &!class-type-ordered-slots-set! 1 - !class-type-slot-contracts-set!) - (2 &!class-type-metaclass 1 &!class-type-metaclass) + &!class-type-ordered-slots-set!) + (2 &!class-type-super-set! 1 &!class-type-super-set!) + (2 &!class-type-slot-contracts 1 &!class-type-slot-contracts) (2 &!class-type-unchecked-accessors 1 &!class-type-unchecked-accessors) - (2 !class-type-id 1 !class-type-id) - (2 &!class-type-id 1 &!class-type-id) - (2 - &!class-type-slot-contracts-set! - 1 - &!class-type-slot-contracts-set!) - (2 !class-type-accessors-set! 1 !class-type-accessors-set!) - (2 syntax-local-class-type-info? 1 syntax-local-class-type-info?) + (2 &!class-type-descriptor 1 &!class-type-descriptor) (2 - &!class-type-unchecked-accessors-set! + &!class-type-constructor-method 1 - &!class-type-unchecked-accessors-set!) - (2 !class-type-predicate 1 !class-type-predicate) - (2 &!class-type-accessors 1 &!class-type-accessors) - (2 !class-type-metaclass-set! 1 !class-type-metaclass-set!) - (2 &!class-type-precedence-list 1 &!class-type-precedence-list) - (2 &!class-type-final?-set! 1 &!class-type-final?-set!) - (2 !class-type-constructor 1 !class-type-constructor) - (2 !class-type-slot-types 1 !class-type-slot-types) + &!class-type-constructor-method) (2 &!class-type-final? 1 &!class-type-final?) - (2 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + (2 &!class-type-precedence-list 1 &!class-type-precedence-list) (2 - &!class-type-unchecked-mutators + !class-type-slot-contracts-set! 1 - &!class-type-unchecked-mutators) - (2 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) - (2 !class-type-super 1 !class-type-super) - (2 &!class-type-constructor-set! 1 &!class-type-constructor-set!) - (2 &!class-type-system? 1 &!class-type-system?) - (2 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) - (2 !class-type-mutators-set! 1 !class-type-mutators-set!) - (2 !class-type-constructor-set! 1 !class-type-constructor-set!) - (2 !class-type-system?-set! 1 !class-type-system?-set!) - (2 !class-type-metaclass 1 !class-type-metaclass) - (2 !class-type-name-set! 1 !class-type-name-set!) - (2 !class-type-accessors 1 !class-type-accessors) - (2 !class-type-system? 1 !class-type-system?) - (2 !class-type-name 1 !class-type-name) - (2 &!class-type-name 1 &!class-type-name) - (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) + !class-type-slot-contracts-set!) + (2 !class-type-final?-set! 1 !class-type-final?-set!) + (2 !class-type-slot-types-set! 1 !class-type-slot-types-set!) (2 - !class-type-unchecked-accessors + !class-type-unchecked-mutators-set! 1 - !class-type-unchecked-accessors) - (2 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) - (2 !class-type-id-set! 1 !class-type-id-set!) - (2 class-type-info? 1 class-type-info?) - (2 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (2 &!class-type-ordered-slots 1 &!class-type-ordered-slots) - (2 !class-type-descriptor-set! 1 !class-type-descriptor-set!) + !class-type-unchecked-mutators-set!) + (2 !class-type-predicate-set! 1 !class-type-predicate-set!) + (2 !class-type-metaclass-set! 1 !class-type-metaclass-set!) + (2 !class-type-descriptor 1 !class-type-descriptor) + (2 !class-type-final? 1 !class-type-final?) + (2 !class-type-name 1 !class-type-name) + (2 &!class-type-metaclass 1 &!class-type-metaclass) + (2 !class-type-mutators 1 !class-type-mutators) + (2 &!class-type-system?-set! 1 &!class-type-system?-set!) (2 class-type-info::apply-macro-expander 1 class-type-info::apply-macro-expander) - (2 - !class-type-constructor-method-set! - 1 - !class-type-constructor-method-set!) - (2 make-class-type-info 1 make-class-type-info) - (2 &!class-type-predicate-set! 1 &!class-type-predicate-set!) - (2 &!class-type-constructor 1 &!class-type-constructor) - (2 &!class-type-super-set! 1 &!class-type-super-set!) - (2 - &!class-type-ordered-slots-set! - 1 - &!class-type-ordered-slots-set!) - (2 - !class-type-unchecked-accessors-set! - 1 - !class-type-unchecked-accessors-set!) - (2 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) - (2 !class-type-slot-defaults 1 !class-type-slot-defaults) - (2 !class-type-ordered-slots 1 !class-type-ordered-slots) - (2 !class-type-struct?-set! 1 !class-type-struct?-set!) - (2 !class-type-slots-set! 1 !class-type-slots-set!) - (2 class-type-info::t 1 class-type-info::t) + (2 !class-type-super-set! 1 !class-type-super-set!) (2 class-type-info 1 class-type-info) - (2 define-class 1 define-class) + (2 defmethod 1 defmethod) (2 define-struct 1 define-struct) + (2 define-class 1 define-class) (2 @-set! 1 @-set!) - (2 defmethod 1 defmethod) (2 @ 1 @) (2 defclass 1 defclass) (2 defstruct 1 defstruct) - (2 :readtable 1 :readtable) - (2 :number 1 :number) - (2 :directory-port 1 :directory-port) - (2 :real 1 :real) - (2 :f64vector 1 :f64vector) + (2 :udp-port 1 :udp-port) + (2 :eof 1 :eof) (2 :class 1 :class) - (2 :thread 1 :thread) - (2 :u64vector 1 :u64vector) + (2 :boolean 1 :boolean) + (2 :immediate 1 :immediate) + (2 :fixnum 1 :fixnum) + (2 :atom 1 :atom) + (2 :frame 1 :frame) + (2 :device-port 1 :device-port) (2 :processor 1 :processor) - (2 :s64vector 1 :s64vector) - (2 :ratnum 1 :ratnum) - (2 :port 1 :port) - (2 :bignum 1 :bignum) + (2 :false 1 :false) + (2 :u64vector 1 :u64vector) (2 :writeenv 1 :writeenv) - (2 :event-queue-port 1 :event-queue-port) - (2 :time 1 :time) - (2 :promise 1 :promise) - (2 :eof 1 :eof) - (2 :s16vector 1 :s16vector) + (2 :mutex 1 :mutex) + (2 :values 1 :values) + (2 :vector 1 :vector) (2 :t 1 :t) - (2 :weak 1 :weak) - (2 :hvector 1 :hvector) - (2 :fixnum 1 :fixnum) - (2 defsystem-class-info 1 defsystem-class-info) - (2 :immediate 1 :immediate) + (2 :bignum 1 :bignum) + (2 :address-info 1 :address-info) (2 :readenv 1 :readenv) - (2 :tcp-server-port 1 :tcp-server-port) - (2 :u8vector 1 :u8vector) - (2 :device-port 1 :device-port) - (2 :frame 1 :frame) - (2 :boolean 1 :boolean) + (2 :directory-port 1 :directory-port) + (2 :port 1 :port) + (2 :weak 1 :weak) + (2 :s64vector 1 :s64vector) + (2 :raw-device-port 1 :raw-device-port) (2 :object-port 1 :object-port) - (2 :pair 1 :pair) + (2 :promise 1 :promise) + (2 :foreign 1 :foreign) + (2 :null 1 :null) + (2 :special 1 :special) + (2 :object 1 :object) + (2 :list 1 :list) (2 :continuation 1 :continuation) - (2 :mutex 1 :mutex) - (2 :vm 1 :vm) (2 :f32vector 1 :f32vector) - (2 :s8vector 1 :s8vector) - (2 :values 1 :values) - (2 :vector 1 :vector) - (2 :void 1 :void) - (2 :char 1 :char) - (2 :atom 1 :atom) - (2 :object 1 :object) - (2 :thread-group 1 :thread-group) - (2 :false 1 :false) - (2 :address-info 1 :address-info) - (2 :table 1 :table) (2 :flonum 1 :flonum) - (2 :s32vector 1 :s32vector) - (2 :null 1 :null) + (2 :string 1 :string) + (2 :sequence 1 :sequence) + (2 :procedure 1 :procedure) + (2 :socket-info 1 :socket-info) + (2 :u16vector 1 :u16vector) + (2 :vm 1 :vm) + (2 :table 1 :table) + (2 :vector-port 1 :vector-port) + (2 :condvar 1 :condvar) + (2 :f64vector 1 :f64vector) (2 :keyword 1 :keyword) - (2 :true 1 :true) - (2 :symbolic 1 :symbolic) - (2 :cpxnum 1 :cpxnum) - (2 :special 1 :special) + (2 :thread-group 1 :thread-group) + (2 :ratnum 1 :ratnum) + (2 :u32vector 1 :u32vector) (2 :integer 1 :integer) - (2 :udp-port 1 :udp-port) - (2 :raw-device-port 1 :raw-device-port) - (2 :u8vector-port 1 :u8vector-port) + (2 :u8vector 1 :u8vector) + (2 :cpxnum 1 :cpxnum) + (2 :void 1 :void) + (2 :char 1 :char) + (2 :hvector 1 :hvector) + (2 :file-info 1 :file-info) + (2 :tcp-server-port 1 :tcp-server-port) + (2 :s32vector 1 :s32vector) (2 :byte-port 1 :byte-port) - (2 :condvar 1 :condvar) - (2 :procedure 1 :procedure) - (2 :u32vector 1 :u32vector) - (2 class 1 class) - (2 :foreign 1 :foreign) - (2 :sequence 1 :sequence) (2 :box 1 :box) - (2 :u16vector 1 :u16vector) - (2 :string 1 :string) - (2 :list 1 :list) + (2 defsystem-class-info 1 defsystem-class-info) + (2 :symbolic 1 :symbolic) + (2 :s8vector 1 :s8vector) + (2 :pair 1 :pair) + (2 :time 1 :time) + (2 :readtable 1 :readtable) + (2 :thread 1 :thread) + (2 :true 1 :true) + (2 :s16vector 1 :s16vector) + (2 :number 1 :number) (2 :symbol 1 :symbol) - (2 :socket-info 1 :socket-info) - (2 :file-info 1 :file-info) - (2 :string-port 1 :string-port) + (2 :event-queue-port 1 :event-queue-port) + (2 :u8vector-port 1 :u8vector-port) + (2 :real 1 :real) (2 :character-port 1 :character-port) - (2 :vector-port 1 :vector-port)) + (2 :string-port 1 :string-port) + (2 class 1 class)) (phi: 1 :gerbil/core/match) (phi: 1 :gerbil/core/more-sugar) (phi: 1 :gerbil/core/contract) @@ -669,368 +669,398 @@ namespace: gerbil/core (phi: 2 :gerbil/core/expander)) (%#export (spec: 1 !class-precedence-list !class-precedence-list) + (spec: 1 type-env-var type-env-var) (spec: 1 type-env-type-set! type-env-type-set!) - (spec: 1 &type-env-type-set! &type-env-type-set!) - (spec: 1 current-type-env current-type-env) + (spec: 1 make-type-env make-type-env) + (spec: 1 &type-env-checked? &type-env-checked?) + (spec: 1 type-env-var-set! type-env-var-set!) + (spec: 1 type-env-checked? type-env-checked?) + (spec: 1 &type-env-type &type-env-type) (spec: 1 type-env-type type-env-type) - (spec: 1 type-env::t type-env::t) - (spec: 1 type-env? type-env?) + (spec: 1 &type-env-var &type-env-var) + (spec: 1 type-env-lookup type-env-lookup) + (spec: 1 current-type-env current-type-env) + (spec: 1 &type-env-type-set! &type-env-type-set!) + (spec: 1 type-env type-env) (spec: 1 type-env-checked?-set! type-env-checked?-set!) - (spec: 1 &type-env-type &type-env-type) - (spec: 1 &type-env-super-set! &type-env-super-set!) - (spec: 1 type-env-var-set! type-env-var-set!) - (spec: 1 make-type-env make-type-env) + (spec: 1 type-env::t type-env::t) (spec: 1 type-env-super type-env-super) + (spec: 1 &type-env-super-set! &type-env-super-set!) + (spec: 1 type-env? type-env?) + (spec: 1 type-env-super-set! type-env-super-set!) + (spec: 1 &type-env-checked?-set! &type-env-checked?-set!) (spec: 1 &type-env-var-set! &type-env-var-set!) - (spec: 1 type-env-lookup type-env-lookup) (spec: 1 &type-env-super &type-env-super) - (spec: 1 &type-env-checked?-set! &type-env-checked?-set!) - (spec: 1 type-env-var type-env-var) - (spec: 1 type-env-super-set! type-env-super-set!) - (spec: 1 &type-env-checked? &type-env-checked?) - (spec: 1 type-env type-env) - (spec: 1 type-env-checked? type-env-checked?) - (spec: 1 &type-env-var &type-env-var) - (spec: - 1 - interface-info-instance-constructor-set! - interface-info-instance-constructor-set!) - (spec: - 1 - &interface-info-instance-satisfies-predicate - &interface-info-instance-satisfies-predicate) - (spec: 1 interface-info::t interface-info::t) (spec: 1 - interface-info-interface-mixin-set! - interface-info-interface-mixin-set!) + &interface-info-interface-methods + &interface-info-interface-methods) (spec: 1 &interface-info-instance-try-constructor-set! &interface-info-instance-try-constructor-set!) - (spec: 1 interface-info-flatten-mixin interface-info-flatten-mixin) (spec: 1 interface-info-interface-methods interface-info-interface-methods) - (spec: 1 interface-info-instance-type interface-info-instance-type) - (spec: - 1 - &interface-info-unchecked-implementation-methods-set! - &interface-info-unchecked-implementation-methods-set!) - (spec: - 1 - interface-info-instance-try-constructor - interface-info-instance-try-constructor) (spec: 1 interface-info-instance-constructor interface-info-instance-constructor) (spec: 1 - interface-info-instance-type-set! - interface-info-instance-type-set!) + &interface-info-implementation-methods-set! + &interface-info-implementation-methods-set!) (spec: 1 - interface-info-instance-predicate - interface-info-instance-predicate) + interface-info-interface-mixin-set! + interface-info-interface-mixin-set!) (spec: 1 - interface-info-instance-predicate-set! - interface-info-instance-predicate-set!) + &interface-info-interface-precedence-list-set! + &interface-info-interface-precedence-list-set!) (spec: 1 - interface-info-instance-satisfies-predicate-set! - interface-info-instance-satisfies-predicate-set!) + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) (spec: 1 - interface-info-implementation-methods-set! - interface-info-implementation-methods-set!) - (spec: 1 interface-info? interface-info?) + &interface-info-implementation-methods + &interface-info-implementation-methods) (spec: 1 - interface-info-instance-try-constructor-set! - interface-info-instance-try-constructor-set!) + &interface-info-interface-methods-set! + &interface-info-interface-methods-set!) (spec: 1 - &interface-info-implementation-methods - &interface-info-implementation-methods) + &interface-info-instance-predicate-set! + &interface-info-instance-predicate-set!) (spec: 1 - &interface-info-interface-mixin-set! - &interface-info-interface-mixin-set!) + interface-mixin->precedence-list + interface-mixin->precedence-list) (spec: 1 - &interface-info-interface-descriptor-set! - &interface-info-interface-descriptor-set!) + interface-info-instance-predicate-set! + interface-info-instance-predicate-set!) + (spec: 1 &interface-info-namespace &interface-info-namespace) (spec: 1 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) - (spec: 1 &interface-info-name &interface-info-name) + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) (spec: 1 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) - (spec: 1 syntax-local-interface-info? syntax-local-interface-info?) + interface-info-instance-try-constructor + interface-info-instance-try-constructor) + (spec: 1 interface-info-namespace-set! interface-info-namespace-set!) (spec: 1 - &interface-info-interface-methods - &interface-info-interface-methods) + &interface-info-unchecked-implementation-methods-set! + &interface-info-unchecked-implementation-methods-set!) + (spec: 1 syntax-local-interface-info? syntax-local-interface-info?) (spec: 1 - interface-info-interface-mixin - interface-info-interface-mixin) + interface-info-unchecked-implementation-methods + interface-info-unchecked-implementation-methods) (spec: 1 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) + interface-info-instance-try-constructor-set! + interface-info-instance-try-constructor-set!) (spec: 1 - &interface-info-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) + &interface-info-instance-satisfies-predicate + &interface-info-instance-satisfies-predicate) + (spec: + 1 + interface-info-instance-predicate + interface-info-instance-predicate) + (spec: 1 interface-info-namespace interface-info-namespace) + (spec: + 1 + interface-info-instance-satisfies-predicate + interface-info-instance-satisfies-predicate) (spec: 1 interface-info-name-set! interface-info-name-set!) (spec: 1 interface-info-interface-descriptor-set! interface-info-interface-descriptor-set!) + (spec: 1 &interface-info-name &interface-info-name) (spec: 1 - &interface-info-interface-methods-set! - &interface-info-interface-methods-set!) + &interface-info-instance-try-constructor + &interface-info-instance-try-constructor) (spec: 1 - &interface-info-interface-mixin - &interface-info-interface-mixin) + interface-info-interface-mixin + interface-info-interface-mixin) (spec: 1 &interface-info-instance-predicate &interface-info-instance-predicate) - (spec: 1 &interface-info-instance-type &interface-info-instance-type) (spec: 1 - &interface-info-interface-descriptor - &interface-info-interface-descriptor) + &interface-info-instance-type-set! + &interface-info-instance-type-set!) (spec: 1 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) + &interface-info-instance-satisfies-predicate-set! + &interface-info-instance-satisfies-predicate-set!) (spec: 1 - &interface-info-instance-predicate-set! - &interface-info-instance-predicate-set!) - (spec: 1 interface-info-name interface-info-name) + interface-info-implementation-methods-set! + interface-info-implementation-methods-set!) + (spec: 1 interface-info::t interface-info::t) (spec: 1 - &interface-info-implementation-methods-set! - &interface-info-implementation-methods-set!) + interface-info-interface-precedence-list + interface-info-interface-precedence-list) + (spec: 1 make-interface-info make-interface-info) + (spec: + 1 + interface-info-implementation-methods + interface-info-implementation-methods) + (spec: + 1 + interface-info-interface-precedence-list-set! + interface-info-interface-precedence-list-set!) (spec: 1 interface-info-interface-descriptor interface-info-interface-descriptor) (spec: 1 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) - (spec: 1 interface-info interface-info) + interface-info::apply-macro-expander + interface-info::apply-macro-expander) (spec: 1 interface-info-interface-methods-set! interface-info-interface-methods-set!) + (spec: 1 interface-info interface-info) (spec: 1 - &interface-info-instance-try-constructor - &interface-info-instance-try-constructor) - (spec: 1 make-interface-info make-interface-info) + interface-info-instance-satisfies-predicate-set! + interface-info-instance-satisfies-predicate-set!) + (spec: 1 &interface-info-name-set! &interface-info-name-set!) (spec: 1 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) + &interface-info-interface-precedence-list + &interface-info-interface-precedence-list) + (spec: 1 &interface-info-instance-type &interface-info-instance-type) (spec: 1 - interface-info-implementation-methods - interface-info-implementation-methods) + interface-info-instance-type-set! + interface-info-instance-type-set!) (spec: 1 - interface-info-unchecked-implementation-methods - interface-info-unchecked-implementation-methods) + &interface-info-interface-descriptor-set! + &interface-info-interface-descriptor-set!) + (spec: + 1 + interface-info-unchecked-implementation-methods-set! + interface-info-unchecked-implementation-methods-set!) + (spec: 1 interface-info-instance-type interface-info-instance-type) + (spec: + 1 + &interface-info-namespace-set! + &interface-info-namespace-set!) + (spec: + 1 + &interface-info-unchecked-implementation-methods + &interface-info-unchecked-implementation-methods) + (spec: 1 interface-info? interface-info?) + (spec: + 1 + &interface-info-interface-descriptor + &interface-info-interface-descriptor) (spec: 1 &interface-info-instance-constructor &interface-info-instance-constructor) - (spec: 1 &interface-info-name-set! &interface-info-name-set!) + (spec: + 1 + &interface-info-interface-mixin-set! + &interface-info-interface-mixin-set!) + (spec: + 1 + interface-identifier->precedence-list + interface-identifier->precedence-list) + (spec: 1 interface-info-name interface-info-name) + (spec: + 1 + &interface-info-interface-mixin + &interface-info-interface-mixin) (spec: 1 is-signature? is-signature?) - (spec: 0 defstruct/c defstruct/c) - (spec: 0 do-while/c do-while/c) (spec: 0 @method @method) - (spec: 0 defmethod/c defmethod/c) + (spec: 0 do-loop-step do-loop-step) (spec: 0 defclass/c defclass/c) - (spec: 0 def*/c def*/c) (spec: 0 with-procedure-signature with-procedure-signature) - (spec: 0 case-lambda/c case-lambda/c) - (spec: 0 do/c do/c) - (spec: 0 do-loop-step do-loop-step) - (spec: 0 def/c def/c) - (spec: 0 defmutable defmutable) + (spec: 0 def*/c def*/c) + (spec: 0 let/c let/c) + (spec: 0 defstruct/c defstruct/c) (spec: 0 do-loop-result do-loop-result) + (spec: 0 defmethod/c defmethod/c) (spec: 0 lambda/c lambda/c) + (spec: 0 with-receiver with-receiver) (spec: 0 with-procedure-contract with-procedure-contract) + (spec: 0 defmutable* defmutable*) + (spec: 0 do-while/c do-while/c) + (spec: 0 defmutable defmutable) + (spec: 0 def/c def/c) + (spec: 0 do/c do/c) (spec: 0 with-procedure-unchecked-contract with-procedure-unchecked-contract) - (spec: 0 with-receiver with-receiver) - (spec: 0 defmutable* defmutable*) - (spec: 0 let/c let/c) - (spec: - 1 - compatible-signature-type-contract? - compatible-signature-type-contract?) + (spec: 0 case-lambda/c case-lambda/c) + (spec: 1 symbolidentifier resolve-type->identifier) + (spec: 1 resolve-type->type-descriptor resolve-type->type-descriptor) (spec: 1 &type-reference-identifier-set! &type-reference-identifier-set!) - (spec: 1 resolve-type resolve-type) - (spec: 1 type-reference? type-reference?) - (spec: 1 type-reference::t type-reference::t) (spec: 1 &type-reference-identifier &type-reference-identifier) - (spec: 1 resolve-type->type-descriptor resolve-type->type-descriptor) + (spec: 1 type-reference? type-reference?) (spec: 1 make-type-reference make-type-reference) - (spec: 1 type-identifier? type-identifier?) - (spec: 1 resolve-type->identifier resolve-type->identifier) + (spec: 1 type-reference::t type-reference::t) (spec: 0 deftype deftype) - (spec: 0 ContractRules ContractRules) - (spec: 0 ClassMeta ClassMeta) - (spec: 0 TypeCast TypeCast) - (spec: 0 Interface Interface) - (spec: 0 TypeReference TypeReference) (spec: 0 TypeEnv TypeEnv) - (spec: 0 TypedDefinitions TypedDefinitions) - (spec: 0 Using Using) (spec: 0 InterfaceInfo InterfaceInfo) - (spec: 0 defsyntax-for-import defsyntax-for-import) - (spec: 0 for-template for-template) - (spec: 0 rename-in rename-in) - (spec: 0 group-in group-in) - (spec: 0 prefix-out prefix-out) - (spec: 0 defsyntax-for-export defsyntax-for-export) - (spec: 0 except-out except-out) + (spec: 0 TypeReference TypeReference) + (spec: 0 Using Using) + (spec: 0 Interface Interface) + (spec: 0 ClassMeta ClassMeta) + (spec: 0 TypedDefinitions TypedDefinitions) + (spec: 0 ContractRules ContractRules) + (spec: 0 TypeCast TypeCast) (spec: 0 struct-out struct-out) - (spec: 0 prefix-in prefix-in) - (spec: 0 require require) - (spec: 0 defsyntax-for-import-export defsyntax-for-import-export) + (spec: 0 for-template for-template) (spec: 0 except-in except-in) (spec: 0 for-syntax for-syntax) + (spec: 0 defsyntax-for-import-export defsyntax-for-import-export) + (spec: 0 group-in group-in) + (spec: 0 defsyntax-for-import defsyntax-for-import) + (spec: 0 except-out except-out) + (spec: 0 rename-in rename-in) (spec: 0 only-in only-in) + (spec: 0 prefix-out prefix-out) (spec: 0 rename-out rename-out) + (spec: 0 prefix-in prefix-in) + (spec: 0 defsyntax-for-export defsyntax-for-export) + (spec: 0 require require) + (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 &setq-macro-macro-set! &setq-macro-macro-set!) + (spec: 1 setf-macro-macro-set! setf-macro-macro-set!) (spec: 1 setf-macro::t setf-macro::t) - (spec: 1 setf-macro setf-macro) + (spec: 1 expand-set! expand-set!) (spec: 1 setq-macro::t setq-macro::t) - (spec: 1 syntax-local-setf-macro? syntax-local-setf-macro?) + (spec: 1 setf-macro setf-macro) (spec: 1 &setq-macro-macro &setq-macro-macro) - (spec: 1 setq-macro-macro setq-macro-macro) (spec: 1 make-setf-macro make-setf-macro) - (spec: 1 syntax-local-setq-macro? syntax-local-setq-macro?) - (spec: 1 setq-macro? setq-macro?) - (spec: 1 setf-macro? setf-macro?) - (spec: 1 setf-macro-macro-set! setf-macro-macro-set!) - (spec: 1 setq-macro-macro-set! setq-macro-macro-set!) - (spec: 1 &setf-macro-macro &setf-macro-macro) (spec: 1 make-setq-macro make-setq-macro) + (spec: 1 setq-macro-macro setq-macro-macro) + (spec: 1 setq-macro? setq-macro?) (spec: 1 &setf-macro-macro-set! &setf-macro-macro-set!) - (spec: 1 setq-macro setq-macro) - (spec: 1 expand-set! expand-set!) + (spec: 1 syntax-local-setq-macro? syntax-local-setq-macro?) (spec: 1 setf-macro-macro setf-macro-macro) - (spec: 0 @bytes @bytes) - (spec: 0 let/cc let/cc) + (spec: 1 setf-macro? setf-macro?) + (spec: 1 syntax-local-setf-macro? syntax-local-setf-macro?) (spec: 0 unwind-protect unwind-protect) - (spec: 0 parameterize parameterize) (spec: 0 eval-when-compile eval-when-compile) + (spec: 0 parameterize parameterize) (spec: 0 values-set! values-set!) + (spec: 0 let/cc let/cc) + (spec: 0 @bytes @bytes) (spec: 1 match-pattern? match-pattern?) (spec: 1 syntax-local-match-macro? syntax-local-match-macro?) (spec: 1 match-macro? match-macro?) @@ -1038,5373 +1068,5414 @@ namespace: gerbil/core (spec: 1 match-macro::t match-macro::t) (spec: 1 match-macro match-macro) (spec: 0 match* match*) - (spec: 0 defrules-for-match defrules-for-match) (spec: 0 with* with*) - (spec: 0 ? ?) + (spec: 0 match match) (spec: 0 defsyntax-for-match defsyntax-for-match) (spec: 0 with with) - (spec: 0 match match) - (spec: 0 :vector-port :vector-port) - (spec: 0 :character-port :character-port) + (spec: 0 ? ?) + (spec: 0 defrules-for-match defrules-for-match) + (spec: 0 class class) (spec: 0 :string-port :string-port) - (spec: 0 :file-info :file-info) - (spec: 0 :socket-info :socket-info) + (spec: 0 :character-port :character-port) + (spec: 0 :real :real) + (spec: 0 :u8vector-port :u8vector-port) + (spec: 0 :event-queue-port :event-queue-port) (spec: 0 :symbol :symbol) - (spec: 0 :list :list) - (spec: 0 :string :string) - (spec: 0 :u16vector :u16vector) + (spec: 0 :number :number) + (spec: 0 :s16vector :s16vector) + (spec: 0 :true :true) + (spec: 0 :thread :thread) + (spec: 0 :readtable :readtable) + (spec: 0 :time :time) + (spec: 0 :pair :pair) + (spec: 0 :s8vector :s8vector) + (spec: 0 :symbolic :symbolic) + (spec: 0 defsystem-class-info defsystem-class-info) (spec: 0 :box :box) - (spec: 0 :sequence :sequence) - (spec: 0 :foreign :foreign) - (spec: 0 class class) - (spec: 0 :u32vector :u32vector) - (spec: 0 :procedure :procedure) - (spec: 0 :condvar :condvar) (spec: 0 :byte-port :byte-port) - (spec: 0 :u8vector-port :u8vector-port) - (spec: 0 :raw-device-port :raw-device-port) - (spec: 0 :udp-port :udp-port) - (spec: 0 :integer :integer) - (spec: 0 :special :special) - (spec: 0 :cpxnum :cpxnum) - (spec: 0 :symbolic :symbolic) - (spec: 0 :true :true) - (spec: 0 :keyword :keyword) - (spec: 0 :null :null) (spec: 0 :s32vector :s32vector) - (spec: 0 :flonum :flonum) - (spec: 0 :table :table) - (spec: 0 :address-info :address-info) - (spec: 0 :false :false) - (spec: 0 :thread-group :thread-group) - (spec: 0 :object :object) - (spec: 0 :atom :atom) + (spec: 0 :tcp-server-port :tcp-server-port) + (spec: 0 :file-info :file-info) + (spec: 0 :hvector :hvector) (spec: 0 :char :char) (spec: 0 :void :void) - (spec: 0 :vector :vector) - (spec: 0 :values :values) - (spec: 0 :s8vector :s8vector) - (spec: 0 :f32vector :f32vector) + (spec: 0 :cpxnum :cpxnum) + (spec: 0 :u8vector :u8vector) + (spec: 0 :integer :integer) + (spec: 0 :u32vector :u32vector) + (spec: 0 :ratnum :ratnum) + (spec: 0 :thread-group :thread-group) + (spec: 0 :keyword :keyword) + (spec: 0 :f64vector :f64vector) + (spec: 0 :condvar :condvar) + (spec: 0 :vector-port :vector-port) + (spec: 0 :table :table) (spec: 0 :vm :vm) - (spec: 0 :mutex :mutex) + (spec: 0 :u16vector :u16vector) + (spec: 0 :socket-info :socket-info) + (spec: 0 :procedure :procedure) + (spec: 0 :sequence :sequence) + (spec: 0 :string :string) + (spec: 0 :flonum :flonum) + (spec: 0 :f32vector :f32vector) (spec: 0 :continuation :continuation) - (spec: 0 :pair :pair) + (spec: 0 :list :list) + (spec: 0 :object :object) + (spec: 0 :special :special) + (spec: 0 :null :null) + (spec: 0 :foreign :foreign) + (spec: 0 :promise :promise) (spec: 0 :object-port :object-port) - (spec: 0 :boolean :boolean) - (spec: 0 :frame :frame) - (spec: 0 :device-port :device-port) - (spec: 0 :u8vector :u8vector) - (spec: 0 :tcp-server-port :tcp-server-port) - (spec: 0 :readenv :readenv) - (spec: 0 :immediate :immediate) - (spec: 0 defsystem-class-info defsystem-class-info) - (spec: 0 :fixnum :fixnum) - (spec: 0 :hvector :hvector) + (spec: 0 :raw-device-port :raw-device-port) + (spec: 0 :s64vector :s64vector) (spec: 0 :weak :weak) + (spec: 0 :port :port) + (spec: 0 :directory-port :directory-port) + (spec: 0 :readenv :readenv) + (spec: 0 :address-info :address-info) + (spec: 0 :bignum :bignum) (spec: 0 :t :t) - (spec: 0 :s16vector :s16vector) - (spec: 0 :eof :eof) - (spec: 0 :promise :promise) - (spec: 0 :time :time) - (spec: 0 :event-queue-port :event-queue-port) + (spec: 0 :vector :vector) + (spec: 0 :values :values) + (spec: 0 :mutex :mutex) (spec: 0 :writeenv :writeenv) - (spec: 0 :bignum :bignum) - (spec: 0 :port :port) - (spec: 0 :ratnum :ratnum) - (spec: 0 :s64vector :s64vector) - (spec: 0 :processor :processor) (spec: 0 :u64vector :u64vector) - (spec: 0 :thread :thread) + (spec: 0 :false :false) + (spec: 0 :processor :processor) + (spec: 0 :device-port :device-port) + (spec: 0 :frame :frame) + (spec: 0 :atom :atom) + (spec: 0 :fixnum :fixnum) + (spec: 0 :immediate :immediate) + (spec: 0 :boolean :boolean) (spec: 0 :class :class) - (spec: 0 :f64vector :f64vector) - (spec: 0 :real :real) - (spec: 0 :directory-port :directory-port) - (spec: 0 :number :number) - (spec: 0 :readtable :readtable) + (spec: 0 :eof :eof) + (spec: 0 :udp-port :udp-port) (spec: 0 @ @) (spec: 0 @-set! @-set!) - (spec: 0 define-struct define-struct) (spec: 0 define-class define-class) + (spec: 0 define-struct define-struct) (spec: 0 defstruct-type defstruct-type) (spec: 0 defclass-type defclass-type) - (spec: 0 MOP-1 MOP-1) (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-5 MOP-5) (spec: 0 MOP-3 MOP-3) (spec: 0 defsyntax defsyntax) - (spec: 0 defconst defconst) (spec: 0 definline definline) + (spec: 0 defconst defconst) (spec: 0 ~case-dispatch* ~case-dispatch*) - (spec: 0 defvalues defvalues) - (spec: 0 delay delay) - (spec: 0 case case) - (spec: 0 ~case-dispatch ~case-dispatch) - (spec: 0 quasiquote quasiquote) - (spec: 0 cut cut) - (spec: 0 begin0 begin0) (spec: 0 ~case-dispatch-bsearch ~case-dispatch-bsearch) - (spec: 0 alet alet) + (spec: 0 quasiquote quasiquote) + (spec: 0 defvalues defvalues) (spec: 0 <> <>) - (spec: 0 ~case ~case) + (spec: 0 rec rec) + (spec: 0 delay delay) (spec: 0 <...> <...>) + (spec: 0 and-let* and-let*) (spec: 0 ~case-test ~case-test) - (spec: 0 rec rec) + (spec: 0 ~case-dispatch ~case-dispatch) + (spec: 0 begin0 begin0) (spec: 0 alet* alet*) - (spec: 0 and-let* and-let*) + (spec: 0 cut cut) + (spec: 0 alet alet) (spec: 0 @list @list) - (spec: 0 letrec* letrec*) - (spec: 0 and and) - (spec: 0 defrules defrules) + (spec: 0 ~case ~case) + (spec: 0 case case) + (spec: 0 when when) + (spec: 0 or or) + (spec: 0 defalias defalias) (spec: 0 define-rules define-rules) - (spec: 0 cond cond) + (spec: 0 letrec letrec) + (spec: 0 defrules defrules) + (spec: 0 defrule defrule) + (spec: 0 define define) + (spec: 0 let*-values let*-values) (spec: 0 let* let*) + (spec: 0 and and) + (spec: 0 cond cond) + (spec: 0 syntax-error syntax-error) (spec: 0 unless unless) - (spec: 0 let*-values let*-values) (spec: 0 ~let ~let) - (spec: 0 syntax-error syntax-error) - (spec: 0 defalias defalias) - (spec: 0 defrule defrule) - (spec: 0 or or) - (spec: 0 when when) - (spec: 0 define define) + (spec: 0 letrec* letrec*) (spec: 0 defsyntax% defsyntax%) - (spec: 0 letrec letrec) - (spec: 0 call/parameters call/parameters) + (spec: 0 compilation-target? compilation-target?) + (spec: 0 f32vector-ref-set! f32vector-ref-set!) + (spec: 0 box-set! box-set!) + (spec: 0 u16vector-ref-set! u16vector-ref-set!) + (spec: 0 random-bytes random-bytes) + (spec: 0 f64vector-ref-set! f64vector-ref-set!) (spec: 0 vector-ref-set! vector-ref-set!) - (spec: 0 s32vector-ref-set! s32vector-ref-set!) - (spec: 0 string-ref-set! string-ref-set!) + (spec: 0 s8vector-ref-set! s8vector-ref-set!) (spec: 0 cdr-set! cdr-set!) - (spec: 0 s64vector-ref-set! s64vector-ref-set!) (spec: 0 car-set! car-set!) (spec: 0 s16vector-ref-set! s16vector-ref-set!) - (spec: 0 random-source-make-bytes random-source-make-bytes) - (spec: 0 s8vector-ref-set! s8vector-ref-set!) - (spec: 0 u8vector-ref-set! u8vector-ref-set!) + (spec: 0 call/parameters call/parameters) + (spec: 0 s32vector-ref-set! s32vector-ref-set!) + (spec: 0 string-ref-set! string-ref-set!) (spec: 0 u64vector-ref-set! u64vector-ref-set!) + (spec: 0 random-source-make-bytes random-source-make-bytes) (spec: 0 u32vector-ref-set! u32vector-ref-set!) + (spec: 0 u8vector-ref-set! u8vector-ref-set!) + (spec: 0 s64vector-ref-set! s64vector-ref-set!) (spec: 0 call/values call/values) - (spec: 0 f64vector-ref-set! f64vector-ref-set!) - (spec: 0 random-bytes random-bytes) - (spec: 0 f32vector-ref-set! f32vector-ref-set!) - (spec: 0 u16vector-ref-set! u16vector-ref-set!) - (spec: 0 box-set! box-set!) - (spec: 0 number::t number::t) - (spec: 0 symbol->keyword symbol->keyword) - (spec: 0 f64vector::t f64vector::t) - (spec: 0 hash-key? hash-key?) - (spec: 0 s16vector::t s16vector::t) - (spec: 0 displayln displayln) - (spec: 0 string->bytes string->bytes) - (spec: 0 condvar::t condvar::t) - (spec: 0 AST-e AST-e) - (spec: 0 class-type-final? class-type-final?) - (spec: 0 class-instance-init! class-instance-init!) - (spec: 0 raise-unbound-key-error raise-unbound-key-error) - (spec: 0 class-type-properties class-type-properties) - (spec: 0 u16vector::t u16vector::t) - (spec: 0 foreign::t foreign::t) - (spec: 0 object::t object::t) - (spec: 0 gerbil-greeting gerbil-greeting) - (spec: 0 interned-keyword? interned-keyword?) - (spec: 0 char::t char::t) - (spec: 0 promise::t promise::t) - (spec: 0 error? error?) (spec: 0 make-symbolic-table make-symbolic-table) - (spec: 0 fixnum::t fixnum::t) - (spec: 0 plist->hash-table-eqv plist->hash-table-eqv) - (spec: 0 cpxnum::t cpxnum::t) - (spec: 0 load-path load-path) - (spec: 0 class-instance? class-instance?) - (spec: 0 keyword::t keyword::t) - (spec: 0 remove1 remove1) - (spec: 0 read-u8vector read-u8vector) - (spec: 0 with-dynamic-lock with-dynamic-lock) - (spec: 0 pget pget) - (spec: 0 fx1+ fx1+) - (spec: 0 make-promise make-promise) - (spec: 0 values-ref values-ref) + (spec: 0 build-manifest/head build-manifest/head) + (spec: 0 make-keyword make-keyword) + (spec: 0 fx<0? fx<0?) + (spec: 0 cons* cons*) + (spec: 0 class-type=? class-type=?) + (spec: 0 make-AST make-AST) + (spec: 0 error-irritants error-irritants) + (spec: 0 unchecked-slot-set! unchecked-slot-set!) + (spec: 0 class-type-precedence-list class-type-precedence-list) + (spec: 0 call-next-method call-next-method) + (spec: 0 &class-type-constructor &class-type-constructor) + (spec: 0 f32vector::t f32vector::t) + (spec: 0 symbolic-table-ref symbolic-table-ref) + (spec: 0 class-type-constructor class-type-constructor) + (spec: 0 hash-keys hash-keys) + (spec: 0 address-info::t address-info::t) + (spec: 0 eof::t eof::t) + (spec: 0 readtable::t readtable::t) + (spec: 0 AST-source AST-source) + (spec: 0 struct-copy struct-copy) + (spec: 0 gerbil-home gerbil-home) + (spec: 0 replx replx) + (spec: 0 make-class-type make-class-type) + (spec: 0 checked-method-ref checked-method-ref) + (spec: 0 find-method find-method) + (spec: 0 vector-port? vector-port?) (spec: 0 immediate-instance-of? immediate-instance-of?) - (spec: 0 object? object?) - (spec: 0 method-ref method-ref) - (spec: 0 string-split string-split) - (spec: 0 flonum::t flonum::t) - (spec: 0 andmap andmap) - (spec: 0 u8vector::t u8vector::t) - (spec: 0 create-directory* create-directory*) - (spec: 0 slot-ref slot-ref) - (spec: 0 character-port::t character-port::t) - (spec: 0 event-queue-port::t event-queue-port::t) - (spec: 0 remv remv) (spec: 0 interface-instance::t interface-instance::t) - (spec: 0 make-hash-table-eq make-hash-table-eq) - (spec: 0 class-type-fields class-type-fields) - (spec: 0 plist->hash-table-immediate plist->hash-table-immediate) - (spec: - 0 - raise-contract-violation-error - raise-contract-violation-error) - (spec: 0 class-type? class-type?) + (spec: 0 display-build-manifest display-build-manifest) + (spec: 0 make-instance make-instance) + (spec: 0 fx1+ fx1+) + (spec: 0 HashTable::interface HashTable::interface) + (spec: 0 string-hash string-hash) + (spec: 0 HashTableLock::interface HashTableLock::interface) + (spec: 0 class-type-name class-type-name) + (spec: 0 load-module load-module) + (spec: 0 seal-class! seal-class!) + (spec: 0 with-unwind-protect with-unwind-protect) + (spec: 0 table::t table::t) + (spec: 0 special::t special::t) + (spec: 0 hash-get hash-get) + (spec: 0 actor-thread? actor-thread?) + (spec: 0 readenv::t readenv::t) + (spec: 0 AST-e AST-e) + (spec: 0 string::t string::t) + (spec: 0 gerbil-greeting gerbil-greeting) (spec: 0 &interface-instance-object &interface-instance-object) - (spec: 0 class-type-precedence-list class-type-precedence-list) - (spec: 0 &class-type-properties &class-type-properties) + (spec: 0 interface-instance-object interface-instance-object) + (spec: 0 build-manifest-set! build-manifest-set!) + (spec: 0 raw-device-port? raw-device-port?) + (spec: 0 display* display*) + (spec: 0 class-type-struct? class-type-struct?) + (spec: 0 c4-linearize c4-linearize) + (spec: 0 class-type-methods class-type-methods) + (spec: 0 s8vector::t s8vector::t) + (spec: 0 list-modules list-modules) + (spec: 0 pget pget) + (spec: 0 keyword-rest keyword-rest) + (spec: 0 symbol::t symbol::t) + (spec: 0 assgetq assgetq) + (spec: 0 hash-fold hash-fold) + (spec: 0 dump-stack-trace? dump-stack-trace?) + (spec: 0 remove1 remove1) + (spec: 0 plist->hash-table-string plist->hash-table-string) + (spec: 0 continuation::t continuation::t) + (spec: 0 values-ref values-ref) + (spec: 0 interface-descriptor? interface-descriptor?) + (spec: 0 symblic-hash symblic-hash) + (spec: 0 ratnum::t ratnum::t) + (spec: 0 new-instance new-instance) + (spec: 0 frame::t frame::t) + (spec: 0 directory-port? directory-port?) + (spec: 0 hash-update! hash-update!) + (spec: 0 string->bytes string->bytes) + (spec: 0 bignum::t bignum::t) + (spec: 0 class-type-slot-vector class-type-slot-vector) + (spec: 0 thread::t thread::t) + (spec: 0 udp-port? udp-port?) + (spec: 0 list->hash-table-string list->hash-table-string) + (spec: 0 s32vector::t s32vector::t) + (spec: 0 processor::t processor::t) + (spec: 0 agetv agetv) + (spec: 0 pair::t pair::t) + (spec: 0 keyword->symbol keyword->symbol) + (spec: 0 with-exception-stack-trace with-exception-stack-trace) + (spec: 0 spawn/group spawn/group) + (spec: 0 error error) + (spec: 0 u8vector-port? u8vector-port?) + (spec: 0 list->hash-table-symbolic list->hash-table-symbolic) + (spec: 0 class-type-flags class-type-flags) + (spec: 0 promise::t promise::t) + (spec: 0 gerbil-system-version-string gerbil-system-version-string) + (spec: 0 as-string as-string) + (spec: 0 object-type object-type) + (spec: 0 make-object make-object) + (spec: 0 dssl-optional-object? dssl-optional-object?) + (spec: 0 plist->hash-table plist->hash-table) + (spec: 0 make-class-predicate make-class-predicate) + (spec: 0 values-count values-count) (spec: 0 try-cast try-cast) - (spec: 0 fx1- fx1-) - (spec: 0 object-port? object-port?) - (spec: 0 gerbil-path gerbil-path) - (spec: 0 values::t values::t) - (spec: 0 build-manifest/head build-manifest/head) + (spec: 0 directory-port::t directory-port::t) + (spec: 0 make-hash-table-string make-hash-table-string) + (spec: 0 max-char-code max-char-code) + (spec: 0 eqv-hash eqv-hash) (spec: 0 procedure::t procedure::t) - (spec: 0 udp-port::t udp-port::t) - (spec: 0 string-rindex string-rindex) - (spec: 0 eof::t eof::t) - (spec: 0 with-exception-catcher with-exception-catcher) - (spec: 0 error-message error-message) - (spec: 0 interface-instance? interface-instance?) - (spec: 0 with-exception-stack-trace with-exception-stack-trace) - (spec: 0 current-thread-group current-thread-group) - (spec: 0 s8vector::t s8vector::t) - (spec: 0 string-empty? string-empty?) - (spec: 0 HashTableLock::interface HashTableLock::interface) - (spec: 0 dssl-object? dssl-object?) + (spec: 0 bytes->string bytes->string) + (spec: 0 u64vector::t u64vector::t) + (spec: 0 writeenv::t writeenv::t) + (spec: 0 display-exception display-exception) + (spec: 0 mutex::t mutex::t) + (spec: 0 gerbil-system gerbil-system) + (spec: 0 false false) + (spec: 0 list->hash-table-immediate list->hash-table-immediate) + (spec: 0 weak::t weak::t) + (spec: 0 hash-find hash-find) + (spec: 0 syntax-error? syntax-error?) + (spec: 0 absent-value absent-value) + (spec: 0 object-port::t object-port::t) + (spec: 0 dssl-key-object? dssl-key-object?) + (spec: 0 writenv? writenv?) + (spec: 0 read-syntax read-syntax) + (spec: 0 string-port? string-port?) + (spec: 0 interface-descriptor-type interface-descriptor-type) + (spec: 0 character-port::t character-port::t) + (spec: 0 file-newer? file-newer?) + (spec: 0 hash-clear! hash-clear!) + (spec: 0 list->hash-table-eq list->hash-table-eq) + (spec: 0 &class-type-id &class-type-id) (spec: 0 direct-instance? direct-instance?) (spec: 0 make-hash-table-eqv make-hash-table-eqv) - (spec: 0 class->list class->list) - (spec: 0 class::t class::t) - (spec: 0 remf remf) - (spec: 0 syntax-error? syntax-error?) - (spec: 0 read-syntax-from-file read-syntax-from-file) - (spec: 0 bind-specializer! bind-specializer!) - (spec: 0 true? true?) - (spec: 0 object-type object-type) - (spec: 0 pair::t pair::t) - (spec: 0 values->list values->list) + (spec: 0 hash-ref hash-ref) + (spec: 0 thread-local-get thread-local-get) + (spec: 0 class-type-slot-list class-type-slot-list) + (spec: 0 reload-module! reload-module!) + (spec: 0 byte-port::t byte-port::t) (spec: 0 immediate? immediate?) - (spec: 0 build-manifest/layer build-manifest/layer) - (spec: 0 hvector::t hvector::t) - (spec: 0 eq-hash eq-hash) - (spec: 0 u8vector-port::t u8vector-port::t) - (spec: 0 processor::t processor::t) - (spec: 0 symbol::t symbol::t) - (spec: 0 address-info::t address-info::t) - (spec: 0 file-info::t file-info::t) - (spec: 0 error-trace error-trace) - (spec: 0 1+ 1+) - (spec: 0 string-hash string-hash) - (spec: 0 make-keyword make-keyword) - (spec: 0 dssl-optional-object? dssl-optional-object?) - (spec: 0 constructor-init! constructor-init!) - (spec: 0 direct-method-ref direct-method-ref) - (spec: 0 writeenv::t writeenv::t) - (spec: 0 raw-device-port? raw-device-port?) - (spec: 0 with-catch with-catch) + (spec: 0 u16vector::t u16vector::t) + (spec: 0 gerbil-runtime-smp? gerbil-runtime-smp?) + (spec: 0 agetq agetq) + (spec: 0 substring->bytes substring->bytes) + (spec: 0 void? void?) + (spec: 0 class-of class-of) + (spec: 0 source-location? source-location?) + (spec: 0 fx>=0? fx>=0?) + (spec: 0 displayln displayln) + (spec: 0 string-join string-join) (spec: 0 cast cast) - (spec: 0 &class-type-precedence-list &class-type-precedence-list) - (spec: 0 pgetq pgetq) - (spec: 0 fx/ fx/) - (spec: 0 class-type-slot-list class-type-slot-list) - (spec: 0 hvector? hvector?) - (spec: 0 values-count values-count) - (spec: 0 checked-bound-method-ref checked-bound-method-ref) - (spec: 0 bytes->string bytes->string) - (spec: 0 u8vector-port? u8vector-port?) (spec: 0 interface-descriptor-methods interface-descriptor-methods) - (spec: 0 satisfies? satisfies?) - (spec: 0 new-instance new-instance) - (spec: 0 foldl foldl) - (spec: 0 aget aget) - (spec: 0 slot-set! slot-set!) - (spec: 0 false::t false::t) - (spec: 0 1- 1-) - (spec: 0 s32vector::t s32vector::t) - (spec: 0 HashTableLock::t HashTableLock::t) - (spec: 0 make-hash-table make-hash-table) - (spec: 0 device-port::t device-port::t) + (spec: 0 set-load-path! set-load-path!) + (spec: 0 symbolic? symbolic?) + (spec: 0 hash->list hash->list) + (spec: 0 &class-type-flags &class-type-flags) (spec: 0 list->hash-table list->hash-table) - (spec: 0 class-type-flags class-type-flags) + (spec: 0 device-port::t device-port::t) + (spec: 0 make-hash-table make-hash-table) + (spec: 0 thread-group::t thread-group::t) + (spec: 0 byte-port? byte-port?) + (spec: 0 hash-merge! hash-merge!) + (spec: 0 class-type-seal! class-type-seal!) + (spec: 0 create-directory* create-directory*) + (spec: 0 gerbil-path gerbil-path) (spec: 0 interned-symbol? interned-symbol?) - (spec: 0 plist->hash-table-eq plist->hash-table-eq) - (spec: 0 hash-put! hash-put!) - (spec: 0 hash->list hash->list) - (spec: 0 class-type-slot-table class-type-slot-table) - (spec: 0 boolean::t boolean::t) - (spec: 0 hash-map hash-map) + (spec: 0 move-file move-file) + (spec: 0 class-instance-init! class-instance-init!) + (spec: 0 vm? vm?) + (spec: 0 null::t null::t) + (spec: 0 bind-specializer! bind-specializer!) (spec: 0 fx=0? fx=0?) - (spec: 0 cons* cons*) - (spec: 0 symblic-hash symblic-hash) - (spec: 0 integer::t integer::t) - (spec: 0 vector-port? vector-port?) - (spec: 0 hash-merge! hash-merge!) - (spec: 0 spawn/group spawn/group) - (spec: 0 t::t t::t) - (spec: 0 mutex::t mutex::t) - (spec: 0 error-object? error-object?) - (spec: 0 thread-local-ref thread-local-ref) - (spec: 0 thread-local-get thread-local-get) - (spec: 0 s64vector::t s64vector::t) - (spec: 0 make-class-slot-accessor make-class-slot-accessor) - (spec: 0 with-lock with-lock) - (spec: 0 dssl-key-object? dssl-key-object?) - (spec: 0 device-port? device-port?) - (spec: 0 &class-type-fields &class-type-fields) - (spec: 0 make-hash-table-symbolic make-hash-table-symbolic) - (spec: 0 with-unwind-protect with-unwind-protect) - (spec: 0 class-of class-of) - (spec: 0 ratnum::t ratnum::t) - (spec: 0 &class-type-slot-vector &class-type-slot-vector) - (spec: 0 class-type-seal! class-type-seal!) - (spec: 0 spawn/name spawn/name) - (spec: 0 thread::t thread::t) - (spec: 0 fx>0? fx>0?) - (spec: 0 vector::t vector::t) - (spec: 0 gerbil-system gerbil-system) - (spec: 0 immediate::t immediate::t) - (spec: 0 eof-object eof-object) - (spec: 0 byte-port::t byte-port::t) - (spec: 0 character-port? character-port?) - (spec: 0 event-queue-port? event-queue-port?) - (spec: 0 as-string as-string) + (spec: 0 class::t class::t) + (spec: 0 true::t true::t) + (spec: 0 hvector? hvector?) + (spec: 0 with-exception-catcher with-exception-catcher) + (spec: 0 error-trace error-trace) + (spec: 0 HashTable::t HashTable::t) + (spec: 0 source-location-path source-location-path) (spec: 0 interface-cast-error? interface-cast-error?) - (spec: 0 agetv agetv) + (spec: 0 sequence::t sequence::t) + (spec: 0 &class-type-fields &class-type-fields) + (spec: 0 false::t false::t) + (spec: 0 pgetv pgetv) + (spec: 0 class-type-field-count class-type-field-count) + (spec: 0 flonum::t flonum::t) + (spec: 0 hash-map hash-map) + (spec: 0 event-queue-port::t event-queue-port::t) + (spec: 0 tcp-server-port? tcp-server-port?) + (spec: 0 1+ 1+) + (spec: 0 class-type-properties class-type-properties) + (spec: 0 real::t real::t) + (spec: 0 struct-instance? struct-instance?) + (spec: 0 unchecked-slot-ref unchecked-slot-ref) (spec: 0 symbolic-table-delete! symbolic-table-delete!) - (spec: 0 make-class-slot-mutator make-class-slot-mutator) - (spec: 0 socket-info::t socket-info::t) - (spec: 0 plist->hash-table-string plist->hash-table-string) - (spec: 0 string-index string-index) - (spec: 0 hash-copy hash-copy) - (spec: 0 list->hash-table-eqv list->hash-table-eqv) - (spec: 0 raw-device-port::t raw-device-port::t) + (spec: 0 class-type-fields class-type-fields) + (spec: 0 foldl foldl) (spec: 0 hash-merge hash-merge) - (spec: 0 make-syntax-error make-syntax-error) + (spec: 0 special? special?) + (spec: 0 event-queue-port? event-queue-port?) + (spec: 0 atom::t atom::t) + (spec: 0 1- 1-) + (spec: 0 readenv? readenv?) (spec: 0 AST? AST?) - (spec: 0 make-AST make-AST) - (spec: 0 class-type-sealed? class-type-sealed?) - (spec: 0 AST-source AST-source) - (spec: 0 thread-local-set! thread-local-set!) - (spec: 0 replx replx) - (spec: 0 fx<0? fx<0?) - (spec: 0 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 0 udp-port? udp-port?) - (spec: 0 max-char-code max-char-code) - (spec: 0 reload-module! reload-module!) - (spec: 0 gerbil-load-expander! gerbil-load-expander!) - (spec: 0 hash-find hash-find) - (spec: 0 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 0 tcp-server-port::t tcp-server-port::t) - (spec: 0 agetq agetq) - (spec: 0 symbolic-table-ref symbolic-table-ref) - (spec: 0 source-location-path source-location-path) - (spec: 0 display* display*) - (spec: 0 &class-type-constructor &class-type-constructor) - (spec: 0 make-hash-table-immediate make-hash-table-immediate) - (spec: 0 list->hash-table-immediate list->hash-table-immediate) + (spec: 0 struct->list struct->list) + (spec: 0 cpxnum::t cpxnum::t) + (spec: 0 make-promise make-promise) + (spec: 0 interned-keyword? interned-keyword?) + (spec: 0 fixnum::t fixnum::t) + (spec: 0 build-manifest-string build-manifest-string) + (spec: 0 type-of type-of) (spec: 0 &class-type-slot-table &class-type-slot-table) - (spec: 0 readtable::t readtable::t) - (spec: 0 hash-remove! hash-remove!) - (spec: 0 fx<=0? fx<=0?) - (spec: 0 vector-port::t vector-port::t) - (spec: 0 gerbil-runtime-smp? gerbil-runtime-smp?) - (spec: 0 with-exception-handler with-exception-handler) + (spec: 0 eof-object eof-object) + (spec: 0 vm::t vm::t) + (spec: 0 HashTableLock::t HashTableLock::t) + (spec: 0 fx/ fx/) + (spec: 0 hash-values hash-values) + (spec: 0 string-index string-index) + (spec: 0 class-type? class-type?) + (spec: 0 socket-info::t socket-info::t) + (spec: 0 error-message error-message) + (spec: 0 call-with-parameters call-with-parameters) + (spec: 0 satisfies? satisfies?) + (spec: 0 keyword::t keyword::t) + (spec: 0 assgetv assgetv) + (spec: 0 tcp-server-port::t tcp-server-port::t) + (spec: 0 subclass? subclass?) + (spec: 0 hash-length hash-length) + (spec: 0 with-lock with-lock) + (spec: 0 error-object? error-object?) + (spec: 0 gerbil-load-expander! gerbil-load-expander!) + (spec: 0 plist->hash-table-symbolic plist->hash-table-symbolic) + (spec: 0 vector::t vector::t) + (spec: 0 interface-instance? interface-instance?) + (spec: 0 module-load-order module-load-order) + (spec: 0 build-manifest build-manifest) + (spec: 0 &class-type-properties &class-type-properties) + (spec: 0 raw-device-port::t raw-device-port::t) + (spec: 0 method-ref method-ref) + (spec: 0 bind-method! bind-method!) + (spec: 0 time::t time::t) + (spec: 0 class-type-system? class-type-system?) + (spec: 0 make-symbol make-symbol) + (spec: 0 call-method call-method) (spec: 0 unbound-key-error? unbound-key-error?) - (spec: 0 struct-copy struct-copy) - (spec: 0 foldr foldr) - (spec: 0 file-newer? file-newer?) - (spec: 0 remq remq) - (spec: 0 make-class-predicate make-class-predicate) - (spec: 0 table::t table::t) - (spec: 0 seal-class! seal-class!) - (spec: 0 dssl-rest-object? dssl-rest-object?) - (spec: - 0 - datum-parsing-exception-filepos - datum-parsing-exception-filepos) - (spec: 0 special::t special::t) (spec: 0 class-type-metaclass? class-type-metaclass?) - (spec: 0 directory-port::t directory-port::t) - (spec: 0 make-hash-table-string make-hash-table-string) - (spec: 0 hash->plist hash->plist) - (spec: 0 hash-fold hash-fold) - (spec: 0 class-type-struct? class-type-struct?) - (spec: 0 byte-port? byte-port?) - (spec: 0 build-manifest build-manifest) - (spec: 0 hash-ref hash-ref) - (spec: 0 ormap ormap) - (spec: 0 gerbil-version-string gerbil-version-string) - (spec: 0 vm? vm?) - (spec: 0 unchecked-slot-set! unchecked-slot-set!) - (spec: 0 absent-obj absent-obj) - (spec: 0 struct-instance-init! struct-instance-init!) - (spec: 0 next-method next-method) - (spec: 0 hash-for-each hash-for-each) - (spec: 0 filter-map filter-map) - (spec: 0 hash-clear! hash-clear!) - (spec: 0 continuation::t continuation::t) - (spec: 0 dump-stack-trace! dump-stack-trace!) - (spec: 0 special? special?) - (spec: 0 directory-port? directory-port?) - (spec: 0 &class-type-id &class-type-id) - (spec: 0 is-hash-table? is-hash-table?) - (spec: 0 list->hash-table-eq list->hash-table-eq) - (spec: 0 readenv::t readenv::t) - (spec: 0 bound-method-ref bound-method-ref) - (spec: 0 HashTable::interface HashTable::interface) - (spec: 0 interface-descriptor-type interface-descriptor-type) - (spec: 0 void::t void::t) - (spec: 0 absent-value absent-value) - (spec: 0 eqv-hash eqv-hash) - (spec: 0 string::t string::t) + (spec: 0 s64vector::t s64vector::t) + (spec: 0 load-path load-path) + (spec: 0 andmap andmap) + (spec: 0 pgetq pgetq) + (spec: 0 keyword-dispatch keyword-dispatch) (spec: 0 assget assget) + (spec: 0 hash-key? hash-key?) + (spec: 0 spawn/name spawn/name) + (spec: 0 plist->hash-table-immediate plist->hash-table-immediate) + (spec: 0 gerbil-greeting-set! gerbil-greeting-set!) + (spec: + 0 + make-class-slot-unchecked-mutator + make-class-slot-unchecked-mutator) + (spec: 0 vector-port::t vector-port::t) (spec: 0 find find) - (spec: 0 symbolic::t symbolic::t) - (spec: 0 null::t null::t) - (spec: 0 thread-group::t thread-group::t) - (spec: 0 spawn spawn) - (spec: 0 set-load-path! set-load-path!) - (spec: 0 string-port::t string-port::t) - (spec: 0 class-type-id class-type-id) - (spec: 0 list::t list::t) (spec: 0 raise raise) - (spec: 0 keyword-dispatch keyword-dispatch) - (spec: 0 class-type-slot-vector class-type-slot-vector) - (spec: 0 readenv? readenv?) (spec: 0 box::t box::t) - (spec: 0 pgetv pgetv) - (spec: 0 fx>=0? fx>=0?) - (spec: 0 bignum::t bignum::t) - (spec: 0 gerbil-system-manifest gerbil-system-manifest) - (spec: 0 c4-linearize c4-linearize) - (spec: 0 time::t time::t) - (spec: 0 port::t port::t) - (spec: 0 exception? exception?) - (spec: 0 struct->list struct->list) - (spec: 0 interface-instance-object interface-instance-object) + (spec: 0 nonnegative-fixnum? nonnegative-fixnum?) + (spec: 0 &class-type-precedence-list &class-type-precedence-list) + (spec: 0 display-as-string display-as-string) + (spec: 0 foreign::t foreign::t) + (spec: 0 string-empty? string-empty?) (spec: 0 hash-table? hash-table?) - (spec: 0 symbolic? symbolic?) - (spec: 0 HashTable::t HashTable::t) - (spec: 0 thread-local-delete! thread-local-delete!) + (spec: 0 class-type-super class-type-super) + (spec: 0 list::t list::t) + (spec: 0 class-type-id class-type-id) + (spec: 0 s16vector::t s16vector::t) + (spec: 0 udp-port::t udp-port::t) + (spec: 0 hash-for-each hash-for-each) + (spec: 0 t::t t::t) + (spec: 0 with-dynamic-lock with-dynamic-lock) + (spec: 0 object? object?) + (spec: 0 dump-stack-trace! dump-stack-trace!) + (spec: 0 read-u8vector read-u8vector) + (spec: 0 string-split string-split) + (spec: 0 plist->hash-table-eq plist->hash-table-eq) + (spec: 0 make-class-slot-mutator make-class-slot-mutator) + (spec: 0 values::t values::t) + (spec: 0 exception? exception?) + (spec: 0 immediate-hash immediate-hash) + (spec: 0 &class-type-name &class-type-name) + (spec: 0 next-method next-method) + (spec: 0 boolean::t boolean::t) + (spec: 0 memf memf) + (spec: 0 thread-local-set! thread-local-set!) + (spec: 0 slot-set! slot-set!) + (spec: 0 remf remf) + (spec: 0 plist->hash-table-eqv plist->hash-table-eqv) (spec: 0 make-class-slot-unchecked-accessor make-class-slot-unchecked-accessor) - (spec: 0 make-object make-object) - (spec: 0 string-port? string-port?) - (spec: 0 &class-type-flags &class-type-flags) - (spec: 0 checked-method-ref checked-method-ref) - (spec: 0 keyword-rest keyword-rest) - (spec: 0 class-type-system? class-type-system?) - (spec: 0 return::t return::t) - (spec: 0 class-type-name class-type-name) - (spec: 0 &class-type-super &class-type-super) - (spec: 0 bind-method! bind-method!) + (spec: 0 values->list values->list) + (spec: 0 constructor-init! constructor-init!) + (spec: 0 filter-map filter-map) + (spec: 0 bound-method-ref bound-method-ref) + (spec: 0 raise-unbound-key-error raise-unbound-key-error) + (spec: 0 direct-method-ref direct-method-ref) + (spec: 0 class-type-slot-table class-type-slot-table) + (spec: 0 slot-ref slot-ref) + (spec: 0 procedure-hash procedure-hash) + (spec: 0 u8vector::t u8vector::t) + (spec: 0 list->hash-table-eqv list->hash-table-eqv) + (spec: 0 gerbil-version-string gerbil-version-string) + (spec: 0 symbol->keyword symbol->keyword) + (spec: 0 with-catch with-catch) + (spec: 0 hash-copy hash-copy) + (spec: 0 object::t object::t) + (spec: 0 dssl-rest-object? dssl-rest-object?) (spec: 0 fxshift fxshift) - (spec: 0 gerbil-system-version-string gerbil-system-version-string) - (spec: 0 call-with-parameters call-with-parameters) - (spec: 0 unchecked-slot-ref unchecked-slot-ref) - (spec: 0 vm::t vm::t) - (spec: 0 error error) - (spec: 0 hash-update! hash-update!) - (spec: 0 make-symbol make-symbol) - (spec: 0 tcp-server-port? tcp-server-port?) - (spec: 0 hash-keys hash-keys) - (spec: 0 symbolic-table-set! symbolic-table-set!) - (spec: 0 load-module load-module) - (spec: 0 source-location-path? source-location-path?) (spec: 0 - make-class-slot-unchecked-mutator - make-class-slot-unchecked-mutator) - (spec: 0 display-as-string display-as-string) - (spec: 0 sequence::t sequence::t) - (spec: 0 class-type-field-count class-type-field-count) - (spec: 0 list->hash-table-string list->hash-table-string) - (spec: 0 read-syntax read-syntax) - (spec: 0 class-type=? class-type=?) - (spec: 0 writenv? writenv?) - (spec: 0 u32vector::t u32vector::t) - (spec: 0 atom::t atom::t) - (spec: 0 true true) - (spec: 0 gerbil-greeting-set! gerbil-greeting-set!) - (spec: 0 procedure-hash procedure-hash) - (spec: 0 frame::t frame::t) - (spec: 0 substring->bytes substring->bytes) - (spec: 0 memf memf) - (spec: 0 weak::t weak::t) - (spec: 0 find-method find-method) - (spec: 0 object-fill! object-fill!) - (spec: 0 error-irritants error-irritants) - (spec: 0 interface-descriptor? interface-descriptor?) - (spec: 0 display-exception display-exception) - (spec: 0 sequence? sequence?) - (spec: 0 display-build-manifest display-build-manifest) - (spec: 0 string-join string-join) - (spec: 0 make-class-type make-class-type) - (spec: 0 make-instance make-instance) - (spec: 0 &class-type-name &class-type-name) - (spec: 0 list->hash-table-symbolic list->hash-table-symbolic) - (spec: 0 keyword->symbol keyword->symbol) - (spec: 0 class-type-super class-type-super) - (spec: 0 plist->hash-table plist->hash-table) - (spec: 0 class-type-methods class-type-methods) - (spec: 0 real::t real::t) - (spec: 0 immediate-hash immediate-hash) - (spec: 0 assgetq assgetq) - (spec: 0 true::t true::t) - (spec: 0 false false) - (spec: 0 build-manifest-set! build-manifest-set!) - (spec: 0 gerbil-home gerbil-home) - (spec: 0 subclass? subclass?) - (spec: 0 call-method call-method) - (spec: 0 struct-instance? struct-instance?) - (spec: 0 u64vector::t u64vector::t) - (spec: 0 object-port::t object-port::t) + datum-parsing-exception-filepos + datum-parsing-exception-filepos) + (spec: 0 make-class-slot-accessor make-class-slot-accessor) + (spec: 0 checked-bound-method-ref checked-bound-method-ref) + (spec: 0 hash->plist hash->plist) + (spec: 0 true? true?) + (spec: 0 file-info::t file-info::t) + (spec: + 0 + raise-contract-violation-error + raise-contract-violation-error) + (spec: 0 device-port? device-port?) + (spec: 0 make-hash-table-symbolic make-hash-table-symbolic) + (spec: 0 hash-remove! hash-remove!) + (spec: 0 class-type-sealed? class-type-sealed?) + (spec: 0 u8vector-port::t u8vector-port::t) + (spec: 0 gerbil-system-manifest gerbil-system-manifest) (spec: 0 substruct? substruct?) - (spec: 0 f32vector::t f32vector::t) + (spec: 0 class-instance? class-instance?) (spec: 0 weak? weak?) - (spec: 0 dump-stack-trace? dump-stack-trace?) - (spec: 0 hash-length hash-length) - (spec: 0 hash-get hash-get) - (spec: 0 actor-thread? actor-thread?) - (spec: 0 make-interface-descriptor make-interface-descriptor) - (spec: 0 class-type-constructor class-type-constructor) - (spec: 0 source-location? source-location?) - (spec: 0 write-u8vector write-u8vector) - (spec: 0 add-load-path! add-load-path!) - (spec: 0 assgetv assgetv) - (spec: 0 hash-values hash-values) - (spec: 0 void? void?) - (spec: 0 build-manifest-string build-manifest-string) - (spec: 0 call-next-method call-next-method) + (spec: 0 is-hash-table? is-hash-table?) + (spec: 0 with-exception-handler with-exception-handler) + (spec: 0 object-port? object-port?) + (spec: 0 dssl-object? dssl-object?) + (spec: 0 fx>0? fx>0?) + (spec: 0 current-thread-group current-thread-group) + (spec: 0 make-syntax-error make-syntax-error) + (spec: 0 string-rindex string-rindex) (spec: 0 unhandled-actor-exception-hook-set! unhandled-actor-exception-hook-set!) - (spec: 0 partition partition) - (spec: 0 time time) - (spec: 0 char-set-intersection! char-set-intersection!) - (spec: 0 fxorc1 fxorc1) - (spec: 0 abort abort) - (spec: 0 list->table list->table) - (spec: - 0 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 0 s32vector-ref s32vector-ref) - (spec: 0 flinteger? flinteger?) - (spec: - 0 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) - (spec: 0 string-ci=?-hash string-ci=?-hash) - (spec: 0 vector-swap! vector-swap!) + (spec: 0 read-syntax-from-file read-syntax-from-file) + (spec: 0 sequence? sequence?) + (spec: 0 condvar::t condvar::t) + (spec: 0 symbolic::t symbolic::t) + (spec: 0 character-port? character-port?) + (spec: 0 write-u8vector write-u8vector) + (spec: 0 foldr foldr) + (spec: 0 make-hash-table-immediate make-hash-table-immediate) + (spec: 0 thread-local-ref thread-local-ref) + (spec: 0 return::t return::t) + (spec: 0 remq remq) + (spec: 0 build-manifest/layer build-manifest/layer) + (spec: 0 u32vector::t u32vector::t) + (spec: 0 aget aget) + (spec: 0 &class-type-super &class-type-super) + (spec: 0 class->list class->list) + (spec: 0 object-fill! object-fill!) + (spec: 0 absent-obj absent-obj) + (spec: 0 true true) + (spec: 0 remv remv) + (spec: 0 string-port::t string-port::t) + (spec: 0 fx<=0? fx<=0?) + (spec: 0 hvector::t hvector::t) + (spec: 0 spawn spawn) + (spec: 0 char::t char::t) + (spec: 0 integer::t integer::t) + (spec: 0 symbolic-table-set! symbolic-table-set!) + (spec: 0 f64vector::t f64vector::t) + (spec: 0 class-type-final? class-type-final?) + (spec: 0 hash-put! hash-put!) + (spec: 0 ormap ormap) + (spec: 0 thread-local-delete! thread-local-delete!) + (spec: 0 make-hash-table-eq make-hash-table-eq) + (spec: 0 eq-hash eq-hash) + (spec: 0 struct-instance-init! struct-instance-init!) + (spec: 0 port::t port::t) + (spec: 0 void::t void::t) + (spec: 0 add-load-path! add-load-path!) + (spec: 0 immediate::t immediate::t) + (spec: 0 &class-type-slot-vector &class-type-slot-vector) + (spec: 0 number::t number::t) + (spec: 0 make-interface-descriptor make-interface-descriptor) + (spec: 0 fx1- fx1-) + (spec: 0 source-location-path? source-location-path?) + (spec: 0 error? error?) + (spec: 0 remove! remove!) + (spec: 0 file-info-number-of-links file-info-number-of-links) + (spec: 0 void void) + (spec: 0 random-real random-real) + (spec: 0 box box) + (spec: 0 readtable-comment-handler-set readtable-comment-handler-set) + (spec: 0 subvector-move! subvector-move!) + (spec: 0 table->list table->list) + (spec: 0 open-file open-file) + (spec: 0 ucs-range->char-set ucs-range->char-set) (spec: 0 - readtable-sharing-allowed?-set - readtable-sharing-allowed?-set) - (spec: 0 delete-file-or-directory delete-file-or-directory) - (spec: 0 flasinh flasinh) - (spec: 0 table-set! table-set!) - (spec: 0 open-process open-process) + expression-parsing-exception-source + expression-parsing-exception-source) + (spec: 0 with-output-to-string with-output-to-string) + (spec: 0 u64vector-fill! u64vector-fill!) + (spec: 0 fl* fl*) + (spec: 0 copy-bit-field copy-bit-field) + (spec: 0 string-swap! string-swap!) + (spec: 0 os-exception? os-exception?) + (spec: 0 will-testator will-testator) + (spec: 0 cons* cons*) + (spec: 0 u32vector-fill! u32vector-fill!) + (spec: 0 list->char-set! list->char-set!) + (spec: 0 char-set-ref char-set-ref) + (spec: 0 thread-suspend! thread-suspend!) (spec: 0 - cfun-conversion-exception-message - cfun-conversion-exception-message) - (spec: 0 thread-group-suspend! thread-group-suspend!) - (spec: 0 user-info user-info) - (spec: 0 open-dummy open-dummy) - (spec: 0 repl-result-history-ref repl-result-history-ref) + not-in-compilation-context-exception-arguments + not-in-compilation-context-exception-arguments) + (spec: 0 uninterned-symbol? uninterned-symbol?) + (spec: 0 thread-mailbox-next thread-mailbox-next) + (spec: 0 step step) + (spec: 0 address-info-family address-info-family) + (spec: 0 fxnot fxnot) (spec: 0 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) - (spec: 0 third third) - (spec: 0 create-temporary-directory create-temporary-directory) - (spec: 0 file-info-last-access-time file-info-last-access-time) - (spec: 0 mutex-specific mutex-specific) - (spec: 0 random-f64vector random-f64vector) - (spec: 0 u64vector? u64vector?) - (spec: 0 file-attributes file-attributes) + unterminated-process-exception-procedure + unterminated-process-exception-procedure) + (spec: 0 range-exception-procedure range-exception-procedure) + (spec: 0 vector-unfold-right vector-unfold-right) + (spec: 0 module-search-order-reset! module-search-order-reset!) + (spec: 0 file-creation-time file-creation-time) + (spec: 0 current-directory current-directory) + (spec: 0 open-tcp-client open-tcp-client) + (spec: 0 u8vector->list u8vector->list) + (spec: 0 replace-bit-field replace-bit-field) (spec: 0 - module-not-found-exception-arguments - module-not-found-exception-arguments) - (spec: 0 read-subu8vector read-subu8vector) + divide-by-zero-exception-procedure + divide-by-zero-exception-procedure) (spec: 0 - default-user-interrupt-handler - default-user-interrupt-handler) + keyword-expected-exception-arguments + keyword-expected-exception-arguments) (spec: 0 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) + unbound-serial-number-exception? + unbound-serial-number-exception?) (spec: 0 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) - (spec: - 0 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) - (spec: 0 udp-read-subu8vector udp-read-subu8vector) - (spec: 0 file-owner file-owner) - (spec: 0 network-info network-info) - (spec: 0 print print) - (spec: 0 circular-list? circular-list?) - (spec: 0 script-directory script-directory) - (spec: 0 u16vector u16vector) - (spec: 0 write-file-string write-file-string) - (spec: 0 s8vector-length s8vector-length) - (spec: 0 string-suffix? string-suffix?) - (spec: - 0 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 0 with-output-to-port with-output-to-port) - (spec: 0 sfun-conversion-exception? sfun-conversion-exception?) - (spec: 0 f64vector-copy! f64vector-copy!) - (spec: 0 bitwise-andc1 bitwise-andc1) - (spec: 0 service-info? service-info?) - (spec: 0 f32vector-copy! f32vector-copy!) - (spec: 0 make-thread make-thread) - (spec: 0 bit-count bit-count) - (spec: 0 subu16vector subu16vector) - (spec: - 0 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 0 subf64vector-move! subf64vector-move!) + mailbox-receive-timeout-exception? + mailbox-receive-timeout-exception?) + (spec: 0 substring-move! substring-move!) + (spec: 0 bitwise-if bitwise-if) + (spec: 0 seconds->time seconds->time) + (spec: 0 length-mismatch-exception? length-mismatch-exception?) + (spec: 0 fxarithmetic-shift-right fxarithmetic-shift-right) (spec: 0 char-set-delete char-set-delete) - (spec: 0 fxandc1 fxandc1) - (spec: 0 s16vector-set s16vector-set) - (spec: 0 thread-receive thread-receive) - (spec: 0 fourth fourth) - (spec: 0 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) - (spec: 0 acosh acosh) - (spec: 0 s64vector-length s64vector-length) - (spec: 0 s32vector-fill! s32vector-fill!) - (spec: 0 fxorc2 fxorc2) - (spec: 0 error-exception-message error-exception-message) - (spec: 0 char-set-map char-set-map) - (spec: 0 partition! partition!) - (spec: 0 vector-unfold vector-unfold) + (spec: 0 f64vector-ref f64vector-ref) + (spec: 0 s64vector-shrink! s64vector-shrink!) + (spec: 0 subf64vector subf64vector) + (spec: 0 bit-field-rotate bit-field-rotate) + (spec: 0 proper-list? proper-list?) + (spec: 0 thread-start! thread-start!) (spec: 0 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) - (spec: 0 readtable-max-write-level readtable-max-write-level) - (spec: 0 flatan flatan) - (spec: 0 delete! delete!) + wrong-number-of-values-exception-vals + wrong-number-of-values-exception-vals) (spec: 0 invalid-hash-number-exception-arguments invalid-hash-number-exception-arguments) + (spec: 0 flinfinite? flinfinite?) + (spec: 0 readtable-start-syntax readtable-start-syntax) + (spec: 0 take-right take-right) + (spec: 0 user-info-name user-info-name) + (spec: 0 s32vector-set s32vector-set) + (spec: 0 fxxor fxxor) (spec: 0 - terminated-thread-exception-arguments - terminated-thread-exception-arguments) - (spec: 0 uninterned-keyword? uninterned-keyword?) - (spec: 0 open-string open-string) + terminated-thread-exception-procedure + terminated-thread-exception-procedure) + (spec: 0 flonum? flonum?) + (spec: 0 subvector subvector) (spec: 0 - cfun-conversion-exception-procedure - cfun-conversion-exception-procedure) - (spec: 0 take-right take-right) - (spec: 0 split-at split-at) - (spec: 0 repl-input-port repl-input-port) - (spec: 0 flpositive? flpositive?) + file-info-last-modification-time + file-info-last-modification-time) + (spec: 0 random-f64vector random-f64vector) + (spec: 0 last-pair last-pair) + (spec: 0 flacos flacos) (spec: 0 - keyword-expected-exception-arguments - keyword-expected-exception-arguments) - (spec: 0 open-event-queue open-event-queue) - (spec: 0 thread-interrupt! thread-interrupt!) - (spec: 0 user-info-gid user-info-gid) - (spec: 0 range-exception-arg-id range-exception-arg-id) - (spec: 0 file-info-device file-info-device) - (spec: 0 random-integer random-integer) - (spec: 0 module-search-order-reset! module-search-order-reset!) - (spec: 0 copy-bit copy-bit) - (spec: 0 bitwise-if bitwise-if) - (spec: 0 u8vector-shrink! u8vector-shrink!) - (spec: 0 u8vector->list u8vector->list) - (spec: 0 defer-user-interrupts defer-user-interrupts) - (spec: 0 read-all read-all) - (spec: 0 file-last-modification-time file-last-modification-time) + readtable-case-conversion?-set + readtable-case-conversion?-set) + (spec: 0 open-dummy open-dummy) + (spec: 0 u8vector-swap! u8vector-swap!) + (spec: 0 make-random-source make-random-source) + (spec: 0 initialized-thread-exception? initialized-thread-exception?) + (spec: 0 with-output-to-port with-output-to-port) (spec: 0 - unbound-serial-number-exception-procedure - unbound-serial-number-exception-procedure) - (spec: 0 heap-overflow-exception? heap-overflow-exception?) - (spec: 0 executable-path executable-path) - (spec: 0 clear-bit-field clear-bit-field) - (spec: 0 println println) - (spec: 0 string-swap! string-swap!) - (spec: 0 s8vector-copy s8vector-copy) - (spec: 0 get-output-u8vector get-output-u8vector) + expression-parsing-exception-kind + expression-parsing-exception-kind) + (spec: 0 u64vector-copy u64vector-copy) + (spec: 0 fixnum-overflow-exception? fixnum-overflow-exception?) + (spec: 0 string-suffix-length-ci string-suffix-length-ci) + (spec: 0 list->bits list->bits) + (spec: 0 os-exception-message os-exception-message) + (spec: 0 any any) + (spec: 0 u32vector-copy u32vector-copy) + (spec: 0 make-u64vector make-u64vector) + (spec: 0 conjugate conjugate) + (spec: 0 f32vector-fill! f32vector-fill!) + (spec: 0 fxnegative? fxnegative?) + (spec: 0 char-set-intersection! char-set-intersection!) + (spec: 0 s16vector-swap! s16vector-swap!) + (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) + (spec: 0 thread-join! thread-join!) + (spec: 0 vector-swap! vector-swap!) + (spec: 0 partition partition) + (spec: 0 sinh sinh) + (spec: 0 range-exception-arg-id range-exception-arg-id) (spec: 0 - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception?) + unbound-serial-number-exception-arguments + unbound-serial-number-exception-arguments) + (spec: 0 thread-base-priority thread-base-priority) (spec: 0 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 0 any any) - (spec: 0 u16vector-copy! u16vector-copy!) + repl-result-history-max-length-set! + repl-result-history-max-length-set!) (spec: 0 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 0 f64vector-append f64vector-append) - (spec: 0 bit-field-replace bit-field-replace) - (spec: 0 configure-command-string configure-command-string) - (spec: 0 service-info-name service-info-name) - (spec: 0 subu16vector-fill! subu16vector-fill!) - (spec: 0 f32vector-append f32vector-append) - (spec: 0 compilation-target compilation-target) - (spec: 0 make-u64vector make-u64vector) - (spec: 0 subs16vector subs16vector) - (spec: 0 s16vector-set! s16vector-set!) - (spec: 0 char-set-count char-set-count) - (spec: 0 fxbit-count fxbit-count) + cfun-conversion-exception-procedure + cfun-conversion-exception-procedure) + (spec: 0 fold fold) + (spec: 0 file-number-of-links file-number-of-links) + (spec: 0 keyword->string keyword->string) + (spec: 0 open-string open-string) + (spec: 0 clear-bit-field clear-bit-field) (spec: 0 - thread-state-running-processor - thread-state-running-processor) - (spec: 0 u32vector-copy u32vector-copy) - (spec: 0 os-exception-message os-exception-message) - (spec: 0 thread-resume! thread-resume!) - (spec: 0 u64vector-concatenate u64vector-concatenate) - (spec: 0 length+ length+) - (spec: 0 with-output-to-process with-output-to-process) - (spec: 0 write-file-string-list write-file-string-list) + mailbox-receive-timeout-exception-arguments + mailbox-receive-timeout-exception-arguments) + (spec: 0 println println) + (spec: 0 bitwise-fold bitwise-fold) + (spec: 0 fifth fifth) + (spec: 0 network-info-number network-info-number) + (spec: 0 defer-user-interrupts defer-user-interrupts) + (spec: 0 s8vector-fill! s8vector-fill!) + (spec: 0 host-info? host-info?) + (spec: 0 stack-overflow-exception? stack-overflow-exception?) + (spec: 0 string-suffix-ci? string-suffix-ci?) + (spec: 0 fxarithmetic-shift fxarithmetic-shift) + (spec: 0 char-set-cursor char-set-cursor) (spec: 0 - wrong-number-of-values-exception-rte - wrong-number-of-values-exception-rte) - (spec: 0 every-bit-set? every-bit-set?) - (spec: 0 fxzero? fxzero?) - (spec: 0 fxnot fxnot) + length-mismatch-exception-arguments + length-mismatch-exception-arguments) + (spec: 0 s64vector-set s64vector-set) + (spec: 0 system-version system-version) + (spec: 0 f64vector-length f64vector-length) + (spec: 0 bit-field-replace-same bit-field-replace-same) + (spec: 0 subf32vector-fill! subf32vector-fill!) + (spec: 0 error-exception? error-exception?) + (spec: 0 thread-specific thread-specific) + (spec: 0 readtable-sharing-allowed? readtable-sharing-allowed?) + (spec: 0 flhypot flhypot) (spec: 0 - permission-denied-exception-arguments - permission-denied-exception-arguments) - (spec: 0 char-set-union char-set-union) - (spec: 0 error-exception-parameters error-exception-parameters) - (spec: 0 s32vector-length s32vector-length) - (spec: 0 step step) - (spec: 0 flilogb flilogb) - (spec: 0 path-extension path-extension) - (spec: 0 will? will?) + number-of-arguments-limit-exception? + number-of-arguments-limit-exception?) + (spec: 0 take take) + (spec: 0 tty-type-set! tty-type-set!) + (spec: 0 u16vector-fill! u16vector-fill!) + (spec: 0 list->u64vector list->u64vector) + (spec: 0 fxwrapquotient fxwrapquotient) + (spec: 0 udp-write-subu8vector udp-write-subu8vector) + (spec: 0 user-info-gid user-info-gid) + (spec: 0 flodd? flodd?) + (spec: 0 vector-fold vector-fold) + (spec: 0 file-info-last-access-time file-info-last-access-time) + (spec: 0 mutex? mutex?) + (spec: 0 subu8vector-fill! subu8vector-fill!) + (spec: 0 fl>= fl>=) (spec: 0 - terminated-thread-exception-procedure - terminated-thread-exception-procedure) + wrong-number-of-values-exception-code + wrong-number-of-values-exception-code) + (spec: 0 u8vector-set! u8vector-set!) + (spec: 0 script-directory script-directory) (spec: 0 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) - (spec: 0 object->serial-number object->serial-number) - (spec: 0 delete-directory delete-directory) - (spec: 0 readtable-max-write-level-set readtable-max-write-level-set) + initialized-thread-exception-arguments + initialized-thread-exception-arguments) (spec: 0 - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-procedure) - (spec: 0 fold-right fold-right) - (spec: 0 last-pair last-pair) - (spec: 0 not-pair? not-pair?) - (spec: 0 reverse! reverse!) - (spec: 0 thread-join! thread-join!) - (spec: 0 user-info? user-info?) + current-user-interrupt-handler + current-user-interrupt-handler) + (spec: 0 with-input-from-vector with-input-from-vector) + (spec: 0 u64vector-append u64vector-append) + (spec: 0 continuation? continuation?) + (spec: 0 r7rs-with-exception-handler r7rs-with-exception-handler) + (spec: 0 noncontinuable-exception? noncontinuable-exception?) (spec: 0 - keyword-expected-exception-procedure - keyword-expected-exception-procedure) - (spec: 0 open-u8vector-pipe open-u8vector-pipe) - (spec: 0 display-procedure-environment display-procedure-environment) - (spec: 0 repl-output-port repl-output-port) - (spec: 0 file-info-group file-info-group) - (spec: 0 u8vector-swap! u8vector-swap!) - (spec: 0 module-whitelist-add! module-whitelist-add!) - (spec: 0 bitwise-ior bitwise-ior) - (spec: 0 subvector-move! subvector-move!) - (spec: 0 u8vector->object u8vector->object) - (spec: 0 random-source-make-reals random-source-make-reals) - (spec: 0 fixnum->flonum fixnum->flonum) - (spec: 0 system-version-string system-version-string) + fixnum-overflow-exception-arguments + fixnum-overflow-exception-arguments) + (spec: 0 write-file-string-list write-file-string-list) + (spec: 0 f32vector-copy f32vector-copy) + (spec: 0 atanh atanh) + (spec: 0 s16vector-set! s16vector-set!) + (spec: 0 u32vector-append u32vector-append) + (spec: 0 make-u16vector make-u16vector) + (spec: 0 configure-command-string configure-command-string) + (spec: 0 service-info-protocol service-info-protocol) + (spec: 0 fxmodulo fxmodulo) + (spec: 0 char-set-hash char-set-hash) + (spec: 0 iota iota) (spec: 0 - unbound-serial-number-exception? - unbound-serial-number-exception?) - (spec: 0 readtable-comment-handler readtable-comment-handler) + uninitialized-thread-exception-procedure + uninitialized-thread-exception-procedure) + (spec: 0 thread-init! thread-init!) + (spec: 0 foreign? foreign?) + (spec: 0 os-exception-arguments os-exception-arguments) + (spec: 0 every-bit-set? every-bit-set?) + (spec: 0 link-flat link-flat) + (spec: 0 create-symbolic-link create-symbolic-link) + (spec: 0 delete! delete!) + (spec: 0 repl-input-port repl-input-port) (spec: 0 - datum-parsing-exception-parameters - datum-parsing-exception-parameters) - (spec: 0 file-mode file-mode) - (spec: 0 make-random-source make-random-source) - (spec: 0 string-suffix-length string-suffix-length) - (spec: 0 u16vector-fill! u16vector-fill!) - (spec: 0 main main) - (spec: 0 any-bit-set? any-bit-set?) - (spec: 0 process-pid process-pid) - (spec: 0 s8vector-copy! s8vector-copy!) + cfun-conversion-exception-code + cfun-conversion-exception-code) + (spec: 0 socket-info? socket-info?) + (spec: 0 network-info-aliases network-info-aliases) + (spec: 0 file-last-modification-time file-last-modification-time) + (spec: 0 primordial-exception-handler primordial-exception-handler) + (spec: 0 circular-list circular-list) + (spec: 0 group-info? group-info?) + (spec: 0 bitwise-andc2 bitwise-andc2) (spec: 0 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 0 bit-field-replace-same bit-field-replace-same) - (spec: 0 f64vector-concatenate f64vector-concatenate) - (spec: 0 substring-fill! substring-fill!) - (spec: 0 u64vector-copy u64vector-copy) - (spec: 0 make-u8vector make-u8vector) - (spec: 0 service-info-port-number service-info-port-number) - (spec: 0 f32vector-concatenate f32vector-concatenate) - (spec: 0 subf64vector subf64vector) - (spec: 0 fxbit-set? fxbit-set?) - (spec: 0 protocol-info protocol-info) - (spec: 0 char-set-cursor char-set-cursor) - (spec: 0 thread-priority thread-priority) - (spec: 0 u32vector-copy! u32vector-copy!) - (spec: 0 vector-fold vector-fold) - (spec: 0 fx* fx*) - (spec: 0 os-exception-procedure os-exception-procedure) - (spec: 0 length-mismatch-exception? length-mismatch-exception?) + module-not-found-exception-procedure + module-not-found-exception-procedure) + (spec: 0 s8vector-copy s8vector-copy) + (spec: 0 input-port-readtable-set! input-port-readtable-set!) + (spec: 0 default-random-source default-random-source) + (spec: 0 processor? processor?) + (spec: 0 command-name command-name) + (spec: 0 host-info-aliases host-info-aliases) + (spec: 0 read-substring read-substring) + (spec: 0 char-set-copy char-set-copy) + (spec: 0 fxandc1 fxandc1) + (spec: 0 char-set? char-set?) + (spec: 0 generate-proper-tail-calls generate-proper-tail-calls) (spec: 0 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 0 thread-state-waiting-for thread-state-waiting-for) - (spec: 0 s64vector-copy! s64vector-copy!) - (spec: 0 thread-start! thread-start!) - (spec: 0 with-exception-catcher with-exception-catcher) + (spec: 0 bit-field-every? bit-field-every?) + (spec: 0 f64vector-copy! f64vector-copy!) + (spec: 0 list->u16vector list->u16vector) + (spec: 0 error-exception-message error-exception-message) + (spec: 0 sfun-conversion-exception? sfun-conversion-exception?) (spec: 0 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 0 list->u64vector list->u64vector) - (spec: 0 char-set-union! char-set-union!) - (spec: 0 fxodd? fxodd?) - (spec: 0 s64vector-set! s64vector-set!) - (spec: 0 touch touch) - (spec: 0 path-normalize path-normalize) - (spec: 0 step-level-set! step-level-set!) - (spec: 0 flinfinite? flinfinite?) - (spec: 0 s32vector-shrink! s32vector-shrink!) - (spec: 0 object->string object->string) - (spec: 0 tenth tenth) - (spec: 0 call-with-input-process call-with-input-process) - (spec: 0 flasin flasin) - (spec: 0 remove remove) + number-of-arguments-limit-exception-arguments + number-of-arguments-limit-exception-arguments) + (spec: 0 call-with-output-vector call-with-output-vector) + (spec: 0 flfinite? flfinite?) + (spec: 0 readtable-max-write-level readtable-max-write-level) + (spec: 0 system-type system-type) + (spec: 0 s32vector-fill! s32vector-fill!) + (spec: 0 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + (spec: 0 table? table?) + (spec: 0 thread-send thread-send) + (spec: 0 flnumerator flnumerator) + (spec: 0 time->seconds time->seconds) + (spec: 0 mutex-state mutex-state) + (spec: 0 file-info-group file-info-group) + (spec: 0 thread-group? thread-group?) (spec: 0 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) - (spec: 0 take take) + nonprocedure-operator-exception-rte + nonprocedure-operator-exception-rte) + (spec: 0 fl= fl=) + (spec: 0 reverse! reverse!) + (spec: 0 trace trace) + (spec: 0 u16vector-copy u16vector-copy) + (spec: 0 u16vector-append u16vector-append) + (spec: 0 current-thread current-thread) + (spec: 0 initial-current-directory initial-current-directory) + (spec: 0 make-mutex make-mutex) + (spec: 0 u8vector-ref u8vector-ref) + (spec: 0 udp-read-u8vector udp-read-u8vector) + (spec: 0 r7rs-raise r7rs-raise) + (spec: 0 continuation-graft continuation-graft) + (spec: 0 subu64vector-move! subu64vector-move!) + (spec: 0 fixnum->flonum fixnum->flonum) (spec: 0 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) - (spec: 0 user-name user-name) - (spec: 0 open-udp open-udp) - (spec: 0 keyword->string keyword->string) - (spec: 0 open-input-u8vector open-input-u8vector) - (spec: 0 mutex-unlock! mutex-unlock!) - (spec: 0 thread-base-priority thread-base-priority) - (spec: 0 file-info-mode file-info-mode) - (spec: 0 u8vector-set u8vector-set) - (spec: 0 bitwise-fold bitwise-fold) - (spec: 0 random-source-make-u8vectors random-source-make-u8vectors) + unbound-os-environment-variable-exception? + unbound-os-environment-variable-exception?) + (spec: 0 make-thread-group make-thread-group) + (spec: 0 f32vector-append f32vector-append) + (spec: 0 vector-every vector-every) + (spec: 0 s16vector-ref s16vector-ref) + (spec: 0 with-input-from-string with-input-from-string) (spec: 0 - noncontinuable-exception-reason - noncontinuable-exception-reason) - (spec: 0 fixnum? fixnum?) - (spec: 0 readtable-comment-handler-set readtable-comment-handler-set) + wrong-number-of-arguments-exception? + wrong-number-of-arguments-exception?) + (spec: 0 all-bits-set? all-bits-set?) + (spec: 0 service-info-name service-info-name) + (spec: 0 subs8vector-fill! subs8vector-fill!) + (spec: 0 u32vector u32vector) + (spec: 0 tcp-service-unregister! tcp-service-unregister!) + (spec: 0 char-set-fold char-set-fold) + (spec: 0 fxmax fxmax) (spec: 0 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) - (spec: 0 network-info-number network-info-number) - (spec: 0 file-type file-type) - (spec: 0 udp-write-subu8vector udp-write-subu8vector) + invalid-utf8-encoding-exception? + invalid-utf8-encoding-exception?) + (spec: 0 foreign-tags foreign-tags) + (spec: 0 s64vector-fill! s64vector-fill!) + (spec: 0 repl-error-port repl-error-port) + (spec: 0 display-exception-in-context display-exception-in-context) + (spec: 0 create-fifo create-fifo) + (spec: 0 u64vector-swap! u64vector-swap!) + (spec: 0 random-source? random-source?) + (spec: 0 readtable-max-write-length readtable-max-write-length) + (spec: 0 fltanh fltanh) + (spec: 0 open-output-u8vector open-output-u8vector) + (spec: 0 socket-info-family socket-info-family) + (spec: 0 file-last-access-time file-last-access-time) + (spec: 0 tty-mode-set! tty-mode-set!) + (spec: 0 group-info-members group-info-members) + (spec: 0 bitwise-and bitwise-and) + (spec: 0 command-args command-args) + (spec: 0 char-set-complement! char-set-complement!) + (spec: 0 host-info host-info) + (spec: 0 fxabs fxabs) + (spec: 0 output-port-timeout-set! output-port-timeout-set!) + (spec: 0 thread-receive thread-receive) + (spec: 0 char-set<= char-set<=) (spec: 0 - expression-parsing-exception-parameters - expression-parsing-exception-parameters) - (spec: 0 write-substring write-substring) - (spec: 0 u16vector-concatenate u16vector-concatenate) + sfun-conversion-exception-message + sfun-conversion-exception-message) + (spec: 0 f64vector-concatenate f64vector-concatenate) + (spec: 0 bit-field-any? bit-field-any?) + (spec: 0 s32vector-copy s32vector-copy) + (spec: 0 error error) + (spec: 0 call-with-output-string call-with-output-string) + (spec: 0 table-search table-search) + (spec: 0 flexpm1 flexpm1) + (spec: 0 u64vector u64vector) (spec: 0 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) - (spec: 0 second second) - (spec: 0 string-suffix-length-ci string-suffix-length-ci) - (spec: 0 pp pp) - (spec: 0 console-port console-port) - (spec: 0 bit-field-clear bit-field-clear) - (spec: 0 s8vector-set s8vector-set) - (spec: 0 tty-type-set! tty-type-set!) - (spec: 0 u64vector->list u64vector->list) - (spec: 0 make-u16vector make-u16vector) - (spec: 0 substring-move! substring-move!) - (spec: 0 atanh atanh) - (spec: 0 protocol-info-aliases protocol-info-aliases) - (spec: 0 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 0 list->bits list->bits) - (spec: 0 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 0 s16vector-ref s16vector-ref) - (spec: 0 subf64vector-fill! subf64vector-fill!) - (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) - (spec: 0 u32vector-append u32vector-append) - (spec: 0 char-set char-set) - (spec: 0 thread-state thread-state) - (spec: 0 fxwrapsquare fxwrapsquare) - (spec: 0 output-port-byte-position output-port-byte-position) - (spec: 0 s64vector-fill! s64vector-fill!) - (spec: 0 will-execute! will-execute!) - (spec: 0 s64vector-shrink! s64vector-shrink!) - (spec: 0 char-set-unfold char-set-unfold) - (spec: 0 list->u8vector list->u8vector) - (spec: 0 string-contains string-contains) - (spec: 0 trace trace) - (spec: 0 s32vector-swap! s32vector-swap!) - (spec: 0 string->keyword string->keyword) - (spec: 0 fxremainder fxremainder) - (spec: 0 iota iota) - (spec: 0 timeout->time timeout->time) - (spec: - 0 - unterminated-process-exception? - unterminated-process-exception?) - (spec: 0 remove! remove!) - (spec: 0 flmax flmax) - (spec: - 0 - not-in-compilation-context-exception? - not-in-compilation-context-exception?) - (spec: - 0 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) - (spec: 0 flcos flcos) - (spec: 0 take! take!) - (spec: 0 user-info-shell user-info-shell) - (spec: 0 open-tcp-server open-tcp-server) - (spec: 0 thread-init! thread-init!) - (spec: 0 sixth sixth) - (spec: 0 file-info-number-of-links file-info-number-of-links) - (spec: 0 flsin flsin) - (spec: 0 mutex? mutex?) - (spec: 0 thread-base-priority-set! thread-base-priority-set!) - (spec: 0 range-exception? range-exception?) - (spec: 0 u8vector-set! u8vector-set!) - (spec: 0 module-search-order-add! module-search-order-add!) - (spec: 0 bitwise-for-each bitwise-for-each) - (spec: 0 random-source-make-f64vectors random-source-make-f64vectors) - (spec: 0 fl* fl*) + rpc-remote-error-exception-message + rpc-remote-error-exception-message) (spec: 0 - inactive-thread-exception-procedure - inactive-thread-exception-procedure) - (spec: 0 noncontinuable-exception? noncontinuable-exception?) - (spec: 0 u8vector u8vector) - (spec: 0 readtable-case-conversion? readtable-case-conversion?) - (spec: 0 table-copy table-copy) - (spec: 0 integer-length integer-length) - (spec: 0 network-info? network-info?) + wrong-number-of-arguments-exception-arguments + wrong-number-of-arguments-exception-arguments) + (spec: 0 fxwrapabs fxwrapabs) + (spec: 0 path-volume path-volume) + (spec: 0 string->uninterned-symbol string->uninterned-symbol) + (spec: 0 repl-highlight-source-level repl-highlight-source-level) + (spec: 0 third third) (spec: 0 - unbound-serial-number-exception-arguments - unbound-serial-number-exception-arguments) + readtable-max-write-length-set + readtable-max-write-length-set) + (spec: 0 delete delete) + (spec: 0 table-set! table-set!) + (spec: 0 flsqrt flsqrt) + (spec: 0 udp-read-subu8vector udp-read-subu8vector) + (spec: 0 network-info network-info) + (spec: 0 file-last-change-time file-last-change-time) + (spec: 0 string-prefix-length string-prefix-length) + (spec: 0 pretty-print pretty-print) + (spec: 0 bitwise-andc1 bitwise-andc1) (spec: 0 - expression-parsing-exception-source - expression-parsing-exception-source) - (spec: 0 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 0 udp-write-u8vector udp-write-u8vector) - (spec: 0 seconds->time seconds->time) - (spec: 0 u16vector-copy u16vector-copy) + module-not-found-exception-arguments + module-not-found-exception-arguments) + (spec: 0 u64vector? u64vector?) + (spec: 0 read-file-string read-file-string) (spec: 0 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 0 with-output-to-vector with-output-to-vector) - (spec: 0 s8vector-set! s8vector-set!) - (spec: 0 f64vector-ref f64vector-ref) - (spec: 0 tty? tty?) - (spec: 0 bit-field-every? bit-field-every?) - (spec: 0 subu32vector-fill! subu32vector-fill!) - (spec: 0 concatenate! concatenate!) - (spec: 0 f32vector-ref f32vector-ref) - (spec: 0 make-u32vector make-u32vector) - (spec: 0 u64vector-append u64vector-append) - (spec: 0 subs32vector subs32vector) - (spec: 0 char-set-difference char-set-difference) - (spec: 0 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 0 u32vector-concatenate u32vector-concatenate) - (spec: 0 thread-state-uninitialized? thread-state-uninitialized?) - (spec: 0 char-set->list char-set->list) + input-port-characters-buffered + input-port-characters-buffered) (spec: 0 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) - (spec: 0 s16vector? s16vector?) - (spec: 0 output-port-char-position output-port-char-position) - (spec: 0 thread-specific thread-specific) - (spec: 0 fxxor fxxor) - (spec: 0 string-contains-ci string-contains-ci) - (spec: 0 s64vector-ref s64vector-ref) - (spec: 0 gc-report-set! gc-report-set!) - (spec: 0 will-testator will-testator) - (spec: 0 char-set-unfold! char-set-unfold!) - (spec: 0 void void) - (spec: 0 s32vector-set s32vector-set) - (spec: 0 fxsquare fxsquare) - (spec: 0 car+cdr car+cdr) - (spec: 0 directory-files directory-files) - (spec: 0 path-expand path-expand) - (spec: 0 untrace untrace) - (spec: 0 flmin flmin) - (spec: 0 test-bit-field? test-bit-field?) + wrong-number-of-arguments-exception-procedure + wrong-number-of-arguments-exception-procedure) + (spec: 0 host-info-addresses host-info-addresses) + (spec: 0 char-set-adjoin! char-set-adjoin!) + (spec: 0 processor-id processor-id) + (spec: 0 char-set= char-set=) + (spec: 0 fx= fx=) + (spec: 0 u32vector? u32vector?) + (spec: 0 vector-cas! vector-cas!) + (spec: 0 with-input-from-u8vector with-input-from-u8vector) + (spec: 0 f64vector f64vector) + (spec: 0 time time) + (spec: 0 list->table list->table) + (spec: 0 call-with-input-vector call-with-input-vector) + (spec: 0 s32vector-copy! s32vector-copy!) + (spec: 0 fldenominator fldenominator) + (spec: 0 null-list? null-list?) + (spec: 0 length+ length+) (spec: 0 - unknown-keyword-argument-exception-arguments - unknown-keyword-argument-exception-arguments) - (spec: 0 flcosh flcosh) - (spec: 0 readtable-start-syntax readtable-start-syntax) - (spec: 0 tcp-client-local-socket-info tcp-client-local-socket-info) - (spec: 0 user-info-uid user-info-uid) - (spec: 0 foreign-address foreign-address) + rpc-remote-error-exception-procedure + rpc-remote-error-exception-procedure) + (spec: 0 thread-resume! thread-resume!) + (spec: 0 path-strip-extension path-strip-extension) + (spec: 0 fxwrap* fxwrap*) + (spec: 0 flnegative? flnegative?) + (spec: 0 bitwise-unfold bitwise-unfold) + (spec: 0 u8vector-length u8vector-length) + (spec: 0 file-group file-group) + (spec: 0 fl<= fl<=) (spec: 0 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) - (spec: 0 open-u8vector open-u8vector) - (spec: 0 thread-mailbox-rewind thread-mailbox-rewind) - (spec: 0 flsinh flsinh) - (spec: 0 file-info-last-change-time file-info-last-change-time) - (spec: 0 current-exception-handler current-exception-handler) - (spec: 0 box? box?) - (spec: 0 keyword? keyword?) - (spec: 0 open-input-process open-input-process) - (spec: 0 replace-bit-field replace-bit-field) - (spec: 0 file-creation-time file-creation-time) - (spec: 0 cosh cosh) - (spec: 0 bitwise-nor bitwise-nor) - (spec: 0 symbol-hash symbol-hash) - (spec: 0 inactive-thread-exception? inactive-thread-exception?) + nonprocedure-operator-exception-operator + nonprocedure-operator-exception-operator) + (spec: 0 thread-group-resume! thread-group-resume!) + (spec: 0 drop-right drop-right) + (spec: 0 apropos apropos) + (spec: 0 make-f32vector make-f32vector) + (spec: 0 continuation-capture continuation-capture) + (spec: 0 subu64vector-fill! subu64vector-fill!) (spec: 0 - fixnum-overflow-exception-procedure - fixnum-overflow-exception-procedure) - (spec: 0 random-source-make-integers random-source-make-integers) - (spec: 0 thread-group->thread-list thread-group->thread-list) - (spec: 0 table-for-each table-for-each) - (spec: 0 u8vector-copy u8vector-copy) - (spec: 0 integer-nth-root integer-nth-root) + unbound-key-exception-procedure + unbound-key-exception-procedure) + (spec: 0 f32vector->list f32vector->list) + (spec: 0 make-thread make-thread) + (spec: 0 service-info-aliases service-info-aliases) + (spec: 0 s16vector-copy s16vector-copy) (spec: 0 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) - (spec: 0 datum-parsing-exception-kind datum-parsing-exception-kind) + thread-state-normally-terminated-result + thread-state-normally-terminated-result) + (spec: 0 s8vector-concatenate s8vector-concatenate) + (spec: 0 condition-variable-signal! condition-variable-signal!) (spec: 0 - readtable-case-conversion?-set - readtable-case-conversion?-set) - (spec: 0 ucs-range->char-set! ucs-range->char-set!) - (spec: 0 input-port-char-position input-port-char-position) + tty-paren-balance-duration-set! + tty-paren-balance-duration-set!) + (spec: 0 protocol-info? protocol-info?) + (spec: 0 char-set-filter! char-set-filter!) + (spec: 0 fxlength fxlength) + (spec: 0 subs32vector-move! subs32vector-move!) + (spec: 0 foreign-released? foreign-released?) + (spec: 0 list-sort! list-sort!) + (spec: 0 display-exception display-exception) + (spec: 0 s64vector->list s64vector->list) + (spec: 0 top top) + (spec: 0 cpu-time cpu-time) (spec: 0 - unbound-global-exception-variable - unbound-global-exception-variable) - (spec: 0 arithmetic-shift arithmetic-shift) - (spec: 0 script-file script-file) - (spec: 0 u16vector-ref u16vector-ref) - (spec: 0 make-root-thread make-root-thread) - (spec: 0 append! append!) - (spec: 0 string-prefix-ci? string-prefix-ci?) - (spec: 0 type-exception-procedure type-exception-procedure) - (spec: 0 f64vector-fill! f64vector-fill!) - (spec: 0 cons* cons*) - (spec: 0 bit-field-set bit-field-set) - (spec: 0 make-bitwise-generator make-bitwise-generator) - (spec: 0 subu32vector-move! subu32vector-move!) - (spec: 0 u64vector-length u64vector-length) - (spec: 0 f32vector-fill! f32vector-fill!) - (spec: 0 subs32vector-fill! subs32vector-fill!) + inactive-thread-exception-procedure + inactive-thread-exception-procedure) (spec: 0 - wrong-processor-c-return-exception? - wrong-processor-c-return-exception?) - (spec: 0 char-set-delete! char-set-delete!) - (spec: 0 make-will make-will) - (spec: 0 vector-inc! vector-inc!) + random-source-pseudo-randomize! + random-source-pseudo-randomize!) (spec: 0 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 0 fxfirst-set-bit fxfirst-set-bit) + readtable-max-unescaped-char-set + readtable-max-unescaped-char-set) + (spec: 0 flsin flsin) + (spec: 0 table-ref table-ref) + (spec: 0 sixth sixth) (spec: 0 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) - (spec: 0 thread-specific-set! thread-specific-set!) + file-last-access-and-modification-times-set! + file-last-access-and-modification-times-set!) + (spec: 0 open-input-vector open-input-vector) + (spec: 0 bits->vector bits->vector) + (spec: 0 shell-command shell-command) + (spec: 0 input-port-bytes-buffered input-port-bytes-buffered) + (spec: 0 datum-parsing-exception? datum-parsing-exception?) + (spec: 0 u64vector-shrink! u64vector-shrink!) + (spec: 0 char-set->string char-set->string) (spec: 0 fx< fx<) - (spec: 0 s64vector-set s64vector-set) - (spec: 0 string->char-set string->char-set) - (spec: 0 fxpositive? fxpositive?) - (spec: 0 list-set list-set) - (spec: 0 path-strip-extension path-strip-extension) - (spec: 0 s32vector-set! s32vector-set!) - (spec: 0 fllog fllog) - (spec: 0 tcp-client-peer-socket-info tcp-client-peer-socket-info) - (spec: 0 flatanh flatanh) - (spec: 0 null-list? null-list?) - (spec: 0 call-with-input-vector call-with-input-vector) - (spec: 0 readtable-start-syntax-set readtable-start-syntax-set) - (spec: 0 split-at! split-at!) - (spec: 0 force-output force-output) - (spec: 0 thread-name thread-name) - (spec: 0 uncaught-exception? uncaught-exception?) - (spec: 0 divide-by-zero-exception? divide-by-zero-exception?) - (spec: 0 thread-group->thread-vector thread-group->thread-vector) - (spec: 0 flround flround) + (spec: 0 output-port-column output-port-column) + (spec: 0 vector-any vector-any) + (spec: 0 with-input-from-process with-input-from-process) + (spec: 0 u32vector-shrink! u32vector-shrink!) + (spec: 0 err-code->string err-code->string) + (spec: 0 f32vector? f32vector?) + (spec: 0 list->s8vector list->s8vector) + (spec: 0 flcos flcos) + (spec: 0 call-with-input-string call-with-input-string) + (spec: 0 s32vector-concatenate s32vector-concatenate) (spec: 0 - file-info-last-modification-time - file-info-last-modification-time) - (spec: 0 bitwise-not bitwise-not) - (spec: 0 current-readtable current-readtable) - (spec: 0 file-device file-device) - (spec: 0 u8vector-copy! u8vector-copy!) - (spec: 0 fixnum-overflow-exception? fixnum-overflow-exception?) - (spec: 0 uncaught-exception-arguments uncaught-exception-arguments) - (spec: 0 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 0 file-size file-size) - (spec: 0 unbound-global-exception? unbound-global-exception?) - (spec: 0 ninth ninth) - (spec: 0 read-file-string read-file-string) + rpc-remote-error-exception-arguments + rpc-remote-error-exception-arguments) + (spec: 0 fxremainder fxremainder) + (spec: 0 char-set-xor char-set-xor) + (spec: 0 string->keyword string->keyword) + (spec: 0 flmin flmin) + (spec: 0 thread-quantum-set! thread-quantum-set!) + (spec: 0 file-exists-exception? file-exists-exception?) + (spec: 0 bitwise-orc1 bitwise-orc1) + (spec: 0 multiple-c-return-exception? multiple-c-return-exception?) + (spec: 0 fl/ fl/) (spec: 0 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 0 u16vector-set u16vector-set) - (spec: 0 help help) - (spec: 0 make-s16vector make-s16vector) - (spec: 0 append-reverse append-reverse) - (spec: 0 type-exception-type-id type-exception-type-id) - (spec: 0 get-output-vector get-output-vector) - (spec: 0 pretty-print pretty-print) - (spec: 0 bit-set? bit-set?) - (spec: 0 f64vector-length f64vector-length) - (spec: 0 s8vector-ref s8vector-ref) - (spec: 0 subu16vector-move! subu16vector-move!) - (spec: 0 with-input-from-port with-input-from-port) - (spec: 0 f32vector-length f32vector-length) - (spec: 0 subs16vector-fill! subs16vector-fill!) - (spec: 0 identity identity) - (spec: 0 protocol-info? protocol-info?) - (spec: 0 char-set-diff+intersection char-set-diff+intersection) - (spec: 0 condition-variable-signal! condition-variable-signal!) - (spec: 0 set-box! set-box!) - (spec: 0 s16vector-shrink! s16vector-shrink!) + nonprocedure-operator-exception-arguments + nonprocedure-operator-exception-arguments) + (spec: 0 dotted-list? dotted-list?) + (spec: 0 u8vector-fill! u8vector-fill!) + (spec: 0 thread-group-name thread-group-name) + (spec: 0 uncaught-exception-reason uncaught-exception-reason) + (spec: 0 current-processor current-processor) + (spec: 0 append-reverse! append-reverse!) + (spec: 0 make-condition-variable make-condition-variable) + (spec: 0 s8vector? s8vector?) + (spec: 0 type-exception? type-exception?) + (spec: 0 filter filter) + (spec: 0 subu32vector-move! subu32vector-move!) + (spec: 0 u16vector? u16vector?) + (spec: 0 link-incremental link-incremental) + (spec: 0 s16vector-append s16vector-append) + (spec: 0 thread-state-initialized? thread-state-initialized?) + (spec: 0 tty-history-set! tty-history-set!) + (spec: 0 s8vector->list s8vector->list) + (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) + (spec: 0 subs32vector subs32vector) (spec: 0 fxif fxif) - (spec: 0 list->f32vector list->f32vector) + (spec: 0 char-set-every char-set-every) + (spec: 0 protocol-info-name protocol-info-name) (spec: 0 started-thread-exception? started-thread-exception?) - (spec: 0 thread-terminate! thread-terminate!) - (spec: 0 u32vector-ref u32vector-ref) - (spec: 0 fx<= fx<=) + (spec: 0 open-vector-pipe open-vector-pipe) + (spec: 0 foreign-address foreign-address) + (spec: 0 readtable? readtable?) (spec: 0 - thread-state-abnormally-terminated? - thread-state-abnormally-terminated?) - (spec: 0 vector->bits vector->bits) - (spec: 0 address-info-protocol address-info-protocol) - (spec: 0 string-concatenate string-concatenate) + display-continuation-dynamic-environment + display-continuation-dynamic-environment) (spec: 0 - path-strip-trailing-directory-separator - path-strip-trailing-directory-separator) - (spec: 0 string->char-set! string->char-set!) - (spec: 0 fxquotient fxquotient) - (spec: 0 link-incremental link-incremental) - (spec: 0 terminated-thread-exception? terminated-thread-exception?) - (spec: 0 fllog1p fllog1p) + join-timeout-exception-procedure + join-timeout-exception-procedure) + (spec: 0 random-source-make-reals random-source-make-reals) + (spec: 0 table-merge table-merge) + (spec: 0 flround flround) (spec: 0 - display-continuation-backtrace - display-continuation-backtrace) - (spec: 0 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 0 tanh tanh) + readtable-keywords-allowed?-set + readtable-keywords-allowed?-set) + (spec: 0 file-info? file-info?) + (spec: 0 break break) + (spec: 0 get-output-vector get-output-vector) + (spec: 0 bits bits) + (spec: 0 f64vector-swap! f64vector-swap!) + (spec: 0 u64vector-set u64vector-set) (spec: 0 - invalid-hash-number-exception? - invalid-hash-number-exception?) - (spec: 0 flceiling flceiling) - (spec: 0 readtable? readtable?) + datum-parsing-exception-parameters + datum-parsing-exception-parameters) + (spec: 0 process-times process-times) + (spec: 0 output-port-byte-position output-port-byte-position) + (spec: 0 fx+ fx+) + (spec: 0 char-set char-set) + (spec: 0 gc-report-set! gc-report-set!) + (spec: 0 f32vector-shrink! f32vector-shrink!) + (spec: 0 string-contains-ci string-contains-ci) + (spec: 0 u32vector-set u32vector-set) + (spec: 0 list->s32vector list->s32vector) + (spec: 0 s32vector->list s32vector->list) + (spec: 0 flatanh flatanh) + (spec: 0 not-pair? not-pair?) + (spec: 0 thread? thread?) (spec: 0 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) - (spec: 0 eighth eighth) - (spec: 0 open-output-process open-output-process) - (spec: 0 keyword-expected-exception? keyword-expected-exception?) - (spec: 0 flscalbn flscalbn) - (spec: 0 dotted-list? dotted-list?) + unknown-keyword-argument-exception-procedure + unknown-keyword-argument-exception-procedure) + (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) + (spec: 0 char-set-union char-set-union) + (spec: 0 fxpositive? fxpositive?) + (spec: 0 object->string object->string) + (spec: 0 fllog1p fllog1p) + (spec: 0 path-extension path-extension) (spec: 0 - thread-group->thread-group-list - thread-group->thread-group-list) - (spec: 0 u8vector? u8vector?) - (spec: 0 bitwise-merge bitwise-merge) - (spec: 0 file-info-type file-info-type) - (spec: 0 random-source-state-ref random-source-state-ref) - (spec: 0 module-whitelist-reset! module-whitelist-reset!) + file-exists-exception-arguments + file-exists-exception-arguments) + (spec: 0 bitwise-nor bitwise-nor) + (spec: 0 string->char-set string->char-set) + (spec: 0 fl+* fl+*) + (spec: 0 u8vector-copy u8vector-copy) + (spec: 0 keyword? keyword?) + (spec: 0 uncaught-exception-arguments uncaught-exception-arguments) + (spec: 0 thread-group->thread-list thread-group->thread-list) + (spec: 0 make-bitwise-generator make-bitwise-generator) + (spec: 0 append! append!) + (spec: 0 s8vector-shrink! s8vector-shrink!) + (spec: 0 subu32vector subu32vector) + (spec: 0 type-exception-procedure type-exception-procedure) (spec: 0 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 0 file-exists-exception? file-exists-exception?) - (spec: 0 u8vector-append u8vector-append) + unbound-global-exception-variable + unbound-global-exception-variable) + (spec: 0 extract-bit-field extract-bit-field) + (spec: 0 asinh asinh) + (spec: 0 char-set-difference char-set-difference) + (spec: 0 make-s64vector make-s64vector) + (spec: 0 thread-priority-set! thread-priority-set!) + (spec: 0 s16vector s16vector) + (spec: 0 address-info? address-info?) (spec: 0 - readtable-keywords-allowed?-set - readtable-keywords-allowed?-set) + thread-state-abnormally-terminated? + thread-state-abnormally-terminated?) + (spec: 0 protocol-info protocol-info) + (spec: 0 identity identity) + (spec: 0 tty-history tty-history) + (spec: 0 compile-file-to-target compile-file-to-target) + (spec: 0 fxeven? fxeven?) (spec: 0 - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-arguments) - (spec: 0 table->list table->list) - (spec: 0 fl- fl-) - (spec: 0 unbox unbox) - (spec: 0 read-file-string-list read-file-string-list) - (spec: 0 deadlock-exception? deadlock-exception?) - (spec: 0 compile-file-to-target compile-file-to-target) - (spec: 0 filter filter) - (spec: 0 input-port-byte-position input-port-byte-position) - (spec: 0 u16vector-length u16vector-length) - (spec: 0 unbound-global-exception-code unbound-global-exception-code) + started-thread-exception-arguments + started-thread-exception-arguments) + (spec: 0 subs16vector-fill! subs16vector-fill!) + (spec: 0 u16vector-shrink! u16vector-shrink!) + (spec: + 0 + readtable-write-extended-read-macros? + readtable-write-extended-read-macros?) + (spec: 0 open-udp open-udp) + (spec: 0 tcp-client-local-socket-info tcp-client-local-socket-info) + (spec: 0 user-name user-name) + (spec: 0 s32vector? s32vector?) + (spec: 0 rename-file rename-file) + (spec: 0 random-source-make-f64vectors random-source-make-f64vectors) + (spec: 0 readtable-eval-allowed?-set readtable-eval-allowed?-set) + (spec: 0 integer-nth-root integer-nth-root) + (spec: 0 table-for-each table-for-each) + (spec: 0 file-info-size file-info-size) + (spec: 0 with-output-to-vector with-output-to-vector) + (spec: 0 f64vector-set! f64vector-set!) (spec: 0 help-browser help-browser) - (spec: 0 any-bits-set? any-bits-set?) - (spec: 0 serial-number->object serial-number->object) - (spec: 0 with-input-from-process with-input-from-process) - (spec: 0 type-exception-arg-id type-exception-arg-id) - (spec: 0 bit-field-reverse bit-field-reverse) - (spec: 0 getenv getenv) - (spec: 0 s8vector? s8vector?) - (spec: 0 u64vector-copy! u64vector-copy!) - (spec: 0 subu32vector subu32vector) - (spec: 0 continuation-capture continuation-capture) - (spec: 0 f64vector-shrink! f64vector-shrink!) - (spec: 0 u32vector-fill! u32vector-fill!) - (spec: 0 subs16vector-move! subs16vector-move!) - (spec: 0 condition-variable-specific condition-variable-specific) - (spec: 0 f32vector-shrink! f32vector-shrink!) - (spec: 0 thread-thread-group thread-thread-group) - (spec: 0 fxeqv fxeqv) - (spec: 0 list->f64vector list->f64vector) - (spec: 0 char-set-filter char-set-filter) - (spec: 0 s16vector-swap! s16vector-swap!) - (spec: 0 link-flat link-flat) - (spec: 0 vector-cas! vector-cas!) - (spec: 0 fx+ fx+) - (spec: 0 address-info-socket-info address-info-socket-info) - (spec: 0 char-set-adjoin! char-set-adjoin!) - (spec: 0 permission-denied-exception? permission-denied-exception?) - (spec: 0 string->uninterned-keyword string->uninterned-keyword) - (spec: 0 s64vector s64vector) - (spec: 0 char-set-xor char-set-xor) - (spec: 0 fxwrap- fxwrap-) - (spec: 0 object->u8vector object->u8vector) + (spec: 0 write-substring write-substring) (spec: 0 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) - (spec: 0 flnumerator flnumerator) - (spec: 0 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 0 call-with-input-string call-with-input-string) - (spec: 0 flexp flexp) - (spec: 0 open-vector open-vector) - (spec: 0 socket-info-address socket-info-address) - (spec: 0 foreign-tags foreign-tags) - (spec: 0 thread-mailbox-next thread-mailbox-next) - (spec: 0 open-input-vector open-input-vector) - (spec: 0 drop drop) - (spec: 0 fltan fltan) - (spec: 0 box box) - (spec: 0 keyword-hash keyword-hash) + permission-denied-exception-procedure + permission-denied-exception-procedure) + (spec: 0 console-port console-port) + (spec: 0 make-will make-will) + (spec: 0 f32vector-set f32vector-set) + (spec: 0 string-concatenate string-concatenate) + (spec: 0 list->f64vector list->f64vector) + (spec: 0 with-exception-catcher with-exception-catcher) + (spec: 0 thread-thread-group thread-thread-group) (spec: 0 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 0 ucs-range->char-set ucs-range->char-set) - (spec: 0 file-info? file-info?) - (spec: 0 initial-current-directory initial-current-directory) - (spec: 0 bitwise-nand bitwise-nand) + not-in-compilation-context-exception? + not-in-compilation-context-exception?) + (spec: 0 flasinh flasinh) + (spec: 0 address-info-socket-info address-info-socket-info) + (spec: 0 thread-name thread-name) + (spec: 0 fxorc1 fxorc1) + (spec: 0 char-set-unfold char-set-unfold) + (spec: 0 untrace untrace) + (spec: 0 module-whitelist-reset! module-whitelist-reset!) + (spec: 0 bitwise-merge bitwise-merge) + (spec: 0 current-exception-handler current-exception-handler) (spec: 0 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) - (spec: 0 cpu-time cpu-time) - (spec: 0 subu64vector-move! subu64vector-move!) - (spec: 0 u8vector-concatenate u8vector-concatenate) - (spec: 0 readtable-eval-allowed? readtable-eval-allowed?) + nonempty-input-port-character-buffer-exception-procedure + nonempty-input-port-character-buffer-exception-procedure) + (spec: 0 u8vector-append u8vector-append) (spec: 0 unbreak unbreak) - (spec: 0 fl/ fl/) + (spec: 0 keyword-expected-exception? keyword-expected-exception?) (spec: 0 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) - (spec: 0 datum-parsing-exception? datum-parsing-exception?) - (spec: 0 filter! filter!) - (spec: 0 input-port-line input-port-line) - (spec: 0 unbound-global-exception-rte unbound-global-exception-rte) - (spec: 0 process-status process-status) - (spec: 0 string-prefix? string-prefix?) - (spec: 0 extract-bit-field extract-bit-field) - (spec: 0 host-info host-info) - (spec: 0 with-exception-handler with-exception-handler) - (spec: 0 type-exception-arguments type-exception-arguments) - (spec: 0 group-info-gid group-info-gid) - (spec: 0 bit-field-rotate bit-field-rotate) - (spec: 0 subs64vector-fill! subs64vector-fill!) - (spec: 0 f64vector-swap! f64vector-swap!) - (spec: 0 u64vector-fill! u64vector-fill!) - (spec: 0 write-subu8vector write-subu8vector) - (spec: 0 protocol-info-name protocol-info-name) - (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) - (spec: 0 f32vector-swap! f32vector-swap!) - (spec: 0 setenv setenv) - (spec: 0 u32vector-length u32vector-length) - (spec: 0 thread-state-waiting? thread-state-waiting?) - (spec: 0 list->char-set list->char-set) - (spec: 0 char-set-filter! char-set-filter!) - (spec: 0 fxeven? fxeven?) - (spec: 0 equal?-hash equal?-hash) - (spec: 0 s32vector s32vector) - (spec: 0 output-port-readtable output-port-readtable) - (spec: 0 char-set-any char-set-any) - (spec: 0 fx- fx-) - (spec: 0 s16vector-append s16vector-append) + thread-group->thread-group-list + thread-group->thread-group-list) + (spec: 0 heap-overflow-exception? heap-overflow-exception?) + (spec: 0 s8vector-set s8vector-set) + (spec: 0 any-bits-set? any-bits-set?) + (spec: 0 type-exception-arg-id type-exception-arg-id) + (spec: 0 subu16vector-fill! subu16vector-fill!) + (spec: 0 file-type file-type) + (spec: 0 make-s16vector make-s16vector) + (spec: 0 fxbit-set? fxbit-set?) + (spec: 0 u16vector-set u16vector-set) + (spec: 0 unbound-global-exception-code unbound-global-exception-code) + (spec: 0 char-set-diff+intersection char-set-diff+intersection) + (spec: 0 s64vector? s64vector?) + (spec: 0 bit-set? bit-set?) + (spec: 0 subf64vector-move! subf64vector-move!) + (spec: 0 concatenate! concatenate!) (spec: 0 - started-thread-exception-arguments - started-thread-exception-arguments) - (spec: 0 s64vector-swap! s64vector-swap!) - (spec: 0 top top) - (spec: 0 vector-concatenate vector-concatenate) - (spec: 0 address-infos address-infos) - (spec: 0 fxwrapabs fxwrapabs) - (spec: 0 path-strip-directory path-strip-directory) - (spec: 0 char-set-xor! char-set-xor!) - (spec: 0 list-sort! list-sort!) - (spec: 0 s32vector? s32vector?) - (spec: 0 remq remq) - (spec: 0 thread-priority-set! thread-priority-set!) - (spec: 0 join-timeout-exception? join-timeout-exception?) - (spec: 0 uncaught-exception-reason uncaught-exception-reason) - (spec: 0 flexpm1 flexpm1) + invalid-hash-number-exception? + invalid-hash-number-exception?) + (spec: 0 car+cdr car+cdr) (spec: 0 - readtable-write-extended-read-macros? - readtable-write-extended-read-macros?) - (spec: 0 call-with-input-u8vector call-with-input-u8vector) - (spec: 0 table-merge! table-merge!) - (spec: 0 socket-info-family socket-info-family) - (spec: 0 open-vector-pipe open-vector-pipe) - (spec: 0 thread-group-resume! thread-group-resume!) - (spec: 0 fltanh fltanh) - (spec: 0 open-output-bytevector open-output-bytevector) - (spec: 0 file-info-owner file-info-owner) - (spec: 0 u8vector-length u8vector-length) - (spec: 0 current-processor current-processor) - (spec: 0 subu8vector subu8vector) - (spec: 0 u64vector-set! u64vector-set!) + readtable-write-cdr-read-macros? + readtable-write-cdr-read-macros?) + (spec: 0 open-u8vector open-u8vector) + (spec: 0 split-at split-at) + (spec: 0 s32vector-shrink! s32vector-shrink!) + (spec: 0 tanh tanh) + (spec: 0 user-info-uid user-info-uid) (spec: 0 - file-exists-exception-arguments - file-exists-exception-arguments) - (spec: 0 random-source-randomize! random-source-randomize!) - (spec: 0 bitwise-unfold bitwise-unfold) - (spec: 0 compile-file compile-file) - (spec: 0 fl+ fl+) + unterminated-process-exception-arguments + unterminated-process-exception-arguments) + (spec: 0 range-exception-arguments range-exception-arguments) + (spec: 0 u8vector-concatenate u8vector-concatenate) + (spec: 0 open-string-pipe open-string-pipe) + (spec: 0 fold-right fold-right) (spec: 0 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) - (spec: 0 readtable-eval-allowed?-set readtable-eval-allowed?-set) + thread-group->thread-group-vector + thread-group->thread-group-vector) + (spec: 0 keyword-hash keyword-hash) + (spec: 0 cfun-conversion-exception? cfun-conversion-exception?) (spec: 0 - unbound-key-exception-procedure - unbound-key-exception-procedure) - (spec: 0 udp-local-socket-info udp-local-socket-info) - (spec: 0 dead-end dead-end) - (spec: 0 host-info-addresses host-info-addresses) - (spec: 0 expression-parsing-exception? expression-parsing-exception?) - (spec: 0 make-s8vector make-s8vector) - (spec: 0 process-times process-times) - (spec: 0 group-info-members group-info-members) - (spec: 0 s8vector-shrink! s8vector-shrink!) - (spec: 0 make-f32vector make-f32vector) - (spec: 0 apropos apropos) - (spec: 0 subs64vector-move! subs64vector-move!) - (spec: 0 tty-history-max-length-set! tty-history-max-length-set!) - (spec: 0 f64vector-set f64vector-set) - (spec: 0 u32vector-shrink! u32vector-shrink!) - (spec: 0 xcons xcons) - (spec: 0 bits->list bits->list) - (spec: 0 u16vector-swap! u16vector-swap!) - (spec: 0 f32vector-set f32vector-set) - (spec: 0 condition-variable-name condition-variable-name) - (spec: 0 protocol-info-number protocol-info-number) - (spec: 0 vector-any vector-any) - (spec: 0 s32vector->list s32vector->list) - (spec: 0 char-set-difference! char-set-difference!) - (spec: 0 fxmax fxmax) - (spec: 0 list->char-set! list->char-set!) - (spec: 0 thread-suspend! thread-suspend!) - (spec: 0 output-port-column output-port-column) - (spec: 0 char-set->string char-set->string) - (spec: 0 fx>= fx>=) - (spec: 0 address-info-family address-info-family) - (spec: 0 s16vector-concatenate s16vector-concatenate) + unbound-serial-number-exception-procedure + unbound-serial-number-exception-procedure) + (spec: 0 s8vector-set! s8vector-set!) + (spec: 0 type-exception-arguments type-exception-arguments) + (spec: 0 substring-fill! substring-fill!) + (spec: 0 bitwise-nand bitwise-nand) + (spec: 0 unbound-global-exception-rte unbound-global-exception-rte) + (spec: 0 second second) + (spec: 0 fxarithmetic-shift-left fxarithmetic-shift-left) (spec: 0 thread-state-abnormally-terminated-reason thread-state-abnormally-terminated-reason) - (spec: 0 s64vector? s64vector?) - (spec: 0 char-set? char-set?) - (spec: 0 fxwrap* fxwrap*) - (spec: 0 list-tabulate list-tabulate) - (spec: 0 flnan? flnan?) - (spec: 0 rename-file rename-file) - (spec: 0 table-ref table-ref) - (spec: 0 fldenominator fldenominator) + (spec: 0 char-set-cursor-next char-set-cursor-next) + (spec: 0 u16vector-length u16vector-length) + (spec: 0 s64vector-set! s64vector-set!) + (spec: 0 bit-field-reverse bit-field-reverse) (spec: 0 - readtable-write-extended-read-macros?-set - readtable-write-extended-read-macros?-set) - (spec: 0 call-with-output-u8vector call-with-output-u8vector) + wrong-processor-c-return-exception? + wrong-processor-c-return-exception?) + (spec: 0 subs16vector subs16vector) + (spec: 0 vector-fold-right vector-fold-right) + (spec: 0 flilogb flilogb) (spec: 0 - uninitialized-thread-exception-procedure - uninitialized-thread-exception-procedure) - (spec: 0 thread-group-specific thread-group-specific) - (spec: 0 foreign-release! foreign-release!) - (spec: 0 open-output-vector open-output-vector) - (spec: 0 flsqrt flsqrt) + readtable-write-cdr-read-macros?-set + readtable-write-cdr-read-macros?-set) + (spec: 0 call/cc call/cc) + (spec: 0 user-info-home user-info-home) + (spec: 0 fxwrapsquare fxwrapsquare) + (spec: 0 s32vector-swap! s32vector-swap!) (spec: 0 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) - (spec: 0 random-u8vector random-u8vector) + terminated-thread-exception-arguments + terminated-thread-exception-arguments) + (spec: 0 file-info-last-change-time file-info-last-change-time) + (spec: 0 readtable-case-conversion? readtable-case-conversion?) + (spec: 0 flasin flasin) + (spec: 0 u8vector-shrink! u8vector-shrink!) + (spec: 0 with-output-to-u8vector with-output-to-u8vector) + (spec: 0 port-settings-set! port-settings-set!) + (spec: 0 u64vector-concatenate u64vector-concatenate) (spec: 0 - current-user-interrupt-handler - current-user-interrupt-handler) - (spec: 0 file-info-size file-info-size) - (spec: 0 subu64vector subu64vector) - (spec: 0 u64vector-shrink! u64vector-shrink!) - (spec: 0 mutex-lock! mutex-lock!) - (spec: 0 bitwise-xor bitwise-xor) - (spec: 0 create-link create-link) + fixnum-overflow-exception-procedure + fixnum-overflow-exception-procedure) + (spec: 0 copy-file copy-file) + (spec: 0 write-file-u8vector write-file-u8vector) + (spec: 0 string-suffix-length string-suffix-length) + (spec: 0 u32vector-length u32vector-length) + (spec: 0 f32vector-ref f32vector-ref) + (spec: 0 thread-state-waiting-for thread-state-waiting-for) + (spec: 0 s16vector-shrink! s16vector-shrink!) + (spec: 0 char-set-size char-set-size) + (spec: 0 directory-files directory-files) + (spec: 0 fxodd? fxodd?) (spec: 0 - file-exists-exception-procedure - file-exists-exception-procedure) - (spec: 0 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 0 integer-sqrt integer-sqrt) + not-in-compilation-context-exception-procedure + not-in-compilation-context-exception-procedure) + (spec: 0 thread-interrupt! thread-interrupt!) + (spec: 0 path-directory path-directory) + (spec: 0 acosh acosh) + (spec: 0 step-level-set! step-level-set!) + (spec: 0 divide-by-zero-exception? divide-by-zero-exception?) + (spec: 0 u8vector->object u8vector->object) + (spec: 0 module-whitelist-add! module-whitelist-add!) + (spec: 0 create-temporary-directory create-temporary-directory) + (spec: 0 open-process open-process) (spec: 0 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) - (spec: 0 unbound-key-exception? unbound-key-exception?) - (spec: 0 fl+* fl+*) + keyword-expected-exception-procedure + keyword-expected-exception-procedure) (spec: 0 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 0 string-prefix-length string-prefix-length) - (spec: 0 command-name command-name) - (spec: 0 tty-history-set! tty-history-set!) - (spec: 0 make-f64vector make-f64vector) - (spec: 0 s8vector-swap! s8vector-swap!) - (spec: 0 with-input-from-vector with-input-from-vector) - (spec: 0 subs32vector-move! subs32vector-move!) - (spec: 0 u32vector-swap! u32vector-swap!) - (spec: 0 bits->vector bits->vector) - (spec: 0 continuation? continuation?) - (spec: 0 f64vector-set! f64vector-set!) - (spec: 0 string=?-hash string=?-hash) - (spec: 0 processor? processor?) - (spec: 0 u16vector? u16vector?) - (spec: 0 f32vector-set! f32vector-set!) + cfun-conversion-exception-message + cfun-conversion-exception-message) + (spec: 0 flzero? flzero?) + (spec: 0 print print) + (spec: 0 file-size file-size) + (spec: 0 string-shrink! string-shrink!) + (spec: 0 main main) + (spec: 0 circular-list? circular-list?) + (spec: 0 s8vector-ref s8vector-ref) + (spec: 0 bitwise-ior bitwise-ior) + (spec: 0 file-device file-device) + (spec: 0 read-subu8vector read-subu8vector) (spec: 0 - wrong-number-of-arguments-exception? - wrong-number-of-arguments-exception?) - (spec: 0 fxmin fxmin) - (spec: 0 eq?-hash eq?-hash) - (spec: 0 char-set-every char-set-every) - (spec: 0 list->s64vector list->s64vector) + default-user-interrupt-handler + default-user-interrupt-handler) + (spec: 0 input-port-timeout-set! input-port-timeout-set!) + (spec: 0 script-file script-file) + (spec: 0 concatenate concatenate) + (spec: 0 system-type-string system-type-string) + (spec: 0 fxandc2 fxandc2) + (spec: 0 char-set-count char-set-count) + (spec: 0 s64vector-ref s64vector-ref) + (spec: 0 f64vector-fill! f64vector-fill!) + (spec: 0 thread-state thread-state) + (spec: 0 subf64vector-fill! subf64vector-fill!) + (spec: 0 bit-field-replace bit-field-replace) + (spec: 0 u16vector-copy! u16vector-copy!) (spec: 0 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) - (spec: 0 fxabs fxabs) - (spec: 0 output-port-line output-port-line) - (spec: 0 char-set-adjoin char-set-adjoin) - (spec: 0 s16vector s16vector) - (spec: 0 string->uninterned-symbol string->uninterned-symbol) - (spec: 0 thread-quantum thread-quantum) - (spec: 0 s64vector-concatenate s64vector-concatenate) - (spec: 0 address-info-socket-type address-info-socket-type) - (spec: 0 vector-shrink! vector-shrink!) - (spec: 0 thread-yield! thread-yield!) - (spec: 0 s32vector-copy s32vector-copy) - (spec: 0 fxwrap+ fxwrap+) + number-of-arguments-limit-exception-procedure + number-of-arguments-limit-exception-procedure) (spec: 0 - number-of-arguments-limit-exception-arguments - number-of-arguments-limit-exception-arguments) + wrong-number-of-values-exception? + wrong-number-of-values-exception?) + (spec: 0 flfloor flfloor) (spec: 0 - join-timeout-exception-arguments - join-timeout-exception-arguments) - (spec: 0 flnegative? flnegative?) - (spec: 0 display-exception-in-context display-exception-in-context) + invalid-hash-number-exception-procedure + invalid-hash-number-exception-procedure) + (spec: 0 readtable-start-syntax-set readtable-start-syntax-set) + (spec: 0 user-info user-info) + (spec: 0 s32vector-set! s32vector-set!) + (spec: 0 fxwraplogical-shift-right fxwraplogical-shift-right) + (spec: 0 mutex-unlock! mutex-unlock!) + (spec: 0 open-event-queue open-event-queue) + (spec: 0 tenth tenth) + (spec: 0 file-info-inode file-info-inode) + (spec: 0 subvector-fill! subvector-fill!) + (spec: 0 system-version-string system-version-string) + (spec: 0 flacosh flacosh) + (spec: 0 u8vector-set u8vector-set) + (spec: 0 read-all read-all) + (spec: 0 with-output-to-process with-output-to-process) + (spec: 0 u64vector->list u64vector->list) (spec: 0 - uninitialized-thread-exception? - uninitialized-thread-exception?) - (spec: 0 table-length table-length) - (spec: 0 call-with-output-vector call-with-output-vector) - (spec: 0 fleven? fleven?) - (spec: 0 readtable-max-write-length readtable-max-write-length) - (spec: 0 thread-group-name thread-group-name) - (spec: 0 foreign-released? foreign-released?) - (spec: 0 open-directory open-directory) + noncontinuable-exception-reason + noncontinuable-exception-reason) + (spec: 0 copy-bit copy-bit) + (spec: 0 random-integer random-integer) + (spec: 0 s16vector-set s16vector-set) + (spec: 0 f32vector-length f32vector-length) + (spec: 0 write-file-string write-file-string) + (spec: 0 subs8vector-move! subs8vector-move!) + (spec: 0 any-bit-set? any-bit-set?) + (spec: 0 make-u8vector make-u8vector) + (spec: 0 set-box! set-box!) + (spec: 0 u32vector-copy! u32vector-copy!) + (spec: 0 thread-state-uninitialized? thread-state-uninitialized?) + (spec: 0 partition! partition!) + (spec: 0 char-set-map char-set-map) + (spec: 0 fxnor fxnor) + (spec: 0 uninterned-keyword? uninterned-keyword?) + (spec: 0 os-exception-procedure os-exception-procedure) + (spec: 0 s64vector-length s64vector-length) + (spec: 0 vector-unfold vector-unfold) + (spec: 0 every every) + (spec: 0 compile-file compile-file) (spec: 0 - cfun-conversion-exception-code - cfun-conversion-exception-code) - (spec: 0 flsquare flsquare) - (spec: 0 repl-error-port repl-error-port) - (spec: 0 u8vector-fill! u8vector-fill!) - (spec: 0 file-last-access-time file-last-access-time) - (spec: 0 u64vector-ref u64vector-ref) - (spec: 0 raise raise) - (spec: 0 create-symbolic-link create-symbolic-link) - (spec: 0 bitwise-orc1 bitwise-orc1) - (spec: 0 file-info-attributes file-info-attributes) - (spec: 0 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 0 read-substring read-substring) - (spec: 0 subu64vector-fill! subu64vector-fill!) - (spec: 0 delete delete) - (spec: 0 fl= fl=) - (spec: 0 udp-destination-set! udp-destination-set!) - (spec: 0 default-random-source default-random-source) - (spec: 0 input-port-column input-port-column) - (spec: 0 first first) - (spec: 0 primordial-exception-handler primordial-exception-handler) - (spec: 0 make-s32vector make-s32vector) - (spec: 0 scheduler-exception? scheduler-exception?) - (spec: 0 f32vector f32vector) - (spec: 0 ->char-set ->char-set) - (spec: 0 string-prefix-length-ci string-prefix-length-ci) - (spec: 0 poll-point poll-point) - (spec: 0 circular-list circular-list) - (spec: 0 append-reverse! append-reverse!) - (spec: 0 group-info group-info) - (spec: 0 make-condition-variable make-condition-variable) - (spec: 0 s8vector-append s8vector-append) - (spec: 0 subs64vector subs64vector) - (spec: 0 type-exception? type-exception?) - (spec: 0 bit-swap bit-swap) - (spec: 0 u32vector-set u32vector-set) - (spec: 0 u16vector-set! u16vector-set!) - (spec: 0 service-info service-info) - (spec: 0 f64vector f64vector) + divide-by-zero-exception-arguments + divide-by-zero-exception-arguments) + (spec: 0 u8vector u8vector) + (spec: 0 create-link create-link) + (spec: 0 random-u8vector random-u8vector) + (spec: 0 delete-file-or-directory delete-file-or-directory) + (spec: 0 socket-info-port-number socket-info-port-number) + (spec: 0 repl-result-history-ref repl-result-history-ref) + (spec: 0 fltruncate fltruncate) (spec: 0 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 0 fxior fxior) - (spec: 0 list->s8vector list->s8vector) - (spec: 0 char-set-hash char-set-hash) - (spec: 0 output-port-width output-port-width) - (spec: 0 vector-cumulate vector-cumulate) - (spec: 0 thread-quantum-set! thread-quantum-set!) - (spec: 0 fx= fx=) - (spec: 0 os-exception-arguments os-exception-arguments) - (spec: 0 char-set-contains? char-set-contains?) - (spec: 0 s16vector->list s16vector->list) - (spec: 0 char-set<= char-set<=) - (spec: 0 fxwraplogical-shift-right fxwraplogical-shift-right) - (spec: 0 address-info? address-info?) - (spec: 0 s32vector-copy! s32vector-copy!) - (spec: 0 fxnegative? fxnegative?) - (spec: 0 list-sort list-sort) - (spec: 0 thread? thread?) - (spec: 0 tcp-client-self-socket-info tcp-client-self-socket-info) - (spec: 0 flfloor flfloor) - (spec: + cfun-conversion-exception-arguments + cfun-conversion-exception-arguments) + (spec: 0 open-output-vector open-output-vector) + (spec: 0 file-owner file-owner) + (spec: 0 network-info? network-info?) + (spec: 0 s8vector-length s8vector-length) + (spec: 0 group-info-name group-info-name) + (spec: 0 string-set string-set) + (spec: 0 file-attributes file-attributes) + (spec: 0 bitwise-for-each bitwise-for-each) + (spec: 0 module-search-order-add! module-search-order-add!) + (spec: 0 input-port-readtable input-port-readtable) + (spec: 0 system-stamp system-stamp) + (spec: 0 thread-base-priority-set! thread-base-priority-set!) + (spec: 0 compilation-target compilation-target) + (spec: 0 host-name host-name) + (spec: 0 thread-specific-set! thread-specific-set!) + (spec: 0 char-set-contains? char-set-contains?) + (spec: 0 fxand fxand) + (spec: 0 output-port-width output-port-width) + (spec: 0 - join-timeout-exception-procedure - join-timeout-exception-procedure) + port-io-exception-handler-set! + port-io-exception-handler-set!) (spec: 0 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) + sfun-conversion-exception-procedure + sfun-conversion-exception-procedure) + (spec: 0 bit-field-clear bit-field-clear) + (spec: 0 f64vector-copy f64vector-copy) + (spec: 0 subf32vector-move! subf32vector-move!) + (spec: 0 list->u8vector list->u8vector) + (spec: 0 touch touch) (spec: 0 - readtable-max-write-length-set - readtable-max-write-length-set) - (spec: 0 call-with-output-process call-with-output-process) - (spec: 0 flacos flacos) - (spec: 0 table-merge table-merge) - (spec: 0 thread-group-parent thread-group-parent) - (spec: 0 flzero? flzero?) - (spec: 0 repl-highlight-source-level repl-highlight-source-level) - (spec: 0 flonum? flonum?) - (spec: 0 random-source-state-set! random-source-state-set!) - (spec: 0 current-thread current-thread) - (spec: 0 file-last-change-time file-last-change-time) - (spec: 0 break break) - (spec: 0 r7rs-raise r7rs-raise) - (spec: 0 subvector subvector) - (spec: 0 create-directory create-directory) - (spec: 0 file-info-creation-time file-info-creation-time) - (spec: 0 bitwise-orc2 bitwise-orc2) - (spec: 0 u64vector-set u64vector-set) - (spec: 0 read-file-u8vector read-file-u8vector) - (spec: 0 system-type-string system-type-string) - (spec: 0 fl> fl>) - (spec: 0 input-port-timeout-set! input-port-timeout-set!) + readtable-sharing-allowed?-set + readtable-sharing-allowed?-set) + (spec: 0 call-with-output-u8vector call-with-output-u8vector) + (spec: 0 flexpt flexpt) (spec: 0 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) + length-mismatch-exception-procedure + length-mismatch-exception-procedure) + (spec: 0 take! take!) + (spec: 0 thread-priority thread-priority) + (spec: 0 fxwraparithmetic-shift fxwraparithmetic-shift) + (spec: 0 s32vector-ref s32vector-ref) + (spec: 0 timeout->time timeout->time) + (spec: 0 open-directory open-directory) + (spec: 0 tty? tty?) + (spec: 0 u16vector-concatenate u16vector-concatenate) + (spec: 0 file-info-device file-info-device) + (spec: 0 mutex-specific-set! mutex-specific-set!) + (spec: 0 thread-group-terminate! thread-group-terminate!) + (spec: 0 flabs flabs) + (spec: 0 udp-write-u8vector udp-write-u8vector) + (spec: 0 last last) + (spec: 0 vector-cumulate vector-cumulate) + (spec: 0 u16vector->list u16vector->list) (spec: 0 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 0 first-set-bit first-set-bit) - (spec: 0 initialized-thread-exception? initialized-thread-exception?) - (spec: 0 string-shrink! string-shrink!) - (spec: 0 command-args command-args) - (spec: 0 f32vector->list f32vector->list) - (spec: 0 asinh asinh) - (spec: 0 make-s64vector make-s64vector) - (spec: 0 s8vector-concatenate s8vector-concatenate) - (spec: 0 tty-history tty-history) - (spec: 0 with-input-from-string with-input-from-string) + initialized-thread-exception-procedure + initialized-thread-exception-procedure) (spec: 0 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 0 continuation-graft continuation-graft) - (spec: 0 subs8vector-move! subs8vector-move!) - (spec: 0 u32vector-set! u32vector-set!) - (spec: 0 bits bits) + wrong-number-of-values-exception-rte + wrong-number-of-values-exception-rte) + (spec: 0 executable-path executable-path) + (spec: 0 raise raise) + (spec: 0 subu8vector-move! subu8vector-move!) (spec: 0 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) - (spec: 0 service-info-aliases service-info-aliases) + unbound-os-environment-variable-exception-procedure + unbound-os-environment-variable-exception-procedure) (spec: 0 - condition-variable-specific-set! - condition-variable-specific-set!) - (spec: 0 f64vector->list f64vector->list) - (spec: 0 host-info? host-info?) - (spec: 0 subf32vector-fill! subf32vector-fill!) - (spec: 0 thread-state-initialized? thread-state-initialized?) - (spec: 0 list->s16vector list->s16vector) - (spec: 0 char-set-intersection char-set-intersection) - (spec: 0 error error) - (spec: 0 fxlength fxlength) - (spec: 0 s16vector-fill! s16vector-fill!) - (spec: 0 os-exception-code os-exception-code) - (spec: 0 char-set-copy char-set-copy) - (spec: 0 fx> fx>) + no-such-file-or-directory-exception? + no-such-file-or-directory-exception?) + (spec: 0 thread-state-running? thread-state-running?) + (spec: 0 f32vector-copy! f32vector-copy!) + (spec: 0 make-u32vector make-u32vector) (spec: 0 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) - (spec: 0 thread-priority-boost thread-priority-boost) - (spec: 0 u16vector-shrink! u16vector-shrink!) - (spec: 0 vector-every vector-every) - (spec: 0 char-set= char-set=) - (spec: 0 all-bits-set? all-bits-set?) - (spec: 0 list= list=) - (spec: 0 vector-set vector-set) - (spec: 0 fxnor fxnor) - (spec: 0 s32vector-append s32vector-append) - (spec: 0 list->u16vector list->u16vector) - (spec: 0 time->seconds time->seconds) - (spec: 0 flhypot flhypot) + mailbox-receive-timeout-exception-procedure + mailbox-receive-timeout-exception-procedure) + (spec: 0 subs8vector subs8vector) + (spec: 0 u32vector-concatenate u32vector-concatenate) + (spec: 0 service-info? service-info?) + (spec: 0 tcp-service-register! tcp-service-register!) + (spec: 0 fxnand fxnand) + (spec: 0 char-set-intersection char-set-intersection) (spec: 0 - display-continuation-environment - display-continuation-environment) + uninitialized-thread-exception? + uninitialized-thread-exception?) (spec: 0 invalid-utf8-encoding-exception-procedure invalid-utf8-encoding-exception-procedure) - (spec: 0 tcp-service-register! tcp-service-register!) + (spec: 0 s64vector-copy! s64vector-copy!) + (spec: 0 fourth fourth) + (spec: 0 os-exception-code os-exception-code) + (spec: 0 list= list=) + (spec: 0 vector-shrink! vector-shrink!) + (spec: 0 repl-output-port repl-output-port) + (spec: 0 display-procedure-environment display-procedure-environment) + (spec: 0 random-source-state-set! random-source-state-set!) + (spec: 0 create-directory create-directory) + (spec: 0 readtable-max-write-level-set readtable-max-write-level-set) + (spec: 0 delete-directory delete-directory) + (spec: 0 socket-info-address socket-info-address) + (spec: 0 fltan fltan) + (spec: 0 thread thread) + (spec: 0 file-mode file-mode) + (spec: 0 network-info-name network-info-name) + (spec: 0 tty-text-attributes-set! tty-text-attributes-set!) + (spec: 0 group-info-gid group-info-gid) + (spec: 0 string-prefix? string-prefix?) + (spec: 0 module-not-found-exception? module-not-found-exception?) + (spec: 0 bitwise-eqv bitwise-eqv) + (spec: 0 read-file-u8vector read-file-u8vector) + (spec: 0 input-port-line input-port-line) + (spec: 0 udp-source-socket-info udp-source-socket-info) + (spec: 0 host-info-name host-info-name) + (spec: 0 subf32vector subf32vector) + (spec: 0 thread-sleep! thread-sleep!) + (spec: 0 fx>= fx>=) + (spec: 0 char-set-complement char-set-complement) + (spec: 0 output-port-readtable-set! output-port-readtable-set!) + (spec: 0 gensym gensym) + (spec: 0 poll-point poll-point) + (spec: 0 f64vector-append f64vector-append) + (spec: 0 bit-field bit-field) (spec: 0 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 0 flacosh flacosh) + sfun-conversion-exception-code + sfun-conversion-exception-code) + (spec: 0 error-exception-parameters error-exception-parameters) + (spec: 0 list->u32vector list->u32vector) + (spec: 0 s32vector-length s32vector-length) + (spec: 0 flexp flexp) + (spec: 0 call-with-output-process call-with-output-process) + (spec: + 0 + length-mismatch-exception-arg-id + length-mismatch-exception-arg-id) + (spec: 0 path-strip-volume path-strip-volume) + (spec: 0 fxwrap- fxwrap-) + (spec: 0 string->uninterned-keyword string->uninterned-keyword) + (spec: 0 time? time?) + (spec: 0 file-info-attributes file-info-attributes) + (spec: 0 mutex-name mutex-name) + (spec: 0 thread-group-specific-set! thread-group-specific-set!) + (spec: 0 fl> fl>) (spec: 0 nonprocedure-operator-exception? nonprocedure-operator-exception?) - (spec: 0 call-with-output-string call-with-output-string) - (spec: 0 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 0 table? table?) - (spec: 0 fold fold) - (spec: 0 open-output-u8vector open-output-u8vector) - (spec: 0 last last) - (spec: 0 thread-group-terminate! thread-group-terminate!) - (spec: 0 drop-right drop-right) - (spec: 0 file-inode file-inode) - (spec: 0 current-time current-time) - (spec: 0 mutex-specific-set! mutex-specific-set!) - (spec: 0 random-source? random-source?) - (spec: 0 subvector-fill! subvector-fill!) - (spec: 0 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 0 file-group file-group) - (spec: 0 create-fifo create-fifo) (spec: 0 - module-not-found-exception-procedure - module-not-found-exception-procedure) - (spec: 0 system-version system-version) - (spec: 0 fl< fl<) + uninitialized-thread-exception-arguments + uninitialized-thread-exception-arguments) + (spec: 0 current-time current-time) + (spec: 0 scheduler-exception? scheduler-exception?) + (spec: 0 continuation-return continuation-return) + (spec: 0 r7rs-raise-continuable r7rs-raise-continuable) + (spec: 0 subu8vector subu8vector) (spec: 0 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) + no-such-file-or-directory-exception-arguments + no-such-file-or-directory-exception-arguments) + (spec: 0 first first) + (spec: 0 f32vector-concatenate f32vector-concatenate) + (spec: 0 make-tls-context make-tls-context) + (spec: 0 service-info-port-number service-info-port-number) + (spec: 0 s16vector-fill! s16vector-fill!) + (spec: 0 s8vector-copy! s8vector-copy!) + (spec: 0 subs64vector-fill! subs64vector-fill!) (spec: 0 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) - (spec: 0 udp-read-u8vector udp-read-u8vector) - (spec: 0 network-info-aliases network-info-aliases) - (spec: 0 string-suffix-ci? string-suffix-ci?) - (spec: 0 u16vector->list u16vector->list) - (spec: 0 with-input-from-u8vector with-input-from-u8vector) - (spec: 0 s8vector s8vector) - (spec: 0 f64vector? f64vector?) - (spec: 0 continuation-return continuation-return) - (spec: 0 bitwise-andc2 bitwise-andc2) - (spec: 0 subf32vector-move! subf32vector-move!) - (spec: 0 host-name host-name) - (spec: 0 f32vector? f32vector?) - (spec: 0 condition-variable? condition-variable?) - (spec: 0 bit-field bit-field) - (spec: 0 make-thread-group make-thread-group) - (spec: 0 output-port-readtable-set! output-port-readtable-set!) - (spec: 0 char-set-fold char-set-fold) - (spec: 0 fxandc2 fxandc2) - (spec: 0 list->s32vector list->s32vector) - (spec: 0 processor-id processor-id) - (spec: 0 s16vector-length s16vector-length) - (spec: - 0 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 0 char-set-complement char-set-complement) - (spec: 0 end-of-char-set? end-of-char-set?) - (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 0 u32vector u32vector) - (spec: 0 path-strip-volume path-strip-volume) - (spec: 0 s64vector-copy s64vector-copy) - (spec: - 0 - wrong-number-of-arguments-exception-procedure - wrong-number-of-arguments-exception-procedure) - (spec: 0 time? time?) - (spec: 0 fxmodulo fxmodulo) - (spec: 0 list->u32vector list->u32vector) - (spec: 0 char-set-ref char-set-ref) - (spec: 0 s32vector-concatenate s32vector-concatenate) - (spec: 0 tcp-service-unregister! tcp-service-unregister!) - (spec: 0 flexpt flexpt) + condition-variable-specific-set! + condition-variable-specific-set!) + (spec: 0 char-set-for-each char-set-for-each) + (spec: 0 tcp-server-socket-info tcp-server-socket-info) + (spec: 0 fxmin fxmin) + (spec: 0 u32vector->list u32vector->list) + (spec: 0 vector-set vector-set) + (spec: 0 s64vector-concatenate s64vector-concatenate) + (spec: 0 abandoned-mutex-exception? abandoned-mutex-exception?) + (spec: 0 flnan? flnan?) + (spec: 0 mutex-specific mutex-specific) + (spec: 0 file-info-creation-time file-info-creation-time) + (spec: 0 uncaught-exception? uncaught-exception?) + (spec: 0 fl< fl<) (spec: 0 - invalid-utf8-encoding-exception? - invalid-utf8-encoding-exception?) - (spec: 0 call/cc call/cc) - (spec: 0 display-exception display-exception) - (spec: 0 real-time real-time) + nonprocedure-operator-exception-code + nonprocedure-operator-exception-code) + (spec: 0 thread-group-suspend! thread-group-suspend!) + (spec: 0 current-readtable current-readtable) + (spec: 0 u16vector u16vector) + (spec: 0 subu64vector subu64vector) (spec: 0 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) - (spec: 0 fl>= fl>=) + unbound-os-environment-variable-exception-arguments + unbound-os-environment-variable-exception-arguments) (spec: 0 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) + no-such-file-or-directory-exception-procedure + no-such-file-or-directory-exception-procedure) + (spec: 0 first-set-bit first-set-bit) + (spec: 0 make-table make-table) + (spec: 0 f32vector f32vector) + (spec: 0 service-info service-info) + (spec: 0 s16vector-length s16vector-length) + (spec: 0 end-of-char-set? end-of-char-set?) + (spec: 0 s8vector-append s8vector-append) (spec: 0 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 0 vector-unfold-right vector-unfold-right) - (spec: 0 socket-info-port-number socket-info-port-number) - (spec: 0 fltruncate fltruncate) - (spec: 0 open-string-pipe open-string-pipe) - (spec: 0 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 0 thread-group? thread-group?) - (spec: 0 uninterned-symbol? uninterned-symbol?) - (spec: 0 thread thread) - (spec: 0 flodd? flodd?) - (spec: 0 open-file open-file) - (spec: 0 drop-right! drop-right!) - (spec: 0 user-info-home user-info-home) - (spec: 0 u8vector-ref u8vector-ref) - (spec: 0 mutex-state mutex-state) - (spec: 0 range-exception-arguments range-exception-arguments) + thread-state-running-processor + thread-state-running-processor) + (spec: 0 condition-variable? condition-variable?) + (spec: 0 subs64vector-move! subs64vector-move!) + (spec: 0 char-set-filter char-set-filter) + (spec: 0 fxior fxior) (spec: 0 - file-last-access-and-modification-times-set! - file-last-access-and-modification-times-set!) - (spec: 0 subu8vector-fill! subu8vector-fill!) - (spec: 0 module-not-found-exception? module-not-found-exception?) - (spec: 0 random-real random-real) - (spec: 0 copy-bit-field copy-bit-field) - (spec: 0 file-info file-info) - (spec: 0 shell-command shell-command) - (spec: 0 input-port-readtable input-port-readtable) - (spec: 0 system-stamp system-stamp) - (spec: 0 fl<= fl<=) + invalid-utf8-encoding-exception-arguments + invalid-utf8-encoding-exception-arguments) + (spec: 0 foreign-release! foreign-release!) + (spec: 0 abort abort) + (spec: 0 s64vector-copy s64vector-copy) (spec: 0 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) - (spec: 0 udp-source-socket-info udp-source-socket-info) + display-continuation-environment + display-continuation-environment) + (spec: 0 join-timeout-exception? join-timeout-exception?) + (spec: 0 random-source-state-ref random-source-state-ref) + (spec: 0 table-merge! table-merge!) + (spec: 0 readtable-max-unescaped-char readtable-max-unescaped-char) + (spec: 0 flsquare flsquare) + (spec: 0 open-output-process open-output-process) + (spec: 0 udp-local-socket-info udp-local-socket-info) + (spec: 0 file-inode file-inode) + (spec: 0 group-info group-info) + (spec: 0 string-prefix-length-ci string-prefix-length-ci) + (spec: 0 bits->list bits->list) + (spec: 0 u64vector-set! u64vector-set!) + (spec: 0 f64vector? f64vector?) + (spec: 0 deadlock-exception? deadlock-exception?) + (spec: 0 input-port-column input-port-column) + (spec: 0 read-file-string-list read-file-string-list) + (spec: 0 ->char-set ->char-set) + (spec: 0 string=?-hash string=?-hash) + (spec: 0 char-set-any char-set-any) + (spec: 0 fx> fx>) + (spec: 0 vector-concatenate vector-concatenate) + (spec: 0 output-port-readtable output-port-readtable) + (spec: 0 with-input-from-port with-input-from-port) + (spec: 0 bit-count bit-count) (spec: 0 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 0 network-info-name network-info-name) - (spec: 0 string-set string-set) - (spec: 0 group-info-name group-info-name) - (spec: 0 make-mutex make-mutex) - (spec: 0 scheduler-exception-reason scheduler-exception-reason) - (spec: 0 u16vector-append u16vector-append) - (spec: 0 tty-text-attributes-set! tty-text-attributes-set!) - (spec: 0 generate-proper-tail-calls generate-proper-tail-calls) - (spec: 0 s8vector->list s8vector->list) - (spec: 0 write-file-u8vector write-file-u8vector) - (spec: 0 subs8vector subs8vector) - (spec: 0 u64vector u64vector) - (spec: 0 seventh seventh) - (spec: 0 bitwise-eqv bitwise-eqv) - (spec: 0 with-output-to-string with-output-to-string) - (spec: 0 u32vector->list u32vector->list) - (spec: 0 host-info-aliases host-info-aliases) - (spec: 0 bit-field-any? bit-field-any?) - (spec: 0 make-tls-context make-tls-context) - (spec: 0 proper-list? proper-list?) - (spec: 0 stack-overflow-exception? stack-overflow-exception?) - (spec: 0 fxarithmetic-shift fxarithmetic-shift) + sfun-conversion-exception-arguments + sfun-conversion-exception-arguments) + (spec: 0 f64vector->list f64vector->list) + (spec: 0 s32vector-append s32vector-append) (spec: 0 eqv?-hash eqv?-hash) - (spec: 0 char-set-for-each char-set-for-each) - (spec: 0 output-port-timeout-set! output-port-timeout-set!) - (spec: 0 s16vector-copy s16vector-copy) - (spec: 0 thread-state-running? thread-state-running?) - (spec: 0 thread-send thread-send) + (spec: 0 fleven? fleven?) + (spec: 0 list->s64vector list->s64vector) + (spec: 0 thread-quantum thread-quantum) + (spec: 0 fxwrap+ fxwrap+) (spec: 0 - wrong-number-of-values-exception-vals - wrong-number-of-values-exception-vals) - (spec: 0 char-set-complement! char-set-complement!) - (spec: 0 fxwrapquotient fxwrapquotient) - (spec: 0 path-volume path-volume) - (spec: 0 every every) - (spec: 0 s64vector->list s64vector->list) - (spec: 0 path-directory path-directory) - (spec: 0 char-set-size char-set-size) - (spec: 0 abandoned-mutex-exception? abandoned-mutex-exception?) - (spec: 0 error-exception? error-exception?) - (spec: 0 fxnand fxnand) - (spec: 0 tcp-server-socket-info tcp-server-socket-info) - (spec: 0 flfinite? flfinite?) + path-strip-trailing-directory-separator + path-strip-trailing-directory-separator) + (spec: 0 flmax flmax) + (spec: 0 bitwise-xor bitwise-xor) + (spec: 0 file-info file-info) + (spec: 0 object->u8vector object->u8vector) + (spec: 0 fl- fl-) + (spec: 0 mutex-lock! mutex-lock!) + (spec: 0 uncaught-exception-procedure uncaught-exception-procedure) + (spec: 0 drop-right! drop-right!) + (spec: 0 thread-group-specific thread-group-specific) + (spec: 0 scheduler-exception-reason scheduler-exception-reason) + (spec: 0 make-f64vector make-f64vector) + (spec: 0 subu32vector-fill! subu32vector-fill!) + (spec: 0 unbound-key-exception? unbound-key-exception?) + (spec: 0 u16vector-swap! u16vector-swap!) + (spec: 0 make-s8vector make-s8vector) + (spec: 0 s16vector-copy! s16vector-copy!) + (spec: 0 address-infos address-infos) (spec: 0 - unterminated-process-exception-procedure - unterminated-process-exception-procedure) - (spec: 0 table-search table-search) + thread-state-normally-terminated? + thread-state-normally-terminated?) + (spec: 0 s8vector s8vector) + (spec: 0 condition-variable-specific condition-variable-specific) + (spec: 0 tty-history-max-length-set! tty-history-max-length-set!) + (spec: 0 subs64vector subs64vector) + (spec: 0 fxfirst-set-bit fxfirst-set-bit) + (spec: 0 char-set-difference! char-set-difference!) (spec: 0 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) - (spec: 0 readtable-sharing-allowed? readtable-sharing-allowed?) - (spec: 0 flabs flabs) - (spec: 0 open-tcp-client open-tcp-client) - (spec: 0 socket-info? socket-info?) - (spec: 0 thread-group-specific-set! thread-group-specific-set!) - (spec: 0 user-info-name user-info-name) + started-thread-exception-procedure + started-thread-exception-procedure) + (spec: 0 real-time real-time) + (spec: 0 open-vector open-vector) + (spec: 0 list-tabulate list-tabulate) (spec: 0 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 0 range-exception-procedure range-exception-procedure) - (spec: 0 current-directory current-directory) - (spec: 0 mutex-name mutex-name) - (spec: 0 file-info-inode file-info-inode) - (spec: 0 u64vector-swap! u64vector-swap!) - (spec: 0 subu8vector-move! subu8vector-move!) - (spec: 0 copy-file copy-file) - (spec: 0 sinh sinh) - (spec: 0 fifth fifth) + display-continuation-backtrace + display-continuation-backtrace) + (spec: 0 s64vector-append s64vector-append) (spec: 0 - no-such-file-or-directory-exception-arguments - no-such-file-or-directory-exception-arguments) - (spec: 0 input-port-readtable-set! input-port-readtable-set!) - (spec: 0 system-type system-type) + join-timeout-exception-arguments + join-timeout-exception-arguments) + (spec: 0 inactive-thread-exception? inactive-thread-exception?) + (spec: 0 random-source-randomize! random-source-randomize!) + (spec: 0 repl-backtrace-detail-level repl-backtrace-detail-level) + (spec: 0 symbol-hash symbol-hash) + (spec: 0 readtable-keywords-allowed? readtable-keywords-allowed?) + (spec: 0 flsinh flsinh) + (spec: 0 integer-sqrt integer-sqrt) + (spec: 0 open-output-bytevector open-output-bytevector) + (spec: 0 file-info-type file-info-type) + (spec: 0 table-length table-length) + (spec: 0 udp-destination-set! udp-destination-set!) + (spec: 0 bit-swap bit-swap) + (spec: 0 f64vector-shrink! f64vector-shrink!) + (spec: 0 string-prefix-ci? string-prefix-ci?) + (spec: 0 dead-end dead-end) + (spec: 0 input-port-char-position input-port-char-position) + (spec: 0 u64vector-ref u64vector-ref) + (spec: 0 write-subu8vector write-subu8vector) + (spec: 0 output-port-line output-port-line) + (spec: 0 char-set-adjoin char-set-adjoin) + (spec: 0 fx<= fx<=) + (spec: 0 process-status process-status) + (spec: 0 string-contains string-contains) + (spec: 0 permission-denied-exception? permission-denied-exception?) + (spec: 0 u32vector-swap! u32vector-swap!) + (spec: 0 seventh seventh) + (spec: 0 equal?-hash equal?-hash) + (spec: 0 thread-yield! thread-yield!) + (spec: 0 list->s16vector list->s16vector) + (spec: 0 call-with-input-u8vector call-with-input-u8vector) + (spec: 0 flcosh flcosh) + (spec: 0 eighth eighth) + (spec: 0 s32vector s32vector) + (spec: 0 thread-priority-boost thread-priority-boost) + (spec: 0 char-set-xor! char-set-xor!) + (spec: 0 fxsquare fxsquare) + (spec: 0 path-strip-directory path-strip-directory) + (spec: 0 fllog fllog) + (spec: 0 object->serial-number object->serial-number) + (spec: 0 with-exception-handler with-exception-handler) + (spec: 0 bitwise-orc2 bitwise-orc2) + (spec: 0 fl+ fl+) (spec: 0 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 0 file-number-of-links file-number-of-links) - (spec: 0 group-info? group-info?) - (spec: 0 tty-mode-set! tty-mode-set!) - (spec: 0 port-settings-set! port-settings-set!) - (spec: 0 s8vector-fill! s8vector-fill!) - (spec: 0 gensym gensym) - (spec: 0 with-output-to-u8vector with-output-to-u8vector) - (spec: 0 u32vector? u32vector?) - (spec: 0 subs8vector-fill! subs8vector-fill!) + nonempty-input-port-character-buffer-exception? + nonempty-input-port-character-buffer-exception?) + (spec: 0 drop drop) + (spec: 0 thread-group-parent thread-group-parent) + (spec: 0 filter! filter!) + (spec: 0 subu16vector-move! subu16vector-move!) (spec: 0 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 0 conjugate conjugate) - (spec: 0 f64vector-copy f64vector-copy) - (spec: 0 bitwise-and bitwise-and) - (spec: 0 subf32vector subf32vector) - (spec: 0 service-info-protocol service-info-protocol) - (spec: 0 make-table make-table) - (spec: 0 concatenate concatenate) - (spec: 0 f32vector-copy f32vector-copy) - (spec: 0 host-info-name host-info-name) - (spec: 0 fxand fxand) - (spec: 0 s16vector-copy! s16vector-copy!) - (spec: 0 char-set-cursor-next char-set-cursor-next) - (spec: 0 err-code->string err-code->string) + unbound-key-exception-arguments + unbound-key-exception-arguments) + (spec: 0 char-set-diff+intersection! char-set-diff+intersection!) + (spec: 0 u16vector-set! u16vector-set!) + (spec: 0 serial-number->object serial-number->object) + (spec: 0 make-s32vector make-s32vector) + (spec: 0 s16vector-concatenate s16vector-concatenate) + (spec: 0 address-info-socket-type address-info-socket-type) + (spec: 0 protocol-info-number protocol-info-number) + (spec: 0 condition-variable-name condition-variable-name) + (spec: 0 subs32vector-fill! subs32vector-fill!) + (spec: 0 fxeqv fxeqv) + (spec: 0 xcons xcons) + (spec: 0 tcp-client-self-socket-info tcp-client-self-socket-info) + (spec: 0 force-output force-output) + (spec: 0 open-u8vector-pipe open-u8vector-pipe) + (spec: 0 user-info? user-info?) + (spec: 0 list-sort list-sort) + (spec: 0 split-at! split-at!) + (spec: 0 s64vector s64vector) + (spec: 0 box? box?) + (spec: 0 remq remq) (spec: 0 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) - (spec: 0 thread-sleep! thread-sleep!) + inactive-thread-exception-arguments + inactive-thread-exception-arguments) + (spec: 0 random-source-make-u8vectors random-source-make-u8vectors) + (spec: 0 integer-length integer-length) + (spec: 0 test-bit-field? test-bit-field?) + (spec: 0 table-copy table-copy) + (spec: 0 readtable-eval-allowed? readtable-eval-allowed?) + (spec: 0 open-input-u8vector open-input-u8vector) + (spec: 0 flscalbn flscalbn) + (spec: 0 file-info-owner file-info-owner) + (spec: 0 arithmetic-shift arithmetic-shift) + (spec: 0 ucs-range->char-set! ucs-range->char-set!) + (spec: 0 getenv getenv) + (spec: 0 pp pp) + (spec: 0 f64vector-set f64vector-set) + (spec: 0 u64vector-length u64vector-length) + (spec: 0 input-port-byte-position input-port-byte-position) (spec: 0 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) - (spec: 0 os-exception? os-exception?) - (spec: 0 foreign? foreign?) + datum-parsing-exception-readenv + datum-parsing-exception-readenv) + (spec: 0 help help) + (spec: 0 process-pid process-pid) + (spec: 0 fx- fx-) + (spec: 0 char-set->list char-set->list) + (spec: 0 output-port-char-position output-port-char-position) (spec: 0 - rpc-remote-error-exception-arguments - rpc-remote-error-exception-arguments) - (spec: 0 vector-fold-right vector-fold-right) - (spec: 0 fxwraparithmetic-shift fxwraparithmetic-shift) - (spec: 0 s64vector-append s64vector-append) - (spec: 0 call-with-port call-with-port) - (spec: 0 error-object-irritants error-object-irritants) - (spec: 0 floor/ floor/) - (spec: 0 binary-port? binary-port?) - (spec: 0 bytevector-length bytevector-length) - (spec: 0 get-output-string get-output-string) - (spec: 0 promise? promise?) - (spec: 0 string->utf8 string->utf8) - (spec: 0 digit-value digit-value) - (spec: 0 string->vector string->vector) - (spec: 0 string-for-each string-for-each) - (spec: 0 read-u8 read-u8) - (spec: 0 make-promise make-promise) - (spec: 0 vector-for-each vector-for-each) - (spec: 0 char-foldcase char-foldcase) - (spec: 0 list-copy list-copy) - (spec: 0 floor-quotient floor-quotient) - (spec: 0 inexact inexact) - (spec: 0 open-input-string open-input-string) - (spec: 0 write-string write-string) - (spec: 0 current-jiffy current-jiffy) - (spec: 0 bytevector? bytevector?) - (spec: 0 file-error? file-error?) - (spec: 0 floor-remainder floor-remainder) - (spec: 0 get-output-bytevector get-output-bytevector) - (spec: 0 make-parameter make-parameter) - (spec: 0 string-map string-map) - (spec: 0 square square) - (spec: 0 boolean=? boolean=?) - (spec: 0 current-error-port current-error-port) - (spec: 0 infinite? infinite?) - (spec: 0 port? port?) - (spec: 0 write-shared write-shared) - (spec: 0 error-object-message error-object-message) - (spec: 0 jiffies-per-second jiffies-per-second) - (spec: 0 truncate-remainder truncate-remainder) - (spec: 0 vector->string vector->string) - (spec: 0 write-simple write-simple) - (spec: 0 balanced-remainder balanced-remainder) - (spec: 0 error-object? error-object?) - (spec: 0 truncate/ truncate/) - (spec: 0 ceiling-quotient ceiling-quotient) - (spec: 0 string-upcase string-upcase) - (spec: 0 balanced/ balanced/) - (spec: 0 eof-object eof-object) - (spec: 0 exact exact) - (spec: 0 euclidean-remainder euclidean-remainder) - (spec: 0 exact-integer-sqrt exact-integer-sqrt) - (spec: 0 ceiling-remainder ceiling-remainder) - (spec: 0 current-second current-second) - (spec: 0 make-bytevector make-bytevector) - (spec: 0 round/ round/) - (spec: 0 write-bytevector write-bytevector) - (spec: 0 exact-integer? exact-integer?) - (spec: 0 euclidean/ euclidean/) - (spec: 0 output-port-open? output-port-open?) - (spec: 0 truncate-quotient truncate-quotient) - (spec: 0 file-exists? file-exists?) - (spec: 0 read-error? read-error?) - (spec: 0 balanced-quotient balanced-quotient) - (spec: 0 string-downcase string-downcase) - (spec: 0 vector-map vector-map) - (spec: 0 round-quotient round-quotient) - (spec: 0 open-output-bytevector open-output-bytevector) - (spec: 0 input-port-open? input-port-open?) - (spec: 0 bytevector-append bytevector-append) - (spec: 0 close-port close-port) - (spec: 0 write-u8 write-u8) - (spec: 0 euclidean-quotient euclidean-quotient) - (spec: 0 open-binary-output-file open-binary-output-file) - (spec: 0 round-remainder round-remainder) - (spec: 0 bytevector-copy bytevector-copy) - (spec: 0 read-string read-string) - (spec: 0 symbol=? symbol=?) - (spec: 0 utf8->string utf8->string) - (spec: 0 list-set! list-set!) - (spec: 0 vector-append vector-append) - (spec: 0 emergency-exit emergency-exit) - (spec: 0 nan? nan?) - (spec: 0 textual-port? textual-port?) - (spec: 0 string-copy! string-copy!) - (spec: 0 ceiling/ ceiling/) - (spec: 0 open-output-string open-output-string) - (spec: 0 bytevector bytevector) - (spec: 0 get-environment-variable get-environment-variable) - (spec: 0 features features) - (spec: 0 open-binary-input-file open-binary-input-file) - (spec: 0 bytevector-u8-ref bytevector-u8-ref) - (spec: 0 command-line command-line) - (spec: 0 get-environment-variables get-environment-variables) - (spec: 0 make-list make-list) - (spec: 0 read-line read-line) - (spec: 0 vector-copy vector-copy) - (spec: 0 u8-ready? u8-ready?) - (spec: 0 read-bytevector read-bytevector) - (spec: 0 bytevector-u8-set! bytevector-u8-set!) - (spec: 0 finite? finite?) - (spec: 0 string-foldcase string-foldcase) - (spec: 0 vector-copy! vector-copy!) - (spec: 0 delete-file delete-file) - (spec: 0 open-input-bytevector open-input-bytevector) - (spec: 0 flush-output-port flush-output-port) - (spec: 0 read-bytevector! read-bytevector!) - (spec: 0 exit exit) - (spec: 0 bytevector-copy! bytevector-copy!) - (spec: 0 peek-u8 peek-u8) - (spec: 0 cadar cadar) - (spec: 0 for-each for-each) - (spec: 0 cdar cdar) - (spec: 0 caar caar) - (spec: 0 read read) - (spec: 0 assv assv) - (spec: 0 char-upcase char-upcase) - (spec: 0 exp exp) - (spec: 0 magnitude magnitude) - (spec: 0 = =) - (spec: 0 char-lower-case? char-lower-case?) - (spec: 0 length length) - (spec: 0 list-tail list-tail) - (spec: 0 list->vector list->vector) - (spec: 0 string string) - (spec: 0 caddar caddar) - (spec: 0 force force) - (spec: 0 cddaar cddaar) - (spec: 0 reverse reverse) - (spec: 0 boolean? boolean?) - (spec: 0 string-ci>=? string-ci>=?) - (spec: 0 transcript-off transcript-off) - (spec: 0 call-with-values call-with-values) - (spec: 0 char-upper-case? char-upper-case?) - (spec: 0 memq memq) - (spec: 0 vector-fill! vector-fill!) - (spec: 0 peek-char peek-char) - (spec: 0 string-ciexact inexact->exact) - (spec: 0 rationalize rationalize) - (spec: 0 close-output-port close-output-port) - (spec: 0 angle angle) - (spec: 0 char>=? char>=?) - (spec: 0 <= <=) - (spec: 0 member member) - (spec: 0 set-car! set-car!) - (spec: 0 vector->list vector->list) - (spec: 0 vector-length vector-length) - (spec: 0 car car) - (spec: 0 numerator numerator) - (spec: 0 cadr cadr) - (spec: 0 dynamic-wind dynamic-wind) - (spec: 0 cdddar cdddar) - (spec: 0 open-input-file open-input-file) - (spec: 0 cos cos) - (spec: 0 round round) - (spec: 0 symbol->string symbol->string) - (spec: 0 read-char read-char) - (spec: 0 make-polar make-polar) - (spec: 0 * *) - (spec: 0 char<=? char<=?) - (spec: 0 cons cons) - (spec: 0 procedure? procedure?) - (spec: 0 pair? pair?) - (spec: 0 load load) - (spec: 0 set-cdr! set-cdr!) - (spec: 0 string->list string->list) - (spec: 0 list-ref list-ref) - (spec: 0 denominator denominator) + permission-denied-exception-arguments + permission-denied-exception-arguments) + (spec: 0 will? will?) + (spec: 0 f32vector-swap! f32vector-swap!) + (spec: 0 setenv setenv) + (spec: 0 eq?-hash eq?-hash) + (spec: 0 list->f32vector list->f32vector) + (spec: 0 thread-terminate! thread-terminate!) + (spec: 0 call-with-input-process call-with-input-process) + (spec: 0 flceiling flceiling) + (spec: 0 u32vector-set! u32vector-set!) + (spec: 0 address-info-protocol address-info-protocol) + (spec: 0 thread-mailbox-rewind thread-mailbox-rewind) + (spec: 0 path-normalize path-normalize) + (spec: 0 char-set-union! char-set-union!) + (spec: 0 fxquotient fxquotient) + (spec: 0 string->char-set! string->char-set!) (spec: 0 - call-with-current-continuation - call-with-current-continuation) - (spec: 0 cddddr cddddr) - (spec: 0 char->integer char->integer) - (spec: 0 lcm lcm) - (spec: 0 string? string-ci>?) - (spec: 0 cdaaar cdaaar) - (spec: 0 remainder remainder) - (spec: 0 vector vector) - (spec: 0 char-ci>=? char-ci>=?) - (spec: 0 open-output-file open-output-file) - (spec: 0 caaaar caaaar) - (spec: 0 write write) - (spec: 0 > >) - (spec: 0 map map) - (spec: 0 char-ready? char-ready?) - (spec: 0 truncate truncate) - (spec: 0 cdaadr cdaadr) - (spec: 0 call-with-output-file call-with-output-file) - (spec: 0 null? null?) - (spec: 0 char-ci>? char-ci>?) - (spec: 0 sqrt sqrt) - (spec: 0 inexact? inexact?) - (spec: 0 integer->char integer->char) - (spec: 0 string<=? string<=?) - (spec: 0 >= >=) - (spec: 0 eof-object? eof-object?) - (spec: 0 exact->inexact exact->inexact) - (spec: 0 gcd gcd) - (spec: 0 char-ci? char>?) - (spec: 0 make-rectangular make-rectangular) - (spec: 0 make-vector make-vector) - (spec: 0 string>? string>?) - (spec: 0 display display) - (spec: 0 null-environment null-environment) - (spec: 0 char-ci=? char-ci=?) - (spec: 0 ceiling ceiling) - (spec: 0 caadar caadar) - (spec: 0 string-ref string-ref) - (spec: 0 char? char?) - (spec: 0 string-fill! string-fill!) - (spec: 0 string? string?) - (spec: 0 with-input-from-file with-input-from-file) - (spec: 0 eqv? eqv?) - (spec: 0 vector-set! vector-set!) - (spec: 0 cdaddr cdaddr) - (spec: 0 not not) - (spec: 0 negative? negative?) - (spec: 0 caaddr caaddr) - (spec: 0 make-string make-string) - (spec: 0 - -) - (spec: 0 assoc assoc) - (spec: 0 expt expt) - (spec: 0 max max) - (spec: 0 string-copy string-copy) - (spec: 0 even? even?) - (spec: 0 cdadr cdadr) - (spec: 0 real? real?) - (spec: 0 symbol? symbol?) - (spec: 0 caaadr caaadr) - (spec: 0 integer? integer?) - (spec: 0 asin asin) - (spec: 0 with-output-to-file with-output-to-file) - (spec: 0 string>=? string>=?) - (spec: 0 equal? equal?) - (spec: 0 values values) - (spec: 0 string->number string->number) - (spec: 0 vector-ref vector-ref) - (spec: 0 cdaar cdaar) - (spec: 0 odd? odd?) - (spec: 0 caaar caaar) - (spec: 0 scheme-report-environment scheme-report-environment) - (spec: 0 apply apply) - (spec: 0 output-port? output-port?) - (spec: 0 string->symbol string->symbol) - (spec: 0 abs abs) - (spec: 0 cdadar cdadar) - (spec: 0 number->string number->string) - (spec: 0 char-downcase char-downcase) - (spec: 0 floor floor) - (spec: 0 real-part real-part) - (spec: 0 eval eval) - (spec: 0 cadaar cadaar) - (spec: 0 input-port? input-port?) - (spec: 0 / /) - (spec: 0 exact? exact?) - (spec: 0 string-length string-length) - (spec: 0 substring substring) - (spec: 0 write-char write-char) - (spec: 0 zero? zero?) - (spec: 0 string-append string-append) - (spec: 0 cadddr cadddr) - (spec: 0 cddadr cddadr) - (spec: 0 cadadr cadadr) - (spec: 0 atan atan) - (spec: 0 complex? complex?) - (spec: 0 string-ci<=? string-ci<=?) - (spec: 0 list->string list->string) - (spec: 0 number? number?) - (spec: 0 caddr caddr) - (spec: 0 vector? vector?) - (spec: 0 cddar cddar) - (spec: 0 caadr caadr) - (spec: 0 string-set! string-set!) - (spec: 0 assq assq) - (spec: 0 char-whitespace? char-whitespace?) - (spec: 0 list? list?) - (spec: 0 RuntimeAliases RuntimeAliases) - (spec: 0 R7RSRuntime R7RSRuntime) - (spec: 0 GerbilRuntime GerbilRuntime) - (spec: 0 Runtime Runtime) - (spec: 0 GambitRuntime GambitRuntime) - (spec: 0 R5RSRuntime R5RSRuntime) - (spec: 0 %%app-dotted %%app) - (spec: 0 %%ref-dotted %%ref) - (spec: 0 %%set-dotted! set!) - (spec: 0 lambda/c lambda) - (spec: 0 case-lambda/c case-lambda) - (spec: 0 let/c let) - (spec: 0 def/c def) - (spec: 0 def*/c def*) - (spec: 0 defmethod/c defmethod) - (spec: 0 defclass/c defclass) - (spec: 0 defstruct/c defstruct) - (spec: 0 do/c do) - (spec: 0 do-while/c do-while) - (spec: 1 identifier-rules identifier-rules) - (spec: 1 quasisyntax quasisyntax) - (spec: 1 macro-object macro-object) - (spec: 1 ¯o-object-macro ¯o-object-macro) + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) (spec: - 1 - macro-object::apply-macro-expander - macro-object::apply-macro-expander) - (spec: 1 make-macro-object make-macro-object) - (spec: 1 macro-object-macro-set! macro-object-macro-set!) - (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-macro macro-object-macro) - (spec: 1 with-syntax with-syntax) - (spec: 1 syntax-rules syntax-rules) - (spec: 1 with-syntax* with-syntax*) - (spec: 1 syntax/loc syntax/loc) - (spec: 1 syntax syntax) - (spec: 1 syntax-case syntax-case) - (spec: 1 ellipsis? ellipsis?) - (spec: 1 prelude-context? prelude-context?) - (spec: 1 top-binding? top-binding?) - (spec: 1 stx-car stx-car) - (spec: 1 make-import-export-expander make-import-export-expander) - (spec: 1 module-export-phi module-export-phi) - (spec: 1 binding-id binding-id) - (spec: 1 core-quote-syntax core-quote-syntax) - (spec: 1 export-set-source export-set-source) - (spec: 1 stx-e stx-e) - (spec: 1 core-identifier-key core-identifier-key) - (spec: 1 core-apply-expander core-apply-expander) - (spec: 1 expander? expander?) - (spec: 1 make-local-context make-local-context) - (spec: 1 core-expand core-expand) - (spec: 1 datum->syntax datum->syntax) - (spec: 1 alias-binding? alias-binding?) - (spec: 1 module-context? module-context?) - (spec: 1 stx-eq? stx-eq?) - (spec: 1 syntax-error? syntax-error?) - (spec: 1 stx-string? stx-string?) - (spec: 1 stx-foldl stx-foldl) - (spec: 1 expander-binding? expander-binding?) - (spec: 1 current-expander-marks current-expander-marks) - (spec: 1 eval-module eval-module) - (spec: 1 stx-source stx-source) - (spec: 1 eval-syntax eval-syntax) - (spec: 1 core-expand-expression+1 core-expand-expression+1) - (spec: 1 syntax-pattern-depth syntax-pattern-depth) - (spec: 1 syntax-local-value syntax-local-value) - (spec: 1 core-library-module-path? core-library-module-path?) - (spec: 1 syntax-binding-e syntax-binding-e) - (spec: 1 import-export-expander? import-export-expander?) - (spec: 1 make-export-expander make-export-expander) - (spec: 1 module-import? module-import?) - (spec: 1 module-import-source module-import-source) - (spec: 1 raise-syntax-error raise-syntax-error) - (spec: 1 stx-for-each stx-for-each) - (spec: 1 module-context-ns module-context-ns) - (spec: 1 free-identifier=? free-identifier=?) - (spec: 1 import-module import-module) - (spec: 1 module-import-phi module-import-phi) - (spec: 1 stx-datum? stx-datum?) - (spec: 1 identifier-list? identifier-list?) - (spec: 1 stx-map stx-map) - (spec: 1 syntax-check-splice-targets syntax-check-splice-targets) - (spec: 1 stx-list-ref stx-list-ref) - (spec: 1 stx-keyword? stx-keyword?) - (spec: 1 syntax-local-pattern? syntax-local-pattern?) - (spec: 1 top-context? top-context?) - (spec: 1 syntax->list syntax->list) - (spec: 1 current-expander-compiling? current-expander-compiling?) - (spec: 1 macro-expand-syntax macro-expand-syntax) - (spec: 1 current-expander-path current-expander-path) - (spec: 1 stx-null? stx-null?) - (spec: 1 module-binding? module-binding?) - (spec: 1 module-export? module-export?) - (spec: 1 make-user-expander make-user-expander) - (spec: 1 module-export-key module-export-key) - (spec: 1 stx-andmap stx-andmap) - (spec: 1 underscore? underscore?) + 0 + unterminated-process-exception? + unterminated-process-exception?) (spec: - 1 - core-resolve-library-module-path - core-resolve-library-module-path) - (spec: 1 module-context-import module-context-import) - (spec: 1 make-module-import make-module-import) - (spec: 1 export-set-phi export-set-phi) - (spec: 1 core-module-export->import core-module-export->import) - (spec: 1 extern-binding? extern-binding?) - (spec: 1 user-expander-context user-expander-context) - (spec: 1 expander-context-id expander-context-id) - (spec: 1 import-binding-e import-binding-e) - (spec: 1 syntax-pattern? syntax-pattern?) - (spec: 1 stx-length stx-length) - (spec: 1 module-import-weak? module-import-weak?) - (spec: 1 import-set-imports import-set-imports) - (spec: 1 stx-foldr stx-foldr) - (spec: 1 check-duplicate-identifiers check-duplicate-identifiers) - (spec: 1 syntax->datum syntax->datum) - (spec: 1 stx-list? stx-list?) - (spec: 1 syntax-pattern-id syntax-pattern-id) - (spec: 1 syntax-split-splice syntax-split-splice) - (spec: 1 core-identifier=? core-identifier=?) - (spec: 1 import-set-phi import-set-phi) - (spec: 1 macro-expand-syntax-case macro-expand-syntax-case) - (spec: 1 syntax-local-rewrap syntax-local-rewrap) - (spec: 1 stx-wrap-source stx-wrap-source) - (spec: 1 make-import-expander make-import-expander) - (spec: 1 current-expander-phi current-expander-phi) - (spec: 1 import-expander? import-expander?) - (spec: 1 core-context-top core-context-top) - (spec: 1 module-context-code module-context-code) - (spec: 1 local-context? local-context?) - (spec: 1 make-syntax-pattern make-syntax-pattern) - (spec: 1 stx-vector? stx-vector?) - (spec: 1 genident genident) - (spec: 1 user-expander-phi user-expander-phi) - (spec: 1 stx-number? stx-number?) - (spec: 1 stx-eqv? stx-eqv?) - (spec: 1 syntax-local-e syntax-local-e) - (spec: 1 syntax-binding? syntax-binding?) - (spec: 1 export-expander? export-expander?) - (spec: 1 identifier? identifier?) - (spec: 1 bound-identifier=? bound-identifier=?) - (spec: 1 stx-reverse stx-reverse) - (spec: 1 module-export-name module-export-name) - (spec: 1 stx-pair/null? stx-pair/null?) - (spec: 1 stx-last stx-last) - (spec: 1 module-context-export module-context-export) - (spec: 1 module-export-weak? module-export-weak?) - (spec: 1 user-expander? user-expander?) - (spec: 1 export-set-exports export-set-exports) - (spec: 1 runtime-binding? runtime-binding?) - (spec: 1 core-resolve-module-export core-resolve-module-export) - (spec: 1 export-set? export-set?) - (spec: 1 stx-equal? stx-equal?) - (spec: 1 core-expand-import-source core-expand-import-source) - (spec: 1 stx-pair? stx-pair?) - (spec: 1 core-expand-head core-expand-head) - (spec: 1 core-resolve-identifier core-resolve-identifier) - (spec: 1 stx-cdr stx-cdr) - (spec: 1 module-export-context module-export-context) - (spec: 1 import-set? import-set?) - (spec: 1 gentemps gentemps) - (spec: 1 binding? binding?) - (spec: 1 core-expand-export-source core-expand-export-source) - (spec: 1 syntax-local-introduce syntax-local-introduce) - (spec: 1 syntax-local-unwrap syntax-local-unwrap) - (spec: 1 import-binding? import-binding?) - (spec: 1 stx-identifier stx-identifier) - (spec: 1 current-module-reader-args current-module-reader-args) - (spec: 1 stx-box? stx-box?) - (spec: 1 stx-getq stx-getq) - (spec: 1 make-module-export make-module-export) - (spec: 1 import-set-source import-set-source) - (spec: 1 stx-char? stx-char?) - (spec: 1 feature-expander? feature-expander?) - (spec: 1 module-import-name module-import-name) - (spec: 1 current-module-reader-path current-module-reader-path) - (spec: 1 stx-ormap stx-ormap) - (spec: 1 stx-fixnum? stx-fixnum?) - (spec: 1 current-expander-context current-expander-context) - (spec: 1 stx-last-pair stx-last-pair) - (spec: 1 stx-false? stx-false?) - (spec: 1 syntax-e syntax-e) - (spec: 1 alias-binding-e alias-binding-e) - (spec: 1 stx-boolean? stx-boolean?) - (spec: 1 resolve-identifier resolve-identifier) - (spec: 1 stx-list-tail stx-list-tail) - (spec: 1 expander-e expander-e) - (spec: 1 expander-binding-e expander-binding-e) - (spec: 1 stx-plist? stx-plist?) - (spec: 1 core-resolve-module-path core-resolve-module-path) - (spec: 1 ExpanderRuntime ExpanderRuntime) - (spec: 1 SyntaxCase SyntaxCase) - (spec: 1 SyntaxSugar SyntaxSugar) - (spec: 2 !class-precedence-list !class-precedence-list) - (spec: 2 type-env-type-set! type-env-type-set!) - (spec: 2 &type-env-type-set! &type-env-type-set!) - (spec: 2 current-type-env current-type-env) - (spec: 2 type-env-type type-env-type) - (spec: 2 type-env::t type-env::t) - (spec: 2 type-env? type-env?) - (spec: 2 type-env-checked?-set! type-env-checked?-set!) - (spec: 2 &type-env-type &type-env-type) - (spec: 2 &type-env-super-set! &type-env-super-set!) - (spec: 2 type-env-var-set! type-env-var-set!) - (spec: 2 make-type-env make-type-env) - (spec: 2 type-env-super type-env-super) - (spec: 2 &type-env-var-set! &type-env-var-set!) - (spec: 2 type-env-lookup type-env-lookup) - (spec: 2 &type-env-super &type-env-super) - (spec: 2 &type-env-checked?-set! &type-env-checked?-set!) - (spec: 2 type-env-var type-env-var) - (spec: 2 type-env-super-set! type-env-super-set!) - (spec: 2 &type-env-checked? &type-env-checked?) - (spec: 2 type-env type-env) - (spec: 2 type-env-checked? type-env-checked?) - (spec: 2 &type-env-var &type-env-var) + 0 + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 0 bitwise-not bitwise-not) + (spec: 0 u8vector-copy! u8vector-copy!) (spec: - 2 - interface-info-instance-constructor-set! - interface-info-instance-constructor-set!) + 0 + nonempty-input-port-character-buffer-exception-arguments + nonempty-input-port-character-buffer-exception-arguments) + (spec: 0 unbox unbox) + (spec: 0 thread-group->thread-vector thread-group->thread-vector) + (spec: 0 range-exception? range-exception?) + (spec: 0 s8vector-swap! s8vector-swap!) + (spec: 0 append-reverse append-reverse) + (spec: 0 subu16vector subu16vector) + (spec: 0 type-exception-type-id type-exception-type-id) + (spec: 0 ninth ninth) + (spec: 0 unbound-global-exception? unbound-global-exception?) + (spec: 0 make-root-thread make-root-thread) + (spec: 0 char-set-delete! char-set-delete!) + (spec: 0 expression-parsing-exception? expression-parsing-exception?) + (spec: 0 fxbit-count fxbit-count) + (spec: 0 s16vector->list s16vector->list) + (spec: 0 u16vector-ref u16vector-ref) + (spec: 0 bit-field-set bit-field-set) + (spec: 0 protocol-info-aliases protocol-info-aliases) + (spec: 0 s64vector-swap! s64vector-swap!) + (spec: 0 subs16vector-move! subs16vector-move!) + (spec: 0 flinteger? flinteger?) (spec: - 2 - &interface-info-instance-satisfies-predicate - &interface-info-instance-satisfies-predicate) - (spec: 2 interface-info::t interface-info::t) + 0 + readtable-write-extended-read-macros?-set + readtable-write-extended-read-macros?-set) + (spec: 0 vector-inc! vector-inc!) + (spec: 0 tcp-client-peer-socket-info tcp-client-peer-socket-info) + (spec: 0 fxzero? fxzero?) + (spec: 0 open-tcp-server open-tcp-server) + (spec: 0 list-set list-set) + (spec: 0 user-info-shell user-info-shell) + (spec: 0 remove remove) + (spec: 0 file-info-mode file-info-mode) + (spec: 0 terminated-thread-exception? terminated-thread-exception?) + (spec: 0 random-source-make-integers random-source-make-integers) + (spec: 0 readtable-comment-handler readtable-comment-handler) + (spec: 0 open-input-process open-input-process) + (spec: 0 flpositive? flpositive?) (spec: - 2 - interface-info-interface-mixin-set! - interface-info-interface-mixin-set!) + 0 + expression-parsing-exception-parameters + expression-parsing-exception-parameters) + (spec: 0 datum-parsing-exception-kind datum-parsing-exception-kind) + (spec: 0 u8vector? u8vector?) + (spec: 0 get-output-u8vector get-output-u8vector) + (spec: 0 fixnum? fixnum?) + (spec: 0 cosh cosh) + (spec: 0 u64vector-copy! u64vector-copy!) + (spec: 0 string-suffix? string-suffix?) + (spec: 0 vector->bits vector->bits) + (spec: 0 fx* fx*) + (spec: 0 string-ci=?-hash string-ci=?-hash) + (spec: 0 will-execute! will-execute!) + (spec: 0 f32vector-set! f32vector-set!) + (spec: 0 u32vector-ref u32vector-ref) + (spec: 0 list->char-set list->char-set) + (spec: 0 char-set-unfold! char-set-unfold!) + (spec: 0 s16vector? s16vector?) + (spec: 0 flatan flatan) + (spec: 0 thread-state-waiting? thread-state-waiting?) (spec: - 2 - &interface-info-instance-try-constructor-set! - &interface-info-instance-try-constructor-set!) - (spec: 2 interface-info-flatten-mixin interface-info-flatten-mixin) + 0 + unknown-keyword-argument-exception-arguments + unknown-keyword-argument-exception-arguments) (spec: - 2 - interface-info-interface-methods - interface-info-interface-methods) - (spec: 2 interface-info-instance-type interface-info-instance-type) - (spec: - 2 - &interface-info-unchecked-implementation-methods-set! - &interface-info-unchecked-implementation-methods-set!) - (spec: - 2 - interface-info-instance-try-constructor - interface-info-instance-try-constructor) - (spec: - 2 - interface-info-instance-constructor - interface-info-instance-constructor) - (spec: - 2 - interface-info-instance-type-set! - interface-info-instance-type-set!) - (spec: - 2 - interface-info-instance-predicate - interface-info-instance-predicate) - (spec: - 2 - interface-info-instance-predicate-set! - interface-info-instance-predicate-set!) - (spec: - 2 - interface-info-instance-satisfies-predicate-set! - interface-info-instance-satisfies-predicate-set!) - (spec: - 2 - interface-info-implementation-methods-set! - interface-info-implementation-methods-set!) - (spec: 2 interface-info? interface-info?) - (spec: - 2 - 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-interface-mixin-set! - &interface-info-interface-mixin-set!) - (spec: - 2 - &interface-info-interface-descriptor-set! - &interface-info-interface-descriptor-set!) - (spec: - 2 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) - (spec: 2 &interface-info-name &interface-info-name) - (spec: - 2 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) - (spec: 2 syntax-local-interface-info? syntax-local-interface-info?) - (spec: - 2 - &interface-info-interface-methods - &interface-info-interface-methods) - (spec: - 2 - interface-info-interface-mixin - interface-info-interface-mixin) - (spec: - 2 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) - (spec: - 2 - &interface-info-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) - (spec: 2 interface-info-name-set! interface-info-name-set!) - (spec: - 2 - interface-info-interface-descriptor-set! - interface-info-interface-descriptor-set!) - (spec: - 2 - &interface-info-interface-methods-set! - &interface-info-interface-methods-set!) - (spec: - 2 - &interface-info-interface-mixin - &interface-info-interface-mixin) - (spec: - 2 - &interface-info-instance-predicate - &interface-info-instance-predicate) - (spec: 2 &interface-info-instance-type &interface-info-instance-type) - (spec: - 2 - &interface-info-interface-descriptor - &interface-info-interface-descriptor) - (spec: - 2 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) - (spec: - 2 - &interface-info-instance-predicate-set! - &interface-info-instance-predicate-set!) - (spec: 2 interface-info-name interface-info-name) - (spec: - 2 - &interface-info-implementation-methods-set! - &interface-info-implementation-methods-set!) - (spec: - 2 - interface-info-interface-descriptor - interface-info-interface-descriptor) - (spec: - 2 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) - (spec: 2 interface-info interface-info) - (spec: - 2 - interface-info-interface-methods-set! - interface-info-interface-methods-set!) - (spec: - 2 - &interface-info-instance-try-constructor - &interface-info-instance-try-constructor) - (spec: 2 make-interface-info make-interface-info) - (spec: - 2 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) - (spec: - 2 - interface-info-implementation-methods - interface-info-implementation-methods) - (spec: - 2 - interface-info-unchecked-implementation-methods - interface-info-unchecked-implementation-methods) - (spec: - 2 - &interface-info-instance-constructor - &interface-info-instance-constructor) - (spec: 2 &interface-info-name-set! &interface-info-name-set!) - (spec: 2 is-signature? is-signature?) - (spec: 1 defstruct/c defstruct/c) - (spec: 1 do-while/c do-while/c) - (spec: 1 @method @method) - (spec: 1 defmethod/c defmethod/c) - (spec: 1 defclass/c defclass/c) - (spec: 1 def*/c def*/c) - (spec: 1 with-procedure-signature with-procedure-signature) - (spec: 1 case-lambda/c case-lambda/c) - (spec: 1 do/c do/c) - (spec: 1 do-loop-step do-loop-step) - (spec: 1 def/c def/c) - (spec: 1 defmutable defmutable) - (spec: 1 do-loop-result do-loop-result) - (spec: 1 lambda/c lambda/c) - (spec: 1 with-procedure-contract with-procedure-contract) - (spec: - 1 - with-procedure-unchecked-contract - with-procedure-unchecked-contract) - (spec: 1 with-receiver with-receiver) - (spec: 1 defmutable* defmutable*) - (spec: 1 let/c let/c) - (spec: - 2 - compatible-signature-type-contract? - compatible-signature-type-contract?) - (spec: 2 signature-arguments-out signature-arguments-out) - (spec: 2 check-signature-spec! check-signature-spec!) - (spec: - 2 - make-interface-method-contract - make-interface-method-contract) - (spec: 2 signature-contract? signature-contract?) - (spec: 2 compatible-type-contract? compatible-type-contract?) - (spec: 2 signature-has-keywords? signature-has-keywords?) - (spec: 2 signature-type-contract signature-type-contract) - (spec: 2 signature-arity signature-arity) - (spec: 2 signature-arguments-in signature-arguments-in) - (spec: 2 contract-type-subtype? contract-type-subtype?) - (spec: - 2 - check-signature-contract-types! - check-signature-contract-types!) - (spec: - 2 - make-procedure-lambda-signature - make-procedure-lambda-signature) - (spec: 2 keywordtype-descriptor resolve-type->type-descriptor) - (spec: 2 make-type-reference make-type-reference) - (spec: 2 type-identifier? type-identifier?) - (spec: 2 resolve-type->identifier resolve-type->identifier) - (spec: 1 deftype deftype) - (spec: 1 ContractRules ContractRules) - (spec: 1 ClassMeta ClassMeta) - (spec: 1 TypeCast TypeCast) - (spec: 1 Interface Interface) - (spec: 1 TypeReference TypeReference) - (spec: 1 TypeEnv TypeEnv) - (spec: 1 TypedDefinitions TypedDefinitions) - (spec: 1 Using Using) - (spec: 1 InterfaceInfo InterfaceInfo) - (spec: 2 &setq-macro-macro-set! &setq-macro-macro-set!) - (spec: 2 setf-macro::t setf-macro::t) - (spec: 2 setf-macro setf-macro) - (spec: 2 setq-macro::t setq-macro::t) - (spec: 2 syntax-local-setf-macro? syntax-local-setf-macro?) - (spec: 2 &setq-macro-macro &setq-macro-macro) - (spec: 2 setq-macro-macro setq-macro-macro) - (spec: 2 make-setf-macro make-setf-macro) - (spec: 2 syntax-local-setq-macro? syntax-local-setq-macro?) - (spec: 2 setq-macro? setq-macro?) - (spec: 2 setf-macro? setf-macro?) - (spec: 2 setf-macro-macro-set! setf-macro-macro-set!) - (spec: 2 setq-macro-macro-set! setq-macro-macro-set!) - (spec: 2 &setf-macro-macro &setf-macro-macro) - (spec: 2 make-setq-macro make-setq-macro) - (spec: 2 &setf-macro-macro-set! &setf-macro-macro-set!) - (spec: 2 setq-macro setq-macro) - (spec: 2 expand-set! expand-set!) - (spec: 2 setf-macro-macro setf-macro-macro) - (spec: 1 @bytes @bytes) - (spec: 1 let/cc let/cc) - (spec: 1 unwind-protect unwind-protect) - (spec: 1 parameterize parameterize) - (spec: 1 eval-when-compile eval-when-compile) - (spec: 1 values-set! values-set!) - (spec: 2 match-pattern? match-pattern?) - (spec: 2 syntax-local-match-macro? syntax-local-match-macro?) - (spec: 2 match-macro? match-macro?) - (spec: 2 make-match-macro make-match-macro) - (spec: 2 match-macro::t match-macro::t) - (spec: 2 match-macro match-macro) - (spec: 1 match* match*) - (spec: 1 defrules-for-match defrules-for-match) - (spec: 1 with* with*) - (spec: 1 ? ?) - (spec: 1 defsyntax-for-match defsyntax-for-match) - (spec: 1 with with) - (spec: 1 match match) - (spec: 1 :vector-port :vector-port) - (spec: 1 :character-port :character-port) - (spec: 1 :string-port :string-port) - (spec: 1 :file-info :file-info) - (spec: 1 :socket-info :socket-info) - (spec: 1 :symbol :symbol) - (spec: 1 :list :list) - (spec: 1 :string :string) - (spec: 1 :u16vector :u16vector) - (spec: 1 :box :box) - (spec: 1 :sequence :sequence) - (spec: 1 :foreign :foreign) - (spec: 1 class class) - (spec: 1 :u32vector :u32vector) - (spec: 1 :procedure :procedure) - (spec: 1 :condvar :condvar) - (spec: 1 :byte-port :byte-port) - (spec: 1 :u8vector-port :u8vector-port) - (spec: 1 :raw-device-port :raw-device-port) - (spec: 1 :udp-port :udp-port) - (spec: 1 :integer :integer) - (spec: 1 :special :special) - (spec: 1 :cpxnum :cpxnum) - (spec: 1 :symbolic :symbolic) - (spec: 1 :true :true) - (spec: 1 :keyword :keyword) - (spec: 1 :null :null) - (spec: 1 :s32vector :s32vector) - (spec: 1 :flonum :flonum) - (spec: 1 :table :table) - (spec: 1 :address-info :address-info) - (spec: 1 :false :false) - (spec: 1 :thread-group :thread-group) - (spec: 1 :object :object) - (spec: 1 :atom :atom) - (spec: 1 :char :char) - (spec: 1 :void :void) - (spec: 1 :vector :vector) - (spec: 1 :values :values) - (spec: 1 :s8vector :s8vector) - (spec: 1 :f32vector :f32vector) - (spec: 1 :vm :vm) - (spec: 1 :mutex :mutex) - (spec: 1 :continuation :continuation) - (spec: 1 :pair :pair) - (spec: 1 :object-port :object-port) - (spec: 1 :boolean :boolean) - (spec: 1 :frame :frame) - (spec: 1 :device-port :device-port) - (spec: 1 :u8vector :u8vector) - (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :readenv :readenv) - (spec: 1 :immediate :immediate) - (spec: 1 defsystem-class-info defsystem-class-info) - (spec: 1 :fixnum :fixnum) - (spec: 1 :hvector :hvector) - (spec: 1 :weak :weak) - (spec: 1 :t :t) - (spec: 1 :s16vector :s16vector) - (spec: 1 :eof :eof) - (spec: 1 :promise :promise) - (spec: 1 :time :time) - (spec: 1 :event-queue-port :event-queue-port) - (spec: 1 :writeenv :writeenv) - (spec: 1 :bignum :bignum) - (spec: 1 :port :port) - (spec: 1 :ratnum :ratnum) - (spec: 1 :s64vector :s64vector) - (spec: 1 :processor :processor) - (spec: 1 :u64vector :u64vector) - (spec: 1 :thread :thread) - (spec: 1 :class :class) - (spec: 1 :f64vector :f64vector) - (spec: 1 :real :real) - (spec: 1 :directory-port :directory-port) - (spec: 1 :number :number) - (spec: 1 :readtable :readtable) - (spec: 1 @ @) - (spec: 1 @-set! @-set!) - (spec: 1 define-struct define-struct) - (spec: 1 define-class define-class) - (spec: 1 defstruct-type defstruct-type) - (spec: 1 defclass-type defclass-type) - (spec: 1 MOP-1 MOP-1) - (spec: 1 MOP-4 MOP-4) - (spec: 1 MOP-5 MOP-5) - (spec: 1 MOP-2 MOP-2) - (spec: 1 MOP-3 MOP-3) - (spec: 1 :vector-port :vector-port) - (spec: 1 :character-port :character-port) - (spec: 1 :string-port :string-port) - (spec: 1 :file-info :file-info) - (spec: 1 :socket-info :socket-info) - (spec: 1 :symbol :symbol) - (spec: 1 :list :list) - (spec: 1 :string :string) - (spec: 1 :u16vector :u16vector) - (spec: 1 :box :box) - (spec: 1 :sequence :sequence) - (spec: 1 :foreign :foreign) - (spec: 1 class class) - (spec: 1 :u32vector :u32vector) - (spec: 1 :procedure :procedure) - (spec: 1 :condvar :condvar) - (spec: 1 :byte-port :byte-port) - (spec: 1 :u8vector-port :u8vector-port) - (spec: 1 :raw-device-port :raw-device-port) - (spec: 1 :udp-port :udp-port) - (spec: 1 :integer :integer) - (spec: 1 :special :special) - (spec: 1 :cpxnum :cpxnum) - (spec: 1 :symbolic :symbolic) - (spec: 1 :true :true) - (spec: 1 :keyword :keyword) - (spec: 1 :null :null) - (spec: 1 :s32vector :s32vector) - (spec: 1 :flonum :flonum) - (spec: 1 :table :table) - (spec: 1 :address-info :address-info) - (spec: 1 :false :false) - (spec: 1 :thread-group :thread-group) - (spec: 1 :object :object) - (spec: 1 :atom :atom) - (spec: 1 :char :char) - (spec: 1 :void :void) - (spec: 1 :vector :vector) - (spec: 1 :values :values) - (spec: 1 :s8vector :s8vector) - (spec: 1 :f32vector :f32vector) - (spec: 1 :vm :vm) - (spec: 1 :mutex :mutex) - (spec: 1 :continuation :continuation) - (spec: 1 :pair :pair) - (spec: 1 :object-port :object-port) - (spec: 1 :boolean :boolean) - (spec: 1 :frame :frame) - (spec: 1 :device-port :device-port) - (spec: 1 :u8vector :u8vector) - (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :readenv :readenv) - (spec: 1 :immediate :immediate) - (spec: 1 defsystem-class-info defsystem-class-info) - (spec: 1 :fixnum :fixnum) - (spec: 1 :hvector :hvector) - (spec: 1 :weak :weak) - (spec: 1 :t :t) - (spec: 1 :s16vector :s16vector) - (spec: 1 :eof :eof) - (spec: 1 :promise :promise) - (spec: 1 :time :time) - (spec: 1 :event-queue-port :event-queue-port) - (spec: 1 :writeenv :writeenv) - (spec: 1 :bignum :bignum) - (spec: 1 :port :port) - (spec: 1 :ratnum :ratnum) - (spec: 1 :s64vector :s64vector) - (spec: 1 :processor :processor) - (spec: 1 :u64vector :u64vector) - (spec: 1 :thread :thread) - (spec: 1 :class :class) - (spec: 1 :f64vector :f64vector) - (spec: 1 :real :real) - (spec: 1 :directory-port :directory-port) - (spec: 1 :number :number) - (spec: 1 :readtable :readtable) - (spec: 1 @ @) - (spec: 1 @-set! @-set!) - (spec: 1 define-struct define-struct) - (spec: 1 define-class define-class) - (spec: 1 class-type-info class-type-info) - (spec: 1 class-type-info::t class-type-info::t) - (spec: 1 !class-type-slots-set! !class-type-slots-set!) - (spec: 1 !class-type-struct?-set! !class-type-struct?-set!) - (spec: 1 !class-type-ordered-slots !class-type-ordered-slots) - (spec: 1 !class-type-slot-defaults !class-type-slot-defaults) + 0 + thread-mailbox-extract-and-rewind + thread-mailbox-extract-and-rewind) + (spec: 0 path-expand path-expand) + (spec: 0 fxorc2 fxorc2) + (spec: 0 floor-quotient floor-quotient) + (spec: 0 read-bytevector read-bytevector) + (spec: 0 write-shared write-shared) + (spec: 0 write-simple write-simple) + (spec: 0 write-string write-string) + (spec: 0 truncate-quotient truncate-quotient) + (spec: 0 error-object-message error-object-message) + (spec: 0 vector-for-each vector-for-each) + (spec: 0 char-foldcase char-foldcase) + (spec: 0 delete-file delete-file) + (spec: 0 read-u8 read-u8) + (spec: 0 get-environment-variable get-environment-variable) + (spec: 0 promise? promise?) + (spec: 0 boolean=? boolean=?) + (spec: 0 open-binary-output-file open-binary-output-file) + (spec: 0 string-foldcase string-foldcase) + (spec: 0 flush-output-port flush-output-port) + (spec: 0 string->vector string->vector) + (spec: 0 bytevector-u8-set! bytevector-u8-set!) + (spec: 0 input-port-open? input-port-open?) + (spec: 0 read-line read-line) + (spec: 0 emergency-exit emergency-exit) + (spec: 0 ceiling-quotient ceiling-quotient) + (spec: 0 command-line command-line) + (spec: 0 binary-port? binary-port?) + (spec: 0 features features) + (spec: 0 current-second current-second) + (spec: 0 bytevector-append bytevector-append) + (spec: 0 output-port-open? output-port-open?) + (spec: 0 string-downcase string-downcase) + (spec: 0 symbol=? symbol=?) + (spec: 0 read-error? read-error?) + (spec: 0 string-copy! string-copy!) + (spec: 0 vector-copy! vector-copy!) + (spec: 0 euclidean-remainder euclidean-remainder) + (spec: 0 list-set! list-set!) + (spec: 0 close-port close-port) + (spec: 0 open-input-string open-input-string) + (spec: 0 current-jiffy current-jiffy) + (spec: 0 utf8->string utf8->string) + (spec: 0 write-u8 write-u8) + (spec: 0 exact-integer? exact-integer?) + (spec: 0 floor/ floor/) + (spec: 0 get-output-string get-output-string) + (spec: 0 balanced-remainder balanced-remainder) + (spec: 0 file-error? file-error?) + (spec: 0 port? port?) + (spec: 0 round-remainder round-remainder) + (spec: 0 truncate/ truncate/) + (spec: 0 inexact inexact) + (spec: 0 peek-u8 peek-u8) + (spec: 0 balanced-quotient balanced-quotient) + (spec: 0 eof-object eof-object) + (spec: 0 exact exact) + (spec: 0 floor-remainder floor-remainder) + (spec: 0 make-promise make-promise) + (spec: 0 call-with-port call-with-port) + (spec: 0 error-object? error-object?) + (spec: 0 exit exit) + (spec: 0 bytevector? bytevector?) + (spec: 0 get-output-bytevector get-output-bytevector) + (spec: 0 list-copy list-copy) + (spec: 0 make-parameter make-parameter) + (spec: 0 open-input-bytevector open-input-bytevector) + (spec: 0 error-object-irritants error-object-irritants) + (spec: 0 get-environment-variables get-environment-variables) + (spec: 0 make-list make-list) + (spec: 0 bytevector-u8-ref bytevector-u8-ref) + (spec: 0 digit-value digit-value) + (spec: 0 read-bytevector! read-bytevector!) + (spec: 0 ceiling/ ceiling/) + (spec: 0 open-output-string open-output-string) + (spec: 0 read-string read-string) + (spec: 0 open-binary-input-file open-binary-input-file) + (spec: 0 string->utf8 string->utf8) + (spec: 0 bytevector-copy! bytevector-copy!) + (spec: 0 string-for-each string-for-each) + (spec: 0 string-map string-map) + (spec: 0 bytevector-length bytevector-length) + (spec: 0 u8-ready? u8-ready?) + (spec: 0 vector-copy vector-copy) + (spec: 0 ceiling-remainder ceiling-remainder) + (spec: 0 write-bytevector write-bytevector) + (spec: 0 bytevector-copy bytevector-copy) + (spec: 0 finite? finite?) + (spec: 0 infinite? infinite?) + (spec: 0 open-output-bytevector open-output-bytevector) + (spec: 0 nan? nan?) + (spec: 0 square square) + (spec: 0 round/ round/) + (spec: 0 file-exists? file-exists?) + (spec: 0 bytevector bytevector) + (spec: 0 exact-integer-sqrt exact-integer-sqrt) + (spec: 0 euclidean/ euclidean/) + (spec: 0 jiffies-per-second jiffies-per-second) + (spec: 0 textual-port? textual-port?) + (spec: 0 string-upcase string-upcase) + (spec: 0 round-quotient round-quotient) + (spec: 0 current-error-port current-error-port) + (spec: 0 make-bytevector make-bytevector) + (spec: 0 truncate-remainder truncate-remainder) + (spec: 0 euclidean-quotient euclidean-quotient) + (spec: 0 vector->string vector->string) + (spec: 0 vector-append vector-append) + (spec: 0 balanced/ balanced/) + (spec: 0 vector-map vector-map) + (spec: 0 cddadr cddadr) + (spec: 0 cadddr cadddr) + (spec: 0 imag-part imag-part) + (spec: 0 integer->char integer->char) + (spec: 0 eq? eq?) + (spec: 0 string-ci>=? string-ci>=?) + (spec: 0 set-car! set-car!) + (spec: 0 char-ready? char-ready?) + (spec: 0 round round) + (spec: 0 dynamic-wind dynamic-wind) + (spec: 0 inexact->exact inexact->exact) + (spec: 0 make-rectangular make-rectangular) + (spec: 0 <= <=) + (spec: 0 complex? complex?) + (spec: 0 denominator denominator) + (spec: 0 list->vector list->vector) + (spec: 0 cdar cdar) + (spec: 0 cadar cadar) + (spec: 0 number? number?) + (spec: 0 remainder remainder) + (spec: 0 read read) + (spec: 0 eof-object? eof-object?) + (spec: 0 string-ci=? string-ci=?) + (spec: 0 exact->inexact exact->inexact) + (spec: 0 input-port? input-port?) + (spec: 0 / /) + (spec: 0 char-upcase char-upcase) + (spec: 0 memv memv) + (spec: 0 string-ci<=? string-ci<=?) + (spec: 0 transcript-on transcript-on) + (spec: 0 cdaddr cdaddr) + (spec: 0 cadaar cadaar) + (spec: 0 exp exp) + (spec: 0 make-polar make-polar) + (spec: 0 not not) + (spec: 0 angle angle) + (spec: 0 substring substring) + (spec: 0 call-with-values call-with-values) + (spec: 0 acos acos) + (spec: 0 vector-set! vector-set!) + (spec: 0 values values) + (spec: 0 string-set! string-set!) + (spec: 0 output-port? output-port?) + (spec: 0 cdaar cdaar) + (spec: 0 caadr caadr) + (spec: 0 odd? odd?) + (spec: 0 list? list?) + (spec: 0 vector-ref vector-ref) + (spec: 0 string-ref string-ref) + (spec: 0 write-char write-char) + (spec: 0 string>? string>?) + (spec: 0 gcd gcd) + (spec: 0 list->string list->string) + (spec: 0 length length) + (spec: 0 number->string number->string) + (spec: 0 open-output-file open-output-file) + (spec: 0 write write) + (spec: 0 string? string?) + (spec: 0 string-fill! string-fill!) + (spec: 0 cdaadr cdaadr) + (spec: 0 caaddr caaddr) + (spec: 0 string->number string->number) + (spec: 0 exact? exact?) + (spec: 0 assv assv) + (spec: 0 magnitude magnitude) + (spec: 0 char-ci>? char-ci>?) + (spec: 0 real-part real-part) + (spec: 0 symbol->string symbol->string) + (spec: 0 cdr cdr) + (spec: 0 char>? char>?) + (spec: 0 negative? negative?) + (spec: 0 string>=? string>=?) + (spec: 0 eval eval) + (spec: 0 caaar caaar) + (spec: 0 - -) + (spec: 0 assoc assoc) + (spec: 0 make-string make-string) + (spec: 0 char-ci=? char-ci=?) + (spec: 0 cdddr cdddr) + (spec: 0 char=? char=?) + (spec: 0 integer? integer?) + (spec: 0 positive? positive?) + (spec: 0 string=? string=?) + (spec: 0 eqv? eqv?) + (spec: 0 call-with-input-file call-with-input-file) + (spec: 0 vector->list vector->list) + (spec: 0 with-input-from-file with-input-from-file) + (spec: 0 char-ci<=? char-ci<=?) + (spec: 0 close-output-port close-output-port) + (spec: 0 * *) + (spec: 0 inexact? inexact?) + (spec: 0 newline newline) + (spec: 0 >= >=) + (spec: 0 pair? pair?) + (spec: 0 list-ref list-ref) + (spec: 0 rationalize rationalize) + (spec: 0 cos cos) + (spec: 0 cdddar cdddar) + (spec: 0 caaaar caaaar) + (spec: 0 char<=? char<=?) + (spec: 0 char-numeric? char-numeric?) + (spec: 0 open-input-file open-input-file) + (spec: 0 cadr cadr) + (spec: 0 equal? equal?) + (spec: 0 read-char read-char) + (spec: 0 force force) + (spec: 0 char->integer char->integer) + (spec: 0 sqrt sqrt) + (spec: 0 string<=? string<=?) + (spec: 0 expt expt) + (spec: 0 log log) + (spec: 0 vector vector) + (spec: 0 modulo modulo) + (spec: 0 > >) + (spec: 0 char=? char-ci>=?) + (spec: 0 symbol? symbol?) + (spec: 0 interaction-environment interaction-environment) + (spec: 0 string-copy string-copy) + (spec: 0 call-with-output-file call-with-output-file) + (spec: 0 null? null?) + (spec: 0 string->symbol string->symbol) + (spec: 0 caaadr caaadr) + (spec: 0 + +) + (spec: 0 current-output-port current-output-port) + (spec: 0 char-cilist string->list) + (spec: 0 vector-length vector-length) + (spec: 0 display display) + (spec: 0 cddr cddr) + (spec: 0 char>=? char>=?) + (spec: 0 min min) + (spec: 0 string-ci>? string-ci>?) + (spec: 0 lcm lcm) + (spec: 0 numerator numerator) + (spec: 0 for-each for-each) + (spec: 0 car car) + (spec: 0 cddddr cddddr) + (spec: + 0 + call-with-current-continuation + call-with-current-continuation) + (spec: 0 procedure? procedure?) + (spec: 0 cons cons) + (spec: 0 map map) + (spec: 0 string string) + (spec: 0 RuntimeAliases RuntimeAliases) + (spec: 0 R5RSRuntime R5RSRuntime) + (spec: 0 GambitRuntime GambitRuntime) + (spec: 0 R7RSRuntime R7RSRuntime) + (spec: 0 Runtime Runtime) + (spec: 0 GerbilRuntime GerbilRuntime) + (spec: 0 %%app-dotted %%app) + (spec: 0 %%ref-dotted %%ref) + (spec: 0 %%set-dotted! set!) + (spec: 0 lambda/c lambda) + (spec: 0 case-lambda/c case-lambda) + (spec: 0 let/c let) + (spec: 0 def/c def) + (spec: 0 def*/c def*) + (spec: 0 defmethod/c defmethod) + (spec: 0 defclass/c defclass) + (spec: 0 defstruct/c defstruct) + (spec: 0 do/c do) + (spec: 0 do-while/c do-while) + (spec: 1 identifier-rules identifier-rules) + (spec: 1 quasisyntax quasisyntax) + (spec: 1 make-macro-object make-macro-object) + (spec: 1 macro-object::t macro-object::t) + (spec: 1 ¯o-object-macro ¯o-object-macro) + (spec: 1 macro-object macro-object) + (spec: 1 macro-object? macro-object?) + (spec: 1 macro-object-macro macro-object-macro) + (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-set! macro-object-macro-set!) + (spec: 1 with-syntax with-syntax) + (spec: 1 with-syntax* with-syntax*) + (spec: 1 syntax-rules syntax-rules) + (spec: 1 syntax/loc syntax/loc) + (spec: 1 syntax-case syntax-case) + (spec: 1 syntax syntax) + (spec: 1 genident genident) + (spec: 1 module-export-weak? module-export-weak?) + (spec: 1 import-binding-e import-binding-e) + (spec: 1 module-export? module-export?) + (spec: 1 current-module-reader-args current-module-reader-args) + (spec: 1 current-module-reader-path current-module-reader-path) + (spec: 1 stx-boolean? stx-boolean?) + (spec: 1 stx-keyword? stx-keyword?) + (spec: 1 stx-vector? stx-vector?) + (spec: 1 stx-list-ref stx-list-ref) + (spec: 1 stx-wrap-source stx-wrap-source) + (spec: 1 stx-for-each stx-for-each) + (spec: 1 stx-foldl stx-foldl) + (spec: 1 stx-andmap stx-andmap) + (spec: 1 current-compilation-target current-compilation-target) + (spec: 1 core-expand-expression+1 core-expand-expression+1) + (spec: 1 core-context-top core-context-top) + (spec: 1 core-expand-head core-expand-head) + (spec: 1 stx-pair? stx-pair?) + (spec: 1 core-apply-expander core-apply-expander) + (spec: 1 make-user-expander make-user-expander) + (spec: 1 module-import-source module-import-source) + (spec: 1 make-module-export make-module-export) + (spec: 1 module-export-key module-export-key) + (spec: 1 free-identifier=? free-identifier=?) + (spec: 1 current-expander-context current-expander-context) + (spec: 1 syntax-pattern-depth syntax-pattern-depth) + (spec: 1 module-import-phi module-import-phi) + (spec: 1 export-set? export-set?) + (spec: 1 core-resolve-module-export core-resolve-module-export) + (spec: 1 core-module-export->import core-module-export->import) + (spec: 1 core-expand-import-source core-expand-import-source) + (spec: 1 core-expand-export-source core-expand-export-source) + (spec: 1 module-export-name module-export-name) + (spec: 1 stx-list-tail stx-list-tail) + (spec: 1 eval-module eval-module) + (spec: 1 syntax-local-rewrap syntax-local-rewrap) + (spec: 1 stx-string? stx-string?) + (spec: 1 syntax-split-splice syntax-split-splice) + (spec: 1 stx-null? stx-null?) + (spec: 1 stx-map stx-map) + (spec: 1 make-import-expander make-import-expander) + (spec: 1 core-resolve-identifier core-resolve-identifier) + (spec: 1 module-export-phi module-export-phi) + (spec: 1 stx-plist? stx-plist?) + (spec: 1 local-context? local-context?) + (spec: 1 core-quote-syntax core-quote-syntax) + (spec: 1 stx-last-pair stx-last-pair) + (spec: 1 syntax-error? syntax-error?) + (spec: 1 syntax->list syntax->list) + (spec: 1 stx-length stx-length) + (spec: 1 syntax-local-value syntax-local-value) + (spec: 1 stx-char? stx-char?) + (spec: 1 stx-equal? stx-equal?) + (spec: 1 identifier-list? identifier-list?) + (spec: 1 resolve-identifier resolve-identifier) + (spec: 1 stx-reverse stx-reverse) + (spec: 1 module-binding? module-binding?) + (spec: 1 core-library-module-path? core-library-module-path?) + (spec: 1 alias-binding-e alias-binding-e) + (spec: 1 syntax-check-splice-targets syntax-check-splice-targets) + (spec: 1 identifier? identifier?) + (spec: 1 stx-identifier stx-identifier) + (spec: 1 stx-e stx-e) + (spec: 1 make-syntax-pattern make-syntax-pattern) + (spec: 1 prelude-context? prelude-context?) + (spec: 1 current-expander-phi current-expander-phi) + (spec: 1 core-identifier-key core-identifier-key) + (spec: 1 syntax-local-e syntax-local-e) + (spec: 1 syntax-binding? syntax-binding?) + (spec: 1 syntax-binding-e syntax-binding-e) + (spec: 1 import-export-expander? import-export-expander?) + (spec: 1 top-context? top-context?) + (spec: 1 bound-identifier=? bound-identifier=?) + (spec: 1 check-duplicate-identifiers check-duplicate-identifiers) + (spec: 1 make-import-export-expander make-import-export-expander) + (spec: 1 make-module-import make-module-import) + (spec: 1 module-import? module-import?) + (spec: 1 import-set? import-set?) + (spec: 1 import-set-source import-set-source) + (spec: 1 stx-cdr stx-cdr) + (spec: 1 binding? binding?) + (spec: 1 module-import-name module-import-name) + (spec: 1 stx-getq stx-getq) + (spec: 1 export-set-source export-set-source) + (spec: 1 macro-expand-syntax-case macro-expand-syntax-case) + (spec: 1 stx-ormap stx-ormap) + (spec: 1 stx-eqv? stx-eqv?) + (spec: 1 underscore? underscore?) + (spec: 1 datum->syntax datum->syntax) + (spec: 1 expander-context-id expander-context-id) + (spec: 1 module-context-export module-context-export) + (spec: 1 feature-expander? feature-expander?) + (spec: 1 user-expander-context user-expander-context) + (spec: 1 export-set-phi export-set-phi) + (spec: 1 stx-list? stx-list?) + (spec: 1 expander-e expander-e) + (spec: 1 core-expand core-expand) + (spec: 1 current-expander-path current-expander-path) + (spec: 1 expander-binding? expander-binding?) + (spec: 1 stx-car stx-car) + (spec: 1 stx-last stx-last) + (spec: 1 stx-pair/null? stx-pair/null?) + (spec: 1 binding-id binding-id) + (spec: 1 stx-number? stx-number?) + (spec: 1 syntax-local-unwrap syntax-local-unwrap) + (spec: 1 raise-syntax-error raise-syntax-error) (spec: 1 - !class-type-ordered-slots-set! - !class-type-ordered-slots-set!) + core-resolve-library-module-path + core-resolve-library-module-path) + (spec: 1 make-export-expander make-export-expander) + (spec: 1 export-set-exports export-set-exports) + (spec: 1 user-expander? user-expander?) + (spec: 1 top-binding? top-binding?) + (spec: 1 user-expander-phi user-expander-phi) + (spec: 1 stx-foldr stx-foldr) + (spec: 1 runtime-binding? runtime-binding?) + (spec: 1 module-context-code module-context-code) + (spec: 1 syntax-e syntax-e) + (spec: 1 stx-eq? stx-eq?) + (spec: 1 eval-syntax eval-syntax) + (spec: 1 syntax-local-pattern? syntax-local-pattern?) + (spec: 1 syntax-pattern? syntax-pattern?) + (spec: 1 import-module import-module) + (spec: 1 core-resolve-module-path core-resolve-module-path) + (spec: 1 import-binding? import-binding?) + (spec: 1 stx-box? stx-box?) + (spec: 1 import-expander? import-expander?) + (spec: 1 import-set-imports import-set-imports) + (spec: 1 syntax-pattern-id syntax-pattern-id) + (spec: 1 stx-datum? stx-datum?) + (spec: 1 stx-false? stx-false?) + (spec: 1 syntax-local-introduce syntax-local-introduce) + (spec: 1 stx-source stx-source) + (spec: 1 macro-expand-syntax macro-expand-syntax) + (spec: 1 stx-fixnum? stx-fixnum?) + (spec: 1 current-expander-marks current-expander-marks) + (spec: 1 module-context-import module-context-import) + (spec: 1 core-identifier=? core-identifier=?) + (spec: 1 module-context? module-context?) + (spec: 1 alias-binding? alias-binding?) + (spec: 1 syntax->datum syntax->datum) + (spec: 1 expander-binding-e expander-binding-e) + (spec: 1 expander? expander?) + (spec: 1 export-expander? export-expander?) + (spec: 1 module-export-context module-export-context) + (spec: 1 ellipsis? ellipsis?) + (spec: 1 import-set-phi import-set-phi) + (spec: 1 module-import-weak? module-import-weak?) + (spec: 1 extern-binding? extern-binding?) + (spec: 1 current-expander-compiling? current-expander-compiling?) + (spec: 1 make-local-context make-local-context) + (spec: 1 gentemps gentemps) + (spec: 1 module-context-ns module-context-ns) + (spec: 1 SyntaxCase SyntaxCase) + (spec: 1 SyntaxSugar SyntaxSugar) + (spec: 1 ExpanderRuntime ExpanderRuntime) + (spec: 2 !class-precedence-list !class-precedence-list) + (spec: 2 type-env-var type-env-var) + (spec: 2 type-env-type-set! type-env-type-set!) + (spec: 2 make-type-env make-type-env) + (spec: 2 &type-env-checked? &type-env-checked?) + (spec: 2 type-env-var-set! type-env-var-set!) + (spec: 2 type-env-checked? type-env-checked?) + (spec: 2 &type-env-type &type-env-type) + (spec: 2 type-env-type type-env-type) + (spec: 2 &type-env-var &type-env-var) + (spec: 2 type-env-lookup type-env-lookup) + (spec: 2 current-type-env current-type-env) + (spec: 2 &type-env-type-set! &type-env-type-set!) + (spec: 2 type-env type-env) + (spec: 2 type-env-checked?-set! type-env-checked?-set!) + (spec: 2 type-env::t type-env::t) + (spec: 2 type-env-super type-env-super) + (spec: 2 &type-env-super-set! &type-env-super-set!) + (spec: 2 type-env? type-env?) + (spec: 2 type-env-super-set! type-env-super-set!) + (spec: 2 &type-env-checked?-set! &type-env-checked?-set!) + (spec: 2 &type-env-var-set! &type-env-var-set!) + (spec: 2 &type-env-super &type-env-super) (spec: - 1 - !class-type-unchecked-accessors-set! - !class-type-unchecked-accessors-set!) + 2 + &interface-info-interface-methods + &interface-info-interface-methods) (spec: - 1 - &!class-type-ordered-slots-set! - &!class-type-ordered-slots-set!) - (spec: 1 &!class-type-super-set! &!class-type-super-set!) - (spec: 1 &!class-type-constructor &!class-type-constructor) - (spec: 1 &!class-type-predicate-set! &!class-type-predicate-set!) - (spec: 1 make-class-type-info make-class-type-info) + 2 + &interface-info-instance-try-constructor-set! + &interface-info-instance-try-constructor-set!) (spec: - 1 - !class-type-constructor-method-set! - !class-type-constructor-method-set!) + 2 + interface-info-interface-methods + interface-info-interface-methods) (spec: - 1 - class-type-info::apply-macro-expander - class-type-info::apply-macro-expander) - (spec: 1 !class-type-descriptor-set! !class-type-descriptor-set!) - (spec: 1 &!class-type-ordered-slots &!class-type-ordered-slots) - (spec: 1 &!class-type-metaclass-set! &!class-type-metaclass-set!) - (spec: 1 class-type-info? class-type-info?) - (spec: 1 !class-type-id-set! !class-type-id-set!) - (spec: 1 &!class-type-slot-types-set! &!class-type-slot-types-set!) + 2 + interface-info-instance-constructor + interface-info-instance-constructor) + (spec: + 2 + &interface-info-implementation-methods-set! + &interface-info-implementation-methods-set!) + (spec: + 2 + interface-info-interface-mixin-set! + interface-info-interface-mixin-set!) + (spec: + 2 + &interface-info-interface-precedence-list-set! + &interface-info-interface-precedence-list-set!) + (spec: + 2 + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) + (spec: + 2 + &interface-info-implementation-methods + &interface-info-implementation-methods) + (spec: + 2 + &interface-info-interface-methods-set! + &interface-info-interface-methods-set!) + (spec: + 2 + &interface-info-instance-predicate-set! + &interface-info-instance-predicate-set!) + (spec: + 2 + interface-mixin->precedence-list + interface-mixin->precedence-list) + (spec: + 2 + interface-info-instance-predicate-set! + interface-info-instance-predicate-set!) + (spec: 2 &interface-info-namespace &interface-info-namespace) + (spec: + 2 + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) + (spec: + 2 + interface-info-instance-try-constructor + interface-info-instance-try-constructor) + (spec: 2 interface-info-namespace-set! interface-info-namespace-set!) + (spec: + 2 + &interface-info-unchecked-implementation-methods-set! + &interface-info-unchecked-implementation-methods-set!) + (spec: 2 syntax-local-interface-info? syntax-local-interface-info?) + (spec: + 2 + interface-info-unchecked-implementation-methods + interface-info-unchecked-implementation-methods) + (spec: + 2 + interface-info-instance-try-constructor-set! + interface-info-instance-try-constructor-set!) + (spec: + 2 + &interface-info-instance-satisfies-predicate + &interface-info-instance-satisfies-predicate) + (spec: + 2 + interface-info-instance-predicate + interface-info-instance-predicate) + (spec: 2 interface-info-namespace interface-info-namespace) + (spec: + 2 + interface-info-instance-satisfies-predicate + interface-info-instance-satisfies-predicate) + (spec: 2 interface-info-name-set! interface-info-name-set!) + (spec: + 2 + interface-info-interface-descriptor-set! + interface-info-interface-descriptor-set!) + (spec: 2 &interface-info-name &interface-info-name) + (spec: + 2 + &interface-info-instance-try-constructor + &interface-info-instance-try-constructor) + (spec: + 2 + interface-info-interface-mixin + interface-info-interface-mixin) + (spec: + 2 + &interface-info-instance-predicate + &interface-info-instance-predicate) + (spec: + 2 + &interface-info-instance-type-set! + &interface-info-instance-type-set!) + (spec: + 2 + &interface-info-instance-satisfies-predicate-set! + &interface-info-instance-satisfies-predicate-set!) + (spec: + 2 + interface-info-implementation-methods-set! + interface-info-implementation-methods-set!) + (spec: 2 interface-info::t interface-info::t) + (spec: + 2 + interface-info-interface-precedence-list + interface-info-interface-precedence-list) + (spec: 2 make-interface-info make-interface-info) + (spec: + 2 + interface-info-implementation-methods + interface-info-implementation-methods) + (spec: + 2 + interface-info-interface-precedence-list-set! + interface-info-interface-precedence-list-set!) + (spec: + 2 + interface-info-interface-descriptor + interface-info-interface-descriptor) + (spec: + 2 + interface-info::apply-macro-expander + interface-info::apply-macro-expander) + (spec: + 2 + interface-info-interface-methods-set! + interface-info-interface-methods-set!) + (spec: 2 interface-info interface-info) + (spec: + 2 + interface-info-instance-satisfies-predicate-set! + interface-info-instance-satisfies-predicate-set!) + (spec: 2 &interface-info-name-set! &interface-info-name-set!) + (spec: + 2 + &interface-info-interface-precedence-list + &interface-info-interface-precedence-list) + (spec: 2 &interface-info-instance-type &interface-info-instance-type) + (spec: + 2 + interface-info-instance-type-set! + interface-info-instance-type-set!) + (spec: + 2 + &interface-info-interface-descriptor-set! + &interface-info-interface-descriptor-set!) + (spec: + 2 + interface-info-unchecked-implementation-methods-set! + interface-info-unchecked-implementation-methods-set!) + (spec: 2 interface-info-instance-type interface-info-instance-type) + (spec: + 2 + &interface-info-namespace-set! + &interface-info-namespace-set!) + (spec: + 2 + &interface-info-unchecked-implementation-methods + &interface-info-unchecked-implementation-methods) + (spec: 2 interface-info? interface-info?) (spec: - 1 - !class-type-unchecked-accessors - !class-type-unchecked-accessors) - (spec: 1 &!class-type-mutators-set! &!class-type-mutators-set!) - (spec: 1 &!class-type-name &!class-type-name) - (spec: 1 !class-type-name !class-type-name) - (spec: 1 !class-type-system? !class-type-system?) - (spec: 1 !class-type-accessors !class-type-accessors) - (spec: 1 !class-type-name-set! !class-type-name-set!) - (spec: 1 !class-type-metaclass !class-type-metaclass) - (spec: 1 !class-type-system?-set! !class-type-system?-set!) - (spec: 1 !class-type-constructor-set! !class-type-constructor-set!) - (spec: 1 !class-type-mutators-set! !class-type-mutators-set!) + 2 + &interface-info-interface-descriptor + &interface-info-interface-descriptor) (spec: - 1 - !class-type-slot-defaults-set! - !class-type-slot-defaults-set!) - (spec: 1 &!class-type-system? &!class-type-system?) - (spec: 1 &!class-type-constructor-set! &!class-type-constructor-set!) - (spec: 1 !class-type-super !class-type-super) + 2 + &interface-info-instance-constructor + &interface-info-instance-constructor) (spec: - 1 - !class-type-unchecked-mutators - !class-type-unchecked-mutators) + 2 + &interface-info-interface-mixin-set! + &interface-info-interface-mixin-set!) (spec: - 1 - &!class-type-unchecked-mutators - &!class-type-unchecked-mutators) - (spec: 1 &!class-type-struct?-set! &!class-type-struct?-set!) - (spec: 1 &!class-type-final? &!class-type-final?) - (spec: 1 !class-type-slot-types !class-type-slot-types) - (spec: 1 !class-type-constructor !class-type-constructor) - (spec: 1 &!class-type-final?-set! &!class-type-final?-set!) - (spec: 1 &!class-type-precedence-list &!class-type-precedence-list) - (spec: 1 !class-type-metaclass-set! !class-type-metaclass-set!) - (spec: 1 &!class-type-accessors &!class-type-accessors) - (spec: 1 !class-type-predicate !class-type-predicate) + 2 + interface-identifier->precedence-list + interface-identifier->precedence-list) + (spec: 2 interface-info-name interface-info-name) (spec: - 1 - &!class-type-unchecked-accessors-set! - &!class-type-unchecked-accessors-set!) - (spec: 1 syntax-local-class-type-info? syntax-local-class-type-info?) - (spec: 1 !class-type-accessors-set! !class-type-accessors-set!) + 2 + &interface-info-interface-mixin + &interface-info-interface-mixin) + (spec: 2 is-signature? is-signature?) + (spec: 1 @method @method) + (spec: 1 do-loop-step do-loop-step) + (spec: 1 defclass/c defclass/c) + (spec: 1 with-procedure-signature with-procedure-signature) + (spec: 1 def*/c def*/c) + (spec: 1 let/c let/c) + (spec: 1 defstruct/c defstruct/c) + (spec: 1 do-loop-result do-loop-result) + (spec: 1 defmethod/c defmethod/c) + (spec: 1 lambda/c lambda/c) + (spec: 1 with-receiver with-receiver) + (spec: 1 with-procedure-contract with-procedure-contract) + (spec: 1 defmutable* defmutable*) + (spec: 1 do-while/c do-while/c) + (spec: 1 defmutable defmutable) + (spec: 1 def/c def/c) + (spec: 1 do/c do/c) (spec: 1 - &!class-type-slot-contracts-set! - &!class-type-slot-contracts-set!) - (spec: 1 &!class-type-id &!class-type-id) - (spec: 1 !class-type-id !class-type-id) + with-procedure-unchecked-contract + with-procedure-unchecked-contract) + (spec: 1 case-lambda/c case-lambda/c) + (spec: 2 symbolidentifier resolve-type->identifier) + (spec: 2 resolve-type->type-descriptor resolve-type->type-descriptor) (spec: - 1 - &!class-type-constructor-method - &!class-type-constructor-method) - (spec: 1 !class-type-descriptor !class-type-descriptor) - (spec: 1 &!class-type-system?-set! &!class-type-system?-set!) + 2 + &type-reference-identifier-set! + &type-reference-identifier-set!) + (spec: 2 &type-reference-identifier &type-reference-identifier) + (spec: 2 type-reference? type-reference?) + (spec: 2 make-type-reference make-type-reference) + (spec: 2 type-reference::t type-reference::t) + (spec: 1 deftype deftype) + (spec: 1 TypeEnv TypeEnv) + (spec: 1 InterfaceInfo InterfaceInfo) + (spec: 1 TypeReference TypeReference) + (spec: 1 Using Using) + (spec: 1 Interface Interface) + (spec: 1 ClassMeta ClassMeta) + (spec: 1 TypedDefinitions TypedDefinitions) + (spec: 1 ContractRules ContractRules) + (spec: 1 TypeCast TypeCast) + (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 &setq-macro-macro-set! &setq-macro-macro-set!) + (spec: 2 setf-macro-macro-set! setf-macro-macro-set!) + (spec: 2 setf-macro::t setf-macro::t) + (spec: 2 expand-set! expand-set!) + (spec: 2 setq-macro::t setq-macro::t) + (spec: 2 setf-macro setf-macro) + (spec: 2 &setq-macro-macro &setq-macro-macro) + (spec: 2 make-setf-macro make-setf-macro) + (spec: 2 make-setq-macro make-setq-macro) + (spec: 2 setq-macro-macro setq-macro-macro) + (spec: 2 setq-macro? setq-macro?) + (spec: 2 &setf-macro-macro-set! &setf-macro-macro-set!) + (spec: 2 syntax-local-setq-macro? syntax-local-setq-macro?) + (spec: 2 setf-macro-macro setf-macro-macro) + (spec: 2 setf-macro? setf-macro?) + (spec: 2 syntax-local-setf-macro? syntax-local-setf-macro?) + (spec: 1 unwind-protect unwind-protect) + (spec: 1 eval-when-compile eval-when-compile) + (spec: 1 parameterize parameterize) + (spec: 1 values-set! values-set!) + (spec: 1 let/cc let/cc) + (spec: 1 @bytes @bytes) + (spec: 2 match-pattern? match-pattern?) + (spec: 2 syntax-local-match-macro? syntax-local-match-macro?) + (spec: 2 match-macro? match-macro?) + (spec: 2 make-match-macro make-match-macro) + (spec: 2 match-macro::t match-macro::t) + (spec: 2 match-macro match-macro) + (spec: 1 match* match*) + (spec: 1 with* with*) + (spec: 1 match match) + (spec: 1 defsyntax-for-match defsyntax-for-match) + (spec: 1 with with) + (spec: 1 ? ?) + (spec: 1 defrules-for-match defrules-for-match) + (spec: 1 class class) + (spec: 1 :string-port :string-port) + (spec: 1 :character-port :character-port) + (spec: 1 :real :real) + (spec: 1 :u8vector-port :u8vector-port) + (spec: 1 :event-queue-port :event-queue-port) + (spec: 1 :symbol :symbol) + (spec: 1 :number :number) + (spec: 1 :s16vector :s16vector) + (spec: 1 :true :true) + (spec: 1 :thread :thread) + (spec: 1 :readtable :readtable) + (spec: 1 :time :time) + (spec: 1 :pair :pair) + (spec: 1 :s8vector :s8vector) + (spec: 1 :symbolic :symbolic) + (spec: 1 defsystem-class-info defsystem-class-info) + (spec: 1 :box :box) + (spec: 1 :byte-port :byte-port) + (spec: 1 :s32vector :s32vector) + (spec: 1 :tcp-server-port :tcp-server-port) + (spec: 1 :file-info :file-info) + (spec: 1 :hvector :hvector) + (spec: 1 :char :char) + (spec: 1 :void :void) + (spec: 1 :cpxnum :cpxnum) + (spec: 1 :u8vector :u8vector) + (spec: 1 :integer :integer) + (spec: 1 :u32vector :u32vector) + (spec: 1 :ratnum :ratnum) + (spec: 1 :thread-group :thread-group) + (spec: 1 :keyword :keyword) + (spec: 1 :f64vector :f64vector) + (spec: 1 :condvar :condvar) + (spec: 1 :vector-port :vector-port) + (spec: 1 :table :table) + (spec: 1 :vm :vm) + (spec: 1 :u16vector :u16vector) + (spec: 1 :socket-info :socket-info) + (spec: 1 :procedure :procedure) + (spec: 1 :sequence :sequence) + (spec: 1 :string :string) + (spec: 1 :flonum :flonum) + (spec: 1 :f32vector :f32vector) + (spec: 1 :continuation :continuation) + (spec: 1 :list :list) + (spec: 1 :object :object) + (spec: 1 :special :special) + (spec: 1 :null :null) + (spec: 1 :foreign :foreign) + (spec: 1 :promise :promise) + (spec: 1 :object-port :object-port) + (spec: 1 :raw-device-port :raw-device-port) + (spec: 1 :s64vector :s64vector) + (spec: 1 :weak :weak) + (spec: 1 :port :port) + (spec: 1 :directory-port :directory-port) + (spec: 1 :readenv :readenv) + (spec: 1 :address-info :address-info) + (spec: 1 :bignum :bignum) + (spec: 1 :t :t) + (spec: 1 :vector :vector) + (spec: 1 :values :values) + (spec: 1 :mutex :mutex) + (spec: 1 :writeenv :writeenv) + (spec: 1 :u64vector :u64vector) + (spec: 1 :false :false) + (spec: 1 :processor :processor) + (spec: 1 :device-port :device-port) + (spec: 1 :frame :frame) + (spec: 1 :atom :atom) + (spec: 1 :fixnum :fixnum) + (spec: 1 :immediate :immediate) + (spec: 1 :boolean :boolean) + (spec: 1 :class :class) + (spec: 1 :eof :eof) + (spec: 1 :udp-port :udp-port) + (spec: 1 @ @) + (spec: 1 @-set! @-set!) + (spec: 1 define-class define-class) + (spec: 1 define-struct define-struct) (spec: 1 defstruct-type defstruct-type) (spec: 1 defclass-type defclass-type) - (spec: 1 make-class-type-id make-class-type-id) - (spec: 1 module-type-id module-type-id) - (spec: 1 defsyntax defsyntax) - (spec: 1 defconst defconst) - (spec: 1 definline definline) - (spec: 1 ~case-dispatch* ~case-dispatch*) - (spec: 1 defvalues defvalues) - (spec: 1 delay delay) - (spec: 1 case case) - (spec: 1 ~case-dispatch ~case-dispatch) - (spec: 1 quasiquote quasiquote) - (spec: 1 cut cut) - (spec: 1 begin0 begin0) - (spec: 1 ~case-dispatch-bsearch ~case-dispatch-bsearch) - (spec: 1 alet alet) - (spec: 1 <> <>) - (spec: 1 ~case ~case) - (spec: 1 <...> <...>) - (spec: 1 ~case-test ~case-test) - (spec: 1 rec rec) - (spec: 1 alet* alet*) - (spec: 1 and-let* and-let*) - (spec: 1 @list @list) - (spec: 1 letrec* letrec*) - (spec: 1 and and) - (spec: 1 defrules defrules) - (spec: 1 define-rules define-rules) - (spec: 1 cond cond) - (spec: 1 let* let*) - (spec: 1 unless unless) - (spec: 1 let*-values let*-values) - (spec: 1 ~let ~let) - (spec: 1 syntax-error syntax-error) - (spec: 1 defalias defalias) - (spec: 1 defrule defrule) - (spec: 1 or or) - (spec: 1 when when) - (spec: 1 define define) - (spec: 1 defsyntax% defsyntax%) - (spec: 1 letrec letrec) - (spec: 1 call/parameters call/parameters) - (spec: 1 vector-ref-set! vector-ref-set!) - (spec: 1 s32vector-ref-set! s32vector-ref-set!) - (spec: 1 string-ref-set! string-ref-set!) - (spec: 1 cdr-set! cdr-set!) - (spec: 1 s64vector-ref-set! s64vector-ref-set!) - (spec: 1 car-set! car-set!) - (spec: 1 s16vector-ref-set! s16vector-ref-set!) - (spec: 1 random-source-make-bytes random-source-make-bytes) - (spec: 1 s8vector-ref-set! s8vector-ref-set!) - (spec: 1 u8vector-ref-set! u8vector-ref-set!) - (spec: 1 u64vector-ref-set! u64vector-ref-set!) - (spec: 1 u32vector-ref-set! u32vector-ref-set!) - (spec: 1 call/values call/values) - (spec: 1 f64vector-ref-set! f64vector-ref-set!) - (spec: 1 random-bytes random-bytes) - (spec: 1 f32vector-ref-set! f32vector-ref-set!) - (spec: 1 u16vector-ref-set! u16vector-ref-set!) - (spec: 1 box-set! box-set!) - (spec: 1 number::t number::t) - (spec: 1 symbol->keyword symbol->keyword) - (spec: 1 f64vector::t f64vector::t) - (spec: 1 hash-key? hash-key?) - (spec: 1 s16vector::t s16vector::t) - (spec: 1 displayln displayln) - (spec: 1 string->bytes string->bytes) - (spec: 1 condvar::t condvar::t) - (spec: 1 AST-e AST-e) - (spec: 1 class-type-final? class-type-final?) - (spec: 1 class-instance-init! class-instance-init!) - (spec: 1 raise-unbound-key-error raise-unbound-key-error) - (spec: 1 class-type-properties class-type-properties) - (spec: 1 u16vector::t u16vector::t) - (spec: 1 foreign::t foreign::t) - (spec: 1 object::t object::t) - (spec: 1 gerbil-greeting gerbil-greeting) - (spec: 1 interned-keyword? interned-keyword?) - (spec: 1 char::t char::t) - (spec: 1 promise::t promise::t) - (spec: 1 error? error?) - (spec: 1 make-symbolic-table make-symbolic-table) - (spec: 1 fixnum::t fixnum::t) - (spec: 1 plist->hash-table-eqv plist->hash-table-eqv) - (spec: 1 cpxnum::t cpxnum::t) - (spec: 1 load-path load-path) - (spec: 1 class-instance? class-instance?) - (spec: 1 keyword::t keyword::t) - (spec: 1 remove1 remove1) - (spec: 1 read-u8vector read-u8vector) - (spec: 1 with-dynamic-lock with-dynamic-lock) - (spec: 1 pget pget) - (spec: 1 fx1+ fx1+) - (spec: 1 make-promise make-promise) - (spec: 1 values-ref values-ref) - (spec: 1 immediate-instance-of? immediate-instance-of?) - (spec: 1 object? object?) - (spec: 1 method-ref method-ref) - (spec: 1 string-split string-split) - (spec: 1 flonum::t flonum::t) - (spec: 1 andmap andmap) - (spec: 1 u8vector::t u8vector::t) - (spec: 1 create-directory* create-directory*) - (spec: 1 slot-ref slot-ref) - (spec: 1 character-port::t character-port::t) - (spec: 1 event-queue-port::t event-queue-port::t) - (spec: 1 remv remv) - (spec: 1 interface-instance::t interface-instance::t) - (spec: 1 make-hash-table-eq make-hash-table-eq) - (spec: 1 class-type-fields class-type-fields) - (spec: 1 plist->hash-table-immediate plist->hash-table-immediate) + (spec: 1 MOP-4 MOP-4) + (spec: 1 MOP-1 MOP-1) + (spec: 1 MOP-2 MOP-2) + (spec: 1 MOP-5 MOP-5) + (spec: 1 MOP-3 MOP-3) + (spec: 1 class class) + (spec: 1 :string-port :string-port) + (spec: 1 :character-port :character-port) + (spec: 1 :real :real) + (spec: 1 :u8vector-port :u8vector-port) + (spec: 1 :event-queue-port :event-queue-port) + (spec: 1 :symbol :symbol) + (spec: 1 :number :number) + (spec: 1 :s16vector :s16vector) + (spec: 1 :true :true) + (spec: 1 :thread :thread) + (spec: 1 :readtable :readtable) + (spec: 1 :time :time) + (spec: 1 :pair :pair) + (spec: 1 :s8vector :s8vector) + (spec: 1 :symbolic :symbolic) + (spec: 1 defsystem-class-info defsystem-class-info) + (spec: 1 :box :box) + (spec: 1 :byte-port :byte-port) + (spec: 1 :s32vector :s32vector) + (spec: 1 :tcp-server-port :tcp-server-port) + (spec: 1 :file-info :file-info) + (spec: 1 :hvector :hvector) + (spec: 1 :char :char) + (spec: 1 :void :void) + (spec: 1 :cpxnum :cpxnum) + (spec: 1 :u8vector :u8vector) + (spec: 1 :integer :integer) + (spec: 1 :u32vector :u32vector) + (spec: 1 :ratnum :ratnum) + (spec: 1 :thread-group :thread-group) + (spec: 1 :keyword :keyword) + (spec: 1 :f64vector :f64vector) + (spec: 1 :condvar :condvar) + (spec: 1 :vector-port :vector-port) + (spec: 1 :table :table) + (spec: 1 :vm :vm) + (spec: 1 :u16vector :u16vector) + (spec: 1 :socket-info :socket-info) + (spec: 1 :procedure :procedure) + (spec: 1 :sequence :sequence) + (spec: 1 :string :string) + (spec: 1 :flonum :flonum) + (spec: 1 :f32vector :f32vector) + (spec: 1 :continuation :continuation) + (spec: 1 :list :list) + (spec: 1 :object :object) + (spec: 1 :special :special) + (spec: 1 :null :null) + (spec: 1 :foreign :foreign) + (spec: 1 :promise :promise) + (spec: 1 :object-port :object-port) + (spec: 1 :raw-device-port :raw-device-port) + (spec: 1 :s64vector :s64vector) + (spec: 1 :weak :weak) + (spec: 1 :port :port) + (spec: 1 :directory-port :directory-port) + (spec: 1 :readenv :readenv) + (spec: 1 :address-info :address-info) + (spec: 1 :bignum :bignum) + (spec: 1 :t :t) + (spec: 1 :vector :vector) + (spec: 1 :values :values) + (spec: 1 :mutex :mutex) + (spec: 1 :writeenv :writeenv) + (spec: 1 :u64vector :u64vector) + (spec: 1 :false :false) + (spec: 1 :processor :processor) + (spec: 1 :device-port :device-port) + (spec: 1 :frame :frame) + (spec: 1 :atom :atom) + (spec: 1 :fixnum :fixnum) + (spec: 1 :immediate :immediate) + (spec: 1 :boolean :boolean) + (spec: 1 :class :class) + (spec: 1 :eof :eof) + (spec: 1 :udp-port :udp-port) + (spec: 1 @ @) + (spec: 1 @-set! @-set!) + (spec: 1 define-class define-class) + (spec: 1 define-struct define-struct) + (spec: 1 class-type-info class-type-info) + (spec: 1 !class-type-super-set! !class-type-super-set!) (spec: 1 - raise-contract-violation-error - raise-contract-violation-error) - (spec: 1 class-type? class-type?) - (spec: 1 &interface-instance-object &interface-instance-object) - (spec: 1 class-type-precedence-list class-type-precedence-list) - (spec: 1 &class-type-properties &class-type-properties) - (spec: 1 try-cast try-cast) - (spec: 1 fx1- fx1-) - (spec: 1 object-port? object-port?) - (spec: 1 gerbil-path gerbil-path) - (spec: 1 values::t values::t) - (spec: 1 build-manifest/head build-manifest/head) - (spec: 1 procedure::t procedure::t) - (spec: 1 udp-port::t udp-port::t) - (spec: 1 string-rindex string-rindex) - (spec: 1 eof::t eof::t) - (spec: 1 with-exception-catcher with-exception-catcher) - (spec: 1 error-message error-message) - (spec: 1 interface-instance? interface-instance?) - (spec: 1 with-exception-stack-trace with-exception-stack-trace) - (spec: 1 current-thread-group current-thread-group) - (spec: 1 s8vector::t s8vector::t) - (spec: 1 string-empty? string-empty?) - (spec: 1 HashTableLock::interface HashTableLock::interface) - (spec: 1 dssl-object? dssl-object?) - (spec: 1 direct-instance? direct-instance?) - (spec: 1 make-hash-table-eqv make-hash-table-eqv) - (spec: 1 class->list class->list) - (spec: 1 class::t class::t) - (spec: 1 remf remf) - (spec: 1 syntax-error? syntax-error?) - (spec: 1 read-syntax-from-file read-syntax-from-file) - (spec: 1 bind-specializer! bind-specializer!) - (spec: 1 true? true?) - (spec: 1 object-type object-type) - (spec: 1 pair::t pair::t) - (spec: 1 values->list values->list) - (spec: 1 immediate? immediate?) - (spec: 1 build-manifest/layer build-manifest/layer) - (spec: 1 hvector::t hvector::t) - (spec: 1 eq-hash eq-hash) - (spec: 1 u8vector-port::t u8vector-port::t) - (spec: 1 processor::t processor::t) - (spec: 1 symbol::t symbol::t) - (spec: 1 address-info::t address-info::t) - (spec: 1 file-info::t file-info::t) - (spec: 1 error-trace error-trace) - (spec: 1 1+ 1+) - (spec: 1 string-hash string-hash) - (spec: 1 make-keyword make-keyword) - (spec: 1 dssl-optional-object? dssl-optional-object?) - (spec: 1 constructor-init! constructor-init!) - (spec: 1 direct-method-ref direct-method-ref) - (spec: 1 writeenv::t writeenv::t) - (spec: 1 raw-device-port? raw-device-port?) - (spec: 1 with-catch with-catch) - (spec: 1 cast cast) - (spec: 1 &class-type-precedence-list &class-type-precedence-list) - (spec: 1 pgetq pgetq) - (spec: 1 fx/ fx/) - (spec: 1 class-type-slot-list class-type-slot-list) - (spec: 1 hvector? hvector?) - (spec: 1 values-count values-count) - (spec: 1 checked-bound-method-ref checked-bound-method-ref) - (spec: 1 bytes->string bytes->string) - (spec: 1 u8vector-port? u8vector-port?) - (spec: 1 interface-descriptor-methods interface-descriptor-methods) - (spec: 1 satisfies? satisfies?) - (spec: 1 new-instance new-instance) - (spec: 1 foldl foldl) - (spec: 1 aget aget) - (spec: 1 slot-set! slot-set!) - (spec: 1 false::t false::t) - (spec: 1 1- 1-) - (spec: 1 s32vector::t s32vector::t) - (spec: 1 HashTableLock::t HashTableLock::t) - (spec: 1 make-hash-table make-hash-table) - (spec: 1 device-port::t device-port::t) - (spec: 1 list->hash-table list->hash-table) - (spec: 1 class-type-flags class-type-flags) - (spec: 1 interned-symbol? interned-symbol?) - (spec: 1 plist->hash-table-eq plist->hash-table-eq) - (spec: 1 hash-put! hash-put!) - (spec: 1 hash->list hash->list) - (spec: 1 class-type-slot-table class-type-slot-table) - (spec: 1 boolean::t boolean::t) - (spec: 1 hash-map hash-map) - (spec: 1 fx=0? fx=0?) - (spec: 1 cons* cons*) - (spec: 1 symblic-hash symblic-hash) - (spec: 1 integer::t integer::t) - (spec: 1 vector-port? vector-port?) - (spec: 1 hash-merge! hash-merge!) - (spec: 1 spawn/group spawn/group) - (spec: 1 t::t t::t) - (spec: 1 mutex::t mutex::t) - (spec: 1 error-object? error-object?) - (spec: 1 thread-local-ref thread-local-ref) - (spec: 1 thread-local-get thread-local-get) - (spec: 1 s64vector::t s64vector::t) - (spec: 1 make-class-slot-accessor make-class-slot-accessor) - (spec: 1 with-lock with-lock) - (spec: 1 dssl-key-object? dssl-key-object?) - (spec: 1 device-port? device-port?) - (spec: 1 &class-type-fields &class-type-fields) - (spec: 1 make-hash-table-symbolic make-hash-table-symbolic) - (spec: 1 with-unwind-protect with-unwind-protect) - (spec: 1 class-of class-of) - (spec: 1 ratnum::t ratnum::t) - (spec: 1 &class-type-slot-vector &class-type-slot-vector) - (spec: 1 class-type-seal! class-type-seal!) - (spec: 1 spawn/name spawn/name) - (spec: 1 thread::t thread::t) - (spec: 1 fx>0? fx>0?) - (spec: 1 vector::t vector::t) - (spec: 1 gerbil-system gerbil-system) - (spec: 1 immediate::t immediate::t) - (spec: 1 eof-object eof-object) - (spec: 1 byte-port::t byte-port::t) - (spec: 1 character-port? character-port?) - (spec: 1 event-queue-port? event-queue-port?) - (spec: 1 as-string as-string) - (spec: 1 interface-cast-error? interface-cast-error?) - (spec: 1 agetv agetv) - (spec: 1 symbolic-table-delete! symbolic-table-delete!) - (spec: 1 make-class-slot-mutator make-class-slot-mutator) - (spec: 1 socket-info::t socket-info::t) - (spec: 1 plist->hash-table-string plist->hash-table-string) - (spec: 1 string-index string-index) - (spec: 1 hash-copy hash-copy) - (spec: 1 list->hash-table-eqv list->hash-table-eqv) - (spec: 1 raw-device-port::t raw-device-port::t) - (spec: 1 hash-merge hash-merge) - (spec: 1 make-syntax-error make-syntax-error) - (spec: 1 AST? AST?) - (spec: 1 make-AST make-AST) - (spec: 1 class-type-sealed? class-type-sealed?) - (spec: 1 AST-source AST-source) - (spec: 1 thread-local-set! thread-local-set!) - (spec: 1 replx replx) - (spec: 1 fx<0? fx<0?) - (spec: 1 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 1 udp-port? udp-port?) - (spec: 1 max-char-code max-char-code) - (spec: 1 reload-module! reload-module!) - (spec: 1 gerbil-load-expander! gerbil-load-expander!) - (spec: 1 hash-find hash-find) - (spec: 1 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 1 tcp-server-port::t tcp-server-port::t) - (spec: 1 agetq agetq) - (spec: 1 symbolic-table-ref symbolic-table-ref) - (spec: 1 source-location-path source-location-path) - (spec: 1 display* display*) - (spec: 1 &class-type-constructor &class-type-constructor) - (spec: 1 make-hash-table-immediate make-hash-table-immediate) - (spec: 1 list->hash-table-immediate list->hash-table-immediate) - (spec: 1 &class-type-slot-table &class-type-slot-table) - (spec: 1 readtable::t readtable::t) - (spec: 1 hash-remove! hash-remove!) - (spec: 1 fx<=0? fx<=0?) - (spec: 1 vector-port::t vector-port::t) - (spec: 1 gerbil-runtime-smp? gerbil-runtime-smp?) - (spec: 1 with-exception-handler with-exception-handler) - (spec: 1 unbound-key-error? unbound-key-error?) - (spec: 1 struct-copy struct-copy) - (spec: 1 foldr foldr) - (spec: 1 file-newer? file-newer?) - (spec: 1 remq remq) - (spec: 1 make-class-predicate make-class-predicate) - (spec: 1 table::t table::t) - (spec: 1 seal-class! seal-class!) - (spec: 1 dssl-rest-object? dssl-rest-object?) + class-type-info::apply-macro-expander + class-type-info::apply-macro-expander) + (spec: 1 &!class-type-system?-set! &!class-type-system?-set!) + (spec: 1 !class-type-mutators !class-type-mutators) + (spec: 1 &!class-type-metaclass &!class-type-metaclass) + (spec: 1 !class-type-name !class-type-name) + (spec: 1 !class-type-final? !class-type-final?) + (spec: 1 !class-type-descriptor !class-type-descriptor) + (spec: 1 !class-type-metaclass-set! !class-type-metaclass-set!) + (spec: 1 !class-type-predicate-set! !class-type-predicate-set!) + (spec: + 1 + !class-type-unchecked-mutators-set! + !class-type-unchecked-mutators-set!) + (spec: 1 !class-type-slot-types-set! !class-type-slot-types-set!) + (spec: 1 !class-type-final?-set! !class-type-final?-set!) + (spec: + 1 + !class-type-slot-contracts-set! + !class-type-slot-contracts-set!) + (spec: 1 &!class-type-precedence-list &!class-type-precedence-list) + (spec: 1 &!class-type-final? &!class-type-final?) + (spec: + 1 + &!class-type-constructor-method + &!class-type-constructor-method) + (spec: 1 &!class-type-descriptor &!class-type-descriptor) + (spec: + 1 + &!class-type-unchecked-accessors + &!class-type-unchecked-accessors) + (spec: 1 &!class-type-slot-contracts &!class-type-slot-contracts) + (spec: 1 &!class-type-super-set! &!class-type-super-set!) + (spec: + 1 + &!class-type-ordered-slots-set! + &!class-type-ordered-slots-set!) + (spec: 1 &!class-type-struct?-set! &!class-type-struct?-set!) + (spec: 1 &!class-type-metaclass-set! &!class-type-metaclass-set!) + (spec: 1 &!class-type-accessors-set! &!class-type-accessors-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-slots &!class-type-slots) + (spec: 1 !class-type-name-set! !class-type-name-set!) + (spec: 1 &!class-type-ordered-slots &!class-type-ordered-slots) + (spec: 1 !class-type-predicate !class-type-predicate) + (spec: 1 !class-type-accessors-set! !class-type-accessors-set!) (spec: 1 - datum-parsing-exception-filepos - datum-parsing-exception-filepos) - (spec: 1 special::t special::t) - (spec: 1 class-type-metaclass? class-type-metaclass?) - (spec: 1 directory-port::t directory-port::t) - (spec: 1 make-hash-table-string make-hash-table-string) - (spec: 1 hash->plist hash->plist) - (spec: 1 hash-fold hash-fold) - (spec: 1 class-type-struct? class-type-struct?) - (spec: 1 byte-port? byte-port?) - (spec: 1 build-manifest build-manifest) - (spec: 1 hash-ref hash-ref) - (spec: 1 ormap ormap) - (spec: 1 gerbil-version-string gerbil-version-string) - (spec: 1 vm? vm?) - (spec: 1 unchecked-slot-set! unchecked-slot-set!) - (spec: 1 absent-obj absent-obj) - (spec: 1 struct-instance-init! struct-instance-init!) - (spec: 1 next-method next-method) - (spec: 1 hash-for-each hash-for-each) - (spec: 1 filter-map filter-map) - (spec: 1 hash-clear! hash-clear!) - (spec: 1 continuation::t continuation::t) - (spec: 1 dump-stack-trace! dump-stack-trace!) - (spec: 1 special? special?) - (spec: 1 directory-port? directory-port?) - (spec: 1 &class-type-id &class-type-id) - (spec: 1 is-hash-table? is-hash-table?) - (spec: 1 list->hash-table-eq list->hash-table-eq) - (spec: 1 readenv::t readenv::t) - (spec: 1 bound-method-ref bound-method-ref) - (spec: 1 HashTable::interface HashTable::interface) - (spec: 1 interface-descriptor-type interface-descriptor-type) - (spec: 1 void::t void::t) - (spec: 1 absent-value absent-value) - (spec: 1 eqv-hash eqv-hash) - (spec: 1 string::t string::t) - (spec: 1 assget assget) - (spec: 1 find find) - (spec: 1 symbolic::t symbolic::t) - (spec: 1 null::t null::t) - (spec: 1 thread-group::t thread-group::t) - (spec: 1 spawn spawn) - (spec: 1 set-load-path! set-load-path!) - (spec: 1 string-port::t string-port::t) - (spec: 1 class-type-id class-type-id) - (spec: 1 list::t list::t) - (spec: 1 raise raise) - (spec: 1 keyword-dispatch keyword-dispatch) - (spec: 1 class-type-slot-vector class-type-slot-vector) - (spec: 1 readenv? readenv?) - (spec: 1 box::t box::t) - (spec: 1 pgetv pgetv) - (spec: 1 fx>=0? fx>=0?) - (spec: 1 bignum::t bignum::t) - (spec: 1 gerbil-system-manifest gerbil-system-manifest) - (spec: 1 c4-linearize c4-linearize) - (spec: 1 time::t time::t) - (spec: 1 port::t port::t) - (spec: 1 exception? exception?) - (spec: 1 struct->list struct->list) - (spec: 1 interface-instance-object interface-instance-object) - (spec: 1 hash-table? hash-table?) - (spec: 1 symbolic? symbolic?) - (spec: 1 HashTable::t HashTable::t) - (spec: 1 thread-local-delete! thread-local-delete!) + !class-type-ordered-slots-set! + !class-type-ordered-slots-set!) + (spec: 1 !class-type-struct?-set! !class-type-struct?-set!) + (spec: 1 &!class-type-predicate &!class-type-predicate) + (spec: 1 !class-type-super !class-type-super) + (spec: 1 &!class-type-mutators &!class-type-mutators) + (spec: 1 !class-type-system?-set! !class-type-system?-set!) + (spec: 1 !class-type-constructor-set! !class-type-constructor-set!) + (spec: 1 &!class-type-slot-types-set! &!class-type-slot-types-set!) + (spec: 1 !class-type-slot-defaults !class-type-slot-defaults) (spec: 1 - make-class-slot-unchecked-accessor - make-class-slot-unchecked-accessor) - (spec: 1 make-object make-object) - (spec: 1 string-port? string-port?) - (spec: 1 &class-type-flags &class-type-flags) - (spec: 1 checked-method-ref checked-method-ref) - (spec: 1 keyword-rest keyword-rest) - (spec: 1 class-type-system? class-type-system?) - (spec: 1 return::t return::t) - (spec: 1 class-type-name class-type-name) - (spec: 1 &class-type-super &class-type-super) - (spec: 1 bind-method! bind-method!) - (spec: 1 fxshift fxshift) - (spec: 1 gerbil-system-version-string gerbil-system-version-string) - (spec: 1 call-with-parameters call-with-parameters) - (spec: 1 unchecked-slot-ref unchecked-slot-ref) - (spec: 1 vm::t vm::t) - (spec: 1 error error) - (spec: 1 hash-update! hash-update!) - (spec: 1 make-symbol make-symbol) - (spec: 1 tcp-server-port? tcp-server-port?) - (spec: 1 hash-keys hash-keys) - (spec: 1 symbolic-table-set! symbolic-table-set!) - (spec: 1 load-module load-module) - (spec: 1 source-location-path? source-location-path?) + !class-type-constructor-method-set! + !class-type-constructor-method-set!) + (spec: 1 !class-type-mutators-set! !class-type-mutators-set!) + (spec: 1 &!class-type-id &!class-type-id) (spec: 1 - make-class-slot-unchecked-mutator - make-class-slot-unchecked-mutator) - (spec: 1 display-as-string display-as-string) - (spec: 1 sequence::t sequence::t) - (spec: 1 class-type-field-count class-type-field-count) - (spec: 1 list->hash-table-string list->hash-table-string) - (spec: 1 read-syntax read-syntax) + &!class-type-unchecked-mutators + &!class-type-unchecked-mutators) + (spec: + 1 + &!class-type-precedence-list-set! + &!class-type-precedence-list-set!) + (spec: 1 make-class-type-info make-class-type-info) + (spec: 1 !class-type-descriptor-set! !class-type-descriptor-set!) + (spec: 1 &!class-type-slot-defaults &!class-type-slot-defaults) + (spec: 1 &!class-type-final?-set! &!class-type-final?-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-ordered-slots !class-type-ordered-slots) + (spec: 1 !class-type-system? !class-type-system?) + (spec: 1 &!class-type-accessors &!class-type-accessors) + (spec: 1 !class-type-metaclass !class-type-metaclass) + (spec: + 1 + &!class-type-unchecked-mutators-set! + &!class-type-unchecked-mutators-set!) + (spec: 1 &!class-type-super &!class-type-super) + (spec: + 1 + !class-type-slot-defaults-set! + !class-type-slot-defaults-set!) + (spec: + 1 + &!class-type-constructor-method-set! + &!class-type-constructor-method-set!) + (spec: 1 !class-type-slot-types !class-type-slot-types) + (spec: 1 !class-type-precedence-list !class-type-precedence-list) + (spec: 1 !class-type-accessors !class-type-accessors) + (spec: 1 !class-type-slot-contracts !class-type-slot-contracts) + (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-slots-set! &!class-type-slots-set!) + (spec: 1 class-type-info::t class-type-info::t) + (spec: 1 !class-type-slots !class-type-slots) + (spec: 1 &!class-type-name &!class-type-name) + (spec: 1 class-type-info? class-type-info?) + (spec: 1 &!class-type-struct? &!class-type-struct?) + (spec: 1 !class-type-id-set! !class-type-id-set!) + (spec: + 1 + !class-type-unchecked-accessors-set! + !class-type-unchecked-accessors-set!) + (spec: + 1 + &!class-type-slot-contracts-set! + &!class-type-slot-contracts-set!) + (spec: 1 &!class-type-mutators-set! &!class-type-mutators-set!) + (spec: 1 !class-type-id !class-type-id) + (spec: 1 !class-type-struct? !class-type-struct?) + (spec: + 1 + !class-type-constructor-method + !class-type-constructor-method) + (spec: 1 !class-type-constructor !class-type-constructor) + (spec: 1 !class-type-slots-set! !class-type-slots-set!) + (spec: + 1 + !class-type-precedence-list-set! + !class-type-precedence-list-set!) + (spec: 1 &!class-type-system? &!class-type-system?) + (spec: + 1 + !class-type-unchecked-accessors + !class-type-unchecked-accessors) + (spec: 1 &!class-type-constructor &!class-type-constructor) + (spec: 1 &!class-type-id-set! &!class-type-id-set!) + (spec: + 1 + !class-type-unchecked-mutators + !class-type-unchecked-mutators) + (spec: 1 &!class-type-slot-types &!class-type-slot-types) + (spec: 1 &!class-type-constructor-set! &!class-type-constructor-set!) + (spec: 1 defstruct-type defstruct-type) + (spec: 1 defclass-type defclass-type) + (spec: 1 make-class-type-id make-class-type-id) + (spec: 1 module-type-id module-type-id) + (spec: 1 defsyntax defsyntax) + (spec: 1 definline definline) + (spec: 1 defconst defconst) + (spec: 1 ~case-dispatch* ~case-dispatch*) + (spec: 1 ~case-dispatch-bsearch ~case-dispatch-bsearch) + (spec: 1 quasiquote quasiquote) + (spec: 1 defvalues defvalues) + (spec: 1 <> <>) + (spec: 1 rec rec) + (spec: 1 delay delay) + (spec: 1 <...> <...>) + (spec: 1 and-let* and-let*) + (spec: 1 ~case-test ~case-test) + (spec: 1 ~case-dispatch ~case-dispatch) + (spec: 1 begin0 begin0) + (spec: 1 alet* alet*) + (spec: 1 cut cut) + (spec: 1 alet alet) + (spec: 1 @list @list) + (spec: 1 ~case ~case) + (spec: 1 case case) + (spec: 1 when when) + (spec: 1 or or) + (spec: 1 defalias defalias) + (spec: 1 define-rules define-rules) + (spec: 1 letrec letrec) + (spec: 1 defrules defrules) + (spec: 1 defrule defrule) + (spec: 1 define define) + (spec: 1 let*-values let*-values) + (spec: 1 let* let*) + (spec: 1 and and) + (spec: 1 cond cond) + (spec: 1 syntax-error syntax-error) + (spec: 1 unless unless) + (spec: 1 ~let ~let) + (spec: 1 letrec* letrec*) + (spec: 1 defsyntax% defsyntax%) + (spec: 1 compilation-target? compilation-target?) + (spec: 1 f32vector-ref-set! f32vector-ref-set!) + (spec: 1 box-set! box-set!) + (spec: 1 u16vector-ref-set! u16vector-ref-set!) + (spec: 1 random-bytes random-bytes) + (spec: 1 f64vector-ref-set! f64vector-ref-set!) + (spec: 1 vector-ref-set! vector-ref-set!) + (spec: 1 s8vector-ref-set! s8vector-ref-set!) + (spec: 1 cdr-set! cdr-set!) + (spec: 1 car-set! car-set!) + (spec: 1 s16vector-ref-set! s16vector-ref-set!) + (spec: 1 call/parameters call/parameters) + (spec: 1 s32vector-ref-set! s32vector-ref-set!) + (spec: 1 string-ref-set! string-ref-set!) + (spec: 1 u64vector-ref-set! u64vector-ref-set!) + (spec: 1 random-source-make-bytes random-source-make-bytes) + (spec: 1 u32vector-ref-set! u32vector-ref-set!) + (spec: 1 u8vector-ref-set! u8vector-ref-set!) + (spec: 1 s64vector-ref-set! s64vector-ref-set!) + (spec: 1 call/values call/values) + (spec: 1 make-symbolic-table make-symbolic-table) + (spec: 1 build-manifest/head build-manifest/head) + (spec: 1 make-keyword make-keyword) + (spec: 1 fx<0? fx<0?) + (spec: 1 cons* cons*) (spec: 1 class-type=? class-type=?) - (spec: 1 writenv? writenv?) - (spec: 1 u32vector::t u32vector::t) - (spec: 1 atom::t atom::t) - (spec: 1 true true) - (spec: 1 gerbil-greeting-set! gerbil-greeting-set!) - (spec: 1 procedure-hash procedure-hash) - (spec: 1 frame::t frame::t) - (spec: 1 substring->bytes substring->bytes) - (spec: 1 memf memf) - (spec: 1 weak::t weak::t) - (spec: 1 find-method find-method) - (spec: 1 object-fill! object-fill!) + (spec: 1 make-AST make-AST) (spec: 1 error-irritants error-irritants) - (spec: 1 interface-descriptor? interface-descriptor?) - (spec: 1 display-exception display-exception) - (spec: 1 sequence? sequence?) - (spec: 1 display-build-manifest display-build-manifest) - (spec: 1 string-join string-join) + (spec: 1 unchecked-slot-set! unchecked-slot-set!) + (spec: 1 class-type-precedence-list class-type-precedence-list) + (spec: 1 call-next-method call-next-method) + (spec: 1 &class-type-constructor &class-type-constructor) + (spec: 1 f32vector::t f32vector::t) + (spec: 1 symbolic-table-ref symbolic-table-ref) + (spec: 1 class-type-constructor class-type-constructor) + (spec: 1 hash-keys hash-keys) + (spec: 1 address-info::t address-info::t) + (spec: 1 eof::t eof::t) + (spec: 1 readtable::t readtable::t) + (spec: 1 AST-source AST-source) + (spec: 1 struct-copy struct-copy) + (spec: 1 gerbil-home gerbil-home) + (spec: 1 replx replx) (spec: 1 make-class-type make-class-type) + (spec: 1 checked-method-ref checked-method-ref) + (spec: 1 find-method find-method) + (spec: 1 vector-port? vector-port?) + (spec: 1 immediate-instance-of? immediate-instance-of?) + (spec: 1 interface-instance::t interface-instance::t) + (spec: 1 display-build-manifest display-build-manifest) (spec: 1 make-instance make-instance) - (spec: 1 &class-type-name &class-type-name) - (spec: 1 list->hash-table-symbolic list->hash-table-symbolic) - (spec: 1 keyword->symbol keyword->symbol) - (spec: 1 class-type-super class-type-super) - (spec: 1 plist->hash-table plist->hash-table) + (spec: 1 fx1+ fx1+) + (spec: 1 HashTable::interface HashTable::interface) + (spec: 1 string-hash string-hash) + (spec: 1 HashTableLock::interface HashTableLock::interface) + (spec: 1 class-type-name class-type-name) + (spec: 1 load-module load-module) + (spec: 1 seal-class! seal-class!) + (spec: 1 with-unwind-protect with-unwind-protect) + (spec: 1 table::t table::t) + (spec: 1 special::t special::t) + (spec: 1 hash-get hash-get) + (spec: 1 actor-thread? actor-thread?) + (spec: 1 readenv::t readenv::t) + (spec: 1 AST-e AST-e) + (spec: 1 string::t string::t) + (spec: 1 gerbil-greeting gerbil-greeting) + (spec: 1 &interface-instance-object &interface-instance-object) + (spec: 1 interface-instance-object interface-instance-object) + (spec: 1 build-manifest-set! build-manifest-set!) + (spec: 1 raw-device-port? raw-device-port?) + (spec: 1 display* display*) + (spec: 1 class-type-struct? class-type-struct?) + (spec: 1 c4-linearize c4-linearize) (spec: 1 class-type-methods class-type-methods) - (spec: 1 real::t real::t) - (spec: 1 immediate-hash immediate-hash) + (spec: 1 s8vector::t s8vector::t) + (spec: 1 list-modules list-modules) + (spec: 1 pget pget) + (spec: 1 keyword-rest keyword-rest) + (spec: 1 symbol::t symbol::t) (spec: 1 assgetq assgetq) - (spec: 1 true::t true::t) - (spec: 1 false false) - (spec: 1 build-manifest-set! build-manifest-set!) - (spec: 1 gerbil-home gerbil-home) - (spec: 1 subclass? subclass?) - (spec: 1 call-method call-method) - (spec: 1 struct-instance? struct-instance?) + (spec: 1 hash-fold hash-fold) + (spec: 1 dump-stack-trace? dump-stack-trace?) + (spec: 1 remove1 remove1) + (spec: 1 plist->hash-table-string plist->hash-table-string) + (spec: 1 continuation::t continuation::t) + (spec: 1 values-ref values-ref) + (spec: 1 interface-descriptor? interface-descriptor?) + (spec: 1 symblic-hash symblic-hash) + (spec: 1 ratnum::t ratnum::t) + (spec: 1 new-instance new-instance) + (spec: 1 frame::t frame::t) + (spec: 1 directory-port? directory-port?) + (spec: 1 hash-update! hash-update!) + (spec: 1 string->bytes string->bytes) + (spec: 1 bignum::t bignum::t) + (spec: 1 class-type-slot-vector class-type-slot-vector) + (spec: 1 thread::t thread::t) + (spec: 1 udp-port? udp-port?) + (spec: 1 list->hash-table-string list->hash-table-string) + (spec: 1 s32vector::t s32vector::t) + (spec: 1 processor::t processor::t) + (spec: 1 agetv agetv) + (spec: 1 pair::t pair::t) + (spec: 1 keyword->symbol keyword->symbol) + (spec: 1 with-exception-stack-trace with-exception-stack-trace) + (spec: 1 spawn/group spawn/group) + (spec: 1 error error) + (spec: 1 u8vector-port? u8vector-port?) + (spec: 1 list->hash-table-symbolic list->hash-table-symbolic) + (spec: 1 class-type-flags class-type-flags) + (spec: 1 promise::t promise::t) + (spec: 1 gerbil-system-version-string gerbil-system-version-string) + (spec: 1 as-string as-string) + (spec: 1 object-type object-type) + (spec: 1 make-object make-object) + (spec: 1 dssl-optional-object? dssl-optional-object?) + (spec: 1 plist->hash-table plist->hash-table) + (spec: 1 make-class-predicate make-class-predicate) + (spec: 1 values-count values-count) + (spec: 1 try-cast try-cast) + (spec: 1 directory-port::t directory-port::t) + (spec: 1 make-hash-table-string make-hash-table-string) + (spec: 1 max-char-code max-char-code) + (spec: 1 eqv-hash eqv-hash) + (spec: 1 procedure::t procedure::t) + (spec: 1 bytes->string bytes->string) (spec: 1 u64vector::t u64vector::t) + (spec: 1 writeenv::t writeenv::t) + (spec: 1 display-exception display-exception) + (spec: 1 mutex::t mutex::t) + (spec: 1 gerbil-system gerbil-system) + (spec: 1 false false) + (spec: 1 list->hash-table-immediate list->hash-table-immediate) + (spec: 1 weak::t weak::t) + (spec: 1 hash-find hash-find) + (spec: 1 syntax-error? syntax-error?) + (spec: 1 absent-value absent-value) (spec: 1 object-port::t object-port::t) - (spec: 1 substruct? substruct?) - (spec: 1 f32vector::t f32vector::t) - (spec: 1 weak? weak?) - (spec: 1 dump-stack-trace? dump-stack-trace?) - (spec: 1 hash-length hash-length) - (spec: 1 hash-get hash-get) - (spec: 1 actor-thread? actor-thread?) - (spec: 1 make-interface-descriptor make-interface-descriptor) - (spec: 1 class-type-constructor class-type-constructor) - (spec: 1 source-location? source-location?) - (spec: 1 write-u8vector write-u8vector) - (spec: 1 add-load-path! add-load-path!) - (spec: 1 assgetv assgetv) - (spec: 1 hash-values hash-values) + (spec: 1 dssl-key-object? dssl-key-object?) + (spec: 1 writenv? writenv?) + (spec: 1 read-syntax read-syntax) + (spec: 1 string-port? string-port?) + (spec: 1 interface-descriptor-type interface-descriptor-type) + (spec: 1 character-port::t character-port::t) + (spec: 1 file-newer? file-newer?) + (spec: 1 hash-clear! hash-clear!) + (spec: 1 list->hash-table-eq list->hash-table-eq) + (spec: 1 &class-type-id &class-type-id) + (spec: 1 direct-instance? direct-instance?) + (spec: 1 make-hash-table-eqv make-hash-table-eqv) + (spec: 1 hash-ref hash-ref) + (spec: 1 thread-local-get thread-local-get) + (spec: 1 class-type-slot-list class-type-slot-list) + (spec: 1 reload-module! reload-module!) + (spec: 1 byte-port::t byte-port::t) + (spec: 1 immediate? immediate?) + (spec: 1 u16vector::t u16vector::t) + (spec: 1 gerbil-runtime-smp? gerbil-runtime-smp?) + (spec: 1 agetq agetq) + (spec: 1 substring->bytes substring->bytes) (spec: 1 void? void?) - (spec: 1 build-manifest-string build-manifest-string) - (spec: 1 call-next-method call-next-method) - (spec: - 1 - unhandled-actor-exception-hook-set! - unhandled-actor-exception-hook-set!) - (spec: 1 partition partition) - (spec: 1 time time) - (spec: 1 char-set-intersection! char-set-intersection!) - (spec: 1 fxorc1 fxorc1) - (spec: 1 abort abort) - (spec: 1 list->table list->table) - (spec: - 1 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 1 s32vector-ref s32vector-ref) - (spec: 1 flinteger? flinteger?) - (spec: - 1 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) - (spec: 1 string-ci=?-hash string-ci=?-hash) - (spec: 1 vector-swap! vector-swap!) - (spec: - 1 - readtable-sharing-allowed?-set - readtable-sharing-allowed?-set) - (spec: 1 delete-file-or-directory delete-file-or-directory) - (spec: 1 flasinh flasinh) - (spec: 1 table-set! table-set!) - (spec: 1 open-process open-process) - (spec: - 1 - cfun-conversion-exception-message - cfun-conversion-exception-message) - (spec: 1 thread-group-suspend! thread-group-suspend!) - (spec: 1 user-info user-info) - (spec: 1 open-dummy open-dummy) - (spec: 1 repl-result-history-ref repl-result-history-ref) - (spec: - 1 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) - (spec: 1 third third) - (spec: 1 create-temporary-directory create-temporary-directory) - (spec: 1 file-info-last-access-time file-info-last-access-time) - (spec: 1 mutex-specific mutex-specific) - (spec: 1 random-f64vector random-f64vector) - (spec: 1 u64vector? u64vector?) - (spec: 1 file-attributes file-attributes) - (spec: - 1 - module-not-found-exception-arguments - module-not-found-exception-arguments) - (spec: 1 read-subu8vector read-subu8vector) - (spec: - 1 - default-user-interrupt-handler - default-user-interrupt-handler) + (spec: 1 class-of class-of) + (spec: 1 source-location? source-location?) + (spec: 1 fx>=0? fx>=0?) + (spec: 1 displayln displayln) + (spec: 1 string-join string-join) + (spec: 1 cast cast) + (spec: 1 interface-descriptor-methods interface-descriptor-methods) + (spec: 1 set-load-path! set-load-path!) + (spec: 1 symbolic? symbolic?) + (spec: 1 hash->list hash->list) + (spec: 1 &class-type-flags &class-type-flags) + (spec: 1 list->hash-table list->hash-table) + (spec: 1 device-port::t device-port::t) + (spec: 1 make-hash-table make-hash-table) + (spec: 1 thread-group::t thread-group::t) + (spec: 1 byte-port? byte-port?) + (spec: 1 hash-merge! hash-merge!) + (spec: 1 class-type-seal! class-type-seal!) + (spec: 1 create-directory* create-directory*) + (spec: 1 gerbil-path gerbil-path) + (spec: 1 interned-symbol? interned-symbol?) + (spec: 1 move-file move-file) + (spec: 1 class-instance-init! class-instance-init!) + (spec: 1 vm? vm?) + (spec: 1 null::t null::t) + (spec: 1 bind-specializer! bind-specializer!) + (spec: 1 fx=0? fx=0?) + (spec: 1 class::t class::t) + (spec: 1 true::t true::t) + (spec: 1 hvector? hvector?) + (spec: 1 with-exception-catcher with-exception-catcher) + (spec: 1 error-trace error-trace) + (spec: 1 HashTable::t HashTable::t) + (spec: 1 source-location-path source-location-path) + (spec: 1 interface-cast-error? interface-cast-error?) + (spec: 1 sequence::t sequence::t) + (spec: 1 &class-type-fields &class-type-fields) + (spec: 1 false::t false::t) + (spec: 1 pgetv pgetv) + (spec: 1 class-type-field-count class-type-field-count) + (spec: 1 flonum::t flonum::t) + (spec: 1 hash-map hash-map) + (spec: 1 event-queue-port::t event-queue-port::t) + (spec: 1 tcp-server-port? tcp-server-port?) + (spec: 1 1+ 1+) + (spec: 1 class-type-properties class-type-properties) + (spec: 1 real::t real::t) + (spec: 1 struct-instance? struct-instance?) + (spec: 1 unchecked-slot-ref unchecked-slot-ref) + (spec: 1 symbolic-table-delete! symbolic-table-delete!) + (spec: 1 class-type-fields class-type-fields) + (spec: 1 foldl foldl) + (spec: 1 hash-merge hash-merge) + (spec: 1 special? special?) + (spec: 1 event-queue-port? event-queue-port?) + (spec: 1 atom::t atom::t) + (spec: 1 1- 1-) + (spec: 1 readenv? readenv?) + (spec: 1 AST? AST?) + (spec: 1 struct->list struct->list) + (spec: 1 cpxnum::t cpxnum::t) + (spec: 1 make-promise make-promise) + (spec: 1 interned-keyword? interned-keyword?) + (spec: 1 fixnum::t fixnum::t) + (spec: 1 build-manifest-string build-manifest-string) + (spec: 1 type-of type-of) + (spec: 1 &class-type-slot-table &class-type-slot-table) + (spec: 1 eof-object eof-object) + (spec: 1 vm::t vm::t) + (spec: 1 HashTableLock::t HashTableLock::t) + (spec: 1 fx/ fx/) + (spec: 1 hash-values hash-values) + (spec: 1 string-index string-index) + (spec: 1 class-type? class-type?) + (spec: 1 socket-info::t socket-info::t) + (spec: 1 error-message error-message) + (spec: 1 call-with-parameters call-with-parameters) + (spec: 1 satisfies? satisfies?) + (spec: 1 keyword::t keyword::t) + (spec: 1 assgetv assgetv) + (spec: 1 tcp-server-port::t tcp-server-port::t) + (spec: 1 subclass? subclass?) + (spec: 1 hash-length hash-length) + (spec: 1 with-lock with-lock) + (spec: 1 error-object? error-object?) + (spec: 1 gerbil-load-expander! gerbil-load-expander!) + (spec: 1 plist->hash-table-symbolic plist->hash-table-symbolic) + (spec: 1 vector::t vector::t) + (spec: 1 interface-instance? interface-instance?) + (spec: 1 module-load-order module-load-order) + (spec: 1 build-manifest build-manifest) + (spec: 1 &class-type-properties &class-type-properties) + (spec: 1 raw-device-port::t raw-device-port::t) + (spec: 1 method-ref method-ref) + (spec: 1 bind-method! bind-method!) + (spec: 1 time::t time::t) + (spec: 1 class-type-system? class-type-system?) + (spec: 1 make-symbol make-symbol) + (spec: 1 call-method call-method) + (spec: 1 unbound-key-error? unbound-key-error?) + (spec: 1 class-type-metaclass? class-type-metaclass?) + (spec: 1 s64vector::t s64vector::t) + (spec: 1 load-path load-path) + (spec: 1 andmap andmap) + (spec: 1 pgetq pgetq) + (spec: 1 keyword-dispatch keyword-dispatch) + (spec: 1 assget assget) + (spec: 1 hash-key? hash-key?) + (spec: 1 spawn/name spawn/name) + (spec: 1 plist->hash-table-immediate plist->hash-table-immediate) + (spec: 1 gerbil-greeting-set! gerbil-greeting-set!) (spec: 1 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) + make-class-slot-unchecked-mutator + make-class-slot-unchecked-mutator) + (spec: 1 vector-port::t vector-port::t) + (spec: 1 find find) + (spec: 1 raise raise) + (spec: 1 box::t box::t) + (spec: 1 nonnegative-fixnum? nonnegative-fixnum?) + (spec: 1 &class-type-precedence-list &class-type-precedence-list) + (spec: 1 display-as-string display-as-string) + (spec: 1 foreign::t foreign::t) + (spec: 1 string-empty? string-empty?) + (spec: 1 hash-table? hash-table?) + (spec: 1 class-type-super class-type-super) + (spec: 1 list::t list::t) + (spec: 1 class-type-id class-type-id) + (spec: 1 s16vector::t s16vector::t) + (spec: 1 udp-port::t udp-port::t) + (spec: 1 hash-for-each hash-for-each) + (spec: 1 t::t t::t) + (spec: 1 with-dynamic-lock with-dynamic-lock) + (spec: 1 object? object?) + (spec: 1 dump-stack-trace! dump-stack-trace!) + (spec: 1 read-u8vector read-u8vector) + (spec: 1 string-split string-split) + (spec: 1 plist->hash-table-eq plist->hash-table-eq) + (spec: 1 make-class-slot-mutator make-class-slot-mutator) + (spec: 1 values::t values::t) + (spec: 1 exception? exception?) + (spec: 1 immediate-hash immediate-hash) + (spec: 1 &class-type-name &class-type-name) + (spec: 1 next-method next-method) + (spec: 1 boolean::t boolean::t) + (spec: 1 memf memf) + (spec: 1 thread-local-set! thread-local-set!) + (spec: 1 slot-set! slot-set!) + (spec: 1 remf remf) + (spec: 1 plist->hash-table-eqv plist->hash-table-eqv) (spec: 1 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) + make-class-slot-unchecked-accessor + make-class-slot-unchecked-accessor) + (spec: 1 values->list values->list) + (spec: 1 constructor-init! constructor-init!) + (spec: 1 filter-map filter-map) + (spec: 1 bound-method-ref bound-method-ref) + (spec: 1 raise-unbound-key-error raise-unbound-key-error) + (spec: 1 direct-method-ref direct-method-ref) + (spec: 1 class-type-slot-table class-type-slot-table) + (spec: 1 slot-ref slot-ref) + (spec: 1 procedure-hash procedure-hash) + (spec: 1 u8vector::t u8vector::t) + (spec: 1 list->hash-table-eqv list->hash-table-eqv) + (spec: 1 gerbil-version-string gerbil-version-string) + (spec: 1 symbol->keyword symbol->keyword) + (spec: 1 with-catch with-catch) + (spec: 1 hash-copy hash-copy) + (spec: 1 object::t object::t) + (spec: 1 dssl-rest-object? dssl-rest-object?) + (spec: 1 fxshift fxshift) (spec: 1 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) - (spec: 1 udp-read-subu8vector udp-read-subu8vector) - (spec: 1 file-owner file-owner) - (spec: 1 network-info network-info) - (spec: 1 print print) - (spec: 1 circular-list? circular-list?) - (spec: 1 script-directory script-directory) - (spec: 1 u16vector u16vector) - (spec: 1 write-file-string write-file-string) - (spec: 1 s8vector-length s8vector-length) - (spec: 1 string-suffix? string-suffix?) + datum-parsing-exception-filepos + datum-parsing-exception-filepos) + (spec: 1 make-class-slot-accessor make-class-slot-accessor) + (spec: 1 checked-bound-method-ref checked-bound-method-ref) + (spec: 1 hash->plist hash->plist) + (spec: 1 true? true?) + (spec: 1 file-info::t file-info::t) (spec: 1 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 1 with-output-to-port with-output-to-port) - (spec: 1 sfun-conversion-exception? sfun-conversion-exception?) - (spec: 1 f64vector-copy! f64vector-copy!) - (spec: 1 bitwise-andc1 bitwise-andc1) - (spec: 1 service-info? service-info?) - (spec: 1 f32vector-copy! f32vector-copy!) - (spec: 1 make-thread make-thread) - (spec: 1 bit-count bit-count) - (spec: 1 subu16vector subu16vector) + raise-contract-violation-error + raise-contract-violation-error) + (spec: 1 device-port? device-port?) + (spec: 1 make-hash-table-symbolic make-hash-table-symbolic) + (spec: 1 hash-remove! hash-remove!) + (spec: 1 class-type-sealed? class-type-sealed?) + (spec: 1 u8vector-port::t u8vector-port::t) + (spec: 1 gerbil-system-manifest gerbil-system-manifest) + (spec: 1 substruct? substruct?) + (spec: 1 class-instance? class-instance?) + (spec: 1 weak? weak?) + (spec: 1 is-hash-table? is-hash-table?) + (spec: 1 with-exception-handler with-exception-handler) + (spec: 1 object-port? object-port?) + (spec: 1 dssl-object? dssl-object?) + (spec: 1 fx>0? fx>0?) + (spec: 1 current-thread-group current-thread-group) + (spec: 1 make-syntax-error make-syntax-error) + (spec: 1 string-rindex string-rindex) (spec: 1 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 1 subf64vector-move! subf64vector-move!) - (spec: 1 char-set-delete char-set-delete) - (spec: 1 fxandc1 fxandc1) - (spec: 1 s16vector-set s16vector-set) - (spec: 1 thread-receive thread-receive) - (spec: 1 fourth fourth) - (spec: 1 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) - (spec: 1 acosh acosh) - (spec: 1 s64vector-length s64vector-length) - (spec: 1 s32vector-fill! s32vector-fill!) - (spec: 1 fxorc2 fxorc2) - (spec: 1 error-exception-message error-exception-message) - (spec: 1 char-set-map char-set-map) - (spec: 1 partition! partition!) - (spec: 1 vector-unfold vector-unfold) + unhandled-actor-exception-hook-set! + unhandled-actor-exception-hook-set!) + (spec: 1 read-syntax-from-file read-syntax-from-file) + (spec: 1 sequence? sequence?) + (spec: 1 condvar::t condvar::t) + (spec: 1 symbolic::t symbolic::t) + (spec: 1 character-port? character-port?) + (spec: 1 write-u8vector write-u8vector) + (spec: 1 foldr foldr) + (spec: 1 make-hash-table-immediate make-hash-table-immediate) + (spec: 1 thread-local-ref thread-local-ref) + (spec: 1 return::t return::t) + (spec: 1 remq remq) + (spec: 1 build-manifest/layer build-manifest/layer) + (spec: 1 u32vector::t u32vector::t) + (spec: 1 aget aget) + (spec: 1 &class-type-super &class-type-super) + (spec: 1 class->list class->list) + (spec: 1 object-fill! object-fill!) + (spec: 1 absent-obj absent-obj) + (spec: 1 true true) + (spec: 1 remv remv) + (spec: 1 string-port::t string-port::t) + (spec: 1 fx<=0? fx<=0?) + (spec: 1 hvector::t hvector::t) + (spec: 1 spawn spawn) + (spec: 1 char::t char::t) + (spec: 1 integer::t integer::t) + (spec: 1 symbolic-table-set! symbolic-table-set!) + (spec: 1 f64vector::t f64vector::t) + (spec: 1 class-type-final? class-type-final?) + (spec: 1 hash-put! hash-put!) + (spec: 1 ormap ormap) + (spec: 1 thread-local-delete! thread-local-delete!) + (spec: 1 make-hash-table-eq make-hash-table-eq) + (spec: 1 eq-hash eq-hash) + (spec: 1 struct-instance-init! struct-instance-init!) + (spec: 1 port::t port::t) + (spec: 1 void::t void::t) + (spec: 1 add-load-path! add-load-path!) + (spec: 1 immediate::t immediate::t) + (spec: 1 &class-type-slot-vector &class-type-slot-vector) + (spec: 1 number::t number::t) + (spec: 1 make-interface-descriptor make-interface-descriptor) + (spec: 1 fx1- fx1-) + (spec: 1 source-location-path? source-location-path?) + (spec: 1 error? error?) + (spec: 1 remove! remove!) + (spec: 1 file-info-number-of-links file-info-number-of-links) + (spec: 1 void void) + (spec: 1 random-real random-real) + (spec: 1 box box) + (spec: 1 readtable-comment-handler-set readtable-comment-handler-set) + (spec: 1 subvector-move! subvector-move!) + (spec: 1 table->list table->list) + (spec: 1 open-file open-file) + (spec: 1 ucs-range->char-set ucs-range->char-set) (spec: 1 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) - (spec: 1 readtable-max-write-level readtable-max-write-level) - (spec: 1 flatan flatan) - (spec: 1 delete! delete!) + expression-parsing-exception-source + expression-parsing-exception-source) + (spec: 1 with-output-to-string with-output-to-string) + (spec: 1 u64vector-fill! u64vector-fill!) + (spec: 1 fl* fl*) + (spec: 1 copy-bit-field copy-bit-field) + (spec: 1 string-swap! string-swap!) + (spec: 1 os-exception? os-exception?) + (spec: 1 will-testator will-testator) + (spec: 1 cons* cons*) + (spec: 1 u32vector-fill! u32vector-fill!) + (spec: 1 list->char-set! list->char-set!) + (spec: 1 char-set-ref char-set-ref) + (spec: 1 thread-suspend! thread-suspend!) (spec: 1 - invalid-hash-number-exception-arguments - invalid-hash-number-exception-arguments) + not-in-compilation-context-exception-arguments + not-in-compilation-context-exception-arguments) + (spec: 1 uninterned-symbol? uninterned-symbol?) + (spec: 1 thread-mailbox-next thread-mailbox-next) + (spec: 1 step step) + (spec: 1 address-info-family address-info-family) + (spec: 1 fxnot fxnot) (spec: 1 - terminated-thread-exception-arguments - terminated-thread-exception-arguments) - (spec: 1 uninterned-keyword? uninterned-keyword?) - (spec: 1 open-string open-string) + unterminated-process-exception-procedure + unterminated-process-exception-procedure) + (spec: 1 range-exception-procedure range-exception-procedure) + (spec: 1 vector-unfold-right vector-unfold-right) + (spec: 1 module-search-order-reset! module-search-order-reset!) + (spec: 1 file-creation-time file-creation-time) + (spec: 1 current-directory current-directory) + (spec: 1 open-tcp-client open-tcp-client) + (spec: 1 u8vector->list u8vector->list) + (spec: 1 replace-bit-field replace-bit-field) (spec: 1 - cfun-conversion-exception-procedure - cfun-conversion-exception-procedure) - (spec: 1 take-right take-right) - (spec: 1 split-at split-at) - (spec: 1 repl-input-port repl-input-port) - (spec: 1 flpositive? flpositive?) + divide-by-zero-exception-procedure + divide-by-zero-exception-procedure) (spec: 1 keyword-expected-exception-arguments keyword-expected-exception-arguments) - (spec: 1 open-event-queue open-event-queue) - (spec: 1 thread-interrupt! thread-interrupt!) - (spec: 1 user-info-gid user-info-gid) - (spec: 1 range-exception-arg-id range-exception-arg-id) - (spec: 1 file-info-device file-info-device) - (spec: 1 random-integer random-integer) - (spec: 1 module-search-order-reset! module-search-order-reset!) - (spec: 1 copy-bit copy-bit) - (spec: 1 bitwise-if bitwise-if) - (spec: 1 u8vector-shrink! u8vector-shrink!) - (spec: 1 u8vector->list u8vector->list) - (spec: 1 defer-user-interrupts defer-user-interrupts) - (spec: 1 read-all read-all) - (spec: 1 file-last-modification-time file-last-modification-time) (spec: 1 - unbound-serial-number-exception-procedure - unbound-serial-number-exception-procedure) - (spec: 1 heap-overflow-exception? heap-overflow-exception?) - (spec: 1 executable-path executable-path) - (spec: 1 clear-bit-field clear-bit-field) - (spec: 1 println println) - (spec: 1 string-swap! string-swap!) - (spec: 1 s8vector-copy s8vector-copy) - (spec: 1 get-output-u8vector get-output-u8vector) + unbound-serial-number-exception? + unbound-serial-number-exception?) (spec: 1 mailbox-receive-timeout-exception? mailbox-receive-timeout-exception?) + (spec: 1 substring-move! substring-move!) + (spec: 1 bitwise-if bitwise-if) + (spec: 1 seconds->time seconds->time) + (spec: 1 length-mismatch-exception? length-mismatch-exception?) + (spec: 1 fxarithmetic-shift-right fxarithmetic-shift-right) + (spec: 1 char-set-delete char-set-delete) + (spec: 1 f64vector-ref f64vector-ref) + (spec: 1 s64vector-shrink! s64vector-shrink!) + (spec: 1 subf64vector subf64vector) + (spec: 1 bit-field-rotate bit-field-rotate) + (spec: 1 proper-list? proper-list?) + (spec: 1 thread-start! thread-start!) (spec: 1 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 1 any any) - (spec: 1 u16vector-copy! u16vector-copy!) - (spec: - 1 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 1 f64vector-append f64vector-append) - (spec: 1 bit-field-replace bit-field-replace) - (spec: 1 configure-command-string configure-command-string) - (spec: 1 service-info-name service-info-name) - (spec: 1 subu16vector-fill! subu16vector-fill!) - (spec: 1 f32vector-append f32vector-append) - (spec: 1 compilation-target compilation-target) - (spec: 1 make-u64vector make-u64vector) - (spec: 1 subs16vector subs16vector) - (spec: 1 s16vector-set! s16vector-set!) - (spec: 1 char-set-count char-set-count) - (spec: 1 fxbit-count fxbit-count) - (spec: - 1 - thread-state-running-processor - thread-state-running-processor) - (spec: 1 u32vector-copy u32vector-copy) - (spec: 1 os-exception-message os-exception-message) - (spec: 1 thread-resume! thread-resume!) - (spec: 1 u64vector-concatenate u64vector-concatenate) - (spec: 1 length+ length+) - (spec: 1 with-output-to-process with-output-to-process) - (spec: 1 write-file-string-list write-file-string-list) - (spec: - 1 - wrong-number-of-values-exception-rte - wrong-number-of-values-exception-rte) - (spec: 1 every-bit-set? every-bit-set?) - (spec: 1 fxzero? fxzero?) - (spec: 1 fxnot fxnot) + wrong-number-of-values-exception-vals + wrong-number-of-values-exception-vals) (spec: 1 - permission-denied-exception-arguments - permission-denied-exception-arguments) - (spec: 1 char-set-union char-set-union) - (spec: 1 error-exception-parameters error-exception-parameters) - (spec: 1 s32vector-length s32vector-length) - (spec: 1 step step) - (spec: 1 flilogb flilogb) - (spec: 1 path-extension path-extension) - (spec: 1 will? will?) + invalid-hash-number-exception-arguments + invalid-hash-number-exception-arguments) + (spec: 1 flinfinite? flinfinite?) + (spec: 1 readtable-start-syntax readtable-start-syntax) + (spec: 1 take-right take-right) + (spec: 1 user-info-name user-info-name) + (spec: 1 s32vector-set s32vector-set) + (spec: 1 fxxor fxxor) (spec: 1 terminated-thread-exception-procedure terminated-thread-exception-procedure) + (spec: 1 flonum? flonum?) + (spec: 1 subvector subvector) (spec: 1 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) - (spec: 1 object->serial-number object->serial-number) - (spec: 1 delete-directory delete-directory) - (spec: 1 readtable-max-write-level-set readtable-max-write-level-set) - (spec: - 1 - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-procedure) - (spec: 1 fold-right fold-right) + file-info-last-modification-time + file-info-last-modification-time) + (spec: 1 random-f64vector random-f64vector) (spec: 1 last-pair last-pair) - (spec: 1 not-pair? not-pair?) - (spec: 1 reverse! reverse!) - (spec: 1 thread-join! thread-join!) - (spec: 1 user-info? user-info?) + (spec: 1 flacos flacos) (spec: 1 - keyword-expected-exception-procedure - keyword-expected-exception-procedure) - (spec: 1 open-u8vector-pipe open-u8vector-pipe) - (spec: 1 display-procedure-environment display-procedure-environment) - (spec: 1 repl-output-port repl-output-port) - (spec: 1 file-info-group file-info-group) + readtable-case-conversion?-set + readtable-case-conversion?-set) + (spec: 1 open-dummy open-dummy) (spec: 1 u8vector-swap! u8vector-swap!) - (spec: 1 module-whitelist-add! module-whitelist-add!) - (spec: 1 bitwise-ior bitwise-ior) - (spec: 1 subvector-move! subvector-move!) - (spec: 1 u8vector->object u8vector->object) - (spec: 1 random-source-make-reals random-source-make-reals) - (spec: 1 fixnum->flonum fixnum->flonum) - (spec: 1 system-version-string system-version-string) - (spec: - 1 - unbound-serial-number-exception? - unbound-serial-number-exception?) - (spec: 1 readtable-comment-handler readtable-comment-handler) - (spec: - 1 - datum-parsing-exception-parameters - datum-parsing-exception-parameters) - (spec: 1 file-mode file-mode) (spec: 1 make-random-source make-random-source) - (spec: 1 string-suffix-length string-suffix-length) - (spec: 1 u16vector-fill! u16vector-fill!) - (spec: 1 main main) - (spec: 1 any-bit-set? any-bit-set?) - (spec: 1 process-pid process-pid) - (spec: 1 s8vector-copy! s8vector-copy!) + (spec: 1 initialized-thread-exception? initialized-thread-exception?) + (spec: 1 with-output-to-port with-output-to-port) (spec: 1 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 1 bit-field-replace-same bit-field-replace-same) - (spec: 1 f64vector-concatenate f64vector-concatenate) - (spec: 1 substring-fill! substring-fill!) + expression-parsing-exception-kind + expression-parsing-exception-kind) (spec: 1 u64vector-copy u64vector-copy) - (spec: 1 make-u8vector make-u8vector) - (spec: 1 service-info-port-number service-info-port-number) - (spec: 1 f32vector-concatenate f32vector-concatenate) - (spec: 1 subf64vector subf64vector) - (spec: 1 fxbit-set? fxbit-set?) - (spec: 1 protocol-info protocol-info) - (spec: 1 char-set-cursor char-set-cursor) - (spec: 1 thread-priority thread-priority) - (spec: 1 u32vector-copy! u32vector-copy!) - (spec: 1 vector-fold vector-fold) - (spec: 1 fx* fx*) - (spec: 1 os-exception-procedure os-exception-procedure) - (spec: 1 length-mismatch-exception? length-mismatch-exception?) - (spec: 1 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 1 thread-state-waiting-for thread-state-waiting-for) - (spec: 1 s64vector-copy! s64vector-copy!) - (spec: 1 thread-start! thread-start!) - (spec: 1 with-exception-catcher with-exception-catcher) + (spec: 1 fixnum-overflow-exception? fixnum-overflow-exception?) + (spec: 1 string-suffix-length-ci string-suffix-length-ci) + (spec: 1 list->bits list->bits) + (spec: 1 os-exception-message os-exception-message) + (spec: 1 any any) + (spec: 1 u32vector-copy u32vector-copy) + (spec: 1 make-u64vector make-u64vector) + (spec: 1 conjugate conjugate) + (spec: 1 f32vector-fill! f32vector-fill!) + (spec: 1 fxnegative? fxnegative?) + (spec: 1 char-set-intersection! char-set-intersection!) + (spec: 1 s16vector-swap! s16vector-swap!) + (spec: 1 thread-state-waiting-timeout thread-state-waiting-timeout) + (spec: 1 thread-join! thread-join!) + (spec: 1 vector-swap! vector-swap!) + (spec: 1 partition partition) + (spec: 1 sinh sinh) + (spec: 1 range-exception-arg-id range-exception-arg-id) (spec: 1 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 1 list->u64vector list->u64vector) - (spec: 1 char-set-union! char-set-union!) - (spec: 1 fxodd? fxodd?) - (spec: 1 s64vector-set! s64vector-set!) - (spec: 1 touch touch) - (spec: 1 path-normalize path-normalize) - (spec: 1 step-level-set! step-level-set!) - (spec: 1 flinfinite? flinfinite?) - (spec: 1 s32vector-shrink! s32vector-shrink!) - (spec: 1 object->string object->string) - (spec: 1 tenth tenth) - (spec: 1 call-with-input-process call-with-input-process) - (spec: 1 flasin flasin) - (spec: 1 remove remove) + unbound-serial-number-exception-arguments + unbound-serial-number-exception-arguments) + (spec: 1 thread-base-priority thread-base-priority) (spec: 1 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) - (spec: 1 take take) + repl-result-history-max-length-set! + repl-result-history-max-length-set!) (spec: 1 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) - (spec: 1 user-name user-name) - (spec: 1 open-udp open-udp) + cfun-conversion-exception-procedure + cfun-conversion-exception-procedure) + (spec: 1 fold fold) + (spec: 1 file-number-of-links file-number-of-links) (spec: 1 keyword->string keyword->string) - (spec: 1 open-input-u8vector open-input-u8vector) - (spec: 1 mutex-unlock! mutex-unlock!) - (spec: 1 thread-base-priority thread-base-priority) - (spec: 1 file-info-mode file-info-mode) - (spec: 1 u8vector-set u8vector-set) + (spec: 1 open-string open-string) + (spec: 1 clear-bit-field clear-bit-field) + (spec: + 1 + mailbox-receive-timeout-exception-arguments + mailbox-receive-timeout-exception-arguments) + (spec: 1 println println) (spec: 1 bitwise-fold bitwise-fold) - (spec: 1 random-source-make-u8vectors random-source-make-u8vectors) + (spec: 1 fifth fifth) + (spec: 1 network-info-number network-info-number) + (spec: 1 defer-user-interrupts defer-user-interrupts) + (spec: 1 s8vector-fill! s8vector-fill!) + (spec: 1 host-info? host-info?) + (spec: 1 stack-overflow-exception? stack-overflow-exception?) + (spec: 1 string-suffix-ci? string-suffix-ci?) + (spec: 1 fxarithmetic-shift fxarithmetic-shift) + (spec: 1 char-set-cursor char-set-cursor) (spec: 1 - noncontinuable-exception-reason - noncontinuable-exception-reason) - (spec: 1 fixnum? fixnum?) - (spec: 1 readtable-comment-handler-set readtable-comment-handler-set) + length-mismatch-exception-arguments + length-mismatch-exception-arguments) + (spec: 1 s64vector-set s64vector-set) + (spec: 1 system-version system-version) + (spec: 1 f64vector-length f64vector-length) + (spec: 1 bit-field-replace-same bit-field-replace-same) + (spec: 1 subf32vector-fill! subf32vector-fill!) + (spec: 1 error-exception? error-exception?) + (spec: 1 thread-specific thread-specific) + (spec: 1 readtable-sharing-allowed? readtable-sharing-allowed?) + (spec: 1 flhypot flhypot) (spec: 1 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) - (spec: 1 network-info-number network-info-number) - (spec: 1 file-type file-type) + number-of-arguments-limit-exception? + number-of-arguments-limit-exception?) + (spec: 1 take take) + (spec: 1 tty-type-set! tty-type-set!) + (spec: 1 u16vector-fill! u16vector-fill!) + (spec: 1 list->u64vector list->u64vector) + (spec: 1 fxwrapquotient fxwrapquotient) (spec: 1 udp-write-subu8vector udp-write-subu8vector) + (spec: 1 user-info-gid user-info-gid) + (spec: 1 flodd? flodd?) + (spec: 1 vector-fold vector-fold) + (spec: 1 file-info-last-access-time file-info-last-access-time) + (spec: 1 mutex? mutex?) + (spec: 1 subu8vector-fill! subu8vector-fill!) + (spec: 1 fl>= fl>=) (spec: 1 - expression-parsing-exception-parameters - expression-parsing-exception-parameters) - (spec: 1 write-substring write-substring) - (spec: 1 u16vector-concatenate u16vector-concatenate) + wrong-number-of-values-exception-code + wrong-number-of-values-exception-code) + (spec: 1 u8vector-set! u8vector-set!) + (spec: 1 script-directory script-directory) (spec: 1 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) - (spec: 1 second second) - (spec: 1 string-suffix-length-ci string-suffix-length-ci) - (spec: 1 pp pp) - (spec: 1 console-port console-port) - (spec: 1 bit-field-clear bit-field-clear) - (spec: 1 s8vector-set s8vector-set) - (spec: 1 tty-type-set! tty-type-set!) - (spec: 1 u64vector->list u64vector->list) - (spec: 1 make-u16vector make-u16vector) - (spec: 1 substring-move! substring-move!) + initialized-thread-exception-arguments + initialized-thread-exception-arguments) + (spec: + 1 + current-user-interrupt-handler + current-user-interrupt-handler) + (spec: 1 with-input-from-vector with-input-from-vector) + (spec: 1 u64vector-append u64vector-append) + (spec: 1 continuation? continuation?) + (spec: 1 r7rs-with-exception-handler r7rs-with-exception-handler) + (spec: 1 noncontinuable-exception? noncontinuable-exception?) + (spec: + 1 + fixnum-overflow-exception-arguments + fixnum-overflow-exception-arguments) + (spec: 1 write-file-string-list write-file-string-list) + (spec: 1 f32vector-copy f32vector-copy) (spec: 1 atanh atanh) - (spec: 1 protocol-info-aliases protocol-info-aliases) - (spec: 1 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 1 list->bits list->bits) - (spec: 1 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 1 s16vector-ref s16vector-ref) - (spec: 1 subf64vector-fill! subf64vector-fill!) - (spec: 1 thread-state-waiting-timeout thread-state-waiting-timeout) + (spec: 1 s16vector-set! s16vector-set!) (spec: 1 u32vector-append u32vector-append) - (spec: 1 char-set char-set) - (spec: 1 thread-state thread-state) - (spec: 1 fxwrapsquare fxwrapsquare) - (spec: 1 output-port-byte-position output-port-byte-position) - (spec: 1 s64vector-fill! s64vector-fill!) - (spec: 1 will-execute! will-execute!) - (spec: 1 s64vector-shrink! s64vector-shrink!) - (spec: 1 char-set-unfold char-set-unfold) - (spec: 1 list->u8vector list->u8vector) - (spec: 1 string-contains string-contains) - (spec: 1 trace trace) - (spec: 1 s32vector-swap! s32vector-swap!) - (spec: 1 string->keyword string->keyword) - (spec: 1 fxremainder fxremainder) + (spec: 1 make-u16vector make-u16vector) + (spec: 1 configure-command-string configure-command-string) + (spec: 1 service-info-protocol service-info-protocol) + (spec: 1 fxmodulo fxmodulo) + (spec: 1 char-set-hash char-set-hash) (spec: 1 iota iota) - (spec: 1 timeout->time timeout->time) (spec: 1 - unterminated-process-exception? - unterminated-process-exception?) - (spec: 1 remove! remove!) - (spec: 1 flmax flmax) + uninitialized-thread-exception-procedure + uninitialized-thread-exception-procedure) + (spec: 1 thread-init! thread-init!) + (spec: 1 foreign? foreign?) + (spec: 1 os-exception-arguments os-exception-arguments) + (spec: 1 every-bit-set? every-bit-set?) + (spec: 1 link-flat link-flat) + (spec: 1 create-symbolic-link create-symbolic-link) + (spec: 1 delete! delete!) + (spec: 1 repl-input-port repl-input-port) (spec: 1 - not-in-compilation-context-exception? - not-in-compilation-context-exception?) + cfun-conversion-exception-code + cfun-conversion-exception-code) + (spec: 1 socket-info? socket-info?) + (spec: 1 network-info-aliases network-info-aliases) + (spec: 1 file-last-modification-time file-last-modification-time) + (spec: 1 primordial-exception-handler primordial-exception-handler) + (spec: 1 circular-list circular-list) + (spec: 1 group-info? group-info?) + (spec: 1 bitwise-andc2 bitwise-andc2) (spec: 1 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) - (spec: 1 flcos flcos) - (spec: 1 take! take!) - (spec: 1 user-info-shell user-info-shell) - (spec: 1 open-tcp-server open-tcp-server) - (spec: 1 thread-init! thread-init!) - (spec: 1 sixth sixth) - (spec: 1 file-info-number-of-links file-info-number-of-links) - (spec: 1 flsin flsin) - (spec: 1 mutex? mutex?) - (spec: 1 thread-base-priority-set! thread-base-priority-set!) - (spec: 1 range-exception? range-exception?) - (spec: 1 u8vector-set! u8vector-set!) - (spec: 1 module-search-order-add! module-search-order-add!) - (spec: 1 bitwise-for-each bitwise-for-each) - (spec: 1 random-source-make-f64vectors random-source-make-f64vectors) - (spec: 1 fl* fl*) + module-not-found-exception-procedure + module-not-found-exception-procedure) + (spec: 1 s8vector-copy s8vector-copy) + (spec: 1 input-port-readtable-set! input-port-readtable-set!) + (spec: 1 default-random-source default-random-source) + (spec: 1 processor? processor?) + (spec: 1 command-name command-name) + (spec: 1 host-info-aliases host-info-aliases) + (spec: 1 read-substring read-substring) + (spec: 1 char-set-copy char-set-copy) + (spec: 1 fxandc1 fxandc1) + (spec: 1 char-set? char-set?) + (spec: 1 generate-proper-tail-calls generate-proper-tail-calls) + (spec: 1 rpc-remote-error-exception? rpc-remote-error-exception?) + (spec: 1 bit-field-every? bit-field-every?) + (spec: 1 f64vector-copy! f64vector-copy!) + (spec: 1 list->u16vector list->u16vector) + (spec: 1 error-exception-message error-exception-message) + (spec: 1 sfun-conversion-exception? sfun-conversion-exception?) (spec: 1 - inactive-thread-exception-procedure - inactive-thread-exception-procedure) - (spec: 1 noncontinuable-exception? noncontinuable-exception?) - (spec: 1 u8vector u8vector) - (spec: 1 readtable-case-conversion? readtable-case-conversion?) - (spec: 1 table-copy table-copy) - (spec: 1 integer-length integer-length) - (spec: 1 network-info? network-info?) + number-of-arguments-limit-exception-arguments + number-of-arguments-limit-exception-arguments) + (spec: 1 call-with-output-vector call-with-output-vector) + (spec: 1 flfinite? flfinite?) + (spec: 1 readtable-max-write-level readtable-max-write-level) + (spec: 1 system-type system-type) + (spec: 1 s32vector-fill! s32vector-fill!) + (spec: 1 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + (spec: 1 table? table?) + (spec: 1 thread-send thread-send) + (spec: 1 flnumerator flnumerator) + (spec: 1 time->seconds time->seconds) + (spec: 1 mutex-state mutex-state) + (spec: 1 file-info-group file-info-group) + (spec: 1 thread-group? thread-group?) (spec: 1 - unbound-serial-number-exception-arguments - unbound-serial-number-exception-arguments) + nonprocedure-operator-exception-rte + nonprocedure-operator-exception-rte) + (spec: 1 fl= fl=) + (spec: 1 reverse! reverse!) + (spec: 1 trace trace) + (spec: 1 u16vector-copy u16vector-copy) + (spec: 1 u16vector-append u16vector-append) + (spec: 1 current-thread current-thread) + (spec: 1 initial-current-directory initial-current-directory) + (spec: 1 make-mutex make-mutex) + (spec: 1 u8vector-ref u8vector-ref) + (spec: 1 udp-read-u8vector udp-read-u8vector) + (spec: 1 r7rs-raise r7rs-raise) + (spec: 1 continuation-graft continuation-graft) + (spec: 1 subu64vector-move! subu64vector-move!) + (spec: 1 fixnum->flonum fixnum->flonum) (spec: 1 - expression-parsing-exception-source - expression-parsing-exception-source) - (spec: 1 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 1 udp-write-u8vector udp-write-u8vector) - (spec: 1 seconds->time seconds->time) - (spec: 1 u16vector-copy u16vector-copy) + unbound-os-environment-variable-exception? + unbound-os-environment-variable-exception?) + (spec: 1 make-thread-group make-thread-group) + (spec: 1 f32vector-append f32vector-append) + (spec: 1 vector-every vector-every) + (spec: 1 s16vector-ref s16vector-ref) + (spec: 1 with-input-from-string with-input-from-string) (spec: 1 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 1 with-output-to-vector with-output-to-vector) - (spec: 1 s8vector-set! s8vector-set!) - (spec: 1 f64vector-ref f64vector-ref) - (spec: 1 tty? tty?) - (spec: 1 bit-field-every? bit-field-every?) - (spec: 1 subu32vector-fill! subu32vector-fill!) - (spec: 1 concatenate! concatenate!) - (spec: 1 f32vector-ref f32vector-ref) - (spec: 1 make-u32vector make-u32vector) - (spec: 1 u64vector-append u64vector-append) - (spec: 1 subs32vector subs32vector) - (spec: 1 char-set-difference char-set-difference) - (spec: 1 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 1 u32vector-concatenate u32vector-concatenate) - (spec: 1 thread-state-uninitialized? thread-state-uninitialized?) - (spec: 1 char-set->list char-set->list) + wrong-number-of-arguments-exception? + wrong-number-of-arguments-exception?) + (spec: 1 all-bits-set? all-bits-set?) + (spec: 1 service-info-name service-info-name) + (spec: 1 subs8vector-fill! subs8vector-fill!) + (spec: 1 u32vector u32vector) + (spec: 1 tcp-service-unregister! tcp-service-unregister!) + (spec: 1 char-set-fold char-set-fold) + (spec: 1 fxmax fxmax) (spec: 1 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) - (spec: 1 s16vector? s16vector?) - (spec: 1 output-port-char-position output-port-char-position) - (spec: 1 thread-specific thread-specific) - (spec: 1 fxxor fxxor) - (spec: 1 string-contains-ci string-contains-ci) - (spec: 1 s64vector-ref s64vector-ref) - (spec: 1 gc-report-set! gc-report-set!) - (spec: 1 will-testator will-testator) - (spec: 1 char-set-unfold! char-set-unfold!) - (spec: 1 void void) - (spec: 1 s32vector-set s32vector-set) - (spec: 1 fxsquare fxsquare) - (spec: 1 car+cdr car+cdr) - (spec: 1 directory-files directory-files) - (spec: 1 path-expand path-expand) - (spec: 1 untrace untrace) - (spec: 1 flmin flmin) - (spec: 1 test-bit-field? test-bit-field?) + invalid-utf8-encoding-exception? + invalid-utf8-encoding-exception?) + (spec: 1 foreign-tags foreign-tags) + (spec: 1 s64vector-fill! s64vector-fill!) + (spec: 1 repl-error-port repl-error-port) + (spec: 1 display-exception-in-context display-exception-in-context) + (spec: 1 create-fifo create-fifo) + (spec: 1 u64vector-swap! u64vector-swap!) + (spec: 1 random-source? random-source?) + (spec: 1 readtable-max-write-length readtable-max-write-length) + (spec: 1 fltanh fltanh) + (spec: 1 open-output-u8vector open-output-u8vector) + (spec: 1 socket-info-family socket-info-family) + (spec: 1 file-last-access-time file-last-access-time) + (spec: 1 tty-mode-set! tty-mode-set!) + (spec: 1 group-info-members group-info-members) + (spec: 1 bitwise-and bitwise-and) + (spec: 1 command-args command-args) + (spec: 1 char-set-complement! char-set-complement!) + (spec: 1 host-info host-info) + (spec: 1 fxabs fxabs) + (spec: 1 output-port-timeout-set! output-port-timeout-set!) + (spec: 1 thread-receive thread-receive) + (spec: 1 char-set<= char-set<=) (spec: 1 - unknown-keyword-argument-exception-arguments - unknown-keyword-argument-exception-arguments) - (spec: 1 flcosh flcosh) - (spec: 1 readtable-start-syntax readtable-start-syntax) - (spec: 1 tcp-client-local-socket-info tcp-client-local-socket-info) - (spec: 1 user-info-uid user-info-uid) - (spec: 1 foreign-address foreign-address) + sfun-conversion-exception-message + sfun-conversion-exception-message) + (spec: 1 f64vector-concatenate f64vector-concatenate) + (spec: 1 bit-field-any? bit-field-any?) + (spec: 1 s32vector-copy s32vector-copy) + (spec: 1 error error) + (spec: 1 call-with-output-string call-with-output-string) + (spec: 1 table-search table-search) + (spec: 1 flexpm1 flexpm1) + (spec: 1 u64vector u64vector) (spec: 1 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) - (spec: 1 open-u8vector open-u8vector) - (spec: 1 thread-mailbox-rewind thread-mailbox-rewind) - (spec: 1 flsinh flsinh) - (spec: 1 file-info-last-change-time file-info-last-change-time) - (spec: 1 current-exception-handler current-exception-handler) - (spec: 1 box? box?) - (spec: 1 keyword? keyword?) - (spec: 1 open-input-process open-input-process) - (spec: 1 replace-bit-field replace-bit-field) - (spec: 1 file-creation-time file-creation-time) - (spec: 1 cosh cosh) - (spec: 1 bitwise-nor bitwise-nor) - (spec: 1 symbol-hash symbol-hash) - (spec: 1 inactive-thread-exception? inactive-thread-exception?) + rpc-remote-error-exception-message + rpc-remote-error-exception-message) (spec: 1 - fixnum-overflow-exception-procedure - fixnum-overflow-exception-procedure) - (spec: 1 random-source-make-integers random-source-make-integers) - (spec: 1 thread-group->thread-list thread-group->thread-list) - (spec: 1 table-for-each table-for-each) - (spec: 1 u8vector-copy u8vector-copy) - (spec: 1 integer-nth-root integer-nth-root) + wrong-number-of-arguments-exception-arguments + wrong-number-of-arguments-exception-arguments) + (spec: 1 fxwrapabs fxwrapabs) + (spec: 1 path-volume path-volume) + (spec: 1 string->uninterned-symbol string->uninterned-symbol) + (spec: 1 repl-highlight-source-level repl-highlight-source-level) + (spec: 1 third third) (spec: 1 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) - (spec: 1 datum-parsing-exception-kind datum-parsing-exception-kind) + readtable-max-write-length-set + readtable-max-write-length-set) + (spec: 1 delete delete) + (spec: 1 table-set! table-set!) + (spec: 1 flsqrt flsqrt) + (spec: 1 udp-read-subu8vector udp-read-subu8vector) + (spec: 1 network-info network-info) + (spec: 1 file-last-change-time file-last-change-time) + (spec: 1 string-prefix-length string-prefix-length) + (spec: 1 pretty-print pretty-print) + (spec: 1 bitwise-andc1 bitwise-andc1) (spec: 1 - readtable-case-conversion?-set - readtable-case-conversion?-set) - (spec: 1 ucs-range->char-set! ucs-range->char-set!) - (spec: 1 input-port-char-position input-port-char-position) + module-not-found-exception-arguments + module-not-found-exception-arguments) + (spec: 1 u64vector? u64vector?) + (spec: 1 read-file-string read-file-string) (spec: 1 - unbound-global-exception-variable - unbound-global-exception-variable) - (spec: 1 arithmetic-shift arithmetic-shift) - (spec: 1 script-file script-file) - (spec: 1 u16vector-ref u16vector-ref) - (spec: 1 make-root-thread make-root-thread) - (spec: 1 append! append!) - (spec: 1 string-prefix-ci? string-prefix-ci?) - (spec: 1 type-exception-procedure type-exception-procedure) - (spec: 1 f64vector-fill! f64vector-fill!) - (spec: 1 cons* cons*) - (spec: 1 bit-field-set bit-field-set) - (spec: 1 make-bitwise-generator make-bitwise-generator) - (spec: 1 subu32vector-move! subu32vector-move!) - (spec: 1 u64vector-length u64vector-length) - (spec: 1 f32vector-fill! f32vector-fill!) - (spec: 1 subs32vector-fill! subs32vector-fill!) + input-port-characters-buffered + input-port-characters-buffered) (spec: 1 - wrong-processor-c-return-exception? - wrong-processor-c-return-exception?) - (spec: 1 char-set-delete! char-set-delete!) - (spec: 1 make-will make-will) - (spec: 1 vector-inc! vector-inc!) + wrong-number-of-arguments-exception-procedure + wrong-number-of-arguments-exception-procedure) + (spec: 1 host-info-addresses host-info-addresses) + (spec: 1 char-set-adjoin! char-set-adjoin!) + (spec: 1 processor-id processor-id) + (spec: 1 char-set= char-set=) + (spec: 1 fx= fx=) + (spec: 1 u32vector? u32vector?) + (spec: 1 vector-cas! vector-cas!) + (spec: 1 with-input-from-u8vector with-input-from-u8vector) + (spec: 1 f64vector f64vector) + (spec: 1 time time) + (spec: 1 list->table list->table) + (spec: 1 call-with-input-vector call-with-input-vector) + (spec: 1 s32vector-copy! s32vector-copy!) + (spec: 1 fldenominator fldenominator) + (spec: 1 null-list? null-list?) + (spec: 1 length+ length+) (spec: 1 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 1 fxfirst-set-bit fxfirst-set-bit) + rpc-remote-error-exception-procedure + rpc-remote-error-exception-procedure) + (spec: 1 thread-resume! thread-resume!) + (spec: 1 path-strip-extension path-strip-extension) + (spec: 1 fxwrap* fxwrap*) + (spec: 1 flnegative? flnegative?) + (spec: 1 bitwise-unfold bitwise-unfold) + (spec: 1 u8vector-length u8vector-length) + (spec: 1 file-group file-group) + (spec: 1 fl<= fl<=) (spec: 1 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) - (spec: 1 thread-specific-set! thread-specific-set!) - (spec: 1 fx< fx<) - (spec: 1 s64vector-set s64vector-set) - (spec: 1 string->char-set string->char-set) - (spec: 1 fxpositive? fxpositive?) - (spec: 1 list-set list-set) - (spec: 1 path-strip-extension path-strip-extension) - (spec: 1 s32vector-set! s32vector-set!) - (spec: 1 fllog fllog) - (spec: 1 tcp-client-peer-socket-info tcp-client-peer-socket-info) - (spec: 1 flatanh flatanh) - (spec: 1 null-list? null-list?) - (spec: 1 call-with-input-vector call-with-input-vector) - (spec: 1 readtable-start-syntax-set readtable-start-syntax-set) - (spec: 1 split-at! split-at!) - (spec: 1 force-output force-output) - (spec: 1 thread-name thread-name) - (spec: 1 uncaught-exception? uncaught-exception?) - (spec: 1 divide-by-zero-exception? divide-by-zero-exception?) - (spec: 1 thread-group->thread-vector thread-group->thread-vector) - (spec: 1 flround flround) + nonprocedure-operator-exception-operator + nonprocedure-operator-exception-operator) + (spec: 1 thread-group-resume! thread-group-resume!) + (spec: 1 drop-right drop-right) + (spec: 1 apropos apropos) + (spec: 1 make-f32vector make-f32vector) + (spec: 1 continuation-capture continuation-capture) + (spec: 1 subu64vector-fill! subu64vector-fill!) (spec: 1 - file-info-last-modification-time - file-info-last-modification-time) - (spec: 1 bitwise-not bitwise-not) - (spec: 1 current-readtable current-readtable) - (spec: 1 file-device file-device) - (spec: 1 u8vector-copy! u8vector-copy!) - (spec: 1 fixnum-overflow-exception? fixnum-overflow-exception?) - (spec: 1 uncaught-exception-arguments uncaught-exception-arguments) - (spec: 1 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 1 file-size file-size) - (spec: 1 unbound-global-exception? unbound-global-exception?) - (spec: 1 ninth ninth) - (spec: 1 read-file-string read-file-string) + unbound-key-exception-procedure + unbound-key-exception-procedure) + (spec: 1 f32vector->list f32vector->list) + (spec: 1 make-thread make-thread) + (spec: 1 service-info-aliases service-info-aliases) + (spec: 1 s16vector-copy s16vector-copy) (spec: 1 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 1 u16vector-set u16vector-set) - (spec: 1 help help) - (spec: 1 make-s16vector make-s16vector) - (spec: 1 append-reverse append-reverse) - (spec: 1 type-exception-type-id type-exception-type-id) - (spec: 1 get-output-vector get-output-vector) - (spec: 1 pretty-print pretty-print) - (spec: 1 bit-set? bit-set?) - (spec: 1 f64vector-length f64vector-length) - (spec: 1 s8vector-ref s8vector-ref) - (spec: 1 subu16vector-move! subu16vector-move!) - (spec: 1 with-input-from-port with-input-from-port) - (spec: 1 f32vector-length f32vector-length) - (spec: 1 subs16vector-fill! subs16vector-fill!) - (spec: 1 identity identity) - (spec: 1 protocol-info? protocol-info?) - (spec: 1 char-set-diff+intersection char-set-diff+intersection) + thread-state-normally-terminated-result + thread-state-normally-terminated-result) + (spec: 1 s8vector-concatenate s8vector-concatenate) (spec: 1 condition-variable-signal! condition-variable-signal!) - (spec: 1 set-box! set-box!) - (spec: 1 s16vector-shrink! s16vector-shrink!) - (spec: 1 fxif fxif) - (spec: 1 list->f32vector list->f32vector) - (spec: 1 started-thread-exception? started-thread-exception?) - (spec: 1 thread-terminate! thread-terminate!) - (spec: 1 u32vector-ref u32vector-ref) - (spec: 1 fx<= fx<=) (spec: 1 - thread-state-abnormally-terminated? - thread-state-abnormally-terminated?) - (spec: 1 vector->bits vector->bits) - (spec: 1 address-info-protocol address-info-protocol) - (spec: 1 string-concatenate string-concatenate) + tty-paren-balance-duration-set! + tty-paren-balance-duration-set!) + (spec: 1 protocol-info? protocol-info?) + (spec: 1 char-set-filter! char-set-filter!) + (spec: 1 fxlength fxlength) + (spec: 1 subs32vector-move! subs32vector-move!) + (spec: 1 foreign-released? foreign-released?) + (spec: 1 list-sort! list-sort!) + (spec: 1 display-exception display-exception) + (spec: 1 s64vector->list s64vector->list) + (spec: 1 top top) + (spec: 1 cpu-time cpu-time) (spec: 1 - path-strip-trailing-directory-separator - path-strip-trailing-directory-separator) - (spec: 1 string->char-set! string->char-set!) - (spec: 1 fxquotient fxquotient) - (spec: 1 link-incremental link-incremental) - (spec: 1 terminated-thread-exception? terminated-thread-exception?) - (spec: 1 fllog1p fllog1p) + inactive-thread-exception-procedure + inactive-thread-exception-procedure) (spec: 1 - display-continuation-backtrace - display-continuation-backtrace) - (spec: 1 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 1 tanh tanh) + random-source-pseudo-randomize! + random-source-pseudo-randomize!) (spec: 1 - invalid-hash-number-exception? - invalid-hash-number-exception?) - (spec: 1 flceiling flceiling) - (spec: 1 readtable? readtable?) + readtable-max-unescaped-char-set + readtable-max-unescaped-char-set) + (spec: 1 flsin flsin) + (spec: 1 table-ref table-ref) + (spec: 1 sixth sixth) (spec: 1 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) - (spec: 1 eighth eighth) - (spec: 1 open-output-process open-output-process) - (spec: 1 keyword-expected-exception? keyword-expected-exception?) - (spec: 1 flscalbn flscalbn) + file-last-access-and-modification-times-set! + file-last-access-and-modification-times-set!) + (spec: 1 open-input-vector open-input-vector) + (spec: 1 bits->vector bits->vector) + (spec: 1 shell-command shell-command) + (spec: 1 input-port-bytes-buffered input-port-bytes-buffered) + (spec: 1 datum-parsing-exception? datum-parsing-exception?) + (spec: 1 u64vector-shrink! u64vector-shrink!) + (spec: 1 char-set->string char-set->string) + (spec: 1 fx< fx<) + (spec: 1 output-port-column output-port-column) + (spec: 1 vector-any vector-any) + (spec: 1 with-input-from-process with-input-from-process) + (spec: 1 u32vector-shrink! u32vector-shrink!) + (spec: 1 err-code->string err-code->string) + (spec: 1 f32vector? f32vector?) + (spec: 1 list->s8vector list->s8vector) + (spec: 1 flcos flcos) + (spec: 1 call-with-input-string call-with-input-string) + (spec: 1 s32vector-concatenate s32vector-concatenate) + (spec: + 1 + rpc-remote-error-exception-arguments + rpc-remote-error-exception-arguments) + (spec: 1 fxremainder fxremainder) + (spec: 1 char-set-xor char-set-xor) + (spec: 1 string->keyword string->keyword) + (spec: 1 flmin flmin) + (spec: 1 thread-quantum-set! thread-quantum-set!) + (spec: 1 file-exists-exception? file-exists-exception?) + (spec: 1 bitwise-orc1 bitwise-orc1) + (spec: 1 multiple-c-return-exception? multiple-c-return-exception?) + (spec: 1 fl/ fl/) + (spec: + 1 + nonprocedure-operator-exception-arguments + nonprocedure-operator-exception-arguments) (spec: 1 dotted-list? dotted-list?) + (spec: 1 u8vector-fill! u8vector-fill!) + (spec: 1 thread-group-name thread-group-name) + (spec: 1 uncaught-exception-reason uncaught-exception-reason) + (spec: 1 current-processor current-processor) + (spec: 1 append-reverse! append-reverse!) + (spec: 1 make-condition-variable make-condition-variable) + (spec: 1 s8vector? s8vector?) + (spec: 1 type-exception? type-exception?) + (spec: 1 filter filter) + (spec: 1 subu32vector-move! subu32vector-move!) + (spec: 1 u16vector? u16vector?) + (spec: 1 link-incremental link-incremental) + (spec: 1 s16vector-append s16vector-append) + (spec: 1 thread-state-initialized? thread-state-initialized?) + (spec: 1 tty-history-set! tty-history-set!) + (spec: 1 s8vector->list s8vector->list) + (spec: 1 condition-variable-broadcast! condition-variable-broadcast!) + (spec: 1 subs32vector subs32vector) + (spec: 1 fxif fxif) + (spec: 1 char-set-every char-set-every) + (spec: 1 protocol-info-name protocol-info-name) + (spec: 1 started-thread-exception? started-thread-exception?) + (spec: 1 open-vector-pipe open-vector-pipe) + (spec: 1 foreign-address foreign-address) + (spec: 1 readtable? readtable?) (spec: 1 - thread-group->thread-group-list - thread-group->thread-group-list) - (spec: 1 u8vector? u8vector?) - (spec: 1 bitwise-merge bitwise-merge) - (spec: 1 file-info-type file-info-type) - (spec: 1 random-source-state-ref random-source-state-ref) - (spec: 1 module-whitelist-reset! module-whitelist-reset!) + display-continuation-dynamic-environment + display-continuation-dynamic-environment) (spec: 1 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 1 file-exists-exception? file-exists-exception?) - (spec: 1 u8vector-append u8vector-append) + join-timeout-exception-procedure + join-timeout-exception-procedure) + (spec: 1 random-source-make-reals random-source-make-reals) + (spec: 1 table-merge table-merge) + (spec: 1 flround flround) (spec: 1 readtable-keywords-allowed?-set readtable-keywords-allowed?-set) + (spec: 1 file-info? file-info?) + (spec: 1 break break) + (spec: 1 get-output-vector get-output-vector) + (spec: 1 bits bits) + (spec: 1 f64vector-swap! f64vector-swap!) + (spec: 1 u64vector-set u64vector-set) (spec: 1 - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-arguments) - (spec: 1 table->list table->list) - (spec: 1 fl- fl-) - (spec: 1 unbox unbox) - (spec: 1 read-file-string-list read-file-string-list) - (spec: 1 deadlock-exception? deadlock-exception?) - (spec: 1 compile-file-to-target compile-file-to-target) - (spec: 1 filter filter) - (spec: 1 input-port-byte-position input-port-byte-position) - (spec: 1 u16vector-length u16vector-length) - (spec: 1 unbound-global-exception-code unbound-global-exception-code) - (spec: 1 help-browser help-browser) - (spec: 1 any-bits-set? any-bits-set?) - (spec: 1 serial-number->object serial-number->object) - (spec: 1 with-input-from-process with-input-from-process) - (spec: 1 type-exception-arg-id type-exception-arg-id) - (spec: 1 bit-field-reverse bit-field-reverse) - (spec: 1 getenv getenv) - (spec: 1 s8vector? s8vector?) - (spec: 1 u64vector-copy! u64vector-copy!) - (spec: 1 subu32vector subu32vector) - (spec: 1 continuation-capture continuation-capture) - (spec: 1 f64vector-shrink! f64vector-shrink!) - (spec: 1 u32vector-fill! u32vector-fill!) - (spec: 1 subs16vector-move! subs16vector-move!) - (spec: 1 condition-variable-specific condition-variable-specific) - (spec: 1 f32vector-shrink! f32vector-shrink!) - (spec: 1 thread-thread-group thread-thread-group) - (spec: 1 fxeqv fxeqv) - (spec: 1 list->f64vector list->f64vector) - (spec: 1 char-set-filter char-set-filter) - (spec: 1 s16vector-swap! s16vector-swap!) - (spec: 1 link-flat link-flat) - (spec: 1 vector-cas! vector-cas!) + datum-parsing-exception-parameters + datum-parsing-exception-parameters) + (spec: 1 process-times process-times) + (spec: 1 output-port-byte-position output-port-byte-position) (spec: 1 fx+ fx+) - (spec: 1 address-info-socket-info address-info-socket-info) - (spec: 1 char-set-adjoin! char-set-adjoin!) - (spec: 1 permission-denied-exception? permission-denied-exception?) - (spec: 1 string->uninterned-keyword string->uninterned-keyword) - (spec: 1 s64vector s64vector) - (spec: 1 char-set-xor char-set-xor) - (spec: 1 fxwrap- fxwrap-) - (spec: 1 object->u8vector object->u8vector) + (spec: 1 char-set char-set) + (spec: 1 gc-report-set! gc-report-set!) + (spec: 1 f32vector-shrink! f32vector-shrink!) + (spec: 1 string-contains-ci string-contains-ci) + (spec: 1 u32vector-set u32vector-set) + (spec: 1 list->s32vector list->s32vector) + (spec: 1 s32vector->list s32vector->list) + (spec: 1 flatanh flatanh) + (spec: 1 not-pair? not-pair?) + (spec: 1 thread? thread?) (spec: 1 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) - (spec: 1 flnumerator flnumerator) - (spec: 1 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 1 call-with-input-string call-with-input-string) - (spec: 1 flexp flexp) - (spec: 1 open-vector open-vector) - (spec: 1 socket-info-address socket-info-address) - (spec: 1 foreign-tags foreign-tags) - (spec: 1 thread-mailbox-next thread-mailbox-next) - (spec: 1 open-input-vector open-input-vector) - (spec: 1 drop drop) - (spec: 1 fltan fltan) - (spec: 1 box box) - (spec: 1 keyword-hash keyword-hash) + unknown-keyword-argument-exception-procedure + unknown-keyword-argument-exception-procedure) + (spec: 1 thread-priority-boost-set! thread-priority-boost-set!) + (spec: 1 char-set-union char-set-union) + (spec: 1 fxpositive? fxpositive?) + (spec: 1 object->string object->string) + (spec: 1 fllog1p fllog1p) + (spec: 1 path-extension path-extension) (spec: 1 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 1 ucs-range->char-set ucs-range->char-set) - (spec: 1 file-info? file-info?) - (spec: 1 initial-current-directory initial-current-directory) - (spec: 1 bitwise-nand bitwise-nand) + file-exists-exception-arguments + file-exists-exception-arguments) + (spec: 1 bitwise-nor bitwise-nor) + (spec: 1 string->char-set string->char-set) + (spec: 1 fl+* fl+*) + (spec: 1 u8vector-copy u8vector-copy) + (spec: 1 keyword? keyword?) + (spec: 1 uncaught-exception-arguments uncaught-exception-arguments) + (spec: 1 thread-group->thread-list thread-group->thread-list) + (spec: 1 make-bitwise-generator make-bitwise-generator) + (spec: 1 append! append!) + (spec: 1 s8vector-shrink! s8vector-shrink!) + (spec: 1 subu32vector subu32vector) + (spec: 1 type-exception-procedure type-exception-procedure) (spec: 1 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) - (spec: 1 cpu-time cpu-time) - (spec: 1 subu64vector-move! subu64vector-move!) - (spec: 1 u8vector-concatenate u8vector-concatenate) - (spec: 1 readtable-eval-allowed? readtable-eval-allowed?) - (spec: 1 unbreak unbreak) - (spec: 1 fl/ fl/) + unbound-global-exception-variable + unbound-global-exception-variable) + (spec: 1 extract-bit-field extract-bit-field) + (spec: 1 asinh asinh) + (spec: 1 char-set-difference char-set-difference) + (spec: 1 make-s64vector make-s64vector) + (spec: 1 thread-priority-set! thread-priority-set!) + (spec: 1 s16vector s16vector) + (spec: 1 address-info? address-info?) (spec: 1 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) - (spec: 1 datum-parsing-exception? datum-parsing-exception?) - (spec: 1 filter! filter!) - (spec: 1 input-port-line input-port-line) - (spec: 1 unbound-global-exception-rte unbound-global-exception-rte) - (spec: 1 process-status process-status) - (spec: 1 string-prefix? string-prefix?) - (spec: 1 extract-bit-field extract-bit-field) - (spec: 1 host-info host-info) - (spec: 1 with-exception-handler with-exception-handler) - (spec: 1 type-exception-arguments type-exception-arguments) - (spec: 1 group-info-gid group-info-gid) - (spec: 1 bit-field-rotate bit-field-rotate) - (spec: 1 subs64vector-fill! subs64vector-fill!) - (spec: 1 f64vector-swap! f64vector-swap!) - (spec: 1 u64vector-fill! u64vector-fill!) - (spec: 1 write-subu8vector write-subu8vector) - (spec: 1 protocol-info-name protocol-info-name) - (spec: 1 condition-variable-broadcast! condition-variable-broadcast!) - (spec: 1 f32vector-swap! f32vector-swap!) - (spec: 1 setenv setenv) - (spec: 1 u32vector-length u32vector-length) - (spec: 1 thread-state-waiting? thread-state-waiting?) - (spec: 1 list->char-set list->char-set) - (spec: 1 char-set-filter! char-set-filter!) + thread-state-abnormally-terminated? + thread-state-abnormally-terminated?) + (spec: 1 protocol-info protocol-info) + (spec: 1 identity identity) + (spec: 1 tty-history tty-history) + (spec: 1 compile-file-to-target compile-file-to-target) (spec: 1 fxeven? fxeven?) - (spec: 1 equal?-hash equal?-hash) - (spec: 1 s32vector s32vector) - (spec: 1 output-port-readtable output-port-readtable) - (spec: 1 char-set-any char-set-any) - (spec: 1 fx- fx-) - (spec: 1 s16vector-append s16vector-append) (spec: 1 started-thread-exception-arguments started-thread-exception-arguments) - (spec: 1 s64vector-swap! s64vector-swap!) - (spec: 1 top top) - (spec: 1 vector-concatenate vector-concatenate) - (spec: 1 address-infos address-infos) - (spec: 1 fxwrapabs fxwrapabs) - (spec: 1 path-strip-directory path-strip-directory) - (spec: 1 char-set-xor! char-set-xor!) - (spec: 1 list-sort! list-sort!) - (spec: 1 s32vector? s32vector?) - (spec: 1 remq remq) - (spec: 1 thread-priority-set! thread-priority-set!) - (spec: 1 join-timeout-exception? join-timeout-exception?) - (spec: 1 uncaught-exception-reason uncaught-exception-reason) - (spec: 1 flexpm1 flexpm1) + (spec: 1 subs16vector-fill! subs16vector-fill!) + (spec: 1 u16vector-shrink! u16vector-shrink!) (spec: 1 readtable-write-extended-read-macros? readtable-write-extended-read-macros?) - (spec: 1 call-with-input-u8vector call-with-input-u8vector) - (spec: 1 table-merge! table-merge!) - (spec: 1 socket-info-family socket-info-family) - (spec: 1 open-vector-pipe open-vector-pipe) - (spec: 1 thread-group-resume! thread-group-resume!) - (spec: 1 fltanh fltanh) - (spec: 1 open-output-bytevector open-output-bytevector) - (spec: 1 file-info-owner file-info-owner) - (spec: 1 u8vector-length u8vector-length) - (spec: 1 current-processor current-processor) - (spec: 1 subu8vector subu8vector) - (spec: 1 u64vector-set! u64vector-set!) + (spec: 1 open-udp open-udp) + (spec: 1 tcp-client-local-socket-info tcp-client-local-socket-info) + (spec: 1 user-name user-name) + (spec: 1 s32vector? s32vector?) + (spec: 1 rename-file rename-file) + (spec: 1 random-source-make-f64vectors random-source-make-f64vectors) + (spec: 1 readtable-eval-allowed?-set readtable-eval-allowed?-set) + (spec: 1 integer-nth-root integer-nth-root) + (spec: 1 table-for-each table-for-each) + (spec: 1 file-info-size file-info-size) + (spec: 1 with-output-to-vector with-output-to-vector) + (spec: 1 f64vector-set! f64vector-set!) + (spec: 1 help-browser help-browser) + (spec: 1 write-substring write-substring) (spec: 1 - file-exists-exception-arguments - file-exists-exception-arguments) - (spec: 1 random-source-randomize! random-source-randomize!) - (spec: 1 bitwise-unfold bitwise-unfold) - (spec: 1 compile-file compile-file) - (spec: 1 fl+ fl+) + permission-denied-exception-procedure + permission-denied-exception-procedure) + (spec: 1 console-port console-port) + (spec: 1 make-will make-will) + (spec: 1 f32vector-set f32vector-set) + (spec: 1 string-concatenate string-concatenate) + (spec: 1 list->f64vector list->f64vector) + (spec: 1 with-exception-catcher with-exception-catcher) + (spec: 1 thread-thread-group thread-thread-group) (spec: 1 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) - (spec: 1 readtable-eval-allowed?-set readtable-eval-allowed?-set) + not-in-compilation-context-exception? + not-in-compilation-context-exception?) + (spec: 1 flasinh flasinh) + (spec: 1 address-info-socket-info address-info-socket-info) + (spec: 1 thread-name thread-name) + (spec: 1 fxorc1 fxorc1) + (spec: 1 char-set-unfold char-set-unfold) + (spec: 1 untrace untrace) + (spec: 1 module-whitelist-reset! module-whitelist-reset!) + (spec: 1 bitwise-merge bitwise-merge) + (spec: 1 current-exception-handler current-exception-handler) (spec: 1 - unbound-key-exception-procedure - unbound-key-exception-procedure) - (spec: 1 udp-local-socket-info udp-local-socket-info) - (spec: 1 dead-end dead-end) - (spec: 1 host-info-addresses host-info-addresses) - (spec: 1 expression-parsing-exception? expression-parsing-exception?) - (spec: 1 make-s8vector make-s8vector) - (spec: 1 process-times process-times) - (spec: 1 group-info-members group-info-members) - (spec: 1 s8vector-shrink! s8vector-shrink!) - (spec: 1 make-f32vector make-f32vector) - (spec: 1 apropos apropos) - (spec: 1 subs64vector-move! subs64vector-move!) - (spec: 1 tty-history-max-length-set! tty-history-max-length-set!) - (spec: 1 f64vector-set f64vector-set) - (spec: 1 u32vector-shrink! u32vector-shrink!) - (spec: 1 xcons xcons) - (spec: 1 bits->list bits->list) - (spec: 1 u16vector-swap! u16vector-swap!) - (spec: 1 f32vector-set f32vector-set) - (spec: 1 condition-variable-name condition-variable-name) - (spec: 1 protocol-info-number protocol-info-number) - (spec: 1 vector-any vector-any) - (spec: 1 s32vector->list s32vector->list) - (spec: 1 char-set-difference! char-set-difference!) - (spec: 1 fxmax fxmax) - (spec: 1 list->char-set! list->char-set!) - (spec: 1 thread-suspend! thread-suspend!) - (spec: 1 output-port-column output-port-column) - (spec: 1 char-set->string char-set->string) - (spec: 1 fx>= fx>=) - (spec: 1 address-info-family address-info-family) - (spec: 1 s16vector-concatenate s16vector-concatenate) + nonempty-input-port-character-buffer-exception-procedure + nonempty-input-port-character-buffer-exception-procedure) + (spec: 1 u8vector-append u8vector-append) + (spec: 1 unbreak unbreak) + (spec: 1 keyword-expected-exception? keyword-expected-exception?) (spec: 1 - thread-state-abnormally-terminated-reason - thread-state-abnormally-terminated-reason) + thread-group->thread-group-list + thread-group->thread-group-list) + (spec: 1 heap-overflow-exception? heap-overflow-exception?) + (spec: 1 s8vector-set s8vector-set) + (spec: 1 any-bits-set? any-bits-set?) + (spec: 1 type-exception-arg-id type-exception-arg-id) + (spec: 1 subu16vector-fill! subu16vector-fill!) + (spec: 1 file-type file-type) + (spec: 1 make-s16vector make-s16vector) + (spec: 1 fxbit-set? fxbit-set?) + (spec: 1 u16vector-set u16vector-set) + (spec: 1 unbound-global-exception-code unbound-global-exception-code) + (spec: 1 char-set-diff+intersection char-set-diff+intersection) (spec: 1 s64vector? s64vector?) - (spec: 1 char-set? char-set?) - (spec: 1 fxwrap* fxwrap*) - (spec: 1 list-tabulate list-tabulate) - (spec: 1 flnan? flnan?) - (spec: 1 rename-file rename-file) - (spec: 1 table-ref table-ref) - (spec: 1 fldenominator fldenominator) + (spec: 1 bit-set? bit-set?) + (spec: 1 subf64vector-move! subf64vector-move!) + (spec: 1 concatenate! concatenate!) (spec: 1 - readtable-write-extended-read-macros?-set - readtable-write-extended-read-macros?-set) - (spec: 1 call-with-output-u8vector call-with-output-u8vector) + invalid-hash-number-exception? + invalid-hash-number-exception?) + (spec: 1 car+cdr car+cdr) (spec: 1 - uninitialized-thread-exception-procedure - uninitialized-thread-exception-procedure) - (spec: 1 thread-group-specific thread-group-specific) - (spec: 1 foreign-release! foreign-release!) - (spec: 1 open-output-vector open-output-vector) - (spec: 1 flsqrt flsqrt) + readtable-write-cdr-read-macros? + readtable-write-cdr-read-macros?) + (spec: 1 open-u8vector open-u8vector) + (spec: 1 split-at split-at) + (spec: 1 s32vector-shrink! s32vector-shrink!) + (spec: 1 tanh tanh) + (spec: 1 user-info-uid user-info-uid) + (spec: + 1 + unterminated-process-exception-arguments + unterminated-process-exception-arguments) + (spec: 1 range-exception-arguments range-exception-arguments) + (spec: 1 u8vector-concatenate u8vector-concatenate) + (spec: 1 open-string-pipe open-string-pipe) + (spec: 1 fold-right fold-right) + (spec: + 1 + thread-group->thread-group-vector + thread-group->thread-group-vector) + (spec: 1 keyword-hash keyword-hash) + (spec: 1 cfun-conversion-exception? cfun-conversion-exception?) + (spec: + 1 + unbound-serial-number-exception-procedure + unbound-serial-number-exception-procedure) + (spec: 1 s8vector-set! s8vector-set!) + (spec: 1 type-exception-arguments type-exception-arguments) + (spec: 1 substring-fill! substring-fill!) + (spec: 1 bitwise-nand bitwise-nand) + (spec: 1 unbound-global-exception-rte unbound-global-exception-rte) + (spec: 1 second second) + (spec: 1 fxarithmetic-shift-left fxarithmetic-shift-left) + (spec: + 1 + thread-state-abnormally-terminated-reason + thread-state-abnormally-terminated-reason) + (spec: 1 char-set-cursor-next char-set-cursor-next) + (spec: 1 u16vector-length u16vector-length) + (spec: 1 s64vector-set! s64vector-set!) + (spec: 1 bit-field-reverse bit-field-reverse) + (spec: + 1 + wrong-processor-c-return-exception? + wrong-processor-c-return-exception?) + (spec: 1 subs16vector subs16vector) + (spec: 1 vector-fold-right vector-fold-right) + (spec: 1 flilogb flilogb) (spec: 1 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) - (spec: 1 random-u8vector random-u8vector) + readtable-write-cdr-read-macros?-set + readtable-write-cdr-read-macros?-set) + (spec: 1 call/cc call/cc) + (spec: 1 user-info-home user-info-home) + (spec: 1 fxwrapsquare fxwrapsquare) + (spec: 1 s32vector-swap! s32vector-swap!) (spec: 1 - current-user-interrupt-handler - current-user-interrupt-handler) - (spec: 1 file-info-size file-info-size) - (spec: 1 subu64vector subu64vector) - (spec: 1 u64vector-shrink! u64vector-shrink!) - (spec: 1 mutex-lock! mutex-lock!) - (spec: 1 bitwise-xor bitwise-xor) - (spec: 1 create-link create-link) + terminated-thread-exception-arguments + terminated-thread-exception-arguments) + (spec: 1 file-info-last-change-time file-info-last-change-time) + (spec: 1 readtable-case-conversion? readtable-case-conversion?) + (spec: 1 flasin flasin) + (spec: 1 u8vector-shrink! u8vector-shrink!) + (spec: 1 with-output-to-u8vector with-output-to-u8vector) + (spec: 1 port-settings-set! port-settings-set!) + (spec: 1 u64vector-concatenate u64vector-concatenate) (spec: 1 - file-exists-exception-procedure - file-exists-exception-procedure) - (spec: 1 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 1 integer-sqrt integer-sqrt) + fixnum-overflow-exception-procedure + fixnum-overflow-exception-procedure) + (spec: 1 copy-file copy-file) + (spec: 1 write-file-u8vector write-file-u8vector) + (spec: 1 string-suffix-length string-suffix-length) + (spec: 1 u32vector-length u32vector-length) + (spec: 1 f32vector-ref f32vector-ref) + (spec: 1 thread-state-waiting-for thread-state-waiting-for) + (spec: 1 s16vector-shrink! s16vector-shrink!) + (spec: 1 char-set-size char-set-size) + (spec: 1 directory-files directory-files) + (spec: 1 fxodd? fxodd?) (spec: 1 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) - (spec: 1 unbound-key-exception? unbound-key-exception?) - (spec: 1 fl+* fl+*) + not-in-compilation-context-exception-procedure + not-in-compilation-context-exception-procedure) + (spec: 1 thread-interrupt! thread-interrupt!) + (spec: 1 path-directory path-directory) + (spec: 1 acosh acosh) + (spec: 1 step-level-set! step-level-set!) + (spec: 1 divide-by-zero-exception? divide-by-zero-exception?) + (spec: 1 u8vector->object u8vector->object) + (spec: 1 module-whitelist-add! module-whitelist-add!) + (spec: 1 create-temporary-directory create-temporary-directory) + (spec: 1 open-process open-process) (spec: 1 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 1 string-prefix-length string-prefix-length) - (spec: 1 command-name command-name) - (spec: 1 tty-history-set! tty-history-set!) - (spec: 1 make-f64vector make-f64vector) - (spec: 1 s8vector-swap! s8vector-swap!) - (spec: 1 with-input-from-vector with-input-from-vector) - (spec: 1 subs32vector-move! subs32vector-move!) - (spec: 1 u32vector-swap! u32vector-swap!) - (spec: 1 bits->vector bits->vector) - (spec: 1 continuation? continuation?) - (spec: 1 f64vector-set! f64vector-set!) - (spec: 1 string=?-hash string=?-hash) - (spec: 1 processor? processor?) - (spec: 1 u16vector? u16vector?) - (spec: 1 f32vector-set! f32vector-set!) + keyword-expected-exception-procedure + keyword-expected-exception-procedure) (spec: 1 - wrong-number-of-arguments-exception? - wrong-number-of-arguments-exception?) - (spec: 1 fxmin fxmin) - (spec: 1 eq?-hash eq?-hash) - (spec: 1 char-set-every char-set-every) - (spec: 1 list->s64vector list->s64vector) + cfun-conversion-exception-message + cfun-conversion-exception-message) + (spec: 1 flzero? flzero?) + (spec: 1 print print) + (spec: 1 file-size file-size) + (spec: 1 string-shrink! string-shrink!) + (spec: 1 main main) + (spec: 1 circular-list? circular-list?) + (spec: 1 s8vector-ref s8vector-ref) + (spec: 1 bitwise-ior bitwise-ior) + (spec: 1 file-device file-device) + (spec: 1 read-subu8vector read-subu8vector) (spec: 1 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) - (spec: 1 fxabs fxabs) - (spec: 1 output-port-line output-port-line) - (spec: 1 char-set-adjoin char-set-adjoin) - (spec: 1 s16vector s16vector) - (spec: 1 string->uninterned-symbol string->uninterned-symbol) - (spec: 1 thread-quantum thread-quantum) - (spec: 1 s64vector-concatenate s64vector-concatenate) - (spec: 1 address-info-socket-type address-info-socket-type) - (spec: 1 vector-shrink! vector-shrink!) - (spec: 1 thread-yield! thread-yield!) - (spec: 1 s32vector-copy s32vector-copy) - (spec: 1 fxwrap+ fxwrap+) + default-user-interrupt-handler + default-user-interrupt-handler) + (spec: 1 input-port-timeout-set! input-port-timeout-set!) + (spec: 1 script-file script-file) + (spec: 1 concatenate concatenate) + (spec: 1 system-type-string system-type-string) + (spec: 1 fxandc2 fxandc2) + (spec: 1 char-set-count char-set-count) + (spec: 1 s64vector-ref s64vector-ref) + (spec: 1 f64vector-fill! f64vector-fill!) + (spec: 1 thread-state thread-state) + (spec: 1 subf64vector-fill! subf64vector-fill!) + (spec: 1 bit-field-replace bit-field-replace) + (spec: 1 u16vector-copy! u16vector-copy!) (spec: 1 - number-of-arguments-limit-exception-arguments - number-of-arguments-limit-exception-arguments) + number-of-arguments-limit-exception-procedure + number-of-arguments-limit-exception-procedure) (spec: 1 - join-timeout-exception-arguments - join-timeout-exception-arguments) - (spec: 1 flnegative? flnegative?) - (spec: 1 display-exception-in-context display-exception-in-context) + wrong-number-of-values-exception? + wrong-number-of-values-exception?) + (spec: 1 flfloor flfloor) (spec: 1 - uninitialized-thread-exception? - uninitialized-thread-exception?) - (spec: 1 table-length table-length) - (spec: 1 call-with-output-vector call-with-output-vector) - (spec: 1 fleven? fleven?) - (spec: 1 readtable-max-write-length readtable-max-write-length) - (spec: 1 thread-group-name thread-group-name) - (spec: 1 foreign-released? foreign-released?) - (spec: 1 open-directory open-directory) + invalid-hash-number-exception-procedure + invalid-hash-number-exception-procedure) + (spec: 1 readtable-start-syntax-set readtable-start-syntax-set) + (spec: 1 user-info user-info) + (spec: 1 s32vector-set! s32vector-set!) + (spec: 1 fxwraplogical-shift-right fxwraplogical-shift-right) + (spec: 1 mutex-unlock! mutex-unlock!) + (spec: 1 open-event-queue open-event-queue) + (spec: 1 tenth tenth) + (spec: 1 file-info-inode file-info-inode) + (spec: 1 subvector-fill! subvector-fill!) + (spec: 1 system-version-string system-version-string) + (spec: 1 flacosh flacosh) + (spec: 1 u8vector-set u8vector-set) + (spec: 1 read-all read-all) + (spec: 1 with-output-to-process with-output-to-process) + (spec: 1 u64vector->list u64vector->list) (spec: 1 - cfun-conversion-exception-code - cfun-conversion-exception-code) - (spec: 1 flsquare flsquare) - (spec: 1 repl-error-port repl-error-port) - (spec: 1 u8vector-fill! u8vector-fill!) - (spec: 1 file-last-access-time file-last-access-time) - (spec: 1 u64vector-ref u64vector-ref) - (spec: 1 raise raise) - (spec: 1 create-symbolic-link create-symbolic-link) - (spec: 1 bitwise-orc1 bitwise-orc1) - (spec: 1 file-info-attributes file-info-attributes) - (spec: 1 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 1 read-substring read-substring) - (spec: 1 subu64vector-fill! subu64vector-fill!) - (spec: 1 delete delete) - (spec: 1 fl= fl=) - (spec: 1 udp-destination-set! udp-destination-set!) - (spec: 1 default-random-source default-random-source) - (spec: 1 input-port-column input-port-column) - (spec: 1 first first) - (spec: 1 primordial-exception-handler primordial-exception-handler) - (spec: 1 make-s32vector make-s32vector) - (spec: 1 scheduler-exception? scheduler-exception?) - (spec: 1 f32vector f32vector) - (spec: 1 ->char-set ->char-set) - (spec: 1 string-prefix-length-ci string-prefix-length-ci) - (spec: 1 poll-point poll-point) - (spec: 1 circular-list circular-list) - (spec: 1 append-reverse! append-reverse!) - (spec: 1 group-info group-info) - (spec: 1 make-condition-variable make-condition-variable) - (spec: 1 s8vector-append s8vector-append) - (spec: 1 subs64vector subs64vector) - (spec: 1 type-exception? type-exception?) - (spec: 1 bit-swap bit-swap) - (spec: 1 u32vector-set u32vector-set) - (spec: 1 u16vector-set! u16vector-set!) - (spec: 1 service-info service-info) - (spec: 1 f64vector f64vector) + noncontinuable-exception-reason + noncontinuable-exception-reason) + (spec: 1 copy-bit copy-bit) + (spec: 1 random-integer random-integer) + (spec: 1 s16vector-set s16vector-set) + (spec: 1 f32vector-length f32vector-length) + (spec: 1 write-file-string write-file-string) + (spec: 1 subs8vector-move! subs8vector-move!) + (spec: 1 any-bit-set? any-bit-set?) + (spec: 1 make-u8vector make-u8vector) + (spec: 1 set-box! set-box!) + (spec: 1 u32vector-copy! u32vector-copy!) + (spec: 1 thread-state-uninitialized? thread-state-uninitialized?) + (spec: 1 partition! partition!) + (spec: 1 char-set-map char-set-map) + (spec: 1 fxnor fxnor) + (spec: 1 uninterned-keyword? uninterned-keyword?) + (spec: 1 os-exception-procedure os-exception-procedure) + (spec: 1 s64vector-length s64vector-length) + (spec: 1 vector-unfold vector-unfold) + (spec: 1 every every) + (spec: 1 compile-file compile-file) (spec: 1 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 1 fxior fxior) - (spec: 1 list->s8vector list->s8vector) - (spec: 1 char-set-hash char-set-hash) - (spec: 1 output-port-width output-port-width) - (spec: 1 vector-cumulate vector-cumulate) - (spec: 1 thread-quantum-set! thread-quantum-set!) - (spec: 1 fx= fx=) - (spec: 1 os-exception-arguments os-exception-arguments) + divide-by-zero-exception-arguments + divide-by-zero-exception-arguments) + (spec: 1 u8vector u8vector) + (spec: 1 create-link create-link) + (spec: 1 random-u8vector random-u8vector) + (spec: 1 delete-file-or-directory delete-file-or-directory) + (spec: 1 socket-info-port-number socket-info-port-number) + (spec: 1 repl-result-history-ref repl-result-history-ref) + (spec: 1 fltruncate fltruncate) + (spec: + 1 + cfun-conversion-exception-arguments + cfun-conversion-exception-arguments) + (spec: 1 open-output-vector open-output-vector) + (spec: 1 file-owner file-owner) + (spec: 1 network-info? network-info?) + (spec: 1 s8vector-length s8vector-length) + (spec: 1 group-info-name group-info-name) + (spec: 1 string-set string-set) + (spec: 1 file-attributes file-attributes) + (spec: 1 bitwise-for-each bitwise-for-each) + (spec: 1 module-search-order-add! module-search-order-add!) + (spec: 1 input-port-readtable input-port-readtable) + (spec: 1 system-stamp system-stamp) + (spec: 1 thread-base-priority-set! thread-base-priority-set!) + (spec: 1 compilation-target compilation-target) + (spec: 1 host-name host-name) + (spec: 1 thread-specific-set! thread-specific-set!) (spec: 1 char-set-contains? char-set-contains?) - (spec: 1 s16vector->list s16vector->list) - (spec: 1 char-set<= char-set<=) - (spec: 1 fxwraplogical-shift-right fxwraplogical-shift-right) - (spec: 1 address-info? address-info?) - (spec: 1 s32vector-copy! s32vector-copy!) - (spec: 1 fxnegative? fxnegative?) - (spec: 1 list-sort list-sort) - (spec: 1 thread? thread?) - (spec: 1 tcp-client-self-socket-info tcp-client-self-socket-info) - (spec: 1 flfloor flfloor) + (spec: 1 fxand fxand) + (spec: 1 output-port-width output-port-width) (spec: 1 - join-timeout-exception-procedure - join-timeout-exception-procedure) + port-io-exception-handler-set! + port-io-exception-handler-set!) (spec: 1 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) + sfun-conversion-exception-procedure + sfun-conversion-exception-procedure) + (spec: 1 bit-field-clear bit-field-clear) + (spec: 1 f64vector-copy f64vector-copy) + (spec: 1 subf32vector-move! subf32vector-move!) + (spec: 1 list->u8vector list->u8vector) + (spec: 1 touch touch) (spec: 1 - readtable-max-write-length-set - readtable-max-write-length-set) - (spec: 1 call-with-output-process call-with-output-process) - (spec: 1 flacos flacos) - (spec: 1 table-merge table-merge) - (spec: 1 thread-group-parent thread-group-parent) - (spec: 1 flzero? flzero?) - (spec: 1 repl-highlight-source-level repl-highlight-source-level) - (spec: 1 flonum? flonum?) - (spec: 1 random-source-state-set! random-source-state-set!) - (spec: 1 current-thread current-thread) - (spec: 1 file-last-change-time file-last-change-time) - (spec: 1 break break) - (spec: 1 r7rs-raise r7rs-raise) - (spec: 1 subvector subvector) - (spec: 1 create-directory create-directory) - (spec: 1 file-info-creation-time file-info-creation-time) - (spec: 1 bitwise-orc2 bitwise-orc2) - (spec: 1 u64vector-set u64vector-set) - (spec: 1 read-file-u8vector read-file-u8vector) - (spec: 1 system-type-string system-type-string) - (spec: 1 fl> fl>) - (spec: 1 input-port-timeout-set! input-port-timeout-set!) + readtable-sharing-allowed?-set + readtable-sharing-allowed?-set) + (spec: 1 call-with-output-u8vector call-with-output-u8vector) + (spec: 1 flexpt flexpt) (spec: 1 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) + length-mismatch-exception-procedure + length-mismatch-exception-procedure) + (spec: 1 take! take!) + (spec: 1 thread-priority thread-priority) + (spec: 1 fxwraparithmetic-shift fxwraparithmetic-shift) + (spec: 1 s32vector-ref s32vector-ref) + (spec: 1 timeout->time timeout->time) + (spec: 1 open-directory open-directory) + (spec: 1 tty? tty?) + (spec: 1 u16vector-concatenate u16vector-concatenate) + (spec: 1 file-info-device file-info-device) + (spec: 1 mutex-specific-set! mutex-specific-set!) + (spec: 1 thread-group-terminate! thread-group-terminate!) + (spec: 1 flabs flabs) + (spec: 1 udp-write-u8vector udp-write-u8vector) + (spec: 1 last last) + (spec: 1 vector-cumulate vector-cumulate) + (spec: 1 u16vector->list u16vector->list) (spec: 1 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 1 first-set-bit first-set-bit) - (spec: 1 initialized-thread-exception? initialized-thread-exception?) - (spec: 1 string-shrink! string-shrink!) - (spec: 1 command-args command-args) - (spec: 1 f32vector->list f32vector->list) - (spec: 1 asinh asinh) - (spec: 1 make-s64vector make-s64vector) - (spec: 1 s8vector-concatenate s8vector-concatenate) - (spec: 1 tty-history tty-history) - (spec: 1 with-input-from-string with-input-from-string) + initialized-thread-exception-procedure + initialized-thread-exception-procedure) (spec: 1 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 1 continuation-graft continuation-graft) - (spec: 1 subs8vector-move! subs8vector-move!) - (spec: 1 u32vector-set! u32vector-set!) - (spec: 1 bits bits) + wrong-number-of-values-exception-rte + wrong-number-of-values-exception-rte) + (spec: 1 executable-path executable-path) + (spec: 1 raise raise) + (spec: 1 subu8vector-move! subu8vector-move!) (spec: 1 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) - (spec: 1 service-info-aliases service-info-aliases) + unbound-os-environment-variable-exception-procedure + unbound-os-environment-variable-exception-procedure) (spec: 1 - condition-variable-specific-set! - condition-variable-specific-set!) - (spec: 1 f64vector->list f64vector->list) - (spec: 1 host-info? host-info?) - (spec: 1 subf32vector-fill! subf32vector-fill!) - (spec: 1 thread-state-initialized? thread-state-initialized?) - (spec: 1 list->s16vector list->s16vector) - (spec: 1 char-set-intersection char-set-intersection) - (spec: 1 error error) - (spec: 1 fxlength fxlength) - (spec: 1 s16vector-fill! s16vector-fill!) - (spec: 1 os-exception-code os-exception-code) - (spec: 1 char-set-copy char-set-copy) - (spec: 1 fx> fx>) + no-such-file-or-directory-exception? + no-such-file-or-directory-exception?) + (spec: 1 thread-state-running? thread-state-running?) + (spec: 1 f32vector-copy! f32vector-copy!) + (spec: 1 make-u32vector make-u32vector) (spec: 1 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) - (spec: 1 thread-priority-boost thread-priority-boost) - (spec: 1 u16vector-shrink! u16vector-shrink!) - (spec: 1 vector-every vector-every) - (spec: 1 char-set= char-set=) - (spec: 1 all-bits-set? all-bits-set?) - (spec: 1 list= list=) - (spec: 1 vector-set vector-set) - (spec: 1 fxnor fxnor) - (spec: 1 s32vector-append s32vector-append) - (spec: 1 list->u16vector list->u16vector) - (spec: 1 time->seconds time->seconds) - (spec: 1 flhypot flhypot) + mailbox-receive-timeout-exception-procedure + mailbox-receive-timeout-exception-procedure) + (spec: 1 subs8vector subs8vector) + (spec: 1 u32vector-concatenate u32vector-concatenate) + (spec: 1 service-info? service-info?) + (spec: 1 tcp-service-register! tcp-service-register!) + (spec: 1 fxnand fxnand) + (spec: 1 char-set-intersection char-set-intersection) (spec: 1 - display-continuation-environment - display-continuation-environment) + uninitialized-thread-exception? + uninitialized-thread-exception?) (spec: 1 invalid-utf8-encoding-exception-procedure invalid-utf8-encoding-exception-procedure) - (spec: 1 tcp-service-register! tcp-service-register!) + (spec: 1 s64vector-copy! s64vector-copy!) + (spec: 1 fourth fourth) + (spec: 1 os-exception-code os-exception-code) + (spec: 1 list= list=) + (spec: 1 vector-shrink! vector-shrink!) + (spec: 1 repl-output-port repl-output-port) + (spec: 1 display-procedure-environment display-procedure-environment) + (spec: 1 random-source-state-set! random-source-state-set!) + (spec: 1 create-directory create-directory) + (spec: 1 readtable-max-write-level-set readtable-max-write-level-set) + (spec: 1 delete-directory delete-directory) + (spec: 1 socket-info-address socket-info-address) + (spec: 1 fltan fltan) + (spec: 1 thread thread) + (spec: 1 file-mode file-mode) + (spec: 1 network-info-name network-info-name) + (spec: 1 tty-text-attributes-set! tty-text-attributes-set!) + (spec: 1 group-info-gid group-info-gid) + (spec: 1 string-prefix? string-prefix?) + (spec: 1 module-not-found-exception? module-not-found-exception?) + (spec: 1 bitwise-eqv bitwise-eqv) + (spec: 1 read-file-u8vector read-file-u8vector) + (spec: 1 input-port-line input-port-line) + (spec: 1 udp-source-socket-info udp-source-socket-info) + (spec: 1 host-info-name host-info-name) + (spec: 1 subf32vector subf32vector) + (spec: 1 thread-sleep! thread-sleep!) + (spec: 1 fx>= fx>=) + (spec: 1 char-set-complement char-set-complement) + (spec: 1 output-port-readtable-set! output-port-readtable-set!) + (spec: 1 gensym gensym) + (spec: 1 poll-point poll-point) + (spec: 1 f64vector-append f64vector-append) + (spec: 1 bit-field bit-field) (spec: 1 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 1 flacosh flacosh) + sfun-conversion-exception-code + sfun-conversion-exception-code) + (spec: 1 error-exception-parameters error-exception-parameters) + (spec: 1 list->u32vector list->u32vector) + (spec: 1 s32vector-length s32vector-length) + (spec: 1 flexp flexp) + (spec: 1 call-with-output-process call-with-output-process) + (spec: + 1 + length-mismatch-exception-arg-id + length-mismatch-exception-arg-id) + (spec: 1 path-strip-volume path-strip-volume) + (spec: 1 fxwrap- fxwrap-) + (spec: 1 string->uninterned-keyword string->uninterned-keyword) + (spec: 1 time? time?) + (spec: 1 file-info-attributes file-info-attributes) + (spec: 1 mutex-name mutex-name) + (spec: 1 thread-group-specific-set! thread-group-specific-set!) + (spec: 1 fl> fl>) (spec: 1 nonprocedure-operator-exception? nonprocedure-operator-exception?) - (spec: 1 call-with-output-string call-with-output-string) - (spec: 1 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 1 table? table?) - (spec: 1 fold fold) - (spec: 1 open-output-u8vector open-output-u8vector) - (spec: 1 last last) - (spec: 1 thread-group-terminate! thread-group-terminate!) - (spec: 1 drop-right drop-right) - (spec: 1 file-inode file-inode) + (spec: + 1 + uninitialized-thread-exception-arguments + uninitialized-thread-exception-arguments) (spec: 1 current-time current-time) - (spec: 1 mutex-specific-set! mutex-specific-set!) - (spec: 1 random-source? random-source?) - (spec: 1 subvector-fill! subvector-fill!) + (spec: 1 scheduler-exception? scheduler-exception?) + (spec: 1 continuation-return continuation-return) (spec: 1 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 1 file-group file-group) - (spec: 1 create-fifo create-fifo) + (spec: 1 subu8vector subu8vector) + (spec: + 1 + no-such-file-or-directory-exception-arguments + no-such-file-or-directory-exception-arguments) + (spec: 1 first first) + (spec: 1 f32vector-concatenate f32vector-concatenate) + (spec: 1 make-tls-context make-tls-context) + (spec: 1 service-info-port-number service-info-port-number) + (spec: 1 s16vector-fill! s16vector-fill!) + (spec: 1 s8vector-copy! s8vector-copy!) + (spec: 1 subs64vector-fill! subs64vector-fill!) + (spec: + 1 + condition-variable-specific-set! + condition-variable-specific-set!) + (spec: 1 char-set-for-each char-set-for-each) + (spec: 1 tcp-server-socket-info tcp-server-socket-info) + (spec: 1 fxmin fxmin) + (spec: 1 u32vector->list u32vector->list) + (spec: 1 vector-set vector-set) + (spec: 1 s64vector-concatenate s64vector-concatenate) + (spec: 1 abandoned-mutex-exception? abandoned-mutex-exception?) + (spec: 1 flnan? flnan?) + (spec: 1 mutex-specific mutex-specific) + (spec: 1 file-info-creation-time file-info-creation-time) + (spec: 1 uncaught-exception? uncaught-exception?) + (spec: 1 fl< fl<) (spec: 1 - module-not-found-exception-procedure - module-not-found-exception-procedure) - (spec: 1 system-version system-version) - (spec: 1 fl< fl<) + nonprocedure-operator-exception-code + nonprocedure-operator-exception-code) + (spec: 1 thread-group-suspend! thread-group-suspend!) + (spec: 1 current-readtable current-readtable) + (spec: 1 u16vector u16vector) + (spec: 1 subu64vector subu64vector) (spec: 1 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) + unbound-os-environment-variable-exception-arguments + unbound-os-environment-variable-exception-arguments) (spec: 1 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) - (spec: 1 udp-read-u8vector udp-read-u8vector) - (spec: 1 network-info-aliases network-info-aliases) - (spec: 1 string-suffix-ci? string-suffix-ci?) - (spec: 1 u16vector->list u16vector->list) - (spec: 1 with-input-from-u8vector with-input-from-u8vector) - (spec: 1 s8vector s8vector) - (spec: 1 f64vector? f64vector?) - (spec: 1 continuation-return continuation-return) - (spec: 1 bitwise-andc2 bitwise-andc2) - (spec: 1 subf32vector-move! subf32vector-move!) - (spec: 1 host-name host-name) - (spec: 1 f32vector? f32vector?) - (spec: 1 condition-variable? condition-variable?) - (spec: 1 bit-field bit-field) - (spec: 1 make-thread-group make-thread-group) - (spec: 1 output-port-readtable-set! output-port-readtable-set!) - (spec: 1 char-set-fold char-set-fold) - (spec: 1 fxandc2 fxandc2) - (spec: 1 list->s32vector list->s32vector) - (spec: 1 processor-id processor-id) + no-such-file-or-directory-exception-procedure + no-such-file-or-directory-exception-procedure) + (spec: 1 first-set-bit first-set-bit) + (spec: 1 make-table make-table) + (spec: 1 f32vector f32vector) + (spec: 1 service-info service-info) (spec: 1 s16vector-length s16vector-length) + (spec: 1 end-of-char-set? end-of-char-set?) + (spec: 1 s8vector-append s8vector-append) (spec: 1 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 1 char-set-complement char-set-complement) - (spec: 1 end-of-char-set? end-of-char-set?) - (spec: 1 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 1 u32vector u32vector) - (spec: 1 path-strip-volume path-strip-volume) + thread-state-running-processor + thread-state-running-processor) + (spec: 1 condition-variable? condition-variable?) + (spec: 1 subs64vector-move! subs64vector-move!) + (spec: 1 char-set-filter char-set-filter) + (spec: 1 fxior fxior) + (spec: + 1 + invalid-utf8-encoding-exception-arguments + invalid-utf8-encoding-exception-arguments) + (spec: 1 foreign-release! foreign-release!) + (spec: 1 abort abort) (spec: 1 s64vector-copy s64vector-copy) (spec: 1 - wrong-number-of-arguments-exception-procedure - wrong-number-of-arguments-exception-procedure) - (spec: 1 time? time?) - (spec: 1 fxmodulo fxmodulo) - (spec: 1 list->u32vector list->u32vector) - (spec: 1 char-set-ref char-set-ref) - (spec: 1 s32vector-concatenate s32vector-concatenate) - (spec: 1 tcp-service-unregister! tcp-service-unregister!) - (spec: 1 flexpt flexpt) + display-continuation-environment + display-continuation-environment) + (spec: 1 join-timeout-exception? join-timeout-exception?) + (spec: 1 random-source-state-ref random-source-state-ref) + (spec: 1 table-merge! table-merge!) + (spec: 1 readtable-max-unescaped-char readtable-max-unescaped-char) + (spec: 1 flsquare flsquare) + (spec: 1 open-output-process open-output-process) + (spec: 1 udp-local-socket-info udp-local-socket-info) + (spec: 1 file-inode file-inode) + (spec: 1 group-info group-info) + (spec: 1 string-prefix-length-ci string-prefix-length-ci) + (spec: 1 bits->list bits->list) + (spec: 1 u64vector-set! u64vector-set!) + (spec: 1 f64vector? f64vector?) + (spec: 1 deadlock-exception? deadlock-exception?) + (spec: 1 input-port-column input-port-column) + (spec: 1 read-file-string-list read-file-string-list) + (spec: 1 ->char-set ->char-set) + (spec: 1 string=?-hash string=?-hash) + (spec: 1 char-set-any char-set-any) + (spec: 1 fx> fx>) + (spec: 1 vector-concatenate vector-concatenate) + (spec: 1 output-port-readtable output-port-readtable) + (spec: 1 with-input-from-port with-input-from-port) + (spec: 1 bit-count bit-count) (spec: 1 - invalid-utf8-encoding-exception? - invalid-utf8-encoding-exception?) - (spec: 1 call/cc call/cc) - (spec: 1 display-exception display-exception) - (spec: 1 real-time real-time) + sfun-conversion-exception-arguments + sfun-conversion-exception-arguments) + (spec: 1 f64vector->list f64vector->list) + (spec: 1 s32vector-append s32vector-append) + (spec: 1 eqv?-hash eqv?-hash) + (spec: 1 fleven? fleven?) + (spec: 1 list->s64vector list->s64vector) + (spec: 1 thread-quantum thread-quantum) + (spec: 1 fxwrap+ fxwrap+) (spec: 1 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) - (spec: 1 fl>= fl>=) + path-strip-trailing-directory-separator + path-strip-trailing-directory-separator) + (spec: 1 flmax flmax) + (spec: 1 bitwise-xor bitwise-xor) + (spec: 1 file-info file-info) + (spec: 1 object->u8vector object->u8vector) + (spec: 1 fl- fl-) + (spec: 1 mutex-lock! mutex-lock!) + (spec: 1 uncaught-exception-procedure uncaught-exception-procedure) + (spec: 1 drop-right! drop-right!) + (spec: 1 thread-group-specific thread-group-specific) + (spec: 1 scheduler-exception-reason scheduler-exception-reason) + (spec: 1 make-f64vector make-f64vector) + (spec: 1 subu32vector-fill! subu32vector-fill!) + (spec: 1 unbound-key-exception? unbound-key-exception?) + (spec: 1 u16vector-swap! u16vector-swap!) + (spec: 1 make-s8vector make-s8vector) + (spec: 1 s16vector-copy! s16vector-copy!) + (spec: 1 address-infos address-infos) (spec: 1 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) + thread-state-normally-terminated? + thread-state-normally-terminated?) + (spec: 1 s8vector s8vector) + (spec: 1 condition-variable-specific condition-variable-specific) + (spec: 1 tty-history-max-length-set! tty-history-max-length-set!) + (spec: 1 subs64vector subs64vector) + (spec: 1 fxfirst-set-bit fxfirst-set-bit) + (spec: 1 char-set-difference! char-set-difference!) (spec: 1 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 1 vector-unfold-right vector-unfold-right) - (spec: 1 socket-info-port-number socket-info-port-number) - (spec: 1 fltruncate fltruncate) - (spec: 1 open-string-pipe open-string-pipe) - (spec: 1 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 1 thread-group? thread-group?) - (spec: 1 uninterned-symbol? uninterned-symbol?) - (spec: 1 thread thread) - (spec: 1 flodd? flodd?) - (spec: 1 open-file open-file) - (spec: 1 drop-right! drop-right!) - (spec: 1 user-info-home user-info-home) - (spec: 1 u8vector-ref u8vector-ref) - (spec: 1 mutex-state mutex-state) - (spec: 1 range-exception-arguments range-exception-arguments) + started-thread-exception-procedure + started-thread-exception-procedure) + (spec: 1 real-time real-time) + (spec: 1 open-vector open-vector) + (spec: 1 list-tabulate list-tabulate) (spec: 1 - file-last-access-and-modification-times-set! - file-last-access-and-modification-times-set!) - (spec: 1 subu8vector-fill! subu8vector-fill!) - (spec: 1 module-not-found-exception? module-not-found-exception?) - (spec: 1 random-real random-real) - (spec: 1 copy-bit-field copy-bit-field) - (spec: 1 file-info file-info) - (spec: 1 shell-command shell-command) - (spec: 1 input-port-readtable input-port-readtable) - (spec: 1 system-stamp system-stamp) - (spec: 1 fl<= fl<=) + display-continuation-backtrace + display-continuation-backtrace) + (spec: 1 s64vector-append s64vector-append) (spec: 1 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) - (spec: 1 udp-source-socket-info udp-source-socket-info) + join-timeout-exception-arguments + join-timeout-exception-arguments) + (spec: 1 inactive-thread-exception? inactive-thread-exception?) + (spec: 1 random-source-randomize! random-source-randomize!) + (spec: 1 repl-backtrace-detail-level repl-backtrace-detail-level) + (spec: 1 symbol-hash symbol-hash) + (spec: 1 readtable-keywords-allowed? readtable-keywords-allowed?) + (spec: 1 flsinh flsinh) + (spec: 1 integer-sqrt integer-sqrt) + (spec: 1 open-output-bytevector open-output-bytevector) + (spec: 1 file-info-type file-info-type) + (spec: 1 table-length table-length) + (spec: 1 udp-destination-set! udp-destination-set!) + (spec: 1 bit-swap bit-swap) + (spec: 1 f64vector-shrink! f64vector-shrink!) + (spec: 1 string-prefix-ci? string-prefix-ci?) + (spec: 1 dead-end dead-end) + (spec: 1 input-port-char-position input-port-char-position) + (spec: 1 u64vector-ref u64vector-ref) + (spec: 1 write-subu8vector write-subu8vector) + (spec: 1 output-port-line output-port-line) + (spec: 1 char-set-adjoin char-set-adjoin) + (spec: 1 fx<= fx<=) + (spec: 1 process-status process-status) + (spec: 1 string-contains string-contains) + (spec: 1 permission-denied-exception? permission-denied-exception?) + (spec: 1 u32vector-swap! u32vector-swap!) + (spec: 1 seventh seventh) + (spec: 1 equal?-hash equal?-hash) + (spec: 1 thread-yield! thread-yield!) + (spec: 1 list->s16vector list->s16vector) + (spec: 1 call-with-input-u8vector call-with-input-u8vector) + (spec: 1 flcosh flcosh) + (spec: 1 eighth eighth) + (spec: 1 s32vector s32vector) + (spec: 1 thread-priority-boost thread-priority-boost) + (spec: 1 char-set-xor! char-set-xor!) + (spec: 1 fxsquare fxsquare) + (spec: 1 path-strip-directory path-strip-directory) + (spec: 1 fllog fllog) + (spec: 1 object->serial-number object->serial-number) + (spec: 1 with-exception-handler with-exception-handler) + (spec: 1 bitwise-orc2 bitwise-orc2) + (spec: 1 fl+ fl+) + (spec: + 1 + nonempty-input-port-character-buffer-exception? + nonempty-input-port-character-buffer-exception?) + (spec: 1 drop drop) + (spec: 1 thread-group-parent thread-group-parent) + (spec: 1 filter! filter!) + (spec: 1 subu16vector-move! subu16vector-move!) + (spec: + 1 + unbound-key-exception-arguments + unbound-key-exception-arguments) + (spec: 1 char-set-diff+intersection! char-set-diff+intersection!) + (spec: 1 u16vector-set! u16vector-set!) + (spec: 1 serial-number->object serial-number->object) + (spec: 1 make-s32vector make-s32vector) + (spec: 1 s16vector-concatenate s16vector-concatenate) + (spec: 1 address-info-socket-type address-info-socket-type) + (spec: 1 protocol-info-number protocol-info-number) + (spec: 1 condition-variable-name condition-variable-name) + (spec: 1 subs32vector-fill! subs32vector-fill!) + (spec: 1 fxeqv fxeqv) + (spec: 1 xcons xcons) + (spec: 1 tcp-client-self-socket-info tcp-client-self-socket-info) + (spec: 1 force-output force-output) + (spec: 1 open-u8vector-pipe open-u8vector-pipe) + (spec: 1 user-info? user-info?) + (spec: 1 list-sort list-sort) + (spec: 1 split-at! split-at!) + (spec: 1 s64vector s64vector) + (spec: 1 box? box?) + (spec: 1 remq remq) (spec: 1 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 1 network-info-name network-info-name) - (spec: 1 string-set string-set) - (spec: 1 group-info-name group-info-name) - (spec: 1 make-mutex make-mutex) - (spec: 1 scheduler-exception-reason scheduler-exception-reason) - (spec: 1 u16vector-append u16vector-append) - (spec: 1 tty-text-attributes-set! tty-text-attributes-set!) - (spec: 1 generate-proper-tail-calls generate-proper-tail-calls) - (spec: 1 s8vector->list s8vector->list) - (spec: 1 write-file-u8vector write-file-u8vector) - (spec: 1 subs8vector subs8vector) - (spec: 1 u64vector u64vector) - (spec: 1 seventh seventh) - (spec: 1 bitwise-eqv bitwise-eqv) - (spec: 1 with-output-to-string with-output-to-string) - (spec: 1 u32vector->list u32vector->list) - (spec: 1 host-info-aliases host-info-aliases) - (spec: 1 bit-field-any? bit-field-any?) - (spec: 1 make-tls-context make-tls-context) - (spec: 1 proper-list? proper-list?) - (spec: 1 stack-overflow-exception? stack-overflow-exception?) - (spec: 1 fxarithmetic-shift fxarithmetic-shift) - (spec: 1 eqv?-hash eqv?-hash) - (spec: 1 char-set-for-each char-set-for-each) - (spec: 1 output-port-timeout-set! output-port-timeout-set!) - (spec: 1 s16vector-copy s16vector-copy) - (spec: 1 thread-state-running? thread-state-running?) - (spec: 1 thread-send thread-send) + inactive-thread-exception-arguments + inactive-thread-exception-arguments) + (spec: 1 random-source-make-u8vectors random-source-make-u8vectors) + (spec: 1 integer-length integer-length) + (spec: 1 test-bit-field? test-bit-field?) + (spec: 1 table-copy table-copy) + (spec: 1 readtable-eval-allowed? readtable-eval-allowed?) + (spec: 1 open-input-u8vector open-input-u8vector) + (spec: 1 flscalbn flscalbn) + (spec: 1 file-info-owner file-info-owner) + (spec: 1 arithmetic-shift arithmetic-shift) + (spec: 1 ucs-range->char-set! ucs-range->char-set!) + (spec: 1 getenv getenv) + (spec: 1 pp pp) + (spec: 1 f64vector-set f64vector-set) + (spec: 1 u64vector-length u64vector-length) + (spec: 1 input-port-byte-position input-port-byte-position) (spec: 1 - wrong-number-of-values-exception-vals - wrong-number-of-values-exception-vals) - (spec: 1 char-set-complement! char-set-complement!) - (spec: 1 fxwrapquotient fxwrapquotient) - (spec: 1 path-volume path-volume) - (spec: 1 every every) - (spec: 1 s64vector->list s64vector->list) - (spec: 1 path-directory path-directory) - (spec: 1 char-set-size char-set-size) - (spec: 1 abandoned-mutex-exception? abandoned-mutex-exception?) - (spec: 1 error-exception? error-exception?) - (spec: 1 fxnand fxnand) - (spec: 1 tcp-server-socket-info tcp-server-socket-info) - (spec: 1 flfinite? flfinite?) + datum-parsing-exception-readenv + datum-parsing-exception-readenv) + (spec: 1 help help) + (spec: 1 process-pid process-pid) + (spec: 1 fx- fx-) + (spec: 1 char-set->list char-set->list) + (spec: 1 output-port-char-position output-port-char-position) (spec: 1 - unterminated-process-exception-procedure - unterminated-process-exception-procedure) - (spec: 1 table-search table-search) + permission-denied-exception-arguments + permission-denied-exception-arguments) + (spec: 1 will? will?) + (spec: 1 f32vector-swap! f32vector-swap!) + (spec: 1 setenv setenv) + (spec: 1 eq?-hash eq?-hash) + (spec: 1 list->f32vector list->f32vector) + (spec: 1 thread-terminate! thread-terminate!) + (spec: 1 call-with-input-process call-with-input-process) + (spec: 1 flceiling flceiling) + (spec: 1 u32vector-set! u32vector-set!) + (spec: 1 address-info-protocol address-info-protocol) + (spec: 1 thread-mailbox-rewind thread-mailbox-rewind) + (spec: 1 path-normalize path-normalize) + (spec: 1 char-set-union! char-set-union!) + (spec: 1 fxquotient fxquotient) + (spec: 1 string->char-set! string->char-set!) (spec: 1 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) - (spec: 1 readtable-sharing-allowed? readtable-sharing-allowed?) - (spec: 1 flabs flabs) - (spec: 1 open-tcp-client open-tcp-client) - (spec: 1 socket-info? socket-info?) - (spec: 1 thread-group-specific-set! thread-group-specific-set!) - (spec: 1 user-info-name user-info-name) + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) (spec: 1 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 1 range-exception-procedure range-exception-procedure) - (spec: 1 current-directory current-directory) - (spec: 1 mutex-name mutex-name) - (spec: 1 file-info-inode file-info-inode) - (spec: 1 u64vector-swap! u64vector-swap!) - (spec: 1 subu8vector-move! subu8vector-move!) - (spec: 1 copy-file copy-file) - (spec: 1 sinh sinh) - (spec: 1 fifth fifth) + unterminated-process-exception? + unterminated-process-exception?) (spec: 1 - no-such-file-or-directory-exception-arguments - no-such-file-or-directory-exception-arguments) - (spec: 1 input-port-readtable-set! input-port-readtable-set!) - (spec: 1 system-type system-type) + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 1 bitwise-not bitwise-not) + (spec: 1 u8vector-copy! u8vector-copy!) (spec: 1 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 1 file-number-of-links file-number-of-links) - (spec: 1 group-info? group-info?) - (spec: 1 tty-mode-set! tty-mode-set!) - (spec: 1 port-settings-set! port-settings-set!) - (spec: 1 s8vector-fill! s8vector-fill!) - (spec: 1 gensym gensym) - (spec: 1 with-output-to-u8vector with-output-to-u8vector) - (spec: 1 u32vector? u32vector?) - (spec: 1 subs8vector-fill! subs8vector-fill!) + nonempty-input-port-character-buffer-exception-arguments + nonempty-input-port-character-buffer-exception-arguments) + (spec: 1 unbox unbox) + (spec: 1 thread-group->thread-vector thread-group->thread-vector) + (spec: 1 range-exception? range-exception?) + (spec: 1 s8vector-swap! s8vector-swap!) + (spec: 1 append-reverse append-reverse) + (spec: 1 subu16vector subu16vector) + (spec: 1 type-exception-type-id type-exception-type-id) + (spec: 1 ninth ninth) + (spec: 1 unbound-global-exception? unbound-global-exception?) + (spec: 1 make-root-thread make-root-thread) + (spec: 1 char-set-delete! char-set-delete!) + (spec: 1 expression-parsing-exception? expression-parsing-exception?) + (spec: 1 fxbit-count fxbit-count) + (spec: 1 s16vector->list s16vector->list) + (spec: 1 u16vector-ref u16vector-ref) + (spec: 1 bit-field-set bit-field-set) + (spec: 1 protocol-info-aliases protocol-info-aliases) + (spec: 1 s64vector-swap! s64vector-swap!) + (spec: 1 subs16vector-move! subs16vector-move!) + (spec: 1 flinteger? flinteger?) (spec: 1 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 1 conjugate conjugate) - (spec: 1 f64vector-copy f64vector-copy) - (spec: 1 bitwise-and bitwise-and) - (spec: 1 subf32vector subf32vector) - (spec: 1 service-info-protocol service-info-protocol) - (spec: 1 make-table make-table) - (spec: 1 concatenate concatenate) - (spec: 1 f32vector-copy f32vector-copy) - (spec: 1 host-info-name host-info-name) - (spec: 1 fxand fxand) - (spec: 1 s16vector-copy! s16vector-copy!) - (spec: 1 char-set-cursor-next char-set-cursor-next) - (spec: 1 err-code->string err-code->string) + readtable-write-extended-read-macros?-set + readtable-write-extended-read-macros?-set) + (spec: 1 vector-inc! vector-inc!) + (spec: 1 tcp-client-peer-socket-info tcp-client-peer-socket-info) + (spec: 1 fxzero? fxzero?) + (spec: 1 open-tcp-server open-tcp-server) + (spec: 1 list-set list-set) + (spec: 1 user-info-shell user-info-shell) + (spec: 1 remove remove) + (spec: 1 file-info-mode file-info-mode) + (spec: 1 terminated-thread-exception? terminated-thread-exception?) + (spec: 1 random-source-make-integers random-source-make-integers) + (spec: 1 readtable-comment-handler readtable-comment-handler) + (spec: 1 open-input-process open-input-process) + (spec: 1 flpositive? flpositive?) (spec: 1 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) - (spec: 1 thread-sleep! thread-sleep!) + expression-parsing-exception-parameters + expression-parsing-exception-parameters) + (spec: 1 datum-parsing-exception-kind datum-parsing-exception-kind) + (spec: 1 u8vector? u8vector?) + (spec: 1 get-output-u8vector get-output-u8vector) + (spec: 1 fixnum? fixnum?) + (spec: 1 cosh cosh) + (spec: 1 u64vector-copy! u64vector-copy!) + (spec: 1 string-suffix? string-suffix?) + (spec: 1 vector->bits vector->bits) + (spec: 1 fx* fx*) + (spec: 1 string-ci=?-hash string-ci=?-hash) + (spec: 1 will-execute! will-execute!) + (spec: 1 f32vector-set! f32vector-set!) + (spec: 1 u32vector-ref u32vector-ref) + (spec: 1 list->char-set list->char-set) + (spec: 1 char-set-unfold! char-set-unfold!) + (spec: 1 s16vector? s16vector?) + (spec: 1 flatan flatan) + (spec: 1 thread-state-waiting? thread-state-waiting?) (spec: 1 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) - (spec: 1 os-exception? os-exception?) - (spec: 1 foreign? foreign?) + unknown-keyword-argument-exception-arguments + unknown-keyword-argument-exception-arguments) (spec: 1 - rpc-remote-error-exception-arguments - rpc-remote-error-exception-arguments) - (spec: 1 vector-fold-right vector-fold-right) - (spec: 1 fxwraparithmetic-shift fxwraparithmetic-shift) - (spec: 1 s64vector-append s64vector-append) - (spec: 1 call-with-port call-with-port) - (spec: 1 error-object-irritants error-object-irritants) - (spec: 1 floor/ floor/) - (spec: 1 binary-port? binary-port?) - (spec: 1 bytevector-length bytevector-length) - (spec: 1 get-output-string get-output-string) - (spec: 1 promise? promise?) - (spec: 1 string->utf8 string->utf8) - (spec: 1 digit-value digit-value) - (spec: 1 string->vector string->vector) - (spec: 1 string-for-each string-for-each) - (spec: 1 read-u8 read-u8) - (spec: 1 make-promise make-promise) - (spec: 1 vector-for-each vector-for-each) - (spec: 1 char-foldcase char-foldcase) - (spec: 1 list-copy list-copy) + thread-mailbox-extract-and-rewind + thread-mailbox-extract-and-rewind) + (spec: 1 path-expand path-expand) + (spec: 1 fxorc2 fxorc2) (spec: 1 floor-quotient floor-quotient) - (spec: 1 inexact inexact) - (spec: 1 open-input-string open-input-string) - (spec: 1 write-string write-string) - (spec: 1 current-jiffy current-jiffy) - (spec: 1 bytevector? bytevector?) - (spec: 1 file-error? file-error?) - (spec: 1 floor-remainder floor-remainder) - (spec: 1 get-output-bytevector get-output-bytevector) - (spec: 1 make-parameter make-parameter) - (spec: 1 string-map string-map) - (spec: 1 square square) - (spec: 1 boolean=? boolean=?) - (spec: 1 current-error-port current-error-port) - (spec: 1 infinite? infinite?) - (spec: 1 port? port?) + (spec: 1 read-bytevector read-bytevector) (spec: 1 write-shared write-shared) - (spec: 1 error-object-message error-object-message) - (spec: 1 jiffies-per-second jiffies-per-second) - (spec: 1 truncate-remainder truncate-remainder) - (spec: 1 vector->string vector->string) (spec: 1 write-simple write-simple) - (spec: 1 balanced-remainder balanced-remainder) - (spec: 1 error-object? error-object?) - (spec: 1 truncate/ truncate/) + (spec: 1 write-string write-string) + (spec: 1 truncate-quotient truncate-quotient) + (spec: 1 error-object-message error-object-message) + (spec: 1 vector-for-each vector-for-each) + (spec: 1 char-foldcase char-foldcase) + (spec: 1 delete-file delete-file) + (spec: 1 read-u8 read-u8) + (spec: 1 get-environment-variable get-environment-variable) + (spec: 1 promise? promise?) + (spec: 1 boolean=? boolean=?) + (spec: 1 open-binary-output-file open-binary-output-file) + (spec: 1 string-foldcase string-foldcase) + (spec: 1 flush-output-port flush-output-port) + (spec: 1 string->vector string->vector) + (spec: 1 bytevector-u8-set! bytevector-u8-set!) + (spec: 1 input-port-open? input-port-open?) + (spec: 1 read-line read-line) + (spec: 1 emergency-exit emergency-exit) (spec: 1 ceiling-quotient ceiling-quotient) - (spec: 1 string-upcase string-upcase) - (spec: 1 balanced/ balanced/) - (spec: 1 eof-object eof-object) - (spec: 1 exact exact) - (spec: 1 euclidean-remainder euclidean-remainder) - (spec: 1 exact-integer-sqrt exact-integer-sqrt) - (spec: 1 ceiling-remainder ceiling-remainder) + (spec: 1 command-line command-line) + (spec: 1 binary-port? binary-port?) + (spec: 1 features features) (spec: 1 current-second current-second) - (spec: 1 make-bytevector make-bytevector) - (spec: 1 round/ round/) - (spec: 1 write-bytevector write-bytevector) - (spec: 1 exact-integer? exact-integer?) - (spec: 1 euclidean/ euclidean/) + (spec: 1 bytevector-append bytevector-append) (spec: 1 output-port-open? output-port-open?) - (spec: 1 truncate-quotient truncate-quotient) - (spec: 1 file-exists? file-exists?) - (spec: 1 read-error? read-error?) - (spec: 1 balanced-quotient balanced-quotient) (spec: 1 string-downcase string-downcase) - (spec: 1 vector-map vector-map) - (spec: 1 round-quotient round-quotient) - (spec: 1 open-output-bytevector open-output-bytevector) - (spec: 1 input-port-open? input-port-open?) - (spec: 1 bytevector-append bytevector-append) + (spec: 1 symbol=? symbol=?) + (spec: 1 read-error? read-error?) + (spec: 1 string-copy! string-copy!) + (spec: 1 vector-copy! vector-copy!) + (spec: 1 euclidean-remainder euclidean-remainder) + (spec: 1 list-set! list-set!) (spec: 1 close-port close-port) + (spec: 1 open-input-string open-input-string) + (spec: 1 current-jiffy current-jiffy) + (spec: 1 utf8->string utf8->string) (spec: 1 write-u8 write-u8) - (spec: 1 euclidean-quotient euclidean-quotient) - (spec: 1 open-binary-output-file open-binary-output-file) + (spec: 1 exact-integer? exact-integer?) + (spec: 1 floor/ floor/) + (spec: 1 get-output-string get-output-string) + (spec: 1 balanced-remainder balanced-remainder) + (spec: 1 file-error? file-error?) + (spec: 1 port? port?) (spec: 1 round-remainder round-remainder) - (spec: 1 bytevector-copy bytevector-copy) - (spec: 1 read-string read-string) - (spec: 1 symbol=? symbol=?) - (spec: 1 utf8->string utf8->string) - (spec: 1 list-set! list-set!) - (spec: 1 vector-append vector-append) - (spec: 1 emergency-exit emergency-exit) - (spec: 1 nan? nan?) - (spec: 1 textual-port? textual-port?) - (spec: 1 string-copy! string-copy!) + (spec: 1 truncate/ truncate/) + (spec: 1 inexact inexact) + (spec: 1 peek-u8 peek-u8) + (spec: 1 balanced-quotient balanced-quotient) + (spec: 1 eof-object eof-object) + (spec: 1 exact exact) + (spec: 1 floor-remainder floor-remainder) + (spec: 1 make-promise make-promise) + (spec: 1 call-with-port call-with-port) + (spec: 1 error-object? error-object?) + (spec: 1 exit exit) + (spec: 1 bytevector? bytevector?) + (spec: 1 get-output-bytevector get-output-bytevector) + (spec: 1 list-copy list-copy) + (spec: 1 make-parameter make-parameter) + (spec: 1 open-input-bytevector open-input-bytevector) + (spec: 1 error-object-irritants error-object-irritants) + (spec: 1 get-environment-variables get-environment-variables) + (spec: 1 make-list make-list) + (spec: 1 bytevector-u8-ref bytevector-u8-ref) + (spec: 1 digit-value digit-value) + (spec: 1 read-bytevector! read-bytevector!) (spec: 1 ceiling/ ceiling/) (spec: 1 open-output-string open-output-string) - (spec: 1 bytevector bytevector) - (spec: 1 get-environment-variable get-environment-variable) - (spec: 1 features features) + (spec: 1 read-string read-string) (spec: 1 open-binary-input-file open-binary-input-file) - (spec: 1 bytevector-u8-ref bytevector-u8-ref) - (spec: 1 command-line command-line) - (spec: 1 get-environment-variables get-environment-variables) - (spec: 1 make-list make-list) - (spec: 1 read-line read-line) - (spec: 1 vector-copy vector-copy) + (spec: 1 string->utf8 string->utf8) + (spec: 1 bytevector-copy! bytevector-copy!) + (spec: 1 string-for-each string-for-each) + (spec: 1 string-map string-map) + (spec: 1 bytevector-length bytevector-length) (spec: 1 u8-ready? u8-ready?) - (spec: 1 read-bytevector read-bytevector) - (spec: 1 bytevector-u8-set! bytevector-u8-set!) + (spec: 1 vector-copy vector-copy) + (spec: 1 ceiling-remainder ceiling-remainder) + (spec: 1 write-bytevector write-bytevector) + (spec: 1 bytevector-copy bytevector-copy) (spec: 1 finite? finite?) - (spec: 1 string-foldcase string-foldcase) - (spec: 1 vector-copy! vector-copy!) - (spec: 1 delete-file delete-file) - (spec: 1 open-input-bytevector open-input-bytevector) - (spec: 1 flush-output-port flush-output-port) - (spec: 1 read-bytevector! read-bytevector!) - (spec: 1 exit exit) - (spec: 1 bytevector-copy! bytevector-copy!) - (spec: 1 peek-u8 peek-u8) - (spec: 1 cadar cadar) - (spec: 1 for-each for-each) + (spec: 1 infinite? infinite?) + (spec: 1 open-output-bytevector open-output-bytevector) + (spec: 1 nan? nan?) + (spec: 1 square square) + (spec: 1 round/ round/) + (spec: 1 file-exists? file-exists?) + (spec: 1 bytevector bytevector) + (spec: 1 exact-integer-sqrt exact-integer-sqrt) + (spec: 1 euclidean/ euclidean/) + (spec: 1 jiffies-per-second jiffies-per-second) + (spec: 1 textual-port? textual-port?) + (spec: 1 string-upcase string-upcase) + (spec: 1 round-quotient round-quotient) + (spec: 1 current-error-port current-error-port) + (spec: 1 make-bytevector make-bytevector) + (spec: 1 truncate-remainder truncate-remainder) + (spec: 1 euclidean-quotient euclidean-quotient) + (spec: 1 vector->string vector->string) + (spec: 1 vector-append vector-append) + (spec: 1 balanced/ balanced/) + (spec: 1 vector-map vector-map) + (spec: 1 cddadr cddadr) + (spec: 1 cadddr cadddr) + (spec: 1 imag-part imag-part) + (spec: 1 integer->char integer->char) + (spec: 1 eq? eq?) + (spec: 1 string-ci>=? string-ci>=?) + (spec: 1 set-car! set-car!) + (spec: 1 char-ready? char-ready?) + (spec: 1 round round) + (spec: 1 dynamic-wind dynamic-wind) + (spec: 1 inexact->exact inexact->exact) + (spec: 1 make-rectangular make-rectangular) + (spec: 1 <= <=) + (spec: 1 complex? complex?) + (spec: 1 denominator denominator) + (spec: 1 list->vector list->vector) (spec: 1 cdar cdar) - (spec: 1 caar caar) + (spec: 1 cadar cadar) + (spec: 1 number? number?) + (spec: 1 remainder remainder) (spec: 1 read read) - (spec: 1 assv assv) + (spec: 1 eof-object? eof-object?) + (spec: 1 string-ci=? string-ci=?) + (spec: 1 exact->inexact exact->inexact) + (spec: 1 input-port? input-port?) + (spec: 1 / /) (spec: 1 char-upcase char-upcase) + (spec: 1 memv memv) + (spec: 1 string-ci<=? string-ci<=?) + (spec: 1 transcript-on transcript-on) + (spec: 1 cdaddr cdaddr) + (spec: 1 cadaar cadaar) (spec: 1 exp exp) - (spec: 1 magnitude magnitude) - (spec: 1 = =) - (spec: 1 char-lower-case? char-lower-case?) - (spec: 1 length length) - (spec: 1 list-tail list-tail) - (spec: 1 list->vector list->vector) - (spec: 1 string string) - (spec: 1 caddar caddar) - (spec: 1 force force) - (spec: 1 cddaar cddaar) - (spec: 1 reverse reverse) - (spec: 1 boolean? boolean?) - (spec: 1 string-ci>=? string-ci>=?) - (spec: 1 transcript-off transcript-off) + (spec: 1 make-polar make-polar) + (spec: 1 not not) + (spec: 1 angle angle) + (spec: 1 substring substring) (spec: 1 call-with-values call-with-values) - (spec: 1 char-upper-case? char-upper-case?) - (spec: 1 memq memq) - (spec: 1 vector-fill! vector-fill!) - (spec: 1 peek-char peek-char) - (spec: 1 string-ci? string>?) + (spec: 1 gcd gcd) + (spec: 1 list->string list->string) + (spec: 1 length length) + (spec: 1 number->string number->string) + (spec: 1 open-output-file open-output-file) + (spec: 1 write write) + (spec: 1 string? string?) + (spec: 1 string-fill! string-fill!) + (spec: 1 cdaadr cdaadr) + (spec: 1 caaddr caaddr) + (spec: 1 string->number string->number) + (spec: 1 exact? exact?) + (spec: 1 assv assv) + (spec: 1 magnitude magnitude) + (spec: 1 char-ci>? char-ci>?) + (spec: 1 real-part real-part) + (spec: 1 symbol->string symbol->string) + (spec: 1 cdr cdr) + (spec: 1 char>? char>?) + (spec: 1 negative? negative?) + (spec: 1 string>=? string>=?) + (spec: 1 eval eval) + (spec: 1 caaar caaar) + (spec: 1 - -) + (spec: 1 assoc assoc) + (spec: 1 make-string make-string) + (spec: 1 char-ci=? char-ci=?) + (spec: 1 cdddr cdddr) (spec: 1 char=? char=?) - (spec: 1 memv memv) - (spec: 1 < <) - (spec: 1 list list) + (spec: 1 integer? integer?) (spec: 1 positive? positive?) - (spec: 1 quotient quotient) - (spec: 1 string-ci=? string-ci=?) + (spec: 1 string=? string=?) + (spec: 1 eqv? eqv?) + (spec: 1 call-with-input-file call-with-input-file) + (spec: 1 vector->list vector->list) + (spec: 1 with-input-from-file with-input-from-file) (spec: 1 char-ci<=? char-ci<=?) - (spec: 1 cddr cddr) - (spec: 1 inexact->exact inexact->exact) - (spec: 1 rationalize rationalize) (spec: 1 close-output-port close-output-port) - (spec: 1 angle angle) - (spec: 1 char>=? char>=?) - (spec: 1 <= <=) - (spec: 1 member member) - (spec: 1 set-car! set-car!) - (spec: 1 vector->list vector->list) - (spec: 1 vector-length vector-length) - (spec: 1 car car) - (spec: 1 numerator numerator) - (spec: 1 cadr cadr) - (spec: 1 dynamic-wind dynamic-wind) - (spec: 1 cdddar cdddar) - (spec: 1 open-input-file open-input-file) - (spec: 1 cos cos) - (spec: 1 round round) - (spec: 1 symbol->string symbol->string) - (spec: 1 read-char read-char) - (spec: 1 make-polar make-polar) (spec: 1 * *) - (spec: 1 char<=? char<=?) - (spec: 1 cons cons) - (spec: 1 procedure? procedure?) + (spec: 1 inexact? inexact?) + (spec: 1 newline newline) + (spec: 1 >= >=) (spec: 1 pair? pair?) - (spec: 1 load load) - (spec: 1 set-cdr! set-cdr!) - (spec: 1 string->list string->list) (spec: 1 list-ref list-ref) - (spec: 1 denominator denominator) - (spec: - 1 - call-with-current-continuation - call-with-current-continuation) - (spec: 1 cddddr cddddr) - (spec: 1 char->integer char->integer) - (spec: 1 lcm lcm) - (spec: 1 stringinteger char->integer) + (spec: 1 sqrt sqrt) + (spec: 1 string<=? string<=?) + (spec: 1 expt expt) (spec: 1 log log) - (spec: 1 string-ci>? string-ci>?) - (spec: 1 cdaaar cdaaar) - (spec: 1 remainder remainder) (spec: 1 vector vector) - (spec: 1 char-ci>=? char-ci>=?) - (spec: 1 open-output-file open-output-file) - (spec: 1 caaaar caaaar) - (spec: 1 write write) + (spec: 1 modulo modulo) (spec: 1 > >) - (spec: 1 map map) - (spec: 1 char-ready? char-ready?) + (spec: 1 char? char-ci>?) - (spec: 1 sqrt sqrt) - (spec: 1 inexact? inexact?) - (spec: 1 integer->char integer->char) - (spec: 1 string<=? string<=?) - (spec: 1 >= >=) - (spec: 1 eof-object? eof-object?) - (spec: 1 exact->inexact exact->inexact) - (spec: 1 gcd gcd) - (spec: 1 char-ci? char>?) - (spec: 1 make-rectangular make-rectangular) (spec: 1 make-vector make-vector) - (spec: 1 string>? string>?) - (spec: 1 display display) - (spec: 1 null-environment null-environment) - (spec: 1 char-ci=? char-ci=?) - (spec: 1 ceiling ceiling) - (spec: 1 caadar caadar) - (spec: 1 string-ref string-ref) - (spec: 1 char? char?) - (spec: 1 string-fill! string-fill!) - (spec: 1 string? string?) - (spec: 1 with-input-from-file with-input-from-file) - (spec: 1 eqv? eqv?) - (spec: 1 vector-set! vector-set!) - (spec: 1 cdaddr cdaddr) - (spec: 1 not not) - (spec: 1 negative? negative?) - (spec: 1 caaddr caaddr) - (spec: 1 make-string make-string) - (spec: 1 - -) - (spec: 1 assoc assoc) - (spec: 1 expt expt) - (spec: 1 max max) - (spec: 1 string-copy string-copy) - (spec: 1 even? even?) + (spec: 1 set-cdr! set-cdr!) + (spec: 1 char-lower-case? char-lower-case?) + (spec: 1 string-ci=? string>=?) - (spec: 1 equal? equal?) - (spec: 1 values values) - (spec: 1 string->number string->number) - (spec: 1 vector-ref vector-ref) - (spec: 1 cdaar cdaar) - (spec: 1 odd? odd?) - (spec: 1 caaar caaar) - (spec: 1 scheme-report-environment scheme-report-environment) - (spec: 1 apply apply) - (spec: 1 output-port? output-port?) - (spec: 1 string->symbol string->symbol) (spec: 1 abs abs) + (spec: 1 sin sin) (spec: 1 cdadar cdadar) - (spec: 1 number->string number->string) - (spec: 1 char-downcase char-downcase) - (spec: 1 floor floor) - (spec: 1 real-part real-part) - (spec: 1 eval eval) - (spec: 1 cadaar cadaar) - (spec: 1 input-port? input-port?) - (spec: 1 / /) - (spec: 1 exact? exact?) - (spec: 1 string-length string-length) - (spec: 1 substring substring) - (spec: 1 write-char write-char) - (spec: 1 zero? zero?) - (spec: 1 string-append string-append) - (spec: 1 cadddr cadddr) - (spec: 1 cddadr cddadr) - (spec: 1 cadadr cadadr) + (spec: 1 caar caar) (spec: 1 atan atan) - (spec: 1 complex? complex?) - (spec: 1 string-ci<=? string-ci<=?) - (spec: 1 list->string list->string) - (spec: 1 number? number?) - (spec: 1 caddr caddr) - (spec: 1 vector? vector?) - (spec: 1 cddar cddar) - (spec: 1 caadr caadr) - (spec: 1 string-set! string-set!) + (spec: 1 char-downcase char-downcase) + (spec: 1 cdaaar cdaaar) + (spec: 1 caadar caadar) + (spec: 1 even? even?) + (spec: 1 list-tail list-tail) + (spec: 1 real? real?) (spec: 1 assq assq) - (spec: 1 char-whitespace? char-whitespace?) - (spec: 1 list? list?) + (spec: 1 scheme-report-environment scheme-report-environment) + (spec: 1 zero? zero?) + (spec: 1 char-ci>=? char-ci>=?) + (spec: 1 symbol? symbol?) + (spec: 1 interaction-environment interaction-environment) + (spec: 1 string-copy string-copy) + (spec: 1 call-with-output-file call-with-output-file) + (spec: 1 null? null?) + (spec: 1 string->symbol string->symbol) + (spec: 1 caaadr caaadr) + (spec: 1 + +) + (spec: 1 current-output-port current-output-port) + (spec: 1 char-cilist string->list) + (spec: 1 vector-length vector-length) + (spec: 1 display display) + (spec: 1 cddr cddr) + (spec: 1 char>=? char>=?) + (spec: 1 min min) + (spec: 1 string-ci>? string-ci>?) + (spec: 1 lcm lcm) + (spec: 1 numerator numerator) + (spec: 1 for-each for-each) + (spec: 1 car car) + (spec: 1 cddddr cddddr) + (spec: + 1 + call-with-current-continuation + call-with-current-continuation) + (spec: 1 procedure? procedure?) + (spec: 1 cons cons) + (spec: 1 map map) + (spec: 1 string string) (spec: 1 RuntimeAliases RuntimeAliases) + (spec: 1 R5RSRuntime R5RSRuntime) + (spec: 1 GambitRuntime GambitRuntime) (spec: 1 R7RSRuntime R7RSRuntime) - (spec: 1 GerbilRuntime GerbilRuntime) (spec: 1 Runtime Runtime) - (spec: 1 GambitRuntime GambitRuntime) - (spec: 1 R5RSRuntime R5RSRuntime) + (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.ssi b/src/bootstrap/gerbil/core/contract.ssi index 17abdc1e8..d206cc1c6 100644 --- a/src/bootstrap/gerbil/core/contract.ssi +++ b/src/bootstrap/gerbil/core/contract.ssi @@ -46,6 +46,9 @@ namespace: gerbil/core/contract (%#define-runtime interface-info-name gerbil/core/contract~InterfaceInfo#interface-info-name) + (%#define-runtime + interface-info-namespace + gerbil/core/contract~InterfaceInfo#interface-info-namespace) (%#define-runtime interface-info-interface-mixin gerbil/core/contract~InterfaceInfo#interface-info-interface-mixin) @@ -53,11 +56,14 @@ namespace: gerbil/core/contract interface-info-interface-methods gerbil/core/contract~InterfaceInfo#interface-info-interface-methods) (%#define-runtime - interface-info-instance-type - gerbil/core/contract~InterfaceInfo#interface-info-instance-type) + interface-info-interface-precedence-list + gerbil/core/contract~InterfaceInfo#interface-info-interface-precedence-list) (%#define-runtime interface-info-interface-descriptor gerbil/core/contract~InterfaceInfo#interface-info-interface-descriptor) + (%#define-runtime + interface-info-instance-type + gerbil/core/contract~InterfaceInfo#interface-info-instance-type) (%#define-runtime interface-info-instance-constructor gerbil/core/contract~InterfaceInfo#interface-info-instance-constructor) @@ -79,6 +85,9 @@ namespace: gerbil/core/contract (%#define-runtime interface-info-name-set! gerbil/core/contract~InterfaceInfo#interface-info-name-set!) + (%#define-runtime + interface-info-namespace-set! + gerbil/core/contract~InterfaceInfo#interface-info-namespace-set!) (%#define-runtime interface-info-interface-mixin-set! gerbil/core/contract~InterfaceInfo#interface-info-interface-mixin-set!) @@ -86,11 +95,14 @@ namespace: gerbil/core/contract interface-info-interface-methods-set! gerbil/core/contract~InterfaceInfo#interface-info-interface-methods-set!) (%#define-runtime - interface-info-instance-type-set! - gerbil/core/contract~InterfaceInfo#interface-info-instance-type-set!) + interface-info-interface-precedence-list-set! + gerbil/core/contract~InterfaceInfo#interface-info-interface-precedence-list-set!) (%#define-runtime interface-info-interface-descriptor-set! gerbil/core/contract~InterfaceInfo#interface-info-interface-descriptor-set!) + (%#define-runtime + interface-info-instance-type-set! + gerbil/core/contract~InterfaceInfo#interface-info-instance-type-set!) (%#define-runtime interface-info-instance-constructor-set! gerbil/core/contract~InterfaceInfo#interface-info-instance-constructor-set!) @@ -112,6 +124,9 @@ namespace: gerbil/core/contract (%#define-runtime &interface-info-name gerbil/core/contract~InterfaceInfo#&interface-info-name) + (%#define-runtime + &interface-info-namespace + gerbil/core/contract~InterfaceInfo#&interface-info-namespace) (%#define-runtime &interface-info-interface-mixin gerbil/core/contract~InterfaceInfo#&interface-info-interface-mixin) @@ -119,11 +134,14 @@ namespace: gerbil/core/contract &interface-info-interface-methods gerbil/core/contract~InterfaceInfo#&interface-info-interface-methods) (%#define-runtime - &interface-info-instance-type - gerbil/core/contract~InterfaceInfo#&interface-info-instance-type) + &interface-info-interface-precedence-list + gerbil/core/contract~InterfaceInfo#&interface-info-interface-precedence-list) (%#define-runtime &interface-info-interface-descriptor gerbil/core/contract~InterfaceInfo#&interface-info-interface-descriptor) + (%#define-runtime + &interface-info-instance-type + gerbil/core/contract~InterfaceInfo#&interface-info-instance-type) (%#define-runtime &interface-info-instance-constructor gerbil/core/contract~InterfaceInfo#&interface-info-instance-constructor) @@ -145,6 +163,9 @@ namespace: gerbil/core/contract (%#define-runtime &interface-info-name-set! gerbil/core/contract~InterfaceInfo#&interface-info-name-set!) + (%#define-runtime + &interface-info-namespace-set! + gerbil/core/contract~InterfaceInfo#&interface-info-namespace-set!) (%#define-runtime &interface-info-interface-mixin-set! gerbil/core/contract~InterfaceInfo#&interface-info-interface-mixin-set!) @@ -152,11 +173,14 @@ namespace: gerbil/core/contract &interface-info-interface-methods-set! gerbil/core/contract~InterfaceInfo#&interface-info-interface-methods-set!) (%#define-runtime - &interface-info-instance-type-set! - gerbil/core/contract~InterfaceInfo#&interface-info-instance-type-set!) + &interface-info-interface-precedence-list-set! + gerbil/core/contract~InterfaceInfo#&interface-info-interface-precedence-list-set!) (%#define-runtime &interface-info-interface-descriptor-set! gerbil/core/contract~InterfaceInfo#&interface-info-interface-descriptor-set!) + (%#define-runtime + &interface-info-instance-type-set! + gerbil/core/contract~InterfaceInfo#&interface-info-instance-type-set!) (%#define-runtime &interface-info-instance-constructor-set! gerbil/core/contract~InterfaceInfo#&interface-info-instance-constructor-set!) @@ -185,8 +209,11 @@ namespace: gerbil/core/contract interface-info::apply-macro-expander gerbil/core/contract~InterfaceInfo#interface-info::apply-macro-expander) (%#define-runtime - interface-info-flatten-mixin - gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin) + interface-identifier->precedence-list + gerbil/core/contract~InterfaceInfo#interface-identifier->precedence-list) + (%#define-runtime + interface-mixin->precedence-list + gerbil/core/contract~InterfaceInfo#interface-mixin->precedence-list) (%#begin (%#define-runtime syntax-local-interface-info?__% gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__%) diff --git a/src/bootstrap/gerbil/core/contract.ssxi.ss b/src/bootstrap/gerbil/core/contract.ssxi.ss index e76fdc0be..eaf7f7141 100644 --- a/src/bootstrap/gerbil/core/contract.ssxi.ss +++ b/src/bootstrap/gerbil/core/contract.ssxi.ss @@ -7,20 +7,24 @@ package: gerbil/core (@class gerbil/core/contract~InterfaceInfo#interface-info::t () (object::t t::t) - (name interface-mixin + (name namespace + interface-mixin interface-methods - instance-type + interface-precedence-list interface-descriptor + instance-type instance-constructor instance-try-constructor instance-predicate instance-satisfies-predicate implementation-methods unchecked-implementation-methods) - (name interface-mixin + (name namespace + interface-mixin interface-methods - instance-type + interface-precedence-list interface-descriptor + instance-type instance-constructor instance-try-constructor instance-predicate @@ -49,6 +53,12 @@ package: gerbil/core (declare-type gerbil/core/contract~InterfaceInfo#interface-info-name (@accessor gerbil/core/contract~InterfaceInfo#interface-info::t name #t)) + (declare-type + gerbil/core/contract~InterfaceInfo#interface-info-namespace + (@accessor + gerbil/core/contract~InterfaceInfo#interface-info::t + namespace + #t)) (declare-type gerbil/core/contract~InterfaceInfo#interface-info-interface-mixin (@accessor @@ -62,10 +72,10 @@ package: gerbil/core interface-methods #t)) (declare-type - gerbil/core/contract~InterfaceInfo#interface-info-instance-type + gerbil/core/contract~InterfaceInfo#interface-info-interface-precedence-list (@accessor gerbil/core/contract~InterfaceInfo#interface-info::t - instance-type + interface-precedence-list #t)) (declare-type gerbil/core/contract~InterfaceInfo#interface-info-interface-descriptor @@ -73,6 +83,12 @@ package: gerbil/core gerbil/core/contract~InterfaceInfo#interface-info::t interface-descriptor #t)) + (declare-type + gerbil/core/contract~InterfaceInfo#interface-info-instance-type + (@accessor + gerbil/core/contract~InterfaceInfo#interface-info::t + instance-type + #t)) (declare-type gerbil/core/contract~InterfaceInfo#interface-info-instance-constructor (@accessor @@ -112,6 +128,12 @@ package: gerbil/core (declare-type gerbil/core/contract~InterfaceInfo#interface-info-name-set! (@mutator gerbil/core/contract~InterfaceInfo#interface-info::t name #t)) + (declare-type + gerbil/core/contract~InterfaceInfo#interface-info-namespace-set! + (@mutator + gerbil/core/contract~InterfaceInfo#interface-info::t + namespace + #t)) (declare-type gerbil/core/contract~InterfaceInfo#interface-info-interface-mixin-set! (@mutator @@ -125,10 +147,10 @@ package: gerbil/core interface-methods #t)) (declare-type - gerbil/core/contract~InterfaceInfo#interface-info-instance-type-set! + gerbil/core/contract~InterfaceInfo#interface-info-interface-precedence-list-set! (@mutator gerbil/core/contract~InterfaceInfo#interface-info::t - instance-type + interface-precedence-list #t)) (declare-type gerbil/core/contract~InterfaceInfo#interface-info-interface-descriptor-set! @@ -136,6 +158,12 @@ package: gerbil/core gerbil/core/contract~InterfaceInfo#interface-info::t interface-descriptor #t)) + (declare-type + gerbil/core/contract~InterfaceInfo#interface-info-instance-type-set! + (@mutator + gerbil/core/contract~InterfaceInfo#interface-info::t + instance-type + #t)) (declare-type gerbil/core/contract~InterfaceInfo#interface-info-instance-constructor-set! (@mutator @@ -175,6 +203,12 @@ package: gerbil/core (declare-type gerbil/core/contract~InterfaceInfo#&interface-info-name (@accessor gerbil/core/contract~InterfaceInfo#interface-info::t name #f)) + (declare-type + gerbil/core/contract~InterfaceInfo#&interface-info-namespace + (@accessor + gerbil/core/contract~InterfaceInfo#interface-info::t + namespace + #f)) (declare-type gerbil/core/contract~InterfaceInfo#&interface-info-interface-mixin (@accessor @@ -188,10 +222,10 @@ package: gerbil/core interface-methods #f)) (declare-type - gerbil/core/contract~InterfaceInfo#&interface-info-instance-type + gerbil/core/contract~InterfaceInfo#&interface-info-interface-precedence-list (@accessor gerbil/core/contract~InterfaceInfo#interface-info::t - instance-type + interface-precedence-list #f)) (declare-type gerbil/core/contract~InterfaceInfo#&interface-info-interface-descriptor @@ -199,6 +233,12 @@ package: gerbil/core gerbil/core/contract~InterfaceInfo#interface-info::t interface-descriptor #f)) + (declare-type + gerbil/core/contract~InterfaceInfo#&interface-info-instance-type + (@accessor + gerbil/core/contract~InterfaceInfo#interface-info::t + instance-type + #f)) (declare-type gerbil/core/contract~InterfaceInfo#&interface-info-instance-constructor (@accessor @@ -238,6 +278,12 @@ package: gerbil/core (declare-type gerbil/core/contract~InterfaceInfo#&interface-info-name-set! (@mutator gerbil/core/contract~InterfaceInfo#interface-info::t name #f)) + (declare-type + gerbil/core/contract~InterfaceInfo#&interface-info-namespace-set! + (@mutator + gerbil/core/contract~InterfaceInfo#interface-info::t + namespace + #f)) (declare-type gerbil/core/contract~InterfaceInfo#&interface-info-interface-mixin-set! (@mutator @@ -251,10 +297,10 @@ package: gerbil/core interface-methods #f)) (declare-type - gerbil/core/contract~InterfaceInfo#&interface-info-instance-type-set! + gerbil/core/contract~InterfaceInfo#&interface-info-interface-precedence-list-set! (@mutator gerbil/core/contract~InterfaceInfo#interface-info::t - instance-type + interface-precedence-list #f)) (declare-type gerbil/core/contract~InterfaceInfo#&interface-info-interface-descriptor-set! @@ -262,6 +308,12 @@ package: gerbil/core gerbil/core/contract~InterfaceInfo#interface-info::t interface-descriptor #f)) + (declare-type + gerbil/core/contract~InterfaceInfo#&interface-info-instance-type-set! + (@mutator + gerbil/core/contract~InterfaceInfo#interface-info::t + instance-type + #f)) (declare-type gerbil/core/contract~InterfaceInfo#&interface-info-instance-constructor-set! (@mutator @@ -310,7 +362,22 @@ package: gerbil/core gerbil/core/contract~InterfaceInfo#interface-info::apply-macro-expander #f) (declare-type - gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin + gerbil/core/contract~InterfaceInfo#interface-identifier->precedence-list + (@lambda 1 + #f + signature: + (return: + pair::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/contract~InterfaceInfo))) + (declare-type + gerbil/core/contract~InterfaceInfo#interface-mixin->precedence-list (@lambda 1 #f signature: diff --git a/src/bootstrap/gerbil/core/contract~1.scm b/src/bootstrap/gerbil/core/contract~1.scm index 33557f86e..94119a67d 100644 --- a/src/bootstrap/gerbil/core/contract~1.scm +++ b/src/bootstrap/gerbil/core/contract~1.scm @@ -1,328 +1,384 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~InterfaceInfo[1]#_g83922_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84899_| (##structure gx#syntax-quote::t 'interface-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83924_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84901_| (##structure gx#syntax-quote::t 'make-interface-info #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83926_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84903_| (##structure gx#syntax-quote::t 'interface-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83928_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84905_| (##structure gx#syntax-quote::t 'interface-info-name #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83929_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84906_| + (##structure + gx#syntax-quote::t + 'interface-info-namespace + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/contract~InterfaceInfo[1]#_g84907_| (##structure gx#syntax-quote::t 'interface-info-interface-mixin #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83930_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84908_| (##structure gx#syntax-quote::t 'interface-info-interface-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83931_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84909_| (##structure gx#syntax-quote::t - 'interface-info-instance-type + 'interface-info-interface-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83932_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84910_| (##structure gx#syntax-quote::t 'interface-info-interface-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83933_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84911_| + (##structure + gx#syntax-quote::t + 'interface-info-instance-type + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/contract~InterfaceInfo[1]#_g84912_| (##structure gx#syntax-quote::t 'interface-info-instance-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83934_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84913_| (##structure gx#syntax-quote::t 'interface-info-instance-try-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83935_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84914_| (##structure gx#syntax-quote::t 'interface-info-instance-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83936_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84915_| (##structure gx#syntax-quote::t 'interface-info-instance-satisfies-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83937_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84916_| (##structure gx#syntax-quote::t 'interface-info-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83938_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84917_| (##structure gx#syntax-quote::t 'interface-info-unchecked-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83940_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84919_| (##structure gx#syntax-quote::t 'interface-info-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83941_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84920_| + (##structure + gx#syntax-quote::t + 'interface-info-namespace-set! + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/contract~InterfaceInfo[1]#_g84921_| (##structure gx#syntax-quote::t 'interface-info-interface-mixin-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83942_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84922_| (##structure gx#syntax-quote::t 'interface-info-interface-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83943_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84923_| (##structure gx#syntax-quote::t - 'interface-info-instance-type-set! + 'interface-info-interface-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83944_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84924_| (##structure gx#syntax-quote::t 'interface-info-interface-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83945_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84925_| + (##structure + gx#syntax-quote::t + 'interface-info-instance-type-set! + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/contract~InterfaceInfo[1]#_g84926_| (##structure gx#syntax-quote::t 'interface-info-instance-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83946_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84927_| (##structure gx#syntax-quote::t 'interface-info-instance-try-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83947_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84928_| (##structure gx#syntax-quote::t 'interface-info-instance-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83948_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84929_| (##structure gx#syntax-quote::t 'interface-info-instance-satisfies-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83949_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84930_| (##structure gx#syntax-quote::t 'interface-info-implementation-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83950_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84931_| (##structure gx#syntax-quote::t 'interface-info-unchecked-implementation-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83952_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84933_| (##structure gx#syntax-quote::t '&interface-info-name #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83953_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84934_| + (##structure + gx#syntax-quote::t + '&interface-info-namespace + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/contract~InterfaceInfo[1]#_g84935_| (##structure gx#syntax-quote::t '&interface-info-interface-mixin #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83954_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84936_| (##structure gx#syntax-quote::t '&interface-info-interface-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83955_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84937_| (##structure gx#syntax-quote::t - '&interface-info-instance-type + '&interface-info-interface-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83956_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84938_| (##structure gx#syntax-quote::t '&interface-info-interface-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83957_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84939_| + (##structure + gx#syntax-quote::t + '&interface-info-instance-type + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/contract~InterfaceInfo[1]#_g84940_| (##structure gx#syntax-quote::t '&interface-info-instance-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83958_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84941_| (##structure gx#syntax-quote::t '&interface-info-instance-try-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83959_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84942_| (##structure gx#syntax-quote::t '&interface-info-instance-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83960_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84943_| (##structure gx#syntax-quote::t '&interface-info-instance-satisfies-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83961_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84944_| (##structure gx#syntax-quote::t '&interface-info-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83962_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84945_| (##structure gx#syntax-quote::t '&interface-info-unchecked-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83964_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84947_| (##structure gx#syntax-quote::t '&interface-info-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83965_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84948_| + (##structure + gx#syntax-quote::t + '&interface-info-namespace-set! + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/contract~InterfaceInfo[1]#_g84949_| (##structure gx#syntax-quote::t '&interface-info-interface-mixin-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83966_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84950_| (##structure gx#syntax-quote::t '&interface-info-interface-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83967_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84951_| (##structure gx#syntax-quote::t - '&interface-info-instance-type-set! + '&interface-info-interface-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83968_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84952_| (##structure gx#syntax-quote::t '&interface-info-interface-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83969_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84953_| + (##structure + gx#syntax-quote::t + '&interface-info-instance-type-set! + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/contract~InterfaceInfo[1]#_g84954_| (##structure gx#syntax-quote::t '&interface-info-instance-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83970_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84955_| (##structure gx#syntax-quote::t '&interface-info-instance-try-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83971_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84956_| (##structure gx#syntax-quote::t '&interface-info-instance-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83972_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84957_| (##structure gx#syntax-quote::t '&interface-info-instance-satisfies-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83973_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84958_| (##structure gx#syntax-quote::t '&interface-info-implementation-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83974_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84959_| (##structure gx#syntax-quote::t '&interface-info-unchecked-implementation-methods-set! @@ -330,7 +386,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/contract~InterfaceInfo[:0:]#interface-info| - (let ((__obj83837 + (let ((__obj84806 (let () (declare (not safe)) (##structure @@ -359,22 +415,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj83837 + __obj84806 'gerbil/core/contract~InterfaceInfo#interface-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83837 'interface-info '2 '#f '#f)) + (##unchecked-structure-set! __obj84806 'interface-info '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj83837 - '(name interface-mixin + __obj84806 + '(name namespace + interface-mixin interface-methods - instance-type + interface-precedence-list interface-descriptor + instance-type instance-constructor instance-try-constructor instance-predicate @@ -386,138 +444,154 @@ '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83837 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj84806 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83837 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj84806 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83837 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj84806 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83837 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj84806 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83837 '#f '11 '#f '#f)) - (let ((__tmp83921 |gerbil/core/contract~InterfaceInfo[1]#_g83922_|)) + (##unchecked-structure-set! __obj84806 '#f '11 '#f '#f)) + (let ((__tmp84898 |gerbil/core/contract~InterfaceInfo[1]#_g84899_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83837 __tmp83921 '12 '#f '#f)) - (let ((__tmp83923 |gerbil/core/contract~InterfaceInfo[1]#_g83924_|)) + (##unchecked-structure-set! __obj84806 __tmp84898 '12 '#f '#f)) + (let ((__tmp84900 |gerbil/core/contract~InterfaceInfo[1]#_g84901_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83837 __tmp83923 '13 '#f '#f)) - (let ((__tmp83925 |gerbil/core/contract~InterfaceInfo[1]#_g83926_|)) + (##unchecked-structure-set! __obj84806 __tmp84900 '13 '#f '#f)) + (let ((__tmp84902 |gerbil/core/contract~InterfaceInfo[1]#_g84903_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83837 __tmp83925 '14 '#f '#f)) - (let ((__tmp83927 + (##unchecked-structure-set! __obj84806 __tmp84902 '14 '#f '#f)) + (let ((__tmp84904 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g83928_|) - (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g83929_|) - (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83930_|) - (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g83931_|) - (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g83932_|) - (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83933_|) - (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83934_|) - (cons (cons 'instance-predicate + |gerbil/core/contract~InterfaceInfo[1]#_g84905_|) + (cons (cons 'namespace + |gerbil/core/contract~InterfaceInfo[1]#_g84906_|) + (cons (cons 'interface-mixin + |gerbil/core/contract~InterfaceInfo[1]#_g84907_|) + (cons (cons 'interface-methods + |gerbil/core/contract~InterfaceInfo[1]#_g84908_|) + (cons (cons 'interface-precedence-list + |gerbil/core/contract~InterfaceInfo[1]#_g84909_|) + (cons (cons 'interface-descriptor + |gerbil/core/contract~InterfaceInfo[1]#_g84910_|) + (cons (cons 'instance-type + |gerbil/core/contract~InterfaceInfo[1]#_g84911_|) + (cons (cons 'instance-constructor ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g83935_|) - (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g83936_|) - (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83937_|) - (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83938_|) - '()))))))))))))) + |gerbil/core/contract~InterfaceInfo[1]#_g84912_|) + (cons (cons 'instance-try-constructor + |gerbil/core/contract~InterfaceInfo[1]#_g84913_|) + (cons (cons 'instance-predicate + |gerbil/core/contract~InterfaceInfo[1]#_g84914_|) + (cons (cons 'instance-satisfies-predicate + |gerbil/core/contract~InterfaceInfo[1]#_g84915_|) + (cons (cons 'implementation-methods + |gerbil/core/contract~InterfaceInfo[1]#_g84916_|) + (cons (cons 'unchecked-implementation-methods + |gerbil/core/contract~InterfaceInfo[1]#_g84917_|) + '()))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj83837 __tmp83927 '15 '#f '#f)) - (let ((__tmp83939 + (##unchecked-structure-set! __obj84806 __tmp84904 '15 '#f '#f)) + (let ((__tmp84918 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g83940_|) - (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g83941_|) - (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83942_|) - (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g83943_|) - (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g83944_|) - (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83945_|) - (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83946_|) - (cons (cons 'instance-predicate + |gerbil/core/contract~InterfaceInfo[1]#_g84919_|) + (cons (cons 'namespace + |gerbil/core/contract~InterfaceInfo[1]#_g84920_|) + (cons (cons 'interface-mixin + |gerbil/core/contract~InterfaceInfo[1]#_g84921_|) + (cons (cons 'interface-methods + |gerbil/core/contract~InterfaceInfo[1]#_g84922_|) + (cons (cons 'interface-precedence-list + |gerbil/core/contract~InterfaceInfo[1]#_g84923_|) + (cons (cons 'interface-descriptor + |gerbil/core/contract~InterfaceInfo[1]#_g84924_|) + (cons (cons 'instance-type + |gerbil/core/contract~InterfaceInfo[1]#_g84925_|) + (cons (cons 'instance-constructor ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g83947_|) - (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g83948_|) - (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83949_|) - (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83950_|) - '()))))))))))))) + |gerbil/core/contract~InterfaceInfo[1]#_g84926_|) + (cons (cons 'instance-try-constructor + |gerbil/core/contract~InterfaceInfo[1]#_g84927_|) + (cons (cons 'instance-predicate + |gerbil/core/contract~InterfaceInfo[1]#_g84928_|) + (cons (cons 'instance-satisfies-predicate + |gerbil/core/contract~InterfaceInfo[1]#_g84929_|) + (cons (cons 'implementation-methods + |gerbil/core/contract~InterfaceInfo[1]#_g84930_|) + (cons (cons 'unchecked-implementation-methods + |gerbil/core/contract~InterfaceInfo[1]#_g84931_|) + '()))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj83837 __tmp83939 '16 '#f '#f)) - (let ((__tmp83951 + (##unchecked-structure-set! __obj84806 __tmp84918 '16 '#f '#f)) + (let ((__tmp84932 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g83952_|) - (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g83953_|) - (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83954_|) - (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g83955_|) - (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g83956_|) - (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83957_|) - (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83958_|) - (cons (cons 'instance-predicate + |gerbil/core/contract~InterfaceInfo[1]#_g84933_|) + (cons (cons 'namespace + |gerbil/core/contract~InterfaceInfo[1]#_g84934_|) + (cons (cons 'interface-mixin + |gerbil/core/contract~InterfaceInfo[1]#_g84935_|) + (cons (cons 'interface-methods + |gerbil/core/contract~InterfaceInfo[1]#_g84936_|) + (cons (cons 'interface-precedence-list + |gerbil/core/contract~InterfaceInfo[1]#_g84937_|) + (cons (cons 'interface-descriptor + |gerbil/core/contract~InterfaceInfo[1]#_g84938_|) + (cons (cons 'instance-type + |gerbil/core/contract~InterfaceInfo[1]#_g84939_|) + (cons (cons 'instance-constructor ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g83959_|) - (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g83960_|) - (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83961_|) - (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83962_|) - '()))))))))))))) + |gerbil/core/contract~InterfaceInfo[1]#_g84940_|) + (cons (cons 'instance-try-constructor + |gerbil/core/contract~InterfaceInfo[1]#_g84941_|) + (cons (cons 'instance-predicate + |gerbil/core/contract~InterfaceInfo[1]#_g84942_|) + (cons (cons 'instance-satisfies-predicate + |gerbil/core/contract~InterfaceInfo[1]#_g84943_|) + (cons (cons 'implementation-methods + |gerbil/core/contract~InterfaceInfo[1]#_g84944_|) + (cons (cons 'unchecked-implementation-methods + |gerbil/core/contract~InterfaceInfo[1]#_g84945_|) + '()))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj83837 __tmp83951 '17 '#f '#f)) - (let ((__tmp83963 + (##unchecked-structure-set! __obj84806 __tmp84932 '17 '#f '#f)) + (let ((__tmp84946 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g83964_|) - (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g83965_|) - (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83966_|) - (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g83967_|) - (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g83968_|) - (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83969_|) - (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83970_|) - (cons (cons 'instance-predicate + |gerbil/core/contract~InterfaceInfo[1]#_g84947_|) + (cons (cons 'namespace + |gerbil/core/contract~InterfaceInfo[1]#_g84948_|) + (cons (cons 'interface-mixin + |gerbil/core/contract~InterfaceInfo[1]#_g84949_|) + (cons (cons 'interface-methods + |gerbil/core/contract~InterfaceInfo[1]#_g84950_|) + (cons (cons 'interface-precedence-list + |gerbil/core/contract~InterfaceInfo[1]#_g84951_|) + (cons (cons 'interface-descriptor + |gerbil/core/contract~InterfaceInfo[1]#_g84952_|) + (cons (cons 'instance-type + |gerbil/core/contract~InterfaceInfo[1]#_g84953_|) + (cons (cons 'instance-constructor ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g83971_|) - (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g83972_|) - (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83973_|) - (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83974_|) - '()))))))))))))) + |gerbil/core/contract~InterfaceInfo[1]#_g84954_|) + (cons (cons 'instance-try-constructor + |gerbil/core/contract~InterfaceInfo[1]#_g84955_|) + (cons (cons 'instance-predicate + |gerbil/core/contract~InterfaceInfo[1]#_g84956_|) + (cons (cons 'instance-satisfies-predicate + |gerbil/core/contract~InterfaceInfo[1]#_g84957_|) + (cons (cons 'implementation-methods + |gerbil/core/contract~InterfaceInfo[1]#_g84958_|) + (cons (cons 'unchecked-implementation-methods + |gerbil/core/contract~InterfaceInfo[1]#_g84959_|) + '()))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj83837 __tmp83963 '18 '#f '#f)) - __obj83837))) + (##unchecked-structure-set! __obj84806 __tmp84946 '18 '#f '#f)) + __obj84806))) diff --git a/src/bootstrap/gerbil/core/contract~2.scm b/src/bootstrap/gerbil/core/contract~2.scm index 6913a7d15..e46efd2c0 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 _%$args45072%_ + (lambda _%$args45135%_ (apply make-instance |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%$args45072%_))) + _%$args45135%_))) (define |gerbil/core/contract~TypeReference[1]#type-reference-identifier| (make-class-slot-accessor |gerbil/core/contract~TypeReference[1]#type-reference::t| @@ -33,232 +33,232 @@ |gerbil/core/contract~TypeReference[1]#type-reference::t| 'identifier)) (define |gerbil/core/contract~TypeReference[1]#type-identifier?| - (lambda (_%id45053%_) - (if (gx#identifier? _%id45053%_) - (let ((_%t4505545057%_ (gx#syntax-local-value _%id45053%_ false))) - (if _%t4505545057%_ - (let* ((_%t45061%_ _%t4505545057%_) - (_%$e45064%_ + (lambda (_%id45116%_) + (if (gx#identifier? _%id45116%_) + (let ((_%t4511845120%_ (gx#syntax-local-value _%id45116%_ false))) + (if _%t4511845120%_ + (let* ((_%t45124%_ _%t4511845120%_) + (_%$e45127%_ (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t45061%_)))) - (if _%$e45064%_ - _%$e45064%_ - (let ((_%$e45068%_ + _%t45124%_)))) + (if _%$e45127%_ + _%$e45127%_ + (let ((_%$e45131%_ (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45061%_)))) - (if _%$e45068%_ - _%$e45068%_ + _%t45124%_)))) + (if _%$e45131%_ + _%$e45131%_ (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t45061%_)))))) + _%t45124%_)))))) '#f)) '#f))) (define |gerbil/core/contract~TypeReference[1]#resolve-type| - (lambda (_%stx45033%_ _%id45035%_) - (let _%loop45037%_ ((_%t45040%_ - (gx#syntax-local-value _%id45035%_ false))) + (lambda (_%stx45096%_ _%id45098%_) + (let _%loop45100%_ ((_%t45103%_ + (gx#syntax-local-value _%id45098%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t45040%_)) - _%t45040%_ + _%t45103%_)) + _%t45103%_ (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45040%_)) - _%t45040%_ + _%t45103%_)) + _%t45103%_ (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t45040%_)) - (_%loop45037%_ + _%t45103%_)) + (_%loop45100%_ (gx#syntax-local-value - (let ((__obj83845 _%t45040%_)) + (let ((__obj84813 _%t45103%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83845 + __obj84813 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83845 + __obj84813 '1 '#f '#f)) - (unchecked-slot-ref __obj83845 'identifier))) + (unchecked-slot-ref __obj84813 'identifier))) false)) - (if (not _%t45040%_) + (if (not _%t45103%_) (gx#raise-syntax-error '#f '"unresolved type" - _%stx45033%_ - _%id45035%_) + _%stx45096%_ + _%id45098%_) (gx#raise-syntax-error '#f '"unexpected type; expected class, interface or type reference" - _%stx45033%_ - _%id45035%_ - _%t45040%_)))))))) + _%stx45096%_ + _%id45098%_ + _%t45103%_)))))))) (define |gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - (lambda (_%stx45009%_ _%id45011%_) - (let _%loop45013%_ ((_%id45016%_ _%id45011%_) - (_%t45018%_ - (gx#syntax-local-value _%id45011%_ false))) + (lambda (_%stx45072%_ _%id45074%_) + (let _%loop45076%_ ((_%id45079%_ _%id45074%_) + (_%t45081%_ + (gx#syntax-local-value _%id45074%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t45018%_)) - _%id45016%_ + _%t45081%_)) + _%id45079%_ (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45018%_)) - _%id45016%_ + _%t45081%_)) + _%id45079%_ (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t45018%_)) - (let ((_%id45026%_ - (let ((__obj83846 _%t45018%_)) + _%t45081%_)) + (let ((_%id45089%_ + (let ((__obj84814 _%t45081%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83846 + __obj84814 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83846 + __obj84814 '1 '#f '#f)) (unchecked-slot-ref - __obj83846 + __obj84814 'identifier))))) - (_%loop45013%_ - _%id45026%_ - (gx#syntax-local-value _%id45026%_ false))) - (if (not _%t45018%_) + (_%loop45076%_ + _%id45089%_ + (gx#syntax-local-value _%id45089%_ false))) + (if (not _%t45081%_) (gx#raise-syntax-error '#f '"unresolved type" - _%stx45009%_ - _%id45016%_) + _%stx45072%_ + _%id45079%_) (gx#raise-syntax-error '#f '"unexpected type; expected class, interface or type reference" - _%stx45009%_ - _%id45016%_ - _%t45018%_)))))))) + _%stx45072%_ + _%id45079%_ + _%t45081%_)))))))) (define |gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - (lambda (_%stx44996%_ _%id44998%_) - (let ((_%t45000%_ + (lambda (_%stx45059%_ _%id45061%_) + (let ((_%t45063%_ (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx44996%_ - _%id44998%_))) + _%stx45059%_ + _%id45061%_))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t45000%_)) - (let ((__obj83848 _%t45000%_)) + _%t45063%_)) + (let ((__obj84816 _%t45063%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83848 + __obj84816 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83848 '12 '#f '#f)) - (unchecked-slot-ref __obj83848 'type-descriptor))) + (##unchecked-structure-ref __obj84816 '12 '#f '#f)) + (unchecked-slot-ref __obj84816 'type-descriptor))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45000%_)) - (let ((__obj83847 _%t45000%_)) + _%t45063%_)) + (let ((__obj84815 _%t45063%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83847 + __obj84815 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83847 '4 '#f '#f)) - (unchecked-slot-ref __obj83847 'instance-type))) + (##unchecked-structure-ref __obj84815 '7 '#f '#f)) + (unchecked-slot-ref __obj84815 'instance-type))) (gx#raise-syntax-error '#f '"unexpected type; expected class, interface or type reference" - _%stx44996%_ - _%id44998%_ - _%t45000%_)))))) + _%stx45059%_ + _%id45061%_ + _%t45063%_)))))) (define |gerbil/core/contract~TypeReference[:0:]#deftype| - (lambda (_%$stx45076%_) - (let* ((_%g4508045098%_ - (lambda (_%g4508145094%_) + (lambda (_%$stx45139%_) + (let* ((_%g4514345161%_ + (lambda (_%g4514445157%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4508145094%_))) - (_%g4507945153%_ - (lambda (_%g4508145102%_) - (if (gx#stx-pair? _%g4508145102%_) - (let ((_%e4508445105%_ (gx#syntax-e _%g4508145102%_))) - (let ((_%hd4508545109%_ + _%g4514445157%_))) + (_%g4514245216%_ + (lambda (_%g4514445165%_) + (if (gx#stx-pair? _%g4514445165%_) + (let ((_%e4514745168%_ (gx#syntax-e _%g4514445165%_))) + (let ((_%hd4514845172%_ (let () (declare (not safe)) - (##car _%e4508445105%_))) - (_%tl4508645112%_ + (##car _%e4514745168%_))) + (_%tl4514945175%_ (let () (declare (not safe)) - (##cdr _%e4508445105%_)))) - (if (gx#stx-pair? _%tl4508645112%_) - (let ((_%e4508745115%_ - (gx#syntax-e _%tl4508645112%_))) - (let ((_%hd4508845119%_ + (##cdr _%e4514745168%_)))) + (if (gx#stx-pair? _%tl4514945175%_) + (let ((_%e4515045178%_ + (gx#syntax-e _%tl4514945175%_))) + (let ((_%hd4515145182%_ (let () (declare (not safe)) - (##car _%e4508745115%_))) - (_%tl4508945122%_ + (##car _%e4515045178%_))) + (_%tl4515245185%_ (let () (declare (not safe)) - (##cdr _%e4508745115%_)))) - (if (gx#stx-pair? _%tl4508945122%_) - (let ((_%e4509045125%_ - (gx#syntax-e _%tl4508945122%_))) - (let ((_%hd4509145129%_ + (##cdr _%e4515045178%_)))) + (if (gx#stx-pair? _%tl4515245185%_) + (let ((_%e4515345188%_ + (gx#syntax-e _%tl4515245185%_))) + (let ((_%hd4515445192%_ (let () (declare (not safe)) - (##car _%e4509045125%_))) - (_%tl4509245132%_ + (##car _%e4515345188%_))) + (_%tl4515545195%_ (let () (declare (not safe)) - (##cdr _%e4509045125%_)))) - (if (gx#stx-null? _%tl4509245132%_) - ((lambda (_%L45135%_ _%L45137%_) + (##cdr _%e4515345188%_)))) + (if (gx#stx-null? _%tl4515545195%_) + ((lambda (_%L45198%_ _%L45200%_) (if (and (gx#identifier? - _%L45137%_) + _%L45200%_) (gx#identifier? - _%L45135%_)) + _%L45198%_)) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L45137%_ + (cons _%L45200%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -267,17 +267,17 @@ (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L45135%_ '())) + (cons _%L45198%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4508045098%_ - _%g4508145102%_))) - _%hd4509145129%_ - _%hd4508845119%_) - (_%g4508045098%_ - _%g4508145102%_)))) - (_%g4508045098%_ _%g4508145102%_)))) - (_%g4508045098%_ _%g4508145102%_)))) - (_%g4508045098%_ _%g4508145102%_))))) - (_%g4507945153%_ _%$stx45076%_))))) + (_%g4514345161%_ + _%g4514445165%_))) + _%hd4515445192%_ + _%hd4515145182%_) + (_%g4514345161%_ + _%g4514445165%_)))) + (_%g4514345161%_ _%g4514445165%_)))) + (_%g4514345161%_ _%g4514445165%_)))) + (_%g4514345161%_ _%g4514445165%_))))) + (_%g4514245216%_ _%$stx45139%_))))) diff --git a/src/bootstrap/gerbil/core/contract~3.scm b/src/bootstrap/gerbil/core/contract~3.scm index e5d7e0df3..14c206046 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]#_g83976_| + (define |gerbil/core/contract~TypeReference[2]#_g84961_| (##structure gx#syntax-quote::t 'type-reference::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g83978_| + (define |gerbil/core/contract~TypeReference[2]#_g84963_| (##structure gx#syntax-quote::t 'make-type-reference #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g83980_| + (define |gerbil/core/contract~TypeReference[2]#_g84965_| (##structure gx#syntax-quote::t 'type-reference? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g83982_| + (define |gerbil/core/contract~TypeReference[2]#_g84967_| (##structure gx#syntax-quote::t 'type-reference-identifier #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g83984_| + (define |gerbil/core/contract~TypeReference[2]#_g84969_| (##structure gx#syntax-quote::t 'type-reference-identifier-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g83986_| + (define |gerbil/core/contract~TypeReference[2]#_g84971_| (##structure gx#syntax-quote::t '&type-reference-identifier #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g83988_| + (define |gerbil/core/contract~TypeReference[2]#_g84973_| (##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 ((__obj83844 + (let ((__obj84812 (let () (declare (not safe)) (##structure @@ -79,63 +79,63 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj83844 + __obj84812 'gerbil/core/contract~TypeReference#type-reference::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83844 'type-reference '2 '#f '#f)) + (##unchecked-structure-set! __obj84812 'type-reference '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83844 '(identifier) '4 '#f '#f)) + (##unchecked-structure-set! __obj84812 '(identifier) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83844 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj84812 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83844 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj84812 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83844 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj84812 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83844 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj84812 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83844 '#f '11 '#f '#f)) - (let ((__tmp83975 |gerbil/core/contract~TypeReference[2]#_g83976_|)) + (##unchecked-structure-set! __obj84812 '#f '11 '#f '#f)) + (let ((__tmp84960 |gerbil/core/contract~TypeReference[2]#_g84961_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83844 __tmp83975 '12 '#f '#f)) - (let ((__tmp83977 |gerbil/core/contract~TypeReference[2]#_g83978_|)) + (##unchecked-structure-set! __obj84812 __tmp84960 '12 '#f '#f)) + (let ((__tmp84962 |gerbil/core/contract~TypeReference[2]#_g84963_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83844 __tmp83977 '13 '#f '#f)) - (let ((__tmp83979 |gerbil/core/contract~TypeReference[2]#_g83980_|)) + (##unchecked-structure-set! __obj84812 __tmp84962 '13 '#f '#f)) + (let ((__tmp84964 |gerbil/core/contract~TypeReference[2]#_g84965_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83844 __tmp83979 '14 '#f '#f)) - (let ((__tmp83981 + (##unchecked-structure-set! __obj84812 __tmp84964 '14 '#f '#f)) + (let ((__tmp84966 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g83982_|) + |gerbil/core/contract~TypeReference[2]#_g84967_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj83844 __tmp83981 '15 '#f '#f)) - (let ((__tmp83983 + (##unchecked-structure-set! __obj84812 __tmp84966 '15 '#f '#f)) + (let ((__tmp84968 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g83984_|) + |gerbil/core/contract~TypeReference[2]#_g84969_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj83844 __tmp83983 '16 '#f '#f)) - (let ((__tmp83985 + (##unchecked-structure-set! __obj84812 __tmp84968 '16 '#f '#f)) + (let ((__tmp84970 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g83986_|) + |gerbil/core/contract~TypeReference[2]#_g84971_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj83844 __tmp83985 '17 '#f '#f)) - (let ((__tmp83987 + (##unchecked-structure-set! __obj84812 __tmp84970 '17 '#f '#f)) + (let ((__tmp84972 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g83988_|) + |gerbil/core/contract~TypeReference[2]#_g84973_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj83844 __tmp83987 '18 '#f '#f)) - __obj83844))) + (##unchecked-structure-set! __obj84812 __tmp84972 '18 '#f '#f)) + __obj84812))) diff --git a/src/bootstrap/gerbil/core/contract~4.scm b/src/bootstrap/gerbil/core/contract~4.scm index 75eceba85..e6891ef72 100644 --- a/src/bootstrap/gerbil/core/contract~4.scm +++ b/src/bootstrap/gerbil/core/contract~4.scm @@ -1,142 +1,142 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypeCast[1]#_g83991_| + (define |gerbil/core/contract~TypeCast[1]#_g84976_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~TypeCast[:0:]#:| - (lambda (_%stx45158%_) - (let* ((_%g4516145179%_ - (lambda (_%g4516245175%_) + (lambda (_%stx45221%_) + (let* ((_%g4522445242%_ + (lambda (_%g4522545238%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4516245175%_))) - (_%g4516045374%_ - (lambda (_%g4516245183%_) - (if (gx#stx-pair? _%g4516245183%_) - (let ((_%e4516545186%_ (gx#syntax-e _%g4516245183%_))) - (let ((_%hd4516645190%_ + _%g4522545238%_))) + (_%g4522345437%_ + (lambda (_%g4522545246%_) + (if (gx#stx-pair? _%g4522545246%_) + (let ((_%e4522845249%_ (gx#syntax-e _%g4522545246%_))) + (let ((_%hd4522945253%_ (let () (declare (not safe)) - (##car _%e4516545186%_))) - (_%tl4516745193%_ + (##car _%e4522845249%_))) + (_%tl4523045256%_ (let () (declare (not safe)) - (##cdr _%e4516545186%_)))) - (if (gx#stx-pair? _%tl4516745193%_) - (let ((_%e4516845196%_ - (gx#syntax-e _%tl4516745193%_))) - (let ((_%hd4516945200%_ + (##cdr _%e4522845249%_)))) + (if (gx#stx-pair? _%tl4523045256%_) + (let ((_%e4523145259%_ + (gx#syntax-e _%tl4523045256%_))) + (let ((_%hd4523245263%_ (let () (declare (not safe)) - (##car _%e4516845196%_))) - (_%tl4517045203%_ + (##car _%e4523145259%_))) + (_%tl4523345266%_ (let () (declare (not safe)) - (##cdr _%e4516845196%_)))) - (if (gx#stx-pair? _%tl4517045203%_) - (let ((_%e4517145206%_ - (gx#syntax-e _%tl4517045203%_))) - (let ((_%hd4517245210%_ + (##cdr _%e4523145259%_)))) + (if (gx#stx-pair? _%tl4523345266%_) + (let ((_%e4523445269%_ + (gx#syntax-e _%tl4523345266%_))) + (let ((_%hd4523545273%_ (let () (declare (not safe)) - (##car _%e4517145206%_))) - (_%tl4517345213%_ + (##car _%e4523445269%_))) + (_%tl4523645276%_ (let () (declare (not safe)) - (##cdr _%e4517145206%_)))) - (if (gx#stx-null? _%tl4517345213%_) - ((lambda (_%L45216%_ _%L45218%_) + (##cdr _%e4523445269%_)))) + (if (gx#stx-null? _%tl4523645276%_) + ((lambda (_%L45279%_ _%L45281%_) (if (gx#identifier? - _%L45216%_) - (let ((_%meta45235%_ + _%L45279%_) + (let ((_%meta45298%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx45158%_ - _%L45216%_)))) + _%stx45221%_ + _%L45279%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta45235%_)) - (let* ((_%g4524045255%_ + _%meta45298%_)) + (let* ((_%g4530345318%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4524145251%_) + (lambda (_%g4530445314%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4524145251%_))) - (_%g4523945302%_ - (lambda (_%g4524145259%_) - (if (gx#stx-pair? _%g4524145259%_) - (let ((_%e4524445262%_ - (gx#syntax-e _%g4524145259%_))) - (let ((_%hd4524545266%_ + _%g4530445314%_))) + (_%g4530245365%_ + (lambda (_%g4530445322%_) + (if (gx#stx-pair? _%g4530445322%_) + (let ((_%e4530745325%_ + (gx#syntax-e _%g4530445322%_))) + (let ((_%hd4530845329%_ (let () (declare (not safe)) - (##car _%e4524445262%_))) - (_%tl4524645269%_ + (##car _%e4530745325%_))) + (_%tl4530945332%_ (let () (declare (not safe)) - (##cdr _%e4524445262%_)))) - (if (gx#stx-pair? _%tl4524645269%_) - (let ((_%e4524745272%_ + (##cdr _%e4530745325%_)))) + (if (gx#stx-pair? _%tl4530945332%_) + (let ((_%e4531045335%_ (gx#syntax-e - _%tl4524645269%_))) - (let ((_%hd4524845276%_ + _%tl4530945332%_))) + (let ((_%hd4531145339%_ (let () (declare (not safe)) - (##car _%e4524745272%_))) - (_%tl4524945279%_ + (##car _%e4531045335%_))) + (_%tl4531245342%_ (let () (declare (not safe)) - (##cdr _%e4524745272%_)))) + (##cdr _%e4531045335%_)))) (if (gx#stx-null? - _%tl4524945279%_) - ((lambda (_%L45282%_ - _%L45284%_) - (if (let ((__tmp83989 - (let ((__obj83850 + _%tl4531245342%_) + ((lambda (_%L45345%_ + _%L45347%_) + (if (let ((__tmp84974 + (let ((__obj84818 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%meta45235%_)) + _%meta45298%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83850 + __obj84818 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83850 + __obj84818 '1 '#f '#f)) - (unchecked-slot-ref __obj83850 'id))))) + (unchecked-slot-ref __obj84818 'id))))) (declare (not safe)) - (##memq __tmp83989 '(t void))) + (##memq __tmp84974 '(t void))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45284%_ '())) - (cons _%L45218%_ '()))) + (cons _%L45347%_ '())) + (cons _%L45281%_ '()))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45284%_ '())) + (cons _%L45347%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L45218%_ '())) + (cons _%L45281%_ '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L45282%_ + (cons (cons _%L45345%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'val) '())) (cons (gx#datum->syntax '#f 'val) (cons (cons (gx#datum->syntax '#f 'error) (cons '"bad cast" - (cons _%L45284%_ + (cons _%L45347%_ (cons (gx#datum->syntax '#f 'val) @@ -146,85 +146,85 @@ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4524845276%_ - _%hd4524545266%_) - (_%g4524045255%_ - _%g4524145259%_)))) - (_%g4524045255%_ _%g4524145259%_)))) - (_%g4524045255%_ _%g4524145259%_))))) - (_%g4523945302%_ - (list (let ((__obj83851 _%meta45235%_)) + _%hd4531145339%_ + _%hd4530845329%_) + (_%g4530345318%_ + _%g4530445322%_)))) + (_%g4530345318%_ _%g4530445322%_)))) + (_%g4530345318%_ _%g4530445322%_))))) + (_%g4530245365%_ + (list (let ((__obj84819 _%meta45298%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83851 + __obj84819 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83851 + __obj84819 '12 '#f '#f)) (unchecked-slot-ref - __obj83851 + __obj84819 'type-descriptor))) - (let ((__obj83852 _%meta45235%_)) + (let ((__obj84820 _%meta45298%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83852 + __obj84820 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83852 + __obj84820 '14 '#f '#f)) (unchecked-slot-ref - __obj83852 + __obj84820 'predicate)))))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta45235%_)) - (let* ((_%g4530845323%_ - (lambda (_%g4530945319%_) + _%meta45298%_)) + (let* ((_%g4537145386%_ + (lambda (_%g4537245382%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4530945319%_))) - (_%g4530745368%_ - (lambda (_%g4530945327%_) - (if (gx#stx-pair? _%g4530945327%_) - (let ((_%e4531245330%_ - (gx#syntax-e _%g4530945327%_))) - (let ((_%hd4531345334%_ + _%g4537245382%_))) + (_%g4537045431%_ + (lambda (_%g4537245390%_) + (if (gx#stx-pair? _%g4537245390%_) + (let ((_%e4537545393%_ + (gx#syntax-e _%g4537245390%_))) + (let ((_%hd4537645397%_ (let () (declare (not safe)) - (##car _%e4531245330%_))) - (_%tl4531445337%_ + (##car _%e4537545393%_))) + (_%tl4537745400%_ (let () (declare (not safe)) - (##cdr _%e4531245330%_)))) - (if (gx#stx-pair? _%tl4531445337%_) - (let ((_%e4531545340%_ + (##cdr _%e4537545393%_)))) + (if (gx#stx-pair? _%tl4537745400%_) + (let ((_%e4537845403%_ (gx#syntax-e - _%tl4531445337%_))) - (let ((_%hd4531645344%_ + _%tl4537745400%_))) + (let ((_%hd4537945407%_ (let () (declare (not safe)) - (##car _%e4531545340%_))) - (_%tl4531745347%_ + (##car _%e4537845403%_))) + (_%tl4538045410%_ (let () (declare (not safe)) - (##cdr _%e4531545340%_)))) + (##cdr _%e4537845403%_)))) (if (gx#stx-null? - _%tl4531745347%_) - ((lambda (_%L45350%_ - _%L45352%_) + _%tl4538045410%_) + ((lambda (_%L45413%_ + _%L45415%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -232,179 +232,179 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L45352%_ '())) - (cons (cons _%L45350%_ (cons _%L45218%_ '())) + (cons _%L45415%_ '())) + (cons (cons _%L45413%_ (cons _%L45281%_ '())) '())))) - _%hd4531645344%_ - _%hd4531345334%_) + _%hd4537945407%_ + _%hd4537645397%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4530845323%_ - _%g4530945327%_)))) - (_%g4530845323%_ - _%g4530945327%_)))) - (_%g4530845323%_ _%g4530945327%_))))) - (_%g4530745368%_ - (list (let ((__obj83849 _%meta45235%_)) + (_%g4537145386%_ + _%g4537245390%_)))) + (_%g4537145386%_ + _%g4537245390%_)))) + (_%g4537145386%_ _%g4537245390%_))))) + (_%g4537045431%_ + (list (let ((__obj84817 _%meta45298%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83849 + __obj84817 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83849 - '4 + __obj84817 + '7 '#f '#f)) (unchecked-slot-ref - __obj83849 + __obj84817 'instance-type))) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%stx45158%_ - _%L45216%_))))) + _%stx45221%_ + _%L45279%_))))) (gx#raise-syntax-error '#f '"not a class type or interface" - _%stx45158%_ - _%L45216%_)))) + _%stx45221%_ + _%L45279%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4516145179%_ - _%g4516245183%_))) - _%hd4517245210%_ - _%hd4516945200%_) - (_%g4516145179%_ - _%g4516245183%_)))) - (_%g4516145179%_ _%g4516245183%_)))) - (_%g4516145179%_ _%g4516245183%_)))) - (_%g4516145179%_ _%g4516245183%_))))) - (_%g4516045374%_ _%stx45158%_)))) + (_%g4522445242%_ + _%g4522545246%_))) + _%hd4523545273%_ + _%hd4523245263%_) + (_%g4522445242%_ + _%g4522545246%_)))) + (_%g4522445242%_ _%g4522545246%_)))) + (_%g4522445242%_ _%g4522545246%_)))) + (_%g4522445242%_ _%g4522545246%_))))) + (_%g4522345437%_ _%stx45221%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:?| - (lambda (_%stx45378%_) - (let* ((_%g4538145399%_ - (lambda (_%g4538245395%_) + (lambda (_%stx45441%_) + (let* ((_%g4544445462%_ + (lambda (_%g4544545458%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4538245395%_))) - (_%g4538045593%_ - (lambda (_%g4538245403%_) - (if (gx#stx-pair? _%g4538245403%_) - (let ((_%e4538545406%_ (gx#syntax-e _%g4538245403%_))) - (let ((_%hd4538645410%_ + _%g4544545458%_))) + (_%g4544345656%_ + (lambda (_%g4544545466%_) + (if (gx#stx-pair? _%g4544545466%_) + (let ((_%e4544845469%_ (gx#syntax-e _%g4544545466%_))) + (let ((_%hd4544945473%_ (let () (declare (not safe)) - (##car _%e4538545406%_))) - (_%tl4538745413%_ + (##car _%e4544845469%_))) + (_%tl4545045476%_ (let () (declare (not safe)) - (##cdr _%e4538545406%_)))) - (if (gx#stx-pair? _%tl4538745413%_) - (let ((_%e4538845416%_ - (gx#syntax-e _%tl4538745413%_))) - (let ((_%hd4538945420%_ + (##cdr _%e4544845469%_)))) + (if (gx#stx-pair? _%tl4545045476%_) + (let ((_%e4545145479%_ + (gx#syntax-e _%tl4545045476%_))) + (let ((_%hd4545245483%_ (let () (declare (not safe)) - (##car _%e4538845416%_))) - (_%tl4539045423%_ + (##car _%e4545145479%_))) + (_%tl4545345486%_ (let () (declare (not safe)) - (##cdr _%e4538845416%_)))) - (if (gx#stx-pair? _%tl4539045423%_) - (let ((_%e4539145426%_ - (gx#syntax-e _%tl4539045423%_))) - (let ((_%hd4539245430%_ + (##cdr _%e4545145479%_)))) + (if (gx#stx-pair? _%tl4545345486%_) + (let ((_%e4545445489%_ + (gx#syntax-e _%tl4545345486%_))) + (let ((_%hd4545545493%_ (let () (declare (not safe)) - (##car _%e4539145426%_))) - (_%tl4539345433%_ + (##car _%e4545445489%_))) + (_%tl4545645496%_ (let () (declare (not safe)) - (##cdr _%e4539145426%_)))) - (if (gx#stx-null? _%tl4539345433%_) - ((lambda (_%L45436%_ _%L45438%_) + (##cdr _%e4545445489%_)))) + (if (gx#stx-null? _%tl4545645496%_) + ((lambda (_%L45499%_ _%L45501%_) (if (gx#identifier? - _%L45436%_) - (let ((_%meta45454%_ + _%L45499%_) + (let ((_%meta45517%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx45378%_ - _%L45436%_)))) + _%stx45441%_ + _%L45499%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta45454%_)) - (let* ((_%g4545945474%_ + _%meta45517%_)) + (let* ((_%g4552245537%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4546045470%_) + (lambda (_%g4552345533%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4546045470%_))) - (_%g4545845521%_ - (lambda (_%g4546045478%_) - (if (gx#stx-pair? _%g4546045478%_) - (let ((_%e4546345481%_ - (gx#syntax-e _%g4546045478%_))) - (let ((_%hd4546445485%_ + _%g4552345533%_))) + (_%g4552145584%_ + (lambda (_%g4552345541%_) + (if (gx#stx-pair? _%g4552345541%_) + (let ((_%e4552645544%_ + (gx#syntax-e _%g4552345541%_))) + (let ((_%hd4552745548%_ (let () (declare (not safe)) - (##car _%e4546345481%_))) - (_%tl4546545488%_ + (##car _%e4552645544%_))) + (_%tl4552845551%_ (let () (declare (not safe)) - (##cdr _%e4546345481%_)))) - (if (gx#stx-pair? _%tl4546545488%_) - (let ((_%e4546645491%_ + (##cdr _%e4552645544%_)))) + (if (gx#stx-pair? _%tl4552845551%_) + (let ((_%e4552945554%_ (gx#syntax-e - _%tl4546545488%_))) - (let ((_%hd4546745495%_ + _%tl4552845551%_))) + (let ((_%hd4553045558%_ (let () (declare (not safe)) - (##car _%e4546645491%_))) - (_%tl4546845498%_ + (##car _%e4552945554%_))) + (_%tl4553145561%_ (let () (declare (not safe)) - (##cdr _%e4546645491%_)))) + (##cdr _%e4552945554%_)))) (if (gx#stx-null? - _%tl4546845498%_) - ((lambda (_%L45501%_ - _%L45503%_) - (if (let ((__tmp83990 - (let ((__obj83854 + _%tl4553145561%_) + ((lambda (_%L45564%_ + _%L45566%_) + (if (let ((__tmp84975 + (let ((__obj84822 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%meta45454%_)) + _%meta45517%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83854 + __obj84822 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83854 + __obj84822 '1 '#f '#f)) - (unchecked-slot-ref __obj83854 'id))))) + (unchecked-slot-ref __obj84822 'id))))) (declare (not safe)) - (##memq __tmp83990 '(t void))) + (##memq __tmp84975 '(t void))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45503%_ '())) - (cons _%L45438%_ '()))) + (cons _%L45566%_ '())) + (cons _%L45501%_ '()))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45503%_ '())) + (cons _%L45566%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L45438%_ '())) + (cons _%L45501%_ '())) (cons (cons (gx#datum->syntax '#f 'if) @@ -415,7 +415,7 @@ (cons (cons (gx#datum->syntax '#f 'not) (cons (gx#datum->syntax '#f 'val) '())) - (cons (cons _%L45501%_ + (cons (cons _%L45564%_ (cons (gx#datum->syntax '#f 'val) @@ -426,8 +426,8 @@ '#f 'contract-violation!) (cons '"bad cast" - (cons _%L45438%_ - (cons _%L45501%_ + (cons _%L45501%_ + (cons _%L45564%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -439,85 +439,85 @@ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4546745495%_ - _%hd4546445485%_) - (_%g4545945474%_ - _%g4546045478%_)))) - (_%g4545945474%_ _%g4546045478%_)))) - (_%g4545945474%_ _%g4546045478%_))))) - (_%g4545845521%_ - (list (let ((__obj83855 _%meta45454%_)) + _%hd4553045558%_ + _%hd4552745548%_) + (_%g4552245537%_ + _%g4552345541%_)))) + (_%g4552245537%_ _%g4552345541%_)))) + (_%g4552245537%_ _%g4552345541%_))))) + (_%g4552145584%_ + (list (let ((__obj84823 _%meta45517%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83855 + __obj84823 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83855 + __obj84823 '12 '#f '#f)) (unchecked-slot-ref - __obj83855 + __obj84823 'type-descriptor))) - (let ((__obj83856 _%meta45454%_)) + (let ((__obj84824 _%meta45517%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83856 + __obj84824 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83856 + __obj84824 '14 '#f '#f)) (unchecked-slot-ref - __obj83856 + __obj84824 'predicate)))))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta45454%_)) - (let* ((_%g4552745542%_ - (lambda (_%g4552845538%_) + _%meta45517%_)) + (let* ((_%g4559045605%_ + (lambda (_%g4559145601%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4552845538%_))) - (_%g4552645587%_ - (lambda (_%g4552845546%_) - (if (gx#stx-pair? _%g4552845546%_) - (let ((_%e4553145549%_ - (gx#syntax-e _%g4552845546%_))) - (let ((_%hd4553245553%_ + _%g4559145601%_))) + (_%g4558945650%_ + (lambda (_%g4559145609%_) + (if (gx#stx-pair? _%g4559145609%_) + (let ((_%e4559445612%_ + (gx#syntax-e _%g4559145609%_))) + (let ((_%hd4559545616%_ (let () (declare (not safe)) - (##car _%e4553145549%_))) - (_%tl4553345556%_ + (##car _%e4559445612%_))) + (_%tl4559645619%_ (let () (declare (not safe)) - (##cdr _%e4553145549%_)))) - (if (gx#stx-pair? _%tl4553345556%_) - (let ((_%e4553445559%_ + (##cdr _%e4559445612%_)))) + (if (gx#stx-pair? _%tl4559645619%_) + (let ((_%e4559745622%_ (gx#syntax-e - _%tl4553345556%_))) - (let ((_%hd4553545563%_ + _%tl4559645619%_))) + (let ((_%hd4559845626%_ (let () (declare (not safe)) - (##car _%e4553445559%_))) - (_%tl4553645566%_ + (##car _%e4559745622%_))) + (_%tl4559945629%_ (let () (declare (not safe)) - (##cdr _%e4553445559%_)))) + (##cdr _%e4559745622%_)))) (if (gx#stx-null? - _%tl4553645566%_) - ((lambda (_%L45569%_ - _%L45571%_) + _%tl4559945629%_) + ((lambda (_%L45632%_ + _%L45634%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -525,10 +525,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L45571%_ '())) + (cons _%L45634%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L45438%_ '())) + (cons _%L45501%_ '())) (cons (cons (gx#datum->syntax '#f 'and) @@ -536,152 +536,152 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'val) - (cons (cons _%L45569%_ + (cons (cons _%L45632%_ (cons (gx#datum->syntax '#f 'val) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) - _%hd4553545563%_ - _%hd4553245553%_) + _%hd4559845626%_ + _%hd4559545616%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4552745542%_ - _%g4552845546%_)))) - (_%g4552745542%_ - _%g4552845546%_)))) - (_%g4552745542%_ _%g4552845546%_))))) - (_%g4552645587%_ - (list (let ((__obj83853 _%meta45454%_)) + (_%g4559045605%_ + _%g4559145609%_)))) + (_%g4559045605%_ + _%g4559145609%_)))) + (_%g4559045605%_ _%g4559145609%_))))) + (_%g4558945650%_ + (list (let ((__obj84821 _%meta45517%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83853 + __obj84821 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83853 - '4 + __obj84821 + '7 '#f '#f)) (unchecked-slot-ref - __obj83853 + __obj84821 'instance-type))) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%stx45378%_ - _%L45436%_))))) + _%stx45441%_ + _%L45499%_))))) (gx#raise-syntax-error '#f '"not a class type or interface" - _%stx45378%_ - _%L45436%_)))) + _%stx45441%_ + _%L45499%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4538145399%_ - _%g4538245403%_))) - _%hd4539245430%_ - _%hd4538945420%_) - (_%g4538145399%_ - _%g4538245403%_)))) - (_%g4538145399%_ _%g4538245403%_)))) - (_%g4538145399%_ _%g4538245403%_)))) - (_%g4538145399%_ _%g4538245403%_))))) - (_%g4538045593%_ _%stx45378%_)))) + (_%g4544445462%_ + _%g4544545466%_))) + _%hd4545545493%_ + _%hd4545245483%_) + (_%g4544445462%_ + _%g4544545466%_)))) + (_%g4544445462%_ _%g4544545466%_)))) + (_%g4544445462%_ _%g4544545466%_)))) + (_%g4544445462%_ _%g4544545466%_))))) + (_%g4544345656%_ _%stx45441%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:-| - (lambda (_%stx45597%_) - (let* ((_%g4560045618%_ - (lambda (_%g4560145614%_) + (lambda (_%stx45660%_) + (let* ((_%g4566345681%_ + (lambda (_%g4566445677%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4560145614%_))) - (_%g4559945704%_ - (lambda (_%g4560145622%_) - (if (gx#stx-pair? _%g4560145622%_) - (let ((_%e4560445625%_ (gx#syntax-e _%g4560145622%_))) - (let ((_%hd4560545629%_ + _%g4566445677%_))) + (_%g4566245767%_ + (lambda (_%g4566445685%_) + (if (gx#stx-pair? _%g4566445685%_) + (let ((_%e4566745688%_ (gx#syntax-e _%g4566445685%_))) + (let ((_%hd4566845692%_ (let () (declare (not safe)) - (##car _%e4560445625%_))) - (_%tl4560645632%_ + (##car _%e4566745688%_))) + (_%tl4566945695%_ (let () (declare (not safe)) - (##cdr _%e4560445625%_)))) - (if (gx#stx-pair? _%tl4560645632%_) - (let ((_%e4560745635%_ - (gx#syntax-e _%tl4560645632%_))) - (let ((_%hd4560845639%_ + (##cdr _%e4566745688%_)))) + (if (gx#stx-pair? _%tl4566945695%_) + (let ((_%e4567045698%_ + (gx#syntax-e _%tl4566945695%_))) + (let ((_%hd4567145702%_ (let () (declare (not safe)) - (##car _%e4560745635%_))) - (_%tl4560945642%_ + (##car _%e4567045698%_))) + (_%tl4567245705%_ (let () (declare (not safe)) - (##cdr _%e4560745635%_)))) - (if (gx#stx-pair? _%tl4560945642%_) - (let ((_%e4561045645%_ - (gx#syntax-e _%tl4560945642%_))) - (let ((_%hd4561145649%_ + (##cdr _%e4567045698%_)))) + (if (gx#stx-pair? _%tl4567245705%_) + (let ((_%e4567345708%_ + (gx#syntax-e _%tl4567245705%_))) + (let ((_%hd4567445712%_ (let () (declare (not safe)) - (##car _%e4561045645%_))) - (_%tl4561245652%_ + (##car _%e4567345708%_))) + (_%tl4567545715%_ (let () (declare (not safe)) - (##cdr _%e4561045645%_)))) - (if (gx#stx-null? _%tl4561245652%_) - ((lambda (_%L45655%_ _%L45657%_) + (##cdr _%e4567345708%_)))) + (if (gx#stx-null? _%tl4567545715%_) + ((lambda (_%L45718%_ _%L45720%_) (if (gx#identifier? - _%L45655%_) - (let* ((_%g4567345681%_ - (lambda (_%g4567445677%_) + _%L45718%_) + (let* ((_%g4573645744%_ + (lambda (_%g4573745740%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4567445677%_))) - (_%g4567245700%_ - (lambda (_%g4567445685%_) - ((lambda (_%L45688%_) + _%g4573745740%_))) + (_%g4573545763%_ + (lambda (_%g4573745748%_) + ((lambda (_%L45751%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45688%_ '())) - (cons _%L45657%_ '())))) - _%g4567445685%_)))) - (_%g4567245700%_ + (cons _%L45751%_ '())) + (cons _%L45720%_ '())))) + _%g4573745748%_)))) + (_%g4573545763%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx45597%_ - _%L45655%_)))) + _%stx45660%_ + _%L45718%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4560045618%_ - _%g4560145622%_))) - _%hd4561145649%_ - _%hd4560845639%_) - (_%g4560045618%_ - _%g4560145622%_)))) - (_%g4560045618%_ _%g4560145622%_)))) - (_%g4560045618%_ _%g4560145622%_)))) - (_%g4560045618%_ _%g4560145622%_))))) - (_%g4559945704%_ _%stx45597%_)))) + (_%g4566345681%_ + _%g4566445685%_))) + _%hd4567445712%_ + _%hd4567145702%_) + (_%g4566345681%_ + _%g4566445685%_)))) + (_%g4566345681%_ _%g4566445685%_)))) + (_%g4566345681%_ _%g4566445685%_)))) + (_%g4566345681%_ _%g4566445685%_))))) + (_%g4566245767%_ _%stx45660%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:~| - (lambda (_%$stx45708%_) - (let* ((_%__stx7837878379%_ _%$stx45708%_) - (_%g4571345749%_ + (lambda (_%$stx45771%_) + (let* ((_%__stx7925379254%_ _%$stx45771%_) + (_%g4577645812%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7837878379%_)))) - (let ((_%__kont7838178382%_ - (lambda (_%L45867%_ _%L45869%_) + _%__stx7925379254%_)))) + (let ((_%__kont7925679257%_ + (lambda (_%L45930%_ _%L45932%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L45869%_ '())) + (cons _%L45932%_ '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L45867%_ + (cons (cons _%L45930%_ (cons (gx#datum->syntax '#f 'val) @@ -693,237 +693,237 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'contract-violation!) - (cons _%L45869%_ - (cons _%L45867%_ + (cons _%L45932%_ + (cons _%L45930%_ (cons (gx#datum->syntax '#f 'val) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7838378384%_ - (lambda (_%L45806%_ _%L45808%_ _%L45809%_) + (_%__kont7925879259%_ + (lambda (_%L45869%_ _%L45871%_ _%L45872%_) (cons (gx#datum->syntax '#f ':-) (cons (cons (gx#datum->syntax '#f ':~) - (cons _%L45809%_ (cons _%L45808%_ '()))) - (cons _%L45806%_ '())))))) - (if (gx#stx-pair? _%__stx7837878379%_) - (let ((_%e4571745837%_ (gx#syntax-e _%__stx7837878379%_))) - (let ((_%tl4571945844%_ - (let () (declare (not safe)) (##cdr _%e4571745837%_))) - (_%hd4571845841%_ + (cons _%L45872%_ (cons _%L45871%_ '()))) + (cons _%L45869%_ '())))))) + (if (gx#stx-pair? _%__stx7925379254%_) + (let ((_%e4578045900%_ (gx#syntax-e _%__stx7925379254%_))) + (let ((_%tl4578245907%_ + (let () (declare (not safe)) (##cdr _%e4578045900%_))) + (_%hd4578145904%_ (let () (declare (not safe)) - (##car _%e4571745837%_)))) - (if (gx#stx-pair? _%tl4571945844%_) - (let ((_%e4572045847%_ (gx#syntax-e _%tl4571945844%_))) - (let ((_%tl4572245854%_ + (##car _%e4578045900%_)))) + (if (gx#stx-pair? _%tl4578245907%_) + (let ((_%e4578345910%_ (gx#syntax-e _%tl4578245907%_))) + (let ((_%tl4578545917%_ (let () (declare (not safe)) - (##cdr _%e4572045847%_))) - (_%hd4572145851%_ + (##cdr _%e4578345910%_))) + (_%hd4578445914%_ (let () (declare (not safe)) - (##car _%e4572045847%_)))) - (if (gx#stx-pair? _%tl4572245854%_) - (let ((_%e4572345857%_ - (gx#syntax-e _%tl4572245854%_))) - (let ((_%tl4572545864%_ + (##car _%e4578345910%_)))) + (if (gx#stx-pair? _%tl4578545917%_) + (let ((_%e4578645920%_ + (gx#syntax-e _%tl4578545917%_))) + (let ((_%tl4578845927%_ (let () (declare (not safe)) - (##cdr _%e4572345857%_))) - (_%hd4572445861%_ + (##cdr _%e4578645920%_))) + (_%hd4578745924%_ (let () (declare (not safe)) - (##car _%e4572345857%_)))) - (if (gx#stx-null? _%tl4572545864%_) - (_%__kont7838178382%_ - _%hd4572445861%_ - _%hd4572145851%_) - (if (gx#stx-pair? _%tl4572545864%_) - (let ((_%e4573845786%_ + (##car _%e4578645920%_)))) + (if (gx#stx-null? _%tl4578845927%_) + (_%__kont7925679257%_ + _%hd4578745924%_ + _%hd4578445914%_) + (if (gx#stx-pair? _%tl4578845927%_) + (let ((_%e4580145849%_ (gx#syntax-e - _%tl4572545864%_))) - (let ((_%tl4574045793%_ + _%tl4578845927%_))) + (let ((_%tl4580345856%_ (let () (declare (not safe)) - (##cdr _%e4573845786%_))) - (_%hd4573945790%_ + (##cdr _%e4580145849%_))) + (_%hd4580245853%_ (let () (declare (not safe)) - (##car _%e4573845786%_)))) + (##car _%e4580145849%_)))) (if (gx#identifier? - _%hd4573945790%_) + _%hd4580245853%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypeCast[1]#_g83991_| - _%hd4573945790%_) + |gerbil/core/contract~TypeCast[1]#_g84976_| + _%hd4580245853%_) (if (gx#stx-pair? - _%tl4574045793%_) - (let ((_%e4574145796%_ + _%tl4580345856%_) + (let ((_%e4580445859%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4574045793%_))) - (let ((_%tl4574345803%_ + (gx#syntax-e _%tl4580345856%_))) + (let ((_%tl4580645866%_ (let () (declare (not safe)) - (##cdr _%e4574145796%_))) - (_%hd4574245800%_ + (##cdr _%e4580445859%_))) + (_%hd4580545863%_ (let () (declare (not safe)) - (##car _%e4574145796%_)))) - (if (gx#stx-null? _%tl4574345803%_) - (_%__kont7838378384%_ - _%hd4574245800%_ - _%hd4572445861%_ - _%hd4572145851%_) - (let () (declare (not safe)) (_%g4571345749%_))))) - (let () (declare (not safe)) (_%g4571345749%_))) - (let () (declare (not safe)) (_%g4571345749%_))) + (##car _%e4580445859%_)))) + (if (gx#stx-null? _%tl4580645866%_) + (_%__kont7925879259%_ + _%hd4580545863%_ + _%hd4578745924%_ + _%hd4578445914%_) + (let () (declare (not safe)) (_%g4577645812%_))))) + (let () (declare (not safe)) (_%g4577645812%_))) + (let () (declare (not safe)) (_%g4577645812%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4571345749%_))))) + (_%g4577645812%_))))) (let () (declare (not safe)) - (_%g4571345749%_)))))) + (_%g4577645812%_)))))) (let () (declare (not safe)) - (_%g4571345749%_))))) - (let () (declare (not safe)) (_%g4571345749%_))))) - (let () (declare (not safe)) (_%g4571345749%_))))))) + (_%g4577645812%_))))) + (let () (declare (not safe)) (_%g4577645812%_))))) + (let () (declare (not safe)) (_%g4577645812%_))))))) (define |gerbil/core/contract~TypeCast[:0:]#::-| - (lambda (_%$stx45888%_) - (let ((_%g4589145898%_ - (lambda (_%g4589245894%_) + (lambda (_%$stx45951%_) + (let ((_%g4595445961%_ + (lambda (_%g4595545957%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4589245894%_)))) - (_%g4589145898%_ _%$stx45888%_)))) + _%g4595545957%_)))) + (_%g4595445961%_ _%$stx45951%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:=| - (lambda (_%$stx45902%_) - (let ((_%g4590545912%_ - (lambda (_%g4590645908%_) + (lambda (_%$stx45965%_) + (let ((_%g4596845975%_ + (lambda (_%g4596945971%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4590645908%_)))) - (_%g4590545912%_ _%$stx45902%_)))) + _%g4596945971%_)))) + (_%g4596845975%_ _%$stx45965%_)))) (define |gerbil/core/contract~TypeCast[:0:]#check-nil!| - (lambda (_%$stx45916%_) - (let* ((_%g4592045934%_ - (lambda (_%g4592145930%_) + (lambda (_%$stx45979%_) + (let* ((_%g4598345997%_ + (lambda (_%g4598445993%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4592145930%_))) - (_%g4591945975%_ - (lambda (_%g4592145938%_) - (if (gx#stx-pair? _%g4592145938%_) - (let ((_%e4592345941%_ (gx#syntax-e _%g4592145938%_))) - (let ((_%hd4592445945%_ + _%g4598445993%_))) + (_%g4598246038%_ + (lambda (_%g4598446001%_) + (if (gx#stx-pair? _%g4598446001%_) + (let ((_%e4598646004%_ (gx#syntax-e _%g4598446001%_))) + (let ((_%hd4598746008%_ (let () (declare (not safe)) - (##car _%e4592345941%_))) - (_%tl4592545948%_ + (##car _%e4598646004%_))) + (_%tl4598846011%_ (let () (declare (not safe)) - (##cdr _%e4592345941%_)))) - (if (gx#stx-pair? _%tl4592545948%_) - (let ((_%e4592645951%_ - (gx#syntax-e _%tl4592545948%_))) - (let ((_%hd4592745955%_ + (##cdr _%e4598646004%_)))) + (if (gx#stx-pair? _%tl4598846011%_) + (let ((_%e4598946014%_ + (gx#syntax-e _%tl4598846011%_))) + (let ((_%hd4599046018%_ (let () (declare (not safe)) - (##car _%e4592645951%_))) - (_%tl4592845958%_ + (##car _%e4598946014%_))) + (_%tl4599146021%_ (let () (declare (not safe)) - (##cdr _%e4592645951%_)))) - (if (gx#stx-null? _%tl4592845958%_) - ((lambda (_%L45961%_) + (##cdr _%e4598946014%_)))) + (if (gx#stx-null? _%tl4599146021%_) + ((lambda (_%L46024%_) (cons (gx#datum->syntax '#f 'or) - (cons _%L45961%_ + (cons _%L46024%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'nil-dereference!) - (cons _%L45961%_ '())) + (cons _%L46024%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4592745955%_) - (_%g4592045934%_ _%g4592145938%_)))) - (_%g4592045934%_ _%g4592145938%_)))) - (_%g4592045934%_ _%g4592145938%_))))) - (_%g4591945975%_ _%$stx45916%_)))) + _%hd4599046018%_) + (_%g4598345997%_ _%g4598446001%_)))) + (_%g4598345997%_ _%g4598446001%_)))) + (_%g4598345997%_ _%g4598446001%_))))) + (_%g4598246038%_ _%$stx45979%_)))) (define |gerbil/core/contract~TypeCast[:0:]#contract-violation!| - (lambda (_%stx45979%_) - (let* ((_%g4598246005%_ - (lambda (_%g4598346001%_) + (lambda (_%stx46042%_) + (let* ((_%g4604546068%_ + (lambda (_%g4604646064%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4598346001%_))) - (_%g4598146129%_ - (lambda (_%g4598346009%_) - (if (gx#stx-pair? _%g4598346009%_) - (let ((_%e4598846012%_ (gx#syntax-e _%g4598346009%_))) - (let ((_%hd4598946016%_ + _%g4604646064%_))) + (_%g4604446192%_ + (lambda (_%g4604646072%_) + (if (gx#stx-pair? _%g4604646072%_) + (let ((_%e4605146075%_ (gx#syntax-e _%g4604646072%_))) + (let ((_%hd4605246079%_ (let () (declare (not safe)) - (##car _%e4598846012%_))) - (_%tl4599046019%_ + (##car _%e4605146075%_))) + (_%tl4605346082%_ (let () (declare (not safe)) - (##cdr _%e4598846012%_)))) - (if (gx#stx-pair? _%tl4599046019%_) - (let ((_%e4599146022%_ - (gx#syntax-e _%tl4599046019%_))) - (let ((_%hd4599246026%_ + (##cdr _%e4605146075%_)))) + (if (gx#stx-pair? _%tl4605346082%_) + (let ((_%e4605446085%_ + (gx#syntax-e _%tl4605346082%_))) + (let ((_%hd4605546089%_ (let () (declare (not safe)) - (##car _%e4599146022%_))) - (_%tl4599346029%_ + (##car _%e4605446085%_))) + (_%tl4605646092%_ (let () (declare (not safe)) - (##cdr _%e4599146022%_)))) - (if (gx#stx-pair? _%tl4599346029%_) - (let ((_%e4599446032%_ - (gx#syntax-e _%tl4599346029%_))) - (let ((_%hd4599546036%_ + (##cdr _%e4605446085%_)))) + (if (gx#stx-pair? _%tl4605646092%_) + (let ((_%e4605746095%_ + (gx#syntax-e _%tl4605646092%_))) + (let ((_%hd4605846099%_ (let () (declare (not safe)) - (##car _%e4599446032%_))) - (_%tl4599646039%_ + (##car _%e4605746095%_))) + (_%tl4605946102%_ (let () (declare (not safe)) - (##cdr _%e4599446032%_)))) - (if (gx#stx-pair? _%tl4599646039%_) - (let ((_%e4599746042%_ + (##cdr _%e4605746095%_)))) + (if (gx#stx-pair? _%tl4605946102%_) + (let ((_%e4606046105%_ (gx#syntax-e - _%tl4599646039%_))) - (let ((_%hd4599846046%_ + _%tl4605946102%_))) + (let ((_%hd4606146109%_ (let () (declare (not safe)) - (##car _%e4599746042%_))) - (_%tl4599946049%_ + (##car _%e4606046105%_))) + (_%tl4606246112%_ (let () (declare (not safe)) - (##cdr _%e4599746042%_)))) + (##cdr _%e4606046105%_)))) (if (gx#stx-null? - _%tl4599946049%_) - ((lambda (_%L46052%_ - _%L46054%_ - _%L46055%_ - _%L46056%_) - (let* ((_%g4607646084%_ + _%tl4606246112%_) + ((lambda (_%L46115%_ + _%L46117%_ + _%L46118%_ + _%L46119%_) + (let* ((_%g4613946147%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4607746080%_) + (lambda (_%g4614046143%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4607746080%_))) - (_%g4607546103%_ - (lambda (_%g4607746088%_) - ((lambda (_%L46091%_) + _%g4614046143%_))) + (_%g4613846166%_ + (lambda (_%g4614046151%_) + ((lambda (_%L46154%_) (cons (gx#datum->syntax '#f 'abort!) (cons (cons (gx#datum->syntax '#f @@ -934,92 +934,92 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L46091%_ '())) + (cons _%L46154%_ '())) (cons 'contract: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L46054%_ '())) + (cons _%L46117%_ '())) (cons 'value: - (cons _%L46052%_ '())))))))) + (cons _%L46115%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%g4607746088%_)))) - (_%g4607546103%_ - (let ((_%$e46115%_ - (let ((_%$e46107%_ (gx#stx-source _%L46055%_))) - (if _%$e46107%_ - _%$e46107%_ - (let ((_%$e46111%_ - (gx#stx-source _%stx45979%_))) - (if _%$e46111%_ - _%$e46111%_ - (gx#stx-source _%L46056%_))))))) - (if _%$e46115%_ - ((lambda (_%locat46119%_) + _%g4614046151%_)))) + (_%g4613846166%_ + (let ((_%$e46178%_ + (let ((_%$e46170%_ (gx#stx-source _%L46118%_))) + (if _%$e46170%_ + _%$e46170%_ + (let ((_%$e46174%_ + (gx#stx-source _%stx46042%_))) + (if _%$e46174%_ + _%$e46174%_ + (gx#stx-source _%L46119%_))))))) + (if _%$e46178%_ + ((lambda (_%locat46182%_) (call-with-output-string '"" - (lambda (_%g4612146123%_) + (lambda (_%g4618446186%_) (let () (declare (not safe)) (##display-locat - _%locat46119%_ + _%locat46182%_ '#t - _%g4612146123%_))))) - _%$e46115%_) + _%g4618446186%_))))) + _%$e46178%_) (gx#expander-context-id (gx#core-context-top))))))) - _%hd4599846046%_ - _%hd4599546036%_ - _%hd4599246026%_ - _%hd4598946016%_) - (_%g4598246005%_ _%g4598346009%_)))) + _%hd4606146109%_ + _%hd4605846099%_ + _%hd4605546089%_ + _%hd4605246079%_) + (_%g4604546068%_ _%g4604646072%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4598246005%_ - _%g4598346009%_)))) - (_%g4598246005%_ _%g4598346009%_)))) - (_%g4598246005%_ _%g4598346009%_)))) - (_%g4598246005%_ _%g4598346009%_))))) - (_%g4598146129%_ _%stx45979%_)))) + (_%g4604546068%_ + _%g4604646072%_)))) + (_%g4604546068%_ _%g4604646072%_)))) + (_%g4604546068%_ _%g4604646072%_)))) + (_%g4604546068%_ _%g4604646072%_))))) + (_%g4604446192%_ _%stx46042%_)))) (define |gerbil/core/contract~TypeCast[:0:]#nil-dereference!| - (lambda (_%stx46133%_) - (let* ((_%g4613646151%_ - (lambda (_%g4613746147%_) + (lambda (_%stx46196%_) + (let* ((_%g4619946214%_ + (lambda (_%g4620046210%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4613746147%_))) - (_%g4613546247%_ - (lambda (_%g4613746155%_) - (if (gx#stx-pair? _%g4613746155%_) - (let ((_%e4614046158%_ (gx#syntax-e _%g4613746155%_))) - (let ((_%hd4614146162%_ + _%g4620046210%_))) + (_%g4619846310%_ + (lambda (_%g4620046218%_) + (if (gx#stx-pair? _%g4620046218%_) + (let ((_%e4620346221%_ (gx#syntax-e _%g4620046218%_))) + (let ((_%hd4620446225%_ (let () (declare (not safe)) - (##car _%e4614046158%_))) - (_%tl4614246165%_ + (##car _%e4620346221%_))) + (_%tl4620546228%_ (let () (declare (not safe)) - (##cdr _%e4614046158%_)))) - (if (gx#stx-pair? _%tl4614246165%_) - (let ((_%e4614346168%_ - (gx#syntax-e _%tl4614246165%_))) - (let ((_%hd4614446172%_ + (##cdr _%e4620346221%_)))) + (if (gx#stx-pair? _%tl4620546228%_) + (let ((_%e4620646231%_ + (gx#syntax-e _%tl4620546228%_))) + (let ((_%hd4620746235%_ (let () (declare (not safe)) - (##car _%e4614346168%_))) - (_%tl4614546175%_ + (##car _%e4620646231%_))) + (_%tl4620846238%_ (let () (declare (not safe)) - (##cdr _%e4614346168%_)))) - (if (gx#stx-null? _%tl4614546175%_) - ((lambda (_%L46178%_ _%L46180%_) - (let* ((_%g4619446202%_ - (lambda (_%g4619546198%_) + (##cdr _%e4620646231%_)))) + (if (gx#stx-null? _%tl4620846238%_) + ((lambda (_%L46241%_ _%L46243%_) + (let* ((_%g4625746265%_ + (lambda (_%g4625846261%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4619546198%_))) - (_%g4619346221%_ - (lambda (_%g4619546206%_) - ((lambda (_%L46209%_) + _%g4625846261%_))) + (_%g4625646284%_ + (lambda (_%g4625846269%_) + ((lambda (_%L46272%_) (cons (gx#datum->syntax '#f 'abort!) @@ -1032,86 +1032,86 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L46209%_ '())) + (cons _%L46272%_ '())) (cons 'contract: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L46178%_ '())) + (cons _%L46241%_ '())) '())) (cons 'value: (cons '#f '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g4619546206%_)))) - (_%g4619346221%_ - (let ((_%$e46233%_ - (let ((_%$e46225%_ + _%g4625846269%_)))) + (_%g4625646284%_ + (let ((_%$e46296%_ + (let ((_%$e46288%_ (gx#stx-source - _%L46178%_))) - (if _%$e46225%_ - _%$e46225%_ - (let ((_%$e46229%_ + _%L46241%_))) + (if _%$e46288%_ + _%$e46288%_ + (let ((_%$e46292%_ (gx#stx-source ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%stx46133%_))) - (if _%$e46229%_ _%$e46229%_ (gx#stx-source _%L46180%_))))))) + _%stx46196%_))) + (if _%$e46292%_ _%$e46292%_ (gx#stx-source _%L46243%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e46233%_ - ((lambda (_%locat46237%_) + (if _%$e46296%_ + ((lambda (_%locat46300%_) (call-with-output-string '"" - (lambda (_%g4623946241%_) + (lambda (_%g4630246304%_) (let () (declare (not safe)) (##display-locat - _%locat46237%_ + _%locat46300%_ '#t - _%g4623946241%_))))) - _%$e46233%_) + _%g4630246304%_))))) + _%$e46296%_) (gx#expander-context-id (gx#core-context-top))))))) - _%hd4614446172%_ - _%hd4614146162%_) - (_%g4613646151%_ _%g4613746155%_)))) - (_%g4613646151%_ _%g4613746155%_)))) - (_%g4613646151%_ _%g4613746155%_))))) - (_%g4613546247%_ _%stx46133%_)))) + _%hd4620746235%_ + _%hd4620446225%_) + (_%g4619946214%_ _%g4620046218%_)))) + (_%g4619946214%_ _%g4620046218%_)))) + (_%g4619946214%_ _%g4620046218%_))))) + (_%g4619846310%_ _%stx46196%_)))) (define |gerbil/core/contract~TypeCast[:0:]#abort!| - (lambda (_%$stx46251%_) - (let* ((_%g4625546269%_ - (lambda (_%g4625646265%_) + (lambda (_%$stx46314%_) + (let* ((_%g4631846332%_ + (lambda (_%g4631946328%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4625646265%_))) - (_%g4625446310%_ - (lambda (_%g4625646273%_) - (if (gx#stx-pair? _%g4625646273%_) - (let ((_%e4625846276%_ (gx#syntax-e _%g4625646273%_))) - (let ((_%hd4625946280%_ + _%g4631946328%_))) + (_%g4631746373%_ + (lambda (_%g4631946336%_) + (if (gx#stx-pair? _%g4631946336%_) + (let ((_%e4632146339%_ (gx#syntax-e _%g4631946336%_))) + (let ((_%hd4632246343%_ (let () (declare (not safe)) - (##car _%e4625846276%_))) - (_%tl4626046283%_ + (##car _%e4632146339%_))) + (_%tl4632346346%_ (let () (declare (not safe)) - (##cdr _%e4625846276%_)))) - (if (gx#stx-pair? _%tl4626046283%_) - (let ((_%e4626146286%_ - (gx#syntax-e _%tl4626046283%_))) - (let ((_%hd4626246290%_ + (##cdr _%e4632146339%_)))) + (if (gx#stx-pair? _%tl4632346346%_) + (let ((_%e4632446349%_ + (gx#syntax-e _%tl4632346346%_))) + (let ((_%hd4632546353%_ (let () (declare (not safe)) - (##car _%e4626146286%_))) - (_%tl4626346293%_ + (##car _%e4632446349%_))) + (_%tl4632646356%_ (let () (declare (not safe)) - (##cdr _%e4626146286%_)))) - (if (gx#stx-null? _%tl4626346293%_) - ((lambda (_%L46296%_) + (##cdr _%e4632446349%_)))) + (if (gx#stx-null? _%tl4632646356%_) + ((lambda (_%L46359%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -1123,13 +1123,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - (cons _%L46296%_ + (cons _%L46359%_ (cons (cons (gx#datum->syntax '#f 'void) '()) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4626246290%_) - (_%g4625546269%_ _%g4625646273%_)))) - (_%g4625546269%_ _%g4625646273%_)))) - (_%g4625546269%_ _%g4625646273%_))))) - (_%g4625446310%_ _%$stx46251%_)))))) + _%hd4632546353%_) + (_%g4631846332%_ _%g4631946336%_)))) + (_%g4631846332%_ _%g4631946336%_)))) + (_%g4631846332%_ _%g4631946336%_))))) + (_%g4631746373%_ _%$stx46314%_)))))) diff --git a/src/bootstrap/gerbil/core/contract~5.scm b/src/bootstrap/gerbil/core/contract~5.scm index 159789b7b..6fd3cdd8a 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]#_g83993_| + (define |gerbil/core/contract~TypeEnv[1]#_g84978_| (##structure gx#syntax-quote::t 'type-env::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g83995_| + (define |gerbil/core/contract~TypeEnv[1]#_g84980_| (##structure gx#syntax-quote::t 'make-type-env #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g83997_| + (define |gerbil/core/contract~TypeEnv[1]#_g84982_| (##structure gx#syntax-quote::t 'type-env? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g83999_| + (define |gerbil/core/contract~TypeEnv[1]#_g84984_| (##structure gx#syntax-quote::t 'type-env-var #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84000_| + (define |gerbil/core/contract~TypeEnv[1]#_g84985_| (##structure gx#syntax-quote::t 'type-env-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84001_| + (define |gerbil/core/contract~TypeEnv[1]#_g84986_| (##structure gx#syntax-quote::t 'type-env-checked? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84002_| + (define |gerbil/core/contract~TypeEnv[1]#_g84987_| (##structure gx#syntax-quote::t 'type-env-super #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84004_| + (define |gerbil/core/contract~TypeEnv[1]#_g84989_| (##structure gx#syntax-quote::t 'type-env-var-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84005_| + (define |gerbil/core/contract~TypeEnv[1]#_g84990_| (##structure gx#syntax-quote::t 'type-env-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84006_| + (define |gerbil/core/contract~TypeEnv[1]#_g84991_| (##structure gx#syntax-quote::t 'type-env-checked?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84007_| + (define |gerbil/core/contract~TypeEnv[1]#_g84992_| (##structure gx#syntax-quote::t 'type-env-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84009_| + (define |gerbil/core/contract~TypeEnv[1]#_g84994_| (##structure gx#syntax-quote::t '&type-env-var #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84010_| + (define |gerbil/core/contract~TypeEnv[1]#_g84995_| (##structure gx#syntax-quote::t '&type-env-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84011_| + (define |gerbil/core/contract~TypeEnv[1]#_g84996_| (##structure gx#syntax-quote::t '&type-env-checked? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84012_| + (define |gerbil/core/contract~TypeEnv[1]#_g84997_| (##structure gx#syntax-quote::t '&type-env-super #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84014_| + (define |gerbil/core/contract~TypeEnv[1]#_g84999_| (##structure gx#syntax-quote::t '&type-env-var-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84015_| + (define |gerbil/core/contract~TypeEnv[1]#_g85000_| (##structure gx#syntax-quote::t '&type-env-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84016_| + (define |gerbil/core/contract~TypeEnv[1]#_g85001_| (##structure gx#syntax-quote::t '&type-env-checked?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84017_| + (define |gerbil/core/contract~TypeEnv[1]#_g85002_| (##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 ((__obj83857 + (let ((__obj84825 (let () (declare (not safe)) (##structure @@ -163,88 +163,88 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj83857 + __obj84825 'gerbil/core/contract~TypeEnv#type-env::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83857 'type-env '2 '#f '#f)) + (##unchecked-structure-set! __obj84825 'type-env '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj83857 + __obj84825 '(var type checked? super) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83857 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj84825 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83857 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj84825 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83857 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj84825 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83857 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj84825 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83857 '#f '11 '#f '#f)) - (let ((__tmp83992 |gerbil/core/contract~TypeEnv[1]#_g83993_|)) + (##unchecked-structure-set! __obj84825 '#f '11 '#f '#f)) + (let ((__tmp84977 |gerbil/core/contract~TypeEnv[1]#_g84978_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83857 __tmp83992 '12 '#f '#f)) - (let ((__tmp83994 |gerbil/core/contract~TypeEnv[1]#_g83995_|)) + (##unchecked-structure-set! __obj84825 __tmp84977 '12 '#f '#f)) + (let ((__tmp84979 |gerbil/core/contract~TypeEnv[1]#_g84980_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83857 __tmp83994 '13 '#f '#f)) - (let ((__tmp83996 |gerbil/core/contract~TypeEnv[1]#_g83997_|)) + (##unchecked-structure-set! __obj84825 __tmp84979 '13 '#f '#f)) + (let ((__tmp84981 |gerbil/core/contract~TypeEnv[1]#_g84982_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83857 __tmp83996 '14 '#f '#f)) - (let ((__tmp83998 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g83999_|) + (##unchecked-structure-set! __obj84825 __tmp84981 '14 '#f '#f)) + (let ((__tmp84983 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84984_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g84000_|) + |gerbil/core/contract~TypeEnv[1]#_g84985_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g84001_|) + |gerbil/core/contract~TypeEnv[1]#_g84986_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g84002_|) + |gerbil/core/contract~TypeEnv[1]#_g84987_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj83857 __tmp83998 '15 '#f '#f)) - (let ((__tmp84003 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84004_|) + (##unchecked-structure-set! __obj84825 __tmp84983 '15 '#f '#f)) + (let ((__tmp84988 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84989_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g84005_|) + |gerbil/core/contract~TypeEnv[1]#_g84990_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g84006_|) + |gerbil/core/contract~TypeEnv[1]#_g84991_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g84007_|) + |gerbil/core/contract~TypeEnv[1]#_g84992_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj83857 __tmp84003 '16 '#f '#f)) - (let ((__tmp84008 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84009_|) + (##unchecked-structure-set! __obj84825 __tmp84988 '16 '#f '#f)) + (let ((__tmp84993 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84994_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g84010_|) + |gerbil/core/contract~TypeEnv[1]#_g84995_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g84011_|) + |gerbil/core/contract~TypeEnv[1]#_g84996_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g84012_|) + |gerbil/core/contract~TypeEnv[1]#_g84997_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj83857 __tmp84008 '17 '#f '#f)) - (let ((__tmp84013 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84014_|) + (##unchecked-structure-set! __obj84825 __tmp84993 '17 '#f '#f)) + (let ((__tmp84998 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84999_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g84015_|) + |gerbil/core/contract~TypeEnv[1]#_g85000_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g84016_|) + |gerbil/core/contract~TypeEnv[1]#_g85001_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g84017_|) + |gerbil/core/contract~TypeEnv[1]#_g85002_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj83857 __tmp84013 '18 '#f '#f)) - __obj83857))) + (##unchecked-structure-set! __obj84825 __tmp84998 '18 '#f '#f)) + __obj84825))) diff --git a/src/bootstrap/gerbil/core/contract~6.scm b/src/bootstrap/gerbil/core/contract~6.scm index 5c36ae108..72c1e9568 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]#_g84018_| + (define |gerbil/core/contract~Using[1]#_g85003_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84019_| + (define |gerbil/core/contract~Using[1]#_g85004_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84020_| + (define |gerbil/core/contract~Using[1]#_g85005_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84023_| + (define |gerbil/core/contract~Using[1]#_g85008_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84024_| + (define |gerbil/core/contract~Using[1]#_g85009_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84027_| + (define |gerbil/core/contract~Using[1]#_g85012_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84028_| + (define |gerbil/core/contract~Using[1]#_g85013_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84029_| + (define |gerbil/core/contract~Using[1]#_g85014_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84030_| + (define |gerbil/core/contract~Using[1]#_g85015_| (##structure gx#syntax-quote::t '::- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84034_| + (define |gerbil/core/contract~Using[1]#_g85019_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84035_| + (define |gerbil/core/contract~Using[1]#_g85020_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84036_| + (define |gerbil/core/contract~Using[1]#_g85021_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84037_| + (define |gerbil/core/contract~Using[1]#_g85022_| (##structure gx#syntax-quote::t '::- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84041_| + (define |gerbil/core/contract~Using[1]#_g85026_| (##structure gx#syntax-quote::t '%%ref-dotted @@ -35,5012 +35,5012 @@ '())) (begin (define |gerbil/core/contract~Using[:0:]#using| - (lambda (_%stx46329%_) - (let* ((_%__stx7844478445%_ _%stx46329%_) - (_%g4633846547%_ + (lambda (_%stx46392%_) + (let* ((_%__stx7931979320%_ _%stx46392%_) + (_%g4640146610%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7844478445%_)))) - (let ((_%__kont7844778448%_ - (lambda (_%L47453%_ - _%L47455%_ - _%L47456%_ - _%L47457%_ - _%L47458%_) + _%__stx7931979320%_)))) + (let ((_%__kont7932279323%_ + (lambda (_%L47516%_ + _%L47518%_ + _%L47519%_ + _%L47520%_ + _%L47521%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L47458%_ (cons _%L47457%_ '())) + (cons (cons _%L47521%_ (cons _%L47520%_ '())) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L47458%_ - (cons _%L47456%_ - (cons _%L47455%_ + (cons (cons _%L47521%_ + (cons _%L47519%_ + (cons _%L47518%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g4750147504%_ + (foldr (lambda (_%g4756447567%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4750247507%_) - (cons _%g4750147504%_ _%g4750247507%_)) + _%g4756547570%_) + (cons _%g4756447567%_ _%g4756547570%_)) '() - _%L47453%_))) + _%L47516%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7845178452%_ - (lambda (_%L47297%_ - _%L47299%_ - _%L47300%_ - _%L47301%_ - _%L47302%_ - _%L47303%_) + (_%__kont7932679327%_ + (lambda (_%L47360%_ + _%L47362%_ + _%L47363%_ + _%L47364%_ + _%L47365%_ + _%L47366%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L47303%_ (cons _%L47302%_ '())) + (cons (cons _%L47366%_ (cons _%L47365%_ '())) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L47303%_ + (cons (cons _%L47366%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L47301%_ + (cons _%L47364%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L47303%_ + (cons (cons _%L47366%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L47300%_ (cons _%L47299%_ '()))) - (foldr (lambda (_%g4734747350%_ _%g4734847353%_) - (cons _%g4734747350%_ _%g4734847353%_)) + (cons _%L47363%_ (cons _%L47362%_ '()))) + (foldr (lambda (_%g4741047413%_ _%g4741147416%_) + (cons _%g4741047413%_ _%g4741147416%_)) '() - _%L47297%_))) + _%L47360%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7845578456%_ - (lambda (_%L47114%_ _%L47116%_ _%L47117%_ _%L47118%_) - (let ((_%meta47155%_ + (_%__kont7933079331%_ + (lambda (_%L47177%_ _%L47179%_ _%L47180%_ _%L47181%_) + (let ((_%meta47218%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx46329%_ - _%L47116%_)))) + _%stx46392%_ + _%L47179%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta47155%_)) + _%meta47218%_)) (cons (gx#datum->syntax '#f 'with-interface) - (cons (cons _%L47118%_ - (cons _%L47117%_ - (cons _%L47116%_ '()))) - (foldr (lambda (_%g4715947162%_ - _%g4716047165%_) - (cons _%g4715947162%_ - _%g4716047165%_)) + (cons (cons _%L47181%_ + (cons _%L47180%_ + (cons _%L47179%_ '()))) + (foldr (lambda (_%g4722247225%_ + _%g4722347228%_) + (cons _%g4722247225%_ + _%g4722347228%_)) '() - _%L47114%_))) + _%L47177%_))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta47155%_)) + _%meta47218%_)) (cons (gx#datum->syntax '#f 'with-class) - (cons (cons _%L47118%_ - (cons _%L47117%_ - (cons _%L47116%_ '()))) - (foldr (lambda (_%g4716947172%_ - _%g4717047175%_) - (cons _%g4716947172%_ - _%g4717047175%_)) + (cons (cons _%L47181%_ + (cons _%L47180%_ + (cons _%L47179%_ '()))) + (foldr (lambda (_%g4723247235%_ + _%g4723347238%_) + (cons _%g4723247235%_ + _%g4723347238%_)) '() - _%L47114%_))) + _%L47177%_))) (gx#raise-syntax-error '#f '"unexpected type; must be a class type or interface" - _%stx46329%_ - _%L47116%_ - _%meta47155%_)))))) - (_%__kont7845978460%_ - (lambda (_%L46992%_ _%L46994%_ _%L46995%_) + _%stx46392%_ + _%L47179%_ + _%meta47218%_)))))) + (_%__kont7933479335%_ + (lambda (_%L47055%_ _%L47057%_ _%L47058%_) (cons (gx#datum->syntax '#f 'with-contract) - (cons (cons _%L46995%_ + (cons (cons _%L47058%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L46994%_ '()))) - (foldr (lambda (_%g4701847021%_ _%g4701947024%_) - (cons _%g4701847021%_ _%g4701947024%_)) + (cons _%L47057%_ '()))) + (foldr (lambda (_%g4708147084%_ _%g4708247087%_) + (cons _%g4708147084%_ _%g4708247087%_)) '() - _%L46992%_))))) - (_%__kont7846378464%_ - (lambda (_%L46850%_ - _%L46852%_ - _%L46853%_ - _%L46854%_ - _%L46855%_) + _%L47055%_))))) + (_%__kont7933879339%_ + (lambda (_%L46913%_ + _%L46915%_ + _%L46916%_ + _%L46917%_ + _%L46918%_) (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L46855%_ + (cons (cons _%L46918%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L46854%_ '()))) + (cons _%L46917%_ '()))) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L46855%_ - (cons _%L46853%_ - (cons _%L46852%_ + (cons (cons _%L46918%_ + (cons _%L46916%_ + (cons _%L46915%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g4689646899%_ + (foldr (lambda (_%g4695946962%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4689746902%_) - (cons _%g4689646899%_ _%g4689746902%_)) + _%g4696046965%_) + (cons _%g4695946962%_ _%g4696046965%_)) '() - _%L46850%_))) + _%L46913%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7846778468%_ - (lambda (_%L46708%_ _%L46710%_ _%L46711%_ _%L46712%_) + (_%__kont7934279343%_ + (lambda (_%L46771%_ _%L46773%_ _%L46774%_ _%L46775%_) (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L46712%_ _%L46711%_) + (cons (cons _%L46775%_ _%L46774%_) (cons (cons (gx#datum->syntax '#f 'using) - (cons _%L46710%_ - (foldr (lambda (_%g4673446737%_ + (cons _%L46773%_ + (foldr (lambda (_%g4679746800%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4673546740%_) - (cons _%g4673446737%_ _%g4673546740%_)) + _%g4679846803%_) + (cons _%g4679746800%_ _%g4679846803%_)) '() - _%L46708%_))) + _%L46771%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7847178472%_ - (lambda (_%L46604%_) + (_%__kont7934679347%_ + (lambda (_%L46667%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4662246625%_ _%g4662346628%_) - (cons _%g4662246625%_ _%g4662346628%_)) + (foldr (lambda (_%g4668546688%_ _%g4668646691%_) + (cons _%g4668546688%_ _%g4668646691%_)) '() - _%L46604%_)))))) - (let* ((_%__match7877778778%_ - (lambda (_%e4652746554%_ - _%hd4652846558%_ - _%tl4652946561%_ - _%e4653046564%_ - _%hd4653146568%_ - _%tl4653246571%_ - _%__splice7847378474%_ - _%target4653346574%_ - _%tl4653546577%_) - (letrec ((_%loop4653646580%_ - (lambda (_%hd4653446584%_ _%body4654046587%_) - (if (gx#stx-pair? _%hd4653446584%_) - (let ((_%e4653746590%_ - (gx#syntax-e _%hd4653446584%_))) - (let ((_%lp-tl4653946597%_ + _%L46667%_)))))) + (let* ((_%__match7965279653%_ + (lambda (_%e4659046617%_ + _%hd4659146621%_ + _%tl4659246624%_ + _%e4659346627%_ + _%hd4659446631%_ + _%tl4659546634%_ + _%__splice7934879349%_ + _%target4659646637%_ + _%tl4659846640%_) + (letrec ((_%loop4659946643%_ + (lambda (_%hd4659746647%_ _%body4660346650%_) + (if (gx#stx-pair? _%hd4659746647%_) + (let ((_%e4660046653%_ + (gx#syntax-e _%hd4659746647%_))) + (let ((_%lp-tl4660246660%_ (let () (declare (not safe)) - (##cdr _%e4653746590%_))) - (_%lp-hd4653846594%_ + (##cdr _%e4660046653%_))) + (_%lp-hd4660146657%_ (let () (declare (not safe)) - (##car _%e4653746590%_)))) - (_%loop4653646580%_ - _%lp-tl4653946597%_ - (cons _%lp-hd4653846594%_ - _%body4654046587%_)))) - (let ((_%body4654146600%_ - (reverse _%body4654046587%_))) - (_%__kont7847178472%_ - _%body4654146600%_)))))) - (_%loop4653646580%_ _%target4653346574%_ '())))) - (_%__match7875578756%_ - (lambda (_%e4650546638%_ - _%hd4650646642%_ - _%tl4650746645%_ - _%e4650846648%_ - _%hd4650946652%_ - _%tl4651046655%_ - _%e4651146658%_ - _%hd4651246662%_ - _%tl4651346665%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (letrec ((_%loop4652046684%_ - (lambda (_%hd4651846688%_ _%body4652446691%_) - (if (gx#stx-pair? _%hd4651846688%_) - (let ((_%e4652146694%_ - (gx#syntax-e _%hd4651846688%_))) - (let ((_%lp-tl4652346701%_ + (##car _%e4660046653%_)))) + (_%loop4659946643%_ + _%lp-tl4660246660%_ + (cons _%lp-hd4660146657%_ + _%body4660346650%_)))) + (let ((_%body4660446663%_ + (reverse _%body4660346650%_))) + (_%__kont7934679347%_ + _%body4660446663%_)))))) + (_%loop4659946643%_ _%target4659646637%_ '())))) + (_%__match7963079631%_ + (lambda (_%e4656846701%_ + _%hd4656946705%_ + _%tl4657046708%_ + _%e4657146711%_ + _%hd4657246715%_ + _%tl4657346718%_ + _%e4657446721%_ + _%hd4657546725%_ + _%tl4657646728%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) + (letrec ((_%loop4658346747%_ + (lambda (_%hd4658146751%_ _%body4658746754%_) + (if (gx#stx-pair? _%hd4658146751%_) + (let ((_%e4658446757%_ + (gx#syntax-e _%hd4658146751%_))) + (let ((_%lp-tl4658646764%_ (let () (declare (not safe)) - (##cdr _%e4652146694%_))) - (_%lp-hd4652246698%_ + (##cdr _%e4658446757%_))) + (_%lp-hd4658546761%_ (let () (declare (not safe)) - (##car _%e4652146694%_)))) - (_%loop4652046684%_ - _%lp-tl4652346701%_ - (cons _%lp-hd4652246698%_ - _%body4652446691%_)))) - (let ((_%body4652546704%_ - (reverse _%body4652446691%_))) - (let ((_%L46708%_ _%body4652546704%_) - (_%L46710%_ _%tl4651346665%_) - (_%L46711%_ _%tl4651646675%_) - (_%L46712%_ _%hd4651546672%_)) - (if (gx#identifier? _%L46712%_) - (_%__kont7846778468%_ - _%L46708%_ - _%L46710%_ - _%L46711%_ - _%L46712%_) + (##car _%e4658446757%_)))) + (_%loop4658346747%_ + _%lp-tl4658646764%_ + (cons _%lp-hd4658546761%_ + _%body4658746754%_)))) + (let ((_%body4658846767%_ + (reverse _%body4658746754%_))) + (let ((_%L46771%_ _%body4658846767%_) + (_%L46773%_ _%tl4657646728%_) + (_%L46774%_ _%tl4657946738%_) + (_%L46775%_ _%hd4657846735%_)) + (if (gx#identifier? _%L46775%_) + (_%__kont7934279343%_ + _%L46771%_ + _%L46773%_ + _%L46774%_ + _%L46775%_) (let () (declare (not safe)) - (_%g4633846547%_))))))))) - (_%loop4652046684%_ _%target4651746678%_ '())))) - (_%__match7874178742%_ - (lambda (_%e4650546638%_ - _%hd4650646642%_ - _%tl4650746645%_ - _%e4650846648%_ - _%hd4650946652%_ - _%tl4651046655%_ - _%e4651146658%_ - _%hd4651246662%_ - _%tl4651346665%_) - (if (gx#stx-pair? _%hd4651246662%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4651246662%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_))))))))) + (_%loop4658346747%_ _%target4658046741%_ '())))) + (_%__match7961679617%_ + (lambda (_%e4656846701%_ + _%hd4656946705%_ + _%tl4657046708%_ + _%e4657146711%_ + _%hd4657246715%_ + _%tl4657346718%_ + _%e4657446721%_ + _%hd4657546725%_ + _%tl4657646728%_) + (if (gx#stx-pair? _%hd4657546725%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4657546725%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4651046655%_) - (let ((_%__splice7846978470%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4657346718%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4651046655%_ + _%tl4657346718%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4650546638%_ - _%hd4650646642%_ - _%tl4650746645%_ - _%e4650846648%_ - _%hd4650946652%_ - _%tl4651046655%_ - _%e4651146658%_ - _%hd4651246662%_ - _%tl4651346665%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4656846701%_ + _%hd4656946705%_ + _%tl4657046708%_ + _%e4657146711%_ + _%hd4657246715%_ + _%tl4657346718%_ + _%e4657446721%_ + _%hd4657546725%_ + _%tl4657646728%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (_%__match7872378724%_ - (lambda (_%e4647146750%_ - _%hd4647246754%_ - _%tl4647346757%_ - _%e4647446760%_ - _%hd4647546764%_ - _%tl4647646767%_ - _%e4647746770%_ - _%hd4647846774%_ - _%tl4647946777%_ - _%e4648046780%_ - _%hd4648146784%_ - _%tl4648246787%_ - _%e4648346790%_ - _%hd4648446794%_ - _%tl4648546797%_ - _%e4648646800%_ - _%hd4648746804%_ - _%tl4648846807%_ - _%e4648946810%_ - _%hd4649046814%_ - _%tl4649146817%_ - _%__splice7846578466%_ - _%target4649246820%_ - _%tl4649446823%_) - (letrec ((_%loop4649546826%_ - (lambda (_%hd4649346830%_ _%body4649946833%_) - (if (gx#stx-pair? _%hd4649346830%_) - (let ((_%e4649646836%_ - (gx#syntax-e _%hd4649346830%_))) - (let ((_%lp-tl4649846843%_ + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (_%__match7959879599%_ + (lambda (_%e4653446813%_ + _%hd4653546817%_ + _%tl4653646820%_ + _%e4653746823%_ + _%hd4653846827%_ + _%tl4653946830%_ + _%e4654046833%_ + _%hd4654146837%_ + _%tl4654246840%_ + _%e4654346843%_ + _%hd4654446847%_ + _%tl4654546850%_ + _%e4654646853%_ + _%hd4654746857%_ + _%tl4654846860%_ + _%e4654946863%_ + _%hd4655046867%_ + _%tl4655146870%_ + _%e4655246873%_ + _%hd4655346877%_ + _%tl4655446880%_ + _%__splice7934079341%_ + _%target4655546883%_ + _%tl4655746886%_) + (letrec ((_%loop4655846889%_ + (lambda (_%hd4655646893%_ _%body4656246896%_) + (if (gx#stx-pair? _%hd4655646893%_) + (let ((_%e4655946899%_ + (gx#syntax-e _%hd4655646893%_))) + (let ((_%lp-tl4656146906%_ (let () (declare (not safe)) - (##cdr _%e4649646836%_))) - (_%lp-hd4649746840%_ + (##cdr _%e4655946899%_))) + (_%lp-hd4656046903%_ (let () (declare (not safe)) - (##car _%e4649646836%_)))) - (_%loop4649546826%_ - _%lp-tl4649846843%_ - (cons _%lp-hd4649746840%_ - _%body4649946833%_)))) - (let ((_%body4650046846%_ - (reverse _%body4649946833%_))) - (let ((_%L46850%_ _%body4650046846%_) - (_%L46852%_ _%hd4649046814%_) - (_%L46853%_ _%hd4648746804%_) - (_%L46854%_ _%hd4648446794%_) - (_%L46855%_ _%hd4647846774%_)) - (if (and (gx#identifier? _%L46855%_) - (gx#identifier? _%L46852%_) - (gx#identifier? _%L46853%_) + (##car _%e4655946899%_)))) + (_%loop4655846889%_ + _%lp-tl4656146906%_ + (cons _%lp-hd4656046903%_ + _%body4656246896%_)))) + (let ((_%body4656346909%_ + (reverse _%body4656246896%_))) + (let ((_%L46913%_ _%body4656346909%_) + (_%L46915%_ _%hd4655346877%_) + (_%L46916%_ _%hd4655046867%_) + (_%L46917%_ _%hd4654746857%_) + (_%L46918%_ _%hd4654146837%_)) + (if (and (gx#identifier? _%L46918%_) + (gx#identifier? _%L46915%_) + (gx#identifier? _%L46916%_) (or (gx#free-identifier=? - _%L46853%_ + _%L46916%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L46853%_ + _%L46916%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L46853%_ + _%L46916%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L46853%_ + _%L46916%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7846378464%_ - _%L46850%_ - _%L46852%_ - _%L46853%_ - _%L46854%_ - _%L46855%_) - (_%__match7874178742%_ - _%e4647146750%_ - _%hd4647246754%_ - _%tl4647346757%_ - _%e4647446760%_ - _%hd4647546764%_ - _%tl4647646767%_ - _%e4647746770%_ - _%hd4647846774%_ - _%tl4647946777%_)))))))) - (_%loop4649546826%_ _%target4649246820%_ '())))) - (_%__match7866778668%_ - (lambda (_%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4645146942%_ - _%hd4645246946%_ - _%tl4645346949%_ - _%e4645446952%_ - _%hd4645546956%_ - _%tl4645646959%_ - _%__splice7846178462%_ - _%target4645746962%_ - _%tl4645946965%_) - (letrec ((_%loop4646046968%_ - (lambda (_%hd4645846972%_ _%body4646446975%_) - (if (gx#stx-pair? _%hd4645846972%_) - (let ((_%e4646146978%_ - (gx#syntax-e _%hd4645846972%_))) - (let ((_%lp-tl4646346985%_ + (_%__kont7933879339%_ + _%L46913%_ + _%L46915%_ + _%L46916%_ + _%L46917%_ + _%L46918%_) + (_%__match7961679617%_ + _%e4653446813%_ + _%hd4653546817%_ + _%tl4653646820%_ + _%e4653746823%_ + _%hd4653846827%_ + _%tl4653946830%_ + _%e4654046833%_ + _%hd4654146837%_ + _%tl4654246840%_)))))))) + (_%loop4655846889%_ _%target4655546883%_ '())))) + (_%__match7954279543%_ + (lambda (_%e4650546975%_ + _%hd4650646979%_ + _%tl4650746982%_ + _%e4650846985%_ + _%hd4650946989%_ + _%tl4651046992%_ + _%e4651146995%_ + _%hd4651246999%_ + _%tl4651347002%_ + _%e4651447005%_ + _%hd4651547009%_ + _%tl4651647012%_ + _%e4651747015%_ + _%hd4651847019%_ + _%tl4651947022%_ + _%__splice7933679337%_ + _%target4652047025%_ + _%tl4652247028%_) + (letrec ((_%loop4652347031%_ + (lambda (_%hd4652147035%_ _%body4652747038%_) + (if (gx#stx-pair? _%hd4652147035%_) + (let ((_%e4652447041%_ + (gx#syntax-e _%hd4652147035%_))) + (let ((_%lp-tl4652647048%_ (let () (declare (not safe)) - (##cdr _%e4646146978%_))) - (_%lp-hd4646246982%_ + (##cdr _%e4652447041%_))) + (_%lp-hd4652547045%_ (let () (declare (not safe)) - (##car _%e4646146978%_)))) - (_%loop4646046968%_ - _%lp-tl4646346985%_ - (cons _%lp-hd4646246982%_ - _%body4646446975%_)))) - (let ((_%body4646546988%_ - (reverse _%body4646446975%_))) - (let ((_%L46992%_ _%body4646546988%_) - (_%L46994%_ _%hd4645546956%_) - (_%L46995%_ _%hd4644946936%_)) - (if (gx#identifier? _%L46995%_) - (_%__kont7845978460%_ - _%L46992%_ - _%L46994%_ - _%L46995%_) - (_%__match7874178742%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_)))))))) - (_%loop4646046968%_ _%target4645746962%_ '())))) - (_%__match7864778648%_ - (lambda (_%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4645146942%_ - _%hd4645246946%_ - _%tl4645346949%_) - (if (gx#identifier? _%hd4645246946%_) + (##car _%e4652447041%_)))) + (_%loop4652347031%_ + _%lp-tl4652647048%_ + (cons _%lp-hd4652547045%_ + _%body4652747038%_)))) + (let ((_%body4652847051%_ + (reverse _%body4652747038%_))) + (let ((_%L47055%_ _%body4652847051%_) + (_%L47057%_ _%hd4651847019%_) + (_%L47058%_ _%hd4651246999%_)) + (if (gx#identifier? _%L47058%_) + (_%__kont7933479335%_ + _%L47055%_ + _%L47057%_ + _%L47058%_) + (_%__match7961679617%_ + _%e4650546975%_ + _%hd4650646979%_ + _%tl4650746982%_ + _%e4650846985%_ + _%hd4650946989%_ + _%tl4651046992%_ + _%e4651146995%_ + _%hd4651246999%_ + _%tl4651347002%_)))))))) + (_%loop4652347031%_ _%target4652047025%_ '())))) + (_%__match7952279523%_ + (lambda (_%e4650546975%_ + _%hd4650646979%_ + _%tl4650746982%_ + _%e4650846985%_ + _%hd4650946989%_ + _%tl4651046992%_ + _%e4651146995%_ + _%hd4651246999%_ + _%tl4651347002%_ + _%e4651447005%_ + _%hd4651547009%_ + _%tl4651647012%_) + (if (gx#identifier? _%hd4651547009%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84018_| - _%hd4645246946%_) - (if (gx#stx-pair? _%tl4645346949%_) - (let ((_%e4645446952%_ - (gx#syntax-e _%tl4645346949%_))) - (let ((_%tl4645646959%_ + |gerbil/core/contract~Using[1]#_g85003_| + _%hd4651547009%_) + (if (gx#stx-pair? _%tl4651647012%_) + (let ((_%e4651747015%_ + (gx#syntax-e _%tl4651647012%_))) + (let ((_%tl4651947022%_ (let () (declare (not safe)) - (##cdr _%e4645446952%_))) - (_%hd4645546956%_ + (##cdr _%e4651747015%_))) + (_%hd4651847019%_ (let () (declare (not safe)) - (##car _%e4645446952%_)))) - (if (gx#stx-null? _%tl4645646959%_) + (##car _%e4651747015%_)))) + (if (gx#stx-null? _%tl4651947022%_) (if (gx#stx-pair/null? - _%tl4644746929%_) - (let ((_%__splice7846178462%_ + _%tl4651046992%_) + (let ((_%__splice7933679337%_ (gx#syntax-split-splice - _%tl4644746929%_ + _%tl4651046992%_ '0))) - (let ((_%tl4645946965%_ + (let ((_%tl4652247028%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846178462%_ + _%__splice7933679337%_ '1))) - (_%target4645746962%_ + (_%target4652047025%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846178462%_ + _%__splice7933679337%_ '0)))) (if (gx#stx-null? - _%tl4645946965%_) - (_%__match7866778668%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4645146942%_ - _%hd4645246946%_ - _%tl4645346949%_ - _%e4645446952%_ - _%hd4645546956%_ - _%tl4645646959%_ - _%__splice7846178462%_ - _%target4645746962%_ - _%tl4645946965%_) + _%tl4652247028%_) + (_%__match7954279543%_ + _%e4650546975%_ + _%hd4650646979%_ + _%tl4650746982%_ + _%e4650846985%_ + _%hd4650946989%_ + _%tl4651046992%_ + _%e4651146995%_ + _%hd4651246999%_ + _%tl4651347002%_ + _%e4651447005%_ + _%hd4651547009%_ + _%tl4651647012%_ + _%e4651747015%_ + _%hd4651847019%_ + _%tl4651947022%_ + _%__splice7933679337%_ + _%target4652047025%_ + _%tl4652247028%_) (if (gx#stx-pair? - _%hd4644946936%_) - (let ((_%e4651446668%_ + _%hd4651246999%_) + (let ((_%e4657746731%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd4644946936%_))) - (let ((_%tl4651646675%_ + (gx#syntax-e _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (##car _%e4657746731%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4644946936%_) - (let ((_%e4651446668%_ + _%hd4651246999%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4644946936%_))) - (let ((_%tl4651646675%_ + _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%tl4645646959%_) - (let ((_%e4648646800%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%tl4651947022%_) + (let ((_%e4654946863%_ (gx#syntax-e - _%tl4645646959%_))) - (let ((_%tl4648846807%_ + _%tl4651947022%_))) + (let ((_%tl4655146870%_ (let () (declare (not safe)) - (##cdr _%e4648646800%_))) - (_%hd4648746804%_ + (##cdr _%e4654946863%_))) + (_%hd4655046867%_ (let () (declare (not safe)) - (##car _%e4648646800%_)))) + (##car _%e4654946863%_)))) (if (gx#stx-pair? - _%tl4648846807%_) - (let ((_%e4648946810%_ + _%tl4655146870%_) + (let ((_%e4655246873%_ (gx#syntax-e - _%tl4648846807%_))) - (let ((_%tl4649146817%_ + _%tl4655146870%_))) + (let ((_%tl4655446880%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4648946810%_))) - (_%hd4649046814%_ - (let () (declare (not safe)) (##car _%e4648946810%_)))) - (if (gx#stx-null? _%tl4649146817%_) - (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7846578466%_ - (gx#syntax-split-splice _%tl4644746929%_ '0))) - (let ((_%tl4649446823%_ + (##cdr _%e4655246873%_))) + (_%hd4655346877%_ + (let () (declare (not safe)) (##car _%e4655246873%_)))) + (if (gx#stx-null? _%tl4655446880%_) + (if (gx#stx-pair/null? _%tl4651046992%_) + (let ((_%__splice7934079341%_ + (gx#syntax-split-splice _%tl4651046992%_ '0))) + (let ((_%tl4655746886%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '1))) - (_%target4649246820%_ + (##vector-ref _%__splice7934079341%_ '1))) + (_%target4655546883%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846578466%_ + _%__splice7934079341%_ '0)))) - (if (gx#stx-null? _%tl4649446823%_) - (_%__match7872378724%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4645146942%_ - _%hd4645246946%_ - _%tl4645346949%_ - _%e4645446952%_ - _%hd4645546956%_ - _%tl4645646959%_ - _%e4648646800%_ - _%hd4648746804%_ - _%tl4648846807%_ - _%e4648946810%_ - _%hd4649046814%_ - _%tl4649146817%_ - _%__splice7846578466%_ - _%target4649246820%_ - _%tl4649446823%_) - (if (gx#stx-pair? _%hd4644946936%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4644946936%_))) - (let ((_%tl4651646675%_ + (if (gx#stx-null? _%tl4655746886%_) + (_%__match7959879599%_ + _%e4650546975%_ + _%hd4650646979%_ + _%tl4650746982%_ + _%e4650846985%_ + _%hd4650946989%_ + _%tl4651046992%_ + _%e4651146995%_ + _%hd4651246999%_ + _%tl4651347002%_ + _%e4651447005%_ + _%hd4651547009%_ + _%tl4651647012%_ + _%e4651747015%_ + _%hd4651847019%_ + _%tl4651947022%_ + _%e4654946863%_ + _%hd4655046867%_ + _%tl4655146870%_ + _%e4655246873%_ + _%hd4655346877%_ + _%tl4655446880%_ + _%__splice7934079341%_ + _%target4655546883%_ + _%tl4655746886%_) + (if (gx#stx-pair? _%hd4651246999%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4644946936%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4644946936%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4651246999%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4644946936%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4644946936%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4651246999%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7846978470%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4651046992%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4644746929%_ + _%tl4651046992%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4650546975%_ + _%hd4650646979%_ + _%tl4650746982%_ + _%e4650846985%_ + _%hd4650946989%_ + _%tl4651046992%_ + _%e4651146995%_ + _%hd4651246999%_ + _%tl4651347002%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4644946936%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4644946936%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4651246999%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4644746929%_ '0))) - (let ((_%tl4651946681%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4651046992%_) + (let ((_%__splice7934479345%_ + (gx#syntax-split-splice _%tl4651046992%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4650546975%_ + _%hd4650646979%_ + _%tl4650746982%_ + _%e4650846985%_ + _%hd4650946989%_ + _%tl4651046992%_ + _%e4651146995%_ + _%hd4651246999%_ + _%tl4651347002%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4644946936%_) - (let ((_%e4651446668%_ + _%hd4651246999%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4644946936%_))) - (let ((_%tl4651646675%_ + _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4644746929%_) - (let ((_%__splice7846978470%_ + _%tl4651046992%_) + (let ((_%__splice7934479345%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4644746929%_ '0))) - (let ((_%tl4651946681%_ + (gx#syntax-split-splice _%tl4651046992%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##vector-ref _%__splice7934479345%_ '0)))) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4650546975%_ + _%hd4650646979%_ + _%tl4650746982%_ + _%e4650846985%_ + _%hd4650946989%_ + _%tl4651046992%_ + _%e4651146995%_ + _%hd4651246999%_ + _%tl4651347002%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_))))))) - (if (gx#stx-pair? _%hd4644946936%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4644946936%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_))))))) + (if (gx#stx-pair? _%hd4651246999%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4644746929%_) - (let ((_%__splice7846978470%_ + _%tl4651046992%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4644746929%_ + _%tl4651046992%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4650546975%_ + _%hd4650646979%_ + _%tl4650746982%_ + _%e4650846985%_ + _%hd4650946989%_ + _%tl4651046992%_ + _%e4651146995%_ + _%hd4651246999%_ + _%tl4651347002%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4644946936%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4644946936%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4651246999%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7846978470%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4651046992%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4644746929%_ + _%tl4651046992%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4650546975%_ + _%hd4650646979%_ + _%tl4650746982%_ + _%e4650846985%_ + _%hd4650946989%_ + _%tl4651046992%_ + _%e4651146995%_ + _%hd4651246999%_ + _%tl4651347002%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4644946936%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4644946936%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4651246999%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4651246999%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4644746929%_) - (let ((_%__splice7846978470%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4651046992%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4644746929%_ + _%tl4651046992%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4644246912%_ - _%hd4644346916%_ - _%tl4644446919%_ - _%e4644546922%_ - _%hd4644646926%_ - _%tl4644746929%_ - _%e4644846932%_ - _%hd4644946936%_ - _%tl4645046939%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4650546975%_ + _%hd4650646979%_ + _%tl4650746982%_ + _%e4650846985%_ + _%hd4650946989%_ + _%tl4651046992%_ + _%e4651146995%_ + _%hd4651246999%_ + _%tl4651347002%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (_%__match7862378624%_ - (lambda (_%e4641547034%_ - _%hd4641647038%_ - _%tl4641747041%_ - _%e4641847044%_ - _%hd4641947048%_ - _%tl4642047051%_ - _%e4642147054%_ - _%hd4642247058%_ - _%tl4642347061%_ - _%e4642447064%_ - _%hd4642547068%_ - _%tl4642647071%_ - _%e4642747074%_ - _%hd4642847078%_ - _%tl4642947081%_ - _%__splice7845778458%_ - _%target4643047084%_ - _%tl4643247087%_) - (letrec ((_%loop4643347090%_ - (lambda (_%hd4643147094%_ _%body4643747097%_) - (if (gx#stx-pair? _%hd4643147094%_) - (let ((_%e4643447100%_ - (gx#syntax-e _%hd4643147094%_))) - (let ((_%lp-tl4643647107%_ + (_%g4640146610%_)))))) + (_%__match7949879499%_ + (lambda (_%e4647847097%_ + _%hd4647947101%_ + _%tl4648047104%_ + _%e4648147107%_ + _%hd4648247111%_ + _%tl4648347114%_ + _%e4648447117%_ + _%hd4648547121%_ + _%tl4648647124%_ + _%e4648747127%_ + _%hd4648847131%_ + _%tl4648947134%_ + _%e4649047137%_ + _%hd4649147141%_ + _%tl4649247144%_ + _%__splice7933279333%_ + _%target4649347147%_ + _%tl4649547150%_) + (letrec ((_%loop4649647153%_ + (lambda (_%hd4649447157%_ _%body4650047160%_) + (if (gx#stx-pair? _%hd4649447157%_) + (let ((_%e4649747163%_ + (gx#syntax-e _%hd4649447157%_))) + (let ((_%lp-tl4649947170%_ (let () (declare (not safe)) - (##cdr _%e4643447100%_))) - (_%lp-hd4643547104%_ + (##cdr _%e4649747163%_))) + (_%lp-hd4649847167%_ (let () (declare (not safe)) - (##car _%e4643447100%_)))) - (_%loop4643347090%_ - _%lp-tl4643647107%_ - (cons _%lp-hd4643547104%_ - _%body4643747097%_)))) - (let ((_%body4643847110%_ - (reverse _%body4643747097%_))) - (let ((_%L47114%_ _%body4643847110%_) - (_%L47116%_ _%hd4642847078%_) - (_%L47117%_ _%hd4642547068%_) - (_%L47118%_ _%hd4642247058%_)) - (if (and (gx#identifier? _%L47118%_) - (gx#identifier? _%L47116%_) - (gx#identifier? _%L47117%_) + (##car _%e4649747163%_)))) + (_%loop4649647153%_ + _%lp-tl4649947170%_ + (cons _%lp-hd4649847167%_ + _%body4650047160%_)))) + (let ((_%body4650147173%_ + (reverse _%body4650047160%_))) + (let ((_%L47177%_ _%body4650147173%_) + (_%L47179%_ _%hd4649147141%_) + (_%L47180%_ _%hd4648847131%_) + (_%L47181%_ _%hd4648547121%_)) + (if (and (gx#identifier? _%L47181%_) + (gx#identifier? _%L47179%_) + (gx#identifier? _%L47180%_) (or (gx#free-identifier=? - _%L47117%_ + _%L47180%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47117%_ + _%L47180%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47117%_ + _%L47180%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47117%_ + _%L47180%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7845578456%_ - _%L47114%_ - _%L47116%_ - _%L47117%_ - _%L47118%_) - (_%__match7864778648%_ - _%e4641547034%_ - _%hd4641647038%_ - _%tl4641747041%_ - _%e4641847044%_ - _%hd4641947048%_ - _%tl4642047051%_ - _%e4642147054%_ - _%hd4642247058%_ - _%tl4642347061%_ - _%e4642447064%_ - _%hd4642547068%_ - _%tl4642647071%_)))))))) - (_%loop4643347090%_ _%target4643047084%_ '())))) - (_%__match7858378584%_ - (lambda (_%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_ - _%e4639347237%_ - _%hd4639447241%_ - _%tl4639547244%_ - _%e4639647247%_ - _%hd4639747251%_ - _%tl4639847254%_ - _%e4639947257%_ - _%hd4640047261%_ - _%tl4640147264%_ - _%__splice7845378454%_ - _%target4640247267%_ - _%tl4640447270%_) - (letrec ((_%loop4640547273%_ - (lambda (_%hd4640347277%_ _%body4640947280%_) - (if (gx#stx-pair? _%hd4640347277%_) - (let ((_%e4640647283%_ - (gx#syntax-e _%hd4640347277%_))) - (let ((_%lp-tl4640847290%_ + (_%__kont7933079331%_ + _%L47177%_ + _%L47179%_ + _%L47180%_ + _%L47181%_) + (_%__match7952279523%_ + _%e4647847097%_ + _%hd4647947101%_ + _%tl4648047104%_ + _%e4648147107%_ + _%hd4648247111%_ + _%tl4648347114%_ + _%e4648447117%_ + _%hd4648547121%_ + _%tl4648647124%_ + _%e4648747127%_ + _%hd4648847131%_ + _%tl4648947134%_)))))))) + (_%loop4649647153%_ _%target4649347147%_ '())))) + (_%__match7945879459%_ + (lambda (_%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4645047280%_ + _%hd4645147284%_ + _%tl4645247287%_ + _%e4645347290%_ + _%hd4645447294%_ + _%tl4645547297%_ + _%e4645647300%_ + _%hd4645747304%_ + _%tl4645847307%_ + _%e4645947310%_ + _%hd4646047314%_ + _%tl4646147317%_ + _%e4646247320%_ + _%hd4646347324%_ + _%tl4646447327%_ + _%__splice7932879329%_ + _%target4646547330%_ + _%tl4646747333%_) + (letrec ((_%loop4646847336%_ + (lambda (_%hd4646647340%_ _%body4647247343%_) + (if (gx#stx-pair? _%hd4646647340%_) + (let ((_%e4646947346%_ + (gx#syntax-e _%hd4646647340%_))) + (let ((_%lp-tl4647147353%_ (let () (declare (not safe)) - (##cdr _%e4640647283%_))) - (_%lp-hd4640747287%_ + (##cdr _%e4646947346%_))) + (_%lp-hd4647047350%_ (let () (declare (not safe)) - (##car _%e4640647283%_)))) - (_%loop4640547273%_ - _%lp-tl4640847290%_ - (cons _%lp-hd4640747287%_ - _%body4640947280%_)))) - (let ((_%body4641047293%_ - (reverse _%body4640947280%_))) - (let ((_%L47297%_ _%body4641047293%_) - (_%L47299%_ _%hd4640047261%_) - (_%L47300%_ _%hd4639747251%_) - (_%L47301%_ _%hd4639447241%_) - (_%L47302%_ _%hd4638847221%_) - (_%L47303%_ _%hd4638547211%_)) - (if (and (gx#identifier? _%L47303%_) - (gx#identifier? _%L47299%_) - (gx#identifier? _%L47300%_) + (##car _%e4646947346%_)))) + (_%loop4646847336%_ + _%lp-tl4647147353%_ + (cons _%lp-hd4647047350%_ + _%body4647247343%_)))) + (let ((_%body4647347356%_ + (reverse _%body4647247343%_))) + (let ((_%L47360%_ _%body4647347356%_) + (_%L47362%_ _%hd4646347324%_) + (_%L47363%_ _%hd4646047314%_) + (_%L47364%_ _%hd4645747304%_) + (_%L47365%_ _%hd4645147284%_) + (_%L47366%_ _%hd4644847274%_)) + (if (and (gx#identifier? _%L47366%_) + (gx#identifier? _%L47362%_) + (gx#identifier? _%L47363%_) (or (gx#free-identifier=? - _%L47300%_ + _%L47363%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47300%_ + _%L47363%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47300%_ + _%L47363%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47300%_ + _%L47363%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7845178452%_ - _%L47297%_ - _%L47299%_ - _%L47300%_ - _%L47301%_ - _%L47302%_ - _%L47303%_) - (_%__match7864778648%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_)))))))) - (_%loop4640547273%_ _%target4640247267%_ '())))) - (_%__match7855178552%_ - (lambda (_%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_) - (if (gx#identifier? _%hd4639147231%_) + (_%__kont7932679327%_ + _%L47360%_ + _%L47362%_ + _%L47363%_ + _%L47364%_ + _%L47365%_ + _%L47366%_) + (_%__match7952279523%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4645047280%_ + _%hd4645147284%_ + _%tl4645247287%_)))))))) + (_%loop4646847336%_ _%target4646547330%_ '())))) + (_%__match7942679427%_ + (lambda (_%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4645047280%_ + _%hd4645147284%_ + _%tl4645247287%_ + _%e4645347290%_ + _%hd4645447294%_ + _%tl4645547297%_) + (if (gx#identifier? _%hd4645447294%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84019_| - _%hd4639147231%_) - (if (gx#stx-pair? _%tl4639247234%_) - (let ((_%e4639347237%_ - (gx#syntax-e _%tl4639247234%_))) - (let ((_%tl4639547244%_ + |gerbil/core/contract~Using[1]#_g85004_| + _%hd4645447294%_) + (if (gx#stx-pair? _%tl4645547297%_) + (let ((_%e4645647300%_ + (gx#syntax-e _%tl4645547297%_))) + (let ((_%tl4645847307%_ (let () (declare (not safe)) - (##cdr _%e4639347237%_))) - (_%hd4639447241%_ + (##cdr _%e4645647300%_))) + (_%hd4645747304%_ (let () (declare (not safe)) - (##car _%e4639347237%_)))) - (if (gx#stx-pair? _%tl4639547244%_) - (let ((_%e4639647247%_ + (##car _%e4645647300%_)))) + (if (gx#stx-pair? _%tl4645847307%_) + (let ((_%e4645947310%_ (gx#syntax-e - _%tl4639547244%_))) - (let ((_%tl4639847254%_ + _%tl4645847307%_))) + (let ((_%tl4646147317%_ (let () (declare (not safe)) - (##cdr _%e4639647247%_))) - (_%hd4639747251%_ + (##cdr _%e4645947310%_))) + (_%hd4646047314%_ (let () (declare (not safe)) - (##car _%e4639647247%_)))) + (##car _%e4645947310%_)))) (if (gx#stx-pair? - _%tl4639847254%_) - (let ((_%e4639947257%_ + _%tl4646147317%_) + (let ((_%e4646247320%_ (gx#syntax-e - _%tl4639847254%_))) - (let ((_%tl4640147264%_ + _%tl4646147317%_))) + (let ((_%tl4646447327%_ (let () (declare (not safe)) - (##cdr _%e4639947257%_))) - (_%hd4640047261%_ + (##cdr _%e4646247320%_))) + (_%hd4646347324%_ (let () (declare (not safe)) - (##car _%e4639947257%_)))) + (##car _%e4646247320%_)))) (if (gx#stx-null? - _%tl4640147264%_) + _%tl4646447327%_) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7845378454%_ + _%tl4644647267%_) + (let ((_%__splice7932879329%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4638347204%_ '0))) - (let ((_%tl4640447270%_ + (gx#syntax-split-splice _%tl4644647267%_ '0))) + (let ((_%tl4646747333%_ (let () (declare (not safe)) - (##vector-ref _%__splice7845378454%_ '1))) - (_%target4640247267%_ + (##vector-ref _%__splice7932879329%_ '1))) + (_%target4646547330%_ (let () (declare (not safe)) - (##vector-ref _%__splice7845378454%_ '0)))) - (if (gx#stx-null? _%tl4640447270%_) - (_%__match7858378584%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_ - _%e4639347237%_ - _%hd4639447241%_ - _%tl4639547244%_ - _%e4639647247%_ - _%hd4639747251%_ - _%tl4639847254%_ - _%e4639947257%_ - _%hd4640047261%_ - _%tl4640147264%_ - _%__splice7845378454%_ - _%target4640247267%_ - _%tl4640447270%_) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (##vector-ref _%__splice7932879329%_ '0)))) + (if (gx#stx-null? _%tl4646747333%_) + (_%__match7945879459%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4645047280%_ + _%hd4645147284%_ + _%tl4645247287%_ + _%e4645347290%_ + _%hd4645447294%_ + _%tl4645547297%_ + _%e4645647300%_ + _%hd4645747304%_ + _%tl4645847307%_ + _%e4645947310%_ + _%hd4646047314%_ + _%tl4646147317%_ + _%e4646247320%_ + _%hd4646347324%_ + _%tl4646447327%_ + _%__splice7932879329%_ + _%target4646547330%_ + _%tl4646747333%_) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (##car _%e4657746731%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846978470%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4644647267%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd4638847221%_) + _%hd4645147284%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84018_| - _%hd4638847221%_) + |gerbil/core/contract~Using[1]#_g85003_| + _%hd4645147284%_) (if (gx#stx-null? - _%tl4639847254%_) + _%tl4646147317%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl4638347204%_) - (let ((_%__splice7846578466%_ - (gx#syntax-split-splice _%tl4638347204%_ '0))) - (let ((_%tl4649446823%_ + _%tl4644647267%_) + (let ((_%__splice7934079341%_ + (gx#syntax-split-splice _%tl4644647267%_ '0))) + (let ((_%tl4655746886%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '1))) - (_%target4649246820%_ + (##vector-ref _%__splice7934079341%_ '1))) + (_%target4655546883%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846578466%_ + _%__splice7934079341%_ '0)))) - (if (gx#stx-null? _%tl4649446823%_) - (_%__match7872378724%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_ - _%e4639347237%_ - _%hd4639447241%_ - _%tl4639547244%_ - _%e4639647247%_ - _%hd4639747251%_ - _%tl4639847254%_ - _%__splice7846578466%_ - _%target4649246820%_ - _%tl4649446823%_) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (if (gx#stx-null? _%tl4655746886%_) + (_%__match7959879599%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4645047280%_ + _%hd4645147284%_ + _%tl4645247287%_ + _%e4645347290%_ + _%hd4645447294%_ + _%tl4645547297%_ + _%e4645647300%_ + _%hd4645747304%_ + _%tl4645847307%_ + _%e4645947310%_ + _%hd4646047314%_ + _%tl4646147317%_ + _%__splice7934079341%_ + _%target4655546883%_ + _%tl4655746886%_) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846978470%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4644647267%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846978470%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4644647267%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4638347204%_ '0))) - (let ((_%tl4651946681%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7934479345%_ + (gx#syntax-split-splice _%tl4644647267%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846978470%_ + _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4644647267%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##vector-ref _%__splice7934479345%_ '0)))) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-null? _%tl4639247234%_) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7845778458%_ + (_%g4640146610%_)))))) + (if (gx#stx-null? _%tl4645547297%_) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7933279333%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4644647267%_ '0))) - (let ((_%tl4643247087%_ + (let ((_%tl4649547150%_ (let () (declare (not safe)) (##vector-ref - _%__splice7845778458%_ + _%__splice7933279333%_ '1))) - (_%target4643047084%_ + (_%target4649347147%_ (let () (declare (not safe)) (##vector-ref - _%__splice7845778458%_ + _%__splice7933279333%_ '0)))) (if (gx#stx-null? - _%tl4643247087%_) - (_%__match7862378624%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_ - _%__splice7845778458%_ - _%target4643047084%_ - _%tl4643247087%_) + _%tl4649547150%_) + (_%__match7949879499%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4645047280%_ + _%hd4645147284%_ + _%tl4645247287%_ + _%e4645347290%_ + _%hd4645447294%_ + _%tl4645547297%_ + _%__splice7933279333%_ + _%target4649347147%_ + _%tl4649547150%_) (if (gx#stx-pair? - _%hd4638547211%_) - (let ((_%e4651446668%_ + _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ - (let () (declare (not safe)) (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ + (let () (declare (not safe)) (##car _%e4657746731%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846978470%_ + _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4644647267%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (if (gx#stx-null? _%tl4639247234%_) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7845778458%_ + (_%g4640146610%_))))) + (if (gx#stx-null? _%tl4645547297%_) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7933279333%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4644647267%_ '0))) - (let ((_%tl4643247087%_ + (let ((_%tl4649547150%_ (let () (declare (not safe)) (##vector-ref - _%__splice7845778458%_ + _%__splice7933279333%_ '1))) - (_%target4643047084%_ + (_%target4649347147%_ (let () (declare (not safe)) (##vector-ref - _%__splice7845778458%_ + _%__splice7933279333%_ '0)))) - (if (gx#stx-null? _%tl4643247087%_) - (_%__match7862378624%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_ - _%__splice7845778458%_ - _%target4643047084%_ - _%tl4643247087%_) + (if (gx#stx-null? _%tl4649547150%_) + (_%__match7949879499%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4645047280%_ + _%hd4645147284%_ + _%tl4645247287%_ + _%e4645347290%_ + _%hd4645447294%_ + _%tl4645547297%_ + _%__splice7933279333%_ + _%target4649347147%_ + _%tl4649547150%_) (if (gx#stx-pair? - _%hd4638547211%_) - (let ((_%e4651446668%_ + _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#identifier? _%hd4638847221%_) + (_%g4640146610%_)))) + (if (gx#identifier? _%hd4645147284%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84018_| - _%hd4638847221%_) - (if (gx#stx-pair? _%tl4639247234%_) - (let ((_%e4648646800%_ + |gerbil/core/contract~Using[1]#_g85003_| + _%hd4645147284%_) + (if (gx#stx-pair? _%tl4645547297%_) + (let ((_%e4654946863%_ (gx#syntax-e - _%tl4639247234%_))) - (let ((_%tl4648846807%_ + _%tl4645547297%_))) + (let ((_%tl4655146870%_ (let () (declare (not safe)) - (##cdr _%e4648646800%_))) - (_%hd4648746804%_ + (##cdr _%e4654946863%_))) + (_%hd4655046867%_ (let () (declare (not safe)) - (##car _%e4648646800%_)))) + (##car _%e4654946863%_)))) (if (gx#stx-pair? - _%tl4648846807%_) - (let ((_%e4648946810%_ + _%tl4655146870%_) + (let ((_%e4655246873%_ (gx#syntax-e - _%tl4648846807%_))) - (let ((_%tl4649146817%_ + _%tl4655146870%_))) + (let ((_%tl4655446880%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4648946810%_))) - (_%hd4649046814%_ - (let () (declare (not safe)) (##car _%e4648946810%_)))) - (if (gx#stx-null? _%tl4649146817%_) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846578466%_ - (gx#syntax-split-splice _%tl4638347204%_ '0))) - (let ((_%tl4649446823%_ + (##cdr _%e4655246873%_))) + (_%hd4655346877%_ + (let () (declare (not safe)) (##car _%e4655246873%_)))) + (if (gx#stx-null? _%tl4655446880%_) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7934079341%_ + (gx#syntax-split-splice _%tl4644647267%_ '0))) + (let ((_%tl4655746886%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '1))) - (_%target4649246820%_ + (##vector-ref _%__splice7934079341%_ '1))) + (_%target4655546883%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846578466%_ + _%__splice7934079341%_ '0)))) - (if (gx#stx-null? _%tl4649446823%_) - (_%__match7872378724%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_ - _%e4648646800%_ - _%hd4648746804%_ - _%tl4648846807%_ - _%e4648946810%_ - _%hd4649046814%_ - _%tl4649146817%_ - _%__splice7846578466%_ - _%target4649246820%_ - _%tl4649446823%_) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (if (gx#stx-null? _%tl4655746886%_) + (_%__match7959879599%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4645047280%_ + _%hd4645147284%_ + _%tl4645247287%_ + _%e4645347290%_ + _%hd4645447294%_ + _%tl4645547297%_ + _%e4654946863%_ + _%hd4655046867%_ + _%tl4655146870%_ + _%e4655246873%_ + _%hd4655346877%_ + _%tl4655446880%_ + _%__splice7934079341%_ + _%target4655546883%_ + _%tl4655746886%_) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846978470%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4644647267%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4638347204%_ '0))) - (let ((_%tl4651946681%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7934479345%_ + (gx#syntax-split-splice _%tl4644647267%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4638547211%_) - (let ((_%e4651446668%_ + _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846978470%_ + _%tl4644647267%_) + (let ((_%__splice7934479345%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4638347204%_ '0))) - (let ((_%tl4651946681%_ + (gx#syntax-split-splice _%tl4644647267%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##vector-ref _%__splice7934479345%_ '0)))) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846978470%_ + _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4644647267%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##vector-ref _%__splice7934479345%_ '0)))) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846978470%_ + _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4644647267%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-null? _%tl4639247234%_) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7845778458%_ + (_%g4640146610%_)))))) + (if (gx#stx-null? _%tl4645547297%_) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7933279333%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4644647267%_ '0))) - (let ((_%tl4643247087%_ + (let ((_%tl4649547150%_ (let () (declare (not safe)) (##vector-ref - _%__splice7845778458%_ + _%__splice7933279333%_ '1))) - (_%target4643047084%_ + (_%target4649347147%_ (let () (declare (not safe)) (##vector-ref - _%__splice7845778458%_ + _%__splice7933279333%_ '0)))) - (if (gx#stx-null? _%tl4643247087%_) - (_%__match7862378624%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_ - _%__splice7845778458%_ - _%target4643047084%_ - _%tl4643247087%_) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (if (gx#stx-null? _%tl4649547150%_) + (_%__match7949879499%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4645047280%_ + _%hd4645147284%_ + _%tl4645247287%_ + _%e4645347290%_ + _%hd4645447294%_ + _%tl4645547297%_ + _%__splice7933279333%_ + _%target4649347147%_ + _%tl4649547150%_) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#identifier? _%hd4638847221%_) + (_%g4640146610%_)))) + (if (gx#identifier? _%hd4645147284%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84018_| - _%hd4638847221%_) - (if (gx#stx-pair? _%tl4639247234%_) - (let ((_%e4648646800%_ + |gerbil/core/contract~Using[1]#_g85003_| + _%hd4645147284%_) + (if (gx#stx-pair? _%tl4645547297%_) + (let ((_%e4654946863%_ (gx#syntax-e - _%tl4639247234%_))) - (let ((_%tl4648846807%_ + _%tl4645547297%_))) + (let ((_%tl4655146870%_ (let () (declare (not safe)) - (##cdr _%e4648646800%_))) - (_%hd4648746804%_ + (##cdr _%e4654946863%_))) + (_%hd4655046867%_ (let () (declare (not safe)) - (##car _%e4648646800%_)))) + (##car _%e4654946863%_)))) (if (gx#stx-pair? - _%tl4648846807%_) - (let ((_%e4648946810%_ + _%tl4655146870%_) + (let ((_%e4655246873%_ (gx#syntax-e - _%tl4648846807%_))) - (let ((_%tl4649146817%_ + _%tl4655146870%_))) + (let ((_%tl4655446880%_ (let () (declare (not safe)) - (##cdr _%e4648946810%_))) - (_%hd4649046814%_ + (##cdr _%e4655246873%_))) + (_%hd4655346877%_ (let () (declare (not safe)) - (##car _%e4648946810%_)))) + (##car _%e4655246873%_)))) (if (gx#stx-null? - _%tl4649146817%_) + _%tl4655446880%_) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846578466%_ + _%tl4644647267%_) + (let ((_%__splice7934079341%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4638347204%_ '0))) - (let ((_%tl4649446823%_ + (gx#syntax-split-splice _%tl4644647267%_ '0))) + (let ((_%tl4655746886%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '1))) - (_%target4649246820%_ + (##vector-ref _%__splice7934079341%_ '1))) + (_%target4655546883%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '0)))) - (if (gx#stx-null? _%tl4649446823%_) - (_%__match7872378724%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4638747217%_ - _%hd4638847221%_ - _%tl4638947224%_ - _%e4639047227%_ - _%hd4639147231%_ - _%tl4639247234%_ - _%e4648646800%_ - _%hd4648746804%_ - _%tl4648846807%_ - _%e4648946810%_ - _%hd4649046814%_ - _%tl4649146817%_ - _%__splice7846578466%_ - _%target4649246820%_ - _%tl4649446823%_) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (##vector-ref _%__splice7934079341%_ '0)))) + (if (gx#stx-null? _%tl4655746886%_) + (_%__match7959879599%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4645047280%_ + _%hd4645147284%_ + _%tl4645247287%_ + _%e4645347290%_ + _%hd4645447294%_ + _%tl4645547297%_ + _%e4654946863%_ + _%hd4655046867%_ + _%tl4655146870%_ + _%e4655246873%_ + _%hd4655346877%_ + _%tl4655446880%_ + _%__splice7934079341%_ + _%target4655546883%_ + _%tl4655746886%_) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (##car _%e4657746731%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846978470%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4644647267%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4638547211%_) - (let ((_%e4651446668%_ + _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ - (let () (declare (not safe)) (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4638347204%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4638347204%_ '0))) - (let ((_%tl4651946681%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ + (let () (declare (not safe)) (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4644647267%_) + (let ((_%__splice7934479345%_ + (gx#syntax-split-splice _%tl4644647267%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (##vector-ref _%__splice7934479345%_ '0)))) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846978470%_ + _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4644647267%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##vector-ref _%__splice7934479345%_ '0)))) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4638547211%_))) - (let ((_%tl4651646675%_ + _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846978470%_ + _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4644647267%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4638547211%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4638547211%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4644847274%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4644847274%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4638347204%_) - (let ((_%__splice7846978470%_ + _%tl4644647267%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4638347204%_ + _%tl4644647267%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4637847187%_ - _%hd4637947191%_ - _%tl4638047194%_ - _%e4638147197%_ - _%hd4638247201%_ - _%tl4638347204%_ - _%e4638447207%_ - _%hd4638547211%_ - _%tl4638647214%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4644147250%_ + _%hd4644247254%_ + _%tl4644347257%_ + _%e4644447260%_ + _%hd4644547264%_ + _%tl4644647267%_ + _%e4644747270%_ + _%hd4644847274%_ + _%tl4644947277%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))))))) - (_%__match7852178522%_ - (lambda (_%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4635447393%_ - _%hd4635547397%_ - _%tl4635647400%_ - _%e4635747403%_ - _%hd4635847407%_ - _%tl4635947410%_ - _%e4636047413%_ - _%hd4636147417%_ - _%tl4636247420%_ - _%__splice7844978450%_ - _%target4636347423%_ - _%tl4636547426%_) - (letrec ((_%loop4636647429%_ - (lambda (_%hd4636447433%_ _%body4637047436%_) - (if (gx#stx-pair? _%hd4636447433%_) - (let ((_%e4636747439%_ - (gx#syntax-e _%hd4636447433%_))) - (let ((_%lp-tl4636947446%_ + (_%g4640146610%_)))))))) + (_%__match7939679397%_ + (lambda (_%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4641747456%_ + _%hd4641847460%_ + _%tl4641947463%_ + _%e4642047466%_ + _%hd4642147470%_ + _%tl4642247473%_ + _%e4642347476%_ + _%hd4642447480%_ + _%tl4642547483%_ + _%__splice7932479325%_ + _%target4642647486%_ + _%tl4642847489%_) + (letrec ((_%loop4642947492%_ + (lambda (_%hd4642747496%_ _%body4643347499%_) + (if (gx#stx-pair? _%hd4642747496%_) + (let ((_%e4643047502%_ + (gx#syntax-e _%hd4642747496%_))) + (let ((_%lp-tl4643247509%_ (let () (declare (not safe)) - (##cdr _%e4636747439%_))) - (_%lp-hd4636847443%_ + (##cdr _%e4643047502%_))) + (_%lp-hd4643147506%_ (let () (declare (not safe)) - (##car _%e4636747439%_)))) - (_%loop4636647429%_ - _%lp-tl4636947446%_ - (cons _%lp-hd4636847443%_ - _%body4637047436%_)))) - (let ((_%body4637147449%_ - (reverse _%body4637047436%_))) - (let ((_%L47453%_ _%body4637147449%_) - (_%L47455%_ _%hd4636147417%_) - (_%L47456%_ _%hd4635847407%_) - (_%L47457%_ _%hd4635547397%_) - (_%L47458%_ _%hd4635247387%_)) - (if (and (gx#identifier? _%L47458%_) - (gx#identifier? _%L47456%_) + (##car _%e4643047502%_)))) + (_%loop4642947492%_ + _%lp-tl4643247509%_ + (cons _%lp-hd4643147506%_ + _%body4643347499%_)))) + (let ((_%body4643447512%_ + (reverse _%body4643347499%_))) + (let ((_%L47516%_ _%body4643447512%_) + (_%L47518%_ _%hd4642447480%_) + (_%L47519%_ _%hd4642147470%_) + (_%L47520%_ _%hd4641847460%_) + (_%L47521%_ _%hd4641547450%_)) + (if (and (gx#identifier? _%L47521%_) + (gx#identifier? _%L47519%_) (or (gx#free-identifier=? - _%L47456%_ + _%L47519%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47456%_ + _%L47519%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47456%_ + _%L47519%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47456%_ + _%L47519%_ (gx#datum->syntax '#f ':~)) (gx#free-identifier=? - _%L47456%_ + _%L47519%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7844778448%_ - _%L47453%_ - _%L47455%_ - _%L47456%_ - _%L47457%_ - _%L47458%_) - (_%__match7855178552%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4635447393%_ - _%hd4635547397%_ - _%tl4635647400%_ - _%e4635747403%_ - _%hd4635847407%_ - _%tl4635947410%_)))))))) - (_%loop4636647429%_ _%target4636347423%_ '()))))) - (if (gx#stx-pair? _%__stx7844478445%_) - (let ((_%e4634547363%_ (gx#syntax-e _%__stx7844478445%_))) - (let ((_%tl4634747370%_ + (_%__kont7932279323%_ + _%L47516%_ + _%L47518%_ + _%L47519%_ + _%L47520%_ + _%L47521%_) + (_%__match7942679427%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4641747456%_ + _%hd4641847460%_ + _%tl4641947463%_ + _%e4642047466%_ + _%hd4642147470%_ + _%tl4642247473%_)))))))) + (_%loop4642947492%_ _%target4642647486%_ '()))))) + (if (gx#stx-pair? _%__stx7931979320%_) + (let ((_%e4640847426%_ (gx#syntax-e _%__stx7931979320%_))) + (let ((_%tl4641047433%_ (let () (declare (not safe)) - (##cdr _%e4634547363%_))) - (_%hd4634647367%_ + (##cdr _%e4640847426%_))) + (_%hd4640947430%_ (let () (declare (not safe)) - (##car _%e4634547363%_)))) - (if (gx#stx-pair? _%tl4634747370%_) - (let ((_%e4634847373%_ - (gx#syntax-e _%tl4634747370%_))) - (let ((_%tl4635047380%_ + (##car _%e4640847426%_)))) + (if (gx#stx-pair? _%tl4641047433%_) + (let ((_%e4641147436%_ + (gx#syntax-e _%tl4641047433%_))) + (let ((_%tl4641347443%_ (let () (declare (not safe)) - (##cdr _%e4634847373%_))) - (_%hd4634947377%_ + (##cdr _%e4641147436%_))) + (_%hd4641247440%_ (let () (declare (not safe)) - (##car _%e4634847373%_)))) - (if (gx#stx-pair? _%hd4634947377%_) - (let ((_%e4635147383%_ - (gx#syntax-e _%hd4634947377%_))) - (let ((_%tl4635347390%_ + (##car _%e4641147436%_)))) + (if (gx#stx-pair? _%hd4641247440%_) + (let ((_%e4641447446%_ + (gx#syntax-e _%hd4641247440%_))) + (let ((_%tl4641647453%_ (let () (declare (not safe)) - (##cdr _%e4635147383%_))) - (_%hd4635247387%_ + (##cdr _%e4641447446%_))) + (_%hd4641547450%_ (let () (declare (not safe)) - (##car _%e4635147383%_)))) - (if (gx#stx-pair? _%tl4635347390%_) - (let ((_%e4635447393%_ + (##car _%e4641447446%_)))) + (if (gx#stx-pair? _%tl4641647453%_) + (let ((_%e4641747456%_ (gx#syntax-e - _%tl4635347390%_))) - (let ((_%tl4635647400%_ + _%tl4641647453%_))) + (let ((_%tl4641947463%_ (let () (declare (not safe)) - (##cdr _%e4635447393%_))) - (_%hd4635547397%_ + (##cdr _%e4641747456%_))) + (_%hd4641847460%_ (let () (declare (not safe)) - (##car _%e4635447393%_)))) + (##car _%e4641747456%_)))) (if (gx#stx-pair? - _%tl4635647400%_) - (let ((_%e4635747403%_ + _%tl4641947463%_) + (let ((_%e4642047466%_ (gx#syntax-e - _%tl4635647400%_))) - (let ((_%tl4635947410%_ + _%tl4641947463%_))) + (let ((_%tl4642247473%_ (let () (declare (not safe)) - (##cdr _%e4635747403%_))) - (_%hd4635847407%_ + (##cdr _%e4642047466%_))) + (_%hd4642147470%_ (let () (declare (not safe)) - (##car _%e4635747403%_)))) + (##car _%e4642047466%_)))) (if (gx#stx-pair? - _%tl4635947410%_) - (let ((_%e4636047413%_ + _%tl4642247473%_) + (let ((_%e4642347476%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4635947410%_))) - (let ((_%tl4636247420%_ + (gx#syntax-e _%tl4642247473%_))) + (let ((_%tl4642547483%_ (let () (declare (not safe)) - (##cdr _%e4636047413%_))) - (_%hd4636147417%_ + (##cdr _%e4642347476%_))) + (_%hd4642447480%_ (let () (declare (not safe)) - (##car _%e4636047413%_)))) - (if (gx#stx-null? _%tl4636247420%_) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7844978450%_ + (##car _%e4642347476%_)))) + (if (gx#stx-null? _%tl4642547483%_) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7932479325%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4641347443%_ '0))) - (let ((_%tl4636547426%_ + (let ((_%tl4642847489%_ (let () (declare (not safe)) (##vector-ref - _%__splice7844978450%_ + _%__splice7932479325%_ '1))) - (_%target4636347423%_ + (_%target4642647486%_ (let () (declare (not safe)) (##vector-ref - _%__splice7844978450%_ + _%__splice7932479325%_ '0)))) - (if (gx#stx-null? _%tl4636547426%_) - (_%__match7852178522%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4635447393%_ - _%hd4635547397%_ - _%tl4635647400%_ - _%e4635747403%_ - _%hd4635847407%_ - _%tl4635947410%_ - _%e4636047413%_ - _%hd4636147417%_ - _%tl4636247420%_ - _%__splice7844978450%_ - _%target4636347423%_ - _%tl4636547426%_) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ + (if (gx#stx-null? _%tl4642847489%_) + (_%__match7939679397%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4641747456%_ + _%hd4641847460%_ + _%tl4641947463%_ + _%e4642047466%_ + _%hd4642147470%_ + _%tl4642247473%_ + _%e4642347476%_ + _%hd4642447480%_ + _%tl4642547483%_ + _%__splice7932479325%_ + _%target4642647486%_ + _%tl4642847489%_) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#identifier? _%hd4635847407%_) + (_%g4640146610%_)))) + (if (gx#identifier? _%hd4642147470%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84019_| - _%hd4635847407%_) - (if (gx#stx-pair? _%tl4636247420%_) - (let ((_%e4639647247%_ - (gx#syntax-e _%tl4636247420%_))) - (let ((_%tl4639847254%_ + |gerbil/core/contract~Using[1]#_g85004_| + _%hd4642147470%_) + (if (gx#stx-pair? _%tl4642547483%_) + (let ((_%e4645947310%_ + (gx#syntax-e _%tl4642547483%_))) + (let ((_%tl4646147317%_ (let () (declare (not safe)) - (##cdr _%e4639647247%_))) - (_%hd4639747251%_ + (##cdr _%e4645947310%_))) + (_%hd4646047314%_ (let () (declare (not safe)) - (##car _%e4639647247%_)))) - (if (gx#stx-pair? _%tl4639847254%_) - (let ((_%e4639947257%_ + (##car _%e4645947310%_)))) + (if (gx#stx-pair? _%tl4646147317%_) + (let ((_%e4646247320%_ (gx#syntax-e - _%tl4639847254%_))) - (let ((_%tl4640147264%_ + _%tl4646147317%_))) + (let ((_%tl4646447327%_ (let () (declare (not safe)) - (##cdr _%e4639947257%_))) - (_%hd4640047261%_ + (##cdr _%e4646247320%_))) + (_%hd4646347324%_ (let () (declare (not safe)) - (##car _%e4639947257%_)))) + (##car _%e4646247320%_)))) (if (gx#stx-null? - _%tl4640147264%_) + _%tl4646447327%_) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7845378454%_ + _%tl4641347443%_) + (let ((_%__splice7932879329%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4640447270%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4646747333%_ (let () (declare (not safe)) - (##vector-ref _%__splice7845378454%_ '1))) - (_%target4640247267%_ + (##vector-ref _%__splice7932879329%_ '1))) + (_%target4646547330%_ (let () (declare (not safe)) - (##vector-ref _%__splice7845378454%_ '0)))) - (if (gx#stx-null? _%tl4640447270%_) - (_%__match7858378584%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4635447393%_ - _%hd4635547397%_ - _%tl4635647400%_ - _%e4635747403%_ - _%hd4635847407%_ - _%tl4635947410%_ - _%e4636047413%_ - _%hd4636147417%_ - _%tl4636247420%_ - _%e4639647247%_ - _%hd4639747251%_ - _%tl4639847254%_ - _%e4639947257%_ - _%hd4640047261%_ - _%tl4640147264%_ - _%__splice7845378454%_ - _%target4640247267%_ - _%tl4640447270%_) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (##vector-ref _%__splice7932879329%_ '0)))) + (if (gx#stx-null? _%tl4646747333%_) + (_%__match7945879459%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4641747456%_ + _%hd4641847460%_ + _%tl4641947463%_ + _%e4642047466%_ + _%hd4642147470%_ + _%tl4642247473%_ + _%e4642347476%_ + _%hd4642447480%_ + _%tl4642547483%_ + _%e4645947310%_ + _%hd4646047314%_ + _%tl4646147317%_ + _%e4646247320%_ + _%hd4646347324%_ + _%tl4646447327%_ + _%__splice7932879329%_ + _%target4646547330%_ + _%tl4646747333%_) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (##car _%e4657746731%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4651946681%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7934479345%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd4635547397%_) + _%hd4641847460%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84018_| - _%hd4635547397%_) + |gerbil/core/contract~Using[1]#_g85003_| + _%hd4641847460%_) (if (gx#stx-null? - _%tl4639847254%_) + _%tl4646147317%_) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846578466%_ + _%tl4641347443%_) + (let ((_%__splice7934079341%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4649446823%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4655746886%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '1))) - (_%target4649246820%_ + (##vector-ref _%__splice7934079341%_ '1))) + (_%target4655546883%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '0)))) - (if (gx#stx-null? _%tl4649446823%_) - (_%__match7872378724%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4635447393%_ - _%hd4635547397%_ - _%tl4635647400%_ - _%e4635747403%_ - _%hd4635847407%_ - _%tl4635947410%_ - _%e4636047413%_ - _%hd4636147417%_ - _%tl4636247420%_ - _%e4639647247%_ - _%hd4639747251%_ - _%tl4639847254%_ - _%__splice7846578466%_ - _%target4649246820%_ - _%tl4649446823%_) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (##vector-ref _%__splice7934079341%_ '0)))) + (if (gx#stx-null? _%tl4655746886%_) + (_%__match7959879599%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4641747456%_ + _%hd4641847460%_ + _%tl4641947463%_ + _%e4642047466%_ + _%hd4642147470%_ + _%tl4642247473%_ + _%e4642347476%_ + _%hd4642447480%_ + _%tl4642547483%_ + _%e4645947310%_ + _%hd4646047314%_ + _%tl4646147317%_ + _%__splice7934079341%_ + _%target4655546883%_ + _%tl4655746886%_) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (##car _%e4657746731%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7846978470%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4641347443%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4651946681%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7934479345%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4635247387%_) - (let ((_%e4651446668%_ + _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ - (let () (declare (not safe)) (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4651946681%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ + (let () (declare (not safe)) (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7934479345%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (##vector-ref _%__splice7934479345%_ '0)))) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846978470%_ + _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4641347443%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#identifier? _%hd4635547397%_) + (_%g4640146610%_)))) + (if (gx#identifier? _%hd4641847460%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84018_| - _%hd4635547397%_) - (if (gx#stx-pair? _%tl4636247420%_) - (let ((_%e4648946810%_ + |gerbil/core/contract~Using[1]#_g85003_| + _%hd4641847460%_) + (if (gx#stx-pair? _%tl4642547483%_) + (let ((_%e4655246873%_ (gx#syntax-e - _%tl4636247420%_))) - (let ((_%tl4649146817%_ + _%tl4642547483%_))) + (let ((_%tl4655446880%_ (let () (declare (not safe)) - (##cdr _%e4648946810%_))) - (_%hd4649046814%_ + (##cdr _%e4655246873%_))) + (_%hd4655346877%_ (let () (declare (not safe)) - (##car _%e4648946810%_)))) + (##car _%e4655246873%_)))) (if (gx#stx-null? - _%tl4649146817%_) + _%tl4655446880%_) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846578466%_ + _%tl4641347443%_) + (let ((_%__splice7934079341%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4649446823%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4655746886%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '1))) - (_%target4649246820%_ + (##vector-ref _%__splice7934079341%_ '1))) + (_%target4655546883%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '0)))) - (if (gx#stx-null? _%tl4649446823%_) - (_%__match7872378724%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4635447393%_ - _%hd4635547397%_ - _%tl4635647400%_ - _%e4635747403%_ - _%hd4635847407%_ - _%tl4635947410%_ - _%e4636047413%_ - _%hd4636147417%_ - _%tl4636247420%_ - _%e4648946810%_ - _%hd4649046814%_ - _%tl4649146817%_ - _%__splice7846578466%_ - _%target4649246820%_ - _%tl4649446823%_) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (##vector-ref _%__splice7934079341%_ '0)))) + (if (gx#stx-null? _%tl4655746886%_) + (_%__match7959879599%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4641747456%_ + _%hd4641847460%_ + _%tl4641947463%_ + _%e4642047466%_ + _%hd4642147470%_ + _%tl4642247473%_ + _%e4642347476%_ + _%hd4642447480%_ + _%tl4642547483%_ + _%e4655246873%_ + _%hd4655346877%_ + _%tl4655446880%_ + _%__splice7934079341%_ + _%target4655546883%_ + _%tl4655746886%_) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (##car _%e4657746731%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4651946681%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7934479345%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4635247387%_) - (let ((_%e4651446668%_ + _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846978470%_ + _%tl4641347443%_) + (let ((_%__splice7934479345%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4651946681%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##vector-ref _%__splice7934479345%_ '0)))) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846978470%_ + _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4641347443%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##vector-ref _%__splice7934479345%_ '0)))) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846978470%_ + _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4641347443%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (if (gx#identifier? _%hd4635547397%_) + (_%g4640146610%_))))) + (if (gx#identifier? _%hd4641847460%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84018_| - _%hd4635547397%_) - (if (gx#stx-pair? _%tl4636247420%_) - (let ((_%e4648946810%_ + |gerbil/core/contract~Using[1]#_g85003_| + _%hd4641847460%_) + (if (gx#stx-pair? _%tl4642547483%_) + (let ((_%e4655246873%_ (gx#syntax-e - _%tl4636247420%_))) - (let ((_%tl4649146817%_ + _%tl4642547483%_))) + (let ((_%tl4655446880%_ (let () (declare (not safe)) - (##cdr _%e4648946810%_))) - (_%hd4649046814%_ + (##cdr _%e4655246873%_))) + (_%hd4655346877%_ (let () (declare (not safe)) - (##car _%e4648946810%_)))) + (##car _%e4655246873%_)))) (if (gx#stx-null? - _%tl4649146817%_) + _%tl4655446880%_) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846578466%_ + _%tl4641347443%_) + (let ((_%__splice7934079341%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4641347443%_ '0))) - (let ((_%tl4649446823%_ + (let ((_%tl4655746886%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '1))) - (_%target4649246820%_ + (##vector-ref _%__splice7934079341%_ '1))) + (_%target4655546883%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846578466%_ '0)))) - (if (gx#stx-null? _%tl4649446823%_) - (_%__match7872378724%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4635447393%_ - _%hd4635547397%_ - _%tl4635647400%_ - _%e4635747403%_ - _%hd4635847407%_ - _%tl4635947410%_ - _%e4636047413%_ - _%hd4636147417%_ - _%tl4636247420%_ - _%e4648946810%_ - _%hd4649046814%_ - _%tl4649146817%_ - _%__splice7846578466%_ - _%target4649246820%_ - _%tl4649446823%_) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (##vector-ref _%__splice7934079341%_ '0)))) + (if (gx#stx-null? _%tl4655746886%_) + (_%__match7959879599%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4641747456%_ + _%hd4641847460%_ + _%tl4641947463%_ + _%e4642047466%_ + _%hd4642147470%_ + _%tl4642247473%_ + _%e4642347476%_ + _%hd4642447480%_ + _%tl4642547483%_ + _%e4655246873%_ + _%hd4655346877%_ + _%tl4655446880%_ + _%__splice7934079341%_ + _%target4655546883%_ + _%tl4655746886%_) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (##car _%e4657746731%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) + (##car _%e4657746731%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4635247387%_) - (let ((_%e4651446668%_ + _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ - (let () (declare (not safe)) (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4651946681%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ + (let () (declare (not safe)) (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7934479345%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (##vector-ref _%__splice7934479345%_ '0)))) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846978470%_ + _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4641347443%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##vector-ref _%__splice7934479345%_ '0)))) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846978470%_ + _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4641347443%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846978470%_ + _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4641347443%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) (if (gx#stx-null? - _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_)))))))) - (if (gx#stx-null? _%tl4635947410%_) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7845778458%_ - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4643247087%_ + (_%g4640146610%_)))))))) + (if (gx#stx-null? _%tl4642247473%_) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7933279333%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4649547150%_ (let () (declare (not safe)) - (##vector-ref _%__splice7845778458%_ '1))) - (_%target4643047084%_ + (##vector-ref _%__splice7933279333%_ '1))) + (_%target4649347147%_ (let () (declare (not safe)) (##vector-ref - _%__splice7845778458%_ + _%__splice7933279333%_ '0)))) - (if (gx#stx-null? _%tl4643247087%_) - (_%__match7862378624%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4635447393%_ - _%hd4635547397%_ - _%tl4635647400%_ - _%e4635747403%_ - _%hd4635847407%_ - _%tl4635947410%_ - _%__splice7845778458%_ - _%target4643047084%_ - _%tl4643247087%_) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (if (gx#stx-null? _%tl4649547150%_) + (_%__match7949879499%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4641747456%_ + _%hd4641847460%_ + _%tl4641947463%_ + _%e4642047466%_ + _%hd4642147470%_ + _%tl4642247473%_ + _%__splice7933279333%_ + _%target4649347147%_ + _%tl4649547150%_) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) + (_%g4640146610%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (let () (declare (not safe)) - (_%g4633846547%_)))) - (let () (declare (not safe)) (_%g4633846547%_)))) - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ - (gx#syntax-e _%hd4635247387%_))) - (let ((_%tl4651646675%_ + (_%g4640146610%_)))) + (let () (declare (not safe)) (_%g4640146610%_)))) + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ + (gx#syntax-e _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7846978470%_ + (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4641347443%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '1))) - (_%target4651746678%_ + (_%target4658046741%_ (let () (declare (not safe)) (##vector-ref - _%__splice7846978470%_ + _%__splice7934479345%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4635247387%_) - (let ((_%e4651446668%_ + _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ - (let () (declare (not safe)) (##car _%e4651446668%_)))) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7846978470%_ - (gx#syntax-split-splice _%tl4635047380%_ '0))) - (let ((_%tl4651946681%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ + (let () (declare (not safe)) (##car _%e4657746731%_)))) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7934479345%_ + (gx#syntax-split-splice _%tl4641347443%_ '0))) + (let ((_%tl4658246744%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) + (##vector-ref _%__splice7934479345%_ '0)))) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) (let () (declare (not safe)) - (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))) + (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4635247387%_) - (let ((_%e4651446668%_ + (if (gx#stx-pair? _%hd4641547450%_) + (let ((_%e4657746731%_ (gx#syntax-e - _%hd4635247387%_))) - (let ((_%tl4651646675%_ + _%hd4641547450%_))) + (let ((_%tl4657946738%_ (let () (declare (not safe)) - (##cdr _%e4651446668%_))) - (_%hd4651546672%_ + (##cdr _%e4657746731%_))) + (_%hd4657846735%_ (let () (declare (not safe)) - (##car _%e4651446668%_)))) + (##car _%e4657746731%_)))) (if (gx#stx-pair/null? - _%tl4635047380%_) - (let ((_%__splice7846978470%_ + _%tl4641347443%_) + (let ((_%__splice7934479345%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4641347443%_ '0))) - (let ((_%tl4651946681%_ + (let ((_%tl4658246744%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '1))) - (_%target4651746678%_ + (##vector-ref _%__splice7934479345%_ '1))) + (_%target4658046741%_ (let () (declare (not safe)) - (##vector-ref _%__splice7846978470%_ '0)))) - (if (gx#stx-null? _%tl4651946681%_) - (_%__match7875578756%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%e4635147383%_ - _%hd4635247387%_ - _%tl4635347390%_ - _%e4651446668%_ - _%hd4651546672%_ - _%tl4651646675%_ - _%__splice7846978470%_ - _%target4651746678%_ - _%tl4651946681%_) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_))))) + (##vector-ref _%__splice7934479345%_ '0)))) + (if (gx#stx-null? _%tl4658246744%_) + (_%__match7963079631%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%e4641447446%_ + _%hd4641547450%_ + _%tl4641647453%_ + _%e4657746731%_ + _%hd4657846735%_ + _%tl4657946738%_ + _%__splice7934479345%_ + _%target4658046741%_ + _%tl4658246744%_) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4633846547%_)))))) - (if (gx#stx-null? _%hd4634947377%_) - (if (gx#stx-pair/null? _%tl4635047380%_) - (let ((_%__splice7847378474%_ + (_%g4640146610%_)))))) + (if (gx#stx-null? _%hd4641247440%_) + (if (gx#stx-pair/null? _%tl4641347443%_) + (let ((_%__splice7934879349%_ (gx#syntax-split-splice - _%tl4635047380%_ + _%tl4641347443%_ '0))) - (let ((_%tl4653546577%_ + (let ((_%tl4659846640%_ (let () (declare (not safe)) (##vector-ref - _%__splice7847378474%_ + _%__splice7934879349%_ '1))) - (_%target4653346574%_ + (_%target4659646637%_ (let () (declare (not safe)) (##vector-ref - _%__splice7847378474%_ + _%__splice7934879349%_ '0)))) (if (gx#stx-null? - _%tl4653546577%_) - (_%__match7877778778%_ - _%e4634547363%_ - _%hd4634647367%_ - _%tl4634747370%_ - _%e4634847373%_ - _%hd4634947377%_ - _%tl4635047380%_ - _%__splice7847378474%_ - _%target4653346574%_ - _%tl4653546577%_) + _%tl4659846640%_) + (_%__match7965279653%_ + _%e4640847426%_ + _%hd4640947430%_ + _%tl4641047433%_ + _%e4641147436%_ + _%hd4641247440%_ + _%tl4641347443%_ + _%__splice7934879349%_ + _%target4659646637%_ + _%tl4659846640%_) (let () (declare (not safe)) - (_%g4633846547%_))))) + (_%g4640146610%_))))) (let () (declare (not safe)) - (_%g4633846547%_))) + (_%g4640146610%_))) (let () (declare (not safe)) - (_%g4633846547%_)))))) - (let () (declare (not safe)) (_%g4633846547%_))))) - (let () (declare (not safe)) (_%g4633846547%_)))))))) + (_%g4640146610%_)))))) + (let () (declare (not safe)) (_%g4640146610%_))))) + (let () (declare (not safe)) (_%g4640146610%_)))))))) (define |gerbil/core/contract~Using[:0:]#with-contract| - (lambda (_%$stx47521%_) - (let* ((_%g4752547559%_ - (lambda (_%g4752647555%_) + (lambda (_%$stx47584%_) + (let* ((_%g4758847622%_ + (lambda (_%g4758947618%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4752647555%_))) - (_%g4752447682%_ - (lambda (_%g4752647563%_) - (if (gx#stx-pair? _%g4752647563%_) - (let ((_%e4753047566%_ (gx#syntax-e _%g4752647563%_))) - (let ((_%hd4753147570%_ + _%g4758947618%_))) + (_%g4758747745%_ + (lambda (_%g4758947626%_) + (if (gx#stx-pair? _%g4758947626%_) + (let ((_%e4759347629%_ (gx#syntax-e _%g4758947626%_))) + (let ((_%hd4759447633%_ (let () (declare (not safe)) - (##car _%e4753047566%_))) - (_%tl4753247573%_ + (##car _%e4759347629%_))) + (_%tl4759547636%_ (let () (declare (not safe)) - (##cdr _%e4753047566%_)))) - (if (gx#stx-pair? _%tl4753247573%_) - (let ((_%e4753347576%_ - (gx#syntax-e _%tl4753247573%_))) - (let ((_%hd4753447580%_ + (##cdr _%e4759347629%_)))) + (if (gx#stx-pair? _%tl4759547636%_) + (let ((_%e4759647639%_ + (gx#syntax-e _%tl4759547636%_))) + (let ((_%hd4759747643%_ (let () (declare (not safe)) - (##car _%e4753347576%_))) - (_%tl4753547583%_ + (##car _%e4759647639%_))) + (_%tl4759847646%_ (let () (declare (not safe)) - (##cdr _%e4753347576%_)))) - (if (gx#stx-pair? _%hd4753447580%_) - (let ((_%e4753647586%_ - (gx#syntax-e _%hd4753447580%_))) - (let ((_%hd4753747590%_ + (##cdr _%e4759647639%_)))) + (if (gx#stx-pair? _%hd4759747643%_) + (let ((_%e4759947649%_ + (gx#syntax-e _%hd4759747643%_))) + (let ((_%hd4760047653%_ (let () (declare (not safe)) - (##car _%e4753647586%_))) - (_%tl4753847593%_ + (##car _%e4759947649%_))) + (_%tl4760147656%_ (let () (declare (not safe)) - (##cdr _%e4753647586%_)))) - (if (gx#stx-pair? _%tl4753847593%_) - (let ((_%e4753947596%_ + (##cdr _%e4759947649%_)))) + (if (gx#stx-pair? _%tl4760147656%_) + (let ((_%e4760247659%_ (gx#syntax-e - _%tl4753847593%_))) - (let ((_%hd4754047600%_ + _%tl4760147656%_))) + (let ((_%hd4760347663%_ (let () (declare (not safe)) - (##car _%e4753947596%_))) - (_%tl4754147603%_ + (##car _%e4760247659%_))) + (_%tl4760447666%_ (let () (declare (not safe)) - (##cdr _%e4753947596%_)))) + (##cdr _%e4760247659%_)))) (if (gx#identifier? - _%hd4754047600%_) + _%hd4760347663%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84020_| - _%hd4754047600%_) + |gerbil/core/contract~Using[1]#_g85005_| + _%hd4760347663%_) (if (gx#stx-pair? - _%tl4754147603%_) - (let ((_%e4754247606%_ + _%tl4760447666%_) + (let ((_%e4760547669%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4754147603%_))) - (let ((_%hd4754347610%_ + (gx#syntax-e _%tl4760447666%_))) + (let ((_%hd4760647673%_ (let () (declare (not safe)) - (##car _%e4754247606%_))) - (_%tl4754447613%_ + (##car _%e4760547669%_))) + (_%tl4760747676%_ (let () (declare (not safe)) - (##cdr _%e4754247606%_)))) - (if (gx#stx-null? _%tl4754447613%_) - (if (gx#stx-pair/null? _%tl4753547583%_) - (let ((_g84021_ + (##cdr _%e4760547669%_)))) + (if (gx#stx-null? _%tl4760747676%_) + (if (gx#stx-pair/null? _%tl4759847646%_) + (let ((_g85006_ (gx#syntax-split-splice - _%tl4753547583%_ + _%tl4759847646%_ '0))) (begin - (let ((_g84022_ + (let ((_g85007_ (let () (declare (not safe)) - (if (##values? _g84021_) - (##vector-length _g84021_) + (if (##values? _g85006_) + (##values-length _g85006_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84022_ 2))) + (##fx= _g85007_ 2))) (error "Context expects 2 values" - _g84022_))) - (let ((_%target4754547616%_ + _g85007_))) + (let ((_%target4760847679%_ (let () (declare (not safe)) - (##vector-ref _g84021_ 0))) - (_%tl4754747619%_ + (##values-ref _g85006_ 0))) + (_%tl4761047682%_ (let () (declare (not safe)) - (##vector-ref _g84021_ 1)))) - (if (gx#stx-null? _%tl4754747619%_) - (letrec ((_%loop4754847622%_ - (lambda (_%hd4754647626%_ - _%body4755247629%_) + (##values-ref _g85006_ 1)))) + (if (gx#stx-null? _%tl4761047682%_) + (letrec ((_%loop4761147685%_ + (lambda (_%hd4760947689%_ + _%body4761547692%_) (if (gx#stx-pair? - _%hd4754647626%_) - (let ((_%e4754947632%_ + _%hd4760947689%_) + (let ((_%e4761247695%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd4754647626%_))) - (let ((_%lp-hd4755047636%_ + (gx#syntax-e _%hd4760947689%_))) + (let ((_%lp-hd4761347699%_ (let () (declare (not safe)) - (##car _%e4754947632%_))) - (_%lp-tl4755147639%_ + (##car _%e4761247695%_))) + (_%lp-tl4761447702%_ (let () (declare (not safe)) - (##cdr _%e4754947632%_)))) - (_%loop4754847622%_ - _%lp-tl4755147639%_ - (cons _%lp-hd4755047636%_ _%body4755247629%_)))) - (let ((_%body4755347642%_ (reverse _%body4755247629%_))) - ((lambda (_%L47646%_ _%L47648%_ _%L47649%_) - (if (gx#identifier? _%L47649%_) + (##cdr _%e4761247695%_)))) + (_%loop4761147685%_ + _%lp-tl4761447702%_ + (cons _%lp-hd4761347699%_ _%body4761547692%_)))) + (let ((_%body4761647705%_ (reverse _%body4761547692%_))) + ((lambda (_%L47709%_ _%L47711%_ _%L47712%_) + (if (gx#identifier? _%L47712%_) (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L47648%_ - (cons _%L47649%_ '())) + (cons (cons _%L47711%_ + (cons _%L47712%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4767347676%_ + (foldr (lambda (_%g4773647739%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4767447679%_) - (cons _%g4767347676%_ _%g4767447679%_)) + _%g4773747742%_) + (cons _%g4773647739%_ _%g4773747742%_)) '() - _%L47646%_))) + _%L47709%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'contract-violation!) - (cons _%L47649%_ + (cons _%L47712%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L47648%_ (cons _%L47649%_ '())))) + (cons _%L47711%_ (cons _%L47712%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (_%g4752547559%_ _%g4752647563%_))) - _%body4755347642%_ - _%hd4754347610%_ - _%hd4753747590%_)))))) + (_%g4758847622%_ _%g4758947626%_))) + _%body4761647705%_ + _%hd4760647673%_ + _%hd4760047653%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4754847622%_ - _%target4754547616%_ + (_%loop4761147685%_ + _%target4760847679%_ '())) - (_%g4752547559%_ - _%g4752647563%_))))) - (_%g4752547559%_ _%g4752647563%_)) - (_%g4752547559%_ _%g4752647563%_)))) - (_%g4752547559%_ _%g4752647563%_)) - (_%g4752547559%_ _%g4752647563%_)) - (_%g4752547559%_ _%g4752647563%_)))) + (_%g4758847622%_ + _%g4758947626%_))))) + (_%g4758847622%_ _%g4758947626%_)) + (_%g4758847622%_ _%g4758947626%_)))) + (_%g4758847622%_ _%g4758947626%_)) + (_%g4758847622%_ _%g4758947626%_)) + (_%g4758847622%_ _%g4758947626%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4752547559%_ - _%g4752647563%_)))) - (_%g4752547559%_ _%g4752647563%_)))) - (_%g4752547559%_ _%g4752647563%_)))) - (_%g4752547559%_ _%g4752647563%_))))) - (_%g4752447682%_ _%$stx47521%_)))) + (_%g4758847622%_ + _%g4758947626%_)))) + (_%g4758847622%_ _%g4758947626%_)))) + (_%g4758847622%_ _%g4758947626%_)))) + (_%g4758847622%_ _%g4758947626%_))))) + (_%g4758747745%_ _%$stx47584%_)))) (define |gerbil/core/contract~Using[1]#!class-slot-type| - (lambda (_%klass48249%_ _%slot48251%_) - (let ((_%$e48253%_ - (let ((__obj83858 _%klass48249%_)) + (lambda (_%klass48312%_ _%slot48314%_) + (let ((_%$e48316%_ + (let ((__obj84826 _%klass48312%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83858 + __obj84826 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83858 '19 '#f '#f)) + (##unchecked-structure-ref __obj84826 '19 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83858 + __obj84826 'slot-types))))) - (if _%$e48253%_ - ((lambda (_%slot-types48257%_) - (agetq _%slot48251%_ _%slot-types48257%_)) - _%$e48253%_) + (if _%$e48316%_ + ((lambda (_%slot-types48320%_) + (agetq _%slot48314%_ _%slot-types48320%_)) + _%$e48316%_) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-default| - (lambda (_%klass48230%_ _%slot48232%_) - (let ((_%$e48234%_ - (let ((__obj83859 _%klass48230%_)) + (lambda (_%klass48293%_ _%slot48295%_) + (let ((_%$e48297%_ + (let ((__obj84827 _%klass48293%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83859 + __obj84827 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83859 '20 '#f '#f)) + (##unchecked-structure-ref __obj84827 '20 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83859 + __obj84827 'slot-defaults))))) - (if _%$e48234%_ - ((lambda (_%slot-defaults48238%_) - (let ((_%$e48241%_ - (agetq _%slot48232%_ _%slot-defaults48238%_))) - (if _%$e48241%_ - (gx#syntax-local-introduce _%$e48241%_) + (if _%$e48297%_ + ((lambda (_%slot-defaults48301%_) + (let ((_%$e48304%_ + (agetq _%slot48295%_ _%slot-defaults48301%_))) + (if _%$e48304%_ + (gx#syntax-local-introduce _%$e48304%_) '#f))) - _%$e48234%_) + _%$e48297%_) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-contract| - (lambda (_%klass48211%_ _%slot48213%_) - (let ((_%$e48215%_ - (let ((__obj83860 _%klass48211%_)) + (lambda (_%klass48274%_ _%slot48276%_) + (let ((_%$e48278%_ + (let ((__obj84828 _%klass48274%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83860 + __obj84828 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83860 '20 '#f '#f)) + (##unchecked-structure-ref __obj84828 '20 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83860 + __obj84828 'slot-defaults))))) - (if _%$e48215%_ - ((lambda (_%slot-defaults48219%_) - (let ((_%$e48222%_ - (agetq _%slot48213%_ _%slot-defaults48219%_))) - (if _%$e48222%_ - (gx#syntax-local-introduce _%$e48222%_) + (if _%$e48278%_ + ((lambda (_%slot-defaults48282%_) + (let ((_%$e48285%_ + (agetq _%slot48276%_ _%slot-defaults48282%_))) + (if _%$e48285%_ + (gx#syntax-local-introduce _%$e48285%_) '#f))) - _%$e48215%_) + _%$e48278%_) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-checked-method-contract?| - (lambda (_%klass47979%_ _%slot47981%_) - (let ((_%contract4798247984%_ + (lambda (_%klass48042%_ _%slot48044%_) + (let ((_%contract4804548047%_ (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%klass47979%_ - _%slot47981%_))) - (if _%contract4798247984%_ - (let* ((_%contract47988%_ _%contract4798247984%_) - (_%__stx7878078781%_ _%contract47988%_) - (_%g4799348030%_ + _%klass48042%_ + _%slot48044%_))) + (if _%contract4804548047%_ + (let* ((_%contract48051%_ _%contract4804548047%_) + (_%__stx7965579656%_ _%contract48051%_) + (_%g4805648093%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7878078781%_)))) - (let ((_%__kont7878378784%_ - (lambda (_%L48180%_ _%L48182%_) + _%__stx7965579656%_)))) + (let ((_%__kont7965879659%_ + (lambda (_%L48243%_ _%L48245%_) (not (gx#free-identifier=? - _%L48182%_ + _%L48245%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7878578786%_ - (lambda (_%L48120%_ _%L48122%_ _%L48123%_) + (_%__kont7966079661%_ + (lambda (_%L48183%_ _%L48185%_ _%L48186%_) (not (gx#free-identifier=? - _%L48122%_ + _%L48185%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7878778788%_ (lambda (_%L48057%_) '#f))) - (let* ((_%__match7883378834%_ - (lambda (_%e4800648080%_ - _%hd4800748084%_ - _%tl4800848087%_ - _%e4800948090%_ - _%hd4801048094%_ - _%tl4801148097%_ - _%e4801248100%_ - _%hd4801348104%_ - _%tl4801448107%_ - _%e4801548110%_ - _%hd4801648114%_ - _%tl4801748117%_) - (let ((_%L48120%_ _%hd4801648114%_) - (_%L48122%_ _%hd4801348104%_) - (_%L48123%_ _%hd4801048094%_)) - (if (and (gx#identifier? _%L48122%_) + (_%__kont7966279663%_ (lambda (_%L48120%_) '#f))) + (let* ((_%__match7970879709%_ + (lambda (_%e4806948143%_ + _%hd4807048147%_ + _%tl4807148150%_ + _%e4807248153%_ + _%hd4807348157%_ + _%tl4807448160%_ + _%e4807548163%_ + _%hd4807648167%_ + _%tl4807748170%_ + _%e4807848173%_ + _%hd4807948177%_ + _%tl4808048180%_) + (let ((_%L48183%_ _%hd4807948177%_) + (_%L48185%_ _%hd4807648167%_) + (_%L48186%_ _%hd4807348157%_)) + (if (and (gx#identifier? _%L48185%_) (or (gx#free-identifier=? - _%L48122%_ + _%L48185%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L48122%_ + _%L48185%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L48122%_ + _%L48185%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L48122%_ + _%L48185%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7878578786%_ - _%L48120%_ - _%L48122%_ - _%L48123%_) + (_%__kont7966079661%_ + _%L48183%_ + _%L48185%_ + _%L48186%_) (let () (declare (not safe)) - (_%g4799348030%_)))))) - (_%__match7880378804%_ - (lambda (_%e4799748160%_ - _%hd4799848164%_ - _%tl4799948167%_ - _%e4800048170%_ - _%hd4800148174%_ - _%tl4800248177%_) - (let ((_%L48180%_ _%hd4800148174%_) - (_%L48182%_ _%hd4799848164%_)) - (if (and (gx#identifier? _%L48182%_) + (_%g4805648093%_)))))) + (_%__match7967879679%_ + (lambda (_%e4806048223%_ + _%hd4806148227%_ + _%tl4806248230%_ + _%e4806348233%_ + _%hd4806448237%_ + _%tl4806548240%_) + (let ((_%L48243%_ _%hd4806448237%_) + (_%L48245%_ _%hd4806148227%_)) + (if (and (gx#identifier? _%L48245%_) (or (gx#free-identifier=? - _%L48182%_ + _%L48245%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L48182%_ + _%L48245%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L48182%_ + _%L48245%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L48182%_ + _%L48245%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7878378784%_ _%L48180%_ _%L48182%_) - (if (gx#identifier? _%hd4799848164%_) + (_%__kont7965879659%_ _%L48243%_ _%L48245%_) + (if (gx#identifier? _%hd4806148227%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84023_| - _%hd4799848164%_) - (_%__kont7878778788%_ - _%hd4800148174%_) + |gerbil/core/contract~Using[1]#_g85008_| + _%hd4806148227%_) + (_%__kont7966279663%_ + _%hd4806448237%_) (let () (declare (not safe)) - (_%g4799348030%_))) + (_%g4805648093%_))) (let () (declare (not safe)) - (_%g4799348030%_)))))))) - (if (gx#stx-pair? _%__stx7878078781%_) - (let ((_%e4799748160%_ - (gx#syntax-e _%__stx7878078781%_))) - (let ((_%tl4799948167%_ + (_%g4805648093%_)))))))) + (if (gx#stx-pair? _%__stx7965579656%_) + (let ((_%e4806048223%_ + (gx#syntax-e _%__stx7965579656%_))) + (let ((_%tl4806248230%_ (let () (declare (not safe)) - (##cdr _%e4799748160%_))) - (_%hd4799848164%_ + (##cdr _%e4806048223%_))) + (_%hd4806148227%_ (let () (declare (not safe)) - (##car _%e4799748160%_)))) - (if (gx#stx-pair? _%tl4799948167%_) - (let ((_%e4800048170%_ - (gx#syntax-e _%tl4799948167%_))) - (let ((_%tl4800248177%_ + (##car _%e4806048223%_)))) + (if (gx#stx-pair? _%tl4806248230%_) + (let ((_%e4806348233%_ + (gx#syntax-e _%tl4806248230%_))) + (let ((_%tl4806548240%_ (let () (declare (not safe)) - (##cdr _%e4800048170%_))) - (_%hd4800148174%_ + (##cdr _%e4806348233%_))) + (_%hd4806448237%_ (let () (declare (not safe)) - (##car _%e4800048170%_)))) - (if (gx#stx-null? _%tl4800248177%_) - (_%__match7880378804%_ - _%e4799748160%_ - _%hd4799848164%_ - _%tl4799948167%_ - _%e4800048170%_ - _%hd4800148174%_ - _%tl4800248177%_) - (if (gx#identifier? _%hd4799848164%_) + (##car _%e4806348233%_)))) + (if (gx#stx-null? _%tl4806548240%_) + (_%__match7967879679%_ + _%e4806048223%_ + _%hd4806148227%_ + _%tl4806248230%_ + _%e4806348233%_ + _%hd4806448237%_ + _%tl4806548240%_) + (if (gx#identifier? _%hd4806148227%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84023_| - _%hd4799848164%_) + |gerbil/core/contract~Using[1]#_g85008_| + _%hd4806148227%_) (if (gx#stx-pair? - _%tl4800248177%_) - (let ((_%e4801248100%_ + _%tl4806548240%_) + (let ((_%e4807548163%_ (gx#syntax-e - _%tl4800248177%_))) - (let ((_%tl4801448107%_ + _%tl4806548240%_))) + (let ((_%tl4807748170%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4801248100%_))) - (_%hd4801348104%_ - (let () (declare (not safe)) (##car _%e4801248100%_)))) - (if (gx#stx-pair? _%tl4801448107%_) - (let ((_%e4801548110%_ (gx#syntax-e _%tl4801448107%_))) - (let ((_%tl4801748117%_ + (##cdr _%e4807548163%_))) + (_%hd4807648167%_ + (let () (declare (not safe)) (##car _%e4807548163%_)))) + (if (gx#stx-pair? _%tl4807748170%_) + (let ((_%e4807848173%_ (gx#syntax-e _%tl4807748170%_))) + (let ((_%tl4808048180%_ (let () (declare (not safe)) - (##cdr _%e4801548110%_))) - (_%hd4801648114%_ + (##cdr _%e4807848173%_))) + (_%hd4807948177%_ (let () (declare (not safe)) - (##car _%e4801548110%_)))) - (if (gx#stx-null? _%tl4801748117%_) - (_%__match7883378834%_ - _%e4799748160%_ - _%hd4799848164%_ - _%tl4799948167%_ - _%e4800048170%_ - _%hd4800148174%_ - _%tl4800248177%_ - _%e4801248100%_ - _%hd4801348104%_ - _%tl4801448107%_ - _%e4801548110%_ - _%hd4801648114%_ - _%tl4801748117%_) - (let () (declare (not safe)) (_%g4799348030%_))))) - (let () (declare (not safe)) (_%g4799348030%_))))) + (##car _%e4807848173%_)))) + (if (gx#stx-null? _%tl4808048180%_) + (_%__match7970879709%_ + _%e4806048223%_ + _%hd4806148227%_ + _%tl4806248230%_ + _%e4806348233%_ + _%hd4806448237%_ + _%tl4806548240%_ + _%e4807548163%_ + _%hd4807648167%_ + _%tl4807748170%_ + _%e4807848173%_ + _%hd4807948177%_ + _%tl4808048180%_) + (let () (declare (not safe)) (_%g4805648093%_))))) + (let () (declare (not safe)) (_%g4805648093%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4799348030%_))) + (_%g4805648093%_))) (let () (declare (not safe)) - (_%g4799348030%_))) + (_%g4805648093%_))) (let () (declare (not safe)) - (_%g4799348030%_)))))) + (_%g4805648093%_)))))) (let () (declare (not safe)) - (_%g4799348030%_))))) - (let () (declare (not safe)) (_%g4799348030%_)))))) + (_%g4805648093%_))))) + (let () (declare (not safe)) (_%g4805648093%_)))))) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-checked-mutator-contract?| - (lambda (_%klass47747%_ _%slot47749%_) - (let ((_%contract4775047752%_ + (lambda (_%klass47810%_ _%slot47812%_) + (let ((_%contract4781347815%_ (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%klass47747%_ - _%slot47749%_))) - (if _%contract4775047752%_ - (let* ((_%contract47756%_ _%contract4775047752%_) - (_%__stx7885478855%_ _%contract47756%_) - (_%g4776147798%_ + _%klass47810%_ + _%slot47812%_))) + (if _%contract4781347815%_ + (let* ((_%contract47819%_ _%contract4781347815%_) + (_%__stx7972979730%_ _%contract47819%_) + (_%g4782447861%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7885478855%_)))) - (let ((_%__kont7885778858%_ - (lambda (_%L47948%_ _%L47950%_) + _%__stx7972979730%_)))) + (let ((_%__kont7973279733%_ + (lambda (_%L48011%_ _%L48013%_) (not (gx#free-identifier=? - _%L47950%_ + _%L48013%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7885978860%_ - (lambda (_%L47888%_ _%L47890%_ _%L47891%_) '#t)) - (_%__kont7886178862%_ (lambda (_%L47825%_) '#t))) - (let* ((_%__match7890778908%_ - (lambda (_%e4777447848%_ - _%hd4777547852%_ - _%tl4777647855%_ - _%e4777747858%_ - _%hd4777847862%_ - _%tl4777947865%_ - _%e4778047868%_ - _%hd4778147872%_ - _%tl4778247875%_ - _%e4778347878%_ - _%hd4778447882%_ - _%tl4778547885%_) - (let ((_%L47888%_ _%hd4778447882%_) - (_%L47890%_ _%hd4778147872%_) - (_%L47891%_ _%hd4777847862%_)) - (if (and (gx#identifier? _%L47890%_) + (_%__kont7973479735%_ + (lambda (_%L47951%_ _%L47953%_ _%L47954%_) '#t)) + (_%__kont7973679737%_ (lambda (_%L47888%_) '#t))) + (let* ((_%__match7978279783%_ + (lambda (_%e4783747911%_ + _%hd4783847915%_ + _%tl4783947918%_ + _%e4784047921%_ + _%hd4784147925%_ + _%tl4784247928%_ + _%e4784347931%_ + _%hd4784447935%_ + _%tl4784547938%_ + _%e4784647941%_ + _%hd4784747945%_ + _%tl4784847948%_) + (let ((_%L47951%_ _%hd4784747945%_) + (_%L47953%_ _%hd4784447935%_) + (_%L47954%_ _%hd4784147925%_)) + (if (and (gx#identifier? _%L47953%_) (or (gx#free-identifier=? - _%L47890%_ + _%L47953%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47890%_ + _%L47953%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47890%_ + _%L47953%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47890%_ + _%L47953%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7885978860%_ - _%L47888%_ - _%L47890%_ - _%L47891%_) + (_%__kont7973479735%_ + _%L47951%_ + _%L47953%_ + _%L47954%_) (let () (declare (not safe)) - (_%g4776147798%_)))))) - (_%__match7887778878%_ - (lambda (_%e4776547928%_ - _%hd4776647932%_ - _%tl4776747935%_ - _%e4776847938%_ - _%hd4776947942%_ - _%tl4777047945%_) - (let ((_%L47948%_ _%hd4776947942%_) - (_%L47950%_ _%hd4776647932%_)) - (if (and (gx#identifier? _%L47950%_) + (_%g4782447861%_)))))) + (_%__match7975279753%_ + (lambda (_%e4782847991%_ + _%hd4782947995%_ + _%tl4783047998%_ + _%e4783148001%_ + _%hd4783248005%_ + _%tl4783348008%_) + (let ((_%L48011%_ _%hd4783248005%_) + (_%L48013%_ _%hd4782947995%_)) + (if (and (gx#identifier? _%L48013%_) (or (gx#free-identifier=? - _%L47950%_ + _%L48013%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47950%_ + _%L48013%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47950%_ + _%L48013%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47950%_ + _%L48013%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7885778858%_ _%L47948%_ _%L47950%_) - (if (gx#identifier? _%hd4776647932%_) + (_%__kont7973279733%_ _%L48011%_ _%L48013%_) + (if (gx#identifier? _%hd4782947995%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84024_| - _%hd4776647932%_) - (_%__kont7886178862%_ - _%hd4776947942%_) + |gerbil/core/contract~Using[1]#_g85009_| + _%hd4782947995%_) + (_%__kont7973679737%_ + _%hd4783248005%_) (let () (declare (not safe)) - (_%g4776147798%_))) + (_%g4782447861%_))) (let () (declare (not safe)) - (_%g4776147798%_)))))))) - (if (gx#stx-pair? _%__stx7885478855%_) - (let ((_%e4776547928%_ - (gx#syntax-e _%__stx7885478855%_))) - (let ((_%tl4776747935%_ + (_%g4782447861%_)))))))) + (if (gx#stx-pair? _%__stx7972979730%_) + (let ((_%e4782847991%_ + (gx#syntax-e _%__stx7972979730%_))) + (let ((_%tl4783047998%_ (let () (declare (not safe)) - (##cdr _%e4776547928%_))) - (_%hd4776647932%_ + (##cdr _%e4782847991%_))) + (_%hd4782947995%_ (let () (declare (not safe)) - (##car _%e4776547928%_)))) - (if (gx#stx-pair? _%tl4776747935%_) - (let ((_%e4776847938%_ - (gx#syntax-e _%tl4776747935%_))) - (let ((_%tl4777047945%_ + (##car _%e4782847991%_)))) + (if (gx#stx-pair? _%tl4783047998%_) + (let ((_%e4783148001%_ + (gx#syntax-e _%tl4783047998%_))) + (let ((_%tl4783348008%_ (let () (declare (not safe)) - (##cdr _%e4776847938%_))) - (_%hd4776947942%_ + (##cdr _%e4783148001%_))) + (_%hd4783248005%_ (let () (declare (not safe)) - (##car _%e4776847938%_)))) - (if (gx#stx-null? _%tl4777047945%_) - (_%__match7887778878%_ - _%e4776547928%_ - _%hd4776647932%_ - _%tl4776747935%_ - _%e4776847938%_ - _%hd4776947942%_ - _%tl4777047945%_) - (if (gx#identifier? _%hd4776647932%_) + (##car _%e4783148001%_)))) + (if (gx#stx-null? _%tl4783348008%_) + (_%__match7975279753%_ + _%e4782847991%_ + _%hd4782947995%_ + _%tl4783047998%_ + _%e4783148001%_ + _%hd4783248005%_ + _%tl4783348008%_) + (if (gx#identifier? _%hd4782947995%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84024_| - _%hd4776647932%_) + |gerbil/core/contract~Using[1]#_g85009_| + _%hd4782947995%_) (if (gx#stx-pair? - _%tl4777047945%_) - (let ((_%e4778047868%_ + _%tl4783348008%_) + (let ((_%e4784347931%_ (gx#syntax-e - _%tl4777047945%_))) - (let ((_%tl4778247875%_ + _%tl4783348008%_))) + (let ((_%tl4784547938%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4778047868%_))) - (_%hd4778147872%_ - (let () (declare (not safe)) (##car _%e4778047868%_)))) - (if (gx#stx-pair? _%tl4778247875%_) - (let ((_%e4778347878%_ (gx#syntax-e _%tl4778247875%_))) - (let ((_%tl4778547885%_ + (##cdr _%e4784347931%_))) + (_%hd4784447935%_ + (let () (declare (not safe)) (##car _%e4784347931%_)))) + (if (gx#stx-pair? _%tl4784547938%_) + (let ((_%e4784647941%_ (gx#syntax-e _%tl4784547938%_))) + (let ((_%tl4784847948%_ (let () (declare (not safe)) - (##cdr _%e4778347878%_))) - (_%hd4778447882%_ + (##cdr _%e4784647941%_))) + (_%hd4784747945%_ (let () (declare (not safe)) - (##car _%e4778347878%_)))) - (if (gx#stx-null? _%tl4778547885%_) - (_%__match7890778908%_ - _%e4776547928%_ - _%hd4776647932%_ - _%tl4776747935%_ - _%e4776847938%_ - _%hd4776947942%_ - _%tl4777047945%_ - _%e4778047868%_ - _%hd4778147872%_ - _%tl4778247875%_ - _%e4778347878%_ - _%hd4778447882%_ - _%tl4778547885%_) - (let () (declare (not safe)) (_%g4776147798%_))))) - (let () (declare (not safe)) (_%g4776147798%_))))) + (##car _%e4784647941%_)))) + (if (gx#stx-null? _%tl4784847948%_) + (_%__match7978279783%_ + _%e4782847991%_ + _%hd4782947995%_ + _%tl4783047998%_ + _%e4783148001%_ + _%hd4783248005%_ + _%tl4783348008%_ + _%e4784347931%_ + _%hd4784447935%_ + _%tl4784547938%_ + _%e4784647941%_ + _%hd4784747945%_ + _%tl4784847948%_) + (let () (declare (not safe)) (_%g4782447861%_))))) + (let () (declare (not safe)) (_%g4782447861%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4776147798%_))) + (_%g4782447861%_))) (let () (declare (not safe)) - (_%g4776147798%_))) + (_%g4782447861%_))) (let () (declare (not safe)) - (_%g4776147798%_)))))) + (_%g4782447861%_)))))) (let () (declare (not safe)) - (_%g4776147798%_))))) - (let () (declare (not safe)) (_%g4776147798%_)))))) + (_%g4782447861%_))))) + (let () (declare (not safe)) (_%g4782447861%_)))))) '#f)))) (define |gerbil/core/contract~Using[1]#dotted-identifier?| - (lambda (_%id47733%_) - (if (gx#identifier? _%id47733%_) - (let* ((_%str47736%_ (symbol->string (gx#stx-e _%id47733%_))) - (_%index4773847740%_ (string-index _%str47736%_ '#\.))) - (if _%index4773847740%_ - (let ((_%index47744%_ _%index4773847740%_)) - (if (let () (declare (not safe)) (##fx> _%index47744%_ '0)) + (lambda (_%id47796%_) + (if (gx#identifier? _%id47796%_) + (let* ((_%str47799%_ (symbol->string (gx#stx-e _%id47796%_))) + (_%index4780147803%_ (string-index _%str47799%_ '#\.))) + (if _%index4780147803%_ + (let ((_%index47807%_ _%index4780147803%_)) + (if (let () (declare (not safe)) (##fx> _%index47807%_ '0)) (not (ormap string-empty? - (string-split _%str47736%_ '#\.))) + (string-split _%str47799%_ '#\.))) '#f)) '#f)) '#f))) (define |gerbil/core/contract~Using[1]#split-dotted-identifier| - (lambda (_%stx47726%_ _%id47728%_) - (let ((_%parts47730%_ - (string-split (symbol->string (gx#stx-e _%id47728%_)) '#\.))) - (if (find string-empty? _%parts47730%_) + (lambda (_%stx47789%_ _%id47791%_) + (let ((_%parts47793%_ + (string-split (symbol->string (gx#stx-e _%id47791%_)) '#\.))) + (if (find string-empty? _%parts47793%_) (gx#raise-syntax-error '#f '"bad dotted identifier" - _%stx47726%_ - _%id47728%_) - (cons (gx#stx-identifier _%id47728%_ (car _%parts47730%_)) - (map string->symbol (cdr _%parts47730%_))))))) + _%stx47789%_ + _%id47791%_) + (cons (gx#stx-identifier _%id47791%_ (car _%parts47793%_)) + (map string->symbol (cdr _%parts47793%_))))))) (define |gerbil/core/contract~Using[1]#get-slot-accessor| - (lambda (_%stx47707%_ _%klass-or-id47709%_ _%slot47710%_) - (let* ((_%klass47712%_ - (if (gx#identifier? _%klass-or-id47709%_) + (lambda (_%stx47770%_ _%klass-or-id47772%_ _%slot47773%_) + (let* ((_%klass47775%_ + (if (gx#identifier? _%klass-or-id47772%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx47707%_ - _%klass-or-id47709%_)) - _%klass-or-id47709%_)) - (_%accessors47715%_ - (let ((__obj83861 _%klass47712%_)) + _%stx47770%_ + _%klass-or-id47772%_)) + _%klass-or-id47772%_)) + (_%accessors47778%_ + (let ((__obj84829 _%klass47775%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83861 + __obj84829 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83861 '17 '#f '#f)) + (##unchecked-structure-ref __obj84829 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83861 + __obj84829 'unchecked-accessors)))) - (_%$e47720%_ (agetq _%slot47710%_ _%accessors47715%_))) - (if _%$e47720%_ - _%$e47720%_ + (_%$e47783%_ (agetq _%slot47773%_ _%accessors47778%_))) + (if _%$e47783%_ + _%$e47783%_ (gx#raise-syntax-error '#f '"no accessor for slot" - _%stx47707%_ - _%klass47712%_ - _%slot47710%_))))) + _%stx47770%_ + _%klass47775%_ + _%slot47773%_))))) (define |gerbil/core/contract~Using[1]#get-slot-mutator| - (lambda (_%stx47687%_ - _%klass-or-id47689%_ - _%slot47690%_ - _%checked?47691%_) - (let* ((_%klass47693%_ - (if (gx#identifier? _%klass-or-id47689%_) + (lambda (_%stx47750%_ + _%klass-or-id47752%_ + _%slot47753%_ + _%checked?47754%_) + (let* ((_%klass47756%_ + (if (gx#identifier? _%klass-or-id47752%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx47687%_ - _%klass-or-id47689%_)) - _%klass-or-id47689%_)) - (_%mutators47696%_ - (if _%checked?47691%_ - (let ((__obj83862 _%klass47693%_)) + _%stx47750%_ + _%klass-or-id47752%_)) + _%klass-or-id47752%_)) + (_%mutators47759%_ + (if _%checked?47754%_ + (let ((__obj84830 _%klass47756%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83862 + __obj84830 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83862 '16 '#f '#f)) + (##unchecked-structure-ref __obj84830 '16 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83862 + __obj84830 'mutators))) - (let ((__obj83863 _%klass47693%_)) + (let ((__obj84831 _%klass47756%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83863 + __obj84831 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83863 '18 '#f '#f)) + (##unchecked-structure-ref __obj84831 '18 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83863 + __obj84831 'unchecked-mutators))))) - (_%$e47701%_ (agetq _%slot47690%_ _%mutators47696%_))) - (if _%$e47701%_ - _%$e47701%_ + (_%$e47764%_ (agetq _%slot47753%_ _%mutators47759%_))) + (if _%$e47764%_ + _%$e47764%_ (gx#raise-syntax-error '#f '"no mutator for slot" - _%stx47687%_ - _%klass47693%_ - _%slot47690%_))))) + _%stx47750%_ + _%klass47756%_ + _%slot47753%_))))) (define |gerbil/core/contract~Using[:0:]#with-class| - (lambda (_%stx48262%_) - (letrec ((_%expand-body48265%_ - (lambda (_%klass49173%_ - _%var49175%_ - _%Type49176%_ - _%body49177%_ - _%checked?49178%_) - (let* ((_%g4918049224%_ - (lambda (_%g4918149220%_) + (lambda (_%stx48325%_) + (letrec ((_%expand-body48328%_ + (lambda (_%klass49236%_ + _%var49238%_ + _%Type49239%_ + _%body49240%_ + _%checked?49241%_) + (let* ((_%g4924349287%_ + (lambda (_%g4924449283%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4918149220%_))) - (_%g4917949381%_ - (lambda (_%g4918149228%_) - (if (gx#stx-pair? _%g4918149228%_) - (let ((_%e4918949231%_ - (gx#syntax-e _%g4918149228%_))) - (let ((_%hd4919049235%_ + _%g4924449283%_))) + (_%g4924249444%_ + (lambda (_%g4924449291%_) + (if (gx#stx-pair? _%g4924449291%_) + (let ((_%e4925249294%_ + (gx#syntax-e _%g4924449291%_))) + (let ((_%hd4925349298%_ (let () (declare (not safe)) - (##car _%e4918949231%_))) - (_%tl4919149238%_ + (##car _%e4925249294%_))) + (_%tl4925449301%_ (let () (declare (not safe)) - (##cdr _%e4918949231%_)))) - (if (gx#stx-pair? _%tl4919149238%_) - (let ((_%e4919249241%_ + (##cdr _%e4925249294%_)))) + (if (gx#stx-pair? _%tl4925449301%_) + (let ((_%e4925549304%_ (gx#syntax-e - _%tl4919149238%_))) - (let ((_%hd4919349245%_ + _%tl4925449301%_))) + (let ((_%hd4925649308%_ (let () (declare (not safe)) - (##car _%e4919249241%_))) - (_%tl4919449248%_ + (##car _%e4925549304%_))) + (_%tl4925749311%_ (let () (declare (not safe)) - (##cdr _%e4919249241%_)))) + (##cdr _%e4925549304%_)))) (if (gx#stx-pair? - _%tl4919449248%_) - (let ((_%e4919549251%_ + _%tl4925749311%_) + (let ((_%e4925849314%_ (gx#syntax-e - _%tl4919449248%_))) - (let ((_%hd4919649255%_ + _%tl4925749311%_))) + (let ((_%hd4925949318%_ (let () (declare (not safe)) - (##car _%e4919549251%_))) - (_%tl4919749258%_ + (##car _%e4925849314%_))) + (_%tl4926049321%_ (let () (declare (not safe)) - (##cdr _%e4919549251%_)))) + (##cdr _%e4925849314%_)))) (if (gx#stx-pair? - _%tl4919749258%_) - (let ((_%e4919849261%_ + _%tl4926049321%_) + (let ((_%e4926149324%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4919749258%_))) - (let ((_%hd4919949265%_ + (gx#syntax-e _%tl4926049321%_))) + (let ((_%hd4926249328%_ (let () (declare (not safe)) - (##car _%e4919849261%_))) - (_%tl4920049268%_ + (##car _%e4926149324%_))) + (_%tl4926349331%_ (let () (declare (not safe)) - (##cdr _%e4919849261%_)))) - (if (gx#stx-pair? _%tl4920049268%_) - (let ((_%e4920149271%_ - (gx#syntax-e _%tl4920049268%_))) - (let ((_%hd4920249275%_ + (##cdr _%e4926149324%_)))) + (if (gx#stx-pair? _%tl4926349331%_) + (let ((_%e4926449334%_ + (gx#syntax-e _%tl4926349331%_))) + (let ((_%hd4926549338%_ (let () (declare (not safe)) - (##car _%e4920149271%_))) - (_%tl4920349278%_ + (##car _%e4926449334%_))) + (_%tl4926649341%_ (let () (declare (not safe)) - (##cdr _%e4920149271%_)))) - (if (gx#stx-pair? _%tl4920349278%_) - (let ((_%e4920449281%_ - (gx#syntax-e _%tl4920349278%_))) - (let ((_%hd4920549285%_ + (##cdr _%e4926449334%_)))) + (if (gx#stx-pair? _%tl4926649341%_) + (let ((_%e4926749344%_ + (gx#syntax-e _%tl4926649341%_))) + (let ((_%hd4926849348%_ (let () (declare (not safe)) - (##car _%e4920449281%_))) - (_%tl4920649288%_ + (##car _%e4926749344%_))) + (_%tl4926949351%_ (let () (declare (not safe)) - (##cdr _%e4920449281%_)))) - (if (gx#stx-pair? _%tl4920649288%_) - (let ((_%e4920749291%_ + (##cdr _%e4926749344%_)))) + (if (gx#stx-pair? _%tl4926949351%_) + (let ((_%e4927049354%_ (gx#syntax-e - _%tl4920649288%_))) - (let ((_%hd4920849295%_ + _%tl4926949351%_))) + (let ((_%hd4927149358%_ (let () (declare (not safe)) - (##car _%e4920749291%_))) - (_%tl4920949298%_ + (##car _%e4927049354%_))) + (_%tl4927249361%_ (let () (declare (not safe)) - (##cdr _%e4920749291%_)))) + (##cdr _%e4927049354%_)))) (if (gx#stx-pair/null? - _%hd4920849295%_) - (let ((_g84025_ + _%hd4927149358%_) + (let ((_g85010_ (gx#syntax-split-splice - _%hd4920849295%_ + _%hd4927149358%_ '0))) (begin - (let ((_g84026_ + (let ((_g85011_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84025_) - (##vector-length _g84025_) + (if (##values? _g85010_) + (##values-length _g85010_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84026_ 2))) - (error "Context expects 2 values" _g84026_))) - (let ((_%target4921049301%_ - (let () (declare (not safe)) (##vector-ref _g84025_ 0))) - (_%tl4921249304%_ - (let () (declare (not safe)) (##vector-ref _g84025_ 1)))) - (if (gx#stx-null? _%tl4921249304%_) - (letrec ((_%loop4921349307%_ - (lambda (_%hd4921149311%_ _%body4921749314%_) - (if (gx#stx-pair? _%hd4921149311%_) - (let ((_%e4921449317%_ - (gx#syntax-e _%hd4921149311%_))) - (let ((_%lp-hd4921549321%_ + (if (not (let () (declare (not safe)) (##fx= _g85011_ 2))) + (error "Context expects 2 values" _g85011_))) + (let ((_%target4927349364%_ + (let () (declare (not safe)) (##values-ref _g85010_ 0))) + (_%tl4927549367%_ + (let () (declare (not safe)) (##values-ref _g85010_ 1)))) + (if (gx#stx-null? _%tl4927549367%_) + (letrec ((_%loop4927649370%_ + (lambda (_%hd4927449374%_ _%body4928049377%_) + (if (gx#stx-pair? _%hd4927449374%_) + (let ((_%e4927749380%_ + (gx#syntax-e _%hd4927449374%_))) + (let ((_%lp-hd4927849384%_ (let () (declare (not safe)) - (##car _%e4921449317%_))) - (_%lp-tl4921649324%_ + (##car _%e4927749380%_))) + (_%lp-tl4927949387%_ (let () (declare (not safe)) - (##cdr _%e4921449317%_)))) - (_%loop4921349307%_ - _%lp-tl4921649324%_ - (cons _%lp-hd4921549321%_ - _%body4921749314%_)))) - (let ((_%body4921849327%_ - (reverse _%body4921749314%_))) - (if (gx#stx-null? _%tl4920949298%_) - ((lambda (_%L49331%_ - _%L49333%_ - _%L49334%_ - _%L49335%_ - _%L49336%_ - _%L49337%_ - _%L49338%_) + (##cdr _%e4927749380%_)))) + (_%loop4927649370%_ + _%lp-tl4927949387%_ + (cons _%lp-hd4927849384%_ + _%body4928049377%_)))) + (let ((_%body4928149390%_ + (reverse _%body4928049377%_))) + (if (gx#stx-null? _%tl4927249361%_) + ((lambda (_%L49394%_ + _%L49396%_ + _%L49397%_ + _%L49398%_ + _%L49399%_ + _%L49400%_ + _%L49401%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L49336%_ + (cons (cons _%L49399%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L49337%_ '())) - (cons _%L49336%_ '()))) + (cons _%L49400%_ '())) + (cons _%L49399%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'let-syntax) - (cons (cons (cons _%L49338%_ + (cons (cons (cons _%L49401%_ (cons (cons (gx#datum->syntax '#f 'make-type-env) @@ -5048,1101 +5048,1101 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L49336%_ '())) + (cons _%L49399%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L49335%_ '())) - (cons _%L49334%_ + (cons _%L49398%_ '())) + (cons _%L49397%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L49333%_ '())) + (cons _%L49396%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4937249375%_ + (foldr (lambda (_%g4943549438%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4937349378%_) - (cons _%g4937249375%_ _%g4937349378%_)) + _%g4943649441%_) + (cons _%g4943549438%_ _%g4943649441%_)) '() - _%L49331%_))) + _%L49394%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body4921849327%_ - _%hd4920549285%_ - _%hd4920249275%_ - _%hd4919949265%_ - _%hd4919649255%_ - _%hd4919349245%_ - _%hd4919049235%_) - (_%g4918049224%_ - _%g4918149228%_))))))) - (_%loop4921349307%_ _%target4921049301%_ '())) - (_%g4918049224%_ _%g4918149228%_))))) + _%body4928149390%_ + _%hd4926849348%_ + _%hd4926549338%_ + _%hd4926249328%_ + _%hd4925949318%_ + _%hd4925649308%_ + _%hd4925349298%_) + (_%g4924349287%_ + _%g4924449291%_))))))) + (_%loop4927649370%_ _%target4927349364%_ '())) + (_%g4924349287%_ _%g4924449291%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4918049224%_ - _%g4918149228%_)))) - (_%g4918049224%_ _%g4918149228%_)))) - (_%g4918049224%_ _%g4918149228%_)))) - (_%g4918049224%_ _%g4918149228%_)))) - (_%g4918049224%_ _%g4918149228%_)))) + (_%g4924349287%_ + _%g4924449291%_)))) + (_%g4924349287%_ _%g4924449291%_)))) + (_%g4924349287%_ _%g4924449291%_)))) + (_%g4924349287%_ _%g4924449291%_)))) + (_%g4924349287%_ _%g4924449291%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4918049224%_ - _%g4918149228%_)))) - (_%g4918049224%_ _%g4918149228%_)))) - (_%g4918049224%_ _%g4918149228%_))))) - (_%g4917949381%_ + (_%g4924349287%_ + _%g4924449291%_)))) + (_%g4924349287%_ _%g4924449291%_)))) + (_%g4924349287%_ _%g4924449291%_))))) + (_%g4924249444%_ (list (gx#syntax-local-introduce '@@type) - (let ((__obj83864 _%klass49173%_)) + (let ((__obj84832 _%klass49236%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83864 + __obj84832 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83864 + __obj84832 '12 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83864 + __obj84832 'type-descriptor))) - _%var49175%_ - _%klass49173%_ - _%checked?49178%_ + _%var49238%_ + _%klass49236%_ + _%checked?49241%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#current-type-env)) - _%body49177%_))))) - (_%expand48267%_ - (lambda (_%var49065%_ - _%Type49067%_ - _%body49068%_ - _%checked?49069%_ - _%checked-mutators?49070%_ - _%maybe?49071%_) - (let* ((_%klass49073%_ - (gx#syntax-local-value _%Type49067%_ false)) - (_%expr-body49080%_ - (_%expand-body48265%_ - _%klass49073%_ - _%var49065%_ - _%Type49067%_ - _%body49068%_ - (let ((_%$e49076%_ _%checked?49069%_)) - (if _%$e49076%_ - _%$e49076%_ - _%checked-mutators?49070%_))))) - (if _%checked?49069%_ - (let* ((_%g4908549104%_ - (lambda (_%g4908649100%_) + _%body49240%_))))) + (_%expand48330%_ + (lambda (_%var49128%_ + _%Type49130%_ + _%body49131%_ + _%checked?49132%_ + _%checked-mutators?49133%_ + _%maybe?49134%_) + (let* ((_%klass49136%_ + (gx#syntax-local-value _%Type49130%_ false)) + (_%expr-body49143%_ + (_%expand-body48328%_ + _%klass49136%_ + _%var49128%_ + _%Type49130%_ + _%body49131%_ + (let ((_%$e49139%_ _%checked?49132%_)) + (if _%$e49139%_ + _%$e49139%_ + _%checked-mutators?49133%_))))) + (if _%checked?49132%_ + (let* ((_%g4914849167%_ + (lambda (_%g4914949163%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4908649100%_))) - (_%g4908449166%_ - (lambda (_%g4908649108%_) - (if (gx#stx-pair? _%g4908649108%_) - (let ((_%e4909049111%_ - (gx#syntax-e _%g4908649108%_))) - (let ((_%hd4909149115%_ + _%g4914949163%_))) + (_%g4914749229%_ + (lambda (_%g4914949171%_) + (if (gx#stx-pair? _%g4914949171%_) + (let ((_%e4915349174%_ + (gx#syntax-e _%g4914949171%_))) + (let ((_%hd4915449178%_ (let () (declare (not safe)) - (##car _%e4909049111%_))) - (_%tl4909249118%_ + (##car _%e4915349174%_))) + (_%tl4915549181%_ (let () (declare (not safe)) - (##cdr _%e4909049111%_)))) - (if (gx#stx-pair? _%tl4909249118%_) - (let ((_%e4909349121%_ + (##cdr _%e4915349174%_)))) + (if (gx#stx-pair? _%tl4915549181%_) + (let ((_%e4915649184%_ (gx#syntax-e - _%tl4909249118%_))) - (let ((_%hd4909449125%_ + _%tl4915549181%_))) + (let ((_%hd4915749188%_ (let () (declare (not safe)) - (##car _%e4909349121%_))) - (_%tl4909549128%_ + (##car _%e4915649184%_))) + (_%tl4915849191%_ (let () (declare (not safe)) - (##cdr _%e4909349121%_)))) + (##cdr _%e4915649184%_)))) (if (gx#stx-pair? - _%tl4909549128%_) - (let ((_%e4909649131%_ + _%tl4915849191%_) + (let ((_%e4915949194%_ (gx#syntax-e - _%tl4909549128%_))) - (let ((_%hd4909749135%_ + _%tl4915849191%_))) + (let ((_%hd4916049198%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e4909649131%_))) - (_%tl4909849138%_ + (let () (declare (not safe)) (##car _%e4915949194%_))) + (_%tl4916149201%_ (let () (declare (not safe)) - (##cdr _%e4909649131%_)))) - (if (gx#stx-null? _%tl4909849138%_) - ((lambda (_%L49141%_ _%L49143%_ _%L49144%_) + (##cdr _%e4915949194%_)))) + (if (gx#stx-null? _%tl4916149201%_) + ((lambda (_%L49204%_ _%L49206%_ _%L49207%_) (cons (gx#datum->syntax '#f 'with-contract) - (cons (cons _%L49143%_ + (cons (cons _%L49206%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L49144%_ '()))) - (cons _%L49141%_ '())))) - _%hd4909749135%_ - _%hd4909449125%_ - _%hd4909149115%_) - (_%g4908549104%_ _%g4908649108%_)))) - (_%g4908549104%_ _%g4908649108%_)))) + (cons _%L49207%_ '()))) + (cons _%L49204%_ '())))) + _%hd4916049198%_ + _%hd4915749188%_ + _%hd4915449178%_) + (_%g4914849167%_ _%g4914949171%_)))) + (_%g4914849167%_ _%g4914949171%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4908549104%_ - _%g4908649108%_)))) - (_%g4908549104%_ _%g4908649108%_))))) - (_%g4908449166%_ - (list (let ((_%instance?49170%_ - (let ((__obj83865 _%klass49073%_)) + (_%g4914849167%_ + _%g4914949171%_)))) + (_%g4914849167%_ _%g4914949171%_))))) + (_%g4914749229%_ + (list (let ((_%instance?49233%_ + (let ((__obj84833 _%klass49136%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83865 + __obj84833 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83865 + __obj84833 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83865 + __obj84833 'predicate))))) - (if _%maybe?49071%_ + (if _%maybe?49134%_ (cons '? (cons (cons 'or (cons 'not ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%instance?49170%_ '()))) + (cons _%instance?49233%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - _%instance?49170%_)) - _%var49065%_ - _%expr-body49080%_))) - _%expr-body49080%_))))) - (let* ((_%__stx7892878929%_ _%stx48262%_) - (_%g4827348416%_ + _%instance?49233%_)) + _%var49128%_ + _%expr-body49143%_))) + _%expr-body49143%_))))) + (let* ((_%__stx7980379804%_ _%stx48325%_) + (_%g4833648479%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7892878929%_)))) - (let ((_%__kont7893178932%_ - (lambda (_%L48993%_ _%L48995%_ _%L48996%_ _%L48997%_) - (let* ((_%g4902249030%_ - (lambda (_%g4902349026%_) + _%__stx7980379804%_)))) + (let ((_%__kont7980679807%_ + (lambda (_%L49056%_ _%L49058%_ _%L49059%_ _%L49060%_) + (let* ((_%g4908549093%_ + (lambda (_%g4908649089%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4902349026%_))) - (_%g4902149057%_ - (lambda (_%g4902349034%_) - ((lambda (_%L49037%_) + _%g4908649089%_))) + (_%g4908449120%_ + (lambda (_%g4908649097%_) + ((lambda (_%L49100%_) (cons (gx#datum->syntax '#f 'with-class) - (cons (cons _%L48997%_ - (cons _%L48996%_ - (cons _%L49037%_ + (cons (cons _%L49060%_ + (cons _%L49059%_ + (cons _%L49100%_ '()))) - (foldr (lambda (_%g4904849051%_ - _%g4904949054%_) - (cons _%g4904849051%_ - _%g4904949054%_)) + (foldr (lambda (_%g4911149114%_ + _%g4911249117%_) + (cons _%g4911149114%_ + _%g4911249117%_)) '() - _%L48993%_)))) - _%g4902349034%_)))) - (_%g4902149057%_ - (let ((__obj83866 (gx#syntax-local-value _%L48995%_))) + _%L49056%_)))) + _%g4908649097%_)))) + (_%g4908449120%_ + (let ((__obj84834 (gx#syntax-local-value _%L49058%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83866 + __obj84834 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83866 + __obj84834 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj83866 + __obj84834 'identifier))))))) - (_%__kont7893578936%_ - (lambda (_%L48871%_ _%L48873%_ _%L48874%_) - (_%expand48267%_ - _%L48874%_ - _%L48873%_ - (foldr (lambda (_%g4889748900%_ _%g4889848903%_) - (cons _%g4889748900%_ _%g4889848903%_)) + (_%__kont7981079811%_ + (lambda (_%L48934%_ _%L48936%_ _%L48937%_) + (_%expand48330%_ + _%L48937%_ + _%L48936%_ + (foldr (lambda (_%g4896048963%_ _%g4896148966%_) + (cons _%g4896048963%_ _%g4896148966%_)) '() - _%L48871%_) + _%L48934%_) '#t '#t '#f))) - (_%__kont7893978940%_ - (lambda (_%L48749%_ _%L48751%_ _%L48752%_) - (_%expand48267%_ - _%L48752%_ - _%L48751%_ - (foldr (lambda (_%g4877548778%_ _%g4877648781%_) - (cons _%g4877548778%_ _%g4877648781%_)) + (_%__kont7981479815%_ + (lambda (_%L48812%_ _%L48814%_ _%L48815%_) + (_%expand48330%_ + _%L48815%_ + _%L48814%_ + (foldr (lambda (_%g4883848841%_ _%g4883948844%_) + (cons _%g4883848841%_ _%g4883948844%_)) '() - _%L48749%_) + _%L48812%_) '#t '#t '#t))) - (_%__kont7894378944%_ - (lambda (_%L48627%_ _%L48629%_ _%L48630%_) - (_%expand48267%_ - _%L48630%_ - _%L48629%_ - (foldr (lambda (_%g4865348656%_ _%g4865448659%_) - (cons _%g4865348656%_ _%g4865448659%_)) + (_%__kont7981879819%_ + (lambda (_%L48690%_ _%L48692%_ _%L48693%_) + (_%expand48330%_ + _%L48693%_ + _%L48692%_ + (foldr (lambda (_%g4871648719%_ _%g4871748722%_) + (cons _%g4871648719%_ _%g4871748722%_)) '() - _%L48627%_) + _%L48690%_) '#f '#f '#f))) - (_%__kont7894778948%_ - (lambda (_%L48503%_ _%L48505%_ _%L48506%_) - (_%expand48267%_ - _%L48506%_ - _%L48505%_ - (foldr (lambda (_%g4853148534%_ _%g4853248537%_) - (cons _%g4853148534%_ _%g4853248537%_)) + (_%__kont7982279823%_ + (lambda (_%L48566%_ _%L48568%_ _%L48569%_) + (_%expand48330%_ + _%L48569%_ + _%L48568%_ + (foldr (lambda (_%g4859448597%_ _%g4859548600%_) + (cons _%g4859448597%_ _%g4859548600%_)) '() - _%L48503%_) + _%L48566%_) '#f '#t '#f)))) - (let* ((_%__match7916779168%_ - (lambda (_%e4838748423%_ - _%hd4838848427%_ - _%tl4838948430%_ - _%e4839048433%_ - _%hd4839148437%_ - _%tl4839248440%_ - _%e4839348443%_ - _%hd4839448447%_ - _%tl4839548450%_ - _%e4839648453%_ - _%hd4839748457%_ - _%tl4839848460%_ - _%e4839948463%_ - _%hd4840048467%_ - _%tl4840148470%_ - _%__splice7894978950%_ - _%target4840248473%_ - _%tl4840448476%_) - (letrec ((_%loop4840548479%_ - (lambda (_%hd4840348483%_ _%body4840948486%_) - (if (gx#stx-pair? _%hd4840348483%_) - (let ((_%e4840648489%_ - (gx#syntax-e _%hd4840348483%_))) - (let ((_%lp-tl4840848496%_ + (let* ((_%__match8004280043%_ + (lambda (_%e4845048486%_ + _%hd4845148490%_ + _%tl4845248493%_ + _%e4845348496%_ + _%hd4845448500%_ + _%tl4845548503%_ + _%e4845648506%_ + _%hd4845748510%_ + _%tl4845848513%_ + _%e4845948516%_ + _%hd4846048520%_ + _%tl4846148523%_ + _%e4846248526%_ + _%hd4846348530%_ + _%tl4846448533%_ + _%__splice7982479825%_ + _%target4846548536%_ + _%tl4846748539%_) + (letrec ((_%loop4846848542%_ + (lambda (_%hd4846648546%_ _%body4847248549%_) + (if (gx#stx-pair? _%hd4846648546%_) + (let ((_%e4846948552%_ + (gx#syntax-e _%hd4846648546%_))) + (let ((_%lp-tl4847148559%_ (let () (declare (not safe)) - (##cdr _%e4840648489%_))) - (_%lp-hd4840748493%_ + (##cdr _%e4846948552%_))) + (_%lp-hd4847048556%_ (let () (declare (not safe)) - (##car _%e4840648489%_)))) - (_%loop4840548479%_ - _%lp-tl4840848496%_ - (cons _%lp-hd4840748493%_ - _%body4840948486%_)))) - (let ((_%body4841048499%_ - (reverse _%body4840948486%_))) - (let ((_%L48503%_ _%body4841048499%_) - (_%L48505%_ _%hd4840048467%_) - (_%L48506%_ _%hd4839448447%_)) + (##car _%e4846948552%_)))) + (_%loop4846848542%_ + _%lp-tl4847148559%_ + (cons _%lp-hd4847048556%_ + _%body4847248549%_)))) + (let ((_%body4847348562%_ + (reverse _%body4847248549%_))) + (let ((_%L48566%_ _%body4847348562%_) + (_%L48568%_ _%hd4846348530%_) + (_%L48569%_ _%hd4845748510%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L48505%_)) - (_%__kont7894778948%_ - _%L48503%_ - _%L48505%_ - _%L48506%_) + _%L48568%_)) + (_%__kont7982279823%_ + _%L48566%_ + _%L48568%_ + _%L48569%_) (let () (declare (not safe)) - (_%g4827348416%_))))))))) - (_%loop4840548479%_ _%target4840248473%_ '())))) - (_%__match7912379124%_ - (lambda (_%e4836048547%_ - _%hd4836148551%_ - _%tl4836248554%_ - _%e4836348557%_ - _%hd4836448561%_ - _%tl4836548564%_ - _%e4836648567%_ - _%hd4836748571%_ - _%tl4836848574%_ - _%e4836948577%_ - _%hd4837048581%_ - _%tl4837148584%_ - _%e4837248587%_ - _%hd4837348591%_ - _%tl4837448594%_ - _%__splice7894578946%_ - _%target4837548597%_ - _%tl4837748600%_) - (letrec ((_%loop4837848603%_ - (lambda (_%hd4837648607%_ _%body4838248610%_) - (if (gx#stx-pair? _%hd4837648607%_) - (let ((_%e4837948613%_ - (gx#syntax-e _%hd4837648607%_))) - (let ((_%lp-tl4838148620%_ + (_%g4833648479%_))))))))) + (_%loop4846848542%_ _%target4846548536%_ '())))) + (_%__match7999879999%_ + (lambda (_%e4842348610%_ + _%hd4842448614%_ + _%tl4842548617%_ + _%e4842648620%_ + _%hd4842748624%_ + _%tl4842848627%_ + _%e4842948630%_ + _%hd4843048634%_ + _%tl4843148637%_ + _%e4843248640%_ + _%hd4843348644%_ + _%tl4843448647%_ + _%e4843548650%_ + _%hd4843648654%_ + _%tl4843748657%_ + _%__splice7982079821%_ + _%target4843848660%_ + _%tl4844048663%_) + (letrec ((_%loop4844148666%_ + (lambda (_%hd4843948670%_ _%body4844548673%_) + (if (gx#stx-pair? _%hd4843948670%_) + (let ((_%e4844248676%_ + (gx#syntax-e _%hd4843948670%_))) + (let ((_%lp-tl4844448683%_ (let () (declare (not safe)) - (##cdr _%e4837948613%_))) - (_%lp-hd4838048617%_ + (##cdr _%e4844248676%_))) + (_%lp-hd4844348680%_ (let () (declare (not safe)) - (##car _%e4837948613%_)))) - (_%loop4837848603%_ - _%lp-tl4838148620%_ - (cons _%lp-hd4838048617%_ - _%body4838248610%_)))) - (let ((_%body4838348623%_ - (reverse _%body4838248610%_))) - (let ((_%L48627%_ _%body4838348623%_) - (_%L48629%_ _%hd4837348591%_) - (_%L48630%_ _%hd4836748571%_)) + (##car _%e4844248676%_)))) + (_%loop4844148666%_ + _%lp-tl4844448683%_ + (cons _%lp-hd4844348680%_ + _%body4844548673%_)))) + (let ((_%body4844648686%_ + (reverse _%body4844548673%_))) + (let ((_%L48690%_ _%body4844648686%_) + (_%L48692%_ _%hd4843648654%_) + (_%L48693%_ _%hd4843048634%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L48629%_)) - (_%__kont7894378944%_ - _%L48627%_ - _%L48629%_ - _%L48630%_) + _%L48692%_)) + (_%__kont7981879819%_ + _%L48690%_ + _%L48692%_ + _%L48693%_) (let () (declare (not safe)) - (_%g4827348416%_))))))))) - (_%loop4837848603%_ _%target4837548597%_ '())))) - (_%__match7907979080%_ - (lambda (_%e4833348669%_ - _%hd4833448673%_ - _%tl4833548676%_ - _%e4833648679%_ - _%hd4833748683%_ - _%tl4833848686%_ - _%e4833948689%_ - _%hd4834048693%_ - _%tl4834148696%_ - _%e4834248699%_ - _%hd4834348703%_ - _%tl4834448706%_ - _%e4834548709%_ - _%hd4834648713%_ - _%tl4834748716%_ - _%__splice7894178942%_ - _%target4834848719%_ - _%tl4835048722%_) - (letrec ((_%loop4835148725%_ - (lambda (_%hd4834948729%_ _%body4835548732%_) - (if (gx#stx-pair? _%hd4834948729%_) - (let ((_%e4835248735%_ - (gx#syntax-e _%hd4834948729%_))) - (let ((_%lp-tl4835448742%_ + (_%g4833648479%_))))))))) + (_%loop4844148666%_ _%target4843848660%_ '())))) + (_%__match7995479955%_ + (lambda (_%e4839648732%_ + _%hd4839748736%_ + _%tl4839848739%_ + _%e4839948742%_ + _%hd4840048746%_ + _%tl4840148749%_ + _%e4840248752%_ + _%hd4840348756%_ + _%tl4840448759%_ + _%e4840548762%_ + _%hd4840648766%_ + _%tl4840748769%_ + _%e4840848772%_ + _%hd4840948776%_ + _%tl4841048779%_ + _%__splice7981679817%_ + _%target4841148782%_ + _%tl4841348785%_) + (letrec ((_%loop4841448788%_ + (lambda (_%hd4841248792%_ _%body4841848795%_) + (if (gx#stx-pair? _%hd4841248792%_) + (let ((_%e4841548798%_ + (gx#syntax-e _%hd4841248792%_))) + (let ((_%lp-tl4841748805%_ (let () (declare (not safe)) - (##cdr _%e4835248735%_))) - (_%lp-hd4835348739%_ + (##cdr _%e4841548798%_))) + (_%lp-hd4841648802%_ (let () (declare (not safe)) - (##car _%e4835248735%_)))) - (_%loop4835148725%_ - _%lp-tl4835448742%_ - (cons _%lp-hd4835348739%_ - _%body4835548732%_)))) - (let ((_%body4835648745%_ - (reverse _%body4835548732%_))) - (let ((_%L48749%_ _%body4835648745%_) - (_%L48751%_ _%hd4834648713%_) - (_%L48752%_ _%hd4834048693%_)) + (##car _%e4841548798%_)))) + (_%loop4841448788%_ + _%lp-tl4841748805%_ + (cons _%lp-hd4841648802%_ + _%body4841848795%_)))) + (let ((_%body4841948808%_ + (reverse _%body4841848795%_))) + (let ((_%L48812%_ _%body4841948808%_) + (_%L48814%_ _%hd4840948776%_) + (_%L48815%_ _%hd4840348756%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L48751%_)) - (_%__kont7893978940%_ - _%L48749%_ - _%L48751%_ - _%L48752%_) + _%L48814%_)) + (_%__kont7981479815%_ + _%L48812%_ + _%L48814%_ + _%L48815%_) (let () (declare (not safe)) - (_%g4827348416%_))))))))) - (_%loop4835148725%_ _%target4834848719%_ '())))) - (_%__match7903579036%_ - (lambda (_%e4830648791%_ - _%hd4830748795%_ - _%tl4830848798%_ - _%e4830948801%_ - _%hd4831048805%_ - _%tl4831148808%_ - _%e4831248811%_ - _%hd4831348815%_ - _%tl4831448818%_ - _%e4831548821%_ - _%hd4831648825%_ - _%tl4831748828%_ - _%e4831848831%_ - _%hd4831948835%_ - _%tl4832048838%_ - _%__splice7893778938%_ - _%target4832148841%_ - _%tl4832348844%_) - (letrec ((_%loop4832448847%_ - (lambda (_%hd4832248851%_ _%body4832848854%_) - (if (gx#stx-pair? _%hd4832248851%_) - (let ((_%e4832548857%_ - (gx#syntax-e _%hd4832248851%_))) - (let ((_%lp-tl4832748864%_ + (_%g4833648479%_))))))))) + (_%loop4841448788%_ _%target4841148782%_ '())))) + (_%__match7991079911%_ + (lambda (_%e4836948854%_ + _%hd4837048858%_ + _%tl4837148861%_ + _%e4837248864%_ + _%hd4837348868%_ + _%tl4837448871%_ + _%e4837548874%_ + _%hd4837648878%_ + _%tl4837748881%_ + _%e4837848884%_ + _%hd4837948888%_ + _%tl4838048891%_ + _%e4838148894%_ + _%hd4838248898%_ + _%tl4838348901%_ + _%__splice7981279813%_ + _%target4838448904%_ + _%tl4838648907%_) + (letrec ((_%loop4838748910%_ + (lambda (_%hd4838548914%_ _%body4839148917%_) + (if (gx#stx-pair? _%hd4838548914%_) + (let ((_%e4838848920%_ + (gx#syntax-e _%hd4838548914%_))) + (let ((_%lp-tl4839048927%_ (let () (declare (not safe)) - (##cdr _%e4832548857%_))) - (_%lp-hd4832648861%_ + (##cdr _%e4838848920%_))) + (_%lp-hd4838948924%_ (let () (declare (not safe)) - (##car _%e4832548857%_)))) - (_%loop4832448847%_ - _%lp-tl4832748864%_ - (cons _%lp-hd4832648861%_ - _%body4832848854%_)))) - (let ((_%body4832948867%_ - (reverse _%body4832848854%_))) - (let ((_%L48871%_ _%body4832948867%_) - (_%L48873%_ _%hd4831948835%_) - (_%L48874%_ _%hd4831348815%_)) + (##car _%e4838848920%_)))) + (_%loop4838748910%_ + _%lp-tl4839048927%_ + (cons _%lp-hd4838948924%_ + _%body4839148917%_)))) + (let ((_%body4839248930%_ + (reverse _%body4839148917%_))) + (let ((_%L48934%_ _%body4839248930%_) + (_%L48936%_ _%hd4838248898%_) + (_%L48937%_ _%hd4837648878%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L48873%_)) - (_%__kont7893578936%_ - _%L48871%_ - _%L48873%_ - _%L48874%_) + _%L48936%_)) + (_%__kont7981079811%_ + _%L48934%_ + _%L48936%_ + _%L48937%_) (let () (declare (not safe)) - (_%g4827348416%_))))))))) - (_%loop4832448847%_ _%target4832148841%_ '())))) - (_%__match7901579016%_ - (lambda (_%e4830648791%_ - _%hd4830748795%_ - _%tl4830848798%_ - _%e4830948801%_ - _%hd4831048805%_ - _%tl4831148808%_ - _%e4831248811%_ - _%hd4831348815%_ - _%tl4831448818%_ - _%e4831548821%_ - _%hd4831648825%_ - _%tl4831748828%_) - (if (gx#identifier? _%hd4831648825%_) + (_%g4833648479%_))))))))) + (_%loop4838748910%_ _%target4838448904%_ '())))) + (_%__match7989079891%_ + (lambda (_%e4836948854%_ + _%hd4837048858%_ + _%tl4837148861%_ + _%e4837248864%_ + _%hd4837348868%_ + _%tl4837448871%_ + _%e4837548874%_ + _%hd4837648878%_ + _%tl4837748881%_ + _%e4837848884%_ + _%hd4837948888%_ + _%tl4838048891%_) + (if (gx#identifier? _%hd4837948888%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84027_| - _%hd4831648825%_) - (if (gx#stx-pair? _%tl4831748828%_) - (let ((_%e4831848831%_ - (gx#syntax-e _%tl4831748828%_))) - (let ((_%tl4832048838%_ + |gerbil/core/contract~Using[1]#_g85012_| + _%hd4837948888%_) + (if (gx#stx-pair? _%tl4838048891%_) + (let ((_%e4838148894%_ + (gx#syntax-e _%tl4838048891%_))) + (let ((_%tl4838348901%_ (let () (declare (not safe)) - (##cdr _%e4831848831%_))) - (_%hd4831948835%_ + (##cdr _%e4838148894%_))) + (_%hd4838248898%_ (let () (declare (not safe)) - (##car _%e4831848831%_)))) - (if (gx#stx-null? _%tl4832048838%_) + (##car _%e4838148894%_)))) + (if (gx#stx-null? _%tl4838348901%_) (if (gx#stx-pair/null? - _%tl4831148808%_) - (let ((_%__splice7893778938%_ + _%tl4837448871%_) + (let ((_%__splice7981279813%_ (gx#syntax-split-splice - _%tl4831148808%_ + _%tl4837448871%_ '0))) - (let ((_%tl4832348844%_ + (let ((_%tl4838648907%_ (let () (declare (not safe)) (##vector-ref - _%__splice7893778938%_ + _%__splice7981279813%_ '1))) - (_%target4832148841%_ + (_%target4838448904%_ (let () (declare (not safe)) (##vector-ref - _%__splice7893778938%_ + _%__splice7981279813%_ '0)))) (if (gx#stx-null? - _%tl4832348844%_) - (_%__match7903579036%_ - _%e4830648791%_ - _%hd4830748795%_ - _%tl4830848798%_ - _%e4830948801%_ - _%hd4831048805%_ - _%tl4831148808%_ - _%e4831248811%_ - _%hd4831348815%_ - _%tl4831448818%_ - _%e4831548821%_ - _%hd4831648825%_ - _%tl4831748828%_ - _%e4831848831%_ - _%hd4831948835%_ - _%tl4832048838%_ - _%__splice7893778938%_ - _%target4832148841%_ - _%tl4832348844%_) + _%tl4838648907%_) + (_%__match7991079911%_ + _%e4836948854%_ + _%hd4837048858%_ + _%tl4837148861%_ + _%e4837248864%_ + _%hd4837348868%_ + _%tl4837448871%_ + _%e4837548874%_ + _%hd4837648878%_ + _%tl4837748881%_ + _%e4837848884%_ + _%hd4837948888%_ + _%tl4838048891%_ + _%e4838148894%_ + _%hd4838248898%_ + _%tl4838348901%_ + _%__splice7981279813%_ + _%target4838448904%_ + _%tl4838648907%_) (let () (declare (not safe)) - (_%g4827348416%_))))) + (_%g4833648479%_))))) (let () (declare (not safe)) - (_%g4827348416%_))) + (_%g4833648479%_))) (let () (declare (not safe)) - (_%g4827348416%_))))) + (_%g4833648479%_))))) (let () (declare (not safe)) - (_%g4827348416%_))) + (_%g4833648479%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84028_| - _%hd4831648825%_) - (if (gx#stx-pair? _%tl4831748828%_) - (let ((_%e4834548709%_ - (gx#syntax-e _%tl4831748828%_))) - (let ((_%tl4834748716%_ + |gerbil/core/contract~Using[1]#_g85013_| + _%hd4837948888%_) + (if (gx#stx-pair? _%tl4838048891%_) + (let ((_%e4840848772%_ + (gx#syntax-e _%tl4838048891%_))) + (let ((_%tl4841048779%_ (let () (declare (not safe)) - (##cdr _%e4834548709%_))) - (_%hd4834648713%_ + (##cdr _%e4840848772%_))) + (_%hd4840948776%_ (let () (declare (not safe)) - (##car _%e4834548709%_)))) - (if (gx#stx-null? _%tl4834748716%_) + (##car _%e4840848772%_)))) + (if (gx#stx-null? _%tl4841048779%_) (if (gx#stx-pair/null? - _%tl4831148808%_) - (let ((_%__splice7894178942%_ + _%tl4837448871%_) + (let ((_%__splice7981679817%_ (gx#syntax-split-splice - _%tl4831148808%_ + _%tl4837448871%_ '0))) - (let ((_%tl4835048722%_ + (let ((_%tl4841348785%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice7894178942%_ '1))) - (_%target4834848719%_ + (##vector-ref _%__splice7981679817%_ '1))) + (_%target4841148782%_ (let () (declare (not safe)) - (##vector-ref _%__splice7894178942%_ '0)))) - (if (gx#stx-null? _%tl4835048722%_) - (_%__match7907979080%_ - _%e4830648791%_ - _%hd4830748795%_ - _%tl4830848798%_ - _%e4830948801%_ - _%hd4831048805%_ - _%tl4831148808%_ - _%e4831248811%_ - _%hd4831348815%_ - _%tl4831448818%_ - _%e4831548821%_ - _%hd4831648825%_ - _%tl4831748828%_ - _%e4834548709%_ - _%hd4834648713%_ - _%tl4834748716%_ - _%__splice7894178942%_ - _%target4834848719%_ - _%tl4835048722%_) - (let () (declare (not safe)) (_%g4827348416%_))))) + (##vector-ref _%__splice7981679817%_ '0)))) + (if (gx#stx-null? _%tl4841348785%_) + (_%__match7995479955%_ + _%e4836948854%_ + _%hd4837048858%_ + _%tl4837148861%_ + _%e4837248864%_ + _%hd4837348868%_ + _%tl4837448871%_ + _%e4837548874%_ + _%hd4837648878%_ + _%tl4837748881%_ + _%e4837848884%_ + _%hd4837948888%_ + _%tl4838048891%_ + _%e4840848772%_ + _%hd4840948776%_ + _%tl4841048779%_ + _%__splice7981679817%_ + _%target4841148782%_ + _%tl4841348785%_) + (let () (declare (not safe)) (_%g4833648479%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4827348416%_))) + (_%g4833648479%_))) (let () (declare (not safe)) - (_%g4827348416%_))))) + (_%g4833648479%_))))) (let () (declare (not safe)) - (_%g4827348416%_))) + (_%g4833648479%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84029_| - _%hd4831648825%_) - (if (gx#stx-pair? _%tl4831748828%_) - (let ((_%e4837248587%_ + |gerbil/core/contract~Using[1]#_g85014_| + _%hd4837948888%_) + (if (gx#stx-pair? _%tl4838048891%_) + (let ((_%e4843548650%_ (gx#syntax-e - _%tl4831748828%_))) - (let ((_%tl4837448594%_ + _%tl4838048891%_))) + (let ((_%tl4843748657%_ (let () (declare (not safe)) - (##cdr _%e4837248587%_))) - (_%hd4837348591%_ + (##cdr _%e4843548650%_))) + (_%hd4843648654%_ (let () (declare (not safe)) - (##car _%e4837248587%_)))) + (##car _%e4843548650%_)))) (if (gx#stx-null? - _%tl4837448594%_) + _%tl4843748657%_) (if (gx#stx-pair/null? - _%tl4831148808%_) - (let ((_%__splice7894578946%_ + _%tl4837448871%_) + (let ((_%__splice7982079821%_ (gx#syntax-split-splice - _%tl4831148808%_ + _%tl4837448871%_ '0))) - (let ((_%tl4837748600%_ + (let ((_%tl4844048663%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice7894578946%_ '1))) - (_%target4837548597%_ + (##vector-ref _%__splice7982079821%_ '1))) + (_%target4843848660%_ (let () (declare (not safe)) - (##vector-ref _%__splice7894578946%_ '0)))) - (if (gx#stx-null? _%tl4837748600%_) - (_%__match7912379124%_ - _%e4830648791%_ - _%hd4830748795%_ - _%tl4830848798%_ - _%e4830948801%_ - _%hd4831048805%_ - _%tl4831148808%_ - _%e4831248811%_ - _%hd4831348815%_ - _%tl4831448818%_ - _%e4831548821%_ - _%hd4831648825%_ - _%tl4831748828%_ - _%e4837248587%_ - _%hd4837348591%_ - _%tl4837448594%_ - _%__splice7894578946%_ - _%target4837548597%_ - _%tl4837748600%_) - (let () (declare (not safe)) (_%g4827348416%_))))) - (let () (declare (not safe)) (_%g4827348416%_))) + (##vector-ref _%__splice7982079821%_ '0)))) + (if (gx#stx-null? _%tl4844048663%_) + (_%__match7999879999%_ + _%e4836948854%_ + _%hd4837048858%_ + _%tl4837148861%_ + _%e4837248864%_ + _%hd4837348868%_ + _%tl4837448871%_ + _%e4837548874%_ + _%hd4837648878%_ + _%tl4837748881%_ + _%e4837848884%_ + _%hd4837948888%_ + _%tl4838048891%_ + _%e4843548650%_ + _%hd4843648654%_ + _%tl4843748657%_ + _%__splice7982079821%_ + _%target4843848660%_ + _%tl4844048663%_) + (let () (declare (not safe)) (_%g4833648479%_))))) + (let () (declare (not safe)) (_%g4833648479%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4827348416%_))))) + (_%g4833648479%_))))) (let () (declare (not safe)) - (_%g4827348416%_))) + (_%g4833648479%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84030_| - _%hd4831648825%_) - (if (gx#stx-pair? _%tl4831748828%_) - (let ((_%e4839948463%_ + |gerbil/core/contract~Using[1]#_g85015_| + _%hd4837948888%_) + (if (gx#stx-pair? _%tl4838048891%_) + (let ((_%e4846248526%_ (gx#syntax-e - _%tl4831748828%_))) - (let ((_%tl4840148470%_ + _%tl4838048891%_))) + (let ((_%tl4846448533%_ (let () (declare (not safe)) - (##cdr _%e4839948463%_))) - (_%hd4840048467%_ + (##cdr _%e4846248526%_))) + (_%hd4846348530%_ (let () (declare (not safe)) - (##car _%e4839948463%_)))) + (##car _%e4846248526%_)))) (if (gx#stx-null? - _%tl4840148470%_) + _%tl4846448533%_) (if (gx#stx-pair/null? - _%tl4831148808%_) - (let ((_%__splice7894978950%_ + _%tl4837448871%_) + (let ((_%__splice7982479825%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4831148808%_ '0))) - (let ((_%tl4840448476%_ + (gx#syntax-split-splice _%tl4837448871%_ '0))) + (let ((_%tl4846748539%_ (let () (declare (not safe)) - (##vector-ref _%__splice7894978950%_ '1))) - (_%target4840248473%_ + (##vector-ref _%__splice7982479825%_ '1))) + (_%target4846548536%_ (let () (declare (not safe)) - (##vector-ref _%__splice7894978950%_ '0)))) - (if (gx#stx-null? _%tl4840448476%_) - (_%__match7916779168%_ - _%e4830648791%_ - _%hd4830748795%_ - _%tl4830848798%_ - _%e4830948801%_ - _%hd4831048805%_ - _%tl4831148808%_ - _%e4831248811%_ - _%hd4831348815%_ - _%tl4831448818%_ - _%e4831548821%_ - _%hd4831648825%_ - _%tl4831748828%_ - _%e4839948463%_ - _%hd4840048467%_ - _%tl4840148470%_ - _%__splice7894978950%_ - _%target4840248473%_ - _%tl4840448476%_) - (let () (declare (not safe)) (_%g4827348416%_))))) - (let () (declare (not safe)) (_%g4827348416%_))) - (let () (declare (not safe)) (_%g4827348416%_))))) + (##vector-ref _%__splice7982479825%_ '0)))) + (if (gx#stx-null? _%tl4846748539%_) + (_%__match8004280043%_ + _%e4836948854%_ + _%hd4837048858%_ + _%tl4837148861%_ + _%e4837248864%_ + _%hd4837348868%_ + _%tl4837448871%_ + _%e4837548874%_ + _%hd4837648878%_ + _%tl4837748881%_ + _%e4837848884%_ + _%hd4837948888%_ + _%tl4838048891%_ + _%e4846248526%_ + _%hd4846348530%_ + _%tl4846448533%_ + _%__splice7982479825%_ + _%target4846548536%_ + _%tl4846748539%_) + (let () (declare (not safe)) (_%g4833648479%_))))) + (let () (declare (not safe)) (_%g4833648479%_))) + (let () (declare (not safe)) (_%g4833648479%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4827348416%_))) + (_%g4833648479%_))) (let () (declare (not safe)) - (_%g4827348416%_)))))) - (let () (declare (not safe)) (_%g4827348416%_))))) - (_%__match7899178992%_ - (lambda (_%e4827948913%_ - _%hd4828048917%_ - _%tl4828148920%_ - _%e4828248923%_ - _%hd4828348927%_ - _%tl4828448930%_ - _%e4828548933%_ - _%hd4828648937%_ - _%tl4828748940%_ - _%e4828848943%_ - _%hd4828948947%_ - _%tl4829048950%_ - _%e4829148953%_ - _%hd4829248957%_ - _%tl4829348960%_ - _%__splice7893378934%_ - _%target4829448963%_ - _%tl4829648966%_) - (letrec ((_%loop4829748969%_ - (lambda (_%hd4829548973%_ _%body4830148976%_) - (if (gx#stx-pair? _%hd4829548973%_) - (let ((_%e4829848979%_ - (gx#syntax-e _%hd4829548973%_))) - (let ((_%lp-tl4830048986%_ + (_%g4833648479%_)))))) + (let () (declare (not safe)) (_%g4833648479%_))))) + (_%__match7986679867%_ + (lambda (_%e4834248976%_ + _%hd4834348980%_ + _%tl4834448983%_ + _%e4834548986%_ + _%hd4834648990%_ + _%tl4834748993%_ + _%e4834848996%_ + _%hd4834949000%_ + _%tl4835049003%_ + _%e4835149006%_ + _%hd4835249010%_ + _%tl4835349013%_ + _%e4835449016%_ + _%hd4835549020%_ + _%tl4835649023%_ + _%__splice7980879809%_ + _%target4835749026%_ + _%tl4835949029%_) + (letrec ((_%loop4836049032%_ + (lambda (_%hd4835849036%_ _%body4836449039%_) + (if (gx#stx-pair? _%hd4835849036%_) + (let ((_%e4836149042%_ + (gx#syntax-e _%hd4835849036%_))) + (let ((_%lp-tl4836349049%_ (let () (declare (not safe)) - (##cdr _%e4829848979%_))) - (_%lp-hd4829948983%_ + (##cdr _%e4836149042%_))) + (_%lp-hd4836249046%_ (let () (declare (not safe)) - (##car _%e4829848979%_)))) - (_%loop4829748969%_ - _%lp-tl4830048986%_ - (cons _%lp-hd4829948983%_ - _%body4830148976%_)))) - (let ((_%body4830248989%_ - (reverse _%body4830148976%_))) - (let ((_%L48993%_ _%body4830248989%_) - (_%L48995%_ _%hd4829248957%_) - (_%L48996%_ _%hd4828948947%_) - (_%L48997%_ _%hd4828648937%_)) - (if (let ((__tmp84031 + (##car _%e4836149042%_)))) + (_%loop4836049032%_ + _%lp-tl4836349049%_ + (cons _%lp-hd4836249046%_ + _%body4836449039%_)))) + (let ((_%body4836549052%_ + (reverse _%body4836449039%_))) + (let ((_%L49056%_ _%body4836549052%_) + (_%L49058%_ _%hd4835549020%_) + (_%L49059%_ _%hd4835249010%_) + (_%L49060%_ _%hd4834949000%_)) + (if (let ((__tmp85016 (gx#syntax-local-value - _%L48995%_ + _%L49058%_ false))) (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - __tmp84031)) - (_%__kont7893178932%_ - _%L48993%_ - _%L48995%_ - _%L48996%_ - _%L48997%_) - (_%__match7901579016%_ - _%e4827948913%_ - _%hd4828048917%_ - _%tl4828148920%_ - _%e4828248923%_ - _%hd4828348927%_ - _%tl4828448930%_ - _%e4828548933%_ - _%hd4828648937%_ - _%tl4828748940%_ - _%e4828848943%_ - _%hd4828948947%_ - _%tl4829048950%_)))))))) - (_%loop4829748969%_ _%target4829448963%_ '()))))) - (if (gx#stx-pair? _%__stx7892878929%_) - (let ((_%e4827948913%_ (gx#syntax-e _%__stx7892878929%_))) - (let ((_%tl4828148920%_ + __tmp85016)) + (_%__kont7980679807%_ + _%L49056%_ + _%L49058%_ + _%L49059%_ + _%L49060%_) + (_%__match7989079891%_ + _%e4834248976%_ + _%hd4834348980%_ + _%tl4834448983%_ + _%e4834548986%_ + _%hd4834648990%_ + _%tl4834748993%_ + _%e4834848996%_ + _%hd4834949000%_ + _%tl4835049003%_ + _%e4835149006%_ + _%hd4835249010%_ + _%tl4835349013%_)))))))) + (_%loop4836049032%_ _%target4835749026%_ '()))))) + (if (gx#stx-pair? _%__stx7980379804%_) + (let ((_%e4834248976%_ (gx#syntax-e _%__stx7980379804%_))) + (let ((_%tl4834448983%_ (let () (declare (not safe)) - (##cdr _%e4827948913%_))) - (_%hd4828048917%_ + (##cdr _%e4834248976%_))) + (_%hd4834348980%_ (let () (declare (not safe)) - (##car _%e4827948913%_)))) - (if (gx#stx-pair? _%tl4828148920%_) - (let ((_%e4828248923%_ - (gx#syntax-e _%tl4828148920%_))) - (let ((_%tl4828448930%_ + (##car _%e4834248976%_)))) + (if (gx#stx-pair? _%tl4834448983%_) + (let ((_%e4834548986%_ + (gx#syntax-e _%tl4834448983%_))) + (let ((_%tl4834748993%_ (let () (declare (not safe)) - (##cdr _%e4828248923%_))) - (_%hd4828348927%_ + (##cdr _%e4834548986%_))) + (_%hd4834648990%_ (let () (declare (not safe)) - (##car _%e4828248923%_)))) - (if (gx#stx-pair? _%hd4828348927%_) - (let ((_%e4828548933%_ - (gx#syntax-e _%hd4828348927%_))) - (let ((_%tl4828748940%_ + (##car _%e4834548986%_)))) + (if (gx#stx-pair? _%hd4834648990%_) + (let ((_%e4834848996%_ + (gx#syntax-e _%hd4834648990%_))) + (let ((_%tl4835049003%_ (let () (declare (not safe)) - (##cdr _%e4828548933%_))) - (_%hd4828648937%_ + (##cdr _%e4834848996%_))) + (_%hd4834949000%_ (let () (declare (not safe)) - (##car _%e4828548933%_)))) - (if (gx#stx-pair? _%tl4828748940%_) - (let ((_%e4828848943%_ + (##car _%e4834848996%_)))) + (if (gx#stx-pair? _%tl4835049003%_) + (let ((_%e4835149006%_ (gx#syntax-e - _%tl4828748940%_))) - (let ((_%tl4829048950%_ + _%tl4835049003%_))) + (let ((_%tl4835349013%_ (let () (declare (not safe)) - (##cdr _%e4828848943%_))) - (_%hd4828948947%_ + (##cdr _%e4835149006%_))) + (_%hd4835249010%_ (let () (declare (not safe)) - (##car _%e4828848943%_)))) + (##car _%e4835149006%_)))) (if (gx#stx-pair? - _%tl4829048950%_) - (let ((_%e4829148953%_ + _%tl4835349013%_) + (let ((_%e4835449016%_ (gx#syntax-e - _%tl4829048950%_))) - (let ((_%tl4829348960%_ + _%tl4835349013%_))) + (let ((_%tl4835649023%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4829148953%_))) - (_%hd4829248957%_ - (let () (declare (not safe)) (##car _%e4829148953%_)))) - (if (gx#stx-null? _%tl4829348960%_) - (if (gx#stx-pair/null? _%tl4828448930%_) - (let ((_%__splice7893378934%_ - (gx#syntax-split-splice _%tl4828448930%_ '0))) - (let ((_%tl4829648966%_ + (##cdr _%e4835449016%_))) + (_%hd4835549020%_ + (let () (declare (not safe)) (##car _%e4835449016%_)))) + (if (gx#stx-null? _%tl4835649023%_) + (if (gx#stx-pair/null? _%tl4834748993%_) + (let ((_%__splice7980879809%_ + (gx#syntax-split-splice _%tl4834748993%_ '0))) + (let ((_%tl4835949029%_ (let () (declare (not safe)) - (##vector-ref _%__splice7893378934%_ '1))) - (_%target4829448963%_ + (##vector-ref _%__splice7980879809%_ '1))) + (_%target4835749026%_ (let () (declare (not safe)) - (##vector-ref _%__splice7893378934%_ '0)))) - (if (gx#stx-null? _%tl4829648966%_) - (_%__match7899178992%_ - _%e4827948913%_ - _%hd4828048917%_ - _%tl4828148920%_ - _%e4828248923%_ - _%hd4828348927%_ - _%tl4828448930%_ - _%e4828548933%_ - _%hd4828648937%_ - _%tl4828748940%_ - _%e4828848943%_ - _%hd4828948947%_ - _%tl4829048950%_ - _%e4829148953%_ - _%hd4829248957%_ - _%tl4829348960%_ - _%__splice7893378934%_ - _%target4829448963%_ - _%tl4829648966%_) + (##vector-ref _%__splice7980879809%_ '0)))) + (if (gx#stx-null? _%tl4835949029%_) + (_%__match7986679867%_ + _%e4834248976%_ + _%hd4834348980%_ + _%tl4834448983%_ + _%e4834548986%_ + _%hd4834648990%_ + _%tl4834748993%_ + _%e4834848996%_ + _%hd4834949000%_ + _%tl4835049003%_ + _%e4835149006%_ + _%hd4835249010%_ + _%tl4835349013%_ + _%e4835449016%_ + _%hd4835549020%_ + _%tl4835649023%_ + _%__splice7980879809%_ + _%target4835749026%_ + _%tl4835949029%_) (let () (declare (not safe)) - (_%g4827348416%_))))) - (let () (declare (not safe)) (_%g4827348416%_))) - (let () (declare (not safe)) (_%g4827348416%_))))) + (_%g4833648479%_))))) + (let () (declare (not safe)) (_%g4833648479%_))) + (let () (declare (not safe)) (_%g4833648479%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4827348416%_))))) + (_%g4833648479%_))))) (let () (declare (not safe)) - (_%g4827348416%_))))) + (_%g4833648479%_))))) (let () (declare (not safe)) - (_%g4827348416%_))))) - (let () (declare (not safe)) (_%g4827348416%_))))) - (let () (declare (not safe)) (_%g4827348416%_))))))))) + (_%g4833648479%_))))) + (let () (declare (not safe)) (_%g4833648479%_))))) + (let () (declare (not safe)) (_%g4833648479%_))))))))) (define |gerbil/core/contract~Using[:0:]#with-interface| - (lambda (_%stx49391%_) - (letrec ((_%expand-body49394%_ - (lambda (_%var50395%_ - _%Interface50397%_ - _%body50398%_ - _%checked?50399%_) - (let* ((_%type50401%_ + (lambda (_%stx49454%_) + (letrec ((_%expand-body49457%_ + (lambda (_%var50458%_ + _%Interface50460%_ + _%body50461%_ + _%checked?50462%_) + (let* ((_%type50464%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx49391%_ - _%Interface50397%_))) - (_%g5040450448%_ - (lambda (_%g5040550444%_) + _%stx49454%_ + _%Interface50460%_))) + (_%g5046750511%_ + (lambda (_%g5046850507%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5040550444%_))) - (_%g5040350606%_ - (lambda (_%g5040550452%_) - (if (gx#stx-pair? _%g5040550452%_) - (let ((_%e5041350455%_ - (gx#syntax-e _%g5040550452%_))) - (let ((_%hd5041450459%_ + _%g5046850507%_))) + (_%g5046650669%_ + (lambda (_%g5046850515%_) + (if (gx#stx-pair? _%g5046850515%_) + (let ((_%e5047650518%_ + (gx#syntax-e _%g5046850515%_))) + (let ((_%hd5047750522%_ (let () (declare (not safe)) - (##car _%e5041350455%_))) - (_%tl5041550462%_ + (##car _%e5047650518%_))) + (_%tl5047850525%_ (let () (declare (not safe)) - (##cdr _%e5041350455%_)))) - (if (gx#stx-pair? _%tl5041550462%_) - (let ((_%e5041650465%_ + (##cdr _%e5047650518%_)))) + (if (gx#stx-pair? _%tl5047850525%_) + (let ((_%e5047950528%_ (gx#syntax-e - _%tl5041550462%_))) - (let ((_%hd5041750469%_ + _%tl5047850525%_))) + (let ((_%hd5048050532%_ (let () (declare (not safe)) - (##car _%e5041650465%_))) - (_%tl5041850472%_ + (##car _%e5047950528%_))) + (_%tl5048150535%_ (let () (declare (not safe)) - (##cdr _%e5041650465%_)))) + (##cdr _%e5047950528%_)))) (if (gx#stx-pair? - _%tl5041850472%_) - (let ((_%e5041950475%_ + _%tl5048150535%_) + (let ((_%e5048250538%_ (gx#syntax-e - _%tl5041850472%_))) - (let ((_%hd5042050479%_ + _%tl5048150535%_))) + (let ((_%hd5048350542%_ (let () (declare (not safe)) - (##car _%e5041950475%_))) - (_%tl5042150482%_ + (##car _%e5048250538%_))) + (_%tl5048450545%_ (let () (declare (not safe)) - (##cdr _%e5041950475%_)))) + (##cdr _%e5048250538%_)))) (if (gx#stx-pair? - _%tl5042150482%_) - (let ((_%e5042250485%_ + _%tl5048450545%_) + (let ((_%e5048550548%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5042150482%_))) - (let ((_%hd5042350489%_ + (gx#syntax-e _%tl5048450545%_))) + (let ((_%hd5048650552%_ (let () (declare (not safe)) - (##car _%e5042250485%_))) - (_%tl5042450492%_ + (##car _%e5048550548%_))) + (_%tl5048750555%_ (let () (declare (not safe)) - (##cdr _%e5042250485%_)))) - (if (gx#stx-pair? _%tl5042450492%_) - (let ((_%e5042550495%_ - (gx#syntax-e _%tl5042450492%_))) - (let ((_%hd5042650499%_ + (##cdr _%e5048550548%_)))) + (if (gx#stx-pair? _%tl5048750555%_) + (let ((_%e5048850558%_ + (gx#syntax-e _%tl5048750555%_))) + (let ((_%hd5048950562%_ (let () (declare (not safe)) - (##car _%e5042550495%_))) - (_%tl5042750502%_ + (##car _%e5048850558%_))) + (_%tl5049050565%_ (let () (declare (not safe)) - (##cdr _%e5042550495%_)))) - (if (gx#stx-pair? _%tl5042750502%_) - (let ((_%e5042850505%_ - (gx#syntax-e _%tl5042750502%_))) - (let ((_%hd5042950509%_ + (##cdr _%e5048850558%_)))) + (if (gx#stx-pair? _%tl5049050565%_) + (let ((_%e5049150568%_ + (gx#syntax-e _%tl5049050565%_))) + (let ((_%hd5049250572%_ (let () (declare (not safe)) - (##car _%e5042850505%_))) - (_%tl5043050512%_ + (##car _%e5049150568%_))) + (_%tl5049350575%_ (let () (declare (not safe)) - (##cdr _%e5042850505%_)))) - (if (gx#stx-pair? _%tl5043050512%_) - (let ((_%e5043150515%_ + (##cdr _%e5049150568%_)))) + (if (gx#stx-pair? _%tl5049350575%_) + (let ((_%e5049450578%_ (gx#syntax-e - _%tl5043050512%_))) - (let ((_%hd5043250519%_ + _%tl5049350575%_))) + (let ((_%hd5049550582%_ (let () (declare (not safe)) - (##car _%e5043150515%_))) - (_%tl5043350522%_ + (##car _%e5049450578%_))) + (_%tl5049650585%_ (let () (declare (not safe)) - (##cdr _%e5043150515%_)))) + (##cdr _%e5049450578%_)))) (if (gx#stx-pair/null? - _%hd5043250519%_) - (let ((_g84032_ + _%hd5049550582%_) + (let ((_g85017_ (gx#syntax-split-splice - _%hd5043250519%_ + _%hd5049550582%_ '0))) (begin - (let ((_g84033_ + (let ((_g85018_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84032_) - (##vector-length _g84032_) + (if (##values? _g85017_) + (##values-length _g85017_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84033_ 2))) - (error "Context expects 2 values" _g84033_))) - (let ((_%target5043450525%_ - (let () (declare (not safe)) (##vector-ref _g84032_ 0))) - (_%tl5043650528%_ - (let () (declare (not safe)) (##vector-ref _g84032_ 1)))) - (if (gx#stx-null? _%tl5043650528%_) - (letrec ((_%loop5043750531%_ - (lambda (_%hd5043550535%_ _%body5044150538%_) - (if (gx#stx-pair? _%hd5043550535%_) - (let ((_%e5043850541%_ - (gx#syntax-e _%hd5043550535%_))) - (let ((_%lp-hd5043950545%_ + (if (not (let () (declare (not safe)) (##fx= _g85018_ 2))) + (error "Context expects 2 values" _g85018_))) + (let ((_%target5049750588%_ + (let () (declare (not safe)) (##values-ref _g85017_ 0))) + (_%tl5049950591%_ + (let () (declare (not safe)) (##values-ref _g85017_ 1)))) + (if (gx#stx-null? _%tl5049950591%_) + (letrec ((_%loop5050050594%_ + (lambda (_%hd5049850598%_ _%body5050450601%_) + (if (gx#stx-pair? _%hd5049850598%_) + (let ((_%e5050150604%_ + (gx#syntax-e _%hd5049850598%_))) + (let ((_%lp-hd5050250608%_ (let () (declare (not safe)) - (##car _%e5043850541%_))) - (_%lp-tl5044050548%_ + (##car _%e5050150604%_))) + (_%lp-tl5050350611%_ (let () (declare (not safe)) - (##cdr _%e5043850541%_)))) - (_%loop5043750531%_ - _%lp-tl5044050548%_ - (cons _%lp-hd5043950545%_ - _%body5044150538%_)))) - (let ((_%body5044250551%_ - (reverse _%body5044150538%_))) - (if (gx#stx-null? _%tl5043350522%_) - ((lambda (_%L50555%_ - _%L50557%_ - _%L50558%_ - _%L50559%_ - _%L50560%_ - _%L50561%_ - _%L50562%_) + (##cdr _%e5050150604%_)))) + (_%loop5050050594%_ + _%lp-tl5050350611%_ + (cons _%lp-hd5050250608%_ + _%body5050450601%_)))) + (let ((_%body5050550614%_ + (reverse _%body5050450601%_))) + (if (gx#stx-null? _%tl5049650585%_) + ((lambda (_%L50618%_ + _%L50620%_ + _%L50621%_ + _%L50622%_ + _%L50623%_ + _%L50624%_ + _%L50625%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L50559%_ + (cons (cons _%L50622%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L50560%_ '())) - (cons _%L50559%_ '()))) + (cons _%L50623%_ '())) + (cons _%L50622%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'let-syntax) - (cons (cons (cons _%L50562%_ + (cons (cons (cons _%L50625%_ (cons (cons (gx#datum->syntax '#f 'make-type-env) @@ -6150,131 +6150,131 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L50559%_ '())) + (cons _%L50622%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L50561%_ '())) - (cons _%L50558%_ + (cons _%L50624%_ '())) + (cons _%L50621%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L50557%_ '())) + (cons _%L50620%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g5059750600%_ + (foldr (lambda (_%g5066050663%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5059850603%_) - (cons _%g5059750600%_ _%g5059850603%_)) + _%g5066150666%_) + (cons _%g5066050663%_ _%g5066150666%_)) '() - _%L50555%_))) + _%L50618%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body5044250551%_ - _%hd5042950509%_ - _%hd5042650499%_ - _%hd5042350489%_ - _%hd5042050479%_ - _%hd5041750469%_ - _%hd5041450459%_) - (_%g5040450448%_ - _%g5040550452%_))))))) - (_%loop5043750531%_ _%target5043450525%_ '())) - (_%g5040450448%_ _%g5040550452%_))))) + _%body5050550614%_ + _%hd5049250572%_ + _%hd5048950562%_ + _%hd5048650552%_ + _%hd5048350542%_ + _%hd5048050532%_ + _%hd5047750522%_) + (_%g5046750511%_ + _%g5046850515%_))))))) + (_%loop5050050594%_ _%target5049750588%_ '())) + (_%g5046750511%_ _%g5046850515%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5040450448%_ - _%g5040550452%_)))) - (_%g5040450448%_ _%g5040550452%_)))) - (_%g5040450448%_ _%g5040550452%_)))) - (_%g5040450448%_ _%g5040550452%_)))) - (_%g5040450448%_ _%g5040550452%_)))) + (_%g5046750511%_ + _%g5046850515%_)))) + (_%g5046750511%_ _%g5046850515%_)))) + (_%g5046750511%_ _%g5046850515%_)))) + (_%g5046750511%_ _%g5046850515%_)))) + (_%g5046750511%_ _%g5046850515%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5040450448%_ - _%g5040550452%_)))) - (_%g5040450448%_ _%g5040550452%_)))) - (_%g5040450448%_ _%g5040550452%_))))) - (_%g5040350606%_ + (_%g5046750511%_ + _%g5046850515%_)))) + (_%g5046750511%_ _%g5046850515%_)))) + (_%g5046750511%_ _%g5046850515%_))))) + (_%g5046650669%_ (list (gx#syntax-local-introduce '@@type) - _%type50401%_ - (let ((__obj83867 _%type50401%_)) + _%type50464%_ + (let ((__obj84835 _%type50464%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83867 + __obj84835 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83867 - '4 + __obj84835 + '7 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83867 + __obj84835 'instance-type))) - _%var50395%_ - _%checked?50399%_ + _%var50458%_ + _%checked?50462%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#current-type-env)) - _%body50398%_))))) - (_%expand49396%_ - (lambda (_%var50194%_ - _%Interface50196%_ - _%body50197%_ - _%checked?50198%_ - _%checked-methods?50199%_ - _%maybe?50200%_) - (let* ((_%g5020250210%_ - (lambda (_%g5020350206%_) + _%body50461%_))))) + (_%expand49459%_ + (lambda (_%var50257%_ + _%Interface50259%_ + _%body50260%_ + _%checked?50261%_ + _%checked-methods?50262%_ + _%maybe?50263%_) + (let* ((_%g5026550273%_ + (lambda (_%g5026650269%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5020350206%_))) - (_%g5020150387%_ - (lambda (_%g5020350214%_) - ((lambda (_%L50217%_) - (if _%checked?50198%_ - (if _%maybe?50200%_ - (let* ((_%g5022950244%_ - (lambda (_%g5023050240%_) + _%g5026650269%_))) + (_%g5026450450%_ + (lambda (_%g5026650277%_) + ((lambda (_%L50280%_) + (if _%checked?50261%_ + (if _%maybe?50263%_ + (let* ((_%g5029250307%_ + (lambda (_%g5029350303%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5023050240%_))) - (_%g5022850290%_ - (lambda (_%g5023050248%_) + _%g5029350303%_))) + (_%g5029150353%_ + (lambda (_%g5029350311%_) (if (gx#stx-pair? - _%g5023050248%_) - (let ((_%e5023350251%_ + _%g5029350311%_) + (let ((_%e5029650314%_ (gx#syntax-e - _%g5023050248%_))) - (let ((_%hd5023450255%_ + _%g5029350311%_))) + (let ((_%hd5029750318%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e5023350251%_))) - (_%tl5023550258%_ - (let () (declare (not safe)) (##cdr _%e5023350251%_)))) - (if (gx#stx-pair? _%tl5023550258%_) - (let ((_%e5023650261%_ (gx#syntax-e _%tl5023550258%_))) - (let ((_%hd5023750265%_ + (##car _%e5029650314%_))) + (_%tl5029850321%_ + (let () (declare (not safe)) (##cdr _%e5029650314%_)))) + (if (gx#stx-pair? _%tl5029850321%_) + (let ((_%e5029950324%_ (gx#syntax-e _%tl5029850321%_))) + (let ((_%hd5030050328%_ (let () (declare (not safe)) - (##car _%e5023650261%_))) - (_%tl5023850268%_ + (##car _%e5029950324%_))) + (_%tl5030150331%_ (let () (declare (not safe)) - (##cdr _%e5023650261%_)))) - (if (gx#stx-null? _%tl5023850268%_) - ((lambda (_%L50271%_ _%L50273%_) + (##cdr _%e5029950324%_)))) + (if (gx#stx-null? _%tl5030150331%_) + ((lambda (_%L50334%_ _%L50336%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L50273%_ - (cons (cons _%L50271%_ - (cons _%L50273%_ + (cons (cons _%L50336%_ + (cons (cons _%L50334%_ + (cons _%L50336%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -6282,2653 +6282,2653 @@ (cons (cons (gx#datum->syntax '#f 'if) - (cons _%L50273%_ - (cons _%L50217%_ + (cons _%L50336%_ + (cons _%L50280%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'nil-dereference!) - (cons _%L50273%_ '())) + (cons _%L50336%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd5023750265%_ - _%hd5023450255%_) - (_%g5022950244%_ _%g5023050248%_)))) - (_%g5022950244%_ _%g5023050248%_)))) - (_%g5022950244%_ _%g5023050248%_))))) + _%hd5030050328%_ + _%hd5029750318%_) + (_%g5029250307%_ _%g5029350311%_)))) + (_%g5029250307%_ _%g5029350311%_)))) + (_%g5029250307%_ _%g5029350311%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5022850290%_ - (list _%var50194%_ - _%Interface50196%_))) - (let* ((_%g5029450309%_ - (lambda (_%g5029550305%_) + (_%g5029150353%_ + (list _%var50257%_ + _%Interface50259%_))) + (let* ((_%g5035750372%_ + (lambda (_%g5035850368%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5029550305%_))) - (_%g5029350353%_ - (lambda (_%g5029550313%_) + _%g5035850368%_))) + (_%g5035650416%_ + (lambda (_%g5035850376%_) (if (gx#stx-pair? - _%g5029550313%_) - (let ((_%e5029850316%_ + _%g5035850376%_) + (let ((_%e5036150379%_ (gx#syntax-e - _%g5029550313%_))) - (let ((_%hd5029950320%_ + _%g5035850376%_))) + (let ((_%hd5036250383%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e5029850316%_))) - (_%tl5030050323%_ - (let () (declare (not safe)) (##cdr _%e5029850316%_)))) - (if (gx#stx-pair? _%tl5030050323%_) - (let ((_%e5030150326%_ (gx#syntax-e _%tl5030050323%_))) - (let ((_%hd5030250330%_ + (##car _%e5036150379%_))) + (_%tl5036350386%_ + (let () (declare (not safe)) (##cdr _%e5036150379%_)))) + (if (gx#stx-pair? _%tl5036350386%_) + (let ((_%e5036450389%_ (gx#syntax-e _%tl5036350386%_))) + (let ((_%hd5036550393%_ (let () (declare (not safe)) - (##car _%e5030150326%_))) - (_%tl5030350333%_ + (##car _%e5036450389%_))) + (_%tl5036650396%_ (let () (declare (not safe)) - (##cdr _%e5030150326%_)))) - (if (gx#stx-null? _%tl5030350333%_) - ((lambda (_%L50336%_ _%L50338%_) + (##cdr _%e5036450389%_)))) + (if (gx#stx-null? _%tl5036650396%_) + ((lambda (_%L50399%_ _%L50401%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L50338%_ - (cons (cons _%L50336%_ - (cons _%L50338%_ + (cons (cons _%L50401%_ + (cons (cons _%L50399%_ + (cons _%L50401%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L50217%_ '())))) - _%hd5030250330%_ - _%hd5029950320%_) - (_%g5029450309%_ _%g5029550313%_)))) - (_%g5029450309%_ _%g5029550313%_)))) - (_%g5029450309%_ _%g5029550313%_))))) + (cons _%L50280%_ '())))) + _%hd5036550393%_ + _%hd5036250383%_) + (_%g5035750372%_ _%g5035850376%_)))) + (_%g5035750372%_ _%g5035850376%_)))) + (_%g5035750372%_ _%g5035850376%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5029350353%_ - (list _%var50194%_ - _%Interface50196%_)))) - (if _%maybe?50200%_ - (let* ((_%g5035750365%_ - (lambda (_%g5035850361%_) + (_%g5035650416%_ + (list _%var50257%_ + _%Interface50259%_)))) + (if _%maybe?50263%_ + (let* ((_%g5042050428%_ + (lambda (_%g5042150424%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5035850361%_))) - (_%g5035650383%_ - (lambda (_%g5035850369%_) - ((lambda (_%L50372%_) + _%g5042150424%_))) + (_%g5041950446%_ + (lambda (_%g5042150432%_) + ((lambda (_%L50435%_) (cons (gx#datum->syntax '#f 'if) - (cons _%L50372%_ + (cons _%L50435%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L50217%_ + (cons _%L50280%_ (cons (cons (gx#datum->syntax '#f 'nil-dereference!) - (cons _%L50372%_ '())) + (cons _%L50435%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g5035850369%_)))) - (_%g5035650383%_ _%var50194%_)) - _%L50217%_))) - _%g5020350214%_)))) - (_%g5020150387%_ - (_%expand-body49394%_ - _%var50194%_ - _%Interface50196%_ - _%body50197%_ - (let ((_%$e50391%_ _%checked?50198%_)) - (if _%$e50391%_ - _%$e50391%_ - _%checked-methods?50199%_)))))))) - (let* ((_%__stx7917079171%_ _%stx49391%_) - (_%g4940249545%_ + _%g5042150432%_)))) + (_%g5041950446%_ _%var50257%_)) + _%L50280%_))) + _%g5026650277%_)))) + (_%g5026450450%_ + (_%expand-body49457%_ + _%var50257%_ + _%Interface50259%_ + _%body50260%_ + (let ((_%$e50454%_ _%checked?50261%_)) + (if _%$e50454%_ + _%$e50454%_ + _%checked-methods?50262%_)))))))) + (let* ((_%__stx8004580046%_ _%stx49454%_) + (_%g4946549608%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7917079171%_)))) - (let ((_%__kont7917379174%_ - (lambda (_%L50122%_ _%L50124%_ _%L50125%_ _%L50126%_) - (let* ((_%g5015150159%_ - (lambda (_%g5015250155%_) + _%__stx8004580046%_)))) + (let ((_%__kont8004880049%_ + (lambda (_%L50185%_ _%L50187%_ _%L50188%_ _%L50189%_) + (let* ((_%g5021450222%_ + (lambda (_%g5021550218%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5015250155%_))) - (_%g5015050186%_ - (lambda (_%g5015250163%_) - ((lambda (_%L50166%_) + _%g5021550218%_))) + (_%g5021350249%_ + (lambda (_%g5021550226%_) + ((lambda (_%L50229%_) (cons (gx#datum->syntax '#f 'with-interface) - (cons (cons _%L50126%_ - (cons _%L50125%_ - (cons _%L50166%_ + (cons (cons _%L50189%_ + (cons _%L50188%_ + (cons _%L50229%_ '()))) - (foldr (lambda (_%g5017750180%_ - _%g5017850183%_) - (cons _%g5017750180%_ - _%g5017850183%_)) + (foldr (lambda (_%g5024050243%_ + _%g5024150246%_) + (cons _%g5024050243%_ + _%g5024150246%_)) '() - _%L50122%_)))) - _%g5015250163%_)))) - (_%g5015050186%_ - (let ((__obj83868 (gx#syntax-local-value _%L50124%_))) + _%L50185%_)))) + _%g5021550226%_)))) + (_%g5021350249%_ + (let ((__obj84836 (gx#syntax-local-value _%L50187%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83868 + __obj84836 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83868 + __obj84836 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj83868 + __obj84836 'identifier))))))) - (_%__kont7917779178%_ - (lambda (_%L50000%_ _%L50002%_ _%L50003%_) - (_%expand49396%_ - _%L50003%_ - _%L50002%_ - (foldr (lambda (_%g5002650029%_ _%g5002750032%_) - (cons _%g5002650029%_ _%g5002750032%_)) + (_%__kont8005280053%_ + (lambda (_%L50063%_ _%L50065%_ _%L50066%_) + (_%expand49459%_ + _%L50066%_ + _%L50065%_ + (foldr (lambda (_%g5008950092%_ _%g5009050095%_) + (cons _%g5008950092%_ _%g5009050095%_)) '() - _%L50000%_) + _%L50063%_) '#t '#t '#f))) - (_%__kont7918179182%_ - (lambda (_%L49878%_ _%L49880%_ _%L49881%_) - (_%expand49396%_ - _%L49881%_ - _%L49880%_ - (foldr (lambda (_%g4990449907%_ _%g4990549910%_) - (cons _%g4990449907%_ _%g4990549910%_)) + (_%__kont8005680057%_ + (lambda (_%L49941%_ _%L49943%_ _%L49944%_) + (_%expand49459%_ + _%L49944%_ + _%L49943%_ + (foldr (lambda (_%g4996749970%_ _%g4996849973%_) + (cons _%g4996749970%_ _%g4996849973%_)) '() - _%L49878%_) + _%L49941%_) '#t '#t '#t))) - (_%__kont7918579186%_ - (lambda (_%L49756%_ _%L49758%_ _%L49759%_) - (_%expand49396%_ - _%L49759%_ - _%L49758%_ - (foldr (lambda (_%g4978249785%_ _%g4978349788%_) - (cons _%g4978249785%_ _%g4978349788%_)) + (_%__kont8006080061%_ + (lambda (_%L49819%_ _%L49821%_ _%L49822%_) + (_%expand49459%_ + _%L49822%_ + _%L49821%_ + (foldr (lambda (_%g4984549848%_ _%g4984649851%_) + (cons _%g4984549848%_ _%g4984649851%_)) '() - _%L49756%_) + _%L49819%_) '#f '#f '#f))) - (_%__kont7918979190%_ - (lambda (_%L49632%_ _%L49634%_ _%L49635%_) - (_%expand49396%_ - _%L49635%_ - _%L49634%_ - (foldr (lambda (_%g4966049663%_ _%g4966149666%_) - (cons _%g4966049663%_ _%g4966149666%_)) + (_%__kont8006480065%_ + (lambda (_%L49695%_ _%L49697%_ _%L49698%_) + (_%expand49459%_ + _%L49698%_ + _%L49697%_ + (foldr (lambda (_%g4972349726%_ _%g4972449729%_) + (cons _%g4972349726%_ _%g4972449729%_)) '() - _%L49632%_) + _%L49695%_) '#f '#t '#f)))) - (let* ((_%__match7940979410%_ - (lambda (_%e4951649552%_ - _%hd4951749556%_ - _%tl4951849559%_ - _%e4951949562%_ - _%hd4952049566%_ - _%tl4952149569%_ - _%e4952249572%_ - _%hd4952349576%_ - _%tl4952449579%_ - _%e4952549582%_ - _%hd4952649586%_ - _%tl4952749589%_ - _%e4952849592%_ - _%hd4952949596%_ - _%tl4953049599%_ - _%__splice7919179192%_ - _%target4953149602%_ - _%tl4953349605%_) - (letrec ((_%loop4953449608%_ - (lambda (_%hd4953249612%_ _%body4953849615%_) - (if (gx#stx-pair? _%hd4953249612%_) - (let ((_%e4953549618%_ - (gx#syntax-e _%hd4953249612%_))) - (let ((_%lp-tl4953749625%_ + (let* ((_%__match8028480285%_ + (lambda (_%e4957949615%_ + _%hd4958049619%_ + _%tl4958149622%_ + _%e4958249625%_ + _%hd4958349629%_ + _%tl4958449632%_ + _%e4958549635%_ + _%hd4958649639%_ + _%tl4958749642%_ + _%e4958849645%_ + _%hd4958949649%_ + _%tl4959049652%_ + _%e4959149655%_ + _%hd4959249659%_ + _%tl4959349662%_ + _%__splice8006680067%_ + _%target4959449665%_ + _%tl4959649668%_) + (letrec ((_%loop4959749671%_ + (lambda (_%hd4959549675%_ _%body4960149678%_) + (if (gx#stx-pair? _%hd4959549675%_) + (let ((_%e4959849681%_ + (gx#syntax-e _%hd4959549675%_))) + (let ((_%lp-tl4960049688%_ (let () (declare (not safe)) - (##cdr _%e4953549618%_))) - (_%lp-hd4953649622%_ + (##cdr _%e4959849681%_))) + (_%lp-hd4959949685%_ (let () (declare (not safe)) - (##car _%e4953549618%_)))) - (_%loop4953449608%_ - _%lp-tl4953749625%_ - (cons _%lp-hd4953649622%_ - _%body4953849615%_)))) - (let ((_%body4953949628%_ - (reverse _%body4953849615%_))) - (let ((_%L49632%_ _%body4953949628%_) - (_%L49634%_ _%hd4952949596%_) - (_%L49635%_ _%hd4952349576%_)) + (##car _%e4959849681%_)))) + (_%loop4959749671%_ + _%lp-tl4960049688%_ + (cons _%lp-hd4959949685%_ + _%body4960149678%_)))) + (let ((_%body4960249691%_ + (reverse _%body4960149678%_))) + (let ((_%L49695%_ _%body4960249691%_) + (_%L49697%_ _%hd4959249659%_) + (_%L49698%_ _%hd4958649639%_)) (if (and (gx#identifier? - _%L49635%_) + _%L49698%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L49634%_))) - (_%__kont7918979190%_ - _%L49632%_ - _%L49634%_ - _%L49635%_) + _%L49697%_))) + (_%__kont8006480065%_ + _%L49695%_ + _%L49697%_ + _%L49698%_) (let () (declare (not safe)) - (_%g4940249545%_))))))))) - (_%loop4953449608%_ _%target4953149602%_ '())))) - (_%__match7936579366%_ - (lambda (_%e4948949676%_ - _%hd4949049680%_ - _%tl4949149683%_ - _%e4949249686%_ - _%hd4949349690%_ - _%tl4949449693%_ - _%e4949549696%_ - _%hd4949649700%_ - _%tl4949749703%_ - _%e4949849706%_ - _%hd4949949710%_ - _%tl4950049713%_ - _%e4950149716%_ - _%hd4950249720%_ - _%tl4950349723%_ - _%__splice7918779188%_ - _%target4950449726%_ - _%tl4950649729%_) - (letrec ((_%loop4950749732%_ - (lambda (_%hd4950549736%_ _%body4951149739%_) - (if (gx#stx-pair? _%hd4950549736%_) - (let ((_%e4950849742%_ - (gx#syntax-e _%hd4950549736%_))) - (let ((_%lp-tl4951049749%_ + (_%g4946549608%_))))))))) + (_%loop4959749671%_ _%target4959449665%_ '())))) + (_%__match8024080241%_ + (lambda (_%e4955249739%_ + _%hd4955349743%_ + _%tl4955449746%_ + _%e4955549749%_ + _%hd4955649753%_ + _%tl4955749756%_ + _%e4955849759%_ + _%hd4955949763%_ + _%tl4956049766%_ + _%e4956149769%_ + _%hd4956249773%_ + _%tl4956349776%_ + _%e4956449779%_ + _%hd4956549783%_ + _%tl4956649786%_ + _%__splice8006280063%_ + _%target4956749789%_ + _%tl4956949792%_) + (letrec ((_%loop4957049795%_ + (lambda (_%hd4956849799%_ _%body4957449802%_) + (if (gx#stx-pair? _%hd4956849799%_) + (let ((_%e4957149805%_ + (gx#syntax-e _%hd4956849799%_))) + (let ((_%lp-tl4957349812%_ (let () (declare (not safe)) - (##cdr _%e4950849742%_))) - (_%lp-hd4950949746%_ + (##cdr _%e4957149805%_))) + (_%lp-hd4957249809%_ (let () (declare (not safe)) - (##car _%e4950849742%_)))) - (_%loop4950749732%_ - _%lp-tl4951049749%_ - (cons _%lp-hd4950949746%_ - _%body4951149739%_)))) - (let ((_%body4951249752%_ - (reverse _%body4951149739%_))) - (let ((_%L49756%_ _%body4951249752%_) - (_%L49758%_ _%hd4950249720%_) - (_%L49759%_ _%hd4949649700%_)) + (##car _%e4957149805%_)))) + (_%loop4957049795%_ + _%lp-tl4957349812%_ + (cons _%lp-hd4957249809%_ + _%body4957449802%_)))) + (let ((_%body4957549815%_ + (reverse _%body4957449802%_))) + (let ((_%L49819%_ _%body4957549815%_) + (_%L49821%_ _%hd4956549783%_) + (_%L49822%_ _%hd4955949763%_)) (if (and (gx#identifier? - _%L49759%_) + _%L49822%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L49758%_))) - (_%__kont7918579186%_ - _%L49756%_ - _%L49758%_ - _%L49759%_) + _%L49821%_))) + (_%__kont8006080061%_ + _%L49819%_ + _%L49821%_ + _%L49822%_) (let () (declare (not safe)) - (_%g4940249545%_))))))))) - (_%loop4950749732%_ _%target4950449726%_ '())))) - (_%__match7932179322%_ - (lambda (_%e4946249798%_ - _%hd4946349802%_ - _%tl4946449805%_ - _%e4946549808%_ - _%hd4946649812%_ - _%tl4946749815%_ - _%e4946849818%_ - _%hd4946949822%_ - _%tl4947049825%_ - _%e4947149828%_ - _%hd4947249832%_ - _%tl4947349835%_ - _%e4947449838%_ - _%hd4947549842%_ - _%tl4947649845%_ - _%__splice7918379184%_ - _%target4947749848%_ - _%tl4947949851%_) - (letrec ((_%loop4948049854%_ - (lambda (_%hd4947849858%_ _%body4948449861%_) - (if (gx#stx-pair? _%hd4947849858%_) - (let ((_%e4948149864%_ - (gx#syntax-e _%hd4947849858%_))) - (let ((_%lp-tl4948349871%_ + (_%g4946549608%_))))))))) + (_%loop4957049795%_ _%target4956749789%_ '())))) + (_%__match8019680197%_ + (lambda (_%e4952549861%_ + _%hd4952649865%_ + _%tl4952749868%_ + _%e4952849871%_ + _%hd4952949875%_ + _%tl4953049878%_ + _%e4953149881%_ + _%hd4953249885%_ + _%tl4953349888%_ + _%e4953449891%_ + _%hd4953549895%_ + _%tl4953649898%_ + _%e4953749901%_ + _%hd4953849905%_ + _%tl4953949908%_ + _%__splice8005880059%_ + _%target4954049911%_ + _%tl4954249914%_) + (letrec ((_%loop4954349917%_ + (lambda (_%hd4954149921%_ _%body4954749924%_) + (if (gx#stx-pair? _%hd4954149921%_) + (let ((_%e4954449927%_ + (gx#syntax-e _%hd4954149921%_))) + (let ((_%lp-tl4954649934%_ (let () (declare (not safe)) - (##cdr _%e4948149864%_))) - (_%lp-hd4948249868%_ + (##cdr _%e4954449927%_))) + (_%lp-hd4954549931%_ (let () (declare (not safe)) - (##car _%e4948149864%_)))) - (_%loop4948049854%_ - _%lp-tl4948349871%_ - (cons _%lp-hd4948249868%_ - _%body4948449861%_)))) - (let ((_%body4948549874%_ - (reverse _%body4948449861%_))) - (let ((_%L49878%_ _%body4948549874%_) - (_%L49880%_ _%hd4947549842%_) - (_%L49881%_ _%hd4946949822%_)) + (##car _%e4954449927%_)))) + (_%loop4954349917%_ + _%lp-tl4954649934%_ + (cons _%lp-hd4954549931%_ + _%body4954749924%_)))) + (let ((_%body4954849937%_ + (reverse _%body4954749924%_))) + (let ((_%L49941%_ _%body4954849937%_) + (_%L49943%_ _%hd4953849905%_) + (_%L49944%_ _%hd4953249885%_)) (if (and (gx#identifier? - _%L49881%_) + _%L49944%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L49880%_))) - (_%__kont7918179182%_ - _%L49878%_ - _%L49880%_ - _%L49881%_) + _%L49943%_))) + (_%__kont8005680057%_ + _%L49941%_ + _%L49943%_ + _%L49944%_) (let () (declare (not safe)) - (_%g4940249545%_))))))))) - (_%loop4948049854%_ _%target4947749848%_ '())))) - (_%__match7927779278%_ - (lambda (_%e4943549920%_ - _%hd4943649924%_ - _%tl4943749927%_ - _%e4943849930%_ - _%hd4943949934%_ - _%tl4944049937%_ - _%e4944149940%_ - _%hd4944249944%_ - _%tl4944349947%_ - _%e4944449950%_ - _%hd4944549954%_ - _%tl4944649957%_ - _%e4944749960%_ - _%hd4944849964%_ - _%tl4944949967%_ - _%__splice7917979180%_ - _%target4945049970%_ - _%tl4945249973%_) - (letrec ((_%loop4945349976%_ - (lambda (_%hd4945149980%_ _%body4945749983%_) - (if (gx#stx-pair? _%hd4945149980%_) - (let ((_%e4945449986%_ - (gx#syntax-e _%hd4945149980%_))) - (let ((_%lp-tl4945649993%_ + (_%g4946549608%_))))))))) + (_%loop4954349917%_ _%target4954049911%_ '())))) + (_%__match8015280153%_ + (lambda (_%e4949849983%_ + _%hd4949949987%_ + _%tl4950049990%_ + _%e4950149993%_ + _%hd4950249997%_ + _%tl4950350000%_ + _%e4950450003%_ + _%hd4950550007%_ + _%tl4950650010%_ + _%e4950750013%_ + _%hd4950850017%_ + _%tl4950950020%_ + _%e4951050023%_ + _%hd4951150027%_ + _%tl4951250030%_ + _%__splice8005480055%_ + _%target4951350033%_ + _%tl4951550036%_) + (letrec ((_%loop4951650039%_ + (lambda (_%hd4951450043%_ _%body4952050046%_) + (if (gx#stx-pair? _%hd4951450043%_) + (let ((_%e4951750049%_ + (gx#syntax-e _%hd4951450043%_))) + (let ((_%lp-tl4951950056%_ (let () (declare (not safe)) - (##cdr _%e4945449986%_))) - (_%lp-hd4945549990%_ + (##cdr _%e4951750049%_))) + (_%lp-hd4951850053%_ (let () (declare (not safe)) - (##car _%e4945449986%_)))) - (_%loop4945349976%_ - _%lp-tl4945649993%_ - (cons _%lp-hd4945549990%_ - _%body4945749983%_)))) - (let ((_%body4945849996%_ - (reverse _%body4945749983%_))) - (let ((_%L50000%_ _%body4945849996%_) - (_%L50002%_ _%hd4944849964%_) - (_%L50003%_ _%hd4944249944%_)) + (##car _%e4951750049%_)))) + (_%loop4951650039%_ + _%lp-tl4951950056%_ + (cons _%lp-hd4951850053%_ + _%body4952050046%_)))) + (let ((_%body4952150059%_ + (reverse _%body4952050046%_))) + (let ((_%L50063%_ _%body4952150059%_) + (_%L50065%_ _%hd4951150027%_) + (_%L50066%_ _%hd4950550007%_)) (if (and (gx#identifier? - _%L50003%_) + _%L50066%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L50002%_))) - (_%__kont7917779178%_ - _%L50000%_ - _%L50002%_ - _%L50003%_) + _%L50065%_))) + (_%__kont8005280053%_ + _%L50063%_ + _%L50065%_ + _%L50066%_) (let () (declare (not safe)) - (_%g4940249545%_))))))))) - (_%loop4945349976%_ _%target4945049970%_ '())))) - (_%__match7925779258%_ - (lambda (_%e4943549920%_ - _%hd4943649924%_ - _%tl4943749927%_ - _%e4943849930%_ - _%hd4943949934%_ - _%tl4944049937%_ - _%e4944149940%_ - _%hd4944249944%_ - _%tl4944349947%_ - _%e4944449950%_ - _%hd4944549954%_ - _%tl4944649957%_) - (if (gx#identifier? _%hd4944549954%_) + (_%g4946549608%_))))))))) + (_%loop4951650039%_ _%target4951350033%_ '())))) + (_%__match8013280133%_ + (lambda (_%e4949849983%_ + _%hd4949949987%_ + _%tl4950049990%_ + _%e4950149993%_ + _%hd4950249997%_ + _%tl4950350000%_ + _%e4950450003%_ + _%hd4950550007%_ + _%tl4950650010%_ + _%e4950750013%_ + _%hd4950850017%_ + _%tl4950950020%_) + (if (gx#identifier? _%hd4950850017%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84034_| - _%hd4944549954%_) - (if (gx#stx-pair? _%tl4944649957%_) - (let ((_%e4944749960%_ - (gx#syntax-e _%tl4944649957%_))) - (let ((_%tl4944949967%_ + |gerbil/core/contract~Using[1]#_g85019_| + _%hd4950850017%_) + (if (gx#stx-pair? _%tl4950950020%_) + (let ((_%e4951050023%_ + (gx#syntax-e _%tl4950950020%_))) + (let ((_%tl4951250030%_ (let () (declare (not safe)) - (##cdr _%e4944749960%_))) - (_%hd4944849964%_ + (##cdr _%e4951050023%_))) + (_%hd4951150027%_ (let () (declare (not safe)) - (##car _%e4944749960%_)))) - (if (gx#stx-null? _%tl4944949967%_) + (##car _%e4951050023%_)))) + (if (gx#stx-null? _%tl4951250030%_) (if (gx#stx-pair/null? - _%tl4944049937%_) - (let ((_%__splice7917979180%_ + _%tl4950350000%_) + (let ((_%__splice8005480055%_ (gx#syntax-split-splice - _%tl4944049937%_ + _%tl4950350000%_ '0))) - (let ((_%tl4945249973%_ + (let ((_%tl4951550036%_ (let () (declare (not safe)) (##vector-ref - _%__splice7917979180%_ + _%__splice8005480055%_ '1))) - (_%target4945049970%_ + (_%target4951350033%_ (let () (declare (not safe)) (##vector-ref - _%__splice7917979180%_ + _%__splice8005480055%_ '0)))) (if (gx#stx-null? - _%tl4945249973%_) - (_%__match7927779278%_ - _%e4943549920%_ - _%hd4943649924%_ - _%tl4943749927%_ - _%e4943849930%_ - _%hd4943949934%_ - _%tl4944049937%_ - _%e4944149940%_ - _%hd4944249944%_ - _%tl4944349947%_ - _%e4944449950%_ - _%hd4944549954%_ - _%tl4944649957%_ - _%e4944749960%_ - _%hd4944849964%_ - _%tl4944949967%_ - _%__splice7917979180%_ - _%target4945049970%_ - _%tl4945249973%_) + _%tl4951550036%_) + (_%__match8015280153%_ + _%e4949849983%_ + _%hd4949949987%_ + _%tl4950049990%_ + _%e4950149993%_ + _%hd4950249997%_ + _%tl4950350000%_ + _%e4950450003%_ + _%hd4950550007%_ + _%tl4950650010%_ + _%e4950750013%_ + _%hd4950850017%_ + _%tl4950950020%_ + _%e4951050023%_ + _%hd4951150027%_ + _%tl4951250030%_ + _%__splice8005480055%_ + _%target4951350033%_ + _%tl4951550036%_) (let () (declare (not safe)) - (_%g4940249545%_))))) + (_%g4946549608%_))))) (let () (declare (not safe)) - (_%g4940249545%_))) + (_%g4946549608%_))) (let () (declare (not safe)) - (_%g4940249545%_))))) + (_%g4946549608%_))))) (let () (declare (not safe)) - (_%g4940249545%_))) + (_%g4946549608%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84035_| - _%hd4944549954%_) - (if (gx#stx-pair? _%tl4944649957%_) - (let ((_%e4947449838%_ - (gx#syntax-e _%tl4944649957%_))) - (let ((_%tl4947649845%_ + |gerbil/core/contract~Using[1]#_g85020_| + _%hd4950850017%_) + (if (gx#stx-pair? _%tl4950950020%_) + (let ((_%e4953749901%_ + (gx#syntax-e _%tl4950950020%_))) + (let ((_%tl4953949908%_ (let () (declare (not safe)) - (##cdr _%e4947449838%_))) - (_%hd4947549842%_ + (##cdr _%e4953749901%_))) + (_%hd4953849905%_ (let () (declare (not safe)) - (##car _%e4947449838%_)))) - (if (gx#stx-null? _%tl4947649845%_) + (##car _%e4953749901%_)))) + (if (gx#stx-null? _%tl4953949908%_) (if (gx#stx-pair/null? - _%tl4944049937%_) - (let ((_%__splice7918379184%_ + _%tl4950350000%_) + (let ((_%__splice8005880059%_ (gx#syntax-split-splice - _%tl4944049937%_ + _%tl4950350000%_ '0))) - (let ((_%tl4947949851%_ + (let ((_%tl4954249914%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice7918379184%_ '1))) - (_%target4947749848%_ + (##vector-ref _%__splice8005880059%_ '1))) + (_%target4954049911%_ (let () (declare (not safe)) - (##vector-ref _%__splice7918379184%_ '0)))) - (if (gx#stx-null? _%tl4947949851%_) - (_%__match7932179322%_ - _%e4943549920%_ - _%hd4943649924%_ - _%tl4943749927%_ - _%e4943849930%_ - _%hd4943949934%_ - _%tl4944049937%_ - _%e4944149940%_ - _%hd4944249944%_ - _%tl4944349947%_ - _%e4944449950%_ - _%hd4944549954%_ - _%tl4944649957%_ - _%e4947449838%_ - _%hd4947549842%_ - _%tl4947649845%_ - _%__splice7918379184%_ - _%target4947749848%_ - _%tl4947949851%_) - (let () (declare (not safe)) (_%g4940249545%_))))) + (##vector-ref _%__splice8005880059%_ '0)))) + (if (gx#stx-null? _%tl4954249914%_) + (_%__match8019680197%_ + _%e4949849983%_ + _%hd4949949987%_ + _%tl4950049990%_ + _%e4950149993%_ + _%hd4950249997%_ + _%tl4950350000%_ + _%e4950450003%_ + _%hd4950550007%_ + _%tl4950650010%_ + _%e4950750013%_ + _%hd4950850017%_ + _%tl4950950020%_ + _%e4953749901%_ + _%hd4953849905%_ + _%tl4953949908%_ + _%__splice8005880059%_ + _%target4954049911%_ + _%tl4954249914%_) + (let () (declare (not safe)) (_%g4946549608%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4940249545%_))) + (_%g4946549608%_))) (let () (declare (not safe)) - (_%g4940249545%_))))) + (_%g4946549608%_))))) (let () (declare (not safe)) - (_%g4940249545%_))) + (_%g4946549608%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84036_| - _%hd4944549954%_) - (if (gx#stx-pair? _%tl4944649957%_) - (let ((_%e4950149716%_ + |gerbil/core/contract~Using[1]#_g85021_| + _%hd4950850017%_) + (if (gx#stx-pair? _%tl4950950020%_) + (let ((_%e4956449779%_ (gx#syntax-e - _%tl4944649957%_))) - (let ((_%tl4950349723%_ + _%tl4950950020%_))) + (let ((_%tl4956649786%_ (let () (declare (not safe)) - (##cdr _%e4950149716%_))) - (_%hd4950249720%_ + (##cdr _%e4956449779%_))) + (_%hd4956549783%_ (let () (declare (not safe)) - (##car _%e4950149716%_)))) + (##car _%e4956449779%_)))) (if (gx#stx-null? - _%tl4950349723%_) + _%tl4956649786%_) (if (gx#stx-pair/null? - _%tl4944049937%_) - (let ((_%__splice7918779188%_ + _%tl4950350000%_) + (let ((_%__splice8006280063%_ (gx#syntax-split-splice - _%tl4944049937%_ + _%tl4950350000%_ '0))) - (let ((_%tl4950649729%_ + (let ((_%tl4956949792%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice7918779188%_ '1))) - (_%target4950449726%_ + (##vector-ref _%__splice8006280063%_ '1))) + (_%target4956749789%_ (let () (declare (not safe)) - (##vector-ref _%__splice7918779188%_ '0)))) - (if (gx#stx-null? _%tl4950649729%_) - (_%__match7936579366%_ - _%e4943549920%_ - _%hd4943649924%_ - _%tl4943749927%_ - _%e4943849930%_ - _%hd4943949934%_ - _%tl4944049937%_ - _%e4944149940%_ - _%hd4944249944%_ - _%tl4944349947%_ - _%e4944449950%_ - _%hd4944549954%_ - _%tl4944649957%_ - _%e4950149716%_ - _%hd4950249720%_ - _%tl4950349723%_ - _%__splice7918779188%_ - _%target4950449726%_ - _%tl4950649729%_) - (let () (declare (not safe)) (_%g4940249545%_))))) - (let () (declare (not safe)) (_%g4940249545%_))) + (##vector-ref _%__splice8006280063%_ '0)))) + (if (gx#stx-null? _%tl4956949792%_) + (_%__match8024080241%_ + _%e4949849983%_ + _%hd4949949987%_ + _%tl4950049990%_ + _%e4950149993%_ + _%hd4950249997%_ + _%tl4950350000%_ + _%e4950450003%_ + _%hd4950550007%_ + _%tl4950650010%_ + _%e4950750013%_ + _%hd4950850017%_ + _%tl4950950020%_ + _%e4956449779%_ + _%hd4956549783%_ + _%tl4956649786%_ + _%__splice8006280063%_ + _%target4956749789%_ + _%tl4956949792%_) + (let () (declare (not safe)) (_%g4946549608%_))))) + (let () (declare (not safe)) (_%g4946549608%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4940249545%_))))) + (_%g4946549608%_))))) (let () (declare (not safe)) - (_%g4940249545%_))) + (_%g4946549608%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84037_| - _%hd4944549954%_) - (if (gx#stx-pair? _%tl4944649957%_) - (let ((_%e4952849592%_ + |gerbil/core/contract~Using[1]#_g85022_| + _%hd4950850017%_) + (if (gx#stx-pair? _%tl4950950020%_) + (let ((_%e4959149655%_ (gx#syntax-e - _%tl4944649957%_))) - (let ((_%tl4953049599%_ + _%tl4950950020%_))) + (let ((_%tl4959349662%_ (let () (declare (not safe)) - (##cdr _%e4952849592%_))) - (_%hd4952949596%_ + (##cdr _%e4959149655%_))) + (_%hd4959249659%_ (let () (declare (not safe)) - (##car _%e4952849592%_)))) + (##car _%e4959149655%_)))) (if (gx#stx-null? - _%tl4953049599%_) + _%tl4959349662%_) (if (gx#stx-pair/null? - _%tl4944049937%_) - (let ((_%__splice7919179192%_ + _%tl4950350000%_) + (let ((_%__splice8006680067%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4944049937%_ '0))) - (let ((_%tl4953349605%_ + (gx#syntax-split-splice _%tl4950350000%_ '0))) + (let ((_%tl4959649668%_ (let () (declare (not safe)) - (##vector-ref _%__splice7919179192%_ '1))) - (_%target4953149602%_ + (##vector-ref _%__splice8006680067%_ '1))) + (_%target4959449665%_ (let () (declare (not safe)) - (##vector-ref _%__splice7919179192%_ '0)))) - (if (gx#stx-null? _%tl4953349605%_) - (_%__match7940979410%_ - _%e4943549920%_ - _%hd4943649924%_ - _%tl4943749927%_ - _%e4943849930%_ - _%hd4943949934%_ - _%tl4944049937%_ - _%e4944149940%_ - _%hd4944249944%_ - _%tl4944349947%_ - _%e4944449950%_ - _%hd4944549954%_ - _%tl4944649957%_ - _%e4952849592%_ - _%hd4952949596%_ - _%tl4953049599%_ - _%__splice7919179192%_ - _%target4953149602%_ - _%tl4953349605%_) - (let () (declare (not safe)) (_%g4940249545%_))))) - (let () (declare (not safe)) (_%g4940249545%_))) - (let () (declare (not safe)) (_%g4940249545%_))))) + (##vector-ref _%__splice8006680067%_ '0)))) + (if (gx#stx-null? _%tl4959649668%_) + (_%__match8028480285%_ + _%e4949849983%_ + _%hd4949949987%_ + _%tl4950049990%_ + _%e4950149993%_ + _%hd4950249997%_ + _%tl4950350000%_ + _%e4950450003%_ + _%hd4950550007%_ + _%tl4950650010%_ + _%e4950750013%_ + _%hd4950850017%_ + _%tl4950950020%_ + _%e4959149655%_ + _%hd4959249659%_ + _%tl4959349662%_ + _%__splice8006680067%_ + _%target4959449665%_ + _%tl4959649668%_) + (let () (declare (not safe)) (_%g4946549608%_))))) + (let () (declare (not safe)) (_%g4946549608%_))) + (let () (declare (not safe)) (_%g4946549608%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4940249545%_))) + (_%g4946549608%_))) (let () (declare (not safe)) - (_%g4940249545%_)))))) - (let () (declare (not safe)) (_%g4940249545%_))))) - (_%__match7923379234%_ - (lambda (_%e4940850042%_ - _%hd4940950046%_ - _%tl4941050049%_ - _%e4941150052%_ - _%hd4941250056%_ - _%tl4941350059%_ - _%e4941450062%_ - _%hd4941550066%_ - _%tl4941650069%_ - _%e4941750072%_ - _%hd4941850076%_ - _%tl4941950079%_ - _%e4942050082%_ - _%hd4942150086%_ - _%tl4942250089%_ - _%__splice7917579176%_ - _%target4942350092%_ - _%tl4942550095%_) - (letrec ((_%loop4942650098%_ - (lambda (_%hd4942450102%_ _%body4943050105%_) - (if (gx#stx-pair? _%hd4942450102%_) - (let ((_%e4942750108%_ - (gx#syntax-e _%hd4942450102%_))) - (let ((_%lp-tl4942950115%_ + (_%g4946549608%_)))))) + (let () (declare (not safe)) (_%g4946549608%_))))) + (_%__match8010880109%_ + (lambda (_%e4947150105%_ + _%hd4947250109%_ + _%tl4947350112%_ + _%e4947450115%_ + _%hd4947550119%_ + _%tl4947650122%_ + _%e4947750125%_ + _%hd4947850129%_ + _%tl4947950132%_ + _%e4948050135%_ + _%hd4948150139%_ + _%tl4948250142%_ + _%e4948350145%_ + _%hd4948450149%_ + _%tl4948550152%_ + _%__splice8005080051%_ + _%target4948650155%_ + _%tl4948850158%_) + (letrec ((_%loop4948950161%_ + (lambda (_%hd4948750165%_ _%body4949350168%_) + (if (gx#stx-pair? _%hd4948750165%_) + (let ((_%e4949050171%_ + (gx#syntax-e _%hd4948750165%_))) + (let ((_%lp-tl4949250178%_ (let () (declare (not safe)) - (##cdr _%e4942750108%_))) - (_%lp-hd4942850112%_ + (##cdr _%e4949050171%_))) + (_%lp-hd4949150175%_ (let () (declare (not safe)) - (##car _%e4942750108%_)))) - (_%loop4942650098%_ - _%lp-tl4942950115%_ - (cons _%lp-hd4942850112%_ - _%body4943050105%_)))) - (let ((_%body4943150118%_ - (reverse _%body4943050105%_))) - (let ((_%L50122%_ _%body4943150118%_) - (_%L50124%_ _%hd4942150086%_) - (_%L50125%_ _%hd4941850076%_) - (_%L50126%_ _%hd4941550066%_)) - (if (let ((__tmp84038 + (##car _%e4949050171%_)))) + (_%loop4948950161%_ + _%lp-tl4949250178%_ + (cons _%lp-hd4949150175%_ + _%body4949350168%_)))) + (let ((_%body4949450181%_ + (reverse _%body4949350168%_))) + (let ((_%L50185%_ _%body4949450181%_) + (_%L50187%_ _%hd4948450149%_) + (_%L50188%_ _%hd4948150139%_) + (_%L50189%_ _%hd4947850129%_)) + (if (let ((__tmp85023 (gx#syntax-local-value - _%L50124%_ + _%L50187%_ false))) (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - __tmp84038)) - (_%__kont7917379174%_ - _%L50122%_ - _%L50124%_ - _%L50125%_ - _%L50126%_) - (_%__match7925779258%_ - _%e4940850042%_ - _%hd4940950046%_ - _%tl4941050049%_ - _%e4941150052%_ - _%hd4941250056%_ - _%tl4941350059%_ - _%e4941450062%_ - _%hd4941550066%_ - _%tl4941650069%_ - _%e4941750072%_ - _%hd4941850076%_ - _%tl4941950079%_)))))))) - (_%loop4942650098%_ _%target4942350092%_ '()))))) - (if (gx#stx-pair? _%__stx7917079171%_) - (let ((_%e4940850042%_ (gx#syntax-e _%__stx7917079171%_))) - (let ((_%tl4941050049%_ + __tmp85023)) + (_%__kont8004880049%_ + _%L50185%_ + _%L50187%_ + _%L50188%_ + _%L50189%_) + (_%__match8013280133%_ + _%e4947150105%_ + _%hd4947250109%_ + _%tl4947350112%_ + _%e4947450115%_ + _%hd4947550119%_ + _%tl4947650122%_ + _%e4947750125%_ + _%hd4947850129%_ + _%tl4947950132%_ + _%e4948050135%_ + _%hd4948150139%_ + _%tl4948250142%_)))))))) + (_%loop4948950161%_ _%target4948650155%_ '()))))) + (if (gx#stx-pair? _%__stx8004580046%_) + (let ((_%e4947150105%_ (gx#syntax-e _%__stx8004580046%_))) + (let ((_%tl4947350112%_ (let () (declare (not safe)) - (##cdr _%e4940850042%_))) - (_%hd4940950046%_ + (##cdr _%e4947150105%_))) + (_%hd4947250109%_ (let () (declare (not safe)) - (##car _%e4940850042%_)))) - (if (gx#stx-pair? _%tl4941050049%_) - (let ((_%e4941150052%_ - (gx#syntax-e _%tl4941050049%_))) - (let ((_%tl4941350059%_ + (##car _%e4947150105%_)))) + (if (gx#stx-pair? _%tl4947350112%_) + (let ((_%e4947450115%_ + (gx#syntax-e _%tl4947350112%_))) + (let ((_%tl4947650122%_ (let () (declare (not safe)) - (##cdr _%e4941150052%_))) - (_%hd4941250056%_ + (##cdr _%e4947450115%_))) + (_%hd4947550119%_ (let () (declare (not safe)) - (##car _%e4941150052%_)))) - (if (gx#stx-pair? _%hd4941250056%_) - (let ((_%e4941450062%_ - (gx#syntax-e _%hd4941250056%_))) - (let ((_%tl4941650069%_ + (##car _%e4947450115%_)))) + (if (gx#stx-pair? _%hd4947550119%_) + (let ((_%e4947750125%_ + (gx#syntax-e _%hd4947550119%_))) + (let ((_%tl4947950132%_ (let () (declare (not safe)) - (##cdr _%e4941450062%_))) - (_%hd4941550066%_ + (##cdr _%e4947750125%_))) + (_%hd4947850129%_ (let () (declare (not safe)) - (##car _%e4941450062%_)))) - (if (gx#stx-pair? _%tl4941650069%_) - (let ((_%e4941750072%_ + (##car _%e4947750125%_)))) + (if (gx#stx-pair? _%tl4947950132%_) + (let ((_%e4948050135%_ (gx#syntax-e - _%tl4941650069%_))) - (let ((_%tl4941950079%_ + _%tl4947950132%_))) + (let ((_%tl4948250142%_ (let () (declare (not safe)) - (##cdr _%e4941750072%_))) - (_%hd4941850076%_ + (##cdr _%e4948050135%_))) + (_%hd4948150139%_ (let () (declare (not safe)) - (##car _%e4941750072%_)))) + (##car _%e4948050135%_)))) (if (gx#stx-pair? - _%tl4941950079%_) - (let ((_%e4942050082%_ + _%tl4948250142%_) + (let ((_%e4948350145%_ (gx#syntax-e - _%tl4941950079%_))) - (let ((_%tl4942250089%_ + _%tl4948250142%_))) + (let ((_%tl4948550152%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4942050082%_))) - (_%hd4942150086%_ - (let () (declare (not safe)) (##car _%e4942050082%_)))) - (if (gx#stx-null? _%tl4942250089%_) - (if (gx#stx-pair/null? _%tl4941350059%_) - (let ((_%__splice7917579176%_ - (gx#syntax-split-splice _%tl4941350059%_ '0))) - (let ((_%tl4942550095%_ + (##cdr _%e4948350145%_))) + (_%hd4948450149%_ + (let () (declare (not safe)) (##car _%e4948350145%_)))) + (if (gx#stx-null? _%tl4948550152%_) + (if (gx#stx-pair/null? _%tl4947650122%_) + (let ((_%__splice8005080051%_ + (gx#syntax-split-splice _%tl4947650122%_ '0))) + (let ((_%tl4948850158%_ (let () (declare (not safe)) - (##vector-ref _%__splice7917579176%_ '1))) - (_%target4942350092%_ + (##vector-ref _%__splice8005080051%_ '1))) + (_%target4948650155%_ (let () (declare (not safe)) - (##vector-ref _%__splice7917579176%_ '0)))) - (if (gx#stx-null? _%tl4942550095%_) - (_%__match7923379234%_ - _%e4940850042%_ - _%hd4940950046%_ - _%tl4941050049%_ - _%e4941150052%_ - _%hd4941250056%_ - _%tl4941350059%_ - _%e4941450062%_ - _%hd4941550066%_ - _%tl4941650069%_ - _%e4941750072%_ - _%hd4941850076%_ - _%tl4941950079%_ - _%e4942050082%_ - _%hd4942150086%_ - _%tl4942250089%_ - _%__splice7917579176%_ - _%target4942350092%_ - _%tl4942550095%_) + (##vector-ref _%__splice8005080051%_ '0)))) + (if (gx#stx-null? _%tl4948850158%_) + (_%__match8010880109%_ + _%e4947150105%_ + _%hd4947250109%_ + _%tl4947350112%_ + _%e4947450115%_ + _%hd4947550119%_ + _%tl4947650122%_ + _%e4947750125%_ + _%hd4947850129%_ + _%tl4947950132%_ + _%e4948050135%_ + _%hd4948150139%_ + _%tl4948250142%_ + _%e4948350145%_ + _%hd4948450149%_ + _%tl4948550152%_ + _%__splice8005080051%_ + _%target4948650155%_ + _%tl4948850158%_) (let () (declare (not safe)) - (_%g4940249545%_))))) - (let () (declare (not safe)) (_%g4940249545%_))) - (let () (declare (not safe)) (_%g4940249545%_))))) + (_%g4946549608%_))))) + (let () (declare (not safe)) (_%g4946549608%_))) + (let () (declare (not safe)) (_%g4946549608%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4940249545%_))))) + (_%g4946549608%_))))) (let () (declare (not safe)) - (_%g4940249545%_))))) + (_%g4946549608%_))))) (let () (declare (not safe)) - (_%g4940249545%_))))) - (let () (declare (not safe)) (_%g4940249545%_))))) - (let () (declare (not safe)) (_%g4940249545%_))))))))) + (_%g4946549608%_))))) + (let () (declare (not safe)) (_%g4946549608%_))))) + (let () (declare (not safe)) (_%g4946549608%_))))))))) (define |gerbil/core/contract~Using[:0:]#%%app-dotted| - (lambda (_%stx50616%_) - (let* ((_%__stx7941279413%_ _%stx50616%_) - (_%g5062150681%_ + (lambda (_%stx50679%_) + (let* ((_%__stx8028780288%_ _%stx50679%_) + (_%g5068450744%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7941279413%_)))) - (let ((_%__kont7941579416%_ - (lambda (_%L51243%_ _%L51245%_) + _%__stx8028780288%_)))) + (let ((_%__kont8029080291%_ + (lambda (_%L51306%_ _%L51308%_) (cons (gx#datum->syntax '#f '%%app-dotted) (cons (cons (gx#datum->syntax '#f '%%ref-dotted) - (cons _%L51245%_ '())) - (foldr (lambda (_%g5126151264%_ _%g5126251267%_) - (cons _%g5126151264%_ _%g5126251267%_)) + (cons _%L51308%_ '())) + (foldr (lambda (_%g5132451327%_ _%g5132551330%_) + (cons _%g5132451327%_ _%g5132551330%_)) '() - _%L51243%_))))) - (_%__kont7941979420%_ - (lambda (_%L50829%_ _%L50831%_) + _%L51306%_))))) + (_%__kont8029480295%_ + (lambda (_%L50892%_ _%L50894%_) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L50831%_) - (let* ((_%g5085150858%_ + _%L50894%_) + (let* ((_%g5091450921%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx50616%_ - _%L50831%_)) - (_%E5085350864%_ + _%stx50679%_ + _%L50894%_)) + (_%E5091650927%_ (lambda () (error '"No clause matching" - _%g5085150858%_ + _%g5091450921%_ '([var . parts])) (void))) - (_%K5085451162%_ - (lambda (_%parts50868%_ _%var50870%_) - (let ((_%$e50872%_ + (_%K5091751225%_ + (lambda (_%parts50931%_ _%var50933%_) + (let ((_%$e50935%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var50870%_)))) - (if _%$e50872%_ - ((lambda (_%te50876%_) - (let _%loop50879%_ ((_%parts50882%_ - _%parts50868%_) - (_%type50884%_ + _%var50933%_)))) + (if _%$e50935%_ + ((lambda (_%te50939%_) + (let _%loop50942%_ ((_%parts50945%_ + _%parts50931%_) + (_%type50947%_ (##direct-structure-ref - _%te50876%_ + _%te50939%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object50885%_ - _%var50870%_) - (_%checked-method?50886%_ + (_%object50948%_ + _%var50933%_) + (_%checked-method?50949%_ (##direct-structure-ref - _%te50876%_ + _%te50939%_ '3 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%nil-check?50887%_ + (_%nil-check?50950%_ '#f)) - (let* ((_%parts5088850896%_ - _%parts50882%_) - (_%else5089050957%_ + (let* ((_%parts5095150959%_ + _%parts50945%_) + (_%else5095351020%_ (lambda () - (let* ((_%g5090850916%_ - (lambda (_%g5090950912%_) + (let* ((_%g5097150979%_ + (lambda (_%g5097250975%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g5090950912%_))) - (_%g5090750953%_ - (lambda (_%g5090950920%_) - ((lambda (_%L50923%_) + _%g5097250975%_))) + (_%g5097051016%_ + (lambda (_%g5097250983%_) + ((lambda (_%L50986%_) (cons (gx#datum->syntax '#f '%%app) - (cons _%L50923%_ - (foldr (lambda (_%g5094450947%_ - _%g5094550950%_) - (cons _%g5094450947%_ - _%g5094550950%_)) + (cons _%L50986%_ + (foldr (lambda (_%g5100751010%_ + _%g5100851013%_) + (cons _%g5100751010%_ + _%g5100851013%_)) '() - _%L50829%_)))) - _%g5090950920%_)))) - (_%g5090750953%_ _%object50885%_)))) + _%L50892%_)))) + _%g5097250983%_)))) + (_%g5097051016%_ _%object50948%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K5089251136%_ - (lambda (_%rest50961%_ - _%part50963%_) - (if (and (not _%nil-check?50887%_) - (let ((__tmp84039 + (_%K5095551199%_ + (lambda (_%rest51024%_ + _%part51026%_) + (if (and (not _%nil-check?50950%_) + (let ((__tmp85024 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (symbol->string _%part50963%_))) + (symbol->string _%part51026%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp84039))) - (let ((_%str50967%_ (symbol->string _%part50963%_))) - (_%loop50879%_ - (cons (let ((__tmp84040 + (##string-prefix? '"?" __tmp85024))) + (let ((_%str51030%_ (symbol->string _%part51026%_))) + (_%loop50942%_ + (cons (let ((__tmp85025 (substring - _%str50967%_ + _%str51030%_ '1 - (string-length _%str50967%_)))) + (string-length _%str51030%_)))) (declare (not safe)) - (##string->symbol __tmp84040)) - _%rest50961%_) - _%type50884%_ - _%object50885%_ - _%checked-method?50886%_ + (##string->symbol __tmp85025)) + _%rest51024%_) + _%type50947%_ + _%object50948%_ + _%checked-method?50949%_ '#t)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%type50884%_)) - (let* ((_%g5097250987%_ - (lambda (_%g5097350983%_) + _%type50947%_)) + (let* ((_%g5103551050%_ + (lambda (_%g5103651046%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5097350983%_))) - (_%g5097151056%_ - (lambda (_%g5097350991%_) - (if (gx#stx-pair? _%g5097350991%_) - (let ((_%e5097650994%_ - (gx#syntax-e _%g5097350991%_))) - (let ((_%hd5097750998%_ + _%g5103651046%_))) + (_%g5103451119%_ + (lambda (_%g5103651054%_) + (if (gx#stx-pair? _%g5103651054%_) + (let ((_%e5103951057%_ + (gx#syntax-e _%g5103651054%_))) + (let ((_%hd5104051061%_ (let () (declare (not safe)) - (##car _%e5097650994%_))) - (_%tl5097851001%_ + (##car _%e5103951057%_))) + (_%tl5104151064%_ (let () (declare (not safe)) - (##cdr _%e5097650994%_)))) - (if (gx#stx-pair? _%tl5097851001%_) - (let ((_%e5097951004%_ + (##cdr _%e5103951057%_)))) + (if (gx#stx-pair? _%tl5104151064%_) + (let ((_%e5104251067%_ (gx#syntax-e - _%tl5097851001%_))) - (let ((_%hd5098051008%_ + _%tl5104151064%_))) + (let ((_%hd5104351071%_ (let () (declare (not safe)) - (##car _%e5097951004%_))) - (_%tl5098151011%_ + (##car _%e5104251067%_))) + (_%tl5104451074%_ (let () (declare (not safe)) - (##cdr _%e5097951004%_)))) + (##cdr _%e5104251067%_)))) (if (gx#stx-null? - _%tl5098151011%_) - ((lambda (_%L51014%_ - _%L51016%_) - (if (null? _%rest50961%_) + _%tl5104451074%_) + ((lambda (_%L51077%_ + _%L51079%_) + (if (null? _%rest51024%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '%%app) - (cons (cons _%L51014%_ (cons _%L51016%_ '())) - (foldr (lambda (_%g5103551038%_ _%g5103651041%_) - (cons _%g5103551038%_ _%g5103651041%_)) + (cons (cons _%L51077%_ (cons _%L51079%_ '())) + (foldr (lambda (_%g5109851101%_ _%g5109951104%_) + (cons _%g5109851101%_ _%g5109951104%_)) '() - _%L50829%_))) - (let ((_%$e51044%_ + _%L50892%_))) + (let ((_%$e51107%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type50884%_ - _%part50963%_))) - (if _%$e51044%_ - ((lambda (_%slot-type51048%_) - (let ((_%slot-type51051%_ + _%type50947%_ + _%part51026%_))) + (if _%$e51107%_ + ((lambda (_%slot-type51111%_) + (let ((_%slot-type51114%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx50616%_ - _%slot-type51048%_)))) - (_%loop50879%_ - _%rest50961%_ - _%slot-type51051%_ - (cons _%L51014%_ (cons _%L51016%_ '())) + _%stx50679%_ + _%slot-type51111%_)))) + (_%loop50942%_ + _%rest51024%_ + _%slot-type51114%_ + (cons _%L51077%_ (cons _%L51079%_ '())) (|gerbil/core/contract~Using[1]#!class-slot-checked-method-contract?| - _%type50884%_ - _%part50963%_) + _%type50947%_ + _%part51026%_) '#f))) - _%$e51044%_) + _%$e51107%_) (gx#raise-syntax-error '#f '"unresolved dotted reference; unknown type for slot" - _%stx50616%_ - _%L50831%_ - _%part50963%_))))) + _%stx50679%_ + _%L50894%_ + _%part51026%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5098051008%_ - _%hd5097750998%_) - (_%g5097250987%_ - _%g5097350991%_)))) - (_%g5097250987%_ - _%g5097350991%_)))) - (_%g5097250987%_ _%g5097350991%_))))) - (_%g5097151056%_ - (list (if _%nil-check?50887%_ + _%hd5104351071%_ + _%hd5104051061%_) + (_%g5103551050%_ + _%g5103651054%_)))) + (_%g5103551050%_ + _%g5103651054%_)))) + (_%g5103551050%_ _%g5103651054%_))))) + (_%g5103451119%_ + (list (if _%nil-check?50950%_ (cons 'check-nil! - (cons _%object50885%_ '())) - _%object50885%_) + (cons _%object50948%_ '())) + _%object50948%_) (|gerbil/core/contract~Using[1]#get-slot-accessor| - _%stx50616%_ - _%type50884%_ - _%part50963%_)))) + _%stx50679%_ + _%type50947%_ + _%part51026%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type50884%_)) - (if (null? _%rest50961%_) - (let* ((_%g5106251077%_ - (lambda (_%g5106351073%_) + _%type50947%_)) + (if (null? _%rest51024%_) + (let* ((_%g5112551140%_ + (lambda (_%g5112651136%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5106351073%_))) - (_%g5106151130%_ - (lambda (_%g5106351081%_) - (if (gx#stx-pair? _%g5106351081%_) - (let ((_%e5106651084%_ + _%g5112651136%_))) + (_%g5112451193%_ + (lambda (_%g5112651144%_) + (if (gx#stx-pair? _%g5112651144%_) + (let ((_%e5112951147%_ (gx#syntax-e - _%g5106351081%_))) - (let ((_%hd5106751088%_ + _%g5112651144%_))) + (let ((_%hd5113051151%_ (let () (declare (not safe)) - (##car _%e5106651084%_))) - (_%tl5106851091%_ + (##car _%e5112951147%_))) + (_%tl5113151154%_ (let () (declare (not safe)) - (##cdr _%e5106651084%_)))) + (##cdr _%e5112951147%_)))) (if (gx#stx-pair? - _%tl5106851091%_) - (let ((_%e5106951094%_ + _%tl5113151154%_) + (let ((_%e5113251157%_ (gx#syntax-e - _%tl5106851091%_))) - (let ((_%hd5107051098%_ + _%tl5113151154%_))) + (let ((_%hd5113351161%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e5106951094%_))) - (_%tl5107151101%_ - (let () (declare (not safe)) (##cdr _%e5106951094%_)))) - (if (gx#stx-null? _%tl5107151101%_) - ((lambda (_%L51104%_ _%L51106%_) - (cons _%L51104%_ - (cons _%L51106%_ - (foldr (lambda (_%g5112151124%_ - _%g5112251127%_) - (cons _%g5112151124%_ - _%g5112251127%_)) + (##car _%e5113251157%_))) + (_%tl5113451164%_ + (let () (declare (not safe)) (##cdr _%e5113251157%_)))) + (if (gx#stx-null? _%tl5113451164%_) + ((lambda (_%L51167%_ _%L51169%_) + (cons _%L51167%_ + (cons _%L51169%_ + (foldr (lambda (_%g5118451187%_ + _%g5118551190%_) + (cons _%g5118451187%_ + _%g5118551190%_)) '() - _%L50829%_)))) - _%hd5107051098%_ - _%hd5106751088%_) - (_%g5106251077%_ _%g5106351081%_)))) + _%L50892%_)))) + _%hd5113351161%_ + _%hd5113051151%_) + (_%g5112551140%_ _%g5112651144%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5106251077%_ - _%g5106351081%_)))) - (_%g5106251077%_ - _%g5106351081%_))))) - (_%g5106151130%_ - (list (if _%nil-check?50887%_ + (_%g5112551140%_ + _%g5112651144%_)))) + (_%g5112551140%_ + _%g5112651144%_))))) + (_%g5112451193%_ + (list (if _%nil-check?50950%_ (cons 'check-nil! - (cons _%object50885%_ '())) - _%object50885%_) + (cons _%object50948%_ '())) + _%object50948%_) (gx#stx-identifier - _%L50831%_ - (if _%checked-method?50886%_ '"" '"&") - (let ((__obj83869 _%type50884%_)) + _%L50894%_ + (if _%checked-method?50949%_ '"" '"&") + (let ((__obj84837 _%type50947%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83869 + __obj84837 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83869 + __obj84837 '1 '#f '#f)) (unchecked-slot-ref - __obj83869 + __obj84837 'name))) '"-" - _%part50963%_)))) + _%part51026%_)))) (gx#raise-syntax-error '#f '"illegal dotted reference; interface has no slots" - _%stx50616%_ - _%L50831%_ - _%part50963%_)) + _%stx50679%_ + _%L50894%_ + _%part51026%_)) (gx#raise-syntax-error '#f '"unexpected type" - _%stx50616%_ - _%type50884%_))))))) + _%stx50679%_ + _%type50947%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%parts5088850896%_) - (let ((_%hd5089351140%_ + (if (pair? _%parts5095150959%_) + (let ((_%hd5095651203%_ (let () (declare (not safe)) - (##car _%parts5088850896%_))) - (_%tl5089451143%_ + (##car _%parts5095150959%_))) + (_%tl5095751206%_ (let () (declare (not safe)) - (##cdr _%parts5088850896%_)))) - (let* ((_%part51146%_ - _%hd5089351140%_) - (_%rest51149%_ - _%tl5089451143%_)) - (_%K5089251136%_ - _%rest51149%_ - _%part51146%_))) - (_%else5089050957%_))))) - _%$e50872%_) + (##cdr _%parts5095150959%_)))) + (let* ((_%part51209%_ + _%hd5095651203%_) + (_%rest51212%_ + _%tl5095751206%_)) + (_%K5095551199%_ + _%rest51212%_ + _%part51209%_))) + (_%else5095351020%_))))) + _%$e50935%_) (cons (gx#datum->syntax '#f '%%app) - (cons _%L50831%_ - (foldr (lambda (_%g5115351156%_ + (cons _%L50894%_ + (foldr (lambda (_%g5121651219%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5115451159%_) - (cons _%g5115351156%_ _%g5115451159%_)) + _%g5121751222%_) + (cons _%g5121651219%_ _%g5121751222%_)) '() - _%L50829%_)))))))) + _%L50892%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%g5085150858%_) - (let ((_%hd5085551166%_ + (if (pair? _%g5091450921%_) + (let ((_%hd5091851229%_ (let () (declare (not safe)) - (##car _%g5085150858%_))) - (_%tl5085651169%_ + (##car _%g5091450921%_))) + (_%tl5091951232%_ (let () (declare (not safe)) - (##cdr _%g5085150858%_)))) - (let* ((_%var51172%_ _%hd5085551166%_) - (_%parts51175%_ _%tl5085651169%_)) - (_%K5085451162%_ - _%parts51175%_ - _%var51172%_))) - (_%E5085350864%_))) + (##cdr _%g5091450921%_)))) + (let* ((_%var51235%_ _%hd5091851229%_) + (_%parts51238%_ _%tl5091951232%_)) + (_%K5091751225%_ + _%parts51238%_ + _%var51235%_))) + (_%E5091650927%_))) (cons (gx#datum->syntax '#f '%%app) - (cons _%L50831%_ - (foldr (lambda (_%g5117751180%_ - _%g5117851183%_) - (cons _%g5117751180%_ - _%g5117851183%_)) + (cons _%L50894%_ + (foldr (lambda (_%g5124051243%_ + _%g5124151246%_) + (cons _%g5124051243%_ + _%g5124151246%_)) '() - _%L50829%_)))))) - (_%__kont7942379424%_ - (lambda (_%L50728%_) + _%L50892%_)))))) + (_%__kont8029880299%_ + (lambda (_%L50791%_) (cons (gx#datum->syntax '#f '%%app) - (foldr (lambda (_%g5074350746%_ _%g5074450749%_) - (cons _%g5074350746%_ _%g5074450749%_)) + (foldr (lambda (_%g5080650809%_ _%g5080750812%_) + (cons _%g5080650809%_ _%g5080750812%_)) '() - _%L50728%_))))) - (let* ((_%__match7949979500%_ - (lambda (_%e5066450688%_ - _%hd5066550692%_ - _%tl5066650695%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) - (letrec ((_%loop5067050704%_ - (lambda (_%hd5066850708%_ _%arg5067450711%_) - (if (gx#stx-pair? _%hd5066850708%_) - (let ((_%e5067150714%_ - (gx#syntax-e _%hd5066850708%_))) - (let ((_%lp-tl5067350721%_ + _%L50791%_))))) + (let* ((_%__match8037480375%_ + (lambda (_%e5072750751%_ + _%hd5072850755%_ + _%tl5072950758%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) + (letrec ((_%loop5073350767%_ + (lambda (_%hd5073150771%_ _%arg5073750774%_) + (if (gx#stx-pair? _%hd5073150771%_) + (let ((_%e5073450777%_ + (gx#syntax-e _%hd5073150771%_))) + (let ((_%lp-tl5073650784%_ (let () (declare (not safe)) - (##cdr _%e5067150714%_))) - (_%lp-hd5067250718%_ + (##cdr _%e5073450777%_))) + (_%lp-hd5073550781%_ (let () (declare (not safe)) - (##car _%e5067150714%_)))) - (_%loop5067050704%_ - _%lp-tl5067350721%_ - (cons _%lp-hd5067250718%_ - _%arg5067450711%_)))) - (let ((_%arg5067550724%_ - (reverse _%arg5067450711%_))) - (_%__kont7942379424%_ - _%arg5067550724%_)))))) - (_%loop5067050704%_ _%target5066750698%_ '())))) - (_%__match7948579486%_ - (lambda (_%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%e5064550769%_ - _%hd5064650773%_ - _%tl5064750776%_ - _%e5064850779%_ - _%hd5064950783%_ - _%tl5065050786%_ - _%e5065150789%_ - _%hd5065250793%_ - _%tl5065350796%_ - _%__splice7942179422%_ - _%target5065450799%_ - _%tl5065650802%_) - (letrec ((_%loop5065750805%_ - (lambda (_%hd5065550809%_ _%rand5066150812%_) - (if (gx#stx-pair? _%hd5065550809%_) - (let ((_%e5065850815%_ - (gx#syntax-e _%hd5065550809%_))) - (let ((_%lp-tl5066050822%_ + (##car _%e5073450777%_)))) + (_%loop5073350767%_ + _%lp-tl5073650784%_ + (cons _%lp-hd5073550781%_ + _%arg5073750774%_)))) + (let ((_%arg5073850787%_ + (reverse _%arg5073750774%_))) + (_%__kont8029880299%_ + _%arg5073850787%_)))))) + (_%loop5073350767%_ _%target5073050761%_ '())))) + (_%__match8036080361%_ + (lambda (_%e5070550822%_ + _%hd5070650826%_ + _%tl5070750829%_ + _%e5070850832%_ + _%hd5070950836%_ + _%tl5071050839%_ + _%e5071150842%_ + _%hd5071250846%_ + _%tl5071350849%_ + _%e5071450852%_ + _%hd5071550856%_ + _%tl5071650859%_ + _%__splice8029680297%_ + _%target5071750862%_ + _%tl5071950865%_) + (letrec ((_%loop5072050868%_ + (lambda (_%hd5071850872%_ _%rand5072450875%_) + (if (gx#stx-pair? _%hd5071850872%_) + (let ((_%e5072150878%_ + (gx#syntax-e _%hd5071850872%_))) + (let ((_%lp-tl5072350885%_ (let () (declare (not safe)) - (##cdr _%e5065850815%_))) - (_%lp-hd5065950819%_ + (##cdr _%e5072150878%_))) + (_%lp-hd5072250882%_ (let () (declare (not safe)) - (##car _%e5065850815%_)))) - (_%loop5065750805%_ - _%lp-tl5066050822%_ - (cons _%lp-hd5065950819%_ - _%rand5066150812%_)))) - (let ((_%rand5066250825%_ - (reverse _%rand5066150812%_))) - (_%__kont7941979420%_ - _%rand5066250825%_ - _%hd5065250793%_)))))) - (_%loop5065750805%_ _%target5065450799%_ '())))) - (_%__match7945979460%_ - (lambda (_%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%e5064550769%_ - _%hd5064650773%_ - _%tl5064750776%_) - (if (gx#stx-pair? _%hd5064650773%_) - (let ((_%e5064850779%_ - (gx#syntax-e _%hd5064650773%_))) - (let ((_%tl5065050786%_ + (##car _%e5072150878%_)))) + (_%loop5072050868%_ + _%lp-tl5072350885%_ + (cons _%lp-hd5072250882%_ + _%rand5072450875%_)))) + (let ((_%rand5072550888%_ + (reverse _%rand5072450875%_))) + (_%__kont8029480295%_ + _%rand5072550888%_ + _%hd5071550856%_)))))) + (_%loop5072050868%_ _%target5071750862%_ '())))) + (_%__match8033480335%_ + (lambda (_%e5070550822%_ + _%hd5070650826%_ + _%tl5070750829%_ + _%e5070850832%_ + _%hd5070950836%_ + _%tl5071050839%_) + (if (gx#stx-pair? _%hd5070950836%_) + (let ((_%e5071150842%_ + (gx#syntax-e _%hd5070950836%_))) + (let ((_%tl5071350849%_ (let () (declare (not safe)) - (##cdr _%e5064850779%_))) - (_%hd5064950783%_ + (##cdr _%e5071150842%_))) + (_%hd5071250846%_ (let () (declare (not safe)) - (##car _%e5064850779%_)))) - (if (gx#identifier? _%hd5064950783%_) + (##car _%e5071150842%_)))) + (if (gx#identifier? _%hd5071250846%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84041_| - _%hd5064950783%_) - (if (gx#stx-pair? _%tl5065050786%_) - (let ((_%e5065150789%_ + |gerbil/core/contract~Using[1]#_g85026_| + _%hd5071250846%_) + (if (gx#stx-pair? _%tl5071350849%_) + (let ((_%e5071450852%_ (gx#syntax-e - _%tl5065050786%_))) - (let ((_%tl5065350796%_ + _%tl5071350849%_))) + (let ((_%tl5071650859%_ (let () (declare (not safe)) - (##cdr _%e5065150789%_))) - (_%hd5065250793%_ + (##cdr _%e5071450852%_))) + (_%hd5071550856%_ (let () (declare (not safe)) - (##car _%e5065150789%_)))) + (##car _%e5071450852%_)))) (if (gx#stx-null? - _%tl5065350796%_) + _%tl5071650859%_) (if (gx#stx-pair/null? - _%tl5064750776%_) - (let ((_%__splice7942179422%_ + _%tl5071050839%_) + (let ((_%__splice8029680297%_ (gx#syntax-split-splice - _%tl5064750776%_ + _%tl5071050839%_ '0))) - (let ((_%tl5065650802%_ + (let ((_%tl5071950865%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7942179422%_ '1))) - (_%target5065450799%_ + (##vector-ref _%__splice8029680297%_ '1))) + (_%target5071750862%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942179422%_ '0)))) - (if (gx#stx-null? _%tl5065650802%_) - (_%__match7948579486%_ - _%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%e5064550769%_ - _%hd5064650773%_ - _%tl5064750776%_ - _%e5064850779%_ - _%hd5064950783%_ - _%tl5065050786%_ - _%e5065150789%_ - _%hd5065250793%_ - _%tl5065350796%_ - _%__splice7942179422%_ - _%target5065450799%_ - _%tl5065650802%_) - (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7942579426%_ - (gx#syntax-split-splice _%tl5064450766%_ '0))) - (let ((_%tl5066950701%_ + (##vector-ref _%__splice8029680297%_ '0)))) + (if (gx#stx-null? _%tl5071950865%_) + (_%__match8036080361%_ + _%e5070550822%_ + _%hd5070650826%_ + _%tl5070750829%_ + _%e5070850832%_ + _%hd5070950836%_ + _%tl5071050839%_ + _%e5071150842%_ + _%hd5071250846%_ + _%tl5071350849%_ + _%e5071450852%_ + _%hd5071550856%_ + _%tl5071650859%_ + _%__splice8029680297%_ + _%target5071750862%_ + _%tl5071950865%_) + (if (gx#stx-pair/null? _%tl5070750829%_) + (let ((_%__splice8030080301%_ + (gx#syntax-split-splice _%tl5070750829%_ '0))) + (let ((_%tl5073250764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5070550822%_ + _%hd5070650826%_ + _%tl5070750829%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_)))))) - (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7942579426%_ - (gx#syntax-split-splice _%tl5064450766%_ '0))) - (let ((_%tl5066950701%_ + (_%g5068450744%_))))) + (let () (declare (not safe)) (_%g5068450744%_)))))) + (if (gx#stx-pair/null? _%tl5070750829%_) + (let ((_%__splice8030080301%_ + (gx#syntax-split-splice _%tl5070750829%_ '0))) + (let ((_%tl5073250764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) - (let () (declare (not safe)) (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_)))) + (##vector-ref _%__splice8030080301%_ '0)))) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5070550822%_ + _%hd5070650826%_ + _%tl5070750829%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) + (let () (declare (not safe)) (_%g5068450744%_))))) + (let () (declare (not safe)) (_%g5068450744%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5064450766%_) - (let ((_%__splice7942579426%_ + _%tl5070750829%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5064450766%_ + _%tl5070750829%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5073250764%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) - (let () (declare (not safe)) (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_)))))) + (##vector-ref _%__splice8030080301%_ '0)))) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5070550822%_ + _%hd5070650826%_ + _%tl5070750829%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) + (let () (declare (not safe)) (_%g5068450744%_))))) + (let () (declare (not safe)) (_%g5068450744%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5064450766%_) - (let ((_%__splice7942579426%_ + _%tl5070750829%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5064450766%_ + _%tl5070750829%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '1))) - (_%target5066750698%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '0)))) (if (gx#stx-null? - _%tl5066950701%_) - (_%__match7949979500%_ - _%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + _%tl5073250764%_) + (_%__match8037480375%_ + _%e5070550822%_ + _%hd5070650826%_ + _%tl5070750829%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5062150681%_)))) - (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7942579426%_ + (_%g5068450744%_)))) + (if (gx#stx-pair/null? _%tl5070750829%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5064450766%_ + _%tl5070750829%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '1))) - (_%target5066750698%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '0)))) (if (gx#stx-null? - _%tl5066950701%_) - (_%__match7949979500%_ - _%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + _%tl5073250764%_) + (_%__match8037480375%_ + _%e5070550822%_ + _%hd5070650826%_ + _%tl5070750829%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5062150681%_)))) - (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7942579426%_ + (_%g5068450744%_)))) + (if (gx#stx-pair/null? _%tl5070750829%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5064450766%_ + _%tl5070750829%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '1))) - (_%target5066750698%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5070550822%_ + _%hd5070650826%_ + _%tl5070750829%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5062150681%_)))))) - (if (gx#stx-pair/null? _%tl5064450766%_) - (let ((_%__splice7942579426%_ + (_%g5068450744%_)))))) + (if (gx#stx-pair/null? _%tl5070750829%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5064450766%_ + _%tl5070750829%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '1))) - (_%target5066750698%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5064250759%_ - _%hd5064350763%_ - _%tl5064450766%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5070550822%_ + _%hd5070650826%_ + _%tl5070750829%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5062150681%_)))))) - (_%__match7944779448%_ - (lambda (_%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%e5062851203%_ - _%hd5062951207%_ - _%tl5063051210%_ - _%__splice7941779418%_ - _%target5063151213%_ - _%tl5063351216%_) - (letrec ((_%loop5063451219%_ - (lambda (_%hd5063251223%_ _%rand5063851226%_) - (if (gx#stx-pair? _%hd5063251223%_) - (let ((_%e5063551229%_ - (gx#syntax-e _%hd5063251223%_))) - (let ((_%lp-tl5063751236%_ + (_%g5068450744%_)))))) + (_%__match8032280323%_ + (lambda (_%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%e5069151266%_ + _%hd5069251270%_ + _%tl5069351273%_ + _%__splice8029280293%_ + _%target5069451276%_ + _%tl5069651279%_) + (letrec ((_%loop5069751282%_ + (lambda (_%hd5069551286%_ _%rand5070151289%_) + (if (gx#stx-pair? _%hd5069551286%_) + (let ((_%e5069851292%_ + (gx#syntax-e _%hd5069551286%_))) + (let ((_%lp-tl5070051299%_ (let () (declare (not safe)) - (##cdr _%e5063551229%_))) - (_%lp-hd5063651233%_ + (##cdr _%e5069851292%_))) + (_%lp-hd5069951296%_ (let () (declare (not safe)) - (##car _%e5063551229%_)))) - (_%loop5063451219%_ - _%lp-tl5063751236%_ - (cons _%lp-hd5063651233%_ - _%rand5063851226%_)))) - (let ((_%rand5063951239%_ - (reverse _%rand5063851226%_))) - (let ((_%L51243%_ _%rand5063951239%_) - (_%L51245%_ _%hd5062951207%_)) - (if (gx#identifier? _%L51245%_) - (_%__kont7941579416%_ - _%L51243%_ - _%L51245%_) - (_%__match7945979460%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%e5062851203%_ - _%hd5062951207%_ - _%tl5063051210%_)))))))) - (_%loop5063451219%_ _%target5063151213%_ '()))))) - (if (gx#stx-pair? _%__stx7941279413%_) - (let ((_%e5062551193%_ (gx#syntax-e _%__stx7941279413%_))) - (let ((_%tl5062751200%_ + (##car _%e5069851292%_)))) + (_%loop5069751282%_ + _%lp-tl5070051299%_ + (cons _%lp-hd5069951296%_ + _%rand5070151289%_)))) + (let ((_%rand5070251302%_ + (reverse _%rand5070151289%_))) + (let ((_%L51306%_ _%rand5070251302%_) + (_%L51308%_ _%hd5069251270%_)) + (if (gx#identifier? _%L51308%_) + (_%__kont8029080291%_ + _%L51306%_ + _%L51308%_) + (_%__match8033480335%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%e5069151266%_ + _%hd5069251270%_ + _%tl5069351273%_)))))))) + (_%loop5069751282%_ _%target5069451276%_ '()))))) + (if (gx#stx-pair? _%__stx8028780288%_) + (let ((_%e5068851256%_ (gx#syntax-e _%__stx8028780288%_))) + (let ((_%tl5069051263%_ (let () (declare (not safe)) - (##cdr _%e5062551193%_))) - (_%hd5062651197%_ + (##cdr _%e5068851256%_))) + (_%hd5068951260%_ (let () (declare (not safe)) - (##car _%e5062551193%_)))) - (if (gx#stx-pair? _%tl5062751200%_) - (let ((_%e5062851203%_ - (gx#syntax-e _%tl5062751200%_))) - (let ((_%tl5063051210%_ + (##car _%e5068851256%_)))) + (if (gx#stx-pair? _%tl5069051263%_) + (let ((_%e5069151266%_ + (gx#syntax-e _%tl5069051263%_))) + (let ((_%tl5069351273%_ (let () (declare (not safe)) - (##cdr _%e5062851203%_))) - (_%hd5062951207%_ + (##cdr _%e5069151266%_))) + (_%hd5069251270%_ (let () (declare (not safe)) - (##car _%e5062851203%_)))) - (if (gx#stx-pair/null? _%tl5063051210%_) - (let ((_%__splice7941779418%_ + (##car _%e5069151266%_)))) + (if (gx#stx-pair/null? _%tl5069351273%_) + (let ((_%__splice8029280293%_ (gx#syntax-split-splice - _%tl5063051210%_ + _%tl5069351273%_ '0))) - (let ((_%tl5063351216%_ + (let ((_%tl5069651279%_ (let () (declare (not safe)) (##vector-ref - _%__splice7941779418%_ + _%__splice8029280293%_ '1))) - (_%target5063151213%_ + (_%target5069451276%_ (let () (declare (not safe)) (##vector-ref - _%__splice7941779418%_ + _%__splice8029280293%_ '0)))) - (if (gx#stx-null? _%tl5063351216%_) - (_%__match7944779448%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%e5062851203%_ - _%hd5062951207%_ - _%tl5063051210%_ - _%__splice7941779418%_ - _%target5063151213%_ - _%tl5063351216%_) - (if (gx#stx-pair? _%hd5062951207%_) - (let ((_%e5064850779%_ + (if (gx#stx-null? _%tl5069651279%_) + (_%__match8032280323%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%e5069151266%_ + _%hd5069251270%_ + _%tl5069351273%_ + _%__splice8029280293%_ + _%target5069451276%_ + _%tl5069651279%_) + (if (gx#stx-pair? _%hd5069251270%_) + (let ((_%e5071150842%_ (gx#syntax-e - _%hd5062951207%_))) - (let ((_%tl5065050786%_ + _%hd5069251270%_))) + (let ((_%tl5071350849%_ (let () (declare (not safe)) - (##cdr _%e5064850779%_))) - (_%hd5064950783%_ + (##cdr _%e5071150842%_))) + (_%hd5071250846%_ (let () (declare (not safe)) - (##car _%e5064850779%_)))) + (##car _%e5071150842%_)))) (if (gx#identifier? - _%hd5064950783%_) + _%hd5071250846%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84041_| - _%hd5064950783%_) + |gerbil/core/contract~Using[1]#_g85026_| + _%hd5071250846%_) (if (gx#stx-pair? - _%tl5065050786%_) - (let ((_%e5065150789%_ + _%tl5071350849%_) + (let ((_%e5071450852%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5065050786%_))) - (let ((_%tl5065350796%_ + (gx#syntax-e _%tl5071350849%_))) + (let ((_%tl5071650859%_ (let () (declare (not safe)) - (##cdr _%e5065150789%_))) - (_%hd5065250793%_ + (##cdr _%e5071450852%_))) + (_%hd5071550856%_ (let () (declare (not safe)) - (##car _%e5065150789%_)))) - (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7942579426%_ + (##car _%e5071450852%_)))) + (if (gx#stx-pair/null? _%tl5069051263%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5062751200%_ + _%tl5069051263%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '1))) - (_%target5066750698%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5062150681%_))))) - (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7942579426%_ - (gx#syntax-split-splice _%tl5062751200%_ '0))) - (let ((_%tl5066950701%_ + (_%g5068450744%_))))) + (if (gx#stx-pair/null? _%tl5069051263%_) + (let ((_%__splice8030080301%_ + (gx#syntax-split-splice _%tl5069051263%_ '0))) + (let ((_%tl5073250764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_)))) - (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7942579426%_ - (gx#syntax-split-splice _%tl5062751200%_ '0))) - (let ((_%tl5066950701%_ + (_%g5068450744%_))))) + (let () (declare (not safe)) (_%g5068450744%_)))) + (if (gx#stx-pair/null? _%tl5069051263%_) + (let ((_%__splice8030080301%_ + (gx#syntax-split-splice _%tl5069051263%_ '0))) + (let ((_%tl5073250764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + (##vector-ref _%__splice8030080301%_ '0)))) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_)))) - (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7942579426%_ - (gx#syntax-split-splice _%tl5062751200%_ '0))) - (let ((_%tl5066950701%_ + (_%g5068450744%_))))) + (let () (declare (not safe)) (_%g5068450744%_)))) + (if (gx#stx-pair/null? _%tl5069051263%_) + (let ((_%__splice8030080301%_ + (gx#syntax-split-splice _%tl5069051263%_ '0))) + (let ((_%tl5073250764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) - (let () (declare (not safe)) (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_)))))) + (##vector-ref _%__splice8030080301%_ '0)))) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) + (let () (declare (not safe)) (_%g5068450744%_))))) + (let () (declare (not safe)) (_%g5068450744%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5062751200%_) - (let ((_%__splice7942579426%_ + _%tl5069051263%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5062751200%_ + _%tl5069051263%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '1))) - (_%target5066750698%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '0)))) (if (gx#stx-null? - _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5062150681%_))))))) - (if (gx#stx-pair? _%hd5062951207%_) - (let ((_%e5064850779%_ - (gx#syntax-e _%hd5062951207%_))) - (let ((_%tl5065050786%_ + (_%g5068450744%_))))))) + (if (gx#stx-pair? _%hd5069251270%_) + (let ((_%e5071150842%_ + (gx#syntax-e _%hd5069251270%_))) + (let ((_%tl5071350849%_ (let () (declare (not safe)) - (##cdr _%e5064850779%_))) - (_%hd5064950783%_ + (##cdr _%e5071150842%_))) + (_%hd5071250846%_ (let () (declare (not safe)) - (##car _%e5064850779%_)))) - (if (gx#identifier? _%hd5064950783%_) + (##car _%e5071150842%_)))) + (if (gx#identifier? _%hd5071250846%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84041_| - _%hd5064950783%_) + |gerbil/core/contract~Using[1]#_g85026_| + _%hd5071250846%_) (if (gx#stx-pair? - _%tl5065050786%_) - (let ((_%e5065150789%_ + _%tl5071350849%_) + (let ((_%e5071450852%_ (gx#syntax-e - _%tl5065050786%_))) - (let ((_%tl5065350796%_ + _%tl5071350849%_))) + (let ((_%tl5071650859%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5065150789%_))) - (_%hd5065250793%_ - (let () (declare (not safe)) (##car _%e5065150789%_)))) - (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7942579426%_ - (gx#syntax-split-splice _%tl5062751200%_ '0))) - (let ((_%tl5066950701%_ + (##cdr _%e5071450852%_))) + (_%hd5071550856%_ + (let () (declare (not safe)) (##car _%e5071450852%_)))) + (if (gx#stx-pair/null? _%tl5069051263%_) + (let ((_%__splice8030080301%_ + (gx#syntax-split-splice _%tl5069051263%_ '0))) + (let ((_%tl5073250764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + (##vector-ref _%__splice8030080301%_ '0)))) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_))))) - (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7942579426%_ - (gx#syntax-split-splice _%tl5062751200%_ '0))) - (let ((_%tl5066950701%_ + (_%g5068450744%_))))) + (let () (declare (not safe)) (_%g5068450744%_))))) + (if (gx#stx-pair/null? _%tl5069051263%_) + (let ((_%__splice8030080301%_ + (gx#syntax-split-splice _%tl5069051263%_ '0))) + (let ((_%tl5073250764%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) - (let () (declare (not safe)) (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_)))) + (##vector-ref _%__splice8030080301%_ '0)))) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) + (let () (declare (not safe)) (_%g5068450744%_))))) + (let () (declare (not safe)) (_%g5068450744%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5062751200%_) - (let ((_%__splice7942579426%_ + _%tl5069051263%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5062751200%_ + _%tl5069051263%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5073250764%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '1))) - (_%target5066750698%_ + (##vector-ref _%__splice8030080301%_ '1))) + (_%target5073050761%_ (let () (declare (not safe)) - (##vector-ref _%__splice7942579426%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) - (let () (declare (not safe)) (_%g5062150681%_))))) - (let () (declare (not safe)) (_%g5062150681%_)))) + (##vector-ref _%__splice8030080301%_ '0)))) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) + (let () (declare (not safe)) (_%g5068450744%_))))) + (let () (declare (not safe)) (_%g5068450744%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5062751200%_) - (let ((_%__splice7942579426%_ + _%tl5069051263%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5062751200%_ + _%tl5069051263%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '1))) - (_%target5066750698%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '0)))) (if (gx#stx-null? - _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5062150681%_)))))) - (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7942579426%_ + (_%g5068450744%_)))))) + (if (gx#stx-pair/null? _%tl5069051263%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5062751200%_ + _%tl5069051263%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '1))) - (_%target5066750698%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '0)))) (if (gx#stx-null? - _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5062150681%_))))))) - (if (gx#stx-pair/null? _%tl5062751200%_) - (let ((_%__splice7942579426%_ + (_%g5068450744%_))))))) + (if (gx#stx-pair/null? _%tl5069051263%_) + (let ((_%__splice8030080301%_ (gx#syntax-split-splice - _%tl5062751200%_ + _%tl5069051263%_ '0))) - (let ((_%tl5066950701%_ + (let ((_%tl5073250764%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '1))) - (_%target5066750698%_ + (_%target5073050761%_ (let () (declare (not safe)) (##vector-ref - _%__splice7942579426%_ + _%__splice8030080301%_ '0)))) - (if (gx#stx-null? _%tl5066950701%_) - (_%__match7949979500%_ - _%e5062551193%_ - _%hd5062651197%_ - _%tl5062751200%_ - _%__splice7942579426%_ - _%target5066750698%_ - _%tl5066950701%_) + (if (gx#stx-null? _%tl5073250764%_) + (_%__match8037480375%_ + _%e5068851256%_ + _%hd5068951260%_ + _%tl5069051263%_ + _%__splice8030080301%_ + _%target5073050761%_ + _%tl5073250764%_) (let () (declare (not safe)) - (_%g5062150681%_))))) + (_%g5068450744%_))))) (let () (declare (not safe)) - (_%g5062150681%_)))))) - (let () (declare (not safe)) (_%g5062150681%_)))))))) + (_%g5068450744%_)))))) + (let () (declare (not safe)) (_%g5068450744%_)))))))) (define |gerbil/core/contract~Using[:0:]#%%ref-dotted| - (lambda (_%stx51277%_) - (let* ((_%__stx7950279503%_ _%stx51277%_) - (_%g5128151302%_ + (lambda (_%stx51340%_) + (let* ((_%__stx8037780378%_ _%stx51340%_) + (_%g5134451365%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7950279503%_)))) - (let ((_%__kont7950579506%_ - (lambda (_%L51370%_) - (let* ((_%g5138251389%_ + _%__stx8037780378%_)))) + (let ((_%__kont8038080381%_ + (lambda (_%L51433%_) + (let* ((_%g5144551452%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx51277%_ - _%L51370%_)) - (_%E5138451395%_ + _%stx51340%_ + _%L51433%_)) + (_%E5144751458%_ (lambda () (error '"No clause matching" - _%g5138251389%_ + _%g5144551452%_ '([var . parts])) (void))) - (_%K5138551611%_ - (lambda (_%parts51399%_ _%var51401%_) - (let ((_%$e51403%_ + (_%K5144851674%_ + (lambda (_%parts51462%_ _%var51464%_) + (let ((_%$e51466%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var51401%_)))) - (if _%$e51403%_ - ((lambda (_%te51407%_) - (let _%loop51410%_ ((_%parts51413%_ - _%parts51399%_) - (_%type51415%_ + _%var51464%_)))) + (if _%$e51466%_ + ((lambda (_%te51470%_) + (let _%loop51473%_ ((_%parts51476%_ + _%parts51462%_) + (_%type51478%_ (##direct-structure-ref - _%te51407%_ + _%te51470%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object51416%_ - _%var51401%_) - (_%nil-check?51417%_ + (_%object51479%_ + _%var51464%_) + (_%nil-check?51480%_ '#f)) - (let* ((_%parts5141851426%_ - _%parts51413%_) - (_%else5142051438%_ - (lambda () _%object51416%_)) - (_%K5142251593%_ - (lambda (_%rest51442%_ - _%part51444%_) - (if (and (not _%nil-check?51417%_) - (let ((__tmp84042 + (let* ((_%parts5148151489%_ + _%parts51476%_) + (_%else5148351501%_ + (lambda () _%object51479%_)) + (_%K5148551656%_ + (lambda (_%rest51505%_ + _%part51507%_) + (if (and (not _%nil-check?51480%_) + (let ((__tmp85027 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (symbol->string _%part51444%_))) + (symbol->string _%part51507%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp84042))) - (let ((_%str51448%_ (symbol->string _%part51444%_))) - (_%loop51410%_ - (cons (let ((__tmp84043 + (##string-prefix? '"?" __tmp85027))) + (let ((_%str51511%_ (symbol->string _%part51507%_))) + (_%loop51473%_ + (cons (let ((__tmp85028 (substring - _%str51448%_ + _%str51511%_ '1 - (string-length _%str51448%_)))) + (string-length _%str51511%_)))) (declare (not safe)) - (##string->symbol __tmp84043)) - _%rest51442%_) - _%type51415%_ - _%object51416%_ + (##string->symbol __tmp85028)) + _%rest51505%_) + _%type51478%_ + _%object51479%_ '#t)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%type51415%_)) - (let* ((_%g5145351468%_ - (lambda (_%g5145451464%_) + _%type51478%_)) + (let* ((_%g5151651531%_ + (lambda (_%g5151751527%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5145451464%_))) - (_%g5145251585%_ - (lambda (_%g5145451472%_) - (if (gx#stx-pair? _%g5145451472%_) - (let ((_%e5145751475%_ - (gx#syntax-e _%g5145451472%_))) - (let ((_%hd5145851479%_ + _%g5151751527%_))) + (_%g5151551648%_ + (lambda (_%g5151751535%_) + (if (gx#stx-pair? _%g5151751535%_) + (let ((_%e5152051538%_ + (gx#syntax-e _%g5151751535%_))) + (let ((_%hd5152151542%_ (let () (declare (not safe)) - (##car _%e5145751475%_))) - (_%tl5145951482%_ + (##car _%e5152051538%_))) + (_%tl5152251545%_ (let () (declare (not safe)) - (##cdr _%e5145751475%_)))) - (if (gx#stx-pair? _%tl5145951482%_) - (let ((_%e5146051485%_ - (gx#syntax-e _%tl5145951482%_))) - (let ((_%hd5146151489%_ + (##cdr _%e5152051538%_)))) + (if (gx#stx-pair? _%tl5152251545%_) + (let ((_%e5152351548%_ + (gx#syntax-e _%tl5152251545%_))) + (let ((_%hd5152451552%_ (let () (declare (not safe)) - (##car _%e5146051485%_))) - (_%tl5146251492%_ + (##car _%e5152351548%_))) + (_%tl5152551555%_ (let () (declare (not safe)) - (##cdr _%e5146051485%_)))) - (if (gx#stx-null? _%tl5146251492%_) - ((lambda (_%L51495%_ - _%L51497%_) - (if (null? _%rest51442%_) - (let ((_%$e51527%_ + (##cdr _%e5152351548%_)))) + (if (gx#stx-null? _%tl5152551555%_) + ((lambda (_%L51558%_ + _%L51560%_) + (if (null? _%rest51505%_) + (let ((_%$e51590%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type51415%_ - _%part51444%_))) - (if _%$e51527%_ - ((lambda (_%slot-type51531%_) - (let* ((_%g5153451542%_ + _%type51478%_ + _%part51507%_))) + (if _%$e51590%_ + ((lambda (_%slot-type51594%_) + (let* ((_%g5159751605%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g5153551538%_) + (lambda (_%g5159851601%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5153551538%_))) - (_%g5153351565%_ - (lambda (_%g5153551546%_) - ((lambda (_%L51549%_) + _%g5159851601%_))) + (_%g5159651628%_ + (lambda (_%g5159851609%_) + ((lambda (_%L51612%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L51549%_ '())) - (cons (cons _%L51495%_ - (cons _%L51497%_ + (cons _%L51612%_ '())) + (cons (cons _%L51558%_ + (cons _%L51560%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g5153551546%_)))) - (_%g5153351565%_ + _%g5159851609%_)))) + (_%g5159651628%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx51277%_ - _%slot-type51531%_))))) - _%$e51527%_) - (if _%nil-check?51417%_ - (cons _%L51495%_ + _%stx51340%_ + _%slot-type51594%_))))) + _%$e51590%_) + (if _%nil-check?51480%_ + (cons _%L51558%_ (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L51497%_ '())) + (cons _%L51560%_ '())) '())) - (cons _%L51495%_ (cons _%L51497%_ '()))))) - (let ((_%$e51573%_ + (cons _%L51558%_ (cons _%L51560%_ '()))))) + (let ((_%$e51636%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type51415%_ - _%part51444%_))) - (if _%$e51573%_ - ((lambda (_%type51577%_) - (let ((_%type51580%_ + _%type51478%_ + _%part51507%_))) + (if _%$e51636%_ + ((lambda (_%type51640%_) + (let ((_%type51643%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx51277%_ - _%type51577%_)))) - (if _%nil-check?51417%_ - (_%loop51410%_ - _%rest51442%_ - _%type51580%_ - (cons _%L51495%_ + _%stx51340%_ + _%type51640%_)))) + (if _%nil-check?51480%_ + (_%loop51473%_ + _%rest51505%_ + _%type51643%_ + (cons _%L51558%_ (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L51497%_ '())) + (cons _%L51560%_ '())) '())) '#f) - (_%loop51410%_ - _%rest51442%_ - _%type51580%_ - (cons _%L51495%_ (cons _%L51497%_ '())) + (_%loop51473%_ + _%rest51505%_ + _%type51643%_ + (cons _%L51558%_ (cons _%L51560%_ '())) '#f)))) - _%$e51573%_) + _%$e51636%_) (gx#raise-syntax-error '#f '"unresolved dotted reference; unknown type for slot" - _%stx51277%_ - _%L51370%_ - _%part51444%_))))) + _%stx51340%_ + _%L51433%_ + _%part51507%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5146151489%_ - _%hd5145851479%_) - (_%g5145351468%_ - _%g5145451472%_)))) - (_%g5145351468%_ _%g5145451472%_)))) - (_%g5145351468%_ _%g5145451472%_))))) - (_%g5145251585%_ - (list (if _%nil-check?51417%_ - (cons 'check-nil! (cons _%object51416%_ '())) - _%object51416%_) + _%hd5152451552%_ + _%hd5152151542%_) + (_%g5151651531%_ + _%g5151751535%_)))) + (_%g5151651531%_ _%g5151751535%_)))) + (_%g5151651531%_ _%g5151751535%_))))) + (_%g5151551648%_ + (list (if _%nil-check?51480%_ + (cons 'check-nil! (cons _%object51479%_ '())) + _%object51479%_) (|gerbil/core/contract~Using[1]#get-slot-accessor| - _%stx51277%_ - _%type51415%_ - _%part51444%_)))) + _%stx51340%_ + _%type51478%_ + _%part51507%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type51415%_)) + _%type51478%_)) (gx#raise-syntax-error '#f '"illegal dotted reference; interface has no slots") (gx#raise-syntax-error '#f '"unexpected type" - _%stx51277%_ - _%type51415%_))))))) + _%stx51340%_ + _%type51478%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%parts5141851426%_) - (let ((_%hd5142351597%_ + (if (pair? _%parts5148151489%_) + (let ((_%hd5148651660%_ (let () (declare (not safe)) - (##car _%parts5141851426%_))) - (_%tl5142451600%_ + (##car _%parts5148151489%_))) + (_%tl5148751663%_ (let () (declare (not safe)) - (##cdr _%parts5141851426%_)))) - (let* ((_%part51603%_ - _%hd5142351597%_) - (_%rest51606%_ - _%tl5142451600%_)) - (_%K5142251593%_ - _%rest51606%_ - _%part51603%_))) - (_%else5142051438%_))))) - _%$e51403%_) + (##cdr _%parts5148151489%_)))) + (let* ((_%part51666%_ + _%hd5148651660%_) + (_%rest51669%_ + _%tl5148751663%_)) + (_%K5148551656%_ + _%rest51669%_ + _%part51666%_))) + (_%else5148351501%_))))) + _%$e51466%_) (cons (gx#datum->syntax '#f '%%ref) - (cons _%L51370%_ '()))))))) - (if (pair? _%g5138251389%_) - (let ((_%hd5138651615%_ + (cons _%L51433%_ '()))))))) + (if (pair? _%g5144551452%_) + (let ((_%hd5144951678%_ (let () (declare (not safe)) - (##car _%g5138251389%_))) - (_%tl5138751618%_ + (##car _%g5144551452%_))) + (_%tl5145051681%_ (let () (declare (not safe)) - (##cdr _%g5138251389%_)))) - (let* ((_%var51621%_ _%hd5138651615%_) - (_%parts51624%_ _%tl5138751618%_)) - (_%K5138551611%_ _%parts51624%_ _%var51621%_))) - (_%E5138451395%_))))) - (_%__kont7950779508%_ - (lambda (_%L51329%_) + (##cdr _%g5144551452%_)))) + (let* ((_%var51684%_ _%hd5144951678%_) + (_%parts51687%_ _%tl5145051681%_)) + (_%K5144851674%_ _%parts51687%_ _%var51684%_))) + (_%E5144751458%_))))) + (_%__kont8038280383%_ + (lambda (_%L51392%_) (cons (gx#datum->syntax '#f '%%ref) - (cons _%L51329%_ '()))))) - (let ((_%__match7952379524%_ - (lambda (_%e5128451350%_ - _%hd5128551354%_ - _%tl5128651357%_ - _%e5128751360%_ - _%hd5128851364%_ - _%tl5128951367%_) - (let ((_%L51370%_ _%hd5128851364%_)) + (cons _%L51392%_ '()))))) + (let ((_%__match8039880399%_ + (lambda (_%e5134751413%_ + _%hd5134851417%_ + _%tl5134951420%_ + _%e5135051423%_ + _%hd5135151427%_ + _%tl5135251430%_) + (let ((_%L51433%_ _%hd5135151427%_)) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L51370%_) - (_%__kont7950579506%_ _%L51370%_) - (_%__kont7950779508%_ _%hd5128851364%_)))))) - (if (gx#stx-pair? _%__stx7950279503%_) - (let ((_%e5128451350%_ (gx#syntax-e _%__stx7950279503%_))) - (let ((_%tl5128651357%_ + _%L51433%_) + (_%__kont8038080381%_ _%L51433%_) + (_%__kont8038280383%_ _%hd5135151427%_)))))) + (if (gx#stx-pair? _%__stx8037780378%_) + (let ((_%e5134751413%_ (gx#syntax-e _%__stx8037780378%_))) + (let ((_%tl5134951420%_ (let () (declare (not safe)) - (##cdr _%e5128451350%_))) - (_%hd5128551354%_ + (##cdr _%e5134751413%_))) + (_%hd5134851417%_ (let () (declare (not safe)) - (##car _%e5128451350%_)))) - (if (gx#stx-pair? _%tl5128651357%_) - (let ((_%e5128751360%_ - (gx#syntax-e _%tl5128651357%_))) - (let ((_%tl5128951367%_ + (##car _%e5134751413%_)))) + (if (gx#stx-pair? _%tl5134951420%_) + (let ((_%e5135051423%_ + (gx#syntax-e _%tl5134951420%_))) + (let ((_%tl5135251430%_ (let () (declare (not safe)) - (##cdr _%e5128751360%_))) - (_%hd5128851364%_ + (##cdr _%e5135051423%_))) + (_%hd5135151427%_ (let () (declare (not safe)) - (##car _%e5128751360%_)))) - (if (gx#stx-null? _%tl5128951367%_) - (_%__match7952379524%_ - _%e5128451350%_ - _%hd5128551354%_ - _%tl5128651357%_ - _%e5128751360%_ - _%hd5128851364%_ - _%tl5128951367%_) + (##car _%e5135051423%_)))) + (if (gx#stx-null? _%tl5135251430%_) + (_%__match8039880399%_ + _%e5134751413%_ + _%hd5134851417%_ + _%tl5134951420%_ + _%e5135051423%_ + _%hd5135151427%_ + _%tl5135251430%_) (let () (declare (not safe)) - (_%g5128151302%_))))) - (let () (declare (not safe)) (_%g5128151302%_))))) - (let () (declare (not safe)) (_%g5128151302%_)))))))) + (_%g5134451365%_))))) + (let () (declare (not safe)) (_%g5134451365%_))))) + (let () (declare (not safe)) (_%g5134451365%_)))))))) (define |gerbil/core/contract~Using[:0:]#%%set-dotted!| - (lambda (_%stx51631%_) - (let* ((_%__stx7954079541%_ _%stx51631%_) - (_%g5163551664%_ + (lambda (_%stx51694%_) + (let* ((_%__stx8041580416%_ _%stx51694%_) + (_%g5169851727%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7954079541%_)))) - (let ((_%__kont7954379544%_ - (lambda (_%L51756%_ _%L51758%_) - (let* ((_%g5177251779%_ + _%__stx8041580416%_)))) + (let ((_%__kont8041880419%_ + (lambda (_%L51819%_ _%L51821%_) + (let* ((_%g5183551842%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx51631%_ - _%L51758%_)) - (_%E5177451785%_ + _%stx51694%_ + _%L51821%_)) + (_%E5183751848%_ (lambda () (error '"No clause matching" - _%g5177251779%_ + _%g5183551842%_ '([var . parts])) (void))) - (_%K5177552015%_ - (lambda (_%parts51789%_ _%var51791%_) - (let ((_%$e51793%_ + (_%K5183852078%_ + (lambda (_%parts51852%_ _%var51854%_) + (let ((_%$e51856%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var51791%_)))) - (if _%$e51793%_ - ((lambda (_%te51797%_) - (let _%loop51800%_ ((_%parts51803%_ - _%parts51789%_) - (_%type51805%_ + _%var51854%_)))) + (if _%$e51856%_ + ((lambda (_%te51860%_) + (let _%loop51863%_ ((_%parts51866%_ + _%parts51852%_) + (_%type51868%_ (##direct-structure-ref - _%te51797%_ + _%te51860%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object51806%_ - _%var51791%_) - (_%checked-mutator?51807%_ + (_%object51869%_ + _%var51854%_) + (_%checked-mutator?51870%_ (##direct-structure-ref - _%te51797%_ + _%te51860%_ '3 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%nil-check?51808%_ + (_%nil-check?51871%_ '#f)) - (let* ((_%parts5180951816%_ - _%parts51803%_) - (_%E5181151822%_ + (let* ((_%parts5187251879%_ + _%parts51866%_) + (_%E5187451885%_ (lambda () (error '"No clause matching" - _%parts5180951816%_ + _%parts5187251879%_ '([part . rest])) (void))) - (_%K5181251997%_ - (lambda (_%rest51826%_ - _%part51828%_) - (if (and (not _%nil-check?51808%_) - (let ((__tmp84044 + (_%K5187552060%_ + (lambda (_%rest51889%_ + _%part51891%_) + (if (and (not _%nil-check?51871%_) + (let ((__tmp85029 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (symbol->string _%part51828%_))) + (symbol->string _%part51891%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp84044))) - (let ((_%str51832%_ (symbol->string _%part51828%_))) - (_%loop51800%_ - (cons (let ((__tmp84045 + (##string-prefix? '"?" __tmp85029))) + (let ((_%str51895%_ (symbol->string _%part51891%_))) + (_%loop51863%_ + (cons (let ((__tmp85030 (substring - _%str51832%_ + _%str51895%_ '1 - (string-length _%str51832%_)))) + (string-length _%str51895%_)))) (declare (not safe)) - (##string->symbol __tmp84045)) - _%rest51826%_) - _%type51805%_ - _%object51806%_ - _%checked-mutator?51807%_ + (##string->symbol __tmp85030)) + _%rest51889%_) + _%type51868%_ + _%object51869%_ + _%checked-mutator?51870%_ '#t)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%type51805%_)) - (if (null? _%rest51826%_) - (let* ((_%g5183951854%_ - (lambda (_%g5184051850%_) + _%type51868%_)) + (if (null? _%rest51889%_) + (let* ((_%g5190251917%_ + (lambda (_%g5190351913%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5184051850%_))) - (_%g5183851911%_ - (lambda (_%g5184051858%_) - (if (gx#stx-pair? _%g5184051858%_) - (let ((_%e5184351861%_ - (gx#syntax-e _%g5184051858%_))) - (let ((_%hd5184451865%_ + _%g5190351913%_))) + (_%g5190151974%_ + (lambda (_%g5190351921%_) + (if (gx#stx-pair? _%g5190351921%_) + (let ((_%e5190651924%_ + (gx#syntax-e _%g5190351921%_))) + (let ((_%hd5190751928%_ (let () (declare (not safe)) - (##car _%e5184351861%_))) - (_%tl5184551868%_ + (##car _%e5190651924%_))) + (_%tl5190851931%_ (let () (declare (not safe)) - (##cdr _%e5184351861%_)))) - (if (gx#stx-pair? _%tl5184551868%_) - (let ((_%e5184651871%_ + (##cdr _%e5190651924%_)))) + (if (gx#stx-pair? _%tl5190851931%_) + (let ((_%e5190951934%_ (gx#syntax-e - _%tl5184551868%_))) - (let ((_%hd5184751875%_ + _%tl5190851931%_))) + (let ((_%hd5191051938%_ (let () (declare (not safe)) - (##car _%e5184651871%_))) - (_%tl5184851878%_ + (##car _%e5190951934%_))) + (_%tl5191151941%_ (let () (declare (not safe)) - (##cdr _%e5184651871%_)))) + (##cdr _%e5190951934%_)))) (if (gx#stx-null? - _%tl5184851878%_) - ((lambda (_%L51881%_ - _%L51883%_) - (if _%nil-check?51808%_ - (cons _%L51881%_ + _%tl5191151941%_) + ((lambda (_%L51944%_ + _%L51946%_) + (if _%nil-check?51871%_ + (cons _%L51944%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L51883%_ '())) - (cons _%L51756%_ '()))) - (cons _%L51881%_ (cons _%L51883%_ (cons _%L51756%_ '()))))) + (cons _%L51946%_ '())) + (cons _%L51819%_ '()))) + (cons _%L51944%_ (cons _%L51946%_ (cons _%L51819%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5184751875%_ - _%hd5184451865%_) - (_%g5183951854%_ - _%g5184051858%_)))) - (_%g5183951854%_ - _%g5184051858%_)))) - (_%g5183951854%_ _%g5184051858%_))))) - (_%g5183851911%_ - (list _%object51806%_ + _%hd5191051938%_ + _%hd5190751928%_) + (_%g5190251917%_ + _%g5190351921%_)))) + (_%g5190251917%_ + _%g5190351921%_)))) + (_%g5190251917%_ _%g5190351921%_))))) + (_%g5190151974%_ + (list _%object51869%_ (|gerbil/core/contract~Using[1]#get-slot-mutator| - _%stx51631%_ - _%type51805%_ - _%part51828%_ - (if _%checked-mutator?51807%_ + _%stx51694%_ + _%type51868%_ + _%part51891%_ + (if _%checked-mutator?51870%_ (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%type51805%_ - _%part51828%_) + _%type51868%_ + _%part51891%_) '#f))))) - (let ((_%$e51915%_ + (let ((_%$e51978%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type51805%_ - _%part51828%_))) - (if _%$e51915%_ - ((lambda (_%type51919%_) - (let* ((_%type51922%_ + _%type51868%_ + _%part51891%_))) + (if _%$e51978%_ + ((lambda (_%type51982%_) + (let* ((_%type51985%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx51631%_ - _%type51919%_))) - (_%g5192551940%_ - (lambda (_%g5192651936%_) + _%stx51694%_ + _%type51982%_))) + (_%g5198852003%_ + (lambda (_%g5198951999%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5192651936%_))) - (_%g5192451987%_ - (lambda (_%g5192651944%_) - (if (gx#stx-pair? _%g5192651944%_) - (let ((_%e5192951947%_ + _%g5198951999%_))) + (_%g5198752050%_ + (lambda (_%g5198952007%_) + (if (gx#stx-pair? _%g5198952007%_) + (let ((_%e5199252010%_ (gx#syntax-e - _%g5192651944%_))) - (let ((_%hd5193051951%_ + _%g5198952007%_))) + (let ((_%hd5199352014%_ (let () (declare (not safe)) - (##car _%e5192951947%_))) - (_%tl5193151954%_ + (##car _%e5199252010%_))) + (_%tl5199452017%_ (let () (declare (not safe)) - (##cdr _%e5192951947%_)))) + (##cdr _%e5199252010%_)))) (if (gx#stx-pair? - _%tl5193151954%_) - (let ((_%e5193251957%_ + _%tl5199452017%_) + (let ((_%e5199552020%_ (gx#syntax-e - _%tl5193151954%_))) - (let ((_%hd5193351961%_ + _%tl5199452017%_))) + (let ((_%hd5199652024%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e5193251957%_))) - (_%tl5193451964%_ - (let () (declare (not safe)) (##cdr _%e5193251957%_)))) - (if (gx#stx-null? _%tl5193451964%_) - ((lambda (_%L51967%_ _%L51969%_) - (_%loop51800%_ - _%rest51826%_ - _%type51922%_ - (cons _%L51967%_ (cons _%L51969%_ '())) + (##car _%e5199552020%_))) + (_%tl5199752027%_ + (let () (declare (not safe)) (##cdr _%e5199552020%_)))) + (if (gx#stx-null? _%tl5199752027%_) + ((lambda (_%L52030%_ _%L52032%_) + (_%loop51863%_ + _%rest51889%_ + _%type51985%_ + (cons _%L52030%_ (cons _%L52032%_ '())) (|gerbil/core/contract~Using[1]#!class-slot-checked-mutator-contract?| - _%type51922%_ - _%part51828%_) + _%type51985%_ + _%part51891%_) '#f)) - _%hd5193351961%_ - _%hd5193051951%_) - (_%g5192551940%_ _%g5192651944%_)))) + _%hd5199652024%_ + _%hd5199352014%_) + (_%g5198852003%_ _%g5198952007%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5192551940%_ - _%g5192651944%_)))) - (_%g5192551940%_ - _%g5192651944%_))))) - (_%g5192451987%_ - (list (if _%nil-check?51808%_ + (_%g5198852003%_ + _%g5198952007%_)))) + (_%g5198852003%_ + _%g5198952007%_))))) + (_%g5198752050%_ + (list (if _%nil-check?51871%_ (cons 'check-nil! - (cons _%object51806%_ '())) - _%object51806%_) + (cons _%object51869%_ '())) + _%object51869%_) (|gerbil/core/contract~Using[1]#get-slot-accessor| - _%stx51631%_ - _%type51922%_ - _%part51828%_))))) - _%$e51915%_) + _%stx51694%_ + _%type51985%_ + _%part51891%_))))) + _%$e51978%_) (gx#raise-syntax-error '#f '"unresolved dotted reference; unknown type for slot" - _%stx51631%_ - _%L51758%_ - _%part51828%_)))) + _%stx51694%_ + _%L51821%_ + _%part51891%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type51805%_)) + _%type51868%_)) (gx#raise-syntax-error '#f '"illegal dotted reference; interface has no slots") (gx#raise-syntax-error '#f '"unexpected type" - _%stx51631%_ - _%type51805%_))))))) + _%stx51694%_ + _%type51868%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%parts5180951816%_) - (let ((_%hd5181352001%_ + (if (pair? _%parts5187251879%_) + (let ((_%hd5187652064%_ (let () (declare (not safe)) - (##car _%parts5180951816%_))) - (_%tl5181452004%_ + (##car _%parts5187251879%_))) + (_%tl5187752067%_ (let () (declare (not safe)) - (##cdr _%parts5180951816%_)))) - (let* ((_%part52007%_ - _%hd5181352001%_) - (_%rest52010%_ - _%tl5181452004%_)) - (_%K5181251997%_ - _%rest52010%_ - _%part52007%_))) - (_%E5181151822%_))))) - _%$e51793%_) + (##cdr _%parts5187251879%_)))) + (let* ((_%part52070%_ + _%hd5187652064%_) + (_%rest52073%_ + _%tl5187752067%_)) + (_%K5187552060%_ + _%rest52073%_ + _%part52070%_))) + (_%E5187451885%_))))) + _%$e51856%_) (let () (declare (not safe)) (|gerbil/core/more-sugar[1]#expand-set!| - _%stx51631%_))))))) - (if (pair? _%g5177251779%_) - (let ((_%hd5177652019%_ + _%stx51694%_))))))) + (if (pair? _%g5183551842%_) + (let ((_%hd5183952082%_ (let () (declare (not safe)) - (##car _%g5177251779%_))) - (_%tl5177752022%_ + (##car _%g5183551842%_))) + (_%tl5184052085%_ (let () (declare (not safe)) - (##cdr _%g5177251779%_)))) - (let* ((_%var52025%_ _%hd5177652019%_) - (_%parts52028%_ _%tl5177752022%_)) - (_%K5177552015%_ _%parts52028%_ _%var52025%_))) - (_%E5177451785%_))))) - (_%__kont7954579546%_ - (lambda (_%L51701%_ _%L51703%_) + (##cdr _%g5183551842%_)))) + (let* ((_%var52088%_ _%hd5183952082%_) + (_%parts52091%_ _%tl5184052085%_)) + (_%K5183852078%_ _%parts52091%_ _%var52088%_))) + (_%E5183751848%_))))) + (_%__kont8042080421%_ + (lambda (_%L51764%_ _%L51766%_) (let () (declare (not safe)) - (|gerbil/core/more-sugar[1]#expand-set!| _%stx51631%_))))) - (let ((_%__match7956779568%_ - (lambda (_%e5163951726%_ - _%hd5164051730%_ - _%tl5164151733%_ - _%e5164251736%_ - _%hd5164351740%_ - _%tl5164451743%_ - _%e5164551746%_ - _%hd5164651750%_ - _%tl5164751753%_) - (let ((_%L51756%_ _%hd5164651750%_) - (_%L51758%_ _%hd5164351740%_)) + (|gerbil/core/more-sugar[1]#expand-set!| _%stx51694%_))))) + (let ((_%__match8044280443%_ + (lambda (_%e5170251789%_ + _%hd5170351793%_ + _%tl5170451796%_ + _%e5170551799%_ + _%hd5170651803%_ + _%tl5170751806%_ + _%e5170851809%_ + _%hd5170951813%_ + _%tl5171051816%_) + (let ((_%L51819%_ _%hd5170951813%_) + (_%L51821%_ _%hd5170651803%_)) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L51758%_) - (_%__kont7954379544%_ _%L51756%_ _%L51758%_) - (_%__kont7954579546%_ - _%hd5164651750%_ - _%hd5164351740%_)))))) - (if (gx#stx-pair? _%__stx7954079541%_) - (let ((_%e5163951726%_ (gx#syntax-e _%__stx7954079541%_))) - (let ((_%tl5164151733%_ + _%L51821%_) + (_%__kont8041880419%_ _%L51819%_ _%L51821%_) + (_%__kont8042080421%_ + _%hd5170951813%_ + _%hd5170651803%_)))))) + (if (gx#stx-pair? _%__stx8041580416%_) + (let ((_%e5170251789%_ (gx#syntax-e _%__stx8041580416%_))) + (let ((_%tl5170451796%_ (let () (declare (not safe)) - (##cdr _%e5163951726%_))) - (_%hd5164051730%_ + (##cdr _%e5170251789%_))) + (_%hd5170351793%_ (let () (declare (not safe)) - (##car _%e5163951726%_)))) - (if (gx#stx-pair? _%tl5164151733%_) - (let ((_%e5164251736%_ - (gx#syntax-e _%tl5164151733%_))) - (let ((_%tl5164451743%_ + (##car _%e5170251789%_)))) + (if (gx#stx-pair? _%tl5170451796%_) + (let ((_%e5170551799%_ + (gx#syntax-e _%tl5170451796%_))) + (let ((_%tl5170751806%_ (let () (declare (not safe)) - (##cdr _%e5164251736%_))) - (_%hd5164351740%_ + (##cdr _%e5170551799%_))) + (_%hd5170651803%_ (let () (declare (not safe)) - (##car _%e5164251736%_)))) - (if (gx#stx-pair? _%tl5164451743%_) - (let ((_%e5164551746%_ - (gx#syntax-e _%tl5164451743%_))) - (let ((_%tl5164751753%_ + (##car _%e5170551799%_)))) + (if (gx#stx-pair? _%tl5170751806%_) + (let ((_%e5170851809%_ + (gx#syntax-e _%tl5170751806%_))) + (let ((_%tl5171051816%_ (let () (declare (not safe)) - (##cdr _%e5164551746%_))) - (_%hd5164651750%_ + (##cdr _%e5170851809%_))) + (_%hd5170951813%_ (let () (declare (not safe)) - (##car _%e5164551746%_)))) - (if (gx#stx-null? _%tl5164751753%_) - (_%__match7956779568%_ - _%e5163951726%_ - _%hd5164051730%_ - _%tl5164151733%_ - _%e5164251736%_ - _%hd5164351740%_ - _%tl5164451743%_ - _%e5164551746%_ - _%hd5164651750%_ - _%tl5164751753%_) + (##car _%e5170851809%_)))) + (if (gx#stx-null? _%tl5171051816%_) + (_%__match8044280443%_ + _%e5170251789%_ + _%hd5170351793%_ + _%tl5170451796%_ + _%e5170551799%_ + _%hd5170651803%_ + _%tl5170751806%_ + _%e5170851809%_ + _%hd5170951813%_ + _%tl5171051816%_) (let () (declare (not safe)) - (_%g5163551664%_))))) + (_%g5169851727%_))))) (let () (declare (not safe)) - (_%g5163551664%_))))) - (let () (declare (not safe)) (_%g5163551664%_))))) - (let () (declare (not safe)) (_%g5163551664%_)))))))))) + (_%g5169851727%_))))) + (let () (declare (not safe)) (_%g5169851727%_))))) + (let () (declare (not safe)) (_%g5169851727%_)))))))))) diff --git a/src/bootstrap/gerbil/core/contract~7.scm b/src/bootstrap/gerbil/core/contract~7.scm index 67760e0bb..6a322cee8 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 (_%$stx52036%_) - (let* ((_%g5204052054%_ - (lambda (_%g5204152050%_) + (lambda (_%$stx52099%_) + (let* ((_%g5210352117%_ + (lambda (_%g5210452113%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5204152050%_))) - (_%g5203952096%_ - (lambda (_%g5204152058%_) - (if (gx#stx-pair? _%g5204152058%_) - (let ((_%e5204352061%_ (gx#syntax-e _%g5204152058%_))) - (let ((_%hd5204452065%_ + _%g5210452113%_))) + (_%g5210252159%_ + (lambda (_%g5210452121%_) + (if (gx#stx-pair? _%g5210452121%_) + (let ((_%e5210652124%_ (gx#syntax-e _%g5210452121%_))) + (let ((_%hd5210752128%_ (let () (declare (not safe)) - (##car _%e5204352061%_))) - (_%tl5204552068%_ + (##car _%e5210652124%_))) + (_%tl5210852131%_ (let () (declare (not safe)) - (##cdr _%e5204352061%_)))) - (if (gx#stx-pair? _%tl5204552068%_) - (let ((_%e5204652071%_ - (gx#syntax-e _%tl5204552068%_))) - (let ((_%hd5204752075%_ + (##cdr _%e5210652124%_)))) + (if (gx#stx-pair? _%tl5210852131%_) + (let ((_%e5210952134%_ + (gx#syntax-e _%tl5210852131%_))) + (let ((_%hd5211052138%_ (let () (declare (not safe)) - (##car _%e5204652071%_))) - (_%tl5204852078%_ + (##car _%e5210952134%_))) + (_%tl5211152141%_ (let () (declare (not safe)) - (##cdr _%e5204652071%_)))) - (if (gx#stx-null? _%tl5204852078%_) - ((lambda (_%L52081%_) + (##cdr _%e5210952134%_)))) + (if (gx#stx-null? _%tl5211152141%_) + ((lambda (_%L52144%_) (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f @@ -40,60 +40,60 @@ (cons (gx#datum->syntax '#f 'not) - (cons _%L52081%_ + (cons _%L52144%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd5204752075%_) - (_%g5204052054%_ _%g5204152058%_)))) - (_%g5204052054%_ _%g5204152058%_)))) - (_%g5204052054%_ _%g5204152058%_))))) - (_%g5203952096%_ _%$stx52036%_)))) + _%hd5211052138%_) + (_%g5210352117%_ _%g5210452121%_)))) + (_%g5210352117%_ _%g5210452121%_)))) + (_%g5210352117%_ _%g5210452121%_))))) + (_%g5210252159%_ _%$stx52099%_)))) (define |gerbil/core/contract~ContractRules[:0:]#in-range?| - (lambda (_%$stx52100%_) - (let* ((_%g5210452122%_ - (lambda (_%g5210552118%_) + (lambda (_%$stx52163%_) + (let* ((_%g5216752185%_ + (lambda (_%g5216852181%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5210552118%_))) - (_%g5210352177%_ - (lambda (_%g5210552126%_) - (if (gx#stx-pair? _%g5210552126%_) - (let ((_%e5210852129%_ (gx#syntax-e _%g5210552126%_))) - (let ((_%hd5210952133%_ + _%g5216852181%_))) + (_%g5216652240%_ + (lambda (_%g5216852189%_) + (if (gx#stx-pair? _%g5216852189%_) + (let ((_%e5217152192%_ (gx#syntax-e _%g5216852189%_))) + (let ((_%hd5217252196%_ (let () (declare (not safe)) - (##car _%e5210852129%_))) - (_%tl5211052136%_ + (##car _%e5217152192%_))) + (_%tl5217352199%_ (let () (declare (not safe)) - (##cdr _%e5210852129%_)))) - (if (gx#stx-pair? _%tl5211052136%_) - (let ((_%e5211152139%_ - (gx#syntax-e _%tl5211052136%_))) - (let ((_%hd5211252143%_ + (##cdr _%e5217152192%_)))) + (if (gx#stx-pair? _%tl5217352199%_) + (let ((_%e5217452202%_ + (gx#syntax-e _%tl5217352199%_))) + (let ((_%hd5217552206%_ (let () (declare (not safe)) - (##car _%e5211152139%_))) - (_%tl5211352146%_ + (##car _%e5217452202%_))) + (_%tl5217652209%_ (let () (declare (not safe)) - (##cdr _%e5211152139%_)))) - (if (gx#stx-pair? _%tl5211352146%_) - (let ((_%e5211452149%_ - (gx#syntax-e _%tl5211352146%_))) - (let ((_%hd5211552153%_ + (##cdr _%e5217452202%_)))) + (if (gx#stx-pair? _%tl5217652209%_) + (let ((_%e5217752212%_ + (gx#syntax-e _%tl5217652209%_))) + (let ((_%hd5217852216%_ (let () (declare (not safe)) - (##car _%e5211452149%_))) - (_%tl5211652156%_ + (##car _%e5217752212%_))) + (_%tl5217952219%_ (let () (declare (not safe)) - (##cdr _%e5211452149%_)))) - (if (gx#stx-null? _%tl5211652156%_) - ((lambda (_%L52159%_ _%L52161%_) + (##cdr _%e5217752212%_)))) + (if (gx#stx-null? _%tl5217952219%_) + ((lambda (_%L52222%_ _%L52224%_) (cons (gx#datum->syntax '#f 'lambda) @@ -110,72 +110,72 @@ (cons (gx#datum->syntax '#f 'o) - (cons _%L52161%_ '()))) + (cons _%L52224%_ '()))) (cons (cons (gx#datum->syntax '#f 'fx<) (cons (gx#datum->syntax '#f 'o) - (cons _%L52159%_ + (cons _%L52222%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5211552153%_ - _%hd5211252143%_) - (_%g5210452122%_ - _%g5210552126%_)))) - (_%g5210452122%_ _%g5210552126%_)))) - (_%g5210452122%_ _%g5210552126%_)))) - (_%g5210452122%_ _%g5210552126%_))))) - (_%g5210352177%_ _%$stx52100%_)))) + _%hd5217852216%_ + _%hd5217552206%_) + (_%g5216752185%_ + _%g5216852189%_)))) + (_%g5216752185%_ _%g5216852189%_)))) + (_%g5216752185%_ _%g5216852189%_)))) + (_%g5216752185%_ _%g5216852189%_))))) + (_%g5216652240%_ _%$stx52163%_)))) (define |gerbil/core/contract~ContractRules[:0:]#in-range-inclusive?| - (lambda (_%$stx52181%_) - (let* ((_%g5218552203%_ - (lambda (_%g5218652199%_) + (lambda (_%$stx52244%_) + (let* ((_%g5224852266%_ + (lambda (_%g5224952262%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5218652199%_))) - (_%g5218452258%_ - (lambda (_%g5218652207%_) - (if (gx#stx-pair? _%g5218652207%_) - (let ((_%e5218952210%_ (gx#syntax-e _%g5218652207%_))) - (let ((_%hd5219052214%_ + _%g5224952262%_))) + (_%g5224752321%_ + (lambda (_%g5224952270%_) + (if (gx#stx-pair? _%g5224952270%_) + (let ((_%e5225252273%_ (gx#syntax-e _%g5224952270%_))) + (let ((_%hd5225352277%_ (let () (declare (not safe)) - (##car _%e5218952210%_))) - (_%tl5219152217%_ + (##car _%e5225252273%_))) + (_%tl5225452280%_ (let () (declare (not safe)) - (##cdr _%e5218952210%_)))) - (if (gx#stx-pair? _%tl5219152217%_) - (let ((_%e5219252220%_ - (gx#syntax-e _%tl5219152217%_))) - (let ((_%hd5219352224%_ + (##cdr _%e5225252273%_)))) + (if (gx#stx-pair? _%tl5225452280%_) + (let ((_%e5225552283%_ + (gx#syntax-e _%tl5225452280%_))) + (let ((_%hd5225652287%_ (let () (declare (not safe)) - (##car _%e5219252220%_))) - (_%tl5219452227%_ + (##car _%e5225552283%_))) + (_%tl5225752290%_ (let () (declare (not safe)) - (##cdr _%e5219252220%_)))) - (if (gx#stx-pair? _%tl5219452227%_) - (let ((_%e5219552230%_ - (gx#syntax-e _%tl5219452227%_))) - (let ((_%hd5219652234%_ + (##cdr _%e5225552283%_)))) + (if (gx#stx-pair? _%tl5225752290%_) + (let ((_%e5225852293%_ + (gx#syntax-e _%tl5225752290%_))) + (let ((_%hd5225952297%_ (let () (declare (not safe)) - (##car _%e5219552230%_))) - (_%tl5219752237%_ + (##car _%e5225852293%_))) + (_%tl5226052300%_ (let () (declare (not safe)) - (##cdr _%e5219552230%_)))) - (if (gx#stx-null? _%tl5219752237%_) - ((lambda (_%L52240%_ _%L52242%_) + (##cdr _%e5225852293%_)))) + (if (gx#stx-null? _%tl5226052300%_) + ((lambda (_%L52303%_ _%L52305%_) (cons (gx#datum->syntax '#f 'lambda) @@ -189,58 +189,58 @@ (cons (gx#datum->syntax '#f 'o) '())) (cons (cons (gx#datum->syntax '#f 'fx<=) - (cons _%L52242%_ + (cons _%L52305%_ (cons (gx#datum->syntax '#f 'o) - (cons _%L52240%_ + (cons _%L52303%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5219652234%_ - _%hd5219352224%_) - (_%g5218552203%_ - _%g5218652207%_)))) - (_%g5218552203%_ _%g5218652207%_)))) - (_%g5218552203%_ _%g5218652207%_)))) - (_%g5218552203%_ _%g5218652207%_))))) - (_%g5218452258%_ _%$stx52181%_)))) + _%hd5225952297%_ + _%hd5225652287%_) + (_%g5224852266%_ + _%g5224952270%_)))) + (_%g5224852266%_ _%g5224952270%_)))) + (_%g5224852266%_ _%g5224952270%_)))) + (_%g5224852266%_ _%g5224952270%_))))) + (_%g5224752321%_ _%$stx52244%_)))) (define |gerbil/core/contract~ContractRules[:0:]#list-of?| - (lambda (_%$stx52262%_) - (let* ((_%g5226652280%_ - (lambda (_%g5226752276%_) + (lambda (_%$stx52325%_) + (let* ((_%g5232952343%_ + (lambda (_%g5233052339%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5226752276%_))) - (_%g5226552321%_ - (lambda (_%g5226752284%_) - (if (gx#stx-pair? _%g5226752284%_) - (let ((_%e5226952287%_ (gx#syntax-e _%g5226752284%_))) - (let ((_%hd5227052291%_ + _%g5233052339%_))) + (_%g5232852384%_ + (lambda (_%g5233052347%_) + (if (gx#stx-pair? _%g5233052347%_) + (let ((_%e5233252350%_ (gx#syntax-e _%g5233052347%_))) + (let ((_%hd5233352354%_ (let () (declare (not safe)) - (##car _%e5226952287%_))) - (_%tl5227152294%_ + (##car _%e5233252350%_))) + (_%tl5233452357%_ (let () (declare (not safe)) - (##cdr _%e5226952287%_)))) - (if (gx#stx-pair? _%tl5227152294%_) - (let ((_%e5227252297%_ - (gx#syntax-e _%tl5227152294%_))) - (let ((_%hd5227352301%_ + (##cdr _%e5233252350%_)))) + (if (gx#stx-pair? _%tl5233452357%_) + (let ((_%e5233552360%_ + (gx#syntax-e _%tl5233452357%_))) + (let ((_%hd5233652364%_ (let () (declare (not safe)) - (##car _%e5227252297%_))) - (_%tl5227452304%_ + (##car _%e5233552360%_))) + (_%tl5233752367%_ (let () (declare (not safe)) - (##cdr _%e5227252297%_)))) - (if (gx#stx-null? _%tl5227452304%_) - ((lambda (_%L52307%_) + (##cdr _%e5233552360%_)))) + (if (gx#stx-null? _%tl5233752367%_) + ((lambda (_%L52370%_) (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 _%L52307%_ + (cons _%L52370%_ (cons (gx#datum->syntax '#f 'o) '()))) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5227352301%_) - (_%g5226652280%_ _%g5226752284%_)))) - (_%g5226652280%_ _%g5226752284%_)))) - (_%g5226652280%_ _%g5226752284%_))))) - (_%g5226552321%_ _%$stx52262%_))))) + _%hd5233652364%_) + (_%g5232952343%_ _%g5233052347%_)))) + (_%g5232952343%_ _%g5233052347%_)))) + (_%g5232952343%_ _%g5233052347%_))))) + (_%g5232852384%_ _%$stx52325%_))))) diff --git a/src/bootstrap/gerbil/core/contract~8.scm b/src/bootstrap/gerbil/core/contract~8.scm index f7d56d81a..0d931c696 100644 --- a/src/bootstrap/gerbil/core/contract~8.scm +++ b/src/bootstrap/gerbil/core/contract~8.scm @@ -1,3635 +1,3635 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~Interface[1]#_g84047_| + (define |gerbil/core/contract~Interface[1]#_g85032_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84049_| + (define |gerbil/core/contract~Interface[1]#_g85034_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84050_| + (define |gerbil/core/contract~Interface[1]#_g85035_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84051_| + (define |gerbil/core/contract~Interface[1]#_g85036_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84052_| + (define |gerbil/core/contract~Interface[1]#_g85037_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84053_| + (define |gerbil/core/contract~Interface[1]#_g85038_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84055_| + (define |gerbil/core/contract~Interface[1]#_g85040_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84057_| + (define |gerbil/core/contract~Interface[1]#_g85042_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84058_| + (define |gerbil/core/contract~Interface[1]#_g85043_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84059_| + (define |gerbil/core/contract~Interface[1]#_g85044_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84060_| + (define |gerbil/core/contract~Interface[1]#_g85045_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84061_| + (define |gerbil/core/contract~Interface[1]#_g85046_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84062_| + (define |gerbil/core/contract~Interface[1]#_g85047_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84063_| + (define |gerbil/core/contract~Interface[1]#_g85048_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84069_| + (define |gerbil/core/contract~Interface[1]#_g85054_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84070_| + (define |gerbil/core/contract~Interface[1]#_g85055_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84071_| + (define |gerbil/core/contract~Interface[1]#_g85056_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84072_| + (define |gerbil/core/contract~Interface[1]#_g85057_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84073_| + (define |gerbil/core/contract~Interface[1]#_g85058_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84074_| + (define |gerbil/core/contract~Interface[1]#_g85059_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84075_| + (define |gerbil/core/contract~Interface[1]#_g85060_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84076_| + (define |gerbil/core/contract~Interface[1]#_g85061_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84077_| + (define |gerbil/core/contract~Interface[1]#_g85062_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84078_| + (define |gerbil/core/contract~Interface[1]#_g85063_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84079_| + (define |gerbil/core/contract~Interface[1]#_g85064_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84080_| + (define |gerbil/core/contract~Interface[1]#_g85065_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84081_| + (define |gerbil/core/contract~Interface[1]#_g85066_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84082_| + (define |gerbil/core/contract~Interface[1]#_g85067_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84083_| + (define |gerbil/core/contract~Interface[1]#_g85068_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84084_| + (define |gerbil/core/contract~Interface[1]#_g85069_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84085_| + (define |gerbil/core/contract~Interface[1]#_g85070_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84086_| + (define |gerbil/core/contract~Interface[1]#_g85071_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84088_| + (define |gerbil/core/contract~Interface[1]#_g85073_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84096_| + (define |gerbil/core/contract~Interface[1]#_g85081_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~Interface[1]#check-signature!__%| - (lambda (_%@@keywords60105%_ - _%optionals-allowed?6010160107%_ - _%keywords-allowed?6010260109%_ - _%stx60111%_ - _%args60112%_ - _%return60113%_) - (let* ((_%optionals-allowed?60115%_ - (if (eq? _%optionals-allowed?6010160107%_ absent-value) + (lambda (_%@@keywords60178%_ + _%optionals-allowed?6017460180%_ + _%keywords-allowed?6017560182%_ + _%stx60184%_ + _%args60185%_ + _%return60186%_) + (let* ((_%optionals-allowed?60188%_ + (if (eq? _%optionals-allowed?6017460180%_ absent-value) '#t - _%optionals-allowed?6010160107%_)) - (_%keywords-allowed?60118%_ - (if (eq? _%keywords-allowed?6010260109%_ absent-value) + _%optionals-allowed?6017460180%_)) + (_%keywords-allowed?60191%_ + (if (eq? _%keywords-allowed?6017560182%_ absent-value) '#t - _%keywords-allowed?6010260109%_))) - (if (gx#stx-e _%return60113%_) + _%keywords-allowed?6017560182%_))) + (if (gx#stx-e _%return60186%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx60111%_ - _%return60113%_) + _%stx60184%_ + _%return60186%_) '#!void) (|gerbil/core/contract~Interface[1]#check-signature-spec!__%| '#f - _%optionals-allowed?60115%_ - _%keywords-allowed?60118%_ - _%stx60111%_ - _%args60112%_)))) + _%optionals-allowed?60188%_ + _%keywords-allowed?60191%_ + _%stx60184%_ + _%args60185%_)))) (define |gerbil/core/contract~Interface[1]#check-signature!__@| - (lambda (_%@@keywords60125%_ . _%args60127%_) + (lambda (_%@@keywords60198%_ . _%args60200%_) (apply |gerbil/core/contract~Interface[1]#check-signature!__%| - _%@@keywords60125%_ + _%@@keywords60198%_ (symbolic-table-ref - _%@@keywords60125%_ + _%@@keywords60198%_ 'optionals: absent-value) - (symbolic-table-ref _%@@keywords60125%_ 'keywords: absent-value) - _%args60127%_))) + (symbolic-table-ref _%@@keywords60198%_ 'keywords: absent-value) + _%args60200%_))) (define |gerbil/core/contract~Interface[1]#check-signature!| - (lambda _%args6010360134%_ + (lambda _%args6017660207%_ (apply keyword-dispatch '#(optionals: keywords:) |gerbil/core/contract~Interface[1]#check-signature!__@| - _%args6010360134%_))) + _%args6017660207%_))) (define |gerbil/core/contract~Interface[1]#check-valid-type!| - (lambda (_%stx60077%_ _%id60079%_) - (let* ((_%info60081%_ (gx#syntax-local-value _%id60079%_ false)) - (_%$e60092%_ - (let ((_%$e60084%_ + (lambda (_%stx60150%_ _%id60152%_) + (let* ((_%info60154%_ (gx#syntax-local-value _%id60152%_ false)) + (_%$e60165%_ + (let ((_%$e60157%_ (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%info60081%_)))) - (if _%$e60084%_ - _%$e60084%_ - (let ((_%$e60088%_ + _%info60154%_)))) + (if _%$e60157%_ + _%$e60157%_ + (let ((_%$e60161%_ (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info60081%_)))) - (if _%$e60088%_ - _%$e60088%_ + _%info60154%_)))) + (if _%$e60161%_ + _%$e60161%_ (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%info60081%_)))))))) - (if _%$e60092%_ - _%$e60092%_ - (if (not _%info60081%_) + _%info60154%_)))))))) + (if _%$e60165%_ + _%$e60165%_ + (if (not _%info60154%_) (gx#raise-syntax-error '#f '"invalid signature; unknown type" - _%stx60077%_ - _%id60079%_) + _%stx60150%_ + _%id60152%_) (gx#raise-syntax-error '#f '"invalid signature; not a a class type or interface" - _%stx60077%_ - _%id60079%_ - _%info60081%_)))))) + _%stx60150%_ + _%id60152%_ + _%info60154%_)))))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!__%| - (lambda (_%@@keywords59312%_ - _%optionals-allowed?5930859314%_ - _%keywords-allowed?5930959316%_ - _%stx59318%_ - _%signature59319%_) - (let* ((_%optionals-allowed?59321%_ - (if (eq? _%optionals-allowed?5930859314%_ absent-value) + (lambda (_%@@keywords59385%_ + _%optionals-allowed?5938159387%_ + _%keywords-allowed?5938259389%_ + _%stx59391%_ + _%signature59392%_) + (let* ((_%optionals-allowed?59394%_ + (if (eq? _%optionals-allowed?5938159387%_ absent-value) '#t - _%optionals-allowed?5930859314%_)) - (_%keywords-allowed?59324%_ - (if (eq? _%keywords-allowed?5930959316%_ absent-value) + _%optionals-allowed?5938159387%_)) + (_%keywords-allowed?59397%_ + (if (eq? _%keywords-allowed?5938259389%_ absent-value) '#t - _%keywords-allowed?5930959316%_))) - (let _%lp59327%_ ((_%rest59330%_ _%signature59319%_) - (_%have-optional?59332%_ '#f) - (_%ids59333%_ '()) - (_%kws59334%_ '())) - (let* ((_%__stx7966679667%_ _%rest59330%_) - (_%g5934459414%_ + _%keywords-allowed?5938259389%_))) + (let _%lp59400%_ ((_%rest59403%_ _%signature59392%_) + (_%have-optional?59405%_ '#f) + (_%ids59406%_ '()) + (_%kws59407%_ '())) + (let* ((_%__stx8054180542%_ _%rest59403%_) + (_%g5941759487%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7966679667%_)))) - (let ((_%__kont7966979670%_ - (lambda (_%L60030%_ _%L60032%_) - (if _%have-optional?59332%_ + _%__stx8054180542%_)))) + (let ((_%__kont8054480545%_ + (lambda (_%L60103%_ _%L60105%_) + (if _%have-optional?59405%_ (gx#raise-syntax-error '#f '"invalid signature; required argument after optionals" - _%stx59318%_ - _%signature59319%_ - _%L60032%_) - (if (null? _%kws59334%_) - (if (find (lambda (_%g6004660048%_) + _%stx59391%_ + _%signature59392%_ + _%L60105%_) + (if (null? _%kws59407%_) + (if (find (lambda (_%g6011960121%_) (gx#bound-identifier=? - _%g6004660048%_ - _%L60032%_)) - _%ids59333%_) + _%g6011960121%_ + _%L60105%_)) + _%ids59406%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59318%_ - _%signature59319%_ - _%L60032%_) - (_%lp59327%_ - _%L60030%_ - _%have-optional?59332%_ - (cons _%L60032%_ _%ids59333%_) - _%kws59334%_)) + _%stx59391%_ + _%signature59392%_ + _%L60105%_) + (_%lp59400%_ + _%L60103%_ + _%have-optional?59405%_ + (cons _%L60105%_ _%ids59406%_) + _%kws59407%_)) (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont7967179672%_ - (lambda (_%L59983%_ _%L59985%_) - (if (not _%optionals-allowed?59321%_) + (_%__kont8054680547%_ + (lambda (_%L60056%_ _%L60058%_) + (if (not _%optionals-allowed?59394%_) (gx#raise-syntax-error '#f '"invalid signature; optionals not allowed" - _%stx59318%_ - _%signature59319%_) - (if (null? _%kws59334%_) - (if (find (lambda (_%g6000360005%_) + _%stx59391%_ + _%signature59392%_) + (if (null? _%kws59407%_) + (if (find (lambda (_%g6007660078%_) (gx#bound-identifier=? - _%g6000360005%_ - _%L59985%_)) - _%ids59333%_) + _%g6007660078%_ + _%L60058%_)) + _%ids59406%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59318%_ - _%signature59319%_ - _%L59985%_) - (_%lp59327%_ - _%L59983%_ + _%stx59391%_ + _%signature59392%_ + _%L60058%_) + (_%lp59400%_ + _%L60056%_ '#t - (cons _%L59985%_ _%ids59333%_) - _%kws59334%_)) + (cons _%L60058%_ _%ids59406%_) + _%kws59407%_)) (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont7967379674%_ - (lambda (_%L59695%_ _%L59697%_ _%L59698%_) - (if (not _%optionals-allowed?59321%_) - (let* ((_%__stx7959079591%_ _%L59697%_) - (_%g5971559736%_ + (_%__kont8054880549%_ + (lambda (_%L59768%_ _%L59770%_ _%L59771%_) + (if (not _%optionals-allowed?59394%_) + (let* ((_%__stx8046580466%_ _%L59770%_) + (_%g5978859809%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7959079591%_)))) - (let ((_%__kont7959379594%_ - (lambda (_%L59800%_) + _%__stx8046580466%_)))) + (let ((_%__kont8046880469%_ + (lambda (_%L59873%_) (gx#raise-syntax-error '#f '"invalid signature; optionals not allowed" - _%stx59318%_ - _%signature59319%_))) - (_%__kont7959779598%_ (lambda () (void)))) - (let ((_%__match7962579626%_ - (lambda (_%__splice7959579596%_ - _%target5971859754%_ - _%tl5972059757%_ - _%e5972559760%_ - _%hd5972659764%_ - _%tl5972759767%_ - _%e5972859770%_ - _%hd5972959774%_ - _%tl5973059777%_) - (letrec ((_%loop5972159780%_ - (lambda (_%hd5971959784%_) + _%stx59391%_ + _%signature59392%_))) + (_%__kont8047280473%_ (lambda () (void)))) + (let ((_%__match8050080501%_ + (lambda (_%__splice8047080471%_ + _%target5979159827%_ + _%tl5979359830%_ + _%e5979859833%_ + _%hd5979959837%_ + _%tl5980059840%_ + _%e5980159843%_ + _%hd5980259847%_ + _%tl5980359850%_) + (letrec ((_%loop5979459853%_ + (lambda (_%hd5979259857%_) (if (gx#stx-pair? - _%hd5971959784%_) - (let ((_%e5972259788%_ + _%hd5979259857%_) + (let ((_%e5979559861%_ (gx#syntax-e - _%hd5971959784%_))) - (let ((_%lp-tl5972459795%_ + _%hd5979259857%_))) + (let ((_%lp-tl5979759868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e5972259788%_))) - (_%lp-hd5972359792%_ + (let () (declare (not safe)) (##cdr _%e5979559861%_))) + (_%lp-hd5979659865%_ (let () (declare (not safe)) - (##car _%e5972259788%_)))) - (_%loop5972159780%_ _%lp-tl5972459795%_))) - (_%__kont7959379594%_ _%hd5972959774%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop5972159780%_ - _%target5971859754%_))))) - (if (gx#stx-pair/null? _%__stx7959079591%_) - (if (let ((__tmp84046 + (##car _%e5979559861%_)))) + (_%loop5979459853%_ _%lp-tl5979759868%_))) + (_%__kont8046880469%_ _%hd5980259847%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop5979459853%_ + _%target5979159827%_))))) + (if (gx#stx-pair/null? _%__stx8046580466%_) + (if (let ((__tmp85031 (gx#stx-length - _%__stx7959079591%_))) + _%__stx8046580466%_))) (declare (not safe)) - (##fx>= __tmp84046 '2)) - (let ((_%__splice7959579596%_ + (##fx>= __tmp85031 '2)) + (let ((_%__splice8047080471%_ (gx#syntax-split-splice - _%__stx7959079591%_ + _%__stx8046580466%_ '2))) - (let ((_%tl5972059757%_ + (let ((_%tl5979359830%_ (let () (declare (not safe)) (##vector-ref - _%__splice7959579596%_ + _%__splice8047080471%_ '1))) - (_%target5971859754%_ + (_%target5979159827%_ (let () (declare (not safe)) (##vector-ref - _%__splice7959579596%_ + _%__splice8047080471%_ '0)))) (if (gx#stx-pair? - _%tl5972059757%_) - (let ((_%e5972559760%_ + _%tl5979359830%_) + (let ((_%e5979859833%_ (gx#syntax-e - _%tl5972059757%_))) - (let ((_%tl5972759767%_ + _%tl5979359830%_))) + (let ((_%tl5980059840%_ (let () (declare (not safe)) - (##cdr _%e5972559760%_))) - (_%hd5972659764%_ + (##cdr _%e5979859833%_))) + (_%hd5979959837%_ (let () (declare (not safe)) - (##car _%e5972559760%_)))) + (##car _%e5979859833%_)))) (if (gx#identifier? - _%hd5972659764%_) + _%hd5979959837%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84047_| - _%hd5972659764%_) + |gerbil/core/contract~Interface[1]#_g85032_| + _%hd5979959837%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5972759767%_) - (let ((_%e5972859770%_ - (gx#syntax-e _%tl5972759767%_))) - (let ((_%tl5973059777%_ + _%tl5980059840%_) + (let ((_%e5980159843%_ + (gx#syntax-e _%tl5980059840%_))) + (let ((_%tl5980359850%_ (let () (declare (not safe)) - (##cdr _%e5972859770%_))) - (_%hd5972959774%_ + (##cdr _%e5980159843%_))) + (_%hd5980259847%_ (let () (declare (not safe)) - (##car _%e5972859770%_)))) - (if (gx#stx-null? _%tl5973059777%_) - (_%__match7962579626%_ - _%__splice7959579596%_ - _%target5971859754%_ - _%tl5972059757%_ - _%e5972559760%_ - _%hd5972659764%_ - _%tl5972759767%_ - _%e5972859770%_ - _%hd5972959774%_ - _%tl5973059777%_) - (_%__kont7959779598%_)))) - (_%__kont7959779598%_)) - (_%__kont7959779598%_)) - (_%__kont7959779598%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7959779598%_)))) - (_%__kont7959779598%_)) - (_%__kont7959779598%_))))) - (if (null? _%kws59334%_) - (if _%have-optional?59332%_ - (let* ((_%__stx7962879629%_ _%L59697%_) - (_%g5982959850%_ + (##car _%e5980159843%_)))) + (if (gx#stx-null? _%tl5980359850%_) + (_%__match8050080501%_ + _%__splice8047080471%_ + _%target5979159827%_ + _%tl5979359830%_ + _%e5979859833%_ + _%hd5979959837%_ + _%tl5980059840%_ + _%e5980159843%_ + _%hd5980259847%_ + _%tl5980359850%_) + (_%__kont8047280473%_)))) + (_%__kont8047280473%_)) + (_%__kont8047280473%_)) + (_%__kont8047280473%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8047280473%_)))) + (_%__kont8047280473%_)) + (_%__kont8047280473%_))))) + (if (null? _%kws59407%_) + (if _%have-optional?59405%_ + (let* ((_%__stx8050380504%_ _%L59770%_) + (_%g5990259923%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7962879629%_)))) - (let ((_%__kont7963179632%_ - (lambda (_%L59914%_) + _%__stx8050380504%_)))) + (let ((_%__kont8050680507%_ + (lambda (_%L59987%_) (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx59318%_ - _%L59697%_) - (_%lp59327%_ - _%L59695%_ + _%stx59391%_ + _%L59770%_) + (_%lp59400%_ + _%L59768%_ '#t - (cons _%L59698%_ _%ids59333%_) - _%kws59334%_))) - (_%__kont7963579636%_ + (cons _%L59771%_ _%ids59406%_) + _%kws59407%_))) + (_%__kont8051080511%_ (lambda () (gx#raise-syntax-error '#f '"invalid signature; expected optional argument" - _%stx59318%_ - _%signature59319%_ - _%L59697%_)))) - (let ((_%__match7966379664%_ - (lambda (_%__splice7963379634%_ - _%target5983259868%_ - _%tl5983459871%_ - _%e5983959874%_ - _%hd5984059878%_ - _%tl5984159881%_ - _%e5984259884%_ - _%hd5984359888%_ - _%tl5984459891%_) - (letrec ((_%loop5983559894%_ - (lambda (_%hd5983359898%_) + _%stx59391%_ + _%signature59392%_ + _%L59770%_)))) + (let ((_%__match8053880539%_ + (lambda (_%__splice8050880509%_ + _%target5990559941%_ + _%tl5990759944%_ + _%e5991259947%_ + _%hd5991359951%_ + _%tl5991459954%_ + _%e5991559957%_ + _%hd5991659961%_ + _%tl5991759964%_) + (letrec ((_%loop5990859967%_ + (lambda (_%hd5990659971%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd5983359898%_) - (let ((_%e5983659902%_ (gx#syntax-e _%hd5983359898%_))) - (let ((_%lp-tl5983859909%_ + _%hd5990659971%_) + (let ((_%e5990959975%_ (gx#syntax-e _%hd5990659971%_))) + (let ((_%lp-tl5991159982%_ (let () (declare (not safe)) - (##cdr _%e5983659902%_))) - (_%lp-hd5983759906%_ + (##cdr _%e5990959975%_))) + (_%lp-hd5991059979%_ (let () (declare (not safe)) - (##car _%e5983659902%_)))) - (_%loop5983559894%_ _%lp-tl5983859909%_))) - (_%__kont7963179632%_ _%hd5984359888%_))))) + (##car _%e5990959975%_)))) + (_%loop5990859967%_ _%lp-tl5991159982%_))) + (_%__kont8050680507%_ _%hd5991659961%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop5983559894%_ - _%target5983259868%_))))) + (_%loop5990859967%_ + _%target5990559941%_))))) (if (gx#stx-pair/null? - _%__stx7962879629%_) - (if (let ((__tmp84048 + _%__stx8050380504%_) + (if (let ((__tmp85033 (gx#stx-length - _%__stx7962879629%_))) + _%__stx8050380504%_))) (declare (not safe)) - (##fx>= __tmp84048 '2)) - (let ((_%__splice7963379634%_ + (##fx>= __tmp85033 '2)) + (let ((_%__splice8050880509%_ (gx#syntax-split-splice - _%__stx7962879629%_ + _%__stx8050380504%_ '2))) - (let ((_%tl5983459871%_ + (let ((_%tl5990759944%_ (let () (declare (not safe)) (##vector-ref - _%__splice7963379634%_ + _%__splice8050880509%_ '1))) - (_%target5983259868%_ + (_%target5990559941%_ (let () (declare (not safe)) (##vector-ref - _%__splice7963379634%_ + _%__splice8050880509%_ '0)))) (if (gx#stx-pair? - _%tl5983459871%_) - (let ((_%e5983959874%_ + _%tl5990759944%_) + (let ((_%e5991259947%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5983459871%_))) - (let ((_%tl5984159881%_ + _%tl5990759944%_))) + (let ((_%tl5991459954%_ (let () (declare (not safe)) - (##cdr _%e5983959874%_))) - (_%hd5984059878%_ + (##cdr _%e5991259947%_))) + (_%hd5991359951%_ (let () (declare (not safe)) - (##car _%e5983959874%_)))) - (if (gx#identifier? _%hd5984059878%_) + (##car _%e5991259947%_)))) + (if (gx#identifier? _%hd5991359951%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84049_| - _%hd5984059878%_) - (if (gx#stx-pair? _%tl5984159881%_) - (let ((_%e5984259884%_ - (gx#syntax-e _%tl5984159881%_))) - (let ((_%tl5984459891%_ + |gerbil/core/contract~Interface[1]#_g85034_| + _%hd5991359951%_) + (if (gx#stx-pair? _%tl5991459954%_) + (let ((_%e5991559957%_ + (gx#syntax-e _%tl5991459954%_))) + (let ((_%tl5991759964%_ (let () (declare (not safe)) - (##cdr _%e5984259884%_))) - (_%hd5984359888%_ + (##cdr _%e5991559957%_))) + (_%hd5991659961%_ (let () (declare (not safe)) - (##car _%e5984259884%_)))) - (if (gx#stx-null? _%tl5984459891%_) - (_%__match7966379664%_ - _%__splice7963379634%_ - _%target5983259868%_ - _%tl5983459871%_ - _%e5983959874%_ - _%hd5984059878%_ - _%tl5984159881%_ - _%e5984259884%_ - _%hd5984359888%_ - _%tl5984459891%_) - (_%__kont7963579636%_)))) - (_%__kont7963579636%_)) - (_%__kont7963579636%_)) - (_%__kont7963579636%_)))) - (_%__kont7963579636%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7963579636%_)) - (_%__kont7963579636%_))))) - (if (find (lambda (_%g5993659938%_) + (##car _%e5991559957%_)))) + (if (gx#stx-null? _%tl5991759964%_) + (_%__match8053880539%_ + _%__splice8050880509%_ + _%target5990559941%_ + _%tl5990759944%_ + _%e5991259947%_ + _%hd5991359951%_ + _%tl5991459954%_ + _%e5991559957%_ + _%hd5991659961%_ + _%tl5991759964%_) + (_%__kont8051080511%_)))) + (_%__kont8051080511%_)) + (_%__kont8051080511%_)) + (_%__kont8051080511%_)))) + (_%__kont8051080511%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8051080511%_)) + (_%__kont8051080511%_))))) + (if (find (lambda (_%g6000960011%_) (gx#bound-identifier=? - _%g5993659938%_ - _%L59698%_)) - _%ids59333%_) + _%g6000960011%_ + _%L59771%_)) + _%ids59406%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59318%_ - _%signature59319%_ - _%L59698%_) + _%stx59391%_ + _%signature59392%_ + _%L59771%_) (let () (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx59318%_ - _%L59697%_) - (_%lp59327%_ - _%L59695%_ - _%have-optional?59332%_ - (cons _%L59698%_ _%ids59333%_) - _%kws59334%_)))) + _%stx59391%_ + _%L59770%_) + (_%lp59400%_ + _%L59768%_ + _%have-optional?59405%_ + (cons _%L59771%_ _%ids59406%_) + _%kws59407%_)))) (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont7967579676%_ - (lambda (_%L59638%_ _%L59640%_ _%L59641%_) - (if (not _%keywords-allowed?59324%_) + (_%__kont8055080551%_ + (lambda (_%L59711%_ _%L59713%_ _%L59714%_) + (if (not _%keywords-allowed?59397%_) (gx#raise-syntax-error '#f '"invalid signature; keywords not allowed" - _%stx59318%_ - _%signature59319%_) - (if (find (lambda (_%g5965659658%_) + _%stx59391%_ + _%signature59392%_) + (if (find (lambda (_%g5972959731%_) (gx#bound-identifier=? - _%g5965659658%_ - _%L59640%_)) - _%ids59333%_) + _%g5972959731%_ + _%L59713%_)) + _%ids59406%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59318%_ - _%signature59319%_ - _%L59640%_) - (if (memq (gx#stx-e _%L59641%_) _%kws59334%_) + _%stx59391%_ + _%signature59392%_ + _%L59713%_) + (if (memq (gx#stx-e _%L59714%_) _%kws59407%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate keyword" - _%stx59318%_ - _%signature59319%_ - _%L59641%_) - (_%lp59327%_ - _%L59638%_ - _%have-optional?59332%_ - (cons _%L59640%_ _%ids59333%_) - (cons (gx#stx-e _%L59641%_) - _%kws59334%_))))))) - (_%__kont7967779678%_ - (lambda (_%L59577%_ _%L59579%_ _%L59580%_) - (if (not _%keywords-allowed?59324%_) + _%stx59391%_ + _%signature59392%_ + _%L59714%_) + (_%lp59400%_ + _%L59711%_ + _%have-optional?59405%_ + (cons _%L59713%_ _%ids59406%_) + (cons (gx#stx-e _%L59714%_) + _%kws59407%_))))))) + (_%__kont8055280553%_ + (lambda (_%L59650%_ _%L59652%_ _%L59653%_) + (if (not _%keywords-allowed?59397%_) (gx#raise-syntax-error '#f '"invalid signature; keywords not allowed" - _%stx59318%_ - _%signature59319%_) - (if (find (lambda (_%g5959959601%_) + _%stx59391%_ + _%signature59392%_) + (if (find (lambda (_%g5967259674%_) (gx#bound-identifier=? - _%g5959959601%_ - _%L59579%_)) - _%ids59333%_) + _%g5967259674%_ + _%L59652%_)) + _%ids59406%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59318%_ - _%signature59319%_ - _%L59579%_) - (if (memq (gx#stx-e _%L59580%_) _%kws59334%_) + _%stx59391%_ + _%signature59392%_ + _%L59652%_) + (if (memq (gx#stx-e _%L59653%_) _%kws59407%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate keyword" - _%stx59318%_ - _%signature59319%_ - _%L59580%_) - (_%lp59327%_ - _%L59577%_ - _%have-optional?59332%_ - (cons _%L59579%_ _%ids59333%_) - (cons (gx#stx-e _%L59580%_) - _%kws59334%_))))))) - (_%__kont7967979680%_ - (lambda (_%L59496%_ _%L59498%_ _%L59499%_ _%L59500%_) - (if (not _%keywords-allowed?59324%_) + _%stx59391%_ + _%signature59392%_ + _%L59653%_) + (_%lp59400%_ + _%L59650%_ + _%have-optional?59405%_ + (cons _%L59652%_ _%ids59406%_) + (cons (gx#stx-e _%L59653%_) + _%kws59407%_))))))) + (_%__kont8055480555%_ + (lambda (_%L59569%_ _%L59571%_ _%L59572%_ _%L59573%_) + (if (not _%keywords-allowed?59397%_) (gx#raise-syntax-error '#f '"invalid signature; keywords not allowed" - _%stx59318%_ - _%signature59319%_) - (if (find (lambda (_%g5951859520%_) + _%stx59391%_ + _%signature59392%_) + (if (find (lambda (_%g5959159593%_) (gx#bound-identifier=? - _%g5951859520%_ - _%L59499%_)) - _%ids59333%_) + _%g5959159593%_ + _%L59572%_)) + _%ids59406%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59318%_ - _%signature59319%_ - _%L59499%_) - (if (memq (gx#stx-e _%L59500%_) _%kws59334%_) + _%stx59391%_ + _%signature59392%_ + _%L59572%_) + (if (memq (gx#stx-e _%L59573%_) _%kws59407%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate keyword" - _%stx59318%_ - _%signature59319%_ - _%L59500%_) + _%stx59391%_ + _%signature59392%_ + _%L59573%_) (let () (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx59318%_ - _%L59498%_) - (_%lp59327%_ - _%L59496%_ - _%have-optional?59332%_ - (cons _%L59499%_ _%ids59333%_) - (cons (gx#stx-e _%L59500%_) - _%kws59334%_)))))))) - (_%__kont7968179682%_ (lambda (_%L59443%_) '#t)) - (_%__kont7968379684%_ (lambda () '#t)) - (_%__kont7968579686%_ + _%stx59391%_ + _%L59571%_) + (_%lp59400%_ + _%L59569%_ + _%have-optional?59405%_ + (cons _%L59572%_ _%ids59406%_) + (cons (gx#stx-e _%L59573%_) + _%kws59407%_)))))))) + (_%__kont8055680557%_ (lambda (_%L59516%_) '#t)) + (_%__kont8055880559%_ (lambda () '#t)) + (_%__kont8056080561%_ (lambda () (gx#raise-syntax-error '#f '"invalid signature" - _%stx59318%_ - _%signature59319%_ - _%rest59330%_)))) - (let* ((_%g5934259436%_ + _%stx59391%_ + _%signature59392%_ + _%rest59403%_)))) + (let* ((_%g5941559509%_ (lambda () - (if (gx#stx-null? _%__stx7966679667%_) - (_%__kont7968379684%_) - (_%__kont7968579686%_)))) - (_%g5934159459%_ + (if (gx#stx-null? _%__stx8054180542%_) + (_%__kont8055880559%_) + (_%__kont8056080561%_)))) + (_%g5941459532%_ (lambda () - (let ((_%L59443%_ _%__stx7966679667%_)) - (if (gx#identifier? _%L59443%_) - (_%__kont7968179682%_ _%L59443%_) + (let ((_%L59516%_ _%__stx8054180542%_)) + (if (gx#identifier? _%L59516%_) + (_%__kont8055680557%_ _%L59516%_) (let () (declare (not safe)) - (_%g5934259436%_)))))) - (_%__match7978179782%_ - (lambda (_%e5939959466%_ - _%hd5940059470%_ - _%tl5940159473%_ - _%e5940259476%_ - _%hd5940359480%_ - _%tl5940459483%_ - _%e5940559486%_ - _%hd5940659490%_ - _%tl5940759493%_) - (let ((_%L59496%_ _%tl5940459483%_) - (_%L59498%_ _%tl5940759493%_) - (_%L59499%_ _%hd5940659490%_) - (_%L59500%_ _%hd5940059470%_)) - (if (and (gx#stx-keyword? _%L59500%_) - (gx#identifier? _%L59499%_) + (_%g5941559509%_)))))) + (_%__match8065680657%_ + (lambda (_%e5947259539%_ + _%hd5947359543%_ + _%tl5947459546%_ + _%e5947559549%_ + _%hd5947659553%_ + _%tl5947759556%_ + _%e5947859559%_ + _%hd5947959563%_ + _%tl5948059566%_) + (let ((_%L59569%_ _%tl5947759556%_) + (_%L59571%_ _%tl5948059566%_) + (_%L59572%_ _%hd5947959563%_) + (_%L59573%_ _%hd5947359543%_)) + (if (and (gx#stx-keyword? _%L59573%_) + (gx#identifier? _%L59572%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L59498%_)) - (_%__kont7967979680%_ - _%L59496%_ - _%L59498%_ - _%L59499%_ - _%L59500%_) + _%L59571%_)) + (_%__kont8055480555%_ + _%L59569%_ + _%L59571%_ + _%L59572%_ + _%L59573%_) (let () (declare (not safe)) - (_%g5934159459%_)))))) - (_%__match7976379764%_ - (lambda (_%e5938359537%_ - _%hd5938459541%_ - _%tl5938559544%_ - _%e5938659547%_ - _%hd5938759551%_ - _%tl5938859554%_ - _%e5938959557%_ - _%hd5939059561%_ - _%tl5939159564%_ - _%e5939259567%_ - _%hd5939359571%_ - _%tl5939459574%_) - (let ((_%L59577%_ _%tl5938859554%_) - (_%L59579%_ _%hd5939059561%_) - (_%L59580%_ _%hd5938459541%_)) - (if (and (gx#stx-keyword? _%L59580%_) - (gx#identifier? _%L59579%_)) - (_%__kont7967779678%_ - _%L59577%_ - _%L59579%_ - _%L59580%_) - (_%__match7978179782%_ - _%e5938359537%_ - _%hd5938459541%_ - _%tl5938559544%_ - _%e5938659547%_ - _%hd5938759551%_ - _%tl5938859554%_ - _%e5938959557%_ - _%hd5939059561%_ - _%tl5939159564%_))))) - (_%__match7973779738%_ - (lambda (_%e5937459618%_ - _%hd5937559622%_ - _%tl5937659625%_ - _%e5937759628%_ - _%hd5937859632%_ - _%tl5937959635%_) - (let ((_%L59638%_ _%tl5937959635%_) - (_%L59640%_ _%hd5937859632%_) - (_%L59641%_ _%hd5937559622%_)) - (if (and (gx#stx-keyword? _%L59641%_) - (gx#identifier? _%L59640%_)) - (_%__kont7967579676%_ - _%L59638%_ - _%L59640%_ - _%L59641%_) - (if (gx#stx-pair? _%hd5937859632%_) - (let ((_%e5938959557%_ - (gx#syntax-e _%hd5937859632%_))) - (let ((_%tl5939159564%_ + (_%g5941459532%_)))))) + (_%__match8063880639%_ + (lambda (_%e5945659610%_ + _%hd5945759614%_ + _%tl5945859617%_ + _%e5945959620%_ + _%hd5946059624%_ + _%tl5946159627%_ + _%e5946259630%_ + _%hd5946359634%_ + _%tl5946459637%_ + _%e5946559640%_ + _%hd5946659644%_ + _%tl5946759647%_) + (let ((_%L59650%_ _%tl5946159627%_) + (_%L59652%_ _%hd5946359634%_) + (_%L59653%_ _%hd5945759614%_)) + (if (and (gx#stx-keyword? _%L59653%_) + (gx#identifier? _%L59652%_)) + (_%__kont8055280553%_ + _%L59650%_ + _%L59652%_ + _%L59653%_) + (_%__match8065680657%_ + _%e5945659610%_ + _%hd5945759614%_ + _%tl5945859617%_ + _%e5945959620%_ + _%hd5946059624%_ + _%tl5946159627%_ + _%e5946259630%_ + _%hd5946359634%_ + _%tl5946459637%_))))) + (_%__match8061280613%_ + (lambda (_%e5944759691%_ + _%hd5944859695%_ + _%tl5944959698%_ + _%e5945059701%_ + _%hd5945159705%_ + _%tl5945259708%_) + (let ((_%L59711%_ _%tl5945259708%_) + (_%L59713%_ _%hd5945159705%_) + (_%L59714%_ _%hd5944859695%_)) + (if (and (gx#stx-keyword? _%L59714%_) + (gx#identifier? _%L59713%_)) + (_%__kont8055080551%_ + _%L59711%_ + _%L59713%_ + _%L59714%_) + (if (gx#stx-pair? _%hd5945159705%_) + (let ((_%e5946259630%_ + (gx#syntax-e _%hd5945159705%_))) + (let ((_%tl5946459637%_ (let () (declare (not safe)) - (##cdr _%e5938959557%_))) - (_%hd5939059561%_ + (##cdr _%e5946259630%_))) + (_%hd5946359634%_ (let () (declare (not safe)) - (##car _%e5938959557%_)))) - (if (gx#stx-pair? _%tl5939159564%_) - (let ((_%e5939259567%_ + (##car _%e5946259630%_)))) + (if (gx#stx-pair? _%tl5946459637%_) + (let ((_%e5946559640%_ (gx#syntax-e - _%tl5939159564%_))) - (let ((_%tl5939459574%_ + _%tl5946459637%_))) + (let ((_%tl5946759647%_ (let () (declare (not safe)) - (##cdr _%e5939259567%_))) - (_%hd5939359571%_ + (##cdr _%e5946559640%_))) + (_%hd5946659644%_ (let () (declare (not safe)) - (##car _%e5939259567%_)))) + (##car _%e5946559640%_)))) (if (gx#stx-null? - _%tl5939459574%_) - (_%__match7976379764%_ - _%e5937459618%_ - _%hd5937559622%_ - _%tl5937659625%_ - _%e5937759628%_ - _%hd5937859632%_ - _%tl5937959635%_ - _%e5938959557%_ - _%hd5939059561%_ - _%tl5939159564%_ - _%e5939259567%_ - _%hd5939359571%_ - _%tl5939459574%_) - (_%__match7978179782%_ - _%e5937459618%_ - _%hd5937559622%_ - _%tl5937659625%_ - _%e5937759628%_ - _%hd5937859632%_ - _%tl5937959635%_ - _%e5938959557%_ - _%hd5939059561%_ - _%tl5939159564%_)))) - (_%__match7978179782%_ - _%e5937459618%_ - _%hd5937559622%_ - _%tl5937659625%_ - _%e5937759628%_ - _%hd5937859632%_ - _%tl5937959635%_ - _%e5938959557%_ - _%hd5939059561%_ - _%tl5939159564%_)))) + _%tl5946759647%_) + (_%__match8063880639%_ + _%e5944759691%_ + _%hd5944859695%_ + _%tl5944959698%_ + _%e5945059701%_ + _%hd5945159705%_ + _%tl5945259708%_ + _%e5946259630%_ + _%hd5946359634%_ + _%tl5946459637%_ + _%e5946559640%_ + _%hd5946659644%_ + _%tl5946759647%_) + (_%__match8065680657%_ + _%e5944759691%_ + _%hd5944859695%_ + _%tl5944959698%_ + _%e5945059701%_ + _%hd5945159705%_ + _%tl5945259708%_ + _%e5946259630%_ + _%hd5946359634%_ + _%tl5946459637%_)))) + (_%__match8065680657%_ + _%e5944759691%_ + _%hd5944859695%_ + _%tl5944959698%_ + _%e5945059701%_ + _%hd5945159705%_ + _%tl5945259708%_ + _%e5946259630%_ + _%hd5946359634%_ + _%tl5946459637%_)))) (let () (declare (not safe)) - (_%g5934159459%_))))))) - (_%__match7972579726%_ - (lambda (_%e5936559675%_ - _%hd5936659679%_ - _%tl5936759682%_ - _%e5936859685%_ - _%hd5936959689%_ - _%tl5937059692%_) - (let ((_%L59695%_ _%tl5936759682%_) - (_%L59697%_ _%tl5937059692%_) - (_%L59698%_ _%hd5936959689%_)) - (if (and (gx#identifier? _%L59698%_) + (_%g5941459532%_))))))) + (_%__match8060080601%_ + (lambda (_%e5943859748%_ + _%hd5943959752%_ + _%tl5944059755%_ + _%e5944159758%_ + _%hd5944259762%_ + _%tl5944359765%_) + (let ((_%L59768%_ _%tl5944059755%_) + (_%L59770%_ _%tl5944359765%_) + (_%L59771%_ _%hd5944259762%_)) + (if (and (gx#identifier? _%L59771%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L59697%_)) - (_%__kont7967379674%_ - _%L59695%_ - _%L59697%_ - _%L59698%_) - (if (gx#stx-pair? _%tl5936759682%_) - (let ((_%e5937759628%_ - (gx#syntax-e _%tl5936759682%_))) - (let ((_%tl5937959635%_ + _%L59770%_)) + (_%__kont8054880549%_ + _%L59768%_ + _%L59770%_ + _%L59771%_) + (if (gx#stx-pair? _%tl5944059755%_) + (let ((_%e5945059701%_ + (gx#syntax-e _%tl5944059755%_))) + (let ((_%tl5945259708%_ (let () (declare (not safe)) - (##cdr _%e5937759628%_))) - (_%hd5937859632%_ + (##cdr _%e5945059701%_))) + (_%hd5945159705%_ (let () (declare (not safe)) - (##car _%e5937759628%_)))) - (_%__match7973779738%_ - _%e5936559675%_ - _%hd5936659679%_ - _%tl5936759682%_ - _%e5937759628%_ - _%hd5937859632%_ - _%tl5937959635%_))) + (##car _%e5945059701%_)))) + (_%__match8061280613%_ + _%e5943859748%_ + _%hd5943959752%_ + _%tl5944059755%_ + _%e5945059701%_ + _%hd5945159705%_ + _%tl5945259708%_))) (let () (declare (not safe)) - (_%g5934159459%_))))))) - (_%__match7971379714%_ - (lambda (_%e5935359953%_ - _%hd5935459957%_ - _%tl5935559960%_ - _%e5935659963%_ - _%hd5935759967%_ - _%tl5935859970%_ - _%e5935959973%_ - _%hd5936059977%_ - _%tl5936159980%_) - (let ((_%L59983%_ _%tl5935559960%_) - (_%L59985%_ _%hd5935759967%_)) - (if (gx#identifier? _%L59985%_) - (_%__kont7967179672%_ _%L59983%_ _%L59985%_) - (_%__match7972579726%_ - _%e5935359953%_ - _%hd5935459957%_ - _%tl5935559960%_ - _%e5935659963%_ - _%hd5935759967%_ - _%tl5935859970%_))))) - (_%__match7969379694%_ - (lambda (_%e5934860020%_ - _%hd5934960024%_ - _%tl5935060027%_) - (let ((_%L60030%_ _%tl5935060027%_) - (_%L60032%_ _%hd5934960024%_)) - (if (gx#identifier? _%L60032%_) - (_%__kont7966979670%_ _%L60030%_ _%L60032%_) - (if (gx#stx-pair? _%hd5934960024%_) - (let ((_%e5935659963%_ - (gx#syntax-e _%hd5934960024%_))) - (let ((_%tl5935859970%_ + (_%g5941459532%_))))))) + (_%__match8058880589%_ + (lambda (_%e5942660026%_ + _%hd5942760030%_ + _%tl5942860033%_ + _%e5942960036%_ + _%hd5943060040%_ + _%tl5943160043%_ + _%e5943260046%_ + _%hd5943360050%_ + _%tl5943460053%_) + (let ((_%L60056%_ _%tl5942860033%_) + (_%L60058%_ _%hd5943060040%_)) + (if (gx#identifier? _%L60058%_) + (_%__kont8054680547%_ _%L60056%_ _%L60058%_) + (_%__match8060080601%_ + _%e5942660026%_ + _%hd5942760030%_ + _%tl5942860033%_ + _%e5942960036%_ + _%hd5943060040%_ + _%tl5943160043%_))))) + (_%__match8056880569%_ + (lambda (_%e5942160093%_ + _%hd5942260097%_ + _%tl5942360100%_) + (let ((_%L60103%_ _%tl5942360100%_) + (_%L60105%_ _%hd5942260097%_)) + (if (gx#identifier? _%L60105%_) + (_%__kont8054480545%_ _%L60103%_ _%L60105%_) + (if (gx#stx-pair? _%hd5942260097%_) + (let ((_%e5942960036%_ + (gx#syntax-e _%hd5942260097%_))) + (let ((_%tl5943160043%_ (let () (declare (not safe)) - (##cdr _%e5935659963%_))) - (_%hd5935759967%_ + (##cdr _%e5942960036%_))) + (_%hd5943060040%_ (let () (declare (not safe)) - (##car _%e5935659963%_)))) - (if (gx#stx-pair? _%tl5935859970%_) - (let ((_%e5935959973%_ + (##car _%e5942960036%_)))) + (if (gx#stx-pair? _%tl5943160043%_) + (let ((_%e5943260046%_ (gx#syntax-e - _%tl5935859970%_))) - (let ((_%tl5936159980%_ + _%tl5943160043%_))) + (let ((_%tl5943460053%_ (let () (declare (not safe)) - (##cdr _%e5935959973%_))) - (_%hd5936059977%_ + (##cdr _%e5943260046%_))) + (_%hd5943360050%_ (let () (declare (not safe)) - (##car _%e5935959973%_)))) + (##car _%e5943260046%_)))) (if (gx#stx-null? - _%tl5936159980%_) - (_%__match7971379714%_ - _%e5934860020%_ - _%hd5934960024%_ - _%tl5935060027%_ - _%e5935659963%_ - _%hd5935759967%_ - _%tl5935859970%_ - _%e5935959973%_ - _%hd5936059977%_ - _%tl5936159980%_) - (_%__match7972579726%_ - _%e5934860020%_ - _%hd5934960024%_ - _%tl5935060027%_ - _%e5935659963%_ - _%hd5935759967%_ - _%tl5935859970%_)))) - (_%__match7972579726%_ - _%e5934860020%_ - _%hd5934960024%_ - _%tl5935060027%_ - _%e5935659963%_ - _%hd5935759967%_ - _%tl5935859970%_)))) - (if (gx#stx-pair? _%tl5935060027%_) - (let ((_%e5937759628%_ - (gx#syntax-e _%tl5935060027%_))) - (let ((_%tl5937959635%_ + _%tl5943460053%_) + (_%__match8058880589%_ + _%e5942160093%_ + _%hd5942260097%_ + _%tl5942360100%_ + _%e5942960036%_ + _%hd5943060040%_ + _%tl5943160043%_ + _%e5943260046%_ + _%hd5943360050%_ + _%tl5943460053%_) + (_%__match8060080601%_ + _%e5942160093%_ + _%hd5942260097%_ + _%tl5942360100%_ + _%e5942960036%_ + _%hd5943060040%_ + _%tl5943160043%_)))) + (_%__match8060080601%_ + _%e5942160093%_ + _%hd5942260097%_ + _%tl5942360100%_ + _%e5942960036%_ + _%hd5943060040%_ + _%tl5943160043%_)))) + (if (gx#stx-pair? _%tl5942360100%_) + (let ((_%e5945059701%_ + (gx#syntax-e _%tl5942360100%_))) + (let ((_%tl5945259708%_ (let () (declare (not safe)) - (##cdr _%e5937759628%_))) - (_%hd5937859632%_ + (##cdr _%e5945059701%_))) + (_%hd5945159705%_ (let () (declare (not safe)) - (##car _%e5937759628%_)))) - (_%__match7973779738%_ - _%e5934860020%_ - _%hd5934960024%_ - _%tl5935060027%_ - _%e5937759628%_ - _%hd5937859632%_ - _%tl5937959635%_))) + (##car _%e5945059701%_)))) + (_%__match8061280613%_ + _%e5942160093%_ + _%hd5942260097%_ + _%tl5942360100%_ + _%e5945059701%_ + _%hd5945159705%_ + _%tl5945259708%_))) (let () (declare (not safe)) - (_%g5934159459%_))))))))) - (if (gx#stx-pair? _%__stx7966679667%_) - (let ((_%e5934860020%_ - (gx#syntax-e _%__stx7966679667%_))) - (let ((_%tl5935060027%_ + (_%g5941459532%_))))))))) + (if (gx#stx-pair? _%__stx8054180542%_) + (let ((_%e5942160093%_ + (gx#syntax-e _%__stx8054180542%_))) + (let ((_%tl5942360100%_ (let () (declare (not safe)) - (##cdr _%e5934860020%_))) - (_%hd5934960024%_ + (##cdr _%e5942160093%_))) + (_%hd5942260097%_ (let () (declare (not safe)) - (##car _%e5934860020%_)))) - (_%__match7969379694%_ - _%e5934860020%_ - _%hd5934960024%_ - _%tl5935060027%_))) - (let () (declare (not safe)) (_%g5934159459%_)))))))))) + (##car _%e5942160093%_)))) + (_%__match8056880569%_ + _%e5942160093%_ + _%hd5942260097%_ + _%tl5942360100%_))) + (let () (declare (not safe)) (_%g5941459532%_)))))))))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!__@| - (lambda (_%@@keywords60064%_ . _%args60066%_) + (lambda (_%@@keywords60137%_ . _%args60139%_) (apply |gerbil/core/contract~Interface[1]#check-signature-spec!__%| - _%@@keywords60064%_ + _%@@keywords60137%_ (symbolic-table-ref - _%@@keywords60064%_ + _%@@keywords60137%_ 'optionals: absent-value) - (symbolic-table-ref _%@@keywords60064%_ 'keywords: absent-value) - _%args60066%_))) + (symbolic-table-ref _%@@keywords60137%_ 'keywords: absent-value) + _%args60139%_))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!| - (lambda _%args5931060073%_ + (lambda _%args5938360146%_ (apply keyword-dispatch '#(optionals: keywords:) |gerbil/core/contract~Interface[1]#check-signature-spec!__@| - _%args5931060073%_))) + _%args5938360146%_))) (define |gerbil/core/contract~Interface[1]#signature-contract?| - (lambda (_%contract58767%_) - (let* ((_%__stx7978679787%_ _%contract58767%_) - (_%g5877658864%_ + (lambda (_%contract58840%_) + (let* ((_%__stx8066180662%_ _%contract58840%_) + (_%g5884958937%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7978679787%_)))) - (let ((_%__kont7978979790%_ - (lambda (_%L59276%_ _%L59278%_) (gx#identifier? _%L59276%_))) - (_%__kont7979179792%_ - (lambda (_%L59216%_ _%L59218%_ _%L59219%_) - (gx#identifier? _%L59218%_))) - (_%__kont7979379794%_ (lambda (_%L59156%_) '#t)) - (_%__kont7979579796%_ (lambda (_%L59110%_ _%L59112%_) '#t)) - (_%__kont7979779798%_ - (lambda (_%L59030%_ _%L59032%_ _%L59033%_) - (gx#identifier? _%L59030%_))) - (_%__kont7979979800%_ - (lambda (_%L58942%_ _%L58944%_ _%L58945%_ _%L58946%_) - (gx#identifier? _%L58944%_))) - (_%__kont7980179802%_ (lambda () '#f))) - (let* ((_%__match7997579976%_ - (lambda (_%e5884158882%_ - _%hd5884258886%_ - _%tl5884358889%_ - _%e5884458892%_ - _%hd5884558896%_ - _%tl5884658899%_ - _%e5884758902%_ - _%hd5884858906%_ - _%tl5884958909%_ - _%e5885058912%_ - _%hd5885158916%_ - _%tl5885258919%_ - _%e5885358922%_ - _%hd5885458926%_ - _%tl5885558929%_ - _%e5885658932%_ - _%hd5885758936%_ - _%tl5885858939%_) - (let ((_%L58942%_ _%hd5885758936%_) - (_%L58944%_ _%hd5885158916%_) - (_%L58945%_ _%hd5884858906%_) - (_%L58946%_ _%hd5884558896%_)) - (if (and (gx#identifier? _%L58945%_) + _%__stx8066180662%_)))) + (let ((_%__kont8066480665%_ + (lambda (_%L59349%_ _%L59351%_) (gx#identifier? _%L59349%_))) + (_%__kont8066680667%_ + (lambda (_%L59289%_ _%L59291%_ _%L59292%_) + (gx#identifier? _%L59291%_))) + (_%__kont8066880669%_ (lambda (_%L59229%_) '#t)) + (_%__kont8067080671%_ (lambda (_%L59183%_ _%L59185%_) '#t)) + (_%__kont8067280673%_ + (lambda (_%L59103%_ _%L59105%_ _%L59106%_) + (gx#identifier? _%L59103%_))) + (_%__kont8067480675%_ + (lambda (_%L59015%_ _%L59017%_ _%L59018%_ _%L59019%_) + (gx#identifier? _%L59017%_))) + (_%__kont8067680677%_ (lambda () '#f))) + (let* ((_%__match8085080851%_ + (lambda (_%e5891458955%_ + _%hd5891558959%_ + _%tl5891658962%_ + _%e5891758965%_ + _%hd5891858969%_ + _%tl5891958972%_ + _%e5892058975%_ + _%hd5892158979%_ + _%tl5892258982%_ + _%e5892358985%_ + _%hd5892458989%_ + _%tl5892558992%_ + _%e5892658995%_ + _%hd5892758999%_ + _%tl5892859002%_ + _%e5892959005%_ + _%hd5893059009%_ + _%tl5893159012%_) + (let ((_%L59015%_ _%hd5893059009%_) + (_%L59017%_ _%hd5892458989%_) + (_%L59018%_ _%hd5892158979%_) + (_%L59019%_ _%hd5891858969%_)) + (if (and (gx#identifier? _%L59018%_) (or (gx#free-identifier=? - _%L58945%_ + _%L59018%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58945%_ + _%L59018%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L58945%_ + _%L59018%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L58945%_ + _%L59018%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7979979800%_ - _%L58942%_ - _%L58944%_ - _%L58945%_ - _%L58946%_) - (_%__kont7980179802%_))))) - (_%__match7992979930%_ - (lambda (_%e5882558990%_ - _%hd5882658994%_ - _%tl5882758997%_ - _%e5882859000%_ - _%hd5882959004%_ - _%tl5883059007%_ - _%e5883159010%_ - _%hd5883259014%_ - _%tl5883359017%_ - _%e5883459020%_ - _%hd5883559024%_ - _%tl5883659027%_) - (let ((_%L59030%_ _%hd5883559024%_) - (_%L59032%_ _%hd5883259014%_) - (_%L59033%_ _%hd5882959004%_)) - (if (and (gx#identifier? _%L59032%_) + (_%__kont8067480675%_ + _%L59015%_ + _%L59017%_ + _%L59018%_ + _%L59019%_) + (_%__kont8067680677%_))))) + (_%__match8080480805%_ + (lambda (_%e5889859063%_ + _%hd5889959067%_ + _%tl5890059070%_ + _%e5890159073%_ + _%hd5890259077%_ + _%tl5890359080%_ + _%e5890459083%_ + _%hd5890559087%_ + _%tl5890659090%_ + _%e5890759093%_ + _%hd5890859097%_ + _%tl5890959100%_) + (let ((_%L59103%_ _%hd5890859097%_) + (_%L59105%_ _%hd5890559087%_) + (_%L59106%_ _%hd5890259077%_)) + (if (and (gx#identifier? _%L59105%_) (or (gx#free-identifier=? - _%L59032%_ + _%L59105%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L59032%_ + _%L59105%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L59032%_ + _%L59105%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L59032%_ + _%L59105%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7979779798%_ - _%L59030%_ - _%L59032%_ - _%L59033%_) - (_%__kont7980179802%_))))) - (_%__match7984779848%_ - (lambda (_%e5878959176%_ - _%hd5879059180%_ - _%tl5879159183%_ - _%e5879259186%_ - _%hd5879359190%_ - _%tl5879459193%_ - _%e5879559196%_ - _%hd5879659200%_ - _%tl5879759203%_ - _%e5879859206%_ - _%hd5879959210%_ - _%tl5880059213%_) - (let ((_%L59216%_ _%hd5879959210%_) - (_%L59218%_ _%hd5879359190%_) - (_%L59219%_ _%hd5879059180%_)) - (if (and (gx#identifier? _%L59219%_) + (_%__kont8067280673%_ + _%L59103%_ + _%L59105%_ + _%L59106%_) + (_%__kont8067680677%_))))) + (_%__match8072280723%_ + (lambda (_%e5886259249%_ + _%hd5886359253%_ + _%tl5886459256%_ + _%e5886559259%_ + _%hd5886659263%_ + _%tl5886759266%_ + _%e5886859269%_ + _%hd5886959273%_ + _%tl5887059276%_ + _%e5887159279%_ + _%hd5887259283%_ + _%tl5887359286%_) + (let ((_%L59289%_ _%hd5887259283%_) + (_%L59291%_ _%hd5886659263%_) + (_%L59292%_ _%hd5886359253%_)) + (if (and (gx#identifier? _%L59292%_) (or (gx#free-identifier=? - _%L59219%_ + _%L59292%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L59219%_ + _%L59292%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L59219%_ + _%L59292%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L59219%_ + _%L59292%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7979179792%_ - _%L59216%_ - _%L59218%_ - _%L59219%_) - (if (gx#identifier? _%hd5879059180%_) + (_%__kont8066680667%_ + _%L59289%_ + _%L59291%_ + _%L59292%_) + (if (gx#identifier? _%hd5886359253%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84050_| - _%hd5879059180%_) - (_%__kont7979579796%_ - _%hd5879959210%_ - _%hd5879359190%_) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)))))) - (_%__match7981779818%_ - (lambda (_%e5878059256%_ - _%hd5878159260%_ - _%tl5878259263%_ - _%e5878359266%_ - _%hd5878459270%_ - _%tl5878559273%_) - (let ((_%L59276%_ _%hd5878459270%_) - (_%L59278%_ _%hd5878159260%_)) - (if (and (gx#identifier? _%L59278%_) + |gerbil/core/contract~Interface[1]#_g85035_| + _%hd5886359253%_) + (_%__kont8067080671%_ + _%hd5887259283%_ + _%hd5886659263%_) + (_%__kont8067680677%_)) + (_%__kont8067680677%_)))))) + (_%__match8069280693%_ + (lambda (_%e5885359329%_ + _%hd5885459333%_ + _%tl5885559336%_ + _%e5885659339%_ + _%hd5885759343%_ + _%tl5885859346%_) + (let ((_%L59349%_ _%hd5885759343%_) + (_%L59351%_ _%hd5885459333%_)) + (if (and (gx#identifier? _%L59351%_) (or (gx#free-identifier=? - _%L59278%_ + _%L59351%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L59278%_ + _%L59351%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L59278%_ + _%L59351%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L59278%_ + _%L59351%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7978979790%_ _%L59276%_ _%L59278%_) - (if (gx#identifier? _%hd5878159260%_) + (_%__kont8066480665%_ _%L59349%_ _%L59351%_) + (if (gx#identifier? _%hd5885459333%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84050_| - _%hd5878159260%_) - (_%__kont7979379794%_ _%hd5878459270%_) - (_%__kont7980179802%_)) - (_%__kont7980179802%_))))))) - (if (gx#stx-pair? _%__stx7978679787%_) - (let ((_%e5878059256%_ (gx#syntax-e _%__stx7978679787%_))) - (let ((_%tl5878259263%_ + |gerbil/core/contract~Interface[1]#_g85035_| + _%hd5885459333%_) + (_%__kont8066880669%_ _%hd5885759343%_) + (_%__kont8067680677%_)) + (_%__kont8067680677%_))))))) + (if (gx#stx-pair? _%__stx8066180662%_) + (let ((_%e5885359329%_ (gx#syntax-e _%__stx8066180662%_))) + (let ((_%tl5885559336%_ (let () (declare (not safe)) - (##cdr _%e5878059256%_))) - (_%hd5878159260%_ + (##cdr _%e5885359329%_))) + (_%hd5885459333%_ (let () (declare (not safe)) - (##car _%e5878059256%_)))) - (if (gx#stx-pair? _%tl5878259263%_) - (let ((_%e5878359266%_ - (gx#syntax-e _%tl5878259263%_))) - (let ((_%tl5878559273%_ + (##car _%e5885359329%_)))) + (if (gx#stx-pair? _%tl5885559336%_) + (let ((_%e5885659339%_ + (gx#syntax-e _%tl5885559336%_))) + (let ((_%tl5885859346%_ (let () (declare (not safe)) - (##cdr _%e5878359266%_))) - (_%hd5878459270%_ + (##cdr _%e5885659339%_))) + (_%hd5885759343%_ (let () (declare (not safe)) - (##car _%e5878359266%_)))) - (if (gx#stx-null? _%tl5878559273%_) - (_%__match7981779818%_ - _%e5878059256%_ - _%hd5878159260%_ - _%tl5878259263%_ - _%e5878359266%_ - _%hd5878459270%_ - _%tl5878559273%_) - (if (gx#stx-pair? _%tl5878559273%_) - (let ((_%e5879559196%_ - (gx#syntax-e _%tl5878559273%_))) - (let ((_%tl5879759203%_ + (##car _%e5885659339%_)))) + (if (gx#stx-null? _%tl5885859346%_) + (_%__match8069280693%_ + _%e5885359329%_ + _%hd5885459333%_ + _%tl5885559336%_ + _%e5885659339%_ + _%hd5885759343%_ + _%tl5885859346%_) + (if (gx#stx-pair? _%tl5885859346%_) + (let ((_%e5886859269%_ + (gx#syntax-e _%tl5885859346%_))) + (let ((_%tl5887059276%_ (let () (declare (not safe)) - (##cdr _%e5879559196%_))) - (_%hd5879659200%_ + (##cdr _%e5886859269%_))) + (_%hd5886959273%_ (let () (declare (not safe)) - (##car _%e5879559196%_)))) - (if (gx#identifier? _%hd5879659200%_) + (##car _%e5886859269%_)))) + (if (gx#identifier? _%hd5886959273%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84051_| - _%hd5879659200%_) + |gerbil/core/contract~Interface[1]#_g85036_| + _%hd5886959273%_) (if (gx#stx-pair? - _%tl5879759203%_) - (let ((_%e5879859206%_ + _%tl5887059276%_) + (let ((_%e5887159279%_ (gx#syntax-e - _%tl5879759203%_))) - (let ((_%tl5880059213%_ + _%tl5887059276%_))) + (let ((_%tl5887359286%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5879859206%_))) - (_%hd5879959210%_ - (let () (declare (not safe)) (##car _%e5879859206%_)))) - (if (gx#stx-null? _%tl5880059213%_) - (_%__match7984779848%_ - _%e5878059256%_ - _%hd5878159260%_ - _%tl5878259263%_ - _%e5878359266%_ - _%hd5878459270%_ - _%tl5878559273%_ - _%e5879559196%_ - _%hd5879659200%_ - _%tl5879759203%_ - _%e5879859206%_ - _%hd5879959210%_ - _%tl5880059213%_) - (if (gx#identifier? _%hd5878159260%_) + (##cdr _%e5887159279%_))) + (_%hd5887259283%_ + (let () (declare (not safe)) (##car _%e5887159279%_)))) + (if (gx#stx-null? _%tl5887359286%_) + (_%__match8072280723%_ + _%e5885359329%_ + _%hd5885459333%_ + _%tl5885559336%_ + _%e5885659339%_ + _%hd5885759343%_ + _%tl5885859346%_ + _%e5886859269%_ + _%hd5886959273%_ + _%tl5887059276%_ + _%e5887159279%_ + _%hd5887259283%_ + _%tl5887359286%_) + (if (gx#identifier? _%hd5885459333%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84050_| - _%hd5878159260%_) - (if (gx#stx-pair? _%tl5880059213%_) - (let ((_%e5885358922%_ - (gx#syntax-e _%tl5880059213%_))) - (let ((_%tl5885558929%_ + |gerbil/core/contract~Interface[1]#_g85035_| + _%hd5885459333%_) + (if (gx#stx-pair? _%tl5887359286%_) + (let ((_%e5892658995%_ + (gx#syntax-e _%tl5887359286%_))) + (let ((_%tl5892859002%_ (let () (declare (not safe)) - (##cdr _%e5885358922%_))) - (_%hd5885458926%_ + (##cdr _%e5892658995%_))) + (_%hd5892758999%_ (let () (declare (not safe)) - (##car _%e5885358922%_)))) - (if (gx#identifier? _%hd5885458926%_) + (##car _%e5892658995%_)))) + (if (gx#identifier? _%hd5892758999%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84052_| - _%hd5885458926%_) + |gerbil/core/contract~Interface[1]#_g85037_| + _%hd5892758999%_) (if (gx#stx-pair? - _%tl5885558929%_) - (let ((_%e5885658932%_ + _%tl5892859002%_) + (let ((_%e5892959005%_ (gx#syntax-e - _%tl5885558929%_))) - (let ((_%tl5885858939%_ + _%tl5892859002%_))) + (let ((_%tl5893159012%_ (let () (declare (not safe)) - (##cdr _%e5885658932%_))) - (_%hd5885758936%_ + (##cdr _%e5892959005%_))) + (_%hd5893059009%_ (let () (declare (not safe)) - (##car _%e5885658932%_)))) + (##car _%e5892959005%_)))) (if (gx#stx-null? - _%tl5885858939%_) - (_%__match7997579976%_ - _%e5878059256%_ - _%hd5878159260%_ - _%tl5878259263%_ - _%e5878359266%_ - _%hd5878459270%_ - _%tl5878559273%_ - _%e5879559196%_ - _%hd5879659200%_ - _%tl5879759203%_ - _%e5879859206%_ - _%hd5879959210%_ - _%tl5880059213%_ - _%e5885358922%_ - _%hd5885458926%_ - _%tl5885558929%_ - _%e5885658932%_ - _%hd5885758936%_ - _%tl5885858939%_) - (_%__kont7980179802%_)))) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)))) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)) - (_%__kont7980179802%_))))) - (_%__kont7980179802%_)) + _%tl5893159012%_) + (_%__match8085080851%_ + _%e5885359329%_ + _%hd5885459333%_ + _%tl5885559336%_ + _%e5885659339%_ + _%hd5885759343%_ + _%tl5885859346%_ + _%e5886859269%_ + _%hd5886959273%_ + _%tl5887059276%_ + _%e5887159279%_ + _%hd5887259283%_ + _%tl5887359286%_ + _%e5892658995%_ + _%hd5892758999%_ + _%tl5892859002%_ + _%e5892959005%_ + _%hd5893059009%_ + _%tl5893159012%_) + (_%__kont8067680677%_)))) + (_%__kont8067680677%_)) + (_%__kont8067680677%_)) + (_%__kont8067680677%_)))) + (_%__kont8067680677%_)) + (_%__kont8067680677%_)) + (_%__kont8067680677%_))))) + (_%__kont8067680677%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd5878159260%_) + _%hd5885459333%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84050_| - _%hd5878159260%_) + |gerbil/core/contract~Interface[1]#_g85035_| + _%hd5885459333%_) (if (gx#stx-pair? - _%tl5879759203%_) - (let ((_%e5883459020%_ + _%tl5887059276%_) + (let ((_%e5890759093%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5879759203%_))) - (let ((_%tl5883659027%_ + (gx#syntax-e _%tl5887059276%_))) + (let ((_%tl5890959100%_ (let () (declare (not safe)) - (##cdr _%e5883459020%_))) - (_%hd5883559024%_ + (##cdr _%e5890759093%_))) + (_%hd5890859097%_ (let () (declare (not safe)) - (##car _%e5883459020%_)))) - (if (gx#stx-null? _%tl5883659027%_) - (_%__match7992979930%_ - _%e5878059256%_ - _%hd5878159260%_ - _%tl5878259263%_ - _%e5878359266%_ - _%hd5878459270%_ - _%tl5878559273%_ - _%e5879559196%_ - _%hd5879659200%_ - _%tl5879759203%_ - _%e5883459020%_ - _%hd5883559024%_ - _%tl5883659027%_) - (if (gx#stx-pair? _%tl5883659027%_) - (let ((_%e5885358922%_ - (gx#syntax-e _%tl5883659027%_))) - (let ((_%tl5885558929%_ + (##car _%e5890759093%_)))) + (if (gx#stx-null? _%tl5890959100%_) + (_%__match8080480805%_ + _%e5885359329%_ + _%hd5885459333%_ + _%tl5885559336%_ + _%e5885659339%_ + _%hd5885759343%_ + _%tl5885859346%_ + _%e5886859269%_ + _%hd5886959273%_ + _%tl5887059276%_ + _%e5890759093%_ + _%hd5890859097%_ + _%tl5890959100%_) + (if (gx#stx-pair? _%tl5890959100%_) + (let ((_%e5892658995%_ + (gx#syntax-e _%tl5890959100%_))) + (let ((_%tl5892859002%_ (let () (declare (not safe)) - (##cdr _%e5885358922%_))) - (_%hd5885458926%_ + (##cdr _%e5892658995%_))) + (_%hd5892758999%_ (let () (declare (not safe)) - (##car _%e5885358922%_)))) - (if (gx#identifier? _%hd5885458926%_) + (##car _%e5892658995%_)))) + (if (gx#identifier? _%hd5892758999%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84052_| - _%hd5885458926%_) + |gerbil/core/contract~Interface[1]#_g85037_| + _%hd5892758999%_) (if (gx#stx-pair? - _%tl5885558929%_) - (let ((_%e5885658932%_ + _%tl5892859002%_) + (let ((_%e5892959005%_ (gx#syntax-e - _%tl5885558929%_))) - (let ((_%tl5885858939%_ + _%tl5892859002%_))) + (let ((_%tl5893159012%_ (let () (declare (not safe)) - (##cdr _%e5885658932%_))) - (_%hd5885758936%_ + (##cdr _%e5892959005%_))) + (_%hd5893059009%_ (let () (declare (not safe)) - (##car _%e5885658932%_)))) + (##car _%e5892959005%_)))) (if (gx#stx-null? - _%tl5885858939%_) - (_%__match7997579976%_ - _%e5878059256%_ - _%hd5878159260%_ - _%tl5878259263%_ - _%e5878359266%_ - _%hd5878459270%_ - _%tl5878559273%_ - _%e5879559196%_ - _%hd5879659200%_ - _%tl5879759203%_ - _%e5883459020%_ - _%hd5883559024%_ - _%tl5883659027%_ - _%e5885358922%_ - _%hd5885458926%_ - _%tl5885558929%_ - _%e5885658932%_ - _%hd5885758936%_ - _%tl5885858939%_) - (_%__kont7980179802%_)))) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)))) - (_%__kont7980179802%_))))) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)) - (_%__kont7980179802%_))) + _%tl5893159012%_) + (_%__match8085080851%_ + _%e5885359329%_ + _%hd5885459333%_ + _%tl5885559336%_ + _%e5885659339%_ + _%hd5885759343%_ + _%tl5885859346%_ + _%e5886859269%_ + _%hd5886959273%_ + _%tl5887059276%_ + _%e5890759093%_ + _%hd5890859097%_ + _%tl5890959100%_ + _%e5892658995%_ + _%hd5892758999%_ + _%tl5892859002%_ + _%e5892959005%_ + _%hd5893059009%_ + _%tl5893159012%_) + (_%__kont8067680677%_)))) + (_%__kont8067680677%_)) + (_%__kont8067680677%_)) + (_%__kont8067680677%_)))) + (_%__kont8067680677%_))))) + (_%__kont8067680677%_)) + (_%__kont8067680677%_)) + (_%__kont8067680677%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd5878159260%_) + _%hd5885459333%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84050_| - _%hd5878159260%_) + |gerbil/core/contract~Interface[1]#_g85035_| + _%hd5885459333%_) (if (gx#stx-pair? - _%tl5879759203%_) - (let ((_%e5883459020%_ + _%tl5887059276%_) + (let ((_%e5890759093%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5879759203%_))) - (let ((_%tl5883659027%_ + (gx#syntax-e _%tl5887059276%_))) + (let ((_%tl5890959100%_ (let () (declare (not safe)) - (##cdr _%e5883459020%_))) - (_%hd5883559024%_ + (##cdr _%e5890759093%_))) + (_%hd5890859097%_ (let () (declare (not safe)) - (##car _%e5883459020%_)))) - (if (gx#stx-null? _%tl5883659027%_) - (_%__match7992979930%_ - _%e5878059256%_ - _%hd5878159260%_ - _%tl5878259263%_ - _%e5878359266%_ - _%hd5878459270%_ - _%tl5878559273%_ - _%e5879559196%_ - _%hd5879659200%_ - _%tl5879759203%_ - _%e5883459020%_ - _%hd5883559024%_ - _%tl5883659027%_) - (if (gx#stx-pair? _%tl5883659027%_) - (let ((_%e5885358922%_ - (gx#syntax-e _%tl5883659027%_))) - (let ((_%tl5885558929%_ + (##car _%e5890759093%_)))) + (if (gx#stx-null? _%tl5890959100%_) + (_%__match8080480805%_ + _%e5885359329%_ + _%hd5885459333%_ + _%tl5885559336%_ + _%e5885659339%_ + _%hd5885759343%_ + _%tl5885859346%_ + _%e5886859269%_ + _%hd5886959273%_ + _%tl5887059276%_ + _%e5890759093%_ + _%hd5890859097%_ + _%tl5890959100%_) + (if (gx#stx-pair? _%tl5890959100%_) + (let ((_%e5892658995%_ + (gx#syntax-e _%tl5890959100%_))) + (let ((_%tl5892859002%_ (let () (declare (not safe)) - (##cdr _%e5885358922%_))) - (_%hd5885458926%_ + (##cdr _%e5892658995%_))) + (_%hd5892758999%_ (let () (declare (not safe)) - (##car _%e5885358922%_)))) - (if (gx#identifier? _%hd5885458926%_) + (##car _%e5892658995%_)))) + (if (gx#identifier? _%hd5892758999%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84052_| - _%hd5885458926%_) - (if (gx#stx-pair? _%tl5885558929%_) - (let ((_%e5885658932%_ + |gerbil/core/contract~Interface[1]#_g85037_| + _%hd5892758999%_) + (if (gx#stx-pair? _%tl5892859002%_) + (let ((_%e5892959005%_ (gx#syntax-e - _%tl5885558929%_))) - (let ((_%tl5885858939%_ + _%tl5892859002%_))) + (let ((_%tl5893159012%_ (let () (declare (not safe)) - (##cdr _%e5885658932%_))) - (_%hd5885758936%_ + (##cdr _%e5892959005%_))) + (_%hd5893059009%_ (let () (declare (not safe)) - (##car _%e5885658932%_)))) + (##car _%e5892959005%_)))) (if (gx#stx-null? - _%tl5885858939%_) - (_%__match7997579976%_ - _%e5878059256%_ - _%hd5878159260%_ - _%tl5878259263%_ - _%e5878359266%_ - _%hd5878459270%_ - _%tl5878559273%_ - _%e5879559196%_ - _%hd5879659200%_ - _%tl5879759203%_ - _%e5883459020%_ - _%hd5883559024%_ - _%tl5883659027%_ - _%e5885358922%_ - _%hd5885458926%_ - _%tl5885558929%_ - _%e5885658932%_ - _%hd5885758936%_ - _%tl5885858939%_) - (_%__kont7980179802%_)))) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)))) - (_%__kont7980179802%_))))) - (_%__kont7980179802%_)) - (_%__kont7980179802%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7980179802%_))))) - (_%__kont7980179802%_))))) - (_%__kont7980179802%_)))) - (_%__kont7980179802%_))))))) + _%tl5893159012%_) + (_%__match8085080851%_ + _%e5885359329%_ + _%hd5885459333%_ + _%tl5885559336%_ + _%e5885659339%_ + _%hd5885759343%_ + _%tl5885859346%_ + _%e5886859269%_ + _%hd5886959273%_ + _%tl5887059276%_ + _%e5890759093%_ + _%hd5890859097%_ + _%tl5890959100%_ + _%e5892658995%_ + _%hd5892758999%_ + _%tl5892859002%_ + _%e5892959005%_ + _%hd5893059009%_ + _%tl5893159012%_) + (_%__kont8067680677%_)))) + (_%__kont8067680677%_)) + (_%__kont8067680677%_)) + (_%__kont8067680677%_)))) + (_%__kont8067680677%_))))) + (_%__kont8067680677%_)) + (_%__kont8067680677%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8067680677%_))))) + (_%__kont8067680677%_))))) + (_%__kont8067680677%_)))) + (_%__kont8067680677%_))))))) (define |gerbil/core/contract~Interface[1]#check-signature-contract-types!| - (lambda (_%stx58574%_ _%contract58576%_) - (let* ((_%__stx7997879979%_ _%contract58576%_) - (_%g5858058612%_ + (lambda (_%stx58647%_ _%contract58649%_) + (let* ((_%__stx8085380854%_ _%contract58649%_) + (_%g5865358685%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7997879979%_)))) - (let ((_%__kont7998179982%_ - (lambda (_%L58734%_ _%L58736%_ _%L58737%_) + _%__stx8085380854%_)))) + (let ((_%__kont8085680857%_ + (lambda (_%L58807%_ _%L58809%_ _%L58810%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx58574%_ - _%L58736%_))) - (_%__kont7998379984%_ - (lambda (_%L58670%_ _%L58672%_ _%L58673%_ _%L58674%_) + _%stx58647%_ + _%L58809%_))) + (_%__kont8085880859%_ + (lambda (_%L58743%_ _%L58745%_ _%L58746%_ _%L58747%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx58574%_ - _%L58672%_))) - (_%__kont7998579986%_ (lambda () (void)))) - (let* ((_%__match8002780028%_ - (lambda (_%e5859558630%_ - _%hd5859658634%_ - _%tl5859758637%_ - _%e5859858640%_ - _%hd5859958644%_ - _%tl5860058647%_ - _%e5860158650%_ - _%hd5860258654%_ - _%tl5860358657%_ - _%e5860458660%_ - _%hd5860558664%_ - _%tl5860658667%_) - (let ((_%L58670%_ _%tl5860658667%_) - (_%L58672%_ _%hd5860558664%_) - (_%L58673%_ _%hd5860258654%_) - (_%L58674%_ _%hd5859958644%_)) - (if (and (gx#identifier? _%L58673%_) + _%stx58647%_ + _%L58745%_))) + (_%__kont8086080861%_ (lambda () (void)))) + (let* ((_%__match8090280903%_ + (lambda (_%e5866858703%_ + _%hd5866958707%_ + _%tl5867058710%_ + _%e5867158713%_ + _%hd5867258717%_ + _%tl5867358720%_ + _%e5867458723%_ + _%hd5867558727%_ + _%tl5867658730%_ + _%e5867758733%_ + _%hd5867858737%_ + _%tl5867958740%_) + (let ((_%L58743%_ _%tl5867958740%_) + (_%L58745%_ _%hd5867858737%_) + (_%L58746%_ _%hd5867558727%_) + (_%L58747%_ _%hd5867258717%_)) + (if (and (gx#identifier? _%L58746%_) (or (gx#free-identifier=? - _%L58673%_ + _%L58746%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58673%_ + _%L58746%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L58673%_ + _%L58746%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L58673%_ + _%L58746%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7998379984%_ - _%L58670%_ - _%L58672%_ - _%L58673%_ - _%L58674%_) - (_%__kont7998579986%_))))) - (_%__match7999980000%_ - (lambda (_%e5858558714%_ - _%hd5858658718%_ - _%tl5858758721%_ - _%e5858858724%_ - _%hd5858958728%_ - _%tl5859058731%_) - (let ((_%L58734%_ _%tl5859058731%_) - (_%L58736%_ _%hd5858958728%_) - (_%L58737%_ _%hd5858658718%_)) - (if (and (gx#identifier? _%L58737%_) + (_%__kont8085880859%_ + _%L58743%_ + _%L58745%_ + _%L58746%_ + _%L58747%_) + (_%__kont8086080861%_))))) + (_%__match8087480875%_ + (lambda (_%e5865858787%_ + _%hd5865958791%_ + _%tl5866058794%_ + _%e5866158797%_ + _%hd5866258801%_ + _%tl5866358804%_) + (let ((_%L58807%_ _%tl5866358804%_) + (_%L58809%_ _%hd5866258801%_) + (_%L58810%_ _%hd5865958791%_)) + (if (and (gx#identifier? _%L58810%_) (or (gx#free-identifier=? - _%L58737%_ + _%L58810%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58737%_ + _%L58810%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L58737%_ + _%L58810%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L58737%_ + _%L58810%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7998179982%_ - _%L58734%_ - _%L58736%_ - _%L58737%_) - (if (gx#identifier? _%hd5858658718%_) + (_%__kont8085680857%_ + _%L58807%_ + _%L58809%_ + _%L58810%_) + (if (gx#identifier? _%hd5865958791%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84053_| - _%hd5858658718%_) - (if (gx#stx-pair? _%tl5859058731%_) - (let ((_%e5860158650%_ - (gx#syntax-e _%tl5859058731%_))) - (let ((_%tl5860358657%_ + |gerbil/core/contract~Interface[1]#_g85038_| + _%hd5865958791%_) + (if (gx#stx-pair? _%tl5866358804%_) + (let ((_%e5867458723%_ + (gx#syntax-e _%tl5866358804%_))) + (let ((_%tl5867658730%_ (let () (declare (not safe)) - (##cdr _%e5860158650%_))) - (_%hd5860258654%_ + (##cdr _%e5867458723%_))) + (_%hd5867558727%_ (let () (declare (not safe)) - (##car _%e5860158650%_)))) - (if (gx#stx-pair? _%tl5860358657%_) - (let ((_%e5860458660%_ + (##car _%e5867458723%_)))) + (if (gx#stx-pair? _%tl5867658730%_) + (let ((_%e5867758733%_ (gx#syntax-e - _%tl5860358657%_))) - (let ((_%tl5860658667%_ + _%tl5867658730%_))) + (let ((_%tl5867958740%_ (let () (declare (not safe)) - (##cdr _%e5860458660%_))) - (_%hd5860558664%_ + (##cdr _%e5867758733%_))) + (_%hd5867858737%_ (let () (declare (not safe)) - (##car _%e5860458660%_)))) - (_%__match8002780028%_ - _%e5858558714%_ - _%hd5858658718%_ - _%tl5858758721%_ - _%e5858858724%_ - _%hd5858958728%_ - _%tl5859058731%_ - _%e5860158650%_ - _%hd5860258654%_ - _%tl5860358657%_ - _%e5860458660%_ - _%hd5860558664%_ - _%tl5860658667%_))) - (_%__kont7998579986%_)))) - (_%__kont7998579986%_)) - (_%__kont7998579986%_)) - (_%__kont7998579986%_))))))) - (if (gx#stx-pair? _%__stx7997879979%_) - (let ((_%e5858558714%_ (gx#syntax-e _%__stx7997879979%_))) - (let ((_%tl5858758721%_ + (##car _%e5867758733%_)))) + (_%__match8090280903%_ + _%e5865858787%_ + _%hd5865958791%_ + _%tl5866058794%_ + _%e5866158797%_ + _%hd5866258801%_ + _%tl5866358804%_ + _%e5867458723%_ + _%hd5867558727%_ + _%tl5867658730%_ + _%e5867758733%_ + _%hd5867858737%_ + _%tl5867958740%_))) + (_%__kont8086080861%_)))) + (_%__kont8086080861%_)) + (_%__kont8086080861%_)) + (_%__kont8086080861%_))))))) + (if (gx#stx-pair? _%__stx8085380854%_) + (let ((_%e5865858787%_ (gx#syntax-e _%__stx8085380854%_))) + (let ((_%tl5866058794%_ (let () (declare (not safe)) - (##cdr _%e5858558714%_))) - (_%hd5858658718%_ + (##cdr _%e5865858787%_))) + (_%hd5865958791%_ (let () (declare (not safe)) - (##car _%e5858558714%_)))) - (if (gx#stx-pair? _%tl5858758721%_) - (let ((_%e5858858724%_ - (gx#syntax-e _%tl5858758721%_))) - (let ((_%tl5859058731%_ + (##car _%e5865858787%_)))) + (if (gx#stx-pair? _%tl5866058794%_) + (let ((_%e5866158797%_ + (gx#syntax-e _%tl5866058794%_))) + (let ((_%tl5866358804%_ (let () (declare (not safe)) - (##cdr _%e5858858724%_))) - (_%hd5858958728%_ + (##cdr _%e5866158797%_))) + (_%hd5866258801%_ (let () (declare (not safe)) - (##car _%e5858858724%_)))) - (_%__match7999980000%_ - _%e5858558714%_ - _%hd5858658718%_ - _%tl5858758721%_ - _%e5858858724%_ - _%hd5858958728%_ - _%tl5859058731%_))) - (_%__kont7998579986%_)))) - (_%__kont7998579986%_))))))) + (##car _%e5866158797%_)))) + (_%__match8087480875%_ + _%e5865858787%_ + _%hd5865958791%_ + _%tl5866058794%_ + _%e5866158797%_ + _%hd5866258801%_ + _%tl5866358804%_))) + (_%__kont8086080861%_)))) + (_%__kont8086080861%_))))))) (define |gerbil/core/contract~Interface[1]#signature-arguments-in| - (lambda (_%signature57930%_) - (let _%loop57933%_ ((_%rest57936%_ _%signature57930%_) - (_%result57938%_ '())) - (let* ((_%__stx8010680107%_ _%rest57936%_) - (_%g5794758019%_ + (lambda (_%signature58003%_) + (let _%loop58006%_ ((_%rest58009%_ _%signature58003%_) + (_%result58011%_ '())) + (let* ((_%__stx8098180982%_ _%rest58009%_) + (_%g5802058092%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8010680107%_)))) - (let ((_%__kont8010980110%_ - (lambda (_%L58557%_ _%L58559%_) - (_%loop57933%_ - _%L58557%_ - (cons _%L58559%_ _%result57938%_)))) - (_%__kont8011180112%_ - (lambda (_%L58521%_ _%L58523%_ _%L58524%_) - (_%loop57933%_ - _%L58521%_ - (cons (cons _%L58524%_ (cons _%L58523%_ '())) - _%result57938%_)))) - (_%__kont8011380114%_ - (lambda (_%L58358%_ _%L58360%_ _%L58361%_) - (let* ((_%__stx8006880069%_ _%L58360%_) - (_%g5837658397%_ + _%__stx8098180982%_)))) + (let ((_%__kont8098480985%_ + (lambda (_%L58630%_ _%L58632%_) + (_%loop58006%_ + _%L58630%_ + (cons _%L58632%_ _%result58011%_)))) + (_%__kont8098680987%_ + (lambda (_%L58594%_ _%L58596%_ _%L58597%_) + (_%loop58006%_ + _%L58594%_ + (cons (cons _%L58597%_ (cons _%L58596%_ '())) + _%result58011%_)))) + (_%__kont8098880989%_ + (lambda (_%L58431%_ _%L58433%_ _%L58434%_) + (let* ((_%__stx8094380944%_ _%L58433%_) + (_%g5844958470%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8006880069%_)))) - (let ((_%__kont8007180072%_ - (lambda (_%L58461%_) - (_%loop57933%_ - _%L58358%_ - (cons (cons _%L58361%_ (cons _%L58461%_ '())) - _%result57938%_)))) - (_%__kont8007580076%_ + _%__stx8094380944%_)))) + (let ((_%__kont8094680947%_ + (lambda (_%L58534%_) + (_%loop58006%_ + _%L58431%_ + (cons (cons _%L58434%_ (cons _%L58534%_ '())) + _%result58011%_)))) + (_%__kont8095080951%_ (lambda () - (_%loop57933%_ - _%L58358%_ - (cons _%L58361%_ _%result57938%_))))) - (let ((_%__match8010380104%_ - (lambda (_%__splice8007380074%_ - _%target5837958415%_ - _%tl5838158418%_ - _%e5838658421%_ - _%hd5838758425%_ - _%tl5838858428%_ - _%e5838958431%_ - _%hd5839058435%_ - _%tl5839158438%_) - (letrec ((_%loop5838258441%_ - (lambda (_%hd5838058445%_) + (_%loop58006%_ + _%L58431%_ + (cons _%L58434%_ _%result58011%_))))) + (let ((_%__match8097880979%_ + (lambda (_%__splice8094880949%_ + _%target5845258488%_ + _%tl5845458491%_ + _%e5845958494%_ + _%hd5846058498%_ + _%tl5846158501%_ + _%e5846258504%_ + _%hd5846358508%_ + _%tl5846458511%_) + (letrec ((_%loop5845558514%_ + (lambda (_%hd5845358518%_) (if (gx#stx-pair? - _%hd5838058445%_) - (let ((_%e5838358449%_ + _%hd5845358518%_) + (let ((_%e5845658522%_ (gx#syntax-e - _%hd5838058445%_))) - (let ((_%lp-tl5838558456%_ + _%hd5845358518%_))) + (let ((_%lp-tl5845858529%_ (let () (declare (not safe)) - (##cdr _%e5838358449%_))) - (_%lp-hd5838458453%_ + (##cdr _%e5845658522%_))) + (_%lp-hd5845758526%_ (let () (declare (not safe)) - (##car _%e5838358449%_)))) - (_%loop5838258441%_ - _%lp-tl5838558456%_))) - (_%__kont8007180072%_ - _%hd5839058435%_))))) - (_%loop5838258441%_ - _%target5837958415%_))))) - (if (gx#stx-pair/null? _%__stx8006880069%_) - (if (let ((__tmp84054 - (gx#stx-length _%__stx8006880069%_))) + (##car _%e5845658522%_)))) + (_%loop5845558514%_ + _%lp-tl5845858529%_))) + (_%__kont8094680947%_ + _%hd5846358508%_))))) + (_%loop5845558514%_ + _%target5845258488%_))))) + (if (gx#stx-pair/null? _%__stx8094380944%_) + (if (let ((__tmp85039 + (gx#stx-length _%__stx8094380944%_))) (declare (not safe)) - (##fx>= __tmp84054 '2)) - (let ((_%__splice8007380074%_ + (##fx>= __tmp85039 '2)) + (let ((_%__splice8094880949%_ (gx#syntax-split-splice - _%__stx8006880069%_ + _%__stx8094380944%_ '2))) - (let ((_%tl5838158418%_ + (let ((_%tl5845458491%_ (let () (declare (not safe)) (##vector-ref - _%__splice8007380074%_ + _%__splice8094880949%_ '1))) - (_%target5837958415%_ + (_%target5845258488%_ (let () (declare (not safe)) (##vector-ref - _%__splice8007380074%_ + _%__splice8094880949%_ '0)))) - (if (gx#stx-pair? _%tl5838158418%_) - (let ((_%e5838658421%_ + (if (gx#stx-pair? _%tl5845458491%_) + (let ((_%e5845958494%_ (gx#syntax-e - _%tl5838158418%_))) - (let ((_%tl5838858428%_ + _%tl5845458491%_))) + (let ((_%tl5846158501%_ (let () (declare (not safe)) - (##cdr _%e5838658421%_))) - (_%hd5838758425%_ + (##cdr _%e5845958494%_))) + (_%hd5846058498%_ (let () (declare (not safe)) - (##car _%e5838658421%_)))) + (##car _%e5845958494%_)))) (if (gx#identifier? - _%hd5838758425%_) + _%hd5846058498%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84055_| - _%hd5838758425%_) + |gerbil/core/contract~Interface[1]#_g85040_| + _%hd5846058498%_) (if (gx#stx-pair? - _%tl5838858428%_) - (let ((_%e5838958431%_ + _%tl5846158501%_) + (let ((_%e5846258504%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5838858428%_))) - (let ((_%tl5839158438%_ + (gx#syntax-e _%tl5846158501%_))) + (let ((_%tl5846458511%_ (let () (declare (not safe)) - (##cdr _%e5838958431%_))) - (_%hd5839058435%_ + (##cdr _%e5846258504%_))) + (_%hd5846358508%_ (let () (declare (not safe)) - (##car _%e5838958431%_)))) - (if (gx#stx-null? _%tl5839158438%_) - (_%__match8010380104%_ - _%__splice8007380074%_ - _%target5837958415%_ - _%tl5838158418%_ - _%e5838658421%_ - _%hd5838758425%_ - _%tl5838858428%_ - _%e5838958431%_ - _%hd5839058435%_ - _%tl5839158438%_) - (_%__kont8007580076%_)))) - (_%__kont8007580076%_)) - (_%__kont8007580076%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8007580076%_)))) - (_%__kont8007580076%_)))) - (_%__kont8007580076%_)) - (_%__kont8007580076%_))))))) - (_%__kont8011580116%_ - (lambda (_%L58314%_ _%L58316%_ _%L58317%_) - (_%loop57933%_ - _%L58314%_ - (cons _%L58316%_ (cons _%L58317%_ _%result57938%_))))) - (_%__kont8011780118%_ - (lambda (_%L58264%_ _%L58266%_ _%L58267%_ _%L58268%_) - (_%loop57933%_ - _%L58264%_ - (cons (cons _%L58267%_ (cons _%L58266%_ '())) - (cons _%L58268%_ _%result57938%_))))) - (_%__kont8011980120%_ - (lambda (_%L58087%_ _%L58089%_ _%L58090%_ _%L58091%_) - (let* ((_%__stx8003080031%_ _%L58089%_) - (_%g5810958130%_ + (##car _%e5846258504%_)))) + (if (gx#stx-null? _%tl5846458511%_) + (_%__match8097880979%_ + _%__splice8094880949%_ + _%target5845258488%_ + _%tl5845458491%_ + _%e5845958494%_ + _%hd5846058498%_ + _%tl5846158501%_ + _%e5846258504%_ + _%hd5846358508%_ + _%tl5846458511%_) + (_%__kont8095080951%_)))) + (_%__kont8095080951%_)) + (_%__kont8095080951%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8095080951%_)))) + (_%__kont8095080951%_)))) + (_%__kont8095080951%_)) + (_%__kont8095080951%_))))))) + (_%__kont8099080991%_ + (lambda (_%L58387%_ _%L58389%_ _%L58390%_) + (_%loop58006%_ + _%L58387%_ + (cons _%L58389%_ (cons _%L58390%_ _%result58011%_))))) + (_%__kont8099280993%_ + (lambda (_%L58337%_ _%L58339%_ _%L58340%_ _%L58341%_) + (_%loop58006%_ + _%L58337%_ + (cons (cons _%L58340%_ (cons _%L58339%_ '())) + (cons _%L58341%_ _%result58011%_))))) + (_%__kont8099480995%_ + (lambda (_%L58160%_ _%L58162%_ _%L58163%_ _%L58164%_) + (let* ((_%__stx8090580906%_ _%L58162%_) + (_%g5818258203%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8003080031%_)))) - (let ((_%__kont8003380034%_ - (lambda (_%L58194%_) - (_%loop57933%_ - _%L58087%_ - (cons (cons _%L58090%_ (cons _%L58194%_ '())) - (cons _%L58091%_ _%result57938%_))))) - (_%__kont8003780038%_ + _%__stx8090580906%_)))) + (let ((_%__kont8090880909%_ + (lambda (_%L58267%_) + (_%loop58006%_ + _%L58160%_ + (cons (cons _%L58163%_ (cons _%L58267%_ '())) + (cons _%L58164%_ _%result58011%_))))) + (_%__kont8091280913%_ (lambda () - (_%loop57933%_ - _%L58087%_ - (cons _%L58090%_ - (cons _%L58091%_ _%result57938%_)))))) - (let ((_%__match8006580066%_ - (lambda (_%__splice8003580036%_ - _%target5811258148%_ - _%tl5811458151%_ - _%e5811958154%_ - _%hd5812058158%_ - _%tl5812158161%_ - _%e5812258164%_ - _%hd5812358168%_ - _%tl5812458171%_) - (letrec ((_%loop5811558174%_ - (lambda (_%hd5811358178%_) + (_%loop58006%_ + _%L58160%_ + (cons _%L58163%_ + (cons _%L58164%_ _%result58011%_)))))) + (let ((_%__match8094080941%_ + (lambda (_%__splice8091080911%_ + _%target5818558221%_ + _%tl5818758224%_ + _%e5819258227%_ + _%hd5819358231%_ + _%tl5819458234%_ + _%e5819558237%_ + _%hd5819658241%_ + _%tl5819758244%_) + (letrec ((_%loop5818858247%_ + (lambda (_%hd5818658251%_) (if (gx#stx-pair? - _%hd5811358178%_) - (let ((_%e5811658182%_ + _%hd5818658251%_) + (let ((_%e5818958255%_ (gx#syntax-e - _%hd5811358178%_))) - (let ((_%lp-tl5811858189%_ + _%hd5818658251%_))) + (let ((_%lp-tl5819158262%_ (let () (declare (not safe)) - (##cdr _%e5811658182%_))) - (_%lp-hd5811758186%_ + (##cdr _%e5818958255%_))) + (_%lp-hd5819058259%_ (let () (declare (not safe)) - (##car _%e5811658182%_)))) - (_%loop5811558174%_ - _%lp-tl5811858189%_))) - (_%__kont8003380034%_ - _%hd5812358168%_))))) - (_%loop5811558174%_ - _%target5811258148%_))))) - (if (gx#stx-pair/null? _%__stx8003080031%_) - (if (let ((__tmp84056 - (gx#stx-length _%__stx8003080031%_))) + (##car _%e5818958255%_)))) + (_%loop5818858247%_ + _%lp-tl5819158262%_))) + (_%__kont8090880909%_ + _%hd5819658241%_))))) + (_%loop5818858247%_ + _%target5818558221%_))))) + (if (gx#stx-pair/null? _%__stx8090580906%_) + (if (let ((__tmp85041 + (gx#stx-length _%__stx8090580906%_))) (declare (not safe)) - (##fx>= __tmp84056 '2)) - (let ((_%__splice8003580036%_ + (##fx>= __tmp85041 '2)) + (let ((_%__splice8091080911%_ (gx#syntax-split-splice - _%__stx8003080031%_ + _%__stx8090580906%_ '2))) - (let ((_%tl5811458151%_ + (let ((_%tl5818758224%_ (let () (declare (not safe)) (##vector-ref - _%__splice8003580036%_ + _%__splice8091080911%_ '1))) - (_%target5811258148%_ + (_%target5818558221%_ (let () (declare (not safe)) (##vector-ref - _%__splice8003580036%_ + _%__splice8091080911%_ '0)))) - (if (gx#stx-pair? _%tl5811458151%_) - (let ((_%e5811958154%_ + (if (gx#stx-pair? _%tl5818758224%_) + (let ((_%e5819258227%_ (gx#syntax-e - _%tl5811458151%_))) - (let ((_%tl5812158161%_ + _%tl5818758224%_))) + (let ((_%tl5819458234%_ (let () (declare (not safe)) - (##cdr _%e5811958154%_))) - (_%hd5812058158%_ + (##cdr _%e5819258227%_))) + (_%hd5819358231%_ (let () (declare (not safe)) - (##car _%e5811958154%_)))) + (##car _%e5819258227%_)))) (if (gx#identifier? - _%hd5812058158%_) + _%hd5819358231%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84057_| - _%hd5812058158%_) + |gerbil/core/contract~Interface[1]#_g85042_| + _%hd5819358231%_) (if (gx#stx-pair? - _%tl5812158161%_) - (let ((_%e5812258164%_ + _%tl5819458234%_) + (let ((_%e5819558237%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5812158161%_))) - (let ((_%tl5812458171%_ + (gx#syntax-e _%tl5819458234%_))) + (let ((_%tl5819758244%_ (let () (declare (not safe)) - (##cdr _%e5812258164%_))) - (_%hd5812358168%_ + (##cdr _%e5819558237%_))) + (_%hd5819658241%_ (let () (declare (not safe)) - (##car _%e5812258164%_)))) - (if (gx#stx-null? _%tl5812458171%_) - (_%__match8006580066%_ - _%__splice8003580036%_ - _%target5811258148%_ - _%tl5811458151%_ - _%e5811958154%_ - _%hd5812058158%_ - _%tl5812158161%_ - _%e5812258164%_ - _%hd5812358168%_ - _%tl5812458171%_) - (_%__kont8003780038%_)))) - (_%__kont8003780038%_)) - (_%__kont8003780038%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8003780038%_)))) - (_%__kont8003780038%_)))) - (_%__kont8003780038%_)) - (_%__kont8003780038%_))))))) - (_%__kont8012180122%_ - (lambda (_%L58037%_) - (foldl cons _%L58037%_ _%result57938%_))) - (_%__kont8012380124%_ - (lambda () (reverse! _%result57938%_)))) - (let* ((_%g5794558050%_ + (##car _%e5819558237%_)))) + (if (gx#stx-null? _%tl5819758244%_) + (_%__match8094080941%_ + _%__splice8091080911%_ + _%target5818558221%_ + _%tl5818758224%_ + _%e5819258227%_ + _%hd5819358231%_ + _%tl5819458234%_ + _%e5819558237%_ + _%hd5819658241%_ + _%tl5819758244%_) + (_%__kont8091280913%_)))) + (_%__kont8091280913%_)) + (_%__kont8091280913%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8091280913%_)))) + (_%__kont8091280913%_)))) + (_%__kont8091280913%_)) + (_%__kont8091280913%_))))))) + (_%__kont8099680997%_ + (lambda (_%L58110%_) + (foldl cons _%L58110%_ _%result58011%_))) + (_%__kont8099880999%_ + (lambda () (reverse! _%result58011%_)))) + (let* ((_%g5801858123%_ (lambda () - (let ((_%L58037%_ _%__stx8010680107%_)) - (if (gx#identifier? _%L58037%_) - (_%__kont8012180122%_ _%L58037%_) - (_%__kont8012380124%_))))) - (_%__match8021980220%_ - (lambda (_%e5800458057%_ - _%hd5800558061%_ - _%tl5800658064%_ - _%e5800758067%_ - _%hd5800858071%_ - _%tl5800958074%_ - _%e5801058077%_ - _%hd5801158081%_ - _%tl5801258084%_) - (let ((_%L58087%_ _%tl5800958074%_) - (_%L58089%_ _%tl5801258084%_) - (_%L58090%_ _%hd5801158081%_) - (_%L58091%_ _%hd5800558061%_)) - (if (and (gx#stx-keyword? _%L58091%_) - (gx#identifier? _%L58090%_) + (let ((_%L58110%_ _%__stx8098180982%_)) + (if (gx#identifier? _%L58110%_) + (_%__kont8099680997%_ _%L58110%_) + (_%__kont8099880999%_))))) + (_%__match8109481095%_ + (lambda (_%e5807758130%_ + _%hd5807858134%_ + _%tl5807958137%_ + _%e5808058140%_ + _%hd5808158144%_ + _%tl5808258147%_ + _%e5808358150%_ + _%hd5808458154%_ + _%tl5808558157%_) + (let ((_%L58160%_ _%tl5808258147%_) + (_%L58162%_ _%tl5808558157%_) + (_%L58163%_ _%hd5808458154%_) + (_%L58164%_ _%hd5807858134%_)) + (if (and (gx#stx-keyword? _%L58164%_) + (gx#identifier? _%L58163%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L58089%_)) - (_%__kont8011980120%_ - _%L58087%_ - _%L58089%_ - _%L58090%_ - _%L58091%_) + _%L58162%_)) + (_%__kont8099480995%_ + _%L58160%_ + _%L58162%_ + _%L58163%_ + _%L58164%_) (let () (declare (not safe)) - (_%g5794558050%_)))))) - (_%__match8020180202%_ - (lambda (_%e5798858224%_ - _%hd5798958228%_ - _%tl5799058231%_ - _%e5799158234%_ - _%hd5799258238%_ - _%tl5799358241%_ - _%e5799458244%_ - _%hd5799558248%_ - _%tl5799658251%_ - _%e5799758254%_ - _%hd5799858258%_ - _%tl5799958261%_) - (let ((_%L58264%_ _%tl5799358241%_) - (_%L58266%_ _%hd5799858258%_) - (_%L58267%_ _%hd5799558248%_) - (_%L58268%_ _%hd5798958228%_)) - (if (and (gx#stx-keyword? _%L58268%_) - (gx#identifier? _%L58267%_)) - (_%__kont8011780118%_ - _%L58264%_ - _%L58266%_ - _%L58267%_ - _%L58268%_) - (_%__match8021980220%_ - _%e5798858224%_ - _%hd5798958228%_ - _%tl5799058231%_ - _%e5799158234%_ - _%hd5799258238%_ - _%tl5799358241%_ - _%e5799458244%_ - _%hd5799558248%_ - _%tl5799658251%_))))) - (_%__match8017580176%_ - (lambda (_%e5797858294%_ - _%hd5797958298%_ - _%tl5798058301%_ - _%e5798158304%_ - _%hd5798258308%_ - _%tl5798358311%_) - (let ((_%L58314%_ _%tl5798358311%_) - (_%L58316%_ _%hd5798258308%_) - (_%L58317%_ _%hd5797958298%_)) - (if (and (gx#stx-keyword? _%L58317%_) - (gx#identifier? _%L58316%_)) - (_%__kont8011580116%_ - _%L58314%_ - _%L58316%_ - _%L58317%_) - (if (gx#stx-pair? _%hd5798258308%_) - (let ((_%e5799458244%_ - (gx#syntax-e _%hd5798258308%_))) - (let ((_%tl5799658251%_ + (_%g5801858123%_)))))) + (_%__match8107681077%_ + (lambda (_%e5806158297%_ + _%hd5806258301%_ + _%tl5806358304%_ + _%e5806458307%_ + _%hd5806558311%_ + _%tl5806658314%_ + _%e5806758317%_ + _%hd5806858321%_ + _%tl5806958324%_ + _%e5807058327%_ + _%hd5807158331%_ + _%tl5807258334%_) + (let ((_%L58337%_ _%tl5806658314%_) + (_%L58339%_ _%hd5807158331%_) + (_%L58340%_ _%hd5806858321%_) + (_%L58341%_ _%hd5806258301%_)) + (if (and (gx#stx-keyword? _%L58341%_) + (gx#identifier? _%L58340%_)) + (_%__kont8099280993%_ + _%L58337%_ + _%L58339%_ + _%L58340%_ + _%L58341%_) + (_%__match8109481095%_ + _%e5806158297%_ + _%hd5806258301%_ + _%tl5806358304%_ + _%e5806458307%_ + _%hd5806558311%_ + _%tl5806658314%_ + _%e5806758317%_ + _%hd5806858321%_ + _%tl5806958324%_))))) + (_%__match8105081051%_ + (lambda (_%e5805158367%_ + _%hd5805258371%_ + _%tl5805358374%_ + _%e5805458377%_ + _%hd5805558381%_ + _%tl5805658384%_) + (let ((_%L58387%_ _%tl5805658384%_) + (_%L58389%_ _%hd5805558381%_) + (_%L58390%_ _%hd5805258371%_)) + (if (and (gx#stx-keyword? _%L58390%_) + (gx#identifier? _%L58389%_)) + (_%__kont8099080991%_ + _%L58387%_ + _%L58389%_ + _%L58390%_) + (if (gx#stx-pair? _%hd5805558381%_) + (let ((_%e5806758317%_ + (gx#syntax-e _%hd5805558381%_))) + (let ((_%tl5806958324%_ (let () (declare (not safe)) - (##cdr _%e5799458244%_))) - (_%hd5799558248%_ + (##cdr _%e5806758317%_))) + (_%hd5806858321%_ (let () (declare (not safe)) - (##car _%e5799458244%_)))) - (if (gx#stx-pair? _%tl5799658251%_) - (let ((_%e5799758254%_ + (##car _%e5806758317%_)))) + (if (gx#stx-pair? _%tl5806958324%_) + (let ((_%e5807058327%_ (gx#syntax-e - _%tl5799658251%_))) - (let ((_%tl5799958261%_ + _%tl5806958324%_))) + (let ((_%tl5807258334%_ (let () (declare (not safe)) - (##cdr _%e5799758254%_))) - (_%hd5799858258%_ + (##cdr _%e5807058327%_))) + (_%hd5807158331%_ (let () (declare (not safe)) - (##car _%e5799758254%_)))) + (##car _%e5807058327%_)))) (if (gx#stx-null? - _%tl5799958261%_) - (_%__match8020180202%_ - _%e5797858294%_ - _%hd5797958298%_ - _%tl5798058301%_ - _%e5798158304%_ - _%hd5798258308%_ - _%tl5798358311%_ - _%e5799458244%_ - _%hd5799558248%_ - _%tl5799658251%_ - _%e5799758254%_ - _%hd5799858258%_ - _%tl5799958261%_) - (_%__match8021980220%_ - _%e5797858294%_ - _%hd5797958298%_ - _%tl5798058301%_ - _%e5798158304%_ - _%hd5798258308%_ - _%tl5798358311%_ - _%e5799458244%_ - _%hd5799558248%_ - _%tl5799658251%_)))) - (_%__match8021980220%_ - _%e5797858294%_ - _%hd5797958298%_ - _%tl5798058301%_ - _%e5798158304%_ - _%hd5798258308%_ - _%tl5798358311%_ - _%e5799458244%_ - _%hd5799558248%_ - _%tl5799658251%_)))) + _%tl5807258334%_) + (_%__match8107681077%_ + _%e5805158367%_ + _%hd5805258371%_ + _%tl5805358374%_ + _%e5805458377%_ + _%hd5805558381%_ + _%tl5805658384%_ + _%e5806758317%_ + _%hd5806858321%_ + _%tl5806958324%_ + _%e5807058327%_ + _%hd5807158331%_ + _%tl5807258334%_) + (_%__match8109481095%_ + _%e5805158367%_ + _%hd5805258371%_ + _%tl5805358374%_ + _%e5805458377%_ + _%hd5805558381%_ + _%tl5805658384%_ + _%e5806758317%_ + _%hd5806858321%_ + _%tl5806958324%_)))) + (_%__match8109481095%_ + _%e5805158367%_ + _%hd5805258371%_ + _%tl5805358374%_ + _%e5805458377%_ + _%hd5805558381%_ + _%tl5805658384%_ + _%e5806758317%_ + _%hd5806858321%_ + _%tl5806958324%_)))) (let () (declare (not safe)) - (_%g5794558050%_))))))) - (_%__match8016380164%_ - (lambda (_%e5796958338%_ - _%hd5797058342%_ - _%tl5797158345%_ - _%e5797258348%_ - _%hd5797358352%_ - _%tl5797458355%_) - (let ((_%L58358%_ _%tl5797158345%_) - (_%L58360%_ _%tl5797458355%_) - (_%L58361%_ _%hd5797358352%_)) - (if (and (gx#identifier? _%L58361%_) + (_%g5801858123%_))))))) + (_%__match8103881039%_ + (lambda (_%e5804258411%_ + _%hd5804358415%_ + _%tl5804458418%_ + _%e5804558421%_ + _%hd5804658425%_ + _%tl5804758428%_) + (let ((_%L58431%_ _%tl5804458418%_) + (_%L58433%_ _%tl5804758428%_) + (_%L58434%_ _%hd5804658425%_)) + (if (and (gx#identifier? _%L58434%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L58360%_)) - (_%__kont8011380114%_ - _%L58358%_ - _%L58360%_ - _%L58361%_) - (if (gx#stx-pair? _%tl5797158345%_) - (let ((_%e5798158304%_ - (gx#syntax-e _%tl5797158345%_))) - (let ((_%tl5798358311%_ + _%L58433%_)) + (_%__kont8098880989%_ + _%L58431%_ + _%L58433%_ + _%L58434%_) + (if (gx#stx-pair? _%tl5804458418%_) + (let ((_%e5805458377%_ + (gx#syntax-e _%tl5804458418%_))) + (let ((_%tl5805658384%_ (let () (declare (not safe)) - (##cdr _%e5798158304%_))) - (_%hd5798258308%_ + (##cdr _%e5805458377%_))) + (_%hd5805558381%_ (let () (declare (not safe)) - (##car _%e5798158304%_)))) - (_%__match8017580176%_ - _%e5796958338%_ - _%hd5797058342%_ - _%tl5797158345%_ - _%e5798158304%_ - _%hd5798258308%_ - _%tl5798358311%_))) + (##car _%e5805458377%_)))) + (_%__match8105081051%_ + _%e5804258411%_ + _%hd5804358415%_ + _%tl5804458418%_ + _%e5805458377%_ + _%hd5805558381%_ + _%tl5805658384%_))) (let () (declare (not safe)) - (_%g5794558050%_))))))) - (_%__match8015180152%_ - (lambda (_%e5795758491%_ - _%hd5795858495%_ - _%tl5795958498%_ - _%e5796058501%_ - _%hd5796158505%_ - _%tl5796258508%_ - _%e5796358511%_ - _%hd5796458515%_ - _%tl5796558518%_) - (let ((_%L58521%_ _%tl5795958498%_) - (_%L58523%_ _%hd5796458515%_) - (_%L58524%_ _%hd5796158505%_)) - (if (gx#identifier? _%L58524%_) - (_%__kont8011180112%_ - _%L58521%_ - _%L58523%_ - _%L58524%_) - (_%__match8016380164%_ - _%e5795758491%_ - _%hd5795858495%_ - _%tl5795958498%_ - _%e5796058501%_ - _%hd5796158505%_ - _%tl5796258508%_))))) - (_%__match8013180132%_ - (lambda (_%e5795158547%_ - _%hd5795258551%_ - _%tl5795358554%_) - (let ((_%L58557%_ _%tl5795358554%_) - (_%L58559%_ _%hd5795258551%_)) - (if (gx#identifier? _%L58559%_) - (_%__kont8010980110%_ _%L58557%_ _%L58559%_) - (if (gx#stx-pair? _%hd5795258551%_) - (let ((_%e5796058501%_ - (gx#syntax-e _%hd5795258551%_))) - (let ((_%tl5796258508%_ + (_%g5801858123%_))))))) + (_%__match8102681027%_ + (lambda (_%e5803058564%_ + _%hd5803158568%_ + _%tl5803258571%_ + _%e5803358574%_ + _%hd5803458578%_ + _%tl5803558581%_ + _%e5803658584%_ + _%hd5803758588%_ + _%tl5803858591%_) + (let ((_%L58594%_ _%tl5803258571%_) + (_%L58596%_ _%hd5803758588%_) + (_%L58597%_ _%hd5803458578%_)) + (if (gx#identifier? _%L58597%_) + (_%__kont8098680987%_ + _%L58594%_ + _%L58596%_ + _%L58597%_) + (_%__match8103881039%_ + _%e5803058564%_ + _%hd5803158568%_ + _%tl5803258571%_ + _%e5803358574%_ + _%hd5803458578%_ + _%tl5803558581%_))))) + (_%__match8100681007%_ + (lambda (_%e5802458620%_ + _%hd5802558624%_ + _%tl5802658627%_) + (let ((_%L58630%_ _%tl5802658627%_) + (_%L58632%_ _%hd5802558624%_)) + (if (gx#identifier? _%L58632%_) + (_%__kont8098480985%_ _%L58630%_ _%L58632%_) + (if (gx#stx-pair? _%hd5802558624%_) + (let ((_%e5803358574%_ + (gx#syntax-e _%hd5802558624%_))) + (let ((_%tl5803558581%_ (let () (declare (not safe)) - (##cdr _%e5796058501%_))) - (_%hd5796158505%_ + (##cdr _%e5803358574%_))) + (_%hd5803458578%_ (let () (declare (not safe)) - (##car _%e5796058501%_)))) - (if (gx#stx-pair? _%tl5796258508%_) - (let ((_%e5796358511%_ + (##car _%e5803358574%_)))) + (if (gx#stx-pair? _%tl5803558581%_) + (let ((_%e5803658584%_ (gx#syntax-e - _%tl5796258508%_))) - (let ((_%tl5796558518%_ + _%tl5803558581%_))) + (let ((_%tl5803858591%_ (let () (declare (not safe)) - (##cdr _%e5796358511%_))) - (_%hd5796458515%_ + (##cdr _%e5803658584%_))) + (_%hd5803758588%_ (let () (declare (not safe)) - (##car _%e5796358511%_)))) + (##car _%e5803658584%_)))) (if (gx#stx-null? - _%tl5796558518%_) - (_%__match8015180152%_ - _%e5795158547%_ - _%hd5795258551%_ - _%tl5795358554%_ - _%e5796058501%_ - _%hd5796158505%_ - _%tl5796258508%_ - _%e5796358511%_ - _%hd5796458515%_ - _%tl5796558518%_) - (_%__match8016380164%_ - _%e5795158547%_ - _%hd5795258551%_ - _%tl5795358554%_ - _%e5796058501%_ - _%hd5796158505%_ - _%tl5796258508%_)))) - (_%__match8016380164%_ - _%e5795158547%_ - _%hd5795258551%_ - _%tl5795358554%_ - _%e5796058501%_ - _%hd5796158505%_ - _%tl5796258508%_)))) - (if (gx#stx-pair? _%tl5795358554%_) - (let ((_%e5798158304%_ - (gx#syntax-e _%tl5795358554%_))) - (let ((_%tl5798358311%_ + _%tl5803858591%_) + (_%__match8102681027%_ + _%e5802458620%_ + _%hd5802558624%_ + _%tl5802658627%_ + _%e5803358574%_ + _%hd5803458578%_ + _%tl5803558581%_ + _%e5803658584%_ + _%hd5803758588%_ + _%tl5803858591%_) + (_%__match8103881039%_ + _%e5802458620%_ + _%hd5802558624%_ + _%tl5802658627%_ + _%e5803358574%_ + _%hd5803458578%_ + _%tl5803558581%_)))) + (_%__match8103881039%_ + _%e5802458620%_ + _%hd5802558624%_ + _%tl5802658627%_ + _%e5803358574%_ + _%hd5803458578%_ + _%tl5803558581%_)))) + (if (gx#stx-pair? _%tl5802658627%_) + (let ((_%e5805458377%_ + (gx#syntax-e _%tl5802658627%_))) + (let ((_%tl5805658384%_ (let () (declare (not safe)) - (##cdr _%e5798158304%_))) - (_%hd5798258308%_ + (##cdr _%e5805458377%_))) + (_%hd5805558381%_ (let () (declare (not safe)) - (##car _%e5798158304%_)))) - (_%__match8017580176%_ - _%e5795158547%_ - _%hd5795258551%_ - _%tl5795358554%_ - _%e5798158304%_ - _%hd5798258308%_ - _%tl5798358311%_))) + (##car _%e5805458377%_)))) + (_%__match8105081051%_ + _%e5802458620%_ + _%hd5802558624%_ + _%tl5802658627%_ + _%e5805458377%_ + _%hd5805558381%_ + _%tl5805658384%_))) (let () (declare (not safe)) - (_%g5794558050%_))))))))) - (if (gx#stx-pair? _%__stx8010680107%_) - (let ((_%e5795158547%_ (gx#syntax-e _%__stx8010680107%_))) - (let ((_%tl5795358554%_ + (_%g5801858123%_))))))))) + (if (gx#stx-pair? _%__stx8098180982%_) + (let ((_%e5802458620%_ (gx#syntax-e _%__stx8098180982%_))) + (let ((_%tl5802658627%_ (let () (declare (not safe)) - (##cdr _%e5795158547%_))) - (_%hd5795258551%_ + (##cdr _%e5802458620%_))) + (_%hd5802558624%_ (let () (declare (not safe)) - (##car _%e5795158547%_)))) - (_%__match8013180132%_ - _%e5795158547%_ - _%hd5795258551%_ - _%tl5795358554%_))) - (let () (declare (not safe)) (_%g5794558050%_))))))))) + (##car _%e5802458620%_)))) + (_%__match8100681007%_ + _%e5802458620%_ + _%hd5802558624%_ + _%tl5802658627%_))) + (let () (declare (not safe)) (_%g5801858123%_))))))))) (define |gerbil/core/contract~Interface[1]#signature-arguments-out| - (lambda (_%signature57507%_) - (let _%loop57510%_ ((_%rest57513%_ _%signature57507%_) - (_%result57515%_ '())) - (let* ((_%__stx8022280223%_ _%rest57513%_) - (_%g5752457595%_ + (lambda (_%signature57580%_) + (let _%loop57583%_ ((_%rest57586%_ _%signature57580%_) + (_%result57588%_ '())) + (let* ((_%__stx8109781098%_ _%rest57586%_) + (_%g5759757668%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8022280223%_)))) - (let ((_%__kont8022580226%_ - (lambda (_%L57913%_ _%L57915%_) - (_%loop57510%_ - _%L57913%_ - (cons _%L57915%_ _%result57515%_)))) - (_%__kont8022780228%_ - (lambda (_%L57879%_ _%L57881%_) - (_%loop57510%_ - _%L57879%_ - (cons _%L57881%_ _%result57515%_)))) - (_%__kont8022980230%_ - (lambda (_%L57825%_ _%L57827%_ _%L57828%_) - (_%loop57510%_ - _%L57825%_ - (cons _%L57828%_ _%result57515%_)))) - (_%__kont8023180232%_ - (lambda (_%L57781%_ _%L57783%_ _%L57784%_) - (_%loop57510%_ - _%L57781%_ - (cons _%L57783%_ (cons _%L57784%_ _%result57515%_))))) - (_%__kont8023380234%_ - (lambda (_%L57731%_ _%L57733%_ _%L57734%_ _%L57735%_) - (_%loop57510%_ - _%L57731%_ - (cons _%L57734%_ (cons _%L57735%_ _%result57515%_))))) - (_%__kont8023580236%_ - (lambda (_%L57663%_ _%L57665%_ _%L57666%_ _%L57667%_) - (_%loop57510%_ - _%L57663%_ - (cons _%L57666%_ (cons _%L57667%_ _%result57515%_))))) - (_%__kont8023780238%_ - (lambda (_%L57613%_) - (foldl cons (cons _%L57613%_ '()) _%result57515%_))) - (_%__kont8023980240%_ - (lambda () (reverse! _%result57515%_)))) - (let* ((_%g5752257626%_ + _%__stx8109781098%_)))) + (let ((_%__kont8110081101%_ + (lambda (_%L57986%_ _%L57988%_) + (_%loop57583%_ + _%L57986%_ + (cons _%L57988%_ _%result57588%_)))) + (_%__kont8110281103%_ + (lambda (_%L57952%_ _%L57954%_) + (_%loop57583%_ + _%L57952%_ + (cons _%L57954%_ _%result57588%_)))) + (_%__kont8110481105%_ + (lambda (_%L57898%_ _%L57900%_ _%L57901%_) + (_%loop57583%_ + _%L57898%_ + (cons _%L57901%_ _%result57588%_)))) + (_%__kont8110681107%_ + (lambda (_%L57854%_ _%L57856%_ _%L57857%_) + (_%loop57583%_ + _%L57854%_ + (cons _%L57856%_ (cons _%L57857%_ _%result57588%_))))) + (_%__kont8110881109%_ + (lambda (_%L57804%_ _%L57806%_ _%L57807%_ _%L57808%_) + (_%loop57583%_ + _%L57804%_ + (cons _%L57807%_ (cons _%L57808%_ _%result57588%_))))) + (_%__kont8111081111%_ + (lambda (_%L57736%_ _%L57738%_ _%L57739%_ _%L57740%_) + (_%loop57583%_ + _%L57736%_ + (cons _%L57739%_ (cons _%L57740%_ _%result57588%_))))) + (_%__kont8111281113%_ + (lambda (_%L57686%_) + (foldl cons (cons _%L57686%_ '()) _%result57588%_))) + (_%__kont8111481115%_ + (lambda () (reverse! _%result57588%_)))) + (let* ((_%g5759557699%_ (lambda () - (let ((_%L57613%_ _%__stx8022280223%_)) - (if (gx#identifier? _%L57613%_) - (_%__kont8023780238%_ _%L57613%_) - (_%__kont8023980240%_))))) - (_%__match8033580336%_ - (lambda (_%e5758057633%_ - _%hd5758157637%_ - _%tl5758257640%_ - _%e5758357643%_ - _%hd5758457647%_ - _%tl5758557650%_ - _%e5758657653%_ - _%hd5758757657%_ - _%tl5758857660%_) - (let ((_%L57663%_ _%tl5758557650%_) - (_%L57665%_ _%tl5758857660%_) - (_%L57666%_ _%hd5758757657%_) - (_%L57667%_ _%hd5758157637%_)) - (if (and (gx#stx-keyword? _%L57667%_) - (gx#identifier? _%L57666%_) + (let ((_%L57686%_ _%__stx8109781098%_)) + (if (gx#identifier? _%L57686%_) + (_%__kont8111281113%_ _%L57686%_) + (_%__kont8111481115%_))))) + (_%__match8121081211%_ + (lambda (_%e5765357706%_ + _%hd5765457710%_ + _%tl5765557713%_ + _%e5765657716%_ + _%hd5765757720%_ + _%tl5765857723%_ + _%e5765957726%_ + _%hd5766057730%_ + _%tl5766157733%_) + (let ((_%L57736%_ _%tl5765857723%_) + (_%L57738%_ _%tl5766157733%_) + (_%L57739%_ _%hd5766057730%_) + (_%L57740%_ _%hd5765457710%_)) + (if (and (gx#stx-keyword? _%L57740%_) + (gx#identifier? _%L57739%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L57665%_)) - (_%__kont8023580236%_ - _%L57663%_ - _%L57665%_ - _%L57666%_ - _%L57667%_) + _%L57738%_)) + (_%__kont8111081111%_ + _%L57736%_ + _%L57738%_ + _%L57739%_ + _%L57740%_) (let () (declare (not safe)) - (_%g5752257626%_)))))) - (_%__match8031780318%_ - (lambda (_%e5756457691%_ - _%hd5756557695%_ - _%tl5756657698%_ - _%e5756757701%_ - _%hd5756857705%_ - _%tl5756957708%_ - _%e5757057711%_ - _%hd5757157715%_ - _%tl5757257718%_ - _%e5757357721%_ - _%hd5757457725%_ - _%tl5757557728%_) - (let ((_%L57731%_ _%tl5756957708%_) - (_%L57733%_ _%hd5757457725%_) - (_%L57734%_ _%hd5757157715%_) - (_%L57735%_ _%hd5756557695%_)) - (if (and (gx#stx-keyword? _%L57735%_) - (gx#identifier? _%L57734%_)) - (_%__kont8023380234%_ - _%L57731%_ - _%L57733%_ - _%L57734%_ - _%L57735%_) - (_%__match8033580336%_ - _%e5756457691%_ - _%hd5756557695%_ - _%tl5756657698%_ - _%e5756757701%_ - _%hd5756857705%_ - _%tl5756957708%_ - _%e5757057711%_ - _%hd5757157715%_ - _%tl5757257718%_))))) - (_%__match8029180292%_ - (lambda (_%e5755457761%_ - _%hd5755557765%_ - _%tl5755657768%_ - _%e5755757771%_ - _%hd5755857775%_ - _%tl5755957778%_) - (let ((_%L57781%_ _%tl5755957778%_) - (_%L57783%_ _%hd5755857775%_) - (_%L57784%_ _%hd5755557765%_)) - (if (and (gx#stx-keyword? _%L57784%_) - (gx#identifier? _%L57783%_)) - (_%__kont8023180232%_ - _%L57781%_ - _%L57783%_ - _%L57784%_) - (if (gx#stx-pair? _%hd5755857775%_) - (let ((_%e5757057711%_ - (gx#syntax-e _%hd5755857775%_))) - (let ((_%tl5757257718%_ + (_%g5759557699%_)))))) + (_%__match8119281193%_ + (lambda (_%e5763757764%_ + _%hd5763857768%_ + _%tl5763957771%_ + _%e5764057774%_ + _%hd5764157778%_ + _%tl5764257781%_ + _%e5764357784%_ + _%hd5764457788%_ + _%tl5764557791%_ + _%e5764657794%_ + _%hd5764757798%_ + _%tl5764857801%_) + (let ((_%L57804%_ _%tl5764257781%_) + (_%L57806%_ _%hd5764757798%_) + (_%L57807%_ _%hd5764457788%_) + (_%L57808%_ _%hd5763857768%_)) + (if (and (gx#stx-keyword? _%L57808%_) + (gx#identifier? _%L57807%_)) + (_%__kont8110881109%_ + _%L57804%_ + _%L57806%_ + _%L57807%_ + _%L57808%_) + (_%__match8121081211%_ + _%e5763757764%_ + _%hd5763857768%_ + _%tl5763957771%_ + _%e5764057774%_ + _%hd5764157778%_ + _%tl5764257781%_ + _%e5764357784%_ + _%hd5764457788%_ + _%tl5764557791%_))))) + (_%__match8116681167%_ + (lambda (_%e5762757834%_ + _%hd5762857838%_ + _%tl5762957841%_ + _%e5763057844%_ + _%hd5763157848%_ + _%tl5763257851%_) + (let ((_%L57854%_ _%tl5763257851%_) + (_%L57856%_ _%hd5763157848%_) + (_%L57857%_ _%hd5762857838%_)) + (if (and (gx#stx-keyword? _%L57857%_) + (gx#identifier? _%L57856%_)) + (_%__kont8110681107%_ + _%L57854%_ + _%L57856%_ + _%L57857%_) + (if (gx#stx-pair? _%hd5763157848%_) + (let ((_%e5764357784%_ + (gx#syntax-e _%hd5763157848%_))) + (let ((_%tl5764557791%_ (let () (declare (not safe)) - (##cdr _%e5757057711%_))) - (_%hd5757157715%_ + (##cdr _%e5764357784%_))) + (_%hd5764457788%_ (let () (declare (not safe)) - (##car _%e5757057711%_)))) - (if (gx#stx-pair? _%tl5757257718%_) - (let ((_%e5757357721%_ + (##car _%e5764357784%_)))) + (if (gx#stx-pair? _%tl5764557791%_) + (let ((_%e5764657794%_ (gx#syntax-e - _%tl5757257718%_))) - (let ((_%tl5757557728%_ + _%tl5764557791%_))) + (let ((_%tl5764857801%_ (let () (declare (not safe)) - (##cdr _%e5757357721%_))) - (_%hd5757457725%_ + (##cdr _%e5764657794%_))) + (_%hd5764757798%_ (let () (declare (not safe)) - (##car _%e5757357721%_)))) + (##car _%e5764657794%_)))) (if (gx#stx-null? - _%tl5757557728%_) - (_%__match8031780318%_ - _%e5755457761%_ - _%hd5755557765%_ - _%tl5755657768%_ - _%e5755757771%_ - _%hd5755857775%_ - _%tl5755957778%_ - _%e5757057711%_ - _%hd5757157715%_ - _%tl5757257718%_ - _%e5757357721%_ - _%hd5757457725%_ - _%tl5757557728%_) - (_%__match8033580336%_ - _%e5755457761%_ - _%hd5755557765%_ - _%tl5755657768%_ - _%e5755757771%_ - _%hd5755857775%_ - _%tl5755957778%_ - _%e5757057711%_ - _%hd5757157715%_ - _%tl5757257718%_)))) - (_%__match8033580336%_ - _%e5755457761%_ - _%hd5755557765%_ - _%tl5755657768%_ - _%e5755757771%_ - _%hd5755857775%_ - _%tl5755957778%_ - _%e5757057711%_ - _%hd5757157715%_ - _%tl5757257718%_)))) + _%tl5764857801%_) + (_%__match8119281193%_ + _%e5762757834%_ + _%hd5762857838%_ + _%tl5762957841%_ + _%e5763057844%_ + _%hd5763157848%_ + _%tl5763257851%_ + _%e5764357784%_ + _%hd5764457788%_ + _%tl5764557791%_ + _%e5764657794%_ + _%hd5764757798%_ + _%tl5764857801%_) + (_%__match8121081211%_ + _%e5762757834%_ + _%hd5762857838%_ + _%tl5762957841%_ + _%e5763057844%_ + _%hd5763157848%_ + _%tl5763257851%_ + _%e5764357784%_ + _%hd5764457788%_ + _%tl5764557791%_)))) + (_%__match8121081211%_ + _%e5762757834%_ + _%hd5762857838%_ + _%tl5762957841%_ + _%e5763057844%_ + _%hd5763157848%_ + _%tl5763257851%_ + _%e5764357784%_ + _%hd5764457788%_ + _%tl5764557791%_)))) (let () (declare (not safe)) - (_%g5752257626%_))))))) - (_%__match8027980280%_ - (lambda (_%e5754557805%_ - _%hd5754657809%_ - _%tl5754757812%_ - _%e5754857815%_ - _%hd5754957819%_ - _%tl5755057822%_) - (let ((_%L57825%_ _%tl5754757812%_) - (_%L57827%_ _%tl5755057822%_) - (_%L57828%_ _%hd5754957819%_)) - (if (and (gx#identifier? _%L57828%_) + (_%g5759557699%_))))))) + (_%__match8115481155%_ + (lambda (_%e5761857878%_ + _%hd5761957882%_ + _%tl5762057885%_ + _%e5762157888%_ + _%hd5762257892%_ + _%tl5762357895%_) + (let ((_%L57898%_ _%tl5762057885%_) + (_%L57900%_ _%tl5762357895%_) + (_%L57901%_ _%hd5762257892%_)) + (if (and (gx#identifier? _%L57901%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L57827%_)) - (_%__kont8022980230%_ - _%L57825%_ - _%L57827%_ - _%L57828%_) - (if (gx#stx-pair? _%tl5754757812%_) - (let ((_%e5755757771%_ - (gx#syntax-e _%tl5754757812%_))) - (let ((_%tl5755957778%_ + _%L57900%_)) + (_%__kont8110481105%_ + _%L57898%_ + _%L57900%_ + _%L57901%_) + (if (gx#stx-pair? _%tl5762057885%_) + (let ((_%e5763057844%_ + (gx#syntax-e _%tl5762057885%_))) + (let ((_%tl5763257851%_ (let () (declare (not safe)) - (##cdr _%e5755757771%_))) - (_%hd5755857775%_ + (##cdr _%e5763057844%_))) + (_%hd5763157848%_ (let () (declare (not safe)) - (##car _%e5755757771%_)))) - (_%__match8029180292%_ - _%e5754557805%_ - _%hd5754657809%_ - _%tl5754757812%_ - _%e5755757771%_ - _%hd5755857775%_ - _%tl5755957778%_))) + (##car _%e5763057844%_)))) + (_%__match8116681167%_ + _%e5761857878%_ + _%hd5761957882%_ + _%tl5762057885%_ + _%e5763057844%_ + _%hd5763157848%_ + _%tl5763257851%_))) (let () (declare (not safe)) - (_%g5752257626%_))))))) - (_%__match8026780268%_ - (lambda (_%e5753357849%_ - _%hd5753457853%_ - _%tl5753557856%_ - _%e5753657859%_ - _%hd5753757863%_ - _%tl5753857866%_ - _%e5753957869%_ - _%hd5754057873%_ - _%tl5754157876%_) - (let ((_%L57879%_ _%tl5753557856%_) - (_%L57881%_ _%hd5753757863%_)) - (if (gx#identifier? _%L57881%_) - (_%__kont8022780228%_ _%L57879%_ _%L57881%_) - (_%__match8027980280%_ - _%e5753357849%_ - _%hd5753457853%_ - _%tl5753557856%_ - _%e5753657859%_ - _%hd5753757863%_ - _%tl5753857866%_))))) - (_%__match8024780248%_ - (lambda (_%e5752857903%_ - _%hd5752957907%_ - _%tl5753057910%_) - (let ((_%L57913%_ _%tl5753057910%_) - (_%L57915%_ _%hd5752957907%_)) - (if (gx#identifier? _%L57915%_) - (_%__kont8022580226%_ _%L57913%_ _%L57915%_) - (if (gx#stx-pair? _%hd5752957907%_) - (let ((_%e5753657859%_ - (gx#syntax-e _%hd5752957907%_))) - (let ((_%tl5753857866%_ + (_%g5759557699%_))))))) + (_%__match8114281143%_ + (lambda (_%e5760657922%_ + _%hd5760757926%_ + _%tl5760857929%_ + _%e5760957932%_ + _%hd5761057936%_ + _%tl5761157939%_ + _%e5761257942%_ + _%hd5761357946%_ + _%tl5761457949%_) + (let ((_%L57952%_ _%tl5760857929%_) + (_%L57954%_ _%hd5761057936%_)) + (if (gx#identifier? _%L57954%_) + (_%__kont8110281103%_ _%L57952%_ _%L57954%_) + (_%__match8115481155%_ + _%e5760657922%_ + _%hd5760757926%_ + _%tl5760857929%_ + _%e5760957932%_ + _%hd5761057936%_ + _%tl5761157939%_))))) + (_%__match8112281123%_ + (lambda (_%e5760157976%_ + _%hd5760257980%_ + _%tl5760357983%_) + (let ((_%L57986%_ _%tl5760357983%_) + (_%L57988%_ _%hd5760257980%_)) + (if (gx#identifier? _%L57988%_) + (_%__kont8110081101%_ _%L57986%_ _%L57988%_) + (if (gx#stx-pair? _%hd5760257980%_) + (let ((_%e5760957932%_ + (gx#syntax-e _%hd5760257980%_))) + (let ((_%tl5761157939%_ (let () (declare (not safe)) - (##cdr _%e5753657859%_))) - (_%hd5753757863%_ + (##cdr _%e5760957932%_))) + (_%hd5761057936%_ (let () (declare (not safe)) - (##car _%e5753657859%_)))) - (if (gx#stx-pair? _%tl5753857866%_) - (let ((_%e5753957869%_ + (##car _%e5760957932%_)))) + (if (gx#stx-pair? _%tl5761157939%_) + (let ((_%e5761257942%_ (gx#syntax-e - _%tl5753857866%_))) - (let ((_%tl5754157876%_ + _%tl5761157939%_))) + (let ((_%tl5761457949%_ (let () (declare (not safe)) - (##cdr _%e5753957869%_))) - (_%hd5754057873%_ + (##cdr _%e5761257942%_))) + (_%hd5761357946%_ (let () (declare (not safe)) - (##car _%e5753957869%_)))) + (##car _%e5761257942%_)))) (if (gx#stx-null? - _%tl5754157876%_) - (_%__match8026780268%_ - _%e5752857903%_ - _%hd5752957907%_ - _%tl5753057910%_ - _%e5753657859%_ - _%hd5753757863%_ - _%tl5753857866%_ - _%e5753957869%_ - _%hd5754057873%_ - _%tl5754157876%_) - (_%__match8027980280%_ - _%e5752857903%_ - _%hd5752957907%_ - _%tl5753057910%_ - _%e5753657859%_ - _%hd5753757863%_ - _%tl5753857866%_)))) - (_%__match8027980280%_ - _%e5752857903%_ - _%hd5752957907%_ - _%tl5753057910%_ - _%e5753657859%_ - _%hd5753757863%_ - _%tl5753857866%_)))) - (if (gx#stx-pair? _%tl5753057910%_) - (let ((_%e5755757771%_ - (gx#syntax-e _%tl5753057910%_))) - (let ((_%tl5755957778%_ + _%tl5761457949%_) + (_%__match8114281143%_ + _%e5760157976%_ + _%hd5760257980%_ + _%tl5760357983%_ + _%e5760957932%_ + _%hd5761057936%_ + _%tl5761157939%_ + _%e5761257942%_ + _%hd5761357946%_ + _%tl5761457949%_) + (_%__match8115481155%_ + _%e5760157976%_ + _%hd5760257980%_ + _%tl5760357983%_ + _%e5760957932%_ + _%hd5761057936%_ + _%tl5761157939%_)))) + (_%__match8115481155%_ + _%e5760157976%_ + _%hd5760257980%_ + _%tl5760357983%_ + _%e5760957932%_ + _%hd5761057936%_ + _%tl5761157939%_)))) + (if (gx#stx-pair? _%tl5760357983%_) + (let ((_%e5763057844%_ + (gx#syntax-e _%tl5760357983%_))) + (let ((_%tl5763257851%_ (let () (declare (not safe)) - (##cdr _%e5755757771%_))) - (_%hd5755857775%_ + (##cdr _%e5763057844%_))) + (_%hd5763157848%_ (let () (declare (not safe)) - (##car _%e5755757771%_)))) - (_%__match8029180292%_ - _%e5752857903%_ - _%hd5752957907%_ - _%tl5753057910%_ - _%e5755757771%_ - _%hd5755857775%_ - _%tl5755957778%_))) + (##car _%e5763057844%_)))) + (_%__match8116681167%_ + _%e5760157976%_ + _%hd5760257980%_ + _%tl5760357983%_ + _%e5763057844%_ + _%hd5763157848%_ + _%tl5763257851%_))) (let () (declare (not safe)) - (_%g5752257626%_))))))))) - (if (gx#stx-pair? _%__stx8022280223%_) - (let ((_%e5752857903%_ (gx#syntax-e _%__stx8022280223%_))) - (let ((_%tl5753057910%_ + (_%g5759557699%_))))))))) + (if (gx#stx-pair? _%__stx8109781098%_) + (let ((_%e5760157976%_ (gx#syntax-e _%__stx8109781098%_))) + (let ((_%tl5760357983%_ (let () (declare (not safe)) - (##cdr _%e5752857903%_))) - (_%hd5752957907%_ + (##cdr _%e5760157976%_))) + (_%hd5760257980%_ (let () (declare (not safe)) - (##car _%e5752857903%_)))) - (_%__match8024780248%_ - _%e5752857903%_ - _%hd5752957907%_ - _%tl5753057910%_))) - (let () (declare (not safe)) (_%g5752257626%_))))))))) + (##car _%e5760157976%_)))) + (_%__match8112281123%_ + _%e5760157976%_ + _%hd5760257980%_ + _%tl5760357983%_))) + (let () (declare (not safe)) (_%g5759557699%_))))))))) (define |gerbil/core/contract~Interface[1]#signature-has-keywords?| - (lambda (_%signature57100%_) - (let _%loop57103%_ ((_%rest57106%_ _%signature57100%_)) - (let* ((_%__stx8033880339%_ _%rest57106%_) - (_%g5711557186%_ + (lambda (_%signature57173%_) + (let _%loop57176%_ ((_%rest57179%_ _%signature57173%_)) + (let* ((_%__stx8121381214%_ _%rest57179%_) + (_%g5718857259%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8033880339%_)))) - (let ((_%__kont8034180342%_ - (lambda (_%L57490%_ _%L57492%_) (_%loop57103%_ _%L57490%_))) - (_%__kont8034380344%_ - (lambda (_%L57454%_ _%L57456%_ _%L57457%_) - (_%loop57103%_ _%L57454%_))) - (_%__kont8034580346%_ - (lambda (_%L57400%_ _%L57402%_ _%L57403%_) - (_%loop57103%_ _%L57400%_))) - (_%__kont8034780348%_ - (lambda (_%L57356%_ _%L57358%_ _%L57359%_) '#t)) - (_%__kont8034980350%_ - (lambda (_%L57306%_ _%L57308%_ _%L57309%_ _%L57310%_) '#t)) - (_%__kont8035180352%_ - (lambda (_%L57234%_ _%L57236%_ _%L57237%_ _%L57238%_) '#t)) - (_%__kont8035380354%_ (lambda () '#f))) - (let* ((_%__match8044980450%_ - (lambda (_%e5717257204%_ - _%hd5717357208%_ - _%tl5717457211%_ - _%e5717557214%_ - _%hd5717657218%_ - _%tl5717757221%_ - _%e5717857224%_ - _%hd5717957228%_ - _%tl5718057231%_) - (let ((_%L57234%_ _%tl5717757221%_) - (_%L57236%_ _%tl5718057231%_) - (_%L57237%_ _%hd5717957228%_) - (_%L57238%_ _%hd5717357208%_)) - (if (and (gx#stx-keyword? _%L57238%_) - (gx#identifier? _%L57237%_) + _%__stx8121381214%_)))) + (let ((_%__kont8121681217%_ + (lambda (_%L57563%_ _%L57565%_) (_%loop57176%_ _%L57563%_))) + (_%__kont8121881219%_ + (lambda (_%L57527%_ _%L57529%_ _%L57530%_) + (_%loop57176%_ _%L57527%_))) + (_%__kont8122081221%_ + (lambda (_%L57473%_ _%L57475%_ _%L57476%_) + (_%loop57176%_ _%L57473%_))) + (_%__kont8122281223%_ + (lambda (_%L57429%_ _%L57431%_ _%L57432%_) '#t)) + (_%__kont8122481225%_ + (lambda (_%L57379%_ _%L57381%_ _%L57382%_ _%L57383%_) '#t)) + (_%__kont8122681227%_ + (lambda (_%L57307%_ _%L57309%_ _%L57310%_ _%L57311%_) '#t)) + (_%__kont8122881229%_ (lambda () '#f))) + (let* ((_%__match8132481325%_ + (lambda (_%e5724557277%_ + _%hd5724657281%_ + _%tl5724757284%_ + _%e5724857287%_ + _%hd5724957291%_ + _%tl5725057294%_ + _%e5725157297%_ + _%hd5725257301%_ + _%tl5725357304%_) + (let ((_%L57307%_ _%tl5725057294%_) + (_%L57309%_ _%tl5725357304%_) + (_%L57310%_ _%hd5725257301%_) + (_%L57311%_ _%hd5724657281%_)) + (if (and (gx#stx-keyword? _%L57311%_) + (gx#identifier? _%L57310%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L57236%_)) - (_%__kont8035180352%_ - _%L57234%_ - _%L57236%_ - _%L57237%_ - _%L57238%_) - (_%__kont8035380354%_))))) - (_%__match8043180432%_ - (lambda (_%e5715657266%_ - _%hd5715757270%_ - _%tl5715857273%_ - _%e5715957276%_ - _%hd5716057280%_ - _%tl5716157283%_ - _%e5716257286%_ - _%hd5716357290%_ - _%tl5716457293%_ - _%e5716557296%_ - _%hd5716657300%_ - _%tl5716757303%_) - (let ((_%L57306%_ _%tl5716157283%_) - (_%L57308%_ _%hd5716657300%_) - (_%L57309%_ _%hd5716357290%_) - (_%L57310%_ _%hd5715757270%_)) - (if (and (gx#stx-keyword? _%L57310%_) - (gx#identifier? _%L57309%_)) - (_%__kont8034980350%_ - _%L57306%_ - _%L57308%_ + _%L57309%_)) + (_%__kont8122681227%_ + _%L57307%_ _%L57309%_ - _%L57310%_) - (_%__match8044980450%_ - _%e5715657266%_ - _%hd5715757270%_ - _%tl5715857273%_ - _%e5715957276%_ - _%hd5716057280%_ - _%tl5716157283%_ - _%e5716257286%_ - _%hd5716357290%_ - _%tl5716457293%_))))) - (_%__match8040580406%_ - (lambda (_%e5714657336%_ - _%hd5714757340%_ - _%tl5714857343%_ - _%e5714957346%_ - _%hd5715057350%_ - _%tl5715157353%_) - (let ((_%L57356%_ _%tl5715157353%_) - (_%L57358%_ _%hd5715057350%_) - (_%L57359%_ _%hd5714757340%_)) - (if (and (gx#stx-keyword? _%L57359%_) - (gx#identifier? _%L57358%_)) - (_%__kont8034780348%_ - _%L57356%_ - _%L57358%_ - _%L57359%_) - (if (gx#stx-pair? _%hd5715057350%_) - (let ((_%e5716257286%_ - (gx#syntax-e _%hd5715057350%_))) - (let ((_%tl5716457293%_ + _%L57310%_ + _%L57311%_) + (_%__kont8122881229%_))))) + (_%__match8130681307%_ + (lambda (_%e5722957339%_ + _%hd5723057343%_ + _%tl5723157346%_ + _%e5723257349%_ + _%hd5723357353%_ + _%tl5723457356%_ + _%e5723557359%_ + _%hd5723657363%_ + _%tl5723757366%_ + _%e5723857369%_ + _%hd5723957373%_ + _%tl5724057376%_) + (let ((_%L57379%_ _%tl5723457356%_) + (_%L57381%_ _%hd5723957373%_) + (_%L57382%_ _%hd5723657363%_) + (_%L57383%_ _%hd5723057343%_)) + (if (and (gx#stx-keyword? _%L57383%_) + (gx#identifier? _%L57382%_)) + (_%__kont8122481225%_ + _%L57379%_ + _%L57381%_ + _%L57382%_ + _%L57383%_) + (_%__match8132481325%_ + _%e5722957339%_ + _%hd5723057343%_ + _%tl5723157346%_ + _%e5723257349%_ + _%hd5723357353%_ + _%tl5723457356%_ + _%e5723557359%_ + _%hd5723657363%_ + _%tl5723757366%_))))) + (_%__match8128081281%_ + (lambda (_%e5721957409%_ + _%hd5722057413%_ + _%tl5722157416%_ + _%e5722257419%_ + _%hd5722357423%_ + _%tl5722457426%_) + (let ((_%L57429%_ _%tl5722457426%_) + (_%L57431%_ _%hd5722357423%_) + (_%L57432%_ _%hd5722057413%_)) + (if (and (gx#stx-keyword? _%L57432%_) + (gx#identifier? _%L57431%_)) + (_%__kont8122281223%_ + _%L57429%_ + _%L57431%_ + _%L57432%_) + (if (gx#stx-pair? _%hd5722357423%_) + (let ((_%e5723557359%_ + (gx#syntax-e _%hd5722357423%_))) + (let ((_%tl5723757366%_ (let () (declare (not safe)) - (##cdr _%e5716257286%_))) - (_%hd5716357290%_ + (##cdr _%e5723557359%_))) + (_%hd5723657363%_ (let () (declare (not safe)) - (##car _%e5716257286%_)))) - (if (gx#stx-pair? _%tl5716457293%_) - (let ((_%e5716557296%_ + (##car _%e5723557359%_)))) + (if (gx#stx-pair? _%tl5723757366%_) + (let ((_%e5723857369%_ (gx#syntax-e - _%tl5716457293%_))) - (let ((_%tl5716757303%_ + _%tl5723757366%_))) + (let ((_%tl5724057376%_ (let () (declare (not safe)) - (##cdr _%e5716557296%_))) - (_%hd5716657300%_ + (##cdr _%e5723857369%_))) + (_%hd5723957373%_ (let () (declare (not safe)) - (##car _%e5716557296%_)))) + (##car _%e5723857369%_)))) (if (gx#stx-null? - _%tl5716757303%_) - (_%__match8043180432%_ - _%e5714657336%_ - _%hd5714757340%_ - _%tl5714857343%_ - _%e5714957346%_ - _%hd5715057350%_ - _%tl5715157353%_ - _%e5716257286%_ - _%hd5716357290%_ - _%tl5716457293%_ - _%e5716557296%_ - _%hd5716657300%_ - _%tl5716757303%_) - (_%__match8044980450%_ - _%e5714657336%_ - _%hd5714757340%_ - _%tl5714857343%_ - _%e5714957346%_ - _%hd5715057350%_ - _%tl5715157353%_ - _%e5716257286%_ - _%hd5716357290%_ - _%tl5716457293%_)))) - (_%__match8044980450%_ - _%e5714657336%_ - _%hd5714757340%_ - _%tl5714857343%_ - _%e5714957346%_ - _%hd5715057350%_ - _%tl5715157353%_ - _%e5716257286%_ - _%hd5716357290%_ - _%tl5716457293%_)))) - (_%__kont8035380354%_)))))) - (_%__match8039380394%_ - (lambda (_%e5713757380%_ - _%hd5713857384%_ - _%tl5713957387%_ - _%e5714057390%_ - _%hd5714157394%_ - _%tl5714257397%_) - (let ((_%L57400%_ _%tl5713957387%_) - (_%L57402%_ _%tl5714257397%_) - (_%L57403%_ _%hd5714157394%_)) - (if (and (gx#identifier? _%L57403%_) + _%tl5724057376%_) + (_%__match8130681307%_ + _%e5721957409%_ + _%hd5722057413%_ + _%tl5722157416%_ + _%e5722257419%_ + _%hd5722357423%_ + _%tl5722457426%_ + _%e5723557359%_ + _%hd5723657363%_ + _%tl5723757366%_ + _%e5723857369%_ + _%hd5723957373%_ + _%tl5724057376%_) + (_%__match8132481325%_ + _%e5721957409%_ + _%hd5722057413%_ + _%tl5722157416%_ + _%e5722257419%_ + _%hd5722357423%_ + _%tl5722457426%_ + _%e5723557359%_ + _%hd5723657363%_ + _%tl5723757366%_)))) + (_%__match8132481325%_ + _%e5721957409%_ + _%hd5722057413%_ + _%tl5722157416%_ + _%e5722257419%_ + _%hd5722357423%_ + _%tl5722457426%_ + _%e5723557359%_ + _%hd5723657363%_ + _%tl5723757366%_)))) + (_%__kont8122881229%_)))))) + (_%__match8126881269%_ + (lambda (_%e5721057453%_ + _%hd5721157457%_ + _%tl5721257460%_ + _%e5721357463%_ + _%hd5721457467%_ + _%tl5721557470%_) + (let ((_%L57473%_ _%tl5721257460%_) + (_%L57475%_ _%tl5721557470%_) + (_%L57476%_ _%hd5721457467%_)) + (if (and (gx#identifier? _%L57476%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L57402%_)) - (_%__kont8034580346%_ - _%L57400%_ - _%L57402%_ - _%L57403%_) - (if (gx#stx-pair? _%tl5713957387%_) - (let ((_%e5714957346%_ - (gx#syntax-e _%tl5713957387%_))) - (let ((_%tl5715157353%_ + _%L57475%_)) + (_%__kont8122081221%_ + _%L57473%_ + _%L57475%_ + _%L57476%_) + (if (gx#stx-pair? _%tl5721257460%_) + (let ((_%e5722257419%_ + (gx#syntax-e _%tl5721257460%_))) + (let ((_%tl5722457426%_ (let () (declare (not safe)) - (##cdr _%e5714957346%_))) - (_%hd5715057350%_ + (##cdr _%e5722257419%_))) + (_%hd5722357423%_ (let () (declare (not safe)) - (##car _%e5714957346%_)))) - (_%__match8040580406%_ - _%e5713757380%_ - _%hd5713857384%_ - _%tl5713957387%_ - _%e5714957346%_ - _%hd5715057350%_ - _%tl5715157353%_))) - (_%__kont8035380354%_)))))) - (_%__match8038180382%_ - (lambda (_%e5712557424%_ - _%hd5712657428%_ - _%tl5712757431%_ - _%e5712857434%_ - _%hd5712957438%_ - _%tl5713057441%_ - _%e5713157444%_ - _%hd5713257448%_ - _%tl5713357451%_) - (let ((_%L57454%_ _%tl5712757431%_) - (_%L57456%_ _%hd5713257448%_) - (_%L57457%_ _%hd5712957438%_)) - (if (gx#identifier? _%L57457%_) - (_%__kont8034380344%_ - _%L57454%_ - _%L57456%_ - _%L57457%_) - (_%__match8039380394%_ - _%e5712557424%_ - _%hd5712657428%_ - _%tl5712757431%_ - _%e5712857434%_ - _%hd5712957438%_ - _%tl5713057441%_))))) - (_%__match8036180362%_ - (lambda (_%e5711957480%_ - _%hd5712057484%_ - _%tl5712157487%_) - (let ((_%L57490%_ _%tl5712157487%_) - (_%L57492%_ _%hd5712057484%_)) - (if (gx#identifier? _%L57492%_) - (_%__kont8034180342%_ _%L57490%_ _%L57492%_) - (if (gx#stx-pair? _%hd5712057484%_) - (let ((_%e5712857434%_ - (gx#syntax-e _%hd5712057484%_))) - (let ((_%tl5713057441%_ + (##car _%e5722257419%_)))) + (_%__match8128081281%_ + _%e5721057453%_ + _%hd5721157457%_ + _%tl5721257460%_ + _%e5722257419%_ + _%hd5722357423%_ + _%tl5722457426%_))) + (_%__kont8122881229%_)))))) + (_%__match8125681257%_ + (lambda (_%e5719857497%_ + _%hd5719957501%_ + _%tl5720057504%_ + _%e5720157507%_ + _%hd5720257511%_ + _%tl5720357514%_ + _%e5720457517%_ + _%hd5720557521%_ + _%tl5720657524%_) + (let ((_%L57527%_ _%tl5720057504%_) + (_%L57529%_ _%hd5720557521%_) + (_%L57530%_ _%hd5720257511%_)) + (if (gx#identifier? _%L57530%_) + (_%__kont8121881219%_ + _%L57527%_ + _%L57529%_ + _%L57530%_) + (_%__match8126881269%_ + _%e5719857497%_ + _%hd5719957501%_ + _%tl5720057504%_ + _%e5720157507%_ + _%hd5720257511%_ + _%tl5720357514%_))))) + (_%__match8123681237%_ + (lambda (_%e5719257553%_ + _%hd5719357557%_ + _%tl5719457560%_) + (let ((_%L57563%_ _%tl5719457560%_) + (_%L57565%_ _%hd5719357557%_)) + (if (gx#identifier? _%L57565%_) + (_%__kont8121681217%_ _%L57563%_ _%L57565%_) + (if (gx#stx-pair? _%hd5719357557%_) + (let ((_%e5720157507%_ + (gx#syntax-e _%hd5719357557%_))) + (let ((_%tl5720357514%_ (let () (declare (not safe)) - (##cdr _%e5712857434%_))) - (_%hd5712957438%_ + (##cdr _%e5720157507%_))) + (_%hd5720257511%_ (let () (declare (not safe)) - (##car _%e5712857434%_)))) - (if (gx#stx-pair? _%tl5713057441%_) - (let ((_%e5713157444%_ + (##car _%e5720157507%_)))) + (if (gx#stx-pair? _%tl5720357514%_) + (let ((_%e5720457517%_ (gx#syntax-e - _%tl5713057441%_))) - (let ((_%tl5713357451%_ + _%tl5720357514%_))) + (let ((_%tl5720657524%_ (let () (declare (not safe)) - (##cdr _%e5713157444%_))) - (_%hd5713257448%_ + (##cdr _%e5720457517%_))) + (_%hd5720557521%_ (let () (declare (not safe)) - (##car _%e5713157444%_)))) + (##car _%e5720457517%_)))) (if (gx#stx-null? - _%tl5713357451%_) - (_%__match8038180382%_ - _%e5711957480%_ - _%hd5712057484%_ - _%tl5712157487%_ - _%e5712857434%_ - _%hd5712957438%_ - _%tl5713057441%_ - _%e5713157444%_ - _%hd5713257448%_ - _%tl5713357451%_) - (_%__match8039380394%_ - _%e5711957480%_ - _%hd5712057484%_ - _%tl5712157487%_ - _%e5712857434%_ - _%hd5712957438%_ - _%tl5713057441%_)))) - (_%__match8039380394%_ - _%e5711957480%_ - _%hd5712057484%_ - _%tl5712157487%_ - _%e5712857434%_ - _%hd5712957438%_ - _%tl5713057441%_)))) - (if (gx#stx-pair? _%tl5712157487%_) - (let ((_%e5714957346%_ - (gx#syntax-e _%tl5712157487%_))) - (let ((_%tl5715157353%_ + _%tl5720657524%_) + (_%__match8125681257%_ + _%e5719257553%_ + _%hd5719357557%_ + _%tl5719457560%_ + _%e5720157507%_ + _%hd5720257511%_ + _%tl5720357514%_ + _%e5720457517%_ + _%hd5720557521%_ + _%tl5720657524%_) + (_%__match8126881269%_ + _%e5719257553%_ + _%hd5719357557%_ + _%tl5719457560%_ + _%e5720157507%_ + _%hd5720257511%_ + _%tl5720357514%_)))) + (_%__match8126881269%_ + _%e5719257553%_ + _%hd5719357557%_ + _%tl5719457560%_ + _%e5720157507%_ + _%hd5720257511%_ + _%tl5720357514%_)))) + (if (gx#stx-pair? _%tl5719457560%_) + (let ((_%e5722257419%_ + (gx#syntax-e _%tl5719457560%_))) + (let ((_%tl5722457426%_ (let () (declare (not safe)) - (##cdr _%e5714957346%_))) - (_%hd5715057350%_ + (##cdr _%e5722257419%_))) + (_%hd5722357423%_ (let () (declare (not safe)) - (##car _%e5714957346%_)))) - (_%__match8040580406%_ - _%e5711957480%_ - _%hd5712057484%_ - _%tl5712157487%_ - _%e5714957346%_ - _%hd5715057350%_ - _%tl5715157353%_))) - (_%__kont8035380354%_)))))))) - (if (gx#stx-pair? _%__stx8033880339%_) - (let ((_%e5711957480%_ (gx#syntax-e _%__stx8033880339%_))) - (let ((_%tl5712157487%_ + (##car _%e5722257419%_)))) + (_%__match8128081281%_ + _%e5719257553%_ + _%hd5719357557%_ + _%tl5719457560%_ + _%e5722257419%_ + _%hd5722357423%_ + _%tl5722457426%_))) + (_%__kont8122881229%_)))))))) + (if (gx#stx-pair? _%__stx8121381214%_) + (let ((_%e5719257553%_ (gx#syntax-e _%__stx8121381214%_))) + (let ((_%tl5719457560%_ (let () (declare (not safe)) - (##cdr _%e5711957480%_))) - (_%hd5712057484%_ + (##cdr _%e5719257553%_))) + (_%hd5719357557%_ (let () (declare (not safe)) - (##car _%e5711957480%_)))) - (_%__match8036180362%_ - _%e5711957480%_ - _%hd5712057484%_ - _%tl5712157487%_))) - (_%__kont8035380354%_)))))))) + (##car _%e5719257553%_)))) + (_%__match8123681237%_ + _%e5719257553%_ + _%hd5719357557%_ + _%tl5719457560%_))) + (_%__kont8122881229%_)))))))) (define |gerbil/core/contract~Interface[1]#make-interface-method-lambda-signature| - (lambda (_%stx57089%_ - _%self57091%_ - _%Interface57092%_ - _%signature57093%_ - _%return57094%_ - _%unchecked-proc57095%_) - (if (gx#stx-e _%unchecked-proc57095%_) + (lambda (_%stx57162%_ + _%self57164%_ + _%Interface57165%_ + _%signature57166%_ + _%return57167%_ + _%unchecked-proc57168%_) + (if (gx#stx-e _%unchecked-proc57168%_) (|gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - _%stx57089%_ - (cons (cons _%self57091%_ (cons ': (cons _%Interface57092%_ '()))) - _%signature57093%_) - _%return57094%_ - _%unchecked-proc57095%_) - (let ((_%return-type57097%_ + _%stx57162%_ + (cons (cons _%self57164%_ (cons ': (cons _%Interface57165%_ '()))) + _%signature57166%_) + _%return57167%_ + _%unchecked-proc57168%_) + (let ((_%return-type57170%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx57089%_ - _%return57094%_)))) - (cons 'return: (cons _%return-type57097%_ '())))))) + _%stx57162%_ + _%return57167%_)))) + (cons 'return: (cons _%return-type57170%_ '())))))) (define |gerbil/core/contract~Interface[1]#make-interface-method-contract| - (lambda (_%stx57082%_ - _%self57084%_ - _%Interface57085%_ - _%signature57086%_ - _%checked?57087%_) + (lambda (_%stx57155%_ + _%self57157%_ + _%Interface57158%_ + _%signature57159%_ + _%checked?57160%_) (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx57082%_ - (cons (cons _%self57084%_ - (cons (if _%checked?57087%_ ': '::-) - (cons _%Interface57085%_ '()))) - _%signature57086%_) - _%checked?57087%_))) + _%stx57155%_ + (cons (cons _%self57157%_ + (cons (if _%checked?57160%_ ': '::-) + (cons _%Interface57158%_ '()))) + _%signature57159%_) + _%checked?57160%_))) (define |gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - (lambda (_%stx56321%_ - _%signature56323%_ - _%return56324%_ - _%unchecked56325%_) - (letrec ((_%type-e56327%_ - (lambda (_%contract56771%_) - (let* ((_%__stx8045280453%_ _%contract56771%_) - (_%g5677856833%_ + (lambda (_%stx56394%_ + _%signature56396%_ + _%return56397%_ + _%unchecked56398%_) + (letrec ((_%type-e56400%_ + (lambda (_%contract56844%_) + (let* ((_%__stx8132781328%_ _%contract56844%_) + (_%g5685156906%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8045280453%_)))) - (let ((_%__kont8045580456%_ - (lambda (_%L57063%_ _%L57065%_) + _%__stx8132781328%_)))) + (let ((_%__kont8133081331%_ + (lambda (_%L57136%_ _%L57138%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56321%_ - _%L57065%_)))) - (_%__kont8045780458%_ - (lambda (_%L57015%_ _%L57017%_ _%L57018%_) + _%stx56394%_ + _%L57138%_)))) + (_%__kont8133281333%_ + (lambda (_%L57088%_ _%L57090%_ _%L57091%_) (gx#core-quote-syntax 't::t))) - (_%__kont8045980460%_ - (lambda (_%L56967%_ _%L56969%_ _%L56970%_) + (_%__kont8133481335%_ + (lambda (_%L57040%_ _%L57042%_ _%L57043%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56321%_ - _%L56969%_)))) - (_%__kont8046180462%_ - (lambda (_%L56891%_ - _%L56893%_ - _%L56894%_ - _%L56895%_) + _%stx56394%_ + _%L57042%_)))) + (_%__kont8133681337%_ + (lambda (_%L56964%_ + _%L56966%_ + _%L56967%_ + _%L56968%_) (gx#core-quote-syntax 't::t))) - (_%__kont8046380464%_ (lambda () '#f))) - (let* ((_%__match8055380554%_ - (lambda (_%e5681656851%_ - _%hd5681756855%_ - _%tl5681856858%_ - _%e5681956861%_ - _%hd5682056865%_ - _%tl5682156868%_ - _%e5682256871%_ - _%hd5682356875%_ - _%tl5682456878%_ - _%e5682556881%_ - _%hd5682656885%_ - _%tl5682756888%_) - (let ((_%L56891%_ _%tl5682756888%_) - (_%L56893%_ _%hd5682656885%_) - (_%L56894%_ _%hd5682356875%_) - (_%L56895%_ _%hd5682056865%_)) - (if (and (gx#identifier? _%L56894%_) + (_%__kont8133881339%_ (lambda () '#f))) + (let* ((_%__match8142881429%_ + (lambda (_%e5688956924%_ + _%hd5689056928%_ + _%tl5689156931%_ + _%e5689256934%_ + _%hd5689356938%_ + _%tl5689456941%_ + _%e5689556944%_ + _%hd5689656948%_ + _%tl5689756951%_ + _%e5689856954%_ + _%hd5689956958%_ + _%tl5690056961%_) + (let ((_%L56964%_ _%tl5690056961%_) + (_%L56966%_ _%hd5689956958%_) + (_%L56967%_ _%hd5689656948%_) + (_%L56968%_ _%hd5689356938%_)) + (if (and (gx#identifier? _%L56967%_) (or (gx#free-identifier=? - _%L56894%_ + _%L56967%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L56894%_ + _%L56967%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8046180462%_ - _%L56891%_ - _%L56893%_ - _%L56894%_ - _%L56895%_) - (_%__kont8046380464%_))))) - (_%__match8049380494%_ - (lambda (_%e5679156995%_ - _%hd5679256999%_ - _%tl5679357002%_ - _%e5679457005%_ - _%hd5679557009%_ - _%tl5679657012%_) - (let ((_%L57015%_ _%tl5679657012%_) - (_%L57017%_ _%hd5679557009%_) - (_%L57018%_ _%hd5679256999%_)) - (if (and (gx#identifier? _%L57018%_) + (_%__kont8133681337%_ + _%L56964%_ + _%L56966%_ + _%L56967%_ + _%L56968%_) + (_%__kont8133881339%_))))) + (_%__match8136881369%_ + (lambda (_%e5686457068%_ + _%hd5686557072%_ + _%tl5686657075%_ + _%e5686757078%_ + _%hd5686857082%_ + _%tl5686957085%_) + (let ((_%L57088%_ _%tl5686957085%_) + (_%L57090%_ _%hd5686857082%_) + (_%L57091%_ _%hd5686557072%_)) + (if (and (gx#identifier? _%L57091%_) (or (gx#free-identifier=? - _%L57018%_ + _%L57091%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L57018%_ + _%L57091%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8045780458%_ - _%L57015%_ - _%L57017%_ - _%L57018%_) - (if (gx#identifier? _%hd5679256999%_) + (_%__kont8133281333%_ + _%L57088%_ + _%L57090%_ + _%L57091%_) + (if (gx#identifier? _%hd5686557072%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84058_| - _%hd5679256999%_) + |gerbil/core/contract~Interface[1]#_g85043_| + _%hd5686557072%_) (if (gx#stx-pair? - _%tl5679657012%_) - (let ((_%e5680656947%_ + _%tl5686957085%_) + (let ((_%e5687957020%_ (gx#syntax-e - _%tl5679657012%_))) - (let ((_%tl5680856954%_ + _%tl5686957085%_))) + (let ((_%tl5688157027%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5680656947%_))) - (_%hd5680756951%_ - (let () (declare (not safe)) (##car _%e5680656947%_)))) - (if (gx#identifier? _%hd5680756951%_) + (##cdr _%e5687957020%_))) + (_%hd5688057024%_ + (let () (declare (not safe)) (##car _%e5687957020%_)))) + (if (gx#identifier? _%hd5688057024%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84059_| - _%hd5680756951%_) - (if (gx#stx-pair? _%tl5680856954%_) - (let ((_%e5680956957%_ - (gx#syntax-e _%tl5680856954%_))) - (let ((_%tl5681156964%_ + |gerbil/core/contract~Interface[1]#_g85044_| + _%hd5688057024%_) + (if (gx#stx-pair? _%tl5688157027%_) + (let ((_%e5688257030%_ + (gx#syntax-e _%tl5688157027%_))) + (let ((_%tl5688457037%_ (let () (declare (not safe)) - (##cdr _%e5680956957%_))) - (_%hd5681056961%_ + (##cdr _%e5688257030%_))) + (_%hd5688357034%_ (let () (declare (not safe)) - (##car _%e5680956957%_)))) - (_%__kont8045980460%_ - _%tl5681156964%_ - _%hd5681056961%_ - _%hd5679557009%_))) - (_%__kont8046380464%_)) - (if (gx#stx-pair? _%tl5680856954%_) - (let ((_%e5682556881%_ - (gx#syntax-e _%tl5680856954%_))) - (let ((_%tl5682756888%_ + (##car _%e5688257030%_)))) + (_%__kont8133481335%_ + _%tl5688457037%_ + _%hd5688357034%_ + _%hd5686857082%_))) + (_%__kont8133881339%_)) + (if (gx#stx-pair? _%tl5688157027%_) + (let ((_%e5689856954%_ + (gx#syntax-e _%tl5688157027%_))) + (let ((_%tl5690056961%_ (let () (declare (not safe)) - (##cdr _%e5682556881%_))) - (_%hd5682656885%_ + (##cdr _%e5689856954%_))) + (_%hd5689956958%_ (let () (declare (not safe)) - (##car _%e5682556881%_)))) - (_%__match8055380554%_ - _%e5679156995%_ - _%hd5679256999%_ - _%tl5679357002%_ - _%e5679457005%_ - _%hd5679557009%_ - _%tl5679657012%_ - _%e5680656947%_ - _%hd5680756951%_ - _%tl5680856954%_ - _%e5682556881%_ - _%hd5682656885%_ - _%tl5682756888%_))) - (_%__kont8046380464%_))) - (if (gx#stx-pair? _%tl5680856954%_) - (let ((_%e5682556881%_ (gx#syntax-e _%tl5680856954%_))) - (let ((_%tl5682756888%_ + (##car _%e5689856954%_)))) + (_%__match8142881429%_ + _%e5686457068%_ + _%hd5686557072%_ + _%tl5686657075%_ + _%e5686757078%_ + _%hd5686857082%_ + _%tl5686957085%_ + _%e5687957020%_ + _%hd5688057024%_ + _%tl5688157027%_ + _%e5689856954%_ + _%hd5689956958%_ + _%tl5690056961%_))) + (_%__kont8133881339%_))) + (if (gx#stx-pair? _%tl5688157027%_) + (let ((_%e5689856954%_ (gx#syntax-e _%tl5688157027%_))) + (let ((_%tl5690056961%_ (let () (declare (not safe)) - (##cdr _%e5682556881%_))) - (_%hd5682656885%_ + (##cdr _%e5689856954%_))) + (_%hd5689956958%_ (let () (declare (not safe)) - (##car _%e5682556881%_)))) - (_%__match8055380554%_ - _%e5679156995%_ - _%hd5679256999%_ - _%tl5679357002%_ - _%e5679457005%_ - _%hd5679557009%_ - _%tl5679657012%_ - _%e5680656947%_ - _%hd5680756951%_ - _%tl5680856954%_ - _%e5682556881%_ - _%hd5682656885%_ - _%tl5682756888%_))) - (_%__kont8046380464%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8046380464%_)) - (_%__kont8046380464%_)) - (_%__kont8046380464%_))))))) - (if (gx#stx-pair? _%__stx8045280453%_) - (let ((_%e5678257043%_ - (gx#syntax-e _%__stx8045280453%_))) - (let ((_%tl5678457050%_ + (##car _%e5689856954%_)))) + (_%__match8142881429%_ + _%e5686457068%_ + _%hd5686557072%_ + _%tl5686657075%_ + _%e5686757078%_ + _%hd5686857082%_ + _%tl5686957085%_ + _%e5687957020%_ + _%hd5688057024%_ + _%tl5688157027%_ + _%e5689856954%_ + _%hd5689956958%_ + _%tl5690056961%_))) + (_%__kont8133881339%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8133881339%_)) + (_%__kont8133881339%_)) + (_%__kont8133881339%_))))))) + (if (gx#stx-pair? _%__stx8132781328%_) + (let ((_%e5685557116%_ + (gx#syntax-e _%__stx8132781328%_))) + (let ((_%tl5685757123%_ (let () (declare (not safe)) - (##cdr _%e5678257043%_))) - (_%hd5678357047%_ + (##cdr _%e5685557116%_))) + (_%hd5685657120%_ (let () (declare (not safe)) - (##car _%e5678257043%_)))) - (if (gx#identifier? _%hd5678357047%_) + (##car _%e5685557116%_)))) + (if (gx#identifier? _%hd5685657120%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84060_| - _%hd5678357047%_) - (if (gx#stx-pair? _%tl5678457050%_) - (let ((_%e5678557053%_ + |gerbil/core/contract~Interface[1]#_g85045_| + _%hd5685657120%_) + (if (gx#stx-pair? _%tl5685757123%_) + (let ((_%e5685857126%_ (gx#syntax-e - _%tl5678457050%_))) - (let ((_%tl5678757060%_ + _%tl5685757123%_))) + (let ((_%tl5686057133%_ (let () (declare (not safe)) - (##cdr _%e5678557053%_))) - (_%hd5678657057%_ + (##cdr _%e5685857126%_))) + (_%hd5685957130%_ (let () (declare (not safe)) - (##car _%e5678557053%_)))) - (_%__kont8045580456%_ - _%tl5678757060%_ - _%hd5678657057%_))) - (_%__kont8046380464%_)) - (if (gx#stx-pair? _%tl5678457050%_) - (let ((_%e5679457005%_ + (##car _%e5685857126%_)))) + (_%__kont8133081331%_ + _%tl5686057133%_ + _%hd5685957130%_))) + (_%__kont8133881339%_)) + (if (gx#stx-pair? _%tl5685757123%_) + (let ((_%e5686757078%_ (gx#syntax-e - _%tl5678457050%_))) - (let ((_%tl5679657012%_ + _%tl5685757123%_))) + (let ((_%tl5686957085%_ (let () (declare (not safe)) - (##cdr _%e5679457005%_))) - (_%hd5679557009%_ + (##cdr _%e5686757078%_))) + (_%hd5686857082%_ (let () (declare (not safe)) - (##car _%e5679457005%_)))) - (_%__match8049380494%_ - _%e5678257043%_ - _%hd5678357047%_ - _%tl5678457050%_ - _%e5679457005%_ - _%hd5679557009%_ - _%tl5679657012%_))) - (_%__kont8046380464%_))) - (if (gx#stx-pair? _%tl5678457050%_) - (let ((_%e5679457005%_ + (##car _%e5686757078%_)))) + (_%__match8136881369%_ + _%e5685557116%_ + _%hd5685657120%_ + _%tl5685757123%_ + _%e5686757078%_ + _%hd5686857082%_ + _%tl5686957085%_))) + (_%__kont8133881339%_))) + (if (gx#stx-pair? _%tl5685757123%_) + (let ((_%e5686757078%_ (gx#syntax-e - _%tl5678457050%_))) - (let ((_%tl5679657012%_ + _%tl5685757123%_))) + (let ((_%tl5686957085%_ (let () (declare (not safe)) - (##cdr _%e5679457005%_))) - (_%hd5679557009%_ + (##cdr _%e5686757078%_))) + (_%hd5686857082%_ (let () (declare (not safe)) - (##car _%e5679457005%_)))) - (_%__match8049380494%_ - _%e5678257043%_ - _%hd5678357047%_ - _%tl5678457050%_ - _%e5679457005%_ - _%hd5679557009%_ - _%tl5679657012%_))) - (_%__kont8046380464%_))))) - (_%__kont8046380464%_)))))))) - (let _%loop56330%_ ((_%rest56333%_ _%signature56323%_) - (_%has-keywords?56335%_ '#f) - (_%result56336%_ '())) - (let* ((_%__stx8055680557%_ _%rest56333%_) - (_%g5634556415%_ + (##car _%e5686757078%_)))) + (_%__match8136881369%_ + _%e5685557116%_ + _%hd5685657120%_ + _%tl5685757123%_ + _%e5686757078%_ + _%hd5686857082%_ + _%tl5686957085%_))) + (_%__kont8133881339%_))))) + (_%__kont8133881339%_)))))))) + (let _%loop56403%_ ((_%rest56406%_ _%signature56396%_) + (_%has-keywords?56408%_ '#f) + (_%result56409%_ '())) + (let* ((_%__stx8143181432%_ _%rest56406%_) + (_%g5641856488%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8055680557%_)))) - (let ((_%__kont8055980560%_ - (lambda (_%L56754%_ _%L56756%_) - (_%loop56330%_ - _%L56754%_ + _%__stx8143181432%_)))) + (let ((_%__kont8143481435%_ + (lambda (_%L56827%_ _%L56829%_) + (_%loop56403%_ + _%L56827%_ '#f - (cons (gx#core-quote-syntax 't::t) _%result56336%_)))) - (_%__kont8056180562%_ - (lambda (_%L56720%_ _%L56722%_) - (_%loop56330%_ - _%L56720%_ + (cons (gx#core-quote-syntax 't::t) _%result56409%_)))) + (_%__kont8143681437%_ + (lambda (_%L56793%_ _%L56795%_) + (_%loop56403%_ + _%L56793%_ '#f - (cons (gx#core-quote-syntax 't::t) _%result56336%_)))) - (_%__kont8056380564%_ - (lambda (_%L56666%_ _%L56668%_ _%L56669%_) - (_%loop56330%_ - _%L56666%_ + (cons (gx#core-quote-syntax 't::t) _%result56409%_)))) + (_%__kont8143881439%_ + (lambda (_%L56739%_ _%L56741%_ _%L56742%_) + (_%loop56403%_ + _%L56739%_ '#f - (cons (_%type-e56327%_ _%L56668%_) _%result56336%_)))) - (_%__kont8056580566%_ - (lambda (_%L56622%_ _%L56624%_ _%L56625%_) - (_%loop56330%_ - _%L56622%_ + (cons (_%type-e56400%_ _%L56741%_) _%result56409%_)))) + (_%__kont8144081441%_ + (lambda (_%L56695%_ _%L56697%_ _%L56698%_) + (_%loop56403%_ + _%L56695%_ '#t - (cons (gx#core-quote-syntax 't::t) _%result56336%_)))) - (_%__kont8056780568%_ - (lambda (_%L56574%_ _%L56576%_ _%L56577%_) - (_%loop56330%_ - _%L56574%_ + (cons (gx#core-quote-syntax 't::t) _%result56409%_)))) + (_%__kont8144281443%_ + (lambda (_%L56647%_ _%L56649%_ _%L56650%_) + (_%loop56403%_ + _%L56647%_ '#t - (cons (gx#core-quote-syntax 't::t) _%result56336%_)))) - (_%__kont8056980570%_ - (lambda (_%L56506%_ _%L56508%_ _%L56509%_ _%L56510%_) - (_%loop56330%_ - _%L56506%_ + (cons (gx#core-quote-syntax 't::t) _%result56409%_)))) + (_%__kont8144481445%_ + (lambda (_%L56579%_ _%L56581%_ _%L56582%_ _%L56583%_) + (_%loop56403%_ + _%L56579%_ '#t - (cons (_%type-e56327%_ _%L56508%_) _%result56336%_)))) - (_%__kont8057180572%_ - (lambda (_%L56444%_) - (let* ((_%arguments56458%_ - (if _%has-keywords?56335%_ + (cons (_%type-e56400%_ _%L56581%_) _%result56409%_)))) + (_%__kont8144681447%_ + (lambda (_%L56517%_) + (let* ((_%arguments56531%_ + (if _%has-keywords?56408%_ (gx#core-quote-syntax 't::t) (foldl cons (gx#core-quote-syntax 't::t) - _%result56336%_))) - (_%return-type56461%_ + _%result56409%_))) + (_%return-type56534%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56321%_ - _%return56324%_))) - (_%unchecked56464%_ - (if (not _%has-keywords?56335%_) - (if (gx#stx-e _%unchecked56325%_) + _%stx56394%_ + _%return56397%_))) + (_%unchecked56537%_ + (if (not _%has-keywords?56408%_) + (if (gx#stx-e _%unchecked56398%_) (gx#core-quote-syntax - _%unchecked56325%_) + _%unchecked56398%_) '#f) '#f))) (cons 'arguments: - (cons _%arguments56458%_ + (cons _%arguments56531%_ (cons 'return: - (cons _%return-type56461%_ + (cons _%return-type56534%_ (cons 'unchecked: - (cons _%unchecked56464%_ + (cons _%unchecked56537%_ '()))))))))) - (_%__kont8057380574%_ + (_%__kont8144881449%_ (lambda () - (let* ((_%arguments56426%_ - (if _%has-keywords?56335%_ + (let* ((_%arguments56499%_ + (if _%has-keywords?56408%_ (gx#core-quote-syntax 't::t) - (reverse! _%result56336%_))) - (_%return-type56429%_ + (reverse! _%result56409%_))) + (_%return-type56502%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56321%_ - _%return56324%_))) - (_%unchecked56432%_ - (if (not _%has-keywords?56335%_) - (if (gx#stx-e _%unchecked56325%_) + _%stx56394%_ + _%return56397%_))) + (_%unchecked56505%_ + (if (not _%has-keywords?56408%_) + (if (gx#stx-e _%unchecked56398%_) (gx#core-quote-syntax - _%unchecked56325%_) + _%unchecked56398%_) '#f) '#f))) (cons 'arguments: - (cons _%arguments56426%_ + (cons _%arguments56499%_ (cons 'return: - (cons _%return-type56429%_ + (cons _%return-type56502%_ (cons 'unchecked: - (cons _%unchecked56432%_ + (cons _%unchecked56505%_ '())))))))))) - (let* ((_%g5634456437%_ + (let* ((_%g5641756510%_ (lambda () - (if (gx#stx-null? _%__stx8055680557%_) - (_%__kont8057380574%_) + (if (gx#stx-null? _%__stx8143181432%_) + (_%__kont8144881449%_) (let () (declare (not safe)) - (_%g5634556415%_))))) - (_%g5634356469%_ + (_%g5641856488%_))))) + (_%g5641656542%_ (lambda () - (let ((_%L56444%_ _%__stx8055680557%_)) - (if (gx#identifier? _%L56444%_) - (_%__kont8057180572%_ _%L56444%_) + (let ((_%L56517%_ _%__stx8143181432%_)) + (if (gx#identifier? _%L56517%_) + (_%__kont8144681447%_ _%L56517%_) (let () (declare (not safe)) - (_%g5634456437%_)))))) - (_%__match8066980670%_ - (lambda (_%e5640056476%_ - _%hd5640156480%_ - _%tl5640256483%_ - _%e5640356486%_ - _%hd5640456490%_ - _%tl5640556493%_ - _%e5640656496%_ - _%hd5640756500%_ - _%tl5640856503%_) - (let ((_%L56506%_ _%tl5640556493%_) - (_%L56508%_ _%tl5640856503%_) - (_%L56509%_ _%hd5640756500%_) - (_%L56510%_ _%hd5640156480%_)) - (if (and (gx#stx-keyword? _%L56510%_) - (gx#identifier? _%L56509%_) + (_%g5641756510%_)))))) + (_%__match8154481545%_ + (lambda (_%e5647356549%_ + _%hd5647456553%_ + _%tl5647556556%_ + _%e5647656559%_ + _%hd5647756563%_ + _%tl5647856566%_ + _%e5647956569%_ + _%hd5648056573%_ + _%tl5648156576%_) + (let ((_%L56579%_ _%tl5647856566%_) + (_%L56581%_ _%tl5648156576%_) + (_%L56582%_ _%hd5648056573%_) + (_%L56583%_ _%hd5647456553%_)) + (if (and (gx#stx-keyword? _%L56583%_) + (gx#identifier? _%L56582%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L56508%_)) - (_%__kont8056980570%_ - _%L56506%_ - _%L56508%_ - _%L56509%_ - _%L56510%_) + _%L56581%_)) + (_%__kont8144481445%_ + _%L56579%_ + _%L56581%_ + _%L56582%_ + _%L56583%_) (let () (declare (not safe)) - (_%g5634356469%_)))))) - (_%__match8065180652%_ - (lambda (_%e5638456534%_ - _%hd5638556538%_ - _%tl5638656541%_ - _%e5638756544%_ - _%hd5638856548%_ - _%tl5638956551%_ - _%e5639056554%_ - _%hd5639156558%_ - _%tl5639256561%_ - _%e5639356564%_ - _%hd5639456568%_ - _%tl5639556571%_) - (let ((_%L56574%_ _%tl5638956551%_) - (_%L56576%_ _%hd5639156558%_) - (_%L56577%_ _%hd5638556538%_)) - (if (and (gx#stx-keyword? _%L56577%_) - (gx#identifier? _%L56576%_)) - (_%__kont8056780568%_ - _%L56574%_ - _%L56576%_ - _%L56577%_) - (_%__match8066980670%_ - _%e5638456534%_ - _%hd5638556538%_ - _%tl5638656541%_ - _%e5638756544%_ - _%hd5638856548%_ - _%tl5638956551%_ - _%e5639056554%_ - _%hd5639156558%_ - _%tl5639256561%_))))) - (_%__match8062580626%_ - (lambda (_%e5637556602%_ - _%hd5637656606%_ - _%tl5637756609%_ - _%e5637856612%_ - _%hd5637956616%_ - _%tl5638056619%_) - (let ((_%L56622%_ _%tl5638056619%_) - (_%L56624%_ _%hd5637956616%_) - (_%L56625%_ _%hd5637656606%_)) - (if (and (gx#stx-keyword? _%L56625%_) - (gx#identifier? _%L56624%_)) - (_%__kont8056580566%_ - _%L56622%_ - _%L56624%_ - _%L56625%_) - (if (gx#stx-pair? _%hd5637956616%_) - (let ((_%e5639056554%_ - (gx#syntax-e _%hd5637956616%_))) - (let ((_%tl5639256561%_ + (_%g5641656542%_)))))) + (_%__match8152681527%_ + (lambda (_%e5645756607%_ + _%hd5645856611%_ + _%tl5645956614%_ + _%e5646056617%_ + _%hd5646156621%_ + _%tl5646256624%_ + _%e5646356627%_ + _%hd5646456631%_ + _%tl5646556634%_ + _%e5646656637%_ + _%hd5646756641%_ + _%tl5646856644%_) + (let ((_%L56647%_ _%tl5646256624%_) + (_%L56649%_ _%hd5646456631%_) + (_%L56650%_ _%hd5645856611%_)) + (if (and (gx#stx-keyword? _%L56650%_) + (gx#identifier? _%L56649%_)) + (_%__kont8144281443%_ + _%L56647%_ + _%L56649%_ + _%L56650%_) + (_%__match8154481545%_ + _%e5645756607%_ + _%hd5645856611%_ + _%tl5645956614%_ + _%e5646056617%_ + _%hd5646156621%_ + _%tl5646256624%_ + _%e5646356627%_ + _%hd5646456631%_ + _%tl5646556634%_))))) + (_%__match8150081501%_ + (lambda (_%e5644856675%_ + _%hd5644956679%_ + _%tl5645056682%_ + _%e5645156685%_ + _%hd5645256689%_ + _%tl5645356692%_) + (let ((_%L56695%_ _%tl5645356692%_) + (_%L56697%_ _%hd5645256689%_) + (_%L56698%_ _%hd5644956679%_)) + (if (and (gx#stx-keyword? _%L56698%_) + (gx#identifier? _%L56697%_)) + (_%__kont8144081441%_ + _%L56695%_ + _%L56697%_ + _%L56698%_) + (if (gx#stx-pair? _%hd5645256689%_) + (let ((_%e5646356627%_ + (gx#syntax-e _%hd5645256689%_))) + (let ((_%tl5646556634%_ (let () (declare (not safe)) - (##cdr _%e5639056554%_))) - (_%hd5639156558%_ + (##cdr _%e5646356627%_))) + (_%hd5646456631%_ (let () (declare (not safe)) - (##car _%e5639056554%_)))) - (if (gx#stx-pair? _%tl5639256561%_) - (let ((_%e5639356564%_ + (##car _%e5646356627%_)))) + (if (gx#stx-pair? _%tl5646556634%_) + (let ((_%e5646656637%_ (gx#syntax-e - _%tl5639256561%_))) - (let ((_%tl5639556571%_ + _%tl5646556634%_))) + (let ((_%tl5646856644%_ (let () (declare (not safe)) - (##cdr _%e5639356564%_))) - (_%hd5639456568%_ + (##cdr _%e5646656637%_))) + (_%hd5646756641%_ (let () (declare (not safe)) - (##car _%e5639356564%_)))) + (##car _%e5646656637%_)))) (if (gx#stx-null? - _%tl5639556571%_) - (_%__match8065180652%_ - _%e5637556602%_ - _%hd5637656606%_ - _%tl5637756609%_ - _%e5637856612%_ - _%hd5637956616%_ - _%tl5638056619%_ - _%e5639056554%_ - _%hd5639156558%_ - _%tl5639256561%_ - _%e5639356564%_ - _%hd5639456568%_ - _%tl5639556571%_) - (_%__match8066980670%_ - _%e5637556602%_ - _%hd5637656606%_ - _%tl5637756609%_ - _%e5637856612%_ - _%hd5637956616%_ - _%tl5638056619%_ - _%e5639056554%_ - _%hd5639156558%_ - _%tl5639256561%_)))) - (_%__match8066980670%_ - _%e5637556602%_ - _%hd5637656606%_ - _%tl5637756609%_ - _%e5637856612%_ - _%hd5637956616%_ - _%tl5638056619%_ - _%e5639056554%_ - _%hd5639156558%_ - _%tl5639256561%_)))) + _%tl5646856644%_) + (_%__match8152681527%_ + _%e5644856675%_ + _%hd5644956679%_ + _%tl5645056682%_ + _%e5645156685%_ + _%hd5645256689%_ + _%tl5645356692%_ + _%e5646356627%_ + _%hd5646456631%_ + _%tl5646556634%_ + _%e5646656637%_ + _%hd5646756641%_ + _%tl5646856644%_) + (_%__match8154481545%_ + _%e5644856675%_ + _%hd5644956679%_ + _%tl5645056682%_ + _%e5645156685%_ + _%hd5645256689%_ + _%tl5645356692%_ + _%e5646356627%_ + _%hd5646456631%_ + _%tl5646556634%_)))) + (_%__match8154481545%_ + _%e5644856675%_ + _%hd5644956679%_ + _%tl5645056682%_ + _%e5645156685%_ + _%hd5645256689%_ + _%tl5645356692%_ + _%e5646356627%_ + _%hd5646456631%_ + _%tl5646556634%_)))) (let () (declare (not safe)) - (_%g5634356469%_))))))) - (_%__match8061380614%_ - (lambda (_%e5636656646%_ - _%hd5636756650%_ - _%tl5636856653%_ - _%e5636956656%_ - _%hd5637056660%_ - _%tl5637156663%_) - (let ((_%L56666%_ _%tl5636856653%_) - (_%L56668%_ _%tl5637156663%_) - (_%L56669%_ _%hd5637056660%_)) - (if (and (gx#identifier? _%L56669%_) + (_%g5641656542%_))))))) + (_%__match8148881489%_ + (lambda (_%e5643956719%_ + _%hd5644056723%_ + _%tl5644156726%_ + _%e5644256729%_ + _%hd5644356733%_ + _%tl5644456736%_) + (let ((_%L56739%_ _%tl5644156726%_) + (_%L56741%_ _%tl5644456736%_) + (_%L56742%_ _%hd5644356733%_)) + (if (and (gx#identifier? _%L56742%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L56668%_)) - (_%__kont8056380564%_ - _%L56666%_ - _%L56668%_ - _%L56669%_) - (if (gx#stx-pair? _%tl5636856653%_) - (let ((_%e5637856612%_ - (gx#syntax-e _%tl5636856653%_))) - (let ((_%tl5638056619%_ + _%L56741%_)) + (_%__kont8143881439%_ + _%L56739%_ + _%L56741%_ + _%L56742%_) + (if (gx#stx-pair? _%tl5644156726%_) + (let ((_%e5645156685%_ + (gx#syntax-e _%tl5644156726%_))) + (let ((_%tl5645356692%_ (let () (declare (not safe)) - (##cdr _%e5637856612%_))) - (_%hd5637956616%_ + (##cdr _%e5645156685%_))) + (_%hd5645256689%_ (let () (declare (not safe)) - (##car _%e5637856612%_)))) - (_%__match8062580626%_ - _%e5636656646%_ - _%hd5636756650%_ - _%tl5636856653%_ - _%e5637856612%_ - _%hd5637956616%_ - _%tl5638056619%_))) + (##car _%e5645156685%_)))) + (_%__match8150081501%_ + _%e5643956719%_ + _%hd5644056723%_ + _%tl5644156726%_ + _%e5645156685%_ + _%hd5645256689%_ + _%tl5645356692%_))) (let () (declare (not safe)) - (_%g5634356469%_))))))) - (_%__match8060180602%_ - (lambda (_%e5635456690%_ - _%hd5635556694%_ - _%tl5635656697%_ - _%e5635756700%_ - _%hd5635856704%_ - _%tl5635956707%_ - _%e5636056710%_ - _%hd5636156714%_ - _%tl5636256717%_) - (let ((_%L56720%_ _%tl5635656697%_) - (_%L56722%_ _%hd5635856704%_)) - (if (gx#identifier? _%L56722%_) - (_%__kont8056180562%_ _%L56720%_ _%L56722%_) - (_%__match8061380614%_ - _%e5635456690%_ - _%hd5635556694%_ - _%tl5635656697%_ - _%e5635756700%_ - _%hd5635856704%_ - _%tl5635956707%_))))) - (_%__match8058180582%_ - (lambda (_%e5634956744%_ - _%hd5635056748%_ - _%tl5635156751%_) - (let ((_%L56754%_ _%tl5635156751%_) - (_%L56756%_ _%hd5635056748%_)) - (if (gx#identifier? _%L56756%_) - (_%__kont8055980560%_ _%L56754%_ _%L56756%_) - (if (gx#stx-pair? _%hd5635056748%_) - (let ((_%e5635756700%_ - (gx#syntax-e _%hd5635056748%_))) - (let ((_%tl5635956707%_ + (_%g5641656542%_))))))) + (_%__match8147681477%_ + (lambda (_%e5642756763%_ + _%hd5642856767%_ + _%tl5642956770%_ + _%e5643056773%_ + _%hd5643156777%_ + _%tl5643256780%_ + _%e5643356783%_ + _%hd5643456787%_ + _%tl5643556790%_) + (let ((_%L56793%_ _%tl5642956770%_) + (_%L56795%_ _%hd5643156777%_)) + (if (gx#identifier? _%L56795%_) + (_%__kont8143681437%_ _%L56793%_ _%L56795%_) + (_%__match8148881489%_ + _%e5642756763%_ + _%hd5642856767%_ + _%tl5642956770%_ + _%e5643056773%_ + _%hd5643156777%_ + _%tl5643256780%_))))) + (_%__match8145681457%_ + (lambda (_%e5642256817%_ + _%hd5642356821%_ + _%tl5642456824%_) + (let ((_%L56827%_ _%tl5642456824%_) + (_%L56829%_ _%hd5642356821%_)) + (if (gx#identifier? _%L56829%_) + (_%__kont8143481435%_ _%L56827%_ _%L56829%_) + (if (gx#stx-pair? _%hd5642356821%_) + (let ((_%e5643056773%_ + (gx#syntax-e _%hd5642356821%_))) + (let ((_%tl5643256780%_ (let () (declare (not safe)) - (##cdr _%e5635756700%_))) - (_%hd5635856704%_ + (##cdr _%e5643056773%_))) + (_%hd5643156777%_ (let () (declare (not safe)) - (##car _%e5635756700%_)))) - (if (gx#stx-pair? _%tl5635956707%_) - (let ((_%e5636056710%_ + (##car _%e5643056773%_)))) + (if (gx#stx-pair? _%tl5643256780%_) + (let ((_%e5643356783%_ (gx#syntax-e - _%tl5635956707%_))) - (let ((_%tl5636256717%_ + _%tl5643256780%_))) + (let ((_%tl5643556790%_ (let () (declare (not safe)) - (##cdr _%e5636056710%_))) - (_%hd5636156714%_ + (##cdr _%e5643356783%_))) + (_%hd5643456787%_ (let () (declare (not safe)) - (##car _%e5636056710%_)))) + (##car _%e5643356783%_)))) (if (gx#stx-null? - _%tl5636256717%_) - (_%__match8060180602%_ - _%e5634956744%_ - _%hd5635056748%_ - _%tl5635156751%_ - _%e5635756700%_ - _%hd5635856704%_ - _%tl5635956707%_ - _%e5636056710%_ - _%hd5636156714%_ - _%tl5636256717%_) - (_%__match8061380614%_ - _%e5634956744%_ - _%hd5635056748%_ - _%tl5635156751%_ - _%e5635756700%_ - _%hd5635856704%_ - _%tl5635956707%_)))) - (_%__match8061380614%_ - _%e5634956744%_ - _%hd5635056748%_ - _%tl5635156751%_ - _%e5635756700%_ - _%hd5635856704%_ - _%tl5635956707%_)))) - (if (gx#stx-pair? _%tl5635156751%_) - (let ((_%e5637856612%_ - (gx#syntax-e _%tl5635156751%_))) - (let ((_%tl5638056619%_ + _%tl5643556790%_) + (_%__match8147681477%_ + _%e5642256817%_ + _%hd5642356821%_ + _%tl5642456824%_ + _%e5643056773%_ + _%hd5643156777%_ + _%tl5643256780%_ + _%e5643356783%_ + _%hd5643456787%_ + _%tl5643556790%_) + (_%__match8148881489%_ + _%e5642256817%_ + _%hd5642356821%_ + _%tl5642456824%_ + _%e5643056773%_ + _%hd5643156777%_ + _%tl5643256780%_)))) + (_%__match8148881489%_ + _%e5642256817%_ + _%hd5642356821%_ + _%tl5642456824%_ + _%e5643056773%_ + _%hd5643156777%_ + _%tl5643256780%_)))) + (if (gx#stx-pair? _%tl5642456824%_) + (let ((_%e5645156685%_ + (gx#syntax-e _%tl5642456824%_))) + (let ((_%tl5645356692%_ (let () (declare (not safe)) - (##cdr _%e5637856612%_))) - (_%hd5637956616%_ + (##cdr _%e5645156685%_))) + (_%hd5645256689%_ (let () (declare (not safe)) - (##car _%e5637856612%_)))) - (_%__match8062580626%_ - _%e5634956744%_ - _%hd5635056748%_ - _%tl5635156751%_ - _%e5637856612%_ - _%hd5637956616%_ - _%tl5638056619%_))) + (##car _%e5645156685%_)))) + (_%__match8150081501%_ + _%e5642256817%_ + _%hd5642356821%_ + _%tl5642456824%_ + _%e5645156685%_ + _%hd5645256689%_ + _%tl5645356692%_))) (let () (declare (not safe)) - (_%g5634356469%_))))))))) - (if (gx#stx-pair? _%__stx8055680557%_) - (let ((_%e5634956744%_ - (gx#syntax-e _%__stx8055680557%_))) - (let ((_%tl5635156751%_ + (_%g5641656542%_))))))))) + (if (gx#stx-pair? _%__stx8143181432%_) + (let ((_%e5642256817%_ + (gx#syntax-e _%__stx8143181432%_))) + (let ((_%tl5642456824%_ (let () (declare (not safe)) - (##cdr _%e5634956744%_))) - (_%hd5635056748%_ + (##cdr _%e5642256817%_))) + (_%hd5642356821%_ (let () (declare (not safe)) - (##car _%e5634956744%_)))) - (_%__match8058180582%_ - _%e5634956744%_ - _%hd5635056748%_ - _%tl5635156751%_))) - (let () (declare (not safe)) (_%g5634356469%_)))))))))) + (##car _%e5642256817%_)))) + (_%__match8145681457%_ + _%e5642256817%_ + _%hd5642356821%_ + _%tl5642456824%_))) + (let () (declare (not safe)) (_%g5641656542%_)))))))))) (define |gerbil/core/contract~Interface[1]#make-procedure-contract| - (lambda (_%stx55428%_ _%signature55430%_ _%checked?55431%_) - (letrec ((_%contract-e55433%_ - (lambda (_%id55836%_ _%contract55838%_) - (let* ((_%g5584055848%_ - (lambda (_%g5584155844%_) + (lambda (_%stx55501%_ _%signature55503%_ _%checked?55504%_) + (letrec ((_%contract-e55506%_ + (lambda (_%id55909%_ _%contract55911%_) + (let* ((_%g5591355921%_ + (lambda (_%g5591455917%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5584155844%_))) - (_%g5583956317%_ - (lambda (_%g5584155852%_) - ((lambda (_%L55855%_) - (let* ((_%__stx8067480675%_ _%contract55838%_) - (_%g5587255951%_ + _%g5591455917%_))) + (_%g5591256390%_ + (lambda (_%g5591455925%_) + ((lambda (_%L55928%_) + (let* ((_%__stx8154981550%_ _%contract55911%_) + (_%g5594556024%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8067480675%_)))) - (let ((_%__kont8067780678%_ - (lambda (_%L56288%_ - _%L56290%_ - _%L56291%_) - (if _%checked?55431%_ - (cons _%L55855%_ - (cons _%L56291%_ - (cons _%L56290%_ + _%__stx8154981550%_)))) + (let ((_%__kont8155281553%_ + (lambda (_%L56361%_ + _%L56363%_ + _%L56364%_) + (if _%checked?55504%_ + (cons _%L55928%_ + (cons _%L56364%_ + (cons _%L56363%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55855%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L56290%_ + (cons _%L56363%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8067980680%_ - (lambda (_%L56246%_ _%L56248%_) - (cons _%L55855%_ + (_%__kont8155481555%_ + (lambda (_%L56319%_ _%L56321%_) + (cons _%L55928%_ (cons (gx#datum->syntax '#f ':-) - (cons _%L56248%_ + (cons _%L56321%_ '()))))) - (_%__kont8068180682%_ - (lambda (_%L56188%_ - _%L56190%_ - _%L56191%_ - _%L56192%_) - (if _%checked?55431%_ - (cons _%L55855%_ + (_%__kont8155681557%_ + (lambda (_%L56261%_ + _%L56263%_ + _%L56264%_ + _%L56265%_) + (if _%checked?55504%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L56192%_ + (cons _%L56265%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L56191%_ (cons _%L56190%_ '()))))) + (cons _%L56264%_ (cons _%L56263%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55855%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L56190%_ + (cons _%L56263%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8068380684%_ - (lambda (_%L56110%_ - _%L56112%_ - _%L56113%_ - _%L56114%_) - (if _%checked?55431%_ - (cons _%L55855%_ + (_%__kont8155881559%_ + (lambda (_%L56183%_ + _%L56185%_ + _%L56186%_ + _%L56187%_) + (if _%checked?55504%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L56114%_ + (cons _%L56187%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L56113%_ (cons _%L56112%_ '()))))) + (cons _%L56186%_ (cons _%L56185%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55855%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L56112%_ + (cons _%L56185%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8068580686%_ - (lambda (_%L56042%_ - _%L56044%_ - _%L56045%_) - (if _%checked?55431%_ - (cons _%L55855%_ + (_%__kont8156081561%_ + (lambda (_%L56115%_ + _%L56117%_ + _%L56118%_) + (if _%checked?55504%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L56045%_ + (cons _%L56118%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f ':-) - (cons _%L56044%_ '()))))) + (cons _%L56117%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55855%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f ':-) - (cons _%L56044%_ + (cons _%L56117%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8068780688%_ - (lambda (_%L55978%_ _%L55980%_) - (if _%checked?55431%_ - (cons _%L55855%_ + (_%__kont8156281563%_ + (lambda (_%L56051%_ _%L56053%_) + (if _%checked?55504%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L55980%_ + (cons _%L56053%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55855%_ + (cons _%L55928%_ (cons (gx#datum->syntax '#f ':-) @@ -3639,1939 +3639,1958 @@ ':t) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__match8077380774%_ - (lambda (_%e5591156070%_ - _%hd5591256074%_ - _%tl5591356077%_ - _%e5591456080%_ - _%hd5591556084%_ - _%tl5591656087%_ - _%e5591756090%_ - _%hd5591856094%_ - _%tl5591956097%_ - _%e5592056100%_ - _%hd5592156104%_ - _%tl5592256107%_) - (let ((_%L56110%_ - _%tl5592256107%_) - (_%L56112%_ - _%hd5592156104%_) - (_%L56113%_ - _%hd5591856094%_) - (_%L56114%_ - _%hd5591556084%_)) + (let* ((_%__match8164881649%_ + (lambda (_%e5598456143%_ + _%hd5598556147%_ + _%tl5598656150%_ + _%e5598756153%_ + _%hd5598856157%_ + _%tl5598956160%_ + _%e5599056163%_ + _%hd5599156167%_ + _%tl5599256170%_ + _%e5599356173%_ + _%hd5599456177%_ + _%tl5599556180%_) + (let ((_%L56183%_ + _%tl5599556180%_) + (_%L56185%_ + _%hd5599456177%_) + (_%L56186%_ + _%hd5599156167%_) + (_%L56187%_ + _%hd5598856157%_)) (if (or (gx#free-identifier=? - _%L56113%_ + _%L56186%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L56113%_ + _%L56186%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L56113%_ + _%L56186%_ (gx#datum->syntax '#f ':?))) - (_%__kont8068380684%_ - _%L56110%_ - _%L56112%_ - _%L56113%_ - _%L56114%_) + (_%__kont8155881559%_ + _%L56183%_ + _%L56185%_ + _%L56186%_ + _%L56187%_) (if (gx#identifier? - _%hd5591856094%_) + _%hd5599156167%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84061_| - _%hd5591856094%_) - (_%__kont8068580686%_ - _%tl5592256107%_ - _%hd5592156104%_ - _%hd5591556084%_) - (_%__kont8068780688%_ - _%tl5591656087%_ - _%hd5591556084%_)) - (_%__kont8068780688%_ - _%tl5591656087%_ - _%hd5591556084%_)))))) - (_%__match8074580746%_ - (lambda (_%e5589556148%_ - _%hd5589656152%_ - _%tl5589756155%_ - _%e5589856158%_ - _%hd5589956162%_ - _%tl5590056165%_ - _%e5590156168%_ - _%hd5590256172%_ - _%tl5590356175%_ - _%e5590456178%_ - _%hd5590556182%_ - _%tl5590656185%_) - (let ((_%L56188%_ - _%tl5590656185%_) - (_%L56190%_ - _%hd5590556182%_) - (_%L56191%_ - _%hd5590256172%_) - (_%L56192%_ - _%hd5589956162%_)) + |gerbil/core/contract~Interface[1]#_g85046_| + _%hd5599156167%_) + (_%__kont8156081561%_ + _%tl5599556180%_ + _%hd5599456177%_ + _%hd5598856157%_) + (_%__kont8156281563%_ + _%tl5598956160%_ + _%hd5598856157%_)) + (_%__kont8156281563%_ + _%tl5598956160%_ + _%hd5598856157%_)))))) + (_%__match8162081621%_ + (lambda (_%e5596856221%_ + _%hd5596956225%_ + _%tl5597056228%_ + _%e5597156231%_ + _%hd5597256235%_ + _%tl5597356238%_ + _%e5597456241%_ + _%hd5597556245%_ + _%tl5597656248%_ + _%e5597756251%_ + _%hd5597856255%_ + _%tl5597956258%_) + (let ((_%L56261%_ + _%tl5597956258%_) + (_%L56263%_ + _%hd5597856255%_) + (_%L56264%_ + _%hd5597556245%_) + (_%L56265%_ + _%hd5597256235%_)) (if (or (gx#free-identifier=? - _%L56191%_ + _%L56264%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L56191%_ + _%L56264%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L56191%_ + _%L56264%_ (gx#datum->syntax '#f ':?))) - (_%__kont8068180682%_ - _%L56188%_ - _%L56190%_ - _%L56191%_ - _%L56192%_) - (_%__match8077380774%_ - _%e5589556148%_ - _%hd5589656152%_ - _%tl5589756155%_ - _%e5589856158%_ - _%hd5589956162%_ - _%tl5590056165%_ - _%e5590156168%_ - _%hd5590256172%_ - _%tl5590356175%_ - _%e5590456178%_ - _%hd5590556182%_ - _%tl5590656185%_))))) - (_%__match8070180702%_ - (lambda (_%e5587756268%_ - _%hd5587856272%_ - _%tl5587956275%_ - _%e5588056278%_ - _%hd5588156282%_ - _%tl5588256285%_) - (let ((_%L56288%_ - _%tl5588256285%_) - (_%L56290%_ - _%hd5588156282%_) - (_%L56291%_ - _%hd5587856272%_)) + (_%__kont8155681557%_ + _%L56261%_ + _%L56263%_ + _%L56264%_ + _%L56265%_) + (_%__match8164881649%_ + _%e5596856221%_ + _%hd5596956225%_ + _%tl5597056228%_ + _%e5597156231%_ + _%hd5597256235%_ + _%tl5597356238%_ + _%e5597456241%_ + _%hd5597556245%_ + _%tl5597656248%_ + _%e5597756251%_ + _%hd5597856255%_ + _%tl5597956258%_))))) + (_%__match8157681577%_ + (lambda (_%e5595056341%_ + _%hd5595156345%_ + _%tl5595256348%_ + _%e5595356351%_ + _%hd5595456355%_ + _%tl5595556358%_) + (let ((_%L56361%_ + _%tl5595556358%_) + (_%L56363%_ + _%hd5595456355%_) + (_%L56364%_ + _%hd5595156345%_)) (if (or (gx#free-identifier=? - _%L56291%_ + _%L56364%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L56291%_ + _%L56364%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L56291%_ + _%L56364%_ (gx#datum->syntax '#f ':?))) - (_%__kont8067780678%_ - _%L56288%_ - _%L56290%_ - _%L56291%_) + (_%__kont8155281553%_ + _%L56361%_ + _%L56363%_ + _%L56364%_) (if (gx#identifier? - _%hd5587856272%_) + _%hd5595156345%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84062_| - _%hd5587856272%_) - (_%__kont8067980680%_ - _%tl5588256285%_ - _%hd5588156282%_) + |gerbil/core/contract~Interface[1]#_g85047_| + _%hd5595156345%_) + (_%__kont8155481555%_ + _%tl5595556358%_ + _%hd5595456355%_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~Interface[1]#_g84063_| - _%hd5587856272%_) - (if (gx#stx-pair? _%tl5588256285%_) - (let ((_%e5590156168%_ - (gx#syntax-e _%tl5588256285%_))) - (let ((_%tl5590356175%_ + |gerbil/core/contract~Interface[1]#_g85048_| + _%hd5595156345%_) + (if (gx#stx-pair? _%tl5595556358%_) + (let ((_%e5597456241%_ + (gx#syntax-e _%tl5595556358%_))) + (let ((_%tl5597656248%_ (let () (declare (not safe)) - (##cdr _%e5590156168%_))) - (_%hd5590256172%_ + (##cdr _%e5597456241%_))) + (_%hd5597556245%_ (let () (declare (not safe)) - (##car _%e5590156168%_)))) - (if (gx#stx-pair? _%tl5590356175%_) - (let ((_%e5590456178%_ - (gx#syntax-e _%tl5590356175%_))) - (let ((_%tl5590656185%_ + (##car _%e5597456241%_)))) + (if (gx#stx-pair? _%tl5597656248%_) + (let ((_%e5597756251%_ + (gx#syntax-e _%tl5597656248%_))) + (let ((_%tl5597956258%_ (let () (declare (not safe)) - (##cdr _%e5590456178%_))) - (_%hd5590556182%_ + (##cdr _%e5597756251%_))) + (_%hd5597856255%_ (let () (declare (not safe)) - (##car _%e5590456178%_)))) - (_%__match8074580746%_ - _%e5587756268%_ - _%hd5587856272%_ - _%tl5587956275%_ - _%e5588056278%_ - _%hd5588156282%_ - _%tl5588256285%_ - _%e5590156168%_ - _%hd5590256172%_ - _%tl5590356175%_ - _%e5590456178%_ - _%hd5590556182%_ - _%tl5590656185%_))) - (_%__kont8068780688%_ - _%tl5588256285%_ - _%hd5588156282%_)))) - (_%__kont8068780688%_ - _%tl5588256285%_ - _%hd5588156282%_)) - (let () (declare (not safe)) (_%g5587255951%_)))) - (let () (declare (not safe)) (_%g5587255951%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8067480675%_) - (let ((_%e5587756268%_ + (##car _%e5597756251%_)))) + (_%__match8162081621%_ + _%e5595056341%_ + _%hd5595156345%_ + _%tl5595256348%_ + _%e5595356351%_ + _%hd5595456355%_ + _%tl5595556358%_ + _%e5597456241%_ + _%hd5597556245%_ + _%tl5597656248%_ + _%e5597756251%_ + _%hd5597856255%_ + _%tl5597956258%_))) + (_%__kont8156281563%_ + _%tl5595556358%_ + _%hd5595456355%_)))) + (_%__kont8156281563%_ + _%tl5595556358%_ + _%hd5595456355%_)) + (let () (declare (not safe)) (_%g5594556024%_)))) + (let () (declare (not safe)) (_%g5594556024%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%__stx8154981550%_) + (let ((_%e5595056341%_ (gx#syntax-e - _%__stx8067480675%_))) - (let ((_%tl5587956275%_ + _%__stx8154981550%_))) + (let ((_%tl5595256348%_ (let () (declare (not safe)) - (##cdr _%e5587756268%_))) - (_%hd5587856272%_ + (##cdr _%e5595056341%_))) + (_%hd5595156345%_ (let () (declare (not safe)) - (##car _%e5587756268%_)))) + (##car _%e5595056341%_)))) (if (gx#stx-pair? - _%tl5587956275%_) - (let ((_%e5588056278%_ + _%tl5595256348%_) + (let ((_%e5595356351%_ (gx#syntax-e - _%tl5587956275%_))) - (let ((_%tl5588256285%_ + _%tl5595256348%_))) + (let ((_%tl5595556358%_ (let () (declare (not safe)) - (##cdr _%e5588056278%_))) - (_%hd5588156282%_ + (##cdr _%e5595356351%_))) + (_%hd5595456355%_ (let () (declare (not safe)) - (##car _%e5588056278%_)))) - (_%__match8070180702%_ - _%e5587756268%_ - _%hd5587856272%_ - _%tl5587956275%_ - _%e5588056278%_ - _%hd5588156282%_ - _%tl5588256285%_))) + (##car _%e5595356351%_)))) + (_%__match8157681577%_ + _%e5595056341%_ + _%hd5595156345%_ + _%tl5595256348%_ + _%e5595356351%_ + _%hd5595456355%_ + _%tl5595556358%_))) (let () (declare (not safe)) - (_%g5587255951%_))))) + (_%g5594556024%_))))) (let () (declare (not safe)) - (_%g5587255951%_))))))) - _%g5584155852%_)))) - (_%g5583956317%_ _%id55836%_))))) - (let _%loop55436%_ ((_%rest55439%_ _%signature55430%_) - (_%result55441%_ '())) - (let* ((_%__stx8082480825%_ _%rest55439%_) - (_%g5544955518%_ + (_%g5594556024%_))))))) + _%g5591455925%_)))) + (_%g5591256390%_ _%id55909%_))))) + (let _%loop55509%_ ((_%rest55512%_ _%signature55503%_) + (_%result55514%_ '())) + (let* ((_%__stx8169981700%_ _%rest55512%_) + (_%g5552255591%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8082480825%_)))) - (let ((_%__kont8082780828%_ - (lambda (_%L55819%_ _%L55821%_) - (_%loop55436%_ _%L55819%_ _%result55441%_))) - (_%__kont8082980830%_ - (lambda (_%L55785%_ _%L55787%_) - (_%loop55436%_ _%L55785%_ _%result55441%_))) - (_%__kont8083180832%_ - (lambda (_%L55731%_ _%L55733%_ _%L55734%_) - (_%loop55436%_ - _%L55731%_ - (cons (_%contract-e55433%_ _%L55734%_ _%L55733%_) - _%result55441%_)))) - (_%__kont8083380834%_ - (lambda (_%L55687%_ _%L55689%_ _%L55690%_) - (_%loop55436%_ _%L55687%_ _%result55441%_))) - (_%__kont8083580836%_ - (lambda (_%L55639%_ _%L55641%_ _%L55642%_) - (_%loop55436%_ _%L55639%_ _%result55441%_))) - (_%__kont8083780838%_ - (lambda (_%L55566%_ _%L55568%_ _%L55569%_ _%L55570%_) - (_%loop55436%_ - _%L55566%_ - (cons (_%contract-e55433%_ _%L55569%_ _%L55568%_) - _%result55441%_)))) - (_%__kont8083980840%_ - (lambda () (reverse! (filter identity _%result55441%_))))) - (let* ((_%__match8093580936%_ - (lambda (_%e5550455536%_ - _%hd5550555540%_ - _%tl5550655543%_ - _%e5550755546%_ - _%hd5550855550%_ - _%tl5550955553%_ - _%e5551055556%_ - _%hd5551155560%_ - _%tl5551255563%_) - (let ((_%L55566%_ _%tl5550955553%_) - (_%L55568%_ _%tl5551255563%_) - (_%L55569%_ _%hd5551155560%_) - (_%L55570%_ _%hd5550555540%_)) - (if (and (gx#stx-keyword? _%L55570%_) - (gx#identifier? _%L55569%_) + _%__stx8169981700%_)))) + (let ((_%__kont8170281703%_ + (lambda (_%L55892%_ _%L55894%_) + (_%loop55509%_ _%L55892%_ _%result55514%_))) + (_%__kont8170481705%_ + (lambda (_%L55858%_ _%L55860%_) + (_%loop55509%_ _%L55858%_ _%result55514%_))) + (_%__kont8170681707%_ + (lambda (_%L55804%_ _%L55806%_ _%L55807%_) + (_%loop55509%_ + _%L55804%_ + (cons (_%contract-e55506%_ _%L55807%_ _%L55806%_) + _%result55514%_)))) + (_%__kont8170881709%_ + (lambda (_%L55760%_ _%L55762%_ _%L55763%_) + (_%loop55509%_ _%L55760%_ _%result55514%_))) + (_%__kont8171081711%_ + (lambda (_%L55712%_ _%L55714%_ _%L55715%_) + (_%loop55509%_ _%L55712%_ _%result55514%_))) + (_%__kont8171281713%_ + (lambda (_%L55639%_ _%L55641%_ _%L55642%_ _%L55643%_) + (_%loop55509%_ + _%L55639%_ + (cons (_%contract-e55506%_ _%L55642%_ _%L55641%_) + _%result55514%_)))) + (_%__kont8171481715%_ + (lambda () (reverse! (filter identity _%result55514%_))))) + (let* ((_%__match8181081811%_ + (lambda (_%e5557755609%_ + _%hd5557855613%_ + _%tl5557955616%_ + _%e5558055619%_ + _%hd5558155623%_ + _%tl5558255626%_ + _%e5558355629%_ + _%hd5558455633%_ + _%tl5558555636%_) + (let ((_%L55639%_ _%tl5558255626%_) + (_%L55641%_ _%tl5558555636%_) + (_%L55642%_ _%hd5558455633%_) + (_%L55643%_ _%hd5557855613%_)) + (if (and (gx#stx-keyword? _%L55643%_) + (gx#identifier? _%L55642%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L55568%_)) - (_%__kont8083780838%_ - _%L55566%_ - _%L55568%_ - _%L55569%_ - _%L55570%_) - (_%__kont8083980840%_))))) - (_%__match8091780918%_ - (lambda (_%e5548855599%_ - _%hd5548955603%_ - _%tl5549055606%_ - _%e5549155609%_ - _%hd5549255613%_ - _%tl5549355616%_ - _%e5549455619%_ - _%hd5549555623%_ - _%tl5549655626%_ - _%e5549755629%_ - _%hd5549855633%_ - _%tl5549955636%_) - (let ((_%L55639%_ _%tl5549355616%_) - (_%L55641%_ _%hd5549555623%_) - (_%L55642%_ _%hd5548955603%_)) - (if (and (gx#stx-keyword? _%L55642%_) - (gx#identifier? _%L55641%_)) - (_%__kont8083580836%_ + _%L55641%_)) + (_%__kont8171281713%_ _%L55639%_ _%L55641%_ - _%L55642%_) - (_%__match8093580936%_ - _%e5548855599%_ - _%hd5548955603%_ - _%tl5549055606%_ - _%e5549155609%_ - _%hd5549255613%_ - _%tl5549355616%_ - _%e5549455619%_ - _%hd5549555623%_ - _%tl5549655626%_))))) - (_%__match8089180892%_ - (lambda (_%e5547955667%_ - _%hd5548055671%_ - _%tl5548155674%_ - _%e5548255677%_ - _%hd5548355681%_ - _%tl5548455684%_) - (let ((_%L55687%_ _%tl5548455684%_) - (_%L55689%_ _%hd5548355681%_) - (_%L55690%_ _%hd5548055671%_)) - (if (and (gx#stx-keyword? _%L55690%_) - (gx#identifier? _%L55689%_)) - (_%__kont8083380834%_ - _%L55687%_ - _%L55689%_ - _%L55690%_) - (if (gx#stx-pair? _%hd5548355681%_) - (let ((_%e5549455619%_ - (gx#syntax-e _%hd5548355681%_))) - (let ((_%tl5549655626%_ + _%L55642%_ + _%L55643%_) + (_%__kont8171481715%_))))) + (_%__match8179281793%_ + (lambda (_%e5556155672%_ + _%hd5556255676%_ + _%tl5556355679%_ + _%e5556455682%_ + _%hd5556555686%_ + _%tl5556655689%_ + _%e5556755692%_ + _%hd5556855696%_ + _%tl5556955699%_ + _%e5557055702%_ + _%hd5557155706%_ + _%tl5557255709%_) + (let ((_%L55712%_ _%tl5556655689%_) + (_%L55714%_ _%hd5556855696%_) + (_%L55715%_ _%hd5556255676%_)) + (if (and (gx#stx-keyword? _%L55715%_) + (gx#identifier? _%L55714%_)) + (_%__kont8171081711%_ + _%L55712%_ + _%L55714%_ + _%L55715%_) + (_%__match8181081811%_ + _%e5556155672%_ + _%hd5556255676%_ + _%tl5556355679%_ + _%e5556455682%_ + _%hd5556555686%_ + _%tl5556655689%_ + _%e5556755692%_ + _%hd5556855696%_ + _%tl5556955699%_))))) + (_%__match8176681767%_ + (lambda (_%e5555255740%_ + _%hd5555355744%_ + _%tl5555455747%_ + _%e5555555750%_ + _%hd5555655754%_ + _%tl5555755757%_) + (let ((_%L55760%_ _%tl5555755757%_) + (_%L55762%_ _%hd5555655754%_) + (_%L55763%_ _%hd5555355744%_)) + (if (and (gx#stx-keyword? _%L55763%_) + (gx#identifier? _%L55762%_)) + (_%__kont8170881709%_ + _%L55760%_ + _%L55762%_ + _%L55763%_) + (if (gx#stx-pair? _%hd5555655754%_) + (let ((_%e5556755692%_ + (gx#syntax-e _%hd5555655754%_))) + (let ((_%tl5556955699%_ (let () (declare (not safe)) - (##cdr _%e5549455619%_))) - (_%hd5549555623%_ + (##cdr _%e5556755692%_))) + (_%hd5556855696%_ (let () (declare (not safe)) - (##car _%e5549455619%_)))) - (if (gx#stx-pair? _%tl5549655626%_) - (let ((_%e5549755629%_ + (##car _%e5556755692%_)))) + (if (gx#stx-pair? _%tl5556955699%_) + (let ((_%e5557055702%_ (gx#syntax-e - _%tl5549655626%_))) - (let ((_%tl5549955636%_ + _%tl5556955699%_))) + (let ((_%tl5557255709%_ (let () (declare (not safe)) - (##cdr _%e5549755629%_))) - (_%hd5549855633%_ + (##cdr _%e5557055702%_))) + (_%hd5557155706%_ (let () (declare (not safe)) - (##car _%e5549755629%_)))) + (##car _%e5557055702%_)))) (if (gx#stx-null? - _%tl5549955636%_) - (_%__match8091780918%_ - _%e5547955667%_ - _%hd5548055671%_ - _%tl5548155674%_ - _%e5548255677%_ - _%hd5548355681%_ - _%tl5548455684%_ - _%e5549455619%_ - _%hd5549555623%_ - _%tl5549655626%_ - _%e5549755629%_ - _%hd5549855633%_ - _%tl5549955636%_) - (_%__match8093580936%_ - _%e5547955667%_ - _%hd5548055671%_ - _%tl5548155674%_ - _%e5548255677%_ - _%hd5548355681%_ - _%tl5548455684%_ - _%e5549455619%_ - _%hd5549555623%_ - _%tl5549655626%_)))) - (_%__match8093580936%_ - _%e5547955667%_ - _%hd5548055671%_ - _%tl5548155674%_ - _%e5548255677%_ - _%hd5548355681%_ - _%tl5548455684%_ - _%e5549455619%_ - _%hd5549555623%_ - _%tl5549655626%_)))) - (_%__kont8083980840%_)))))) - (_%__match8087980880%_ - (lambda (_%e5547055711%_ - _%hd5547155715%_ - _%tl5547255718%_ - _%e5547355721%_ - _%hd5547455725%_ - _%tl5547555728%_) - (let ((_%L55731%_ _%tl5547255718%_) - (_%L55733%_ _%tl5547555728%_) - (_%L55734%_ _%hd5547455725%_)) - (if (and (gx#identifier? _%L55734%_) + _%tl5557255709%_) + (_%__match8179281793%_ + _%e5555255740%_ + _%hd5555355744%_ + _%tl5555455747%_ + _%e5555555750%_ + _%hd5555655754%_ + _%tl5555755757%_ + _%e5556755692%_ + _%hd5556855696%_ + _%tl5556955699%_ + _%e5557055702%_ + _%hd5557155706%_ + _%tl5557255709%_) + (_%__match8181081811%_ + _%e5555255740%_ + _%hd5555355744%_ + _%tl5555455747%_ + _%e5555555750%_ + _%hd5555655754%_ + _%tl5555755757%_ + _%e5556755692%_ + _%hd5556855696%_ + _%tl5556955699%_)))) + (_%__match8181081811%_ + _%e5555255740%_ + _%hd5555355744%_ + _%tl5555455747%_ + _%e5555555750%_ + _%hd5555655754%_ + _%tl5555755757%_ + _%e5556755692%_ + _%hd5556855696%_ + _%tl5556955699%_)))) + (_%__kont8171481715%_)))))) + (_%__match8175481755%_ + (lambda (_%e5554355784%_ + _%hd5554455788%_ + _%tl5554555791%_ + _%e5554655794%_ + _%hd5554755798%_ + _%tl5554855801%_) + (let ((_%L55804%_ _%tl5554555791%_) + (_%L55806%_ _%tl5554855801%_) + (_%L55807%_ _%hd5554755798%_)) + (if (and (gx#identifier? _%L55807%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L55733%_)) - (_%__kont8083180832%_ - _%L55731%_ - _%L55733%_ - _%L55734%_) - (if (gx#stx-pair? _%tl5547255718%_) - (let ((_%e5548255677%_ - (gx#syntax-e _%tl5547255718%_))) - (let ((_%tl5548455684%_ + _%L55806%_)) + (_%__kont8170681707%_ + _%L55804%_ + _%L55806%_ + _%L55807%_) + (if (gx#stx-pair? _%tl5554555791%_) + (let ((_%e5555555750%_ + (gx#syntax-e _%tl5554555791%_))) + (let ((_%tl5555755757%_ (let () (declare (not safe)) - (##cdr _%e5548255677%_))) - (_%hd5548355681%_ + (##cdr _%e5555555750%_))) + (_%hd5555655754%_ (let () (declare (not safe)) - (##car _%e5548255677%_)))) - (_%__match8089180892%_ - _%e5547055711%_ - _%hd5547155715%_ - _%tl5547255718%_ - _%e5548255677%_ - _%hd5548355681%_ - _%tl5548455684%_))) - (_%__kont8083980840%_)))))) - (_%__match8086780868%_ - (lambda (_%e5545855755%_ - _%hd5545955759%_ - _%tl5546055762%_ - _%e5546155765%_ - _%hd5546255769%_ - _%tl5546355772%_ - _%e5546455775%_ - _%hd5546555779%_ - _%tl5546655782%_) - (let ((_%L55785%_ _%tl5546055762%_) - (_%L55787%_ _%hd5546255769%_)) - (if (gx#identifier? _%L55787%_) - (_%__kont8082980830%_ _%L55785%_ _%L55787%_) - (_%__match8087980880%_ - _%e5545855755%_ - _%hd5545955759%_ - _%tl5546055762%_ - _%e5546155765%_ - _%hd5546255769%_ - _%tl5546355772%_))))) - (_%__match8084780848%_ - (lambda (_%e5545355809%_ - _%hd5545455813%_ - _%tl5545555816%_) - (let ((_%L55819%_ _%tl5545555816%_) - (_%L55821%_ _%hd5545455813%_)) - (if (gx#identifier? _%L55821%_) - (_%__kont8082780828%_ _%L55819%_ _%L55821%_) - (if (gx#stx-pair? _%hd5545455813%_) - (let ((_%e5546155765%_ - (gx#syntax-e _%hd5545455813%_))) - (let ((_%tl5546355772%_ + (##car _%e5555555750%_)))) + (_%__match8176681767%_ + _%e5554355784%_ + _%hd5554455788%_ + _%tl5554555791%_ + _%e5555555750%_ + _%hd5555655754%_ + _%tl5555755757%_))) + (_%__kont8171481715%_)))))) + (_%__match8174281743%_ + (lambda (_%e5553155828%_ + _%hd5553255832%_ + _%tl5553355835%_ + _%e5553455838%_ + _%hd5553555842%_ + _%tl5553655845%_ + _%e5553755848%_ + _%hd5553855852%_ + _%tl5553955855%_) + (let ((_%L55858%_ _%tl5553355835%_) + (_%L55860%_ _%hd5553555842%_)) + (if (gx#identifier? _%L55860%_) + (_%__kont8170481705%_ _%L55858%_ _%L55860%_) + (_%__match8175481755%_ + _%e5553155828%_ + _%hd5553255832%_ + _%tl5553355835%_ + _%e5553455838%_ + _%hd5553555842%_ + _%tl5553655845%_))))) + (_%__match8172281723%_ + (lambda (_%e5552655882%_ + _%hd5552755886%_ + _%tl5552855889%_) + (let ((_%L55892%_ _%tl5552855889%_) + (_%L55894%_ _%hd5552755886%_)) + (if (gx#identifier? _%L55894%_) + (_%__kont8170281703%_ _%L55892%_ _%L55894%_) + (if (gx#stx-pair? _%hd5552755886%_) + (let ((_%e5553455838%_ + (gx#syntax-e _%hd5552755886%_))) + (let ((_%tl5553655845%_ (let () (declare (not safe)) - (##cdr _%e5546155765%_))) - (_%hd5546255769%_ + (##cdr _%e5553455838%_))) + (_%hd5553555842%_ (let () (declare (not safe)) - (##car _%e5546155765%_)))) - (if (gx#stx-pair? _%tl5546355772%_) - (let ((_%e5546455775%_ + (##car _%e5553455838%_)))) + (if (gx#stx-pair? _%tl5553655845%_) + (let ((_%e5553755848%_ (gx#syntax-e - _%tl5546355772%_))) - (let ((_%tl5546655782%_ + _%tl5553655845%_))) + (let ((_%tl5553955855%_ (let () (declare (not safe)) - (##cdr _%e5546455775%_))) - (_%hd5546555779%_ + (##cdr _%e5553755848%_))) + (_%hd5553855852%_ (let () (declare (not safe)) - (##car _%e5546455775%_)))) + (##car _%e5553755848%_)))) (if (gx#stx-null? - _%tl5546655782%_) - (_%__match8086780868%_ - _%e5545355809%_ - _%hd5545455813%_ - _%tl5545555816%_ - _%e5546155765%_ - _%hd5546255769%_ - _%tl5546355772%_ - _%e5546455775%_ - _%hd5546555779%_ - _%tl5546655782%_) - (_%__match8087980880%_ - _%e5545355809%_ - _%hd5545455813%_ - _%tl5545555816%_ - _%e5546155765%_ - _%hd5546255769%_ - _%tl5546355772%_)))) - (_%__match8087980880%_ - _%e5545355809%_ - _%hd5545455813%_ - _%tl5545555816%_ - _%e5546155765%_ - _%hd5546255769%_ - _%tl5546355772%_)))) - (if (gx#stx-pair? _%tl5545555816%_) - (let ((_%e5548255677%_ - (gx#syntax-e _%tl5545555816%_))) - (let ((_%tl5548455684%_ + _%tl5553955855%_) + (_%__match8174281743%_ + _%e5552655882%_ + _%hd5552755886%_ + _%tl5552855889%_ + _%e5553455838%_ + _%hd5553555842%_ + _%tl5553655845%_ + _%e5553755848%_ + _%hd5553855852%_ + _%tl5553955855%_) + (_%__match8175481755%_ + _%e5552655882%_ + _%hd5552755886%_ + _%tl5552855889%_ + _%e5553455838%_ + _%hd5553555842%_ + _%tl5553655845%_)))) + (_%__match8175481755%_ + _%e5552655882%_ + _%hd5552755886%_ + _%tl5552855889%_ + _%e5553455838%_ + _%hd5553555842%_ + _%tl5553655845%_)))) + (if (gx#stx-pair? _%tl5552855889%_) + (let ((_%e5555555750%_ + (gx#syntax-e _%tl5552855889%_))) + (let ((_%tl5555755757%_ (let () (declare (not safe)) - (##cdr _%e5548255677%_))) - (_%hd5548355681%_ + (##cdr _%e5555555750%_))) + (_%hd5555655754%_ (let () (declare (not safe)) - (##car _%e5548255677%_)))) - (_%__match8089180892%_ - _%e5545355809%_ - _%hd5545455813%_ - _%tl5545555816%_ - _%e5548255677%_ - _%hd5548355681%_ - _%tl5548455684%_))) - (_%__kont8083980840%_)))))))) - (if (gx#stx-pair? _%__stx8082480825%_) - (let ((_%e5545355809%_ - (gx#syntax-e _%__stx8082480825%_))) - (let ((_%tl5545555816%_ + (##car _%e5555555750%_)))) + (_%__match8176681767%_ + _%e5552655882%_ + _%hd5552755886%_ + _%tl5552855889%_ + _%e5555555750%_ + _%hd5555655754%_ + _%tl5555755757%_))) + (_%__kont8171481715%_)))))))) + (if (gx#stx-pair? _%__stx8169981700%_) + (let ((_%e5552655882%_ + (gx#syntax-e _%__stx8169981700%_))) + (let ((_%tl5552855889%_ (let () (declare (not safe)) - (##cdr _%e5545355809%_))) - (_%hd5545455813%_ + (##cdr _%e5552655882%_))) + (_%hd5552755886%_ (let () (declare (not safe)) - (##car _%e5545355809%_)))) - (_%__match8084780848%_ - _%e5545355809%_ - _%hd5545455813%_ - _%tl5545555816%_))) - (_%__kont8083980840%_))))))))) + (##car _%e5552655882%_)))) + (_%__match8172281723%_ + _%e5552655882%_ + _%hd5552755886%_ + _%tl5552855889%_))) + (_%__kont8171481715%_))))))))) (define |gerbil/core/contract~Interface[1]#compatible-signatures?| - (lambda (_%left55395%_ _%right55397%_) - (let ((__tmp84064 - (lambda (_%return55399%_) - (let ((_%left-arity55402%_ - (|gerbil/core/contract~Interface[1]#signature-arity| - _%left55395%_)) - (_%right-arity55404%_ - (|gerbil/core/contract~Interface[1]#signature-arity| - _%right55397%_))) - (if (equal? _%left-arity55402%_ _%right-arity55404%_) - '#!void - (_%return55399%_ '#f))) - (let ((_%left-kws55406%_ - (|gerbil/core/contract~Interface[1]#signature-keywords| - _%left55395%_)) - (_%right-kws55408%_ - (|gerbil/core/contract~Interface[1]#signature-keywords| - _%right55397%_))) - (if (equal? _%left-kws55406%_ _%right-kws55408%_) - '#!void - (_%return55399%_ '#f))) - (let ((_g84065_ - (|gerbil/core/contract~Interface[1]#signature-type-contract| - _%left55395%_)) - (_g84067_ - (|gerbil/core/contract~Interface[1]#signature-type-contract| - _%right55397%_))) - (begin - (let ((_g84066_ - (let () - (declare (not safe)) - (if (##values? _g84065_) - (##vector-length _g84065_) - 1)))) - (if (not (let () + (lambda (_%left55458%_ _%right55460%_) + (let ((_%left55462%_ (gx#syntax->list _%left55458%_)) + (_%right55464%_ (gx#syntax->list _%right55460%_))) + (let ((_%left-args55466%_ (cadr _%left55462%_)) + (_%left-return55468%_ (caddr _%left55462%_)) + (_%right-args55469%_ (cadr _%right55464%_)) + (_%right-return55470%_ (caddr _%right55464%_))) + (let ((__tmp85049 + (lambda (_%return55472%_) + (let ((_%left-arity55475%_ + (|gerbil/core/contract~Interface[1]#signature-arity| + _%left-args55466%_)) + (_%right-arity55477%_ + (|gerbil/core/contract~Interface[1]#signature-arity| + _%right-args55469%_))) + (if (equal? _%left-arity55475%_ _%right-arity55477%_) + '#!void + (_%return55472%_ '#f))) + (let ((_%left-kws55479%_ + (|gerbil/core/contract~Interface[1]#signature-keywords| + _%left-args55466%_)) + (_%right-kws55481%_ + (|gerbil/core/contract~Interface[1]#signature-keywords| + _%right-args55469%_))) + (if (equal? _%left-kws55479%_ _%right-kws55481%_) + '#!void + (_%return55472%_ '#f))) + (let ((_g85050_ + (|gerbil/core/contract~Interface[1]#signature-type-contract| + _%left-args55466%_)) + (_g85052_ + (|gerbil/core/contract~Interface[1]#signature-type-contract| + _%right-args55469%_))) + (begin + (let ((_g85051_ + (let () (declare (not safe)) - (##fx= _g84066_ 2))) - (error "Context expects 2 values" _g84066_))) - (let ((_g84068_ - (let () - (declare (not safe)) - (if (##values? _g84067_) - (##vector-length _g84067_) - 1)))) - (if (not (let () + (if (##values? _g85050_) + (##values-length _g85050_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g85051_ 2))) + (error "Context expects 2 values" _g85051_))) + (let ((_g85053_ + (let () (declare (not safe)) - (##fx= _g84068_ 2))) - (error "Context expects 2 values" _g84068_))) - (let ((_%left-positional-contract55410%_ - (let () - (declare (not safe)) - (##vector-ref _g84065_ 0))) - (_%left-kw-contract55412%_ - (let () - (declare (not safe)) - (##vector-ref _g84065_ 1)))) - (let ((_%right-positional-contract55413%_ - (let () - (declare (not safe)) - (##vector-ref _g84067_ 0))) - (_%right-kw-contract55414%_ - (let () - (declare (not safe)) - (##vector-ref _g84067_ 1)))) - (let ((_%left-contract55424%_ - (append _%left-positional-contract55410%_ - (foldr (lambda (_%kwc55416%_ - _%r55418%_) - (cons (cdr _%kwc55416%_) - _%r55418%_)) - '() - _%left-kw-contract55412%_))) - (_%right-contract55426%_ - (append _%right-positional-contract55413%_ - (foldr (lambda (_%kwc55420%_ - _%r55422%_) - (cons (cdr _%kwc55420%_) - _%r55422%_)) - '() - _%right-kw-contract55414%_)))) - (if (|gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| - _%left-contract55424%_ - _%right-contract55426%_) - '#!void - (_%return55399%_ '#f))))))) - '#t))) - (declare (not safe)) - (##call-with-current-continuation __tmp84064)))) + (if (##values? _g85052_) + (##values-length _g85052_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g85053_ 2))) + (error "Context expects 2 values" _g85053_))) + (let ((_%left-positional-contract55483%_ + (let () + (declare (not safe)) + (##values-ref _g85050_ 0))) + (_%left-kw-contract55485%_ + (let () + (declare (not safe)) + (##values-ref _g85050_ 1)))) + (let ((_%right-positional-contract55486%_ + (let () + (declare (not safe)) + (##values-ref _g85052_ 0))) + (_%right-kw-contract55487%_ + (let () + (declare (not safe)) + (##values-ref _g85052_ 1)))) + (let ((_%left-contract55497%_ + (append _%left-positional-contract55483%_ + (foldr (lambda (_%kwc55489%_ + _%r55491%_) + (cons (cdr _%kwc55489%_) + _%r55491%_)) + '() + _%left-kw-contract55485%_))) + (_%right-contract55499%_ + (append _%right-positional-contract55486%_ + (foldr (lambda (_%kwc55493%_ + _%r55495%_) + (cons (cdr _%kwc55493%_) + _%r55495%_)) + '() + _%right-kw-contract55487%_)))) + (if (|gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| + _%left-contract55497%_ + _%right-contract55499%_) + '#!void + (_%return55472%_ '#f))))))) + (if (gx#free-identifier=? + (let () + (declare (not safe)) + (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| + _%left55462%_ + _%left-return55468%_)) + (let () + (declare (not safe)) + (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| + _%right55464%_ + _%right-return55470%_))) + '#!void + (_%return55472%_ '#f)) + '#t))) + (declare (not safe)) + (##call-with-current-continuation __tmp85049)))))) (define |gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| - (lambda (_%left55298%_ _%right55300%_) - (let _%loop55302%_ ((_%left-rest55305%_ _%left55298%_) - (_%right-rest55307%_ _%right55300%_)) - (let* ((_%left-rest5530855316%_ _%left-rest55305%_) - (_%else5531055328%_ (lambda () (null? _%right-rest55307%_))) - (_%K5531255379%_ - (lambda (_%left-rest55332%_ _%left55334%_) - (let* ((_%right-rest5533555343%_ _%right-rest55307%_) - (_%else5533755355%_ (lambda () '#f)) - (_%K5533955363%_ - (lambda (_%right-rest55359%_ _%right55361%_) + (lambda (_%left55361%_ _%right55363%_) + (let _%loop55365%_ ((_%left-rest55368%_ _%left55361%_) + (_%right-rest55370%_ _%right55363%_)) + (let* ((_%left-rest5537155379%_ _%left-rest55368%_) + (_%else5537355391%_ (lambda () (null? _%right-rest55370%_))) + (_%K5537555442%_ + (lambda (_%left-rest55395%_ _%left55397%_) + (let* ((_%right-rest5539855406%_ _%right-rest55370%_) + (_%else5540055418%_ (lambda () '#f)) + (_%K5540255426%_ + (lambda (_%right-rest55422%_ _%right55424%_) (if (|gerbil/core/contract~Interface[1]#compatible-type-contract?| - _%left55334%_ - _%right55361%_) - (_%loop55302%_ - _%left-rest55332%_ - _%right-rest55359%_) + _%left55397%_ + _%right55424%_) + (_%loop55365%_ + _%left-rest55395%_ + _%right-rest55422%_) '#f)))) - (if (pair? _%right-rest5533555343%_) - (let ((_%hd5534055367%_ + (if (pair? _%right-rest5539855406%_) + (let ((_%hd5540355430%_ (let () (declare (not safe)) - (##car _%right-rest5533555343%_))) - (_%tl5534155370%_ + (##car _%right-rest5539855406%_))) + (_%tl5540455433%_ (let () (declare (not safe)) - (##cdr _%right-rest5533555343%_)))) - (let* ((_%right55373%_ _%hd5534055367%_) - (_%right-rest55376%_ _%tl5534155370%_)) - (_%K5533955363%_ - _%right-rest55376%_ - _%right55373%_))) - (_%else5533755355%_)))))) - (if (pair? _%left-rest5530855316%_) - (let ((_%hd5531355383%_ + (##cdr _%right-rest5539855406%_)))) + (let* ((_%right55436%_ _%hd5540355430%_) + (_%right-rest55439%_ _%tl5540455433%_)) + (_%K5540255426%_ + _%right-rest55439%_ + _%right55436%_))) + (_%else5540055418%_)))))) + (if (pair? _%left-rest5537155379%_) + (let ((_%hd5537655446%_ (let () (declare (not safe)) - (##car _%left-rest5530855316%_))) - (_%tl5531455386%_ + (##car _%left-rest5537155379%_))) + (_%tl5537755449%_ (let () (declare (not safe)) - (##cdr _%left-rest5530855316%_)))) - (let* ((_%left55389%_ _%hd5531355383%_) - (_%left-rest55392%_ _%tl5531455386%_)) - (_%K5531255379%_ _%left-rest55392%_ _%left55389%_))) - (_%else5531055328%_)))))) + (##cdr _%left-rest5537155379%_)))) + (let* ((_%left55452%_ _%hd5537655446%_) + (_%left-rest55455%_ _%tl5537755449%_)) + (_%K5537555442%_ _%left-rest55455%_ _%left55452%_))) + (_%else5537355391%_)))))) (define |gerbil/core/contract~Interface[1]#compatible-type-contract?| - (lambda (_%left53427%_ _%right53429%_) - (andmap (lambda (_%a53431%_ _%b53433%_) - (let* ((_%__stx8143081431%_ _%a53431%_) - (_%g5344153519%_ + (lambda (_%left53490%_ _%right53492%_) + (andmap (lambda (_%a53494%_ _%b53496%_) + (let* ((_%__stx8230582306%_ _%a53494%_) + (_%g5350453582%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8143081431%_)))) - (let ((_%__kont8143381434%_ - (lambda (_%L55032%_ _%L55034%_) - (let* ((_%__stx8134881349%_ _%b53433%_) - (_%g5505355097%_ + _%__stx8230582306%_)))) + (let ((_%__kont8230882309%_ + (lambda (_%L55095%_ _%L55097%_) + (let* ((_%__stx8222382224%_ _%b53496%_) + (_%g5511655160%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8134881349%_)))) - (let ((_%__kont8135181352%_ - (lambda (_%L55267%_ _%L55269%_) + _%__stx8222382224%_)))) + (let ((_%__kont8222682227%_ + (lambda (_%L55330%_ _%L55332%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L55032%_ - _%L55267%_))) - (_%__kont8135381354%_ - (lambda (_%L55211%_ - _%L55213%_ - _%L55214%_) + _%L55095%_ + _%L55330%_))) + (_%__kont8222882229%_ + (lambda (_%L55274%_ + _%L55276%_ + _%L55277%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L55032%_ - _%L55211%_))) - (_%__kont8135581356%_ - (lambda (_%L55144%_ _%L55146%_) '#t))) - (let* ((_%__match8139781398%_ - (lambda (_%e5506655171%_ - _%hd5506755175%_ - _%tl5506855178%_ - _%e5506955181%_ - _%hd5507055185%_ - _%tl5507155188%_ - _%e5507255191%_ - _%hd5507355195%_ - _%tl5507455198%_ - _%e5507555201%_ - _%hd5507655205%_ - _%tl5507755208%_) - (let ((_%L55211%_ _%hd5507655205%_) - (_%L55213%_ _%hd5507355195%_) - (_%L55214%_ _%hd5507055185%_)) + _%L55095%_ + _%L55274%_))) + (_%__kont8223082231%_ + (lambda (_%L55207%_ _%L55209%_) '#t))) + (let* ((_%__match8227282273%_ + (lambda (_%e5512955234%_ + _%hd5513055238%_ + _%tl5513155241%_ + _%e5513255244%_ + _%hd5513355248%_ + _%tl5513455251%_ + _%e5513555254%_ + _%hd5513655258%_ + _%tl5513755261%_ + _%e5513855264%_ + _%hd5513955268%_ + _%tl5514055271%_) + (let ((_%L55274%_ _%hd5513955268%_) + (_%L55276%_ _%hd5513655258%_) + (_%L55277%_ _%hd5513355248%_)) (if (or (gx#free-identifier=? - _%L55213%_ + _%L55276%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L55213%_ + _%L55276%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L55213%_ + _%L55276%_ (gx#datum->syntax '#f ':-))) - (_%__kont8135381354%_ - _%L55211%_ - _%L55213%_ - _%L55214%_) + (_%__kont8222882229%_ + _%L55274%_ + _%L55276%_ + _%L55277%_) (if (gx#stx-null? - _%tl5507755208%_) - (_%__kont8135581356%_ - _%hd5507355195%_ - _%hd5507055185%_) + _%tl5514055271%_) + (_%__kont8223082231%_ + _%hd5513655258%_ + _%hd5513355248%_) (let () (declare (not safe)) - (_%g5505355097%_))))))) - (_%__match8136981370%_ - (lambda (_%e5505755247%_ - _%hd5505855251%_ - _%tl5505955254%_ - _%e5506055257%_ - _%hd5506155261%_ - _%tl5506255264%_) - (let ((_%L55267%_ _%hd5506155261%_) - (_%L55269%_ _%hd5505855251%_)) + (_%g5511655160%_))))))) + (_%__match8224482245%_ + (lambda (_%e5512055310%_ + _%hd5512155314%_ + _%tl5512255317%_ + _%e5512355320%_ + _%hd5512455324%_ + _%tl5512555327%_) + (let ((_%L55330%_ _%hd5512455324%_) + (_%L55332%_ _%hd5512155314%_)) (if (or (gx#free-identifier=? - _%L55269%_ + _%L55332%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L55269%_ + _%L55332%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L55269%_ + _%L55332%_ (gx#datum->syntax '#f ':-))) - (_%__kont8135181352%_ - _%L55267%_ - _%L55269%_) + (_%__kont8222682227%_ + _%L55330%_ + _%L55332%_) (if (gx#identifier? - _%hd5505855251%_) + _%hd5512155314%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84069_| - _%hd5505855251%_) + |gerbil/core/contract~Interface[1]#_g85054_| + _%hd5512155314%_) (if (gx#stx-pair? - _%tl5506255264%_) - (let ((_%e5507255191%_ + _%tl5512555327%_) + (let ((_%e5513555254%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5506255264%_))) - (let ((_%tl5507455198%_ + (gx#syntax-e _%tl5512555327%_))) + (let ((_%tl5513755261%_ (let () (declare (not safe)) - (##cdr _%e5507255191%_))) - (_%hd5507355195%_ + (##cdr _%e5513555254%_))) + (_%hd5513655258%_ (let () (declare (not safe)) - (##car _%e5507255191%_)))) - (if (gx#stx-pair? _%tl5507455198%_) - (let ((_%e5507555201%_ - (gx#syntax-e _%tl5507455198%_))) - (let ((_%tl5507755208%_ + (##car _%e5513555254%_)))) + (if (gx#stx-pair? _%tl5513755261%_) + (let ((_%e5513855264%_ + (gx#syntax-e _%tl5513755261%_))) + (let ((_%tl5514055271%_ (let () (declare (not safe)) - (##cdr _%e5507555201%_))) - (_%hd5507655205%_ + (##cdr _%e5513855264%_))) + (_%hd5513955268%_ (let () (declare (not safe)) - (##car _%e5507555201%_)))) - (_%__match8139781398%_ - _%e5505755247%_ - _%hd5505855251%_ - _%tl5505955254%_ - _%e5506055257%_ - _%hd5506155261%_ - _%tl5506255264%_ - _%e5507255191%_ - _%hd5507355195%_ - _%tl5507455198%_ - _%e5507555201%_ - _%hd5507655205%_ - _%tl5507755208%_))) - (let () (declare (not safe)) (_%g5505355097%_))))) - (let () (declare (not safe)) (_%g5505355097%_))) - (let () (declare (not safe)) (_%g5505355097%_))) + (##car _%e5513855264%_)))) + (_%__match8227282273%_ + _%e5512055310%_ + _%hd5512155314%_ + _%tl5512255317%_ + _%e5512355320%_ + _%hd5512455324%_ + _%tl5512555327%_ + _%e5513555254%_ + _%hd5513655258%_ + _%tl5513755261%_ + _%e5513855264%_ + _%hd5513955268%_ + _%tl5514055271%_))) + (let () (declare (not safe)) (_%g5511655160%_))))) + (let () (declare (not safe)) (_%g5511655160%_))) + (let () (declare (not safe)) (_%g5511655160%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5505355097%_)))))))) - (if (gx#stx-pair? _%__stx8134881349%_) - (let ((_%e5505755247%_ + (_%g5511655160%_)))))))) + (if (gx#stx-pair? _%__stx8222382224%_) + (let ((_%e5512055310%_ (gx#syntax-e - _%__stx8134881349%_))) - (let ((_%tl5505955254%_ + _%__stx8222382224%_))) + (let ((_%tl5512255317%_ (let () (declare (not safe)) - (##cdr _%e5505755247%_))) - (_%hd5505855251%_ + (##cdr _%e5512055310%_))) + (_%hd5512155314%_ (let () (declare (not safe)) - (##car _%e5505755247%_)))) - (if (gx#stx-pair? _%tl5505955254%_) - (let ((_%e5506055257%_ + (##car _%e5512055310%_)))) + (if (gx#stx-pair? _%tl5512255317%_) + (let ((_%e5512355320%_ (gx#syntax-e - _%tl5505955254%_))) - (let ((_%tl5506255264%_ + _%tl5512255317%_))) + (let ((_%tl5512555327%_ (let () (declare (not safe)) - (##cdr _%e5506055257%_))) - (_%hd5506155261%_ + (##cdr _%e5512355320%_))) + (_%hd5512455324%_ (let () (declare (not safe)) - (##car _%e5506055257%_)))) - (_%__match8136981370%_ - _%e5505755247%_ - _%hd5505855251%_ - _%tl5505955254%_ - _%e5506055257%_ - _%hd5506155261%_ - _%tl5506255264%_))) + (##car _%e5512355320%_)))) + (_%__match8224482245%_ + _%e5512055310%_ + _%hd5512155314%_ + _%tl5512255317%_ + _%e5512355320%_ + _%hd5512455324%_ + _%tl5512555327%_))) (let () (declare (not safe)) - (_%g5505355097%_))))) + (_%g5511655160%_))))) (let () (declare (not safe)) - (_%g5505355097%_)))))))) - (_%__kont8143581436%_ - (lambda (_%L54839%_) - (let* ((_%__stx8128881289%_ _%b53433%_) - (_%g5485454882%_ + (_%g5511655160%_)))))))) + (_%__kont8231082311%_ + (lambda (_%L54902%_) + (let* ((_%__stx8216382164%_ _%b53496%_) + (_%g5491754945%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8128881289%_)))) - (let ((_%__kont8129181292%_ - (lambda (_%L54988%_) + _%__stx8216382164%_)))) + (let ((_%__kont8216682167%_ + (lambda (_%L55051%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54839%_ - _%L54988%_))) - (_%__kont8129381294%_ - (lambda (_%L54940%_ _%L54942%_) + _%L54902%_ + _%L55051%_))) + (_%__kont8216882169%_ + (lambda (_%L55003%_ _%L55005%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54839%_ - _%L54940%_))) - (_%__kont8129581296%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8128881289%_) - (let ((_%e5485754968%_ - (gx#syntax-e _%__stx8128881289%_))) - (let ((_%tl5485954975%_ + _%L54902%_ + _%L55003%_))) + (_%__kont8217082171%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8216382164%_) + (let ((_%e5492055031%_ + (gx#syntax-e _%__stx8216382164%_))) + (let ((_%tl5492255038%_ (let () (declare (not safe)) - (##cdr _%e5485754968%_))) - (_%hd5485854972%_ + (##cdr _%e5492055031%_))) + (_%hd5492155035%_ (let () (declare (not safe)) - (##car _%e5485754968%_)))) - (if (gx#identifier? _%hd5485854972%_) + (##car _%e5492055031%_)))) + (if (gx#identifier? _%hd5492155035%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84070_| - _%hd5485854972%_) + |gerbil/core/contract~Interface[1]#_g85055_| + _%hd5492155035%_) (if (gx#stx-pair? - _%tl5485954975%_) - (let ((_%e5486054978%_ + _%tl5492255038%_) + (let ((_%e5492355041%_ (gx#syntax-e - _%tl5485954975%_))) - (let ((_%tl5486254985%_ + _%tl5492255038%_))) + (let ((_%tl5492555048%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5486054978%_))) - (_%hd5486154982%_ - (let () (declare (not safe)) (##car _%e5486054978%_)))) - (_%__kont8129181292%_ _%hd5486154982%_))) + (##cdr _%e5492355041%_))) + (_%hd5492455045%_ + (let () (declare (not safe)) (##car _%e5492355041%_)))) + (_%__kont8216682167%_ _%hd5492455045%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8129581296%_)) + (_%__kont8217082171%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84071_| - _%hd5485854972%_) + |gerbil/core/contract~Interface[1]#_g85056_| + _%hd5492155035%_) (if (gx#stx-pair? - _%tl5485954975%_) - (let ((_%e5486854910%_ + _%tl5492255038%_) + (let ((_%e5493154973%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5485954975%_))) - (let ((_%tl5487054917%_ + _%tl5492255038%_))) + (let ((_%tl5493354980%_ (let () (declare (not safe)) - (##cdr _%e5486854910%_))) - (_%hd5486954914%_ + (##cdr _%e5493154973%_))) + (_%hd5493254977%_ (let () (declare (not safe)) - (##car _%e5486854910%_)))) - (if (gx#stx-pair? _%tl5487054917%_) - (let ((_%e5487154920%_ - (gx#syntax-e _%tl5487054917%_))) - (let ((_%tl5487354927%_ + (##car _%e5493154973%_)))) + (if (gx#stx-pair? _%tl5493354980%_) + (let ((_%e5493454983%_ + (gx#syntax-e _%tl5493354980%_))) + (let ((_%tl5493654990%_ (let () (declare (not safe)) - (##cdr _%e5487154920%_))) - (_%hd5487254924%_ + (##cdr _%e5493454983%_))) + (_%hd5493554987%_ (let () (declare (not safe)) - (##car _%e5487154920%_)))) - (if (gx#identifier? _%hd5487254924%_) + (##car _%e5493454983%_)))) + (if (gx#identifier? _%hd5493554987%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84072_| - _%hd5487254924%_) - (if (gx#stx-pair? _%tl5487354927%_) - (let ((_%e5487454930%_ + |gerbil/core/contract~Interface[1]#_g85057_| + _%hd5493554987%_) + (if (gx#stx-pair? _%tl5493654990%_) + (let ((_%e5493754993%_ (gx#syntax-e - _%tl5487354927%_))) - (let ((_%tl5487654937%_ + _%tl5493654990%_))) + (let ((_%tl5493955000%_ (let () (declare (not safe)) - (##cdr _%e5487454930%_))) - (_%hd5487554934%_ + (##cdr _%e5493754993%_))) + (_%hd5493854997%_ (let () (declare (not safe)) - (##car _%e5487454930%_)))) - (_%__kont8129381294%_ - _%hd5487554934%_ - _%hd5486954914%_))) - (_%__kont8129581296%_)) - (_%__kont8129581296%_)) - (_%__kont8129581296%_)))) - (_%__kont8129581296%_)))) - (_%__kont8129581296%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8129581296%_))) - (_%__kont8129581296%_)))) - (_%__kont8129581296%_)))))) - (_%__kont8143781438%_ - (lambda (_%L54556%_) - (let* ((_%__stx8120281203%_ _%b53433%_) - (_%g5457154615%_ + (##car _%e5493754993%_)))) + (_%__kont8216882169%_ + _%hd5493854997%_ + _%hd5493254977%_))) + (_%__kont8217082171%_)) + (_%__kont8217082171%_)) + (_%__kont8217082171%_)))) + (_%__kont8217082171%_)))) + (_%__kont8217082171%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8217082171%_))) + (_%__kont8217082171%_)))) + (_%__kont8217082171%_)))))) + (_%__kont8231282313%_ + (lambda (_%L54619%_) + (let* ((_%__stx8207782078%_ _%b53496%_) + (_%g5463454678%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8120281203%_)))) - (let ((_%__kont8120581206%_ - (lambda (_%L54785%_ _%L54787%_) + _%__stx8207782078%_)))) + (let ((_%__kont8208082081%_ + (lambda (_%L54848%_ _%L54850%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54556%_ - _%L54785%_))) - (_%__kont8120781208%_ - (lambda (_%L54727%_ - _%L54729%_ - _%L54730%_ - _%L54731%_) + _%L54619%_ + _%L54848%_))) + (_%__kont8208282083%_ + (lambda (_%L54790%_ + _%L54792%_ + _%L54793%_ + _%L54794%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54556%_ - _%L54729%_))) - (_%__kont8120981210%_ - (lambda (_%L54662%_) '#t))) - (let* ((_%__match8125181252%_ - (lambda (_%e5458554687%_ - _%hd5458654691%_ - _%tl5458754694%_ - _%e5458854697%_ - _%hd5458954701%_ - _%tl5459054704%_ - _%e5459154707%_ - _%hd5459254711%_ - _%tl5459354714%_ - _%e5459454717%_ - _%hd5459554721%_ - _%tl5459654724%_) - (let ((_%L54727%_ _%tl5459654724%_) - (_%L54729%_ _%hd5459554721%_) - (_%L54730%_ _%hd5459254711%_) - (_%L54731%_ _%hd5458954701%_)) + _%L54619%_ + _%L54792%_))) + (_%__kont8208482085%_ + (lambda (_%L54725%_) '#t))) + (let* ((_%__match8212682127%_ + (lambda (_%e5464854750%_ + _%hd5464954754%_ + _%tl5465054757%_ + _%e5465154760%_ + _%hd5465254764%_ + _%tl5465354767%_ + _%e5465454770%_ + _%hd5465554774%_ + _%tl5465654777%_ + _%e5465754780%_ + _%hd5465854784%_ + _%tl5465954787%_) + (let ((_%L54790%_ _%tl5465954787%_) + (_%L54792%_ _%hd5465854784%_) + (_%L54793%_ _%hd5465554774%_) + (_%L54794%_ _%hd5465254764%_)) (if (or (gx#free-identifier=? - _%L54730%_ + _%L54793%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54730%_ + _%L54793%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54730%_ + _%L54793%_ (gx#datum->syntax '#f ':-))) - (_%__kont8120781208%_ - _%L54727%_ - _%L54729%_ - _%L54730%_ - _%L54731%_) + (_%__kont8208282083%_ + _%L54790%_ + _%L54792%_ + _%L54793%_ + _%L54794%_) (if (gx#identifier? - _%hd5459254711%_) + _%hd5465554774%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84073_| - _%hd5459254711%_) + |gerbil/core/contract~Interface[1]#_g85058_| + _%hd5465554774%_) (if (gx#stx-null? - _%tl5459654724%_) - (_%__kont8120981210%_ - _%hd5458954701%_) + _%tl5465954787%_) + (_%__kont8208482085%_ + _%hd5465254764%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_%g5457154615%_))) - (let () (declare (not safe)) (_%g5457154615%_))) + (_%g5463454678%_))) + (let () (declare (not safe)) (_%g5463454678%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5457154615%_))))))) - (_%__match8122381224%_ - (lambda (_%e5457554765%_ - _%hd5457654769%_ - _%tl5457754772%_ - _%e5457854775%_ - _%hd5457954779%_ - _%tl5458054782%_) - (let ((_%L54785%_ _%hd5457954779%_) - (_%L54787%_ _%hd5457654769%_)) + (_%g5463454678%_))))))) + (_%__match8209882099%_ + (lambda (_%e5463854828%_ + _%hd5463954832%_ + _%tl5464054835%_ + _%e5464154838%_ + _%hd5464254842%_ + _%tl5464354845%_) + (let ((_%L54848%_ _%hd5464254842%_) + (_%L54850%_ _%hd5463954832%_)) (if (or (gx#free-identifier=? - _%L54787%_ + _%L54850%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54787%_ + _%L54850%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54787%_ + _%L54850%_ (gx#datum->syntax '#f ':-))) - (_%__kont8120581206%_ - _%L54785%_ - _%L54787%_) + (_%__kont8208082081%_ + _%L54848%_ + _%L54850%_) (if (gx#identifier? - _%hd5457654769%_) + _%hd5463954832%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84074_| - _%hd5457654769%_) + |gerbil/core/contract~Interface[1]#_g85059_| + _%hd5463954832%_) (if (gx#stx-pair? - _%tl5458054782%_) - (let ((_%e5459154707%_ + _%tl5464354845%_) + (let ((_%e5465454770%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5458054782%_))) - (let ((_%tl5459354714%_ + (gx#syntax-e _%tl5464354845%_))) + (let ((_%tl5465654777%_ (let () (declare (not safe)) - (##cdr _%e5459154707%_))) - (_%hd5459254711%_ + (##cdr _%e5465454770%_))) + (_%hd5465554774%_ (let () (declare (not safe)) - (##car _%e5459154707%_)))) - (if (gx#stx-pair? _%tl5459354714%_) - (let ((_%e5459454717%_ - (gx#syntax-e _%tl5459354714%_))) - (let ((_%tl5459654724%_ + (##car _%e5465454770%_)))) + (if (gx#stx-pair? _%tl5465654777%_) + (let ((_%e5465754780%_ + (gx#syntax-e _%tl5465654777%_))) + (let ((_%tl5465954787%_ (let () (declare (not safe)) - (##cdr _%e5459454717%_))) - (_%hd5459554721%_ + (##cdr _%e5465754780%_))) + (_%hd5465854784%_ (let () (declare (not safe)) - (##car _%e5459454717%_)))) - (_%__match8125181252%_ - _%e5457554765%_ - _%hd5457654769%_ - _%tl5457754772%_ - _%e5457854775%_ - _%hd5457954779%_ - _%tl5458054782%_ - _%e5459154707%_ - _%hd5459254711%_ - _%tl5459354714%_ - _%e5459454717%_ - _%hd5459554721%_ - _%tl5459654724%_))) - (let () (declare (not safe)) (_%g5457154615%_))))) - (let () (declare (not safe)) (_%g5457154615%_))) - (let () (declare (not safe)) (_%g5457154615%_))) + (##car _%e5465754780%_)))) + (_%__match8212682127%_ + _%e5463854828%_ + _%hd5463954832%_ + _%tl5464054835%_ + _%e5464154838%_ + _%hd5464254842%_ + _%tl5464354845%_ + _%e5465454770%_ + _%hd5465554774%_ + _%tl5465654777%_ + _%e5465754780%_ + _%hd5465854784%_ + _%tl5465954787%_))) + (let () (declare (not safe)) (_%g5463454678%_))))) + (let () (declare (not safe)) (_%g5463454678%_))) + (let () (declare (not safe)) (_%g5463454678%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5457154615%_)))))))) - (if (gx#stx-pair? _%__stx8120281203%_) - (let ((_%e5457554765%_ + (_%g5463454678%_)))))))) + (if (gx#stx-pair? _%__stx8207782078%_) + (let ((_%e5463854828%_ (gx#syntax-e - _%__stx8120281203%_))) - (let ((_%tl5457754772%_ + _%__stx8207782078%_))) + (let ((_%tl5464054835%_ (let () (declare (not safe)) - (##cdr _%e5457554765%_))) - (_%hd5457654769%_ + (##cdr _%e5463854828%_))) + (_%hd5463954832%_ (let () (declare (not safe)) - (##car _%e5457554765%_)))) - (if (gx#stx-pair? _%tl5457754772%_) - (let ((_%e5457854775%_ + (##car _%e5463854828%_)))) + (if (gx#stx-pair? _%tl5464054835%_) + (let ((_%e5464154838%_ (gx#syntax-e - _%tl5457754772%_))) - (let ((_%tl5458054782%_ + _%tl5464054835%_))) + (let ((_%tl5464354845%_ (let () (declare (not safe)) - (##cdr _%e5457854775%_))) - (_%hd5457954779%_ + (##cdr _%e5464154838%_))) + (_%hd5464254842%_ (let () (declare (not safe)) - (##car _%e5457854775%_)))) - (_%__match8122381224%_ - _%e5457554765%_ - _%hd5457654769%_ - _%tl5457754772%_ - _%e5457854775%_ - _%hd5457954779%_ - _%tl5458054782%_))) + (##car _%e5464154838%_)))) + (_%__match8209882099%_ + _%e5463854828%_ + _%hd5463954832%_ + _%tl5464054835%_ + _%e5464154838%_ + _%hd5464254842%_ + _%tl5464354845%_))) (let () (declare (not safe)) - (_%g5457154615%_))))) + (_%g5463454678%_))))) (let () (declare (not safe)) - (_%g5457154615%_)))))))) - (_%__kont8143981440%_ - (lambda (_%L54275%_ _%L54277%_) - (let* ((_%__stx8112081121%_ _%b53433%_) - (_%g5429654340%_ + (_%g5463454678%_)))))))) + (_%__kont8231482315%_ + (lambda (_%L54338%_ _%L54340%_) + (let* ((_%__stx8199581996%_ _%b53496%_) + (_%g5435954403%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8112081121%_)))) - (let ((_%__kont8112381124%_ - (lambda (_%L54502%_ _%L54504%_) + _%__stx8199581996%_)))) + (let ((_%__kont8199881999%_ + (lambda (_%L54565%_ _%L54567%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54275%_ - _%L54502%_))) - (_%__kont8112581126%_ - (lambda (_%L54454%_ - _%L54456%_ - _%L54457%_) + _%L54338%_ + _%L54565%_))) + (_%__kont8200082001%_ + (lambda (_%L54517%_ + _%L54519%_ + _%L54520%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54275%_ - _%L54454%_))) - (_%__kont8112781128%_ - (lambda (_%L54387%_ _%L54389%_) '#t))) - (let ((_%__match8114181142%_ - (lambda (_%e5430054482%_ - _%hd5430154486%_ - _%tl5430254489%_ - _%e5430354492%_ - _%hd5430454496%_ - _%tl5430554499%_) - (let ((_%L54502%_ _%hd5430454496%_) - (_%L54504%_ _%hd5430154486%_)) + _%L54338%_ + _%L54517%_))) + (_%__kont8200282003%_ + (lambda (_%L54450%_ _%L54452%_) '#t))) + (let ((_%__match8201682017%_ + (lambda (_%e5436354545%_ + _%hd5436454549%_ + _%tl5436554552%_ + _%e5436654555%_ + _%hd5436754559%_ + _%tl5436854562%_) + (let ((_%L54565%_ _%hd5436754559%_) + (_%L54567%_ _%hd5436454549%_)) (if (or (gx#free-identifier=? - _%L54504%_ + _%L54567%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54504%_ + _%L54567%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54504%_ + _%L54567%_ (gx#datum->syntax '#f ':-))) - (_%__kont8112381124%_ - _%L54502%_ - _%L54504%_) + (_%__kont8199881999%_ + _%L54565%_ + _%L54567%_) (if (gx#identifier? - _%hd5430154486%_) + _%hd5436454549%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84075_| - _%hd5430154486%_) + |gerbil/core/contract~Interface[1]#_g85060_| + _%hd5436454549%_) (if (gx#stx-pair? - _%tl5430554499%_) - (let ((_%e5431554434%_ + _%tl5436854562%_) + (let ((_%e5437854497%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5430554499%_))) - (let ((_%tl5431754441%_ + (gx#syntax-e _%tl5436854562%_))) + (let ((_%tl5438054504%_ (let () (declare (not safe)) - (##cdr _%e5431554434%_))) - (_%hd5431654438%_ + (##cdr _%e5437854497%_))) + (_%hd5437954501%_ (let () (declare (not safe)) - (##car _%e5431554434%_)))) - (if (gx#stx-pair? _%tl5431754441%_) - (let ((_%e5431854444%_ - (gx#syntax-e _%tl5431754441%_))) - (let ((_%tl5432054451%_ + (##car _%e5437854497%_)))) + (if (gx#stx-pair? _%tl5438054504%_) + (let ((_%e5438154507%_ + (gx#syntax-e _%tl5438054504%_))) + (let ((_%tl5438354514%_ (let () (declare (not safe)) - (##cdr _%e5431854444%_))) - (_%hd5431954448%_ + (##cdr _%e5438154507%_))) + (_%hd5438254511%_ (let () (declare (not safe)) - (##car _%e5431854444%_)))) - (_%__kont8112581126%_ - _%hd5431954448%_ - _%hd5431654438%_ - _%hd5430454496%_))) - (let () (declare (not safe)) (_%g5429654340%_))))) - (let () (declare (not safe)) (_%g5429654340%_))) - (let () (declare (not safe)) (_%g5429654340%_))) + (##car _%e5438154507%_)))) + (_%__kont8200082001%_ + _%hd5438254511%_ + _%hd5437954501%_ + _%hd5436754559%_))) + (let () (declare (not safe)) (_%g5435954403%_))))) + (let () (declare (not safe)) (_%g5435954403%_))) + (let () (declare (not safe)) (_%g5435954403%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5429654340%_)))))))) - (if (gx#stx-pair? _%__stx8112081121%_) - (let ((_%e5430054482%_ + (_%g5435954403%_)))))))) + (if (gx#stx-pair? _%__stx8199581996%_) + (let ((_%e5436354545%_ (gx#syntax-e - _%__stx8112081121%_))) - (let ((_%tl5430254489%_ + _%__stx8199581996%_))) + (let ((_%tl5436554552%_ (let () (declare (not safe)) - (##cdr _%e5430054482%_))) - (_%hd5430154486%_ + (##cdr _%e5436354545%_))) + (_%hd5436454549%_ (let () (declare (not safe)) - (##car _%e5430054482%_)))) - (if (gx#stx-pair? _%tl5430254489%_) - (let ((_%e5430354492%_ + (##car _%e5436354545%_)))) + (if (gx#stx-pair? _%tl5436554552%_) + (let ((_%e5436654555%_ (gx#syntax-e - _%tl5430254489%_))) - (let ((_%tl5430554499%_ + _%tl5436554552%_))) + (let ((_%tl5436854562%_ (let () (declare (not safe)) - (##cdr _%e5430354492%_))) - (_%hd5430454496%_ + (##cdr _%e5436654555%_))) + (_%hd5436754559%_ (let () (declare (not safe)) - (##car _%e5430354492%_)))) - (_%__match8114181142%_ - _%e5430054482%_ - _%hd5430154486%_ - _%tl5430254489%_ - _%e5430354492%_ - _%hd5430454496%_ - _%tl5430554499%_))) + (##car _%e5436654555%_)))) + (_%__match8201682017%_ + _%e5436354545%_ + _%hd5436454549%_ + _%tl5436554552%_ + _%e5436654555%_ + _%hd5436754559%_ + _%tl5436854562%_))) (let () (declare (not safe)) - (_%g5429654340%_))))) + (_%g5435954403%_))))) (let () (declare (not safe)) - (_%g5429654340%_)))))))) - (_%__kont8144181442%_ - (lambda (_%L54056%_ _%L54058%_) - (let* ((_%__stx8106081061%_ _%b53433%_) - (_%g5407754105%_ + (_%g5435954403%_)))))))) + (_%__kont8231682317%_ + (lambda (_%L54119%_ _%L54121%_) + (let* ((_%__stx8193581936%_ _%b53496%_) + (_%g5414054168%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8106081061%_)))) - (let ((_%__kont8106381064%_ - (lambda (_%L54211%_) + _%__stx8193581936%_)))) + (let ((_%__kont8193881939%_ + (lambda (_%L54274%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54056%_ - _%L54211%_))) - (_%__kont8106581066%_ - (lambda (_%L54163%_ _%L54165%_) + _%L54119%_ + _%L54274%_))) + (_%__kont8194081941%_ + (lambda (_%L54226%_ _%L54228%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54056%_ - _%L54163%_))) - (_%__kont8106781068%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8106081061%_) - (let ((_%e5408054191%_ - (gx#syntax-e _%__stx8106081061%_))) - (let ((_%tl5408254198%_ + _%L54119%_ + _%L54226%_))) + (_%__kont8194281943%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8193581936%_) + (let ((_%e5414354254%_ + (gx#syntax-e _%__stx8193581936%_))) + (let ((_%tl5414554261%_ (let () (declare (not safe)) - (##cdr _%e5408054191%_))) - (_%hd5408154195%_ + (##cdr _%e5414354254%_))) + (_%hd5414454258%_ (let () (declare (not safe)) - (##car _%e5408054191%_)))) - (if (gx#identifier? _%hd5408154195%_) + (##car _%e5414354254%_)))) + (if (gx#identifier? _%hd5414454258%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84076_| - _%hd5408154195%_) + |gerbil/core/contract~Interface[1]#_g85061_| + _%hd5414454258%_) (if (gx#stx-pair? - _%tl5408254198%_) - (let ((_%e5408354201%_ + _%tl5414554261%_) + (let ((_%e5414654264%_ (gx#syntax-e - _%tl5408254198%_))) - (let ((_%tl5408554208%_ + _%tl5414554261%_))) + (let ((_%tl5414854271%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5408354201%_))) - (_%hd5408454205%_ - (let () (declare (not safe)) (##car _%e5408354201%_)))) - (_%__kont8106381064%_ _%hd5408454205%_))) + (##cdr _%e5414654264%_))) + (_%hd5414754268%_ + (let () (declare (not safe)) (##car _%e5414654264%_)))) + (_%__kont8193881939%_ _%hd5414754268%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8106781068%_)) + (_%__kont8194281943%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84077_| - _%hd5408154195%_) + |gerbil/core/contract~Interface[1]#_g85062_| + _%hd5414454258%_) (if (gx#stx-pair? - _%tl5408254198%_) - (let ((_%e5409154133%_ + _%tl5414554261%_) + (let ((_%e5415454196%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5408254198%_))) - (let ((_%tl5409354140%_ + _%tl5414554261%_))) + (let ((_%tl5415654203%_ (let () (declare (not safe)) - (##cdr _%e5409154133%_))) - (_%hd5409254137%_ + (##cdr _%e5415454196%_))) + (_%hd5415554200%_ (let () (declare (not safe)) - (##car _%e5409154133%_)))) - (if (gx#stx-pair? _%tl5409354140%_) - (let ((_%e5409454143%_ - (gx#syntax-e _%tl5409354140%_))) - (let ((_%tl5409654150%_ + (##car _%e5415454196%_)))) + (if (gx#stx-pair? _%tl5415654203%_) + (let ((_%e5415754206%_ + (gx#syntax-e _%tl5415654203%_))) + (let ((_%tl5415954213%_ (let () (declare (not safe)) - (##cdr _%e5409454143%_))) - (_%hd5409554147%_ + (##cdr _%e5415754206%_))) + (_%hd5415854210%_ (let () (declare (not safe)) - (##car _%e5409454143%_)))) - (if (gx#identifier? _%hd5409554147%_) + (##car _%e5415754206%_)))) + (if (gx#identifier? _%hd5415854210%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84078_| - _%hd5409554147%_) - (if (gx#stx-pair? _%tl5409654150%_) - (let ((_%e5409754153%_ + |gerbil/core/contract~Interface[1]#_g85063_| + _%hd5415854210%_) + (if (gx#stx-pair? _%tl5415954213%_) + (let ((_%e5416054216%_ (gx#syntax-e - _%tl5409654150%_))) - (let ((_%tl5409954160%_ + _%tl5415954213%_))) + (let ((_%tl5416254223%_ (let () (declare (not safe)) - (##cdr _%e5409754153%_))) - (_%hd5409854157%_ + (##cdr _%e5416054216%_))) + (_%hd5416154220%_ (let () (declare (not safe)) - (##car _%e5409754153%_)))) - (_%__kont8106581066%_ - _%hd5409854157%_ - _%hd5409254137%_))) - (_%__kont8106781068%_)) - (_%__kont8106781068%_)) - (_%__kont8106781068%_)))) - (_%__kont8106781068%_)))) - (_%__kont8106781068%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8106781068%_))) - (_%__kont8106781068%_)))) - (_%__kont8106781068%_)))))) - (_%__kont8144381444%_ - (lambda (_%L53747%_ _%L53749%_) - (let* ((_%__stx8097880979%_ _%b53433%_) - (_%g5376853812%_ + (##car _%e5416054216%_)))) + (_%__kont8194081941%_ + _%hd5416154220%_ + _%hd5415554200%_))) + (_%__kont8194281943%_)) + (_%__kont8194281943%_)) + (_%__kont8194281943%_)))) + (_%__kont8194281943%_)))) + (_%__kont8194281943%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8194281943%_))) + (_%__kont8194281943%_)))) + (_%__kont8194281943%_)))))) + (_%__kont8231882319%_ + (lambda (_%L53810%_ _%L53812%_) + (let* ((_%__stx8185381854%_ _%b53496%_) + (_%g5383153875%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8097880979%_)))) - (let ((_%__kont8098180982%_ - (lambda (_%L53982%_ _%L53984%_) + _%__stx8185381854%_)))) + (let ((_%__kont8185681857%_ + (lambda (_%L54045%_ _%L54047%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L53747%_ - _%L53982%_))) - (_%__kont8098380984%_ - (lambda (_%L53926%_ - _%L53928%_ - _%L53929%_) + _%L53810%_ + _%L54045%_))) + (_%__kont8185881859%_ + (lambda (_%L53989%_ + _%L53991%_ + _%L53992%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L53747%_ - _%L53926%_))) - (_%__kont8098580986%_ - (lambda (_%L53859%_ _%L53861%_) '#t))) - (let* ((_%__match8102781028%_ - (lambda (_%e5378153886%_ - _%hd5378253890%_ - _%tl5378353893%_ - _%e5378453896%_ - _%hd5378553900%_ - _%tl5378653903%_ - _%e5378753906%_ - _%hd5378853910%_ - _%tl5378953913%_ - _%e5379053916%_ - _%hd5379153920%_ - _%tl5379253923%_) - (let ((_%L53926%_ _%hd5379153920%_) - (_%L53928%_ _%hd5378853910%_) - (_%L53929%_ _%hd5378553900%_)) + _%L53810%_ + _%L53989%_))) + (_%__kont8186081861%_ + (lambda (_%L53922%_ _%L53924%_) '#t))) + (let* ((_%__match8190281903%_ + (lambda (_%e5384453949%_ + _%hd5384553953%_ + _%tl5384653956%_ + _%e5384753959%_ + _%hd5384853963%_ + _%tl5384953966%_ + _%e5385053969%_ + _%hd5385153973%_ + _%tl5385253976%_ + _%e5385353979%_ + _%hd5385453983%_ + _%tl5385553986%_) + (let ((_%L53989%_ _%hd5385453983%_) + (_%L53991%_ _%hd5385153973%_) + (_%L53992%_ _%hd5384853963%_)) (if (or (gx#free-identifier=? - _%L53928%_ + _%L53991%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L53928%_ + _%L53991%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L53928%_ + _%L53991%_ (gx#datum->syntax '#f ':-))) - (_%__kont8098380984%_ - _%L53926%_ - _%L53928%_ - _%L53929%_) + (_%__kont8185881859%_ + _%L53989%_ + _%L53991%_ + _%L53992%_) (if (gx#stx-null? - _%tl5379253923%_) - (_%__kont8098580986%_ - _%hd5378853910%_ - _%hd5378553900%_) + _%tl5385553986%_) + (_%__kont8186081861%_ + _%hd5385153973%_ + _%hd5384853963%_) (let () (declare (not safe)) - (_%g5376853812%_))))))) - (_%__match8099981000%_ - (lambda (_%e5377253962%_ - _%hd5377353966%_ - _%tl5377453969%_ - _%e5377553972%_ - _%hd5377653976%_ - _%tl5377753979%_) - (let ((_%L53982%_ _%hd5377653976%_) - (_%L53984%_ _%hd5377353966%_)) + (_%g5383153875%_))))))) + (_%__match8187481875%_ + (lambda (_%e5383554025%_ + _%hd5383654029%_ + _%tl5383754032%_ + _%e5383854035%_ + _%hd5383954039%_ + _%tl5384054042%_) + (let ((_%L54045%_ _%hd5383954039%_) + (_%L54047%_ _%hd5383654029%_)) (if (or (gx#free-identifier=? - _%L53984%_ + _%L54047%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L53984%_ + _%L54047%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L53984%_ + _%L54047%_ (gx#datum->syntax '#f ':-))) - (_%__kont8098180982%_ - _%L53982%_ - _%L53984%_) + (_%__kont8185681857%_ + _%L54045%_ + _%L54047%_) (if (gx#identifier? - _%hd5377353966%_) + _%hd5383654029%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84079_| - _%hd5377353966%_) + |gerbil/core/contract~Interface[1]#_g85064_| + _%hd5383654029%_) (if (gx#stx-pair? - _%tl5377753979%_) - (let ((_%e5378753906%_ + _%tl5384054042%_) + (let ((_%e5385053969%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5377753979%_))) - (let ((_%tl5378953913%_ + (gx#syntax-e _%tl5384054042%_))) + (let ((_%tl5385253976%_ (let () (declare (not safe)) - (##cdr _%e5378753906%_))) - (_%hd5378853910%_ + (##cdr _%e5385053969%_))) + (_%hd5385153973%_ (let () (declare (not safe)) - (##car _%e5378753906%_)))) - (if (gx#stx-pair? _%tl5378953913%_) - (let ((_%e5379053916%_ - (gx#syntax-e _%tl5378953913%_))) - (let ((_%tl5379253923%_ + (##car _%e5385053969%_)))) + (if (gx#stx-pair? _%tl5385253976%_) + (let ((_%e5385353979%_ + (gx#syntax-e _%tl5385253976%_))) + (let ((_%tl5385553986%_ (let () (declare (not safe)) - (##cdr _%e5379053916%_))) - (_%hd5379153920%_ + (##cdr _%e5385353979%_))) + (_%hd5385453983%_ (let () (declare (not safe)) - (##car _%e5379053916%_)))) - (_%__match8102781028%_ - _%e5377253962%_ - _%hd5377353966%_ - _%tl5377453969%_ - _%e5377553972%_ - _%hd5377653976%_ - _%tl5377753979%_ - _%e5378753906%_ - _%hd5378853910%_ - _%tl5378953913%_ - _%e5379053916%_ - _%hd5379153920%_ - _%tl5379253923%_))) - (let () (declare (not safe)) (_%g5376853812%_))))) - (let () (declare (not safe)) (_%g5376853812%_))) - (let () (declare (not safe)) (_%g5376853812%_))) + (##car _%e5385353979%_)))) + (_%__match8190281903%_ + _%e5383554025%_ + _%hd5383654029%_ + _%tl5383754032%_ + _%e5383854035%_ + _%hd5383954039%_ + _%tl5384054042%_ + _%e5385053969%_ + _%hd5385153973%_ + _%tl5385253976%_ + _%e5385353979%_ + _%hd5385453983%_ + _%tl5385553986%_))) + (let () (declare (not safe)) (_%g5383153875%_))))) + (let () (declare (not safe)) (_%g5383153875%_))) + (let () (declare (not safe)) (_%g5383153875%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5376853812%_)))))))) - (if (gx#stx-pair? _%__stx8097880979%_) - (let ((_%e5377253962%_ + (_%g5383153875%_)))))))) + (if (gx#stx-pair? _%__stx8185381854%_) + (let ((_%e5383554025%_ (gx#syntax-e - _%__stx8097880979%_))) - (let ((_%tl5377453969%_ + _%__stx8185381854%_))) + (let ((_%tl5383754032%_ (let () (declare (not safe)) - (##cdr _%e5377253962%_))) - (_%hd5377353966%_ + (##cdr _%e5383554025%_))) + (_%hd5383654029%_ (let () (declare (not safe)) - (##car _%e5377253962%_)))) - (if (gx#stx-pair? _%tl5377453969%_) - (let ((_%e5377553972%_ + (##car _%e5383554025%_)))) + (if (gx#stx-pair? _%tl5383754032%_) + (let ((_%e5383854035%_ (gx#syntax-e - _%tl5377453969%_))) - (let ((_%tl5377753979%_ + _%tl5383754032%_))) + (let ((_%tl5384054042%_ (let () (declare (not safe)) - (##cdr _%e5377553972%_))) - (_%hd5377653976%_ + (##cdr _%e5383854035%_))) + (_%hd5383954039%_ (let () (declare (not safe)) - (##car _%e5377553972%_)))) - (_%__match8099981000%_ - _%e5377253962%_ - _%hd5377353966%_ - _%tl5377453969%_ - _%e5377553972%_ - _%hd5377653976%_ - _%tl5377753979%_))) + (##car _%e5383854035%_)))) + (_%__match8187481875%_ + _%e5383554025%_ + _%hd5383654029%_ + _%tl5383754032%_ + _%e5383854035%_ + _%hd5383954039%_ + _%tl5384054042%_))) (let () (declare (not safe)) - (_%g5376853812%_))))) + (_%g5383153875%_))))) (let () (declare (not safe)) - (_%g5376853812%_)))))))) - (_%__kont8144581446%_ - (lambda (_%L53546%_) - (let* ((_%__stx8093880939%_ _%b53433%_) - (_%g5356353585%_ + (_%g5383153875%_)))))))) + (_%__kont8232082321%_ + (lambda (_%L53609%_) + (let* ((_%__stx8181381814%_ _%b53496%_) + (_%g5362653648%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8093880939%_)))) - (let ((_%__kont8094180942%_ - (lambda (_%L53677%_) '#f)) - (_%__kont8094380944%_ - (lambda (_%L53633%_ _%L53635%_) '#f)) - (_%__kont8094580946%_ (lambda () '#t))) - (let* ((_%__match8097580976%_ - (lambda (_%e5357153603%_ - _%hd5357253607%_ - _%tl5357353610%_ - _%e5357453613%_ - _%hd5357553617%_ - _%tl5357653620%_ - _%e5357753623%_ - _%hd5357853627%_ - _%tl5357953630%_) - (let ((_%L53633%_ _%hd5357853627%_) - (_%L53635%_ _%hd5357553617%_)) + _%__stx8181381814%_)))) + (let ((_%__kont8181681817%_ + (lambda (_%L53740%_) '#f)) + (_%__kont8181881819%_ + (lambda (_%L53696%_ _%L53698%_) '#f)) + (_%__kont8182081821%_ (lambda () '#t))) + (let* ((_%__match8185081851%_ + (lambda (_%e5363453666%_ + _%hd5363553670%_ + _%tl5363653673%_ + _%e5363753676%_ + _%hd5363853680%_ + _%tl5363953683%_ + _%e5364053686%_ + _%hd5364153690%_ + _%tl5364253693%_) + (let ((_%L53696%_ _%hd5364153690%_) + (_%L53698%_ _%hd5363853680%_)) (if (or (gx#free-identifier=? - _%L53633%_ + _%L53696%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L53633%_ + _%L53696%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L53633%_ + _%L53696%_ (gx#datum->syntax '#f ':-))) - (_%__kont8094380944%_ - _%L53633%_ - _%L53635%_) - (_%__kont8094580946%_))))) - (_%__match8095380954%_ - (lambda (_%e5356653667%_ - _%hd5356753671%_ - _%tl5356853674%_) - (let ((_%L53677%_ _%hd5356753671%_)) + (_%__kont8181881819%_ + _%L53696%_ + _%L53698%_) + (_%__kont8182081821%_))))) + (_%__match8182881829%_ + (lambda (_%e5362953730%_ + _%hd5363053734%_ + _%tl5363153737%_) + (let ((_%L53740%_ _%hd5363053734%_)) (if (or (gx#free-identifier=? - _%L53677%_ + _%L53740%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L53677%_ + _%L53740%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L53677%_ + _%L53740%_ (gx#datum->syntax '#f ':-))) - (_%__kont8094180942%_ - _%L53677%_) + (_%__kont8181681817%_ + _%L53740%_) (if (gx#identifier? - _%hd5356753671%_) + _%hd5363053734%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84080_| - _%hd5356753671%_) + |gerbil/core/contract~Interface[1]#_g85065_| + _%hd5363053734%_) (if (gx#stx-pair? - _%tl5356853674%_) - (let ((_%e5357453613%_ + _%tl5363153737%_) + (let ((_%e5363753676%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5356853674%_))) - (let ((_%tl5357653620%_ + (gx#syntax-e _%tl5363153737%_))) + (let ((_%tl5363953683%_ (let () (declare (not safe)) - (##cdr _%e5357453613%_))) - (_%hd5357553617%_ + (##cdr _%e5363753676%_))) + (_%hd5363853680%_ (let () (declare (not safe)) - (##car _%e5357453613%_)))) - (if (gx#stx-pair? _%tl5357653620%_) - (let ((_%e5357753623%_ - (gx#syntax-e _%tl5357653620%_))) - (let ((_%tl5357953630%_ + (##car _%e5363753676%_)))) + (if (gx#stx-pair? _%tl5363953683%_) + (let ((_%e5364053686%_ + (gx#syntax-e _%tl5363953683%_))) + (let ((_%tl5364253693%_ (let () (declare (not safe)) - (##cdr _%e5357753623%_))) - (_%hd5357853627%_ + (##cdr _%e5364053686%_))) + (_%hd5364153690%_ (let () (declare (not safe)) - (##car _%e5357753623%_)))) - (_%__match8097580976%_ - _%e5356653667%_ - _%hd5356753671%_ - _%tl5356853674%_ - _%e5357453613%_ - _%hd5357553617%_ - _%tl5357653620%_ - _%e5357753623%_ - _%hd5357853627%_ - _%tl5357953630%_))) - (_%__kont8094580946%_)))) - (_%__kont8094580946%_)) - (_%__kont8094580946%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8094580946%_))))))) - (if (gx#stx-pair? _%__stx8093880939%_) - (let ((_%e5356653667%_ + (##car _%e5364053686%_)))) + (_%__match8185081851%_ + _%e5362953730%_ + _%hd5363053734%_ + _%tl5363153737%_ + _%e5363753676%_ + _%hd5363853680%_ + _%tl5363953683%_ + _%e5364053686%_ + _%hd5364153690%_ + _%tl5364253693%_))) + (_%__kont8182081821%_)))) + (_%__kont8182081821%_)) + (_%__kont8182081821%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8182081821%_))))))) + (if (gx#stx-pair? _%__stx8181381814%_) + (let ((_%e5362953730%_ (gx#syntax-e - _%__stx8093880939%_))) - (let ((_%tl5356853674%_ + _%__stx8181381814%_))) + (let ((_%tl5363153737%_ (let () (declare (not safe)) - (##cdr _%e5356653667%_))) - (_%hd5356753671%_ + (##cdr _%e5362953730%_))) + (_%hd5363053734%_ (let () (declare (not safe)) - (##car _%e5356653667%_)))) - (_%__match8095380954%_ - _%e5356653667%_ - _%hd5356753671%_ - _%tl5356853674%_))) - (_%__kont8094580946%_)))))))) - (let ((_%__match8145981460%_ - (lambda (_%e5344555012%_ - _%hd5344655016%_ - _%tl5344755019%_ - _%e5344855022%_ - _%hd5344955026%_ - _%tl5345055029%_) - (let ((_%L55032%_ _%hd5344955026%_) - (_%L55034%_ _%hd5344655016%_)) + (##car _%e5362953730%_)))) + (_%__match8182881829%_ + _%e5362953730%_ + _%hd5363053734%_ + _%tl5363153737%_))) + (_%__kont8182081821%_)))))))) + (let ((_%__match8233482335%_ + (lambda (_%e5350855075%_ + _%hd5350955079%_ + _%tl5351055082%_ + _%e5351155085%_ + _%hd5351255089%_ + _%tl5351355092%_) + (let ((_%L55095%_ _%hd5351255089%_) + (_%L55097%_ _%hd5350955079%_)) (if (or (gx#free-identifier=? - _%L55034%_ + _%L55097%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L55034%_ + _%L55097%_ (gx#datum->syntax '#f ':-))) - (_%__kont8143381434%_ - _%L55032%_ - _%L55034%_) - (if (gx#identifier? _%hd5344655016%_) + (_%__kont8230882309%_ + _%L55095%_ + _%L55097%_) + (if (gx#identifier? _%hd5350955079%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84081_| - _%hd5344655016%_) - (_%__kont8143581436%_ - _%hd5344955026%_) + |gerbil/core/contract~Interface[1]#_g85066_| + _%hd5350955079%_) + (_%__kont8231082311%_ + _%hd5351255089%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84082_| - _%hd5344655016%_) - (_%__kont8143781438%_ - _%hd5344955026%_) + |gerbil/core/contract~Interface[1]#_g85067_| + _%hd5350955079%_) + (_%__kont8231282313%_ + _%hd5351255089%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84083_| - _%hd5344655016%_) + |gerbil/core/contract~Interface[1]#_g85068_| + _%hd5350955079%_) (if (gx#stx-pair? - _%tl5345055029%_) - (let ((_%e5347354255%_ + _%tl5351355092%_) + (let ((_%e5353654318%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5345055029%_))) - (let ((_%tl5347554262%_ + _%tl5351355092%_))) + (let ((_%tl5353854325%_ (let () (declare (not safe)) - (##cdr _%e5347354255%_))) - (_%hd5347454259%_ + (##cdr _%e5353654318%_))) + (_%hd5353754322%_ (let () (declare (not safe)) - (##car _%e5347354255%_)))) - (if (gx#identifier? _%hd5347454259%_) + (##car _%e5353654318%_)))) + (if (gx#identifier? _%hd5353754322%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84084_| - _%hd5347454259%_) - (if (gx#stx-pair? _%tl5347554262%_) - (let ((_%e5347654265%_ - (gx#syntax-e _%tl5347554262%_))) - (let ((_%tl5347854272%_ + |gerbil/core/contract~Interface[1]#_g85069_| + _%hd5353754322%_) + (if (gx#stx-pair? _%tl5353854325%_) + (let ((_%e5353954328%_ + (gx#syntax-e _%tl5353854325%_))) + (let ((_%tl5354154335%_ (let () (declare (not safe)) - (##cdr _%e5347654265%_))) - (_%hd5347754269%_ + (##cdr _%e5353954328%_))) + (_%hd5354054332%_ (let () (declare (not safe)) - (##car _%e5347654265%_)))) - (_%__kont8143981440%_ - _%hd5347754269%_ - _%hd5344955026%_))) - (_%__kont8144581446%_ _%hd5344955026%_)) + (##car _%e5353954328%_)))) + (_%__kont8231482315%_ + _%hd5354054332%_ + _%hd5351255089%_))) + (_%__kont8232082321%_ _%hd5351255089%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84085_| - _%hd5347454259%_) - (if (gx#stx-pair? _%tl5347554262%_) - (let ((_%e5349054046%_ - (gx#syntax-e _%tl5347554262%_))) - (let ((_%tl5349254053%_ + |gerbil/core/contract~Interface[1]#_g85070_| + _%hd5353754322%_) + (if (gx#stx-pair? _%tl5353854325%_) + (let ((_%e5355354109%_ + (gx#syntax-e _%tl5353854325%_))) + (let ((_%tl5355554116%_ (let () (declare (not safe)) - (##cdr _%e5349054046%_))) - (_%hd5349154050%_ + (##cdr _%e5355354109%_))) + (_%hd5355454113%_ (let () (declare (not safe)) - (##car _%e5349054046%_)))) - (_%__kont8144181442%_ - _%hd5349154050%_ - _%hd5344955026%_))) - (_%__kont8144581446%_ _%hd5344955026%_)) + (##car _%e5355354109%_)))) + (_%__kont8231682317%_ + _%hd5355454113%_ + _%hd5351255089%_))) + (_%__kont8232082321%_ _%hd5351255089%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84086_| - _%hd5347454259%_) - (if (gx#stx-pair? _%tl5347554262%_) - (let ((_%e5350453737%_ + |gerbil/core/contract~Interface[1]#_g85071_| + _%hd5353754322%_) + (if (gx#stx-pair? _%tl5353854325%_) + (let ((_%e5356753800%_ (gx#syntax-e - _%tl5347554262%_))) - (let ((_%tl5350653744%_ + _%tl5353854325%_))) + (let ((_%tl5356953807%_ (let () (declare (not safe)) - (##cdr _%e5350453737%_))) - (_%hd5350553741%_ + (##cdr _%e5356753800%_))) + (_%hd5356853804%_ (let () (declare (not safe)) - (##car _%e5350453737%_)))) - (_%__kont8144381444%_ - _%hd5350553741%_ - _%hd5344955026%_))) - (_%__kont8144581446%_ - _%hd5344955026%_)) - (_%__kont8144581446%_ _%hd5344955026%_)))) - (_%__kont8144581446%_ _%hd5344955026%_)))) - (_%__kont8144581446%_ _%hd5344955026%_)) + (##car _%e5356753800%_)))) + (_%__kont8231882319%_ + _%hd5356853804%_ + _%hd5351255089%_))) + (_%__kont8232082321%_ + _%hd5351255089%_)) + (_%__kont8232082321%_ _%hd5351255089%_)))) + (_%__kont8232082321%_ _%hd5351255089%_)))) + (_%__kont8232082321%_ _%hd5351255089%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5344153519%_))))) + (_%g5350453582%_))))) (let () (declare (not safe)) - (_%g5344153519%_)))))))) - (if (gx#stx-pair? _%__stx8143081431%_) - (let ((_%e5344555012%_ - (gx#syntax-e _%__stx8143081431%_))) - (let ((_%tl5344755019%_ + (_%g5350453582%_)))))))) + (if (gx#stx-pair? _%__stx8230582306%_) + (let ((_%e5350855075%_ + (gx#syntax-e _%__stx8230582306%_))) + (let ((_%tl5351055082%_ (let () (declare (not safe)) - (##cdr _%e5344555012%_))) - (_%hd5344655016%_ + (##cdr _%e5350855075%_))) + (_%hd5350955079%_ (let () (declare (not safe)) - (##car _%e5344555012%_)))) - (if (gx#stx-pair? _%tl5344755019%_) - (let ((_%e5344855022%_ - (gx#syntax-e _%tl5344755019%_))) - (let ((_%tl5345055029%_ + (##car _%e5350855075%_)))) + (if (gx#stx-pair? _%tl5351055082%_) + (let ((_%e5351155085%_ + (gx#syntax-e _%tl5351055082%_))) + (let ((_%tl5351355092%_ (let () (declare (not safe)) - (##cdr _%e5344855022%_))) - (_%hd5344955026%_ + (##cdr _%e5351155085%_))) + (_%hd5351255089%_ (let () (declare (not safe)) - (##car _%e5344855022%_)))) - (_%__match8145981460%_ - _%e5344555012%_ - _%hd5344655016%_ - _%tl5344755019%_ - _%e5344855022%_ - _%hd5344955026%_ - _%tl5345055029%_))) + (##car _%e5351155085%_)))) + (_%__match8233482335%_ + _%e5350855075%_ + _%hd5350955079%_ + _%tl5351055082%_ + _%e5351155085%_ + _%hd5351255089%_ + _%tl5351355092%_))) (let () (declare (not safe)) - (_%g5344153519%_))))) + (_%g5350453582%_))))) (let () (declare (not safe)) - (_%g5344153519%_))))))) - _%left53427%_ - _%right53429%_))) + (_%g5350453582%_))))))) + _%left53490%_ + _%right53492%_))) (define |gerbil/core/contract~Interface[1]#contract-type-subtype?| - (lambda (_%type-a53330%_ _%type-b53332%_) - (if (not _%type-a53330%_) - (not _%type-b53332%_) - (if (not _%type-b53332%_) + (lambda (_%type-a53393%_ _%type-b53395%_) + (if (not _%type-a53393%_) + (not _%type-b53395%_) + (if (not _%type-b53395%_) '#f - (if (gx#free-identifier=? _%type-a53330%_ _%type-b53332%_) + (if (gx#free-identifier=? _%type-a53393%_ _%type-b53395%_) '#t - (let _%again53342%_ ((_%klass-a53345%_ + (let _%again53405%_ ((_%klass-a53408%_ (gx#syntax-local-value - _%type-a53330%_)) - (_%klass-b53347%_ + _%type-a53393%_)) + (_%klass-b53410%_ (gx#syntax-local-value - _%type-b53332%_))) - (if (eq? _%klass-a53345%_ _%klass-b53347%_) + _%type-b53395%_))) + (if (eq? _%klass-a53408%_ _%klass-b53410%_) '#t (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-a53345%_)) + _%klass-a53408%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-b53347%_)) - (if (eq? (let ((__obj83885 _%klass-a53345%_)) + _%klass-b53410%_)) + (if (eq? (let ((__obj84854 _%klass-a53408%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83885 + __obj84854 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83885 + __obj84854 '1 '#f '#f)) (unchecked-slot-ref - __obj83885 + __obj84854 'id))) - (let ((__obj83886 _%klass-b53347%_)) + (let ((__obj84855 _%klass-b53410%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83886 + __obj84855 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83886 + __obj84855 '1 '#f '#f)) (unchecked-slot-ref - __obj83886 + __obj84855 'id)))) '#t - (if (member _%type-b53332%_ + (if (member _%type-b53395%_ (let () (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-a53345%_)) + _%klass-a53408%_)) gx#free-identifier=?) '#t '#f)) @@ -5579,51 +5598,51 @@ (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b53347%_)) - (let ((_%$e53363%_ + _%klass-b53410%_)) + (let ((_%$e53426%_ (gx#syntax-local-value - (let ((__obj83883 - _%klass-b53347%_)) + (let ((__obj84852 + _%klass-b53410%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83883 + __obj84852 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83883 + __obj84852 '1 '#f '#f)) (unchecked-slot-ref - __obj83883 + __obj84852 'identifier))) false))) - (if _%$e53363%_ - ((lambda (_%klass-b53367%_) - (_%again53342%_ - _%klass-a53345%_ - _%klass-b53367%_)) - _%$e53363%_) + (if _%$e53426%_ + ((lambda (_%klass-b53430%_) + (_%again53405%_ + _%klass-a53408%_ + _%klass-b53430%_)) + _%$e53426%_) (if (gx#free-identifier=? - _%type-a53330%_ - (let ((__obj83884 - _%klass-b53347%_)) + _%type-a53393%_ + (let ((__obj84853 + _%klass-b53410%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83884 + __obj84853 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83884 + __obj84853 '1 '#f '#f)) (unchecked-slot-ref - __obj83884 + __obj84853 'identifier)))) '#t '#f))) @@ -5632,70 +5651,84 @@ (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-a53345%_)) + _%klass-a53408%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-b53347%_)) - (if (member _%type-b53332%_ - (let () - (declare (not safe)) - (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - _%klass-a53345%_))) + _%klass-b53410%_)) + (if (member _%type-b53395%_ + (let ((__obj84851 + _%klass-a53408%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj84851 + 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj84851 + '5 + '#f + '#f)) + (unchecked-slot-ref + __obj84851 + 'interface-precedence-list))) + gx#free-identifier=?) '#t '#f) (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b53347%_)) - (let ((_%$e53386%_ + _%klass-b53410%_)) + (let ((_%$e53449%_ (gx#syntax-local-value - (let ((__obj83881 - _%klass-b53347%_)) + (let ((__obj84849 + _%klass-b53410%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83881 + __obj84849 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83881 + __obj84849 '1 '#f '#f)) (unchecked-slot-ref - __obj83881 + __obj84849 'identifier))) false))) - (if _%$e53386%_ - ((lambda (_%klass-b53390%_) - (_%again53342%_ - _%klass-a53345%_ - _%klass-b53390%_)) - _%$e53386%_) + (if _%$e53449%_ + ((lambda (_%klass-b53453%_) + (_%again53405%_ + _%klass-a53408%_ + _%klass-b53453%_)) + _%$e53449%_) (if (gx#free-identifier=? - _%type-a53330%_ - (let ((__obj83882 - _%klass-b53347%_)) + _%type-a53393%_ + (let ((__obj84850 + _%klass-b53410%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83882 + __obj84850 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83882 + __obj84850 '1 '#f '#f)) (unchecked-slot-ref - __obj83882 + __obj84850 'identifier)))) '#t '#f))) @@ -5704,1780 +5737,1780 @@ (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-a53345%_)) - (let ((_%$e53401%_ + _%klass-a53408%_)) + (let ((_%$e53464%_ (gx#syntax-local-value - (let ((__obj83876 - _%klass-a53345%_)) + (let ((__obj84844 + _%klass-a53408%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83876 + __obj84844 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83876 + __obj84844 '1 '#f '#f)) (unchecked-slot-ref - __obj83876 + __obj84844 'identifier))) false))) - (if _%$e53401%_ - ((lambda (_%klass-a53405%_) - (_%again53342%_ - _%klass-a53405%_ - _%klass-b53347%_)) - _%$e53401%_) + (if _%$e53464%_ + ((lambda (_%klass-a53468%_) + (_%again53405%_ + _%klass-a53468%_ + _%klass-b53410%_)) + _%$e53464%_) (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b53347%_)) - (let ((_%$e53410%_ + _%klass-b53410%_)) + (let ((_%$e53473%_ (gx#syntax-local-value - (let ((__obj83878 - _%klass-b53347%_)) + (let ((__obj84846 + _%klass-b53410%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj83878 + __obj84846 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83878 '1 '#f '#f)) - (unchecked-slot-ref __obj83878 'identifier))) + (##unchecked-structure-ref __obj84846 '1 '#f '#f)) + (unchecked-slot-ref __obj84846 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e53410%_ - ((lambda (_%klass-b53414%_) - (_%again53342%_ - _%klass-a53345%_ - _%klass-b53414%_)) - _%$e53410%_) + (if _%$e53473%_ + ((lambda (_%klass-b53477%_) + (_%again53405%_ + _%klass-a53408%_ + _%klass-b53477%_)) + _%$e53473%_) (if (gx#free-identifier=? - (let ((__obj83879 + (let ((__obj84847 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-a53345%_)) + _%klass-a53408%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83879 + __obj84847 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83879 '1 '#f '#f)) - (unchecked-slot-ref __obj83879 'identifier))) - (let ((__obj83880 _%klass-b53347%_)) + (##unchecked-structure-ref __obj84847 '1 '#f '#f)) + (unchecked-slot-ref __obj84847 'identifier))) + (let ((__obj84848 _%klass-b53410%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83880 + __obj84848 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83880 '1 '#f '#f)) - (unchecked-slot-ref __obj83880 'identifier)))) + (##unchecked-structure-ref __obj84848 '1 '#f '#f)) + (unchecked-slot-ref __obj84848 'identifier)))) '#t '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - _%type-b53332%_ - (let ((__obj83877 - _%klass-a53345%_)) + _%type-b53395%_ + (let ((__obj84845 + _%klass-a53408%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83877 + __obj84845 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83877 + __obj84845 '1 '#f '#f)) (unchecked-slot-ref - __obj83877 + __obj84845 'identifier)))) '#t '#f)))) '#f)))))))))) (define |gerbil/core/contract~Interface[1]#signature-type-contract| - (lambda (_%signature52935%_) - (let _%loop52938%_ ((_%rest52941%_ _%signature52935%_) - (_%positionals52943%_ '()) - (_%keywords52944%_ '())) - (let* ((_%__stx8160681607%_ (gx#datum->syntax '#f 'rest)) - (_%g5295253019%_ + (lambda (_%signature52998%_) + (let _%loop53001%_ ((_%rest53004%_ _%signature52998%_) + (_%positionals53006%_ '()) + (_%keywords53007%_ '())) + (let* ((_%__stx8248182482%_ (gx#datum->syntax '#f 'rest)) + (_%g5301553082%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8160681607%_)))) - (let ((_%__kont8160981610%_ - (lambda (_%L53313%_ _%L53315%_) - (_%loop52938%_ - _%L53313%_ + _%__stx8248182482%_)))) + (let ((_%__kont8248482485%_ + (lambda (_%L53376%_ _%L53378%_) + (_%loop53001%_ + _%L53376%_ (cons (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())) - _%positionals52943%_) - _%keywords52944%_))) - (_%__kont8161181612%_ - (lambda (_%L53277%_ _%L53279%_ _%L53280%_) - (_%loop52938%_ - _%L53277%_ + _%positionals53006%_) + _%keywords53007%_))) + (_%__kont8248682487%_ + (lambda (_%L53340%_ _%L53342%_ _%L53343%_) + (_%loop53001%_ + _%L53340%_ (cons (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())) - _%positionals52943%_) - _%keywords52944%_))) - (_%__kont8161381614%_ - (lambda (_%L53227%_ _%L53229%_) - (_%loop52938%_ + _%positionals53006%_) + _%keywords53007%_))) + (_%__kont8248882489%_ + (lambda (_%L53290%_ _%L53292%_) + (_%loop53001%_ (gx#datum->syntax '#f 'rest) - (cons _%L53227%_ _%positionals52943%_) - _%keywords52944%_))) - (_%__kont8161581616%_ - (lambda (_%L53193%_ _%L53195%_ _%L53196%_) - (_%loop52938%_ - _%L53193%_ - _%positionals52943%_ - (cons (cons (gx#stx-e _%L53196%_) - (cons _%L53195%_ + (cons _%L53290%_ _%positionals53006%_) + _%keywords53007%_))) + (_%__kont8249082491%_ + (lambda (_%L53256%_ _%L53258%_ _%L53259%_) + (_%loop53001%_ + _%L53256%_ + _%positionals53006%_ + (cons (cons (gx#stx-e _%L53259%_) + (cons _%L53258%_ (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())))) - _%keywords52944%_)))) - (_%__kont8161781618%_ - (lambda (_%L53143%_ _%L53145%_ _%L53146%_ _%L53147%_) - (_%loop52938%_ - _%L53143%_ - _%positionals52943%_ - (cons (cons (gx#stx-e _%L53147%_) - (cons _%L53146%_ + _%keywords53007%_)))) + (_%__kont8249282493%_ + (lambda (_%L53206%_ _%L53208%_ _%L53209%_ _%L53210%_) + (_%loop53001%_ + _%L53206%_ + _%positionals53006%_ + (cons (cons (gx#stx-e _%L53210%_) + (cons _%L53209%_ (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())))) - _%keywords52944%_)))) - (_%__kont8161981620%_ - (lambda (_%L53071%_ _%L53073%_ _%L53074%_ _%L53075%_) - (_%loop52938%_ - _%L53071%_ - _%positionals52943%_ - (cons (cons (gx#stx-e _%L53075%_) - (cons _%L53074%_ _%L53073%_)) - _%keywords52944%_)))) - (_%__kont8162181622%_ + _%keywords53007%_)))) + (_%__kont8249482495%_ + (lambda (_%L53134%_ _%L53136%_ _%L53137%_ _%L53138%_) + (_%loop53001%_ + _%L53134%_ + _%positionals53006%_ + (cons (cons (gx#stx-e _%L53138%_) + (cons _%L53137%_ _%L53136%_)) + _%keywords53007%_)))) + (_%__kont8249682497%_ (lambda () - (values (reverse! _%positionals52943%_) + (values (reverse! _%positionals53006%_) (list-sort - (lambda (_%a53030%_ _%b53032%_) + (lambda (_%a53093%_ _%b53095%_) (|gerbil/core/contract~Interface[1]#keyword= __tmp84087 '2)) - (let ((_%__splice8172381724%_ + (##fx>= __tmp85072 '2)) + (let ((_%__splice8259882599%_ (gx#syntax-split-splice - _%hd5259852856%_ + _%hd5266152919%_ '2))) - (let ((_%tl5261352781%_ + (let ((_%tl5267652844%_ (let () (declare (not safe)) (##vector-ref - _%__splice8172381724%_ + _%__splice8259882599%_ '1))) - (_%target5261152778%_ + (_%target5267452841%_ (let () (declare (not safe)) (##vector-ref - _%__splice8172381724%_ + _%__splice8259882599%_ '0)))) - (if (gx#stx-pair? _%tl5261352781%_) - (let ((_%e5261852784%_ + (if (gx#stx-pair? _%tl5267652844%_) + (let ((_%e5268152847%_ (gx#syntax-e - _%tl5261352781%_))) - (let ((_%tl5262052791%_ + _%tl5267652844%_))) + (let ((_%tl5268352854%_ (let () (declare (not safe)) - (##cdr _%e5261852784%_))) - (_%hd5261952788%_ + (##cdr _%e5268152847%_))) + (_%hd5268252851%_ (let () (declare (not safe)) - (##car _%e5261852784%_)))) + (##car _%e5268152847%_)))) (if (gx#identifier? - _%hd5261952788%_) + _%hd5268252851%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84088_| - _%hd5261952788%_) + |gerbil/core/contract~Interface[1]#_g85073_| + _%hd5268252851%_) (if (gx#stx-pair? - _%tl5262052791%_) - (let ((_%e5262152794%_ + _%tl5268352854%_) + (let ((_%e5268452857%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5262052791%_))) - (let ((_%tl5262352801%_ + (gx#syntax-e _%tl5268352854%_))) + (let ((_%tl5268652864%_ (let () (declare (not safe)) - (##cdr _%e5262152794%_))) - (_%hd5262252798%_ + (##cdr _%e5268452857%_))) + (_%hd5268552861%_ (let () (declare (not safe)) - (##car _%e5262152794%_)))) - (if (gx#stx-null? _%tl5262352801%_) - (_%__match8179181792%_ - _%e5259752852%_ - _%hd5259852856%_ - _%tl5259952859%_ - _%__splice8172381724%_ - _%target5261152778%_ - _%tl5261352781%_ - _%e5261852784%_ - _%hd5261952788%_ - _%tl5262052791%_ - _%e5262152794%_ - _%hd5262252798%_ - _%tl5262352801%_) - (_%__match8180381804%_ - _%e5259752852%_ - _%hd5259852856%_ - _%tl5259952859%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) - (_%__match8180381804%_ - _%e5259752852%_ - _%hd5259852856%_ - _%tl5259952859%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259752852%_ - _%hd5259852856%_ - _%tl5259952859%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259752852%_ - _%hd5259852856%_ - _%tl5259952859%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8180381804%_ - _%e5259752852%_ - _%hd5259852856%_ - _%tl5259952859%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) - (_%__match8180381804%_ - _%e5259752852%_ - _%hd5259852856%_ - _%tl5259952859%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259752852%_ - _%hd5259852856%_ - _%tl5259952859%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))))) - (_%__match8173981740%_ - (lambda (_%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_) - (let ((_%L52918%_ _%tl5259352915%_) - (_%L52920%_ _%hd5259252912%_)) - (if (gx#identifier? _%L52920%_) - (_%__kont8171781718%_ _%L52918%_ _%L52920%_) - (if (gx#stx-pair? _%hd5259252912%_) - (let ((_%e5260052862%_ - (gx#syntax-e _%hd5259252912%_))) - (let ((_%tl5260252869%_ + (##car _%e5268452857%_)))) + (if (gx#stx-null? _%tl5268652864%_) + (_%__match8266682667%_ + _%e5266052915%_ + _%hd5266152919%_ + _%tl5266252922%_ + _%__splice8259882599%_ + _%target5267452841%_ + _%tl5267652844%_ + _%e5268152847%_ + _%hd5268252851%_ + _%tl5268352854%_ + _%e5268452857%_ + _%hd5268552861%_ + _%tl5268652864%_) + (_%__match8267882679%_ + _%e5266052915%_ + _%hd5266152919%_ + _%tl5266252922%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)))) + (_%__match8267882679%_ + _%e5266052915%_ + _%hd5266152919%_ + _%tl5266252922%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)) + (_%__match8267882679%_ + _%e5266052915%_ + _%hd5266152919%_ + _%tl5266252922%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)) + (_%__match8267882679%_ + _%e5266052915%_ + _%hd5266152919%_ + _%tl5266252922%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match8267882679%_ + _%e5266052915%_ + _%hd5266152919%_ + _%tl5266252922%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)))) + (_%__match8267882679%_ + _%e5266052915%_ + _%hd5266152919%_ + _%tl5266252922%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)) + (_%__match8267882679%_ + _%e5266052915%_ + _%hd5266152919%_ + _%tl5266252922%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)))))) + (_%__match8261482615%_ + (lambda (_%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_) + (let ((_%L52981%_ _%tl5265652978%_) + (_%L52983%_ _%hd5265552975%_)) + (if (gx#identifier? _%L52983%_) + (_%__kont8259282593%_ _%L52981%_ _%L52983%_) + (if (gx#stx-pair? _%hd5265552975%_) + (let ((_%e5266352925%_ + (gx#syntax-e _%hd5265552975%_))) + (let ((_%tl5266552932%_ (let () (declare (not safe)) - (##cdr _%e5260052862%_))) - (_%hd5260152866%_ + (##cdr _%e5266352925%_))) + (_%hd5266452929%_ (let () (declare (not safe)) - (##car _%e5260052862%_)))) - (if (gx#stx-pair? _%tl5260252869%_) - (let ((_%e5260352872%_ + (##car _%e5266352925%_)))) + (if (gx#stx-pair? _%tl5266552932%_) + (let ((_%e5266652935%_ (gx#syntax-e - _%tl5260252869%_))) - (let ((_%tl5260552879%_ + _%tl5266552932%_))) + (let ((_%tl5266852942%_ (let () (declare (not safe)) - (##cdr _%e5260352872%_))) - (_%hd5260452876%_ + (##cdr _%e5266652935%_))) + (_%hd5266752939%_ (let () (declare (not safe)) - (##car _%e5260352872%_)))) + (##car _%e5266652935%_)))) (if (gx#stx-null? - _%tl5260552879%_) - (_%__match8175981760%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_ - _%e5260352872%_ - _%hd5260452876%_ - _%tl5260552879%_) + _%tl5266852942%_) + (_%__match8263482635%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_ + _%e5266652935%_ + _%hd5266752939%_ + _%tl5266852942%_) (if (gx#stx-pair/null? - _%hd5259252912%_) - (if (let ((__tmp84089 + _%hd5265552975%_) + (if (let ((__tmp85074 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-length _%hd5259252912%_))) + (gx#stx-length _%hd5265552975%_))) (declare (not safe)) - (##fx>= __tmp84089 '2)) - (let ((_%__splice8172381724%_ - (gx#syntax-split-splice _%hd5259252912%_ '2))) - (let ((_%tl5261352781%_ + (##fx>= __tmp85074 '2)) + (let ((_%__splice8259882599%_ + (gx#syntax-split-splice _%hd5265552975%_ '2))) + (let ((_%tl5267652844%_ (let () (declare (not safe)) - (##vector-ref _%__splice8172381724%_ '1))) - (_%target5261152778%_ + (##vector-ref _%__splice8259882599%_ '1))) + (_%target5267452841%_ (let () (declare (not safe)) - (##vector-ref _%__splice8172381724%_ '0)))) - (if (gx#stx-pair? _%tl5261352781%_) - (let ((_%e5261852784%_ - (gx#syntax-e _%tl5261352781%_))) - (let ((_%tl5262052791%_ + (##vector-ref _%__splice8259882599%_ '0)))) + (if (gx#stx-pair? _%tl5267652844%_) + (let ((_%e5268152847%_ + (gx#syntax-e _%tl5267652844%_))) + (let ((_%tl5268352854%_ (let () (declare (not safe)) - (##cdr _%e5261852784%_))) - (_%hd5261952788%_ + (##cdr _%e5268152847%_))) + (_%hd5268252851%_ (let () (declare (not safe)) - (##car _%e5261852784%_)))) - (if (gx#identifier? _%hd5261952788%_) + (##car _%e5268152847%_)))) + (if (gx#identifier? _%hd5268252851%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84088_| - _%hd5261952788%_) - (if (gx#stx-pair? _%tl5262052791%_) - (let ((_%e5262152794%_ + |gerbil/core/contract~Interface[1]#_g85073_| + _%hd5268252851%_) + (if (gx#stx-pair? _%tl5268352854%_) + (let ((_%e5268452857%_ (gx#syntax-e - _%tl5262052791%_))) - (let ((_%tl5262352801%_ + _%tl5268352854%_))) + (let ((_%tl5268652864%_ (let () (declare (not safe)) - (##cdr _%e5262152794%_))) - (_%hd5262252798%_ + (##cdr _%e5268452857%_))) + (_%hd5268552861%_ (let () (declare (not safe)) - (##car _%e5262152794%_)))) + (##car _%e5268452857%_)))) (if (gx#stx-null? - _%tl5262352801%_) - (_%__match8179181792%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%__splice8172381724%_ - _%target5261152778%_ - _%tl5261352781%_ - _%e5261852784%_ - _%hd5261952788%_ - _%tl5262052791%_ - _%e5262152794%_ - _%hd5262252798%_ - _%tl5262352801%_) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_))))) + _%tl5268652864%_) + (_%__match8266682667%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%__splice8259882599%_ + _%target5267452841%_ + _%tl5267652844%_ + _%e5268152847%_ + _%hd5268252851%_ + _%tl5268352854%_ + _%e5268452857%_ + _%hd5268552861%_ + _%tl5268652864%_) + (_%__match8267882679%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)))) + (_%__match8267882679%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)) + (_%__match8267882679%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)) + (_%__match8267882679%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)))) + (_%__match8267882679%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)))) + (_%__match8267882679%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)) + (_%__match8267882679%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd5259252912%_) - (if (let ((__tmp84090 + _%hd5265552975%_) + (if (let ((__tmp85075 (gx#stx-length - _%hd5259252912%_))) + _%hd5265552975%_))) (declare (not safe)) - (##fx>= __tmp84090 '2)) - (let ((_%__splice8172381724%_ + (##fx>= __tmp85075 '2)) + (let ((_%__splice8259882599%_ (gx#syntax-split-splice - _%hd5259252912%_ + _%hd5265552975%_ '2))) - (let ((_%tl5261352781%_ + (let ((_%tl5267652844%_ (let () (declare (not safe)) (##vector-ref - _%__splice8172381724%_ + _%__splice8259882599%_ '1))) - (_%target5261152778%_ + (_%target5267452841%_ (let () (declare (not safe)) (##vector-ref - _%__splice8172381724%_ + _%__splice8259882599%_ '0)))) (if (gx#stx-pair? - _%tl5261352781%_) - (let ((_%e5261852784%_ + _%tl5267652844%_) + (let ((_%e5268152847%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5261352781%_))) - (let ((_%tl5262052791%_ + (gx#syntax-e _%tl5267652844%_))) + (let ((_%tl5268352854%_ (let () (declare (not safe)) - (##cdr _%e5261852784%_))) - (_%hd5261952788%_ + (##cdr _%e5268152847%_))) + (_%hd5268252851%_ (let () (declare (not safe)) - (##car _%e5261852784%_)))) - (if (gx#identifier? _%hd5261952788%_) + (##car _%e5268152847%_)))) + (if (gx#identifier? _%hd5268252851%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84088_| - _%hd5261952788%_) - (if (gx#stx-pair? _%tl5262052791%_) - (let ((_%e5262152794%_ - (gx#syntax-e _%tl5262052791%_))) - (let ((_%tl5262352801%_ + |gerbil/core/contract~Interface[1]#_g85073_| + _%hd5268252851%_) + (if (gx#stx-pair? _%tl5268352854%_) + (let ((_%e5268452857%_ + (gx#syntax-e _%tl5268352854%_))) + (let ((_%tl5268652864%_ (let () (declare (not safe)) - (##cdr _%e5262152794%_))) - (_%hd5262252798%_ + (##cdr _%e5268452857%_))) + (_%hd5268552861%_ (let () (declare (not safe)) - (##car _%e5262152794%_)))) - (if (gx#stx-null? _%tl5262352801%_) - (_%__match8179181792%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%__splice8172381724%_ - _%target5261152778%_ - _%tl5261352781%_ - _%e5261852784%_ - _%hd5261952788%_ - _%tl5262052791%_ - _%e5262152794%_ - _%hd5262252798%_ - _%tl5262352801%_) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_)) - (_%__match8180381804%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5260052862%_ - _%hd5260152866%_ - _%tl5260252869%_))))) - (if (gx#stx-pair/null? _%hd5259252912%_) - (if (let ((__tmp84091 + (##car _%e5268452857%_)))) + (if (gx#stx-null? _%tl5268652864%_) + (_%__match8266682667%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%__splice8259882599%_ + _%target5267452841%_ + _%tl5267652844%_ + _%e5268152847%_ + _%hd5268252851%_ + _%tl5268352854%_ + _%e5268452857%_ + _%hd5268552861%_ + _%tl5268652864%_) + (_%__match8267882679%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)))) + (_%__match8267882679%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)) + (_%__match8267882679%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)) + (_%__match8267882679%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)))) + (_%__match8267882679%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match8267882679%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_)) + (_%__match8267882679%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5266352925%_ + _%hd5266452929%_ + _%tl5266552932%_))))) + (if (gx#stx-pair/null? _%hd5265552975%_) + (if (let ((__tmp85076 (gx#stx-length - _%hd5259252912%_))) + _%hd5265552975%_))) (declare (not safe)) - (##fx>= __tmp84091 '2)) - (let ((_%__splice8172381724%_ + (##fx>= __tmp85076 '2)) + (let ((_%__splice8259882599%_ (gx#syntax-split-splice - _%hd5259252912%_ + _%hd5265552975%_ '2))) - (let ((_%tl5261352781%_ + (let ((_%tl5267652844%_ (let () (declare (not safe)) (##vector-ref - _%__splice8172381724%_ + _%__splice8259882599%_ '1))) - (_%target5261152778%_ + (_%target5267452841%_ (let () (declare (not safe)) (##vector-ref - _%__splice8172381724%_ + _%__splice8259882599%_ '0)))) (if (gx#stx-pair? - _%tl5261352781%_) - (let ((_%e5261852784%_ + _%tl5267652844%_) + (let ((_%e5268152847%_ (gx#syntax-e - _%tl5261352781%_))) - (let ((_%tl5262052791%_ + _%tl5267652844%_))) + (let ((_%tl5268352854%_ (let () (declare (not safe)) - (##cdr _%e5261852784%_))) - (_%hd5261952788%_ + (##cdr _%e5268152847%_))) + (_%hd5268252851%_ (let () (declare (not safe)) - (##car _%e5261852784%_)))) + (##car _%e5268152847%_)))) (if (gx#identifier? - _%hd5261952788%_) + _%hd5268252851%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84088_| - _%hd5261952788%_) + |gerbil/core/contract~Interface[1]#_g85073_| + _%hd5268252851%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5262052791%_) - (let ((_%e5262152794%_ - (gx#syntax-e _%tl5262052791%_))) - (let ((_%tl5262352801%_ + _%tl5268352854%_) + (let ((_%e5268452857%_ + (gx#syntax-e _%tl5268352854%_))) + (let ((_%tl5268652864%_ (let () (declare (not safe)) - (##cdr _%e5262152794%_))) - (_%hd5262252798%_ + (##cdr _%e5268452857%_))) + (_%hd5268552861%_ (let () (declare (not safe)) - (##car _%e5262152794%_)))) - (if (gx#stx-null? _%tl5262352801%_) - (_%__match8179181792%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%__splice8172381724%_ - _%target5261152778%_ - _%tl5261352781%_ - _%e5261852784%_ - _%hd5261952788%_ - _%tl5262052791%_ - _%e5262152794%_ - _%hd5262252798%_ - _%tl5262352801%_) - (if (gx#stx-pair? _%tl5259352915%_) - (let ((_%e5263752694%_ - (gx#syntax-e _%tl5259352915%_))) - (let ((_%tl5263952701%_ + (##car _%e5268452857%_)))) + (if (gx#stx-null? _%tl5268652864%_) + (_%__match8266682667%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%__splice8259882599%_ + _%target5267452841%_ + _%tl5267652844%_ + _%e5268152847%_ + _%hd5268252851%_ + _%tl5268352854%_ + _%e5268452857%_ + _%hd5268552861%_ + _%tl5268652864%_) + (if (gx#stx-pair? _%tl5265652978%_) + (let ((_%e5270052757%_ + (gx#syntax-e _%tl5265652978%_))) + (let ((_%tl5270252764%_ (let () (declare (not safe)) - (##cdr _%e5263752694%_))) - (_%hd5263852698%_ + (##cdr _%e5270052757%_))) + (_%hd5270152761%_ (let () (declare (not safe)) - (##car _%e5263752694%_)))) - (_%__match8181581816%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5263752694%_ - _%hd5263852698%_ - _%tl5263952701%_))) + (##car _%e5270052757%_)))) + (_%__match8269082691%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5270052757%_ + _%hd5270152761%_ + _%tl5270252764%_))) (let () (declare (not safe)) - (_%g5258552677%_)))))) - (if (gx#stx-pair? _%tl5259352915%_) - (let ((_%e5263752694%_ - (gx#syntax-e _%tl5259352915%_))) - (let ((_%tl5263952701%_ + (_%g5264852740%_)))))) + (if (gx#stx-pair? _%tl5265652978%_) + (let ((_%e5270052757%_ + (gx#syntax-e _%tl5265652978%_))) + (let ((_%tl5270252764%_ (let () (declare (not safe)) - (##cdr _%e5263752694%_))) - (_%hd5263852698%_ + (##cdr _%e5270052757%_))) + (_%hd5270152761%_ (let () (declare (not safe)) - (##car _%e5263752694%_)))) - (_%__match8181581816%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5263752694%_ - _%hd5263852698%_ - _%tl5263952701%_))) - (let () (declare (not safe)) (_%g5258552677%_)))) - (if (gx#stx-pair? _%tl5259352915%_) - (let ((_%e5263752694%_ - (gx#syntax-e _%tl5259352915%_))) - (let ((_%tl5263952701%_ + (##car _%e5270052757%_)))) + (_%__match8269082691%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5270052757%_ + _%hd5270152761%_ + _%tl5270252764%_))) + (let () (declare (not safe)) (_%g5264852740%_)))) + (if (gx#stx-pair? _%tl5265652978%_) + (let ((_%e5270052757%_ + (gx#syntax-e _%tl5265652978%_))) + (let ((_%tl5270252764%_ (let () (declare (not safe)) - (##cdr _%e5263752694%_))) - (_%hd5263852698%_ + (##cdr _%e5270052757%_))) + (_%hd5270152761%_ (let () (declare (not safe)) - (##car _%e5263752694%_)))) - (_%__match8181581816%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5263752694%_ - _%hd5263852698%_ - _%tl5263952701%_))) - (let () (declare (not safe)) (_%g5258552677%_)))) - (if (gx#stx-pair? _%tl5259352915%_) - (let ((_%e5263752694%_ (gx#syntax-e _%tl5259352915%_))) - (let ((_%tl5263952701%_ + (##car _%e5270052757%_)))) + (_%__match8269082691%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5270052757%_ + _%hd5270152761%_ + _%tl5270252764%_))) + (let () (declare (not safe)) (_%g5264852740%_)))) + (if (gx#stx-pair? _%tl5265652978%_) + (let ((_%e5270052757%_ (gx#syntax-e _%tl5265652978%_))) + (let ((_%tl5270252764%_ (let () (declare (not safe)) - (##cdr _%e5263752694%_))) - (_%hd5263852698%_ + (##cdr _%e5270052757%_))) + (_%hd5270152761%_ (let () (declare (not safe)) - (##car _%e5263752694%_)))) - (_%__match8181581816%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5263752694%_ - _%hd5263852698%_ - _%tl5263952701%_))) - (let () (declare (not safe)) (_%g5258552677%_)))))) + (##car _%e5270052757%_)))) + (_%__match8269082691%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5270052757%_ + _%hd5270152761%_ + _%tl5270252764%_))) + (let () (declare (not safe)) (_%g5264852740%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%tl5259352915%_) - (let ((_%e5263752694%_ + _%tl5265652978%_) + (let ((_%e5270052757%_ (gx#syntax-e - _%tl5259352915%_))) - (let ((_%tl5263952701%_ + _%tl5265652978%_))) + (let ((_%tl5270252764%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5263752694%_))) - (_%hd5263852698%_ - (let () (declare (not safe)) (##car _%e5263752694%_)))) - (_%__match8181581816%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5263752694%_ - _%hd5263852698%_ - _%tl5263952701%_))) - (let () (declare (not safe)) (_%g5258552677%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl5259352915%_) - (let ((_%e5263752694%_ + (##cdr _%e5270052757%_))) + (_%hd5270152761%_ + (let () (declare (not safe)) (##car _%e5270052757%_)))) + (_%__match8269082691%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5270052757%_ + _%hd5270152761%_ + _%tl5270252764%_))) + (let () (declare (not safe)) (_%g5264852740%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%tl5265652978%_) + (let ((_%e5270052757%_ (gx#syntax-e - _%tl5259352915%_))) - (let ((_%tl5263952701%_ + _%tl5265652978%_))) + (let ((_%tl5270252764%_ (let () (declare (not safe)) - (##cdr _%e5263752694%_))) - (_%hd5263852698%_ + (##cdr _%e5270052757%_))) + (_%hd5270152761%_ (let () (declare (not safe)) - (##car _%e5263752694%_)))) - (_%__match8181581816%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5263752694%_ - _%hd5263852698%_ - _%tl5263952701%_))) + (##car _%e5270052757%_)))) + (_%__match8269082691%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5270052757%_ + _%hd5270152761%_ + _%tl5270252764%_))) (let () (declare (not safe)) - (_%g5258552677%_)))) - (if (gx#stx-pair? _%tl5259352915%_) - (let ((_%e5263752694%_ + (_%g5264852740%_)))) + (if (gx#stx-pair? _%tl5265652978%_) + (let ((_%e5270052757%_ (gx#syntax-e - _%tl5259352915%_))) - (let ((_%tl5263952701%_ + _%tl5265652978%_))) + (let ((_%tl5270252764%_ (let () (declare (not safe)) - (##cdr _%e5263752694%_))) - (_%hd5263852698%_ + (##cdr _%e5270052757%_))) + (_%hd5270152761%_ (let () (declare (not safe)) - (##car _%e5263752694%_)))) - (_%__match8181581816%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_ - _%e5263752694%_ - _%hd5263852698%_ - _%tl5263952701%_))) + (##car _%e5270052757%_)))) + (_%__match8269082691%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_ + _%e5270052757%_ + _%hd5270152761%_ + _%tl5270252764%_))) (let () (declare (not safe)) - (_%g5258552677%_)))))))))) - (if (gx#stx-pair? _%__stx8171481715%_) - (let ((_%e5259152908%_ (gx#syntax-e _%__stx8171481715%_))) - (let ((_%tl5259352915%_ + (_%g5264852740%_)))))))))) + (if (gx#stx-pair? _%__stx8258982590%_) + (let ((_%e5265452971%_ (gx#syntax-e _%__stx8258982590%_))) + (let ((_%tl5265652978%_ (let () (declare (not safe)) - (##cdr _%e5259152908%_))) - (_%hd5259252912%_ + (##cdr _%e5265452971%_))) + (_%hd5265552975%_ (let () (declare (not safe)) - (##car _%e5259152908%_)))) - (_%__match8173981740%_ - _%e5259152908%_ - _%hd5259252912%_ - _%tl5259352915%_))) - (let () (declare (not safe)) (_%g5258552677%_))))))))) + (##car _%e5265452971%_)))) + (_%__match8261482615%_ + _%e5265452971%_ + _%hd5265552975%_ + _%tl5265652978%_))) + (let () (declare (not safe)) (_%g5264852740%_))))))))) (define |gerbil/core/contract~Interface[1]#signature-keywords| - (lambda (_%spec52395%_) - (let _%lp52398%_ ((_%rest52401%_ _%spec52395%_) - (_%keywords52403%_ '())) - (let* ((_%__stx8182081821%_ _%rest52401%_) - (_%g5240852436%_ + (lambda (_%spec52458%_) + (let _%lp52461%_ ((_%rest52464%_ _%spec52458%_) + (_%keywords52466%_ '())) + (let* ((_%__stx8269582696%_ _%rest52464%_) + (_%g5247152499%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8182081821%_)))) - (let ((_%__kont8182381824%_ - (lambda (_%L52553%_ _%L52555%_) - (_%lp52398%_ _%L52553%_ _%keywords52403%_))) - (_%__kont8182581826%_ - (lambda (_%L52521%_ _%L52523%_) - (_%lp52398%_ _%L52521%_ _%keywords52403%_))) - (_%__kont8182781828%_ - (lambda (_%L52474%_ _%L52476%_) - (_%lp52398%_ - _%L52474%_ - (cons (gx#stx-e _%L52476%_) _%keywords52403%_)))) - (_%__kont8182981830%_ + _%__stx8269582696%_)))) + (let ((_%__kont8269882699%_ + (lambda (_%L52616%_ _%L52618%_) + (_%lp52461%_ _%L52616%_ _%keywords52466%_))) + (_%__kont8270082701%_ + (lambda (_%L52584%_ _%L52586%_) + (_%lp52461%_ _%L52584%_ _%keywords52466%_))) + (_%__kont8270282703%_ + (lambda (_%L52537%_ _%L52539%_) + (_%lp52461%_ + _%L52537%_ + (cons (gx#stx-e _%L52539%_) _%keywords52466%_)))) + (_%__kont8270482705%_ (lambda () (list-sort |gerbil/core/contract~Interface[1]#keywordstring (gx#stx-e _%x52391%_))) - (__tmp84092 (symbol->string (gx#stx-e _%y52393%_)))) + (lambda (_%x52454%_ _%y52456%_) + (let ((__tmp85078 (symbol->string (gx#stx-e _%x52454%_))) + (__tmp85077 (symbol->string (gx#stx-e _%y52456%_)))) (declare (not safe)) - (##stringstring (gx#stx-e _%x52387%_))) - (__tmp84094 (keyword->string (gx#stx-e _%y52389%_)))) + (lambda (_%x52450%_ _%y52452%_) + (let ((__tmp85080 (keyword->string (gx#stx-e _%x52450%_))) + (__tmp85079 (keyword->string (gx#stx-e _%y52452%_)))) (declare (not safe)) - (##string>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8191581916%_ - _%e6167061779%_ - _%hd6167161783%_ - _%tl6167261786%_ - _%e6167361789%_ - _%hd6167461793%_ - _%tl6167561796%_)))) - (_%__kont8187381874%_ - _%__stx8186481865%_)))) + (##car _%e6204762177%_)))) + (_%__match8277882779%_ + _%e6203862147%_ + _%hd6203962151%_ + _%tl6204062154%_ + _%e6204162157%_ + _%hd6204262161%_ + _%tl6204362164%_ + _%e6204462167%_ + _%hd6204562171%_ + _%tl6204662174%_ + _%e6204762177%_ + _%hd6204862181%_ + _%tl6204962184%_))) + (_%__match8279082791%_ + _%e6203862147%_ + _%hd6203962151%_ + _%tl6204062154%_ + _%e6204162157%_ + _%hd6204262161%_ + _%tl6204362164%_)) + (_%__match8279082791%_ + _%e6203862147%_ + _%hd6203962151%_ + _%tl6204062154%_ + _%e6204162157%_ + _%hd6204262161%_ + _%tl6204362164%_)) + (_%__match8279082791%_ + _%e6203862147%_ + _%hd6203962151%_ + _%tl6204062154%_ + _%e6204162157%_ + _%hd6204262161%_ + _%tl6204362164%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match8279082791%_ + _%e6203862147%_ + _%hd6203962151%_ + _%tl6204062154%_ + _%e6204162157%_ + _%hd6204262161%_ + _%tl6204362164%_)))) + (_%__kont8274882749%_ + _%__stx8273982740%_)))) (let () (declare (not safe)) - (_%g6166261727%_))))))))) - (_%make-method-defs60152%_ - (lambda (_%Interface61444%_) - (lambda (_%method61447%_ _%offset61449%_) - (let* ((_%signature61451%_ - (gx#stx-car (gx#stx-cdr _%method61447%_))) - (_%g6145461494%_ - (lambda (_%g6145561490%_) + (_%g6203062095%_))))))))) + (_%make-method-defs60225%_ + (lambda (_%Interface61812%_) + (lambda (_%method61815%_ _%offset61817%_) + (let* ((_%signature61819%_ + (gx#stx-car (gx#stx-cdr _%method61815%_))) + (_%g6182261862%_ + (lambda (_%g6182361858%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6145561490%_))) - (_%g6145361647%_ - (lambda (_%g6145561498%_) - (if (gx#stx-pair? _%g6145561498%_) - (let ((_%e6146261501%_ - (gx#syntax-e _%g6145561498%_))) - (let ((_%hd6146361505%_ + _%g6182361858%_))) + (_%g6182162015%_ + (lambda (_%g6182361866%_) + (if (gx#stx-pair? _%g6182361866%_) + (let ((_%e6183061869%_ + (gx#syntax-e _%g6182361866%_))) + (let ((_%hd6183161873%_ (let () (declare (not safe)) - (##car _%e6146261501%_))) - (_%tl6146461508%_ + (##car _%e6183061869%_))) + (_%tl6183261876%_ (let () (declare (not safe)) - (##cdr _%e6146261501%_)))) - (if (gx#stx-pair? _%tl6146461508%_) - (let ((_%e6146561511%_ + (##cdr _%e6183061869%_)))) + (if (gx#stx-pair? _%tl6183261876%_) + (let ((_%e6183361879%_ (gx#syntax-e - _%tl6146461508%_))) - (let ((_%hd6146661515%_ + _%tl6183261876%_))) + (let ((_%hd6183461883%_ (let () (declare (not safe)) - (##car _%e6146561511%_))) - (_%tl6146761518%_ + (##car _%e6183361879%_))) + (_%tl6183561886%_ (let () (declare (not safe)) - (##cdr _%e6146561511%_)))) + (##cdr _%e6183361879%_)))) (if (gx#stx-pair? - _%tl6146761518%_) - (let ((_%e6146861521%_ + _%tl6183561886%_) + (let ((_%e6183661889%_ (gx#syntax-e - _%tl6146761518%_))) - (let ((_%hd6146961525%_ + _%tl6183561886%_))) + (let ((_%hd6183761893%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6146861521%_))) - (_%tl6147061528%_ - (let () (declare (not safe)) (##cdr _%e6146861521%_)))) - (if (gx#stx-pair? _%tl6147061528%_) - (let ((_%e6147161531%_ (gx#syntax-e _%tl6147061528%_))) - (let ((_%hd6147261535%_ + (##car _%e6183661889%_))) + (_%tl6183861896%_ + (let () (declare (not safe)) (##cdr _%e6183661889%_)))) + (if (gx#stx-pair? _%tl6183861896%_) + (let ((_%e6183961899%_ (gx#syntax-e _%tl6183861896%_))) + (let ((_%hd6184061903%_ (let () (declare (not safe)) - (##car _%e6147161531%_))) - (_%tl6147361538%_ + (##car _%e6183961899%_))) + (_%tl6184161906%_ (let () (declare (not safe)) - (##cdr _%e6147161531%_)))) - (if (gx#stx-pair? _%tl6147361538%_) - (let ((_%e6147461541%_ - (gx#syntax-e _%tl6147361538%_))) - (let ((_%hd6147561545%_ + (##cdr _%e6183961899%_)))) + (if (gx#stx-pair? _%tl6184161906%_) + (let ((_%e6184261909%_ + (gx#syntax-e _%tl6184161906%_))) + (let ((_%hd6184361913%_ (let () (declare (not safe)) - (##car _%e6147461541%_))) - (_%tl6147661548%_ + (##car _%e6184261909%_))) + (_%tl6184461916%_ (let () (declare (not safe)) - (##cdr _%e6147461541%_)))) - (if (gx#stx-pair? _%tl6147661548%_) - (let ((_%e6147761551%_ - (gx#syntax-e _%tl6147661548%_))) - (let ((_%hd6147861555%_ + (##cdr _%e6184261909%_)))) + (if (gx#stx-pair? _%tl6184461916%_) + (let ((_%e6184561919%_ + (gx#syntax-e _%tl6184461916%_))) + (let ((_%hd6184661923%_ (let () (declare (not safe)) - (##car _%e6147761551%_))) - (_%tl6147961558%_ + (##car _%e6184561919%_))) + (_%tl6184761926%_ (let () (declare (not safe)) - (##cdr _%e6147761551%_)))) + (##cdr _%e6184561919%_)))) (if (gx#stx-pair/null? - _%hd6147861555%_) - (let ((_g84097_ + _%hd6184661923%_) + (let ((_g85082_ (gx#syntax-split-splice - _%hd6147861555%_ + _%hd6184661923%_ '0))) (begin - (let ((_g84098_ + (let ((_g85083_ (let () (declare (not safe)) (if (##values? - _g84097_) - (##vector-length - _g84097_) + _g85082_) + (##values-length + _g85082_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84098_ + (##fx= _g85083_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g84098_))) + (error "Context expects 2 values" _g85083_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6148061561%_ + (let ((_%target6184861929%_ (let () (declare (not safe)) - (##vector-ref - _g84097_ + (##values-ref + _g85082_ 0))) - (_%tl6148261564%_ + (_%tl6185061932%_ (let () (declare (not safe)) - (##vector-ref - _g84097_ + (##values-ref + _g85082_ 1)))) (if (gx#stx-null? - _%tl6148261564%_) - (letrec ((_%loop6148361567%_ - (lambda (_%hd6148161571%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%out6148761574%_) - (if (gx#stx-pair? _%hd6148161571%_) - (let ((_%e6148461577%_ - (gx#syntax-e _%hd6148161571%_))) - (let ((_%lp-hd6148561581%_ + _%tl6185061932%_) + (letrec ((_%loop6185161935%_ + (lambda (_%hd6184961939%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%out6185561942%_) + (if (gx#stx-pair? _%hd6184961939%_) + (let ((_%e6185261945%_ + (gx#syntax-e _%hd6184961939%_))) + (let ((_%lp-hd6185361949%_ (let () (declare (not safe)) - (##car _%e6148461577%_))) - (_%lp-tl6148661584%_ + (##car _%e6185261945%_))) + (_%lp-tl6185461952%_ (let () (declare (not safe)) - (##cdr _%e6148461577%_)))) - (_%loop6148361567%_ - _%lp-tl6148661584%_ - (cons _%lp-hd6148561581%_ - _%out6148761574%_)))) - (let ((_%out6148861587%_ - (reverse _%out6148761574%_))) - (if (gx#stx-null? _%tl6147961558%_) - ((lambda (_%L61591%_ - _%L61593%_ - _%L61594%_ - _%L61595%_ - _%L61596%_ - _%L61597%_) - (if (gx#stx-list? _%signature61451%_) + (##cdr _%e6185261945%_)))) + (_%loop6185161935%_ + _%lp-tl6185461952%_ + (cons _%lp-hd6185361949%_ + _%out6185561942%_)))) + (let ((_%out6185661955%_ + (reverse _%out6185561942%_))) + (if (gx#stx-null? _%tl6184761926%_) + ((lambda (_%L61959%_ + _%L61961%_ + _%L61962%_ + _%L61963%_ + _%L61964%_ + _%L61965%_) + (if (gx#stx-list? _%signature61819%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'definterface-method) - (cons _%L61597%_ - (cons _%L61596%_ + (cons _%L61965%_ + (cons _%L61964%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -7496,13 +7529,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##unchecked-structure-ref) - (cons _%L61594%_ + (cons _%L61962%_ (cons '1 (cons '#f (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L61595%_ + (cons _%L61963%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))))) @@ -7516,14 +7549,14 @@ (cons (cons (gx#datum->syntax '#f '##unchecked-structure-ref) - (cons _%L61594%_ - (cons _%L61593%_ + (cons _%L61962%_ + (cons _%L61961%_ (cons '#f (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L61595%_ '())) + (cons _%L61963%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -7536,21 +7569,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'obj) - (foldr (lambda (_%g6163061633%_ _%g6163161636%_) - (cons _%g6163061633%_ _%g6163161636%_)) + (foldr (lambda (_%g6199862001%_ _%g6199962004%_) + (cons _%g6199862001%_ _%g6199962004%_)) '() - _%L61591%_))) + _%L61959%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx60145%_)) + (gx#stx-source _%stx60218%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'definterface-method) - (cons _%L61597%_ - (cons _%L61596%_ + (cons _%L61965%_ + (cons _%L61964%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -7569,13 +7602,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##unchecked-structure-ref) - (cons _%L61594%_ + (cons _%L61962%_ (cons '1 (cons '#f (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L61595%_ + (cons _%L61963%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))))) @@ -7589,14 +7622,14 @@ (cons (cons (gx#datum->syntax '#f '##unchecked-structure-ref) - (cons _%L61594%_ - (cons _%L61593%_ + (cons _%L61962%_ + (cons _%L61961%_ (cons '#f (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L61595%_ '())) + (cons _%L61963%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -7610,1932 +7643,2242 @@ '#f 'f) (cons (gx#datum->syntax '#f 'obj) - (foldr (lambda (_%g6163861641%_ _%g6163961644%_) - (cons _%g6163861641%_ _%g6163961644%_)) + (foldr (lambda (_%g6200662009%_ _%g6200762012%_) + (cons _%g6200662009%_ _%g6200762012%_)) '() - _%L61591%_)))) + _%L61959%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx60145%_)))) - _%out6148861587%_ - _%hd6147561545%_ - _%hd6147261535%_ - _%hd6146961525%_ - _%hd6146661515%_ - _%hd6146361505%_) - (_%g6145461494%_ _%g6145561498%_))))))) - (_%loop6148361567%_ _%target6148061561%_ '())) - (_%g6145461494%_ _%g6145561498%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6145461494%_ - _%g6145561498%_)))) - (_%g6145461494%_ _%g6145561498%_)))) - (_%g6145461494%_ _%g6145561498%_)))) - (_%g6145461494%_ _%g6145561498%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6145461494%_ - _%g6145561498%_)))) - (_%g6145461494%_ - _%g6145561498%_)))) - (_%g6145461494%_ _%g6145561498%_))))) - (_%g6145361647%_ - (list _%Interface61444%_ - _%method61447%_ - (gx#stx-car _%method61447%_) + (gx#stx-source _%stx60218%_)))) + _%out6185661955%_ + _%hd6184361913%_ + _%hd6184061903%_ + _%hd6183761893%_ + _%hd6183461883%_ + _%hd6183161873%_) + (_%g6182261862%_ _%g6182361866%_))))))) + (_%loop6185161935%_ _%target6184861929%_ '())) + (_%g6182261862%_ _%g6182361866%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6182261862%_ + _%g6182361866%_)))) + (_%g6182261862%_ _%g6182361866%_)))) + (_%g6182261862%_ _%g6182361866%_)))) + (_%g6182261862%_ _%g6182361866%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6182261862%_ + _%g6182361866%_)))) + (_%g6182261862%_ + _%g6182361866%_)))) + (_%g6182261862%_ _%g6182361866%_))))) + (_%g6182162015%_ + (list _%Interface61812%_ + _%method61815%_ + (gx#stx-car _%method61815%_) (gx#syntax-local-introduce 'self) - _%offset61449%_ + _%offset61817%_ (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature61451%_)))))))) - (let* ((_%g6015460178%_ - (lambda (_%g6015560174%_) + _%signature61819%_))))))) + (_%make-interface-namespace60226%_ + (lambda (_%name61800%_) + (if (gx#module-context? (gx#current-expander-context)) + (let ((_%$e61803%_ + (gx#module-context-ns + (gx#current-expander-context)))) + (if _%$e61803%_ + ((lambda (_%ns61807%_) + (make-symbol _%ns61807%_ '"::" _%name61800%_)) + _%$e61803%_) + _%name61800%_)) + (make-symbol (gensym _%name61800%_))))) + (_%make-method-name-spec60227%_ + (lambda (_%method-name61742%_ + _%namespace61744%_ + _%mixin61745%_) + (let _%loop61747%_ ((_%rest61750%_ _%mixin61745%_) + (_%result61752%_ + (cons (make-symbol + _%namespace61744%_ + '"::" + _%method-name61742%_) + '()))) + (let* ((_%rest6175361761%_ _%rest61750%_) + (_%else6175561773%_ + (lambda () + (reverse! + (cons _%method-name61742%_ _%result61752%_)))) + (_%K6175761784%_ + (lambda (_%rest61777%_ _%info61779%_) + (if (find (lambda (_%ms61781%_) + (eq? _%method-name61742%_ + (car _%ms61781%_))) + (let ((__obj84857 _%info61779%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj84857 + 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj84857 + '4 + '#f + '#f)) + (class-slot-ref + gerbil/core/contract~InterfaceInfo#interface-info::t + __obj84857 + 'interface-methods)))) + (_%loop61747%_ + _%rest61777%_ + (cons (make-symbol + (let ((__obj84858 _%info61779%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj84858 + 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj84858 + '2 + '#f + '#f)) + (class-slot-ref + gerbil/core/contract~InterfaceInfo#interface-info::t + __obj84858 + 'namespace))) + '"::" + _%method-name61742%_) + _%result61752%_)) + (_%loop61747%_ + _%rest61777%_ + _%result61752%_))))) + (if (pair? _%rest6175361761%_) + (let ((_%hd6175861788%_ + (let () + (declare (not safe)) + (##car _%rest6175361761%_))) + (_%tl6175961791%_ + (let () + (declare (not safe)) + (##cdr _%rest6175361761%_)))) + (let* ((_%info61794%_ _%hd6175861788%_) + (_%rest61797%_ _%tl6175961791%_)) + (_%K6175761784%_ _%rest61797%_ _%info61794%_))) + (_%else6175561773%_))))))) + (let* ((_%g6022960253%_ + (lambda (_%g6023060249%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6015560174%_))) - (_%g6015361440%_ - (lambda (_%g6015560182%_) - (if (gx#stx-pair? _%g6015560182%_) - (let ((_%e6015860185%_ (gx#syntax-e _%g6015560182%_))) - (let ((_%hd6015960189%_ + _%g6023060249%_))) + (_%g6022861738%_ + (lambda (_%g6023060257%_) + (if (gx#stx-pair? _%g6023060257%_) + (let ((_%e6023360260%_ (gx#syntax-e _%g6023060257%_))) + (let ((_%hd6023460264%_ (let () (declare (not safe)) - (##car _%e6015860185%_))) - (_%tl6016060192%_ + (##car _%e6023360260%_))) + (_%tl6023560267%_ (let () (declare (not safe)) - (##cdr _%e6015860185%_)))) - (if (gx#stx-pair? _%tl6016060192%_) - (let ((_%e6016160195%_ - (gx#syntax-e _%tl6016060192%_))) - (let ((_%hd6016260199%_ + (##cdr _%e6023360260%_)))) + (if (gx#stx-pair? _%tl6023560267%_) + (let ((_%e6023660270%_ + (gx#syntax-e _%tl6023560267%_))) + (let ((_%hd6023760274%_ (let () (declare (not safe)) - (##car _%e6016160195%_))) - (_%tl6016360202%_ + (##car _%e6023660270%_))) + (_%tl6023860277%_ (let () (declare (not safe)) - (##cdr _%e6016160195%_)))) - (if (gx#stx-pair/null? _%tl6016360202%_) - (let ((_g84099_ + (##cdr _%e6023660270%_)))) + (if (gx#stx-pair/null? _%tl6023860277%_) + (let ((_g85084_ (gx#syntax-split-splice - _%tl6016360202%_ + _%tl6023860277%_ '0))) (begin - (let ((_g84100_ + (let ((_g85085_ (let () (declare (not safe)) - (if (##values? _g84099_) - (##vector-length - _g84099_) + (if (##values? _g85084_) + (##values-length + _g85084_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84100_ 2))) + (##fx= _g85085_ 2))) (error "Context expects 2 values" - _g84100_))) - (let ((_%target6016460205%_ + _g85085_))) + (let ((_%target6023960280%_ (let () (declare (not safe)) - (##vector-ref - _g84099_ + (##values-ref + _g85084_ 0))) - (_%tl6016660208%_ + (_%tl6024160283%_ (let () (declare (not safe)) - (##vector-ref - _g84099_ + (##values-ref + _g85084_ 1)))) (if (gx#stx-null? - _%tl6016660208%_) - (letrec ((_%loop6016760211%_ - (lambda (_%hd6016560215%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%spec6017160218%_) - (if (gx#stx-pair? _%hd6016560215%_) - (let ((_%e6016860221%_ - (gx#syntax-e _%hd6016560215%_))) - (let ((_%lp-hd6016960225%_ + _%tl6024160283%_) + (letrec ((_%loop6024260286%_ + (lambda (_%hd6024060290%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%spec6024660293%_) + (if (gx#stx-pair? _%hd6024060290%_) + (let ((_%e6024360296%_ + (gx#syntax-e _%hd6024060290%_))) + (let ((_%lp-hd6024460300%_ (let () (declare (not safe)) - (##car _%e6016860221%_))) - (_%lp-tl6017060228%_ + (##car _%e6024360296%_))) + (_%lp-tl6024560303%_ (let () (declare (not safe)) - (##cdr _%e6016860221%_)))) - (_%loop6016760211%_ - _%lp-tl6017060228%_ - (cons _%lp-hd6016960225%_ _%spec6017160218%_)))) - (let ((_%spec6017260231%_ - (reverse _%spec6017160218%_))) - ((lambda (_%L60235%_ _%L60237%_) - (if (or (gx#identifier? _%L60237%_) - (gx#identifier-list? _%L60237%_)) - (let* ((_%g6026060268%_ - (lambda (_%g6026160264%_) + (##cdr _%e6024360296%_)))) + (_%loop6024260286%_ + _%lp-tl6024560303%_ + (cons _%lp-hd6024460300%_ _%spec6024660293%_)))) + (let ((_%spec6024760306%_ + (reverse _%spec6024660293%_))) + ((lambda (_%L60310%_ _%L60312%_) + (if (or (gx#identifier? _%L60312%_) + (gx#identifier-list? _%L60312%_)) + (let* ((_%g6033560343%_ + (lambda (_%g6033660339%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6026160264%_))) - (_%g6025961436%_ - (lambda (_%g6026160272%_) - ((lambda (_%L60275%_) - (let* ((_%g6028760295%_ - (lambda (_%g6028860291%_) + _%g6033660339%_))) + (_%g6033461734%_ + (lambda (_%g6033660347%_) + ((lambda (_%L60350%_) + (let* ((_%g6036260370%_ + (lambda (_%g6036360366%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6028860291%_))) - (_%g6028661432%_ - (lambda (_%g6028860299%_) - ((lambda (_%L60302%_) - (let* ((_%g6031560323%_ + _%g6036360366%_))) + (_%g6036161730%_ + (lambda (_%g6036360374%_) + ((lambda (_%L60377%_) + (let* ((_%g6039060398%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6031660319%_) + (lambda (_%g6039160394%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6031660319%_))) - (_%g6031461428%_ - (lambda (_%g6031660327%_) - ((lambda (_%L60330%_) - (let* ((_%g6034360351%_ - (lambda (_%g6034460347%_) + _%g6039160394%_))) + (_%g6038961726%_ + (lambda (_%g6039160402%_) + ((lambda (_%L60405%_) + (let* ((_%g6041860426%_ + (lambda (_%g6041960422%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6034460347%_))) - (_%g6034261424%_ - (lambda (_%g6034460355%_) - ((lambda (_%L60358%_) - (let* ((_%g6037160379%_ - (lambda (_%g6037260375%_) + _%g6041960422%_))) + (_%g6041761722%_ + (lambda (_%g6041960430%_) + ((lambda (_%L60433%_) + (let* ((_%g6044660454%_ + (lambda (_%g6044760450%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6037260375%_))) - (_%g6037061420%_ - (lambda (_%g6037260383%_) - ((lambda (_%L60386%_) - (let* ((_%g6039960407%_ + _%g6044760450%_))) + (_%g6044561718%_ + (lambda (_%g6044760458%_) + ((lambda (_%L60461%_) + (let* ((_%g6047460482%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6040060403%_) + (lambda (_%g6047560478%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6040060403%_))) - (_%g6039861416%_ - (lambda (_%g6040060411%_) - ((lambda (_%L60414%_) - (let* ((_%g6042760435%_ - (lambda (_%g6042860431%_) + _%g6047560478%_))) + (_%g6047361714%_ + (lambda (_%g6047560486%_) + ((lambda (_%L60489%_) + (let* ((_%g6050260510%_ + (lambda (_%g6050360506%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6042860431%_))) - (_%g6042661412%_ - (lambda (_%g6042860439%_) - ((lambda (_%L60442%_) - (let* ((_%g6045560463%_ - (lambda (_%g6045660459%_) + _%g6050360506%_))) + (_%g6050161710%_ + (lambda (_%g6050360514%_) + ((lambda (_%L60517%_) + (let* ((_%g6053060538%_ + (lambda (_%g6053160534%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6045660459%_))) - (_%g6045461408%_ - (lambda (_%g6045660467%_) - ((lambda (_%L60470%_) - (let* ((_%g6048360491%_ + _%g6053160534%_))) + (_%g6052961706%_ + (lambda (_%g6053160542%_) + ((lambda (_%L60545%_) + (let* ((_%g6055860566%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6048460487%_) + (lambda (_%g6055960562%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6048460487%_))) - (_%g6048261404%_ - (lambda (_%g6048460495%_) - ((lambda (_%L60498%_) - (let* ((_%g6051160528%_ - (lambda (_%g6051260524%_) + _%g6055960562%_))) + (_%g6055761702%_ + (lambda (_%g6055960570%_) + ((lambda (_%L60573%_) + (let* ((_%g6058660594%_ + (lambda (_%g6058760590%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6051260524%_))) - (_%g6051061400%_ - (lambda (_%g6051260532%_) - (if (gx#stx-pair/null? - _%g6051260532%_) - (let ((_g84101_ - (gx#syntax-split-splice - _%g6051260532%_ - '0))) - (begin - (let ((_g84102_ - (let () - (declare (not safe)) - (if (##values? - _g84101_) - (##vector-length - _g84101_) - 1)))) - (if (not (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##fx= _g84102_ 2))) - (error "Context expects 2 values" _g84102_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6051460535%_ - (let () - (declare (not safe)) - (##vector-ref - _g84101_ - 0))) - (_%tl6051660538%_ - (let () - (declare (not safe)) - (##vector-ref - _g84101_ - 1)))) - (if (gx#stx-null? - _%tl6051660538%_) - (letrec ((_%loop6051760541%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6051560545%_ _%mixin6052160548%_) - (if (gx#stx-pair? _%hd6051560545%_) - (let ((_%e6051860551%_ - (gx#syntax-e _%hd6051560545%_))) - (let ((_%lp-hd6051960555%_ - (let () - (declare (not safe)) - (##car _%e6051860551%_))) - (_%lp-tl6052060558%_ - (let () - (declare (not safe)) - (##cdr _%e6051860551%_)))) - (_%loop6051760541%_ - _%lp-tl6052060558%_ - (cons _%lp-hd6051960555%_ - _%mixin6052160548%_)))) - (let ((_%mixin6052260561%_ - (reverse _%mixin6052160548%_))) - ((lambda (_%L60565%_) - (let* ((_%g6058260599%_ - (lambda (_%g6058360595%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6058360595%_))) - (_%g6058161380%_ - (lambda (_%g6058360603%_) - (if (gx#stx-pair/null? - _%g6058360603%_) - (let ((_g84103_ - (gx#syntax-split-splice - _%g6058360603%_ - '0))) - (begin - (let ((_g84104_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (if (##values? _g84103_) - (##vector-length _g84103_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84104_ 2))) - (error "Context expects 2 values" _g84104_))) - (let ((_%target6058560606%_ - (let () (declare (not safe)) (##vector-ref _g84103_ 0))) - (_%tl6058760609%_ - (let () (declare (not safe)) (##vector-ref _g84103_ 1)))) - (if (gx#stx-null? _%tl6058760609%_) - (letrec ((_%loop6058860612%_ - (lambda (_%hd6058660616%_ _%method6059260619%_) - (if (gx#stx-pair? _%hd6058660616%_) - (let ((_%e6058960622%_ - (gx#syntax-e _%hd6058660616%_))) - (let ((_%lp-hd6059060626%_ - (let () - (declare (not safe)) - (##car _%e6058960622%_))) - (_%lp-tl6059160629%_ - (let () - (declare (not safe)) - (##cdr _%e6058960622%_)))) - (_%loop6058860612%_ - _%lp-tl6059160629%_ - (cons _%lp-hd6059060626%_ - _%method6059260619%_)))) - (let ((_%method6059360632%_ - (reverse _%method6059260619%_))) - ((lambda (_%L60636%_) - (let* ((_%g6065360670%_ - (lambda (_%g6065460666%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6065460666%_))) - (_%g6065261368%_ - (lambda (_%g6065460674%_) - (if (gx#stx-pair/null? - _%g6065460674%_) - (let ((_g84105_ - (gx#syntax-split-splice - _%g6065460674%_ - '0))) - (begin - (let ((_g84106_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (if (##values? _g84105_) - (##vector-length _g84105_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g84106_ 2))) - (error "Context expects 2 values" _g84106_))) - (let ((_%target6065660677%_ - (let () - (declare (not safe)) - (##vector-ref _g84105_ 0))) - (_%tl6065860680%_ - (let () - (declare (not safe)) - (##vector-ref _g84105_ 1)))) - (if (gx#stx-null? _%tl6065860680%_) - (letrec ((_%loop6065960683%_ - (lambda (_%hd6065760687%_ - _%method-name6066360690%_) - (if (gx#stx-pair? _%hd6065760687%_) - (let ((_%e6066060693%_ - (gx#syntax-e - _%hd6065760687%_))) - (let ((_%lp-hd6066160697%_ - (let () - (declare (not safe)) - (##car _%e6066060693%_))) - (_%lp-tl6066260700%_ - (let () - (declare (not safe)) - (##cdr _%e6066060693%_)))) - (_%loop6065960683%_ - _%lp-tl6066260700%_ - (cons _%lp-hd6066160697%_ - _%method-name6066360690%_)))) - (let ((_%method-name6066460703%_ - (reverse _%method-name6066360690%_))) - ((lambda (_%L60707%_) - (let* ((_%g6072460741%_ - (lambda (_%g6072560737%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6072560737%_))) - (_%g6072361356%_ - (lambda (_%g6072560745%_) - (if (gx#stx-pair/null? - _%g6072560745%_) - (let ((_g84107_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g6072560745%_ '0))) - (begin - (let ((_g84108_ - (let () - (declare (not safe)) - (if (##values? _g84107_) - (##vector-length _g84107_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g84108_ 2))) - (error "Context expects 2 values" _g84108_))) - (let ((_%target6072760748%_ - (let () - (declare (not safe)) - (##vector-ref _g84107_ 0))) - (_%tl6072960751%_ - (let () - (declare (not safe)) - (##vector-ref _g84107_ 1)))) - (if (gx#stx-null? _%tl6072960751%_) - (letrec ((_%loop6073060754%_ - (lambda (_%hd6072860758%_ - _%method-signature6073460761%_) - (if (gx#stx-pair? _%hd6072860758%_) - (let ((_%e6073160764%_ - (gx#syntax-e - _%hd6072860758%_))) - (let ((_%lp-hd6073260768%_ - (let () - (declare (not safe)) - (##car _%e6073160764%_))) - (_%lp-tl6073360771%_ - (let () - (declare (not safe)) - (##cdr _%e6073160764%_)))) - (_%loop6073060754%_ - _%lp-tl6073360771%_ - (cons _%lp-hd6073260768%_ - _%method-signature6073460761%_)))) - (let ((_%method-signature6073560774%_ - (reverse _%method-signature6073460761%_))) - ((lambda (_%L60778%_) - (let* ((_%g6079560812%_ - (lambda (_%g6079660808%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6079660808%_))) - (_%g6079461341%_ - (lambda (_%g6079660816%_) - (if (gx#stx-pair/null? -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6079660816%_) - (let ((_g84109_ - (gx#syntax-split-splice _%g6079660816%_ '0))) - (begin - (let ((_g84110_ - (let () - (declare (not safe)) - (if (##values? _g84109_) - (##vector-length _g84109_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g84110_ 2))) - (error "Context expects 2 values" - _g84110_))) - (let ((_%target6079860819%_ - (let () - (declare (not safe)) - (##vector-ref _g84109_ 0))) - (_%tl6080060822%_ - (let () - (declare (not safe)) - (##vector-ref _g84109_ 1)))) - (if (gx#stx-null? _%tl6080060822%_) - (letrec ((_%loop6080160825%_ - (lambda (_%hd6079960829%_ - _%method-impl-name6080560832%_) - (if (gx#stx-pair? - _%hd6079960829%_) - (let ((_%e6080260835%_ - (gx#syntax-e - _%hd6079960829%_))) - (let ((_%lp-hd6080360839%_ - (let () - (declare + _%g6058760590%_))) + (_%g6058561698%_ + (lambda (_%g6058760598%_) + ((lambda (_%L60601%_) + (let* ((_%g6061460631%_ + (lambda (_%g6061560627%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6061560627%_))) + (_%g6061361694%_ + (lambda (_%g6061560635%_) + (if (gx#stx-pair/null? + _%g6061560635%_) + (let ((_g85086_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-split-splice _%g6061560635%_ '0))) + (begin + (let ((_g85087_ + (let () + (declare (not safe)) + (if (##values? _g85086_) + (##values-length _g85086_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g85087_ 2))) + (error "Context expects 2 values" _g85087_))) + (let ((_%target6061760638%_ + (let () + (declare (not safe)) + (##values-ref _g85086_ 0))) + (_%tl6061960641%_ + (let () + (declare (not safe)) + (##values-ref _g85086_ 1)))) + (if (gx#stx-null? _%tl6061960641%_) + (letrec ((_%loop6062060644%_ + (lambda (_%hd6061860648%_ + _%mixin6062460651%_) + (if (gx#stx-pair? _%hd6061860648%_) + (let ((_%e6062160654%_ + (gx#syntax-e + _%hd6061860648%_))) + (let ((_%lp-hd6062260658%_ + (let () + (declare (not safe)) + (##car _%e6062160654%_))) + (_%lp-tl6062360661%_ + (let () + (declare (not safe)) + (##cdr _%e6062160654%_)))) + (_%loop6062060644%_ + _%lp-tl6062360661%_ + (cons _%lp-hd6062260658%_ + _%mixin6062460651%_)))) + (let ((_%mixin6062560664%_ + (reverse _%mixin6062460651%_))) + ((lambda (_%L60668%_) + (let* ((_%g6068560702%_ + (lambda (_%g6068660698%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6068660698%_))) + (_%g6068461674%_ + (lambda (_%g6068660706%_) + (if (gx#stx-pair/null? +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6068660706%_) + (let ((_g85088_ + (gx#syntax-split-splice _%g6068660706%_ '0))) + (begin + (let ((_g85089_ + (let () + (declare (not safe)) + (if (##values? _g85088_) + (##values-length _g85088_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g85089_ 2))) + (error "Context expects 2 values" _g85089_))) + (let ((_%target6068860709%_ + (let () + (declare (not safe)) + (##values-ref _g85088_ 0))) + (_%tl6069060712%_ + (let () + (declare (not safe)) + (##values-ref _g85088_ 1)))) + (if (gx#stx-null? _%tl6069060712%_) + (letrec ((_%loop6069160715%_ + (lambda (_%hd6068960719%_ + _%method6069560722%_) + (if (gx#stx-pair? + _%hd6068960719%_) + (let ((_%e6069260725%_ + (gx#syntax-e + _%hd6068960719%_))) + (let ((_%lp-hd6069360729%_ + (let () + (declare + (not safe)) + (##car _%e6069260725%_))) + (_%lp-tl6069460732%_ + (let () + (declare + (not safe)) + (##cdr _%e6069260725%_)))) + (_%loop6069160715%_ + _%lp-tl6069460732%_ + (cons _%lp-hd6069360729%_ + _%method6069560722%_)))) + (let ((_%method6069660735%_ + (reverse _%method6069560722%_))) + ((lambda (_%L60739%_) + (let* ((_%g6075660773%_ + (lambda (_%g6075760769%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6075760769%_))) + (_%g6075561662%_ + (lambda (_%g6075760777%_) + (if (gx#stx-pair/null? _%g6075760777%_) + (let ((_g85090_ + (gx#syntax-split-splice + _%g6075760777%_ + '0))) + (begin + (let ((_g85091_ + (let () + (declare (not safe)) + (if (##values? _g85090_) + (##values-length _g85090_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g85091_ 2))) + (error "Context expects 2 values" + _g85091_))) + (let ((_%target6075960780%_ + (let () + (declare (not safe)) + (##values-ref _g85090_ 0))) + (_%tl6076160783%_ + (let () + (declare (not safe)) + (##values-ref _g85090_ 1)))) + (if (gx#stx-null? _%tl6076160783%_) + (letrec ((_%loop6076260786%_ + (lambda (_%hd6076060790%_ + _%method-name6076660793%_) + (if (gx#stx-pair? + _%hd6076060790%_) + (let ((_%e6076360796%_ + (gx#syntax-e + _%hd6076060790%_))) + (let ((_%lp-hd6076460800%_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _%e6080260835%_))) - (_%lp-tl6080460842%_ - (let () (declare (not safe)) (##cdr _%e6080260835%_)))) - (_%loop6080160825%_ - _%lp-tl6080460842%_ - (cons _%lp-hd6080360839%_ _%method-impl-name6080560832%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%method-impl-name6080660845%_ - (reverse _%method-impl-name6080560832%_))) - ((lambda (_%L60849%_) - (let* ((_%g6086660883%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6086760879%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6086760879%_))) - (_%g6086561326%_ - (lambda (_%g6086760887%_) - (if (gx#stx-pair/null? _%g6086760887%_) - (let ((_g84111_ - (gx#syntax-split-splice - _%g6086760887%_ - '0))) - (begin - (let ((_g84112_ - (let () - (declare (not safe)) - (if (##values? _g84111_) - (##vector-length _g84111_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g84112_ 2))) - (error "Context expects 2 values" - _g84112_))) - (let ((_%target6086960890%_ - (let () - (declare (not safe)) - (##vector-ref _g84111_ 0))) - (_%tl6087160893%_ - (let () - (declare (not safe)) - (##vector-ref _g84111_ 1)))) - (if (gx#stx-null? _%tl6087160893%_) - (letrec ((_%loop6087260896%_ - (lambda (_%hd6087060900%_ - _%unchecked-method-impl-name6087660903%_) - (if (gx#stx-pair? - _%hd6087060900%_) - (let ((_%e6087360906%_ - (gx#syntax-e + (declare (not safe)) + (##car _%e6076360796%_))) + (_%lp-tl6076560803%_ + (let () (declare (not safe)) (##cdr _%e6076360796%_)))) + (_%loop6076260786%_ + _%lp-tl6076560803%_ + (cons _%lp-hd6076460800%_ _%method-name6076660793%_)))) + (let ((_%method-name6076760806%_ + (reverse _%method-name6076660793%_))) + ((lambda (_%L60810%_) + (let* ((_%g6082760844%_ + (lambda (_%g6082860840%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6082860840%_))) + (_%g6082661650%_ + (lambda (_%g6082860848%_) + (if (gx#stx-pair/null? _%g6082860848%_) + (let ((_g85092_ + (gx#syntax-split-splice + _%g6082860848%_ + '0))) + (begin + (let ((_g85093_ + (let () + (declare (not safe)) + (if (##values? _g85092_) + (##values-length _g85092_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g85093_ 2))) + (error "Context expects 2 values" + _g85093_))) + (let ((_%target6083060851%_ + (let () + (declare (not safe)) + (##values-ref _g85092_ 0))) + (_%tl6083260854%_ + (let () + (declare (not safe)) + (##values-ref _g85092_ 1)))) + (if (gx#stx-null? _%tl6083260854%_) + (letrec ((_%loop6083360857%_ + (lambda (_%hd6083160861%_ + _%mixin-precedence-list6083760864%_) + (if (gx#stx-pair? + _%hd6083160861%_) + (let ((_%e6083460867%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd6087060900%_))) - (let ((_%lp-hd6087460910%_ - (let () - (declare (not safe)) - (##car _%e6087360906%_))) - (_%lp-tl6087560913%_ - (let () - (declare (not safe)) - (##cdr _%e6087360906%_)))) - (_%loop6087260896%_ - _%lp-tl6087560913%_ - (cons _%lp-hd6087460910%_ - _%unchecked-method-impl-name6087660903%_)))) - (let ((_%unchecked-method-impl-name6087760916%_ - (reverse _%unchecked-method-impl-name6087660903%_))) - ((lambda (_%L60920%_) - (let* ((_%g6093760954%_ - (lambda (_%g6093860950%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6093860950%_))) - (_%g6093661306%_ - (lambda (_%g6093860958%_) - (if (gx#stx-pair/null? _%g6093860958%_) - (let ((_g84113_ - (gx#syntax-split-splice - _%g6093860958%_ - '0))) - (begin - (let ((_g84114_ - (let () - (declare (not safe)) - (if (##values? _g84113_) - (##vector-length _g84113_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g84114_ 2))) - (error "Context expects 2 values" - _g84114_))) - (let ((_%target6094060961%_ - (let () - (declare (not safe)) - (##vector-ref _g84113_ 0))) - (_%tl6094260964%_ - (let () - (declare (not safe)) - (##vector-ref _g84113_ 1)))) - (if (gx#stx-null? _%tl6094260964%_) - (letrec ((_%loop6094360967%_ - (lambda (_%hd6094160971%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%defmethod-impl6094760974%_) - (if (gx#stx-pair? _%hd6094160971%_) - (let ((_%e6094460977%_ (gx#syntax-e _%hd6094160971%_))) - (let ((_%lp-hd6094560981%_ - (let () - (declare (not safe)) - (##car _%e6094460977%_))) - (_%lp-tl6094660984%_ - (let () - (declare (not safe)) - (##cdr _%e6094460977%_)))) - (_%loop6094360967%_ - _%lp-tl6094660984%_ - (cons _%lp-hd6094560981%_ - _%defmethod-impl6094760974%_)))) - (let ((_%defmethod-impl6094860987%_ - (reverse _%defmethod-impl6094760974%_))) - ((lambda (_%L60991%_) - (let* ((_%g6100861016%_ - (lambda (_%g6100961012%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6100961012%_))) - (_%g6100761286%_ - (lambda (_%g6100961020%_) - ((lambda (_%L61023%_) - (let* ((_%g6103661044%_ - (lambda (_%g6103761040%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6103761040%_))) - (_%g6103561266%_ - (lambda (_%g6103761048%_) - ((lambda (_%L61051%_) - (let* ((_%g6106461072%_ - (lambda (_%g6106561068%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6106561068%_))) - (_%g6106361262%_ - (lambda (_%g6106561076%_) - ((lambda (_%L61079%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g6109261100%_ - (lambda (_%g6109361096%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6109361096%_))) - (_%g6109161258%_ - (lambda (_%g6109361104%_) - ((lambda (_%L61107%_) - (let* ((_%g6112061128%_ - (lambda (_%g6112161124%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6112161124%_))) - (_%g6111961254%_ - (lambda (_%g6112161132%_) - ((lambda (_%L61135%_) - (let* ((_%g6114861156%_ - (lambda (_%g6114961152%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6114961152%_))) - (_%g6114761250%_ - (lambda (_%g6114961160%_) - ((lambda (_%L61163%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g6117661184%_ - (lambda (_%g6117761180%_) + (gx#syntax-e _%hd6083160861%_))) + (let ((_%lp-hd6083560871%_ + (let () + (declare (not safe)) + (##car _%e6083460867%_))) + (_%lp-tl6083660874%_ + (let () + (declare (not safe)) + (##cdr _%e6083460867%_)))) + (_%loop6083360857%_ + _%lp-tl6083660874%_ + (cons _%lp-hd6083560871%_ + _%mixin-precedence-list6083760864%_)))) + (let ((_%mixin-precedence-list6083860877%_ + (reverse _%mixin-precedence-list6083760864%_))) + ((lambda (_%L60881%_) + (let* ((_%linearized-mixins60906%_ + (map gx#syntax-local-value + (foldr (lambda (_%g6089760900%_ + _%g6089860903%_) + (cons _%g6089760900%_ + _%g6089860903%_)) + '() + _%L60881%_))) + (_%g6090960926%_ + (lambda (_%g6091060922%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6117761180%_))) - (_%g6117561214%_ - (lambda (_%g6117761188%_) - ((lambda (_%L61191%_) - (cons (gx#datum->syntax '#f 'begin) - (cons _%L61023%_ - (cons _%L61051%_ - (cons _%L61079%_ - (cons _%L61107%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L61135%_ - (cons _%L61163%_ - (cons _%L61191%_ - (foldr (lambda (_%g6120561208%_ - _%g6120661211%_) - (cons _%g6120561208%_ - _%g6120661211%_)) - '() - _%L60991%_)))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6117761188%_)))) - (_%g6117561214%_ - (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L60275%_ - (cons (cons (gx#datum->syntax - '#f - 'make-interface-info) - (cons 'name: - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote) - (cons _%L60275%_ '())) - (cons 'interface-mixin: - (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g6122361226%_ - _%g6122461229%_) - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%g6122361226%_ + _%g6091060922%_))) + (_%g6090861633%_ + (lambda (_%g6091060930%_) + (if (gx#stx-pair/null? _%g6091060930%_) + (let ((_g85094_ + (gx#syntax-split-splice + _%g6091060930%_ + '0))) + (begin + (let ((_g85095_ + (let () + (declare (not safe)) + (if (##values? _g85094_) + (##values-length + _g85094_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g85095_ 2))) + (error "Context expects 2 values" + _g85095_))) + (let ((_%target6091260933%_ + (let () + (declare (not safe)) + (##values-ref _g85094_ 0))) + (_%tl6091460936%_ + (let () + (declare (not safe)) + (##values-ref + _g85094_ + 1)))) + (if (gx#stx-null? + _%tl6091460936%_) + (letrec ((_%loop6091560939%_ + (lambda (_%hd6091360943%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%method-name-spec6091960946%_) + (if (gx#stx-pair? _%hd6091360943%_) + (let ((_%e6091660949%_ + (gx#syntax-e _%hd6091360943%_))) + (let ((_%lp-hd6091760953%_ + (let () + (declare (not safe)) + (##car _%e6091660949%_))) + (_%lp-tl6091860956%_ + (let () + (declare (not safe)) + (##cdr _%e6091660949%_)))) + (_%loop6091560939%_ + _%lp-tl6091860956%_ + (cons _%lp-hd6091760953%_ + _%method-name-spec6091960946%_)))) + (let ((_%method-name-spec6092060959%_ + (reverse _%method-name-spec6091960946%_))) + ((lambda (_%L60963%_) + (let* ((_%g6098160998%_ + (lambda (_%g6098260994%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6098260994%_))) + (_%g6098061621%_ + (lambda (_%g6098261002%_) + (if (gx#stx-pair/null? _%g6098261002%_) + (let ((_g85096_ + (gx#syntax-split-splice + _%g6098261002%_ + '0))) + (begin + (let ((_g85097_ + (let () + (declare (not safe)) + (if (##values? + _g85096_) + (##values-length + _g85096_) + 1)))) + (if (not (let () + (declare + (not safe)) + (##fx= _g85097_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - _%g6122461229%_)) + 2))) + (error "Context expects 2 values" _g85097_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '() - _%L60565%_)) - (cons 'interface-methods: - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons (foldr (lambda (_%g6122161232%_ + (let ((_%target6098461005%_ + (let () + (declare (not safe)) + (##values-ref + _g85096_ + 0))) + (_%tl6098661008%_ + (let () + (declare (not safe)) + (##values-ref + _g85096_ + 1)))) + (if (gx#stx-null? + _%tl6098661008%_) + (letrec ((_%loop6098761011%_ + (lambda (_%hd6098561015%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%method-signature6099161018%_) + (if (gx#stx-pair? _%hd6098561015%_) + (let ((_%e6098861021%_ + (gx#syntax-e _%hd6098561015%_))) + (let ((_%lp-hd6098961025%_ + (let () + (declare (not safe)) + (##car _%e6098861021%_))) + (_%lp-tl6099061028%_ + (let () + (declare (not safe)) + (##cdr _%e6098861021%_)))) + (_%loop6098761011%_ + _%lp-tl6099061028%_ + (cons _%lp-hd6098961025%_ + _%method-signature6099161018%_)))) + (let ((_%method-signature6099261031%_ + (reverse _%method-signature6099161018%_))) + ((lambda (_%L61035%_) + (let* ((_%g6105261069%_ + (lambda (_%g6105361065%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6105361065%_))) + (_%g6105161606%_ + (lambda (_%g6105361073%_) + (if (gx#stx-pair/null? + _%g6105361073%_) + (let ((_g85098_ + (gx#syntax-split-splice + _%g6105361073%_ + '0))) + (begin + (let ((_g85099_ + (let () + (declare + (not safe)) + (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6122261235%_) - (cons _%g6122161232%_ _%g6122261235%_)) - '() - _%L60636%_) - '())) + _g85098_) + (##values-length _g85098_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g85099_ 2))) + (error "Context expects 2 values" _g85099_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons 'instance-type: - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'quote-syntax) - (cons _%L60302%_ '())) - (cons 'interface-descriptor: - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L60386%_ '())) - (cons 'instance-constructor: - (cons (cons (gx#datum->syntax + (let ((_%target6105561076%_ + (let () + (declare + (not safe)) + (##values-ref + _g85098_ + 0))) + (_%tl6105761079%_ + (let () + (declare + (not safe)) + (##values-ref + _g85098_ + 1)))) + (if (gx#stx-null? + _%tl6105761079%_) + (letrec ((_%loop6105861082%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd6105661086%_ + _%method-impl-name6106261089%_) + (if (gx#stx-pair? _%hd6105661086%_) + (let ((_%e6105961092%_ + (gx#syntax-e _%hd6105661086%_))) + (let ((_%lp-hd6106061096%_ + (let () + (declare (not safe)) + (##car _%e6105961092%_))) + (_%lp-tl6106161099%_ + (let () + (declare (not safe)) + (##cdr _%e6105961092%_)))) + (_%loop6105861082%_ + _%lp-tl6106161099%_ + (cons _%lp-hd6106061096%_ + _%method-impl-name6106261089%_)))) + (let ((_%method-impl-name6106361102%_ + (reverse _%method-impl-name6106261089%_))) + ((lambda (_%L61106%_) + (let* ((_%g6112361140%_ + (lambda (_%g6112461136%_) + (gx#raise-syntax-error '#f - 'quote-syntax) - (cons _%L60414%_ '())) - (cons 'instance-try-constructor: - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%L60442%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons 'instance-predicate: - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L60470%_ '())) - (cons 'instance-satisfies-predicate: - (cons (cons (gx#datum->syntax + '"Bad syntax; invalid match target" + _%g6112461136%_))) + (_%g6112261591%_ + (lambda (_%g6112461144%_) + (if (gx#stx-pair/null? + _%g6112461144%_) + (let ((_g85100_ + (gx#syntax-split-splice + _%g6112461144%_ + '0))) + (begin + (let ((_g85101_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (if (##values? _g85100_) + (##values-length _g85100_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g85101_ 2))) + (error "Context expects 2 values" _g85101_))) + (let ((_%target6112661147%_ + (let () + (declare (not safe)) + (##values-ref _g85100_ 0))) + (_%tl6112861150%_ + (let () + (declare (not safe)) + (##values-ref _g85100_ 1)))) + (if (gx#stx-null? _%tl6112861150%_) + (letrec ((_%loop6112961153%_ + (lambda (_%hd6112761157%_ + _%unchecked-method-impl-name6113361160%_) + (if (gx#stx-pair? _%hd6112761157%_) + (let ((_%e6113061163%_ + (gx#syntax-e _%hd6112761157%_))) + (let ((_%lp-hd6113161167%_ + (let () + (declare (not safe)) + (##car _%e6113061163%_))) + (_%lp-tl6113261170%_ + (let () + (declare (not safe)) + (##cdr _%e6113061163%_)))) + (_%loop6112961153%_ + _%lp-tl6113261170%_ + (cons _%lp-hd6113161167%_ + _%unchecked-method-impl-name6113361160%_)))) + (let ((_%unchecked-method-impl-name6113461173%_ + (reverse _%unchecked-method-impl-name6113361160%_))) + ((lambda (_%L61177%_) + (let* ((_%g6119461211%_ + (lambda (_%g6119561207%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6119561207%_))) + (_%g6119361571%_ + (lambda (_%g6119561215%_) + (if (gx#stx-pair/null? + _%g6119561215%_) + (let ((_g85102_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-split-splice _%g6119561215%_ '0))) + (begin + (let ((_g85103_ + (let () + (declare (not safe)) + (if (##values? _g85102_) + (##values-length _g85102_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g85103_ 2))) + (error "Context expects 2 values" _g85103_))) + (let ((_%target6119761218%_ + (let () + (declare (not safe)) + (##values-ref _g85102_ 0))) + (_%tl6119961221%_ + (let () + (declare (not safe)) + (##values-ref _g85102_ 1)))) + (if (gx#stx-null? _%tl6119961221%_) + (letrec ((_%loop6120061224%_ + (lambda (_%hd6119861228%_ + _%defmethod-impl6120461231%_) + (if (gx#stx-pair? _%hd6119861228%_) + (let ((_%e6120161234%_ + (gx#syntax-e + _%hd6119861228%_))) + (let ((_%lp-hd6120261238%_ + (let () + (declare (not safe)) + (##car _%e6120161234%_))) + (_%lp-tl6120361241%_ + (let () + (declare (not safe)) + (##cdr _%e6120161234%_)))) + (_%loop6120061224%_ + _%lp-tl6120361241%_ + (cons _%lp-hd6120261238%_ + _%defmethod-impl6120461231%_)))) + (let ((_%defmethod-impl6120561244%_ + (reverse _%defmethod-impl6120461231%_))) + ((lambda (_%L61248%_) + (let* ((_%g6126561273%_ + (lambda (_%g6126661269%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6126661269%_))) + (_%g6126461551%_ + (lambda (_%g6126661277%_) + ((lambda (_%L61280%_) + (let* ((_%g6129361301%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g6129461297%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6129461297%_))) + (_%g6129261531%_ + (lambda (_%g6129461305%_) + ((lambda (_%L61308%_) + (let* ((_%g6132161329%_ + (lambda (_%g6132261325%_) + (gx#raise-syntax-error '#f - 'quote-syntax) - (cons _%L60498%_ '())) - (cons 'implementation-methods: - (cons (cons (gx#datum->syntax + '"Bad syntax; invalid match target" + _%g6132261325%_))) + (_%g6132061527%_ + (lambda (_%g6132261333%_) + ((lambda (_%L61336%_) + (let* ((_%g6134961357%_ + (lambda (_%g6135061353%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6135061353%_))) + (_%g6134861523%_ + (lambda (_%g6135061361%_) + ((lambda (_%L61364%_) + (let* ((_%g6137761385%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g6137861381%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6137861381%_))) + (_%g6137661519%_ + (lambda (_%g6137861389%_) + ((lambda (_%L61392%_) + (let* ((_%g6140561413%_ + (lambda (_%g6140661409%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6140661409%_))) + (_%g6140461515%_ + (lambda (_%g6140661417%_) + ((lambda (_%L61420%_) + (let* ((_%g6143361441%_ + (lambda (_%g6143461437%_) + (gx#raise-syntax-error '#f - '@list) - (foldr (lambda (_%g6121961238%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6122061241%_) - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g6121961238%_ '())) - _%g6122061241%_)) - '() - _%L60849%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons 'unchecked-implementation-methods: - (cons (cons (gx#datum->syntax + '"Bad syntax; invalid match target" + _%g6143461437%_))) + (_%g6143261471%_ + (lambda (_%g6143461445%_) + ((lambda (_%L61448%_) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@list) - (foldr (lambda (_%g6121761244%_ _%g6121861247%_) - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%g6121761244%_ '())) - _%g6121861247%_)) - '() - _%L60920%_)) - '()))))))))))))))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '#f + 'begin) + (cons _%L61280%_ + (cons _%L61308%_ + (cons _%L61336%_ + (cons _%L61364%_ + (cons _%L61392%_ + (cons _%L61420%_ + (cons _%L61448%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (foldr (lambda (_%g6146261465%_ _%g6146361468%_) + (cons _%g6146261465%_ _%g6146361468%_)) + '() + _%L61248%_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g6143461445%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) - _%g6114961160%_)))) - (_%g6114761250%_ - (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L60498%_ - (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: + (_%g6143261471%_ + (cons (gx#datum->syntax + '#f + 'defsyntax) + (cons _%L60350%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'pure) '()) - (cons 'arguments: + '#f + 'make-interface-info) + (cons 'name: (cons (cons (gx#datum->syntax '#f - 't::t) - '()) - '()))))))) + 'quote) + (cons _%L60350%_ '())) + (cons 'namespace: + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'quote) + (cons _%L60377%_ '())) + (cons 'interface-mixin: + (cons (cons (gx#datum->syntax '#f '@list) + (foldr (lambda (_%g6148261485%_ + _%g6148361488%_) + (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%g6148261485%_ + '())) + _%g6148361488%_)) + '() + _%L60668%_)) + (cons 'interface-precedence-list: + (cons (cons (gx#datum->syntax '#f '@list) + (foldr (lambda (_%g6148061491%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6148161494%_) + (cons (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _%g6148061491%_ '())) + _%g6148161494%_)) + '() + _%L60881%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons 'interface-methods: + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons (foldr (lambda (_%g6147861497%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6147961500%_) + (cons _%g6147861497%_ _%g6147961500%_)) + '() + _%L60739%_) + '())) + (cons 'instance-type: + (cons (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _%L60405%_ '())) + (cons 'interface-descriptor: + (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%L60489%_ '())) + (cons 'instance-constructor: (cons (cons (gx#datum->syntax '#f - 'and) + 'quote-syntax) + (cons _%L60517%_ '())) + (cons 'instance-try-constructor: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'satisfies?) - (cons _%L60386%_ - (cons (gx#datum->syntax '#f 'obj) '()))) - (cons '#t '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6112161132%_)))) - (_%g6111961254%_ - (cons (gx#datum->syntax '#f 'def) - (cons _%L60470%_ - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax '#f '@mop.predicate) - (cons _%L60330%_ '())) - (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons (gx#datum->syntax - '#f - 'obj) - '()) - (cons (cons (gx#datum->syntax - '#f - 'direct-instance?) - (cons _%L60302%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f 'obj) '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6109361104%_)))) - (_%g6109161258%_ - (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L60442%_ - (cons (gx#datum->syntax - '#f - 'obj) - '())) + 'quote-syntax) + (cons _%L60545%_ '())) + (cons 'instance-predicate: + (cons (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _%L60573%_ '())) + (cons 'instance-satisfies-predicate: (cons (cons (gx#datum->syntax '#f - 'begin-annotation) + 'quote-syntax) + (cons _%L60601%_ '())) + (cons 'implementation-methods: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - '@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 + '@list) + (foldr (lambda (_%g6147661503%_ _%g6147761506%_) + (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%g6147661503%_ '())) + _%g6147761506%_)) + '() + _%L61106%_)) + (cons 'unchecked-implementation-methods: + (cons (cons (gx#datum->syntax '#f '@list) + (foldr (lambda (_%g6147461509%_ + _%g6147561512%_) + (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%g6147461509%_ + '())) + _%g6147561512%_)) + '() + _%L61177%_)) + '()))))))))))))))))))))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g6140661417%_)))) + (_%g6140461515%_ + (cons (gx#datum->syntax '#f 'def) + (cons (cons _%L60601%_ + (cons (gx#datum->syntax + '#f + 'obj) + '())) + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 't::t) - '()) - '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax '#f 'try-cast) - (cons _%L60386%_ - (cons (gx#datum->syntax '#f 'obj) '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) - _%g6106561076%_)))) - (_%g6106361262%_ - (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L60414%_ - (cons (gx#datum->syntax '#f 'obj) '())) - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) + '#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) '()) + '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax '#f - '@type.signature) - (cons 'return: - (cons _%L60330%_ - (cons 'effect: + 'satisfies?) + (cons _%L60489%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'obj) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons '#t '()))) + '()))) + '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g6137861389%_)))) + (_%g6137661519%_ + (cons (gx#datum->syntax '#f 'def) + (cons _%L60573%_ + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax + '#f + '@mop.predicate) + (cons _%L60433%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) + (cons (cons (gx#datum->syntax '#f 'lambda) + (cons (cons (gx#datum->syntax '#f 'obj) '()) + (cons (cons (gx#datum->syntax + '#f + 'direct-instance?) + (cons _%L60405%_ + (cons (gx#datum->syntax + '#f + 'obj) + '()))) + '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))))) + _%g6135061361%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6134861523%_ + (cons (gx#datum->syntax + '#f + 'def) + (cons (cons _%L60545%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (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: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'cast) '()) - (cons 'arguments: + (cons (cons (gx#datum->syntax '#f 'cast) '()) + (cons 'arguments: + (cons (cons (gx#datum->syntax '#f 't::t) + '()) + '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f - 't::t) - '()) - '()))))))) + 'try-cast) + (cons _%L60489%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'obj) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'cast) - (cons _%L60386%_ - (cons (gx#datum->syntax + '()))) + '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g6132261333%_)))) + (_%g6132061527%_ + (cons (gx#datum->syntax '#f 'def) + (cons (cons _%L60517%_ + (cons (gx#datum->syntax + '#f + 'obj) + '())) + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'obj) - '()))) + '#f + '@type.signature) + (cons 'return: + (cons _%L60433%_ + (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 'cast) + (cons _%L60489%_ + (cons (gx#datum->syntax + '#f + 'obj) + '()))) + '()))) + '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g6129461305%_)))) + (_%g6129261531%_ + (cons (gx#datum->syntax '#f 'def) + (cons _%L60489%_ + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax + '#f + '@interface) + (cons _%L60433%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (foldr (lambda (_%g6153661539%_ + _%g6153761542%_) + (cons _%g6153661539%_ + _%g6153761542%_)) + '() + _%L60810%_) + '()))) + (cons (cons (gx#datum->syntax '#f 'make-interface-descriptor) + (cons _%L60405%_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons (foldr (lambda (_%g6153461545%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6153561548%_) + (cons _%g6153461545%_ _%g6153561548%_)) + '() + _%L60963%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())))))) + '())) + '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))))) + _%g6126661277%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6126461551%_ + (cons (gx#datum->syntax + '#f + 'def) + (cons _%L60405%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons (gx#datum->syntax '#f 'begin-annotation) + (cons (cons (gx#datum->syntax + '#f + '@mop.class) + (cons _%L60461%_ + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'interface-instance::t) + '()) + (cons (foldr (lambda (_%g6155661559%_ _%g6155761562%_) + (cons _%g6155661559%_ _%g6155761562%_)) + '() + _%L60810%_) + (cons '#f (cons '#t (cons '#t (cons '#f '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6103761048%_)))) - (_%g6103561266%_ - (cons (gx#datum->syntax '#f 'def) - (cons _%L60386%_ + (cons (cons (gx#datum->syntax + '#f + 'make-class-type) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax '#f '@interface) - (cons _%L60330%_ - (cons (foldr (lambda (_%g6127161274%_ + 'quote) + (cons _%L60461%_ '())) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%L60350%_ '())) + (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 (_%g6155461565%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6127261277%_) - (cons _%g6127161274%_ _%g6127261277%_)) + _%g6155561568%_) + (cons _%g6155461565%_ _%g6155561568%_)) '() - _%L60707%_) + _%L60810%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons (gx#datum->syntax - '#f - 'make-interface-descriptor) - (cons _%L60302%_ - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons (foldr (lambda (_%g6126961280%_ + '())) + (cons (cons (gx#datum->syntax + '#f + 'quote) + (cons (cons (cons 'final: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6127061283%_) - (cons _%g6126961280%_ _%g6127061283%_)) - '() - _%L60707%_) - '())) - '()))) + '#t) + (cons (cons 'struct: '#t) '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())))))) + (cons '#f '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6100961020%_)))) - (_%g6100761286%_ - (cons (gx#datum->syntax '#f 'def) - (cons _%L60302%_ - (cons (cons (gx#datum->syntax - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax + '()))) + '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%defmethod-impl6120561244%_)))))) + (_%loop6120061224%_ _%target6119761218%_ '())) + (_%g6119461211%_ _%g6119561215%_))))) + (_%g6119461211%_ _%g6119561215%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6119361571%_ + (map (_%make-method-defs60225%_ + _%L60350%_) + (foldr (lambda (_%g6157461577%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '@mop.class) - (cons _%L60358%_ - (cons (cons (gx#datum->syntax - '#f - 'interface-instance::t) - '()) - (cons (foldr (lambda (_%g6129161294%_ - _%g6129261297%_) - (cons _%g6129161294%_ - _%g6129261297%_)) - '() - _%L60707%_) - (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 _%L60358%_ '())) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L60275%_ '())) - (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 (_%g6128961300%_ + _%g6157561580%_) + (cons _%g6157461577%_ _%g6157561580%_)) + '() + _%L60739%_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp85104 + (length (foldr (lambda (_%g6158261585%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6129061303%_) - (cons _%g6128961300%_ _%g6129061303%_)) + _%g6158361588%_) + (cons _%g6158261585%_ _%g6158361588%_)) '() - _%L60707%_) - '())) - (cons (cons (gx#datum->syntax '#f 'quote) - (cons (cons (cons 'final: '#t) - (cons (cons 'struct: '#t) '())) - '())) - (cons '#f '()))))))) + _%L60810%_)))) + (declare (not safe)) + (##iota __tmp85104 '2)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) + _%unchecked-method-impl-name6113461173%_)))))) + (_%loop6112961153%_ _%target6112661147%_ '())) + (_%g6112361140%_ _%g6112461144%_))))) + (_%g6112361140%_ _%g6112461144%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))) - _%defmethod-impl6094860987%_)))))) + (_%g6112261591%_ + (map (lambda (_%method-name61595%_) + (gx#stx-identifier + _%L60350%_ + '"&" + _%L60350%_ + '"-" + _%method-name61595%_)) + (foldr (lambda (_%g6159761600%_ + _%g6159861603%_) + (cons _%g6159761600%_ + _%g6159861603%_)) + '() + _%L60810%_))))) + _%method-impl-name6106361102%_)))))) + (_%loop6105861082%_ _%target6105561076%_ '())) + (_%g6105261069%_ _%g6105361073%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6105261069%_ + _%g6105361073%_))))) + (_%g6105161606%_ + (map (lambda (_%method-name61610%_) + (gx#stx-identifier + _%L60350%_ + _%L60350%_ + '"-" + _%method-name61610%_)) + (foldr (lambda (_%g6161261615%_ + _%g6161361618%_) + (cons _%g6161261615%_ + _%g6161361618%_)) + '() + _%L60810%_))))) + _%method-signature6099261031%_)))))) + (_%loop6098761011%_ _%target6098461005%_ '())) + (_%g6098160998%_ _%g6098261002%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6098160998%_ + _%g6098261002%_))))) + (_%g6098061621%_ + (map gx#stx-cdr + (foldr (lambda (_%g6162461627%_ + _%g6162561630%_) + (cons _%g6162461627%_ + _%g6162561630%_)) + '() + _%L60739%_))))) + _%method-name-spec6092060959%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6091560939%_ + _%target6091260933%_ + '())) + (_%g6090960926%_ + _%g6091060930%_))))) + (_%g6090960926%_ _%g6091060930%_))))) + (_%g6090861633%_ + (let ((__tmp85106 + (lambda (_%g6163661638%_) + (_%make-method-name-spec60227%_ + _%g6163661638%_ + (gx#stx-e _%L60377%_) + _%linearized-mixins60906%_))) + (__tmp85105 + (map gx#stx-e + (foldr (lambda (_%g6164161644%_ + _%g6164261647%_) + (cons _%g6164161644%_ + _%g6164261647%_)) + '() + _%L60810%_)))) + (declare (not safe)) + (##map __tmp85106 __tmp85105))))) + _%mixin-precedence-list6083860877%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6094360967%_ - _%target6094060961%_ - '())) - (_%g6093760954%_ - _%g6093860958%_))))) - (_%g6093760954%_ _%g6093860958%_))))) - (_%g6093661306%_ - (map (_%make-method-defs60152%_ _%L60275%_) - (foldr (lambda (_%g6130961312%_ _%g6131061315%_) - (cons _%g6130961312%_ _%g6131061315%_)) + (_%loop6083360857%_ + _%target6083060851%_ + '())) + (_%g6082760844%_ + _%g6082860848%_))))) + (_%g6082760844%_ _%g6082860848%_))))) + (_%g6082661650%_ + (let ((__tmp85107 + (foldr (lambda (_%g6165361656%_ _%g6165461659%_) + (cons _%g6165361656%_ _%g6165461659%_)) '() - _%L60636%_) - (let ((__tmp84115 - (length (foldr (lambda (_%g6131761320%_ - _%g6131861323%_) - (cons _%g6131761320%_ - _%g6131861323%_)) - '() - _%L60707%_)))) - (declare (not safe)) - (##iota __tmp84115 '2)))))) - _%unchecked-method-impl-name6087760916%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6087260896%_ - _%target6086960890%_ - '())) - (_%g6086660883%_ _%g6086760887%_))))) - (_%g6086660883%_ _%g6086760887%_))))) - (_%g6086561326%_ - (map (lambda (_%method-name61330%_) - (gx#stx-identifier - _%L60275%_ - '"&" - _%L60275%_ - '"-" - _%method-name61330%_)) - (foldr (lambda (_%g6133261335%_ _%g6133361338%_) - (cons _%g6133261335%_ _%g6133361338%_)) - '() - _%L60707%_))))) - _%method-impl-name6080660845%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6080160825%_ - _%target6079860819%_ - '())) - (_%g6079560812%_ _%g6079660816%_))))) - (_%g6079560812%_ _%g6079660816%_))))) - (_%g6079461341%_ - (map (lambda (_%method-name61345%_) - (gx#stx-identifier - _%L60275%_ - _%L60275%_ - '"-" - _%method-name61345%_)) - (foldr (lambda (_%g6134761350%_ _%g6134861353%_) - (cons _%g6134761350%_ _%g6134861353%_)) - '() - _%L60707%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%method-signature6073560774%_)))))) - (_%loop6073060754%_ _%target6072760748%_ '())) - (_%g6072460741%_ _%g6072560745%_))))) - (_%g6072460741%_ _%g6072560745%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6072361356%_ - (map gx#stx-cdr - (foldr (lambda (_%g6135961362%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6136061365%_) - (cons _%g6135961362%_ _%g6136061365%_)) - '() - _%L60636%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%method-name6066460703%_)))))) - (_%loop6065960683%_ _%target6065660677%_ '())) - (_%g6065360670%_ _%g6065460674%_))))) - (_%g6065360670%_ _%g6065460674%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6065261368%_ - (map gx#stx-car - (foldr (lambda (_%g6137161374%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6137261377%_) - (cons _%g6137161374%_ _%g6137261377%_)) - '() - _%L60636%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%method6059360632%_)))))) - (_%loop6058860612%_ _%target6058560606%_ '())) - (_%g6058260599%_ _%g6058360603%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6058260599%_ - _%g6058360603%_))))) - (_%g6058161380%_ - (_%fold-methods60148%_ - (foldr (lambda (_%g6138361386%_ - _%g6138461389%_) - (cons _%g6138361386%_ - _%g6138461389%_)) - '() - _%L60565%_) - (foldr (lambda (_%g6139161394%_ - _%g6139261397%_) - (cons _%g6139161394%_ - _%g6139261397%_)) - '() - _%L60235%_))))) - _%mixin6052260561%_)))))) - (_%loop6051760541%_ _%target6051460535%_ '())) - (_%g6051160528%_ _%g6051260532%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6051160528%_ - _%g6051260532%_))))) - (_%g6051061400%_ - (if (gx#identifier? _%L60237%_) - '() - (gx#stx-cdr _%L60237%_))))) - _%g6048460495%_)))) - (_%g6048261404%_ - (gx#stx-identifier _%L60275%_ '"is-" _%L60275%_ '"?")))) - _%g6045660467%_)))) + _%L60668%_))) + (declare (not safe)) + (gerbil/core/contract~InterfaceInfo#interface-mixin->precedence-list + __tmp85107))))) + _%method-name6076760806%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6076260786%_ + _%target6075960780%_ + '())) + (_%g6075660773%_ _%g6075760777%_))))) + (_%g6075660773%_ _%g6075760777%_))))) + (_%g6075561662%_ + (map gx#stx-car + (foldr (lambda (_%g6166561668%_ _%g6166661671%_) + (cons _%g6166561668%_ _%g6166661671%_)) + '() + _%L60739%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6045461408%_ + _%method6069660735%_)))))) + (_%loop6069160715%_ + _%target6068860709%_ + '())) + (_%g6068560702%_ _%g6068660706%_))))) + (_%g6068560702%_ _%g6068660706%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6068461674%_ + (_%fold-methods60221%_ + (foldr (lambda (_%g6167761680%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6167861683%_) + (cons _%g6167761680%_ _%g6167861683%_)) + '() + _%L60668%_) + (foldr (lambda (_%g6168561688%_ _%g6168661691%_) + (cons _%g6168561688%_ _%g6168661691%_)) + '() + _%L60310%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%mixin6062560664%_)))))) + (_%loop6062060644%_ _%target6061760638%_ '())) + (_%g6061460631%_ _%g6061560635%_))))) + (_%g6061460631%_ _%g6061560635%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6061361694%_ + (if (gx#identifier? _%L60312%_) + '() + (gx#syntax->list + (gx#stx-cdr + _%L60312%_)))))) + _%g6058760598%_)))) + (_%g6058561698%_ + (gx#stx-identifier + _%L60350%_ + '"is-" + _%L60350%_ + '"?")))) + _%g6055960570%_)))) + (_%g6055761702%_ + (gx#stx-identifier _%L60350%_ _%L60350%_ '"?")))) + _%g6053160542%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6052961706%_ (gx#stx-identifier - _%L60275%_ - _%L60275%_ - '"?")))) - _%g6042860439%_)))) - (_%g6042661412%_ + _%L60350%_ + '"try-" + _%L60350%_)))) + _%g6050360514%_)))) + (_%g6050161710%_ (gx#stx-identifier - _%L60275%_ - '"try-" - _%L60275%_)))) - _%g6040060411%_)))) - (_%g6039861416%_ - (gx#stx-identifier _%L60275%_ '"make-" _%L60275%_)))) - _%g6037260383%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6037061420%_ - (gx#stx-identifier - _%L60275%_ - _%L60275%_ - '"::interface")))) - _%g6034460355%_)))) - (_%g6034261424%_ - (let () - (declare (not safe)) - (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L60275%_))))) - _%g6031660327%_)))) - (_%g6031461428%_ (gx#core-quote-syntax _%L60302%_)))) - _%g6028860299%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6028661432%_ - (gx#stx-identifier - _%L60275%_ - _%L60275%_ - '"::t")))) - _%g6026160272%_)))) - (_%g6025961436%_ - (if (gx#identifier? _%L60237%_) - _%L60237%_ - (gx#stx-car _%L60237%_)))) - (_%g6015460178%_ _%g6015560182%_))) - _%spec6017260231%_ - _%hd6016260199%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6016760211%_ - _%target6016460205%_ + _%L60350%_ + '"make-" + _%L60350%_)))) + _%g6047560486%_)))) + (_%g6047361714%_ + (gx#stx-identifier + _%L60350%_ + _%L60350%_ + '"::interface")))) + _%g6044760458%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6044561718%_ + (let () + (declare (not safe)) + (|gerbil/core/mop~MOP-1[1]#make-class-type-id| + _%L60350%_))))) + _%g6041960430%_)))) + (_%g6041761722%_ + (gx#core-quote-syntax _%L60405%_)))) + _%g6039160402%_)))) + (_%g6038961726%_ + (gx#stx-identifier _%L60350%_ _%L60350%_ '"::t")))) + _%g6036360374%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6036161730%_ + (_%make-interface-namespace60226%_ + (gx#stx-e _%L60350%_))))) + _%g6033660347%_)))) + (_%g6033461734%_ + (if (gx#identifier? _%L60312%_) + _%L60312%_ + (gx#stx-car _%L60312%_)))) + (_%g6022960253%_ _%g6023060257%_))) + _%spec6024760306%_ + _%hd6023760274%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6024260286%_ + _%target6023960280%_ '())) - (_%g6015460178%_ - _%g6015560182%_))))) - (_%g6015460178%_ _%g6015560182%_)))) - (_%g6015460178%_ _%g6015560182%_)))) - (_%g6015460178%_ _%g6015560182%_))))) - (_%g6015361440%_ _%stx60145%_))))) + (_%g6022960253%_ + _%g6023060257%_))))) + (_%g6022960253%_ _%g6023060257%_)))) + (_%g6022960253%_ _%g6023060257%_)))) + (_%g6022960253%_ _%g6023060257%_))))) + (_%g6022861738%_ _%stx60218%_))))) (define |gerbil/core/contract~Interface[:0:]#definterface-method| - (lambda (_%stx61950%_) - (letrec ((_%emit-raw-method?61953%_ - (lambda (_%return62936%_) - (let ((_%return-type62939%_ - (gx#syntax-local-value _%return62936%_))) + (lambda (_%stx62320%_) + (letrec ((_%emit-raw-method?62323%_ + (lambda (_%return63306%_) + (let ((_%return-type63309%_ + (gx#syntax-local-value _%return63306%_))) (if (and (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%return-type62939%_)) - (let ((__tmp84116 - (let ((__obj83888 _%return-type62939%_)) + _%return-type63309%_)) + (let ((__tmp85108 + (let ((__obj84859 _%return-type63309%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83888 + __obj84859 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83888 + __obj84859 '1 '#f '#f)) (unchecked-slot-ref - __obj83888 + __obj84859 'id))))) (declare (not safe)) - (##memq __tmp84116 '(t void)))) + (##memq __tmp85108 '(t void)))) '#f '#t)))) - (_%make-checked-method-def61955%_ - (lambda (_%Interface62697%_ - _%method-name62699%_ - _%raw-method-name62700%_ - _%unchecked-method-name62701%_ - _%signature62702%_ - _%return62703%_) - (let* ((_%g6270562753%_ - (lambda (_%g6270662749%_) + (_%make-checked-method-def62325%_ + (lambda (_%Interface63067%_ + _%method-name63069%_ + _%raw-method-name63070%_ + _%unchecked-method-name63071%_ + _%signature63072%_ + _%return63073%_) + (let* ((_%g6307563123%_ + (lambda (_%g6307663119%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6270662749%_))) - (_%g6270462932%_ - (lambda (_%g6270662757%_) - (if (gx#stx-pair? _%g6270662757%_) - (let ((_%e6271562760%_ - (gx#syntax-e _%g6270662757%_))) - (let ((_%hd6271662764%_ + _%g6307663119%_))) + (_%g6307463302%_ + (lambda (_%g6307663127%_) + (if (gx#stx-pair? _%g6307663127%_) + (let ((_%e6308563130%_ + (gx#syntax-e _%g6307663127%_))) + (let ((_%hd6308663134%_ (let () (declare (not safe)) - (##car _%e6271562760%_))) - (_%tl6271762767%_ + (##car _%e6308563130%_))) + (_%tl6308763137%_ (let () (declare (not safe)) - (##cdr _%e6271562760%_)))) - (if (gx#stx-pair? _%tl6271762767%_) - (let ((_%e6271862770%_ + (##cdr _%e6308563130%_)))) + (if (gx#stx-pair? _%tl6308763137%_) + (let ((_%e6308863140%_ (gx#syntax-e - _%tl6271762767%_))) - (let ((_%hd6271962774%_ + _%tl6308763137%_))) + (let ((_%hd6308963144%_ (let () (declare (not safe)) - (##car _%e6271862770%_))) - (_%tl6272062777%_ + (##car _%e6308863140%_))) + (_%tl6309063147%_ (let () (declare (not safe)) - (##cdr _%e6271862770%_)))) + (##cdr _%e6308863140%_)))) (if (gx#stx-pair? - _%tl6272062777%_) - (let ((_%e6272162780%_ + _%tl6309063147%_) + (let ((_%e6309163150%_ (gx#syntax-e - _%tl6272062777%_))) - (let ((_%hd6272262784%_ + _%tl6309063147%_))) + (let ((_%hd6309263154%_ (let () (declare (not safe)) - (##car _%e6272162780%_))) - (_%tl6272362787%_ + (##car _%e6309163150%_))) + (_%tl6309363157%_ (let () (declare (not safe)) - (##cdr _%e6272162780%_)))) + (##cdr _%e6309163150%_)))) (if (gx#stx-pair? - _%tl6272362787%_) - (let ((_%e6272462790%_ + _%tl6309363157%_) + (let ((_%e6309463160%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6272362787%_))) - (let ((_%hd6272562794%_ + (gx#syntax-e _%tl6309363157%_))) + (let ((_%hd6309563164%_ (let () (declare (not safe)) - (##car _%e6272462790%_))) - (_%tl6272662797%_ + (##car _%e6309463160%_))) + (_%tl6309663167%_ (let () (declare (not safe)) - (##cdr _%e6272462790%_)))) - (if (gx#stx-pair? _%tl6272662797%_) - (let ((_%e6272762800%_ - (gx#syntax-e _%tl6272662797%_))) - (let ((_%hd6272862804%_ + (##cdr _%e6309463160%_)))) + (if (gx#stx-pair? _%tl6309663167%_) + (let ((_%e6309763170%_ + (gx#syntax-e _%tl6309663167%_))) + (let ((_%hd6309863174%_ (let () (declare (not safe)) - (##car _%e6272762800%_))) - (_%tl6272962807%_ + (##car _%e6309763170%_))) + (_%tl6309963177%_ (let () (declare (not safe)) - (##cdr _%e6272762800%_)))) - (if (gx#stx-pair? _%tl6272962807%_) - (let ((_%e6273062810%_ - (gx#syntax-e _%tl6272962807%_))) - (let ((_%hd6273162814%_ + (##cdr _%e6309763170%_)))) + (if (gx#stx-pair? _%tl6309963177%_) + (let ((_%e6310063180%_ + (gx#syntax-e _%tl6309963177%_))) + (let ((_%hd6310163184%_ (let () (declare (not safe)) - (##car _%e6273062810%_))) - (_%tl6273262817%_ + (##car _%e6310063180%_))) + (_%tl6310263187%_ (let () (declare (not safe)) - (##cdr _%e6273062810%_)))) - (if (gx#stx-pair/null? _%hd6273162814%_) - (let ((_g84117_ + (##cdr _%e6310063180%_)))) + (if (gx#stx-pair/null? _%hd6310163184%_) + (let ((_g85109_ (gx#syntax-split-splice - _%hd6273162814%_ + _%hd6310163184%_ '0))) (begin - (let ((_g84118_ + (let ((_g85110_ (let () (declare (not safe)) - (if (##values? _g84117_) - (##vector-length - _g84117_) + (if (##values? _g85109_) + (##values-length + _g85109_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84118_ 2))) + (##fx= _g85110_ 2))) (error "Context expects 2 values" - _g84118_))) - (let ((_%target6273362820%_ + _g85110_))) + (let ((_%target6310363190%_ (let () (declare (not safe)) - (##vector-ref - _g84117_ + (##values-ref + _g85109_ 0))) - (_%tl6273562823%_ + (_%tl6310563193%_ (let () (declare (not safe)) - (##vector-ref - _g84117_ + (##values-ref + _g85109_ 1)))) (if (gx#stx-null? - _%tl6273562823%_) - (letrec ((_%loop6273662826%_ - (lambda (_%hd6273462830%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%out6274062833%_) - (if (gx#stx-pair? _%hd6273462830%_) - (let ((_%e6273762836%_ - (gx#syntax-e _%hd6273462830%_))) - (let ((_%lp-hd6273862840%_ + _%tl6310563193%_) + (letrec ((_%loop6310663196%_ + (lambda (_%hd6310463200%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%out6311063203%_) + (if (gx#stx-pair? _%hd6310463200%_) + (let ((_%e6310763206%_ + (gx#syntax-e _%hd6310463200%_))) + (let ((_%lp-hd6310863210%_ (let () (declare (not safe)) - (##car _%e6273762836%_))) - (_%lp-tl6273962843%_ + (##car _%e6310763206%_))) + (_%lp-tl6310963213%_ (let () (declare (not safe)) - (##cdr _%e6273762836%_)))) - (_%loop6273662826%_ - _%lp-tl6273962843%_ - (cons _%lp-hd6273862840%_ - _%out6274062833%_)))) - (let ((_%out6274162846%_ - (reverse _%out6274062833%_))) - (if (gx#stx-pair? _%tl6273262817%_) - (let ((_%e6274262850%_ - (gx#syntax-e _%tl6273262817%_))) - (let ((_%hd6274362854%_ + (##cdr _%e6310763206%_)))) + (_%loop6310663196%_ + _%lp-tl6310963213%_ + (cons _%lp-hd6310863210%_ + _%out6311063203%_)))) + (let ((_%out6311163216%_ + (reverse _%out6311063203%_))) + (if (gx#stx-pair? _%tl6310263187%_) + (let ((_%e6311263220%_ + (gx#syntax-e _%tl6310263187%_))) + (let ((_%hd6311363224%_ (let () (declare (not safe)) - (##car _%e6274262850%_))) - (_%tl6274462857%_ + (##car _%e6311263220%_))) + (_%tl6311463227%_ (let () (declare (not safe)) - (##cdr _%e6274262850%_)))) - (if (gx#stx-pair? _%tl6274462857%_) - (let ((_%e6274562860%_ + (##cdr _%e6311263220%_)))) + (if (gx#stx-pair? _%tl6311463227%_) + (let ((_%e6311563230%_ (gx#syntax-e - _%tl6274462857%_))) - (let ((_%hd6274662864%_ + _%tl6311463227%_))) + (let ((_%hd6311663234%_ (let () (declare (not safe)) - (##car _%e6274562860%_))) - (_%tl6274762867%_ + (##car _%e6311563230%_))) + (_%tl6311763237%_ (let () (declare (not safe)) - (##cdr _%e6274562860%_)))) + (##cdr _%e6311563230%_)))) (if (gx#stx-null? - _%tl6274762867%_) - ((lambda (_%L62870%_ - _%L62872%_ - _%L62873%_ - _%L62874%_ - _%L62875%_ - _%L62876%_ - _%L62877%_ - _%L62878%_) + _%tl6311763237%_) + ((lambda (_%L63240%_ + _%L63242%_ + _%L63243%_ + _%L63244%_ + _%L63245%_ + _%L63246%_ + _%L63247%_ + _%L63248%_) (if (gx#stx-list? - _%L62872%_) + _%L63242%_) (gx#stx-wrap-source (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%L62877%_ (cons _%L62875%_ _%L62874%_)) + (cons (cons _%L63247%_ (cons _%L63245%_ _%L63244%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-checked-method) - (cons _%L62875%_ - (cons (cons _%L62878%_ - (cons _%L62872%_ + (cons _%L63245%_ + (cons (cons _%L63248%_ + (cons _%L63242%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62870%_ (cons _%L62876%_ '())))) + (cons _%L63240%_ (cons _%L63246%_ '())))) (cons (cons (gx#datum->syntax '#f ':-) - (cons (cons _%L62876%_ - (cons _%L62875%_ - (foldr (lambda (_%g6291562918%_ - _%g6291662921%_) - (cons _%g6291562918%_ - _%g6291662921%_)) + (cons (cons _%L63246%_ + (cons _%L63245%_ + (foldr (lambda (_%g6328563288%_ + _%g6328663291%_) + (cons _%g6328563288%_ + _%g6328663291%_)) '() - _%L62873%_))) - (cons _%L62870%_ '()))) + _%L63243%_))) + (cons _%L63240%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx61950%_)) + (gx#stx-source _%stx62320%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L62877%_ (cons _%L62875%_ _%L62874%_)) + (cons (cons _%L63247%_ (cons _%L63245%_ _%L63244%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-checked-method) - (cons _%L62875%_ - (cons (cons _%L62878%_ - (cons _%L62872%_ + (cons _%L63245%_ + (cons (cons _%L63248%_ + (cons _%L63242%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62870%_ (cons _%L62876%_ '())))) + (cons _%L63240%_ (cons _%L63246%_ '())))) (cons (cons (gx#datum->syntax '#f ':-) (cons (cons (gx#datum->syntax '#f '##apply) - (cons _%L62876%_ - (cons _%L62875%_ - (foldr (lambda (_%g6292362926%_ + (cons _%L63246%_ + (cons _%L63245%_ + (foldr (lambda (_%g6329363296%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6292462929%_) - (cons _%g6292362926%_ _%g6292462929%_)) + _%g6329463299%_) + (cons _%g6329363296%_ _%g6329463299%_)) '() - _%L62873%_)))) + _%L63243%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L62870%_ '()))) + (cons _%L63240%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx61950%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd6274662864%_ - _%hd6274362854%_ - _%out6274162846%_ - _%hd6272862804%_ - _%hd6272562794%_ - _%hd6272262784%_ - _%hd6271962774%_ - _%hd6271662764%_) - (_%g6270562753%_ - _%g6270662757%_)))) - (_%g6270562753%_ _%g6270662757%_)))) - (_%g6270562753%_ _%g6270662757%_))))))) - (_%loop6273662826%_ _%target6273362820%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6270562753%_ - _%g6270662757%_))))) - (_%g6270562753%_ _%g6270662757%_)))) - (_%g6270562753%_ _%g6270662757%_)))) - (_%g6270562753%_ _%g6270662757%_)))) - (_%g6270562753%_ _%g6270662757%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6270562753%_ - _%g6270662757%_)))) - (_%g6270562753%_ _%g6270662757%_)))) - (_%g6270562753%_ _%g6270662757%_))))) - (_%g6270462932%_ - (list _%Interface62697%_ - _%method-name62699%_ - (if (_%emit-raw-method?61953%_ _%return62703%_) - _%raw-method-name62700%_ - _%unchecked-method-name62701%_) + (gx#stx-source _%stx62320%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd6311663234%_ + _%hd6311363224%_ + _%out6311163216%_ + _%hd6309863174%_ + _%hd6309563164%_ + _%hd6309263154%_ + _%hd6308963144%_ + _%hd6308663134%_) + (_%g6307563123%_ + _%g6307663127%_)))) + (_%g6307563123%_ _%g6307663127%_)))) + (_%g6307563123%_ _%g6307663127%_))))))) + (_%loop6310663196%_ _%target6310363190%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6307563123%_ + _%g6307663127%_))))) + (_%g6307563123%_ _%g6307663127%_)))) + (_%g6307563123%_ _%g6307663127%_)))) + (_%g6307563123%_ _%g6307663127%_)))) + (_%g6307563123%_ _%g6307663127%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6307563123%_ + _%g6307663127%_)))) + (_%g6307563123%_ _%g6307663127%_)))) + (_%g6307563123%_ _%g6307663127%_))))) + (_%g6307463302%_ + (list _%Interface63067%_ + _%method-name63069%_ + (if (_%emit-raw-method?62323%_ _%return63073%_) + _%raw-method-name63070%_ + _%unchecked-method-name63071%_) (gx#syntax-local-introduce 'self) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature62702%_) + _%signature63072%_) (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature62702%_) - _%signature62702%_ - _%return62703%_))))) - (_%make-raw-method-def61956%_ - (lambda (_%Interface62459%_ - _%raw-method-name62461%_ - _%unchecked-method-name62462%_ - _%signature62463%_ - _%return62464%_) - (if (_%emit-raw-method?61953%_ _%return62464%_) - (let* ((_%g6246662514%_ - (lambda (_%g6246762510%_) + _%signature63072%_) + _%signature63072%_ + _%return63073%_))))) + (_%make-raw-method-def62326%_ + (lambda (_%Interface62829%_ + _%raw-method-name62831%_ + _%unchecked-method-name62832%_ + _%signature62833%_ + _%return62834%_) + (if (_%emit-raw-method?62323%_ _%return62834%_) + (let* ((_%g6283662884%_ + (lambda (_%g6283762880%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6246762510%_))) - (_%g6246562693%_ - (lambda (_%g6246762518%_) - (if (gx#stx-pair? _%g6246762518%_) - (let ((_%e6247662521%_ - (gx#syntax-e _%g6246762518%_))) - (let ((_%hd6247762525%_ + _%g6283762880%_))) + (_%g6283563063%_ + (lambda (_%g6283762888%_) + (if (gx#stx-pair? _%g6283762888%_) + (let ((_%e6284662891%_ + (gx#syntax-e _%g6283762888%_))) + (let ((_%hd6284762895%_ (let () (declare (not safe)) - (##car _%e6247662521%_))) - (_%tl6247862528%_ + (##car _%e6284662891%_))) + (_%tl6284862898%_ (let () (declare (not safe)) - (##cdr _%e6247662521%_)))) - (if (gx#stx-pair? _%tl6247862528%_) - (let ((_%e6247962531%_ + (##cdr _%e6284662891%_)))) + (if (gx#stx-pair? _%tl6284862898%_) + (let ((_%e6284962901%_ (gx#syntax-e - _%tl6247862528%_))) - (let ((_%hd6248062535%_ + _%tl6284862898%_))) + (let ((_%hd6285062905%_ (let () (declare (not safe)) - (##car _%e6247962531%_))) - (_%tl6248162538%_ + (##car _%e6284962901%_))) + (_%tl6285162908%_ (let () (declare (not safe)) - (##cdr _%e6247962531%_)))) + (##cdr _%e6284962901%_)))) (if (gx#stx-pair? - _%tl6248162538%_) - (let ((_%e6248262541%_ + _%tl6285162908%_) + (let ((_%e6285262911%_ (gx#syntax-e - _%tl6248162538%_))) - (let ((_%hd6248362545%_ + _%tl6285162908%_))) + (let ((_%hd6285362915%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6248262541%_))) - (_%tl6248462548%_ - (let () (declare (not safe)) (##cdr _%e6248262541%_)))) - (if (gx#stx-pair? _%tl6248462548%_) - (let ((_%e6248562551%_ (gx#syntax-e _%tl6248462548%_))) - (let ((_%hd6248662555%_ + (##car _%e6285262911%_))) + (_%tl6285462918%_ + (let () (declare (not safe)) (##cdr _%e6285262911%_)))) + (if (gx#stx-pair? _%tl6285462918%_) + (let ((_%e6285562921%_ (gx#syntax-e _%tl6285462918%_))) + (let ((_%hd6285662925%_ (let () (declare (not safe)) - (##car _%e6248562551%_))) - (_%tl6248762558%_ + (##car _%e6285562921%_))) + (_%tl6285762928%_ (let () (declare (not safe)) - (##cdr _%e6248562551%_)))) - (if (gx#stx-pair? _%tl6248762558%_) - (let ((_%e6248862561%_ - (gx#syntax-e _%tl6248762558%_))) - (let ((_%hd6248962565%_ + (##cdr _%e6285562921%_)))) + (if (gx#stx-pair? _%tl6285762928%_) + (let ((_%e6285862931%_ + (gx#syntax-e _%tl6285762928%_))) + (let ((_%hd6285962935%_ (let () (declare (not safe)) - (##car _%e6248862561%_))) - (_%tl6249062568%_ + (##car _%e6285862931%_))) + (_%tl6286062938%_ (let () (declare (not safe)) - (##cdr _%e6248862561%_)))) - (if (gx#stx-pair? _%tl6249062568%_) - (let ((_%e6249162571%_ - (gx#syntax-e _%tl6249062568%_))) - (let ((_%hd6249262575%_ + (##cdr _%e6285862931%_)))) + (if (gx#stx-pair? _%tl6286062938%_) + (let ((_%e6286162941%_ + (gx#syntax-e _%tl6286062938%_))) + (let ((_%hd6286262945%_ (let () (declare (not safe)) - (##car _%e6249162571%_))) - (_%tl6249362578%_ + (##car _%e6286162941%_))) + (_%tl6286362948%_ (let () (declare (not safe)) - (##cdr _%e6249162571%_)))) + (##cdr _%e6286162941%_)))) (if (gx#stx-pair/null? - _%hd6249262575%_) - (let ((_g84119_ + _%hd6286262945%_) + (let ((_g85111_ (gx#syntax-split-splice - _%hd6249262575%_ + _%hd6286262945%_ '0))) (begin - (let ((_g84120_ + (let ((_g85112_ (let () (declare (not safe)) (if (##values? - _g84119_) - (##vector-length - _g84119_) + _g85111_) + (##values-length + _g85111_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g84120_ 2))) - (error "Context expects 2 values" _g84120_))) + (##fx= _g85112_ 2))) + (error "Context expects 2 values" _g85112_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6249462581%_ + (let ((_%target6286462951%_ (let () (declare (not safe)) - (##vector-ref - _g84119_ + (##values-ref + _g85111_ 0))) - (_%tl6249662584%_ + (_%tl6286662954%_ (let () (declare (not safe)) - (##vector-ref - _g84119_ + (##values-ref + _g85111_ 1)))) (if (gx#stx-null? - _%tl6249662584%_) - (letrec ((_%loop6249762587%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6249562591%_ _%out6250162594%_) - (if (gx#stx-pair? _%hd6249562591%_) - (let ((_%e6249862597%_ - (gx#syntax-e _%hd6249562591%_))) - (let ((_%lp-hd6249962601%_ + _%tl6286662954%_) + (letrec ((_%loop6286762957%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd6286562961%_ _%out6287162964%_) + (if (gx#stx-pair? _%hd6286562961%_) + (let ((_%e6286862967%_ + (gx#syntax-e _%hd6286562961%_))) + (let ((_%lp-hd6286962971%_ (let () (declare (not safe)) - (##car _%e6249862597%_))) - (_%lp-tl6250062604%_ + (##car _%e6286862967%_))) + (_%lp-tl6287062974%_ (let () (declare (not safe)) - (##cdr _%e6249862597%_)))) - (_%loop6249762587%_ - _%lp-tl6250062604%_ - (cons _%lp-hd6249962601%_ - _%out6250162594%_)))) - (let ((_%out6250262607%_ - (reverse _%out6250162594%_))) - (if (gx#stx-pair? _%tl6249362578%_) - (let ((_%e6250362611%_ - (gx#syntax-e _%tl6249362578%_))) - (let ((_%hd6250462615%_ + (##cdr _%e6286862967%_)))) + (_%loop6286762957%_ + _%lp-tl6287062974%_ + (cons _%lp-hd6286962971%_ + _%out6287162964%_)))) + (let ((_%out6287262977%_ + (reverse _%out6287162964%_))) + (if (gx#stx-pair? _%tl6286362948%_) + (let ((_%e6287362981%_ + (gx#syntax-e _%tl6286362948%_))) + (let ((_%hd6287462985%_ (let () (declare (not safe)) - (##car _%e6250362611%_))) - (_%tl6250562618%_ + (##car _%e6287362981%_))) + (_%tl6287562988%_ (let () (declare (not safe)) - (##cdr _%e6250362611%_)))) - (if (gx#stx-pair? _%tl6250562618%_) - (let ((_%e6250662621%_ + (##cdr _%e6287362981%_)))) + (if (gx#stx-pair? _%tl6287562988%_) + (let ((_%e6287662991%_ (gx#syntax-e - _%tl6250562618%_))) - (let ((_%hd6250762625%_ + _%tl6287562988%_))) + (let ((_%hd6287762995%_ (let () (declare (not safe)) - (##car _%e6250662621%_))) - (_%tl6250862628%_ + (##car _%e6287662991%_))) + (_%tl6287862998%_ (let () (declare (not safe)) - (##cdr _%e6250662621%_)))) + (##cdr _%e6287662991%_)))) (if (gx#stx-null? - _%tl6250862628%_) - ((lambda (_%L62631%_ - _%L62633%_ - _%L62634%_ - _%L62635%_ - _%L62636%_ - _%L62637%_ - _%L62638%_ - _%L62639%_) + _%tl6287862998%_) + ((lambda (_%L63001%_ + _%L63003%_ + _%L63004%_ + _%L63005%_ + _%L63006%_ + _%L63007%_ + _%L63008%_ + _%L63009%_) (if (gx#stx-list? - _%L62633%_) + _%L63003%_) (gx#stx-wrap-source (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%L62638%_ - (cons _%L62636%_ _%L62635%_)) + (cons (cons _%L63008%_ + (cons _%L63006%_ _%L63005%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-unchecked-method) - (cons _%L62636%_ - (cons (cons _%L62639%_ - (cons _%L62633%_ + (cons _%L63006%_ + (cons (cons _%L63009%_ + (cons _%L63003%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62631%_ '()))) + (cons _%L63001%_ '()))) (cons (cons (gx#datum->syntax '#f ':) - (cons (cons _%L62637%_ - (cons _%L62636%_ - (foldr (lambda (_%g6267662679%_ - _%g6267762682%_) - (cons _%g6267662679%_ - _%g6267762682%_)) + (cons (cons _%L63007%_ + (cons _%L63006%_ + (foldr (lambda (_%g6304663049%_ + _%g6304763052%_) + (cons _%g6304663049%_ + _%g6304763052%_)) '() - _%L62634%_))) - (cons _%L62631%_ '()))) + _%L63004%_))) + (cons _%L63001%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx61950%_)) + (gx#stx-source _%stx62320%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L62638%_ - (cons _%L62636%_ _%L62635%_)) + (cons (cons _%L63008%_ + (cons _%L63006%_ _%L63005%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-unchecked-method) - (cons _%L62636%_ - (cons (cons _%L62639%_ - (cons _%L62633%_ + (cons _%L63006%_ + (cons (cons _%L63009%_ + (cons _%L63003%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62631%_ '()))) + (cons _%L63001%_ '()))) (cons (cons (gx#datum->syntax '#f ':) (cons (cons (gx#datum->syntax '#f '##apply) - (cons _%L62637%_ - (cons _%L62636%_ - (foldr (lambda (_%g6268462687%_ + (cons _%L63007%_ + (cons _%L63006%_ + (foldr (lambda (_%g6305463057%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6268562690%_) - (cons _%g6268462687%_ _%g6268562690%_)) + _%g6305563060%_) + (cons _%g6305463057%_ _%g6305563060%_)) '() - _%L62634%_)))) + _%L63004%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L62631%_ '()))) + (cons _%L63001%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx61950%_)))) - _%hd6250762625%_ - _%hd6250462615%_ - _%out6250262607%_ - _%hd6248962565%_ - _%hd6248662555%_ - _%hd6248362545%_ - _%hd6248062535%_ - _%hd6247762525%_) - (_%g6246662514%_ _%g6246762518%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6246662514%_ - _%g6246762518%_)))) - (_%g6246662514%_ _%g6246762518%_))))))) - (_%loop6249762587%_ _%target6249462581%_ '())) - (_%g6246662514%_ _%g6246762518%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6246662514%_ - _%g6246762518%_)))) - (_%g6246662514%_ _%g6246762518%_)))) - (_%g6246662514%_ _%g6246762518%_)))) - (_%g6246662514%_ _%g6246762518%_)))) - (_%g6246662514%_ _%g6246762518%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6246662514%_ - _%g6246762518%_)))) - (_%g6246662514%_ _%g6246762518%_))))) - (_%g6246562693%_ - (list _%Interface62459%_ - _%raw-method-name62461%_ - _%unchecked-method-name62462%_ + (gx#stx-source _%stx62320%_)))) + _%hd6287762995%_ + _%hd6287462985%_ + _%out6287262977%_ + _%hd6285962935%_ + _%hd6285662925%_ + _%hd6285362915%_ + _%hd6285062905%_ + _%hd6284762895%_) + (_%g6283662884%_ _%g6283762888%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6283662884%_ + _%g6283762888%_)))) + (_%g6283662884%_ _%g6283762888%_))))))) + (_%loop6286762957%_ _%target6286462951%_ '())) + (_%g6283662884%_ _%g6283762888%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6283662884%_ + _%g6283762888%_)))) + (_%g6283662884%_ _%g6283762888%_)))) + (_%g6283662884%_ _%g6283762888%_)))) + (_%g6283662884%_ _%g6283762888%_)))) + (_%g6283662884%_ _%g6283762888%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6283662884%_ + _%g6283762888%_)))) + (_%g6283662884%_ _%g6283762888%_))))) + (_%g6283563063%_ + (list _%Interface62829%_ + _%raw-method-name62831%_ + _%unchecked-method-name62832%_ (gx#syntax-local-introduce 'self) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature62463%_) + _%signature62833%_) (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature62463%_) - _%signature62463%_ - _%return62464%_))) + _%signature62833%_) + _%signature62833%_ + _%return62834%_))) '(begin)))) - (_%make-unchecked-method-def61957%_ - (lambda (_%Interface62247%_ - _%unchecked-method-name62249%_ - _%signature62250%_ - _%return62251%_ - _%body62252%_) - (let* ((_%g6225462298%_ - (lambda (_%g6225562294%_) + (_%make-unchecked-method-def62327%_ + (lambda (_%Interface62617%_ + _%unchecked-method-name62619%_ + _%signature62620%_ + _%return62621%_ + _%body62622%_) + (let* ((_%g6262462668%_ + (lambda (_%g6262562664%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6225562294%_))) - (_%g6225362455%_ - (lambda (_%g6225562302%_) - (if (gx#stx-pair? _%g6225562302%_) - (let ((_%e6226362305%_ - (gx#syntax-e _%g6225562302%_))) - (let ((_%hd6226462309%_ + _%g6262562664%_))) + (_%g6262362825%_ + (lambda (_%g6262562672%_) + (if (gx#stx-pair? _%g6262562672%_) + (let ((_%e6263362675%_ + (gx#syntax-e _%g6262562672%_))) + (let ((_%hd6263462679%_ (let () (declare (not safe)) - (##car _%e6226362305%_))) - (_%tl6226562312%_ + (##car _%e6263362675%_))) + (_%tl6263562682%_ (let () (declare (not safe)) - (##cdr _%e6226362305%_)))) - (if (gx#stx-pair? _%tl6226562312%_) - (let ((_%e6226662315%_ + (##cdr _%e6263362675%_)))) + (if (gx#stx-pair? _%tl6263562682%_) + (let ((_%e6263662685%_ (gx#syntax-e - _%tl6226562312%_))) - (let ((_%hd6226762319%_ + _%tl6263562682%_))) + (let ((_%hd6263762689%_ (let () (declare (not safe)) - (##car _%e6226662315%_))) - (_%tl6226862322%_ + (##car _%e6263662685%_))) + (_%tl6263862692%_ (let () (declare (not safe)) - (##cdr _%e6226662315%_)))) + (##cdr _%e6263662685%_)))) (if (gx#stx-pair? - _%tl6226862322%_) - (let ((_%e6226962325%_ + _%tl6263862692%_) + (let ((_%e6263962695%_ (gx#syntax-e - _%tl6226862322%_))) - (let ((_%hd6227062329%_ + _%tl6263862692%_))) + (let ((_%hd6264062699%_ (let () (declare (not safe)) - (##car _%e6226962325%_))) - (_%tl6227162332%_ + (##car _%e6263962695%_))) + (_%tl6264162702%_ (let () (declare (not safe)) - (##cdr _%e6226962325%_)))) + (##cdr _%e6263962695%_)))) (if (gx#stx-pair? - _%tl6227162332%_) - (let ((_%e6227262335%_ + _%tl6264162702%_) + (let ((_%e6264262705%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6227162332%_))) - (let ((_%hd6227362339%_ + (gx#syntax-e _%tl6264162702%_))) + (let ((_%hd6264362709%_ (let () (declare (not safe)) - (##car _%e6227262335%_))) - (_%tl6227462342%_ + (##car _%e6264262705%_))) + (_%tl6264462712%_ (let () (declare (not safe)) - (##cdr _%e6227262335%_)))) - (if (gx#stx-pair? _%tl6227462342%_) - (let ((_%e6227562345%_ - (gx#syntax-e _%tl6227462342%_))) - (let ((_%hd6227662349%_ + (##cdr _%e6264262705%_)))) + (if (gx#stx-pair? _%tl6264462712%_) + (let ((_%e6264562715%_ + (gx#syntax-e _%tl6264462712%_))) + (let ((_%hd6264662719%_ (let () (declare (not safe)) - (##car _%e6227562345%_))) - (_%tl6227762352%_ + (##car _%e6264562715%_))) + (_%tl6264762722%_ (let () (declare (not safe)) - (##cdr _%e6227562345%_)))) - (if (gx#stx-pair? _%tl6227762352%_) - (let ((_%e6227862355%_ - (gx#syntax-e _%tl6227762352%_))) - (let ((_%hd6227962359%_ + (##cdr _%e6264562715%_)))) + (if (gx#stx-pair? _%tl6264762722%_) + (let ((_%e6264862725%_ + (gx#syntax-e _%tl6264762722%_))) + (let ((_%hd6264962729%_ (let () (declare (not safe)) - (##car _%e6227862355%_))) - (_%tl6228062362%_ + (##car _%e6264862725%_))) + (_%tl6265062732%_ (let () (declare (not safe)) - (##cdr _%e6227862355%_)))) - (if (gx#stx-pair? _%tl6228062362%_) - (let ((_%e6228162365%_ + (##cdr _%e6264862725%_)))) + (if (gx#stx-pair? _%tl6265062732%_) + (let ((_%e6265162735%_ (gx#syntax-e - _%tl6228062362%_))) - (let ((_%hd6228262369%_ + _%tl6265062732%_))) + (let ((_%hd6265262739%_ (let () (declare (not safe)) - (##car _%e6228162365%_))) - (_%tl6228362372%_ + (##car _%e6265162735%_))) + (_%tl6265362742%_ (let () (declare (not safe)) - (##cdr _%e6228162365%_)))) + (##cdr _%e6265162735%_)))) (if (gx#stx-pair/null? - _%hd6228262369%_) - (let ((_g84121_ + _%hd6265262739%_) + (let ((_g85113_ (gx#syntax-split-splice - _%hd6228262369%_ + _%hd6265262739%_ '0))) (begin - (let ((_g84122_ + (let ((_g85114_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84121_) - (##vector-length _g84121_) + (if (##values? _g85113_) + (##values-length _g85113_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84122_ 2))) - (error "Context expects 2 values" _g84122_))) - (let ((_%target6228462375%_ - (let () (declare (not safe)) (##vector-ref _g84121_ 0))) - (_%tl6228662378%_ - (let () (declare (not safe)) (##vector-ref _g84121_ 1)))) - (if (gx#stx-null? _%tl6228662378%_) - (letrec ((_%loop6228762381%_ - (lambda (_%hd6228562385%_ _%body6229162388%_) - (if (gx#stx-pair? _%hd6228562385%_) - (let ((_%e6228862391%_ - (gx#syntax-e _%hd6228562385%_))) - (let ((_%lp-hd6228962395%_ + (if (not (let () (declare (not safe)) (##fx= _g85114_ 2))) + (error "Context expects 2 values" _g85114_))) + (let ((_%target6265462745%_ + (let () (declare (not safe)) (##values-ref _g85113_ 0))) + (_%tl6265662748%_ + (let () (declare (not safe)) (##values-ref _g85113_ 1)))) + (if (gx#stx-null? _%tl6265662748%_) + (letrec ((_%loop6265762751%_ + (lambda (_%hd6265562755%_ _%body6266162758%_) + (if (gx#stx-pair? _%hd6265562755%_) + (let ((_%e6265862761%_ + (gx#syntax-e _%hd6265562755%_))) + (let ((_%lp-hd6265962765%_ (let () (declare (not safe)) - (##car _%e6228862391%_))) - (_%lp-tl6229062398%_ + (##car _%e6265862761%_))) + (_%lp-tl6266062768%_ (let () (declare (not safe)) - (##cdr _%e6228862391%_)))) - (_%loop6228762381%_ - _%lp-tl6229062398%_ - (cons _%lp-hd6228962395%_ - _%body6229162388%_)))) - (let ((_%body6229262401%_ - (reverse _%body6229162388%_))) - (if (gx#stx-null? _%tl6228362372%_) - ((lambda (_%L62405%_ - _%L62407%_ - _%L62408%_ - _%L62409%_ - _%L62410%_ - _%L62411%_ - _%L62412%_) + (##cdr _%e6265862761%_)))) + (_%loop6265762751%_ + _%lp-tl6266062768%_ + (cons _%lp-hd6265962765%_ + _%body6266162758%_)))) + (let ((_%body6266262771%_ + (reverse _%body6266162758%_))) + (if (gx#stx-null? _%tl6265362742%_) + ((lambda (_%L62775%_ + _%L62777%_ + _%L62778%_ + _%L62779%_ + _%L62780%_ + _%L62781%_ + _%L62782%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L62411%_ - (cons _%L62410%_ + (cons (cons _%L62781%_ + (cons _%L62780%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L62409%_)) + _%L62779%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-unchecked-method) - (cons _%L62410%_ - (cons (cons _%L62412%_ - (cons _%L62408%_ - (cons _%L62407%_ '()))) + (cons _%L62780%_ + (cons (cons _%L62782%_ + (cons _%L62778%_ + (cons _%L62777%_ '()))) (cons (cons (gx#datum->syntax '#f ':-) @@ -9544,1020 +9887,1020 @@ '#f 'let) (cons '() - (foldr (lambda (_%g6244662449%_ - _%g6244762452%_) - (cons _%g6244662449%_ - _%g6244762452%_)) + (foldr (lambda (_%g6281662819%_ + _%g6281762822%_) + (cons _%g6281662819%_ + _%g6281762822%_)) '() - _%L62405%_))) - (cons _%L62407%_ '()))) + _%L62775%_))) + (cons _%L62777%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx61950%_))) - _%body6229262401%_ - _%hd6227962359%_ - _%hd6227662349%_ - _%hd6227362339%_ - _%hd6227062329%_ - _%hd6226762319%_ - _%hd6226462309%_) - (_%g6225462298%_ - _%g6225562302%_))))))) - (_%loop6228762381%_ _%target6228462375%_ '())) - (_%g6225462298%_ _%g6225562302%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6225462298%_ - _%g6225562302%_)))) - (_%g6225462298%_ _%g6225562302%_)))) - (_%g6225462298%_ _%g6225562302%_)))) - (_%g6225462298%_ _%g6225562302%_)))) - (_%g6225462298%_ _%g6225562302%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6225462298%_ - _%g6225562302%_)))) - (_%g6225462298%_ _%g6225562302%_)))) - (_%g6225462298%_ _%g6225562302%_))))) - (_%g6225362455%_ - (list _%Interface62247%_ - _%unchecked-method-name62249%_ + (gx#stx-source _%stx62320%_))) + _%body6266262771%_ + _%hd6264962729%_ + _%hd6264662719%_ + _%hd6264362709%_ + _%hd6264062699%_ + _%hd6263762689%_ + _%hd6263462679%_) + (_%g6262462668%_ + _%g6262562672%_))))))) + (_%loop6265762751%_ _%target6265462745%_ '())) + (_%g6262462668%_ _%g6262562672%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6262462668%_ + _%g6262562672%_)))) + (_%g6262462668%_ _%g6262562672%_)))) + (_%g6262462668%_ _%g6262562672%_)))) + (_%g6262462668%_ _%g6262562672%_)))) + (_%g6262462668%_ _%g6262562672%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6262462668%_ + _%g6262562672%_)))) + (_%g6262462668%_ _%g6262562672%_)))) + (_%g6262462668%_ _%g6262562672%_))))) + (_%g6262362825%_ + (list _%Interface62617%_ + _%unchecked-method-name62619%_ (gx#syntax-local-introduce 'self) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature62250%_) - _%signature62250%_ - _%return62251%_ - _%body62252%_)))))) - (let* ((_%g6195961998%_ - (lambda (_%g6196061994%_) + _%signature62620%_) + _%signature62620%_ + _%return62621%_ + _%body62622%_)))))) + (let* ((_%g6232962368%_ + (lambda (_%g6233062364%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6196061994%_))) - (_%g6195862243%_ - (lambda (_%g6196062002%_) - (if (gx#stx-pair? _%g6196062002%_) - (let ((_%e6196662005%_ (gx#syntax-e _%g6196062002%_))) - (let ((_%hd6196762009%_ + _%g6233062364%_))) + (_%g6232862613%_ + (lambda (_%g6233062372%_) + (if (gx#stx-pair? _%g6233062372%_) + (let ((_%e6233662375%_ (gx#syntax-e _%g6233062372%_))) + (let ((_%hd6233762379%_ (let () (declare (not safe)) - (##car _%e6196662005%_))) - (_%tl6196862012%_ + (##car _%e6233662375%_))) + (_%tl6233862382%_ (let () (declare (not safe)) - (##cdr _%e6196662005%_)))) - (if (gx#stx-pair? _%tl6196862012%_) - (let ((_%e6196962015%_ - (gx#syntax-e _%tl6196862012%_))) - (let ((_%hd6197062019%_ + (##cdr _%e6233662375%_)))) + (if (gx#stx-pair? _%tl6233862382%_) + (let ((_%e6233962385%_ + (gx#syntax-e _%tl6233862382%_))) + (let ((_%hd6234062389%_ (let () (declare (not safe)) - (##car _%e6196962015%_))) - (_%tl6197162022%_ + (##car _%e6233962385%_))) + (_%tl6234162392%_ (let () (declare (not safe)) - (##cdr _%e6196962015%_)))) - (if (gx#stx-pair? _%tl6197162022%_) - (let ((_%e6197262025%_ - (gx#syntax-e _%tl6197162022%_))) - (let ((_%hd6197362029%_ + (##cdr _%e6233962385%_)))) + (if (gx#stx-pair? _%tl6234162392%_) + (let ((_%e6234262395%_ + (gx#syntax-e _%tl6234162392%_))) + (let ((_%hd6234362399%_ (let () (declare (not safe)) - (##car _%e6197262025%_))) - (_%tl6197462032%_ + (##car _%e6234262395%_))) + (_%tl6234462402%_ (let () (declare (not safe)) - (##cdr _%e6197262025%_)))) - (if (gx#stx-pair? _%hd6197362029%_) - (let ((_%e6197562035%_ + (##cdr _%e6234262395%_)))) + (if (gx#stx-pair? _%hd6234362399%_) + (let ((_%e6234562405%_ (gx#syntax-e - _%hd6197362029%_))) - (let ((_%hd6197662039%_ + _%hd6234362399%_))) + (let ((_%hd6234662409%_ (let () (declare (not safe)) - (##car _%e6197562035%_))) - (_%tl6197762042%_ + (##car _%e6234562405%_))) + (_%tl6234762412%_ (let () (declare (not safe)) - (##cdr _%e6197562035%_)))) + (##cdr _%e6234562405%_)))) (if (gx#stx-pair? - _%tl6197762042%_) - (let ((_%e6197862045%_ + _%tl6234762412%_) + (let ((_%e6234862415%_ (gx#syntax-e - _%tl6197762042%_))) - (let ((_%hd6197962049%_ + _%tl6234762412%_))) + (let ((_%hd6234962419%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e6197862045%_))) - (_%tl6198062052%_ + (let () (declare (not safe)) (##car _%e6234862415%_))) + (_%tl6235062422%_ (let () (declare (not safe)) - (##cdr _%e6197862045%_)))) - (if (gx#stx-pair? _%tl6198062052%_) - (let ((_%e6198162055%_ (gx#syntax-e _%tl6198062052%_))) - (let ((_%hd6198262059%_ + (##cdr _%e6234862415%_)))) + (if (gx#stx-pair? _%tl6235062422%_) + (let ((_%e6235162425%_ (gx#syntax-e _%tl6235062422%_))) + (let ((_%hd6235262429%_ (let () (declare (not safe)) - (##car _%e6198162055%_))) - (_%tl6198362062%_ + (##car _%e6235162425%_))) + (_%tl6235362432%_ (let () (declare (not safe)) - (##cdr _%e6198162055%_)))) - (if (gx#stx-null? _%tl6198362062%_) - (if (gx#stx-pair/null? _%tl6197462032%_) - (let ((_g84123_ + (##cdr _%e6235162425%_)))) + (if (gx#stx-null? _%tl6235362432%_) + (if (gx#stx-pair/null? _%tl6234462402%_) + (let ((_g85115_ (gx#syntax-split-splice - _%tl6197462032%_ + _%tl6234462402%_ '0))) (begin - (let ((_g84124_ + (let ((_g85116_ (let () (declare (not safe)) - (if (##values? _g84123_) - (##vector-length _g84123_) + (if (##values? _g85115_) + (##values-length _g85115_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84124_ 2))) + (##fx= _g85116_ 2))) (error "Context expects 2 values" - _g84124_))) - (let ((_%target6198462065%_ + _g85116_))) + (let ((_%target6235462435%_ (let () (declare (not safe)) - (##vector-ref _g84123_ 0))) - (_%tl6198662068%_ + (##values-ref _g85115_ 0))) + (_%tl6235662438%_ (let () (declare (not safe)) - (##vector-ref _g84123_ 1)))) - (if (gx#stx-null? _%tl6198662068%_) - (letrec ((_%loop6198762071%_ - (lambda (_%hd6198562075%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6199162078%_) - (if (gx#stx-pair? _%hd6198562075%_) - (let ((_%e6198862081%_ (gx#syntax-e _%hd6198562075%_))) - (let ((_%lp-hd6198962085%_ + (##values-ref _g85115_ 1)))) + (if (gx#stx-null? _%tl6235662438%_) + (letrec ((_%loop6235762441%_ + (lambda (_%hd6235562445%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6236162448%_) + (if (gx#stx-pair? _%hd6235562445%_) + (let ((_%e6235862451%_ (gx#syntax-e _%hd6235562445%_))) + (let ((_%lp-hd6235962455%_ (let () (declare (not safe)) - (##car _%e6198862081%_))) - (_%lp-tl6199062088%_ + (##car _%e6235862451%_))) + (_%lp-tl6236062458%_ (let () (declare (not safe)) - (##cdr _%e6198862081%_)))) - (_%loop6198762071%_ - _%lp-tl6199062088%_ - (cons _%lp-hd6198962085%_ _%body6199162078%_)))) - (let ((_%body6199262091%_ (reverse _%body6199162078%_))) - ((lambda (_%L62095%_ - _%L62097%_ - _%L62098%_ - _%L62099%_ - _%L62100%_) + (##cdr _%e6235862451%_)))) + (_%loop6235762441%_ + _%lp-tl6236062458%_ + (cons _%lp-hd6235962455%_ _%body6236162448%_)))) + (let ((_%body6236262461%_ (reverse _%body6236162448%_))) + ((lambda (_%L62465%_ + _%L62467%_ + _%L62468%_ + _%L62469%_ + _%L62470%_) (if (and (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L62100%_)) - (gx#identifier? _%L62099%_)) - (let* ((_%info62130%_ - (gx#syntax-local-value _%L62100%_)) - (_%interface-name62133%_ - (let ((__obj83889 _%info62130%_)) + _%L62470%_)) + (gx#identifier? _%L62469%_)) + (let* ((_%info62500%_ + (gx#syntax-local-value _%L62470%_)) + (_%interface-name62503%_ + (let ((__obj84860 _%info62500%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83889 + __obj84860 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83889 + __obj84860 '1 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83889 + __obj84860 'name)))) - (_%method-name62136%_ + (_%method-name62506%_ (gx#stx-identifier - _%L62100%_ - _%interface-name62133%_ + _%L62470%_ + _%interface-name62503%_ '"-" - _%L62099%_)) - (_%raw-method-name62139%_ + _%L62469%_)) + (_%raw-method-name62509%_ (gx#stx-identifier - _%L62100%_ + _%L62470%_ '"__" - _%method-name62136%_)) - (_%unchecked-method-name62142%_ + _%method-name62506%_)) + (_%unchecked-method-name62512%_ (gx#stx-identifier - _%L62100%_ + _%L62470%_ '"&" - _%method-name62136%_))) + _%method-name62506%_))) (|gerbil/core/contract~Interface[1]#check-signature!__%| '#f absent-value absent-value - _%stx61950%_ - _%L62098%_ - _%L62097%_) - (let* ((_%g6214762166%_ - (lambda (_%g6214862162%_) + _%stx62320%_ + _%L62468%_ + _%L62467%_) + (let* ((_%g6251762536%_ + (lambda (_%g6251862532%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6214862162%_))) - (_%g6214662231%_ - (lambda (_%g6214862170%_) - (if (gx#stx-pair? _%g6214862170%_) - (let ((_%e6215262173%_ + _%g6251862532%_))) + (_%g6251662601%_ + (lambda (_%g6251862540%_) + (if (gx#stx-pair? _%g6251862540%_) + (let ((_%e6252262543%_ (gx#syntax-e - _%g6214862170%_))) - (let ((_%hd6215362177%_ + _%g6251862540%_))) + (let ((_%hd6252362547%_ (let () (declare (not safe)) - (##car _%e6215262173%_))) - (_%tl6215462180%_ + (##car _%e6252262543%_))) + (_%tl6252462550%_ (let () (declare (not safe)) - (##cdr _%e6215262173%_)))) + (##cdr _%e6252262543%_)))) (if (gx#stx-pair? - _%tl6215462180%_) - (let ((_%e6215562183%_ + _%tl6252462550%_) + (let ((_%e6252562553%_ (gx#syntax-e - _%tl6215462180%_))) - (let ((_%hd6215662187%_ + _%tl6252462550%_))) + (let ((_%hd6252662557%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6215562183%_))) - (_%tl6215762190%_ - (let () (declare (not safe)) (##cdr _%e6215562183%_)))) - (if (gx#stx-pair? _%tl6215762190%_) - (let ((_%e6215862193%_ (gx#syntax-e _%tl6215762190%_))) - (let ((_%hd6215962197%_ + (##car _%e6252562553%_))) + (_%tl6252762560%_ + (let () (declare (not safe)) (##cdr _%e6252562553%_)))) + (if (gx#stx-pair? _%tl6252762560%_) + (let ((_%e6252862563%_ (gx#syntax-e _%tl6252762560%_))) + (let ((_%hd6252962567%_ (let () (declare (not safe)) - (##car _%e6215862193%_))) - (_%tl6216062200%_ + (##car _%e6252862563%_))) + (_%tl6253062570%_ (let () (declare (not safe)) - (##cdr _%e6215862193%_)))) - (if (gx#stx-null? _%tl6216062200%_) - ((lambda (_%L62203%_ _%L62205%_ _%L62206%_) + (##cdr _%e6252862563%_)))) + (if (gx#stx-null? _%tl6253062570%_) + ((lambda (_%L62573%_ _%L62575%_ _%L62576%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L62206%_ - (cons _%L62205%_ - (cons _%L62203%_ '()))))) - _%hd6215962197%_ - _%hd6215662187%_ - _%hd6215362177%_) - (_%g6214762166%_ _%g6214862170%_)))) - (_%g6214762166%_ _%g6214862170%_)))) - (_%g6214762166%_ _%g6214862170%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6214762166%_ - _%g6214862170%_))))) - (_%g6214662231%_ - (list (_%make-checked-method-def61955%_ - _%L62100%_ - _%method-name62136%_ - _%raw-method-name62139%_ - _%unchecked-method-name62142%_ - _%L62098%_ - _%L62097%_) - (_%make-raw-method-def61956%_ - _%L62100%_ - _%raw-method-name62139%_ - _%unchecked-method-name62142%_ - _%L62098%_ - _%L62097%_) - (_%make-unchecked-method-def61957%_ - _%L62100%_ - _%unchecked-method-name62142%_ - _%L62098%_ - _%L62097%_ - (foldr (lambda (_%g6223462237%_ - _%g6223562240%_) - (cons _%g6223462237%_ - _%g6223562240%_)) + (cons _%L62576%_ + (cons _%L62575%_ + (cons _%L62573%_ '()))))) + _%hd6252962567%_ + _%hd6252662557%_ + _%hd6252362547%_) + (_%g6251762536%_ _%g6251862540%_)))) + (_%g6251762536%_ _%g6251862540%_)))) + (_%g6251762536%_ _%g6251862540%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6251762536%_ + _%g6251862540%_))))) + (_%g6251662601%_ + (list (_%make-checked-method-def62325%_ + _%L62470%_ + _%method-name62506%_ + _%raw-method-name62509%_ + _%unchecked-method-name62512%_ + _%L62468%_ + _%L62467%_) + (_%make-raw-method-def62326%_ + _%L62470%_ + _%raw-method-name62509%_ + _%unchecked-method-name62512%_ + _%L62468%_ + _%L62467%_) + (_%make-unchecked-method-def62327%_ + _%L62470%_ + _%unchecked-method-name62512%_ + _%L62468%_ + _%L62467%_ + (foldr (lambda (_%g6260462607%_ + _%g6260562610%_) + (cons _%g6260462607%_ + _%g6260562610%_)) '() - _%L62095%_)))))) - (_%g6195961998%_ _%g6196062002%_))) - _%body6199262091%_ - _%hd6198262059%_ - _%hd6197962049%_ - _%hd6197662039%_ - _%hd6197062019%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6198762071%_ - _%target6198462065%_ + _%L62465%_)))))) + (_%g6232962368%_ _%g6233062372%_))) + _%body6236262461%_ + _%hd6235262429%_ + _%hd6234962419%_ + _%hd6234662409%_ + _%hd6234062389%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6235762441%_ + _%target6235462435%_ '())) - (_%g6195961998%_ - _%g6196062002%_))))) - (_%g6195961998%_ _%g6196062002%_)) - (_%g6195961998%_ _%g6196062002%_)))) - (_%g6195961998%_ _%g6196062002%_)))) - (_%g6195961998%_ _%g6196062002%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6195961998%_ - _%g6196062002%_)))) - (_%g6195961998%_ _%g6196062002%_)))) - (_%g6195961998%_ _%g6196062002%_)))) - (_%g6195961998%_ _%g6196062002%_))))) - (_%g6195862243%_ _%stx61950%_))))) + (_%g6232962368%_ + _%g6233062372%_))))) + (_%g6232962368%_ _%g6233062372%_)) + (_%g6232962368%_ _%g6233062372%_)))) + (_%g6232962368%_ _%g6233062372%_)))) + (_%g6232962368%_ _%g6233062372%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6232962368%_ + _%g6233062372%_)))) + (_%g6232962368%_ _%g6233062372%_)))) + (_%g6232962368%_ _%g6233062372%_)))) + (_%g6232962368%_ _%g6233062372%_))))) + (_%g6232862613%_ _%stx62320%_))))) (define |gerbil/core/contract~Interface[:0:]#with-interface-method| - (lambda (_%stx62946%_) - (let* ((_%g6294962992%_ - (lambda (_%g6295062988%_) + (lambda (_%stx63316%_) + (let* ((_%g6331963362%_ + (lambda (_%g6332063358%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6295062988%_))) - (_%g6294863213%_ - (lambda (_%g6295062996%_) - (if (gx#stx-pair? _%g6295062996%_) - (let ((_%e6295762999%_ (gx#syntax-e _%g6295062996%_))) - (let ((_%hd6295863003%_ + _%g6332063358%_))) + (_%g6331863583%_ + (lambda (_%g6332063366%_) + (if (gx#stx-pair? _%g6332063366%_) + (let ((_%e6332763369%_ (gx#syntax-e _%g6332063366%_))) + (let ((_%hd6332863373%_ (let () (declare (not safe)) - (##car _%e6295762999%_))) - (_%tl6295963006%_ + (##car _%e6332763369%_))) + (_%tl6332963376%_ (let () (declare (not safe)) - (##cdr _%e6295762999%_)))) - (if (gx#stx-pair? _%tl6295963006%_) - (let ((_%e6296063009%_ - (gx#syntax-e _%tl6295963006%_))) - (let ((_%hd6296163013%_ + (##cdr _%e6332763369%_)))) + (if (gx#stx-pair? _%tl6332963376%_) + (let ((_%e6333063379%_ + (gx#syntax-e _%tl6332963376%_))) + (let ((_%hd6333163383%_ (let () (declare (not safe)) - (##car _%e6296063009%_))) - (_%tl6296263016%_ + (##car _%e6333063379%_))) + (_%tl6333263386%_ (let () (declare (not safe)) - (##cdr _%e6296063009%_)))) - (if (gx#stx-pair? _%tl6296263016%_) - (let ((_%e6296363019%_ - (gx#syntax-e _%tl6296263016%_))) - (let ((_%hd6296463023%_ + (##cdr _%e6333063379%_)))) + (if (gx#stx-pair? _%tl6333263386%_) + (let ((_%e6333363389%_ + (gx#syntax-e _%tl6333263386%_))) + (let ((_%hd6333463393%_ (let () (declare (not safe)) - (##car _%e6296363019%_))) - (_%tl6296563026%_ + (##car _%e6333363389%_))) + (_%tl6333563396%_ (let () (declare (not safe)) - (##cdr _%e6296363019%_)))) - (if (gx#stx-pair? _%hd6296463023%_) - (let ((_%e6296663029%_ + (##cdr _%e6333363389%_)))) + (if (gx#stx-pair? _%hd6333463393%_) + (let ((_%e6333663399%_ (gx#syntax-e - _%hd6296463023%_))) - (let ((_%hd6296763033%_ + _%hd6333463393%_))) + (let ((_%hd6333763403%_ (let () (declare (not safe)) - (##car _%e6296663029%_))) - (_%tl6296863036%_ + (##car _%e6333663399%_))) + (_%tl6333863406%_ (let () (declare (not safe)) - (##cdr _%e6296663029%_)))) + (##cdr _%e6333663399%_)))) (if (gx#stx-pair? - _%tl6296863036%_) - (let ((_%e6296963039%_ + _%tl6333863406%_) + (let ((_%e6333963409%_ (gx#syntax-e - _%tl6296863036%_))) - (let ((_%hd6297063043%_ + _%tl6333863406%_))) + (let ((_%hd6334063413%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6296963039%_))) - (_%tl6297163046%_ - (let () (declare (not safe)) (##cdr _%e6296963039%_)))) - (if (gx#stx-pair? _%tl6297163046%_) - (let ((_%e6297263049%_ (gx#syntax-e _%tl6297163046%_))) - (let ((_%hd6297363053%_ + (##car _%e6333963409%_))) + (_%tl6334163416%_ + (let () (declare (not safe)) (##cdr _%e6333963409%_)))) + (if (gx#stx-pair? _%tl6334163416%_) + (let ((_%e6334263419%_ (gx#syntax-e _%tl6334163416%_))) + (let ((_%hd6334363423%_ (let () (declare (not safe)) - (##car _%e6297263049%_))) - (_%tl6297463056%_ + (##car _%e6334263419%_))) + (_%tl6334463426%_ (let () (declare (not safe)) - (##cdr _%e6297263049%_)))) - (if (gx#stx-pair? _%tl6297463056%_) - (let ((_%e6297563059%_ - (gx#syntax-e _%tl6297463056%_))) - (let ((_%hd6297663063%_ + (##cdr _%e6334263419%_)))) + (if (gx#stx-pair? _%tl6334463426%_) + (let ((_%e6334563429%_ + (gx#syntax-e _%tl6334463426%_))) + (let ((_%hd6334663433%_ (let () (declare (not safe)) - (##car _%e6297563059%_))) - (_%tl6297763066%_ + (##car _%e6334563429%_))) + (_%tl6334763436%_ (let () (declare (not safe)) - (##cdr _%e6297563059%_)))) - (if (gx#stx-null? _%tl6297763066%_) - (if (gx#stx-pair/null? _%tl6296563026%_) - (let ((_g84125_ + (##cdr _%e6334563429%_)))) + (if (gx#stx-null? _%tl6334763436%_) + (if (gx#stx-pair/null? _%tl6333563396%_) + (let ((_g85117_ (gx#syntax-split-splice - _%tl6296563026%_ + _%tl6333563396%_ '0))) (begin - (let ((_g84126_ + (let ((_g85118_ (let () (declare (not safe)) - (if (##values? _g84125_) - (##vector-length - _g84125_) + (if (##values? _g85117_) + (##values-length + _g85117_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84126_ 2))) + (##fx= _g85118_ 2))) (error "Context expects 2 values" - _g84126_))) - (let ((_%target6297863069%_ + _g85118_))) + (let ((_%target6334863439%_ (let () (declare (not safe)) - (##vector-ref - _g84125_ + (##values-ref + _g85117_ 0))) - (_%tl6298063072%_ + (_%tl6335063442%_ (let () (declare (not safe)) - (##vector-ref - _g84125_ + (##values-ref + _g85117_ 1)))) (if (gx#stx-null? - _%tl6298063072%_) - (letrec ((_%loop6298163075%_ - (lambda (_%hd6297963079%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6298563082%_) - (if (gx#stx-pair? _%hd6297963079%_) - (let ((_%e6298263085%_ - (gx#syntax-e _%hd6297963079%_))) - (let ((_%lp-hd6298363089%_ + _%tl6335063442%_) + (letrec ((_%loop6335163445%_ + (lambda (_%hd6334963449%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6335563452%_) + (if (gx#stx-pair? _%hd6334963449%_) + (let ((_%e6335263455%_ + (gx#syntax-e _%hd6334963449%_))) + (let ((_%lp-hd6335363459%_ (let () (declare (not safe)) - (##car _%e6298263085%_))) - (_%lp-tl6298463092%_ + (##car _%e6335263455%_))) + (_%lp-tl6335463462%_ (let () (declare (not safe)) - (##cdr _%e6298263085%_)))) - (_%loop6298163075%_ - _%lp-tl6298463092%_ - (cons _%lp-hd6298363089%_ - _%body6298563082%_)))) - (let ((_%body6298663095%_ - (reverse _%body6298563082%_))) - ((lambda (_%L63099%_ - _%L63101%_ - _%L63102%_ - _%L63103%_ - _%L63104%_ - _%L63105%_) - (let* ((_%checked?63137%_ - (if (gx#stx-e _%L63101%_) '#t '#f)) - (_%g6314063155%_ - (lambda (_%g6314163151%_) + (##cdr _%e6335263455%_)))) + (_%loop6335163445%_ + _%lp-tl6335463462%_ + (cons _%lp-hd6335363459%_ + _%body6335563452%_)))) + (let ((_%body6335663465%_ + (reverse _%body6335563452%_))) + ((lambda (_%L63469%_ + _%L63471%_ + _%L63472%_ + _%L63473%_ + _%L63474%_ + _%L63475%_) + (let* ((_%checked?63507%_ + (if (gx#stx-e _%L63471%_) '#t '#f)) + (_%g6351063525%_ + (lambda (_%g6351163521%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6314163151%_))) - (_%g6313963209%_ - (lambda (_%g6314163159%_) - (if (gx#stx-pair? _%g6314163159%_) - (let ((_%e6314463162%_ + _%g6351163521%_))) + (_%g6350963579%_ + (lambda (_%g6351163529%_) + (if (gx#stx-pair? _%g6351163529%_) + (let ((_%e6351463532%_ (gx#syntax-e - _%g6314163159%_))) - (let ((_%hd6314563166%_ + _%g6351163529%_))) + (let ((_%hd6351563536%_ (let () (declare (not safe)) - (##car _%e6314463162%_))) - (_%tl6314663169%_ + (##car _%e6351463532%_))) + (_%tl6351663539%_ (let () (declare (not safe)) - (##cdr _%e6314463162%_)))) + (##cdr _%e6351463532%_)))) (if (gx#stx-pair? - _%tl6314663169%_) - (let ((_%e6314763172%_ + _%tl6351663539%_) + (let ((_%e6351763542%_ (gx#syntax-e - _%tl6314663169%_))) - (let ((_%hd6314863176%_ + _%tl6351663539%_))) + (let ((_%hd6351863546%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6314763172%_))) - (_%tl6314963179%_ - (let () (declare (not safe)) (##cdr _%e6314763172%_)))) - (if (gx#stx-null? _%tl6314963179%_) - ((lambda (_%L63182%_ _%L63184%_) + (##car _%e6351763542%_))) + (_%tl6351963549%_ + (let () (declare (not safe)) (##cdr _%e6351763542%_)))) + (if (gx#stx-null? _%tl6351963549%_) + ((lambda (_%L63552%_ _%L63554%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type.signature) - _%L63184%_) + _%L63554%_) (cons (cons (gx#datum->syntax '#f 'using) - (cons _%L63182%_ - (foldr (lambda (_%g6320063203%_ + (cons _%L63552%_ + (foldr (lambda (_%g6357063573%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6320163206%_) - (cons _%g6320063203%_ _%g6320163206%_)) + _%g6357163576%_) + (cons _%g6357063573%_ _%g6357163576%_)) '() - _%L63099%_))) + _%L63469%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd6314863176%_ - _%hd6314563166%_) - (_%g6314063155%_ _%g6314163159%_)))) - (_%g6314063155%_ _%g6314163159%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6314063155%_ - _%g6314163159%_))))) - (_%g6313963209%_ + _%hd6351863546%_ + _%hd6351563536%_) + (_%g6351063525%_ _%g6351163529%_)))) + (_%g6351063525%_ _%g6351163529%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6351063525%_ + _%g6351163529%_))))) + (_%g6350963579%_ (list (|gerbil/core/contract~Interface[1]#make-interface-method-lambda-signature| - _%stx62946%_ - _%L63105%_ - _%L63104%_ - _%L63103%_ - _%L63102%_ - _%L63101%_) + _%stx63316%_ + _%L63475%_ + _%L63474%_ + _%L63473%_ + _%L63472%_ + _%L63471%_) (|gerbil/core/contract~Interface[1]#make-interface-method-contract| - _%stx62946%_ - _%L63105%_ - _%L63104%_ - _%L63103%_ - _%checked?63137%_))))) - _%body6298663095%_ - _%hd6297663063%_ - _%hd6297363053%_ - _%hd6297063043%_ - _%hd6296763033%_ - _%hd6296163013%_)))))) - (_%loop6298163075%_ _%target6297863069%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6294962992%_ - _%g6295062996%_))))) - (_%g6294962992%_ _%g6295062996%_)) - (_%g6294962992%_ _%g6295062996%_)))) - (_%g6294962992%_ _%g6295062996%_)))) - (_%g6294962992%_ _%g6295062996%_)))) - (_%g6294962992%_ _%g6295062996%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6294962992%_ - _%g6295062996%_)))) - (_%g6294962992%_ _%g6295062996%_)))) - (_%g6294962992%_ _%g6295062996%_)))) - (_%g6294962992%_ _%g6295062996%_))))) - (_%g6294863213%_ _%stx62946%_)))) + _%stx63316%_ + _%L63475%_ + _%L63474%_ + _%L63473%_ + _%checked?63507%_))))) + _%body6335663465%_ + _%hd6334663433%_ + _%hd6334363423%_ + _%hd6334063413%_ + _%hd6333763403%_ + _%hd6333163383%_)))))) + (_%loop6335163445%_ _%target6334863439%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6331963362%_ + _%g6332063366%_))))) + (_%g6331963362%_ _%g6332063366%_)) + (_%g6331963362%_ _%g6332063366%_)))) + (_%g6331963362%_ _%g6332063366%_)))) + (_%g6331963362%_ _%g6332063366%_)))) + (_%g6331963362%_ _%g6332063366%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6331963362%_ + _%g6332063366%_)))) + (_%g6331963362%_ _%g6332063366%_)))) + (_%g6331963362%_ _%g6332063366%_)))) + (_%g6331963362%_ _%g6332063366%_))))) + (_%g6331863583%_ _%stx63316%_)))) (define |gerbil/core/contract~Interface[:0:]#with-interface-checked-method| - (lambda (_%$stx63218%_) - (let* ((_%g6322263265%_ - (lambda (_%g6322363261%_) + (lambda (_%$stx63588%_) + (let* ((_%g6359263635%_ + (lambda (_%g6359363631%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6322363261%_))) - (_%g6322163418%_ - (lambda (_%g6322363269%_) - (if (gx#stx-pair? _%g6322363269%_) - (let ((_%e6323063272%_ (gx#syntax-e _%g6322363269%_))) - (let ((_%hd6323163276%_ + _%g6359363631%_))) + (_%g6359163788%_ + (lambda (_%g6359363639%_) + (if (gx#stx-pair? _%g6359363639%_) + (let ((_%e6360063642%_ (gx#syntax-e _%g6359363639%_))) + (let ((_%hd6360163646%_ (let () (declare (not safe)) - (##car _%e6323063272%_))) - (_%tl6323263279%_ + (##car _%e6360063642%_))) + (_%tl6360263649%_ (let () (declare (not safe)) - (##cdr _%e6323063272%_)))) - (if (gx#stx-pair? _%tl6323263279%_) - (let ((_%e6323363282%_ - (gx#syntax-e _%tl6323263279%_))) - (let ((_%hd6323463286%_ + (##cdr _%e6360063642%_)))) + (if (gx#stx-pair? _%tl6360263649%_) + (let ((_%e6360363652%_ + (gx#syntax-e _%tl6360263649%_))) + (let ((_%hd6360463656%_ (let () (declare (not safe)) - (##car _%e6323363282%_))) - (_%tl6323563289%_ + (##car _%e6360363652%_))) + (_%tl6360563659%_ (let () (declare (not safe)) - (##cdr _%e6323363282%_)))) - (if (gx#stx-pair? _%tl6323563289%_) - (let ((_%e6323663292%_ - (gx#syntax-e _%tl6323563289%_))) - (let ((_%hd6323763296%_ + (##cdr _%e6360363652%_)))) + (if (gx#stx-pair? _%tl6360563659%_) + (let ((_%e6360663662%_ + (gx#syntax-e _%tl6360563659%_))) + (let ((_%hd6360763666%_ (let () (declare (not safe)) - (##car _%e6323663292%_))) - (_%tl6323863299%_ + (##car _%e6360663662%_))) + (_%tl6360863669%_ (let () (declare (not safe)) - (##cdr _%e6323663292%_)))) - (if (gx#stx-pair? _%hd6323763296%_) - (let ((_%e6323963302%_ + (##cdr _%e6360663662%_)))) + (if (gx#stx-pair? _%hd6360763666%_) + (let ((_%e6360963672%_ (gx#syntax-e - _%hd6323763296%_))) - (let ((_%hd6324063306%_ + _%hd6360763666%_))) + (let ((_%hd6361063676%_ (let () (declare (not safe)) - (##car _%e6323963302%_))) - (_%tl6324163309%_ + (##car _%e6360963672%_))) + (_%tl6361163679%_ (let () (declare (not safe)) - (##cdr _%e6323963302%_)))) + (##cdr _%e6360963672%_)))) (if (gx#stx-pair? - _%tl6324163309%_) - (let ((_%e6324263312%_ + _%tl6361163679%_) + (let ((_%e6361263682%_ (gx#syntax-e - _%tl6324163309%_))) - (let ((_%hd6324363316%_ + _%tl6361163679%_))) + (let ((_%hd6361363686%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6324263312%_))) - (_%tl6324463319%_ - (let () (declare (not safe)) (##cdr _%e6324263312%_)))) - (if (gx#stx-pair? _%tl6324463319%_) - (let ((_%e6324563322%_ (gx#syntax-e _%tl6324463319%_))) - (let ((_%hd6324663326%_ + (##car _%e6361263682%_))) + (_%tl6361463689%_ + (let () (declare (not safe)) (##cdr _%e6361263682%_)))) + (if (gx#stx-pair? _%tl6361463689%_) + (let ((_%e6361563692%_ (gx#syntax-e _%tl6361463689%_))) + (let ((_%hd6361663696%_ (let () (declare (not safe)) - (##car _%e6324563322%_))) - (_%tl6324763329%_ + (##car _%e6361563692%_))) + (_%tl6361763699%_ (let () (declare (not safe)) - (##cdr _%e6324563322%_)))) - (if (gx#stx-pair? _%tl6324763329%_) - (let ((_%e6324863332%_ - (gx#syntax-e _%tl6324763329%_))) - (let ((_%hd6324963336%_ + (##cdr _%e6361563692%_)))) + (if (gx#stx-pair? _%tl6361763699%_) + (let ((_%e6361863702%_ + (gx#syntax-e _%tl6361763699%_))) + (let ((_%hd6361963706%_ (let () (declare (not safe)) - (##car _%e6324863332%_))) - (_%tl6325063339%_ + (##car _%e6361863702%_))) + (_%tl6362063709%_ (let () (declare (not safe)) - (##cdr _%e6324863332%_)))) - (if (gx#stx-null? _%tl6325063339%_) - (if (gx#stx-pair/null? _%tl6323863299%_) - (let ((_g84127_ + (##cdr _%e6361863702%_)))) + (if (gx#stx-null? _%tl6362063709%_) + (if (gx#stx-pair/null? _%tl6360863669%_) + (let ((_g85119_ (gx#syntax-split-splice - _%tl6323863299%_ + _%tl6360863669%_ '0))) (begin - (let ((_g84128_ + (let ((_g85120_ (let () (declare (not safe)) - (if (##values? _g84127_) - (##vector-length - _g84127_) + (if (##values? _g85119_) + (##values-length + _g85119_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84128_ 2))) + (##fx= _g85120_ 2))) (error "Context expects 2 values" - _g84128_))) - (let ((_%target6325163342%_ + _g85120_))) + (let ((_%target6362163712%_ (let () (declare (not safe)) - (##vector-ref - _g84127_ + (##values-ref + _g85119_ 0))) - (_%tl6325363345%_ + (_%tl6362363715%_ (let () (declare (not safe)) - (##vector-ref - _g84127_ + (##values-ref + _g85119_ 1)))) (if (gx#stx-null? - _%tl6325363345%_) - (letrec ((_%loop6325463348%_ - (lambda (_%hd6325263352%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6325863355%_) - (if (gx#stx-pair? _%hd6325263352%_) - (let ((_%e6325563358%_ - (gx#syntax-e _%hd6325263352%_))) - (let ((_%lp-hd6325663362%_ + _%tl6362363715%_) + (letrec ((_%loop6362463718%_ + (lambda (_%hd6362263722%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6362863725%_) + (if (gx#stx-pair? _%hd6362263722%_) + (let ((_%e6362563728%_ + (gx#syntax-e _%hd6362263722%_))) + (let ((_%lp-hd6362663732%_ (let () (declare (not safe)) - (##car _%e6325563358%_))) - (_%lp-tl6325763365%_ + (##car _%e6362563728%_))) + (_%lp-tl6362763735%_ (let () (declare (not safe)) - (##cdr _%e6325563358%_)))) - (_%loop6325463348%_ - _%lp-tl6325763365%_ - (cons _%lp-hd6325663362%_ - _%body6325863355%_)))) - (let ((_%body6325963368%_ - (reverse _%body6325863355%_))) - ((lambda (_%L63372%_ - _%L63374%_ - _%L63375%_ - _%L63376%_ - _%L63377%_ - _%L63378%_) + (##cdr _%e6362563728%_)))) + (_%loop6362463718%_ + _%lp-tl6362763735%_ + (cons _%lp-hd6362663732%_ + _%body6362863725%_)))) + (let ((_%body6362963738%_ + (reverse _%body6362863725%_))) + ((lambda (_%L63742%_ + _%L63744%_ + _%L63745%_ + _%L63746%_ + _%L63747%_ + _%L63748%_) (cons (gx#datum->syntax '#f 'with-interface-method) - (cons _%L63378%_ - (cons (cons _%L63377%_ - (cons _%L63376%_ - (cons _%L63375%_ + (cons _%L63748%_ + (cons (cons _%L63747%_ + (cons _%L63746%_ + (cons _%L63745%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L63374%_ '())))) + (cons _%L63744%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g6340963412%_ + (foldr (lambda (_%g6377963782%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6341063415%_) - (cons _%g6340963412%_ _%g6341063415%_)) + _%g6378063785%_) + (cons _%g6377963782%_ _%g6378063785%_)) '() - _%L63372%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body6325963368%_ - _%hd6324963336%_ - _%hd6324663326%_ - _%hd6324363316%_ - _%hd6324063306%_ - _%hd6323463286%_)))))) - (_%loop6325463348%_ _%target6325163342%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6322263265%_ - _%g6322363269%_))))) - (_%g6322263265%_ _%g6322363269%_)) - (_%g6322263265%_ _%g6322363269%_)))) - (_%g6322263265%_ _%g6322363269%_)))) - (_%g6322263265%_ _%g6322363269%_)))) - (_%g6322263265%_ _%g6322363269%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6322263265%_ - _%g6322363269%_)))) - (_%g6322263265%_ _%g6322363269%_)))) - (_%g6322263265%_ _%g6322363269%_)))) - (_%g6322263265%_ _%g6322363269%_))))) - (_%g6322163418%_ _%$stx63218%_)))) + _%L63742%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%body6362963738%_ + _%hd6361963706%_ + _%hd6361663696%_ + _%hd6361363686%_ + _%hd6361063676%_ + _%hd6360463656%_)))))) + (_%loop6362463718%_ _%target6362163712%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6359263635%_ + _%g6359363639%_))))) + (_%g6359263635%_ _%g6359363639%_)) + (_%g6359263635%_ _%g6359363639%_)))) + (_%g6359263635%_ _%g6359363639%_)))) + (_%g6359263635%_ _%g6359363639%_)))) + (_%g6359263635%_ _%g6359363639%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6359263635%_ + _%g6359363639%_)))) + (_%g6359263635%_ _%g6359363639%_)))) + (_%g6359263635%_ _%g6359363639%_)))) + (_%g6359263635%_ _%g6359363639%_))))) + (_%g6359163788%_ _%$stx63588%_)))) (define |gerbil/core/contract~Interface[:0:]#with-interface-unchecked-method| - (lambda (_%$stx63423%_) - (let* ((_%g6342763466%_ - (lambda (_%g6342863462%_) + (lambda (_%$stx63793%_) + (let* ((_%g6379763836%_ + (lambda (_%g6379863832%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6342863462%_))) - (_%g6342663605%_ - (lambda (_%g6342863470%_) - (if (gx#stx-pair? _%g6342863470%_) - (let ((_%e6343463473%_ (gx#syntax-e _%g6342863470%_))) - (let ((_%hd6343563477%_ + _%g6379863832%_))) + (_%g6379663975%_ + (lambda (_%g6379863840%_) + (if (gx#stx-pair? _%g6379863840%_) + (let ((_%e6380463843%_ (gx#syntax-e _%g6379863840%_))) + (let ((_%hd6380563847%_ (let () (declare (not safe)) - (##car _%e6343463473%_))) - (_%tl6343663480%_ + (##car _%e6380463843%_))) + (_%tl6380663850%_ (let () (declare (not safe)) - (##cdr _%e6343463473%_)))) - (if (gx#stx-pair? _%tl6343663480%_) - (let ((_%e6343763483%_ - (gx#syntax-e _%tl6343663480%_))) - (let ((_%hd6343863487%_ + (##cdr _%e6380463843%_)))) + (if (gx#stx-pair? _%tl6380663850%_) + (let ((_%e6380763853%_ + (gx#syntax-e _%tl6380663850%_))) + (let ((_%hd6380863857%_ (let () (declare (not safe)) - (##car _%e6343763483%_))) - (_%tl6343963490%_ + (##car _%e6380763853%_))) + (_%tl6380963860%_ (let () (declare (not safe)) - (##cdr _%e6343763483%_)))) - (if (gx#stx-pair? _%tl6343963490%_) - (let ((_%e6344063493%_ - (gx#syntax-e _%tl6343963490%_))) - (let ((_%hd6344163497%_ + (##cdr _%e6380763853%_)))) + (if (gx#stx-pair? _%tl6380963860%_) + (let ((_%e6381063863%_ + (gx#syntax-e _%tl6380963860%_))) + (let ((_%hd6381163867%_ (let () (declare (not safe)) - (##car _%e6344063493%_))) - (_%tl6344263500%_ + (##car _%e6381063863%_))) + (_%tl6381263870%_ (let () (declare (not safe)) - (##cdr _%e6344063493%_)))) - (if (gx#stx-pair? _%hd6344163497%_) - (let ((_%e6344363503%_ + (##cdr _%e6381063863%_)))) + (if (gx#stx-pair? _%hd6381163867%_) + (let ((_%e6381363873%_ (gx#syntax-e - _%hd6344163497%_))) - (let ((_%hd6344463507%_ + _%hd6381163867%_))) + (let ((_%hd6381463877%_ (let () (declare (not safe)) - (##car _%e6344363503%_))) - (_%tl6344563510%_ + (##car _%e6381363873%_))) + (_%tl6381563880%_ (let () (declare (not safe)) - (##cdr _%e6344363503%_)))) + (##cdr _%e6381363873%_)))) (if (gx#stx-pair? - _%tl6344563510%_) - (let ((_%e6344663513%_ + _%tl6381563880%_) + (let ((_%e6381663883%_ (gx#syntax-e - _%tl6344563510%_))) - (let ((_%hd6344763517%_ + _%tl6381563880%_))) + (let ((_%hd6381763887%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6344663513%_))) - (_%tl6344863520%_ - (let () (declare (not safe)) (##cdr _%e6344663513%_)))) - (if (gx#stx-pair? _%tl6344863520%_) - (let ((_%e6344963523%_ (gx#syntax-e _%tl6344863520%_))) - (let ((_%hd6345063527%_ + (##car _%e6381663883%_))) + (_%tl6381863890%_ + (let () (declare (not safe)) (##cdr _%e6381663883%_)))) + (if (gx#stx-pair? _%tl6381863890%_) + (let ((_%e6381963893%_ (gx#syntax-e _%tl6381863890%_))) + (let ((_%hd6382063897%_ (let () (declare (not safe)) - (##car _%e6344963523%_))) - (_%tl6345163530%_ + (##car _%e6381963893%_))) + (_%tl6382163900%_ (let () (declare (not safe)) - (##cdr _%e6344963523%_)))) - (if (gx#stx-null? _%tl6345163530%_) - (if (gx#stx-pair/null? _%tl6344263500%_) - (let ((_g84129_ + (##cdr _%e6381963893%_)))) + (if (gx#stx-null? _%tl6382163900%_) + (if (gx#stx-pair/null? _%tl6381263870%_) + (let ((_g85121_ (gx#syntax-split-splice - _%tl6344263500%_ + _%tl6381263870%_ '0))) (begin - (let ((_g84130_ + (let ((_g85122_ (let () (declare (not safe)) - (if (##values? _g84129_) - (##vector-length _g84129_) + (if (##values? _g85121_) + (##values-length _g85121_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84130_ 2))) + (##fx= _g85122_ 2))) (error "Context expects 2 values" - _g84130_))) - (let ((_%target6345263533%_ + _g85122_))) + (let ((_%target6382263903%_ (let () (declare (not safe)) - (##vector-ref _g84129_ 0))) - (_%tl6345463536%_ + (##values-ref _g85121_ 0))) + (_%tl6382463906%_ (let () (declare (not safe)) - (##vector-ref _g84129_ 1)))) - (if (gx#stx-null? _%tl6345463536%_) - (letrec ((_%loop6345563539%_ - (lambda (_%hd6345363543%_ - _%body6345963546%_) + (##values-ref _g85121_ 1)))) + (if (gx#stx-null? _%tl6382463906%_) + (letrec ((_%loop6382563909%_ + (lambda (_%hd6382363913%_ + _%body6382963916%_) (if (gx#stx-pair? - _%hd6345363543%_) - (let ((_%e6345663549%_ + _%hd6382363913%_) + (let ((_%e6382663919%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6345363543%_))) - (let ((_%lp-hd6345763553%_ + (gx#syntax-e _%hd6382363913%_))) + (let ((_%lp-hd6382763923%_ (let () (declare (not safe)) - (##car _%e6345663549%_))) - (_%lp-tl6345863556%_ + (##car _%e6382663919%_))) + (_%lp-tl6382863926%_ (let () (declare (not safe)) - (##cdr _%e6345663549%_)))) - (_%loop6345563539%_ - _%lp-tl6345863556%_ - (cons _%lp-hd6345763553%_ _%body6345963546%_)))) - (let ((_%body6346063559%_ (reverse _%body6345963546%_))) - ((lambda (_%L63563%_ - _%L63565%_ - _%L63566%_ - _%L63567%_ - _%L63568%_) + (##cdr _%e6382663919%_)))) + (_%loop6382563909%_ + _%lp-tl6382863926%_ + (cons _%lp-hd6382763923%_ _%body6382963916%_)))) + (let ((_%body6383063929%_ (reverse _%body6382963916%_))) + ((lambda (_%L63933%_ + _%L63935%_ + _%L63936%_ + _%L63937%_ + _%L63938%_) (cons (gx#datum->syntax '#f 'with-interface-method) - (cons _%L63568%_ - (cons (cons _%L63567%_ - (cons _%L63566%_ - (cons _%L63565%_ + (cons _%L63938%_ + (cons (cons _%L63937%_ + (cons _%L63936%_ + (cons _%L63935%_ (cons '#f '())))) - (foldr (lambda (_%g6359663599%_ - _%g6359763602%_) - (cons _%g6359663599%_ - _%g6359763602%_)) + (foldr (lambda (_%g6396663969%_ + _%g6396763972%_) + (cons _%g6396663969%_ + _%g6396763972%_)) '() - _%L63563%_))))) - _%body6346063559%_ - _%hd6345063527%_ - _%hd6344763517%_ - _%hd6344463507%_ - _%hd6343863487%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6345563539%_ - _%target6345263533%_ + _%L63933%_))))) + _%body6383063929%_ + _%hd6382063897%_ + _%hd6381763887%_ + _%hd6381463877%_ + _%hd6380863857%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6382563909%_ + _%target6382263903%_ '())) - (_%g6342763466%_ - _%g6342863470%_))))) - (_%g6342763466%_ _%g6342863470%_)) - (_%g6342763466%_ _%g6342863470%_)))) - (_%g6342763466%_ _%g6342863470%_)))) - (_%g6342763466%_ _%g6342863470%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6342763466%_ - _%g6342863470%_)))) - (_%g6342763466%_ _%g6342863470%_)))) - (_%g6342763466%_ _%g6342863470%_)))) - (_%g6342763466%_ _%g6342863470%_))))) - (_%g6342663605%_ _%$stx63423%_)))) + (_%g6379763836%_ + _%g6379863840%_))))) + (_%g6379763836%_ _%g6379863840%_)) + (_%g6379763836%_ _%g6379863840%_)))) + (_%g6379763836%_ _%g6379863840%_)))) + (_%g6379763836%_ _%g6379863840%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6379763836%_ + _%g6379863840%_)))) + (_%g6379763836%_ _%g6379863840%_)))) + (_%g6379763836%_ _%g6379863840%_)))) + (_%g6379763836%_ _%g6379863840%_))))) + (_%g6379663975%_ _%$stx63793%_)))) (define |gerbil/core/contract~Interface[:0:]#interface-out| (gx#make-export-expander - (lambda (_%stx63610%_) - (letrec ((_%expand63613%_ - (lambda (_%body63835%_ _%unchecked?63837%_) - (let* ((_%g6383963856%_ - (lambda (_%g6384063852%_) + (lambda (_%stx63980%_) + (letrec ((_%expand63983%_ + (lambda (_%body64205%_ _%unchecked?64207%_) + (let* ((_%g6420964226%_ + (lambda (_%g6421064222%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6384063852%_))) - (_%g6383864087%_ - (lambda (_%g6384063860%_) - (if (gx#stx-pair/null? _%g6384063860%_) - (let ((_g84131_ + _%g6421064222%_))) + (_%g6420864457%_ + (lambda (_%g6421064230%_) + (if (gx#stx-pair/null? _%g6421064230%_) + (let ((_g85123_ (gx#syntax-split-splice - _%g6384063860%_ + _%g6421064230%_ '0))) (begin - (let ((_g84132_ + (let ((_g85124_ (let () (declare (not safe)) - (if (##values? _g84131_) - (##vector-length _g84131_) + (if (##values? _g85123_) + (##values-length _g85123_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84132_ 2))) + (##fx= _g85124_ 2))) (error "Context expects 2 values" - _g84132_))) - (let ((_%target6384263863%_ + _g85124_))) + (let ((_%target6421264233%_ (let () (declare (not safe)) - (##vector-ref _g84131_ 0))) - (_%tl6384463866%_ + (##values-ref _g85123_ 0))) + (_%tl6421464236%_ (let () (declare (not safe)) - (##vector-ref _g84131_ 1)))) - (if (gx#stx-null? _%tl6384463866%_) - (letrec ((_%loop6384563869%_ - (lambda (_%hd6384363873%_ - _%id6384963876%_) + (##values-ref _g85123_ 1)))) + (if (gx#stx-null? _%tl6421464236%_) + (letrec ((_%loop6421564239%_ + (lambda (_%hd6421364243%_ + _%id6421964246%_) (if (gx#stx-pair? - _%hd6384363873%_) - (let ((_%e6384663879%_ + _%hd6421364243%_) + (let ((_%e6421664249%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6384363873%_))) - (let ((_%lp-hd6384763883%_ + (gx#syntax-e _%hd6421364243%_))) + (let ((_%lp-hd6421764253%_ (let () (declare (not safe)) - (##car _%e6384663879%_))) - (_%lp-tl6384863886%_ + (##car _%e6421664249%_))) + (_%lp-tl6421864256%_ (let () (declare (not safe)) - (##cdr _%e6384663879%_)))) - (_%loop6384563869%_ - _%lp-tl6384863886%_ - (cons _%lp-hd6384763883%_ _%id6384963876%_)))) - (let ((_%id6385063889%_ (reverse _%id6384963876%_))) - ((lambda (_%L63893%_) + (##cdr _%e6421664249%_)))) + (_%loop6421564239%_ + _%lp-tl6421864256%_ + (cons _%lp-hd6421764253%_ _%id6421964246%_)))) + (let ((_%id6422064259%_ (reverse _%id6421964246%_))) + ((lambda (_%L64263%_) (if (gx#identifier-list? - (foldr (lambda (_%g6390663909%_ _%g6390763912%_) - (cons _%g6390663909%_ _%g6390763912%_)) + (foldr (lambda (_%g6427664279%_ _%g6427764282%_) + (cons _%g6427664279%_ _%g6427764282%_)) '() - _%L63893%_)) - (let _%lp63915%_ ((_%rest63918%_ - (foldr (lambda (_%g6407864081%_ + _%L64263%_)) + (let _%lp64285%_ ((_%rest64288%_ + (foldr (lambda (_%g6444864451%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6407964084%_) - (cons _%g6407864081%_ _%g6407964084%_)) + _%g6444964454%_) + (cons _%g6444864451%_ _%g6444964454%_)) '() - _%L63893%_)) + _%L64263%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%ids63920%_ '())) - (let* ((_%__stx8192081921%_ _%rest63918%_) - (_%g6392363935%_ + (_%ids64290%_ '())) + (let* ((_%__stx8279582796%_ _%rest64288%_) + (_%g6429364305%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8192081921%_)))) - (let ((_%__kont8192381924%_ - (lambda (_%L63963%_ _%L63965%_) - (let ((_%info63980%_ + _%__stx8279582796%_)))) + (let ((_%__kont8279882799%_ + (lambda (_%L64333%_ _%L64335%_) + (let ((_%info64350%_ (gx#syntax-local-value - _%L63965%_ + _%L64335%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info63980%_)) + _%info64350%_)) '#!void (gx#raise-syntax-error '#f '"not an interface type" - _%stx63610%_ - _%L63965%_)) - (let* ((_%info6398263995%_ - _%info63980%_) - (_%E6398464001%_ + _%stx63980%_ + _%L64335%_)) + (let* ((_%info6435264365%_ + _%info64350%_) + (_%E6435464371%_ (lambda () (error '"No clause matching" - _%info6398263995%_ + _%info6435264365%_ '((interface-info ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< instance-type: @@ -10578,492 +10921,492 @@ unchecked-impl))) (void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K6398564015%_ - (lambda (_%unchecked-impl64005%_ - _%method-impl64007%_ - _%satisfies-predicate64008%_ - _%predicate64009%_ - _%try-constructor64010%_ - _%constructor64011%_ - _%descriptor64012%_ - _%type64013%_) - (_%lp63915%_ - _%L63963%_ - (cons _%L63965%_ - (cons _%type64013%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%descriptor64012%_ - (cons _%constructor64011%_ - (cons _%try-constructor64010%_ - (cons _%predicate64009%_ - (cons _%satisfies-predicate64008%_ + (_%K6435564385%_ + (lambda (_%unchecked-impl64375%_ + _%method-impl64377%_ + _%satisfies-predicate64378%_ + _%predicate64379%_ + _%try-constructor64380%_ + _%constructor64381%_ + _%descriptor64382%_ + _%type64383%_) + (_%lp64285%_ + _%L64333%_ + (cons _%L64335%_ + (cons _%type64383%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%descriptor64382%_ + (cons _%constructor64381%_ + (cons _%try-constructor64380%_ + (cons _%predicate64379%_ + (cons _%satisfies-predicate64378%_ (foldr cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (foldr cons - _%ids63920%_ - (if _%unchecked?63837%_ - _%unchecked-impl64005%_ + _%ids64290%_ + (if _%unchecked?64207%_ + _%unchecked-impl64375%_ '())) - _%method-impl64007%_)))))))))))) + _%method-impl64377%_)))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info6398263995%_)) - (let* ((_%e6398664019%_ + _%info6435264365%_)) + (let* ((_%e6435664389%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6398263995%_ + _%info6435264365%_ 'instance-type))) - (_%type64023%_ - _%e6398664019%_) - (_%e6398764026%_ + (_%type64393%_ + _%e6435664389%_) + (_%e6435764396%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6398263995%_ + _%info6435264365%_ 'interface-descriptor))) - (_%descriptor64030%_ - _%e6398764026%_) - (_%e6398864033%_ + (_%descriptor64400%_ + _%e6435764396%_) + (_%e6435864403%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6398263995%_ + _%info6435264365%_ 'instance-constructor))) - (_%constructor64037%_ - _%e6398864033%_) - (_%e6398964040%_ + (_%constructor64407%_ + _%e6435864403%_) + (_%e6435964410%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6398263995%_ + _%info6435264365%_ 'instance-try-constructor))) - (_%try-constructor64044%_ - _%e6398964040%_) - (_%e6399064047%_ + (_%try-constructor64414%_ + _%e6435964410%_) + (_%e6436064417%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6398263995%_ + _%info6435264365%_ 'instance-predicate))) - (_%predicate64051%_ - _%e6399064047%_) - (_%e6399164054%_ + (_%predicate64421%_ + _%e6436064417%_) + (_%e6436164424%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6398263995%_ + _%info6435264365%_ 'instance-satisfies-predicate))) - (_%satisfies-predicate64058%_ - _%e6399164054%_) - (_%e6399264061%_ + (_%satisfies-predicate64428%_ + _%e6436164424%_) + (_%e6436264431%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6398263995%_ + _%info6435264365%_ 'implementation-methods))) - (_%method-impl64065%_ - _%e6399264061%_) - (_%e6399364068%_ + (_%method-impl64435%_ + _%e6436264431%_) + (_%e6436364438%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6398263995%_ + _%info6435264365%_ 'unchecked-implementation-methods))) - (_%unchecked-impl64072%_ - _%e6399364068%_)) - (_%K6398564015%_ - _%unchecked-impl64072%_ - _%method-impl64065%_ - _%satisfies-predicate64058%_ - _%predicate64051%_ - _%try-constructor64044%_ - _%constructor64037%_ - _%descriptor64030%_ - _%type64023%_)) - (_%E6398464001%_)))))) - (_%__kont8192581926%_ + (_%unchecked-impl64442%_ + _%e6436364438%_)) + (_%K6435564385%_ + _%unchecked-impl64442%_ + _%method-impl64435%_ + _%satisfies-predicate64428%_ + _%predicate64421%_ + _%try-constructor64414%_ + _%constructor64407%_ + _%descriptor64400%_ + _%type64393%_)) + (_%E6435464371%_)))))) + (_%__kont8280082801%_ (lambda () - (cons 'begin: _%ids63920%_)))) - (if (gx#stx-pair? _%__stx8192081921%_) - (let ((_%e6392763953%_ + (cons 'begin: _%ids64290%_)))) + (if (gx#stx-pair? _%__stx8279582796%_) + (let ((_%e6429764323%_ (gx#syntax-e - _%__stx8192081921%_))) - (let ((_%tl6392963960%_ + _%__stx8279582796%_))) + (let ((_%tl6429964330%_ (let () (declare (not safe)) - (##cdr _%e6392763953%_))) - (_%hd6392863957%_ + (##cdr _%e6429764323%_))) + (_%hd6429864327%_ (let () (declare (not safe)) - (##car _%e6392763953%_)))) - (_%__kont8192381924%_ - _%tl6392963960%_ - _%hd6392863957%_))) - (_%__kont8192581926%_))))) - (_%g6383963856%_ _%g6384063860%_))) - _%id6385063889%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6384563869%_ - _%target6384263863%_ + (##car _%e6429764323%_)))) + (_%__kont8279882799%_ + _%tl6429964330%_ + _%hd6429864327%_))) + (_%__kont8280082801%_))))) + (_%g6420964226%_ _%g6421064230%_))) + _%id6422064259%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6421564239%_ + _%target6421264233%_ '())) - (_%g6383963856%_ - _%g6384063860%_))))) - (_%g6383963856%_ _%g6384063860%_))))) - (_%g6383864087%_ _%body63835%_))))) - (let* ((_%__stx8193681937%_ _%stx63610%_) - (_%g6361763658%_ + (_%g6420964226%_ + _%g6421064230%_))))) + (_%g6420964226%_ _%g6421064230%_))))) + (_%g6420864457%_ _%body64205%_))))) + (let* ((_%__stx8281182812%_ _%stx63980%_) + (_%g6398764028%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8193681937%_)))) - (let ((_%__kont8193981940%_ - (lambda (_%L63801%_ _%L63803%_) - (_%expand63613%_ - (foldr (lambda (_%g6382263825%_ _%g6382363828%_) - (cons _%g6382263825%_ _%g6382363828%_)) + _%__stx8281182812%_)))) + (let ((_%__kont8281482815%_ + (lambda (_%L64171%_ _%L64173%_) + (_%expand63983%_ + (foldr (lambda (_%g6419264195%_ _%g6419364198%_) + (cons _%g6419264195%_ _%g6419364198%_)) '() - _%L63801%_) - (gx#stx-e _%L63803%_)))) - (_%__kont8194381944%_ - (lambda (_%L63705%_) - (_%expand63613%_ - (foldr (lambda (_%g6372163724%_ _%g6372263727%_) - (cons _%g6372163724%_ _%g6372263727%_)) + _%L64171%_) + (gx#stx-e _%L64173%_)))) + (_%__kont8281882819%_ + (lambda (_%L64075%_) + (_%expand63983%_ + (foldr (lambda (_%g6409164094%_ _%g6409264097%_) + (cons _%g6409164094%_ _%g6409264097%_)) '() - _%L63705%_) + _%L64075%_) '#t)))) - (let* ((_%__match8199381994%_ - (lambda (_%e6364163665%_ - _%hd6364263669%_ - _%tl6364363672%_ - _%__splice8194581946%_ - _%target6364463675%_ - _%tl6364663678%_) - (letrec ((_%loop6364763681%_ - (lambda (_%hd6364563685%_ - _%body6365163688%_) - (if (gx#stx-pair? _%hd6364563685%_) - (let ((_%e6364863691%_ + (let* ((_%__match8286882869%_ + (lambda (_%e6401164035%_ + _%hd6401264039%_ + _%tl6401364042%_ + _%__splice8282082821%_ + _%target6401464045%_ + _%tl6401664048%_) + (letrec ((_%loop6401764051%_ + (lambda (_%hd6401564055%_ + _%body6402164058%_) + (if (gx#stx-pair? _%hd6401564055%_) + (let ((_%e6401864061%_ (gx#syntax-e - _%hd6364563685%_))) - (let ((_%lp-tl6365063698%_ + _%hd6401564055%_))) + (let ((_%lp-tl6402064068%_ (let () (declare (not safe)) - (##cdr _%e6364863691%_))) - (_%lp-hd6364963695%_ + (##cdr _%e6401864061%_))) + (_%lp-hd6401964065%_ (let () (declare (not safe)) - (##car _%e6364863691%_)))) - (_%loop6364763681%_ - _%lp-tl6365063698%_ - (cons _%lp-hd6364963695%_ - _%body6365163688%_)))) - (let ((_%body6365263701%_ - (reverse _%body6365163688%_))) - (_%__kont8194381944%_ - _%body6365263701%_)))))) - (_%loop6364763681%_ _%target6364463675%_ '())))) - (_%__match8197981980%_ - (lambda (_%e6362163737%_ - _%hd6362263741%_ - _%tl6362363744%_ - _%e6362463747%_ - _%hd6362563751%_ - _%tl6362663754%_ - _%e6362763757%_ - _%e6362863761%_ - _%hd6362963765%_ - _%tl6363063768%_ - _%__splice8194181942%_ - _%target6363163771%_ - _%tl6363363774%_) - (letrec ((_%loop6363463777%_ - (lambda (_%hd6363263781%_ - _%body6363863784%_) - (if (gx#stx-pair? _%hd6363263781%_) - (let ((_%e6363563787%_ + (##car _%e6401864061%_)))) + (_%loop6401764051%_ + _%lp-tl6402064068%_ + (cons _%lp-hd6401964065%_ + _%body6402164058%_)))) + (let ((_%body6402264071%_ + (reverse _%body6402164058%_))) + (_%__kont8281882819%_ + _%body6402264071%_)))))) + (_%loop6401764051%_ _%target6401464045%_ '())))) + (_%__match8285482855%_ + (lambda (_%e6399164107%_ + _%hd6399264111%_ + _%tl6399364114%_ + _%e6399464117%_ + _%hd6399564121%_ + _%tl6399664124%_ + _%e6399764127%_ + _%e6399864131%_ + _%hd6399964135%_ + _%tl6400064138%_ + _%__splice8281682817%_ + _%target6400164141%_ + _%tl6400364144%_) + (letrec ((_%loop6400464147%_ + (lambda (_%hd6400264151%_ + _%body6400864154%_) + (if (gx#stx-pair? _%hd6400264151%_) + (let ((_%e6400564157%_ (gx#syntax-e - _%hd6363263781%_))) - (let ((_%lp-tl6363763794%_ + _%hd6400264151%_))) + (let ((_%lp-tl6400764164%_ (let () (declare (not safe)) - (##cdr _%e6363563787%_))) - (_%lp-hd6363663791%_ + (##cdr _%e6400564157%_))) + (_%lp-hd6400664161%_ (let () (declare (not safe)) - (##car _%e6363563787%_)))) - (_%loop6363463777%_ - _%lp-tl6363763794%_ - (cons _%lp-hd6363663791%_ - _%body6363863784%_)))) - (let ((_%body6363963797%_ - (reverse _%body6363863784%_))) - (_%__kont8193981940%_ - _%body6363963797%_ - _%hd6362963765%_)))))) - (_%loop6363463777%_ _%target6363163771%_ '()))))) - (if (gx#stx-pair? _%__stx8193681937%_) - (let ((_%e6362163737%_ (gx#syntax-e _%__stx8193681937%_))) - (let ((_%tl6362363744%_ + (##car _%e6400564157%_)))) + (_%loop6400464147%_ + _%lp-tl6400764164%_ + (cons _%lp-hd6400664161%_ + _%body6400864154%_)))) + (let ((_%body6400964167%_ + (reverse _%body6400864154%_))) + (_%__kont8281482815%_ + _%body6400964167%_ + _%hd6399964135%_)))))) + (_%loop6400464147%_ _%target6400164141%_ '()))))) + (if (gx#stx-pair? _%__stx8281182812%_) + (let ((_%e6399164107%_ (gx#syntax-e _%__stx8281182812%_))) + (let ((_%tl6399364114%_ (let () (declare (not safe)) - (##cdr _%e6362163737%_))) - (_%hd6362263741%_ + (##cdr _%e6399164107%_))) + (_%hd6399264111%_ (let () (declare (not safe)) - (##car _%e6362163737%_)))) - (if (gx#stx-pair? _%tl6362363744%_) - (let ((_%e6362463747%_ - (gx#syntax-e _%tl6362363744%_))) - (let ((_%tl6362663754%_ + (##car _%e6399164107%_)))) + (if (gx#stx-pair? _%tl6399364114%_) + (let ((_%e6399464117%_ + (gx#syntax-e _%tl6399364114%_))) + (let ((_%tl6399664124%_ (let () (declare (not safe)) - (##cdr _%e6362463747%_))) - (_%hd6362563751%_ + (##cdr _%e6399464117%_))) + (_%hd6399564121%_ (let () (declare (not safe)) - (##car _%e6362463747%_)))) - (if (gx#stx-datum? _%hd6362563751%_) - (let ((_%e6362763757%_ - (gx#stx-e _%hd6362563751%_))) - (if (equal? _%e6362763757%_ 'unchecked:) - (if (gx#stx-pair? _%tl6362663754%_) - (let ((_%e6362863761%_ + (##car _%e6399464117%_)))) + (if (gx#stx-datum? _%hd6399564121%_) + (let ((_%e6399764127%_ + (gx#stx-e _%hd6399564121%_))) + (if (equal? _%e6399764127%_ 'unchecked:) + (if (gx#stx-pair? _%tl6399664124%_) + (let ((_%e6399864131%_ (gx#syntax-e - _%tl6362663754%_))) - (let ((_%tl6363063768%_ + _%tl6399664124%_))) + (let ((_%tl6400064138%_ (let () (declare (not safe)) - (##cdr _%e6362863761%_))) - (_%hd6362963765%_ + (##cdr _%e6399864131%_))) + (_%hd6399964135%_ (let () (declare (not safe)) - (##car _%e6362863761%_)))) + (##car _%e6399864131%_)))) (if (gx#stx-pair/null? - _%tl6363063768%_) - (let ((_%__splice8194181942%_ + _%tl6400064138%_) + (let ((_%__splice8281682817%_ (gx#syntax-split-splice - _%tl6363063768%_ + _%tl6400064138%_ '0))) - (let ((_%tl6363363774%_ + (let ((_%tl6400364144%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8194181942%_ '1))) - (_%target6363163771%_ + (##vector-ref _%__splice8281682817%_ '1))) + (_%target6400164141%_ (let () (declare (not safe)) - (##vector-ref _%__splice8194181942%_ '0)))) - (if (gx#stx-null? _%tl6363363774%_) - (_%__match8197981980%_ - _%e6362163737%_ - _%hd6362263741%_ - _%tl6362363744%_ - _%e6362463747%_ - _%hd6362563751%_ - _%tl6362663754%_ - _%e6362763757%_ - _%e6362863761%_ - _%hd6362963765%_ - _%tl6363063768%_ - _%__splice8194181942%_ - _%target6363163771%_ - _%tl6363363774%_) - (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8194581946%_ + (##vector-ref _%__splice8281682817%_ '0)))) + (if (gx#stx-null? _%tl6400364144%_) + (_%__match8285482855%_ + _%e6399164107%_ + _%hd6399264111%_ + _%tl6399364114%_ + _%e6399464117%_ + _%hd6399564121%_ + _%tl6399664124%_ + _%e6399764127%_ + _%e6399864131%_ + _%hd6399964135%_ + _%tl6400064138%_ + _%__splice8281682817%_ + _%target6400164141%_ + _%tl6400364144%_) + (if (gx#stx-pair/null? _%tl6399364114%_) + (let ((_%__splice8282082821%_ (gx#syntax-split-splice - _%tl6362363744%_ + _%tl6399364114%_ '0))) - (let ((_%tl6364663678%_ + (let ((_%tl6401664048%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8282082821%_ '1))) - (_%target6364463675%_ + (_%target6401464045%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8282082821%_ '0)))) - (if (gx#stx-null? _%tl6364663678%_) - (_%__match8199381994%_ - _%e6362163737%_ - _%hd6362263741%_ - _%tl6362363744%_ - _%__splice8194581946%_ - _%target6364463675%_ - _%tl6364663678%_) + (if (gx#stx-null? _%tl6401664048%_) + (_%__match8286882869%_ + _%e6399164107%_ + _%hd6399264111%_ + _%tl6399364114%_ + _%__splice8282082821%_ + _%target6401464045%_ + _%tl6401664048%_) (let () (declare (not safe)) - (_%g6361763658%_))))) - (let () (declare (not safe)) (_%g6361763658%_)))))) - (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8194581946%_ - (gx#syntax-split-splice _%tl6362363744%_ '0))) - (let ((_%tl6364663678%_ + (_%g6398764028%_))))) + (let () (declare (not safe)) (_%g6398764028%_)))))) + (if (gx#stx-pair/null? _%tl6399364114%_) + (let ((_%__splice8282082821%_ + (gx#syntax-split-splice _%tl6399364114%_ '0))) + (let ((_%tl6401664048%_ (let () (declare (not safe)) - (##vector-ref _%__splice8194581946%_ '1))) - (_%target6364463675%_ + (##vector-ref _%__splice8282082821%_ '1))) + (_%target6401464045%_ (let () (declare (not safe)) - (##vector-ref _%__splice8194581946%_ '0)))) - (if (gx#stx-null? _%tl6364663678%_) - (_%__match8199381994%_ - _%e6362163737%_ - _%hd6362263741%_ - _%tl6362363744%_ - _%__splice8194581946%_ - _%target6364463675%_ - _%tl6364663678%_) - (let () (declare (not safe)) (_%g6361763658%_))))) - (let () (declare (not safe)) (_%g6361763658%_)))))) + (##vector-ref _%__splice8282082821%_ '0)))) + (if (gx#stx-null? _%tl6401664048%_) + (_%__match8286882869%_ + _%e6399164107%_ + _%hd6399264111%_ + _%tl6399364114%_ + _%__splice8282082821%_ + _%target6401464045%_ + _%tl6401664048%_) + (let () (declare (not safe)) (_%g6398764028%_))))) + (let () (declare (not safe)) (_%g6398764028%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6362363744%_) - (let ((_%__splice8194581946%_ + _%tl6399364114%_) + (let ((_%__splice8282082821%_ (gx#syntax-split-splice - _%tl6362363744%_ + _%tl6399364114%_ '0))) - (let ((_%tl6364663678%_ + (let ((_%tl6401664048%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8282082821%_ '1))) - (_%target6364463675%_ + (_%target6401464045%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8282082821%_ '0)))) (if (gx#stx-null? - _%tl6364663678%_) - (_%__match8199381994%_ - _%e6362163737%_ - _%hd6362263741%_ - _%tl6362363744%_ - _%__splice8194581946%_ - _%target6364463675%_ - _%tl6364663678%_) + _%tl6401664048%_) + (_%__match8286882869%_ + _%e6399164107%_ + _%hd6399264111%_ + _%tl6399364114%_ + _%__splice8282082821%_ + _%target6401464045%_ + _%tl6401664048%_) (let () (declare (not safe)) - (_%g6361763658%_))))) + (_%g6398764028%_))))) (let () (declare (not safe)) - (_%g6361763658%_)))) + (_%g6398764028%_)))) (if (gx#stx-pair/null? - _%tl6362363744%_) - (let ((_%__splice8194581946%_ + _%tl6399364114%_) + (let ((_%__splice8282082821%_ (gx#syntax-split-splice - _%tl6362363744%_ + _%tl6399364114%_ '0))) - (let ((_%tl6364663678%_ + (let ((_%tl6401664048%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8282082821%_ '1))) - (_%target6364463675%_ + (_%target6401464045%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8282082821%_ '0)))) (if (gx#stx-null? - _%tl6364663678%_) - (_%__match8199381994%_ - _%e6362163737%_ - _%hd6362263741%_ - _%tl6362363744%_ - _%__splice8194581946%_ - _%target6364463675%_ - _%tl6364663678%_) + _%tl6401664048%_) + (_%__match8286882869%_ + _%e6399164107%_ + _%hd6399264111%_ + _%tl6399364114%_ + _%__splice8282082821%_ + _%target6401464045%_ + _%tl6401664048%_) (let () (declare (not safe)) - (_%g6361763658%_))))) + (_%g6398764028%_))))) (let () (declare (not safe)) - (_%g6361763658%_))))) - (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8194581946%_ + (_%g6398764028%_))))) + (if (gx#stx-pair/null? _%tl6399364114%_) + (let ((_%__splice8282082821%_ (gx#syntax-split-splice - _%tl6362363744%_ + _%tl6399364114%_ '0))) - (let ((_%tl6364663678%_ + (let ((_%tl6401664048%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8282082821%_ '1))) - (_%target6364463675%_ + (_%target6401464045%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8282082821%_ '0)))) (if (gx#stx-null? - _%tl6364663678%_) - (_%__match8199381994%_ - _%e6362163737%_ - _%hd6362263741%_ - _%tl6362363744%_ - _%__splice8194581946%_ - _%target6364463675%_ - _%tl6364663678%_) + _%tl6401664048%_) + (_%__match8286882869%_ + _%e6399164107%_ + _%hd6399264111%_ + _%tl6399364114%_ + _%__splice8282082821%_ + _%target6401464045%_ + _%tl6401664048%_) (let () (declare (not safe)) - (_%g6361763658%_))))) + (_%g6398764028%_))))) (let () (declare (not safe)) - (_%g6361763658%_)))))) - (if (gx#stx-pair/null? _%tl6362363744%_) - (let ((_%__splice8194581946%_ + (_%g6398764028%_)))))) + (if (gx#stx-pair/null? _%tl6399364114%_) + (let ((_%__splice8282082821%_ (gx#syntax-split-splice - _%tl6362363744%_ + _%tl6399364114%_ '0))) - (let ((_%tl6364663678%_ + (let ((_%tl6401664048%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8282082821%_ '1))) - (_%target6364463675%_ + (_%target6401464045%_ (let () (declare (not safe)) (##vector-ref - _%__splice8194581946%_ + _%__splice8282082821%_ '0)))) - (if (gx#stx-null? _%tl6364663678%_) - (_%__match8199381994%_ - _%e6362163737%_ - _%hd6362263741%_ - _%tl6362363744%_ - _%__splice8194581946%_ - _%target6364463675%_ - _%tl6364663678%_) + (if (gx#stx-null? _%tl6401664048%_) + (_%__match8286882869%_ + _%e6399164107%_ + _%hd6399264111%_ + _%tl6399364114%_ + _%__splice8282082821%_ + _%target6401464045%_ + _%tl6401664048%_) (let () (declare (not safe)) - (_%g6361763658%_))))) + (_%g6398764028%_))))) (let () (declare (not safe)) - (_%g6361763658%_)))))) - (let () (declare (not safe)) (_%g6361763658%_)))))))))))) + (_%g6398764028%_)))))) + (let () (declare (not safe)) (_%g6398764028%_)))))))))))) diff --git a/src/bootstrap/gerbil/core/contract~9.scm b/src/bootstrap/gerbil/core/contract~9.scm index 113f3b355..24235466d 100644 --- a/src/bootstrap/gerbil/core/contract~9.scm +++ b/src/bootstrap/gerbil/core/contract~9.scm @@ -1,826 +1,826 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypedDefinitions[1]#_g84139_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85131_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84146_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85138_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84149_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85141_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84150_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85142_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84158_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85150_| (##structure gx#syntax-quote::t 'lambda/c #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84159_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85151_| (##structure gx#syntax-quote::t 'case-lambda/c #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84160_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85152_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84162_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85154_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84163_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85155_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84164_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85156_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84166_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85158_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84167_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85159_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84168_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85160_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84170_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85162_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84171_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85163_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84172_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85164_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84173_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85165_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84174_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85166_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84175_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85167_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84176_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85168_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84177_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85169_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84178_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85170_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84179_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85171_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84180_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85172_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84181_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85173_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84182_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85174_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84183_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85175_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84184_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85176_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84185_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85177_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84186_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85178_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84187_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g85179_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~TypedDefinitions[1]#is-signature?| - (lambda (_%formals64095%_) - (let _%lp64098%_ ((_%rest64101%_ _%formals64095%_)) - (let* ((_%__stx8199681997%_ _%rest64101%_) - (_%g6411064179%_ + (lambda (_%formals64465%_) + (let _%lp64468%_ ((_%rest64471%_ _%formals64465%_)) + (let* ((_%__stx8287182872%_ _%rest64471%_) + (_%g6448064549%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8199681997%_)))) - (let ((_%__kont8199982000%_ - (lambda (_%L64480%_ _%L64482%_) (_%lp64098%_ _%L64480%_))) - (_%__kont8200182002%_ - (lambda (_%L64446%_ _%L64448%_) (_%lp64098%_ _%L64446%_))) - (_%__kont8200382004%_ - (lambda (_%L64392%_ _%L64394%_ _%L64395%_) '#t)) - (_%__kont8200582006%_ - (lambda (_%L64348%_ _%L64350%_ _%L64351%_) - (_%lp64098%_ _%L64348%_))) - (_%__kont8200782008%_ - (lambda (_%L64300%_ _%L64302%_ _%L64303%_) - (_%lp64098%_ _%L64300%_))) - (_%__kont8200982010%_ - (lambda (_%L64227%_ _%L64229%_ _%L64230%_ _%L64231%_) '#t)) - (_%__kont8201182012%_ (lambda () '#f))) - (let* ((_%__match8210782108%_ - (lambda (_%e6416564197%_ - _%hd6416664201%_ - _%tl6416764204%_ - _%e6416864207%_ - _%hd6416964211%_ - _%tl6417064214%_ - _%e6417164217%_ - _%hd6417264221%_ - _%tl6417364224%_) - (let ((_%L64227%_ _%tl6417064214%_) - (_%L64229%_ _%tl6417364224%_) - (_%L64230%_ _%hd6417264221%_) - (_%L64231%_ _%hd6416664201%_)) - (if (and (gx#stx-keyword? _%L64231%_) - (gx#identifier? _%L64230%_) + _%__stx8287182872%_)))) + (let ((_%__kont8287482875%_ + (lambda (_%L64850%_ _%L64852%_) (_%lp64468%_ _%L64850%_))) + (_%__kont8287682877%_ + (lambda (_%L64816%_ _%L64818%_) (_%lp64468%_ _%L64816%_))) + (_%__kont8287882879%_ + (lambda (_%L64762%_ _%L64764%_ _%L64765%_) '#t)) + (_%__kont8288082881%_ + (lambda (_%L64718%_ _%L64720%_ _%L64721%_) + (_%lp64468%_ _%L64718%_))) + (_%__kont8288282883%_ + (lambda (_%L64670%_ _%L64672%_ _%L64673%_) + (_%lp64468%_ _%L64670%_))) + (_%__kont8288482885%_ + (lambda (_%L64597%_ _%L64599%_ _%L64600%_ _%L64601%_) '#t)) + (_%__kont8288682887%_ (lambda () '#f))) + (let* ((_%__match8298282983%_ + (lambda (_%e6453564567%_ + _%hd6453664571%_ + _%tl6453764574%_ + _%e6453864577%_ + _%hd6453964581%_ + _%tl6454064584%_ + _%e6454164587%_ + _%hd6454264591%_ + _%tl6454364594%_) + (let ((_%L64597%_ _%tl6454064584%_) + (_%L64599%_ _%tl6454364594%_) + (_%L64600%_ _%hd6454264591%_) + (_%L64601%_ _%hd6453664571%_)) + (if (and (gx#stx-keyword? _%L64601%_) + (gx#identifier? _%L64600%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L64229%_))) - (_%__kont8200982010%_ - _%L64227%_ - _%L64229%_ - _%L64230%_ - _%L64231%_) - (_%__kont8201182012%_))))) - (_%__match8208982090%_ - (lambda (_%e6414964260%_ - _%hd6415064264%_ - _%tl6415164267%_ - _%e6415264270%_ - _%hd6415364274%_ - _%tl6415464277%_ - _%e6415564280%_ - _%hd6415664284%_ - _%tl6415764287%_ - _%e6415864290%_ - _%hd6415964294%_ - _%tl6416064297%_) - (let ((_%L64300%_ _%tl6415464277%_) - (_%L64302%_ _%hd6415664284%_) - (_%L64303%_ _%hd6415064264%_)) - (if (and (gx#stx-keyword? _%L64303%_) - (gx#identifier? _%L64302%_)) - (_%__kont8200782008%_ - _%L64300%_ - _%L64302%_ - _%L64303%_) - (_%__match8210782108%_ - _%e6414964260%_ - _%hd6415064264%_ - _%tl6415164267%_ - _%e6415264270%_ - _%hd6415364274%_ - _%tl6415464277%_ - _%e6415564280%_ - _%hd6415664284%_ - _%tl6415764287%_))))) - (_%__match8206382064%_ - (lambda (_%e6414064328%_ - _%hd6414164332%_ - _%tl6414264335%_ - _%e6414364338%_ - _%hd6414464342%_ - _%tl6414564345%_) - (let ((_%L64348%_ _%tl6414564345%_) - (_%L64350%_ _%hd6414464342%_) - (_%L64351%_ _%hd6414164332%_)) - (if (and (gx#stx-keyword? _%L64351%_) - (gx#identifier? _%L64350%_)) - (_%__kont8200582006%_ - _%L64348%_ - _%L64350%_ - _%L64351%_) - (if (gx#stx-pair? _%hd6414464342%_) - (let ((_%e6415564280%_ - (gx#syntax-e _%hd6414464342%_))) - (let ((_%tl6415764287%_ + _%L64599%_))) + (_%__kont8288482885%_ + _%L64597%_ + _%L64599%_ + _%L64600%_ + _%L64601%_) + (_%__kont8288682887%_))))) + (_%__match8296482965%_ + (lambda (_%e6451964630%_ + _%hd6452064634%_ + _%tl6452164637%_ + _%e6452264640%_ + _%hd6452364644%_ + _%tl6452464647%_ + _%e6452564650%_ + _%hd6452664654%_ + _%tl6452764657%_ + _%e6452864660%_ + _%hd6452964664%_ + _%tl6453064667%_) + (let ((_%L64670%_ _%tl6452464647%_) + (_%L64672%_ _%hd6452664654%_) + (_%L64673%_ _%hd6452064634%_)) + (if (and (gx#stx-keyword? _%L64673%_) + (gx#identifier? _%L64672%_)) + (_%__kont8288282883%_ + _%L64670%_ + _%L64672%_ + _%L64673%_) + (_%__match8298282983%_ + _%e6451964630%_ + _%hd6452064634%_ + _%tl6452164637%_ + _%e6452264640%_ + _%hd6452364644%_ + _%tl6452464647%_ + _%e6452564650%_ + _%hd6452664654%_ + _%tl6452764657%_))))) + (_%__match8293882939%_ + (lambda (_%e6451064698%_ + _%hd6451164702%_ + _%tl6451264705%_ + _%e6451364708%_ + _%hd6451464712%_ + _%tl6451564715%_) + (let ((_%L64718%_ _%tl6451564715%_) + (_%L64720%_ _%hd6451464712%_) + (_%L64721%_ _%hd6451164702%_)) + (if (and (gx#stx-keyword? _%L64721%_) + (gx#identifier? _%L64720%_)) + (_%__kont8288082881%_ + _%L64718%_ + _%L64720%_ + _%L64721%_) + (if (gx#stx-pair? _%hd6451464712%_) + (let ((_%e6452564650%_ + (gx#syntax-e _%hd6451464712%_))) + (let ((_%tl6452764657%_ (let () (declare (not safe)) - (##cdr _%e6415564280%_))) - (_%hd6415664284%_ + (##cdr _%e6452564650%_))) + (_%hd6452664654%_ (let () (declare (not safe)) - (##car _%e6415564280%_)))) - (if (gx#stx-pair? _%tl6415764287%_) - (let ((_%e6415864290%_ + (##car _%e6452564650%_)))) + (if (gx#stx-pair? _%tl6452764657%_) + (let ((_%e6452864660%_ (gx#syntax-e - _%tl6415764287%_))) - (let ((_%tl6416064297%_ + _%tl6452764657%_))) + (let ((_%tl6453064667%_ (let () (declare (not safe)) - (##cdr _%e6415864290%_))) - (_%hd6415964294%_ + (##cdr _%e6452864660%_))) + (_%hd6452964664%_ (let () (declare (not safe)) - (##car _%e6415864290%_)))) + (##car _%e6452864660%_)))) (if (gx#stx-null? - _%tl6416064297%_) - (_%__match8208982090%_ - _%e6414064328%_ - _%hd6414164332%_ - _%tl6414264335%_ - _%e6414364338%_ - _%hd6414464342%_ - _%tl6414564345%_ - _%e6415564280%_ - _%hd6415664284%_ - _%tl6415764287%_ - _%e6415864290%_ - _%hd6415964294%_ - _%tl6416064297%_) - (_%__match8210782108%_ - _%e6414064328%_ - _%hd6414164332%_ - _%tl6414264335%_ - _%e6414364338%_ - _%hd6414464342%_ - _%tl6414564345%_ - _%e6415564280%_ - _%hd6415664284%_ - _%tl6415764287%_)))) - (_%__match8210782108%_ - _%e6414064328%_ - _%hd6414164332%_ - _%tl6414264335%_ - _%e6414364338%_ - _%hd6414464342%_ - _%tl6414564345%_ - _%e6415564280%_ - _%hd6415664284%_ - _%tl6415764287%_)))) - (_%__kont8201182012%_)))))) - (_%__match8205182052%_ - (lambda (_%e6413164372%_ - _%hd6413264376%_ - _%tl6413364379%_ - _%e6413464382%_ - _%hd6413564386%_ - _%tl6413664389%_) - (let ((_%L64392%_ _%tl6413364379%_) - (_%L64394%_ _%tl6413664389%_) - (_%L64395%_ _%hd6413564386%_)) - (if (and (gx#identifier? _%L64395%_) + _%tl6453064667%_) + (_%__match8296482965%_ + _%e6451064698%_ + _%hd6451164702%_ + _%tl6451264705%_ + _%e6451364708%_ + _%hd6451464712%_ + _%tl6451564715%_ + _%e6452564650%_ + _%hd6452664654%_ + _%tl6452764657%_ + _%e6452864660%_ + _%hd6452964664%_ + _%tl6453064667%_) + (_%__match8298282983%_ + _%e6451064698%_ + _%hd6451164702%_ + _%tl6451264705%_ + _%e6451364708%_ + _%hd6451464712%_ + _%tl6451564715%_ + _%e6452564650%_ + _%hd6452664654%_ + _%tl6452764657%_)))) + (_%__match8298282983%_ + _%e6451064698%_ + _%hd6451164702%_ + _%tl6451264705%_ + _%e6451364708%_ + _%hd6451464712%_ + _%tl6451564715%_ + _%e6452564650%_ + _%hd6452664654%_ + _%tl6452764657%_)))) + (_%__kont8288682887%_)))))) + (_%__match8292682927%_ + (lambda (_%e6450164742%_ + _%hd6450264746%_ + _%tl6450364749%_ + _%e6450464752%_ + _%hd6450564756%_ + _%tl6450664759%_) + (let ((_%L64762%_ _%tl6450364749%_) + (_%L64764%_ _%tl6450664759%_) + (_%L64765%_ _%hd6450564756%_)) + (if (and (gx#identifier? _%L64765%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L64394%_))) - (_%__kont8200382004%_ - _%L64392%_ - _%L64394%_ - _%L64395%_) - (if (gx#stx-pair? _%tl6413364379%_) - (let ((_%e6414364338%_ - (gx#syntax-e _%tl6413364379%_))) - (let ((_%tl6414564345%_ + _%L64764%_))) + (_%__kont8287882879%_ + _%L64762%_ + _%L64764%_ + _%L64765%_) + (if (gx#stx-pair? _%tl6450364749%_) + (let ((_%e6451364708%_ + (gx#syntax-e _%tl6450364749%_))) + (let ((_%tl6451564715%_ (let () (declare (not safe)) - (##cdr _%e6414364338%_))) - (_%hd6414464342%_ + (##cdr _%e6451364708%_))) + (_%hd6451464712%_ (let () (declare (not safe)) - (##car _%e6414364338%_)))) - (_%__match8206382064%_ - _%e6413164372%_ - _%hd6413264376%_ - _%tl6413364379%_ - _%e6414364338%_ - _%hd6414464342%_ - _%tl6414564345%_))) - (_%__kont8201182012%_)))))) - (_%__match8201982020%_ - (lambda (_%e6411464470%_ - _%hd6411564474%_ - _%tl6411664477%_) - (let ((_%L64480%_ _%tl6411664477%_) - (_%L64482%_ _%hd6411564474%_)) - (if (gx#identifier? _%L64482%_) - (_%__kont8199982000%_ _%L64480%_ _%L64482%_) - (if (gx#stx-pair? _%hd6411564474%_) - (let ((_%e6412264426%_ - (gx#syntax-e _%hd6411564474%_))) - (let ((_%tl6412464433%_ + (##car _%e6451364708%_)))) + (_%__match8293882939%_ + _%e6450164742%_ + _%hd6450264746%_ + _%tl6450364749%_ + _%e6451364708%_ + _%hd6451464712%_ + _%tl6451564715%_))) + (_%__kont8288682887%_)))))) + (_%__match8289482895%_ + (lambda (_%e6448464840%_ + _%hd6448564844%_ + _%tl6448664847%_) + (let ((_%L64850%_ _%tl6448664847%_) + (_%L64852%_ _%hd6448564844%_)) + (if (gx#identifier? _%L64852%_) + (_%__kont8287482875%_ _%L64850%_ _%L64852%_) + (if (gx#stx-pair? _%hd6448564844%_) + (let ((_%e6449264796%_ + (gx#syntax-e _%hd6448564844%_))) + (let ((_%tl6449464803%_ (let () (declare (not safe)) - (##cdr _%e6412264426%_))) - (_%hd6412364430%_ + (##cdr _%e6449264796%_))) + (_%hd6449364800%_ (let () (declare (not safe)) - (##car _%e6412264426%_)))) - (if (gx#stx-pair? _%tl6412464433%_) - (let ((_%e6412564436%_ + (##car _%e6449264796%_)))) + (if (gx#stx-pair? _%tl6449464803%_) + (let ((_%e6449564806%_ (gx#syntax-e - _%tl6412464433%_))) - (let ((_%tl6412764443%_ + _%tl6449464803%_))) + (let ((_%tl6449764813%_ (let () (declare (not safe)) - (##cdr _%e6412564436%_))) - (_%hd6412664440%_ + (##cdr _%e6449564806%_))) + (_%hd6449664810%_ (let () (declare (not safe)) - (##car _%e6412564436%_)))) + (##car _%e6449564806%_)))) (if (gx#stx-null? - _%tl6412764443%_) - (_%__kont8200182002%_ - _%tl6411664477%_ - _%hd6412364430%_) - (_%__match8205182052%_ - _%e6411464470%_ - _%hd6411564474%_ - _%tl6411664477%_ - _%e6412264426%_ - _%hd6412364430%_ - _%tl6412464433%_)))) - (_%__match8205182052%_ - _%e6411464470%_ - _%hd6411564474%_ - _%tl6411664477%_ - _%e6412264426%_ - _%hd6412364430%_ - _%tl6412464433%_)))) - (if (gx#stx-pair? _%tl6411664477%_) - (let ((_%e6414364338%_ - (gx#syntax-e _%tl6411664477%_))) - (let ((_%tl6414564345%_ + _%tl6449764813%_) + (_%__kont8287682877%_ + _%tl6448664847%_ + _%hd6449364800%_) + (_%__match8292682927%_ + _%e6448464840%_ + _%hd6448564844%_ + _%tl6448664847%_ + _%e6449264796%_ + _%hd6449364800%_ + _%tl6449464803%_)))) + (_%__match8292682927%_ + _%e6448464840%_ + _%hd6448564844%_ + _%tl6448664847%_ + _%e6449264796%_ + _%hd6449364800%_ + _%tl6449464803%_)))) + (if (gx#stx-pair? _%tl6448664847%_) + (let ((_%e6451364708%_ + (gx#syntax-e _%tl6448664847%_))) + (let ((_%tl6451564715%_ (let () (declare (not safe)) - (##cdr _%e6414364338%_))) - (_%hd6414464342%_ + (##cdr _%e6451364708%_))) + (_%hd6451464712%_ (let () (declare (not safe)) - (##car _%e6414364338%_)))) - (_%__match8206382064%_ - _%e6411464470%_ - _%hd6411564474%_ - _%tl6411664477%_ - _%e6414364338%_ - _%hd6414464342%_ - _%tl6414564345%_))) - (_%__kont8201182012%_)))))))) - (if (gx#stx-pair? _%__stx8199681997%_) - (let ((_%e6411464470%_ (gx#syntax-e _%__stx8199681997%_))) - (let ((_%tl6411664477%_ + (##car _%e6451364708%_)))) + (_%__match8293882939%_ + _%e6448464840%_ + _%hd6448564844%_ + _%tl6448664847%_ + _%e6451364708%_ + _%hd6451464712%_ + _%tl6451564715%_))) + (_%__kont8288682887%_)))))))) + (if (gx#stx-pair? _%__stx8287182872%_) + (let ((_%e6448464840%_ (gx#syntax-e _%__stx8287182872%_))) + (let ((_%tl6448664847%_ (let () (declare (not safe)) - (##cdr _%e6411464470%_))) - (_%hd6411564474%_ + (##cdr _%e6448464840%_))) + (_%hd6448564844%_ (let () (declare (not safe)) - (##car _%e6411464470%_)))) - (_%__match8201982020%_ - _%e6411464470%_ - _%hd6411564474%_ - _%tl6411664477%_))) - (_%__kont8201182012%_)))))))) + (##car _%e6448464840%_)))) + (_%__match8289482895%_ + _%e6448464840%_ + _%hd6448564844%_ + _%tl6448664847%_))) + (_%__kont8288682887%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#def/c| - (lambda (_%stx64497%_) - (letrec ((_%make-definition64500%_ - (lambda (_%id65598%_ - _%args65600%_ - _%return65601%_ - _%body65602%_) + (lambda (_%stx64867%_) + (letrec ((_%make-definition64870%_ + (lambda (_%id65968%_ + _%args65970%_ + _%return65971%_ + _%body65972%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#check-signature!__%| '#f absent-value absent-value - _%stx64497%_ - _%args65600%_ - _%return65601%_)) + _%stx64867%_ + _%args65970%_ + _%return65971%_)) (if (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-has-keywords?| - _%args65600%_)) - (_%make-keyword-def64502%_ - _%id65598%_ - _%args65600%_ - _%return65601%_ - _%body65602%_) - (let* ((_%unchecked-id65604%_ + _%args65970%_)) + (_%make-keyword-def64872%_ + _%id65968%_ + _%args65970%_ + _%return65971%_ + _%body65972%_) + (let* ((_%unchecked-id65974%_ (gx#stx-identifier - _%id65598%_ + _%id65968%_ '"__" - _%id65598%_)) - (_%g6560765622%_ - (lambda (_%g6560865618%_) + _%id65968%_)) + (_%g6597765992%_ + (lambda (_%g6597865988%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6560865618%_))) - (_%g6560665668%_ - (lambda (_%g6560865626%_) - (if (gx#stx-pair? _%g6560865626%_) - (let ((_%e6561165629%_ - (gx#syntax-e _%g6560865626%_))) - (let ((_%hd6561265633%_ + _%g6597865988%_))) + (_%g6597666038%_ + (lambda (_%g6597865996%_) + (if (gx#stx-pair? _%g6597865996%_) + (let ((_%e6598165999%_ + (gx#syntax-e _%g6597865996%_))) + (let ((_%hd6598266003%_ (let () (declare (not safe)) - (##car _%e6561165629%_))) - (_%tl6561365636%_ + (##car _%e6598165999%_))) + (_%tl6598366006%_ (let () (declare (not safe)) - (##cdr _%e6561165629%_)))) - (if (gx#stx-pair? _%tl6561365636%_) - (let ((_%e6561465639%_ + (##cdr _%e6598165999%_)))) + (if (gx#stx-pair? _%tl6598366006%_) + (let ((_%e6598466009%_ (gx#syntax-e - _%tl6561365636%_))) - (let ((_%hd6561565643%_ + _%tl6598366006%_))) + (let ((_%hd6598566013%_ (let () (declare (not safe)) - (##car _%e6561465639%_))) - (_%tl6561665646%_ + (##car _%e6598466009%_))) + (_%tl6598666016%_ (let () (declare (not safe)) - (##cdr _%e6561465639%_)))) + (##cdr _%e6598466009%_)))) (if (gx#stx-null? - _%tl6561665646%_) - ((lambda (_%L65649%_ - _%L65651%_) + _%tl6598666016%_) + ((lambda (_%L66019%_ + _%L66021%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L65651%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L65649%_ '())))) - _%hd6561565643%_ - _%hd6561265633%_) - (_%g6560765622%_ _%g6560865626%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6560765622%_ - _%g6560865626%_)))) - (_%g6560765622%_ _%g6560865626%_))))) - (_%g6560665668%_ - (list (_%make-checked-def64503%_ - _%id65598%_ - _%unchecked-id65604%_ - _%args65600%_ - _%return65601%_) - (_%make-unchecked-def64504%_ - _%unchecked-id65604%_ - _%args65600%_ - _%return65601%_ - _%body65602%_))))))) - (_%make-keyword-def64502%_ - (lambda (_%id65405%_ - _%signature65407%_ - _%return65408%_ - _%body65409%_) - (let* ((_%g6541165451%_ - (lambda (_%g6541265447%_) + (cons _%L66021%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L66019%_ '())))) + _%hd6598566013%_ + _%hd6598266003%_) + (_%g6597765992%_ _%g6597865996%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6597765992%_ + _%g6597865996%_)))) + (_%g6597765992%_ _%g6597865996%_))))) + (_%g6597666038%_ + (list (_%make-checked-def64873%_ + _%id65968%_ + _%unchecked-id65974%_ + _%args65970%_ + _%return65971%_) + (_%make-unchecked-def64874%_ + _%unchecked-id65974%_ + _%args65970%_ + _%return65971%_ + _%body65972%_))))))) + (_%make-keyword-def64872%_ + (lambda (_%id65775%_ + _%signature65777%_ + _%return65778%_ + _%body65779%_) + (let* ((_%g6578165821%_ + (lambda (_%g6578265817%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6541265447%_))) - (_%g6541065594%_ - (lambda (_%g6541265455%_) - (if (gx#stx-pair? _%g6541265455%_) - (let ((_%e6541965458%_ - (gx#syntax-e _%g6541265455%_))) - (let ((_%hd6542065462%_ + _%g6578265817%_))) + (_%g6578065964%_ + (lambda (_%g6578265825%_) + (if (gx#stx-pair? _%g6578265825%_) + (let ((_%e6578965828%_ + (gx#syntax-e _%g6578265825%_))) + (let ((_%hd6579065832%_ (let () (declare (not safe)) - (##car _%e6541965458%_))) - (_%tl6542165465%_ + (##car _%e6578965828%_))) + (_%tl6579165835%_ (let () (declare (not safe)) - (##cdr _%e6541965458%_)))) - (if (gx#stx-pair? _%tl6542165465%_) - (let ((_%e6542265468%_ + (##cdr _%e6578965828%_)))) + (if (gx#stx-pair? _%tl6579165835%_) + (let ((_%e6579265838%_ (gx#syntax-e - _%tl6542165465%_))) - (let ((_%hd6542365472%_ + _%tl6579165835%_))) + (let ((_%hd6579365842%_ (let () (declare (not safe)) - (##car _%e6542265468%_))) - (_%tl6542465475%_ + (##car _%e6579265838%_))) + (_%tl6579465845%_ (let () (declare (not safe)) - (##cdr _%e6542265468%_)))) + (##cdr _%e6579265838%_)))) (if (gx#stx-pair? - _%tl6542465475%_) - (let ((_%e6542565478%_ + _%tl6579465845%_) + (let ((_%e6579565848%_ (gx#syntax-e - _%tl6542465475%_))) - (let ((_%hd6542665482%_ + _%tl6579465845%_))) + (let ((_%hd6579665852%_ (let () (declare (not safe)) - (##car _%e6542565478%_))) - (_%tl6542765485%_ + (##car _%e6579565848%_))) + (_%tl6579765855%_ (let () (declare (not safe)) - (##cdr _%e6542565478%_)))) + (##cdr _%e6579565848%_)))) (if (gx#stx-pair? - _%tl6542765485%_) - (let ((_%e6542865488%_ + _%tl6579765855%_) + (let ((_%e6579865858%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6542765485%_))) - (let ((_%hd6542965492%_ + (gx#syntax-e _%tl6579765855%_))) + (let ((_%hd6579965862%_ (let () (declare (not safe)) - (##car _%e6542865488%_))) - (_%tl6543065495%_ + (##car _%e6579865858%_))) + (_%tl6580065865%_ (let () (declare (not safe)) - (##cdr _%e6542865488%_)))) - (if (gx#stx-pair? _%tl6543065495%_) - (let ((_%e6543165498%_ - (gx#syntax-e _%tl6543065495%_))) - (let ((_%hd6543265502%_ + (##cdr _%e6579865858%_)))) + (if (gx#stx-pair? _%tl6580065865%_) + (let ((_%e6580165868%_ + (gx#syntax-e _%tl6580065865%_))) + (let ((_%hd6580265872%_ (let () (declare (not safe)) - (##car _%e6543165498%_))) - (_%tl6543365505%_ + (##car _%e6580165868%_))) + (_%tl6580365875%_ (let () (declare (not safe)) - (##cdr _%e6543165498%_)))) - (if (gx#stx-pair? _%tl6543365505%_) - (let ((_%e6543465508%_ - (gx#syntax-e _%tl6543365505%_))) - (let ((_%hd6543565512%_ + (##cdr _%e6580165868%_)))) + (if (gx#stx-pair? _%tl6580365875%_) + (let ((_%e6580465878%_ + (gx#syntax-e _%tl6580365875%_))) + (let ((_%hd6580565882%_ (let () (declare (not safe)) - (##car _%e6543465508%_))) - (_%tl6543665515%_ + (##car _%e6580465878%_))) + (_%tl6580665885%_ (let () (declare (not safe)) - (##cdr _%e6543465508%_)))) - (if (gx#stx-pair/null? _%hd6543565512%_) - (let ((_g84133_ + (##cdr _%e6580465878%_)))) + (if (gx#stx-pair/null? _%hd6580565882%_) + (let ((_g85125_ (gx#syntax-split-splice - _%hd6543565512%_ + _%hd6580565882%_ '0))) (begin - (let ((_g84134_ + (let ((_g85126_ (let () (declare (not safe)) - (if (##values? _g84133_) - (##vector-length - _g84133_) + (if (##values? _g85125_) + (##values-length + _g85125_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84134_ 2))) + (##fx= _g85126_ 2))) (error "Context expects 2 values" - _g84134_))) - (let ((_%target6543765518%_ + _g85126_))) + (let ((_%target6580765888%_ (let () (declare (not safe)) - (##vector-ref - _g84133_ + (##values-ref + _g85125_ 0))) - (_%tl6543965521%_ + (_%tl6580965891%_ (let () (declare (not safe)) - (##vector-ref - _g84133_ + (##values-ref + _g85125_ 1)))) (if (gx#stx-null? - _%tl6543965521%_) - (letrec ((_%loop6544065524%_ - (lambda (_%hd6543865528%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6544465531%_) - (if (gx#stx-pair? _%hd6543865528%_) - (let ((_%e6544165534%_ - (gx#syntax-e _%hd6543865528%_))) - (let ((_%lp-hd6544265538%_ + _%tl6580965891%_) + (letrec ((_%loop6581065894%_ + (lambda (_%hd6580865898%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6581465901%_) + (if (gx#stx-pair? _%hd6580865898%_) + (let ((_%e6581165904%_ + (gx#syntax-e _%hd6580865898%_))) + (let ((_%lp-hd6581265908%_ (let () (declare (not safe)) - (##car _%e6544165534%_))) - (_%lp-tl6544365541%_ + (##car _%e6581165904%_))) + (_%lp-tl6581365911%_ (let () (declare (not safe)) - (##cdr _%e6544165534%_)))) - (_%loop6544065524%_ - _%lp-tl6544365541%_ - (cons _%lp-hd6544265538%_ - _%body6544465531%_)))) - (let ((_%body6544565544%_ - (reverse _%body6544465531%_))) - (if (gx#stx-null? _%tl6543665515%_) - ((lambda (_%L65548%_ - _%L65550%_ - _%L65551%_ - _%L65552%_ - _%L65553%_ - _%L65554%_) + (##cdr _%e6581165904%_)))) + (_%loop6581065894%_ + _%lp-tl6581365911%_ + (cons _%lp-hd6581265908%_ + _%body6581465901%_)))) + (let ((_%body6581565914%_ + (reverse _%body6581465901%_))) + (if (gx#stx-null? _%tl6580665885%_) + ((lambda (_%L65918%_ + _%L65920%_ + _%L65921%_ + _%L65922%_ + _%L65923%_ + _%L65924%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L65554%_ _%L65553%_) + (cons (cons _%L65924%_ _%L65923%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L65552%_ + (cons (cons _%L65922%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L65551%_ (cons '#f '()))) + (cons _%L65921%_ (cons '#f '()))) (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L65550%_ '())) + (cons _%L65920%_ '())) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L65552%_ - (foldr (lambda (_%g6558565588%_ + (cons _%L65922%_ + (foldr (lambda (_%g6595565958%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6558665591%_) - (cons _%g6558565588%_ _%g6558665591%_)) + _%g6595665961%_) + (cons _%g6595565958%_ _%g6595665961%_)) '() - _%L65548%_))) + _%L65918%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx64497%_))) - _%body6544565544%_ - _%hd6543265502%_ - _%hd6542965492%_ - _%hd6542665482%_ - _%hd6542365472%_ - _%hd6542065462%_) - (_%g6541165451%_ _%g6541265455%_))))))) - (_%loop6544065524%_ _%target6543765518%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6541165451%_ - _%g6541265455%_))))) - (_%g6541165451%_ _%g6541265455%_)))) - (_%g6541165451%_ _%g6541265455%_)))) - (_%g6541165451%_ _%g6541265455%_)))) - (_%g6541165451%_ _%g6541265455%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6541165451%_ - _%g6541265455%_)))) - (_%g6541165451%_ _%g6541265455%_)))) - (_%g6541165451%_ _%g6541265455%_))))) - (_%g6541065594%_ - (list _%id65405%_ + (gx#stx-source _%stx64867%_))) + _%body6581565914%_ + _%hd6580265872%_ + _%hd6579965862%_ + _%hd6579665852%_ + _%hd6579365842%_ + _%hd6579065832%_) + (_%g6578165821%_ _%g6578265825%_))))))) + (_%loop6581065894%_ _%target6580765888%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6578165821%_ + _%g6578265825%_))))) + (_%g6578165821%_ _%g6578265825%_)))) + (_%g6578165821%_ _%g6578265825%_)))) + (_%g6578165821%_ _%g6578265825%_)))) + (_%g6578165821%_ _%g6578265825%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6578165821%_ + _%g6578265825%_)))) + (_%g6578165821%_ _%g6578265825%_)))) + (_%g6578165821%_ _%g6578265825%_))))) + (_%g6578065964%_ + (list _%id65775%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature65407%_)) - _%signature65407%_ - _%return65408%_ + _%signature65777%_)) + _%signature65777%_ + _%return65778%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx64497%_ - _%return65408%_)) - _%body65409%_))))) - (_%make-checked-def64503%_ - (lambda (_%id65186%_ - _%unchecked-id65188%_ - _%signature65189%_ - _%return65190%_) - (let* ((_%g6519265236%_ - (lambda (_%g6519365232%_) + _%stx64867%_ + _%return65778%_)) + _%body65779%_))))) + (_%make-checked-def64873%_ + (lambda (_%id65556%_ + _%unchecked-id65558%_ + _%signature65559%_ + _%return65560%_) + (let* ((_%g6556265606%_ + (lambda (_%g6556365602%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6519365232%_))) - (_%g6519165401%_ - (lambda (_%g6519365240%_) - (if (gx#stx-pair? _%g6519365240%_) - (let ((_%e6520165243%_ - (gx#syntax-e _%g6519365240%_))) - (let ((_%hd6520265247%_ + _%g6556365602%_))) + (_%g6556165771%_ + (lambda (_%g6556365610%_) + (if (gx#stx-pair? _%g6556365610%_) + (let ((_%e6557165613%_ + (gx#syntax-e _%g6556365610%_))) + (let ((_%hd6557265617%_ (let () (declare (not safe)) - (##car _%e6520165243%_))) - (_%tl6520365250%_ + (##car _%e6557165613%_))) + (_%tl6557365620%_ (let () (declare (not safe)) - (##cdr _%e6520165243%_)))) - (if (gx#stx-pair? _%tl6520365250%_) - (let ((_%e6520465253%_ + (##cdr _%e6557165613%_)))) + (if (gx#stx-pair? _%tl6557365620%_) + (let ((_%e6557465623%_ (gx#syntax-e - _%tl6520365250%_))) - (let ((_%hd6520565257%_ + _%tl6557365620%_))) + (let ((_%hd6557565627%_ (let () (declare (not safe)) - (##car _%e6520465253%_))) - (_%tl6520665260%_ + (##car _%e6557465623%_))) + (_%tl6557665630%_ (let () (declare (not safe)) - (##cdr _%e6520465253%_)))) + (##cdr _%e6557465623%_)))) (if (gx#stx-pair? - _%tl6520665260%_) - (let ((_%e6520765263%_ + _%tl6557665630%_) + (let ((_%e6557765633%_ (gx#syntax-e - _%tl6520665260%_))) - (let ((_%hd6520865267%_ + _%tl6557665630%_))) + (let ((_%hd6557865637%_ (let () (declare (not safe)) - (##car _%e6520765263%_))) - (_%tl6520965270%_ + (##car _%e6557765633%_))) + (_%tl6557965640%_ (let () (declare (not safe)) - (##cdr _%e6520765263%_)))) + (##cdr _%e6557765633%_)))) (if (gx#stx-pair? - _%tl6520965270%_) - (let ((_%e6521065273%_ + _%tl6557965640%_) + (let ((_%e6558065643%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6520965270%_))) - (let ((_%hd6521165277%_ + (gx#syntax-e _%tl6557965640%_))) + (let ((_%hd6558165647%_ (let () (declare (not safe)) - (##car _%e6521065273%_))) - (_%tl6521265280%_ + (##car _%e6558065643%_))) + (_%tl6558265650%_ (let () (declare (not safe)) - (##cdr _%e6521065273%_)))) - (if (gx#stx-pair/null? _%hd6521165277%_) - (let ((_g84135_ - (gx#syntax-split-splice _%hd6521165277%_ '0))) + (##cdr _%e6558065643%_)))) + (if (gx#stx-pair/null? _%hd6558165647%_) + (let ((_g85127_ + (gx#syntax-split-splice _%hd6558165647%_ '0))) (begin - (let ((_g84136_ + (let ((_g85128_ (let () (declare (not safe)) - (if (##values? _g84135_) - (##vector-length _g84135_) + (if (##values? _g85127_) + (##values-length _g85127_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84136_ 2))) + (##fx= _g85128_ 2))) (error "Context expects 2 values" - _g84136_))) - (let ((_%target6521365283%_ + _g85128_))) + (let ((_%target6558365653%_ (let () (declare (not safe)) - (##vector-ref _g84135_ 0))) - (_%tl6521565286%_ + (##values-ref _g85127_ 0))) + (_%tl6558565656%_ (let () (declare (not safe)) - (##vector-ref _g84135_ 1)))) - (if (gx#stx-null? _%tl6521565286%_) - (letrec ((_%loop6521665289%_ - (lambda (_%hd6521465293%_ - _%out6522065296%_) + (##values-ref _g85127_ 1)))) + (if (gx#stx-null? _%tl6558565656%_) + (letrec ((_%loop6558665659%_ + (lambda (_%hd6558465663%_ + _%out6559065666%_) (if (gx#stx-pair? - _%hd6521465293%_) - (let ((_%e6521765299%_ + _%hd6558465663%_) + (let ((_%e6558765669%_ (gx#syntax-e - _%hd6521465293%_))) - (let ((_%lp-hd6521865303%_ + _%hd6558465663%_))) + (let ((_%lp-hd6558865673%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6521765299%_))) - (_%lp-tl6521965306%_ - (let () (declare (not safe)) (##cdr _%e6521765299%_)))) - (_%loop6521665289%_ - _%lp-tl6521965306%_ - (cons _%lp-hd6521865303%_ _%out6522065296%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%out6522165309%_ - (reverse _%out6522065296%_))) + (##car _%e6558765669%_))) + (_%lp-tl6558965676%_ + (let () (declare (not safe)) (##cdr _%e6558765669%_)))) + (_%loop6558665659%_ + _%lp-tl6558965676%_ + (cons _%lp-hd6558865673%_ _%out6559065666%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%out6559165679%_ + (reverse _%out6559065666%_))) (if (gx#stx-pair? - _%tl6521265280%_) - (let ((_%e6522265313%_ + _%tl6558265650%_) + (let ((_%e6559265683%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6521265280%_))) - (let ((_%hd6522365317%_ + (gx#syntax-e _%tl6558265650%_))) + (let ((_%hd6559365687%_ (let () (declare (not safe)) - (##car _%e6522265313%_))) - (_%tl6522465320%_ + (##car _%e6559265683%_))) + (_%tl6559465690%_ (let () (declare (not safe)) - (##cdr _%e6522265313%_)))) - (if (gx#stx-pair? _%tl6522465320%_) - (let ((_%e6522565323%_ - (gx#syntax-e _%tl6522465320%_))) - (let ((_%hd6522665327%_ + (##cdr _%e6559265683%_)))) + (if (gx#stx-pair? _%tl6559465690%_) + (let ((_%e6559565693%_ + (gx#syntax-e _%tl6559465690%_))) + (let ((_%hd6559665697%_ (let () (declare (not safe)) - (##car _%e6522565323%_))) - (_%tl6522765330%_ + (##car _%e6559565693%_))) + (_%tl6559765700%_ (let () (declare (not safe)) - (##cdr _%e6522565323%_)))) - (if (gx#stx-pair? _%tl6522765330%_) - (let ((_%e6522865333%_ - (gx#syntax-e _%tl6522765330%_))) - (let ((_%hd6522965337%_ + (##cdr _%e6559565693%_)))) + (if (gx#stx-pair? _%tl6559765700%_) + (let ((_%e6559865703%_ + (gx#syntax-e _%tl6559765700%_))) + (let ((_%hd6559965707%_ (let () (declare (not safe)) - (##car _%e6522865333%_))) - (_%tl6523065340%_ + (##car _%e6559865703%_))) + (_%tl6560065710%_ (let () (declare (not safe)) - (##cdr _%e6522865333%_)))) - (if (gx#stx-null? _%tl6523065340%_) - ((lambda (_%L65343%_ - _%L65345%_ - _%L65346%_ - _%L65347%_ - _%L65348%_ - _%L65349%_ - _%L65350%_) - (if (gx#stx-list? _%L65346%_) + (##cdr _%e6559865703%_)))) + (if (gx#stx-null? _%tl6560065710%_) + ((lambda (_%L65713%_ + _%L65715%_ + _%L65716%_ + _%L65717%_ + _%L65718%_ + _%L65719%_ + _%L65720%_) + (if (gx#stx-list? _%L65716%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L65350%_ + (cons (cons _%L65720%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L65348%_) + _%L65718%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L65346%_ - (cons _%L65345%_ - (cons _%L65349%_ '()))) + (cons (cons _%L65716%_ + (cons _%L65715%_ + (cons _%L65719%_ '()))) (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -828,36 +828,36 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L65343%_ '())) + (cons _%L65713%_ '())) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L65346%_ - (cons (cons _%L65349%_ - (foldr (lambda (_%g6538465387%_ - _%g6538565390%_) - (cons _%g6538465387%_ - _%g6538565390%_)) + (cons _%L65716%_ + (cons (cons _%L65719%_ + (foldr (lambda (_%g6575465757%_ + _%g6575565760%_) + (cons _%g6575465757%_ + _%g6575565760%_)) '() - _%L65347%_)) + _%L65717%_)) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx64497%_)) + (gx#stx-source _%stx64867%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L65350%_ + (cons (cons _%L65720%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L65348%_) + _%L65718%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L65346%_ - (cons _%L65345%_ - (cons _%L65349%_ '()))) + (cons (cons _%L65716%_ + (cons _%L65715%_ + (cons _%L65719%_ '()))) (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -865,17 +865,17 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L65343%_ '())) + (cons _%L65713%_ '())) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L65346%_ + (cons _%L65716%_ (cons (cons (gx#datum->syntax '#f '##apply) - (cons _%L65349%_ - (foldr (lambda (_%g6539265395%_ + (cons _%L65719%_ + (foldr (lambda (_%g6576265765%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6539365398%_) - (cons _%g6539265395%_ _%g6539365398%_)) + _%g6576365768%_) + (cons _%g6576265765%_ _%g6576365768%_)) '() - _%L65347%_))) + _%L65717%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) @@ -884,2311 +884,2311 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx64497%_)))) - _%hd6522965337%_ - _%hd6522665327%_ - _%hd6522365317%_ - _%out6522165309%_ - _%hd6520865267%_ - _%hd6520565257%_ - _%hd6520265247%_) - (_%g6519265236%_ _%g6519365240%_)))) - (_%g6519265236%_ _%g6519365240%_)))) - (_%g6519265236%_ _%g6519365240%_)))) - (_%g6519265236%_ _%g6519365240%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6521665289%_ - _%target6521365283%_ + _%stx64867%_)))) + _%hd6559965707%_ + _%hd6559665697%_ + _%hd6559365687%_ + _%out6559165679%_ + _%hd6557865637%_ + _%hd6557565627%_ + _%hd6557265617%_) + (_%g6556265606%_ _%g6556365610%_)))) + (_%g6556265606%_ _%g6556365610%_)))) + (_%g6556265606%_ _%g6556365610%_)))) + (_%g6556265606%_ _%g6556365610%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6558665659%_ + _%target6558365653%_ '())) - (_%g6519265236%_ _%g6519365240%_))))) - (_%g6519265236%_ _%g6519365240%_)))) - (_%g6519265236%_ _%g6519365240%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6519265236%_ - _%g6519365240%_)))) - (_%g6519265236%_ _%g6519365240%_)))) - (_%g6519265236%_ _%g6519365240%_))))) - (_%g6519165401%_ - (list _%id65186%_ - _%unchecked-id65188%_ + (_%g6556265606%_ _%g6556365610%_))))) + (_%g6556265606%_ _%g6556365610%_)))) + (_%g6556265606%_ _%g6556365610%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6556265606%_ + _%g6556365610%_)))) + (_%g6556265606%_ _%g6556365610%_)))) + (_%g6556265606%_ _%g6556365610%_))))) + (_%g6556165771%_ + (list _%id65556%_ + _%unchecked-id65558%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature65189%_)) + _%signature65559%_)) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature65189%_)) - _%signature65189%_ - _%return65190%_ + _%signature65559%_)) + _%signature65559%_ + _%return65560%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx64497%_ - _%return65190%_))))))) - (_%make-unchecked-def64504%_ - (lambda (_%unchecked-id65011%_ - _%signature65013%_ - _%return65014%_ - _%body65015%_) - (let* ((_%g6501765053%_ - (lambda (_%g6501865049%_) + _%stx64867%_ + _%return65560%_))))))) + (_%make-unchecked-def64874%_ + (lambda (_%unchecked-id65381%_ + _%signature65383%_ + _%return65384%_ + _%body65385%_) + (let* ((_%g6538765423%_ + (lambda (_%g6538865419%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6501865049%_))) - (_%g6501665182%_ - (lambda (_%g6501865057%_) - (if (gx#stx-pair? _%g6501865057%_) - (let ((_%e6502465060%_ - (gx#syntax-e _%g6501865057%_))) - (let ((_%hd6502565064%_ + _%g6538865419%_))) + (_%g6538665552%_ + (lambda (_%g6538865427%_) + (if (gx#stx-pair? _%g6538865427%_) + (let ((_%e6539465430%_ + (gx#syntax-e _%g6538865427%_))) + (let ((_%hd6539565434%_ (let () (declare (not safe)) - (##car _%e6502465060%_))) - (_%tl6502665067%_ + (##car _%e6539465430%_))) + (_%tl6539665437%_ (let () (declare (not safe)) - (##cdr _%e6502465060%_)))) - (if (gx#stx-pair? _%tl6502665067%_) - (let ((_%e6502765070%_ + (##cdr _%e6539465430%_)))) + (if (gx#stx-pair? _%tl6539665437%_) + (let ((_%e6539765440%_ (gx#syntax-e - _%tl6502665067%_))) - (let ((_%hd6502865074%_ + _%tl6539665437%_))) + (let ((_%hd6539865444%_ (let () (declare (not safe)) - (##car _%e6502765070%_))) - (_%tl6502965077%_ + (##car _%e6539765440%_))) + (_%tl6539965447%_ (let () (declare (not safe)) - (##cdr _%e6502765070%_)))) + (##cdr _%e6539765440%_)))) (if (gx#stx-pair? - _%tl6502965077%_) - (let ((_%e6503065080%_ + _%tl6539965447%_) + (let ((_%e6540065450%_ (gx#syntax-e - _%tl6502965077%_))) - (let ((_%hd6503165084%_ + _%tl6539965447%_))) + (let ((_%hd6540165454%_ (let () (declare (not safe)) - (##car _%e6503065080%_))) - (_%tl6503265087%_ + (##car _%e6540065450%_))) + (_%tl6540265457%_ (let () (declare (not safe)) - (##cdr _%e6503065080%_)))) + (##cdr _%e6540065450%_)))) (if (gx#stx-pair? - _%tl6503265087%_) - (let ((_%e6503365090%_ + _%tl6540265457%_) + (let ((_%e6540365460%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6503265087%_))) - (let ((_%hd6503465094%_ + (gx#syntax-e _%tl6540265457%_))) + (let ((_%hd6540465464%_ (let () (declare (not safe)) - (##car _%e6503365090%_))) - (_%tl6503565097%_ + (##car _%e6540365460%_))) + (_%tl6540565467%_ (let () (declare (not safe)) - (##cdr _%e6503365090%_)))) - (if (gx#stx-pair? _%tl6503565097%_) - (let ((_%e6503665100%_ - (gx#syntax-e _%tl6503565097%_))) - (let ((_%hd6503765104%_ + (##cdr _%e6540365460%_)))) + (if (gx#stx-pair? _%tl6540565467%_) + (let ((_%e6540665470%_ + (gx#syntax-e _%tl6540565467%_))) + (let ((_%hd6540765474%_ (let () (declare (not safe)) - (##car _%e6503665100%_))) - (_%tl6503865107%_ + (##car _%e6540665470%_))) + (_%tl6540865477%_ (let () (declare (not safe)) - (##cdr _%e6503665100%_)))) - (if (gx#stx-pair/null? _%hd6503765104%_) - (let ((_g84137_ + (##cdr _%e6540665470%_)))) + (if (gx#stx-pair/null? _%hd6540765474%_) + (let ((_g85129_ (gx#syntax-split-splice - _%hd6503765104%_ + _%hd6540765474%_ '0))) (begin - (let ((_g84138_ + (let ((_g85130_ (let () (declare (not safe)) - (if (##values? _g84137_) - (##vector-length _g84137_) + (if (##values? _g85129_) + (##values-length _g85129_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84138_ 2))) + (##fx= _g85130_ 2))) (error "Context expects 2 values" - _g84138_))) - (let ((_%target6503965110%_ + _g85130_))) + (let ((_%target6540965480%_ (let () (declare (not safe)) - (##vector-ref _g84137_ 0))) - (_%tl6504165113%_ + (##values-ref _g85129_ 0))) + (_%tl6541165483%_ (let () (declare (not safe)) - (##vector-ref _g84137_ 1)))) - (if (gx#stx-null? _%tl6504165113%_) - (letrec ((_%loop6504265116%_ - (lambda (_%hd6504065120%_ - _%body6504665123%_) + (##values-ref _g85129_ 1)))) + (if (gx#stx-null? _%tl6541165483%_) + (letrec ((_%loop6541265486%_ + (lambda (_%hd6541065490%_ + _%body6541665493%_) (if (gx#stx-pair? - _%hd6504065120%_) - (let ((_%e6504365126%_ + _%hd6541065490%_) + (let ((_%e6541365496%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6504065120%_))) - (let ((_%lp-hd6504465130%_ + (gx#syntax-e _%hd6541065490%_))) + (let ((_%lp-hd6541465500%_ (let () (declare (not safe)) - (##car _%e6504365126%_))) - (_%lp-tl6504565133%_ + (##car _%e6541365496%_))) + (_%lp-tl6541565503%_ (let () (declare (not safe)) - (##cdr _%e6504365126%_)))) - (_%loop6504265116%_ - _%lp-tl6504565133%_ - (cons _%lp-hd6504465130%_ _%body6504665123%_)))) - (let ((_%body6504765136%_ (reverse _%body6504665123%_))) - (if (gx#stx-null? _%tl6503865107%_) - ((lambda (_%L65140%_ - _%L65142%_ - _%L65143%_ - _%L65144%_ - _%L65145%_) + (##cdr _%e6541365496%_)))) + (_%loop6541265486%_ + _%lp-tl6541565503%_ + (cons _%lp-hd6541465500%_ _%body6541665493%_)))) + (let ((_%body6541765506%_ (reverse _%body6541665493%_))) + (if (gx#stx-null? _%tl6540865477%_) + ((lambda (_%L65510%_ + _%L65512%_ + _%L65513%_ + _%L65514%_ + _%L65515%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L65145%_ _%L65144%_) + (cons (cons _%L65515%_ _%L65514%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L65142%_ (cons '#f '()))) + (cons _%L65512%_ (cons '#f '()))) (cons (cons (gx#datum->syntax '#f 'with-procedure-unchecked-contract) - (cons _%L65143%_ - (foldr (lambda (_%g6517365176%_ - _%g6517465179%_) - (cons _%g6517365176%_ - _%g6517465179%_)) + (cons _%L65513%_ + (foldr (lambda (_%g6554365546%_ + _%g6554465549%_) + (cons _%g6554365546%_ + _%g6554465549%_)) '() - _%L65140%_))) + _%L65510%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx64497%_))) - _%body6504765136%_ - _%hd6503465094%_ - _%hd6503165084%_ - _%hd6502865074%_ - _%hd6502565064%_) - (_%g6501765053%_ _%g6501865057%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6504265116%_ - _%target6503965110%_ + (gx#stx-source _%stx64867%_))) + _%body6541765506%_ + _%hd6540465464%_ + _%hd6540165454%_ + _%hd6539865444%_ + _%hd6539565434%_) + (_%g6538765423%_ _%g6538865427%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6541265486%_ + _%target6540965480%_ '())) - (_%g6501765053%_ - _%g6501865057%_))))) - (_%g6501765053%_ _%g6501865057%_)))) - (_%g6501765053%_ _%g6501865057%_)))) - (_%g6501765053%_ _%g6501865057%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6501765053%_ - _%g6501865057%_)))) - (_%g6501765053%_ _%g6501865057%_)))) - (_%g6501765053%_ _%g6501865057%_))))) - (_%g6501665182%_ - (list _%unchecked-id65011%_ + (_%g6538765423%_ + _%g6538865427%_))))) + (_%g6538765423%_ _%g6538865427%_)))) + (_%g6538765423%_ _%g6538865427%_)))) + (_%g6538765423%_ _%g6538865427%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6538765423%_ + _%g6538865427%_)))) + (_%g6538765423%_ _%g6538865427%_)))) + (_%g6538765423%_ _%g6538865427%_))))) + (_%g6538665552%_ + (list _%unchecked-id65381%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature65013%_)) - _%signature65013%_ - _%return65014%_ - _%body65015%_)))))) - (let* ((_%__stx8211082111%_ _%stx64497%_) - (_%g6450964601%_ + _%signature65383%_)) + _%signature65383%_ + _%return65384%_ + _%body65385%_)))))) + (let* ((_%__stx8298582986%_ _%stx64867%_) + (_%g6487964971%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8211082111%_)))) - (let ((_%__kont8211382114%_ - (lambda (_%L64962%_ _%L64964%_ _%L64965%_ _%L64966%_) + _%__stx8298582986%_)))) + (let ((_%__kont8298882989%_ + (lambda (_%L65332%_ _%L65334%_ _%L65335%_ _%L65336%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L64965%_) - (_%make-definition64500%_ - _%L64966%_ - _%L64965%_ - _%L64964%_ - (foldr (lambda (_%g6499064993%_ _%g6499164996%_) - (cons _%g6499064993%_ _%g6499164996%_)) + _%L65335%_) + (_%make-definition64870%_ + _%L65336%_ + _%L65335%_ + _%L65334%_ + (foldr (lambda (_%g6536065363%_ _%g6536165366%_) + (cons _%g6536065363%_ _%g6536165366%_)) '() - _%L64962%_)) + _%L65332%_)) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L64966%_ _%L64965%_) + (cons (cons _%L65336%_ _%L65335%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f - (cons _%L64964%_ + (cons _%L65334%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '()))) - (foldr (lambda (_%g6499865001%_ _%g6499965004%_) - (cons _%g6499865001%_ _%g6499965004%_)) + (foldr (lambda (_%g6536865371%_ _%g6536965374%_) + (cons _%g6536865371%_ _%g6536965374%_)) '() - _%L64962%_))) + _%L65332%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont8211782118%_ - (lambda (_%L64836%_ _%L64838%_ _%L64839%_) + (_%__kont8299282993%_ + (lambda (_%L65206%_ _%L65208%_ _%L65209%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L64838%_) + _%L65208%_) (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L64839%_ _%L64838%_) + (cons (cons _%L65209%_ _%L65208%_) (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6485864861%_ + (foldr (lambda (_%g6522865231%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6485964864%_) - (cons _%g6485864861%_ _%g6485964864%_)) + _%g6522965234%_) + (cons _%g6522865231%_ _%g6522965234%_)) '() - _%L64836%_))))) + _%L65206%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L64839%_ _%L64838%_) - (foldr (lambda (_%g6486664869%_ - _%g6486764872%_) - (cons _%g6486664869%_ - _%g6486764872%_)) + (cons (cons _%L65209%_ _%L65208%_) + (foldr (lambda (_%g6523665239%_ + _%g6523765242%_) + (cons _%g6523665239%_ + _%g6523765242%_)) '() - _%L64836%_)))))) - (_%__kont8212182122%_ - (lambda (_%L64734%_ _%L64736%_ _%L64737%_ _%L64738%_) + _%L65206%_)))))) + (_%__kont8299682997%_ + (lambda (_%L65104%_ _%L65106%_ _%L65107%_ _%L65108%_) (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L64738%_ _%L64737%_) + (cons (cons _%L65108%_ _%L65107%_) (cons (cons (gx#datum->syntax '#f 'lambda/c) - (cons _%L64736%_ - (foldr (lambda (_%g6476064763%_ + (cons _%L65106%_ + (foldr (lambda (_%g6513065133%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6476164766%_) - (cons _%g6476064763%_ _%g6476164766%_)) + _%g6513165136%_) + (cons _%g6513065133%_ _%g6513165136%_)) '() - _%L64734%_))) + _%L65104%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8212582126%_ - (lambda (_%L64638%_ _%L64640%_) + (_%__kont8300083001%_ + (lambda (_%L65008%_ _%L65010%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L64640%_ (cons _%L64638%_ '())))))) - (let* ((_%__match8224782248%_ - (lambda (_%e6458764608%_ - _%hd6458864612%_ - _%tl6458964615%_ - _%e6459064618%_ - _%hd6459164622%_ - _%tl6459264625%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) - (let ((_%L64638%_ _%hd6459464632%_) - (_%L64640%_ _%hd6459164622%_)) - (if (gx#identifier? _%L64640%_) - (_%__kont8212582126%_ _%L64638%_ _%L64640%_) + (cons _%L65010%_ (cons _%L65008%_ '())))))) + (let* ((_%__match8312283123%_ + (lambda (_%e6495764978%_ + _%hd6495864982%_ + _%tl6495964985%_ + _%e6496064988%_ + _%hd6496164992%_ + _%tl6496264995%_ + _%e6496364998%_ + _%hd6496465002%_ + _%tl6496565005%_) + (let ((_%L65008%_ _%hd6496465002%_) + (_%L65010%_ _%hd6496164992%_)) + (if (gx#identifier? _%L65010%_) + (_%__kont8300083001%_ _%L65008%_ _%L65010%_) (let () (declare (not safe)) - (_%g6450964601%_)))))) - (_%__match8222782228%_ - (lambda (_%e6456464664%_ - _%hd6456564668%_ - _%tl6456664671%_ - _%e6456764674%_ - _%hd6456864678%_ - _%tl6456964681%_ - _%e6457064684%_ - _%hd6457164688%_ - _%tl6457264691%_ - _%e6457364694%_ - _%hd6457464698%_ - _%tl6457564701%_ - _%__splice8212382124%_ - _%target6457664704%_ - _%tl6457864707%_) - (letrec ((_%loop6457964710%_ - (lambda (_%hd6457764714%_ _%body6458364717%_) - (if (gx#stx-pair? _%hd6457764714%_) - (let ((_%e6458064720%_ - (gx#syntax-e _%hd6457764714%_))) - (let ((_%lp-tl6458264727%_ + (_%g6487964971%_)))))) + (_%__match8310283103%_ + (lambda (_%e6493465034%_ + _%hd6493565038%_ + _%tl6493665041%_ + _%e6493765044%_ + _%hd6493865048%_ + _%tl6493965051%_ + _%e6494065054%_ + _%hd6494165058%_ + _%tl6494265061%_ + _%e6494365064%_ + _%hd6494465068%_ + _%tl6494565071%_ + _%__splice8299882999%_ + _%target6494665074%_ + _%tl6494865077%_) + (letrec ((_%loop6494965080%_ + (lambda (_%hd6494765084%_ _%body6495365087%_) + (if (gx#stx-pair? _%hd6494765084%_) + (let ((_%e6495065090%_ + (gx#syntax-e _%hd6494765084%_))) + (let ((_%lp-tl6495265097%_ (let () (declare (not safe)) - (##cdr _%e6458064720%_))) - (_%lp-hd6458164724%_ + (##cdr _%e6495065090%_))) + (_%lp-hd6495165094%_ (let () (declare (not safe)) - (##car _%e6458064720%_)))) - (_%loop6457964710%_ - _%lp-tl6458264727%_ - (cons _%lp-hd6458164724%_ - _%body6458364717%_)))) - (let ((_%body6458464730%_ - (reverse _%body6458364717%_))) - (_%__kont8212182122%_ - _%body6458464730%_ - _%tl6457264691%_ - _%tl6457564701%_ - _%hd6457464698%_)))))) - (_%loop6457964710%_ _%target6457664704%_ '())))) - (_%__match8221382214%_ - (lambda (_%e6456464664%_ - _%hd6456564668%_ - _%tl6456664671%_ - _%e6456764674%_ - _%hd6456864678%_ - _%tl6456964681%_ - _%e6457064684%_ - _%hd6457164688%_ - _%tl6457264691%_) - (if (gx#stx-pair? _%hd6457164688%_) - (let ((_%e6457364694%_ - (gx#syntax-e _%hd6457164688%_))) - (let ((_%tl6457564701%_ + (##car _%e6495065090%_)))) + (_%loop6494965080%_ + _%lp-tl6495265097%_ + (cons _%lp-hd6495165094%_ + _%body6495365087%_)))) + (let ((_%body6495465100%_ + (reverse _%body6495365087%_))) + (_%__kont8299682997%_ + _%body6495465100%_ + _%tl6494265061%_ + _%tl6494565071%_ + _%hd6494465068%_)))))) + (_%loop6494965080%_ _%target6494665074%_ '())))) + (_%__match8308883089%_ + (lambda (_%e6493465034%_ + _%hd6493565038%_ + _%tl6493665041%_ + _%e6493765044%_ + _%hd6493865048%_ + _%tl6493965051%_ + _%e6494065054%_ + _%hd6494165058%_ + _%tl6494265061%_) + (if (gx#stx-pair? _%hd6494165058%_) + (let ((_%e6494365064%_ + (gx#syntax-e _%hd6494165058%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-pair/null? _%tl6456964681%_) - (let ((_%__splice8212382124%_ + (##car _%e6494365064%_)))) + (if (gx#stx-pair/null? _%tl6493965051%_) + (let ((_%__splice8299882999%_ (gx#syntax-split-splice - _%tl6456964681%_ + _%tl6493965051%_ '0))) - (let ((_%tl6457864707%_ + (let ((_%tl6494865077%_ (let () (declare (not safe)) (##vector-ref - _%__splice8212382124%_ + _%__splice8299882999%_ '1))) - (_%target6457664704%_ + (_%target6494665074%_ (let () (declare (not safe)) (##vector-ref - _%__splice8212382124%_ + _%__splice8299882999%_ '0)))) - (if (gx#stx-null? _%tl6457864707%_) - (_%__match8222782228%_ - _%e6456464664%_ - _%hd6456564668%_ - _%tl6456664671%_ - _%e6456764674%_ - _%hd6456864678%_ - _%tl6456964681%_ - _%e6457064684%_ - _%hd6457164688%_ - _%tl6457264691%_ - _%e6457364694%_ - _%hd6457464698%_ - _%tl6457564701%_ - _%__splice8212382124%_ - _%target6457664704%_ - _%tl6457864707%_) - (if (gx#stx-pair? _%tl6456964681%_) - (let ((_%e6459364628%_ + (if (gx#stx-null? _%tl6494865077%_) + (_%__match8310283103%_ + _%e6493465034%_ + _%hd6493565038%_ + _%tl6493665041%_ + _%e6493765044%_ + _%hd6493865048%_ + _%tl6493965051%_ + _%e6494065054%_ + _%hd6494165058%_ + _%tl6494265061%_ + _%e6494365064%_ + _%hd6494465068%_ + _%tl6494565071%_ + _%__splice8299882999%_ + _%target6494665074%_ + _%tl6494865077%_) + (if (gx#stx-pair? _%tl6493965051%_) + (let ((_%e6496364998%_ (gx#syntax-e - _%tl6456964681%_))) - (let ((_%tl6459564635%_ + _%tl6493965051%_))) + (let ((_%tl6496565005%_ (let () (declare (not safe)) - (##cdr _%e6459364628%_))) - (_%hd6459464632%_ + (##cdr _%e6496364998%_))) + (_%hd6496465002%_ (let () (declare (not safe)) - (##car _%e6459364628%_)))) + (##car _%e6496364998%_)))) (if (gx#stx-null? - _%tl6459564635%_) - (_%__match8224782248%_ - _%e6456464664%_ - _%hd6456564668%_ - _%tl6456664671%_ - _%e6456764674%_ - _%hd6456864678%_ - _%tl6456964681%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) + _%tl6496565005%_) + (_%__match8312283123%_ + _%e6493465034%_ + _%hd6493565038%_ + _%tl6493665041%_ + _%e6493765044%_ + _%hd6493865048%_ + _%tl6493965051%_ + _%e6496364998%_ + _%hd6496465002%_ + _%tl6496565005%_) (let () (declare (not safe)) - (_%g6450964601%_))))) + (_%g6487964971%_))))) (let () (declare (not safe)) - (_%g6450964601%_)))))) - (if (gx#stx-pair? _%tl6456964681%_) - (let ((_%e6459364628%_ - (gx#syntax-e _%tl6456964681%_))) - (let ((_%tl6459564635%_ + (_%g6487964971%_)))))) + (if (gx#stx-pair? _%tl6493965051%_) + (let ((_%e6496364998%_ + (gx#syntax-e _%tl6493965051%_))) + (let ((_%tl6496565005%_ (let () (declare (not safe)) - (##cdr _%e6459364628%_))) - (_%hd6459464632%_ + (##cdr _%e6496364998%_))) + (_%hd6496465002%_ (let () (declare (not safe)) - (##car _%e6459364628%_)))) - (if (gx#stx-null? _%tl6459564635%_) - (_%__match8224782248%_ - _%e6456464664%_ - _%hd6456564668%_ - _%tl6456664671%_ - _%e6456764674%_ - _%hd6456864678%_ - _%tl6456964681%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) + (##car _%e6496364998%_)))) + (if (gx#stx-null? _%tl6496565005%_) + (_%__match8312283123%_ + _%e6493465034%_ + _%hd6493565038%_ + _%tl6493665041%_ + _%e6493765044%_ + _%hd6493865048%_ + _%tl6493965051%_ + _%e6496364998%_ + _%hd6496465002%_ + _%tl6496565005%_) (let () (declare (not safe)) - (_%g6450964601%_))))) + (_%g6487964971%_))))) (let () (declare (not safe)) - (_%g6450964601%_)))))) - (if (gx#stx-pair? _%tl6456964681%_) - (let ((_%e6459364628%_ - (gx#syntax-e _%tl6456964681%_))) - (let ((_%tl6459564635%_ + (_%g6487964971%_)))))) + (if (gx#stx-pair? _%tl6493965051%_) + (let ((_%e6496364998%_ + (gx#syntax-e _%tl6493965051%_))) + (let ((_%tl6496565005%_ (let () (declare (not safe)) - (##cdr _%e6459364628%_))) - (_%hd6459464632%_ + (##cdr _%e6496364998%_))) + (_%hd6496465002%_ (let () (declare (not safe)) - (##car _%e6459364628%_)))) - (if (gx#stx-null? _%tl6459564635%_) - (_%__match8224782248%_ - _%e6456464664%_ - _%hd6456564668%_ - _%tl6456664671%_ - _%e6456764674%_ - _%hd6456864678%_ - _%tl6456964681%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) + (##car _%e6496364998%_)))) + (if (gx#stx-null? _%tl6496565005%_) + (_%__match8312283123%_ + _%e6493465034%_ + _%hd6493565038%_ + _%tl6493665041%_ + _%e6493765044%_ + _%hd6493865048%_ + _%tl6493965051%_ + _%e6496364998%_ + _%hd6496465002%_ + _%tl6496565005%_) (let () (declare (not safe)) - (_%g6450964601%_))))) + (_%g6487964971%_))))) (let () (declare (not safe)) - (_%g6450964601%_)))))) - (_%__match8219582196%_ - (lambda (_%e6454264776%_ - _%hd6454364780%_ - _%tl6454464783%_ - _%e6454564786%_ - _%hd6454664790%_ - _%tl6454764793%_ - _%e6454864796%_ - _%hd6454964800%_ - _%tl6455064803%_ - _%__splice8211982120%_ - _%target6455164806%_ - _%tl6455364809%_) - (letrec ((_%loop6455464812%_ - (lambda (_%hd6455264816%_ _%body6455864819%_) - (if (gx#stx-pair? _%hd6455264816%_) - (let ((_%e6455564822%_ - (gx#syntax-e _%hd6455264816%_))) - (let ((_%lp-tl6455764829%_ + (_%g6487964971%_)))))) + (_%__match8307083071%_ + (lambda (_%e6491265146%_ + _%hd6491365150%_ + _%tl6491465153%_ + _%e6491565156%_ + _%hd6491665160%_ + _%tl6491765163%_ + _%e6491865166%_ + _%hd6491965170%_ + _%tl6492065173%_ + _%__splice8299482995%_ + _%target6492165176%_ + _%tl6492365179%_) + (letrec ((_%loop6492465182%_ + (lambda (_%hd6492265186%_ _%body6492865189%_) + (if (gx#stx-pair? _%hd6492265186%_) + (let ((_%e6492565192%_ + (gx#syntax-e _%hd6492265186%_))) + (let ((_%lp-tl6492765199%_ (let () (declare (not safe)) - (##cdr _%e6455564822%_))) - (_%lp-hd6455664826%_ + (##cdr _%e6492565192%_))) + (_%lp-hd6492665196%_ (let () (declare (not safe)) - (##car _%e6455564822%_)))) - (_%loop6455464812%_ - _%lp-tl6455764829%_ - (cons _%lp-hd6455664826%_ - _%body6455864819%_)))) - (let ((_%body6455964832%_ - (reverse _%body6455864819%_))) - (let ((_%L64836%_ _%body6455964832%_) - (_%L64838%_ _%tl6455064803%_) - (_%L64839%_ _%hd6454964800%_)) - (if (gx#identifier? _%L64839%_) - (_%__kont8211782118%_ - _%L64836%_ - _%L64838%_ - _%L64839%_) - (_%__match8221382214%_ - _%e6454264776%_ - _%hd6454364780%_ - _%tl6454464783%_ - _%e6454564786%_ - _%hd6454664790%_ - _%tl6454764793%_ - _%e6454864796%_ - _%hd6454964800%_ - _%tl6455064803%_)))))))) - (_%loop6455464812%_ _%target6455164806%_ '())))) - (_%__match8218782188%_ - (lambda (_%e6454264776%_ - _%hd6454364780%_ - _%tl6454464783%_ - _%e6454564786%_ - _%hd6454664790%_ - _%tl6454764793%_ - _%e6454864796%_ - _%hd6454964800%_ - _%tl6455064803%_) - (if (gx#stx-pair/null? _%tl6454764793%_) - (let ((_%__splice8211982120%_ + (##car _%e6492565192%_)))) + (_%loop6492465182%_ + _%lp-tl6492765199%_ + (cons _%lp-hd6492665196%_ + _%body6492865189%_)))) + (let ((_%body6492965202%_ + (reverse _%body6492865189%_))) + (let ((_%L65206%_ _%body6492965202%_) + (_%L65208%_ _%tl6492065173%_) + (_%L65209%_ _%hd6491965170%_)) + (if (gx#identifier? _%L65209%_) + (_%__kont8299282993%_ + _%L65206%_ + _%L65208%_ + _%L65209%_) + (_%__match8308883089%_ + _%e6491265146%_ + _%hd6491365150%_ + _%tl6491465153%_ + _%e6491565156%_ + _%hd6491665160%_ + _%tl6491765163%_ + _%e6491865166%_ + _%hd6491965170%_ + _%tl6492065173%_)))))))) + (_%loop6492465182%_ _%target6492165176%_ '())))) + (_%__match8306283063%_ + (lambda (_%e6491265146%_ + _%hd6491365150%_ + _%tl6491465153%_ + _%e6491565156%_ + _%hd6491665160%_ + _%tl6491765163%_ + _%e6491865166%_ + _%hd6491965170%_ + _%tl6492065173%_) + (if (gx#stx-pair/null? _%tl6491765163%_) + (let ((_%__splice8299482995%_ (gx#syntax-split-splice - _%tl6454764793%_ + _%tl6491765163%_ '0))) - (let ((_%tl6455364809%_ + (let ((_%tl6492365179%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211982120%_ + _%__splice8299482995%_ '1))) - (_%target6455164806%_ + (_%target6492165176%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211982120%_ + _%__splice8299482995%_ '0)))) - (if (gx#stx-null? _%tl6455364809%_) - (_%__match8219582196%_ - _%e6454264776%_ - _%hd6454364780%_ - _%tl6454464783%_ - _%e6454564786%_ - _%hd6454664790%_ - _%tl6454764793%_ - _%e6454864796%_ - _%hd6454964800%_ - _%tl6455064803%_ - _%__splice8211982120%_ - _%target6455164806%_ - _%tl6455364809%_) - (if (gx#stx-pair? _%hd6454964800%_) - (let ((_%e6457364694%_ - (gx#syntax-e _%hd6454964800%_))) - (let ((_%tl6457564701%_ + (if (gx#stx-null? _%tl6492365179%_) + (_%__match8307083071%_ + _%e6491265146%_ + _%hd6491365150%_ + _%tl6491465153%_ + _%e6491565156%_ + _%hd6491665160%_ + _%tl6491765163%_ + _%e6491865166%_ + _%hd6491965170%_ + _%tl6492065173%_ + _%__splice8299482995%_ + _%target6492165176%_ + _%tl6492365179%_) + (if (gx#stx-pair? _%hd6491965170%_) + (let ((_%e6494365064%_ + (gx#syntax-e _%hd6491965170%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-pair? _%tl6454764793%_) - (let ((_%e6459364628%_ + (##car _%e6494365064%_)))) + (if (gx#stx-pair? _%tl6491765163%_) + (let ((_%e6496364998%_ (gx#syntax-e - _%tl6454764793%_))) - (let ((_%tl6459564635%_ + _%tl6491765163%_))) + (let ((_%tl6496565005%_ (let () (declare (not safe)) - (##cdr _%e6459364628%_))) - (_%hd6459464632%_ + (##cdr _%e6496364998%_))) + (_%hd6496465002%_ (let () (declare (not safe)) - (##car _%e6459364628%_)))) + (##car _%e6496364998%_)))) (if (gx#stx-null? - _%tl6459564635%_) - (_%__match8224782248%_ - _%e6454264776%_ - _%hd6454364780%_ - _%tl6454464783%_ - _%e6454564786%_ - _%hd6454664790%_ - _%tl6454764793%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) + _%tl6496565005%_) + (_%__match8312283123%_ + _%e6491265146%_ + _%hd6491365150%_ + _%tl6491465153%_ + _%e6491565156%_ + _%hd6491665160%_ + _%tl6491765163%_ + _%e6496364998%_ + _%hd6496465002%_ + _%tl6496565005%_) (let () (declare (not safe)) - (_%g6450964601%_))))) + (_%g6487964971%_))))) (let () (declare (not safe)) - (_%g6450964601%_))))) - (if (gx#stx-pair? _%tl6454764793%_) - (let ((_%e6459364628%_ + (_%g6487964971%_))))) + (if (gx#stx-pair? _%tl6491765163%_) + (let ((_%e6496364998%_ (gx#syntax-e - _%tl6454764793%_))) - (let ((_%tl6459564635%_ + _%tl6491765163%_))) + (let ((_%tl6496565005%_ (let () (declare (not safe)) - (##cdr _%e6459364628%_))) - (_%hd6459464632%_ + (##cdr _%e6496364998%_))) + (_%hd6496465002%_ (let () (declare (not safe)) - (##car _%e6459364628%_)))) + (##car _%e6496364998%_)))) (if (gx#stx-null? - _%tl6459564635%_) - (_%__match8224782248%_ - _%e6454264776%_ - _%hd6454364780%_ - _%tl6454464783%_ - _%e6454564786%_ - _%hd6454664790%_ - _%tl6454764793%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) + _%tl6496565005%_) + (_%__match8312283123%_ + _%e6491265146%_ + _%hd6491365150%_ + _%tl6491465153%_ + _%e6491565156%_ + _%hd6491665160%_ + _%tl6491765163%_ + _%e6496364998%_ + _%hd6496465002%_ + _%tl6496565005%_) (let () (declare (not safe)) - (_%g6450964601%_))))) + (_%g6487964971%_))))) (let () (declare (not safe)) - (_%g6450964601%_))))))) - (if (gx#stx-pair? _%hd6454964800%_) - (let ((_%e6457364694%_ - (gx#syntax-e _%hd6454964800%_))) - (let ((_%tl6457564701%_ + (_%g6487964971%_))))))) + (if (gx#stx-pair? _%hd6491965170%_) + (let ((_%e6494365064%_ + (gx#syntax-e _%hd6491965170%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-pair? _%tl6454764793%_) - (let ((_%e6459364628%_ - (gx#syntax-e _%tl6454764793%_))) - (let ((_%tl6459564635%_ + (##car _%e6494365064%_)))) + (if (gx#stx-pair? _%tl6491765163%_) + (let ((_%e6496364998%_ + (gx#syntax-e _%tl6491765163%_))) + (let ((_%tl6496565005%_ (let () (declare (not safe)) - (##cdr _%e6459364628%_))) - (_%hd6459464632%_ + (##cdr _%e6496364998%_))) + (_%hd6496465002%_ (let () (declare (not safe)) - (##car _%e6459364628%_)))) - (if (gx#stx-null? _%tl6459564635%_) - (_%__match8224782248%_ - _%e6454264776%_ - _%hd6454364780%_ - _%tl6454464783%_ - _%e6454564786%_ - _%hd6454664790%_ - _%tl6454764793%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) + (##car _%e6496364998%_)))) + (if (gx#stx-null? _%tl6496565005%_) + (_%__match8312283123%_ + _%e6491265146%_ + _%hd6491365150%_ + _%tl6491465153%_ + _%e6491565156%_ + _%hd6491665160%_ + _%tl6491765163%_ + _%e6496364998%_ + _%hd6496465002%_ + _%tl6496565005%_) (let () (declare (not safe)) - (_%g6450964601%_))))) + (_%g6487964971%_))))) (let () (declare (not safe)) - (_%g6450964601%_))))) - (if (gx#stx-pair? _%tl6454764793%_) - (let ((_%e6459364628%_ - (gx#syntax-e _%tl6454764793%_))) - (let ((_%tl6459564635%_ + (_%g6487964971%_))))) + (if (gx#stx-pair? _%tl6491765163%_) + (let ((_%e6496364998%_ + (gx#syntax-e _%tl6491765163%_))) + (let ((_%tl6496565005%_ (let () (declare (not safe)) - (##cdr _%e6459364628%_))) - (_%hd6459464632%_ + (##cdr _%e6496364998%_))) + (_%hd6496465002%_ (let () (declare (not safe)) - (##car _%e6459364628%_)))) - (if (gx#stx-null? _%tl6459564635%_) - (_%__match8224782248%_ - _%e6454264776%_ - _%hd6454364780%_ - _%tl6454464783%_ - _%e6454564786%_ - _%hd6454664790%_ - _%tl6454764793%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) + (##car _%e6496364998%_)))) + (if (gx#stx-null? _%tl6496565005%_) + (_%__match8312283123%_ + _%e6491265146%_ + _%hd6491365150%_ + _%tl6491465153%_ + _%e6491565156%_ + _%hd6491665160%_ + _%tl6491765163%_ + _%e6496364998%_ + _%hd6496465002%_ + _%tl6496565005%_) (let () (declare (not safe)) - (_%g6450964601%_))))) + (_%g6487964971%_))))) (let () (declare (not safe)) - (_%g6450964601%_))))))) - (_%__match8216982170%_ - (lambda (_%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_ - _%e6452764922%_ - _%hd6452864926%_ - _%tl6452964929%_ - _%__splice8211582116%_ - _%target6453064932%_ - _%tl6453264935%_) - (letrec ((_%loop6453364938%_ - (lambda (_%hd6453164942%_ _%body6453764945%_) - (if (gx#stx-pair? _%hd6453164942%_) - (let ((_%e6453464948%_ - (gx#syntax-e _%hd6453164942%_))) - (let ((_%lp-tl6453664955%_ + (_%g6487964971%_))))))) + (_%__match8304483045%_ + (lambda (_%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489165272%_ + _%hd6489265276%_ + _%tl6489365279%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_ + _%e6489765292%_ + _%hd6489865296%_ + _%tl6489965299%_ + _%__splice8299082991%_ + _%target6490065302%_ + _%tl6490265305%_) + (letrec ((_%loop6490365308%_ + (lambda (_%hd6490165312%_ _%body6490765315%_) + (if (gx#stx-pair? _%hd6490165312%_) + (let ((_%e6490465318%_ + (gx#syntax-e _%hd6490165312%_))) + (let ((_%lp-tl6490665325%_ (let () (declare (not safe)) - (##cdr _%e6453464948%_))) - (_%lp-hd6453564952%_ + (##cdr _%e6490465318%_))) + (_%lp-hd6490565322%_ (let () (declare (not safe)) - (##car _%e6453464948%_)))) - (_%loop6453364938%_ - _%lp-tl6453664955%_ - (cons _%lp-hd6453564952%_ - _%body6453764945%_)))) - (let ((_%body6453864958%_ - (reverse _%body6453764945%_))) - (let ((_%L64962%_ _%body6453864958%_) - (_%L64964%_ _%hd6452864926%_) - (_%L64965%_ _%tl6452364909%_) - (_%L64966%_ _%hd6452264906%_)) - (if (gx#identifier? _%L64966%_) - (_%__kont8211382114%_ - _%L64962%_ - _%L64964%_ - _%L64965%_ - _%L64966%_) - (_%__match8218782188%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_)))))))) - (_%loop6453364938%_ _%target6453064932%_ '()))))) - (if (gx#stx-pair? _%__stx8211082111%_) - (let ((_%e6451564882%_ (gx#syntax-e _%__stx8211082111%_))) - (let ((_%tl6451764889%_ + (##car _%e6490465318%_)))) + (_%loop6490365308%_ + _%lp-tl6490665325%_ + (cons _%lp-hd6490565322%_ + _%body6490765315%_)))) + (let ((_%body6490865328%_ + (reverse _%body6490765315%_))) + (let ((_%L65332%_ _%body6490865328%_) + (_%L65334%_ _%hd6489865296%_) + (_%L65335%_ _%tl6489365279%_) + (_%L65336%_ _%hd6489265276%_)) + (if (gx#identifier? _%L65336%_) + (_%__kont8298882989%_ + _%L65332%_ + _%L65334%_ + _%L65335%_ + _%L65336%_) + (_%__match8306283063%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489165272%_ + _%hd6489265276%_ + _%tl6489365279%_)))))))) + (_%loop6490365308%_ _%target6490065302%_ '()))))) + (if (gx#stx-pair? _%__stx8298582986%_) + (let ((_%e6488565252%_ (gx#syntax-e _%__stx8298582986%_))) + (let ((_%tl6488765259%_ (let () (declare (not safe)) - (##cdr _%e6451564882%_))) - (_%hd6451664886%_ + (##cdr _%e6488565252%_))) + (_%hd6488665256%_ (let () (declare (not safe)) - (##car _%e6451564882%_)))) - (if (gx#stx-pair? _%tl6451764889%_) - (let ((_%e6451864892%_ - (gx#syntax-e _%tl6451764889%_))) - (let ((_%tl6452064899%_ + (##car _%e6488565252%_)))) + (if (gx#stx-pair? _%tl6488765259%_) + (let ((_%e6488865262%_ + (gx#syntax-e _%tl6488765259%_))) + (let ((_%tl6489065269%_ (let () (declare (not safe)) - (##cdr _%e6451864892%_))) - (_%hd6451964896%_ + (##cdr _%e6488865262%_))) + (_%hd6488965266%_ (let () (declare (not safe)) - (##car _%e6451864892%_)))) - (if (gx#stx-pair? _%hd6451964896%_) - (let ((_%e6452164902%_ - (gx#syntax-e _%hd6451964896%_))) - (let ((_%tl6452364909%_ + (##car _%e6488865262%_)))) + (if (gx#stx-pair? _%hd6488965266%_) + (let ((_%e6489165272%_ + (gx#syntax-e _%hd6488965266%_))) + (let ((_%tl6489365279%_ (let () (declare (not safe)) - (##cdr _%e6452164902%_))) - (_%hd6452264906%_ + (##cdr _%e6489165272%_))) + (_%hd6489265276%_ (let () (declare (not safe)) - (##car _%e6452164902%_)))) - (if (gx#stx-pair? _%tl6452064899%_) - (let ((_%e6452464912%_ + (##car _%e6489165272%_)))) + (if (gx#stx-pair? _%tl6489065269%_) + (let ((_%e6489465282%_ (gx#syntax-e - _%tl6452064899%_))) - (let ((_%tl6452664919%_ + _%tl6489065269%_))) + (let ((_%tl6489665289%_ (let () (declare (not safe)) - (##cdr _%e6452464912%_))) - (_%hd6452564916%_ + (##cdr _%e6489465282%_))) + (_%hd6489565286%_ (let () (declare (not safe)) - (##car _%e6452464912%_)))) + (##car _%e6489465282%_)))) (if (gx#identifier? - _%hd6452564916%_) + _%hd6489565286%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84139_| - _%hd6452564916%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85131_| + _%hd6489565286%_) (if (gx#stx-pair? - _%tl6452664919%_) - (let ((_%e6452764922%_ + _%tl6489665289%_) + (let ((_%e6489765292%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6452664919%_))) - (let ((_%tl6452964929%_ + (gx#syntax-e _%tl6489665289%_))) + (let ((_%tl6489965299%_ (let () (declare (not safe)) - (##cdr _%e6452764922%_))) - (_%hd6452864926%_ + (##cdr _%e6489765292%_))) + (_%hd6489865296%_ (let () (declare (not safe)) - (##car _%e6452764922%_)))) - (if (gx#stx-pair/null? _%tl6452964929%_) - (let ((_%__splice8211582116%_ + (##car _%e6489765292%_)))) + (if (gx#stx-pair/null? _%tl6489965299%_) + (let ((_%__splice8299082991%_ (gx#syntax-split-splice - _%tl6452964929%_ + _%tl6489965299%_ '0))) - (let ((_%tl6453264935%_ + (let ((_%tl6490265305%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211582116%_ + _%__splice8299082991%_ '1))) - (_%target6453064932%_ + (_%target6490065302%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211582116%_ + _%__splice8299082991%_ '0)))) - (if (gx#stx-null? _%tl6453264935%_) - (_%__match8216982170%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_ - _%e6452764922%_ - _%hd6452864926%_ - _%tl6452964929%_ - _%__splice8211582116%_ - _%target6453064932%_ - _%tl6453264935%_) - (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8211982120%_ + (if (gx#stx-null? _%tl6490265305%_) + (_%__match8304483045%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489165272%_ + _%hd6489265276%_ + _%tl6489365279%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_ + _%e6489765292%_ + _%hd6489865296%_ + _%tl6489965299%_ + _%__splice8299082991%_ + _%target6490065302%_ + _%tl6490265305%_) + (if (gx#stx-pair/null? _%tl6489065269%_) + (let ((_%__splice8299482995%_ (gx#syntax-split-splice - _%tl6452064899%_ + _%tl6489065269%_ '0))) - (let ((_%tl6455364809%_ + (let ((_%tl6492365179%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211982120%_ + _%__splice8299482995%_ '1))) - (_%target6455164806%_ + (_%target6492165176%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211982120%_ + _%__splice8299482995%_ '0)))) - (if (gx#stx-null? _%tl6455364809%_) - (_%__match8219582196%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_ - _%__splice8211982120%_ - _%target6455164806%_ - _%tl6455364809%_) + (if (gx#stx-null? _%tl6492365179%_) + (_%__match8307083071%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489165272%_ + _%hd6489265276%_ + _%tl6489365279%_ + _%__splice8299482995%_ + _%target6492165176%_ + _%tl6492365179%_) (if (gx#stx-pair? - _%hd6452264906%_) - (let ((_%e6457364694%_ + _%hd6489265276%_) + (let ((_%e6494365064%_ (gx#syntax-e - _%hd6452264906%_))) - (let ((_%tl6457564701%_ + _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ - (let () (declare (not safe)) (##car _%e6457364694%_)))) - (let () (declare (not safe)) (_%g6450964601%_)))) + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ + (let () (declare (not safe)) (##car _%e6494365064%_)))) + (let () (declare (not safe)) (_%g6487964971%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6450964601%_)))))) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ + (_%g6487964971%_)))))) + (if (gx#stx-pair? _%hd6489265276%_) + (let ((_%e6494365064%_ (gx#syntax-e - _%hd6452264906%_))) - (let ((_%tl6457564701%_ + _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) + (##car _%e6494365064%_)))) (let () (declare (not safe)) - (_%g6450964601%_)))) + (_%g6487964971%_)))) (let () (declare (not safe)) - (_%g6450964601%_))))))) - (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8211982120%_ + (_%g6487964971%_))))))) + (if (gx#stx-pair/null? _%tl6489065269%_) + (let ((_%__splice8299482995%_ (gx#syntax-split-splice - _%tl6452064899%_ + _%tl6489065269%_ '0))) - (let ((_%tl6455364809%_ + (let ((_%tl6492365179%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211982120%_ + _%__splice8299482995%_ '1))) - (_%target6455164806%_ + (_%target6492165176%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211982120%_ + _%__splice8299482995%_ '0)))) - (if (gx#stx-null? _%tl6455364809%_) - (_%__match8219582196%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_ - _%__splice8211982120%_ - _%target6455164806%_ - _%tl6455364809%_) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ + (if (gx#stx-null? _%tl6492365179%_) + (_%__match8307083071%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489165272%_ + _%hd6489265276%_ + _%tl6489365279%_ + _%__splice8299482995%_ + _%target6492165176%_ + _%tl6492365179%_) + (if (gx#stx-pair? _%hd6489265276%_) + (let ((_%e6494365064%_ (gx#syntax-e - _%hd6452264906%_))) - (let ((_%tl6457564701%_ + _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) + (##car _%e6494365064%_)))) (let () (declare (not safe)) - (_%g6450964601%_)))) + (_%g6487964971%_)))) (let () (declare (not safe)) - (_%g6450964601%_)))))) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ - (gx#syntax-e _%hd6452264906%_))) - (let ((_%tl6457564701%_ + (_%g6487964971%_)))))) + (if (gx#stx-pair? _%hd6489265276%_) + (let ((_%e6494365064%_ + (gx#syntax-e _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) + (##car _%e6494365064%_)))) (let () (declare (not safe)) - (_%g6450964601%_)))) + (_%g6487964971%_)))) (let () (declare (not safe)) - (_%g6450964601%_))))))) - (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8211982120%_ - (gx#syntax-split-splice _%tl6452064899%_ '0))) - (let ((_%tl6455364809%_ + (_%g6487964971%_))))))) + (if (gx#stx-pair/null? _%tl6489065269%_) + (let ((_%__splice8299482995%_ + (gx#syntax-split-splice _%tl6489065269%_ '0))) + (let ((_%tl6492365179%_ (let () (declare (not safe)) - (##vector-ref _%__splice8211982120%_ '1))) - (_%target6455164806%_ + (##vector-ref _%__splice8299482995%_ '1))) + (_%target6492165176%_ (let () (declare (not safe)) - (##vector-ref _%__splice8211982120%_ '0)))) - (if (gx#stx-null? _%tl6455364809%_) - (_%__match8219582196%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_ - _%__splice8211982120%_ - _%target6455164806%_ - _%tl6455364809%_) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ - (gx#syntax-e _%hd6452264906%_))) - (let ((_%tl6457564701%_ + (##vector-ref _%__splice8299482995%_ '0)))) + (if (gx#stx-null? _%tl6492365179%_) + (_%__match8307083071%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489165272%_ + _%hd6489265276%_ + _%tl6489365279%_ + _%__splice8299482995%_ + _%target6492165176%_ + _%tl6492365179%_) + (if (gx#stx-pair? _%hd6489265276%_) + (let ((_%e6494365064%_ + (gx#syntax-e _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (##car _%e6494365064%_)))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6450964601%_))))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (_%g6487964971%_))))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6450964601%_))))))) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ - (gx#syntax-e _%hd6452264906%_))) - (let ((_%tl6457564701%_ + (_%g6487964971%_))))))) + (if (gx#stx-pair? _%hd6489265276%_) + (let ((_%e6494365064%_ + (gx#syntax-e _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (##car _%e6494365064%_)))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6450964601%_))))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (_%g6487964971%_))))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6450964601%_)))))) - (if (gx#stx-pair/null? _%tl6452064899%_) - (let ((_%__splice8211982120%_ - (gx#syntax-split-splice _%tl6452064899%_ '0))) - (let ((_%tl6455364809%_ + (_%g6487964971%_)))))) + (if (gx#stx-pair/null? _%tl6489065269%_) + (let ((_%__splice8299482995%_ + (gx#syntax-split-splice _%tl6489065269%_ '0))) + (let ((_%tl6492365179%_ (let () (declare (not safe)) - (##vector-ref _%__splice8211982120%_ '1))) - (_%target6455164806%_ + (##vector-ref _%__splice8299482995%_ '1))) + (_%target6492165176%_ (let () (declare (not safe)) - (##vector-ref _%__splice8211982120%_ '0)))) - (if (gx#stx-null? _%tl6455364809%_) - (_%__match8219582196%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_ - _%__splice8211982120%_ - _%target6455164806%_ - _%tl6455364809%_) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ - (gx#syntax-e _%hd6452264906%_))) - (let ((_%tl6457564701%_ + (##vector-ref _%__splice8299482995%_ '0)))) + (if (gx#stx-null? _%tl6492365179%_) + (_%__match8307083071%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489165272%_ + _%hd6489265276%_ + _%tl6489365279%_ + _%__splice8299482995%_ + _%target6492165176%_ + _%tl6492365179%_) + (if (gx#stx-pair? _%hd6489265276%_) + (let ((_%e6494365064%_ + (gx#syntax-e _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (##car _%e6494365064%_)))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6450964601%_))))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (_%g6487964971%_))))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6450964601%_))))))) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ (gx#syntax-e _%hd6452264906%_))) - (let ((_%tl6457564701%_ + (_%g6487964971%_))))))) + (if (gx#stx-pair? _%hd6489265276%_) + (let ((_%e6494365064%_ (gx#syntax-e _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (##car _%e6494365064%_)))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6450964601%_))))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) - (let () (declare (not safe)) (_%g6450964601%_)))))) + (_%g6487964971%_))))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) + (let () (declare (not safe)) (_%g6487964971%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6452064899%_) - (let ((_%__splice8211982120%_ + _%tl6489065269%_) + (let ((_%__splice8299482995%_ (gx#syntax-split-splice - _%tl6452064899%_ + _%tl6489065269%_ '0))) - (let ((_%tl6455364809%_ + (let ((_%tl6492365179%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice8211982120%_ '1))) - (_%target6455164806%_ + (##vector-ref _%__splice8299482995%_ '1))) + (_%target6492165176%_ (let () (declare (not safe)) - (##vector-ref _%__splice8211982120%_ '0)))) - (if (gx#stx-null? _%tl6455364809%_) - (_%__match8219582196%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_ - _%__splice8211982120%_ - _%target6455164806%_ - _%tl6455364809%_) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ - (gx#syntax-e _%hd6452264906%_))) - (let ((_%tl6457564701%_ + (##vector-ref _%__splice8299482995%_ '0)))) + (if (gx#stx-null? _%tl6492365179%_) + (_%__match8307083071%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489165272%_ + _%hd6489265276%_ + _%tl6489365279%_ + _%__splice8299482995%_ + _%target6492165176%_ + _%tl6492365179%_) + (if (gx#stx-pair? _%hd6489265276%_) + (let ((_%e6494365064%_ + (gx#syntax-e _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (##car _%e6494365064%_)))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6450964601%_))))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) + (_%g6487964971%_))))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) (let () (declare (not safe)) - (_%g6450964601%_))))))) - (if (gx#stx-pair? _%hd6452264906%_) - (let ((_%e6457364694%_ (gx#syntax-e _%hd6452264906%_))) - (let ((_%tl6457564701%_ + (_%g6487964971%_))))))) + (if (gx#stx-pair? _%hd6489265276%_) + (let ((_%e6494365064%_ (gx#syntax-e _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) - (let () (declare (not safe)) (_%g6450964601%_))))) - (if (gx#stx-null? _%tl6452664919%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452464912%_ - _%hd6452564916%_ - _%tl6452664919%_) - (let () (declare (not safe)) (_%g6450964601%_)))))))) + (##car _%e6494365064%_)))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) + (let () (declare (not safe)) (_%g6487964971%_))))) + (if (gx#stx-null? _%tl6489665289%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489465282%_ + _%hd6489565286%_ + _%tl6489665289%_) + (let () (declare (not safe)) (_%g6487964971%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6452064899%_) - (let ((_%__splice8211982120%_ + _%tl6489065269%_) + (let ((_%__splice8299482995%_ (gx#syntax-split-splice - _%tl6452064899%_ + _%tl6489065269%_ '0))) - (let ((_%tl6455364809%_ + (let ((_%tl6492365179%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211982120%_ + _%__splice8299482995%_ '1))) - (_%target6455164806%_ + (_%target6492165176%_ (let () (declare (not safe)) (##vector-ref - _%__splice8211982120%_ + _%__splice8299482995%_ '0)))) (if (gx#stx-null? - _%tl6455364809%_) - (_%__match8219582196%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6452164902%_ - _%hd6452264906%_ - _%tl6452364909%_ - _%__splice8211982120%_ - _%target6455164806%_ - _%tl6455364809%_) + _%tl6492365179%_) + (_%__match8307083071%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6489165272%_ + _%hd6489265276%_ + _%tl6489365279%_ + _%__splice8299482995%_ + _%target6492165176%_ + _%tl6492365179%_) (if (gx#stx-pair? - _%hd6452264906%_) - (let ((_%e6457364694%_ + _%hd6489265276%_) + (let ((_%e6494365064%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6452264906%_))) - (let ((_%tl6457564701%_ + (gx#syntax-e _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ (let () (declare (not safe)) - (##car _%e6457364694%_)))) - (let () (declare (not safe)) (_%g6450964601%_)))) - (let () (declare (not safe)) (_%g6450964601%_)))))) + (##car _%e6494365064%_)))) + (let () (declare (not safe)) (_%g6487964971%_)))) + (let () (declare (not safe)) (_%g6487964971%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd6452264906%_) - (let ((_%e6457364694%_ + _%hd6489265276%_) + (let ((_%e6494365064%_ (gx#syntax-e - _%hd6452264906%_))) - (let ((_%tl6457564701%_ + _%hd6489265276%_))) + (let ((_%tl6494565071%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6457364694%_))) - (_%hd6457464698%_ - (let () (declare (not safe)) (##car _%e6457364694%_)))) - (let () (declare (not safe)) (_%g6450964601%_)))) + (##cdr _%e6494365064%_))) + (_%hd6494465068%_ + (let () (declare (not safe)) (##car _%e6494365064%_)))) + (let () (declare (not safe)) (_%g6487964971%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6450964601%_))))))) - (if (gx#stx-pair? _%tl6452064899%_) - (let ((_%e6459364628%_ - (gx#syntax-e _%tl6452064899%_))) - (let ((_%tl6459564635%_ + (_%g6487964971%_))))))) + (if (gx#stx-pair? _%tl6489065269%_) + (let ((_%e6496364998%_ + (gx#syntax-e _%tl6489065269%_))) + (let ((_%tl6496565005%_ (let () (declare (not safe)) - (##cdr _%e6459364628%_))) - (_%hd6459464632%_ + (##cdr _%e6496364998%_))) + (_%hd6496465002%_ (let () (declare (not safe)) - (##car _%e6459364628%_)))) - (if (gx#stx-null? _%tl6459564635%_) - (_%__match8224782248%_ - _%e6451564882%_ - _%hd6451664886%_ - _%tl6451764889%_ - _%e6451864892%_ - _%hd6451964896%_ - _%tl6452064899%_ - _%e6459364628%_ - _%hd6459464632%_ - _%tl6459564635%_) + (##car _%e6496364998%_)))) + (if (gx#stx-null? _%tl6496565005%_) + (_%__match8312283123%_ + _%e6488565252%_ + _%hd6488665256%_ + _%tl6488765259%_ + _%e6488865262%_ + _%hd6488965266%_ + _%tl6489065269%_ + _%e6496364998%_ + _%hd6496465002%_ + _%tl6496565005%_) (let () (declare (not safe)) - (_%g6450964601%_))))) + (_%g6487964971%_))))) (let () (declare (not safe)) - (_%g6450964601%_)))))) - (let () (declare (not safe)) (_%g6450964601%_))))) - (let () (declare (not safe)) (_%g6450964601%_))))))))) + (_%g6487964971%_)))))) + (let () (declare (not safe)) (_%g6487964971%_))))) + (let () (declare (not safe)) (_%g6487964971%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-signature| - (lambda (_%stx65678%_) - (let* ((_%__stx8225082251%_ _%stx65678%_) - (_%g6568265745%_ + (lambda (_%stx66048%_) + (let* ((_%__stx8312583126%_ _%stx66048%_) + (_%g6605266115%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8225082251%_)))) - (let ((_%__kont8225382254%_ - (lambda (_%L65996%_ _%L65998%_) - (let* ((_%g6602366031%_ - (lambda (_%g6602466027%_) + _%__stx8312583126%_)))) + (let ((_%__kont8312883129%_ + (lambda (_%L66366%_ _%L66368%_) + (let* ((_%g6639366401%_ + (lambda (_%g6639466397%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6602466027%_))) - (_%g6602266058%_ - (lambda (_%g6602466035%_) - ((lambda (_%L66038%_) + _%g6639466397%_))) + (_%g6639266428%_ + (lambda (_%g6639466405%_) + ((lambda (_%L66408%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type.signature) (cons 'return: - (cons _%L66038%_ '()))) + (cons _%L66408%_ '()))) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g6604966052%_ + (foldr (lambda (_%g6641966422%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6605066055%_) - (cons _%g6604966052%_ _%g6605066055%_)) + _%g6642066425%_) + (cons _%g6641966422%_ _%g6642066425%_)) '() - _%L65996%_))) + _%L66366%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g6602466035%_)))) - (_%g6602266058%_ + _%g6639466405%_)))) + (_%g6639266428%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx65678%_ - _%L65998%_)))))) - (_%__kont8225782258%_ - (lambda (_%L65832%_ _%L65834%_ _%L65835%_ _%L65836%_) - (let* ((_%g6586265870%_ - (lambda (_%g6586365866%_) + _%stx66048%_ + _%L66368%_)))))) + (_%__kont8313283133%_ + (lambda (_%L66202%_ _%L66204%_ _%L66205%_ _%L66206%_) + (let* ((_%g6623266240%_ + (lambda (_%g6623366236%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6586365866%_))) - (_%g6586165897%_ - (lambda (_%g6586365874%_) - ((lambda (_%L65877%_) + _%g6623366236%_))) + (_%g6623166267%_ + (lambda (_%g6623366244%_) + ((lambda (_%L66247%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type.signature) - _%L65877%_) + _%L66247%_) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g6588865891%_ + (foldr (lambda (_%g6625866261%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6588965894%_) - (cons _%g6588865891%_ _%g6588965894%_)) + _%g6625966264%_) + (cons _%g6625866261%_ _%g6625966264%_)) '() - _%L65832%_))) + _%L66202%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g6586365874%_)))) - (_%g6586165897%_ + _%g6623366244%_)))) + (_%g6623166267%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - _%stx65678%_ - _%L65836%_ - _%L65835%_ - _%L65834%_))))))) - (let* ((_%__match8235382354%_ - (lambda (_%e6571665752%_ - _%hd6571765756%_ - _%tl6571865759%_ - _%e6571965762%_ - _%hd6572065766%_ - _%tl6572165769%_ - _%e6572265772%_ - _%hd6572365776%_ - _%tl6572465779%_ - _%e6572565782%_ - _%hd6572665786%_ - _%tl6572765789%_ - _%e6572865792%_ - _%hd6572965796%_ - _%tl6573065799%_ - _%__splice8225982260%_ - _%target6573165802%_ - _%tl6573365805%_) - (letrec ((_%loop6573465808%_ - (lambda (_%hd6573265812%_ _%body6573865815%_) - (if (gx#stx-pair? _%hd6573265812%_) - (let ((_%e6573565818%_ - (gx#syntax-e _%hd6573265812%_))) - (let ((_%lp-tl6573765825%_ + _%stx66048%_ + _%L66206%_ + _%L66205%_ + _%L66204%_))))))) + (let* ((_%__match8322883229%_ + (lambda (_%e6608666122%_ + _%hd6608766126%_ + _%tl6608866129%_ + _%e6608966132%_ + _%hd6609066136%_ + _%tl6609166139%_ + _%e6609266142%_ + _%hd6609366146%_ + _%tl6609466149%_ + _%e6609566152%_ + _%hd6609666156%_ + _%tl6609766159%_ + _%e6609866162%_ + _%hd6609966166%_ + _%tl6610066169%_ + _%__splice8313483135%_ + _%target6610166172%_ + _%tl6610366175%_) + (letrec ((_%loop6610466178%_ + (lambda (_%hd6610266182%_ _%body6610866185%_) + (if (gx#stx-pair? _%hd6610266182%_) + (let ((_%e6610566188%_ + (gx#syntax-e _%hd6610266182%_))) + (let ((_%lp-tl6610766195%_ (let () (declare (not safe)) - (##cdr _%e6573565818%_))) - (_%lp-hd6573665822%_ + (##cdr _%e6610566188%_))) + (_%lp-hd6610666192%_ (let () (declare (not safe)) - (##car _%e6573565818%_)))) - (_%loop6573465808%_ - _%lp-tl6573765825%_ - (cons _%lp-hd6573665822%_ - _%body6573865815%_)))) - (let ((_%body6573965828%_ - (reverse _%body6573865815%_))) - (_%__kont8225782258%_ - _%body6573965828%_ - _%hd6572965796%_ - _%hd6572665786%_ - _%hd6572365776%_)))))) - (_%loop6573465808%_ _%target6573165802%_ '())))) - (_%__match8231382314%_ - (lambda (_%e6568665908%_ - _%hd6568765912%_ - _%tl6568865915%_ - _%e6568965918%_ - _%hd6569065922%_ - _%tl6569165925%_ - _%e6569265928%_ - _%hd6569365932%_ - _%tl6569465935%_ - _%e6569565938%_ - _%e6569665942%_ - _%hd6569765946%_ - _%tl6569865949%_ - _%e6569965952%_ - _%hd6570065956%_ - _%tl6570165959%_ - _%e6570265962%_ - _%__splice8225582256%_ - _%target6570365966%_ - _%tl6570565969%_) - (letrec ((_%loop6570665972%_ - (lambda (_%hd6570465976%_ _%body6571065979%_) - (if (gx#stx-pair? _%hd6570465976%_) - (let ((_%e6570765982%_ - (gx#syntax-e _%hd6570465976%_))) - (let ((_%lp-tl6570965989%_ + (##car _%e6610566188%_)))) + (_%loop6610466178%_ + _%lp-tl6610766195%_ + (cons _%lp-hd6610666192%_ + _%body6610866185%_)))) + (let ((_%body6610966198%_ + (reverse _%body6610866185%_))) + (_%__kont8313283133%_ + _%body6610966198%_ + _%hd6609966166%_ + _%hd6609666156%_ + _%hd6609366146%_)))))) + (_%loop6610466178%_ _%target6610166172%_ '())))) + (_%__match8318883189%_ + (lambda (_%e6605666278%_ + _%hd6605766282%_ + _%tl6605866285%_ + _%e6605966288%_ + _%hd6606066292%_ + _%tl6606166295%_ + _%e6606266298%_ + _%hd6606366302%_ + _%tl6606466305%_ + _%e6606566308%_ + _%e6606666312%_ + _%hd6606766316%_ + _%tl6606866319%_ + _%e6606966322%_ + _%hd6607066326%_ + _%tl6607166329%_ + _%e6607266332%_ + _%__splice8313083131%_ + _%target6607366336%_ + _%tl6607566339%_) + (letrec ((_%loop6607666342%_ + (lambda (_%hd6607466346%_ _%body6608066349%_) + (if (gx#stx-pair? _%hd6607466346%_) + (let ((_%e6607766352%_ + (gx#syntax-e _%hd6607466346%_))) + (let ((_%lp-tl6607966359%_ (let () (declare (not safe)) - (##cdr _%e6570765982%_))) - (_%lp-hd6570865986%_ + (##cdr _%e6607766352%_))) + (_%lp-hd6607866356%_ (let () (declare (not safe)) - (##car _%e6570765982%_)))) - (_%loop6570665972%_ - _%lp-tl6570965989%_ - (cons _%lp-hd6570865986%_ - _%body6571065979%_)))) - (let ((_%body6571165992%_ - (reverse _%body6571065979%_))) - (_%__kont8225382254%_ - _%body6571165992%_ - _%hd6569765946%_)))))) - (_%loop6570665972%_ _%target6570365966%_ '()))))) - (if (gx#stx-pair? _%__stx8225082251%_) - (let ((_%e6568665908%_ (gx#syntax-e _%__stx8225082251%_))) - (let ((_%tl6568865915%_ + (##car _%e6607766352%_)))) + (_%loop6607666342%_ + _%lp-tl6607966359%_ + (cons _%lp-hd6607866356%_ + _%body6608066349%_)))) + (let ((_%body6608166362%_ + (reverse _%body6608066349%_))) + (_%__kont8312883129%_ + _%body6608166362%_ + _%hd6606766316%_)))))) + (_%loop6607666342%_ _%target6607366336%_ '()))))) + (if (gx#stx-pair? _%__stx8312583126%_) + (let ((_%e6605666278%_ (gx#syntax-e _%__stx8312583126%_))) + (let ((_%tl6605866285%_ (let () (declare (not safe)) - (##cdr _%e6568665908%_))) - (_%hd6568765912%_ + (##cdr _%e6605666278%_))) + (_%hd6605766282%_ (let () (declare (not safe)) - (##car _%e6568665908%_)))) - (if (gx#stx-pair? _%tl6568865915%_) - (let ((_%e6568965918%_ - (gx#syntax-e _%tl6568865915%_))) - (let ((_%tl6569165925%_ + (##car _%e6605666278%_)))) + (if (gx#stx-pair? _%tl6605866285%_) + (let ((_%e6605966288%_ + (gx#syntax-e _%tl6605866285%_))) + (let ((_%tl6606166295%_ (let () (declare (not safe)) - (##cdr _%e6568965918%_))) - (_%hd6569065922%_ + (##cdr _%e6605966288%_))) + (_%hd6606066292%_ (let () (declare (not safe)) - (##car _%e6568965918%_)))) - (if (gx#stx-pair? _%hd6569065922%_) - (let ((_%e6569265928%_ - (gx#syntax-e _%hd6569065922%_))) - (let ((_%tl6569465935%_ + (##car _%e6605966288%_)))) + (if (gx#stx-pair? _%hd6606066292%_) + (let ((_%e6606266298%_ + (gx#syntax-e _%hd6606066292%_))) + (let ((_%tl6606466305%_ (let () (declare (not safe)) - (##cdr _%e6569265928%_))) - (_%hd6569365932%_ + (##cdr _%e6606266298%_))) + (_%hd6606366302%_ (let () (declare (not safe)) - (##car _%e6569265928%_)))) - (if (gx#stx-datum? _%hd6569365932%_) - (let ((_%e6569565938%_ - (gx#stx-e _%hd6569365932%_))) - (if (equal? _%e6569565938%_ '#f) + (##car _%e6606266298%_)))) + (if (gx#stx-datum? _%hd6606366302%_) + (let ((_%e6606566308%_ + (gx#stx-e _%hd6606366302%_))) + (if (equal? _%e6606566308%_ '#f) (if (gx#stx-pair? - _%tl6569465935%_) - (let ((_%e6569665942%_ + _%tl6606466305%_) + (let ((_%e6606666312%_ (gx#syntax-e - _%tl6569465935%_))) - (let ((_%tl6569865949%_ + _%tl6606466305%_))) + (let ((_%tl6606866319%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6569665942%_))) - (_%hd6569765946%_ - (let () (declare (not safe)) (##car _%e6569665942%_)))) - (if (gx#stx-pair? _%tl6569865949%_) - (let ((_%e6569965952%_ (gx#syntax-e _%tl6569865949%_))) - (let ((_%tl6570165959%_ + (##cdr _%e6606666312%_))) + (_%hd6606766316%_ + (let () (declare (not safe)) (##car _%e6606666312%_)))) + (if (gx#stx-pair? _%tl6606866319%_) + (let ((_%e6606966322%_ (gx#syntax-e _%tl6606866319%_))) + (let ((_%tl6607166329%_ (let () (declare (not safe)) - (##cdr _%e6569965952%_))) - (_%hd6570065956%_ + (##cdr _%e6606966322%_))) + (_%hd6607066326%_ (let () (declare (not safe)) - (##car _%e6569965952%_)))) - (if (gx#stx-datum? _%hd6570065956%_) - (let ((_%e6570265962%_ - (gx#stx-e _%hd6570065956%_))) - (if (equal? _%e6570265962%_ '#f) - (if (gx#stx-null? _%tl6570165959%_) - (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8225582256%_ + (##car _%e6606966322%_)))) + (if (gx#stx-datum? _%hd6607066326%_) + (let ((_%e6607266332%_ + (gx#stx-e _%hd6607066326%_))) + (if (equal? _%e6607266332%_ '#f) + (if (gx#stx-null? _%tl6607166329%_) + (if (gx#stx-pair/null? _%tl6606166295%_) + (let ((_%__splice8313083131%_ (gx#syntax-split-splice - _%tl6569165925%_ + _%tl6606166295%_ '0))) - (let ((_%tl6570565969%_ + (let ((_%tl6607566339%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225582256%_ + _%__splice8313083131%_ '1))) - (_%target6570365966%_ + (_%target6607366336%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225582256%_ + _%__splice8313083131%_ '0)))) (if (gx#stx-null? - _%tl6570565969%_) - (_%__match8231382314%_ - _%e6568665908%_ - _%hd6568765912%_ - _%tl6568865915%_ - _%e6568965918%_ - _%hd6569065922%_ - _%tl6569165925%_ - _%e6569265928%_ - _%hd6569365932%_ - _%tl6569465935%_ - _%e6569565938%_ - _%e6569665942%_ - _%hd6569765946%_ - _%tl6569865949%_ - _%e6569965952%_ - _%hd6570065956%_ - _%tl6570165959%_ - _%e6570265962%_ - _%__splice8225582256%_ - _%target6570365966%_ - _%tl6570565969%_) + _%tl6607566339%_) + (_%__match8318883189%_ + _%e6605666278%_ + _%hd6605766282%_ + _%tl6605866285%_ + _%e6605966288%_ + _%hd6606066292%_ + _%tl6606166295%_ + _%e6606266298%_ + _%hd6606366302%_ + _%tl6606466305%_ + _%e6606566308%_ + _%e6606666312%_ + _%hd6606766316%_ + _%tl6606866319%_ + _%e6606966322%_ + _%hd6607066326%_ + _%tl6607166329%_ + _%e6607266332%_ + _%__splice8313083131%_ + _%target6607366336%_ + _%tl6607566339%_) (let () (declare (not safe)) - (_%g6568265745%_))))) + (_%g6605266115%_))))) (let () (declare (not safe)) - (_%g6568265745%_))) + (_%g6605266115%_))) (let () (declare (not safe)) - (_%g6568265745%_))) - (if (gx#stx-null? _%tl6570165959%_) - (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8225982260%_ + (_%g6605266115%_))) + (if (gx#stx-null? _%tl6607166329%_) + (if (gx#stx-pair/null? _%tl6606166295%_) + (let ((_%__splice8313483135%_ (gx#syntax-split-splice - _%tl6569165925%_ + _%tl6606166295%_ '0))) - (let ((_%tl6573365805%_ + (let ((_%tl6610366175%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225982260%_ + _%__splice8313483135%_ '1))) - (_%target6573165802%_ + (_%target6610166172%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225982260%_ + _%__splice8313483135%_ '0)))) (if (gx#stx-null? - _%tl6573365805%_) - (_%__match8235382354%_ - _%e6568665908%_ - _%hd6568765912%_ - _%tl6568865915%_ - _%e6568965918%_ - _%hd6569065922%_ - _%tl6569165925%_ - _%e6569265928%_ - _%hd6569365932%_ - _%tl6569465935%_ - _%e6569665942%_ - _%hd6569765946%_ - _%tl6569865949%_ - _%e6569965952%_ - _%hd6570065956%_ - _%tl6570165959%_ - _%__splice8225982260%_ - _%target6573165802%_ - _%tl6573365805%_) + _%tl6610366175%_) + (_%__match8322883229%_ + _%e6605666278%_ + _%hd6605766282%_ + _%tl6605866285%_ + _%e6605966288%_ + _%hd6606066292%_ + _%tl6606166295%_ + _%e6606266298%_ + _%hd6606366302%_ + _%tl6606466305%_ + _%e6606666312%_ + _%hd6606766316%_ + _%tl6606866319%_ + _%e6606966322%_ + _%hd6607066326%_ + _%tl6607166329%_ + _%__splice8313483135%_ + _%target6610166172%_ + _%tl6610366175%_) (let () (declare (not safe)) - (_%g6568265745%_))))) + (_%g6605266115%_))))) (let () (declare (not safe)) - (_%g6568265745%_))) + (_%g6605266115%_))) (let () (declare (not safe)) - (_%g6568265745%_))))) - (if (gx#stx-null? _%tl6570165959%_) - (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8225982260%_ + (_%g6605266115%_))))) + (if (gx#stx-null? _%tl6607166329%_) + (if (gx#stx-pair/null? _%tl6606166295%_) + (let ((_%__splice8313483135%_ (gx#syntax-split-splice - _%tl6569165925%_ + _%tl6606166295%_ '0))) - (let ((_%tl6573365805%_ + (let ((_%tl6610366175%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225982260%_ + _%__splice8313483135%_ '1))) - (_%target6573165802%_ + (_%target6610166172%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225982260%_ + _%__splice8313483135%_ '0)))) - (if (gx#stx-null? _%tl6573365805%_) - (_%__match8235382354%_ - _%e6568665908%_ - _%hd6568765912%_ - _%tl6568865915%_ - _%e6568965918%_ - _%hd6569065922%_ - _%tl6569165925%_ - _%e6569265928%_ - _%hd6569365932%_ - _%tl6569465935%_ - _%e6569665942%_ - _%hd6569765946%_ - _%tl6569865949%_ - _%e6569965952%_ - _%hd6570065956%_ - _%tl6570165959%_ - _%__splice8225982260%_ - _%target6573165802%_ - _%tl6573365805%_) + (if (gx#stx-null? _%tl6610366175%_) + (_%__match8322883229%_ + _%e6605666278%_ + _%hd6605766282%_ + _%tl6605866285%_ + _%e6605966288%_ + _%hd6606066292%_ + _%tl6606166295%_ + _%e6606266298%_ + _%hd6606366302%_ + _%tl6606466305%_ + _%e6606666312%_ + _%hd6606766316%_ + _%tl6606866319%_ + _%e6606966322%_ + _%hd6607066326%_ + _%tl6607166329%_ + _%__splice8313483135%_ + _%target6610166172%_ + _%tl6610366175%_) (let () (declare (not safe)) - (_%g6568265745%_))))) + (_%g6605266115%_))))) (let () (declare (not safe)) - (_%g6568265745%_))) + (_%g6605266115%_))) (let () (declare (not safe)) - (_%g6568265745%_)))))) - (let () (declare (not safe)) (_%g6568265745%_))))) + (_%g6605266115%_)))))) + (let () (declare (not safe)) (_%g6605266115%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6568265745%_))) + (_%g6605266115%_))) (if (gx#stx-pair? - _%tl6569465935%_) - (let ((_%e6572565782%_ + _%tl6606466305%_) + (let ((_%e6609566152%_ (gx#syntax-e - _%tl6569465935%_))) - (let ((_%tl6572765789%_ + _%tl6606466305%_))) + (let ((_%tl6609766159%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6572565782%_))) - (_%hd6572665786%_ - (let () (declare (not safe)) (##car _%e6572565782%_)))) - (if (gx#stx-pair? _%tl6572765789%_) - (let ((_%e6572865792%_ (gx#syntax-e _%tl6572765789%_))) - (let ((_%tl6573065799%_ + (##cdr _%e6609566152%_))) + (_%hd6609666156%_ + (let () (declare (not safe)) (##car _%e6609566152%_)))) + (if (gx#stx-pair? _%tl6609766159%_) + (let ((_%e6609866162%_ (gx#syntax-e _%tl6609766159%_))) + (let ((_%tl6610066169%_ (let () (declare (not safe)) - (##cdr _%e6572865792%_))) - (_%hd6572965796%_ + (##cdr _%e6609866162%_))) + (_%hd6609966166%_ (let () (declare (not safe)) - (##car _%e6572865792%_)))) - (if (gx#stx-null? _%tl6573065799%_) - (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8225982260%_ + (##car _%e6609866162%_)))) + (if (gx#stx-null? _%tl6610066169%_) + (if (gx#stx-pair/null? _%tl6606166295%_) + (let ((_%__splice8313483135%_ (gx#syntax-split-splice - _%tl6569165925%_ + _%tl6606166295%_ '0))) - (let ((_%tl6573365805%_ + (let ((_%tl6610366175%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225982260%_ + _%__splice8313483135%_ '1))) - (_%target6573165802%_ + (_%target6610166172%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225982260%_ + _%__splice8313483135%_ '0)))) - (if (gx#stx-null? _%tl6573365805%_) - (_%__match8235382354%_ - _%e6568665908%_ - _%hd6568765912%_ - _%tl6568865915%_ - _%e6568965918%_ - _%hd6569065922%_ - _%tl6569165925%_ - _%e6569265928%_ - _%hd6569365932%_ - _%tl6569465935%_ - _%e6572565782%_ - _%hd6572665786%_ - _%tl6572765789%_ - _%e6572865792%_ - _%hd6572965796%_ - _%tl6573065799%_ - _%__splice8225982260%_ - _%target6573165802%_ - _%tl6573365805%_) + (if (gx#stx-null? _%tl6610366175%_) + (_%__match8322883229%_ + _%e6605666278%_ + _%hd6605766282%_ + _%tl6605866285%_ + _%e6605966288%_ + _%hd6606066292%_ + _%tl6606166295%_ + _%e6606266298%_ + _%hd6606366302%_ + _%tl6606466305%_ + _%e6609566152%_ + _%hd6609666156%_ + _%tl6609766159%_ + _%e6609866162%_ + _%hd6609966166%_ + _%tl6610066169%_ + _%__splice8313483135%_ + _%target6610166172%_ + _%tl6610366175%_) (let () (declare (not safe)) - (_%g6568265745%_))))) + (_%g6605266115%_))))) (let () (declare (not safe)) - (_%g6568265745%_))) - (let () (declare (not safe)) (_%g6568265745%_))))) - (let () (declare (not safe)) (_%g6568265745%_))))) + (_%g6605266115%_))) + (let () (declare (not safe)) (_%g6605266115%_))))) + (let () (declare (not safe)) (_%g6605266115%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6568265745%_))))) - (if (gx#stx-pair? _%tl6569465935%_) - (let ((_%e6572565782%_ + (_%g6605266115%_))))) + (if (gx#stx-pair? _%tl6606466305%_) + (let ((_%e6609566152%_ (gx#syntax-e - _%tl6569465935%_))) - (let ((_%tl6572765789%_ + _%tl6606466305%_))) + (let ((_%tl6609766159%_ (let () (declare (not safe)) - (##cdr _%e6572565782%_))) - (_%hd6572665786%_ + (##cdr _%e6609566152%_))) + (_%hd6609666156%_ (let () (declare (not safe)) - (##car _%e6572565782%_)))) + (##car _%e6609566152%_)))) (if (gx#stx-pair? - _%tl6572765789%_) - (let ((_%e6572865792%_ + _%tl6609766159%_) + (let ((_%e6609866162%_ (gx#syntax-e - _%tl6572765789%_))) - (let ((_%tl6573065799%_ + _%tl6609766159%_))) + (let ((_%tl6610066169%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6572865792%_))) - (_%hd6572965796%_ - (let () (declare (not safe)) (##car _%e6572865792%_)))) - (if (gx#stx-null? _%tl6573065799%_) - (if (gx#stx-pair/null? _%tl6569165925%_) - (let ((_%__splice8225982260%_ - (gx#syntax-split-splice _%tl6569165925%_ '0))) - (let ((_%tl6573365805%_ + (##cdr _%e6609866162%_))) + (_%hd6609966166%_ + (let () (declare (not safe)) (##car _%e6609866162%_)))) + (if (gx#stx-null? _%tl6610066169%_) + (if (gx#stx-pair/null? _%tl6606166295%_) + (let ((_%__splice8313483135%_ + (gx#syntax-split-splice _%tl6606166295%_ '0))) + (let ((_%tl6610366175%_ (let () (declare (not safe)) - (##vector-ref _%__splice8225982260%_ '1))) - (_%target6573165802%_ + (##vector-ref _%__splice8313483135%_ '1))) + (_%target6610166172%_ (let () (declare (not safe)) (##vector-ref - _%__splice8225982260%_ + _%__splice8313483135%_ '0)))) - (if (gx#stx-null? _%tl6573365805%_) - (_%__match8235382354%_ - _%e6568665908%_ - _%hd6568765912%_ - _%tl6568865915%_ - _%e6568965918%_ - _%hd6569065922%_ - _%tl6569165925%_ - _%e6569265928%_ - _%hd6569365932%_ - _%tl6569465935%_ - _%e6572565782%_ - _%hd6572665786%_ - _%tl6572765789%_ - _%e6572865792%_ - _%hd6572965796%_ - _%tl6573065799%_ - _%__splice8225982260%_ - _%target6573165802%_ - _%tl6573365805%_) + (if (gx#stx-null? _%tl6610366175%_) + (_%__match8322883229%_ + _%e6605666278%_ + _%hd6605766282%_ + _%tl6605866285%_ + _%e6605966288%_ + _%hd6606066292%_ + _%tl6606166295%_ + _%e6606266298%_ + _%hd6606366302%_ + _%tl6606466305%_ + _%e6609566152%_ + _%hd6609666156%_ + _%tl6609766159%_ + _%e6609866162%_ + _%hd6609966166%_ + _%tl6610066169%_ + _%__splice8313483135%_ + _%target6610166172%_ + _%tl6610366175%_) (let () (declare (not safe)) - (_%g6568265745%_))))) - (let () (declare (not safe)) (_%g6568265745%_))) - (let () (declare (not safe)) (_%g6568265745%_))))) - (let () (declare (not safe)) (_%g6568265745%_))))) + (_%g6605266115%_))))) + (let () (declare (not safe)) (_%g6605266115%_))) + (let () (declare (not safe)) (_%g6605266115%_))))) + (let () (declare (not safe)) (_%g6605266115%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6568265745%_)))))) + (_%g6605266115%_)))))) (let () (declare (not safe)) - (_%g6568265745%_))))) - (let () (declare (not safe)) (_%g6568265745%_))))) - (let () (declare (not safe)) (_%g6568265745%_)))))))) + (_%g6605266115%_))))) + (let () (declare (not safe)) (_%g6605266115%_))))) + (let () (declare (not safe)) (_%g6605266115%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-contract| - (lambda (_%stx66068%_) - (let* ((_%g6607166095%_ - (lambda (_%g6607266091%_) + (lambda (_%stx66438%_) + (let* ((_%g6644166465%_ + (lambda (_%g6644266461%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6607266091%_))) - (_%g6607066211%_ - (lambda (_%g6607266099%_) - (if (gx#stx-pair? _%g6607266099%_) - (let ((_%e6607566102%_ (gx#syntax-e _%g6607266099%_))) - (let ((_%hd6607666106%_ + _%g6644266461%_))) + (_%g6644066581%_ + (lambda (_%g6644266469%_) + (if (gx#stx-pair? _%g6644266469%_) + (let ((_%e6644566472%_ (gx#syntax-e _%g6644266469%_))) + (let ((_%hd6644666476%_ (let () (declare (not safe)) - (##car _%e6607566102%_))) - (_%tl6607766109%_ + (##car _%e6644566472%_))) + (_%tl6644766479%_ (let () (declare (not safe)) - (##cdr _%e6607566102%_)))) - (if (gx#stx-pair? _%tl6607766109%_) - (let ((_%e6607866112%_ - (gx#syntax-e _%tl6607766109%_))) - (let ((_%hd6607966116%_ + (##cdr _%e6644566472%_)))) + (if (gx#stx-pair? _%tl6644766479%_) + (let ((_%e6644866482%_ + (gx#syntax-e _%tl6644766479%_))) + (let ((_%hd6644966486%_ (let () (declare (not safe)) - (##car _%e6607866112%_))) - (_%tl6608066119%_ + (##car _%e6644866482%_))) + (_%tl6645066489%_ (let () (declare (not safe)) - (##cdr _%e6607866112%_)))) - (if (gx#stx-pair/null? _%tl6608066119%_) - (let ((_g84140_ + (##cdr _%e6644866482%_)))) + (if (gx#stx-pair/null? _%tl6645066489%_) + (let ((_g85132_ (gx#syntax-split-splice - _%tl6608066119%_ + _%tl6645066489%_ '0))) (begin - (let ((_g84141_ + (let ((_g85133_ (let () (declare (not safe)) - (if (##values? _g84140_) - (##vector-length - _g84140_) + (if (##values? _g85132_) + (##values-length + _g85132_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84141_ 2))) + (##fx= _g85133_ 2))) (error "Context expects 2 values" - _g84141_))) - (let ((_%target6608166122%_ + _g85133_))) + (let ((_%target6645166492%_ (let () (declare (not safe)) - (##vector-ref _g84140_ 0))) - (_%tl6608366125%_ + (##values-ref _g85132_ 0))) + (_%tl6645366495%_ (let () (declare (not safe)) - (##vector-ref _g84140_ 1)))) - (if (gx#stx-null? _%tl6608366125%_) - (letrec ((_%loop6608466128%_ - (lambda (_%hd6608266132%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6608866135%_) - (if (gx#stx-pair? _%hd6608266132%_) - (let ((_%e6608566138%_ (gx#syntax-e _%hd6608266132%_))) - (let ((_%lp-hd6608666142%_ + (##values-ref _g85132_ 1)))) + (if (gx#stx-null? _%tl6645366495%_) + (letrec ((_%loop6645466498%_ + (lambda (_%hd6645266502%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6645866505%_) + (if (gx#stx-pair? _%hd6645266502%_) + (let ((_%e6645566508%_ (gx#syntax-e _%hd6645266502%_))) + (let ((_%lp-hd6645666512%_ (let () (declare (not safe)) - (##car _%e6608566138%_))) - (_%lp-tl6608766145%_ + (##car _%e6645566508%_))) + (_%lp-tl6645766515%_ (let () (declare (not safe)) - (##cdr _%e6608566138%_)))) - (_%loop6608466128%_ - _%lp-tl6608766145%_ - (cons _%lp-hd6608666142%_ _%body6608866135%_)))) - (let ((_%body6608966148%_ - (reverse _%body6608866135%_))) - ((lambda (_%L66152%_ _%L66154%_) - (let* ((_%g6617266180%_ - (lambda (_%g6617366176%_) + (##cdr _%e6645566508%_)))) + (_%loop6645466498%_ + _%lp-tl6645766515%_ + (cons _%lp-hd6645666512%_ _%body6645866505%_)))) + (let ((_%body6645966518%_ + (reverse _%body6645866505%_))) + ((lambda (_%L66522%_ _%L66524%_) + (let* ((_%g6654266550%_ + (lambda (_%g6654366546%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6617366176%_))) - (_%g6617166207%_ - (lambda (_%g6617366184%_) - ((lambda (_%L66187%_) + _%g6654366546%_))) + (_%g6654166577%_ + (lambda (_%g6654366554%_) + ((lambda (_%L66557%_) (cons (gx#datum->syntax '#f 'using) - (cons _%L66187%_ - (foldr (lambda (_%g6619866201%_ + (cons _%L66557%_ + (foldr (lambda (_%g6656866571%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6619966204%_) - (cons _%g6619866201%_ _%g6619966204%_)) + _%g6656966574%_) + (cons _%g6656866571%_ _%g6656966574%_)) '() - _%L66152%_)))) + _%L66522%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6617366184%_)))) - (_%g6617166207%_ + _%g6654366554%_)))) + (_%g6654166577%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx66068%_ - _%L66154%_ + _%stx66438%_ + _%L66524%_ '#t))))) - _%body6608966148%_ - _%hd6607966116%_)))))) + _%body6645966518%_ + _%hd6644966486%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6608466128%_ - _%target6608166122%_ + (_%loop6645466498%_ + _%target6645166492%_ '())) - (_%g6607166095%_ - _%g6607266099%_))))) - (_%g6607166095%_ _%g6607266099%_)))) - (_%g6607166095%_ _%g6607266099%_)))) - (_%g6607166095%_ _%g6607266099%_))))) - (_%g6607066211%_ _%stx66068%_)))) + (_%g6644166465%_ + _%g6644266469%_))))) + (_%g6644166465%_ _%g6644266469%_)))) + (_%g6644166465%_ _%g6644266469%_)))) + (_%g6644166465%_ _%g6644266469%_))))) + (_%g6644066581%_ _%stx66438%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-unchecked-contract| - (lambda (_%stx66216%_) - (let* ((_%g6621966243%_ - (lambda (_%g6622066239%_) + (lambda (_%stx66586%_) + (let* ((_%g6658966613%_ + (lambda (_%g6659066609%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6622066239%_))) - (_%g6621866359%_ - (lambda (_%g6622066247%_) - (if (gx#stx-pair? _%g6622066247%_) - (let ((_%e6622366250%_ (gx#syntax-e _%g6622066247%_))) - (let ((_%hd6622466254%_ + _%g6659066609%_))) + (_%g6658866729%_ + (lambda (_%g6659066617%_) + (if (gx#stx-pair? _%g6659066617%_) + (let ((_%e6659366620%_ (gx#syntax-e _%g6659066617%_))) + (let ((_%hd6659466624%_ (let () (declare (not safe)) - (##car _%e6622366250%_))) - (_%tl6622566257%_ + (##car _%e6659366620%_))) + (_%tl6659566627%_ (let () (declare (not safe)) - (##cdr _%e6622366250%_)))) - (if (gx#stx-pair? _%tl6622566257%_) - (let ((_%e6622666260%_ - (gx#syntax-e _%tl6622566257%_))) - (let ((_%hd6622766264%_ + (##cdr _%e6659366620%_)))) + (if (gx#stx-pair? _%tl6659566627%_) + (let ((_%e6659666630%_ + (gx#syntax-e _%tl6659566627%_))) + (let ((_%hd6659766634%_ (let () (declare (not safe)) - (##car _%e6622666260%_))) - (_%tl6622866267%_ + (##car _%e6659666630%_))) + (_%tl6659866637%_ (let () (declare (not safe)) - (##cdr _%e6622666260%_)))) - (if (gx#stx-pair/null? _%tl6622866267%_) - (let ((_g84142_ + (##cdr _%e6659666630%_)))) + (if (gx#stx-pair/null? _%tl6659866637%_) + (let ((_g85134_ (gx#syntax-split-splice - _%tl6622866267%_ + _%tl6659866637%_ '0))) (begin - (let ((_g84143_ + (let ((_g85135_ (let () (declare (not safe)) - (if (##values? _g84142_) - (##vector-length - _g84142_) + (if (##values? _g85134_) + (##values-length + _g85134_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84143_ 2))) + (##fx= _g85135_ 2))) (error "Context expects 2 values" - _g84143_))) - (let ((_%target6622966270%_ + _g85135_))) + (let ((_%target6659966640%_ (let () (declare (not safe)) - (##vector-ref _g84142_ 0))) - (_%tl6623166273%_ + (##values-ref _g85134_ 0))) + (_%tl6660166643%_ (let () (declare (not safe)) - (##vector-ref _g84142_ 1)))) - (if (gx#stx-null? _%tl6623166273%_) - (letrec ((_%loop6623266276%_ - (lambda (_%hd6623066280%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6623666283%_) - (if (gx#stx-pair? _%hd6623066280%_) - (let ((_%e6623366286%_ (gx#syntax-e _%hd6623066280%_))) - (let ((_%lp-hd6623466290%_ + (##values-ref _g85134_ 1)))) + (if (gx#stx-null? _%tl6660166643%_) + (letrec ((_%loop6660266646%_ + (lambda (_%hd6660066650%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6660666653%_) + (if (gx#stx-pair? _%hd6660066650%_) + (let ((_%e6660366656%_ (gx#syntax-e _%hd6660066650%_))) + (let ((_%lp-hd6660466660%_ (let () (declare (not safe)) - (##car _%e6623366286%_))) - (_%lp-tl6623566293%_ + (##car _%e6660366656%_))) + (_%lp-tl6660566663%_ (let () (declare (not safe)) - (##cdr _%e6623366286%_)))) - (_%loop6623266276%_ - _%lp-tl6623566293%_ - (cons _%lp-hd6623466290%_ _%body6623666283%_)))) - (let ((_%body6623766296%_ - (reverse _%body6623666283%_))) - ((lambda (_%L66300%_ _%L66302%_) - (let* ((_%g6632066328%_ - (lambda (_%g6632166324%_) + (##cdr _%e6660366656%_)))) + (_%loop6660266646%_ + _%lp-tl6660566663%_ + (cons _%lp-hd6660466660%_ _%body6660666653%_)))) + (let ((_%body6660766666%_ + (reverse _%body6660666653%_))) + ((lambda (_%L66670%_ _%L66672%_) + (let* ((_%g6669066698%_ + (lambda (_%g6669166694%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6632166324%_))) - (_%g6631966355%_ - (lambda (_%g6632166332%_) - ((lambda (_%L66335%_) + _%g6669166694%_))) + (_%g6668966725%_ + (lambda (_%g6669166702%_) + ((lambda (_%L66705%_) (cons (gx#datum->syntax '#f 'using) - (cons _%L66335%_ - (foldr (lambda (_%g6634666349%_ + (cons _%L66705%_ + (foldr (lambda (_%g6671666719%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6634766352%_) - (cons _%g6634666349%_ _%g6634766352%_)) + _%g6671766722%_) + (cons _%g6671666719%_ _%g6671766722%_)) '() - _%L66300%_)))) + _%L66670%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6632166332%_)))) - (_%g6631966355%_ + _%g6669166702%_)))) + (_%g6668966725%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx66216%_ - _%L66302%_ + _%stx66586%_ + _%L66672%_ '#f))))) - _%body6623766296%_ - _%hd6622766264%_)))))) + _%body6660766666%_ + _%hd6659766634%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6623266276%_ - _%target6622966270%_ + (_%loop6660266646%_ + _%target6659966640%_ '())) - (_%g6621966243%_ - _%g6622066247%_))))) - (_%g6621966243%_ _%g6622066247%_)))) - (_%g6621966243%_ _%g6622066247%_)))) - (_%g6621966243%_ _%g6622066247%_))))) - (_%g6621866359%_ _%stx66216%_)))) + (_%g6658966613%_ + _%g6659066617%_))))) + (_%g6658966613%_ _%g6659066617%_)))) + (_%g6658966613%_ _%g6659066617%_)))) + (_%g6658966613%_ _%g6659066617%_))))) + (_%g6658866729%_ _%stx66586%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#lambda/c| - (lambda (_%stx66364%_) - (letrec ((_%make-lambda66367%_ - (lambda (_%signature66635%_ _%return66637%_ _%body66638%_) - (let* ((_%g6664066672%_ - (lambda (_%g6664166668%_) + (lambda (_%stx66734%_) + (letrec ((_%make-lambda66737%_ + (lambda (_%signature67005%_ _%return67007%_ _%body67008%_) + (let* ((_%g6701067042%_ + (lambda (_%g6701167038%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6664166668%_))) - (_%g6663966787%_ - (lambda (_%g6664166676%_) - (if (gx#stx-pair? _%g6664166676%_) - (let ((_%e6664666679%_ - (gx#syntax-e _%g6664166676%_))) - (let ((_%hd6664766683%_ + _%g6701167038%_))) + (_%g6700967157%_ + (lambda (_%g6701167046%_) + (if (gx#stx-pair? _%g6701167046%_) + (let ((_%e6701667049%_ + (gx#syntax-e _%g6701167046%_))) + (let ((_%hd6701767053%_ (let () (declare (not safe)) - (##car _%e6664666679%_))) - (_%tl6664866686%_ + (##car _%e6701667049%_))) + (_%tl6701867056%_ (let () (declare (not safe)) - (##cdr _%e6664666679%_)))) - (if (gx#stx-pair? _%tl6664866686%_) - (let ((_%e6664966689%_ + (##cdr _%e6701667049%_)))) + (if (gx#stx-pair? _%tl6701867056%_) + (let ((_%e6701967059%_ (gx#syntax-e - _%tl6664866686%_))) - (let ((_%hd6665066693%_ + _%tl6701867056%_))) + (let ((_%hd6702067063%_ (let () (declare (not safe)) - (##car _%e6664966689%_))) - (_%tl6665166696%_ + (##car _%e6701967059%_))) + (_%tl6702167066%_ (let () (declare (not safe)) - (##cdr _%e6664966689%_)))) + (##cdr _%e6701967059%_)))) (if (gx#stx-pair? - _%tl6665166696%_) - (let ((_%e6665266699%_ + _%tl6702167066%_) + (let ((_%e6702267069%_ (gx#syntax-e - _%tl6665166696%_))) - (let ((_%hd6665366703%_ + _%tl6702167066%_))) + (let ((_%hd6702367073%_ (let () (declare (not safe)) - (##car _%e6665266699%_))) - (_%tl6665466706%_ + (##car _%e6702267069%_))) + (_%tl6702467076%_ (let () (declare (not safe)) - (##cdr _%e6665266699%_)))) + (##cdr _%e6702267069%_)))) (if (gx#stx-pair? - _%tl6665466706%_) - (let ((_%e6665566709%_ + _%tl6702467076%_) + (let ((_%e6702567079%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6665466706%_))) - (let ((_%hd6665666713%_ + (gx#syntax-e _%tl6702467076%_))) + (let ((_%hd6702667083%_ (let () (declare (not safe)) - (##car _%e6665566709%_))) - (_%tl6665766716%_ + (##car _%e6702567079%_))) + (_%tl6702767086%_ (let () (declare (not safe)) - (##cdr _%e6665566709%_)))) - (if (gx#stx-pair/null? _%hd6665666713%_) - (let ((_g84144_ - (gx#syntax-split-splice _%hd6665666713%_ '0))) + (##cdr _%e6702567079%_)))) + (if (gx#stx-pair/null? _%hd6702667083%_) + (let ((_g85136_ + (gx#syntax-split-splice _%hd6702667083%_ '0))) (begin - (let ((_g84145_ + (let ((_g85137_ (let () (declare (not safe)) - (if (##values? _g84144_) - (##vector-length _g84144_) + (if (##values? _g85136_) + (##values-length _g85136_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84145_ 2))) + (##fx= _g85137_ 2))) (error "Context expects 2 values" - _g84145_))) - (let ((_%target6665866719%_ + _g85137_))) + (let ((_%target6702867089%_ (let () (declare (not safe)) - (##vector-ref _g84144_ 0))) - (_%tl6666066722%_ + (##values-ref _g85136_ 0))) + (_%tl6703067092%_ (let () (declare (not safe)) - (##vector-ref _g84144_ 1)))) - (if (gx#stx-null? _%tl6666066722%_) - (letrec ((_%loop6666166725%_ - (lambda (_%hd6665966729%_ - _%body6666566732%_) + (##values-ref _g85136_ 1)))) + (if (gx#stx-null? _%tl6703067092%_) + (letrec ((_%loop6703167095%_ + (lambda (_%hd6702967099%_ + _%body6703567102%_) (if (gx#stx-pair? - _%hd6665966729%_) - (let ((_%e6666266735%_ + _%hd6702967099%_) + (let ((_%e6703267105%_ (gx#syntax-e - _%hd6665966729%_))) - (let ((_%lp-hd6666366739%_ + _%hd6702967099%_))) + (let ((_%lp-hd6703367109%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6666266735%_))) - (_%lp-tl6666466742%_ - (let () (declare (not safe)) (##cdr _%e6666266735%_)))) - (_%loop6666166725%_ - _%lp-tl6666466742%_ - (cons _%lp-hd6666366739%_ _%body6666566732%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body6666666745%_ - (reverse _%body6666566732%_))) + (##car _%e6703267105%_))) + (_%lp-tl6703467112%_ + (let () (declare (not safe)) (##cdr _%e6703267105%_)))) + (_%loop6703167095%_ + _%lp-tl6703467112%_ + (cons _%lp-hd6703367109%_ _%body6703567102%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%body6703667115%_ + (reverse _%body6703567102%_))) (if (gx#stx-null? - _%tl6665766716%_) - ((lambda (_%L66749%_ + _%tl6702767086%_) + ((lambda (_%L67119%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L66751%_ - _%L66752%_ - _%L66753%_) + _%L67121%_ + _%L67122%_ + _%L67123%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) - (cons _%L66753%_ + (cons _%L67123%_ (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L66752%_ - (cons _%L66751%_ + (cons (cons _%L67122%_ + (cons _%L67121%_ (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) @@ -3197,892 +3197,892 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'with-procedure-contract) - (cons _%L66752%_ - (foldr (lambda (_%g6677866781%_ _%g6677966784%_) - (cons _%g6677866781%_ _%g6677966784%_)) + (cons _%L67122%_ + (foldr (lambda (_%g6714867151%_ _%g6714967154%_) + (cons _%g6714867151%_ _%g6714967154%_)) '() - _%L66749%_))) + _%L67119%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx66364%_))) - _%body6666666745%_ - _%hd6665366703%_ - _%hd6665066693%_ - _%hd6664766683%_) - (_%g6664066672%_ _%g6664166676%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6666166725%_ - _%target6665866719%_ + (gx#stx-source _%stx66734%_))) + _%body6703667115%_ + _%hd6702367073%_ + _%hd6702067063%_ + _%hd6701767053%_) + (_%g6701067042%_ _%g6701167046%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6703167095%_ + _%target6702867089%_ '())) - (_%g6664066672%_ _%g6664166676%_))))) - (_%g6664066672%_ _%g6664166676%_)))) - (_%g6664066672%_ _%g6664166676%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6664066672%_ - _%g6664166676%_)))) - (_%g6664066672%_ _%g6664166676%_)))) - (_%g6664066672%_ _%g6664166676%_))))) - (_%g6663966787%_ + (_%g6701067042%_ _%g6701167046%_))))) + (_%g6701067042%_ _%g6701167046%_)))) + (_%g6701067042%_ _%g6701167046%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6701067042%_ + _%g6701167046%_)))) + (_%g6701067042%_ _%g6701167046%_)))) + (_%g6701067042%_ _%g6701167046%_))))) + (_%g6700967157%_ (list (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature66635%_)) - _%signature66635%_ - _%return66637%_ - _%body66638%_)))))) - (let* ((_%__stx8235682357%_ _%stx66364%_) - (_%g6637166419%_ + _%signature67005%_)) + _%signature67005%_ + _%return67007%_ + _%body67008%_)))))) + (let* ((_%__stx8323183232%_ _%stx66734%_) + (_%g6674166789%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8235682357%_)))) - (let ((_%__kont8235982360%_ - (lambda (_%L66590%_ _%L66592%_ _%L66593%_) + _%__stx8323183232%_)))) + (let ((_%__kont8323483235%_ + (lambda (_%L66960%_ _%L66962%_ _%L66963%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L66593%_) - (_%make-lambda66367%_ - _%L66593%_ - _%L66592%_ - (foldr (lambda (_%g6661466617%_ _%g6661566620%_) - (cons _%g6661466617%_ _%g6661566620%_)) + _%L66963%_) + (_%make-lambda66737%_ + _%L66963%_ + _%L66962%_ + (foldr (lambda (_%g6698466987%_ _%g6698566990%_) + (cons _%g6698466987%_ _%g6698566990%_)) '() - _%L66590%_)) + _%L66960%_)) (cons (gx#datum->syntax '#f 'lambda) - (cons _%L66593%_ + (cons _%L66963%_ (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f - (cons _%L66592%_ + (cons _%L66962%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '()))) - (foldr (lambda (_%g6662266625%_ _%g6662366628%_) - (cons _%g6662266625%_ _%g6662366628%_)) + (foldr (lambda (_%g6699266995%_ _%g6699366998%_) + (cons _%g6699266995%_ _%g6699366998%_)) '() - _%L66590%_))) + _%L66960%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont8236382364%_ - (lambda (_%L66476%_ _%L66478%_) + (_%__kont8323883239%_ + (lambda (_%L66846%_ _%L66848%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L66478%_) + _%L66848%_) (cons (gx#datum->syntax '#f 'lambda/c) - (cons _%L66478%_ + (cons _%L66848%_ (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6649666499%_ + (foldr (lambda (_%g6686666869%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6649766502%_) - (cons _%g6649666499%_ _%g6649766502%_)) + _%g6686766872%_) + (cons _%g6686666869%_ _%g6686766872%_)) '() - _%L66476%_))))) + _%L66846%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f 'lambda) - (cons _%L66478%_ - (foldr (lambda (_%g6650466507%_ - _%g6650566510%_) - (cons _%g6650466507%_ - _%g6650566510%_)) + (cons _%L66848%_ + (foldr (lambda (_%g6687466877%_ + _%g6687566880%_) + (cons _%g6687466877%_ + _%g6687566880%_)) '() - _%L66476%_))))))) - (let* ((_%__match8242382424%_ - (lambda (_%e6639966426%_ - _%hd6640066430%_ - _%tl6640166433%_ - _%e6640266436%_ - _%hd6640366440%_ - _%tl6640466443%_ - _%__splice8236582366%_ - _%target6640566446%_ - _%tl6640766449%_) - (letrec ((_%loop6640866452%_ - (lambda (_%hd6640666456%_ _%body6641266459%_) - (if (gx#stx-pair? _%hd6640666456%_) - (let ((_%e6640966462%_ - (gx#syntax-e _%hd6640666456%_))) - (let ((_%lp-tl6641166469%_ + _%L66846%_))))))) + (let* ((_%__match8329883299%_ + (lambda (_%e6676966796%_ + _%hd6677066800%_ + _%tl6677166803%_ + _%e6677266806%_ + _%hd6677366810%_ + _%tl6677466813%_ + _%__splice8324083241%_ + _%target6677566816%_ + _%tl6677766819%_) + (letrec ((_%loop6677866822%_ + (lambda (_%hd6677666826%_ _%body6678266829%_) + (if (gx#stx-pair? _%hd6677666826%_) + (let ((_%e6677966832%_ + (gx#syntax-e _%hd6677666826%_))) + (let ((_%lp-tl6678166839%_ (let () (declare (not safe)) - (##cdr _%e6640966462%_))) - (_%lp-hd6641066466%_ + (##cdr _%e6677966832%_))) + (_%lp-hd6678066836%_ (let () (declare (not safe)) - (##car _%e6640966462%_)))) - (_%loop6640866452%_ - _%lp-tl6641166469%_ - (cons _%lp-hd6641066466%_ - _%body6641266459%_)))) - (let ((_%body6641366472%_ - (reverse _%body6641266459%_))) - (_%__kont8236382364%_ - _%body6641366472%_ - _%hd6640366440%_)))))) - (_%loop6640866452%_ _%target6640566446%_ '())))) - (_%__match8240382404%_ - (lambda (_%e6637666520%_ - _%hd6637766524%_ - _%tl6637866527%_ - _%e6637966530%_ - _%hd6638066534%_ - _%tl6638166537%_ - _%e6638266540%_ - _%hd6638366544%_ - _%tl6638466547%_ - _%e6638566550%_ - _%hd6638666554%_ - _%tl6638766557%_ - _%__splice8236182362%_ - _%target6638866560%_ - _%tl6639066563%_) - (letrec ((_%loop6639166566%_ - (lambda (_%hd6638966570%_ _%body6639566573%_) - (if (gx#stx-pair? _%hd6638966570%_) - (let ((_%e6639266576%_ - (gx#syntax-e _%hd6638966570%_))) - (let ((_%lp-tl6639466583%_ + (##car _%e6677966832%_)))) + (_%loop6677866822%_ + _%lp-tl6678166839%_ + (cons _%lp-hd6678066836%_ + _%body6678266829%_)))) + (let ((_%body6678366842%_ + (reverse _%body6678266829%_))) + (_%__kont8323883239%_ + _%body6678366842%_ + _%hd6677366810%_)))))) + (_%loop6677866822%_ _%target6677566816%_ '())))) + (_%__match8327883279%_ + (lambda (_%e6674666890%_ + _%hd6674766894%_ + _%tl6674866897%_ + _%e6674966900%_ + _%hd6675066904%_ + _%tl6675166907%_ + _%e6675266910%_ + _%hd6675366914%_ + _%tl6675466917%_ + _%e6675566920%_ + _%hd6675666924%_ + _%tl6675766927%_ + _%__splice8323683237%_ + _%target6675866930%_ + _%tl6676066933%_) + (letrec ((_%loop6676166936%_ + (lambda (_%hd6675966940%_ _%body6676566943%_) + (if (gx#stx-pair? _%hd6675966940%_) + (let ((_%e6676266946%_ + (gx#syntax-e _%hd6675966940%_))) + (let ((_%lp-tl6676466953%_ (let () (declare (not safe)) - (##cdr _%e6639266576%_))) - (_%lp-hd6639366580%_ + (##cdr _%e6676266946%_))) + (_%lp-hd6676366950%_ (let () (declare (not safe)) - (##car _%e6639266576%_)))) - (_%loop6639166566%_ - _%lp-tl6639466583%_ - (cons _%lp-hd6639366580%_ - _%body6639566573%_)))) - (let ((_%body6639666586%_ - (reverse _%body6639566573%_))) - (_%__kont8235982360%_ - _%body6639666586%_ - _%hd6638666554%_ - _%hd6638066534%_)))))) - (_%loop6639166566%_ _%target6638866560%_ '()))))) - (if (gx#stx-pair? _%__stx8235682357%_) - (let ((_%e6637666520%_ (gx#syntax-e _%__stx8235682357%_))) - (let ((_%tl6637866527%_ + (##car _%e6676266946%_)))) + (_%loop6676166936%_ + _%lp-tl6676466953%_ + (cons _%lp-hd6676366950%_ + _%body6676566943%_)))) + (let ((_%body6676666956%_ + (reverse _%body6676566943%_))) + (_%__kont8323483235%_ + _%body6676666956%_ + _%hd6675666924%_ + _%hd6675066904%_)))))) + (_%loop6676166936%_ _%target6675866930%_ '()))))) + (if (gx#stx-pair? _%__stx8323183232%_) + (let ((_%e6674666890%_ (gx#syntax-e _%__stx8323183232%_))) + (let ((_%tl6674866897%_ (let () (declare (not safe)) - (##cdr _%e6637666520%_))) - (_%hd6637766524%_ + (##cdr _%e6674666890%_))) + (_%hd6674766894%_ (let () (declare (not safe)) - (##car _%e6637666520%_)))) - (if (gx#stx-pair? _%tl6637866527%_) - (let ((_%e6637966530%_ - (gx#syntax-e _%tl6637866527%_))) - (let ((_%tl6638166537%_ + (##car _%e6674666890%_)))) + (if (gx#stx-pair? _%tl6674866897%_) + (let ((_%e6674966900%_ + (gx#syntax-e _%tl6674866897%_))) + (let ((_%tl6675166907%_ (let () (declare (not safe)) - (##cdr _%e6637966530%_))) - (_%hd6638066534%_ + (##cdr _%e6674966900%_))) + (_%hd6675066904%_ (let () (declare (not safe)) - (##car _%e6637966530%_)))) - (if (gx#stx-pair? _%tl6638166537%_) - (let ((_%e6638266540%_ - (gx#syntax-e _%tl6638166537%_))) - (let ((_%tl6638466547%_ + (##car _%e6674966900%_)))) + (if (gx#stx-pair? _%tl6675166907%_) + (let ((_%e6675266910%_ + (gx#syntax-e _%tl6675166907%_))) + (let ((_%tl6675466917%_ (let () (declare (not safe)) - (##cdr _%e6638266540%_))) - (_%hd6638366544%_ + (##cdr _%e6675266910%_))) + (_%hd6675366914%_ (let () (declare (not safe)) - (##car _%e6638266540%_)))) - (if (gx#identifier? _%hd6638366544%_) + (##car _%e6675266910%_)))) + (if (gx#identifier? _%hd6675366914%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84146_| - _%hd6638366544%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85138_| + _%hd6675366914%_) (if (gx#stx-pair? - _%tl6638466547%_) - (let ((_%e6638566550%_ + _%tl6675466917%_) + (let ((_%e6675566920%_ (gx#syntax-e - _%tl6638466547%_))) - (let ((_%tl6638766557%_ + _%tl6675466917%_))) + (let ((_%tl6675766927%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6638566550%_))) - (_%hd6638666554%_ - (let () (declare (not safe)) (##car _%e6638566550%_)))) - (if (gx#stx-pair/null? _%tl6638766557%_) - (let ((_%__splice8236182362%_ - (gx#syntax-split-splice _%tl6638766557%_ '0))) - (let ((_%tl6639066563%_ + (##cdr _%e6675566920%_))) + (_%hd6675666924%_ + (let () (declare (not safe)) (##car _%e6675566920%_)))) + (if (gx#stx-pair/null? _%tl6675766927%_) + (let ((_%__splice8323683237%_ + (gx#syntax-split-splice _%tl6675766927%_ '0))) + (let ((_%tl6676066933%_ (let () (declare (not safe)) - (##vector-ref _%__splice8236182362%_ '1))) - (_%target6638866560%_ + (##vector-ref _%__splice8323683237%_ '1))) + (_%target6675866930%_ (let () (declare (not safe)) - (##vector-ref _%__splice8236182362%_ '0)))) - (if (gx#stx-null? _%tl6639066563%_) - (_%__match8240382404%_ - _%e6637666520%_ - _%hd6637766524%_ - _%tl6637866527%_ - _%e6637966530%_ - _%hd6638066534%_ - _%tl6638166537%_ - _%e6638266540%_ - _%hd6638366544%_ - _%tl6638466547%_ - _%e6638566550%_ - _%hd6638666554%_ - _%tl6638766557%_ - _%__splice8236182362%_ - _%target6638866560%_ - _%tl6639066563%_) - (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8236582366%_ + (##vector-ref _%__splice8323683237%_ '0)))) + (if (gx#stx-null? _%tl6676066933%_) + (_%__match8327883279%_ + _%e6674666890%_ + _%hd6674766894%_ + _%tl6674866897%_ + _%e6674966900%_ + _%hd6675066904%_ + _%tl6675166907%_ + _%e6675266910%_ + _%hd6675366914%_ + _%tl6675466917%_ + _%e6675566920%_ + _%hd6675666924%_ + _%tl6675766927%_ + _%__splice8323683237%_ + _%target6675866930%_ + _%tl6676066933%_) + (if (gx#stx-pair/null? _%tl6675166907%_) + (let ((_%__splice8324083241%_ (gx#syntax-split-splice - _%tl6638166537%_ + _%tl6675166907%_ '0))) - (let ((_%tl6640766449%_ + (let ((_%tl6677766819%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236582366%_ + _%__splice8324083241%_ '1))) - (_%target6640566446%_ + (_%target6677566816%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236582366%_ + _%__splice8324083241%_ '0)))) - (if (gx#stx-null? _%tl6640766449%_) - (_%__match8242382424%_ - _%e6637666520%_ - _%hd6637766524%_ - _%tl6637866527%_ - _%e6637966530%_ - _%hd6638066534%_ - _%tl6638166537%_ - _%__splice8236582366%_ - _%target6640566446%_ - _%tl6640766449%_) + (if (gx#stx-null? _%tl6677766819%_) + (_%__match8329883299%_ + _%e6674666890%_ + _%hd6674766894%_ + _%tl6674866897%_ + _%e6674966900%_ + _%hd6675066904%_ + _%tl6675166907%_ + _%__splice8324083241%_ + _%target6677566816%_ + _%tl6677766819%_) (let () (declare (not safe)) - (_%g6637166419%_))))) + (_%g6674166789%_))))) (let () (declare (not safe)) - (_%g6637166419%_)))))) - (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8236582366%_ - (gx#syntax-split-splice _%tl6638166537%_ '0))) - (let ((_%tl6640766449%_ + (_%g6674166789%_)))))) + (if (gx#stx-pair/null? _%tl6675166907%_) + (let ((_%__splice8324083241%_ + (gx#syntax-split-splice _%tl6675166907%_ '0))) + (let ((_%tl6677766819%_ (let () (declare (not safe)) - (##vector-ref _%__splice8236582366%_ '1))) - (_%target6640566446%_ + (##vector-ref _%__splice8324083241%_ '1))) + (_%target6677566816%_ (let () (declare (not safe)) - (##vector-ref _%__splice8236582366%_ '0)))) - (if (gx#stx-null? _%tl6640766449%_) - (_%__match8242382424%_ - _%e6637666520%_ - _%hd6637766524%_ - _%tl6637866527%_ - _%e6637966530%_ - _%hd6638066534%_ - _%tl6638166537%_ - _%__splice8236582366%_ - _%target6640566446%_ - _%tl6640766449%_) + (##vector-ref _%__splice8324083241%_ '0)))) + (if (gx#stx-null? _%tl6677766819%_) + (_%__match8329883299%_ + _%e6674666890%_ + _%hd6674766894%_ + _%tl6674866897%_ + _%e6674966900%_ + _%hd6675066904%_ + _%tl6675166907%_ + _%__splice8324083241%_ + _%target6677566816%_ + _%tl6677766819%_) (let () (declare (not safe)) - (_%g6637166419%_))))) - (let () (declare (not safe)) (_%g6637166419%_)))))) + (_%g6674166789%_))))) + (let () (declare (not safe)) (_%g6674166789%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6638166537%_) - (let ((_%__splice8236582366%_ + _%tl6675166907%_) + (let ((_%__splice8324083241%_ (gx#syntax-split-splice - _%tl6638166537%_ + _%tl6675166907%_ '0))) - (let ((_%tl6640766449%_ + (let ((_%tl6677766819%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice8236582366%_ '1))) - (_%target6640566446%_ + (##vector-ref _%__splice8324083241%_ '1))) + (_%target6677566816%_ (let () (declare (not safe)) - (##vector-ref _%__splice8236582366%_ '0)))) - (if (gx#stx-null? _%tl6640766449%_) - (_%__match8242382424%_ - _%e6637666520%_ - _%hd6637766524%_ - _%tl6637866527%_ - _%e6637966530%_ - _%hd6638066534%_ - _%tl6638166537%_ - _%__splice8236582366%_ - _%target6640566446%_ - _%tl6640766449%_) - (let () (declare (not safe)) (_%g6637166419%_))))) - (let () (declare (not safe)) (_%g6637166419%_)))) + (##vector-ref _%__splice8324083241%_ '0)))) + (if (gx#stx-null? _%tl6677766819%_) + (_%__match8329883299%_ + _%e6674666890%_ + _%hd6674766894%_ + _%tl6674866897%_ + _%e6674966900%_ + _%hd6675066904%_ + _%tl6675166907%_ + _%__splice8324083241%_ + _%target6677566816%_ + _%tl6677766819%_) + (let () (declare (not safe)) (_%g6674166789%_))))) + (let () (declare (not safe)) (_%g6674166789%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6638166537%_) - (let ((_%__splice8236582366%_ + _%tl6675166907%_) + (let ((_%__splice8324083241%_ (gx#syntax-split-splice - _%tl6638166537%_ + _%tl6675166907%_ '0))) - (let ((_%tl6640766449%_ + (let ((_%tl6677766819%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice8236582366%_ '1))) - (_%target6640566446%_ + (##vector-ref _%__splice8324083241%_ '1))) + (_%target6677566816%_ (let () (declare (not safe)) - (##vector-ref _%__splice8236582366%_ '0)))) - (if (gx#stx-null? _%tl6640766449%_) - (_%__match8242382424%_ - _%e6637666520%_ - _%hd6637766524%_ - _%tl6637866527%_ - _%e6637966530%_ - _%hd6638066534%_ - _%tl6638166537%_ - _%__splice8236582366%_ - _%target6640566446%_ - _%tl6640766449%_) - (let () (declare (not safe)) (_%g6637166419%_))))) + (##vector-ref _%__splice8324083241%_ '0)))) + (if (gx#stx-null? _%tl6677766819%_) + (_%__match8329883299%_ + _%e6674666890%_ + _%hd6674766894%_ + _%tl6674866897%_ + _%e6674966900%_ + _%hd6675066904%_ + _%tl6675166907%_ + _%__splice8324083241%_ + _%target6677566816%_ + _%tl6677766819%_) + (let () (declare (not safe)) (_%g6674166789%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6637166419%_)))) + (_%g6674166789%_)))) (if (gx#stx-pair/null? - _%tl6638166537%_) - (let ((_%__splice8236582366%_ + _%tl6675166907%_) + (let ((_%__splice8324083241%_ (gx#syntax-split-splice - _%tl6638166537%_ + _%tl6675166907%_ '0))) - (let ((_%tl6640766449%_ + (let ((_%tl6677766819%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236582366%_ + _%__splice8324083241%_ '1))) - (_%target6640566446%_ + (_%target6677566816%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236582366%_ + _%__splice8324083241%_ '0)))) (if (gx#stx-null? - _%tl6640766449%_) - (_%__match8242382424%_ - _%e6637666520%_ - _%hd6637766524%_ - _%tl6637866527%_ - _%e6637966530%_ - _%hd6638066534%_ - _%tl6638166537%_ - _%__splice8236582366%_ - _%target6640566446%_ - _%tl6640766449%_) + _%tl6677766819%_) + (_%__match8329883299%_ + _%e6674666890%_ + _%hd6674766894%_ + _%tl6674866897%_ + _%e6674966900%_ + _%hd6675066904%_ + _%tl6675166907%_ + _%__splice8324083241%_ + _%target6677566816%_ + _%tl6677766819%_) (let () (declare (not safe)) - (_%g6637166419%_))))) + (_%g6674166789%_))))) (let () (declare (not safe)) - (_%g6637166419%_)))))) - (if (gx#stx-pair/null? _%tl6638166537%_) - (let ((_%__splice8236582366%_ + (_%g6674166789%_)))))) + (if (gx#stx-pair/null? _%tl6675166907%_) + (let ((_%__splice8324083241%_ (gx#syntax-split-splice - _%tl6638166537%_ + _%tl6675166907%_ '0))) - (let ((_%tl6640766449%_ + (let ((_%tl6677766819%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236582366%_ + _%__splice8324083241%_ '1))) - (_%target6640566446%_ + (_%target6677566816%_ (let () (declare (not safe)) (##vector-ref - _%__splice8236582366%_ + _%__splice8324083241%_ '0)))) - (if (gx#stx-null? _%tl6640766449%_) - (_%__match8242382424%_ - _%e6637666520%_ - _%hd6637766524%_ - _%tl6637866527%_ - _%e6637966530%_ - _%hd6638066534%_ - _%tl6638166537%_ - _%__splice8236582366%_ - _%target6640566446%_ - _%tl6640766449%_) + (if (gx#stx-null? _%tl6677766819%_) + (_%__match8329883299%_ + _%e6674666890%_ + _%hd6674766894%_ + _%tl6674866897%_ + _%e6674966900%_ + _%hd6675066904%_ + _%tl6675166907%_ + _%__splice8324083241%_ + _%target6677566816%_ + _%tl6677766819%_) (let () (declare (not safe)) - (_%g6637166419%_))))) + (_%g6674166789%_))))) (let () (declare (not safe)) - (_%g6637166419%_)))))) - (let () (declare (not safe)) (_%g6637166419%_))))) - (let () (declare (not safe)) (_%g6637166419%_))))))))) + (_%g6674166789%_)))))) + (let () (declare (not safe)) (_%g6674166789%_))))) + (let () (declare (not safe)) (_%g6674166789%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#def*/c| - (lambda (_%$stx66794%_) - (let* ((_%g6679866822%_ - (lambda (_%g6679966818%_) + (lambda (_%$stx67164%_) + (let* ((_%g6716867192%_ + (lambda (_%g6716967188%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6679966818%_))) - (_%g6679766907%_ - (lambda (_%g6679966826%_) - (if (gx#stx-pair? _%g6679966826%_) - (let ((_%e6680266829%_ (gx#syntax-e _%g6679966826%_))) - (let ((_%hd6680366833%_ + _%g6716967188%_))) + (_%g6716767277%_ + (lambda (_%g6716967196%_) + (if (gx#stx-pair? _%g6716967196%_) + (let ((_%e6717267199%_ (gx#syntax-e _%g6716967196%_))) + (let ((_%hd6717367203%_ (let () (declare (not safe)) - (##car _%e6680266829%_))) - (_%tl6680466836%_ + (##car _%e6717267199%_))) + (_%tl6717467206%_ (let () (declare (not safe)) - (##cdr _%e6680266829%_)))) - (if (gx#stx-pair? _%tl6680466836%_) - (let ((_%e6680566839%_ - (gx#syntax-e _%tl6680466836%_))) - (let ((_%hd6680666843%_ + (##cdr _%e6717267199%_)))) + (if (gx#stx-pair? _%tl6717467206%_) + (let ((_%e6717567209%_ + (gx#syntax-e _%tl6717467206%_))) + (let ((_%hd6717667213%_ (let () (declare (not safe)) - (##car _%e6680566839%_))) - (_%tl6680766846%_ + (##car _%e6717567209%_))) + (_%tl6717767216%_ (let () (declare (not safe)) - (##cdr _%e6680566839%_)))) - (if (gx#stx-pair/null? _%tl6680766846%_) - (let ((_g84147_ + (##cdr _%e6717567209%_)))) + (if (gx#stx-pair/null? _%tl6717767216%_) + (let ((_g85139_ (gx#syntax-split-splice - _%tl6680766846%_ + _%tl6717767216%_ '0))) (begin - (let ((_g84148_ + (let ((_g85140_ (let () (declare (not safe)) - (if (##values? _g84147_) - (##vector-length - _g84147_) + (if (##values? _g85139_) + (##values-length + _g85139_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84148_ 2))) + (##fx= _g85140_ 2))) (error "Context expects 2 values" - _g84148_))) - (let ((_%target6680866849%_ + _g85140_))) + (let ((_%target6717867219%_ (let () (declare (not safe)) - (##vector-ref _g84147_ 0))) - (_%tl6681066852%_ + (##values-ref _g85139_ 0))) + (_%tl6718067222%_ (let () (declare (not safe)) - (##vector-ref _g84147_ 1)))) - (if (gx#stx-null? _%tl6681066852%_) - (letrec ((_%loop6681166855%_ - (lambda (_%hd6680966859%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause6681566862%_) - (if (gx#stx-pair? _%hd6680966859%_) - (let ((_%e6681266865%_ (gx#syntax-e _%hd6680966859%_))) - (let ((_%lp-hd6681366869%_ + (##values-ref _g85139_ 1)))) + (if (gx#stx-null? _%tl6718067222%_) + (letrec ((_%loop6718167225%_ + (lambda (_%hd6717967229%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clause6718567232%_) + (if (gx#stx-pair? _%hd6717967229%_) + (let ((_%e6718267235%_ (gx#syntax-e _%hd6717967229%_))) + (let ((_%lp-hd6718367239%_ (let () (declare (not safe)) - (##car _%e6681266865%_))) - (_%lp-tl6681466872%_ + (##car _%e6718267235%_))) + (_%lp-tl6718467242%_ (let () (declare (not safe)) - (##cdr _%e6681266865%_)))) - (_%loop6681166855%_ - _%lp-tl6681466872%_ - (cons _%lp-hd6681366869%_ _%clause6681566862%_)))) - (let ((_%clause6681666875%_ - (reverse _%clause6681566862%_))) - ((lambda (_%L66879%_ _%L66881%_) + (##cdr _%e6718267235%_)))) + (_%loop6718167225%_ + _%lp-tl6718467242%_ + (cons _%lp-hd6718367239%_ _%clause6718567232%_)))) + (let ((_%clause6718667245%_ + (reverse _%clause6718567232%_))) + ((lambda (_%L67249%_ _%L67251%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L66881%_ + (cons _%L67251%_ (cons (cons (gx#datum->syntax '#f 'case-lambda/c) - (foldr (lambda (_%g6689866901%_ + (foldr (lambda (_%g6726867271%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6689966904%_) - (cons _%g6689866901%_ _%g6689966904%_)) + _%g6726967274%_) + (cons _%g6726867271%_ _%g6726967274%_)) '() - _%L66879%_)) + _%L67249%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%clause6681666875%_ - _%hd6680666843%_)))))) + _%clause6718667245%_ + _%hd6717667213%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6681166855%_ - _%target6680866849%_ + (_%loop6718167225%_ + _%target6717867219%_ '())) - (_%g6679866822%_ - _%g6679966826%_))))) - (_%g6679866822%_ _%g6679966826%_)))) - (_%g6679866822%_ _%g6679966826%_)))) - (_%g6679866822%_ _%g6679966826%_))))) - (_%g6679766907%_ _%$stx66794%_)))) + (_%g6716867192%_ + _%g6716967196%_))))) + (_%g6716867192%_ _%g6716967196%_)))) + (_%g6716867192%_ _%g6716967196%_)))) + (_%g6716867192%_ _%g6716967196%_))))) + (_%g6716767277%_ _%$stx67164%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#case-lambda/c| - (lambda (_%stx66912%_) - (letrec ((_%is-clause-signature?66915%_ - (lambda (_%clause67449%_) - (let* ((_%__stx8242682427%_ _%clause67449%_) - (_%g6745367495%_ + (lambda (_%stx67282%_) + (letrec ((_%is-clause-signature?67285%_ + (lambda (_%clause67819%_) + (let* ((_%__stx8330183302%_ _%clause67819%_) + (_%g6782367865%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8242682427%_)))) - (let ((_%__kont8242982430%_ - (lambda (_%L67627%_ _%L67629%_ _%L67630%_) '#t)) - (_%__kont8243382434%_ - (lambda (_%L67542%_ _%L67544%_) + _%__stx8330183302%_)))) + (let ((_%__kont8330483305%_ + (lambda (_%L67997%_ _%L67999%_ _%L68000%_) '#t)) + (_%__kont8330883309%_ + (lambda (_%L67912%_ _%L67914%_) (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L67544%_)))) - (let* ((_%__match8248182482%_ - (lambda (_%e6747867502%_ - _%hd6747967506%_ - _%tl6748067509%_ - _%__splice8243582436%_ - _%target6748167512%_ - _%tl6748367515%_) - (letrec ((_%loop6748467518%_ - (lambda (_%hd6748267522%_ - _%body6748867525%_) + _%L67914%_)))) + (let* ((_%__match8335683357%_ + (lambda (_%e6784867872%_ + _%hd6784967876%_ + _%tl6785067879%_ + _%__splice8331083311%_ + _%target6785167882%_ + _%tl6785367885%_) + (letrec ((_%loop6785467888%_ + (lambda (_%hd6785267892%_ + _%body6785867895%_) (if (gx#stx-pair? - _%hd6748267522%_) - (let ((_%e6748567528%_ + _%hd6785267892%_) + (let ((_%e6785567898%_ (gx#syntax-e - _%hd6748267522%_))) - (let ((_%lp-tl6748767535%_ + _%hd6785267892%_))) + (let ((_%lp-tl6785767905%_ (let () (declare (not safe)) - (##cdr _%e6748567528%_))) - (_%lp-hd6748667532%_ + (##cdr _%e6785567898%_))) + (_%lp-hd6785667902%_ (let () (declare (not safe)) - (##car _%e6748567528%_)))) - (_%loop6748467518%_ - _%lp-tl6748767535%_ - (cons _%lp-hd6748667532%_ - _%body6748867525%_)))) - (let ((_%body6748967538%_ - (reverse _%body6748867525%_))) - (_%__kont8243382434%_ - _%body6748967538%_ - _%hd6747967506%_)))))) - (_%loop6748467518%_ - _%target6748167512%_ + (##car _%e6785567898%_)))) + (_%loop6785467888%_ + _%lp-tl6785767905%_ + (cons _%lp-hd6785667902%_ + _%body6785867895%_)))) + (let ((_%body6785967908%_ + (reverse _%body6785867895%_))) + (_%__kont8330883309%_ + _%body6785967908%_ + _%hd6784967876%_)))))) + (_%loop6785467888%_ + _%target6785167882%_ '())))) - (_%__match8246782468%_ - (lambda (_%e6745867567%_ - _%hd6745967571%_ - _%tl6746067574%_ - _%e6746167577%_ - _%hd6746267581%_ - _%tl6746367584%_ - _%e6746467587%_ - _%hd6746567591%_ - _%tl6746667594%_ - _%__splice8243182432%_ - _%target6746767597%_ - _%tl6746967600%_) - (letrec ((_%loop6747067603%_ - (lambda (_%hd6746867607%_ - _%body6747467610%_) + (_%__match8334283343%_ + (lambda (_%e6782867937%_ + _%hd6782967941%_ + _%tl6783067944%_ + _%e6783167947%_ + _%hd6783267951%_ + _%tl6783367954%_ + _%e6783467957%_ + _%hd6783567961%_ + _%tl6783667964%_ + _%__splice8330683307%_ + _%target6783767967%_ + _%tl6783967970%_) + (letrec ((_%loop6784067973%_ + (lambda (_%hd6783867977%_ + _%body6784467980%_) (if (gx#stx-pair? - _%hd6746867607%_) - (let ((_%e6747167613%_ + _%hd6783867977%_) + (let ((_%e6784167983%_ (gx#syntax-e - _%hd6746867607%_))) - (let ((_%lp-tl6747367620%_ + _%hd6783867977%_))) + (let ((_%lp-tl6784367990%_ (let () (declare (not safe)) - (##cdr _%e6747167613%_))) - (_%lp-hd6747267617%_ + (##cdr _%e6784167983%_))) + (_%lp-hd6784267987%_ (let () (declare (not safe)) - (##car _%e6747167613%_)))) - (_%loop6747067603%_ - _%lp-tl6747367620%_ - (cons _%lp-hd6747267617%_ - _%body6747467610%_)))) - (let ((_%body6747567623%_ - (reverse _%body6747467610%_))) - (_%__kont8242982430%_ - _%body6747567623%_ - _%hd6746567591%_ - _%hd6745967571%_)))))) - (_%loop6747067603%_ - _%target6746767597%_ + (##car _%e6784167983%_)))) + (_%loop6784067973%_ + _%lp-tl6784367990%_ + (cons _%lp-hd6784267987%_ + _%body6784467980%_)))) + (let ((_%body6784567993%_ + (reverse _%body6784467980%_))) + (_%__kont8330483305%_ + _%body6784567993%_ + _%hd6783567961%_ + _%hd6782967941%_)))))) + (_%loop6784067973%_ + _%target6783767967%_ '()))))) - (if (gx#stx-pair? _%__stx8242682427%_) - (let ((_%e6745867567%_ - (gx#syntax-e _%__stx8242682427%_))) - (let ((_%tl6746067574%_ + (if (gx#stx-pair? _%__stx8330183302%_) + (let ((_%e6782867937%_ + (gx#syntax-e _%__stx8330183302%_))) + (let ((_%tl6783067944%_ (let () (declare (not safe)) - (##cdr _%e6745867567%_))) - (_%hd6745967571%_ + (##cdr _%e6782867937%_))) + (_%hd6782967941%_ (let () (declare (not safe)) - (##car _%e6745867567%_)))) - (if (gx#stx-pair? _%tl6746067574%_) - (let ((_%e6746167577%_ - (gx#syntax-e _%tl6746067574%_))) - (let ((_%tl6746367584%_ + (##car _%e6782867937%_)))) + (if (gx#stx-pair? _%tl6783067944%_) + (let ((_%e6783167947%_ + (gx#syntax-e _%tl6783067944%_))) + (let ((_%tl6783367954%_ (let () (declare (not safe)) - (##cdr _%e6746167577%_))) - (_%hd6746267581%_ + (##cdr _%e6783167947%_))) + (_%hd6783267951%_ (let () (declare (not safe)) - (##car _%e6746167577%_)))) - (if (gx#identifier? _%hd6746267581%_) + (##car _%e6783167947%_)))) + (if (gx#identifier? _%hd6783267951%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84149_| - _%hd6746267581%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85141_| + _%hd6783267951%_) (if (gx#stx-pair? - _%tl6746367584%_) - (let ((_%e6746467587%_ + _%tl6783367954%_) + (let ((_%e6783467957%_ (gx#syntax-e - _%tl6746367584%_))) - (let ((_%tl6746667594%_ + _%tl6783367954%_))) + (let ((_%tl6783667964%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6746467587%_))) - (_%hd6746567591%_ - (let () (declare (not safe)) (##car _%e6746467587%_)))) - (if (gx#stx-pair/null? _%tl6746667594%_) - (let ((_%__splice8243182432%_ - (gx#syntax-split-splice _%tl6746667594%_ '0))) - (let ((_%tl6746967600%_ + (##cdr _%e6783467957%_))) + (_%hd6783567961%_ + (let () (declare (not safe)) (##car _%e6783467957%_)))) + (if (gx#stx-pair/null? _%tl6783667964%_) + (let ((_%__splice8330683307%_ + (gx#syntax-split-splice _%tl6783667964%_ '0))) + (let ((_%tl6783967970%_ (let () (declare (not safe)) - (##vector-ref _%__splice8243182432%_ '1))) - (_%target6746767597%_ + (##vector-ref _%__splice8330683307%_ '1))) + (_%target6783767967%_ (let () (declare (not safe)) - (##vector-ref _%__splice8243182432%_ '0)))) - (if (gx#stx-null? _%tl6746967600%_) - (_%__match8246782468%_ - _%e6745867567%_ - _%hd6745967571%_ - _%tl6746067574%_ - _%e6746167577%_ - _%hd6746267581%_ - _%tl6746367584%_ - _%e6746467587%_ - _%hd6746567591%_ - _%tl6746667594%_ - _%__splice8243182432%_ - _%target6746767597%_ - _%tl6746967600%_) - (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8243582436%_ + (##vector-ref _%__splice8330683307%_ '0)))) + (if (gx#stx-null? _%tl6783967970%_) + (_%__match8334283343%_ + _%e6782867937%_ + _%hd6782967941%_ + _%tl6783067944%_ + _%e6783167947%_ + _%hd6783267951%_ + _%tl6783367954%_ + _%e6783467957%_ + _%hd6783567961%_ + _%tl6783667964%_ + _%__splice8330683307%_ + _%target6783767967%_ + _%tl6783967970%_) + (if (gx#stx-pair/null? _%tl6783067944%_) + (let ((_%__splice8331083311%_ (gx#syntax-split-splice - _%tl6746067574%_ + _%tl6783067944%_ '0))) - (let ((_%tl6748367515%_ + (let ((_%tl6785367885%_ (let () (declare (not safe)) (##vector-ref - _%__splice8243582436%_ + _%__splice8331083311%_ '1))) - (_%target6748167512%_ + (_%target6785167882%_ (let () (declare (not safe)) (##vector-ref - _%__splice8243582436%_ + _%__splice8331083311%_ '0)))) - (if (gx#stx-null? _%tl6748367515%_) - (_%__match8248182482%_ - _%e6745867567%_ - _%hd6745967571%_ - _%tl6746067574%_ - _%__splice8243582436%_ - _%target6748167512%_ - _%tl6748367515%_) + (if (gx#stx-null? _%tl6785367885%_) + (_%__match8335683357%_ + _%e6782867937%_ + _%hd6782967941%_ + _%tl6783067944%_ + _%__splice8331083311%_ + _%target6785167882%_ + _%tl6785367885%_) (let () (declare (not safe)) - (_%g6745367495%_))))) + (_%g6782367865%_))))) (let () (declare (not safe)) - (_%g6745367495%_)))))) - (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8243582436%_ - (gx#syntax-split-splice _%tl6746067574%_ '0))) - (let ((_%tl6748367515%_ + (_%g6782367865%_)))))) + (if (gx#stx-pair/null? _%tl6783067944%_) + (let ((_%__splice8331083311%_ + (gx#syntax-split-splice _%tl6783067944%_ '0))) + (let ((_%tl6785367885%_ (let () (declare (not safe)) - (##vector-ref _%__splice8243582436%_ '1))) - (_%target6748167512%_ + (##vector-ref _%__splice8331083311%_ '1))) + (_%target6785167882%_ (let () (declare (not safe)) (##vector-ref - _%__splice8243582436%_ + _%__splice8331083311%_ '0)))) - (if (gx#stx-null? _%tl6748367515%_) - (_%__match8248182482%_ - _%e6745867567%_ - _%hd6745967571%_ - _%tl6746067574%_ - _%__splice8243582436%_ - _%target6748167512%_ - _%tl6748367515%_) + (if (gx#stx-null? _%tl6785367885%_) + (_%__match8335683357%_ + _%e6782867937%_ + _%hd6782967941%_ + _%tl6783067944%_ + _%__splice8331083311%_ + _%target6785167882%_ + _%tl6785367885%_) (let () (declare (not safe)) - (_%g6745367495%_))))) - (let () (declare (not safe)) (_%g6745367495%_)))))) - (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8243582436%_ - (gx#syntax-split-splice _%tl6746067574%_ '0))) - (let ((_%tl6748367515%_ + (_%g6782367865%_))))) + (let () (declare (not safe)) (_%g6782367865%_)))))) + (if (gx#stx-pair/null? _%tl6783067944%_) + (let ((_%__splice8331083311%_ + (gx#syntax-split-splice _%tl6783067944%_ '0))) + (let ((_%tl6785367885%_ (let () (declare (not safe)) - (##vector-ref _%__splice8243582436%_ '1))) - (_%target6748167512%_ + (##vector-ref _%__splice8331083311%_ '1))) + (_%target6785167882%_ (let () (declare (not safe)) - (##vector-ref _%__splice8243582436%_ '0)))) - (if (gx#stx-null? _%tl6748367515%_) - (_%__match8248182482%_ - _%e6745867567%_ - _%hd6745967571%_ - _%tl6746067574%_ - _%__splice8243582436%_ - _%target6748167512%_ - _%tl6748367515%_) - (let () (declare (not safe)) (_%g6745367495%_))))) - (let () (declare (not safe)) (_%g6745367495%_)))) + (##vector-ref _%__splice8331083311%_ '0)))) + (if (gx#stx-null? _%tl6785367885%_) + (_%__match8335683357%_ + _%e6782867937%_ + _%hd6782967941%_ + _%tl6783067944%_ + _%__splice8331083311%_ + _%target6785167882%_ + _%tl6785367885%_) + (let () (declare (not safe)) (_%g6782367865%_))))) + (let () (declare (not safe)) (_%g6782367865%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6746067574%_) - (let ((_%__splice8243582436%_ + _%tl6783067944%_) + (let ((_%__splice8331083311%_ (gx#syntax-split-splice - _%tl6746067574%_ + _%tl6783067944%_ '0))) - (let ((_%tl6748367515%_ + (let ((_%tl6785367885%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8243582436%_ '1))) - (_%target6748167512%_ + (##vector-ref _%__splice8331083311%_ '1))) + (_%target6785167882%_ (let () (declare (not safe)) - (##vector-ref _%__splice8243582436%_ '0)))) - (if (gx#stx-null? _%tl6748367515%_) - (_%__match8248182482%_ - _%e6745867567%_ - _%hd6745967571%_ - _%tl6746067574%_ - _%__splice8243582436%_ - _%target6748167512%_ - _%tl6748367515%_) - (let () (declare (not safe)) (_%g6745367495%_))))) - (let () (declare (not safe)) (_%g6745367495%_)))) + (##vector-ref _%__splice8331083311%_ '0)))) + (if (gx#stx-null? _%tl6785367885%_) + (_%__match8335683357%_ + _%e6782867937%_ + _%hd6782967941%_ + _%tl6783067944%_ + _%__splice8331083311%_ + _%target6785167882%_ + _%tl6785367885%_) + (let () (declare (not safe)) (_%g6782367865%_))))) + (let () (declare (not safe)) (_%g6782367865%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6746067574%_) - (let ((_%__splice8243582436%_ + _%tl6783067944%_) + (let ((_%__splice8331083311%_ (gx#syntax-split-splice - _%tl6746067574%_ + _%tl6783067944%_ '0))) - (let ((_%tl6748367515%_ + (let ((_%tl6785367885%_ (let () (declare (not safe)) (##vector-ref - _%__splice8243582436%_ + _%__splice8331083311%_ '1))) - (_%target6748167512%_ + (_%target6785167882%_ (let () (declare (not safe)) (##vector-ref - _%__splice8243582436%_ + _%__splice8331083311%_ '0)))) (if (gx#stx-null? - _%tl6748367515%_) - (_%__match8248182482%_ - _%e6745867567%_ - _%hd6745967571%_ - _%tl6746067574%_ - _%__splice8243582436%_ - _%target6748167512%_ - _%tl6748367515%_) + _%tl6785367885%_) + (_%__match8335683357%_ + _%e6782867937%_ + _%hd6782967941%_ + _%tl6783067944%_ + _%__splice8331083311%_ + _%target6785167882%_ + _%tl6785367885%_) (let () (declare (not safe)) - (_%g6745367495%_))))) + (_%g6782367865%_))))) (let () (declare (not safe)) - (_%g6745367495%_)))))) - (if (gx#stx-pair/null? _%tl6746067574%_) - (let ((_%__splice8243582436%_ + (_%g6782367865%_)))))) + (if (gx#stx-pair/null? _%tl6783067944%_) + (let ((_%__splice8331083311%_ (gx#syntax-split-splice - _%tl6746067574%_ + _%tl6783067944%_ '0))) - (let ((_%tl6748367515%_ + (let ((_%tl6785367885%_ (let () (declare (not safe)) (##vector-ref - _%__splice8243582436%_ + _%__splice8331083311%_ '1))) - (_%target6748167512%_ + (_%target6785167882%_ (let () (declare (not safe)) (##vector-ref - _%__splice8243582436%_ + _%__splice8331083311%_ '0)))) (if (gx#stx-null? - _%tl6748367515%_) - (_%__match8248182482%_ - _%e6745867567%_ - _%hd6745967571%_ - _%tl6746067574%_ - _%__splice8243582436%_ - _%target6748167512%_ - _%tl6748367515%_) + _%tl6785367885%_) + (_%__match8335683357%_ + _%e6782867937%_ + _%hd6782967941%_ + _%tl6783067944%_ + _%__splice8331083311%_ + _%target6785167882%_ + _%tl6785367885%_) (let () (declare (not safe)) - (_%g6745367495%_))))) + (_%g6782367865%_))))) (let () (declare (not safe)) - (_%g6745367495%_)))))) + (_%g6782367865%_)))))) (let () (declare (not safe)) - (_%g6745367495%_)))))))) - (_%clause-e66917%_ - (lambda (_%clause67189%_) - (let* ((_%__stx8248482485%_ _%clause67189%_) - (_%g6719367235%_ + (_%g6782367865%_)))))))) + (_%clause-e67287%_ + (lambda (_%clause67559%_) + (let* ((_%__stx8335983360%_ _%clause67559%_) + (_%g6756367605%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8248482485%_)))) - (let ((_%__kont8248782488%_ - (lambda (_%L67375%_ _%L67377%_ _%L67378%_) + _%__stx8335983360%_)))) + (let ((_%__kont8336283363%_ + (lambda (_%L67745%_ _%L67747%_ _%L67748%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L67378%_) + _%L67748%_) (begin (let () (declare (not safe)) @@ -4090,652 +4090,652 @@ '#f '#f '#f - _%stx66912%_ - _%L67378%_ - _%L67377%_)) - (let* ((_%g6739867406%_ - (lambda (_%g6739967402%_) + _%stx67282%_ + _%L67748%_ + _%L67747%_)) + (let* ((_%g6776867776%_ + (lambda (_%g6776967772%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6739967402%_))) - (_%g6739767433%_ - (lambda (_%g6739967410%_) - ((lambda (_%L67413%_) - (cons _%L67413%_ + _%g6776967772%_))) + (_%g6776767803%_ + (lambda (_%g6776967780%_) + ((lambda (_%L67783%_) + (cons _%L67783%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'with-procedure-signature) - (cons (cons _%L67378%_ - (cons _%L67377%_ (cons '#f '()))) + (cons (cons _%L67748%_ + (cons _%L67747%_ (cons '#f '()))) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L67378%_ - (foldr (lambda (_%g6742467427%_ + (cons _%L67748%_ + (foldr (lambda (_%g6779467797%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6742567430%_) - (cons _%g6742467427%_ _%g6742567430%_)) + _%g6779567800%_) + (cons _%g6779467797%_ _%g6779567800%_)) '() - _%L67375%_))) + _%L67745%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6739967410%_)))) - (_%g6739767433%_ + _%g6776967780%_)))) + (_%g6776767803%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%L67378%_))))) - (cons _%L67378%_ + _%L67748%_))))) + (cons _%L67748%_ (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L67377%_ (cons '#f '()))) - (foldr (lambda (_%g6743667439%_ _%g6743767442%_) - (cons _%g6743667439%_ _%g6743767442%_)) + (cons _%L67747%_ (cons '#f '()))) + (foldr (lambda (_%g6780667809%_ _%g6780767812%_) + (cons _%g6780667809%_ _%g6780767812%_)) '() - _%L67375%_))) + _%L67745%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8249182492%_ - (lambda (_%L67282%_ _%L67284%_) + (_%__kont8336683367%_ + (lambda (_%L67652%_ _%L67654%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L67284%_) - (_%clause-e66917%_ - (cons _%L67284%_ + _%L67654%_) + (_%clause-e67287%_ + (cons _%L67654%_ (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6729967302%_ + (foldr (lambda (_%g6766967672%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6730067305%_) - (cons _%g6729967302%_ _%g6730067305%_)) + _%g6767067675%_) + (cons _%g6766967672%_ _%g6767067675%_)) '() - _%L67282%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause67189%_)))) - (let* ((_%__match8253982540%_ - (lambda (_%e6721867242%_ - _%hd6721967246%_ - _%tl6722067249%_ - _%__splice8249382494%_ - _%target6722167252%_ - _%tl6722367255%_) - (letrec ((_%loop6722467258%_ - (lambda (_%hd6722267262%_ - _%body6722867265%_) + _%L67652%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%clause67559%_)))) + (let* ((_%__match8341483415%_ + (lambda (_%e6758867612%_ + _%hd6758967616%_ + _%tl6759067619%_ + _%__splice8336883369%_ + _%target6759167622%_ + _%tl6759367625%_) + (letrec ((_%loop6759467628%_ + (lambda (_%hd6759267632%_ + _%body6759867635%_) (if (gx#stx-pair? - _%hd6722267262%_) - (let ((_%e6722567268%_ + _%hd6759267632%_) + (let ((_%e6759567638%_ (gx#syntax-e - _%hd6722267262%_))) - (let ((_%lp-tl6722767275%_ + _%hd6759267632%_))) + (let ((_%lp-tl6759767645%_ (let () (declare (not safe)) - (##cdr _%e6722567268%_))) - (_%lp-hd6722667272%_ + (##cdr _%e6759567638%_))) + (_%lp-hd6759667642%_ (let () (declare (not safe)) - (##car _%e6722567268%_)))) - (_%loop6722467258%_ - _%lp-tl6722767275%_ - (cons _%lp-hd6722667272%_ - _%body6722867265%_)))) - (let ((_%body6722967278%_ - (reverse _%body6722867265%_))) - (_%__kont8249182492%_ - _%body6722967278%_ - _%hd6721967246%_)))))) - (_%loop6722467258%_ - _%target6722167252%_ + (##car _%e6759567638%_)))) + (_%loop6759467628%_ + _%lp-tl6759767645%_ + (cons _%lp-hd6759667642%_ + _%body6759867635%_)))) + (let ((_%body6759967648%_ + (reverse _%body6759867635%_))) + (_%__kont8336683367%_ + _%body6759967648%_ + _%hd6758967616%_)))))) + (_%loop6759467628%_ + _%target6759167622%_ '())))) - (_%__match8252582526%_ - (lambda (_%e6719867315%_ - _%hd6719967319%_ - _%tl6720067322%_ - _%e6720167325%_ - _%hd6720267329%_ - _%tl6720367332%_ - _%e6720467335%_ - _%hd6720567339%_ - _%tl6720667342%_ - _%__splice8248982490%_ - _%target6720767345%_ - _%tl6720967348%_) - (letrec ((_%loop6721067351%_ - (lambda (_%hd6720867355%_ - _%body6721467358%_) + (_%__match8340083401%_ + (lambda (_%e6756867685%_ + _%hd6756967689%_ + _%tl6757067692%_ + _%e6757167695%_ + _%hd6757267699%_ + _%tl6757367702%_ + _%e6757467705%_ + _%hd6757567709%_ + _%tl6757667712%_ + _%__splice8336483365%_ + _%target6757767715%_ + _%tl6757967718%_) + (letrec ((_%loop6758067721%_ + (lambda (_%hd6757867725%_ + _%body6758467728%_) (if (gx#stx-pair? - _%hd6720867355%_) - (let ((_%e6721167361%_ + _%hd6757867725%_) + (let ((_%e6758167731%_ (gx#syntax-e - _%hd6720867355%_))) - (let ((_%lp-tl6721367368%_ + _%hd6757867725%_))) + (let ((_%lp-tl6758367738%_ (let () (declare (not safe)) - (##cdr _%e6721167361%_))) - (_%lp-hd6721267365%_ + (##cdr _%e6758167731%_))) + (_%lp-hd6758267735%_ (let () (declare (not safe)) - (##car _%e6721167361%_)))) - (_%loop6721067351%_ - _%lp-tl6721367368%_ - (cons _%lp-hd6721267365%_ - _%body6721467358%_)))) - (let ((_%body6721567371%_ - (reverse _%body6721467358%_))) - (_%__kont8248782488%_ - _%body6721567371%_ - _%hd6720567339%_ - _%hd6719967319%_)))))) - (_%loop6721067351%_ - _%target6720767345%_ + (##car _%e6758167731%_)))) + (_%loop6758067721%_ + _%lp-tl6758367738%_ + (cons _%lp-hd6758267735%_ + _%body6758467728%_)))) + (let ((_%body6758567741%_ + (reverse _%body6758467728%_))) + (_%__kont8336283363%_ + _%body6758567741%_ + _%hd6757567709%_ + _%hd6756967689%_)))))) + (_%loop6758067721%_ + _%target6757767715%_ '()))))) - (if (gx#stx-pair? _%__stx8248482485%_) - (let ((_%e6719867315%_ - (gx#syntax-e _%__stx8248482485%_))) - (let ((_%tl6720067322%_ + (if (gx#stx-pair? _%__stx8335983360%_) + (let ((_%e6756867685%_ + (gx#syntax-e _%__stx8335983360%_))) + (let ((_%tl6757067692%_ (let () (declare (not safe)) - (##cdr _%e6719867315%_))) - (_%hd6719967319%_ + (##cdr _%e6756867685%_))) + (_%hd6756967689%_ (let () (declare (not safe)) - (##car _%e6719867315%_)))) - (if (gx#stx-pair? _%tl6720067322%_) - (let ((_%e6720167325%_ - (gx#syntax-e _%tl6720067322%_))) - (let ((_%tl6720367332%_ + (##car _%e6756867685%_)))) + (if (gx#stx-pair? _%tl6757067692%_) + (let ((_%e6757167695%_ + (gx#syntax-e _%tl6757067692%_))) + (let ((_%tl6757367702%_ (let () (declare (not safe)) - (##cdr _%e6720167325%_))) - (_%hd6720267329%_ + (##cdr _%e6757167695%_))) + (_%hd6757267699%_ (let () (declare (not safe)) - (##car _%e6720167325%_)))) - (if (gx#identifier? _%hd6720267329%_) + (##car _%e6757167695%_)))) + (if (gx#identifier? _%hd6757267699%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84150_| - _%hd6720267329%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85142_| + _%hd6757267699%_) (if (gx#stx-pair? - _%tl6720367332%_) - (let ((_%e6720467335%_ + _%tl6757367702%_) + (let ((_%e6757467705%_ (gx#syntax-e - _%tl6720367332%_))) - (let ((_%tl6720667342%_ + _%tl6757367702%_))) + (let ((_%tl6757667712%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6720467335%_))) - (_%hd6720567339%_ - (let () (declare (not safe)) (##car _%e6720467335%_)))) - (if (gx#stx-pair/null? _%tl6720667342%_) - (let ((_%__splice8248982490%_ - (gx#syntax-split-splice _%tl6720667342%_ '0))) - (let ((_%tl6720967348%_ + (##cdr _%e6757467705%_))) + (_%hd6757567709%_ + (let () (declare (not safe)) (##car _%e6757467705%_)))) + (if (gx#stx-pair/null? _%tl6757667712%_) + (let ((_%__splice8336483365%_ + (gx#syntax-split-splice _%tl6757667712%_ '0))) + (let ((_%tl6757967718%_ (let () (declare (not safe)) - (##vector-ref _%__splice8248982490%_ '1))) - (_%target6720767345%_ + (##vector-ref _%__splice8336483365%_ '1))) + (_%target6757767715%_ (let () (declare (not safe)) - (##vector-ref _%__splice8248982490%_ '0)))) - (if (gx#stx-null? _%tl6720967348%_) - (_%__match8252582526%_ - _%e6719867315%_ - _%hd6719967319%_ - _%tl6720067322%_ - _%e6720167325%_ - _%hd6720267329%_ - _%tl6720367332%_ - _%e6720467335%_ - _%hd6720567339%_ - _%tl6720667342%_ - _%__splice8248982490%_ - _%target6720767345%_ - _%tl6720967348%_) - (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8249382494%_ + (##vector-ref _%__splice8336483365%_ '0)))) + (if (gx#stx-null? _%tl6757967718%_) + (_%__match8340083401%_ + _%e6756867685%_ + _%hd6756967689%_ + _%tl6757067692%_ + _%e6757167695%_ + _%hd6757267699%_ + _%tl6757367702%_ + _%e6757467705%_ + _%hd6757567709%_ + _%tl6757667712%_ + _%__splice8336483365%_ + _%target6757767715%_ + _%tl6757967718%_) + (if (gx#stx-pair/null? _%tl6757067692%_) + (let ((_%__splice8336883369%_ (gx#syntax-split-splice - _%tl6720067322%_ + _%tl6757067692%_ '0))) - (let ((_%tl6722367255%_ + (let ((_%tl6759367625%_ (let () (declare (not safe)) (##vector-ref - _%__splice8249382494%_ + _%__splice8336883369%_ '1))) - (_%target6722167252%_ + (_%target6759167622%_ (let () (declare (not safe)) (##vector-ref - _%__splice8249382494%_ + _%__splice8336883369%_ '0)))) - (if (gx#stx-null? _%tl6722367255%_) - (_%__match8253982540%_ - _%e6719867315%_ - _%hd6719967319%_ - _%tl6720067322%_ - _%__splice8249382494%_ - _%target6722167252%_ - _%tl6722367255%_) + (if (gx#stx-null? _%tl6759367625%_) + (_%__match8341483415%_ + _%e6756867685%_ + _%hd6756967689%_ + _%tl6757067692%_ + _%__splice8336883369%_ + _%target6759167622%_ + _%tl6759367625%_) (let () (declare (not safe)) - (_%g6719367235%_))))) + (_%g6756367605%_))))) (let () (declare (not safe)) - (_%g6719367235%_)))))) - (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8249382494%_ - (gx#syntax-split-splice _%tl6720067322%_ '0))) - (let ((_%tl6722367255%_ + (_%g6756367605%_)))))) + (if (gx#stx-pair/null? _%tl6757067692%_) + (let ((_%__splice8336883369%_ + (gx#syntax-split-splice _%tl6757067692%_ '0))) + (let ((_%tl6759367625%_ (let () (declare (not safe)) - (##vector-ref _%__splice8249382494%_ '1))) - (_%target6722167252%_ + (##vector-ref _%__splice8336883369%_ '1))) + (_%target6759167622%_ (let () (declare (not safe)) (##vector-ref - _%__splice8249382494%_ + _%__splice8336883369%_ '0)))) - (if (gx#stx-null? _%tl6722367255%_) - (_%__match8253982540%_ - _%e6719867315%_ - _%hd6719967319%_ - _%tl6720067322%_ - _%__splice8249382494%_ - _%target6722167252%_ - _%tl6722367255%_) + (if (gx#stx-null? _%tl6759367625%_) + (_%__match8341483415%_ + _%e6756867685%_ + _%hd6756967689%_ + _%tl6757067692%_ + _%__splice8336883369%_ + _%target6759167622%_ + _%tl6759367625%_) (let () (declare (not safe)) - (_%g6719367235%_))))) - (let () (declare (not safe)) (_%g6719367235%_)))))) - (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8249382494%_ - (gx#syntax-split-splice _%tl6720067322%_ '0))) - (let ((_%tl6722367255%_ + (_%g6756367605%_))))) + (let () (declare (not safe)) (_%g6756367605%_)))))) + (if (gx#stx-pair/null? _%tl6757067692%_) + (let ((_%__splice8336883369%_ + (gx#syntax-split-splice _%tl6757067692%_ '0))) + (let ((_%tl6759367625%_ (let () (declare (not safe)) - (##vector-ref _%__splice8249382494%_ '1))) - (_%target6722167252%_ + (##vector-ref _%__splice8336883369%_ '1))) + (_%target6759167622%_ (let () (declare (not safe)) - (##vector-ref _%__splice8249382494%_ '0)))) - (if (gx#stx-null? _%tl6722367255%_) - (_%__match8253982540%_ - _%e6719867315%_ - _%hd6719967319%_ - _%tl6720067322%_ - _%__splice8249382494%_ - _%target6722167252%_ - _%tl6722367255%_) - (let () (declare (not safe)) (_%g6719367235%_))))) - (let () (declare (not safe)) (_%g6719367235%_)))) + (##vector-ref _%__splice8336883369%_ '0)))) + (if (gx#stx-null? _%tl6759367625%_) + (_%__match8341483415%_ + _%e6756867685%_ + _%hd6756967689%_ + _%tl6757067692%_ + _%__splice8336883369%_ + _%target6759167622%_ + _%tl6759367625%_) + (let () (declare (not safe)) (_%g6756367605%_))))) + (let () (declare (not safe)) (_%g6756367605%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6720067322%_) - (let ((_%__splice8249382494%_ + _%tl6757067692%_) + (let ((_%__splice8336883369%_ (gx#syntax-split-splice - _%tl6720067322%_ + _%tl6757067692%_ '0))) - (let ((_%tl6722367255%_ + (let ((_%tl6759367625%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8249382494%_ '1))) - (_%target6722167252%_ + (##vector-ref _%__splice8336883369%_ '1))) + (_%target6759167622%_ (let () (declare (not safe)) - (##vector-ref _%__splice8249382494%_ '0)))) - (if (gx#stx-null? _%tl6722367255%_) - (_%__match8253982540%_ - _%e6719867315%_ - _%hd6719967319%_ - _%tl6720067322%_ - _%__splice8249382494%_ - _%target6722167252%_ - _%tl6722367255%_) - (let () (declare (not safe)) (_%g6719367235%_))))) - (let () (declare (not safe)) (_%g6719367235%_)))) + (##vector-ref _%__splice8336883369%_ '0)))) + (if (gx#stx-null? _%tl6759367625%_) + (_%__match8341483415%_ + _%e6756867685%_ + _%hd6756967689%_ + _%tl6757067692%_ + _%__splice8336883369%_ + _%target6759167622%_ + _%tl6759367625%_) + (let () (declare (not safe)) (_%g6756367605%_))))) + (let () (declare (not safe)) (_%g6756367605%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6720067322%_) - (let ((_%__splice8249382494%_ + _%tl6757067692%_) + (let ((_%__splice8336883369%_ (gx#syntax-split-splice - _%tl6720067322%_ + _%tl6757067692%_ '0))) - (let ((_%tl6722367255%_ + (let ((_%tl6759367625%_ (let () (declare (not safe)) (##vector-ref - _%__splice8249382494%_ + _%__splice8336883369%_ '1))) - (_%target6722167252%_ + (_%target6759167622%_ (let () (declare (not safe)) (##vector-ref - _%__splice8249382494%_ + _%__splice8336883369%_ '0)))) (if (gx#stx-null? - _%tl6722367255%_) - (_%__match8253982540%_ - _%e6719867315%_ - _%hd6719967319%_ - _%tl6720067322%_ - _%__splice8249382494%_ - _%target6722167252%_ - _%tl6722367255%_) + _%tl6759367625%_) + (_%__match8341483415%_ + _%e6756867685%_ + _%hd6756967689%_ + _%tl6757067692%_ + _%__splice8336883369%_ + _%target6759167622%_ + _%tl6759367625%_) (let () (declare (not safe)) - (_%g6719367235%_))))) + (_%g6756367605%_))))) (let () (declare (not safe)) - (_%g6719367235%_)))))) - (if (gx#stx-pair/null? _%tl6720067322%_) - (let ((_%__splice8249382494%_ + (_%g6756367605%_)))))) + (if (gx#stx-pair/null? _%tl6757067692%_) + (let ((_%__splice8336883369%_ (gx#syntax-split-splice - _%tl6720067322%_ + _%tl6757067692%_ '0))) - (let ((_%tl6722367255%_ + (let ((_%tl6759367625%_ (let () (declare (not safe)) (##vector-ref - _%__splice8249382494%_ + _%__splice8336883369%_ '1))) - (_%target6722167252%_ + (_%target6759167622%_ (let () (declare (not safe)) (##vector-ref - _%__splice8249382494%_ + _%__splice8336883369%_ '0)))) (if (gx#stx-null? - _%tl6722367255%_) - (_%__match8253982540%_ - _%e6719867315%_ - _%hd6719967319%_ - _%tl6720067322%_ - _%__splice8249382494%_ - _%target6722167252%_ - _%tl6722367255%_) + _%tl6759367625%_) + (_%__match8341483415%_ + _%e6756867685%_ + _%hd6756967689%_ + _%tl6757067692%_ + _%__splice8336883369%_ + _%target6759167622%_ + _%tl6759367625%_) (let () (declare (not safe)) - (_%g6719367235%_))))) + (_%g6756367605%_))))) (let () (declare (not safe)) - (_%g6719367235%_)))))) + (_%g6756367605%_)))))) (let () (declare (not safe)) - (_%g6719367235%_))))))))) - (let* ((_%__stx8254282543%_ _%stx66912%_) - (_%g6692066953%_ + (_%g6756367605%_))))))))) + (let* ((_%__stx8341783418%_ _%stx67282%_) + (_%g6729067323%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8254282543%_)))) - (let ((_%__kont8254582546%_ - (lambda (_%L67072%_) - (let* ((_%g6709567112%_ - (lambda (_%g6709667108%_) + _%__stx8341783418%_)))) + (let ((_%__kont8342083421%_ + (lambda (_%L67442%_) + (let* ((_%g6746567482%_ + (lambda (_%g6746667478%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6709667108%_))) - (_%g6709467173%_ - (lambda (_%g6709667116%_) - (if (gx#stx-pair/null? _%g6709667116%_) - (let ((_g84151_ + _%g6746667478%_))) + (_%g6746467543%_ + (lambda (_%g6746667486%_) + (if (gx#stx-pair/null? _%g6746667486%_) + (let ((_g85143_ (gx#syntax-split-splice - _%g6709667116%_ + _%g6746667486%_ '0))) (begin - (let ((_g84152_ + (let ((_g85144_ (let () (declare (not safe)) - (if (##values? _g84151_) - (##vector-length _g84151_) + (if (##values? _g85143_) + (##values-length _g85143_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84152_ 2))) + (##fx= _g85144_ 2))) (error "Context expects 2 values" - _g84152_))) - (let ((_%target6709867119%_ + _g85144_))) + (let ((_%target6746867489%_ (let () (declare (not safe)) - (##vector-ref _g84151_ 0))) - (_%tl6710067122%_ + (##values-ref _g85143_ 0))) + (_%tl6747067492%_ (let () (declare (not safe)) - (##vector-ref _g84151_ 1)))) - (if (gx#stx-null? _%tl6710067122%_) - (letrec ((_%loop6710167125%_ - (lambda (_%hd6709967129%_ - _%clause6710567132%_) + (##values-ref _g85143_ 1)))) + (if (gx#stx-null? _%tl6747067492%_) + (letrec ((_%loop6747167495%_ + (lambda (_%hd6746967499%_ + _%clause6747567502%_) (if (gx#stx-pair? - _%hd6709967129%_) - (let ((_%e6710267135%_ + _%hd6746967499%_) + (let ((_%e6747267505%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6709967129%_))) - (let ((_%lp-hd6710367139%_ + (gx#syntax-e _%hd6746967499%_))) + (let ((_%lp-hd6747367509%_ (let () (declare (not safe)) - (##car _%e6710267135%_))) - (_%lp-tl6710467142%_ + (##car _%e6747267505%_))) + (_%lp-tl6747467512%_ (let () (declare (not safe)) - (##cdr _%e6710267135%_)))) - (_%loop6710167125%_ - _%lp-tl6710467142%_ - (cons _%lp-hd6710367139%_ _%clause6710567132%_)))) - (let ((_%clause6710667145%_ - (reverse _%clause6710567132%_))) - ((lambda (_%L67149%_) + (##cdr _%e6747267505%_)))) + (_%loop6747167495%_ + _%lp-tl6747467512%_ + (cons _%lp-hd6747367509%_ _%clause6747567502%_)))) + (let ((_%clause6747667515%_ + (reverse _%clause6747567502%_))) + ((lambda (_%L67519%_) (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g6716467167%_ - _%g6716567170%_) - (cons _%g6716467167%_ - _%g6716567170%_)) + (foldr (lambda (_%g6753467537%_ + _%g6753567540%_) + (cons _%g6753467537%_ + _%g6753567540%_)) '() - _%L67149%_))) - _%clause6710667145%_)))))) + _%L67519%_))) + _%clause6747667515%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6710167125%_ - _%target6709867119%_ + (_%loop6747167495%_ + _%target6746867489%_ '())) - (_%g6709567112%_ - _%g6709667116%_))))) - (_%g6709567112%_ _%g6709667116%_))))) - (_%g6709467173%_ - (map _%clause-e66917%_ - (foldr (lambda (_%g6717667179%_ _%g6717767182%_) - (cons _%g6717667179%_ _%g6717767182%_)) + (_%g6746567482%_ + _%g6746667486%_))))) + (_%g6746567482%_ _%g6746667486%_))))) + (_%g6746467543%_ + (map _%clause-e67287%_ + (foldr (lambda (_%g6754667549%_ _%g6754767552%_) + (cons _%g6754667549%_ _%g6754767552%_)) '() - _%L67072%_)))))) - (_%__kont8254982550%_ - (lambda (_%L67000%_) + _%L67442%_)))))) + (_%__kont8342483425%_ + (lambda (_%L67370%_) (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g6701667019%_ _%g6701767022%_) - (cons _%g6701667019%_ _%g6701767022%_)) + (foldr (lambda (_%g6738667389%_ _%g6738767392%_) + (cons _%g6738667389%_ _%g6738767392%_)) '() - _%L67000%_))))) - (let* ((_%__match8258182582%_ - (lambda (_%e6693666960%_ - _%hd6693766964%_ - _%tl6693866967%_ - _%__splice8255182552%_ - _%target6693966970%_ - _%tl6694166973%_) - (letrec ((_%loop6694266976%_ - (lambda (_%hd6694066980%_ - _%clause6694666983%_) - (if (gx#stx-pair? _%hd6694066980%_) - (let ((_%e6694366986%_ - (gx#syntax-e _%hd6694066980%_))) - (let ((_%lp-tl6694566993%_ + _%L67370%_))))) + (let* ((_%__match8345683457%_ + (lambda (_%e6730667330%_ + _%hd6730767334%_ + _%tl6730867337%_ + _%__splice8342683427%_ + _%target6730967340%_ + _%tl6731167343%_) + (letrec ((_%loop6731267346%_ + (lambda (_%hd6731067350%_ + _%clause6731667353%_) + (if (gx#stx-pair? _%hd6731067350%_) + (let ((_%e6731367356%_ + (gx#syntax-e _%hd6731067350%_))) + (let ((_%lp-tl6731567363%_ (let () (declare (not safe)) - (##cdr _%e6694366986%_))) - (_%lp-hd6694466990%_ + (##cdr _%e6731367356%_))) + (_%lp-hd6731467360%_ (let () (declare (not safe)) - (##car _%e6694366986%_)))) - (_%loop6694266976%_ - _%lp-tl6694566993%_ - (cons _%lp-hd6694466990%_ - _%clause6694666983%_)))) - (let ((_%clause6694766996%_ - (reverse _%clause6694666983%_))) - (_%__kont8254982550%_ - _%clause6694766996%_)))))) - (_%loop6694266976%_ _%target6693966970%_ '())))) - (_%__match8256782568%_ - (lambda (_%e6692367032%_ - _%hd6692467036%_ - _%tl6692567039%_ - _%__splice8254782548%_ - _%target6692667042%_ - _%tl6692867045%_) - (letrec ((_%loop6692967048%_ - (lambda (_%hd6692767052%_ - _%clause6693367055%_) - (if (gx#stx-pair? _%hd6692767052%_) - (let ((_%e6693067058%_ - (gx#syntax-e _%hd6692767052%_))) - (let ((_%lp-tl6693267065%_ + (##car _%e6731367356%_)))) + (_%loop6731267346%_ + _%lp-tl6731567363%_ + (cons _%lp-hd6731467360%_ + _%clause6731667353%_)))) + (let ((_%clause6731767366%_ + (reverse _%clause6731667353%_))) + (_%__kont8342483425%_ + _%clause6731767366%_)))))) + (_%loop6731267346%_ _%target6730967340%_ '())))) + (_%__match8344283443%_ + (lambda (_%e6729367402%_ + _%hd6729467406%_ + _%tl6729567409%_ + _%__splice8342283423%_ + _%target6729667412%_ + _%tl6729867415%_) + (letrec ((_%loop6729967418%_ + (lambda (_%hd6729767422%_ + _%clause6730367425%_) + (if (gx#stx-pair? _%hd6729767422%_) + (let ((_%e6730067428%_ + (gx#syntax-e _%hd6729767422%_))) + (let ((_%lp-tl6730267435%_ (let () (declare (not safe)) - (##cdr _%e6693067058%_))) - (_%lp-hd6693167062%_ + (##cdr _%e6730067428%_))) + (_%lp-hd6730167432%_ (let () (declare (not safe)) - (##car _%e6693067058%_)))) - (_%loop6692967048%_ - _%lp-tl6693267065%_ - (cons _%lp-hd6693167062%_ - _%clause6693367055%_)))) - (let* ((_%clause6693467068%_ - (reverse _%clause6693367055%_)) - (_%L67072%_ - _%clause6693467068%_)) - (if (ormap _%is-clause-signature?66915%_ - (foldr (lambda (_%g6708667089%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6708767092%_) - (cons _%g6708667089%_ _%g6708767092%_)) + (##car _%e6730067428%_)))) + (_%loop6729967418%_ + _%lp-tl6730267435%_ + (cons _%lp-hd6730167432%_ + _%clause6730367425%_)))) + (let* ((_%clause6730467438%_ + (reverse _%clause6730367425%_)) + (_%L67442%_ + _%clause6730467438%_)) + (if (ormap _%is-clause-signature?67285%_ + (foldr (lambda (_%g6745667459%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6745767462%_) + (cons _%g6745667459%_ _%g6745767462%_)) '() - _%L67072%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8254582546%_ _%L67072%_) - (_%__match8258182582%_ - _%e6692367032%_ - _%hd6692467036%_ - _%tl6692567039%_ - _%__splice8254782548%_ - _%target6692667042%_ - _%tl6692867045%_))))))) - (_%loop6692967048%_ _%target6692667042%_ '()))))) - (if (gx#stx-pair? _%__stx8254282543%_) - (let ((_%e6692367032%_ (gx#syntax-e _%__stx8254282543%_))) - (let ((_%tl6692567039%_ + _%L67442%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8342083421%_ _%L67442%_) + (_%__match8345683457%_ + _%e6729367402%_ + _%hd6729467406%_ + _%tl6729567409%_ + _%__splice8342283423%_ + _%target6729667412%_ + _%tl6729867415%_))))))) + (_%loop6729967418%_ _%target6729667412%_ '()))))) + (if (gx#stx-pair? _%__stx8341783418%_) + (let ((_%e6729367402%_ (gx#syntax-e _%__stx8341783418%_))) + (let ((_%tl6729567409%_ (let () (declare (not safe)) - (##cdr _%e6692367032%_))) - (_%hd6692467036%_ + (##cdr _%e6729367402%_))) + (_%hd6729467406%_ (let () (declare (not safe)) - (##car _%e6692367032%_)))) - (if (gx#stx-pair/null? _%tl6692567039%_) - (let ((_%__splice8254782548%_ + (##car _%e6729367402%_)))) + (if (gx#stx-pair/null? _%tl6729567409%_) + (let ((_%__splice8342283423%_ (gx#syntax-split-splice - _%tl6692567039%_ + _%tl6729567409%_ '0))) - (let ((_%tl6692867045%_ + (let ((_%tl6729867415%_ (let () (declare (not safe)) (##vector-ref - _%__splice8254782548%_ + _%__splice8342283423%_ '1))) - (_%target6692667042%_ + (_%target6729667412%_ (let () (declare (not safe)) (##vector-ref - _%__splice8254782548%_ + _%__splice8342283423%_ '0)))) - (if (gx#stx-null? _%tl6692867045%_) - (_%__match8256782568%_ - _%e6692367032%_ - _%hd6692467036%_ - _%tl6692567039%_ - _%__splice8254782548%_ - _%target6692667042%_ - _%tl6692867045%_) + (if (gx#stx-null? _%tl6729867415%_) + (_%__match8344283443%_ + _%e6729367402%_ + _%hd6729467406%_ + _%tl6729567409%_ + _%__splice8342283423%_ + _%target6729667412%_ + _%tl6729867415%_) (let () (declare (not safe)) - (_%g6692066953%_))))) - (let () (declare (not safe)) (_%g6692066953%_))))) - (let () (declare (not safe)) (_%g6692066953%_))))))))) + (_%g6729067323%_))))) + (let () (declare (not safe)) (_%g6729067323%_))))) + (let () (declare (not safe)) (_%g6729067323%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#@method| - (lambda (_%stx67661%_) - (let* ((_%__stx8258482585%_ _%stx67661%_) - (_%g6766567710%_ + (lambda (_%stx68031%_) + (let* ((_%__stx8345983460%_ _%stx68031%_) + (_%g6803568080%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8258482585%_)))) - (let ((_%__kont8258782588%_ - (lambda (_%L67866%_ _%L67868%_) - (let* ((_%str67885%_ (symbol->string (gx#stx-e _%L67868%_))) - (_%ix67888%_ (string-rindex _%str67885%_ '#\.)) - (_%g6789367908%_ - (lambda (_%g6789467904%_) + _%__stx8345983460%_)))) + (let ((_%__kont8346283463%_ + (lambda (_%L68236%_ _%L68238%_) + (let* ((_%str68255%_ (symbol->string (gx#stx-e _%L68238%_))) + (_%ix68258%_ (string-rindex _%str68255%_ '#\.)) + (_%g6826368278%_ + (lambda (_%g6826468274%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6789467904%_))) - (_%g6789267964%_ - (lambda (_%g6789467912%_) - (if (gx#stx-pair? _%g6789467912%_) - (let ((_%e6789767915%_ - (gx#syntax-e _%g6789467912%_))) - (let ((_%hd6789867919%_ + _%g6826468274%_))) + (_%g6826268334%_ + (lambda (_%g6826468282%_) + (if (gx#stx-pair? _%g6826468282%_) + (let ((_%e6826768285%_ + (gx#syntax-e _%g6826468282%_))) + (let ((_%hd6826868289%_ (let () (declare (not safe)) - (##car _%e6789767915%_))) - (_%tl6789967922%_ + (##car _%e6826768285%_))) + (_%tl6826968292%_ (let () (declare (not safe)) - (##cdr _%e6789767915%_)))) - (if (gx#stx-pair? _%tl6789967922%_) - (let ((_%e6790067925%_ + (##cdr _%e6826768285%_)))) + (if (gx#stx-pair? _%tl6826968292%_) + (let ((_%e6827068295%_ (gx#syntax-e - _%tl6789967922%_))) - (let ((_%hd6790167929%_ + _%tl6826968292%_))) + (let ((_%hd6827168299%_ (let () (declare (not safe)) - (##car _%e6790067925%_))) - (_%tl6790267932%_ + (##car _%e6827068295%_))) + (_%tl6827268302%_ (let () (declare (not safe)) - (##cdr _%e6790067925%_)))) + (##cdr _%e6827068295%_)))) (if (gx#stx-null? - _%tl6790267932%_) - ((lambda (_%L67935%_ - _%L67937%_) + _%tl6827268302%_) + ((lambda (_%L68305%_ + _%L68307%_) (cons (gx#datum->syntax '#f 'call-method) @@ -4743,1970 +4743,2407 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '%%ref-dotted) - (cons _%L67937%_ '())) + (cons _%L68307%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L67935%_ '())) - (foldr (lambda (_%g6795567958%_ _%g6795667961%_) - (cons _%g6795567958%_ _%g6795667961%_)) + (cons _%L68305%_ '())) + (foldr (lambda (_%g6832568328%_ _%g6832668331%_) + (cons _%g6832568328%_ _%g6832668331%_)) '() - _%L67866%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd6790167929%_ - _%hd6789867919%_) - (_%g6789367908%_ - _%g6789467912%_)))) - (_%g6789367908%_ _%g6789467912%_)))) - (_%g6789367908%_ _%g6789467912%_))))) - (_%g6789267964%_ + _%L68236%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd6827168299%_ + _%hd6826868289%_) + (_%g6826368278%_ + _%g6826468282%_)))) + (_%g6826368278%_ _%g6826468282%_)))) + (_%g6826368278%_ _%g6826468282%_))))) + (_%g6826268334%_ (list (gx#stx-identifier - _%L67868%_ - (substring _%str67885%_ '0 _%ix67888%_)) - (let ((__tmp84153 + _%L68238%_ + (substring _%str68255%_ '0 _%ix68258%_)) + (let ((__tmp85145 (substring - _%str67885%_ - (fx1+ _%ix67888%_) - (string-length _%str67885%_)))) + _%str68255%_ + (fx1+ _%ix68258%_) + (string-length _%str68255%_)))) (declare (not safe)) - (##string->symbol __tmp84153))))))) - (_%__kont8259182592%_ - (lambda (_%L67777%_ _%L67779%_ _%L67780%_) + (##string->symbol __tmp85145))))))) + (_%__kont8346683467%_ + (lambda (_%L68147%_ _%L68149%_ _%L68150%_) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L67779%_ + (cons _%L68149%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L67780%_ '())) - (foldr (lambda (_%g6780067803%_ - _%g6780167806%_) - (cons _%g6780067803%_ - _%g6780167806%_)) + (cons _%L68150%_ '())) + (foldr (lambda (_%g6817068173%_ + _%g6817168176%_) + (cons _%g6817068173%_ + _%g6817168176%_)) '() - _%L67777%_))))))) - (let* ((_%__match8264182642%_ - (lambda (_%e6768767717%_ - _%hd6768867721%_ - _%tl6768967724%_ - _%e6769067727%_ - _%hd6769167731%_ - _%tl6769267734%_ - _%e6769367737%_ - _%hd6769467741%_ - _%tl6769567744%_ - _%__splice8259382594%_ - _%target6769667747%_ - _%tl6769867750%_) - (letrec ((_%loop6769967753%_ - (lambda (_%hd6769767757%_ _%arg6770367760%_) - (if (gx#stx-pair? _%hd6769767757%_) - (let ((_%e6770067763%_ - (gx#syntax-e _%hd6769767757%_))) - (let ((_%lp-tl6770267770%_ + _%L68147%_))))))) + (let* ((_%__match8351683517%_ + (lambda (_%e6805768087%_ + _%hd6805868091%_ + _%tl6805968094%_ + _%e6806068097%_ + _%hd6806168101%_ + _%tl6806268104%_ + _%e6806368107%_ + _%hd6806468111%_ + _%tl6806568114%_ + _%__splice8346883469%_ + _%target6806668117%_ + _%tl6806868120%_) + (letrec ((_%loop6806968123%_ + (lambda (_%hd6806768127%_ _%arg6807368130%_) + (if (gx#stx-pair? _%hd6806768127%_) + (let ((_%e6807068133%_ + (gx#syntax-e _%hd6806768127%_))) + (let ((_%lp-tl6807268140%_ (let () (declare (not safe)) - (##cdr _%e6770067763%_))) - (_%lp-hd6770167767%_ + (##cdr _%e6807068133%_))) + (_%lp-hd6807168137%_ (let () (declare (not safe)) - (##car _%e6770067763%_)))) - (_%loop6769967753%_ - _%lp-tl6770267770%_ - (cons _%lp-hd6770167767%_ - _%arg6770367760%_)))) - (let ((_%arg6770467773%_ - (reverse _%arg6770367760%_))) - (_%__kont8259182592%_ - _%arg6770467773%_ - _%hd6769467741%_ - _%hd6769167731%_)))))) - (_%loop6769967753%_ _%target6769667747%_ '())))) - (_%__match8262782628%_ - (lambda (_%e6768767717%_ - _%hd6768867721%_ - _%tl6768967724%_ - _%e6769067727%_ - _%hd6769167731%_ - _%tl6769267734%_) - (if (gx#stx-pair? _%tl6769267734%_) - (let ((_%e6769367737%_ - (gx#syntax-e _%tl6769267734%_))) - (let ((_%tl6769567744%_ + (##car _%e6807068133%_)))) + (_%loop6806968123%_ + _%lp-tl6807268140%_ + (cons _%lp-hd6807168137%_ + _%arg6807368130%_)))) + (let ((_%arg6807468143%_ + (reverse _%arg6807368130%_))) + (_%__kont8346683467%_ + _%arg6807468143%_ + _%hd6806468111%_ + _%hd6806168101%_)))))) + (_%loop6806968123%_ _%target6806668117%_ '())))) + (_%__match8350283503%_ + (lambda (_%e6805768087%_ + _%hd6805868091%_ + _%tl6805968094%_ + _%e6806068097%_ + _%hd6806168101%_ + _%tl6806268104%_) + (if (gx#stx-pair? _%tl6806268104%_) + (let ((_%e6806368107%_ + (gx#syntax-e _%tl6806268104%_))) + (let ((_%tl6806568114%_ (let () (declare (not safe)) - (##cdr _%e6769367737%_))) - (_%hd6769467741%_ + (##cdr _%e6806368107%_))) + (_%hd6806468111%_ (let () (declare (not safe)) - (##car _%e6769367737%_)))) - (if (gx#stx-pair/null? _%tl6769567744%_) - (let ((_%__splice8259382594%_ + (##car _%e6806368107%_)))) + (if (gx#stx-pair/null? _%tl6806568114%_) + (let ((_%__splice8346883469%_ (gx#syntax-split-splice - _%tl6769567744%_ + _%tl6806568114%_ '0))) - (let ((_%tl6769867750%_ + (let ((_%tl6806868120%_ (let () (declare (not safe)) (##vector-ref - _%__splice8259382594%_ + _%__splice8346883469%_ '1))) - (_%target6769667747%_ + (_%target6806668117%_ (let () (declare (not safe)) (##vector-ref - _%__splice8259382594%_ + _%__splice8346883469%_ '0)))) - (if (gx#stx-null? _%tl6769867750%_) - (_%__match8264182642%_ - _%e6768767717%_ - _%hd6768867721%_ - _%tl6768967724%_ - _%e6769067727%_ - _%hd6769167731%_ - _%tl6769267734%_ - _%e6769367737%_ - _%hd6769467741%_ - _%tl6769567744%_ - _%__splice8259382594%_ - _%target6769667747%_ - _%tl6769867750%_) + (if (gx#stx-null? _%tl6806868120%_) + (_%__match8351683517%_ + _%e6805768087%_ + _%hd6805868091%_ + _%tl6805968094%_ + _%e6806068097%_ + _%hd6806168101%_ + _%tl6806268104%_ + _%e6806368107%_ + _%hd6806468111%_ + _%tl6806568114%_ + _%__splice8346883469%_ + _%target6806668117%_ + _%tl6806868120%_) (let () (declare (not safe)) - (_%g6766567710%_))))) + (_%g6803568080%_))))) (let () (declare (not safe)) - (_%g6766567710%_))))) - (let () (declare (not safe)) (_%g6766567710%_))))) - (_%__match8261582616%_ - (lambda (_%e6766967816%_ - _%hd6767067820%_ - _%tl6767167823%_ - _%e6767267826%_ - _%hd6767367830%_ - _%tl6767467833%_ - _%__splice8258982590%_ - _%target6767567836%_ - _%tl6767767839%_) - (letrec ((_%loop6767867842%_ - (lambda (_%hd6767667846%_ _%arg6768267849%_) - (if (gx#stx-pair? _%hd6767667846%_) - (let ((_%e6767967852%_ - (gx#syntax-e _%hd6767667846%_))) - (let ((_%lp-tl6768167859%_ + (_%g6803568080%_))))) + (let () (declare (not safe)) (_%g6803568080%_))))) + (_%__match8349083491%_ + (lambda (_%e6803968186%_ + _%hd6804068190%_ + _%tl6804168193%_ + _%e6804268196%_ + _%hd6804368200%_ + _%tl6804468203%_ + _%__splice8346483465%_ + _%target6804568206%_ + _%tl6804768209%_) + (letrec ((_%loop6804868212%_ + (lambda (_%hd6804668216%_ _%arg6805268219%_) + (if (gx#stx-pair? _%hd6804668216%_) + (let ((_%e6804968222%_ + (gx#syntax-e _%hd6804668216%_))) + (let ((_%lp-tl6805168229%_ (let () (declare (not safe)) - (##cdr _%e6767967852%_))) - (_%lp-hd6768067856%_ + (##cdr _%e6804968222%_))) + (_%lp-hd6805068226%_ (let () (declare (not safe)) - (##car _%e6767967852%_)))) - (_%loop6767867842%_ - _%lp-tl6768167859%_ - (cons _%lp-hd6768067856%_ - _%arg6768267849%_)))) - (let ((_%arg6768367862%_ - (reverse _%arg6768267849%_))) - (let ((_%L67866%_ _%arg6768367862%_) - (_%L67868%_ _%hd6767367830%_)) + (##car _%e6804968222%_)))) + (_%loop6804868212%_ + _%lp-tl6805168229%_ + (cons _%lp-hd6805068226%_ + _%arg6805268219%_)))) + (let ((_%arg6805368232%_ + (reverse _%arg6805268219%_))) + (let ((_%L68236%_ _%arg6805368232%_) + (_%L68238%_ _%hd6804368200%_)) (if (let () (declare (not safe)) (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L67868%_)) - (_%__kont8258782588%_ - _%L67866%_ - _%L67868%_) - (_%__match8262782628%_ - _%e6766967816%_ - _%hd6767067820%_ - _%tl6767167823%_ - _%e6767267826%_ - _%hd6767367830%_ - _%tl6767467833%_)))))))) - (_%loop6767867842%_ _%target6767567836%_ '()))))) - (if (gx#stx-pair? _%__stx8258482585%_) - (let ((_%e6766967816%_ (gx#syntax-e _%__stx8258482585%_))) - (let ((_%tl6767167823%_ + _%L68238%_)) + (_%__kont8346283463%_ + _%L68236%_ + _%L68238%_) + (_%__match8350283503%_ + _%e6803968186%_ + _%hd6804068190%_ + _%tl6804168193%_ + _%e6804268196%_ + _%hd6804368200%_ + _%tl6804468203%_)))))))) + (_%loop6804868212%_ _%target6804568206%_ '()))))) + (if (gx#stx-pair? _%__stx8345983460%_) + (let ((_%e6803968186%_ (gx#syntax-e _%__stx8345983460%_))) + (let ((_%tl6804168193%_ (let () (declare (not safe)) - (##cdr _%e6766967816%_))) - (_%hd6767067820%_ + (##cdr _%e6803968186%_))) + (_%hd6804068190%_ (let () (declare (not safe)) - (##car _%e6766967816%_)))) - (if (gx#stx-pair? _%tl6767167823%_) - (let ((_%e6767267826%_ - (gx#syntax-e _%tl6767167823%_))) - (let ((_%tl6767467833%_ + (##car _%e6803968186%_)))) + (if (gx#stx-pair? _%tl6804168193%_) + (let ((_%e6804268196%_ + (gx#syntax-e _%tl6804168193%_))) + (let ((_%tl6804468203%_ (let () (declare (not safe)) - (##cdr _%e6767267826%_))) - (_%hd6767367830%_ + (##cdr _%e6804268196%_))) + (_%hd6804368200%_ (let () (declare (not safe)) - (##car _%e6767267826%_)))) - (if (gx#stx-pair/null? _%tl6767467833%_) - (let ((_%__splice8258982590%_ + (##car _%e6804268196%_)))) + (if (gx#stx-pair/null? _%tl6804468203%_) + (let ((_%__splice8346483465%_ (gx#syntax-split-splice - _%tl6767467833%_ + _%tl6804468203%_ '0))) - (let ((_%tl6767767839%_ + (let ((_%tl6804768209%_ (let () (declare (not safe)) (##vector-ref - _%__splice8258982590%_ + _%__splice8346483465%_ '1))) - (_%target6767567836%_ + (_%target6804568206%_ (let () (declare (not safe)) (##vector-ref - _%__splice8258982590%_ + _%__splice8346483465%_ '0)))) - (if (gx#stx-null? _%tl6767767839%_) - (_%__match8261582616%_ - _%e6766967816%_ - _%hd6767067820%_ - _%tl6767167823%_ - _%e6767267826%_ - _%hd6767367830%_ - _%tl6767467833%_ - _%__splice8258982590%_ - _%target6767567836%_ - _%tl6767767839%_) - (if (gx#stx-pair? _%tl6767467833%_) - (let ((_%e6769367737%_ + (if (gx#stx-null? _%tl6804768209%_) + (_%__match8349083491%_ + _%e6803968186%_ + _%hd6804068190%_ + _%tl6804168193%_ + _%e6804268196%_ + _%hd6804368200%_ + _%tl6804468203%_ + _%__splice8346483465%_ + _%target6804568206%_ + _%tl6804768209%_) + (if (gx#stx-pair? _%tl6804468203%_) + (let ((_%e6806368107%_ (gx#syntax-e - _%tl6767467833%_))) - (let ((_%tl6769567744%_ + _%tl6804468203%_))) + (let ((_%tl6806568114%_ (let () (declare (not safe)) - (##cdr _%e6769367737%_))) - (_%hd6769467741%_ + (##cdr _%e6806368107%_))) + (_%hd6806468111%_ (let () (declare (not safe)) - (##car _%e6769367737%_)))) + (##car _%e6806368107%_)))) (if (gx#stx-pair/null? - _%tl6769567744%_) - (let ((_%__splice8259382594%_ + _%tl6806568114%_) + (let ((_%__splice8346883469%_ (gx#syntax-split-splice - _%tl6769567744%_ + _%tl6806568114%_ '0))) - (let ((_%tl6769867750%_ + (let ((_%tl6806868120%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8259382594%_ '1))) - (_%target6769667747%_ + (##vector-ref _%__splice8346883469%_ '1))) + (_%target6806668117%_ (let () (declare (not safe)) - (##vector-ref _%__splice8259382594%_ '0)))) - (if (gx#stx-null? _%tl6769867750%_) - (_%__match8264182642%_ - _%e6766967816%_ - _%hd6767067820%_ - _%tl6767167823%_ - _%e6767267826%_ - _%hd6767367830%_ - _%tl6767467833%_ - _%e6769367737%_ - _%hd6769467741%_ - _%tl6769567744%_ - _%__splice8259382594%_ - _%target6769667747%_ - _%tl6769867750%_) - (let () (declare (not safe)) (_%g6766567710%_))))) - (let () (declare (not safe)) (_%g6766567710%_))))) + (##vector-ref _%__splice8346883469%_ '0)))) + (if (gx#stx-null? _%tl6806868120%_) + (_%__match8351683517%_ + _%e6803968186%_ + _%hd6804068190%_ + _%tl6804168193%_ + _%e6804268196%_ + _%hd6804368200%_ + _%tl6804468203%_ + _%e6806368107%_ + _%hd6806468111%_ + _%tl6806568114%_ + _%__splice8346883469%_ + _%target6806668117%_ + _%tl6806868120%_) + (let () (declare (not safe)) (_%g6803568080%_))))) + (let () (declare (not safe)) (_%g6803568080%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6766567710%_)))))) - (if (gx#stx-pair? _%tl6767467833%_) - (let ((_%e6769367737%_ - (gx#syntax-e _%tl6767467833%_))) - (let ((_%tl6769567744%_ + (_%g6803568080%_)))))) + (if (gx#stx-pair? _%tl6804468203%_) + (let ((_%e6806368107%_ + (gx#syntax-e _%tl6804468203%_))) + (let ((_%tl6806568114%_ (let () (declare (not safe)) - (##cdr _%e6769367737%_))) - (_%hd6769467741%_ + (##cdr _%e6806368107%_))) + (_%hd6806468111%_ (let () (declare (not safe)) - (##car _%e6769367737%_)))) + (##car _%e6806368107%_)))) (if (gx#stx-pair/null? - _%tl6769567744%_) - (let ((_%__splice8259382594%_ + _%tl6806568114%_) + (let ((_%__splice8346883469%_ (gx#syntax-split-splice - _%tl6769567744%_ + _%tl6806568114%_ '0))) - (let ((_%tl6769867750%_ + (let ((_%tl6806868120%_ (let () (declare (not safe)) (##vector-ref - _%__splice8259382594%_ + _%__splice8346883469%_ '1))) - (_%target6769667747%_ + (_%target6806668117%_ (let () (declare (not safe)) (##vector-ref - _%__splice8259382594%_ + _%__splice8346883469%_ '0)))) (if (gx#stx-null? - _%tl6769867750%_) - (_%__match8264182642%_ - _%e6766967816%_ - _%hd6767067820%_ - _%tl6767167823%_ - _%e6767267826%_ - _%hd6767367830%_ - _%tl6767467833%_ - _%e6769367737%_ - _%hd6769467741%_ - _%tl6769567744%_ - _%__splice8259382594%_ - _%target6769667747%_ - _%tl6769867750%_) + _%tl6806868120%_) + (_%__match8351683517%_ + _%e6803968186%_ + _%hd6804068190%_ + _%tl6804168193%_ + _%e6804268196%_ + _%hd6804368200%_ + _%tl6804468203%_ + _%e6806368107%_ + _%hd6806468111%_ + _%tl6806568114%_ + _%__splice8346883469%_ + _%target6806668117%_ + _%tl6806868120%_) (let () (declare (not safe)) - (_%g6766567710%_))))) + (_%g6803568080%_))))) (let () (declare (not safe)) - (_%g6766567710%_))))) + (_%g6803568080%_))))) (let () (declare (not safe)) - (_%g6766567710%_)))))) - (let () (declare (not safe)) (_%g6766567710%_))))) - (let () (declare (not safe)) (_%g6766567710%_)))))))) + (_%g6803568080%_)))))) + (let () (declare (not safe)) (_%g6803568080%_))))) + (let () (declare (not safe)) (_%g6803568080%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmethod/c| - (lambda (_%stx67974%_) - (let* ((_%__stx8264482645%_ _%stx67974%_) - (_%g6797968104%_ - (lambda () - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%__stx8264482645%_)))) - (let ((_%__kont8264782648%_ - (lambda (_%L68673%_ - _%L68675%_ - _%L68676%_ - _%L68677%_ - _%L68678%_ - _%L68679%_ - _%L68680%_) - (let* ((_%g6871668724%_ - (lambda (_%g6871768720%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6871768720%_))) - (_%g6871568785%_ - (lambda (_%g6871768728%_) - ((lambda (_%L68731%_) - (let* ((_%g6874368751%_ - (lambda (_%g6874468747%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6874468747%_))) - (_%g6874268773%_ - (lambda (_%g6874468755%_) - ((lambda (_%L68758%_) - (cons (gx#datum->syntax - '#f - 'defmethod) - (cons (cons (gx#datum->syntax - '#f - '@method~) - (cons _%L68679%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L68678%_ '()))) - (cons _%L68758%_ _%L68673%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6874468755%_)))) - (_%g6874268773%_ - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'lambda/c) - (cons (cons _%L68731%_ _%L68676%_) - (cons (cons (gx#datum->syntax - '#f - 'using) - (cons (cons _%L68677%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L68731%_ - (cons (gx#datum->syntax '#f '::-) - (cons _%L68678%_ '())))) - (cons (cons (gx#datum->syntax '#f 'with-receiver) - (cons _%L68677%_ - (cons (cons (gx#datum->syntax - '#f - 'let) - (cons '() - (foldr (lambda (_%g6877668779%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6877768782%_) - (cons _%g6877668779%_ _%g6877768782%_)) - '() - _%L68675%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx67974%_))))) - _%g6871768728%_)))) - (_%g6871568785%_ (gx#genident _%L68677%_))))) - (_%__kont8265182652%_ - (lambda (_%L68352%_ - _%L68354%_ - _%L68355%_ - _%L68356%_ - _%L68357%_ - _%L68358%_ - _%L68359%_) - (let* ((_%g6839968416%_ - (lambda (_%g6840068412%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6840068412%_))) - (_%g6839868534%_ - (lambda (_%g6840068420%_) - (if (gx#stx-pair/null? _%g6840068420%_) - (let ((_g84154_ - (gx#syntax-split-splice - _%g6840068420%_ - '0))) - (begin - (let ((_g84155_ - (let () - (declare (not safe)) - (if (##values? _g84154_) - (##vector-length _g84154_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g84155_ 2))) - (error "Context expects 2 values" - _g84155_))) - (let ((_%target6840268423%_ + (lambda (_%stx68344%_) + (letrec ((_%make-method-name68347%_ + (lambda (_%method69521%_ _%rest69523%_) + (let _%loop69525%_ ((_%rest69528%_ _%rest69523%_)) + (let* ((_%__stx8351983520%_ _%rest69528%_) + (_%g6953369556%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx8351983520%_)))) + (let ((_%__kont8352283523%_ + (lambda (_%L69644%_) + (let ((_%info69658%_ + (let () + (declare (not safe)) + (|gerbil/core/contract~TypeReference[1]#resolve-type| + _%stx68344%_ + _%L69644%_)))) + (if (let () + (declare (not safe)) + (class-instance? + gerbil/core/contract~InterfaceInfo#interface-info::t + _%info69658%_)) + (if (find (lambda (_%ms69661%_) + (eq? (gx#stx-e + _%method69521%_) + (car _%ms69661%_))) + (let ((__obj84861 + _%info69658%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj84861 + 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj84861 + '4 + '#f + '#f)) + (unchecked-slot-ref + __obj84861 + 'interface-methods)))) + (gx#stx-identifier + _%method69521%_ + (let ((__obj84862 _%info69658%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj84862 + 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj84862 + '2 + '#f + '#f)) + (unchecked-slot-ref + __obj84862 + 'namespace))) + '"::" + _%method69521%_) + (gx#raise-syntax-error + '#f + '"unknown interface method" + _%stx68344%_ + _%L69644%_ + _%method69521%_)) + (gx#raise-syntax-error + '#f + '"not an interface type" + _%stx68344%_ + _%L69644%_))))) + (_%__kont8352483525%_ + (lambda (_%L69594%_ _%L69596%_) + (_%loop69525%_ _%L69594%_))) + (_%__kont8352683527%_ + (lambda () _%method69521%_))) + (let* ((_%g6953269567%_ + (lambda () + (if (gx#stx-null? _%__stx8351983520%_) + (_%__kont8352683527%_) + (let () + (declare (not safe)) + (_%g6953369556%_))))) + (_%__match8355883559%_ + (lambda (_%e6954569574%_ + _%hd6954669578%_ + _%tl6954769581%_ + _%e6954869584%_ + _%hd6954969588%_ + _%tl6955069591%_) + (let ((_%L69594%_ _%tl6955069591%_) + (_%L69596%_ _%hd6954669578%_)) + (if (gx#stx-keyword? _%L69596%_) + (_%__kont8352483525%_ + _%L69594%_ + _%L69596%_) + (let () + (declare (not safe)) + (_%g6953369556%_))))))) + (if (gx#stx-pair? _%__stx8351983520%_) + (let ((_%e6953669620%_ + (gx#syntax-e _%__stx8351983520%_))) + (let ((_%tl6953869627%_ + (let () + (declare (not safe)) + (##cdr _%e6953669620%_))) + (_%hd6953769624%_ + (let () + (declare (not safe)) + (##car _%e6953669620%_)))) + (if (gx#stx-datum? _%hd6953769624%_) + (let ((_%e6953969630%_ + (gx#stx-e _%hd6953769624%_))) + (if (equal? _%e6953969630%_ + 'interface:) + (if (gx#stx-pair? + _%tl6953869627%_) + (let ((_%e6954069634%_ + (gx#syntax-e + _%tl6953869627%_))) + (let ((_%tl6954269641%_ + (let () + (declare + (not safe)) + (##cdr _%e6954069634%_))) + (_%hd6954169638%_ + (let () + (declare + (not safe)) + (##car _%e6954069634%_)))) + (_%__kont8352283523%_ + _%hd6954169638%_))) + (let () + (declare (not safe)) + (_%g6953369556%_))) + (if (gx#stx-pair? + _%tl6953869627%_) + (let ((_%e6954869584%_ + (gx#syntax-e + _%tl6953869627%_))) + (let ((_%tl6955069591%_ + (let () + (declare + (not safe)) + (##cdr _%e6954869584%_))) + (_%hd6954969588%_ + (let () + (declare + (not safe)) + (##car _%e6954869584%_)))) + (_%__match8355883559%_ + _%e6953669620%_ + _%hd6953769624%_ + _%tl6953869627%_ + _%e6954869584%_ + _%hd6954969588%_ + _%tl6955069591%_))) + (let () + (declare (not safe)) + (_%g6953369556%_))))) + (if (gx#stx-pair? _%tl6953869627%_) + (let ((_%e6954869584%_ + (gx#syntax-e + _%tl6953869627%_))) + (let ((_%tl6955069591%_ + (let () + (declare (not safe)) + (##cdr _%e6954869584%_))) + (_%hd6954969588%_ + (let () + (declare (not safe)) + (##car _%e6954869584%_)))) + (_%__match8355883559%_ + _%e6953669620%_ + _%hd6953769624%_ + _%tl6953869627%_ + _%e6954869584%_ + _%hd6954969588%_ + _%tl6955069591%_))) (let () (declare (not safe)) - (##vector-ref _g84154_ 0))) - (_%tl6840468426%_ + (_%g6953369556%_)))))) + (let () + (declare (not safe)) + (_%g6953269567%_))))))))) + (_%defmethod-rest68349%_ + (lambda (_%rest69378%_) + (let _%recur69381%_ ((_%rest69384%_ _%rest69378%_)) + (let* ((_%__stx8356383564%_ _%rest69384%_) + (_%g6938969413%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx8356383564%_)))) + (let ((_%__kont8356683567%_ + (lambda (_%L69503%_) + (_%recur69381%_ _%L69503%_))) + (_%__kont8356883569%_ + (lambda (_%L69451%_ _%L69453%_ _%L69454%_) + (cons _%L69454%_ + (cons _%L69453%_ + (_%recur69381%_ _%L69451%_))))) + (_%__kont8357083571%_ (lambda () '()))) + (let* ((_%g6938869424%_ + (lambda () + (if (gx#stx-null? _%__stx8356383564%_) + (_%__kont8357083571%_) + (let () + (declare (not safe)) + (_%g6938969413%_))))) + (_%__match8360283603%_ + (lambda (_%e6940269431%_ + _%hd6940369435%_ + _%tl6940469438%_ + _%e6940569441%_ + _%hd6940669445%_ + _%tl6940769448%_) + (let ((_%L69451%_ _%tl6940769448%_) + (_%L69453%_ _%hd6940669445%_) + (_%L69454%_ _%hd6940369435%_)) + (if (gx#stx-keyword? _%L69454%_) + (_%__kont8356883569%_ + _%L69451%_ + _%L69453%_ + _%L69454%_) + (let () + (declare (not safe)) + (_%g6938969413%_))))))) + (if (gx#stx-pair? _%__stx8356383564%_) + (let ((_%e6939269479%_ + (gx#syntax-e _%__stx8356383564%_))) + (let ((_%tl6939469486%_ + (let () + (declare (not safe)) + (##cdr _%e6939269479%_))) + (_%hd6939369483%_ + (let () + (declare (not safe)) + (##car _%e6939269479%_)))) + (if (gx#stx-datum? _%hd6939369483%_) + (let ((_%e6939569489%_ + (gx#stx-e _%hd6939369483%_))) + (if (equal? _%e6939569489%_ + 'interface:) + (if (gx#stx-pair? + _%tl6939469486%_) + (let ((_%e6939669493%_ + (gx#syntax-e + _%tl6939469486%_))) + (let ((_%tl6939869500%_ + (let () + (declare + (not safe)) + (##cdr _%e6939669493%_))) + (_%hd6939769497%_ + (let () + (declare + (not safe)) + (##car _%e6939669493%_)))) + (_%__kont8356683567%_ + _%tl6939869500%_))) + (let () + (declare (not safe)) + (_%g6938969413%_))) + (if (gx#stx-pair? + _%tl6939469486%_) + (let ((_%e6940569441%_ + (gx#syntax-e + _%tl6939469486%_))) + (let ((_%tl6940769448%_ + (let () + (declare + (not safe)) + (##cdr _%e6940569441%_))) + (_%hd6940669445%_ + (let () + (declare + (not safe)) + (##car _%e6940569441%_)))) + (_%__match8360283603%_ + _%e6939269479%_ + _%hd6939369483%_ + _%tl6939469486%_ + _%e6940569441%_ + _%hd6940669445%_ + _%tl6940769448%_))) + (let () + (declare (not safe)) + (_%g6938969413%_))))) + (if (gx#stx-pair? _%tl6939469486%_) + (let ((_%e6940569441%_ + (gx#syntax-e + _%tl6939469486%_))) + (let ((_%tl6940769448%_ + (let () + (declare (not safe)) + (##cdr _%e6940569441%_))) + (_%hd6940669445%_ + (let () + (declare (not safe)) + (##car _%e6940569441%_)))) + (_%__match8360283603%_ + _%e6939269479%_ + _%hd6939369483%_ + _%tl6939469486%_ + _%e6940569441%_ + _%hd6940669445%_ + _%tl6940769448%_))) (let () (declare (not safe)) - (##vector-ref _g84154_ 1)))) - (if (gx#stx-null? _%tl6840468426%_) - (letrec ((_%loop6840568429%_ - (lambda (_%hd6840368433%_ - _%receiver6840968436%_) - (if (gx#stx-pair? - _%hd6840368433%_) - (let ((_%e6840668439%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6840368433%_))) - (let ((_%lp-hd6840768443%_ - (let () - (declare (not safe)) - (##car _%e6840668439%_))) - (_%lp-tl6840868446%_ - (let () - (declare (not safe)) - (##cdr _%e6840668439%_)))) - (_%loop6840568429%_ - _%lp-tl6840868446%_ - (cons _%lp-hd6840768443%_ _%receiver6840968436%_)))) - (let ((_%receiver6841068449%_ - (reverse _%receiver6840968436%_))) - ((lambda (_%L68453%_) - (let* ((_%g6846968477%_ - (lambda (_%g6847068473%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g6847068473%_))) - (_%g6846868499%_ - (lambda (_%g6847068481%_) - ((lambda (_%L68484%_) - (cons (gx#datum->syntax '#f 'defmethod) - (cons (cons (gx#datum->syntax - '#f - '@method~) - (cons _%L68358%_ - (cons _%L68357%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L68484%_ - _%L68352%_)))) - _%g6847068481%_)))) - (_%g6846868499%_ - (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'case-lambda/c) - (begin - (gx#syntax-check-splice-targets - _%L68354%_ - _%L68356%_ - _%L68453%_ - _%L68356%_ - _%L68355%_ - _%L68453%_) - (foldr (lambda (_%g6850268512%_ - _%g6850368515%_ - _%g6850468517%_ - _%g6850568519%_ - _%g6850668521%_ - _%g6850768523%_ - _%g6850868525%_) - (cons (cons (cons _%g6850468517%_ - _%g6850668521%_) - (cons (cons (gx#datum->syntax + (_%g6938969413%_)))))) + (let () + (declare (not safe)) + (_%g6938869424%_)))))))))) + (let* ((_%__stx8360783608%_ _%stx68344%_) + (_%g6835368482%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx8360783608%_)))) + (let ((_%__kont8361083611%_ + (lambda (_%L69194%_ + _%L69196%_ + _%L69197%_ + _%L69198%_ + _%L69199%_ + _%L69200%_ + _%L69201%_) + (let* ((_%g6923769245%_ + (lambda (_%g6923869241%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6923869241%_))) + (_%g6923669370%_ + (lambda (_%g6923869249%_) + ((lambda (_%L69252%_) + (let* ((_%g6926469272%_ + (lambda (_%g6926569268%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6926569268%_))) + (_%g6926369358%_ + (lambda (_%g6926569276%_) + ((lambda (_%L69279%_) + (let* ((_%g6929269300%_ + (lambda (_%g6929369296%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6929369296%_))) + (_%g6929169354%_ + (lambda (_%g6929369304%_) + ((lambda (_%L69307%_) + (let* ((_%g6932069328%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'using) - (cons (cons _%g6850368515%_ - (cons _%g6850468517%_ - (cons (gx#datum->syntax - '#f - '::-) - (cons _%L68357%_ '())))) - (cons (cons (gx#datum->syntax - '#f - 'with-receiver) - (cons _%g6850368515%_ - (cons (cons (gx#datum->syntax + (lambda (_%g6932169324%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6932169324%_))) + (_%g6931969350%_ + (lambda (_%g6932169332%_) + ((lambda (_%L69335%_) + (cons (gx#datum->syntax '#f 'defmethod) + (cons (cons (gx#datum->syntax + '#f + '@method~) + (cons _%L69307%_ + (cons _%L69199%_ + '()))) + (cons _%L69279%_ _%L69335%_)))) + _%g6932169332%_)))) + (_%g6931969350%_ (_%defmethod-rest68349%_ _%L69194%_)))) + _%g6929369304%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6929169354%_ + (_%make-method-name68347%_ + _%L69200%_ + _%L69194%_)))) + _%g6926569276%_)))) + (_%g6926369358%_ + (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'lambda/c) + (cons (cons _%L69252%_ _%L69197%_) + (cons (cons (gx#datum->syntax + '#f + 'using) + (cons (cons _%L69198%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L69252%_ + (cons (gx#datum->syntax '#f '::-) + (cons _%L69199%_ '())))) + (cons (cons (gx#datum->syntax '#f 'with-receiver) + (cons _%L69198%_ + (cons (cons (gx#datum->syntax + '#f + 'let) + (cons '() + (foldr (lambda (_%g6936169364%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'let) - (cons '() - (foldr (lambda (_%g6850968528%_ _%g6851068531%_) - (cons _%g6850968528%_ _%g6851068531%_)) - '() - _%g6850268512%_))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())) + _%g6936269367%_) + (cons _%g6936169364%_ _%g6936269367%_)) + '() + _%L69196%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6850868525%_)) - '() - _%L68354%_ - _%L68356%_ - _%L68453%_ - _%L68356%_ - _%L68355%_ - _%L68453%_))) - (gx#stx-source _%stx67974%_))))) - _%receiver6841068449%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6840568429%_ - _%target6840268423%_ - '())) - (_%g6839968416%_ - _%g6840068420%_))))) - (_%g6839968416%_ _%g6840068420%_))))) - (_%g6839868534%_ - (map gx#genident - (foldr (lambda (_%g6853768540%_ _%g6853868543%_) - (cons _%g6853768540%_ _%g6853868543%_)) - '() - _%L68356%_)))))) - (_%__kont8265582656%_ - (lambda (_%L68161%_ _%L68163%_ _%L68164%_ _%L68165%_) - (cons (gx#datum->syntax '#f 'defmethod) - (cons (cons (gx#datum->syntax '#f '@method~) - (cons _%L68164%_ (cons _%L68163%_ '()))) - _%L68161%_))))) - (let* ((_%g6797868187%_ - (lambda () - (let ((_%e6808468111%_ - (gx#syntax-e _%__stx8264482645%_))) - (let ((_%tl6808668118%_ - (let () - (declare (not safe)) - (##cdr _%e6808468111%_))) - (_%hd6808568115%_ - (let () - (declare (not safe)) - (##car _%e6808468111%_)))) - (if (gx#stx-pair? _%tl6808668118%_) - (let ((_%e6808768121%_ - (gx#syntax-e _%tl6808668118%_))) - (let ((_%tl6808968128%_ - (let () - (declare (not safe)) - (##cdr _%e6808768121%_))) - (_%hd6808868125%_ - (let () - (declare (not safe)) - (##car _%e6808768121%_)))) - (if (gx#stx-pair? _%hd6808868125%_) - (let ((_%e6809068131%_ - (gx#syntax-e _%hd6808868125%_))) - (let ((_%tl6809268138%_ - (let () - (declare (not safe)) - (##cdr _%e6809068131%_))) - (_%hd6809168135%_ - (let () - (declare (not safe)) - (##car _%e6809068131%_)))) - (if (gx#stx-pair? _%tl6809268138%_) - (let ((_%e6809368141%_ - (gx#syntax-e - _%tl6809268138%_))) - (let ((_%tl6809568148%_ - (let () - (declare (not safe)) - (##cdr _%e6809368141%_))) - (_%hd6809468145%_ - (let () - (declare (not safe)) - (##car _%e6809368141%_)))) - (if (gx#stx-pair? - _%tl6809568148%_) - (let ((_%e6809668151%_ - (gx#syntax-e - _%tl6809568148%_))) - (let ((_%tl6809868158%_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _%e6809668151%_))) - (_%hd6809768155%_ - (let () (declare (not safe)) (##car _%e6809668151%_)))) - (if (gx#stx-null? _%tl6809868158%_) - (_%__kont8265582656%_ - _%tl6808968128%_ - _%hd6809768155%_ - _%hd6809468145%_ - _%hd6809168135%_) - (let () (declare (not safe)) (_%g6797968104%_))))) - (let () (declare (not safe)) (_%g6797968104%_))))) + '()))) + '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#stx-source _%stx68344%_))))) + _%g6923869249%_)))) + (_%g6923669370%_ (gx#genident _%L69198%_))))) + (_%__kont8361483615%_ + (lambda (_%L68809%_ + _%L68811%_ + _%L68812%_ + _%L68813%_ + _%L68814%_ + _%L68815%_ + _%L68816%_) + (let* ((_%g6885668873%_ + (lambda (_%g6885768869%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6885768869%_))) + (_%g6885569055%_ + (lambda (_%g6885768877%_) + (if (gx#stx-pair/null? _%g6885768877%_) + (let ((_g85146_ + (gx#syntax-split-splice + _%g6885768877%_ + '0))) + (begin + (let ((_g85147_ (let () (declare (not safe)) - (_%g6797968104%_))))) - (let () - (declare (not safe)) - (_%g6797968104%_))))) + (if (##values? _g85146_) + (##values-length _g85146_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g85147_ 2))) + (error "Context expects 2 values" + _g85147_))) + (let ((_%target6885968880%_ + (let () + (declare (not safe)) + (##values-ref _g85146_ 0))) + (_%tl6886168883%_ + (let () + (declare (not safe)) + (##values-ref _g85146_ 1)))) + (if (gx#stx-null? _%tl6886168883%_) + (letrec ((_%loop6886268886%_ + (lambda (_%hd6886068890%_ + _%receiver6886668893%_) + (if (gx#stx-pair? + _%hd6886068890%_) + (let ((_%e6886368896%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%hd6886068890%_))) + (let ((_%lp-hd6886468900%_ (let () (declare (not safe)) - (_%g6797968104%_))))))) - (_%__match8278182782%_ - (lambda (_%e6803168194%_ - _%hd6803268198%_ - _%tl6803368201%_ - _%e6803468204%_ - _%hd6803568208%_ - _%tl6803668211%_ - _%e6803768214%_ - _%hd6803868218%_ - _%tl6803968221%_ - _%e6804068224%_ - _%hd6804168228%_ - _%tl6804268231%_ - _%e6804368234%_ - _%hd6804468238%_ - _%tl6804568241%_ - _%e6804668244%_ - _%hd6804768248%_ - _%tl6804868251%_ - _%e6804968254%_ - _%hd6805068258%_ - _%tl6805168261%_ - _%__splice8265382654%_ - _%target6805268264%_ - _%tl6805468267%_) - (letrec ((_%loop6805568270%_ - (lambda (_%hd6805368274%_ - _%body6805968277%_ - _%args6806068279%_ - _%self6806168281%_) - (if (gx#stx-pair? _%hd6805368274%_) - (let ((_%e6805668284%_ - (gx#syntax-e _%hd6805368274%_))) - (let ((_%lp-tl6805868291%_ - (let () - (declare (not safe)) - (##cdr _%e6805668284%_))) - (_%lp-hd6805768288%_ - (let () - (declare (not safe)) - (##car _%e6805668284%_)))) - (if (gx#stx-pair? - _%lp-hd6805768288%_) - (let ((_%e6806568294%_ - (gx#syntax-e - _%lp-hd6805768288%_))) - (let ((_%tl6806768301%_ - (let () - (declare (not safe)) - (##cdr _%e6806568294%_))) - (_%hd6806668298%_ - (let () - (declare (not safe)) - (##car _%e6806568294%_)))) - (if (gx#stx-pair? - _%hd6806668298%_) - (let ((_%e6806868304%_ - (gx#syntax-e - _%hd6806668298%_))) - (let ((_%tl6807068311%_ - (let () + (##car _%e6886368896%_))) + (_%lp-tl6886568903%_ + (let () + (declare (not safe)) + (##cdr _%e6886368896%_)))) + (_%loop6886268886%_ + _%lp-tl6886568903%_ + (cons _%lp-hd6886468900%_ _%receiver6886668893%_)))) + (let ((_%receiver6886768906%_ + (reverse _%receiver6886668893%_))) + ((lambda (_%L68910%_) + (let* ((_%g6892668934%_ + (lambda (_%g6892768930%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6892768930%_))) + (_%g6892569020%_ + (lambda (_%g6892768938%_) + ((lambda (_%L68941%_) + (let* ((_%g6895468962%_ + (lambda (_%g6895568958%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6895568958%_))) + (_%g6895369016%_ + (lambda (_%g6895568966%_) + ((lambda (_%L68969%_) + (let* ((_%g6898268990%_ + (lambda (_%g6898368986%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6898368986%_))) + (_%g6898169012%_ + (lambda (_%g6898368994%_) + ((lambda (_%L68997%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (gx#datum->syntax '#f 'defmethod) + (cons (cons (gx#datum->syntax '#f '@method~) + (cons _%L68969%_ + (cons _%L68814%_ '()))) + (cons _%L68941%_ _%L68997%_)))) + _%g6898368994%_)))) + (_%g6898169012%_ (_%defmethod-rest68349%_ _%L68809%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g6895568966%_)))) + (_%g6895369016%_ + (_%make-method-name68347%_ + _%L68815%_ + _%L68809%_)))) + _%g6892768938%_)))) + (_%g6892569020%_ + (gx#stx-wrap-source + (cons (gx#datum->syntax '#f 'case-lambda/c) + (begin + (gx#syntax-check-splice-targets + _%L68811%_ + _%L68813%_ + _%L68910%_ + _%L68813%_ + _%L68812%_ + _%L68910%_) + (foldr (lambda (_%g6902369033%_ + _%g6902469036%_ + _%g6902569038%_ + _%g6902669040%_ + _%g6902769042%_ + _%g6902869044%_ + _%g6902969046%_) + (cons (cons (cons _%g6902569038%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6902769042%_) + (cons (cons (gx#datum->syntax '#f 'using) + (cons (cons _%g6902469036%_ + (cons _%g6902569038%_ + (cons (gx#datum->syntax + '#f + '::-) + (cons _%L68814%_ '())))) + (cons (cons (gx#datum->syntax + '#f + 'with-receiver) + (cons _%g6902469036%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _%e6806868304%_))) - (_%hd6806968308%_ - (let () (declare (not safe)) (##car _%e6806868304%_)))) - (if (gx#stx-pair/null? _%tl6806768301%_) - (let ((_g84156_ - (gx#syntax-split-splice _%tl6806768301%_ '0))) - (begin - (let ((_g84157_ - (let () - (declare (not safe)) - (if (##values? _g84156_) - (##vector-length _g84156_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g84157_ 2))) - (error "Context expects 2 values" _g84157_))) - (let ((_%target6807168314%_ + '#f + 'let) + (cons '() + (foldr (lambda (_%g6903069049%_ + _%g6903169052%_) + (cons _%g6903069049%_ + _%g6903169052%_)) + '() + _%g6902369033%_))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g6902969046%_)) + '() + _%L68811%_ + _%L68813%_ + _%L68910%_ + _%L68813%_ + _%L68812%_ + _%L68910%_))) + (gx#stx-source _%stx68344%_))))) + _%receiver6886768906%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6886268886%_ + _%target6885968880%_ + '())) + (_%g6885668873%_ + _%g6885768877%_))))) + (_%g6885668873%_ _%g6885768877%_))))) + (_%g6885569055%_ + (map gx#genident + (foldr (lambda (_%g6905869061%_ _%g6905969064%_) + (cons _%g6905869061%_ _%g6905969064%_)) + '() + _%L68813%_)))))) + (_%__kont8361883619%_ + (lambda (_%L68549%_ + _%L68551%_ + _%L68552%_ + _%L68553%_ + _%L68554%_) + (let* ((_%g6858068595%_ + (lambda (_%g6858168591%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g6858168591%_))) + (_%g6857968640%_ + (lambda (_%g6858168599%_) + (if (gx#stx-pair? _%g6858168599%_) + (let ((_%e6858468602%_ + (gx#syntax-e _%g6858168599%_))) + (let ((_%hd6858568606%_ + (let () + (declare (not safe)) + (##car _%e6858468602%_))) + (_%tl6858668609%_ + (let () + (declare (not safe)) + (##cdr _%e6858468602%_)))) + (if (gx#stx-pair? _%tl6858668609%_) + (let ((_%e6858768612%_ + (gx#syntax-e + _%tl6858668609%_))) + (let ((_%hd6858868616%_ + (let () + (declare (not safe)) + (##car _%e6858768612%_))) + (_%tl6858968619%_ + (let () + (declare (not safe)) + (##cdr _%e6858768612%_)))) + (if (gx#stx-null? + _%tl6858968619%_) + ((lambda (_%L68622%_ + _%L68624%_) + (cons (gx#datum->syntax + '#f + 'defmethod) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '@method~) + (cons _%L68624%_ (cons _%L68552%_ '()))) + (cons _%L68551%_ _%L68622%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd6858868616%_ + _%hd6858568606%_) + (_%g6858068595%_ + _%g6858168599%_)))) + (_%g6858068595%_ _%g6858168599%_)))) + (_%g6858068595%_ _%g6858168599%_))))) + (_%g6857968640%_ + (list (_%make-method-name68347%_ _%L68553%_ _%L68549%_) + (_%defmethod-rest68349%_ _%L68549%_))))))) + (let* ((_%g6835268644%_ + (lambda () + (let ((_%e6845968489%_ + (gx#syntax-e _%__stx8360783608%_))) + (let ((_%tl6846168496%_ (let () (declare (not safe)) - (##vector-ref _g84156_ 0))) - (_%tl6807368317%_ + (##cdr _%e6845968489%_))) + (_%hd6846068493%_ (let () (declare (not safe)) - (##vector-ref _g84156_ 1)))) - (if (gx#stx-null? _%tl6807368317%_) - (letrec ((_%loop6807468320%_ - (lambda (_%hd6807268324%_ - _%body6807868327%_) - (if (gx#stx-pair? _%hd6807268324%_) - (let ((_%e6807568330%_ + (##car _%e6845968489%_)))) + (if (gx#stx-pair? _%tl6846168496%_) + (let ((_%e6846268499%_ + (gx#syntax-e _%tl6846168496%_))) + (let ((_%tl6846468506%_ + (let () + (declare (not safe)) + (##cdr _%e6846268499%_))) + (_%hd6846368503%_ + (let () + (declare (not safe)) + (##car _%e6846268499%_)))) + (if (gx#stx-pair? _%hd6846368503%_) + (let ((_%e6846568509%_ + (gx#syntax-e _%hd6846368503%_))) + (let ((_%tl6846768516%_ + (let () + (declare (not safe)) + (##cdr _%e6846568509%_))) + (_%hd6846668513%_ + (let () + (declare (not safe)) + (##car _%e6846568509%_)))) + (if (gx#stx-pair? _%tl6846768516%_) + (let ((_%e6846868519%_ (gx#syntax-e - _%hd6807268324%_))) - (let ((_%lp-hd6807668334%_ + _%tl6846768516%_))) + (let ((_%tl6847068526%_ (let () (declare (not safe)) - (##car _%e6807568330%_))) - (_%lp-tl6807768337%_ + (##cdr _%e6846868519%_))) + (_%hd6846968523%_ (let () (declare (not safe)) - (##cdr _%e6807568330%_)))) - (_%loop6807468320%_ - _%lp-tl6807768337%_ - (cons _%lp-hd6807668334%_ - _%body6807868327%_)))) - (let ((_%body6807968340%_ - (reverse _%body6807868327%_))) - (_%loop6805568270%_ - _%lp-tl6805868291%_ - (cons _%body6807968340%_ - _%body6805968277%_) - (cons _%tl6807068311%_ - _%args6806068279%_) - (cons _%hd6806968308%_ - _%self6806168281%_))))))) - (_%loop6807468320%_ - _%target6807168314%_ - '())) + (##car _%e6846868519%_)))) + (if (gx#stx-pair? + _%tl6847068526%_) + (let ((_%e6847168529%_ + (gx#syntax-e + _%tl6847068526%_))) + (let ((_%tl6847368536%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##cdr _%e6847168529%_))) + (_%hd6847268533%_ + (let () + (declare (not safe)) + (##car _%e6847168529%_)))) + (if (gx#stx-null? _%tl6847368536%_) + (if (gx#stx-pair? _%tl6846468506%_) + (let ((_%e6847468539%_ + (gx#syntax-e _%tl6846468506%_))) + (let ((_%tl6847668546%_ + (let () + (declare (not safe)) + (##cdr _%e6847468539%_))) + (_%hd6847568543%_ + (let () + (declare (not safe)) + (##car _%e6847468539%_)))) + (_%__kont8361883619%_ + _%tl6847668546%_ + _%hd6847568543%_ + _%hd6847268533%_ + _%hd6846968523%_ + _%hd6846668513%_))) + (let () (declare (not safe)) (_%g6835368482%_))) + (let () (declare (not safe)) (_%g6835368482%_))))) + (let () (declare (not safe)) (_%g6835368482%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_%g6835368482%_))))) + (let () + (declare (not safe)) + (_%g6835368482%_))))) (let () (declare (not safe)) - (_%g6797868187%_)))))) - (_%__kont8265582656%_ - _%tl6803668211%_ - _%hd6804468238%_ - _%hd6804168228%_ - _%hd6803868218%_)))) - (_%__kont8265582656%_ - _%tl6803668211%_ - _%hd6804468238%_ - _%hd6804168228%_ - _%hd6803868218%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8265582656%_ - _%tl6803668211%_ - _%hd6804468238%_ - _%hd6804168228%_ - _%hd6803868218%_)))) - (let ((_%self6806468349%_ - (reverse _%self6806168281%_)) - (_%args6806368347%_ - (reverse _%args6806068279%_)) - (_%body6806268344%_ - (reverse _%body6805968277%_))) - (let ((_%L68352%_ _%tl6804868251%_) - (_%L68354%_ _%body6806268344%_) - (_%L68355%_ _%args6806368347%_) - (_%L68356%_ _%self6806468349%_) - (_%L68357%_ _%hd6804468238%_) - (_%L68358%_ _%hd6804168228%_) - (_%L68359%_ _%hd6803868218%_)) - (if (and (gx#identifier-list? - (foldr (lambda (_%g6839068393%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6839168396%_) - (cons _%g6839068393%_ _%g6839168396%_)) - '() - _%L68356%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#identifier? _%L68358%_)) - (_%__kont8265182652%_ - _%L68352%_ - _%L68354%_ - _%L68355%_ - _%L68356%_ - _%L68357%_ - _%L68358%_ - _%L68359%_) - (_%__kont8265582656%_ - _%tl6803668211%_ - _%hd6804468238%_ - _%hd6804168228%_ - _%hd6803868218%_)))))))) - (_%loop6805568270%_ - _%target6805268264%_ - '() - '() - '())))) - (_%__match8272582726%_ - (lambda (_%e6798868553%_ - _%hd6798968557%_ - _%tl6799068560%_ - _%e6799168563%_ - _%hd6799268567%_ - _%tl6799368570%_ - _%e6799468573%_ - _%hd6799568577%_ - _%tl6799668580%_ - _%e6799768583%_ - _%hd6799868587%_ - _%tl6799968590%_ - _%e6800068593%_ - _%hd6800168597%_ - _%tl6800268600%_ - _%e6800368603%_ - _%hd6800468607%_ - _%tl6800568610%_ - _%e6800668613%_ - _%hd6800768617%_ - _%tl6800868620%_ - _%e6800968623%_ - _%hd6801068627%_ - _%tl6801168630%_ - _%e6801268633%_ - _%hd6801368637%_ - _%tl6801468640%_ - _%__splice8264982650%_ - _%target6801568643%_ - _%tl6801768646%_) - (letrec ((_%loop6801868649%_ - (lambda (_%hd6801668653%_ _%body6802268656%_) - (if (gx#stx-pair? _%hd6801668653%_) - (let ((_%e6801968659%_ - (gx#syntax-e _%hd6801668653%_))) - (let ((_%lp-tl6802168666%_ - (let () - (declare (not safe)) - (##cdr _%e6801968659%_))) - (_%lp-hd6802068663%_ - (let () - (declare (not safe)) - (##car _%e6801968659%_)))) - (_%loop6801868649%_ - _%lp-tl6802168666%_ - (cons _%lp-hd6802068663%_ - _%body6802268656%_)))) - (let ((_%body6802368669%_ - (reverse _%body6802268656%_))) - (let ((_%L68673%_ _%tl6800568610%_) - (_%L68675%_ _%body6802368669%_) - (_%L68676%_ _%tl6801468640%_) - (_%L68677%_ _%hd6801368637%_) - (_%L68678%_ _%hd6800168597%_) - (_%L68679%_ _%hd6799868587%_) - (_%L68680%_ _%hd6799568577%_)) - (if (and (gx#identifier? _%L68677%_) - (gx#identifier? _%L68679%_)) - (_%__kont8264782648%_ - _%L68673%_ - _%L68675%_ - _%L68676%_ - _%L68677%_ - _%L68678%_ - _%L68679%_ - _%L68680%_) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)))))))) - (_%loop6801868649%_ _%target6801568643%_ '()))))) - (if (gx#stx-pair? _%__stx8264482645%_) - (let ((_%e6798868553%_ (gx#syntax-e _%__stx8264482645%_))) - (let ((_%tl6799068560%_ - (let () - (declare (not safe)) - (##cdr _%e6798868553%_))) - (_%hd6798968557%_ - (let () - (declare (not safe)) - (##car _%e6798868553%_)))) - (if (gx#stx-pair? _%tl6799068560%_) - (let ((_%e6799168563%_ - (gx#syntax-e _%tl6799068560%_))) - (let ((_%tl6799368570%_ + (_%g6835368482%_))))))) + (_%__match8374483745%_ + (lambda (_%e6840568651%_ + _%hd6840668655%_ + _%tl6840768658%_ + _%e6840868661%_ + _%hd6840968665%_ + _%tl6841068668%_ + _%e6841168671%_ + _%hd6841268675%_ + _%tl6841368678%_ + _%e6841468681%_ + _%hd6841568685%_ + _%tl6841668688%_ + _%e6841768691%_ + _%hd6841868695%_ + _%tl6841968698%_ + _%e6842068701%_ + _%hd6842168705%_ + _%tl6842268708%_ + _%e6842368711%_ + _%hd6842468715%_ + _%tl6842568718%_ + _%__splice8361683617%_ + _%target6842668721%_ + _%tl6842868724%_) + (letrec ((_%loop6842968727%_ + (lambda (_%hd6842768731%_ + _%body6843368734%_ + _%args6843468736%_ + _%self6843568738%_) + (if (gx#stx-pair? _%hd6842768731%_) + (let ((_%e6843068741%_ + (gx#syntax-e _%hd6842768731%_))) + (let ((_%lp-tl6843268748%_ + (let () + (declare (not safe)) + (##cdr _%e6843068741%_))) + (_%lp-hd6843168745%_ + (let () + (declare (not safe)) + (##car _%e6843068741%_)))) + (if (gx#stx-pair? + _%lp-hd6843168745%_) + (let ((_%e6843968751%_ + (gx#syntax-e + _%lp-hd6843168745%_))) + (let ((_%tl6844168758%_ + (let () + (declare (not safe)) + (##cdr _%e6843968751%_))) + (_%hd6844068755%_ + (let () + (declare (not safe)) + (##car _%e6843968751%_)))) + (if (gx#stx-pair? + _%hd6844068755%_) + (let ((_%e6844268761%_ + (gx#syntax-e + _%hd6844068755%_))) + (let ((_%tl6844468768%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##cdr _%e6844268761%_))) + (_%hd6844368765%_ + (let () + (declare (not safe)) + (##car _%e6844268761%_)))) + (if (gx#stx-pair/null? _%tl6844168758%_) + (let ((_g85148_ + (gx#syntax-split-splice _%tl6844168758%_ '0))) + (begin + (let ((_g85149_ (let () (declare (not safe)) - (##cdr _%e6799168563%_))) - (_%hd6799268567%_ + (if (##values? _g85148_) + (##values-length _g85148_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g85149_ 2))) + (error "Context expects 2 values" _g85149_))) + (let ((_%target6844568771%_ (let () (declare (not safe)) - (##car _%e6799168563%_)))) - (if (gx#stx-pair? _%hd6799268567%_) - (let ((_%e6799468573%_ - (gx#syntax-e _%hd6799268567%_))) - (let ((_%tl6799668580%_ - (let () - (declare (not safe)) - (##cdr _%e6799468573%_))) - (_%hd6799568577%_ - (let () - (declare (not safe)) - (##car _%e6799468573%_)))) - (if (gx#stx-pair? _%tl6799668580%_) - (let ((_%e6799768583%_ - (gx#syntax-e - _%tl6799668580%_))) - (let ((_%tl6799968590%_ - (let () - (declare (not safe)) - (##cdr _%e6799768583%_))) - (_%hd6799868587%_ - (let () - (declare (not safe)) - (##car _%e6799768583%_)))) + (##values-ref _g85148_ 0))) + (_%tl6844768774%_ + (let () + (declare (not safe)) + (##values-ref _g85148_ 1)))) + (if (gx#stx-null? _%tl6844768774%_) + (letrec ((_%loop6844868777%_ + (lambda (_%hd6844668781%_ + _%body6845268784%_) (if (gx#stx-pair? - _%tl6799968590%_) - (let ((_%e6800068593%_ + _%hd6844668781%_) + (let ((_%e6844968787%_ (gx#syntax-e - _%tl6799968590%_))) - (let ((_%tl6800268600%_ + _%hd6844668781%_))) + (let ((_%lp-hd6845068791%_ (let () (declare (not safe)) - (##cdr _%e6800068593%_))) - (_%hd6800168597%_ + (##car _%e6844968787%_))) + (_%lp-tl6845168794%_ (let () (declare (not safe)) - (##car _%e6800068593%_)))) - (if (gx#stx-null? - _%tl6800268600%_) - (if (gx#stx-pair? - _%tl6799368570%_) - (let ((_%e6800368603%_ + (##cdr _%e6844968787%_)))) + (_%loop6844868777%_ + _%lp-tl6845168794%_ + (cons _%lp-hd6845068791%_ + _%body6845268784%_)))) + (let ((_%body6845368797%_ + (reverse _%body6845268784%_))) + (_%loop6842968727%_ + _%lp-tl6843268748%_ + (cons _%body6845368797%_ + _%body6843368734%_) + (cons _%tl6844468768%_ + _%args6843468736%_) + (cons _%hd6844368765%_ + _%self6843568738%_))))))) + (_%loop6844868777%_ + _%target6844568771%_ + '())) + (let () + (declare (not safe)) + (_%g6835268644%_)))))) + (_%__kont8361883619%_ + _%tl6842268708%_ + _%hd6842168705%_ + _%hd6841868695%_ + _%hd6841568685%_ + _%hd6841268675%_)))) + (_%__kont8361883619%_ + _%tl6842268708%_ + _%hd6842168705%_ + _%hd6841868695%_ + _%hd6841568685%_ + _%hd6841268675%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8361883619%_ + _%tl6842268708%_ + _%hd6842168705%_ + _%hd6841868695%_ + _%hd6841568685%_ + _%hd6841268675%_)))) + (let ((_%self6843868806%_ + (reverse _%self6843568738%_)) + (_%args6843768804%_ + (reverse _%args6843468736%_)) + (_%body6843668801%_ + (reverse _%body6843368734%_))) + (let ((_%L68809%_ _%tl6842268708%_) + (_%L68811%_ _%body6843668801%_) + (_%L68812%_ _%args6843768804%_) + (_%L68813%_ _%self6843868806%_) + (_%L68814%_ _%hd6841868695%_) + (_%L68815%_ _%hd6841568685%_) + (_%L68816%_ _%hd6841268675%_)) + (if (and (gx#identifier-list? + (foldr (lambda (_%g6884768850%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6884868853%_) + (cons _%g6884768850%_ _%g6884868853%_)) + '() + _%L68813%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#identifier? + _%L68815%_)) + (_%__kont8361483615%_ + _%L68809%_ + _%L68811%_ + _%L68812%_ + _%L68813%_ + _%L68814%_ + _%L68815%_ + _%L68816%_) + (_%__kont8361883619%_ + _%tl6842268708%_ + _%hd6842168705%_ + _%hd6841868695%_ + _%hd6841568685%_ + _%hd6841268675%_)))))))) + (_%loop6842968727%_ + _%target6842668721%_ + '() + '() + '())))) + (_%__match8368883689%_ + (lambda (_%e6836269074%_ + _%hd6836369078%_ + _%tl6836469081%_ + _%e6836569084%_ + _%hd6836669088%_ + _%tl6836769091%_ + _%e6836869094%_ + _%hd6836969098%_ + _%tl6837069101%_ + _%e6837169104%_ + _%hd6837269108%_ + _%tl6837369111%_ + _%e6837469114%_ + _%hd6837569118%_ + _%tl6837669121%_ + _%e6837769124%_ + _%hd6837869128%_ + _%tl6837969131%_ + _%e6838069134%_ + _%hd6838169138%_ + _%tl6838269141%_ + _%e6838369144%_ + _%hd6838469148%_ + _%tl6838569151%_ + _%e6838669154%_ + _%hd6838769158%_ + _%tl6838869161%_ + _%__splice8361283613%_ + _%target6838969164%_ + _%tl6839169167%_) + (letrec ((_%loop6839269170%_ + (lambda (_%hd6839069174%_ _%body6839669177%_) + (if (gx#stx-pair? _%hd6839069174%_) + (let ((_%e6839369180%_ + (gx#syntax-e _%hd6839069174%_))) + (let ((_%lp-tl6839569187%_ + (let () + (declare (not safe)) + (##cdr _%e6839369180%_))) + (_%lp-hd6839469184%_ + (let () + (declare (not safe)) + (##car _%e6839369180%_)))) + (_%loop6839269170%_ + _%lp-tl6839569187%_ + (cons _%lp-hd6839469184%_ + _%body6839669177%_)))) + (let ((_%body6839769190%_ + (reverse _%body6839669177%_))) + (let ((_%L69194%_ _%tl6837969131%_) + (_%L69196%_ _%body6839769190%_) + (_%L69197%_ _%tl6838869161%_) + (_%L69198%_ _%hd6838769158%_) + (_%L69199%_ _%hd6837569118%_) + (_%L69200%_ _%hd6837269108%_) + (_%L69201%_ _%hd6836969098%_)) + (if (and (gx#identifier? + _%L69198%_) + (gx#identifier? + _%L69200%_)) + (_%__kont8361083611%_ + _%L69194%_ + _%L69196%_ + _%L69197%_ + _%L69198%_ + _%L69199%_ + _%L69200%_ + _%L69201%_) + (_%__kont8361883619%_ + _%tl6837969131%_ + _%hd6837869128%_ + _%hd6837569118%_ + _%hd6837269108%_ + _%hd6836969098%_)))))))) + (_%loop6839269170%_ _%target6838969164%_ '()))))) + (if (gx#stx-pair? _%__stx8360783608%_) + (let ((_%e6836269074%_ (gx#syntax-e _%__stx8360783608%_))) + (let ((_%tl6836469081%_ + (let () + (declare (not safe)) + (##cdr _%e6836269074%_))) + (_%hd6836369078%_ + (let () + (declare (not safe)) + (##car _%e6836269074%_)))) + (if (gx#stx-pair? _%tl6836469081%_) + (let ((_%e6836569084%_ + (gx#syntax-e _%tl6836469081%_))) + (let ((_%tl6836769091%_ + (let () + (declare (not safe)) + (##cdr _%e6836569084%_))) + (_%hd6836669088%_ + (let () + (declare (not safe)) + (##car _%e6836569084%_)))) + (if (gx#stx-pair? _%hd6836669088%_) + (let ((_%e6836869094%_ + (gx#syntax-e _%hd6836669088%_))) + (let ((_%tl6837069101%_ + (let () + (declare (not safe)) + (##cdr _%e6836869094%_))) + (_%hd6836969098%_ + (let () + (declare (not safe)) + (##car _%e6836869094%_)))) + (if (gx#stx-pair? _%tl6837069101%_) + (let ((_%e6837169104%_ + (gx#syntax-e + _%tl6837069101%_))) + (let ((_%tl6837369111%_ + (let () + (declare (not safe)) + (##cdr _%e6837169104%_))) + (_%hd6837269108%_ + (let () + (declare (not safe)) + (##car _%e6837169104%_)))) + (if (gx#stx-pair? + _%tl6837369111%_) + (let ((_%e6837469114%_ + (gx#syntax-e + _%tl6837369111%_))) + (let ((_%tl6837669121%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6799368570%_))) - (let ((_%tl6800568610%_ - (let () - (declare (not safe)) - (##cdr _%e6800368603%_))) - (_%hd6800468607%_ - (let () - (declare (not safe)) - (##car _%e6800368603%_)))) - (if (gx#stx-pair? _%hd6800468607%_) - (let ((_%e6800668613%_ - (gx#syntax-e _%hd6800468607%_))) - (let ((_%tl6800868620%_ - (let () - (declare (not safe)) - (##cdr _%e6800668613%_))) - (_%hd6800768617%_ - (let () - (declare (not safe)) - (##car _%e6800668613%_)))) - (if (gx#identifier? _%hd6800768617%_) - (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84158_| - _%hd6800768617%_) - (if (gx#stx-pair? _%tl6800868620%_) - (let ((_%e6800968623%_ - (gx#syntax-e - _%tl6800868620%_))) - (let ((_%tl6801168630%_ - (let () - (declare (not safe)) - (##cdr _%e6800968623%_))) - (_%hd6801068627%_ - (let () - (declare (not safe)) - (##car _%e6800968623%_)))) - (if (gx#stx-pair? - _%hd6801068627%_) - (let ((_%e6801268633%_ - (gx#syntax-e - _%hd6801068627%_))) - (let ((_%tl6801468640%_ - (let () + (not safe)) + (##cdr _%e6837469114%_))) + (_%hd6837569118%_ + (let () (declare (not safe)) (##car _%e6837469114%_)))) + (if (gx#stx-null? _%tl6837669121%_) + (if (gx#stx-pair? _%tl6836769091%_) + (let ((_%e6837769124%_ (gx#syntax-e _%tl6836769091%_))) + (let ((_%tl6837969131%_ + (let () + (declare (not safe)) + (##cdr _%e6837769124%_))) + (_%hd6837869128%_ + (let () + (declare (not safe)) + (##car _%e6837769124%_)))) + (if (gx#stx-pair? _%hd6837869128%_) + (let ((_%e6838069134%_ + (gx#syntax-e _%hd6837869128%_))) + (let ((_%tl6838269141%_ + (let () + (declare (not safe)) + (##cdr _%e6838069134%_))) + (_%hd6838169138%_ + (let () + (declare (not safe)) + (##car _%e6838069134%_)))) + (if (gx#identifier? _%hd6838169138%_) + (if (gx#free-identifier=? + |gerbil/core/contract~TypedDefinitions[1]#_g85150_| + _%hd6838169138%_) + (if (gx#stx-pair? _%tl6838269141%_) + (let ((_%e6838369144%_ + (gx#syntax-e + _%tl6838269141%_))) + (let ((_%tl6838569151%_ + (let () + (declare (not safe)) + (##cdr _%e6838369144%_))) + (_%hd6838469148%_ + (let () + (declare (not safe)) + (##car _%e6838369144%_)))) + (if (gx#stx-pair? + _%hd6838469148%_) + (let ((_%e6838669154%_ + (gx#syntax-e + _%hd6838469148%_))) + (let ((_%tl6838869161%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##cdr _%e6838669154%_))) + (_%hd6838769158%_ + (let () + (declare (not safe)) + (##car _%e6838669154%_)))) + (if (gx#stx-pair/null? _%tl6838569151%_) + (let ((_%__splice8361283613%_ + (gx#syntax-split-splice _%tl6838569151%_ '0))) + (let ((_%tl6839169167%_ + (let () + (declare (not safe)) + (##vector-ref _%__splice8361283613%_ '1))) + (_%target6838969164%_ + (let () + (declare (not safe)) + (##vector-ref _%__splice8361283613%_ '0)))) + (if (gx#stx-null? _%tl6839169167%_) + (_%__match8368883689%_ + _%e6836269074%_ + _%hd6836369078%_ + _%tl6836469081%_ + _%e6836569084%_ + _%hd6836669088%_ + _%tl6836769091%_ + _%e6836869094%_ + _%hd6836969098%_ + _%tl6837069101%_ + _%e6837169104%_ + _%hd6837269108%_ + _%tl6837369111%_ + _%e6837469114%_ + _%hd6837569118%_ + _%tl6837669121%_ + _%e6837769124%_ + _%hd6837869128%_ + _%tl6837969131%_ + _%e6838069134%_ + _%hd6838169138%_ + _%tl6838269141%_ + _%e6838369144%_ + _%hd6838469148%_ + _%tl6838569151%_ + _%e6838669154%_ + _%hd6838769158%_ + _%tl6838869161%_ + _%__splice8361283613%_ + _%target6838969164%_ + _%tl6839169167%_) + (_%__kont8361883619%_ + _%tl6837969131%_ + _%hd6837869128%_ + _%hd6837569118%_ + _%hd6837269108%_ + _%hd6836969098%_)))) + (_%__kont8361883619%_ + _%tl6837969131%_ + _%hd6837869128%_ + _%hd6837569118%_ + _%hd6837269108%_ + _%hd6836969098%_)))) + (_%__kont8361883619%_ + _%tl6837969131%_ + _%hd6837869128%_ + _%hd6837569118%_ + _%hd6837269108%_ + _%hd6836969098%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8361883619%_ + _%tl6837969131%_ + _%hd6837869128%_ + _%hd6837569118%_ + _%hd6837269108%_ + _%hd6836969098%_)) + (if (gx#free-identifier=? + |gerbil/core/contract~TypedDefinitions[1]#_g85151_| + _%hd6838169138%_) + (if (gx#stx-pair/null? + _%tl6838269141%_) + (let ((_%__splice8361683617%_ + (gx#syntax-split-splice + _%tl6838269141%_ + '0))) + (let ((_%tl6842868724%_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##cdr _%e6801268633%_))) - (_%hd6801368637%_ - (let () (declare (not safe)) (##car _%e6801268633%_)))) - (if (gx#stx-pair/null? _%tl6801168630%_) - (let ((_%__splice8264982650%_ - (gx#syntax-split-splice _%tl6801168630%_ '0))) - (let ((_%tl6801768646%_ - (let () - (declare (not safe)) - (##vector-ref _%__splice8264982650%_ '1))) - (_%target6801568643%_ - (let () - (declare (not safe)) - (##vector-ref _%__splice8264982650%_ '0)))) - (if (gx#stx-null? _%tl6801768646%_) - (_%__match8272582726%_ - _%e6798868553%_ - _%hd6798968557%_ - _%tl6799068560%_ - _%e6799168563%_ - _%hd6799268567%_ - _%tl6799368570%_ - _%e6799468573%_ - _%hd6799568577%_ - _%tl6799668580%_ - _%e6799768583%_ - _%hd6799868587%_ - _%tl6799968590%_ - _%e6800068593%_ - _%hd6800168597%_ - _%tl6800268600%_ - _%e6800368603%_ - _%hd6800468607%_ - _%tl6800568610%_ - _%e6800668613%_ - _%hd6800768617%_ - _%tl6800868620%_ - _%e6800968623%_ - _%hd6801068627%_ - _%tl6801168630%_ - _%e6801268633%_ - _%hd6801368637%_ - _%tl6801468640%_ - _%__splice8264982650%_ - _%target6801568643%_ - _%tl6801768646%_) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)))) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)))) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)) - (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84159_| - _%hd6800768617%_) - (if (gx#stx-pair/null? - _%tl6800868620%_) - (let ((_%__splice8265382654%_ - (gx#syntax-split-splice - _%tl6800868620%_ - '0))) - (let ((_%tl6805468267%_ - (let () - (declare - (not safe)) - (##vector-ref - _%__splice8265382654%_ - '1))) - (_%target6805268264%_ - (let () - (declare - (not safe)) - (##vector-ref - _%__splice8265382654%_ - '0)))) - (if (gx#stx-null? - _%tl6805468267%_) - (_%__match8278182782%_ - _%e6798868553%_ - _%hd6798968557%_ - _%tl6799068560%_ - _%e6799168563%_ - _%hd6799268567%_ - _%tl6799368570%_ - _%e6799468573%_ - _%hd6799568577%_ - _%tl6799668580%_ - _%e6799768583%_ - _%hd6799868587%_ - _%tl6799968590%_ - _%e6800068593%_ - _%hd6800168597%_ - _%tl6800268600%_ - _%e6800368603%_ - _%hd6800468607%_ - _%tl6800568610%_ - _%e6800668613%_ - _%hd6800768617%_ - _%tl6800868620%_ - _%__splice8265382654%_ - _%target6805268264%_ - _%tl6805468267%_) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)))) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_))) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)))) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)))) - (_%__kont8265582656%_ - _%tl6799368570%_ - _%hd6800168597%_ - _%hd6799868587%_ - _%hd6799568577%_)) - (let () (declare (not safe)) (_%g6797968104%_))))) + (not safe)) + (##vector-ref _%__splice8361683617%_ '1))) + (_%target6842668721%_ + (let () + (declare (not safe)) + (##vector-ref _%__splice8361683617%_ '0)))) + (if (gx#stx-null? _%tl6842868724%_) + (_%__match8374483745%_ + _%e6836269074%_ + _%hd6836369078%_ + _%tl6836469081%_ + _%e6836569084%_ + _%hd6836669088%_ + _%tl6836769091%_ + _%e6836869094%_ + _%hd6836969098%_ + _%tl6837069101%_ + _%e6837169104%_ + _%hd6837269108%_ + _%tl6837369111%_ + _%e6837469114%_ + _%hd6837569118%_ + _%tl6837669121%_ + _%e6837769124%_ + _%hd6837869128%_ + _%tl6837969131%_ + _%e6838069134%_ + _%hd6838169138%_ + _%tl6838269141%_ + _%__splice8361683617%_ + _%target6842668721%_ + _%tl6842868724%_) + (_%__kont8361883619%_ + _%tl6837969131%_ + _%hd6837869128%_ + _%hd6837569118%_ + _%hd6837269108%_ + _%hd6836969098%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8361883619%_ + _%tl6837969131%_ + _%hd6837869128%_ + _%hd6837569118%_ + _%hd6837269108%_ + _%hd6836969098%_)) + (_%__kont8361883619%_ + _%tl6837969131%_ + _%hd6837869128%_ + _%hd6837569118%_ + _%hd6837269108%_ + _%hd6836969098%_))) + (_%__kont8361883619%_ + _%tl6837969131%_ + _%hd6837869128%_ + _%hd6837569118%_ + _%hd6837269108%_ + _%hd6836969098%_)))) + (_%__kont8361883619%_ + _%tl6837969131%_ + _%hd6837869128%_ + _%hd6837569118%_ + _%hd6837269108%_ + _%hd6836969098%_)))) + (let () (declare (not safe)) (_%g6835368482%_))) + (let () (declare (not safe)) (_%g6835368482%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g6797968104%_))))) - (let () - (declare (not safe)) - (_%g6797968104%_))))) - (let () - (declare (not safe)) - (_%g6797968104%_))))) - (let () (declare (not safe)) (_%g6797968104%_))))) - (let () (declare (not safe)) (_%g6797968104%_)))))))) + (let () + (declare (not safe)) + (_%g6835368482%_))))) + (let () + (declare (not safe)) + (_%g6835368482%_))))) + (let () + (declare (not safe)) + (_%g6835368482%_))))) + (let () (declare (not safe)) (_%g6835368482%_))))) + (let () (declare (not safe)) (_%g6835368482%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-receiver| - (lambda (_%stx68797%_) - (let* ((_%g6880068818%_ - (lambda (_%g6880168814%_) + (lambda (_%stx69672%_) + (let* ((_%g6967569693%_ + (lambda (_%g6967669689%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6880168814%_))) - (_%g6879968904%_ - (lambda (_%g6880168822%_) - (if (gx#stx-pair? _%g6880168822%_) - (let ((_%e6880468825%_ (gx#syntax-e _%g6880168822%_))) - (let ((_%hd6880568829%_ + _%g6967669689%_))) + (_%g6967469779%_ + (lambda (_%g6967669697%_) + (if (gx#stx-pair? _%g6967669697%_) + (let ((_%e6967969700%_ (gx#syntax-e _%g6967669697%_))) + (let ((_%hd6968069704%_ (let () (declare (not safe)) - (##car _%e6880468825%_))) - (_%tl6880668832%_ + (##car _%e6967969700%_))) + (_%tl6968169707%_ (let () (declare (not safe)) - (##cdr _%e6880468825%_)))) - (if (gx#stx-pair? _%tl6880668832%_) - (let ((_%e6880768835%_ - (gx#syntax-e _%tl6880668832%_))) - (let ((_%hd6880868839%_ + (##cdr _%e6967969700%_)))) + (if (gx#stx-pair? _%tl6968169707%_) + (let ((_%e6968269710%_ + (gx#syntax-e _%tl6968169707%_))) + (let ((_%hd6968369714%_ (let () (declare (not safe)) - (##car _%e6880768835%_))) - (_%tl6880968842%_ + (##car _%e6968269710%_))) + (_%tl6968469717%_ (let () (declare (not safe)) - (##cdr _%e6880768835%_)))) - (if (gx#stx-pair? _%tl6880968842%_) - (let ((_%e6881068845%_ - (gx#syntax-e _%tl6880968842%_))) - (let ((_%hd6881168849%_ + (##cdr _%e6968269710%_)))) + (if (gx#stx-pair? _%tl6968469717%_) + (let ((_%e6968569720%_ + (gx#syntax-e _%tl6968469717%_))) + (let ((_%hd6968669724%_ (let () (declare (not safe)) - (##car _%e6881068845%_))) - (_%tl6881268852%_ + (##car _%e6968569720%_))) + (_%tl6968769727%_ (let () (declare (not safe)) - (##cdr _%e6881068845%_)))) - (if (gx#stx-null? _%tl6881268852%_) - ((lambda (_%L68855%_ _%L68857%_) - (let* ((_%g6887368881%_ - (lambda (_%g6887468877%_) + (##cdr _%e6968569720%_)))) + (if (gx#stx-null? _%tl6968769727%_) + ((lambda (_%L69730%_ _%L69732%_) + (let* ((_%g6974869756%_ + (lambda (_%g6974969752%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6887468877%_))) - (_%g6887268900%_ - (lambda (_%g6887468885%_) - ((lambda (_%L68888%_) + _%g6974969752%_))) + (_%g6974769775%_ + (lambda (_%g6974969760%_) + ((lambda (_%L69763%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@receiver) - (cons _%L68888%_ '())) - (cons _%L68855%_ '())))) - _%g6887468885%_)))) + (cons _%L69763%_ '())) + (cons _%L69730%_ '())))) + _%g6974969760%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6887268900%_ + (_%g6974769775%_ (gx#core-quote-syntax - _%L68857%_)))) - _%hd6881168849%_ - _%hd6880868839%_) - (_%g6880068818%_ - _%g6880168822%_)))) - (_%g6880068818%_ _%g6880168822%_)))) - (_%g6880068818%_ _%g6880168822%_)))) - (_%g6880068818%_ _%g6880168822%_))))) - (_%g6879968904%_ _%stx68797%_)))) + _%L69732%_)))) + _%hd6968669724%_ + _%hd6968369714%_) + (_%g6967569693%_ + _%g6967669697%_)))) + (_%g6967569693%_ _%g6967669697%_)))) + (_%g6967569693%_ _%g6967669697%_)))) + (_%g6967569693%_ _%g6967669697%_))))) + (_%g6967469779%_ _%stx69672%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#let/c| - (lambda (_%stx68908%_) - (let* ((_%__stx8282482825%_ _%stx68908%_) - (_%g6891369009%_ + (lambda (_%stx69783%_) + (let* ((_%__stx8379383794%_ _%stx69783%_) + (_%g6978869884%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8282482825%_)))) - (let ((_%__kont8282782828%_ - (lambda (_%L69356%_ - _%L69358%_ - _%L69359%_ - _%L69360%_ - _%L69361%_) - (let* ((_%g6939169399%_ - (lambda (_%g6939269395%_) + _%__stx8379383794%_)))) + (let ((_%__kont8379683797%_ + (lambda (_%L70231%_ + _%L70233%_ + _%L70234%_ + _%L70235%_ + _%L70236%_) + (let* ((_%g7026670274%_ + (lambda (_%g7026770270%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6939269395%_))) - (_%g6939069426%_ - (lambda (_%g6939269403%_) - ((lambda (_%L69406%_) + _%g7026770270%_))) + (_%g7026570301%_ + (lambda (_%g7026770278%_) + ((lambda (_%L70281%_) (cons (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L69361%_ - (cons _%L69406%_ + (cons (cons (cons _%L70236%_ + (cons _%L70281%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L69361%_ '()))) - (foldr (lambda (_%g6941769420%_ - _%g6941869423%_) - (cons _%g6941769420%_ - _%g6941869423%_)) + (cons _%L70236%_ '()))) + (foldr (lambda (_%g7029270295%_ + _%g7029370298%_) + (cons _%g7029270295%_ + _%g7029370298%_)) '() - _%L69359%_))) - _%g6939269403%_)))) - (_%g6939069426%_ + _%L70234%_))) + _%g7026770278%_)))) + (_%g7026570301%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda/c) - (cons (foldr (lambda (_%g6943169434%_ - _%g6943269437%_) - (cons _%g6943169434%_ - _%g6943269437%_)) + (cons (foldr (lambda (_%g7030670309%_ + _%g7030770312%_) + (cons _%g7030670309%_ + _%g7030770312%_)) '() - _%L69360%_) + _%L70235%_) (cons (gx#datum->syntax '#f '=>) - (cons _%L69358%_ - (foldr (lambda (_%g6942969440%_ - _%g6943069443%_) - (cons _%g6942969440%_ - _%g6943069443%_)) + (cons _%L70233%_ + (foldr (lambda (_%g7030470315%_ + _%g7030570318%_) + (cons _%g7030470315%_ + _%g7030570318%_)) '() - _%L69356%_))))) - (gx#stx-source _%stx68908%_)))))) - (_%__kont8283382834%_ - (lambda (_%L69159%_ _%L69161%_ _%L69162%_ _%L69163%_) + _%L70231%_))))) + (gx#stx-source _%stx69783%_)))))) + (_%__kont8380283803%_ + (lambda (_%L70034%_ _%L70036%_ _%L70037%_ _%L70038%_) (cons (gx#datum->syntax '#f 'let/c) - (cons _%L69163%_ + (cons _%L70038%_ (cons (begin (gx#syntax-check-splice-targets - _%L69161%_ - _%L69162%_) - (foldr (lambda (_%g6919769201%_ - _%g6919869204%_ - _%g6919969206%_) - (cons (cons _%g6919869204%_ - (cons _%g6919769201%_ + _%L70036%_ + _%L70037%_) + (foldr (lambda (_%g7007270076%_ + _%g7007370079%_ + _%g7007470081%_) + (cons (cons _%g7007370079%_ + (cons _%g7007270076%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%g6919969206%_)) + _%g7007470081%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L69161%_ - _%L69162%_)) + _%L70036%_ + _%L70037%_)) (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6919569209%_ + (foldr (lambda (_%g7007070084%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6919669212%_) - (cons _%g6919569209%_ _%g6919669212%_)) + _%g7007170087%_) + (cons _%g7007070084%_ _%g7007170087%_)) '() - _%L69159%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8283982840%_ - (lambda (_%L69026%_) - (cons (gx#datum->syntax '#f 'let) _%L69026%_)))) - (let* ((_%__match8289382894%_ - (lambda (_%e6896569045%_ - _%hd6896669049%_ - _%tl6896769052%_ - _%e6896869055%_ - _%hd6896969059%_ - _%tl6897069062%_ - _%e6897169065%_ - _%hd6897269069%_ - _%tl6897369072%_ - _%__splice8283582836%_ - _%target6897469075%_ - _%tl6897669078%_) - (letrec ((_%loop6897769081%_ - (lambda (_%hd6897569085%_ - _%init6898169088%_ - _%var6898269090%_) - (if (gx#stx-pair? _%hd6897569085%_) - (let ((_%e6897869093%_ - (gx#syntax-e _%hd6897569085%_))) - (let ((_%lp-tl6898069100%_ + _%L70034%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8380883809%_ + (lambda (_%L69901%_) + (cons (gx#datum->syntax '#f 'let) _%L69901%_)))) + (let* ((_%__match8386283863%_ + (lambda (_%e6984069920%_ + _%hd6984169924%_ + _%tl6984269927%_ + _%e6984369930%_ + _%hd6984469934%_ + _%tl6984569937%_ + _%e6984669940%_ + _%hd6984769944%_ + _%tl6984869947%_ + _%__splice8380483805%_ + _%target6984969950%_ + _%tl6985169953%_) + (letrec ((_%loop6985269956%_ + (lambda (_%hd6985069960%_ + _%init6985669963%_ + _%var6985769965%_) + (if (gx#stx-pair? _%hd6985069960%_) + (let ((_%e6985369968%_ + (gx#syntax-e _%hd6985069960%_))) + (let ((_%lp-tl6985569975%_ (let () (declare (not safe)) - (##cdr _%e6897869093%_))) - (_%lp-hd6897969097%_ + (##cdr _%e6985369968%_))) + (_%lp-hd6985469972%_ (let () (declare (not safe)) - (##car _%e6897869093%_)))) + (##car _%e6985369968%_)))) (if (gx#stx-pair? - _%lp-hd6897969097%_) - (let ((_%e6899469103%_ + _%lp-hd6985469972%_) + (let ((_%e6986969978%_ (gx#syntax-e - _%lp-hd6897969097%_))) - (let ((_%tl6899669110%_ + _%lp-hd6985469972%_))) + (let ((_%tl6987169985%_ (let () (declare (not safe)) - (##cdr _%e6899469103%_))) - (_%hd6899569107%_ + (##cdr _%e6986969978%_))) + (_%hd6987069982%_ (let () (declare (not safe)) - (##car _%e6899469103%_)))) + (##car _%e6986969978%_)))) (if (gx#stx-pair? - _%tl6899669110%_) - (let ((_%e6899769113%_ + _%tl6987169985%_) + (let ((_%e6987269988%_ (gx#syntax-e - _%tl6899669110%_))) - (let ((_%tl6899969120%_ + _%tl6987169985%_))) + (let ((_%tl6987469995%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6899769113%_))) - (_%hd6899869117%_ - (let () (declare (not safe)) (##car _%e6899769113%_)))) - (if (gx#stx-null? _%tl6899969120%_) - (_%loop6897769081%_ - _%lp-tl6898069100%_ - (cons _%hd6899869117%_ _%init6898169088%_) - (cons _%hd6899569107%_ _%var6898269090%_)) - (_%__kont8283982840%_ _%tl6896769052%_)))) - (_%__kont8283982840%_ _%tl6896769052%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8283982840%_ - _%tl6896769052%_)))) - (let ((_%var6898469126%_ - (reverse _%var6898269090%_)) - (_%init6898369123%_ - (reverse _%init6898169088%_))) + (##cdr _%e6987269988%_))) + (_%hd6987369992%_ + (let () (declare (not safe)) (##car _%e6987269988%_)))) + (if (gx#stx-null? _%tl6987469995%_) + (_%loop6985269956%_ + _%lp-tl6985569975%_ + (cons _%hd6987369992%_ _%init6985669963%_) + (cons _%hd6987069982%_ _%var6985769965%_)) + (_%__kont8380883809%_ _%tl6984269927%_)))) + (_%__kont8380883809%_ _%tl6984269927%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8380883809%_ + _%tl6984269927%_)))) + (let ((_%var6985970001%_ + (reverse _%var6985769965%_)) + (_%init6985869998%_ + (reverse _%init6985669963%_))) (if (gx#stx-pair/null? - _%tl6897369072%_) - (let ((_%__splice8283782838%_ + _%tl6984869947%_) + (let ((_%__splice8380683807%_ (gx#syntax-split-splice - _%tl6897369072%_ + _%tl6984869947%_ '0))) - (let ((_%tl6898769132%_ + (let ((_%tl6986270007%_ (let () (declare (not safe)) (##vector-ref - _%__splice8283782838%_ + _%__splice8380683807%_ '1))) - (_%target6898569129%_ + (_%target6986070004%_ (let () (declare (not safe)) (##vector-ref - _%__splice8283782838%_ + _%__splice8380683807%_ '0)))) (if (gx#stx-null? - _%tl6898769132%_) - (letrec ((_%loop6898869135%_ - (lambda (_%hd6898669139%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6899269142%_) - (if (gx#stx-pair? _%hd6898669139%_) - (let ((_%e6898969145%_ - (gx#syntax-e _%hd6898669139%_))) - (let ((_%lp-tl6899169152%_ + _%tl6986270007%_) + (letrec ((_%loop6986370010%_ + (lambda (_%hd6986170014%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6986770017%_) + (if (gx#stx-pair? _%hd6986170014%_) + (let ((_%e6986470020%_ + (gx#syntax-e _%hd6986170014%_))) + (let ((_%lp-tl6986670027%_ (let () (declare (not safe)) - (##cdr _%e6898969145%_))) - (_%lp-hd6899069149%_ + (##cdr _%e6986470020%_))) + (_%lp-hd6986570024%_ (let () (declare (not safe)) - (##car _%e6898969145%_)))) - (_%loop6898869135%_ - _%lp-tl6899169152%_ - (cons _%lp-hd6899069149%_ - _%body6899269142%_)))) - (let ((_%body6899369155%_ - (reverse _%body6899269142%_))) - (let ((_%L69159%_ _%body6899369155%_) - (_%L69161%_ _%init6898369123%_) - (_%L69162%_ _%var6898469126%_) - (_%L69163%_ _%hd6896969059%_)) - (if (and (gx#identifier? _%L69163%_) + (##car _%e6986470020%_)))) + (_%loop6986370010%_ + _%lp-tl6986670027%_ + (cons _%lp-hd6986570024%_ + _%body6986770017%_)))) + (let ((_%body6986870030%_ + (reverse _%body6986770017%_))) + (let ((_%L70034%_ _%body6986870030%_) + (_%L70036%_ _%init6985869998%_) + (_%L70037%_ _%var6985970001%_) + (_%L70038%_ _%hd6984469934%_)) + (if (and (gx#identifier? _%L70038%_) (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - (foldr (lambda (_%g6918769190%_ - _%g6918869193%_) - (cons _%g6918769190%_ - _%g6918869193%_)) + (foldr (lambda (_%g7006270065%_ + _%g7006370068%_) + (cons _%g7006270065%_ + _%g7006370068%_)) '() - _%L69162%_))) - (_%__kont8283382834%_ - _%L69159%_ - _%L69161%_ - _%L69162%_ - _%L69163%_) - (_%__kont8283982840%_ - _%tl6896769052%_)))))))) - (_%loop6898869135%_ _%target6898569129%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8283982840%_ - _%tl6896769052%_)))) - (_%__kont8283982840%_ - _%tl6896769052%_))))))) - (_%loop6897769081%_ _%target6897469075%_ '() '())))) - (_%__match8286782868%_ - (lambda (_%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_) - (letrec ((_%loop6893269258%_ - (lambda (_%hd6893069262%_ - _%init6893669265%_ - _%var6893769267%_) - (if (gx#stx-pair? _%hd6893069262%_) - (let ((_%e6893369270%_ - (gx#syntax-e _%hd6893069262%_))) - (let ((_%lp-tl6893569277%_ + _%L70037%_))) + (_%__kont8380283803%_ + _%L70034%_ + _%L70036%_ + _%L70037%_ + _%L70038%_) + (_%__kont8380883809%_ + _%tl6984269927%_)))))))) + (_%loop6986370010%_ _%target6986070004%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8380883809%_ + _%tl6984269927%_)))) + (_%__kont8380883809%_ + _%tl6984269927%_))))))) + (_%loop6985269956%_ _%target6984969950%_ '() '())))) + (_%__match8383683837%_ + (lambda (_%e6979570097%_ + _%hd6979670101%_ + _%tl6979770104%_ + _%e6979870107%_ + _%hd6979970111%_ + _%tl6980070114%_ + _%e6980170117%_ + _%hd6980270121%_ + _%tl6980370124%_ + _%__splice8379883799%_ + _%target6980470127%_ + _%tl6980670130%_) + (letrec ((_%loop6980770133%_ + (lambda (_%hd6980570137%_ + _%init6981170140%_ + _%var6981270142%_) + (if (gx#stx-pair? _%hd6980570137%_) + (let ((_%e6980870145%_ + (gx#syntax-e _%hd6980570137%_))) + (let ((_%lp-tl6981070152%_ (let () (declare (not safe)) - (##cdr _%e6893369270%_))) - (_%lp-hd6893469274%_ + (##cdr _%e6980870145%_))) + (_%lp-hd6980970149%_ (let () (declare (not safe)) - (##car _%e6893369270%_)))) + (##car _%e6980870145%_)))) (if (gx#stx-pair? - _%lp-hd6893469274%_) - (let ((_%e6895569280%_ + _%lp-hd6980970149%_) + (let ((_%e6983070155%_ (gx#syntax-e - _%lp-hd6893469274%_))) - (let ((_%tl6895769287%_ + _%lp-hd6980970149%_))) + (let ((_%tl6983270162%_ (let () (declare (not safe)) - (##cdr _%e6895569280%_))) - (_%hd6895669284%_ + (##cdr _%e6983070155%_))) + (_%hd6983170159%_ (let () (declare (not safe)) - (##car _%e6895569280%_)))) + (##car _%e6983070155%_)))) (if (gx#stx-pair? - _%tl6895769287%_) - (let ((_%e6895869290%_ + _%tl6983270162%_) + (let ((_%e6983370165%_ (gx#syntax-e - _%tl6895769287%_))) - (let ((_%tl6896069297%_ + _%tl6983270162%_))) + (let ((_%tl6983570172%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6895869290%_))) - (_%hd6895969294%_ - (let () (declare (not safe)) (##car _%e6895869290%_)))) - (if (gx#stx-null? _%tl6896069297%_) - (_%loop6893269258%_ - _%lp-tl6893569277%_ - (cons _%hd6895969294%_ _%init6893669265%_) - (cons _%hd6895669284%_ _%var6893769267%_)) - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)))) - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)))) - (let ((_%var6893969303%_ - (reverse _%var6893769267%_)) - (_%init6893869300%_ - (reverse _%init6893669265%_))) - (if (gx#stx-pair? _%tl6892869249%_) - (let ((_%e6894069306%_ + (##cdr _%e6983370165%_))) + (_%hd6983470169%_ + (let () (declare (not safe)) (##car _%e6983370165%_)))) + (if (gx#stx-null? _%tl6983570172%_) + (_%loop6980770133%_ + _%lp-tl6981070152%_ + (cons _%hd6983470169%_ _%init6981170140%_) + (cons _%hd6983170159%_ _%var6981270142%_)) + (_%__match8386283863%_ + _%e6979570097%_ + _%hd6979670101%_ + _%tl6979770104%_ + _%e6979870107%_ + _%hd6979970111%_ + _%tl6980070114%_ + _%e6980170117%_ + _%hd6980270121%_ + _%tl6980370124%_ + _%__splice8379883799%_ + _%target6980470127%_ + _%tl6980670130%_)))) + (_%__match8386283863%_ + _%e6979570097%_ + _%hd6979670101%_ + _%tl6979770104%_ + _%e6979870107%_ + _%hd6979970111%_ + _%tl6980070114%_ + _%e6980170117%_ + _%hd6980270121%_ + _%tl6980370124%_ + _%__splice8379883799%_ + _%target6980470127%_ + _%tl6980670130%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match8386283863%_ + _%e6979570097%_ + _%hd6979670101%_ + _%tl6979770104%_ + _%e6979870107%_ + _%hd6979970111%_ + _%tl6980070114%_ + _%e6980170117%_ + _%hd6980270121%_ + _%tl6980370124%_ + _%__splice8379883799%_ + _%target6980470127%_ + _%tl6980670130%_)))) + (let ((_%var6981470178%_ + (reverse _%var6981270142%_)) + (_%init6981370175%_ + (reverse _%init6981170140%_))) + (if (gx#stx-pair? _%tl6980370124%_) + (let ((_%e6981570181%_ (gx#syntax-e - _%tl6892869249%_))) - (let ((_%tl6894269313%_ + _%tl6980370124%_))) + (let ((_%tl6981770188%_ (let () (declare (not safe)) - (##cdr _%e6894069306%_))) - (_%hd6894169310%_ + (##cdr _%e6981570181%_))) + (_%hd6981670185%_ (let () (declare (not safe)) - (##car _%e6894069306%_)))) + (##car _%e6981570181%_)))) (if (gx#identifier? - _%hd6894169310%_) + _%hd6981670185%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84160_| - _%hd6894169310%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85152_| + _%hd6981670185%_) (if (gx#stx-pair? - _%tl6894269313%_) - (let ((_%e6894369316%_ + _%tl6981770188%_) + (let ((_%e6981870191%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6894269313%_))) - (let ((_%tl6894569323%_ + (gx#syntax-e _%tl6981770188%_))) + (let ((_%tl6982070198%_ (let () (declare (not safe)) - (##cdr _%e6894369316%_))) - (_%hd6894469320%_ + (##cdr _%e6981870191%_))) + (_%hd6981970195%_ (let () (declare (not safe)) - (##car _%e6894369316%_)))) - (if (gx#stx-pair/null? _%tl6894569323%_) - (let ((_%__splice8283182832%_ + (##car _%e6981870191%_)))) + (if (gx#stx-pair/null? _%tl6982070198%_) + (let ((_%__splice8380083801%_ (gx#syntax-split-splice - _%tl6894569323%_ + _%tl6982070198%_ '0))) - (let ((_%tl6894869329%_ + (let ((_%tl6982370204%_ (let () (declare (not safe)) (##vector-ref - _%__splice8283182832%_ + _%__splice8380083801%_ '1))) - (_%target6894669326%_ + (_%target6982170201%_ (let () (declare (not safe)) (##vector-ref - _%__splice8283182832%_ + _%__splice8380083801%_ '0)))) - (if (gx#stx-null? _%tl6894869329%_) - (letrec ((_%loop6894969332%_ - (lambda (_%hd6894769336%_ - _%body6895369339%_) + (if (gx#stx-null? _%tl6982370204%_) + (letrec ((_%loop6982470207%_ + (lambda (_%hd6982270211%_ + _%body6982870214%_) (if (gx#stx-pair? - _%hd6894769336%_) - (let ((_%e6895069342%_ + _%hd6982270211%_) + (let ((_%e6982570217%_ (gx#syntax-e - _%hd6894769336%_))) - (let ((_%lp-tl6895269349%_ + _%hd6982270211%_))) + (let ((_%lp-tl6982770224%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6895069342%_))) - (_%lp-hd6895169346%_ - (let () (declare (not safe)) (##car _%e6895069342%_)))) - (_%loop6894969332%_ - _%lp-tl6895269349%_ - (cons _%lp-hd6895169346%_ _%body6895369339%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body6895469352%_ - (reverse _%body6895369339%_))) - (let ((_%L69356%_ - _%body6895469352%_) - (_%L69358%_ - _%hd6894469320%_) - (_%L69359%_ - _%init6893869300%_) - (_%L69360%_ - _%var6893969303%_) - (_%L69361%_ - _%hd6892469236%_)) + (##cdr _%e6982570217%_))) + (_%lp-hd6982670221%_ + (let () (declare (not safe)) (##car _%e6982570217%_)))) + (_%loop6982470207%_ + _%lp-tl6982770224%_ + (cons _%lp-hd6982670221%_ _%body6982870214%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%body6982970227%_ + (reverse _%body6982870214%_))) + (let ((_%L70231%_ + _%body6982970227%_) + (_%L70233%_ + _%hd6981970195%_) + (_%L70234%_ + _%init6981370175%_) + (_%L70235%_ + _%var6981470178%_) + (_%L70236%_ + _%hd6979970111%_)) (if (gx#identifier? - _%L69361%_) - (_%__kont8282782828%_ - _%L69356%_ - _%L69358%_ - _%L69359%_ - _%L69360%_ - _%L69361%_) - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)))))))) - (_%loop6894969332%_ - _%target6894669326%_ + _%L70236%_) + (_%__kont8379683797%_ + _%L70231%_ + _%L70233%_ + _%L70234%_ + _%L70235%_ + _%L70236%_) + (_%__match8386283863%_ + _%e6979570097%_ + _%hd6979670101%_ + _%tl6979770104%_ + _%e6979870107%_ + _%hd6979970111%_ + _%tl6980070114%_ + _%e6980170117%_ + _%hd6980270121%_ + _%tl6980370124%_ + _%__splice8379883799%_ + _%target6980470127%_ + _%tl6980670130%_)))))))) + (_%loop6982470207%_ + _%target6982170201%_ '())) - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)))) - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)))) - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)) - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_)))) - (_%__match8289382894%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_))))))) - (_%loop6893269258%_ _%target6892969252%_ '() '()))))) - (if (gx#stx-pair? _%__stx8282482825%_) - (let ((_%e6892069222%_ (gx#syntax-e _%__stx8282482825%_))) - (let ((_%tl6892269229%_ + (_%__match8386283863%_ + _%e6979570097%_ + _%hd6979670101%_ + _%tl6979770104%_ + _%e6979870107%_ + _%hd6979970111%_ + _%tl6980070114%_ + _%e6980170117%_ + _%hd6980270121%_ + _%tl6980370124%_ + _%__splice8379883799%_ + _%target6980470127%_ + _%tl6980670130%_)))) + (_%__match8386283863%_ + _%e6979570097%_ + _%hd6979670101%_ + _%tl6979770104%_ + _%e6979870107%_ + _%hd6979970111%_ + _%tl6980070114%_ + _%e6980170117%_ + _%hd6980270121%_ + _%tl6980370124%_ + _%__splice8379883799%_ + _%target6980470127%_ + _%tl6980670130%_)))) + (_%__match8386283863%_ + _%e6979570097%_ + _%hd6979670101%_ + _%tl6979770104%_ + _%e6979870107%_ + _%hd6979970111%_ + _%tl6980070114%_ + _%e6980170117%_ + _%hd6980270121%_ + _%tl6980370124%_ + _%__splice8379883799%_ + _%target6980470127%_ + _%tl6980670130%_)) + (_%__match8386283863%_ + _%e6979570097%_ + _%hd6979670101%_ + _%tl6979770104%_ + _%e6979870107%_ + _%hd6979970111%_ + _%tl6980070114%_ + _%e6980170117%_ + _%hd6980270121%_ + _%tl6980370124%_ + _%__splice8379883799%_ + _%target6980470127%_ + _%tl6980670130%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match8386283863%_ + _%e6979570097%_ + _%hd6979670101%_ + _%tl6979770104%_ + _%e6979870107%_ + _%hd6979970111%_ + _%tl6980070114%_ + _%e6980170117%_ + _%hd6980270121%_ + _%tl6980370124%_ + _%__splice8379883799%_ + _%target6980470127%_ + _%tl6980670130%_)))) + (_%__match8386283863%_ + _%e6979570097%_ + _%hd6979670101%_ + _%tl6979770104%_ + _%e6979870107%_ + _%hd6979970111%_ + _%tl6980070114%_ + _%e6980170117%_ + _%hd6980270121%_ + _%tl6980370124%_ + _%__splice8379883799%_ + _%target6980470127%_ + _%tl6980670130%_))))))) + (_%loop6980770133%_ _%target6980470127%_ '() '()))))) + (if (gx#stx-pair? _%__stx8379383794%_) + (let ((_%e6979570097%_ (gx#syntax-e _%__stx8379383794%_))) + (let ((_%tl6979770104%_ (let () (declare (not safe)) - (##cdr _%e6892069222%_))) - (_%hd6892169226%_ + (##cdr _%e6979570097%_))) + (_%hd6979670101%_ (let () (declare (not safe)) - (##car _%e6892069222%_)))) - (if (gx#stx-pair? _%tl6892269229%_) - (let ((_%e6892369232%_ - (gx#syntax-e _%tl6892269229%_))) - (let ((_%tl6892569239%_ + (##car _%e6979570097%_)))) + (if (gx#stx-pair? _%tl6979770104%_) + (let ((_%e6979870107%_ + (gx#syntax-e _%tl6979770104%_))) + (let ((_%tl6980070114%_ (let () (declare (not safe)) - (##cdr _%e6892369232%_))) - (_%hd6892469236%_ + (##cdr _%e6979870107%_))) + (_%hd6979970111%_ (let () (declare (not safe)) - (##car _%e6892369232%_)))) - (if (gx#stx-pair? _%tl6892569239%_) - (let ((_%e6892669242%_ - (gx#syntax-e _%tl6892569239%_))) - (let ((_%tl6892869249%_ + (##car _%e6979870107%_)))) + (if (gx#stx-pair? _%tl6980070114%_) + (let ((_%e6980170117%_ + (gx#syntax-e _%tl6980070114%_))) + (let ((_%tl6980370124%_ (let () (declare (not safe)) - (##cdr _%e6892669242%_))) - (_%hd6892769246%_ + (##cdr _%e6980170117%_))) + (_%hd6980270121%_ (let () (declare (not safe)) - (##car _%e6892669242%_)))) - (if (gx#stx-pair/null? _%hd6892769246%_) - (let ((_%__splice8282982830%_ + (##car _%e6980170117%_)))) + (if (gx#stx-pair/null? _%hd6980270121%_) + (let ((_%__splice8379883799%_ (gx#syntax-split-splice - _%hd6892769246%_ + _%hd6980270121%_ '0))) - (let ((_%tl6893169255%_ + (let ((_%tl6980670130%_ (let () (declare (not safe)) (##vector-ref - _%__splice8282982830%_ + _%__splice8379883799%_ '1))) - (_%target6892969252%_ + (_%target6980470127%_ (let () (declare (not safe)) (##vector-ref - _%__splice8282982830%_ + _%__splice8379883799%_ '0)))) (if (gx#stx-null? - _%tl6893169255%_) - (_%__match8286782868%_ - _%e6892069222%_ - _%hd6892169226%_ - _%tl6892269229%_ - _%e6892369232%_ - _%hd6892469236%_ - _%tl6892569239%_ - _%e6892669242%_ - _%hd6892769246%_ - _%tl6892869249%_ - _%__splice8282982830%_ - _%target6892969252%_ - _%tl6893169255%_) - (_%__kont8283982840%_ - _%tl6892269229%_)))) - (_%__kont8283982840%_ - _%tl6892269229%_)))) - (_%__kont8283982840%_ _%tl6892269229%_)))) - (_%__kont8283982840%_ _%tl6892269229%_)))) - (let () (declare (not safe)) (_%g6891369009%_)))))))) + _%tl6980670130%_) + (_%__match8383683837%_ + _%e6979570097%_ + _%hd6979670101%_ + _%tl6979770104%_ + _%e6979870107%_ + _%hd6979970111%_ + _%tl6980070114%_ + _%e6980170117%_ + _%hd6980270121%_ + _%tl6980370124%_ + _%__splice8379883799%_ + _%target6980470127%_ + _%tl6980670130%_) + (_%__kont8380883809%_ + _%tl6979770104%_)))) + (_%__kont8380883809%_ + _%tl6979770104%_)))) + (_%__kont8380883809%_ _%tl6979770104%_)))) + (_%__kont8380883809%_ _%tl6979770104%_)))) + (let () (declare (not safe)) (_%g6978869884%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defclass/c| - (lambda (_%stx69454%_) - (letrec ((_%generate69457%_ - (lambda (_%hd76628%_ _%slots76630%_ _%body76631%_) - (let* ((_%__stx8290282903%_ _%hd76628%_) - (_%g7663576657%_ + (lambda (_%stx70329%_) + (letrec ((_%generate70332%_ + (lambda (_%hd77503%_ _%slots77505%_ _%body77506%_) + (let* ((_%__stx8387183872%_ _%hd77503%_) + (_%g7751077532%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8290282903%_)))) - (let ((_%__kont8290582906%_ - (lambda (_%L76733%_ _%L76735%_) - (_%generate-defclass69478%_ - _%L76735%_ - (foldr (lambda (_%g7675776760%_ - _%g7675876763%_) - (cons _%g7675776760%_ - _%g7675876763%_)) + _%__stx8387183872%_)))) + (let ((_%__kont8387483875%_ + (lambda (_%L77608%_ _%L77610%_) + (_%generate-defclass70353%_ + _%L77610%_ + (foldr (lambda (_%g7763277635%_ + _%g7763377638%_) + (cons _%g7763277635%_ + _%g7763377638%_)) '() - _%L76733%_) - _%slots76630%_ - _%body76631%_))) - (_%__kont8290982910%_ - (lambda (_%L76675%_) - (_%generate-defclass69478%_ - _%L76675%_ + _%L77608%_) + _%slots77505%_ + _%body77506%_))) + (_%__kont8387883879%_ + (lambda (_%L77550%_) + (_%generate-defclass70353%_ + _%L77550%_ '() - _%slots76630%_ - _%body76631%_))) - (_%__kont8291182912%_ + _%slots77505%_ + _%body77506%_))) + (_%__kont8388083881%_ (lambda () (gx#raise-syntax-error '#f '"bad class head" - _%stx69454%_ - _%hd76628%_)))) - (let* ((_%g7663376686%_ + _%stx70329%_ + _%hd77503%_)))) + (let* ((_%g7750877561%_ (lambda () - (let ((_%L76675%_ _%__stx8290282903%_)) - (if (gx#identifier? _%L76675%_) - (_%__kont8290982910%_ _%L76675%_) - (_%__kont8291182912%_))))) - (_%__match8292782928%_ - (lambda (_%e7663976693%_ - _%hd7664076697%_ - _%tl7664176700%_ - _%__splice8290782908%_ - _%target7664276703%_ - _%tl7664476706%_) - (letrec ((_%loop7664576709%_ - (lambda (_%hd7664376713%_ - _%super7664976716%_) + (let ((_%L77550%_ _%__stx8387183872%_)) + (if (gx#identifier? _%L77550%_) + (_%__kont8387883879%_ _%L77550%_) + (_%__kont8388083881%_))))) + (_%__match8389683897%_ + (lambda (_%e7751477568%_ + _%hd7751577572%_ + _%tl7751677575%_ + _%__splice8387683877%_ + _%target7751777578%_ + _%tl7751977581%_) + (letrec ((_%loop7752077584%_ + (lambda (_%hd7751877588%_ + _%super7752477591%_) (if (gx#stx-pair? - _%hd7664376713%_) - (let ((_%e7664676719%_ + _%hd7751877588%_) + (let ((_%e7752177594%_ (gx#syntax-e - _%hd7664376713%_))) - (let ((_%lp-tl7664876726%_ + _%hd7751877588%_))) + (let ((_%lp-tl7752377601%_ (let () (declare (not safe)) - (##cdr _%e7664676719%_))) - (_%lp-hd7664776723%_ + (##cdr _%e7752177594%_))) + (_%lp-hd7752277598%_ (let () (declare (not safe)) - (##car _%e7664676719%_)))) - (_%loop7664576709%_ - _%lp-tl7664876726%_ - (cons _%lp-hd7664776723%_ - _%super7664976716%_)))) - (let ((_%super7665076729%_ - (reverse _%super7664976716%_))) - (let ((_%L76733%_ - _%super7665076729%_) - (_%L76735%_ - _%hd7664076697%_)) + (##car _%e7752177594%_)))) + (_%loop7752077584%_ + _%lp-tl7752377601%_ + (cons _%lp-hd7752277598%_ + _%super7752477591%_)))) + (let ((_%super7752577604%_ + (reverse _%super7752477591%_))) + (let ((_%L77608%_ + _%super7752577604%_) + (_%L77610%_ + _%hd7751577572%_)) (if (and (gx#identifier? - _%L76735%_) + _%L77610%_) (andmap gerbil/core/mop~MOP-2#syntax-local-class-type-info? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g7674976752%_ _%g7675076755%_) - (cons _%g7674976752%_ _%g7675076755%_)) + (foldr (lambda (_%g7762477627%_ _%g7762577630%_) + (cons _%g7762477627%_ _%g7762577630%_)) '() - _%L76733%_))) - (_%__kont8290582906%_ _%L76733%_ _%L76735%_) - (let () (declare (not safe)) (_%g7663376686%_))))))))) + _%L77608%_))) + (_%__kont8387483875%_ _%L77608%_ _%L77610%_) + (let () (declare (not safe)) (_%g7750877561%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7664576709%_ - _%target7664276703%_ + (_%loop7752077584%_ + _%target7751777578%_ '()))))) - (if (gx#stx-pair? _%__stx8290282903%_) - (let ((_%e7663976693%_ - (gx#syntax-e _%__stx8290282903%_))) - (let ((_%tl7664176700%_ + (if (gx#stx-pair? _%__stx8387183872%_) + (let ((_%e7751477568%_ + (gx#syntax-e _%__stx8387183872%_))) + (let ((_%tl7751677575%_ (let () (declare (not safe)) - (##cdr _%e7663976693%_))) - (_%hd7664076697%_ + (##cdr _%e7751477568%_))) + (_%hd7751577572%_ (let () (declare (not safe)) - (##car _%e7663976693%_)))) - (if (gx#stx-pair/null? _%tl7664176700%_) - (let ((_%__splice8290782908%_ + (##car _%e7751477568%_)))) + (if (gx#stx-pair/null? _%tl7751677575%_) + (let ((_%__splice8387683877%_ (gx#syntax-split-splice - _%tl7664176700%_ + _%tl7751677575%_ '0))) - (let ((_%tl7664476706%_ + (let ((_%tl7751977581%_ (let () (declare (not safe)) (##vector-ref - _%__splice8290782908%_ + _%__splice8387683877%_ '1))) - (_%target7664276703%_ + (_%target7751777578%_ (let () (declare (not safe)) (##vector-ref - _%__splice8290782908%_ + _%__splice8387683877%_ '0)))) - (if (gx#stx-null? _%tl7664476706%_) - (_%__match8292782928%_ - _%e7663976693%_ - _%hd7664076697%_ - _%tl7664176700%_ - _%__splice8290782908%_ - _%target7664276703%_ - _%tl7664476706%_) + (if (gx#stx-null? _%tl7751977581%_) + (_%__match8389683897%_ + _%e7751477568%_ + _%hd7751577572%_ + _%tl7751677575%_ + _%__splice8387683877%_ + _%target7751777578%_ + _%tl7751977581%_) (let () (declare (not safe)) - (_%g7663376686%_))))) + (_%g7750877561%_))))) (let () (declare (not safe)) - (_%g7663376686%_))))) + (_%g7750877561%_))))) (let () (declare (not safe)) - (_%g7663376686%_)))))))) - (_%check-typedef-body!69459%_ - (lambda (_%body76619%_) - (letrec ((_%body-opt?76622%_ - (lambda (_%key76625%_) - (let ((__tmp84161 (gx#stx-e _%key76625%_))) + (_%g7750877561%_)))))))) + (_%check-typedef-body!70334%_ + (lambda (_%body77494%_) + (letrec ((_%body-opt?77497%_ + (lambda (_%key77500%_) + (let ((__tmp85153 (gx#stx-e _%key77500%_))) (declare (not safe)) - (##memq __tmp84161 + (##memq __tmp85153 '(id: struct: name: @@ -6716,107 +7153,107 @@ print: equal: metaclass:)))))) - (if (gx#stx-plist? _%body76619%_ _%body-opt?76622%_) + (if (gx#stx-plist? _%body77494%_ _%body-opt?77497%_) '#!void (gx#raise-syntax-error '#f '"invalid defclass body" - _%stx69454%_ - _%body76619%_))))) - (_%slot-name69460%_ - (lambda (_%slot-spec76616%_) + _%stx70329%_ + _%body77494%_))))) + (_%slot-name70335%_ + (lambda (_%slot-spec77491%_) (gx#stx-e - (if (gx#identifier? _%slot-spec76616%_) - _%slot-spec76616%_ - (gx#stx-car _%slot-spec76616%_))))) - (_%slot-contract69461%_ - (lambda (_%slot-spec76497%_) - (let* ((_%__stx8293082931%_ _%slot-spec76497%_) - (_%g7650276523%_ + (if (gx#identifier? _%slot-spec77491%_) + _%slot-spec77491%_ + (gx#stx-car _%slot-spec77491%_))))) + (_%slot-contract70336%_ + (lambda (_%slot-spec77372%_) + (let* ((_%__stx8389983900%_ _%slot-spec77372%_) + (_%g7737777398%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8293082931%_)))) - (let ((_%__kont8293382934%_ (lambda (_%L76603%_) '#f)) - (_%__kont8293582936%_ - (lambda (_%L76581%_ _%L76583%_) '#f)) - (_%__kont8293782938%_ - (lambda (_%L76540%_ _%L76542%_) _%L76540%_))) - (let* ((_%g7650076596%_ + _%__stx8389983900%_)))) + (let ((_%__kont8390283903%_ (lambda (_%L77478%_) '#f)) + (_%__kont8390483905%_ + (lambda (_%L77456%_ _%L77458%_) '#f)) + (_%__kont8390683907%_ + (lambda (_%L77415%_ _%L77417%_) _%L77415%_))) + (let* ((_%g7737577471%_ (lambda () - (if (gx#stx-pair? _%__stx8293082931%_) - (let ((_%e7650776561%_ + (if (gx#stx-pair? _%__stx8389983900%_) + (let ((_%e7738277436%_ (gx#syntax-e - _%__stx8293082931%_))) - (let ((_%tl7650976568%_ + _%__stx8389983900%_))) + (let ((_%tl7738477443%_ (let () (declare (not safe)) - (##cdr _%e7650776561%_))) - (_%hd7650876565%_ + (##cdr _%e7738277436%_))) + (_%hd7738377440%_ (let () (declare (not safe)) - (##car _%e7650776561%_)))) - (if (gx#stx-pair? _%tl7650976568%_) - (let ((_%e7651076571%_ + (##car _%e7738277436%_)))) + (if (gx#stx-pair? _%tl7738477443%_) + (let ((_%e7738577446%_ (gx#syntax-e - _%tl7650976568%_))) - (let ((_%tl7651276578%_ + _%tl7738477443%_))) + (let ((_%tl7738777453%_ (let () (declare (not safe)) - (##cdr _%e7651076571%_))) - (_%hd7651176575%_ + (##cdr _%e7738577446%_))) + (_%hd7738677450%_ (let () (declare (not safe)) - (##car _%e7651076571%_)))) + (##car _%e7738577446%_)))) (if (gx#stx-null? - _%tl7651276578%_) - (_%__kont8293582936%_ - _%hd7651176575%_ - _%hd7650876565%_) - (_%__kont8293782938%_ - _%tl7650976568%_ - _%hd7650876565%_)))) - (_%__kont8293782938%_ - _%tl7650976568%_ - _%hd7650876565%_)))) + _%tl7738777453%_) + (_%__kont8390483905%_ + _%hd7738677450%_ + _%hd7738377440%_) + (_%__kont8390683907%_ + _%tl7738477443%_ + _%hd7738377440%_)))) + (_%__kont8390683907%_ + _%tl7738477443%_ + _%hd7738377440%_)))) (let () (declare (not safe)) - (_%g7650276523%_))))) - (_%L76603%_ _%__stx8293082931%_)) - (if (gx#identifier? _%L76603%_) - (_%__kont8293382934%_ _%L76603%_) + (_%g7737777398%_))))) + (_%L77478%_ _%__stx8389983900%_)) + (if (gx#identifier? _%L77478%_) + (_%__kont8390283903%_ _%L77478%_) (let () (declare (not safe)) - (_%g7650076596%_)))))))) - (_%slot-contract-normalize69462%_ - (lambda (_%slot-spec76486%_) - (let ((_%contract7648876490%_ - (_%slot-contract69461%_ _%slot-spec76486%_))) - (if _%contract7648876490%_ - (let ((_%contract76494%_ _%contract7648876490%_)) - (_%contract-normalize69463%_ _%contract76494%_)) + (_%g7737577471%_)))))))) + (_%slot-contract-normalize70337%_ + (lambda (_%slot-spec77361%_) + (let ((_%contract7736377365%_ + (_%slot-contract70336%_ _%slot-spec77361%_))) + (if _%contract7736377365%_ + (let ((_%contract77369%_ _%contract7736377365%_)) + (_%contract-normalize70338%_ _%contract77369%_)) '#f)))) - (_%contract-normalize69463%_ - (lambda (_%contract76231%_) - (let* ((_%__stx8296282963%_ _%contract76231%_) - (_%g7623776281%_ + (_%contract-normalize70338%_ + (lambda (_%contract77106%_) + (let* ((_%__stx8393183932%_ _%contract77106%_) + (_%g7711277156%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8296282963%_)))) - (let ((_%__kont8296582966%_ - (lambda (_%L76457%_) - (_%contract-normalize69463%_ - (foldr (lambda (_%g7647376476%_ - _%g7647476479%_) - (cons _%g7647376476%_ - _%g7647476479%_)) + _%__stx8393183932%_)))) + (let ((_%__kont8393483935%_ + (lambda (_%L77332%_) + (_%contract-normalize70338%_ + (foldr (lambda (_%g7734877351%_ + _%g7734977354%_) + (cons _%g7734877351%_ + _%g7734977354%_)) '() - _%L76457%_)))) - (_%__kont8296982970%_ - (lambda (_%L76381%_ _%L76383%_) + _%L77332%_)))) + (_%__kont8393883939%_ + (lambda (_%L77256%_ _%L77258%_) (cons (gx#datum->syntax '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax @@ -6826,4275 +7263,4299 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'not) - (cons _%L76383%_ '()))) + (cons _%L77258%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f ':?) - (cons _%L76381%_ '())))))) - (_%__kont8297182972%_ (lambda (_%L76319%_) '#f)) - (_%__kont8297382974%_ - (lambda () _%contract76231%_))) - (let* ((_%g7623476400%_ + (cons _%L77256%_ '())))))) + (_%__kont8394083941%_ (lambda (_%L77194%_) '#f)) + (_%__kont8394283943%_ + (lambda () _%contract77106%_))) + (let* ((_%g7710977275%_ (lambda () - (if (gx#stx-pair? _%__stx8296282963%_) - (let ((_%e7625776341%_ + (if (gx#stx-pair? _%__stx8393183932%_) + (let ((_%e7713277216%_ (gx#syntax-e - _%__stx8296282963%_))) - (let ((_%tl7625976348%_ + _%__stx8393183932%_))) + (let ((_%tl7713477223%_ (let () (declare (not safe)) - (##cdr _%e7625776341%_))) - (_%hd7625876345%_ + (##cdr _%e7713277216%_))) + (_%hd7713377220%_ (let () (declare (not safe)) - (##car _%e7625776341%_)))) - (if (gx#identifier? _%hd7625876345%_) + (##car _%e7713277216%_)))) + (if (gx#identifier? _%hd7713377220%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84162_| - _%hd7625876345%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85154_| + _%hd7713377220%_) (if (gx#stx-pair? - _%tl7625976348%_) - (let ((_%e7626076351%_ + _%tl7713477223%_) + (let ((_%e7713577226%_ (gx#syntax-e - _%tl7625976348%_))) - (let ((_%tl7626276358%_ + _%tl7713477223%_))) + (let ((_%tl7713777233%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e7626076351%_))) - (_%hd7626176355%_ - (let () (declare (not safe)) (##car _%e7626076351%_)))) - (if (gx#stx-pair? _%tl7626276358%_) - (let ((_%e7626376361%_ (gx#syntax-e _%tl7626276358%_))) - (let ((_%tl7626576368%_ + (##cdr _%e7713577226%_))) + (_%hd7713677230%_ + (let () (declare (not safe)) (##car _%e7713577226%_)))) + (if (gx#stx-pair? _%tl7713777233%_) + (let ((_%e7713877236%_ (gx#syntax-e _%tl7713777233%_))) + (let ((_%tl7714077243%_ (let () (declare (not safe)) - (##cdr _%e7626376361%_))) - (_%hd7626476365%_ + (##cdr _%e7713877236%_))) + (_%hd7713977240%_ (let () (declare (not safe)) - (##car _%e7626376361%_)))) - (if (gx#identifier? _%hd7626476365%_) + (##car _%e7713877236%_)))) + (if (gx#identifier? _%hd7713977240%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84163_| - _%hd7626476365%_) - (if (gx#stx-pair? _%tl7626576368%_) - (let ((_%e7626676371%_ - (gx#syntax-e _%tl7626576368%_))) - (let ((_%tl7626876378%_ + |gerbil/core/contract~TypedDefinitions[1]#_g85155_| + _%hd7713977240%_) + (if (gx#stx-pair? _%tl7714077243%_) + (let ((_%e7714177246%_ + (gx#syntax-e _%tl7714077243%_))) + (let ((_%tl7714377253%_ (let () (declare (not safe)) - (##cdr _%e7626676371%_))) - (_%hd7626776375%_ + (##cdr _%e7714177246%_))) + (_%hd7714277250%_ (let () (declare (not safe)) - (##car _%e7626676371%_)))) - (if (gx#stx-null? _%tl7626876378%_) - (_%__kont8296982970%_ - _%hd7626776375%_ - _%hd7626176355%_) - (_%__kont8297382974%_)))) - (_%__kont8297382974%_)) - (_%__kont8297382974%_)) - (_%__kont8297382974%_)))) - (_%__kont8297382974%_)))) - (_%__kont8297382974%_)) + (##car _%e7714177246%_)))) + (if (gx#stx-null? _%tl7714377253%_) + (_%__kont8393883939%_ + _%hd7714277250%_ + _%hd7713677230%_) + (_%__kont8394283943%_)))) + (_%__kont8394283943%_)) + (_%__kont8394283943%_)) + (_%__kont8394283943%_)))) + (_%__kont8394283943%_)))) + (_%__kont8394283943%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84164_| - _%hd7625876345%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85156_| + _%hd7713377220%_) (if (gx#stx-pair? - _%tl7625976348%_) - (let ((_%e7627376309%_ + _%tl7713477223%_) + (let ((_%e7714877184%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7625976348%_))) - (let ((_%tl7627576316%_ + (gx#syntax-e _%tl7713477223%_))) + (let ((_%tl7715077191%_ (let () (declare (not safe)) - (##cdr _%e7627376309%_))) - (_%hd7627476313%_ + (##cdr _%e7714877184%_))) + (_%hd7714977188%_ (let () (declare (not safe)) - (##car _%e7627376309%_)))) - (if (gx#stx-null? _%tl7627576316%_) - (_%__kont8297182972%_ _%hd7627476313%_) - (_%__kont8297382974%_)))) - (_%__kont8297382974%_)) - (_%__kont8297382974%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8297382974%_)))) - (_%__kont8297382974%_)))) - (_%__match8300183002%_ - (lambda (_%__splice8296782968%_ - _%target7624076407%_ - _%tl7624276410%_ - _%e7624976413%_ - _%hd7625076417%_ - _%tl7625176420%_ - _%e7625276423%_ - _%hd7625376427%_ - _%tl7625476430%_) - (letrec ((_%loop7624376433%_ - (lambda (_%hd7624176437%_ - _%pre7624776440%_) + (##car _%e7714877184%_)))) + (if (gx#stx-null? _%tl7715077191%_) + (_%__kont8394083941%_ _%hd7714977188%_) + (_%__kont8394283943%_)))) + (_%__kont8394283943%_)) + (_%__kont8394283943%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8394283943%_)))) + (_%__kont8394283943%_)))) + (_%__match8397083971%_ + (lambda (_%__splice8393683937%_ + _%target7711577282%_ + _%tl7711777285%_ + _%e7712477288%_ + _%hd7712577292%_ + _%tl7712677295%_ + _%e7712777298%_ + _%hd7712877302%_ + _%tl7712977305%_) + (letrec ((_%loop7711877308%_ + (lambda (_%hd7711677312%_ + _%pre7712277315%_) (if (gx#stx-pair? - _%hd7624176437%_) - (let ((_%e7624476443%_ + _%hd7711677312%_) + (let ((_%e7711977318%_ (gx#syntax-e - _%hd7624176437%_))) - (let ((_%lp-tl7624676450%_ + _%hd7711677312%_))) + (let ((_%lp-tl7712177325%_ (let () (declare (not safe)) - (##cdr _%e7624476443%_))) - (_%lp-hd7624576447%_ + (##cdr _%e7711977318%_))) + (_%lp-hd7712077322%_ (let () (declare (not safe)) - (##car _%e7624476443%_)))) - (_%loop7624376433%_ - _%lp-tl7624676450%_ - (cons _%lp-hd7624576447%_ - _%pre7624776440%_)))) - (let ((_%pre7624876453%_ - (reverse _%pre7624776440%_))) - (_%__kont8296582966%_ - _%pre7624876453%_)))))) - (_%loop7624376433%_ - _%target7624076407%_ + (##car _%e7711977318%_)))) + (_%loop7711877308%_ + _%lp-tl7712177325%_ + (cons _%lp-hd7712077322%_ + _%pre7712277315%_)))) + (let ((_%pre7712377328%_ + (reverse _%pre7712277315%_))) + (_%__kont8393483935%_ + _%pre7712377328%_)))))) + (_%loop7711877308%_ + _%target7711577282%_ '()))))) - (if (gx#stx-pair/null? _%__stx8296282963%_) - (if (let ((__tmp84165 - (gx#stx-length _%__stx8296282963%_))) + (if (gx#stx-pair/null? _%__stx8393183932%_) + (if (let ((__tmp85157 + (gx#stx-length _%__stx8393183932%_))) (declare (not safe)) - (##fx>= __tmp84165 '2)) - (let ((_%__splice8296782968%_ + (##fx>= __tmp85157 '2)) + (let ((_%__splice8393683937%_ (gx#syntax-split-splice - _%__stx8296282963%_ + _%__stx8393183932%_ '2))) - (let ((_%tl7624276410%_ + (let ((_%tl7711777285%_ (let () (declare (not safe)) (##vector-ref - _%__splice8296782968%_ + _%__splice8393683937%_ '1))) - (_%target7624076407%_ + (_%target7711577282%_ (let () (declare (not safe)) (##vector-ref - _%__splice8296782968%_ + _%__splice8393683937%_ '0)))) - (if (gx#stx-pair? _%tl7624276410%_) - (let ((_%e7624976413%_ + (if (gx#stx-pair? _%tl7711777285%_) + (let ((_%e7712477288%_ (gx#syntax-e - _%tl7624276410%_))) - (let ((_%tl7625176420%_ + _%tl7711777285%_))) + (let ((_%tl7712677295%_ (let () (declare (not safe)) - (##cdr _%e7624976413%_))) - (_%hd7625076417%_ + (##cdr _%e7712477288%_))) + (_%hd7712577292%_ (let () (declare (not safe)) - (##car _%e7624976413%_)))) + (##car _%e7712477288%_)))) (if (gx#identifier? - _%hd7625076417%_) + _%hd7712577292%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84166_| - _%hd7625076417%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85158_| + _%hd7712577292%_) (if (gx#stx-pair? - _%tl7625176420%_) - (let ((_%e7625276423%_ + _%tl7712677295%_) + (let ((_%e7712777298%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7625176420%_))) - (let ((_%tl7625476430%_ + (gx#syntax-e _%tl7712677295%_))) + (let ((_%tl7712977305%_ (let () (declare (not safe)) - (##cdr _%e7625276423%_))) - (_%hd7625376427%_ + (##cdr _%e7712777298%_))) + (_%hd7712877302%_ (let () (declare (not safe)) - (##car _%e7625276423%_)))) - (if (gx#stx-null? _%tl7625476430%_) - (_%__match8300183002%_ - _%__splice8296782968%_ - _%target7624076407%_ - _%tl7624276410%_ - _%e7624976413%_ - _%hd7625076417%_ - _%tl7625176420%_ - _%e7625276423%_ - _%hd7625376427%_ - _%tl7625476430%_) - (let () (declare (not safe)) (_%g7623476400%_))))) - (let () (declare (not safe)) (_%g7623476400%_))) - (let () (declare (not safe)) (_%g7623476400%_))) + (##car _%e7712777298%_)))) + (if (gx#stx-null? _%tl7712977305%_) + (_%__match8397083971%_ + _%__splice8393683937%_ + _%target7711577282%_ + _%tl7711777285%_ + _%e7712477288%_ + _%hd7712577292%_ + _%tl7712677295%_ + _%e7712777298%_ + _%hd7712877302%_ + _%tl7712977305%_) + (let () (declare (not safe)) (_%g7710977275%_))))) + (let () (declare (not safe)) (_%g7710977275%_))) + (let () (declare (not safe)) (_%g7710977275%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g7623476400%_))))) + (_%g7710977275%_))))) (let () (declare (not safe)) - (_%g7623476400%_))))) + (_%g7710977275%_))))) (let () (declare (not safe)) - (_%g7623476400%_))) + (_%g7710977275%_))) (let () (declare (not safe)) - (_%g7623476400%_)))))))) - (_%slot-contract-type69464%_ - (lambda (_%slot-spec76220%_) - (let ((_%contract7622276224%_ - (_%slot-contract69461%_ _%slot-spec76220%_))) - (if _%contract7622276224%_ - (let ((_%contract76228%_ _%contract7622276224%_)) - (_%contract-type69465%_ _%contract76228%_)) + (_%g7710977275%_)))))))) + (_%slot-contract-type70339%_ + (lambda (_%slot-spec77095%_) + (let ((_%contract7709777099%_ + (_%slot-contract70336%_ _%slot-spec77095%_))) + (if _%contract7709777099%_ + (let ((_%contract77103%_ _%contract7709777099%_)) + (_%contract-type70340%_ _%contract77103%_)) '#f)))) - (_%contract-type69465%_ - (lambda (_%contract76028%_) - (let* ((_%__stx8305683057%_ _%contract76028%_) - (_%g7603376065%_ + (_%contract-type70340%_ + (lambda (_%contract76903%_) + (let* ((_%__stx8402584026%_ _%contract76903%_) + (_%g7690876940%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8305683057%_)))) - (let ((_%__kont8305983060%_ - (lambda (_%L76187%_ _%L76189%_ _%L76190%_) - _%L76189%_)) - (_%__kont8306183062%_ - (lambda (_%L76123%_ - _%L76125%_ - _%L76126%_ - _%L76127%_) - _%L76125%_)) - (_%__kont8306383064%_ (lambda () '#f))) - (let* ((_%__match8310583106%_ - (lambda (_%e7604876083%_ - _%hd7604976087%_ - _%tl7605076090%_ - _%e7605176093%_ - _%hd7605276097%_ - _%tl7605376100%_ - _%e7605476103%_ - _%hd7605576107%_ - _%tl7605676110%_ - _%e7605776113%_ - _%hd7605876117%_ - _%tl7605976120%_) - (let ((_%L76123%_ _%tl7605976120%_) - (_%L76125%_ _%hd7605876117%_) - (_%L76126%_ _%hd7605576107%_) - (_%L76127%_ _%hd7605276097%_)) - (if (and (gx#identifier? _%L76126%_) + _%__stx8402584026%_)))) + (let ((_%__kont8402884029%_ + (lambda (_%L77062%_ _%L77064%_ _%L77065%_) + _%L77064%_)) + (_%__kont8403084031%_ + (lambda (_%L76998%_ + _%L77000%_ + _%L77001%_ + _%L77002%_) + _%L77000%_)) + (_%__kont8403284033%_ (lambda () '#f))) + (let* ((_%__match8407484075%_ + (lambda (_%e7692376958%_ + _%hd7692476962%_ + _%tl7692576965%_ + _%e7692676968%_ + _%hd7692776972%_ + _%tl7692876975%_ + _%e7692976978%_ + _%hd7693076982%_ + _%tl7693176985%_ + _%e7693276988%_ + _%hd7693376992%_ + _%tl7693476995%_) + (let ((_%L76998%_ _%tl7693476995%_) + (_%L77000%_ _%hd7693376992%_) + (_%L77001%_ _%hd7693076982%_) + (_%L77002%_ _%hd7692776972%_)) + (if (and (gx#identifier? _%L77001%_) (or (gx#free-identifier=? - _%L76126%_ + _%L77001%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L76126%_ + _%L77001%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L76126%_ + _%L77001%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L76126%_ + _%L77001%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8306183062%_ - _%L76123%_ - _%L76125%_ - _%L76126%_ - _%L76127%_) - (_%__kont8306383064%_))))) - (_%__match8307783078%_ - (lambda (_%e7603876167%_ - _%hd7603976171%_ - _%tl7604076174%_ - _%e7604176177%_ - _%hd7604276181%_ - _%tl7604376184%_) - (let ((_%L76187%_ _%tl7604376184%_) - (_%L76189%_ _%hd7604276181%_) - (_%L76190%_ _%hd7603976171%_)) - (if (and (gx#identifier? _%L76190%_) + (_%__kont8403084031%_ + _%L76998%_ + _%L77000%_ + _%L77001%_ + _%L77002%_) + (_%__kont8403284033%_))))) + (_%__match8404684047%_ + (lambda (_%e7691377042%_ + _%hd7691477046%_ + _%tl7691577049%_ + _%e7691677052%_ + _%hd7691777056%_ + _%tl7691877059%_) + (let ((_%L77062%_ _%tl7691877059%_) + (_%L77064%_ _%hd7691777056%_) + (_%L77065%_ _%hd7691477046%_)) + (if (and (gx#identifier? _%L77065%_) (or (gx#free-identifier=? - _%L76190%_ + _%L77065%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L76190%_ + _%L77065%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L76190%_ + _%L77065%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L76190%_ + _%L77065%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8305983060%_ - _%L76187%_ - _%L76189%_ - _%L76190%_) - (if (gx#identifier? _%hd7603976171%_) + (_%__kont8402884029%_ + _%L77062%_ + _%L77064%_ + _%L77065%_) + (if (gx#identifier? _%hd7691477046%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84167_| - _%hd7603976171%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85159_| + _%hd7691477046%_) (if (gx#stx-pair? - _%tl7604376184%_) - (let ((_%e7605476103%_ + _%tl7691877059%_) + (let ((_%e7692976978%_ (gx#syntax-e - _%tl7604376184%_))) - (let ((_%tl7605676110%_ + _%tl7691877059%_))) + (let ((_%tl7693176985%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e7605476103%_))) - (_%hd7605576107%_ - (let () (declare (not safe)) (##car _%e7605476103%_)))) - (if (gx#stx-pair? _%tl7605676110%_) - (let ((_%e7605776113%_ (gx#syntax-e _%tl7605676110%_))) - (let ((_%tl7605976120%_ + (##cdr _%e7692976978%_))) + (_%hd7693076982%_ + (let () (declare (not safe)) (##car _%e7692976978%_)))) + (if (gx#stx-pair? _%tl7693176985%_) + (let ((_%e7693276988%_ (gx#syntax-e _%tl7693176985%_))) + (let ((_%tl7693476995%_ (let () (declare (not safe)) - (##cdr _%e7605776113%_))) - (_%hd7605876117%_ + (##cdr _%e7693276988%_))) + (_%hd7693376992%_ (let () (declare (not safe)) - (##car _%e7605776113%_)))) - (_%__match8310583106%_ - _%e7603876167%_ - _%hd7603976171%_ - _%tl7604076174%_ - _%e7604176177%_ - _%hd7604276181%_ - _%tl7604376184%_ - _%e7605476103%_ - _%hd7605576107%_ - _%tl7605676110%_ - _%e7605776113%_ - _%hd7605876117%_ - _%tl7605976120%_))) - (_%__kont8306383064%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8306383064%_)) - (_%__kont8306383064%_)) - (_%__kont8306383064%_))))))) - (if (gx#stx-pair? _%__stx8305683057%_) - (let ((_%e7603876167%_ - (gx#syntax-e _%__stx8305683057%_))) - (let ((_%tl7604076174%_ + (##car _%e7693276988%_)))) + (_%__match8407484075%_ + _%e7691377042%_ + _%hd7691477046%_ + _%tl7691577049%_ + _%e7691677052%_ + _%hd7691777056%_ + _%tl7691877059%_ + _%e7692976978%_ + _%hd7693076982%_ + _%tl7693176985%_ + _%e7693276988%_ + _%hd7693376992%_ + _%tl7693476995%_))) + (_%__kont8403284033%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8403284033%_)) + (_%__kont8403284033%_)) + (_%__kont8403284033%_))))))) + (if (gx#stx-pair? _%__stx8402584026%_) + (let ((_%e7691377042%_ + (gx#syntax-e _%__stx8402584026%_))) + (let ((_%tl7691577049%_ (let () (declare (not safe)) - (##cdr _%e7603876167%_))) - (_%hd7603976171%_ + (##cdr _%e7691377042%_))) + (_%hd7691477046%_ (let () (declare (not safe)) - (##car _%e7603876167%_)))) - (if (gx#stx-pair? _%tl7604076174%_) - (let ((_%e7604176177%_ - (gx#syntax-e _%tl7604076174%_))) - (let ((_%tl7604376184%_ + (##car _%e7691377042%_)))) + (if (gx#stx-pair? _%tl7691577049%_) + (let ((_%e7691677052%_ + (gx#syntax-e _%tl7691577049%_))) + (let ((_%tl7691877059%_ (let () (declare (not safe)) - (##cdr _%e7604176177%_))) - (_%hd7604276181%_ + (##cdr _%e7691677052%_))) + (_%hd7691777056%_ (let () (declare (not safe)) - (##car _%e7604176177%_)))) - (_%__match8307783078%_ - _%e7603876167%_ - _%hd7603976171%_ - _%tl7604076174%_ - _%e7604176177%_ - _%hd7604276181%_ - _%tl7604376184%_))) - (_%__kont8306383064%_)))) - (_%__kont8306383064%_))))))) - (_%slot-contract-predicate69466%_ - (lambda (_%slot-spec76017%_) - (let ((_%contract7601976021%_ - (_%slot-contract69461%_ _%slot-spec76017%_))) - (if _%contract7601976021%_ - (let ((_%contract76025%_ _%contract7601976021%_)) - (_%contract-predicate69467%_ _%contract76025%_)) + (##car _%e7691677052%_)))) + (_%__match8404684047%_ + _%e7691377042%_ + _%hd7691477046%_ + _%tl7691577049%_ + _%e7691677052%_ + _%hd7691777056%_ + _%tl7691877059%_))) + (_%__kont8403284033%_)))) + (_%__kont8403284033%_))))))) + (_%slot-contract-predicate70341%_ + (lambda (_%slot-spec76892%_) + (let ((_%contract7689476896%_ + (_%slot-contract70336%_ _%slot-spec76892%_))) + (if _%contract7689476896%_ + (let ((_%contract76900%_ _%contract7689476896%_)) + (_%contract-predicate70342%_ _%contract76900%_)) '#f)))) - (_%contract-predicate69467%_ - (lambda (_%contract75939%_) - (let* ((_%__stx8310883109%_ _%contract75939%_) - (_%g7594375958%_ + (_%contract-predicate70342%_ + (lambda (_%contract76814%_) + (let* ((_%__stx8407784078%_ _%contract76814%_) + (_%g7681876833%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8310883109%_)))) - (let ((_%__kont8311183112%_ - (lambda (_%L75996%_ _%L75998%_) _%L75998%_)) - (_%__kont8311383114%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8310883109%_) - (let ((_%e7594775976%_ - (gx#syntax-e _%__stx8310883109%_))) - (let ((_%tl7594975983%_ + _%__stx8407784078%_)))) + (let ((_%__kont8408084081%_ + (lambda (_%L76871%_ _%L76873%_) _%L76873%_)) + (_%__kont8408284083%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8407784078%_) + (let ((_%e7682276851%_ + (gx#syntax-e _%__stx8407784078%_))) + (let ((_%tl7682476858%_ (let () (declare (not safe)) - (##cdr _%e7594775976%_))) - (_%hd7594875980%_ + (##cdr _%e7682276851%_))) + (_%hd7682376855%_ (let () (declare (not safe)) - (##car _%e7594775976%_)))) - (if (gx#identifier? _%hd7594875980%_) + (##car _%e7682276851%_)))) + (if (gx#identifier? _%hd7682376855%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84168_| - _%hd7594875980%_) - (if (gx#stx-pair? _%tl7594975983%_) - (let ((_%e7595075986%_ + |gerbil/core/contract~TypedDefinitions[1]#_g85160_| + _%hd7682376855%_) + (if (gx#stx-pair? _%tl7682476858%_) + (let ((_%e7682576861%_ (gx#syntax-e - _%tl7594975983%_))) - (let ((_%tl7595275993%_ + _%tl7682476858%_))) + (let ((_%tl7682776868%_ (let () (declare (not safe)) - (##cdr _%e7595075986%_))) - (_%hd7595175990%_ + (##cdr _%e7682576861%_))) + (_%hd7682676865%_ (let () (declare (not safe)) - (##car _%e7595075986%_)))) - (_%__kont8311183112%_ - _%tl7595275993%_ - _%hd7595175990%_))) - (_%__kont8311383114%_)) - (_%__kont8311383114%_)) - (_%__kont8311383114%_)))) - (_%__kont8311383114%_)))))) - (_%slot-default69468%_ - (lambda (_%slot-spec75767%_) - (let* ((_%__stx8313483135%_ _%slot-spec75767%_) - (_%g7577275804%_ + (##car _%e7682576861%_)))) + (_%__kont8408084081%_ + _%tl7682776868%_ + _%hd7682676865%_))) + (_%__kont8408284083%_)) + (_%__kont8408284083%_)) + (_%__kont8408284083%_)))) + (_%__kont8408284083%_)))))) + (_%slot-default70343%_ + (lambda (_%slot-spec76642%_) + (let* ((_%__stx8410384104%_ _%slot-spec76642%_) + (_%g7664776679%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8313483135%_)))) - (let ((_%__kont8313783138%_ - (lambda (_%L75920%_ _%L75922%_) _%L75920%_)) - (_%__kont8313983140%_ - (lambda (_%L75872%_ _%L75874%_) _%L75872%_)) - (_%__kont8314383144%_ (lambda () '#f))) - (let* ((_%__match8318583186%_ - (lambda (_%__splice8314183142%_ - _%target7578475822%_ - _%tl7578675825%_ - _%e7579375828%_ - _%hd7579475832%_ - _%tl7579575835%_ - _%e7579675838%_ - _%hd7579775842%_ - _%tl7579875845%_) - (letrec ((_%loop7578775848%_ - (lambda (_%hd7578575852%_ - _%id7579175855%_) + _%__stx8410384104%_)))) + (let ((_%__kont8410684107%_ + (lambda (_%L76795%_ _%L76797%_) _%L76795%_)) + (_%__kont8410884109%_ + (lambda (_%L76747%_ _%L76749%_) _%L76747%_)) + (_%__kont8411284113%_ (lambda () '#f))) + (let* ((_%__match8415484155%_ + (lambda (_%__splice8411084111%_ + _%target7665976697%_ + _%tl7666176700%_ + _%e7666876703%_ + _%hd7666976707%_ + _%tl7667076710%_ + _%e7667176713%_ + _%hd7667276717%_ + _%tl7667376720%_) + (letrec ((_%loop7666276723%_ + (lambda (_%hd7666076727%_ + _%id7666676730%_) (if (gx#stx-pair? - _%hd7578575852%_) - (let ((_%e7578875858%_ + _%hd7666076727%_) + (let ((_%e7666376733%_ (gx#syntax-e - _%hd7578575852%_))) - (let ((_%lp-tl7579075865%_ + _%hd7666076727%_))) + (let ((_%lp-tl7666576740%_ (let () (declare (not safe)) - (##cdr _%e7578875858%_))) - (_%lp-hd7578975862%_ + (##cdr _%e7666376733%_))) + (_%lp-hd7666476737%_ (let () (declare (not safe)) - (##car _%e7578875858%_)))) - (_%loop7578775848%_ - _%lp-tl7579075865%_ - (cons _%lp-hd7578975862%_ - _%id7579175855%_)))) - (let ((_%id7579275868%_ - (reverse _%id7579175855%_))) - (_%__kont8313983140%_ - _%hd7579775842%_ - _%id7579275868%_)))))) - (_%loop7578775848%_ - _%target7578475822%_ + (##car _%e7666376733%_)))) + (_%loop7666276723%_ + _%lp-tl7666576740%_ + (cons _%lp-hd7666476737%_ + _%id7666676730%_)))) + (let ((_%id7666776743%_ + (reverse _%id7666676730%_))) + (_%__kont8410884109%_ + _%hd7667276717%_ + _%id7666776743%_)))))) + (_%loop7666276723%_ + _%target7665976697%_ '())))) - (_%g7577075893%_ + (_%g7664576768%_ (lambda () - (if (gx#stx-pair/null? _%__stx8313483135%_) - (if (let ((__tmp84169 + (if (gx#stx-pair/null? _%__stx8410384104%_) + (if (let ((__tmp85161 (gx#stx-length - _%__stx8313483135%_))) + _%__stx8410384104%_))) (declare (not safe)) - (##fx>= __tmp84169 '2)) - (let ((_%__splice8314183142%_ + (##fx>= __tmp85161 '2)) + (let ((_%__splice8411084111%_ (gx#syntax-split-splice - _%__stx8313483135%_ + _%__stx8410384104%_ '2))) - (let ((_%tl7578675825%_ + (let ((_%tl7666176700%_ (let () (declare (not safe)) (##vector-ref - _%__splice8314183142%_ + _%__splice8411084111%_ '1))) - (_%target7578475822%_ + (_%target7665976697%_ (let () (declare (not safe)) (##vector-ref - _%__splice8314183142%_ + _%__splice8411084111%_ '0)))) (if (gx#stx-pair? - _%tl7578675825%_) - (let ((_%e7579375828%_ + _%tl7666176700%_) + (let ((_%e7666876703%_ (gx#syntax-e - _%tl7578675825%_))) - (let ((_%tl7579575835%_ + _%tl7666176700%_))) + (let ((_%tl7667076710%_ (let () (declare (not safe)) - (##cdr _%e7579375828%_))) - (_%hd7579475832%_ + (##cdr _%e7666876703%_))) + (_%hd7666976707%_ (let () (declare (not safe)) - (##car _%e7579375828%_)))) + (##car _%e7666876703%_)))) (if (gx#identifier? - _%hd7579475832%_) + _%hd7666976707%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84170_| - _%hd7579475832%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85162_| + _%hd7666976707%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl7579575835%_) - (let ((_%e7579675838%_ - (gx#syntax-e _%tl7579575835%_))) - (let ((_%tl7579875845%_ + _%tl7667076710%_) + (let ((_%e7667176713%_ + (gx#syntax-e _%tl7667076710%_))) + (let ((_%tl7667376720%_ (let () (declare (not safe)) - (##cdr _%e7579675838%_))) - (_%hd7579775842%_ + (##cdr _%e7667176713%_))) + (_%hd7667276717%_ (let () (declare (not safe)) - (##car _%e7579675838%_)))) - (if (gx#stx-null? _%tl7579875845%_) - (_%__match8318583186%_ - _%__splice8314183142%_ - _%target7578475822%_ - _%tl7578675825%_ - _%e7579375828%_ - _%hd7579475832%_ - _%tl7579575835%_ - _%e7579675838%_ - _%hd7579775842%_ - _%tl7579875845%_) - (_%__kont8314383144%_)))) - (_%__kont8314383144%_)) - (_%__kont8314383144%_)) - (_%__kont8314383144%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8314383144%_)))) - (_%__kont8314383144%_)) - (_%__kont8314383144%_))))) - (if (gx#stx-pair? _%__stx8313483135%_) - (let ((_%e7577675900%_ - (gx#syntax-e _%__stx8313483135%_))) - (let ((_%tl7577875907%_ + (##car _%e7667176713%_)))) + (if (gx#stx-null? _%tl7667376720%_) + (_%__match8415484155%_ + _%__splice8411084111%_ + _%target7665976697%_ + _%tl7666176700%_ + _%e7666876703%_ + _%hd7666976707%_ + _%tl7667076710%_ + _%e7667176713%_ + _%hd7667276717%_ + _%tl7667376720%_) + (_%__kont8411284113%_)))) + (_%__kont8411284113%_)) + (_%__kont8411284113%_)) + (_%__kont8411284113%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8411284113%_)))) + (_%__kont8411284113%_)) + (_%__kont8411284113%_))))) + (if (gx#stx-pair? _%__stx8410384104%_) + (let ((_%e7665176775%_ + (gx#syntax-e _%__stx8410384104%_))) + (let ((_%tl7665376782%_ (let () (declare (not safe)) - (##cdr _%e7577675900%_))) - (_%hd7577775904%_ + (##cdr _%e7665176775%_))) + (_%hd7665276779%_ (let () (declare (not safe)) - (##car _%e7577675900%_)))) - (if (gx#stx-pair? _%tl7577875907%_) - (let ((_%e7577975910%_ - (gx#syntax-e _%tl7577875907%_))) - (let ((_%tl7578175917%_ + (##car _%e7665176775%_)))) + (if (gx#stx-pair? _%tl7665376782%_) + (let ((_%e7665476785%_ + (gx#syntax-e _%tl7665376782%_))) + (let ((_%tl7665676792%_ (let () (declare (not safe)) - (##cdr _%e7577975910%_))) - (_%hd7578075914%_ + (##cdr _%e7665476785%_))) + (_%hd7665576789%_ (let () (declare (not safe)) - (##car _%e7577975910%_)))) - (if (gx#stx-null? _%tl7578175917%_) - (_%__kont8313783138%_ - _%hd7578075914%_ - _%hd7577775904%_) + (##car _%e7665476785%_)))) + (if (gx#stx-null? _%tl7665676792%_) + (_%__kont8410684107%_ + _%hd7665576789%_ + _%hd7665276779%_) (let () (declare (not safe)) - (_%g7577075893%_))))) + (_%g7664576768%_))))) (let () (declare (not safe)) - (_%g7577075893%_))))) + (_%g7664576768%_))))) (let () (declare (not safe)) - (_%g7577075893%_)))))))) - (_%infer-slot-type69469%_ - (lambda (_%slot75665%_ _%type-a75667%_ _%type-b75668%_) - (if (not _%type-a75667%_) - _%type-b75668%_ - (if (not _%type-b75668%_) - _%type-a75667%_ + (_%g7664576768%_)))))))) + (_%infer-slot-type70344%_ + (lambda (_%slot76540%_ _%type-a76542%_ _%type-b76543%_) + (if (not _%type-a76542%_) + _%type-b76543%_ + (if (not _%type-b76543%_) + _%type-a76542%_ (if (gx#free-identifier=? - _%type-a75667%_ - _%type-b75668%_) - _%type-a75667%_ - (let _%again75678%_ ((_%klass-a75681%_ + _%type-a76542%_ + _%type-b76543%_) + _%type-a76542%_ + (let _%again76553%_ ((_%klass-a76556%_ (gx#syntax-local-value - _%type-a75667%_)) - (_%klass-b75683%_ + _%type-a76542%_)) + (_%klass-b76558%_ (gx#syntax-local-value - _%type-b75668%_))) - (if (eq? _%klass-a75681%_ _%klass-b75683%_) - _%type-a75667%_ + _%type-b76543%_))) + (if (eq? _%klass-a76556%_ _%klass-b76558%_) + _%type-a76542%_ (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-a75681%_)) + _%klass-a76556%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-b75683%_)) - (if (eq? (let ((__obj83899 - _%klass-a75681%_)) + _%klass-b76558%_)) + (if (eq? (let ((__obj84874 + _%klass-a76556%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj83899 + __obj84874 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83899 '1 '#f '#f)) - (unchecked-slot-ref __obj83899 'id))) - (let ((__obj83900 _%klass-b75683%_)) + (##unchecked-structure-ref __obj84874 '1 '#f '#f)) + (unchecked-slot-ref __obj84874 'id))) + (let ((__obj84875 _%klass-b76558%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83900 + __obj84875 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83900 '1 '#f '#f)) - (unchecked-slot-ref __obj83900 'id)))) + (##unchecked-structure-ref __obj84875 '1 '#f '#f)) + (unchecked-slot-ref __obj84875 'id)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%type-a75667%_ - (if (member _%type-a75667%_ + _%type-a76542%_ + (if (member _%type-a76542%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-b75683%_)) + _%klass-b76558%_)) gx#free-identifier=?) - _%type-b75668%_ - (if (member _%type-b75668%_ + _%type-b76543%_ + (if (member _%type-b76543%_ (let () (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-a75681%_)) + _%klass-a76556%_)) gx#free-identifier=?) - _%type-a75667%_ + _%type-a76542%_ (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%type-b75668%_)))) + _%stx70329%_ + _%slot76540%_ + _%type-a76542%_ + _%type-b76543%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b75683%_)) - (let ((_%$e75701%_ + _%klass-b76558%_)) + (let ((_%$e76576%_ (gx#syntax-local-value - (let ((__obj83897 + (let ((__obj84872 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b75683%_)) + _%klass-b76558%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83897 + __obj84872 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83897 '1 '#f '#f)) - (unchecked-slot-ref __obj83897 'identifier))) + (##unchecked-structure-ref __obj84872 '1 '#f '#f)) + (unchecked-slot-ref __obj84872 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e75701%_ - ((lambda (_%klass-b75705%_) - (_%again75678%_ - _%klass-a75681%_ - _%klass-b75705%_)) - _%$e75701%_) + (if _%$e76576%_ + ((lambda (_%klass-b76580%_) + (_%again76553%_ + _%klass-a76556%_ + _%klass-b76580%_)) + _%$e76576%_) (if (gx#free-identifier=? - _%type-a75667%_ - (let ((__obj83898 + _%type-a76542%_ + (let ((__obj84873 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b75683%_)) + _%klass-b76558%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83898 + __obj84873 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83898 '1 '#f '#f)) - (unchecked-slot-ref __obj83898 'identifier)))) - _%type-a75667%_ + (##unchecked-structure-ref __obj84873 '1 '#f '#f)) + (unchecked-slot-ref __obj84873 'identifier)))) + _%type-a76542%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%type-b75668%_)))) + _%stx70329%_ + _%slot76540%_ + _%type-a76542%_ + _%type-b76543%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%type-b75668%_))) + _%stx70329%_ + _%slot76540%_ + _%type-a76542%_ + _%type-b76543%_))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-a75681%_)) + _%klass-a76556%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-b75683%_)) - (if (member _%type-a75667%_ - (let () - (declare + _%klass-b76558%_)) + (if (member _%type-a76542%_ + (let ((__obj84870 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - _%klass-b75683%_))) - _%type-b75668%_ - (if (member _%type-b75668%_ - (let () - (declare (not safe)) - (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - _%klass-a75681%_))) - _%type-a75667%_ + _%klass-b76558%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj84870 + 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj84870 + '5 + '#f + '#f)) + (unchecked-slot-ref + __obj84870 + 'interface-precedence-list))) + gx#free-identifier=?) + _%type-b76543%_ + (if (member _%type-b76543%_ + (let ((__obj84871 _%klass-a76556%_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj84871 + 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj84871 + '5 + '#f + '#f)) + (unchecked-slot-ref + __obj84871 + 'interface-precedence-list))) + gx#free-identifier=?) + _%type-a76542%_ (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%type-b75668%_))) + _%stx70329%_ + _%slot76540%_ + _%type-a76542%_ + _%type-b76543%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b75683%_)) - (let ((_%$e75726%_ + _%klass-b76558%_)) + (let ((_%$e76601%_ (gx#syntax-local-value - (let ((__obj83895 + (let ((__obj84868 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b75683%_)) + _%klass-b76558%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83895 + __obj84868 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83895 + __obj84868 '1 '#f '#f)) - (unchecked-slot-ref __obj83895 'identifier))) + (unchecked-slot-ref __obj84868 'identifier))) false))) - (if _%$e75726%_ - ((lambda (_%klass-b75730%_) - (_%again75678%_ _%klass-a75681%_ _%klass-b75730%_)) - _%$e75726%_) + (if _%$e76601%_ + ((lambda (_%klass-b76605%_) + (_%again76553%_ _%klass-a76556%_ _%klass-b76605%_)) + _%$e76601%_) (if (gx#free-identifier=? - _%type-a75667%_ - (let ((__obj83896 _%klass-b75683%_)) + _%type-a76542%_ + (let ((__obj84869 _%klass-b76558%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83896 + __obj84869 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83896 + __obj84869 '1 '#f '#f)) - (unchecked-slot-ref __obj83896 'identifier)))) - _%type-a75667%_ + (unchecked-slot-ref __obj84869 'identifier)))) + _%type-a76542%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%type-b75668%_)))) + _%stx70329%_ + _%slot76540%_ + _%type-a76542%_ + _%type-b76543%_)))) (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%type-b75668%_))) + _%stx70329%_ + _%slot76540%_ + _%type-a76542%_ + _%type-b76543%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-a75681%_)) - (let ((_%$e75741%_ + _%klass-a76556%_)) + (let ((_%$e76616%_ (gx#syntax-local-value - (let ((__obj83890 + (let ((__obj84863 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-a75681%_)) + _%klass-a76556%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83890 + __obj84863 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83890 '1 '#f '#f)) - (unchecked-slot-ref __obj83890 'identifier))) + (##unchecked-structure-ref __obj84863 '1 '#f '#f)) + (unchecked-slot-ref __obj84863 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e75741%_ - ((lambda (_%klass-a75745%_) - (_%again75678%_ - _%klass-a75745%_ - _%klass-b75683%_)) - _%$e75741%_) + (if _%$e76616%_ + ((lambda (_%klass-a76620%_) + (_%again76553%_ + _%klass-a76620%_ + _%klass-b76558%_)) + _%$e76616%_) (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b75683%_)) - (let ((_%$e75750%_ + _%klass-b76558%_)) + (let ((_%$e76625%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-local-value - (let ((__obj83892 _%klass-b75683%_)) + (let ((__obj84865 _%klass-b76558%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83892 + __obj84865 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83892 + __obj84865 '1 '#f '#f)) - (unchecked-slot-ref __obj83892 'identifier))) + (unchecked-slot-ref __obj84865 'identifier))) false))) - (if _%$e75750%_ - ((lambda (_%klass-b75754%_) - (_%again75678%_ - _%klass-a75681%_ - _%klass-b75754%_)) - _%$e75750%_) + (if _%$e76625%_ + ((lambda (_%klass-b76629%_) + (_%again76553%_ + _%klass-a76556%_ + _%klass-b76629%_)) + _%$e76625%_) (if (gx#free-identifier=? - (let ((__obj83893 _%klass-a75681%_)) + (let ((__obj84866 _%klass-a76556%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83893 + __obj84866 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83893 + __obj84866 '1 '#f '#f)) (unchecked-slot-ref - __obj83893 + __obj84866 'identifier))) - (let ((__obj83894 _%klass-b75683%_)) + (let ((__obj84867 _%klass-b76558%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83894 + __obj84867 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83894 + __obj84867 '1 '#f '#f)) (unchecked-slot-ref - __obj83894 + __obj84867 'identifier)))) - _%type-a75667%_ + _%type-a76542%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%type-b75668%_)))) + _%stx70329%_ + _%slot76540%_ + _%type-a76542%_ + _%type-b76543%_)))) (if (gx#free-identifier=? - _%type-b75668%_ - (let ((__obj83891 _%klass-a75681%_)) + _%type-b76543%_ + (let ((__obj84864 _%klass-a76556%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83891 + __obj84864 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83891 + __obj84864 '1 '#f '#f)) - (unchecked-slot-ref __obj83891 'identifier)))) - _%type-b75668%_ + (unchecked-slot-ref __obj84864 'identifier)))) + _%type-b76543%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%type-b75668%_))))) + _%stx70329%_ + _%slot76540%_ + _%type-a76542%_ + _%type-b76543%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"unexpected slot type" - _%stx69454%_ - _%slot75665%_ - _%type-a75667%_ - _%klass-a75681%_))))))))))) - (_%get-mixin-slots69470%_ - (lambda (_%super75536%_) - (letrec* ((_%tab75539%_ (make-hash-table-eq))) - (let _%loop75542%_ ((_%rest75545%_ _%super75536%_) - (_%result75547%_ '())) - (let* ((_%rest7554875556%_ _%rest75545%_) - (_%else7555075568%_ + _%stx70329%_ + _%slot76540%_ + _%type-a76542%_ + _%klass-a76556%_))))))))))) + (_%get-mixin-slots70345%_ + (lambda (_%super76411%_) + (letrec* ((_%tab76414%_ (make-hash-table-eq))) + (let _%loop76417%_ ((_%rest76420%_ _%super76411%_) + (_%result76422%_ '())) + (let* ((_%rest7642376431%_ _%rest76420%_) + (_%else7642576443%_ (lambda () - (values (reverse! _%result75547%_) - _%tab75539%_))) - (_%K7555275649%_ - (lambda (_%rest75572%_ _%type-id75574%_) - (let* ((_%klass75576%_ + (values (reverse! _%result76422%_) + _%tab76414%_))) + (_%K7642776524%_ + (lambda (_%rest76447%_ _%type-id76449%_) + (let* ((_%klass76451%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx69454%_ - _%type-id75574%_))) - (_%slots75579%_ - (let ((__obj83901 _%klass75576%_)) + _%stx70329%_ + _%type-id76449%_))) + (_%slots76454%_ + (let ((__obj84876 _%klass76451%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83901 + __obj84876 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83901 + __obj84876 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83901 + __obj84876 'slots))))) - (let _%loop-inner75584%_ ((_%rest-slots75587%_ - _%slots75579%_) - (_%result75589%_ - _%result75547%_)) - (let* ((_%rest-slots7559075598%_ - _%rest-slots75587%_) - (_%else7559275610%_ + (let _%loop-inner76459%_ ((_%rest-slots76462%_ + _%slots76454%_) + (_%result76464%_ + _%result76422%_)) + (let* ((_%rest-slots7646576473%_ + _%rest-slots76462%_) + (_%else7646776485%_ (lambda () - (_%loop75542%_ + (_%loop76417%_ (foldr cons - _%rest75572%_ - (let ((__obj83902 - _%klass75576%_)) + _%rest76447%_ + (let ((__obj84877 + _%klass76451%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj83902 + __obj84877 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83902 '3 '#f '#f)) + (##unchecked-structure-ref __obj84877 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83902 + __obj84877 'super)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%result75589%_))) - (_%K7559475633%_ - (lambda (_%rest-slots75614%_ - _%slot75616%_) - (let ((_%slot-type75618%_ + _%result76464%_))) + (_%K7646976508%_ + (lambda (_%rest-slots76489%_ + _%slot76491%_) + (let ((_%slot-type76493%_ (hash-ref - _%tab75539%_ - _%slot75616%_ + _%tab76414%_ + _%slot76491%_ absent-value))) - (if (eq? _%slot-type75618%_ + (if (eq? _%slot-type76493%_ absent-value) (let () (hash-put! - _%tab75539%_ - _%slot75616%_ + _%tab76414%_ + _%slot76491%_ (let () (declare (not safe)) (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass75576%_ - _%slot75616%_))) - (_%loop-inner75584%_ - _%rest-slots75614%_ - (cons _%slot75616%_ - _%result75589%_))) - (if (not _%slot-type75618%_) + _%klass76451%_ + _%slot76491%_))) + (_%loop-inner76459%_ + _%rest-slots76489%_ + (cons _%slot76491%_ + _%result76464%_))) + (if (not _%slot-type76493%_) (let () (hash-put! - _%tab75539%_ - _%slot75616%_ + _%tab76414%_ + _%slot76491%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass75576%_ - _%slot75616%_))) - (_%loop-inner75584%_ _%rest-slots75614%_ _%result75589%_)) - (let* ((_%other-slot-type75627%_ + _%klass76451%_ + _%slot76491%_))) + (_%loop-inner76459%_ _%rest-slots76489%_ _%result76464%_)) + (let* ((_%other-slot-type76502%_ (let () (declare (not safe)) (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass75576%_ - _%slot75616%_))) - (_%slot-type75630%_ - (_%infer-slot-type69469%_ - _%slot75616%_ - _%other-slot-type75627%_ - _%slot-type75618%_))) - (hash-put! _%tab75539%_ _%slot75616%_ _%slot-type75630%_) - (_%loop-inner75584%_ - _%rest-slots75614%_ - _%result75589%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest-slots7559075598%_) - (let ((_%hd7559575637%_ + _%klass76451%_ + _%slot76491%_))) + (_%slot-type76505%_ + (_%infer-slot-type70344%_ + _%slot76491%_ + _%other-slot-type76502%_ + _%slot-type76493%_))) + (hash-put! _%tab76414%_ _%slot76491%_ _%slot-type76505%_) + (_%loop-inner76459%_ + _%rest-slots76489%_ + _%result76464%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (pair? _%rest-slots7646576473%_) + (let ((_%hd7647076512%_ (let () (declare (not safe)) - (##car _%rest-slots7559075598%_))) - (_%tl7559675640%_ + (##car _%rest-slots7646576473%_))) + (_%tl7647176515%_ (let () (declare (not safe)) - (##cdr _%rest-slots7559075598%_)))) - (let* ((_%slot75643%_ - _%hd7559575637%_) - (_%rest-slots75646%_ - _%tl7559675640%_)) - (_%K7559475633%_ - _%rest-slots75646%_ - _%slot75643%_))) - (_%else7559275610%_)))))))) - (if (pair? _%rest7554875556%_) - (let ((_%hd7555375653%_ + (##cdr _%rest-slots7646576473%_)))) + (let* ((_%slot76518%_ + _%hd7647076512%_) + (_%rest-slots76521%_ + _%tl7647176515%_)) + (_%K7646976508%_ + _%rest-slots76521%_ + _%slot76518%_))) + (_%else7646776485%_)))))))) + (if (pair? _%rest7642376431%_) + (let ((_%hd7642876528%_ (let () (declare (not safe)) - (##car _%rest7554875556%_))) - (_%tl7555475656%_ + (##car _%rest7642376431%_))) + (_%tl7642976531%_ (let () (declare (not safe)) - (##cdr _%rest7554875556%_)))) - (let* ((_%type-id75659%_ _%hd7555375653%_) - (_%rest75662%_ _%tl7555475656%_)) - (_%K7555275649%_ - _%rest75662%_ - _%type-id75659%_))) - (_%else7555075568%_))))))) - (_%get-slot-table69471%_ - (lambda (_%slots75479%_ - _%mixin-slots75481%_ - _%super75482%_ - _%contract-e75483%_ - _%getf75484%_ - _%mixf75485%_) - (letrec* ((_%tab75487%_ (make-hash-table-eq))) + (##cdr _%rest7642376431%_)))) + (let* ((_%type-id76534%_ _%hd7642876528%_) + (_%rest76537%_ _%tl7642976531%_)) + (_%K7642776524%_ + _%rest76537%_ + _%type-id76534%_))) + (_%else7642576443%_))))))) + (_%get-slot-table70346%_ + (lambda (_%slots76354%_ + _%mixin-slots76356%_ + _%super76357%_ + _%contract-e76358%_ + _%getf76359%_ + _%mixf76360%_) + (letrec* ((_%tab76362%_ (make-hash-table-eq))) (for-each - (lambda (_%slot75490%_) + (lambda (_%slot76365%_) (for-each - (lambda (_%super-type75493%_) - (let* ((_%klass75496%_ + (lambda (_%super-type76368%_) + (let* ((_%klass76371%_ (gx#syntax-local-value - _%super-type75493%_)) - (_%$e75499%_ - (hash-get _%tab75487%_ _%slot75490%_))) - (if _%$e75499%_ - ((lambda (_%a75503%_) - (let ((_%$e75506%_ - (_%getf75484%_ - _%klass75496%_ - _%slot75490%_))) - (if _%$e75506%_ - ((lambda (_%b75510%_) + _%super-type76368%_)) + (_%$e76374%_ + (hash-get _%tab76362%_ _%slot76365%_))) + (if _%$e76374%_ + ((lambda (_%a76378%_) + (let ((_%$e76381%_ + (_%getf76359%_ + _%klass76371%_ + _%slot76365%_))) + (if _%$e76381%_ + ((lambda (_%b76385%_) (hash-put! - _%tab75487%_ - _%slot75490%_ - (_%mixf75485%_ - _%slot75490%_ - _%a75503%_ - _%b75510%_))) - _%$e75506%_) + _%tab76362%_ + _%slot76365%_ + (_%mixf76360%_ + _%slot76365%_ + _%a76378%_ + _%b76385%_))) + _%$e76381%_) '#!void))) - _%$e75499%_) - (let ((_%$e75513%_ - (_%getf75484%_ - _%klass75496%_ - _%slot75490%_))) - (if _%$e75513%_ - ((lambda (_%a75517%_) + _%$e76374%_) + (let ((_%$e76388%_ + (_%getf76359%_ + _%klass76371%_ + _%slot76365%_))) + (if _%$e76388%_ + ((lambda (_%a76392%_) (hash-put! - _%tab75487%_ - _%slot75490%_ - _%a75517%_)) - _%$e75513%_) + _%tab76362%_ + _%slot76365%_ + _%a76392%_)) + _%$e76388%_) '#!void))))) - _%super75482%_)) - _%mixin-slots75481%_) + _%super76357%_)) + _%mixin-slots76356%_) (for-each - (lambda (_%slot-spec75520%_) - (let ((_%slot75523%_ - (_%slot-name69460%_ _%slot-spec75520%_)) - (_%a75525%_ - (_%contract-e75483%_ _%slot-spec75520%_))) - (if _%a75525%_ - (let ((_%$e75527%_ - (hash-get _%tab75487%_ _%slot75523%_))) - (if _%$e75527%_ - ((lambda (_%b75531%_) + (lambda (_%slot-spec76395%_) + (let ((_%slot76398%_ + (_%slot-name70335%_ _%slot-spec76395%_)) + (_%a76400%_ + (_%contract-e76358%_ _%slot-spec76395%_))) + (if _%a76400%_ + (let ((_%$e76402%_ + (hash-get _%tab76362%_ _%slot76398%_))) + (if _%$e76402%_ + ((lambda (_%b76406%_) (hash-put! - _%tab75487%_ - _%slot75523%_ - (_%mixf75485%_ - _%slot75523%_ - _%a75525%_ - _%b75531%_))) - _%$e75527%_) + _%tab76362%_ + _%slot76398%_ + (_%mixf76360%_ + _%slot76398%_ + _%a76400%_ + _%b76406%_))) + _%$e76402%_) (hash-put! - _%tab75487%_ - _%slot75523%_ - _%a75525%_))) + _%tab76362%_ + _%slot76398%_ + _%a76400%_))) '#!void))) - _%slots75479%_) - _%tab75487%_))) - (_%get-slot-contracts69472%_ - (lambda (_%slots73915%_ - _%mixin-slots73917%_ - _%super73918%_ - _%slot-type-table73919%_) - (_%get-slot-table69471%_ - _%slots73915%_ - _%mixin-slots73917%_ - _%super73918%_ - _%slot-contract-normalize69462%_ + _%slots76354%_) + _%tab76362%_))) + (_%get-slot-contracts70347%_ + (lambda (_%slots74790%_ + _%mixin-slots74792%_ + _%super74793%_ + _%slot-type-table74794%_) + (_%get-slot-table70346%_ + _%slots74790%_ + _%mixin-slots74792%_ + _%super74793%_ + _%slot-contract-normalize70337%_ |gerbil/core/contract~Using[1]#!class-slot-contract| - (lambda (_%slot73921%_ _%a73923%_ _%b73924%_) - (let* ((_%__stx8345683457%_ _%a73923%_) - (_%g7398674039%_ + (lambda (_%slot74796%_ _%a74798%_ _%b74799%_) + (let* ((_%__stx8442584426%_ _%a74798%_) + (_%g7486174914%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8345683457%_)))) - (let ((_%__kont8345983460%_ + _%__stx8442584426%_)))) + (let ((_%__kont8442884429%_ (lambda () - (let* ((_%__stx8342483425%_ _%b73924%_) - (_%g7530975327%_ + (let* ((_%__stx8439384394%_ _%b74799%_) + (_%g7618476202%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8342483425%_)))) - (let ((_%__kont8342783428%_ - (lambda (_%L75421%_) - (let* ((_%g7544075448%_ - (lambda (_%g7544175444%_) + _%__stx8439384394%_)))) + (let ((_%__kont8439684397%_ + (lambda (_%L76296%_) + (let* ((_%g7631576323%_ + (lambda (_%g7631676319%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7544175444%_))) - (_%g7543975467%_ - (lambda (_%g7544175452%_) - ((lambda (_%L75455%_) + _%g7631676319%_))) + (_%g7631476342%_ + (lambda (_%g7631676327%_) + ((lambda (_%L76330%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':) - (cons _%L75455%_ '()))) - _%g7544175452%_)))) + (cons _%L76330%_ '()))) + _%g7631676327%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7543975467%_ + (_%g7631476342%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_))))) - (_%__kont8342983430%_ - (lambda (_%L75354%_) - (let* ((_%g7537375381%_ - (lambda (_%g7537475377%_) + _%slot-type-table74794%_ + _%slot74796%_))))) + (_%__kont8439884399%_ + (lambda (_%L76229%_) + (let* ((_%g7624876256%_ + (lambda (_%g7624976252%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7537475377%_))) - (_%g7537275400%_ - (lambda (_%g7537475385%_) - ((lambda (_%L75388%_) + _%g7624976252%_))) + (_%g7624776275%_ + (lambda (_%g7624976260%_) + ((lambda (_%L76263%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L75354%_ + (cons _%L76229%_ (cons (gx#datum->syntax '#f ':) - (cons _%L75388%_ '()))))) - _%g7537475385%_)))) + (cons _%L76263%_ '()))))) + _%g7624976260%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7537275400%_ + (_%g7624776275%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_)))))) - (let ((_%__match8343783438%_ - (lambda (_%e7531275411%_ - _%hd7531375415%_ - _%tl7531475418%_) - (let ((_%L75421%_ - _%hd7531375415%_)) + _%slot-type-table74794%_ + _%slot74796%_)))))) + (let ((_%__match8440684407%_ + (lambda (_%e7618776286%_ + _%hd7618876290%_ + _%tl7618976293%_) + (let ((_%L76296%_ + _%hd7618876290%_)) (if (or (gx#free-identifier=? - _%L75421%_ + _%L76296%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L75421%_ + _%L76296%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L75421%_ + _%L76296%_ (gx#datum->syntax '#f ':-))) - (_%__kont8342783428%_ - _%L75421%_) + (_%__kont8439684397%_ + _%L76296%_) (if (gx#identifier? - _%hd7531375415%_) + _%hd7618876290%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84171_| - _%hd7531375415%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85163_| + _%hd7618876290%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl7531475418%_) - (let ((_%e7531975344%_ - (gx#syntax-e _%tl7531475418%_))) - (let ((_%tl7532175351%_ + _%tl7618976293%_) + (let ((_%e7619476219%_ + (gx#syntax-e _%tl7618976293%_))) + (let ((_%tl7619676226%_ (let () (declare (not safe)) - (##cdr _%e7531975344%_))) - (_%hd7532075348%_ + (##cdr _%e7619476219%_))) + (_%hd7619576223%_ (let () (declare (not safe)) - (##car _%e7531975344%_)))) - (_%__kont8342983430%_ _%hd7532075348%_))) - (let () (declare (not safe)) (_%g7530975327%_))) - (let () (declare (not safe)) (_%g7530975327%_))) - (let () (declare (not safe)) (_%g7530975327%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8342483425%_) - (let ((_%e7531275411%_ + (##car _%e7619476219%_)))) + (_%__kont8439884399%_ _%hd7619576223%_))) + (let () (declare (not safe)) (_%g7618476202%_))) + (let () (declare (not safe)) (_%g7618476202%_))) + (let () (declare (not safe)) (_%g7618476202%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%__stx8439384394%_) + (let ((_%e7618776286%_ (gx#syntax-e - _%__stx8342483425%_))) - (let ((_%tl7531475418%_ + _%__stx8439384394%_))) + (let ((_%tl7618976293%_ (let () (declare (not safe)) - (##cdr _%e7531275411%_))) - (_%hd7531375415%_ + (##cdr _%e7618776286%_))) + (_%hd7618876290%_ (let () (declare (not safe)) - (##car _%e7531275411%_)))) - (_%__match8343783438%_ - _%e7531275411%_ - _%hd7531375415%_ - _%tl7531475418%_))) + (##car _%e7618776286%_)))) + (_%__match8440684407%_ + _%e7618776286%_ + _%hd7618876290%_ + _%tl7618976293%_))) (let () (declare (not safe)) - (_%g7530975327%_)))))))) - (_%__kont8346183462%_ + (_%g7618476202%_)))))))) + (_%__kont8443084431%_ (lambda () - (let* ((_%__stx8337683377%_ _%b73924%_) - (_%g7510575125%_ + (let* ((_%__stx8434584346%_ _%b74799%_) + (_%g7598076000%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8337683377%_)))) - (let ((_%__kont8337983380%_ + _%__stx8434584346%_)))) + (let ((_%__kont8434884349%_ (lambda () - (let* ((_%g7524775255%_ - (lambda (_%g7524875251%_) + (let* ((_%g7612276130%_ + (lambda (_%g7612376126%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7524875251%_))) - (_%g7524675279%_ - (lambda (_%g7524875259%_) - ((lambda (_%L75262%_) + _%g7612376126%_))) + (_%g7612176154%_ + (lambda (_%g7612376134%_) + ((lambda (_%L76137%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':?) - (cons _%L75262%_ '()))) - _%g7524875259%_)))) + (cons _%L76137%_ '()))) + _%g7612376134%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7524675279%_ + (_%g7612176154%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_))))) - (_%__kont8338183382%_ - (lambda (_%L75173%_) - (let* ((_%g7519575203%_ - (lambda (_%g7519675199%_) + _%slot-type-table74794%_ + _%slot74796%_))))) + (_%__kont8435084351%_ + (lambda (_%L76048%_) + (let* ((_%g7607076078%_ + (lambda (_%g7607176074%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7519675199%_))) - (_%g7519475222%_ - (lambda (_%g7519675207%_) - ((lambda (_%L75210%_) + _%g7607176074%_))) + (_%g7606976097%_ + (lambda (_%g7607176082%_) + ((lambda (_%L76085%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L75173%_ + (cons _%L76048%_ (cons (gx#datum->syntax '#f ':?) - (cons _%L75210%_ '()))))) - _%g7519675207%_)))) + (cons _%L76085%_ '()))))) + _%g7607176082%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7519475222%_ + (_%g7606976097%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_))))) - (_%__kont8338383384%_ + _%slot-type-table74794%_ + _%slot74796%_))))) + (_%__kont8435284353%_ (lambda () (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx69454%_ - _%slot73921%_ - _%a73923%_ - _%b73924%_)))) - (if (gx#stx-pair? _%__stx8337683377%_) - (let ((_%e7510775233%_ + _%stx70329%_ + _%slot74796%_ + _%a74798%_ + _%b74799%_)))) + (if (gx#stx-pair? _%__stx8434584346%_) + (let ((_%e7598276108%_ (gx#syntax-e - _%__stx8337683377%_))) - (let ((_%tl7510975240%_ + _%__stx8434584346%_))) + (let ((_%tl7598476115%_ (let () (declare (not safe)) - (##cdr _%e7510775233%_))) - (_%hd7510875237%_ + (##cdr _%e7598276108%_))) + (_%hd7598376112%_ (let () (declare (not safe)) - (##car _%e7510775233%_)))) + (##car _%e7598276108%_)))) (if (gx#identifier? - _%hd7510875237%_) + _%hd7598376112%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84172_| - _%hd7510875237%_) - (_%__kont8337983380%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85164_| + _%hd7598376112%_) + (_%__kont8434884349%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84173_| - _%hd7510875237%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85165_| + _%hd7598376112%_) (if (gx#stx-pair? - _%tl7510975240%_) - (let ((_%e7511475153%_ + _%tl7598476115%_) + (let ((_%e7598976028%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7510975240%_))) - (let ((_%tl7511675160%_ + (gx#syntax-e _%tl7598476115%_))) + (let ((_%tl7599176035%_ (let () (declare (not safe)) - (##cdr _%e7511475153%_))) - (_%hd7511575157%_ + (##cdr _%e7598976028%_))) + (_%hd7599076032%_ (let () (declare (not safe)) - (##car _%e7511475153%_)))) - (if (gx#stx-pair? _%tl7511675160%_) - (let ((_%e7511775163%_ - (gx#syntax-e _%tl7511675160%_))) - (let ((_%tl7511975170%_ + (##car _%e7598976028%_)))) + (if (gx#stx-pair? _%tl7599176035%_) + (let ((_%e7599276038%_ + (gx#syntax-e _%tl7599176035%_))) + (let ((_%tl7599476045%_ (let () (declare (not safe)) - (##cdr _%e7511775163%_))) - (_%hd7511875167%_ + (##cdr _%e7599276038%_))) + (_%hd7599376042%_ (let () (declare (not safe)) - (##car _%e7511775163%_)))) - (if (gx#identifier? _%hd7511875167%_) + (##car _%e7599276038%_)))) + (if (gx#identifier? _%hd7599376042%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84174_| - _%hd7511875167%_) - (_%__kont8338183382%_ - _%hd7511575157%_) - (_%__kont8338383384%_)) - (_%__kont8338383384%_)))) - (_%__kont8338383384%_)))) - (_%__kont8338383384%_)) - (_%__kont8338383384%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8338383384%_)))) - (_%__kont8338383384%_)))))) - (_%__kont8346383464%_ + |gerbil/core/contract~TypedDefinitions[1]#_g85166_| + _%hd7599376042%_) + (_%__kont8435084351%_ + _%hd7599076032%_) + (_%__kont8435284353%_)) + (_%__kont8435284353%_)))) + (_%__kont8435284353%_)))) + (_%__kont8435284353%_)) + (_%__kont8435284353%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8435284353%_)))) + (_%__kont8435284353%_)))))) + (_%__kont8443284433%_ (lambda () - (let* ((_%__stx8334483345%_ _%b73924%_) - (_%g7491374932%_ + (let* ((_%__stx8431384314%_ _%b74799%_) + (_%g7578875807%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8334483345%_)))) - (let ((_%__kont8334783348%_ - (lambda (_%L75028%_) - (let* ((_%g7504775055%_ - (lambda (_%g7504875051%_) + _%__stx8431384314%_)))) + (let ((_%__kont8431684317%_ + (lambda (_%L75903%_) + (let* ((_%g7592275930%_ + (lambda (_%g7592375926%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7504875051%_))) - (_%g7504675074%_ - (lambda (_%g7504875059%_) - ((lambda (_%L75062%_) + _%g7592375926%_))) + (_%g7592175949%_ + (lambda (_%g7592375934%_) + ((lambda (_%L75937%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':-) - (cons _%L75062%_ '()))) - _%g7504875059%_)))) + (cons _%L75937%_ '()))) + _%g7592375934%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7504675074%_ + (_%g7592175949%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_))))) - (_%__kont8334983350%_ - (lambda (_%L74959%_ _%L74961%_) - (let* ((_%g7498074988%_ - (lambda (_%g7498174984%_) + _%slot-type-table74794%_ + _%slot74796%_))))) + (_%__kont8431884319%_ + (lambda (_%L75834%_ _%L75836%_) + (let* ((_%g7585575863%_ + (lambda (_%g7585675859%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7498174984%_))) - (_%g7497975007%_ - (lambda (_%g7498174992%_) - ((lambda (_%L74995%_) + _%g7585675859%_))) + (_%g7585475882%_ + (lambda (_%g7585675867%_) + ((lambda (_%L75870%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L74961%_ + (cons _%L75836%_ (cons (gx#datum->syntax '#f ':-) - (cons _%L74995%_ '()))))) - _%g7498174992%_)))) + (cons _%L75870%_ '()))))) + _%g7585675867%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7497975007%_ + (_%g7585475882%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_)))))) - (let ((_%__match8335783358%_ - (lambda (_%e7491675018%_ - _%hd7491775022%_ - _%tl7491875025%_) - (let ((_%L75028%_ - _%hd7491775022%_)) + _%slot-type-table74794%_ + _%slot74796%_)))))) + (let ((_%__match8432684327%_ + (lambda (_%e7579175893%_ + _%hd7579275897%_ + _%tl7579375900%_) + (let ((_%L75903%_ + _%hd7579275897%_)) (if (or (gx#free-identifier=? - _%L75028%_ + _%L75903%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L75028%_ + _%L75903%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L75028%_ + _%L75903%_ (gx#datum->syntax '#f ':-))) - (_%__kont8334783348%_ - _%L75028%_) + (_%__kont8431684317%_ + _%L75903%_) (if (gx#identifier? - _%hd7491775022%_) + _%hd7579275897%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84175_| - _%hd7491775022%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85167_| + _%hd7579275897%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl7491875025%_) - (let ((_%e7492474949%_ - (gx#syntax-e _%tl7491875025%_))) - (let ((_%tl7492674956%_ + _%tl7579375900%_) + (let ((_%e7579975824%_ + (gx#syntax-e _%tl7579375900%_))) + (let ((_%tl7580175831%_ (let () (declare (not safe)) - (##cdr _%e7492474949%_))) - (_%hd7492574953%_ + (##cdr _%e7579975824%_))) + (_%hd7580075828%_ (let () (declare (not safe)) - (##car _%e7492474949%_)))) - (_%__kont8334983350%_ - _%tl7492674956%_ - _%hd7492574953%_))) - (let () (declare (not safe)) (_%g7491374932%_))) - (let () (declare (not safe)) (_%g7491374932%_))) - (let () (declare (not safe)) (_%g7491374932%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8334483345%_) - (let ((_%e7491675018%_ + (##car _%e7579975824%_)))) + (_%__kont8431884319%_ + _%tl7580175831%_ + _%hd7580075828%_))) + (let () (declare (not safe)) (_%g7578875807%_))) + (let () (declare (not safe)) (_%g7578875807%_))) + (let () (declare (not safe)) (_%g7578875807%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%__stx8431384314%_) + (let ((_%e7579175893%_ (gx#syntax-e - _%__stx8334483345%_))) - (let ((_%tl7491875025%_ + _%__stx8431384314%_))) + (let ((_%tl7579375900%_ (let () (declare (not safe)) - (##cdr _%e7491675018%_))) - (_%hd7491775022%_ + (##cdr _%e7579175893%_))) + (_%hd7579275897%_ (let () (declare (not safe)) - (##car _%e7491675018%_)))) - (_%__match8335783358%_ - _%e7491675018%_ - _%hd7491775022%_ - _%tl7491875025%_))) + (##car _%e7579175893%_)))) + (_%__match8432684327%_ + _%e7579175893%_ + _%hd7579275897%_ + _%tl7579375900%_))) (let () (declare (not safe)) - (_%g7491374932%_)))))))) - (_%__kont8346583466%_ - (lambda (_%L74740%_) - (let* ((_%__stx8331883319%_ _%b73924%_) - (_%g7475674770%_ + (_%g7578875807%_)))))))) + (_%__kont8443484435%_ + (lambda (_%L75615%_) + (let* ((_%__stx8428784288%_ _%b74799%_) + (_%g7563175645%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8331883319%_)))) - (let ((_%__kont8332183322%_ - (lambda (_%L74843%_) - (let* ((_%g7485674864%_ - (lambda (_%g7485774860%_) + _%__stx8428784288%_)))) + (let ((_%__kont8429084291%_ + (lambda (_%L75718%_) + (let* ((_%g7573175739%_ + (lambda (_%g7573275735%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7485774860%_))) - (_%g7485574883%_ - (lambda (_%g7485774868%_) - ((lambda (_%L74871%_) + _%g7573275735%_))) + (_%g7573075758%_ + (lambda (_%g7573275743%_) + ((lambda (_%L75746%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L74740%_ - (cons _%L74843%_ '()))) + (cons _%L75615%_ + (cons _%L75718%_ '()))) '())) (cons (gx#datum->syntax '#f ':) - (cons _%L74871%_ '()))))) - _%g7485774868%_)))) + (cons _%L75746%_ '()))))) + _%g7573275743%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7485574883%_ + (_%g7573075758%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_))))) - (_%__kont8332383324%_ + _%slot-type-table74794%_ + _%slot74796%_))))) + (_%__kont8429284293%_ (lambda () - (let* ((_%g7478174789%_ - (lambda (_%g7478274785%_) + (let* ((_%g7565675664%_ + (lambda (_%g7565775660%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7478274785%_))) - (_%g7478074812%_ - (lambda (_%g7478274793%_) - ((lambda (_%L74796%_) + _%g7565775660%_))) + (_%g7565575687%_ + (lambda (_%g7565775668%_) + ((lambda (_%L75671%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L74740%_ + (cons _%L75615%_ (cons (gx#datum->syntax '#f ':) - (cons _%L74796%_ '()))))) - _%g7478274793%_)))) + (cons _%L75671%_ '()))))) + _%g7565775668%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7478074812%_ + (_%g7565575687%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_)))))) - (if (gx#stx-pair? _%__stx8331883319%_) - (let ((_%e7475974823%_ + _%slot-type-table74794%_ + _%slot74796%_)))))) + (if (gx#stx-pair? _%__stx8428784288%_) + (let ((_%e7563475698%_ (gx#syntax-e - _%__stx8331883319%_))) - (let ((_%tl7476174830%_ + _%__stx8428784288%_))) + (let ((_%tl7563675705%_ (let () (declare (not safe)) - (##cdr _%e7475974823%_))) - (_%hd7476074827%_ + (##cdr _%e7563475698%_))) + (_%hd7563575702%_ (let () (declare (not safe)) - (##car _%e7475974823%_)))) + (##car _%e7563475698%_)))) (if (gx#identifier? - _%hd7476074827%_) + _%hd7563575702%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84176_| - _%hd7476074827%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85168_| + _%hd7563575702%_) (if (gx#stx-pair? - _%tl7476174830%_) - (let ((_%e7476274833%_ + _%tl7563675705%_) + (let ((_%e7563775708%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7476174830%_))) - (let ((_%tl7476474840%_ + (gx#syntax-e _%tl7563675705%_))) + (let ((_%tl7563975715%_ (let () (declare (not safe)) - (##cdr _%e7476274833%_))) - (_%hd7476374837%_ + (##cdr _%e7563775708%_))) + (_%hd7563875712%_ (let () (declare (not safe)) - (##car _%e7476274833%_)))) - (_%__kont8332183322%_ _%hd7476374837%_))) - (_%__kont8332383324%_)) - (_%__kont8332383324%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8332383324%_)))) - (_%__kont8332383324%_)))))) - (_%__kont8346783468%_ - (lambda (_%L74461%_) - (let* ((_%__stx8325283253%_ _%b73924%_) - (_%g7447974506%_ + (##car _%e7563775708%_)))) + (_%__kont8429084291%_ _%hd7563875712%_))) + (_%__kont8429284293%_)) + (_%__kont8429284293%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8429284293%_)))) + (_%__kont8429284293%_)))))) + (_%__kont8443684437%_ + (lambda (_%L75336%_) + (let* ((_%__stx8422184222%_ _%b74799%_) + (_%g7535475381%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8325283253%_)))) - (let ((_%__kont8325583256%_ + _%__stx8422184222%_)))) + (let ((_%__kont8422484225%_ (lambda () - (let* ((_%g7466374671%_ - (lambda (_%g7466474667%_) + (let* ((_%g7553875546%_ + (lambda (_%g7553975542%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7466474667%_))) - (_%g7466274695%_ - (lambda (_%g7466474675%_) - ((lambda (_%L74678%_) + _%g7553975542%_))) + (_%g7553775570%_ + (lambda (_%g7553975550%_) + ((lambda (_%L75553%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L74461%_ + (cons _%L75336%_ (cons (gx#datum->syntax '#f ':?) - (cons _%L74678%_ '()))))) - _%g7466474675%_)))) + (cons _%L75553%_ '()))))) + _%g7553975550%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7466274695%_ + (_%g7553775570%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_))))) - (_%__kont8325783258%_ - (lambda (_%L74596%_) - (let* ((_%g7461174619%_ - (lambda (_%g7461274615%_) + _%slot-type-table74794%_ + _%slot74796%_))))) + (_%__kont8422684227%_ + (lambda (_%L75471%_) + (let* ((_%g7548675494%_ + (lambda (_%g7548775490%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7461274615%_))) - (_%g7461074638%_ - (lambda (_%g7461274623%_) - ((lambda (_%L74626%_) + _%g7548775490%_))) + (_%g7548575513%_ + (lambda (_%g7548775498%_) + ((lambda (_%L75501%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L74461%_ - (cons _%L74596%_ '()))) + (cons _%L75336%_ + (cons _%L75471%_ '()))) '())) (cons (gx#datum->syntax '#f ':?) - (cons _%L74626%_ '()))))) - _%g7461274623%_)))) + (cons _%L75501%_ '()))))) + _%g7548775498%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7461074638%_ + (_%g7548575513%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_))))) - (_%__kont8325983260%_ - (lambda (_%L74544%_) + _%slot-type-table74794%_ + _%slot74796%_))))) + (_%__kont8422884229%_ + (lambda (_%L75419%_) (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx69454%_ - _%slot73921%_ - _%a73923%_ - _%b73924%_))) - (_%__kont8326183262%_ + _%stx70329%_ + _%slot74796%_ + _%a74798%_ + _%b74799%_))) + (_%__kont8423084231%_ (lambda () (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx69454%_ - _%slot73921%_ - _%a73923%_ - _%b73924%_)))) - (if (gx#stx-pair? _%__stx8325283253%_) - (let ((_%e7448174649%_ + _%stx70329%_ + _%slot74796%_ + _%a74798%_ + _%b74799%_)))) + (if (gx#stx-pair? _%__stx8422184222%_) + (let ((_%e7535675524%_ (gx#syntax-e - _%__stx8325283253%_))) - (let ((_%tl7448374656%_ + _%__stx8422184222%_))) + (let ((_%tl7535875531%_ (let () (declare (not safe)) - (##cdr _%e7448174649%_))) - (_%hd7448274653%_ + (##cdr _%e7535675524%_))) + (_%hd7535775528%_ (let () (declare (not safe)) - (##car _%e7448174649%_)))) + (##car _%e7535675524%_)))) (if (gx#identifier? - _%hd7448274653%_) + _%hd7535775528%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84177_| - _%hd7448274653%_) - (_%__kont8325583256%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85169_| + _%hd7535775528%_) + (_%__kont8422484225%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84178_| - _%hd7448274653%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85170_| + _%hd7535775528%_) (if (gx#stx-pair? - _%tl7448374656%_) - (let ((_%e7448874576%_ + _%tl7535875531%_) + (let ((_%e7536375451%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7448374656%_))) - (let ((_%tl7449074583%_ + (gx#syntax-e _%tl7535875531%_))) + (let ((_%tl7536575458%_ (let () (declare (not safe)) - (##cdr _%e7448874576%_))) - (_%hd7448974580%_ + (##cdr _%e7536375451%_))) + (_%hd7536475455%_ (let () (declare (not safe)) - (##car _%e7448874576%_)))) - (if (gx#stx-pair? _%tl7449074583%_) - (let ((_%e7449174586%_ - (gx#syntax-e _%tl7449074583%_))) - (let ((_%tl7449374593%_ + (##car _%e7536375451%_)))) + (if (gx#stx-pair? _%tl7536575458%_) + (let ((_%e7536675461%_ + (gx#syntax-e _%tl7536575458%_))) + (let ((_%tl7536875468%_ (let () (declare (not safe)) - (##cdr _%e7449174586%_))) - (_%hd7449274590%_ + (##cdr _%e7536675461%_))) + (_%hd7536775465%_ (let () (declare (not safe)) - (##car _%e7449174586%_)))) - (if (gx#identifier? _%hd7449274590%_) + (##car _%e7536675461%_)))) + (if (gx#identifier? _%hd7536775465%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84179_| - _%hd7449274590%_) - (_%__kont8325783258%_ - _%hd7448974580%_) - (_%__kont8325983260%_ - _%hd7448974580%_)) - (_%__kont8325983260%_ - _%hd7448974580%_)))) - (_%__kont8325983260%_ _%hd7448974580%_)))) - (_%__kont8326183262%_)) - (_%__kont8326183262%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8326183262%_)))) - (_%__kont8326183262%_)))))) - (_%__kont8346983470%_ - (lambda (_%L74278%_) - (let* ((_%__stx8322083221%_ _%b73924%_) - (_%g7429474312%_ + |gerbil/core/contract~TypedDefinitions[1]#_g85171_| + _%hd7536775465%_) + (_%__kont8422684227%_ + _%hd7536475455%_) + (_%__kont8422884229%_ + _%hd7536475455%_)) + (_%__kont8422884229%_ + _%hd7536475455%_)))) + (_%__kont8422884229%_ _%hd7536475455%_)))) + (_%__kont8423084231%_)) + (_%__kont8423084231%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8423084231%_)))) + (_%__kont8423084231%_)))))) + (_%__kont8443884439%_ + (lambda (_%L75153%_) + (let* ((_%__stx8418984190%_ _%b74799%_) + (_%g7516975187%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8322083221%_)))) - (let ((_%__kont8322383224%_ - (lambda (_%L74401%_) - (let ((_%$e74412%_ + _%__stx8418984190%_)))) + (let ((_%__kont8419284193%_ + (lambda (_%L75276%_) + (let ((_%$e75287%_ (gx#free-identifier=? - _%L74401%_ + _%L75276%_ (gx#datum->syntax '#f ':)))) - (if _%$e74412%_ - _%$e74412%_ - (let ((_%$e74416%_ + (if _%$e75287%_ + _%$e75287%_ + (let ((_%$e75291%_ (gx#free-identifier=? - _%L74401%_ + _%L75276%_ (gx#datum->syntax '#f ':?)))) - (if _%$e74416%_ - _%$e74416%_ + (if _%$e75291%_ + _%$e75291%_ (gx#free-identifier=? - _%L74401%_ + _%L75276%_ (gx#datum->syntax '#f ':-)))))))) - (_%__kont8322583226%_ - (lambda (_%L74339%_) - (let* ((_%g7435374361%_ - (lambda (_%g7435474357%_) + (_%__kont8419484195%_ + (lambda (_%L75214%_) + (let* ((_%g7522875236%_ + (lambda (_%g7522975232%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7435474357%_))) - (_%g7435274380%_ - (lambda (_%g7435474365%_) - ((lambda (_%L74368%_) + _%g7522975232%_))) + (_%g7522775255%_ + (lambda (_%g7522975240%_) + ((lambda (_%L75243%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L74278%_ - (cons _%L74339%_ '()))) + (cons _%L75153%_ + (cons _%L75214%_ '()))) '())) (cons (gx#datum->syntax '#f ':-) - (cons _%L74368%_ '()))))) - _%g7435474365%_)))) + (cons _%L75243%_ '()))))) + _%g7522975240%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7435274380%_ + (_%g7522775255%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_)))))) - (if (gx#stx-pair? _%__stx8322083221%_) - (let ((_%e7429774391%_ + _%slot-type-table74794%_ + _%slot74796%_)))))) + (if (gx#stx-pair? _%__stx8418984190%_) + (let ((_%e7517275266%_ (gx#syntax-e - _%__stx8322083221%_))) - (let ((_%tl7429974398%_ + _%__stx8418984190%_))) + (let ((_%tl7517475273%_ (let () (declare (not safe)) - (##cdr _%e7429774391%_))) - (_%hd7429874395%_ + (##cdr _%e7517275266%_))) + (_%hd7517375270%_ (let () (declare (not safe)) - (##car _%e7429774391%_)))) - (_%__kont8322383224%_ - _%hd7429874395%_))) + (##car _%e7517275266%_)))) + (_%__kont8419284193%_ + _%hd7517375270%_))) (let () (declare (not safe)) - (_%g7429474312%_))))))) - (_%__kont8347183472%_ - (lambda (_%L74066%_) - (let* ((_%__stx8318883189%_ _%b73924%_) - (_%g7408074098%_ + (_%g7516975187%_))))))) + (_%__kont8444084441%_ + (lambda (_%L74941%_) + (let* ((_%__stx8415784158%_ _%b74799%_) + (_%g7495574973%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8318883189%_)))) - (let ((_%__kont8319183192%_ - (lambda (_%L74181%_ _%L74183%_) - (let* ((_%g7420674214%_ - (lambda (_%g7420774210%_) + _%__stx8415784158%_)))) + (let ((_%__kont8416084161%_ + (lambda (_%L75056%_ _%L75058%_) + (let* ((_%g7508175089%_ + (lambda (_%g7508275085%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7420774210%_))) - (_%g7420574233%_ - (lambda (_%g7420774218%_) - ((lambda (_%L74221%_) + _%g7508275085%_))) + (_%g7508075108%_ + (lambda (_%g7508275093%_) + ((lambda (_%L75096%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L74066%_ - (cons _%L74183%_ '()))) + (cons _%L74941%_ + (cons _%L75058%_ '()))) '())) (cons (gx#datum->syntax '#f ':) - (cons _%L74221%_ '()))))) - _%g7420774218%_)))) + (cons _%L75096%_ '()))))) + _%g7508275093%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7420574233%_ + (_%g7508075108%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_))))) - (_%__kont8319383194%_ + _%slot-type-table74794%_ + _%slot74796%_))))) + (_%__kont8416284163%_ (lambda () - (let* ((_%g7410974117%_ - (lambda (_%g7411074113%_) + (let* ((_%g7498474992%_ + (lambda (_%g7498574988%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7411074113%_))) - (_%g7410874140%_ - (lambda (_%g7411074121%_) - ((lambda (_%L74124%_) + _%g7498574988%_))) + (_%g7498375015%_ + (lambda (_%g7498574996%_) + ((lambda (_%L74999%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L74066%_ + (cons _%L74941%_ (cons (gx#datum->syntax '#f ':) - (cons _%L74124%_ '()))))) - _%g7411074121%_)))) + (cons _%L74999%_ '()))))) + _%g7498574996%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7410874140%_ + (_%g7498375015%_ (hash-ref - _%slot-type-table73919%_ - _%slot73921%_)))))) - (let ((_%__match8321783218%_ - (lambda (_%e7408474151%_ - _%hd7408574155%_ - _%tl7408674158%_ - _%e7408774161%_ - _%hd7408874165%_ - _%tl7408974168%_ - _%e7409074171%_ - _%hd7409174175%_ - _%tl7409274178%_) - (let ((_%L74181%_ - _%hd7409174175%_) - (_%L74183%_ - _%hd7408874165%_)) + _%slot-type-table74794%_ + _%slot74796%_)))))) + (let ((_%__match8418684187%_ + (lambda (_%e7495975026%_ + _%hd7496075030%_ + _%tl7496175033%_ + _%e7496275036%_ + _%hd7496375040%_ + _%tl7496475043%_ + _%e7496575046%_ + _%hd7496675050%_ + _%tl7496775053%_) + (let ((_%L75056%_ + _%hd7496675050%_) + (_%L75058%_ + _%hd7496375040%_)) (if (or (gx#free-identifier=? - _%L74181%_ + _%L75056%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L74181%_ + _%L75056%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L74181%_ + _%L75056%_ (gx#datum->syntax '#f ':-))) - (_%__kont8319183192%_ - _%L74181%_ - _%L74183%_) - (_%__kont8319383194%_)))))) - (if (gx#stx-pair? _%__stx8318883189%_) - (let ((_%e7408474151%_ + (_%__kont8416084161%_ + _%L75056%_ + _%L75058%_) + (_%__kont8416284163%_)))))) + (if (gx#stx-pair? _%__stx8415784158%_) + (let ((_%e7495975026%_ (gx#syntax-e - _%__stx8318883189%_))) - (let ((_%tl7408674158%_ + _%__stx8415784158%_))) + (let ((_%tl7496175033%_ (let () (declare (not safe)) - (##cdr _%e7408474151%_))) - (_%hd7408574155%_ + (##cdr _%e7495975026%_))) + (_%hd7496075030%_ (let () (declare (not safe)) - (##car _%e7408474151%_)))) + (##car _%e7495975026%_)))) (if (gx#identifier? - _%hd7408574155%_) + _%hd7496075030%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84180_| - _%hd7408574155%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85172_| + _%hd7496075030%_) (if (gx#stx-pair? - _%tl7408674158%_) - (let ((_%e7408774161%_ + _%tl7496175033%_) + (let ((_%e7496275036%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7408674158%_))) - (let ((_%tl7408974168%_ + (gx#syntax-e _%tl7496175033%_))) + (let ((_%tl7496475043%_ (let () (declare (not safe)) - (##cdr _%e7408774161%_))) - (_%hd7408874165%_ + (##cdr _%e7496275036%_))) + (_%hd7496375040%_ (let () (declare (not safe)) - (##car _%e7408774161%_)))) - (if (gx#stx-pair? _%tl7408974168%_) - (let ((_%e7409074171%_ - (gx#syntax-e _%tl7408974168%_))) - (let ((_%tl7409274178%_ + (##car _%e7496275036%_)))) + (if (gx#stx-pair? _%tl7496475043%_) + (let ((_%e7496575046%_ + (gx#syntax-e _%tl7496475043%_))) + (let ((_%tl7496775053%_ (let () (declare (not safe)) - (##cdr _%e7409074171%_))) - (_%hd7409174175%_ + (##cdr _%e7496575046%_))) + (_%hd7496675050%_ (let () (declare (not safe)) - (##car _%e7409074171%_)))) - (_%__match8321783218%_ - _%e7408474151%_ - _%hd7408574155%_ - _%tl7408674158%_ - _%e7408774161%_ - _%hd7408874165%_ - _%tl7408974168%_ - _%e7409074171%_ - _%hd7409174175%_ - _%tl7409274178%_))) - (_%__kont8319383194%_)))) - (_%__kont8319383194%_)) - (_%__kont8319383194%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8319383194%_)))) - (_%__kont8319383194%_)))))))) - (if (gx#stx-pair? _%__stx8345683457%_) - (let ((_%e7398875294%_ - (gx#syntax-e _%__stx8345683457%_))) - (let ((_%tl7399075301%_ + (##car _%e7496575046%_)))) + (_%__match8418684187%_ + _%e7495975026%_ + _%hd7496075030%_ + _%tl7496175033%_ + _%e7496275036%_ + _%hd7496375040%_ + _%tl7496475043%_ + _%e7496575046%_ + _%hd7496675050%_ + _%tl7496775053%_))) + (_%__kont8416284163%_)))) + (_%__kont8416284163%_)) + (_%__kont8416284163%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8416284163%_)))) + (_%__kont8416284163%_)))))))) + (if (gx#stx-pair? _%__stx8442584426%_) + (let ((_%e7486376169%_ + (gx#syntax-e _%__stx8442584426%_))) + (let ((_%tl7486576176%_ (let () (declare (not safe)) - (##cdr _%e7398875294%_))) - (_%hd7398975298%_ + (##cdr _%e7486376169%_))) + (_%hd7486476173%_ (let () (declare (not safe)) - (##car _%e7398875294%_)))) - (if (gx#identifier? _%hd7398975298%_) + (##car _%e7486376169%_)))) + (if (gx#identifier? _%hd7486476173%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84181_| - _%hd7398975298%_) - (_%__kont8345983460%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85173_| + _%hd7486476173%_) + (_%__kont8442884429%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84182_| - _%hd7398975298%_) - (_%__kont8346183462%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85174_| + _%hd7486476173%_) + (_%__kont8443084431%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84183_| - _%hd7398975298%_) - (_%__kont8346383464%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85175_| + _%hd7486476173%_) + (_%__kont8443284433%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84184_| - _%hd7398975298%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85176_| + _%hd7486476173%_) (if (gx#stx-pair? - _%tl7399075301%_) - (let ((_%e7400174720%_ + _%tl7486576176%_) + (let ((_%e7487675595%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7399075301%_))) - (let ((_%tl7400374727%_ + (gx#syntax-e _%tl7486576176%_))) + (let ((_%tl7487875602%_ (let () (declare (not safe)) - (##cdr _%e7400174720%_))) - (_%hd7400274724%_ + (##cdr _%e7487675595%_))) + (_%hd7487775599%_ (let () (declare (not safe)) - (##car _%e7400174720%_)))) - (if (gx#stx-pair? _%tl7400374727%_) - (let ((_%e7400474730%_ - (gx#syntax-e _%tl7400374727%_))) - (let ((_%tl7400674737%_ + (##car _%e7487675595%_)))) + (if (gx#stx-pair? _%tl7487875602%_) + (let ((_%e7487975605%_ + (gx#syntax-e _%tl7487875602%_))) + (let ((_%tl7488175612%_ (let () (declare (not safe)) - (##cdr _%e7400474730%_))) - (_%hd7400574734%_ + (##cdr _%e7487975605%_))) + (_%hd7488075609%_ (let () (declare (not safe)) - (##car _%e7400474730%_)))) - (if (gx#identifier? _%hd7400574734%_) + (##car _%e7487975605%_)))) + (if (gx#identifier? _%hd7488075609%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84185_| - _%hd7400574734%_) - (_%__kont8346583466%_ _%hd7400274724%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85177_| + _%hd7488075609%_) + (_%__kont8443484435%_ _%hd7487775599%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84186_| - _%hd7400574734%_) - (_%__kont8346783468%_ - _%hd7400274724%_) + |gerbil/core/contract~TypedDefinitions[1]#_g85178_| + _%hd7488075609%_) + (_%__kont8443684437%_ + _%hd7487775599%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84187_| - _%hd7400574734%_) - (_%__kont8346983470%_ - _%hd7400274724%_) - (_%__kont8347183472%_ - _%hd7400274724%_)))) - (_%__kont8347183472%_ _%hd7400274724%_)))) - (_%__kont8347183472%_ _%hd7400274724%_)))) - (let () (declare (not safe)) (_%g7398674039%_))) - (let () (declare (not safe)) (_%g7398674039%_)))))) + |gerbil/core/contract~TypedDefinitions[1]#_g85179_| + _%hd7488075609%_) + (_%__kont8443884439%_ + _%hd7487775599%_) + (_%__kont8444084441%_ + _%hd7487775599%_)))) + (_%__kont8444084441%_ _%hd7487775599%_)))) + (_%__kont8444084441%_ _%hd7487775599%_)))) + (let () (declare (not safe)) (_%g7486174914%_))) + (let () (declare (not safe)) (_%g7486174914%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g7398674039%_))))) + (_%g7486174914%_))))) (let () (declare (not safe)) - (_%g7398674039%_))))))))) - (_%get-slot-defaults69473%_ - (lambda (_%slots73905%_ _%mixin-slots73907%_ _%super73908%_) - (_%get-slot-table69471%_ - _%slots73905%_ - _%mixin-slots73907%_ - _%super73908%_ - _%slot-default69468%_ + (_%g7486174914%_))))))))) + (_%get-slot-defaults70348%_ + (lambda (_%slots74780%_ _%mixin-slots74782%_ _%super74783%_) + (_%get-slot-table70346%_ + _%slots74780%_ + _%mixin-slots74782%_ + _%super74783%_ + _%slot-default70343%_ |gerbil/core/contract~Using[1]#!class-slot-default| - (lambda (_%slot73910%_ _%a73912%_ _%b73913%_) - _%a73912%_)))) - (_%update-slot-types!69474%_ - (lambda (_%slots73875%_ _%slot-type-table73877%_) + (lambda (_%slot74785%_ _%a74787%_ _%b74788%_) + _%a74787%_)))) + (_%update-slot-types!70349%_ + (lambda (_%slots74750%_ _%slot-type-table74752%_) (for-each - (lambda (_%slot-spec73879%_) - (let* ((_%slot73882%_ - (_%slot-name69460%_ _%slot-spec73879%_)) - (_%slot-type7388473886%_ - (_%slot-contract-type69464%_ - _%slot-spec73879%_))) - (if _%slot-type7388473886%_ - (let* ((_%slot-type73890%_ - _%slot-type7388473886%_) - (_%$e73893%_ + (lambda (_%slot-spec74754%_) + (let* ((_%slot74757%_ + (_%slot-name70335%_ _%slot-spec74754%_)) + (_%slot-type7475974761%_ + (_%slot-contract-type70339%_ + _%slot-spec74754%_))) + (if _%slot-type7475974761%_ + (let* ((_%slot-type74765%_ + _%slot-type7475974761%_) + (_%$e74768%_ (hash-get - _%slot-type-table73877%_ - _%slot73882%_))) - (if _%$e73893%_ - ((lambda (_%other-slot-type73897%_) - (let ((_%slot-type73900%_ - (_%infer-slot-type69469%_ - _%slot73882%_ - _%other-slot-type73897%_ - _%slot-type73890%_))) + _%slot-type-table74752%_ + _%slot74757%_))) + (if _%$e74768%_ + ((lambda (_%other-slot-type74772%_) + (let ((_%slot-type74775%_ + (_%infer-slot-type70344%_ + _%slot74757%_ + _%other-slot-type74772%_ + _%slot-type74765%_))) (hash-put! - _%slot-type-table73877%_ - _%slot73882%_ - _%slot-type73900%_))) - _%$e73893%_) + _%slot-type-table74752%_ + _%slot74757%_ + _%slot-type74775%_))) + _%$e74768%_) (hash-put! - _%slot-type-table73877%_ - _%slot73882%_ - _%slot-type73890%_))) + _%slot-type-table74752%_ + _%slot74757%_ + _%slot-type74765%_))) '#f))) - _%slots73875%_))) - (_%syntax-local-value/context69475%_ - (lambda (_%id73869%_) + _%slots74750%_))) + (_%syntax-local-value/context70350%_ + (lambda (_%id74744%_) (gx#syntax-local-value - _%id73869%_ - (lambda (_%id73872%_) + _%id74744%_ + (lambda (_%id74747%_) (gx#raise-syntax-error '#f '"not a class meta type binding" - _%stx69454%_ - _%id73872%_))))) - (_%order-slots69476%_ - (lambda (_%slots73800%_ _%super73802%_) - (let ((_g84188_ + _%stx70329%_ + _%id74747%_))))) + (_%order-slots70351%_ + (lambda (_%slots74675%_ _%super74677%_) + (let ((_g85180_ (c4-linearize '() - _%super73802%_ + _%super74677%_ 'get-precedence-list: - (lambda (_%klass-id73804%_) - (cons _%klass-id73804%_ - (let ((__tmp84190 - (_%syntax-local-value/context69475%_ - _%klass-id73804%_))) + (lambda (_%klass-id74679%_) + (cons _%klass-id74679%_ + (let ((__tmp85182 + (_%syntax-local-value/context70350%_ + _%klass-id74679%_))) (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - __tmp84190)))) + __tmp85182)))) 'struct: - (lambda (_%klass-id73807%_) - (let ((__obj83903 - (_%syntax-local-value/context69475%_ - _%klass-id73807%_))) + (lambda (_%klass-id74682%_) + (let ((__obj84878 + (_%syntax-local-value/context70350%_ + _%klass-id74682%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83903 + __obj84878 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83903 + __obj84878 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83903 + __obj84878 'struct?)))) 'eq: - gx#free-identifier=? - 'get-name: - gx#stx-e))) + gx#free-identifier=?))) (begin - (let ((_g84189_ + (let ((_g85181_ (let () (declare (not safe)) - (if (##values? _g84188_) - (##vector-length _g84188_) + (if (##values? _g85180_) + (##values-length _g85180_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84189_ 2))) - (error "Context expects 2 values" _g84189_))) - (let ((_%precedence-list73810%_ + (##fx= _g85181_ 2))) + (error "Context expects 2 values" _g85181_))) + (let ((_%precedence-list74685%_ (let () (declare (not safe)) - (##vector-ref _g84188_ 0))) - (_%base-struct73812%_ + (##values-ref _g85180_ 0))) + (_%base-struct74687%_ (let () (declare (not safe)) - (##vector-ref _g84188_ 1)))) - (let* ((_%base-fields73826%_ - (if _%base-struct73812%_ - (let* ((_%klass73814%_ + (##values-ref _g85180_ 1)))) + (let* ((_%base-fields74701%_ + (if _%base-struct74687%_ + (let* ((_%klass74689%_ (gx#syntax-local-value - _%base-struct73812%_)) - (_%$e73817%_ - (let ((__obj83904 - _%klass73814%_)) + _%base-struct74687%_)) + (_%$e74692%_ + (let ((__obj84879 + _%klass74689%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83904 + __obj84879 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83904 + __obj84879 '6 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83904 + __obj84879 'ordered-slots))))) - (if _%$e73817%_ - _%$e73817%_ - (let ((_%ordered73823%_ - (_%order-slots69476%_ - (let ((__obj83905 - _%klass73814%_)) + (if _%$e74692%_ + _%$e74692%_ + (let ((_%ordered74698%_ + (_%order-slots70351%_ + (let ((__obj84880 + _%klass74689%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83905 + __obj84880 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83905 + __obj84880 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83905 + __obj84880 'slots))) - (let ((__obj83906 - _%klass73814%_)) + (let ((__obj84881 + _%klass74689%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83906 + __obj84881 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83906 + __obj84881 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83906 + __obj84881 'super)))))) - (let ((__obj83907 - _%klass73814%_)) + (let ((__obj84882 + _%klass74689%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83907 + __obj84882 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj83907 - _%ordered73823%_ + __obj84882 + _%ordered74698%_ '6 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj83907 + __obj84882 'ordered-slots - _%ordered73823%_))) - _%ordered73823%_))) + _%ordered74698%_))) + _%ordered74698%_))) '())) - (_%r-fields73829%_ - (reverse _%base-fields73826%_)) - (_%seen-slots73840%_ - (let ((_%tab73832%_ (make-hash-table-eq))) + (_%r-fields74704%_ + (reverse _%base-fields74701%_)) + (_%seen-slots74715%_ + (let ((_%tab74707%_ (make-hash-table-eq))) (for-each - (lambda (_%g7383473836%_) + (lambda (_%g7470974711%_) (hash-put! - _%tab73832%_ - _%g7383473836%_ + _%tab74707%_ + _%g7470974711%_ '#t)) - _%base-fields73826%_) - _%tab73832%_)) - (_%process-slot73846%_ - (lambda (_%slot73843%_) + _%base-fields74701%_) + _%tab74707%_)) + (_%process-slot74721%_ + (lambda (_%slot74718%_) (if (hash-get - _%seen-slots73840%_ - _%slot73843%_) + _%seen-slots74715%_ + _%slot74718%_) '#!void (begin (hash-put! - _%seen-slots73840%_ - _%slot73843%_ + _%seen-slots74715%_ + _%slot74718%_ '#t) - (set! _%r-fields73829%_ - (cons _%slot73843%_ - _%r-fields73829%_))))))) + (set! _%r-fields74704%_ + (cons _%slot74718%_ + _%r-fields74704%_))))))) (for-each - (lambda (_%mixin73851%_) - (let ((_%klass73854%_ - (gx#syntax-local-value _%mixin73851%_))) - (if (let ((__obj83908 _%klass73854%_)) + (lambda (_%mixin74726%_) + (let ((_%klass74729%_ + (gx#syntax-local-value _%mixin74726%_))) + (if (let ((__obj84883 _%klass74729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83908 + __obj84883 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83908 + __obj84883 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83908 + __obj84883 'struct?))) '#!void - (let ((_%$e73857%_ - (let ((__obj83909 _%klass73854%_)) + (let ((_%$e74732%_ + (let ((__obj84884 _%klass74729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83909 + __obj84884 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83909 + __obj84884 '6 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83909 + __obj84884 'ordered-slots))))) - (if _%$e73857%_ - ((lambda (_%ordered73861%_) + (if _%$e74732%_ + ((lambda (_%ordered74736%_) (for-each - _%process-slot73846%_ - _%ordered73861%_)) - _%$e73857%_) - (let ((_%ordered73866%_ - (_%order-slots69476%_ - (let ((__obj83910 - _%klass73854%_)) + _%process-slot74721%_ + _%ordered74736%_)) + _%$e74732%_) + (let ((_%ordered74741%_ + (_%order-slots70351%_ + (let ((__obj84885 + _%klass74729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83910 + __obj84885 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83910 + __obj84885 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83910 + __obj84885 'slots))) - (let ((__obj83911 - _%klass73854%_)) + (let ((__obj84886 + _%klass74729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83911 + __obj84886 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83911 + __obj84886 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83911 + __obj84886 'super)))))) - (let ((__obj83912 _%klass73854%_)) + (let ((__obj84887 _%klass74729%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83912 + __obj84887 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj83912 - _%ordered73866%_ + __obj84887 + _%ordered74741%_ '6 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj83912 + __obj84887 'ordered-slots - _%ordered73866%_))) + _%ordered74741%_))) (for-each - _%process-slot73846%_ - _%ordered73866%_))))))) - _%precedence-list73810%_) - (for-each _%process-slot73846%_ _%slots73800%_) - (reverse _%r-fields73829%_))))))) - (_%wrap69477%_ - (lambda (_%e-stx73797%_) + _%process-slot74721%_ + _%ordered74741%_))))))) + _%precedence-list74685%_) + (for-each _%process-slot74721%_ _%slots74675%_) + (reverse _%r-fields74704%_))))))) + (_%wrap70352%_ + (lambda (_%e-stx74672%_) (gx#stx-wrap-source - _%e-stx73797%_ - (gx#stx-source _%stx69454%_)))) - (_%generate-defclass69478%_ - (lambda (_%id69612%_ - _%super-ref69614%_ - _%slots69615%_ - _%body69616%_) - (letrec ((_%make-id69618%_ - (lambda _%args73794%_ + _%e-stx74672%_ + (gx#stx-source _%stx70329%_)))) + (_%generate-defclass70353%_ + (lambda (_%id70487%_ + _%super-ref70489%_ + _%slots70490%_ + _%body70491%_) + (letrec ((_%make-id70493%_ + (lambda _%args74669%_ (apply gx#stx-identifier - _%id69612%_ - _%args73794%_)))) + _%id70487%_ + _%args74669%_)))) (gx#check-duplicate-identifiers - (map _%slot-name69460%_ _%slots69615%_) - _%stx69454%_) + (map _%slot-name70335%_ _%slots70490%_) + _%stx70329%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#check-signature-spec!__%| '#f absent-value '#f - _%stx69454%_ - _%slots69615%_)) - (_%check-typedef-body!69459%_ _%body69616%_) - (let ((_g84191_ - (_%get-mixin-slots69470%_ _%super-ref69614%_))) + _%stx70329%_ + _%slots70490%_)) + (_%check-typedef-body!70334%_ _%body70491%_) + (let ((_g85183_ + (_%get-mixin-slots70345%_ _%super-ref70489%_))) (begin - (let ((_g84192_ + (let ((_g85184_ (let () (declare (not safe)) - (if (##values? _g84191_) - (##vector-length _g84191_) + (if (##values? _g85183_) + (##values-length _g85183_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84192_ 2))) - (error "Context expects 2 values" _g84192_))) - (let ((_%mixin-slots69621%_ + (##fx= _g85184_ 2))) + (error "Context expects 2 values" _g85184_))) + (let ((_%mixin-slots70496%_ (let () (declare (not safe)) - (##vector-ref _g84191_ 0))) - (_%slot-type-table69623%_ + (##values-ref _g85183_ 0))) + (_%slot-type-table70498%_ (let () (declare (not safe)) - (##vector-ref _g84191_ 1)))) - (let* ((_%slot-contract-table69625%_ - (_%get-slot-contracts69472%_ - _%slots69615%_ - _%mixin-slots69621%_ - _%super-ref69614%_ - _%slot-type-table69623%_)) - (_%slot-default-table69628%_ - (_%get-slot-defaults69473%_ - _%slots69615%_ - _%mixin-slots69621%_ - _%super-ref69614%_)) - (_%ordered-slots69631%_ - (_%order-slots69476%_ - (map _%slot-name69460%_ _%slots69615%_) - _%super-ref69614%_))) - (_%update-slot-types!69474%_ - _%slots69615%_ - _%slot-type-table69623%_) - (let* ((_%slots69636%_ - (map _%slot-name69460%_ _%slots69615%_)) - (_%mixin-slots69642%_ - (filter (lambda (_%slot69639%_) - (not (memq _%slot69639%_ - _%slots69636%_))) - _%mixin-slots69621%_)) - (_%name69645%_ - (symbol->string (gx#stx-e _%id69612%_))) - (_%super69648%_ + (##values-ref _g85183_ 1)))) + (let* ((_%slot-contract-table70500%_ + (_%get-slot-contracts70347%_ + _%slots70490%_ + _%mixin-slots70496%_ + _%super-ref70489%_ + _%slot-type-table70498%_)) + (_%slot-default-table70503%_ + (_%get-slot-defaults70348%_ + _%slots70490%_ + _%mixin-slots70496%_ + _%super-ref70489%_)) + (_%ordered-slots70506%_ + (_%order-slots70351%_ + (map _%slot-name70335%_ _%slots70490%_) + _%super-ref70489%_))) + (_%update-slot-types!70349%_ + _%slots70490%_ + _%slot-type-table70498%_) + (let* ((_%slots70511%_ + (map _%slot-name70335%_ _%slots70490%_)) + (_%mixin-slots70517%_ + (filter (lambda (_%slot70514%_) + (not (memq _%slot70514%_ + _%slots70511%_))) + _%mixin-slots70496%_)) + (_%name70520%_ + (symbol->string (gx#stx-e _%id70487%_))) + (_%super70523%_ (map gx#syntax-local-value - _%super-ref69614%_)) - (_%struct?69651%_ - (gx#stx-getq 'struct: _%body69616%_)) - (_%g6965469662%_ - (lambda (_%g6965569658%_) + _%super-ref70489%_)) + (_%struct?70526%_ + (gx#stx-getq 'struct: _%body70491%_)) + (_%g7052970537%_ + (lambda (_%g7053070533%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6965569658%_))) - (_%g6965373790%_ - (lambda (_%g6965569666%_) - ((lambda (_%L69669%_) - (let* ((_%g6969269700%_ - (lambda (_%g6969369696%_) + _%g7053070533%_))) + (_%g7052874665%_ + (lambda (_%g7053070541%_) + ((lambda (_%L70544%_) + (let* ((_%g7056770575%_ + (lambda (_%g7056870571%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6969369696%_))) - (_%g6969173786%_ - (lambda (_%g6969369704%_) - ((lambda (_%L69707%_) - (let* ((_%g6972069728%_ - (lambda (_%g6972169724%_) + _%g7056870571%_))) + (_%g7056674661%_ + (lambda (_%g7056870579%_) + ((lambda (_%L70582%_) + (let* ((_%g7059570603%_ + (lambda (_%g7059670599%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6972169724%_))) - (_%g6971973782%_ - (lambda (_%g6972169732%_) - ((lambda (_%L69735%_) - (let* ((_%g6974869756%_ - (lambda (_%g6974969752%_) + _%g7059670599%_))) + (_%g7059474657%_ + (lambda (_%g7059670607%_) + ((lambda (_%L70610%_) + (let* ((_%g7062370631%_ + (lambda (_%g7062470627%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6974969752%_))) - (_%g6974773778%_ - (lambda (_%g6974969760%_) - ((lambda (_%L69763%_) - (let* ((_%g6977669784%_ - (lambda (_%g6977769780%_) + _%g7062470627%_))) + (_%g7062274653%_ + (lambda (_%g7062470635%_) + ((lambda (_%L70638%_) + (let* ((_%g7065170659%_ + (lambda (_%g7065270655%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6977769780%_))) - (_%g6977573774%_ - (lambda (_%g6977769788%_) - ((lambda (_%L69791%_) - (let* ((_%g6980469821%_ - (lambda (_%g6980569817%_) + _%g7065270655%_))) + (_%g7065074649%_ + (lambda (_%g7065270663%_) + ((lambda (_%L70666%_) + (let* ((_%g7067970696%_ + (lambda (_%g7068070692%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6980569817%_))) - (_%g6980373770%_ - (lambda (_%g6980569825%_) - (if (gx#stx-pair/null? _%g6980569825%_) - (let ((_g84193_ + _%g7068070692%_))) + (_%g7067874645%_ + (lambda (_%g7068070700%_) + (if (gx#stx-pair/null? _%g7068070700%_) + (let ((_g85185_ (gx#syntax-split-splice - _%g6980569825%_ + _%g7068070700%_ '0))) (begin - (let ((_g84194_ + (let ((_g85186_ (let () (declare (not safe)) - (if (##values? _g84193_) - (##vector-length _g84193_) + (if (##values? _g85185_) + (##values-length _g85185_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84194_ 2))) + (##fx= _g85186_ 2))) (error "Context expects 2 values" - _g84194_))) - (let ((_%target6980769828%_ + _g85186_))) + (let ((_%target7068270703%_ (let () (declare (not safe)) - (##vector-ref _g84193_ 0))) - (_%tl6980969831%_ + (##values-ref _g85185_ 0))) + (_%tl7068470706%_ (let () (declare (not safe)) - (##vector-ref _g84193_ 1)))) - (if (gx#stx-null? _%tl6980969831%_) - (letrec ((_%loop6981069834%_ - (lambda (_%hd6980869838%_ - _%slot6981469841%_) + (##values-ref _g85185_ 1)))) + (if (gx#stx-null? _%tl7068470706%_) + (letrec ((_%loop7068570709%_ + (lambda (_%hd7068370713%_ + _%slot7068970716%_) (if (gx#stx-pair? - _%hd6980869838%_) - (let ((_%e6981169844%_ + _%hd7068370713%_) + (let ((_%e7068670719%_ (gx#syntax-e - _%hd6980869838%_))) - (let ((_%lp-hd6981269848%_ + _%hd7068370713%_))) + (let ((_%lp-hd7068770723%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6981169844%_))) - (_%lp-tl6981369851%_ - (let () (declare (not safe)) (##cdr _%e6981169844%_)))) - (_%loop6981069834%_ - _%lp-tl6981369851%_ - (cons _%lp-hd6981269848%_ _%slot6981469841%_)))) - (let ((_%slot6981569854%_ (reverse _%slot6981469841%_))) - ((lambda (_%L69858%_) - (let* ((_%g6987569892%_ - (lambda (_%g6987669888%_) + (##car _%e7068670719%_))) + (_%lp-tl7068870726%_ + (let () (declare (not safe)) (##cdr _%e7068670719%_)))) + (_%loop7068570709%_ + _%lp-tl7068870726%_ + (cons _%lp-hd7068770723%_ _%slot7068970716%_)))) + (let ((_%slot7069070729%_ (reverse _%slot7068970716%_))) + ((lambda (_%L70733%_) + (let* ((_%g7075070767%_ + (lambda (_%g7075170763%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6987669888%_))) - (_%g6987473766%_ - (lambda (_%g6987669896%_) - (if (gx#stx-pair/null? _%g6987669896%_) - (let ((_g84195_ + _%g7075170763%_))) + (_%g7074974641%_ + (lambda (_%g7075170771%_) + (if (gx#stx-pair/null? _%g7075170771%_) + (let ((_g85187_ (gx#syntax-split-splice - _%g6987669896%_ + _%g7075170771%_ '0))) (begin - (let ((_g84196_ + (let ((_g85188_ (let () (declare (not safe)) - (if (##values? _g84195_) - (##vector-length _g84195_) + (if (##values? _g85187_) + (##values-length _g85187_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84196_ 2))) + (##fx= _g85188_ 2))) (error "Context expects 2 values" - _g84196_))) - (let ((_%target6987869899%_ + _g85188_))) + (let ((_%target7075370774%_ (let () (declare (not safe)) - (##vector-ref _g84195_ 0))) - (_%tl6988069902%_ + (##values-ref _g85187_ 0))) + (_%tl7075570777%_ (let () (declare (not safe)) - (##vector-ref _g84195_ 1)))) - (if (gx#stx-null? _%tl6988069902%_) - (letrec ((_%loop6988169905%_ - (lambda (_%hd6987969909%_ - _%ordered-slot6988569912%_) + (##values-ref _g85187_ 1)))) + (if (gx#stx-null? _%tl7075570777%_) + (letrec ((_%loop7075670780%_ + (lambda (_%hd7075470784%_ + _%ordered-slot7076070787%_) (if (gx#stx-pair? - _%hd6987969909%_) - (let ((_%e6988269915%_ + _%hd7075470784%_) + (let ((_%e7075770790%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6987969909%_))) - (let ((_%lp-hd6988369919%_ + (gx#syntax-e _%hd7075470784%_))) + (let ((_%lp-hd7075870794%_ (let () (declare (not safe)) - (##car _%e6988269915%_))) - (_%lp-tl6988469922%_ + (##car _%e7075770790%_))) + (_%lp-tl7075970797%_ (let () (declare (not safe)) - (##cdr _%e6988269915%_)))) - (_%loop6988169905%_ - _%lp-tl6988469922%_ - (cons _%lp-hd6988369919%_ - _%ordered-slot6988569912%_)))) - (let ((_%ordered-slot6988669925%_ - (reverse _%ordered-slot6988569912%_))) - ((lambda (_%L69929%_) - (let* ((_%g6994669963%_ - (lambda (_%g6994769959%_) + (##cdr _%e7075770790%_)))) + (_%loop7075670780%_ + _%lp-tl7075970797%_ + (cons _%lp-hd7075870794%_ + _%ordered-slot7076070787%_)))) + (let ((_%ordered-slot7076170800%_ + (reverse _%ordered-slot7076070787%_))) + ((lambda (_%L70804%_) + (let* ((_%g7082170838%_ + (lambda (_%g7082270834%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6994769959%_))) - (_%g6994573757%_ - (lambda (_%g6994769967%_) - (if (gx#stx-pair/null? _%g6994769967%_) - (let ((_g84197_ + _%g7082270834%_))) + (_%g7082074632%_ + (lambda (_%g7082270842%_) + (if (gx#stx-pair/null? _%g7082270842%_) + (let ((_g85189_ (gx#syntax-split-splice - _%g6994769967%_ + _%g7082270842%_ '0))) (begin - (let ((_g84198_ + (let ((_g85190_ (let () (declare (not safe)) - (if (##values? _g84197_) - (##vector-length - _g84197_) + (if (##values? _g85189_) + (##values-length + _g85189_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84198_ 2))) + (##fx= _g85190_ 2))) (error "Context expects 2 values" - _g84198_))) - (let ((_%target6994969970%_ + _g85190_))) + (let ((_%target7082470845%_ (let () (declare (not safe)) - (##vector-ref _g84197_ 0))) - (_%tl6995169973%_ + (##values-ref _g85189_ 0))) + (_%tl7082670848%_ (let () (declare (not safe)) - (##vector-ref - _g84197_ + (##values-ref + _g85189_ 1)))) (if (gx#stx-null? - _%tl6995169973%_) - (letrec ((_%loop6995269976%_ - (lambda (_%hd6995069980%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%getf6995669983%_) - (if (gx#stx-pair? _%hd6995069980%_) - (let ((_%e6995369986%_ - (gx#syntax-e _%hd6995069980%_))) - (let ((_%lp-hd6995469990%_ + _%tl7082670848%_) + (letrec ((_%loop7082770851%_ + (lambda (_%hd7082570855%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%getf7083170858%_) + (if (gx#stx-pair? _%hd7082570855%_) + (let ((_%e7082870861%_ + (gx#syntax-e _%hd7082570855%_))) + (let ((_%lp-hd7082970865%_ (let () (declare (not safe)) - (##car _%e6995369986%_))) - (_%lp-tl6995569993%_ + (##car _%e7082870861%_))) + (_%lp-tl7083070868%_ (let () (declare (not safe)) - (##cdr _%e6995369986%_)))) - (_%loop6995269976%_ - _%lp-tl6995569993%_ - (cons _%lp-hd6995469990%_ _%getf6995669983%_)))) - (let ((_%getf6995769996%_ - (reverse _%getf6995669983%_))) - ((lambda (_%L70000%_) - (let* ((_%g7001770034%_ - (lambda (_%g7001870030%_) + (##cdr _%e7082870861%_)))) + (_%loop7082770851%_ + _%lp-tl7083070868%_ + (cons _%lp-hd7082970865%_ _%getf7083170858%_)))) + (let ((_%getf7083270871%_ + (reverse _%getf7083170858%_))) + ((lambda (_%L70875%_) + (let* ((_%g7089270909%_ + (lambda (_%g7089370905%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7001870030%_))) - (_%g7001673748%_ - (lambda (_%g7001870038%_) - (if (gx#stx-pair/null? _%g7001870038%_) - (let ((_g84199_ + _%g7089370905%_))) + (_%g7089174623%_ + (lambda (_%g7089370913%_) + (if (gx#stx-pair/null? _%g7089370913%_) + (let ((_g85191_ (gx#syntax-split-splice - _%g7001870038%_ + _%g7089370913%_ '0))) (begin - (let ((_g84200_ + (let ((_g85192_ (let () (declare (not safe)) (if (##values? - _g84199_) - (##vector-length - _g84199_) + _g85191_) + (##values-length + _g85191_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84200_ + (##fx= _g85192_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g84200_))) + (error "Context expects 2 values" _g85192_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7002070041%_ + (let ((_%target7089570916%_ (let () (declare (not safe)) - (##vector-ref - _g84199_ + (##values-ref + _g85191_ 0))) - (_%tl7002270044%_ + (_%tl7089770919%_ (let () (declare (not safe)) - (##vector-ref - _g84199_ + (##values-ref + _g85191_ 1)))) (if (gx#stx-null? - _%tl7002270044%_) - (letrec ((_%loop7002370047%_ - (lambda (_%hd7002170051%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%setf7002770054%_) - (if (gx#stx-pair? _%hd7002170051%_) - (let ((_%e7002470057%_ - (gx#syntax-e _%hd7002170051%_))) - (let ((_%lp-hd7002570061%_ + _%tl7089770919%_) + (letrec ((_%loop7089870922%_ + (lambda (_%hd7089670926%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%setf7090270929%_) + (if (gx#stx-pair? _%hd7089670926%_) + (let ((_%e7089970932%_ + (gx#syntax-e _%hd7089670926%_))) + (let ((_%lp-hd7090070936%_ (let () (declare (not safe)) - (##car _%e7002470057%_))) - (_%lp-tl7002670064%_ + (##car _%e7089970932%_))) + (_%lp-tl7090170939%_ (let () (declare (not safe)) - (##cdr _%e7002470057%_)))) - (_%loop7002370047%_ - _%lp-tl7002670064%_ - (cons _%lp-hd7002570061%_ - _%setf7002770054%_)))) - (let ((_%setf7002870067%_ - (reverse _%setf7002770054%_))) - ((lambda (_%L70071%_) - (let* ((_%g7008870105%_ - (lambda (_%g7008970101%_) + (##cdr _%e7089970932%_)))) + (_%loop7089870922%_ + _%lp-tl7090170939%_ + (cons _%lp-hd7090070936%_ + _%setf7090270929%_)))) + (let ((_%setf7090370942%_ + (reverse _%setf7090270929%_))) + ((lambda (_%L70946%_) + (let* ((_%g7096370980%_ + (lambda (_%g7096470976%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7008970101%_))) - (_%g7008773739%_ - (lambda (_%g7008970109%_) + _%g7096470976%_))) + (_%g7096274614%_ + (lambda (_%g7096470984%_) (if (gx#stx-pair/null? - _%g7008970109%_) - (let ((_g84201_ + _%g7096470984%_) + (let ((_g85193_ (gx#syntax-split-splice - _%g7008970109%_ + _%g7096470984%_ '0))) (begin - (let ((_g84202_ + (let ((_g85194_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g84201_) - (##vector-length _g84201_) + _g85193_) + (##values-length _g85193_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84202_ 2))) - (error "Context expects 2 values" _g84202_))) + (if (not (let () (declare (not safe)) (##fx= _g85194_ 2))) + (error "Context expects 2 values" _g85194_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7009170112%_ + (let ((_%target7096670987%_ (let () (declare (not safe)) - (##vector-ref - _g84201_ + (##values-ref + _g85193_ 0))) - (_%tl7009370115%_ + (_%tl7096870990%_ (let () (declare (not safe)) - (##vector-ref - _g84201_ + (##values-ref + _g85193_ 1)))) (if (gx#stx-null? - _%tl7009370115%_) - (letrec ((_%loop7009470118%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7009270122%_ _%rawsetf7009870125%_) - (if (gx#stx-pair? _%hd7009270122%_) - (let ((_%e7009570128%_ - (gx#syntax-e _%hd7009270122%_))) - (let ((_%lp-hd7009670132%_ + _%tl7096870990%_) + (letrec ((_%loop7096970993%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7096770997%_ _%rawsetf7097371000%_) + (if (gx#stx-pair? _%hd7096770997%_) + (let ((_%e7097071003%_ + (gx#syntax-e _%hd7096770997%_))) + (let ((_%lp-hd7097171007%_ (let () (declare (not safe)) - (##car _%e7009570128%_))) - (_%lp-tl7009770135%_ + (##car _%e7097071003%_))) + (_%lp-tl7097271010%_ (let () (declare (not safe)) - (##cdr _%e7009570128%_)))) - (_%loop7009470118%_ - _%lp-tl7009770135%_ - (cons _%lp-hd7009670132%_ - _%rawsetf7009870125%_)))) - (let ((_%rawsetf7009970138%_ - (reverse _%rawsetf7009870125%_))) - ((lambda (_%L70142%_) - (let* ((_%g7015970176%_ - (lambda (_%g7016070172%_) + (##cdr _%e7097071003%_)))) + (_%loop7096970993%_ + _%lp-tl7097271010%_ + (cons _%lp-hd7097171007%_ + _%rawsetf7097371000%_)))) + (let ((_%rawsetf7097471013%_ + (reverse _%rawsetf7097371000%_))) + ((lambda (_%L71017%_) + (let* ((_%g7103471051%_ + (lambda (_%g7103571047%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7016070172%_))) - (_%g7015873735%_ - (lambda (_%g7016070180%_) + _%g7103571047%_))) + (_%g7103374610%_ + (lambda (_%g7103571055%_) (if (gx#stx-pair/null? - _%g7016070180%_) - (let ((_g84203_ + _%g7103571055%_) + (let ((_g85195_ (gx#syntax-split-splice - _%g7016070180%_ + _%g7103571055%_ '0))) (begin - (let ((_g84204_ + (let ((_g85196_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g84203_) - (##vector-length _g84203_) + (if (##values? _g85195_) + (##values-length _g85195_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84204_ 2))) - (error "Context expects 2 values" _g84204_))) - (let ((_%target7016270183%_ + (if (not (let () (declare (not safe)) (##fx= _g85196_ 2))) + (error "Context expects 2 values" _g85196_))) + (let ((_%target7103771058%_ (let () (declare (not safe)) - (##vector-ref _g84203_ 0))) - (_%tl7016470186%_ + (##values-ref _g85195_ 0))) + (_%tl7103971061%_ (let () (declare (not safe)) - (##vector-ref _g84203_ 1)))) - (if (gx#stx-null? _%tl7016470186%_) - (letrec ((_%loop7016570189%_ - (lambda (_%hd7016370193%_ - _%mixin-slot7016970196%_) - (if (gx#stx-pair? _%hd7016370193%_) - (let ((_%e7016670199%_ - (gx#syntax-e _%hd7016370193%_))) - (let ((_%lp-hd7016770203%_ + (##values-ref _g85195_ 1)))) + (if (gx#stx-null? _%tl7103971061%_) + (letrec ((_%loop7104071064%_ + (lambda (_%hd7103871068%_ + _%mixin-slot7104471071%_) + (if (gx#stx-pair? _%hd7103871068%_) + (let ((_%e7104171074%_ + (gx#syntax-e _%hd7103871068%_))) + (let ((_%lp-hd7104271078%_ (let () (declare (not safe)) - (##car _%e7016670199%_))) - (_%lp-tl7016870206%_ + (##car _%e7104171074%_))) + (_%lp-tl7104371081%_ (let () (declare (not safe)) - (##cdr _%e7016670199%_)))) - (_%loop7016570189%_ - _%lp-tl7016870206%_ - (cons _%lp-hd7016770203%_ - _%mixin-slot7016970196%_)))) - (let ((_%mixin-slot7017070209%_ - (reverse _%mixin-slot7016970196%_))) - ((lambda (_%L70213%_) - (let* ((_%g7023070247%_ - (lambda (_%g7023170243%_) + (##cdr _%e7104171074%_)))) + (_%loop7104071064%_ + _%lp-tl7104371081%_ + (cons _%lp-hd7104271078%_ + _%mixin-slot7104471071%_)))) + (let ((_%mixin-slot7104571084%_ + (reverse _%mixin-slot7104471071%_))) + ((lambda (_%L71088%_) + (let* ((_%g7110571122%_ + (lambda (_%g7110671118%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7023170243%_))) - (_%g7022973726%_ - (lambda (_%g7023170251%_) + _%g7110671118%_))) + (_%g7110474601%_ + (lambda (_%g7110671126%_) (if (gx#stx-pair/null? - _%g7023170251%_) - (let ((_g84205_ + _%g7110671126%_) + (let ((_g85197_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g7023170251%_ '0))) + (gx#syntax-split-splice _%g7110671126%_ '0))) (begin - (let ((_g84206_ + (let ((_g85198_ (let () (declare (not safe)) - (if (##values? _g84205_) - (##vector-length _g84205_) + (if (##values? _g85197_) + (##values-length _g85197_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84206_ 2))) - (error "Context expects 2 values" _g84206_))) - (let ((_%target7023370254%_ + (##fx= _g85198_ 2))) + (error "Context expects 2 values" _g85198_))) + (let ((_%target7110871129%_ (let () (declare (not safe)) - (##vector-ref _g84205_ 0))) - (_%tl7023570257%_ + (##values-ref _g85197_ 0))) + (_%tl7111071132%_ (let () (declare (not safe)) - (##vector-ref _g84205_ 1)))) - (if (gx#stx-null? _%tl7023570257%_) - (letrec ((_%loop7023670260%_ - (lambda (_%hd7023470264%_ - _%mixin-getf7024070267%_) - (if (gx#stx-pair? _%hd7023470264%_) - (let ((_%e7023770270%_ + (##values-ref _g85197_ 1)))) + (if (gx#stx-null? _%tl7111071132%_) + (letrec ((_%loop7111171135%_ + (lambda (_%hd7110971139%_ + _%mixin-getf7111571142%_) + (if (gx#stx-pair? _%hd7110971139%_) + (let ((_%e7111271145%_ (gx#syntax-e - _%hd7023470264%_))) - (let ((_%lp-hd7023870274%_ + _%hd7110971139%_))) + (let ((_%lp-hd7111371149%_ (let () (declare (not safe)) - (##car _%e7023770270%_))) - (_%lp-tl7023970277%_ + (##car _%e7111271145%_))) + (_%lp-tl7111471152%_ (let () (declare (not safe)) - (##cdr _%e7023770270%_)))) - (_%loop7023670260%_ - _%lp-tl7023970277%_ - (cons _%lp-hd7023870274%_ - _%mixin-getf7024070267%_)))) - (let ((_%mixin-getf7024170280%_ - (reverse _%mixin-getf7024070267%_))) - ((lambda (_%L70284%_) - (let* ((_%g7030170318%_ - (lambda (_%g7030270314%_) + (##cdr _%e7111271145%_)))) + (_%loop7111171135%_ + _%lp-tl7111471152%_ + (cons _%lp-hd7111371149%_ + _%mixin-getf7111571142%_)))) + (let ((_%mixin-getf7111671155%_ + (reverse _%mixin-getf7111571142%_))) + ((lambda (_%L71159%_) + (let* ((_%g7117671193%_ + (lambda (_%g7117771189%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7030270314%_))) - (_%g7030073717%_ - (lambda (_%g7030270322%_) + _%g7117771189%_))) + (_%g7117574592%_ + (lambda (_%g7117771197%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7030270322%_) - (let ((_g84207_ - (gx#syntax-split-splice _%g7030270322%_ '0))) + _%g7117771197%_) + (let ((_g85199_ + (gx#syntax-split-splice _%g7117771197%_ '0))) (begin - (let ((_g84208_ + (let ((_g85200_ (let () (declare (not safe)) - (if (##values? _g84207_) - (##vector-length _g84207_) + (if (##values? _g85199_) + (##values-length _g85199_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84208_ 2))) - (error "Context expects 2 values" _g84208_))) - (let ((_%target7030470325%_ + (##fx= _g85200_ 2))) + (error "Context expects 2 values" _g85200_))) + (let ((_%target7117971200%_ (let () (declare (not safe)) - (##vector-ref _g84207_ 0))) - (_%tl7030670328%_ + (##values-ref _g85199_ 0))) + (_%tl7118171203%_ (let () (declare (not safe)) - (##vector-ref _g84207_ 1)))) - (if (gx#stx-null? _%tl7030670328%_) - (letrec ((_%loop7030770331%_ - (lambda (_%hd7030570335%_ - _%mixin-setf7031170338%_) + (##values-ref _g85199_ 1)))) + (if (gx#stx-null? _%tl7118171203%_) + (letrec ((_%loop7118271206%_ + (lambda (_%hd7118071210%_ + _%mixin-setf7118671213%_) (if (gx#stx-pair? - _%hd7030570335%_) - (let ((_%e7030870341%_ + _%hd7118071210%_) + (let ((_%e7118371216%_ (gx#syntax-e - _%hd7030570335%_))) - (let ((_%lp-hd7030970345%_ + _%hd7118071210%_))) + (let ((_%lp-hd7118471220%_ (let () (declare (not safe)) - (##car _%e7030870341%_))) - (_%lp-tl7031070348%_ + (##car _%e7118371216%_))) + (_%lp-tl7118571223%_ (let () (declare (not safe)) - (##cdr _%e7030870341%_)))) - (_%loop7030770331%_ - _%lp-tl7031070348%_ - (cons _%lp-hd7030970345%_ - _%mixin-setf7031170338%_)))) - (let ((_%mixin-setf7031270351%_ - (reverse _%mixin-setf7031170338%_))) - ((lambda (_%L70355%_) - (let* ((_%g7037270389%_ - (lambda (_%g7037370385%_) + (##cdr _%e7118371216%_)))) + (_%loop7118271206%_ + _%lp-tl7118571223%_ + (cons _%lp-hd7118471220%_ + _%mixin-setf7118671213%_)))) + (let ((_%mixin-setf7118771226%_ + (reverse _%mixin-setf7118671213%_))) + ((lambda (_%L71230%_) + (let* ((_%g7124771264%_ + (lambda (_%g7124871260%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7037370385%_))) - (_%g7037173708%_ - (lambda (_%g7037370393%_) - (if (gx#stx-pair/null? _%g7037370393%_) - (let ((_g84209_ + _%g7124871260%_))) + (_%g7124674583%_ + (lambda (_%g7124871268%_) + (if (gx#stx-pair/null? _%g7124871268%_) + (let ((_g85201_ (gx#syntax-split-splice - _%g7037370393%_ + _%g7124871268%_ '0))) (begin - (let ((_g84210_ + (let ((_g85202_ (let () (declare (not safe)) - (if (##values? _g84209_) - (##vector-length _g84209_) + (if (##values? _g85201_) + (##values-length _g85201_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84210_ 2))) + (##fx= _g85202_ 2))) (error "Context expects 2 values" - _g84210_))) - (let ((_%target7037570396%_ + _g85202_))) + (let ((_%target7125071271%_ (let () (declare (not safe)) - (##vector-ref _g84209_ 0))) - (_%tl7037770399%_ + (##values-ref _g85201_ 0))) + (_%tl7125271274%_ (let () (declare (not safe)) - (##vector-ref _g84209_ 1)))) - (if (gx#stx-null? _%tl7037770399%_) - (letrec ((_%loop7037870402%_ - (lambda (_%hd7037670406%_ - _%mixin-rawsetf7038270409%_) + (##values-ref _g85201_ 1)))) + (if (gx#stx-null? _%tl7125271274%_) + (letrec ((_%loop7125371277%_ + (lambda (_%hd7125171281%_ + _%mixin-rawsetf7125771284%_) (if (gx#stx-pair? - _%hd7037670406%_) - (let ((_%e7037970412%_ + _%hd7125171281%_) + (let ((_%e7125471287%_ (gx#syntax-e - _%hd7037670406%_))) - (let ((_%lp-hd7038070416%_ + _%hd7125171281%_))) + (let ((_%lp-hd7125571291%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e7037970412%_))) - (_%lp-tl7038170419%_ - (let () (declare (not safe)) (##cdr _%e7037970412%_)))) - (_%loop7037870402%_ - _%lp-tl7038170419%_ - (cons _%lp-hd7038070416%_ _%mixin-rawsetf7038270409%_)))) - (let ((_%mixin-rawsetf7038370422%_ - (reverse _%mixin-rawsetf7038270409%_))) - ((lambda (_%L70426%_) - (let* ((_%g7044370460%_ - (lambda (_%g7044470456%_) + (##car _%e7125471287%_))) + (_%lp-tl7125671294%_ + (let () (declare (not safe)) (##cdr _%e7125471287%_)))) + (_%loop7125371277%_ + _%lp-tl7125671294%_ + (cons _%lp-hd7125571291%_ _%mixin-rawsetf7125771284%_)))) + (let ((_%mixin-rawsetf7125871297%_ + (reverse _%mixin-rawsetf7125771284%_))) + ((lambda (_%L71301%_) + (let* ((_%g7131871335%_ + (lambda (_%g7131971331%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7044470456%_))) - (_%g7044273691%_ - (lambda (_%g7044470464%_) - (if (gx#stx-pair/null? _%g7044470464%_) - (let ((_g84211_ + _%g7131971331%_))) + (_%g7131774566%_ + (lambda (_%g7131971339%_) + (if (gx#stx-pair/null? _%g7131971339%_) + (let ((_g85203_ (gx#syntax-split-splice - _%g7044470464%_ + _%g7131971339%_ '0))) (begin - (let ((_g84212_ + (let ((_g85204_ (let () (declare (not safe)) - (if (##values? _g84211_) - (##vector-length _g84211_) + (if (##values? _g85203_) + (##values-length _g85203_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84212_ 2))) + (##fx= _g85204_ 2))) (error "Context expects 2 values" - _g84212_))) - (let ((_%target7044670467%_ + _g85204_))) + (let ((_%target7132171342%_ (let () (declare (not safe)) - (##vector-ref _g84211_ 0))) - (_%tl7044870470%_ + (##values-ref _g85203_ 0))) + (_%tl7132371345%_ (let () (declare (not safe)) - (##vector-ref _g84211_ 1)))) - (if (gx#stx-null? _%tl7044870470%_) - (letrec ((_%loop7044970473%_ - (lambda (_%hd7044770477%_ - _%ugetf7045370480%_) + (##values-ref _g85203_ 1)))) + (if (gx#stx-null? _%tl7132371345%_) + (letrec ((_%loop7132471348%_ + (lambda (_%hd7132271352%_ + _%ugetf7132871355%_) (if (gx#stx-pair? - _%hd7044770477%_) - (let ((_%e7045070483%_ + _%hd7132271352%_) + (let ((_%e7132571358%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7044770477%_))) - (let ((_%lp-hd7045170487%_ + (gx#syntax-e _%hd7132271352%_))) + (let ((_%lp-hd7132671362%_ (let () (declare (not safe)) - (##car _%e7045070483%_))) - (_%lp-tl7045270490%_ + (##car _%e7132571358%_))) + (_%lp-tl7132771365%_ (let () (declare (not safe)) - (##cdr _%e7045070483%_)))) - (_%loop7044970473%_ - _%lp-tl7045270490%_ - (cons _%lp-hd7045170487%_ _%ugetf7045370480%_)))) - (let ((_%ugetf7045470493%_ (reverse _%ugetf7045370480%_))) - ((lambda (_%L70497%_) - (let* ((_%g7051470531%_ - (lambda (_%g7051570527%_) + (##cdr _%e7132571358%_)))) + (_%loop7132471348%_ + _%lp-tl7132771365%_ + (cons _%lp-hd7132671362%_ _%ugetf7132871355%_)))) + (let ((_%ugetf7132971368%_ (reverse _%ugetf7132871355%_))) + ((lambda (_%L71372%_) + (let* ((_%g7138971406%_ + (lambda (_%g7139071402%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7051570527%_))) - (_%g7051373674%_ - (lambda (_%g7051570535%_) - (if (gx#stx-pair/null? _%g7051570535%_) - (let ((_g84213_ + _%g7139071402%_))) + (_%g7138874549%_ + (lambda (_%g7139071410%_) + (if (gx#stx-pair/null? _%g7139071410%_) + (let ((_g85205_ (gx#syntax-split-splice - _%g7051570535%_ + _%g7139071410%_ '0))) (begin - (let ((_g84214_ + (let ((_g85206_ (let () (declare (not safe)) - (if (##values? _g84213_) - (##vector-length - _g84213_) + (if (##values? _g85205_) + (##values-length + _g85205_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84214_ 2))) + (##fx= _g85206_ 2))) (error "Context expects 2 values" - _g84214_))) - (let ((_%target7051770538%_ + _g85206_))) + (let ((_%target7139271413%_ (let () (declare (not safe)) - (##vector-ref _g84213_ 0))) - (_%tl7051970541%_ + (##values-ref _g85205_ 0))) + (_%tl7139471416%_ (let () (declare (not safe)) - (##vector-ref - _g84213_ + (##values-ref + _g85205_ 1)))) (if (gx#stx-null? - _%tl7051970541%_) - (letrec ((_%loop7052070544%_ - (lambda (_%hd7051870548%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%usetf7052470551%_) - (if (gx#stx-pair? _%hd7051870548%_) - (let ((_%e7052170554%_ - (gx#syntax-e _%hd7051870548%_))) - (let ((_%lp-hd7052270558%_ + _%tl7139471416%_) + (letrec ((_%loop7139571419%_ + (lambda (_%hd7139371423%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%usetf7139971426%_) + (if (gx#stx-pair? _%hd7139371423%_) + (let ((_%e7139671429%_ + (gx#syntax-e _%hd7139371423%_))) + (let ((_%lp-hd7139771433%_ (let () (declare (not safe)) - (##car _%e7052170554%_))) - (_%lp-tl7052370561%_ + (##car _%e7139671429%_))) + (_%lp-tl7139871436%_ (let () (declare (not safe)) - (##cdr _%e7052170554%_)))) - (_%loop7052070544%_ - _%lp-tl7052370561%_ - (cons _%lp-hd7052270558%_ _%usetf7052470551%_)))) - (let ((_%usetf7052570564%_ - (reverse _%usetf7052470551%_))) - ((lambda (_%L70568%_) - (let* ((_%g7058570602%_ - (lambda (_%g7058670598%_) + (##cdr _%e7139671429%_)))) + (_%loop7139571419%_ + _%lp-tl7139871436%_ + (cons _%lp-hd7139771433%_ _%usetf7139971426%_)))) + (let ((_%usetf7140071439%_ + (reverse _%usetf7139971426%_))) + ((lambda (_%L71443%_) + (let* ((_%g7146071477%_ + (lambda (_%g7146171473%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7058670598%_))) - (_%g7058473657%_ - (lambda (_%g7058670606%_) - (if (gx#stx-pair/null? _%g7058670606%_) - (let ((_g84215_ + _%g7146171473%_))) + (_%g7145974532%_ + (lambda (_%g7146171481%_) + (if (gx#stx-pair/null? _%g7146171481%_) + (let ((_g85207_ (gx#syntax-split-splice - _%g7058670606%_ + _%g7146171481%_ '0))) (begin - (let ((_g84216_ + (let ((_g85208_ (let () (declare (not safe)) (if (##values? - _g84215_) - (##vector-length - _g84215_) + _g85207_) + (##values-length + _g85207_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84216_ + (##fx= _g85208_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g84216_))) + (error "Context expects 2 values" _g85208_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7058870609%_ + (let ((_%target7146371484%_ (let () (declare (not safe)) - (##vector-ref - _g84215_ + (##values-ref + _g85207_ 0))) - (_%tl7059070612%_ + (_%tl7146571487%_ (let () (declare (not safe)) - (##vector-ref - _g84215_ + (##values-ref + _g85207_ 1)))) (if (gx#stx-null? - _%tl7059070612%_) - (letrec ((_%loop7059170615%_ - (lambda (_%hd7058970619%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%mixin-ugetf7059570622%_) - (if (gx#stx-pair? _%hd7058970619%_) - (let ((_%e7059270625%_ - (gx#syntax-e _%hd7058970619%_))) - (let ((_%lp-hd7059370629%_ + _%tl7146571487%_) + (letrec ((_%loop7146671490%_ + (lambda (_%hd7146471494%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%mixin-ugetf7147071497%_) + (if (gx#stx-pair? _%hd7146471494%_) + (let ((_%e7146771500%_ + (gx#syntax-e _%hd7146471494%_))) + (let ((_%lp-hd7146871504%_ (let () (declare (not safe)) - (##car _%e7059270625%_))) - (_%lp-tl7059470632%_ + (##car _%e7146771500%_))) + (_%lp-tl7146971507%_ (let () (declare (not safe)) - (##cdr _%e7059270625%_)))) - (_%loop7059170615%_ - _%lp-tl7059470632%_ - (cons _%lp-hd7059370629%_ - _%mixin-ugetf7059570622%_)))) - (let ((_%mixin-ugetf7059670635%_ - (reverse _%mixin-ugetf7059570622%_))) - ((lambda (_%L70639%_) - (let* ((_%g7065670673%_ - (lambda (_%g7065770669%_) + (##cdr _%e7146771500%_)))) + (_%loop7146671490%_ + _%lp-tl7146971507%_ + (cons _%lp-hd7146871504%_ + _%mixin-ugetf7147071497%_)))) + (let ((_%mixin-ugetf7147171510%_ + (reverse _%mixin-ugetf7147071497%_))) + ((lambda (_%L71514%_) + (let* ((_%g7153171548%_ + (lambda (_%g7153271544%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7065770669%_))) - (_%g7065573640%_ - (lambda (_%g7065770677%_) + _%g7153271544%_))) + (_%g7153074515%_ + (lambda (_%g7153271552%_) (if (gx#stx-pair/null? - _%g7065770677%_) - (let ((_g84217_ + _%g7153271552%_) + (let ((_g85209_ (gx#syntax-split-splice - _%g7065770677%_ + _%g7153271552%_ '0))) (begin - (let ((_g84218_ + (let ((_g85210_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g84217_) - (##vector-length _g84217_) + _g85209_) + (##values-length _g85209_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84218_ 2))) - (error "Context expects 2 values" _g84218_))) + (if (not (let () (declare (not safe)) (##fx= _g85210_ 2))) + (error "Context expects 2 values" _g85210_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7065970680%_ + (let ((_%target7153471555%_ (let () (declare (not safe)) - (##vector-ref - _g84217_ + (##values-ref + _g85209_ 0))) - (_%tl7066170683%_ + (_%tl7153671558%_ (let () (declare (not safe)) - (##vector-ref - _g84217_ + (##values-ref + _g85209_ 1)))) (if (gx#stx-null? - _%tl7066170683%_) - (letrec ((_%loop7066270686%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7066070690%_ - _%mixin-usetf7066670693%_) - (if (gx#stx-pair? _%hd7066070690%_) - (let ((_%e7066370696%_ - (gx#syntax-e _%hd7066070690%_))) - (let ((_%lp-hd7066470700%_ + _%tl7153671558%_) + (letrec ((_%loop7153771561%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7153571565%_ + _%mixin-usetf7154171568%_) + (if (gx#stx-pair? _%hd7153571565%_) + (let ((_%e7153871571%_ + (gx#syntax-e _%hd7153571565%_))) + (let ((_%lp-hd7153971575%_ (let () (declare (not safe)) - (##car _%e7066370696%_))) - (_%lp-tl7066570703%_ + (##car _%e7153871571%_))) + (_%lp-tl7154071578%_ (let () (declare (not safe)) - (##cdr _%e7066370696%_)))) - (_%loop7066270686%_ - _%lp-tl7066570703%_ - (cons _%lp-hd7066470700%_ - _%mixin-usetf7066670693%_)))) - (let ((_%mixin-usetf7066770706%_ - (reverse _%mixin-usetf7066670693%_))) - ((lambda (_%L70710%_) - (let* ((_%type-slots70872%_ + (##cdr _%e7153871571%_)))) + (_%loop7153771561%_ + _%lp-tl7154071578%_ + (cons _%lp-hd7153971575%_ + _%mixin-usetf7154171568%_)))) + (let ((_%mixin-usetf7154271581%_ + (reverse _%mixin-usetf7154171568%_))) + ((lambda (_%L71585%_) + (let* ((_%type-slots71747%_ (if (gx#stx-null? - _%slots69636%_) + _%slots70511%_) '() (cons 'slots: - (cons (map (lambda (_%slot70731%_ + (cons (map (lambda (_%slot71606%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%getf70733%_ - _%setf70734%_ - _%rawsetf70735%_) - (let* ((_%g7073770760%_ - (lambda (_%g7073870756%_) + _%getf71608%_ + _%setf71609%_ + _%rawsetf71610%_) + (let* ((_%g7161271635%_ + (lambda (_%g7161371631%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7073870756%_))) - (_%g7073670836%_ - (lambda (_%g7073870764%_) - (if (gx#stx-pair? _%g7073870764%_) - (let ((_%e7074370767%_ + _%g7161371631%_))) + (_%g7161171711%_ + (lambda (_%g7161371639%_) + (if (gx#stx-pair? _%g7161371639%_) + (let ((_%e7161871642%_ (gx#syntax-e - _%g7073870764%_))) - (let ((_%hd7074470771%_ + _%g7161371639%_))) + (let ((_%hd7161971646%_ (let () (declare (not safe)) - (##car _%e7074370767%_))) - (_%tl7074570774%_ + (##car _%e7161871642%_))) + (_%tl7162071649%_ (let () (declare (not safe)) - (##cdr _%e7074370767%_)))) + (##cdr _%e7161871642%_)))) (if (gx#stx-pair? - _%tl7074570774%_) - (let ((_%e7074670777%_ + _%tl7162071649%_) + (let ((_%e7162171652%_ (gx#syntax-e - _%tl7074570774%_))) - (let ((_%hd7074770781%_ + _%tl7162071649%_))) + (let ((_%hd7162271656%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7074670777%_))) - (_%tl7074870784%_ - (let () (declare (not safe)) (##cdr _%e7074670777%_)))) - (if (gx#stx-pair? _%tl7074870784%_) - (let ((_%e7074970787%_ (gx#syntax-e _%tl7074870784%_))) - (let ((_%hd7075070791%_ + (##car _%e7162171652%_))) + (_%tl7162371659%_ + (let () (declare (not safe)) (##cdr _%e7162171652%_)))) + (if (gx#stx-pair? _%tl7162371659%_) + (let ((_%e7162471662%_ (gx#syntax-e _%tl7162371659%_))) + (let ((_%hd7162571666%_ (let () (declare (not safe)) - (##car _%e7074970787%_))) - (_%tl7075170794%_ + (##car _%e7162471662%_))) + (_%tl7162671669%_ (let () (declare (not safe)) - (##cdr _%e7074970787%_)))) - (if (gx#stx-pair? _%tl7075170794%_) - (let ((_%e7075270797%_ - (gx#syntax-e _%tl7075170794%_))) - (let ((_%hd7075370801%_ + (##cdr _%e7162471662%_)))) + (if (gx#stx-pair? _%tl7162671669%_) + (let ((_%e7162771672%_ + (gx#syntax-e _%tl7162671669%_))) + (let ((_%hd7162871676%_ (let () (declare (not safe)) - (##car _%e7075270797%_))) - (_%tl7075470804%_ + (##car _%e7162771672%_))) + (_%tl7162971679%_ (let () (declare (not safe)) - (##cdr _%e7075270797%_)))) - (if (gx#stx-null? _%tl7075470804%_) - ((lambda (_%L70807%_ - _%L70809%_ - _%L70810%_ - _%L70811%_) + (##cdr _%e7162771672%_)))) + (if (gx#stx-null? _%tl7162971679%_) + ((lambda (_%L71682%_ + _%L71684%_ + _%L71685%_ + _%L71686%_) (if (hash-get - _%slot-contract-table69625%_ - (gx#stx-e _%L70811%_)) - (cons _%L70811%_ - (cons _%L70810%_ - (cons _%L70807%_ '()))) - (cons _%L70811%_ - (cons _%L70810%_ - (cons _%L70809%_ + _%slot-contract-table70500%_ + (gx#stx-e _%L71686%_)) + (cons _%L71686%_ + (cons _%L71685%_ + (cons _%L71682%_ '()))) + (cons _%L71686%_ + (cons _%L71685%_ + (cons _%L71684%_ '()))))) - _%hd7075370801%_ - _%hd7075070791%_ - _%hd7074770781%_ - _%hd7074470771%_) - (_%g7073770760%_ _%g7073870764%_)))) - (_%g7073770760%_ _%g7073870764%_)))) - (_%g7073770760%_ _%g7073870764%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7073770760%_ - _%g7073870764%_)))) - (_%g7073770760%_ - _%g7073870764%_))))) - (_%g7073670836%_ - (list _%slot70731%_ - _%getf70733%_ - _%setf70734%_ - _%rawsetf70735%_)))) - (foldr (lambda (_%g7083970842%_ _%g7084070845%_) - (cons _%g7083970842%_ _%g7084070845%_)) + _%hd7162871676%_ + _%hd7162571666%_ + _%hd7162271656%_ + _%hd7161971646%_) + (_%g7161271635%_ _%g7161371639%_)))) + (_%g7161271635%_ _%g7161371639%_)))) + (_%g7161271635%_ _%g7161371639%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7161271635%_ + _%g7161371639%_)))) + (_%g7161271635%_ + _%g7161371639%_))))) + (_%g7161171711%_ + (list _%slot71606%_ + _%getf71608%_ + _%setf71609%_ + _%rawsetf71610%_)))) + (foldr (lambda (_%g7171471717%_ _%g7171571720%_) + (cons _%g7171471717%_ _%g7171571720%_)) '() - _%L69858%_) - (foldr (lambda (_%g7084770850%_ _%g7084870853%_) - (cons _%g7084770850%_ _%g7084870853%_)) + _%L70733%_) + (foldr (lambda (_%g7172271725%_ _%g7172371728%_) + (cons _%g7172271725%_ _%g7172371728%_)) '() - _%L70000%_) - (foldr (lambda (_%g7085570858%_ _%g7085670861%_) - (cons _%g7085570858%_ _%g7085670861%_)) + _%L70875%_) + (foldr (lambda (_%g7173071733%_ _%g7173171736%_) + (cons _%g7173071733%_ _%g7173171736%_)) '() - _%L70071%_) - (foldr (lambda (_%g7086370866%_ _%g7086470869%_) - (cons _%g7086370866%_ _%g7086470869%_)) + _%L70946%_) + (foldr (lambda (_%g7173871741%_ _%g7173971744%_) + (cons _%g7173871741%_ _%g7173971744%_)) '() - _%L70142%_)) + _%L71017%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-mixin-slots71019%_ + (_%type-mixin-slots71894%_ (if (gx#stx-null? - _%mixin-slots69642%_) + _%mixin-slots70517%_) '() (cons 'mixin: - (cons (map (lambda (_%slot70879%_ + (cons (map (lambda (_%slot71754%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%getf70881%_ - _%setf70882%_ - _%rawsetf70883%_) - (let* ((_%g7088570908%_ - (lambda (_%g7088670904%_) + _%getf71756%_ + _%setf71757%_ + _%rawsetf71758%_) + (let* ((_%g7176071783%_ + (lambda (_%g7176171779%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7088670904%_))) - (_%g7088470983%_ - (lambda (_%g7088670912%_) - (if (gx#stx-pair? _%g7088670912%_) - (let ((_%e7089170915%_ + _%g7176171779%_))) + (_%g7175971858%_ + (lambda (_%g7176171787%_) + (if (gx#stx-pair? _%g7176171787%_) + (let ((_%e7176671790%_ (gx#syntax-e - _%g7088670912%_))) - (let ((_%hd7089270919%_ + _%g7176171787%_))) + (let ((_%hd7176771794%_ (let () (declare (not safe)) - (##car _%e7089170915%_))) - (_%tl7089370922%_ + (##car _%e7176671790%_))) + (_%tl7176871797%_ (let () (declare (not safe)) - (##cdr _%e7089170915%_)))) + (##cdr _%e7176671790%_)))) (if (gx#stx-pair? - _%tl7089370922%_) - (let ((_%e7089470925%_ + _%tl7176871797%_) + (let ((_%e7176971800%_ (gx#syntax-e - _%tl7089370922%_))) - (let ((_%hd7089570929%_ + _%tl7176871797%_))) + (let ((_%hd7177071804%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7089470925%_))) - (_%tl7089670932%_ - (let () (declare (not safe)) (##cdr _%e7089470925%_)))) - (if (gx#stx-pair? _%tl7089670932%_) - (let ((_%e7089770935%_ (gx#syntax-e _%tl7089670932%_))) - (let ((_%hd7089870939%_ + (##car _%e7176971800%_))) + (_%tl7177171807%_ + (let () (declare (not safe)) (##cdr _%e7176971800%_)))) + (if (gx#stx-pair? _%tl7177171807%_) + (let ((_%e7177271810%_ (gx#syntax-e _%tl7177171807%_))) + (let ((_%hd7177371814%_ (let () (declare (not safe)) - (##car _%e7089770935%_))) - (_%tl7089970942%_ + (##car _%e7177271810%_))) + (_%tl7177471817%_ (let () (declare (not safe)) - (##cdr _%e7089770935%_)))) - (if (gx#stx-pair? _%tl7089970942%_) - (let ((_%e7090070945%_ - (gx#syntax-e _%tl7089970942%_))) - (let ((_%hd7090170949%_ + (##cdr _%e7177271810%_)))) + (if (gx#stx-pair? _%tl7177471817%_) + (let ((_%e7177571820%_ + (gx#syntax-e _%tl7177471817%_))) + (let ((_%hd7177671824%_ (let () (declare (not safe)) - (##car _%e7090070945%_))) - (_%tl7090270952%_ + (##car _%e7177571820%_))) + (_%tl7177771827%_ (let () (declare (not safe)) - (##cdr _%e7090070945%_)))) - (if (gx#stx-null? _%tl7090270952%_) - ((lambda (_%L70955%_ - _%L70957%_ - _%L70958%_ - _%L70959%_) + (##cdr _%e7177571820%_)))) + (if (gx#stx-null? _%tl7177771827%_) + ((lambda (_%L71830%_ + _%L71832%_ + _%L71833%_ + _%L71834%_) (if (hash-get - _%slot-contract-table69625%_ - (gx#stx-e _%L70959%_)) - (cons _%L70959%_ - (cons _%L70958%_ - (cons _%L70955%_ '()))) - (cons _%L70959%_ - (cons _%L70958%_ - (cons _%L70957%_ + _%slot-contract-table70500%_ + (gx#stx-e _%L71834%_)) + (cons _%L71834%_ + (cons _%L71833%_ + (cons _%L71830%_ '()))) + (cons _%L71834%_ + (cons _%L71833%_ + (cons _%L71832%_ '()))))) - _%hd7090170949%_ - _%hd7089870939%_ - _%hd7089570929%_ - _%hd7089270919%_) - (_%g7088570908%_ _%g7088670912%_)))) - (_%g7088570908%_ _%g7088670912%_)))) - (_%g7088570908%_ _%g7088670912%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7088570908%_ - _%g7088670912%_)))) - (_%g7088570908%_ - _%g7088670912%_))))) - (_%g7088470983%_ - (list _%slot70879%_ - _%getf70881%_ - _%setf70882%_ - _%rawsetf70883%_)))) - (foldr (lambda (_%g7098670989%_ _%g7098770992%_) - (cons _%g7098670989%_ _%g7098770992%_)) + _%hd7177671824%_ + _%hd7177371814%_ + _%hd7177071804%_ + _%hd7176771794%_) + (_%g7176071783%_ _%g7176171787%_)))) + (_%g7176071783%_ _%g7176171787%_)))) + (_%g7176071783%_ _%g7176171787%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7176071783%_ + _%g7176171787%_)))) + (_%g7176071783%_ + _%g7176171787%_))))) + (_%g7175971858%_ + (list _%slot71754%_ + _%getf71756%_ + _%setf71757%_ + _%rawsetf71758%_)))) + (foldr (lambda (_%g7186171864%_ _%g7186271867%_) + (cons _%g7186171864%_ _%g7186271867%_)) '() - _%L70213%_) - (foldr (lambda (_%g7099470997%_ _%g7099571000%_) - (cons _%g7099470997%_ _%g7099571000%_)) + _%L71088%_) + (foldr (lambda (_%g7186971872%_ _%g7187071875%_) + (cons _%g7186971872%_ _%g7187071875%_)) '() - _%L70284%_) - (foldr (lambda (_%g7100271005%_ _%g7100371008%_) - (cons _%g7100271005%_ _%g7100371008%_)) + _%L71159%_) + (foldr (lambda (_%g7187771880%_ _%g7187871883%_) + (cons _%g7187771880%_ _%g7187871883%_)) '() - _%L70355%_) - (foldr (lambda (_%g7101071013%_ _%g7101171016%_) - (cons _%g7101071013%_ _%g7101171016%_)) + _%L71230%_) + (foldr (lambda (_%g7188571888%_ _%g7188671891%_) + (cons _%g7188571888%_ _%g7188671891%_)) '() - _%L70426%_)) + _%L71301%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-name71026%_ + (_%type-name71901%_ (cons 'name: - (cons (let ((_%$e71022%_ + (cons (let ((_%$e71897%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'name: _%body69616%_))) - (if _%$e71022%_ _%$e71022%_ _%id69612%_)) + (gx#stx-getq 'name: _%body70491%_))) + (if _%$e71897%_ _%$e71897%_ _%id70487%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-id71033%_ + (_%type-id71908%_ (cons 'id: - (cons (let ((_%$e71029%_ + (cons (let ((_%$e71904%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'id: _%body69616%_))) - (if _%$e71029%_ - _%$e71029%_ + (gx#stx-getq 'id: _%body70491%_))) + (if _%$e71904%_ + _%$e71904%_ (let () (declare (not safe)) (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L69669%_)))) + _%L70544%_)))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-constructor71048%_ - (let ((_%$e71044%_ - (let ((_%e7103571037%_ + (_%type-constructor71923%_ + (let ((_%$e71919%_ + (let ((_%e7191071912%_ (gx#stx-getq 'constructor: - _%body69616%_))) - (if _%e7103571037%_ - (let ((_%e71041%_ + _%body70491%_))) + (if _%e7191071912%_ + (let ((_%e71916%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e7103571037%_)) - (cons 'constructor: (cons _%e71041%_ '()))) + _%e7191071912%_)) + (cons 'constructor: (cons _%e71916%_ '()))) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e71044%_ - _%$e71044%_ + (if _%$e71919%_ + _%$e71919%_ '()))) - (_%properties71102%_ - (let* ((_%properties71051%_ + (_%properties71977%_ + (let* ((_%properties71926%_ (if (gx#stx-e (gx#stx-getq 'transparent: - _%body69616%_)) + _%body70491%_)) (cons (cons 'transparent: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#t) '()) '())) - (_%properties71074%_ - (let ((_%$e71054%_ - (gx#stx-e (gx#stx-getq 'print: _%body69616%_)))) - (if _%$e71054%_ - ((lambda (_%print71058%_) - (let ((_%print71069%_ - (if (eq? _%print71058%_ '#t) - (foldr (lambda (_%g7106071063%_ - _%g7106171066%_) - (cons _%g7106071063%_ - _%g7106171066%_)) + (_%properties71949%_ + (let ((_%$e71929%_ + (gx#stx-e (gx#stx-getq 'print: _%body70491%_)))) + (if _%$e71929%_ + ((lambda (_%print71933%_) + (let ((_%print71944%_ + (if (eq? _%print71933%_ '#t) + (foldr (lambda (_%g7193571938%_ + _%g7193671941%_) + (cons _%g7193571938%_ + _%g7193671941%_)) '() - _%L69858%_) - _%print71058%_))) - (cons (cons 'print: _%print71069%_) - _%properties71051%_))) - _%$e71054%_) - _%properties71051%_))) - (_%properties71097%_ - (let ((_%$e71077%_ - (gx#stx-e (gx#stx-getq 'equal: _%body69616%_)))) - (if _%$e71077%_ - ((lambda (_%equal71081%_) - (let ((_%equal71092%_ - (if (eq? _%equal71081%_ '#t) - (foldr (lambda (_%g7108371086%_ - _%g7108471089%_) - (cons _%g7108371086%_ - _%g7108471089%_)) + _%L70733%_) + _%print71933%_))) + (cons (cons 'print: _%print71944%_) + _%properties71926%_))) + _%$e71929%_) + _%properties71926%_))) + (_%properties71972%_ + (let ((_%$e71952%_ + (gx#stx-e (gx#stx-getq 'equal: _%body70491%_)))) + (if _%$e71952%_ + ((lambda (_%equal71956%_) + (let ((_%equal71967%_ + (if (eq? _%equal71956%_ '#t) + (foldr (lambda (_%g7195871961%_ + _%g7195971964%_) + (cons _%g7195871961%_ + _%g7195971964%_)) '() - _%L69858%_) - _%equal71081%_))) - (cons (cons 'equal: _%equal71092%_) - _%properties71074%_))) - _%$e71077%_) - _%properties71074%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%properties71097%_)) - (_%type-properties71140%_ - (if (null? _%properties71102%_) + _%L70733%_) + _%equal71956%_))) + (cons (cons 'equal: _%equal71967%_) + _%properties71949%_))) + _%$e71952%_) + _%properties71949%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%properties71972%_)) + (_%type-properties72015%_ + (if (null? _%properties71977%_) '() - (let* ((_%g7110571113%_ - (lambda (_%g7110671109%_) + (let* ((_%g7198071988%_ + (lambda (_%g7198171984%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7110671109%_))) - (_%g7110471136%_ - (lambda (_%g7110671117%_) - ((lambda (_%L71120%_) + _%g7198171984%_))) + (_%g7197972011%_ + (lambda (_%g7198171992%_) + ((lambda (_%L71995%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'properties: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L71120%_ '())) + (cons _%L71995%_ '())) '()))) - _%g7110671117%_)))) - (_%g7110471136%_ _%properties71102%_)))) + _%g7198171992%_)))) + (_%g7197972011%_ _%properties71977%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%metaclass71152%_ - (let ((_%$e71143%_ + (_%metaclass72027%_ + (let ((_%$e72018%_ (gx#stx-getq 'metaclass: - _%body69616%_))) - (if _%$e71143%_ - ((lambda (_%metaclass71147%_) + _%body70491%_))) + (if _%$e72018%_ + ((lambda (_%metaclass72022%_) (if (gx#identifier? - _%metaclass71147%_) - _%metaclass71147%_ + _%metaclass72022%_) + _%metaclass72022%_ '#f)) - _%$e71143%_) + _%$e72018%_) '#f))) - (_%final?71155%_ + (_%final?72030%_ (gx#stx-e (gx#stx-getq 'final: - _%body69616%_))) - (_%type-struct71158%_ + _%body70491%_))) + (_%type-struct72033%_ (cons 'struct: - (cons _%struct?69651%_ + (cons _%struct?70526%_ '()))) - (_%type-final71161%_ + (_%type-final72036%_ (cons 'final: - (cons _%final?71155%_ + (cons _%final?72030%_ '()))) - (_%type-metaclass71164%_ - (if _%metaclass71152%_ + (_%type-metaclass72039%_ + (if _%metaclass72027%_ (cons 'metaclass: - (cons _%metaclass71152%_ + (cons _%metaclass72027%_ '())) '())) - (_%g7116771184%_ - (lambda (_%g7116871180%_) + (_%g7204272059%_ + (lambda (_%g7204372055%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7116871180%_))) - (_%g7116673636%_ - (lambda (_%g7116871188%_) + _%g7204372055%_))) + (_%g7204174511%_ + (lambda (_%g7204372063%_) (if (gx#stx-pair/null? - _%g7116871188%_) - (let ((_g84219_ + _%g7204372063%_) + (let ((_g85211_ (gx#syntax-split-splice - _%g7116871188%_ + _%g7204372063%_ '0))) (begin - (let ((_g84220_ + (let ((_g85212_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g84219_) - (##vector-length _g84219_) + (if (##values? _g85211_) + (##values-length _g85211_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84220_ 2))) - (error "Context expects 2 values" _g84220_))) - (let ((_%target7117071191%_ + (if (not (let () (declare (not safe)) (##fx= _g85212_ 2))) + (error "Context expects 2 values" _g85212_))) + (let ((_%target7204572066%_ (let () (declare (not safe)) - (##vector-ref _g84219_ 0))) - (_%tl7117271194%_ + (##values-ref _g85211_ 0))) + (_%tl7204772069%_ (let () (declare (not safe)) - (##vector-ref _g84219_ 1)))) - (if (gx#stx-null? _%tl7117271194%_) - (letrec ((_%loop7117371197%_ - (lambda (_%hd7117171201%_ - _%type-body7117771204%_) - (if (gx#stx-pair? _%hd7117171201%_) - (let ((_%e7117471207%_ - (gx#syntax-e _%hd7117171201%_))) - (let ((_%lp-hd7117571211%_ + (##values-ref _g85211_ 1)))) + (if (gx#stx-null? _%tl7204772069%_) + (letrec ((_%loop7204872072%_ + (lambda (_%hd7204672076%_ + _%type-body7205272079%_) + (if (gx#stx-pair? _%hd7204672076%_) + (let ((_%e7204972082%_ + (gx#syntax-e _%hd7204672076%_))) + (let ((_%lp-hd7205072086%_ (let () (declare (not safe)) - (##car _%e7117471207%_))) - (_%lp-tl7117671214%_ + (##car _%e7204972082%_))) + (_%lp-tl7205172089%_ (let () (declare (not safe)) - (##cdr _%e7117471207%_)))) - (_%loop7117371197%_ - _%lp-tl7117671214%_ - (cons _%lp-hd7117571211%_ - _%type-body7117771204%_)))) - (let ((_%type-body7117871217%_ - (reverse _%type-body7117771204%_))) - ((lambda (_%L71221%_) - (let* ((_%g7124271250%_ - (lambda (_%g7124371246%_) + (##cdr _%e7204972082%_)))) + (_%loop7204872072%_ + _%lp-tl7205172089%_ + (cons _%lp-hd7205072086%_ + _%type-body7205272079%_)))) + (let ((_%type-body7205372092%_ + (reverse _%type-body7205272079%_))) + ((lambda (_%L72096%_) + (let* ((_%g7211772125%_ + (lambda (_%g7211872121%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7124371246%_))) - (_%g7124173624%_ - (lambda (_%g7124371254%_) - ((lambda (_%L71257%_) - (let* ((_%g7127071278%_ + _%g7211872121%_))) + (_%g7211674499%_ + (lambda (_%g7211872129%_) + ((lambda (_%L72132%_) + (let* ((_%g7214572153%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7127171274%_) + (lambda (_%g7214672149%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7127171274%_))) - (_%g7126973612%_ - (lambda (_%g7127171282%_) - ((lambda (_%L71285%_) - (let* ((_%g7129871306%_ - (lambda (_%g7129971302%_) + _%g7214672149%_))) + (_%g7214474487%_ + (lambda (_%g7214672157%_) + ((lambda (_%L72160%_) + (let* ((_%g7217372181%_ + (lambda (_%g7217472177%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7129971302%_))) - (_%g7129773541%_ - (lambda (_%g7129971310%_) - ((lambda (_%L71313%_) - (let* ((_%g7132671334%_ - (lambda (_%g7132771330%_) + _%g7217472177%_))) + (_%g7217274416%_ + (lambda (_%g7217472185%_) + ((lambda (_%L72188%_) + (let* ((_%g7220172209%_ + (lambda (_%g7220272205%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7132771330%_))) - (_%g7132573506%_ - (lambda (_%g7132771338%_) - ((lambda (_%L71341%_) - (let* ((_%g7135471362%_ + _%g7220272205%_))) + (_%g7220074381%_ + (lambda (_%g7220272213%_) + ((lambda (_%L72216%_) + (let* ((_%g7222972237%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7135571358%_) + (lambda (_%g7223072233%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7135571358%_))) - (_%g7135373420%_ - (lambda (_%g7135571366%_) - ((lambda (_%L71369%_) - (let* ((_%g7138271390%_ - (lambda (_%g7138371386%_) + _%g7223072233%_))) + (_%g7222874295%_ + (lambda (_%g7223072241%_) + ((lambda (_%L72244%_) + (let* ((_%g7225772265%_ + (lambda (_%g7225872261%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7138371386%_))) - (_%g7138173408%_ - (lambda (_%g7138371394%_) - ((lambda (_%L71397%_) - (let* ((_%g7141071418%_ - (lambda (_%g7141171414%_) + _%g7225872261%_))) + (_%g7225674283%_ + (lambda (_%g7225872269%_) + ((lambda (_%L72272%_) + (let* ((_%g7228572293%_ + (lambda (_%g7228672289%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7141171414%_))) - (_%g7140973396%_ - (lambda (_%g7141171422%_) - ((lambda (_%L71425%_) - (let* ((_%g7143871446%_ - (lambda (_%g7143971442%_) + _%g7228672289%_))) + (_%g7228474271%_ + (lambda (_%g7228672297%_) + ((lambda (_%L72300%_) + (let* ((_%g7231372321%_ + (lambda (_%g7231472317%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7143971442%_))) - (_%g7143773282%_ - (lambda (_%g7143971450%_) - ((lambda (_%L71453%_) - (let* ((_%g7146671474%_ - (lambda (_%g7146771470%_) + _%g7231472317%_))) + (_%g7231274157%_ + (lambda (_%g7231472325%_) + ((lambda (_%L72328%_) + (let* ((_%g7234172349%_ + (lambda (_%g7234272345%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7146771470%_))) - (_%g7146573171%_ - (lambda (_%g7146771478%_) - ((lambda (_%L71481%_) - (let* ((_%g7149471502%_ - (lambda (_%g7149571498%_) + _%g7234272345%_))) + (_%g7234074046%_ + (lambda (_%g7234272353%_) + ((lambda (_%L72356%_) + (let* ((_%g7236972377%_ + (lambda (_%g7237072373%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7149571498%_))) - (_%g7149373060%_ - (lambda (_%g7149571506%_) - ((lambda (_%L71509%_) - (let* ((_%g7152271530%_ - (lambda (_%g7152371526%_) + _%g7237072373%_))) + (_%g7236873935%_ + (lambda (_%g7237072381%_) + ((lambda (_%L72384%_) + (let* ((_%g7239772405%_ + (lambda (_%g7239872401%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7152371526%_))) - (_%g7152173056%_ - (lambda (_%g7152371534%_) - ((lambda (_%L71537%_) - (let* ((_%g7155071558%_ - (lambda (_%g7155171554%_) + _%g7239872401%_))) + (_%g7239673931%_ + (lambda (_%g7239872409%_) + ((lambda (_%L72412%_) + (let* ((_%g7242572433%_ + (lambda (_%g7242672429%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7155171554%_))) - (_%g7154973052%_ - (lambda (_%g7155171562%_) - ((lambda (_%L71565%_) - (let* ((_%g7157871586%_ - (lambda (_%g7157971582%_) + _%g7242672429%_))) + (_%g7242473927%_ + (lambda (_%g7242672437%_) + ((lambda (_%L72440%_) + (let* ((_%g7245372461%_ + (lambda (_%g7245472457%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7157971582%_))) - (_%g7157773017%_ - (lambda (_%g7157971590%_) - ((lambda (_%L71593%_) - (let* ((_%g7160671614%_ - (lambda (_%g7160771610%_) + _%g7245472457%_))) + (_%g7245273892%_ + (lambda (_%g7245472465%_) + ((lambda (_%L72468%_) + (let* ((_%g7248172489%_ + (lambda (_%g7248272485%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g7160771610%_))) - (_%g7160572946%_ - (lambda (_%g7160771618%_) - ((lambda (_%L71621%_) - (let* ((_%g7163471642%_ - (lambda (_%g7163571638%_) + _%g7248272485%_))) + (_%g7248073821%_ + (lambda (_%g7248272493%_) + ((lambda (_%L72496%_) + (let* ((_%g7250972517%_ + (lambda (_%g7251072513%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7163571638%_))) - (_%g7163372942%_ - (lambda (_%g7163571646%_) - ((lambda (_%L71649%_) - (let* ((_%g7166271670%_ - (lambda (_%g7166371666%_) + _%g7251072513%_))) + (_%g7250873817%_ + (lambda (_%g7251072521%_) + ((lambda (_%L72524%_) + (let* ((_%g7253772545%_ + (lambda (_%g7253872541%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7166371666%_))) - (_%g7166172938%_ - (lambda (_%g7166371674%_) - ((lambda (_%L71677%_) - (let* ((_%g7169071698%_ - (lambda (_%g7169171694%_) + _%g7253872541%_))) + (_%g7253673813%_ + (lambda (_%g7253872549%_) + ((lambda (_%L72552%_) + (let* ((_%g7256572573%_ + (lambda (_%g7256672569%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7169171694%_))) - (_%g7168972934%_ - (lambda (_%g7169171702%_) - ((lambda (_%L71705%_) + _%g7256672569%_))) + (_%g7256473809%_ + (lambda (_%g7256672577%_) + ((lambda (_%L72580%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g7171871726%_ - (lambda (_%g7171971722%_) + (let* ((_%g7259372601%_ + (lambda (_%g7259472597%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7171971722%_))) - (_%g7171772908%_ - (lambda (_%g7171971730%_) - ((lambda (_%L71733%_) - (let* ((_%g7174671754%_ - (lambda (_%g7174771750%_) + _%g7259472597%_))) + (_%g7259273783%_ + (lambda (_%g7259472605%_) + ((lambda (_%L72608%_) + (let* ((_%g7262172629%_ + (lambda (_%g7262272625%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7174771750%_))) - (_%g7174572882%_ - (lambda (_%g7174771758%_) - ((lambda (_%L71761%_) - (let* ((_%g7177471782%_ - (lambda (_%g7177571778%_) + _%g7262272625%_))) + (_%g7262073757%_ + (lambda (_%g7262272633%_) + ((lambda (_%L72636%_) + (let* ((_%g7264972657%_ + (lambda (_%g7265072653%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7177571778%_))) - (_%g7177372856%_ - (lambda (_%g7177571786%_) - ((lambda (_%L71789%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%map-slot-usetf71807%_ - (lambda (_%slot71802%_ - _%setf71804%_ - _%rawsetf71805%_) + _%g7265072653%_))) + (_%g7264873731%_ + (lambda (_%g7265072661%_) + ((lambda (_%L72664%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let* ((_%map-slot-usetf72682%_ + (lambda (_%slot72677%_ + _%setf72679%_ + _%rawsetf72680%_) (cons 'cons (cons (cons 'quote - (cons _%slot71802%_ '())) + (cons _%slot72677%_ '())) (cons (if (hash-get - _%slot-contract-table69625%_ + _%slot-contract-table70500%_ (gx#stx-e - _%slot71802%_)) + _%slot72677%_)) (cons 'quote-syntax (cons (gx#stx-identifier ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rawsetf71805%_ + _%rawsetf72680%_ '"&" - _%rawsetf71805%_) + _%rawsetf72680%_) '())) - (cons 'quote-syntax (cons _%setf71804%_ '()))) + (cons 'quote-syntax (cons _%setf72679%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%g7181071818%_ - (lambda (_%g7181171814%_) + (_%g7268572693%_ + (lambda (_%g7268672689%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7181171814%_))) - (_%g7180972638%_ - (lambda (_%g7181171822%_) - ((lambda (_%L71825%_) - (let* ((_%g7183971847%_ - (lambda (_%g7184071843%_) + _%g7268672689%_))) + (_%g7268473513%_ + (lambda (_%g7268672697%_) + ((lambda (_%L72700%_) + (let* ((_%g7271472722%_ + (lambda (_%g7271572718%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7184071843%_))) - (_%g7183872634%_ - (lambda (_%g7184071851%_) - ((lambda (_%L71854%_) - (let* ((_%g7186771875%_ - (lambda (_%g7186871871%_) + _%g7271572718%_))) + (_%g7271373509%_ + (lambda (_%g7271572726%_) + ((lambda (_%L72729%_) + (let* ((_%g7274272750%_ + (lambda (_%g7274372746%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7186871871%_))) - (_%g7186672120%_ - (lambda (_%g7186871879%_) - ((lambda (_%L71882%_) - (let* ((_%g7189571912%_ + _%g7274372746%_))) + (_%g7274172995%_ + (lambda (_%g7274372754%_) + ((lambda (_%L72757%_) + (let* ((_%g7277072787%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7189671908%_) + (lambda (_%g7277172783%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7189671908%_))) - (_%g7189471976%_ - (lambda (_%g7189671916%_) - (if (gx#stx-pair/null? _%g7189671916%_) - (let ((_g84221_ + _%g7277172783%_))) + (_%g7276972851%_ + (lambda (_%g7277172791%_) + (if (gx#stx-pair/null? _%g7277172791%_) + (let ((_g85213_ (gx#syntax-split-splice - _%g7189671916%_ + _%g7277172791%_ '0))) (begin - (let ((_g84222_ + (let ((_g85214_ (let () (declare (not safe)) - (if (##values? _g84221_) - (##vector-length - _g84221_) + (if (##values? _g85213_) + (##values-length + _g85213_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84222_ 2))) + (##fx= _g85214_ 2))) (error "Context expects 2 values" - _g84222_))) - (let ((_%target7189871919%_ + _g85214_))) + (let ((_%target7277372794%_ (let () (declare (not safe)) - (##vector-ref _g84221_ 0))) - (_%tl7190071922%_ + (##values-ref _g85213_ 0))) + (_%tl7277572797%_ (let () (declare (not safe)) - (##vector-ref _g84221_ 1)))) - (if (gx#stx-null? _%tl7190071922%_) - (letrec ((_%loop7190171925%_ - (lambda (_%hd7189971929%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%defsetf7190571932%_) - (if (gx#stx-pair? _%hd7189971929%_) - (let ((_%e7190271935%_ (gx#syntax-e _%hd7189971929%_))) - (let ((_%lp-hd7190371939%_ + (##values-ref _g85213_ 1)))) + (if (gx#stx-null? _%tl7277572797%_) + (letrec ((_%loop7277672800%_ + (lambda (_%hd7277472804%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%defsetf7278072807%_) + (if (gx#stx-pair? _%hd7277472804%_) + (let ((_%e7277772810%_ (gx#syntax-e _%hd7277472804%_))) + (let ((_%lp-hd7277872814%_ (let () (declare (not safe)) - (##car _%e7190271935%_))) - (_%lp-tl7190471942%_ + (##car _%e7277772810%_))) + (_%lp-tl7277972817%_ (let () (declare (not safe)) - (##cdr _%e7190271935%_)))) - (_%loop7190171925%_ - _%lp-tl7190471942%_ - (cons _%lp-hd7190371939%_ - _%defsetf7190571932%_)))) - (let ((_%defsetf7190671945%_ - (reverse _%defsetf7190571932%_))) - ((lambda (_%L71949%_) + (##cdr _%e7277772810%_)))) + (_%loop7277672800%_ + _%lp-tl7277972817%_ + (cons _%lp-hd7277872814%_ + _%defsetf7278072807%_)))) + (let ((_%defsetf7278172820%_ + (reverse _%defsetf7278072807%_))) + ((lambda (_%L72824%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L71285%_ - (cons _%L71854%_ - (cons _%L71882%_ - (foldr (lambda (_%g7196771970%_ + (cons _%L72160%_ + (cons _%L72729%_ + (cons _%L72757%_ + (foldr (lambda (_%g7284272845%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7196871973%_) - (cons _%g7196771970%_ _%g7196871973%_)) + _%g7284372848%_) + (cons _%g7284272845%_ _%g7284372848%_)) '() - _%L71949%_)))))) + _%L72824%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%defsetf7190671945%_)))))) + _%defsetf7278172820%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7190171925%_ - _%target7189871919%_ + (_%loop7277672800%_ + _%target7277372794%_ '())) - (_%g7189571912%_ - _%g7189671916%_))))) - (_%g7189571912%_ _%g7189671916%_))))) - (_%g7189471976%_ - (let ((__tmp84223 - (map (lambda (_%slot71980%_ - _%setf71982%_ - _%rawsetf71983%_) - (let ((_%contract7198471986%_ + (_%g7277072787%_ + _%g7277172791%_))))) + (_%g7277072787%_ _%g7277172791%_))))) + (_%g7276972851%_ + (let ((__tmp85215 + (map (lambda (_%slot72855%_ + _%setf72857%_ + _%rawsetf72858%_) + (let ((_%contract7285972861%_ (hash-get - _%slot-contract-table69625%_ - (gx#stx-e _%slot71980%_)))) - (if _%contract7198471986%_ - (let* ((_%contract71990%_ - _%contract7198471986%_) - (_%g7199372016%_ - (lambda (_%g7199472012%_) + _%slot-contract-table70500%_ + (gx#stx-e _%slot72855%_)))) + (if _%contract7285972861%_ + (let* ((_%contract72865%_ + _%contract7285972861%_) + (_%g7286872891%_ + (lambda (_%g7286972887%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7199472012%_))) - (_%g7199272092%_ - (lambda (_%g7199472020%_) + _%g7286972887%_))) + (_%g7286772967%_ + (lambda (_%g7286972895%_) (if (gx#stx-pair? - _%g7199472020%_) - (let ((_%e7199972023%_ + _%g7286972895%_) + (let ((_%e7287472898%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g7199472020%_))) - (let ((_%hd7200072027%_ + (gx#syntax-e _%g7286972895%_))) + (let ((_%hd7287572902%_ (let () (declare (not safe)) - (##car _%e7199972023%_))) - (_%tl7200172030%_ + (##car _%e7287472898%_))) + (_%tl7287672905%_ (let () (declare (not safe)) - (##cdr _%e7199972023%_)))) - (if (gx#stx-pair? _%tl7200172030%_) - (let ((_%e7200272033%_ - (gx#syntax-e _%tl7200172030%_))) - (let ((_%hd7200372037%_ + (##cdr _%e7287472898%_)))) + (if (gx#stx-pair? _%tl7287672905%_) + (let ((_%e7287772908%_ + (gx#syntax-e _%tl7287672905%_))) + (let ((_%hd7287872912%_ (let () (declare (not safe)) - (##car _%e7200272033%_))) - (_%tl7200472040%_ + (##car _%e7287772908%_))) + (_%tl7287972915%_ (let () (declare (not safe)) - (##cdr _%e7200272033%_)))) - (if (gx#stx-pair? _%tl7200472040%_) - (let ((_%e7200572043%_ - (gx#syntax-e _%tl7200472040%_))) - (let ((_%hd7200672047%_ + (##cdr _%e7287772908%_)))) + (if (gx#stx-pair? _%tl7287972915%_) + (let ((_%e7288072918%_ + (gx#syntax-e _%tl7287972915%_))) + (let ((_%hd7288172922%_ (let () (declare (not safe)) - (##car _%e7200572043%_))) - (_%tl7200772050%_ + (##car _%e7288072918%_))) + (_%tl7288272925%_ (let () (declare (not safe)) - (##cdr _%e7200572043%_)))) - (if (gx#stx-pair? _%tl7200772050%_) - (let ((_%e7200872053%_ + (##cdr _%e7288072918%_)))) + (if (gx#stx-pair? _%tl7288272925%_) + (let ((_%e7288372928%_ (gx#syntax-e - _%tl7200772050%_))) - (let ((_%hd7200972057%_ + _%tl7288272925%_))) + (let ((_%hd7288472932%_ (let () (declare (not safe)) - (##car _%e7200872053%_))) - (_%tl7201072060%_ + (##car _%e7288372928%_))) + (_%tl7288572935%_ (let () (declare (not safe)) - (##cdr _%e7200872053%_)))) + (##cdr _%e7288372928%_)))) (if (gx#stx-null? - _%tl7201072060%_) - ((lambda (_%L72063%_ - _%L72065%_ - _%L72066%_ - _%L72067%_) - (_%wrap69477%_ + _%tl7288572935%_) + ((lambda (_%L72938%_ + _%L72940%_ + _%L72941%_ + _%L72942%_) + (_%wrap70352%_ (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L72065%_ + (cons (cons _%L72940%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '$obj) (cons (gx#datum->syntax '#f ':) - (cons _%L69669%_ '()))) - (cons _%L72067%_ '()))) + (cons _%L70544%_ '()))) + (cons _%L72942%_ '()))) (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':void) - (cons (cons _%L72063%_ + (cons (cons _%L72938%_ (cons (gx#datum->syntax '#f '$obj) - (cons _%L72066%_ + (cons _%L72941%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - _%hd7200972057%_ - _%hd7200672047%_ - _%hd7200372037%_ - _%hd7200072027%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7199372016%_ - _%g7199472020%_)))) - (_%g7199372016%_ - _%g7199472020%_)))) - (_%g7199372016%_ _%g7199472020%_)))) - (_%g7199372016%_ _%g7199472020%_)))) - (_%g7199372016%_ _%g7199472020%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7199272092%_ - (list (cons _%slot71980%_ - _%contract71990%_) - _%slot71980%_ - _%setf71982%_ + _%hd7288472932%_ + _%hd7288172922%_ + _%hd7287872912%_ + _%hd7287572902%_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7286872891%_ + _%g7286972895%_)))) + (_%g7286872891%_ + _%g7286972895%_)))) + (_%g7286872891%_ _%g7286972895%_)))) + (_%g7286872891%_ _%g7286972895%_)))) + (_%g7286872891%_ _%g7286972895%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7286772967%_ + (list (cons _%slot72855%_ + _%contract72865%_) + _%slot72855%_ + _%setf72857%_ (gx#stx-identifier - _%rawsetf71983%_ + _%rawsetf72858%_ '"&" - _%rawsetf71983%_)))) + _%rawsetf72858%_)))) '#f))) - (foldr (lambda (_%g7209572098%_ - _%g7209672101%_) - (cons _%g7209572098%_ - _%g7209672101%_)) + (foldr (lambda (_%g7297072973%_ + _%g7297172976%_) + (cons _%g7297072973%_ + _%g7297172976%_)) '() - _%L69858%_) - (foldr (lambda (_%g7210372106%_ - _%g7210472109%_) - (cons _%g7210372106%_ - _%g7210472109%_)) + _%L70733%_) + (foldr (lambda (_%g7297872981%_ + _%g7297972984%_) + (cons _%g7297872981%_ + _%g7297972984%_)) '() - _%L70071%_) - (foldr (lambda (_%g7211172114%_ - _%g7211272117%_) - (cons _%g7211172114%_ - _%g7211272117%_)) + _%L70946%_) + (foldr (lambda (_%g7298672989%_ + _%g7298772992%_) + (cons _%g7298672989%_ + _%g7298772992%_)) '() - _%L70142%_)))) + _%L71017%_)))) (declare (not safe)) - (##filter identity __tmp84223))))) - _%g7186871879%_)))) + (##filter identity __tmp85215))))) + _%g7274372754%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7186672120%_ - (if (or (not (null? _%type-constructor71048%_)) + (_%g7274172995%_ + (if (or (not (null? _%type-constructor71923%_)) (and (zero? (hash-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%slot-contract-table69625%_)) - (zero? (hash-length _%slot-default-table69628%_))) - _%metaclass71152%_) + _%slot-contract-table70500%_)) + (zero? (hash-length _%slot-default-table70503%_))) + _%metaclass72027%_) (cons (gx#datum->syntax '#f 'begin) '()) - (if (and _%struct?69651%_ - (zero? (hash-length _%slot-default-table69628%_))) - (let* ((_%g7213672151%_ - (lambda (_%g7213772147%_) + (if (and _%struct?70526%_ + (zero? (hash-length _%slot-default-table70503%_))) + (let* ((_%g7301173026%_ + (lambda (_%g7301273022%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7213772147%_))) - (_%g7213572205%_ - (lambda (_%g7213772155%_) - (if (gx#stx-pair? _%g7213772155%_) - (let ((_%e7214072158%_ - (gx#syntax-e _%g7213772155%_))) - (let ((_%hd7214172162%_ + _%g7301273022%_))) + (_%g7301073080%_ + (lambda (_%g7301273030%_) + (if (gx#stx-pair? _%g7301273030%_) + (let ((_%e7301573033%_ + (gx#syntax-e _%g7301273030%_))) + (let ((_%hd7301673037%_ (let () (declare (not safe)) - (##car _%e7214072158%_))) - (_%tl7214272165%_ + (##car _%e7301573033%_))) + (_%tl7301773040%_ (let () (declare (not safe)) - (##cdr _%e7214072158%_)))) - (if (gx#stx-pair? _%tl7214272165%_) - (let ((_%e7214372168%_ + (##cdr _%e7301573033%_)))) + (if (gx#stx-pair? _%tl7301773040%_) + (let ((_%e7301873043%_ (gx#syntax-e - _%tl7214272165%_))) - (let ((_%hd7214472172%_ + _%tl7301773040%_))) + (let ((_%hd7301973047%_ (let () (declare (not safe)) - (##car _%e7214372168%_))) - (_%tl7214572175%_ + (##car _%e7301873043%_))) + (_%tl7302073050%_ (let () (declare (not safe)) - (##cdr _%e7214372168%_)))) + (##cdr _%e7301873043%_)))) (if (gx#stx-null? - _%tl7214572175%_) - ((lambda (_%L72178%_ - _%L72180%_) - (_%wrap69477%_ + _%tl7302073050%_) + ((lambda (_%L73053%_ + _%L73055%_) + (_%wrap70352%_ (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L69735%_ + (cons (cons _%L70610%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L72180%_) + _%L73055%_) (cons (gx#datum->syntax '#f '=>) - (cons _%L69669%_ + (cons _%L70544%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -11102,198 +11563,198 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L72178%_ '())) + (cons _%L73053%_ '())) (cons (cons (gx#datum->syntax '#f '##structure) - (cons _%L72178%_ - (foldr (lambda (_%g7219672199%_ - _%g7219772202%_) - (cons _%g7219672199%_ - _%g7219772202%_)) + (cons _%L73053%_ + (foldr (lambda (_%g7307173074%_ + _%g7307273077%_) + (cons _%g7307173074%_ + _%g7307273077%_)) '() - _%L69929%_))) + _%L70804%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7214472172%_ - _%hd7214172162%_) - (_%g7213672151%_ - _%g7213772155%_)))) - (_%g7213672151%_ - _%g7213772155%_)))) - (_%g7213672151%_ _%g7213772155%_))))) - (_%g7213572205%_ - (list (foldr (lambda (_%slot72209%_ _%r72211%_) - (let ((_%$e72213%_ + _%hd7301973047%_ + _%hd7301673037%_) + (_%g7301173026%_ + _%g7301273030%_)))) + (_%g7301173026%_ + _%g7301273030%_)))) + (_%g7301173026%_ _%g7301273030%_))))) + (_%g7301073080%_ + (list (foldr (lambda (_%slot73084%_ _%r73086%_) + (let ((_%$e73088%_ (hash-get - _%slot-contract-table69625%_ - (gx#stx-e _%slot72209%_)))) - (if _%$e72213%_ - ((lambda (_%contract72217%_) - (let* ((_%g7222072244%_ - (lambda (_%g7222172240%_) + _%slot-contract-table70500%_ + (gx#stx-e _%slot73084%_)))) + (if _%$e73088%_ + ((lambda (_%contract73092%_) + (let* ((_%g7309573119%_ + (lambda (_%g7309673115%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7222172240%_))) - (_%g7221972334%_ - (lambda (_%g7222172248%_) + _%g7309673115%_))) + (_%g7309473209%_ + (lambda (_%g7309673123%_) (if (gx#stx-pair? - _%g7222172248%_) - (let ((_%e7222472251%_ + _%g7309673123%_) + (let ((_%e7309973126%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g7222172248%_))) - (let ((_%hd7222572255%_ + (gx#syntax-e _%g7309673123%_))) + (let ((_%hd7310073130%_ (let () (declare (not safe)) - (##car _%e7222472251%_))) - (_%tl7222672258%_ + (##car _%e7309973126%_))) + (_%tl7310173133%_ (let () (declare (not safe)) - (##cdr _%e7222472251%_)))) - (if (gx#stx-pair? _%tl7222672258%_) - (let ((_%e7222772261%_ - (gx#syntax-e _%tl7222672258%_))) - (let ((_%hd7222872265%_ + (##cdr _%e7309973126%_)))) + (if (gx#stx-pair? _%tl7310173133%_) + (let ((_%e7310273136%_ + (gx#syntax-e _%tl7310173133%_))) + (let ((_%hd7310373140%_ (let () (declare (not safe)) - (##car _%e7222772261%_))) - (_%tl7222972268%_ + (##car _%e7310273136%_))) + (_%tl7310473143%_ (let () (declare (not safe)) - (##cdr _%e7222772261%_)))) - (if (gx#stx-pair/null? _%hd7222872265%_) - (let ((_g84224_ + (##cdr _%e7310273136%_)))) + (if (gx#stx-pair/null? _%hd7310373140%_) + (let ((_g85216_ (gx#syntax-split-splice - _%hd7222872265%_ + _%hd7310373140%_ '0))) (begin - (let ((_g84225_ + (let ((_g85217_ (let () (declare (not safe)) - (if (##values? _g84224_) - (##vector-length - _g84224_) + (if (##values? _g85216_) + (##values-length + _g85216_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84225_ 2))) + (##fx= _g85217_ 2))) (error "Context expects 2 values" - _g84225_))) - (let ((_%target7223072271%_ + _g85217_))) + (let ((_%target7310573146%_ (let () (declare (not safe)) - (##vector-ref _g84224_ 0))) - (_%tl7223272274%_ + (##values-ref _g85216_ 0))) + (_%tl7310773149%_ (let () (declare (not safe)) - (##vector-ref - _g84224_ + (##values-ref + _g85216_ 1)))) (if (gx#stx-null? - _%tl7223272274%_) - (letrec ((_%loop7223372277%_ - (lambda (_%hd7223172281%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%contract7223772284%_) - (if (gx#stx-pair? _%hd7223172281%_) - (let ((_%e7223472287%_ - (gx#syntax-e _%hd7223172281%_))) - (let ((_%lp-hd7223572291%_ + _%tl7310773149%_) + (letrec ((_%loop7310873152%_ + (lambda (_%hd7310673156%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%contract7311273159%_) + (if (gx#stx-pair? _%hd7310673156%_) + (let ((_%e7310973162%_ + (gx#syntax-e _%hd7310673156%_))) + (let ((_%lp-hd7311073166%_ (let () (declare (not safe)) - (##car _%e7223472287%_))) - (_%lp-tl7223672294%_ + (##car _%e7310973162%_))) + (_%lp-tl7311173169%_ (let () (declare (not safe)) - (##cdr _%e7223472287%_)))) - (_%loop7223372277%_ - _%lp-tl7223672294%_ - (cons _%lp-hd7223572291%_ - _%contract7223772284%_)))) - (let ((_%contract7223872297%_ - (reverse _%contract7223772284%_))) - (if (gx#stx-null? _%tl7222972268%_) - ((lambda (_%L72301%_ _%L72303%_) - (cons (cons _%L72303%_ - (foldr (lambda (_%g7232572328%_ - _%g7232672331%_) - (cons _%g7232572328%_ - _%g7232672331%_)) + (##cdr _%e7310973162%_)))) + (_%loop7310873152%_ + _%lp-tl7311173169%_ + (cons _%lp-hd7311073166%_ + _%contract7311273159%_)))) + (let ((_%contract7311373172%_ + (reverse _%contract7311273159%_))) + (if (gx#stx-null? _%tl7310473143%_) + ((lambda (_%L73176%_ _%L73178%_) + (cons (cons _%L73178%_ + (foldr (lambda (_%g7320073203%_ + _%g7320173206%_) + (cons _%g7320073203%_ + _%g7320173206%_)) '() - _%L72301%_)) - _%r72211%_)) - _%contract7223872297%_ - _%hd7222572255%_) - (_%g7222072244%_ _%g7222172248%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7223372277%_ - _%target7223072271%_ + _%L73176%_)) + _%r73086%_)) + _%contract7311373172%_ + _%hd7310073130%_) + (_%g7309573119%_ _%g7309673123%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7310873152%_ + _%target7310573146%_ '())) - (_%g7222072244%_ - _%g7222172248%_))))) - (_%g7222072244%_ _%g7222172248%_)))) - (_%g7222072244%_ _%g7222172248%_)))) - (_%g7222072244%_ _%g7222172248%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7221972334%_ - (list _%slot72209%_ - _%contract72217%_)))) - _%$e72213%_) - (cons _%slot72209%_ - _%r72211%_)))) + (_%g7309573119%_ + _%g7309673123%_))))) + (_%g7309573119%_ _%g7309673123%_)))) + (_%g7309573119%_ _%g7309673123%_)))) + (_%g7309573119%_ _%g7309673123%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7309473209%_ + (list _%slot73084%_ + _%contract73092%_)))) + _%$e73088%_) + (cons _%slot73084%_ + _%r73086%_)))) '() - (foldr (lambda (_%g7233972342%_ - _%g7234072345%_) - (cons _%g7233972342%_ - _%g7234072345%_)) + (foldr (lambda (_%g7321473217%_ + _%g7321573220%_) + (cons _%g7321473217%_ + _%g7321573220%_)) '() - _%L69929%_)) - (gx#core-quote-syntax _%L69707%_)))) - (let* ((_%g7235072365%_ - (lambda (_%g7235172361%_) + _%L70804%_)) + (gx#core-quote-syntax _%L70582%_)))) + (let* ((_%g7322573240%_ + (lambda (_%g7322673236%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7235172361%_))) - (_%g7234972418%_ - (lambda (_%g7235172369%_) - (if (gx#stx-pair? _%g7235172369%_) - (let ((_%e7235472372%_ - (gx#syntax-e _%g7235172369%_))) - (let ((_%hd7235572376%_ + _%g7322673236%_))) + (_%g7322473293%_ + (lambda (_%g7322673244%_) + (if (gx#stx-pair? _%g7322673244%_) + (let ((_%e7322973247%_ + (gx#syntax-e _%g7322673244%_))) + (let ((_%hd7323073251%_ (let () (declare (not safe)) - (##car _%e7235472372%_))) - (_%tl7235672379%_ + (##car _%e7322973247%_))) + (_%tl7323173254%_ (let () (declare (not safe)) - (##cdr _%e7235472372%_)))) - (if (gx#stx-pair? _%tl7235672379%_) - (let ((_%e7235772382%_ + (##cdr _%e7322973247%_)))) + (if (gx#stx-pair? _%tl7323173254%_) + (let ((_%e7323273257%_ (gx#syntax-e - _%tl7235672379%_))) - (let ((_%hd7235872386%_ + _%tl7323173254%_))) + (let ((_%hd7323373261%_ (let () (declare (not safe)) - (##car _%e7235772382%_))) - (_%tl7235972389%_ + (##car _%e7323273257%_))) + (_%tl7323473264%_ (let () (declare (not safe)) - (##cdr _%e7235772382%_)))) + (##cdr _%e7323273257%_)))) (if (gx#stx-null? - _%tl7235972389%_) - ((lambda (_%L72392%_ - _%L72394%_) - (_%wrap69477%_ + _%tl7323473264%_) + ((lambda (_%L73267%_ + _%L73269%_) + (_%wrap70352%_ (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L69735%_ + (cons (cons _%L70610%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L72394%_) + _%L73269%_) (cons (gx#datum->syntax '#f '=>) - (cons _%L69669%_ + (cons _%L70544%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -11301,301 +11762,301 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L72392%_ '())) + (cons _%L73267%_ '())) (cons (cons (gx#datum->syntax '#f '##structure) - (cons _%L72392%_ - (foldr (lambda (_%g7240972412%_ - _%g7241072415%_) - (cons _%g7240972412%_ - _%g7241072415%_)) + (cons _%L73267%_ + (foldr (lambda (_%g7328473287%_ + _%g7328573290%_) + (cons _%g7328473287%_ + _%g7328573290%_)) '() - _%L69929%_))) + _%L70804%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7235872386%_ - _%hd7235572376%_) - (_%g7235072365%_ - _%g7235172369%_)))) - (_%g7235072365%_ - _%g7235172369%_)))) - (_%g7235072365%_ _%g7235172369%_))))) - (_%g7234972418%_ - (list (foldr (lambda (_%slot72422%_ _%r72424%_) - (let* ((_%default72426%_ + _%hd7323373261%_ + _%hd7323073251%_) + (_%g7322573240%_ + _%g7322673244%_)))) + (_%g7322573240%_ + _%g7322673244%_)))) + (_%g7322573240%_ _%g7322673244%_))))) + (_%g7322473293%_ + (list (foldr (lambda (_%slot73297%_ _%r73299%_) + (let* ((_%default73301%_ (hash-get - _%slot-default-table69628%_ - (gx#stx-e _%slot72422%_))) - (_%$e72429%_ + _%slot-default-table70503%_ + (gx#stx-e _%slot73297%_))) + (_%$e73304%_ (hash-get - _%slot-contract-table69625%_ - (gx#stx-e _%slot72422%_)))) - (if _%$e72429%_ - ((lambda (_%contract72433%_) - (let* ((_%g7243672473%_ - (lambda (_%g7243772469%_) + _%slot-contract-table70500%_ + (gx#stx-e _%slot73297%_)))) + (if _%$e73304%_ + ((lambda (_%contract73308%_) + (let* ((_%g7331173348%_ + (lambda (_%g7331273344%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7243772469%_))) - (_%g7243572620%_ - (lambda (_%g7243772477%_) + _%g7331273344%_))) + (_%g7331073495%_ + (lambda (_%g7331273352%_) (if (gx#stx-pair? - _%g7243772477%_) - (let ((_%e7244172480%_ + _%g7331273352%_) + (let ((_%e7331673355%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g7243772477%_))) - (let ((_%hd7244272484%_ + (gx#syntax-e _%g7331273352%_))) + (let ((_%hd7331773359%_ (let () (declare (not safe)) - (##car _%e7244172480%_))) - (_%tl7244372487%_ + (##car _%e7331673355%_))) + (_%tl7331873362%_ (let () (declare (not safe)) - (##cdr _%e7244172480%_)))) - (if (gx#stx-pair? _%tl7244372487%_) - (let ((_%e7244472490%_ - (gx#syntax-e _%tl7244372487%_))) - (let ((_%hd7244572494%_ + (##cdr _%e7331673355%_)))) + (if (gx#stx-pair? _%tl7331873362%_) + (let ((_%e7331973365%_ + (gx#syntax-e _%tl7331873362%_))) + (let ((_%hd7332073369%_ (let () (declare (not safe)) - (##car _%e7244472490%_))) - (_%tl7244672497%_ + (##car _%e7331973365%_))) + (_%tl7332173372%_ (let () (declare (not safe)) - (##cdr _%e7244472490%_)))) - (if (gx#stx-pair/null? _%hd7244572494%_) - (let ((_g84226_ + (##cdr _%e7331973365%_)))) + (if (gx#stx-pair/null? _%hd7332073369%_) + (let ((_g85218_ (gx#syntax-split-splice - _%hd7244572494%_ + _%hd7332073369%_ '0))) (begin - (let ((_g84227_ + (let ((_g85219_ (let () (declare (not safe)) - (if (##values? _g84226_) - (##vector-length - _g84226_) + (if (##values? _g85218_) + (##values-length + _g85218_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84227_ 2))) + (##fx= _g85219_ 2))) (error "Context expects 2 values" - _g84227_))) - (let ((_%target7244772500%_ + _g85219_))) + (let ((_%target7332273375%_ (let () (declare (not safe)) - (##vector-ref _g84226_ 0))) - (_%tl7244972503%_ + (##values-ref _g85218_ 0))) + (_%tl7332473378%_ (let () (declare (not safe)) - (##vector-ref - _g84226_ + (##values-ref + _g85218_ 1)))) (if (gx#stx-null? - _%tl7244972503%_) - (letrec ((_%loop7245072506%_ - (lambda (_%hd7244872510%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%contract7245472513%_) - (if (gx#stx-pair? _%hd7244872510%_) - (let ((_%e7245172516%_ - (gx#syntax-e _%hd7244872510%_))) - (let ((_%lp-hd7245272520%_ + _%tl7332473378%_) + (letrec ((_%loop7332573381%_ + (lambda (_%hd7332373385%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%contract7332973388%_) + (if (gx#stx-pair? _%hd7332373385%_) + (let ((_%e7332673391%_ + (gx#syntax-e _%hd7332373385%_))) + (let ((_%lp-hd7332773395%_ (let () (declare (not safe)) - (##car _%e7245172516%_))) - (_%lp-tl7245372523%_ + (##car _%e7332673391%_))) + (_%lp-tl7332873398%_ (let () (declare (not safe)) - (##cdr _%e7245172516%_)))) - (_%loop7245072506%_ - _%lp-tl7245372523%_ - (cons _%lp-hd7245272520%_ - _%contract7245472513%_)))) - (let ((_%contract7245572526%_ - (reverse _%contract7245472513%_))) - (if (gx#stx-pair? _%tl7244672497%_) - (let ((_%e7245672530%_ - (gx#syntax-e _%tl7244672497%_))) - (let ((_%hd7245772534%_ + (##cdr _%e7332673391%_)))) + (_%loop7332573381%_ + _%lp-tl7332873398%_ + (cons _%lp-hd7332773395%_ + _%contract7332973388%_)))) + (let ((_%contract7333073401%_ + (reverse _%contract7332973388%_))) + (if (gx#stx-pair? _%tl7332173372%_) + (let ((_%e7333173405%_ + (gx#syntax-e _%tl7332173372%_))) + (let ((_%hd7333273409%_ (let () (declare (not safe)) - (##car _%e7245672530%_))) - (_%tl7245872537%_ + (##car _%e7333173405%_))) + (_%tl7333373412%_ (let () (declare (not safe)) - (##cdr _%e7245672530%_)))) - (if (gx#stx-pair/null? _%hd7245772534%_) - (let ((_g84228_ + (##cdr _%e7333173405%_)))) + (if (gx#stx-pair/null? _%hd7333273409%_) + (let ((_g85220_ (gx#syntax-split-splice - _%hd7245772534%_ + _%hd7333273409%_ '0))) (begin - (let ((_g84229_ + (let ((_g85221_ (let () (declare (not safe)) - (if (##values? _g84228_) - (##vector-length - _g84228_) + (if (##values? _g85220_) + (##values-length + _g85220_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84229_ 2))) + (##fx= _g85221_ 2))) (error "Context expects 2 values" - _g84229_))) - (let ((_%target7245972540%_ + _g85221_))) + (let ((_%target7333473415%_ (let () (declare (not safe)) - (##vector-ref _g84228_ 0))) - (_%tl7246172543%_ + (##values-ref _g85220_ 0))) + (_%tl7333673418%_ (let () (declare (not safe)) - (##vector-ref - _g84228_ + (##values-ref + _g85220_ 1)))) (if (gx#stx-null? - _%tl7246172543%_) - (letrec ((_%loop7246272546%_ - (lambda (_%hd7246072550%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%default7246672553%_) - (if (gx#stx-pair? _%hd7246072550%_) - (let ((_%e7246372556%_ - (gx#syntax-e _%hd7246072550%_))) - (let ((_%lp-hd7246472560%_ + _%tl7333673418%_) + (letrec ((_%loop7333773421%_ + (lambda (_%hd7333573425%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%default7334173428%_) + (if (gx#stx-pair? _%hd7333573425%_) + (let ((_%e7333873431%_ + (gx#syntax-e _%hd7333573425%_))) + (let ((_%lp-hd7333973435%_ (let () (declare (not safe)) - (##car _%e7246372556%_))) - (_%lp-tl7246572563%_ + (##car _%e7333873431%_))) + (_%lp-tl7334073438%_ (let () (declare (not safe)) - (##cdr _%e7246372556%_)))) - (_%loop7246272546%_ - _%lp-tl7246572563%_ - (cons _%lp-hd7246472560%_ - _%default7246672553%_)))) - (let ((_%default7246772566%_ - (reverse _%default7246672553%_))) - (if (gx#stx-null? _%tl7245872537%_) - ((lambda (_%L72570%_ _%L72572%_ _%L72573%_) - (cons (symbol->keyword (gx#stx-e _%L72573%_)) - (cons (cons _%L72573%_ - (foldr (lambda (_%g7260372608%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7260472611%_) - (cons _%g7260372608%_ _%g7260472611%_)) - (foldr (lambda (_%g7260572614%_ _%g7260672617%_) - (cons _%g7260572614%_ _%g7260672617%_)) + (##cdr _%e7333873431%_)))) + (_%loop7333773421%_ + _%lp-tl7334073438%_ + (cons _%lp-hd7333973435%_ + _%default7334173428%_)))) + (let ((_%default7334273441%_ + (reverse _%default7334173428%_))) + (if (gx#stx-null? _%tl7333373412%_) + ((lambda (_%L73445%_ _%L73447%_ _%L73448%_) + (cons (symbol->keyword (gx#stx-e _%L73448%_)) + (cons (cons _%L73448%_ + (foldr (lambda (_%g7347873483%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7347973486%_) + (cons _%g7347873483%_ _%g7347973486%_)) + (foldr (lambda (_%g7348073489%_ _%g7348173492%_) + (cons _%g7348073489%_ _%g7348173492%_)) '() - _%L72570%_) - _%L72572%_)) + _%L73445%_) + _%L73447%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r72424%_))) - _%default7246772566%_ - _%contract7245572526%_ - _%hd7244272484%_) - (_%g7243672473%_ _%g7243772477%_))))))) + _%r73299%_))) + _%default7334273441%_ + _%contract7333073401%_ + _%hd7331773359%_) + (_%g7331173348%_ _%g7331273352%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7246272546%_ - _%target7245972540%_ + (_%loop7333773421%_ + _%target7333473415%_ '())) - (_%g7243672473%_ - _%g7243772477%_))))) - (_%g7243672473%_ _%g7243772477%_)))) - (_%g7243672473%_ _%g7243772477%_))))))) + (_%g7331173348%_ + _%g7331273352%_))))) + (_%g7331173348%_ _%g7331273352%_)))) + (_%g7331173348%_ _%g7331273352%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7245072506%_ - _%target7244772500%_ + (_%loop7332573381%_ + _%target7332273375%_ '())) - (_%g7243672473%_ - _%g7243772477%_))))) - (_%g7243672473%_ _%g7243772477%_)))) - (_%g7243672473%_ _%g7243772477%_)))) - (_%g7243672473%_ _%g7243772477%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7243572620%_ - (list _%slot72422%_ - _%contract72433%_ - (if _%default72426%_ + (_%g7331173348%_ + _%g7331273352%_))))) + (_%g7331173348%_ _%g7331273352%_)))) + (_%g7331173348%_ _%g7331273352%_)))) + (_%g7331173348%_ _%g7331273352%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7331073495%_ + (list _%slot73297%_ + _%contract73308%_ + (if _%default73301%_ (cons ':= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%default72426%_ '())) + (cons _%default73301%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e72429%_) + _%$e73304%_) (cons (symbol->keyword - (gx#stx-e _%slot72422%_)) - (cons (cons _%slot72422%_ - (cons _%default72426%_ + (gx#stx-e _%slot73297%_)) + (cons (cons _%slot73297%_ + (cons _%default73301%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%r72424%_))))) + _%r73299%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - (foldr (lambda (_%g7262572628%_ - _%g7262672631%_) - (cons _%g7262572628%_ - _%g7262672631%_)) + (foldr (lambda (_%g7350073503%_ + _%g7350173506%_) + (cons _%g7350073503%_ + _%g7350173506%_)) '() - _%L69929%_)) - (gx#core-quote-syntax _%L69707%_))))))))) + _%L70804%_)) + (gx#core-quote-syntax _%L70582%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7184071851%_)))) - (_%g7183872634%_ - (_%wrap69477%_ + _%g7271572726%_)))) + (_%g7271373509%_ + (_%wrap70352%_ (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L69669%_ + (cons _%L70544%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'make-class-type-info) (cons 'id: - (cons _%L71313%_ + (cons _%L72188%_ (cons 'name: - (cons _%L71341%_ + (cons _%L72216%_ (cons 'slots: - (cons _%L71397%_ + (cons _%L72272%_ (cons 'ordered-slots: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L71425%_ + (cons _%L72300%_ (cons 'super: - (cons _%L71369%_ + (cons _%L72244%_ (cons 'struct?: - (cons _%L71537%_ + (cons _%L72412%_ (cons 'final?: - (cons _%L71565%_ + (cons _%L72440%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'metaclass: - (cons _%L71593%_ + (cons _%L72468%_ (cons 'constructor-method: - (cons _%L71621%_ + (cons _%L72496%_ (cons 'type-descriptor: - (cons _%L71649%_ + (cons _%L72524%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'constructor: - (cons _%L71677%_ + (cons _%L72552%_ (cons 'predicate: - (cons _%L71705%_ + (cons _%L72580%_ (cons 'accessors: - (cons _%L71733%_ + (cons _%L72608%_ (cons 'mutators: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L71789%_ + (cons _%L72664%_ (cons 'unchecked-accessors: - (cons _%L71761%_ + (cons _%L72636%_ (cons 'unchecked-mutators: - (cons _%L71825%_ + (cons _%L72700%_ (cons 'slot-types: - (cons _%L71453%_ + (cons _%L72328%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'slot-contracts: - (cons _%L71481%_ + (cons _%L72356%_ (cons 'slot-defaults: - (cons _%L71509%_ + (cons _%L72384%_ '()))))))))))))))))))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -11604,225 +12065,225 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7181171822%_)))) - (_%g7180972638%_ - (let* ((_%g7264272675%_ - (lambda (_%g7264372671%_) + _%g7268672697%_)))) + (_%g7268473513%_ + (let* ((_%g7351773550%_ + (lambda (_%g7351873546%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7264372671%_))) - (_%g7264172804%_ - (lambda (_%g7264372679%_) - (if (gx#stx-pair? _%g7264372679%_) - (let ((_%e7264672682%_ + _%g7351873546%_))) + (_%g7351673679%_ + (lambda (_%g7351873554%_) + (if (gx#stx-pair? _%g7351873554%_) + (let ((_%e7352173557%_ (gx#syntax-e - _%g7264372679%_))) - (let ((_%hd7264772686%_ + _%g7351873554%_))) + (let ((_%hd7352273561%_ (let () (declare (not safe)) - (##car _%e7264672682%_))) - (_%tl7264872689%_ + (##car _%e7352173557%_))) + (_%tl7352373564%_ (let () (declare (not safe)) - (##cdr _%e7264672682%_)))) + (##cdr _%e7352173557%_)))) (if (gx#stx-pair/null? - _%hd7264772686%_) - (let ((_g84230_ + _%hd7352273561%_) + (let ((_g85222_ (gx#syntax-split-splice - _%hd7264772686%_ + _%hd7352273561%_ '0))) (begin - (let ((_g84231_ + (let ((_g85223_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84230_) - (##vector-length _g84230_) + (if (##values? _g85222_) + (##values-length _g85222_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84231_ 2))) - (error "Context expects 2 values" _g84231_))) - (let ((_%target7264972692%_ - (let () (declare (not safe)) (##vector-ref _g84230_ 0))) - (_%tl7265172695%_ - (let () (declare (not safe)) (##vector-ref _g84230_ 1)))) - (if (gx#stx-null? _%tl7265172695%_) - (letrec ((_%loop7265272698%_ - (lambda (_%hd7265072702%_ - _%slot-usetf7265672705%_) - (if (gx#stx-pair? _%hd7265072702%_) - (let ((_%e7265372708%_ - (gx#syntax-e _%hd7265072702%_))) - (let ((_%lp-hd7265472712%_ + (if (not (let () (declare (not safe)) (##fx= _g85223_ 2))) + (error "Context expects 2 values" _g85223_))) + (let ((_%target7352473567%_ + (let () (declare (not safe)) (##values-ref _g85222_ 0))) + (_%tl7352673570%_ + (let () (declare (not safe)) (##values-ref _g85222_ 1)))) + (if (gx#stx-null? _%tl7352673570%_) + (letrec ((_%loop7352773573%_ + (lambda (_%hd7352573577%_ + _%slot-usetf7353173580%_) + (if (gx#stx-pair? _%hd7352573577%_) + (let ((_%e7352873583%_ + (gx#syntax-e _%hd7352573577%_))) + (let ((_%lp-hd7352973587%_ (let () (declare (not safe)) - (##car _%e7265372708%_))) - (_%lp-tl7265572715%_ + (##car _%e7352873583%_))) + (_%lp-tl7353073590%_ (let () (declare (not safe)) - (##cdr _%e7265372708%_)))) - (_%loop7265272698%_ - _%lp-tl7265572715%_ - (cons _%lp-hd7265472712%_ - _%slot-usetf7265672705%_)))) - (let ((_%slot-usetf7265772718%_ - (reverse _%slot-usetf7265672705%_))) - (if (gx#stx-pair? _%tl7264872689%_) - (let ((_%e7265872722%_ + (##cdr _%e7352873583%_)))) + (_%loop7352773573%_ + _%lp-tl7353073590%_ + (cons _%lp-hd7352973587%_ + _%slot-usetf7353173580%_)))) + (let ((_%slot-usetf7353273593%_ + (reverse _%slot-usetf7353173580%_))) + (if (gx#stx-pair? _%tl7352373564%_) + (let ((_%e7353373597%_ (gx#syntax-e - _%tl7264872689%_))) - (let ((_%hd7265972726%_ + _%tl7352373564%_))) + (let ((_%hd7353473601%_ (let () (declare (not safe)) - (##car _%e7265872722%_))) - (_%tl7266072729%_ + (##car _%e7353373597%_))) + (_%tl7353573604%_ (let () (declare (not safe)) - (##cdr _%e7265872722%_)))) + (##cdr _%e7353373597%_)))) (if (gx#stx-pair/null? - _%hd7265972726%_) - (let ((_g84232_ + _%hd7353473601%_) + (let ((_g85224_ (gx#syntax-split-splice - _%hd7265972726%_ + _%hd7353473601%_ '0))) (begin - (let ((_g84233_ + (let ((_g85225_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84232_) - (##vector-length _g84232_) + (if (##values? _g85224_) + (##values-length _g85224_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84233_ 2))) - (error "Context expects 2 values" _g84233_))) - (let ((_%target7266172732%_ - (let () (declare (not safe)) (##vector-ref _g84232_ 0))) - (_%tl7266372735%_ - (let () (declare (not safe)) (##vector-ref _g84232_ 1)))) - (if (gx#stx-null? _%tl7266372735%_) - (letrec ((_%loop7266472738%_ - (lambda (_%hd7266272742%_ - _%mixin-slot-usetf7266872745%_) - (if (gx#stx-pair? _%hd7266272742%_) - (let ((_%e7266572748%_ - (gx#syntax-e _%hd7266272742%_))) - (let ((_%lp-hd7266672752%_ + (if (not (let () (declare (not safe)) (##fx= _g85225_ 2))) + (error "Context expects 2 values" _g85225_))) + (let ((_%target7353673607%_ + (let () (declare (not safe)) (##values-ref _g85224_ 0))) + (_%tl7353873610%_ + (let () (declare (not safe)) (##values-ref _g85224_ 1)))) + (if (gx#stx-null? _%tl7353873610%_) + (letrec ((_%loop7353973613%_ + (lambda (_%hd7353773617%_ + _%mixin-slot-usetf7354373620%_) + (if (gx#stx-pair? _%hd7353773617%_) + (let ((_%e7354073623%_ + (gx#syntax-e _%hd7353773617%_))) + (let ((_%lp-hd7354173627%_ (let () (declare (not safe)) - (##car _%e7266572748%_))) - (_%lp-tl7266772755%_ + (##car _%e7354073623%_))) + (_%lp-tl7354273630%_ (let () (declare (not safe)) - (##cdr _%e7266572748%_)))) - (_%loop7266472738%_ - _%lp-tl7266772755%_ - (cons _%lp-hd7266672752%_ - _%mixin-slot-usetf7266872745%_)))) - (let ((_%mixin-slot-usetf7266972758%_ - (reverse _%mixin-slot-usetf7266872745%_))) - (if (gx#stx-null? _%tl7266072729%_) - ((lambda (_%L72762%_ _%L72764%_) + (##cdr _%e7354073623%_)))) + (_%loop7353973613%_ + _%lp-tl7354273630%_ + (cons _%lp-hd7354173627%_ + _%mixin-slot-usetf7354373620%_)))) + (let ((_%mixin-slot-usetf7354473633%_ + (reverse _%mixin-slot-usetf7354373620%_))) + (if (gx#stx-null? _%tl7353573604%_) + ((lambda (_%L73637%_ _%L73639%_) (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g7278772792%_ + (foldr (lambda (_%g7366273667%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7278872795%_) - (cons _%g7278772792%_ _%g7278872795%_)) - (foldr (lambda (_%g7278972798%_ _%g7279072801%_) - (cons _%g7278972798%_ _%g7279072801%_)) + _%g7366373670%_) + (cons _%g7366273667%_ _%g7366373670%_)) + (foldr (lambda (_%g7366473673%_ _%g7366573676%_) + (cons _%g7366473673%_ _%g7366573676%_)) '() - _%L72762%_) - _%L72764%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-slot-usetf7266972758%_ - _%slot-usetf7265772718%_) - (_%g7264272675%_ - _%g7264372679%_))))))) - (_%loop7266472738%_ _%target7266172732%_ '())) - (_%g7264272675%_ _%g7264372679%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7264272675%_ - _%g7264372679%_)))) - (_%g7264272675%_ - _%g7264372679%_))))))) - (_%loop7265272698%_ _%target7264972692%_ '())) - (_%g7264272675%_ _%g7264372679%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7264272675%_ - _%g7264372679%_)))) - (_%g7264272675%_ _%g7264372679%_))))) - (_%g7264172804%_ - (list (map _%map-slot-usetf71807%_ - (foldr (lambda (_%g7280772810%_ - _%g7280872813%_) - (cons _%g7280772810%_ - _%g7280872813%_)) + _%L73637%_) + _%L73639%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%mixin-slot-usetf7354473633%_ + _%slot-usetf7353273593%_) + (_%g7351773550%_ + _%g7351873554%_))))))) + (_%loop7353973613%_ _%target7353673607%_ '())) + (_%g7351773550%_ _%g7351873554%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7351773550%_ + _%g7351873554%_)))) + (_%g7351773550%_ + _%g7351873554%_))))))) + (_%loop7352773573%_ _%target7352473567%_ '())) + (_%g7351773550%_ _%g7351873554%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7351773550%_ + _%g7351873554%_)))) + (_%g7351773550%_ _%g7351873554%_))))) + (_%g7351673679%_ + (list (map _%map-slot-usetf72682%_ + (foldr (lambda (_%g7368273685%_ + _%g7368373688%_) + (cons _%g7368273685%_ + _%g7368373688%_)) '() - _%L69858%_) - (foldr (lambda (_%g7281572818%_ - _%g7281672821%_) - (cons _%g7281572818%_ - _%g7281672821%_)) + _%L70733%_) + (foldr (lambda (_%g7369073693%_ + _%g7369173696%_) + (cons _%g7369073693%_ + _%g7369173696%_)) '() - _%L70568%_) - (foldr (lambda (_%g7282372826%_ - _%g7282472829%_) - (cons _%g7282372826%_ - _%g7282472829%_)) + _%L71443%_) + (foldr (lambda (_%g7369873701%_ + _%g7369973704%_) + (cons _%g7369873701%_ + _%g7369973704%_)) '() - _%L70142%_)) - (map _%map-slot-usetf71807%_ - (foldr (lambda (_%g7283172834%_ - _%g7283272837%_) - (cons _%g7283172834%_ - _%g7283272837%_)) + _%L71017%_)) + (map _%map-slot-usetf72682%_ + (foldr (lambda (_%g7370673709%_ + _%g7370773712%_) + (cons _%g7370673709%_ + _%g7370773712%_)) '() - _%L70213%_) - (foldr (lambda (_%g7283972842%_ - _%g7284072845%_) - (cons _%g7283972842%_ - _%g7284072845%_)) + _%L71088%_) + (foldr (lambda (_%g7371473717%_ + _%g7371573720%_) + (cons _%g7371473717%_ + _%g7371573720%_)) '() - _%L70710%_) - (foldr (lambda (_%g7284772850%_ - _%g7284872853%_) - (cons _%g7284772850%_ - _%g7284872853%_)) + _%L71585%_) + (foldr (lambda (_%g7372273725%_ + _%g7372373728%_) + (cons _%g7372273725%_ + _%g7372373728%_)) '() - _%L70426%_)))))))) - _%g7177571786%_)))) - (_%g7177372856%_ + _%L71301%_)))))))) + _%g7265072661%_)))) + (_%g7264873731%_ (cons (gx#datum->syntax '#f '@list) (begin - (gx#syntax-check-splice-targets _%L70071%_ _%L69858%_) - (foldr (lambda (_%g7285972866%_ - _%g7286072869%_ - _%g7286172871%_) + (gx#syntax-check-splice-targets _%L70946%_ _%L70733%_) + (foldr (lambda (_%g7373473741%_ + _%g7373573744%_ + _%g7373673746%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7286072869%_ + (cons _%g7373573744%_ '())) (cons ':: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g7285972866%_ '())) + (cons _%g7373473741%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7286172871%_)) + _%g7373673746%_)) (begin (gx#syntax-check-splice-targets - _%L70355%_ - _%L70213%_) - (foldr (lambda (_%g7286272874%_ - _%g7286372877%_ - _%g7286472879%_) + _%L71230%_ + _%L71088%_) + (foldr (lambda (_%g7373773749%_ + _%g7373873752%_ + _%g7373973754%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -11830,76 +12291,76 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g7286372877%_ '())) + (cons _%g7373873752%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7286272874%_ '())) + (cons _%g7373773749%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7286472879%_)) + _%g7373973754%_)) '() - _%L70355%_ - _%L70213%_)) - _%L70071%_ - _%L69858%_)))))) + _%L71230%_ + _%L71088%_)) + _%L70946%_ + _%L70733%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7174771758%_)))) - (_%g7174572882%_ + _%g7262272633%_)))) + (_%g7262073757%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L70497%_ - _%L69858%_) - (foldr (lambda (_%g7288572892%_ + _%L71372%_ + _%L70733%_) + (foldr (lambda (_%g7376073767%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7288672895%_ - _%g7288772897%_) + _%g7376173770%_ + _%g7376273772%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7288672895%_ '())) + (cons _%g7376173770%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7288572892%_ + (cons _%g7376073767%_ '())) '())))) - _%g7288772897%_)) + _%g7376273772%_)) (begin - (gx#syntax-check-splice-targets _%L70639%_ _%L70213%_) - (foldr (lambda (_%g7288872900%_ - _%g7288972903%_ - _%g7289072905%_) + (gx#syntax-check-splice-targets _%L71514%_ _%L71088%_) + (foldr (lambda (_%g7376373775%_ + _%g7376473778%_ + _%g7376573780%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7288972903%_ '())) + (cons _%g7376473778%_ '())) (cons ':: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g7288872900%_ '())) + (cons _%g7376373775%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7289072905%_)) + _%g7376573780%_)) '() - _%L70639%_ - _%L70213%_)) - _%L70497%_ - _%L69858%_)))))) + _%L71514%_ + _%L71088%_)) + _%L71372%_ + _%L70733%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7171971730%_)))) - (_%g7171772908%_ + _%g7259472605%_)))) + (_%g7259273783%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L70000%_ - _%L69858%_) - (foldr (lambda (_%g7291172918%_ - _%g7291272921%_ - _%g7291372923%_) + _%L70875%_ + _%L70733%_) + (foldr (lambda (_%g7378673793%_ + _%g7378773796%_ + _%g7378873798%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -11907,454 +12368,454 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g7291272921%_ '())) + (cons _%g7378773796%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7291172918%_ '())) + (cons _%g7378673793%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7291372923%_)) + _%g7378873798%_)) (begin (gx#syntax-check-splice-targets - _%L70284%_ - _%L70213%_) - (foldr (lambda (_%g7291472926%_ - _%g7291572929%_ - _%g7291672931%_) + _%L71159%_ + _%L71088%_) + (foldr (lambda (_%g7378973801%_ + _%g7379073804%_ + _%g7379173806%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7291572929%_ '())) + (cons _%g7379073804%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7291472926%_ '())) + (cons _%g7378973801%_ '())) '())))) - _%g7291672931%_)) + _%g7379173806%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L70284%_ - _%L70213%_)) - _%L70000%_ - _%L69858%_)))))) - _%g7169171702%_)))) - (_%g7168972934%_ + _%L71159%_ + _%L71088%_)) + _%L70875%_ + _%L70733%_)))))) + _%g7256672577%_)))) + (_%g7256473809%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L69763%_ '()))))) + (cons _%L70638%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7166371674%_)))) - (_%g7166172938%_ + _%g7253872549%_)))) + (_%g7253673813%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L69735%_ '()))))) - _%g7163571646%_)))) - (_%g7163372942%_ + (cons _%L70610%_ '()))))) + _%g7251072521%_)))) + (_%g7250873817%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L69707%_ '()))))) - _%g7160771618%_)))) - (_%g7160572946%_ - (if (null? _%type-constructor71048%_) + (cons _%L70582%_ '()))))) + _%g7248272493%_)))) + (_%g7248073821%_ + (if (null? _%type-constructor71923%_) '#f - (let* ((_%g7295072965%_ - (lambda (_%g7295172961%_) + (let* ((_%g7382573840%_ + (lambda (_%g7382673836%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7295172961%_))) - (_%g7294973013%_ - (lambda (_%g7295172969%_) - (if (gx#stx-pair? _%g7295172969%_) - (let ((_%e7295372972%_ - (gx#syntax-e _%g7295172969%_))) - (let ((_%hd7295472976%_ + _%g7382673836%_))) + (_%g7382473888%_ + (lambda (_%g7382673844%_) + (if (gx#stx-pair? _%g7382673844%_) + (let ((_%e7382873847%_ + (gx#syntax-e _%g7382673844%_))) + (let ((_%hd7382973851%_ (let () (declare (not safe)) - (##car _%e7295372972%_))) - (_%tl7295572979%_ + (##car _%e7382873847%_))) + (_%tl7383073854%_ (let () (declare (not safe)) - (##cdr _%e7295372972%_)))) - (if (gx#stx-datum? _%hd7295472976%_) - (let ((_%e7295672982%_ - (gx#stx-e _%hd7295472976%_))) - (if (equal? _%e7295672982%_ + (##cdr _%e7382873847%_)))) + (if (gx#stx-datum? _%hd7382973851%_) + (let ((_%e7383173857%_ + (gx#stx-e _%hd7382973851%_))) + (if (equal? _%e7383173857%_ 'constructor:) (if (gx#stx-pair? - _%tl7295572979%_) - (let ((_%e7295772986%_ + _%tl7383073854%_) + (let ((_%e7383273861%_ (gx#syntax-e - _%tl7295572979%_))) - (let ((_%hd7295872990%_ + _%tl7383073854%_))) + (let ((_%hd7383373865%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7295772986%_))) - (_%tl7295972993%_ - (let () (declare (not safe)) (##cdr _%e7295772986%_)))) - (if (gx#stx-null? _%tl7295972993%_) - ((lambda (_%L72996%_) + (##car _%e7383273861%_))) + (_%tl7383473868%_ + (let () (declare (not safe)) (##cdr _%e7383273861%_)))) + (if (gx#stx-null? _%tl7383473868%_) + ((lambda (_%L73871%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L72996%_ '()))) - _%hd7295872990%_) - (_%g7295072965%_ _%g7295172969%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7295072965%_ - _%g7295172969%_)) - (_%g7295072965%_ - _%g7295172969%_))) - (_%g7295072965%_ _%g7295172969%_)))) - (_%g7295072965%_ _%g7295172969%_))))) - (_%g7294973013%_ _%type-constructor71048%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7157971590%_)))) - (_%g7157773017%_ - (if _%metaclass71152%_ - (let* ((_%g7302173029%_ - (lambda (_%g7302273025%_) + (cons _%L73871%_ '()))) + _%hd7383373865%_) + (_%g7382573840%_ _%g7382673844%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7382573840%_ + _%g7382673844%_)) + (_%g7382573840%_ + _%g7382673844%_))) + (_%g7382573840%_ _%g7382673844%_)))) + (_%g7382573840%_ _%g7382673844%_))))) + (_%g7382473888%_ _%type-constructor71923%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7245472465%_)))) + (_%g7245273892%_ + (if _%metaclass72027%_ + (let* ((_%g7389673904%_ + (lambda (_%g7389773900%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7302273025%_))) - (_%g7302073048%_ - (lambda (_%g7302273033%_) - ((lambda (_%L73036%_) + _%g7389773900%_))) + (_%g7389573923%_ + (lambda (_%g7389773908%_) + ((lambda (_%L73911%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L73036%_ '()))) - _%g7302273033%_)))) + (cons _%L73911%_ '()))) + _%g7389773908%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7302073048%_ - _%metaclass71152%_)) + (_%g7389573923%_ + _%metaclass72027%_)) '#f)))) - _%g7155171562%_)))) - (_%g7154973052%_ _%final?71155%_))) - _%g7152371534%_)))) - (_%g7152173056%_ _%struct?69651%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7149571506%_)))) - (_%g7149373060%_ - (let* ((_%g7306473087%_ - (lambda (_%g7306573083%_) + _%g7242672437%_)))) + (_%g7242473927%_ _%final?72030%_))) + _%g7239872409%_)))) + (_%g7239673931%_ _%struct?70526%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7237072381%_)))) + (_%g7236873935%_ + (let* ((_%g7393973962%_ + (lambda (_%g7394073958%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7306573083%_))) - (_%g7306373167%_ - (lambda (_%g7306573091%_) + _%g7394073958%_))) + (_%g7393874042%_ + (lambda (_%g7394073966%_) (if (gx#stx-pair/null? - _%g7306573091%_) - (let ((_g84234_ + _%g7394073966%_) + (let ((_g85226_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g7306573091%_ '0))) + (gx#syntax-split-splice _%g7394073966%_ '0))) (begin - (let ((_g84235_ + (let ((_g85227_ (let () (declare (not safe)) - (if (##values? _g84234_) - (##vector-length _g84234_) + (if (##values? _g85226_) + (##values-length _g85226_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84235_ 2))) - (error "Context expects 2 values" _g84235_))) - (let ((_%target7306873094%_ + (##fx= _g85227_ 2))) + (error "Context expects 2 values" _g85227_))) + (let ((_%target7394373969%_ (let () (declare (not safe)) - (##vector-ref _g84234_ 0))) - (_%tl7307073097%_ + (##values-ref _g85226_ 0))) + (_%tl7394573972%_ (let () (declare (not safe)) - (##vector-ref _g84234_ 1)))) - (if (gx#stx-null? _%tl7307073097%_) - (letrec ((_%loop7307173100%_ - (lambda (_%hd7306973104%_ - _%default7307573107%_ - _%slot7307673109%_) - (if (gx#stx-pair? _%hd7306973104%_) - (let ((_%e7307273112%_ + (##values-ref _g85226_ 1)))) + (if (gx#stx-null? _%tl7394573972%_) + (letrec ((_%loop7394673975%_ + (lambda (_%hd7394473979%_ + _%default7395073982%_ + _%slot7395173984%_) + (if (gx#stx-pair? _%hd7394473979%_) + (let ((_%e7394773987%_ (gx#syntax-e - _%hd7306973104%_))) - (let ((_%lp-hd7307373116%_ + _%hd7394473979%_))) + (let ((_%lp-hd7394873991%_ (let () (declare (not safe)) - (##car _%e7307273112%_))) - (_%lp-tl7307473119%_ + (##car _%e7394773987%_))) + (_%lp-tl7394973994%_ (let () (declare (not safe)) - (##cdr _%e7307273112%_)))) + (##cdr _%e7394773987%_)))) (if (gx#stx-pair? - _%lp-hd7307373116%_) - (let ((_%e7307973122%_ + _%lp-hd7394873991%_) + (let ((_%e7395473997%_ (gx#syntax-e - _%lp-hd7307373116%_))) - (let ((_%hd7308073126%_ + _%lp-hd7394873991%_))) + (let ((_%hd7395574001%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7307973122%_))) - (_%tl7308173129%_ - (let () (declare (not safe)) (##cdr _%e7307973122%_)))) - (_%loop7307173100%_ - _%lp-tl7307473119%_ - (cons _%tl7308173129%_ _%default7307573107%_) - (cons _%hd7308073126%_ _%slot7307673109%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7306473087%_ - _%g7306573091%_)))) - (let ((_%default7307773132%_ - (reverse _%default7307573107%_)) - (_%slot7307873135%_ - (reverse _%slot7307673109%_))) - ((lambda (_%L73138%_ _%L73140%_) + (##car _%e7395473997%_))) + (_%tl7395674004%_ + (let () (declare (not safe)) (##cdr _%e7395473997%_)))) + (_%loop7394673975%_ + _%lp-tl7394973994%_ + (cons _%tl7395674004%_ _%default7395073982%_) + (cons _%hd7395574001%_ _%slot7395173984%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7393973962%_ + _%g7394073966%_)))) + (let ((_%default7395274007%_ + (reverse _%default7395073982%_)) + (_%slot7395374010%_ + (reverse _%slot7395173984%_))) + ((lambda (_%L74013%_ _%L74015%_) (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L73138%_ - _%L73140%_) - (foldr (lambda (_%g7315573159%_ + _%L74013%_ + _%L74015%_) + (foldr (lambda (_%g7403074034%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7315673162%_ - _%g7315773164%_) + _%g7403174037%_ + _%g7403274039%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7315673162%_ '())) + (cons _%g7403174037%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7315573159%_ + (cons _%g7403074034%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7315773164%_)) + _%g7403274039%_)) '() - _%L73138%_ - _%L73140%_)))) + _%L74013%_ + _%L74015%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%default7307773132%_ - _%slot7307873135%_)))))) - (_%loop7307173100%_ - _%target7306873094%_ + _%default7395274007%_ + _%slot7395374010%_)))))) + (_%loop7394673975%_ + _%target7394373969%_ '() '())) - (_%g7306473087%_ _%g7306573091%_))))) - (_%g7306473087%_ _%g7306573091%_))))) + (_%g7393973962%_ _%g7394073966%_))))) + (_%g7393973962%_ _%g7394073966%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7306373167%_ + (_%g7393874042%_ (hash->list - _%slot-default-table69628%_)))))) - _%g7146771478%_)))) - (_%g7146573171%_ - (let* ((_%g7317573198%_ - (lambda (_%g7317673194%_) + _%slot-default-table70503%_)))))) + _%g7234272353%_)))) + (_%g7234074046%_ + (let* ((_%g7405074073%_ + (lambda (_%g7405174069%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7317673194%_))) - (_%g7317473278%_ - (lambda (_%g7317673202%_) + _%g7405174069%_))) + (_%g7404974153%_ + (lambda (_%g7405174077%_) (if (gx#stx-pair/null? - _%g7317673202%_) - (let ((_g84236_ + _%g7405174077%_) + (let ((_g85228_ (gx#syntax-split-splice - _%g7317673202%_ + _%g7405174077%_ '0))) (begin - (let ((_g84237_ + (let ((_g85229_ (let () (declare (not safe)) (if (##values? - _g84236_) - (##vector-length - _g84236_) + _g85228_) + (##values-length + _g85228_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g84237_ 2))) - (error "Context expects 2 values" _g84237_))) + (##fx= _g85229_ 2))) + (error "Context expects 2 values" _g85229_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7317973205%_ + (let ((_%target7405474080%_ (let () (declare (not safe)) - (##vector-ref - _g84236_ + (##values-ref + _g85228_ 0))) - (_%tl7318173208%_ + (_%tl7405674083%_ (let () (declare (not safe)) - (##vector-ref - _g84236_ + (##values-ref + _g85228_ 1)))) (if (gx#stx-null? - _%tl7318173208%_) - (letrec ((_%loop7318273211%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7318073215%_ - _%contract7318673218%_ - _%slot7318773220%_) - (if (gx#stx-pair? _%hd7318073215%_) - (let ((_%e7318373223%_ - (gx#syntax-e _%hd7318073215%_))) - (let ((_%lp-hd7318473227%_ + _%tl7405674083%_) + (letrec ((_%loop7405774086%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7405574090%_ + _%contract7406174093%_ + _%slot7406274095%_) + (if (gx#stx-pair? _%hd7405574090%_) + (let ((_%e7405874098%_ + (gx#syntax-e _%hd7405574090%_))) + (let ((_%lp-hd7405974102%_ (let () (declare (not safe)) - (##car _%e7318373223%_))) - (_%lp-tl7318573230%_ + (##car _%e7405874098%_))) + (_%lp-tl7406074105%_ (let () (declare (not safe)) - (##cdr _%e7318373223%_)))) - (if (gx#stx-pair? _%lp-hd7318473227%_) - (let ((_%e7319073233%_ + (##cdr _%e7405874098%_)))) + (if (gx#stx-pair? _%lp-hd7405974102%_) + (let ((_%e7406574108%_ (gx#syntax-e - _%lp-hd7318473227%_))) - (let ((_%hd7319173237%_ + _%lp-hd7405974102%_))) + (let ((_%hd7406674112%_ (let () (declare (not safe)) - (##car _%e7319073233%_))) - (_%tl7319273240%_ + (##car _%e7406574108%_))) + (_%tl7406774115%_ (let () (declare (not safe)) - (##cdr _%e7319073233%_)))) - (_%loop7318273211%_ - _%lp-tl7318573230%_ - (cons _%tl7319273240%_ - _%contract7318673218%_) - (cons _%hd7319173237%_ - _%slot7318773220%_)))) - (_%g7317573198%_ _%g7317673202%_)))) - (let ((_%contract7318873243%_ - (reverse _%contract7318673218%_)) - (_%slot7318973246%_ - (reverse _%slot7318773220%_))) - ((lambda (_%L73249%_ _%L73251%_) + (##cdr _%e7406574108%_)))) + (_%loop7405774086%_ + _%lp-tl7406074105%_ + (cons _%tl7406774115%_ + _%contract7406174093%_) + (cons _%hd7406674112%_ + _%slot7406274095%_)))) + (_%g7405074073%_ _%g7405174077%_)))) + (let ((_%contract7406374118%_ + (reverse _%contract7406174093%_)) + (_%slot7406474121%_ + (reverse _%slot7406274095%_))) + ((lambda (_%L74124%_ _%L74126%_) (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L73249%_ - _%L73251%_) - (foldr (lambda (_%g7326673270%_ - _%g7326773273%_ - _%g7326873275%_) + _%L74124%_ + _%L74126%_) + (foldr (lambda (_%g7414174145%_ + _%g7414274148%_ + _%g7414374150%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7326773273%_ '())) + (cons _%g7414274148%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7326673270%_ '())) + (cons _%g7414174145%_ '())) '())))) - _%g7326873275%_)) + _%g7414374150%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L73249%_ - _%L73251%_)))) - _%contract7318873243%_ - _%slot7318973246%_)))))) - (_%loop7318273211%_ _%target7317973205%_ '() '())) - (_%g7317573198%_ _%g7317673202%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7317573198%_ - _%g7317673202%_))))) - (_%g7317473278%_ + _%L74124%_ + _%L74126%_)))) + _%contract7406374118%_ + _%slot7406474121%_)))))) + (_%loop7405774086%_ _%target7405474080%_ '() '())) + (_%g7405074073%_ _%g7405174077%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7405074073%_ + _%g7405174077%_))))) + (_%g7404974153%_ (hash->list - _%slot-contract-table69625%_)))))) - _%g7143971450%_)))) - (_%g7143773282%_ - (let* ((_%g7328673309%_ - (lambda (_%g7328773305%_) + _%slot-contract-table70500%_)))))) + _%g7231472325%_)))) + (_%g7231274157%_ + (let* ((_%g7416174184%_ + (lambda (_%g7416274180%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7328773305%_))) - (_%g7328573389%_ - (lambda (_%g7328773313%_) - (if (gx#stx-pair/null? _%g7328773313%_) - (let ((_g84238_ + _%g7416274180%_))) + (_%g7416074264%_ + (lambda (_%g7416274188%_) + (if (gx#stx-pair/null? _%g7416274188%_) + (let ((_g85230_ (gx#syntax-split-splice - _%g7328773313%_ + _%g7416274188%_ '0))) (begin - (let ((_g84239_ + (let ((_g85231_ (let () (declare (not safe)) - (if (##values? _g84238_) - (##vector-length _g84238_) + (if (##values? _g85230_) + (##values-length _g85230_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84239_ 2))) + (##fx= _g85231_ 2))) (error "Context expects 2 values" - _g84239_))) - (let ((_%target7329073316%_ + _g85231_))) + (let ((_%target7416574191%_ (let () (declare (not safe)) - (##vector-ref _g84238_ 0))) - (_%tl7329273319%_ + (##values-ref _g85230_ 0))) + (_%tl7416774194%_ (let () (declare (not safe)) - (##vector-ref _g84238_ 1)))) - (if (gx#stx-null? _%tl7329273319%_) - (letrec ((_%loop7329373322%_ - (lambda (_%hd7329173326%_ - _%type7329773329%_ - _%slot7329873331%_) + (##values-ref _g85230_ 1)))) + (if (gx#stx-null? _%tl7416774194%_) + (letrec ((_%loop7416874197%_ + (lambda (_%hd7416674201%_ + _%type7417274204%_ + _%slot7417374206%_) (if (gx#stx-pair? - _%hd7329173326%_) - (let ((_%e7329473334%_ + _%hd7416674201%_) + (let ((_%e7416974209%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7329173326%_))) - (let ((_%lp-hd7329573338%_ + (gx#syntax-e _%hd7416674201%_))) + (let ((_%lp-hd7417074213%_ (let () (declare (not safe)) - (##car _%e7329473334%_))) - (_%lp-tl7329673341%_ + (##car _%e7416974209%_))) + (_%lp-tl7417174216%_ (let () (declare (not safe)) - (##cdr _%e7329473334%_)))) - (if (gx#stx-pair? _%lp-hd7329573338%_) - (let ((_%e7330173344%_ - (gx#syntax-e _%lp-hd7329573338%_))) - (let ((_%hd7330273348%_ + (##cdr _%e7416974209%_)))) + (if (gx#stx-pair? _%lp-hd7417074213%_) + (let ((_%e7417674219%_ + (gx#syntax-e _%lp-hd7417074213%_))) + (let ((_%hd7417774223%_ (let () (declare (not safe)) - (##car _%e7330173344%_))) - (_%tl7330373351%_ + (##car _%e7417674219%_))) + (_%tl7417874226%_ (let () (declare (not safe)) - (##cdr _%e7330173344%_)))) - (_%loop7329373322%_ - _%lp-tl7329673341%_ - (cons _%tl7330373351%_ _%type7329773329%_) - (cons _%hd7330273348%_ _%slot7329873331%_)))) - (_%g7328673309%_ _%g7328773313%_)))) - (let ((_%type7329973354%_ (reverse _%type7329773329%_)) - (_%slot7330073357%_ (reverse _%slot7329873331%_))) - ((lambda (_%L73360%_ _%L73362%_) + (##cdr _%e7417674219%_)))) + (_%loop7416874197%_ + _%lp-tl7417174216%_ + (cons _%tl7417874226%_ _%type7417274204%_) + (cons _%hd7417774223%_ _%slot7417374206%_)))) + (_%g7416174184%_ _%g7416274188%_)))) + (let ((_%type7417474229%_ (reverse _%type7417274204%_)) + (_%slot7417574232%_ (reverse _%slot7417374206%_))) + ((lambda (_%L74235%_ _%L74237%_) (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L73360%_ - _%L73362%_) - (foldr (lambda (_%g7337773381%_ - _%g7337873384%_ - _%g7337973386%_) + _%L74235%_ + _%L74237%_) + (foldr (lambda (_%g7425274256%_ + _%g7425374259%_ + _%g7425474261%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -12362,239 +12823,239 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g7337873384%_ '())) + (cons _%g7425374259%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7337773381%_ '())) + (cons _%g7425274256%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7337973386%_)) + _%g7425474261%_)) '() - _%L73360%_ - _%L73362%_)))) - _%type7329973354%_ - _%slot7330073357%_)))))) + _%L74235%_ + _%L74237%_)))) + _%type7417474229%_ + _%slot7417574232%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7329373322%_ - _%target7329073316%_ + (_%loop7416874197%_ + _%target7416574191%_ '() '())) - (_%g7328673309%_ - _%g7328773313%_))))) - (_%g7328673309%_ _%g7328773313%_))))) - (_%g7328573389%_ - (filter (lambda (_%st73393%_) (cdr _%st73393%_)) - (hash->list _%slot-type-table69623%_))))))) - _%g7141171422%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7140973396%_ + (_%g7416174184%_ + _%g7416274188%_))))) + (_%g7416174184%_ _%g7416274188%_))))) + (_%g7416074264%_ + (filter (lambda (_%st74268%_) (cdr _%st74268%_)) + (hash->list _%slot-type-table70498%_))))))) + _%g7228672297%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7228474271%_ (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g7339973402%_ + (cons (foldr (lambda (_%g7427474277%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7340073405%_) - (cons _%g7339973402%_ _%g7340073405%_)) + _%g7427574280%_) + (cons _%g7427474277%_ _%g7427574280%_)) '() - _%L69929%_) + _%L70804%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7138371394%_)))) - (_%g7138173408%_ + _%g7225872269%_)))) + (_%g7225674283%_ (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g7341173414%_ - _%g7341273417%_) - (cons _%g7341173414%_ - _%g7341273417%_)) + (cons (foldr (lambda (_%g7428674289%_ + _%g7428774292%_) + (cons _%g7428674289%_ + _%g7428774292%_)) '() - _%L69858%_) + _%L70733%_) '()))))) - _%g7135571366%_)))) - (_%g7135373420%_ - (let* ((_%g7342473441%_ - (lambda (_%g7342573437%_) + _%g7223072241%_)))) + (_%g7222874295%_ + (let* ((_%g7429974316%_ + (lambda (_%g7430074312%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7342573437%_))) - (_%g7342373502%_ - (lambda (_%g7342573445%_) - (if (gx#stx-pair/null? _%g7342573445%_) - (let ((_g84240_ + _%g7430074312%_))) + (_%g7429874377%_ + (lambda (_%g7430074320%_) + (if (gx#stx-pair/null? _%g7430074320%_) + (let ((_g85232_ (gx#syntax-split-splice - _%g7342573445%_ + _%g7430074320%_ '0))) (begin - (let ((_g84241_ + (let ((_g85233_ (let () (declare (not safe)) - (if (##values? _g84240_) - (##vector-length _g84240_) + (if (##values? _g85232_) + (##values-length _g85232_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84241_ 2))) + (##fx= _g85233_ 2))) (error "Context expects 2 values" - _g84241_))) - (let ((_%target7342773448%_ + _g85233_))) + (let ((_%target7430274323%_ (let () (declare (not safe)) - (##vector-ref _g84240_ 0))) - (_%tl7342973451%_ + (##values-ref _g85232_ 0))) + (_%tl7430474326%_ (let () (declare (not safe)) - (##vector-ref _g84240_ 1)))) - (if (gx#stx-null? _%tl7342973451%_) - (letrec ((_%loop7343073454%_ - (lambda (_%hd7342873458%_ - _%super-id7343473461%_) + (##values-ref _g85232_ 1)))) + (if (gx#stx-null? _%tl7430474326%_) + (letrec ((_%loop7430574329%_ + (lambda (_%hd7430374333%_ + _%super-id7430974336%_) (if (gx#stx-pair? - _%hd7342873458%_) - (let ((_%e7343173464%_ + _%hd7430374333%_) + (let ((_%e7430674339%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7342873458%_))) - (let ((_%lp-hd7343273468%_ + (gx#syntax-e _%hd7430374333%_))) + (let ((_%lp-hd7430774343%_ (let () (declare (not safe)) - (##car _%e7343173464%_))) - (_%lp-tl7343373471%_ + (##car _%e7430674339%_))) + (_%lp-tl7430874346%_ (let () (declare (not safe)) - (##cdr _%e7343173464%_)))) - (_%loop7343073454%_ - _%lp-tl7343373471%_ - (cons _%lp-hd7343273468%_ _%super-id7343473461%_)))) - (let ((_%super-id7343573474%_ - (reverse _%super-id7343473461%_))) - ((lambda (_%L73478%_) + (##cdr _%e7430674339%_)))) + (_%loop7430574329%_ + _%lp-tl7430874346%_ + (cons _%lp-hd7430774343%_ _%super-id7430974336%_)))) + (let ((_%super-id7431074349%_ + (reverse _%super-id7430974336%_))) + ((lambda (_%L74353%_) (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g7349373496%_ _%g7349473499%_) + (foldr (lambda (_%g7436874371%_ _%g7436974374%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7349373496%_ '())) - _%g7349473499%_)) + (cons _%g7436874371%_ '())) + _%g7436974374%_)) '() - _%L73478%_))) - _%super-id7343573474%_)))))) + _%L74353%_))) + _%super-id7431074349%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7343073454%_ - _%target7342773448%_ + (_%loop7430574329%_ + _%target7430274323%_ '())) - (_%g7342473441%_ - _%g7342573445%_))))) - (_%g7342473441%_ _%g7342573445%_))))) - (_%g7342373502%_ _%super-ref69614%_))))) - _%g7132771338%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7132573506%_ - (let* ((_%g7351073518%_ - (lambda (_%g7351173514%_) + (_%g7429974316%_ + _%g7430074320%_))))) + (_%g7429974316%_ _%g7430074320%_))))) + (_%g7429874377%_ _%super-ref70489%_))))) + _%g7220272213%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7220074381%_ + (let* ((_%g7438574393%_ + (lambda (_%g7438674389%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7351173514%_))) - (_%g7350973537%_ - (lambda (_%g7351173522%_) - ((lambda (_%L73525%_) + _%g7438674389%_))) + (_%g7438474412%_ + (lambda (_%g7438674397%_) + ((lambda (_%L74400%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L73525%_ '()))) - _%g7351173522%_)))) + (cons _%L74400%_ '()))) + _%g7438674397%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7350973537%_ + (_%g7438474412%_ (gx#stx-car (gx#stx-cdr - _%type-name71026%_))))))) - _%g7129971310%_)))) - (_%g7129773541%_ - (let* ((_%g7354573560%_ - (lambda (_%g7354673556%_) + _%type-name71901%_))))))) + _%g7217472185%_)))) + (_%g7217274416%_ + (let* ((_%g7442074435%_ + (lambda (_%g7442174431%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7354673556%_))) - (_%g7354473608%_ - (lambda (_%g7354673564%_) - (if (gx#stx-pair? _%g7354673564%_) - (let ((_%e7354873567%_ + _%g7442174431%_))) + (_%g7441974483%_ + (lambda (_%g7442174439%_) + (if (gx#stx-pair? _%g7442174439%_) + (let ((_%e7442374442%_ (gx#syntax-e - _%g7354673564%_))) - (let ((_%hd7354973571%_ + _%g7442174439%_))) + (let ((_%hd7442474446%_ (let () (declare (not safe)) - (##car _%e7354873567%_))) - (_%tl7355073574%_ + (##car _%e7442374442%_))) + (_%tl7442574449%_ (let () (declare (not safe)) - (##cdr _%e7354873567%_)))) + (##cdr _%e7442374442%_)))) (if (gx#stx-datum? - _%hd7354973571%_) - (let ((_%e7355173577%_ + _%hd7442474446%_) + (let ((_%e7442674452%_ (gx#stx-e - _%hd7354973571%_))) - (if (equal? _%e7355173577%_ + _%hd7442474446%_))) + (if (equal? _%e7442674452%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'id:) - (if (gx#stx-pair? _%tl7355073574%_) - (let ((_%e7355273581%_ - (gx#syntax-e _%tl7355073574%_))) - (let ((_%hd7355373585%_ + (if (gx#stx-pair? _%tl7442574449%_) + (let ((_%e7442774456%_ + (gx#syntax-e _%tl7442574449%_))) + (let ((_%hd7442874460%_ (let () (declare (not safe)) - (##car _%e7355273581%_))) - (_%tl7355473588%_ + (##car _%e7442774456%_))) + (_%tl7442974463%_ (let () (declare (not safe)) - (##cdr _%e7355273581%_)))) - (if (gx#stx-null? _%tl7355473588%_) - ((lambda (_%L73591%_) + (##cdr _%e7442774456%_)))) + (if (gx#stx-null? _%tl7442974463%_) + ((lambda (_%L74466%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L73591%_ '()))) - _%hd7355373585%_) - (_%g7354573560%_ _%g7354673564%_)))) - (_%g7354573560%_ _%g7354673564%_)) - (_%g7354573560%_ _%g7354673564%_))) - (_%g7354573560%_ _%g7354673564%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7354573560%_ - _%g7354673564%_))))) - (_%g7354473608%_ _%type-id71033%_))))) - _%g7127171282%_)))) - (_%g7126973612%_ - (_%wrap69477%_ + (cons _%L74466%_ '()))) + _%hd7442874460%_) + (_%g7442074435%_ _%g7442174439%_)))) + (_%g7442074435%_ _%g7442174439%_)) + (_%g7442074435%_ _%g7442174439%_))) + (_%g7442074435%_ _%g7442174439%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7442074435%_ + _%g7442174439%_))))) + (_%g7441974483%_ _%type-id71908%_))))) + _%g7214672157%_)))) + (_%g7214474487%_ + (_%wrap70352%_ (cons (gx#datum->syntax '#f 'defclass-type) - (cons _%L69707%_ - (cons _%L69791%_ - (cons _%L71257%_ - (cons _%L69763%_ - (foldr (lambda (_%g7361573618%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7361673621%_) - (cons _%g7361573618%_ _%g7361673621%_)) + (cons _%L70582%_ + (cons _%L70666%_ + (cons _%L72132%_ + (cons _%L70638%_ + (foldr (lambda (_%g7449074493%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7449174496%_) + (cons _%g7449074493%_ _%g7449174496%_)) '() - _%L71221%_)))))))))) + _%L72096%_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7124371254%_)))) + _%g7211872129%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7124173624%_ - (if (or (not (null? _%type-constructor71048%_)) + (_%g7211674499%_ + (if (or (not (null? _%type-constructor71923%_)) (and (zero? (hash-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%slot-contract-table69625%_)) - (zero? (hash-length _%slot-default-table69628%_))) - _%metaclass71152%_) + _%slot-contract-table70500%_)) + (zero? (hash-length _%slot-default-table70503%_))) + _%metaclass72027%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L69735%_ + _%L70610%_ '#f)))) - _%type-body7117871217%_)))))) - (_%loop7117371197%_ _%target7117071191%_ '())) - (_%g7116771184%_ _%g7116871188%_))))) - (_%g7116771184%_ _%g7116871188%_))))) + _%type-body7205372092%_)))))) + (_%loop7204872072%_ _%target7204572066%_ '())) + (_%g7204272059%_ _%g7204372063%_))))) + (_%g7204272059%_ _%g7204372063%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7116673636%_ + (_%g7204174511%_ (foldr cons (foldr cons (foldr cons @@ -12604,1257 +13065,1257 @@ (foldr cons (foldr cons (foldr cons - _%type-mixin-slots71019%_ - _%type-slots70872%_) - _%type-properties71140%_) - _%type-metaclass71164%_) - _%type-final71161%_) - _%type-struct71158%_) - _%type-constructor71048%_) - _%type-name71026%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%type-id71033%_)))) - _%mixin-usetf7066770706%_)))))) - (_%loop7066270686%_ _%target7065970680%_ '())) - (_%g7065670673%_ _%g7065770677%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7065670673%_ - _%g7065770677%_))))) - (_%g7065573640%_ + _%type-mixin-slots71894%_ + _%type-slots71747%_) + _%type-properties72015%_) + _%type-metaclass72039%_) + _%type-final72036%_) + _%type-struct72033%_) + _%type-constructor71923%_) + _%type-name71901%_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%type-id71908%_)))) + _%mixin-usetf7154271581%_)))))) + (_%loop7153771561%_ _%target7153471555%_ '())) + (_%g7153171548%_ _%g7153271552%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7153171548%_ + _%g7153271552%_))))) + (_%g7153074515%_ (gx#stx-map - (lambda (_%g7364373645%_) - (_%make-id69618%_ + (lambda (_%g7451874520%_) + (_%make-id70493%_ '"&" - _%g7364373645%_)) - (foldr (lambda (_%g7364873651%_ - _%g7364973654%_) - (cons _%g7364873651%_ - _%g7364973654%_)) + _%g7451874520%_)) + (foldr (lambda (_%g7452374526%_ + _%g7452474529%_) + (cons _%g7452374526%_ + _%g7452474529%_)) '() - _%L70355%_))))) - _%mixin-ugetf7059670635%_)))))) - (_%loop7059170615%_ _%target7058870609%_ '())) - (_%g7058570602%_ _%g7058670606%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7058570602%_ - _%g7058670606%_))))) - (_%g7058473657%_ + _%L71230%_))))) + _%mixin-ugetf7147171510%_)))))) + (_%loop7146671490%_ _%target7146371484%_ '())) + (_%g7146071477%_ _%g7146171481%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7146071477%_ + _%g7146171481%_))))) + (_%g7145974532%_ (gx#stx-map - (lambda (_%g7366073662%_) - (_%make-id69618%_ '"&" _%g7366073662%_)) - (foldr (lambda (_%g7366573668%_ - _%g7366673671%_) - (cons _%g7366573668%_ - _%g7366673671%_)) + (lambda (_%g7453574537%_) + (_%make-id70493%_ '"&" _%g7453574537%_)) + (foldr (lambda (_%g7454074543%_ + _%g7454174546%_) + (cons _%g7454074543%_ + _%g7454174546%_)) '() - _%L70284%_))))) - _%usetf7052570564%_)))))) + _%L71159%_))))) + _%usetf7140071439%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7052070544%_ - _%target7051770538%_ + (_%loop7139571419%_ + _%target7139271413%_ '())) - (_%g7051470531%_ - _%g7051570535%_))))) - (_%g7051470531%_ _%g7051570535%_))))) - (_%g7051373674%_ + (_%g7138971406%_ + _%g7139071410%_))))) + (_%g7138971406%_ _%g7139071410%_))))) + (_%g7138874549%_ (gx#stx-map - (lambda (_%g7367773679%_) - (_%make-id69618%_ '"&" _%g7367773679%_)) - (foldr (lambda (_%g7368273685%_ _%g7368373688%_) - (cons _%g7368273685%_ _%g7368373688%_)) + (lambda (_%g7455274554%_) + (_%make-id70493%_ '"&" _%g7455274554%_)) + (foldr (lambda (_%g7455774560%_ _%g7455874563%_) + (cons _%g7455774560%_ _%g7455874563%_)) '() - _%L70071%_))))) - _%ugetf7045470493%_)))))) + _%L70946%_))))) + _%ugetf7132971368%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7044970473%_ - _%target7044670467%_ + (_%loop7132471348%_ + _%target7132171342%_ '())) - (_%g7044370460%_ - _%g7044470464%_))))) - (_%g7044370460%_ _%g7044470464%_))))) - (_%g7044273691%_ + (_%g7131871335%_ + _%g7131971339%_))))) + (_%g7131871335%_ _%g7131971339%_))))) + (_%g7131774566%_ (gx#stx-map - (lambda (_%g7369473696%_) - (_%make-id69618%_ '"&" _%g7369473696%_)) - (foldr (lambda (_%g7369973702%_ _%g7370073705%_) - (cons _%g7369973702%_ _%g7370073705%_)) + (lambda (_%g7456974571%_) + (_%make-id70493%_ '"&" _%g7456974571%_)) + (foldr (lambda (_%g7457474577%_ _%g7457574580%_) + (cons _%g7457474577%_ _%g7457574580%_)) '() - _%L70000%_))))) - _%mixin-rawsetf7038370422%_)))))) + _%L70875%_))))) + _%mixin-rawsetf7125871297%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7037870402%_ - _%target7037570396%_ + (_%loop7125371277%_ + _%target7125071271%_ '())) - (_%g7037270389%_ _%g7037370393%_))))) - (_%g7037270389%_ _%g7037370393%_))))) - (_%g7037173708%_ + (_%g7124771264%_ _%g7124871268%_))))) + (_%g7124771264%_ _%g7124871268%_))))) + (_%g7124674583%_ (gx#stx-map - (lambda (_%g7371173713%_) - (_%make-id69618%_ - _%name69645%_ + (lambda (_%g7458674588%_) + (_%make-id70493%_ + _%name70520%_ '"-unchecked-" - _%g7371173713%_ + _%g7458674588%_ '"-set!")) - _%mixin-slots69642%_)))) + _%mixin-slots70517%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-setf7031270351%_)))))) - (_%loop7030770331%_ - _%target7030470325%_ + _%mixin-setf7118771226%_)))))) + (_%loop7118271206%_ + _%target7117971200%_ '())) - (_%g7030170318%_ _%g7030270322%_))))) - (_%g7030170318%_ _%g7030270322%_))))) + (_%g7117671193%_ _%g7117771197%_))))) + (_%g7117671193%_ _%g7117771197%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7030073717%_ + (_%g7117574592%_ (gx#stx-map - (lambda (_%g7372073722%_) - (_%make-id69618%_ - _%name69645%_ + (lambda (_%g7459574597%_) + (_%make-id70493%_ + _%name70520%_ '"-" - _%g7372073722%_ + _%g7459574597%_ '"-set!")) - _%mixin-slots69642%_)))) - _%mixin-getf7024170280%_)))))) - (_%loop7023670260%_ _%target7023370254%_ '())) - (_%g7023070247%_ _%g7023170251%_))))) - (_%g7023070247%_ _%g7023170251%_))))) + _%mixin-slots70517%_)))) + _%mixin-getf7111671155%_)))))) + (_%loop7111171135%_ _%target7110871129%_ '())) + (_%g7110571122%_ _%g7110671126%_))))) + (_%g7110571122%_ _%g7110671126%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7022973726%_ + (_%g7110474601%_ (gx#stx-map - (lambda (_%g7372973731%_) - (_%make-id69618%_ - _%name69645%_ + (lambda (_%g7460474606%_) + (_%make-id70493%_ + _%name70520%_ '"-" - _%g7372973731%_)) - _%mixin-slots69642%_)))) - _%mixin-slot7017070209%_)))))) - (_%loop7016570189%_ _%target7016270183%_ '())) - (_%g7015970176%_ _%g7016070180%_))))) - (_%g7015970176%_ _%g7016070180%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7015873735%_ - _%mixin-slots69642%_))) - _%rawsetf7009970138%_)))))) - (_%loop7009470118%_ _%target7009170112%_ '())) - (_%g7008870105%_ _%g7008970109%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7008870105%_ - _%g7008970109%_))))) - (_%g7008773739%_ + _%g7460474606%_)) + _%mixin-slots70517%_)))) + _%mixin-slot7104571084%_)))))) + (_%loop7104071064%_ _%target7103771058%_ '())) + (_%g7103471051%_ _%g7103571055%_))))) + (_%g7103471051%_ _%g7103571055%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7103374610%_ + _%mixin-slots70517%_))) + _%rawsetf7097471013%_)))))) + (_%loop7096970993%_ _%target7096670987%_ '())) + (_%g7096370980%_ _%g7096470984%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7096370980%_ + _%g7096470984%_))))) + (_%g7096274614%_ (gx#stx-map - (lambda (_%g7374273744%_) - (_%make-id69618%_ - _%name69645%_ + (lambda (_%g7461774619%_) + (_%make-id70493%_ + _%name70520%_ '"-unchecked-" - _%g7374273744%_ + _%g7461774619%_ '"-set!")) - _%slots69636%_)))) - _%setf7002870067%_)))))) - (_%loop7002370047%_ _%target7002070041%_ '())) - (_%g7001770034%_ _%g7001870038%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7001770034%_ - _%g7001870038%_))))) - (_%g7001673748%_ + _%slots70511%_)))) + _%setf7090370942%_)))))) + (_%loop7089870922%_ _%target7089570916%_ '())) + (_%g7089270909%_ _%g7089370913%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7089270909%_ + _%g7089370913%_))))) + (_%g7089174623%_ (gx#stx-map - (lambda (_%g7375173753%_) - (_%make-id69618%_ - _%name69645%_ + (lambda (_%g7462674628%_) + (_%make-id70493%_ + _%name70520%_ '"-" - _%g7375173753%_ + _%g7462674628%_ '"-set!")) - _%slots69636%_)))) - _%getf6995769996%_)))))) + _%slots70511%_)))) + _%getf7083270871%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6995269976%_ - _%target6994969970%_ + (_%loop7082770851%_ + _%target7082470845%_ '())) - (_%g6994669963%_ - _%g6994769967%_))))) - (_%g6994669963%_ _%g6994769967%_))))) - (_%g6994573757%_ + (_%g7082170838%_ + _%g7082270842%_))))) + (_%g7082170838%_ _%g7082270842%_))))) + (_%g7082074632%_ (gx#stx-map - (lambda (_%g7376073762%_) - (_%make-id69618%_ - _%name69645%_ + (lambda (_%g7463574637%_) + (_%make-id70493%_ + _%name70520%_ '"-" - _%g7376073762%_)) - _%slots69636%_)))) - _%ordered-slot6988669925%_)))))) + _%g7463574637%_)) + _%slots70511%_)))) + _%ordered-slot7076170800%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6988169905%_ - _%target6987869899%_ + (_%loop7075670780%_ + _%target7075370774%_ '())) - (_%g6987569892%_ - _%g6987669896%_))))) - (_%g6987569892%_ _%g6987669896%_))))) - (_%g6987473766%_ _%ordered-slots69631%_))) - _%slot6981569854%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6981069834%_ - _%target6980769828%_ + (_%g7075070767%_ + _%g7075170771%_))))) + (_%g7075070767%_ _%g7075170771%_))))) + (_%g7074974641%_ _%ordered-slots70506%_))) + _%slot7069070729%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7068570709%_ + _%target7068270703%_ '())) - (_%g6980469821%_ _%g6980569825%_))))) - (_%g6980469821%_ _%g6980569825%_))))) - (_%g6980373770%_ _%slots69636%_))) + (_%g7067970696%_ _%g7068070700%_))))) + (_%g7067970696%_ _%g7068070700%_))))) + (_%g7067874645%_ _%slots70511%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6977769788%_)))) - (_%g6977573774%_ + _%g7065270663%_)))) + (_%g7065074649%_ (map gerbil/core/mop~MOP-2#!class-type-descriptor - _%super69648%_)))) - _%g6974969760%_)))) - (_%g6974773778%_ - (_%make-id69618%_ _%name69645%_ '"?")))) - _%g6972169732%_)))) - (_%g6971973782%_ (_%make-id69618%_ '"make-" _%name69645%_)))) - _%g6969369704%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6969173786%_ - (_%make-id69618%_ - _%name69645%_ + _%super70523%_)))) + _%g7062470635%_)))) + (_%g7062274653%_ + (_%make-id70493%_ _%name70520%_ '"?")))) + _%g7059670607%_)))) + (_%g7059474657%_ (_%make-id70493%_ '"make-" _%name70520%_)))) + _%g7056870579%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7056674661%_ + (_%make-id70493%_ + _%name70520%_ '"::t")))) - _%g6965569666%_)))) - (_%g6965373790%_ _%id69612%_)))))))))) - (let* ((_%g6948069508%_ - (lambda (_%g6948169504%_) + _%g7053070541%_)))) + (_%g7052874665%_ _%id70487%_)))))))))) + (let* ((_%g7035570383%_ + (lambda (_%g7035670379%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6948169504%_))) - (_%g6947969608%_ - (lambda (_%g6948169512%_) - (if (gx#stx-pair? _%g6948169512%_) - (let ((_%e6948569515%_ (gx#syntax-e _%g6948169512%_))) - (let ((_%hd6948669519%_ + _%g7035670379%_))) + (_%g7035470483%_ + (lambda (_%g7035670387%_) + (if (gx#stx-pair? _%g7035670387%_) + (let ((_%e7036070390%_ (gx#syntax-e _%g7035670387%_))) + (let ((_%hd7036170394%_ (let () (declare (not safe)) - (##car _%e6948569515%_))) - (_%tl6948769522%_ + (##car _%e7036070390%_))) + (_%tl7036270397%_ (let () (declare (not safe)) - (##cdr _%e6948569515%_)))) - (if (gx#stx-pair? _%tl6948769522%_) - (let ((_%e6948869525%_ - (gx#syntax-e _%tl6948769522%_))) - (let ((_%hd6948969529%_ + (##cdr _%e7036070390%_)))) + (if (gx#stx-pair? _%tl7036270397%_) + (let ((_%e7036370400%_ + (gx#syntax-e _%tl7036270397%_))) + (let ((_%hd7036470404%_ (let () (declare (not safe)) - (##car _%e6948869525%_))) - (_%tl6949069532%_ + (##car _%e7036370400%_))) + (_%tl7036570407%_ (let () (declare (not safe)) - (##cdr _%e6948869525%_)))) - (if (gx#stx-pair? _%tl6949069532%_) - (let ((_%e6949169535%_ - (gx#syntax-e _%tl6949069532%_))) - (let ((_%hd6949269539%_ + (##cdr _%e7036370400%_)))) + (if (gx#stx-pair? _%tl7036570407%_) + (let ((_%e7036670410%_ + (gx#syntax-e _%tl7036570407%_))) + (let ((_%hd7036770414%_ (let () (declare (not safe)) - (##car _%e6949169535%_))) - (_%tl6949369542%_ + (##car _%e7036670410%_))) + (_%tl7036870417%_ (let () (declare (not safe)) - (##cdr _%e6949169535%_)))) + (##cdr _%e7036670410%_)))) (if (gx#stx-pair/null? - _%hd6949269539%_) - (let ((_g84242_ + _%hd7036770414%_) + (let ((_g85234_ (gx#syntax-split-splice - _%hd6949269539%_ + _%hd7036770414%_ '0))) (begin - (let ((_g84243_ + (let ((_g85235_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g84242_) - (##vector-length _g84242_) + _g85234_) + (##values-length _g85234_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84243_ 2))) - (error "Context expects 2 values" _g84243_))) + (if (not (let () (declare (not safe)) (##fx= _g85235_ 2))) + (error "Context expects 2 values" _g85235_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6949469545%_ + (let ((_%target7036970420%_ (let () (declare (not safe)) - (##vector-ref - _g84242_ + (##values-ref + _g85234_ 0))) - (_%tl6949669548%_ + (_%tl7037170423%_ (let () (declare (not safe)) - (##vector-ref - _g84242_ + (##values-ref + _g85234_ 1)))) (if (gx#stx-null? - _%tl6949669548%_) - (letrec ((_%loop6949769551%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6949569555%_ _%slot6950169558%_) - (if (gx#stx-pair? _%hd6949569555%_) - (let ((_%e6949869561%_ - (gx#syntax-e _%hd6949569555%_))) - (let ((_%lp-hd6949969565%_ + _%tl7037170423%_) + (letrec ((_%loop7037270426%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7037070430%_ _%slot7037670433%_) + (if (gx#stx-pair? _%hd7037070430%_) + (let ((_%e7037370436%_ + (gx#syntax-e _%hd7037070430%_))) + (let ((_%lp-hd7037470440%_ (let () (declare (not safe)) - (##car _%e6949869561%_))) - (_%lp-tl6950069568%_ + (##car _%e7037370436%_))) + (_%lp-tl7037570443%_ (let () (declare (not safe)) - (##cdr _%e6949869561%_)))) - (_%loop6949769551%_ - _%lp-tl6950069568%_ - (cons _%lp-hd6949969565%_ - _%slot6950169558%_)))) - (let ((_%slot6950269571%_ - (reverse _%slot6950169558%_))) - ((lambda (_%L69575%_ _%L69577%_ _%L69578%_) - (_%generate69457%_ - _%L69578%_ - (foldr (lambda (_%g6959969602%_ - _%g6960069605%_) - (cons _%g6959969602%_ - _%g6960069605%_)) + (##cdr _%e7037370436%_)))) + (_%loop7037270426%_ + _%lp-tl7037570443%_ + (cons _%lp-hd7037470440%_ + _%slot7037670433%_)))) + (let ((_%slot7037770446%_ + (reverse _%slot7037670433%_))) + ((lambda (_%L70450%_ _%L70452%_ _%L70453%_) + (_%generate70332%_ + _%L70453%_ + (foldr (lambda (_%g7047470477%_ + _%g7047570480%_) + (cons _%g7047470477%_ + _%g7047570480%_)) '() - _%L69577%_) - _%L69575%_)) - _%tl6949369542%_ - _%slot6950269571%_ - _%hd6948969529%_)))))) - (_%loop6949769551%_ _%target6949469545%_ '())) - (_%g6948069508%_ _%g6948169512%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6948069508%_ - _%g6948169512%_)))) - (_%g6948069508%_ _%g6948169512%_)))) - (_%g6948069508%_ _%g6948169512%_)))) - (_%g6948069508%_ _%g6948169512%_))))) - (_%g6947969608%_ _%stx69454%_))))) + _%L70452%_) + _%L70450%_)) + _%tl7036870417%_ + _%slot7037770446%_ + _%hd7036470404%_)))))) + (_%loop7037270426%_ _%target7036970420%_ '())) + (_%g7035570383%_ _%g7035670387%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7035570383%_ + _%g7035670387%_)))) + (_%g7035570383%_ _%g7035670387%_)))) + (_%g7035570383%_ _%g7035670387%_)))) + (_%g7035570383%_ _%g7035670387%_))))) + (_%g7035470483%_ _%stx70329%_))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defstruct/c| - (lambda (_%$stx76800%_) - (let* ((_%g7680476823%_ - (lambda (_%g7680576819%_) + (lambda (_%$stx77675%_) + (let* ((_%g7767977698%_ + (lambda (_%g7768077694%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7680576819%_))) - (_%g7680376880%_ - (lambda (_%g7680576827%_) - (if (gx#stx-pair? _%g7680576827%_) - (let ((_%e7680976830%_ (gx#syntax-e _%g7680576827%_))) - (let ((_%hd7681076834%_ + _%g7768077694%_))) + (_%g7767877755%_ + (lambda (_%g7768077702%_) + (if (gx#stx-pair? _%g7768077702%_) + (let ((_%e7768477705%_ (gx#syntax-e _%g7768077702%_))) + (let ((_%hd7768577709%_ (let () (declare (not safe)) - (##car _%e7680976830%_))) - (_%tl7681176837%_ + (##car _%e7768477705%_))) + (_%tl7768677712%_ (let () (declare (not safe)) - (##cdr _%e7680976830%_)))) - (if (gx#stx-pair? _%tl7681176837%_) - (let ((_%e7681276840%_ - (gx#syntax-e _%tl7681176837%_))) - (let ((_%hd7681376844%_ + (##cdr _%e7768477705%_)))) + (if (gx#stx-pair? _%tl7768677712%_) + (let ((_%e7768777715%_ + (gx#syntax-e _%tl7768677712%_))) + (let ((_%hd7768877719%_ (let () (declare (not safe)) - (##car _%e7681276840%_))) - (_%tl7681476847%_ + (##car _%e7768777715%_))) + (_%tl7768977722%_ (let () (declare (not safe)) - (##cdr _%e7681276840%_)))) - (if (gx#stx-pair? _%tl7681476847%_) - (let ((_%e7681576850%_ - (gx#syntax-e _%tl7681476847%_))) - (let ((_%hd7681676854%_ + (##cdr _%e7768777715%_)))) + (if (gx#stx-pair? _%tl7768977722%_) + (let ((_%e7769077725%_ + (gx#syntax-e _%tl7768977722%_))) + (let ((_%hd7769177729%_ (let () (declare (not safe)) - (##car _%e7681576850%_))) - (_%tl7681776857%_ + (##car _%e7769077725%_))) + (_%tl7769277732%_ (let () (declare (not safe)) - (##cdr _%e7681576850%_)))) - ((lambda (_%L76860%_ - _%L76862%_ - _%L76863%_) + (##cdr _%e7769077725%_)))) + ((lambda (_%L77735%_ + _%L77737%_ + _%L77738%_) (cons (gx#datum->syntax '#f 'defclass/c) - (cons _%L76863%_ - (cons _%L76862%_ + (cons _%L77738%_ + (cons _%L77737%_ (cons 'struct: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '#t _%L76860%_)))))) + (cons '#t _%L77735%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl7681776857%_ - _%hd7681676854%_ - _%hd7681376844%_))) - (_%g7680476823%_ _%g7680576827%_)))) - (_%g7680476823%_ _%g7680576827%_)))) - (_%g7680476823%_ _%g7680576827%_))))) - (_%g7680376880%_ _%$stx76800%_)))) + _%tl7769277732%_ + _%hd7769177729%_ + _%hd7768877719%_))) + (_%g7767977698%_ _%g7768077702%_)))) + (_%g7767977698%_ _%g7768077702%_)))) + (_%g7767977698%_ _%g7768077702%_))))) + (_%g7767877755%_ _%$stx77675%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do/c| - (lambda (_%stx76884%_) - (let* ((_%g7688776958%_ - (lambda (_%g7688876954%_) + (lambda (_%stx77759%_) + (let* ((_%g7776277833%_ + (lambda (_%g7776377829%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7688876954%_))) - (_%g7688677324%_ - (lambda (_%g7688876962%_) - (if (gx#stx-pair? _%g7688876962%_) - (let ((_%e7689576965%_ (gx#syntax-e _%g7688876962%_))) - (let ((_%hd7689676969%_ + _%g7776377829%_))) + (_%g7776178199%_ + (lambda (_%g7776377837%_) + (if (gx#stx-pair? _%g7776377837%_) + (let ((_%e7777077840%_ (gx#syntax-e _%g7776377837%_))) + (let ((_%hd7777177844%_ (let () (declare (not safe)) - (##car _%e7689576965%_))) - (_%tl7689776972%_ + (##car _%e7777077840%_))) + (_%tl7777277847%_ (let () (declare (not safe)) - (##cdr _%e7689576965%_)))) - (if (gx#stx-pair? _%tl7689776972%_) - (let ((_%e7689876975%_ - (gx#syntax-e _%tl7689776972%_))) - (let ((_%hd7689976979%_ + (##cdr _%e7777077840%_)))) + (if (gx#stx-pair? _%tl7777277847%_) + (let ((_%e7777377850%_ + (gx#syntax-e _%tl7777277847%_))) + (let ((_%hd7777477854%_ (let () (declare (not safe)) - (##car _%e7689876975%_))) - (_%tl7690076982%_ + (##car _%e7777377850%_))) + (_%tl7777577857%_ (let () (declare (not safe)) - (##cdr _%e7689876975%_)))) - (if (gx#stx-pair/null? _%hd7689976979%_) - (let ((_g84244_ + (##cdr _%e7777377850%_)))) + (if (gx#stx-pair/null? _%hd7777477854%_) + (let ((_g85236_ (gx#syntax-split-splice - _%hd7689976979%_ + _%hd7777477854%_ '0))) (begin - (let ((_g84245_ + (let ((_g85237_ (let () (declare (not safe)) - (if (##values? _g84244_) - (##vector-length - _g84244_) + (if (##values? _g85236_) + (##values-length + _g85236_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84245_ 2))) + (##fx= _g85237_ 2))) (error "Context expects 2 values" - _g84245_))) - (let ((_%target7690176985%_ + _g85237_))) + (let ((_%target7777677860%_ (let () (declare (not safe)) - (##vector-ref _g84244_ 0))) - (_%tl7690376988%_ + (##values-ref _g85236_ 0))) + (_%tl7777877863%_ (let () (declare (not safe)) - (##vector-ref _g84244_ 1)))) - (if (gx#stx-null? _%tl7690376988%_) - (letrec ((_%loop7690476991%_ - (lambda (_%hd7690276995%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%step7690876998%_ - _%init7690977000%_ - _%var/c7691077002%_) - (if (gx#stx-pair? _%hd7690276995%_) - (let ((_%e7690577005%_ (gx#syntax-e _%hd7690276995%_))) - (let ((_%lp-hd7690677009%_ + (##values-ref _g85236_ 1)))) + (if (gx#stx-null? _%tl7777877863%_) + (letrec ((_%loop7777977866%_ + (lambda (_%hd7777777870%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%step7778377873%_ + _%init7778477875%_ + _%var/c7778577877%_) + (if (gx#stx-pair? _%hd7777777870%_) + (let ((_%e7778077880%_ (gx#syntax-e _%hd7777777870%_))) + (let ((_%lp-hd7778177884%_ (let () (declare (not safe)) - (##car _%e7690577005%_))) - (_%lp-tl7690777012%_ + (##car _%e7778077880%_))) + (_%lp-tl7778277887%_ (let () (declare (not safe)) - (##cdr _%e7690577005%_)))) - (if (gx#stx-pair? _%lp-hd7690677009%_) - (let ((_%e7693877015%_ - (gx#syntax-e _%lp-hd7690677009%_))) - (let ((_%hd7693977019%_ + (##cdr _%e7778077880%_)))) + (if (gx#stx-pair? _%lp-hd7778177884%_) + (let ((_%e7781377890%_ + (gx#syntax-e _%lp-hd7778177884%_))) + (let ((_%hd7781477894%_ (let () (declare (not safe)) - (##car _%e7693877015%_))) - (_%tl7694077022%_ + (##car _%e7781377890%_))) + (_%tl7781577897%_ (let () (declare (not safe)) - (##cdr _%e7693877015%_)))) - (if (gx#stx-pair? _%tl7694077022%_) - (let ((_%e7694177025%_ - (gx#syntax-e _%tl7694077022%_))) - (let ((_%hd7694277029%_ + (##cdr _%e7781377890%_)))) + (if (gx#stx-pair? _%tl7781577897%_) + (let ((_%e7781677900%_ + (gx#syntax-e _%tl7781577897%_))) + (let ((_%hd7781777904%_ (let () (declare (not safe)) - (##car _%e7694177025%_))) - (_%tl7694377032%_ + (##car _%e7781677900%_))) + (_%tl7781877907%_ (let () (declare (not safe)) - (##cdr _%e7694177025%_)))) + (##cdr _%e7781677900%_)))) (if (gx#stx-pair/null? - _%tl7694377032%_) - (let ((_g84246_ + _%tl7781877907%_) + (let ((_g85238_ (gx#syntax-split-splice - _%tl7694377032%_ + _%tl7781877907%_ '0))) (begin - (let ((_g84247_ + (let ((_g85239_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g84246_) - (##vector-length _g84246_) + _g85238_) + (##values-length _g85238_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84247_ 2))) - (error "Context expects 2 values" _g84247_))) + (if (not (let () (declare (not safe)) (##fx= _g85239_ 2))) + (error "Context expects 2 values" _g85239_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7694477035%_ + (let ((_%target7781977910%_ (let () (declare (not safe)) - (##vector-ref - _g84246_ + (##values-ref + _g85238_ 0))) - (_%tl7694677038%_ + (_%tl7782177913%_ (let () (declare (not safe)) - (##vector-ref - _g84246_ + (##values-ref + _g85238_ 1)))) (if (gx#stx-null? - _%tl7694677038%_) - (letrec ((_%loop7694777041%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7694577045%_ _%step7695177048%_) - (if (gx#stx-pair? _%hd7694577045%_) - (let ((_%e7694877051%_ - (gx#syntax-e _%hd7694577045%_))) - (let ((_%lp-hd7694977055%_ + _%tl7782177913%_) + (letrec ((_%loop7782277916%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7782077920%_ _%step7782677923%_) + (if (gx#stx-pair? _%hd7782077920%_) + (let ((_%e7782377926%_ + (gx#syntax-e _%hd7782077920%_))) + (let ((_%lp-hd7782477930%_ (let () (declare (not safe)) - (##car _%e7694877051%_))) - (_%lp-tl7695077058%_ + (##car _%e7782377926%_))) + (_%lp-tl7782577933%_ (let () (declare (not safe)) - (##cdr _%e7694877051%_)))) - (_%loop7694777041%_ - _%lp-tl7695077058%_ - (cons _%lp-hd7694977055%_ - _%step7695177048%_)))) - (let ((_%step7695277061%_ - (reverse _%step7695177048%_))) - (_%loop7690476991%_ - _%lp-tl7690777012%_ - (cons _%step7695277061%_ - _%step7690876998%_) - (cons _%hd7694277029%_ _%init7690977000%_) - (cons _%hd7693977019%_ - _%var/c7691077002%_))))))) - (_%loop7694777041%_ _%target7694477035%_ '())) - (_%g7688776958%_ _%g7688876962%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7688776958%_ - _%g7688876962%_)))) - (_%g7688776958%_ _%g7688876962%_)))) - (_%g7688776958%_ _%g7688876962%_)))) - (let ((_%step7691177065%_ (reverse _%step7690876998%_)) - (_%init7691277068%_ (reverse _%init7690977000%_)) - (_%var/c7691377070%_ - (reverse _%var/c7691077002%_))) - (if (gx#stx-pair? _%tl7690076982%_) - (let ((_%e7691477073%_ - (gx#syntax-e _%tl7690076982%_))) - (let ((_%hd7691577077%_ + (##cdr _%e7782377926%_)))) + (_%loop7782277916%_ + _%lp-tl7782577933%_ + (cons _%lp-hd7782477930%_ + _%step7782677923%_)))) + (let ((_%step7782777936%_ + (reverse _%step7782677923%_))) + (_%loop7777977866%_ + _%lp-tl7778277887%_ + (cons _%step7782777936%_ + _%step7778377873%_) + (cons _%hd7781777904%_ _%init7778477875%_) + (cons _%hd7781477894%_ + _%var/c7778577877%_))))))) + (_%loop7782277916%_ _%target7781977910%_ '())) + (_%g7776277833%_ _%g7776377837%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7776277833%_ + _%g7776377837%_)))) + (_%g7776277833%_ _%g7776377837%_)))) + (_%g7776277833%_ _%g7776377837%_)))) + (let ((_%step7778677940%_ (reverse _%step7778377873%_)) + (_%init7778777943%_ (reverse _%init7778477875%_)) + (_%var/c7778877945%_ + (reverse _%var/c7778577877%_))) + (if (gx#stx-pair? _%tl7777577857%_) + (let ((_%e7778977948%_ + (gx#syntax-e _%tl7777577857%_))) + (let ((_%hd7779077952%_ (let () (declare (not safe)) - (##car _%e7691477073%_))) - (_%tl7691677080%_ + (##car _%e7778977948%_))) + (_%tl7779177955%_ (let () (declare (not safe)) - (##cdr _%e7691477073%_)))) - (if (gx#stx-pair? _%hd7691577077%_) - (let ((_%e7691777083%_ - (gx#syntax-e _%hd7691577077%_))) - (let ((_%hd7691877087%_ + (##cdr _%e7778977948%_)))) + (if (gx#stx-pair? _%hd7779077952%_) + (let ((_%e7779277958%_ + (gx#syntax-e _%hd7779077952%_))) + (let ((_%hd7779377962%_ (let () (declare (not safe)) - (##car _%e7691777083%_))) - (_%tl7691977090%_ + (##car _%e7779277958%_))) + (_%tl7779477965%_ (let () (declare (not safe)) - (##cdr _%e7691777083%_)))) + (##cdr _%e7779277958%_)))) (if (gx#stx-pair/null? - _%tl7691977090%_) - (let ((_g84248_ + _%tl7779477965%_) + (let ((_g85240_ (gx#syntax-split-splice - _%tl7691977090%_ + _%tl7779477965%_ '0))) (begin - (let ((_g84249_ + (let ((_g85241_ (let () (declare (not safe)) (if (##values? - _g84248_) - (##vector-length - _g84248_) + _g85240_) + (##values-length + _g85240_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g84249_ 2))) - (error "Context expects 2 values" _g84249_))) + (##fx= _g85241_ 2))) + (error "Context expects 2 values" _g85241_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7692077093%_ + (let ((_%target7779577968%_ (let () (declare (not safe)) - (##vector-ref - _g84248_ + (##values-ref + _g85240_ 0))) - (_%tl7692277096%_ + (_%tl7779777971%_ (let () (declare (not safe)) - (##vector-ref - _g84248_ + (##values-ref + _g85240_ 1)))) (if (gx#stx-null? - _%tl7692277096%_) - (letrec ((_%loop7692377099%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7692177103%_ _%fini7692777106%_) - (if (gx#stx-pair? _%hd7692177103%_) - (let ((_%e7692477109%_ - (gx#syntax-e _%hd7692177103%_))) - (let ((_%lp-hd7692577113%_ + _%tl7779777971%_) + (letrec ((_%loop7779877974%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7779677978%_ _%fini7780277981%_) + (if (gx#stx-pair? _%hd7779677978%_) + (let ((_%e7779977984%_ + (gx#syntax-e _%hd7779677978%_))) + (let ((_%lp-hd7780077988%_ (let () (declare (not safe)) - (##car _%e7692477109%_))) - (_%lp-tl7692677116%_ + (##car _%e7779977984%_))) + (_%lp-tl7780177991%_ (let () (declare (not safe)) - (##cdr _%e7692477109%_)))) - (_%loop7692377099%_ - _%lp-tl7692677116%_ - (cons _%lp-hd7692577113%_ - _%fini7692777106%_)))) - (let ((_%fini7692877119%_ - (reverse _%fini7692777106%_))) - (if (gx#stx-pair/null? _%tl7691677080%_) - (let ((_g84250_ + (##cdr _%e7779977984%_)))) + (_%loop7779877974%_ + _%lp-tl7780177991%_ + (cons _%lp-hd7780077988%_ + _%fini7780277981%_)))) + (let ((_%fini7780377994%_ + (reverse _%fini7780277981%_))) + (if (gx#stx-pair/null? _%tl7779177955%_) + (let ((_g85242_ (gx#syntax-split-splice - _%tl7691677080%_ + _%tl7779177955%_ '0))) (begin - (let ((_g84251_ + (let ((_g85243_ (let () (declare (not safe)) - (if (##values? _g84250_) - (##vector-length - _g84250_) + (if (##values? _g85242_) + (##values-length + _g85242_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84251_ 2))) + (##fx= _g85243_ 2))) (error "Context expects 2 values" - _g84251_))) - (let ((_%target7692977123%_ + _g85243_))) + (let ((_%target7780477998%_ (let () (declare (not safe)) - (##vector-ref _g84250_ 0))) - (_%tl7693177126%_ + (##values-ref _g85242_ 0))) + (_%tl7780678001%_ (let () (declare (not safe)) - (##vector-ref _g84250_ 1)))) - (if (gx#stx-null? _%tl7693177126%_) - (letrec ((_%loop7693277129%_ - (lambda (_%hd7693077133%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body7693677136%_) - (if (gx#stx-pair? _%hd7693077133%_) - (let ((_%e7693377139%_ (gx#syntax-e _%hd7693077133%_))) - (let ((_%lp-hd7693477143%_ + (##values-ref _g85242_ 1)))) + (if (gx#stx-null? _%tl7780678001%_) + (letrec ((_%loop7780778004%_ + (lambda (_%hd7780578008%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body7781178011%_) + (if (gx#stx-pair? _%hd7780578008%_) + (let ((_%e7780878014%_ (gx#syntax-e _%hd7780578008%_))) + (let ((_%lp-hd7780978018%_ (let () (declare (not safe)) - (##car _%e7693377139%_))) - (_%lp-tl7693577146%_ + (##car _%e7780878014%_))) + (_%lp-tl7781078021%_ (let () (declare (not safe)) - (##cdr _%e7693377139%_)))) - (_%loop7693277129%_ - _%lp-tl7693577146%_ - (cons _%lp-hd7693477143%_ _%body7693677136%_)))) - (let ((_%body7693777149%_ - (reverse _%body7693677136%_))) - ((lambda (_%L77153%_ - _%L77155%_ - _%L77156%_ - _%L77157%_ - _%L77158%_ - _%L77159%_) - (let* ((_%g7719377210%_ - (lambda (_%g7719477206%_) + (##cdr _%e7780878014%_)))) + (_%loop7780778004%_ + _%lp-tl7781078021%_ + (cons _%lp-hd7780978018%_ _%body7781178011%_)))) + (let ((_%body7781278024%_ + (reverse _%body7781178011%_))) + ((lambda (_%L78028%_ + _%L78030%_ + _%L78031%_ + _%L78032%_ + _%L78033%_ + _%L78034%_) + (let* ((_%g7806878085%_ + (lambda (_%g7806978081%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7719477206%_))) - (_%g7719277309%_ - (lambda (_%g7719477214%_) - (if (gx#stx-pair/null? _%g7719477214%_) - (let ((_g84252_ + _%g7806978081%_))) + (_%g7806778184%_ + (lambda (_%g7806978089%_) + (if (gx#stx-pair/null? _%g7806978089%_) + (let ((_g85244_ (gx#syntax-split-splice - _%g7719477214%_ + _%g7806978089%_ '0))) (begin - (let ((_g84253_ + (let ((_g85245_ (let () (declare (not safe)) (if (##values? - _g84252_) - (##vector-length - _g84252_) + _g85244_) + (##values-length + _g85244_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84253_ + (##fx= _g85245_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g84253_))) - (let ((_%target7719677217%_ + _g85245_))) + (let ((_%target7807178092%_ (let () (declare (not safe)) - (##vector-ref - _g84252_ + (##values-ref + _g85244_ 0))) - (_%tl7719877220%_ + (_%tl7807378095%_ (let () (declare (not safe)) - (##vector-ref - _g84252_ + (##values-ref + _g85244_ 1)))) (if (gx#stx-null? - _%tl7719877220%_) - (letrec ((_%loop7719977223%_ - (lambda (_%hd7719777227%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%var7720377230%_) - (if (gx#stx-pair? _%hd7719777227%_) - (let ((_%e7720077233%_ - (gx#syntax-e _%hd7719777227%_))) - (let ((_%lp-hd7720177237%_ + _%tl7807378095%_) + (letrec ((_%loop7807478098%_ + (lambda (_%hd7807278102%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%var7807878105%_) + (if (gx#stx-pair? _%hd7807278102%_) + (let ((_%e7807578108%_ + (gx#syntax-e _%hd7807278102%_))) + (let ((_%lp-hd7807678112%_ (let () (declare (not safe)) - (##car _%e7720077233%_))) - (_%lp-tl7720277240%_ + (##car _%e7807578108%_))) + (_%lp-tl7807778115%_ (let () (declare (not safe)) - (##cdr _%e7720077233%_)))) - (_%loop7719977223%_ - _%lp-tl7720277240%_ - (cons _%lp-hd7720177237%_ - _%var7720377230%_)))) - (let ((_%var7720477243%_ - (reverse _%var7720377230%_))) - ((lambda (_%L77247%_) + (##cdr _%e7807578108%_)))) + (_%loop7807478098%_ + _%lp-tl7807778115%_ + (cons _%lp-hd7807678112%_ + _%var7807878105%_)))) + (let ((_%var7807978118%_ + (reverse _%var7807878105%_))) + ((lambda (_%L78122%_) (cons (gx#datum->syntax '#f 'let/c) (cons (gx#datum->syntax '#f '$loop) (cons (begin (gx#syntax-check-splice-targets - _%L77158%_ - _%L77159%_) - (foldr (lambda (_%g7727177275%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7727277278%_ - _%g7727377280%_) - (cons (cons _%g7727277278%_ (cons _%g7727177275%_ '())) - _%g7727377280%_)) + _%L78033%_ + _%L78034%_) + (foldr (lambda (_%g7814678150%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7814778153%_ + _%g7814878155%_) + (cons (cons _%g7814778153%_ (cons _%g7814678150%_ '())) + _%g7814878155%_)) '() - _%L77158%_ - _%L77159%_)) + _%L78033%_ + _%L78034%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'if) - (cons _%L77156%_ + (cons _%L78031%_ (cons (cons (gx#datum->syntax '#f 'do-loop-result) - (foldr (lambda (_%g7726977283%_ - _%g7727077286%_) - (cons _%g7726977283%_ - _%g7727077286%_)) + (foldr (lambda (_%g7814478158%_ + _%g7814578161%_) + (cons _%g7814478158%_ + _%g7814578161%_)) '() - _%L77155%_)) + _%L78030%_)) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g7726277289%_ + (foldr (lambda (_%g7813778164%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7726377292%_) - (cons _%g7726277289%_ _%g7726377292%_)) + _%g7813878167%_) + (cons _%g7813778164%_ _%g7813878167%_)) (cons (cons (gx#datum->syntax '#f '$loop) (begin (gx#syntax-check-splice-targets - _%L77157%_ - _%L77247%_) - (foldr (lambda (_%g7726477295%_ - _%g7726577298%_ - _%g7726677300%_) + _%L78032%_ + _%L78122%_) + (foldr (lambda (_%g7813978170%_ + _%g7814078173%_ + _%g7814178175%_) (cons (cons (gx#datum->syntax '#f 'do-loop-step) - (cons _%g7726577298%_ - (foldr (lambda (_%g7726777303%_ + (cons _%g7814078173%_ + (foldr (lambda (_%g7814278178%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7726877306%_) - (cons _%g7726777303%_ _%g7726877306%_)) + _%g7814378181%_) + (cons _%g7814278178%_ _%g7814378181%_)) '() - _%g7726477295%_))) + _%g7813978170%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7726677300%_)) + _%g7814178175%_)) '() - _%L77157%_ - _%L77247%_))) + _%L78032%_ + _%L78122%_))) '()) - _%L77153%_))) + _%L78028%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%var7720477243%_)))))) - (_%loop7719977223%_ _%target7719677217%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7719377210%_ - _%g7719477214%_))))) - (_%g7719377210%_ - _%g7719477214%_))))) - (_%g7719277309%_ - (map (lambda (_%b77313%_) - (if (gx#identifier? _%b77313%_) - _%b77313%_ - (gx#stx-car _%b77313%_))) - (foldr (lambda (_%g7731577318%_ - _%g7731677321%_) - (cons _%g7731577318%_ - _%g7731677321%_)) + _%var7807978118%_)))))) + (_%loop7807478098%_ _%target7807178092%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7806878085%_ + _%g7806978089%_))))) + (_%g7806878085%_ + _%g7806978089%_))))) + (_%g7806778184%_ + (map (lambda (_%b78188%_) + (if (gx#identifier? _%b78188%_) + _%b78188%_ + (gx#stx-car _%b78188%_))) + (foldr (lambda (_%g7819078193%_ + _%g7819178196%_) + (cons _%g7819078193%_ + _%g7819178196%_)) '() - _%L77159%_))))) - _%body7693777149%_ - _%fini7692877119%_ - _%hd7691877087%_ - _%step7691177065%_ - _%init7691277068%_ - _%var/c7691377070%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7693277129%_ - _%target7692977123%_ + _%L78034%_))))) + _%body7781278024%_ + _%fini7780377994%_ + _%hd7779377962%_ + _%step7778677940%_ + _%init7778777943%_ + _%var/c7778877945%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7780778004%_ + _%target7780477998%_ '())) - (_%g7688776958%_ - _%g7688876962%_))))) - (_%g7688776958%_ _%g7688876962%_))))))) - (_%loop7692377099%_ _%target7692077093%_ '())) - (_%g7688776958%_ _%g7688876962%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7688776958%_ - _%g7688876962%_)))) - (_%g7688776958%_ _%g7688876962%_)))) - (_%g7688776958%_ _%g7688876962%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7690476991%_ - _%target7690176985%_ + (_%g7776277833%_ + _%g7776377837%_))))) + (_%g7776277833%_ _%g7776377837%_))))))) + (_%loop7779877974%_ _%target7779577968%_ '())) + (_%g7776277833%_ _%g7776377837%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7776277833%_ + _%g7776377837%_)))) + (_%g7776277833%_ _%g7776377837%_)))) + (_%g7776277833%_ _%g7776377837%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7777977866%_ + _%target7777677860%_ '() '() '())) - (_%g7688776958%_ - _%g7688876962%_))))) - (_%g7688776958%_ _%g7688876962%_)))) - (_%g7688776958%_ _%g7688876962%_)))) - (_%g7688776958%_ _%g7688876962%_))))) - (_%g7688677324%_ _%stx76884%_)))) + (_%g7776277833%_ + _%g7776377837%_))))) + (_%g7776277833%_ _%g7776377837%_)))) + (_%g7776277833%_ _%g7776377837%_)))) + (_%g7776277833%_ _%g7776377837%_))))) + (_%g7776178199%_ _%stx77759%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do-loop-result| - (lambda (_%$stx77333%_) - (let* ((_%__stx8360083601%_ _%$stx77333%_) - (_%g7733977373%_ + (lambda (_%$stx78208%_) + (let* ((_%__stx8456984570%_ _%$stx78208%_) + (_%g7821478248%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8360083601%_)))) - (let ((_%__kont8360383604%_ (lambda () '#!void)) - (_%__kont8360583606%_ (lambda (_%L77485%_) _%L77485%_)) - (_%__kont8360783608%_ - (lambda (_%L77430%_ _%L77432%_) + _%__stx8456984570%_)))) + (let ((_%__kont8457284573%_ (lambda () '#!void)) + (_%__kont8457484575%_ (lambda (_%L78360%_) _%L78360%_)) + (_%__kont8457684577%_ + (lambda (_%L78305%_ _%L78307%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L77432%_ - (foldr (lambda (_%g7744977452%_ _%g7745077455%_) - (cons _%g7744977452%_ _%g7745077455%_)) + (cons _%L78307%_ + (foldr (lambda (_%g7832478327%_ _%g7832578330%_) + (cons _%g7832478327%_ _%g7832578330%_)) '() - _%L77430%_)))))) - (let ((_%__match8365383654%_ - (lambda (_%e7735377380%_ - _%hd7735477384%_ - _%tl7735577387%_ - _%e7735677390%_ - _%hd7735777394%_ - _%tl7735877397%_ - _%__splice8360983610%_ - _%target7735977400%_ - _%tl7736177403%_) - (letrec ((_%loop7736277406%_ - (lambda (_%hd7736077410%_ _%rest7736677413%_) - (if (gx#stx-pair? _%hd7736077410%_) - (let ((_%e7736377416%_ - (gx#syntax-e _%hd7736077410%_))) - (let ((_%lp-tl7736577423%_ + _%L78305%_)))))) + (let ((_%__match8462284623%_ + (lambda (_%e7822878255%_ + _%hd7822978259%_ + _%tl7823078262%_ + _%e7823178265%_ + _%hd7823278269%_ + _%tl7823378272%_ + _%__splice8457884579%_ + _%target7823478275%_ + _%tl7823678278%_) + (letrec ((_%loop7823778281%_ + (lambda (_%hd7823578285%_ _%rest7824178288%_) + (if (gx#stx-pair? _%hd7823578285%_) + (let ((_%e7823878291%_ + (gx#syntax-e _%hd7823578285%_))) + (let ((_%lp-tl7824078298%_ (let () (declare (not safe)) - (##cdr _%e7736377416%_))) - (_%lp-hd7736477420%_ + (##cdr _%e7823878291%_))) + (_%lp-hd7823978295%_ (let () (declare (not safe)) - (##car _%e7736377416%_)))) - (_%loop7736277406%_ - _%lp-tl7736577423%_ - (cons _%lp-hd7736477420%_ - _%rest7736677413%_)))) - (let ((_%rest7736777426%_ - (reverse _%rest7736677413%_))) - (_%__kont8360783608%_ - _%rest7736777426%_ - _%hd7735777394%_)))))) - (_%loop7736277406%_ _%target7735977400%_ '()))))) - (if (gx#stx-pair? _%__stx8360083601%_) - (let ((_%e7734177505%_ (gx#syntax-e _%__stx8360083601%_))) - (let ((_%tl7734377512%_ + (##car _%e7823878291%_)))) + (_%loop7823778281%_ + _%lp-tl7824078298%_ + (cons _%lp-hd7823978295%_ + _%rest7824178288%_)))) + (let ((_%rest7824278301%_ + (reverse _%rest7824178288%_))) + (_%__kont8457684577%_ + _%rest7824278301%_ + _%hd7823278269%_)))))) + (_%loop7823778281%_ _%target7823478275%_ '()))))) + (if (gx#stx-pair? _%__stx8456984570%_) + (let ((_%e7821678380%_ (gx#syntax-e _%__stx8456984570%_))) + (let ((_%tl7821878387%_ (let () (declare (not safe)) - (##cdr _%e7734177505%_))) - (_%hd7734277509%_ + (##cdr _%e7821678380%_))) + (_%hd7821778384%_ (let () (declare (not safe)) - (##car _%e7734177505%_)))) - (if (gx#stx-null? _%tl7734377512%_) - (_%__kont8360383604%_) - (if (gx#stx-pair? _%tl7734377512%_) - (let ((_%e7734877475%_ - (gx#syntax-e _%tl7734377512%_))) - (let ((_%tl7735077482%_ + (##car _%e7821678380%_)))) + (if (gx#stx-null? _%tl7821878387%_) + (_%__kont8457284573%_) + (if (gx#stx-pair? _%tl7821878387%_) + (let ((_%e7822378350%_ + (gx#syntax-e _%tl7821878387%_))) + (let ((_%tl7822578357%_ (let () (declare (not safe)) - (##cdr _%e7734877475%_))) - (_%hd7734977479%_ + (##cdr _%e7822378350%_))) + (_%hd7822478354%_ (let () (declare (not safe)) - (##car _%e7734877475%_)))) - (if (gx#stx-null? _%tl7735077482%_) - (_%__kont8360583606%_ _%hd7734977479%_) - (if (gx#stx-pair/null? _%tl7735077482%_) - (let ((_%__splice8360983610%_ + (##car _%e7822378350%_)))) + (if (gx#stx-null? _%tl7822578357%_) + (_%__kont8457484575%_ _%hd7822478354%_) + (if (gx#stx-pair/null? _%tl7822578357%_) + (let ((_%__splice8457884579%_ (gx#syntax-split-splice - _%tl7735077482%_ + _%tl7822578357%_ '0))) - (let ((_%tl7736177403%_ + (let ((_%tl7823678278%_ (let () (declare (not safe)) (##vector-ref - _%__splice8360983610%_ + _%__splice8457884579%_ '1))) - (_%target7735977400%_ + (_%target7823478275%_ (let () (declare (not safe)) (##vector-ref - _%__splice8360983610%_ + _%__splice8457884579%_ '0)))) (if (gx#stx-null? - _%tl7736177403%_) - (_%__match8365383654%_ - _%e7734177505%_ - _%hd7734277509%_ - _%tl7734377512%_ - _%e7734877475%_ - _%hd7734977479%_ - _%tl7735077482%_ - _%__splice8360983610%_ - _%target7735977400%_ - _%tl7736177403%_) + _%tl7823678278%_) + (_%__match8462284623%_ + _%e7821678380%_ + _%hd7821778384%_ + _%tl7821878387%_ + _%e7822378350%_ + _%hd7822478354%_ + _%tl7822578357%_ + _%__splice8457884579%_ + _%target7823478275%_ + _%tl7823678278%_) (let () (declare (not safe)) - (_%g7733977373%_))))) + (_%g7821478248%_))))) (let () (declare (not safe)) - (_%g7733977373%_)))))) + (_%g7821478248%_)))))) (let () (declare (not safe)) - (_%g7733977373%_)))))) - (let () (declare (not safe)) (_%g7733977373%_)))))))) + (_%g7821478248%_)))))) + (let () (declare (not safe)) (_%g7821478248%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do-loop-step| - (lambda (_%$stx77524%_) - (let* ((_%__stx8365683657%_ _%$stx77524%_) - (_%g7753077576%_ + (lambda (_%$stx78399%_) + (let* ((_%__stx8462584626%_ _%$stx78399%_) + (_%g7840578451%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8365683657%_)))) - (let ((_%__kont8365983660%_ (lambda (_%L77756%_) _%L77756%_)) - (_%__kont8366183662%_ - (lambda (_%L77712%_ _%L77714%_) _%L77712%_)) - (_%__kont8366383664%_ - (lambda (_%L77643%_ _%L77645%_ _%L77646%_) + _%__stx8462584626%_)))) + (let ((_%__kont8462884629%_ (lambda (_%L78631%_) _%L78631%_)) + (_%__kont8463084631%_ + (lambda (_%L78587%_ _%L78589%_) _%L78587%_)) + (_%__kont8463284633%_ + (lambda (_%L78518%_ _%L78520%_ _%L78521%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L77645%_ - (foldr (lambda (_%g7766677669%_ _%g7766777672%_) - (cons _%g7766677669%_ _%g7766777672%_)) + (cons _%L78520%_ + (foldr (lambda (_%g7854178544%_ _%g7854278547%_) + (cons _%g7854178544%_ _%g7854278547%_)) '() - _%L77643%_)))))) - (let ((_%__match8372783728%_ - (lambda (_%e7755377583%_ - _%hd7755477587%_ - _%tl7755577590%_ - _%e7755677593%_ - _%hd7755777597%_ - _%tl7755877600%_ - _%e7755977603%_ - _%hd7756077607%_ - _%tl7756177610%_ - _%__splice8366583666%_ - _%target7756277613%_ - _%tl7756477616%_) - (letrec ((_%loop7756577619%_ - (lambda (_%hd7756377623%_ _%rest7756977626%_) - (if (gx#stx-pair? _%hd7756377623%_) - (let ((_%e7756677629%_ - (gx#syntax-e _%hd7756377623%_))) - (let ((_%lp-tl7756877636%_ + _%L78518%_)))))) + (let ((_%__match8469684697%_ + (lambda (_%e7842878458%_ + _%hd7842978462%_ + _%tl7843078465%_ + _%e7843178468%_ + _%hd7843278472%_ + _%tl7843378475%_ + _%e7843478478%_ + _%hd7843578482%_ + _%tl7843678485%_ + _%__splice8463484635%_ + _%target7843778488%_ + _%tl7843978491%_) + (letrec ((_%loop7844078494%_ + (lambda (_%hd7843878498%_ _%rest7844478501%_) + (if (gx#stx-pair? _%hd7843878498%_) + (let ((_%e7844178504%_ + (gx#syntax-e _%hd7843878498%_))) + (let ((_%lp-tl7844378511%_ (let () (declare (not safe)) - (##cdr _%e7756677629%_))) - (_%lp-hd7756777633%_ + (##cdr _%e7844178504%_))) + (_%lp-hd7844278508%_ (let () (declare (not safe)) - (##car _%e7756677629%_)))) - (_%loop7756577619%_ - _%lp-tl7756877636%_ - (cons _%lp-hd7756777633%_ - _%rest7756977626%_)))) - (let ((_%rest7757077639%_ - (reverse _%rest7756977626%_))) - (_%__kont8366383664%_ - _%rest7757077639%_ - _%hd7756077607%_ - _%hd7755777597%_)))))) - (_%loop7756577619%_ _%target7756277613%_ '()))))) - (if (gx#stx-pair? _%__stx8365683657%_) - (let ((_%e7753377736%_ (gx#syntax-e _%__stx8365683657%_))) - (let ((_%tl7753577743%_ + (##car _%e7844178504%_)))) + (_%loop7844078494%_ + _%lp-tl7844378511%_ + (cons _%lp-hd7844278508%_ + _%rest7844478501%_)))) + (let ((_%rest7844578514%_ + (reverse _%rest7844478501%_))) + (_%__kont8463284633%_ + _%rest7844578514%_ + _%hd7843578482%_ + _%hd7843278472%_)))))) + (_%loop7844078494%_ _%target7843778488%_ '()))))) + (if (gx#stx-pair? _%__stx8462584626%_) + (let ((_%e7840878611%_ (gx#syntax-e _%__stx8462584626%_))) + (let ((_%tl7841078618%_ (let () (declare (not safe)) - (##cdr _%e7753377736%_))) - (_%hd7753477740%_ + (##cdr _%e7840878611%_))) + (_%hd7840978615%_ (let () (declare (not safe)) - (##car _%e7753377736%_)))) - (if (gx#stx-pair? _%tl7753577743%_) - (let ((_%e7753677746%_ - (gx#syntax-e _%tl7753577743%_))) - (let ((_%tl7753877753%_ + (##car _%e7840878611%_)))) + (if (gx#stx-pair? _%tl7841078618%_) + (let ((_%e7841178621%_ + (gx#syntax-e _%tl7841078618%_))) + (let ((_%tl7841378628%_ (let () (declare (not safe)) - (##cdr _%e7753677746%_))) - (_%hd7753777750%_ + (##cdr _%e7841178621%_))) + (_%hd7841278625%_ (let () (declare (not safe)) - (##car _%e7753677746%_)))) - (if (gx#stx-null? _%tl7753877753%_) - (_%__kont8365983660%_ _%hd7753777750%_) - (if (gx#stx-pair? _%tl7753877753%_) - (let ((_%e7754777702%_ - (gx#syntax-e _%tl7753877753%_))) - (let ((_%tl7754977709%_ + (##car _%e7841178621%_)))) + (if (gx#stx-null? _%tl7841378628%_) + (_%__kont8462884629%_ _%hd7841278625%_) + (if (gx#stx-pair? _%tl7841378628%_) + (let ((_%e7842278577%_ + (gx#syntax-e _%tl7841378628%_))) + (let ((_%tl7842478584%_ (let () (declare (not safe)) - (##cdr _%e7754777702%_))) - (_%hd7754877706%_ + (##cdr _%e7842278577%_))) + (_%hd7842378581%_ (let () (declare (not safe)) - (##car _%e7754777702%_)))) - (if (gx#stx-null? _%tl7754977709%_) - (_%__kont8366183662%_ - _%hd7754877706%_ - _%hd7753777750%_) + (##car _%e7842278577%_)))) + (if (gx#stx-null? _%tl7842478584%_) + (_%__kont8463084631%_ + _%hd7842378581%_ + _%hd7841278625%_) (if (gx#stx-pair/null? - _%tl7754977709%_) - (let ((_%__splice8366583666%_ + _%tl7842478584%_) + (let ((_%__splice8463484635%_ (gx#syntax-split-splice - _%tl7754977709%_ + _%tl7842478584%_ '0))) - (let ((_%tl7756477616%_ + (let ((_%tl7843978491%_ (let () (declare (not safe)) (##vector-ref - _%__splice8366583666%_ + _%__splice8463484635%_ '1))) - (_%target7756277613%_ + (_%target7843778488%_ (let () (declare (not safe)) (##vector-ref - _%__splice8366583666%_ + _%__splice8463484635%_ '0)))) (if (gx#stx-null? - _%tl7756477616%_) - (_%__match8372783728%_ - _%e7753377736%_ - _%hd7753477740%_ - _%tl7753577743%_ - _%e7753677746%_ - _%hd7753777750%_ - _%tl7753877753%_ - _%e7754777702%_ - _%hd7754877706%_ - _%tl7754977709%_ - _%__splice8366583666%_ - _%target7756277613%_ - _%tl7756477616%_) + _%tl7843978491%_) + (_%__match8469684697%_ + _%e7840878611%_ + _%hd7840978615%_ + _%tl7841078618%_ + _%e7841178621%_ + _%hd7841278625%_ + _%tl7841378628%_ + _%e7842278577%_ + _%hd7842378581%_ + _%tl7842478584%_ + _%__splice8463484635%_ + _%target7843778488%_ + _%tl7843978491%_) (let () (declare (not safe)) - (_%g7753077576%_))))) + (_%g7840578451%_))))) (let () (declare (not safe)) - (_%g7753077576%_)))))) + (_%g7840578451%_)))))) (let () (declare (not safe)) - (_%g7753077576%_)))))) - (let () (declare (not safe)) (_%g7753077576%_))))) - (let () (declare (not safe)) (_%g7753077576%_)))))))) + (_%g7840578451%_)))))) + (let () (declare (not safe)) (_%g7840578451%_))))) + (let () (declare (not safe)) (_%g7840578451%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do-while/c| - (lambda (_%$stx77774%_) - (let* ((_%g7777877801%_ - (lambda (_%g7777977797%_) + (lambda (_%$stx78649%_) + (let* ((_%g7865378676%_ + (lambda (_%g7865478672%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7777977797%_))) - (_%g7777777872%_ - (lambda (_%g7777977805%_) - (if (gx#stx-pair? _%g7777977805%_) - (let ((_%e7778477808%_ (gx#syntax-e _%g7777977805%_))) - (let ((_%hd7778577812%_ + _%g7865478672%_))) + (_%g7865278747%_ + (lambda (_%g7865478680%_) + (if (gx#stx-pair? _%g7865478680%_) + (let ((_%e7865978683%_ (gx#syntax-e _%g7865478680%_))) + (let ((_%hd7866078687%_ (let () (declare (not safe)) - (##car _%e7778477808%_))) - (_%tl7778677815%_ + (##car _%e7865978683%_))) + (_%tl7866178690%_ (let () (declare (not safe)) - (##cdr _%e7778477808%_)))) - (if (gx#stx-pair? _%tl7778677815%_) - (let ((_%e7778777818%_ - (gx#syntax-e _%tl7778677815%_))) - (let ((_%hd7778877822%_ + (##cdr _%e7865978683%_)))) + (if (gx#stx-pair? _%tl7866178690%_) + (let ((_%e7866278693%_ + (gx#syntax-e _%tl7866178690%_))) + (let ((_%hd7866378697%_ (let () (declare (not safe)) - (##car _%e7778777818%_))) - (_%tl7778977825%_ + (##car _%e7866278693%_))) + (_%tl7866478700%_ (let () (declare (not safe)) - (##cdr _%e7778777818%_)))) - (if (gx#stx-pair? _%tl7778977825%_) - (let ((_%e7779077828%_ - (gx#syntax-e _%tl7778977825%_))) - (let ((_%hd7779177832%_ + (##cdr _%e7866278693%_)))) + (if (gx#stx-pair? _%tl7866478700%_) + (let ((_%e7866578703%_ + (gx#syntax-e _%tl7866478700%_))) + (let ((_%hd7866678707%_ (let () (declare (not safe)) - (##car _%e7779077828%_))) - (_%tl7779277835%_ + (##car _%e7866578703%_))) + (_%tl7866778710%_ (let () (declare (not safe)) - (##cdr _%e7779077828%_)))) - (if (gx#stx-pair? _%hd7779177832%_) - (let ((_%e7779377838%_ + (##cdr _%e7866578703%_)))) + (if (gx#stx-pair? _%hd7866678707%_) + (let ((_%e7866878713%_ (gx#syntax-e - _%hd7779177832%_))) - (let ((_%hd7779477842%_ + _%hd7866678707%_))) + (let ((_%hd7866978717%_ (let () (declare (not safe)) - (##car _%e7779377838%_))) - (_%tl7779577845%_ + (##car _%e7866878713%_))) + (_%tl7867078720%_ (let () (declare (not safe)) - (##cdr _%e7779377838%_)))) - ((lambda (_%L77848%_ - _%L77850%_ - _%L77851%_ - _%L77852%_) + (##cdr _%e7866878713%_)))) + ((lambda (_%L78723%_ + _%L78725%_ + _%L78726%_ + _%L78727%_) (cons (gx#datum->syntax '#f 'do/c) - (cons _%L77852%_ + (cons _%L78727%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (cons (gx#datum->syntax '#f 'not) - (cons _%L77851%_ '())) - _%L77850%_) - _%L77848%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl7779277835%_ - _%tl7779577845%_ - _%hd7779477842%_ - _%hd7778877822%_))) - (_%g7777877801%_ - _%g7777977805%_)))) - (_%g7777877801%_ _%g7777977805%_)))) - (_%g7777877801%_ _%g7777977805%_)))) - (_%g7777877801%_ _%g7777977805%_))))) - (_%g7777777872%_ _%$stx77774%_)))) + (cons _%L78726%_ '())) + _%L78725%_) + _%L78723%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%tl7866778710%_ + _%tl7867078720%_ + _%hd7866978717%_ + _%hd7866378697%_))) + (_%g7865378676%_ + _%g7865478680%_)))) + (_%g7865378676%_ _%g7865478680%_)))) + (_%g7865378676%_ _%g7865478680%_)))) + (_%g7865378676%_ _%g7865478680%_))))) + (_%g7865278747%_ _%$stx78649%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmutable*| - (lambda (_%stx77876%_) - (let* ((_%__stx8373083731%_ _%stx77876%_) - (_%g7788077914%_ + (lambda (_%stx78751%_) + (let* ((_%__stx8469984700%_ _%stx78751%_) + (_%g7875578789%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8373083731%_)))) - (let ((_%__kont8373383734%_ - (lambda (_%L78016%_ _%L78018%_ _%L78019%_ _%L78020%_) - (let* ((_%g7804778062%_ - (lambda (_%g7804878058%_) + _%__stx8469984700%_)))) + (let ((_%__kont8470284703%_ + (lambda (_%L78891%_ _%L78893%_ _%L78894%_ _%L78895%_) + (let* ((_%g7892278937%_ + (lambda (_%g7892378933%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7804878058%_))) - (_%g7804678107%_ - (lambda (_%g7804878066%_) - (if (gx#stx-pair? _%g7804878066%_) - (let ((_%e7805178069%_ - (gx#syntax-e _%g7804878066%_))) - (let ((_%hd7805278073%_ + _%g7892378933%_))) + (_%g7892178982%_ + (lambda (_%g7892378941%_) + (if (gx#stx-pair? _%g7892378941%_) + (let ((_%e7892678944%_ + (gx#syntax-e _%g7892378941%_))) + (let ((_%hd7892778948%_ (let () (declare (not safe)) - (##car _%e7805178069%_))) - (_%tl7805378076%_ + (##car _%e7892678944%_))) + (_%tl7892878951%_ (let () (declare (not safe)) - (##cdr _%e7805178069%_)))) - (if (gx#stx-pair? _%tl7805378076%_) - (let ((_%e7805478079%_ + (##cdr _%e7892678944%_)))) + (if (gx#stx-pair? _%tl7892878951%_) + (let ((_%e7892978954%_ (gx#syntax-e - _%tl7805378076%_))) - (let ((_%hd7805578083%_ + _%tl7892878951%_))) + (let ((_%hd7893078958%_ (let () (declare (not safe)) - (##car _%e7805478079%_))) - (_%tl7805678086%_ + (##car _%e7892978954%_))) + (_%tl7893178961%_ (let () (declare (not safe)) - (##cdr _%e7805478079%_)))) + (##cdr _%e7892978954%_)))) (if (gx#stx-null? - _%tl7805678086%_) - ((lambda (_%L78089%_ - _%L78091%_) + _%tl7893178961%_) + ((lambda (_%L78964%_ + _%L78966%_) (cons (gx#datum->syntax '#f 'begin) @@ -13862,198 +14323,198 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons _%L78091%_ (cons _%L78019%_ '()))) + (cons _%L78966%_ (cons _%L78894%_ '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L78020%_ '()) - (cons _%L78091%_ '()))) + (cons (cons _%L78895%_ '()) + (cons _%L78966%_ '()))) (cons (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L78089%_ + (cons (cons _%L78964%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'new-value) - (cons _%L78018%_ _%L78016%_)) + (cons _%L78893%_ _%L78891%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%L78091%_ + (cons _%L78966%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'new-value) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7805578083%_ - _%hd7805278073%_) - (_%g7804778062%_ - _%g7804878066%_)))) - (_%g7804778062%_ _%g7804878066%_)))) - (_%g7804778062%_ _%g7804878066%_))))) - (_%g7804678107%_ - (list (gx#stx-identifier _%L78020%_ '"__" _%L78020%_) + _%hd7893078958%_ + _%hd7892778948%_) + (_%g7892278937%_ + _%g7892378941%_)))) + (_%g7892278937%_ _%g7892378941%_)))) + (_%g7892278937%_ _%g7892378941%_))))) + (_%g7892178982%_ + (list (gx#stx-identifier _%L78895%_ '"__" _%L78895%_) (gx#stx-identifier - _%L78020%_ - _%L78020%_ + _%L78895%_ + _%L78895%_ '"-set!")))))) - (_%__kont8373583736%_ - (lambda (_%L77951%_ _%L77953%_) + (_%__kont8470484705%_ + (lambda (_%L78826%_ _%L78828%_) (cons (gx#datum->syntax '#f 'defmutable*) - (cons _%L77953%_ - (cons _%L77951%_ + (cons _%L78828%_ + (cons _%L78826%_ (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f ':t) '())))))))) - (let ((_%__match8376183762%_ - (lambda (_%e7788677976%_ - _%hd7788777980%_ - _%tl7788877983%_ - _%e7788977986%_ - _%hd7789077990%_ - _%tl7789177993%_ - _%e7789277996%_ - _%hd7789378000%_ - _%tl7789478003%_ - _%e7789578006%_ - _%hd7789678010%_ - _%tl7789778013%_) - (let ((_%L78016%_ _%tl7789778013%_) - (_%L78018%_ _%hd7789678010%_) - (_%L78019%_ _%hd7789378000%_) - (_%L78020%_ _%hd7789077990%_)) - (if (and (gx#identifier? _%L78020%_) - (gx#identifier? _%L78018%_) + (let ((_%__match8473084731%_ + (lambda (_%e7876178851%_ + _%hd7876278855%_ + _%tl7876378858%_ + _%e7876478861%_ + _%hd7876578865%_ + _%tl7876678868%_ + _%e7876778871%_ + _%hd7876878875%_ + _%tl7876978878%_ + _%e7877078881%_ + _%hd7877178885%_ + _%tl7877278888%_) + (let ((_%L78891%_ _%tl7877278888%_) + (_%L78893%_ _%hd7877178885%_) + (_%L78894%_ _%hd7876878875%_) + (_%L78895%_ _%hd7876578865%_)) + (if (and (gx#identifier? _%L78895%_) + (gx#identifier? _%L78893%_) (or (gx#free-identifier=? - _%L78018%_ + _%L78893%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L78018%_ + _%L78893%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L78018%_ + _%L78893%_ (gx#datum->syntax '#f ':~)))) - (_%__kont8373383734%_ - _%L78016%_ - _%L78018%_ - _%L78019%_ - _%L78020%_) - (let () (declare (not safe)) (_%g7788077914%_))))))) - (if (gx#stx-pair? _%__stx8373083731%_) - (let ((_%e7788677976%_ (gx#syntax-e _%__stx8373083731%_))) - (let ((_%tl7788877983%_ + (_%__kont8470284703%_ + _%L78891%_ + _%L78893%_ + _%L78894%_ + _%L78895%_) + (let () (declare (not safe)) (_%g7875578789%_))))))) + (if (gx#stx-pair? _%__stx8469984700%_) + (let ((_%e7876178851%_ (gx#syntax-e _%__stx8469984700%_))) + (let ((_%tl7876378858%_ (let () (declare (not safe)) - (##cdr _%e7788677976%_))) - (_%hd7788777980%_ + (##cdr _%e7876178851%_))) + (_%hd7876278855%_ (let () (declare (not safe)) - (##car _%e7788677976%_)))) - (if (gx#stx-pair? _%tl7788877983%_) - (let ((_%e7788977986%_ - (gx#syntax-e _%tl7788877983%_))) - (let ((_%tl7789177993%_ + (##car _%e7876178851%_)))) + (if (gx#stx-pair? _%tl7876378858%_) + (let ((_%e7876478861%_ + (gx#syntax-e _%tl7876378858%_))) + (let ((_%tl7876678868%_ (let () (declare (not safe)) - (##cdr _%e7788977986%_))) - (_%hd7789077990%_ + (##cdr _%e7876478861%_))) + (_%hd7876578865%_ (let () (declare (not safe)) - (##car _%e7788977986%_)))) - (if (gx#stx-pair? _%tl7789177993%_) - (let ((_%e7789277996%_ - (gx#syntax-e _%tl7789177993%_))) - (let ((_%tl7789478003%_ + (##car _%e7876478861%_)))) + (if (gx#stx-pair? _%tl7876678868%_) + (let ((_%e7876778871%_ + (gx#syntax-e _%tl7876678868%_))) + (let ((_%tl7876978878%_ (let () (declare (not safe)) - (##cdr _%e7789277996%_))) - (_%hd7789378000%_ + (##cdr _%e7876778871%_))) + (_%hd7876878875%_ (let () (declare (not safe)) - (##car _%e7789277996%_)))) - (if (gx#stx-pair? _%tl7789478003%_) - (let ((_%e7789578006%_ + (##car _%e7876778871%_)))) + (if (gx#stx-pair? _%tl7876978878%_) + (let ((_%e7877078881%_ (gx#syntax-e - _%tl7789478003%_))) - (let ((_%tl7789778013%_ + _%tl7876978878%_))) + (let ((_%tl7877278888%_ (let () (declare (not safe)) - (##cdr _%e7789578006%_))) - (_%hd7789678010%_ + (##cdr _%e7877078881%_))) + (_%hd7877178885%_ (let () (declare (not safe)) - (##car _%e7789578006%_)))) - (_%__match8376183762%_ - _%e7788677976%_ - _%hd7788777980%_ - _%tl7788877983%_ - _%e7788977986%_ - _%hd7789077990%_ - _%tl7789177993%_ - _%e7789277996%_ - _%hd7789378000%_ - _%tl7789478003%_ - _%e7789578006%_ - _%hd7789678010%_ - _%tl7789778013%_))) - (if (gx#stx-null? _%tl7789478003%_) - (_%__kont8373583736%_ - _%hd7789378000%_ - _%hd7789077990%_) + (##car _%e7877078881%_)))) + (_%__match8473084731%_ + _%e7876178851%_ + _%hd7876278855%_ + _%tl7876378858%_ + _%e7876478861%_ + _%hd7876578865%_ + _%tl7876678868%_ + _%e7876778871%_ + _%hd7876878875%_ + _%tl7876978878%_ + _%e7877078881%_ + _%hd7877178885%_ + _%tl7877278888%_))) + (if (gx#stx-null? _%tl7876978878%_) + (_%__kont8470484705%_ + _%hd7876878875%_ + _%hd7876578865%_) (let () (declare (not safe)) - (_%g7788077914%_)))))) + (_%g7875578789%_)))))) (let () (declare (not safe)) - (_%g7788077914%_))))) - (let () (declare (not safe)) (_%g7788077914%_))))) - (let () (declare (not safe)) (_%g7788077914%_)))))))) + (_%g7875578789%_))))) + (let () (declare (not safe)) (_%g7875578789%_))))) + (let () (declare (not safe)) (_%g7875578789%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmutable| - (lambda (_%stx78115%_) - (let* ((_%__stx8378483785%_ _%stx78115%_) - (_%g7811978153%_ + (lambda (_%stx78990%_) + (let* ((_%__stx8475384754%_ _%stx78990%_) + (_%g7899479028%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8378483785%_)))) - (let ((_%__kont8378783788%_ - (lambda (_%L78255%_ _%L78257%_ _%L78258%_ _%L78259%_) - (let* ((_%g7828678301%_ - (lambda (_%g7828778297%_) + _%__stx8475384754%_)))) + (let ((_%__kont8475684757%_ + (lambda (_%L79130%_ _%L79132%_ _%L79133%_ _%L79134%_) + (let* ((_%g7916179176%_ + (lambda (_%g7916279172%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7828778297%_))) - (_%g7828578346%_ - (lambda (_%g7828778305%_) - (if (gx#stx-pair? _%g7828778305%_) - (let ((_%e7829078308%_ - (gx#syntax-e _%g7828778305%_))) - (let ((_%hd7829178312%_ + _%g7916279172%_))) + (_%g7916079221%_ + (lambda (_%g7916279180%_) + (if (gx#stx-pair? _%g7916279180%_) + (let ((_%e7916579183%_ + (gx#syntax-e _%g7916279180%_))) + (let ((_%hd7916679187%_ (let () (declare (not safe)) - (##car _%e7829078308%_))) - (_%tl7829278315%_ + (##car _%e7916579183%_))) + (_%tl7916779190%_ (let () (declare (not safe)) - (##cdr _%e7829078308%_)))) - (if (gx#stx-pair? _%tl7829278315%_) - (let ((_%e7829378318%_ + (##cdr _%e7916579183%_)))) + (if (gx#stx-pair? _%tl7916779190%_) + (let ((_%e7916879193%_ (gx#syntax-e - _%tl7829278315%_))) - (let ((_%hd7829478322%_ + _%tl7916779190%_))) + (let ((_%hd7916979197%_ (let () (declare (not safe)) - (##car _%e7829378318%_))) - (_%tl7829578325%_ + (##car _%e7916879193%_))) + (_%tl7917079200%_ (let () (declare (not safe)) - (##cdr _%e7829378318%_)))) + (##cdr _%e7916879193%_)))) (if (gx#stx-null? - _%tl7829578325%_) - ((lambda (_%L78328%_ - _%L78330%_) + _%tl7917079200%_) + ((lambda (_%L79203%_ + _%L79205%_) (cons (gx#datum->syntax '#f 'begin) @@ -14061,21 +14522,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons _%L78330%_ (cons _%L78258%_ '()))) + (cons _%L79205%_ (cons _%L79133%_ '()))) (cons (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L78328%_ + (cons (cons _%L79203%_ (cons (cons (gx#datum->syntax '#f 'new-value) - (cons _%L78257%_ + (cons _%L79132%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L78255%_)) + _%L79130%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%L78330%_ + (cons _%L79205%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -14084,7 +14545,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L78259%_ + (cons _%L79134%_ (cons (cons (gx#datum->syntax '#f 'identifier-rules) @@ -14102,7 +14563,7 @@ '#f 'new-value) '()))) - (cons (cons _%L78328%_ + (cons (cons _%L79203%_ (cons (gx#datum->syntax '#f 'new-value) @@ -14118,7 +14579,7 @@ '#f 'new-value) '()))) - (cons (cons _%L78328%_ + (cons (cons _%L79203%_ (cons (gx#datum->syntax '#f 'new-value) @@ -14136,7 +14597,7 @@ 'syntax) (cons (gx#datum->syntax '#f 'the-var) '())) '())) - (cons _%L78330%_ '()))) + (cons _%L79205%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (cons (gx#datum->syntax '#f @@ -14146,7 +14607,7 @@ '#f 'arg) (cons (gx#datum->syntax '#f '...) '()))) - (cons (cons _%L78330%_ + (cons (cons _%L79205%_ (cons (gx#datum->syntax '#f 'arg) (cons (gx#datum->syntax '#f '...) '()))) '())) @@ -14156,126 +14617,126 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7829478322%_ - _%hd7829178312%_) - (_%g7828678301%_ - _%g7828778305%_)))) - (_%g7828678301%_ _%g7828778305%_)))) - (_%g7828678301%_ _%g7828778305%_))))) - (_%g7828578346%_ - (list (gx#stx-identifier _%L78259%_ '"__" _%L78259%_) + _%hd7916979197%_ + _%hd7916679187%_) + (_%g7916179176%_ + _%g7916279180%_)))) + (_%g7916179176%_ _%g7916279180%_)))) + (_%g7916179176%_ _%g7916279180%_))))) + (_%g7916079221%_ + (list (gx#stx-identifier _%L79134%_ '"__" _%L79134%_) (gx#stx-identifier - _%L78259%_ - _%L78259%_ + _%L79134%_ + _%L79134%_ '"-set!")))))) - (_%__kont8378983790%_ - (lambda (_%L78190%_ _%L78192%_) + (_%__kont8475884759%_ + (lambda (_%L79065%_ _%L79067%_) (cons (gx#datum->syntax '#f 'defmutable) - (cons _%L78192%_ - (cons _%L78190%_ + (cons _%L79067%_ + (cons _%L79065%_ (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f ':t) '())))))))) - (let ((_%__match8381583816%_ - (lambda (_%e7812578215%_ - _%hd7812678219%_ - _%tl7812778222%_ - _%e7812878225%_ - _%hd7812978229%_ - _%tl7813078232%_ - _%e7813178235%_ - _%hd7813278239%_ - _%tl7813378242%_ - _%e7813478245%_ - _%hd7813578249%_ - _%tl7813678252%_) - (let ((_%L78255%_ _%tl7813678252%_) - (_%L78257%_ _%hd7813578249%_) - (_%L78258%_ _%hd7813278239%_) - (_%L78259%_ _%hd7812978229%_)) - (if (and (gx#identifier? _%L78259%_) - (gx#identifier? _%L78257%_) + (let ((_%__match8478484785%_ + (lambda (_%e7900079090%_ + _%hd7900179094%_ + _%tl7900279097%_ + _%e7900379100%_ + _%hd7900479104%_ + _%tl7900579107%_ + _%e7900679110%_ + _%hd7900779114%_ + _%tl7900879117%_ + _%e7900979120%_ + _%hd7901079124%_ + _%tl7901179127%_) + (let ((_%L79130%_ _%tl7901179127%_) + (_%L79132%_ _%hd7901079124%_) + (_%L79133%_ _%hd7900779114%_) + (_%L79134%_ _%hd7900479104%_)) + (if (and (gx#identifier? _%L79134%_) + (gx#identifier? _%L79132%_) (or (gx#free-identifier=? - _%L78257%_ + _%L79132%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L78257%_ + _%L79132%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L78257%_ + _%L79132%_ (gx#datum->syntax '#f ':~)))) - (_%__kont8378783788%_ - _%L78255%_ - _%L78257%_ - _%L78258%_ - _%L78259%_) - (let () (declare (not safe)) (_%g7811978153%_))))))) - (if (gx#stx-pair? _%__stx8378483785%_) - (let ((_%e7812578215%_ (gx#syntax-e _%__stx8378483785%_))) - (let ((_%tl7812778222%_ + (_%__kont8475684757%_ + _%L79130%_ + _%L79132%_ + _%L79133%_ + _%L79134%_) + (let () (declare (not safe)) (_%g7899479028%_))))))) + (if (gx#stx-pair? _%__stx8475384754%_) + (let ((_%e7900079090%_ (gx#syntax-e _%__stx8475384754%_))) + (let ((_%tl7900279097%_ (let () (declare (not safe)) - (##cdr _%e7812578215%_))) - (_%hd7812678219%_ + (##cdr _%e7900079090%_))) + (_%hd7900179094%_ (let () (declare (not safe)) - (##car _%e7812578215%_)))) - (if (gx#stx-pair? _%tl7812778222%_) - (let ((_%e7812878225%_ - (gx#syntax-e _%tl7812778222%_))) - (let ((_%tl7813078232%_ + (##car _%e7900079090%_)))) + (if (gx#stx-pair? _%tl7900279097%_) + (let ((_%e7900379100%_ + (gx#syntax-e _%tl7900279097%_))) + (let ((_%tl7900579107%_ (let () (declare (not safe)) - (##cdr _%e7812878225%_))) - (_%hd7812978229%_ + (##cdr _%e7900379100%_))) + (_%hd7900479104%_ (let () (declare (not safe)) - (##car _%e7812878225%_)))) - (if (gx#stx-pair? _%tl7813078232%_) - (let ((_%e7813178235%_ - (gx#syntax-e _%tl7813078232%_))) - (let ((_%tl7813378242%_ + (##car _%e7900379100%_)))) + (if (gx#stx-pair? _%tl7900579107%_) + (let ((_%e7900679110%_ + (gx#syntax-e _%tl7900579107%_))) + (let ((_%tl7900879117%_ (let () (declare (not safe)) - (##cdr _%e7813178235%_))) - (_%hd7813278239%_ + (##cdr _%e7900679110%_))) + (_%hd7900779114%_ (let () (declare (not safe)) - (##car _%e7813178235%_)))) - (if (gx#stx-pair? _%tl7813378242%_) - (let ((_%e7813478245%_ + (##car _%e7900679110%_)))) + (if (gx#stx-pair? _%tl7900879117%_) + (let ((_%e7900979120%_ (gx#syntax-e - _%tl7813378242%_))) - (let ((_%tl7813678252%_ + _%tl7900879117%_))) + (let ((_%tl7901179127%_ (let () (declare (not safe)) - (##cdr _%e7813478245%_))) - (_%hd7813578249%_ + (##cdr _%e7900979120%_))) + (_%hd7901079124%_ (let () (declare (not safe)) - (##car _%e7813478245%_)))) - (_%__match8381583816%_ - _%e7812578215%_ - _%hd7812678219%_ - _%tl7812778222%_ - _%e7812878225%_ - _%hd7812978229%_ - _%tl7813078232%_ - _%e7813178235%_ - _%hd7813278239%_ - _%tl7813378242%_ - _%e7813478245%_ - _%hd7813578249%_ - _%tl7813678252%_))) - (if (gx#stx-null? _%tl7813378242%_) - (_%__kont8378983790%_ - _%hd7813278239%_ - _%hd7812978229%_) + (##car _%e7900979120%_)))) + (_%__match8478484785%_ + _%e7900079090%_ + _%hd7900179094%_ + _%tl7900279097%_ + _%e7900379100%_ + _%hd7900479104%_ + _%tl7900579107%_ + _%e7900679110%_ + _%hd7900779114%_ + _%tl7900879117%_ + _%e7900979120%_ + _%hd7901079124%_ + _%tl7901179127%_))) + (if (gx#stx-null? _%tl7900879117%_) + (_%__kont8475884759%_ + _%hd7900779114%_ + _%hd7900479104%_) (let () (declare (not safe)) - (_%g7811978153%_)))))) + (_%g7899479028%_)))))) (let () (declare (not safe)) - (_%g7811978153%_))))) - (let () (declare (not safe)) (_%g7811978153%_))))) - (let () (declare (not safe)) (_%g7811978153%_)))))))))) + (_%g7899479028%_))))) + (let () (declare (not safe)) (_%g7899479028%_))))) + (let () (declare (not safe)) (_%g7899479028%_)))))))))) diff --git a/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm b/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm index 8ea07059e..9646b9cb1 100644 --- a/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm +++ b/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm @@ -1,145 +1,143 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/contract~ClassMeta::timestamp 1713631261) + (define gerbil/core/contract~ClassMeta::timestamp 1734357957) (define gerbil/core/contract~ClassMeta#!class-precedence-list - (lambda (_%klass52327%_) - (let ((_%$e52329%_ - (let ((__obj83870 _%klass52327%_)) + (lambda (_%klass52390%_) + (let ((_%$e52392%_ + (let ((__obj84838 _%klass52390%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83870 + __obj84838 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83870 '5 '#f '#f)) + (##unchecked-structure-ref __obj84838 '5 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83870 + __obj84838 'precedence-list))))) - (if _%$e52329%_ - _%$e52329%_ - (let ((_g83917_ + (if _%$e52392%_ + _%$e52392%_ + (let ((_g84894_ (c4-linearize '() - (let ((__obj83871 _%klass52327%_)) + (let ((__obj84839 _%klass52390%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83871 + __obj84839 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83871 '3 '#f '#f)) + (##unchecked-structure-ref __obj84839 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83871 + __obj84839 'super))) 'get-precedence-list: - (lambda (_%klass-id52333%_) - (cons _%klass-id52333%_ + (lambda (_%klass-id52396%_) + (cons _%klass-id52396%_ (gerbil/core/contract~ClassMeta#!class-precedence-list - (gx#syntax-local-value _%klass-id52333%_)))) + (gx#syntax-local-value _%klass-id52396%_)))) 'struct: - (lambda (_%klass-id52335%_) - (let ((__obj83872 - (gx#syntax-local-value _%klass-id52335%_))) + (lambda (_%klass-id52398%_) + (let ((__obj84840 + (gx#syntax-local-value _%klass-id52398%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83872 + __obj84840 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83872 + __obj84840 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83872 + __obj84840 'struct?)))) 'eq: - gx#free-identifier=? - 'get-name: - gx#stx-e))) + gx#free-identifier=?))) (begin - (let ((_g83918_ + (let ((_g84895_ (let () (declare (not safe)) - (if (##values? _g83917_) - (##vector-length _g83917_) + (if (##values? _g84894_) + (##values-length _g84894_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g83918_ 2))) - (error "Context expects 2 values" _g83918_))) - (let ((_%precedence-list52337%_ - (let () (declare (not safe)) (##vector-ref _g83917_ 0))) - (_%base-struct52338%_ + (if (not (let () (declare (not safe)) (##fx= _g84895_ 2))) + (error "Context expects 2 values" _g84895_))) + (let ((_%precedence-list52400%_ + (let () (declare (not safe)) (##values-ref _g84894_ 0))) + (_%base-struct52401%_ (let () (declare (not safe)) - (##vector-ref _g83917_ 1)))) - (let ((_%precedence-list52382%_ - (if (let ((__tmp83919 - (let ((__obj83873 _%klass52327%_)) + (##values-ref _g84894_ 1)))) + (let ((_%precedence-list52445%_ + (if (let ((__tmp84896 + (let ((__obj84841 _%klass52390%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83873 + __obj84841 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83873 + __obj84841 '1 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83873 + __obj84841 'id))))) (declare (not safe)) - (##memq __tmp83919 '(t object class))) - _%precedence-list52337%_ + (##memq __tmp84896 '(t object class))) + _%precedence-list52400%_ (if (member ':object - _%precedence-list52337%_ + _%precedence-list52400%_ gx#free-identifier=?) - _%precedence-list52337%_ - (if (let ((__obj83874 _%klass52327%_)) + _%precedence-list52400%_ + (if (let ((__obj84842 _%klass52390%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83874 + __obj84842 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83874 + __obj84842 '9 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83874 + __obj84842 'system?))) (if (member ':t - _%precedence-list52337%_ + _%precedence-list52400%_ gx#free-identifier=?) - _%precedence-list52337%_ - (let ((__tmp83920 + _%precedence-list52400%_ + (let ((__tmp84897 (cons (gx#core-quote-syntax ':t) '()))) (declare (not safe)) (##append - _%precedence-list52337%_ - __tmp83920))) - (let _%loop52344%_ ((_%tail52346%_ - _%precedence-list52337%_) - (_%head52347%_ '())) - (let* ((_%tail5234852356%_ - _%tail52346%_) - (_%else5235052364%_ + _%precedence-list52400%_ + __tmp84897))) + (let _%loop52407%_ ((_%tail52409%_ + _%precedence-list52400%_) + (_%head52410%_ '())) + (let* ((_%tail5241152419%_ + _%tail52409%_) + (_%else5241352427%_ (lambda () (foldl cons (cons (gx#core-quote-syntax @@ -148,59 +146,59 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ':t) '())) - _%head52347%_))) + _%head52410%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K5235252370%_ - (lambda (_%rest52367%_ - _%hd52368%_) + (_%K5241552433%_ + (lambda (_%rest52430%_ + _%hd52431%_) (if (gx#free-identifier=? - _%hd52368%_ + _%hd52431%_ ':t) (foldl cons (cons (gx#core-quote-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ':object) - _%tail52346%_) - _%head52347%_) + _%tail52409%_) + _%head52410%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop52344%_ - _%rest52367%_ - (cons _%hd52368%_ - _%head52347%_)))))) - (if (pair? _%tail5234852356%_) - (let ((_%hd5235352373%_ + (_%loop52407%_ + _%rest52430%_ + (cons _%hd52431%_ + _%head52410%_)))))) + (if (pair? _%tail5241152419%_) + (let ((_%hd5241652436%_ (let () (declare (not safe)) - (##car _%tail5234852356%_))) - (_%tl5235452375%_ + (##car _%tail5241152419%_))) + (_%tl5241752438%_ (let () (declare (not safe)) - (##cdr _%tail5234852356%_)))) - (let* ((_%hd52378%_ - _%hd5235352373%_) - (_%rest52380%_ - _%tl5235452375%_)) - (_%K5235252370%_ - _%rest52380%_ - _%hd52378%_))) - (_%else5235052364%_))))))))) - (let ((__obj83875 _%klass52327%_)) + (##cdr _%tail5241152419%_)))) + (let* ((_%hd52441%_ + _%hd5241652436%_) + (_%rest52443%_ + _%tl5241752438%_)) + (_%K5241552433%_ + _%rest52443%_ + _%hd52441%_))) + (_%else5241352427%_))))))))) + (let ((__obj84843 _%klass52390%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83875 + __obj84843 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj83875 - _%precedence-list52382%_ + __obj84843 + _%precedence-list52445%_ '5 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj83875 + __obj84843 'precedence-list - _%precedence-list52382%_))) - _%precedence-list52382%_))))))))) + _%precedence-list52445%_))) + _%precedence-list52445%_))))))))) diff --git a/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm b/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm index 873f4fd06..6e936a45c 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 1713631261) + (define gerbil/core/contract~InterfaceInfo::timestamp 1734357957) (begin - (define gerbil/core/contract~InterfaceInfo#_g83913_ + (define gerbil/core/contract~InterfaceInfo#_g84888_ (##structure gx#syntax-quote::t 'cast #f (gx#current-expander-context) '())) - (define gerbil/core/contract~InterfaceInfo#_g83914_ + (define gerbil/core/contract~InterfaceInfo#_g84889_ (##structure gx#syntax-quote::t 'immediate-instance-of? @@ -22,10 +22,12 @@ 'gerbil/core/contract~InterfaceInfo#interface-info::t 'interface-info (list) - '(name interface-mixin + '(name namespace + interface-mixin interface-methods - instance-type + interface-precedence-list interface-descriptor + instance-type instance-constructor instance-try-constructor instance-predicate @@ -38,14 +40,18 @@ (make-class-predicate gerbil/core/contract~InterfaceInfo#interface-info::t)) (define gerbil/core/contract~InterfaceInfo#make-interface-info - (lambda _%$args44989%_ + (lambda _%$args45051%_ (apply make-instance gerbil/core/contract~InterfaceInfo#interface-info::t - _%$args44989%_))) + _%$args45051%_))) (define gerbil/core/contract~InterfaceInfo#interface-info-name (make-class-slot-accessor gerbil/core/contract~InterfaceInfo#interface-info::t 'name)) + (define gerbil/core/contract~InterfaceInfo#interface-info-namespace + (make-class-slot-accessor + gerbil/core/contract~InterfaceInfo#interface-info::t + 'namespace)) (define gerbil/core/contract~InterfaceInfo#interface-info-interface-mixin (make-class-slot-accessor gerbil/core/contract~InterfaceInfo#interface-info::t @@ -54,14 +60,18 @@ (make-class-slot-accessor gerbil/core/contract~InterfaceInfo#interface-info::t 'interface-methods)) - (define gerbil/core/contract~InterfaceInfo#interface-info-instance-type + (define gerbil/core/contract~InterfaceInfo#interface-info-interface-precedence-list (make-class-slot-accessor gerbil/core/contract~InterfaceInfo#interface-info::t - 'instance-type)) + 'interface-precedence-list)) (define gerbil/core/contract~InterfaceInfo#interface-info-interface-descriptor (make-class-slot-accessor gerbil/core/contract~InterfaceInfo#interface-info::t 'interface-descriptor)) + (define gerbil/core/contract~InterfaceInfo#interface-info-instance-type + (make-class-slot-accessor + gerbil/core/contract~InterfaceInfo#interface-info::t + 'instance-type)) (define gerbil/core/contract~InterfaceInfo#interface-info-instance-constructor (make-class-slot-accessor gerbil/core/contract~InterfaceInfo#interface-info::t @@ -90,6 +100,10 @@ (make-class-slot-mutator gerbil/core/contract~InterfaceInfo#interface-info::t 'name)) + (define gerbil/core/contract~InterfaceInfo#interface-info-namespace-set! + (make-class-slot-mutator + gerbil/core/contract~InterfaceInfo#interface-info::t + 'namespace)) (define gerbil/core/contract~InterfaceInfo#interface-info-interface-mixin-set! (make-class-slot-mutator gerbil/core/contract~InterfaceInfo#interface-info::t @@ -98,14 +112,18 @@ (make-class-slot-mutator gerbil/core/contract~InterfaceInfo#interface-info::t 'interface-methods)) - (define gerbil/core/contract~InterfaceInfo#interface-info-instance-type-set! + (define gerbil/core/contract~InterfaceInfo#interface-info-interface-precedence-list-set! (make-class-slot-mutator gerbil/core/contract~InterfaceInfo#interface-info::t - 'instance-type)) + 'interface-precedence-list)) (define gerbil/core/contract~InterfaceInfo#interface-info-interface-descriptor-set! (make-class-slot-mutator gerbil/core/contract~InterfaceInfo#interface-info::t 'interface-descriptor)) + (define gerbil/core/contract~InterfaceInfo#interface-info-instance-type-set! + (make-class-slot-mutator + gerbil/core/contract~InterfaceInfo#interface-info::t + 'instance-type)) (define gerbil/core/contract~InterfaceInfo#interface-info-instance-constructor-set! (make-class-slot-mutator gerbil/core/contract~InterfaceInfo#interface-info::t @@ -134,6 +152,10 @@ (make-class-slot-unchecked-accessor gerbil/core/contract~InterfaceInfo#interface-info::t 'name)) + (define gerbil/core/contract~InterfaceInfo#&interface-info-namespace + (make-class-slot-unchecked-accessor + gerbil/core/contract~InterfaceInfo#interface-info::t + 'namespace)) (define gerbil/core/contract~InterfaceInfo#&interface-info-interface-mixin (make-class-slot-unchecked-accessor gerbil/core/contract~InterfaceInfo#interface-info::t @@ -142,14 +164,18 @@ (make-class-slot-unchecked-accessor gerbil/core/contract~InterfaceInfo#interface-info::t 'interface-methods)) - (define gerbil/core/contract~InterfaceInfo#&interface-info-instance-type + (define gerbil/core/contract~InterfaceInfo#&interface-info-interface-precedence-list (make-class-slot-unchecked-accessor gerbil/core/contract~InterfaceInfo#interface-info::t - 'instance-type)) + 'interface-precedence-list)) (define gerbil/core/contract~InterfaceInfo#&interface-info-interface-descriptor (make-class-slot-unchecked-accessor gerbil/core/contract~InterfaceInfo#interface-info::t 'interface-descriptor)) + (define gerbil/core/contract~InterfaceInfo#&interface-info-instance-type + (make-class-slot-unchecked-accessor + gerbil/core/contract~InterfaceInfo#interface-info::t + 'instance-type)) (define gerbil/core/contract~InterfaceInfo#&interface-info-instance-constructor (make-class-slot-unchecked-accessor gerbil/core/contract~InterfaceInfo#interface-info::t @@ -178,6 +204,10 @@ (make-class-slot-unchecked-mutator gerbil/core/contract~InterfaceInfo#interface-info::t 'name)) + (define gerbil/core/contract~InterfaceInfo#&interface-info-namespace-set! + (make-class-slot-unchecked-mutator + gerbil/core/contract~InterfaceInfo#interface-info::t + 'namespace)) (define gerbil/core/contract~InterfaceInfo#&interface-info-interface-mixin-set! (make-class-slot-unchecked-mutator gerbil/core/contract~InterfaceInfo#interface-info::t @@ -186,14 +216,18 @@ (make-class-slot-unchecked-mutator gerbil/core/contract~InterfaceInfo#interface-info::t 'interface-methods)) - (define gerbil/core/contract~InterfaceInfo#&interface-info-instance-type-set! + (define gerbil/core/contract~InterfaceInfo#&interface-info-interface-precedence-list-set! (make-class-slot-unchecked-mutator gerbil/core/contract~InterfaceInfo#interface-info::t - 'instance-type)) + 'interface-precedence-list)) (define gerbil/core/contract~InterfaceInfo#&interface-info-interface-descriptor-set! (make-class-slot-unchecked-mutator gerbil/core/contract~InterfaceInfo#interface-info::t 'interface-descriptor)) + (define gerbil/core/contract~InterfaceInfo#&interface-info-instance-type-set! + (make-class-slot-unchecked-mutator + gerbil/core/contract~InterfaceInfo#interface-info::t + 'instance-type)) (define gerbil/core/contract~InterfaceInfo#&interface-info-instance-constructor-set! (make-class-slot-unchecked-mutator gerbil/core/contract~InterfaceInfo#interface-info::t @@ -219,96 +253,96 @@ gerbil/core/contract~InterfaceInfo#interface-info::t 'unchecked-implementation-methods)) (define gerbil/core/contract~InterfaceInfo#interface-info::apply-macro-expander - (let* ((_%g4477844792%_ - (lambda (_%g4477944789%_) + (let* ((_%g4484044854%_ + (lambda (_%g4484144851%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4477944789%_))) - (_%g4477744986%_ - (lambda (_%g4477944795%_) - (if (gx#stx-pair? _%g4477944795%_) - (let ((_%e4478244797%_ (gx#syntax-e _%g4477944795%_))) - (let ((_%hd4478344800%_ + _%g4484144851%_))) + (_%g4483945048%_ + (lambda (_%g4484144857%_) + (if (gx#stx-pair? _%g4484144857%_) + (let ((_%e4484444859%_ (gx#syntax-e _%g4484144857%_))) + (let ((_%hd4484544862%_ (let () (declare (not safe)) - (##car _%e4478244797%_))) - (_%tl4478444802%_ + (##car _%e4484444859%_))) + (_%tl4484644864%_ (let () (declare (not safe)) - (##cdr _%e4478244797%_)))) - (if (gx#stx-pair? _%tl4478444802%_) - (let ((_%e4478544805%_ - (gx#syntax-e _%tl4478444802%_))) - (let ((_%hd4478644808%_ + (##cdr _%e4484444859%_)))) + (if (gx#stx-pair? _%tl4484644864%_) + (let ((_%e4484744867%_ + (gx#syntax-e _%tl4484644864%_))) + (let ((_%hd4484844870%_ (let () (declare (not safe)) - (##car _%e4478544805%_))) - (_%tl4478744810%_ + (##car _%e4484744867%_))) + (_%tl4484944872%_ (let () (declare (not safe)) - (##cdr _%e4478544805%_)))) - (if (gx#stx-null? _%tl4478744810%_) - ((lambda (_%L44813%_ _%L44814%_) - (lambda (_%self44828%_ _%stx44829%_) - (let* ((_%__stx7835478355%_ - _%stx44829%_) - (_%g4483244845%_ + (##cdr _%e4484744867%_)))) + (if (gx#stx-null? _%tl4484944872%_) + ((lambda (_%L44875%_ _%L44876%_) + (lambda (_%self44890%_ _%stx44891%_) + (let* ((_%__stx7922979230%_ + _%stx44891%_) + (_%g4489444907%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7835478355%_)))) - (let ((_%__kont7835678357%_ - (lambda (_%L44903%_) - (let* ((_%g4491444932%_ - (lambda (_%g4491544929%_) + _%__stx7922979230%_)))) + (let ((_%__kont7923179232%_ + (lambda (_%L44965%_) + (let* ((_%g4497644994%_ + (lambda (_%g4497744991%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g4491544929%_))) - (_%g4491344980%_ - (lambda (_%g4491544935%_) - (if (gx#stx-pair? _%g4491544935%_) - (let ((_%e4491944937%_ - (gx#syntax-e _%g4491544935%_))) - (let ((_%hd4492044940%_ + _%g4497744991%_))) + (_%g4497545042%_ + (lambda (_%g4497744997%_) + (if (gx#stx-pair? _%g4497744997%_) + (let ((_%e4498144999%_ + (gx#syntax-e _%g4497744997%_))) + (let ((_%hd4498245002%_ (let () (declare (not safe)) - (##car _%e4491944937%_))) - (_%tl4492144942%_ + (##car _%e4498144999%_))) + (_%tl4498345004%_ (let () (declare (not safe)) - (##cdr _%e4491944937%_)))) - (if (gx#stx-pair? _%tl4492144942%_) - (let ((_%e4492244945%_ - (gx#syntax-e _%tl4492144942%_))) - (let ((_%hd4492344948%_ + (##cdr _%e4498144999%_)))) + (if (gx#stx-pair? _%tl4498345004%_) + (let ((_%e4498445007%_ + (gx#syntax-e _%tl4498345004%_))) + (let ((_%hd4498545010%_ (let () (declare (not safe)) - (##car _%e4492244945%_))) - (_%tl4492444950%_ + (##car _%e4498445007%_))) + (_%tl4498645012%_ (let () (declare (not safe)) - (##cdr _%e4492244945%_)))) - (if (gx#stx-pair? _%tl4492444950%_) - (let ((_%e4492544953%_ + (##cdr _%e4498445007%_)))) + (if (gx#stx-pair? _%tl4498645012%_) + (let ((_%e4498745015%_ (gx#syntax-e - _%tl4492444950%_))) - (let ((_%hd4492644956%_ + _%tl4498645012%_))) + (let ((_%hd4498845018%_ (let () (declare (not safe)) - (##car _%e4492544953%_))) - (_%tl4492744958%_ + (##car _%e4498745015%_))) + (_%tl4498945020%_ (let () (declare (not safe)) - (##cdr _%e4492544953%_)))) + (##cdr _%e4498745015%_)))) (if (gx#stx-null? - _%tl4492744958%_) - ((lambda (_%L44961%_ - _%L44962%_ - _%L44963%_) + _%tl4498945020%_) + ((lambda (_%L45023%_ + _%L45024%_ + _%L45025%_) (cons (gx#datum->syntax '#f 'let) @@ -316,22 +350,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) - (cons _%L44903%_ '())) + (cons _%L44965%_ '())) (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L44961%_ '())) + (cons _%L45023%_ '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L44813%_ + (cons (cons _%L44875%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L44963%_ + (cons _%L45025%_ (cons (gx#datum->syntax '#f '$obj) '()))) (cons (gx#datum->syntax '#f '$obj) - (cons (cons _%L44814%_ - (cons _%L44962%_ + (cons (cons _%L44876%_ + (cons _%L45024%_ (cons (gx#datum->syntax '#f '$obj) @@ -341,246 +375,222 @@ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4492644956%_ - _%hd4492344948%_ - _%hd4492044940%_) - (_%g4491444932%_ - _%g4491544935%_)))) - (_%g4491444932%_ - _%g4491544935%_)))) - (_%g4491444932%_ _%g4491544935%_)))) - (_%g4491444932%_ _%g4491544935%_))))) - (_%g4491344980%_ - (list (let ((__obj83838 _%self44828%_)) + _%hd4498845018%_ + _%hd4498545010%_ + _%hd4498245002%_) + (_%g4497644994%_ + _%g4497744997%_)))) + (_%g4497644994%_ + _%g4497744997%_)))) + (_%g4497644994%_ _%g4497744997%_)))) + (_%g4497644994%_ _%g4497744997%_))))) + (_%g4497545042%_ + (list (let ((__obj84807 _%self44890%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83838 + __obj84807 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83838 - '4 + __obj84807 + '7 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83838 + __obj84807 'instance-type))) - (let ((__obj83839 _%self44828%_)) + (let ((__obj84808 _%self44890%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83839 + __obj84808 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83839 - '5 + __obj84808 + '6 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83839 + __obj84808 'interface-descriptor))) - (let ((__obj83840 _%self44828%_)) + (let ((__obj84809 _%self44890%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83840 + __obj84809 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83840 - '4 + __obj84809 + '7 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83840 + __obj84809 'instance-type)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7835878359%_ + (_%__kont7923379234%_ (lambda () - (let* ((_%g4485244859%_ - (lambda (_%g4485344856%_) + (let* ((_%g4491444921%_ + (lambda (_%g4491544918%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g4485344856%_))) - (_%g4485144879%_ - (lambda (_%g4485344862%_) - ((lambda (_%L44864%_) _%L44864%_) _%g4485344862%_)))) - (_%g4485144879%_ - (let ((__obj83841 _%self44828%_)) + _%g4491544918%_))) + (_%g4491344941%_ + (lambda (_%g4491544924%_) + ((lambda (_%L44926%_) _%L44926%_) _%g4491544924%_)))) + (_%g4491344941%_ + (let ((__obj84810 _%self44890%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83841 + __obj84810 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83841 '5 '#f '#f)) + (##unchecked-structure-ref __obj84810 '6 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83841 + __obj84810 'interface-descriptor)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%g4483144882%_ + (let ((_%g4489344944%_ (lambda () (if (gx#identifier? - _%stx44829%_) - (_%__kont7835878359%_) + _%stx44891%_) + (_%__kont7923379234%_) (let () (declare (not safe)) - (_%g4483244845%_)))))) + (_%g4489444907%_)))))) (if (gx#stx-pair? - _%__stx7835478355%_) - (let ((_%e4483544887%_ + _%__stx7922979230%_) + (let ((_%e4489744949%_ (gx#syntax-e - _%__stx7835478355%_))) - (let ((_%tl4483744892%_ + _%__stx7922979230%_))) + (let ((_%tl4489944954%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4483544887%_))) - (_%hd4483644890%_ - (let () (declare (not safe)) (##car _%e4483544887%_)))) - (if (gx#stx-pair? _%tl4483744892%_) - (let ((_%e4483844895%_ (gx#syntax-e _%tl4483744892%_))) - (let ((_%tl4484044900%_ + (##cdr _%e4489744949%_))) + (_%hd4489844952%_ + (let () (declare (not safe)) (##car _%e4489744949%_)))) + (if (gx#stx-pair? _%tl4489944954%_) + (let ((_%e4490044957%_ (gx#syntax-e _%tl4489944954%_))) + (let ((_%tl4490244962%_ (let () (declare (not safe)) - (##cdr _%e4483844895%_))) - (_%hd4483944898%_ + (##cdr _%e4490044957%_))) + (_%hd4490144960%_ (let () (declare (not safe)) - (##car _%e4483844895%_)))) - (if (gx#stx-null? _%tl4484044900%_) - (_%__kont7835678357%_ _%hd4483944898%_) - (let () (declare (not safe)) (_%g4483144882%_))))) - (let () (declare (not safe)) (_%g4483144882%_))))) + (##car _%e4490044957%_)))) + (if (gx#stx-null? _%tl4490244962%_) + (_%__kont7923179232%_ _%hd4490144960%_) + (let () (declare (not safe)) (_%g4489344944%_))))) + (let () (declare (not safe)) (_%g4489344944%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4483144882%_)))))))) - _%hd4478644808%_ - _%hd4478344800%_) - (_%g4477844792%_ _%g4477944795%_)))) - (_%g4477844792%_ _%g4477944795%_)))) - (_%g4477844792%_ _%g4477944795%_))))) - (_%g4477744986%_ - (list gerbil/core/contract~InterfaceInfo#_g83913_ - gerbil/core/contract~InterfaceInfo#_g83914_)))) + (_%g4489344944%_)))))))) + _%hd4484844870%_ + _%hd4484544862%_) + (_%g4484044854%_ _%g4484144857%_)))) + (_%g4484044854%_ _%g4484144857%_)))) + (_%g4484044854%_ _%g4484144857%_))))) + (_%g4483945048%_ + (list gerbil/core/contract~InterfaceInfo#_g84888_ + gerbil/core/contract~InterfaceInfo#_g84889_)))) (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 (_%info44611%_) - (let _%loop44613%_ ((_%rest44615%_ - (let ((__obj83843 _%info44611%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj83843 - 'gerbil/core/contract~InterfaceInfo#interface-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj83843 - '2 - '#f - '#f)) - (class-slot-ref - gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83843 - 'interface-mixin)))) - (_%result44616%_ '())) - (let* ((_%rest4461744625%_ _%rest44615%_) - (_%else4461944633%_ (lambda () _%result44616%_)) - (_%K4462144643%_ - (lambda (_%rest44636%_ _%id44637%_) - (let* ((_%mixin44639%_ - (let ((__obj83842 - (gx#syntax-local-value _%id44637%_))) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj83842 - 'gerbil/core/contract~InterfaceInfo#interface-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj83842 - '2 - '#f - '#f)) - (class-slot-ref - gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83842 - 'interface-mixin)))) - (_%result44641%_ - (if (member _%id44637%_ - _%result44616%_ - gx#free-identifier=?) - _%result44616%_ - (cons _%id44637%_ _%result44616%_)))) - (_%loop44613%_ - (foldl cons _%rest44636%_ _%mixin44639%_) - _%result44641%_))))) - (if (pair? _%rest4461744625%_) - (let ((_%hd4462244646%_ - (let () - (declare (not safe)) - (##car _%rest4461744625%_))) - (_%tl4462344648%_ - (let () - (declare (not safe)) - (##cdr _%rest4461744625%_)))) - (let* ((_%id44651%_ _%hd4462244646%_) - (_%rest44653%_ _%tl4462344648%_)) - (_%K4462144643%_ _%rest44653%_ _%id44651%_))) - (_%else4461944633%_)))))) + (define gerbil/core/contract~InterfaceInfo#interface-identifier->precedence-list + (lambda (_%id44715%_) + (cons _%id44715%_ + (let ((__obj84811 (gx#syntax-local-value _%id44715%_))) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj84811 + 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref __obj84811 '5 '#f '#f)) + (class-slot-ref + gerbil/core/contract~InterfaceInfo#interface-info::t + __obj84811 + 'interface-precedence-list)))))) + (define gerbil/core/contract~InterfaceInfo#interface-mixin->precedence-list + (lambda (_%lst44710%_) + (let ((_g84890_ + (c4-linearize + '() + _%lst44710%_ + 'get-precedence-list: + gerbil/core/contract~InterfaceInfo#interface-identifier->precedence-list + 'struct: + false + 'eq: + gx#free-identifier=?))) + (begin + (let ((_g84891_ + (let () + (declare (not safe)) + (if (##values? _g84890_) + (##values-length _g84890_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g84891_ 2))) + (error "Context expects 2 values" _g84891_))) + (let ((_%linearized44712%_ + (let () (declare (not safe)) (##values-ref _g84890_ 0))) + (_%_44713%_ + (let () (declare (not safe)) (##values-ref _g84890_ 1)))) + _%linearized44712%_))))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - (lambda (_%stx44592%_ _%is?44593%_) - (if (gx#identifier? _%stx44592%_) - (let ((_%e4459444596%_ - (gx#syntax-local-value _%stx44592%_ false))) - (if _%e4459444596%_ - (let ((_%e44599%_ _%e4459444596%_)) + (lambda (_%stx44691%_ _%is?44692%_) + (if (gx#identifier? _%stx44691%_) + (let ((_%e4469344695%_ + (gx#syntax-local-value _%stx44691%_ false))) + (if _%e4469344695%_ + (let ((_%e44698%_ _%e4469344695%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%e44599%_)) - (_%is?44593%_ _%e44599%_) + _%e44698%_)) + (_%is?44692%_ _%e44698%_) '#f)) '#f)) '#f))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - (lambda (_%stx44604%_) - (let ((_%is?44606%_ true)) + (lambda (_%stx44703%_) + (let ((_%is?44705%_ true)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - _%stx44604%_ - _%is?44606%_)))) + _%stx44703%_ + _%is?44705%_)))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info? - (lambda _g83916_ - (let ((_g83915_ (let () (declare (not safe)) (##length _g83916_)))) - (cond ((let () (declare (not safe)) (##fx= _g83915_ 1)) + (lambda _g84893_ + (let ((_g84892_ (let () (declare (not safe)) (##length _g84893_)))) + (cond ((let () (declare (not safe)) (##fx= _g84892_ 1)) (apply gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _g83916_)) - ((let () (declare (not safe)) (##fx= _g83915_ 2)) + _g84893_)) + ((let () (declare (not safe)) (##fx= _g84892_ 2)) (apply gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - _g83916_)) + _g84893_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core/contract~InterfaceInfo#syntax-local-interface-info? - _g83916_))))))))) + _g84893_))))))))) diff --git a/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm b/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm index 219e127a2..34d854afb 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 1713631261) + (define gerbil/core/contract~TypeEnv::timestamp 1734357957) (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 _%$args46325%_ + (lambda _%$args46388%_ (apply make-instance gerbil/core/contract~TypeEnv#type-env::t - _%$args46325%_))) + _%$args46388%_))) (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,22 +79,22 @@ (lambda () (gx#syntax-local-value (gx#syntax-local-introduce '@@type) false))) (define gerbil/core/contract~TypeEnv#type-env-lookup - (lambda (_%var46315%_) - (let _%loop46317%_ ((_%te46319%_ + (lambda (_%var46378%_) + (let _%loop46380%_ ((_%te46382%_ (gerbil/core/contract~TypeEnv#current-type-env))) - (if (not _%te46319%_) + (if (not _%te46382%_) '#f (if (gx#free-identifier=? - _%var46315%_ + _%var46378%_ (##direct-structure-ref - _%te46319%_ + _%te46382%_ '1 gerbil/core/contract~TypeEnv#type-env::t '#f)) - _%te46319%_ - (_%loop46317%_ + _%te46382%_ + (_%loop46380%_ (##direct-structure-ref - _%te46319%_ + _%te46382%_ '4 gerbil/core/contract~TypeEnv#type-env::t '#f))))))))) diff --git a/src/bootstrap/gerbil/core/expander.ssi b/src/bootstrap/gerbil/core/expander.ssi index ef01a3957..525adc40e 100644 --- a/src/bootstrap/gerbil/core/expander.ssi +++ b/src/bootstrap/gerbil/core/expander.ssi @@ -81,6 +81,7 @@ namespace: gerbil/core/expander (current-expander-phi gx#current-expander-phi) (current-expander-compiling? gx#current-expander-compiling?) + (current-compilation-target gx#current-compilation-target) (current-module-reader-path gx#current-module-reader-path) (current-module-reader-args gx#current-module-reader-args) (local-context? gx#local-context?) diff --git a/src/bootstrap/gerbil/core/expander~2.scm b/src/bootstrap/gerbil/core/expander~2.scm index f2af5b12f..682370ddc 100644 --- a/src/bootstrap/gerbil/core/expander~2.scm +++ b/src/bootstrap/gerbil/core/expander~2.scm @@ -47,7 +47,7 @@ (declare (not safe)) (if (##values? _g1917_) - (##vector-length + (##values-length _g1917_) 1)))) (if (not (let () @@ -58,11 +58,11 @@ (let ((_%target375416%_ (let () (declare (not safe)) - (##vector-ref _g1917_ 0))) + (##values-ref _g1917_ 0))) (_%tl377419%_ (let () (declare (not safe)) - (##vector-ref _g1917_ 1)))) + (##values-ref _g1917_ 1)))) (if (gx#stx-null? _%tl377419%_) (letrec ((_%loop378422%_ (lambda (_%hd376426%_ @@ -187,7 +187,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (if (##values? _g1919_) - (##vector-length _g1919_) + (##values-length _g1919_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () @@ -201,14 +201,14 @@ (let () (declare (not safe)) - (##vector-ref + (##values-ref _g1919_ 0))) (_%tl620642%_ (let () (declare (not safe)) - (##vector-ref + (##values-ref _g1919_ 1)))) (if (gx#stx-null? diff --git a/src/bootstrap/gerbil/core/macro-object~0.scm b/src/bootstrap/gerbil/core/macro-object~0.scm index 6ffec1682..b5296ae94 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 1713631261) + (define gerbil/core/macro-object::timestamp 1734357956) (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 _%$args27788%_ + (lambda _%$args27887%_ (apply make-instance gerbil/core/macro-object#macro-object::t - _%$args27788%_))) + _%$args27887%_))) (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 (_%self27785%_ _%stx27786%_) + (lambda (_%self27884%_ _%stx27885%_) (gx#core-apply-expander - (let ((__obj27795 _%self27785%_)) + (let ((__obj27894 _%self27884%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27795 + __obj27894 'gerbil.core#macro-object::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj27795 '1 '#f '#f)) + (##unchecked-structure-ref __obj27894 '1 '#f '#f)) (class-slot-ref gerbil/core/macro-object#macro-object::t - __obj27795 + __obj27894 'macro))) - _%stx27786%_))) + _%stx27885%_))) (define gerbil/core/macro-object#macro-object::apply-macro-expander::specialize - (lambda (__klass27790 __method-table27791) - (let ((__macro27792 - (let ((__slot27793 (class-slot-offset __klass27790 'macro))) - (if __slot27793 __slot27793 (error '"Unknown slot" 'macro))))) - (lambda (_%self27785%_ _%stx27786%_) + (lambda (__klass27889 __method-table27890) + (let ((__macro27891 + (let ((__slot27892 (class-slot-offset __klass27889 'macro))) + (if __slot27892 __slot27892 (error '"Unknown slot" 'macro))))) + (lambda (_%self27884%_ _%stx27885%_) (gx#core-apply-expander (let () (declare (not safe)) - (##unchecked-structure-ref _%self27785%_ __macro27792 '#f '#f)) - _%stx27786%_))))) + (##unchecked-structure-ref _%self27884%_ __macro27891 '#f '#f)) + _%stx27885%_))))) (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 62e64af39..056cc909f 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]#_g27797_| + (define |gerbil/core/macro-object[1]#_g27896_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27799_| + (define |gerbil/core/macro-object[1]#_g27898_| (##structure gx#syntax-quote::t 'make-macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27801_| + (define |gerbil/core/macro-object[1]#_g27900_| (##structure gx#syntax-quote::t 'macro-object? #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27803_| + (define |gerbil/core/macro-object[1]#_g27902_| (##structure gx#syntax-quote::t 'macro-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27805_| + (define |gerbil/core/macro-object[1]#_g27904_| (##structure gx#syntax-quote::t 'macro-object-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27807_| + (define |gerbil/core/macro-object[1]#_g27906_| (##structure gx#syntax-quote::t '¯o-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27809_| + (define |gerbil/core/macro-object[1]#_g27908_| (##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 ((__obj27794 + (let ((__obj27893 (let () (declare (not safe)) (##structure @@ -79,55 +79,55 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27794 + __obj27893 'gerbil.core#macro-object::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27794 'macro-object '2 '#f '#f)) + (##unchecked-structure-set! __obj27893 'macro-object '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27794 '(macro) '4 '#f '#f)) + (##unchecked-structure-set! __obj27893 '(macro) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27794 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj27893 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27794 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj27893 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27794 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj27893 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27794 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj27893 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27794 '#f '11 '#f '#f)) - (let ((__tmp27796 |gerbil/core/macro-object[1]#_g27797_|)) + (##unchecked-structure-set! __obj27893 '#f '11 '#f '#f)) + (let ((__tmp27895 |gerbil/core/macro-object[1]#_g27896_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27794 __tmp27796 '12 '#f '#f)) - (let ((__tmp27798 |gerbil/core/macro-object[1]#_g27799_|)) + (##unchecked-structure-set! __obj27893 __tmp27895 '12 '#f '#f)) + (let ((__tmp27897 |gerbil/core/macro-object[1]#_g27898_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27794 __tmp27798 '13 '#f '#f)) - (let ((__tmp27800 |gerbil/core/macro-object[1]#_g27801_|)) + (##unchecked-structure-set! __obj27893 __tmp27897 '13 '#f '#f)) + (let ((__tmp27899 |gerbil/core/macro-object[1]#_g27900_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27794 __tmp27800 '14 '#f '#f)) - (let ((__tmp27802 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27803_|) '()))) + (##unchecked-structure-set! __obj27893 __tmp27899 '14 '#f '#f)) + (let ((__tmp27901 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27902_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27794 __tmp27802 '15 '#f '#f)) - (let ((__tmp27804 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27805_|) '()))) + (##unchecked-structure-set! __obj27893 __tmp27901 '15 '#f '#f)) + (let ((__tmp27903 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27904_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27794 __tmp27804 '16 '#f '#f)) - (let ((__tmp27806 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27807_|) '()))) + (##unchecked-structure-set! __obj27893 __tmp27903 '16 '#f '#f)) + (let ((__tmp27905 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27906_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27794 __tmp27806 '17 '#f '#f)) - (let ((__tmp27808 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27809_|) '()))) + (##unchecked-structure-set! __obj27893 __tmp27905 '17 '#f '#f)) + (let ((__tmp27907 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27908_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27794 __tmp27808 '18 '#f '#f)) - __obj27794))) + (##unchecked-structure-set! __obj27893 __tmp27907 '18 '#f '#f)) + __obj27893))) diff --git a/src/bootstrap/gerbil/core/match~1.scm b/src/bootstrap/gerbil/core/match~1.scm index 3aa51156a..236078731 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]#_g39838_| + (define |gerbil/core/match[1]#_g39937_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39839_| + (define |gerbil/core/match[1]#_g39938_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39840_| + (define |gerbil/core/match[1]#_g39939_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39841_| + (define |gerbil/core/match[1]#_g39940_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39842_| + (define |gerbil/core/match[1]#_g39941_| (##structure gx#syntax-quote::t 'apply #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39843_| + (define |gerbil/core/match[1]#_g39942_| (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39844_| + (define |gerbil/core/match[1]#_g39943_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39845_| + (define |gerbil/core/match[1]#_g39944_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39846_| + (define |gerbil/core/match[1]#_g39945_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39847_| + (define |gerbil/core/match[1]#_g39946_| (##structure gx#syntax-quote::t 'cons #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39848_| + (define |gerbil/core/match[1]#_g39947_| (##structure gx#syntax-quote::t 'cons* #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39849_| + (define |gerbil/core/match[1]#_g39948_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39850_| + (define |gerbil/core/match[1]#_g39949_| (##structure gx#syntax-quote::t 'box #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39851_| + (define |gerbil/core/match[1]#_g39950_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39852_| + (define |gerbil/core/match[1]#_g39951_| (##structure gx#syntax-quote::t 'vector #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39865_| + (define |gerbil/core/match[1]#_g39964_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39873_| + (define |gerbil/core/match[1]#_g39972_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39874_| + (define |gerbil/core/match[1]#_g39973_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39875_| + (define |gerbil/core/match[1]#_g39974_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39880_| + (define |gerbil/core/match[1]#_g39979_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39881_| + (define |gerbil/core/match[1]#_g39980_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39882_| + (define |gerbil/core/match[1]#_g39981_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39883_| + (define |gerbil/core/match[1]#_g39982_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39884_| + (define |gerbil/core/match[1]#_g39983_| (##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 _%$args35137%_ + (lambda _%$args35236%_ (apply make-instance |gerbil/core/match[1]#match-macro::t| - _%$args35137%_))) + _%$args35236%_))) (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,4537 +132,4537 @@ |gerbil/core/match[1]#match-macro::t| 'macro)) (define |gerbil/core/match[1]#syntax-local-match-macro?| - (lambda (_%stx35134%_) - (if (gx#identifier? _%stx35134%_) - (let ((__tmp39837 (gx#syntax-local-value _%stx35134%_ false))) + (lambda (_%stx35233%_) + (if (gx#identifier? _%stx35233%_) + (let ((__tmp39936 (gx#syntax-local-value _%stx35233%_ false))) (declare (not safe)) (class-instance? |gerbil/core/match[1]#match-macro::t| - __tmp39837)) + __tmp39936)) '#f))) (define |gerbil/core/match[1]#parse-match-pattern__%| - (lambda (_%stx33434%_ _%match-stx33436%_) - (letrec ((_%parse133438%_ - (lambda (_%hd33797%_) - (let* ((_%__stx3762537626%_ _%hd33797%_) - (_%g3382333965%_ + (lambda (_%stx33533%_ _%match-stx33535%_) + (letrec ((_%parse133537%_ + (lambda (_%hd33896%_) + (let* ((_%__stx3772437725%_ _%hd33896%_) + (_%g3392234064%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3762537626%_)))) - (let ((_%__kont3762837629%_ - (lambda (_%L34897%_ _%L34899%_) - (let* ((_%__stx3754537546%_ _%L34897%_) - (_%g3491634949%_ + _%__stx3772437725%_)))) + (let ((_%__kont3772737728%_ + (lambda (_%L34996%_ _%L34998%_) + (let* ((_%__stx3764437645%_ _%L34996%_) + (_%g3501535048%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3754537546%_)))) - (let ((_%__kont3754837549%_ + _%__stx3764437645%_)))) + (let ((_%__kont3764737648%_ (lambda () - (cons '?: (cons _%L34899%_ '())))) - (_%__kont3755037551%_ - (lambda (_%L35090%_) + (cons '?: (cons _%L34998%_ '())))) + (_%__kont3764937650%_ + (lambda (_%L35189%_) (cons '?: - (cons _%L34899%_ - (cons (_%parse133438%_ - _%L35090%_) + (cons _%L34998%_ + (cons (_%parse133537%_ + _%L35189%_) '()))))) - (_%__kont3755237553%_ - (lambda (_%L35060%_) + (_%__kont3765137652%_ + (lambda (_%L35159%_) (cons '?: - (cons _%L34899%_ + (cons _%L34998%_ (cons '=>: - (cons (_%parse133438%_ + (cons (_%parse133537%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L35060%_) + _%L35159%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3755437555%_ - (lambda (_%L35011%_ _%L35013%_) + (_%__kont3765337654%_ + (lambda (_%L35110%_ _%L35112%_) (cons '?: - (cons _%L34899%_ + (cons _%L34998%_ (cons ':: - (cons _%L35013%_ + (cons _%L35112%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '=>: - (cons (_%parse133438%_ _%L35011%_) '())))))))) + (cons (_%parse133537%_ _%L35110%_) '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3755637557%_ + (_%__kont3765537656%_ (lambda () - (_%parse-error33445%_ _%hd33797%_)))) - (let ((_%g3491235101%_ + (_%parse-error33544%_ _%hd33896%_)))) + (let ((_%g3501135200%_ (lambda () (if (gx#stx-pair? - _%__stx3754537546%_) - (let ((_%e3491935080%_ + _%__stx3764437645%_) + (let ((_%e3501835179%_ (gx#syntax-e - _%__stx3754537546%_))) - (let ((_%tl3492135087%_ + _%__stx3764437645%_))) + (let ((_%tl3502035186%_ (let () (declare (not safe)) - (##cdr _%e3491935080%_))) - (_%hd3492035084%_ + (##cdr _%e3501835179%_))) + (_%hd3501935183%_ (let () (declare (not safe)) - (##car _%e3491935080%_)))) + (##car _%e3501835179%_)))) (if (gx#stx-null? - _%tl3492135087%_) - (_%__kont3755037551%_ - _%hd3492035084%_) + _%tl3502035186%_) + (_%__kont3764937650%_ + _%hd3501935183%_) (if (gx#identifier? - _%hd3492035084%_) + _%hd3501935183%_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/match[1]#_g39838_| - _%hd3492035084%_) - (if (gx#stx-pair? _%tl3492135087%_) - (let ((_%e3492635050%_ - (gx#syntax-e _%tl3492135087%_))) - (let ((_%tl3492835057%_ + |gerbil/core/match[1]#_g39937_| + _%hd3501935183%_) + (if (gx#stx-pair? _%tl3502035186%_) + (let ((_%e3502535149%_ + (gx#syntax-e _%tl3502035186%_))) + (let ((_%tl3502735156%_ (let () (declare (not safe)) - (##cdr _%e3492635050%_))) - (_%hd3492735054%_ + (##cdr _%e3502535149%_))) + (_%hd3502635153%_ (let () (declare (not safe)) - (##car _%e3492635050%_)))) - (if (gx#stx-null? _%tl3492835057%_) - (_%__kont3755237553%_ _%hd3492735054%_) - (_%__kont3755637557%_)))) - (_%__kont3755637557%_)) - (_%__kont3755637557%_)) - (if (gx#stx-datum? _%hd3492035084%_) - (let ((_%e3493434977%_ (gx#stx-e _%hd3492035084%_))) - (if (equal? _%e3493434977%_ '::) - (if (gx#stx-pair? _%tl3492135087%_) - (let ((_%e3493534981%_ - (gx#syntax-e _%tl3492135087%_))) - (let ((_%tl3493734988%_ + (##car _%e3502535149%_)))) + (if (gx#stx-null? _%tl3502735156%_) + (_%__kont3765137652%_ _%hd3502635153%_) + (_%__kont3765537656%_)))) + (_%__kont3765537656%_)) + (_%__kont3765537656%_)) + (if (gx#stx-datum? _%hd3501935183%_) + (let ((_%e3503335076%_ (gx#stx-e _%hd3501935183%_))) + (if (equal? _%e3503335076%_ '::) + (if (gx#stx-pair? _%tl3502035186%_) + (let ((_%e3503435080%_ + (gx#syntax-e _%tl3502035186%_))) + (let ((_%tl3503635087%_ (let () (declare (not safe)) - (##cdr _%e3493534981%_))) - (_%hd3493634985%_ + (##cdr _%e3503435080%_))) + (_%hd3503535084%_ (let () (declare (not safe)) - (##car _%e3493534981%_)))) - (if (gx#stx-pair? _%tl3493734988%_) - (let ((_%e3493834991%_ + (##car _%e3503435080%_)))) + (if (gx#stx-pair? _%tl3503635087%_) + (let ((_%e3503735090%_ (gx#syntax-e - _%tl3493734988%_))) - (let ((_%tl3494034998%_ + _%tl3503635087%_))) + (let ((_%tl3503935097%_ (let () (declare (not safe)) - (##cdr _%e3493834991%_))) - (_%hd3493934995%_ + (##cdr _%e3503735090%_))) + (_%hd3503835094%_ (let () (declare (not safe)) - (##car _%e3493834991%_)))) + (##car _%e3503735090%_)))) (if (gx#identifier? - _%hd3493934995%_) + _%hd3503835094%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39839_| - _%hd3493934995%_) + |gerbil/core/match[1]#_g39938_| + _%hd3503835094%_) (if (gx#stx-pair? - _%tl3494034998%_) - (let ((_%e3494135001%_ + _%tl3503935097%_) + (let ((_%e3504035100%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3494034998%_))) - (let ((_%tl3494335008%_ + (gx#syntax-e _%tl3503935097%_))) + (let ((_%tl3504235107%_ (let () (declare (not safe)) - (##cdr _%e3494135001%_))) - (_%hd3494235005%_ + (##cdr _%e3504035100%_))) + (_%hd3504135104%_ (let () (declare (not safe)) - (##car _%e3494135001%_)))) - (if (gx#stx-null? _%tl3494335008%_) - (_%__kont3755437555%_ - _%hd3494235005%_ - _%hd3493634985%_) - (_%__kont3755637557%_)))) - (_%__kont3755637557%_)) - (_%__kont3755637557%_)) + (##car _%e3504035100%_)))) + (if (gx#stx-null? _%tl3504235107%_) + (_%__kont3765337654%_ + _%hd3504135104%_ + _%hd3503535084%_) + (_%__kont3765537656%_)))) + (_%__kont3765537656%_)) + (_%__kont3765537656%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3755637557%_)))) - (_%__kont3755637557%_)))) - (_%__kont3755637557%_)) - (_%__kont3755637557%_))) - (_%__kont3755637557%_)))))) + (_%__kont3765537656%_)))) + (_%__kont3765537656%_)))) + (_%__kont3765537656%_)) + (_%__kont3765537656%_))) + (_%__kont3765537656%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3755637557%_))))) - (if (gx#stx-null? _%__stx3754537546%_) - (_%__kont3754837549%_) + (_%__kont3765537656%_))))) + (if (gx#stx-null? _%__stx3764437645%_) + (_%__kont3764737648%_) (let () (declare (not safe)) - (_%g3491235101%_)))))))) - (_%__kont3763037631%_ - (lambda (_%L34802%_) - (let* ((_%__stx3752737528%_ _%L34802%_) - (_%g3481434825%_ + (_%g3501135200%_)))))))) + (_%__kont3772937730%_ + (lambda (_%L34901%_) + (let* ((_%__stx3762637627%_ _%L34901%_) + (_%g3491334924%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3752737528%_)))) - (let ((_%__kont3753037531%_ - (lambda (_%L34853%_) - (_%parse133438%_ _%L34853%_))) - (_%__kont3753237533%_ + _%__stx3762637627%_)))) + (let ((_%__kont3762937630%_ + (lambda (_%L34952%_) + (_%parse133537%_ _%L34952%_))) + (_%__kont3763137632%_ (lambda () (cons 'and: (gx#stx-map - _%parse133438%_ - _%L34802%_))))) - (if (gx#stx-pair? _%__stx3752737528%_) - (let ((_%e3481734843%_ + _%parse133537%_ + _%L34901%_))))) + (if (gx#stx-pair? _%__stx3762637627%_) + (let ((_%e3491634942%_ (gx#syntax-e - _%__stx3752737528%_))) - (let ((_%tl3481934850%_ + _%__stx3762637627%_))) + (let ((_%tl3491834949%_ (let () (declare (not safe)) - (##cdr _%e3481734843%_))) - (_%hd3481834847%_ + (##cdr _%e3491634942%_))) + (_%hd3491734946%_ (let () (declare (not safe)) - (##car _%e3481734843%_)))) - (if (gx#stx-null? _%tl3481934850%_) - (_%__kont3753037531%_ - _%hd3481834847%_) - (_%__kont3753237533%_)))) - (_%__kont3753237533%_)))))) - (_%__kont3763237633%_ - (lambda (_%L34717%_) - (let* ((_%__stx3750937510%_ _%L34717%_) - (_%g3472934740%_ + (##car _%e3491634942%_)))) + (if (gx#stx-null? _%tl3491834949%_) + (_%__kont3762937630%_ + _%hd3491734946%_) + (_%__kont3763137632%_)))) + (_%__kont3763137632%_)))))) + (_%__kont3773137732%_ + (lambda (_%L34816%_) + (let* ((_%__stx3760837609%_ _%L34816%_) + (_%g3482834839%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3750937510%_)))) - (let ((_%__kont3751237513%_ - (lambda (_%L34768%_) - (_%parse133438%_ _%L34768%_))) - (_%__kont3751437515%_ + _%__stx3760837609%_)))) + (let ((_%__kont3761137612%_ + (lambda (_%L34867%_) + (_%parse133537%_ _%L34867%_))) + (_%__kont3761337614%_ (lambda () (cons 'or: (gx#stx-map - _%parse133438%_ - _%L34717%_))))) - (if (gx#stx-pair? _%__stx3750937510%_) - (let ((_%e3473234758%_ + _%parse133537%_ + _%L34816%_))))) + (if (gx#stx-pair? _%__stx3760837609%_) + (let ((_%e3483134857%_ (gx#syntax-e - _%__stx3750937510%_))) - (let ((_%tl3473434765%_ + _%__stx3760837609%_))) + (let ((_%tl3483334864%_ (let () (declare (not safe)) - (##cdr _%e3473234758%_))) - (_%hd3473334762%_ + (##cdr _%e3483134857%_))) + (_%hd3483234861%_ (let () (declare (not safe)) - (##car _%e3473234758%_)))) - (if (gx#stx-null? _%tl3473434765%_) - (_%__kont3751237513%_ - _%hd3473334762%_) - (_%__kont3751437515%_)))) - (_%__kont3751437515%_)))))) - (_%__kont3763437635%_ - (lambda (_%L34687%_) + (##car _%e3483134857%_)))) + (if (gx#stx-null? _%tl3483334864%_) + (_%__kont3761137612%_ + _%hd3483234861%_) + (_%__kont3761337614%_)))) + (_%__kont3761337614%_)))))) + (_%__kont3773337734%_ + (lambda (_%L34786%_) (cons 'not: - (cons (_%parse133438%_ _%L34687%_) '())))) - (_%__kont3763637637%_ - (lambda (_%L34643%_ _%L34645%_) + (cons (_%parse133537%_ _%L34786%_) '())))) + (_%__kont3773537736%_ + (lambda (_%L34742%_ _%L34744%_) (cons 'cons: - (cons (_%parse133438%_ _%L34645%_) - (cons (_%parse133438%_ _%L34643%_) + (cons (_%parse133537%_ _%L34744%_) + (cons (_%parse133537%_ _%L34742%_) '()))))) - (_%__kont3763837639%_ - (lambda (_%L34587%_ _%L34589%_ _%L34590%_) - (if (gx#stx-null? _%L34587%_) + (_%__kont3773737738%_ + (lambda (_%L34686%_ _%L34688%_ _%L34689%_) + (if (gx#stx-null? _%L34686%_) (cons 'cons: - (cons (_%parse133438%_ _%L34590%_) - (cons (_%parse133438%_ - _%L34589%_) + (cons (_%parse133537%_ _%L34689%_) + (cons (_%parse133537%_ + _%L34688%_) '()))) (cons 'cons: - (cons (_%parse133438%_ _%L34590%_) - (cons (_%parse133438%_ + (cons (_%parse133537%_ _%L34689%_) + (cons (_%parse133537%_ (cons (gx#datum->syntax '#f 'cons*) - (cons _%L34589%_ + (cons _%L34688%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L34587%_))) + _%L34686%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont3764037641%_ - (lambda (_%L34539%_) - (_%parse-list33440%_ _%L34539%_))) - (_%__kont3764237643%_ - (lambda (_%L34509%_) + (_%__kont3773937740%_ + (lambda (_%L34638%_) + (_%parse-list33539%_ _%L34638%_))) + (_%__kont3774137742%_ + (lambda (_%L34608%_) (cons 'box: - (cons (_%parse133438%_ _%L34509%_) '())))) - (_%__kont3764437645%_ - (lambda (_%L34472%_) + (cons (_%parse133537%_ _%L34608%_) '())))) + (_%__kont3774337744%_ + (lambda (_%L34571%_) (cons 'box: - (cons (_%parse133438%_ _%L34472%_) '())))) - (_%__kont3764637647%_ - (lambda (_%L34448%_) - (_%parse133438%_ _%L34448%_))) - (_%__kont3764837649%_ - (lambda (_%L34410%_) + (cons (_%parse133537%_ _%L34571%_) '())))) + (_%__kont3774537746%_ + (lambda (_%L34547%_) + (_%parse133537%_ _%L34547%_))) + (_%__kont3774737748%_ + (lambda (_%L34509%_) (cons 'values: - (cons (_%parse-vector33441%_ _%L34410%_) + (cons (_%parse-vector33540%_ _%L34509%_) '())))) - (_%__kont3765037651%_ - (lambda (_%L34382%_) + (_%__kont3774937750%_ + (lambda (_%L34481%_) (cons 'vector: - (cons (_%parse-vector33441%_ _%L34382%_) + (cons (_%parse-vector33540%_ _%L34481%_) '())))) - (_%__kont3765237653%_ - (lambda (_%L34343%_) + (_%__kont3775137752%_ + (lambda (_%L34442%_) (cons 'vector: - (cons (_%parse-vector33441%_ - (foldr (lambda (_%g3435634359%_ - _%g3435734362%_) - (cons _%g3435634359%_ - _%g3435734362%_)) + (cons (_%parse-vector33540%_ + (foldr (lambda (_%g3445534458%_ + _%g3445634461%_) + (cons _%g3445534458%_ + _%g3445634461%_)) '() - _%L34343%_)) + _%L34442%_)) '())))) - (_%__kont3765637657%_ - (lambda (_%L34289%_ _%L34291%_) + (_%__kont3775537756%_ + (lambda (_%L34388%_ _%L34390%_) (cons 'struct: - (cons (gx#syntax-local-value _%L34291%_) - (cons (_%parse-vector33441%_ - _%L34289%_) + (cons (gx#syntax-local-value _%L34390%_) + (cons (_%parse-vector33540%_ + _%L34388%_) '()))))) - (_%__kont3765837659%_ - (lambda (_%L34259%_ _%L34261%_) + (_%__kont3775737758%_ + (lambda (_%L34358%_ _%L34360%_) (cons 'class: - (cons (gx#syntax-local-value _%L34261%_) - (cons (_%parse-class-body33443%_ - _%L34259%_) + (cons (gx#syntax-local-value _%L34360%_) + (cons (_%parse-class-body33542%_ + _%L34358%_) '()))))) - (_%__kont3766037661%_ - (lambda (_%L34219%_ _%L34221%_) + (_%__kont3775937760%_ + (lambda (_%L34318%_ _%L34320%_) (cons '?: (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L34221%_ + (cons _%L34320%_ (cons (gx#datum->syntax '#f '<>) - (cons _%L34219%_ + (cons _%L34318%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (_%__kont3766237663%_ - (lambda (_%L34179%_) + (_%__kont3776137762%_ + (lambda (_%L34278%_) (cons 'datum: - (cons (gx#stx-e _%L34179%_) '())))) - (_%__kont3766437665%_ - (lambda (_%L34139%_) - (_%parse-qq33444%_ _%L34139%_))) - (_%__kont3766637667%_ - (lambda (_%L34095%_ _%L34097%_) + (cons (gx#stx-e _%L34278%_) '())))) + (_%__kont3776337764%_ + (lambda (_%L34238%_) + (_%parse-qq33543%_ _%L34238%_))) + (_%__kont3776537766%_ + (lambda (_%L34194%_ _%L34196%_) (cons 'apply: - (cons _%L34097%_ - (cons (_%parse133438%_ _%L34095%_) + (cons _%L34196%_ + (cons (_%parse133537%_ _%L34194%_) '()))))) - (_%__kont3766837669%_ - (lambda (_%L34043%_) - (_%parse133438%_ + (_%__kont3776737768%_ + (lambda (_%L34142%_) + (_%parse133537%_ (gx#core-apply-expander - (gx#syntax-local-e _%L34043%_) + (gx#syntax-local-e _%L34142%_) (gx#stx-wrap-source - (cons 'match: _%hd33797%_) - (let ((_%$e34054%_ - (gx#stx-source _%hd33797%_))) - (if _%$e34054%_ - _%$e34054%_ - (gx#stx-source _%stx33434%_)))))))) - (_%__kont3767037671%_ - (lambda (_%L34017%_) (cons 'any: '()))) - (_%__kont3767237673%_ - (lambda (_%L34001%_) - (cons 'var: (cons _%L34001%_ '())))) - (_%__kont3767437675%_ - (lambda (_%L33983%_) + (cons 'match: _%hd33896%_) + (let ((_%$e34153%_ + (gx#stx-source _%hd33896%_))) + (if _%$e34153%_ + _%$e34153%_ + (gx#stx-source _%stx33533%_)))))))) + (_%__kont3776937770%_ + (lambda (_%L34116%_) (cons 'any: '()))) + (_%__kont3777137772%_ + (lambda (_%L34100%_) + (cons 'var: (cons _%L34100%_ '())))) + (_%__kont3777337774%_ + (lambda (_%L34082%_) (cons 'datum: - (cons (gx#stx-e _%L33983%_) '())))) - (_%__kont3767637677%_ - (lambda () (_%parse-error33445%_ _%hd33797%_)))) - (let* ((_%g3382133994%_ + (cons (gx#stx-e _%L34082%_) '())))) + (_%__kont3777537776%_ + (lambda () (_%parse-error33544%_ _%hd33896%_)))) + (let* ((_%g3392034093%_ (lambda () - (let ((_%L33983%_ _%__stx3762537626%_)) - (if (gx#stx-datum? _%L33983%_) - (_%__kont3767437675%_ _%L33983%_) - (_%__kont3767637677%_))))) - (_%g3382034010%_ + (let ((_%L34082%_ _%__stx3772437725%_)) + (if (gx#stx-datum? _%L34082%_) + (_%__kont3777337774%_ _%L34082%_) + (_%__kont3777537776%_))))) + (_%g3391934109%_ (lambda () - (let ((_%L34001%_ _%__stx3762537626%_)) - (if (and (gx#identifier? _%L34001%_) - (not (gx#ellipsis? _%L34001%_))) - (_%__kont3767237673%_ _%L34001%_) + (let ((_%L34100%_ _%__stx3772437725%_)) + (if (and (gx#identifier? _%L34100%_) + (not (gx#ellipsis? _%L34100%_))) + (_%__kont3777137772%_ _%L34100%_) (let () (declare (not safe)) - (_%g3382133994%_)))))) - (_%g3381934026%_ + (_%g3392034093%_)))))) + (_%g3391834125%_ (lambda () - (let ((_%L34017%_ _%__stx3762537626%_)) - (if (gx#underscore? _%L34017%_) - (_%__kont3767037671%_ _%L34017%_) + (let ((_%L34116%_ _%__stx3772437725%_)) + (if (gx#underscore? _%L34116%_) + (_%__kont3776937770%_ _%L34116%_) (let () (declare (not safe)) - (_%g3382034010%_)))))) - (_%__match3795237953%_ - (lambda (_%e3395434033%_ - _%hd3395534037%_ - _%tl3395634040%_) - (let ((_%L34043%_ _%hd3395534037%_)) + (_%g3391934109%_)))))) + (_%__match3805138052%_ + (lambda (_%e3405334132%_ + _%hd3405434136%_ + _%tl3405534139%_) + (let ((_%L34142%_ _%hd3405434136%_)) (if (|gerbil/core/match[1]#syntax-local-match-macro?| - _%L34043%_) - (_%__kont3766837669%_ _%L34043%_) + _%L34142%_) + (_%__kont3776737768%_ _%L34142%_) (let () (declare (not safe)) - (_%g3381934026%_)))))) - (_%__match3788637887%_ - (lambda (_%e3392234199%_ - _%hd3392334203%_ - _%tl3392434206%_ - _%e3392534209%_ - _%hd3392634213%_ - _%tl3392734216%_) - (let ((_%L34219%_ _%hd3392634213%_) - (_%L34221%_ _%hd3392334203%_)) - (if (and (gx#identifier? _%L34221%_) + (_%g3391834125%_)))))) + (_%__match3798537986%_ + (lambda (_%e3402134298%_ + _%hd3402234302%_ + _%tl3402334305%_ + _%e3402434308%_ + _%hd3402534312%_ + _%tl3402634315%_) + (let ((_%L34318%_ _%hd3402534312%_) + (_%L34320%_ _%hd3402234302%_)) + (if (and (gx#identifier? _%L34320%_) (or (gx#free-identifier=? - _%L34221%_ + _%L34320%_ (gx#datum->syntax '#f 'eq?)) (gx#free-identifier=? - _%L34221%_ + _%L34320%_ (gx#datum->syntax '#f 'eqv?)) (gx#free-identifier=? - _%L34221%_ + _%L34320%_ (gx#datum->syntax '#f 'equal?)))) - (_%__kont3766037661%_ - _%L34219%_ - _%L34221%_) - (if (gx#identifier? _%hd3392334203%_) + (_%__kont3775937760%_ + _%L34318%_ + _%L34320%_) + (if (gx#identifier? _%hd3402234302%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39840_| - _%hd3392334203%_) - (_%__kont3766237663%_ - _%hd3392634213%_) + |gerbil/core/match[1]#_g39939_| + _%hd3402234302%_) + (_%__kont3776137762%_ + _%hd3402534312%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39841_| - _%hd3392334203%_) - (_%__kont3766437665%_ - _%hd3392634213%_) - (_%__match3795237953%_ - _%e3392234199%_ - _%hd3392334203%_ - _%tl3392434206%_))) - (_%__match3795237953%_ - _%e3392234199%_ - _%hd3392334203%_ - _%tl3392434206%_)))))) - (_%__match3787237873%_ - (lambda (_%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_) - (let ((_%L34259%_ _%tl3391934256%_) - (_%L34261%_ _%hd3391834253%_)) + |gerbil/core/match[1]#_g39940_| + _%hd3402234302%_) + (_%__kont3776337764%_ + _%hd3402534312%_) + (_%__match3805138052%_ + _%e3402134298%_ + _%hd3402234302%_ + _%tl3402334305%_))) + (_%__match3805138052%_ + _%e3402134298%_ + _%hd3402234302%_ + _%tl3402334305%_)))))) + (_%__match3797137972%_ + (lambda (_%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_) + (let ((_%L34358%_ _%tl3401834355%_) + (_%L34360%_ _%hd3401734352%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L34261%_)) - (_%__kont3765837659%_ - _%L34259%_ - _%L34261%_) - (if (gx#stx-pair? _%tl3391934256%_) - (let ((_%e3392534209%_ + _%L34360%_)) + (_%__kont3775737758%_ + _%L34358%_ + _%L34360%_) + (if (gx#stx-pair? _%tl3401834355%_) + (let ((_%e3402434308%_ (gx#syntax-e - _%tl3391934256%_))) - (let ((_%tl3392734216%_ + _%tl3401834355%_))) + (let ((_%tl3402634315%_ (let () (declare (not safe)) - (##cdr _%e3392534209%_))) - (_%hd3392634213%_ + (##cdr _%e3402434308%_))) + (_%hd3402534312%_ (let () (declare (not safe)) - (##car _%e3392534209%_)))) + (##car _%e3402434308%_)))) (if (gx#stx-null? - _%tl3392734216%_) - (_%__match3788637887%_ - _%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_ - _%e3392534209%_ - _%hd3392634213%_ - _%tl3392734216%_) + _%tl3402634315%_) + (_%__match3798537986%_ + _%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_ + _%e3402434308%_ + _%hd3402534312%_ + _%tl3402634315%_) (if (gx#identifier? - _%hd3391834253%_) + _%hd3401734352%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39840_| - _%hd3391834253%_) - (_%__match3795237953%_ - _%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_) + |gerbil/core/match[1]#_g39939_| + _%hd3401734352%_) + (_%__match3805138052%_ + _%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/match[1]#_g39841_| - _%hd3391834253%_) - (_%__match3795237953%_ - _%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_) + |gerbil/core/match[1]#_g39940_| + _%hd3401734352%_) + (_%__match3805138052%_ + _%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39842_| - _%hd3391834253%_) - (if (gx#stx-pair? _%tl3392734216%_) - (let ((_%e3395034085%_ - (gx#syntax-e _%tl3392734216%_))) - (let ((_%tl3395234092%_ + |gerbil/core/match[1]#_g39941_| + _%hd3401734352%_) + (if (gx#stx-pair? _%tl3402634315%_) + (let ((_%e3404934184%_ + (gx#syntax-e _%tl3402634315%_))) + (let ((_%tl3405134191%_ (let () (declare (not safe)) - (##cdr _%e3395034085%_))) - (_%hd3395134089%_ + (##cdr _%e3404934184%_))) + (_%hd3405034188%_ (let () (declare (not safe)) - (##car _%e3395034085%_)))) - (if (gx#stx-null? _%tl3395234092%_) - (_%__kont3766637667%_ - _%hd3395134089%_ - _%hd3392634213%_) - (_%__match3795237953%_ - _%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_)))) - (_%__match3795237953%_ - _%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_)) - (_%__match3795237953%_ - _%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_)))) - (_%__match3795237953%_ - _%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_))))) + (##car _%e3404934184%_)))) + (if (gx#stx-null? _%tl3405134191%_) + (_%__kont3776537766%_ + _%hd3405034188%_ + _%hd3402534312%_) + (_%__match3805138052%_ + _%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_)))) + (_%__match3805138052%_ + _%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_)) + (_%__match3805138052%_ + _%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_)))) + (_%__match3805138052%_ + _%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match3795237953%_ - _%e3391734249%_ - _%hd3391834253%_ - _%tl3391934256%_)))))) - (_%__match3786637867%_ - (lambda (_%e3391234279%_ - _%hd3391334283%_ - _%tl3391434286%_) - (let ((_%L34289%_ _%tl3391434286%_) - (_%L34291%_ _%hd3391334283%_)) + (_%__match3805138052%_ + _%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_)))))) + (_%__match3796537966%_ + (lambda (_%e3401134378%_ + _%hd3401234382%_ + _%tl3401334385%_) + (let ((_%L34388%_ _%tl3401334385%_) + (_%L34390%_ _%hd3401234382%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - _%L34291%_ + _%L34390%_ gerbil/core/mop~MOP-2#!class-type-struct?)) - (_%__kont3765637657%_ - _%L34289%_ - _%L34291%_) - (_%__match3787237873%_ - _%e3391234279%_ - _%hd3391334283%_ - _%tl3391434286%_))))) - (_%__match3786037861%_ - (lambda (_%e3390034309%_ - _%__splice3765437655%_ - _%target3390134313%_ - _%tl3390334316%_) - (letrec ((_%loop3390434319%_ - (lambda (_%hd3390234323%_ - _%body3390834326%_) + (_%__kont3775537756%_ + _%L34388%_ + _%L34390%_) + (_%__match3797137972%_ + _%e3401134378%_ + _%hd3401234382%_ + _%tl3401334385%_))))) + (_%__match3795937960%_ + (lambda (_%e3399934408%_ + _%__splice3775337754%_ + _%target3400034412%_ + _%tl3400234415%_) + (letrec ((_%loop3400334418%_ + (lambda (_%hd3400134422%_ + _%body3400734425%_) (if (gx#stx-pair? - _%hd3390234323%_) - (let ((_%e3390534329%_ + _%hd3400134422%_) + (let ((_%e3400434428%_ (gx#syntax-e - _%hd3390234323%_))) - (let ((_%lp-tl3390734336%_ + _%hd3400134422%_))) + (let ((_%lp-tl3400634435%_ (let () (declare (not safe)) - (##cdr _%e3390534329%_))) - (_%lp-hd3390634333%_ + (##cdr _%e3400434428%_))) + (_%lp-hd3400534432%_ (let () (declare (not safe)) - (##car _%e3390534329%_)))) - (_%loop3390434319%_ - _%lp-tl3390734336%_ - (cons _%lp-hd3390634333%_ - _%body3390834326%_)))) - (let ((_%body3390934339%_ - (reverse _%body3390834326%_))) - (_%__kont3765237653%_ - _%body3390934339%_)))))) - (_%loop3390434319%_ - _%target3390134313%_ + (##car _%e3400434428%_)))) + (_%loop3400334418%_ + _%lp-tl3400634435%_ + (cons _%lp-hd3400534432%_ + _%body3400734425%_)))) + (let ((_%body3400834438%_ + (reverse _%body3400734425%_))) + (_%__kont3775137752%_ + _%body3400834438%_)))))) + (_%loop3400334418%_ + _%target3400034412%_ '())))) - (_%g3381134365%_ + (_%g3391034464%_ (lambda () - (if (gx#stx-vector? _%__stx3762537626%_) - (let ((_%e3390034309%_ + (if (gx#stx-vector? _%__stx3772437725%_) + (let ((_%e3399934408%_ (vector->list (gx#syntax-e - _%__stx3762537626%_)))) - (if (gx#stx-pair/null? _%e3390034309%_) - (let ((_%__splice3765437655%_ + _%__stx3772437725%_)))) + (if (gx#stx-pair/null? _%e3399934408%_) + (let ((_%__splice3775337754%_ (gx#syntax-split-splice - _%e3390034309%_ + _%e3399934408%_ '0))) - (let ((_%tl3390334316%_ + (let ((_%tl3400234415%_ (let () (declare (not safe)) (##vector-ref - _%__splice3765437655%_ + _%__splice3775337754%_ '1))) - (_%target3390134313%_ + (_%target3400034412%_ (let () (declare (not safe)) (##vector-ref - _%__splice3765437655%_ + _%__splice3775337754%_ '0)))) (if (gx#stx-null? - _%tl3390334316%_) - (_%__match3786037861%_ - _%e3390034309%_ - _%__splice3765437655%_ - _%target3390134313%_ - _%tl3390334316%_) + _%tl3400234415%_) + (_%__match3795937960%_ + _%e3399934408%_ + _%__splice3775337754%_ + _%target3400034412%_ + _%tl3400234415%_) (let () (declare (not safe)) - (_%g3381934026%_))))) + (_%g3391834125%_))))) (let () (declare (not safe)) - (_%g3381934026%_)))) + (_%g3391834125%_)))) (let () (declare (not safe)) - (_%g3381934026%_))))) - (_%g3380734482%_ + (_%g3391834125%_))))) + (_%g3390634581%_ (lambda () - (if (gx#stx-box? _%__stx3762537626%_) - (let ((_%e3388334468%_ + (if (gx#stx-box? _%__stx3772437725%_) + (let ((_%e3398234567%_ (unbox (gx#syntax-e - _%__stx3762537626%_)))) - (_%__kont3764437645%_ _%e3388334468%_)) + _%__stx3772437725%_)))) + (_%__kont3774337744%_ _%e3398234567%_)) (let () (declare (not safe)) - (_%g3381134365%_))))) - (_%__match3771437715%_ - (lambda (_%e3383834707%_ - _%hd3383934711%_ - _%tl3384034714%_) - (let ((_%L34717%_ _%tl3384034714%_)) - (if (gx#stx-list? _%L34717%_) - (_%__kont3763237633%_ _%L34717%_) - (_%__match3786637867%_ - _%e3383834707%_ - _%hd3383934711%_ - _%tl3384034714%_))))) - (_%__match3770437705%_ - (lambda (_%e3383434792%_ - _%hd3383534796%_ - _%tl3383634799%_) - (let ((_%L34802%_ _%tl3383634799%_)) - (if (gx#stx-list? _%L34802%_) - (_%__kont3763037631%_ _%L34802%_) - (_%__match3786637867%_ - _%e3383434792%_ - _%hd3383534796%_ - _%tl3383634799%_)))))) - (if (gx#stx-pair? _%__stx3762537626%_) - (let ((_%e3382734877%_ - (gx#syntax-e _%__stx3762537626%_))) - (let ((_%tl3382934884%_ + (_%g3391034464%_))))) + (_%__match3781337814%_ + (lambda (_%e3393734806%_ + _%hd3393834810%_ + _%tl3393934813%_) + (let ((_%L34816%_ _%tl3393934813%_)) + (if (gx#stx-list? _%L34816%_) + (_%__kont3773137732%_ _%L34816%_) + (_%__match3796537966%_ + _%e3393734806%_ + _%hd3393834810%_ + _%tl3393934813%_))))) + (_%__match3780337804%_ + (lambda (_%e3393334891%_ + _%hd3393434895%_ + _%tl3393534898%_) + (let ((_%L34901%_ _%tl3393534898%_)) + (if (gx#stx-list? _%L34901%_) + (_%__kont3772937730%_ _%L34901%_) + (_%__match3796537966%_ + _%e3393334891%_ + _%hd3393434895%_ + _%tl3393534898%_)))))) + (if (gx#stx-pair? _%__stx3772437725%_) + (let ((_%e3392634976%_ + (gx#syntax-e _%__stx3772437725%_))) + (let ((_%tl3392834983%_ (let () (declare (not safe)) - (##cdr _%e3382734877%_))) - (_%hd3382834881%_ + (##cdr _%e3392634976%_))) + (_%hd3392734980%_ (let () (declare (not safe)) - (##car _%e3382734877%_)))) - (if (gx#identifier? _%hd3382834881%_) + (##car _%e3392634976%_)))) + (if (gx#identifier? _%hd3392734980%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39843_| - _%hd3382834881%_) - (if (gx#stx-pair? _%tl3382934884%_) - (let ((_%e3383034887%_ + |gerbil/core/match[1]#_g39942_| + _%hd3392734980%_) + (if (gx#stx-pair? _%tl3392834983%_) + (let ((_%e3392934986%_ (gx#syntax-e - _%tl3382934884%_))) - (let ((_%tl3383234894%_ + _%tl3392834983%_))) + (let ((_%tl3393134993%_ (let () (declare (not safe)) - (##cdr _%e3383034887%_))) - (_%hd3383134891%_ + (##cdr _%e3392934986%_))) + (_%hd3393034990%_ (let () (declare (not safe)) - (##car _%e3383034887%_)))) - (_%__kont3762837629%_ - _%tl3383234894%_ - _%hd3383134891%_))) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)) + (##car _%e3392934986%_)))) + (_%__kont3772737728%_ + _%tl3393134993%_ + _%hd3393034990%_))) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39844_| - _%hd3382834881%_) - (_%__match3770437705%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_) + |gerbil/core/match[1]#_g39943_| + _%hd3392734980%_) + (_%__match3780337804%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39845_| - _%hd3382834881%_) - (_%__match3771437715%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_) + |gerbil/core/match[1]#_g39944_| + _%hd3392734980%_) + (_%__match3781337814%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39846_| - _%hd3382834881%_) + |gerbil/core/match[1]#_g39945_| + _%hd3392734980%_) (if (gx#stx-pair? - _%tl3382934884%_) - (let ((_%e3384534677%_ + _%tl3392834983%_) + (let ((_%e3394434776%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3382934884%_))) - (let ((_%tl3384734684%_ + (gx#syntax-e _%tl3392834983%_))) + (let ((_%tl3394634783%_ (let () (declare (not safe)) - (##cdr _%e3384534677%_))) - (_%hd3384634681%_ + (##cdr _%e3394434776%_))) + (_%hd3394534780%_ (let () (declare (not safe)) - (##car _%e3384534677%_)))) - (if (gx#stx-null? _%tl3384734684%_) - (_%__kont3763437635%_ _%hd3384634681%_) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)))) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)) + (##car _%e3394434776%_)))) + (if (gx#stx-null? _%tl3394634783%_) + (_%__kont3773337734%_ _%hd3394534780%_) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)))) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39847_| - _%hd3382834881%_) - (if (gx#stx-pair? _%tl3382934884%_) - (let ((_%e3385334623%_ (gx#syntax-e _%tl3382934884%_))) - (let ((_%tl3385534630%_ + |gerbil/core/match[1]#_g39946_| + _%hd3392734980%_) + (if (gx#stx-pair? _%tl3392834983%_) + (let ((_%e3395234722%_ (gx#syntax-e _%tl3392834983%_))) + (let ((_%tl3395434729%_ (let () (declare (not safe)) - (##cdr _%e3385334623%_))) - (_%hd3385434627%_ + (##cdr _%e3395234722%_))) + (_%hd3395334726%_ (let () (declare (not safe)) - (##car _%e3385334623%_)))) - (if (gx#stx-pair? _%tl3385534630%_) - (let ((_%e3385634633%_ - (gx#syntax-e _%tl3385534630%_))) - (let ((_%tl3385834640%_ + (##car _%e3395234722%_)))) + (if (gx#stx-pair? _%tl3395434729%_) + (let ((_%e3395534732%_ + (gx#syntax-e _%tl3395434729%_))) + (let ((_%tl3395734739%_ (let () (declare (not safe)) - (##cdr _%e3385634633%_))) - (_%hd3385734637%_ + (##cdr _%e3395534732%_))) + (_%hd3395634736%_ (let () (declare (not safe)) - (##car _%e3385634633%_)))) - (if (gx#stx-null? _%tl3385834640%_) - (_%__kont3763637637%_ - _%hd3385734637%_ - _%hd3385434627%_) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)))) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)))) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)) + (##car _%e3395534732%_)))) + (if (gx#stx-null? _%tl3395734739%_) + (_%__kont3773537736%_ + _%hd3395634736%_ + _%hd3395334726%_) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)))) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)))) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39848_| - _%hd3382834881%_) - (if (gx#stx-pair? _%tl3382934884%_) - (let ((_%e3386534567%_ - (gx#syntax-e _%tl3382934884%_))) - (let ((_%tl3386734574%_ + |gerbil/core/match[1]#_g39947_| + _%hd3392734980%_) + (if (gx#stx-pair? _%tl3392834983%_) + (let ((_%e3396434666%_ + (gx#syntax-e _%tl3392834983%_))) + (let ((_%tl3396634673%_ (let () (declare (not safe)) - (##cdr _%e3386534567%_))) - (_%hd3386634571%_ + (##cdr _%e3396434666%_))) + (_%hd3396534670%_ (let () (declare (not safe)) - (##car _%e3386534567%_)))) - (if (gx#stx-pair? _%tl3386734574%_) - (let ((_%e3386834577%_ - (gx#syntax-e _%tl3386734574%_))) - (let ((_%tl3387034584%_ + (##car _%e3396434666%_)))) + (if (gx#stx-pair? _%tl3396634673%_) + (let ((_%e3396734676%_ + (gx#syntax-e _%tl3396634673%_))) + (let ((_%tl3396934683%_ (let () (declare (not safe)) - (##cdr _%e3386834577%_))) - (_%hd3386934581%_ + (##cdr _%e3396734676%_))) + (_%hd3396834680%_ (let () (declare (not safe)) - (##car _%e3386834577%_)))) - (_%__kont3763837639%_ - _%tl3387034584%_ - _%hd3386934581%_ - _%hd3386634571%_))) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)))) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)) + (##car _%e3396734676%_)))) + (_%__kont3773737738%_ + _%tl3396934683%_ + _%hd3396834680%_ + _%hd3396534670%_))) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)))) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39849_| - _%hd3382834881%_) - (_%__kont3764037641%_ _%tl3382934884%_) + |gerbil/core/match[1]#_g39948_| + _%hd3392734980%_) + (_%__kont3773937740%_ _%tl3392834983%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39850_| - _%hd3382834881%_) - (if (gx#stx-pair? _%tl3382934884%_) - (let ((_%e3387934499%_ - (gx#syntax-e _%tl3382934884%_))) - (let ((_%tl3388134506%_ + |gerbil/core/match[1]#_g39949_| + _%hd3392734980%_) + (if (gx#stx-pair? _%tl3392834983%_) + (let ((_%e3397834598%_ + (gx#syntax-e _%tl3392834983%_))) + (let ((_%tl3398034605%_ (let () (declare (not safe)) - (##cdr _%e3387934499%_))) - (_%hd3388034503%_ + (##cdr _%e3397834598%_))) + (_%hd3397934602%_ (let () (declare (not safe)) - (##car _%e3387934499%_)))) - (if (gx#stx-null? _%tl3388134506%_) - (_%__kont3764237643%_ - _%hd3388034503%_) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)))) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)) + (##car _%e3397834598%_)))) + (if (gx#stx-null? _%tl3398034605%_) + (_%__kont3774137742%_ + _%hd3397934602%_) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)))) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39851_| - _%hd3382834881%_) - (if (gx#stx-pair? _%tl3382934884%_) - (let ((_%e3388834438%_ - (gx#syntax-e _%tl3382934884%_))) - (let ((_%tl3389034445%_ + |gerbil/core/match[1]#_g39950_| + _%hd3392734980%_) + (if (gx#stx-pair? _%tl3392834983%_) + (let ((_%e3398734537%_ + (gx#syntax-e _%tl3392834983%_))) + (let ((_%tl3398934544%_ (let () (declare (not safe)) - (##cdr _%e3388834438%_))) - (_%hd3388934442%_ + (##cdr _%e3398734537%_))) + (_%hd3398834541%_ (let () (declare (not safe)) - (##car _%e3388834438%_)))) - (if (gx#stx-null? _%tl3389034445%_) - (_%__kont3764637647%_ - _%hd3388934442%_) - (_%__kont3764837649%_ - _%tl3382934884%_)))) - (_%__kont3764837649%_ _%tl3382934884%_)) + (##car _%e3398734537%_)))) + (if (gx#stx-null? _%tl3398934544%_) + (_%__kont3774537746%_ + _%hd3398834541%_) + (_%__kont3774737748%_ + _%tl3392834983%_)))) + (_%__kont3774737748%_ _%tl3392834983%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39852_| - _%hd3382834881%_) - (_%__kont3765037651%_ _%tl3382934884%_) - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_))))))))))) + |gerbil/core/match[1]#_g39951_| + _%hd3392734980%_) + (_%__kont3774937750%_ _%tl3392834983%_) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match3786637867%_ - _%e3382734877%_ - _%hd3382834881%_ - _%tl3382934884%_)))) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)))) (let () (declare (not safe)) - (_%g3380734482%_)))))))) - (_%parse-list33440%_ - (lambda (_%body33620%_) - (let* ((_%__stx3795537956%_ _%body33620%_) - (_%g3362633655%_ + (_%g3390634581%_)))))))) + (_%parse-list33539%_ + (lambda (_%body33719%_) + (let* ((_%__stx3805438055%_ _%body33719%_) + (_%g3372533754%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3795537956%_)))) - (let ((_%__kont3795837959%_ - (lambda (_%L33779%_) - (_%parse133438%_ _%L33779%_))) - (_%__kont3796037961%_ - (lambda (_%L33731%_ _%L33733%_ _%L33734%_) + _%__stx3805438055%_)))) + (let ((_%__kont3805738058%_ + (lambda (_%L33878%_) + (_%parse133537%_ _%L33878%_))) + (_%__kont3805938060%_ + (lambda (_%L33830%_ _%L33832%_ _%L33833%_) (cons 'splice: - (cons (_%parse133438%_ _%L33734%_) - (cons (_%parse-list33440%_ - _%L33731%_) + (cons (_%parse133537%_ _%L33833%_) + (cons (_%parse-list33539%_ + _%L33830%_) '()))))) - (_%__kont3796237963%_ - (lambda (_%L33689%_ _%L33691%_) + (_%__kont3806138062%_ + (lambda (_%L33788%_ _%L33790%_) (cons 'cons: - (cons (_%parse133438%_ _%L33691%_) - (cons (_%parse-list33440%_ - _%L33689%_) + (cons (_%parse133537%_ _%L33790%_) + (cons (_%parse-list33539%_ + _%L33788%_) '()))))) - (_%__kont3796437965%_ + (_%__kont3806338064%_ (lambda () - (if (gx#stx-null? _%body33620%_) + (if (gx#stx-null? _%body33719%_) (cons 'null: '()) - (if (gx#stx-pair? _%body33620%_) - (_%parse-error33445%_ _%body33620%_) - (_%parse133438%_ _%body33620%_)))))) - (let* ((_%__match3800438005%_ - (lambda (_%e3364733679%_ - _%hd3364833683%_ - _%tl3364933686%_) - (let ((_%L33689%_ _%tl3364933686%_) - (_%L33691%_ _%hd3364833683%_)) - (if (gx#ellipsis? _%L33691%_) - (_%__kont3796437965%_) - (_%__kont3796237963%_ - _%L33689%_ - _%L33691%_))))) - (_%__match3799837999%_ - (lambda (_%e3363933711%_ - _%hd3364033715%_ - _%tl3364133718%_ - _%e3364233721%_ - _%hd3364333725%_ - _%tl3364433728%_) - (let ((_%L33731%_ _%tl3364433728%_) - (_%L33733%_ _%hd3364333725%_) - (_%L33734%_ _%hd3364033715%_)) - (if (gx#ellipsis? _%L33733%_) - (_%__kont3796037961%_ - _%L33731%_ - _%L33733%_ - _%L33734%_) - (_%__match3800438005%_ - _%e3363933711%_ - _%hd3364033715%_ - _%tl3364133718%_)))))) - (if (gx#stx-pair? _%__stx3795537956%_) - (let ((_%e3362933755%_ - (gx#syntax-e _%__stx3795537956%_))) - (let ((_%tl3363133762%_ + (if (gx#stx-pair? _%body33719%_) + (_%parse-error33544%_ _%body33719%_) + (_%parse133537%_ _%body33719%_)))))) + (let* ((_%__match3810338104%_ + (lambda (_%e3374633778%_ + _%hd3374733782%_ + _%tl3374833785%_) + (let ((_%L33788%_ _%tl3374833785%_) + (_%L33790%_ _%hd3374733782%_)) + (if (gx#ellipsis? _%L33790%_) + (_%__kont3806338064%_) + (_%__kont3806138062%_ + _%L33788%_ + _%L33790%_))))) + (_%__match3809738098%_ + (lambda (_%e3373833810%_ + _%hd3373933814%_ + _%tl3374033817%_ + _%e3374133820%_ + _%hd3374233824%_ + _%tl3374333827%_) + (let ((_%L33830%_ _%tl3374333827%_) + (_%L33832%_ _%hd3374233824%_) + (_%L33833%_ _%hd3373933814%_)) + (if (gx#ellipsis? _%L33832%_) + (_%__kont3805938060%_ + _%L33830%_ + _%L33832%_ + _%L33833%_) + (_%__match3810338104%_ + _%e3373833810%_ + _%hd3373933814%_ + _%tl3374033817%_)))))) + (if (gx#stx-pair? _%__stx3805438055%_) + (let ((_%e3372833854%_ + (gx#syntax-e _%__stx3805438055%_))) + (let ((_%tl3373033861%_ (let () (declare (not safe)) - (##cdr _%e3362933755%_))) - (_%hd3363033759%_ + (##cdr _%e3372833854%_))) + (_%hd3372933858%_ (let () (declare (not safe)) - (##car _%e3362933755%_)))) - (if (gx#stx-datum? _%hd3363033759%_) - (let ((_%e3363233765%_ - (gx#stx-e _%hd3363033759%_))) - (if (equal? _%e3363233765%_ '::) - (if (gx#stx-pair? _%tl3363133762%_) - (let ((_%e3363333769%_ + (##car _%e3372833854%_)))) + (if (gx#stx-datum? _%hd3372933858%_) + (let ((_%e3373133864%_ + (gx#stx-e _%hd3372933858%_))) + (if (equal? _%e3373133864%_ '::) + (if (gx#stx-pair? _%tl3373033861%_) + (let ((_%e3373233868%_ (gx#syntax-e - _%tl3363133762%_))) - (let ((_%tl3363533776%_ + _%tl3373033861%_))) + (let ((_%tl3373433875%_ (let () (declare (not safe)) - (##cdr _%e3363333769%_))) - (_%hd3363433773%_ + (##cdr _%e3373233868%_))) + (_%hd3373333872%_ (let () (declare (not safe)) - (##car _%e3363333769%_)))) + (##car _%e3373233868%_)))) (if (gx#stx-null? - _%tl3363533776%_) - (_%__kont3795837959%_ - _%hd3363433773%_) - (_%__match3799837999%_ - _%e3362933755%_ - _%hd3363033759%_ - _%tl3363133762%_ - _%e3363333769%_ - _%hd3363433773%_ - _%tl3363533776%_)))) - (_%__match3800438005%_ - _%e3362933755%_ - _%hd3363033759%_ - _%tl3363133762%_)) - (if (gx#stx-pair? _%tl3363133762%_) - (let ((_%e3364233721%_ + _%tl3373433875%_) + (_%__kont3805738058%_ + _%hd3373333872%_) + (_%__match3809738098%_ + _%e3372833854%_ + _%hd3372933858%_ + _%tl3373033861%_ + _%e3373233868%_ + _%hd3373333872%_ + _%tl3373433875%_)))) + (_%__match3810338104%_ + _%e3372833854%_ + _%hd3372933858%_ + _%tl3373033861%_)) + (if (gx#stx-pair? _%tl3373033861%_) + (let ((_%e3374133820%_ (gx#syntax-e - _%tl3363133762%_))) - (let ((_%tl3364433728%_ + _%tl3373033861%_))) + (let ((_%tl3374333827%_ (let () (declare (not safe)) - (##cdr _%e3364233721%_))) - (_%hd3364333725%_ + (##cdr _%e3374133820%_))) + (_%hd3374233824%_ (let () (declare (not safe)) - (##car _%e3364233721%_)))) - (_%__match3799837999%_ - _%e3362933755%_ - _%hd3363033759%_ - _%tl3363133762%_ - _%e3364233721%_ - _%hd3364333725%_ - _%tl3364433728%_))) - (_%__match3800438005%_ - _%e3362933755%_ - _%hd3363033759%_ - _%tl3363133762%_)))) - (if (gx#stx-pair? _%tl3363133762%_) - (let ((_%e3364233721%_ + (##car _%e3374133820%_)))) + (_%__match3809738098%_ + _%e3372833854%_ + _%hd3372933858%_ + _%tl3373033861%_ + _%e3374133820%_ + _%hd3374233824%_ + _%tl3374333827%_))) + (_%__match3810338104%_ + _%e3372833854%_ + _%hd3372933858%_ + _%tl3373033861%_)))) + (if (gx#stx-pair? _%tl3373033861%_) + (let ((_%e3374133820%_ (gx#syntax-e - _%tl3363133762%_))) - (let ((_%tl3364433728%_ + _%tl3373033861%_))) + (let ((_%tl3374333827%_ (let () (declare (not safe)) - (##cdr _%e3364233721%_))) - (_%hd3364333725%_ + (##cdr _%e3374133820%_))) + (_%hd3374233824%_ (let () (declare (not safe)) - (##car _%e3364233721%_)))) - (_%__match3799837999%_ - _%e3362933755%_ - _%hd3363033759%_ - _%tl3363133762%_ - _%e3364233721%_ - _%hd3364333725%_ - _%tl3364433728%_))) - (_%__match3800438005%_ - _%e3362933755%_ - _%hd3363033759%_ - _%tl3363133762%_))))) - (_%__kont3796437965%_))))))) - (_%parse-vector33441%_ - (lambda (_%body33617%_) - (if (_%simple-vector?33442%_ _%body33617%_) + (##car _%e3374133820%_)))) + (_%__match3809738098%_ + _%e3372833854%_ + _%hd3372933858%_ + _%tl3373033861%_ + _%e3374133820%_ + _%hd3374233824%_ + _%tl3374333827%_))) + (_%__match3810338104%_ + _%e3372833854%_ + _%hd3372933858%_ + _%tl3373033861%_))))) + (_%__kont3806338064%_))))))) + (_%parse-vector33540%_ + (lambda (_%body33716%_) + (if (_%simple-vector?33541%_ _%body33716%_) (cons 'simple: - (cons (gx#stx-map _%parse133438%_ _%body33617%_) + (cons (gx#stx-map _%parse133537%_ _%body33716%_) '())) (cons 'list: - (cons (_%parse-list33440%_ _%body33617%_) + (cons (_%parse-list33539%_ _%body33716%_) '()))))) - (_%simple-vector?33442%_ - (lambda (_%body33554%_) - (let* ((_%__stx3800738008%_ _%body33554%_) - (_%g3355833570%_ + (_%simple-vector?33541%_ + (lambda (_%body33653%_) + (let* ((_%__stx3810638107%_ _%body33653%_) + (_%g3365733669%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3800738008%_)))) - (let ((_%__kont3801038011%_ - (lambda (_%L33598%_ _%L33600%_) - (if (gx#ellipsis? _%L33600%_) + _%__stx3810638107%_)))) + (let ((_%__kont3810938110%_ + (lambda (_%L33697%_ _%L33699%_) + (if (gx#ellipsis? _%L33699%_) '#f - (_%simple-vector?33442%_ _%L33598%_)))) - (_%__kont3801238013%_ - (lambda () (gx#stx-null? _%body33554%_)))) - (if (gx#stx-pair? _%__stx3800738008%_) - (let ((_%e3356233588%_ - (gx#syntax-e _%__stx3800738008%_))) - (let ((_%tl3356433595%_ + (_%simple-vector?33541%_ _%L33697%_)))) + (_%__kont3811138112%_ + (lambda () (gx#stx-null? _%body33653%_)))) + (if (gx#stx-pair? _%__stx3810638107%_) + (let ((_%e3366133687%_ + (gx#syntax-e _%__stx3810638107%_))) + (let ((_%tl3366333694%_ (let () (declare (not safe)) - (##cdr _%e3356233588%_))) - (_%hd3356333592%_ + (##cdr _%e3366133687%_))) + (_%hd3366233691%_ (let () (declare (not safe)) - (##car _%e3356233588%_)))) - (_%__kont3801038011%_ - _%tl3356433595%_ - _%hd3356333592%_))) - (_%__kont3801238013%_)))))) - (_%parse-class-body33443%_ - (lambda (_%body33463%_) - (let _%recur33466%_ ((_%rest33469%_ _%body33463%_)) - (let* ((_%__stx3802338024%_ _%rest33469%_) - (_%g3347333489%_ + (##car _%e3366133687%_)))) + (_%__kont3810938110%_ + _%tl3366333694%_ + _%hd3366233691%_))) + (_%__kont3811138112%_)))))) + (_%parse-class-body33542%_ + (lambda (_%body33562%_) + (let _%recur33565%_ ((_%rest33568%_ _%body33562%_)) + (let* ((_%__stx3812238123%_ _%rest33568%_) + (_%g3357233588%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3802338024%_)))) - (let ((_%__kont3802638027%_ - (lambda (_%L33527%_ _%L33529%_ _%L33530%_) - (cons _%L33530%_ - (cons (_%parse133438%_ _%L33529%_) - (_%recur33466%_ _%L33527%_))))) - (_%__kont3802838029%_ + _%__stx3812238123%_)))) + (let ((_%__kont3812538126%_ + (lambda (_%L33626%_ _%L33628%_ _%L33629%_) + (cons _%L33629%_ + (cons (_%parse133537%_ _%L33628%_) + (_%recur33565%_ _%L33626%_))))) + (_%__kont3812738128%_ (lambda () - (if (gx#stx-null? _%rest33469%_) + (if (gx#stx-null? _%rest33568%_) '() - (_%parse-error33445%_ _%rest33469%_))))) - (let ((_%__match3804238043%_ - (lambda (_%e3347833507%_ - _%hd3347933511%_ - _%tl3348033514%_ - _%e3348133517%_ - _%hd3348233521%_ - _%tl3348333524%_) - (let ((_%L33527%_ _%tl3348333524%_) - (_%L33529%_ _%hd3348233521%_) - (_%L33530%_ _%hd3347933511%_)) - (if (gx#stx-keyword? _%L33530%_) - (_%__kont3802638027%_ - _%L33527%_ - _%L33529%_ - _%L33530%_) - (_%__kont3802838029%_)))))) - (if (gx#stx-pair? _%__stx3802338024%_) - (let ((_%e3347833507%_ - (gx#syntax-e _%__stx3802338024%_))) - (let ((_%tl3348033514%_ + (_%parse-error33544%_ _%rest33568%_))))) + (let ((_%__match3814138142%_ + (lambda (_%e3357733606%_ + _%hd3357833610%_ + _%tl3357933613%_ + _%e3358033616%_ + _%hd3358133620%_ + _%tl3358233623%_) + (let ((_%L33626%_ _%tl3358233623%_) + (_%L33628%_ _%hd3358133620%_) + (_%L33629%_ _%hd3357833610%_)) + (if (gx#stx-keyword? _%L33629%_) + (_%__kont3812538126%_ + _%L33626%_ + _%L33628%_ + _%L33629%_) + (_%__kont3812738128%_)))))) + (if (gx#stx-pair? _%__stx3812238123%_) + (let ((_%e3357733606%_ + (gx#syntax-e _%__stx3812238123%_))) + (let ((_%tl3357933613%_ (let () (declare (not safe)) - (##cdr _%e3347833507%_))) - (_%hd3347933511%_ + (##cdr _%e3357733606%_))) + (_%hd3357833610%_ (let () (declare (not safe)) - (##car _%e3347833507%_)))) - (if (gx#stx-pair? _%tl3348033514%_) - (let ((_%e3348133517%_ - (gx#syntax-e _%tl3348033514%_))) - (let ((_%tl3348333524%_ + (##car _%e3357733606%_)))) + (if (gx#stx-pair? _%tl3357933613%_) + (let ((_%e3358033616%_ + (gx#syntax-e _%tl3357933613%_))) + (let ((_%tl3358233623%_ (let () (declare (not safe)) - (##cdr _%e3348133517%_))) - (_%hd3348233521%_ + (##cdr _%e3358033616%_))) + (_%hd3358133620%_ (let () (declare (not safe)) - (##car _%e3348133517%_)))) - (_%__match3804238043%_ - _%e3347833507%_ - _%hd3347933511%_ - _%tl3348033514%_ - _%e3348133517%_ - _%hd3348233521%_ - _%tl3348333524%_))) - (_%__kont3802838029%_)))) - (_%__kont3802838029%_)))))))) - (_%parse-qq33444%_ - (lambda (_%hd33450%_) - (let ((_%g3345233459%_ - (lambda (_%g3345333455%_) + (##car _%e3358033616%_)))) + (_%__match3814138142%_ + _%e3357733606%_ + _%hd3357833610%_ + _%tl3357933613%_ + _%e3358033616%_ + _%hd3358133620%_ + _%tl3358233623%_))) + (_%__kont3812738128%_)))) + (_%__kont3812738128%_)))))))) + (_%parse-qq33543%_ + (lambda (_%hd33549%_) + (let ((_%g3355133558%_ + (lambda (_%g3355233554%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3345333455%_)))) - (_%g3345233459%_ _%hd33450%_)))) - (_%parse-error33445%_ - (lambda (_%hd33447%_) + _%g3355233554%_)))) + (_%g3355133558%_ _%hd33549%_)))) + (_%parse-error33544%_ + (lambda (_%hd33546%_) (apply gx#raise-syntax-error '#f '"bad syntax; illegal pattern" - (if _%match-stx33436%_ - (cons _%match-stx33436%_ - (cons _%stx33434%_ - (cons _%hd33447%_ '()))) - (cons _%stx33434%_ (cons _%hd33447%_ '()))))))) - (_%parse133438%_ _%stx33434%_)))) + (if _%match-stx33535%_ + (cons _%match-stx33535%_ + (cons _%stx33533%_ + (cons _%hd33546%_ '()))) + (cons _%stx33533%_ (cons _%hd33546%_ '()))))))) + (_%parse133537%_ _%stx33533%_)))) (define |gerbil/core/match[1]#parse-match-pattern__0| - (lambda (_%stx35124%_) - (let ((_%match-stx35127%_ '#f)) + (lambda (_%stx35223%_) + (let ((_%match-stx35226%_ '#f)) (|gerbil/core/match[1]#parse-match-pattern__%| - _%stx35124%_ - _%match-stx35127%_)))) + _%stx35223%_ + _%match-stx35226%_)))) (define |gerbil/core/match[1]#parse-match-pattern| - (lambda _g39854_ - (let ((_g39853_ (let () (declare (not safe)) (##length _g39854_)))) - (cond ((let () (declare (not safe)) (##fx= _g39853_ 1)) + (lambda _g39953_ + (let ((_g39952_ (let () (declare (not safe)) (##length _g39953_)))) + (cond ((let () (declare (not safe)) (##fx= _g39952_ 1)) (apply |gerbil/core/match[1]#parse-match-pattern__0| - _g39854_)) - ((let () (declare (not safe)) (##fx= _g39853_ 2)) + _g39953_)) + ((let () (declare (not safe)) (##fx= _g39952_ 2)) (apply |gerbil/core/match[1]#parse-match-pattern__%| - _g39854_)) + _g39953_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core/match[1]#parse-match-pattern| - _g39854_)))))) + _g39953_)))))) (define |gerbil/core/match[1]#match-pattern?| - (lambda (_%stx33419%_) - (let ((__tmp39855 - (lambda (_%E33422%_) + (lambda (_%stx33518%_) + (let ((__tmp39954 + (lambda (_%E33521%_) (with-exception-handler - (let ((_%E!33425%_ (current-exception-handler))) - (lambda (_%e33428%_) - (if (syntax-error? _%e33428%_) - (_%E33422%_ '#f) + (let ((_%E!33524%_ (current-exception-handler))) + (lambda (_%e33527%_) + (if (syntax-error? _%e33527%_) + (_%E33521%_ '#f) (let () (declare (not safe)) - (_%E!33425%_ _%e33428%_))))) + (_%E!33524%_ _%e33527%_))))) (lambda () (|gerbil/core/match[1]#parse-match-pattern__0| - _%stx33419%_) + _%stx33518%_) '#t))))) (declare (not safe)) - (##call-with-current-continuation __tmp39855)))) + (##call-with-current-continuation __tmp39954)))) (define |gerbil/core/match[1]#match-pattern-vars| - (lambda (_%ptree32154%_) - (letrec ((_%loop32157%_ - (lambda (_%ptree32444%_ _%vars32446%_ _%K32447%_) - (let* ((_%__stx3814138142%_ _%ptree32444%_) - (_%g3246032570%_ + (lambda (_%ptree32253%_) + (letrec ((_%loop32256%_ + (lambda (_%ptree32543%_ _%vars32545%_ _%K32546%_) + (let* ((_%__stx3824038241%_ _%ptree32543%_) + (_%g3255932669%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3814138142%_)))) - (let ((_%__kont3814438145%_ - (lambda (_%L33200%_) - (let* ((_%__stx3806138062%_ _%L33200%_) - (_%g3321733251%_ + _%__stx3824038241%_)))) + (let ((_%__kont3824338244%_ + (lambda (_%L33299%_) + (let* ((_%__stx3816038161%_ _%L33299%_) + (_%g3331633350%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3806138062%_)))) - (let ((_%__kont3806438065%_ - (lambda (_%L33400%_) - (_%loop32157%_ - _%L33400%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3806638067%_ - (lambda (_%L33369%_) - (_%loop32157%_ - _%L33369%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3806838069%_ - (lambda (_%L33317%_) - (_%loop32157%_ - _%L33317%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3807038071%_ + _%__stx3816038161%_)))) + (let ((_%__kont3816338164%_ + (lambda (_%L33499%_) + (_%loop32256%_ + _%L33499%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3816538166%_ + (lambda (_%L33468%_) + (_%loop32256%_ + _%L33468%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3816738168%_ + (lambda (_%L33416%_) + (_%loop32256%_ + _%L33416%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3816938170%_ (lambda () - (_%K32447%_ _%vars32446%_)))) - (if (gx#stx-pair? _%__stx3806138062%_) - (let ((_%e3322033390%_ + (_%K32546%_ _%vars32545%_)))) + (if (gx#stx-pair? _%__stx3816038161%_) + (let ((_%e3331933489%_ (gx#syntax-e - _%__stx3806138062%_))) - (let ((_%tl3322233397%_ + _%__stx3816038161%_))) + (let ((_%tl3332133496%_ (let () (declare (not safe)) - (##cdr _%e3322033390%_))) - (_%hd3322133394%_ + (##cdr _%e3331933489%_))) + (_%hd3332033493%_ (let () (declare (not safe)) - (##car _%e3322033390%_)))) - (if (gx#stx-null? _%tl3322233397%_) - (_%__kont3806438065%_ - _%hd3322133394%_) + (##car _%e3331933489%_)))) + (if (gx#stx-null? _%tl3332133496%_) + (_%__kont3816338164%_ + _%hd3332033493%_) (if (gx#stx-datum? - _%hd3322133394%_) - (let ((_%e3322733355%_ + _%hd3332033493%_) + (let ((_%e3332633454%_ (gx#stx-e - _%hd3322133394%_))) - (if (equal? _%e3322733355%_ + _%hd3332033493%_))) + (if (equal? _%e3332633454%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '=>:) - (if (gx#stx-pair? _%tl3322233397%_) - (let ((_%e3322833359%_ (gx#syntax-e _%tl3322233397%_))) - (let ((_%tl3323033366%_ + (if (gx#stx-pair? _%tl3332133496%_) + (let ((_%e3332733458%_ (gx#syntax-e _%tl3332133496%_))) + (let ((_%tl3332933465%_ (let () (declare (not safe)) - (##cdr _%e3322833359%_))) - (_%hd3322933363%_ + (##cdr _%e3332733458%_))) + (_%hd3332833462%_ (let () (declare (not safe)) - (##car _%e3322833359%_)))) - (if (gx#stx-null? _%tl3323033366%_) - (_%__kont3806638067%_ _%hd3322933363%_) - (_%__kont3807038071%_)))) - (_%__kont3807038071%_)) - (if (equal? _%e3322733355%_ '::) - (if (gx#stx-pair? _%tl3322233397%_) - (let ((_%e3323633283%_ - (gx#syntax-e _%tl3322233397%_))) - (let ((_%tl3323833290%_ + (##car _%e3332733458%_)))) + (if (gx#stx-null? _%tl3332933465%_) + (_%__kont3816538166%_ _%hd3332833462%_) + (_%__kont3816938170%_)))) + (_%__kont3816938170%_)) + (if (equal? _%e3332633454%_ '::) + (if (gx#stx-pair? _%tl3332133496%_) + (let ((_%e3333533382%_ + (gx#syntax-e _%tl3332133496%_))) + (let ((_%tl3333733389%_ (let () (declare (not safe)) - (##cdr _%e3323633283%_))) - (_%hd3323733287%_ + (##cdr _%e3333533382%_))) + (_%hd3333633386%_ (let () (declare (not safe)) - (##car _%e3323633283%_)))) - (if (gx#stx-pair? _%tl3323833290%_) - (let ((_%e3323933293%_ - (gx#syntax-e _%tl3323833290%_))) - (let ((_%tl3324133300%_ + (##car _%e3333533382%_)))) + (if (gx#stx-pair? _%tl3333733389%_) + (let ((_%e3333833392%_ + (gx#syntax-e _%tl3333733389%_))) + (let ((_%tl3334033399%_ (let () (declare (not safe)) - (##cdr _%e3323933293%_))) - (_%hd3324033297%_ + (##cdr _%e3333833392%_))) + (_%hd3333933396%_ (let () (declare (not safe)) - (##car _%e3323933293%_)))) - (if (gx#stx-datum? _%hd3324033297%_) - (let ((_%e3324233303%_ - (gx#stx-e _%hd3324033297%_))) - (if (equal? _%e3324233303%_ '=>:) + (##car _%e3333833392%_)))) + (if (gx#stx-datum? _%hd3333933396%_) + (let ((_%e3334133402%_ + (gx#stx-e _%hd3333933396%_))) + (if (equal? _%e3334133402%_ '=>:) (if (gx#stx-pair? - _%tl3324133300%_) - (let ((_%e3324333307%_ + _%tl3334033399%_) + (let ((_%e3334233406%_ (gx#syntax-e - _%tl3324133300%_))) - (let ((_%tl3324533314%_ + _%tl3334033399%_))) + (let ((_%tl3334433413%_ (let () (declare (not safe)) - (##cdr _%e3324333307%_))) - (_%hd3324433311%_ + (##cdr _%e3334233406%_))) + (_%hd3334333410%_ (let () (declare (not safe)) - (##car _%e3324333307%_)))) + (##car _%e3334233406%_)))) (if (gx#stx-null? - _%tl3324533314%_) - (_%__kont3806838069%_ - _%hd3324433311%_) - (_%__kont3807038071%_)))) - (_%__kont3807038071%_)) - (_%__kont3807038071%_))) - (_%__kont3807038071%_)))) - (_%__kont3807038071%_)))) - (_%__kont3807038071%_)) - (_%__kont3807038071%_)))) + _%tl3334433413%_) + (_%__kont3816738168%_ + _%hd3334333410%_) + (_%__kont3816938170%_)))) + (_%__kont3816938170%_)) + (_%__kont3816938170%_))) + (_%__kont3816938170%_)))) + (_%__kont3816938170%_)))) + (_%__kont3816938170%_)) + (_%__kont3816938170%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3807038071%_))))) - (_%__kont3807038071%_)))))) - (_%__kont3814638147%_ - (lambda (_%L33087%_ _%L33089%_) - (let* ((_%__stx3804538046%_ _%L33087%_) - (_%g3310533117%_ + (_%__kont3816938170%_))))) + (_%__kont3816938170%_)))))) + (_%__kont3824538246%_ + (lambda (_%L33186%_ _%L33188%_) + (let* ((_%__stx3814438145%_ _%L33186%_) + (_%g3320433216%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3804538046%_)))) - (let ((_%__kont3804838049%_ - (lambda (_%L33145%_ _%L33147%_) - (_%loop32157%_ - _%L33147%_ - _%vars32446%_ - (lambda (_%g3315933161%_) - (_%loop32157%_ - (cons _%L33089%_ _%L33145%_) - _%g3315933161%_ - _%K32447%_))))) - (_%__kont3805038051%_ + _%__stx3814438145%_)))) + (let ((_%__kont3814738148%_ + (lambda (_%L33244%_ _%L33246%_) + (_%loop32256%_ + _%L33246%_ + _%vars32545%_ + (lambda (_%g3325833260%_) + (_%loop32256%_ + (cons _%L33188%_ _%L33244%_) + _%g3325833260%_ + _%K32546%_))))) + (_%__kont3814938150%_ (lambda () - (_%K32447%_ _%vars32446%_)))) - (if (gx#stx-pair? _%__stx3804538046%_) - (let ((_%e3310933135%_ + (_%K32546%_ _%vars32545%_)))) + (if (gx#stx-pair? _%__stx3814438145%_) + (let ((_%e3320833234%_ (gx#syntax-e - _%__stx3804538046%_))) - (let ((_%tl3311133142%_ + _%__stx3814438145%_))) + (let ((_%tl3321033241%_ (let () (declare (not safe)) - (##cdr _%e3310933135%_))) - (_%hd3311033139%_ + (##cdr _%e3320833234%_))) + (_%hd3320933238%_ (let () (declare (not safe)) - (##car _%e3310933135%_)))) - (_%__kont3804838049%_ - _%tl3311133142%_ - _%hd3311033139%_))) - (_%__kont3805038051%_)))))) - (_%__kont3814838149%_ - (lambda (_%L33056%_) - (_%loop32157%_ - _%L33056%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3815038151%_ - (lambda (_%L33002%_ _%L33004%_) - (_%loop32157%_ - _%L33004%_ - _%vars32446%_ - (lambda (_%g3301933021%_) - (_%loop32157%_ - _%L33002%_ - _%g3301933021%_ - _%K32447%_))))) - (_%__kont3815238153%_ - (lambda (_%L32938%_ _%L32940%_) - (_%loop32157%_ - _%L32940%_ - _%vars32446%_ - (lambda (_%g3295532957%_) - (_%loop32157%_ - _%L32938%_ - _%g3295532957%_ - _%K32447%_))))) - (_%__kont3815438155%_ - (lambda (_%L32883%_) - (_%loop32157%_ - _%L32883%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3815638157%_ - (lambda (_%L32833%_ _%L32835%_) - (_%loop-vector32159%_ - _%L32833%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3815838159%_ - (lambda (_%L32790%_) - (_%loop-vector32159%_ - _%L32790%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3816038161%_ - (lambda (_%L32733%_) - (_%loop-class-list32161%_ - _%L32733%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3816238163%_ - (lambda (_%L32674%_ _%L32676%_) - (_%loop32157%_ - _%L32674%_ - _%vars32446%_ - _%K32447%_))) - (_%__kont3816438165%_ - (lambda (_%L32612%_) - (if (find (lambda (_%g3262732629%_) + (##car _%e3320833234%_)))) + (_%__kont3814738148%_ + _%tl3321033241%_ + _%hd3320933238%_))) + (_%__kont3814938150%_)))))) + (_%__kont3824738248%_ + (lambda (_%L33155%_) + (_%loop32256%_ + _%L33155%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3824938250%_ + (lambda (_%L33101%_ _%L33103%_) + (_%loop32256%_ + _%L33103%_ + _%vars32545%_ + (lambda (_%g3311833120%_) + (_%loop32256%_ + _%L33101%_ + _%g3311833120%_ + _%K32546%_))))) + (_%__kont3825138252%_ + (lambda (_%L33037%_ _%L33039%_) + (_%loop32256%_ + _%L33039%_ + _%vars32545%_ + (lambda (_%g3305433056%_) + (_%loop32256%_ + _%L33037%_ + _%g3305433056%_ + _%K32546%_))))) + (_%__kont3825338254%_ + (lambda (_%L32982%_) + (_%loop32256%_ + _%L32982%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3825538256%_ + (lambda (_%L32932%_ _%L32934%_) + (_%loop-vector32258%_ + _%L32932%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3825738258%_ + (lambda (_%L32889%_) + (_%loop-vector32258%_ + _%L32889%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3825938260%_ + (lambda (_%L32832%_) + (_%loop-class-list32260%_ + _%L32832%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3826138262%_ + (lambda (_%L32773%_ _%L32775%_) + (_%loop32256%_ + _%L32773%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3826338264%_ + (lambda (_%L32711%_) + (if (find (lambda (_%g3272632728%_) (gx#bound-identifier=? - _%g3262732629%_ - _%L32612%_)) - _%vars32446%_) - (_%K32447%_ _%vars32446%_) - (_%K32447%_ - (cons _%L32612%_ _%vars32446%_))))) - (_%__kont3816638167%_ - (lambda () (_%K32447%_ _%vars32446%_)))) - (let* ((_%__match3829838299%_ - (lambda (_%e3251732813%_ - _%hd3251832817%_ - _%tl3251932820%_ - _%e3252032823%_ - _%hd3252132827%_ - _%tl3252232830%_) - (let ((_%L32833%_ _%hd3252132827%_) - (_%L32835%_ _%hd3251832817%_)) - (if (or (gx#stx-eq? 'values: _%L32835%_) - (gx#stx-eq? 'vector: _%L32835%_)) - (_%__kont3815638157%_ - _%L32833%_ - _%L32835%_) - (if (gx#stx-datum? _%hd3251832817%_) - (let ((_%e3252732766%_ + _%g3272632728%_ + _%L32711%_)) + _%vars32545%_) + (_%K32546%_ _%vars32545%_) + (_%K32546%_ + (cons _%L32711%_ _%vars32545%_))))) + (_%__kont3826538266%_ + (lambda () (_%K32546%_ _%vars32545%_)))) + (let* ((_%__match3839738398%_ + (lambda (_%e3261632912%_ + _%hd3261732916%_ + _%tl3261832919%_ + _%e3261932922%_ + _%hd3262032926%_ + _%tl3262132929%_) + (let ((_%L32932%_ _%hd3262032926%_) + (_%L32934%_ _%hd3261732916%_)) + (if (or (gx#stx-eq? 'values: _%L32934%_) + (gx#stx-eq? 'vector: _%L32934%_)) + (_%__kont3825538256%_ + _%L32932%_ + _%L32934%_) + (if (gx#stx-datum? _%hd3261732916%_) + (let ((_%e3262632865%_ (gx#stx-e - _%hd3251832817%_))) - (if (equal? _%e3252732766%_ + _%hd3261732916%_))) + (if (equal? _%e3262632865%_ 'struct:) - (_%__kont3816638167%_) - (if (equal? _%e3252732766%_ + (_%__kont3826538266%_) + (if (equal? _%e3262632865%_ 'class:) - (_%__kont3816638167%_) - (if (equal? _%e3252732766%_ + (_%__kont3826538266%_) + (if (equal? _%e3262632865%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'apply:) - (_%__kont3816638167%_) - (if (equal? _%e3252732766%_ 'var:) - (_%__kont3816438165%_ _%hd3252132827%_) - (_%__kont3816638167%_)))))) + (_%__kont3826538266%_) + (if (equal? _%e3262632865%_ 'var:) + (_%__kont3826338264%_ _%hd3262032926%_) + (_%__kont3826538266%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3816638167%_)))))) - (_%__match3819238193%_ - (lambda (_%e3247233077%_ - _%hd3247333081%_ - _%tl3247433084%_) - (let ((_%L33087%_ _%tl3247433084%_) - (_%L33089%_ _%hd3247333081%_)) - (if (or (gx#stx-eq? 'and: _%L33089%_) - (gx#stx-eq? 'or: _%L33089%_)) - (_%__kont3814638147%_ - _%L33087%_ - _%L33089%_) - (if (gx#stx-datum? _%hd3247333081%_) - (let ((_%e3247933042%_ + (_%__kont3826538266%_)))))) + (_%__match3829138292%_ + (lambda (_%e3257133176%_ + _%hd3257233180%_ + _%tl3257333183%_) + (let ((_%L33186%_ _%tl3257333183%_) + (_%L33188%_ _%hd3257233180%_)) + (if (or (gx#stx-eq? 'and: _%L33188%_) + (gx#stx-eq? 'or: _%L33188%_)) + (_%__kont3824538246%_ + _%L33186%_ + _%L33188%_) + (if (gx#stx-datum? _%hd3257233180%_) + (let ((_%e3257833141%_ (gx#stx-e - _%hd3247333081%_))) - (if (equal? _%e3247933042%_ + _%hd3257233180%_))) + (if (equal? _%e3257833141%_ 'not:) (if (gx#stx-pair? - _%tl3247433084%_) - (let ((_%e3248033046%_ + _%tl3257333183%_) + (let ((_%e3257933145%_ (gx#syntax-e - _%tl3247433084%_))) - (let ((_%tl3248233053%_ + _%tl3257333183%_))) + (let ((_%tl3258133152%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3248033046%_))) - (_%hd3248133050%_ - (let () (declare (not safe)) (##car _%e3248033046%_)))) - (if (gx#stx-null? _%tl3248233053%_) - (_%__kont3814838149%_ _%hd3248133050%_) - (_%__kont3816638167%_)))) - (_%__kont3816638167%_)) + (##cdr _%e3257933145%_))) + (_%hd3258033149%_ + (let () (declare (not safe)) (##car _%e3257933145%_)))) + (if (gx#stx-null? _%tl3258133152%_) + (_%__kont3824738248%_ _%hd3258033149%_) + (_%__kont3826538266%_)))) + (_%__kont3826538266%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e3247933042%_ + (if (equal? _%e3257833141%_ 'cons:) (if (gx#stx-pair? - _%tl3247433084%_) - (let ((_%e3248932982%_ + _%tl3257333183%_) + (let ((_%e3258833081%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3247433084%_))) - (let ((_%tl3249132989%_ + (gx#syntax-e _%tl3257333183%_))) + (let ((_%tl3259033088%_ (let () (declare (not safe)) - (##cdr _%e3248932982%_))) - (_%hd3249032986%_ + (##cdr _%e3258833081%_))) + (_%hd3258933085%_ (let () (declare (not safe)) - (##car _%e3248932982%_)))) - (if (gx#stx-pair? _%tl3249132989%_) - (let ((_%e3249232992%_ - (gx#syntax-e _%tl3249132989%_))) - (let ((_%tl3249432999%_ + (##car _%e3258833081%_)))) + (if (gx#stx-pair? _%tl3259033088%_) + (let ((_%e3259133091%_ + (gx#syntax-e _%tl3259033088%_))) + (let ((_%tl3259333098%_ (let () (declare (not safe)) - (##cdr _%e3249232992%_))) - (_%hd3249332996%_ + (##cdr _%e3259133091%_))) + (_%hd3259233095%_ (let () (declare (not safe)) - (##car _%e3249232992%_)))) - (if (gx#stx-null? _%tl3249432999%_) - (_%__kont3815038151%_ - _%hd3249332996%_ - _%hd3249032986%_) - (_%__kont3816638167%_)))) - (if (gx#stx-null? _%tl3249132989%_) - (_%__match3829838299%_ - _%e3247233077%_ - _%hd3247333081%_ - _%tl3247433084%_ - _%e3248932982%_ - _%hd3249032986%_ - _%tl3249132989%_) - (_%__kont3816638167%_))))) - (_%__kont3816638167%_)) - (if (equal? _%e3247933042%_ 'splice:) - (if (gx#stx-pair? _%tl3247433084%_) - (let ((_%e3250132918%_ (gx#syntax-e _%tl3247433084%_))) - (let ((_%tl3250332925%_ + (##car _%e3259133091%_)))) + (if (gx#stx-null? _%tl3259333098%_) + (_%__kont3824938250%_ + _%hd3259233095%_ + _%hd3258933085%_) + (_%__kont3826538266%_)))) + (if (gx#stx-null? _%tl3259033088%_) + (_%__match3839738398%_ + _%e3257133176%_ + _%hd3257233180%_ + _%tl3257333183%_ + _%e3258833081%_ + _%hd3258933085%_ + _%tl3259033088%_) + (_%__kont3826538266%_))))) + (_%__kont3826538266%_)) + (if (equal? _%e3257833141%_ 'splice:) + (if (gx#stx-pair? _%tl3257333183%_) + (let ((_%e3260033017%_ (gx#syntax-e _%tl3257333183%_))) + (let ((_%tl3260233024%_ (let () (declare (not safe)) - (##cdr _%e3250132918%_))) - (_%hd3250232922%_ + (##cdr _%e3260033017%_))) + (_%hd3260133021%_ (let () (declare (not safe)) - (##car _%e3250132918%_)))) - (if (gx#stx-pair? _%tl3250332925%_) - (let ((_%e3250432928%_ - (gx#syntax-e _%tl3250332925%_))) - (let ((_%tl3250632935%_ + (##car _%e3260033017%_)))) + (if (gx#stx-pair? _%tl3260233024%_) + (let ((_%e3260333027%_ + (gx#syntax-e _%tl3260233024%_))) + (let ((_%tl3260533034%_ (let () (declare (not safe)) - (##cdr _%e3250432928%_))) - (_%hd3250532932%_ + (##cdr _%e3260333027%_))) + (_%hd3260433031%_ (let () (declare (not safe)) - (##car _%e3250432928%_)))) - (if (gx#stx-null? _%tl3250632935%_) - (_%__kont3815238153%_ - _%hd3250532932%_ - _%hd3250232922%_) - (_%__kont3816638167%_)))) - (if (gx#stx-null? _%tl3250332925%_) - (_%__match3829838299%_ - _%e3247233077%_ - _%hd3247333081%_ - _%tl3247433084%_ - _%e3250132918%_ - _%hd3250232922%_ - _%tl3250332925%_) - (_%__kont3816638167%_))))) - (_%__kont3816638167%_)) - (if (equal? _%e3247933042%_ 'box:) - (if (gx#stx-pair? _%tl3247433084%_) - (let ((_%e3251232873%_ - (gx#syntax-e _%tl3247433084%_))) - (let ((_%tl3251432880%_ + (##car _%e3260333027%_)))) + (if (gx#stx-null? _%tl3260533034%_) + (_%__kont3825138252%_ + _%hd3260433031%_ + _%hd3260133021%_) + (_%__kont3826538266%_)))) + (if (gx#stx-null? _%tl3260233024%_) + (_%__match3839738398%_ + _%e3257133176%_ + _%hd3257233180%_ + _%tl3257333183%_ + _%e3260033017%_ + _%hd3260133021%_ + _%tl3260233024%_) + (_%__kont3826538266%_))))) + (_%__kont3826538266%_)) + (if (equal? _%e3257833141%_ 'box:) + (if (gx#stx-pair? _%tl3257333183%_) + (let ((_%e3261132972%_ + (gx#syntax-e _%tl3257333183%_))) + (let ((_%tl3261332979%_ (let () (declare (not safe)) - (##cdr _%e3251232873%_))) - (_%hd3251332877%_ + (##cdr _%e3261132972%_))) + (_%hd3261232976%_ (let () (declare (not safe)) - (##car _%e3251232873%_)))) - (if (gx#stx-null? _%tl3251432880%_) - (_%__kont3815438155%_ _%hd3251332877%_) - (_%__kont3816638167%_)))) - (_%__kont3816638167%_)) - (if (gx#stx-pair? _%tl3247433084%_) - (let ((_%e3252032823%_ - (gx#syntax-e _%tl3247433084%_))) - (let ((_%tl3252232830%_ + (##car _%e3261132972%_)))) + (if (gx#stx-null? _%tl3261332979%_) + (_%__kont3825338254%_ _%hd3261232976%_) + (_%__kont3826538266%_)))) + (_%__kont3826538266%_)) + (if (gx#stx-pair? _%tl3257333183%_) + (let ((_%e3261932922%_ + (gx#syntax-e _%tl3257333183%_))) + (let ((_%tl3262132929%_ (let () (declare (not safe)) - (##cdr _%e3252032823%_))) - (_%hd3252132827%_ + (##cdr _%e3261932922%_))) + (_%hd3262032926%_ (let () (declare (not safe)) - (##car _%e3252032823%_)))) - (if (gx#stx-null? _%tl3252232830%_) - (_%__match3829838299%_ - _%e3247233077%_ - _%hd3247333081%_ - _%tl3247433084%_ - _%e3252032823%_ - _%hd3252132827%_ - _%tl3252232830%_) - (if (equal? _%e3247933042%_ 'struct:) - (if (gx#stx-pair? _%tl3252232830%_) - (let ((_%e3253132780%_ + (##car _%e3261932922%_)))) + (if (gx#stx-null? _%tl3262132929%_) + (_%__match3839738398%_ + _%e3257133176%_ + _%hd3257233180%_ + _%tl3257333183%_ + _%e3261932922%_ + _%hd3262032926%_ + _%tl3262132929%_) + (if (equal? _%e3257833141%_ 'struct:) + (if (gx#stx-pair? _%tl3262132929%_) + (let ((_%e3263032879%_ (gx#syntax-e - _%tl3252232830%_))) - (let ((_%tl3253332787%_ + _%tl3262132929%_))) + (let ((_%tl3263232886%_ (let () (declare (not safe)) - (##cdr _%e3253132780%_))) - (_%hd3253232784%_ + (##cdr _%e3263032879%_))) + (_%hd3263132883%_ (let () (declare (not safe)) - (##car _%e3253132780%_)))) + (##car _%e3263032879%_)))) (if (gx#stx-null? - _%tl3253332787%_) - (_%__kont3815838159%_ - _%hd3253232784%_) - (_%__kont3816638167%_)))) - (_%__kont3816638167%_)) - (if (equal? _%e3247933042%_ 'class:) - (if (gx#stx-pair? _%tl3252232830%_) - (let ((_%e3254232723%_ + _%tl3263232886%_) + (_%__kont3825738258%_ + _%hd3263132883%_) + (_%__kont3826538266%_)))) + (_%__kont3826538266%_)) + (if (equal? _%e3257833141%_ 'class:) + (if (gx#stx-pair? _%tl3262132929%_) + (let ((_%e3264132822%_ (gx#syntax-e - _%tl3252232830%_))) - (let ((_%tl3254432730%_ + _%tl3262132929%_))) + (let ((_%tl3264332829%_ (let () (declare (not safe)) - (##cdr _%e3254232723%_))) - (_%hd3254332727%_ + (##cdr _%e3264132822%_))) + (_%hd3264232826%_ (let () (declare (not safe)) - (##car _%e3254232723%_)))) + (##car _%e3264132822%_)))) (if (gx#stx-null? - _%tl3254432730%_) - (_%__kont3816038161%_ - _%hd3254332727%_) - (_%__kont3816638167%_)))) - (_%__kont3816638167%_)) - (if (equal? _%e3247933042%_ 'apply:) + _%tl3264332829%_) + (_%__kont3825938260%_ + _%hd3264232826%_) + (_%__kont3826538266%_)))) + (_%__kont3826538266%_)) + (if (equal? _%e3257833141%_ 'apply:) (if (gx#stx-pair? - _%tl3252232830%_) - (let ((_%e3255432664%_ + _%tl3262132929%_) + (let ((_%e3265332763%_ (gx#syntax-e - _%tl3252232830%_))) - (let ((_%tl3255632671%_ + _%tl3262132929%_))) + (let ((_%tl3265532770%_ (let () (declare (not safe)) - (##cdr _%e3255432664%_))) - (_%hd3255532668%_ + (##cdr _%e3265332763%_))) + (_%hd3265432767%_ (let () (declare (not safe)) - (##car _%e3255432664%_)))) + (##car _%e3265332763%_)))) (if (gx#stx-null? - _%tl3255632671%_) - (_%__kont3816238163%_ - _%hd3255532668%_ - _%hd3252132827%_) - (_%__kont3816638167%_)))) - (_%__kont3816638167%_)) - (_%__kont3816638167%_))))))) - (_%__kont3816638167%_))))))) + _%tl3265532770%_) + (_%__kont3826138262%_ + _%hd3265432767%_ + _%hd3262032926%_) + (_%__kont3826538266%_)))) + (_%__kont3826538266%_)) + (_%__kont3826538266%_))))))) + (_%__kont3826538266%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl3247433084%_) - (let ((_%e3252032823%_ + (if (gx#stx-pair? _%tl3257333183%_) + (let ((_%e3261932922%_ (gx#syntax-e - _%tl3247433084%_))) - (let ((_%tl3252232830%_ + _%tl3257333183%_))) + (let ((_%tl3262132929%_ (let () (declare (not safe)) - (##cdr _%e3252032823%_))) - (_%hd3252132827%_ + (##cdr _%e3261932922%_))) + (_%hd3262032926%_ (let () (declare (not safe)) - (##car _%e3252032823%_)))) + (##car _%e3261932922%_)))) (if (gx#stx-null? - _%tl3252232830%_) - (_%__match3829838299%_ - _%e3247233077%_ - _%hd3247333081%_ - _%tl3247433084%_ - _%e3252032823%_ - _%hd3252132827%_ - _%tl3252232830%_) - (_%__kont3816638167%_)))) - (_%__kont3816638167%_)))))))) - (if (gx#stx-pair? _%__stx3814138142%_) - (let ((_%e3246333176%_ - (gx#syntax-e _%__stx3814138142%_))) - (let ((_%tl3246533183%_ + _%tl3262132929%_) + (_%__match3839738398%_ + _%e3257133176%_ + _%hd3257233180%_ + _%tl3257333183%_ + _%e3261932922%_ + _%hd3262032926%_ + _%tl3262132929%_) + (_%__kont3826538266%_)))) + (_%__kont3826538266%_)))))))) + (if (gx#stx-pair? _%__stx3824038241%_) + (let ((_%e3256233275%_ + (gx#syntax-e _%__stx3824038241%_))) + (let ((_%tl3256433282%_ (let () (declare (not safe)) - (##cdr _%e3246333176%_))) - (_%hd3246433180%_ + (##cdr _%e3256233275%_))) + (_%hd3256333279%_ (let () (declare (not safe)) - (##car _%e3246333176%_)))) - (if (gx#stx-datum? _%hd3246433180%_) - (let ((_%e3246633186%_ - (gx#stx-e _%hd3246433180%_))) - (if (equal? _%e3246633186%_ '?:) - (if (gx#stx-pair? _%tl3246533183%_) - (let ((_%e3246733190%_ + (##car _%e3256233275%_)))) + (if (gx#stx-datum? _%hd3256333279%_) + (let ((_%e3256533285%_ + (gx#stx-e _%hd3256333279%_))) + (if (equal? _%e3256533285%_ '?:) + (if (gx#stx-pair? _%tl3256433282%_) + (let ((_%e3256633289%_ (gx#syntax-e - _%tl3246533183%_))) - (let ((_%tl3246933197%_ + _%tl3256433282%_))) + (let ((_%tl3256833296%_ (let () (declare (not safe)) - (##cdr _%e3246733190%_))) - (_%hd3246833194%_ + (##cdr _%e3256633289%_))) + (_%hd3256733293%_ (let () (declare (not safe)) - (##car _%e3246733190%_)))) - (_%__kont3814438145%_ - _%tl3246933197%_))) - (_%__match3819238193%_ - _%e3246333176%_ - _%hd3246433180%_ - _%tl3246533183%_)) - (_%__match3819238193%_ - _%e3246333176%_ - _%hd3246433180%_ - _%tl3246533183%_))) - (_%__match3819238193%_ - _%e3246333176%_ - _%hd3246433180%_ - _%tl3246533183%_)))) - (_%__kont3816638167%_))))))) - (_%loop-vector32159%_ - (lambda (_%body32320%_ _%vars32322%_ _%K32323%_) - (let* ((_%__stx3839938400%_ _%body32320%_) - (_%g3232632349%_ + (##car _%e3256633289%_)))) + (_%__kont3824338244%_ + _%tl3256833296%_))) + (_%__match3829138292%_ + _%e3256233275%_ + _%hd3256333279%_ + _%tl3256433282%_)) + (_%__match3829138292%_ + _%e3256233275%_ + _%hd3256333279%_ + _%tl3256433282%_))) + (_%__match3829138292%_ + _%e3256233275%_ + _%hd3256333279%_ + _%tl3256433282%_)))) + (_%__kont3826538266%_))))))) + (_%loop-vector32258%_ + (lambda (_%body32419%_ _%vars32421%_ _%K32422%_) + (let* ((_%__stx3849838499%_ _%body32419%_) + (_%g3242532448%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3839938400%_)))) - (let ((_%__kont3840238403%_ - (lambda (_%L32426%_) - (_%loop-list32160%_ - _%L32426%_ - _%vars32322%_ - _%K32323%_))) - (_%__kont3840438405%_ - (lambda (_%L32380%_) - (_%loop32157%_ - _%L32380%_ - _%vars32322%_ - _%K32323%_)))) - (if (gx#stx-pair? _%__stx3839938400%_) - (let ((_%e3232932402%_ - (gx#syntax-e _%__stx3839938400%_))) - (let ((_%tl3233132409%_ + _%__stx3849838499%_)))) + (let ((_%__kont3850138502%_ + (lambda (_%L32525%_) + (_%loop-list32259%_ + _%L32525%_ + _%vars32421%_ + _%K32422%_))) + (_%__kont3850338504%_ + (lambda (_%L32479%_) + (_%loop32256%_ + _%L32479%_ + _%vars32421%_ + _%K32422%_)))) + (if (gx#stx-pair? _%__stx3849838499%_) + (let ((_%e3242832501%_ + (gx#syntax-e _%__stx3849838499%_))) + (let ((_%tl3243032508%_ (let () (declare (not safe)) - (##cdr _%e3232932402%_))) - (_%hd3233032406%_ + (##cdr _%e3242832501%_))) + (_%hd3242932505%_ (let () (declare (not safe)) - (##car _%e3232932402%_)))) - (if (gx#stx-datum? _%hd3233032406%_) - (let ((_%e3233232412%_ - (gx#stx-e _%hd3233032406%_))) - (if (equal? _%e3233232412%_ 'simple:) - (if (gx#stx-pair? _%tl3233132409%_) - (let ((_%e3233332416%_ + (##car _%e3242832501%_)))) + (if (gx#stx-datum? _%hd3242932505%_) + (let ((_%e3243132511%_ + (gx#stx-e _%hd3242932505%_))) + (if (equal? _%e3243132511%_ 'simple:) + (if (gx#stx-pair? _%tl3243032508%_) + (let ((_%e3243232515%_ (gx#syntax-e - _%tl3233132409%_))) - (let ((_%tl3233532423%_ + _%tl3243032508%_))) + (let ((_%tl3243432522%_ (let () (declare (not safe)) - (##cdr _%e3233332416%_))) - (_%hd3233432420%_ + (##cdr _%e3243232515%_))) + (_%hd3243332519%_ (let () (declare (not safe)) - (##car _%e3233332416%_)))) + (##car _%e3243232515%_)))) (if (gx#stx-null? - _%tl3233532423%_) - (_%__kont3840238403%_ - _%hd3233432420%_) + _%tl3243432522%_) + (_%__kont3850138502%_ + _%hd3243332519%_) (let () (declare (not safe)) - (_%g3232632349%_))))) + (_%g3242532448%_))))) (let () (declare (not safe)) - (_%g3232632349%_))) - (if (equal? _%e3233232412%_ 'list:) + (_%g3242532448%_))) + (if (equal? _%e3243132511%_ 'list:) (if (gx#stx-pair? - _%tl3233132409%_) - (let ((_%e3234132370%_ + _%tl3243032508%_) + (let ((_%e3244032469%_ (gx#syntax-e - _%tl3233132409%_))) - (let ((_%tl3234332377%_ + _%tl3243032508%_))) + (let ((_%tl3244232476%_ (let () (declare (not safe)) - (##cdr _%e3234132370%_))) - (_%hd3234232374%_ + (##cdr _%e3244032469%_))) + (_%hd3244132473%_ (let () (declare (not safe)) - (##car _%e3234132370%_)))) + (##car _%e3244032469%_)))) (if (gx#stx-null? - _%tl3234332377%_) - (_%__kont3840438405%_ - _%hd3234232374%_) + _%tl3244232476%_) + (_%__kont3850338504%_ + _%hd3244132473%_) (let () (declare (not safe)) - (_%g3232632349%_))))) + (_%g3242532448%_))))) (let () (declare (not safe)) - (_%g3232632349%_))) + (_%g3242532448%_))) (let () (declare (not safe)) - (_%g3232632349%_))))) + (_%g3242532448%_))))) (let () (declare (not safe)) - (_%g3232632349%_))))) + (_%g3242532448%_))))) (let () (declare (not safe)) - (_%g3232632349%_))))))) - (_%loop-list32160%_ - (lambda (_%rest32250%_ _%vars32252%_ _%K32253%_) - (let* ((_%__stx3844938450%_ _%rest32250%_) - (_%g3225632268%_ + (_%g3242532448%_))))))) + (_%loop-list32259%_ + (lambda (_%rest32349%_ _%vars32351%_ _%K32352%_) + (let* ((_%__stx3854838549%_ _%rest32349%_) + (_%g3235532367%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3844938450%_)))) - (let ((_%__kont3845238453%_ - (lambda (_%L32296%_ _%L32298%_) - (_%loop32157%_ - _%L32298%_ - _%vars32252%_ - (lambda (_%g3231032312%_) - (_%loop-list32160%_ - _%L32296%_ - _%g3231032312%_ - _%K32253%_))))) - (_%__kont3845438455%_ - (lambda () (_%K32253%_ _%vars32252%_)))) - (if (gx#stx-pair? _%__stx3844938450%_) - (let ((_%e3226032286%_ - (gx#syntax-e _%__stx3844938450%_))) - (let ((_%tl3226232293%_ + _%__stx3854838549%_)))) + (let ((_%__kont3855138552%_ + (lambda (_%L32395%_ _%L32397%_) + (_%loop32256%_ + _%L32397%_ + _%vars32351%_ + (lambda (_%g3240932411%_) + (_%loop-list32259%_ + _%L32395%_ + _%g3240932411%_ + _%K32352%_))))) + (_%__kont3855338554%_ + (lambda () (_%K32352%_ _%vars32351%_)))) + (if (gx#stx-pair? _%__stx3854838549%_) + (let ((_%e3235932385%_ + (gx#syntax-e _%__stx3854838549%_))) + (let ((_%tl3236132392%_ (let () (declare (not safe)) - (##cdr _%e3226032286%_))) - (_%hd3226132290%_ + (##cdr _%e3235932385%_))) + (_%hd3236032389%_ (let () (declare (not safe)) - (##car _%e3226032286%_)))) - (_%__kont3845238453%_ - _%tl3226232293%_ - _%hd3226132290%_))) - (_%__kont3845438455%_)))))) - (_%loop-class-list32161%_ - (lambda (_%rest32163%_ _%vars32165%_ _%K32166%_) - (let* ((_%__stx3846538466%_ _%rest32163%_) - (_%g3216932184%_ + (##car _%e3235932385%_)))) + (_%__kont3855138552%_ + _%tl3236132392%_ + _%hd3236032389%_))) + (_%__kont3855338554%_)))))) + (_%loop-class-list32260%_ + (lambda (_%rest32262%_ _%vars32264%_ _%K32265%_) + (let* ((_%__stx3856438565%_ _%rest32262%_) + (_%g3226832283%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3846538466%_)))) - (let ((_%__kont3846838469%_ - (lambda (_%L32222%_ _%L32224%_) - (_%loop32157%_ - _%L32224%_ - _%vars32165%_ - (lambda (_%g3224032242%_) - (_%loop-class-list32161%_ - _%L32222%_ - _%g3224032242%_ - _%K32166%_))))) - (_%__kont3847038471%_ - (lambda () (_%K32166%_ _%vars32165%_)))) - (if (gx#stx-pair? _%__stx3846538466%_) - (let ((_%e3217332202%_ - (gx#syntax-e _%__stx3846538466%_))) - (let ((_%tl3217532209%_ + _%__stx3856438565%_)))) + (let ((_%__kont3856738568%_ + (lambda (_%L32321%_ _%L32323%_) + (_%loop32256%_ + _%L32323%_ + _%vars32264%_ + (lambda (_%g3233932341%_) + (_%loop-class-list32260%_ + _%L32321%_ + _%g3233932341%_ + _%K32265%_))))) + (_%__kont3856938570%_ + (lambda () (_%K32265%_ _%vars32264%_)))) + (if (gx#stx-pair? _%__stx3856438565%_) + (let ((_%e3227232301%_ + (gx#syntax-e _%__stx3856438565%_))) + (let ((_%tl3227432308%_ (let () (declare (not safe)) - (##cdr _%e3217332202%_))) - (_%hd3217432206%_ + (##cdr _%e3227232301%_))) + (_%hd3227332305%_ (let () (declare (not safe)) - (##car _%e3217332202%_)))) - (if (gx#stx-pair? _%tl3217532209%_) - (let ((_%e3217632212%_ - (gx#syntax-e _%tl3217532209%_))) - (let ((_%tl3217832219%_ + (##car _%e3227232301%_)))) + (if (gx#stx-pair? _%tl3227432308%_) + (let ((_%e3227532311%_ + (gx#syntax-e _%tl3227432308%_))) + (let ((_%tl3227732318%_ (let () (declare (not safe)) - (##cdr _%e3217632212%_))) - (_%hd3217732216%_ + (##cdr _%e3227532311%_))) + (_%hd3227632315%_ (let () (declare (not safe)) - (##car _%e3217632212%_)))) - (_%__kont3846838469%_ - _%tl3217832219%_ - _%hd3217732216%_))) - (_%__kont3847038471%_)))) - (_%__kont3847038471%_))))))) - (_%loop32157%_ _%ptree32154%_ '() values)))) + (##car _%e3227532311%_)))) + (_%__kont3856738568%_ + _%tl3227732318%_ + _%hd3227632315%_))) + (_%__kont3856938570%_)))) + (_%__kont3856938570%_))))))) + (_%loop32256%_ _%ptree32253%_ '() values)))) (define |gerbil/core/match[1]#generate-match1| - (lambda (_%stx29099%_ _%tgt29101%_ _%ptree29102%_ _%K29103%_ _%E29104%_) - (letrec ((_%generate129106%_ - (lambda (_%tgt30353%_ _%ptree30355%_ _%K30356%_ _%E30357%_) - (let* ((_%g3035930367%_ - (lambda (_%g3036030363%_) + (lambda (_%stx29198%_ _%tgt29200%_ _%ptree29201%_ _%K29202%_ _%E29203%_) + (letrec ((_%generate129205%_ + (lambda (_%tgt30452%_ _%ptree30454%_ _%K30455%_ _%E30456%_) + (let* ((_%g3045830466%_ + (lambda (_%g3045930462%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3036030363%_))) - (_%g3035832150%_ - (lambda (_%g3036030371%_) - ((lambda (_%L30374%_) - (let* ((_%__stx3870138702%_ _%ptree30355%_) - (_%g3040130543%_ + _%g3045930462%_))) + (_%g3045732249%_ + (lambda (_%g3045930470%_) + ((lambda (_%L30473%_) + (let* ((_%__stx3880038801%_ _%ptree30454%_) + (_%g3050030642%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3870138702%_)))) - (let ((_%__kont3870438705%_ - (lambda (_%L31865%_ _%L31867%_) - (let* ((_%__stx3861938620%_ - _%L31865%_) - (_%g3188431919%_ + _%__stx3880038801%_)))) + (let ((_%__kont3880338804%_ + (lambda (_%L31964%_ _%L31966%_) + (let* ((_%__stx3871838719%_ + _%L31964%_) + (_%g3198332018%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3861938620%_)))) - (let ((_%__kont3862238623%_ + _%__stx3871838719%_)))) + (let ((_%__kont3872138722%_ (lambda () (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '?) - (cons _%L31867%_ (cons _%L30374%_ '()))) - (cons _%K30356%_ (cons _%E30357%_ '())))))) + (cons _%L31966%_ (cons _%L30473%_ '()))) + (cons _%K30455%_ (cons _%E30456%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3862438625%_ - (lambda (_%L32120%_) + (_%__kont3872338724%_ + (lambda (_%L32219%_) (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '?) - (cons _%L31867%_ (cons _%L30374%_ '()))) - (cons (_%generate129106%_ - _%tgt30353%_ - _%L32120%_ - _%K30356%_ - _%E30357%_) - (cons _%E30357%_ '())))))) + (cons _%L31966%_ (cons _%L30473%_ '()))) + (cons (_%generate129205%_ + _%tgt30452%_ + _%L32219%_ + _%K30455%_ + _%E30456%_) + (cons _%E30456%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3862638627%_ - (lambda (_%L32058%_) - (let* ((_%g3207232080%_ - (lambda (_%g3207332076%_) + (_%__kont3872538726%_ + (lambda (_%L32157%_) + (let* ((_%g3217132179%_ + (lambda (_%g3217232175%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3207332076%_))) - (_%g3207132099%_ - (lambda (_%g3207332084%_) - ((lambda (_%L32087%_) + _%g3217232175%_))) + (_%g3217032198%_ + (lambda (_%g3217232183%_) + ((lambda (_%L32186%_) (cons 'let - (cons (cons (cons _%L32087%_ - (cons (cons _%L31867%_ - (cons _%L30374%_ + (cons (cons (cons _%L32186%_ + (cons (cons _%L31966%_ + (cons _%L30473%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons 'if - (cons _%L32087%_ - (cons (_%generate129106%_ + (cons _%L32186%_ + (cons (_%generate129205%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L32087%_ - _%L32058%_ - _%K30356%_ - _%E30357%_) - (cons _%E30357%_ '())))) + _%L32186%_ + _%L32157%_ + _%K30455%_ + _%E30456%_) + (cons _%E30456%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g3207332084%_)))) - (_%g3207132099%_ (gx#genident 'e))))) + _%g3217232183%_)))) + (_%g3217032198%_ (gx#genident 'e))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3862838629%_ - (lambda (_%L31974%_ - _%L31976%_) - (let* ((_%g3199632004%_ - (lambda (_%g3199732000%_) + (_%__kont3872738728%_ + (lambda (_%L32073%_ + _%L32075%_) + (let* ((_%g3209532103%_ + (lambda (_%g3209632099%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3199732000%_))) - (_%g3199532023%_ - (lambda (_%g3199732008%_) - ((lambda (_%L32011%_) + _%g3209632099%_))) + (_%g3209432122%_ + (lambda (_%g3209632107%_) + ((lambda (_%L32110%_) (cons 'if (cons (cons (gx#datum->syntax '#f '?) - (cons _%L31867%_ - (cons _%L30374%_ '()))) + (cons _%L31966%_ + (cons _%L30473%_ '()))) (cons (cons 'let - (cons (cons (cons _%L32011%_ + (cons (cons (cons _%L32110%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L31976%_ (cons _%L30374%_ '())) + (cons (cons _%L32075%_ (cons _%L30473%_ '())) '())) '()) - (cons (_%generate129106%_ - _%L32011%_ - _%L31974%_ - _%K30356%_ - _%E30357%_) + (cons (_%generate129205%_ + _%L32110%_ + _%L32073%_ + _%K30455%_ + _%E30456%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%E30357%_ '()))))) - _%g3199732008%_)))) - (_%g3199532023%_ (gx#genident 'e)))))) + (cons _%E30456%_ '()))))) + _%g3209632107%_)))) + (_%g3209432122%_ (gx#genident 'e)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%g3188132131%_ + (let ((_%g3198032230%_ (lambda () (if (gx#stx-pair? - _%__stx3861938620%_) - (let ((_%e3188732110%_ + _%__stx3871838719%_) + (let ((_%e3198632209%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%__stx3861938620%_))) - (let ((_%tl3188932117%_ + (gx#syntax-e _%__stx3871838719%_))) + (let ((_%tl3198832216%_ (let () (declare (not safe)) - (##cdr _%e3188732110%_))) - (_%hd3188832114%_ + (##cdr _%e3198632209%_))) + (_%hd3198732213%_ (let () (declare (not safe)) - (##car _%e3188732110%_)))) - (if (gx#stx-null? _%tl3188932117%_) - (_%__kont3862438625%_ _%hd3188832114%_) - (if (gx#stx-datum? _%hd3188832114%_) - (let ((_%e3189432044%_ - (gx#stx-e _%hd3188832114%_))) - (if (equal? _%e3189432044%_ '=>:) - (if (gx#stx-pair? _%tl3188932117%_) - (let ((_%e3189532048%_ + (##car _%e3198632209%_)))) + (if (gx#stx-null? _%tl3198832216%_) + (_%__kont3872338724%_ _%hd3198732213%_) + (if (gx#stx-datum? _%hd3198732213%_) + (let ((_%e3199332143%_ + (gx#stx-e _%hd3198732213%_))) + (if (equal? _%e3199332143%_ '=>:) + (if (gx#stx-pair? _%tl3198832216%_) + (let ((_%e3199432147%_ (gx#syntax-e - _%tl3188932117%_))) - (let ((_%tl3189732055%_ + _%tl3198832216%_))) + (let ((_%tl3199632154%_ (let () (declare (not safe)) - (##cdr _%e3189532048%_))) - (_%hd3189632052%_ + (##cdr _%e3199432147%_))) + (_%hd3199532151%_ (let () (declare (not safe)) - (##car _%e3189532048%_)))) + (##car _%e3199432147%_)))) (if (gx#stx-null? - _%tl3189732055%_) - (_%__kont3862638627%_ - _%hd3189632052%_) + _%tl3199632154%_) + (_%__kont3872538726%_ + _%hd3199532151%_) (let () (declare (not safe)) - (_%g3188431919%_))))) + (_%g3198332018%_))))) (let () (declare (not safe)) - (_%g3188431919%_))) - (if (equal? _%e3189432044%_ '::) - (if (gx#stx-pair? _%tl3188932117%_) - (let ((_%e3190431940%_ + (_%g3198332018%_))) + (if (equal? _%e3199332143%_ '::) + (if (gx#stx-pair? _%tl3198832216%_) + (let ((_%e3200332039%_ (gx#syntax-e - _%tl3188932117%_))) - (let ((_%tl3190631947%_ + _%tl3198832216%_))) + (let ((_%tl3200532046%_ (let () (declare (not safe)) - (##cdr _%e3190431940%_))) - (_%hd3190531944%_ + (##cdr _%e3200332039%_))) + (_%hd3200432043%_ (let () (declare (not safe)) - (##car _%e3190431940%_)))) + (##car _%e3200332039%_)))) (if (gx#stx-pair? - _%tl3190631947%_) - (let ((_%e3190731950%_ + _%tl3200532046%_) + (let ((_%e3200632049%_ (gx#syntax-e - _%tl3190631947%_))) - (let ((_%tl3190931957%_ + _%tl3200532046%_))) + (let ((_%tl3200832056%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3190731950%_))) - (_%hd3190831954%_ - (let () (declare (not safe)) (##car _%e3190731950%_)))) - (if (gx#stx-datum? _%hd3190831954%_) - (let ((_%e3191031960%_ (gx#stx-e _%hd3190831954%_))) - (if (equal? _%e3191031960%_ '=>:) - (if (gx#stx-pair? _%tl3190931957%_) - (let ((_%e3191131964%_ - (gx#syntax-e _%tl3190931957%_))) - (let ((_%tl3191331971%_ + (##cdr _%e3200632049%_))) + (_%hd3200732053%_ + (let () (declare (not safe)) (##car _%e3200632049%_)))) + (if (gx#stx-datum? _%hd3200732053%_) + (let ((_%e3200932059%_ (gx#stx-e _%hd3200732053%_))) + (if (equal? _%e3200932059%_ '=>:) + (if (gx#stx-pair? _%tl3200832056%_) + (let ((_%e3201032063%_ + (gx#syntax-e _%tl3200832056%_))) + (let ((_%tl3201232070%_ (let () (declare (not safe)) - (##cdr _%e3191131964%_))) - (_%hd3191231968%_ + (##cdr _%e3201032063%_))) + (_%hd3201132067%_ (let () (declare (not safe)) - (##car _%e3191131964%_)))) - (if (gx#stx-null? _%tl3191331971%_) - (_%__kont3862838629%_ - _%hd3191231968%_ - _%hd3190531944%_) + (##car _%e3201032063%_)))) + (if (gx#stx-null? _%tl3201232070%_) + (_%__kont3872738728%_ + _%hd3201132067%_ + _%hd3200432043%_) (let () (declare (not safe)) - (_%g3188431919%_))))) + (_%g3198332018%_))))) (let () (declare (not safe)) - (_%g3188431919%_))) - (let () (declare (not safe)) (_%g3188431919%_)))) - (let () (declare (not safe)) (_%g3188431919%_))))) - (let () (declare (not safe)) (_%g3188431919%_))))) + (_%g3198332018%_))) + (let () (declare (not safe)) (_%g3198332018%_)))) + (let () (declare (not safe)) (_%g3198332018%_))))) + (let () (declare (not safe)) (_%g3198332018%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3188431919%_))) + (_%g3198332018%_))) (let () (declare (not safe)) - (_%g3188431919%_))))) + (_%g3198332018%_))))) (let () (declare (not safe)) - (_%g3188431919%_)))))) - (let () (declare (not safe)) (_%g3188431919%_)))))) + (_%g3198332018%_)))))) + (let () (declare (not safe)) (_%g3198332018%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%__stx3861938620%_) - (_%__kont3862238623%_) + _%__stx3871838719%_) + (_%__kont3872138722%_) (let () (declare (not safe)) - (_%g3188132131%_)))))))) - (_%__kont3870638707%_ - (lambda (_%L31762%_) - (let* ((_%__stx3860338604%_ - _%L31762%_) - (_%g3177531787%_ + (_%g3198032230%_)))))))) + (_%__kont3880538806%_ + (lambda (_%L31861%_) + (let* ((_%__stx3870238703%_ + _%L31861%_) + (_%g3187431886%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3860338604%_)))) - (let ((_%__kont3860638607%_ - (lambda (_%L31815%_ - _%L31817%_) - (_%generate129106%_ - _%tgt30353%_ - _%L31817%_ - (_%generate129106%_ - _%tgt30353%_ + _%__stx3870238703%_)))) + (let ((_%__kont3870538706%_ + (lambda (_%L31914%_ + _%L31916%_) + (_%generate129205%_ + _%tgt30452%_ + _%L31916%_ + (_%generate129205%_ + _%tgt30452%_ (cons 'and: - _%L31815%_) - _%K30356%_ - _%E30357%_) - _%E30357%_))) - (_%__kont3860838609%_ - (lambda () _%K30356%_))) + _%L31914%_) + _%K30455%_ + _%E30456%_) + _%E30456%_))) + (_%__kont3870738708%_ + (lambda () _%K30455%_))) (if (gx#stx-pair? - _%__stx3860338604%_) - (let ((_%e3177931805%_ + _%__stx3870238703%_) + (let ((_%e3187831904%_ (gx#syntax-e - _%__stx3860338604%_))) - (let ((_%tl3178131812%_ + _%__stx3870238703%_))) + (let ((_%tl3188031911%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3177931805%_))) - (_%hd3178031809%_ - (let () (declare (not safe)) (##car _%e3177931805%_)))) - (_%__kont3860638607%_ _%tl3178131812%_ _%hd3178031809%_))) + (##cdr _%e3187831904%_))) + (_%hd3187931908%_ + (let () (declare (not safe)) (##car _%e3187831904%_)))) + (_%__kont3870538706%_ _%tl3188031911%_ _%hd3187931908%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3860838609%_)))))) - (_%__kont3870838709%_ - (lambda (_%L31669%_) - (let* ((_%__stx3858738588%_ - _%L31669%_) - (_%g3168231694%_ + (_%__kont3870738708%_)))))) + (_%__kont3880738808%_ + (lambda (_%L31768%_) + (let* ((_%__stx3868638687%_ + _%L31768%_) + (_%g3178131793%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3858738588%_)))) - (let ((_%__kont3859038591%_ - (lambda (_%L31722%_ - _%L31724%_) - (_%generate129106%_ - _%tgt30353%_ - _%L31724%_ - _%K30356%_ - (_%generate129106%_ - _%tgt30353%_ - (cons 'or: _%L31722%_) - _%K30356%_ - _%E30357%_)))) - (_%__kont3859238593%_ - (lambda () _%E30357%_))) + _%__stx3868638687%_)))) + (let ((_%__kont3868938690%_ + (lambda (_%L31821%_ + _%L31823%_) + (_%generate129205%_ + _%tgt30452%_ + _%L31823%_ + _%K30455%_ + (_%generate129205%_ + _%tgt30452%_ + (cons 'or: _%L31821%_) + _%K30455%_ + _%E30456%_)))) + (_%__kont3869138692%_ + (lambda () _%E30456%_))) (if (gx#stx-pair? - _%__stx3858738588%_) - (let ((_%e3168631712%_ + _%__stx3868638687%_) + (let ((_%e3178531811%_ (gx#syntax-e - _%__stx3858738588%_))) - (let ((_%tl3168831719%_ + _%__stx3868638687%_))) + (let ((_%tl3178731818%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3168631712%_))) - (_%hd3168731716%_ - (let () (declare (not safe)) (##car _%e3168631712%_)))) - (_%__kont3859038591%_ _%tl3168831719%_ _%hd3168731716%_))) + (##cdr _%e3178531811%_))) + (_%hd3178631815%_ + (let () (declare (not safe)) (##car _%e3178531811%_)))) + (_%__kont3868938690%_ _%tl3178731818%_ _%hd3178631815%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3859238593%_)))))) - (_%__kont3871038711%_ - (lambda (_%L31634%_) - (_%generate129106%_ - _%tgt30353%_ - _%L31634%_ - _%E30357%_ - _%K30356%_))) - (_%__kont3871238713%_ - (lambda (_%L31508%_ _%L31510%_) - (let* ((_%g3152731542%_ - (lambda (_%g3152831538%_) + (_%__kont3869138692%_)))))) + (_%__kont3880938810%_ + (lambda (_%L31733%_) + (_%generate129205%_ + _%tgt30452%_ + _%L31733%_ + _%E30456%_ + _%K30455%_))) + (_%__kont3881138812%_ + (lambda (_%L31607%_ _%L31609%_) + (let* ((_%g3162631641%_ + (lambda (_%g3162731637%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3152831538%_))) - (_%g3152631599%_ - (lambda (_%g3152831546%_) + _%g3162731637%_))) + (_%g3162531698%_ + (lambda (_%g3162731645%_) (if (gx#stx-pair? - _%g3152831546%_) - (let ((_%e3153131549%_ + _%g3162731645%_) + (let ((_%e3163031648%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g3152831546%_))) - (let ((_%hd3153231553%_ + (gx#syntax-e _%g3162731645%_))) + (let ((_%hd3163131652%_ (let () (declare (not safe)) - (##car _%e3153131549%_))) - (_%tl3153331556%_ + (##car _%e3163031648%_))) + (_%tl3163231655%_ (let () (declare (not safe)) - (##cdr _%e3153131549%_)))) - (if (gx#stx-pair? _%tl3153331556%_) - (let ((_%e3153431559%_ - (gx#syntax-e _%tl3153331556%_))) - (let ((_%hd3153531563%_ + (##cdr _%e3163031648%_)))) + (if (gx#stx-pair? _%tl3163231655%_) + (let ((_%e3163331658%_ + (gx#syntax-e _%tl3163231655%_))) + (let ((_%hd3163431662%_ (let () (declare (not safe)) - (##car _%e3153431559%_))) - (_%tl3153631566%_ + (##car _%e3163331658%_))) + (_%tl3163531665%_ (let () (declare (not safe)) - (##cdr _%e3153431559%_)))) - (if (gx#stx-null? _%tl3153631566%_) - ((lambda (_%L31569%_ _%L31571%_) + (##cdr _%e3163331658%_)))) + (if (gx#stx-null? _%tl3163531665%_) + ((lambda (_%L31668%_ _%L31670%_) (cons 'if (cons (cons (gx#datum->syntax '#f 'pair?) - (cons _%L30374%_ '())) - (cons (let ((_%hd-pat31587%_ + (cons _%L30473%_ '())) + (cons (let ((_%hd-pat31686%_ (gx#stx-e - _%L31510%_)) - (_%tl-pat31589%_ + _%L31609%_)) + (_%tl-pat31688%_ (gx#stx-e - _%L31508%_))) - (if (and (equal? _%hd-pat31587%_ + _%L31607%_))) + (if (and (equal? _%hd-pat31686%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '(any:)) - (equal? _%tl-pat31589%_ '(any:))) - _%K30356%_ - (if (equal? _%tl-pat31589%_ '(any:)) + (equal? _%tl-pat31688%_ '(any:))) + _%K30455%_ + (if (equal? _%tl-pat31688%_ '(any:)) (cons 'let - (cons (cons (cons _%L31571%_ + (cons (cons (cons _%L31670%_ (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L30374%_ + (cons _%L30473%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_%generate129106%_ - _%L31571%_ - _%L31510%_ - _%K30356%_ - _%E30357%_) + (cons (_%generate129205%_ + _%L31670%_ + _%L31609%_ + _%K30455%_ + _%E30456%_) '()))) - (if (equal? _%hd-pat31587%_ '(any:)) + (if (equal? _%hd-pat31686%_ '(any:)) (cons 'let - (cons (cons (cons _%L31569%_ + (cons (cons (cons _%L31668%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##cdr) - (cons _%L30374%_ '())) + (cons _%L30473%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_%generate129106%_ - _%L31569%_ - _%L31508%_ - _%K30356%_ - _%E30357%_) + (cons (_%generate129205%_ + _%L31668%_ + _%L31607%_ + _%K30455%_ + _%E30456%_) '()))) (cons 'let - (cons (cons (cons _%L31571%_ + (cons (cons (cons _%L31670%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##car) - (cons _%L30374%_ '())) + (cons _%L30473%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L31569%_ + (cons (cons _%L31668%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##cdr) - (cons _%L30374%_ '())) + (cons _%L30473%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (_%generate129106%_ - _%L31571%_ - _%L31510%_ - (_%generate129106%_ - _%L31569%_ - _%L31508%_ - _%K30356%_ - _%E30357%_) - _%E30357%_) + (cons (_%generate129205%_ + _%L31670%_ + _%L31609%_ + (_%generate129205%_ + _%L31668%_ + _%L31607%_ + _%K30455%_ + _%E30456%_) + _%E30456%_) '()))))))) - (cons _%E30357%_ '()))))) + (cons _%E30456%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd3153531563%_ - _%hd3153231553%_) - (_%g3152731542%_ _%g3152831546%_)))) - (_%g3152731542%_ _%g3152831546%_)))) - (_%g3152731542%_ _%g3152831546%_))))) + _%hd3163431662%_ + _%hd3163131652%_) + (_%g3162631641%_ _%g3162731645%_)))) + (_%g3162631641%_ _%g3162731645%_)))) + (_%g3162631641%_ _%g3162731645%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3152631599%_ + (_%g3162531698%_ (list (gx#genident 'hd) (gx#genident 'tl)))))) - (_%__kont3871438715%_ + (_%__kont3881338814%_ (lambda () (cons 'if (cons (cons (gx#datum->syntax '#f 'null?) - (cons _%L30374%_ + (cons _%L30473%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%K30356%_ (cons _%E30357%_ '())))))) + (cons _%K30455%_ (cons _%E30456%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3871638717%_ - (lambda (_%L31424%_ _%L31426%_) - (_%generate-splice29108%_ - _%tgt30353%_ - _%L31426%_ - _%L31424%_ - _%K30356%_ - _%E30357%_))) - (_%__kont3871838719%_ - (lambda (_%L31338%_) - (let* ((_%g3135231360%_ - (lambda (_%g3135331356%_) + (_%__kont3881538816%_ + (lambda (_%L31523%_ _%L31525%_) + (_%generate-splice29207%_ + _%tgt30452%_ + _%L31525%_ + _%L31523%_ + _%K30455%_ + _%E30456%_))) + (_%__kont3881738818%_ + (lambda (_%L31437%_) + (let* ((_%g3145131459%_ + (lambda (_%g3145231455%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3135331356%_))) - (_%g3135131379%_ - (lambda (_%g3135331364%_) - ((lambda (_%L31367%_) + _%g3145231455%_))) + (_%g3145031478%_ + (lambda (_%g3145231463%_) + ((lambda (_%L31466%_) (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'box?) - (cons _%L30374%_ '())) + (cons _%L30473%_ '())) (cons (cons 'let - (cons (cons (cons _%L31367%_ + (cons (cons (cons _%L31466%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##unbox) - (cons _%L30374%_ '())) + (cons _%L30473%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_%generate129106%_ - _%L31367%_ - _%L31338%_ - _%K30356%_ - _%E30357%_) + (cons (_%generate129205%_ + _%L31466%_ + _%L31437%_ + _%K30455%_ + _%E30456%_) '()))) - (cons _%E30357%_ '()))))) - _%g3135331364%_)))) + (cons _%E30456%_ '()))))) + _%g3145231463%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3135131379%_ + (_%g3145031478%_ (gx#genident 'e))))) - (_%__kont3872038721%_ - (lambda (_%L31143%_) - (let* ((_%__stx3853738538%_ - _%L31143%_) - (_%g3115831181%_ + (_%__kont3881938820%_ + (lambda (_%L31242%_) + (let* ((_%__stx3863638637%_ + _%L31242%_) + (_%g3125731280%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3853738538%_)))) - (let ((_%__kont3854038541%_ - (lambda (_%L31258%_) - (let* ((_%g3127231280%_ - (lambda (_%g3127331276%_) + _%__stx3863638637%_)))) + (let ((_%__kont3863938640%_ + (lambda (_%L31357%_) + (let* ((_%g3137131379%_ + (lambda (_%g3137231375%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3127331276%_))) - (_%g3127131299%_ - (lambda (_%g3127331284%_) - ((lambda (_%L31287%_) + _%g3137231375%_))) + (_%g3137031398%_ + (lambda (_%g3137231383%_) + ((lambda (_%L31386%_) (cons 'if (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f 'values-count) - (cons _%L30374%_ + (cons _%L30473%_ '())) - (cons _%L31287%_ '()))) - (cons (_%generate-simple-vector29109%_ - _%tgt30353%_ - _%L31258%_ + (cons _%L31386%_ '()))) + (cons (_%generate-simple-vector29208%_ + _%tgt30452%_ + _%L31357%_ '0 - _%K30356%_ - _%E30357%_) - (cons _%E30357%_ '()))))) - _%g3127331284%_)))) - (_%g3127131299%_ (gx#stx-length _%L31258%_))))) + _%K30455%_ + _%E30456%_) + (cons _%E30456%_ '()))))) + _%g3137231383%_)))) + (_%g3137031398%_ (gx#stx-length _%L31357%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3854238543%_ - (lambda (_%L31212%_) - (_%generate-list-vector29110%_ - _%tgt30353%_ - _%L31212%_ + (_%__kont3864138642%_ + (lambda (_%L31311%_) + (_%generate-list-vector29209%_ + _%tgt30452%_ + _%L31311%_ 'values->list - _%K30356%_ - _%E30357%_)))) + _%K30455%_ + _%E30456%_)))) (if (gx#stx-pair? - _%__stx3853738538%_) - (let ((_%e3116131234%_ + _%__stx3863638637%_) + (let ((_%e3126031333%_ (gx#syntax-e - _%__stx3853738538%_))) - (let ((_%tl3116331241%_ + _%__stx3863638637%_))) + (let ((_%tl3126231340%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3116131234%_))) - (_%hd3116231238%_ - (let () (declare (not safe)) (##car _%e3116131234%_)))) - (if (gx#stx-datum? _%hd3116231238%_) - (let ((_%e3116431244%_ (gx#stx-e _%hd3116231238%_))) - (if (equal? _%e3116431244%_ 'simple:) - (if (gx#stx-pair? _%tl3116331241%_) - (let ((_%e3116531248%_ - (gx#syntax-e _%tl3116331241%_))) - (let ((_%tl3116731255%_ + (##cdr _%e3126031333%_))) + (_%hd3126131337%_ + (let () (declare (not safe)) (##car _%e3126031333%_)))) + (if (gx#stx-datum? _%hd3126131337%_) + (let ((_%e3126331343%_ (gx#stx-e _%hd3126131337%_))) + (if (equal? _%e3126331343%_ 'simple:) + (if (gx#stx-pair? _%tl3126231340%_) + (let ((_%e3126431347%_ + (gx#syntax-e _%tl3126231340%_))) + (let ((_%tl3126631354%_ (let () (declare (not safe)) - (##cdr _%e3116531248%_))) - (_%hd3116631252%_ + (##cdr _%e3126431347%_))) + (_%hd3126531351%_ (let () (declare (not safe)) - (##car _%e3116531248%_)))) - (if (gx#stx-null? _%tl3116731255%_) - (_%__kont3854038541%_ _%hd3116631252%_) + (##car _%e3126431347%_)))) + (if (gx#stx-null? _%tl3126631354%_) + (_%__kont3863938640%_ _%hd3126531351%_) (let () (declare (not safe)) - (_%g3115831181%_))))) - (let () (declare (not safe)) (_%g3115831181%_))) - (if (equal? _%e3116431244%_ 'list:) - (if (gx#stx-pair? _%tl3116331241%_) - (let ((_%e3117331202%_ - (gx#syntax-e _%tl3116331241%_))) - (let ((_%tl3117531209%_ + (_%g3125731280%_))))) + (let () (declare (not safe)) (_%g3125731280%_))) + (if (equal? _%e3126331343%_ 'list:) + (if (gx#stx-pair? _%tl3126231340%_) + (let ((_%e3127231301%_ + (gx#syntax-e _%tl3126231340%_))) + (let ((_%tl3127431308%_ (let () (declare (not safe)) - (##cdr _%e3117331202%_))) - (_%hd3117431206%_ + (##cdr _%e3127231301%_))) + (_%hd3127331305%_ (let () (declare (not safe)) - (##car _%e3117331202%_)))) - (if (gx#stx-null? _%tl3117531209%_) - (_%__kont3854238543%_ - _%hd3117431206%_) + (##car _%e3127231301%_)))) + (if (gx#stx-null? _%tl3127431308%_) + (_%__kont3864138642%_ + _%hd3127331305%_) (let () (declare (not safe)) - (_%g3115831181%_))))) + (_%g3125731280%_))))) (let () (declare (not safe)) - (_%g3115831181%_))) + (_%g3125731280%_))) (let () (declare (not safe)) - (_%g3115831181%_))))) - (let () (declare (not safe)) (_%g3115831181%_))))) + (_%g3125731280%_))))) + (let () (declare (not safe)) (_%g3125731280%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3115831181%_))))))) - (_%__kont3872238723%_ - (lambda (_%L30948%_) - (let* ((_%__stx3848738488%_ - _%L30948%_) - (_%g3096330986%_ + (_%g3125731280%_))))))) + (_%__kont3882138822%_ + (lambda (_%L31047%_) + (let* ((_%__stx3858638587%_ + _%L31047%_) + (_%g3106231085%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3848738488%_)))) - (let ((_%__kont3849038491%_ - (lambda (_%L31063%_) - (let* ((_%g3107731085%_ - (lambda (_%g3107831081%_) + _%__stx3858638587%_)))) + (let ((_%__kont3858938590%_ + (lambda (_%L31162%_) + (let* ((_%g3117631184%_ + (lambda (_%g3117731180%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3107831081%_))) - (_%g3107631104%_ - (lambda (_%g3107831089%_) - ((lambda (_%L31092%_) + _%g3117731180%_))) + (_%g3117531203%_ + (lambda (_%g3117731188%_) + ((lambda (_%L31191%_) (cons 'if (cons (cons (gx#datum->syntax '#f 'vector?) - (cons _%L30374%_ '())) + (cons _%L30473%_ '())) (cons (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##vector-length) - (cons _%L30374%_ '())) - (cons _%L31092%_ '()))) - (cons (_%generate-simple-vector29109%_ - _%tgt30353%_ - _%L31063%_ + (cons _%L30473%_ '())) + (cons _%L31191%_ '()))) + (cons (_%generate-simple-vector29208%_ + _%tgt30452%_ + _%L31162%_ '0 - _%K30356%_ - _%E30357%_) - (cons _%E30357%_ '())))) + _%K30455%_ + _%E30456%_) + (cons _%E30456%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%E30357%_ '()))))) - _%g3107831089%_)))) - (_%g3107631104%_ (gx#stx-length _%L31063%_))))) + (cons _%E30456%_ '()))))) + _%g3117731188%_)))) + (_%g3117531203%_ (gx#stx-length _%L31162%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3849238493%_ - (lambda (_%L31017%_) + (_%__kont3859138592%_ + (lambda (_%L31116%_) (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector?) - (cons _%L30374%_ '())) - (cons (_%generate-list-vector29110%_ - _%tgt30353%_ - _%L31017%_ + (cons _%L30473%_ '())) + (cons (_%generate-list-vector29209%_ + _%tgt30452%_ + _%L31116%_ 'vector->list - _%K30356%_ - _%E30357%_) - (cons _%E30357%_ '()))))))) + _%K30455%_ + _%E30456%_) + (cons _%E30456%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx3848738488%_) - (let ((_%e3096631039%_ + _%__stx3858638587%_) + (let ((_%e3106531138%_ (gx#syntax-e - _%__stx3848738488%_))) - (let ((_%tl3096831046%_ + _%__stx3858638587%_))) + (let ((_%tl3106731145%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3096631039%_))) - (_%hd3096731043%_ - (let () (declare (not safe)) (##car _%e3096631039%_)))) - (if (gx#stx-datum? _%hd3096731043%_) - (let ((_%e3096931049%_ (gx#stx-e _%hd3096731043%_))) - (if (equal? _%e3096931049%_ 'simple:) - (if (gx#stx-pair? _%tl3096831046%_) - (let ((_%e3097031053%_ - (gx#syntax-e _%tl3096831046%_))) - (let ((_%tl3097231060%_ + (##cdr _%e3106531138%_))) + (_%hd3106631142%_ + (let () (declare (not safe)) (##car _%e3106531138%_)))) + (if (gx#stx-datum? _%hd3106631142%_) + (let ((_%e3106831148%_ (gx#stx-e _%hd3106631142%_))) + (if (equal? _%e3106831148%_ 'simple:) + (if (gx#stx-pair? _%tl3106731145%_) + (let ((_%e3106931152%_ + (gx#syntax-e _%tl3106731145%_))) + (let ((_%tl3107131159%_ (let () (declare (not safe)) - (##cdr _%e3097031053%_))) - (_%hd3097131057%_ + (##cdr _%e3106931152%_))) + (_%hd3107031156%_ (let () (declare (not safe)) - (##car _%e3097031053%_)))) - (if (gx#stx-null? _%tl3097231060%_) - (_%__kont3849038491%_ _%hd3097131057%_) + (##car _%e3106931152%_)))) + (if (gx#stx-null? _%tl3107131159%_) + (_%__kont3858938590%_ _%hd3107031156%_) (let () (declare (not safe)) - (_%g3096330986%_))))) - (let () (declare (not safe)) (_%g3096330986%_))) - (if (equal? _%e3096931049%_ 'list:) - (if (gx#stx-pair? _%tl3096831046%_) - (let ((_%e3097831007%_ - (gx#syntax-e _%tl3096831046%_))) - (let ((_%tl3098031014%_ + (_%g3106231085%_))))) + (let () (declare (not safe)) (_%g3106231085%_))) + (if (equal? _%e3106831148%_ 'list:) + (if (gx#stx-pair? _%tl3106731145%_) + (let ((_%e3107731106%_ + (gx#syntax-e _%tl3106731145%_))) + (let ((_%tl3107931113%_ (let () (declare (not safe)) - (##cdr _%e3097831007%_))) - (_%hd3097931011%_ + (##cdr _%e3107731106%_))) + (_%hd3107831110%_ (let () (declare (not safe)) - (##car _%e3097831007%_)))) - (if (gx#stx-null? _%tl3098031014%_) - (_%__kont3849238493%_ - _%hd3097931011%_) + (##car _%e3107731106%_)))) + (if (gx#stx-null? _%tl3107931113%_) + (_%__kont3859138592%_ + _%hd3107831110%_) (let () (declare (not safe)) - (_%g3096330986%_))))) + (_%g3106231085%_))))) (let () (declare (not safe)) - (_%g3096330986%_))) + (_%g3106231085%_))) (let () (declare (not safe)) - (_%g3096330986%_))))) - (let () (declare (not safe)) (_%g3096330986%_))))) + (_%g3106231085%_))))) + (let () (declare (not safe)) (_%g3106231085%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3096330986%_))))))) - (_%__kont3872438725%_ - (lambda (_%L30899%_ _%L30901%_) - (_%generate-struct29111%_ - (gx#stx-e _%L30901%_) - _%tgt30353%_ - _%L30899%_ - _%K30356%_ - _%E30357%_))) - (_%__kont3872638727%_ - (lambda (_%L30840%_ _%L30842%_) - (_%generate-class29114%_ - (gx#stx-e _%L30842%_) - _%tgt30353%_ - _%L30840%_ - _%K30356%_ - _%E30357%_))) - (_%__kont3872838729%_ - (lambda (_%L30737%_) - (let* ((_%g3075130759%_ - (lambda (_%g3075230755%_) + (_%g3106231085%_))))))) + (_%__kont3882338824%_ + (lambda (_%L30998%_ _%L31000%_) + (_%generate-struct29210%_ + (gx#stx-e _%L31000%_) + _%tgt30452%_ + _%L30998%_ + _%K30455%_ + _%E30456%_))) + (_%__kont3882538826%_ + (lambda (_%L30939%_ _%L30941%_) + (_%generate-class29213%_ + (gx#stx-e _%L30941%_) + _%tgt30452%_ + _%L30939%_ + _%K30455%_ + _%E30456%_))) + (_%__kont3882738828%_ + (lambda (_%L30836%_) + (let* ((_%g3085030858%_ + (lambda (_%g3085130854%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3075230755%_))) - (_%g3075030778%_ - (lambda (_%g3075230763%_) - ((lambda (_%L30766%_) + _%g3085130854%_))) + (_%g3084930877%_ + (lambda (_%g3085130862%_) + ((lambda (_%L30865%_) (cons 'if - (cons (cons _%L30766%_ + (cons (cons _%L30865%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L30374%_ + (cons _%L30473%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L30737%_ '())) + (cons _%L30836%_ '())) '()))) - (cons _%K30356%_ (cons _%E30357%_ '()))))) - _%g3075230763%_)))) + (cons _%K30455%_ (cons _%E30456%_ '()))))) + _%g3085130862%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3075030778%_ - (let ((_%e30782%_ - (gx#stx-e _%L30737%_))) - (if (or (symbol? _%e30782%_) - (keyword? _%e30782%_) + (_%g3084930877%_ + (let ((_%e30881%_ + (gx#stx-e _%L30836%_))) + (if (or (symbol? _%e30881%_) + (keyword? _%e30881%_) (immediate? - _%e30782%_)) + _%e30881%_)) '##eq? - (if (number? _%e30782%_) + (if (number? _%e30881%_) 'eqv? 'equal?))))))) - (_%__kont3873038731%_ - (lambda (_%L30657%_ _%L30659%_) - (let* ((_%g3067530683%_ - (lambda (_%g3067630679%_) + (_%__kont3882938830%_ + (lambda (_%L30756%_ _%L30758%_) + (let* ((_%g3077430782%_ + (lambda (_%g3077530778%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3067630679%_))) - (_%g3067430702%_ - (lambda (_%g3067630687%_) - ((lambda (_%L30690%_) + _%g3077530778%_))) + (_%g3077330801%_ + (lambda (_%g3077530786%_) + ((lambda (_%L30789%_) (cons 'let - (cons (cons (cons _%L30690%_ + (cons (cons (cons _%L30789%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L30659%_ - (cons _%L30374%_ '())) + (cons (cons _%L30758%_ + (cons _%L30473%_ '())) '())) '()) - (cons (_%generate129106%_ - _%L30690%_ - _%L30657%_ - _%K30356%_ - _%E30357%_) + (cons (_%generate129205%_ + _%L30789%_ + _%L30756%_ + _%K30455%_ + _%E30456%_) '())))) - _%g3067630687%_)))) + _%g3077530786%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3067430702%_ + (_%g3077330801%_ (gx#genident 'e))))) - (_%__kont3873238733%_ - (lambda (_%L30599%_) + (_%__kont3883138832%_ + (lambda (_%L30698%_) (cons 'let - (cons (cons (cons _%L30599%_ + (cons (cons (cons _%L30698%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L30374%_ '())) + (cons _%L30473%_ '())) '()) - (cons _%K30356%_ '()))))) + (cons _%K30455%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3873438735%_ - (lambda () _%K30356%_))) - (if (gx#stx-pair? _%__stx3870138702%_) - (let ((_%e3040531841%_ + (_%__kont3883338834%_ + (lambda () _%K30455%_))) + (if (gx#stx-pair? _%__stx3880038801%_) + (let ((_%e3050431940%_ (gx#syntax-e - _%__stx3870138702%_))) - (let ((_%tl3040731848%_ + _%__stx3880038801%_))) + (let ((_%tl3050631947%_ (let () (declare (not safe)) - (##cdr _%e3040531841%_))) - (_%hd3040631845%_ + (##cdr _%e3050431940%_))) + (_%hd3050531944%_ (let () (declare (not safe)) - (##car _%e3040531841%_)))) + (##car _%e3050431940%_)))) (if (gx#stx-datum? - _%hd3040631845%_) - (let ((_%e3040831851%_ + _%hd3050531944%_) + (let ((_%e3050731950%_ (gx#stx-e - _%hd3040631845%_))) - (if (equal? _%e3040831851%_ + _%hd3050531944%_))) + (if (equal? _%e3050731950%_ '?:) (if (gx#stx-pair? - _%tl3040731848%_) - (let ((_%e3040931855%_ + _%tl3050631947%_) + (let ((_%e3050831954%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3040731848%_))) - (let ((_%tl3041131862%_ + (gx#syntax-e _%tl3050631947%_))) + (let ((_%tl3051031961%_ (let () (declare (not safe)) - (##cdr _%e3040931855%_))) - (_%hd3041031859%_ + (##cdr _%e3050831954%_))) + (_%hd3050931958%_ (let () (declare (not safe)) - (##car _%e3040931855%_)))) - (_%__kont3870438705%_ - _%tl3041131862%_ - _%hd3041031859%_))) - (let () (declare (not safe)) (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'and:) - (_%__kont3870638707%_ _%tl3040731848%_) - (if (equal? _%e3040831851%_ 'or:) - (_%__kont3870838709%_ _%tl3040731848%_) - (if (equal? _%e3040831851%_ 'not:) - (if (gx#stx-pair? _%tl3040731848%_) - (let ((_%e3042731624%_ - (gx#syntax-e _%tl3040731848%_))) - (let ((_%tl3042931631%_ + (##car _%e3050831954%_)))) + (_%__kont3880338804%_ + _%tl3051031961%_ + _%hd3050931958%_))) + (let () (declare (not safe)) (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'and:) + (_%__kont3880538806%_ _%tl3050631947%_) + (if (equal? _%e3050731950%_ 'or:) + (_%__kont3880738808%_ _%tl3050631947%_) + (if (equal? _%e3050731950%_ 'not:) + (if (gx#stx-pair? _%tl3050631947%_) + (let ((_%e3052631723%_ + (gx#syntax-e _%tl3050631947%_))) + (let ((_%tl3052831730%_ (let () (declare (not safe)) - (##cdr _%e3042731624%_))) - (_%hd3042831628%_ + (##cdr _%e3052631723%_))) + (_%hd3052731727%_ (let () (declare (not safe)) - (##car _%e3042731624%_)))) - (if (gx#stx-null? _%tl3042931631%_) - (_%__kont3871038711%_ _%hd3042831628%_) + (##car _%e3052631723%_)))) + (if (gx#stx-null? _%tl3052831730%_) + (_%__kont3880938810%_ _%hd3052731727%_) (let () (declare (not safe)) - (_%g3040130543%_))))) - (let () (declare (not safe)) (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'cons:) - (if (gx#stx-pair? _%tl3040731848%_) - (let ((_%e3043631488%_ - (gx#syntax-e _%tl3040731848%_))) - (let ((_%tl3043831495%_ + (_%g3050030642%_))))) + (let () (declare (not safe)) (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'cons:) + (if (gx#stx-pair? _%tl3050631947%_) + (let ((_%e3053531587%_ + (gx#syntax-e _%tl3050631947%_))) + (let ((_%tl3053731594%_ (let () (declare (not safe)) - (##cdr _%e3043631488%_))) - (_%hd3043731492%_ + (##cdr _%e3053531587%_))) + (_%hd3053631591%_ (let () (declare (not safe)) - (##car _%e3043631488%_)))) - (if (gx#stx-pair? _%tl3043831495%_) - (let ((_%e3043931498%_ + (##car _%e3053531587%_)))) + (if (gx#stx-pair? _%tl3053731594%_) + (let ((_%e3053831597%_ (gx#syntax-e - _%tl3043831495%_))) - (let ((_%tl3044131505%_ + _%tl3053731594%_))) + (let ((_%tl3054031604%_ (let () (declare (not safe)) - (##cdr _%e3043931498%_))) - (_%hd3044031502%_ + (##cdr _%e3053831597%_))) + (_%hd3053931601%_ (let () (declare (not safe)) - (##car _%e3043931498%_)))) + (##car _%e3053831597%_)))) (if (gx#stx-null? - _%tl3044131505%_) - (_%__kont3871238713%_ - _%hd3044031502%_ - _%hd3043731492%_) + _%tl3054031604%_) + (_%__kont3881138812%_ + _%hd3053931601%_ + _%hd3053631591%_) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'null:) - (if (gx#stx-null? _%tl3040731848%_) - (_%__kont3871438715%_) + (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'null:) + (if (gx#stx-null? _%tl3050631947%_) + (_%__kont3881338814%_) (let () (declare (not safe)) - (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'splice:) - (if (gx#stx-pair? _%tl3040731848%_) - (let ((_%e3045231404%_ + (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'splice:) + (if (gx#stx-pair? _%tl3050631947%_) + (let ((_%e3055131503%_ (gx#syntax-e - _%tl3040731848%_))) - (let ((_%tl3045431411%_ + _%tl3050631947%_))) + (let ((_%tl3055331510%_ (let () (declare (not safe)) - (##cdr _%e3045231404%_))) - (_%hd3045331408%_ + (##cdr _%e3055131503%_))) + (_%hd3055231507%_ (let () (declare (not safe)) - (##car _%e3045231404%_)))) + (##car _%e3055131503%_)))) (if (gx#stx-pair? - _%tl3045431411%_) - (let ((_%e3045531414%_ + _%tl3055331510%_) + (let ((_%e3055431513%_ (gx#syntax-e - _%tl3045431411%_))) - (let ((_%tl3045731421%_ + _%tl3055331510%_))) + (let ((_%tl3055631520%_ (let () (declare (not safe)) - (##cdr _%e3045531414%_))) - (_%hd3045631418%_ + (##cdr _%e3055431513%_))) + (_%hd3055531517%_ (let () (declare (not safe)) - (##car _%e3045531414%_)))) + (##car _%e3055431513%_)))) (if (gx#stx-null? - _%tl3045731421%_) - (_%__kont3871638717%_ - _%hd3045631418%_ - _%hd3045331408%_) + _%tl3055631520%_) + (_%__kont3881538816%_ + _%hd3055531517%_ + _%hd3055231507%_) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'box:) - (if (gx#stx-pair? _%tl3040731848%_) - (let ((_%e3046331328%_ + (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'box:) + (if (gx#stx-pair? _%tl3050631947%_) + (let ((_%e3056231427%_ (gx#syntax-e - _%tl3040731848%_))) - (let ((_%tl3046531335%_ + _%tl3050631947%_))) + (let ((_%tl3056431434%_ (let () (declare (not safe)) - (##cdr _%e3046331328%_))) - (_%hd3046431332%_ + (##cdr _%e3056231427%_))) + (_%hd3056331431%_ (let () (declare (not safe)) - (##car _%e3046331328%_)))) + (##car _%e3056231427%_)))) (if (gx#stx-null? - _%tl3046531335%_) - (_%__kont3871838719%_ - _%hd3046431332%_) + _%tl3056431434%_) + (_%__kont3881738818%_ + _%hd3056331431%_) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3040130543%_))) - (if (equal? _%e3040831851%_ + (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'values:) (if (gx#stx-pair? - _%tl3040731848%_) - (let ((_%e3047131133%_ + _%tl3050631947%_) + (let ((_%e3057031232%_ (gx#syntax-e - _%tl3040731848%_))) - (let ((_%tl3047331140%_ + _%tl3050631947%_))) + (let ((_%tl3057231239%_ (let () (declare (not safe)) - (##cdr _%e3047131133%_))) - (_%hd3047231137%_ + (##cdr _%e3057031232%_))) + (_%hd3057131236%_ (let () (declare (not safe)) - (##car _%e3047131133%_)))) + (##car _%e3057031232%_)))) (if (gx#stx-null? - _%tl3047331140%_) - (_%__kont3872038721%_ - _%hd3047231137%_) + _%tl3057231239%_) + (_%__kont3881938820%_ + _%hd3057131236%_) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3040130543%_))) - (if (equal? _%e3040831851%_ + (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'vector:) (if (gx#stx-pair? - _%tl3040731848%_) - (let ((_%e3047930938%_ + _%tl3050631947%_) + (let ((_%e3057831037%_ (gx#syntax-e - _%tl3040731848%_))) - (let ((_%tl3048130945%_ + _%tl3050631947%_))) + (let ((_%tl3058031044%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3047930938%_))) - (_%hd3048030942%_ - (let () (declare (not safe)) (##car _%e3047930938%_)))) - (if (gx#stx-null? _%tl3048130945%_) - (_%__kont3872238723%_ _%hd3048030942%_) - (let () (declare (not safe)) (_%g3040130543%_))))) - (let () (declare (not safe)) (_%g3040130543%_))) + (##cdr _%e3057831037%_))) + (_%hd3057931041%_ + (let () (declare (not safe)) (##car _%e3057831037%_)))) + (if (gx#stx-null? _%tl3058031044%_) + (_%__kont3882138822%_ _%hd3057931041%_) + (let () (declare (not safe)) (_%g3050030642%_))))) + (let () (declare (not safe)) (_%g3050030642%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e3040831851%_ + (if (equal? _%e3050731950%_ 'struct:) (if (gx#stx-pair? - _%tl3040731848%_) - (let ((_%e3048830879%_ + _%tl3050631947%_) + (let ((_%e3058730978%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3040731848%_))) - (let ((_%tl3049030886%_ + (gx#syntax-e _%tl3050631947%_))) + (let ((_%tl3058930985%_ (let () (declare (not safe)) - (##cdr _%e3048830879%_))) - (_%hd3048930883%_ + (##cdr _%e3058730978%_))) + (_%hd3058830982%_ (let () (declare (not safe)) - (##car _%e3048830879%_)))) - (if (gx#stx-pair? _%tl3049030886%_) - (let ((_%e3049130889%_ - (gx#syntax-e _%tl3049030886%_))) - (let ((_%tl3049330896%_ + (##car _%e3058730978%_)))) + (if (gx#stx-pair? _%tl3058930985%_) + (let ((_%e3059030988%_ + (gx#syntax-e _%tl3058930985%_))) + (let ((_%tl3059230995%_ (let () (declare (not safe)) - (##cdr _%e3049130889%_))) - (_%hd3049230893%_ + (##cdr _%e3059030988%_))) + (_%hd3059130992%_ (let () (declare (not safe)) - (##car _%e3049130889%_)))) - (if (gx#stx-null? _%tl3049330896%_) - (_%__kont3872438725%_ - _%hd3049230893%_ - _%hd3048930883%_) + (##car _%e3059030988%_)))) + (if (gx#stx-null? _%tl3059230995%_) + (_%__kont3882338824%_ + _%hd3059130992%_ + _%hd3058830982%_) (let () (declare (not safe)) - (_%g3040130543%_))))) - (let () (declare (not safe)) (_%g3040130543%_))))) - (let () (declare (not safe)) (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'class:) - (if (gx#stx-pair? _%tl3040731848%_) - (let ((_%e3050030820%_ (gx#syntax-e _%tl3040731848%_))) - (let ((_%tl3050230827%_ + (_%g3050030642%_))))) + (let () (declare (not safe)) (_%g3050030642%_))))) + (let () (declare (not safe)) (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'class:) + (if (gx#stx-pair? _%tl3050631947%_) + (let ((_%e3059930919%_ (gx#syntax-e _%tl3050631947%_))) + (let ((_%tl3060130926%_ (let () (declare (not safe)) - (##cdr _%e3050030820%_))) - (_%hd3050130824%_ + (##cdr _%e3059930919%_))) + (_%hd3060030923%_ (let () (declare (not safe)) - (##car _%e3050030820%_)))) - (if (gx#stx-pair? _%tl3050230827%_) - (let ((_%e3050330830%_ - (gx#syntax-e _%tl3050230827%_))) - (let ((_%tl3050530837%_ + (##car _%e3059930919%_)))) + (if (gx#stx-pair? _%tl3060130926%_) + (let ((_%e3060230929%_ + (gx#syntax-e _%tl3060130926%_))) + (let ((_%tl3060430936%_ (let () (declare (not safe)) - (##cdr _%e3050330830%_))) - (_%hd3050430834%_ + (##cdr _%e3060230929%_))) + (_%hd3060330933%_ (let () (declare (not safe)) - (##car _%e3050330830%_)))) - (if (gx#stx-null? _%tl3050530837%_) - (_%__kont3872638727%_ - _%hd3050430834%_ - _%hd3050130824%_) + (##car _%e3060230929%_)))) + (if (gx#stx-null? _%tl3060430936%_) + (_%__kont3882538826%_ + _%hd3060330933%_ + _%hd3060030923%_) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3040130543%_))))) - (let () (declare (not safe)) (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'datum:) - (if (gx#stx-pair? _%tl3040731848%_) - (let ((_%e3051130727%_ - (gx#syntax-e _%tl3040731848%_))) - (let ((_%tl3051330734%_ + (_%g3050030642%_))))) + (let () (declare (not safe)) (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'datum:) + (if (gx#stx-pair? _%tl3050631947%_) + (let ((_%e3061030826%_ + (gx#syntax-e _%tl3050631947%_))) + (let ((_%tl3061230833%_ (let () (declare (not safe)) - (##cdr _%e3051130727%_))) - (_%hd3051230731%_ + (##cdr _%e3061030826%_))) + (_%hd3061130830%_ (let () (declare (not safe)) - (##car _%e3051130727%_)))) - (if (gx#stx-null? _%tl3051330734%_) - (_%__kont3872838729%_ _%hd3051230731%_) + (##car _%e3061030826%_)))) + (if (gx#stx-null? _%tl3061230833%_) + (_%__kont3882738828%_ _%hd3061130830%_) (let () (declare (not safe)) - (_%g3040130543%_))))) - (let () (declare (not safe)) (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'apply:) - (if (gx#stx-pair? _%tl3040731848%_) - (let ((_%e3052030637%_ - (gx#syntax-e _%tl3040731848%_))) - (let ((_%tl3052230644%_ + (_%g3050030642%_))))) + (let () (declare (not safe)) (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'apply:) + (if (gx#stx-pair? _%tl3050631947%_) + (let ((_%e3061930736%_ + (gx#syntax-e _%tl3050631947%_))) + (let ((_%tl3062130743%_ (let () (declare (not safe)) - (##cdr _%e3052030637%_))) - (_%hd3052130641%_ + (##cdr _%e3061930736%_))) + (_%hd3062030740%_ (let () (declare (not safe)) - (##car _%e3052030637%_)))) - (if (gx#stx-pair? _%tl3052230644%_) - (let ((_%e3052330647%_ - (gx#syntax-e _%tl3052230644%_))) - (let ((_%tl3052530654%_ + (##car _%e3061930736%_)))) + (if (gx#stx-pair? _%tl3062130743%_) + (let ((_%e3062230746%_ + (gx#syntax-e _%tl3062130743%_))) + (let ((_%tl3062430753%_ (let () (declare (not safe)) - (##cdr _%e3052330647%_))) - (_%hd3052430651%_ + (##cdr _%e3062230746%_))) + (_%hd3062330750%_ (let () (declare (not safe)) - (##car _%e3052330647%_)))) - (if (gx#stx-null? _%tl3052530654%_) - (_%__kont3873038731%_ - _%hd3052430651%_ - _%hd3052130641%_) + (##car _%e3062230746%_)))) + (if (gx#stx-null? _%tl3062430753%_) + (_%__kont3882938830%_ + _%hd3062330750%_ + _%hd3062030740%_) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3040130543%_))))) - (let () (declare (not safe)) (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'var:) - (if (gx#stx-pair? _%tl3040731848%_) - (let ((_%e3053130589%_ - (gx#syntax-e _%tl3040731848%_))) - (let ((_%tl3053330596%_ + (_%g3050030642%_))))) + (let () (declare (not safe)) (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'var:) + (if (gx#stx-pair? _%tl3050631947%_) + (let ((_%e3063030688%_ + (gx#syntax-e _%tl3050631947%_))) + (let ((_%tl3063230695%_ (let () (declare (not safe)) - (##cdr _%e3053130589%_))) - (_%hd3053230593%_ + (##cdr _%e3063030688%_))) + (_%hd3063130692%_ (let () (declare (not safe)) - (##car _%e3053130589%_)))) - (if (gx#stx-null? _%tl3053330596%_) - (_%__kont3873238733%_ - _%hd3053230593%_) + (##car _%e3063030688%_)))) + (if (gx#stx-null? _%tl3063230695%_) + (_%__kont3883138832%_ + _%hd3063130692%_) (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3040130543%_))) - (if (equal? _%e3040831851%_ 'any:) - (if (gx#stx-null? _%tl3040731848%_) - (_%__kont3873438735%_) + (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'any:) + (if (gx#stx-null? _%tl3050631947%_) + (_%__kont3883338834%_) (let () (declare (not safe)) - (_%g3040130543%_))) + (_%g3050030642%_))) (let () (declare (not safe)) - (_%g3040130543%_))))))))))))))))))) + (_%g3050030642%_))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3040130543%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3040130543%_)))))) - _%g3036030371%_)))) - (_%g3035832150%_ _%tgt30353%_)))) - (_%generate-splice29108%_ - (lambda (_%tgt29725%_ - _%hd29727%_ - _%rest29728%_ - _%K29729%_ - _%E29730%_) - (let* ((_%g2973229749%_ - (lambda (_%g2973329745%_) + (_%g3050030642%_)))))) + _%g3045930470%_)))) + (_%g3045732249%_ _%tgt30452%_)))) + (_%generate-splice29207%_ + (lambda (_%tgt29824%_ + _%hd29826%_ + _%rest29827%_ + _%K29828%_ + _%E29829%_) + (let* ((_%g2983129848%_ + (lambda (_%g2983229844%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2973329745%_))) - (_%g2973130349%_ - (lambda (_%g2973329753%_) - (if (gx#stx-pair/null? _%g2973329753%_) - (let ((_g39856_ + _%g2983229844%_))) + (_%g2983030448%_ + (lambda (_%g2983229852%_) + (if (gx#stx-pair/null? _%g2983229852%_) + (let ((_g39955_ (gx#syntax-split-splice - _%g2973329753%_ + _%g2983229852%_ '0))) (begin - (let ((_g39857_ + (let ((_g39956_ (let () (declare (not safe)) - (if (##values? _g39856_) - (##vector-length _g39856_) + (if (##values? _g39955_) + (##values-length _g39955_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g39857_ 2))) + (##fx= _g39956_ 2))) (error "Context expects 2 values" - _g39857_))) - (let ((_%target2973529756%_ + _g39956_))) + (let ((_%target2983429855%_ (let () (declare (not safe)) - (##vector-ref _g39856_ 0))) - (_%tl2973729759%_ + (##values-ref _g39955_ 0))) + (_%tl2983629858%_ (let () (declare (not safe)) - (##vector-ref _g39856_ 1)))) - (if (gx#stx-null? _%tl2973729759%_) - (letrec ((_%loop2973829762%_ - (lambda (_%hd2973629766%_ - _%var2974229769%_) + (##values-ref _g39955_ 1)))) + (if (gx#stx-null? _%tl2983629858%_) + (letrec ((_%loop2983729861%_ + (lambda (_%hd2983529865%_ + _%var2984129868%_) (if (gx#stx-pair? - _%hd2973629766%_) - (let ((_%e2973929772%_ + _%hd2983529865%_) + (let ((_%e2983829871%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd2973629766%_))) - (let ((_%lp-hd2974029776%_ + (gx#syntax-e _%hd2983529865%_))) + (let ((_%lp-hd2983929875%_ (let () (declare (not safe)) - (##car _%e2973929772%_))) - (_%lp-tl2974129779%_ + (##car _%e2983829871%_))) + (_%lp-tl2984029878%_ (let () (declare (not safe)) - (##cdr _%e2973929772%_)))) - (_%loop2973829762%_ - _%lp-tl2974129779%_ - (cons _%lp-hd2974029776%_ _%var2974229769%_)))) - (let ((_%var2974329782%_ (reverse _%var2974229769%_))) - ((lambda (_%L29786%_) - (let* ((_%g2980229819%_ - (lambda (_%g2980329815%_) + (##cdr _%e2983829871%_)))) + (_%loop2983729861%_ + _%lp-tl2984029878%_ + (cons _%lp-hd2983929875%_ _%var2984129868%_)))) + (let ((_%var2984229881%_ (reverse _%var2984129868%_))) + ((lambda (_%L29885%_) + (let* ((_%g2990129918%_ + (lambda (_%g2990229914%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2980329815%_))) - (_%g2980130337%_ - (lambda (_%g2980329823%_) - (if (gx#stx-pair/null? _%g2980329823%_) - (let ((_g39858_ + _%g2990229914%_))) + (_%g2990030436%_ + (lambda (_%g2990229922%_) + (if (gx#stx-pair/null? _%g2990229922%_) + (let ((_g39957_ (gx#syntax-split-splice - _%g2980329823%_ + _%g2990229922%_ '0))) (begin - (let ((_g39859_ + (let ((_g39958_ (let () (declare (not safe)) - (if (##values? _g39858_) - (##vector-length - _g39858_) + (if (##values? _g39957_) + (##values-length + _g39957_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g39859_ 2))) + (##fx= _g39958_ 2))) (error "Context expects 2 values" - _g39859_))) - (let ((_%target2980529826%_ + _g39958_))) + (let ((_%target2990429925%_ (let () (declare (not safe)) - (##vector-ref _g39858_ 0))) - (_%tl2980729829%_ + (##values-ref _g39957_ 0))) + (_%tl2990629928%_ (let () (declare (not safe)) - (##vector-ref - _g39858_ + (##values-ref + _g39957_ 1)))) (if (gx#stx-null? - _%tl2980729829%_) - (letrec ((_%loop2980829832%_ - (lambda (_%hd2980629836%_ + _%tl2990629928%_) + (letrec ((_%loop2990729931%_ + (lambda (_%hd2990529935%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%var-r2981229839%_) - (if (gx#stx-pair? _%hd2980629836%_) - (let ((_%e2980929842%_ - (gx#syntax-e _%hd2980629836%_))) - (let ((_%lp-hd2981029846%_ + _%var-r2991129938%_) + (if (gx#stx-pair? _%hd2990529935%_) + (let ((_%e2990829941%_ + (gx#syntax-e _%hd2990529935%_))) + (let ((_%lp-hd2990929945%_ (let () (declare (not safe)) - (##car _%e2980929842%_))) - (_%lp-tl2981129849%_ + (##car _%e2990829941%_))) + (_%lp-tl2991029948%_ (let () (declare (not safe)) - (##cdr _%e2980929842%_)))) - (_%loop2980829832%_ - _%lp-tl2981129849%_ - (cons _%lp-hd2981029846%_ _%var-r2981229839%_)))) - (let ((_%var-r2981329852%_ - (reverse _%var-r2981229839%_))) - ((lambda (_%L29856%_) - (let* ((_%g2987329890%_ - (lambda (_%g2987429886%_) + (##cdr _%e2990829941%_)))) + (_%loop2990729931%_ + _%lp-tl2991029948%_ + (cons _%lp-hd2990929945%_ _%var-r2991129938%_)))) + (let ((_%var-r2991229951%_ + (reverse _%var-r2991129938%_))) + ((lambda (_%L29955%_) + (let* ((_%g2997229989%_ + (lambda (_%g2997329985%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2987429886%_))) - (_%g2987230325%_ - (lambda (_%g2987429894%_) - (if (gx#stx-pair/null? _%g2987429894%_) - (let ((_g39860_ + _%g2997329985%_))) + (_%g2997130424%_ + (lambda (_%g2997329993%_) + (if (gx#stx-pair/null? _%g2997329993%_) + (let ((_g39959_ (gx#syntax-split-splice - _%g2987429894%_ + _%g2997329993%_ '0))) (begin - (let ((_g39861_ + (let ((_g39960_ (let () (declare (not safe)) (if (##values? - _g39860_) - (##vector-length - _g39860_) + _g39959_) + (##values-length + _g39959_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g39861_ + (##fx= _g39960_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g39861_))) + (error "Context expects 2 values" _g39960_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2987629897%_ + (let ((_%target2997529996%_ (let () (declare (not safe)) - (##vector-ref - _g39860_ + (##values-ref + _g39959_ 0))) - (_%tl2987829900%_ + (_%tl2997729999%_ (let () (declare (not safe)) - (##vector-ref - _g39860_ + (##values-ref + _g39959_ 1)))) (if (gx#stx-null? - _%tl2987829900%_) - (letrec ((_%loop2987929903%_ - (lambda (_%hd2987729907%_ + _%tl2997729999%_) + (letrec ((_%loop2997830002%_ + (lambda (_%hd2997630006%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%init2988329910%_) - (if (gx#stx-pair? _%hd2987729907%_) - (let ((_%e2988029913%_ - (gx#syntax-e _%hd2987729907%_))) - (let ((_%lp-hd2988129917%_ + _%init2998230009%_) + (if (gx#stx-pair? _%hd2997630006%_) + (let ((_%e2997930012%_ + (gx#syntax-e _%hd2997630006%_))) + (let ((_%lp-hd2998030016%_ (let () (declare (not safe)) - (##car _%e2988029913%_))) - (_%lp-tl2988229920%_ + (##car _%e2997930012%_))) + (_%lp-tl2998130019%_ (let () (declare (not safe)) - (##cdr _%e2988029913%_)))) - (_%loop2987929903%_ - _%lp-tl2988229920%_ - (cons _%lp-hd2988129917%_ - _%init2988329910%_)))) - (let ((_%init2988429923%_ - (reverse _%init2988329910%_))) - ((lambda (_%L29927%_) - (let* ((_%g2994429952%_ - (lambda (_%g2994529948%_) + (##cdr _%e2997930012%_)))) + (_%loop2997830002%_ + _%lp-tl2998130019%_ + (cons _%lp-hd2998030016%_ + _%init2998230009%_)))) + (let ((_%init2998330022%_ + (reverse _%init2998230009%_))) + ((lambda (_%L30026%_) + (let* ((_%g3004330051%_ + (lambda (_%g3004430047%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2994529948%_))) - (_%g2994330321%_ - (lambda (_%g2994529956%_) - ((lambda (_%L29959%_) - (let* ((_%g2997229980%_ - (lambda (_%g2997329976%_) + _%g3004430047%_))) + (_%g3004230420%_ + (lambda (_%g3004430055%_) + ((lambda (_%L30058%_) + (let* ((_%g3007130079%_ + (lambda (_%g3007230075%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2997329976%_))) - (_%g2997130317%_ - (lambda (_%g2997329984%_) - ((lambda (_%L29987%_) - (let* ((_%g3000030008%_ + _%g3007230075%_))) + (_%g3007030416%_ + (lambda (_%g3007230083%_) + ((lambda (_%L30086%_) + (let* ((_%g3009930107%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g3000130004%_) + (lambda (_%g3010030103%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3000130004%_))) - (_%g2999930313%_ - (lambda (_%g3000130012%_) - ((lambda (_%L30015%_) - (let* ((_%g3002830036%_ - (lambda (_%g3002930032%_) + _%g3010030103%_))) + (_%g3009830412%_ + (lambda (_%g3010030111%_) + ((lambda (_%L30114%_) + (let* ((_%g3012730135%_ + (lambda (_%g3012830131%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3002930032%_))) - (_%g3002730309%_ - (lambda (_%g3002930040%_) - ((lambda (_%L30043%_) - (let* ((_%g3005630064%_ - (lambda (_%g3005730060%_) + _%g3012830131%_))) + (_%g3012630408%_ + (lambda (_%g3012830139%_) + ((lambda (_%L30142%_) + (let* ((_%g3015530163%_ + (lambda (_%g3015630159%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3005730060%_))) - (_%g3005530305%_ - (lambda (_%g3005730068%_) - ((lambda (_%L30071%_) - (let* ((_%g3008430092%_ + _%g3015630159%_))) + (_%g3015430404%_ + (lambda (_%g3015630167%_) + ((lambda (_%L30170%_) + (let* ((_%g3018330191%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g3008530088%_) + (lambda (_%g3018430187%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3008530088%_))) - (_%g3008330301%_ - (lambda (_%g3008530096%_) - ((lambda (_%L30099%_) - (let* ((_%g3011230120%_ - (lambda (_%g3011330116%_) + _%g3018430187%_))) + (_%g3018230400%_ + (lambda (_%g3018430195%_) + ((lambda (_%L30198%_) + (let* ((_%g3021130219%_ + (lambda (_%g3021230215%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3011330116%_))) - (_%g3011130297%_ - (lambda (_%g3011330124%_) - ((lambda (_%L30127%_) - (let* ((_%g3014030148%_ - (lambda (_%g3014130144%_) + _%g3021230215%_))) + (_%g3021030396%_ + (lambda (_%g3021230223%_) + ((lambda (_%L30226%_) + (let* ((_%g3023930247%_ + (lambda (_%g3024030243%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3014130144%_))) - (_%g3013930282%_ - (lambda (_%g3014130152%_) - ((lambda (_%L30155%_) - (let* ((_%g3016830176%_ + _%g3024030243%_))) + (_%g3023830381%_ + (lambda (_%g3024030251%_) + ((lambda (_%L30254%_) + (let* ((_%g3026730275%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g3016930172%_) + (lambda (_%g3026830271%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3016930172%_))) - (_%g3016730270%_ - (lambda (_%g3016930180%_) - ((lambda (_%L30183%_) - (let* ((_%g3019630204%_ - (lambda (_%g3019730200%_) + _%g3026830271%_))) + (_%g3026630369%_ + (lambda (_%g3026830279%_) + ((lambda (_%L30282%_) + (let* ((_%g3029530303%_ + (lambda (_%g3029630299%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3019730200%_))) - (_%g3019530266%_ - (lambda (_%g3019730208%_) - ((lambda (_%L30211%_) + _%g3029630299%_))) + (_%g3029430365%_ + (lambda (_%g3029630307%_) + ((lambda (_%L30310%_) (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L29987%_ + (cons (cons (cons _%L30086%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L30099%_ - (foldr (lambda (_%g3023330236%_ + (cons (cons _%L30198%_ + (foldr (lambda (_%g3033230335%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g3023430239%_) - (cons _%g3023330236%_ _%g3023430239%_)) + _%g3033330338%_) + (cons _%g3033230335%_ _%g3033330338%_)) '() - _%L29786%_)) + _%L29885%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L30127%_ '()))) + (cons _%L30226%_ '()))) '())) - (cons (cons _%L30043%_ + (cons (cons _%L30142%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L30071%_ - (cons _%L30099%_ + (cons (cons _%L30170%_ + (cons _%L30198%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g3023130242%_ _%g3023230245%_) - (cons _%g3023130242%_ _%g3023230245%_)) + (foldr (lambda (_%g3033030341%_ _%g3033130344%_) + (cons _%g3033030341%_ _%g3033130344%_)) '() - _%L29856%_))) + _%L29955%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L30211%_ '()))) + (cons _%L30310%_ '()))) '())) - (cons (cons _%L30015%_ + (cons (cons _%L30114%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L30099%_ + (cons (cons _%L30198%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g3022930248%_ _%g3023030251%_) - (cons _%g3022930248%_ _%g3023030251%_)) + (foldr (lambda (_%g3032830347%_ _%g3032930350%_) + (cons _%g3032830347%_ _%g3032930350%_)) '() - _%L29856%_)) + _%L29955%_)) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'pair?) - (cons _%L30099%_ '())) - (cons (cons _%L30043%_ + (cons _%L30198%_ '())) + (cons (cons _%L30142%_ (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L30099%_ + (cons _%L30198%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L30099%_ - (foldr (lambda (_%g3022730254%_ _%g3022830257%_) - (cons _%g3022730254%_ _%g3022830257%_)) + (cons _%L30198%_ + (foldr (lambda (_%g3032630353%_ _%g3032730356%_) + (cons _%g3032630353%_ _%g3032730356%_)) '() - _%L29856%_)))) + _%L29955%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L30183%_ '())))) + (cons _%L30282%_ '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()))) - (cons (cons _%L30015%_ - (cons _%L29959%_ - (foldr (lambda (_%g3022530260%_ - _%g3022630263%_) - (cons _%g3022530260%_ - _%g3022630263%_)) + (cons (cons _%L30114%_ + (cons _%L30058%_ + (foldr (lambda (_%g3032430359%_ + _%g3032530362%_) + (cons _%g3032430359%_ + _%g3032530362%_)) '() - _%L29927%_))) + _%L30026%_))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3019730208%_)))) - (_%g3019530266%_ - (_%generate129106%_ - _%L30071%_ - _%hd29727%_ - _%L30155%_ - _%L30183%_)))) - _%g3016930180%_)))) - (_%g3016730270%_ - (cons _%L29987%_ - (cons _%L30099%_ - (foldr (lambda (_%g3027330276%_ - _%g3027430279%_) + _%g3029630307%_)))) + (_%g3029430365%_ + (_%generate129205%_ + _%L30170%_ + _%hd29826%_ + _%L30254%_ + _%L30282%_)))) + _%g3026830279%_)))) + (_%g3026630369%_ + (cons _%L30086%_ + (cons _%L30198%_ + (foldr (lambda (_%g3037230375%_ + _%g3037330378%_) (cons (cons (gx#datum->syntax '#f 'reverse) - (cons _%g3027330276%_ + (cons _%g3037230375%_ '())) - _%g3027430279%_)) + _%g3037330378%_)) '() - _%L29856%_)))))) - _%g3014130152%_)))) + _%L29955%_)))))) + _%g3024030251%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3013930282%_ - (cons _%L30015%_ + (_%g3023830381%_ + (cons _%L30114%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##cdr) - (cons _%L30099%_ '())) + (cons _%L30198%_ '())) (begin - (gx#syntax-check-splice-targets _%L29856%_ _%L29786%_) - (foldr (lambda (_%g3028530289%_ - _%g3028630292%_ - _%g3028730294%_) + (gx#syntax-check-splice-targets _%L29955%_ _%L29885%_) + (foldr (lambda (_%g3038430388%_ + _%g3038530391%_ + _%g3038630393%_) (cons (cons (gx#datum->syntax '#f 'cons) - (cons _%g3028630292%_ - (cons _%g3028530289%_ '()))) - _%g3028730294%_)) + (cons _%g3038530391%_ + (cons _%g3038430388%_ '()))) + _%g3038630393%_)) '() - _%L29856%_ - _%L29786%_))))))) + _%L29955%_ + _%L29885%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3011330124%_)))) - (_%g3011130297%_ - (_%generate129106%_ - _%L30099%_ - _%rest29728%_ - _%K29729%_ - _%E29730%_)))) - _%g3008530096%_)))) - (_%g3008330301%_ (gx#genident 'rest)))) - _%g3005730068%_)))) + _%g3021230223%_)))) + (_%g3021030396%_ + (_%generate129205%_ + _%L30198%_ + _%rest29827%_ + _%K29828%_ + _%E29829%_)))) + _%g3018430195%_)))) + (_%g3018230400%_ (gx#genident 'rest)))) + _%g3015630167%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3005530305%_ + (_%g3015430404%_ (gx#genident 'hd)))) - _%g3002930040%_)))) - (_%g3002730309%_ + _%g3012830139%_)))) + (_%g3012630408%_ (gx#genident 'splice-try)))) - _%g3000130012%_)))) - (_%g2999930313%_ (gx#genident 'splice-loop)))) - _%g2997329984%_)))) + _%g3010030111%_)))) + (_%g3009830412%_ (gx#genident 'splice-loop)))) + _%g3007230083%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2997130317%_ + (_%g3007030416%_ (gx#genident 'splice-rest)))) - _%g2994529956%_)))) - (_%g2994330321%_ _%tgt29725%_))) - _%init2988429923%_)))))) - (_%loop2987929903%_ _%target2987629897%_ '())) - (_%g2987329890%_ _%g2987429894%_))))) + _%g3004430055%_)))) + (_%g3004230420%_ _%tgt29824%_))) + _%init2998330022%_)))))) + (_%loop2997830002%_ _%target2997529996%_ '())) + (_%g2997229989%_ _%g2997329993%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2987329890%_ - _%g2987429894%_))))) - (_%g2987230325%_ + (_%g2997229989%_ + _%g2997329993%_))))) + (_%g2997130424%_ (make-list (gx#stx-length - (foldr (lambda (_%g3032830331%_ - _%g3032930334%_) - (cons _%g3032830331%_ - _%g3032930334%_)) + (foldr (lambda (_%g3042730430%_ + _%g3042830433%_) + (cons _%g3042730430%_ + _%g3042830433%_)) '() - _%L29786%_)) + _%L29885%_)) (cons (gx#datum->syntax '#f '@list) '()))))) - _%var-r2981329852%_)))))) + _%var-r2991229951%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2980829832%_ - _%target2980529826%_ + (_%loop2990729931%_ + _%target2990429925%_ '())) - (_%g2980229819%_ - _%g2980329823%_))))) - (_%g2980229819%_ _%g2980329823%_))))) - (_%g2980130337%_ + (_%g2990129918%_ + _%g2990229922%_))))) + (_%g2990129918%_ _%g2990229922%_))))) + (_%g2990030436%_ (gx#gentemps - (foldr (lambda (_%g3034030343%_ _%g3034130346%_) - (cons _%g3034030343%_ _%g3034130346%_)) + (foldr (lambda (_%g3043930442%_ _%g3044030445%_) + (cons _%g3043930442%_ _%g3044030445%_)) '() - _%L29786%_))))) - _%var2974329782%_)))))) + _%L29885%_))))) + _%var2984229881%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2973829762%_ - _%target2973529756%_ + (_%loop2983729861%_ + _%target2983429855%_ '())) - (_%g2973229749%_ - _%g2973329753%_))))) - (_%g2973229749%_ _%g2973329753%_))))) - (_%g2973130349%_ + (_%g2983129848%_ + _%g2983229852%_))))) + (_%g2983129848%_ _%g2983229852%_))))) + (_%g2983030448%_ (|gerbil/core/match[1]#match-pattern-vars| - _%hd29727%_))))) - (_%generate-simple-vector29109%_ - (lambda (_%tgt29567%_ - _%body29569%_ - _%start29570%_ - _%K29571%_ - _%E29572%_) - (let _%recur29574%_ ((_%rest29577%_ _%body29569%_) - (_%off29579%_ _%start29570%_)) - (let* ((_%__stx3905939060%_ _%rest29577%_) - (_%g2958229594%_ + _%hd29826%_))))) + (_%generate-simple-vector29208%_ + (lambda (_%tgt29666%_ + _%body29668%_ + _%start29669%_ + _%K29670%_ + _%E29671%_) + (let _%recur29673%_ ((_%rest29676%_ _%body29668%_) + (_%off29678%_ _%start29669%_)) + (let* ((_%__stx3915839159%_ _%rest29676%_) + (_%g2968129693%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3905939060%_)))) - (let ((_%__kont3906239063%_ - (lambda (_%L29622%_ _%L29624%_) - (let* ((_%g2963929658%_ - (lambda (_%g2964029654%_) + _%__stx3915839159%_)))) + (let ((_%__kont3916139162%_ + (lambda (_%L29721%_ _%L29723%_) + (let* ((_%g2973829757%_ + (lambda (_%g2973929753%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2964029654%_))) - (_%g2963829717%_ - (lambda (_%g2964029662%_) - (if (gx#stx-pair? _%g2964029662%_) - (let ((_%e2964429665%_ + _%g2973929753%_))) + (_%g2973729816%_ + (lambda (_%g2973929761%_) + (if (gx#stx-pair? _%g2973929761%_) + (let ((_%e2974329764%_ (gx#syntax-e - _%g2964029662%_))) - (let ((_%hd2964529669%_ + _%g2973929761%_))) + (let ((_%hd2974429768%_ (let () (declare (not safe)) - (##car _%e2964429665%_))) - (_%tl2964629672%_ + (##car _%e2974329764%_))) + (_%tl2974529771%_ (let () (declare (not safe)) - (##cdr _%e2964429665%_)))) + (##cdr _%e2974329764%_)))) (if (gx#stx-pair? - _%tl2964629672%_) - (let ((_%e2964729675%_ + _%tl2974529771%_) + (let ((_%e2974629774%_ (gx#syntax-e - _%tl2964629672%_))) - (let ((_%hd2964829679%_ + _%tl2974529771%_))) + (let ((_%hd2974729778%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2964729675%_))) - (_%tl2964929682%_ - (let () (declare (not safe)) (##cdr _%e2964729675%_)))) - (if (gx#stx-pair? _%tl2964929682%_) - (let ((_%e2965029685%_ (gx#syntax-e _%tl2964929682%_))) - (let ((_%hd2965129689%_ + (##car _%e2974629774%_))) + (_%tl2974829781%_ + (let () (declare (not safe)) (##cdr _%e2974629774%_)))) + (if (gx#stx-pair? _%tl2974829781%_) + (let ((_%e2974929784%_ (gx#syntax-e _%tl2974829781%_))) + (let ((_%hd2975029788%_ (let () (declare (not safe)) - (##car _%e2965029685%_))) - (_%tl2965229692%_ + (##car _%e2974929784%_))) + (_%tl2975129791%_ (let () (declare (not safe)) - (##cdr _%e2965029685%_)))) - (if (gx#stx-null? _%tl2965229692%_) - ((lambda (_%L29695%_ _%L29697%_ _%L29698%_) + (##cdr _%e2974929784%_)))) + (if (gx#stx-null? _%tl2975129791%_) + ((lambda (_%L29794%_ _%L29796%_ _%L29797%_) (cons 'let - (cons (cons (cons _%L29698%_ + (cons (cons (cons _%L29797%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##vector-ref) - (cons _%L29697%_ (cons _%L29695%_ '()))) + (cons _%L29796%_ (cons _%L29794%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_%generate129106%_ - _%L29698%_ - _%L29624%_ - (_%recur29574%_ - _%L29622%_ - (fx1+ _%off29579%_)) - _%E29572%_) + (cons (_%generate129205%_ + _%L29797%_ + _%L29723%_ + (_%recur29673%_ + _%L29721%_ + (fx1+ _%off29678%_)) + _%E29671%_) '())))) - _%hd2965129689%_ - _%hd2964829679%_ - _%hd2964529669%_) - (_%g2963929658%_ _%g2964029662%_)))) - (_%g2963929658%_ _%g2964029662%_)))) - (_%g2963929658%_ _%g2964029662%_)))) + _%hd2975029788%_ + _%hd2974729778%_ + _%hd2974429768%_) + (_%g2973829757%_ _%g2973929761%_)))) + (_%g2973829757%_ _%g2973929761%_)))) + (_%g2973829757%_ _%g2973929761%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2963929658%_ - _%g2964029662%_))))) - (_%g2963829717%_ + (_%g2973829757%_ + _%g2973929761%_))))) + (_%g2973729816%_ (list (gx#genident 'e) - _%tgt29567%_ - _%off29579%_))))) - (_%__kont3906439065%_ (lambda () _%K29571%_))) - (if (gx#stx-pair? _%__stx3905939060%_) - (let ((_%e2958629612%_ - (gx#syntax-e _%__stx3905939060%_))) - (let ((_%tl2958829619%_ + _%tgt29666%_ + _%off29678%_))))) + (_%__kont3916339164%_ (lambda () _%K29670%_))) + (if (gx#stx-pair? _%__stx3915839159%_) + (let ((_%e2968529711%_ + (gx#syntax-e _%__stx3915839159%_))) + (let ((_%tl2968729718%_ (let () (declare (not safe)) - (##cdr _%e2958629612%_))) - (_%hd2958729616%_ + (##cdr _%e2968529711%_))) + (_%hd2968629715%_ (let () (declare (not safe)) - (##car _%e2958629612%_)))) - (_%__kont3906239063%_ - _%tl2958829619%_ - _%hd2958729616%_))) - (_%__kont3906439065%_))))))) - (_%generate-list-vector29110%_ - (lambda (_%tgt29459%_ - _%body29461%_ - _%->list29462%_ - _%K29463%_ - _%E29464%_) - (let* ((_%g2946629474%_ - (lambda (_%g2946729470%_) + (##car _%e2968529711%_)))) + (_%__kont3916139162%_ + _%tl2968729718%_ + _%hd2968629715%_))) + (_%__kont3916339164%_))))))) + (_%generate-list-vector29209%_ + (lambda (_%tgt29558%_ + _%body29560%_ + _%->list29561%_ + _%K29562%_ + _%E29563%_) + (let* ((_%g2956529573%_ + (lambda (_%g2956629569%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2946729470%_))) - (_%g2946529563%_ - (lambda (_%g2946729478%_) - ((lambda (_%L29481%_) - (let* ((_%g2949329501%_ - (lambda (_%g2949429497%_) + _%g2956629569%_))) + (_%g2956429662%_ + (lambda (_%g2956629577%_) + ((lambda (_%L29580%_) + (let* ((_%g2959229600%_ + (lambda (_%g2959329596%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2949429497%_))) - (_%g2949229559%_ - (lambda (_%g2949429505%_) - ((lambda (_%L29508%_) - (let* ((_%g2952129529%_ - (lambda (_%g2952229525%_) + _%g2959329596%_))) + (_%g2959129658%_ + (lambda (_%g2959329604%_) + ((lambda (_%L29607%_) + (let* ((_%g2962029628%_ + (lambda (_%g2962129624%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2952229525%_))) - (_%g2952029551%_ - (lambda (_%g2952229533%_) - ((lambda (_%L29536%_) + _%g2962129624%_))) + (_%g2961929650%_ + (lambda (_%g2962129632%_) + ((lambda (_%L29635%_) (cons 'let ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons _%L29481%_ (cons _%L29536%_ '())) + (cons (cons (cons _%L29580%_ (cons _%L29635%_ '())) '()) - (cons (_%generate129106%_ - _%L29481%_ - _%body29461%_ - _%K29463%_ - _%E29464%_) + (cons (_%generate129205%_ + _%L29580%_ + _%body29560%_ + _%K29562%_ + _%E29563%_) '())))) - _%g2952229533%_)))) + _%g2962129632%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2952029551%_ - (let ((_%$e29555%_ - _%->list29462%_)) + (_%g2961929650%_ + (let ((_%$e29654%_ + _%->list29561%_)) (if (eq? 'values->list - _%$e29555%_) + _%$e29654%_) (cons (gx#datum->syntax '#f 'values->list) - (cons _%L29508%_ + (cons _%L29607%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (if (eq? 'vector->list _%$e29555%_) + (if (eq? 'vector->list _%$e29654%_) (cons (gx#datum->syntax '#f '##vector->list) - (cons _%L29508%_ '())) - (if (eq? 'struct->list _%$e29555%_) + (cons _%L29607%_ '())) + (if (eq? 'struct->list _%$e29654%_) (cons (gx#datum->syntax '#f '##cdr) (cons (cons (gx#datum->syntax '#f '##structure->list) - (cons _%L29508%_ '())) + (cons _%L29607%_ '())) '())) (gx#raise-syntax-error '#f '"Unexpected list conversion" - _%stx29099%_ - _%->list29462%_)))))))) + _%stx29198%_ + _%->list29561%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2949429505%_)))) - (_%g2949229559%_ _%tgt29459%_))) - _%g2946729478%_)))) - (_%g2946529563%_ (gx#genident 'e))))) - (_%generate-struct29111%_ - (lambda (_%info29330%_ - _%tgt29332%_ - _%body29333%_ - _%K29334%_ - _%E29335%_) - (let* ((_%__stx3907539076%_ _%body29333%_) - (_%g2933829361%_ + _%g2959329604%_)))) + (_%g2959129658%_ _%tgt29558%_))) + _%g2956629577%_)))) + (_%g2956429662%_ (gx#genident 'e))))) + (_%generate-struct29210%_ + (lambda (_%info29429%_ + _%tgt29431%_ + _%body29432%_ + _%K29433%_ + _%E29434%_) + (let* ((_%__stx3917439175%_ _%body29432%_) + (_%g2943729460%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3907539076%_)))) - (let ((_%__kont3907839079%_ - (lambda (_%L29438%_) - (let ((_%fields29452%_ - (_%struct-field-accessors29113%_ - _%info29330%_))) + _%__stx3917439175%_)))) + (let ((_%__kont3917739178%_ + (lambda (_%L29537%_) + (let ((_%fields29551%_ + (_%struct-field-accessors29212%_ + _%info29429%_))) (cons 'if - (cons (cons (let ((__obj39829 - _%info29330%_)) + (cons (cons (let ((__obj39928 + _%info29429%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39829 + __obj39928 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39829 + __obj39928 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39829 + __obj39928 'predicate))) - (cons _%tgt29332%_ '())) - (cons (_%generate-simple-struct-body29112%_ - _%info29330%_ - _%tgt29332%_ - _%L29438%_ - _%K29334%_ - _%E29335%_) - (cons _%E29335%_ '()))))))) - (_%__kont3908039081%_ - (lambda (_%L29392%_) + (cons _%tgt29431%_ '())) + (cons (_%generate-simple-struct-body29211%_ + _%info29429%_ + _%tgt29431%_ + _%L29537%_ + _%K29433%_ + _%E29434%_) + (cons _%E29434%_ '()))))))) + (_%__kont3917939180%_ + (lambda (_%L29491%_) (cons 'if - (cons (cons (let ((__obj39830 - _%info29330%_)) + (cons (cons (let ((__obj39929 + _%info29429%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39830 + __obj39929 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39830 + __obj39929 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39830 + __obj39929 'predicate))) - (cons _%tgt29332%_ '())) - (cons (_%generate-list-vector29110%_ - _%tgt29332%_ - _%L29392%_ + (cons _%tgt29431%_ '())) + (cons (_%generate-list-vector29209%_ + _%tgt29431%_ + _%L29491%_ 'struct->list - _%K29334%_ - _%E29335%_) - (cons _%E29335%_ '()))))))) - (if (gx#stx-pair? _%__stx3907539076%_) - (let ((_%e2934129414%_ - (gx#syntax-e _%__stx3907539076%_))) - (let ((_%tl2934329421%_ + _%K29433%_ + _%E29434%_) + (cons _%E29434%_ '()))))))) + (if (gx#stx-pair? _%__stx3917439175%_) + (let ((_%e2944029513%_ + (gx#syntax-e _%__stx3917439175%_))) + (let ((_%tl2944229520%_ (let () (declare (not safe)) - (##cdr _%e2934129414%_))) - (_%hd2934229418%_ + (##cdr _%e2944029513%_))) + (_%hd2944129517%_ (let () (declare (not safe)) - (##car _%e2934129414%_)))) - (if (gx#stx-datum? _%hd2934229418%_) - (let ((_%e2934429424%_ - (gx#stx-e _%hd2934229418%_))) - (if (equal? _%e2934429424%_ 'simple:) - (if (gx#stx-pair? _%tl2934329421%_) - (let ((_%e2934529428%_ + (##car _%e2944029513%_)))) + (if (gx#stx-datum? _%hd2944129517%_) + (let ((_%e2944329523%_ + (gx#stx-e _%hd2944129517%_))) + (if (equal? _%e2944329523%_ 'simple:) + (if (gx#stx-pair? _%tl2944229520%_) + (let ((_%e2944429527%_ (gx#syntax-e - _%tl2934329421%_))) - (let ((_%tl2934729435%_ + _%tl2944229520%_))) + (let ((_%tl2944629534%_ (let () (declare (not safe)) - (##cdr _%e2934529428%_))) - (_%hd2934629432%_ + (##cdr _%e2944429527%_))) + (_%hd2944529531%_ (let () (declare (not safe)) - (##car _%e2934529428%_)))) + (##car _%e2944429527%_)))) (if (gx#stx-null? - _%tl2934729435%_) - (_%__kont3907839079%_ - _%hd2934629432%_) + _%tl2944629534%_) + (_%__kont3917739178%_ + _%hd2944529531%_) (let () (declare (not safe)) - (_%g2933829361%_))))) + (_%g2943729460%_))))) (let () (declare (not safe)) - (_%g2933829361%_))) - (if (equal? _%e2934429424%_ 'list:) + (_%g2943729460%_))) + (if (equal? _%e2944329523%_ 'list:) (if (gx#stx-pair? - _%tl2934329421%_) - (let ((_%e2935329382%_ + _%tl2944229520%_) + (let ((_%e2945229481%_ (gx#syntax-e - _%tl2934329421%_))) - (let ((_%tl2935529389%_ + _%tl2944229520%_))) + (let ((_%tl2945429488%_ (let () (declare (not safe)) - (##cdr _%e2935329382%_))) - (_%hd2935429386%_ + (##cdr _%e2945229481%_))) + (_%hd2945329485%_ (let () (declare (not safe)) - (##car _%e2935329382%_)))) + (##car _%e2945229481%_)))) (if (gx#stx-null? - _%tl2935529389%_) - (_%__kont3908039081%_ - _%hd2935429386%_) + _%tl2945429488%_) + (_%__kont3917939180%_ + _%hd2945329485%_) (let () (declare (not safe)) - (_%g2933829361%_))))) + (_%g2943729460%_))))) (let () (declare (not safe)) - (_%g2933829361%_))) + (_%g2943729460%_))) (let () (declare (not safe)) - (_%g2933829361%_))))) + (_%g2943729460%_))))) (let () (declare (not safe)) - (_%g2933829361%_))))) + (_%g2943729460%_))))) (let () (declare (not safe)) - (_%g2933829361%_))))))) - (_%generate-simple-struct-body29112%_ - (lambda (_%info29250%_ - _%tgt29252%_ - _%body29253%_ - _%K29254%_ - _%E29255%_) - (let _%recur29257%_ ((_%rest29260%_ _%body29253%_) - (_%fields29262%_ - (_%struct-field-accessors29113%_ - _%info29250%_))) - (let* ((_%__stx3912539126%_ _%rest29260%_) - (_%g2926529277%_ + (_%g2943729460%_))))))) + (_%generate-simple-struct-body29211%_ + (lambda (_%info29349%_ + _%tgt29351%_ + _%body29352%_ + _%K29353%_ + _%E29354%_) + (let _%recur29356%_ ((_%rest29359%_ _%body29352%_) + (_%fields29361%_ + (_%struct-field-accessors29212%_ + _%info29349%_))) + (let* ((_%__stx3922439225%_ _%rest29359%_) + (_%g2936429376%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3912539126%_)))) - (let ((_%__kont3912839129%_ - (lambda (_%L29305%_ _%L29307%_) - (if (null? _%fields29262%_) + _%__stx3922439225%_)))) + (let ((_%__kont3922739228%_ + (lambda (_%L29404%_ _%L29406%_) + (if (null? _%fields29361%_) (gx#raise-syntax-error '#f '"too many parts for struct" - _%stx29099%_ - _%info29250%_ - (let ((__obj39831 _%info29250%_)) + _%stx29198%_ + _%info29349%_ + (let ((__obj39930 _%info29349%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39831 + __obj39930 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39831 + __obj39930 '2 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39831 + __obj39930 'name)))) - (let ((_%$tgt29322%_ (gx#genident 'e)) - (_%getf29324%_ - (car _%fields29262%_))) + (let ((_%$tgt29421%_ (gx#genident 'e)) + (_%getf29423%_ + (car _%fields29361%_))) (cons 'let - (cons (cons (cons _%$tgt29322%_ - (cons (cons _%getf29324%_ + (cons (cons (cons _%$tgt29421%_ + (cons (cons _%getf29423%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%tgt29252%_ '())) + (cons _%tgt29351%_ '())) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (_%generate129106%_ - _%$tgt29322%_ - _%L29307%_ - (_%recur29257%_ - _%L29305%_ - (cdr _%fields29262%_)) - _%E29255%_) + (cons (_%generate129205%_ + _%$tgt29421%_ + _%L29406%_ + (_%recur29356%_ + _%L29404%_ + (cdr _%fields29361%_)) + _%E29354%_) '()))))))) - (_%__kont3913039131%_ (lambda () _%K29254%_))) - (if (gx#stx-pair? _%__stx3912539126%_) - (let ((_%e2926929295%_ - (gx#syntax-e _%__stx3912539126%_))) - (let ((_%tl2927129302%_ + (_%__kont3922939230%_ (lambda () _%K29353%_))) + (if (gx#stx-pair? _%__stx3922439225%_) + (let ((_%e2936829394%_ + (gx#syntax-e _%__stx3922439225%_))) + (let ((_%tl2937029401%_ (let () (declare (not safe)) - (##cdr _%e2926929295%_))) - (_%hd2927029299%_ + (##cdr _%e2936829394%_))) + (_%hd2936929398%_ (let () (declare (not safe)) - (##car _%e2926929295%_)))) - (_%__kont3912839129%_ - _%tl2927129302%_ - _%hd2927029299%_))) - (_%__kont3913039131%_))))))) - (_%struct-field-accessors29113%_ - (lambda (_%info29231%_) - (let _%recur29234%_ ((_%next29237%_ - (cons _%info29231%_ '()))) - (if (null? _%next29237%_) + (##car _%e2936829394%_)))) + (_%__kont3922739228%_ + _%tl2937029401%_ + _%hd2936929398%_))) + (_%__kont3922939230%_))))))) + (_%struct-field-accessors29212%_ + (lambda (_%info29330%_) + (let _%recur29333%_ ((_%next29336%_ + (cons _%info29330%_ '()))) + (if (null? _%next29336%_) '() - (let ((_%ti29240%_ (car _%next29237%_))) - (let ((__tmp39863 - (_%recur29234%_ + (let ((_%ti29339%_ (car _%next29336%_))) + (let ((__tmp39962 + (_%recur29333%_ (map gx#syntax-local-value - (let ((__obj39832 _%ti29240%_)) + (let ((__obj39931 _%ti29339%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39832 + __obj39931 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39832 + __obj39931 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39832 + __obj39931 'super)))))) - (__tmp39862 - (map (lambda (_%slot29243%_) - (let ((_%$e29246%_ - (agetq _%slot29243%_ - (let ((__obj39833 - _%ti29240%_)) + (__tmp39961 + (map (lambda (_%slot29342%_) + (let ((_%$e29345%_ + (agetq _%slot29342%_ + (let ((__obj39932 + _%ti29339%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj39833 + __obj39932 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj39833 '17 '#f '#f)) + (##unchecked-structure-ref __obj39932 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39833 + __obj39932 'unchecked-accessors)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e29246%_ - _%$e29246%_ + (if _%$e29345%_ + _%$e29345%_ (gx#raise-syntax-error '#f '"no accessor for struct slot" - _%stx29099%_ - _%info29231%_ - _%slot29243%_)))) - (let ((__obj39834 _%ti29240%_)) + _%stx29198%_ + _%info29330%_ + _%slot29342%_)))) + (let ((__obj39933 _%ti29339%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39834 + __obj39933 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39834 + __obj39933 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39834 + __obj39933 'slots)))))) (declare (not safe)) - (##append __tmp39863 __tmp39862))))))) - (_%generate-class29114%_ - (lambda (_%info29224%_ - _%tgt29226%_ - _%body29227%_ - _%K29228%_ - _%E29229%_) + (##append __tmp39962 __tmp39961))))))) + (_%generate-class29213%_ + (lambda (_%info29323%_ + _%tgt29325%_ + _%body29326%_ + _%K29327%_ + _%E29328%_) (cons 'if - (cons (cons (let ((__obj39835 _%info29224%_)) + (cons (cons (let ((__obj39934 _%info29323%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39835 + __obj39934 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39835 + __obj39934 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39835 + __obj39934 'predicate))) - (cons _%tgt29226%_ '())) - (cons (_%generate-class-body29115%_ - _%info29224%_ - _%tgt29226%_ - _%body29227%_ - _%K29228%_ - _%E29229%_) - (cons _%E29229%_ '())))))) - (_%generate-class-body29115%_ - (lambda (_%info29117%_ - _%tgt29119%_ - _%body29120%_ - _%K29121%_ - _%E29122%_) - (let _%recur29124%_ ((_%rest29127%_ _%body29120%_)) - (let* ((_%__stx3914139142%_ _%rest29127%_) - (_%g2913129147%_ + (cons _%tgt29325%_ '())) + (cons (_%generate-class-body29214%_ + _%info29323%_ + _%tgt29325%_ + _%body29326%_ + _%K29327%_ + _%E29328%_) + (cons _%E29328%_ '())))))) + (_%generate-class-body29214%_ + (lambda (_%info29216%_ + _%tgt29218%_ + _%body29219%_ + _%K29220%_ + _%E29221%_) + (let _%recur29223%_ ((_%rest29226%_ _%body29219%_)) + (let* ((_%__stx3924039241%_ _%rest29226%_) + (_%g2923029246%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3914139142%_)))) - (let ((_%__kont3914439145%_ - (lambda (_%L29185%_ _%L29187%_ _%L29188%_) - (let ((_%$e29208%_ - (agetq (let ((__tmp39864 + _%__stx3924039241%_)))) + (let ((_%__kont3924339244%_ + (lambda (_%L29284%_ _%L29286%_ _%L29287%_) + (let ((_%$e29307%_ + (agetq (let ((__tmp39963 (keyword->string - (gx#stx-e _%L29188%_)))) + (gx#stx-e _%L29287%_)))) (declare (not safe)) - (##string->symbol __tmp39864)) - (let ((__obj39836 - _%info29117%_)) + (##string->symbol __tmp39963)) + (let ((__obj39935 + _%info29216%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39836 + __obj39935 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39836 + __obj39935 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39836 + __obj39935 'unchecked-accessors)))))) - (if _%$e29208%_ - ((lambda (_%getf29212%_) - (let ((_%$tgt29215%_ + (if _%$e29307%_ + ((lambda (_%getf29311%_) + (let ((_%$tgt29314%_ (gx#genident 'e))) (cons 'let - (cons (cons (cons _%$tgt29215%_ + (cons (cons (cons _%$tgt29314%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%getf29212%_ (cons _%tgt29119%_ '())) + (cons (cons _%getf29311%_ (cons _%tgt29218%_ '())) '())) '()) - (cons (_%generate129106%_ - _%$tgt29215%_ - _%L29187%_ - (_%recur29124%_ _%L29185%_) - _%E29122%_) + (cons (_%generate129205%_ + _%$tgt29314%_ + _%L29286%_ + (_%recur29223%_ _%L29284%_) + _%E29221%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e29208%_) + _%$e29307%_) (gx#raise-syntax-error '#f '"no slot accessor" - _%stx29099%_ - _%info29117%_ - _%L29188%_))))) - (_%__kont3914639147%_ (lambda () _%K29121%_))) - (if (gx#stx-pair? _%__stx3914139142%_) - (let ((_%e2913629165%_ - (gx#syntax-e _%__stx3914139142%_))) - (let ((_%tl2913829172%_ + _%stx29198%_ + _%info29216%_ + _%L29287%_))))) + (_%__kont3924539246%_ (lambda () _%K29220%_))) + (if (gx#stx-pair? _%__stx3924039241%_) + (let ((_%e2923529264%_ + (gx#syntax-e _%__stx3924039241%_))) + (let ((_%tl2923729271%_ (let () (declare (not safe)) - (##cdr _%e2913629165%_))) - (_%hd2913729169%_ + (##cdr _%e2923529264%_))) + (_%hd2923629268%_ (let () (declare (not safe)) - (##car _%e2913629165%_)))) - (if (gx#stx-pair? _%tl2913829172%_) - (let ((_%e2913929175%_ - (gx#syntax-e _%tl2913829172%_))) - (let ((_%tl2914129182%_ + (##car _%e2923529264%_)))) + (if (gx#stx-pair? _%tl2923729271%_) + (let ((_%e2923829274%_ + (gx#syntax-e _%tl2923729271%_))) + (let ((_%tl2924029281%_ (let () (declare (not safe)) - (##cdr _%e2913929175%_))) - (_%hd2914029179%_ + (##cdr _%e2923829274%_))) + (_%hd2923929278%_ (let () (declare (not safe)) - (##car _%e2913929175%_)))) - (_%__kont3914439145%_ - _%tl2914129182%_ - _%hd2914029179%_ - _%hd2913729169%_))) - (_%__kont3914639147%_)))) - (_%__kont3914639147%_)))))))) - (_%generate129106%_ - _%tgt29101%_ - _%ptree29102%_ - _%K29103%_ - _%E29104%_)))) + (##car _%e2923829274%_)))) + (_%__kont3924339244%_ + _%tl2924029281%_ + _%hd2923929278%_ + _%hd2923629268%_))) + (_%__kont3924539246%_)))) + (_%__kont3924539246%_)))))))) + (_%generate129205%_ + _%tgt29200%_ + _%ptree29201%_ + _%K29202%_ + _%E29203%_)))) (define |gerbil/core/match[1]#generate-match*| - (lambda (_%stx27912%_ _%tgt-lst27914%_ _%clauses27915%_) - (letrec ((_%parse-body27917%_ - (lambda (_%hd-len28921%_) - (let _%lp28924%_ ((_%rest28927%_ _%clauses27915%_) - (_%r28929%_ '())) - (let* ((_%__stx3919139192%_ _%rest28927%_) - (_%g2893228944%_ + (lambda (_%stx28011%_ _%tgt-lst28013%_ _%clauses28014%_) + (letrec ((_%parse-body28016%_ + (lambda (_%hd-len29020%_) + (let _%lp29023%_ ((_%rest29026%_ _%clauses28014%_) + (_%r29028%_ '())) + (let* ((_%__stx3929039291%_ _%rest29026%_) + (_%g2903129043%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3919139192%_)))) - (let ((_%__kont3919439195%_ - (lambda (_%L28972%_ _%L28974%_) - (let* ((_%__stx3916339164%_ _%L28974%_) - (_%g2899129007%_ + _%__stx3929039291%_)))) + (let ((_%__kont3929339294%_ + (lambda (_%L29071%_ _%L29073%_) + (let* ((_%__stx3926239263%_ _%L29073%_) + (_%g2909029106%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3916339164%_)))) - (let ((_%__kont3916639167%_ - (lambda (_%L29076%_) - (if (gx#stx-null? _%L28972%_) + _%__stx3926239263%_)))) + (let ((_%__kont3926539266%_ + (lambda (_%L29175%_) + (if (gx#stx-null? _%L29071%_) (cons (cons (gx#genident 'else) (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'begin) - _%L29076%_) - (let ((_%$e29087%_ - (gx#stx-source _%L28974%_))) - (if _%$e29087%_ - _%$e29087%_ - (gx#stx-source _%stx27912%_)))) + _%L29175%_) + (let ((_%$e29186%_ + (gx#stx-source _%L29073%_))) + (if _%$e29186%_ + _%$e29186%_ + (gx#stx-source _%stx28011%_)))) '()))) - _%r28929%_) + _%r29028%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"bad syntax; misplaced else" - _%stx27912%_ - _%L28974%_)))) - (_%__kont3916839169%_ - (lambda (_%L29035%_ _%L29037%_) - (_%lp28924%_ - _%L28972%_ + _%stx28011%_ + _%L29073%_)))) + (_%__kont3926739268%_ + (lambda (_%L29134%_ _%L29136%_) + (_%lp29023%_ + _%L29071%_ (cons (cons (gx#genident 'try-match) (cons (gx#stx-map - (lambda (_%g2904929051%_) + (lambda (_%g2914829150%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (|gerbil/core/match[1]#parse-match-pattern__%| - _%g2904929051%_ - _%stx27912%_)) - _%L29037%_) + _%g2914829150%_ + _%stx28011%_)) + _%L29136%_) (cons (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'begin) _%L29035%_) - (let ((_%$e29055%_ (gx#stx-source _%L28974%_))) - (if _%$e29055%_ - _%$e29055%_ - (gx#stx-source _%stx27912%_)))) + (cons (gx#datum->syntax '#f 'begin) _%L29134%_) + (let ((_%$e29154%_ (gx#stx-source _%L29073%_))) + (if _%$e29154%_ + _%$e29154%_ + (gx#stx-source _%stx28011%_)))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r28929%_)))) - (_%__kont3917039171%_ + _%r29028%_)))) + (_%__kont3926939270%_ (lambda () (gx#raise-syntax-error '#f '"bad syntax; illegal match clause" - _%stx27912%_ - _%L28974%_)))) - (let* ((_%__match3918839189%_ - (lambda (_%e2899929025%_ - _%hd2900029029%_ - _%tl2900129032%_) - (let ((_%L29035%_ - _%tl2900129032%_) - (_%L29037%_ - _%hd2900029029%_)) + _%stx28011%_ + _%L29073%_)))) + (let* ((_%__match3928739288%_ + (lambda (_%e2909829124%_ + _%hd2909929128%_ + _%tl2910029131%_) + (let ((_%L29134%_ + _%tl2910029131%_) + (_%L29136%_ + _%hd2909929128%_)) (if (and (gx#stx-list? - _%L29037%_) + _%L29136%_) (fx= (gx#stx-length - _%L29037%_) - _%hd-len28921%_) + _%L29136%_) + _%hd-len29020%_) (gx#stx-list? - _%L29035%_) + _%L29134%_) (not (gx#stx-null? - _%L29035%_))) - (_%__kont3916839169%_ - _%L29035%_ - _%L29037%_) - (_%__kont3917039171%_))))) - (_%__match3918239183%_ - (lambda (_%e2899429066%_ - _%hd2899529070%_ - _%tl2899629073%_) - (let ((_%L29076%_ - _%tl2899629073%_)) + _%L29134%_))) + (_%__kont3926739268%_ + _%L29134%_ + _%L29136%_) + (_%__kont3926939270%_))))) + (_%__match3928139282%_ + (lambda (_%e2909329165%_ + _%hd2909429169%_ + _%tl2909529172%_) + (let ((_%L29175%_ + _%tl2909529172%_)) (if (and (gx#stx-list? - _%L29076%_) + _%L29175%_) (not (gx#stx-null? - _%L29076%_))) - (_%__kont3916639167%_ - _%L29076%_) - (_%__match3918839189%_ - _%e2899429066%_ - _%hd2899529070%_ - _%tl2899629073%_)))))) - (if (gx#stx-pair? _%__stx3916339164%_) - (let ((_%e2899429066%_ + _%L29175%_))) + (_%__kont3926539266%_ + _%L29175%_) + (_%__match3928739288%_ + _%e2909329165%_ + _%hd2909429169%_ + _%tl2909529172%_)))))) + (if (gx#stx-pair? _%__stx3926239263%_) + (let ((_%e2909329165%_ (gx#syntax-e - _%__stx3916339164%_))) - (let ((_%tl2899629073%_ + _%__stx3926239263%_))) + (let ((_%tl2909529172%_ (let () (declare (not safe)) - (##cdr _%e2899429066%_))) - (_%hd2899529070%_ + (##cdr _%e2909329165%_))) + (_%hd2909429169%_ (let () (declare (not safe)) - (##car _%e2899429066%_)))) + (##car _%e2909329165%_)))) (if (gx#identifier? - _%hd2899529070%_) + _%hd2909429169%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39865_| - _%hd2899529070%_) - (_%__match3918239183%_ - _%e2899429066%_ - _%hd2899529070%_ - _%tl2899629073%_) - (_%__match3918839189%_ - _%e2899429066%_ - _%hd2899529070%_ - _%tl2899629073%_)) - (_%__match3918839189%_ - _%e2899429066%_ - _%hd2899529070%_ - _%tl2899629073%_)))) - (_%__kont3917039171%_))))))) - (_%__kont3919639197%_ (lambda () _%r28929%_))) - (if (gx#stx-pair? _%__stx3919139192%_) - (let ((_%e2893628962%_ - (gx#syntax-e _%__stx3919139192%_))) - (let ((_%tl2893828969%_ + |gerbil/core/match[1]#_g39964_| + _%hd2909429169%_) + (_%__match3928139282%_ + _%e2909329165%_ + _%hd2909429169%_ + _%tl2909529172%_) + (_%__match3928739288%_ + _%e2909329165%_ + _%hd2909429169%_ + _%tl2909529172%_)) + (_%__match3928739288%_ + _%e2909329165%_ + _%hd2909429169%_ + _%tl2909529172%_)))) + (_%__kont3926939270%_))))))) + (_%__kont3929539296%_ (lambda () _%r29028%_))) + (if (gx#stx-pair? _%__stx3929039291%_) + (let ((_%e2903529061%_ + (gx#syntax-e _%__stx3929039291%_))) + (let ((_%tl2903729068%_ (let () (declare (not safe)) - (##cdr _%e2893628962%_))) - (_%hd2893728966%_ + (##cdr _%e2903529061%_))) + (_%hd2903629065%_ (let () (declare (not safe)) - (##car _%e2893628962%_)))) - (_%__kont3919439195%_ - _%tl2893828969%_ - _%hd2893728966%_))) - (_%__kont3919639197%_))))))) - (_%generate-body27919%_ - (lambda (_%body28623%_) - (let* ((_%g2862628634%_ - (lambda (_%g2862728630%_) + (##car _%e2903529061%_)))) + (_%__kont3929339294%_ + _%tl2903729068%_ + _%hd2903629065%_))) + (_%__kont3929539296%_))))))) + (_%generate-body28018%_ + (lambda (_%body28722%_) + (let* ((_%g2872528733%_ + (lambda (_%g2872628729%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2862728630%_))) - (_%g2862528917%_ - (lambda (_%g2862728638%_) - ((lambda (_%L28641%_) - (let* ((_%g2865328670%_ - (lambda (_%g2865428666%_) + _%g2872628729%_))) + (_%g2872429016%_ + (lambda (_%g2872628737%_) + ((lambda (_%L28740%_) + (let* ((_%g2875228769%_ + (lambda (_%g2875328765%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2865428666%_))) - (_%g2865228913%_ - (lambda (_%g2865428674%_) + _%g2875328765%_))) + (_%g2875129012%_ + (lambda (_%g2875328773%_) (if (gx#stx-pair/null? - _%g2865428674%_) - (let ((_g39866_ + _%g2875328773%_) + (let ((_g39965_ (gx#syntax-split-splice - _%g2865428674%_ + _%g2875328773%_ '0))) (begin - (let ((_g39867_ + (let ((_g39966_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g39866_) - (##vector-length _g39866_) + _g39965_) + (##values-length _g39965_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g39867_ 2))) - (error "Context expects 2 values" _g39867_))) + (##fx= _g39966_ 2))) + (error "Context expects 2 values" _g39966_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2865628677%_ + (let ((_%target2875528776%_ (let () (declare (not safe)) - (##vector-ref - _g39866_ + (##values-ref + _g39965_ 0))) - (_%tl2865828680%_ + (_%tl2875728779%_ (let () (declare (not safe)) - (##vector-ref - _g39866_ + (##values-ref + _g39965_ 1)))) (if (gx#stx-null? - _%tl2865828680%_) - (letrec ((_%loop2865928683%_ + _%tl2875728779%_) + (letrec ((_%loop2875828782%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd2865728687%_ _%target2866328690%_) - (if (gx#stx-pair? _%hd2865728687%_) - (let ((_%e2866028693%_ - (gx#syntax-e _%hd2865728687%_))) - (let ((_%lp-hd2866128697%_ + (lambda (_%hd2875628786%_ _%target2876228789%_) + (if (gx#stx-pair? _%hd2875628786%_) + (let ((_%e2875928792%_ + (gx#syntax-e _%hd2875628786%_))) + (let ((_%lp-hd2876028796%_ (let () (declare (not safe)) - (##car _%e2866028693%_))) - (_%lp-tl2866228700%_ + (##car _%e2875928792%_))) + (_%lp-tl2876128799%_ (let () (declare (not safe)) - (##cdr _%e2866028693%_)))) - (_%loop2865928683%_ - _%lp-tl2866228700%_ - (cons _%lp-hd2866128697%_ - _%target2866328690%_)))) - (let ((_%target2866428703%_ - (reverse _%target2866328690%_))) - ((lambda (_%L28707%_) - (let* ((_%g2872428741%_ - (lambda (_%g2872528737%_) + (##cdr _%e2875928792%_)))) + (_%loop2875828782%_ + _%lp-tl2876128799%_ + (cons _%lp-hd2876028796%_ + _%target2876228789%_)))) + (let ((_%target2876328802%_ + (reverse _%target2876228789%_))) + ((lambda (_%L28806%_) + (let* ((_%g2882328840%_ + (lambda (_%g2882428836%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2872528737%_))) - (_%g2872328909%_ - (lambda (_%g2872528745%_) + _%g2882428836%_))) + (_%g2882229008%_ + (lambda (_%g2882428844%_) (if (gx#stx-pair/null? - _%g2872528745%_) - (let ((_g39868_ + _%g2882428844%_) + (let ((_g39967_ (gx#syntax-split-splice - _%g2872528745%_ + _%g2882428844%_ '0))) (begin - (let ((_g39869_ + (let ((_g39968_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g39868_) - (##vector-length _g39868_) + (if (##values? _g39967_) + (##values-length _g39967_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g39869_ 2))) - (error "Context expects 2 values" _g39869_))) - (let ((_%target2872728748%_ - (let () (declare (not safe)) (##vector-ref _g39868_ 0))) - (_%tl2872928751%_ + (if (not (let () (declare (not safe)) (##fx= _g39968_ 2))) + (error "Context expects 2 values" _g39968_))) + (let ((_%target2882628847%_ + (let () (declare (not safe)) (##values-ref _g39967_ 0))) + (_%tl2882828850%_ (let () (declare (not safe)) - (##vector-ref _g39868_ 1)))) - (if (gx#stx-null? _%tl2872928751%_) - (letrec ((_%loop2873028754%_ - (lambda (_%hd2872828758%_ - _%fail-diagnostic2873428761%_) - (if (gx#stx-pair? _%hd2872828758%_) - (let ((_%e2873128764%_ - (gx#syntax-e _%hd2872828758%_))) - (let ((_%lp-hd2873228768%_ + (##values-ref _g39967_ 1)))) + (if (gx#stx-null? _%tl2882828850%_) + (letrec ((_%loop2882928853%_ + (lambda (_%hd2882728857%_ + _%fail-diagnostic2883328860%_) + (if (gx#stx-pair? _%hd2882728857%_) + (let ((_%e2883028863%_ + (gx#syntax-e _%hd2882728857%_))) + (let ((_%lp-hd2883128867%_ (let () (declare (not safe)) - (##car _%e2873128764%_))) - (_%lp-tl2873328771%_ + (##car _%e2883028863%_))) + (_%lp-tl2883228870%_ (let () (declare (not safe)) - (##cdr _%e2873128764%_)))) - (_%loop2873028754%_ - _%lp-tl2873328771%_ - (cons _%lp-hd2873228768%_ - _%fail-diagnostic2873428761%_)))) - (let ((_%fail-diagnostic2873528774%_ - (reverse _%fail-diagnostic2873428761%_))) - ((lambda (_%L28778%_) - (let* ((_%g2879528803%_ - (lambda (_%g2879628799%_) + (##cdr _%e2883028863%_)))) + (_%loop2882928853%_ + _%lp-tl2883228870%_ + (cons _%lp-hd2883128867%_ + _%fail-diagnostic2883328860%_)))) + (let ((_%fail-diagnostic2883428873%_ + (reverse _%fail-diagnostic2883328860%_))) + ((lambda (_%L28877%_) + (let* ((_%g2889428902%_ + (lambda (_%g2889528898%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2879628799%_))) - (_%g2879428889%_ - (lambda (_%g2879628807%_) - ((lambda (_%L28810%_) - (let* ((_%g2882328831%_ - (lambda (_%g2882428827%_) + _%g2889528898%_))) + (_%g2889328988%_ + (lambda (_%g2889528906%_) + ((lambda (_%L28909%_) + (let* ((_%g2892228930%_ + (lambda (_%g2892328926%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2882428827%_))) - (_%g2882228885%_ - (lambda (_%g2882428835%_) - ((lambda (_%L28838%_) - (let* ((_%g2885128859%_ - (lambda (_%g2885228855%_) + _%g2892328926%_))) + (_%g2892128984%_ + (lambda (_%g2892328934%_) + ((lambda (_%L28937%_) + (let* ((_%g2895028958%_ + (lambda (_%g2895128954%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2885228855%_))) - (_%g2885028881%_ - (lambda (_%g2885228863%_) - ((lambda (_%L28866%_) + _%g2895128954%_))) + (_%g2894928980%_ + (lambda (_%g2895128962%_) + ((lambda (_%L28965%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (gx#datum->syntax '#f '@match) - (cons _%L28866%_ '())))) - _%g2885228863%_)))) - (_%g2885028881%_ + (cons _%L28965%_ '())))) + _%g2895128962%_)))) + (_%g2894928980%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L28641%_ - (cons _%L28810%_ '())) + (cons (cons (cons _%L28740%_ + (cons _%L28909%_ '())) '()) - (cons _%L28838%_ '()))) - (gx#stx-source _%stx27912%_))))) - _%g2882428835%_)))) - (_%g2882228885%_ - (_%generate-clauses27920%_ - _%body28623%_ + (cons _%L28937%_ '()))) + (gx#stx-source _%stx28011%_))))) + _%g2892328934%_)))) + (_%g2892128984%_ + (_%generate-clauses28019%_ + _%body28722%_ (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@abort) '()) - (cons (cons _%L28641%_ '()) '()))))))) - _%g2879628807%_)))) + (cons (cons _%L28740%_ '()) '()))))))) + _%g2889528906%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2879428889%_ + (_%g2889328988%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f @@ -4673,244 +4673,244 @@ '#f 'error) (cons '"No clause matching" - (foldr (lambda (_%g2889228897%_ - _%g2889328900%_) - (cons _%g2889228897%_ - _%g2889328900%_)) - (foldr (lambda (_%g2889428903%_ - _%g2889528906%_) + (foldr (lambda (_%g2899128996%_ + _%g2899228999%_) + (cons _%g2899128996%_ + _%g2899228999%_)) + (foldr (lambda (_%g2899329002%_ + _%g2899429005%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g2889428903%_ '())) - _%g2889528906%_)) + (cons _%g2899329002%_ '())) + _%g2899429005%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L28778%_) - _%L28707%_))) + _%L28877%_) + _%L28806%_))) (cons (cons (gx#datum->syntax '#f 'void) '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx27912%_))))) - _%fail-diagnostic2873528774%_)))))) - (_%loop2873028754%_ _%target2872728748%_ '())) - (_%g2872428741%_ _%g2872528745%_))))) + (gx#stx-source _%stx28011%_))))) + _%fail-diagnostic2883428873%_)))))) + (_%loop2882928853%_ _%target2882628847%_ '())) + (_%g2882328840%_ _%g2882428844%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2872428741%_ - _%g2872528745%_))))) - (_%g2872328909%_ + (_%g2882328840%_ + _%g2882428844%_))))) + (_%g2882229008%_ (gx#stx-map gx#stx-car - _%clauses27915%_)))) - _%target2866428703%_)))))) - (_%loop2865928683%_ _%target2865628677%_ '())) - (_%g2865328670%_ _%g2865428674%_))))) + _%clauses28014%_)))) + _%target2876328802%_)))))) + (_%loop2875828782%_ _%target2875528776%_ '())) + (_%g2875228769%_ _%g2875328773%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2865328670%_ - _%g2865428674%_))))) - (_%g2865228913%_ _%tgt-lst27914%_))) - _%g2862728638%_)))) - (_%g2862528917%_ (gx#genident 'E))))) - (_%generate-clauses27920%_ - (lambda (_%rest28275%_ _%E28277%_) - (let* ((_%__stx3920739208%_ _%rest28275%_) - (_%g2828128297%_ + (_%g2875228769%_ + _%g2875328773%_))))) + (_%g2875129012%_ _%tgt-lst28013%_))) + _%g2872628737%_)))) + (_%g2872429016%_ (gx#genident 'E))))) + (_%generate-clauses28019%_ + (lambda (_%rest28374%_ _%E28376%_) + (let* ((_%__stx3930639307%_ _%rest28374%_) + (_%g2838028396%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3920739208%_)))) - (let ((_%__kont3921039211%_ - (lambda (_%L28531%_) - (let* ((_%g2854228560%_ - (lambda (_%g2854328556%_) + _%__stx3930639307%_)))) + (let ((_%__kont3930939310%_ + (lambda (_%L28630%_) + (let* ((_%g2864128659%_ + (lambda (_%g2864228655%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2854328556%_))) - (_%g2854128615%_ - (lambda (_%g2854328564%_) - (if (gx#stx-pair? _%g2854328564%_) - (let ((_%e2854628567%_ + _%g2864228655%_))) + (_%g2864028714%_ + (lambda (_%g2864228663%_) + (if (gx#stx-pair? _%g2864228663%_) + (let ((_%e2864528666%_ (gx#syntax-e - _%g2854328564%_))) - (let ((_%hd2854728571%_ + _%g2864228663%_))) + (let ((_%hd2864628670%_ (let () (declare (not safe)) - (##car _%e2854628567%_))) - (_%tl2854828574%_ + (##car _%e2864528666%_))) + (_%tl2864728673%_ (let () (declare (not safe)) - (##cdr _%e2854628567%_)))) + (##cdr _%e2864528666%_)))) (if (gx#stx-pair? - _%tl2854828574%_) - (let ((_%e2854928577%_ + _%tl2864728673%_) + (let ((_%e2864828676%_ (gx#syntax-e - _%tl2854828574%_))) - (let ((_%hd2855028581%_ + _%tl2864728673%_))) + (let ((_%hd2864928680%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2854928577%_))) - (_%tl2855128584%_ - (let () (declare (not safe)) (##cdr _%e2854928577%_)))) - (if (gx#stx-pair? _%tl2855128584%_) - (let ((_%e2855228587%_ (gx#syntax-e _%tl2855128584%_))) - (let ((_%hd2855328591%_ + (##car _%e2864828676%_))) + (_%tl2865028683%_ + (let () (declare (not safe)) (##cdr _%e2864828676%_)))) + (if (gx#stx-pair? _%tl2865028683%_) + (let ((_%e2865128686%_ (gx#syntax-e _%tl2865028683%_))) + (let ((_%hd2865228690%_ (let () (declare (not safe)) - (##car _%e2855228587%_))) - (_%tl2855428594%_ + (##car _%e2865128686%_))) + (_%tl2865328693%_ (let () (declare (not safe)) - (##cdr _%e2855228587%_)))) - (if (gx#stx-null? _%tl2855428594%_) - ((lambda (_%L28597%_ _%L28599%_) + (##cdr _%e2865128686%_)))) + (if (gx#stx-null? _%tl2865328693%_) + ((lambda (_%L28696%_ _%L28698%_) (cons 'begin-annotation (cons '@match-body - (cons (if (gx#stx-e _%L28599%_) - (_%generate127921%_ - _%L28599%_ - _%L28597%_ - _%E28277%_) - _%L28597%_) + (cons (if (gx#stx-e _%L28698%_) + (_%generate128020%_ + _%L28698%_ + _%L28696%_ + _%E28376%_) + _%L28696%_) '())))) - _%hd2855328591%_ - _%hd2855028581%_) - (_%g2854228560%_ _%g2854328564%_)))) - (_%g2854228560%_ _%g2854328564%_)))) + _%hd2865228690%_ + _%hd2864928680%_) + (_%g2864128659%_ _%g2864228663%_)))) + (_%g2864128659%_ _%g2864228663%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2854228560%_ - _%g2854328564%_)))) - (_%g2854228560%_ - _%g2854328564%_))))) - (_%g2854128615%_ _%L28531%_)))) - (_%__kont3921239213%_ - (lambda (_%L28325%_ _%L28327%_) - (let* ((_%g2834028359%_ - (lambda (_%g2834128355%_) + (_%g2864128659%_ + _%g2864228663%_)))) + (_%g2864128659%_ + _%g2864228663%_))))) + (_%g2864028714%_ _%L28630%_)))) + (_%__kont3931139312%_ + (lambda (_%L28424%_ _%L28426%_) + (let* ((_%g2843928458%_ + (lambda (_%g2844028454%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2834128355%_))) - (_%g2833928510%_ - (lambda (_%g2834128363%_) - (if (gx#stx-pair? _%g2834128363%_) - (let ((_%e2834528366%_ + _%g2844028454%_))) + (_%g2843828609%_ + (lambda (_%g2844028462%_) + (if (gx#stx-pair? _%g2844028462%_) + (let ((_%e2844428465%_ (gx#syntax-e - _%g2834128363%_))) - (let ((_%hd2834628370%_ + _%g2844028462%_))) + (let ((_%hd2844528469%_ (let () (declare (not safe)) - (##car _%e2834528366%_))) - (_%tl2834728373%_ + (##car _%e2844428465%_))) + (_%tl2844628472%_ (let () (declare (not safe)) - (##cdr _%e2834528366%_)))) + (##cdr _%e2844428465%_)))) (if (gx#stx-pair? - _%tl2834728373%_) - (let ((_%e2834828376%_ + _%tl2844628472%_) + (let ((_%e2844728475%_ (gx#syntax-e - _%tl2834728373%_))) - (let ((_%hd2834928380%_ + _%tl2844628472%_))) + (let ((_%hd2844828479%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2834828376%_))) - (_%tl2835028383%_ - (let () (declare (not safe)) (##cdr _%e2834828376%_)))) - (if (gx#stx-pair? _%tl2835028383%_) - (let ((_%e2835128386%_ (gx#syntax-e _%tl2835028383%_))) - (let ((_%hd2835228390%_ + (##car _%e2844728475%_))) + (_%tl2844928482%_ + (let () (declare (not safe)) (##cdr _%e2844728475%_)))) + (if (gx#stx-pair? _%tl2844928482%_) + (let ((_%e2845028485%_ (gx#syntax-e _%tl2844928482%_))) + (let ((_%hd2845128489%_ (let () (declare (not safe)) - (##car _%e2835128386%_))) - (_%tl2835328393%_ + (##car _%e2845028485%_))) + (_%tl2845228492%_ (let () (declare (not safe)) - (##cdr _%e2835128386%_)))) - (if (gx#stx-null? _%tl2835328393%_) - ((lambda (_%L28396%_ _%L28398%_ _%L28399%_) - (if (gx#stx-e _%L28398%_) - (let* ((_%g2841628431%_ - (lambda (_%g2841728427%_) + (##cdr _%e2845028485%_)))) + (if (gx#stx-null? _%tl2845228492%_) + ((lambda (_%L28495%_ _%L28497%_ _%L28498%_) + (if (gx#stx-e _%L28497%_) + (let* ((_%g2851528530%_ + (lambda (_%g2851628526%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2841728427%_))) - (_%g2841528476%_ - (lambda (_%g2841728435%_) + _%g2851628526%_))) + (_%g2851428575%_ + (lambda (_%g2851628534%_) (if (gx#stx-pair? - _%g2841728435%_) - (let ((_%e2842028438%_ + _%g2851628534%_) + (let ((_%e2851928537%_ (gx#syntax-e - _%g2841728435%_))) - (let ((_%hd2842128442%_ + _%g2851628534%_))) + (let ((_%hd2852028541%_ (let () (declare (not safe)) - (##car _%e2842028438%_))) - (_%tl2842228445%_ + (##car _%e2851928537%_))) + (_%tl2852128544%_ (let () (declare (not safe)) - (##cdr _%e2842028438%_)))) + (##cdr _%e2851928537%_)))) (if (gx#stx-pair? - _%tl2842228445%_) - (let ((_%e2842328448%_ + _%tl2852128544%_) + (let ((_%e2852228547%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2842228445%_))) - (let ((_%hd2842428452%_ + (gx#syntax-e _%tl2852128544%_))) + (let ((_%hd2852328551%_ (let () (declare (not safe)) - (##car _%e2842328448%_))) - (_%tl2842528455%_ + (##car _%e2852228547%_))) + (_%tl2852428554%_ (let () (declare (not safe)) - (##cdr _%e2842328448%_)))) - (if (gx#stx-null? _%tl2842528455%_) - ((lambda (_%L28458%_ _%L28460%_) + (##cdr _%e2852228547%_)))) + (if (gx#stx-null? _%tl2852428554%_) + ((lambda (_%L28557%_ _%L28559%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L28399%_ + (cons (cons (cons _%L28498%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons '() (cons _%L28460%_ '()))) + (cons '() (cons _%L28559%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _%L28458%_ '())))) - _%hd2842428452%_ - _%hd2842128442%_) - (_%g2841628431%_ _%g2841728435%_)))) - (_%g2841628431%_ _%g2841728435%_)))) + (cons _%L28557%_ '())))) + _%hd2852328551%_ + _%hd2852028541%_) + (_%g2851528530%_ _%g2851628534%_)))) + (_%g2851528530%_ _%g2851628534%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2841628431%_ - _%g2841728435%_))))) - (_%g2841528476%_ - (list (_%generate127921%_ - _%L28398%_ - _%L28396%_ - _%E28277%_) - (_%generate-clauses27920%_ - _%L28325%_ - (cons _%L28399%_ '()))))) - (let* ((_%g2848028488%_ - (lambda (_%g2848128484%_) + (_%g2851528530%_ + _%g2851628534%_))))) + (_%g2851428575%_ + (list (_%generate128020%_ + _%L28497%_ + _%L28495%_ + _%E28376%_) + (_%generate-clauses28019%_ + _%L28424%_ + (cons _%L28498%_ '()))))) + (let* ((_%g2857928587%_ + (lambda (_%g2858028583%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2848128484%_))) - (_%g2847928506%_ - (lambda (_%g2848128492%_) - ((lambda (_%L28495%_) + _%g2858028583%_))) + (_%g2857828605%_ + (lambda (_%g2858028591%_) + ((lambda (_%L28594%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L28399%_ + (cons (cons (cons _%L28498%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f @@ -4923,1712 +4923,1712 @@ 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L28396%_ '()))) + (cons _%L28495%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) - (cons _%L28495%_ '())))) + (cons _%L28594%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2848128492%_)))) - (_%g2847928506%_ - (_%generate-clauses27920%_ - _%L28325%_ - (cons _%L28399%_ '())))))) - _%hd2835228390%_ - _%hd2834928380%_ - _%hd2834628370%_) - (_%g2834028359%_ _%g2834128363%_)))) - (_%g2834028359%_ _%g2834128363%_)))) + _%g2858028591%_)))) + (_%g2857828605%_ + (_%generate-clauses28019%_ + _%L28424%_ + (cons _%L28498%_ '())))))) + _%hd2845128489%_ + _%hd2844828479%_ + _%hd2844528469%_) + (_%g2843928458%_ _%g2844028462%_)))) + (_%g2843928458%_ _%g2844028462%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2834028359%_ - _%g2834128363%_)))) - (_%g2834028359%_ - _%g2834128363%_))))) - (_%g2833928510%_ _%L28327%_)))) - (_%__kont3921439215%_ + (_%g2843928458%_ + _%g2844028462%_)))) + (_%g2843928458%_ + _%g2844028462%_))))) + (_%g2843828609%_ _%L28426%_)))) + (_%__kont3931339314%_ (lambda () (cons 'begin-annotation (cons '@match-body - (cons _%E28277%_ '())))))) - (if (gx#stx-pair? _%__stx3920739208%_) - (let ((_%e2828428521%_ - (gx#syntax-e _%__stx3920739208%_))) - (let ((_%tl2828628528%_ + (cons _%E28376%_ '())))))) + (if (gx#stx-pair? _%__stx3930639307%_) + (let ((_%e2838328620%_ + (gx#syntax-e _%__stx3930639307%_))) + (let ((_%tl2838528627%_ (let () (declare (not safe)) - (##cdr _%e2828428521%_))) - (_%hd2828528525%_ + (##cdr _%e2838328620%_))) + (_%hd2838428624%_ (let () (declare (not safe)) - (##car _%e2828428521%_)))) - (if (gx#stx-null? _%tl2828628528%_) - (_%__kont3921039211%_ _%hd2828528525%_) - (_%__kont3921239213%_ - _%tl2828628528%_ - _%hd2828528525%_)))) - (_%__kont3921439215%_)))))) - (_%generate127921%_ - (lambda (_%clause27923%_ _%body27925%_ _%E27926%_) - (let* ((_%g2792827952%_ - (lambda (_%g2792927948%_) + (##car _%e2838328620%_)))) + (if (gx#stx-null? _%tl2838528627%_) + (_%__kont3930939310%_ _%hd2838428624%_) + (_%__kont3931139312%_ + _%tl2838528627%_ + _%hd2838428624%_)))) + (_%__kont3931339314%_)))))) + (_%generate128020%_ + (lambda (_%clause28022%_ _%body28024%_ _%E28025%_) + (let* ((_%g2802728051%_ + (lambda (_%g2802828047%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2792927948%_))) - (_%g2792728271%_ - (lambda (_%g2792927956%_) - (if (gx#stx-pair? _%g2792927956%_) - (let ((_%e2793227959%_ - (gx#syntax-e _%g2792927956%_))) - (let ((_%hd2793327963%_ + _%g2802828047%_))) + (_%g2802628370%_ + (lambda (_%g2802828055%_) + (if (gx#stx-pair? _%g2802828055%_) + (let ((_%e2803128058%_ + (gx#syntax-e _%g2802828055%_))) + (let ((_%hd2803228062%_ (let () (declare (not safe)) - (##car _%e2793227959%_))) - (_%tl2793427966%_ + (##car _%e2803128058%_))) + (_%tl2803328065%_ (let () (declare (not safe)) - (##cdr _%e2793227959%_)))) - (if (gx#stx-pair? _%tl2793427966%_) - (let ((_%e2793527969%_ + (##cdr _%e2803128058%_)))) + (if (gx#stx-pair? _%tl2803328065%_) + (let ((_%e2803428068%_ (gx#syntax-e - _%tl2793427966%_))) - (let ((_%hd2793627973%_ + _%tl2803328065%_))) + (let ((_%hd2803528072%_ (let () (declare (not safe)) - (##car _%e2793527969%_))) - (_%tl2793727976%_ + (##car _%e2803428068%_))) + (_%tl2803628075%_ (let () (declare (not safe)) - (##cdr _%e2793527969%_)))) + (##cdr _%e2803428068%_)))) (if (gx#stx-pair/null? - _%hd2793627973%_) - (let ((_g39870_ + _%hd2803528072%_) + (let ((_g39969_ (gx#syntax-split-splice - _%hd2793627973%_ + _%hd2803528072%_ '0))) (begin - (let ((_g39871_ + (let ((_g39970_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g39870_) - (##vector-length _g39870_) + (if (##values? _g39969_) + (##values-length _g39969_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g39871_ 2))) - (error "Context expects 2 values" _g39871_))) - (let ((_%target2793827979%_ - (let () (declare (not safe)) (##vector-ref _g39870_ 0))) - (_%tl2794027982%_ - (let () (declare (not safe)) (##vector-ref _g39870_ 1)))) - (if (gx#stx-null? _%tl2794027982%_) - (letrec ((_%loop2794127985%_ - (lambda (_%hd2793927989%_ _%var2794527992%_) - (if (gx#stx-pair? _%hd2793927989%_) - (let ((_%e2794227995%_ - (gx#syntax-e _%hd2793927989%_))) - (let ((_%lp-hd2794327999%_ + (if (not (let () (declare (not safe)) (##fx= _g39970_ 2))) + (error "Context expects 2 values" _g39970_))) + (let ((_%target2803728078%_ + (let () (declare (not safe)) (##values-ref _g39969_ 0))) + (_%tl2803928081%_ + (let () (declare (not safe)) (##values-ref _g39969_ 1)))) + (if (gx#stx-null? _%tl2803928081%_) + (letrec ((_%loop2804028084%_ + (lambda (_%hd2803828088%_ _%var2804428091%_) + (if (gx#stx-pair? _%hd2803828088%_) + (let ((_%e2804128094%_ + (gx#syntax-e _%hd2803828088%_))) + (let ((_%lp-hd2804228098%_ (let () (declare (not safe)) - (##car _%e2794227995%_))) - (_%lp-tl2794428002%_ + (##car _%e2804128094%_))) + (_%lp-tl2804328101%_ (let () (declare (not safe)) - (##cdr _%e2794227995%_)))) - (_%loop2794127985%_ - _%lp-tl2794428002%_ - (cons _%lp-hd2794327999%_ - _%var2794527992%_)))) - (let ((_%var2794628005%_ - (reverse _%var2794527992%_))) - (if (gx#stx-null? _%tl2793727976%_) - ((lambda (_%L28009%_ _%L28011%_) + (##cdr _%e2804128094%_)))) + (_%loop2804028084%_ + _%lp-tl2804328101%_ + (cons _%lp-hd2804228098%_ + _%var2804428091%_)))) + (let ((_%var2804528104%_ + (reverse _%var2804428091%_))) + (if (gx#stx-null? _%tl2803628075%_) + ((lambda (_%L28108%_ _%L28110%_) (let () (gx#check-duplicate-identifiers - (foldr (lambda (_%g2803228035%_ - _%g2803328038%_) - (cons _%g2803228035%_ - _%g2803328038%_)) + (foldr (lambda (_%g2813128134%_ + _%g2813228137%_) + (cons _%g2813128134%_ + _%g2813228137%_)) '() - _%L28009%_) - _%stx27912%_) - (let* ((_%g2804128049%_ - (lambda (_%g2804228045%_) + _%L28108%_) + _%stx28011%_) + (let* ((_%g2814028148%_ + (lambda (_%g2814128144%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2804228045%_))) - (_%g2804028143%_ - (lambda (_%g2804228053%_) - ((lambda (_%L28056%_) - (let* ((_%g2806928077%_ + _%g2814128144%_))) + (_%g2813928242%_ + (lambda (_%g2814128152%_) + ((lambda (_%L28155%_) + (let* ((_%g2816828176%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2807028073%_) + (lambda (_%g2816928172%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2807028073%_))) - (_%g2806828139%_ - (lambda (_%g2807028081%_) - ((lambda (_%L28084%_) - (let* ((_%g2809728105%_ - (lambda (_%g2809828101%_) + _%g2816928172%_))) + (_%g2816728238%_ + (lambda (_%g2816928180%_) + ((lambda (_%L28183%_) + (let* ((_%g2819628204%_ + (lambda (_%g2819728200%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2809828101%_))) - (_%g2809628127%_ - (lambda (_%g2809828109%_) - ((lambda (_%L28112%_) + _%g2819728200%_))) + (_%g2819528226%_ + (lambda (_%g2819728208%_) + ((lambda (_%L28211%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L28011%_ + (cons (cons _%L28110%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L28112%_ '())) - (cons _%L28056%_ '()))) + (cons _%L28211%_ '())) + (cons _%L28155%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx27912%_))) - _%g2809828109%_)))) - (_%g2809628127%_ + (gx#stx-source _%stx28011%_))) + _%g2819728208%_)))) + (_%g2819528226%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) - (cons (foldr (lambda (_%g2813028133%_ + (cons (foldr (lambda (_%g2822928232%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2813128136%_) - (cons _%g2813028133%_ _%g2813128136%_)) + _%g2823028235%_) + (cons _%g2822928232%_ _%g2823028235%_)) '() - _%L28009%_) + _%L28108%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L28084%_ '()))) - (gx#stx-source _%stx27912%_))))) - _%g2807028081%_)))) - (_%g2806828139%_ _%body27925%_))) - _%g2804228053%_)))) + (cons _%L28183%_ '()))) + (gx#stx-source _%stx28011%_))))) + _%g2816928180%_)))) + (_%g2816728238%_ _%body28024%_))) + _%g2814128152%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2804028143%_ - (let _%recur28147%_ ((_%rest28150%_ + (_%g2813928242%_ + (let _%recur28246%_ ((_%rest28249%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause27923%_) - (_%rest-targets28152%_ _%tgt-lst27914%_)) + _%clause28022%_) + (_%rest-targets28251%_ _%tgt-lst28013%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__stx3923339234%_ - _%rest28150%_) - (_%g2815528167%_ + (let* ((_%__stx3933239333%_ + _%rest28249%_) + (_%g2825428266%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3923339234%_)))) - (let ((_%__kont3923639237%_ - (lambda (_%L28203%_ + _%__stx3933239333%_)))) + (let ((_%__kont3933539336%_ + (lambda (_%L28302%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L28205%_) - (let* ((_%g2822028232%_ - (lambda (_%g2822128228%_) + _%L28304%_) + (let* ((_%g2831928331%_ + (lambda (_%g2832028327%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2822128228%_))) - (_%g2821928263%_ - (lambda (_%g2822128236%_) - (if (gx#stx-pair? _%g2822128236%_) - (let ((_%e2822428239%_ - (gx#syntax-e _%g2822128236%_))) - (let ((_%hd2822528243%_ + _%g2832028327%_))) + (_%g2831828362%_ + (lambda (_%g2832028335%_) + (if (gx#stx-pair? _%g2832028335%_) + (let ((_%e2832328338%_ + (gx#syntax-e _%g2832028335%_))) + (let ((_%hd2832428342%_ (let () (declare (not safe)) - (##car _%e2822428239%_))) - (_%tl2822628246%_ + (##car _%e2832328338%_))) + (_%tl2832528345%_ (let () (declare (not safe)) - (##cdr _%e2822428239%_)))) - ((lambda (_%L28249%_ _%L28251%_) + (##cdr _%e2832328338%_)))) + ((lambda (_%L28348%_ _%L28350%_) (|gerbil/core/match[1]#generate-match1| - _%stx27912%_ - _%L28251%_ - _%L28205%_ - (_%recur28147%_ - _%L28203%_ - _%L28249%_) - _%E27926%_)) - _%tl2822628246%_ - _%hd2822528243%_))) - (_%g2822028232%_ _%g2822128236%_))))) - (_%g2821928263%_ _%rest-targets28152%_)))) - (_%__kont3923839239%_ + _%stx28011%_ + _%L28350%_ + _%L28304%_ + (_%recur28246%_ + _%L28302%_ + _%L28348%_) + _%E28025%_)) + _%tl2832528345%_ + _%hd2832428342%_))) + (_%g2831928331%_ _%g2832028335%_))))) + (_%g2831828362%_ _%rest-targets28251%_)))) + (_%__kont3933739338%_ (lambda () - (cons _%L28011%_ - (foldr (lambda (_%g2817728180%_ _%g2817828183%_) - (cons _%g2817728180%_ _%g2817828183%_)) + (cons _%L28110%_ + (foldr (lambda (_%g2827628279%_ _%g2827728282%_) + (cons _%g2827628279%_ _%g2827728282%_)) '() - _%L28009%_))))) - (if (gx#stx-pair? _%__stx3923339234%_) - (let ((_%e2815928193%_ (gx#syntax-e _%__stx3923339234%_))) - (let ((_%tl2816128200%_ + _%L28108%_))))) + (if (gx#stx-pair? _%__stx3933239333%_) + (let ((_%e2825828292%_ (gx#syntax-e _%__stx3933239333%_))) + (let ((_%tl2826028299%_ (let () (declare (not safe)) - (##cdr _%e2815928193%_))) - (_%hd2816028197%_ + (##cdr _%e2825828292%_))) + (_%hd2825928296%_ (let () (declare (not safe)) - (##car _%e2815928193%_)))) - (_%__kont3923639237%_ - _%tl2816128200%_ - _%hd2816028197%_))) - (_%__kont3923839239%_))))))))) + (##car _%e2825828292%_)))) + (_%__kont3933539336%_ + _%tl2826028299%_ + _%hd2825928296%_))) + (_%__kont3933739338%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%var2794628005%_ - _%hd2793327963%_) - (_%g2792827952%_ - _%g2792927956%_))))))) - (_%loop2794127985%_ _%target2793827979%_ '())) - (_%g2792827952%_ _%g2792927956%_))))) + _%var2804528104%_ + _%hd2803228062%_) + (_%g2802728051%_ + _%g2802828055%_))))))) + (_%loop2804028084%_ _%target2803728078%_ '())) + (_%g2802728051%_ _%g2802828055%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2792827952%_ - _%g2792927956%_)))) - (_%g2792827952%_ _%g2792927956%_)))) - (_%g2792827952%_ _%g2792927956%_))))) - (_%g2792728271%_ + (_%g2802728051%_ + _%g2802828055%_)))) + (_%g2802728051%_ _%g2802828055%_)))) + (_%g2802728051%_ _%g2802828055%_))))) + (_%g2802628370%_ (list (gx#genident 'K) - (let ((__tmp39872 + (let ((__tmp39971 (map |gerbil/core/match[1]#match-pattern-vars| - _%clause27923%_))) + _%clause28022%_))) (declare (not safe)) - (##apply append __tmp39872)))))))) - (_%generate-body27919%_ - (_%parse-body27917%_ (gx#stx-length _%tgt-lst27914%_)))))) + (##apply append __tmp39971)))))))) + (_%generate-body28018%_ + (_%parse-body28016%_ (gx#stx-length _%tgt-lst28013%_)))))) (define |gerbil/core/match[1]#generate-match| - (lambda (_%stx27814%_ _%tgt27816%_ _%clauses27817%_) - (letrec ((_%reclause27819%_ - (lambda (_%clause27822%_) - (let* ((_%__stx3924939250%_ _%clause27822%_) - (_%g2782727842%_ + (lambda (_%stx27913%_ _%tgt27915%_ _%clauses27916%_) + (letrec ((_%reclause27918%_ + (lambda (_%clause27921%_) + (let* ((_%__stx3934839349%_ _%clause27921%_) + (_%g2792627941%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3924939250%_)))) - (let ((_%__kont3925239253%_ (lambda () _%clause27822%_)) - (_%__kont3925439255%_ - (lambda (_%L27870%_ _%L27872%_) + _%__stx3934839349%_)))) + (let ((_%__kont3935139352%_ (lambda () _%clause27921%_)) + (_%__kont3935339354%_ + (lambda (_%L27969%_ _%L27971%_) (gx#stx-wrap-source - (cons (cons _%L27872%_ '()) _%L27870%_) + (cons (cons _%L27971%_ '()) _%L27969%_) (gx#stx-source (gx#datum->syntax '#f 'clause))))) - (_%__kont3925639257%_ + (_%__kont3935539356%_ (lambda () (gx#raise-syntax-error '#f '"bad syntax; illegal match clause" - _%stx27814%_ - _%clause27822%_)))) - (if (gx#stx-pair? _%__stx3924939250%_) - (let ((_%e2782927894%_ - (gx#syntax-e _%__stx3924939250%_))) - (let ((_%tl2783127901%_ + _%stx27913%_ + _%clause27921%_)))) + (if (gx#stx-pair? _%__stx3934839349%_) + (let ((_%e2792827993%_ + (gx#syntax-e _%__stx3934839349%_))) + (let ((_%tl2793028000%_ (let () (declare (not safe)) - (##cdr _%e2782927894%_))) - (_%hd2783027898%_ + (##cdr _%e2792827993%_))) + (_%hd2792927997%_ (let () (declare (not safe)) - (##car _%e2782927894%_)))) - (if (gx#identifier? _%hd2783027898%_) + (##car _%e2792827993%_)))) + (if (gx#identifier? _%hd2792927997%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39873_| - _%hd2783027898%_) - (_%__kont3925239253%_) - (_%__kont3925439255%_ - _%tl2783127901%_ - _%hd2783027898%_)) - (_%__kont3925439255%_ - _%tl2783127901%_ - _%hd2783027898%_)))) - (_%__kont3925639257%_))))))) + |gerbil/core/match[1]#_g39972_| + _%hd2792927997%_) + (_%__kont3935139352%_) + (_%__kont3935339354%_ + _%tl2793028000%_ + _%hd2792927997%_)) + (_%__kont3935339354%_ + _%tl2793028000%_ + _%hd2792927997%_)))) + (_%__kont3935539356%_))))))) (|gerbil/core/match[1]#generate-match*| - _%stx27814%_ - (cons _%tgt27816%_ '()) - (gx#stx-map _%reclause27819%_ _%clauses27817%_))))) + _%stx27913%_ + (cons _%tgt27915%_ '()) + (gx#stx-map _%reclause27918%_ _%clauses27916%_))))) (define |gerbil/core/match[:0:]#match| - (lambda (_%stx35150%_) - (let* ((_%__stx3927739278%_ _%stx35150%_) - (_%g3515535184%_ + (lambda (_%stx35249%_) + (let* ((_%__stx3937639377%_ _%stx35249%_) + (_%g3525435283%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3927739278%_)))) - (let ((_%__kont3928039281%_ - (lambda (_%L35424%_) - (let* ((_%g3543735445%_ - (lambda (_%g3543835441%_) + _%__stx3937639377%_)))) + (let ((_%__kont3937939380%_ + (lambda (_%L35523%_) + (let* ((_%g3553635544%_ + (lambda (_%g3553735540%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3543835441%_))) - (_%g3543635498%_ - (lambda (_%g3543835449%_) - ((lambda (_%L35452%_) - (let* ((_%g3546435472%_ - (lambda (_%g3546535468%_) + _%g3553735540%_))) + (_%g3553535597%_ + (lambda (_%g3553735548%_) + ((lambda (_%L35551%_) + (let* ((_%g3556335571%_ + (lambda (_%g3556435567%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3546535468%_))) - (_%g3546335494%_ - (lambda (_%g3546535476%_) - ((lambda (_%L35479%_) + _%g3556435567%_))) + (_%g3556235593%_ + (lambda (_%g3556435575%_) + ((lambda (_%L35578%_) (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L35452%_ '()) - (cons _%L35479%_ + (cons (cons _%L35551%_ '()) + (cons _%L35578%_ '())))) - _%g3546535476%_)))) - (_%g3546335494%_ + _%g3556435575%_)))) + (_%g3556235593%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'match) - (cons _%L35452%_ _%L35424%_)) - (gx#stx-source _%stx35150%_))))) - _%g3543835449%_)))) - (_%g3543635498%_ (gx#genident 'e))))) - (_%__kont3928239283%_ - (lambda (_%L35319%_) - (let* ((_%g3533235340%_ - (lambda (_%g3533335336%_) + (cons _%L35551%_ _%L35523%_)) + (gx#stx-source _%stx35249%_))))) + _%g3553735548%_)))) + (_%g3553535597%_ (gx#genident 'e))))) + (_%__kont3938139382%_ + (lambda (_%L35418%_) + (let* ((_%g3543135439%_ + (lambda (_%g3543235435%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3533335336%_))) - (_%g3533135393%_ - (lambda (_%g3533335344%_) - ((lambda (_%L35347%_) - (let* ((_%g3535935367%_ - (lambda (_%g3536035363%_) + _%g3543235435%_))) + (_%g3543035492%_ + (lambda (_%g3543235443%_) + ((lambda (_%L35446%_) + (let* ((_%g3545835466%_ + (lambda (_%g3545935462%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3536035363%_))) - (_%g3535835389%_ - (lambda (_%g3536035371%_) - ((lambda (_%L35374%_) + _%g3545935462%_))) + (_%g3545735488%_ + (lambda (_%g3545935470%_) + ((lambda (_%L35473%_) (cons (gx#datum->syntax '#f 'lambda) - (cons _%L35347%_ - (cons _%L35374%_ + (cons _%L35446%_ + (cons _%L35473%_ '())))) - _%g3536035371%_)))) - (_%g3535835389%_ + _%g3545935470%_)))) + (_%g3545735488%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'match) - (cons _%L35347%_ _%L35319%_)) - (gx#stx-source _%stx35150%_))))) - _%g3533335344%_)))) - (_%g3533135393%_ (gx#genident 'args))))) - (_%__kont3928439285%_ - (lambda (_%L35211%_ _%L35213%_) - (let* ((_%g3522735235%_ - (lambda (_%g3522835231%_) + (cons _%L35446%_ _%L35418%_)) + (gx#stx-source _%stx35249%_))))) + _%g3543235443%_)))) + (_%g3543035492%_ (gx#genident 'args))))) + (_%__kont3938339384%_ + (lambda (_%L35310%_ _%L35312%_) + (let* ((_%g3532635334%_ + (lambda (_%g3532735330%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3522835231%_))) - (_%g3522635288%_ - (lambda (_%g3522835239%_) - ((lambda (_%L35242%_) - (let* ((_%g3525435262%_ - (lambda (_%g3525535258%_) + _%g3532735330%_))) + (_%g3532535387%_ + (lambda (_%g3532735338%_) + ((lambda (_%L35341%_) + (let* ((_%g3535335361%_ + (lambda (_%g3535435357%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3525535258%_))) - (_%g3525335284%_ - (lambda (_%g3525535266%_) - ((lambda (_%L35269%_) + _%g3535435357%_))) + (_%g3535235383%_ + (lambda (_%g3535435365%_) + ((lambda (_%L35368%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L35242%_ + (cons (cons (cons _%L35341%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L35213%_ '())) + (cons _%L35312%_ '())) '()) - (cons _%L35269%_ '())))) + (cons _%L35368%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3525535266%_)))) - (_%g3525335284%_ + _%g3535435365%_)))) + (_%g3535235383%_ (|gerbil/core/match[1]#generate-match| - _%stx35150%_ - _%L35242%_ - _%L35211%_)))) - _%g3522835239%_)))) - (_%g3522635288%_ (gx#genident _%L35213%_)))))) - (let* ((_%__match3933039331%_ - (lambda (_%e3517335191%_ - _%hd3517435195%_ - _%tl3517535198%_ - _%e3517635201%_ - _%hd3517735205%_ - _%tl3517835208%_) - (let ((_%L35211%_ _%tl3517835208%_) - (_%L35213%_ _%hd3517735205%_)) - (if (gx#stx-list? _%L35211%_) - (_%__kont3928439285%_ _%L35211%_ _%L35213%_) - (let () (declare (not safe)) (_%g3515535184%_)))))) - (_%__match3931839319%_ - (lambda (_%e3516535299%_ - _%hd3516635303%_ - _%tl3516735306%_ - _%e3516835309%_ - _%hd3516935313%_ - _%tl3517035316%_) - (let ((_%L35319%_ _%tl3517035316%_)) - (if (gx#stx-list? _%L35319%_) - (_%__kont3928239283%_ _%L35319%_) - (_%__match3933039331%_ - _%e3516535299%_ - _%hd3516635303%_ - _%tl3516735306%_ - _%e3516835309%_ - _%hd3516935313%_ - _%tl3517035316%_))))) - (_%__match3930239303%_ - (lambda (_%e3515835404%_ - _%hd3515935408%_ - _%tl3516035411%_ - _%e3516135414%_ - _%hd3516235418%_ - _%tl3516335421%_) - (let ((_%L35424%_ _%tl3516335421%_)) - (if (gx#stx-list? _%L35424%_) - (_%__kont3928039281%_ _%L35424%_) - (_%__match3933039331%_ - _%e3515835404%_ - _%hd3515935408%_ - _%tl3516035411%_ - _%e3516135414%_ - _%hd3516235418%_ - _%tl3516335421%_)))))) - (if (gx#stx-pair? _%__stx3927739278%_) - (let ((_%e3515835404%_ (gx#syntax-e _%__stx3927739278%_))) - (let ((_%tl3516035411%_ + _%stx35249%_ + _%L35341%_ + _%L35310%_)))) + _%g3532735338%_)))) + (_%g3532535387%_ (gx#genident _%L35312%_)))))) + (let* ((_%__match3942939430%_ + (lambda (_%e3527235290%_ + _%hd3527335294%_ + _%tl3527435297%_ + _%e3527535300%_ + _%hd3527635304%_ + _%tl3527735307%_) + (let ((_%L35310%_ _%tl3527735307%_) + (_%L35312%_ _%hd3527635304%_)) + (if (gx#stx-list? _%L35310%_) + (_%__kont3938339384%_ _%L35310%_ _%L35312%_) + (let () (declare (not safe)) (_%g3525435283%_)))))) + (_%__match3941739418%_ + (lambda (_%e3526435398%_ + _%hd3526535402%_ + _%tl3526635405%_ + _%e3526735408%_ + _%hd3526835412%_ + _%tl3526935415%_) + (let ((_%L35418%_ _%tl3526935415%_)) + (if (gx#stx-list? _%L35418%_) + (_%__kont3938139382%_ _%L35418%_) + (_%__match3942939430%_ + _%e3526435398%_ + _%hd3526535402%_ + _%tl3526635405%_ + _%e3526735408%_ + _%hd3526835412%_ + _%tl3526935415%_))))) + (_%__match3940139402%_ + (lambda (_%e3525735503%_ + _%hd3525835507%_ + _%tl3525935510%_ + _%e3526035513%_ + _%hd3526135517%_ + _%tl3526235520%_) + (let ((_%L35523%_ _%tl3526235520%_)) + (if (gx#stx-list? _%L35523%_) + (_%__kont3937939380%_ _%L35523%_) + (_%__match3942939430%_ + _%e3525735503%_ + _%hd3525835507%_ + _%tl3525935510%_ + _%e3526035513%_ + _%hd3526135517%_ + _%tl3526235520%_)))))) + (if (gx#stx-pair? _%__stx3937639377%_) + (let ((_%e3525735503%_ (gx#syntax-e _%__stx3937639377%_))) + (let ((_%tl3525935510%_ (let () (declare (not safe)) - (##cdr _%e3515835404%_))) - (_%hd3515935408%_ + (##cdr _%e3525735503%_))) + (_%hd3525835507%_ (let () (declare (not safe)) - (##car _%e3515835404%_)))) - (if (gx#stx-pair? _%tl3516035411%_) - (let ((_%e3516135414%_ - (gx#syntax-e _%tl3516035411%_))) - (let ((_%tl3516335421%_ + (##car _%e3525735503%_)))) + (if (gx#stx-pair? _%tl3525935510%_) + (let ((_%e3526035513%_ + (gx#syntax-e _%tl3525935510%_))) + (let ((_%tl3526235520%_ (let () (declare (not safe)) - (##cdr _%e3516135414%_))) - (_%hd3516235418%_ + (##cdr _%e3526035513%_))) + (_%hd3526135517%_ (let () (declare (not safe)) - (##car _%e3516135414%_)))) - (if (gx#identifier? _%hd3516235418%_) + (##car _%e3526035513%_)))) + (if (gx#identifier? _%hd3526135517%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39874_| - _%hd3516235418%_) - (_%__match3930239303%_ - _%e3515835404%_ - _%hd3515935408%_ - _%tl3516035411%_ - _%e3516135414%_ - _%hd3516235418%_ - _%tl3516335421%_) + |gerbil/core/match[1]#_g39973_| + _%hd3526135517%_) + (_%__match3940139402%_ + _%e3525735503%_ + _%hd3525835507%_ + _%tl3525935510%_ + _%e3526035513%_ + _%hd3526135517%_ + _%tl3526235520%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39875_| - _%hd3516235418%_) - (_%__match3931839319%_ - _%e3515835404%_ - _%hd3515935408%_ - _%tl3516035411%_ - _%e3516135414%_ - _%hd3516235418%_ - _%tl3516335421%_) - (_%__match3933039331%_ - _%e3515835404%_ - _%hd3515935408%_ - _%tl3516035411%_ - _%e3516135414%_ - _%hd3516235418%_ - _%tl3516335421%_))) - (_%__match3933039331%_ - _%e3515835404%_ - _%hd3515935408%_ - _%tl3516035411%_ - _%e3516135414%_ - _%hd3516235418%_ - _%tl3516335421%_)))) - (let () (declare (not safe)) (_%g3515535184%_))))) - (let () (declare (not safe)) (_%g3515535184%_)))))))) + |gerbil/core/match[1]#_g39974_| + _%hd3526135517%_) + (_%__match3941739418%_ + _%e3525735503%_ + _%hd3525835507%_ + _%tl3525935510%_ + _%e3526035513%_ + _%hd3526135517%_ + _%tl3526235520%_) + (_%__match3942939430%_ + _%e3525735503%_ + _%hd3525835507%_ + _%tl3525935510%_ + _%e3526035513%_ + _%hd3526135517%_ + _%tl3526235520%_))) + (_%__match3942939430%_ + _%e3525735503%_ + _%hd3525835507%_ + _%tl3525935510%_ + _%e3526035513%_ + _%hd3526135517%_ + _%tl3526235520%_)))) + (let () (declare (not safe)) (_%g3525435283%_))))) + (let () (declare (not safe)) (_%g3525435283%_)))))))) (define |gerbil/core/match[:0:]#match*| - (lambda (_%stx35506%_) - (let* ((_%g3550935533%_ - (lambda (_%g3551035529%_) + (lambda (_%stx35605%_) + (let* ((_%g3560835632%_ + (lambda (_%g3560935628%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3551035529%_))) - (_%g3550835745%_ - (lambda (_%g3551035537%_) - (if (gx#stx-pair? _%g3551035537%_) - (let ((_%e3551335540%_ (gx#syntax-e _%g3551035537%_))) - (let ((_%hd3551435544%_ + _%g3560935628%_))) + (_%g3560735844%_ + (lambda (_%g3560935636%_) + (if (gx#stx-pair? _%g3560935636%_) + (let ((_%e3561235639%_ (gx#syntax-e _%g3560935636%_))) + (let ((_%hd3561335643%_ (let () (declare (not safe)) - (##car _%e3551335540%_))) - (_%tl3551535547%_ + (##car _%e3561235639%_))) + (_%tl3561435646%_ (let () (declare (not safe)) - (##cdr _%e3551335540%_)))) - (if (gx#stx-pair? _%tl3551535547%_) - (let ((_%e3551635550%_ - (gx#syntax-e _%tl3551535547%_))) - (let ((_%hd3551735554%_ + (##cdr _%e3561235639%_)))) + (if (gx#stx-pair? _%tl3561435646%_) + (let ((_%e3561535649%_ + (gx#syntax-e _%tl3561435646%_))) + (let ((_%hd3561635653%_ (let () (declare (not safe)) - (##car _%e3551635550%_))) - (_%tl3551835557%_ + (##car _%e3561535649%_))) + (_%tl3561735656%_ (let () (declare (not safe)) - (##cdr _%e3551635550%_)))) - (if (gx#stx-pair/null? _%hd3551735554%_) - (let ((_g39876_ + (##cdr _%e3561535649%_)))) + (if (gx#stx-pair/null? _%hd3561635653%_) + (let ((_g39975_ (gx#syntax-split-splice - _%hd3551735554%_ + _%hd3561635653%_ '0))) (begin - (let ((_g39877_ + (let ((_g39976_ (let () (declare (not safe)) - (if (##values? _g39876_) - (##vector-length - _g39876_) + (if (##values? _g39975_) + (##values-length + _g39975_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g39877_ 2))) + (##fx= _g39976_ 2))) (error "Context expects 2 values" - _g39877_))) - (let ((_%target3551935560%_ + _g39976_))) + (let ((_%target3561835659%_ (let () (declare (not safe)) - (##vector-ref _g39876_ 0))) - (_%tl3552135563%_ + (##values-ref _g39975_ 0))) + (_%tl3562035662%_ (let () (declare (not safe)) - (##vector-ref _g39876_ 1)))) - (if (gx#stx-null? _%tl3552135563%_) - (letrec ((_%loop3552235566%_ - (lambda (_%hd3552035570%_ + (##values-ref _g39975_ 1)))) + (if (gx#stx-null? _%tl3562035662%_) + (letrec ((_%loop3562135665%_ + (lambda (_%hd3561935669%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e3552635573%_) - (if (gx#stx-pair? _%hd3552035570%_) - (let ((_%e3552335576%_ (gx#syntax-e _%hd3552035570%_))) - (let ((_%lp-hd3552435580%_ + _%e3562535672%_) + (if (gx#stx-pair? _%hd3561935669%_) + (let ((_%e3562235675%_ (gx#syntax-e _%hd3561935669%_))) + (let ((_%lp-hd3562335679%_ (let () (declare (not safe)) - (##car _%e3552335576%_))) - (_%lp-tl3552535583%_ + (##car _%e3562235675%_))) + (_%lp-tl3562435682%_ (let () (declare (not safe)) - (##cdr _%e3552335576%_)))) - (_%loop3552235566%_ - _%lp-tl3552535583%_ - (cons _%lp-hd3552435580%_ _%e3552635573%_)))) - (let ((_%e3552735586%_ (reverse _%e3552635573%_))) - ((lambda (_%L35590%_ _%L35592%_) - (if (gx#stx-list? _%L35590%_) - (let* ((_%g3561035627%_ - (lambda (_%g3561135623%_) + (##cdr _%e3562235675%_)))) + (_%loop3562135665%_ + _%lp-tl3562435682%_ + (cons _%lp-hd3562335679%_ _%e3562535672%_)))) + (let ((_%e3562635685%_ (reverse _%e3562535672%_))) + ((lambda (_%L35689%_ _%L35691%_) + (if (gx#stx-list? _%L35689%_) + (let* ((_%g3570935726%_ + (lambda (_%g3571035722%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3561135623%_))) - (_%g3560935733%_ - (lambda (_%g3561135631%_) + _%g3571035722%_))) + (_%g3570835832%_ + (lambda (_%g3571035730%_) (if (gx#stx-pair/null? - _%g3561135631%_) - (let ((_g39878_ + _%g3571035730%_) + (let ((_g39977_ (gx#syntax-split-splice - _%g3561135631%_ + _%g3571035730%_ '0))) (begin - (let ((_g39879_ + (let ((_g39978_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g39878_) - (##vector-length _g39878_) + _g39977_) + (##values-length _g39977_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g39879_ 2))) - (error "Context expects 2 values" _g39879_))) + (##fx= _g39978_ 2))) + (error "Context expects 2 values" _g39978_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target3561335634%_ + (let ((_%target3571235733%_ (let () (declare (not safe)) - (##vector-ref - _g39878_ + (##values-ref + _g39977_ 0))) - (_%tl3561535637%_ + (_%tl3571435736%_ (let () (declare (not safe)) - (##vector-ref - _g39878_ + (##values-ref + _g39977_ 1)))) (if (gx#stx-null? - _%tl3561535637%_) - (letrec ((_%loop3561635640%_ + _%tl3571435736%_) + (letrec ((_%loop3571535739%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd3561435644%_ _%$e3562035647%_) - (if (gx#stx-pair? _%hd3561435644%_) - (let ((_%e3561735650%_ - (gx#syntax-e _%hd3561435644%_))) - (let ((_%lp-hd3561835654%_ + (lambda (_%hd3571335743%_ _%$e3571935746%_) + (if (gx#stx-pair? _%hd3571335743%_) + (let ((_%e3571635749%_ + (gx#syntax-e _%hd3571335743%_))) + (let ((_%lp-hd3571735753%_ (let () (declare (not safe)) - (##car _%e3561735650%_))) - (_%lp-tl3561935657%_ + (##car _%e3571635749%_))) + (_%lp-tl3571835756%_ (let () (declare (not safe)) - (##cdr _%e3561735650%_)))) - (_%loop3561635640%_ - _%lp-tl3561935657%_ - (cons _%lp-hd3561835654%_ - _%$e3562035647%_)))) - (let ((_%$e3562135660%_ - (reverse _%$e3562035647%_))) - ((lambda (_%L35664%_) - (let* ((_%g3568035688%_ - (lambda (_%g3568135684%_) + (##cdr _%e3571635749%_)))) + (_%loop3571535739%_ + _%lp-tl3571835756%_ + (cons _%lp-hd3571735753%_ + _%$e3571935746%_)))) + (let ((_%$e3572035759%_ + (reverse _%$e3571935746%_))) + ((lambda (_%L35763%_) + (let* ((_%g3577935787%_ + (lambda (_%g3578035783%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3568135684%_))) - (_%g3567935721%_ - (lambda (_%g3568135692%_) - ((lambda (_%L35695%_) + _%g3578035783%_))) + (_%g3577835820%_ + (lambda (_%g3578035791%_) + ((lambda (_%L35794%_) (cons (gx#datum->syntax '#f 'let) (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-check-splice-targets _%L35592%_ _%L35664%_) - (foldr (lambda (_%g3570935713%_ - _%g3571035716%_ - _%g3571135718%_) - (cons (cons _%g3571035716%_ - (cons _%g3570935713%_ '())) - _%g3571135718%_)) + (gx#syntax-check-splice-targets _%L35691%_ _%L35763%_) + (foldr (lambda (_%g3580835812%_ + _%g3580935815%_ + _%g3581035817%_) + (cons (cons _%g3580935815%_ + (cons _%g3580835812%_ '())) + _%g3581035817%_)) '() - _%L35592%_ - _%L35664%_)) - (cons _%L35695%_ '())))) + _%L35691%_ + _%L35763%_)) + (cons _%L35794%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3568135692%_)))) - (_%g3567935721%_ + _%g3578035791%_)))) + (_%g3577835820%_ (|gerbil/core/match[1]#generate-match*| - _%stx35506%_ - (foldr (lambda (_%g3572435727%_ - _%g3572535730%_) - (cons _%g3572435727%_ - _%g3572535730%_)) + _%stx35605%_ + (foldr (lambda (_%g3582335826%_ + _%g3582435829%_) + (cons _%g3582335826%_ + _%g3582435829%_)) '() - _%L35664%_) - _%L35590%_)))) - _%$e3562135660%_)))))) - (_%loop3561635640%_ _%target3561335634%_ '())) - (_%g3561035627%_ _%g3561135631%_))))) + _%L35763%_) + _%L35689%_)))) + _%$e3572035759%_)))))) + (_%loop3571535739%_ _%target3571235733%_ '())) + (_%g3570935726%_ _%g3571035730%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3561035627%_ - _%g3561135631%_))))) - (_%g3560935733%_ + (_%g3570935726%_ + _%g3571035730%_))))) + (_%g3570835832%_ (gx#gentemps - (foldr (lambda (_%g3573635739%_ - _%g3573735742%_) - (cons _%g3573635739%_ - _%g3573735742%_)) + (foldr (lambda (_%g3583535838%_ + _%g3583635841%_) + (cons _%g3583535838%_ + _%g3583635841%_)) '() - _%L35592%_)))) - (_%g3550935533%_ _%g3551035537%_))) - _%tl3551835557%_ - _%e3552735586%_)))))) + _%L35691%_)))) + (_%g3560835632%_ _%g3560935636%_))) + _%tl3561735656%_ + _%e3562635685%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop3552235566%_ - _%target3551935560%_ + (_%loop3562135665%_ + _%target3561835659%_ '())) - (_%g3550935533%_ - _%g3551035537%_))))) - (_%g3550935533%_ _%g3551035537%_)))) - (_%g3550935533%_ _%g3551035537%_)))) - (_%g3550935533%_ _%g3551035537%_))))) - (_%g3550835745%_ _%stx35506%_)))) + (_%g3560835632%_ + _%g3560935636%_))))) + (_%g3560835632%_ _%g3560935636%_)))) + (_%g3560835632%_ _%g3560935636%_)))) + (_%g3560835632%_ _%g3560935636%_))))) + (_%g3560735844%_ _%stx35605%_)))) (define |gerbil/core/match[:0:]#with| - (lambda (_%$stx35751%_) - (let* ((_%__stx3933339334%_ _%$stx35751%_) - (_%g3575735840%_ + (lambda (_%$stx35850%_) + (let* ((_%__stx3943239433%_ _%$stx35850%_) + (_%g3585635939%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3933339334%_)))) - (let ((_%__kont3933639337%_ - (lambda (_%L36170%_) + _%__stx3943239433%_)))) + (let ((_%__kont3943539436%_ + (lambda (_%L36269%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g3618636189%_ _%g3618736192%_) - (cons _%g3618636189%_ _%g3618736192%_)) + (foldr (lambda (_%g3628536288%_ _%g3628636291%_) + (cons _%g3628536288%_ _%g3628636291%_)) '() - _%L36170%_))))) - (_%__kont3934039341%_ - (lambda (_%L36078%_ _%L36080%_ _%L36081%_ _%L36082%_) - (cons _%L36082%_ - (cons (cons (cons _%L36081%_ (cons _%L36080%_ '())) + _%L36269%_))))) + (_%__kont3943939440%_ + (lambda (_%L36177%_ _%L36179%_ _%L36180%_ _%L36181%_) + (cons _%L36181%_ + (cons (cons (cons _%L36180%_ (cons _%L36179%_ '())) '()) - (foldr (lambda (_%g3610436107%_ _%g3610536110%_) - (cons _%g3610436107%_ _%g3610536110%_)) + (foldr (lambda (_%g3620336206%_ _%g3620436209%_) + (cons _%g3620336206%_ _%g3620436209%_)) '() - _%L36078%_))))) - (_%__kont3934439345%_ - (lambda (_%L35951%_ _%L35953%_ _%L35954%_) + _%L36177%_))))) + (_%__kont3944339444%_ + (lambda (_%L36050%_ _%L36052%_ _%L36053%_) (cons (gx#datum->syntax '#f 'match*) - (cons (foldr (lambda (_%g3598035983%_ _%g3598135986%_) - (cons _%g3598035983%_ _%g3598135986%_)) + (cons (foldr (lambda (_%g3607936082%_ _%g3608036085%_) + (cons _%g3607936082%_ _%g3608036085%_)) '() - _%L35953%_) - (cons (cons (foldr (lambda (_%g3597835989%_ - _%g3597935992%_) - (cons _%g3597835989%_ - _%g3597935992%_)) + _%L36052%_) + (cons (cons (foldr (lambda (_%g3607736088%_ + _%g3607836091%_) + (cons _%g3607736088%_ + _%g3607836091%_)) '() - _%L35954%_) - (foldr (lambda (_%g3597635995%_ - _%g3597735998%_) - (cons _%g3597635995%_ - _%g3597735998%_)) + _%L36053%_) + (foldr (lambda (_%g3607536094%_ + _%g3607636097%_) + (cons _%g3607536094%_ + _%g3607636097%_)) '() - _%L35951%_)) + _%L36050%_)) '())))))) - (let* ((_%__match3942639427%_ - (lambda (_%e3580335847%_ - _%hd3580435851%_ - _%tl3580535854%_ - _%e3580635857%_ - _%hd3580735861%_ - _%tl3580835864%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) - (letrec ((_%loop3581235873%_ - (lambda (_%hd3581035877%_ - _%expr3581635880%_ - _%hd3581735882%_) - (if (gx#stx-pair? _%hd3581035877%_) - (let ((_%e3581335885%_ - (gx#syntax-e _%hd3581035877%_))) - (let ((_%lp-tl3581535892%_ + (let* ((_%__match3952539526%_ + (lambda (_%e3590235946%_ + _%hd3590335950%_ + _%tl3590435953%_ + _%e3590535956%_ + _%hd3590635960%_ + _%tl3590735963%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) + (letrec ((_%loop3591135972%_ + (lambda (_%hd3590935976%_ + _%expr3591535979%_ + _%hd3591635981%_) + (if (gx#stx-pair? _%hd3590935976%_) + (let ((_%e3591235984%_ + (gx#syntax-e _%hd3590935976%_))) + (let ((_%lp-tl3591435991%_ (let () (declare (not safe)) - (##cdr _%e3581335885%_))) - (_%lp-hd3581435889%_ + (##cdr _%e3591235984%_))) + (_%lp-hd3591335988%_ (let () (declare (not safe)) - (##car _%e3581335885%_)))) + (##car _%e3591235984%_)))) (if (gx#stx-pair? - _%lp-hd3581435889%_) - (let ((_%e3582935895%_ + _%lp-hd3591335988%_) + (let ((_%e3592835994%_ (gx#syntax-e - _%lp-hd3581435889%_))) - (let ((_%tl3583135902%_ + _%lp-hd3591335988%_))) + (let ((_%tl3593036001%_ (let () (declare (not safe)) - (##cdr _%e3582935895%_))) - (_%hd3583035899%_ + (##cdr _%e3592835994%_))) + (_%hd3592935998%_ (let () (declare (not safe)) - (##car _%e3582935895%_)))) + (##car _%e3592835994%_)))) (if (gx#stx-pair? - _%tl3583135902%_) - (let ((_%e3583235905%_ + _%tl3593036001%_) + (let ((_%e3593136004%_ (gx#syntax-e - _%tl3583135902%_))) - (let ((_%tl3583435912%_ + _%tl3593036001%_))) + (let ((_%tl3593336011%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3583235905%_))) - (_%hd3583335909%_ - (let () (declare (not safe)) (##car _%e3583235905%_)))) - (if (gx#stx-null? _%tl3583435912%_) - (_%loop3581235873%_ - _%lp-tl3581535892%_ - (cons _%hd3583335909%_ _%expr3581635880%_) - (cons _%hd3583035899%_ _%hd3581735882%_)) - (let () (declare (not safe)) (_%g3575735840%_))))) - (let () (declare (not safe)) (_%g3575735840%_))))) + (##cdr _%e3593136004%_))) + (_%hd3593236008%_ + (let () (declare (not safe)) (##car _%e3593136004%_)))) + (if (gx#stx-null? _%tl3593336011%_) + (_%loop3591135972%_ + _%lp-tl3591435991%_ + (cons _%hd3593236008%_ _%expr3591535979%_) + (cons _%hd3592935998%_ _%hd3591635981%_)) + (let () (declare (not safe)) (_%g3585635939%_))))) + (let () (declare (not safe)) (_%g3585635939%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3575735840%_))))) - (let ((_%hd3581935918%_ - (reverse _%hd3581735882%_)) - (_%expr3581835915%_ - (reverse _%expr3581635880%_))) + (_%g3585635939%_))))) + (let ((_%hd3591836017%_ + (reverse _%hd3591635981%_)) + (_%expr3591736014%_ + (reverse _%expr3591535979%_))) (if (gx#stx-pair/null? - _%tl3580835864%_) - (let ((_%__splice3934839349%_ + _%tl3590735963%_) + (let ((_%__splice3944739448%_ (gx#syntax-split-splice - _%tl3580835864%_ + _%tl3590735963%_ '0))) - (let ((_%tl3582235924%_ + (let ((_%tl3592136023%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934839349%_ + _%__splice3944739448%_ '1))) - (_%target3582035921%_ + (_%target3591936020%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934839349%_ + _%__splice3944739448%_ '0)))) (if (gx#stx-null? - _%tl3582235924%_) - (letrec ((_%loop3582335927%_ - (lambda (_%hd3582135931%_ + _%tl3592136023%_) + (letrec ((_%loop3592236026%_ + (lambda (_%hd3592036030%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body3582735934%_) - (if (gx#stx-pair? _%hd3582135931%_) - (let ((_%e3582435937%_ - (gx#syntax-e _%hd3582135931%_))) - (let ((_%lp-tl3582635944%_ + _%body3592636033%_) + (if (gx#stx-pair? _%hd3592036030%_) + (let ((_%e3592336036%_ + (gx#syntax-e _%hd3592036030%_))) + (let ((_%lp-tl3592536043%_ (let () (declare (not safe)) - (##cdr _%e3582435937%_))) - (_%lp-hd3582535941%_ + (##cdr _%e3592336036%_))) + (_%lp-hd3592436040%_ (let () (declare (not safe)) - (##car _%e3582435937%_)))) - (_%loop3582335927%_ - _%lp-tl3582635944%_ - (cons _%lp-hd3582535941%_ - _%body3582735934%_)))) - (let ((_%body3582835947%_ - (reverse _%body3582735934%_))) - (_%__kont3934439345%_ - _%body3582835947%_ - _%expr3581835915%_ - _%hd3581935918%_)))))) - (_%loop3582335927%_ _%target3582035921%_ '())) + (##car _%e3592336036%_)))) + (_%loop3592236026%_ + _%lp-tl3592536043%_ + (cons _%lp-hd3592436040%_ + _%body3592636033%_)))) + (let ((_%body3592736046%_ + (reverse _%body3592636033%_))) + (_%__kont3944339444%_ + _%body3592736046%_ + _%expr3591736014%_ + _%hd3591836017%_)))))) + (_%loop3592236026%_ _%target3591936020%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3575735840%_))))) + (_%g3585635939%_))))) (let () (declare (not safe)) - (_%g3575735840%_)))))))) - (_%loop3581235873%_ _%target3580935867%_ '() '())))) - (_%__match3941839419%_ - (lambda (_%e3580335847%_ - _%hd3580435851%_ - _%tl3580535854%_ - _%e3580635857%_ - _%hd3580735861%_ - _%tl3580835864%_) - (if (gx#stx-pair/null? _%hd3580735861%_) - (let ((_%__splice3934639347%_ - (gx#syntax-split-splice _%hd3580735861%_ '0))) - (let ((_%tl3581135870%_ + (_%g3585635939%_)))))))) + (_%loop3591135972%_ _%target3590835966%_ '() '())))) + (_%__match3951739518%_ + (lambda (_%e3590235946%_ + _%hd3590335950%_ + _%tl3590435953%_ + _%e3590535956%_ + _%hd3590635960%_ + _%tl3590735963%_) + (if (gx#stx-pair/null? _%hd3590635960%_) + (let ((_%__splice3944539446%_ + (gx#syntax-split-splice _%hd3590635960%_ '0))) + (let ((_%tl3591035969%_ (let () (declare (not safe)) - (##vector-ref _%__splice3934639347%_ '1))) - (_%target3580935867%_ + (##vector-ref _%__splice3944539446%_ '1))) + (_%target3590835966%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3944539446%_ '0)))) - (if (gx#stx-null? _%tl3581135870%_) - (_%__match3942639427%_ - _%e3580335847%_ - _%hd3580435851%_ - _%tl3580535854%_ - _%e3580635857%_ - _%hd3580735861%_ - _%tl3580835864%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) + (if (gx#stx-null? _%tl3591035969%_) + (_%__match3952539526%_ + _%e3590235946%_ + _%hd3590335950%_ + _%tl3590435953%_ + _%e3590535956%_ + _%hd3590635960%_ + _%tl3590735963%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) (let () (declare (not safe)) - (_%g3575735840%_))))) - (let () (declare (not safe)) (_%g3575735840%_))))) - (_%__match3940639407%_ - (lambda (_%e3577936008%_ - _%hd3578036012%_ - _%tl3578136015%_ - _%e3578236018%_ - _%hd3578336022%_ - _%tl3578436025%_ - _%e3578536028%_ - _%hd3578636032%_ - _%tl3578736035%_ - _%e3578836038%_ - _%hd3578936042%_ - _%tl3579036045%_ - _%__splice3934239343%_ - _%target3579136048%_ - _%tl3579336051%_) - (letrec ((_%loop3579436054%_ - (lambda (_%hd3579236058%_ _%body3579836061%_) - (if (gx#stx-pair? _%hd3579236058%_) - (let ((_%e3579536064%_ - (gx#syntax-e _%hd3579236058%_))) - (let ((_%lp-tl3579736071%_ + (_%g3585635939%_))))) + (let () (declare (not safe)) (_%g3585635939%_))))) + (_%__match3950539506%_ + (lambda (_%e3587836107%_ + _%hd3587936111%_ + _%tl3588036114%_ + _%e3588136117%_ + _%hd3588236121%_ + _%tl3588336124%_ + _%e3588436127%_ + _%hd3588536131%_ + _%tl3588636134%_ + _%e3588736137%_ + _%hd3588836141%_ + _%tl3588936144%_ + _%__splice3944139442%_ + _%target3589036147%_ + _%tl3589236150%_) + (letrec ((_%loop3589336153%_ + (lambda (_%hd3589136157%_ _%body3589736160%_) + (if (gx#stx-pair? _%hd3589136157%_) + (let ((_%e3589436163%_ + (gx#syntax-e _%hd3589136157%_))) + (let ((_%lp-tl3589636170%_ (let () (declare (not safe)) - (##cdr _%e3579536064%_))) - (_%lp-hd3579636068%_ + (##cdr _%e3589436163%_))) + (_%lp-hd3589536167%_ (let () (declare (not safe)) - (##car _%e3579536064%_)))) - (_%loop3579436054%_ - _%lp-tl3579736071%_ - (cons _%lp-hd3579636068%_ - _%body3579836061%_)))) - (let ((_%body3579936074%_ - (reverse _%body3579836061%_))) - (let ((_%L36078%_ _%body3579936074%_) - (_%L36080%_ _%hd3578936042%_) - (_%L36081%_ _%hd3578636032%_) - (_%L36082%_ _%hd3578036012%_)) + (##car _%e3589436163%_)))) + (_%loop3589336153%_ + _%lp-tl3589636170%_ + (cons _%lp-hd3589536167%_ + _%body3589736160%_)))) + (let ((_%body3589836173%_ + (reverse _%body3589736160%_))) + (let ((_%L36177%_ _%body3589836173%_) + (_%L36179%_ _%hd3588836141%_) + (_%L36180%_ _%hd3588536131%_) + (_%L36181%_ _%hd3587936111%_)) (if (|gerbil/core/match[1]#match-pattern?| - _%L36081%_) - (_%__kont3934039341%_ - _%L36078%_ - _%L36080%_ - _%L36081%_ - _%L36082%_) - (_%__match3941839419%_ - _%e3577936008%_ - _%hd3578036012%_ - _%tl3578136015%_ - _%e3578236018%_ - _%hd3578336022%_ - _%tl3578436025%_)))))))) - (_%loop3579436054%_ _%target3579136048%_ '())))) - (_%__match3937239373%_ - (lambda (_%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3933839339%_ - _%target3576636140%_ - _%tl3576836143%_) - (letrec ((_%loop3576936146%_ - (lambda (_%hd3576736150%_ _%body3577336153%_) - (if (gx#stx-pair? _%hd3576736150%_) - (let ((_%e3577036156%_ - (gx#syntax-e _%hd3576736150%_))) - (let ((_%lp-tl3577236163%_ + _%L36180%_) + (_%__kont3943939440%_ + _%L36177%_ + _%L36179%_ + _%L36180%_ + _%L36181%_) + (_%__match3951739518%_ + _%e3587836107%_ + _%hd3587936111%_ + _%tl3588036114%_ + _%e3588136117%_ + _%hd3588236121%_ + _%tl3588336124%_)))))))) + (_%loop3589336153%_ _%target3589036147%_ '())))) + (_%__match3947139472%_ + (lambda (_%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3943739438%_ + _%target3586536239%_ + _%tl3586736242%_) + (letrec ((_%loop3586836245%_ + (lambda (_%hd3586636249%_ _%body3587236252%_) + (if (gx#stx-pair? _%hd3586636249%_) + (let ((_%e3586936255%_ + (gx#syntax-e _%hd3586636249%_))) + (let ((_%lp-tl3587136262%_ (let () (declare (not safe)) - (##cdr _%e3577036156%_))) - (_%lp-hd3577136160%_ + (##cdr _%e3586936255%_))) + (_%lp-hd3587036259%_ (let () (declare (not safe)) - (##car _%e3577036156%_)))) - (_%loop3576936146%_ - _%lp-tl3577236163%_ - (cons _%lp-hd3577136160%_ - _%body3577336153%_)))) - (let ((_%body3577436166%_ - (reverse _%body3577336153%_))) - (_%__kont3933639337%_ - _%body3577436166%_)))))) - (_%loop3576936146%_ _%target3576636140%_ '()))))) - (if (gx#stx-pair? _%__stx3933339334%_) - (let ((_%e3576036120%_ (gx#syntax-e _%__stx3933339334%_))) - (let ((_%tl3576236127%_ + (##car _%e3586936255%_)))) + (_%loop3586836245%_ + _%lp-tl3587136262%_ + (cons _%lp-hd3587036259%_ + _%body3587236252%_)))) + (let ((_%body3587336265%_ + (reverse _%body3587236252%_))) + (_%__kont3943539436%_ + _%body3587336265%_)))))) + (_%loop3586836245%_ _%target3586536239%_ '()))))) + (if (gx#stx-pair? _%__stx3943239433%_) + (let ((_%e3585936219%_ (gx#syntax-e _%__stx3943239433%_))) + (let ((_%tl3586136226%_ (let () (declare (not safe)) - (##cdr _%e3576036120%_))) - (_%hd3576136124%_ + (##cdr _%e3585936219%_))) + (_%hd3586036223%_ (let () (declare (not safe)) - (##car _%e3576036120%_)))) - (if (gx#stx-pair? _%tl3576236127%_) - (let ((_%e3576336130%_ - (gx#syntax-e _%tl3576236127%_))) - (let ((_%tl3576536137%_ + (##car _%e3585936219%_)))) + (if (gx#stx-pair? _%tl3586136226%_) + (let ((_%e3586236229%_ + (gx#syntax-e _%tl3586136226%_))) + (let ((_%tl3586436236%_ (let () (declare (not safe)) - (##cdr _%e3576336130%_))) - (_%hd3576436134%_ + (##cdr _%e3586236229%_))) + (_%hd3586336233%_ (let () (declare (not safe)) - (##car _%e3576336130%_)))) - (if (gx#stx-null? _%hd3576436134%_) - (if (gx#stx-pair/null? _%tl3576536137%_) - (let ((_%__splice3933839339%_ + (##car _%e3586236229%_)))) + (if (gx#stx-null? _%hd3586336233%_) + (if (gx#stx-pair/null? _%tl3586436236%_) + (let ((_%__splice3943739438%_ (gx#syntax-split-splice - _%tl3576536137%_ + _%tl3586436236%_ '0))) - (let ((_%tl3576836143%_ + (let ((_%tl3586736242%_ (let () (declare (not safe)) (##vector-ref - _%__splice3933839339%_ + _%__splice3943739438%_ '1))) - (_%target3576636140%_ + (_%target3586536239%_ (let () (declare (not safe)) (##vector-ref - _%__splice3933839339%_ + _%__splice3943739438%_ '0)))) - (if (gx#stx-null? _%tl3576836143%_) - (_%__match3937239373%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3933839339%_ - _%target3576636140%_ - _%tl3576836143%_) + (if (gx#stx-null? _%tl3586736242%_) + (_%__match3947139472%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3943739438%_ + _%target3586536239%_ + _%tl3586736242%_) (if (gx#stx-pair/null? - _%hd3576436134%_) - (let ((_%__splice3934639347%_ + _%hd3586336233%_) + (let ((_%__splice3944539446%_ (gx#syntax-split-splice - _%hd3576436134%_ + _%hd3586336233%_ '0))) - (let ((_%tl3581135870%_ + (let ((_%tl3591035969%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3944539446%_ '1))) - (_%target3580935867%_ + (_%target3590835966%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3944539446%_ '0)))) (if (gx#stx-null? - _%tl3581135870%_) - (_%__match3942639427%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) + _%tl3591035969%_) + (_%__match3952539526%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) (let () (declare (not safe)) - (_%g3575735840%_))))) + (_%g3585635939%_))))) (let () (declare (not safe)) - (_%g3575735840%_)))))) - (if (gx#stx-pair/null? _%hd3576436134%_) - (let ((_%__splice3934639347%_ + (_%g3585635939%_)))))) + (if (gx#stx-pair/null? _%hd3586336233%_) + (let ((_%__splice3944539446%_ (gx#syntax-split-splice - _%hd3576436134%_ + _%hd3586336233%_ '0))) - (let ((_%tl3581135870%_ + (let ((_%tl3591035969%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3944539446%_ '1))) - (_%target3580935867%_ + (_%target3590835966%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3944539446%_ '0)))) (if (gx#stx-null? - _%tl3581135870%_) - (_%__match3942639427%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) + _%tl3591035969%_) + (_%__match3952539526%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) (let () (declare (not safe)) - (_%g3575735840%_))))) + (_%g3585635939%_))))) (let () (declare (not safe)) - (_%g3575735840%_)))) - (if (gx#stx-pair? _%hd3576436134%_) - (let ((_%e3578536028%_ - (gx#syntax-e _%hd3576436134%_))) - (let ((_%tl3578736035%_ + (_%g3585635939%_)))) + (if (gx#stx-pair? _%hd3586336233%_) + (let ((_%e3588436127%_ + (gx#syntax-e _%hd3586336233%_))) + (let ((_%tl3588636134%_ (let () (declare (not safe)) - (##cdr _%e3578536028%_))) - (_%hd3578636032%_ + (##cdr _%e3588436127%_))) + (_%hd3588536131%_ (let () (declare (not safe)) - (##car _%e3578536028%_)))) - (if (gx#stx-pair? _%tl3578736035%_) - (let ((_%e3578836038%_ + (##car _%e3588436127%_)))) + (if (gx#stx-pair? _%tl3588636134%_) + (let ((_%e3588736137%_ (gx#syntax-e - _%tl3578736035%_))) - (let ((_%tl3579036045%_ + _%tl3588636134%_))) + (let ((_%tl3588936144%_ (let () (declare (not safe)) - (##cdr _%e3578836038%_))) - (_%hd3578936042%_ + (##cdr _%e3588736137%_))) + (_%hd3588836141%_ (let () (declare (not safe)) - (##car _%e3578836038%_)))) + (##car _%e3588736137%_)))) (if (gx#stx-null? - _%tl3579036045%_) + _%tl3588936144%_) (if (gx#stx-pair/null? - _%tl3576536137%_) - (let ((_%__splice3934239343%_ + _%tl3586436236%_) + (let ((_%__splice3944139442%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl3576536137%_ '0))) - (let ((_%tl3579336051%_ + (gx#syntax-split-splice _%tl3586436236%_ '0))) + (let ((_%tl3589236150%_ (let () (declare (not safe)) - (##vector-ref _%__splice3934239343%_ '1))) - (_%target3579136048%_ + (##vector-ref _%__splice3944139442%_ '1))) + (_%target3589036147%_ (let () (declare (not safe)) - (##vector-ref _%__splice3934239343%_ '0)))) - (if (gx#stx-null? _%tl3579336051%_) - (_%__match3940639407%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%e3578536028%_ - _%hd3578636032%_ - _%tl3578736035%_ - _%e3578836038%_ - _%hd3578936042%_ - _%tl3579036045%_ - _%__splice3934239343%_ - _%target3579136048%_ - _%tl3579336051%_) - (if (gx#stx-pair/null? _%hd3576436134%_) - (let ((_%__splice3934639347%_ + (##vector-ref _%__splice3944139442%_ '0)))) + (if (gx#stx-null? _%tl3589236150%_) + (_%__match3950539506%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%e3588436127%_ + _%hd3588536131%_ + _%tl3588636134%_ + _%e3588736137%_ + _%hd3588836141%_ + _%tl3588936144%_ + _%__splice3944139442%_ + _%target3589036147%_ + _%tl3589236150%_) + (if (gx#stx-pair/null? _%hd3586336233%_) + (let ((_%__splice3944539446%_ (gx#syntax-split-splice - _%hd3576436134%_ + _%hd3586336233%_ '0))) - (let ((_%tl3581135870%_ + (let ((_%tl3591035969%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3944539446%_ '1))) - (_%target3580935867%_ + (_%target3590835966%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3944539446%_ '0)))) - (if (gx#stx-null? _%tl3581135870%_) - (_%__match3942639427%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) + (if (gx#stx-null? _%tl3591035969%_) + (_%__match3952539526%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) (let () (declare (not safe)) - (_%g3575735840%_))))) + (_%g3585635939%_))))) (let () (declare (not safe)) - (_%g3575735840%_)))))) - (if (gx#stx-pair/null? _%hd3576436134%_) - (let ((_%__splice3934639347%_ - (gx#syntax-split-splice _%hd3576436134%_ '0))) - (let ((_%tl3581135870%_ + (_%g3585635939%_)))))) + (if (gx#stx-pair/null? _%hd3586336233%_) + (let ((_%__splice3944539446%_ + (gx#syntax-split-splice _%hd3586336233%_ '0))) + (let ((_%tl3591035969%_ (let () (declare (not safe)) - (##vector-ref _%__splice3934639347%_ '1))) - (_%target3580935867%_ + (##vector-ref _%__splice3944539446%_ '1))) + (_%target3590835966%_ (let () (declare (not safe)) - (##vector-ref _%__splice3934639347%_ '0)))) - (if (gx#stx-null? _%tl3581135870%_) - (_%__match3942639427%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) + (##vector-ref _%__splice3944539446%_ '0)))) + (if (gx#stx-null? _%tl3591035969%_) + (_%__match3952539526%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) (let () (declare (not safe)) - (_%g3575735840%_))))) - (let () (declare (not safe)) (_%g3575735840%_)))) - (if (gx#stx-pair/null? _%hd3576436134%_) - (let ((_%__splice3934639347%_ - (gx#syntax-split-splice _%hd3576436134%_ '0))) - (let ((_%tl3581135870%_ + (_%g3585635939%_))))) + (let () (declare (not safe)) (_%g3585635939%_)))) + (if (gx#stx-pair/null? _%hd3586336233%_) + (let ((_%__splice3944539446%_ + (gx#syntax-split-splice _%hd3586336233%_ '0))) + (let ((_%tl3591035969%_ (let () (declare (not safe)) - (##vector-ref _%__splice3934639347%_ '1))) - (_%target3580935867%_ + (##vector-ref _%__splice3944539446%_ '1))) + (_%target3590835966%_ (let () (declare (not safe)) - (##vector-ref _%__splice3934639347%_ '0)))) - (if (gx#stx-null? _%tl3581135870%_) - (_%__match3942639427%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) - (let () (declare (not safe)) (_%g3575735840%_))))) - (let () (declare (not safe)) (_%g3575735840%_)))))) + (##vector-ref _%__splice3944539446%_ '0)))) + (if (gx#stx-null? _%tl3591035969%_) + (_%__match3952539526%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) + (let () (declare (not safe)) (_%g3585635939%_))))) + (let () (declare (not safe)) (_%g3585635939%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd3576436134%_) - (let ((_%__splice3934639347%_ + _%hd3586336233%_) + (let ((_%__splice3944539446%_ (gx#syntax-split-splice - _%hd3576436134%_ + _%hd3586336233%_ '0))) - (let ((_%tl3581135870%_ + (let ((_%tl3591035969%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3944539446%_ '1))) - (_%target3580935867%_ + (_%target3590835966%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3944539446%_ '0)))) (if (gx#stx-null? - _%tl3581135870%_) - (_%__match3942639427%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) + _%tl3591035969%_) + (_%__match3952539526%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) (let () (declare (not safe)) - (_%g3575735840%_))))) + (_%g3585635939%_))))) (let () (declare (not safe)) - (_%g3575735840%_)))))) - (if (gx#stx-pair/null? _%hd3576436134%_) - (let ((_%__splice3934639347%_ + (_%g3585635939%_)))))) + (if (gx#stx-pair/null? _%hd3586336233%_) + (let ((_%__splice3944539446%_ (gx#syntax-split-splice - _%hd3576436134%_ + _%hd3586336233%_ '0))) - (let ((_%tl3581135870%_ + (let ((_%tl3591035969%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3944539446%_ '1))) - (_%target3580935867%_ + (_%target3590835966%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934639347%_ + _%__splice3944539446%_ '0)))) (if (gx#stx-null? - _%tl3581135870%_) - (_%__match3942639427%_ - _%e3576036120%_ - _%hd3576136124%_ - _%tl3576236127%_ - _%e3576336130%_ - _%hd3576436134%_ - _%tl3576536137%_ - _%__splice3934639347%_ - _%target3580935867%_ - _%tl3581135870%_) + _%tl3591035969%_) + (_%__match3952539526%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) (let () (declare (not safe)) - (_%g3575735840%_))))) + (_%g3585635939%_))))) (let () (declare (not safe)) - (_%g3575735840%_))))))) - (let () (declare (not safe)) (_%g3575735840%_))))) - (let () (declare (not safe)) (_%g3575735840%_)))))))) + (_%g3585635939%_))))))) + (let () (declare (not safe)) (_%g3585635939%_))))) + (let () (declare (not safe)) (_%g3585635939%_)))))))) (define |gerbil/core/match[:0:]#with*| - (lambda (_%$stx36203%_) - (let* ((_%__stx3942939430%_ _%$stx36203%_) - (_%g3620836260%_ + (lambda (_%$stx36302%_) + (let* ((_%__stx3952839529%_ _%$stx36302%_) + (_%g3630736359%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3942939430%_)))) - (let ((_%__kont3943239433%_ - (lambda (_%L36430%_ - _%L36432%_ - _%L36433%_ - _%L36434%_ - _%L36435%_) + _%__stx3952839529%_)))) + (let ((_%__kont3953139532%_ + (lambda (_%L36529%_ + _%L36531%_ + _%L36532%_ + _%L36533%_ + _%L36534%_) (cons (gx#datum->syntax '#f 'with) - (cons (cons (cons _%L36434%_ (cons _%L36433%_ '())) + (cons (cons (cons _%L36533%_ (cons _%L36532%_ '())) '()) - (cons (cons _%L36435%_ - (cons _%L36432%_ - (foldr (lambda (_%g3646036463%_ + (cons (cons _%L36534%_ + (cons _%L36531%_ + (foldr (lambda (_%g3655936562%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g3646136466%_) - (cons _%g3646036463%_ _%g3646136466%_)) + _%g3656036565%_) + (cons _%g3655936562%_ _%g3656036565%_)) '() - _%L36430%_))) + _%L36529%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3943639437%_ - (lambda (_%L36317%_) + (_%__kont3953539536%_ + (lambda (_%L36416%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g3633436337%_ _%g3633536340%_) - (cons _%g3633436337%_ _%g3633536340%_)) + (foldr (lambda (_%g3643336436%_ _%g3643436439%_) + (cons _%g3643336436%_ _%g3643436439%_)) '() - _%L36317%_)))))) - (let* ((_%__match3950239503%_ - (lambda (_%e3624036267%_ - _%hd3624136271%_ - _%tl3624236274%_ - _%e3624336277%_ - _%hd3624436281%_ - _%tl3624536284%_ - _%__splice3943839439%_ - _%target3624636287%_ - _%tl3624836290%_) - (letrec ((_%loop3624936293%_ - (lambda (_%hd3624736297%_ _%body3625336300%_) - (if (gx#stx-pair? _%hd3624736297%_) - (let ((_%e3625036303%_ - (gx#syntax-e _%hd3624736297%_))) - (let ((_%lp-tl3625236310%_ + _%L36416%_)))))) + (let* ((_%__match3960139602%_ + (lambda (_%e3633936366%_ + _%hd3634036370%_ + _%tl3634136373%_ + _%e3634236376%_ + _%hd3634336380%_ + _%tl3634436383%_ + _%__splice3953739538%_ + _%target3634536386%_ + _%tl3634736389%_) + (letrec ((_%loop3634836392%_ + (lambda (_%hd3634636396%_ _%body3635236399%_) + (if (gx#stx-pair? _%hd3634636396%_) + (let ((_%e3634936402%_ + (gx#syntax-e _%hd3634636396%_))) + (let ((_%lp-tl3635136409%_ (let () (declare (not safe)) - (##cdr _%e3625036303%_))) - (_%lp-hd3625136307%_ + (##cdr _%e3634936402%_))) + (_%lp-hd3635036406%_ (let () (declare (not safe)) - (##car _%e3625036303%_)))) - (_%loop3624936293%_ - _%lp-tl3625236310%_ - (cons _%lp-hd3625136307%_ - _%body3625336300%_)))) - (let ((_%body3625436313%_ - (reverse _%body3625336300%_))) - (_%__kont3943639437%_ - _%body3625436313%_)))))) - (_%loop3624936293%_ _%target3624636287%_ '())))) - (_%__match3948039481%_ - (lambda (_%e3621536350%_ - _%hd3621636354%_ - _%tl3621736357%_ - _%e3621836360%_ - _%hd3621936364%_ - _%tl3622036367%_ - _%e3622136370%_ - _%hd3622236374%_ - _%tl3622336377%_ - _%e3622436380%_ - _%hd3622536384%_ - _%tl3622636387%_ - _%e3622736390%_ - _%hd3622836394%_ - _%tl3622936397%_ - _%__splice3943439435%_ - _%target3623036400%_ - _%tl3623236403%_) - (letrec ((_%loop3623336406%_ - (lambda (_%hd3623136410%_ _%body3623736413%_) - (if (gx#stx-pair? _%hd3623136410%_) - (let ((_%e3623436416%_ - (gx#syntax-e _%hd3623136410%_))) - (let ((_%lp-tl3623636423%_ + (##car _%e3634936402%_)))) + (_%loop3634836392%_ + _%lp-tl3635136409%_ + (cons _%lp-hd3635036406%_ + _%body3635236399%_)))) + (let ((_%body3635336412%_ + (reverse _%body3635236399%_))) + (_%__kont3953539536%_ + _%body3635336412%_)))))) + (_%loop3634836392%_ _%target3634536386%_ '())))) + (_%__match3957939580%_ + (lambda (_%e3631436449%_ + _%hd3631536453%_ + _%tl3631636456%_ + _%e3631736459%_ + _%hd3631836463%_ + _%tl3631936466%_ + _%e3632036469%_ + _%hd3632136473%_ + _%tl3632236476%_ + _%e3632336479%_ + _%hd3632436483%_ + _%tl3632536486%_ + _%e3632636489%_ + _%hd3632736493%_ + _%tl3632836496%_ + _%__splice3953339534%_ + _%target3632936499%_ + _%tl3633136502%_) + (letrec ((_%loop3633236505%_ + (lambda (_%hd3633036509%_ _%body3633636512%_) + (if (gx#stx-pair? _%hd3633036509%_) + (let ((_%e3633336515%_ + (gx#syntax-e _%hd3633036509%_))) + (let ((_%lp-tl3633536522%_ (let () (declare (not safe)) - (##cdr _%e3623436416%_))) - (_%lp-hd3623536420%_ + (##cdr _%e3633336515%_))) + (_%lp-hd3633436519%_ (let () (declare (not safe)) - (##car _%e3623436416%_)))) - (_%loop3623336406%_ - _%lp-tl3623636423%_ - (cons _%lp-hd3623536420%_ - _%body3623736413%_)))) - (let ((_%body3623836426%_ - (reverse _%body3623736413%_))) - (_%__kont3943239433%_ - _%body3623836426%_ - _%tl3622336377%_ - _%hd3622836394%_ - _%hd3622536384%_ - _%hd3621636354%_)))))) - (_%loop3623336406%_ _%target3623036400%_ '()))))) - (if (gx#stx-pair? _%__stx3942939430%_) - (let ((_%e3621536350%_ (gx#syntax-e _%__stx3942939430%_))) - (let ((_%tl3621736357%_ + (##car _%e3633336515%_)))) + (_%loop3633236505%_ + _%lp-tl3633536522%_ + (cons _%lp-hd3633436519%_ + _%body3633636512%_)))) + (let ((_%body3633736525%_ + (reverse _%body3633636512%_))) + (_%__kont3953139532%_ + _%body3633736525%_ + _%tl3632236476%_ + _%hd3632736493%_ + _%hd3632436483%_ + _%hd3631536453%_)))))) + (_%loop3633236505%_ _%target3632936499%_ '()))))) + (if (gx#stx-pair? _%__stx3952839529%_) + (let ((_%e3631436449%_ (gx#syntax-e _%__stx3952839529%_))) + (let ((_%tl3631636456%_ (let () (declare (not safe)) - (##cdr _%e3621536350%_))) - (_%hd3621636354%_ + (##cdr _%e3631436449%_))) + (_%hd3631536453%_ (let () (declare (not safe)) - (##car _%e3621536350%_)))) - (if (gx#stx-pair? _%tl3621736357%_) - (let ((_%e3621836360%_ - (gx#syntax-e _%tl3621736357%_))) - (let ((_%tl3622036367%_ + (##car _%e3631436449%_)))) + (if (gx#stx-pair? _%tl3631636456%_) + (let ((_%e3631736459%_ + (gx#syntax-e _%tl3631636456%_))) + (let ((_%tl3631936466%_ (let () (declare (not safe)) - (##cdr _%e3621836360%_))) - (_%hd3621936364%_ + (##cdr _%e3631736459%_))) + (_%hd3631836463%_ (let () (declare (not safe)) - (##car _%e3621836360%_)))) - (if (gx#stx-pair? _%hd3621936364%_) - (let ((_%e3622136370%_ - (gx#syntax-e _%hd3621936364%_))) - (let ((_%tl3622336377%_ + (##car _%e3631736459%_)))) + (if (gx#stx-pair? _%hd3631836463%_) + (let ((_%e3632036469%_ + (gx#syntax-e _%hd3631836463%_))) + (let ((_%tl3632236476%_ (let () (declare (not safe)) - (##cdr _%e3622136370%_))) - (_%hd3622236374%_ + (##cdr _%e3632036469%_))) + (_%hd3632136473%_ (let () (declare (not safe)) - (##car _%e3622136370%_)))) - (if (gx#stx-pair? _%hd3622236374%_) - (let ((_%e3622436380%_ + (##car _%e3632036469%_)))) + (if (gx#stx-pair? _%hd3632136473%_) + (let ((_%e3632336479%_ (gx#syntax-e - _%hd3622236374%_))) - (let ((_%tl3622636387%_ + _%hd3632136473%_))) + (let ((_%tl3632536486%_ (let () (declare (not safe)) - (##cdr _%e3622436380%_))) - (_%hd3622536384%_ + (##cdr _%e3632336479%_))) + (_%hd3632436483%_ (let () (declare (not safe)) - (##car _%e3622436380%_)))) + (##car _%e3632336479%_)))) (if (gx#stx-pair? - _%tl3622636387%_) - (let ((_%e3622736390%_ + _%tl3632536486%_) + (let ((_%e3632636489%_ (gx#syntax-e - _%tl3622636387%_))) - (let ((_%tl3622936397%_ + _%tl3632536486%_))) + (let ((_%tl3632836496%_ (let () (declare (not safe)) - (##cdr _%e3622736390%_))) - (_%hd3622836394%_ + (##cdr _%e3632636489%_))) + (_%hd3632736493%_ (let () (declare (not safe)) - (##car _%e3622736390%_)))) + (##car _%e3632636489%_)))) (if (gx#stx-null? - _%tl3622936397%_) + _%tl3632836496%_) (if (gx#stx-pair/null? - _%tl3622036367%_) - (let ((_%__splice3943439435%_ + _%tl3631936466%_) + (let ((_%__splice3953339534%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl3622036367%_ '0))) - (let ((_%tl3623236403%_ + (gx#syntax-split-splice _%tl3631936466%_ '0))) + (let ((_%tl3633136502%_ (let () (declare (not safe)) - (##vector-ref _%__splice3943439435%_ '1))) - (_%target3623036400%_ + (##vector-ref _%__splice3953339534%_ '1))) + (_%target3632936499%_ (let () (declare (not safe)) - (##vector-ref _%__splice3943439435%_ '0)))) - (if (gx#stx-null? _%tl3623236403%_) - (_%__match3948039481%_ - _%e3621536350%_ - _%hd3621636354%_ - _%tl3621736357%_ - _%e3621836360%_ - _%hd3621936364%_ - _%tl3622036367%_ - _%e3622136370%_ - _%hd3622236374%_ - _%tl3622336377%_ - _%e3622436380%_ - _%hd3622536384%_ - _%tl3622636387%_ - _%e3622736390%_ - _%hd3622836394%_ - _%tl3622936397%_ - _%__splice3943439435%_ - _%target3623036400%_ - _%tl3623236403%_) + (##vector-ref _%__splice3953339534%_ '0)))) + (if (gx#stx-null? _%tl3633136502%_) + (_%__match3957939580%_ + _%e3631436449%_ + _%hd3631536453%_ + _%tl3631636456%_ + _%e3631736459%_ + _%hd3631836463%_ + _%tl3631936466%_ + _%e3632036469%_ + _%hd3632136473%_ + _%tl3632236476%_ + _%e3632336479%_ + _%hd3632436483%_ + _%tl3632536486%_ + _%e3632636489%_ + _%hd3632736493%_ + _%tl3632836496%_ + _%__splice3953339534%_ + _%target3632936499%_ + _%tl3633136502%_) (let () (declare (not safe)) - (_%g3620836260%_))))) - (let () (declare (not safe)) (_%g3620836260%_))) - (let () (declare (not safe)) (_%g3620836260%_))))) + (_%g3630736359%_))))) + (let () (declare (not safe)) (_%g3630736359%_))) + (let () (declare (not safe)) (_%g3630736359%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3620836260%_))))) + (_%g3630736359%_))))) (let () (declare (not safe)) - (_%g3620836260%_))))) - (if (gx#stx-null? _%hd3621936364%_) - (if (gx#stx-pair/null? _%tl3622036367%_) - (let ((_%__splice3943839439%_ + (_%g3630736359%_))))) + (if (gx#stx-null? _%hd3631836463%_) + (if (gx#stx-pair/null? _%tl3631936466%_) + (let ((_%__splice3953739538%_ (gx#syntax-split-splice - _%tl3622036367%_ + _%tl3631936466%_ '0))) - (let ((_%tl3624836290%_ + (let ((_%tl3634736389%_ (let () (declare (not safe)) (##vector-ref - _%__splice3943839439%_ + _%__splice3953739538%_ '1))) - (_%target3624636287%_ + (_%target3634536386%_ (let () (declare (not safe)) (##vector-ref - _%__splice3943839439%_ + _%__splice3953739538%_ '0)))) (if (gx#stx-null? - _%tl3624836290%_) - (_%__match3950239503%_ - _%e3621536350%_ - _%hd3621636354%_ - _%tl3621736357%_ - _%e3621836360%_ - _%hd3621936364%_ - _%tl3622036367%_ - _%__splice3943839439%_ - _%target3624636287%_ - _%tl3624836290%_) + _%tl3634736389%_) + (_%__match3960139602%_ + _%e3631436449%_ + _%hd3631536453%_ + _%tl3631636456%_ + _%e3631736459%_ + _%hd3631836463%_ + _%tl3631936466%_ + _%__splice3953739538%_ + _%target3634536386%_ + _%tl3634736389%_) (let () (declare (not safe)) - (_%g3620836260%_))))) + (_%g3630736359%_))))) (let () (declare (not safe)) - (_%g3620836260%_))) + (_%g3630736359%_))) (let () (declare (not safe)) - (_%g3620836260%_)))))) - (let () (declare (not safe)) (_%g3620836260%_))))) - (let () (declare (not safe)) (_%g3620836260%_)))))))) + (_%g3630736359%_)))))) + (let () (declare (not safe)) (_%g3630736359%_))))) + (let () (declare (not safe)) (_%g3630736359%_)))))))) (define |gerbil/core/match[:0:]#?| - (lambda (_%$stx36475%_) - (let* ((_%__stx3950539506%_ _%$stx36475%_) - (_%g3648636632%_ + (lambda (_%$stx36574%_) + (let* ((_%__stx3960439605%_ _%$stx36574%_) + (_%g3658536731%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3950539506%_)))) - (let ((_%__kont3950839509%_ - (lambda (_%L37236%_ _%L37238%_ _%L37239%_) + _%__stx3960439605%_)))) + (let ((_%__kont3960739608%_ + (lambda (_%L37335%_ _%L37337%_ _%L37338%_) (cons (gx#datum->syntax '#f 'and) - (foldr (lambda (_%g3726037263%_ _%g3726137266%_) - (cons (cons _%L37239%_ - (cons _%g3726037263%_ - (cons _%L37236%_ '()))) - _%g3726137266%_)) + (foldr (lambda (_%g3735937362%_ _%g3736037365%_) + (cons (cons _%L37338%_ + (cons _%g3735937362%_ + (cons _%L37335%_ '()))) + _%g3736037365%_)) '() - _%L37238%_)))) - (_%__kont3951239513%_ - (lambda (_%L37126%_ _%L37128%_ _%L37129%_) + _%L37337%_)))) + (_%__kont3961139612%_ + (lambda (_%L37225%_ _%L37227%_ _%L37228%_) (cons (gx#datum->syntax '#f 'or) - (foldr (lambda (_%g3715037153%_ _%g3715137156%_) - (cons (cons _%L37129%_ - (cons _%g3715037153%_ - (cons _%L37126%_ '()))) - _%g3715137156%_)) + (foldr (lambda (_%g3724937252%_ _%g3725037255%_) + (cons (cons _%L37228%_ + (cons _%g3724937252%_ + (cons _%L37225%_ '()))) + _%g3725037255%_)) '() - _%L37128%_)))) - (_%__kont3951639517%_ - (lambda (_%L37026%_ _%L37028%_ _%L37029%_) + _%L37227%_)))) + (_%__kont3961539616%_ + (lambda (_%L37125%_ _%L37127%_ _%L37128%_) (cons (gx#datum->syntax '#f 'not) - (cons (cons _%L37029%_ - (cons _%L37028%_ (cons _%L37026%_ '()))) + (cons (cons _%L37128%_ + (cons _%L37127%_ (cons _%L37125%_ '()))) '())))) - (_%__kont3951839519%_ - (lambda (_%L36952%_ _%L36954%_) - (cons _%L36954%_ (cons _%L36952%_ '())))) - (_%__kont3952039521%_ - (lambda (_%L36900%_ _%L36902%_) + (_%__kont3961739618%_ + (lambda (_%L37051%_ _%L37053%_) + (cons _%L37053%_ (cons _%L37051%_ '())))) + (_%__kont3961939620%_ + (lambda (_%L36999%_ _%L37001%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) - (cons (cons _%L36902%_ - (cons _%L36900%_ + (cons (cons _%L37001%_ + (cons _%L36999%_ (cons (gx#datum->syntax '#f '$obj) '()))) '()))))) - (_%__kont3952239523%_ - (lambda (_%L36852%_ _%L36854%_ _%L36855%_) + (_%__kont3962139622%_ + (lambda (_%L36951%_ _%L36953%_ _%L36954%_) (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 _%L36855%_ + (cons (cons _%L36954%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L36854%_ + (cons _%L36953%_ (cons (gx#datum->syntax '#f '$obj) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L36852%_ + (cons (cons _%L36951%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -6637,20 +6637,20 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3952439525%_ - (lambda (_%L36783%_ _%L36785%_ _%L36786%_) + (_%__kont3962339624%_ + (lambda (_%L36882%_ _%L36884%_ _%L36885%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) (cons (cons (gx#datum->syntax '#f 'and) - (cons (cons _%L36786%_ - (cons _%L36785%_ + (cons (cons _%L36885%_ + (cons _%L36884%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L36783%_ + (cons (cons _%L36882%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -6659,1806 +6659,1806 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3952639527%_ - (lambda (_%L36703%_ _%L36705%_ _%L36706%_ _%L36707%_) + (_%__kont3962539626%_ + (lambda (_%L36802%_ _%L36804%_ _%L36805%_ _%L36806%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) (cons (cons (gx#datum->syntax '#f 'and) - (cons (cons _%L36707%_ - (cons _%L36706%_ + (cons (cons _%L36806%_ + (cons _%L36805%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L36703%_ - (cons (cons _%L36705%_ + (cons (cons _%L36802%_ + (cons (cons _%L36804%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f '$obj) '())) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match3967839679%_ - (lambda (_%e3657636812%_ - _%hd3657736816%_ - _%tl3657836819%_ - _%e3657936822%_ - _%hd3658036826%_ - _%tl3658136829%_ - _%e3658236832%_ - _%hd3658336836%_ - _%tl3658436839%_) - (if (gx#identifier? _%hd3658336836%_) + (let* ((_%__match3977739778%_ + (lambda (_%e3667536911%_ + _%hd3667636915%_ + _%tl3667736918%_ + _%e3667836921%_ + _%hd3667936925%_ + _%tl3668036928%_ + _%e3668136931%_ + _%hd3668236935%_ + _%tl3668336938%_) + (if (gx#identifier? _%hd3668236935%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3658336836%_) - (if (gx#stx-pair? _%tl3658436839%_) - (let ((_%e3658536842%_ - (gx#syntax-e _%tl3658436839%_))) - (let ((_%tl3658736849%_ + |gerbil/core/match[1]#_g39979_| + _%hd3668236935%_) + (if (gx#stx-pair? _%tl3668336938%_) + (let ((_%e3668436941%_ + (gx#syntax-e _%tl3668336938%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) - (if (gx#stx-null? _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3658036826%_ - _%hd3657736816%_) + (##car _%e3668436941%_)))) + (if (gx#stx-null? _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3667936925%_ + _%hd3667636915%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3658336836%_) - (let ((_%e3660036769%_ - (gx#stx-e _%hd3658336836%_))) - (if (equal? _%e3660036769%_ '::) - (if (gx#stx-pair? _%tl3658436839%_) - (let ((_%e3660136773%_ - (gx#syntax-e _%tl3658436839%_))) - (let ((_%tl3660336780%_ + (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3668236935%_) + (let ((_%e3669936868%_ + (gx#stx-e _%hd3668236935%_))) + (if (equal? _%e3669936868%_ '::) + (if (gx#stx-pair? _%tl3668336938%_) + (let ((_%e3670036872%_ + (gx#syntax-e _%tl3668336938%_))) + (let ((_%tl3670236879%_ (let () (declare (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) - (if (gx#stx-null? _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3658036826%_ - _%hd3657736816%_) + (##car _%e3670036872%_)))) + (if (gx#stx-null? _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3667936925%_ + _%hd3667636915%_) (if (gx#stx-pair? - _%tl3660336780%_) - (let ((_%e3662136683%_ + _%tl3670236879%_) + (let ((_%e3672036782%_ (gx#syntax-e - _%tl3660336780%_))) - (let ((_%tl3662336690%_ + _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ - (let () (declare (not safe)) (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ + (let () (declare (not safe)) (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3658036826%_ - _%hd3657736816%_) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3667936925%_ + _%hd3667636915%_) (let () (declare (not safe)) - (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))))) + (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_)))))) + (_%g3658536731%_)))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3648636632%_)))))) - (_%__match3965839659%_ - (lambda (_%e3656736880%_ - _%hd3656836884%_ - _%tl3656936887%_ - _%e3657036890%_ - _%hd3657136894%_ - _%tl3657236897%_) - (if (gx#stx-null? _%tl3657236897%_) - (_%__kont3952039521%_ - _%hd3657136894%_ - _%hd3656836884%_) - (if (gx#stx-pair? _%tl3657236897%_) - (let ((_%e3658236832%_ - (gx#syntax-e _%tl3657236897%_))) - (let ((_%tl3658436839%_ + (_%g3658536731%_)))))) + (_%__match3975739758%_ + (lambda (_%e3666636979%_ + _%hd3666736983%_ + _%tl3666836986%_ + _%e3666936989%_ + _%hd3667036993%_ + _%tl3667136996%_) + (if (gx#stx-null? _%tl3667136996%_) + (_%__kont3961939620%_ + _%hd3667036993%_ + _%hd3666736983%_) + (if (gx#stx-pair? _%tl3667136996%_) + (let ((_%e3668136931%_ + (gx#syntax-e _%tl3667136996%_))) + (let ((_%tl3668336938%_ (let () (declare (not safe)) - (##cdr _%e3658236832%_))) - (_%hd3658336836%_ + (##cdr _%e3668136931%_))) + (_%hd3668236935%_ (let () (declare (not safe)) - (##car _%e3658236832%_)))) - (if (gx#identifier? _%hd3658336836%_) + (##car _%e3668136931%_)))) + (if (gx#identifier? _%hd3668236935%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3658336836%_) - (if (gx#stx-pair? _%tl3658436839%_) - (let ((_%e3658536842%_ + |gerbil/core/match[1]#_g39979_| + _%hd3668236935%_) + (if (gx#stx-pair? _%tl3668336938%_) + (let ((_%e3668436941%_ (gx#syntax-e - _%tl3658436839%_))) - (let ((_%tl3658736849%_ + _%tl3668336938%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) + (##car _%e3668436941%_)))) (if (gx#stx-null? - _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3657136894%_ - _%hd3656836884%_) + _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3667036993%_ + _%hd3666736983%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3658336836%_) - (let ((_%e3660036769%_ - (gx#stx-e _%hd3658336836%_))) - (if (equal? _%e3660036769%_ '::) + (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3668236935%_) + (let ((_%e3669936868%_ + (gx#stx-e _%hd3668236935%_))) + (if (equal? _%e3669936868%_ '::) (if (gx#stx-pair? - _%tl3658436839%_) - (let ((_%e3660136773%_ + _%tl3668336938%_) + (let ((_%e3670036872%_ (gx#syntax-e - _%tl3658436839%_))) - (let ((_%tl3660336780%_ + _%tl3668336938%_))) + (let ((_%tl3670236879%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ - (let () (declare (not safe)) (##car _%e3660136773%_)))) - (if (gx#stx-null? _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3657136894%_ - _%hd3656836884%_) - (if (gx#stx-pair? _%tl3660336780%_) - (let ((_%e3662136683%_ (gx#syntax-e _%tl3660336780%_))) - (let ((_%tl3662336690%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ + (let () (declare (not safe)) (##car _%e3670036872%_)))) + (if (gx#stx-null? _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3667036993%_ + _%hd3666736983%_) + (if (gx#stx-pair? _%tl3670236879%_) + (let ((_%e3672036782%_ (gx#syntax-e _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3657136894%_ - _%hd3656836884%_) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3667036993%_ + _%hd3666736983%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))) + (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3648636632%_)))))) + (_%g3658536731%_)))))) (let () (declare (not safe)) - (_%g3648636632%_)))))) - (_%__match3958839589%_ - (lambda (_%e3651537056%_ - _%hd3651637060%_ - _%tl3651737063%_ - _%e3651837066%_ - _%hd3651937070%_ - _%tl3652037073%_ - _%e3652137076%_ - _%hd3652237080%_ - _%tl3652337083%_ - _%__splice3951439515%_ - _%target3652437086%_ - _%tl3652637089%_) - (letrec ((_%loop3652737092%_ - (lambda (_%hd3652537096%_ _%pred3653137099%_) - (if (gx#stx-pair? _%hd3652537096%_) - (let ((_%e3652837102%_ - (gx#syntax-e _%hd3652537096%_))) - (let ((_%lp-tl3653037109%_ + (_%g3658536731%_)))))) + (_%__match3968739688%_ + (lambda (_%e3661437155%_ + _%hd3661537159%_ + _%tl3661637162%_ + _%e3661737165%_ + _%hd3661837169%_ + _%tl3661937172%_ + _%e3662037175%_ + _%hd3662137179%_ + _%tl3662237182%_ + _%__splice3961339614%_ + _%target3662337185%_ + _%tl3662537188%_) + (letrec ((_%loop3662637191%_ + (lambda (_%hd3662437195%_ _%pred3663037198%_) + (if (gx#stx-pair? _%hd3662437195%_) + (let ((_%e3662737201%_ + (gx#syntax-e _%hd3662437195%_))) + (let ((_%lp-tl3662937208%_ (let () (declare (not safe)) - (##cdr _%e3652837102%_))) - (_%lp-hd3652937106%_ + (##cdr _%e3662737201%_))) + (_%lp-hd3662837205%_ (let () (declare (not safe)) - (##car _%e3652837102%_)))) - (_%loop3652737092%_ - _%lp-tl3653037109%_ - (cons _%lp-hd3652937106%_ - _%pred3653137099%_)))) - (let ((_%pred3653237112%_ - (reverse _%pred3653137099%_))) - (if (gx#stx-pair? _%tl3652037073%_) - (let ((_%e3653337116%_ + (##car _%e3662737201%_)))) + (_%loop3662637191%_ + _%lp-tl3662937208%_ + (cons _%lp-hd3662837205%_ + _%pred3663037198%_)))) + (let ((_%pred3663137211%_ + (reverse _%pred3663037198%_))) + (if (gx#stx-pair? _%tl3661937172%_) + (let ((_%e3663237215%_ (gx#syntax-e - _%tl3652037073%_))) - (let ((_%tl3653537123%_ + _%tl3661937172%_))) + (let ((_%tl3663437222%_ (let () (declare (not safe)) - (##cdr _%e3653337116%_))) - (_%hd3653437120%_ + (##cdr _%e3663237215%_))) + (_%hd3663337219%_ (let () (declare (not safe)) - (##car _%e3653337116%_)))) + (##car _%e3663237215%_)))) (if (gx#stx-null? - _%tl3653537123%_) - (_%__kont3951239513%_ - _%hd3653437120%_ - _%pred3653237112%_ - _%hd3651637060%_) - (_%__match3967839679%_ - _%e3651537056%_ - _%hd3651637060%_ - _%tl3651737063%_ - _%e3651837066%_ - _%hd3651937070%_ - _%tl3652037073%_ - _%e3653337116%_ - _%hd3653437120%_ - _%tl3653537123%_)))) - (_%__match3965839659%_ - _%e3651537056%_ - _%hd3651637060%_ - _%tl3651737063%_ - _%e3651837066%_ - _%hd3651937070%_ - _%tl3652037073%_))))))) - (_%loop3652737092%_ _%target3652437086%_ '())))) - (_%__match3955839559%_ - (lambda (_%e3649137166%_ - _%hd3649237170%_ - _%tl3649337173%_ - _%e3649437176%_ - _%hd3649537180%_ - _%tl3649637183%_ - _%e3649737186%_ - _%hd3649837190%_ - _%tl3649937193%_ - _%__splice3951039511%_ - _%target3650037196%_ - _%tl3650237199%_) - (letrec ((_%loop3650337202%_ - (lambda (_%hd3650137206%_ _%pred3650737209%_) - (if (gx#stx-pair? _%hd3650137206%_) - (let ((_%e3650437212%_ - (gx#syntax-e _%hd3650137206%_))) - (let ((_%lp-tl3650637219%_ + _%tl3663437222%_) + (_%__kont3961139612%_ + _%hd3663337219%_ + _%pred3663137211%_ + _%hd3661537159%_) + (_%__match3977739778%_ + _%e3661437155%_ + _%hd3661537159%_ + _%tl3661637162%_ + _%e3661737165%_ + _%hd3661837169%_ + _%tl3661937172%_ + _%e3663237215%_ + _%hd3663337219%_ + _%tl3663437222%_)))) + (_%__match3975739758%_ + _%e3661437155%_ + _%hd3661537159%_ + _%tl3661637162%_ + _%e3661737165%_ + _%hd3661837169%_ + _%tl3661937172%_))))))) + (_%loop3662637191%_ _%target3662337185%_ '())))) + (_%__match3965739658%_ + (lambda (_%e3659037265%_ + _%hd3659137269%_ + _%tl3659237272%_ + _%e3659337275%_ + _%hd3659437279%_ + _%tl3659537282%_ + _%e3659637285%_ + _%hd3659737289%_ + _%tl3659837292%_ + _%__splice3960939610%_ + _%target3659937295%_ + _%tl3660137298%_) + (letrec ((_%loop3660237301%_ + (lambda (_%hd3660037305%_ _%pred3660637308%_) + (if (gx#stx-pair? _%hd3660037305%_) + (let ((_%e3660337311%_ + (gx#syntax-e _%hd3660037305%_))) + (let ((_%lp-tl3660537318%_ (let () (declare (not safe)) - (##cdr _%e3650437212%_))) - (_%lp-hd3650537216%_ + (##cdr _%e3660337311%_))) + (_%lp-hd3660437315%_ (let () (declare (not safe)) - (##car _%e3650437212%_)))) - (_%loop3650337202%_ - _%lp-tl3650637219%_ - (cons _%lp-hd3650537216%_ - _%pred3650737209%_)))) - (let ((_%pred3650837222%_ - (reverse _%pred3650737209%_))) - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3650937226%_ + (##car _%e3660337311%_)))) + (_%loop3660237301%_ + _%lp-tl3660537318%_ + (cons _%lp-hd3660437315%_ + _%pred3660637308%_)))) + (let ((_%pred3660737321%_ + (reverse _%pred3660637308%_))) + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3660837325%_ (gx#syntax-e - _%tl3649637183%_))) - (let ((_%tl3651137233%_ + _%tl3659537282%_))) + (let ((_%tl3661037332%_ (let () (declare (not safe)) - (##cdr _%e3650937226%_))) - (_%hd3651037230%_ + (##cdr _%e3660837325%_))) + (_%hd3660937329%_ (let () (declare (not safe)) - (##car _%e3650937226%_)))) + (##car _%e3660837325%_)))) (if (gx#stx-null? - _%tl3651137233%_) - (_%__kont3950839509%_ - _%hd3651037230%_ - _%pred3650837222%_ - _%hd3649237170%_) - (_%__match3967839679%_ - _%e3649137166%_ - _%hd3649237170%_ - _%tl3649337173%_ - _%e3649437176%_ - _%hd3649537180%_ - _%tl3649637183%_ - _%e3650937226%_ - _%hd3651037230%_ - _%tl3651137233%_)))) - (_%__match3965839659%_ - _%e3649137166%_ - _%hd3649237170%_ - _%tl3649337173%_ - _%e3649437176%_ - _%hd3649537180%_ - _%tl3649637183%_))))))) - (_%loop3650337202%_ _%target3650037196%_ '()))))) - (if (gx#stx-pair? _%__stx3950539506%_) - (let ((_%e3649137166%_ (gx#syntax-e _%__stx3950539506%_))) - (let ((_%tl3649337173%_ + _%tl3661037332%_) + (_%__kont3960739608%_ + _%hd3660937329%_ + _%pred3660737321%_ + _%hd3659137269%_) + (_%__match3977739778%_ + _%e3659037265%_ + _%hd3659137269%_ + _%tl3659237272%_ + _%e3659337275%_ + _%hd3659437279%_ + _%tl3659537282%_ + _%e3660837325%_ + _%hd3660937329%_ + _%tl3661037332%_)))) + (_%__match3975739758%_ + _%e3659037265%_ + _%hd3659137269%_ + _%tl3659237272%_ + _%e3659337275%_ + _%hd3659437279%_ + _%tl3659537282%_))))))) + (_%loop3660237301%_ _%target3659937295%_ '()))))) + (if (gx#stx-pair? _%__stx3960439605%_) + (let ((_%e3659037265%_ (gx#syntax-e _%__stx3960439605%_))) + (let ((_%tl3659237272%_ (let () (declare (not safe)) - (##cdr _%e3649137166%_))) - (_%hd3649237170%_ + (##cdr _%e3659037265%_))) + (_%hd3659137269%_ (let () (declare (not safe)) - (##car _%e3649137166%_)))) - (if (gx#stx-pair? _%tl3649337173%_) - (let ((_%e3649437176%_ - (gx#syntax-e _%tl3649337173%_))) - (let ((_%tl3649637183%_ + (##car _%e3659037265%_)))) + (if (gx#stx-pair? _%tl3659237272%_) + (let ((_%e3659337275%_ + (gx#syntax-e _%tl3659237272%_))) + (let ((_%tl3659537282%_ (let () (declare (not safe)) - (##cdr _%e3649437176%_))) - (_%hd3649537180%_ + (##cdr _%e3659337275%_))) + (_%hd3659437279%_ (let () (declare (not safe)) - (##car _%e3649437176%_)))) - (if (gx#stx-pair? _%hd3649537180%_) - (let ((_%e3649737186%_ - (gx#syntax-e _%hd3649537180%_))) - (let ((_%tl3649937193%_ + (##car _%e3659337275%_)))) + (if (gx#stx-pair? _%hd3659437279%_) + (let ((_%e3659637285%_ + (gx#syntax-e _%hd3659437279%_))) + (let ((_%tl3659837292%_ (let () (declare (not safe)) - (##cdr _%e3649737186%_))) - (_%hd3649837190%_ + (##cdr _%e3659637285%_))) + (_%hd3659737289%_ (let () (declare (not safe)) - (##car _%e3649737186%_)))) - (if (gx#identifier? _%hd3649837190%_) + (##car _%e3659637285%_)))) + (if (gx#identifier? _%hd3659737289%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39882_| - _%hd3649837190%_) + |gerbil/core/match[1]#_g39981_| + _%hd3659737289%_) (if (gx#stx-pair/null? - _%tl3649937193%_) - (let ((_%__splice3951039511%_ + _%tl3659837292%_) + (let ((_%__splice3960939610%_ (gx#syntax-split-splice - _%tl3649937193%_ + _%tl3659837292%_ '0))) - (let ((_%tl3650237199%_ + (let ((_%tl3660137298%_ (let () (declare (not safe)) (##vector-ref - _%__splice3951039511%_ + _%__splice3960939610%_ '1))) - (_%target3650037196%_ + (_%target3659937295%_ (let () (declare (not safe)) (##vector-ref - _%__splice3951039511%_ + _%__splice3960939610%_ '0)))) (if (gx#stx-null? - _%tl3650237199%_) - (_%__match3955839559%_ - _%e3649137166%_ - _%hd3649237170%_ - _%tl3649337173%_ - _%e3649437176%_ - _%hd3649537180%_ - _%tl3649637183%_ - _%e3649737186%_ - _%hd3649837190%_ - _%tl3649937193%_ - _%__splice3951039511%_ - _%target3650037196%_ - _%tl3650237199%_) + _%tl3660137298%_) + (_%__match3965739658%_ + _%e3659037265%_ + _%hd3659137269%_ + _%tl3659237272%_ + _%e3659337275%_ + _%hd3659437279%_ + _%tl3659537282%_ + _%e3659637285%_ + _%hd3659737289%_ + _%tl3659837292%_ + _%__splice3960939610%_ + _%target3659937295%_ + _%tl3660137298%_) (if (gx#stx-pair? - _%tl3649637183%_) - (let ((_%e3656236942%_ + _%tl3659537282%_) + (let ((_%e3666137041%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3649637183%_))) - (let ((_%tl3656436949%_ + (gx#syntax-e _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ (let () (declare (not safe)) - (##car _%e3656236942%_)))) - (if (gx#stx-null? _%tl3656436949%_) - (_%__kont3951839519%_ - _%hd3656336946%_ - _%hd3649537180%_) - (if (gx#identifier? _%hd3656336946%_) + (##car _%e3666137041%_)))) + (if (gx#stx-null? _%tl3666337048%_) + (_%__kont3961739618%_ + _%hd3666237045%_ + _%hd3659437279%_) + (if (gx#identifier? _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3658536842%_ + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3668436941%_ (gx#syntax-e - _%tl3656436949%_))) - (let ((_%tl3658736849%_ + _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) + (##car _%e3668436941%_)))) (if (gx#stx-null? - _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3656336946%_) - (let ((_%e3660036769%_ - (gx#stx-e _%hd3656336946%_))) - (if (equal? _%e3660036769%_ '::) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3660136773%_ + (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3666237045%_) + (let ((_%e3669936868%_ + (gx#stx-e _%hd3666237045%_))) + (if (equal? _%e3669936868%_ '::) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3670036872%_ (gx#syntax-e - _%tl3656436949%_))) - (let ((_%tl3660336780%_ + _%tl3666337048%_))) + (let ((_%tl3670236879%_ (let () (declare (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) + (##car _%e3670036872%_)))) (if (gx#stx-null? - _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (if (gx#stx-pair? - _%tl3660336780%_) - (let ((_%e3662136683%_ + _%tl3670236879%_) + (let ((_%e3672036782%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3660336780%_))) - (let ((_%tl3662336690%_ + (gx#syntax-e _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))) + (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ - _%hd3649537180%_ - _%hd3649237170%_) - (let () (declare (not safe)) (_%g3648636632%_))))))) + (_%g3658536731%_))))))) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ + _%hd3659437279%_ + _%hd3659137269%_) + (let () (declare (not safe)) (_%g3658536731%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%tl3649637183%_) - (let ((_%e3656236942%_ + _%tl3659537282%_) + (let ((_%e3666137041%_ (gx#syntax-e - _%tl3649637183%_))) - (let ((_%tl3656436949%_ + _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ - (let () (declare (not safe)) (##car _%e3656236942%_)))) - (if (gx#stx-null? _%tl3656436949%_) - (_%__kont3951839519%_ _%hd3656336946%_ _%hd3649537180%_) - (if (gx#identifier? _%hd3656336946%_) + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ + (let () (declare (not safe)) (##car _%e3666137041%_)))) + (if (gx#stx-null? _%tl3666337048%_) + (_%__kont3961739618%_ _%hd3666237045%_ _%hd3659437279%_) + (if (gx#identifier? _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3658536842%_ - (gx#syntax-e _%tl3656436949%_))) - (let ((_%tl3658736849%_ + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3668436941%_ + (gx#syntax-e _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) - (if (gx#stx-null? _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3668436941%_)))) + (if (gx#stx-null? _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3656336946%_) - (let ((_%e3660036769%_ - (gx#stx-e _%hd3656336946%_))) - (if (equal? _%e3660036769%_ '::) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3660136773%_ - (gx#syntax-e _%tl3656436949%_))) - (let ((_%tl3660336780%_ + (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3666237045%_) + (let ((_%e3669936868%_ + (gx#stx-e _%hd3666237045%_))) + (if (equal? _%e3669936868%_ '::) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3670036872%_ + (gx#syntax-e _%tl3666337048%_))) + (let ((_%tl3670236879%_ (let () (declare (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) - (if (gx#stx-null? _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3670036872%_)))) + (if (gx#stx-null? _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (if (gx#stx-pair? - _%tl3660336780%_) - (let ((_%e3662136683%_ + _%tl3670236879%_) + (let ((_%e3672036782%_ (gx#syntax-e - _%tl3660336780%_))) - (let ((_%tl3662336690%_ + _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ - (let () (declare (not safe)) (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ + (let () (declare (not safe)) (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))))) + (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_)))))) + (_%g3658536731%_)))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ _%hd3649537180%_ _%hd3649237170%_) - (let () (declare (not safe)) (_%g3648636632%_))))) + (_%g3658536731%_))))))) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ _%hd3659437279%_ _%hd3659137269%_) + (let () (declare (not safe)) (_%g3658536731%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39883_| - _%hd3649837190%_) + |gerbil/core/match[1]#_g39982_| + _%hd3659737289%_) (if (gx#stx-pair/null? - _%tl3649937193%_) - (let ((_%__splice3951439515%_ + _%tl3659837292%_) + (let ((_%__splice3961339614%_ (gx#syntax-split-splice - _%tl3649937193%_ + _%tl3659837292%_ '0))) - (let ((_%tl3652637089%_ + (let ((_%tl3662537188%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice3951439515%_ '1))) - (_%target3652437086%_ + (##vector-ref _%__splice3961339614%_ '1))) + (_%target3662337185%_ (let () (declare (not safe)) - (##vector-ref _%__splice3951439515%_ '0)))) - (if (gx#stx-null? _%tl3652637089%_) - (_%__match3958839589%_ - _%e3649137166%_ - _%hd3649237170%_ - _%tl3649337173%_ - _%e3649437176%_ - _%hd3649537180%_ - _%tl3649637183%_ - _%e3649737186%_ - _%hd3649837190%_ - _%tl3649937193%_ - _%__splice3951439515%_ - _%target3652437086%_ - _%tl3652637089%_) - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3656236942%_ - (gx#syntax-e _%tl3649637183%_))) - (let ((_%tl3656436949%_ + (##vector-ref _%__splice3961339614%_ '0)))) + (if (gx#stx-null? _%tl3662537188%_) + (_%__match3968739688%_ + _%e3659037265%_ + _%hd3659137269%_ + _%tl3659237272%_ + _%e3659337275%_ + _%hd3659437279%_ + _%tl3659537282%_ + _%e3659637285%_ + _%hd3659737289%_ + _%tl3659837292%_ + _%__splice3961339614%_ + _%target3662337185%_ + _%tl3662537188%_) + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3666137041%_ + (gx#syntax-e _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ (let () (declare (not safe)) - (##car _%e3656236942%_)))) - (if (gx#stx-null? _%tl3656436949%_) - (_%__kont3951839519%_ - _%hd3656336946%_ - _%hd3649537180%_) - (if (gx#identifier? _%hd3656336946%_) + (##car _%e3666137041%_)))) + (if (gx#stx-null? _%tl3666337048%_) + (_%__kont3961739618%_ + _%hd3666237045%_ + _%hd3659437279%_) + (if (gx#identifier? _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3658536842%_ + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3668436941%_ (gx#syntax-e - _%tl3656436949%_))) - (let ((_%tl3658736849%_ + _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) + (##car _%e3668436941%_)))) (if (gx#stx-null? - _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3656336946%_) - (let ((_%e3660036769%_ - (gx#stx-e _%hd3656336946%_))) - (if (equal? _%e3660036769%_ '::) + (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3666237045%_) + (let ((_%e3669936868%_ + (gx#stx-e _%hd3666237045%_))) + (if (equal? _%e3669936868%_ '::) (if (gx#stx-pair? - _%tl3656436949%_) - (let ((_%e3660136773%_ + _%tl3666337048%_) + (let ((_%e3670036872%_ (gx#syntax-e - _%tl3656436949%_))) - (let ((_%tl3660336780%_ + _%tl3666337048%_))) + (let ((_%tl3670236879%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ - (let () (declare (not safe)) (##car _%e3660136773%_)))) - (if (gx#stx-null? _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) - (if (gx#stx-pair? _%tl3660336780%_) - (let ((_%e3662136683%_ (gx#syntax-e _%tl3660336780%_))) - (let ((_%tl3662336690%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ + (let () (declare (not safe)) (##car _%e3670036872%_)))) + (if (gx#stx-null? _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) + (if (gx#stx-pair? _%tl3670236879%_) + (let ((_%e3672036782%_ (gx#syntax-e _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))) + (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ - _%hd3649537180%_ - _%hd3649237170%_) + (_%g3658536731%_))))))) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3656236942%_ (gx#syntax-e _%tl3649637183%_))) - (let ((_%tl3656436949%_ + (_%g3658536731%_))))))) + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3666137041%_ (gx#syntax-e _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ (let () (declare (not safe)) - (##car _%e3656236942%_)))) - (if (gx#stx-null? _%tl3656436949%_) - (_%__kont3951839519%_ - _%hd3656336946%_ - _%hd3649537180%_) - (if (gx#identifier? _%hd3656336946%_) + (##car _%e3666137041%_)))) + (if (gx#stx-null? _%tl3666337048%_) + (_%__kont3961739618%_ + _%hd3666237045%_ + _%hd3659437279%_) + (if (gx#identifier? _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3658536842%_ - (gx#syntax-e _%tl3656436949%_))) - (let ((_%tl3658736849%_ + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3668436941%_ + (gx#syntax-e _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) - (if (gx#stx-null? _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3668436941%_)))) + (if (gx#stx-null? _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3656336946%_) - (let ((_%e3660036769%_ - (gx#stx-e _%hd3656336946%_))) - (if (equal? _%e3660036769%_ '::) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3660136773%_ + (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3666237045%_) + (let ((_%e3669936868%_ + (gx#stx-e _%hd3666237045%_))) + (if (equal? _%e3669936868%_ '::) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3670036872%_ (gx#syntax-e - _%tl3656436949%_))) - (let ((_%tl3660336780%_ + _%tl3666337048%_))) + (let ((_%tl3670236879%_ (let () (declare (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) + (##car _%e3670036872%_)))) (if (gx#stx-null? - _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (if (gx#stx-pair? - _%tl3660336780%_) - (let ((_%e3662136683%_ + _%tl3670236879%_) + (let ((_%e3672036782%_ (gx#syntax-e - _%tl3660336780%_))) - (let ((_%tl3662336690%_ + _%tl3670236879%_))) + (let ((_%tl3672236789%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (let () (declare (not safe)) (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))) + (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ _%hd3649537180%_ _%hd3649237170%_) - (let () (declare (not safe)) (_%g3648636632%_))))) + (_%g3658536731%_))))))) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ _%hd3659437279%_ _%hd3659137269%_) + (let () (declare (not safe)) (_%g3658536731%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39884_| - _%hd3649837190%_) + |gerbil/core/match[1]#_g39983_| + _%hd3659737289%_) (if (gx#stx-pair? - _%tl3649937193%_) - (let ((_%e3654837006%_ + _%tl3659837292%_) + (let ((_%e3664737105%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3649937193%_))) - (let ((_%tl3655037013%_ + (gx#syntax-e _%tl3659837292%_))) + (let ((_%tl3664937112%_ (let () (declare (not safe)) - (##cdr _%e3654837006%_))) - (_%hd3654937010%_ + (##cdr _%e3664737105%_))) + (_%hd3664837109%_ (let () (declare (not safe)) - (##car _%e3654837006%_)))) - (if (gx#stx-null? _%tl3655037013%_) - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3655137016%_ - (gx#syntax-e _%tl3649637183%_))) - (let ((_%tl3655337023%_ + (##car _%e3664737105%_)))) + (if (gx#stx-null? _%tl3664937112%_) + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3665037115%_ + (gx#syntax-e _%tl3659537282%_))) + (let ((_%tl3665237122%_ (let () (declare (not safe)) - (##cdr _%e3655137016%_))) - (_%hd3655237020%_ + (##cdr _%e3665037115%_))) + (_%hd3665137119%_ (let () (declare (not safe)) - (##car _%e3655137016%_)))) - (if (gx#stx-null? _%tl3655337023%_) - (_%__kont3951639517%_ - _%hd3655237020%_ - _%hd3654937010%_ - _%hd3649237170%_) - (if (gx#identifier? _%hd3655237020%_) + (##car _%e3665037115%_)))) + (if (gx#stx-null? _%tl3665237122%_) + (_%__kont3961539616%_ + _%hd3665137119%_ + _%hd3664837109%_ + _%hd3659137269%_) + (if (gx#identifier? _%hd3665137119%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3655237020%_) + |gerbil/core/match[1]#_g39979_| + _%hd3665137119%_) (if (gx#stx-pair? - _%tl3655337023%_) - (let ((_%e3658536842%_ + _%tl3665237122%_) + (let ((_%e3668436941%_ (gx#syntax-e - _%tl3655337023%_))) - (let ((_%tl3658736849%_ + _%tl3665237122%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) + (##car _%e3668436941%_)))) (if (gx#stx-null? - _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3655237020%_) - (let ((_%e3660036769%_ + (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3665137119%_) + (let ((_%e3669936868%_ (gx#stx-e - _%hd3655237020%_))) - (if (equal? _%e3660036769%_ + _%hd3665137119%_))) + (if (equal? _%e3669936868%_ '::) (if (gx#stx-pair? - _%tl3655337023%_) - (let ((_%e3660136773%_ + _%tl3665237122%_) + (let ((_%e3670036872%_ (gx#syntax-e - _%tl3655337023%_))) - (let ((_%tl3660336780%_ + _%tl3665237122%_))) + (let ((_%tl3670236879%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (let () (declare (not safe)) (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) - (if (gx#stx-null? _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) - (if (gx#stx-pair? _%tl3660336780%_) - (let ((_%e3662136683%_ - (gx#syntax-e _%tl3660336780%_))) - (let ((_%tl3662336690%_ + (##car _%e3670036872%_)))) + (if (gx#stx-null? _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) + (if (gx#stx-pair? _%tl3670236879%_) + (let ((_%e3672036782%_ + (gx#syntax-e _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ (gx#syntax-e - _%tl3662336690%_))) - (let ((_%tl3662636700%_ + _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) + (##car _%e3672336792%_)))) (if (gx#stx-null? - _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))) - (let () (declare (not safe)) (_%g3648636632%_))) + (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))) + (let () (declare (not safe)) (_%g3658536731%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ - _%hd3649537180%_ - _%hd3649237170%_) + (_%g3658536731%_))))))) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_)))) - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3656236942%_ - (gx#syntax-e _%tl3649637183%_))) - (let ((_%tl3656436949%_ + (_%g3658536731%_)))) + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3666137041%_ + (gx#syntax-e _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ (let () (declare (not safe)) - (##car _%e3656236942%_)))) - (if (gx#stx-null? _%tl3656436949%_) - (_%__kont3951839519%_ - _%hd3656336946%_ - _%hd3649537180%_) - (if (gx#identifier? _%hd3656336946%_) + (##car _%e3666137041%_)))) + (if (gx#stx-null? _%tl3666337048%_) + (_%__kont3961739618%_ + _%hd3666237045%_ + _%hd3659437279%_) + (if (gx#identifier? _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) (if (gx#stx-pair? - _%tl3656436949%_) - (let ((_%e3658536842%_ + _%tl3666337048%_) + (let ((_%e3668436941%_ (gx#syntax-e - _%tl3656436949%_))) - (let ((_%tl3658736849%_ + _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) + (##car _%e3668436941%_)))) (if (gx#stx-null? - _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3656336946%_) - (let ((_%e3660036769%_ + (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3666237045%_) + (let ((_%e3669936868%_ (gx#stx-e - _%hd3656336946%_))) - (if (equal? _%e3660036769%_ + _%hd3666237045%_))) + (if (equal? _%e3669936868%_ '::) (if (gx#stx-pair? - _%tl3656436949%_) - (let ((_%e3660136773%_ + _%tl3666337048%_) + (let ((_%e3670036872%_ (gx#syntax-e - _%tl3656436949%_))) - (let ((_%tl3660336780%_ + _%tl3666337048%_))) + (let ((_%tl3670236879%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (let () (declare (not safe)) (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) - (if (gx#stx-null? _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) - (if (gx#stx-pair? _%tl3660336780%_) - (let ((_%e3662136683%_ - (gx#syntax-e _%tl3660336780%_))) - (let ((_%tl3662336690%_ + (##car _%e3670036872%_)))) + (if (gx#stx-null? _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) + (if (gx#stx-pair? _%tl3670236879%_) + (let ((_%e3672036782%_ + (gx#syntax-e _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ (gx#syntax-e - _%tl3662336690%_))) - (let ((_%tl3662636700%_ + _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) + (##car _%e3672336792%_)))) (if (gx#stx-null? - _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))) - (let () (declare (not safe)) (_%g3648636632%_))) + (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))) + (let () (declare (not safe)) (_%g3658536731%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ - _%hd3649537180%_ - _%hd3649237170%_) + (_%g3658536731%_))))))) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3656236942%_ (gx#syntax-e _%tl3649637183%_))) - (let ((_%tl3656436949%_ + (_%g3658536731%_))))))) + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3666137041%_ (gx#syntax-e _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ (let () (declare (not safe)) - (##car _%e3656236942%_)))) - (if (gx#stx-null? _%tl3656436949%_) - (_%__kont3951839519%_ - _%hd3656336946%_ - _%hd3649537180%_) - (if (gx#identifier? _%hd3656336946%_) + (##car _%e3666137041%_)))) + (if (gx#stx-null? _%tl3666337048%_) + (_%__kont3961739618%_ + _%hd3666237045%_ + _%hd3659437279%_) + (if (gx#identifier? _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3658536842%_ + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3668436941%_ (gx#syntax-e - _%tl3656436949%_))) - (let ((_%tl3658736849%_ + _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) + (##car _%e3668436941%_)))) (if (gx#stx-null? - _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3656336946%_) - (let ((_%e3660036769%_ - (gx#stx-e _%hd3656336946%_))) - (if (equal? _%e3660036769%_ '::) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3660136773%_ + (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3666237045%_) + (let ((_%e3669936868%_ + (gx#stx-e _%hd3666237045%_))) + (if (equal? _%e3669936868%_ '::) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3670036872%_ (gx#syntax-e - _%tl3656436949%_))) - (let ((_%tl3660336780%_ + _%tl3666337048%_))) + (let ((_%tl3670236879%_ (let () (declare (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) + (##car _%e3670036872%_)))) (if (gx#stx-null? - _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (if (gx#stx-pair? - _%tl3660336780%_) - (let ((_%e3662136683%_ + _%tl3670236879%_) + (let ((_%e3672036782%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3660336780%_))) - (let ((_%tl3662336690%_ + (gx#syntax-e _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))) + (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ - _%hd3649537180%_ - _%hd3649237170%_) - (let () (declare (not safe)) (_%g3648636632%_))))) - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3656236942%_ (gx#syntax-e _%tl3649637183%_))) - (let ((_%tl3656436949%_ + (_%g3658536731%_))))))) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ + _%hd3659437279%_ + _%hd3659137269%_) + (let () (declare (not safe)) (_%g3658536731%_))))) + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3666137041%_ (gx#syntax-e _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ (let () (declare (not safe)) - (##car _%e3656236942%_)))) - (if (gx#stx-null? _%tl3656436949%_) - (_%__kont3951839519%_ - _%hd3656336946%_ - _%hd3649537180%_) - (if (gx#identifier? _%hd3656336946%_) + (##car _%e3666137041%_)))) + (if (gx#stx-null? _%tl3666337048%_) + (_%__kont3961739618%_ + _%hd3666237045%_ + _%hd3659437279%_) + (if (gx#identifier? _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3658536842%_ - (gx#syntax-e _%tl3656436949%_))) - (let ((_%tl3658736849%_ + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3668436941%_ + (gx#syntax-e _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) - (if (gx#stx-null? _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3668436941%_)))) + (if (gx#stx-null? _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3656336946%_) - (let ((_%e3660036769%_ - (gx#stx-e _%hd3656336946%_))) - (if (equal? _%e3660036769%_ '::) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3660136773%_ + (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3666237045%_) + (let ((_%e3669936868%_ + (gx#stx-e _%hd3666237045%_))) + (if (equal? _%e3669936868%_ '::) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3670036872%_ (gx#syntax-e - _%tl3656436949%_))) - (let ((_%tl3660336780%_ + _%tl3666337048%_))) + (let ((_%tl3670236879%_ (let () (declare (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) + (##car _%e3670036872%_)))) (if (gx#stx-null? - _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (if (gx#stx-pair? - _%tl3660336780%_) - (let ((_%e3662136683%_ + _%tl3670236879%_) + (let ((_%e3672036782%_ (gx#syntax-e - _%tl3660336780%_))) - (let ((_%tl3662336690%_ + _%tl3670236879%_))) + (let ((_%tl3672236789%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (let () (declare (not safe)) (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) - (if (gx#stx-pair? _%tl3662336690%_) - (let ((_%e3662436693%_ - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))) + (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ _%hd3649537180%_ _%hd3649237170%_) - (let () (declare (not safe)) (_%g3648636632%_))))))) + (_%g3658536731%_))))))) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ _%hd3659437279%_ _%hd3659137269%_) + (let () (declare (not safe)) (_%g3658536731%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3656236942%_ + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3666137041%_ (gx#syntax-e - _%tl3649637183%_))) - (let ((_%tl3656436949%_ + _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ (let () (declare (not safe)) - (##car _%e3656236942%_)))) + (##car _%e3666137041%_)))) (if (gx#stx-null? - _%tl3656436949%_) - (_%__kont3951839519%_ - _%hd3656336946%_ - _%hd3649537180%_) + _%tl3666337048%_) + (_%__kont3961739618%_ + _%hd3666237045%_ + _%hd3659437279%_) (if (gx#identifier? - _%hd3656336946%_) + _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl3656436949%_) - (let ((_%e3658536842%_ - (gx#syntax-e _%tl3656436949%_))) - (let ((_%tl3658736849%_ + _%tl3666337048%_) + (let ((_%e3668436941%_ + (gx#syntax-e _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) - (if (gx#stx-null? _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) + (##car _%e3668436941%_)))) + (if (gx#stx-null? _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) - (if (gx#stx-datum? _%hd3656336946%_) - (let ((_%e3660036769%_ (gx#stx-e _%hd3656336946%_))) - (if (equal? _%e3660036769%_ '::) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3660136773%_ - (gx#syntax-e _%tl3656436949%_))) - (let ((_%tl3660336780%_ + (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3666237045%_) + (let ((_%e3669936868%_ (gx#stx-e _%hd3666237045%_))) + (if (equal? _%e3669936868%_ '::) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3670036872%_ + (gx#syntax-e _%tl3666337048%_))) + (let ((_%tl3670236879%_ (let () (declare (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) - (if (gx#stx-null? _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) - (if (gx#stx-pair? _%tl3660336780%_) - (let ((_%e3662136683%_ + (##car _%e3670036872%_)))) + (if (gx#stx-null? _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) + (if (gx#stx-pair? _%tl3670236879%_) + (let ((_%e3672036782%_ (gx#syntax-e - _%tl3660336780%_))) - (let ((_%tl3662336690%_ + _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) + (##car _%e3672036782%_)))) (if (gx#identifier? - _%hd3662236687%_) + _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) (if (gx#stx-pair? - _%tl3662336690%_) - (let ((_%e3662436693%_ + _%tl3672236789%_) + (let ((_%e3672336792%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3662336690%_))) - (let ((_%tl3662636700%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) - (let () (declare (not safe)) (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) + (let () (declare (not safe)) (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_)))))) + (_%g3658536731%_)))))) (let () (declare (not safe)) - (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_)))) - (let () (declare (not safe)) (_%g3648636632%_))))))) + (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_)))) + (let () (declare (not safe)) (_%g3658536731%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl3649637183%_) - (_%__kont3952039521%_ - _%hd3649537180%_ - _%hd3649237170%_) + _%tl3659537282%_) + (_%__kont3961939620%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (if (gx#stx-pair? _%tl3649637183%_) - (let ((_%e3656236942%_ - (gx#syntax-e _%tl3649637183%_))) - (let ((_%tl3656436949%_ + (_%g3658536731%_))))))) + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3666137041%_ + (gx#syntax-e _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () (declare (not safe)) - (##cdr _%e3656236942%_))) - (_%hd3656336946%_ + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ (let () (declare (not safe)) - (##car _%e3656236942%_)))) - (if (gx#stx-null? _%tl3656436949%_) - (_%__kont3951839519%_ - _%hd3656336946%_ - _%hd3649537180%_) + (##car _%e3666137041%_)))) + (if (gx#stx-null? _%tl3666337048%_) + (_%__kont3961739618%_ + _%hd3666237045%_ + _%hd3659437279%_) (if (gx#identifier? - _%hd3656336946%_) + _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3656336946%_) + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) (if (gx#stx-pair? - _%tl3656436949%_) - (let ((_%e3658536842%_ + _%tl3666337048%_) + (let ((_%e3668436941%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3656436949%_))) - (let ((_%tl3658736849%_ + (gx#syntax-e _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3658536842%_))) - (_%hd3658636846%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3658536842%_)))) - (if (gx#stx-null? _%tl3658736849%_) - (_%__kont3952239523%_ - _%hd3658636846%_ - _%hd3649537180%_ - _%hd3649237170%_) - (let () (declare (not safe)) (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_))) + (##car _%e3668436941%_)))) + (if (gx#stx-null? _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) + (let () (declare (not safe)) (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-datum? - _%hd3656336946%_) - (let ((_%e3660036769%_ + _%hd3666237045%_) + (let ((_%e3669936868%_ (gx#stx-e - _%hd3656336946%_))) - (if (equal? _%e3660036769%_ + _%hd3666237045%_))) + (if (equal? _%e3669936868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '::) - (if (gx#stx-pair? _%tl3656436949%_) - (let ((_%e3660136773%_ (gx#syntax-e _%tl3656436949%_))) - (let ((_%tl3660336780%_ + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3670036872%_ (gx#syntax-e _%tl3666337048%_))) + (let ((_%tl3670236879%_ (let () (declare (not safe)) - (##cdr _%e3660136773%_))) - (_%hd3660236777%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3660136773%_)))) - (if (gx#stx-null? _%tl3660336780%_) - (_%__kont3952439525%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) - (if (gx#stx-pair? _%tl3660336780%_) - (let ((_%e3662136683%_ - (gx#syntax-e _%tl3660336780%_))) - (let ((_%tl3662336690%_ + (##car _%e3670036872%_)))) + (if (gx#stx-null? _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) + (if (gx#stx-pair? _%tl3670236879%_) + (let ((_%e3672036782%_ + (gx#syntax-e _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare (not safe)) - (##cdr _%e3662136683%_))) - (_%hd3662236687%_ + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3662136683%_)))) - (if (gx#identifier? _%hd3662236687%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3662236687%_) + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) (if (gx#stx-pair? - _%tl3662336690%_) - (let ((_%e3662436693%_ + _%tl3672236789%_) + (let ((_%e3672336792%_ (gx#syntax-e - _%tl3662336690%_))) - (let ((_%tl3662636700%_ + _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3662436693%_))) - (_%hd3662536697%_ - (let () (declare (not safe)) (##car _%e3662436693%_)))) - (if (gx#stx-null? _%tl3662636700%_) - (_%__kont3952639527%_ - _%hd3662536697%_ - _%hd3660236777%_ - _%hd3649537180%_ - _%hd3649237170%_) - (let () (declare (not safe)) (_%g3648636632%_))))) + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ + (let () (declare (not safe)) (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) + (let () (declare (not safe)) (_%g3658536731%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3648636632%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3648636632%_)))))) - (let () (declare (not safe)) (_%g3648636632%_))) - (let () (declare (not safe)) (_%g3648636632%_)))) - (let () (declare (not safe)) (_%g3648636632%_))))))) + (_%g3658536731%_)))))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_)))) + (let () (declare (not safe)) (_%g3658536731%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? _%tl3649637183%_) - (_%__kont3952039521%_ - _%hd3649537180%_ - _%hd3649237170%_) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3648636632%_))))))) - (let () (declare (not safe)) (_%g3648636632%_))))) - (let () (declare (not safe)) (_%g3648636632%_)))))))) + (_%g3658536731%_))))))) + (let () (declare (not safe)) (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))))) (define |gerbil/core/match[:0:]#defsyntax-for-match| - (lambda (_%$stx37275%_) - (let* ((_%__stx3977339774%_ _%$stx37275%_) - (_%g3728037314%_ + (lambda (_%$stx37374%_) + (let* ((_%__stx3987239873%_ _%$stx37374%_) + (_%g3737937413%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3977339774%_)))) - (let ((_%__kont3977639777%_ - (lambda (_%L37418%_ _%L37420%_ _%L37421%_) + _%__stx3987239873%_)))) + (let ((_%__kont3987539876%_ + (lambda (_%L37517%_ _%L37519%_ _%L37520%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L37421%_ + (cons _%L37520%_ (cons (cons (gx#datum->syntax '#f 'make-match-macro) @@ -8470,9 +8470,9 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$match-e) - (cons _%L37420%_ '())) + (cons _%L37519%_ '())) (cons (cons (gx#datum->syntax '#f '$macro-e) - (cons _%L37418%_ '())) + (cons _%L37517%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$stx) @@ -8529,11 +8529,11 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3977839779%_ - (lambda (_%L37351%_ _%L37353%_ _%L37354%_) - (cons _%L37354%_ - (cons _%L37353%_ - (cons _%L37351%_ + (_%__kont3987739878%_ + (lambda (_%L37450%_ _%L37452%_ _%L37453%_) + (cons _%L37453%_ + (cons _%L37452%_ + (cons _%L37450%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f @@ -8550,146 +8550,146 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (let ((_%__match3980639807%_ - (lambda (_%e3728537378%_ - _%hd3728637382%_ - _%tl3728737385%_ - _%e3728837388%_ - _%hd3728937392%_ - _%tl3729037395%_ - _%e3729137398%_ - _%hd3729237402%_ - _%tl3729337405%_ - _%e3729437408%_ - _%hd3729537412%_ - _%tl3729637415%_) - (let ((_%L37418%_ _%hd3729537412%_) - (_%L37420%_ _%hd3729237402%_) - (_%L37421%_ _%hd3728937392%_)) - (if (gx#identifier? _%L37421%_) - (_%__kont3977639777%_ - _%L37418%_ - _%L37420%_ - _%L37421%_) - (let () (declare (not safe)) (_%g3728037314%_))))))) - (if (gx#stx-pair? _%__stx3977339774%_) - (let ((_%e3728537378%_ (gx#syntax-e _%__stx3977339774%_))) - (let ((_%tl3728737385%_ + (let ((_%__match3990539906%_ + (lambda (_%e3738437477%_ + _%hd3738537481%_ + _%tl3738637484%_ + _%e3738737487%_ + _%hd3738837491%_ + _%tl3738937494%_ + _%e3739037497%_ + _%hd3739137501%_ + _%tl3739237504%_ + _%e3739337507%_ + _%hd3739437511%_ + _%tl3739537514%_) + (let ((_%L37517%_ _%hd3739437511%_) + (_%L37519%_ _%hd3739137501%_) + (_%L37520%_ _%hd3738837491%_)) + (if (gx#identifier? _%L37520%_) + (_%__kont3987539876%_ + _%L37517%_ + _%L37519%_ + _%L37520%_) + (let () (declare (not safe)) (_%g3737937413%_))))))) + (if (gx#stx-pair? _%__stx3987239873%_) + (let ((_%e3738437477%_ (gx#syntax-e _%__stx3987239873%_))) + (let ((_%tl3738637484%_ (let () (declare (not safe)) - (##cdr _%e3728537378%_))) - (_%hd3728637382%_ + (##cdr _%e3738437477%_))) + (_%hd3738537481%_ (let () (declare (not safe)) - (##car _%e3728537378%_)))) - (if (gx#stx-pair? _%tl3728737385%_) - (let ((_%e3728837388%_ - (gx#syntax-e _%tl3728737385%_))) - (let ((_%tl3729037395%_ + (##car _%e3738437477%_)))) + (if (gx#stx-pair? _%tl3738637484%_) + (let ((_%e3738737487%_ + (gx#syntax-e _%tl3738637484%_))) + (let ((_%tl3738937494%_ (let () (declare (not safe)) - (##cdr _%e3728837388%_))) - (_%hd3728937392%_ + (##cdr _%e3738737487%_))) + (_%hd3738837491%_ (let () (declare (not safe)) - (##car _%e3728837388%_)))) - (if (gx#stx-pair? _%tl3729037395%_) - (let ((_%e3729137398%_ - (gx#syntax-e _%tl3729037395%_))) - (let ((_%tl3729337405%_ + (##car _%e3738737487%_)))) + (if (gx#stx-pair? _%tl3738937494%_) + (let ((_%e3739037497%_ + (gx#syntax-e _%tl3738937494%_))) + (let ((_%tl3739237504%_ (let () (declare (not safe)) - (##cdr _%e3729137398%_))) - (_%hd3729237402%_ + (##cdr _%e3739037497%_))) + (_%hd3739137501%_ (let () (declare (not safe)) - (##car _%e3729137398%_)))) - (if (gx#stx-pair? _%tl3729337405%_) - (let ((_%e3729437408%_ + (##car _%e3739037497%_)))) + (if (gx#stx-pair? _%tl3739237504%_) + (let ((_%e3739337507%_ (gx#syntax-e - _%tl3729337405%_))) - (let ((_%tl3729637415%_ + _%tl3739237504%_))) + (let ((_%tl3739537514%_ (let () (declare (not safe)) - (##cdr _%e3729437408%_))) - (_%hd3729537412%_ + (##cdr _%e3739337507%_))) + (_%hd3739437511%_ (let () (declare (not safe)) - (##car _%e3729437408%_)))) + (##car _%e3739337507%_)))) (if (gx#stx-null? - _%tl3729637415%_) - (_%__match3980639807%_ - _%e3728537378%_ - _%hd3728637382%_ - _%tl3728737385%_ - _%e3728837388%_ - _%hd3728937392%_ - _%tl3729037395%_ - _%e3729137398%_ - _%hd3729237402%_ - _%tl3729337405%_ - _%e3729437408%_ - _%hd3729537412%_ - _%tl3729637415%_) + _%tl3739537514%_) + (_%__match3990539906%_ + _%e3738437477%_ + _%hd3738537481%_ + _%tl3738637484%_ + _%e3738737487%_ + _%hd3738837491%_ + _%tl3738937494%_ + _%e3739037497%_ + _%hd3739137501%_ + _%tl3739237504%_ + _%e3739337507%_ + _%hd3739437511%_ + _%tl3739537514%_) (let () (declare (not safe)) - (_%g3728037314%_))))) - (if (gx#stx-null? _%tl3729337405%_) - (_%__kont3977839779%_ - _%hd3729237402%_ - _%hd3728937392%_ - _%hd3728637382%_) + (_%g3737937413%_))))) + (if (gx#stx-null? _%tl3739237504%_) + (_%__kont3987739878%_ + _%hd3739137501%_ + _%hd3738837491%_ + _%hd3738537481%_) (let () (declare (not safe)) - (_%g3728037314%_)))))) + (_%g3737937413%_)))))) (let () (declare (not safe)) - (_%g3728037314%_))))) - (let () (declare (not safe)) (_%g3728037314%_))))) - (let () (declare (not safe)) (_%g3728037314%_)))))))) + (_%g3737937413%_))))) + (let () (declare (not safe)) (_%g3737937413%_))))) + (let () (declare (not safe)) (_%g3737937413%_)))))))) (define |gerbil/core/match[:0:]#defrules-for-match| - (lambda (_%$stx37443%_) - (let* ((_%g3744737462%_ - (lambda (_%g3744837458%_) + (lambda (_%$stx37542%_) + (let* ((_%g3754637561%_ + (lambda (_%g3754737557%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3744837458%_))) - (_%g3744637505%_ - (lambda (_%g3744837466%_) - (if (gx#stx-pair? _%g3744837466%_) - (let ((_%e3745137469%_ (gx#syntax-e _%g3744837466%_))) - (let ((_%hd3745237473%_ + _%g3754737557%_))) + (_%g3754537604%_ + (lambda (_%g3754737565%_) + (if (gx#stx-pair? _%g3754737565%_) + (let ((_%e3755037568%_ (gx#syntax-e _%g3754737565%_))) + (let ((_%hd3755137572%_ (let () (declare (not safe)) - (##car _%e3745137469%_))) - (_%tl3745337476%_ + (##car _%e3755037568%_))) + (_%tl3755237575%_ (let () (declare (not safe)) - (##cdr _%e3745137469%_)))) - (if (gx#stx-pair? _%tl3745337476%_) - (let ((_%e3745437479%_ - (gx#syntax-e _%tl3745337476%_))) - (let ((_%hd3745537483%_ + (##cdr _%e3755037568%_)))) + (if (gx#stx-pair? _%tl3755237575%_) + (let ((_%e3755337578%_ + (gx#syntax-e _%tl3755237575%_))) + (let ((_%hd3755437582%_ (let () (declare (not safe)) - (##car _%e3745437479%_))) - (_%tl3745637486%_ + (##car _%e3755337578%_))) + (_%tl3755537585%_ (let () (declare (not safe)) - (##cdr _%e3745437479%_)))) - ((lambda (_%L37489%_ _%L37491%_) + (##cdr _%e3755337578%_)))) + ((lambda (_%L37588%_ _%L37590%_) (cons (gx#datum->syntax '#f 'defsyntax-for-match) - (cons _%L37491%_ + (cons _%L37590%_ (cons (cons (gx#datum->syntax '#f 'syntax-rules) - _%L37489%_) + _%L37588%_) '())))) - _%tl3745637486%_ - _%hd3745537483%_))) - (_%g3744737462%_ _%g3744837466%_)))) - (_%g3744737462%_ _%g3744837466%_))))) - (_%g3744637505%_ _%$stx37443%_)))))) + _%tl3755537585%_ + _%hd3755437582%_))) + (_%g3754637561%_ _%g3754737565%_)))) + (_%g3754637561%_ _%g3754737565%_))))) + (_%g3754537604%_ _%$stx37542%_)))))) diff --git a/src/bootstrap/gerbil/core/match~2.scm b/src/bootstrap/gerbil/core/match~2.scm index eb13b613c..ea382d683 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]#_g39886_| + (define |gerbil/core/match[2]#_g39985_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39888_| + (define |gerbil/core/match[2]#_g39987_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39890_| + (define |gerbil/core/match[2]#_g39989_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39892_| + (define |gerbil/core/match[2]#_g39991_| (##structure gx#syntax-quote::t 'match-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39894_| + (define |gerbil/core/match[2]#_g39993_| (##structure gx#syntax-quote::t 'match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39896_| + (define |gerbil/core/match[2]#_g39995_| (##structure gx#syntax-quote::t 'match-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39898_| + (define |gerbil/core/match[2]#_g39997_| (##structure gx#syntax-quote::t '&match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39900_| + (define |gerbil/core/match[2]#_g39999_| (##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 ((__obj39828 + (let ((__obj39927 (let () (declare (not safe)) (##structure @@ -86,55 +86,55 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj39828 + __obj39927 'gerbil.core#match-macro::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39828 'match-macro '2 '#f '#f)) + (##unchecked-structure-set! __obj39927 'match-macro '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39828 '() '4 '#f '#f)) - (let ((__tmp39885 (cons |gerbil/core/match[2]#_g39886_| '()))) + (##unchecked-structure-set! __obj39927 '() '4 '#f '#f)) + (let ((__tmp39984 (cons |gerbil/core/match[2]#_g39985_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39828 __tmp39885 '3 '#f '#f)) + (##unchecked-structure-set! __obj39927 __tmp39984 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39828 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj39927 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39828 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj39927 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39828 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj39927 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39828 '#f '11 '#f '#f)) - (let ((__tmp39887 |gerbil/core/match[2]#_g39888_|)) + (##unchecked-structure-set! __obj39927 '#f '11 '#f '#f)) + (let ((__tmp39986 |gerbil/core/match[2]#_g39987_|)) (declare (not safe)) - (##unchecked-structure-set! __obj39828 __tmp39887 '12 '#f '#f)) - (let ((__tmp39889 |gerbil/core/match[2]#_g39890_|)) + (##unchecked-structure-set! __obj39927 __tmp39986 '12 '#f '#f)) + (let ((__tmp39988 |gerbil/core/match[2]#_g39989_|)) (declare (not safe)) - (##unchecked-structure-set! __obj39828 __tmp39889 '13 '#f '#f)) - (let ((__tmp39891 |gerbil/core/match[2]#_g39892_|)) + (##unchecked-structure-set! __obj39927 __tmp39988 '13 '#f '#f)) + (let ((__tmp39990 |gerbil/core/match[2]#_g39991_|)) (declare (not safe)) - (##unchecked-structure-set! __obj39828 __tmp39891 '14 '#f '#f)) - (let ((__tmp39893 - (cons (cons 'macro |gerbil/core/match[2]#_g39894_|) '()))) + (##unchecked-structure-set! __obj39927 __tmp39990 '14 '#f '#f)) + (let ((__tmp39992 + (cons (cons 'macro |gerbil/core/match[2]#_g39993_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39828 __tmp39893 '15 '#f '#f)) - (let ((__tmp39895 - (cons (cons 'macro |gerbil/core/match[2]#_g39896_|) '()))) + (##unchecked-structure-set! __obj39927 __tmp39992 '15 '#f '#f)) + (let ((__tmp39994 + (cons (cons 'macro |gerbil/core/match[2]#_g39995_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39828 __tmp39895 '16 '#f '#f)) - (let ((__tmp39897 - (cons (cons 'macro |gerbil/core/match[2]#_g39898_|) '()))) + (##unchecked-structure-set! __obj39927 __tmp39994 '16 '#f '#f)) + (let ((__tmp39996 + (cons (cons 'macro |gerbil/core/match[2]#_g39997_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39828 __tmp39897 '17 '#f '#f)) - (let ((__tmp39899 - (cons (cons 'macro |gerbil/core/match[2]#_g39900_|) '()))) + (##unchecked-structure-set! __obj39927 __tmp39996 '17 '#f '#f)) + (let ((__tmp39998 + (cons (cons 'macro |gerbil/core/match[2]#_g39999_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39828 __tmp39899 '18 '#f '#f)) - __obj39828))) + (##unchecked-structure-set! __obj39927 __tmp39998 '18 '#f '#f)) + __obj39927))) diff --git a/src/bootstrap/gerbil/core/module-sugar~1.scm b/src/bootstrap/gerbil/core/module-sugar~1.scm index c0050ffde..912303c68 100644 --- a/src/bootstrap/gerbil/core/module-sugar~1.scm +++ b/src/bootstrap/gerbil/core/module-sugar~1.scm @@ -1,1003 +1,919 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core/module-sugar[:0:]#require| - (lambda (_%$stx41620%_) - (let* ((_%__stx4427444275%_ _%$stx41620%_) - (_%g4162541644%_ + (lambda (_%$stx41719%_) + (let* ((_%__stx4437344374%_ _%$stx41719%_) + (_%g4172441743%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4427444275%_)))) - (let ((_%__kont4427744278%_ + _%__stx4437344374%_)))) + (let ((_%__kont4437644377%_ (lambda () (cons (gx#datum->syntax '#f 'begin) '()))) - (_%__kont4427944280%_ - (lambda (_%L41671%_ _%L41673%_ _%L41674%_) + (_%__kont4437844379%_ + (lambda (_%L41770%_ _%L41772%_ _%L41773%_) (cons (gx#datum->syntax '#f 'cond-expand) - (cons (cons _%L41673%_ - (cons (cons _%L41674%_ _%L41671%_) '())) + (cons (cons _%L41772%_ + (cons (cons _%L41773%_ _%L41770%_) '())) (cons (cons (gx#datum->syntax '#f 'else) (cons (cons (gx#datum->syntax '#f 'syntax-error) (cons '"Missing required feature" - (cons _%L41673%_ + (cons _%L41772%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())))))) - (if (gx#stx-pair? _%__stx4427444275%_) - (let ((_%e4162741696%_ (gx#syntax-e _%__stx4427444275%_))) - (let ((_%tl4162941703%_ - (let () (declare (not safe)) (##cdr _%e4162741696%_))) - (_%hd4162841700%_ - (let () (declare (not safe)) (##car _%e4162741696%_)))) - (if (gx#stx-null? _%tl4162941703%_) - (_%__kont4427744278%_) - (if (gx#stx-pair? _%tl4162941703%_) - (let ((_%e4163641661%_ - (gx#syntax-e _%tl4162941703%_))) - (let ((_%tl4163841668%_ + (if (gx#stx-pair? _%__stx4437344374%_) + (let ((_%e4172641795%_ (gx#syntax-e _%__stx4437344374%_))) + (let ((_%tl4172841802%_ + (let () (declare (not safe)) (##cdr _%e4172641795%_))) + (_%hd4172741799%_ + (let () (declare (not safe)) (##car _%e4172641795%_)))) + (if (gx#stx-null? _%tl4172841802%_) + (_%__kont4437644377%_) + (if (gx#stx-pair? _%tl4172841802%_) + (let ((_%e4173541760%_ + (gx#syntax-e _%tl4172841802%_))) + (let ((_%tl4173741767%_ (let () (declare (not safe)) - (##cdr _%e4163641661%_))) - (_%hd4163741665%_ + (##cdr _%e4173541760%_))) + (_%hd4173641764%_ (let () (declare (not safe)) - (##car _%e4163641661%_)))) - (_%__kont4427944280%_ - _%tl4163841668%_ - _%hd4163741665%_ - _%hd4162841700%_))) - (let () (declare (not safe)) (_%g4162541644%_)))))) - (let () (declare (not safe)) (_%g4162541644%_))))))) + (##car _%e4173541760%_)))) + (_%__kont4437844379%_ + _%tl4173741767%_ + _%hd4173641764%_ + _%hd4172741799%_))) + (let () (declare (not safe)) (_%g4172441743%_)))))) + (let () (declare (not safe)) (_%g4172441743%_))))))) (define |gerbil/core/module-sugar[:0:]#defsyntax-for-import| - (lambda (_%$stx41714%_) - (let* ((_%__stx4430444305%_ _%$stx41714%_) - (_%g4171941759%_ + (lambda (_%$stx41813%_) + (let* ((_%__stx4440344404%_ _%$stx41813%_) + (_%g4181841858%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4430444305%_)))) - (let ((_%__kont4430744308%_ - (lambda (_%L41897%_ _%L41899%_) + _%__stx4440344404%_)))) + (let ((_%__kont4440644407%_ + (lambda (_%L41996%_ _%L41998%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L41899%_ + (cons _%L41998%_ (cons (cons (gx#datum->syntax '#f 'make-import-expander) - (cons _%L41897%_ '())) + (cons _%L41996%_ '())) '()))))) - (_%__kont4430944310%_ - (lambda (_%L41826%_ _%L41828%_ _%L41829%_ _%L41830%_) - (cons _%L41830%_ - (cons _%L41829%_ + (_%__kont4440844409%_ + (lambda (_%L41925%_ _%L41927%_ _%L41928%_ _%L41929%_) + (cons _%L41929%_ + (cons _%L41928%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L41828%_ - (foldr (lambda (_%g4185141854%_ - _%g4185241857%_) - (cons _%g4185141854%_ - _%g4185241857%_)) + (cons _%L41927%_ + (foldr (lambda (_%g4195041953%_ + _%g4195141956%_) + (cons _%g4195041953%_ + _%g4195141956%_)) '() - _%L41826%_))) + _%L41925%_))) '())))))) - (let* ((_%__match4435944360%_ - (lambda (_%e4173641766%_ - _%hd4173741770%_ - _%tl4173841773%_ - _%e4173941776%_ - _%hd4174041780%_ - _%tl4174141783%_ - _%e4174241786%_ - _%hd4174341790%_ - _%tl4174441793%_ - _%__splice4431144312%_ - _%target4174541796%_ - _%tl4174741799%_) - (letrec ((_%loop4174841802%_ - (lambda (_%hd4174641806%_ _%body4175241809%_) - (if (gx#stx-pair? _%hd4174641806%_) - (let ((_%e4174941812%_ - (gx#syntax-e _%hd4174641806%_))) - (let ((_%lp-tl4175141819%_ + (let* ((_%__match4445844459%_ + (lambda (_%e4183541865%_ + _%hd4183641869%_ + _%tl4183741872%_ + _%e4183841875%_ + _%hd4183941879%_ + _%tl4184041882%_ + _%e4184141885%_ + _%hd4184241889%_ + _%tl4184341892%_ + _%__splice4441044411%_ + _%target4184441895%_ + _%tl4184641898%_) + (letrec ((_%loop4184741901%_ + (lambda (_%hd4184541905%_ _%body4185141908%_) + (if (gx#stx-pair? _%hd4184541905%_) + (let ((_%e4184841911%_ + (gx#syntax-e _%hd4184541905%_))) + (let ((_%lp-tl4185041918%_ (let () (declare (not safe)) - (##cdr _%e4174941812%_))) - (_%lp-hd4175041816%_ + (##cdr _%e4184841911%_))) + (_%lp-hd4184941915%_ (let () (declare (not safe)) - (##car _%e4174941812%_)))) - (_%loop4174841802%_ - _%lp-tl4175141819%_ - (cons _%lp-hd4175041816%_ - _%body4175241809%_)))) - (let ((_%body4175341822%_ - (reverse _%body4175241809%_))) - (let ((_%L41826%_ _%body4175341822%_) - (_%L41828%_ _%tl4174441793%_) - (_%L41829%_ _%hd4174341790%_) - (_%L41830%_ _%hd4173741770%_)) - (if (gx#identifier? _%L41829%_) - (_%__kont4430944310%_ - _%L41826%_ - _%L41828%_ - _%L41829%_ - _%L41830%_) + (##car _%e4184841911%_)))) + (_%loop4184741901%_ + _%lp-tl4185041918%_ + (cons _%lp-hd4184941915%_ + _%body4185141908%_)))) + (let ((_%body4185241921%_ + (reverse _%body4185141908%_))) + (let ((_%L41925%_ _%body4185241921%_) + (_%L41927%_ _%tl4184341892%_) + (_%L41928%_ _%hd4184241889%_) + (_%L41929%_ _%hd4183641869%_)) + (if (gx#identifier? _%L41928%_) + (_%__kont4440844409%_ + _%L41925%_ + _%L41927%_ + _%L41928%_ + _%L41929%_) (let () (declare (not safe)) - (_%g4171941759%_))))))))) - (_%loop4174841802%_ _%target4174541796%_ '())))) - (_%__match4433344334%_ - (lambda (_%e4172341867%_ - _%hd4172441871%_ - _%tl4172541874%_ - _%e4172641877%_ - _%hd4172741881%_ - _%tl4172841884%_ - _%e4172941887%_ - _%hd4173041891%_ - _%tl4173141894%_) - (let ((_%L41897%_ _%hd4173041891%_) - (_%L41899%_ _%hd4172741881%_)) - (if (gx#identifier? _%L41899%_) - (_%__kont4430744308%_ _%L41897%_ _%L41899%_) - (if (gx#stx-pair? _%hd4172741881%_) - (let ((_%e4174241786%_ - (gx#syntax-e _%hd4172741881%_))) - (let ((_%tl4174441793%_ + (_%g4181841858%_))))))))) + (_%loop4184741901%_ _%target4184441895%_ '())))) + (_%__match4443244433%_ + (lambda (_%e4182241966%_ + _%hd4182341970%_ + _%tl4182441973%_ + _%e4182541976%_ + _%hd4182641980%_ + _%tl4182741983%_ + _%e4182841986%_ + _%hd4182941990%_ + _%tl4183041993%_) + (let ((_%L41996%_ _%hd4182941990%_) + (_%L41998%_ _%hd4182641980%_)) + (if (gx#identifier? _%L41998%_) + (_%__kont4440644407%_ _%L41996%_ _%L41998%_) + (if (gx#stx-pair? _%hd4182641980%_) + (let ((_%e4184141885%_ + (gx#syntax-e _%hd4182641980%_))) + (let ((_%tl4184341892%_ (let () (declare (not safe)) - (##cdr _%e4174241786%_))) - (_%hd4174341790%_ + (##cdr _%e4184141885%_))) + (_%hd4184241889%_ (let () (declare (not safe)) - (##car _%e4174241786%_)))) - (if (gx#stx-pair/null? _%tl4172841884%_) - (let ((_%__splice4431144312%_ + (##car _%e4184141885%_)))) + (if (gx#stx-pair/null? _%tl4182741983%_) + (let ((_%__splice4441044411%_ (gx#syntax-split-splice - _%tl4172841884%_ + _%tl4182741983%_ '0))) - (let ((_%tl4174741799%_ + (let ((_%tl4184641898%_ (let () (declare (not safe)) (##vector-ref - _%__splice4431144312%_ + _%__splice4441044411%_ '1))) - (_%target4174541796%_ + (_%target4184441895%_ (let () (declare (not safe)) (##vector-ref - _%__splice4431144312%_ + _%__splice4441044411%_ '0)))) - (if (gx#stx-null? _%tl4174741799%_) - (_%__match4435944360%_ - _%e4172341867%_ - _%hd4172441871%_ - _%tl4172541874%_ - _%e4172641877%_ - _%hd4172741881%_ - _%tl4172841884%_ - _%e4174241786%_ - _%hd4174341790%_ - _%tl4174441793%_ - _%__splice4431144312%_ - _%target4174541796%_ - _%tl4174741799%_) + (if (gx#stx-null? _%tl4184641898%_) + (_%__match4445844459%_ + _%e4182241966%_ + _%hd4182341970%_ + _%tl4182441973%_ + _%e4182541976%_ + _%hd4182641980%_ + _%tl4182741983%_ + _%e4184141885%_ + _%hd4184241889%_ + _%tl4184341892%_ + _%__splice4441044411%_ + _%target4184441895%_ + _%tl4184641898%_) (let () (declare (not safe)) - (_%g4171941759%_))))) + (_%g4181841858%_))))) (let () (declare (not safe)) - (_%g4171941759%_))))) + (_%g4181841858%_))))) (let () (declare (not safe)) - (_%g4171941759%_)))))))) - (if (gx#stx-pair? _%__stx4430444305%_) - (let ((_%e4172341867%_ (gx#syntax-e _%__stx4430444305%_))) - (let ((_%tl4172541874%_ - (let () (declare (not safe)) (##cdr _%e4172341867%_))) - (_%hd4172441871%_ + (_%g4181841858%_)))))))) + (if (gx#stx-pair? _%__stx4440344404%_) + (let ((_%e4182241966%_ (gx#syntax-e _%__stx4440344404%_))) + (let ((_%tl4182441973%_ + (let () (declare (not safe)) (##cdr _%e4182241966%_))) + (_%hd4182341970%_ (let () (declare (not safe)) - (##car _%e4172341867%_)))) - (if (gx#stx-pair? _%tl4172541874%_) - (let ((_%e4172641877%_ (gx#syntax-e _%tl4172541874%_))) - (let ((_%tl4172841884%_ + (##car _%e4182241966%_)))) + (if (gx#stx-pair? _%tl4182441973%_) + (let ((_%e4182541976%_ (gx#syntax-e _%tl4182441973%_))) + (let ((_%tl4182741983%_ (let () (declare (not safe)) - (##cdr _%e4172641877%_))) - (_%hd4172741881%_ + (##cdr _%e4182541976%_))) + (_%hd4182641980%_ (let () (declare (not safe)) - (##car _%e4172641877%_)))) - (if (gx#stx-pair? _%tl4172841884%_) - (let ((_%e4172941887%_ - (gx#syntax-e _%tl4172841884%_))) - (let ((_%tl4173141894%_ + (##car _%e4182541976%_)))) + (if (gx#stx-pair? _%tl4182741983%_) + (let ((_%e4182841986%_ + (gx#syntax-e _%tl4182741983%_))) + (let ((_%tl4183041993%_ (let () (declare (not safe)) - (##cdr _%e4172941887%_))) - (_%hd4173041891%_ + (##cdr _%e4182841986%_))) + (_%hd4182941990%_ (let () (declare (not safe)) - (##car _%e4172941887%_)))) - (if (gx#stx-null? _%tl4173141894%_) - (_%__match4433344334%_ - _%e4172341867%_ - _%hd4172441871%_ - _%tl4172541874%_ - _%e4172641877%_ - _%hd4172741881%_ - _%tl4172841884%_ - _%e4172941887%_ - _%hd4173041891%_ - _%tl4173141894%_) - (if (gx#stx-pair? _%hd4172741881%_) - (let ((_%e4174241786%_ + (##car _%e4182841986%_)))) + (if (gx#stx-null? _%tl4183041993%_) + (_%__match4443244433%_ + _%e4182241966%_ + _%hd4182341970%_ + _%tl4182441973%_ + _%e4182541976%_ + _%hd4182641980%_ + _%tl4182741983%_ + _%e4182841986%_ + _%hd4182941990%_ + _%tl4183041993%_) + (if (gx#stx-pair? _%hd4182641980%_) + (let ((_%e4184141885%_ (gx#syntax-e - _%hd4172741881%_))) - (let ((_%tl4174441793%_ + _%hd4182641980%_))) + (let ((_%tl4184341892%_ (let () (declare (not safe)) - (##cdr _%e4174241786%_))) - (_%hd4174341790%_ + (##cdr _%e4184141885%_))) + (_%hd4184241889%_ (let () (declare (not safe)) - (##car _%e4174241786%_)))) + (##car _%e4184141885%_)))) (if (gx#stx-pair/null? - _%tl4172841884%_) - (let ((_%__splice4431144312%_ + _%tl4182741983%_) + (let ((_%__splice4441044411%_ (gx#syntax-split-splice - _%tl4172841884%_ + _%tl4182741983%_ '0))) - (let ((_%tl4174741799%_ + (let ((_%tl4184641898%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4431144312%_ '1))) - (_%target4174541796%_ + (##vector-ref _%__splice4441044411%_ '1))) + (_%target4184441895%_ (let () (declare (not safe)) - (##vector-ref _%__splice4431144312%_ '0)))) - (if (gx#stx-null? _%tl4174741799%_) - (_%__match4435944360%_ - _%e4172341867%_ - _%hd4172441871%_ - _%tl4172541874%_ - _%e4172641877%_ - _%hd4172741881%_ - _%tl4172841884%_ - _%e4174241786%_ - _%hd4174341790%_ - _%tl4174441793%_ - _%__splice4431144312%_ - _%target4174541796%_ - _%tl4174741799%_) - (let () (declare (not safe)) (_%g4171941759%_))))) + (##vector-ref _%__splice4441044411%_ '0)))) + (if (gx#stx-null? _%tl4184641898%_) + (_%__match4445844459%_ + _%e4182241966%_ + _%hd4182341970%_ + _%tl4182441973%_ + _%e4182541976%_ + _%hd4182641980%_ + _%tl4182741983%_ + _%e4184141885%_ + _%hd4184241889%_ + _%tl4184341892%_ + _%__splice4441044411%_ + _%target4184441895%_ + _%tl4184641898%_) + (let () (declare (not safe)) (_%g4181841858%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4171941759%_))))) + (_%g4181841858%_))))) (let () (declare (not safe)) - (_%g4171941759%_)))))) - (if (gx#stx-pair? _%hd4172741881%_) - (let ((_%e4174241786%_ - (gx#syntax-e _%hd4172741881%_))) - (let ((_%tl4174441793%_ + (_%g4181841858%_)))))) + (if (gx#stx-pair? _%hd4182641980%_) + (let ((_%e4184141885%_ + (gx#syntax-e _%hd4182641980%_))) + (let ((_%tl4184341892%_ (let () (declare (not safe)) - (##cdr _%e4174241786%_))) - (_%hd4174341790%_ + (##cdr _%e4184141885%_))) + (_%hd4184241889%_ (let () (declare (not safe)) - (##car _%e4174241786%_)))) + (##car _%e4184141885%_)))) (if (gx#stx-pair/null? - _%tl4172841884%_) - (let ((_%__splice4431144312%_ + _%tl4182741983%_) + (let ((_%__splice4441044411%_ (gx#syntax-split-splice - _%tl4172841884%_ + _%tl4182741983%_ '0))) - (let ((_%tl4174741799%_ + (let ((_%tl4184641898%_ (let () (declare (not safe)) (##vector-ref - _%__splice4431144312%_ + _%__splice4441044411%_ '1))) - (_%target4174541796%_ + (_%target4184441895%_ (let () (declare (not safe)) (##vector-ref - _%__splice4431144312%_ + _%__splice4441044411%_ '0)))) (if (gx#stx-null? - _%tl4174741799%_) - (_%__match4435944360%_ - _%e4172341867%_ - _%hd4172441871%_ - _%tl4172541874%_ - _%e4172641877%_ - _%hd4172741881%_ - _%tl4172841884%_ - _%e4174241786%_ - _%hd4174341790%_ - _%tl4174441793%_ - _%__splice4431144312%_ - _%target4174541796%_ - _%tl4174741799%_) + _%tl4184641898%_) + (_%__match4445844459%_ + _%e4182241966%_ + _%hd4182341970%_ + _%tl4182441973%_ + _%e4182541976%_ + _%hd4182641980%_ + _%tl4182741983%_ + _%e4184141885%_ + _%hd4184241889%_ + _%tl4184341892%_ + _%__splice4441044411%_ + _%target4184441895%_ + _%tl4184641898%_) (let () (declare (not safe)) - (_%g4171941759%_))))) + (_%g4181841858%_))))) (let () (declare (not safe)) - (_%g4171941759%_))))) + (_%g4181841858%_))))) (let () (declare (not safe)) - (_%g4171941759%_)))))) - (let () (declare (not safe)) (_%g4171941759%_))))) - (let () (declare (not safe)) (_%g4171941759%_)))))))) + (_%g4181841858%_)))))) + (let () (declare (not safe)) (_%g4181841858%_))))) + (let () (declare (not safe)) (_%g4181841858%_)))))))) (define |gerbil/core/module-sugar[:0:]#defsyntax-for-export| - (lambda (_%$stx41919%_) - (let* ((_%__stx4436244363%_ _%$stx41919%_) - (_%g4192441964%_ + (lambda (_%$stx42018%_) + (let* ((_%__stx4446144462%_ _%$stx42018%_) + (_%g4202342063%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4436244363%_)))) - (let ((_%__kont4436544366%_ - (lambda (_%L42102%_ _%L42104%_) + _%__stx4446144462%_)))) + (let ((_%__kont4446444465%_ + (lambda (_%L42201%_ _%L42203%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L42104%_ + (cons _%L42203%_ (cons (cons (gx#datum->syntax '#f 'make-export-expander) - (cons _%L42102%_ '())) + (cons _%L42201%_ '())) '()))))) - (_%__kont4436744368%_ - (lambda (_%L42031%_ _%L42033%_ _%L42034%_ _%L42035%_) - (cons _%L42035%_ - (cons _%L42034%_ + (_%__kont4446644467%_ + (lambda (_%L42130%_ _%L42132%_ _%L42133%_ _%L42134%_) + (cons _%L42134%_ + (cons _%L42133%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L42033%_ - (foldr (lambda (_%g4205642059%_ - _%g4205742062%_) - (cons _%g4205642059%_ - _%g4205742062%_)) + (cons _%L42132%_ + (foldr (lambda (_%g4215542158%_ + _%g4215642161%_) + (cons _%g4215542158%_ + _%g4215642161%_)) '() - _%L42031%_))) + _%L42130%_))) '())))))) - (let* ((_%__match4441744418%_ - (lambda (_%e4194141971%_ - _%hd4194241975%_ - _%tl4194341978%_ - _%e4194441981%_ - _%hd4194541985%_ - _%tl4194641988%_ - _%e4194741991%_ - _%hd4194841995%_ - _%tl4194941998%_ - _%__splice4436944370%_ - _%target4195042001%_ - _%tl4195242004%_) - (letrec ((_%loop4195342007%_ - (lambda (_%hd4195142011%_ _%body4195742014%_) - (if (gx#stx-pair? _%hd4195142011%_) - (let ((_%e4195442017%_ - (gx#syntax-e _%hd4195142011%_))) - (let ((_%lp-tl4195642024%_ + (let* ((_%__match4451644517%_ + (lambda (_%e4204042070%_ + _%hd4204142074%_ + _%tl4204242077%_ + _%e4204342080%_ + _%hd4204442084%_ + _%tl4204542087%_ + _%e4204642090%_ + _%hd4204742094%_ + _%tl4204842097%_ + _%__splice4446844469%_ + _%target4204942100%_ + _%tl4205142103%_) + (letrec ((_%loop4205242106%_ + (lambda (_%hd4205042110%_ _%body4205642113%_) + (if (gx#stx-pair? _%hd4205042110%_) + (let ((_%e4205342116%_ + (gx#syntax-e _%hd4205042110%_))) + (let ((_%lp-tl4205542123%_ (let () (declare (not safe)) - (##cdr _%e4195442017%_))) - (_%lp-hd4195542021%_ + (##cdr _%e4205342116%_))) + (_%lp-hd4205442120%_ (let () (declare (not safe)) - (##car _%e4195442017%_)))) - (_%loop4195342007%_ - _%lp-tl4195642024%_ - (cons _%lp-hd4195542021%_ - _%body4195742014%_)))) - (let ((_%body4195842027%_ - (reverse _%body4195742014%_))) - (let ((_%L42031%_ _%body4195842027%_) - (_%L42033%_ _%tl4194941998%_) - (_%L42034%_ _%hd4194841995%_) - (_%L42035%_ _%hd4194241975%_)) - (if (gx#identifier? _%L42034%_) - (_%__kont4436744368%_ - _%L42031%_ - _%L42033%_ - _%L42034%_ - _%L42035%_) + (##car _%e4205342116%_)))) + (_%loop4205242106%_ + _%lp-tl4205542123%_ + (cons _%lp-hd4205442120%_ + _%body4205642113%_)))) + (let ((_%body4205742126%_ + (reverse _%body4205642113%_))) + (let ((_%L42130%_ _%body4205742126%_) + (_%L42132%_ _%tl4204842097%_) + (_%L42133%_ _%hd4204742094%_) + (_%L42134%_ _%hd4204142074%_)) + (if (gx#identifier? _%L42133%_) + (_%__kont4446644467%_ + _%L42130%_ + _%L42132%_ + _%L42133%_ + _%L42134%_) (let () (declare (not safe)) - (_%g4192441964%_))))))))) - (_%loop4195342007%_ _%target4195042001%_ '())))) - (_%__match4439144392%_ - (lambda (_%e4192842072%_ - _%hd4192942076%_ - _%tl4193042079%_ - _%e4193142082%_ - _%hd4193242086%_ - _%tl4193342089%_ - _%e4193442092%_ - _%hd4193542096%_ - _%tl4193642099%_) - (let ((_%L42102%_ _%hd4193542096%_) - (_%L42104%_ _%hd4193242086%_)) - (if (gx#identifier? _%L42104%_) - (_%__kont4436544366%_ _%L42102%_ _%L42104%_) - (if (gx#stx-pair? _%hd4193242086%_) - (let ((_%e4194741991%_ - (gx#syntax-e _%hd4193242086%_))) - (let ((_%tl4194941998%_ + (_%g4202342063%_))))))))) + (_%loop4205242106%_ _%target4204942100%_ '())))) + (_%__match4449044491%_ + (lambda (_%e4202742171%_ + _%hd4202842175%_ + _%tl4202942178%_ + _%e4203042181%_ + _%hd4203142185%_ + _%tl4203242188%_ + _%e4203342191%_ + _%hd4203442195%_ + _%tl4203542198%_) + (let ((_%L42201%_ _%hd4203442195%_) + (_%L42203%_ _%hd4203142185%_)) + (if (gx#identifier? _%L42203%_) + (_%__kont4446444465%_ _%L42201%_ _%L42203%_) + (if (gx#stx-pair? _%hd4203142185%_) + (let ((_%e4204642090%_ + (gx#syntax-e _%hd4203142185%_))) + (let ((_%tl4204842097%_ (let () (declare (not safe)) - (##cdr _%e4194741991%_))) - (_%hd4194841995%_ + (##cdr _%e4204642090%_))) + (_%hd4204742094%_ (let () (declare (not safe)) - (##car _%e4194741991%_)))) - (if (gx#stx-pair/null? _%tl4193342089%_) - (let ((_%__splice4436944370%_ + (##car _%e4204642090%_)))) + (if (gx#stx-pair/null? _%tl4203242188%_) + (let ((_%__splice4446844469%_ (gx#syntax-split-splice - _%tl4193342089%_ + _%tl4203242188%_ '0))) - (let ((_%tl4195242004%_ + (let ((_%tl4205142103%_ (let () (declare (not safe)) (##vector-ref - _%__splice4436944370%_ + _%__splice4446844469%_ '1))) - (_%target4195042001%_ + (_%target4204942100%_ (let () (declare (not safe)) (##vector-ref - _%__splice4436944370%_ + _%__splice4446844469%_ '0)))) - (if (gx#stx-null? _%tl4195242004%_) - (_%__match4441744418%_ - _%e4192842072%_ - _%hd4192942076%_ - _%tl4193042079%_ - _%e4193142082%_ - _%hd4193242086%_ - _%tl4193342089%_ - _%e4194741991%_ - _%hd4194841995%_ - _%tl4194941998%_ - _%__splice4436944370%_ - _%target4195042001%_ - _%tl4195242004%_) + (if (gx#stx-null? _%tl4205142103%_) + (_%__match4451644517%_ + _%e4202742171%_ + _%hd4202842175%_ + _%tl4202942178%_ + _%e4203042181%_ + _%hd4203142185%_ + _%tl4203242188%_ + _%e4204642090%_ + _%hd4204742094%_ + _%tl4204842097%_ + _%__splice4446844469%_ + _%target4204942100%_ + _%tl4205142103%_) (let () (declare (not safe)) - (_%g4192441964%_))))) + (_%g4202342063%_))))) (let () (declare (not safe)) - (_%g4192441964%_))))) + (_%g4202342063%_))))) (let () (declare (not safe)) - (_%g4192441964%_)))))))) - (if (gx#stx-pair? _%__stx4436244363%_) - (let ((_%e4192842072%_ (gx#syntax-e _%__stx4436244363%_))) - (let ((_%tl4193042079%_ - (let () (declare (not safe)) (##cdr _%e4192842072%_))) - (_%hd4192942076%_ + (_%g4202342063%_)))))))) + (if (gx#stx-pair? _%__stx4446144462%_) + (let ((_%e4202742171%_ (gx#syntax-e _%__stx4446144462%_))) + (let ((_%tl4202942178%_ + (let () (declare (not safe)) (##cdr _%e4202742171%_))) + (_%hd4202842175%_ (let () (declare (not safe)) - (##car _%e4192842072%_)))) - (if (gx#stx-pair? _%tl4193042079%_) - (let ((_%e4193142082%_ (gx#syntax-e _%tl4193042079%_))) - (let ((_%tl4193342089%_ + (##car _%e4202742171%_)))) + (if (gx#stx-pair? _%tl4202942178%_) + (let ((_%e4203042181%_ (gx#syntax-e _%tl4202942178%_))) + (let ((_%tl4203242188%_ (let () (declare (not safe)) - (##cdr _%e4193142082%_))) - (_%hd4193242086%_ + (##cdr _%e4203042181%_))) + (_%hd4203142185%_ (let () (declare (not safe)) - (##car _%e4193142082%_)))) - (if (gx#stx-pair? _%tl4193342089%_) - (let ((_%e4193442092%_ - (gx#syntax-e _%tl4193342089%_))) - (let ((_%tl4193642099%_ + (##car _%e4203042181%_)))) + (if (gx#stx-pair? _%tl4203242188%_) + (let ((_%e4203342191%_ + (gx#syntax-e _%tl4203242188%_))) + (let ((_%tl4203542198%_ (let () (declare (not safe)) - (##cdr _%e4193442092%_))) - (_%hd4193542096%_ + (##cdr _%e4203342191%_))) + (_%hd4203442195%_ (let () (declare (not safe)) - (##car _%e4193442092%_)))) - (if (gx#stx-null? _%tl4193642099%_) - (_%__match4439144392%_ - _%e4192842072%_ - _%hd4192942076%_ - _%tl4193042079%_ - _%e4193142082%_ - _%hd4193242086%_ - _%tl4193342089%_ - _%e4193442092%_ - _%hd4193542096%_ - _%tl4193642099%_) - (if (gx#stx-pair? _%hd4193242086%_) - (let ((_%e4194741991%_ + (##car _%e4203342191%_)))) + (if (gx#stx-null? _%tl4203542198%_) + (_%__match4449044491%_ + _%e4202742171%_ + _%hd4202842175%_ + _%tl4202942178%_ + _%e4203042181%_ + _%hd4203142185%_ + _%tl4203242188%_ + _%e4203342191%_ + _%hd4203442195%_ + _%tl4203542198%_) + (if (gx#stx-pair? _%hd4203142185%_) + (let ((_%e4204642090%_ (gx#syntax-e - _%hd4193242086%_))) - (let ((_%tl4194941998%_ + _%hd4203142185%_))) + (let ((_%tl4204842097%_ (let () (declare (not safe)) - (##cdr _%e4194741991%_))) - (_%hd4194841995%_ + (##cdr _%e4204642090%_))) + (_%hd4204742094%_ (let () (declare (not safe)) - (##car _%e4194741991%_)))) + (##car _%e4204642090%_)))) (if (gx#stx-pair/null? - _%tl4193342089%_) - (let ((_%__splice4436944370%_ + _%tl4203242188%_) + (let ((_%__splice4446844469%_ (gx#syntax-split-splice - _%tl4193342089%_ + _%tl4203242188%_ '0))) - (let ((_%tl4195242004%_ + (let ((_%tl4205142103%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4436944370%_ '1))) - (_%target4195042001%_ + (##vector-ref _%__splice4446844469%_ '1))) + (_%target4204942100%_ (let () (declare (not safe)) - (##vector-ref _%__splice4436944370%_ '0)))) - (if (gx#stx-null? _%tl4195242004%_) - (_%__match4441744418%_ - _%e4192842072%_ - _%hd4192942076%_ - _%tl4193042079%_ - _%e4193142082%_ - _%hd4193242086%_ - _%tl4193342089%_ - _%e4194741991%_ - _%hd4194841995%_ - _%tl4194941998%_ - _%__splice4436944370%_ - _%target4195042001%_ - _%tl4195242004%_) - (let () (declare (not safe)) (_%g4192441964%_))))) + (##vector-ref _%__splice4446844469%_ '0)))) + (if (gx#stx-null? _%tl4205142103%_) + (_%__match4451644517%_ + _%e4202742171%_ + _%hd4202842175%_ + _%tl4202942178%_ + _%e4203042181%_ + _%hd4203142185%_ + _%tl4203242188%_ + _%e4204642090%_ + _%hd4204742094%_ + _%tl4204842097%_ + _%__splice4446844469%_ + _%target4204942100%_ + _%tl4205142103%_) + (let () (declare (not safe)) (_%g4202342063%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4192441964%_))))) + (_%g4202342063%_))))) (let () (declare (not safe)) - (_%g4192441964%_)))))) - (if (gx#stx-pair? _%hd4193242086%_) - (let ((_%e4194741991%_ - (gx#syntax-e _%hd4193242086%_))) - (let ((_%tl4194941998%_ + (_%g4202342063%_)))))) + (if (gx#stx-pair? _%hd4203142185%_) + (let ((_%e4204642090%_ + (gx#syntax-e _%hd4203142185%_))) + (let ((_%tl4204842097%_ (let () (declare (not safe)) - (##cdr _%e4194741991%_))) - (_%hd4194841995%_ + (##cdr _%e4204642090%_))) + (_%hd4204742094%_ (let () (declare (not safe)) - (##car _%e4194741991%_)))) + (##car _%e4204642090%_)))) (if (gx#stx-pair/null? - _%tl4193342089%_) - (let ((_%__splice4436944370%_ + _%tl4203242188%_) + (let ((_%__splice4446844469%_ (gx#syntax-split-splice - _%tl4193342089%_ + _%tl4203242188%_ '0))) - (let ((_%tl4195242004%_ + (let ((_%tl4205142103%_ (let () (declare (not safe)) (##vector-ref - _%__splice4436944370%_ + _%__splice4446844469%_ '1))) - (_%target4195042001%_ + (_%target4204942100%_ (let () (declare (not safe)) (##vector-ref - _%__splice4436944370%_ + _%__splice4446844469%_ '0)))) (if (gx#stx-null? - _%tl4195242004%_) - (_%__match4441744418%_ - _%e4192842072%_ - _%hd4192942076%_ - _%tl4193042079%_ - _%e4193142082%_ - _%hd4193242086%_ - _%tl4193342089%_ - _%e4194741991%_ - _%hd4194841995%_ - _%tl4194941998%_ - _%__splice4436944370%_ - _%target4195042001%_ - _%tl4195242004%_) + _%tl4205142103%_) + (_%__match4451644517%_ + _%e4202742171%_ + _%hd4202842175%_ + _%tl4202942178%_ + _%e4203042181%_ + _%hd4203142185%_ + _%tl4203242188%_ + _%e4204642090%_ + _%hd4204742094%_ + _%tl4204842097%_ + _%__splice4446844469%_ + _%target4204942100%_ + _%tl4205142103%_) (let () (declare (not safe)) - (_%g4192441964%_))))) + (_%g4202342063%_))))) (let () (declare (not safe)) - (_%g4192441964%_))))) + (_%g4202342063%_))))) (let () (declare (not safe)) - (_%g4192441964%_)))))) - (let () (declare (not safe)) (_%g4192441964%_))))) - (let () (declare (not safe)) (_%g4192441964%_)))))))) + (_%g4202342063%_)))))) + (let () (declare (not safe)) (_%g4202342063%_))))) + (let () (declare (not safe)) (_%g4202342063%_)))))))) (define |gerbil/core/module-sugar[:0:]#defsyntax-for-import-export| - (lambda (_%$stx42124%_) - (let* ((_%__stx4442044421%_ _%$stx42124%_) - (_%g4212942169%_ + (lambda (_%$stx42223%_) + (let* ((_%__stx4451944520%_ _%$stx42223%_) + (_%g4222842268%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4442044421%_)))) - (let ((_%__kont4442344424%_ - (lambda (_%L42307%_ _%L42309%_) + _%__stx4451944520%_)))) + (let ((_%__kont4452244523%_ + (lambda (_%L42406%_ _%L42408%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L42309%_ + (cons _%L42408%_ (cons (cons (gx#datum->syntax '#f 'make-import-export-expander) - (cons _%L42307%_ '())) + (cons _%L42406%_ '())) '()))))) - (_%__kont4442544426%_ - (lambda (_%L42236%_ _%L42238%_ _%L42239%_ _%L42240%_) - (cons _%L42240%_ - (cons _%L42239%_ + (_%__kont4452444525%_ + (lambda (_%L42335%_ _%L42337%_ _%L42338%_ _%L42339%_) + (cons _%L42339%_ + (cons _%L42338%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L42238%_ - (foldr (lambda (_%g4226142264%_ - _%g4226242267%_) - (cons _%g4226142264%_ - _%g4226242267%_)) + (cons _%L42337%_ + (foldr (lambda (_%g4236042363%_ + _%g4236142366%_) + (cons _%g4236042363%_ + _%g4236142366%_)) '() - _%L42236%_))) + _%L42335%_))) '())))))) - (let* ((_%__match4447544476%_ - (lambda (_%e4214642176%_ - _%hd4214742180%_ - _%tl4214842183%_ - _%e4214942186%_ - _%hd4215042190%_ - _%tl4215142193%_ - _%e4215242196%_ - _%hd4215342200%_ - _%tl4215442203%_ - _%__splice4442744428%_ - _%target4215542206%_ - _%tl4215742209%_) - (letrec ((_%loop4215842212%_ - (lambda (_%hd4215642216%_ _%body4216242219%_) - (if (gx#stx-pair? _%hd4215642216%_) - (let ((_%e4215942222%_ - (gx#syntax-e _%hd4215642216%_))) - (let ((_%lp-tl4216142229%_ + (let* ((_%__match4457444575%_ + (lambda (_%e4224542275%_ + _%hd4224642279%_ + _%tl4224742282%_ + _%e4224842285%_ + _%hd4224942289%_ + _%tl4225042292%_ + _%e4225142295%_ + _%hd4225242299%_ + _%tl4225342302%_ + _%__splice4452644527%_ + _%target4225442305%_ + _%tl4225642308%_) + (letrec ((_%loop4225742311%_ + (lambda (_%hd4225542315%_ _%body4226142318%_) + (if (gx#stx-pair? _%hd4225542315%_) + (let ((_%e4225842321%_ + (gx#syntax-e _%hd4225542315%_))) + (let ((_%lp-tl4226042328%_ (let () (declare (not safe)) - (##cdr _%e4215942222%_))) - (_%lp-hd4216042226%_ + (##cdr _%e4225842321%_))) + (_%lp-hd4225942325%_ (let () (declare (not safe)) - (##car _%e4215942222%_)))) - (_%loop4215842212%_ - _%lp-tl4216142229%_ - (cons _%lp-hd4216042226%_ - _%body4216242219%_)))) - (let ((_%body4216342232%_ - (reverse _%body4216242219%_))) - (let ((_%L42236%_ _%body4216342232%_) - (_%L42238%_ _%tl4215442203%_) - (_%L42239%_ _%hd4215342200%_) - (_%L42240%_ _%hd4214742180%_)) - (if (gx#identifier? _%L42239%_) - (_%__kont4442544426%_ - _%L42236%_ - _%L42238%_ - _%L42239%_ - _%L42240%_) + (##car _%e4225842321%_)))) + (_%loop4225742311%_ + _%lp-tl4226042328%_ + (cons _%lp-hd4225942325%_ + _%body4226142318%_)))) + (let ((_%body4226242331%_ + (reverse _%body4226142318%_))) + (let ((_%L42335%_ _%body4226242331%_) + (_%L42337%_ _%tl4225342302%_) + (_%L42338%_ _%hd4225242299%_) + (_%L42339%_ _%hd4224642279%_)) + (if (gx#identifier? _%L42338%_) + (_%__kont4452444525%_ + _%L42335%_ + _%L42337%_ + _%L42338%_ + _%L42339%_) (let () (declare (not safe)) - (_%g4212942169%_))))))))) - (_%loop4215842212%_ _%target4215542206%_ '())))) - (_%__match4444944450%_ - (lambda (_%e4213342277%_ - _%hd4213442281%_ - _%tl4213542284%_ - _%e4213642287%_ - _%hd4213742291%_ - _%tl4213842294%_ - _%e4213942297%_ - _%hd4214042301%_ - _%tl4214142304%_) - (let ((_%L42307%_ _%hd4214042301%_) - (_%L42309%_ _%hd4213742291%_)) - (if (gx#identifier? _%L42309%_) - (_%__kont4442344424%_ _%L42307%_ _%L42309%_) - (if (gx#stx-pair? _%hd4213742291%_) - (let ((_%e4215242196%_ - (gx#syntax-e _%hd4213742291%_))) - (let ((_%tl4215442203%_ + (_%g4222842268%_))))))))) + (_%loop4225742311%_ _%target4225442305%_ '())))) + (_%__match4454844549%_ + (lambda (_%e4223242376%_ + _%hd4223342380%_ + _%tl4223442383%_ + _%e4223542386%_ + _%hd4223642390%_ + _%tl4223742393%_ + _%e4223842396%_ + _%hd4223942400%_ + _%tl4224042403%_) + (let ((_%L42406%_ _%hd4223942400%_) + (_%L42408%_ _%hd4223642390%_)) + (if (gx#identifier? _%L42408%_) + (_%__kont4452244523%_ _%L42406%_ _%L42408%_) + (if (gx#stx-pair? _%hd4223642390%_) + (let ((_%e4225142295%_ + (gx#syntax-e _%hd4223642390%_))) + (let ((_%tl4225342302%_ (let () (declare (not safe)) - (##cdr _%e4215242196%_))) - (_%hd4215342200%_ + (##cdr _%e4225142295%_))) + (_%hd4225242299%_ (let () (declare (not safe)) - (##car _%e4215242196%_)))) - (if (gx#stx-pair/null? _%tl4213842294%_) - (let ((_%__splice4442744428%_ + (##car _%e4225142295%_)))) + (if (gx#stx-pair/null? _%tl4223742393%_) + (let ((_%__splice4452644527%_ (gx#syntax-split-splice - _%tl4213842294%_ + _%tl4223742393%_ '0))) - (let ((_%tl4215742209%_ + (let ((_%tl4225642308%_ (let () (declare (not safe)) (##vector-ref - _%__splice4442744428%_ + _%__splice4452644527%_ '1))) - (_%target4215542206%_ + (_%target4225442305%_ (let () (declare (not safe)) (##vector-ref - _%__splice4442744428%_ + _%__splice4452644527%_ '0)))) - (if (gx#stx-null? _%tl4215742209%_) - (_%__match4447544476%_ - _%e4213342277%_ - _%hd4213442281%_ - _%tl4213542284%_ - _%e4213642287%_ - _%hd4213742291%_ - _%tl4213842294%_ - _%e4215242196%_ - _%hd4215342200%_ - _%tl4215442203%_ - _%__splice4442744428%_ - _%target4215542206%_ - _%tl4215742209%_) + (if (gx#stx-null? _%tl4225642308%_) + (_%__match4457444575%_ + _%e4223242376%_ + _%hd4223342380%_ + _%tl4223442383%_ + _%e4223542386%_ + _%hd4223642390%_ + _%tl4223742393%_ + _%e4225142295%_ + _%hd4225242299%_ + _%tl4225342302%_ + _%__splice4452644527%_ + _%target4225442305%_ + _%tl4225642308%_) (let () (declare (not safe)) - (_%g4212942169%_))))) + (_%g4222842268%_))))) (let () (declare (not safe)) - (_%g4212942169%_))))) + (_%g4222842268%_))))) (let () (declare (not safe)) - (_%g4212942169%_)))))))) - (if (gx#stx-pair? _%__stx4442044421%_) - (let ((_%e4213342277%_ (gx#syntax-e _%__stx4442044421%_))) - (let ((_%tl4213542284%_ - (let () (declare (not safe)) (##cdr _%e4213342277%_))) - (_%hd4213442281%_ + (_%g4222842268%_)))))))) + (if (gx#stx-pair? _%__stx4451944520%_) + (let ((_%e4223242376%_ (gx#syntax-e _%__stx4451944520%_))) + (let ((_%tl4223442383%_ + (let () (declare (not safe)) (##cdr _%e4223242376%_))) + (_%hd4223342380%_ (let () (declare (not safe)) - (##car _%e4213342277%_)))) - (if (gx#stx-pair? _%tl4213542284%_) - (let ((_%e4213642287%_ (gx#syntax-e _%tl4213542284%_))) - (let ((_%tl4213842294%_ + (##car _%e4223242376%_)))) + (if (gx#stx-pair? _%tl4223442383%_) + (let ((_%e4223542386%_ (gx#syntax-e _%tl4223442383%_))) + (let ((_%tl4223742393%_ (let () (declare (not safe)) - (##cdr _%e4213642287%_))) - (_%hd4213742291%_ + (##cdr _%e4223542386%_))) + (_%hd4223642390%_ (let () (declare (not safe)) - (##car _%e4213642287%_)))) - (if (gx#stx-pair? _%tl4213842294%_) - (let ((_%e4213942297%_ - (gx#syntax-e _%tl4213842294%_))) - (let ((_%tl4214142304%_ + (##car _%e4223542386%_)))) + (if (gx#stx-pair? _%tl4223742393%_) + (let ((_%e4223842396%_ + (gx#syntax-e _%tl4223742393%_))) + (let ((_%tl4224042403%_ (let () (declare (not safe)) - (##cdr _%e4213942297%_))) - (_%hd4214042301%_ + (##cdr _%e4223842396%_))) + (_%hd4223942400%_ (let () (declare (not safe)) - (##car _%e4213942297%_)))) - (if (gx#stx-null? _%tl4214142304%_) - (_%__match4444944450%_ - _%e4213342277%_ - _%hd4213442281%_ - _%tl4213542284%_ - _%e4213642287%_ - _%hd4213742291%_ - _%tl4213842294%_ - _%e4213942297%_ - _%hd4214042301%_ - _%tl4214142304%_) - (if (gx#stx-pair? _%hd4213742291%_) - (let ((_%e4215242196%_ + (##car _%e4223842396%_)))) + (if (gx#stx-null? _%tl4224042403%_) + (_%__match4454844549%_ + _%e4223242376%_ + _%hd4223342380%_ + _%tl4223442383%_ + _%e4223542386%_ + _%hd4223642390%_ + _%tl4223742393%_ + _%e4223842396%_ + _%hd4223942400%_ + _%tl4224042403%_) + (if (gx#stx-pair? _%hd4223642390%_) + (let ((_%e4225142295%_ (gx#syntax-e - _%hd4213742291%_))) - (let ((_%tl4215442203%_ + _%hd4223642390%_))) + (let ((_%tl4225342302%_ (let () (declare (not safe)) - (##cdr _%e4215242196%_))) - (_%hd4215342200%_ + (##cdr _%e4225142295%_))) + (_%hd4225242299%_ (let () (declare (not safe)) - (##car _%e4215242196%_)))) + (##car _%e4225142295%_)))) (if (gx#stx-pair/null? - _%tl4213842294%_) - (let ((_%__splice4442744428%_ + _%tl4223742393%_) + (let ((_%__splice4452644527%_ (gx#syntax-split-splice - _%tl4213842294%_ + _%tl4223742393%_ '0))) - (let ((_%tl4215742209%_ + (let ((_%tl4225642308%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4442744428%_ '1))) - (_%target4215542206%_ + (##vector-ref _%__splice4452644527%_ '1))) + (_%target4225442305%_ (let () (declare (not safe)) - (##vector-ref _%__splice4442744428%_ '0)))) - (if (gx#stx-null? _%tl4215742209%_) - (_%__match4447544476%_ - _%e4213342277%_ - _%hd4213442281%_ - _%tl4213542284%_ - _%e4213642287%_ - _%hd4213742291%_ - _%tl4213842294%_ - _%e4215242196%_ - _%hd4215342200%_ - _%tl4215442203%_ - _%__splice4442744428%_ - _%target4215542206%_ - _%tl4215742209%_) - (let () (declare (not safe)) (_%g4212942169%_))))) + (##vector-ref _%__splice4452644527%_ '0)))) + (if (gx#stx-null? _%tl4225642308%_) + (_%__match4457444575%_ + _%e4223242376%_ + _%hd4223342380%_ + _%tl4223442383%_ + _%e4223542386%_ + _%hd4223642390%_ + _%tl4223742393%_ + _%e4225142295%_ + _%hd4225242299%_ + _%tl4225342302%_ + _%__splice4452644527%_ + _%target4225442305%_ + _%tl4225642308%_) + (let () (declare (not safe)) (_%g4222842268%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4212942169%_))))) + (_%g4222842268%_))))) (let () (declare (not safe)) - (_%g4212942169%_)))))) - (if (gx#stx-pair? _%hd4213742291%_) - (let ((_%e4215242196%_ - (gx#syntax-e _%hd4213742291%_))) - (let ((_%tl4215442203%_ + (_%g4222842268%_)))))) + (if (gx#stx-pair? _%hd4223642390%_) + (let ((_%e4225142295%_ + (gx#syntax-e _%hd4223642390%_))) + (let ((_%tl4225342302%_ (let () (declare (not safe)) - (##cdr _%e4215242196%_))) - (_%hd4215342200%_ + (##cdr _%e4225142295%_))) + (_%hd4225242299%_ (let () (declare (not safe)) - (##car _%e4215242196%_)))) + (##car _%e4225142295%_)))) (if (gx#stx-pair/null? - _%tl4213842294%_) - (let ((_%__splice4442744428%_ + _%tl4223742393%_) + (let ((_%__splice4452644527%_ (gx#syntax-split-splice - _%tl4213842294%_ + _%tl4223742393%_ '0))) - (let ((_%tl4215742209%_ + (let ((_%tl4225642308%_ (let () (declare (not safe)) (##vector-ref - _%__splice4442744428%_ + _%__splice4452644527%_ '1))) - (_%target4215542206%_ + (_%target4225442305%_ (let () (declare (not safe)) (##vector-ref - _%__splice4442744428%_ + _%__splice4452644527%_ '0)))) (if (gx#stx-null? - _%tl4215742209%_) - (_%__match4447544476%_ - _%e4213342277%_ - _%hd4213442281%_ - _%tl4213542284%_ - _%e4213642287%_ - _%hd4213742291%_ - _%tl4213842294%_ - _%e4215242196%_ - _%hd4215342200%_ - _%tl4215442203%_ - _%__splice4442744428%_ - _%target4215542206%_ - _%tl4215742209%_) + _%tl4225642308%_) + (_%__match4457444575%_ + _%e4223242376%_ + _%hd4223342380%_ + _%tl4223442383%_ + _%e4223542386%_ + _%hd4223642390%_ + _%tl4223742393%_ + _%e4225142295%_ + _%hd4225242299%_ + _%tl4225342302%_ + _%__splice4452644527%_ + _%target4225442305%_ + _%tl4225642308%_) (let () (declare (not safe)) - (_%g4212942169%_))))) + (_%g4222842268%_))))) (let () (declare (not safe)) - (_%g4212942169%_))))) + (_%g4222842268%_))))) (let () (declare (not safe)) - (_%g4212942169%_)))))) - (let () (declare (not safe)) (_%g4212942169%_))))) - (let () (declare (not safe)) (_%g4212942169%_)))))))) + (_%g4222842268%_)))))) + (let () (declare (not safe)) (_%g4222842268%_))))) + (let () (declare (not safe)) (_%g4222842268%_)))))))) (define |gerbil/core/module-sugar[:0:]#for-syntax| - (gx#make-import-export-expander - (lambda (_%stx42329%_) - (let* ((_%g4233242352%_ - (lambda (_%g4233342348%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g4233342348%_))) - (_%g4233142423%_ - (lambda (_%g4233342356%_) - (if (gx#stx-pair? _%g4233342356%_) - (let ((_%e4233542359%_ (gx#syntax-e _%g4233342356%_))) - (let ((_%hd4233642363%_ - (let () - (declare (not safe)) - (##car _%e4233542359%_))) - (_%tl4233742366%_ - (let () - (declare (not safe)) - (##cdr _%e4233542359%_)))) - (if (gx#stx-pair/null? _%tl4233742366%_) - (let ((_g44570_ - (gx#syntax-split-splice - _%tl4233742366%_ - '0))) - (begin - (let ((_g44571_ - (let () - (declare (not safe)) - (if (##values? _g44570_) - (##vector-length _g44570_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g44571_ 2))) - (error "Context expects 2 values" - _g44571_))) - (let ((_%target4233842369%_ - (let () - (declare (not safe)) - (##vector-ref _g44570_ 0))) - (_%tl4234042372%_ - (let () - (declare (not safe)) - (##vector-ref _g44570_ 1)))) - (if (gx#stx-null? _%tl4234042372%_) - (letrec ((_%loop4234142375%_ - (lambda (_%hd4233942379%_ - _%body4234542382%_) - (if (gx#stx-pair? - _%hd4233942379%_) - (let ((_%e4234242385%_ - (gx#syntax-e - _%hd4233942379%_))) - (let ((_%lp-hd4234342389%_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##car _%e4234242385%_))) - (_%lp-tl4234442392%_ - (let () (declare (not safe)) (##cdr _%e4234242385%_)))) - (_%loop4234142375%_ - _%lp-tl4234442392%_ - (cons _%lp-hd4234342389%_ _%body4234542382%_)))) - (let ((_%body4234642395%_ (reverse _%body4234542382%_))) - ((lambda (_%L42399%_) - (cons 'phi: - (cons '1 - (foldr (lambda (_%g4241442417%_ - _%g4241542420%_) - (cons _%g4241442417%_ - _%g4241542420%_)) - '() - _%L42399%_)))) - _%body4234642395%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4234142375%_ - _%target4233842369%_ - '())) - (_%g4233242352%_ _%g4233342356%_))))) - (_%g4233242352%_ _%g4233342356%_)))) - (_%g4233242352%_ _%g4233342356%_))))) - (_%g4233142423%_ _%stx42329%_))))) - (define |gerbil/core/module-sugar[:0:]#for-template| (gx#make-import-export-expander (lambda (_%stx42428%_) (let* ((_%g4243142451%_ @@ -1019,30 +935,30 @@ (declare (not safe)) (##cdr _%e4243442458%_)))) (if (gx#stx-pair/null? _%tl4243642465%_) - (let ((_g44572_ + (let ((_g44669_ (gx#syntax-split-splice _%tl4243642465%_ '0))) (begin - (let ((_g44573_ + (let ((_g44670_ (let () (declare (not safe)) - (if (##values? _g44572_) - (##vector-length _g44572_) + (if (##values? _g44669_) + (##values-length _g44669_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44573_ 2))) + (##fx= _g44670_ 2))) (error "Context expects 2 values" - _g44573_))) + _g44670_))) (let ((_%target4243742468%_ (let () (declare (not safe)) - (##vector-ref _g44572_ 0))) + (##values-ref _g44669_ 0))) (_%tl4243942471%_ (let () (declare (not safe)) - (##vector-ref _g44572_ 1)))) + (##values-ref _g44669_ 1)))) (if (gx#stx-null? _%tl4243942471%_) (letrec ((_%loop4244042474%_ (lambda (_%hd4243842478%_ @@ -1065,7 +981,7 @@ (let ((_%body4244542494%_ (reverse _%body4244442481%_))) ((lambda (_%L42498%_) (cons 'phi: - (cons '-1 + (cons '1 (foldr (lambda (_%g4251342516%_ _%g4251442519%_) (cons _%g4251342516%_ @@ -1081,1809 +997,1893 @@ (_%g4243142451%_ _%g4243242455%_)))) (_%g4243142451%_ _%g4243242455%_))))) (_%g4243042522%_ _%stx42428%_))))) + (define |gerbil/core/module-sugar[:0:]#for-template| + (gx#make-import-export-expander + (lambda (_%stx42527%_) + (let* ((_%g4253042550%_ + (lambda (_%g4253142546%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g4253142546%_))) + (_%g4252942621%_ + (lambda (_%g4253142554%_) + (if (gx#stx-pair? _%g4253142554%_) + (let ((_%e4253342557%_ (gx#syntax-e _%g4253142554%_))) + (let ((_%hd4253442561%_ + (let () + (declare (not safe)) + (##car _%e4253342557%_))) + (_%tl4253542564%_ + (let () + (declare (not safe)) + (##cdr _%e4253342557%_)))) + (if (gx#stx-pair/null? _%tl4253542564%_) + (let ((_g44671_ + (gx#syntax-split-splice + _%tl4253542564%_ + '0))) + (begin + (let ((_g44672_ + (let () + (declare (not safe)) + (if (##values? _g44671_) + (##values-length _g44671_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g44672_ 2))) + (error "Context expects 2 values" + _g44672_))) + (let ((_%target4253642567%_ + (let () + (declare (not safe)) + (##values-ref _g44671_ 0))) + (_%tl4253842570%_ + (let () + (declare (not safe)) + (##values-ref _g44671_ 1)))) + (if (gx#stx-null? _%tl4253842570%_) + (letrec ((_%loop4253942573%_ + (lambda (_%hd4253742577%_ + _%body4254342580%_) + (if (gx#stx-pair? + _%hd4253742577%_) + (let ((_%e4254042583%_ + (gx#syntax-e + _%hd4253742577%_))) + (let ((_%lp-hd4254142587%_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _%e4254042583%_))) + (_%lp-tl4254242590%_ + (let () (declare (not safe)) (##cdr _%e4254042583%_)))) + (_%loop4253942573%_ + _%lp-tl4254242590%_ + (cons _%lp-hd4254142587%_ _%body4254342580%_)))) + (let ((_%body4254442593%_ (reverse _%body4254342580%_))) + ((lambda (_%L42597%_) + (cons 'phi: + (cons '-1 + (foldr (lambda (_%g4261242615%_ + _%g4261342618%_) + (cons _%g4261242615%_ + _%g4261342618%_)) + '() + _%L42597%_)))) + _%body4254442593%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop4253942573%_ + _%target4253642567%_ + '())) + (_%g4253042550%_ _%g4253142554%_))))) + (_%g4253042550%_ _%g4253142554%_)))) + (_%g4253042550%_ _%g4253142554%_))))) + (_%g4252942621%_ _%stx42527%_))))) (define |gerbil/core/module-sugar[:0:]#only-in| (gx#make-import-expander - (lambda (_%stx42527%_) - (let* ((_%g4253042554%_ - (lambda (_%g4253142550%_) + (lambda (_%stx42626%_) + (let* ((_%g4262942653%_ + (lambda (_%g4263042649%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4253142550%_))) - (_%g4252942682%_ - (lambda (_%g4253142558%_) - (if (gx#stx-pair? _%g4253142558%_) - (let ((_%e4253442561%_ (gx#syntax-e _%g4253142558%_))) - (let ((_%hd4253542565%_ + _%g4263042649%_))) + (_%g4262842781%_ + (lambda (_%g4263042657%_) + (if (gx#stx-pair? _%g4263042657%_) + (let ((_%e4263342660%_ (gx#syntax-e _%g4263042657%_))) + (let ((_%hd4263442664%_ (let () (declare (not safe)) - (##car _%e4253442561%_))) - (_%tl4253642568%_ + (##car _%e4263342660%_))) + (_%tl4263542667%_ (let () (declare (not safe)) - (##cdr _%e4253442561%_)))) - (if (gx#stx-pair? _%tl4253642568%_) - (let ((_%e4253742571%_ - (gx#syntax-e _%tl4253642568%_))) - (let ((_%hd4253842575%_ + (##cdr _%e4263342660%_)))) + (if (gx#stx-pair? _%tl4263542667%_) + (let ((_%e4263642670%_ + (gx#syntax-e _%tl4263542667%_))) + (let ((_%hd4263742674%_ (let () (declare (not safe)) - (##car _%e4253742571%_))) - (_%tl4253942578%_ + (##car _%e4263642670%_))) + (_%tl4263842677%_ (let () (declare (not safe)) - (##cdr _%e4253742571%_)))) - (if (gx#stx-pair/null? _%tl4253942578%_) - (let ((_g44574_ + (##cdr _%e4263642670%_)))) + (if (gx#stx-pair/null? _%tl4263842677%_) + (let ((_g44673_ (gx#syntax-split-splice - _%tl4253942578%_ + _%tl4263842677%_ '0))) (begin - (let ((_g44575_ + (let ((_g44674_ (let () (declare (not safe)) - (if (##values? _g44574_) - (##vector-length - _g44574_) + (if (##values? _g44673_) + (##values-length + _g44673_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44575_ 2))) + (##fx= _g44674_ 2))) (error "Context expects 2 values" - _g44575_))) - (let ((_%target4254042581%_ + _g44674_))) + (let ((_%target4263942680%_ (let () (declare (not safe)) - (##vector-ref _g44574_ 0))) - (_%tl4254242584%_ + (##values-ref _g44673_ 0))) + (_%tl4264142683%_ (let () (declare (not safe)) - (##vector-ref _g44574_ 1)))) - (if (gx#stx-null? _%tl4254242584%_) - (letrec ((_%loop4254342587%_ - (lambda (_%hd4254142591%_ + (##values-ref _g44673_ 1)))) + (if (gx#stx-null? _%tl4264142683%_) + (letrec ((_%loop4264242686%_ + (lambda (_%hd4264042690%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id4254742594%_) - (if (gx#stx-pair? _%hd4254142591%_) - (let ((_%e4254442597%_ (gx#syntax-e _%hd4254142591%_))) - (let ((_%lp-hd4254542601%_ + _%id4264642693%_) + (if (gx#stx-pair? _%hd4264042690%_) + (let ((_%e4264342696%_ (gx#syntax-e _%hd4264042690%_))) + (let ((_%lp-hd4264442700%_ (let () (declare (not safe)) - (##car _%e4254442597%_))) - (_%lp-tl4254642604%_ + (##car _%e4264342696%_))) + (_%lp-tl4264542703%_ (let () (declare (not safe)) - (##cdr _%e4254442597%_)))) - (_%loop4254342587%_ - _%lp-tl4254642604%_ - (cons _%lp-hd4254542601%_ _%id4254742594%_)))) - (let ((_%id4254842607%_ (reverse _%id4254742594%_))) - ((lambda (_%L42611%_ _%L42613%_) + (##cdr _%e4264342696%_)))) + (_%loop4264242686%_ + _%lp-tl4264542703%_ + (cons _%lp-hd4264442700%_ _%id4264642693%_)))) + (let ((_%id4264742706%_ (reverse _%id4264642693%_))) + ((lambda (_%L42710%_ _%L42712%_) (if (gx#identifier-list? - (foldr (lambda (_%g4263042633%_ - _%g4263142636%_) - (cons _%g4263042633%_ - _%g4263142636%_)) + (foldr (lambda (_%g4272942732%_ + _%g4273042735%_) + (cons _%g4272942732%_ + _%g4273042735%_)) '() - _%L42611%_)) - (let* ((_%keys42647%_ + _%L42710%_)) + (let* ((_%keys42746%_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_%g4263842641%_ - _%g4263942644%_) - (cons _%g4263842641%_ - _%g4263942644%_)) + (foldr (lambda (_%g4273742740%_ + _%g4273842743%_) + (cons _%g4273742740%_ + _%g4273842743%_)) '() - _%L42611%_))) - (_%keytab42658%_ - (let ((_%ht42650%_ (make-hash-table))) + _%L42710%_))) + (_%keytab42757%_ + (let ((_%ht42749%_ (make-hash-table))) (for-each - (lambda (_%g4265242654%_) + (lambda (_%g4275142753%_) (hash-put! - _%ht42650%_ - _%g4265242654%_ + _%ht42749%_ + _%g4275142753%_ '#t)) - _%keys42647%_) - _%ht42650%_)) - (_%imports42661%_ + _%keys42746%_) + _%ht42749%_)) + (_%imports42760%_ (gx#core-expand-import-source - _%L42613%_)) - (_%fold-e42677%_ - (letrec ((_%fold-e42664%_ - (lambda (_%in42667%_ - _%r42669%_) + _%L42712%_)) + (_%fold-e42776%_ + (letrec ((_%fold-e42763%_ + (lambda (_%in42766%_ + _%r42768%_) (if (gx#module-import? - _%in42667%_) + _%in42766%_) (if (hash-get - _%keytab42658%_ + _%keytab42757%_ (gx#module-import-name - _%in42667%_)) - (cons _%in42667%_ + _%in42766%_)) + (cons _%in42766%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r42669%_) - _%r42669%_) - (if (gx#import-set? _%in42667%_) - (foldl _%fold-e42664%_ - _%r42669%_ - (gx#import-set-imports _%in42667%_)) - _%r42669%_))))) + _%r42768%_) + _%r42768%_) + (if (gx#import-set? _%in42766%_) + (foldl _%fold-e42763%_ + _%r42768%_ + (gx#import-set-imports _%in42766%_)) + _%r42768%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e42664%_))) + _%fold-e42763%_))) (cons 'begin: - (foldl _%fold-e42677%_ + (foldl _%fold-e42776%_ '() - _%imports42661%_))) - (_%g4253042554%_ _%g4253142558%_))) - _%id4254842607%_ - _%hd4253842575%_)))))) + _%imports42760%_))) + (_%g4262942653%_ _%g4263042657%_))) + _%id4264742706%_ + _%hd4263742674%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4254342587%_ - _%target4254042581%_ + (_%loop4264242686%_ + _%target4263942680%_ '())) - (_%g4253042554%_ - _%g4253142558%_))))) - (_%g4253042554%_ _%g4253142558%_)))) - (_%g4253042554%_ _%g4253142558%_)))) - (_%g4253042554%_ _%g4253142558%_))))) - (_%g4252942682%_ _%stx42527%_))))) + (_%g4262942653%_ + _%g4263042657%_))))) + (_%g4262942653%_ _%g4263042657%_)))) + (_%g4262942653%_ _%g4263042657%_)))) + (_%g4262942653%_ _%g4263042657%_))))) + (_%g4262842781%_ _%stx42626%_))))) (define |gerbil/core/module-sugar[:0:]#except-in| (gx#make-import-expander - (lambda (_%stx42687%_) - (let* ((_%g4269042714%_ - (lambda (_%g4269142710%_) + (lambda (_%stx42786%_) + (let* ((_%g4278942813%_ + (lambda (_%g4279042809%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4269142710%_))) - (_%g4268942842%_ - (lambda (_%g4269142718%_) - (if (gx#stx-pair? _%g4269142718%_) - (let ((_%e4269442721%_ (gx#syntax-e _%g4269142718%_))) - (let ((_%hd4269542725%_ + _%g4279042809%_))) + (_%g4278842941%_ + (lambda (_%g4279042817%_) + (if (gx#stx-pair? _%g4279042817%_) + (let ((_%e4279342820%_ (gx#syntax-e _%g4279042817%_))) + (let ((_%hd4279442824%_ (let () (declare (not safe)) - (##car _%e4269442721%_))) - (_%tl4269642728%_ + (##car _%e4279342820%_))) + (_%tl4279542827%_ (let () (declare (not safe)) - (##cdr _%e4269442721%_)))) - (if (gx#stx-pair? _%tl4269642728%_) - (let ((_%e4269742731%_ - (gx#syntax-e _%tl4269642728%_))) - (let ((_%hd4269842735%_ + (##cdr _%e4279342820%_)))) + (if (gx#stx-pair? _%tl4279542827%_) + (let ((_%e4279642830%_ + (gx#syntax-e _%tl4279542827%_))) + (let ((_%hd4279742834%_ (let () (declare (not safe)) - (##car _%e4269742731%_))) - (_%tl4269942738%_ + (##car _%e4279642830%_))) + (_%tl4279842837%_ (let () (declare (not safe)) - (##cdr _%e4269742731%_)))) - (if (gx#stx-pair/null? _%tl4269942738%_) - (let ((_g44576_ + (##cdr _%e4279642830%_)))) + (if (gx#stx-pair/null? _%tl4279842837%_) + (let ((_g44675_ (gx#syntax-split-splice - _%tl4269942738%_ + _%tl4279842837%_ '0))) (begin - (let ((_g44577_ + (let ((_g44676_ (let () (declare (not safe)) - (if (##values? _g44576_) - (##vector-length - _g44576_) + (if (##values? _g44675_) + (##values-length + _g44675_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44577_ 2))) + (##fx= _g44676_ 2))) (error "Context expects 2 values" - _g44577_))) - (let ((_%target4270042741%_ + _g44676_))) + (let ((_%target4279942840%_ (let () (declare (not safe)) - (##vector-ref _g44576_ 0))) - (_%tl4270242744%_ + (##values-ref _g44675_ 0))) + (_%tl4280142843%_ (let () (declare (not safe)) - (##vector-ref _g44576_ 1)))) - (if (gx#stx-null? _%tl4270242744%_) - (letrec ((_%loop4270342747%_ - (lambda (_%hd4270142751%_ + (##values-ref _g44675_ 1)))) + (if (gx#stx-null? _%tl4280142843%_) + (letrec ((_%loop4280242846%_ + (lambda (_%hd4280042850%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id4270742754%_) - (if (gx#stx-pair? _%hd4270142751%_) - (let ((_%e4270442757%_ (gx#syntax-e _%hd4270142751%_))) - (let ((_%lp-hd4270542761%_ + _%id4280642853%_) + (if (gx#stx-pair? _%hd4280042850%_) + (let ((_%e4280342856%_ (gx#syntax-e _%hd4280042850%_))) + (let ((_%lp-hd4280442860%_ (let () (declare (not safe)) - (##car _%e4270442757%_))) - (_%lp-tl4270642764%_ + (##car _%e4280342856%_))) + (_%lp-tl4280542863%_ (let () (declare (not safe)) - (##cdr _%e4270442757%_)))) - (_%loop4270342747%_ - _%lp-tl4270642764%_ - (cons _%lp-hd4270542761%_ _%id4270742754%_)))) - (let ((_%id4270842767%_ (reverse _%id4270742754%_))) - ((lambda (_%L42771%_ _%L42773%_) + (##cdr _%e4280342856%_)))) + (_%loop4280242846%_ + _%lp-tl4280542863%_ + (cons _%lp-hd4280442860%_ _%id4280642853%_)))) + (let ((_%id4280742866%_ (reverse _%id4280642853%_))) + ((lambda (_%L42870%_ _%L42872%_) (if (gx#identifier-list? - (foldr (lambda (_%g4279042793%_ - _%g4279142796%_) - (cons _%g4279042793%_ - _%g4279142796%_)) + (foldr (lambda (_%g4288942892%_ + _%g4289042895%_) + (cons _%g4288942892%_ + _%g4289042895%_)) '() - _%L42771%_)) - (let* ((_%keys42807%_ + _%L42870%_)) + (let* ((_%keys42906%_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_%g4279842801%_ - _%g4279942804%_) - (cons _%g4279842801%_ - _%g4279942804%_)) + (foldr (lambda (_%g4289742900%_ + _%g4289842903%_) + (cons _%g4289742900%_ + _%g4289842903%_)) '() - _%L42771%_))) - (_%keytab42818%_ - (let ((_%ht42810%_ (make-hash-table))) + _%L42870%_))) + (_%keytab42917%_ + (let ((_%ht42909%_ (make-hash-table))) (for-each - (lambda (_%g4281242814%_) + (lambda (_%g4291142913%_) (hash-put! - _%ht42810%_ - _%g4281242814%_ + _%ht42909%_ + _%g4291142913%_ '#t)) - _%keys42807%_) - _%ht42810%_)) - (_%imports42821%_ + _%keys42906%_) + _%ht42909%_)) + (_%imports42920%_ (gx#core-expand-import-source - _%L42773%_)) - (_%fold-e42837%_ - (letrec ((_%fold-e42824%_ - (lambda (_%in42827%_ - _%r42829%_) + _%L42872%_)) + (_%fold-e42936%_ + (letrec ((_%fold-e42923%_ + (lambda (_%in42926%_ + _%r42928%_) (if (gx#module-import? - _%in42827%_) + _%in42926%_) (if (hash-get - _%keytab42818%_ + _%keytab42917%_ (gx#module-import-name - _%in42827%_)) - _%r42829%_ - (cons _%in42827%_ + _%in42926%_)) + _%r42928%_ + (cons _%in42926%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r42829%_)) - (if (gx#import-set? _%in42827%_) - (foldl _%fold-e42824%_ - _%r42829%_ - (gx#import-set-imports _%in42827%_)) - (cons _%in42827%_ _%r42829%_)))))) + _%r42928%_)) + (if (gx#import-set? _%in42926%_) + (foldl _%fold-e42923%_ + _%r42928%_ + (gx#import-set-imports _%in42926%_)) + (cons _%in42926%_ _%r42928%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e42824%_))) + _%fold-e42923%_))) (cons 'begin: - (foldl _%fold-e42837%_ + (foldl _%fold-e42936%_ '() - _%imports42821%_))) - (_%g4269042714%_ _%g4269142718%_))) - _%id4270842767%_ - _%hd4269842735%_)))))) + _%imports42920%_))) + (_%g4278942813%_ _%g4279042817%_))) + _%id4280742866%_ + _%hd4279742834%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4270342747%_ - _%target4270042741%_ + (_%loop4280242846%_ + _%target4279942840%_ '())) - (_%g4269042714%_ - _%g4269142718%_))))) - (_%g4269042714%_ _%g4269142718%_)))) - (_%g4269042714%_ _%g4269142718%_)))) - (_%g4269042714%_ _%g4269142718%_))))) - (_%g4268942842%_ _%stx42687%_))))) + (_%g4278942813%_ + _%g4279042817%_))))) + (_%g4278942813%_ _%g4279042817%_)))) + (_%g4278942813%_ _%g4279042817%_)))) + (_%g4278942813%_ _%g4279042817%_))))) + (_%g4278842941%_ _%stx42786%_))))) (define |gerbil/core/module-sugar[1]#module-import-rename| - (lambda (_%in42894%_ _%rename42896%_) + (lambda (_%in42993%_ _%rename42995%_) (gx#make-module-import - (gx#module-import-source _%in42894%_) - _%rename42896%_ - (gx#module-import-phi _%in42894%_) - (gx#module-import-weak? _%in42894%_)))) + (gx#module-import-source _%in42993%_) + _%rename42995%_ + (gx#module-import-phi _%in42993%_) + (gx#module-import-weak? _%in42993%_)))) (define |gerbil/core/module-sugar[1]#prefix-identifier-key| - (lambda (_%name42847%_ _%pre42849%_) - (let* ((_%name4285042858%_ _%name42847%_) - (_%else4285242870%_ - (lambda () (make-symbol _%pre42849%_ _%name42847%_))) - (_%K4285442878%_ - (lambda (_%mark42874%_ _%id42876%_) - (cons (make-symbol _%pre42849%_ _%id42876%_) _%mark42874%_)))) - (if (pair? _%name4285042858%_) - (let ((_%hd4285542882%_ - (let () (declare (not safe)) (##car _%name4285042858%_))) - (_%tl4285642885%_ - (let () (declare (not safe)) (##cdr _%name4285042858%_)))) - (let* ((_%id42888%_ _%hd4285542882%_) - (_%mark42891%_ _%tl4285642885%_)) - (_%K4285442878%_ _%mark42891%_ _%id42888%_))) - (_%else4285242870%_))))) + (lambda (_%name42946%_ _%pre42948%_) + (let* ((_%name4294942957%_ _%name42946%_) + (_%else4295142969%_ + (lambda () (make-symbol _%pre42948%_ _%name42946%_))) + (_%K4295342977%_ + (lambda (_%mark42973%_ _%id42975%_) + (cons (make-symbol _%pre42948%_ _%id42975%_) _%mark42973%_)))) + (if (pair? _%name4294942957%_) + (let ((_%hd4295442981%_ + (let () (declare (not safe)) (##car _%name4294942957%_))) + (_%tl4295542984%_ + (let () (declare (not safe)) (##cdr _%name4294942957%_)))) + (let* ((_%id42987%_ _%hd4295442981%_) + (_%mark42990%_ _%tl4295542984%_)) + (_%K4295342977%_ _%mark42990%_ _%id42987%_))) + (_%else4295142969%_))))) (define |gerbil/core/module-sugar[:0:]#rename-in| (gx#make-import-expander - (lambda (_%stx42898%_) - (let* ((_%g4290142934%_ - (lambda (_%g4290242930%_) + (lambda (_%stx42997%_) + (let* ((_%g4300043033%_ + (lambda (_%g4300143029%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4290242930%_))) - (_%g4290043129%_ - (lambda (_%g4290242938%_) - (if (gx#stx-pair? _%g4290242938%_) - (let ((_%e4290642941%_ (gx#syntax-e _%g4290242938%_))) - (let ((_%hd4290742945%_ + _%g4300143029%_))) + (_%g4299943228%_ + (lambda (_%g4300143037%_) + (if (gx#stx-pair? _%g4300143037%_) + (let ((_%e4300543040%_ (gx#syntax-e _%g4300143037%_))) + (let ((_%hd4300643044%_ (let () (declare (not safe)) - (##car _%e4290642941%_))) - (_%tl4290842948%_ + (##car _%e4300543040%_))) + (_%tl4300743047%_ (let () (declare (not safe)) - (##cdr _%e4290642941%_)))) - (if (gx#stx-pair? _%tl4290842948%_) - (let ((_%e4290942951%_ - (gx#syntax-e _%tl4290842948%_))) - (let ((_%hd4291042955%_ + (##cdr _%e4300543040%_)))) + (if (gx#stx-pair? _%tl4300743047%_) + (let ((_%e4300843050%_ + (gx#syntax-e _%tl4300743047%_))) + (let ((_%hd4300943054%_ (let () (declare (not safe)) - (##car _%e4290942951%_))) - (_%tl4291142958%_ + (##car _%e4300843050%_))) + (_%tl4301043057%_ (let () (declare (not safe)) - (##cdr _%e4290942951%_)))) - (if (gx#stx-pair/null? _%tl4291142958%_) - (let ((_g44578_ + (##cdr _%e4300843050%_)))) + (if (gx#stx-pair/null? _%tl4301043057%_) + (let ((_g44677_ (gx#syntax-split-splice - _%tl4291142958%_ + _%tl4301043057%_ '0))) (begin - (let ((_g44579_ + (let ((_g44678_ (let () (declare (not safe)) - (if (##values? _g44578_) - (##vector-length - _g44578_) + (if (##values? _g44677_) + (##values-length + _g44677_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44579_ 2))) + (##fx= _g44678_ 2))) (error "Context expects 2 values" - _g44579_))) - (let ((_%target4291242961%_ + _g44678_))) + (let ((_%target4301143060%_ (let () (declare (not safe)) - (##vector-ref _g44578_ 0))) - (_%tl4291442964%_ + (##values-ref _g44677_ 0))) + (_%tl4301343063%_ (let () (declare (not safe)) - (##vector-ref _g44578_ 1)))) - (if (gx#stx-null? _%tl4291442964%_) - (letrec ((_%loop4291542967%_ - (lambda (_%hd4291342971%_ + (##values-ref _g44677_ 1)))) + (if (gx#stx-null? _%tl4301343063%_) + (letrec ((_%loop4301443066%_ + (lambda (_%hd4301243070%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%new-id4291942974%_ - _%id4292042976%_) - (if (gx#stx-pair? _%hd4291342971%_) - (let ((_%e4291642979%_ (gx#syntax-e _%hd4291342971%_))) - (let ((_%lp-hd4291742983%_ + _%new-id4301843073%_ + _%id4301943075%_) + (if (gx#stx-pair? _%hd4301243070%_) + (let ((_%e4301543078%_ (gx#syntax-e _%hd4301243070%_))) + (let ((_%lp-hd4301643082%_ (let () (declare (not safe)) - (##car _%e4291642979%_))) - (_%lp-tl4291842986%_ + (##car _%e4301543078%_))) + (_%lp-tl4301743085%_ (let () (declare (not safe)) - (##cdr _%e4291642979%_)))) - (if (gx#stx-pair? _%lp-hd4291742983%_) - (let ((_%e4292342989%_ - (gx#syntax-e _%lp-hd4291742983%_))) - (let ((_%hd4292442993%_ + (##cdr _%e4301543078%_)))) + (if (gx#stx-pair? _%lp-hd4301643082%_) + (let ((_%e4302243088%_ + (gx#syntax-e _%lp-hd4301643082%_))) + (let ((_%hd4302343092%_ (let () (declare (not safe)) - (##car _%e4292342989%_))) - (_%tl4292542996%_ + (##car _%e4302243088%_))) + (_%tl4302443095%_ (let () (declare (not safe)) - (##cdr _%e4292342989%_)))) - (if (gx#stx-pair? _%tl4292542996%_) - (let ((_%e4292642999%_ - (gx#syntax-e _%tl4292542996%_))) - (let ((_%hd4292743003%_ + (##cdr _%e4302243088%_)))) + (if (gx#stx-pair? _%tl4302443095%_) + (let ((_%e4302543098%_ + (gx#syntax-e _%tl4302443095%_))) + (let ((_%hd4302643102%_ (let () (declare (not safe)) - (##car _%e4292642999%_))) - (_%tl4292843006%_ + (##car _%e4302543098%_))) + (_%tl4302743105%_ (let () (declare (not safe)) - (##cdr _%e4292642999%_)))) - (if (gx#stx-null? _%tl4292843006%_) - (_%loop4291542967%_ - _%lp-tl4291842986%_ - (cons _%hd4292743003%_ - _%new-id4291942974%_) - (cons _%hd4292442993%_ - _%id4292042976%_)) - (_%g4290142934%_ - _%g4290242938%_)))) - (_%g4290142934%_ _%g4290242938%_)))) - (_%g4290142934%_ _%g4290242938%_)))) - (let ((_%new-id4292143009%_ - (reverse _%new-id4291942974%_)) - (_%id4292243012%_ (reverse _%id4292042976%_))) - ((lambda (_%L43015%_ _%L43017%_ _%L43018%_) + (##cdr _%e4302543098%_)))) + (if (gx#stx-null? _%tl4302743105%_) + (_%loop4301443066%_ + _%lp-tl4301743085%_ + (cons _%hd4302643102%_ + _%new-id4301843073%_) + (cons _%hd4302343092%_ + _%id4301943075%_)) + (_%g4300043033%_ + _%g4300143037%_)))) + (_%g4300043033%_ _%g4300143037%_)))) + (_%g4300043033%_ _%g4300143037%_)))) + (let ((_%new-id4302043108%_ + (reverse _%new-id4301843073%_)) + (_%id4302143111%_ (reverse _%id4301943075%_))) + ((lambda (_%L43114%_ _%L43116%_ _%L43117%_) (if (and (gx#identifier-list? - (foldr (lambda (_%g4303643039%_ - _%g4303743042%_) - (cons _%g4303643039%_ - _%g4303743042%_)) + (foldr (lambda (_%g4313543138%_ + _%g4313643141%_) + (cons _%g4313543138%_ + _%g4313643141%_)) '() - _%L43017%_)) + _%L43116%_)) (gx#identifier-list? - (foldr (lambda (_%g4304443047%_ - _%g4304543050%_) - (cons _%g4304443047%_ - _%g4304543050%_)) + (foldr (lambda (_%g4314343146%_ + _%g4314443149%_) + (cons _%g4314343146%_ + _%g4314443149%_)) '() - _%L43015%_))) - (let* ((_%keytab43053%_ (make-hash-table)) - (_%found43056%_ (make-hash-table)) - (_%_43079%_ + _%L43114%_))) + (let* ((_%keytab43152%_ (make-hash-table)) + (_%found43155%_ (make-hash-table)) + (_%_43178%_ (for-each - (lambda (_%id43059%_ _%new-id43061%_) + (lambda (_%id43158%_ _%new-id43160%_) (hash-put! - _%keytab43053%_ + _%keytab43152%_ (gx#core-identifier-key - _%id43059%_) + _%id43158%_) (gx#core-identifier-key - _%new-id43061%_))) - (foldr (lambda (_%g4306243065%_ - _%g4306343068%_) - (cons _%g4306243065%_ - _%g4306343068%_)) + _%new-id43160%_))) + (foldr (lambda (_%g4316143164%_ + _%g4316243167%_) + (cons _%g4316143164%_ + _%g4316243167%_)) '() - _%L43017%_) - (foldr (lambda (_%g4307043073%_ - _%g4307143076%_) - (cons _%g4307043073%_ - _%g4307143076%_)) + _%L43116%_) + (foldr (lambda (_%g4316943172%_ + _%g4317043175%_) + (cons _%g4316943172%_ + _%g4317043175%_)) '() - _%L43015%_))) - (_%imports43082%_ + _%L43114%_))) + (_%imports43181%_ (gx#core-expand-import-source - _%L43018%_)) - (_%fold-e43110%_ - (letrec ((_%fold-e43085%_ - (lambda (_%in43088%_ - _%r43090%_) + _%L43117%_)) + (_%fold-e43209%_ + (letrec ((_%fold-e43184%_ + (lambda (_%in43187%_ + _%r43189%_) (if (gx#module-import? - _%in43088%_) - (let* ((_%name43094%_ + _%in43187%_) + (let* ((_%name43193%_ (gx#module-import-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in43088%_)) - (_%$e43097%_ (hash-get _%keytab43053%_ _%name43094%_))) - (if _%$e43097%_ - ((lambda (_%rename43101%_) - (hash-put! _%found43056%_ _%name43094%_ '#t) + _%in43187%_)) + (_%$e43196%_ (hash-get _%keytab43152%_ _%name43193%_))) + (if _%$e43196%_ + ((lambda (_%rename43200%_) + (hash-put! _%found43155%_ _%name43193%_ '#t) (cons (|gerbil/core/module-sugar[1]#module-import-rename| - _%in43088%_ - _%rename43101%_) - _%r43090%_)) - _%$e43097%_) - (cons _%in43088%_ _%r43090%_))) - (if (gx#import-set? _%in43088%_) - (foldl _%fold-e43085%_ - _%r43090%_ - (gx#import-set-imports _%in43088%_)) - (cons _%in43088%_ _%r43090%_)))))) + _%in43187%_ + _%rename43200%_) + _%r43189%_)) + _%$e43196%_) + (cons _%in43187%_ _%r43189%_))) + (if (gx#import-set? _%in43187%_) + (foldl _%fold-e43184%_ + _%r43189%_ + (gx#import-set-imports _%in43187%_)) + (cons _%in43187%_ _%r43189%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e43085%_)) - (_%new-imports43113%_ - (foldl _%fold-e43110%_ + _%fold-e43184%_)) + (_%new-imports43212%_ + (foldl _%fold-e43209%_ '() - _%imports43082%_))) + _%imports43181%_))) (for-each - (lambda (_%id43118%_) + (lambda (_%id43217%_) (if (hash-get - _%found43056%_ - (gx#core-identifier-key _%id43118%_)) + _%found43155%_ + (gx#core-identifier-key _%id43217%_)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the import set" - _%stx42898%_ - _%id43118%_))) - (foldr (lambda (_%g4312043123%_ - _%g4312143126%_) - (cons _%g4312043123%_ - _%g4312143126%_)) + _%stx42997%_ + _%id43217%_))) + (foldr (lambda (_%g4321943222%_ + _%g4322043225%_) + (cons _%g4321943222%_ + _%g4322043225%_)) '() - _%L43017%_)) - (cons 'begin: _%new-imports43113%_)) - (_%g4290142934%_ _%g4290242938%_))) - _%new-id4292143009%_ - _%id4292243012%_ - _%hd4291042955%_)))))) + _%L43116%_)) + (cons 'begin: _%new-imports43212%_)) + (_%g4300043033%_ _%g4300143037%_))) + _%new-id4302043108%_ + _%id4302143111%_ + _%hd4300943054%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4291542967%_ - _%target4291242961%_ + (_%loop4301443066%_ + _%target4301143060%_ '() '())) - (_%g4290142934%_ - _%g4290242938%_))))) - (_%g4290142934%_ _%g4290242938%_)))) - (_%g4290142934%_ _%g4290242938%_)))) - (_%g4290142934%_ _%g4290242938%_))))) - (_%g4290043129%_ _%stx42898%_))))) + (_%g4300043033%_ + _%g4300143037%_))))) + (_%g4300043033%_ _%g4300143037%_)))) + (_%g4300043033%_ _%g4300143037%_)))) + (_%g4300043033%_ _%g4300143037%_))))) + (_%g4299943228%_ _%stx42997%_))))) (define |gerbil/core/module-sugar[:0:]#prefix-in| (gx#make-import-expander - (lambda (_%stx43134%_) - (let* ((_%g4313743155%_ - (lambda (_%g4313843151%_) + (lambda (_%stx43233%_) + (let* ((_%g4323643254%_ + (lambda (_%g4323743250%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4313843151%_))) - (_%g4313643240%_ - (lambda (_%g4313843159%_) - (if (gx#stx-pair? _%g4313843159%_) - (let ((_%e4314143162%_ (gx#syntax-e _%g4313843159%_))) - (let ((_%hd4314243166%_ + _%g4323743250%_))) + (_%g4323543339%_ + (lambda (_%g4323743258%_) + (if (gx#stx-pair? _%g4323743258%_) + (let ((_%e4324043261%_ (gx#syntax-e _%g4323743258%_))) + (let ((_%hd4324143265%_ (let () (declare (not safe)) - (##car _%e4314143162%_))) - (_%tl4314343169%_ + (##car _%e4324043261%_))) + (_%tl4324243268%_ (let () (declare (not safe)) - (##cdr _%e4314143162%_)))) - (if (gx#stx-pair? _%tl4314343169%_) - (let ((_%e4314443172%_ - (gx#syntax-e _%tl4314343169%_))) - (let ((_%hd4314543176%_ + (##cdr _%e4324043261%_)))) + (if (gx#stx-pair? _%tl4324243268%_) + (let ((_%e4324343271%_ + (gx#syntax-e _%tl4324243268%_))) + (let ((_%hd4324443275%_ (let () (declare (not safe)) - (##car _%e4314443172%_))) - (_%tl4314643179%_ + (##car _%e4324343271%_))) + (_%tl4324543278%_ (let () (declare (not safe)) - (##cdr _%e4314443172%_)))) - (if (gx#stx-pair? _%tl4314643179%_) - (let ((_%e4314743182%_ - (gx#syntax-e _%tl4314643179%_))) - (let ((_%hd4314843186%_ + (##cdr _%e4324343271%_)))) + (if (gx#stx-pair? _%tl4324543278%_) + (let ((_%e4324643281%_ + (gx#syntax-e _%tl4324543278%_))) + (let ((_%hd4324743285%_ (let () (declare (not safe)) - (##car _%e4314743182%_))) - (_%tl4314943189%_ + (##car _%e4324643281%_))) + (_%tl4324843288%_ (let () (declare (not safe)) - (##cdr _%e4314743182%_)))) - (if (gx#stx-null? _%tl4314943189%_) - ((lambda (_%L43192%_ _%L43194%_) - (if (gx#identifier? _%L43192%_) - (let* ((_%pre43210%_ + (##cdr _%e4324643281%_)))) + (if (gx#stx-null? _%tl4324843288%_) + ((lambda (_%L43291%_ _%L43293%_) + (if (gx#identifier? _%L43291%_) + (let* ((_%pre43309%_ (gx#stx-e - _%L43192%_)) - (_%imports43213%_ + _%L43291%_)) + (_%imports43312%_ (gx#core-expand-import-source - _%L43194%_)) - (_%rename-e43219%_ - (lambda (_%name43216%_) + _%L43293%_)) + (_%rename-e43318%_ + (lambda (_%name43315%_) (|gerbil/core/module-sugar[1]#prefix-identifier-key| - _%name43216%_ - _%pre43210%_))) - (_%fold-e43235%_ - (letrec ((_%fold-e43222%_ + _%name43315%_ + _%pre43309%_))) + (_%fold-e43334%_ + (letrec ((_%fold-e43321%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%in43225%_ _%r43227%_) - (if (gx#module-import? _%in43225%_) + (lambda (_%in43324%_ _%r43326%_) + (if (gx#module-import? _%in43324%_) (cons (|gerbil/core/module-sugar[1]#module-import-rename| - _%in43225%_ - (_%rename-e43219%_ + _%in43324%_ + (_%rename-e43318%_ (gx#module-import-name - _%in43225%_))) - _%r43227%_) - (if (gx#import-set? _%in43225%_) - (foldl _%fold-e43222%_ - _%r43227%_ + _%in43324%_))) + _%r43326%_) + (if (gx#import-set? _%in43324%_) + (foldl _%fold-e43321%_ + _%r43326%_ (gx#import-set-imports - _%in43225%_)) - (cons _%in43225%_ _%r43227%_)))))) - _%fold-e43222%_))) - (cons 'begin: (foldl _%fold-e43235%_ '() _%imports43213%_))) + _%in43324%_)) + (cons _%in43324%_ _%r43326%_)))))) + _%fold-e43321%_))) + (cons 'begin: (foldl _%fold-e43334%_ '() _%imports43312%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4313743155%_ - _%g4313843159%_))) - _%hd4314843186%_ - _%hd4314543176%_) - (_%g4313743155%_ - _%g4313843159%_)))) - (_%g4313743155%_ _%g4313843159%_)))) - (_%g4313743155%_ _%g4313843159%_)))) - (_%g4313743155%_ _%g4313843159%_))))) - (_%g4313643240%_ _%stx43134%_))))) + (_%g4323643254%_ + _%g4323743258%_))) + _%hd4324743285%_ + _%hd4324443275%_) + (_%g4323643254%_ + _%g4323743258%_)))) + (_%g4323643254%_ _%g4323743258%_)))) + (_%g4323643254%_ _%g4323743258%_)))) + (_%g4323643254%_ _%g4323743258%_))))) + (_%g4323543339%_ _%stx43233%_))))) (define |gerbil/core/module-sugar[:0:]#group-in| (gx#make-import-expander - (lambda (_%stx43244%_) - (letrec ((_%flatten43247%_ - (lambda (_%list-of-lists43502%_) - (foldr (lambda (_%v43505%_ _%acc43507%_) - (if (null? _%v43505%_) - _%acc43507%_ - (if (pair? _%v43505%_) - (append (_%flatten43247%_ _%v43505%_) - _%acc43507%_) - (cons _%v43505%_ _%acc43507%_)))) + (lambda (_%stx43343%_) + (letrec ((_%flatten43346%_ + (lambda (_%list-of-lists43601%_) + (foldr (lambda (_%v43604%_ _%acc43606%_) + (if (null? _%v43604%_) + _%acc43606%_ + (if (pair? _%v43604%_) + (append (_%flatten43346%_ _%v43604%_) + _%acc43606%_) + (cons _%v43604%_ _%acc43606%_)))) '() - _%list-of-lists43502%_))) - (_%expand-path43249%_ - (lambda (_%top43370%_ _%mod43372%_) - (let* ((_%__stx4447844479%_ _%mod43372%_) - (_%g4337543397%_ + _%list-of-lists43601%_))) + (_%expand-path43348%_ + (lambda (_%top43469%_ _%mod43471%_) + (let* ((_%__stx4457744578%_ _%mod43471%_) + (_%g4347443496%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4447844479%_)))) - (let ((_%__kont4448144482%_ - (lambda (_%L43465%_ _%L43467%_) - (map (lambda (_%mod43482%_) + _%__stx4457744578%_)))) + (let ((_%__kont4458044581%_ + (lambda (_%L43564%_ _%L43566%_) + (map (lambda (_%mod43581%_) (gx#stx-identifier - _%top43370%_ - _%top43370%_ + _%top43469%_ + _%top43469%_ '"/" - _%mod43482%_)) - (_%flatten43247%_ - (map (lambda (_%g4348443486%_) - (_%expand-path43249%_ - _%L43467%_ - _%g4348443486%_)) - (foldr (lambda (_%g4348943492%_ - _%g4349043495%_) - (cons _%g4348943492%_ - _%g4349043495%_)) + _%mod43581%_)) + (_%flatten43346%_ + (map (lambda (_%g4358343585%_) + (_%expand-path43348%_ + _%L43566%_ + _%g4358343585%_)) + (foldr (lambda (_%g4358843591%_ + _%g4358943594%_) + (cons _%g4358843591%_ + _%g4358943594%_)) '() - _%L43465%_)))))) - (_%__kont4448544486%_ - (lambda (_%L43404%_) + _%L43564%_)))))) + (_%__kont4458444585%_ + (lambda (_%L43503%_) (gx#stx-identifier - _%top43370%_ - _%top43370%_ + _%top43469%_ + _%top43469%_ '"/" - _%L43404%_)))) - (let* ((_%g4337443418%_ + _%L43503%_)))) + (let* ((_%g4347343517%_ (lambda () - (let ((_%L43404%_ _%__stx4447844479%_)) - (if (or (gx#identifier? _%L43404%_) - (gx#stx-fixnum? _%L43404%_)) - (_%__kont4448544486%_ _%L43404%_) + (let ((_%L43503%_ _%__stx4457744578%_)) + (if (or (gx#identifier? _%L43503%_) + (gx#stx-fixnum? _%L43503%_)) + (_%__kont4458444585%_ _%L43503%_) (let () (declare (not safe)) - (_%g4337543397%_)))))) - (_%__match4450144502%_ - (lambda (_%e4337943425%_ - _%hd4338043429%_ - _%tl4338143432%_ - _%__splice4448344484%_ - _%target4338243435%_ - _%tl4338443438%_) - (letrec ((_%loop4338543441%_ - (lambda (_%hd4338343445%_ - _%mod4338943448%_) + (_%g4347443496%_)))))) + (_%__match4460044601%_ + (lambda (_%e4347843524%_ + _%hd4347943528%_ + _%tl4348043531%_ + _%__splice4458244583%_ + _%target4348143534%_ + _%tl4348343537%_) + (letrec ((_%loop4348443540%_ + (lambda (_%hd4348243544%_ + _%mod4348843547%_) (if (gx#stx-pair? - _%hd4338343445%_) - (let ((_%e4338643451%_ + _%hd4348243544%_) + (let ((_%e4348543550%_ (gx#syntax-e - _%hd4338343445%_))) - (let ((_%lp-tl4338843458%_ + _%hd4348243544%_))) + (let ((_%lp-tl4348743557%_ (let () (declare (not safe)) - (##cdr _%e4338643451%_))) - (_%lp-hd4338743455%_ + (##cdr _%e4348543550%_))) + (_%lp-hd4348643554%_ (let () (declare (not safe)) - (##car _%e4338643451%_)))) - (_%loop4338543441%_ - _%lp-tl4338843458%_ - (cons _%lp-hd4338743455%_ - _%mod4338943448%_)))) - (let ((_%mod4339043461%_ - (reverse _%mod4338943448%_))) - (_%__kont4448144482%_ - _%mod4339043461%_ - _%hd4338043429%_)))))) - (_%loop4338543441%_ - _%target4338243435%_ + (##car _%e4348543550%_)))) + (_%loop4348443540%_ + _%lp-tl4348743557%_ + (cons _%lp-hd4348643554%_ + _%mod4348843547%_)))) + (let ((_%mod4348943560%_ + (reverse _%mod4348843547%_))) + (_%__kont4458044581%_ + _%mod4348943560%_ + _%hd4347943528%_)))))) + (_%loop4348443540%_ + _%target4348143534%_ '()))))) - (if (gx#stx-pair? _%__stx4447844479%_) - (let ((_%e4337943425%_ - (gx#syntax-e _%__stx4447844479%_))) - (let ((_%tl4338143432%_ + (if (gx#stx-pair? _%__stx4457744578%_) + (let ((_%e4347843524%_ + (gx#syntax-e _%__stx4457744578%_))) + (let ((_%tl4348043531%_ (let () (declare (not safe)) - (##cdr _%e4337943425%_))) - (_%hd4338043429%_ + (##cdr _%e4347843524%_))) + (_%hd4347943528%_ (let () (declare (not safe)) - (##car _%e4337943425%_)))) - (if (gx#stx-pair/null? _%tl4338143432%_) - (let ((_%__splice4448344484%_ + (##car _%e4347843524%_)))) + (if (gx#stx-pair/null? _%tl4348043531%_) + (let ((_%__splice4458244583%_ (gx#syntax-split-splice - _%tl4338143432%_ + _%tl4348043531%_ '0))) - (let ((_%tl4338443438%_ + (let ((_%tl4348343537%_ (let () (declare (not safe)) (##vector-ref - _%__splice4448344484%_ + _%__splice4458244583%_ '1))) - (_%target4338243435%_ + (_%target4348143534%_ (let () (declare (not safe)) (##vector-ref - _%__splice4448344484%_ + _%__splice4458244583%_ '0)))) - (if (gx#stx-null? _%tl4338443438%_) - (_%__match4450144502%_ - _%e4337943425%_ - _%hd4338043429%_ - _%tl4338143432%_ - _%__splice4448344484%_ - _%target4338243435%_ - _%tl4338443438%_) + (if (gx#stx-null? _%tl4348343537%_) + (_%__match4460044601%_ + _%e4347843524%_ + _%hd4347943528%_ + _%tl4348043531%_ + _%__splice4458244583%_ + _%target4348143534%_ + _%tl4348343537%_) (let () (declare (not safe)) - (_%g4337443418%_))))) + (_%g4347343517%_))))) (let () (declare (not safe)) - (_%g4337443418%_))))) + (_%g4347343517%_))))) (let () (declare (not safe)) - (_%g4337443418%_))))))))) - (let* ((_%g4325143275%_ - (lambda (_%g4325243271%_) + (_%g4347343517%_))))))))) + (let* ((_%g4335043374%_ + (lambda (_%g4335143370%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4325243271%_))) - (_%g4325043366%_ - (lambda (_%g4325243279%_) - (if (gx#stx-pair? _%g4325243279%_) - (let ((_%e4325543282%_ (gx#syntax-e _%g4325243279%_))) - (let ((_%hd4325643286%_ + _%g4335143370%_))) + (_%g4334943465%_ + (lambda (_%g4335143378%_) + (if (gx#stx-pair? _%g4335143378%_) + (let ((_%e4335443381%_ (gx#syntax-e _%g4335143378%_))) + (let ((_%hd4335543385%_ (let () (declare (not safe)) - (##car _%e4325543282%_))) - (_%tl4325743289%_ + (##car _%e4335443381%_))) + (_%tl4335643388%_ (let () (declare (not safe)) - (##cdr _%e4325543282%_)))) - (if (gx#stx-pair? _%tl4325743289%_) - (let ((_%e4325843292%_ - (gx#syntax-e _%tl4325743289%_))) - (let ((_%hd4325943296%_ + (##cdr _%e4335443381%_)))) + (if (gx#stx-pair? _%tl4335643388%_) + (let ((_%e4335743391%_ + (gx#syntax-e _%tl4335643388%_))) + (let ((_%hd4335843395%_ (let () (declare (not safe)) - (##car _%e4325843292%_))) - (_%tl4326043299%_ + (##car _%e4335743391%_))) + (_%tl4335943398%_ (let () (declare (not safe)) - (##cdr _%e4325843292%_)))) - (if (gx#stx-pair/null? _%tl4326043299%_) - (let ((_g44580_ + (##cdr _%e4335743391%_)))) + (if (gx#stx-pair/null? _%tl4335943398%_) + (let ((_g44679_ (gx#syntax-split-splice - _%tl4326043299%_ + _%tl4335943398%_ '0))) (begin - (let ((_g44581_ + (let ((_g44680_ (let () (declare (not safe)) - (if (##values? _g44580_) - (##vector-length - _g44580_) + (if (##values? _g44679_) + (##values-length + _g44679_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44581_ 2))) + (##fx= _g44680_ 2))) (error "Context expects 2 values" - _g44581_))) - (let ((_%target4326143302%_ + _g44680_))) + (let ((_%target4336043401%_ (let () (declare (not safe)) - (##vector-ref _g44580_ 0))) - (_%tl4326343305%_ + (##values-ref _g44679_ 0))) + (_%tl4336243404%_ (let () (declare (not safe)) - (##vector-ref - _g44580_ + (##values-ref + _g44679_ 1)))) (if (gx#stx-null? - _%tl4326343305%_) - (letrec ((_%loop4326443308%_ - (lambda (_%hd4326243312%_ + _%tl4336243404%_) + (letrec ((_%loop4336343407%_ + (lambda (_%hd4336143411%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%mod4326843315%_) - (if (gx#stx-pair? _%hd4326243312%_) - (let ((_%e4326543318%_ - (gx#syntax-e _%hd4326243312%_))) - (let ((_%lp-hd4326643322%_ + _%mod4336743414%_) + (if (gx#stx-pair? _%hd4336143411%_) + (let ((_%e4336443417%_ + (gx#syntax-e _%hd4336143411%_))) + (let ((_%lp-hd4336543421%_ (let () (declare (not safe)) - (##car _%e4326543318%_))) - (_%lp-tl4326743325%_ + (##car _%e4336443417%_))) + (_%lp-tl4336643424%_ (let () (declare (not safe)) - (##cdr _%e4326543318%_)))) - (_%loop4326443308%_ - _%lp-tl4326743325%_ - (cons _%lp-hd4326643322%_ _%mod4326843315%_)))) - (let ((_%mod4326943328%_ (reverse _%mod4326843315%_))) - ((lambda (_%L43332%_ _%L43334%_) + (##cdr _%e4336443417%_)))) + (_%loop4336343407%_ + _%lp-tl4336643424%_ + (cons _%lp-hd4336543421%_ _%mod4336743414%_)))) + (let ((_%mod4336843427%_ (reverse _%mod4336743414%_))) + ((lambda (_%L43431%_ _%L43433%_) (cons 'begin: - (_%flatten43247%_ - (map (lambda (_%g4335243354%_) - (_%expand-path43249%_ - _%L43334%_ - _%g4335243354%_)) - (foldr (lambda (_%g4335743360%_ - _%g4335843363%_) - (cons _%g4335743360%_ - _%g4335843363%_)) + (_%flatten43346%_ + (map (lambda (_%g4345143453%_) + (_%expand-path43348%_ + _%L43433%_ + _%g4345143453%_)) + (foldr (lambda (_%g4345643459%_ + _%g4345743462%_) + (cons _%g4345643459%_ + _%g4345743462%_)) '() - _%L43332%_))))) - _%mod4326943328%_ - _%hd4325943296%_)))))) + _%L43431%_))))) + _%mod4336843427%_ + _%hd4335843395%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4326443308%_ - _%target4326143302%_ + (_%loop4336343407%_ + _%target4336043401%_ '())) - (_%g4325143275%_ - _%g4325243279%_))))) - (_%g4325143275%_ _%g4325243279%_)))) - (_%g4325143275%_ _%g4325243279%_)))) - (_%g4325143275%_ _%g4325243279%_))))) - (_%g4325043366%_ _%stx43244%_)))))) + (_%g4335043374%_ + _%g4335143378%_))))) + (_%g4335043374%_ _%g4335143378%_)))) + (_%g4335043374%_ _%g4335143378%_)))) + (_%g4335043374%_ _%g4335143378%_))))) + (_%g4334943465%_ _%stx43343%_)))))) (define |gerbil/core/module-sugar[:0:]#except-out| (gx#make-export-expander - (lambda (_%stx43517%_) - (let* ((_%g4352043544%_ - (lambda (_%g4352143540%_) + (lambda (_%stx43616%_) + (let* ((_%g4361943643%_ + (lambda (_%g4362043639%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4352143540%_))) - (_%g4351943672%_ - (lambda (_%g4352143548%_) - (if (gx#stx-pair? _%g4352143548%_) - (let ((_%e4352443551%_ (gx#syntax-e _%g4352143548%_))) - (let ((_%hd4352543555%_ + _%g4362043639%_))) + (_%g4361843771%_ + (lambda (_%g4362043647%_) + (if (gx#stx-pair? _%g4362043647%_) + (let ((_%e4362343650%_ (gx#syntax-e _%g4362043647%_))) + (let ((_%hd4362443654%_ (let () (declare (not safe)) - (##car _%e4352443551%_))) - (_%tl4352643558%_ + (##car _%e4362343650%_))) + (_%tl4362543657%_ (let () (declare (not safe)) - (##cdr _%e4352443551%_)))) - (if (gx#stx-pair? _%tl4352643558%_) - (let ((_%e4352743561%_ - (gx#syntax-e _%tl4352643558%_))) - (let ((_%hd4352843565%_ + (##cdr _%e4362343650%_)))) + (if (gx#stx-pair? _%tl4362543657%_) + (let ((_%e4362643660%_ + (gx#syntax-e _%tl4362543657%_))) + (let ((_%hd4362743664%_ (let () (declare (not safe)) - (##car _%e4352743561%_))) - (_%tl4352943568%_ + (##car _%e4362643660%_))) + (_%tl4362843667%_ (let () (declare (not safe)) - (##cdr _%e4352743561%_)))) - (if (gx#stx-pair/null? _%tl4352943568%_) - (let ((_g44582_ + (##cdr _%e4362643660%_)))) + (if (gx#stx-pair/null? _%tl4362843667%_) + (let ((_g44681_ (gx#syntax-split-splice - _%tl4352943568%_ + _%tl4362843667%_ '0))) (begin - (let ((_g44583_ + (let ((_g44682_ (let () (declare (not safe)) - (if (##values? _g44582_) - (##vector-length - _g44582_) + (if (##values? _g44681_) + (##values-length + _g44681_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44583_ 2))) + (##fx= _g44682_ 2))) (error "Context expects 2 values" - _g44583_))) - (let ((_%target4353043571%_ + _g44682_))) + (let ((_%target4362943670%_ (let () (declare (not safe)) - (##vector-ref _g44582_ 0))) - (_%tl4353243574%_ + (##values-ref _g44681_ 0))) + (_%tl4363143673%_ (let () (declare (not safe)) - (##vector-ref _g44582_ 1)))) - (if (gx#stx-null? _%tl4353243574%_) - (letrec ((_%loop4353343577%_ - (lambda (_%hd4353143581%_ + (##values-ref _g44681_ 1)))) + (if (gx#stx-null? _%tl4363143673%_) + (letrec ((_%loop4363243676%_ + (lambda (_%hd4363043680%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id4353743584%_) - (if (gx#stx-pair? _%hd4353143581%_) - (let ((_%e4353443587%_ (gx#syntax-e _%hd4353143581%_))) - (let ((_%lp-hd4353543591%_ + _%id4363643683%_) + (if (gx#stx-pair? _%hd4363043680%_) + (let ((_%e4363343686%_ (gx#syntax-e _%hd4363043680%_))) + (let ((_%lp-hd4363443690%_ (let () (declare (not safe)) - (##car _%e4353443587%_))) - (_%lp-tl4353643594%_ + (##car _%e4363343686%_))) + (_%lp-tl4363543693%_ (let () (declare (not safe)) - (##cdr _%e4353443587%_)))) - (_%loop4353343577%_ - _%lp-tl4353643594%_ - (cons _%lp-hd4353543591%_ _%id4353743584%_)))) - (let ((_%id4353843597%_ (reverse _%id4353743584%_))) - ((lambda (_%L43601%_ _%L43603%_) + (##cdr _%e4363343686%_)))) + (_%loop4363243676%_ + _%lp-tl4363543693%_ + (cons _%lp-hd4363443690%_ _%id4363643683%_)))) + (let ((_%id4363743696%_ (reverse _%id4363643683%_))) + ((lambda (_%L43700%_ _%L43702%_) (if (gx#identifier-list? - (foldr (lambda (_%g4362043623%_ - _%g4362143626%_) - (cons _%g4362043623%_ - _%g4362143626%_)) + (foldr (lambda (_%g4371943722%_ + _%g4372043725%_) + (cons _%g4371943722%_ + _%g4372043725%_)) '() - _%L43601%_)) - (let* ((_%keys43637%_ + _%L43700%_)) + (let* ((_%keys43736%_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_%g4362843631%_ - _%g4362943634%_) - (cons _%g4362843631%_ - _%g4362943634%_)) + (foldr (lambda (_%g4372743730%_ + _%g4372843733%_) + (cons _%g4372743730%_ + _%g4372843733%_)) '() - _%L43601%_))) - (_%keytab43648%_ - (let ((_%ht43640%_ (make-hash-table))) + _%L43700%_))) + (_%keytab43747%_ + (let ((_%ht43739%_ (make-hash-table))) (for-each - (lambda (_%g4364243644%_) + (lambda (_%g4374143743%_) (hash-put! - _%ht43640%_ - _%g4364243644%_ + _%ht43739%_ + _%g4374143743%_ '#t)) - _%keys43637%_) - _%ht43640%_)) - (_%exports43651%_ + _%keys43736%_) + _%ht43739%_)) + (_%exports43750%_ (gx#core-expand-export-source - _%L43603%_)) - (_%fold-e43667%_ - (letrec ((_%fold-e43654%_ - (lambda (_%out43657%_ - _%r43659%_) + _%L43702%_)) + (_%fold-e43766%_ + (letrec ((_%fold-e43753%_ + (lambda (_%out43756%_ + _%r43758%_) (if (gx#module-export? - _%out43657%_) + _%out43756%_) (if (hash-get - _%keytab43648%_ + _%keytab43747%_ (gx#module-export-name - _%out43657%_)) - _%r43659%_ - (cons _%out43657%_ + _%out43756%_)) + _%r43758%_ + (cons _%out43756%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r43659%_)) - (if (gx#export-set? _%out43657%_) - (foldl _%fold-e43654%_ - _%r43659%_ - (gx#export-set-exports _%out43657%_)) - _%r43659%_))))) + _%r43758%_)) + (if (gx#export-set? _%out43756%_) + (foldl _%fold-e43753%_ + _%r43758%_ + (gx#export-set-exports _%out43756%_)) + _%r43758%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e43654%_))) + _%fold-e43753%_))) (cons 'begin: - (foldl _%fold-e43667%_ + (foldl _%fold-e43766%_ '() - _%exports43651%_))) - (_%g4352043544%_ _%g4352143548%_))) - _%id4353843597%_ - _%hd4352843565%_)))))) + _%exports43750%_))) + (_%g4361943643%_ _%g4362043647%_))) + _%id4363743696%_ + _%hd4362743664%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4353343577%_ - _%target4353043571%_ + (_%loop4363243676%_ + _%target4362943670%_ '())) - (_%g4352043544%_ - _%g4352143548%_))))) - (_%g4352043544%_ _%g4352143548%_)))) - (_%g4352043544%_ _%g4352143548%_)))) - (_%g4352043544%_ _%g4352143548%_))))) - (_%g4351943672%_ _%stx43517%_))))) + (_%g4361943643%_ + _%g4362043647%_))))) + (_%g4361943643%_ _%g4362043647%_)))) + (_%g4361943643%_ _%g4362043647%_)))) + (_%g4361943643%_ _%g4362043647%_))))) + (_%g4361843771%_ _%stx43616%_))))) (define |gerbil/core/module-sugar[1]#module-export-rename| - (lambda (_%out43677%_ _%rename43679%_) + (lambda (_%out43776%_ _%rename43778%_) (gx#make-module-export - (gx#module-export-context _%out43677%_) - (gx#module-export-key _%out43677%_) - (gx#module-export-phi _%out43677%_) - _%rename43679%_ - (gx#module-export-weak? _%out43677%_)))) + (gx#module-export-context _%out43776%_) + (gx#module-export-key _%out43776%_) + (gx#module-export-phi _%out43776%_) + _%rename43778%_ + (gx#module-export-weak? _%out43776%_)))) (define |gerbil/core/module-sugar[:0:]#rename-out| (gx#make-export-expander - (lambda (_%stx43681%_) - (let* ((_%g4368443717%_ - (lambda (_%g4368543713%_) + (lambda (_%stx43780%_) + (let* ((_%g4378343816%_ + (lambda (_%g4378443812%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4368543713%_))) - (_%g4368343912%_ - (lambda (_%g4368543721%_) - (if (gx#stx-pair? _%g4368543721%_) - (let ((_%e4368943724%_ (gx#syntax-e _%g4368543721%_))) - (let ((_%hd4369043728%_ + _%g4378443812%_))) + (_%g4378244011%_ + (lambda (_%g4378443820%_) + (if (gx#stx-pair? _%g4378443820%_) + (let ((_%e4378843823%_ (gx#syntax-e _%g4378443820%_))) + (let ((_%hd4378943827%_ (let () (declare (not safe)) - (##car _%e4368943724%_))) - (_%tl4369143731%_ + (##car _%e4378843823%_))) + (_%tl4379043830%_ (let () (declare (not safe)) - (##cdr _%e4368943724%_)))) - (if (gx#stx-pair? _%tl4369143731%_) - (let ((_%e4369243734%_ - (gx#syntax-e _%tl4369143731%_))) - (let ((_%hd4369343738%_ + (##cdr _%e4378843823%_)))) + (if (gx#stx-pair? _%tl4379043830%_) + (let ((_%e4379143833%_ + (gx#syntax-e _%tl4379043830%_))) + (let ((_%hd4379243837%_ (let () (declare (not safe)) - (##car _%e4369243734%_))) - (_%tl4369443741%_ + (##car _%e4379143833%_))) + (_%tl4379343840%_ (let () (declare (not safe)) - (##cdr _%e4369243734%_)))) - (if (gx#stx-pair/null? _%tl4369443741%_) - (let ((_g44584_ + (##cdr _%e4379143833%_)))) + (if (gx#stx-pair/null? _%tl4379343840%_) + (let ((_g44683_ (gx#syntax-split-splice - _%tl4369443741%_ + _%tl4379343840%_ '0))) (begin - (let ((_g44585_ + (let ((_g44684_ (let () (declare (not safe)) - (if (##values? _g44584_) - (##vector-length - _g44584_) + (if (##values? _g44683_) + (##values-length + _g44683_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44585_ 2))) + (##fx= _g44684_ 2))) (error "Context expects 2 values" - _g44585_))) - (let ((_%target4369543744%_ + _g44684_))) + (let ((_%target4379443843%_ (let () (declare (not safe)) - (##vector-ref _g44584_ 0))) - (_%tl4369743747%_ + (##values-ref _g44683_ 0))) + (_%tl4379643846%_ (let () (declare (not safe)) - (##vector-ref _g44584_ 1)))) - (if (gx#stx-null? _%tl4369743747%_) - (letrec ((_%loop4369843750%_ - (lambda (_%hd4369643754%_ + (##values-ref _g44683_ 1)))) + (if (gx#stx-null? _%tl4379643846%_) + (letrec ((_%loop4379743849%_ + (lambda (_%hd4379543853%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%new-id4370243757%_ - _%id4370343759%_) - (if (gx#stx-pair? _%hd4369643754%_) - (let ((_%e4369943762%_ (gx#syntax-e _%hd4369643754%_))) - (let ((_%lp-hd4370043766%_ + _%new-id4380143856%_ + _%id4380243858%_) + (if (gx#stx-pair? _%hd4379543853%_) + (let ((_%e4379843861%_ (gx#syntax-e _%hd4379543853%_))) + (let ((_%lp-hd4379943865%_ (let () (declare (not safe)) - (##car _%e4369943762%_))) - (_%lp-tl4370143769%_ + (##car _%e4379843861%_))) + (_%lp-tl4380043868%_ (let () (declare (not safe)) - (##cdr _%e4369943762%_)))) - (if (gx#stx-pair? _%lp-hd4370043766%_) - (let ((_%e4370643772%_ - (gx#syntax-e _%lp-hd4370043766%_))) - (let ((_%hd4370743776%_ + (##cdr _%e4379843861%_)))) + (if (gx#stx-pair? _%lp-hd4379943865%_) + (let ((_%e4380543871%_ + (gx#syntax-e _%lp-hd4379943865%_))) + (let ((_%hd4380643875%_ (let () (declare (not safe)) - (##car _%e4370643772%_))) - (_%tl4370843779%_ + (##car _%e4380543871%_))) + (_%tl4380743878%_ (let () (declare (not safe)) - (##cdr _%e4370643772%_)))) - (if (gx#stx-pair? _%tl4370843779%_) - (let ((_%e4370943782%_ - (gx#syntax-e _%tl4370843779%_))) - (let ((_%hd4371043786%_ + (##cdr _%e4380543871%_)))) + (if (gx#stx-pair? _%tl4380743878%_) + (let ((_%e4380843881%_ + (gx#syntax-e _%tl4380743878%_))) + (let ((_%hd4380943885%_ (let () (declare (not safe)) - (##car _%e4370943782%_))) - (_%tl4371143789%_ + (##car _%e4380843881%_))) + (_%tl4381043888%_ (let () (declare (not safe)) - (##cdr _%e4370943782%_)))) - (if (gx#stx-null? _%tl4371143789%_) - (_%loop4369843750%_ - _%lp-tl4370143769%_ - (cons _%hd4371043786%_ - _%new-id4370243757%_) - (cons _%hd4370743776%_ - _%id4370343759%_)) - (_%g4368443717%_ - _%g4368543721%_)))) - (_%g4368443717%_ _%g4368543721%_)))) - (_%g4368443717%_ _%g4368543721%_)))) - (let ((_%new-id4370443792%_ - (reverse _%new-id4370243757%_)) - (_%id4370543795%_ (reverse _%id4370343759%_))) - ((lambda (_%L43798%_ _%L43800%_ _%L43801%_) + (##cdr _%e4380843881%_)))) + (if (gx#stx-null? _%tl4381043888%_) + (_%loop4379743849%_ + _%lp-tl4380043868%_ + (cons _%hd4380943885%_ + _%new-id4380143856%_) + (cons _%hd4380643875%_ + _%id4380243858%_)) + (_%g4378343816%_ + _%g4378443820%_)))) + (_%g4378343816%_ _%g4378443820%_)))) + (_%g4378343816%_ _%g4378443820%_)))) + (let ((_%new-id4380343891%_ + (reverse _%new-id4380143856%_)) + (_%id4380443894%_ (reverse _%id4380243858%_))) + ((lambda (_%L43897%_ _%L43899%_ _%L43900%_) (if (and (gx#identifier-list? - (foldr (lambda (_%g4381943822%_ - _%g4382043825%_) - (cons _%g4381943822%_ - _%g4382043825%_)) + (foldr (lambda (_%g4391843921%_ + _%g4391943924%_) + (cons _%g4391843921%_ + _%g4391943924%_)) '() - _%L43800%_)) + _%L43899%_)) (gx#identifier-list? - (foldr (lambda (_%g4382743830%_ - _%g4382843833%_) - (cons _%g4382743830%_ - _%g4382843833%_)) + (foldr (lambda (_%g4392643929%_ + _%g4392743932%_) + (cons _%g4392643929%_ + _%g4392743932%_)) '() - _%L43798%_))) - (let* ((_%keytab43836%_ (make-hash-table)) - (_%found43839%_ (make-hash-table)) - (_%_43862%_ + _%L43897%_))) + (let* ((_%keytab43935%_ (make-hash-table)) + (_%found43938%_ (make-hash-table)) + (_%_43961%_ (for-each - (lambda (_%id43842%_ _%new-id43844%_) + (lambda (_%id43941%_ _%new-id43943%_) (hash-put! - _%keytab43836%_ + _%keytab43935%_ (gx#core-identifier-key - _%id43842%_) + _%id43941%_) (gx#core-identifier-key - _%new-id43844%_))) - (foldr (lambda (_%g4384543848%_ - _%g4384643851%_) - (cons _%g4384543848%_ - _%g4384643851%_)) + _%new-id43943%_))) + (foldr (lambda (_%g4394443947%_ + _%g4394543950%_) + (cons _%g4394443947%_ + _%g4394543950%_)) '() - _%L43800%_) - (foldr (lambda (_%g4385343856%_ - _%g4385443859%_) - (cons _%g4385343856%_ - _%g4385443859%_)) + _%L43899%_) + (foldr (lambda (_%g4395243955%_ + _%g4395343958%_) + (cons _%g4395243955%_ + _%g4395343958%_)) '() - _%L43798%_))) - (_%exports43865%_ + _%L43897%_))) + (_%exports43964%_ (gx#core-expand-export-source - _%L43801%_)) - (_%fold-e43893%_ - (letrec ((_%fold-e43868%_ - (lambda (_%out43871%_ - _%r43873%_) + _%L43900%_)) + (_%fold-e43992%_ + (letrec ((_%fold-e43967%_ + (lambda (_%out43970%_ + _%r43972%_) (if (gx#module-export? - _%out43871%_) - (let* ((_%name43877%_ + _%out43970%_) + (let* ((_%name43976%_ (gx#module-export-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%out43871%_)) - (_%$e43880%_ (hash-get _%keytab43836%_ _%name43877%_))) - (if _%$e43880%_ - ((lambda (_%rename43884%_) - (hash-put! _%found43839%_ _%name43877%_ '#t) + _%out43970%_)) + (_%$e43979%_ (hash-get _%keytab43935%_ _%name43976%_))) + (if _%$e43979%_ + ((lambda (_%rename43983%_) + (hash-put! _%found43938%_ _%name43976%_ '#t) (cons (|gerbil/core/module-sugar[1]#module-export-rename| - _%out43871%_ - _%rename43884%_) - _%r43873%_)) - _%$e43880%_) - (cons _%out43871%_ _%r43873%_))) - (if (gx#export-set? _%out43871%_) - (foldl _%fold-e43868%_ - _%r43873%_ - (gx#export-set-exports _%out43871%_)) - (cons _%out43871%_ _%r43873%_)))))) + _%out43970%_ + _%rename43983%_) + _%r43972%_)) + _%$e43979%_) + (cons _%out43970%_ _%r43972%_))) + (if (gx#export-set? _%out43970%_) + (foldl _%fold-e43967%_ + _%r43972%_ + (gx#export-set-exports _%out43970%_)) + (cons _%out43970%_ _%r43972%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e43868%_)) - (_%new-exports43896%_ - (foldl _%fold-e43893%_ + _%fold-e43967%_)) + (_%new-exports43995%_ + (foldl _%fold-e43992%_ '() - _%exports43865%_))) + _%exports43964%_))) (for-each - (lambda (_%id43901%_) + (lambda (_%id44000%_) (if (hash-get - _%found43839%_ - (gx#core-identifier-key _%id43901%_)) + _%found43938%_ + (gx#core-identifier-key _%id44000%_)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the export set" - _%stx43681%_ - _%id43901%_))) - (foldr (lambda (_%g4390343906%_ - _%g4390443909%_) - (cons _%g4390343906%_ - _%g4390443909%_)) + _%stx43780%_ + _%id44000%_))) + (foldr (lambda (_%g4400244005%_ + _%g4400344008%_) + (cons _%g4400244005%_ + _%g4400344008%_)) '() - _%L43800%_)) - (cons 'begin: _%new-exports43896%_)) - (_%g4368443717%_ _%g4368543721%_))) - _%new-id4370443792%_ - _%id4370543795%_ - _%hd4369343738%_)))))) + _%L43899%_)) + (cons 'begin: _%new-exports43995%_)) + (_%g4378343816%_ _%g4378443820%_))) + _%new-id4380343891%_ + _%id4380443894%_ + _%hd4379243837%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4369843750%_ - _%target4369543744%_ + (_%loop4379743849%_ + _%target4379443843%_ '() '())) - (_%g4368443717%_ - _%g4368543721%_))))) - (_%g4368443717%_ _%g4368543721%_)))) - (_%g4368443717%_ _%g4368543721%_)))) - (_%g4368443717%_ _%g4368543721%_))))) - (_%g4368343912%_ _%stx43681%_))))) + (_%g4378343816%_ + _%g4378443820%_))))) + (_%g4378343816%_ _%g4378443820%_)))) + (_%g4378343816%_ _%g4378443820%_)))) + (_%g4378343816%_ _%g4378443820%_))))) + (_%g4378244011%_ _%stx43780%_))))) (define |gerbil/core/module-sugar[:0:]#prefix-out| (gx#make-export-expander - (lambda (_%stx43917%_) - (let* ((_%g4392043938%_ - (lambda (_%g4392143934%_) + (lambda (_%stx44016%_) + (let* ((_%g4401944037%_ + (lambda (_%g4402044033%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4392143934%_))) - (_%g4391944023%_ - (lambda (_%g4392143942%_) - (if (gx#stx-pair? _%g4392143942%_) - (let ((_%e4392443945%_ (gx#syntax-e _%g4392143942%_))) - (let ((_%hd4392543949%_ + _%g4402044033%_))) + (_%g4401844122%_ + (lambda (_%g4402044041%_) + (if (gx#stx-pair? _%g4402044041%_) + (let ((_%e4402344044%_ (gx#syntax-e _%g4402044041%_))) + (let ((_%hd4402444048%_ (let () (declare (not safe)) - (##car _%e4392443945%_))) - (_%tl4392643952%_ + (##car _%e4402344044%_))) + (_%tl4402544051%_ (let () (declare (not safe)) - (##cdr _%e4392443945%_)))) - (if (gx#stx-pair? _%tl4392643952%_) - (let ((_%e4392743955%_ - (gx#syntax-e _%tl4392643952%_))) - (let ((_%hd4392843959%_ + (##cdr _%e4402344044%_)))) + (if (gx#stx-pair? _%tl4402544051%_) + (let ((_%e4402644054%_ + (gx#syntax-e _%tl4402544051%_))) + (let ((_%hd4402744058%_ (let () (declare (not safe)) - (##car _%e4392743955%_))) - (_%tl4392943962%_ + (##car _%e4402644054%_))) + (_%tl4402844061%_ (let () (declare (not safe)) - (##cdr _%e4392743955%_)))) - (if (gx#stx-pair? _%tl4392943962%_) - (let ((_%e4393043965%_ - (gx#syntax-e _%tl4392943962%_))) - (let ((_%hd4393143969%_ + (##cdr _%e4402644054%_)))) + (if (gx#stx-pair? _%tl4402844061%_) + (let ((_%e4402944064%_ + (gx#syntax-e _%tl4402844061%_))) + (let ((_%hd4403044068%_ (let () (declare (not safe)) - (##car _%e4393043965%_))) - (_%tl4393243972%_ + (##car _%e4402944064%_))) + (_%tl4403144071%_ (let () (declare (not safe)) - (##cdr _%e4393043965%_)))) - (if (gx#stx-null? _%tl4393243972%_) - ((lambda (_%L43975%_ _%L43977%_) - (if (gx#identifier? _%L43975%_) - (let* ((_%pre43993%_ + (##cdr _%e4402944064%_)))) + (if (gx#stx-null? _%tl4403144071%_) + ((lambda (_%L44074%_ _%L44076%_) + (if (gx#identifier? _%L44074%_) + (let* ((_%pre44092%_ (gx#stx-e - _%L43975%_)) - (_%exports43996%_ + _%L44074%_)) + (_%exports44095%_ (gx#core-expand-export-source - _%L43977%_)) - (_%rename-e44002%_ - (lambda (_%name43999%_) + _%L44076%_)) + (_%rename-e44101%_ + (lambda (_%name44098%_) (|gerbil/core/module-sugar[1]#prefix-identifier-key| - _%name43999%_ - _%pre43993%_))) - (_%fold-e44018%_ - (letrec ((_%fold-e44005%_ + _%name44098%_ + _%pre44092%_))) + (_%fold-e44117%_ + (letrec ((_%fold-e44104%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%out44008%_ _%r44010%_) - (if (gx#module-export? _%out44008%_) + (lambda (_%out44107%_ _%r44109%_) + (if (gx#module-export? _%out44107%_) (cons (|gerbil/core/module-sugar[1]#module-export-rename| - _%out44008%_ - (_%rename-e44002%_ + _%out44107%_ + (_%rename-e44101%_ (gx#module-export-name - _%out44008%_))) - _%r44010%_) - (if (gx#export-set? _%out44008%_) - (foldl _%fold-e44005%_ - _%r44010%_ + _%out44107%_))) + _%r44109%_) + (if (gx#export-set? _%out44107%_) + (foldl _%fold-e44104%_ + _%r44109%_ (gx#export-set-exports - _%out44008%_)) - (cons _%out44008%_ _%r44010%_)))))) - _%fold-e44005%_))) - (cons 'begin: (foldl _%fold-e44018%_ '() _%exports43996%_))) + _%out44107%_)) + (cons _%out44107%_ _%r44109%_)))))) + _%fold-e44104%_))) + (cons 'begin: (foldl _%fold-e44117%_ '() _%exports44095%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4392043938%_ - _%g4392143942%_))) - _%hd4393143969%_ - _%hd4392843959%_) - (_%g4392043938%_ - _%g4392143942%_)))) - (_%g4392043938%_ _%g4392143942%_)))) - (_%g4392043938%_ _%g4392143942%_)))) - (_%g4392043938%_ _%g4392143942%_))))) - (_%g4391944023%_ _%stx43917%_))))) + (_%g4401944037%_ + _%g4402044041%_))) + _%hd4403044068%_ + _%hd4402744058%_) + (_%g4401944037%_ + _%g4402044041%_)))) + (_%g4401944037%_ _%g4402044041%_)))) + (_%g4401944037%_ _%g4402044041%_)))) + (_%g4401944037%_ _%g4402044041%_))))) + (_%g4401844122%_ _%stx44016%_))))) (define |gerbil/core/module-sugar[:0:]#struct-out| (gx#make-export-expander - (lambda (_%stx44027%_) - (letrec ((_%identifiers44030%_ - (lambda (_%id44262%_ _%unchecked?44264%_) - (let ((_%info44266%_ - (gx#syntax-local-value _%id44262%_ false))) + (lambda (_%stx44126%_) + (letrec ((_%identifiers44129%_ + (lambda (_%id44361%_ _%unchecked?44363%_) + (let ((_%info44365%_ + (gx#syntax-local-value _%id44361%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%info44266%_)) - (cons _%id44262%_ - (cons (let ((__obj44563 _%info44266%_)) + _%info44365%_)) + (cons _%id44361%_ + (cons (let ((__obj44662 _%info44365%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44563 + __obj44662 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44563 + __obj44662 '12 '#f '#f)) (unchecked-slot-ref - __obj44563 + __obj44662 'type-descriptor))) (foldr cons - (cons (let ((__obj44564 - _%info44266%_)) + (cons (let ((__obj44663 + _%info44365%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44564 + __obj44663 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44564 + __obj44663 '14 '#f '#f)) (unchecked-slot-ref - __obj44564 + __obj44663 'predicate))) (foldr cons (foldr cons - (if _%unchecked?44264%_ + (if _%unchecked?44363%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (foldr cons (map cdr - (let ((__obj44565 _%info44266%_)) + (let ((__obj44664 _%info44365%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44565 + __obj44664 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44565 + __obj44664 '18 '#f '#f)) (unchecked-slot-ref - __obj44565 + __obj44664 'unchecked-mutators)))) (map cdr - (let ((__obj44566 _%info44266%_)) + (let ((__obj44665 _%info44365%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44566 + __obj44665 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44566 + __obj44665 '17 '#f '#f)) (unchecked-slot-ref - __obj44566 + __obj44665 'unchecked-accessors))))) '()) (map cdr - (let ((__obj44567 _%info44266%_)) + (let ((__obj44666 _%info44365%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44567 + __obj44666 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44567 + __obj44666 '16 '#f '#f)) (unchecked-slot-ref - __obj44567 + __obj44666 'mutators))))) (map cdr - (let ((__obj44568 _%info44266%_)) + (let ((__obj44667 _%info44365%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44568 + __obj44667 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44568 + __obj44667 '15 '#f '#f)) - (unchecked-slot-ref __obj44568 'accessors)))))) + (unchecked-slot-ref __obj44667 'accessors)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%ctor44269%_ - (let ((__obj44569 - _%info44266%_)) + (let ((_%ctor44368%_ + (let ((__obj44668 + _%info44365%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44569 + __obj44668 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44569 + __obj44668 '13 '#f '#f)) (unchecked-slot-ref - __obj44569 + __obj44668 'constructor))))) - (if _%ctor44269%_ - (cons _%ctor44269%_ '()) + (if _%ctor44368%_ + (cons _%ctor44368%_ '()) '()))))) (gx#raise-syntax-error '#f '"no class type info" - _%stx44027%_ - _%id44262%_)))))) - (let* ((_%__stx4450444505%_ _%stx44027%_) - (_%g4403444075%_ + _%stx44126%_ + _%id44361%_)))))) + (let* ((_%__stx4460344604%_ _%stx44126%_) + (_%g4413344174%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4450444505%_)))) - (let ((_%__kont4450744508%_ - (lambda (_%L44223%_ _%L44225%_) + _%__stx4460344604%_)))) + (let ((_%__kont4460644607%_ + (lambda (_%L44322%_ _%L44324%_) (cons 'begin: (concatenate (gx#stx-map - (lambda (_%g4424444246%_) - (_%identifiers44030%_ - _%g4424444246%_ - (gx#stx-e _%L44225%_))) - (foldr (lambda (_%g4424944252%_ _%g4425044255%_) - (cons _%g4424944252%_ _%g4425044255%_)) + (lambda (_%g4434344345%_) + (_%identifiers44129%_ + _%g4434344345%_ + (gx#stx-e _%L44324%_))) + (foldr (lambda (_%g4434844351%_ _%g4434944354%_) + (cons _%g4434844351%_ _%g4434944354%_)) '() - _%L44223%_)))))) - (_%__kont4451144512%_ - (lambda (_%L44122%_) + _%L44322%_)))))) + (_%__kont4461044611%_ + (lambda (_%L44221%_) (cons 'begin: (concatenate (gx#stx-map - (lambda (_%g4413844140%_) - (_%identifiers44030%_ _%g4413844140%_ '#f)) - (foldr (lambda (_%g4414344146%_ _%g4414444149%_) - (cons _%g4414344146%_ _%g4414444149%_)) + (lambda (_%g4423744239%_) + (_%identifiers44129%_ _%g4423744239%_ '#f)) + (foldr (lambda (_%g4424244245%_ _%g4424344248%_) + (cons _%g4424244245%_ _%g4424344248%_)) '() - _%L44122%_))))))) - (let* ((_%__match4456144562%_ - (lambda (_%e4405844082%_ - _%hd4405944086%_ - _%tl4406044089%_ - _%__splice4451344514%_ - _%target4406144092%_ - _%tl4406344095%_) - (letrec ((_%loop4406444098%_ - (lambda (_%hd4406244102%_ _%id4406844105%_) - (if (gx#stx-pair? _%hd4406244102%_) - (let ((_%e4406544108%_ - (gx#syntax-e _%hd4406244102%_))) - (let ((_%lp-tl4406744115%_ + _%L44221%_))))))) + (let* ((_%__match4466044661%_ + (lambda (_%e4415744181%_ + _%hd4415844185%_ + _%tl4415944188%_ + _%__splice4461244613%_ + _%target4416044191%_ + _%tl4416244194%_) + (letrec ((_%loop4416344197%_ + (lambda (_%hd4416144201%_ _%id4416744204%_) + (if (gx#stx-pair? _%hd4416144201%_) + (let ((_%e4416444207%_ + (gx#syntax-e _%hd4416144201%_))) + (let ((_%lp-tl4416644214%_ (let () (declare (not safe)) - (##cdr _%e4406544108%_))) - (_%lp-hd4406644112%_ + (##cdr _%e4416444207%_))) + (_%lp-hd4416544211%_ (let () (declare (not safe)) - (##car _%e4406544108%_)))) - (_%loop4406444098%_ - _%lp-tl4406744115%_ - (cons _%lp-hd4406644112%_ - _%id4406844105%_)))) - (let ((_%id4406944118%_ - (reverse _%id4406844105%_))) - (_%__kont4451144512%_ - _%id4406944118%_)))))) - (_%loop4406444098%_ _%target4406144092%_ '())))) - (_%__match4454744548%_ - (lambda (_%e4403844159%_ - _%hd4403944163%_ - _%tl4404044166%_ - _%e4404144169%_ - _%hd4404244173%_ - _%tl4404344176%_ - _%e4404444179%_ - _%e4404544183%_ - _%hd4404644187%_ - _%tl4404744190%_ - _%__splice4450944510%_ - _%target4404844193%_ - _%tl4405044196%_) - (letrec ((_%loop4405144199%_ - (lambda (_%hd4404944203%_ _%id4405544206%_) - (if (gx#stx-pair? _%hd4404944203%_) - (let ((_%e4405244209%_ - (gx#syntax-e _%hd4404944203%_))) - (let ((_%lp-tl4405444216%_ + (##car _%e4416444207%_)))) + (_%loop4416344197%_ + _%lp-tl4416644214%_ + (cons _%lp-hd4416544211%_ + _%id4416744204%_)))) + (let ((_%id4416844217%_ + (reverse _%id4416744204%_))) + (_%__kont4461044611%_ + _%id4416844217%_)))))) + (_%loop4416344197%_ _%target4416044191%_ '())))) + (_%__match4464644647%_ + (lambda (_%e4413744258%_ + _%hd4413844262%_ + _%tl4413944265%_ + _%e4414044268%_ + _%hd4414144272%_ + _%tl4414244275%_ + _%e4414344278%_ + _%e4414444282%_ + _%hd4414544286%_ + _%tl4414644289%_ + _%__splice4460844609%_ + _%target4414744292%_ + _%tl4414944295%_) + (letrec ((_%loop4415044298%_ + (lambda (_%hd4414844302%_ _%id4415444305%_) + (if (gx#stx-pair? _%hd4414844302%_) + (let ((_%e4415144308%_ + (gx#syntax-e _%hd4414844302%_))) + (let ((_%lp-tl4415344315%_ (let () (declare (not safe)) - (##cdr _%e4405244209%_))) - (_%lp-hd4405344213%_ + (##cdr _%e4415144308%_))) + (_%lp-hd4415244312%_ (let () (declare (not safe)) - (##car _%e4405244209%_)))) - (_%loop4405144199%_ - _%lp-tl4405444216%_ - (cons _%lp-hd4405344213%_ - _%id4405544206%_)))) - (let ((_%id4405644219%_ - (reverse _%id4405544206%_))) - (_%__kont4450744508%_ - _%id4405644219%_ - _%hd4404644187%_)))))) - (_%loop4405144199%_ _%target4404844193%_ '()))))) - (if (gx#stx-pair? _%__stx4450444505%_) - (let ((_%e4403844159%_ (gx#syntax-e _%__stx4450444505%_))) - (let ((_%tl4404044166%_ + (##car _%e4415144308%_)))) + (_%loop4415044298%_ + _%lp-tl4415344315%_ + (cons _%lp-hd4415244312%_ + _%id4415444305%_)))) + (let ((_%id4415544318%_ + (reverse _%id4415444305%_))) + (_%__kont4460644607%_ + _%id4415544318%_ + _%hd4414544286%_)))))) + (_%loop4415044298%_ _%target4414744292%_ '()))))) + (if (gx#stx-pair? _%__stx4460344604%_) + (let ((_%e4413744258%_ (gx#syntax-e _%__stx4460344604%_))) + (let ((_%tl4413944265%_ (let () (declare (not safe)) - (##cdr _%e4403844159%_))) - (_%hd4403944163%_ + (##cdr _%e4413744258%_))) + (_%hd4413844262%_ (let () (declare (not safe)) - (##car _%e4403844159%_)))) - (if (gx#stx-pair? _%tl4404044166%_) - (let ((_%e4404144169%_ - (gx#syntax-e _%tl4404044166%_))) - (let ((_%tl4404344176%_ + (##car _%e4413744258%_)))) + (if (gx#stx-pair? _%tl4413944265%_) + (let ((_%e4414044268%_ + (gx#syntax-e _%tl4413944265%_))) + (let ((_%tl4414244275%_ (let () (declare (not safe)) - (##cdr _%e4404144169%_))) - (_%hd4404244173%_ + (##cdr _%e4414044268%_))) + (_%hd4414144272%_ (let () (declare (not safe)) - (##car _%e4404144169%_)))) - (if (gx#stx-datum? _%hd4404244173%_) - (let ((_%e4404444179%_ - (gx#stx-e _%hd4404244173%_))) - (if (equal? _%e4404444179%_ 'unchecked:) - (if (gx#stx-pair? _%tl4404344176%_) - (let ((_%e4404544183%_ + (##car _%e4414044268%_)))) + (if (gx#stx-datum? _%hd4414144272%_) + (let ((_%e4414344278%_ + (gx#stx-e _%hd4414144272%_))) + (if (equal? _%e4414344278%_ 'unchecked:) + (if (gx#stx-pair? _%tl4414244275%_) + (let ((_%e4414444282%_ (gx#syntax-e - _%tl4404344176%_))) - (let ((_%tl4404744190%_ + _%tl4414244275%_))) + (let ((_%tl4414644289%_ (let () (declare (not safe)) - (##cdr _%e4404544183%_))) - (_%hd4404644187%_ + (##cdr _%e4414444282%_))) + (_%hd4414544286%_ (let () (declare (not safe)) - (##car _%e4404544183%_)))) + (##car _%e4414444282%_)))) (if (gx#stx-pair/null? - _%tl4404744190%_) - (let ((_%__splice4450944510%_ + _%tl4414644289%_) + (let ((_%__splice4460844609%_ (gx#syntax-split-splice - _%tl4404744190%_ + _%tl4414644289%_ '0))) - (let ((_%tl4405044196%_ + (let ((_%tl4414944295%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4450944510%_ '1))) - (_%target4404844193%_ + (##vector-ref _%__splice4460844609%_ '1))) + (_%target4414744292%_ (let () (declare (not safe)) - (##vector-ref _%__splice4450944510%_ '0)))) - (if (gx#stx-null? _%tl4405044196%_) - (_%__match4454744548%_ - _%e4403844159%_ - _%hd4403944163%_ - _%tl4404044166%_ - _%e4404144169%_ - _%hd4404244173%_ - _%tl4404344176%_ - _%e4404444179%_ - _%e4404544183%_ - _%hd4404644187%_ - _%tl4404744190%_ - _%__splice4450944510%_ - _%target4404844193%_ - _%tl4405044196%_) - (if (gx#stx-pair/null? _%tl4404044166%_) - (let ((_%__splice4451344514%_ - (gx#syntax-split-splice _%tl4404044166%_ '0))) - (let ((_%tl4406344095%_ + (##vector-ref _%__splice4460844609%_ '0)))) + (if (gx#stx-null? _%tl4414944295%_) + (_%__match4464644647%_ + _%e4413744258%_ + _%hd4413844262%_ + _%tl4413944265%_ + _%e4414044268%_ + _%hd4414144272%_ + _%tl4414244275%_ + _%e4414344278%_ + _%e4414444282%_ + _%hd4414544286%_ + _%tl4414644289%_ + _%__splice4460844609%_ + _%target4414744292%_ + _%tl4414944295%_) + (if (gx#stx-pair/null? _%tl4413944265%_) + (let ((_%__splice4461244613%_ + (gx#syntax-split-splice _%tl4413944265%_ '0))) + (let ((_%tl4416244194%_ (let () (declare (not safe)) - (##vector-ref _%__splice4451344514%_ '1))) - (_%target4406144092%_ + (##vector-ref _%__splice4461244613%_ '1))) + (_%target4416044191%_ (let () (declare (not safe)) - (##vector-ref _%__splice4451344514%_ '0)))) - (if (gx#stx-null? _%tl4406344095%_) - (_%__match4456144562%_ - _%e4403844159%_ - _%hd4403944163%_ - _%tl4404044166%_ - _%__splice4451344514%_ - _%target4406144092%_ - _%tl4406344095%_) + (##vector-ref _%__splice4461244613%_ '0)))) + (if (gx#stx-null? _%tl4416244194%_) + (_%__match4466044661%_ + _%e4413744258%_ + _%hd4413844262%_ + _%tl4413944265%_ + _%__splice4461244613%_ + _%target4416044191%_ + _%tl4416244194%_) (let () (declare (not safe)) - (_%g4403444075%_))))) - (let () (declare (not safe)) (_%g4403444075%_)))))) + (_%g4413344174%_))))) + (let () (declare (not safe)) (_%g4413344174%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl4404044166%_) - (let ((_%__splice4451344514%_ + _%tl4413944265%_) + (let ((_%__splice4461244613%_ (gx#syntax-split-splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl4404044166%_ + _%tl4413944265%_ '0))) - (let ((_%tl4406344095%_ + (let ((_%tl4416244194%_ (let () (declare (not safe)) - (##vector-ref _%__splice4451344514%_ '1))) - (_%target4406144092%_ + (##vector-ref _%__splice4461244613%_ '1))) + (_%target4416044191%_ (let () (declare (not safe)) - (##vector-ref _%__splice4451344514%_ '0)))) - (if (gx#stx-null? _%tl4406344095%_) - (_%__match4456144562%_ - _%e4403844159%_ - _%hd4403944163%_ - _%tl4404044166%_ - _%__splice4451344514%_ - _%target4406144092%_ - _%tl4406344095%_) - (let () (declare (not safe)) (_%g4403444075%_))))) - (let () (declare (not safe)) (_%g4403444075%_)))))) + (##vector-ref _%__splice4461244613%_ '0)))) + (if (gx#stx-null? _%tl4416244194%_) + (_%__match4466044661%_ + _%e4413744258%_ + _%hd4413844262%_ + _%tl4413944265%_ + _%__splice4461244613%_ + _%target4416044191%_ + _%tl4416244194%_) + (let () (declare (not safe)) (_%g4413344174%_))))) + (let () (declare (not safe)) (_%g4413344174%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl4404044166%_) - (let ((_%__splice4451344514%_ + _%tl4413944265%_) + (let ((_%__splice4461244613%_ (gx#syntax-split-splice - _%tl4404044166%_ + _%tl4413944265%_ '0))) - (let ((_%tl4406344095%_ + (let ((_%tl4416244194%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451344514%_ + _%__splice4461244613%_ '1))) - (_%target4406144092%_ + (_%target4416044191%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451344514%_ + _%__splice4461244613%_ '0)))) (if (gx#stx-null? - _%tl4406344095%_) - (_%__match4456144562%_ - _%e4403844159%_ - _%hd4403944163%_ - _%tl4404044166%_ - _%__splice4451344514%_ - _%target4406144092%_ - _%tl4406344095%_) + _%tl4416244194%_) + (_%__match4466044661%_ + _%e4413744258%_ + _%hd4413844262%_ + _%tl4413944265%_ + _%__splice4461244613%_ + _%target4416044191%_ + _%tl4416244194%_) (let () (declare (not safe)) - (_%g4403444075%_))))) + (_%g4413344174%_))))) (let () (declare (not safe)) - (_%g4403444075%_)))) + (_%g4413344174%_)))) (if (gx#stx-pair/null? - _%tl4404044166%_) - (let ((_%__splice4451344514%_ + _%tl4413944265%_) + (let ((_%__splice4461244613%_ (gx#syntax-split-splice - _%tl4404044166%_ + _%tl4413944265%_ '0))) - (let ((_%tl4406344095%_ + (let ((_%tl4416244194%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451344514%_ + _%__splice4461244613%_ '1))) - (_%target4406144092%_ + (_%target4416044191%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451344514%_ + _%__splice4461244613%_ '0)))) (if (gx#stx-null? - _%tl4406344095%_) - (_%__match4456144562%_ - _%e4403844159%_ - _%hd4403944163%_ - _%tl4404044166%_ - _%__splice4451344514%_ - _%target4406144092%_ - _%tl4406344095%_) + _%tl4416244194%_) + (_%__match4466044661%_ + _%e4413744258%_ + _%hd4413844262%_ + _%tl4413944265%_ + _%__splice4461244613%_ + _%target4416044191%_ + _%tl4416244194%_) (let () (declare (not safe)) - (_%g4403444075%_))))) + (_%g4413344174%_))))) (let () (declare (not safe)) - (_%g4403444075%_))))) - (if (gx#stx-pair/null? _%tl4404044166%_) - (let ((_%__splice4451344514%_ + (_%g4413344174%_))))) + (if (gx#stx-pair/null? _%tl4413944265%_) + (let ((_%__splice4461244613%_ (gx#syntax-split-splice - _%tl4404044166%_ + _%tl4413944265%_ '0))) - (let ((_%tl4406344095%_ + (let ((_%tl4416244194%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451344514%_ + _%__splice4461244613%_ '1))) - (_%target4406144092%_ + (_%target4416044191%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451344514%_ + _%__splice4461244613%_ '0)))) - (if (gx#stx-null? _%tl4406344095%_) - (_%__match4456144562%_ - _%e4403844159%_ - _%hd4403944163%_ - _%tl4404044166%_ - _%__splice4451344514%_ - _%target4406144092%_ - _%tl4406344095%_) + (if (gx#stx-null? _%tl4416244194%_) + (_%__match4466044661%_ + _%e4413744258%_ + _%hd4413844262%_ + _%tl4413944265%_ + _%__splice4461244613%_ + _%target4416044191%_ + _%tl4416244194%_) (let () (declare (not safe)) - (_%g4403444075%_))))) + (_%g4413344174%_))))) (let () (declare (not safe)) - (_%g4403444075%_)))))) - (if (gx#stx-pair/null? _%tl4404044166%_) - (let ((_%__splice4451344514%_ + (_%g4413344174%_)))))) + (if (gx#stx-pair/null? _%tl4413944265%_) + (let ((_%__splice4461244613%_ (gx#syntax-split-splice - _%tl4404044166%_ + _%tl4413944265%_ '0))) - (let ((_%tl4406344095%_ + (let ((_%tl4416244194%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451344514%_ + _%__splice4461244613%_ '1))) - (_%target4406144092%_ + (_%target4416044191%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451344514%_ + _%__splice4461244613%_ '0)))) - (if (gx#stx-null? _%tl4406344095%_) - (_%__match4456144562%_ - _%e4403844159%_ - _%hd4403944163%_ - _%tl4404044166%_ - _%__splice4451344514%_ - _%target4406144092%_ - _%tl4406344095%_) + (if (gx#stx-null? _%tl4416244194%_) + (_%__match4466044661%_ + _%e4413744258%_ + _%hd4413844262%_ + _%tl4413944265%_ + _%__splice4461244613%_ + _%target4416044191%_ + _%tl4416244194%_) (let () (declare (not safe)) - (_%g4403444075%_))))) + (_%g4413344174%_))))) (let () (declare (not safe)) - (_%g4403444075%_)))))) - (let () (declare (not safe)) (_%g4403444075%_))))))))))) + (_%g4413344174%_)))))) + (let () (declare (not safe)) (_%g4413344174%_))))))))))) diff --git a/src/bootstrap/gerbil/core/mop~1.scm b/src/bootstrap/gerbil/core/mop~1.scm index 83e273489..01fd5c1a2 100644 --- a/src/bootstrap/gerbil/core/mop~1.scm +++ b/src/bootstrap/gerbil/core/mop~1.scm @@ -1,103 +1,103 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core/mop~MOP-1[1]#module-type-id| - (lambda (_%type-t22412%_) - (let ((_%$e22415%_ (gx#module-context-ns (gx#current-expander-context)))) - (if _%$e22415%_ - ((lambda (_%ns22419%_) + (lambda (_%type-t22511%_) + (let ((_%$e22514%_ (gx#module-context-ns (gx#current-expander-context)))) + (if _%$e22514%_ + ((lambda (_%ns22518%_) (gx#stx-identifier - _%type-t22412%_ - _%ns22419%_ + _%type-t22511%_ + _%ns22518%_ '"#" - _%type-t22412%_ + _%type-t22511%_ '"::t")) - _%$e22415%_) - (let ((_%mid22424%_ + _%$e22514%_) + (let ((_%mid22523%_ (gx#expander-context-id (gx#current-expander-context)))) (gx#stx-identifier - _%type-t22412%_ - _%mid22424%_ + _%type-t22511%_ + _%mid22523%_ '"#" - _%type-t22412%_ + _%type-t22511%_ '"::t")))))) (define |gerbil/core/mop~MOP-1[1]#make-class-type-id| - (lambda (_%type-t22409%_) + (lambda (_%type-t22508%_) (if (gx#module-context? (gx#current-expander-context)) - (|gerbil/core/mop~MOP-1[1]#module-type-id| _%type-t22409%_) - (make-symbol '"__" (gensym (gx#stx-e _%type-t22409%_)) '"::t")))) + (|gerbil/core/mop~MOP-1[1]#module-type-id| _%type-t22508%_) + (make-symbol '"__" (gensym (gx#stx-e _%type-t22508%_)) '"::t")))) (define |gerbil/core/mop~MOP-1[1]#generate-typedef| - (lambda (_%stx20987%_ _%struct?20989%_) - (letrec ((_%wrap20991%_ - (lambda (_%e-stx22406%_) + (lambda (_%stx21086%_ _%struct?21088%_) + (letrec ((_%wrap21090%_ + (lambda (_%e-stx22505%_) (gx#stx-wrap-source - _%e-stx22406%_ - (gx#stx-source _%stx20987%_)))) - (_%slot-name20993%_ - (lambda (_%slot-spec22323%_) - (let* ((_%g2232622345%_ - (lambda (_%g2232722341%_) + _%e-stx22505%_ + (gx#stx-source _%stx21086%_)))) + (_%slot-name21092%_ + (lambda (_%slot-spec22422%_) + (let* ((_%g2242522444%_ + (lambda (_%g2242622440%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2232722341%_))) - (_%g2232522402%_ - (lambda (_%g2232722349%_) - (if (gx#stx-pair? _%g2232722349%_) - (let ((_%e2233122352%_ - (gx#syntax-e _%g2232722349%_))) - (let ((_%hd2233222356%_ + _%g2242622440%_))) + (_%g2242422501%_ + (lambda (_%g2242622448%_) + (if (gx#stx-pair? _%g2242622448%_) + (let ((_%e2243022451%_ + (gx#syntax-e _%g2242622448%_))) + (let ((_%hd2243122455%_ (let () (declare (not safe)) - (##car _%e2233122352%_))) - (_%tl2233322359%_ + (##car _%e2243022451%_))) + (_%tl2243222458%_ (let () (declare (not safe)) - (##cdr _%e2233122352%_)))) - (if (gx#stx-pair? _%tl2233322359%_) - (let ((_%e2233422362%_ - (gx#syntax-e _%tl2233322359%_))) - (let ((_%hd2233522366%_ + (##cdr _%e2243022451%_)))) + (if (gx#stx-pair? _%tl2243222458%_) + (let ((_%e2243322461%_ + (gx#syntax-e _%tl2243222458%_))) + (let ((_%hd2243422465%_ (let () (declare (not safe)) - (##car _%e2233422362%_))) - (_%tl2233622369%_ + (##car _%e2243322461%_))) + (_%tl2243522468%_ (let () (declare (not safe)) - (##cdr _%e2233422362%_)))) - (if (gx#stx-pair? _%tl2233622369%_) - (let ((_%e2233722372%_ + (##cdr _%e2243322461%_)))) + (if (gx#stx-pair? _%tl2243522468%_) + (let ((_%e2243622471%_ (gx#syntax-e - _%tl2233622369%_))) - (let ((_%hd2233822376%_ + _%tl2243522468%_))) + (let ((_%hd2243722475%_ (let () (declare (not safe)) - (##car _%e2233722372%_))) - (_%tl2233922379%_ + (##car _%e2243622471%_))) + (_%tl2243822478%_ (let () (declare (not safe)) - (##cdr _%e2233722372%_)))) + (##cdr _%e2243622471%_)))) (if (gx#stx-null? - _%tl2233922379%_) - ((lambda (_%L22382%_ + _%tl2243822478%_) + ((lambda (_%L22481%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L22384%_ - _%L22385%_) - _%L22385%_) - _%hd2233822376%_ - _%hd2233522366%_ - _%hd2233222356%_) - (_%g2232622345%_ _%g2232722349%_)))) + _%L22483%_ + _%L22484%_) + _%L22484%_) + _%hd2243722475%_ + _%hd2243422465%_ + _%hd2243122455%_) + (_%g2242522444%_ _%g2242622448%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2232622345%_ - _%g2232722349%_)))) - (_%g2232622345%_ _%g2232722349%_)))) - (_%g2232622345%_ _%g2232722349%_))))) - (_%g2232522402%_ _%slot-spec22323%_)))) - (_%class-opt?20994%_ - (lambda (_%key22320%_) - (let ((__tmp27107 (gx#stx-e _%key22320%_))) + (_%g2242522444%_ + _%g2242622448%_)))) + (_%g2242522444%_ _%g2242622448%_)))) + (_%g2242522444%_ _%g2242622448%_))))) + (_%g2242422501%_ _%slot-spec22422%_)))) + (_%class-opt?21093%_ + (lambda (_%key22419%_) + (let ((__tmp27206 (gx#stx-e _%key22419%_))) (declare (not safe)) - (##memq __tmp27107 + (##memq __tmp27206 '(struct: slots: id: @@ -107,651 +107,651 @@ final: mixin: metaclass:)))))) - (let* ((_%g2099621023%_ - (lambda (_%g2099721019%_) + (let* ((_%g2109521122%_ + (lambda (_%g2109621118%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2099721019%_))) - (_%g2099522316%_ - (lambda (_%g2099721027%_) - (if (gx#stx-pair? _%g2099721027%_) - (let ((_%e2100321030%_ (gx#syntax-e _%g2099721027%_))) - (let ((_%hd2100421034%_ + _%g2109621118%_))) + (_%g2109422415%_ + (lambda (_%g2109621126%_) + (if (gx#stx-pair? _%g2109621126%_) + (let ((_%e2110221129%_ (gx#syntax-e _%g2109621126%_))) + (let ((_%hd2110321133%_ (let () (declare (not safe)) - (##car _%e2100321030%_))) - (_%tl2100521037%_ + (##car _%e2110221129%_))) + (_%tl2110421136%_ (let () (declare (not safe)) - (##cdr _%e2100321030%_)))) - (if (gx#stx-pair? _%tl2100521037%_) - (let ((_%e2100621040%_ - (gx#syntax-e _%tl2100521037%_))) - (let ((_%hd2100721044%_ + (##cdr _%e2110221129%_)))) + (if (gx#stx-pair? _%tl2110421136%_) + (let ((_%e2110521139%_ + (gx#syntax-e _%tl2110421136%_))) + (let ((_%hd2110621143%_ (let () (declare (not safe)) - (##car _%e2100621040%_))) - (_%tl2100821047%_ + (##car _%e2110521139%_))) + (_%tl2110721146%_ (let () (declare (not safe)) - (##cdr _%e2100621040%_)))) - (if (gx#stx-pair? _%tl2100821047%_) - (let ((_%e2100921050%_ - (gx#syntax-e _%tl2100821047%_))) - (let ((_%hd2101021054%_ + (##cdr _%e2110521139%_)))) + (if (gx#stx-pair? _%tl2110721146%_) + (let ((_%e2110821149%_ + (gx#syntax-e _%tl2110721146%_))) + (let ((_%hd2110921153%_ (let () (declare (not safe)) - (##car _%e2100921050%_))) - (_%tl2101121057%_ + (##car _%e2110821149%_))) + (_%tl2111021156%_ (let () (declare (not safe)) - (##cdr _%e2100921050%_)))) - (if (gx#stx-pair? _%tl2101121057%_) - (let ((_%e2101221060%_ + (##cdr _%e2110821149%_)))) + (if (gx#stx-pair? _%tl2111021156%_) + (let ((_%e2111121159%_ (gx#syntax-e - _%tl2101121057%_))) - (let ((_%hd2101321064%_ + _%tl2111021156%_))) + (let ((_%hd2111221163%_ (let () (declare (not safe)) - (##car _%e2101221060%_))) - (_%tl2101421067%_ + (##car _%e2111121159%_))) + (_%tl2111321166%_ (let () (declare (not safe)) - (##cdr _%e2101221060%_)))) + (##cdr _%e2111121159%_)))) (if (gx#stx-pair? - _%tl2101421067%_) - (let ((_%e2101521070%_ + _%tl2111321166%_) + (let ((_%e2111421169%_ (gx#syntax-e - _%tl2101421067%_))) - (let ((_%hd2101621074%_ + _%tl2111321166%_))) + (let ((_%hd2111521173%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2101521070%_))) - (_%tl2101721077%_ - (let () (declare (not safe)) (##cdr _%e2101521070%_)))) - ((lambda (_%L21080%_ - _%L21082%_ - _%L21083%_ - _%L21084%_ - _%L21085%_) - (if (and (gx#identifier? _%L21085%_) - (gx#identifier-list? _%L21084%_) - (or (gx#identifier? _%L21083%_) - (gx#stx-false? _%L21083%_)) - (gx#identifier? _%L21082%_) - (gx#stx-plist? _%L21080%_ _%class-opt?20994%_)) - (let* ((_%struct?21125%_ - (let ((_%$e21115%_ _%struct?20989%_)) - (if _%$e21115%_ - _%$e21115%_ - (let ((_%$e21119%_ + (##car _%e2111421169%_))) + (_%tl2111621176%_ + (let () (declare (not safe)) (##cdr _%e2111421169%_)))) + ((lambda (_%L21179%_ + _%L21181%_ + _%L21182%_ + _%L21183%_ + _%L21184%_) + (if (and (gx#identifier? _%L21184%_) + (gx#identifier-list? _%L21183%_) + (or (gx#identifier? _%L21182%_) + (gx#stx-false? _%L21182%_)) + (gx#identifier? _%L21181%_) + (gx#stx-plist? _%L21179%_ _%class-opt?21093%_)) + (let* ((_%struct?21224%_ + (let ((_%$e21214%_ _%struct?21088%_)) + (if _%$e21214%_ + _%$e21214%_ + (let ((_%$e21218%_ (gx#stx-getq 'struct: - _%L21080%_))) - (if _%$e21119%_ - (gx#stx-e _%$e21119%_) + _%L21179%_))) + (if _%$e21218%_ + (gx#stx-e _%$e21218%_) '#f))))) - (_%slots21132%_ - (let ((_%$e21128%_ - (gx#stx-getq 'slots: _%L21080%_))) - (if _%$e21128%_ _%$e21128%_ '()))) - (_%mixin-slots21139%_ - (let ((_%$e21135%_ - (gx#stx-getq 'mixin: _%L21080%_))) - (if _%$e21135%_ _%$e21135%_ '()))) - (_%accessible-slots21142%_ - (append (gx#syntax->list _%slots21132%_) + (_%slots21231%_ + (let ((_%$e21227%_ + (gx#stx-getq 'slots: _%L21179%_))) + (if _%$e21227%_ _%$e21227%_ '()))) + (_%mixin-slots21238%_ + (let ((_%$e21234%_ + (gx#stx-getq 'mixin: _%L21179%_))) + (if _%$e21234%_ _%$e21234%_ '()))) + (_%accessible-slots21241%_ + (append (gx#syntax->list _%slots21231%_) (gx#syntax->list - _%mixin-slots21139%_))) - (_%metaclass21145%_ - (gx#stx-getq 'metaclass: _%L21080%_)) - (_%g2114821165%_ - (lambda (_%g2114921161%_) + _%mixin-slots21238%_))) + (_%metaclass21244%_ + (gx#stx-getq 'metaclass: _%L21179%_)) + (_%g2124721264%_ + (lambda (_%g2124821260%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2114921161%_))) - (_%g2114722312%_ - (lambda (_%g2114921169%_) - (if (gx#stx-pair/null? _%g2114921169%_) - (let ((_g27108_ + _%g2124821260%_))) + (_%g2124622411%_ + (lambda (_%g2124821268%_) + (if (gx#stx-pair/null? _%g2124821268%_) + (let ((_g27207_ (gx#syntax-split-splice - _%g2114921169%_ + _%g2124821268%_ '0))) (begin - (let ((_g27109_ + (let ((_g27208_ (let () (declare (not safe)) - (if (##values? _g27108_) - (##vector-length - _g27108_) + (if (##values? _g27207_) + (##values-length + _g27207_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27109_ 2))) + (##fx= _g27208_ 2))) (error "Context expects 2 values" - _g27109_))) - (let ((_%target2115121172%_ + _g27208_))) + (let ((_%target2125021271%_ (let () (declare (not safe)) - (##vector-ref _g27108_ 0))) - (_%tl2115321175%_ + (##values-ref _g27207_ 0))) + (_%tl2125221274%_ (let () (declare (not safe)) - (##vector-ref - _g27108_ + (##values-ref + _g27207_ 1)))) (if (gx#stx-null? - _%tl2115321175%_) - (letrec ((_%loop2115421178%_ - (lambda (_%hd2115221182%_ + _%tl2125221274%_) + (letrec ((_%loop2125321277%_ + (lambda (_%hd2125121281%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%slot2115821185%_) - (if (gx#stx-pair? _%hd2115221182%_) - (let ((_%e2115521188%_ - (gx#syntax-e _%hd2115221182%_))) - (let ((_%lp-hd2115621192%_ + _%slot2125721284%_) + (if (gx#stx-pair? _%hd2125121281%_) + (let ((_%e2125421287%_ + (gx#syntax-e _%hd2125121281%_))) + (let ((_%lp-hd2125521291%_ (let () (declare (not safe)) - (##car _%e2115521188%_))) - (_%lp-tl2115721195%_ + (##car _%e2125421287%_))) + (_%lp-tl2125621294%_ (let () (declare (not safe)) - (##cdr _%e2115521188%_)))) - (_%loop2115421178%_ - _%lp-tl2115721195%_ - (cons _%lp-hd2115621192%_ _%slot2115821185%_)))) - (let ((_%slot2115921198%_ - (reverse _%slot2115821185%_))) - ((lambda (_%L21202%_) - (let* ((_%g2122321231%_ - (lambda (_%g2122421227%_) + (##cdr _%e2125421287%_)))) + (_%loop2125321277%_ + _%lp-tl2125621294%_ + (cons _%lp-hd2125521291%_ _%slot2125721284%_)))) + (let ((_%slot2125821297%_ + (reverse _%slot2125721284%_))) + ((lambda (_%L21301%_) + (let* ((_%g2132221330%_ + (lambda (_%g2132321326%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2122421227%_))) - (_%g2122222304%_ - (lambda (_%g2122421235%_) - ((lambda (_%L21238%_) - (let* ((_%g2125121259%_ - (lambda (_%g2125221255%_) + _%g2132321326%_))) + (_%g2132122403%_ + (lambda (_%g2132321334%_) + ((lambda (_%L21337%_) + (let* ((_%g2135021358%_ + (lambda (_%g2135121354%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2125221255%_))) - (_%g2125022296%_ - (lambda (_%g2125221263%_) - ((lambda (_%L21266%_) - (let* ((_%g2127921287%_ - (lambda (_%g2128021283%_) + _%g2135121354%_))) + (_%g2134922395%_ + (lambda (_%g2135121362%_) + ((lambda (_%L21365%_) + (let* ((_%g2137821386%_ + (lambda (_%g2137921382%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2128021283%_))) - (_%g2127822292%_ - (lambda (_%g2128021291%_) - ((lambda (_%L21294%_) - (let* ((_%g2130721315%_ - (lambda (_%g2130821311%_) + _%g2137921382%_))) + (_%g2137722391%_ + (lambda (_%g2137921390%_) + ((lambda (_%L21393%_) + (let* ((_%g2140621414%_ + (lambda (_%g2140721410%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2130821311%_))) - (_%g2130622288%_ - (lambda (_%g2130821319%_) - ((lambda (_%L21322%_) - (let* ((_%g2133521343%_ - (lambda (_%g2133621339%_) + _%g2140721410%_))) + (_%g2140522387%_ + (lambda (_%g2140721418%_) + ((lambda (_%L21421%_) + (let* ((_%g2143421442%_ + (lambda (_%g2143521438%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2133621339%_))) - (_%g2133422284%_ - (lambda (_%g2133621347%_) - ((lambda (_%L21350%_) - (let* ((_%g2136321371%_ - (lambda (_%g2136421367%_) + _%g2143521438%_))) + (_%g2143322383%_ + (lambda (_%g2143521446%_) + ((lambda (_%L21449%_) + (let* ((_%g2146221470%_ + (lambda (_%g2146321466%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2136421367%_))) - (_%g2136222280%_ - (lambda (_%g2136421375%_) - ((lambda (_%L21378%_) - (let* ((_%g2139121399%_ - (lambda (_%g2139221395%_) + _%g2146321466%_))) + (_%g2146122379%_ + (lambda (_%g2146321474%_) + ((lambda (_%L21477%_) + (let* ((_%g2149021498%_ + (lambda (_%g2149121494%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2139221395%_))) - (_%g2139022276%_ - (lambda (_%g2139221403%_) - ((lambda (_%L21406%_) - (let* ((_%g2141921427%_ - (lambda (_%g2142021423%_) + _%g2149121494%_))) + (_%g2148922375%_ + (lambda (_%g2149121502%_) + ((lambda (_%L21505%_) + (let* ((_%g2151821526%_ + (lambda (_%g2151921522%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2142021423%_))) - (_%g2141822272%_ - (lambda (_%g2142021431%_) - ((lambda (_%L21434%_) - (let* ((_%g2144721455%_ - (lambda (_%g2144821451%_) + _%g2151921522%_))) + (_%g2151722371%_ + (lambda (_%g2151921530%_) + ((lambda (_%L21533%_) + (let* ((_%g2154621554%_ + (lambda (_%g2154721550%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g2144821451%_))) - (_%g2144622264%_ - (lambda (_%g2144821459%_) - ((lambda (_%L21462%_) - (let* ((_%g2147521483%_ - (lambda (_%g2147621479%_) + _%g2154721550%_))) + (_%g2154522363%_ + (lambda (_%g2154721558%_) + ((lambda (_%L21561%_) + (let* ((_%g2157421582%_ + (lambda (_%g2157521578%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2147621479%_))) - (_%g2147422260%_ - (lambda (_%g2147621487%_) - ((lambda (_%L21490%_) - (let* ((_%g2150321511%_ - (lambda (_%g2150421507%_) + _%g2157521578%_))) + (_%g2157322359%_ + (lambda (_%g2157521586%_) + ((lambda (_%L21589%_) + (let* ((_%g2160221610%_ + (lambda (_%g2160321606%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2150421507%_))) - (_%g2150222256%_ - (lambda (_%g2150421515%_) - ((lambda (_%L21518%_) - (let* ((_%g2153121539%_ - (lambda (_%g2153221535%_) + _%g2160321606%_))) + (_%g2160122355%_ + (lambda (_%g2160321614%_) + ((lambda (_%L21617%_) + (let* ((_%g2163021638%_ + (lambda (_%g2163121634%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2153221535%_))) - (_%g2153022221%_ - (lambda (_%g2153221543%_) - ((lambda (_%L21546%_) + _%g2163121634%_))) + (_%g2162922320%_ + (lambda (_%g2163121642%_) + ((lambda (_%L21645%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g2155921567%_ - (lambda (_%g2156021563%_) + (let* ((_%g2165821666%_ + (lambda (_%g2165921662%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2156021563%_))) - (_%g2155822217%_ - (lambda (_%g2156021571%_) - ((lambda (_%L21574%_) - (let* ((_%g2158721595%_ - (lambda (_%g2158821591%_) + _%g2165921662%_))) + (_%g2165722316%_ + (lambda (_%g2165921670%_) + ((lambda (_%L21673%_) + (let* ((_%g2168621694%_ + (lambda (_%g2168721690%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2158821591%_))) - (_%g2158622205%_ - (lambda (_%g2158821599%_) - ((lambda (_%L21602%_) - (let* ((_%g2161521623%_ - (lambda (_%g2161621619%_) + _%g2168721690%_))) + (_%g2168522304%_ + (lambda (_%g2168721698%_) + ((lambda (_%L21701%_) + (let* ((_%g2171421722%_ + (lambda (_%g2171521718%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2161621619%_))) - (_%g2161422193%_ - (lambda (_%g2161621627%_) - ((lambda (_%L21630%_) + _%g2171521718%_))) + (_%g2171322292%_ + (lambda (_%g2171521726%_) + ((lambda (_%L21729%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g2164321651%_ - (lambda (_%g2164421647%_) + (let* ((_%g2174221750%_ + (lambda (_%g2174321746%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2164421647%_))) - (_%g2164222189%_ - (lambda (_%g2164421655%_) - ((lambda (_%L21658%_) - (let* ((_%g2167121679%_ - (lambda (_%g2167221675%_) + _%g2174321746%_))) + (_%g2174122288%_ + (lambda (_%g2174321754%_) + ((lambda (_%L21757%_) + (let* ((_%g2177021778%_ + (lambda (_%g2177121774%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2167221675%_))) - (_%g2167022185%_ - (lambda (_%g2167221683%_) - ((lambda (_%L21686%_) - (let* ((_%g2169921725%_ - (lambda (_%g2170021721%_) + _%g2177121774%_))) + (_%g2176922284%_ + (lambda (_%g2177121782%_) + ((lambda (_%L21785%_) + (let* ((_%g2179821824%_ + (lambda (_%g2179921820%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2170021721%_))) - (_%g2169822097%_ - (lambda (_%g2170021729%_) + _%g2179921820%_))) + (_%g2179722196%_ + (lambda (_%g2179921828%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2170021729%_) - (let ((_g27110_ - (gx#syntax-split-splice _%g2170021729%_ '0))) + _%g2179921828%_) + (let ((_g27209_ + (gx#syntax-split-splice _%g2179921828%_ '0))) (begin - (let ((_g27111_ + (let ((_g27210_ (let () (declare (not safe)) - (if (##values? _g27110_) - (##vector-length _g27110_) + (if (##values? _g27209_) + (##values-length _g27209_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27111_ 2))) + (##fx= _g27210_ 2))) (error "Context expects 2 values" - _g27111_))) - (let ((_%target2170321732%_ + _g27210_))) + (let ((_%target2180221831%_ (let () (declare (not safe)) - (##vector-ref _g27110_ 0))) - (_%tl2170521735%_ + (##values-ref _g27209_ 0))) + (_%tl2180421834%_ (let () (declare (not safe)) - (##vector-ref _g27110_ 1)))) - (if (gx#stx-null? _%tl2170521735%_) - (letrec ((_%loop2170621738%_ - (lambda (_%hd2170421742%_ - _%def-setf2171021745%_ - _%def-getf2171121747%_) + (##values-ref _g27209_ 1)))) + (if (gx#stx-null? _%tl2180421834%_) + (letrec ((_%loop2180521837%_ + (lambda (_%hd2180321841%_ + _%def-setf2180921844%_ + _%def-getf2181021846%_) (if (gx#stx-pair? - _%hd2170421742%_) - (let ((_%e2170721750%_ + _%hd2180321841%_) + (let ((_%e2180621849%_ (gx#syntax-e - _%hd2170421742%_))) - (let ((_%lp-hd2170821754%_ + _%hd2180321841%_))) + (let ((_%lp-hd2180721853%_ (let () (declare (not safe)) - (##car _%e2170721750%_))) - (_%lp-tl2170921757%_ + (##car _%e2180621849%_))) + (_%lp-tl2180821856%_ (let () (declare (not safe)) - (##cdr _%e2170721750%_)))) + (##cdr _%e2180621849%_)))) (if (gx#stx-pair? - _%lp-hd2170821754%_) - (let ((_%e2171421760%_ + _%lp-hd2180721853%_) + (let ((_%e2181321859%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%lp-hd2170821754%_))) - (let ((_%hd2171521764%_ + (gx#syntax-e _%lp-hd2180721853%_))) + (let ((_%hd2181421863%_ (let () (declare (not safe)) - (##car _%e2171421760%_))) - (_%tl2171621767%_ + (##car _%e2181321859%_))) + (_%tl2181521866%_ (let () (declare (not safe)) - (##cdr _%e2171421760%_)))) - (if (gx#stx-pair? _%tl2171621767%_) - (let ((_%e2171721770%_ - (gx#syntax-e _%tl2171621767%_))) - (let ((_%hd2171821774%_ + (##cdr _%e2181321859%_)))) + (if (gx#stx-pair? _%tl2181521866%_) + (let ((_%e2181621869%_ + (gx#syntax-e _%tl2181521866%_))) + (let ((_%hd2181721873%_ (let () (declare (not safe)) - (##car _%e2171721770%_))) - (_%tl2171921777%_ + (##car _%e2181621869%_))) + (_%tl2181821876%_ (let () (declare (not safe)) - (##cdr _%e2171721770%_)))) - (if (gx#stx-null? _%tl2171921777%_) - (_%loop2170621738%_ - _%lp-tl2170921757%_ - (cons _%hd2171821774%_ - _%def-setf2171021745%_) - (cons _%hd2171521764%_ - _%def-getf2171121747%_)) - (_%g2169921725%_ _%g2170021729%_)))) - (_%g2169921725%_ _%g2170021729%_)))) - (_%g2169921725%_ _%g2170021729%_)))) + (##cdr _%e2181621869%_)))) + (if (gx#stx-null? _%tl2181821876%_) + (_%loop2180521837%_ + _%lp-tl2180821856%_ + (cons _%hd2181721873%_ + _%def-setf2180921844%_) + (cons _%hd2181421863%_ + _%def-getf2181021846%_)) + (_%g2179821824%_ _%g2179921828%_)))) + (_%g2179821824%_ _%g2179921828%_)))) + (_%g2179821824%_ _%g2179921828%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%def-setf2171221780%_ - (reverse _%def-setf2171021745%_)) - (_%def-getf2171321783%_ - (reverse _%def-getf2171121747%_))) - ((lambda (_%L21786%_ - _%L21788%_) - (let* ((_%g2180521831%_ - (lambda (_%g2180621827%_) + (let ((_%def-setf2181121879%_ + (reverse _%def-setf2180921844%_)) + (_%def-getf2181221882%_ + (reverse _%def-getf2181021846%_))) + ((lambda (_%L21885%_ + _%L21887%_) + (let* ((_%g2190421930%_ + (lambda (_%g2190521926%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2180621827%_))) - (_%g2180421945%_ - (lambda (_%g2180621835%_) - (if (gx#stx-pair/null? _%g2180621835%_) - (let ((_g27112_ + _%g2190521926%_))) + (_%g2190322044%_ + (lambda (_%g2190521934%_) + (if (gx#stx-pair/null? _%g2190521934%_) + (let ((_g27211_ (gx#syntax-split-splice - _%g2180621835%_ + _%g2190521934%_ '0))) (begin - (let ((_g27113_ + (let ((_g27212_ (let () (declare (not safe)) - (if (##values? _g27112_) - (##vector-length _g27112_) + (if (##values? _g27211_) + (##values-length _g27211_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27113_ 2))) + (##fx= _g27212_ 2))) (error "Context expects 2 values" - _g27113_))) - (let ((_%target2180921838%_ + _g27212_))) + (let ((_%target2190821937%_ (let () (declare (not safe)) - (##vector-ref _g27112_ 0))) - (_%tl2181121841%_ + (##values-ref _g27211_ 0))) + (_%tl2191021940%_ (let () (declare (not safe)) - (##vector-ref _g27112_ 1)))) - (if (gx#stx-null? _%tl2181121841%_) - (letrec ((_%loop2181221844%_ - (lambda (_%hd2181021848%_ - _%def-usetf2181621851%_ - _%def-ugetf2181721853%_) + (##values-ref _g27211_ 1)))) + (if (gx#stx-null? _%tl2191021940%_) + (letrec ((_%loop2191121943%_ + (lambda (_%hd2190921947%_ + _%def-usetf2191521950%_ + _%def-ugetf2191621952%_) (if (gx#stx-pair? - _%hd2181021848%_) - (let ((_%e2181321856%_ + _%hd2190921947%_) + (let ((_%e2191221955%_ (gx#syntax-e - _%hd2181021848%_))) - (let ((_%lp-hd2181421860%_ + _%hd2190921947%_))) + (let ((_%lp-hd2191321959%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e2181321856%_))) - (_%lp-tl2181521863%_ + (let () (declare (not safe)) (##car _%e2191221955%_))) + (_%lp-tl2191421962%_ (let () (declare (not safe)) - (##cdr _%e2181321856%_)))) - (if (gx#stx-pair? _%lp-hd2181421860%_) - (let ((_%e2182021866%_ - (gx#syntax-e _%lp-hd2181421860%_))) - (let ((_%hd2182121870%_ + (##cdr _%e2191221955%_)))) + (if (gx#stx-pair? _%lp-hd2191321959%_) + (let ((_%e2191921965%_ + (gx#syntax-e _%lp-hd2191321959%_))) + (let ((_%hd2192021969%_ (let () (declare (not safe)) - (##car _%e2182021866%_))) - (_%tl2182221873%_ + (##car _%e2191921965%_))) + (_%tl2192121972%_ (let () (declare (not safe)) - (##cdr _%e2182021866%_)))) - (if (gx#stx-pair? _%tl2182221873%_) - (let ((_%e2182321876%_ - (gx#syntax-e _%tl2182221873%_))) - (let ((_%hd2182421880%_ + (##cdr _%e2191921965%_)))) + (if (gx#stx-pair? _%tl2192121972%_) + (let ((_%e2192221975%_ + (gx#syntax-e _%tl2192121972%_))) + (let ((_%hd2192321979%_ (let () (declare (not safe)) - (##car _%e2182321876%_))) - (_%tl2182521883%_ + (##car _%e2192221975%_))) + (_%tl2192421982%_ (let () (declare (not safe)) - (##cdr _%e2182321876%_)))) - (if (gx#stx-null? _%tl2182521883%_) - (_%loop2181221844%_ - _%lp-tl2181521863%_ - (cons _%hd2182421880%_ - _%def-usetf2181621851%_) - (cons _%hd2182121870%_ - _%def-ugetf2181721853%_)) - (_%g2180521831%_ _%g2180621835%_)))) - (_%g2180521831%_ _%g2180621835%_)))) - (_%g2180521831%_ _%g2180621835%_)))) - (let ((_%def-usetf2181821886%_ - (reverse _%def-usetf2181621851%_)) - (_%def-ugetf2181921889%_ - (reverse _%def-ugetf2181721853%_))) - ((lambda (_%L21892%_ _%L21894%_) - (_%wrap20991%_ + (##cdr _%e2192221975%_)))) + (if (gx#stx-null? _%tl2192421982%_) + (_%loop2191121943%_ + _%lp-tl2191421962%_ + (cons _%hd2192321979%_ + _%def-usetf2191521950%_) + (cons _%hd2192021969%_ + _%def-ugetf2191621952%_)) + (_%g2190421930%_ _%g2190521934%_)))) + (_%g2190421930%_ _%g2190521934%_)))) + (_%g2190421930%_ _%g2190521934%_)))) + (let ((_%def-usetf2191721985%_ + (reverse _%def-usetf2191521950%_)) + (_%def-ugetf2191821988%_ + (reverse _%def-ugetf2191621952%_))) + ((lambda (_%L21991%_ _%L21993%_) + (_%wrap21090%_ (cons (gx#datum->syntax '#f 'begin) - (cons _%L21630%_ - (cons _%L21686%_ - (cons _%L21658%_ - (foldr (lambda (_%g2191221921%_ - _%g2191321924%_) - (cons _%g2191221921%_ - _%g2191321924%_)) - (foldr (lambda (_%g2191421927%_ + (cons _%L21729%_ + (cons _%L21785%_ + (cons _%L21757%_ + (foldr (lambda (_%g2201122020%_ + _%g2201222023%_) + (cons _%g2201122020%_ + _%g2201222023%_)) + (foldr (lambda (_%g2201322026%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2191521930%_) - (cons _%g2191421927%_ _%g2191521930%_)) - (foldr (lambda (_%g2191621933%_ _%g2191721936%_) - (cons _%g2191621933%_ _%g2191721936%_)) - (foldr (lambda (_%g2191821939%_ _%g2191921942%_) - (cons _%g2191821939%_ _%g2191921942%_)) + _%g2201422029%_) + (cons _%g2201322026%_ _%g2201422029%_)) + (foldr (lambda (_%g2201522032%_ _%g2201622035%_) + (cons _%g2201522032%_ _%g2201622035%_)) + (foldr (lambda (_%g2201722038%_ _%g2201822041%_) + (cons _%g2201722038%_ _%g2201822041%_)) '() - _%L21892%_) - _%L21894%_) - _%L21786%_) + _%L21991%_) + _%L21993%_) + _%L21885%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L21788%_))))))) - _%def-usetf2181821886%_ - _%def-ugetf2181921889%_)))))) + _%L21887%_))))))) + _%def-usetf2191721985%_ + _%def-ugetf2191821988%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2181221844%_ - _%target2180921838%_ + (_%loop2191121943%_ + _%target2190821937%_ '() '())) - (_%g2180521831%_ _%g2180621835%_))))) - (_%g2180521831%_ _%g2180621835%_))))) - (_%g2180421945%_ + (_%g2190421930%_ _%g2190521934%_))))) + (_%g2190421930%_ _%g2190521934%_))))) + (_%g2190322044%_ (gx#stx-map - (lambda (_%ref21949%_) - (let* ((_%g2195221971%_ - (lambda (_%g2195321967%_) + (lambda (_%ref22048%_) + (let* ((_%g2205122070%_ + (lambda (_%g2205222066%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2195321967%_))) - (_%g2195122093%_ - (lambda (_%g2195321975%_) - (if (gx#stx-pair? _%g2195321975%_) - (let ((_%e2195721978%_ - (gx#syntax-e _%g2195321975%_))) - (let ((_%hd2195821982%_ + _%g2205222066%_))) + (_%g2205022192%_ + (lambda (_%g2205222074%_) + (if (gx#stx-pair? _%g2205222074%_) + (let ((_%e2205622077%_ + (gx#syntax-e _%g2205222074%_))) + (let ((_%hd2205722081%_ (let () (declare (not safe)) - (##car _%e2195721978%_))) - (_%tl2195921985%_ + (##car _%e2205622077%_))) + (_%tl2205822084%_ (let () (declare (not safe)) - (##cdr _%e2195721978%_)))) - (if (gx#stx-pair? _%tl2195921985%_) - (let ((_%e2196021988%_ + (##cdr _%e2205622077%_)))) + (if (gx#stx-pair? _%tl2205822084%_) + (let ((_%e2205922087%_ (gx#syntax-e - _%tl2195921985%_))) - (let ((_%hd2196121992%_ + _%tl2205822084%_))) + (let ((_%hd2206022091%_ (let () (declare (not safe)) - (##car _%e2196021988%_))) - (_%tl2196221995%_ + (##car _%e2205922087%_))) + (_%tl2206122094%_ (let () (declare (not safe)) - (##cdr _%e2196021988%_)))) + (##cdr _%e2205922087%_)))) (if (gx#stx-pair? - _%tl2196221995%_) - (let ((_%e2196321998%_ + _%tl2206122094%_) + (let ((_%e2206222097%_ (gx#syntax-e - _%tl2196221995%_))) - (let ((_%hd2196422002%_ + _%tl2206122094%_))) + (let ((_%hd2206322101%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2196321998%_))) - (_%tl2196522005%_ - (let () (declare (not safe)) (##cdr _%e2196321998%_)))) - (if (gx#stx-null? _%tl2196522005%_) - ((lambda (_%L22008%_ _%L22010%_ _%L22011%_) - (let* ((_%g2202922044%_ - (lambda (_%g2203022040%_) + (##car _%e2206222097%_))) + (_%tl2206422104%_ + (let () (declare (not safe)) (##cdr _%e2206222097%_)))) + (if (gx#stx-null? _%tl2206422104%_) + ((lambda (_%L22107%_ _%L22109%_ _%L22110%_) + (let* ((_%g2212822143%_ + (lambda (_%g2212922139%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2203022040%_))) - (_%g2202822089%_ - (lambda (_%g2203022048%_) - (if (gx#stx-pair? _%g2203022048%_) - (let ((_%e2203322051%_ - (gx#syntax-e _%g2203022048%_))) - (let ((_%hd2203422055%_ + _%g2212922139%_))) + (_%g2212722188%_ + (lambda (_%g2212922147%_) + (if (gx#stx-pair? _%g2212922147%_) + (let ((_%e2213222150%_ + (gx#syntax-e _%g2212922147%_))) + (let ((_%hd2213322154%_ (let () (declare (not safe)) - (##car _%e2203322051%_))) - (_%tl2203522058%_ + (##car _%e2213222150%_))) + (_%tl2213422157%_ (let () (declare (not safe)) - (##cdr _%e2203322051%_)))) - (if (gx#stx-pair? _%tl2203522058%_) - (let ((_%e2203622061%_ + (##cdr _%e2213222150%_)))) + (if (gx#stx-pair? _%tl2213422157%_) + (let ((_%e2213522160%_ (gx#syntax-e - _%tl2203522058%_))) - (let ((_%hd2203722065%_ + _%tl2213422157%_))) + (let ((_%hd2213622164%_ (let () (declare (not safe)) - (##car _%e2203622061%_))) - (_%tl2203822068%_ + (##car _%e2213522160%_))) + (_%tl2213722167%_ (let () (declare (not safe)) - (##cdr _%e2203622061%_)))) + (##cdr _%e2213522160%_)))) (if (gx#stx-null? - _%tl2203822068%_) - ((lambda (_%L22071%_ - _%L22073%_) - (cons (_%wrap20991%_ + _%tl2213722167%_) + ((lambda (_%L22170%_ + _%L22172%_) + (cons (_%wrap21090%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons _%L22073%_ + (cons _%L22172%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L21322%_ + (cons _%L21421%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L22011%_ (cons '#f '())))) + (cons _%L22110%_ (cons '#f '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'make-class-slot-unchecked-accessor) - (cons _%L21085%_ + (cons _%L21184%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L22011%_ '())) + (cons _%L22110%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (cons (_%wrap20991%_ + (cons (_%wrap21090%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L22071%_ + (cons _%L22170%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -759,129 +759,129 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L21322%_ (cons _%L22011%_ (cons '#f '())))) + (cons _%L21421%_ (cons _%L22110%_ (cons '#f '())))) (cons (cons (gx#datum->syntax '#f 'make-class-slot-unchecked-mutator) - (cons _%L21085%_ + (cons _%L21184%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L22011%_ '())) + (cons _%L22110%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))) - _%hd2203722065%_ - _%hd2203422055%_) + _%hd2213622164%_ + _%hd2213322154%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2202922044%_ - _%g2203022048%_)))) - (_%g2202922044%_ - _%g2203022048%_)))) - (_%g2202922044%_ _%g2203022048%_))))) - (_%g2202822089%_ - (list (gx#stx-identifier _%L22010%_ '"&" _%L22010%_) + (_%g2212822143%_ + _%g2212922147%_)))) + (_%g2212822143%_ + _%g2212922147%_)))) + (_%g2212822143%_ _%g2212922147%_))))) + (_%g2212722188%_ + (list (gx#stx-identifier _%L22109%_ '"&" _%L22109%_) (gx#stx-identifier - _%L22008%_ + _%L22107%_ '"&" - _%L22008%_))))) - _%hd2196422002%_ - _%hd2196121992%_ - _%hd2195821982%_) - (_%g2195221971%_ _%g2195321975%_)))) + _%L22107%_))))) + _%hd2206322101%_ + _%hd2206022091%_ + _%hd2205722081%_) + (_%g2205122070%_ _%g2205222074%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2195221971%_ - _%g2195321975%_)))) - (_%g2195221971%_ - _%g2195321975%_)))) - (_%g2195221971%_ _%g2195321975%_))))) - (_%g2195122093%_ _%ref21949%_))) - _%accessible-slots21142%_)))) - _%def-setf2171221780%_ - _%def-getf2171321783%_)))))) + (_%g2205122070%_ + _%g2205222074%_)))) + (_%g2205122070%_ + _%g2205222074%_)))) + (_%g2205122070%_ _%g2205222074%_))))) + (_%g2205022192%_ _%ref22048%_))) + _%accessible-slots21241%_)))) + _%def-setf2181121879%_ + _%def-getf2181221882%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2170621738%_ - _%target2170321732%_ + (_%loop2180521837%_ + _%target2180221831%_ '() '())) - (_%g2169921725%_ _%g2170021729%_))))) - (_%g2169921725%_ _%g2170021729%_))))) + (_%g2179821824%_ _%g2179921828%_))))) + (_%g2179821824%_ _%g2179921828%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2169822097%_ + (_%g2179722196%_ (gx#stx-map - (lambda (_%ref22101%_) - (let* ((_%g2210422123%_ + (lambda (_%ref22200%_) + (let* ((_%g2220322222%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2210522119%_) + (lambda (_%g2220422218%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2210522119%_))) - (_%g2210322181%_ - (lambda (_%g2210522127%_) - (if (gx#stx-pair? _%g2210522127%_) - (let ((_%e2210922130%_ - (gx#syntax-e _%g2210522127%_))) - (let ((_%hd2211022134%_ + _%g2220422218%_))) + (_%g2220222280%_ + (lambda (_%g2220422226%_) + (if (gx#stx-pair? _%g2220422226%_) + (let ((_%e2220822229%_ + (gx#syntax-e _%g2220422226%_))) + (let ((_%hd2220922233%_ (let () (declare (not safe)) - (##car _%e2210922130%_))) - (_%tl2211122137%_ + (##car _%e2220822229%_))) + (_%tl2221022236%_ (let () (declare (not safe)) - (##cdr _%e2210922130%_)))) - (if (gx#stx-pair? _%tl2211122137%_) - (let ((_%e2211222140%_ - (gx#syntax-e _%tl2211122137%_))) - (let ((_%hd2211322144%_ + (##cdr _%e2220822229%_)))) + (if (gx#stx-pair? _%tl2221022236%_) + (let ((_%e2221122239%_ + (gx#syntax-e _%tl2221022236%_))) + (let ((_%hd2221222243%_ (let () (declare (not safe)) - (##car _%e2211222140%_))) - (_%tl2211422147%_ + (##car _%e2221122239%_))) + (_%tl2221322246%_ (let () (declare (not safe)) - (##cdr _%e2211222140%_)))) - (if (gx#stx-pair? _%tl2211422147%_) - (let ((_%e2211522150%_ + (##cdr _%e2221122239%_)))) + (if (gx#stx-pair? _%tl2221322246%_) + (let ((_%e2221422249%_ (gx#syntax-e - _%tl2211422147%_))) - (let ((_%hd2211622154%_ + _%tl2221322246%_))) + (let ((_%hd2221522253%_ (let () (declare (not safe)) - (##car _%e2211522150%_))) - (_%tl2211722157%_ + (##car _%e2221422249%_))) + (_%tl2221622256%_ (let () (declare (not safe)) - (##cdr _%e2211522150%_)))) + (##cdr _%e2221422249%_)))) (if (gx#stx-null? - _%tl2211722157%_) - ((lambda (_%L22160%_ + _%tl2221622256%_) + ((lambda (_%L22259%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L22162%_ - _%L22163%_) - (cons (_%wrap20991%_ + _%L22261%_ + _%L22262%_) + (cons (_%wrap21090%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L22162%_ + (cons _%L22261%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L21322%_ + (cons _%L21421%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L22163%_ (cons '#t '())))) + (cons _%L22262%_ (cons '#t '())))) (cons (cons (gx#datum->syntax '#f 'make-class-slot-accessor) - (cons _%L21085%_ + (cons _%L21184%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L22163%_ '())) + (cons _%L22262%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (cons (_%wrap20991%_ + (cons (_%wrap21090%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L22160%_ + (cons _%L22259%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -889,57 +889,57 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L21322%_ (cons _%L22163%_ (cons '#t '())))) + (cons _%L21421%_ (cons _%L22262%_ (cons '#t '())))) (cons (cons (gx#datum->syntax '#f 'make-class-slot-mutator) - (cons _%L21085%_ + (cons _%L21184%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L22163%_ '())) + (cons _%L22262%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))) - _%hd2211622154%_ - _%hd2211322144%_ - _%hd2211022134%_) - (_%g2210422123%_ _%g2210522127%_)))) + _%hd2221522253%_ + _%hd2221222243%_ + _%hd2220922233%_) + (_%g2220322222%_ _%g2220422226%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2210422123%_ - _%g2210522127%_)))) - (_%g2210422123%_ _%g2210522127%_)))) - (_%g2210422123%_ _%g2210522127%_))))) - (_%g2210322181%_ _%ref22101%_))) - _%accessible-slots21142%_)))) + (_%g2220322222%_ + _%g2220422226%_)))) + (_%g2220322222%_ _%g2220422226%_)))) + (_%g2220322222%_ _%g2220422226%_))))) + (_%g2220222280%_ _%ref22200%_))) + _%accessible-slots21241%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2167221683%_)))) - (_%g2167022185%_ - (_%wrap20991%_ + _%g2177121782%_)))) + (_%g2176922284%_ + (_%wrap21090%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L21082%_ + (cons _%L21181%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.predicate) - (cons _%L21322%_ '())) + (cons _%L21421%_ '())) (cons (cons (gx#datum->syntax '#f 'make-class-predicate) - (cons _%L21085%_ '())) + (cons _%L21184%_ '())) '()))) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2164421655%_)))) - (_%g2164222189%_ - (if (gx#stx-false? _%L21083%_) + _%g2174321754%_)))) + (_%g2174122288%_ + (if (gx#stx-false? _%L21182%_) (cons (gx#datum->syntax '#f 'begin) '()) - (_%wrap20991%_ + (_%wrap21090%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L21083%_ + (cons _%L21182%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -947,7 +947,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.constructor) - (cons _%L21322%_ '())) + (cons _%L21421%_ '())) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (gx#datum->syntax '#f '$args) (cons (cons (gx#datum->syntax @@ -956,7 +956,7 @@ (cons (gx#datum->syntax '#f 'make-instance) - (cons _%L21085%_ + (cons _%L21184%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f '$args) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -964,93 +964,93 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))))) - _%g2161621627%_)))) - (_%g2161422193%_ - (_%wrap20991%_ + _%g2171521726%_)))) + (_%g2171322292%_ + (_%wrap21090%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L21085%_ + (cons _%L21184%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.class) - (cons _%L21238%_ - (cons _%L21350%_ - (cons (foldr (lambda (_%g2219622199%_ + (cons _%L21337%_ + (cons _%L21449%_ + (cons (foldr (lambda (_%g2229522298%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2219722202%_) - (cons _%g2219622199%_ _%g2219722202%_)) + _%g2229622301%_) + (cons _%g2229522298%_ _%g2229622301%_)) '() - _%L21202%_) - (cons _%L21294%_ - (cons _%L21378%_ - (cons _%L21406%_ - (cons _%L21434%_ '())))))))) + _%L21301%_) + (cons _%L21393%_ + (cons _%L21477%_ + (cons _%L21505%_ + (cons _%L21533%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L21602%_ '()))) + (cons _%L21701%_ '()))) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2158821599%_)))) - (_%g2158622205%_ + _%g2168721698%_)))) + (_%g2168522304%_ (cons (gx#datum->syntax '#f 'make-class-type) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L21238%_ + (cons _%L21337%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons (gx#datum->syntax '#f 'quote) (cons _%L21266%_ '())) - (cons _%L21574%_ + (cons (cons (gx#datum->syntax '#f 'quote) (cons _%L21365%_ '())) + (cons _%L21673%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g2220822211%_ - _%g2220922214%_) - (cons _%g2220822211%_ - _%g2220922214%_)) + (cons (foldr (lambda (_%g2230722310%_ + _%g2230822313%_) + (cons _%g2230722310%_ + _%g2230822313%_)) '() - _%L21202%_) + _%L21301%_) '())) - (cons _%L21546%_ + (cons _%L21645%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L21294%_ '())) + (cons _%L21393%_ '())) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2156021571%_)))) - (_%g2155822217%_ - (cons (gx#datum->syntax '#f 'list) _%L21084%_)))) - _%g2153221543%_)))) - (_%g2153022221%_ - (if (gx#stx-e _%metaclass21145%_) - (let* ((_%g2222522233%_ - (lambda (_%g2222622229%_) + _%g2165921670%_)))) + (_%g2165722316%_ + (cons (gx#datum->syntax '#f 'list) _%L21183%_)))) + _%g2163121642%_)))) + (_%g2162922320%_ + (if (gx#stx-e _%metaclass21244%_) + (let* ((_%g2232422332%_ + (lambda (_%g2232522328%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2222622229%_))) - (_%g2222422252%_ - (lambda (_%g2222622237%_) - ((lambda (_%L22240%_) + _%g2232522328%_))) + (_%g2232322351%_ + (lambda (_%g2232522336%_) + ((lambda (_%L22339%_) (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f '@list) (cons 'metaclass: (cons ':: - (cons _%L22240%_ + (cons _%L22339%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons ':: - (cons _%L21518%_ '()))))) - _%g2222622237%_)))) - (_%g2222422252%_ _%metaclass21145%_)) - _%L21518%_)))) + (cons _%L21617%_ '()))))) + _%g2232522336%_)))) + (_%g2232322351%_ _%metaclass21244%_)) + _%L21617%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2150421515%_)))) - (_%g2150222256%_ - (if _%struct?21125%_ + _%g2160321614%_)))) + (_%g2160122355%_ + (if _%struct?21224%_ (cons (gx#datum->syntax '#f '@list) @@ -1059,94 +1059,94 @@ '#f '@list) (cons 'struct: '#t)) - (cons ':: (cons _%L21490%_ '())))) + (cons ':: (cons _%L21589%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L21490%_)))) - _%g2147621487%_)))) - (_%g2147422260%_ - (if (gx#stx-e _%L21406%_) + _%L21589%_)))) + _%g2157521586%_)))) + (_%g2157322359%_ + (if (gx#stx-e _%L21505%_) (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f '@list) (cons 'final: '#t)) (cons ':: - (cons _%L21462%_ '())))) - _%L21462%_)))) - _%g2144821459%_)))) - (_%g2144622264%_ - (let ((_%$e22268%_ (gx#stx-getq 'properties: _%L21080%_))) - (if _%$e22268%_ - _%$e22268%_ + (cons _%L21561%_ '())))) + _%L21561%_)))) + _%g2154721558%_)))) + (_%g2154522363%_ + (let ((_%$e22367%_ (gx#stx-getq 'properties: _%L21179%_))) + (if _%$e22367%_ + _%$e22367%_ (cons (gx#datum->syntax '#f '@list) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2142021431%_)))) - (_%g2141822272%_ - (if (gx#stx-e _%metaclass21145%_) + _%g2151921530%_)))) + (_%g2151722371%_ + (if (gx#stx-e _%metaclass21244%_) (gx#core-quote-syntax - _%metaclass21145%_) + _%metaclass21244%_) '#f)))) - _%g2139221403%_)))) - (_%g2139022276%_ - (gx#stx-getq 'final: _%L21080%_)))) - _%g2136421375%_)))) - (_%g2136222280%_ _%struct?21125%_))) + _%g2149121502%_)))) + (_%g2148922375%_ + (gx#stx-getq 'final: _%L21179%_)))) + _%g2146321474%_)))) + (_%g2146122379%_ _%struct?21224%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2133621347%_)))) - (_%g2133422284%_ + _%g2143521446%_)))) + (_%g2143322383%_ (gx#stx-map gx#core-quote-syntax - _%L21084%_)))) - _%g2130821319%_)))) - (_%g2130622288%_ - (gx#core-quote-syntax _%L21085%_)))) - _%g2128021291%_)))) - (_%g2127822292%_ (gx#stx-getq 'constructor: _%L21080%_)))) - _%g2125221263%_)))) + _%L21183%_)))) + _%g2140721418%_)))) + (_%g2140522387%_ + (gx#core-quote-syntax _%L21184%_)))) + _%g2137921390%_)))) + (_%g2137722391%_ (gx#stx-getq 'constructor: _%L21179%_)))) + _%g2135121362%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2125022296%_ - (let ((_%$e22300%_ + (_%g2134922395%_ + (let ((_%$e22399%_ (gx#stx-getq 'name: - _%L21080%_))) - (if _%$e22300%_ - _%$e22300%_ - _%L21085%_))))) - _%g2122421235%_)))) - (_%g2122222304%_ - (let ((_%$e22308%_ - (gx#stx-getq 'id: _%L21080%_))) - (if _%$e22308%_ - _%$e22308%_ + _%L21179%_))) + (if _%$e22399%_ + _%$e22399%_ + _%L21184%_))))) + _%g2132321334%_)))) + (_%g2132122403%_ + (let ((_%$e22407%_ + (gx#stx-getq 'id: _%L21179%_))) + (if _%$e22407%_ + _%$e22407%_ (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L21085%_)))))) - _%slot2115921198%_)))))) + _%L21184%_)))))) + _%slot2125821297%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2115421178%_ - _%target2115121172%_ + (_%loop2125321277%_ + _%target2125021271%_ '())) - (_%g2114821165%_ - _%g2114921169%_))))) - (_%g2114821165%_ _%g2114921169%_))))) - (_%g2114722312%_ - (gx#stx-map _%slot-name20993%_ _%slots21132%_))) - (_%g2099621023%_ _%g2099721027%_))) - _%tl2101721077%_ - _%hd2101621074%_ - _%hd2101321064%_ - _%hd2101021054%_ - _%hd2100721044%_))) - (_%g2099621023%_ _%g2099721027%_)))) + (_%g2124721264%_ + _%g2124821268%_))))) + (_%g2124721264%_ _%g2124821268%_))))) + (_%g2124622411%_ + (gx#stx-map _%slot-name21092%_ _%slots21231%_))) + (_%g2109521122%_ _%g2109621126%_))) + _%tl2111621176%_ + _%hd2111521173%_ + _%hd2111221163%_ + _%hd2110921153%_ + _%hd2110621143%_))) + (_%g2109521122%_ _%g2109621126%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2099621023%_ - _%g2099721027%_)))) - (_%g2099621023%_ _%g2099721027%_)))) - (_%g2099621023%_ _%g2099721027%_)))) - (_%g2099621023%_ _%g2099721027%_))))) - (_%g2099522316%_ _%stx20987%_))))) + (_%g2109521122%_ + _%g2109621126%_)))) + (_%g2109521122%_ _%g2109621126%_)))) + (_%g2109521122%_ _%g2109621126%_)))) + (_%g2109521122%_ _%g2109621126%_))))) + (_%g2109422415%_ _%stx21086%_))))) (define |gerbil/core/mop~MOP-1[:0:]#defstruct-type| - (lambda (_%stx22430%_) - (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22430%_ '#t))) + (lambda (_%stx22529%_) + (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22529%_ '#t))) (define |gerbil/core/mop~MOP-1[:0:]#defclass-type| - (lambda (_%stx22433%_) - (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22433%_ '#f)))) + (lambda (_%stx22532%_) + (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22532%_ '#f)))) diff --git a/src/bootstrap/gerbil/core/mop~2.scm b/src/bootstrap/gerbil/core/mop~2.scm index c392809b8..9eeb5879e 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]#_g27115_| + (define |gerbil/core/mop~MOP-3[1]#_g27214_| (##structure gx#syntax-quote::t 'class-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27117_| + (define |gerbil/core/mop~MOP-3[1]#_g27216_| (##structure gx#syntax-quote::t 'make-class-type-info #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27119_| + (define |gerbil/core/mop~MOP-3[1]#_g27218_| (##structure gx#syntax-quote::t 'class-type-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27121_| + (define |gerbil/core/mop~MOP-3[1]#_g27220_| (##structure gx#syntax-quote::t '!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27122_| + (define |gerbil/core/mop~MOP-3[1]#_g27221_| (##structure gx#syntax-quote::t '!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27123_| + (define |gerbil/core/mop~MOP-3[1]#_g27222_| (##structure gx#syntax-quote::t '!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27124_| + (define |gerbil/core/mop~MOP-3[1]#_g27223_| (##structure gx#syntax-quote::t '!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27125_| + (define |gerbil/core/mop~MOP-3[1]#_g27224_| (##structure gx#syntax-quote::t '!class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27126_| + (define |gerbil/core/mop~MOP-3[1]#_g27225_| (##structure gx#syntax-quote::t '!class-type-ordered-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27127_| + (define |gerbil/core/mop~MOP-3[1]#_g27226_| (##structure gx#syntax-quote::t '!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27128_| + (define |gerbil/core/mop~MOP-3[1]#_g27227_| (##structure gx#syntax-quote::t '!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27129_| + (define |gerbil/core/mop~MOP-3[1]#_g27228_| (##structure gx#syntax-quote::t '!class-type-system? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27130_| + (define |gerbil/core/mop~MOP-3[1]#_g27229_| (##structure gx#syntax-quote::t '!class-type-metaclass #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27131_| + (define |gerbil/core/mop~MOP-3[1]#_g27230_| (##structure gx#syntax-quote::t '!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27132_| + (define |gerbil/core/mop~MOP-3[1]#_g27231_| (##structure gx#syntax-quote::t '!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27133_| + (define |gerbil/core/mop~MOP-3[1]#_g27232_| (##structure gx#syntax-quote::t '!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27134_| + (define |gerbil/core/mop~MOP-3[1]#_g27233_| (##structure gx#syntax-quote::t '!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27135_| + (define |gerbil/core/mop~MOP-3[1]#_g27234_| (##structure gx#syntax-quote::t '!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27136_| + (define |gerbil/core/mop~MOP-3[1]#_g27235_| (##structure gx#syntax-quote::t '!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27137_| + (define |gerbil/core/mop~MOP-3[1]#_g27236_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27138_| + (define |gerbil/core/mop~MOP-3[1]#_g27237_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27139_| + (define |gerbil/core/mop~MOP-3[1]#_g27238_| (##structure gx#syntax-quote::t '!class-type-slot-types #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27140_| + (define |gerbil/core/mop~MOP-3[1]#_g27239_| (##structure gx#syntax-quote::t '!class-type-slot-defaults #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27141_| + (define |gerbil/core/mop~MOP-3[1]#_g27240_| (##structure gx#syntax-quote::t '!class-type-slot-contracts #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27143_| + (define |gerbil/core/mop~MOP-3[1]#_g27242_| (##structure gx#syntax-quote::t '!class-type-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27144_| + (define |gerbil/core/mop~MOP-3[1]#_g27243_| (##structure gx#syntax-quote::t '!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27145_| + (define |gerbil/core/mop~MOP-3[1]#_g27244_| (##structure gx#syntax-quote::t '!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27146_| + (define |gerbil/core/mop~MOP-3[1]#_g27245_| (##structure gx#syntax-quote::t '!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27147_| + (define |gerbil/core/mop~MOP-3[1]#_g27246_| (##structure gx#syntax-quote::t '!class-type-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27148_| + (define |gerbil/core/mop~MOP-3[1]#_g27247_| (##structure gx#syntax-quote::t '!class-type-ordered-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27149_| + (define |gerbil/core/mop~MOP-3[1]#_g27248_| (##structure gx#syntax-quote::t '!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27150_| + (define |gerbil/core/mop~MOP-3[1]#_g27249_| (##structure gx#syntax-quote::t '!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27151_| + (define |gerbil/core/mop~MOP-3[1]#_g27250_| (##structure gx#syntax-quote::t '!class-type-system?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27152_| + (define |gerbil/core/mop~MOP-3[1]#_g27251_| (##structure gx#syntax-quote::t '!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27153_| + (define |gerbil/core/mop~MOP-3[1]#_g27252_| (##structure gx#syntax-quote::t '!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27154_| + (define |gerbil/core/mop~MOP-3[1]#_g27253_| (##structure gx#syntax-quote::t '!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27155_| + (define |gerbil/core/mop~MOP-3[1]#_g27254_| (##structure gx#syntax-quote::t '!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27156_| + (define |gerbil/core/mop~MOP-3[1]#_g27255_| (##structure gx#syntax-quote::t '!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27157_| + (define |gerbil/core/mop~MOP-3[1]#_g27256_| (##structure gx#syntax-quote::t '!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27158_| + (define |gerbil/core/mop~MOP-3[1]#_g27257_| (##structure gx#syntax-quote::t '!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27159_| + (define |gerbil/core/mop~MOP-3[1]#_g27258_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27160_| + (define |gerbil/core/mop~MOP-3[1]#_g27259_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27161_| + (define |gerbil/core/mop~MOP-3[1]#_g27260_| (##structure gx#syntax-quote::t '!class-type-slot-types-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27162_| + (define |gerbil/core/mop~MOP-3[1]#_g27261_| (##structure gx#syntax-quote::t '!class-type-slot-defaults-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27163_| + (define |gerbil/core/mop~MOP-3[1]#_g27262_| (##structure gx#syntax-quote::t '!class-type-slot-contracts-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27165_| + (define |gerbil/core/mop~MOP-3[1]#_g27264_| (##structure gx#syntax-quote::t '&!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27166_| + (define |gerbil/core/mop~MOP-3[1]#_g27265_| (##structure gx#syntax-quote::t '&!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27167_| + (define |gerbil/core/mop~MOP-3[1]#_g27266_| (##structure gx#syntax-quote::t '&!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27168_| + (define |gerbil/core/mop~MOP-3[1]#_g27267_| (##structure gx#syntax-quote::t '&!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27169_| + (define |gerbil/core/mop~MOP-3[1]#_g27268_| (##structure gx#syntax-quote::t '&!class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27170_| + (define |gerbil/core/mop~MOP-3[1]#_g27269_| (##structure gx#syntax-quote::t '&!class-type-ordered-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27171_| + (define |gerbil/core/mop~MOP-3[1]#_g27270_| (##structure gx#syntax-quote::t '&!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27172_| + (define |gerbil/core/mop~MOP-3[1]#_g27271_| (##structure gx#syntax-quote::t '&!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27173_| + (define |gerbil/core/mop~MOP-3[1]#_g27272_| (##structure gx#syntax-quote::t '&!class-type-system? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27174_| + (define |gerbil/core/mop~MOP-3[1]#_g27273_| (##structure gx#syntax-quote::t '&!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27175_| + (define |gerbil/core/mop~MOP-3[1]#_g27274_| (##structure gx#syntax-quote::t '&!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27176_| + (define |gerbil/core/mop~MOP-3[1]#_g27275_| (##structure gx#syntax-quote::t '&!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27177_| + (define |gerbil/core/mop~MOP-3[1]#_g27276_| (##structure gx#syntax-quote::t '&!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27178_| + (define |gerbil/core/mop~MOP-3[1]#_g27277_| (##structure gx#syntax-quote::t '&!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27179_| + (define |gerbil/core/mop~MOP-3[1]#_g27278_| (##structure gx#syntax-quote::t '&!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27180_| + (define |gerbil/core/mop~MOP-3[1]#_g27279_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27181_| + (define |gerbil/core/mop~MOP-3[1]#_g27280_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27182_| + (define |gerbil/core/mop~MOP-3[1]#_g27281_| (##structure gx#syntax-quote::t '&!class-type-slot-types #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27183_| + (define |gerbil/core/mop~MOP-3[1]#_g27282_| (##structure gx#syntax-quote::t '&!class-type-slot-defaults #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27184_| + (define |gerbil/core/mop~MOP-3[1]#_g27283_| (##structure gx#syntax-quote::t '&!class-type-slot-contracts #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27186_| + (define |gerbil/core/mop~MOP-3[1]#_g27285_| (##structure gx#syntax-quote::t '&!class-type-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27187_| + (define |gerbil/core/mop~MOP-3[1]#_g27286_| (##structure gx#syntax-quote::t '&!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27188_| + (define |gerbil/core/mop~MOP-3[1]#_g27287_| (##structure gx#syntax-quote::t '&!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27189_| + (define |gerbil/core/mop~MOP-3[1]#_g27288_| (##structure gx#syntax-quote::t '&!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27190_| + (define |gerbil/core/mop~MOP-3[1]#_g27289_| (##structure gx#syntax-quote::t '&!class-type-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27191_| + (define |gerbil/core/mop~MOP-3[1]#_g27290_| (##structure gx#syntax-quote::t '&!class-type-ordered-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27192_| + (define |gerbil/core/mop~MOP-3[1]#_g27291_| (##structure gx#syntax-quote::t '&!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27193_| + (define |gerbil/core/mop~MOP-3[1]#_g27292_| (##structure gx#syntax-quote::t '&!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27194_| + (define |gerbil/core/mop~MOP-3[1]#_g27293_| (##structure gx#syntax-quote::t '&!class-type-system?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27195_| + (define |gerbil/core/mop~MOP-3[1]#_g27294_| (##structure gx#syntax-quote::t '&!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27196_| + (define |gerbil/core/mop~MOP-3[1]#_g27295_| (##structure gx#syntax-quote::t '&!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27197_| + (define |gerbil/core/mop~MOP-3[1]#_g27296_| (##structure gx#syntax-quote::t '&!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27198_| + (define |gerbil/core/mop~MOP-3[1]#_g27297_| (##structure gx#syntax-quote::t '&!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27199_| + (define |gerbil/core/mop~MOP-3[1]#_g27298_| (##structure gx#syntax-quote::t '&!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27200_| + (define |gerbil/core/mop~MOP-3[1]#_g27299_| (##structure gx#syntax-quote::t '&!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27201_| + (define |gerbil/core/mop~MOP-3[1]#_g27300_| (##structure gx#syntax-quote::t '&!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27202_| + (define |gerbil/core/mop~MOP-3[1]#_g27301_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27203_| + (define |gerbil/core/mop~MOP-3[1]#_g27302_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27204_| + (define |gerbil/core/mop~MOP-3[1]#_g27303_| (##structure gx#syntax-quote::t '&!class-type-slot-types-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27205_| + (define |gerbil/core/mop~MOP-3[1]#_g27304_| (##structure gx#syntax-quote::t '&!class-type-slot-defaults-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27206_| + (define |gerbil/core/mop~MOP-3[1]#_g27305_| (##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 ((__obj27023 + (let ((__obj27122 (let () (declare (not safe)) (##structure @@ -632,21 +632,21 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27023 + __obj27122 'gerbil.core#class-type-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 'class-type-info '2 '#f '#f)) + (##unchecked-structure-set! __obj27122 'class-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj27122 '() '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj27023 + __obj27122 '(id name super slots @@ -672,219 +672,219 @@ '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj27122 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj27122 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 '#f '9 '#f '#f)) + (##unchecked-structure-set! __obj27122 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 '#f '11 '#f '#f)) - (let ((__tmp27114 |gerbil/core/mop~MOP-3[1]#_g27115_|)) + (##unchecked-structure-set! __obj27122 '#f '11 '#f '#f)) + (let ((__tmp27213 |gerbil/core/mop~MOP-3[1]#_g27214_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27023 __tmp27114 '12 '#f '#f)) - (let ((__tmp27116 |gerbil/core/mop~MOP-3[1]#_g27117_|)) + (##unchecked-structure-set! __obj27122 __tmp27213 '12 '#f '#f)) + (let ((__tmp27215 |gerbil/core/mop~MOP-3[1]#_g27216_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27023 __tmp27116 '13 '#f '#f)) - (let ((__tmp27118 |gerbil/core/mop~MOP-3[1]#_g27119_|)) + (##unchecked-structure-set! __obj27122 __tmp27215 '13 '#f '#f)) + (let ((__tmp27217 |gerbil/core/mop~MOP-3[1]#_g27218_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27023 __tmp27118 '14 '#f '#f)) - (let ((__tmp27120 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27121_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27122_|) + (##unchecked-structure-set! __obj27122 __tmp27217 '14 '#f '#f)) + (let ((__tmp27219 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27220_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27221_|) (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27123_|) + |gerbil/core/mop~MOP-3[1]#_g27222_|) (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27124_|) + |gerbil/core/mop~MOP-3[1]#_g27223_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27125_|) + |gerbil/core/mop~MOP-3[1]#_g27224_|) (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27126_|) + |gerbil/core/mop~MOP-3[1]#_g27225_|) (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27127_|) + |gerbil/core/mop~MOP-3[1]#_g27226_|) (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27128_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27129_|) + |gerbil/core/mop~MOP-3[1]#_g27227_|) + (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27228_|) (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27130_|) + |gerbil/core/mop~MOP-3[1]#_g27229_|) (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27131_|) + |gerbil/core/mop~MOP-3[1]#_g27230_|) (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27132_|) + |gerbil/core/mop~MOP-3[1]#_g27231_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27133_|) + |gerbil/core/mop~MOP-3[1]#_g27232_|) (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27134_|) + |gerbil/core/mop~MOP-3[1]#_g27233_|) (cons (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27135_|) + |gerbil/core/mop~MOP-3[1]#_g27234_|) (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27136_|) + |gerbil/core/mop~MOP-3[1]#_g27235_|) (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27137_|) + |gerbil/core/mop~MOP-3[1]#_g27236_|) (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27138_|) + |gerbil/core/mop~MOP-3[1]#_g27237_|) (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27139_|) + |gerbil/core/mop~MOP-3[1]#_g27238_|) (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27140_|) + |gerbil/core/mop~MOP-3[1]#_g27239_|) (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27141_|) + |gerbil/core/mop~MOP-3[1]#_g27240_|) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27023 __tmp27120 '15 '#f '#f)) - (let ((__tmp27142 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27143_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27144_|) + (##unchecked-structure-set! __obj27122 __tmp27219 '15 '#f '#f)) + (let ((__tmp27241 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27242_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27243_|) (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27145_|) + |gerbil/core/mop~MOP-3[1]#_g27244_|) (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27146_|) + |gerbil/core/mop~MOP-3[1]#_g27245_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27147_|) + |gerbil/core/mop~MOP-3[1]#_g27246_|) (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27148_|) + |gerbil/core/mop~MOP-3[1]#_g27247_|) (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27149_|) + |gerbil/core/mop~MOP-3[1]#_g27248_|) (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27150_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27151_|) + |gerbil/core/mop~MOP-3[1]#_g27249_|) + (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27250_|) (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27152_|) + |gerbil/core/mop~MOP-3[1]#_g27251_|) (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27153_|) + |gerbil/core/mop~MOP-3[1]#_g27252_|) (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27154_|) + |gerbil/core/mop~MOP-3[1]#_g27253_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27155_|) + |gerbil/core/mop~MOP-3[1]#_g27254_|) (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27156_|) + |gerbil/core/mop~MOP-3[1]#_g27255_|) (cons (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27157_|) + |gerbil/core/mop~MOP-3[1]#_g27256_|) (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27158_|) + |gerbil/core/mop~MOP-3[1]#_g27257_|) (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27159_|) + |gerbil/core/mop~MOP-3[1]#_g27258_|) (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27160_|) + |gerbil/core/mop~MOP-3[1]#_g27259_|) (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27161_|) + |gerbil/core/mop~MOP-3[1]#_g27260_|) (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27162_|) + |gerbil/core/mop~MOP-3[1]#_g27261_|) (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27163_|) + |gerbil/core/mop~MOP-3[1]#_g27262_|) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27023 __tmp27142 '16 '#f '#f)) - (let ((__tmp27164 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27165_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27166_|) + (##unchecked-structure-set! __obj27122 __tmp27241 '16 '#f '#f)) + (let ((__tmp27263 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27264_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27265_|) (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27167_|) + |gerbil/core/mop~MOP-3[1]#_g27266_|) (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27168_|) + |gerbil/core/mop~MOP-3[1]#_g27267_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27169_|) + |gerbil/core/mop~MOP-3[1]#_g27268_|) (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27170_|) + |gerbil/core/mop~MOP-3[1]#_g27269_|) (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27171_|) + |gerbil/core/mop~MOP-3[1]#_g27270_|) (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27172_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27173_|) + |gerbil/core/mop~MOP-3[1]#_g27271_|) + (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27272_|) (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27130_|) + |gerbil/core/mop~MOP-3[1]#_g27229_|) (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27174_|) + |gerbil/core/mop~MOP-3[1]#_g27273_|) (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27175_|) + |gerbil/core/mop~MOP-3[1]#_g27274_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27176_|) + |gerbil/core/mop~MOP-3[1]#_g27275_|) (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27177_|) + |gerbil/core/mop~MOP-3[1]#_g27276_|) (cons (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27178_|) + |gerbil/core/mop~MOP-3[1]#_g27277_|) (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27179_|) + |gerbil/core/mop~MOP-3[1]#_g27278_|) (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27180_|) + |gerbil/core/mop~MOP-3[1]#_g27279_|) (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27181_|) + |gerbil/core/mop~MOP-3[1]#_g27280_|) (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27182_|) + |gerbil/core/mop~MOP-3[1]#_g27281_|) (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27183_|) + |gerbil/core/mop~MOP-3[1]#_g27282_|) (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27184_|) + |gerbil/core/mop~MOP-3[1]#_g27283_|) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27023 __tmp27164 '17 '#f '#f)) - (let ((__tmp27185 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27186_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27187_|) + (##unchecked-structure-set! __obj27122 __tmp27263 '17 '#f '#f)) + (let ((__tmp27284 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27285_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27286_|) (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27188_|) + |gerbil/core/mop~MOP-3[1]#_g27287_|) (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27189_|) + |gerbil/core/mop~MOP-3[1]#_g27288_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27190_|) + |gerbil/core/mop~MOP-3[1]#_g27289_|) (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27191_|) + |gerbil/core/mop~MOP-3[1]#_g27290_|) (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27192_|) + |gerbil/core/mop~MOP-3[1]#_g27291_|) (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27193_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27194_|) + |gerbil/core/mop~MOP-3[1]#_g27292_|) + (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27293_|) (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27195_|) + |gerbil/core/mop~MOP-3[1]#_g27294_|) (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27196_|) + |gerbil/core/mop~MOP-3[1]#_g27295_|) (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27197_|) + |gerbil/core/mop~MOP-3[1]#_g27296_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27198_|) + |gerbil/core/mop~MOP-3[1]#_g27297_|) (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27199_|) + |gerbil/core/mop~MOP-3[1]#_g27298_|) (cons (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27200_|) + |gerbil/core/mop~MOP-3[1]#_g27299_|) (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27201_|) + |gerbil/core/mop~MOP-3[1]#_g27300_|) (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27202_|) + |gerbil/core/mop~MOP-3[1]#_g27301_|) (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27203_|) + |gerbil/core/mop~MOP-3[1]#_g27302_|) (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27204_|) + |gerbil/core/mop~MOP-3[1]#_g27303_|) (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27205_|) + |gerbil/core/mop~MOP-3[1]#_g27304_|) (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27206_|) + |gerbil/core/mop~MOP-3[1]#_g27305_|) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27023 __tmp27185 '18 '#f '#f)) - __obj27023))) + (##unchecked-structure-set! __obj27122 __tmp27284 '18 '#f '#f)) + __obj27122))) diff --git a/src/bootstrap/gerbil/core/mop~3.scm b/src/bootstrap/gerbil/core/mop~3.scm index 1cebf271e..88c89f7be 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]#_g27235_| + (define |gerbil/core/mop~MOP-4[1]#_g27334_| (##structure gx#syntax-quote::t '@method @@ -9,12 +9,12 @@ '())) (begin (define |gerbil/core/mop~MOP-4[1]#typedef-body?| - (lambda (_%stx24789%_) - (letrec ((_%body-opt?24792%_ - (lambda (_%key24795%_) - (let ((__tmp27207 (gx#stx-e _%key24795%_))) + (lambda (_%stx24888%_) + (letrec ((_%body-opt?24891%_ + (lambda (_%key24894%_) + (let ((__tmp27306 (gx#stx-e _%key24894%_))) (declare (not safe)) - (##memq __tmp27207 + (##memq __tmp27306 '(id: struct: name: @@ -24,1191 +24,1191 @@ print: equal: metaclass:)))))) - (gx#stx-plist? _%stx24789%_ _%body-opt?24792%_)))) + (gx#stx-plist? _%stx24888%_ _%body-opt?24891%_)))) (define |gerbil/core/mop~MOP-4[1]#generate-defclass| - (lambda (_%stx22555%_ - _%id22557%_ - _%super-ref22558%_ - _%slots22559%_ - _%body22560%_) - (letrec ((_%wrap22562%_ - (lambda (_%e-stx24786%_) + (lambda (_%stx22654%_ + _%id22656%_ + _%super-ref22657%_ + _%slots22658%_ + _%body22659%_) + (letrec ((_%wrap22661%_ + (lambda (_%e-stx24885%_) (gx#stx-wrap-source - _%e-stx24786%_ - (gx#stx-source _%stx22555%_)))) - (_%make-id22564%_ - (lambda _%args24783%_ - (apply gx#stx-identifier _%id22557%_ _%args24783%_))) - (_%get-mixin-slots22565%_ - (lambda (_%super24753%_ _%slots24755%_) - (letrec* ((_%tab24757%_ (make-hash-table-eq)) - (_%dedup24759%_ - (lambda (_%mixins24770%_) - (let _%lp24773%_ ((_%rest24776%_ - _%mixins24770%_) - (_%r24778%_ '())) - (if (pair? _%rest24776%_) - (let ((_%slot24780%_ + _%e-stx24885%_ + (gx#stx-source _%stx22654%_)))) + (_%make-id22663%_ + (lambda _%args24882%_ + (apply gx#stx-identifier _%id22656%_ _%args24882%_))) + (_%get-mixin-slots22664%_ + (lambda (_%super24852%_ _%slots24854%_) + (letrec* ((_%tab24856%_ (make-hash-table-eq)) + (_%dedup24858%_ + (lambda (_%mixins24869%_) + (let _%lp24872%_ ((_%rest24875%_ + _%mixins24869%_) + (_%r24877%_ '())) + (if (pair? _%rest24875%_) + (let ((_%slot24879%_ (let () (declare (not safe)) - (##car _%rest24776%_)))) + (##car _%rest24875%_)))) (if (hash-get - _%tab24757%_ - _%slot24780%_) - (_%lp24773%_ + _%tab24856%_ + _%slot24879%_) + (_%lp24872%_ (let () (declare (not safe)) - (##cdr _%rest24776%_)) - _%r24778%_) + (##cdr _%rest24875%_)) + _%r24877%_) (begin (hash-put! - _%tab24757%_ - _%slot24780%_ + _%tab24856%_ + _%slot24879%_ '#t) - (_%lp24773%_ + (_%lp24872%_ (let () (declare (not safe)) - (##cdr _%rest24776%_)) - (cons _%slot24780%_ - _%r24778%_))))) - (reverse _%r24778%_)))))) + (##cdr _%rest24875%_)) + (cons _%slot24879%_ + _%r24877%_))))) + (reverse _%r24877%_)))))) (gx#stx-for-each - (lambda (_%slot24761%_) - (hash-put! _%tab24757%_ (gx#stx-e _%slot24761%_) '#t)) - _%slots24755%_) - (if (not _%super24753%_) + (lambda (_%slot24860%_) + (hash-put! _%tab24856%_ (gx#stx-e _%slot24860%_) '#t)) + _%slots24854%_) + (if (not _%super24852%_) '() - (if (gx#identifier? _%super24753%_) - (_%dedup24759%_ - (_%get-mixin-slots-r22566%_ _%super24753%_)) - (_%dedup24759%_ + (if (gx#identifier? _%super24852%_) + (_%dedup24858%_ + (_%get-mixin-slots-r22665%_ _%super24852%_)) + (_%dedup24858%_ (concatenate - (map _%get-mixin-slots-r22566%_ - _%super24753%_)))))))) - (_%get-mixin-slots-r22566%_ - (lambda (_%type-id24747%_) - (let ((_%info24750%_ - (gx#syntax-local-value _%type-id24747%_))) - (let ((__tmp27209 - (let ((__obj27024 _%info24750%_)) + (map _%get-mixin-slots-r22665%_ + _%super24852%_)))))))) + (_%get-mixin-slots-r22665%_ + (lambda (_%type-id24846%_) + (let ((_%info24849%_ + (gx#syntax-local-value _%type-id24846%_))) + (let ((__tmp27308 + (let ((__obj27123 _%info24849%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27024 + __obj27123 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27024 + __obj27123 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27024 + __obj27123 'slots)))) - (__tmp27208 + (__tmp27307 (concatenate - (map _%get-mixin-slots-r22566%_ - (let ((__obj27025 _%info24750%_)) + (map _%get-mixin-slots-r22665%_ + (let ((__obj27124 _%info24849%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27025 + __obj27124 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27025 + __obj27124 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27025 + __obj27124 'super))))))) (declare (not safe)) - (##append __tmp27209 __tmp27208)))))) - (gx#check-duplicate-identifiers _%slots22559%_ _%stx22555%_) - (let* ((_%name22568%_ (symbol->string (gx#stx-e _%id22557%_))) - (_%super22571%_ - (map gx#syntax-local-value _%super-ref22558%_)) - (_%struct?22574%_ (gx#stx-getq 'struct: _%body22560%_)) - (_%g2257722585%_ - (lambda (_%g2257822581%_) + (##append __tmp27308 __tmp27307)))))) + (gx#check-duplicate-identifiers _%slots22658%_ _%stx22654%_) + (let* ((_%name22667%_ (symbol->string (gx#stx-e _%id22656%_))) + (_%super22670%_ + (map gx#syntax-local-value _%super-ref22657%_)) + (_%struct?22673%_ (gx#stx-getq 'struct: _%body22659%_)) + (_%g2267622684%_ + (lambda (_%g2267722680%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2257822581%_))) - (_%g2257624743%_ - (lambda (_%g2257822589%_) - ((lambda (_%L22592%_) - (let* ((_%g2260822616%_ - (lambda (_%g2260922612%_) + _%g2267722680%_))) + (_%g2267524842%_ + (lambda (_%g2267722688%_) + ((lambda (_%L22691%_) + (let* ((_%g2270722715%_ + (lambda (_%g2270822711%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2260922612%_))) - (_%g2260724739%_ - (lambda (_%g2260922620%_) - ((lambda (_%L22623%_) - (let* ((_%g2263622644%_ - (lambda (_%g2263722640%_) + _%g2270822711%_))) + (_%g2270624838%_ + (lambda (_%g2270822719%_) + ((lambda (_%L22722%_) + (let* ((_%g2273522743%_ + (lambda (_%g2273622739%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2263722640%_))) - (_%g2263524735%_ - (lambda (_%g2263722648%_) - ((lambda (_%L22651%_) - (let* ((_%g2266422672%_ - (lambda (_%g2266522668%_) + _%g2273622739%_))) + (_%g2273424834%_ + (lambda (_%g2273622747%_) + ((lambda (_%L22750%_) + (let* ((_%g2276322771%_ + (lambda (_%g2276422767%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2266522668%_))) - (_%g2266324731%_ - (lambda (_%g2266522676%_) - ((lambda (_%L22679%_) - (let* ((_%g2269222700%_ + _%g2276422767%_))) + (_%g2276224830%_ + (lambda (_%g2276422775%_) + ((lambda (_%L22778%_) + (let* ((_%g2279122799%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2269322696%_) + (lambda (_%g2279222795%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2269322696%_))) - (_%g2269124727%_ - (lambda (_%g2269322704%_) - ((lambda (_%L22707%_) - (let* ((_%g2272022737%_ - (lambda (_%g2272122733%_) + _%g2279222795%_))) + (_%g2279024826%_ + (lambda (_%g2279222803%_) + ((lambda (_%L22806%_) + (let* ((_%g2281922836%_ + (lambda (_%g2282022832%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2272122733%_))) - (_%g2271924723%_ - (lambda (_%g2272122741%_) + _%g2282022832%_))) + (_%g2281824822%_ + (lambda (_%g2282022840%_) (if (gx#stx-pair/null? - _%g2272122741%_) - (let ((_g27210_ + _%g2282022840%_) + (let ((_g27309_ (gx#syntax-split-splice - _%g2272122741%_ + _%g2282022840%_ '0))) (begin - (let ((_g27211_ + (let ((_g27310_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g27210_) - (##vector-length _g27210_) + _g27309_) + (##values-length _g27309_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27211_ 2))) - (error "Context expects 2 values" _g27211_))) + (if (not (let () (declare (not safe)) (##fx= _g27310_ 2))) + (error "Context expects 2 values" _g27310_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2272322744%_ + (let ((_%target2282222843%_ (let () (declare (not safe)) - (##vector-ref - _g27210_ + (##values-ref + _g27309_ 0))) - (_%tl2272522747%_ + (_%tl2282422846%_ (let () (declare (not safe)) - (##vector-ref - _g27210_ + (##values-ref + _g27309_ 1)))) (if (gx#stx-null? - _%tl2272522747%_) - (letrec ((_%loop2272622750%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd2272422754%_ _%slot2273022757%_) - (if (gx#stx-pair? _%hd2272422754%_) - (let ((_%e2272722760%_ - (gx#syntax-e _%hd2272422754%_))) - (let ((_%lp-hd2272822764%_ + _%tl2282422846%_) + (letrec ((_%loop2282522849%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd2282322853%_ _%slot2282922856%_) + (if (gx#stx-pair? _%hd2282322853%_) + (let ((_%e2282622859%_ + (gx#syntax-e _%hd2282322853%_))) + (let ((_%lp-hd2282722863%_ (let () (declare (not safe)) - (##car _%e2272722760%_))) - (_%lp-tl2272922767%_ + (##car _%e2282622859%_))) + (_%lp-tl2282822866%_ (let () (declare (not safe)) - (##cdr _%e2272722760%_)))) - (_%loop2272622750%_ - _%lp-tl2272922767%_ - (cons _%lp-hd2272822764%_ - _%slot2273022757%_)))) - (let ((_%slot2273122770%_ - (reverse _%slot2273022757%_))) - ((lambda (_%L22774%_) - (let* ((_%g2279122808%_ - (lambda (_%g2279222804%_) + (##cdr _%e2282622859%_)))) + (_%loop2282522849%_ + _%lp-tl2282822866%_ + (cons _%lp-hd2282722863%_ + _%slot2282922856%_)))) + (let ((_%slot2283022869%_ + (reverse _%slot2282922856%_))) + ((lambda (_%L22873%_) + (let* ((_%g2289022907%_ + (lambda (_%g2289122903%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2279222804%_))) - (_%g2279024714%_ - (lambda (_%g2279222812%_) + _%g2289122903%_))) + (_%g2288924813%_ + (lambda (_%g2289122911%_) (if (gx#stx-pair/null? - _%g2279222812%_) - (let ((_g27212_ + _%g2289122911%_) + (let ((_g27311_ (gx#syntax-split-splice - _%g2279222812%_ + _%g2289122911%_ '0))) (begin - (let ((_g27213_ + (let ((_g27312_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g27212_) - (##vector-length _g27212_) + (if (##values? _g27311_) + (##values-length _g27311_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27213_ 2))) - (error "Context expects 2 values" _g27213_))) - (let ((_%target2279422815%_ + (if (not (let () (declare (not safe)) (##fx= _g27312_ 2))) + (error "Context expects 2 values" _g27312_))) + (let ((_%target2289322914%_ (let () (declare (not safe)) - (##vector-ref _g27212_ 0))) - (_%tl2279622818%_ + (##values-ref _g27311_ 0))) + (_%tl2289522917%_ (let () (declare (not safe)) - (##vector-ref _g27212_ 1)))) - (if (gx#stx-null? _%tl2279622818%_) - (letrec ((_%loop2279722821%_ - (lambda (_%hd2279522825%_ _%getf2280122828%_) - (if (gx#stx-pair? _%hd2279522825%_) - (let ((_%e2279822831%_ - (gx#syntax-e _%hd2279522825%_))) - (let ((_%lp-hd2279922835%_ + (##values-ref _g27311_ 1)))) + (if (gx#stx-null? _%tl2289522917%_) + (letrec ((_%loop2289622920%_ + (lambda (_%hd2289422924%_ _%getf2290022927%_) + (if (gx#stx-pair? _%hd2289422924%_) + (let ((_%e2289722930%_ + (gx#syntax-e _%hd2289422924%_))) + (let ((_%lp-hd2289822934%_ (let () (declare (not safe)) - (##car _%e2279822831%_))) - (_%lp-tl2280022838%_ + (##car _%e2289722930%_))) + (_%lp-tl2289922937%_ (let () (declare (not safe)) - (##cdr _%e2279822831%_)))) - (_%loop2279722821%_ - _%lp-tl2280022838%_ - (cons _%lp-hd2279922835%_ - _%getf2280122828%_)))) - (let ((_%getf2280222841%_ - (reverse _%getf2280122828%_))) - ((lambda (_%L22845%_) - (let* ((_%g2286222879%_ - (lambda (_%g2286322875%_) + (##cdr _%e2289722930%_)))) + (_%loop2289622920%_ + _%lp-tl2289922937%_ + (cons _%lp-hd2289822934%_ + _%getf2290022927%_)))) + (let ((_%getf2290122940%_ + (reverse _%getf2290022927%_))) + ((lambda (_%L22944%_) + (let* ((_%g2296122978%_ + (lambda (_%g2296222974%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2286322875%_))) - (_%g2286124705%_ - (lambda (_%g2286322883%_) + _%g2296222974%_))) + (_%g2296024804%_ + (lambda (_%g2296222982%_) (if (gx#stx-pair/null? - _%g2286322883%_) - (let ((_g27214_ + _%g2296222982%_) + (let ((_g27313_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g2286322883%_ '0))) + (gx#syntax-split-splice _%g2296222982%_ '0))) (begin - (let ((_g27215_ + (let ((_g27314_ (let () (declare (not safe)) - (if (##values? _g27214_) - (##vector-length _g27214_) + (if (##values? _g27313_) + (##values-length _g27313_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27215_ 2))) - (error "Context expects 2 values" _g27215_))) - (let ((_%target2286522886%_ + (##fx= _g27314_ 2))) + (error "Context expects 2 values" _g27314_))) + (let ((_%target2296422985%_ (let () (declare (not safe)) - (##vector-ref _g27214_ 0))) - (_%tl2286722889%_ + (##values-ref _g27313_ 0))) + (_%tl2296622988%_ (let () (declare (not safe)) - (##vector-ref _g27214_ 1)))) - (if (gx#stx-null? _%tl2286722889%_) - (letrec ((_%loop2286822892%_ - (lambda (_%hd2286622896%_ - _%setf2287222899%_) - (if (gx#stx-pair? _%hd2286622896%_) - (let ((_%e2286922902%_ + (##values-ref _g27313_ 1)))) + (if (gx#stx-null? _%tl2296622988%_) + (letrec ((_%loop2296722991%_ + (lambda (_%hd2296522995%_ + _%setf2297122998%_) + (if (gx#stx-pair? _%hd2296522995%_) + (let ((_%e2296823001%_ (gx#syntax-e - _%hd2286622896%_))) - (let ((_%lp-hd2287022906%_ + _%hd2296522995%_))) + (let ((_%lp-hd2296923005%_ (let () (declare (not safe)) - (##car _%e2286922902%_))) - (_%lp-tl2287122909%_ + (##car _%e2296823001%_))) + (_%lp-tl2297023008%_ (let () (declare (not safe)) - (##cdr _%e2286922902%_)))) - (_%loop2286822892%_ - _%lp-tl2287122909%_ - (cons _%lp-hd2287022906%_ - _%setf2287222899%_)))) - (let ((_%setf2287322912%_ - (reverse _%setf2287222899%_))) - ((lambda (_%L22916%_) - (let* ((_%mixin-slots22933%_ - (_%get-mixin-slots22565%_ - _%super-ref22558%_ - _%slots22559%_)) - (_%g2293622953%_ - (lambda (_%g2293722949%_) + (##cdr _%e2296823001%_)))) + (_%loop2296722991%_ + _%lp-tl2297023008%_ + (cons _%lp-hd2296923005%_ + _%setf2297122998%_)))) + (let ((_%setf2297223011%_ + (reverse _%setf2297122998%_))) + ((lambda (_%L23015%_) + (let* ((_%mixin-slots23032%_ + (_%get-mixin-slots22664%_ + _%super-ref22657%_ + _%slots22658%_)) + (_%g2303523052%_ + (lambda (_%g2303623048%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2293722949%_))) - (_%g2293524701%_ - (lambda (_%g2293722957%_) + _%g2303623048%_))) + (_%g2303424800%_ + (lambda (_%g2303623056%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2293722957%_) - (let ((_g27216_ - (gx#syntax-split-splice _%g2293722957%_ '0))) + _%g2303623056%_) + (let ((_g27315_ + (gx#syntax-split-splice _%g2303623056%_ '0))) (begin - (let ((_g27217_ + (let ((_g27316_ (let () (declare (not safe)) - (if (##values? _g27216_) - (##vector-length _g27216_) + (if (##values? _g27315_) + (##values-length _g27315_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27217_ 2))) - (error "Context expects 2 values" _g27217_))) - (let ((_%target2293922960%_ + (##fx= _g27316_ 2))) + (error "Context expects 2 values" _g27316_))) + (let ((_%target2303823059%_ (let () (declare (not safe)) - (##vector-ref _g27216_ 0))) - (_%tl2294122963%_ + (##values-ref _g27315_ 0))) + (_%tl2304023062%_ (let () (declare (not safe)) - (##vector-ref _g27216_ 1)))) - (if (gx#stx-null? _%tl2294122963%_) - (letrec ((_%loop2294222966%_ - (lambda (_%hd2294022970%_ - _%mixin-slot2294622973%_) + (##values-ref _g27315_ 1)))) + (if (gx#stx-null? _%tl2304023062%_) + (letrec ((_%loop2304123065%_ + (lambda (_%hd2303923069%_ + _%mixin-slot2304523072%_) (if (gx#stx-pair? - _%hd2294022970%_) - (let ((_%e2294322976%_ + _%hd2303923069%_) + (let ((_%e2304223075%_ (gx#syntax-e - _%hd2294022970%_))) - (let ((_%lp-hd2294422980%_ + _%hd2303923069%_))) + (let ((_%lp-hd2304323079%_ (let () (declare (not safe)) - (##car _%e2294322976%_))) - (_%lp-tl2294522983%_ + (##car _%e2304223075%_))) + (_%lp-tl2304423082%_ (let () (declare (not safe)) - (##cdr _%e2294322976%_)))) - (_%loop2294222966%_ - _%lp-tl2294522983%_ - (cons _%lp-hd2294422980%_ - _%mixin-slot2294622973%_)))) - (let ((_%mixin-slot2294722986%_ - (reverse _%mixin-slot2294622973%_))) - ((lambda (_%L22990%_) - (let* ((_%g2300823025%_ - (lambda (_%g2300923021%_) + (##cdr _%e2304223075%_)))) + (_%loop2304123065%_ + _%lp-tl2304423082%_ + (cons _%lp-hd2304323079%_ + _%mixin-slot2304523072%_)))) + (let ((_%mixin-slot2304623085%_ + (reverse _%mixin-slot2304523072%_))) + ((lambda (_%L23089%_) + (let* ((_%g2310723124%_ + (lambda (_%g2310823120%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2300923021%_))) - (_%g2300724692%_ - (lambda (_%g2300923029%_) - (if (gx#stx-pair/null? _%g2300923029%_) - (let ((_g27218_ + _%g2310823120%_))) + (_%g2310624791%_ + (lambda (_%g2310823128%_) + (if (gx#stx-pair/null? _%g2310823128%_) + (let ((_g27317_ (gx#syntax-split-splice - _%g2300923029%_ + _%g2310823128%_ '0))) (begin - (let ((_g27219_ + (let ((_g27318_ (let () (declare (not safe)) - (if (##values? _g27218_) - (##vector-length _g27218_) + (if (##values? _g27317_) + (##values-length _g27317_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27219_ 2))) + (##fx= _g27318_ 2))) (error "Context expects 2 values" - _g27219_))) - (let ((_%target2301123032%_ + _g27318_))) + (let ((_%target2311023131%_ (let () (declare (not safe)) - (##vector-ref _g27218_ 0))) - (_%tl2301323035%_ + (##values-ref _g27317_ 0))) + (_%tl2311223134%_ (let () (declare (not safe)) - (##vector-ref _g27218_ 1)))) - (if (gx#stx-null? _%tl2301323035%_) - (letrec ((_%loop2301423038%_ - (lambda (_%hd2301223042%_ - _%mixin-getf2301823045%_) + (##values-ref _g27317_ 1)))) + (if (gx#stx-null? _%tl2311223134%_) + (letrec ((_%loop2311323137%_ + (lambda (_%hd2311123141%_ + _%mixin-getf2311723144%_) (if (gx#stx-pair? - _%hd2301223042%_) - (let ((_%e2301523048%_ + _%hd2311123141%_) + (let ((_%e2311423147%_ (gx#syntax-e - _%hd2301223042%_))) - (let ((_%lp-hd2301623052%_ + _%hd2311123141%_))) + (let ((_%lp-hd2311523151%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2301523048%_))) - (_%lp-tl2301723055%_ - (let () (declare (not safe)) (##cdr _%e2301523048%_)))) - (_%loop2301423038%_ - _%lp-tl2301723055%_ - (cons _%lp-hd2301623052%_ _%mixin-getf2301823045%_)))) - (let ((_%mixin-getf2301923058%_ - (reverse _%mixin-getf2301823045%_))) - ((lambda (_%L23062%_) - (let* ((_%g2307923096%_ - (lambda (_%g2308023092%_) + (##car _%e2311423147%_))) + (_%lp-tl2311623154%_ + (let () (declare (not safe)) (##cdr _%e2311423147%_)))) + (_%loop2311323137%_ + _%lp-tl2311623154%_ + (cons _%lp-hd2311523151%_ _%mixin-getf2311723144%_)))) + (let ((_%mixin-getf2311823157%_ + (reverse _%mixin-getf2311723144%_))) + ((lambda (_%L23161%_) + (let* ((_%g2317823195%_ + (lambda (_%g2317923191%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2308023092%_))) - (_%g2307824683%_ - (lambda (_%g2308023100%_) - (if (gx#stx-pair/null? _%g2308023100%_) - (let ((_g27220_ + _%g2317923191%_))) + (_%g2317724782%_ + (lambda (_%g2317923199%_) + (if (gx#stx-pair/null? _%g2317923199%_) + (let ((_g27319_ (gx#syntax-split-splice - _%g2308023100%_ + _%g2317923199%_ '0))) (begin - (let ((_g27221_ + (let ((_g27320_ (let () (declare (not safe)) - (if (##values? _g27220_) - (##vector-length _g27220_) + (if (##values? _g27319_) + (##values-length _g27319_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27221_ 2))) + (##fx= _g27320_ 2))) (error "Context expects 2 values" - _g27221_))) - (let ((_%target2308223103%_ + _g27320_))) + (let ((_%target2318123202%_ (let () (declare (not safe)) - (##vector-ref _g27220_ 0))) - (_%tl2308423106%_ + (##values-ref _g27319_ 0))) + (_%tl2318323205%_ (let () (declare (not safe)) - (##vector-ref _g27220_ 1)))) - (if (gx#stx-null? _%tl2308423106%_) - (letrec ((_%loop2308523109%_ - (lambda (_%hd2308323113%_ - _%mixin-setf2308923116%_) + (##values-ref _g27319_ 1)))) + (if (gx#stx-null? _%tl2318323205%_) + (letrec ((_%loop2318423208%_ + (lambda (_%hd2318223212%_ + _%mixin-setf2318823215%_) (if (gx#stx-pair? - _%hd2308323113%_) - (let ((_%e2308623119%_ + _%hd2318223212%_) + (let ((_%e2318523218%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd2308323113%_))) - (let ((_%lp-hd2308723123%_ + (gx#syntax-e _%hd2318223212%_))) + (let ((_%lp-hd2318623222%_ (let () (declare (not safe)) - (##car _%e2308623119%_))) - (_%lp-tl2308823126%_ + (##car _%e2318523218%_))) + (_%lp-tl2318723225%_ (let () (declare (not safe)) - (##cdr _%e2308623119%_)))) - (_%loop2308523109%_ - _%lp-tl2308823126%_ - (cons _%lp-hd2308723123%_ _%mixin-setf2308923116%_)))) - (let ((_%mixin-setf2309023129%_ - (reverse _%mixin-setf2308923116%_))) - ((lambda (_%L23133%_) - (let* ((_%g2315023167%_ - (lambda (_%g2315123163%_) + (##cdr _%e2318523218%_)))) + (_%loop2318423208%_ + _%lp-tl2318723225%_ + (cons _%lp-hd2318623222%_ _%mixin-setf2318823215%_)))) + (let ((_%mixin-setf2318923228%_ + (reverse _%mixin-setf2318823215%_))) + ((lambda (_%L23232%_) + (let* ((_%g2324923266%_ + (lambda (_%g2325023262%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2315123163%_))) - (_%g2314924666%_ - (lambda (_%g2315123171%_) - (if (gx#stx-pair/null? _%g2315123171%_) - (let ((_g27222_ + _%g2325023262%_))) + (_%g2324824765%_ + (lambda (_%g2325023270%_) + (if (gx#stx-pair/null? _%g2325023270%_) + (let ((_g27321_ (gx#syntax-split-splice - _%g2315123171%_ + _%g2325023270%_ '0))) (begin - (let ((_g27223_ + (let ((_g27322_ (let () (declare (not safe)) - (if (##values? _g27222_) - (##vector-length - _g27222_) + (if (##values? _g27321_) + (##values-length + _g27321_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27223_ 2))) + (##fx= _g27322_ 2))) (error "Context expects 2 values" - _g27223_))) - (let ((_%target2315323174%_ + _g27322_))) + (let ((_%target2325223273%_ (let () (declare (not safe)) - (##vector-ref _g27222_ 0))) - (_%tl2315523177%_ + (##values-ref _g27321_ 0))) + (_%tl2325423276%_ (let () (declare (not safe)) - (##vector-ref - _g27222_ + (##values-ref + _g27321_ 1)))) (if (gx#stx-null? - _%tl2315523177%_) - (letrec ((_%loop2315623180%_ - (lambda (_%hd2315423184%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%ugetf2316023187%_) - (if (gx#stx-pair? _%hd2315423184%_) - (let ((_%e2315723190%_ - (gx#syntax-e _%hd2315423184%_))) - (let ((_%lp-hd2315823194%_ + _%tl2325423276%_) + (letrec ((_%loop2325523279%_ + (lambda (_%hd2325323283%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%ugetf2325923286%_) + (if (gx#stx-pair? _%hd2325323283%_) + (let ((_%e2325623289%_ + (gx#syntax-e _%hd2325323283%_))) + (let ((_%lp-hd2325723293%_ (let () (declare (not safe)) - (##car _%e2315723190%_))) - (_%lp-tl2315923197%_ + (##car _%e2325623289%_))) + (_%lp-tl2325823296%_ (let () (declare (not safe)) - (##cdr _%e2315723190%_)))) - (_%loop2315623180%_ - _%lp-tl2315923197%_ - (cons _%lp-hd2315823194%_ _%ugetf2316023187%_)))) - (let ((_%ugetf2316123200%_ - (reverse _%ugetf2316023187%_))) - ((lambda (_%L23204%_) - (let* ((_%g2322123238%_ - (lambda (_%g2322223234%_) + (##cdr _%e2325623289%_)))) + (_%loop2325523279%_ + _%lp-tl2325823296%_ + (cons _%lp-hd2325723293%_ _%ugetf2325923286%_)))) + (let ((_%ugetf2326023299%_ + (reverse _%ugetf2325923286%_))) + ((lambda (_%L23303%_) + (let* ((_%g2332023337%_ + (lambda (_%g2332123333%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2322223234%_))) - (_%g2322024649%_ - (lambda (_%g2322223242%_) - (if (gx#stx-pair/null? _%g2322223242%_) - (let ((_g27224_ + _%g2332123333%_))) + (_%g2331924748%_ + (lambda (_%g2332123341%_) + (if (gx#stx-pair/null? _%g2332123341%_) + (let ((_g27323_ (gx#syntax-split-splice - _%g2322223242%_ + _%g2332123341%_ '0))) (begin - (let ((_g27225_ + (let ((_g27324_ (let () (declare (not safe)) (if (##values? - _g27224_) - (##vector-length - _g27224_) + _g27323_) + (##values-length + _g27323_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27225_ + (##fx= _g27324_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g27225_))) + (error "Context expects 2 values" _g27324_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2322423245%_ + (let ((_%target2332323344%_ (let () (declare (not safe)) - (##vector-ref - _g27224_ + (##values-ref + _g27323_ 0))) - (_%tl2322623248%_ + (_%tl2332523347%_ (let () (declare (not safe)) - (##vector-ref - _g27224_ + (##values-ref + _g27323_ 1)))) (if (gx#stx-null? - _%tl2322623248%_) - (letrec ((_%loop2322723251%_ - (lambda (_%hd2322523255%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%usetf2323123258%_) - (if (gx#stx-pair? _%hd2322523255%_) - (let ((_%e2322823261%_ - (gx#syntax-e _%hd2322523255%_))) - (let ((_%lp-hd2322923265%_ + _%tl2332523347%_) + (letrec ((_%loop2332623350%_ + (lambda (_%hd2332423354%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%usetf2333023357%_) + (if (gx#stx-pair? _%hd2332423354%_) + (let ((_%e2332723360%_ + (gx#syntax-e _%hd2332423354%_))) + (let ((_%lp-hd2332823364%_ (let () (declare (not safe)) - (##car _%e2322823261%_))) - (_%lp-tl2323023268%_ + (##car _%e2332723360%_))) + (_%lp-tl2332923367%_ (let () (declare (not safe)) - (##cdr _%e2322823261%_)))) - (_%loop2322723251%_ - _%lp-tl2323023268%_ - (cons _%lp-hd2322923265%_ - _%usetf2323123258%_)))) - (let ((_%usetf2323223271%_ - (reverse _%usetf2323123258%_))) - ((lambda (_%L23275%_) - (let* ((_%g2329223309%_ - (lambda (_%g2329323305%_) + (##cdr _%e2332723360%_)))) + (_%loop2332623350%_ + _%lp-tl2332923367%_ + (cons _%lp-hd2332823364%_ + _%usetf2333023357%_)))) + (let ((_%usetf2333123370%_ + (reverse _%usetf2333023357%_))) + ((lambda (_%L23374%_) + (let* ((_%g2339123408%_ + (lambda (_%g2339223404%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2329323305%_))) - (_%g2329124632%_ - (lambda (_%g2329323313%_) + _%g2339223404%_))) + (_%g2339024731%_ + (lambda (_%g2339223412%_) (if (gx#stx-pair/null? - _%g2329323313%_) - (let ((_g27226_ + _%g2339223412%_) + (let ((_g27325_ (gx#syntax-split-splice - _%g2329323313%_ + _%g2339223412%_ '0))) (begin - (let ((_g27227_ + (let ((_g27326_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g27226_) - (##vector-length _g27226_) + _g27325_) + (##values-length _g27325_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27227_ 2))) - (error "Context expects 2 values" _g27227_))) + (if (not (let () (declare (not safe)) (##fx= _g27326_ 2))) + (error "Context expects 2 values" _g27326_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2329523316%_ + (let ((_%target2339423415%_ (let () (declare (not safe)) - (##vector-ref - _g27226_ + (##values-ref + _g27325_ 0))) - (_%tl2329723319%_ + (_%tl2339623418%_ (let () (declare (not safe)) - (##vector-ref - _g27226_ + (##values-ref + _g27325_ 1)))) (if (gx#stx-null? - _%tl2329723319%_) - (letrec ((_%loop2329823322%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd2329623326%_ - _%mixin-ugetf2330223329%_) - (if (gx#stx-pair? _%hd2329623326%_) - (let ((_%e2329923332%_ - (gx#syntax-e _%hd2329623326%_))) - (let ((_%lp-hd2330023336%_ + _%tl2339623418%_) + (letrec ((_%loop2339723421%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd2339523425%_ + _%mixin-ugetf2340123428%_) + (if (gx#stx-pair? _%hd2339523425%_) + (let ((_%e2339823431%_ + (gx#syntax-e _%hd2339523425%_))) + (let ((_%lp-hd2339923435%_ (let () (declare (not safe)) - (##car _%e2329923332%_))) - (_%lp-tl2330123339%_ + (##car _%e2339823431%_))) + (_%lp-tl2340023438%_ (let () (declare (not safe)) - (##cdr _%e2329923332%_)))) - (_%loop2329823322%_ - _%lp-tl2330123339%_ - (cons _%lp-hd2330023336%_ - _%mixin-ugetf2330223329%_)))) - (let ((_%mixin-ugetf2330323342%_ - (reverse _%mixin-ugetf2330223329%_))) - ((lambda (_%L23346%_) - (let* ((_%g2336323380%_ - (lambda (_%g2336423376%_) + (##cdr _%e2339823431%_)))) + (_%loop2339723421%_ + _%lp-tl2340023438%_ + (cons _%lp-hd2339923435%_ + _%mixin-ugetf2340123428%_)))) + (let ((_%mixin-ugetf2340223441%_ + (reverse _%mixin-ugetf2340123428%_))) + ((lambda (_%L23445%_) + (let* ((_%g2346223479%_ + (lambda (_%g2346323475%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2336423376%_))) - (_%g2336224615%_ - (lambda (_%g2336423384%_) + _%g2346323475%_))) + (_%g2346124714%_ + (lambda (_%g2346323483%_) (if (gx#stx-pair/null? - _%g2336423384%_) - (let ((_g27228_ + _%g2346323483%_) + (let ((_g27327_ (gx#syntax-split-splice - _%g2336423384%_ + _%g2346323483%_ '0))) (begin - (let ((_g27229_ + (let ((_g27328_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g27228_) - (##vector-length _g27228_) + (if (##values? _g27327_) + (##values-length _g27327_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27229_ 2))) - (error "Context expects 2 values" _g27229_))) - (let ((_%target2336623387%_ + (if (not (let () (declare (not safe)) (##fx= _g27328_ 2))) + (error "Context expects 2 values" _g27328_))) + (let ((_%target2346523486%_ (let () (declare (not safe)) - (##vector-ref _g27228_ 0))) - (_%tl2336823390%_ + (##values-ref _g27327_ 0))) + (_%tl2346723489%_ (let () (declare (not safe)) - (##vector-ref _g27228_ 1)))) - (if (gx#stx-null? _%tl2336823390%_) - (letrec ((_%loop2336923393%_ - (lambda (_%hd2336723397%_ - _%mixin-usetf2337323400%_) - (if (gx#stx-pair? _%hd2336723397%_) - (let ((_%e2337023403%_ - (gx#syntax-e _%hd2336723397%_))) - (let ((_%lp-hd2337123407%_ + (##values-ref _g27327_ 1)))) + (if (gx#stx-null? _%tl2346723489%_) + (letrec ((_%loop2346823492%_ + (lambda (_%hd2346623496%_ + _%mixin-usetf2347223499%_) + (if (gx#stx-pair? _%hd2346623496%_) + (let ((_%e2346923502%_ + (gx#syntax-e _%hd2346623496%_))) + (let ((_%lp-hd2347023506%_ (let () (declare (not safe)) - (##car _%e2337023403%_))) - (_%lp-tl2337223410%_ + (##car _%e2346923502%_))) + (_%lp-tl2347123509%_ (let () (declare (not safe)) - (##cdr _%e2337023403%_)))) - (_%loop2336923393%_ - _%lp-tl2337223410%_ - (cons _%lp-hd2337123407%_ - _%mixin-usetf2337323400%_)))) - (let ((_%mixin-usetf2337423413%_ - (reverse _%mixin-usetf2337323400%_))) - ((lambda (_%L23417%_) - (let* ((_%type-slots23452%_ + (##cdr _%e2346923502%_)))) + (_%loop2346823492%_ + _%lp-tl2347123509%_ + (cons _%lp-hd2347023506%_ + _%mixin-usetf2347223499%_)))) + (let ((_%mixin-usetf2347323512%_ + (reverse _%mixin-usetf2347223499%_))) + ((lambda (_%L23516%_) + (let* ((_%type-slots23551%_ (if (gx#stx-null? - _%slots22559%_) + _%slots22658%_) '() (cons 'slots: (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-check-splice-targets - _%L22916%_ - _%L22845%_ - _%L22774%_) - (foldr (lambda (_%g2343723442%_ - _%g2343823445%_ - _%g2343923447%_ - _%g2344023449%_) - (cons (cons _%g2343923447%_ - (cons _%g2343823445%_ - (cons _%g2343723442%_ + _%L23015%_ + _%L22944%_ + _%L22873%_) + (foldr (lambda (_%g2353623541%_ + _%g2353723544%_ + _%g2353823546%_ + _%g2353923548%_) + (cons (cons _%g2353823546%_ + (cons _%g2353723544%_ + (cons _%g2353623541%_ '()))) - _%g2344023449%_)) + _%g2353923548%_)) '() - _%L22916%_ - _%L22845%_ - _%L22774%_)) + _%L23015%_ + _%L22944%_ + _%L22873%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-mixin-slots23473%_ + (_%type-mixin-slots23572%_ (if (gx#stx-null? - _%mixin-slots22933%_) + _%mixin-slots23032%_) '() (cons 'mixin: (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-check-splice-targets - _%L23133%_ - _%L23062%_ - _%L22990%_) - (foldr (lambda (_%g2345823463%_ - _%g2345923466%_ - _%g2346023468%_ - _%g2346123470%_) - (cons (cons _%g2346023468%_ - (cons _%g2345923466%_ - (cons _%g2345823463%_ + _%L23232%_ + _%L23161%_ + _%L23089%_) + (foldr (lambda (_%g2355723562%_ + _%g2355823565%_ + _%g2355923567%_ + _%g2356023569%_) + (cons (cons _%g2355923567%_ + (cons _%g2355823565%_ + (cons _%g2355723562%_ '()))) - _%g2346123470%_)) + _%g2356023569%_)) '() - _%L23133%_ - _%L23062%_ - _%L22990%_)) + _%L23232%_ + _%L23161%_ + _%L23089%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-name23480%_ + (_%type-name23579%_ (cons 'name: - (cons (let ((_%$e23476%_ + (cons (let ((_%$e23575%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'name: _%body22560%_))) - (if _%$e23476%_ _%$e23476%_ _%id22557%_)) + (gx#stx-getq 'name: _%body22659%_))) + (if _%$e23575%_ _%$e23575%_ _%id22656%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-id23487%_ + (_%type-id23586%_ (cons 'id: - (cons (let ((_%$e23483%_ + (cons (let ((_%$e23582%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'id: _%body22560%_))) - (if _%$e23483%_ - _%$e23483%_ + (gx#stx-getq 'id: _%body22659%_))) + (if _%$e23582%_ + _%$e23582%_ (let () (declare (not safe)) (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L22592%_)))) + _%L22691%_)))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-constructor23502%_ - (let ((_%$e23498%_ - (let ((_%e2348923491%_ + (_%type-constructor23601%_ + (let ((_%$e23597%_ + (let ((_%e2358823590%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'constructor: _%body22560%_))) - (if _%e2348923491%_ - (let ((_%e23495%_ _%e2348923491%_)) - (cons 'constructor: (cons _%e23495%_ '()))) + (gx#stx-getq 'constructor: _%body22659%_))) + (if _%e2358823590%_ + (let ((_%e23594%_ _%e2358823590%_)) + (cons 'constructor: (cons _%e23594%_ '()))) '#f)))) - (if _%$e23498%_ _%$e23498%_ '()))) + (if _%$e23597%_ _%$e23597%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%properties23540%_ - (let* ((_%properties23505%_ + (_%properties23639%_ + (let* ((_%properties23604%_ (if (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'transparent: _%body22560%_)) + (gx#stx-getq 'transparent: _%body22659%_)) (cons (cons 'transparent: '#t) '()) '())) - (_%properties23520%_ - (let ((_%$e23508%_ - (gx#stx-e (gx#stx-getq 'print: _%body22560%_)))) - (if _%$e23508%_ - ((lambda (_%print23512%_) - (let ((_%print23515%_ - (if (eq? _%print23512%_ '#t) - _%slots22559%_ - _%print23512%_))) - (cons (cons 'print: _%print23515%_) - _%properties23505%_))) - _%$e23508%_) - _%properties23505%_))) - (_%properties23535%_ - (let ((_%$e23523%_ - (gx#stx-e (gx#stx-getq 'equal: _%body22560%_)))) - (if _%$e23523%_ - ((lambda (_%equal23527%_) - (let ((_%equal23530%_ - (if (eq? _%equal23527%_ '#t) - _%slots22559%_ - _%equal23527%_))) - (cons (cons 'equal: _%equal23530%_) - _%properties23520%_))) - _%$e23523%_) - _%properties23520%_)))) - _%properties23535%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-properties23581%_ - (if (null? _%properties23540%_) + (_%properties23619%_ + (let ((_%$e23607%_ + (gx#stx-e (gx#stx-getq 'print: _%body22659%_)))) + (if _%$e23607%_ + ((lambda (_%print23611%_) + (let ((_%print23614%_ + (if (eq? _%print23611%_ '#t) + _%slots22658%_ + _%print23611%_))) + (cons (cons 'print: _%print23614%_) + _%properties23604%_))) + _%$e23607%_) + _%properties23604%_))) + (_%properties23634%_ + (let ((_%$e23622%_ + (gx#stx-e (gx#stx-getq 'equal: _%body22659%_)))) + (if _%$e23622%_ + ((lambda (_%equal23626%_) + (let ((_%equal23629%_ + (if (eq? _%equal23626%_ '#t) + _%slots22658%_ + _%equal23626%_))) + (cons (cons 'equal: _%equal23629%_) + _%properties23619%_))) + _%$e23622%_) + _%properties23619%_)))) + _%properties23634%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%type-properties23680%_ + (if (null? _%properties23639%_) '() - (let* ((_%g2354323551%_ + (let* ((_%g2364223650%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2354423547%_) + (lambda (_%g2364323646%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2354423547%_))) - (_%g2354223577%_ - (lambda (_%g2354423555%_) - ((lambda (_%L23558%_) + _%g2364323646%_))) + (_%g2364123676%_ + (lambda (_%g2364323654%_) + ((lambda (_%L23657%_) (cons 'properties: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L23558%_ '())) + (cons _%L23657%_ '())) '()))) - _%g2354423555%_)))) - (_%g2354223577%_ _%properties23540%_)))) + _%g2364323654%_)))) + (_%g2364123676%_ _%properties23639%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%metaclass23593%_ - (let ((_%$e23584%_ + (_%metaclass23692%_ + (let ((_%$e23683%_ (gx#stx-getq 'metaclass: - _%body22560%_))) - (if _%$e23584%_ - ((lambda (_%metaclass23588%_) + _%body22659%_))) + (if _%$e23683%_ + ((lambda (_%metaclass23687%_) (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%metaclass23588%_) - _%metaclass23588%_ + _%metaclass23687%_) + _%metaclass23687%_ '#f)) - _%$e23584%_) + _%$e23683%_) '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-metaclass23596%_ - (if _%metaclass23593%_ + (_%type-metaclass23695%_ + (if _%metaclass23692%_ (cons 'metaclass: - (cons _%metaclass23593%_ + (cons _%metaclass23692%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%final?23599%_ + (_%final?23698%_ (gx#stx-e (gx#stx-getq 'final: - _%body22560%_))) - (_%type-struct23602%_ + _%body22659%_))) + (_%type-struct23701%_ (cons 'struct: - (cons _%struct?22574%_ + (cons _%struct?22673%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-final23605%_ + (_%type-final23704%_ (cons 'final: - (cons _%final?23599%_ + (cons _%final?23698%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2360823625%_ - (lambda (_%g2360923621%_) + (_%g2370723724%_ + (lambda (_%g2370823720%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2360923621%_))) - (_%g2360724611%_ - (lambda (_%g2360923629%_) + _%g2370823720%_))) + (_%g2370624710%_ + (lambda (_%g2370823728%_) (if (gx#stx-pair/null? - _%g2360923629%_) - (let ((_g27230_ + _%g2370823728%_) + (let ((_g27329_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g2360923629%_ '0))) + (gx#syntax-split-splice _%g2370823728%_ '0))) (begin - (let ((_g27231_ + (let ((_g27330_ (let () (declare (not safe)) - (if (##values? _g27230_) - (##vector-length _g27230_) + (if (##values? _g27329_) + (##values-length _g27329_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27231_ 2))) - (error "Context expects 2 values" _g27231_))) - (let ((_%target2361123632%_ + (##fx= _g27330_ 2))) + (error "Context expects 2 values" _g27330_))) + (let ((_%target2371023731%_ (let () (declare (not safe)) - (##vector-ref _g27230_ 0))) - (_%tl2361323635%_ + (##values-ref _g27329_ 0))) + (_%tl2371223734%_ (let () (declare (not safe)) - (##vector-ref _g27230_ 1)))) - (if (gx#stx-null? _%tl2361323635%_) - (letrec ((_%loop2361423638%_ - (lambda (_%hd2361223642%_ - _%type-body2361823645%_) - (if (gx#stx-pair? _%hd2361223642%_) - (let ((_%e2361523648%_ + (##values-ref _g27329_ 1)))) + (if (gx#stx-null? _%tl2371223734%_) + (letrec ((_%loop2371323737%_ + (lambda (_%hd2371123741%_ + _%type-body2371723744%_) + (if (gx#stx-pair? _%hd2371123741%_) + (let ((_%e2371423747%_ (gx#syntax-e - _%hd2361223642%_))) - (let ((_%lp-hd2361623652%_ + _%hd2371123741%_))) + (let ((_%lp-hd2371523751%_ (let () (declare (not safe)) - (##car _%e2361523648%_))) - (_%lp-tl2361723655%_ + (##car _%e2371423747%_))) + (_%lp-tl2371623754%_ (let () (declare (not safe)) - (##cdr _%e2361523648%_)))) - (_%loop2361423638%_ - _%lp-tl2361723655%_ - (cons _%lp-hd2361623652%_ - _%type-body2361823645%_)))) - (let ((_%type-body2361923658%_ - (reverse _%type-body2361823645%_))) - ((lambda (_%L23662%_) - (let* ((_%g2368323691%_ - (lambda (_%g2368423687%_) + (##cdr _%e2371423747%_)))) + (_%loop2371323737%_ + _%lp-tl2371623754%_ + (cons _%lp-hd2371523751%_ + _%type-body2371723744%_)))) + (let ((_%type-body2371823757%_ + (reverse _%type-body2371723744%_))) + ((lambda (_%L23761%_) + (let* ((_%g2378223790%_ + (lambda (_%g2378323786%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2368423687%_))) - (_%g2368224599%_ - (lambda (_%g2368423695%_) - ((lambda (_%L23698%_) - (let* ((_%g2371123719%_ + _%g2378323786%_))) + (_%g2378124698%_ + (lambda (_%g2378323794%_) + ((lambda (_%L23797%_) + (let* ((_%g2381023818%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2371223715%_) + (lambda (_%g2381123814%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2371223715%_))) - (_%g2371024528%_ - (lambda (_%g2371223723%_) - ((lambda (_%L23726%_) - (let* ((_%g2373923747%_ - (lambda (_%g2374023743%_) + _%g2381123814%_))) + (_%g2380924627%_ + (lambda (_%g2381123822%_) + ((lambda (_%L23825%_) + (let* ((_%g2383823846%_ + (lambda (_%g2383923842%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2374023743%_))) - (_%g2373824493%_ - (lambda (_%g2374023751%_) - ((lambda (_%L23754%_) - (let* ((_%g2376723775%_ - (lambda (_%g2376823771%_) + _%g2383923842%_))) + (_%g2383724592%_ + (lambda (_%g2383923850%_) + ((lambda (_%L23853%_) + (let* ((_%g2386623874%_ + (lambda (_%g2386723870%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2376823771%_))) - (_%g2376624407%_ - (lambda (_%g2376823779%_) - ((lambda (_%L23782%_) - (let* ((_%g2379523803%_ + _%g2386723870%_))) + (_%g2386524506%_ + (lambda (_%g2386723878%_) + ((lambda (_%L23881%_) + (let* ((_%g2389423902%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2379623799%_) + (lambda (_%g2389523898%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2379623799%_))) - (_%g2379424395%_ - (lambda (_%g2379623807%_) - ((lambda (_%L23810%_) - (let* ((_%g2382323831%_ - (lambda (_%g2382423827%_) + _%g2389523898%_))) + (_%g2389324494%_ + (lambda (_%g2389523906%_) + ((lambda (_%L23909%_) + (let* ((_%g2392223930%_ + (lambda (_%g2392323926%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2382423827%_))) - (_%g2382224391%_ - (lambda (_%g2382423835%_) - ((lambda (_%L23838%_) - (let* ((_%g2385123859%_ - (lambda (_%g2385223855%_) + _%g2392323926%_))) + (_%g2392124490%_ + (lambda (_%g2392323934%_) + ((lambda (_%L23937%_) + (let* ((_%g2395023958%_ + (lambda (_%g2395123954%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2385223855%_))) - (_%g2385024387%_ - (lambda (_%g2385223863%_) - ((lambda (_%L23866%_) - (let* ((_%g2387923887%_ + _%g2395123954%_))) + (_%g2394924486%_ + (lambda (_%g2395123962%_) + ((lambda (_%L23965%_) + (let* ((_%g2397823986%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2388023883%_) + (lambda (_%g2397923982%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2388023883%_))) - (_%g2387824352%_ - (lambda (_%g2388023891%_) - ((lambda (_%L23894%_) - (let* ((_%g2390723915%_ - (lambda (_%g2390823911%_) + _%g2397923982%_))) + (_%g2397724451%_ + (lambda (_%g2397923990%_) + ((lambda (_%L23993%_) + (let* ((_%g2400624014%_ + (lambda (_%g2400724010%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2390823911%_))) - (_%g2390624281%_ - (lambda (_%g2390823919%_) - ((lambda (_%L23922%_) - (let* ((_%g2393523943%_ - (lambda (_%g2393623939%_) + _%g2400724010%_))) + (_%g2400524380%_ + (lambda (_%g2400724018%_) + ((lambda (_%L24021%_) + (let* ((_%g2403424042%_ + (lambda (_%g2403524038%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2393623939%_))) - (_%g2393424277%_ - (lambda (_%g2393623947%_) - ((lambda (_%L23950%_) - (let* ((_%g2396323971%_ + _%g2403524038%_))) + (_%g2403324376%_ + (lambda (_%g2403524046%_) + ((lambda (_%L24049%_) + (let* ((_%g2406224070%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2396423967%_) + (lambda (_%g2406324066%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2396423967%_))) - (_%g2396224273%_ - (lambda (_%g2396423975%_) - ((lambda (_%L23978%_) - (let* ((_%g2399123999%_ - (lambda (_%g2399223995%_) + _%g2406324066%_))) + (_%g2406124372%_ + (lambda (_%g2406324074%_) + ((lambda (_%L24077%_) + (let* ((_%g2409024098%_ + (lambda (_%g2409124094%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2399223995%_))) - (_%g2399024269%_ - (lambda (_%g2399224003%_) - ((lambda (_%L24006%_) - (let* ((_%g2401924027%_ - (lambda (_%g2402024023%_) + _%g2409124094%_))) + (_%g2408924368%_ + (lambda (_%g2409124102%_) + ((lambda (_%L24105%_) + (let* ((_%g2411824126%_ + (lambda (_%g2411924122%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2402024023%_))) - (_%g2401824243%_ - (lambda (_%g2402024031%_) - ((lambda (_%L24034%_) - (let* ((_%g2404724055%_ + _%g2411924122%_))) + (_%g2411724342%_ + (lambda (_%g2411924130%_) + ((lambda (_%L24133%_) + (let* ((_%g2414624154%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2404824051%_) + (lambda (_%g2414724150%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2404824051%_))) - (_%g2404624217%_ - (lambda (_%g2404824059%_) - ((lambda (_%L24062%_) - (let* ((_%g2407524083%_ - (lambda (_%g2407624079%_) + _%g2414724150%_))) + (_%g2414524316%_ + (lambda (_%g2414724158%_) + ((lambda (_%L24161%_) + (let* ((_%g2417424182%_ + (lambda (_%g2417524178%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2407624079%_))) - (_%g2407424191%_ - (lambda (_%g2407624087%_) - ((lambda (_%L24090%_) - (let* ((_%g2410324111%_ - (lambda (_%g2410424107%_) + _%g2417524178%_))) + (_%g2417324290%_ + (lambda (_%g2417524186%_) + ((lambda (_%L24189%_) + (let* ((_%g2420224210%_ + (lambda (_%g2420324206%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2410424107%_))) - (_%g2410224165%_ - (lambda (_%g2410424115%_) - ((lambda (_%L24118%_) - (let* ((_%g2413124139%_ + _%g2420324206%_))) + (_%g2420124264%_ + (lambda (_%g2420324214%_) + ((lambda (_%L24217%_) + (let* ((_%g2423024238%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2413224135%_) + (lambda (_%g2423124234%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2413224135%_))) - (_%g2413024161%_ - (lambda (_%g2413224143%_) - ((lambda (_%L24146%_) - (_%wrap22562%_ + _%g2423124234%_))) + (_%g2422924260%_ + (lambda (_%g2423124242%_) + ((lambda (_%L24245%_) + (_%wrap22661%_ (cons (gx#datum->syntax '#f 'begin) - (cons _%L23698%_ - (cons _%L24146%_ '()))))) - _%g2413224143%_)))) - (_%g2413024161%_ - (_%wrap22562%_ + (cons _%L23797%_ + (cons _%L24245%_ '()))))) + _%g2423124242%_)))) + (_%g2422924260%_ + (_%wrap22661%_ (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L22592%_ + (cons _%L22691%_ (cons (cons (gx#datum->syntax '#f 'make-class-type-info) (cons 'id: - (cons _%L23726%_ + (cons _%L23825%_ (cons 'name: - (cons _%L23754%_ + (cons _%L23853%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'slots: - (cons _%L23810%_ + (cons _%L23909%_ (cons 'super: - (cons _%L23782%_ + (cons _%L23881%_ (cons 'struct?: - (cons _%L23838%_ + (cons _%L23937%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'final?: - (cons _%L23866%_ + (cons _%L23965%_ (cons 'metaclass: - (cons _%L23894%_ + (cons _%L23993%_ (cons 'constructor-method: - (cons _%L23922%_ + (cons _%L24021%_ (cons 'type-descriptor: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L23950%_ + (cons _%L24049%_ (cons 'constructor: - (cons _%L23978%_ + (cons _%L24077%_ (cons 'predicate: - (cons _%L24006%_ + (cons _%L24105%_ (cons 'accessors: - (cons _%L24034%_ + (cons _%L24133%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'mutators: - (cons _%L24062%_ + (cons _%L24161%_ (cons 'unchecked-accessors: - (cons _%L24090%_ + (cons _%L24189%_ (cons 'unchecked-mutators: - (cons _%L24118%_ + (cons _%L24217%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))))))))))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1217,140 +1217,140 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - _%g2410424115%_)))) + _%g2420324214%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2410224165%_ + (_%g2420124264%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L23275%_ - _%L22774%_) - (foldr (lambda (_%g2416824175%_ + _%L23374%_ + _%L22873%_) + (foldr (lambda (_%g2426724274%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2416924178%_ - _%g2417024180%_) + _%g2426824277%_ + _%g2426924279%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2416924178%_ '())) + (cons _%g2426824277%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2416824175%_ + (cons _%g2426724274%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2417024180%_)) + _%g2426924279%_)) (begin - (gx#syntax-check-splice-targets _%L23417%_ _%L22990%_) - (foldr (lambda (_%g2417124183%_ - _%g2417224186%_ - _%g2417324188%_) + (gx#syntax-check-splice-targets _%L23516%_ _%L23089%_) + (foldr (lambda (_%g2427024282%_ + _%g2427124285%_ + _%g2427224287%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2417224186%_ + (cons _%g2427124285%_ '())) (cons ':: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g2417124183%_ '())) + (cons _%g2427024282%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2417324188%_)) + _%g2427224287%_)) '() - _%L23417%_ - _%L22990%_)) - _%L23275%_ - _%L22774%_)))))) + _%L23516%_ + _%L23089%_)) + _%L23374%_ + _%L22873%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2407624087%_)))) - (_%g2407424191%_ + _%g2417524186%_)))) + (_%g2417324290%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L23204%_ - _%L22774%_) - (foldr (lambda (_%g2419424201%_ - _%g2419524204%_ - _%g2419624206%_) + _%L23303%_ + _%L22873%_) + (foldr (lambda (_%g2429324300%_ + _%g2429424303%_ + _%g2429524305%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2419524204%_ '())) + (cons _%g2429424303%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2419424201%_ '())) + (cons _%g2429324300%_ '())) '())))) - _%g2419624206%_)) + _%g2429524305%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _%L23346%_ - _%L22990%_) - (foldr (lambda (_%g2419724209%_ + _%L23445%_ + _%L23089%_) + (foldr (lambda (_%g2429624308%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2419824212%_ - _%g2419924214%_) + _%g2429724311%_ + _%g2429824313%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2419824212%_ '())) + (cons _%g2429724311%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2419724209%_ + (cons _%g2429624308%_ '())) '())))) - _%g2419924214%_)) + _%g2429824313%_)) '() - _%L23346%_ - _%L22990%_)) + _%L23445%_ + _%L23089%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L23204%_ - _%L22774%_)))))) - _%g2404824059%_)))) - (_%g2404624217%_ + _%L23303%_ + _%L22873%_)))))) + _%g2414724158%_)))) + (_%g2414524316%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L22916%_ - _%L22774%_) - (foldr (lambda (_%g2422024227%_ - _%g2422124230%_ - _%g2422224232%_) + _%L23015%_ + _%L22873%_) + (foldr (lambda (_%g2431924326%_ + _%g2432024329%_ + _%g2432124331%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2422124230%_ + (cons _%g2432024329%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2422024227%_ '())) + (cons _%g2431924326%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2422224232%_)) + _%g2432124331%_)) (begin (gx#syntax-check-splice-targets - _%L23133%_ - _%L22990%_) - (foldr (lambda (_%g2422324235%_ - _%g2422424238%_ - _%g2422524240%_) + _%L23232%_ + _%L23089%_) + (foldr (lambda (_%g2432224334%_ + _%g2432324337%_ + _%g2432424339%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -1358,59 +1358,59 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g2422424238%_ '())) + (cons _%g2432324337%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2422324235%_ '())) + (cons _%g2432224334%_ '())) '())))) - _%g2422524240%_)) + _%g2432424339%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L23133%_ - _%L22990%_)) - _%L22916%_ - _%L22774%_)))))) - _%g2402024031%_)))) + _%L23232%_ + _%L23089%_)) + _%L23015%_ + _%L22873%_)))))) + _%g2411924130%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2401824243%_ + (_%g2411724342%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L22845%_ - _%L22774%_) - (foldr (lambda (_%g2424624253%_ + _%L22944%_ + _%L22873%_) + (foldr (lambda (_%g2434524352%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2424724256%_ - _%g2424824258%_) + _%g2434624355%_ + _%g2434724357%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2424724256%_ '())) + (cons _%g2434624355%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2424624253%_ + (cons _%g2434524352%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2424824258%_)) + _%g2434724357%_)) (begin (gx#syntax-check-splice-targets - _%L23062%_ - _%L22990%_) - (foldr (lambda (_%g2424924261%_ - _%g2425024264%_ - _%g2425124266%_) + _%L23161%_ + _%L23089%_) + (foldr (lambda (_%g2434824360%_ + _%g2434924363%_ + _%g2435024365%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2425024264%_ + (cons _%g2434924363%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1419,298 +1419,298 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g2424924261%_ '())) + (cons _%g2434824360%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2425124266%_)) + _%g2435024365%_)) '() - _%L23062%_ - _%L22990%_)) - _%L22845%_ - _%L22774%_)))))) + _%L23161%_ + _%L23089%_)) + _%L22944%_ + _%L22873%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2399224003%_)))) - (_%g2399024269%_ + _%g2409124102%_)))) + (_%g2408924368%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L22679%_ '()))))) - _%g2396423975%_)))) - (_%g2396224273%_ + (cons _%L22778%_ '()))))) + _%g2406324074%_)))) + (_%g2406124372%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L22651%_ '()))))) - _%g2393623947%_)))) + (cons _%L22750%_ '()))))) + _%g2403524046%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2393424277%_ + (_%g2403324376%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L22623%_ + (cons _%L22722%_ '()))))) - _%g2390823919%_)))) - (_%g2390624281%_ - (if (null? _%type-constructor23502%_) + _%g2400724018%_)))) + (_%g2400524380%_ + (if (null? _%type-constructor23601%_) '#f - (let* ((_%g2428524300%_ - (lambda (_%g2428624296%_) + (let* ((_%g2438424399%_ + (lambda (_%g2438524395%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2428624296%_))) - (_%g2428424348%_ - (lambda (_%g2428624304%_) + _%g2438524395%_))) + (_%g2438324447%_ + (lambda (_%g2438524403%_) (if (gx#stx-pair? - _%g2428624304%_) - (let ((_%e2428824307%_ + _%g2438524403%_) + (let ((_%e2438724406%_ (gx#syntax-e - _%g2428624304%_))) - (let ((_%hd2428924311%_ + _%g2438524403%_))) + (let ((_%hd2438824410%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2428824307%_))) - (_%tl2429024314%_ - (let () (declare (not safe)) (##cdr _%e2428824307%_)))) - (if (gx#stx-datum? _%hd2428924311%_) - (let ((_%e2429124317%_ (gx#stx-e _%hd2428924311%_))) - (if (equal? _%e2429124317%_ 'constructor:) - (if (gx#stx-pair? _%tl2429024314%_) - (let ((_%e2429224321%_ - (gx#syntax-e _%tl2429024314%_))) - (let ((_%hd2429324325%_ + (##car _%e2438724406%_))) + (_%tl2438924413%_ + (let () (declare (not safe)) (##cdr _%e2438724406%_)))) + (if (gx#stx-datum? _%hd2438824410%_) + (let ((_%e2439024416%_ (gx#stx-e _%hd2438824410%_))) + (if (equal? _%e2439024416%_ 'constructor:) + (if (gx#stx-pair? _%tl2438924413%_) + (let ((_%e2439124420%_ + (gx#syntax-e _%tl2438924413%_))) + (let ((_%hd2439224424%_ (let () (declare (not safe)) - (##car _%e2429224321%_))) - (_%tl2429424328%_ + (##car _%e2439124420%_))) + (_%tl2439324427%_ (let () (declare (not safe)) - (##cdr _%e2429224321%_)))) - (if (gx#stx-null? _%tl2429424328%_) - ((lambda (_%L24331%_) + (##cdr _%e2439124420%_)))) + (if (gx#stx-null? _%tl2439324427%_) + ((lambda (_%L24430%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L24331%_ '()))) - _%hd2429324325%_) - (_%g2428524300%_ _%g2428624304%_)))) - (_%g2428524300%_ _%g2428624304%_)) - (_%g2428524300%_ _%g2428624304%_))) - (_%g2428524300%_ _%g2428624304%_)))) - (_%g2428524300%_ _%g2428624304%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2428424348%_ - _%type-constructor23502%_)))))) - _%g2388023891%_)))) - (_%g2387824352%_ - (if _%metaclass23593%_ - (let* ((_%g2435624364%_ - (lambda (_%g2435724360%_) + (cons _%L24430%_ '()))) + _%hd2439224424%_) + (_%g2438424399%_ _%g2438524403%_)))) + (_%g2438424399%_ _%g2438524403%_)) + (_%g2438424399%_ _%g2438524403%_))) + (_%g2438424399%_ _%g2438524403%_)))) + (_%g2438424399%_ _%g2438524403%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2438324447%_ + _%type-constructor23601%_)))))) + _%g2397923990%_)))) + (_%g2397724451%_ + (if _%metaclass23692%_ + (let* ((_%g2445524463%_ + (lambda (_%g2445624459%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2435724360%_))) - (_%g2435524383%_ - (lambda (_%g2435724368%_) - ((lambda (_%L24371%_) + _%g2445624459%_))) + (_%g2445424482%_ + (lambda (_%g2445624467%_) + ((lambda (_%L24470%_) (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L24371%_ '()))) - _%g2435724368%_)))) - (_%g2435524383%_ _%metaclass23593%_)) + (cons _%L24470%_ '()))) + _%g2445624467%_)))) + (_%g2445424482%_ _%metaclass23692%_)) '#f)))) - _%g2385223863%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2385024387%_ - _%final?23599%_))) - _%g2382423835%_)))) - (_%g2382224391%_ _%struct?22574%_))) - _%g2379623807%_)))) - (_%g2379424395%_ + _%g2395123962%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2394924486%_ + _%final?23698%_))) + _%g2392323934%_)))) + (_%g2392124490%_ _%struct?22673%_))) + _%g2389523906%_)))) + (_%g2389324494%_ (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g2439824401%_ - _%g2439924404%_) - (cons _%g2439824401%_ - _%g2439924404%_)) + (cons (foldr (lambda (_%g2449724500%_ + _%g2449824503%_) + (cons _%g2449724500%_ + _%g2449824503%_)) '() - _%L22774%_) + _%L22873%_) '()))))) - _%g2376823779%_)))) + _%g2386723878%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2376624407%_ - (let* ((_%g2441124428%_ - (lambda (_%g2441224424%_) + (_%g2386524506%_ + (let* ((_%g2451024527%_ + (lambda (_%g2451124523%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2441224424%_))) - (_%g2441024489%_ - (lambda (_%g2441224432%_) + _%g2451124523%_))) + (_%g2450924588%_ + (lambda (_%g2451124531%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2441224432%_) - (let ((_g27232_ - (gx#syntax-split-splice _%g2441224432%_ '0))) + _%g2451124531%_) + (let ((_g27331_ + (gx#syntax-split-splice _%g2451124531%_ '0))) (begin - (let ((_g27233_ + (let ((_g27332_ (let () (declare (not safe)) - (if (##values? _g27232_) - (##vector-length _g27232_) + (if (##values? _g27331_) + (##values-length _g27331_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27233_ 2))) + (##fx= _g27332_ 2))) (error "Context expects 2 values" - _g27233_))) - (let ((_%target2441424435%_ + _g27332_))) + (let ((_%target2451324534%_ (let () (declare (not safe)) - (##vector-ref _g27232_ 0))) - (_%tl2441624438%_ + (##values-ref _g27331_ 0))) + (_%tl2451524537%_ (let () (declare (not safe)) - (##vector-ref _g27232_ 1)))) - (if (gx#stx-null? _%tl2441624438%_) - (letrec ((_%loop2441724441%_ - (lambda (_%hd2441524445%_ - _%super-id2442124448%_) + (##values-ref _g27331_ 1)))) + (if (gx#stx-null? _%tl2451524537%_) + (letrec ((_%loop2451624540%_ + (lambda (_%hd2451424544%_ + _%super-id2452024547%_) (if (gx#stx-pair? - _%hd2441524445%_) - (let ((_%e2441824451%_ + _%hd2451424544%_) + (let ((_%e2451724550%_ (gx#syntax-e - _%hd2441524445%_))) - (let ((_%lp-hd2441924455%_ + _%hd2451424544%_))) + (let ((_%lp-hd2451824554%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2441824451%_))) - (_%lp-tl2442024458%_ - (let () (declare (not safe)) (##cdr _%e2441824451%_)))) - (_%loop2441724441%_ - _%lp-tl2442024458%_ - (cons _%lp-hd2441924455%_ _%super-id2442124448%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%super-id2442224461%_ - (reverse _%super-id2442124448%_))) - ((lambda (_%L24465%_) + (##car _%e2451724550%_))) + (_%lp-tl2451924557%_ + (let () (declare (not safe)) (##cdr _%e2451724550%_)))) + (_%loop2451624540%_ + _%lp-tl2451924557%_ + (cons _%lp-hd2451824554%_ _%super-id2452024547%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%super-id2452124560%_ + (reverse _%super-id2452024547%_))) + ((lambda (_%L24564%_) (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2448024483%_ + (foldr (lambda (_%g2457924582%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2448124486%_) + _%g2458024585%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2448024483%_ '())) - _%g2448124486%_)) + (cons _%g2457924582%_ '())) + _%g2458024585%_)) '() - _%L24465%_))) - _%super-id2442224461%_)))))) + _%L24564%_))) + _%super-id2452124560%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2441724441%_ - _%target2441424435%_ + (_%loop2451624540%_ + _%target2451324534%_ '())) - (_%g2441124428%_ _%g2441224432%_))))) - (_%g2441124428%_ _%g2441224432%_))))) - (_%g2441024489%_ _%super-ref22558%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2374023751%_)))) - (_%g2373824493%_ - (let* ((_%g2449724505%_ - (lambda (_%g2449824501%_) + (_%g2451024527%_ _%g2451124531%_))))) + (_%g2451024527%_ _%g2451124531%_))))) + (_%g2450924588%_ _%super-ref22657%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g2383923850%_)))) + (_%g2383724592%_ + (let* ((_%g2459624604%_ + (lambda (_%g2459724600%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2449824501%_))) - (_%g2449624524%_ - (lambda (_%g2449824509%_) - ((lambda (_%L24512%_) + _%g2459724600%_))) + (_%g2459524623%_ + (lambda (_%g2459724608%_) + ((lambda (_%L24611%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L24512%_ + (cons _%L24611%_ '()))) - _%g2449824509%_)))) - (_%g2449624524%_ - (cadr _%type-name23480%_)))))) - _%g2371223723%_)))) - (_%g2371024528%_ - (let* ((_%g2453224547%_ - (lambda (_%g2453324543%_) + _%g2459724608%_)))) + (_%g2459524623%_ + (cadr _%type-name23579%_)))))) + _%g2381123822%_)))) + (_%g2380924627%_ + (let* ((_%g2463124646%_ + (lambda (_%g2463224642%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2453324543%_))) - (_%g2453124595%_ - (lambda (_%g2453324551%_) - (if (gx#stx-pair? _%g2453324551%_) - (let ((_%e2453524554%_ - (gx#syntax-e _%g2453324551%_))) - (let ((_%hd2453624558%_ + _%g2463224642%_))) + (_%g2463024694%_ + (lambda (_%g2463224650%_) + (if (gx#stx-pair? _%g2463224650%_) + (let ((_%e2463424653%_ + (gx#syntax-e _%g2463224650%_))) + (let ((_%hd2463524657%_ (let () (declare (not safe)) - (##car _%e2453524554%_))) - (_%tl2453724561%_ + (##car _%e2463424653%_))) + (_%tl2463624660%_ (let () (declare (not safe)) - (##cdr _%e2453524554%_)))) + (##cdr _%e2463424653%_)))) (if (gx#stx-datum? - _%hd2453624558%_) - (let ((_%e2453824564%_ + _%hd2463524657%_) + (let ((_%e2463724663%_ (gx#stx-e - _%hd2453624558%_))) - (if (equal? _%e2453824564%_ + _%hd2463524657%_))) + (if (equal? _%e2463724663%_ 'id:) (if (gx#stx-pair? - _%tl2453724561%_) - (let ((_%e2453924568%_ + _%tl2463624660%_) + (let ((_%e2463824667%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2453724561%_))) - (let ((_%hd2454024572%_ + (gx#syntax-e _%tl2463624660%_))) + (let ((_%hd2463924671%_ (let () (declare (not safe)) - (##car _%e2453924568%_))) - (_%tl2454124575%_ + (##car _%e2463824667%_))) + (_%tl2464024674%_ (let () (declare (not safe)) - (##cdr _%e2453924568%_)))) - (if (gx#stx-null? _%tl2454124575%_) - ((lambda (_%L24578%_) + (##cdr _%e2463824667%_)))) + (if (gx#stx-null? _%tl2464024674%_) + ((lambda (_%L24677%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L24578%_ '()))) - _%hd2454024572%_) - (_%g2453224547%_ _%g2453324551%_)))) - (_%g2453224547%_ _%g2453324551%_)) - (_%g2453224547%_ _%g2453324551%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2453224547%_ - _%g2453324551%_)))) - (_%g2453224547%_ _%g2453324551%_))))) - (_%g2453124595%_ _%type-id23487%_))))) - _%g2368423695%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2368224599%_ - (_%wrap22562%_ + (cons _%L24677%_ '()))) + _%hd2463924671%_) + (_%g2463124646%_ _%g2463224650%_)))) + (_%g2463124646%_ _%g2463224650%_)) + (_%g2463124646%_ _%g2463224650%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2463124646%_ + _%g2463224650%_)))) + (_%g2463124646%_ _%g2463224650%_))))) + (_%g2463024694%_ _%type-id23586%_))))) + _%g2378323794%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2378124698%_ + (_%wrap22661%_ (cons (gx#datum->syntax '#f 'defclass-type) - (cons _%L22623%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L22707%_ - (cons _%L22651%_ - (cons _%L22679%_ - (foldr (lambda (_%g2460224605%_ - _%g2460324608%_) - (cons _%g2460224605%_ - _%g2460324608%_)) + (cons _%L22722%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L22806%_ + (cons _%L22750%_ + (cons _%L22778%_ + (foldr (lambda (_%g2470124704%_ + _%g2470224707%_) + (cons _%g2470124704%_ + _%g2470224707%_)) '() - _%L23662%_)))))))))) + _%L23761%_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%type-body2361923658%_)))))) - (_%loop2361423638%_ _%target2361123632%_ '())) - (_%g2360823625%_ _%g2360923629%_))))) - (_%g2360823625%_ _%g2360923629%_))))) + _%type-body2371823757%_)))))) + (_%loop2371323737%_ _%target2371023731%_ '())) + (_%g2370723724%_ _%g2370823728%_))))) + (_%g2370723724%_ _%g2370823728%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2360724611%_ + (_%g2370624710%_ (foldr cons (foldr cons (foldr cons @@ -1720,564 +1720,564 @@ (foldr cons (foldr cons (foldr cons - _%type-mixin-slots23473%_ - _%type-slots23452%_) - _%type-properties23581%_) - _%type-metaclass23596%_) - _%type-final23605%_) - _%type-struct23602%_) - _%type-constructor23502%_) - _%type-name23480%_) - _%type-id23487%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-usetf2337423413%_)))))) - (_%loop2336923393%_ _%target2336623387%_ '())) - (_%g2336323380%_ _%g2336423384%_))))) - (_%g2336323380%_ _%g2336423384%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2336224615%_ + _%type-mixin-slots23572%_ + _%type-slots23551%_) + _%type-properties23680%_) + _%type-metaclass23695%_) + _%type-final23704%_) + _%type-struct23701%_) + _%type-constructor23601%_) + _%type-name23579%_) + _%type-id23586%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%mixin-usetf2347323512%_)))))) + (_%loop2346823492%_ _%target2346523486%_ '())) + (_%g2346223479%_ _%g2346323483%_))))) + (_%g2346223479%_ _%g2346323483%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2346124714%_ (gx#stx-map - (lambda (_%g2461824620%_) - (_%make-id22564%_ + (lambda (_%g2471724719%_) + (_%make-id22663%_ '"&" - _%g2461824620%_)) - (foldr (lambda (_%g2462324626%_ - _%g2462424629%_) - (cons _%g2462324626%_ - _%g2462424629%_)) + _%g2471724719%_)) + (foldr (lambda (_%g2472224725%_ + _%g2472324728%_) + (cons _%g2472224725%_ + _%g2472324728%_)) '() - _%L23133%_))))) - _%mixin-ugetf2330323342%_)))))) - (_%loop2329823322%_ _%target2329523316%_ '())) - (_%g2329223309%_ _%g2329323313%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2329223309%_ - _%g2329323313%_))))) - (_%g2329124632%_ + _%L23232%_))))) + _%mixin-ugetf2340223441%_)))))) + (_%loop2339723421%_ _%target2339423415%_ '())) + (_%g2339123408%_ _%g2339223412%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2339123408%_ + _%g2339223412%_))))) + (_%g2339024731%_ (gx#stx-map - (lambda (_%g2463524637%_) - (_%make-id22564%_ + (lambda (_%g2473424736%_) + (_%make-id22663%_ '"&" - _%g2463524637%_)) - (foldr (lambda (_%g2464024643%_ - _%g2464124646%_) - (cons _%g2464024643%_ - _%g2464124646%_)) + _%g2473424736%_)) + (foldr (lambda (_%g2473924742%_ + _%g2474024745%_) + (cons _%g2473924742%_ + _%g2474024745%_)) '() - _%L23062%_))))) - _%usetf2323223271%_)))))) - (_%loop2322723251%_ _%target2322423245%_ '())) - (_%g2322123238%_ _%g2322223242%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2322123238%_ - _%g2322223242%_))))) - (_%g2322024649%_ + _%L23161%_))))) + _%usetf2333123370%_)))))) + (_%loop2332623350%_ _%target2332323344%_ '())) + (_%g2332023337%_ _%g2332123341%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2332023337%_ + _%g2332123341%_))))) + (_%g2331924748%_ (gx#stx-map - (lambda (_%g2465224654%_) - (_%make-id22564%_ '"&" _%g2465224654%_)) - (foldr (lambda (_%g2465724660%_ - _%g2465824663%_) - (cons _%g2465724660%_ - _%g2465824663%_)) + (lambda (_%g2475124753%_) + (_%make-id22663%_ '"&" _%g2475124753%_)) + (foldr (lambda (_%g2475624759%_ + _%g2475724762%_) + (cons _%g2475624759%_ + _%g2475724762%_)) '() - _%L22916%_))))) - _%ugetf2316123200%_)))))) + _%L23015%_))))) + _%ugetf2326023299%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2315623180%_ - _%target2315323174%_ + (_%loop2325523279%_ + _%target2325223273%_ '())) - (_%g2315023167%_ - _%g2315123171%_))))) - (_%g2315023167%_ _%g2315123171%_))))) - (_%g2314924666%_ + (_%g2324923266%_ + _%g2325023270%_))))) + (_%g2324923266%_ _%g2325023270%_))))) + (_%g2324824765%_ (gx#stx-map - (lambda (_%g2466924671%_) - (_%make-id22564%_ '"&" _%g2466924671%_)) - (foldr (lambda (_%g2467424677%_ _%g2467524680%_) - (cons _%g2467424677%_ _%g2467524680%_)) + (lambda (_%g2476824770%_) + (_%make-id22663%_ '"&" _%g2476824770%_)) + (foldr (lambda (_%g2477324776%_ _%g2477424779%_) + (cons _%g2477324776%_ _%g2477424779%_)) '() - _%L22845%_))))) - _%mixin-setf2309023129%_)))))) + _%L22944%_))))) + _%mixin-setf2318923228%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2308523109%_ - _%target2308223103%_ + (_%loop2318423208%_ + _%target2318123202%_ '())) - (_%g2307923096%_ - _%g2308023100%_))))) - (_%g2307923096%_ _%g2308023100%_))))) - (_%g2307824683%_ + (_%g2317823195%_ + _%g2317923199%_))))) + (_%g2317823195%_ _%g2317923199%_))))) + (_%g2317724782%_ (gx#stx-map - (lambda (_%g2468624688%_) - (_%make-id22564%_ - _%name22568%_ + (lambda (_%g2478524787%_) + (_%make-id22663%_ + _%name22667%_ '"-" - _%g2468624688%_ + _%g2478524787%_ '"-set!")) - _%mixin-slots22933%_)))) - _%mixin-getf2301923058%_)))))) + _%mixin-slots23032%_)))) + _%mixin-getf2311823157%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2301423038%_ - _%target2301123032%_ + (_%loop2311323137%_ + _%target2311023131%_ '())) - (_%g2300823025%_ _%g2300923029%_))))) - (_%g2300823025%_ _%g2300923029%_))))) - (_%g2300724692%_ + (_%g2310723124%_ _%g2310823128%_))))) + (_%g2310723124%_ _%g2310823128%_))))) + (_%g2310624791%_ (gx#stx-map - (lambda (_%g2469524697%_) - (_%make-id22564%_ _%name22568%_ '"-" _%g2469524697%_)) - _%mixin-slots22933%_)))) + (lambda (_%g2479424796%_) + (_%make-id22663%_ _%name22667%_ '"-" _%g2479424796%_)) + _%mixin-slots23032%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-slot2294722986%_)))))) - (_%loop2294222966%_ - _%target2293922960%_ + _%mixin-slot2304623085%_)))))) + (_%loop2304123065%_ + _%target2303823059%_ '())) - (_%g2293622953%_ _%g2293722957%_))))) - (_%g2293622953%_ _%g2293722957%_))))) + (_%g2303523052%_ _%g2303623056%_))))) + (_%g2303523052%_ _%g2303623056%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2293524701%_ - _%mixin-slots22933%_))) - _%setf2287322912%_)))))) - (_%loop2286822892%_ _%target2286522886%_ '())) - (_%g2286222879%_ _%g2286322883%_))))) - (_%g2286222879%_ _%g2286322883%_))))) + (_%g2303424800%_ + _%mixin-slots23032%_))) + _%setf2297223011%_)))))) + (_%loop2296722991%_ _%target2296422985%_ '())) + (_%g2296122978%_ _%g2296222982%_))))) + (_%g2296122978%_ _%g2296222982%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2286124705%_ + (_%g2296024804%_ (gx#stx-map - (lambda (_%g2470824710%_) - (_%make-id22564%_ - _%name22568%_ + (lambda (_%g2480724809%_) + (_%make-id22663%_ + _%name22667%_ '"-" - _%g2470824710%_ + _%g2480724809%_ '"-set!")) - _%slots22559%_)))) - _%getf2280222841%_)))))) - (_%loop2279722821%_ _%target2279422815%_ '())) - (_%g2279122808%_ _%g2279222812%_))))) - (_%g2279122808%_ _%g2279222812%_))))) + _%slots22658%_)))) + _%getf2290122940%_)))))) + (_%loop2289622920%_ _%target2289322914%_ '())) + (_%g2289022907%_ _%g2289122911%_))))) + (_%g2289022907%_ _%g2289122911%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2279024714%_ + (_%g2288924813%_ (gx#stx-map - (lambda (_%g2471724719%_) - (_%make-id22564%_ - _%name22568%_ + (lambda (_%g2481624818%_) + (_%make-id22663%_ + _%name22667%_ '"-" - _%g2471724719%_)) - _%slots22559%_)))) - _%slot2273122770%_)))))) - (_%loop2272622750%_ _%target2272322744%_ '())) - (_%g2272022737%_ _%g2272122741%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2272022737%_ - _%g2272122741%_))))) - (_%g2271924723%_ _%slots22559%_))) - _%g2269322704%_)))) - (_%g2269124727%_ + _%g2481624818%_)) + _%slots22658%_)))) + _%slot2283022869%_)))))) + (_%loop2282522849%_ _%target2282222843%_ '())) + (_%g2281922836%_ _%g2282022840%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2281922836%_ + _%g2282022840%_))))) + (_%g2281824822%_ _%slots22658%_))) + _%g2279222803%_)))) + (_%g2279024826%_ (let () (declare (not safe)) (##map gerbil/core/mop~MOP-2#!class-type-descriptor - _%super22571%_))))) - _%g2266522676%_)))) + _%super22670%_))))) + _%g2276422775%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2266324731%_ - (_%make-id22564%_ - _%name22568%_ + (_%g2276224830%_ + (_%make-id22663%_ + _%name22667%_ '"?")))) - _%g2263722648%_)))) - (_%g2263524735%_ - (_%make-id22564%_ + _%g2273622747%_)))) + (_%g2273424834%_ + (_%make-id22663%_ '"make-" - _%name22568%_)))) - _%g2260922620%_)))) - (_%g2260724739%_ - (_%make-id22564%_ _%name22568%_ '"::t")))) - _%g2257822589%_)))) - (_%g2257624743%_ _%id22557%_))))) + _%name22667%_)))) + _%g2270822719%_)))) + (_%g2270624838%_ + (_%make-id22663%_ _%name22667%_ '"::t")))) + _%g2267722688%_)))) + (_%g2267524842%_ _%id22656%_))))) (define |gerbil/core/mop~MOP-4[:0:]#defstruct| - (lambda (_%$stx24810%_) - (let* ((_%g2481424833%_ - (lambda (_%g2481524829%_) + (lambda (_%$stx24909%_) + (let* ((_%g2491324932%_ + (lambda (_%g2491424928%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2481524829%_))) - (_%g2481324890%_ - (lambda (_%g2481524837%_) - (if (gx#stx-pair? _%g2481524837%_) - (let ((_%e2481924840%_ (gx#syntax-e _%g2481524837%_))) - (let ((_%hd2482024844%_ + _%g2491424928%_))) + (_%g2491224989%_ + (lambda (_%g2491424936%_) + (if (gx#stx-pair? _%g2491424936%_) + (let ((_%e2491824939%_ (gx#syntax-e _%g2491424936%_))) + (let ((_%hd2491924943%_ (let () (declare (not safe)) - (##car _%e2481924840%_))) - (_%tl2482124847%_ + (##car _%e2491824939%_))) + (_%tl2492024946%_ (let () (declare (not safe)) - (##cdr _%e2481924840%_)))) - (if (gx#stx-pair? _%tl2482124847%_) - (let ((_%e2482224850%_ - (gx#syntax-e _%tl2482124847%_))) - (let ((_%hd2482324854%_ + (##cdr _%e2491824939%_)))) + (if (gx#stx-pair? _%tl2492024946%_) + (let ((_%e2492124949%_ + (gx#syntax-e _%tl2492024946%_))) + (let ((_%hd2492224953%_ (let () (declare (not safe)) - (##car _%e2482224850%_))) - (_%tl2482424857%_ + (##car _%e2492124949%_))) + (_%tl2492324956%_ (let () (declare (not safe)) - (##cdr _%e2482224850%_)))) - (if (gx#stx-pair? _%tl2482424857%_) - (let ((_%e2482524860%_ - (gx#syntax-e _%tl2482424857%_))) - (let ((_%hd2482624864%_ + (##cdr _%e2492124949%_)))) + (if (gx#stx-pair? _%tl2492324956%_) + (let ((_%e2492424959%_ + (gx#syntax-e _%tl2492324956%_))) + (let ((_%hd2492524963%_ (let () (declare (not safe)) - (##car _%e2482524860%_))) - (_%tl2482724867%_ + (##car _%e2492424959%_))) + (_%tl2492624966%_ (let () (declare (not safe)) - (##cdr _%e2482524860%_)))) - ((lambda (_%L24870%_ - _%L24872%_ - _%L24873%_) + (##cdr _%e2492424959%_)))) + ((lambda (_%L24969%_ + _%L24971%_ + _%L24972%_) (cons (gx#datum->syntax '#f 'defclass) - (cons _%L24873%_ - (cons _%L24872%_ + (cons _%L24972%_ + (cons _%L24971%_ (cons 'struct: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '#t _%L24870%_)))))) + (cons '#t _%L24969%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl2482724867%_ - _%hd2482624864%_ - _%hd2482324854%_))) - (_%g2481424833%_ _%g2481524837%_)))) - (_%g2481424833%_ _%g2481524837%_)))) - (_%g2481424833%_ _%g2481524837%_))))) - (_%g2481324890%_ _%$stx24810%_)))) + _%tl2492624966%_ + _%hd2492524963%_ + _%hd2492224953%_))) + (_%g2491324932%_ _%g2491424936%_)))) + (_%g2491324932%_ _%g2491424936%_)))) + (_%g2491324932%_ _%g2491424936%_))))) + (_%g2491224989%_ _%$stx24909%_)))) (define |gerbil/core/mop~MOP-4[:0:]#defclass| - (lambda (_%stx24894%_) - (letrec ((_%generate24897%_ - (lambda (_%hd24981%_ _%slots24983%_ _%body24984%_) - (let* ((_%__stx2674926750%_ _%hd24981%_) - (_%g2498724999%_ + (lambda (_%stx24993%_) + (letrec ((_%generate24996%_ + (lambda (_%hd25080%_ _%slots25082%_ _%body25083%_) + (let* ((_%__stx2684826849%_ _%hd25080%_) + (_%g2508625098%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2674926750%_)))) - (let ((_%__kont2675226753%_ - (lambda (_%L25027%_ _%L25029%_) + _%__stx2684826849%_)))) + (let ((_%__kont2685126852%_ + (lambda (_%L25126%_ _%L25128%_) (|gerbil/core/mop~MOP-4[1]#generate-defclass| - _%stx24894%_ - _%L25029%_ - (gx#syntax->list _%L25027%_) - _%slots24983%_ - _%body24984%_))) - (_%__kont2675426755%_ + _%stx24993%_ + _%L25128%_ + (gx#syntax->list _%L25126%_) + _%slots25082%_ + _%body25083%_))) + (_%__kont2685326854%_ (lambda () - (if (gx#identifier? _%hd24981%_) + (if (gx#identifier? _%hd25080%_) (|gerbil/core/mop~MOP-4[1]#generate-defclass| - _%stx24894%_ - _%hd24981%_ + _%stx24993%_ + _%hd25080%_ '() - _%slots24983%_ - _%body24984%_) + _%slots25082%_ + _%body25083%_) (gx#raise-syntax-error '#f '"bad syntax; class name should be an identifier" - _%stx24894%_ - _%hd24981%_))))) - (let ((_%__match2676226763%_ - (lambda (_%e2499125017%_ - _%hd2499225021%_ - _%tl2499325024%_) - (let ((_%L25027%_ _%tl2499325024%_) - (_%L25029%_ _%hd2499225021%_)) - (if (and (gx#stx-list? _%L25027%_) + _%stx24993%_ + _%hd25080%_))))) + (let ((_%__match2686126862%_ + (lambda (_%e2509025116%_ + _%hd2509125120%_ + _%tl2509225123%_) + (let ((_%L25126%_ _%tl2509225123%_) + (_%L25128%_ _%hd2509125120%_)) + (if (and (gx#stx-list? _%L25126%_) (gx#stx-andmap gerbil/core/mop~MOP-2#syntax-local-class-type-info? - _%L25027%_)) - (_%__kont2675226753%_ - _%L25027%_ - _%L25029%_) - (_%__kont2675426755%_)))))) - (if (gx#stx-pair? _%__stx2674926750%_) - (let ((_%e2499125017%_ - (gx#syntax-e _%__stx2674926750%_))) - (let ((_%tl2499325024%_ + _%L25126%_)) + (_%__kont2685126852%_ + _%L25126%_ + _%L25128%_) + (_%__kont2685326854%_)))))) + (if (gx#stx-pair? _%__stx2684826849%_) + (let ((_%e2509025116%_ + (gx#syntax-e _%__stx2684826849%_))) + (let ((_%tl2509225123%_ (let () (declare (not safe)) - (##cdr _%e2499125017%_))) - (_%hd2499225021%_ + (##cdr _%e2509025116%_))) + (_%hd2509125120%_ (let () (declare (not safe)) - (##car _%e2499125017%_)))) - (_%__match2676226763%_ - _%e2499125017%_ - _%hd2499225021%_ - _%tl2499325024%_))) - (_%__kont2675426755%_)))))))) - (let* ((_%g2490024919%_ - (lambda (_%g2490124915%_) + (##car _%e2509025116%_)))) + (_%__match2686126862%_ + _%e2509025116%_ + _%hd2509125120%_ + _%tl2509225123%_))) + (_%__kont2685326854%_)))))))) + (let* ((_%g2499925018%_ + (lambda (_%g2500025014%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2490124915%_))) - (_%g2489924977%_ - (lambda (_%g2490124923%_) - (if (gx#stx-pair? _%g2490124923%_) - (let ((_%e2490524926%_ (gx#syntax-e _%g2490124923%_))) - (let ((_%hd2490624930%_ + _%g2500025014%_))) + (_%g2499825076%_ + (lambda (_%g2500025022%_) + (if (gx#stx-pair? _%g2500025022%_) + (let ((_%e2500425025%_ (gx#syntax-e _%g2500025022%_))) + (let ((_%hd2500525029%_ (let () (declare (not safe)) - (##car _%e2490524926%_))) - (_%tl2490724933%_ + (##car _%e2500425025%_))) + (_%tl2500625032%_ (let () (declare (not safe)) - (##cdr _%e2490524926%_)))) - (if (gx#stx-pair? _%tl2490724933%_) - (let ((_%e2490824936%_ - (gx#syntax-e _%tl2490724933%_))) - (let ((_%hd2490924940%_ + (##cdr _%e2500425025%_)))) + (if (gx#stx-pair? _%tl2500625032%_) + (let ((_%e2500725035%_ + (gx#syntax-e _%tl2500625032%_))) + (let ((_%hd2500825039%_ (let () (declare (not safe)) - (##car _%e2490824936%_))) - (_%tl2491024943%_ + (##car _%e2500725035%_))) + (_%tl2500925042%_ (let () (declare (not safe)) - (##cdr _%e2490824936%_)))) - (if (gx#stx-pair? _%tl2491024943%_) - (let ((_%e2491124946%_ - (gx#syntax-e _%tl2491024943%_))) - (let ((_%hd2491224950%_ + (##cdr _%e2500725035%_)))) + (if (gx#stx-pair? _%tl2500925042%_) + (let ((_%e2501025045%_ + (gx#syntax-e _%tl2500925042%_))) + (let ((_%hd2501125049%_ (let () (declare (not safe)) - (##car _%e2491124946%_))) - (_%tl2491324953%_ + (##car _%e2501025045%_))) + (_%tl2501225052%_ (let () (declare (not safe)) - (##cdr _%e2491124946%_)))) - ((lambda (_%L24956%_ - _%L24958%_ - _%L24959%_) + (##cdr _%e2501025045%_)))) + ((lambda (_%L25055%_ + _%L25057%_ + _%L25058%_) (if (and (gx#identifier-list? - _%L24958%_) + _%L25057%_) (|gerbil/core/mop~MOP-4[1]#typedef-body?| - _%L24956%_)) - (_%generate24897%_ - _%L24959%_ - _%L24958%_ - _%L24956%_) - (_%g2490024919%_ - _%g2490124923%_))) - _%tl2491324953%_ - _%hd2491224950%_ - _%hd2490924940%_))) - (_%g2490024919%_ _%g2490124923%_)))) - (_%g2490024919%_ _%g2490124923%_)))) - (_%g2490024919%_ _%g2490124923%_))))) - (_%g2489924977%_ _%stx24894%_))))) + _%L25055%_)) + (_%generate24996%_ + _%L25058%_ + _%L25057%_ + _%L25055%_) + (_%g2499925018%_ + _%g2500025022%_))) + _%tl2501225052%_ + _%hd2501125049%_ + _%hd2500825039%_))) + (_%g2499925018%_ _%g2500025022%_)))) + (_%g2499925018%_ _%g2500025022%_)))) + (_%g2499925018%_ _%g2500025022%_))))) + (_%g2499825076%_ _%stx24993%_))))) (define |gerbil/core/mop~MOP-4[:0:]#defmethod| - (lambda (_%stx25046%_) - (letrec ((_%wrap25049%_ - (lambda (_%e-stx25395%_) + (lambda (_%stx25145%_) + (letrec ((_%wrap25148%_ + (lambda (_%e-stx25494%_) (gx#stx-wrap-source - _%e-stx25395%_ - (gx#stx-source _%stx25046%_)))) - (_%method-opt?25051%_ - (lambda (_%x25392%_) - (let ((__tmp27234 (gx#stx-e _%x25392%_))) + _%e-stx25494%_ + (gx#stx-source _%stx25145%_)))) + (_%method-opt?25150%_ + (lambda (_%x25491%_) + (let ((__tmp27333 (gx#stx-e _%x25491%_))) (declare (not safe)) - (##memq __tmp27234 '(rebind:)))))) - (let* ((_%g2505325082%_ - (lambda (_%g2505425078%_) + (##memq __tmp27333 '(rebind:)))))) + (let* ((_%g2515225181%_ + (lambda (_%g2515325177%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2505425078%_))) - (_%g2505225388%_ - (lambda (_%g2505425086%_) - (if (gx#stx-pair? _%g2505425086%_) - (let ((_%e2505925089%_ (gx#syntax-e _%g2505425086%_))) - (let ((_%hd2506025093%_ + _%g2515325177%_))) + (_%g2515125487%_ + (lambda (_%g2515325185%_) + (if (gx#stx-pair? _%g2515325185%_) + (let ((_%e2515825188%_ (gx#syntax-e _%g2515325185%_))) + (let ((_%hd2515925192%_ (let () (declare (not safe)) - (##car _%e2505925089%_))) - (_%tl2506125096%_ + (##car _%e2515825188%_))) + (_%tl2516025195%_ (let () (declare (not safe)) - (##cdr _%e2505925089%_)))) - (if (gx#stx-pair? _%tl2506125096%_) - (let ((_%e2506225099%_ - (gx#syntax-e _%tl2506125096%_))) - (let ((_%hd2506325103%_ + (##cdr _%e2515825188%_)))) + (if (gx#stx-pair? _%tl2516025195%_) + (let ((_%e2516125198%_ + (gx#syntax-e _%tl2516025195%_))) + (let ((_%hd2516225202%_ (let () (declare (not safe)) - (##car _%e2506225099%_))) - (_%tl2506425106%_ + (##car _%e2516125198%_))) + (_%tl2516325205%_ (let () (declare (not safe)) - (##cdr _%e2506225099%_)))) - (if (gx#stx-pair? _%hd2506325103%_) - (let ((_%e2506525109%_ - (gx#syntax-e _%hd2506325103%_))) - (let ((_%hd2506625113%_ + (##cdr _%e2516125198%_)))) + (if (gx#stx-pair? _%hd2516225202%_) + (let ((_%e2516425208%_ + (gx#syntax-e _%hd2516225202%_))) + (let ((_%hd2516525212%_ (let () (declare (not safe)) - (##car _%e2506525109%_))) - (_%tl2506725116%_ + (##car _%e2516425208%_))) + (_%tl2516625215%_ (let () (declare (not safe)) - (##cdr _%e2506525109%_)))) + (##cdr _%e2516425208%_)))) (if (gx#identifier? - _%hd2506625113%_) + _%hd2516525212%_) (if (gx#free-identifier=? - |gerbil/core/mop~MOP-4[1]#_g27235_| - _%hd2506625113%_) + |gerbil/core/mop~MOP-4[1]#_g27334_| + _%hd2516525212%_) (if (gx#stx-pair? - _%tl2506725116%_) - (let ((_%e2506825119%_ + _%tl2516625215%_) + (let ((_%e2516725218%_ (gx#syntax-e - _%tl2506725116%_))) - (let ((_%hd2506925123%_ + _%tl2516625215%_))) + (let ((_%hd2516825222%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e2506825119%_))) - (_%tl2507025126%_ + (let () (declare (not safe)) (##car _%e2516725218%_))) + (_%tl2516925225%_ (let () (declare (not safe)) - (##cdr _%e2506825119%_)))) - (if (gx#stx-pair? _%tl2507025126%_) - (let ((_%e2507125129%_ (gx#syntax-e _%tl2507025126%_))) - (let ((_%hd2507225133%_ + (##cdr _%e2516725218%_)))) + (if (gx#stx-pair? _%tl2516925225%_) + (let ((_%e2517025228%_ (gx#syntax-e _%tl2516925225%_))) + (let ((_%hd2517125232%_ (let () (declare (not safe)) - (##car _%e2507125129%_))) - (_%tl2507325136%_ + (##car _%e2517025228%_))) + (_%tl2517225235%_ (let () (declare (not safe)) - (##cdr _%e2507125129%_)))) - (if (gx#stx-null? _%tl2507325136%_) - (if (gx#stx-pair? _%tl2506425106%_) - (let ((_%e2507425139%_ - (gx#syntax-e _%tl2506425106%_))) - (let ((_%hd2507525143%_ + (##cdr _%e2517025228%_)))) + (if (gx#stx-null? _%tl2517225235%_) + (if (gx#stx-pair? _%tl2516325205%_) + (let ((_%e2517325238%_ + (gx#syntax-e _%tl2516325205%_))) + (let ((_%hd2517425242%_ (let () (declare (not safe)) - (##car _%e2507425139%_))) - (_%tl2507625146%_ + (##car _%e2517325238%_))) + (_%tl2517525245%_ (let () (declare (not safe)) - (##cdr _%e2507425139%_)))) - ((lambda (_%L25149%_ - _%L25151%_ - _%L25152%_ - _%L25153%_) - (if (and (gx#identifier? _%L25153%_) + (##cdr _%e2517325238%_)))) + ((lambda (_%L25248%_ + _%L25250%_ + _%L25251%_ + _%L25252%_) + (if (and (gx#identifier? _%L25252%_) (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L25152%_)) + _%L25251%_)) (gx#stx-plist? - _%L25149%_ - _%method-opt?25051%_)) - (let* ((_%klass25180%_ + _%L25248%_ + _%method-opt?25150%_)) + (let* ((_%klass25279%_ (gx#syntax-local-value - _%L25152%_)) - (_%rebind?25183%_ + _%L25251%_)) + (_%rebind?25282%_ (gx#stx-e (gx#stx-getq 'rebind: - _%L25149%_))) - (_%g2518625194%_ - (lambda (_%g2518725190%_) + _%L25248%_))) + (_%g2528525293%_ + (lambda (_%g2528625289%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2518725190%_))) - (_%g2518525378%_ - (lambda (_%g2518725198%_) - ((lambda (_%L25201%_) - (let* ((_%g2521625224%_ + _%g2528625289%_))) + (_%g2528425477%_ + (lambda (_%g2528625297%_) + ((lambda (_%L25300%_) + (let* ((_%g2531525323%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2521725220%_) + (lambda (_%g2531625319%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2521725220%_))) - (_%g2521525374%_ - (lambda (_%g2521725228%_) - ((lambda (_%L25231%_) - (let* ((_%g2524425252%_ - (lambda (_%g2524525248%_) + _%g2531625319%_))) + (_%g2531425473%_ + (lambda (_%g2531625327%_) + ((lambda (_%L25330%_) + (let* ((_%g2534325351%_ + (lambda (_%g2534425347%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2524525248%_))) - (_%g2524325370%_ - (lambda (_%g2524525256%_) - ((lambda (_%L25259%_) - (let* ((_%g2527225280%_ - (lambda (_%g2527325276%_) + _%g2534425347%_))) + (_%g2534225469%_ + (lambda (_%g2534425355%_) + ((lambda (_%L25358%_) + (let* ((_%g2537125379%_ + (lambda (_%g2537225375%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2527325276%_))) - (_%g2527125366%_ - (lambda (_%g2527325284%_) - ((lambda (_%L25287%_) - (let* ((_%g2530025308%_ + _%g2537225375%_))) + (_%g2537025465%_ + (lambda (_%g2537225383%_) + ((lambda (_%L25386%_) + (let* ((_%g2539925407%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2530125304%_) + (lambda (_%g2540025403%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2530125304%_))) - (_%g2529925362%_ - (lambda (_%g2530125312%_) - ((lambda (_%L25315%_) - (let* ((_%g2532825336%_ - (lambda (_%g2532925332%_) + _%g2540025403%_))) + (_%g2539825461%_ + (lambda (_%g2540025411%_) + ((lambda (_%L25414%_) + (let* ((_%g2542725435%_ + (lambda (_%g2542825431%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2532925332%_))) - (_%g2532725358%_ - (lambda (_%g2532925340%_) - ((lambda (_%L25343%_) - (_%wrap25049%_ + _%g2542825431%_))) + (_%g2542625457%_ + (lambda (_%g2542825439%_) + ((lambda (_%L25442%_) + (_%wrap25148%_ (cons (gx#datum->syntax '#f 'begin) - (cons _%L25287%_ - (cons _%L25343%_ + (cons _%L25386%_ + (cons _%L25442%_ '()))))) - _%g2532925340%_)))) - (_%g2532725358%_ - (_%wrap25049%_ + _%g2542825439%_)))) + (_%g2542625457%_ + (_%wrap25148%_ (cons (gx#datum->syntax '#f 'bind-method!) - (cons _%L25201%_ + (cons _%L25300%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25153%_ + (cons _%L25252%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L25231%_ (cons _%L25315%_ '()))))))))) + (cons _%L25330%_ (cons _%L25414%_ '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2530125312%_)))) - (_%g2529925362%_ _%rebind?25183%_))) - _%g2527325284%_)))) + _%g2540025411%_)))) + (_%g2539825461%_ _%rebind?25282%_))) + _%g2537225383%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2527125366%_ - (_%wrap25049%_ + (_%g2537025465%_ + (_%wrap25148%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L25231%_ + (cons _%L25330%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let-syntax) - (cons (cons (cons _%L25259%_ + (cons (cons (cons _%L25358%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -2299,13 +2299,13 @@ (cons (cons (gx#datum->syntax '#f 'call-next-method) - (cons _%L25201%_ + (cons _%L25300%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'obj) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25153%_ '())) + (cons _%L25252%_ '())) (cons (gx#datum->syntax '#f 'arg) (cons (gx#datum->syntax '#f '...) '())))))) @@ -2315,150 +2315,150 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _%L25151%_ '()))) + (cons _%L25250%_ '()))) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2524525256%_)))) - (_%g2524325370%_ + _%g2534425355%_)))) + (_%g2534225469%_ (gx#stx-identifier - _%L25152%_ + _%L25251%_ '@next-method)))) - _%g2521725228%_)))) - (_%g2521525374%_ + _%g2531625327%_)))) + (_%g2531425473%_ (gx#stx-identifier - _%L25152%_ - _%L25152%_ + _%L25251%_ + _%L25251%_ '"::" - _%L25153%_)))) - _%g2518725198%_)))) + _%L25252%_)))) + _%g2528625297%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2518525378%_ - (let ((__obj27026 - _%klass25180%_)) + (_%g2528425477%_ + (let ((__obj27125 + _%klass25279%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27026 + __obj27125 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27026 + __obj27125 '12 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27026 + __obj27125 'type-descriptor))))) - (if (gx#identifier? _%L25153%_) + (if (gx#identifier? _%L25252%_) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L25152%_)) + _%L25251%_)) (gx#raise-syntax-error '#f '"bad syntax; illegal method options" - _%stx25046%_) + _%stx25145%_) (gx#raise-syntax-error '#f '"bad syntax; expected type identifier" - _%stx25046%_ - _%L25152%_)) + _%stx25145%_ + _%L25251%_)) (gx#raise-syntax-error '#f '"bad syntax; expected method identifier" - _%stx25046%_ - _%L25153%_)))) - _%tl2507625146%_ - _%hd2507525143%_ - _%hd2507225133%_ - _%hd2506925123%_))) - (_%g2505325082%_ _%g2505425086%_)) - (_%g2505325082%_ _%g2505425086%_)))) - (_%g2505325082%_ _%g2505425086%_)))) - (_%g2505325082%_ _%g2505425086%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2505325082%_ - _%g2505425086%_)) - (_%g2505325082%_ - _%g2505425086%_)))) - (_%g2505325082%_ _%g2505425086%_)))) - (_%g2505325082%_ _%g2505425086%_)))) - (_%g2505325082%_ _%g2505425086%_))))) - (_%g2505225388%_ _%stx25046%_))))) + _%stx25145%_ + _%L25252%_)))) + _%tl2517525245%_ + _%hd2517425242%_ + _%hd2517125232%_ + _%hd2516825222%_))) + (_%g2515225181%_ _%g2515325185%_)) + (_%g2515225181%_ _%g2515325185%_)))) + (_%g2515225181%_ _%g2515325185%_)))) + (_%g2515225181%_ _%g2515325185%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2515225181%_ + _%g2515325185%_)) + (_%g2515225181%_ + _%g2515325185%_)))) + (_%g2515225181%_ _%g2515325185%_)))) + (_%g2515225181%_ _%g2515325185%_)))) + (_%g2515225181%_ _%g2515325185%_))))) + (_%g2515125487%_ _%stx25145%_))))) (define |gerbil/core/mop~MOP-4[:0:]#@method| - (lambda (_%stx25398%_) - (letrec ((_%dotted-identifier?25401%_ - (lambda (_%id26034%_) - (if (gx#identifier? _%id26034%_) - (let ((_%id-str26037%_ - (symbol->string (gx#stx-e _%id26034%_)))) - (if (string-index _%id-str26037%_ '#\.) - (let* ((_%split26040%_ - (string-split _%id-str26037%_ '#\.)) - (__tmp27236 (length _%split26040%_))) + (lambda (_%stx25497%_) + (letrec ((_%dotted-identifier?25500%_ + (lambda (_%id26133%_) + (if (gx#identifier? _%id26133%_) + (let ((_%id-str26136%_ + (symbol->string (gx#stx-e _%id26133%_)))) + (if (string-index _%id-str26136%_ '#\.) + (let* ((_%split26139%_ + (string-split _%id-str26136%_ '#\.)) + (__tmp27335 (length _%split26139%_))) (declare (not safe)) - (##fx= __tmp27236 '2)) + (##fx= __tmp27335 '2)) '#f)) '#f))) - (_%split-dotted25403%_ - (lambda (_%id26023%_) - (let* ((_%id-str26026%_ - (symbol->string (gx#stx-e _%id26023%_))) - (_%split26029%_ - (string-split _%id-str26026%_ '#\.))) + (_%split-dotted25502%_ + (lambda (_%id26122%_) + (let* ((_%id-str26125%_ + (symbol->string (gx#stx-e _%id26122%_))) + (_%split26128%_ + (string-split _%id-str26125%_ '#\.))) (cons (gx#stx-identifier - _%id26023%_ - (car _%split26029%_)) + _%id26122%_ + (car _%split26128%_)) (cons (gx#stx-identifier - _%id26023%_ - (cadr _%split26029%_)) + _%id26122%_ + (cadr _%split26128%_)) '())))))) - (let* ((_%__stx2676526766%_ _%stx25398%_) - (_%g2540825495%_ + (let* ((_%__stx2686426865%_ _%stx25497%_) + (_%g2550725594%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2676526766%_)))) - (let ((_%__kont2676826769%_ - (lambda (_%L25916%_ _%L25918%_ _%L25919%_) - (let* ((_%g2594725962%_ - (lambda (_%g2594825958%_) + _%__stx2686426865%_)))) + (let ((_%__kont2686726868%_ + (lambda (_%L26015%_ _%L26017%_ _%L26018%_) + (let* ((_%g2604626061%_ + (lambda (_%g2604726057%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2594825958%_))) - (_%g2594626015%_ - (lambda (_%g2594825966%_) - (if (gx#stx-pair? _%g2594825966%_) - (let ((_%e2595125969%_ - (gx#syntax-e _%g2594825966%_))) - (let ((_%hd2595225973%_ + _%g2604726057%_))) + (_%g2604526114%_ + (lambda (_%g2604726065%_) + (if (gx#stx-pair? _%g2604726065%_) + (let ((_%e2605026068%_ + (gx#syntax-e _%g2604726065%_))) + (let ((_%hd2605126072%_ (let () (declare (not safe)) - (##car _%e2595125969%_))) - (_%tl2595325976%_ + (##car _%e2605026068%_))) + (_%tl2605226075%_ (let () (declare (not safe)) - (##cdr _%e2595125969%_)))) - (if (gx#stx-pair? _%tl2595325976%_) - (let ((_%e2595425979%_ + (##cdr _%e2605026068%_)))) + (if (gx#stx-pair? _%tl2605226075%_) + (let ((_%e2605326078%_ (gx#syntax-e - _%tl2595325976%_))) - (let ((_%hd2595525983%_ + _%tl2605226075%_))) + (let ((_%hd2605426082%_ (let () (declare (not safe)) - (##car _%e2595425979%_))) - (_%tl2595625986%_ + (##car _%e2605326078%_))) + (_%tl2605526085%_ (let () (declare (not safe)) - (##cdr _%e2595425979%_)))) + (##cdr _%e2605326078%_)))) (if (gx#stx-null? - _%tl2595625986%_) - ((lambda (_%L25989%_ - _%L25991%_) + _%tl2605526085%_) + ((lambda (_%L26088%_ + _%L26090%_) (cons (gx#datum->syntax '#f 'apply) @@ -2466,1417 +2466,1417 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'call-method) - (cons _%L25991%_ + (cons _%L26090%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25989%_ '())) + (cons _%L26088%_ '())) (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2600626009%_ + (foldr (lambda (_%g2610526108%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2600726012%_) - (cons _%g2600626009%_ _%g2600726012%_)) + _%g2610626111%_) + (cons _%g2610526108%_ _%g2610626111%_)) '() - _%L25918%_)) + _%L26017%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd2595525983%_ - _%hd2595225973%_) - (_%g2594725962%_ - _%g2594825966%_)))) - (_%g2594725962%_ _%g2594825966%_)))) - (_%g2594725962%_ _%g2594825966%_))))) - (_%g2594626015%_ (_%split-dotted25403%_ _%L25919%_))))) - (_%__kont2677226773%_ - (lambda (_%L25758%_ _%L25760%_) - (let* ((_%g2577725792%_ - (lambda (_%g2577825788%_) + _%hd2605426082%_ + _%hd2605126072%_) + (_%g2604626061%_ + _%g2604726065%_)))) + (_%g2604626061%_ _%g2604726065%_)))) + (_%g2604626061%_ _%g2604726065%_))))) + (_%g2604526114%_ (_%split-dotted25502%_ _%L26018%_))))) + (_%__kont2687126872%_ + (lambda (_%L25857%_ _%L25859%_) + (let* ((_%g2587625891%_ + (lambda (_%g2587725887%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2577825788%_))) - (_%g2577625845%_ - (lambda (_%g2577825796%_) - (if (gx#stx-pair? _%g2577825796%_) - (let ((_%e2578125799%_ - (gx#syntax-e _%g2577825796%_))) - (let ((_%hd2578225803%_ + _%g2587725887%_))) + (_%g2587525944%_ + (lambda (_%g2587725895%_) + (if (gx#stx-pair? _%g2587725895%_) + (let ((_%e2588025898%_ + (gx#syntax-e _%g2587725895%_))) + (let ((_%hd2588125902%_ (let () (declare (not safe)) - (##car _%e2578125799%_))) - (_%tl2578325806%_ + (##car _%e2588025898%_))) + (_%tl2588225905%_ (let () (declare (not safe)) - (##cdr _%e2578125799%_)))) - (if (gx#stx-pair? _%tl2578325806%_) - (let ((_%e2578425809%_ + (##cdr _%e2588025898%_)))) + (if (gx#stx-pair? _%tl2588225905%_) + (let ((_%e2588325908%_ (gx#syntax-e - _%tl2578325806%_))) - (let ((_%hd2578525813%_ + _%tl2588225905%_))) + (let ((_%hd2588425912%_ (let () (declare (not safe)) - (##car _%e2578425809%_))) - (_%tl2578625816%_ + (##car _%e2588325908%_))) + (_%tl2588525915%_ (let () (declare (not safe)) - (##cdr _%e2578425809%_)))) + (##cdr _%e2588325908%_)))) (if (gx#stx-null? - _%tl2578625816%_) - ((lambda (_%L25819%_ - _%L25821%_) + _%tl2588525915%_) + ((lambda (_%L25918%_ + _%L25920%_) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L25821%_ + (cons _%L25920%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25819%_ '())) - (foldr (lambda (_%g2583625839%_ - _%g2583725842%_) - (cons _%g2583625839%_ - _%g2583725842%_)) + (cons _%L25918%_ '())) + (foldr (lambda (_%g2593525938%_ + _%g2593625941%_) + (cons _%g2593525938%_ + _%g2593625941%_)) '() - _%L25758%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd2578525813%_ - _%hd2578225803%_) - (_%g2577725792%_ - _%g2577825796%_)))) - (_%g2577725792%_ _%g2577825796%_)))) - (_%g2577725792%_ _%g2577825796%_))))) - (_%g2577625845%_ (_%split-dotted25403%_ _%L25760%_))))) - (_%__kont2677626777%_ - (lambda (_%L25662%_ _%L25664%_ _%L25665%_) + _%L25857%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd2588425912%_ + _%hd2588125902%_) + (_%g2587625891%_ + _%g2587725895%_)))) + (_%g2587625891%_ _%g2587725895%_)))) + (_%g2587625891%_ _%g2587725895%_))))) + (_%g2587525944%_ (_%split-dotted25502%_ _%L25859%_))))) + (_%__kont2687526876%_ + (lambda (_%L25761%_ _%L25763%_ _%L25764%_) (cons (gx#datum->syntax '#f 'apply) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L25664%_ + (cons _%L25763%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25665%_ '())) + (cons _%L25764%_ '())) (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2569225695%_ + (foldr (lambda (_%g2579125794%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2569325698%_) - (cons _%g2569225695%_ _%g2569325698%_)) + _%g2579225797%_) + (cons _%g2579125794%_ _%g2579225797%_)) '() - _%L25662%_)) + _%L25761%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (_%__kont2678026781%_ - (lambda (_%L25562%_ _%L25564%_ _%L25565%_) + (_%__kont2687926880%_ + (lambda (_%L25661%_ _%L25663%_ _%L25664%_) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L25564%_ + (cons _%L25663%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25565%_ '())) - (foldr (lambda (_%g2558625589%_ - _%g2558725592%_) - (cons _%g2558625589%_ - _%g2558725592%_)) + (cons _%L25664%_ '())) + (foldr (lambda (_%g2568525688%_ + _%g2568625691%_) + (cons _%g2568525688%_ + _%g2568625691%_)) '() - _%L25562%_))))))) - (let* ((_%__match2688426885%_ - (lambda (_%e2547225502%_ - _%hd2547325506%_ - _%tl2547425509%_ - _%e2547525512%_ - _%hd2547625516%_ - _%tl2547725519%_ - _%e2547825522%_ - _%hd2547925526%_ - _%tl2548025529%_ - _%__splice2678226783%_ - _%target2548125532%_ - _%tl2548325535%_) - (letrec ((_%loop2548425538%_ - (lambda (_%hd2548225542%_ _%arg2548825545%_) - (if (gx#stx-pair? _%hd2548225542%_) - (let ((_%e2548525548%_ - (gx#syntax-e _%hd2548225542%_))) - (let ((_%lp-tl2548725555%_ + _%L25661%_))))))) + (let* ((_%__match2698326984%_ + (lambda (_%e2557125601%_ + _%hd2557225605%_ + _%tl2557325608%_ + _%e2557425611%_ + _%hd2557525615%_ + _%tl2557625618%_ + _%e2557725621%_ + _%hd2557825625%_ + _%tl2557925628%_ + _%__splice2688126882%_ + _%target2558025631%_ + _%tl2558225634%_) + (letrec ((_%loop2558325637%_ + (lambda (_%hd2558125641%_ _%arg2558725644%_) + (if (gx#stx-pair? _%hd2558125641%_) + (let ((_%e2558425647%_ + (gx#syntax-e _%hd2558125641%_))) + (let ((_%lp-tl2558625654%_ (let () (declare (not safe)) - (##cdr _%e2548525548%_))) - (_%lp-hd2548625552%_ + (##cdr _%e2558425647%_))) + (_%lp-hd2558525651%_ (let () (declare (not safe)) - (##car _%e2548525548%_)))) - (_%loop2548425538%_ - _%lp-tl2548725555%_ - (cons _%lp-hd2548625552%_ - _%arg2548825545%_)))) - (let ((_%arg2548925558%_ - (reverse _%arg2548825545%_))) - (let ((_%L25562%_ _%arg2548925558%_) - (_%L25564%_ _%hd2547925526%_) - (_%L25565%_ _%hd2547625516%_)) - (if (gx#identifier? _%L25565%_) - (_%__kont2678026781%_ - _%L25562%_ - _%L25564%_ - _%L25565%_) + (##car _%e2558425647%_)))) + (_%loop2558325637%_ + _%lp-tl2558625654%_ + (cons _%lp-hd2558525651%_ + _%arg2558725644%_)))) + (let ((_%arg2558825657%_ + (reverse _%arg2558725644%_))) + (let ((_%L25661%_ _%arg2558825657%_) + (_%L25663%_ _%hd2557825625%_) + (_%L25664%_ _%hd2557525615%_)) + (if (gx#identifier? _%L25664%_) + (_%__kont2687926880%_ + _%L25661%_ + _%L25663%_ + _%L25664%_) (let () (declare (not safe)) - (_%g2540825495%_))))))))) - (_%loop2548425538%_ _%target2548125532%_ '())))) - (_%__match2685826859%_ - (lambda (_%e2545125602%_ - _%hd2545225606%_ - _%tl2545325609%_ - _%e2545425612%_ - _%hd2545525616%_ - _%tl2545625619%_ - _%e2545725622%_ - _%hd2545825626%_ - _%tl2545925629%_ - _%__splice2677826779%_ - _%target2546025632%_ - _%tl2546225635%_) - (letrec ((_%loop2546325638%_ - (lambda (_%hd2546125642%_ _%arg2546725645%_) - (if (gx#stx-pair? _%hd2546125642%_) - (let ((_%e2546425648%_ - (gx#syntax-e _%hd2546125642%_))) - (let ((_%lp-tl2546625655%_ + (_%g2550725594%_))))))))) + (_%loop2558325637%_ _%target2558025631%_ '())))) + (_%__match2695726958%_ + (lambda (_%e2555025701%_ + _%hd2555125705%_ + _%tl2555225708%_ + _%e2555325711%_ + _%hd2555425715%_ + _%tl2555525718%_ + _%e2555625721%_ + _%hd2555725725%_ + _%tl2555825728%_ + _%__splice2687726878%_ + _%target2555925731%_ + _%tl2556125734%_) + (letrec ((_%loop2556225737%_ + (lambda (_%hd2556025741%_ _%arg2556625744%_) + (if (gx#stx-pair? _%hd2556025741%_) + (let ((_%e2556325747%_ + (gx#syntax-e _%hd2556025741%_))) + (let ((_%lp-tl2556525754%_ (let () (declare (not safe)) - (##cdr _%e2546425648%_))) - (_%lp-hd2546525652%_ + (##cdr _%e2556325747%_))) + (_%lp-hd2556425751%_ (let () (declare (not safe)) - (##car _%e2546425648%_)))) - (_%loop2546325638%_ - _%lp-tl2546625655%_ - (cons _%lp-hd2546525652%_ - _%arg2546725645%_)))) - (let ((_%arg2546825658%_ - (reverse _%arg2546725645%_))) - (let ((_%L25662%_ _%arg2546825658%_) - (_%L25664%_ _%hd2545825626%_) - (_%L25665%_ _%hd2545525616%_)) + (##car _%e2556325747%_)))) + (_%loop2556225737%_ + _%lp-tl2556525754%_ + (cons _%lp-hd2556425751%_ + _%arg2556625744%_)))) + (let ((_%arg2556725757%_ + (reverse _%arg2556625744%_))) + (let ((_%L25761%_ _%arg2556725757%_) + (_%L25763%_ _%hd2555725725%_) + (_%L25764%_ _%hd2555425715%_)) (if (and (gx#identifier? - _%L25665%_) + _%L25764%_) (gx#stx-ormap gx#ellipsis? - (foldr (lambda (_%g2568425687%_ + (foldr (lambda (_%g2578325786%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2568525690%_) - (cons _%g2568425687%_ _%g2568525690%_)) + _%g2578425789%_) + (cons _%g2578325786%_ _%g2578425789%_)) '() - _%L25662%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2677626777%_ - _%L25662%_ - _%L25664%_ - _%L25665%_) - (_%__match2688426885%_ - _%e2545125602%_ - _%hd2545225606%_ - _%tl2545325609%_ - _%e2545425612%_ - _%hd2545525616%_ - _%tl2545625619%_ - _%e2545725622%_ - _%hd2545825626%_ - _%tl2545925629%_ - _%__splice2677826779%_ - _%target2546025632%_ - _%tl2546225635%_)))))))) - (_%loop2546325638%_ _%target2546025632%_ '())))) - (_%__match2684426845%_ - (lambda (_%e2545125602%_ - _%hd2545225606%_ - _%tl2545325609%_ - _%e2545425612%_ - _%hd2545525616%_ - _%tl2545625619%_) - (if (gx#stx-pair? _%tl2545625619%_) - (let ((_%e2545725622%_ - (gx#syntax-e _%tl2545625619%_))) - (let ((_%tl2545925629%_ + _%L25761%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont2687526876%_ + _%L25761%_ + _%L25763%_ + _%L25764%_) + (_%__match2698326984%_ + _%e2555025701%_ + _%hd2555125705%_ + _%tl2555225708%_ + _%e2555325711%_ + _%hd2555425715%_ + _%tl2555525718%_ + _%e2555625721%_ + _%hd2555725725%_ + _%tl2555825728%_ + _%__splice2687726878%_ + _%target2555925731%_ + _%tl2556125734%_)))))))) + (_%loop2556225737%_ _%target2555925731%_ '())))) + (_%__match2694326944%_ + (lambda (_%e2555025701%_ + _%hd2555125705%_ + _%tl2555225708%_ + _%e2555325711%_ + _%hd2555425715%_ + _%tl2555525718%_) + (if (gx#stx-pair? _%tl2555525718%_) + (let ((_%e2555625721%_ + (gx#syntax-e _%tl2555525718%_))) + (let ((_%tl2555825728%_ (let () (declare (not safe)) - (##cdr _%e2545725622%_))) - (_%hd2545825626%_ + (##cdr _%e2555625721%_))) + (_%hd2555725725%_ (let () (declare (not safe)) - (##car _%e2545725622%_)))) - (if (gx#stx-pair/null? _%tl2545925629%_) - (let ((_%__splice2677826779%_ + (##car _%e2555625721%_)))) + (if (gx#stx-pair/null? _%tl2555825728%_) + (let ((_%__splice2687726878%_ (gx#syntax-split-splice - _%tl2545925629%_ + _%tl2555825728%_ '0))) - (let ((_%tl2546225635%_ + (let ((_%tl2556125734%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2687726878%_ '1))) - (_%target2546025632%_ + (_%target2555925731%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2687726878%_ '0)))) - (if (gx#stx-null? _%tl2546225635%_) - (_%__match2685826859%_ - _%e2545125602%_ - _%hd2545225606%_ - _%tl2545325609%_ - _%e2545425612%_ - _%hd2545525616%_ - _%tl2545625619%_ - _%e2545725622%_ - _%hd2545825626%_ - _%tl2545925629%_ - _%__splice2677826779%_ - _%target2546025632%_ - _%tl2546225635%_) + (if (gx#stx-null? _%tl2556125734%_) + (_%__match2695726958%_ + _%e2555025701%_ + _%hd2555125705%_ + _%tl2555225708%_ + _%e2555325711%_ + _%hd2555425715%_ + _%tl2555525718%_ + _%e2555625721%_ + _%hd2555725725%_ + _%tl2555825728%_ + _%__splice2687726878%_ + _%target2555925731%_ + _%tl2556125734%_) (let () (declare (not safe)) - (_%g2540825495%_))))) + (_%g2550725594%_))))) (let () (declare (not safe)) - (_%g2540825495%_))))) - (let () (declare (not safe)) (_%g2540825495%_))))) - (_%__match2683226833%_ - (lambda (_%e2543325708%_ - _%hd2543425712%_ - _%tl2543525715%_ - _%e2543625718%_ - _%hd2543725722%_ - _%tl2543825725%_ - _%__splice2677426775%_ - _%target2543925728%_ - _%tl2544125731%_) - (letrec ((_%loop2544225734%_ - (lambda (_%hd2544025738%_ _%arg2544625741%_) - (if (gx#stx-pair? _%hd2544025738%_) - (let ((_%e2544325744%_ - (gx#syntax-e _%hd2544025738%_))) - (let ((_%lp-tl2544525751%_ + (_%g2550725594%_))))) + (let () (declare (not safe)) (_%g2550725594%_))))) + (_%__match2693126932%_ + (lambda (_%e2553225807%_ + _%hd2553325811%_ + _%tl2553425814%_ + _%e2553525817%_ + _%hd2553625821%_ + _%tl2553725824%_ + _%__splice2687326874%_ + _%target2553825827%_ + _%tl2554025830%_) + (letrec ((_%loop2554125833%_ + (lambda (_%hd2553925837%_ _%arg2554525840%_) + (if (gx#stx-pair? _%hd2553925837%_) + (let ((_%e2554225843%_ + (gx#syntax-e _%hd2553925837%_))) + (let ((_%lp-tl2554425850%_ (let () (declare (not safe)) - (##cdr _%e2544325744%_))) - (_%lp-hd2544425748%_ + (##cdr _%e2554225843%_))) + (_%lp-hd2554325847%_ (let () (declare (not safe)) - (##car _%e2544325744%_)))) - (_%loop2544225734%_ - _%lp-tl2544525751%_ - (cons _%lp-hd2544425748%_ - _%arg2544625741%_)))) - (let ((_%arg2544725754%_ - (reverse _%arg2544625741%_))) - (let ((_%L25758%_ _%arg2544725754%_) - (_%L25760%_ _%hd2543725722%_)) - (if (_%dotted-identifier?25401%_ - _%L25760%_) - (_%__kont2677226773%_ - _%L25758%_ - _%L25760%_) - (_%__match2684426845%_ - _%e2543325708%_ - _%hd2543425712%_ - _%tl2543525715%_ - _%e2543625718%_ - _%hd2543725722%_ - _%tl2543825725%_)))))))) - (_%loop2544225734%_ _%target2543925728%_ '())))) - (_%__match2683026831%_ - (lambda (_%e2543325708%_ - _%hd2543425712%_ - _%tl2543525715%_ - _%e2543625718%_ - _%hd2543725722%_ - _%tl2543825725%_ - _%__splice2677426775%_ - _%target2543925728%_ - _%tl2544125731%_) - (if (gx#stx-null? _%tl2544125731%_) - (_%__match2683226833%_ - _%e2543325708%_ - _%hd2543425712%_ - _%tl2543525715%_ - _%e2543625718%_ - _%hd2543725722%_ - _%tl2543825725%_ - _%__splice2677426775%_ - _%target2543925728%_ - _%tl2544125731%_) - (if (gx#stx-pair? _%tl2543825725%_) - (let ((_%e2545725622%_ - (gx#syntax-e _%tl2543825725%_))) - (let ((_%tl2545925629%_ + (##car _%e2554225843%_)))) + (_%loop2554125833%_ + _%lp-tl2554425850%_ + (cons _%lp-hd2554325847%_ + _%arg2554525840%_)))) + (let ((_%arg2554625853%_ + (reverse _%arg2554525840%_))) + (let ((_%L25857%_ _%arg2554625853%_) + (_%L25859%_ _%hd2553625821%_)) + (if (_%dotted-identifier?25500%_ + _%L25859%_) + (_%__kont2687126872%_ + _%L25857%_ + _%L25859%_) + (_%__match2694326944%_ + _%e2553225807%_ + _%hd2553325811%_ + _%tl2553425814%_ + _%e2553525817%_ + _%hd2553625821%_ + _%tl2553725824%_)))))))) + (_%loop2554125833%_ _%target2553825827%_ '())))) + (_%__match2692926930%_ + (lambda (_%e2553225807%_ + _%hd2553325811%_ + _%tl2553425814%_ + _%e2553525817%_ + _%hd2553625821%_ + _%tl2553725824%_ + _%__splice2687326874%_ + _%target2553825827%_ + _%tl2554025830%_) + (if (gx#stx-null? _%tl2554025830%_) + (_%__match2693126932%_ + _%e2553225807%_ + _%hd2553325811%_ + _%tl2553425814%_ + _%e2553525817%_ + _%hd2553625821%_ + _%tl2553725824%_ + _%__splice2687326874%_ + _%target2553825827%_ + _%tl2554025830%_) + (if (gx#stx-pair? _%tl2553725824%_) + (let ((_%e2555625721%_ + (gx#syntax-e _%tl2553725824%_))) + (let ((_%tl2555825728%_ (let () (declare (not safe)) - (##cdr _%e2545725622%_))) - (_%hd2545825626%_ + (##cdr _%e2555625721%_))) + (_%hd2555725725%_ (let () (declare (not safe)) - (##car _%e2545725622%_)))) - (if (gx#stx-pair/null? _%tl2545925629%_) - (let ((_%__splice2677826779%_ + (##car _%e2555625721%_)))) + (if (gx#stx-pair/null? _%tl2555825728%_) + (let ((_%__splice2687726878%_ (gx#syntax-split-splice - _%tl2545925629%_ + _%tl2555825728%_ '0))) - (let ((_%tl2546225635%_ + (let ((_%tl2556125734%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2687726878%_ '1))) - (_%target2546025632%_ + (_%target2555925731%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2687726878%_ '0)))) - (if (gx#stx-null? _%tl2546225635%_) - (_%__match2685826859%_ - _%e2543325708%_ - _%hd2543425712%_ - _%tl2543525715%_ - _%e2543625718%_ - _%hd2543725722%_ - _%tl2543825725%_ - _%e2545725622%_ - _%hd2545825626%_ - _%tl2545925629%_ - _%__splice2677826779%_ - _%target2546025632%_ - _%tl2546225635%_) + (if (gx#stx-null? _%tl2556125734%_) + (_%__match2695726958%_ + _%e2553225807%_ + _%hd2553325811%_ + _%tl2553425814%_ + _%e2553525817%_ + _%hd2553625821%_ + _%tl2553725824%_ + _%e2555625721%_ + _%hd2555725725%_ + _%tl2555825728%_ + _%__splice2687726878%_ + _%target2555925731%_ + _%tl2556125734%_) (let () (declare (not safe)) - (_%g2540825495%_))))) + (_%g2550725594%_))))) (let () (declare (not safe)) - (_%g2540825495%_))))) + (_%g2550725594%_))))) (let () (declare (not safe)) - (_%g2540825495%_)))))) - (_%__match2681226813%_ - (lambda (_%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%__splice2677026771%_ - _%target2541925876%_ - _%tl2542125879%_ - _%e2542825882%_ - _%hd2542925886%_ - _%tl2543025889%_) - (letrec ((_%loop2542225892%_ - (lambda (_%hd2542025896%_ _%arg2542625899%_) - (if (gx#stx-pair? _%hd2542025896%_) - (let ((_%e2542325902%_ - (gx#syntax-e _%hd2542025896%_))) - (let ((_%lp-tl2542525909%_ + (_%g2550725594%_)))))) + (_%__match2691126912%_ + (lambda (_%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%__splice2686926870%_ + _%target2551825975%_ + _%tl2552025978%_ + _%e2552725981%_ + _%hd2552825985%_ + _%tl2552925988%_) + (letrec ((_%loop2552125991%_ + (lambda (_%hd2551925995%_ _%arg2552525998%_) + (if (gx#stx-pair? _%hd2551925995%_) + (let ((_%e2552226001%_ + (gx#syntax-e _%hd2551925995%_))) + (let ((_%lp-tl2552426008%_ (let () (declare (not safe)) - (##cdr _%e2542325902%_))) - (_%lp-hd2542425906%_ + (##cdr _%e2552226001%_))) + (_%lp-hd2552326005%_ (let () (declare (not safe)) - (##car _%e2542325902%_)))) - (_%loop2542225892%_ - _%lp-tl2542525909%_ - (cons _%lp-hd2542425906%_ - _%arg2542625899%_)))) - (let ((_%arg2542725912%_ - (reverse _%arg2542625899%_))) - (let ((_%L25916%_ _%hd2542925886%_) - (_%L25918%_ _%arg2542725912%_) - (_%L25919%_ _%hd2541725870%_)) - (if (and (_%dotted-identifier?25401%_ - _%L25919%_) + (##car _%e2552226001%_)))) + (_%loop2552125991%_ + _%lp-tl2552426008%_ + (cons _%lp-hd2552326005%_ + _%arg2552525998%_)))) + (let ((_%arg2552626011%_ + (reverse _%arg2552525998%_))) + (let ((_%L26015%_ _%hd2552825985%_) + (_%L26017%_ _%arg2552626011%_) + (_%L26018%_ _%hd2551625969%_)) + (if (and (_%dotted-identifier?25500%_ + _%L26018%_) (gx#stx-ormap gx#ellipsis? - (foldr (lambda (_%g2593825941%_ + (foldr (lambda (_%g2603726040%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2593925944%_) - (cons _%g2593825941%_ _%g2593925944%_)) + _%g2603826043%_) + (cons _%g2603726040%_ _%g2603826043%_)) '() - _%L25918%_))) + _%L26017%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2676826769%_ - _%L25916%_ - _%L25918%_ - _%L25919%_) - (let ((_%__splice2677426775%_ + (_%__kont2686726868%_ + _%L26015%_ + _%L26017%_ + _%L26018%_) + (let ((_%__splice2687326874%_ (gx#syntax-split-splice - _%tl2541825873%_ + _%tl2551725972%_ '0))) - (let ((_%tl2544125731%_ + (let ((_%tl2554025830%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677426775%_ + _%__splice2687326874%_ '1))) - (_%target2543925728%_ + (_%target2553825827%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677426775%_ + _%__splice2687326874%_ '0)))) - (_%__match2683026831%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%__splice2677426775%_ - _%target2543925728%_ - _%tl2544125731%_)))))))))) - (_%loop2542225892%_ _%target2541925876%_ '()))))) - (if (gx#stx-pair? _%__stx2676526766%_) - (let ((_%e2541325856%_ (gx#syntax-e _%__stx2676526766%_))) - (let ((_%tl2541525863%_ + (_%__match2692926930%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%__splice2687326874%_ + _%target2553825827%_ + _%tl2554025830%_)))))))))) + (_%loop2552125991%_ _%target2551825975%_ '()))))) + (if (gx#stx-pair? _%__stx2686426865%_) + (let ((_%e2551225955%_ (gx#syntax-e _%__stx2686426865%_))) + (let ((_%tl2551425962%_ (let () (declare (not safe)) - (##cdr _%e2541325856%_))) - (_%hd2541425860%_ + (##cdr _%e2551225955%_))) + (_%hd2551325959%_ (let () (declare (not safe)) - (##car _%e2541325856%_)))) - (if (gx#stx-pair? _%tl2541525863%_) - (let ((_%e2541625866%_ - (gx#syntax-e _%tl2541525863%_))) - (let ((_%tl2541825873%_ + (##car _%e2551225955%_)))) + (if (gx#stx-pair? _%tl2551425962%_) + (let ((_%e2551525965%_ + (gx#syntax-e _%tl2551425962%_))) + (let ((_%tl2551725972%_ (let () (declare (not safe)) - (##cdr _%e2541625866%_))) - (_%hd2541725870%_ + (##cdr _%e2551525965%_))) + (_%hd2551625969%_ (let () (declare (not safe)) - (##car _%e2541625866%_)))) - (if (gx#stx-pair/null? _%tl2541825873%_) - (if (let ((__tmp27237 + (##car _%e2551525965%_)))) + (if (gx#stx-pair/null? _%tl2551725972%_) + (if (let ((__tmp27336 (gx#stx-length - _%tl2541825873%_))) + _%tl2551725972%_))) (declare (not safe)) - (##fx>= __tmp27237 '1)) - (let ((_%__splice2677026771%_ + (##fx>= __tmp27336 '1)) + (let ((_%__splice2686926870%_ (gx#syntax-split-splice - _%tl2541825873%_ + _%tl2551725972%_ '1))) - (let ((_%tl2542125879%_ + (let ((_%tl2552025978%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677026771%_ + _%__splice2686926870%_ '1))) - (_%target2541925876%_ + (_%target2551825975%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677026771%_ + _%__splice2686926870%_ '0)))) - (if (gx#stx-pair? _%tl2542125879%_) - (let ((_%e2542825882%_ + (if (gx#stx-pair? _%tl2552025978%_) + (let ((_%e2552725981%_ (gx#syntax-e - _%tl2542125879%_))) - (let ((_%tl2543025889%_ + _%tl2552025978%_))) + (let ((_%tl2552925988%_ (let () (declare (not safe)) - (##cdr _%e2542825882%_))) - (_%hd2542925886%_ + (##cdr _%e2552725981%_))) + (_%hd2552825985%_ (let () (declare (not safe)) - (##car _%e2542825882%_)))) + (##car _%e2552725981%_)))) (if (gx#stx-null? - _%tl2543025889%_) - (_%__match2681226813%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%__splice2677026771%_ - _%target2541925876%_ - _%tl2542125879%_ - _%e2542825882%_ - _%hd2542925886%_ - _%tl2543025889%_) - (let ((_%__splice2677426775%_ + _%tl2552925988%_) + (_%__match2691126912%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%__splice2686926870%_ + _%target2551825975%_ + _%tl2552025978%_ + _%e2552725981%_ + _%hd2552825985%_ + _%tl2552925988%_) + (let ((_%__splice2687326874%_ (gx#syntax-split-splice - _%tl2541825873%_ + _%tl2551725972%_ '0))) - (let ((_%tl2544125731%_ + (let ((_%tl2554025830%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice2677426775%_ '1))) - (_%target2543925728%_ + (##vector-ref _%__splice2687326874%_ '1))) + (_%target2553825827%_ (let () (declare (not safe)) - (##vector-ref _%__splice2677426775%_ '0)))) - (if (gx#stx-null? _%tl2544125731%_) - (_%__match2683226833%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%__splice2677426775%_ - _%target2543925728%_ - _%tl2544125731%_) - (if (gx#stx-pair? _%tl2541825873%_) - (let ((_%e2545725622%_ - (gx#syntax-e _%tl2541825873%_))) - (let ((_%tl2545925629%_ + (##vector-ref _%__splice2687326874%_ '0)))) + (if (gx#stx-null? _%tl2554025830%_) + (_%__match2693126932%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%__splice2687326874%_ + _%target2553825827%_ + _%tl2554025830%_) + (if (gx#stx-pair? _%tl2551725972%_) + (let ((_%e2555625721%_ + (gx#syntax-e _%tl2551725972%_))) + (let ((_%tl2555825728%_ (let () (declare (not safe)) - (##cdr _%e2545725622%_))) - (_%hd2545825626%_ + (##cdr _%e2555625721%_))) + (_%hd2555725725%_ (let () (declare (not safe)) - (##car _%e2545725622%_)))) - (if (gx#stx-pair/null? _%tl2545925629%_) - (let ((_%__splice2677826779%_ + (##car _%e2555625721%_)))) + (if (gx#stx-pair/null? _%tl2555825728%_) + (let ((_%__splice2687726878%_ (gx#syntax-split-splice - _%tl2545925629%_ + _%tl2555825728%_ '0))) - (let ((_%tl2546225635%_ + (let ((_%tl2556125734%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2687726878%_ '1))) - (_%target2546025632%_ + (_%target2555925731%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2687726878%_ '0)))) - (if (gx#stx-null? _%tl2546225635%_) - (_%__match2685826859%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%e2545725622%_ - _%hd2545825626%_ - _%tl2545925629%_ - _%__splice2677826779%_ - _%target2546025632%_ - _%tl2546225635%_) + (if (gx#stx-null? _%tl2556125734%_) + (_%__match2695726958%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%e2555625721%_ + _%hd2555725725%_ + _%tl2555825728%_ + _%__splice2687726878%_ + _%target2555925731%_ + _%tl2556125734%_) (let () (declare (not safe)) - (_%g2540825495%_))))) + (_%g2550725594%_))))) (let () (declare (not safe)) - (_%g2540825495%_))))) + (_%g2550725594%_))))) (let () (declare (not safe)) - (_%g2540825495%_))))))))) + (_%g2550725594%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__splice2677426775%_ + (let ((_%__splice2687326874%_ (gx#syntax-split-splice - _%tl2541825873%_ + _%tl2551725972%_ '0))) - (let ((_%tl2544125731%_ + (let ((_%tl2554025830%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677426775%_ + _%__splice2687326874%_ '1))) - (_%target2543925728%_ + (_%target2553825827%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677426775%_ + _%__splice2687326874%_ '0)))) (if (gx#stx-null? - _%tl2544125731%_) - (_%__match2683226833%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%__splice2677426775%_ - _%target2543925728%_ - _%tl2544125731%_) + _%tl2554025830%_) + (_%__match2693126932%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%__splice2687326874%_ + _%target2553825827%_ + _%tl2554025830%_) (if (gx#stx-pair? - _%tl2541825873%_) - (let ((_%e2545725622%_ + _%tl2551725972%_) + (let ((_%e2555625721%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2541825873%_))) - (let ((_%tl2545925629%_ + (gx#syntax-e _%tl2551725972%_))) + (let ((_%tl2555825728%_ (let () (declare (not safe)) - (##cdr _%e2545725622%_))) - (_%hd2545825626%_ + (##cdr _%e2555625721%_))) + (_%hd2555725725%_ (let () (declare (not safe)) - (##car _%e2545725622%_)))) - (if (gx#stx-pair/null? _%tl2545925629%_) - (let ((_%__splice2677826779%_ + (##car _%e2555625721%_)))) + (if (gx#stx-pair/null? _%tl2555825728%_) + (let ((_%__splice2687726878%_ (gx#syntax-split-splice - _%tl2545925629%_ + _%tl2555825728%_ '0))) - (let ((_%tl2546225635%_ + (let ((_%tl2556125734%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2687726878%_ '1))) - (_%target2546025632%_ + (_%target2555925731%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2687726878%_ '0)))) - (if (gx#stx-null? _%tl2546225635%_) - (_%__match2685826859%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%e2545725622%_ - _%hd2545825626%_ - _%tl2545925629%_ - _%__splice2677826779%_ - _%target2546025632%_ - _%tl2546225635%_) + (if (gx#stx-null? _%tl2556125734%_) + (_%__match2695726958%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%e2555625721%_ + _%hd2555725725%_ + _%tl2555825728%_ + _%__splice2687726878%_ + _%target2555925731%_ + _%tl2556125734%_) (let () (declare (not safe)) - (_%g2540825495%_))))) - (let () (declare (not safe)) (_%g2540825495%_))))) - (let () (declare (not safe)) (_%g2540825495%_))))))))) + (_%g2550725594%_))))) + (let () (declare (not safe)) (_%g2550725594%_))))) + (let () (declare (not safe)) (_%g2550725594%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__splice2677426775%_ + (let ((_%__splice2687326874%_ (gx#syntax-split-splice - _%tl2541825873%_ + _%tl2551725972%_ '0))) - (let ((_%tl2544125731%_ + (let ((_%tl2554025830%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677426775%_ + _%__splice2687326874%_ '1))) - (_%target2543925728%_ + (_%target2553825827%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677426775%_ + _%__splice2687326874%_ '0)))) - (if (gx#stx-null? _%tl2544125731%_) - (_%__match2683226833%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%__splice2677426775%_ - _%target2543925728%_ - _%tl2544125731%_) + (if (gx#stx-null? _%tl2554025830%_) + (_%__match2693126932%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%__splice2687326874%_ + _%target2553825827%_ + _%tl2554025830%_) (if (gx#stx-pair? - _%tl2541825873%_) - (let ((_%e2545725622%_ + _%tl2551725972%_) + (let ((_%e2555625721%_ (gx#syntax-e - _%tl2541825873%_))) - (let ((_%tl2545925629%_ + _%tl2551725972%_))) + (let ((_%tl2555825728%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e2545725622%_))) - (_%hd2545825626%_ - (let () (declare (not safe)) (##car _%e2545725622%_)))) - (if (gx#stx-pair/null? _%tl2545925629%_) - (let ((_%__splice2677826779%_ - (gx#syntax-split-splice _%tl2545925629%_ '0))) - (let ((_%tl2546225635%_ + (##cdr _%e2555625721%_))) + (_%hd2555725725%_ + (let () (declare (not safe)) (##car _%e2555625721%_)))) + (if (gx#stx-pair/null? _%tl2555825728%_) + (let ((_%__splice2687726878%_ + (gx#syntax-split-splice _%tl2555825728%_ '0))) + (let ((_%tl2556125734%_ (let () (declare (not safe)) - (##vector-ref _%__splice2677826779%_ '1))) - (_%target2546025632%_ + (##vector-ref _%__splice2687726878%_ '1))) + (_%target2555925731%_ (let () (declare (not safe)) - (##vector-ref _%__splice2677826779%_ '0)))) - (if (gx#stx-null? _%tl2546225635%_) - (_%__match2685826859%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%e2545725622%_ - _%hd2545825626%_ - _%tl2545925629%_ - _%__splice2677826779%_ - _%target2546025632%_ - _%tl2546225635%_) - (let () (declare (not safe)) (_%g2540825495%_))))) - (let () (declare (not safe)) (_%g2540825495%_))))) + (##vector-ref _%__splice2687726878%_ '0)))) + (if (gx#stx-null? _%tl2556125734%_) + (_%__match2695726958%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%e2555625721%_ + _%hd2555725725%_ + _%tl2555825728%_ + _%__splice2687726878%_ + _%target2555925731%_ + _%tl2556125734%_) + (let () (declare (not safe)) (_%g2550725594%_))))) + (let () (declare (not safe)) (_%g2550725594%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g2540825495%_))))))) - (if (gx#stx-pair? _%tl2541825873%_) - (let ((_%e2545725622%_ - (gx#syntax-e _%tl2541825873%_))) - (let ((_%tl2545925629%_ + (_%g2550725594%_))))))) + (if (gx#stx-pair? _%tl2551725972%_) + (let ((_%e2555625721%_ + (gx#syntax-e _%tl2551725972%_))) + (let ((_%tl2555825728%_ (let () (declare (not safe)) - (##cdr _%e2545725622%_))) - (_%hd2545825626%_ + (##cdr _%e2555625721%_))) + (_%hd2555725725%_ (let () (declare (not safe)) - (##car _%e2545725622%_)))) + (##car _%e2555625721%_)))) (if (gx#stx-pair/null? - _%tl2545925629%_) - (let ((_%__splice2677826779%_ + _%tl2555825728%_) + (let ((_%__splice2687726878%_ (gx#syntax-split-splice - _%tl2545925629%_ + _%tl2555825728%_ '0))) - (let ((_%tl2546225635%_ + (let ((_%tl2556125734%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2687726878%_ '1))) - (_%target2546025632%_ + (_%target2555925731%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677826779%_ + _%__splice2687726878%_ '0)))) (if (gx#stx-null? - _%tl2546225635%_) - (_%__match2685826859%_ - _%e2541325856%_ - _%hd2541425860%_ - _%tl2541525863%_ - _%e2541625866%_ - _%hd2541725870%_ - _%tl2541825873%_ - _%e2545725622%_ - _%hd2545825626%_ - _%tl2545925629%_ - _%__splice2677826779%_ - _%target2546025632%_ - _%tl2546225635%_) + _%tl2556125734%_) + (_%__match2695726958%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%e2555625721%_ + _%hd2555725725%_ + _%tl2555825728%_ + _%__splice2687726878%_ + _%target2555925731%_ + _%tl2556125734%_) (let () (declare (not safe)) - (_%g2540825495%_))))) + (_%g2550725594%_))))) (let () (declare (not safe)) - (_%g2540825495%_))))) + (_%g2550725594%_))))) (let () (declare (not safe)) - (_%g2540825495%_)))))) - (let () (declare (not safe)) (_%g2540825495%_))))) - (let () (declare (not safe)) (_%g2540825495%_))))))))) + (_%g2550725594%_)))))) + (let () (declare (not safe)) (_%g2550725594%_))))) + (let () (declare (not safe)) (_%g2550725594%_))))))))) (define |gerbil/core/mop~MOP-4[:0:]#@| - (lambda (_%$stx26047%_) - (let* ((_%__stx2688726888%_ _%$stx26047%_) - (_%g2605226092%_ + (lambda (_%$stx26146%_) + (let* ((_%__stx2698626987%_ _%$stx26146%_) + (_%g2615126191%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2688726888%_)))) - (let ((_%__kont2689026891%_ - (lambda (_%L26230%_ _%L26232%_) + _%__stx2698626987%_)))) + (let ((_%__kont2698926990%_ + (lambda (_%L26329%_ _%L26331%_) (cons (gx#datum->syntax '#f 'slot-ref) - (cons _%L26232%_ + (cons _%L26331%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L26230%_ '())) + (cons _%L26329%_ '())) '()))))) - (_%__kont2689226893%_ - (lambda (_%L26159%_ _%L26161%_ _%L26162%_ _%L26163%_) - (cons _%L26163%_ - (cons (cons _%L26163%_ - (cons _%L26162%_ (cons _%L26161%_ '()))) - (foldr (lambda (_%g2618426187%_ _%g2618526190%_) - (cons _%g2618426187%_ _%g2618526190%_)) + (_%__kont2699126992%_ + (lambda (_%L26258%_ _%L26260%_ _%L26261%_ _%L26262%_) + (cons _%L26262%_ + (cons (cons _%L26262%_ + (cons _%L26261%_ (cons _%L26260%_ '()))) + (foldr (lambda (_%g2628326286%_ _%g2628426289%_) + (cons _%g2628326286%_ _%g2628426289%_)) '() - _%L26159%_)))))) - (let* ((_%__match2694226943%_ - (lambda (_%e2606926099%_ - _%hd2607026103%_ - _%tl2607126106%_ - _%e2607226109%_ - _%hd2607326113%_ - _%tl2607426116%_ - _%e2607526119%_ - _%hd2607626123%_ - _%tl2607726126%_ - _%__splice2689426895%_ - _%target2607826129%_ - _%tl2608026132%_) - (letrec ((_%loop2608126135%_ - (lambda (_%hd2607926139%_ _%rest2608526142%_) - (if (gx#stx-pair? _%hd2607926139%_) - (let ((_%e2608226145%_ - (gx#syntax-e _%hd2607926139%_))) - (let ((_%lp-tl2608426152%_ + _%L26258%_)))))) + (let* ((_%__match2704127042%_ + (lambda (_%e2616826198%_ + _%hd2616926202%_ + _%tl2617026205%_ + _%e2617126208%_ + _%hd2617226212%_ + _%tl2617326215%_ + _%e2617426218%_ + _%hd2617526222%_ + _%tl2617626225%_ + _%__splice2699326994%_ + _%target2617726228%_ + _%tl2617926231%_) + (letrec ((_%loop2618026234%_ + (lambda (_%hd2617826238%_ _%rest2618426241%_) + (if (gx#stx-pair? _%hd2617826238%_) + (let ((_%e2618126244%_ + (gx#syntax-e _%hd2617826238%_))) + (let ((_%lp-tl2618326251%_ (let () (declare (not safe)) - (##cdr _%e2608226145%_))) - (_%lp-hd2608326149%_ + (##cdr _%e2618126244%_))) + (_%lp-hd2618226248%_ (let () (declare (not safe)) - (##car _%e2608226145%_)))) - (_%loop2608126135%_ - _%lp-tl2608426152%_ - (cons _%lp-hd2608326149%_ - _%rest2608526142%_)))) - (let ((_%rest2608626155%_ - (reverse _%rest2608526142%_))) - (_%__kont2689226893%_ - _%rest2608626155%_ - _%hd2607626123%_ - _%hd2607326113%_ - _%hd2607026103%_)))))) - (_%loop2608126135%_ _%target2607826129%_ '())))) - (_%__match2691626917%_ - (lambda (_%e2605626200%_ - _%hd2605726204%_ - _%tl2605826207%_ - _%e2605926210%_ - _%hd2606026214%_ - _%tl2606126217%_ - _%e2606226220%_ - _%hd2606326224%_ - _%tl2606426227%_) - (let ((_%L26230%_ _%hd2606326224%_) - (_%L26232%_ _%hd2606026214%_)) - (if (gx#identifier? _%L26230%_) - (_%__kont2689026891%_ _%L26230%_ _%L26232%_) - (if (gx#stx-pair/null? _%tl2606426227%_) - (let ((_%__splice2689426895%_ + (##car _%e2618126244%_)))) + (_%loop2618026234%_ + _%lp-tl2618326251%_ + (cons _%lp-hd2618226248%_ + _%rest2618426241%_)))) + (let ((_%rest2618526254%_ + (reverse _%rest2618426241%_))) + (_%__kont2699126992%_ + _%rest2618526254%_ + _%hd2617526222%_ + _%hd2617226212%_ + _%hd2616926202%_)))))) + (_%loop2618026234%_ _%target2617726228%_ '())))) + (_%__match2701527016%_ + (lambda (_%e2615526299%_ + _%hd2615626303%_ + _%tl2615726306%_ + _%e2615826309%_ + _%hd2615926313%_ + _%tl2616026316%_ + _%e2616126319%_ + _%hd2616226323%_ + _%tl2616326326%_) + (let ((_%L26329%_ _%hd2616226323%_) + (_%L26331%_ _%hd2615926313%_)) + (if (gx#identifier? _%L26329%_) + (_%__kont2698926990%_ _%L26329%_ _%L26331%_) + (if (gx#stx-pair/null? _%tl2616326326%_) + (let ((_%__splice2699326994%_ (gx#syntax-split-splice - _%tl2606426227%_ + _%tl2616326326%_ '0))) - (let ((_%tl2608026132%_ + (let ((_%tl2617926231%_ (let () (declare (not safe)) (##vector-ref - _%__splice2689426895%_ + _%__splice2699326994%_ '1))) - (_%target2607826129%_ + (_%target2617726228%_ (let () (declare (not safe)) (##vector-ref - _%__splice2689426895%_ + _%__splice2699326994%_ '0)))) - (if (gx#stx-null? _%tl2608026132%_) - (_%__match2694226943%_ - _%e2605626200%_ - _%hd2605726204%_ - _%tl2605826207%_ - _%e2605926210%_ - _%hd2606026214%_ - _%tl2606126217%_ - _%e2606226220%_ - _%hd2606326224%_ - _%tl2606426227%_ - _%__splice2689426895%_ - _%target2607826129%_ - _%tl2608026132%_) + (if (gx#stx-null? _%tl2617926231%_) + (_%__match2704127042%_ + _%e2615526299%_ + _%hd2615626303%_ + _%tl2615726306%_ + _%e2615826309%_ + _%hd2615926313%_ + _%tl2616026316%_ + _%e2616126319%_ + _%hd2616226323%_ + _%tl2616326326%_ + _%__splice2699326994%_ + _%target2617726228%_ + _%tl2617926231%_) (let () (declare (not safe)) - (_%g2605226092%_))))) + (_%g2615126191%_))))) (let () (declare (not safe)) - (_%g2605226092%_)))))))) - (if (gx#stx-pair? _%__stx2688726888%_) - (let ((_%e2605626200%_ (gx#syntax-e _%__stx2688726888%_))) - (let ((_%tl2605826207%_ + (_%g2615126191%_)))))))) + (if (gx#stx-pair? _%__stx2698626987%_) + (let ((_%e2615526299%_ (gx#syntax-e _%__stx2698626987%_))) + (let ((_%tl2615726306%_ (let () (declare (not safe)) - (##cdr _%e2605626200%_))) - (_%hd2605726204%_ + (##cdr _%e2615526299%_))) + (_%hd2615626303%_ (let () (declare (not safe)) - (##car _%e2605626200%_)))) - (if (gx#stx-pair? _%tl2605826207%_) - (let ((_%e2605926210%_ - (gx#syntax-e _%tl2605826207%_))) - (let ((_%tl2606126217%_ + (##car _%e2615526299%_)))) + (if (gx#stx-pair? _%tl2615726306%_) + (let ((_%e2615826309%_ + (gx#syntax-e _%tl2615726306%_))) + (let ((_%tl2616026316%_ (let () (declare (not safe)) - (##cdr _%e2605926210%_))) - (_%hd2606026214%_ + (##cdr _%e2615826309%_))) + (_%hd2615926313%_ (let () (declare (not safe)) - (##car _%e2605926210%_)))) - (if (gx#stx-pair? _%tl2606126217%_) - (let ((_%e2606226220%_ - (gx#syntax-e _%tl2606126217%_))) - (let ((_%tl2606426227%_ + (##car _%e2615826309%_)))) + (if (gx#stx-pair? _%tl2616026316%_) + (let ((_%e2616126319%_ + (gx#syntax-e _%tl2616026316%_))) + (let ((_%tl2616326326%_ (let () (declare (not safe)) - (##cdr _%e2606226220%_))) - (_%hd2606326224%_ + (##cdr _%e2616126319%_))) + (_%hd2616226323%_ (let () (declare (not safe)) - (##car _%e2606226220%_)))) - (if (gx#stx-null? _%tl2606426227%_) - (_%__match2691626917%_ - _%e2605626200%_ - _%hd2605726204%_ - _%tl2605826207%_ - _%e2605926210%_ - _%hd2606026214%_ - _%tl2606126217%_ - _%e2606226220%_ - _%hd2606326224%_ - _%tl2606426227%_) + (##car _%e2616126319%_)))) + (if (gx#stx-null? _%tl2616326326%_) + (_%__match2701527016%_ + _%e2615526299%_ + _%hd2615626303%_ + _%tl2615726306%_ + _%e2615826309%_ + _%hd2615926313%_ + _%tl2616026316%_ + _%e2616126319%_ + _%hd2616226323%_ + _%tl2616326326%_) (if (gx#stx-pair/null? - _%tl2606426227%_) - (let ((_%__splice2689426895%_ + _%tl2616326326%_) + (let ((_%__splice2699326994%_ (gx#syntax-split-splice - _%tl2606426227%_ + _%tl2616326326%_ '0))) - (let ((_%tl2608026132%_ + (let ((_%tl2617926231%_ (let () (declare (not safe)) (##vector-ref - _%__splice2689426895%_ + _%__splice2699326994%_ '1))) - (_%target2607826129%_ + (_%target2617726228%_ (let () (declare (not safe)) (##vector-ref - _%__splice2689426895%_ + _%__splice2699326994%_ '0)))) (if (gx#stx-null? - _%tl2608026132%_) - (_%__match2694226943%_ - _%e2605626200%_ - _%hd2605726204%_ - _%tl2605826207%_ - _%e2605926210%_ - _%hd2606026214%_ - _%tl2606126217%_ - _%e2606226220%_ - _%hd2606326224%_ - _%tl2606426227%_ - _%__splice2689426895%_ - _%target2607826129%_ - _%tl2608026132%_) + _%tl2617926231%_) + (_%__match2704127042%_ + _%e2615526299%_ + _%hd2615626303%_ + _%tl2615726306%_ + _%e2615826309%_ + _%hd2615926313%_ + _%tl2616026316%_ + _%e2616126319%_ + _%hd2616226323%_ + _%tl2616326326%_ + _%__splice2699326994%_ + _%target2617726228%_ + _%tl2617926231%_) (let () (declare (not safe)) - (_%g2605226092%_))))) + (_%g2615126191%_))))) (let () (declare (not safe)) - (_%g2605226092%_)))))) + (_%g2615126191%_)))))) (let () (declare (not safe)) - (_%g2605226092%_))))) - (let () (declare (not safe)) (_%g2605226092%_))))) - (let () (declare (not safe)) (_%g2605226092%_)))))))) + (_%g2615126191%_))))) + (let () (declare (not safe)) (_%g2615126191%_))))) + (let () (declare (not safe)) (_%g2615126191%_)))))))) (define |gerbil/core/mop~MOP-4[:0:]#@-set!| - (lambda (_%$stx26252%_) - (let* ((_%__stx2694526946%_ _%$stx26252%_) - (_%g2625726309%_ + (lambda (_%$stx26351%_) + (let* ((_%__stx2704427045%_ _%$stx26351%_) + (_%g2635626408%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2694526946%_)))) - (let ((_%__kont2694826949%_ - (lambda (_%L26485%_ _%L26487%_ _%L26488%_) + _%__stx2704427045%_)))) + (let ((_%__kont2704727048%_ + (lambda (_%L26584%_ _%L26586%_ _%L26587%_) (cons (gx#datum->syntax '#f 'slot-set!) - (cons _%L26488%_ + (cons _%L26587%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L26487%_ '())) - (cons _%L26485%_ '())))))) - (_%__kont2695026951%_ - (lambda (_%L26396%_ - _%L26398%_ - _%L26399%_ - _%L26400%_ - _%L26401%_ - _%L26402%_) - (cons _%L26402%_ + (cons _%L26586%_ '())) + (cons _%L26584%_ '())))))) + (_%__kont2704927050%_ + (lambda (_%L26495%_ + _%L26497%_ + _%L26498%_ + _%L26499%_ + _%L26500%_ + _%L26501%_) + (cons _%L26501%_ (cons (cons (gx#datum->syntax '#f '@) - (cons _%L26401%_ - (cons _%L26400%_ - (foldr (lambda (_%g2642926432%_ + (cons _%L26500%_ + (cons _%L26499%_ + (foldr (lambda (_%g2652826531%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2643026435%_) - (cons _%g2642926432%_ _%g2643026435%_)) + _%g2652926534%_) + (cons _%g2652826531%_ _%g2652926534%_)) '() - _%L26399%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L26398%_ (cons _%L26396%_ '()))))))) - (let* ((_%__match2702027021%_ - (lambda (_%e2628026316%_ - _%hd2628126320%_ - _%tl2628226323%_ - _%e2628326326%_ - _%hd2628426330%_ - _%tl2628526333%_ - _%e2628626336%_ - _%hd2628726340%_ - _%tl2628826343%_ - _%__splice2695226953%_ - _%target2628926346%_ - _%tl2629126349%_ - _%e2629826352%_ - _%hd2629926356%_ - _%tl2630026359%_ - _%e2630126362%_ - _%hd2630226366%_ - _%tl2630326369%_) - (letrec ((_%loop2629226372%_ - (lambda (_%hd2629026376%_ _%path2629626379%_) - (if (gx#stx-pair? _%hd2629026376%_) - (let ((_%e2629326382%_ - (gx#syntax-e _%hd2629026376%_))) - (let ((_%lp-tl2629526389%_ + _%L26498%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%L26497%_ (cons _%L26495%_ '()))))))) + (let* ((_%__match2711927120%_ + (lambda (_%e2637926415%_ + _%hd2638026419%_ + _%tl2638126422%_ + _%e2638226425%_ + _%hd2638326429%_ + _%tl2638426432%_ + _%e2638526435%_ + _%hd2638626439%_ + _%tl2638726442%_ + _%__splice2705127052%_ + _%target2638826445%_ + _%tl2639026448%_ + _%e2639726451%_ + _%hd2639826455%_ + _%tl2639926458%_ + _%e2640026461%_ + _%hd2640126465%_ + _%tl2640226468%_) + (letrec ((_%loop2639126471%_ + (lambda (_%hd2638926475%_ _%path2639526478%_) + (if (gx#stx-pair? _%hd2638926475%_) + (let ((_%e2639226481%_ + (gx#syntax-e _%hd2638926475%_))) + (let ((_%lp-tl2639426488%_ (let () (declare (not safe)) - (##cdr _%e2629326382%_))) - (_%lp-hd2629426386%_ + (##cdr _%e2639226481%_))) + (_%lp-hd2639326485%_ (let () (declare (not safe)) - (##car _%e2629326382%_)))) - (_%loop2629226372%_ - _%lp-tl2629526389%_ - (cons _%lp-hd2629426386%_ - _%path2629626379%_)))) - (let ((_%path2629726392%_ - (reverse _%path2629626379%_))) - (_%__kont2695026951%_ - _%hd2630226366%_ - _%hd2629926356%_ - _%path2629726392%_ - _%hd2628726340%_ - _%hd2628426330%_ - _%hd2628126320%_)))))) - (_%loop2629226372%_ _%target2628926346%_ '())))) - (_%__match2698026981%_ - (lambda (_%e2626226445%_ - _%hd2626326449%_ - _%tl2626426452%_ - _%e2626526455%_ - _%hd2626626459%_ - _%tl2626726462%_ - _%e2626826465%_ - _%hd2626926469%_ - _%tl2627026472%_ - _%e2627126475%_ - _%hd2627226479%_ - _%tl2627326482%_) - (let ((_%L26485%_ _%hd2627226479%_) - (_%L26487%_ _%hd2626926469%_) - (_%L26488%_ _%hd2626626459%_)) - (if (gx#identifier? _%L26487%_) - (_%__kont2694826949%_ - _%L26485%_ - _%L26487%_ - _%L26488%_) - (if (gx#stx-pair/null? _%tl2627026472%_) - (if (let ((__tmp27238 - (gx#stx-length _%tl2627026472%_))) + (##car _%e2639226481%_)))) + (_%loop2639126471%_ + _%lp-tl2639426488%_ + (cons _%lp-hd2639326485%_ + _%path2639526478%_)))) + (let ((_%path2639626491%_ + (reverse _%path2639526478%_))) + (_%__kont2704927050%_ + _%hd2640126465%_ + _%hd2639826455%_ + _%path2639626491%_ + _%hd2638626439%_ + _%hd2638326429%_ + _%hd2638026419%_)))))) + (_%loop2639126471%_ _%target2638826445%_ '())))) + (_%__match2707927080%_ + (lambda (_%e2636126544%_ + _%hd2636226548%_ + _%tl2636326551%_ + _%e2636426554%_ + _%hd2636526558%_ + _%tl2636626561%_ + _%e2636726564%_ + _%hd2636826568%_ + _%tl2636926571%_ + _%e2637026574%_ + _%hd2637126578%_ + _%tl2637226581%_) + (let ((_%L26584%_ _%hd2637126578%_) + (_%L26586%_ _%hd2636826568%_) + (_%L26587%_ _%hd2636526558%_)) + (if (gx#identifier? _%L26586%_) + (_%__kont2704727048%_ + _%L26584%_ + _%L26586%_ + _%L26587%_) + (if (gx#stx-pair/null? _%tl2636926571%_) + (if (let ((__tmp27337 + (gx#stx-length _%tl2636926571%_))) (declare (not safe)) - (##fx>= __tmp27238 '2)) - (let ((_%__splice2695226953%_ + (##fx>= __tmp27337 '2)) + (let ((_%__splice2705127052%_ (gx#syntax-split-splice - _%tl2627026472%_ + _%tl2636926571%_ '2))) - (let ((_%tl2629126349%_ + (let ((_%tl2639026448%_ (let () (declare (not safe)) (##vector-ref - _%__splice2695226953%_ + _%__splice2705127052%_ '1))) - (_%target2628926346%_ + (_%target2638826445%_ (let () (declare (not safe)) (##vector-ref - _%__splice2695226953%_ + _%__splice2705127052%_ '0)))) - (if (gx#stx-pair? _%tl2629126349%_) - (let ((_%e2629826352%_ + (if (gx#stx-pair? _%tl2639026448%_) + (let ((_%e2639726451%_ (gx#syntax-e - _%tl2629126349%_))) - (let ((_%tl2630026359%_ + _%tl2639026448%_))) + (let ((_%tl2639926458%_ (let () (declare (not safe)) - (##cdr _%e2629826352%_))) - (_%hd2629926356%_ + (##cdr _%e2639726451%_))) + (_%hd2639826455%_ (let () (declare (not safe)) - (##car _%e2629826352%_)))) + (##car _%e2639726451%_)))) (if (gx#stx-pair? - _%tl2630026359%_) - (let ((_%e2630126362%_ + _%tl2639926458%_) + (let ((_%e2640026461%_ (gx#syntax-e - _%tl2630026359%_))) - (let ((_%tl2630326369%_ + _%tl2639926458%_))) + (let ((_%tl2640226468%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e2630126362%_))) - (_%hd2630226366%_ - (let () (declare (not safe)) (##car _%e2630126362%_)))) - (if (gx#stx-null? _%tl2630326369%_) - (_%__match2702027021%_ - _%e2626226445%_ - _%hd2626326449%_ - _%tl2626426452%_ - _%e2626526455%_ - _%hd2626626459%_ - _%tl2626726462%_ - _%e2626826465%_ - _%hd2626926469%_ - _%tl2627026472%_ - _%__splice2695226953%_ - _%target2628926346%_ - _%tl2629126349%_ - _%e2629826352%_ - _%hd2629926356%_ - _%tl2630026359%_ - _%e2630126362%_ - _%hd2630226366%_ - _%tl2630326369%_) - (let () (declare (not safe)) (_%g2625726309%_))))) + (##cdr _%e2640026461%_))) + (_%hd2640126465%_ + (let () (declare (not safe)) (##car _%e2640026461%_)))) + (if (gx#stx-null? _%tl2640226468%_) + (_%__match2711927120%_ + _%e2636126544%_ + _%hd2636226548%_ + _%tl2636326551%_ + _%e2636426554%_ + _%hd2636526558%_ + _%tl2636626561%_ + _%e2636726564%_ + _%hd2636826568%_ + _%tl2636926571%_ + _%__splice2705127052%_ + _%target2638826445%_ + _%tl2639026448%_ + _%e2639726451%_ + _%hd2639826455%_ + _%tl2639926458%_ + _%e2640026461%_ + _%hd2640126465%_ + _%tl2640226468%_) + (let () (declare (not safe)) (_%g2635626408%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g2625726309%_))))) + (_%g2635626408%_))))) (let () (declare (not safe)) - (_%g2625726309%_))))) + (_%g2635626408%_))))) (let () (declare (not safe)) - (_%g2625726309%_))) + (_%g2635626408%_))) (let () (declare (not safe)) - (_%g2625726309%_)))))))) - (if (gx#stx-pair? _%__stx2694526946%_) - (let ((_%e2626226445%_ (gx#syntax-e _%__stx2694526946%_))) - (let ((_%tl2626426452%_ + (_%g2635626408%_)))))))) + (if (gx#stx-pair? _%__stx2704427045%_) + (let ((_%e2636126544%_ (gx#syntax-e _%__stx2704427045%_))) + (let ((_%tl2636326551%_ (let () (declare (not safe)) - (##cdr _%e2626226445%_))) - (_%hd2626326449%_ + (##cdr _%e2636126544%_))) + (_%hd2636226548%_ (let () (declare (not safe)) - (##car _%e2626226445%_)))) - (if (gx#stx-pair? _%tl2626426452%_) - (let ((_%e2626526455%_ - (gx#syntax-e _%tl2626426452%_))) - (let ((_%tl2626726462%_ + (##car _%e2636126544%_)))) + (if (gx#stx-pair? _%tl2636326551%_) + (let ((_%e2636426554%_ + (gx#syntax-e _%tl2636326551%_))) + (let ((_%tl2636626561%_ (let () (declare (not safe)) - (##cdr _%e2626526455%_))) - (_%hd2626626459%_ + (##cdr _%e2636426554%_))) + (_%hd2636526558%_ (let () (declare (not safe)) - (##car _%e2626526455%_)))) - (if (gx#stx-pair? _%tl2626726462%_) - (let ((_%e2626826465%_ - (gx#syntax-e _%tl2626726462%_))) - (let ((_%tl2627026472%_ + (##car _%e2636426554%_)))) + (if (gx#stx-pair? _%tl2636626561%_) + (let ((_%e2636726564%_ + (gx#syntax-e _%tl2636626561%_))) + (let ((_%tl2636926571%_ (let () (declare (not safe)) - (##cdr _%e2626826465%_))) - (_%hd2626926469%_ + (##cdr _%e2636726564%_))) + (_%hd2636826568%_ (let () (declare (not safe)) - (##car _%e2626826465%_)))) - (if (gx#stx-pair? _%tl2627026472%_) - (let ((_%e2627126475%_ + (##car _%e2636726564%_)))) + (if (gx#stx-pair? _%tl2636926571%_) + (let ((_%e2637026574%_ (gx#syntax-e - _%tl2627026472%_))) - (let ((_%tl2627326482%_ + _%tl2636926571%_))) + (let ((_%tl2637226581%_ (let () (declare (not safe)) - (##cdr _%e2627126475%_))) - (_%hd2627226479%_ + (##cdr _%e2637026574%_))) + (_%hd2637126578%_ (let () (declare (not safe)) - (##car _%e2627126475%_)))) + (##car _%e2637026574%_)))) (if (gx#stx-null? - _%tl2627326482%_) - (_%__match2698026981%_ - _%e2626226445%_ - _%hd2626326449%_ - _%tl2626426452%_ - _%e2626526455%_ - _%hd2626626459%_ - _%tl2626726462%_ - _%e2626826465%_ - _%hd2626926469%_ - _%tl2627026472%_ - _%e2627126475%_ - _%hd2627226479%_ - _%tl2627326482%_) + _%tl2637226581%_) + (_%__match2707927080%_ + _%e2636126544%_ + _%hd2636226548%_ + _%tl2636326551%_ + _%e2636426554%_ + _%hd2636526558%_ + _%tl2636626561%_ + _%e2636726564%_ + _%hd2636826568%_ + _%tl2636926571%_ + _%e2637026574%_ + _%hd2637126578%_ + _%tl2637226581%_) (if (gx#stx-pair/null? - _%tl2627026472%_) - (if (let ((__tmp27239 + _%tl2636926571%_) + (if (let ((__tmp27338 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-length _%tl2627026472%_))) + (gx#stx-length _%tl2636926571%_))) (declare (not safe)) - (##fx>= __tmp27239 '2)) - (let ((_%__splice2695226953%_ - (gx#syntax-split-splice _%tl2627026472%_ '2))) - (let ((_%tl2629126349%_ + (##fx>= __tmp27338 '2)) + (let ((_%__splice2705127052%_ + (gx#syntax-split-splice _%tl2636926571%_ '2))) + (let ((_%tl2639026448%_ (let () (declare (not safe)) - (##vector-ref _%__splice2695226953%_ '1))) - (_%target2628926346%_ + (##vector-ref _%__splice2705127052%_ '1))) + (_%target2638826445%_ (let () (declare (not safe)) - (##vector-ref _%__splice2695226953%_ '0)))) - (if (gx#stx-pair? _%tl2629126349%_) - (let ((_%e2629826352%_ - (gx#syntax-e _%tl2629126349%_))) - (let ((_%tl2630026359%_ + (##vector-ref _%__splice2705127052%_ '0)))) + (if (gx#stx-pair? _%tl2639026448%_) + (let ((_%e2639726451%_ + (gx#syntax-e _%tl2639026448%_))) + (let ((_%tl2639926458%_ (let () (declare (not safe)) - (##cdr _%e2629826352%_))) - (_%hd2629926356%_ + (##cdr _%e2639726451%_))) + (_%hd2639826455%_ (let () (declare (not safe)) - (##car _%e2629826352%_)))) - (if (gx#stx-pair? _%tl2630026359%_) - (let ((_%e2630126362%_ - (gx#syntax-e _%tl2630026359%_))) - (let ((_%tl2630326369%_ + (##car _%e2639726451%_)))) + (if (gx#stx-pair? _%tl2639926458%_) + (let ((_%e2640026461%_ + (gx#syntax-e _%tl2639926458%_))) + (let ((_%tl2640226468%_ (let () (declare (not safe)) - (##cdr _%e2630126362%_))) - (_%hd2630226366%_ + (##cdr _%e2640026461%_))) + (_%hd2640126465%_ (let () (declare (not safe)) - (##car _%e2630126362%_)))) - (if (gx#stx-null? _%tl2630326369%_) - (_%__match2702027021%_ - _%e2626226445%_ - _%hd2626326449%_ - _%tl2626426452%_ - _%e2626526455%_ - _%hd2626626459%_ - _%tl2626726462%_ - _%e2626826465%_ - _%hd2626926469%_ - _%tl2627026472%_ - _%__splice2695226953%_ - _%target2628926346%_ - _%tl2629126349%_ - _%e2629826352%_ - _%hd2629926356%_ - _%tl2630026359%_ - _%e2630126362%_ - _%hd2630226366%_ - _%tl2630326369%_) + (##car _%e2640026461%_)))) + (if (gx#stx-null? _%tl2640226468%_) + (_%__match2711927120%_ + _%e2636126544%_ + _%hd2636226548%_ + _%tl2636326551%_ + _%e2636426554%_ + _%hd2636526558%_ + _%tl2636626561%_ + _%e2636726564%_ + _%hd2636826568%_ + _%tl2636926571%_ + _%__splice2705127052%_ + _%target2638826445%_ + _%tl2639026448%_ + _%e2639726451%_ + _%hd2639826455%_ + _%tl2639926458%_ + _%e2640026461%_ + _%hd2640126465%_ + _%tl2640226468%_) (let () (declare (not safe)) - (_%g2625726309%_))))) + (_%g2635626408%_))))) (let () (declare (not safe)) - (_%g2625726309%_))))) - (let () (declare (not safe)) (_%g2625726309%_))))) - (let () (declare (not safe)) (_%g2625726309%_))) - (let () (declare (not safe)) (_%g2625726309%_)))))) + (_%g2635626408%_))))) + (let () (declare (not safe)) (_%g2635626408%_))))) + (let () (declare (not safe)) (_%g2635626408%_))) + (let () (declare (not safe)) (_%g2635626408%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl2627026472%_) - (if (let ((__tmp27240 + _%tl2636926571%_) + (if (let ((__tmp27339 (gx#stx-length - _%tl2627026472%_))) + _%tl2636926571%_))) (declare (not safe)) - (##fx>= __tmp27240 '2)) - (let ((_%__splice2695226953%_ + (##fx>= __tmp27339 '2)) + (let ((_%__splice2705127052%_ (gx#syntax-split-splice - _%tl2627026472%_ + _%tl2636926571%_ '2))) - (let ((_%tl2629126349%_ + (let ((_%tl2639026448%_ (let () (declare (not safe)) (##vector-ref - _%__splice2695226953%_ + _%__splice2705127052%_ '1))) - (_%target2628926346%_ + (_%target2638826445%_ (let () (declare (not safe)) (##vector-ref - _%__splice2695226953%_ + _%__splice2705127052%_ '0)))) (if (gx#stx-pair? - _%tl2629126349%_) - (let ((_%e2629826352%_ + _%tl2639026448%_) + (let ((_%e2639726451%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2629126349%_))) - (let ((_%tl2630026359%_ + (gx#syntax-e _%tl2639026448%_))) + (let ((_%tl2639926458%_ (let () (declare (not safe)) - (##cdr _%e2629826352%_))) - (_%hd2629926356%_ + (##cdr _%e2639726451%_))) + (_%hd2639826455%_ (let () (declare (not safe)) - (##car _%e2629826352%_)))) - (if (gx#stx-pair? _%tl2630026359%_) - (let ((_%e2630126362%_ - (gx#syntax-e _%tl2630026359%_))) - (let ((_%tl2630326369%_ + (##car _%e2639726451%_)))) + (if (gx#stx-pair? _%tl2639926458%_) + (let ((_%e2640026461%_ + (gx#syntax-e _%tl2639926458%_))) + (let ((_%tl2640226468%_ (let () (declare (not safe)) - (##cdr _%e2630126362%_))) - (_%hd2630226366%_ + (##cdr _%e2640026461%_))) + (_%hd2640126465%_ (let () (declare (not safe)) - (##car _%e2630126362%_)))) - (if (gx#stx-null? _%tl2630326369%_) - (_%__match2702027021%_ - _%e2626226445%_ - _%hd2626326449%_ - _%tl2626426452%_ - _%e2626526455%_ - _%hd2626626459%_ - _%tl2626726462%_ - _%e2626826465%_ - _%hd2626926469%_ - _%tl2627026472%_ - _%__splice2695226953%_ - _%target2628926346%_ - _%tl2629126349%_ - _%e2629826352%_ - _%hd2629926356%_ - _%tl2630026359%_ - _%e2630126362%_ - _%hd2630226366%_ - _%tl2630326369%_) + (##car _%e2640026461%_)))) + (if (gx#stx-null? _%tl2640226468%_) + (_%__match2711927120%_ + _%e2636126544%_ + _%hd2636226548%_ + _%tl2636326551%_ + _%e2636426554%_ + _%hd2636526558%_ + _%tl2636626561%_ + _%e2636726564%_ + _%hd2636826568%_ + _%tl2636926571%_ + _%__splice2705127052%_ + _%target2638826445%_ + _%tl2639026448%_ + _%e2639726451%_ + _%hd2639826455%_ + _%tl2639926458%_ + _%e2640026461%_ + _%hd2640126465%_ + _%tl2640226468%_) (let () (declare (not safe)) - (_%g2625726309%_))))) - (let () (declare (not safe)) (_%g2625726309%_))))) - (let () (declare (not safe)) (_%g2625726309%_))))) + (_%g2635626408%_))))) + (let () (declare (not safe)) (_%g2635626408%_))))) + (let () (declare (not safe)) (_%g2635626408%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g2625726309%_))) + (_%g2635626408%_))) (let () (declare (not safe)) - (_%g2625726309%_)))))) + (_%g2635626408%_)))))) (let () (declare (not safe)) - (_%g2625726309%_))))) - (let () (declare (not safe)) (_%g2625726309%_))))) - (let () (declare (not safe)) (_%g2625726309%_)))))))))) + (_%g2635626408%_))))) + (let () (declare (not safe)) (_%g2635626408%_))))) + (let () (declare (not safe)) (_%g2635626408%_)))))))))) diff --git a/src/bootstrap/gerbil/core/mop~4.scm b/src/bootstrap/gerbil/core/mop~4.scm index 1ea54f5fb..1a7112fde 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]#_g27244_| + (define |gerbil/core/mop~MOP-5[1]#_g27343_| (##structure gx#syntax-quote::t 't::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27246_| + (define |gerbil/core/mop~MOP-5[1]#_g27345_| (##structure gx#syntax-quote::t 'true #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27248_| + (define |gerbil/core/mop~MOP-5[1]#_g27347_| (##structure gx#syntax-quote::t ':t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27250_| + (define |gerbil/core/mop~MOP-5[1]#_g27349_| (##structure gx#syntax-quote::t 'class::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27252_| + (define |gerbil/core/mop~MOP-5[1]#_g27351_| (##structure gx#syntax-quote::t 'class-type? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27256_| + (define |gerbil/core/mop~MOP-5[1]#_g27355_| (##structure gx#syntax-quote::t 'make-class-type #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27259_| + (define |gerbil/core/mop~MOP-5[1]#_g27358_| (##structure gx#syntax-quote::t 'class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27260_| + (define |gerbil/core/mop~MOP-5[1]#_g27359_| (##structure gx#syntax-quote::t 'class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27261_| + (define |gerbil/core/mop~MOP-5[1]#_g27360_| (##structure gx#syntax-quote::t 'class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27262_| + (define |gerbil/core/mop~MOP-5[1]#_g27361_| (##structure gx#syntax-quote::t 'class-type-flags #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27263_| + (define |gerbil/core/mop~MOP-5[1]#_g27362_| (##structure gx#syntax-quote::t 'class-type-fields #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27264_| + (define |gerbil/core/mop~MOP-5[1]#_g27363_| (##structure gx#syntax-quote::t 'class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27265_| + (define |gerbil/core/mop~MOP-5[1]#_g27364_| (##structure gx#syntax-quote::t 'class-type-slot-vector #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27266_| + (define |gerbil/core/mop~MOP-5[1]#_g27365_| (##structure gx#syntax-quote::t 'class-type-slot-table #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27267_| + (define |gerbil/core/mop~MOP-5[1]#_g27366_| (##structure gx#syntax-quote::t 'class-type-properties #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27268_| + (define |gerbil/core/mop~MOP-5[1]#_g27367_| (##structure gx#syntax-quote::t 'class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27269_| + (define |gerbil/core/mop~MOP-5[1]#_g27368_| (##structure gx#syntax-quote::t 'class-type-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27271_| + (define |gerbil/core/mop~MOP-5[1]#_g27370_| (##structure gx#syntax-quote::t '&class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27272_| + (define |gerbil/core/mop~MOP-5[1]#_g27371_| (##structure gx#syntax-quote::t '&class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27273_| + (define |gerbil/core/mop~MOP-5[1]#_g27372_| (##structure gx#syntax-quote::t '&class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27274_| + (define |gerbil/core/mop~MOP-5[1]#_g27373_| (##structure gx#syntax-quote::t '&class-type-flags #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27275_| + (define |gerbil/core/mop~MOP-5[1]#_g27374_| (##structure gx#syntax-quote::t '&class-type-fields #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27276_| + (define |gerbil/core/mop~MOP-5[1]#_g27375_| (##structure gx#syntax-quote::t '&class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27277_| + (define |gerbil/core/mop~MOP-5[1]#_g27376_| (##structure gx#syntax-quote::t '&class-type-slot-vector #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27278_| + (define |gerbil/core/mop~MOP-5[1]#_g27377_| (##structure gx#syntax-quote::t '&class-type-slot-table #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27279_| + (define |gerbil/core/mop~MOP-5[1]#_g27378_| (##structure gx#syntax-quote::t '&class-type-properties #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27280_| + (define |gerbil/core/mop~MOP-5[1]#_g27379_| (##structure gx#syntax-quote::t '&class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27281_| + (define |gerbil/core/mop~MOP-5[1]#_g27380_| (##structure gx#syntax-quote::t '&class-type-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27284_| + (define |gerbil/core/mop~MOP-5[1]#_g27383_| (##structure gx#syntax-quote::t 'object::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27288_| + (define |gerbil/core/mop~MOP-5[1]#_g27387_| (##structure gx#syntax-quote::t 'immediate::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27290_| + (define |gerbil/core/mop~MOP-5[1]#_g27389_| (##structure gx#syntax-quote::t 'immediate? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27292_| + (define |gerbil/core/mop~MOP-5[1]#_g27391_| (##structure gx#syntax-quote::t ':immediate #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27294_| + (define |gerbil/core/mop~MOP-5[1]#_g27393_| (##structure gx#syntax-quote::t 'char::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27296_| + (define |gerbil/core/mop~MOP-5[1]#_g27395_| (##structure gx#syntax-quote::t 'char? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27299_| + (define |gerbil/core/mop~MOP-5[1]#_g27398_| (##structure gx#syntax-quote::t 'boolean::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27301_| + (define |gerbil/core/mop~MOP-5[1]#_g27400_| (##structure gx#syntax-quote::t 'boolean? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27304_| + (define |gerbil/core/mop~MOP-5[1]#_g27403_| (##structure gx#syntax-quote::t 'atom::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27306_| + (define |gerbil/core/mop~MOP-5[1]#_g27405_| (##structure gx#syntax-quote::t 'atom? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27308_| + (define |gerbil/core/mop~MOP-5[1]#_g27407_| (##structure gx#syntax-quote::t ':atom #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27310_| + (define |gerbil/core/mop~MOP-5[1]#_g27409_| (##structure gx#syntax-quote::t 'void::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27312_| + (define |gerbil/core/mop~MOP-5[1]#_g27411_| (##structure gx#syntax-quote::t 'void? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27315_| + (define |gerbil/core/mop~MOP-5[1]#_g27414_| (##structure gx#syntax-quote::t 'eof::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27317_| + (define |gerbil/core/mop~MOP-5[1]#_g27416_| (##structure gx#syntax-quote::t 'eof-object? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27319_| + (define |gerbil/core/mop~MOP-5[1]#_g27418_| (##structure gx#syntax-quote::t ':boolean #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27321_| + (define |gerbil/core/mop~MOP-5[1]#_g27420_| (##structure gx#syntax-quote::t 'true::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27323_| + (define |gerbil/core/mop~MOP-5[1]#_g27422_| (##structure gx#syntax-quote::t 'true? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27326_| + (define |gerbil/core/mop~MOP-5[1]#_g27425_| (##structure gx#syntax-quote::t 'false::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27328_| + (define |gerbil/core/mop~MOP-5[1]#_g27427_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27331_| + (define |gerbil/core/mop~MOP-5[1]#_g27430_| (##structure gx#syntax-quote::t 'special::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27333_| + (define |gerbil/core/mop~MOP-5[1]#_g27432_| (##structure gx#syntax-quote::t 'special? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27336_| + (define |gerbil/core/mop~MOP-5[1]#_g27435_| (##structure gx#syntax-quote::t 'number::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27338_| + (define |gerbil/core/mop~MOP-5[1]#_g27437_| (##structure gx#syntax-quote::t 'number? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27340_| + (define |gerbil/core/mop~MOP-5[1]#_g27439_| (##structure gx#syntax-quote::t ':number #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27342_| + (define |gerbil/core/mop~MOP-5[1]#_g27441_| (##structure gx#syntax-quote::t 'real::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27344_| + (define |gerbil/core/mop~MOP-5[1]#_g27443_| (##structure gx#syntax-quote::t 'real? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27346_| + (define |gerbil/core/mop~MOP-5[1]#_g27445_| (##structure gx#syntax-quote::t ':real #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27348_| + (define |gerbil/core/mop~MOP-5[1]#_g27447_| (##structure gx#syntax-quote::t 'integer::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27350_| + (define |gerbil/core/mop~MOP-5[1]#_g27449_| (##structure gx#syntax-quote::t 'exact-integer? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27352_| + (define |gerbil/core/mop~MOP-5[1]#_g27451_| (##structure gx#syntax-quote::t ':integer #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27354_| + (define |gerbil/core/mop~MOP-5[1]#_g27453_| (##structure gx#syntax-quote::t 'fixnum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27356_| + (define |gerbil/core/mop~MOP-5[1]#_g27455_| (##structure gx#syntax-quote::t 'fixnum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27359_| + (define |gerbil/core/mop~MOP-5[1]#_g27458_| (##structure gx#syntax-quote::t 'bignum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27361_| + (define |gerbil/core/mop~MOP-5[1]#_g27460_| (##structure gx#syntax-quote::t '##bignum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27364_| + (define |gerbil/core/mop~MOP-5[1]#_g27463_| (##structure gx#syntax-quote::t 'ratnum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27366_| + (define |gerbil/core/mop~MOP-5[1]#_g27465_| (##structure gx#syntax-quote::t '##ratnum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27369_| + (define |gerbil/core/mop~MOP-5[1]#_g27468_| (##structure gx#syntax-quote::t 'flonum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27371_| + (define |gerbil/core/mop~MOP-5[1]#_g27470_| (##structure gx#syntax-quote::t 'flonum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27374_| + (define |gerbil/core/mop~MOP-5[1]#_g27473_| (##structure gx#syntax-quote::t 'cpxnum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27376_| + (define |gerbil/core/mop~MOP-5[1]#_g27475_| (##structure gx#syntax-quote::t '##cpxnum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27379_| + (define |gerbil/core/mop~MOP-5[1]#_g27478_| (##structure gx#syntax-quote::t 'symbolic::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27381_| + (define |gerbil/core/mop~MOP-5[1]#_g27480_| (##structure gx#syntax-quote::t 'symbolic? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27383_| + (define |gerbil/core/mop~MOP-5[1]#_g27482_| (##structure gx#syntax-quote::t ':symbolic #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27385_| + (define |gerbil/core/mop~MOP-5[1]#_g27484_| (##structure gx#syntax-quote::t 'symbol::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27387_| + (define |gerbil/core/mop~MOP-5[1]#_g27486_| (##structure gx#syntax-quote::t 'symbol? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27390_| + (define |gerbil/core/mop~MOP-5[1]#_g27489_| (##structure gx#syntax-quote::t 'keyword::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27392_| + (define |gerbil/core/mop~MOP-5[1]#_g27491_| (##structure gx#syntax-quote::t 'keyword? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27395_| + (define |gerbil/core/mop~MOP-5[1]#_g27494_| (##structure gx#syntax-quote::t 'list::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27397_| + (define |gerbil/core/mop~MOP-5[1]#_g27496_| (##structure gx#syntax-quote::t 'list? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27399_| + (define |gerbil/core/mop~MOP-5[1]#_g27498_| (##structure gx#syntax-quote::t ':list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27401_| + (define |gerbil/core/mop~MOP-5[1]#_g27500_| (##structure gx#syntax-quote::t 'pair::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27403_| + (define |gerbil/core/mop~MOP-5[1]#_g27502_| (##structure gx#syntax-quote::t 'pair? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27406_| + (define |gerbil/core/mop~MOP-5[1]#_g27505_| (##structure gx#syntax-quote::t 'null::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27408_| + (define |gerbil/core/mop~MOP-5[1]#_g27507_| (##structure gx#syntax-quote::t 'null? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27411_| + (define |gerbil/core/mop~MOP-5[1]#_g27510_| (##structure gx#syntax-quote::t 'sequence::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27413_| + (define |gerbil/core/mop~MOP-5[1]#_g27512_| (##structure gx#syntax-quote::t 'sequence? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27415_| + (define |gerbil/core/mop~MOP-5[1]#_g27514_| (##structure gx#syntax-quote::t ':sequence #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27417_| + (define |gerbil/core/mop~MOP-5[1]#_g27516_| (##structure gx#syntax-quote::t 'vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27419_| + (define |gerbil/core/mop~MOP-5[1]#_g27518_| (##structure gx#syntax-quote::t 'vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27422_| + (define |gerbil/core/mop~MOP-5[1]#_g27521_| (##structure gx#syntax-quote::t 'string::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27424_| + (define |gerbil/core/mop~MOP-5[1]#_g27523_| (##structure gx#syntax-quote::t 'string? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27427_| + (define |gerbil/core/mop~MOP-5[1]#_g27526_| (##structure gx#syntax-quote::t 'hvector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27429_| + (define |gerbil/core/mop~MOP-5[1]#_g27528_| (##structure gx#syntax-quote::t 'hvector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27431_| + (define |gerbil/core/mop~MOP-5[1]#_g27530_| (##structure gx#syntax-quote::t ':hvector #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27433_| + (define |gerbil/core/mop~MOP-5[1]#_g27532_| (##structure gx#syntax-quote::t 'u8vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27435_| + (define |gerbil/core/mop~MOP-5[1]#_g27534_| (##structure gx#syntax-quote::t 'u8vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27438_| + (define |gerbil/core/mop~MOP-5[1]#_g27537_| (##structure gx#syntax-quote::t 's8vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27440_| + (define |gerbil/core/mop~MOP-5[1]#_g27539_| (##structure gx#syntax-quote::t 's8vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27443_| + (define |gerbil/core/mop~MOP-5[1]#_g27542_| (##structure gx#syntax-quote::t 'u16vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27445_| + (define |gerbil/core/mop~MOP-5[1]#_g27544_| (##structure gx#syntax-quote::t 'u16vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27448_| + (define |gerbil/core/mop~MOP-5[1]#_g27547_| (##structure gx#syntax-quote::t 's16vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27450_| + (define |gerbil/core/mop~MOP-5[1]#_g27549_| (##structure gx#syntax-quote::t 's16vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27453_| + (define |gerbil/core/mop~MOP-5[1]#_g27552_| (##structure gx#syntax-quote::t 'u32vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27455_| + (define |gerbil/core/mop~MOP-5[1]#_g27554_| (##structure gx#syntax-quote::t 'u32vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27458_| + (define |gerbil/core/mop~MOP-5[1]#_g27557_| (##structure gx#syntax-quote::t 's32vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27460_| + (define |gerbil/core/mop~MOP-5[1]#_g27559_| (##structure gx#syntax-quote::t 's32vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27463_| + (define |gerbil/core/mop~MOP-5[1]#_g27562_| (##structure gx#syntax-quote::t 'u64vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27465_| + (define |gerbil/core/mop~MOP-5[1]#_g27564_| (##structure gx#syntax-quote::t 'u64vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27468_| + (define |gerbil/core/mop~MOP-5[1]#_g27567_| (##structure gx#syntax-quote::t 's64vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27470_| + (define |gerbil/core/mop~MOP-5[1]#_g27569_| (##structure gx#syntax-quote::t 's64vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27473_| + (define |gerbil/core/mop~MOP-5[1]#_g27572_| (##structure gx#syntax-quote::t 'f32vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27475_| + (define |gerbil/core/mop~MOP-5[1]#_g27574_| (##structure gx#syntax-quote::t 'f32vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27478_| + (define |gerbil/core/mop~MOP-5[1]#_g27577_| (##structure gx#syntax-quote::t 'f64vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27480_| + (define |gerbil/core/mop~MOP-5[1]#_g27579_| (##structure gx#syntax-quote::t 'f64vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27483_| + (define |gerbil/core/mop~MOP-5[1]#_g27582_| (##structure gx#syntax-quote::t 'values::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27485_| + (define |gerbil/core/mop~MOP-5[1]#_g27584_| (##structure gx#syntax-quote::t '##values? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27488_| + (define |gerbil/core/mop~MOP-5[1]#_g27587_| (##structure gx#syntax-quote::t 'box::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27490_| + (define |gerbil/core/mop~MOP-5[1]#_g27589_| (##structure gx#syntax-quote::t 'box? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27493_| + (define |gerbil/core/mop~MOP-5[1]#_g27592_| (##structure gx#syntax-quote::t 'frame::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27495_| + (define |gerbil/core/mop~MOP-5[1]#_g27594_| (##structure gx#syntax-quote::t '##frame? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27498_| + (define |gerbil/core/mop~MOP-5[1]#_g27597_| (##structure gx#syntax-quote::t 'continuation::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27500_| + (define |gerbil/core/mop~MOP-5[1]#_g27599_| (##structure gx#syntax-quote::t 'continuation? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27503_| + (define |gerbil/core/mop~MOP-5[1]#_g27602_| (##structure gx#syntax-quote::t 'promise::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27505_| + (define |gerbil/core/mop~MOP-5[1]#_g27604_| (##structure gx#syntax-quote::t 'promise? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27508_| + (define |gerbil/core/mop~MOP-5[1]#_g27607_| (##structure gx#syntax-quote::t 'weak::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27510_| + (define |gerbil/core/mop~MOP-5[1]#_g27609_| (##structure gx#syntax-quote::t 'weak? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27513_| + (define |gerbil/core/mop~MOP-5[1]#_g27612_| (##structure gx#syntax-quote::t 'foreign::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27515_| + (define |gerbil/core/mop~MOP-5[1]#_g27614_| (##structure gx#syntax-quote::t 'foreign? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27518_| + (define |gerbil/core/mop~MOP-5[1]#_g27617_| (##structure gx#syntax-quote::t 'procedure::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27520_| + (define |gerbil/core/mop~MOP-5[1]#_g27619_| (##structure gx#syntax-quote::t 'procedure? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27523_| + (define |gerbil/core/mop~MOP-5[1]#_g27622_| (##structure gx#syntax-quote::t 'time::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27525_| + (define |gerbil/core/mop~MOP-5[1]#_g27624_| (##structure gx#syntax-quote::t 'time? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27528_| + (define |gerbil/core/mop~MOP-5[1]#_g27627_| (##structure gx#syntax-quote::t 'thread::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27530_| + (define |gerbil/core/mop~MOP-5[1]#_g27629_| (##structure gx#syntax-quote::t 'thread? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27533_| + (define |gerbil/core/mop~MOP-5[1]#_g27632_| (##structure gx#syntax-quote::t 'thread-group::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27535_| + (define |gerbil/core/mop~MOP-5[1]#_g27634_| (##structure gx#syntax-quote::t 'thread-group? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27538_| + (define |gerbil/core/mop~MOP-5[1]#_g27637_| (##structure gx#syntax-quote::t 'mutex::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27540_| + (define |gerbil/core/mop~MOP-5[1]#_g27639_| (##structure gx#syntax-quote::t 'mutex? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27543_| + (define |gerbil/core/mop~MOP-5[1]#_g27642_| (##structure gx#syntax-quote::t 'condvar::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27545_| + (define |gerbil/core/mop~MOP-5[1]#_g27644_| (##structure gx#syntax-quote::t 'condvar? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27548_| + (define |gerbil/core/mop~MOP-5[1]#_g27647_| (##structure gx#syntax-quote::t 'port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27550_| + (define |gerbil/core/mop~MOP-5[1]#_g27649_| (##structure gx#syntax-quote::t 'port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27552_| + (define |gerbil/core/mop~MOP-5[1]#_g27651_| (##structure gx#syntax-quote::t ':port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27554_| + (define |gerbil/core/mop~MOP-5[1]#_g27653_| (##structure gx#syntax-quote::t 'object-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27556_| + (define |gerbil/core/mop~MOP-5[1]#_g27655_| (##structure gx#syntax-quote::t 'object-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27558_| + (define |gerbil/core/mop~MOP-5[1]#_g27657_| (##structure gx#syntax-quote::t ':object-port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27560_| + (define |gerbil/core/mop~MOP-5[1]#_g27659_| (##structure gx#syntax-quote::t 'character-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27562_| + (define |gerbil/core/mop~MOP-5[1]#_g27661_| (##structure gx#syntax-quote::t 'character-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27564_| + (define |gerbil/core/mop~MOP-5[1]#_g27663_| (##structure gx#syntax-quote::t ':character-port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27566_| + (define |gerbil/core/mop~MOP-5[1]#_g27665_| (##structure gx#syntax-quote::t 'byte-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27568_| + (define |gerbil/core/mop~MOP-5[1]#_g27667_| (##structure gx#syntax-quote::t 'byte-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27570_| + (define |gerbil/core/mop~MOP-5[1]#_g27669_| (##structure gx#syntax-quote::t ':byte-port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27572_| + (define |gerbil/core/mop~MOP-5[1]#_g27671_| (##structure gx#syntax-quote::t 'device-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27574_| + (define |gerbil/core/mop~MOP-5[1]#_g27673_| (##structure gx#syntax-quote::t 'device-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27577_| + (define |gerbil/core/mop~MOP-5[1]#_g27676_| (##structure gx#syntax-quote::t 'vector-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27579_| + (define |gerbil/core/mop~MOP-5[1]#_g27678_| (##structure gx#syntax-quote::t 'vector-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27582_| + (define |gerbil/core/mop~MOP-5[1]#_g27681_| (##structure gx#syntax-quote::t 'string-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27584_| + (define |gerbil/core/mop~MOP-5[1]#_g27683_| (##structure gx#syntax-quote::t 'string-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27587_| + (define |gerbil/core/mop~MOP-5[1]#_g27686_| (##structure gx#syntax-quote::t 'u8vector-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27589_| + (define |gerbil/core/mop~MOP-5[1]#_g27688_| (##structure gx#syntax-quote::t 'u8vector-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27592_| + (define |gerbil/core/mop~MOP-5[1]#_g27691_| (##structure gx#syntax-quote::t 'raw-device-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27594_| + (define |gerbil/core/mop~MOP-5[1]#_g27693_| (##structure gx#syntax-quote::t 'raw-device-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27597_| + (define |gerbil/core/mop~MOP-5[1]#_g27696_| (##structure gx#syntax-quote::t 'tcp-server-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27599_| + (define |gerbil/core/mop~MOP-5[1]#_g27698_| (##structure gx#syntax-quote::t 'tcp-server-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27602_| + (define |gerbil/core/mop~MOP-5[1]#_g27701_| (##structure gx#syntax-quote::t 'udp-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27604_| + (define |gerbil/core/mop~MOP-5[1]#_g27703_| (##structure gx#syntax-quote::t 'udp-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27607_| + (define |gerbil/core/mop~MOP-5[1]#_g27706_| (##structure gx#syntax-quote::t 'directory-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27609_| + (define |gerbil/core/mop~MOP-5[1]#_g27708_| (##structure gx#syntax-quote::t 'directory-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27612_| + (define |gerbil/core/mop~MOP-5[1]#_g27711_| (##structure gx#syntax-quote::t 'event-queue-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27614_| + (define |gerbil/core/mop~MOP-5[1]#_g27713_| (##structure gx#syntax-quote::t 'event-queue-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27617_| + (define |gerbil/core/mop~MOP-5[1]#_g27716_| (##structure gx#syntax-quote::t 'table::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27619_| + (define |gerbil/core/mop~MOP-5[1]#_g27718_| (##structure gx#syntax-quote::t 'table? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27622_| + (define |gerbil/core/mop~MOP-5[1]#_g27721_| (##structure gx#syntax-quote::t 'readenv::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27624_| + (define |gerbil/core/mop~MOP-5[1]#_g27723_| (##structure gx#syntax-quote::t 'readenv? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27627_| + (define |gerbil/core/mop~MOP-5[1]#_g27726_| (##structure gx#syntax-quote::t 'writeenv::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27629_| + (define |gerbil/core/mop~MOP-5[1]#_g27728_| (##structure gx#syntax-quote::t 'writeenv? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27632_| + (define |gerbil/core/mop~MOP-5[1]#_g27731_| (##structure gx#syntax-quote::t 'readtable::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27634_| + (define |gerbil/core/mop~MOP-5[1]#_g27733_| (##structure gx#syntax-quote::t 'readtable? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27637_| + (define |gerbil/core/mop~MOP-5[1]#_g27736_| (##structure gx#syntax-quote::t 'processor::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27639_| + (define |gerbil/core/mop~MOP-5[1]#_g27738_| (##structure gx#syntax-quote::t 'processor? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27642_| + (define |gerbil/core/mop~MOP-5[1]#_g27741_| (##structure gx#syntax-quote::t 'vm::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27644_| + (define |gerbil/core/mop~MOP-5[1]#_g27743_| (##structure gx#syntax-quote::t 'vm? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27647_| + (define |gerbil/core/mop~MOP-5[1]#_g27746_| (##structure gx#syntax-quote::t 'file-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27649_| + (define |gerbil/core/mop~MOP-5[1]#_g27748_| (##structure gx#syntax-quote::t 'file-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27652_| + (define |gerbil/core/mop~MOP-5[1]#_g27751_| (##structure gx#syntax-quote::t 'socket-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27654_| + (define |gerbil/core/mop~MOP-5[1]#_g27753_| (##structure gx#syntax-quote::t 'socket-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27657_| + (define |gerbil/core/mop~MOP-5[1]#_g27756_| (##structure gx#syntax-quote::t 'address-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27659_| + (define |gerbil/core/mop~MOP-5[1]#_g27758_| (##structure gx#syntax-quote::t 'address-info? @@ -1296,161 +1296,161 @@ '())) (begin (define |gerbil/core/mop~MOP-5[:0:]#defsystem-class-info| - (lambda (_%stx26512%_) - (let* ((_%g2651526550%_ - (lambda (_%g2651626546%_) + (lambda (_%stx26611%_) + (let* ((_%g2661426649%_ + (lambda (_%g2661526645%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2651626546%_))) - (_%g2651426744%_ - (lambda (_%g2651626554%_) - (if (gx#stx-pair? _%g2651626554%_) - (let ((_%e2652126557%_ (gx#syntax-e _%g2651626554%_))) - (let ((_%hd2652226561%_ + _%g2661526645%_))) + (_%g2661326843%_ + (lambda (_%g2661526653%_) + (if (gx#stx-pair? _%g2661526653%_) + (let ((_%e2662026656%_ (gx#syntax-e _%g2661526653%_))) + (let ((_%hd2662126660%_ (let () (declare (not safe)) - (##car _%e2652126557%_))) - (_%tl2652326564%_ + (##car _%e2662026656%_))) + (_%tl2662226663%_ (let () (declare (not safe)) - (##cdr _%e2652126557%_)))) - (if (gx#stx-pair? _%tl2652326564%_) - (let ((_%e2652426567%_ - (gx#syntax-e _%tl2652326564%_))) - (let ((_%hd2652526571%_ + (##cdr _%e2662026656%_)))) + (if (gx#stx-pair? _%tl2662226663%_) + (let ((_%e2662326666%_ + (gx#syntax-e _%tl2662226663%_))) + (let ((_%hd2662426670%_ (let () (declare (not safe)) - (##car _%e2652426567%_))) - (_%tl2652626574%_ + (##car _%e2662326666%_))) + (_%tl2662526673%_ (let () (declare (not safe)) - (##cdr _%e2652426567%_)))) - (if (gx#stx-pair? _%tl2652626574%_) - (let ((_%e2652726577%_ - (gx#syntax-e _%tl2652626574%_))) - (let ((_%hd2652826581%_ + (##cdr _%e2662326666%_)))) + (if (gx#stx-pair? _%tl2662526673%_) + (let ((_%e2662626676%_ + (gx#syntax-e _%tl2662526673%_))) + (let ((_%hd2662726680%_ (let () (declare (not safe)) - (##car _%e2652726577%_))) - (_%tl2652926584%_ + (##car _%e2662626676%_))) + (_%tl2662826683%_ (let () (declare (not safe)) - (##cdr _%e2652726577%_)))) - (if (gx#stx-pair? _%tl2652926584%_) - (let ((_%e2653026587%_ + (##cdr _%e2662626676%_)))) + (if (gx#stx-pair? _%tl2662826683%_) + (let ((_%e2662926686%_ (gx#syntax-e - _%tl2652926584%_))) - (let ((_%hd2653126591%_ + _%tl2662826683%_))) + (let ((_%hd2663026690%_ (let () (declare (not safe)) - (##car _%e2653026587%_))) - (_%tl2653226594%_ + (##car _%e2662926686%_))) + (_%tl2663126693%_ (let () (declare (not safe)) - (##cdr _%e2653026587%_)))) + (##cdr _%e2662926686%_)))) (if (gx#stx-pair/null? - _%hd2653126591%_) - (let ((_g27241_ + _%hd2663026690%_) + (let ((_g27340_ (gx#syntax-split-splice - _%hd2653126591%_ + _%hd2663026690%_ '0))) (begin - (let ((_g27242_ + (let ((_g27341_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g27241_) - (##vector-length _g27241_) + (if (##values? _g27340_) + (##values-length _g27340_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27242_ 2))) - (error "Context expects 2 values" _g27242_))) - (let ((_%target2653326597%_ + (if (not (let () (declare (not safe)) (##fx= _g27341_ 2))) + (error "Context expects 2 values" _g27341_))) + (let ((_%target2663226696%_ (let () (declare (not safe)) - (##vector-ref _g27241_ 0))) - (_%tl2653526600%_ + (##values-ref _g27340_ 0))) + (_%tl2663426699%_ (let () (declare (not safe)) - (##vector-ref _g27241_ 1)))) - (if (gx#stx-null? _%tl2653526600%_) - (letrec ((_%loop2653626603%_ - (lambda (_%hd2653426607%_ - _%super2654026610%_) - (if (gx#stx-pair? _%hd2653426607%_) - (let ((_%e2653726613%_ - (gx#syntax-e _%hd2653426607%_))) - (let ((_%lp-hd2653826617%_ + (##values-ref _g27340_ 1)))) + (if (gx#stx-null? _%tl2663426699%_) + (letrec ((_%loop2663526702%_ + (lambda (_%hd2663326706%_ + _%super2663926709%_) + (if (gx#stx-pair? _%hd2663326706%_) + (let ((_%e2663626712%_ + (gx#syntax-e _%hd2663326706%_))) + (let ((_%lp-hd2663726716%_ (let () (declare (not safe)) - (##car _%e2653726613%_))) - (_%lp-tl2653926620%_ + (##car _%e2663626712%_))) + (_%lp-tl2663826719%_ (let () (declare (not safe)) - (##cdr _%e2653726613%_)))) - (_%loop2653626603%_ - _%lp-tl2653926620%_ - (cons _%lp-hd2653826617%_ - _%super2654026610%_)))) - (let ((_%super2654126623%_ - (reverse _%super2654026610%_))) - (if (gx#stx-pair? _%tl2653226594%_) - (let ((_%e2654226627%_ + (##cdr _%e2663626712%_)))) + (_%loop2663526702%_ + _%lp-tl2663826719%_ + (cons _%lp-hd2663726716%_ + _%super2663926709%_)))) + (let ((_%super2664026722%_ + (reverse _%super2663926709%_))) + (if (gx#stx-pair? _%tl2663126693%_) + (let ((_%e2664126726%_ (gx#syntax-e - _%tl2653226594%_))) - (let ((_%hd2654326631%_ + _%tl2663126693%_))) + (let ((_%hd2664226730%_ (let () (declare (not safe)) - (##car _%e2654226627%_))) - (_%tl2654426634%_ + (##car _%e2664126726%_))) + (_%tl2664326733%_ (let () (declare (not safe)) - (##cdr _%e2654226627%_)))) + (##cdr _%e2664126726%_)))) (if (gx#stx-null? - _%tl2654426634%_) - ((lambda (_%L26637%_ - _%L26639%_ - _%L26640%_ - _%L26641%_) - (let* ((_%klass26668%_ + _%tl2664326733%_) + ((lambda (_%L26736%_ + _%L26738%_ + _%L26739%_ + _%L26740%_) + (let* ((_%klass26767%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#eval-syntax _%L26640%_)) - (_%g2667126686%_ - (lambda (_%g2667226682%_) + (gx#eval-syntax _%L26739%_)) + (_%g2677026785%_ + (lambda (_%g2677126781%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2667226682%_))) - (_%g2667026740%_ - (lambda (_%g2667226690%_) - (if (gx#stx-pair? _%g2667226690%_) - (let ((_%e2667526693%_ - (gx#syntax-e _%g2667226690%_))) - (let ((_%hd2667626697%_ + _%g2677126781%_))) + (_%g2676926839%_ + (lambda (_%g2677126789%_) + (if (gx#stx-pair? _%g2677126789%_) + (let ((_%e2677426792%_ + (gx#syntax-e _%g2677126789%_))) + (let ((_%hd2677526796%_ (let () (declare (not safe)) - (##car _%e2667526693%_))) - (_%tl2667726700%_ + (##car _%e2677426792%_))) + (_%tl2677626799%_ (let () (declare (not safe)) - (##cdr _%e2667526693%_)))) - (if (gx#stx-pair? _%tl2667726700%_) - (let ((_%e2667826703%_ - (gx#syntax-e _%tl2667726700%_))) - (let ((_%hd2667926707%_ + (##cdr _%e2677426792%_)))) + (if (gx#stx-pair? _%tl2677626799%_) + (let ((_%e2677726802%_ + (gx#syntax-e _%tl2677626799%_))) + (let ((_%hd2677826806%_ (let () (declare (not safe)) - (##car _%e2667826703%_))) - (_%tl2668026710%_ + (##car _%e2677726802%_))) + (_%tl2677926809%_ (let () (declare (not safe)) - (##cdr _%e2667826703%_)))) - (if (gx#stx-null? _%tl2668026710%_) - ((lambda (_%L26713%_ _%L26715%_) + (##cdr _%e2677726802%_)))) + (if (gx#stx-null? _%tl2677926809%_) + ((lambda (_%L26812%_ _%L26814%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L26641%_ + (cons _%L26740%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1459,25 +1459,25 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L26715%_ '())) + (cons _%L26814%_ '())) (cons 'name: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L26713%_ '())) + (cons _%L26812%_ '())) (cons 'super: (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2673126734%_ - _%g2673226737%_) + (foldr (lambda (_%g2683026833%_ + _%g2683126836%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2673126734%_ + (cons _%g2683026833%_ '())) - _%g2673226737%_)) + _%g2683126836%_)) '() - _%L26639%_)) + _%L26738%_)) (cons 'slots: (cons (cons (gx#datum->syntax '#f '@list) '()) @@ -1488,12 +1488,12 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L26640%_ '())) + (cons _%L26739%_ '())) (cons 'predicate: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L26637%_ '())) + (cons _%L26736%_ '())) (cons 'accessors: (cons (cons (gx#datum->syntax '#f @@ -1518,35 +1518,35 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd2667926707%_ - _%hd2667626697%_) - (_%g2667126686%_ - _%g2667226690%_)))) - (_%g2667126686%_ _%g2667226690%_)))) - (_%g2667126686%_ _%g2667226690%_))))) - (_%g2667026740%_ - (list (class-type-id _%klass26668%_) - (class-type-name _%klass26668%_))))) - _%hd2654326631%_ - _%super2654126623%_ - _%hd2652826581%_ - _%hd2652526571%_) - (_%g2651526550%_ _%g2651626554%_)))) + _%hd2677826806%_ + _%hd2677526796%_) + (_%g2677026785%_ + _%g2677126789%_)))) + (_%g2677026785%_ _%g2677126789%_)))) + (_%g2677026785%_ _%g2677126789%_))))) + (_%g2676926839%_ + (list (class-type-id _%klass26767%_) + (class-type-name _%klass26767%_))))) + _%hd2664226730%_ + _%super2664026722%_ + _%hd2662726680%_ + _%hd2662426670%_) + (_%g2661426649%_ _%g2661526653%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2651526550%_ - _%g2651626554%_))))))) - (_%loop2653626603%_ _%target2653326597%_ '())) - (_%g2651526550%_ _%g2651626554%_))))) - (_%g2651526550%_ _%g2651626554%_)))) + (_%g2661426649%_ + _%g2661526653%_))))))) + (_%loop2663526702%_ _%target2663226696%_ '())) + (_%g2661426649%_ _%g2661526653%_))))) + (_%g2661426649%_ _%g2661526653%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2651526550%_ - _%g2651626554%_)))) - (_%g2651526550%_ _%g2651626554%_)))) - (_%g2651526550%_ _%g2651626554%_)))) - (_%g2651526550%_ _%g2651626554%_))))) - (_%g2651426744%_ _%stx26512%_)))) + (_%g2661426649%_ + _%g2661526653%_)))) + (_%g2661426649%_ _%g2661526653%_)))) + (_%g2661426649%_ _%g2661526653%_)))) + (_%g2661426649%_ _%g2661526653%_))))) + (_%g2661326843%_ _%stx26611%_)))) (define |gerbil/core/mop~MOP-5[:0:]#:t| - (let ((__obj27027 + (let ((__obj27126 (let () (declare (not safe)) (##structure @@ -1574,40 +1574,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 't '1 '#f '#f)) + (##unchecked-structure-set! __obj27126 't '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 't '2 '#f '#f)) + (##unchecked-structure-set! __obj27126 't '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj27126 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27126 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '#t '9 '#f '#f)) - (let ((__tmp27243 |gerbil/core/mop~MOP-5[1]#_g27244_|)) + (##unchecked-structure-set! __obj27126 '#t '9 '#f '#f)) + (let ((__tmp27342 |gerbil/core/mop~MOP-5[1]#_g27343_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27027 __tmp27243 '12 '#f '#f)) - (let ((__tmp27245 |gerbil/core/mop~MOP-5[1]#_g27246_|)) + (##unchecked-structure-set! __obj27126 __tmp27342 '12 '#f '#f)) + (let ((__tmp27344 |gerbil/core/mop~MOP-5[1]#_g27345_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27027 __tmp27245 '14 '#f '#f)) + (##unchecked-structure-set! __obj27126 __tmp27344 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27126 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27126 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27126 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '() '18 '#f '#f)) - __obj27027)) + (##unchecked-structure-set! __obj27126 '() '18 '#f '#f)) + __obj27126)) (define |gerbil/core/mop~MOP-5[:0:]#:class| - (let ((__obj27028 + (let ((__obj27127 (let () (declare (not safe)) (##structure @@ -1635,40 +1635,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 'class '1 '#f '#f)) + (##unchecked-structure-set! __obj27127 'class '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 'class '2 '#f '#f)) - (let ((__tmp27247 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27127 'class '2 '#f '#f)) + (let ((__tmp27346 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27028 __tmp27247 '3 '#f '#f)) + (##unchecked-structure-set! __obj27127 __tmp27346 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27127 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '#t '9 '#f '#f)) - (let ((__tmp27249 |gerbil/core/mop~MOP-5[1]#_g27250_|)) + (##unchecked-structure-set! __obj27127 '#t '9 '#f '#f)) + (let ((__tmp27348 |gerbil/core/mop~MOP-5[1]#_g27349_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27028 __tmp27249 '12 '#f '#f)) - (let ((__tmp27251 |gerbil/core/mop~MOP-5[1]#_g27252_|)) + (##unchecked-structure-set! __obj27127 __tmp27348 '12 '#f '#f)) + (let ((__tmp27350 |gerbil/core/mop~MOP-5[1]#_g27351_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27028 __tmp27251 '14 '#f '#f)) + (##unchecked-structure-set! __obj27127 __tmp27350 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27127 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27127 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27127 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '() '18 '#f '#f)) - __obj27028)) + (##unchecked-structure-set! __obj27127 '() '18 '#f '#f)) + __obj27127)) (define |gerbil/core/mop~MOP-5[:0:]#class| - (let ((__obj27029 + (let ((__obj27128 (let () (declare (not safe)) (##structure @@ -1696,17 +1696,17 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 'class '1 '#f '#f)) + (##unchecked-structure-set! __obj27128 'class '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 'class '2 '#f '#f)) - (let ((__tmp27253 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27128 'class '2 '#f '#f)) + (let ((__tmp27352 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27029 __tmp27253 '3 '#f '#f)) + (##unchecked-structure-set! __obj27128 __tmp27352 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj27029 + __obj27128 '(id name super flags @@ -1722,77 +1722,77 @@ '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 '#t '7 '#f '#f)) - (let ((__tmp27254 |gerbil/core/mop~MOP-5[1]#_g27250_|)) + (##unchecked-structure-set! __obj27128 '#t '7 '#f '#f)) + (let ((__tmp27353 |gerbil/core/mop~MOP-5[1]#_g27349_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27029 __tmp27254 '12 '#f '#f)) - (let ((__tmp27255 |gerbil/core/mop~MOP-5[1]#_g27256_|)) + (##unchecked-structure-set! __obj27128 __tmp27353 '12 '#f '#f)) + (let ((__tmp27354 |gerbil/core/mop~MOP-5[1]#_g27355_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27029 __tmp27255 '13 '#f '#f)) - (let ((__tmp27257 |gerbil/core/mop~MOP-5[1]#_g27252_|)) + (##unchecked-structure-set! __obj27128 __tmp27354 '13 '#f '#f)) + (let ((__tmp27356 |gerbil/core/mop~MOP-5[1]#_g27351_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27029 __tmp27257 '14 '#f '#f)) - (let ((__tmp27258 - (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27259_|) - (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27260_|) + (##unchecked-structure-set! __obj27128 __tmp27356 '14 '#f '#f)) + (let ((__tmp27357 + (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27358_|) + (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27359_|) (cons (cons 'super - |gerbil/core/mop~MOP-5[1]#_g27261_|) + |gerbil/core/mop~MOP-5[1]#_g27360_|) (cons (cons 'flags - |gerbil/core/mop~MOP-5[1]#_g27262_|) + |gerbil/core/mop~MOP-5[1]#_g27361_|) (cons (cons 'fields - |gerbil/core/mop~MOP-5[1]#_g27263_|) + |gerbil/core/mop~MOP-5[1]#_g27362_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-5[1]#_g27264_|) + |gerbil/core/mop~MOP-5[1]#_g27363_|) (cons (cons 'slot-vector - |gerbil/core/mop~MOP-5[1]#_g27265_|) + |gerbil/core/mop~MOP-5[1]#_g27364_|) (cons (cons 'slot-table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-5[1]#_g27266_|) + |gerbil/core/mop~MOP-5[1]#_g27365_|) (cons (cons 'properties - |gerbil/core/mop~MOP-5[1]#_g27267_|) + |gerbil/core/mop~MOP-5[1]#_g27366_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-5[1]#_g27268_|) + |gerbil/core/mop~MOP-5[1]#_g27367_|) (cons (cons 'methods - |gerbil/core/mop~MOP-5[1]#_g27269_|) + |gerbil/core/mop~MOP-5[1]#_g27368_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27029 __tmp27258 '15 '#f '#f)) + (##unchecked-structure-set! __obj27128 __tmp27357 '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 '() '16 '#f '#f)) - (let ((__tmp27270 - (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27271_|) - (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27272_|) + (##unchecked-structure-set! __obj27128 '() '16 '#f '#f)) + (let ((__tmp27369 + (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27370_|) + (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27371_|) (cons (cons 'super - |gerbil/core/mop~MOP-5[1]#_g27273_|) + |gerbil/core/mop~MOP-5[1]#_g27372_|) (cons (cons 'flags - |gerbil/core/mop~MOP-5[1]#_g27274_|) + |gerbil/core/mop~MOP-5[1]#_g27373_|) (cons (cons 'fields - |gerbil/core/mop~MOP-5[1]#_g27275_|) + |gerbil/core/mop~MOP-5[1]#_g27374_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-5[1]#_g27276_|) + |gerbil/core/mop~MOP-5[1]#_g27375_|) (cons (cons 'slot-vector - |gerbil/core/mop~MOP-5[1]#_g27277_|) + |gerbil/core/mop~MOP-5[1]#_g27376_|) (cons (cons 'slot-table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-5[1]#_g27278_|) + |gerbil/core/mop~MOP-5[1]#_g27377_|) (cons (cons 'properties - |gerbil/core/mop~MOP-5[1]#_g27279_|) + |gerbil/core/mop~MOP-5[1]#_g27378_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-5[1]#_g27280_|) + |gerbil/core/mop~MOP-5[1]#_g27379_|) (cons (cons 'methods - |gerbil/core/mop~MOP-5[1]#_g27281_|) + |gerbil/core/mop~MOP-5[1]#_g27380_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27029 __tmp27270 '17 '#f '#f)) + (##unchecked-structure-set! __obj27128 __tmp27369 '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 '() '18 '#f '#f)) - __obj27029)) + (##unchecked-structure-set! __obj27128 '() '18 '#f '#f)) + __obj27128)) (define |gerbil/core/mop~MOP-5[:0:]#:object| - (let ((__obj27030 + (let ((__obj27129 (let () (declare (not safe)) (##structure @@ -1820,40 +1820,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 'object '1 '#f '#f)) + (##unchecked-structure-set! __obj27129 'object '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 'object '2 '#f '#f)) - (let ((__tmp27282 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27129 'object '2 '#f '#f)) + (let ((__tmp27381 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27030 __tmp27282 '3 '#f '#f)) + (##unchecked-structure-set! __obj27129 __tmp27381 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27129 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '#t '9 '#f '#f)) - (let ((__tmp27283 |gerbil/core/mop~MOP-5[1]#_g27284_|)) + (##unchecked-structure-set! __obj27129 '#t '9 '#f '#f)) + (let ((__tmp27382 |gerbil/core/mop~MOP-5[1]#_g27383_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27030 __tmp27283 '12 '#f '#f)) - (let ((__tmp27285 |gerbil/core/mop~MOP-5[1]#_g27246_|)) + (##unchecked-structure-set! __obj27129 __tmp27382 '12 '#f '#f)) + (let ((__tmp27384 |gerbil/core/mop~MOP-5[1]#_g27345_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27030 __tmp27285 '14 '#f '#f)) + (##unchecked-structure-set! __obj27129 __tmp27384 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27129 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27129 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27129 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '() '18 '#f '#f)) - __obj27030)) + (##unchecked-structure-set! __obj27129 '() '18 '#f '#f)) + __obj27129)) (define |gerbil/core/mop~MOP-5[:0:]#:immediate| - (let ((__obj27031 + (let ((__obj27130 (let () (declare (not safe)) (##structure @@ -1881,40 +1881,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 'immediate '1 '#f '#f)) + (##unchecked-structure-set! __obj27130 'immediate '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 'immediate '2 '#f '#f)) - (let ((__tmp27286 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27130 'immediate '2 '#f '#f)) + (let ((__tmp27385 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27031 __tmp27286 '3 '#f '#f)) + (##unchecked-structure-set! __obj27130 __tmp27385 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27130 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '#t '9 '#f '#f)) - (let ((__tmp27287 |gerbil/core/mop~MOP-5[1]#_g27288_|)) + (##unchecked-structure-set! __obj27130 '#t '9 '#f '#f)) + (let ((__tmp27386 |gerbil/core/mop~MOP-5[1]#_g27387_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27031 __tmp27287 '12 '#f '#f)) - (let ((__tmp27289 |gerbil/core/mop~MOP-5[1]#_g27290_|)) + (##unchecked-structure-set! __obj27130 __tmp27386 '12 '#f '#f)) + (let ((__tmp27388 |gerbil/core/mop~MOP-5[1]#_g27389_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27031 __tmp27289 '14 '#f '#f)) + (##unchecked-structure-set! __obj27130 __tmp27388 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27130 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27130 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27130 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '() '18 '#f '#f)) - __obj27031)) + (##unchecked-structure-set! __obj27130 '() '18 '#f '#f)) + __obj27130)) (define |gerbil/core/mop~MOP-5[:0:]#:char| - (let ((__obj27032 + (let ((__obj27131 (let () (declare (not safe)) (##structure @@ -1942,40 +1942,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 'char '1 '#f '#f)) + (##unchecked-structure-set! __obj27131 'char '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 'char '2 '#f '#f)) - (let ((__tmp27291 (cons |gerbil/core/mop~MOP-5[1]#_g27292_| '()))) + (##unchecked-structure-set! __obj27131 'char '2 '#f '#f)) + (let ((__tmp27390 (cons |gerbil/core/mop~MOP-5[1]#_g27391_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27032 __tmp27291 '3 '#f '#f)) + (##unchecked-structure-set! __obj27131 __tmp27390 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27131 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '#t '9 '#f '#f)) - (let ((__tmp27293 |gerbil/core/mop~MOP-5[1]#_g27294_|)) + (##unchecked-structure-set! __obj27131 '#t '9 '#f '#f)) + (let ((__tmp27392 |gerbil/core/mop~MOP-5[1]#_g27393_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27032 __tmp27293 '12 '#f '#f)) - (let ((__tmp27295 |gerbil/core/mop~MOP-5[1]#_g27296_|)) + (##unchecked-structure-set! __obj27131 __tmp27392 '12 '#f '#f)) + (let ((__tmp27394 |gerbil/core/mop~MOP-5[1]#_g27395_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27032 __tmp27295 '14 '#f '#f)) + (##unchecked-structure-set! __obj27131 __tmp27394 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27131 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27131 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27131 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '() '18 '#f '#f)) - __obj27032)) + (##unchecked-structure-set! __obj27131 '() '18 '#f '#f)) + __obj27131)) (define |gerbil/core/mop~MOP-5[:0:]#:boolean| - (let ((__obj27033 + (let ((__obj27132 (let () (declare (not safe)) (##structure @@ -2003,40 +2003,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 'boolean '1 '#f '#f)) + (##unchecked-structure-set! __obj27132 'boolean '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 'boolean '2 '#f '#f)) - (let ((__tmp27297 (cons |gerbil/core/mop~MOP-5[1]#_g27292_| '()))) + (##unchecked-structure-set! __obj27132 'boolean '2 '#f '#f)) + (let ((__tmp27396 (cons |gerbil/core/mop~MOP-5[1]#_g27391_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27033 __tmp27297 '3 '#f '#f)) + (##unchecked-structure-set! __obj27132 __tmp27396 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27132 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '#t '9 '#f '#f)) - (let ((__tmp27298 |gerbil/core/mop~MOP-5[1]#_g27299_|)) + (##unchecked-structure-set! __obj27132 '#t '9 '#f '#f)) + (let ((__tmp27397 |gerbil/core/mop~MOP-5[1]#_g27398_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27033 __tmp27298 '12 '#f '#f)) - (let ((__tmp27300 |gerbil/core/mop~MOP-5[1]#_g27301_|)) + (##unchecked-structure-set! __obj27132 __tmp27397 '12 '#f '#f)) + (let ((__tmp27399 |gerbil/core/mop~MOP-5[1]#_g27400_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27033 __tmp27300 '14 '#f '#f)) + (##unchecked-structure-set! __obj27132 __tmp27399 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27132 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27132 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27132 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '() '18 '#f '#f)) - __obj27033)) + (##unchecked-structure-set! __obj27132 '() '18 '#f '#f)) + __obj27132)) (define |gerbil/core/mop~MOP-5[:0:]#:atom| - (let ((__obj27034 + (let ((__obj27133 (let () (declare (not safe)) (##structure @@ -2064,40 +2064,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 'atom '1 '#f '#f)) + (##unchecked-structure-set! __obj27133 'atom '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 'atom '2 '#f '#f)) - (let ((__tmp27302 (cons |gerbil/core/mop~MOP-5[1]#_g27292_| '()))) + (##unchecked-structure-set! __obj27133 'atom '2 '#f '#f)) + (let ((__tmp27401 (cons |gerbil/core/mop~MOP-5[1]#_g27391_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27034 __tmp27302 '3 '#f '#f)) + (##unchecked-structure-set! __obj27133 __tmp27401 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27133 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '#t '9 '#f '#f)) - (let ((__tmp27303 |gerbil/core/mop~MOP-5[1]#_g27304_|)) + (##unchecked-structure-set! __obj27133 '#t '9 '#f '#f)) + (let ((__tmp27402 |gerbil/core/mop~MOP-5[1]#_g27403_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27034 __tmp27303 '12 '#f '#f)) - (let ((__tmp27305 |gerbil/core/mop~MOP-5[1]#_g27306_|)) + (##unchecked-structure-set! __obj27133 __tmp27402 '12 '#f '#f)) + (let ((__tmp27404 |gerbil/core/mop~MOP-5[1]#_g27405_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27034 __tmp27305 '14 '#f '#f)) + (##unchecked-structure-set! __obj27133 __tmp27404 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27133 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27133 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27133 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '() '18 '#f '#f)) - __obj27034)) + (##unchecked-structure-set! __obj27133 '() '18 '#f '#f)) + __obj27133)) (define |gerbil/core/mop~MOP-5[:0:]#:void| - (let ((__obj27035 + (let ((__obj27134 (let () (declare (not safe)) (##structure @@ -2125,40 +2125,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 'void '1 '#f '#f)) + (##unchecked-structure-set! __obj27134 'void '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 'void '2 '#f '#f)) - (let ((__tmp27307 (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '()))) + (##unchecked-structure-set! __obj27134 'void '2 '#f '#f)) + (let ((__tmp27406 (cons |gerbil/core/mop~MOP-5[1]#_g27407_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27035 __tmp27307 '3 '#f '#f)) + (##unchecked-structure-set! __obj27134 __tmp27406 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27134 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '#t '9 '#f '#f)) - (let ((__tmp27309 |gerbil/core/mop~MOP-5[1]#_g27310_|)) + (##unchecked-structure-set! __obj27134 '#t '9 '#f '#f)) + (let ((__tmp27408 |gerbil/core/mop~MOP-5[1]#_g27409_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27035 __tmp27309 '12 '#f '#f)) - (let ((__tmp27311 |gerbil/core/mop~MOP-5[1]#_g27312_|)) + (##unchecked-structure-set! __obj27134 __tmp27408 '12 '#f '#f)) + (let ((__tmp27410 |gerbil/core/mop~MOP-5[1]#_g27411_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27035 __tmp27311 '14 '#f '#f)) + (##unchecked-structure-set! __obj27134 __tmp27410 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27134 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27134 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27134 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '() '18 '#f '#f)) - __obj27035)) + (##unchecked-structure-set! __obj27134 '() '18 '#f '#f)) + __obj27134)) (define |gerbil/core/mop~MOP-5[:0:]#:eof| - (let ((__obj27036 + (let ((__obj27135 (let () (declare (not safe)) (##structure @@ -2186,40 +2186,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 'eof '1 '#f '#f)) + (##unchecked-structure-set! __obj27135 'eof '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 'eof '2 '#f '#f)) - (let ((__tmp27313 (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '()))) + (##unchecked-structure-set! __obj27135 'eof '2 '#f '#f)) + (let ((__tmp27412 (cons |gerbil/core/mop~MOP-5[1]#_g27407_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27036 __tmp27313 '3 '#f '#f)) + (##unchecked-structure-set! __obj27135 __tmp27412 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27135 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '#t '9 '#f '#f)) - (let ((__tmp27314 |gerbil/core/mop~MOP-5[1]#_g27315_|)) + (##unchecked-structure-set! __obj27135 '#t '9 '#f '#f)) + (let ((__tmp27413 |gerbil/core/mop~MOP-5[1]#_g27414_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27036 __tmp27314 '12 '#f '#f)) - (let ((__tmp27316 |gerbil/core/mop~MOP-5[1]#_g27317_|)) + (##unchecked-structure-set! __obj27135 __tmp27413 '12 '#f '#f)) + (let ((__tmp27415 |gerbil/core/mop~MOP-5[1]#_g27416_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27036 __tmp27316 '14 '#f '#f)) + (##unchecked-structure-set! __obj27135 __tmp27415 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27135 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27135 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27135 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '() '18 '#f '#f)) - __obj27036)) + (##unchecked-structure-set! __obj27135 '() '18 '#f '#f)) + __obj27135)) (define |gerbil/core/mop~MOP-5[:0:]#:true| - (let ((__obj27037 + (let ((__obj27136 (let () (declare (not safe)) (##structure @@ -2247,42 +2247,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 'true '1 '#f '#f)) + (##unchecked-structure-set! __obj27136 'true '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 'true '2 '#f '#f)) - (let ((__tmp27318 - (cons |gerbil/core/mop~MOP-5[1]#_g27319_| - (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '())))) + (##unchecked-structure-set! __obj27136 'true '2 '#f '#f)) + (let ((__tmp27417 + (cons |gerbil/core/mop~MOP-5[1]#_g27418_| + (cons |gerbil/core/mop~MOP-5[1]#_g27407_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27037 __tmp27318 '3 '#f '#f)) + (##unchecked-structure-set! __obj27136 __tmp27417 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27136 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '#t '9 '#f '#f)) - (let ((__tmp27320 |gerbil/core/mop~MOP-5[1]#_g27321_|)) + (##unchecked-structure-set! __obj27136 '#t '9 '#f '#f)) + (let ((__tmp27419 |gerbil/core/mop~MOP-5[1]#_g27420_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27037 __tmp27320 '12 '#f '#f)) - (let ((__tmp27322 |gerbil/core/mop~MOP-5[1]#_g27323_|)) + (##unchecked-structure-set! __obj27136 __tmp27419 '12 '#f '#f)) + (let ((__tmp27421 |gerbil/core/mop~MOP-5[1]#_g27422_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27037 __tmp27322 '14 '#f '#f)) + (##unchecked-structure-set! __obj27136 __tmp27421 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27136 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27136 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27136 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '() '18 '#f '#f)) - __obj27037)) + (##unchecked-structure-set! __obj27136 '() '18 '#f '#f)) + __obj27136)) (define |gerbil/core/mop~MOP-5[:0:]#:false| - (let ((__obj27038 + (let ((__obj27137 (let () (declare (not safe)) (##structure @@ -2310,42 +2310,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 'false '1 '#f '#f)) + (##unchecked-structure-set! __obj27137 'false '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 'false '2 '#f '#f)) - (let ((__tmp27324 - (cons |gerbil/core/mop~MOP-5[1]#_g27319_| - (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '())))) + (##unchecked-structure-set! __obj27137 'false '2 '#f '#f)) + (let ((__tmp27423 + (cons |gerbil/core/mop~MOP-5[1]#_g27418_| + (cons |gerbil/core/mop~MOP-5[1]#_g27407_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27038 __tmp27324 '3 '#f '#f)) + (##unchecked-structure-set! __obj27137 __tmp27423 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27137 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '#t '9 '#f '#f)) - (let ((__tmp27325 |gerbil/core/mop~MOP-5[1]#_g27326_|)) + (##unchecked-structure-set! __obj27137 '#t '9 '#f '#f)) + (let ((__tmp27424 |gerbil/core/mop~MOP-5[1]#_g27425_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27038 __tmp27325 '12 '#f '#f)) - (let ((__tmp27327 |gerbil/core/mop~MOP-5[1]#_g27328_|)) + (##unchecked-structure-set! __obj27137 __tmp27424 '12 '#f '#f)) + (let ((__tmp27426 |gerbil/core/mop~MOP-5[1]#_g27427_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27038 __tmp27327 '14 '#f '#f)) + (##unchecked-structure-set! __obj27137 __tmp27426 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27137 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27137 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27137 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '() '18 '#f '#f)) - __obj27038)) + (##unchecked-structure-set! __obj27137 '() '18 '#f '#f)) + __obj27137)) (define |gerbil/core/mop~MOP-5[:0:]#:special| - (let ((__obj27039 + (let ((__obj27138 (let () (declare (not safe)) (##structure @@ -2373,40 +2373,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 'special '1 '#f '#f)) + (##unchecked-structure-set! __obj27138 'special '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 'special '2 '#f '#f)) - (let ((__tmp27329 (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '()))) + (##unchecked-structure-set! __obj27138 'special '2 '#f '#f)) + (let ((__tmp27428 (cons |gerbil/core/mop~MOP-5[1]#_g27407_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27039 __tmp27329 '3 '#f '#f)) + (##unchecked-structure-set! __obj27138 __tmp27428 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27138 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '#t '9 '#f '#f)) - (let ((__tmp27330 |gerbil/core/mop~MOP-5[1]#_g27331_|)) + (##unchecked-structure-set! __obj27138 '#t '9 '#f '#f)) + (let ((__tmp27429 |gerbil/core/mop~MOP-5[1]#_g27430_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27039 __tmp27330 '12 '#f '#f)) - (let ((__tmp27332 |gerbil/core/mop~MOP-5[1]#_g27333_|)) + (##unchecked-structure-set! __obj27138 __tmp27429 '12 '#f '#f)) + (let ((__tmp27431 |gerbil/core/mop~MOP-5[1]#_g27432_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27039 __tmp27332 '14 '#f '#f)) + (##unchecked-structure-set! __obj27138 __tmp27431 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27138 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27138 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27138 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '() '18 '#f '#f)) - __obj27039)) + (##unchecked-structure-set! __obj27138 '() '18 '#f '#f)) + __obj27138)) (define |gerbil/core/mop~MOP-5[:0:]#:number| - (let ((__obj27040 + (let ((__obj27139 (let () (declare (not safe)) (##structure @@ -2434,40 +2434,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 'number '1 '#f '#f)) + (##unchecked-structure-set! __obj27139 'number '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 'number '2 '#f '#f)) - (let ((__tmp27334 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27139 'number '2 '#f '#f)) + (let ((__tmp27433 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27040 __tmp27334 '3 '#f '#f)) + (##unchecked-structure-set! __obj27139 __tmp27433 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27139 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '#t '9 '#f '#f)) - (let ((__tmp27335 |gerbil/core/mop~MOP-5[1]#_g27336_|)) + (##unchecked-structure-set! __obj27139 '#t '9 '#f '#f)) + (let ((__tmp27434 |gerbil/core/mop~MOP-5[1]#_g27435_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27040 __tmp27335 '12 '#f '#f)) - (let ((__tmp27337 |gerbil/core/mop~MOP-5[1]#_g27338_|)) + (##unchecked-structure-set! __obj27139 __tmp27434 '12 '#f '#f)) + (let ((__tmp27436 |gerbil/core/mop~MOP-5[1]#_g27437_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27040 __tmp27337 '14 '#f '#f)) + (##unchecked-structure-set! __obj27139 __tmp27436 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27139 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27139 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27139 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '() '18 '#f '#f)) - __obj27040)) + (##unchecked-structure-set! __obj27139 '() '18 '#f '#f)) + __obj27139)) (define |gerbil/core/mop~MOP-5[:0:]#:real| - (let ((__obj27041 + (let ((__obj27140 (let () (declare (not safe)) (##structure @@ -2495,40 +2495,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 'real '1 '#f '#f)) + (##unchecked-structure-set! __obj27140 'real '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 'real '2 '#f '#f)) - (let ((__tmp27339 (cons |gerbil/core/mop~MOP-5[1]#_g27340_| '()))) + (##unchecked-structure-set! __obj27140 'real '2 '#f '#f)) + (let ((__tmp27438 (cons |gerbil/core/mop~MOP-5[1]#_g27439_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27041 __tmp27339 '3 '#f '#f)) + (##unchecked-structure-set! __obj27140 __tmp27438 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27140 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '#t '9 '#f '#f)) - (let ((__tmp27341 |gerbil/core/mop~MOP-5[1]#_g27342_|)) + (##unchecked-structure-set! __obj27140 '#t '9 '#f '#f)) + (let ((__tmp27440 |gerbil/core/mop~MOP-5[1]#_g27441_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27041 __tmp27341 '12 '#f '#f)) - (let ((__tmp27343 |gerbil/core/mop~MOP-5[1]#_g27344_|)) + (##unchecked-structure-set! __obj27140 __tmp27440 '12 '#f '#f)) + (let ((__tmp27442 |gerbil/core/mop~MOP-5[1]#_g27443_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27041 __tmp27343 '14 '#f '#f)) + (##unchecked-structure-set! __obj27140 __tmp27442 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27140 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27140 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27140 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '() '18 '#f '#f)) - __obj27041)) + (##unchecked-structure-set! __obj27140 '() '18 '#f '#f)) + __obj27140)) (define |gerbil/core/mop~MOP-5[:0:]#:integer| - (let ((__obj27042 + (let ((__obj27141 (let () (declare (not safe)) (##structure @@ -2556,40 +2556,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 'integer '1 '#f '#f)) + (##unchecked-structure-set! __obj27141 'integer '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 'integer '2 '#f '#f)) - (let ((__tmp27345 (cons |gerbil/core/mop~MOP-5[1]#_g27346_| '()))) + (##unchecked-structure-set! __obj27141 'integer '2 '#f '#f)) + (let ((__tmp27444 (cons |gerbil/core/mop~MOP-5[1]#_g27445_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27042 __tmp27345 '3 '#f '#f)) + (##unchecked-structure-set! __obj27141 __tmp27444 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27141 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '#t '9 '#f '#f)) - (let ((__tmp27347 |gerbil/core/mop~MOP-5[1]#_g27348_|)) + (##unchecked-structure-set! __obj27141 '#t '9 '#f '#f)) + (let ((__tmp27446 |gerbil/core/mop~MOP-5[1]#_g27447_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27042 __tmp27347 '12 '#f '#f)) - (let ((__tmp27349 |gerbil/core/mop~MOP-5[1]#_g27350_|)) + (##unchecked-structure-set! __obj27141 __tmp27446 '12 '#f '#f)) + (let ((__tmp27448 |gerbil/core/mop~MOP-5[1]#_g27449_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27042 __tmp27349 '14 '#f '#f)) + (##unchecked-structure-set! __obj27141 __tmp27448 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27141 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27141 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27141 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '() '18 '#f '#f)) - __obj27042)) + (##unchecked-structure-set! __obj27141 '() '18 '#f '#f)) + __obj27141)) (define |gerbil/core/mop~MOP-5[:0:]#:fixnum| - (let ((__obj27043 + (let ((__obj27142 (let () (declare (not safe)) (##structure @@ -2617,42 +2617,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 'fixnum '1 '#f '#f)) + (##unchecked-structure-set! __obj27142 'fixnum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 'fixnum '2 '#f '#f)) - (let ((__tmp27351 - (cons |gerbil/core/mop~MOP-5[1]#_g27352_| - (cons |gerbil/core/mop~MOP-5[1]#_g27292_| '())))) + (##unchecked-structure-set! __obj27142 'fixnum '2 '#f '#f)) + (let ((__tmp27450 + (cons |gerbil/core/mop~MOP-5[1]#_g27451_| + (cons |gerbil/core/mop~MOP-5[1]#_g27391_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27043 __tmp27351 '3 '#f '#f)) + (##unchecked-structure-set! __obj27142 __tmp27450 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27142 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '#t '9 '#f '#f)) - (let ((__tmp27353 |gerbil/core/mop~MOP-5[1]#_g27354_|)) + (##unchecked-structure-set! __obj27142 '#t '9 '#f '#f)) + (let ((__tmp27452 |gerbil/core/mop~MOP-5[1]#_g27453_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27043 __tmp27353 '12 '#f '#f)) - (let ((__tmp27355 |gerbil/core/mop~MOP-5[1]#_g27356_|)) + (##unchecked-structure-set! __obj27142 __tmp27452 '12 '#f '#f)) + (let ((__tmp27454 |gerbil/core/mop~MOP-5[1]#_g27455_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27043 __tmp27355 '14 '#f '#f)) + (##unchecked-structure-set! __obj27142 __tmp27454 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27142 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27142 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27142 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '() '18 '#f '#f)) - __obj27043)) + (##unchecked-structure-set! __obj27142 '() '18 '#f '#f)) + __obj27142)) (define |gerbil/core/mop~MOP-5[:0:]#:bignum| - (let ((__obj27044 + (let ((__obj27143 (let () (declare (not safe)) (##structure @@ -2680,40 +2680,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 'bignum '1 '#f '#f)) + (##unchecked-structure-set! __obj27143 'bignum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 'bignum '2 '#f '#f)) - (let ((__tmp27357 (cons |gerbil/core/mop~MOP-5[1]#_g27352_| '()))) + (##unchecked-structure-set! __obj27143 'bignum '2 '#f '#f)) + (let ((__tmp27456 (cons |gerbil/core/mop~MOP-5[1]#_g27451_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27044 __tmp27357 '3 '#f '#f)) + (##unchecked-structure-set! __obj27143 __tmp27456 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27143 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '#t '9 '#f '#f)) - (let ((__tmp27358 |gerbil/core/mop~MOP-5[1]#_g27359_|)) + (##unchecked-structure-set! __obj27143 '#t '9 '#f '#f)) + (let ((__tmp27457 |gerbil/core/mop~MOP-5[1]#_g27458_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27044 __tmp27358 '12 '#f '#f)) - (let ((__tmp27360 |gerbil/core/mop~MOP-5[1]#_g27361_|)) + (##unchecked-structure-set! __obj27143 __tmp27457 '12 '#f '#f)) + (let ((__tmp27459 |gerbil/core/mop~MOP-5[1]#_g27460_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27044 __tmp27360 '14 '#f '#f)) + (##unchecked-structure-set! __obj27143 __tmp27459 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27143 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27143 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27143 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '() '18 '#f '#f)) - __obj27044)) + (##unchecked-structure-set! __obj27143 '() '18 '#f '#f)) + __obj27143)) (define |gerbil/core/mop~MOP-5[:0:]#:ratnum| - (let ((__obj27045 + (let ((__obj27144 (let () (declare (not safe)) (##structure @@ -2741,40 +2741,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 'ratnum '1 '#f '#f)) + (##unchecked-structure-set! __obj27144 'ratnum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 'ratnum '2 '#f '#f)) - (let ((__tmp27362 (cons |gerbil/core/mop~MOP-5[1]#_g27346_| '()))) + (##unchecked-structure-set! __obj27144 'ratnum '2 '#f '#f)) + (let ((__tmp27461 (cons |gerbil/core/mop~MOP-5[1]#_g27445_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27045 __tmp27362 '3 '#f '#f)) + (##unchecked-structure-set! __obj27144 __tmp27461 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27144 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '#t '9 '#f '#f)) - (let ((__tmp27363 |gerbil/core/mop~MOP-5[1]#_g27364_|)) + (##unchecked-structure-set! __obj27144 '#t '9 '#f '#f)) + (let ((__tmp27462 |gerbil/core/mop~MOP-5[1]#_g27463_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27045 __tmp27363 '12 '#f '#f)) - (let ((__tmp27365 |gerbil/core/mop~MOP-5[1]#_g27366_|)) + (##unchecked-structure-set! __obj27144 __tmp27462 '12 '#f '#f)) + (let ((__tmp27464 |gerbil/core/mop~MOP-5[1]#_g27465_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27045 __tmp27365 '14 '#f '#f)) + (##unchecked-structure-set! __obj27144 __tmp27464 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27144 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27144 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27144 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '() '18 '#f '#f)) - __obj27045)) + (##unchecked-structure-set! __obj27144 '() '18 '#f '#f)) + __obj27144)) (define |gerbil/core/mop~MOP-5[:0:]#:flonum| - (let ((__obj27046 + (let ((__obj27145 (let () (declare (not safe)) (##structure @@ -2802,40 +2802,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 'flonum '1 '#f '#f)) + (##unchecked-structure-set! __obj27145 'flonum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 'flonum '2 '#f '#f)) - (let ((__tmp27367 (cons |gerbil/core/mop~MOP-5[1]#_g27346_| '()))) + (##unchecked-structure-set! __obj27145 'flonum '2 '#f '#f)) + (let ((__tmp27466 (cons |gerbil/core/mop~MOP-5[1]#_g27445_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27046 __tmp27367 '3 '#f '#f)) + (##unchecked-structure-set! __obj27145 __tmp27466 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27145 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '#t '9 '#f '#f)) - (let ((__tmp27368 |gerbil/core/mop~MOP-5[1]#_g27369_|)) + (##unchecked-structure-set! __obj27145 '#t '9 '#f '#f)) + (let ((__tmp27467 |gerbil/core/mop~MOP-5[1]#_g27468_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27046 __tmp27368 '12 '#f '#f)) - (let ((__tmp27370 |gerbil/core/mop~MOP-5[1]#_g27371_|)) + (##unchecked-structure-set! __obj27145 __tmp27467 '12 '#f '#f)) + (let ((__tmp27469 |gerbil/core/mop~MOP-5[1]#_g27470_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27046 __tmp27370 '14 '#f '#f)) + (##unchecked-structure-set! __obj27145 __tmp27469 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27145 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27145 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27145 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '() '18 '#f '#f)) - __obj27046)) + (##unchecked-structure-set! __obj27145 '() '18 '#f '#f)) + __obj27145)) (define |gerbil/core/mop~MOP-5[:0:]#:cpxnum| - (let ((__obj27047 + (let ((__obj27146 (let () (declare (not safe)) (##structure @@ -2863,40 +2863,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 'cpxnum '1 '#f '#f)) + (##unchecked-structure-set! __obj27146 'cpxnum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 'cpxnum '2 '#f '#f)) - (let ((__tmp27372 (cons |gerbil/core/mop~MOP-5[1]#_g27340_| '()))) + (##unchecked-structure-set! __obj27146 'cpxnum '2 '#f '#f)) + (let ((__tmp27471 (cons |gerbil/core/mop~MOP-5[1]#_g27439_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27047 __tmp27372 '3 '#f '#f)) + (##unchecked-structure-set! __obj27146 __tmp27471 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27146 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '#t '9 '#f '#f)) - (let ((__tmp27373 |gerbil/core/mop~MOP-5[1]#_g27374_|)) + (##unchecked-structure-set! __obj27146 '#t '9 '#f '#f)) + (let ((__tmp27472 |gerbil/core/mop~MOP-5[1]#_g27473_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27047 __tmp27373 '12 '#f '#f)) - (let ((__tmp27375 |gerbil/core/mop~MOP-5[1]#_g27376_|)) + (##unchecked-structure-set! __obj27146 __tmp27472 '12 '#f '#f)) + (let ((__tmp27474 |gerbil/core/mop~MOP-5[1]#_g27475_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27047 __tmp27375 '14 '#f '#f)) + (##unchecked-structure-set! __obj27146 __tmp27474 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27146 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27146 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27146 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '() '18 '#f '#f)) - __obj27047)) + (##unchecked-structure-set! __obj27146 '() '18 '#f '#f)) + __obj27146)) (define |gerbil/core/mop~MOP-5[:0:]#:symbolic| - (let ((__obj27048 + (let ((__obj27147 (let () (declare (not safe)) (##structure @@ -2924,40 +2924,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 'symbolic '1 '#f '#f)) + (##unchecked-structure-set! __obj27147 'symbolic '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 'symbolic '2 '#f '#f)) - (let ((__tmp27377 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27147 'symbolic '2 '#f '#f)) + (let ((__tmp27476 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27048 __tmp27377 '3 '#f '#f)) + (##unchecked-structure-set! __obj27147 __tmp27476 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27147 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '#t '9 '#f '#f)) - (let ((__tmp27378 |gerbil/core/mop~MOP-5[1]#_g27379_|)) + (##unchecked-structure-set! __obj27147 '#t '9 '#f '#f)) + (let ((__tmp27477 |gerbil/core/mop~MOP-5[1]#_g27478_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27048 __tmp27378 '12 '#f '#f)) - (let ((__tmp27380 |gerbil/core/mop~MOP-5[1]#_g27381_|)) + (##unchecked-structure-set! __obj27147 __tmp27477 '12 '#f '#f)) + (let ((__tmp27479 |gerbil/core/mop~MOP-5[1]#_g27480_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27048 __tmp27380 '14 '#f '#f)) + (##unchecked-structure-set! __obj27147 __tmp27479 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27147 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27147 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27147 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '() '18 '#f '#f)) - __obj27048)) + (##unchecked-structure-set! __obj27147 '() '18 '#f '#f)) + __obj27147)) (define |gerbil/core/mop~MOP-5[:0:]#:symbol| - (let ((__obj27049 + (let ((__obj27148 (let () (declare (not safe)) (##structure @@ -2985,40 +2985,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 'symbol '1 '#f '#f)) + (##unchecked-structure-set! __obj27148 'symbol '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 'symbol '2 '#f '#f)) - (let ((__tmp27382 (cons |gerbil/core/mop~MOP-5[1]#_g27383_| '()))) + (##unchecked-structure-set! __obj27148 'symbol '2 '#f '#f)) + (let ((__tmp27481 (cons |gerbil/core/mop~MOP-5[1]#_g27482_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27049 __tmp27382 '3 '#f '#f)) + (##unchecked-structure-set! __obj27148 __tmp27481 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27148 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '#t '9 '#f '#f)) - (let ((__tmp27384 |gerbil/core/mop~MOP-5[1]#_g27385_|)) + (##unchecked-structure-set! __obj27148 '#t '9 '#f '#f)) + (let ((__tmp27483 |gerbil/core/mop~MOP-5[1]#_g27484_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27049 __tmp27384 '12 '#f '#f)) - (let ((__tmp27386 |gerbil/core/mop~MOP-5[1]#_g27387_|)) + (##unchecked-structure-set! __obj27148 __tmp27483 '12 '#f '#f)) + (let ((__tmp27485 |gerbil/core/mop~MOP-5[1]#_g27486_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27049 __tmp27386 '14 '#f '#f)) + (##unchecked-structure-set! __obj27148 __tmp27485 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27148 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27148 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27148 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '() '18 '#f '#f)) - __obj27049)) + (##unchecked-structure-set! __obj27148 '() '18 '#f '#f)) + __obj27148)) (define |gerbil/core/mop~MOP-5[:0:]#:keyword| - (let ((__obj27050 + (let ((__obj27149 (let () (declare (not safe)) (##structure @@ -3046,40 +3046,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 'keyword '1 '#f '#f)) + (##unchecked-structure-set! __obj27149 'keyword '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 'keyword '2 '#f '#f)) - (let ((__tmp27388 (cons |gerbil/core/mop~MOP-5[1]#_g27383_| '()))) + (##unchecked-structure-set! __obj27149 'keyword '2 '#f '#f)) + (let ((__tmp27487 (cons |gerbil/core/mop~MOP-5[1]#_g27482_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27050 __tmp27388 '3 '#f '#f)) + (##unchecked-structure-set! __obj27149 __tmp27487 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27149 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '#t '9 '#f '#f)) - (let ((__tmp27389 |gerbil/core/mop~MOP-5[1]#_g27390_|)) + (##unchecked-structure-set! __obj27149 '#t '9 '#f '#f)) + (let ((__tmp27488 |gerbil/core/mop~MOP-5[1]#_g27489_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27050 __tmp27389 '12 '#f '#f)) - (let ((__tmp27391 |gerbil/core/mop~MOP-5[1]#_g27392_|)) + (##unchecked-structure-set! __obj27149 __tmp27488 '12 '#f '#f)) + (let ((__tmp27490 |gerbil/core/mop~MOP-5[1]#_g27491_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27050 __tmp27391 '14 '#f '#f)) + (##unchecked-structure-set! __obj27149 __tmp27490 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27149 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27149 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27149 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '() '18 '#f '#f)) - __obj27050)) + (##unchecked-structure-set! __obj27149 '() '18 '#f '#f)) + __obj27149)) (define |gerbil/core/mop~MOP-5[:0:]#:list| - (let ((__obj27051 + (let ((__obj27150 (let () (declare (not safe)) (##structure @@ -3107,40 +3107,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 'list '1 '#f '#f)) + (##unchecked-structure-set! __obj27150 'list '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 'list '2 '#f '#f)) - (let ((__tmp27393 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27150 'list '2 '#f '#f)) + (let ((__tmp27492 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27051 __tmp27393 '3 '#f '#f)) + (##unchecked-structure-set! __obj27150 __tmp27492 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27150 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '#t '9 '#f '#f)) - (let ((__tmp27394 |gerbil/core/mop~MOP-5[1]#_g27395_|)) + (##unchecked-structure-set! __obj27150 '#t '9 '#f '#f)) + (let ((__tmp27493 |gerbil/core/mop~MOP-5[1]#_g27494_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27051 __tmp27394 '12 '#f '#f)) - (let ((__tmp27396 |gerbil/core/mop~MOP-5[1]#_g27397_|)) + (##unchecked-structure-set! __obj27150 __tmp27493 '12 '#f '#f)) + (let ((__tmp27495 |gerbil/core/mop~MOP-5[1]#_g27496_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27051 __tmp27396 '14 '#f '#f)) + (##unchecked-structure-set! __obj27150 __tmp27495 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27150 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27150 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27150 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '() '18 '#f '#f)) - __obj27051)) + (##unchecked-structure-set! __obj27150 '() '18 '#f '#f)) + __obj27150)) (define |gerbil/core/mop~MOP-5[:0:]#:pair| - (let ((__obj27052 + (let ((__obj27151 (let () (declare (not safe)) (##structure @@ -3168,40 +3168,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 'pair '1 '#f '#f)) + (##unchecked-structure-set! __obj27151 'pair '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 'pair '2 '#f '#f)) - (let ((__tmp27398 (cons |gerbil/core/mop~MOP-5[1]#_g27399_| '()))) + (##unchecked-structure-set! __obj27151 'pair '2 '#f '#f)) + (let ((__tmp27497 (cons |gerbil/core/mop~MOP-5[1]#_g27498_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27052 __tmp27398 '3 '#f '#f)) + (##unchecked-structure-set! __obj27151 __tmp27497 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27151 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '#t '9 '#f '#f)) - (let ((__tmp27400 |gerbil/core/mop~MOP-5[1]#_g27401_|)) + (##unchecked-structure-set! __obj27151 '#t '9 '#f '#f)) + (let ((__tmp27499 |gerbil/core/mop~MOP-5[1]#_g27500_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27052 __tmp27400 '12 '#f '#f)) - (let ((__tmp27402 |gerbil/core/mop~MOP-5[1]#_g27403_|)) + (##unchecked-structure-set! __obj27151 __tmp27499 '12 '#f '#f)) + (let ((__tmp27501 |gerbil/core/mop~MOP-5[1]#_g27502_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27052 __tmp27402 '14 '#f '#f)) + (##unchecked-structure-set! __obj27151 __tmp27501 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27151 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27151 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27151 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '() '18 '#f '#f)) - __obj27052)) + (##unchecked-structure-set! __obj27151 '() '18 '#f '#f)) + __obj27151)) (define |gerbil/core/mop~MOP-5[:0:]#:null| - (let ((__obj27053 + (let ((__obj27152 (let () (declare (not safe)) (##structure @@ -3229,42 +3229,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 'null '1 '#f '#f)) + (##unchecked-structure-set! __obj27152 'null '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 'null '2 '#f '#f)) - (let ((__tmp27404 - (cons |gerbil/core/mop~MOP-5[1]#_g27399_| - (cons |gerbil/core/mop~MOP-5[1]#_g27308_| '())))) + (##unchecked-structure-set! __obj27152 'null '2 '#f '#f)) + (let ((__tmp27503 + (cons |gerbil/core/mop~MOP-5[1]#_g27498_| + (cons |gerbil/core/mop~MOP-5[1]#_g27407_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27053 __tmp27404 '3 '#f '#f)) + (##unchecked-structure-set! __obj27152 __tmp27503 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27152 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '#t '9 '#f '#f)) - (let ((__tmp27405 |gerbil/core/mop~MOP-5[1]#_g27406_|)) + (##unchecked-structure-set! __obj27152 '#t '9 '#f '#f)) + (let ((__tmp27504 |gerbil/core/mop~MOP-5[1]#_g27505_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27053 __tmp27405 '12 '#f '#f)) - (let ((__tmp27407 |gerbil/core/mop~MOP-5[1]#_g27408_|)) + (##unchecked-structure-set! __obj27152 __tmp27504 '12 '#f '#f)) + (let ((__tmp27506 |gerbil/core/mop~MOP-5[1]#_g27507_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27053 __tmp27407 '14 '#f '#f)) + (##unchecked-structure-set! __obj27152 __tmp27506 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27152 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27152 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27152 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '() '18 '#f '#f)) - __obj27053)) + (##unchecked-structure-set! __obj27152 '() '18 '#f '#f)) + __obj27152)) (define |gerbil/core/mop~MOP-5[:0:]#:sequence| - (let ((__obj27054 + (let ((__obj27153 (let () (declare (not safe)) (##structure @@ -3292,40 +3292,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 'sequence '1 '#f '#f)) + (##unchecked-structure-set! __obj27153 'sequence '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 'sequence '2 '#f '#f)) - (let ((__tmp27409 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27153 'sequence '2 '#f '#f)) + (let ((__tmp27508 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27054 __tmp27409 '3 '#f '#f)) + (##unchecked-structure-set! __obj27153 __tmp27508 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27153 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '#t '9 '#f '#f)) - (let ((__tmp27410 |gerbil/core/mop~MOP-5[1]#_g27411_|)) + (##unchecked-structure-set! __obj27153 '#t '9 '#f '#f)) + (let ((__tmp27509 |gerbil/core/mop~MOP-5[1]#_g27510_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27054 __tmp27410 '12 '#f '#f)) - (let ((__tmp27412 |gerbil/core/mop~MOP-5[1]#_g27413_|)) + (##unchecked-structure-set! __obj27153 __tmp27509 '12 '#f '#f)) + (let ((__tmp27511 |gerbil/core/mop~MOP-5[1]#_g27512_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27054 __tmp27412 '14 '#f '#f)) + (##unchecked-structure-set! __obj27153 __tmp27511 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27153 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27153 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27153 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '() '18 '#f '#f)) - __obj27054)) + (##unchecked-structure-set! __obj27153 '() '18 '#f '#f)) + __obj27153)) (define |gerbil/core/mop~MOP-5[:0:]#:vector| - (let ((__obj27055 + (let ((__obj27154 (let () (declare (not safe)) (##structure @@ -3353,40 +3353,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 'vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27154 'vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 'vector '2 '#f '#f)) - (let ((__tmp27414 (cons |gerbil/core/mop~MOP-5[1]#_g27415_| '()))) + (##unchecked-structure-set! __obj27154 'vector '2 '#f '#f)) + (let ((__tmp27513 (cons |gerbil/core/mop~MOP-5[1]#_g27514_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27055 __tmp27414 '3 '#f '#f)) + (##unchecked-structure-set! __obj27154 __tmp27513 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27154 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '#t '9 '#f '#f)) - (let ((__tmp27416 |gerbil/core/mop~MOP-5[1]#_g27417_|)) + (##unchecked-structure-set! __obj27154 '#t '9 '#f '#f)) + (let ((__tmp27515 |gerbil/core/mop~MOP-5[1]#_g27516_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27055 __tmp27416 '12 '#f '#f)) - (let ((__tmp27418 |gerbil/core/mop~MOP-5[1]#_g27419_|)) + (##unchecked-structure-set! __obj27154 __tmp27515 '12 '#f '#f)) + (let ((__tmp27517 |gerbil/core/mop~MOP-5[1]#_g27518_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27055 __tmp27418 '14 '#f '#f)) + (##unchecked-structure-set! __obj27154 __tmp27517 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27154 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27154 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27154 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '() '18 '#f '#f)) - __obj27055)) + (##unchecked-structure-set! __obj27154 '() '18 '#f '#f)) + __obj27154)) (define |gerbil/core/mop~MOP-5[:0:]#:string| - (let ((__obj27056 + (let ((__obj27155 (let () (declare (not safe)) (##structure @@ -3414,40 +3414,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 'string '1 '#f '#f)) + (##unchecked-structure-set! __obj27155 'string '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 'string '2 '#f '#f)) - (let ((__tmp27420 (cons |gerbil/core/mop~MOP-5[1]#_g27415_| '()))) + (##unchecked-structure-set! __obj27155 'string '2 '#f '#f)) + (let ((__tmp27519 (cons |gerbil/core/mop~MOP-5[1]#_g27514_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27056 __tmp27420 '3 '#f '#f)) + (##unchecked-structure-set! __obj27155 __tmp27519 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27155 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '#t '9 '#f '#f)) - (let ((__tmp27421 |gerbil/core/mop~MOP-5[1]#_g27422_|)) + (##unchecked-structure-set! __obj27155 '#t '9 '#f '#f)) + (let ((__tmp27520 |gerbil/core/mop~MOP-5[1]#_g27521_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27056 __tmp27421 '12 '#f '#f)) - (let ((__tmp27423 |gerbil/core/mop~MOP-5[1]#_g27424_|)) + (##unchecked-structure-set! __obj27155 __tmp27520 '12 '#f '#f)) + (let ((__tmp27522 |gerbil/core/mop~MOP-5[1]#_g27523_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27056 __tmp27423 '14 '#f '#f)) + (##unchecked-structure-set! __obj27155 __tmp27522 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27155 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27155 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27155 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '() '18 '#f '#f)) - __obj27056)) + (##unchecked-structure-set! __obj27155 '() '18 '#f '#f)) + __obj27155)) (define |gerbil/core/mop~MOP-5[:0:]#:hvector| - (let ((__obj27057 + (let ((__obj27156 (let () (declare (not safe)) (##structure @@ -3475,40 +3475,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 'hvector '1 '#f '#f)) + (##unchecked-structure-set! __obj27156 'hvector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 'hvector '2 '#f '#f)) - (let ((__tmp27425 (cons |gerbil/core/mop~MOP-5[1]#_g27415_| '()))) + (##unchecked-structure-set! __obj27156 'hvector '2 '#f '#f)) + (let ((__tmp27524 (cons |gerbil/core/mop~MOP-5[1]#_g27514_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27057 __tmp27425 '3 '#f '#f)) + (##unchecked-structure-set! __obj27156 __tmp27524 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27156 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '#t '9 '#f '#f)) - (let ((__tmp27426 |gerbil/core/mop~MOP-5[1]#_g27427_|)) + (##unchecked-structure-set! __obj27156 '#t '9 '#f '#f)) + (let ((__tmp27525 |gerbil/core/mop~MOP-5[1]#_g27526_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27057 __tmp27426 '12 '#f '#f)) - (let ((__tmp27428 |gerbil/core/mop~MOP-5[1]#_g27429_|)) + (##unchecked-structure-set! __obj27156 __tmp27525 '12 '#f '#f)) + (let ((__tmp27527 |gerbil/core/mop~MOP-5[1]#_g27528_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27057 __tmp27428 '14 '#f '#f)) + (##unchecked-structure-set! __obj27156 __tmp27527 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27156 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27156 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27156 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '() '18 '#f '#f)) - __obj27057)) + (##unchecked-structure-set! __obj27156 '() '18 '#f '#f)) + __obj27156)) (define |gerbil/core/mop~MOP-5[:0:]#:u8vector| - (let ((__obj27058 + (let ((__obj27157 (let () (declare (not safe)) (##structure @@ -3536,40 +3536,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 'u8vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27157 'u8vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 'u8vector '2 '#f '#f)) - (let ((__tmp27430 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27157 'u8vector '2 '#f '#f)) + (let ((__tmp27529 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27058 __tmp27430 '3 '#f '#f)) + (##unchecked-structure-set! __obj27157 __tmp27529 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27157 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '#t '9 '#f '#f)) - (let ((__tmp27432 |gerbil/core/mop~MOP-5[1]#_g27433_|)) + (##unchecked-structure-set! __obj27157 '#t '9 '#f '#f)) + (let ((__tmp27531 |gerbil/core/mop~MOP-5[1]#_g27532_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27058 __tmp27432 '12 '#f '#f)) - (let ((__tmp27434 |gerbil/core/mop~MOP-5[1]#_g27435_|)) + (##unchecked-structure-set! __obj27157 __tmp27531 '12 '#f '#f)) + (let ((__tmp27533 |gerbil/core/mop~MOP-5[1]#_g27534_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27058 __tmp27434 '14 '#f '#f)) + (##unchecked-structure-set! __obj27157 __tmp27533 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27157 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27157 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27157 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '() '18 '#f '#f)) - __obj27058)) + (##unchecked-structure-set! __obj27157 '() '18 '#f '#f)) + __obj27157)) (define |gerbil/core/mop~MOP-5[:0:]#:s8vector| - (let ((__obj27059 + (let ((__obj27158 (let () (declare (not safe)) (##structure @@ -3597,40 +3597,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 's8vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27158 's8vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 's8vector '2 '#f '#f)) - (let ((__tmp27436 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27158 's8vector '2 '#f '#f)) + (let ((__tmp27535 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27059 __tmp27436 '3 '#f '#f)) + (##unchecked-structure-set! __obj27158 __tmp27535 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27158 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '#t '9 '#f '#f)) - (let ((__tmp27437 |gerbil/core/mop~MOP-5[1]#_g27438_|)) + (##unchecked-structure-set! __obj27158 '#t '9 '#f '#f)) + (let ((__tmp27536 |gerbil/core/mop~MOP-5[1]#_g27537_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27059 __tmp27437 '12 '#f '#f)) - (let ((__tmp27439 |gerbil/core/mop~MOP-5[1]#_g27440_|)) + (##unchecked-structure-set! __obj27158 __tmp27536 '12 '#f '#f)) + (let ((__tmp27538 |gerbil/core/mop~MOP-5[1]#_g27539_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27059 __tmp27439 '14 '#f '#f)) + (##unchecked-structure-set! __obj27158 __tmp27538 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27158 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27158 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27158 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '() '18 '#f '#f)) - __obj27059)) + (##unchecked-structure-set! __obj27158 '() '18 '#f '#f)) + __obj27158)) (define |gerbil/core/mop~MOP-5[:0:]#:u16vector| - (let ((__obj27060 + (let ((__obj27159 (let () (declare (not safe)) (##structure @@ -3658,40 +3658,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 'u16vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27159 'u16vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 'u16vector '2 '#f '#f)) - (let ((__tmp27441 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27159 'u16vector '2 '#f '#f)) + (let ((__tmp27540 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27060 __tmp27441 '3 '#f '#f)) + (##unchecked-structure-set! __obj27159 __tmp27540 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27159 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '#t '9 '#f '#f)) - (let ((__tmp27442 |gerbil/core/mop~MOP-5[1]#_g27443_|)) + (##unchecked-structure-set! __obj27159 '#t '9 '#f '#f)) + (let ((__tmp27541 |gerbil/core/mop~MOP-5[1]#_g27542_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27060 __tmp27442 '12 '#f '#f)) - (let ((__tmp27444 |gerbil/core/mop~MOP-5[1]#_g27445_|)) + (##unchecked-structure-set! __obj27159 __tmp27541 '12 '#f '#f)) + (let ((__tmp27543 |gerbil/core/mop~MOP-5[1]#_g27544_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27060 __tmp27444 '14 '#f '#f)) + (##unchecked-structure-set! __obj27159 __tmp27543 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27159 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27159 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27159 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '() '18 '#f '#f)) - __obj27060)) + (##unchecked-structure-set! __obj27159 '() '18 '#f '#f)) + __obj27159)) (define |gerbil/core/mop~MOP-5[:0:]#:s16vector| - (let ((__obj27061 + (let ((__obj27160 (let () (declare (not safe)) (##structure @@ -3719,40 +3719,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 's16vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27160 's16vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 's16vector '2 '#f '#f)) - (let ((__tmp27446 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27160 's16vector '2 '#f '#f)) + (let ((__tmp27545 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27061 __tmp27446 '3 '#f '#f)) + (##unchecked-structure-set! __obj27160 __tmp27545 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27160 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '#t '9 '#f '#f)) - (let ((__tmp27447 |gerbil/core/mop~MOP-5[1]#_g27448_|)) + (##unchecked-structure-set! __obj27160 '#t '9 '#f '#f)) + (let ((__tmp27546 |gerbil/core/mop~MOP-5[1]#_g27547_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27061 __tmp27447 '12 '#f '#f)) - (let ((__tmp27449 |gerbil/core/mop~MOP-5[1]#_g27450_|)) + (##unchecked-structure-set! __obj27160 __tmp27546 '12 '#f '#f)) + (let ((__tmp27548 |gerbil/core/mop~MOP-5[1]#_g27549_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27061 __tmp27449 '14 '#f '#f)) + (##unchecked-structure-set! __obj27160 __tmp27548 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27160 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27160 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27160 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '() '18 '#f '#f)) - __obj27061)) + (##unchecked-structure-set! __obj27160 '() '18 '#f '#f)) + __obj27160)) (define |gerbil/core/mop~MOP-5[:0:]#:u32vector| - (let ((__obj27062 + (let ((__obj27161 (let () (declare (not safe)) (##structure @@ -3780,40 +3780,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 'u32vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27161 'u32vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 'u32vector '2 '#f '#f)) - (let ((__tmp27451 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27161 'u32vector '2 '#f '#f)) + (let ((__tmp27550 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27062 __tmp27451 '3 '#f '#f)) + (##unchecked-structure-set! __obj27161 __tmp27550 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27161 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '#t '9 '#f '#f)) - (let ((__tmp27452 |gerbil/core/mop~MOP-5[1]#_g27453_|)) + (##unchecked-structure-set! __obj27161 '#t '9 '#f '#f)) + (let ((__tmp27551 |gerbil/core/mop~MOP-5[1]#_g27552_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27062 __tmp27452 '12 '#f '#f)) - (let ((__tmp27454 |gerbil/core/mop~MOP-5[1]#_g27455_|)) + (##unchecked-structure-set! __obj27161 __tmp27551 '12 '#f '#f)) + (let ((__tmp27553 |gerbil/core/mop~MOP-5[1]#_g27554_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27062 __tmp27454 '14 '#f '#f)) + (##unchecked-structure-set! __obj27161 __tmp27553 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27161 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27161 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27161 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '() '18 '#f '#f)) - __obj27062)) + (##unchecked-structure-set! __obj27161 '() '18 '#f '#f)) + __obj27161)) (define |gerbil/core/mop~MOP-5[:0:]#:s32vector| - (let ((__obj27063 + (let ((__obj27162 (let () (declare (not safe)) (##structure @@ -3841,40 +3841,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 's32vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27162 's32vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 's32vector '2 '#f '#f)) - (let ((__tmp27456 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27162 's32vector '2 '#f '#f)) + (let ((__tmp27555 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27063 __tmp27456 '3 '#f '#f)) + (##unchecked-structure-set! __obj27162 __tmp27555 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27162 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '#t '9 '#f '#f)) - (let ((__tmp27457 |gerbil/core/mop~MOP-5[1]#_g27458_|)) + (##unchecked-structure-set! __obj27162 '#t '9 '#f '#f)) + (let ((__tmp27556 |gerbil/core/mop~MOP-5[1]#_g27557_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27063 __tmp27457 '12 '#f '#f)) - (let ((__tmp27459 |gerbil/core/mop~MOP-5[1]#_g27460_|)) + (##unchecked-structure-set! __obj27162 __tmp27556 '12 '#f '#f)) + (let ((__tmp27558 |gerbil/core/mop~MOP-5[1]#_g27559_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27063 __tmp27459 '14 '#f '#f)) + (##unchecked-structure-set! __obj27162 __tmp27558 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27162 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27162 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27162 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '18 '#f '#f)) - __obj27063)) + (##unchecked-structure-set! __obj27162 '() '18 '#f '#f)) + __obj27162)) (define |gerbil/core/mop~MOP-5[:0:]#:u64vector| - (let ((__obj27064 + (let ((__obj27163 (let () (declare (not safe)) (##structure @@ -3902,40 +3902,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 'u64vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27163 'u64vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 'u64vector '2 '#f '#f)) - (let ((__tmp27461 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27163 'u64vector '2 '#f '#f)) + (let ((__tmp27560 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27064 __tmp27461 '3 '#f '#f)) + (##unchecked-structure-set! __obj27163 __tmp27560 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27163 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '#t '9 '#f '#f)) - (let ((__tmp27462 |gerbil/core/mop~MOP-5[1]#_g27463_|)) + (##unchecked-structure-set! __obj27163 '#t '9 '#f '#f)) + (let ((__tmp27561 |gerbil/core/mop~MOP-5[1]#_g27562_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27064 __tmp27462 '12 '#f '#f)) - (let ((__tmp27464 |gerbil/core/mop~MOP-5[1]#_g27465_|)) + (##unchecked-structure-set! __obj27163 __tmp27561 '12 '#f '#f)) + (let ((__tmp27563 |gerbil/core/mop~MOP-5[1]#_g27564_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27064 __tmp27464 '14 '#f '#f)) + (##unchecked-structure-set! __obj27163 __tmp27563 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27163 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27163 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27163 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '18 '#f '#f)) - __obj27064)) + (##unchecked-structure-set! __obj27163 '() '18 '#f '#f)) + __obj27163)) (define |gerbil/core/mop~MOP-5[:0:]#:s64vector| - (let ((__obj27065 + (let ((__obj27164 (let () (declare (not safe)) (##structure @@ -3963,40 +3963,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 's64vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27164 's64vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 's64vector '2 '#f '#f)) - (let ((__tmp27466 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27164 's64vector '2 '#f '#f)) + (let ((__tmp27565 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27065 __tmp27466 '3 '#f '#f)) + (##unchecked-structure-set! __obj27164 __tmp27565 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27164 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '#t '9 '#f '#f)) - (let ((__tmp27467 |gerbil/core/mop~MOP-5[1]#_g27468_|)) + (##unchecked-structure-set! __obj27164 '#t '9 '#f '#f)) + (let ((__tmp27566 |gerbil/core/mop~MOP-5[1]#_g27567_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27065 __tmp27467 '12 '#f '#f)) - (let ((__tmp27469 |gerbil/core/mop~MOP-5[1]#_g27470_|)) + (##unchecked-structure-set! __obj27164 __tmp27566 '12 '#f '#f)) + (let ((__tmp27568 |gerbil/core/mop~MOP-5[1]#_g27569_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27065 __tmp27469 '14 '#f '#f)) + (##unchecked-structure-set! __obj27164 __tmp27568 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27164 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27164 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27164 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '() '18 '#f '#f)) - __obj27065)) + (##unchecked-structure-set! __obj27164 '() '18 '#f '#f)) + __obj27164)) (define |gerbil/core/mop~MOP-5[:0:]#:f32vector| - (let ((__obj27066 + (let ((__obj27165 (let () (declare (not safe)) (##structure @@ -4024,40 +4024,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 'f32vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27165 'f32vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 'f32vector '2 '#f '#f)) - (let ((__tmp27471 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27165 'f32vector '2 '#f '#f)) + (let ((__tmp27570 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27066 __tmp27471 '3 '#f '#f)) + (##unchecked-structure-set! __obj27165 __tmp27570 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27165 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '#t '9 '#f '#f)) - (let ((__tmp27472 |gerbil/core/mop~MOP-5[1]#_g27473_|)) + (##unchecked-structure-set! __obj27165 '#t '9 '#f '#f)) + (let ((__tmp27571 |gerbil/core/mop~MOP-5[1]#_g27572_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27066 __tmp27472 '12 '#f '#f)) - (let ((__tmp27474 |gerbil/core/mop~MOP-5[1]#_g27475_|)) + (##unchecked-structure-set! __obj27165 __tmp27571 '12 '#f '#f)) + (let ((__tmp27573 |gerbil/core/mop~MOP-5[1]#_g27574_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27066 __tmp27474 '14 '#f '#f)) + (##unchecked-structure-set! __obj27165 __tmp27573 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27165 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27165 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27165 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '18 '#f '#f)) - __obj27066)) + (##unchecked-structure-set! __obj27165 '() '18 '#f '#f)) + __obj27165)) (define |gerbil/core/mop~MOP-5[:0:]#:f64vector| - (let ((__obj27067 + (let ((__obj27166 (let () (declare (not safe)) (##structure @@ -4085,40 +4085,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 'f64vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27166 'f64vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 'f64vector '2 '#f '#f)) - (let ((__tmp27476 (cons |gerbil/core/mop~MOP-5[1]#_g27431_| '()))) + (##unchecked-structure-set! __obj27166 'f64vector '2 '#f '#f)) + (let ((__tmp27575 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27067 __tmp27476 '3 '#f '#f)) + (##unchecked-structure-set! __obj27166 __tmp27575 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27166 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '#t '9 '#f '#f)) - (let ((__tmp27477 |gerbil/core/mop~MOP-5[1]#_g27478_|)) + (##unchecked-structure-set! __obj27166 '#t '9 '#f '#f)) + (let ((__tmp27576 |gerbil/core/mop~MOP-5[1]#_g27577_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27067 __tmp27477 '12 '#f '#f)) - (let ((__tmp27479 |gerbil/core/mop~MOP-5[1]#_g27480_|)) + (##unchecked-structure-set! __obj27166 __tmp27576 '12 '#f '#f)) + (let ((__tmp27578 |gerbil/core/mop~MOP-5[1]#_g27579_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27067 __tmp27479 '14 '#f '#f)) + (##unchecked-structure-set! __obj27166 __tmp27578 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27166 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27166 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27166 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '18 '#f '#f)) - __obj27067)) + (##unchecked-structure-set! __obj27166 '() '18 '#f '#f)) + __obj27166)) (define |gerbil/core/mop~MOP-5[:0:]#:values| - (let ((__obj27068 + (let ((__obj27167 (let () (declare (not safe)) (##structure @@ -4146,40 +4146,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 'values '1 '#f '#f)) + (##unchecked-structure-set! __obj27167 'values '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 'values '2 '#f '#f)) - (let ((__tmp27481 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27167 'values '2 '#f '#f)) + (let ((__tmp27580 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27068 __tmp27481 '3 '#f '#f)) + (##unchecked-structure-set! __obj27167 __tmp27580 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27167 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '#t '9 '#f '#f)) - (let ((__tmp27482 |gerbil/core/mop~MOP-5[1]#_g27483_|)) + (##unchecked-structure-set! __obj27167 '#t '9 '#f '#f)) + (let ((__tmp27581 |gerbil/core/mop~MOP-5[1]#_g27582_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27068 __tmp27482 '12 '#f '#f)) - (let ((__tmp27484 |gerbil/core/mop~MOP-5[1]#_g27485_|)) + (##unchecked-structure-set! __obj27167 __tmp27581 '12 '#f '#f)) + (let ((__tmp27583 |gerbil/core/mop~MOP-5[1]#_g27584_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27068 __tmp27484 '14 '#f '#f)) + (##unchecked-structure-set! __obj27167 __tmp27583 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27167 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27167 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27167 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '18 '#f '#f)) - __obj27068)) + (##unchecked-structure-set! __obj27167 '() '18 '#f '#f)) + __obj27167)) (define |gerbil/core/mop~MOP-5[:0:]#:box| - (let ((__obj27069 + (let ((__obj27168 (let () (declare (not safe)) (##structure @@ -4207,40 +4207,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 'box '1 '#f '#f)) + (##unchecked-structure-set! __obj27168 'box '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 'box '2 '#f '#f)) - (let ((__tmp27486 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27168 'box '2 '#f '#f)) + (let ((__tmp27585 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27069 __tmp27486 '3 '#f '#f)) + (##unchecked-structure-set! __obj27168 __tmp27585 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27168 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '#t '9 '#f '#f)) - (let ((__tmp27487 |gerbil/core/mop~MOP-5[1]#_g27488_|)) + (##unchecked-structure-set! __obj27168 '#t '9 '#f '#f)) + (let ((__tmp27586 |gerbil/core/mop~MOP-5[1]#_g27587_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27069 __tmp27487 '12 '#f '#f)) - (let ((__tmp27489 |gerbil/core/mop~MOP-5[1]#_g27490_|)) + (##unchecked-structure-set! __obj27168 __tmp27586 '12 '#f '#f)) + (let ((__tmp27588 |gerbil/core/mop~MOP-5[1]#_g27589_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27069 __tmp27489 '14 '#f '#f)) + (##unchecked-structure-set! __obj27168 __tmp27588 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27168 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27168 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27168 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '18 '#f '#f)) - __obj27069)) + (##unchecked-structure-set! __obj27168 '() '18 '#f '#f)) + __obj27168)) (define |gerbil/core/mop~MOP-5[:0:]#:frame| - (let ((__obj27070 + (let ((__obj27169 (let () (declare (not safe)) (##structure @@ -4268,40 +4268,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 'frame '1 '#f '#f)) + (##unchecked-structure-set! __obj27169 'frame '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 'frame '2 '#f '#f)) - (let ((__tmp27491 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27169 'frame '2 '#f '#f)) + (let ((__tmp27590 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27070 __tmp27491 '3 '#f '#f)) + (##unchecked-structure-set! __obj27169 __tmp27590 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27169 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '#t '9 '#f '#f)) - (let ((__tmp27492 |gerbil/core/mop~MOP-5[1]#_g27493_|)) + (##unchecked-structure-set! __obj27169 '#t '9 '#f '#f)) + (let ((__tmp27591 |gerbil/core/mop~MOP-5[1]#_g27592_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27070 __tmp27492 '12 '#f '#f)) - (let ((__tmp27494 |gerbil/core/mop~MOP-5[1]#_g27495_|)) + (##unchecked-structure-set! __obj27169 __tmp27591 '12 '#f '#f)) + (let ((__tmp27593 |gerbil/core/mop~MOP-5[1]#_g27594_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27070 __tmp27494 '14 '#f '#f)) + (##unchecked-structure-set! __obj27169 __tmp27593 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27169 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27169 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27169 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '18 '#f '#f)) - __obj27070)) + (##unchecked-structure-set! __obj27169 '() '18 '#f '#f)) + __obj27169)) (define |gerbil/core/mop~MOP-5[:0:]#:continuation| - (let ((__obj27071 + (let ((__obj27170 (let () (declare (not safe)) (##structure @@ -4329,40 +4329,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 'continuation '1 '#f '#f)) + (##unchecked-structure-set! __obj27170 'continuation '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 'continuation '2 '#f '#f)) - (let ((__tmp27496 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27170 'continuation '2 '#f '#f)) + (let ((__tmp27595 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27071 __tmp27496 '3 '#f '#f)) + (##unchecked-structure-set! __obj27170 __tmp27595 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27170 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '#t '9 '#f '#f)) - (let ((__tmp27497 |gerbil/core/mop~MOP-5[1]#_g27498_|)) + (##unchecked-structure-set! __obj27170 '#t '9 '#f '#f)) + (let ((__tmp27596 |gerbil/core/mop~MOP-5[1]#_g27597_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27071 __tmp27497 '12 '#f '#f)) - (let ((__tmp27499 |gerbil/core/mop~MOP-5[1]#_g27500_|)) + (##unchecked-structure-set! __obj27170 __tmp27596 '12 '#f '#f)) + (let ((__tmp27598 |gerbil/core/mop~MOP-5[1]#_g27599_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27071 __tmp27499 '14 '#f '#f)) + (##unchecked-structure-set! __obj27170 __tmp27598 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27170 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27170 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27170 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '18 '#f '#f)) - __obj27071)) + (##unchecked-structure-set! __obj27170 '() '18 '#f '#f)) + __obj27170)) (define |gerbil/core/mop~MOP-5[:0:]#:promise| - (let ((__obj27072 + (let ((__obj27171 (let () (declare (not safe)) (##structure @@ -4390,40 +4390,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 'promise '1 '#f '#f)) + (##unchecked-structure-set! __obj27171 'promise '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 'promise '2 '#f '#f)) - (let ((__tmp27501 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27171 'promise '2 '#f '#f)) + (let ((__tmp27600 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27072 __tmp27501 '3 '#f '#f)) + (##unchecked-structure-set! __obj27171 __tmp27600 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27171 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '#t '9 '#f '#f)) - (let ((__tmp27502 |gerbil/core/mop~MOP-5[1]#_g27503_|)) + (##unchecked-structure-set! __obj27171 '#t '9 '#f '#f)) + (let ((__tmp27601 |gerbil/core/mop~MOP-5[1]#_g27602_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27072 __tmp27502 '12 '#f '#f)) - (let ((__tmp27504 |gerbil/core/mop~MOP-5[1]#_g27505_|)) + (##unchecked-structure-set! __obj27171 __tmp27601 '12 '#f '#f)) + (let ((__tmp27603 |gerbil/core/mop~MOP-5[1]#_g27604_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27072 __tmp27504 '14 '#f '#f)) + (##unchecked-structure-set! __obj27171 __tmp27603 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27171 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27171 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27171 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '18 '#f '#f)) - __obj27072)) + (##unchecked-structure-set! __obj27171 '() '18 '#f '#f)) + __obj27171)) (define |gerbil/core/mop~MOP-5[:0:]#:weak| - (let ((__obj27073 + (let ((__obj27172 (let () (declare (not safe)) (##structure @@ -4451,40 +4451,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 'weak '1 '#f '#f)) + (##unchecked-structure-set! __obj27172 'weak '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 'weak '2 '#f '#f)) - (let ((__tmp27506 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27172 'weak '2 '#f '#f)) + (let ((__tmp27605 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27073 __tmp27506 '3 '#f '#f)) + (##unchecked-structure-set! __obj27172 __tmp27605 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27172 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '#t '9 '#f '#f)) - (let ((__tmp27507 |gerbil/core/mop~MOP-5[1]#_g27508_|)) + (##unchecked-structure-set! __obj27172 '#t '9 '#f '#f)) + (let ((__tmp27606 |gerbil/core/mop~MOP-5[1]#_g27607_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27073 __tmp27507 '12 '#f '#f)) - (let ((__tmp27509 |gerbil/core/mop~MOP-5[1]#_g27510_|)) + (##unchecked-structure-set! __obj27172 __tmp27606 '12 '#f '#f)) + (let ((__tmp27608 |gerbil/core/mop~MOP-5[1]#_g27609_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27073 __tmp27509 '14 '#f '#f)) + (##unchecked-structure-set! __obj27172 __tmp27608 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27172 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27172 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27172 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '18 '#f '#f)) - __obj27073)) + (##unchecked-structure-set! __obj27172 '() '18 '#f '#f)) + __obj27172)) (define |gerbil/core/mop~MOP-5[:0:]#:foreign| - (let ((__obj27074 + (let ((__obj27173 (let () (declare (not safe)) (##structure @@ -4512,40 +4512,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 'foreign '1 '#f '#f)) + (##unchecked-structure-set! __obj27173 'foreign '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 'foreign '2 '#f '#f)) - (let ((__tmp27511 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27173 'foreign '2 '#f '#f)) + (let ((__tmp27610 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27074 __tmp27511 '3 '#f '#f)) + (##unchecked-structure-set! __obj27173 __tmp27610 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27173 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '#t '9 '#f '#f)) - (let ((__tmp27512 |gerbil/core/mop~MOP-5[1]#_g27513_|)) + (##unchecked-structure-set! __obj27173 '#t '9 '#f '#f)) + (let ((__tmp27611 |gerbil/core/mop~MOP-5[1]#_g27612_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27074 __tmp27512 '12 '#f '#f)) - (let ((__tmp27514 |gerbil/core/mop~MOP-5[1]#_g27515_|)) + (##unchecked-structure-set! __obj27173 __tmp27611 '12 '#f '#f)) + (let ((__tmp27613 |gerbil/core/mop~MOP-5[1]#_g27614_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27074 __tmp27514 '14 '#f '#f)) + (##unchecked-structure-set! __obj27173 __tmp27613 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27173 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27173 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27173 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '18 '#f '#f)) - __obj27074)) + (##unchecked-structure-set! __obj27173 '() '18 '#f '#f)) + __obj27173)) (define |gerbil/core/mop~MOP-5[:0:]#:procedure| - (let ((__obj27075 + (let ((__obj27174 (let () (declare (not safe)) (##structure @@ -4573,40 +4573,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 'procedure '1 '#f '#f)) + (##unchecked-structure-set! __obj27174 'procedure '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 'procedure '2 '#f '#f)) - (let ((__tmp27516 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27174 'procedure '2 '#f '#f)) + (let ((__tmp27615 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27075 __tmp27516 '3 '#f '#f)) + (##unchecked-structure-set! __obj27174 __tmp27615 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27174 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '#t '9 '#f '#f)) - (let ((__tmp27517 |gerbil/core/mop~MOP-5[1]#_g27518_|)) + (##unchecked-structure-set! __obj27174 '#t '9 '#f '#f)) + (let ((__tmp27616 |gerbil/core/mop~MOP-5[1]#_g27617_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27075 __tmp27517 '12 '#f '#f)) - (let ((__tmp27519 |gerbil/core/mop~MOP-5[1]#_g27520_|)) + (##unchecked-structure-set! __obj27174 __tmp27616 '12 '#f '#f)) + (let ((__tmp27618 |gerbil/core/mop~MOP-5[1]#_g27619_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27075 __tmp27519 '14 '#f '#f)) + (##unchecked-structure-set! __obj27174 __tmp27618 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27174 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27174 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27174 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '18 '#f '#f)) - __obj27075)) + (##unchecked-structure-set! __obj27174 '() '18 '#f '#f)) + __obj27174)) (define |gerbil/core/mop~MOP-5[:0:]#:time| - (let ((__obj27076 + (let ((__obj27175 (let () (declare (not safe)) (##structure @@ -4634,40 +4634,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 'time::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27175 'time::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 'time '2 '#f '#f)) - (let ((__tmp27521 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27175 'time '2 '#f '#f)) + (let ((__tmp27620 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27076 __tmp27521 '3 '#f '#f)) + (##unchecked-structure-set! __obj27175 __tmp27620 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27175 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '#t '9 '#f '#f)) - (let ((__tmp27522 |gerbil/core/mop~MOP-5[1]#_g27523_|)) + (##unchecked-structure-set! __obj27175 '#t '9 '#f '#f)) + (let ((__tmp27621 |gerbil/core/mop~MOP-5[1]#_g27622_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27076 __tmp27522 '12 '#f '#f)) - (let ((__tmp27524 |gerbil/core/mop~MOP-5[1]#_g27525_|)) + (##unchecked-structure-set! __obj27175 __tmp27621 '12 '#f '#f)) + (let ((__tmp27623 |gerbil/core/mop~MOP-5[1]#_g27624_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27076 __tmp27524 '14 '#f '#f)) + (##unchecked-structure-set! __obj27175 __tmp27623 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27175 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27175 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27175 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '18 '#f '#f)) - __obj27076)) + (##unchecked-structure-set! __obj27175 '() '18 '#f '#f)) + __obj27175)) (define |gerbil/core/mop~MOP-5[:0:]#:thread| - (let ((__obj27077 + (let ((__obj27176 (let () (declare (not safe)) (##structure @@ -4695,40 +4695,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 'thread::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27176 'thread::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 'thread '2 '#f '#f)) - (let ((__tmp27526 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27176 'thread '2 '#f '#f)) + (let ((__tmp27625 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27077 __tmp27526 '3 '#f '#f)) + (##unchecked-structure-set! __obj27176 __tmp27625 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27176 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '#t '9 '#f '#f)) - (let ((__tmp27527 |gerbil/core/mop~MOP-5[1]#_g27528_|)) + (##unchecked-structure-set! __obj27176 '#t '9 '#f '#f)) + (let ((__tmp27626 |gerbil/core/mop~MOP-5[1]#_g27627_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27077 __tmp27527 '12 '#f '#f)) - (let ((__tmp27529 |gerbil/core/mop~MOP-5[1]#_g27530_|)) + (##unchecked-structure-set! __obj27176 __tmp27626 '12 '#f '#f)) + (let ((__tmp27628 |gerbil/core/mop~MOP-5[1]#_g27629_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27077 __tmp27529 '14 '#f '#f)) + (##unchecked-structure-set! __obj27176 __tmp27628 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27176 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27176 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27176 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '18 '#f '#f)) - __obj27077)) + (##unchecked-structure-set! __obj27176 '() '18 '#f '#f)) + __obj27176)) (define |gerbil/core/mop~MOP-5[:0:]#:thread-group| - (let ((__obj27078 + (let ((__obj27177 (let () (declare (not safe)) (##structure @@ -4756,40 +4756,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 'thread-group::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27177 'thread-group::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 'thread-group '2 '#f '#f)) - (let ((__tmp27531 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27177 'thread-group '2 '#f '#f)) + (let ((__tmp27630 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27078 __tmp27531 '3 '#f '#f)) + (##unchecked-structure-set! __obj27177 __tmp27630 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27177 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '#t '9 '#f '#f)) - (let ((__tmp27532 |gerbil/core/mop~MOP-5[1]#_g27533_|)) + (##unchecked-structure-set! __obj27177 '#t '9 '#f '#f)) + (let ((__tmp27631 |gerbil/core/mop~MOP-5[1]#_g27632_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27078 __tmp27532 '12 '#f '#f)) - (let ((__tmp27534 |gerbil/core/mop~MOP-5[1]#_g27535_|)) + (##unchecked-structure-set! __obj27177 __tmp27631 '12 '#f '#f)) + (let ((__tmp27633 |gerbil/core/mop~MOP-5[1]#_g27634_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27078 __tmp27534 '14 '#f '#f)) + (##unchecked-structure-set! __obj27177 __tmp27633 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27177 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27177 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27177 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '18 '#f '#f)) - __obj27078)) + (##unchecked-structure-set! __obj27177 '() '18 '#f '#f)) + __obj27177)) (define |gerbil/core/mop~MOP-5[:0:]#:mutex| - (let ((__obj27079 + (let ((__obj27178 (let () (declare (not safe)) (##structure @@ -4817,40 +4817,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 'mutex::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27178 'mutex::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 'mutex '2 '#f '#f)) - (let ((__tmp27536 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27178 'mutex '2 '#f '#f)) + (let ((__tmp27635 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27079 __tmp27536 '3 '#f '#f)) + (##unchecked-structure-set! __obj27178 __tmp27635 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27178 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '#t '9 '#f '#f)) - (let ((__tmp27537 |gerbil/core/mop~MOP-5[1]#_g27538_|)) + (##unchecked-structure-set! __obj27178 '#t '9 '#f '#f)) + (let ((__tmp27636 |gerbil/core/mop~MOP-5[1]#_g27637_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27079 __tmp27537 '12 '#f '#f)) - (let ((__tmp27539 |gerbil/core/mop~MOP-5[1]#_g27540_|)) + (##unchecked-structure-set! __obj27178 __tmp27636 '12 '#f '#f)) + (let ((__tmp27638 |gerbil/core/mop~MOP-5[1]#_g27639_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27079 __tmp27539 '14 '#f '#f)) + (##unchecked-structure-set! __obj27178 __tmp27638 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27178 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27178 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27178 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '18 '#f '#f)) - __obj27079)) + (##unchecked-structure-set! __obj27178 '() '18 '#f '#f)) + __obj27178)) (define |gerbil/core/mop~MOP-5[:0:]#:condvar| - (let ((__obj27080 + (let ((__obj27179 (let () (declare (not safe)) (##structure @@ -4879,7 +4879,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27080 + __obj27179 'condition-variable::t '1 '#f @@ -4887,41 +4887,41 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27080 + __obj27179 'condition-variable '2 '#f '#f)) - (let ((__tmp27541 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (let ((__tmp27640 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27080 __tmp27541 '3 '#f '#f)) + (##unchecked-structure-set! __obj27179 __tmp27640 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27179 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '#t '9 '#f '#f)) - (let ((__tmp27542 |gerbil/core/mop~MOP-5[1]#_g27543_|)) + (##unchecked-structure-set! __obj27179 '#t '9 '#f '#f)) + (let ((__tmp27641 |gerbil/core/mop~MOP-5[1]#_g27642_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27080 __tmp27542 '12 '#f '#f)) - (let ((__tmp27544 |gerbil/core/mop~MOP-5[1]#_g27545_|)) + (##unchecked-structure-set! __obj27179 __tmp27641 '12 '#f '#f)) + (let ((__tmp27643 |gerbil/core/mop~MOP-5[1]#_g27644_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27080 __tmp27544 '14 '#f '#f)) + (##unchecked-structure-set! __obj27179 __tmp27643 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27179 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27179 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27179 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '18 '#f '#f)) - __obj27080)) + (##unchecked-structure-set! __obj27179 '() '18 '#f '#f)) + __obj27179)) (define |gerbil/core/mop~MOP-5[:0:]#:port| - (let ((__obj27081 + (let ((__obj27180 (let () (declare (not safe)) (##structure @@ -4949,40 +4949,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 'port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27180 'port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 'port '2 '#f '#f)) - (let ((__tmp27546 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27180 'port '2 '#f '#f)) + (let ((__tmp27645 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27081 __tmp27546 '3 '#f '#f)) + (##unchecked-structure-set! __obj27180 __tmp27645 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27180 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '#t '9 '#f '#f)) - (let ((__tmp27547 |gerbil/core/mop~MOP-5[1]#_g27548_|)) + (##unchecked-structure-set! __obj27180 '#t '9 '#f '#f)) + (let ((__tmp27646 |gerbil/core/mop~MOP-5[1]#_g27647_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27081 __tmp27547 '12 '#f '#f)) - (let ((__tmp27549 |gerbil/core/mop~MOP-5[1]#_g27550_|)) + (##unchecked-structure-set! __obj27180 __tmp27646 '12 '#f '#f)) + (let ((__tmp27648 |gerbil/core/mop~MOP-5[1]#_g27649_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27081 __tmp27549 '14 '#f '#f)) + (##unchecked-structure-set! __obj27180 __tmp27648 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27180 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27180 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27180 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '18 '#f '#f)) - __obj27081)) + (##unchecked-structure-set! __obj27180 '() '18 '#f '#f)) + __obj27180)) (define |gerbil/core/mop~MOP-5[:0:]#:object-port| - (let ((__obj27082 + (let ((__obj27181 (let () (declare (not safe)) (##structure @@ -5010,40 +5010,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 'object-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27181 'object-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 'object-port '2 '#f '#f)) - (let ((__tmp27551 (cons |gerbil/core/mop~MOP-5[1]#_g27552_| '()))) + (##unchecked-structure-set! __obj27181 'object-port '2 '#f '#f)) + (let ((__tmp27650 (cons |gerbil/core/mop~MOP-5[1]#_g27651_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27082 __tmp27551 '3 '#f '#f)) + (##unchecked-structure-set! __obj27181 __tmp27650 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27181 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '#t '9 '#f '#f)) - (let ((__tmp27553 |gerbil/core/mop~MOP-5[1]#_g27554_|)) + (##unchecked-structure-set! __obj27181 '#t '9 '#f '#f)) + (let ((__tmp27652 |gerbil/core/mop~MOP-5[1]#_g27653_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27082 __tmp27553 '12 '#f '#f)) - (let ((__tmp27555 |gerbil/core/mop~MOP-5[1]#_g27556_|)) + (##unchecked-structure-set! __obj27181 __tmp27652 '12 '#f '#f)) + (let ((__tmp27654 |gerbil/core/mop~MOP-5[1]#_g27655_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27082 __tmp27555 '14 '#f '#f)) + (##unchecked-structure-set! __obj27181 __tmp27654 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27181 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27181 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27181 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '18 '#f '#f)) - __obj27082)) + (##unchecked-structure-set! __obj27181 '() '18 '#f '#f)) + __obj27181)) (define |gerbil/core/mop~MOP-5[:0:]#:character-port| - (let ((__obj27083 + (let ((__obj27182 (let () (declare (not safe)) (##structure @@ -5072,44 +5072,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27083 + __obj27182 'character-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 'character-port '2 '#f '#f)) - (let ((__tmp27557 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '()))) + (##unchecked-structure-set! __obj27182 'character-port '2 '#f '#f)) + (let ((__tmp27656 (cons |gerbil/core/mop~MOP-5[1]#_g27657_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27083 __tmp27557 '3 '#f '#f)) + (##unchecked-structure-set! __obj27182 __tmp27656 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27182 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '#t '9 '#f '#f)) - (let ((__tmp27559 |gerbil/core/mop~MOP-5[1]#_g27560_|)) + (##unchecked-structure-set! __obj27182 '#t '9 '#f '#f)) + (let ((__tmp27658 |gerbil/core/mop~MOP-5[1]#_g27659_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27083 __tmp27559 '12 '#f '#f)) - (let ((__tmp27561 |gerbil/core/mop~MOP-5[1]#_g27562_|)) + (##unchecked-structure-set! __obj27182 __tmp27658 '12 '#f '#f)) + (let ((__tmp27660 |gerbil/core/mop~MOP-5[1]#_g27661_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27083 __tmp27561 '14 '#f '#f)) + (##unchecked-structure-set! __obj27182 __tmp27660 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27182 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27182 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27182 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '18 '#f '#f)) - __obj27083)) + (##unchecked-structure-set! __obj27182 '() '18 '#f '#f)) + __obj27182)) (define |gerbil/core/mop~MOP-5[:0:]#:byte-port| - (let ((__obj27084 + (let ((__obj27183 (let () (declare (not safe)) (##structure @@ -5137,40 +5137,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 'byte-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27183 'byte-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 'byte-port '2 '#f '#f)) - (let ((__tmp27563 (cons |gerbil/core/mop~MOP-5[1]#_g27564_| '()))) + (##unchecked-structure-set! __obj27183 'byte-port '2 '#f '#f)) + (let ((__tmp27662 (cons |gerbil/core/mop~MOP-5[1]#_g27663_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27084 __tmp27563 '3 '#f '#f)) + (##unchecked-structure-set! __obj27183 __tmp27662 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27183 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '#t '9 '#f '#f)) - (let ((__tmp27565 |gerbil/core/mop~MOP-5[1]#_g27566_|)) + (##unchecked-structure-set! __obj27183 '#t '9 '#f '#f)) + (let ((__tmp27664 |gerbil/core/mop~MOP-5[1]#_g27665_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27084 __tmp27565 '12 '#f '#f)) - (let ((__tmp27567 |gerbil/core/mop~MOP-5[1]#_g27568_|)) + (##unchecked-structure-set! __obj27183 __tmp27664 '12 '#f '#f)) + (let ((__tmp27666 |gerbil/core/mop~MOP-5[1]#_g27667_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27084 __tmp27567 '14 '#f '#f)) + (##unchecked-structure-set! __obj27183 __tmp27666 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27183 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27183 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27183 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '18 '#f '#f)) - __obj27084)) + (##unchecked-structure-set! __obj27183 '() '18 '#f '#f)) + __obj27183)) (define |gerbil/core/mop~MOP-5[:0:]#:device-port| - (let ((__obj27085 + (let ((__obj27184 (let () (declare (not safe)) (##structure @@ -5198,40 +5198,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 'device-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27184 'device-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 'device-port '2 '#f '#f)) - (let ((__tmp27569 (cons |gerbil/core/mop~MOP-5[1]#_g27570_| '()))) + (##unchecked-structure-set! __obj27184 'device-port '2 '#f '#f)) + (let ((__tmp27668 (cons |gerbil/core/mop~MOP-5[1]#_g27669_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27085 __tmp27569 '3 '#f '#f)) + (##unchecked-structure-set! __obj27184 __tmp27668 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27184 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '#t '9 '#f '#f)) - (let ((__tmp27571 |gerbil/core/mop~MOP-5[1]#_g27572_|)) + (##unchecked-structure-set! __obj27184 '#t '9 '#f '#f)) + (let ((__tmp27670 |gerbil/core/mop~MOP-5[1]#_g27671_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27085 __tmp27571 '12 '#f '#f)) - (let ((__tmp27573 |gerbil/core/mop~MOP-5[1]#_g27574_|)) + (##unchecked-structure-set! __obj27184 __tmp27670 '12 '#f '#f)) + (let ((__tmp27672 |gerbil/core/mop~MOP-5[1]#_g27673_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27085 __tmp27573 '14 '#f '#f)) + (##unchecked-structure-set! __obj27184 __tmp27672 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27184 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27184 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27184 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '18 '#f '#f)) - __obj27085)) + (##unchecked-structure-set! __obj27184 '() '18 '#f '#f)) + __obj27184)) (define |gerbil/core/mop~MOP-5[:0:]#:vector-port| - (let ((__obj27086 + (let ((__obj27185 (let () (declare (not safe)) (##structure @@ -5259,40 +5259,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 'vector-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27185 'vector-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 'vector-port '2 '#f '#f)) - (let ((__tmp27575 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '()))) + (##unchecked-structure-set! __obj27185 'vector-port '2 '#f '#f)) + (let ((__tmp27674 (cons |gerbil/core/mop~MOP-5[1]#_g27657_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27086 __tmp27575 '3 '#f '#f)) + (##unchecked-structure-set! __obj27185 __tmp27674 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27185 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '#t '9 '#f '#f)) - (let ((__tmp27576 |gerbil/core/mop~MOP-5[1]#_g27577_|)) + (##unchecked-structure-set! __obj27185 '#t '9 '#f '#f)) + (let ((__tmp27675 |gerbil/core/mop~MOP-5[1]#_g27676_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27086 __tmp27576 '12 '#f '#f)) - (let ((__tmp27578 |gerbil/core/mop~MOP-5[1]#_g27579_|)) + (##unchecked-structure-set! __obj27185 __tmp27675 '12 '#f '#f)) + (let ((__tmp27677 |gerbil/core/mop~MOP-5[1]#_g27678_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27086 __tmp27578 '14 '#f '#f)) + (##unchecked-structure-set! __obj27185 __tmp27677 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27185 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27185 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27185 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '18 '#f '#f)) - __obj27086)) + (##unchecked-structure-set! __obj27185 '() '18 '#f '#f)) + __obj27185)) (define |gerbil/core/mop~MOP-5[:0:]#:string-port| - (let ((__obj27087 + (let ((__obj27186 (let () (declare (not safe)) (##structure @@ -5320,40 +5320,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 'string-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27186 'string-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 'string-port '2 '#f '#f)) - (let ((__tmp27580 (cons |gerbil/core/mop~MOP-5[1]#_g27564_| '()))) + (##unchecked-structure-set! __obj27186 'string-port '2 '#f '#f)) + (let ((__tmp27679 (cons |gerbil/core/mop~MOP-5[1]#_g27663_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27087 __tmp27580 '3 '#f '#f)) + (##unchecked-structure-set! __obj27186 __tmp27679 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27186 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '#t '9 '#f '#f)) - (let ((__tmp27581 |gerbil/core/mop~MOP-5[1]#_g27582_|)) + (##unchecked-structure-set! __obj27186 '#t '9 '#f '#f)) + (let ((__tmp27680 |gerbil/core/mop~MOP-5[1]#_g27681_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27087 __tmp27581 '12 '#f '#f)) - (let ((__tmp27583 |gerbil/core/mop~MOP-5[1]#_g27584_|)) + (##unchecked-structure-set! __obj27186 __tmp27680 '12 '#f '#f)) + (let ((__tmp27682 |gerbil/core/mop~MOP-5[1]#_g27683_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27087 __tmp27583 '14 '#f '#f)) + (##unchecked-structure-set! __obj27186 __tmp27682 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27186 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27186 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27186 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '18 '#f '#f)) - __obj27087)) + (##unchecked-structure-set! __obj27186 '() '18 '#f '#f)) + __obj27186)) (define |gerbil/core/mop~MOP-5[:0:]#:u8vector-port| - (let ((__obj27088 + (let ((__obj27187 (let () (declare (not safe)) (##structure @@ -5381,40 +5381,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 'u8vector-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27187 'u8vector-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 'u8vector-port '2 '#f '#f)) - (let ((__tmp27585 (cons |gerbil/core/mop~MOP-5[1]#_g27570_| '()))) + (##unchecked-structure-set! __obj27187 'u8vector-port '2 '#f '#f)) + (let ((__tmp27684 (cons |gerbil/core/mop~MOP-5[1]#_g27669_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27088 __tmp27585 '3 '#f '#f)) + (##unchecked-structure-set! __obj27187 __tmp27684 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27187 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '#t '9 '#f '#f)) - (let ((__tmp27586 |gerbil/core/mop~MOP-5[1]#_g27587_|)) + (##unchecked-structure-set! __obj27187 '#t '9 '#f '#f)) + (let ((__tmp27685 |gerbil/core/mop~MOP-5[1]#_g27686_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27088 __tmp27586 '12 '#f '#f)) - (let ((__tmp27588 |gerbil/core/mop~MOP-5[1]#_g27589_|)) + (##unchecked-structure-set! __obj27187 __tmp27685 '12 '#f '#f)) + (let ((__tmp27687 |gerbil/core/mop~MOP-5[1]#_g27688_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27088 __tmp27588 '14 '#f '#f)) + (##unchecked-structure-set! __obj27187 __tmp27687 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27187 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27187 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27187 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '18 '#f '#f)) - __obj27088)) + (##unchecked-structure-set! __obj27187 '() '18 '#f '#f)) + __obj27187)) (define |gerbil/core/mop~MOP-5[:0:]#:raw-device-port| - (let ((__obj27089 + (let ((__obj27188 (let () (declare (not safe)) (##structure @@ -5443,44 +5443,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27089 + __obj27188 'raw-device-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 'raw-device-port '2 '#f '#f)) - (let ((__tmp27590 (cons |gerbil/core/mop~MOP-5[1]#_g27552_| '()))) + (##unchecked-structure-set! __obj27188 'raw-device-port '2 '#f '#f)) + (let ((__tmp27689 (cons |gerbil/core/mop~MOP-5[1]#_g27651_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27089 __tmp27590 '3 '#f '#f)) + (##unchecked-structure-set! __obj27188 __tmp27689 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27188 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '#t '9 '#f '#f)) - (let ((__tmp27591 |gerbil/core/mop~MOP-5[1]#_g27592_|)) + (##unchecked-structure-set! __obj27188 '#t '9 '#f '#f)) + (let ((__tmp27690 |gerbil/core/mop~MOP-5[1]#_g27691_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27089 __tmp27591 '12 '#f '#f)) - (let ((__tmp27593 |gerbil/core/mop~MOP-5[1]#_g27594_|)) + (##unchecked-structure-set! __obj27188 __tmp27690 '12 '#f '#f)) + (let ((__tmp27692 |gerbil/core/mop~MOP-5[1]#_g27693_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27089 __tmp27593 '14 '#f '#f)) + (##unchecked-structure-set! __obj27188 __tmp27692 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27188 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27188 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27188 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '18 '#f '#f)) - __obj27089)) + (##unchecked-structure-set! __obj27188 '() '18 '#f '#f)) + __obj27188)) (define |gerbil/core/mop~MOP-5[:0:]#:tcp-server-port| - (let ((__obj27090 + (let ((__obj27189 (let () (declare (not safe)) (##structure @@ -5509,44 +5509,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27090 + __obj27189 'tcp-server-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 'tcp-server-port '2 '#f '#f)) - (let ((__tmp27595 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '()))) + (##unchecked-structure-set! __obj27189 'tcp-server-port '2 '#f '#f)) + (let ((__tmp27694 (cons |gerbil/core/mop~MOP-5[1]#_g27657_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27090 __tmp27595 '3 '#f '#f)) + (##unchecked-structure-set! __obj27189 __tmp27694 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27189 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '#t '9 '#f '#f)) - (let ((__tmp27596 |gerbil/core/mop~MOP-5[1]#_g27597_|)) + (##unchecked-structure-set! __obj27189 '#t '9 '#f '#f)) + (let ((__tmp27695 |gerbil/core/mop~MOP-5[1]#_g27696_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27090 __tmp27596 '12 '#f '#f)) - (let ((__tmp27598 |gerbil/core/mop~MOP-5[1]#_g27599_|)) + (##unchecked-structure-set! __obj27189 __tmp27695 '12 '#f '#f)) + (let ((__tmp27697 |gerbil/core/mop~MOP-5[1]#_g27698_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27090 __tmp27598 '14 '#f '#f)) + (##unchecked-structure-set! __obj27189 __tmp27697 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27189 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27189 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27189 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '18 '#f '#f)) - __obj27090)) + (##unchecked-structure-set! __obj27189 '() '18 '#f '#f)) + __obj27189)) (define |gerbil/core/mop~MOP-5[:0:]#:udp-port| - (let ((__obj27091 + (let ((__obj27190 (let () (declare (not safe)) (##structure @@ -5574,40 +5574,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 'udp-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27190 'udp-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 'udp-port '2 '#f '#f)) - (let ((__tmp27600 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '()))) + (##unchecked-structure-set! __obj27190 'udp-port '2 '#f '#f)) + (let ((__tmp27699 (cons |gerbil/core/mop~MOP-5[1]#_g27657_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27091 __tmp27600 '3 '#f '#f)) + (##unchecked-structure-set! __obj27190 __tmp27699 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27190 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '#t '9 '#f '#f)) - (let ((__tmp27601 |gerbil/core/mop~MOP-5[1]#_g27602_|)) + (##unchecked-structure-set! __obj27190 '#t '9 '#f '#f)) + (let ((__tmp27700 |gerbil/core/mop~MOP-5[1]#_g27701_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27091 __tmp27601 '12 '#f '#f)) - (let ((__tmp27603 |gerbil/core/mop~MOP-5[1]#_g27604_|)) + (##unchecked-structure-set! __obj27190 __tmp27700 '12 '#f '#f)) + (let ((__tmp27702 |gerbil/core/mop~MOP-5[1]#_g27703_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27091 __tmp27603 '14 '#f '#f)) + (##unchecked-structure-set! __obj27190 __tmp27702 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27190 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27190 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27190 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '18 '#f '#f)) - __obj27091)) + (##unchecked-structure-set! __obj27190 '() '18 '#f '#f)) + __obj27190)) (define |gerbil/core/mop~MOP-5[:0:]#:directory-port| - (let ((__obj27092 + (let ((__obj27191 (let () (declare (not safe)) (##structure @@ -5636,44 +5636,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27092 + __obj27191 'directory-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 'directory-port '2 '#f '#f)) - (let ((__tmp27605 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '()))) + (##unchecked-structure-set! __obj27191 'directory-port '2 '#f '#f)) + (let ((__tmp27704 (cons |gerbil/core/mop~MOP-5[1]#_g27657_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27092 __tmp27605 '3 '#f '#f)) + (##unchecked-structure-set! __obj27191 __tmp27704 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27191 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '#t '9 '#f '#f)) - (let ((__tmp27606 |gerbil/core/mop~MOP-5[1]#_g27607_|)) + (##unchecked-structure-set! __obj27191 '#t '9 '#f '#f)) + (let ((__tmp27705 |gerbil/core/mop~MOP-5[1]#_g27706_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27092 __tmp27606 '12 '#f '#f)) - (let ((__tmp27608 |gerbil/core/mop~MOP-5[1]#_g27609_|)) + (##unchecked-structure-set! __obj27191 __tmp27705 '12 '#f '#f)) + (let ((__tmp27707 |gerbil/core/mop~MOP-5[1]#_g27708_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27092 __tmp27608 '14 '#f '#f)) + (##unchecked-structure-set! __obj27191 __tmp27707 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27191 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27191 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27191 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '18 '#f '#f)) - __obj27092)) + (##unchecked-structure-set! __obj27191 '() '18 '#f '#f)) + __obj27191)) (define |gerbil/core/mop~MOP-5[:0:]#:event-queue-port| - (let ((__obj27093 + (let ((__obj27192 (let () (declare (not safe)) (##structure @@ -5702,44 +5702,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27093 + __obj27192 'event-queue-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 'event-queue-port '2 '#f '#f)) - (let ((__tmp27610 (cons |gerbil/core/mop~MOP-5[1]#_g27558_| '()))) + (##unchecked-structure-set! __obj27192 'event-queue-port '2 '#f '#f)) + (let ((__tmp27709 (cons |gerbil/core/mop~MOP-5[1]#_g27657_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27093 __tmp27610 '3 '#f '#f)) + (##unchecked-structure-set! __obj27192 __tmp27709 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27192 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '#t '9 '#f '#f)) - (let ((__tmp27611 |gerbil/core/mop~MOP-5[1]#_g27612_|)) + (##unchecked-structure-set! __obj27192 '#t '9 '#f '#f)) + (let ((__tmp27710 |gerbil/core/mop~MOP-5[1]#_g27711_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27093 __tmp27611 '12 '#f '#f)) - (let ((__tmp27613 |gerbil/core/mop~MOP-5[1]#_g27614_|)) + (##unchecked-structure-set! __obj27192 __tmp27710 '12 '#f '#f)) + (let ((__tmp27712 |gerbil/core/mop~MOP-5[1]#_g27713_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27093 __tmp27613 '14 '#f '#f)) + (##unchecked-structure-set! __obj27192 __tmp27712 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27192 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27192 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27192 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '18 '#f '#f)) - __obj27093)) + (##unchecked-structure-set! __obj27192 '() '18 '#f '#f)) + __obj27192)) (define |gerbil/core/mop~MOP-5[:0:]#:table| - (let ((__obj27094 + (let ((__obj27193 (let () (declare (not safe)) (##structure @@ -5767,40 +5767,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 'table::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27193 'table::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 'table '2 '#f '#f)) - (let ((__tmp27615 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27193 'table '2 '#f '#f)) + (let ((__tmp27714 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27094 __tmp27615 '3 '#f '#f)) + (##unchecked-structure-set! __obj27193 __tmp27714 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27193 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '#t '9 '#f '#f)) - (let ((__tmp27616 |gerbil/core/mop~MOP-5[1]#_g27617_|)) + (##unchecked-structure-set! __obj27193 '#t '9 '#f '#f)) + (let ((__tmp27715 |gerbil/core/mop~MOP-5[1]#_g27716_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27094 __tmp27616 '12 '#f '#f)) - (let ((__tmp27618 |gerbil/core/mop~MOP-5[1]#_g27619_|)) + (##unchecked-structure-set! __obj27193 __tmp27715 '12 '#f '#f)) + (let ((__tmp27717 |gerbil/core/mop~MOP-5[1]#_g27718_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27094 __tmp27618 '14 '#f '#f)) + (##unchecked-structure-set! __obj27193 __tmp27717 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27193 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27193 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27193 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '18 '#f '#f)) - __obj27094)) + (##unchecked-structure-set! __obj27193 '() '18 '#f '#f)) + __obj27193)) (define |gerbil/core/mop~MOP-5[:0:]#:readenv| - (let ((__obj27095 + (let ((__obj27194 (let () (declare (not safe)) (##structure @@ -5828,40 +5828,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 'readenv::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27194 'readenv::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 'readenv '2 '#f '#f)) - (let ((__tmp27620 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27194 'readenv '2 '#f '#f)) + (let ((__tmp27719 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27095 __tmp27620 '3 '#f '#f)) + (##unchecked-structure-set! __obj27194 __tmp27719 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27194 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '#t '9 '#f '#f)) - (let ((__tmp27621 |gerbil/core/mop~MOP-5[1]#_g27622_|)) + (##unchecked-structure-set! __obj27194 '#t '9 '#f '#f)) + (let ((__tmp27720 |gerbil/core/mop~MOP-5[1]#_g27721_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27095 __tmp27621 '12 '#f '#f)) - (let ((__tmp27623 |gerbil/core/mop~MOP-5[1]#_g27624_|)) + (##unchecked-structure-set! __obj27194 __tmp27720 '12 '#f '#f)) + (let ((__tmp27722 |gerbil/core/mop~MOP-5[1]#_g27723_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27095 __tmp27623 '14 '#f '#f)) + (##unchecked-structure-set! __obj27194 __tmp27722 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27194 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27194 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27194 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '() '18 '#f '#f)) - __obj27095)) + (##unchecked-structure-set! __obj27194 '() '18 '#f '#f)) + __obj27194)) (define |gerbil/core/mop~MOP-5[:0:]#:writeenv| - (let ((__obj27096 + (let ((__obj27195 (let () (declare (not safe)) (##structure @@ -5889,40 +5889,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 'writeenv::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27195 'writeenv::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 'writeenv '2 '#f '#f)) - (let ((__tmp27625 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27195 'writeenv '2 '#f '#f)) + (let ((__tmp27724 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27096 __tmp27625 '3 '#f '#f)) + (##unchecked-structure-set! __obj27195 __tmp27724 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27195 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '#t '9 '#f '#f)) - (let ((__tmp27626 |gerbil/core/mop~MOP-5[1]#_g27627_|)) + (##unchecked-structure-set! __obj27195 '#t '9 '#f '#f)) + (let ((__tmp27725 |gerbil/core/mop~MOP-5[1]#_g27726_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27096 __tmp27626 '12 '#f '#f)) - (let ((__tmp27628 |gerbil/core/mop~MOP-5[1]#_g27629_|)) + (##unchecked-structure-set! __obj27195 __tmp27725 '12 '#f '#f)) + (let ((__tmp27727 |gerbil/core/mop~MOP-5[1]#_g27728_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27096 __tmp27628 '14 '#f '#f)) + (##unchecked-structure-set! __obj27195 __tmp27727 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27195 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27195 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27195 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '() '18 '#f '#f)) - __obj27096)) + (##unchecked-structure-set! __obj27195 '() '18 '#f '#f)) + __obj27195)) (define |gerbil/core/mop~MOP-5[:0:]#:readtable| - (let ((__obj27097 + (let ((__obj27196 (let () (declare (not safe)) (##structure @@ -5950,40 +5950,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 'readtable::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27196 'readtable::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 'readtable '2 '#f '#f)) - (let ((__tmp27630 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27196 'readtable '2 '#f '#f)) + (let ((__tmp27729 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27097 __tmp27630 '3 '#f '#f)) + (##unchecked-structure-set! __obj27196 __tmp27729 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27196 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '#t '9 '#f '#f)) - (let ((__tmp27631 |gerbil/core/mop~MOP-5[1]#_g27632_|)) + (##unchecked-structure-set! __obj27196 '#t '9 '#f '#f)) + (let ((__tmp27730 |gerbil/core/mop~MOP-5[1]#_g27731_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27097 __tmp27631 '12 '#f '#f)) - (let ((__tmp27633 |gerbil/core/mop~MOP-5[1]#_g27634_|)) + (##unchecked-structure-set! __obj27196 __tmp27730 '12 '#f '#f)) + (let ((__tmp27732 |gerbil/core/mop~MOP-5[1]#_g27733_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27097 __tmp27633 '14 '#f '#f)) + (##unchecked-structure-set! __obj27196 __tmp27732 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27196 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27196 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27196 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '() '18 '#f '#f)) - __obj27097)) + (##unchecked-structure-set! __obj27196 '() '18 '#f '#f)) + __obj27196)) (define |gerbil/core/mop~MOP-5[:0:]#:processor| - (let ((__obj27098 + (let ((__obj27197 (let () (declare (not safe)) (##structure @@ -6011,40 +6011,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 'processor::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27197 'processor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 'processor '2 '#f '#f)) - (let ((__tmp27635 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27197 'processor '2 '#f '#f)) + (let ((__tmp27734 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27098 __tmp27635 '3 '#f '#f)) + (##unchecked-structure-set! __obj27197 __tmp27734 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27197 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '#t '9 '#f '#f)) - (let ((__tmp27636 |gerbil/core/mop~MOP-5[1]#_g27637_|)) + (##unchecked-structure-set! __obj27197 '#t '9 '#f '#f)) + (let ((__tmp27735 |gerbil/core/mop~MOP-5[1]#_g27736_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27098 __tmp27636 '12 '#f '#f)) - (let ((__tmp27638 |gerbil/core/mop~MOP-5[1]#_g27639_|)) + (##unchecked-structure-set! __obj27197 __tmp27735 '12 '#f '#f)) + (let ((__tmp27737 |gerbil/core/mop~MOP-5[1]#_g27738_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27098 __tmp27638 '14 '#f '#f)) + (##unchecked-structure-set! __obj27197 __tmp27737 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27197 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27197 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27197 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '() '18 '#f '#f)) - __obj27098)) + (##unchecked-structure-set! __obj27197 '() '18 '#f '#f)) + __obj27197)) (define |gerbil/core/mop~MOP-5[:0:]#:vm| - (let ((__obj27099 + (let ((__obj27198 (let () (declare (not safe)) (##structure @@ -6072,40 +6072,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 'vm::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27198 'vm::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 'vm '2 '#f '#f)) - (let ((__tmp27640 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27198 'vm '2 '#f '#f)) + (let ((__tmp27739 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27099 __tmp27640 '3 '#f '#f)) + (##unchecked-structure-set! __obj27198 __tmp27739 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27198 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '#t '9 '#f '#f)) - (let ((__tmp27641 |gerbil/core/mop~MOP-5[1]#_g27642_|)) + (##unchecked-structure-set! __obj27198 '#t '9 '#f '#f)) + (let ((__tmp27740 |gerbil/core/mop~MOP-5[1]#_g27741_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27099 __tmp27641 '12 '#f '#f)) - (let ((__tmp27643 |gerbil/core/mop~MOP-5[1]#_g27644_|)) + (##unchecked-structure-set! __obj27198 __tmp27740 '12 '#f '#f)) + (let ((__tmp27742 |gerbil/core/mop~MOP-5[1]#_g27743_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27099 __tmp27643 '14 '#f '#f)) + (##unchecked-structure-set! __obj27198 __tmp27742 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27198 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27198 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27198 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '() '18 '#f '#f)) - __obj27099)) + (##unchecked-structure-set! __obj27198 '() '18 '#f '#f)) + __obj27198)) (define |gerbil/core/mop~MOP-5[:0:]#:file-info| - (let ((__obj27100 + (let ((__obj27199 (let () (declare (not safe)) (##structure @@ -6133,40 +6133,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 'file-info::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27199 'file-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 'file-info '2 '#f '#f)) - (let ((__tmp27645 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27199 'file-info '2 '#f '#f)) + (let ((__tmp27744 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27100 __tmp27645 '3 '#f '#f)) + (##unchecked-structure-set! __obj27199 __tmp27744 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27199 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '#t '9 '#f '#f)) - (let ((__tmp27646 |gerbil/core/mop~MOP-5[1]#_g27647_|)) + (##unchecked-structure-set! __obj27199 '#t '9 '#f '#f)) + (let ((__tmp27745 |gerbil/core/mop~MOP-5[1]#_g27746_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27100 __tmp27646 '12 '#f '#f)) - (let ((__tmp27648 |gerbil/core/mop~MOP-5[1]#_g27649_|)) + (##unchecked-structure-set! __obj27199 __tmp27745 '12 '#f '#f)) + (let ((__tmp27747 |gerbil/core/mop~MOP-5[1]#_g27748_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27100 __tmp27648 '14 '#f '#f)) + (##unchecked-structure-set! __obj27199 __tmp27747 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27199 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27199 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27199 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '() '18 '#f '#f)) - __obj27100)) + (##unchecked-structure-set! __obj27199 '() '18 '#f '#f)) + __obj27199)) (define |gerbil/core/mop~MOP-5[:0:]#:socket-info| - (let ((__obj27101 + (let ((__obj27200 (let () (declare (not safe)) (##structure @@ -6194,40 +6194,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 'socket-info::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27200 'socket-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 'socket-info '2 '#f '#f)) - (let ((__tmp27650 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27200 'socket-info '2 '#f '#f)) + (let ((__tmp27749 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27101 __tmp27650 '3 '#f '#f)) + (##unchecked-structure-set! __obj27200 __tmp27749 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27200 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '#t '9 '#f '#f)) - (let ((__tmp27651 |gerbil/core/mop~MOP-5[1]#_g27652_|)) + (##unchecked-structure-set! __obj27200 '#t '9 '#f '#f)) + (let ((__tmp27750 |gerbil/core/mop~MOP-5[1]#_g27751_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27101 __tmp27651 '12 '#f '#f)) - (let ((__tmp27653 |gerbil/core/mop~MOP-5[1]#_g27654_|)) + (##unchecked-structure-set! __obj27200 __tmp27750 '12 '#f '#f)) + (let ((__tmp27752 |gerbil/core/mop~MOP-5[1]#_g27753_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27101 __tmp27653 '14 '#f '#f)) + (##unchecked-structure-set! __obj27200 __tmp27752 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27200 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27200 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27200 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '() '18 '#f '#f)) - __obj27101)) + (##unchecked-structure-set! __obj27200 '() '18 '#f '#f)) + __obj27200)) (define |gerbil/core/mop~MOP-5[:0:]#:address-info| - (let ((__obj27102 + (let ((__obj27201 (let () (declare (not safe)) (##structure @@ -6255,35 +6255,35 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 'address-info::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27201 'address-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 'address-info '2 '#f '#f)) - (let ((__tmp27655 (cons |gerbil/core/mop~MOP-5[1]#_g27248_| '()))) + (##unchecked-structure-set! __obj27201 'address-info '2 '#f '#f)) + (let ((__tmp27754 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27102 __tmp27655 '3 '#f '#f)) + (##unchecked-structure-set! __obj27201 __tmp27754 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27201 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '#t '9 '#f '#f)) - (let ((__tmp27656 |gerbil/core/mop~MOP-5[1]#_g27657_|)) + (##unchecked-structure-set! __obj27201 '#t '9 '#f '#f)) + (let ((__tmp27755 |gerbil/core/mop~MOP-5[1]#_g27756_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27102 __tmp27656 '12 '#f '#f)) - (let ((__tmp27658 |gerbil/core/mop~MOP-5[1]#_g27659_|)) + (##unchecked-structure-set! __obj27201 __tmp27755 '12 '#f '#f)) + (let ((__tmp27757 |gerbil/core/mop~MOP-5[1]#_g27758_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27102 __tmp27658 '14 '#f '#f)) + (##unchecked-structure-set! __obj27201 __tmp27757 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27201 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27201 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27201 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '() '18 '#f '#f)) - __obj27102)))) + (##unchecked-structure-set! __obj27201 '() '18 '#f '#f)) + __obj27201)))) diff --git a/src/bootstrap/gerbil/core/mop~MOP-2~0.scm b/src/bootstrap/gerbil/core/mop~MOP-2~0.scm index cf6f34e14..1fcb813e7 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 1713631255) + (define gerbil/core/mop~MOP-2::timestamp 1734357950) (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 _%$args22546%_ + (lambda _%$args22645%_ (apply make-instance gerbil/core/mop~MOP-2#class-type-info::t - _%$args22546%_))) + _%$args22645%_))) (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,148 +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 (_%self22457%_ _%stx22458%_) - (let* ((_%g2246022479%_ - (lambda (_%g2246122476%_) + (lambda (_%self22556%_ _%stx22557%_) + (let* ((_%g2255922578%_ + (lambda (_%g2256022575%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2246122476%_))) - (_%g2245922543%_ - (lambda (_%g2246122482%_) - (if (gx#stx-pair? _%g2246122482%_) - (let ((_%e2246322484%_ (gx#syntax-e _%g2246122482%_))) - (let ((_%hd2246422487%_ + _%g2256022575%_))) + (_%g2255822642%_ + (lambda (_%g2256022581%_) + (if (gx#stx-pair? _%g2256022581%_) + (let ((_%e2256222583%_ (gx#syntax-e _%g2256022581%_))) + (let ((_%hd2256322586%_ (let () (declare (not safe)) - (##car _%e2246322484%_))) - (_%tl2246522489%_ + (##car _%e2256222583%_))) + (_%tl2256422588%_ (let () (declare (not safe)) - (##cdr _%e2246322484%_)))) - (if (gx#stx-pair/null? _%tl2246522489%_) - (let ((_g27103_ + (##cdr _%e2256222583%_)))) + (if (gx#stx-pair/null? _%tl2256422588%_) + (let ((_g27202_ (gx#syntax-split-splice - _%tl2246522489%_ + _%tl2256422588%_ '0))) (begin - (let ((_g27104_ + (let ((_g27203_ (let () (declare (not safe)) - (if (##values? _g27103_) - (##vector-length _g27103_) + (if (##values? _g27202_) + (##values-length _g27202_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27104_ 2))) + (##fx= _g27203_ 2))) (error "Context expects 2 values" - _g27104_))) - (let ((_%target2246622492%_ + _g27203_))) + (let ((_%target2256522591%_ (let () (declare (not safe)) - (##vector-ref _g27103_ 0))) - (_%tl2246822494%_ + (##values-ref _g27202_ 0))) + (_%tl2256722593%_ (let () (declare (not safe)) - (##vector-ref _g27103_ 1)))) - (if (gx#stx-null? _%tl2246822494%_) - (letrec ((_%loop2246922497%_ - (lambda (_%hd2246722500%_ - _%arg2247322502%_) + (##values-ref _g27202_ 1)))) + (if (gx#stx-null? _%tl2256722593%_) + (letrec ((_%loop2256822596%_ + (lambda (_%hd2256622599%_ + _%arg2257222601%_) (if (gx#stx-pair? - _%hd2246722500%_) - (let ((_%e2247022505%_ + _%hd2256622599%_) + (let ((_%e2256922604%_ (gx#syntax-e - _%hd2246722500%_))) - (let ((_%lp-hd2247122508%_ + _%hd2256622599%_))) + (let ((_%lp-hd2257022607%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e2247022505%_))) - (_%lp-tl2247222510%_ + (let () (declare (not safe)) (##car _%e2256922604%_))) + (_%lp-tl2257122609%_ (let () (declare (not safe)) - (##cdr _%e2247022505%_)))) - (_%loop2246922497%_ - _%lp-tl2247222510%_ - (cons _%lp-hd2247122508%_ _%arg2247322502%_)))) - (let ((_%arg2247422513%_ (reverse _%arg2247322502%_))) - ((lambda (_%L22516%_) - (let ((_%$e22530%_ - (let ((__obj27022 _%self22457%_)) + (##cdr _%e2256922604%_)))) + (_%loop2256822596%_ + _%lp-tl2257122609%_ + (cons _%lp-hd2257022607%_ _%arg2257222601%_)))) + (let ((_%arg2257322612%_ (reverse _%arg2257222601%_))) + ((lambda (_%L22615%_) + (let ((_%$e22629%_ + (let ((__obj27121 _%self22556%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27022 + __obj27121 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27022 + __obj27121 '13 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27022 + __obj27121 'constructor))))) - (if _%$e22530%_ - ((lambda (_%make22533%_) - (cons _%make22533%_ - (foldr (lambda (_%g2253422537%_ - _%g2253522539%_) - (cons _%g2253422537%_ - _%g2253522539%_)) + (if _%$e22629%_ + ((lambda (_%make22632%_) + (cons _%make22632%_ + (foldr (lambda (_%g2263322636%_ + _%g2263422638%_) + (cons _%g2263322636%_ + _%g2263422638%_)) '() - _%L22516%_))) - _%$e22530%_) + _%L22615%_))) + _%$e22629%_) (gx#raise-syntax-error '#f '"no constructor defined for class" - _%stx22458%_ - _%self22457%_)))) - _%arg2247422513%_)))))) + _%stx22557%_ + _%self22556%_)))) + _%arg2257322612%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2246922497%_ - _%target2246622492%_ + (_%loop2256822596%_ + _%target2256522591%_ '())) - (_%g2246022479%_ _%g2246122482%_))))) - (_%g2246022479%_ _%g2246122482%_)))) - (_%g2246022479%_ _%g2246122482%_))))) - (_%g2245922543%_ _%stx22458%_)))) + (_%g2255922578%_ _%g2256022581%_))))) + (_%g2255922578%_ _%g2256022581%_)))) + (_%g2255922578%_ _%g2256022581%_))))) + (_%g2255822642%_ _%stx22557%_)))) (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 (_%stx22438%_ _%is?22439%_) - (if (gx#identifier? _%stx22438%_) - (let ((_%e2244022442%_ (gx#syntax-local-value _%stx22438%_ false))) - (if _%e2244022442%_ - (let ((_%e22445%_ _%e2244022442%_)) + (lambda (_%stx22537%_ _%is?22538%_) + (if (gx#identifier? _%stx22537%_) + (let ((_%e2253922541%_ (gx#syntax-local-value _%stx22537%_ false))) + (if _%e2253922541%_ + (let ((_%e22544%_ _%e2253922541%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%e22445%_)) - (_%is?22439%_ _%e22445%_) + _%e22544%_)) + (_%is?22538%_ _%e22544%_) '#f)) '#f)) '#f))) (define gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - (lambda (_%stx22450%_) - (let ((_%is?22452%_ true)) + (lambda (_%stx22549%_) + (let ((_%is?22551%_ true)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - _%stx22450%_ - _%is?22452%_)))) + _%stx22549%_ + _%is?22551%_)))) (define gerbil/core/mop~MOP-2#syntax-local-class-type-info? - (lambda _g27106_ - (let ((_g27105_ (let () (declare (not safe)) (##length _g27106_)))) - (cond ((let () (declare (not safe)) (##fx= _g27105_ 1)) + (lambda _g27205_ + (let ((_g27204_ (let () (declare (not safe)) (##length _g27205_)))) + (cond ((let () (declare (not safe)) (##fx= _g27204_ 1)) (apply gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _g27106_)) - ((let () (declare (not safe)) (##fx= _g27105_ 2)) + _g27205_)) + ((let () (declare (not safe)) (##fx= _g27204_ 2)) (apply gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - _g27106_)) + _g27205_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core/mop~MOP-2#syntax-local-class-type-info? - _g27106_)))))))) + _g27205_)))))))) diff --git a/src/bootstrap/gerbil/core/more-sugar~1.scm b/src/bootstrap/gerbil/core/more-sugar~1.scm index 79e728c66..054a20803 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 _%$args40290%_ + (lambda _%$args40389%_ (apply make-instance |gerbil/core/more-sugar[1]#setq-macro::t| - _%$args40290%_))) + _%$args40389%_))) (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 _%$args40286%_ + (lambda _%$args40385%_ (apply make-instance |gerbil/core/more-sugar[1]#setf-macro::t| - _%$args40286%_))) + _%$args40385%_))) (define |gerbil/core/more-sugar[1]#setf-macro-macro| (make-class-slot-accessor |gerbil/core/more-sugar[1]#setf-macro::t| @@ -59,1251 +59,1251 @@ |gerbil/core/more-sugar[1]#setf-macro::t| 'macro)) (define |gerbil/core/more-sugar[1]#syntax-local-setf-macro?| - (lambda (_%stx40283%_) - (if (gx#identifier? _%stx40283%_) - (let ((__tmp41508 (gx#syntax-local-value _%stx40283%_ false))) + (lambda (_%stx40382%_) + (if (gx#identifier? _%stx40382%_) + (let ((__tmp41607 (gx#syntax-local-value _%stx40382%_ false))) (declare (not safe)) (class-instance? |gerbil/core/more-sugar[1]#setf-macro::t| - __tmp41508)) + __tmp41607)) '#f))) (define |gerbil/core/more-sugar[1]#syntax-local-setq-macro?| - (lambda (_%stx40280%_) - (if (gx#identifier? _%stx40280%_) - (let ((__tmp41509 (gx#syntax-local-value _%stx40280%_ false))) + (lambda (_%stx40379%_) + (if (gx#identifier? _%stx40379%_) + (let ((__tmp41608 (gx#syntax-local-value _%stx40379%_ false))) (declare (not safe)) (class-instance? |gerbil/core/more-sugar[1]#setq-macro::t| - __tmp41509)) + __tmp41608)) '#f))) (define |gerbil/core/more-sugar[1]#expand-set!| - (lambda (_%stx39905%_) - (let* ((_%__stx4134741348%_ _%stx39905%_) - (_%g3991139974%_ + (lambda (_%stx40004%_) + (let* ((_%__stx4144641447%_ _%stx40004%_) + (_%g4001040073%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4134741348%_)))) - (let ((_%__kont4135041351%_ - (lambda (_%L40257%_ _%L40259%_) + _%__stx4144641447%_)))) + (let ((_%__kont4144941450%_ + (lambda (_%L40356%_ _%L40358%_) (gx#core-apply-expander - (gx#syntax-local-e _%L40259%_) - _%stx39905%_))) - (_%__kont4135241353%_ - (lambda (_%L40146%_ _%L40148%_ _%L40149%_) - (let* ((_%g4017140179%_ - (lambda (_%g4017240175%_) + (gx#syntax-local-e _%L40358%_) + _%stx40004%_))) + (_%__kont4145141452%_ + (lambda (_%L40245%_ _%L40247%_ _%L40248%_) + (let* ((_%g4027040278%_ + (lambda (_%g4027140274%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4017240175%_))) - (_%g4017040206%_ - (lambda (_%g4017240183%_) - ((lambda (_%L40186%_) - (cons _%L40186%_ - (foldr (lambda (_%g4019740200%_ - _%g4019840203%_) - (cons _%g4019740200%_ - _%g4019840203%_)) - (cons _%L40146%_ '()) - _%L40148%_))) - _%g4017240183%_)))) - (_%g4017040206%_ - (gx#stx-identifier _%L40149%_ _%L40149%_ '"-set!"))))) - (_%__kont4135641357%_ - (lambda (_%L40056%_) + _%g4027140274%_))) + (_%g4026940305%_ + (lambda (_%g4027140282%_) + ((lambda (_%L40285%_) + (cons _%L40285%_ + (foldr (lambda (_%g4029640299%_ + _%g4029740302%_) + (cons _%g4029640299%_ + _%g4029740302%_)) + (cons _%L40245%_ '()) + _%L40247%_))) + _%g4027140282%_)))) + (_%g4026940305%_ + (gx#stx-identifier _%L40248%_ _%L40248%_ '"-set!"))))) + (_%__kont4145541456%_ + (lambda (_%L40155%_) (gx#core-apply-expander - (gx#syntax-local-e _%L40056%_) - _%stx39905%_))) - (_%__kont4135841359%_ - (lambda (_%L40011%_ _%L40013%_) + (gx#syntax-local-e _%L40155%_) + _%stx40004%_))) + (_%__kont4145741458%_ + (lambda (_%L40110%_ _%L40112%_) (cons (gx#datum->syntax '#f '%#set!) - (cons _%L40013%_ (cons _%L40011%_ '())))))) - (let* ((_%__match4144641447%_ - (lambda (_%e3996039981%_ - _%hd3996139985%_ - _%tl3996239988%_ - _%e3996339991%_ - _%hd3996439995%_ - _%tl3996539998%_ - _%e3996640001%_ - _%hd3996740005%_ - _%tl3996840008%_) - (let ((_%L40011%_ _%hd3996740005%_) - (_%L40013%_ _%hd3996439995%_)) - (if (gx#identifier? _%L40013%_) - (_%__kont4135841359%_ _%L40011%_ _%L40013%_) - (let () (declare (not safe)) (_%g3991139974%_)))))) - (_%__match4142641427%_ - (lambda (_%e3995240036%_ - _%hd3995340040%_ - _%tl3995440043%_ - _%e3995540046%_ - _%hd3995640050%_ - _%tl3995740053%_) - (let ((_%L40056%_ _%hd3995640050%_)) + (cons _%L40112%_ (cons _%L40110%_ '())))))) + (let* ((_%__match4154541546%_ + (lambda (_%e4005940080%_ + _%hd4006040084%_ + _%tl4006140087%_ + _%e4006240090%_ + _%hd4006340094%_ + _%tl4006440097%_ + _%e4006540100%_ + _%hd4006640104%_ + _%tl4006740107%_) + (let ((_%L40110%_ _%hd4006640104%_) + (_%L40112%_ _%hd4006340094%_)) + (if (gx#identifier? _%L40112%_) + (_%__kont4145741458%_ _%L40110%_ _%L40112%_) + (let () (declare (not safe)) (_%g4001040073%_)))))) + (_%__match4152541526%_ + (lambda (_%e4005140135%_ + _%hd4005240139%_ + _%tl4005340142%_ + _%e4005440145%_ + _%hd4005540149%_ + _%tl4005640152%_) + (let ((_%L40155%_ _%hd4005540149%_)) (if (|gerbil/core/more-sugar[1]#syntax-local-setq-macro?| - _%L40056%_) - (_%__kont4135641357%_ _%L40056%_) - (if (gx#stx-pair? _%tl3995740053%_) - (let ((_%e3996640001%_ - (gx#syntax-e _%tl3995740053%_))) - (let ((_%tl3996840008%_ + _%L40155%_) + (_%__kont4145541456%_ _%L40155%_) + (if (gx#stx-pair? _%tl4005640152%_) + (let ((_%e4006540100%_ + (gx#syntax-e _%tl4005640152%_))) + (let ((_%tl4006740107%_ (let () (declare (not safe)) - (##cdr _%e3996640001%_))) - (_%hd3996740005%_ + (##cdr _%e4006540100%_))) + (_%hd4006640104%_ (let () (declare (not safe)) - (##car _%e3996640001%_)))) - (if (gx#stx-null? _%tl3996840008%_) - (_%__match4144641447%_ - _%e3995240036%_ - _%hd3995340040%_ - _%tl3995440043%_ - _%e3995540046%_ - _%hd3995640050%_ - _%tl3995740053%_ - _%e3996640001%_ - _%hd3996740005%_ - _%tl3996840008%_) + (##car _%e4006540100%_)))) + (if (gx#stx-null? _%tl4006740107%_) + (_%__match4154541546%_ + _%e4005140135%_ + _%hd4005240139%_ + _%tl4005340142%_ + _%e4005440145%_ + _%hd4005540149%_ + _%tl4005640152%_ + _%e4006540100%_ + _%hd4006640104%_ + _%tl4006740107%_) (let () (declare (not safe)) - (_%g3991139974%_))))) + (_%g4001040073%_))))) (let () (declare (not safe)) - (_%g3991139974%_))))))) - (_%__match4141441415%_ - (lambda (_%e3993040076%_ - _%hd3993140080%_ - _%tl3993240083%_ - _%e3993340086%_ - _%hd3993440090%_ - _%tl3993540093%_ - _%e3993640096%_ - _%hd3993740100%_ - _%tl3993840103%_ - _%__splice4135441355%_ - _%target3993940106%_ - _%tl3994140109%_) - (letrec ((_%loop3994240112%_ - (lambda (_%hd3994040116%_ _%arg3994640119%_) - (if (gx#stx-pair? _%hd3994040116%_) - (let ((_%e3994340122%_ - (gx#syntax-e _%hd3994040116%_))) - (let ((_%lp-tl3994540129%_ + (_%g4001040073%_))))))) + (_%__match4151341514%_ + (lambda (_%e4002940175%_ + _%hd4003040179%_ + _%tl4003140182%_ + _%e4003240185%_ + _%hd4003340189%_ + _%tl4003440192%_ + _%e4003540195%_ + _%hd4003640199%_ + _%tl4003740202%_ + _%__splice4145341454%_ + _%target4003840205%_ + _%tl4004040208%_) + (letrec ((_%loop4004140211%_ + (lambda (_%hd4003940215%_ _%arg4004540218%_) + (if (gx#stx-pair? _%hd4003940215%_) + (let ((_%e4004240221%_ + (gx#syntax-e _%hd4003940215%_))) + (let ((_%lp-tl4004440228%_ (let () (declare (not safe)) - (##cdr _%e3994340122%_))) - (_%lp-hd3994440126%_ + (##cdr _%e4004240221%_))) + (_%lp-hd4004340225%_ (let () (declare (not safe)) - (##car _%e3994340122%_)))) - (_%loop3994240112%_ - _%lp-tl3994540129%_ - (cons _%lp-hd3994440126%_ - _%arg3994640119%_)))) - (let ((_%arg3994740132%_ - (reverse _%arg3994640119%_))) - (if (gx#stx-pair? _%tl3993540093%_) - (let ((_%e3994840136%_ + (##car _%e4004240221%_)))) + (_%loop4004140211%_ + _%lp-tl4004440228%_ + (cons _%lp-hd4004340225%_ + _%arg4004540218%_)))) + (let ((_%arg4004640231%_ + (reverse _%arg4004540218%_))) + (if (gx#stx-pair? _%tl4003440192%_) + (let ((_%e4004740235%_ (gx#syntax-e - _%tl3993540093%_))) - (let ((_%tl3995040143%_ + _%tl4003440192%_))) + (let ((_%tl4004940242%_ (let () (declare (not safe)) - (##cdr _%e3994840136%_))) - (_%hd3994940140%_ + (##cdr _%e4004740235%_))) + (_%hd4004840239%_ (let () (declare (not safe)) - (##car _%e3994840136%_)))) + (##car _%e4004740235%_)))) (if (gx#stx-null? - _%tl3995040143%_) - (let ((_%L40146%_ - _%hd3994940140%_) - (_%L40148%_ - _%arg3994740132%_) - (_%L40149%_ - _%hd3993740100%_)) + _%tl4004940242%_) + (let ((_%L40245%_ + _%hd4004840239%_) + (_%L40247%_ + _%arg4004640231%_) + (_%L40248%_ + _%hd4003640199%_)) (if (gx#identifier? - _%L40149%_) - (_%__kont4135241353%_ - _%L40146%_ - _%L40148%_ - _%L40149%_) - (_%__match4142641427%_ - _%e3993040076%_ - _%hd3993140080%_ - _%tl3993240083%_ - _%e3993340086%_ - _%hd3993440090%_ - _%tl3993540093%_))) - (_%__match4142641427%_ - _%e3993040076%_ - _%hd3993140080%_ - _%tl3993240083%_ - _%e3993340086%_ - _%hd3993440090%_ - _%tl3993540093%_)))) - (_%__match4142641427%_ - _%e3993040076%_ - _%hd3993140080%_ - _%tl3993240083%_ - _%e3993340086%_ - _%hd3993440090%_ - _%tl3993540093%_))))))) - (_%loop3994240112%_ _%target3993940106%_ '()))))) - (if (gx#stx-pair? _%__stx4134741348%_) - (let ((_%e3991540217%_ (gx#syntax-e _%__stx4134741348%_))) - (let ((_%tl3991740224%_ - (let () (declare (not safe)) (##cdr _%e3991540217%_))) - (_%hd3991640221%_ + _%L40248%_) + (_%__kont4145141452%_ + _%L40245%_ + _%L40247%_ + _%L40248%_) + (_%__match4152541526%_ + _%e4002940175%_ + _%hd4003040179%_ + _%tl4003140182%_ + _%e4003240185%_ + _%hd4003340189%_ + _%tl4003440192%_))) + (_%__match4152541526%_ + _%e4002940175%_ + _%hd4003040179%_ + _%tl4003140182%_ + _%e4003240185%_ + _%hd4003340189%_ + _%tl4003440192%_)))) + (_%__match4152541526%_ + _%e4002940175%_ + _%hd4003040179%_ + _%tl4003140182%_ + _%e4003240185%_ + _%hd4003340189%_ + _%tl4003440192%_))))))) + (_%loop4004140211%_ _%target4003840205%_ '()))))) + (if (gx#stx-pair? _%__stx4144641447%_) + (let ((_%e4001440316%_ (gx#syntax-e _%__stx4144641447%_))) + (let ((_%tl4001640323%_ + (let () (declare (not safe)) (##cdr _%e4001440316%_))) + (_%hd4001540320%_ (let () (declare (not safe)) - (##car _%e3991540217%_)))) - (if (gx#stx-pair? _%tl3991740224%_) - (let ((_%e3991840227%_ (gx#syntax-e _%tl3991740224%_))) - (let ((_%tl3992040234%_ + (##car _%e4001440316%_)))) + (if (gx#stx-pair? _%tl4001640323%_) + (let ((_%e4001740326%_ (gx#syntax-e _%tl4001640323%_))) + (let ((_%tl4001940333%_ (let () (declare (not safe)) - (##cdr _%e3991840227%_))) - (_%hd3991940231%_ + (##cdr _%e4001740326%_))) + (_%hd4001840330%_ (let () (declare (not safe)) - (##car _%e3991840227%_)))) - (if (gx#stx-pair? _%hd3991940231%_) - (let ((_%e3992140237%_ - (gx#syntax-e _%hd3991940231%_))) - (let ((_%tl3992340244%_ + (##car _%e4001740326%_)))) + (if (gx#stx-pair? _%hd4001840330%_) + (let ((_%e4002040336%_ + (gx#syntax-e _%hd4001840330%_))) + (let ((_%tl4002240343%_ (let () (declare (not safe)) - (##cdr _%e3992140237%_))) - (_%hd3992240241%_ + (##cdr _%e4002040336%_))) + (_%hd4002140340%_ (let () (declare (not safe)) - (##car _%e3992140237%_)))) - (if (gx#stx-pair? _%tl3992040234%_) - (let ((_%e3992440247%_ - (gx#syntax-e _%tl3992040234%_))) - (let ((_%tl3992640254%_ + (##car _%e4002040336%_)))) + (if (gx#stx-pair? _%tl4001940333%_) + (let ((_%e4002340346%_ + (gx#syntax-e _%tl4001940333%_))) + (let ((_%tl4002540353%_ (let () (declare (not safe)) - (##cdr _%e3992440247%_))) - (_%hd3992540251%_ + (##cdr _%e4002340346%_))) + (_%hd4002440350%_ (let () (declare (not safe)) - (##car _%e3992440247%_)))) - (if (gx#stx-null? _%tl3992640254%_) + (##car _%e4002340346%_)))) + (if (gx#stx-null? _%tl4002540353%_) (if (|gerbil/core/more-sugar[1]#syntax-local-setf-macro?| (gx#datum->syntax '#f 'setfid)) - (let ((_%L40257%_ - _%hd3992540251%_) - (_%L40259%_ - _%hd3992240241%_)) - (_%__kont4135041351%_ - _%L40257%_ - _%L40259%_)) + (let ((_%L40356%_ + _%hd4002440350%_) + (_%L40358%_ + _%hd4002140340%_)) + (_%__kont4144941450%_ + _%L40356%_ + _%L40358%_)) (if (gx#stx-pair/null? - _%tl3992340244%_) - (let ((_%__splice4135441355%_ + _%tl4002240343%_) + (let ((_%__splice4145341454%_ (gx#syntax-split-splice - _%tl3992340244%_ + _%tl4002240343%_ '0))) - (let ((_%tl3994140109%_ + (let ((_%tl4004040208%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice4135441355%_ '1))) - (_%target3993940106%_ + (##vector-ref _%__splice4145341454%_ '1))) + (_%target4003840205%_ (let () (declare (not safe)) - (##vector-ref _%__splice4135441355%_ '0)))) - (if (gx#stx-null? _%tl3994140109%_) - (_%__match4141441415%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_ - _%e3992140237%_ - _%hd3992240241%_ - _%tl3992340244%_ - _%__splice4135441355%_ - _%target3993940106%_ - _%tl3994140109%_) - (_%__match4142641427%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_)))) - (_%__match4142641427%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_))) + (##vector-ref _%__splice4145341454%_ '0)))) + (if (gx#stx-null? _%tl4004040208%_) + (_%__match4151341514%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_ + _%e4002040336%_ + _%hd4002140340%_ + _%tl4002240343%_ + _%__splice4145341454%_ + _%target4003840205%_ + _%tl4004040208%_) + (_%__match4152541526%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_)))) + (_%__match4152541526%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl3992340244%_) - (let ((_%__splice4135441355%_ + _%tl4002240343%_) + (let ((_%__splice4145341454%_ (gx#syntax-split-splice - _%tl3992340244%_ + _%tl4002240343%_ '0))) - (let ((_%tl3994140109%_ + (let ((_%tl4004040208%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4135441355%_ '1))) - (_%target3993940106%_ + (##vector-ref _%__splice4145341454%_ '1))) + (_%target4003840205%_ (let () (declare (not safe)) - (##vector-ref _%__splice4135441355%_ '0)))) - (if (gx#stx-null? _%tl3994140109%_) - (_%__match4141441415%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_ - _%e3992140237%_ - _%hd3992240241%_ - _%tl3992340244%_ - _%__splice4135441355%_ - _%target3993940106%_ - _%tl3994140109%_) - (_%__match4142641427%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_)))) + (##vector-ref _%__splice4145341454%_ '0)))) + (if (gx#stx-null? _%tl4004040208%_) + (_%__match4151341514%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_ + _%e4002040336%_ + _%hd4002140340%_ + _%tl4002240343%_ + _%__splice4145341454%_ + _%target4003840205%_ + _%tl4004040208%_) + (_%__match4152541526%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match4142641427%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_))))) + (_%__match4152541526%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_))))) (if (gx#stx-pair/null? - _%tl3992340244%_) - (let ((_%__splice4135441355%_ + _%tl4002240343%_) + (let ((_%__splice4145341454%_ (gx#syntax-split-splice - _%tl3992340244%_ + _%tl4002240343%_ '0))) - (let ((_%tl3994140109%_ + (let ((_%tl4004040208%_ (let () (declare (not safe)) (##vector-ref - _%__splice4135441355%_ + _%__splice4145341454%_ '1))) - (_%target3993940106%_ + (_%target4003840205%_ (let () (declare (not safe)) (##vector-ref - _%__splice4135441355%_ + _%__splice4145341454%_ '0)))) (if (gx#stx-null? - _%tl3994140109%_) - (_%__match4141441415%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_ - _%e3992140237%_ - _%hd3992240241%_ - _%tl3992340244%_ - _%__splice4135441355%_ - _%target3993940106%_ - _%tl3994140109%_) - (_%__match4142641427%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_)))) - (_%__match4142641427%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_))))) - (_%__match4142641427%_ - _%e3991540217%_ - _%hd3991640221%_ - _%tl3991740224%_ - _%e3991840227%_ - _%hd3991940231%_ - _%tl3992040234%_)))) - (let () (declare (not safe)) (_%g3991139974%_))))) - (let () (declare (not safe)) (_%g3991139974%_)))))))) + _%tl4004040208%_) + (_%__match4151341514%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_ + _%e4002040336%_ + _%hd4002140340%_ + _%tl4002240343%_ + _%__splice4145341454%_ + _%target4003840205%_ + _%tl4004040208%_) + (_%__match4152541526%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_)))) + (_%__match4152541526%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_))))) + (_%__match4152541526%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_)))) + (let () (declare (not safe)) (_%g4001040073%_))))) + (let () (declare (not safe)) (_%g4001040073%_)))))))) (define |gerbil/core/more-sugar[:0:]#set!| - (lambda (_%stx40295%_) - (|gerbil/core/more-sugar[1]#expand-set!| _%stx40295%_))) + (lambda (_%stx40394%_) + (|gerbil/core/more-sugar[1]#expand-set!| _%stx40394%_))) (define |gerbil/core/more-sugar[:0:]#values-set!| - (lambda (_%stx40298%_) - (let* ((_%g4030140325%_ - (lambda (_%g4030240321%_) + (lambda (_%stx40397%_) + (let* ((_%g4040040424%_ + (lambda (_%g4040140420%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4030240321%_))) - (_%g4030040503%_ - (lambda (_%g4030240329%_) - (if (gx#stx-pair? _%g4030240329%_) - (let ((_%e4030540332%_ (gx#syntax-e _%g4030240329%_))) - (let ((_%hd4030640336%_ + _%g4040140420%_))) + (_%g4039940602%_ + (lambda (_%g4040140428%_) + (if (gx#stx-pair? _%g4040140428%_) + (let ((_%e4040440431%_ (gx#syntax-e _%g4040140428%_))) + (let ((_%hd4040540435%_ (let () (declare (not safe)) - (##car _%e4030540332%_))) - (_%tl4030740339%_ + (##car _%e4040440431%_))) + (_%tl4040640438%_ (let () (declare (not safe)) - (##cdr _%e4030540332%_)))) - (if (gx#stx-pair/null? _%tl4030740339%_) - (if (let ((__tmp41510 - (gx#stx-length _%tl4030740339%_))) + (##cdr _%e4040440431%_)))) + (if (gx#stx-pair/null? _%tl4040640438%_) + (if (let ((__tmp41609 + (gx#stx-length _%tl4040640438%_))) (declare (not safe)) - (##fx>= __tmp41510 '1)) - (let ((_g41511_ + (##fx>= __tmp41609 '1)) + (let ((_g41610_ (gx#syntax-split-splice - _%tl4030740339%_ + _%tl4040640438%_ '1))) (begin - (let ((_g41512_ + (let ((_g41611_ (let () (declare (not safe)) - (if (##values? _g41511_) - (##vector-length _g41511_) + (if (##values? _g41610_) + (##values-length _g41610_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41512_ 2))) + (##fx= _g41611_ 2))) (error "Context expects 2 values" - _g41512_))) - (let ((_%target4030840342%_ + _g41611_))) + (let ((_%target4040740441%_ (let () (declare (not safe)) - (##vector-ref _g41511_ 0))) - (_%tl4031040345%_ + (##values-ref _g41610_ 0))) + (_%tl4040940444%_ (let () (declare (not safe)) - (##vector-ref _g41511_ 1)))) - (if (gx#stx-pair? _%tl4031040345%_) - (let ((_%e4031740348%_ + (##values-ref _g41610_ 1)))) + (if (gx#stx-pair? _%tl4040940444%_) + (let ((_%e4041640447%_ (gx#syntax-e - _%tl4031040345%_))) - (let ((_%hd4031840352%_ + _%tl4040940444%_))) + (let ((_%hd4041740451%_ (let () (declare (not safe)) - (##car _%e4031740348%_))) - (_%tl4031940355%_ + (##car _%e4041640447%_))) + (_%tl4041840454%_ (let () (declare (not safe)) - (##cdr _%e4031740348%_)))) + (##cdr _%e4041640447%_)))) (if (gx#stx-null? - _%tl4031940355%_) - (letrec ((_%loop4031140358%_ - (lambda (_%hd4030940362%_ + _%tl4041840454%_) + (letrec ((_%loop4041040457%_ + (lambda (_%hd4040840461%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tgt4031540365%_) - (if (gx#stx-pair? _%hd4030940362%_) - (let ((_%e4031240368%_ - (gx#syntax-e _%hd4030940362%_))) - (let ((_%lp-hd4031340372%_ + _%tgt4041440464%_) + (if (gx#stx-pair? _%hd4040840461%_) + (let ((_%e4041140467%_ + (gx#syntax-e _%hd4040840461%_))) + (let ((_%lp-hd4041240471%_ (let () (declare (not safe)) - (##car _%e4031240368%_))) - (_%lp-tl4031440375%_ + (##car _%e4041140467%_))) + (_%lp-tl4041340474%_ (let () (declare (not safe)) - (##cdr _%e4031240368%_)))) - (_%loop4031140358%_ - _%lp-tl4031440375%_ - (cons _%lp-hd4031340372%_ _%tgt4031540365%_)))) - (let ((_%tgt4031640378%_ - (reverse _%tgt4031540365%_))) - ((lambda (_%L40382%_ _%L40384%_) - (let* ((_%g4040240419%_ - (lambda (_%g4040340415%_) + (##cdr _%e4041140467%_)))) + (_%loop4041040457%_ + _%lp-tl4041340474%_ + (cons _%lp-hd4041240471%_ _%tgt4041440464%_)))) + (let ((_%tgt4041540477%_ + (reverse _%tgt4041440464%_))) + ((lambda (_%L40481%_ _%L40483%_) + (let* ((_%g4050140518%_ + (lambda (_%g4050240514%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4040340415%_))) - (_%g4040140491%_ - (lambda (_%g4040340423%_) + _%g4050240514%_))) + (_%g4050040590%_ + (lambda (_%g4050240522%_) (if (gx#stx-pair/null? - _%g4040340423%_) - (let ((_g41513_ + _%g4050240522%_) + (let ((_g41612_ (gx#syntax-split-splice - _%g4040340423%_ + _%g4050240522%_ '0))) (begin - (let ((_g41514_ + (let ((_g41613_ (let () (declare (not safe)) (if (##values? - _g41513_) - (##vector-length - _g41513_) + _g41612_) + (##values-length + _g41612_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41514_ + (##fx= _g41613_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g41514_))) + (error "Context expects 2 values" _g41613_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4040540426%_ + (let ((_%target4050440525%_ (let () (declare (not safe)) - (##vector-ref - _g41513_ + (##values-ref + _g41612_ 0))) - (_%tl4040740429%_ + (_%tl4050640528%_ (let () (declare (not safe)) - (##vector-ref - _g41513_ + (##values-ref + _g41612_ 1)))) (if (gx#stx-null? - _%tl4040740429%_) - (letrec ((_%loop4040840432%_ + _%tl4050640528%_) + (letrec ((_%loop4050740531%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd4040640436%_ _%$e4041240439%_) - (if (gx#stx-pair? _%hd4040640436%_) - (let ((_%e4040940442%_ - (gx#syntax-e _%hd4040640436%_))) - (let ((_%lp-hd4041040446%_ + (lambda (_%hd4050540535%_ _%$e4051140538%_) + (if (gx#stx-pair? _%hd4050540535%_) + (let ((_%e4050840541%_ + (gx#syntax-e _%hd4050540535%_))) + (let ((_%lp-hd4050940545%_ (let () (declare (not safe)) - (##car _%e4040940442%_))) - (_%lp-tl4041140449%_ + (##car _%e4050840541%_))) + (_%lp-tl4051040548%_ (let () (declare (not safe)) - (##cdr _%e4040940442%_)))) - (_%loop4040840432%_ - _%lp-tl4041140449%_ - (cons _%lp-hd4041040446%_ - _%$e4041240439%_)))) - (let ((_%$e4041340452%_ - (reverse _%$e4041240439%_))) - ((lambda (_%L40456%_) + (##cdr _%e4050840541%_)))) + (_%loop4050740531%_ + _%lp-tl4051040548%_ + (cons _%lp-hd4050940545%_ + _%$e4051140538%_)))) + (let ((_%$e4051240551%_ + (reverse _%$e4051140538%_))) + ((lambda (_%L40555%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (foldr (lambda (_%g4047440477%_ + (cons (cons (cons (foldr (lambda (_%g4057340576%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4047540480%_) - (cons _%g4047440477%_ _%g4047540480%_)) + _%g4057440579%_) + (cons _%g4057340576%_ _%g4057440579%_)) '() - _%L40456%_) - (cons _%L40382%_ '())) + _%L40555%_) + (cons _%L40481%_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _%L40456%_ - _%L40384%_) - (foldr (lambda (_%g4047140483%_ + _%L40555%_ + _%L40483%_) + (foldr (lambda (_%g4057040582%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4047240486%_ - _%g4047340488%_) + _%g4057140585%_ + _%g4057240587%_) (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%g4047240486%_ - (cons _%g4047140483%_ '()))) - _%g4047340488%_)) + (cons _%g4057140585%_ + (cons _%g4057040582%_ '()))) + _%g4057240587%_)) '() - _%L40456%_ - _%L40384%_))))) + _%L40555%_ + _%L40483%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e4041340452%_)))))) - (_%loop4040840432%_ _%target4040540426%_ '())) - (_%g4040240419%_ _%g4040340423%_))))) + _%$e4051240551%_)))))) + (_%loop4050740531%_ _%target4050440525%_ '())) + (_%g4050140518%_ _%g4050240522%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4040240419%_ - _%g4040340423%_))))) - (_%g4040140491%_ + (_%g4050140518%_ + _%g4050240522%_))))) + (_%g4050040590%_ (gx#gentemps - (foldr (lambda (_%g4049440497%_ - _%g4049540500%_) - (cons _%g4049440497%_ - _%g4049540500%_)) + (foldr (lambda (_%g4059340596%_ + _%g4059440599%_) + (cons _%g4059340596%_ + _%g4059440599%_)) '() - _%L40384%_))))) - _%hd4031840352%_ - _%tgt4031640378%_)))))) + _%L40483%_))))) + _%hd4041740451%_ + _%tgt4041540477%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4031140358%_ - _%target4030840342%_ + (_%loop4041040457%_ + _%target4040740441%_ '())) - (_%g4030140325%_ - _%g4030240329%_)))) - (_%g4030140325%_ _%g4030240329%_))))) - (_%g4030140325%_ _%g4030240329%_)) - (_%g4030140325%_ _%g4030240329%_)))) - (_%g4030140325%_ _%g4030240329%_))))) - (_%g4030040503%_ _%stx40298%_)))) + (_%g4040040424%_ + _%g4040140428%_)))) + (_%g4040040424%_ _%g4040140428%_))))) + (_%g4040040424%_ _%g4040140428%_)) + (_%g4040040424%_ _%g4040140428%_)))) + (_%g4040040424%_ _%g4040140428%_))))) + (_%g4039940602%_ _%stx40397%_)))) (define |gerbil/core/more-sugar[:0:]#parameterize| - (lambda (_%stx40509%_) - (let* ((_%__stx4144941450%_ _%stx40509%_) - (_%g4051340571%_ + (lambda (_%stx40608%_) + (let* ((_%__stx4154841549%_ _%stx40608%_) + (_%g4061240670%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4144941450%_)))) - (let ((_%__kont4145241453%_ - (lambda (_%L40905%_) + _%__stx4154841549%_)))) + (let ((_%__kont4155141552%_ + (lambda (_%L41004%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4092140924%_ _%g4092240927%_) - (cons _%g4092140924%_ _%g4092240927%_)) + (foldr (lambda (_%g4102041023%_ _%g4102141026%_) + (cons _%g4102041023%_ _%g4102141026%_)) '() - _%L40905%_))))) - (_%__kont4145641457%_ - (lambda (_%L40682%_ _%L40684%_ _%L40685%_) - (let* ((_%g4070840716%_ - (lambda (_%g4070940712%_) + _%L41004%_))))) + (_%__kont4155541556%_ + (lambda (_%L40781%_ _%L40783%_ _%L40784%_) + (let* ((_%g4080740815%_ + (lambda (_%g4080840811%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4070940712%_))) - (_%g4070740836%_ - (lambda (_%g4070940720%_) - ((lambda (_%L40723%_) - (let* ((_%g4073540752%_ - (lambda (_%g4073640748%_) + _%g4080840811%_))) + (_%g4080640935%_ + (lambda (_%g4080840819%_) + ((lambda (_%L40822%_) + (let* ((_%g4083440851%_ + (lambda (_%g4083540847%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4073640748%_))) - (_%g4073440816%_ - (lambda (_%g4073640756%_) - (if (gx#stx-pair/null? _%g4073640756%_) - (let ((_g41515_ + _%g4083540847%_))) + (_%g4083340915%_ + (lambda (_%g4083540855%_) + (if (gx#stx-pair/null? _%g4083540855%_) + (let ((_g41614_ (gx#syntax-split-splice - _%g4073640756%_ + _%g4083540855%_ '0))) (begin - (let ((_g41516_ + (let ((_g41615_ (let () (declare (not safe)) (if (##values? - _g41515_) - (##vector-length - _g41515_) + _g41614_) + (##values-length + _g41614_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41516_ + (##fx= _g41615_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g41516_))) + (error "Context expects 2 values" _g41615_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4073840759%_ + (let ((_%target4083740858%_ (let () (declare (not safe)) - (##vector-ref - _g41515_ + (##values-ref + _g41614_ 0))) - (_%tl4074040762%_ + (_%tl4083940861%_ (let () (declare (not safe)) - (##vector-ref - _g41515_ + (##values-ref + _g41614_ 1)))) (if (gx#stx-null? - _%tl4074040762%_) - (letrec ((_%loop4074140765%_ - (lambda (_%hd4073940769%_ + _%tl4083940861%_) + (letrec ((_%loop4084040864%_ + (lambda (_%hd4083840868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg4074540772%_) - (if (gx#stx-pair? _%hd4073940769%_) - (let ((_%e4074240775%_ - (gx#syntax-e _%hd4073940769%_))) - (let ((_%lp-hd4074340779%_ + _%arg4084440871%_) + (if (gx#stx-pair? _%hd4083840868%_) + (let ((_%e4084140874%_ + (gx#syntax-e _%hd4083840868%_))) + (let ((_%lp-hd4084240878%_ (let () (declare (not safe)) - (##car _%e4074240775%_))) - (_%lp-tl4074440782%_ + (##car _%e4084140874%_))) + (_%lp-tl4084340881%_ (let () (declare (not safe)) - (##cdr _%e4074240775%_)))) - (_%loop4074140765%_ - _%lp-tl4074440782%_ - (cons _%lp-hd4074340779%_ - _%arg4074540772%_)))) - (let ((_%arg4074640785%_ - (reverse _%arg4074540772%_))) - ((lambda (_%L40789%_) + (##cdr _%e4084140874%_)))) + (_%loop4084040864%_ + _%lp-tl4084340881%_ + (cons _%lp-hd4084240878%_ + _%arg4084440871%_)))) + (let ((_%arg4084540884%_ + (reverse _%arg4084440871%_))) + ((lambda (_%L40888%_) (cons (gx#datum->syntax '#f 'call-with-parameters) - (cons _%L40723%_ - (foldr (lambda (_%g4080740810%_ - _%g4080840813%_) - (cons _%g4080740810%_ - _%g4080840813%_)) + (cons _%L40822%_ + (foldr (lambda (_%g4090640909%_ + _%g4090740912%_) + (cons _%g4090640909%_ + _%g4090740912%_)) '() - _%L40789%_)))) - _%arg4074640785%_)))))) - (_%loop4074140765%_ _%target4073840759%_ '())) - (_%g4073540752%_ _%g4073640756%_))))) + _%L40888%_)))) + _%arg4084540884%_)))))) + (_%loop4084040864%_ _%target4083740858%_ '())) + (_%g4083440851%_ _%g4083540855%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4073540752%_ - _%g4073640756%_))))) - (_%g4073440816%_ + (_%g4083440851%_ + _%g4083540855%_))))) + (_%g4083340915%_ (foldr cons* '() (gx#syntax->list - (foldr (lambda (_%g4081940822%_ - _%g4082040825%_) - (cons _%g4081940822%_ - _%g4082040825%_)) + (foldr (lambda (_%g4091840921%_ + _%g4091940924%_) + (cons _%g4091840921%_ + _%g4091940924%_)) '() - _%L40685%_)) + _%L40784%_)) (gx#syntax->list - (foldr (lambda (_%g4082740830%_ - _%g4082840833%_) - (cons _%g4082740830%_ - _%g4082840833%_)) + (foldr (lambda (_%g4092640929%_ + _%g4092740932%_) + (cons _%g4092640929%_ + _%g4092740932%_)) '() - _%L40684%_)))))) - _%g4070940720%_)))) - (_%g4070740836%_ + _%L40783%_)))))) + _%g4080840819%_)))) + (_%g4080640935%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() - (foldr (lambda (_%g4083940842%_ - _%g4084040845%_) - (cons _%g4083940842%_ - _%g4084040845%_)) + (foldr (lambda (_%g4093840941%_ + _%g4093940944%_) + (cons _%g4093840941%_ + _%g4093940944%_)) '() - _%L40682%_))) - (gx#stx-source _%stx40509%_))))))) - (let* ((_%__match4150441505%_ - (lambda (_%e4053440578%_ - _%hd4053540582%_ - _%tl4053640585%_ - _%e4053740588%_ - _%hd4053840592%_ - _%tl4053940595%_ - _%__splice4145841459%_ - _%target4054040598%_ - _%tl4054240601%_) - (letrec ((_%loop4054340604%_ - (lambda (_%hd4054140608%_ - _%expr4054740611%_ - _%param4054840613%_) - (if (gx#stx-pair? _%hd4054140608%_) - (let ((_%e4054440616%_ - (gx#syntax-e _%hd4054140608%_))) - (let ((_%lp-tl4054640623%_ + _%L40781%_))) + (gx#stx-source _%stx40608%_))))))) + (let* ((_%__match4160341604%_ + (lambda (_%e4063340677%_ + _%hd4063440681%_ + _%tl4063540684%_ + _%e4063640687%_ + _%hd4063740691%_ + _%tl4063840694%_ + _%__splice4155741558%_ + _%target4063940697%_ + _%tl4064140700%_) + (letrec ((_%loop4064240703%_ + (lambda (_%hd4064040707%_ + _%expr4064640710%_ + _%param4064740712%_) + (if (gx#stx-pair? _%hd4064040707%_) + (let ((_%e4064340715%_ + (gx#syntax-e _%hd4064040707%_))) + (let ((_%lp-tl4064540722%_ (let () (declare (not safe)) - (##cdr _%e4054440616%_))) - (_%lp-hd4054540620%_ + (##cdr _%e4064340715%_))) + (_%lp-hd4064440719%_ (let () (declare (not safe)) - (##car _%e4054440616%_)))) - (if (gx#stx-pair? _%lp-hd4054540620%_) - (let ((_%e4056040626%_ + (##car _%e4064340715%_)))) + (if (gx#stx-pair? _%lp-hd4064440719%_) + (let ((_%e4065940725%_ (gx#syntax-e - _%lp-hd4054540620%_))) - (let ((_%tl4056240633%_ + _%lp-hd4064440719%_))) + (let ((_%tl4066140732%_ (let () (declare (not safe)) - (##cdr _%e4056040626%_))) - (_%hd4056140630%_ + (##cdr _%e4065940725%_))) + (_%hd4066040729%_ (let () (declare (not safe)) - (##car _%e4056040626%_)))) + (##car _%e4065940725%_)))) (if (gx#stx-pair? - _%tl4056240633%_) - (let ((_%e4056340636%_ + _%tl4066140732%_) + (let ((_%e4066240735%_ (gx#syntax-e - _%tl4056240633%_))) - (let ((_%tl4056540643%_ + _%tl4066140732%_))) + (let ((_%tl4066440742%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4056340636%_))) - (_%hd4056440640%_ - (let () (declare (not safe)) (##car _%e4056340636%_)))) - (if (gx#stx-null? _%tl4056540643%_) - (_%loop4054340604%_ - _%lp-tl4054640623%_ - (cons _%hd4056440640%_ _%expr4054740611%_) - (cons _%hd4056140630%_ _%param4054840613%_)) - (let () (declare (not safe)) (_%g4051340571%_))))) + (##cdr _%e4066240735%_))) + (_%hd4066340739%_ + (let () (declare (not safe)) (##car _%e4066240735%_)))) + (if (gx#stx-null? _%tl4066440742%_) + (_%loop4064240703%_ + _%lp-tl4064540722%_ + (cons _%hd4066340739%_ _%expr4064640710%_) + (cons _%hd4066040729%_ _%param4064740712%_)) + (let () (declare (not safe)) (_%g4061240670%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4051340571%_))))) + (_%g4061240670%_))))) (let () (declare (not safe)) - (_%g4051340571%_))))) - (let ((_%param4055040649%_ - (reverse _%param4054840613%_)) - (_%expr4054940646%_ - (reverse _%expr4054740611%_))) - (if (gx#stx-pair/null? _%tl4053940595%_) - (let ((_%__splice4146041461%_ + (_%g4061240670%_))))) + (let ((_%param4064940748%_ + (reverse _%param4064740712%_)) + (_%expr4064840745%_ + (reverse _%expr4064640710%_))) + (if (gx#stx-pair/null? _%tl4063840694%_) + (let ((_%__splice4155941560%_ (gx#syntax-split-splice - _%tl4053940595%_ + _%tl4063840694%_ '0))) - (let ((_%tl4055340655%_ + (let ((_%tl4065240754%_ (let () (declare (not safe)) (##vector-ref - _%__splice4146041461%_ + _%__splice4155941560%_ '1))) - (_%target4055140652%_ + (_%target4065040751%_ (let () (declare (not safe)) (##vector-ref - _%__splice4146041461%_ + _%__splice4155941560%_ '0)))) (if (gx#stx-null? - _%tl4055340655%_) - (letrec ((_%loop4055440658%_ - (lambda (_%hd4055240662%_ + _%tl4065240754%_) + (letrec ((_%loop4065340757%_ + (lambda (_%hd4065140761%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body4055840665%_) - (if (gx#stx-pair? _%hd4055240662%_) - (let ((_%e4055540668%_ - (gx#syntax-e _%hd4055240662%_))) - (let ((_%lp-tl4055740675%_ + _%body4065740764%_) + (if (gx#stx-pair? _%hd4065140761%_) + (let ((_%e4065440767%_ + (gx#syntax-e _%hd4065140761%_))) + (let ((_%lp-tl4065640774%_ (let () (declare (not safe)) - (##cdr _%e4055540668%_))) - (_%lp-hd4055640672%_ + (##cdr _%e4065440767%_))) + (_%lp-hd4065540771%_ (let () (declare (not safe)) - (##car _%e4055540668%_)))) - (_%loop4055440658%_ - _%lp-tl4055740675%_ - (cons _%lp-hd4055640672%_ _%body4055840665%_)))) - (let ((_%body4055940678%_ - (reverse _%body4055840665%_))) - (_%__kont4145641457%_ - _%body4055940678%_ - _%expr4054940646%_ - _%param4055040649%_)))))) + (##car _%e4065440767%_)))) + (_%loop4065340757%_ + _%lp-tl4065640774%_ + (cons _%lp-hd4065540771%_ _%body4065740764%_)))) + (let ((_%body4065840777%_ + (reverse _%body4065740764%_))) + (_%__kont4155541556%_ + _%body4065840777%_ + _%expr4064840745%_ + _%param4064940748%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4055440658%_ - _%target4055140652%_ + (_%loop4065340757%_ + _%target4065040751%_ '())) (let () (declare (not safe)) - (_%g4051340571%_))))) + (_%g4061240670%_))))) (let () (declare (not safe)) - (_%g4051340571%_)))))))) - (_%loop4054340604%_ _%target4054040598%_ '() '())))) - (_%__match4148441485%_ - (lambda (_%e4051640855%_ - _%hd4051740859%_ - _%tl4051840862%_ - _%e4051940865%_ - _%hd4052040869%_ - _%tl4052140872%_ - _%__splice4145441455%_ - _%target4052240875%_ - _%tl4052440878%_) - (letrec ((_%loop4052540881%_ - (lambda (_%hd4052340885%_ _%body4052940888%_) - (if (gx#stx-pair? _%hd4052340885%_) - (let ((_%e4052640891%_ - (gx#syntax-e _%hd4052340885%_))) - (let ((_%lp-tl4052840898%_ + (_%g4061240670%_)))))))) + (_%loop4064240703%_ _%target4063940697%_ '() '())))) + (_%__match4158341584%_ + (lambda (_%e4061540954%_ + _%hd4061640958%_ + _%tl4061740961%_ + _%e4061840964%_ + _%hd4061940968%_ + _%tl4062040971%_ + _%__splice4155341554%_ + _%target4062140974%_ + _%tl4062340977%_) + (letrec ((_%loop4062440980%_ + (lambda (_%hd4062240984%_ _%body4062840987%_) + (if (gx#stx-pair? _%hd4062240984%_) + (let ((_%e4062540990%_ + (gx#syntax-e _%hd4062240984%_))) + (let ((_%lp-tl4062740997%_ (let () (declare (not safe)) - (##cdr _%e4052640891%_))) - (_%lp-hd4052740895%_ + (##cdr _%e4062540990%_))) + (_%lp-hd4062640994%_ (let () (declare (not safe)) - (##car _%e4052640891%_)))) - (_%loop4052540881%_ - _%lp-tl4052840898%_ - (cons _%lp-hd4052740895%_ - _%body4052940888%_)))) - (let ((_%body4053040901%_ - (reverse _%body4052940888%_))) - (_%__kont4145241453%_ - _%body4053040901%_)))))) - (_%loop4052540881%_ _%target4052240875%_ '()))))) - (if (gx#stx-pair? _%__stx4144941450%_) - (let ((_%e4051640855%_ (gx#syntax-e _%__stx4144941450%_))) - (let ((_%tl4051840862%_ - (let () (declare (not safe)) (##cdr _%e4051640855%_))) - (_%hd4051740859%_ + (##car _%e4062540990%_)))) + (_%loop4062440980%_ + _%lp-tl4062740997%_ + (cons _%lp-hd4062640994%_ + _%body4062840987%_)))) + (let ((_%body4062941000%_ + (reverse _%body4062840987%_))) + (_%__kont4155141552%_ + _%body4062941000%_)))))) + (_%loop4062440980%_ _%target4062140974%_ '()))))) + (if (gx#stx-pair? _%__stx4154841549%_) + (let ((_%e4061540954%_ (gx#syntax-e _%__stx4154841549%_))) + (let ((_%tl4061740961%_ + (let () (declare (not safe)) (##cdr _%e4061540954%_))) + (_%hd4061640958%_ (let () (declare (not safe)) - (##car _%e4051640855%_)))) - (if (gx#stx-pair? _%tl4051840862%_) - (let ((_%e4051940865%_ (gx#syntax-e _%tl4051840862%_))) - (let ((_%tl4052140872%_ + (##car _%e4061540954%_)))) + (if (gx#stx-pair? _%tl4061740961%_) + (let ((_%e4061840964%_ (gx#syntax-e _%tl4061740961%_))) + (let ((_%tl4062040971%_ (let () (declare (not safe)) - (##cdr _%e4051940865%_))) - (_%hd4052040869%_ + (##cdr _%e4061840964%_))) + (_%hd4061940968%_ (let () (declare (not safe)) - (##car _%e4051940865%_)))) - (if (gx#stx-null? _%hd4052040869%_) - (if (gx#stx-pair/null? _%tl4052140872%_) - (let ((_%__splice4145441455%_ + (##car _%e4061840964%_)))) + (if (gx#stx-null? _%hd4061940968%_) + (if (gx#stx-pair/null? _%tl4062040971%_) + (let ((_%__splice4155341554%_ (gx#syntax-split-splice - _%tl4052140872%_ + _%tl4062040971%_ '0))) - (let ((_%tl4052440878%_ + (let ((_%tl4062340977%_ (let () (declare (not safe)) (##vector-ref - _%__splice4145441455%_ + _%__splice4155341554%_ '1))) - (_%target4052240875%_ + (_%target4062140974%_ (let () (declare (not safe)) (##vector-ref - _%__splice4145441455%_ + _%__splice4155341554%_ '0)))) - (if (gx#stx-null? _%tl4052440878%_) - (_%__match4148441485%_ - _%e4051640855%_ - _%hd4051740859%_ - _%tl4051840862%_ - _%e4051940865%_ - _%hd4052040869%_ - _%tl4052140872%_ - _%__splice4145441455%_ - _%target4052240875%_ - _%tl4052440878%_) + (if (gx#stx-null? _%tl4062340977%_) + (_%__match4158341584%_ + _%e4061540954%_ + _%hd4061640958%_ + _%tl4061740961%_ + _%e4061840964%_ + _%hd4061940968%_ + _%tl4062040971%_ + _%__splice4155341554%_ + _%target4062140974%_ + _%tl4062340977%_) (if (gx#stx-pair/null? - _%hd4052040869%_) - (let ((_%__splice4145841459%_ + _%hd4061940968%_) + (let ((_%__splice4155741558%_ (gx#syntax-split-splice - _%hd4052040869%_ + _%hd4061940968%_ '0))) - (let ((_%tl4054240601%_ + (let ((_%tl4064140700%_ (let () (declare (not safe)) (##vector-ref - _%__splice4145841459%_ + _%__splice4155741558%_ '1))) - (_%target4054040598%_ + (_%target4063940697%_ (let () (declare (not safe)) (##vector-ref - _%__splice4145841459%_ + _%__splice4155741558%_ '0)))) (if (gx#stx-null? - _%tl4054240601%_) - (_%__match4150441505%_ - _%e4051640855%_ - _%hd4051740859%_ - _%tl4051840862%_ - _%e4051940865%_ - _%hd4052040869%_ - _%tl4052140872%_ - _%__splice4145841459%_ - _%target4054040598%_ - _%tl4054240601%_) + _%tl4064140700%_) + (_%__match4160341604%_ + _%e4061540954%_ + _%hd4061640958%_ + _%tl4061740961%_ + _%e4061840964%_ + _%hd4061940968%_ + _%tl4062040971%_ + _%__splice4155741558%_ + _%target4063940697%_ + _%tl4064140700%_) (let () (declare (not safe)) - (_%g4051340571%_))))) + (_%g4061240670%_))))) (let () (declare (not safe)) - (_%g4051340571%_)))))) - (if (gx#stx-pair/null? _%hd4052040869%_) - (let ((_%__splice4145841459%_ + (_%g4061240670%_)))))) + (if (gx#stx-pair/null? _%hd4061940968%_) + (let ((_%__splice4155741558%_ (gx#syntax-split-splice - _%hd4052040869%_ + _%hd4061940968%_ '0))) - (let ((_%tl4054240601%_ + (let ((_%tl4064140700%_ (let () (declare (not safe)) (##vector-ref - _%__splice4145841459%_ + _%__splice4155741558%_ '1))) - (_%target4054040598%_ + (_%target4063940697%_ (let () (declare (not safe)) (##vector-ref - _%__splice4145841459%_ + _%__splice4155741558%_ '0)))) - (if (gx#stx-null? _%tl4054240601%_) - (_%__match4150441505%_ - _%e4051640855%_ - _%hd4051740859%_ - _%tl4051840862%_ - _%e4051940865%_ - _%hd4052040869%_ - _%tl4052140872%_ - _%__splice4145841459%_ - _%target4054040598%_ - _%tl4054240601%_) + (if (gx#stx-null? _%tl4064140700%_) + (_%__match4160341604%_ + _%e4061540954%_ + _%hd4061640958%_ + _%tl4061740961%_ + _%e4061840964%_ + _%hd4061940968%_ + _%tl4062040971%_ + _%__splice4155741558%_ + _%target4063940697%_ + _%tl4064140700%_) (let () (declare (not safe)) - (_%g4051340571%_))))) + (_%g4061240670%_))))) (let () (declare (not safe)) - (_%g4051340571%_)))) - (if (gx#stx-pair/null? _%hd4052040869%_) - (let ((_%__splice4145841459%_ + (_%g4061240670%_)))) + (if (gx#stx-pair/null? _%hd4061940968%_) + (let ((_%__splice4155741558%_ (gx#syntax-split-splice - _%hd4052040869%_ + _%hd4061940968%_ '0))) - (let ((_%tl4054240601%_ + (let ((_%tl4064140700%_ (let () (declare (not safe)) (##vector-ref - _%__splice4145841459%_ + _%__splice4155741558%_ '1))) - (_%target4054040598%_ + (_%target4063940697%_ (let () (declare (not safe)) (##vector-ref - _%__splice4145841459%_ + _%__splice4155741558%_ '0)))) - (if (gx#stx-null? _%tl4054240601%_) - (_%__match4150441505%_ - _%e4051640855%_ - _%hd4051740859%_ - _%tl4051840862%_ - _%e4051940865%_ - _%hd4052040869%_ - _%tl4052140872%_ - _%__splice4145841459%_ - _%target4054040598%_ - _%tl4054240601%_) + (if (gx#stx-null? _%tl4064140700%_) + (_%__match4160341604%_ + _%e4061540954%_ + _%hd4061640958%_ + _%tl4061740961%_ + _%e4061840964%_ + _%hd4061940968%_ + _%tl4062040971%_ + _%__splice4155741558%_ + _%target4063940697%_ + _%tl4064140700%_) (let () (declare (not safe)) - (_%g4051340571%_))))) + (_%g4061240670%_))))) (let () (declare (not safe)) - (_%g4051340571%_)))))) - (let () (declare (not safe)) (_%g4051340571%_))))) - (let () (declare (not safe)) (_%g4051340571%_)))))))) + (_%g4061240670%_)))))) + (let () (declare (not safe)) (_%g4061240670%_))))) + (let () (declare (not safe)) (_%g4061240670%_)))))))) (define |gerbil/core/more-sugar[:0:]#let/cc| - (lambda (_%$stx40938%_) - (let* ((_%g4094240966%_ - (lambda (_%g4094340962%_) + (lambda (_%$stx41037%_) + (let* ((_%g4104141065%_ + (lambda (_%g4104241061%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4094340962%_))) - (_%g4094141051%_ - (lambda (_%g4094340970%_) - (if (gx#stx-pair? _%g4094340970%_) - (let ((_%e4094640973%_ (gx#syntax-e _%g4094340970%_))) - (let ((_%hd4094740977%_ + _%g4104241061%_))) + (_%g4104041150%_ + (lambda (_%g4104241069%_) + (if (gx#stx-pair? _%g4104241069%_) + (let ((_%e4104541072%_ (gx#syntax-e _%g4104241069%_))) + (let ((_%hd4104641076%_ (let () (declare (not safe)) - (##car _%e4094640973%_))) - (_%tl4094840980%_ + (##car _%e4104541072%_))) + (_%tl4104741079%_ (let () (declare (not safe)) - (##cdr _%e4094640973%_)))) - (if (gx#stx-pair? _%tl4094840980%_) - (let ((_%e4094940983%_ - (gx#syntax-e _%tl4094840980%_))) - (let ((_%hd4095040987%_ + (##cdr _%e4104541072%_)))) + (if (gx#stx-pair? _%tl4104741079%_) + (let ((_%e4104841082%_ + (gx#syntax-e _%tl4104741079%_))) + (let ((_%hd4104941086%_ (let () (declare (not safe)) - (##car _%e4094940983%_))) - (_%tl4095140990%_ + (##car _%e4104841082%_))) + (_%tl4105041089%_ (let () (declare (not safe)) - (##cdr _%e4094940983%_)))) - (if (gx#stx-pair/null? _%tl4095140990%_) - (let ((_g41517_ + (##cdr _%e4104841082%_)))) + (if (gx#stx-pair/null? _%tl4105041089%_) + (let ((_g41616_ (gx#syntax-split-splice - _%tl4095140990%_ + _%tl4105041089%_ '0))) (begin - (let ((_g41518_ + (let ((_g41617_ (let () (declare (not safe)) - (if (##values? _g41517_) - (##vector-length _g41517_) + (if (##values? _g41616_) + (##values-length _g41616_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41518_ 2))) + (##fx= _g41617_ 2))) (error "Context expects 2 values" - _g41518_))) - (let ((_%target4095240993%_ + _g41617_))) + (let ((_%target4105141092%_ (let () (declare (not safe)) - (##vector-ref _g41517_ 0))) - (_%tl4095440996%_ + (##values-ref _g41616_ 0))) + (_%tl4105341095%_ (let () (declare (not safe)) - (##vector-ref _g41517_ 1)))) - (if (gx#stx-null? _%tl4095440996%_) - (letrec ((_%loop4095540999%_ - (lambda (_%hd4095341003%_ + (##values-ref _g41616_ 1)))) + (if (gx#stx-null? _%tl4105341095%_) + (letrec ((_%loop4105441098%_ + (lambda (_%hd4105241102%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body4095941006%_) - (if (gx#stx-pair? _%hd4095341003%_) - (let ((_%e4095641009%_ (gx#syntax-e _%hd4095341003%_))) - (let ((_%lp-hd4095741013%_ + _%body4105841105%_) + (if (gx#stx-pair? _%hd4105241102%_) + (let ((_%e4105541108%_ (gx#syntax-e _%hd4105241102%_))) + (let ((_%lp-hd4105641112%_ (let () (declare (not safe)) - (##car _%e4095641009%_))) - (_%lp-tl4095841016%_ + (##car _%e4105541108%_))) + (_%lp-tl4105741115%_ (let () (declare (not safe)) - (##cdr _%e4095641009%_)))) - (_%loop4095540999%_ - _%lp-tl4095841016%_ - (cons _%lp-hd4095741013%_ _%body4095941006%_)))) - (let ((_%body4096041019%_ (reverse _%body4095941006%_))) - ((lambda (_%L41023%_ _%L41025%_) - (if (gx#identifier? _%L41025%_) + (##cdr _%e4105541108%_)))) + (_%loop4105441098%_ + _%lp-tl4105741115%_ + (cons _%lp-hd4105641112%_ _%body4105841105%_)))) + (let ((_%body4105941118%_ (reverse _%body4105841105%_))) + ((lambda (_%L41122%_ _%L41124%_) + (if (gx#identifier? _%L41124%_) (cons (gx#datum->syntax '#f 'call/cc) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L41025%_ '()) - (foldr (lambda (_%g4104241045%_ + (cons (cons _%L41124%_ '()) + (foldr (lambda (_%g4114141144%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4104341048%_) - (cons _%g4104241045%_ _%g4104341048%_)) + _%g4114241147%_) + (cons _%g4114141144%_ _%g4114241147%_)) '() - _%L41023%_))) + _%L41122%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_%g4094240966%_ _%g4094340970%_))) - _%body4096041019%_ - _%hd4095040987%_)))))) + (_%g4104141065%_ _%g4104241069%_))) + _%body4105941118%_ + _%hd4104941086%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4095540999%_ - _%target4095240993%_ + (_%loop4105441098%_ + _%target4105141092%_ '())) - (_%g4094240966%_ - _%g4094340970%_))))) - (_%g4094240966%_ _%g4094340970%_)))) - (_%g4094240966%_ _%g4094340970%_)))) - (_%g4094240966%_ _%g4094340970%_))))) - (_%g4094141051%_ _%$stx40938%_)))) + (_%g4104141065%_ + _%g4104241069%_))))) + (_%g4104141065%_ _%g4104241069%_)))) + (_%g4104141065%_ _%g4104241069%_)))) + (_%g4104141065%_ _%g4104241069%_))))) + (_%g4104041150%_ _%$stx41037%_)))) (define |gerbil/core/more-sugar[:0:]#unwind-protect| - (lambda (_%$stx41056%_) - (let* ((_%g4106041088%_ - (lambda (_%g4106141084%_) + (lambda (_%$stx41155%_) + (let* ((_%g4115941187%_ + (lambda (_%g4116041183%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4106141084%_))) - (_%g4105941187%_ - (lambda (_%g4106141092%_) - (if (gx#stx-pair? _%g4106141092%_) - (let ((_%e4106541095%_ (gx#syntax-e _%g4106141092%_))) - (let ((_%hd4106641099%_ + _%g4116041183%_))) + (_%g4115841286%_ + (lambda (_%g4116041191%_) + (if (gx#stx-pair? _%g4116041191%_) + (let ((_%e4116441194%_ (gx#syntax-e _%g4116041191%_))) + (let ((_%hd4116541198%_ (let () (declare (not safe)) - (##car _%e4106541095%_))) - (_%tl4106741102%_ + (##car _%e4116441194%_))) + (_%tl4116641201%_ (let () (declare (not safe)) - (##cdr _%e4106541095%_)))) - (if (gx#stx-pair? _%tl4106741102%_) - (let ((_%e4106841105%_ - (gx#syntax-e _%tl4106741102%_))) - (let ((_%hd4106941109%_ + (##cdr _%e4116441194%_)))) + (if (gx#stx-pair? _%tl4116641201%_) + (let ((_%e4116741204%_ + (gx#syntax-e _%tl4116641201%_))) + (let ((_%hd4116841208%_ (let () (declare (not safe)) - (##car _%e4106841105%_))) - (_%tl4107041112%_ + (##car _%e4116741204%_))) + (_%tl4116941211%_ (let () (declare (not safe)) - (##cdr _%e4106841105%_)))) - (if (gx#stx-pair? _%tl4107041112%_) - (let ((_%e4107141115%_ - (gx#syntax-e _%tl4107041112%_))) - (let ((_%hd4107241119%_ + (##cdr _%e4116741204%_)))) + (if (gx#stx-pair? _%tl4116941211%_) + (let ((_%e4117041214%_ + (gx#syntax-e _%tl4116941211%_))) + (let ((_%hd4117141218%_ (let () (declare (not safe)) - (##car _%e4107141115%_))) - (_%tl4107341122%_ + (##car _%e4117041214%_))) + (_%tl4117241221%_ (let () (declare (not safe)) - (##cdr _%e4107141115%_)))) + (##cdr _%e4117041214%_)))) (if (gx#stx-pair/null? - _%tl4107341122%_) - (let ((_g41519_ + _%tl4117241221%_) + (let ((_g41618_ (gx#syntax-split-splice - _%tl4107341122%_ + _%tl4117241221%_ '0))) (begin - (let ((_g41520_ + (let ((_g41619_ (let () (declare (not safe)) (if (##values? - _g41519_) - (##vector-length - _g41519_) + _g41618_) + (##values-length + _g41618_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41520_ + (##fx= _g41619_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g41520_))) + (error "Context expects 2 values" _g41619_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4107441125%_ + (let ((_%target4117341224%_ (let () (declare (not safe)) - (##vector-ref - _g41519_ + (##values-ref + _g41618_ 0))) - (_%tl4107641128%_ + (_%tl4117541227%_ (let () (declare (not safe)) - (##vector-ref - _g41519_ + (##values-ref + _g41618_ 1)))) (if (gx#stx-null? - _%tl4107641128%_) - (letrec ((_%loop4107741131%_ - (lambda (_%hd4107541135%_ + _%tl4117541227%_) + (letrec ((_%loop4117641230%_ + (lambda (_%hd4117441234%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rest4108141138%_) - (if (gx#stx-pair? _%hd4107541135%_) - (let ((_%e4107841141%_ - (gx#syntax-e _%hd4107541135%_))) - (let ((_%lp-hd4107941145%_ + _%rest4118041237%_) + (if (gx#stx-pair? _%hd4117441234%_) + (let ((_%e4117741240%_ + (gx#syntax-e _%hd4117441234%_))) + (let ((_%lp-hd4117841244%_ (let () (declare (not safe)) - (##car _%e4107841141%_))) - (_%lp-tl4108041148%_ + (##car _%e4117741240%_))) + (_%lp-tl4117941247%_ (let () (declare (not safe)) - (##cdr _%e4107841141%_)))) - (_%loop4107741131%_ - _%lp-tl4108041148%_ - (cons _%lp-hd4107941145%_ - _%rest4108141138%_)))) - (let ((_%rest4108241151%_ - (reverse _%rest4108141138%_))) - ((lambda (_%L41155%_ _%L41157%_ _%L41158%_) + (##cdr _%e4117741240%_)))) + (_%loop4117641230%_ + _%lp-tl4117941247%_ + (cons _%lp-hd4117841244%_ + _%rest4118041237%_)))) + (let ((_%rest4118141250%_ + (reverse _%rest4118041237%_))) + ((lambda (_%L41254%_ _%L41256%_ _%L41257%_) (cons (gx#datum->syntax '#f 'with-unwind-protect) @@ -1311,7 +1311,7 @@ '#f 'lambda) (cons '() - (cons _%L41158%_ + (cons _%L41257%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1320,124 +1320,124 @@ 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L41157%_ - (foldr (lambda (_%g4117841181%_ _%g4117941184%_) - (cons _%g4117841181%_ _%g4117941184%_)) + (cons _%L41256%_ + (foldr (lambda (_%g4127741280%_ _%g4127841283%_) + (cons _%g4127741280%_ _%g4127841283%_)) '() - _%L41155%_)))) + _%L41254%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%rest4108241151%_ - _%hd4107241119%_ - _%hd4106941109%_)))))) - (_%loop4107741131%_ _%target4107441125%_ '())) - (_%g4106041088%_ _%g4106141092%_))))) + _%rest4118141250%_ + _%hd4117141218%_ + _%hd4116841208%_)))))) + (_%loop4117641230%_ _%target4117341224%_ '())) + (_%g4115941187%_ _%g4116041191%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4106041088%_ - _%g4106141092%_)))) - (_%g4106041088%_ _%g4106141092%_)))) - (_%g4106041088%_ _%g4106141092%_)))) - (_%g4106041088%_ _%g4106141092%_))))) - (_%g4105941187%_ _%$stx41056%_)))) + (_%g4115941187%_ + _%g4116041191%_)))) + (_%g4115941187%_ _%g4116041191%_)))) + (_%g4115941187%_ _%g4116041191%_)))) + (_%g4115941187%_ _%g4116041191%_))))) + (_%g4115841286%_ _%$stx41155%_)))) (define |gerbil/core/more-sugar[:0:]#@bytes| - (lambda (_%stx41192%_) - (let* ((_%g4119541209%_ - (lambda (_%g4119641205%_) + (lambda (_%stx41291%_) + (let* ((_%g4129441308%_ + (lambda (_%g4129541304%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4119641205%_))) - (_%g4119441281%_ - (lambda (_%g4119641213%_) - (if (gx#stx-pair? _%g4119641213%_) - (let ((_%e4119841216%_ (gx#syntax-e _%g4119641213%_))) - (let ((_%hd4119941220%_ + _%g4129541304%_))) + (_%g4129341380%_ + (lambda (_%g4129541312%_) + (if (gx#stx-pair? _%g4129541312%_) + (let ((_%e4129741315%_ (gx#syntax-e _%g4129541312%_))) + (let ((_%hd4129841319%_ (let () (declare (not safe)) - (##car _%e4119841216%_))) - (_%tl4120041223%_ + (##car _%e4129741315%_))) + (_%tl4129941322%_ (let () (declare (not safe)) - (##cdr _%e4119841216%_)))) - (if (gx#stx-pair? _%tl4120041223%_) - (let ((_%e4120141226%_ - (gx#syntax-e _%tl4120041223%_))) - (let ((_%hd4120241230%_ + (##cdr _%e4129741315%_)))) + (if (gx#stx-pair? _%tl4129941322%_) + (let ((_%e4130041325%_ + (gx#syntax-e _%tl4129941322%_))) + (let ((_%hd4130141329%_ (let () (declare (not safe)) - (##car _%e4120141226%_))) - (_%tl4120341233%_ + (##car _%e4130041325%_))) + (_%tl4130241332%_ (let () (declare (not safe)) - (##cdr _%e4120141226%_)))) - (if (gx#stx-null? _%tl4120341233%_) - ((lambda (_%L41236%_) - (if (gx#stx-string? _%L41236%_) - (let* ((_%g4125041258%_ - (lambda (_%g4125141254%_) + (##cdr _%e4130041325%_)))) + (if (gx#stx-null? _%tl4130241332%_) + ((lambda (_%L41335%_) + (if (gx#stx-string? _%L41335%_) + (let* ((_%g4134941357%_ + (lambda (_%g4135041353%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4125141254%_))) - (_%g4124941277%_ - (lambda (_%g4125141262%_) - ((lambda (_%L41265%_) + _%g4135041353%_))) + (_%g4134841376%_ + (lambda (_%g4135041361%_) + ((lambda (_%L41364%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L41265%_ + (cons _%L41364%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - _%g4125141262%_)))) + _%g4135041361%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4124941277%_ + (_%g4134841376%_ (string->bytes - (gx#stx-e _%L41236%_)))) - (_%g4119541209%_ _%g4119641213%_))) - _%hd4120241230%_) - (_%g4119541209%_ _%g4119641213%_)))) - (_%g4119541209%_ _%g4119641213%_)))) - (_%g4119541209%_ _%g4119641213%_))))) - (_%g4119441281%_ _%stx41192%_)))) + (gx#stx-e _%L41335%_)))) + (_%g4129441308%_ _%g4129541312%_))) + _%hd4130141329%_) + (_%g4129441308%_ _%g4129541312%_)))) + (_%g4129441308%_ _%g4129541312%_)))) + (_%g4129441308%_ _%g4129541312%_))))) + (_%g4129341380%_ _%stx41291%_)))) (define |gerbil/core/more-sugar[:0:]#eval-when-compile| - (lambda (_%stx41285%_) - (let* ((_%g4128841302%_ - (lambda (_%g4128941298%_) + (lambda (_%stx41384%_) + (let* ((_%g4138741401%_ + (lambda (_%g4138841397%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4128941298%_))) - (_%g4128741343%_ - (lambda (_%g4128941306%_) - (if (gx#stx-pair? _%g4128941306%_) - (let ((_%e4129141309%_ (gx#syntax-e _%g4128941306%_))) - (let ((_%hd4129241313%_ + _%g4138841397%_))) + (_%g4138641442%_ + (lambda (_%g4138841405%_) + (if (gx#stx-pair? _%g4138841405%_) + (let ((_%e4139041408%_ (gx#syntax-e _%g4138841405%_))) + (let ((_%hd4139141412%_ (let () (declare (not safe)) - (##car _%e4129141309%_))) - (_%tl4129341316%_ + (##car _%e4139041408%_))) + (_%tl4139241415%_ (let () (declare (not safe)) - (##cdr _%e4129141309%_)))) - (if (gx#stx-pair? _%tl4129341316%_) - (let ((_%e4129441319%_ - (gx#syntax-e _%tl4129341316%_))) - (let ((_%hd4129541323%_ + (##cdr _%e4139041408%_)))) + (if (gx#stx-pair? _%tl4139241415%_) + (let ((_%e4139341418%_ + (gx#syntax-e _%tl4139241415%_))) + (let ((_%hd4139441422%_ (let () (declare (not safe)) - (##car _%e4129441319%_))) - (_%tl4129641326%_ + (##car _%e4139341418%_))) + (_%tl4139541425%_ (let () (declare (not safe)) - (##cdr _%e4129441319%_)))) - (if (gx#stx-null? _%tl4129641326%_) - ((lambda (_%L41329%_) + (##cdr _%e4139341418%_)))) + (if (gx#stx-null? _%tl4139541425%_) + ((lambda (_%L41428%_) (if (gx#current-expander-compiling?) - (gx#eval-syntax _%L41329%_) + (gx#eval-syntax _%L41428%_) '#!void) (cons (gx#datum->syntax '#f 'void) '())) - _%hd4129541323%_) - (_%g4128841302%_ _%g4128941306%_)))) - (_%g4128841302%_ _%g4128941306%_)))) - (_%g4128841302%_ _%g4128941306%_))))) - (_%g4128741343%_ _%stx41285%_))))) + _%hd4139441422%_) + (_%g4138741401%_ _%g4138841405%_)))) + (_%g4138741401%_ _%g4138841405%_)))) + (_%g4138741401%_ _%g4138841405%_))))) + (_%g4138641442%_ _%stx41384%_))))) diff --git a/src/bootstrap/gerbil/core/more-sugar~2.scm b/src/bootstrap/gerbil/core/more-sugar~2.scm index 4c0922b4d..f71b90d89 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]#_g41522_| + (define |gerbil/core/more-sugar[2]#_g41621_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41524_| + (define |gerbil/core/more-sugar[2]#_g41623_| (##structure gx#syntax-quote::t 'setq-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41526_| + (define |gerbil/core/more-sugar[2]#_g41625_| (##structure gx#syntax-quote::t 'make-setq-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41528_| + (define |gerbil/core/more-sugar[2]#_g41627_| (##structure gx#syntax-quote::t 'setq-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41530_| + (define |gerbil/core/more-sugar[2]#_g41629_| (##structure gx#syntax-quote::t 'setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41532_| + (define |gerbil/core/more-sugar[2]#_g41631_| (##structure gx#syntax-quote::t 'setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41534_| + (define |gerbil/core/more-sugar[2]#_g41633_| (##structure gx#syntax-quote::t '&setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41536_| + (define |gerbil/core/more-sugar[2]#_g41635_| (##structure gx#syntax-quote::t '&setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41539_| + (define |gerbil/core/more-sugar[2]#_g41638_| (##structure gx#syntax-quote::t 'setf-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41541_| + (define |gerbil/core/more-sugar[2]#_g41640_| (##structure gx#syntax-quote::t 'make-setf-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41543_| + (define |gerbil/core/more-sugar[2]#_g41642_| (##structure gx#syntax-quote::t 'setf-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41545_| + (define |gerbil/core/more-sugar[2]#_g41644_| (##structure gx#syntax-quote::t 'setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41547_| + (define |gerbil/core/more-sugar[2]#_g41646_| (##structure gx#syntax-quote::t 'setf-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41549_| + (define |gerbil/core/more-sugar[2]#_g41648_| (##structure gx#syntax-quote::t '&setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41551_| + (define |gerbil/core/more-sugar[2]#_g41650_| (##structure gx#syntax-quote::t '&setf-macro-macro-set! @@ -107,7 +107,7 @@ '())) (begin (define |gerbil/core/more-sugar[:1:]#setq-macro| - (let ((__obj41506 + (let ((__obj41605 (let () (declare (not safe)) (##structure @@ -136,60 +136,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj41506 + __obj41605 'gerbil/core/more-sugar#setq-macro::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41506 'setq-macro '2 '#f '#f)) + (##unchecked-structure-set! __obj41605 'setq-macro '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41506 '() '4 '#f '#f)) - (let ((__tmp41521 (cons |gerbil/core/more-sugar[2]#_g41522_| '()))) + (##unchecked-structure-set! __obj41605 '() '4 '#f '#f)) + (let ((__tmp41620 (cons |gerbil/core/more-sugar[2]#_g41621_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41506 __tmp41521 '3 '#f '#f)) + (##unchecked-structure-set! __obj41605 __tmp41620 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41506 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj41605 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41506 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj41605 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41506 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj41605 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41506 '#f '11 '#f '#f)) - (let ((__tmp41523 |gerbil/core/more-sugar[2]#_g41524_|)) + (##unchecked-structure-set! __obj41605 '#f '11 '#f '#f)) + (let ((__tmp41622 |gerbil/core/more-sugar[2]#_g41623_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41506 __tmp41523 '12 '#f '#f)) - (let ((__tmp41525 |gerbil/core/more-sugar[2]#_g41526_|)) + (##unchecked-structure-set! __obj41605 __tmp41622 '12 '#f '#f)) + (let ((__tmp41624 |gerbil/core/more-sugar[2]#_g41625_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41506 __tmp41525 '13 '#f '#f)) - (let ((__tmp41527 |gerbil/core/more-sugar[2]#_g41528_|)) + (##unchecked-structure-set! __obj41605 __tmp41624 '13 '#f '#f)) + (let ((__tmp41626 |gerbil/core/more-sugar[2]#_g41627_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41506 __tmp41527 '14 '#f '#f)) - (let ((__tmp41529 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41530_|) '()))) + (##unchecked-structure-set! __obj41605 __tmp41626 '14 '#f '#f)) + (let ((__tmp41628 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41629_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41506 __tmp41529 '15 '#f '#f)) - (let ((__tmp41531 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41532_|) '()))) + (##unchecked-structure-set! __obj41605 __tmp41628 '15 '#f '#f)) + (let ((__tmp41630 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41631_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41506 __tmp41531 '16 '#f '#f)) - (let ((__tmp41533 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41534_|) '()))) + (##unchecked-structure-set! __obj41605 __tmp41630 '16 '#f '#f)) + (let ((__tmp41632 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41633_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41506 __tmp41533 '17 '#f '#f)) - (let ((__tmp41535 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41536_|) '()))) + (##unchecked-structure-set! __obj41605 __tmp41632 '17 '#f '#f)) + (let ((__tmp41634 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41635_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41506 __tmp41535 '18 '#f '#f)) - __obj41506)) + (##unchecked-structure-set! __obj41605 __tmp41634 '18 '#f '#f)) + __obj41605)) (define |gerbil/core/more-sugar[:1:]#setf-macro| - (let ((__obj41507 + (let ((__obj41606 (let () (declare (not safe)) (##structure @@ -218,55 +218,55 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj41507 + __obj41606 'gerbil/core/more-sugar#setf-macro::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41507 'setf-macro '2 '#f '#f)) + (##unchecked-structure-set! __obj41606 'setf-macro '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41507 '() '4 '#f '#f)) - (let ((__tmp41537 (cons |gerbil/core/more-sugar[2]#_g41522_| '()))) + (##unchecked-structure-set! __obj41606 '() '4 '#f '#f)) + (let ((__tmp41636 (cons |gerbil/core/more-sugar[2]#_g41621_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41507 __tmp41537 '3 '#f '#f)) + (##unchecked-structure-set! __obj41606 __tmp41636 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41507 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj41606 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41507 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj41606 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41507 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj41606 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41507 '#f '11 '#f '#f)) - (let ((__tmp41538 |gerbil/core/more-sugar[2]#_g41539_|)) + (##unchecked-structure-set! __obj41606 '#f '11 '#f '#f)) + (let ((__tmp41637 |gerbil/core/more-sugar[2]#_g41638_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41507 __tmp41538 '12 '#f '#f)) - (let ((__tmp41540 |gerbil/core/more-sugar[2]#_g41541_|)) + (##unchecked-structure-set! __obj41606 __tmp41637 '12 '#f '#f)) + (let ((__tmp41639 |gerbil/core/more-sugar[2]#_g41640_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41507 __tmp41540 '13 '#f '#f)) - (let ((__tmp41542 |gerbil/core/more-sugar[2]#_g41543_|)) + (##unchecked-structure-set! __obj41606 __tmp41639 '13 '#f '#f)) + (let ((__tmp41641 |gerbil/core/more-sugar[2]#_g41642_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41507 __tmp41542 '14 '#f '#f)) - (let ((__tmp41544 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41545_|) '()))) + (##unchecked-structure-set! __obj41606 __tmp41641 '14 '#f '#f)) + (let ((__tmp41643 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41644_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41507 __tmp41544 '15 '#f '#f)) - (let ((__tmp41546 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41547_|) '()))) + (##unchecked-structure-set! __obj41606 __tmp41643 '15 '#f '#f)) + (let ((__tmp41645 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41646_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41507 __tmp41546 '16 '#f '#f)) - (let ((__tmp41548 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41549_|) '()))) + (##unchecked-structure-set! __obj41606 __tmp41645 '16 '#f '#f)) + (let ((__tmp41647 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41648_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41507 __tmp41548 '17 '#f '#f)) - (let ((__tmp41550 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41551_|) '()))) + (##unchecked-structure-set! __obj41606 __tmp41647 '17 '#f '#f)) + (let ((__tmp41649 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41650_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41507 __tmp41550 '18 '#f '#f)) - __obj41507)))) + (##unchecked-structure-set! __obj41606 __tmp41649 '18 '#f '#f)) + __obj41606)))) diff --git a/src/bootstrap/gerbil/core/more-syntax-sugar~1.scm b/src/bootstrap/gerbil/core/more-syntax-sugar~1.scm index 99ede65bd..93538b003 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 (_%$stx41554%_) - (let* ((_%g4155841569%_ - (lambda (_%g4155941565%_) + (lambda (_%$stx41653%_) + (let* ((_%g4165741668%_ + (lambda (_%g4165841664%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4155941565%_))) - (_%g4155741599%_ - (lambda (_%g4155941573%_) - (if (gx#stx-pair? _%g4155941573%_) - (let ((_%e4156141576%_ (gx#syntax-e _%g4155941573%_))) - (let ((_%hd4156241580%_ + _%g4165841664%_))) + (_%g4165641698%_ + (lambda (_%g4165841672%_) + (if (gx#stx-pair? _%g4165841672%_) + (let ((_%e4166041675%_ (gx#syntax-e _%g4165841672%_))) + (let ((_%hd4166141679%_ (let () (declare (not safe)) - (##car _%e4156141576%_))) - (_%tl4156341583%_ + (##car _%e4166041675%_))) + (_%tl4166241682%_ (let () (declare (not safe)) - (##cdr _%e4156141576%_)))) - ((lambda (_%L41586%_) + (##cdr _%e4166041675%_)))) + ((lambda (_%L41685%_) (cons (gx#datum->syntax '#f 'make-setq-macro) (cons 'macro: (cons (cons (gx#datum->syntax '#f 'syntax-rules) - _%L41586%_) + _%L41685%_) '())))) - _%tl4156341583%_))) - (_%g4155841569%_ _%g4155941573%_))))) - (_%g4155741599%_ _%$stx41554%_)))) + _%tl4166241682%_))) + (_%g4165741668%_ _%g4165841672%_))))) + (_%g4165641698%_ _%$stx41653%_)))) (define |gerbil/core/more-syntax-sugar[:0:]#quasisyntax| - (lambda (_%$stx41603%_) - (let ((_%g4160641613%_ - (lambda (_%g4160741609%_) + (lambda (_%$stx41702%_) + (let ((_%g4170541712%_ + (lambda (_%g4170641708%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4160741609%_)))) - (_%g4160641613%_ _%$stx41603%_))))) + _%g4170641708%_)))) + (_%g4170541712%_ _%$stx41702%_))))) diff --git a/src/bootstrap/gerbil/core/runtime.ssi b/src/bootstrap/gerbil/core/runtime.ssi index bf08f0d4a..5d2609b31 100644 --- a/src/bootstrap/gerbil/core/runtime.ssi +++ b/src/bootstrap/gerbil/core/runtime.ssi @@ -1528,6 +1528,7 @@ namespace: gerbil/core/runtime (display* display*) (file-newer? file-newer?) (create-directory* create-directory*) + (move-file move-file) (absent-obj absent-obj) (absent-value absent-value) (true true) @@ -1699,6 +1700,7 @@ namespace: gerbil/core/runtime (seal-class! seal-class!) (next-method next-method) (call-next-method call-next-method) + (type-of type-of) (class-of class-of) (t::t t::t) (class::t class::t) @@ -1900,6 +1902,8 @@ namespace: gerbil/core/runtime (set-load-path! set-load-path!) (load-module load-module) (reload-module! reload-module!) + (list-modules list-modules) + (module-load-order module-load-order) (gerbil-load-expander! gerbil-load-expander!)))) (%#module RuntimeAliases diff --git a/src/bootstrap/gerbil/core/sugar.ssi b/src/bootstrap/gerbil/core/sugar.ssi index c21838336..5839692d1 100644 --- a/src/bootstrap/gerbil/core/sugar.ssi +++ b/src/bootstrap/gerbil/core/sugar.ssi @@ -51,7 +51,10 @@ namespace: gerbil/core/sugar |gerbil/core/sugar~Sugar-1[:0:]#unless|) (%#define-syntax syntax-error - |gerbil/core/sugar~Sugar-1[:0:]#syntax-error|))) + |gerbil/core/sugar~Sugar-1[:0:]#syntax-error|) + (%#define-syntax + compilation-target? + |gerbil/core/sugar~Sugar-1[:0:]#compilation-target?|))) (%#module Sugar-2 (%#begin (%#import (in: #f Sugar-1) (phi: 1 (in: #f Sugar-1))) diff --git a/src/bootstrap/gerbil/core/sugar~1.scm b/src/bootstrap/gerbil/core/sugar~1.scm index e51396434..d656c69b3 100644 --- a/src/bootstrap/gerbil/core/sugar~1.scm +++ b/src/bootstrap/gerbil/core/sugar~1.scm @@ -1,27 +1,27 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/sugar~Sugar-1[1]#_g20871_| + (define |gerbil/core/sugar~Sugar-1[1]#_g20970_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-1[1]#_g20872_| + (define |gerbil/core/sugar~Sugar-1[1]#_g20971_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-1[1]#_g20875_| + (define |gerbil/core/sugar~Sugar-1[1]#_g20974_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-1[1]#_g20876_| + (define |gerbil/core/sugar~Sugar-1[1]#_g20975_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) (begin (define |gerbil/core/sugar~Sugar-1[:0:]#defrules| @@ -68,37 +68,37 @@ (##cdr _%e19401984%_)))) (if (gx#stx-pair/null? _%tl19421991%_) - (let ((_g20863_ + (let ((_g20962_ (gx#syntax-split-splice _%tl19421991%_ '0))) (begin - (let ((_g20864_ + (let ((_g20963_ (let () (declare (not safe)) (if (##values? - _g20863_) - (##vector-length - _g20863_) + _g20962_) + (##values-length + _g20962_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g20864_ 2))) - (error "Context expects 2 values" _g20864_))) + (##fx= _g20963_ 2))) + (error "Context expects 2 values" _g20963_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target19431994%_ (let () (declare (not safe)) - (##vector-ref - _g20863_ + (##values-ref + _g20962_ 0))) (_%tl19451997%_ (let () (declare (not safe)) - (##vector-ref - _g20863_ + (##values-ref + _g20962_ 1)))) (if (gx#stx-null? _%tl19451997%_) @@ -153,14 +153,14 @@ (_%g19282058%_ _%$stx1925%_)))) (define |gerbil/core/sugar~Sugar-1[:0:]#defrule| (lambda (_%$stx2063%_) - (let* ((_%__stx1844418445%_ _%$stx2063%_) + (let* ((_%__stx1854318544%_ _%$stx2063%_) (_%g20682109%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1844418445%_)))) - (let ((_%__kont1844718448%_ + _%__stx1854318544%_)))) + (let ((_%__kont1854618547%_ (lambda (_%L2239%_ _%L2241%_ _%L2242%_) (cons (gx#datum->syntax '#f 'define-syntax) (cons _%L2242%_ @@ -175,7 +175,7 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1844918450%_ + (_%__kont1854818549%_ (lambda (_%L2166%_ _%L2168%_ _%L2169%_ _%L2170%_) (cons (gx#datum->syntax '#f 'define-syntax) (cons _%L2170%_ @@ -190,7 +190,7 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match1850918510%_ + (let* ((_%__match1860818609%_ (lambda (_%e20892116%_ _%hd20902120%_ _%tl20912123%_ @@ -211,13 +211,13 @@ (_%L2169%_ _%tl20972143%_) (_%L2170%_ _%hd20962140%_)) (if (gx#identifier? _%L2170%_) - (_%__kont1844918450%_ + (_%__kont1854818549%_ _%L2166%_ _%L2168%_ _%L2169%_ _%L2170%_) (let () (declare (not safe)) (_%g20682109%_)))))) - (_%__match1847718478%_ + (_%__match1857618577%_ (lambda (_%e20732199%_ _%hd20742203%_ _%tl20752206%_ @@ -234,13 +234,13 @@ (_%L2241%_ _%tl20812226%_) (_%L2242%_ _%hd20802223%_)) (if (gx#identifier? _%L2242%_) - (_%__kont1844718448%_ + (_%__kont1854618547%_ _%L2239%_ _%L2241%_ _%L2242%_) (let () (declare (not safe)) (_%g20682109%_))))))) - (if (gx#stx-pair? _%__stx1844418445%_) - (let ((_%e20732199%_ (gx#syntax-e _%__stx1844418445%_))) + (if (gx#stx-pair? _%__stx1854318544%_) + (let ((_%e20732199%_ (gx#syntax-e _%__stx1854318544%_))) (let ((_%tl20752206%_ (let () (declare (not safe)) (##cdr _%e20732199%_))) (_%hd20742203%_ @@ -280,7 +280,7 @@ (declare (not safe)) (##car _%e20822229%_)))) (if (gx#stx-null? _%tl20842236%_) - (_%__match1847718478%_ + (_%__match1857618577%_ _%e20732199%_ _%hd20742203%_ _%tl20752206%_ @@ -306,7 +306,7 @@ (_%hd21022160%_ (let () (declare (not safe)) (##car _%e21012156%_)))) (if (gx#stx-null? _%tl21032163%_) - (_%__match1850918510%_ + (_%__match1860818609%_ _%e20732199%_ _%hd20742203%_ _%tl20752206%_ @@ -335,14 +335,14 @@ (let () (declare (not safe)) (_%g20682109%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#defsyntax%| (lambda (_%$stx2264%_) - (let* ((_%__stx1851218513%_ _%$stx2264%_) + (let* ((_%__stx1861118612%_ _%$stx2264%_) (_%g22692308%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1851218513%_)))) - (let ((_%__kont1851518516%_ + _%__stx1861118612%_)))) + (let ((_%__kont1861418615%_ (lambda (_%L2430%_ _%L2432%_ _%L2433%_) (cons (gx#datum->syntax '#f 'define-syntax) (cons _%L2433%_ @@ -356,11 +356,11 @@ _%L2430%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1851918520%_ + (_%__kont1861818619%_ (lambda (_%L2345%_ _%L2347%_) (cons (gx#datum->syntax '#f 'define-syntax) (cons _%L2347%_ (cons _%L2345%_ '())))))) - (let* ((_%__match1856718568%_ + (let* ((_%__match1866618667%_ (lambda (_%e22942315%_ _%hd22952319%_ _%tl22962322%_ @@ -373,9 +373,9 @@ (let ((_%L2345%_ _%hd23012339%_) (_%L2347%_ _%hd22982329%_)) (if (gx#identifier? _%L2347%_) - (_%__kont1851918520%_ _%L2345%_ _%L2347%_) + (_%__kont1861818619%_ _%L2345%_ _%L2347%_) (let () (declare (not safe)) (_%g22692308%_)))))) - (_%__match1855918560%_ + (_%__match1865818659%_ (lambda (_%e22942315%_ _%hd22952319%_ _%tl22962322%_ @@ -393,7 +393,7 @@ (declare (not safe)) (##car _%e23002335%_)))) (if (gx#stx-null? _%tl23022342%_) - (_%__match1856718568%_ + (_%__match1866618667%_ _%e22942315%_ _%hd22952319%_ _%tl22962322%_ @@ -407,7 +407,7 @@ (declare (not safe)) (_%g22692308%_))))) (let () (declare (not safe)) (_%g22692308%_))))) - (_%__match1854718548%_ + (_%__match1864618647%_ (lambda (_%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -417,7 +417,7 @@ _%e22802390%_ _%hd22812394%_ _%tl22822397%_ - _%__splice1851718518%_ + _%__splice1861618617%_ _%target22832400%_ _%tl22852403%_) (letrec ((_%loop22862406%_ @@ -443,11 +443,11 @@ (_%L2432%_ _%tl22822397%_) (_%L2433%_ _%hd22812394%_)) (if (gx#identifier? _%L2433%_) - (_%__kont1851518516%_ + (_%__kont1861418615%_ _%L2430%_ _%L2432%_ _%L2433%_) - (_%__match1855918560%_ + (_%__match1865818659%_ _%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -455,8 +455,8 @@ _%hd22782384%_ _%tl22792387%_)))))))) (_%loop22862406%_ _%target22832400%_ '()))))) - (if (gx#stx-pair? _%__stx1851218513%_) - (let ((_%e22742370%_ (gx#syntax-e _%__stx1851218513%_))) + (if (gx#stx-pair? _%__stx1861118612%_) + (let ((_%e22742370%_ (gx#syntax-e _%__stx1861118612%_))) (let ((_%tl22762377%_ (let () (declare (not safe)) (##cdr _%e22742370%_))) (_%hd22752374%_ @@ -485,7 +485,7 @@ (declare (not safe)) (##car _%e22802390%_)))) (if (gx#stx-pair/null? _%tl22792387%_) - (let ((_%__splice1851718518%_ + (let ((_%__splice1861618617%_ (gx#syntax-split-splice _%tl22792387%_ '0))) @@ -493,16 +493,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1851718518%_ + _%__splice1861618617%_ '1))) (_%target22832400%_ (let () (declare (not safe)) (##vector-ref - _%__splice1851718518%_ + _%__splice1861618617%_ '0)))) (if (gx#stx-null? _%tl22852403%_) - (_%__match1854718548%_ + (_%__match1864618647%_ _%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -512,7 +512,7 @@ _%e22802390%_ _%hd22812394%_ _%tl22822397%_ - _%__splice1851718518%_ + _%__splice1861618617%_ _%target22832400%_ _%tl22852403%_) (if (gx#stx-pair? @@ -528,7 +528,7 @@ (_%hd23012339%_ (let () (declare (not safe)) (##car _%e23002335%_)))) (if (gx#stx-null? _%tl23022342%_) - (_%__match1856718568%_ + (_%__match1866618667%_ _%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -555,7 +555,7 @@ (##car _%e23002335%_)))) (if (gx#stx-null? _%tl23022342%_) - (_%__match1856718568%_ + (_%__match1866618667%_ _%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -583,7 +583,7 @@ (declare (not safe)) (##car _%e23002335%_)))) (if (gx#stx-null? _%tl23022342%_) - (_%__match1856718568%_ + (_%__match1866618667%_ _%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -603,14 +603,14 @@ (let () (declare (not safe)) (_%g22692308%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#define| (lambda (_%$stx2466%_) - (let* ((_%__stx1857018571%_ _%$stx2466%_) + (let* ((_%__stx1866918670%_ _%$stx2466%_) (_%g24712510%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1857018571%_)))) - (let ((_%__kont1857318574%_ + _%__stx1866918670%_)))) + (let ((_%__kont1867218673%_ (lambda (_%L2632%_ _%L2634%_ _%L2635%_) (cons (gx#datum->syntax '#f 'define-values) (cons (cons _%L2635%_ '()) @@ -624,11 +624,11 @@ _%L2632%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1857718578%_ + (_%__kont1867618677%_ (lambda (_%L2547%_ _%L2549%_) (cons (gx#datum->syntax '#f 'define-values) (cons (cons _%L2549%_ '()) (cons _%L2547%_ '())))))) - (let* ((_%__match1862518626%_ + (let* ((_%__match1872418725%_ (lambda (_%e24962517%_ _%hd24972521%_ _%tl24982524%_ @@ -641,9 +641,9 @@ (let ((_%L2547%_ _%hd25032541%_) (_%L2549%_ _%hd25002531%_)) (if (gx#identifier? _%L2549%_) - (_%__kont1857718578%_ _%L2547%_ _%L2549%_) + (_%__kont1867618677%_ _%L2547%_ _%L2549%_) (let () (declare (not safe)) (_%g24712510%_)))))) - (_%__match1861718618%_ + (_%__match1871618717%_ (lambda (_%e24962517%_ _%hd24972521%_ _%tl24982524%_ @@ -661,7 +661,7 @@ (declare (not safe)) (##car _%e25022537%_)))) (if (gx#stx-null? _%tl25042544%_) - (_%__match1862518626%_ + (_%__match1872418725%_ _%e24962517%_ _%hd24972521%_ _%tl24982524%_ @@ -675,7 +675,7 @@ (declare (not safe)) (_%g24712510%_))))) (let () (declare (not safe)) (_%g24712510%_))))) - (_%__match1860518606%_ + (_%__match1870418705%_ (lambda (_%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -685,7 +685,7 @@ _%e24822592%_ _%hd24832596%_ _%tl24842599%_ - _%__splice1857518576%_ + _%__splice1867418675%_ _%target24852602%_ _%tl24872605%_) (letrec ((_%loop24882608%_ @@ -711,11 +711,11 @@ (_%L2634%_ _%tl24842599%_) (_%L2635%_ _%hd24832596%_)) (if (gx#identifier? _%L2635%_) - (_%__kont1857318574%_ + (_%__kont1867218673%_ _%L2632%_ _%L2634%_ _%L2635%_) - (_%__match1861718618%_ + (_%__match1871618717%_ _%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -723,8 +723,8 @@ _%hd24802586%_ _%tl24812589%_)))))))) (_%loop24882608%_ _%target24852602%_ '()))))) - (if (gx#stx-pair? _%__stx1857018571%_) - (let ((_%e24762572%_ (gx#syntax-e _%__stx1857018571%_))) + (if (gx#stx-pair? _%__stx1866918670%_) + (let ((_%e24762572%_ (gx#syntax-e _%__stx1866918670%_))) (let ((_%tl24782579%_ (let () (declare (not safe)) (##cdr _%e24762572%_))) (_%hd24772576%_ @@ -753,7 +753,7 @@ (declare (not safe)) (##car _%e24822592%_)))) (if (gx#stx-pair/null? _%tl24812589%_) - (let ((_%__splice1857518576%_ + (let ((_%__splice1867418675%_ (gx#syntax-split-splice _%tl24812589%_ '0))) @@ -761,16 +761,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1857518576%_ + _%__splice1867418675%_ '1))) (_%target24852602%_ (let () (declare (not safe)) (##vector-ref - _%__splice1857518576%_ + _%__splice1867418675%_ '0)))) (if (gx#stx-null? _%tl24872605%_) - (_%__match1860518606%_ + (_%__match1870418705%_ _%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -780,7 +780,7 @@ _%e24822592%_ _%hd24832596%_ _%tl24842599%_ - _%__splice1857518576%_ + _%__splice1867418675%_ _%target24852602%_ _%tl24872605%_) (if (gx#stx-pair? @@ -796,7 +796,7 @@ (_%hd25032541%_ (let () (declare (not safe)) (##car _%e25022537%_)))) (if (gx#stx-null? _%tl25042544%_) - (_%__match1862518626%_ + (_%__match1872418725%_ _%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -823,7 +823,7 @@ (##car _%e25022537%_)))) (if (gx#stx-null? _%tl25042544%_) - (_%__match1862518626%_ + (_%__match1872418725%_ _%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -851,7 +851,7 @@ (declare (not safe)) (##car _%e25022537%_)))) (if (gx#stx-null? _%tl25042544%_) - (_%__match1862518626%_ + (_%__match1872418725%_ _%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -871,14 +871,14 @@ (let () (declare (not safe)) (_%g24712510%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#let*-values| (lambda (_%$stx2668%_) - (let* ((_%__stx1862818629%_ _%$stx2668%_) + (let* ((_%__stx1872718728%_ _%$stx2668%_) (_%g26732718%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1862818629%_)))) - (let ((_%__kont1863118632%_ + _%__stx1872718728%_)))) + (let ((_%__kont1873018731%_ (lambda (_%L2876%_) (cons (gx#datum->syntax '#f 'let-values) (cons '() @@ -886,7 +886,7 @@ (cons _%g28922895%_ _%g28932898%_)) '() _%L2876%_))))) - (_%__kont1863518636%_ + (_%__kont1873418735%_ (lambda (_%L2785%_ _%L2787%_ _%L2788%_ _%L2789%_) (cons (gx#datum->syntax '#f 'let-values) (cons (cons _%L2788%_ '()) @@ -900,7 +900,7 @@ _%L2785%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match1868718688%_ + (let* ((_%__match1878618787%_ (lambda (_%e26952725%_ _%hd26962729%_ _%tl26972732%_ @@ -910,7 +910,7 @@ _%e27012745%_ _%hd27022749%_ _%tl27032752%_ - _%__splice1863718638%_ + _%__splice1873618737%_ _%target27042755%_ _%tl27062758%_) (letrec ((_%loop27072761%_ @@ -932,20 +932,20 @@ _%body27112768%_)))) (let ((_%body27122781%_ (reverse _%body27112768%_))) - (_%__kont1863518636%_ + (_%__kont1873418735%_ _%body27122781%_ _%tl27032752%_ _%hd27022749%_ _%hd26962729%_)))))) (_%loop27072761%_ _%target27042755%_ '())))) - (_%__match1866118662%_ + (_%__match1876018761%_ (lambda (_%e26762826%_ _%hd26772830%_ _%tl26782833%_ _%e26792836%_ _%hd26802840%_ _%tl26812843%_ - _%__splice1863318634%_ + _%__splice1873218733%_ _%target26822846%_ _%tl26842849%_) (letrec ((_%loop26852852%_ @@ -967,11 +967,11 @@ _%body26892859%_)))) (let ((_%body26902872%_ (reverse _%body26892859%_))) - (_%__kont1863118632%_ + (_%__kont1873018731%_ _%body26902872%_)))))) (_%loop26852852%_ _%target26822846%_ '()))))) - (if (gx#stx-pair? _%__stx1862818629%_) - (let ((_%e26762826%_ (gx#syntax-e _%__stx1862818629%_))) + (if (gx#stx-pair? _%__stx1872718728%_) + (let ((_%e26762826%_ (gx#syntax-e _%__stx1872718728%_))) (let ((_%tl26782833%_ (let () (declare (not safe)) (##cdr _%e26762826%_))) (_%hd26772830%_ @@ -990,7 +990,7 @@ (##car _%e26792836%_)))) (if (gx#stx-null? _%hd26802840%_) (if (gx#stx-pair/null? _%tl26812843%_) - (let ((_%__splice1863318634%_ + (let ((_%__splice1873218733%_ (gx#syntax-split-splice _%tl26812843%_ '0))) @@ -998,23 +998,23 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1863318634%_ + _%__splice1873218733%_ '1))) (_%target26822846%_ (let () (declare (not safe)) (##vector-ref - _%__splice1863318634%_ + _%__splice1873218733%_ '0)))) (if (gx#stx-null? _%tl26842849%_) - (_%__match1866118662%_ + (_%__match1876018761%_ _%e26762826%_ _%hd26772830%_ _%tl26782833%_ _%e26792836%_ _%hd26802840%_ _%tl26812843%_ - _%__splice1863318634%_ + _%__splice1873218733%_ _%target26822846%_ _%tl26842849%_) (let () @@ -1036,7 +1036,7 @@ (##car _%e27012745%_)))) (if (gx#stx-pair/null? _%tl26812843%_) - (let ((_%__splice1863718638%_ + (let ((_%__splice1873618737%_ (gx#syntax-split-splice _%tl26812843%_ '0))) @@ -1044,17 +1044,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1863718638%_ + _%__splice1873618737%_ '1))) (_%target27042755%_ (let () (declare (not safe)) (##vector-ref - _%__splice1863718638%_ + _%__splice1873618737%_ '0)))) (if (gx#stx-null? _%tl27062758%_) - (_%__match1868718688%_ + (_%__match1878618787%_ _%e26762826%_ _%hd26772830%_ _%tl26782833%_ @@ -1064,7 +1064,7 @@ _%e27012745%_ _%hd27022749%_ _%tl27032752%_ - _%__splice1863718638%_ + _%__splice1873618737%_ _%target27042755%_ _%tl27062758%_) (let () @@ -1080,14 +1080,14 @@ (let () (declare (not safe)) (_%g26732718%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#let| (lambda (_%$stx2907%_) - (let* ((_%__stx1869018691%_ _%$stx2907%_) + (let* ((_%__stx1878918790%_ _%$stx2907%_) (_%g29122976%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1869018691%_)))) - (let ((_%__kont1869318694%_ + _%__stx1878918790%_)))) + (let ((_%__kont1879218793%_ (lambda (_%L3182%_ _%L3184%_ _%L3185%_ _%L3186%_ _%L3187%_) (cons (cons (gx#datum->syntax '#f 'letrec-values) (cons (cons (cons (cons _%L3187%_ '()) @@ -1112,7 +1112,7 @@ (cons _%g32123231%_ _%g32133234%_)) '() _%L3185%_)))) - (_%__kont1869918700%_ + (_%__kont1879818799%_ (lambda (_%L3033%_ _%L3035%_) (cons (gx#datum->syntax '#f '~let) (cons (gx#datum->syntax '#f 'let-values) @@ -1123,14 +1123,14 @@ _%g30533058%_)) '() _%L3033%_))))))) - (let* ((_%__match1874718748%_ + (let* ((_%__match1884618847%_ (lambda (_%e29562983%_ _%hd29572987%_ _%tl29582990%_ _%e29592993%_ _%hd29602997%_ _%tl29613000%_ - _%__splice1870118702%_ + _%__splice1880018801%_ _%target29623003%_ _%tl29643006%_) (letrec ((_%loop29653009%_ @@ -1152,11 +1152,11 @@ _%body29693016%_)))) (let ((_%body29703029%_ (reverse _%body29693016%_))) - (_%__kont1869918700%_ + (_%__kont1879818799%_ _%body29703029%_ _%hd29602997%_)))))) (_%loop29653009%_ _%target29623003%_ '())))) - (_%__match1873918740%_ + (_%__match1883818839%_ (lambda (_%e29562983%_ _%hd29572987%_ _%tl29582990%_ @@ -1164,34 +1164,34 @@ _%hd29602997%_ _%tl29613000%_) (if (gx#stx-pair/null? _%tl29613000%_) - (let ((_%__splice1870118702%_ + (let ((_%__splice1880018801%_ (gx#syntax-split-splice _%tl29613000%_ '0))) (let ((_%tl29643006%_ (let () (declare (not safe)) - (##vector-ref _%__splice1870118702%_ '1))) + (##vector-ref _%__splice1880018801%_ '1))) (_%target29623003%_ (let () (declare (not safe)) (##vector-ref - _%__splice1870118702%_ + _%__splice1880018801%_ '0)))) (if (gx#stx-null? _%tl29643006%_) - (_%__match1874718748%_ + (_%__match1884618847%_ _%e29562983%_ _%hd29572987%_ _%tl29582990%_ _%e29592993%_ _%hd29602997%_ _%tl29613000%_ - _%__splice1870118702%_ + _%__splice1880018801%_ _%target29623003%_ _%tl29643006%_) (let () (declare (not safe)) (_%g29122976%_))))) (let () (declare (not safe)) (_%g29122976%_))))) - (_%__match1872718728%_ + (_%__match1882618827%_ (lambda (_%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1201,7 +1201,7 @@ _%e29253088%_ _%hd29263092%_ _%tl29273095%_ - _%__splice1869518696%_ + _%__splice1879418795%_ _%target29283098%_ _%tl29303101%_) (letrec ((_%loop29313104%_ @@ -1248,14 +1248,14 @@ _%lp-tl29343123%_ (cons _%hd29523140%_ _%arg29353111%_) (cons _%hd29493130%_ _%var29363113%_)) - (_%__match1873918740%_ + (_%__match1883818839%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ _%e29223078%_ _%hd29233082%_ _%tl29243085%_)))) - (_%__match1873918740%_ + (_%__match1883818839%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1263,7 +1263,7 @@ _%hd29233082%_ _%tl29243085%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match1873918740%_ + (_%__match1883818839%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1275,7 +1275,7 @@ (_%arg29373146%_ (reverse _%arg29353111%_))) (if (gx#stx-pair/null? _%tl29273095%_) - (let ((_%__splice1869718698%_ + (let ((_%__splice1879618797%_ (gx#syntax-split-splice _%tl29273095%_ '0))) @@ -1283,13 +1283,13 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1869718698%_ + _%__splice1879618797%_ '1))) (_%target29393152%_ (let () (declare (not safe)) (##vector-ref - _%__splice1869718698%_ + _%__splice1879618797%_ '0)))) (if (gx#stx-null? _%tl29413155%_) @@ -1318,13 +1318,13 @@ (_%L3186%_ _%var29383149%_) (_%L3187%_ _%hd29233082%_)) (if (gx#identifier? _%L3187%_) - (_%__kont1869318694%_ + (_%__kont1879218793%_ _%L3182%_ _%L3184%_ _%L3185%_ _%L3186%_ _%L3187%_) - (_%__match1873918740%_ + (_%__match1883818839%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1333,14 +1333,14 @@ _%tl29243085%_)))))))) (_%loop29423158%_ _%target29393152%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match1873918740%_ + (_%__match1883818839%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ _%e29223078%_ _%hd29233082%_ _%tl29243085%_)))) - (_%__match1873918740%_ + (_%__match1883818839%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1348,8 +1348,8 @@ _%hd29233082%_ _%tl29243085%_))))))) (_%loop29313104%_ _%target29283098%_ '() '()))))) - (if (gx#stx-pair? _%__stx1869018691%_) - (let ((_%e29193068%_ (gx#syntax-e _%__stx1869018691%_))) + (if (gx#stx-pair? _%__stx1878918790%_) + (let ((_%e29193068%_ (gx#syntax-e _%__stx1878918790%_))) (let ((_%tl29213075%_ (let () (declare (not safe)) (##cdr _%e29193068%_))) (_%hd29203072%_ @@ -1378,7 +1378,7 @@ (declare (not safe)) (##car _%e29253088%_)))) (if (gx#stx-pair/null? _%hd29263092%_) - (let ((_%__splice1869518696%_ + (let ((_%__splice1879418795%_ (gx#syntax-split-splice _%hd29263092%_ '0))) @@ -1386,15 +1386,15 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1869518696%_ + _%__splice1879418795%_ '1))) (_%target29283098%_ (let () (declare (not safe)) (##vector-ref - _%__splice1869518696%_ + _%__splice1879418795%_ '0)))) - (_%__match1872718728%_ + (_%__match1882618827%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1404,12 +1404,12 @@ _%e29253088%_ _%hd29263092%_ _%tl29273095%_ - _%__splice1869518696%_ + _%__splice1879418795%_ _%target29283098%_ _%tl29303101%_))) (if (gx#stx-pair/null? _%tl29243085%_) - (let ((_%__splice1870118702%_ + (let ((_%__splice1880018801%_ (gx#syntax-split-splice _%tl29243085%_ '0))) @@ -1417,24 +1417,24 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1870118702%_ + _%__splice1880018801%_ '1))) (_%target29623003%_ (let () (declare (not safe)) (##vector-ref - _%__splice1870118702%_ + _%__splice1880018801%_ '0)))) (if (gx#stx-null? _%tl29643006%_) - (_%__match1874718748%_ + (_%__match1884618847%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ _%e29223078%_ _%hd29233082%_ _%tl29243085%_ - _%__splice1870118702%_ + _%__splice1880018801%_ _%target29623003%_ _%tl29643006%_) (let () @@ -1444,7 +1444,7 @@ (declare (not safe)) (_%g29122976%_)))))) (if (gx#stx-pair/null? _%tl29243085%_) - (let ((_%__splice1870118702%_ + (let ((_%__splice1880018801%_ (gx#syntax-split-splice _%tl29243085%_ '0))) @@ -1452,23 +1452,23 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1870118702%_ + _%__splice1880018801%_ '1))) (_%target29623003%_ (let () (declare (not safe)) (##vector-ref - _%__splice1870118702%_ + _%__splice1880018801%_ '0)))) (if (gx#stx-null? _%tl29643006%_) - (_%__match1874718748%_ + (_%__match1884618847%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ _%e29223078%_ _%hd29233082%_ _%tl29243085%_ - _%__splice1870118702%_ + _%__splice1880018801%_ _%target29623003%_ _%tl29643006%_) (let () @@ -1511,31 +1511,31 @@ (declare (not safe)) (##cdr _%e32553289%_)))) (if (gx#stx-pair/null? _%tl32573296%_) - (let ((_g20865_ + (let ((_g20964_ (gx#syntax-split-splice _%tl32573296%_ '0))) (begin - (let ((_g20866_ + (let ((_g20965_ (let () (declare (not safe)) - (if (##values? _g20865_) - (##vector-length - _g20865_) + (if (##values? _g20964_) + (##values-length + _g20964_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20866_ 2))) + (##fx= _g20965_ 2))) (error "Context expects 2 values" - _g20866_))) + _g20965_))) (let ((_%target32583299%_ (let () (declare (not safe)) - (##vector-ref _g20865_ 0))) + (##values-ref _g20964_ 0))) (_%tl32603302%_ (let () (declare (not safe)) - (##vector-ref _g20865_ 1)))) + (##values-ref _g20964_ 1)))) (if (gx#stx-null? _%tl32603302%_) (letrec ((_%loop32613305%_ (lambda (_%hd32593309%_ @@ -1609,31 +1609,31 @@ (declare (not safe)) (##cdr _%e33733407%_)))) (if (gx#stx-pair/null? _%tl33753414%_) - (let ((_g20867_ + (let ((_g20966_ (gx#syntax-split-splice _%tl33753414%_ '0))) (begin - (let ((_g20868_ + (let ((_g20967_ (let () (declare (not safe)) - (if (##values? _g20867_) - (##vector-length - _g20867_) + (if (##values? _g20966_) + (##values-length + _g20966_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20868_ 2))) + (##fx= _g20967_ 2))) (error "Context expects 2 values" - _g20868_))) + _g20967_))) (let ((_%target33763417%_ (let () (declare (not safe)) - (##vector-ref _g20867_ 0))) + (##values-ref _g20966_ 0))) (_%tl33783420%_ (let () (declare (not safe)) - (##vector-ref _g20867_ 1)))) + (##values-ref _g20966_ 1)))) (if (gx#stx-null? _%tl33783420%_) (letrec ((_%loop33793423%_ (lambda (_%hd33773427%_ @@ -1707,31 +1707,31 @@ (declare (not safe)) (##cdr _%e34913525%_)))) (if (gx#stx-pair/null? _%tl34933532%_) - (let ((_g20869_ + (let ((_g20968_ (gx#syntax-split-splice _%tl34933532%_ '0))) (begin - (let ((_g20870_ + (let ((_g20969_ (let () (declare (not safe)) - (if (##values? _g20869_) - (##vector-length - _g20869_) + (if (##values? _g20968_) + (##values-length + _g20968_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20870_ 2))) + (##fx= _g20969_ 2))) (error "Context expects 2 values" - _g20870_))) + _g20969_))) (let ((_%target34943535%_ (let () (declare (not safe)) - (##vector-ref _g20869_ 0))) + (##values-ref _g20968_ 0))) (_%tl34963538%_ (let () (declare (not safe)) - (##vector-ref _g20869_ 1)))) + (##values-ref _g20968_ 1)))) (if (gx#stx-null? _%tl34963538%_) (letrec ((_%loop34973541%_ (lambda (_%hd34953545%_ @@ -1777,21 +1777,21 @@ (lambda (_%stx3598%_) (letrec ((_%let-head?3601%_ (lambda (_%x4081%_) - (let* ((_%__stx1875018751%_ _%x4081%_) + (let* ((_%__stx1884918850%_ _%x4081%_) (_%g40854096%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1875018751%_)))) - (let ((_%__kont1875318754%_ + _%__stx1884918850%_)))) + (let ((_%__kont1885218853%_ (lambda (_%L4124%_) (gx#stx-andmap gx#identifier? _%L4124%_))) - (_%__kont1875518756%_ + (_%__kont1885418855%_ (lambda () (gx#identifier? _%x4081%_)))) - (if (gx#stx-pair? _%__stx1875018751%_) + (if (gx#stx-pair? _%__stx1884918850%_) (let ((_%e40884114%_ - (gx#syntax-e _%__stx1875018751%_))) + (gx#syntax-e _%__stx1884918850%_))) (let ((_%tl40904121%_ (let () (declare (not safe)) @@ -1802,28 +1802,28 @@ (##car _%e40884114%_)))) (if (gx#identifier? _%hd40894118%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-1[1]#_g20871_| + |gerbil/core/sugar~Sugar-1[1]#_g20970_| _%hd40894118%_) - (_%__kont1875318754%_ _%tl40904121%_) - (_%__kont1875518756%_)) - (_%__kont1875518756%_)))) - (_%__kont1875518756%_)))))) + (_%__kont1885218853%_ _%tl40904121%_) + (_%__kont1885418855%_)) + (_%__kont1885418855%_)))) + (_%__kont1885418855%_)))))) (_%let-head3603%_ (lambda (_%x4021%_) - (let* ((_%__stx1877018771%_ _%x4021%_) + (let* ((_%__stx1886918870%_ _%x4021%_) (_%g40254036%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1877018771%_)))) - (let ((_%__kont1877318774%_ + _%__stx1886918870%_)))) + (let ((_%__kont1887218873%_ (lambda (_%L4064%_) _%L4064%_)) - (_%__kont1877518776%_ + (_%__kont1887418875%_ (lambda () (list _%x4021%_)))) - (if (gx#stx-pair? _%__stx1877018771%_) + (if (gx#stx-pair? _%__stx1886918870%_) (let ((_%e40284054%_ - (gx#syntax-e _%__stx1877018771%_))) + (gx#syntax-e _%__stx1886918870%_))) (let ((_%tl40304061%_ (let () (declare (not safe)) @@ -1834,20 +1834,20 @@ (##car _%e40284054%_)))) (if (gx#identifier? _%hd40294058%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-1[1]#_g20872_| + |gerbil/core/sugar~Sugar-1[1]#_g20971_| _%hd40294058%_) - (_%__kont1877318774%_ _%tl40304061%_) - (_%__kont1877518776%_)) - (_%__kont1877518776%_)))) - (_%__kont1877518776%_))))))) - (let* ((_%__stx1879018791%_ _%stx3598%_) + (_%__kont1887218873%_ _%tl40304061%_) + (_%__kont1887418875%_)) + (_%__kont1887418875%_)))) + (_%__kont1887418875%_))))))) + (let* ((_%__stx1888918890%_ _%stx3598%_) (_%g36063672%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1879018791%_)))) - (let ((_%__kont1879318794%_ + _%__stx1888918890%_)))) + (let ((_%__kont1889218893%_ (lambda (_%L3990%_ _%L3992%_ _%L3993%_ _%L3994%_ _%L3995%_) (cons _%L3995%_ (cons _%L3994%_ @@ -1855,7 +1855,7 @@ (cons _%L3992%_ '())) '()) _%L3990%_))))) - (_%__kont1879518796%_ + (_%__kont1889418895%_ (lambda (_%L3793%_ _%L3795%_ _%L3796%_ _%L3797%_) (let* ((_%g38323849%_ (lambda (_%g38333845%_) @@ -1866,30 +1866,30 @@ (_%g38313921%_ (lambda (_%g38333853%_) (if (gx#stx-pair/null? _%g38333853%_) - (let ((_g20873_ + (let ((_g20972_ (gx#syntax-split-splice _%g38333853%_ '0))) (begin - (let ((_g20874_ + (let ((_g20973_ (let () (declare (not safe)) - (if (##values? _g20873_) - (##vector-length _g20873_) + (if (##values? _g20972_) + (##values-length _g20972_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20874_ 2))) + (##fx= _g20973_ 2))) (error "Context expects 2 values" - _g20874_))) + _g20973_))) (let ((_%target38353856%_ (let () (declare (not safe)) - (##vector-ref _g20873_ 0))) + (##values-ref _g20972_ 0))) (_%tl38373859%_ (let () (declare (not safe)) - (##vector-ref _g20873_ 1)))) + (##values-ref _g20972_ 1)))) (if (gx#stx-null? _%tl38373859%_) (letrec ((_%loop38383862%_ (lambda (_%hd38363866%_ @@ -1949,7 +1949,7 @@ (cons _%g39243927%_ _%g39253930%_)) '() _%L3796%_))))))) - (let* ((_%__match1885918860%_ + (let* ((_%__match1895818959%_ (lambda (_%e36323679%_ _%hd36333683%_ _%tl36343686%_ @@ -1959,7 +1959,7 @@ _%e36383699%_ _%hd36393703%_ _%tl36403706%_ - _%__splice1879718798%_ + _%__splice1889618897%_ _%target36413709%_ _%tl36433712%_) (letrec ((_%loop36443715%_ @@ -2017,7 +2017,7 @@ (reverse _%e36483722%_))) (if (gx#stx-pair/null? _%tl36403706%_) - (let ((_%__splice1879918800%_ + (let ((_%__splice1889818899%_ (gx#syntax-split-splice _%tl36403706%_ '0))) @@ -2025,13 +2025,13 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1879918800%_ + _%__splice1889818899%_ '1))) (_%target36523763%_ (let () (declare (not safe)) (##vector-ref - _%__splice1879918800%_ + _%__splice1889818899%_ '0)))) (if (gx#stx-null? _%tl36543766%_) @@ -2067,7 +2067,7 @@ _%g38243829%_)) '() _%L3796%_)) - (_%__kont1879518796%_ + (_%__kont1889418895%_ _%L3793%_ _%L3795%_ _%L3796%_ @@ -2082,7 +2082,7 @@ (declare (not safe)) (_%g36063672%_)))))))) (_%loop36443715%_ _%target36413709%_ '() '())))) - (_%__match1883318834%_ + (_%__match1893218933%_ (lambda (_%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2104,14 +2104,14 @@ (_%L3994%_ _%hd36173954%_) (_%L3995%_ _%hd36143944%_)) (if (_%let-head?3601%_ _%L3993%_) - (_%__kont1879318794%_ + (_%__kont1889218893%_ _%L3990%_ _%L3992%_ _%L3993%_ _%L3994%_ _%L3995%_) (if (gx#stx-pair/null? _%hd36203964%_) - (let ((_%__splice1879718798%_ + (let ((_%__splice1889618897%_ (gx#syntax-split-splice _%hd36203964%_ '0))) @@ -2119,16 +2119,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1879718798%_ + _%__splice1889618897%_ '1))) (_%target36413709%_ (let () (declare (not safe)) (##vector-ref - _%__splice1879718798%_ + _%__splice1889618897%_ '0)))) (if (gx#stx-null? _%tl36433712%_) - (_%__match1885918860%_ + (_%__match1895818959%_ _%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2138,7 +2138,7 @@ _%e36193960%_ _%hd36203964%_ _%tl36213967%_ - _%__splice1879718798%_ + _%__splice1889618897%_ _%target36413709%_ _%tl36433712%_) (let () @@ -2147,8 +2147,8 @@ (let () (declare (not safe)) (_%g36063672%_)))))))) - (if (gx#stx-pair? _%__stx1879018791%_) - (let ((_%e36133940%_ (gx#syntax-e _%__stx1879018791%_))) + (if (gx#stx-pair? _%__stx1888918890%_) + (let ((_%e36133940%_ (gx#syntax-e _%__stx1888918890%_))) (let ((_%tl36153947%_ (let () (declare (not safe)) @@ -2204,7 +2204,7 @@ (_%hd36263984%_ (let () (declare (not safe)) (##car _%e36253980%_)))) (if (gx#stx-null? _%tl36273987%_) - (_%__match1883318834%_ + (_%__match1893218933%_ _%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2221,18 +2221,18 @@ _%hd36263984%_ _%tl36273987%_) (if (gx#stx-pair/null? _%hd36203964%_) - (let ((_%__splice1879718798%_ + (let ((_%__splice1889618897%_ (gx#syntax-split-splice _%hd36203964%_ '0))) (let ((_%tl36433712%_ (let () (declare (not safe)) - (##vector-ref _%__splice1879718798%_ '1))) + (##vector-ref _%__splice1889618897%_ '1))) (_%target36413709%_ (let () (declare (not safe)) - (##vector-ref _%__splice1879718798%_ '0)))) + (##vector-ref _%__splice1889618897%_ '0)))) (if (gx#stx-null? _%tl36433712%_) - (_%__match1885918860%_ + (_%__match1895818959%_ _%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2242,7 +2242,7 @@ _%e36193960%_ _%hd36203964%_ _%tl36213967%_ - _%__splice1879718798%_ + _%__splice1889618897%_ _%target36413709%_ _%tl36433712%_) (let () @@ -2252,7 +2252,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%hd36203964%_) - (let ((_%__splice1879718798%_ + (let ((_%__splice1889618897%_ (gx#syntax-split-splice _%hd36203964%_ '0))) @@ -2260,13 +2260,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice1879718798%_ '1))) + (##vector-ref _%__splice1889618897%_ '1))) (_%target36413709%_ (let () (declare (not safe)) - (##vector-ref _%__splice1879718798%_ '0)))) + (##vector-ref _%__splice1889618897%_ '0)))) (if (gx#stx-null? _%tl36433712%_) - (_%__match1885918860%_ + (_%__match1895818959%_ _%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2276,7 +2276,7 @@ _%e36193960%_ _%hd36203964%_ _%tl36213967%_ - _%__splice1879718798%_ + _%__splice1889618897%_ _%target36413709%_ _%tl36433712%_) (let () (declare (not safe)) (_%g36063672%_))))) @@ -2284,7 +2284,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%hd36203964%_) - (let ((_%__splice1879718798%_ + (let ((_%__splice1889618897%_ (gx#syntax-split-splice _%hd36203964%_ '0))) @@ -2292,17 +2292,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1879718798%_ + _%__splice1889618897%_ '1))) (_%target36413709%_ (let () (declare (not safe)) (##vector-ref - _%__splice1879718798%_ + _%__splice1889618897%_ '0)))) (if (gx#stx-null? _%tl36433712%_) - (_%__match1885918860%_ + (_%__match1895818959%_ _%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2312,7 +2312,7 @@ _%e36193960%_ _%hd36203964%_ _%tl36213967%_ - _%__splice1879718798%_ + _%__splice1889618897%_ _%target36413709%_ _%tl36433712%_) (let () @@ -2328,29 +2328,29 @@ (let () (declare (not safe)) (_%g36063672%_))))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#and| (lambda (_%$stx4144%_) - (let* ((_%__stx1886218863%_ _%$stx4144%_) + (let* ((_%__stx1896118962%_ _%$stx4144%_) (_%g41504176%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1886218863%_)))) - (let ((_%__kont1886518866%_ (lambda () '#t)) - (_%__kont1886718868%_ (lambda (_%L4248%_) _%L4248%_)) - (_%__kont1886918870%_ + _%__stx1896118962%_)))) + (let ((_%__kont1896418965%_ (lambda () '#t)) + (_%__kont1896618967%_ (lambda (_%L4248%_) _%L4248%_)) + (_%__kont1896818969%_ (lambda (_%L4203%_ _%L4205%_ _%L4206%_) (cons (gx#datum->syntax '#f 'if) (cons _%L4205%_ (cons (cons _%L4206%_ _%L4203%_) (cons '#f '()))))))) - (if (gx#stx-pair? _%__stx1886218863%_) - (let ((_%e41524268%_ (gx#syntax-e _%__stx1886218863%_))) + (if (gx#stx-pair? _%__stx1896118962%_) + (let ((_%e41524268%_ (gx#syntax-e _%__stx1896118962%_))) (let ((_%tl41544275%_ (let () (declare (not safe)) (##cdr _%e41524268%_))) (_%hd41534272%_ (let () (declare (not safe)) (##car _%e41524268%_)))) (if (gx#stx-null? _%tl41544275%_) - (_%__kont1886518866%_) + (_%__kont1896418965%_) (if (gx#stx-pair? _%tl41544275%_) (let ((_%e41594238%_ (gx#syntax-e _%tl41544275%_))) (let ((_%tl41614245%_ @@ -2362,8 +2362,8 @@ (declare (not safe)) (##car _%e41594238%_)))) (if (gx#stx-null? _%tl41614245%_) - (_%__kont1886718868%_ _%hd41604242%_) - (_%__kont1886918870%_ + (_%__kont1896618967%_ _%hd41604242%_) + (_%__kont1896818969%_ _%tl41614245%_ _%hd41604242%_ _%hd41534272%_)))) @@ -2371,16 +2371,16 @@ (let () (declare (not safe)) (_%g41504176%_))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#or| (lambda (_%$stx4286%_) - (let* ((_%__stx1890818909%_ _%$stx4286%_) + (let* ((_%__stx1900719008%_ _%$stx4286%_) (_%g42924318%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1890818909%_)))) - (let ((_%__kont1891118912%_ (lambda () '#f)) - (_%__kont1891318914%_ (lambda (_%L4390%_) _%L4390%_)) - (_%__kont1891518916%_ + _%__stx1900719008%_)))) + (let ((_%__kont1901019011%_ (lambda () '#f)) + (_%__kont1901219013%_ (lambda (_%L4390%_) _%L4390%_)) + (_%__kont1901419015%_ (lambda (_%L4345%_ _%L4347%_ _%L4348%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) @@ -2396,14 +2396,14 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (if (gx#stx-pair? _%__stx1890818909%_) - (let ((_%e42944410%_ (gx#syntax-e _%__stx1890818909%_))) + (if (gx#stx-pair? _%__stx1900719008%_) + (let ((_%e42944410%_ (gx#syntax-e _%__stx1900719008%_))) (let ((_%tl42964417%_ (let () (declare (not safe)) (##cdr _%e42944410%_))) (_%hd42954414%_ (let () (declare (not safe)) (##car _%e42944410%_)))) (if (gx#stx-null? _%tl42964417%_) - (_%__kont1891118912%_) + (_%__kont1901019011%_) (if (gx#stx-pair? _%tl42964417%_) (let ((_%e43014380%_ (gx#syntax-e _%tl42964417%_))) (let ((_%tl43034387%_ @@ -2415,8 +2415,8 @@ (declare (not safe)) (##car _%e43014380%_)))) (if (gx#stx-null? _%tl43034387%_) - (_%__kont1891318914%_ _%hd43024384%_) - (_%__kont1891518916%_ + (_%__kont1901219013%_ _%hd43024384%_) + (_%__kont1901419015%_ _%tl43034387%_ _%hd43024384%_ _%hd42954414%_)))) @@ -2424,15 +2424,15 @@ (let () (declare (not safe)) (_%g42924318%_))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#cond| (lambda (_%$stx4428%_) - (let* ((_%__stx1895418955%_ _%$stx4428%_) + (let* ((_%__stx1905319054%_ _%$stx4428%_) (_%g44374528%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1895418955%_)))) - (let ((_%__kont1895718958%_ (lambda () '#!void)) - (_%__kont1895918960%_ + _%__stx1905319054%_)))) + (let ((_%__kont1905619057%_ (lambda () '#!void)) + (_%__kont1905819059%_ (lambda (_%L4875%_) (cons (gx#datum->syntax '#f 'let) (cons '() @@ -2440,11 +2440,11 @@ (cons _%g48944897%_ _%g48954900%_)) '() _%L4875%_))))) - (_%__kont1896318964%_ + (_%__kont1906219063%_ (lambda () (cons (gx#datum->syntax '#f 'syntax-error) (cons '"bad syntax; misplaced else" '())))) - (_%__kont1896518966%_ + (_%__kont1906419065%_ (lambda (_%L4748%_ _%L4750%_ _%L4751%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) @@ -2460,7 +2460,7 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1896718968%_ + (_%__kont1906619067%_ (lambda (_%L4686%_ _%L4688%_ _%L4689%_ _%L4690%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) @@ -2476,7 +2476,7 @@ (cons (cons _%L4690%_ _%L4686%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1896918970%_ + (_%__kont1906819069%_ (lambda (_%L4595%_ _%L4597%_ _%L4598%_ _%L4599%_) (cons (gx#datum->syntax '#f 'if) (cons _%L4598%_ @@ -2491,7 +2491,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons _%L4599%_ _%L4595%_) '()))))))) - (let* ((_%__match1911519116%_ + (let* ((_%__match1921419215%_ (lambda (_%e45054535%_ _%hd45064539%_ _%tl45074542%_ @@ -2501,7 +2501,7 @@ _%e45114555%_ _%hd45124559%_ _%tl45134562%_ - _%__splice1897118972%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (letrec ((_%loop45174571%_ @@ -2523,13 +2523,13 @@ _%body45214578%_)))) (let ((_%body45224591%_ (reverse _%body45214578%_))) - (_%__kont1896918970%_ + (_%__kont1906819069%_ _%tl45104552%_ _%body45224591%_ _%hd45124559%_ _%hd45064539%_)))))) (_%loop45174571%_ _%target45144565%_ '())))) - (_%__match1901119012%_ + (_%__match1911019111%_ (lambda (_%e44434815%_ _%hd44444819%_ _%tl44454822%_ @@ -2539,7 +2539,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1896118962%_ + _%__splice1906019061%_ _%target44524845%_ _%tl44544848%_) (letrec ((_%loop44554851%_ @@ -2562,12 +2562,12 @@ (let ((_%body44604871%_ (reverse _%body44594858%_))) (if (gx#stx-null? _%tl44484832%_) - (_%__kont1895918960%_ + (_%__kont1905819059%_ _%body44604871%_) - (_%__kont1896318964%_))))))) + (_%__kont1906219063%_))))))) (_%loop44554851%_ _%target44524845%_ '()))))) - (if (gx#stx-pair? _%__stx1895418955%_) - (let ((_%e44394910%_ (gx#syntax-e _%__stx1895418955%_))) + (if (gx#stx-pair? _%__stx1905319054%_) + (let ((_%e44394910%_ (gx#syntax-e _%__stx1905319054%_))) (let ((_%tl44414917%_ (let () (declare (not safe)) (##cdr _%e44394910%_))) (_%hd44404914%_ @@ -2575,7 +2575,7 @@ (declare (not safe)) (##car _%e44394910%_)))) (if (gx#stx-null? _%tl44414917%_) - (_%__kont1895718958%_) + (_%__kont1905619057%_) (if (gx#stx-pair? _%tl44414917%_) (let ((_%e44464825%_ (gx#syntax-e _%tl44414917%_))) @@ -2600,11 +2600,11 @@ (##car _%e44494835%_)))) (if (gx#identifier? _%hd44504839%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-1[1]#_g20875_| + |gerbil/core/sugar~Sugar-1[1]#_g20974_| _%hd44504839%_) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1896118962%_ + (let ((_%__splice1906019061%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2612,13 +2612,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice1896118962%_ '1))) + (##vector-ref _%__splice1906019061%_ '1))) (_%target44524845%_ (let () (declare (not safe)) - (##vector-ref _%__splice1896118962%_ '0)))) + (##vector-ref _%__splice1906019061%_ '0)))) (if (gx#stx-null? _%tl44544848%_) - (_%__match1901119012%_ + (_%__match1911019111%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2628,15 +2628,15 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1896118962%_ + _%__splice1906019061%_ _%target44524845%_ _%tl44544848%_) - (_%__kont1896318964%_)))) - (_%__kont1896318964%_)) + (_%__kont1906219063%_)))) + (_%__kont1906219063%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _%tl44514842%_) - (_%__kont1896518966%_ + (_%__kont1906419065%_ _%tl44484832%_ _%hd44504839%_ _%hd44404914%_) @@ -2653,7 +2653,7 @@ (##car _%e44954666%_)))) (if (gx#identifier? _%hd44964670%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-1[1]#_g20876_| + |gerbil/core/sugar~Sugar-1[1]#_g20975_| _%hd44964670%_) (if (gx#stx-pair? _%tl44974673%_) (let ((_%e44984676%_ @@ -2667,14 +2667,14 @@ (declare (not safe)) (##car _%e44984676%_)))) (if (gx#stx-null? _%tl45004683%_) - (_%__kont1896718968%_ + (_%__kont1906619067%_ _%tl44484832%_ _%hd44994680%_ _%hd44504839%_ _%hd44404914%_) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2682,17 +2682,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2702,7 +2702,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2712,7 +2712,7 @@ (declare (not safe)) (_%g44374528%_)))))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2720,16 +2720,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2739,7 +2739,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2749,7 +2749,7 @@ (declare (not safe)) (_%g44374528%_)))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2757,16 +2757,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2776,7 +2776,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2786,7 +2786,7 @@ (declare (not safe)) (_%g44374528%_)))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2794,16 +2794,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2813,7 +2813,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2821,18 +2821,18 @@ (_%g44374528%_))))) (let () (declare (not safe)) (_%g44374528%_)))))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) (let ((_%tl45164568%_ (let () (declare (not safe)) - (##vector-ref _%__splice1897118972%_ '1))) + (##vector-ref _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) - (##vector-ref _%__splice1897118972%_ '0)))) + (##vector-ref _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2842,14 +2842,14 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () (declare (not safe)) (_%g44374528%_))))) (let () (declare (not safe)) (_%g44374528%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _%tl44514842%_) - (_%__kont1896518966%_ + (_%__kont1906419065%_ _%tl44484832%_ _%hd44504839%_ _%hd44404914%_) @@ -2867,7 +2867,7 @@ (let () (declare (not safe)) (##car _%e44954666%_)))) (if (gx#identifier? _%hd44964670%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-1[1]#_g20876_| + |gerbil/core/sugar~Sugar-1[1]#_g20975_| _%hd44964670%_) (if (gx#stx-pair? _%tl44974673%_) (let ((_%e44984676%_ @@ -2881,13 +2881,13 @@ (declare (not safe)) (##car _%e44984676%_)))) (if (gx#stx-null? _%tl45004683%_) - (_%__kont1896718968%_ + (_%__kont1906619067%_ _%tl44484832%_ _%hd44994680%_ _%hd44504839%_ _%hd44404914%_) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2895,16 +2895,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2914,7 +2914,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2924,7 +2924,7 @@ (declare (not safe)) (_%g44374528%_)))))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2932,16 +2932,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2951,7 +2951,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2961,7 +2961,7 @@ (declare (not safe)) (_%g44374528%_)))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2969,16 +2969,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2988,7 +2988,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2996,20 +2996,20 @@ (_%g44374528%_))))) (let () (declare (not safe)) (_%g44374528%_)))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) (let ((_%tl45164568%_ (let () (declare (not safe)) - (##vector-ref _%__splice1897118972%_ '1))) + (##vector-ref _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1897118972%_ + _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -3019,7 +3019,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () @@ -3027,18 +3027,18 @@ (_%g44374528%_))))) (let () (declare (not safe)) (_%g44374528%_)))))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1897118972%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) (let ((_%tl45164568%_ (let () (declare (not safe)) - (##vector-ref _%__splice1897118972%_ '1))) + (##vector-ref _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) - (##vector-ref _%__splice1897118972%_ '0)))) + (##vector-ref _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1911519116%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -3048,7 +3048,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1897118972%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () (declare (not safe)) (_%g44374528%_))))) @@ -3061,309 +3061,401 @@ (let () (declare (not safe)) (_%g44374528%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#when| (lambda (_%$stx4930%_) - (let* ((_%g49344958%_ - (lambda (_%g49354954%_) + (let* ((_%g49344962%_ + (lambda (_%g49354958%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g49354954%_))) - (_%g49335043%_ - (lambda (_%g49354962%_) - (if (gx#stx-pair? _%g49354962%_) - (let ((_%e49384965%_ (gx#syntax-e _%g49354962%_))) - (let ((_%hd49394969%_ + _%g49354958%_))) + (_%g49335061%_ + (lambda (_%g49354966%_) + (if (gx#stx-pair? _%g49354966%_) + (let ((_%e49394969%_ (gx#syntax-e _%g49354966%_))) + (let ((_%hd49404973%_ (let () (declare (not safe)) - (##car _%e49384965%_))) - (_%tl49404972%_ + (##car _%e49394969%_))) + (_%tl49414976%_ (let () (declare (not safe)) - (##cdr _%e49384965%_)))) - (if (gx#stx-pair? _%tl49404972%_) - (let ((_%e49414975%_ - (gx#syntax-e _%tl49404972%_))) - (let ((_%hd49424979%_ + (##cdr _%e49394969%_)))) + (if (gx#stx-pair? _%tl49414976%_) + (let ((_%e49424979%_ + (gx#syntax-e _%tl49414976%_))) + (let ((_%hd49434983%_ (let () (declare (not safe)) - (##car _%e49414975%_))) - (_%tl49434982%_ + (##car _%e49424979%_))) + (_%tl49444986%_ (let () (declare (not safe)) - (##cdr _%e49414975%_)))) - (if (gx#stx-pair/null? _%tl49434982%_) - (let ((_g20877_ - (gx#syntax-split-splice - _%tl49434982%_ - '0))) - (begin - (let ((_g20878_ - (let () - (declare (not safe)) - (if (##values? _g20877_) - (##vector-length - _g20877_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g20878_ 2))) - (error "Context expects 2 values" - _g20878_))) - (let ((_%target49444985%_ - (let () - (declare (not safe)) - (##vector-ref _g20877_ 0))) - (_%tl49464988%_ - (let () - (declare (not safe)) - (##vector-ref _g20877_ 1)))) - (if (gx#stx-null? _%tl49464988%_) - (letrec ((_%loop49474991%_ - (lambda (_%hd49454995%_ + (##cdr _%e49424979%_)))) + (if (gx#stx-pair? _%tl49444986%_) + (let ((_%e49454989%_ + (gx#syntax-e _%tl49444986%_))) + (let ((_%hd49464993%_ + (let () + (declare (not safe)) + (##car _%e49454989%_))) + (_%tl49474996%_ + (let () + (declare (not safe)) + (##cdr _%e49454989%_)))) + (if (gx#stx-pair/null? + _%tl49474996%_) + (let ((_g20976_ + (gx#syntax-split-splice + _%tl49474996%_ + '0))) + (begin + (let ((_g20977_ + (let () + (declare (not safe)) + (if (##values? + _g20976_) + (##values-length + _g20976_) + 1)))) + (if (not (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr49514998%_) - (if (gx#stx-pair? _%hd49454995%_) - (let ((_%e49485001%_ (gx#syntax-e _%hd49454995%_))) - (let ((_%lp-hd49495005%_ - (let () - (declare (not safe)) - (##car _%e49485001%_))) - (_%lp-tl49505008%_ - (let () - (declare (not safe)) - (##cdr _%e49485001%_)))) - (_%loop49474991%_ - _%lp-tl49505008%_ - (cons _%lp-hd49495005%_ _%expr49514998%_)))) - (let ((_%expr49525011%_ (reverse _%expr49514998%_))) - ((lambda (_%L5015%_ _%L5017%_) - (cons (gx#datum->syntax '#f 'if) - (cons _%L5017%_ - (cons (cons (gx#datum->syntax - '#f - 'begin) - (foldr (lambda (_%g50345037%_ + (not safe)) + (##fx= _g20977_ 2))) + (error "Context expects 2 values" _g20977_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%target49484999%_ + (let () + (declare (not safe)) + (##values-ref + _g20976_ + 0))) + (_%tl49505002%_ + (let () + (declare (not safe)) + (##values-ref + _g20976_ + 1)))) + (if (gx#stx-null? + _%tl49505002%_) + (letrec ((_%loop49515005%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g50355040%_) - (cons _%g50345037%_ _%g50355040%_)) - '() - _%L5015%_)) + (lambda (_%hd49495009%_ _%rest49555012%_) + (if (gx#stx-pair? _%hd49495009%_) + (let ((_%e49525015%_ + (gx#syntax-e _%hd49495009%_))) + (let ((_%lp-hd49535019%_ + (let () + (declare (not safe)) + (##car _%e49525015%_))) + (_%lp-tl49545022%_ + (let () + (declare (not safe)) + (##cdr _%e49525015%_)))) + (_%loop49515005%_ + _%lp-tl49545022%_ + (cons _%lp-hd49535019%_ + _%rest49555012%_)))) + (let ((_%rest49565025%_ + (reverse _%rest49555012%_))) + ((lambda (_%L5029%_ _%L5031%_ _%L5032%_) + (cons (gx#datum->syntax '#f 'if) + (cons _%L5032%_ + (cons (cons (gx#datum->syntax + '#f + 'begin) + (cons _%L5031%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (foldr (lambda (_%g50525055%_ _%g50535058%_) + (cons _%g50525055%_ _%g50535058%_)) + '() + _%L5029%_))) + (cons '#!void '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons '#!void '()))))) - _%expr49525011%_ - _%hd49424979%_)))))) + _%rest49565025%_ + _%hd49464993%_ + _%hd49434983%_)))))) + (_%loop49515005%_ _%target49484999%_ '())) + (_%g49344962%_ _%g49354966%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop49474991%_ - _%target49444985%_ - '())) - (_%g49344958%_ - _%g49354962%_))))) - (_%g49344958%_ _%g49354962%_)))) - (_%g49344958%_ _%g49354962%_)))) - (_%g49344958%_ _%g49354962%_))))) - (_%g49335043%_ _%$stx4930%_)))) + (_%g49344962%_ _%g49354966%_)))) + (_%g49344962%_ _%g49354966%_)))) + (_%g49344962%_ _%g49354966%_)))) + (_%g49344962%_ _%g49354966%_))))) + (_%g49335061%_ _%$stx4930%_)))) (define |gerbil/core/sugar~Sugar-1[:0:]#unless| - (lambda (_%$stx5048%_) - (let* ((_%g50525076%_ - (lambda (_%g50535072%_) + (lambda (_%$stx5066%_) + (let* ((_%g50705098%_ + (lambda (_%g50715094%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g50535072%_))) - (_%g50515161%_ - (lambda (_%g50535080%_) - (if (gx#stx-pair? _%g50535080%_) - (let ((_%e50565083%_ (gx#syntax-e _%g50535080%_))) - (let ((_%hd50575087%_ + _%g50715094%_))) + (_%g50695197%_ + (lambda (_%g50715102%_) + (if (gx#stx-pair? _%g50715102%_) + (let ((_%e50755105%_ (gx#syntax-e _%g50715102%_))) + (let ((_%hd50765109%_ (let () (declare (not safe)) - (##car _%e50565083%_))) - (_%tl50585090%_ + (##car _%e50755105%_))) + (_%tl50775112%_ (let () (declare (not safe)) - (##cdr _%e50565083%_)))) - (if (gx#stx-pair? _%tl50585090%_) - (let ((_%e50595093%_ - (gx#syntax-e _%tl50585090%_))) - (let ((_%hd50605097%_ + (##cdr _%e50755105%_)))) + (if (gx#stx-pair? _%tl50775112%_) + (let ((_%e50785115%_ + (gx#syntax-e _%tl50775112%_))) + (let ((_%hd50795119%_ (let () (declare (not safe)) - (##car _%e50595093%_))) - (_%tl50615100%_ + (##car _%e50785115%_))) + (_%tl50805122%_ (let () (declare (not safe)) - (##cdr _%e50595093%_)))) - (if (gx#stx-pair/null? _%tl50615100%_) - (let ((_g20879_ - (gx#syntax-split-splice - _%tl50615100%_ - '0))) - (begin - (let ((_g20880_ - (let () - (declare (not safe)) - (if (##values? _g20879_) - (##vector-length - _g20879_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g20880_ 2))) - (error "Context expects 2 values" - _g20880_))) - (let ((_%target50625103%_ - (let () - (declare (not safe)) - (##vector-ref _g20879_ 0))) - (_%tl50645106%_ - (let () - (declare (not safe)) - (##vector-ref _g20879_ 1)))) - (if (gx#stx-null? _%tl50645106%_) - (letrec ((_%loop50655109%_ - (lambda (_%hd50635113%_ + (##cdr _%e50785115%_)))) + (if (gx#stx-pair? _%tl50805122%_) + (let ((_%e50815125%_ + (gx#syntax-e _%tl50805122%_))) + (let ((_%hd50825129%_ + (let () + (declare (not safe)) + (##car _%e50815125%_))) + (_%tl50835132%_ + (let () + (declare (not safe)) + (##cdr _%e50815125%_)))) + (if (gx#stx-pair/null? + _%tl50835132%_) + (let ((_g20978_ + (gx#syntax-split-splice + _%tl50835132%_ + '0))) + (begin + (let ((_g20979_ + (let () + (declare (not safe)) + (if (##values? + _g20978_) + (##values-length + _g20978_) + 1)))) + (if (not (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr50695116%_) - (if (gx#stx-pair? _%hd50635113%_) - (let ((_%e50665119%_ (gx#syntax-e _%hd50635113%_))) - (let ((_%lp-hd50675123%_ - (let () - (declare (not safe)) - (##car _%e50665119%_))) - (_%lp-tl50685126%_ - (let () - (declare (not safe)) - (##cdr _%e50665119%_)))) - (_%loop50655109%_ - _%lp-tl50685126%_ - (cons _%lp-hd50675123%_ _%expr50695116%_)))) - (let ((_%expr50705129%_ (reverse _%expr50695116%_))) - ((lambda (_%L5133%_ _%L5135%_) - (cons (gx#datum->syntax '#f 'if) - (cons _%L5135%_ - (cons '#!void - (cons (cons (gx#datum->syntax - '#f - 'begin) - (foldr (lambda (_%g51525155%_ + (not safe)) + (##fx= _g20979_ 2))) + (error "Context expects 2 values" _g20979_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%target50845135%_ + (let () + (declare (not safe)) + (##values-ref + _g20978_ + 0))) + (_%tl50865138%_ + (let () + (declare (not safe)) + (##values-ref + _g20978_ + 1)))) + (if (gx#stx-null? + _%tl50865138%_) + (letrec ((_%loop50875141%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g51535158%_) - (cons _%g51525155%_ _%g51535158%_)) - '() - _%L5133%_)) + (lambda (_%hd50855145%_ _%rest50915148%_) + (if (gx#stx-pair? _%hd50855145%_) + (let ((_%e50885151%_ + (gx#syntax-e _%hd50855145%_))) + (let ((_%lp-hd50895155%_ + (let () + (declare (not safe)) + (##car _%e50885151%_))) + (_%lp-tl50905158%_ + (let () + (declare (not safe)) + (##cdr _%e50885151%_)))) + (_%loop50875141%_ + _%lp-tl50905158%_ + (cons _%lp-hd50895155%_ + _%rest50915148%_)))) + (let ((_%rest50925161%_ + (reverse _%rest50915148%_))) + ((lambda (_%L5165%_ _%L5167%_ _%L5168%_) + (cons (gx#datum->syntax '#f 'if) + (cons _%L5168%_ + (cons '#!void + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'begin) + (cons _%L5167%_ + (foldr (lambda (_%g51885191%_ _%g51895194%_) + (cons _%g51885191%_ _%g51895194%_)) + '() + _%L5165%_))) + '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))))) - _%expr50705129%_ - _%hd50605097%_)))))) + _%rest50925161%_ + _%hd50825129%_ + _%hd50795119%_)))))) + (_%loop50875141%_ _%target50845135%_ '())) + (_%g50705098%_ _%g50715102%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop50655109%_ - _%target50625103%_ - '())) - (_%g50525076%_ - _%g50535080%_))))) - (_%g50525076%_ _%g50535080%_)))) - (_%g50525076%_ _%g50535080%_)))) - (_%g50525076%_ _%g50535080%_))))) - (_%g50515161%_ _%$stx5048%_)))) + (_%g50705098%_ _%g50715102%_)))) + (_%g50705098%_ _%g50715102%_)))) + (_%g50705098%_ _%g50715102%_)))) + (_%g50705098%_ _%g50715102%_))))) + (_%g50695197%_ _%$stx5066%_)))) (define |gerbil/core/sugar~Sugar-1[:0:]#syntax-error| - (lambda (_%stx5166%_) - (let* ((_%g51695193%_ - (lambda (_%g51705189%_) + (lambda (_%stx5202%_) + (let* ((_%g52055229%_ + (lambda (_%g52065225%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g51705189%_))) - (_%g51685278%_ - (lambda (_%g51705197%_) - (if (gx#stx-pair? _%g51705197%_) - (let ((_%e51735200%_ (gx#syntax-e _%g51705197%_))) - (let ((_%hd51745204%_ + _%g52065225%_))) + (_%g52045314%_ + (lambda (_%g52065233%_) + (if (gx#stx-pair? _%g52065233%_) + (let ((_%e52095236%_ (gx#syntax-e _%g52065233%_))) + (let ((_%hd52105240%_ (let () (declare (not safe)) - (##car _%e51735200%_))) - (_%tl51755207%_ + (##car _%e52095236%_))) + (_%tl52115243%_ (let () (declare (not safe)) - (##cdr _%e51735200%_)))) - (if (gx#stx-pair? _%tl51755207%_) - (let ((_%e51765210%_ - (gx#syntax-e _%tl51755207%_))) - (let ((_%hd51775214%_ + (##cdr _%e52095236%_)))) + (if (gx#stx-pair? _%tl52115243%_) + (let ((_%e52125246%_ + (gx#syntax-e _%tl52115243%_))) + (let ((_%hd52135250%_ (let () (declare (not safe)) - (##car _%e51765210%_))) - (_%tl51785217%_ + (##car _%e52125246%_))) + (_%tl52145253%_ (let () (declare (not safe)) - (##cdr _%e51765210%_)))) - (if (gx#stx-pair/null? _%tl51785217%_) - (let ((_g20881_ + (##cdr _%e52125246%_)))) + (if (gx#stx-pair/null? _%tl52145253%_) + (let ((_g20980_ (gx#syntax-split-splice - _%tl51785217%_ + _%tl52145253%_ '0))) (begin - (let ((_g20882_ + (let ((_g20981_ (let () (declare (not safe)) - (if (##values? _g20881_) - (##vector-length - _g20881_) + (if (##values? _g20980_) + (##values-length + _g20980_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20882_ 2))) + (##fx= _g20981_ 2))) (error "Context expects 2 values" - _g20882_))) - (let ((_%target51795220%_ + _g20981_))) + (let ((_%target52155256%_ (let () (declare (not safe)) - (##vector-ref _g20881_ 0))) - (_%tl51815223%_ + (##values-ref _g20980_ 0))) + (_%tl52175259%_ (let () (declare (not safe)) - (##vector-ref _g20881_ 1)))) - (if (gx#stx-null? _%tl51815223%_) - (letrec ((_%loop51825226%_ - (lambda (_%hd51805230%_ + (##values-ref _g20980_ 1)))) + (if (gx#stx-null? _%tl52175259%_) + (letrec ((_%loop52185262%_ + (lambda (_%hd52165266%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%detail51865233%_) - (if (gx#stx-pair? _%hd51805230%_) - (let ((_%e51835236%_ (gx#syntax-e _%hd51805230%_))) - (let ((_%lp-hd51845240%_ + _%detail52225269%_) + (if (gx#stx-pair? _%hd52165266%_) + (let ((_%e52195272%_ (gx#syntax-e _%hd52165266%_))) + (let ((_%lp-hd52205276%_ (let () (declare (not safe)) - (##car _%e51835236%_))) - (_%lp-tl51855243%_ + (##car _%e52195272%_))) + (_%lp-tl52215279%_ (let () (declare (not safe)) - (##cdr _%e51835236%_)))) - (_%loop51825226%_ - _%lp-tl51855243%_ - (cons _%lp-hd51845240%_ _%detail51865233%_)))) - (let ((_%detail51875246%_ - (reverse _%detail51865233%_))) - ((lambda (_%L5250%_ _%L5252%_) - (if (gx#stx-string? _%L5252%_) + (##cdr _%e52195272%_)))) + (_%loop52185262%_ + _%lp-tl52215279%_ + (cons _%lp-hd52205276%_ _%detail52225269%_)))) + (let ((_%detail52235282%_ + (reverse _%detail52225269%_))) + ((lambda (_%L5286%_ _%L5288%_) + (if (gx#stx-string? _%L5288%_) (apply gx#raise-syntax-error '#f - (gx#stx-e _%L5252%_) - _%stx5166%_ + (gx#stx-e _%L5288%_) + _%stx5202%_ (gx#syntax->list - (foldr (lambda (_%g52695272%_ - _%g52705275%_) - (cons _%g52695272%_ - _%g52705275%_)) + (foldr (lambda (_%g53055308%_ + _%g53065311%_) + (cons _%g53055308%_ + _%g53065311%_)) '() - _%L5250%_))) - (_%g51695193%_ _%g51705197%_))) - _%detail51875246%_ - _%hd51775214%_)))))) + _%L5286%_))) + (_%g52055229%_ _%g52065233%_))) + _%detail52235282%_ + _%hd52135250%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop51825226%_ - _%target51795220%_ + (_%loop52185262%_ + _%target52155256%_ '())) - (_%g51695193%_ - _%g51705197%_))))) - (_%g51695193%_ _%g51705197%_)))) - (_%g51695193%_ _%g51705197%_)))) - (_%g51695193%_ _%g51705197%_))))) - (_%g51685278%_ _%stx5166%_)))))) + (_%g52055229%_ + _%g52065233%_))))) + (_%g52055229%_ _%g52065233%_)))) + (_%g52055229%_ _%g52065233%_)))) + (_%g52055229%_ _%g52065233%_))))) + (_%g52045314%_ _%stx5202%_)))) + (define |gerbil/core/sugar~Sugar-1[:0:]#compilation-target?| + (lambda (_%$stx5319%_) + (let* ((_%g53235337%_ + (lambda (_%g53245333%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g53245333%_))) + (_%g53225378%_ + (lambda (_%g53245341%_) + (if (gx#stx-pair? _%g53245341%_) + (let ((_%e53265344%_ (gx#syntax-e _%g53245341%_))) + (let ((_%hd53275348%_ + (let () + (declare (not safe)) + (##car _%e53265344%_))) + (_%tl53285351%_ + (let () + (declare (not safe)) + (##cdr _%e53265344%_)))) + (if (gx#stx-pair? _%tl53285351%_) + (let ((_%e53295354%_ + (gx#syntax-e _%tl53285351%_))) + (let ((_%hd53305358%_ + (let () + (declare (not safe)) + (##car _%e53295354%_))) + (_%tl53315361%_ + (let () + (declare (not safe)) + (##cdr _%e53295354%_)))) + (if (gx#stx-null? _%tl53315361%_) + ((lambda (_%L5364%_) + (cons (gx#datum->syntax '#f 'eq?) + (cons (cons (gx#datum->syntax + '#f + 'current-compilation-target) + '()) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'quote) + (cons _%L5364%_ '())) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd53305358%_) + (_%g53235337%_ _%g53245341%_)))) + (_%g53235337%_ _%g53245341%_)))) + (_%g53235337%_ _%g53245341%_))))) + (_%g53225378%_ _%$stx5319%_)))))) diff --git a/src/bootstrap/gerbil/core/sugar~2.scm b/src/bootstrap/gerbil/core/sugar~2.scm index 3246afe2b..2d4f34eb5 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]#_g20918_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21017_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20919_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21018_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20920_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21019_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20956_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21055_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20957_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21056_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20958_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21057_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20965_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21064_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20966_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21065_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20967_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21066_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20968_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21067_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20969_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21068_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20970_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21069_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20971_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21070_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20972_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21071_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20973_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21072_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20974_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21073_| (##structure gx#syntax-quote::t '<...> @@ -99,2105 +99,2105 @@ '())) (begin (define |gerbil/core/sugar~Sugar-2[:0:]#lambda| - (lambda (_%stx5284%_) - (letrec ((_%simple-lambda?5287%_ - (lambda (_%hd8693%_) - (gx#stx-andmap gx#identifier? _%hd8693%_))) - (_%opt-lambda?5289%_ - (lambda (_%hd8545%_) - (let _%lp8548%_ ((_%rest8551%_ _%hd8545%_) - (_%opt?8553%_ '#f)) - (let* ((_%__stx1914219143%_ _%rest8551%_) - (_%g85568568%_ + (lambda (_%stx5383%_) + (letrec ((_%simple-lambda?5386%_ + (lambda (_%hd8792%_) + (gx#stx-andmap gx#identifier? _%hd8792%_))) + (_%opt-lambda?5388%_ + (lambda (_%hd8644%_) + (let _%lp8647%_ ((_%rest8650%_ _%hd8644%_) + (_%opt?8652%_ '#f)) + (let* ((_%__stx1924119242%_ _%rest8650%_) + (_%g86558667%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1914219143%_)))) - (let ((_%__kont1914519146%_ - (lambda (_%L8600%_ _%L8602%_) - (let* ((_%__stx1911819119%_ _%L8602%_) - (_%g86188632%_ + _%__stx1924119242%_)))) + (let ((_%__kont1924419245%_ + (lambda (_%L8699%_ _%L8701%_) + (let* ((_%__stx1921719218%_ _%L8701%_) + (_%g87178731%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1911819119%_)))) - (let ((_%__kont1912119122%_ - (lambda (_%L8670%_) - (_%lp8548%_ _%L8600%_ '#t))) - (_%__kont1912319124%_ + _%__stx1921719218%_)))) + (let ((_%__kont1922019221%_ + (lambda (_%L8769%_) + (_%lp8647%_ _%L8699%_ '#t))) + (_%__kont1922219223%_ (lambda () - (if (gx#identifier? _%L8602%_) - (if (not _%opt?8553%_) - (_%lp8548%_ _%L8600%_ '#f) + (if (gx#identifier? _%L8701%_) + (if (not _%opt?8652%_) + (_%lp8647%_ _%L8699%_ '#f) '#f) '#f)))) - (let ((_%__match1913919140%_ - (lambda (_%e86218650%_ - _%hd86228654%_ - _%tl86238657%_ - _%e86248660%_ - _%hd86258664%_ - _%tl86268667%_) - (let ((_%L8670%_ _%hd86228654%_)) - (if (gx#identifier? _%L8670%_) - (_%__kont1912119122%_ - _%L8670%_) - (_%__kont1912319124%_)))))) - (if (gx#stx-pair? _%__stx1911819119%_) - (let ((_%e86218650%_ + (let ((_%__match1923819239%_ + (lambda (_%e87208749%_ + _%hd87218753%_ + _%tl87228756%_ + _%e87238759%_ + _%hd87248763%_ + _%tl87258766%_) + (let ((_%L8769%_ _%hd87218753%_)) + (if (gx#identifier? _%L8769%_) + (_%__kont1922019221%_ + _%L8769%_) + (_%__kont1922219223%_)))))) + (if (gx#stx-pair? _%__stx1921719218%_) + (let ((_%e87208749%_ (gx#syntax-e - _%__stx1911819119%_))) - (let ((_%tl86238657%_ + _%__stx1921719218%_))) + (let ((_%tl87228756%_ (let () (declare (not safe)) - (##cdr _%e86218650%_))) - (_%hd86228654%_ + (##cdr _%e87208749%_))) + (_%hd87218753%_ (let () (declare (not safe)) - (##car _%e86218650%_)))) + (##car _%e87208749%_)))) (if (gx#stx-pair? - _%tl86238657%_) - (let ((_%e86248660%_ + _%tl87228756%_) + (let ((_%e87238759%_ (gx#syntax-e - _%tl86238657%_))) - (let ((_%tl86268667%_ + _%tl87228756%_))) + (let ((_%tl87258766%_ (let () (declare (not safe)) - (##cdr _%e86248660%_))) - (_%hd86258664%_ + (##cdr _%e87238759%_))) + (_%hd87248763%_ (let () (declare (not safe)) - (##car _%e86248660%_)))) + (##car _%e87238759%_)))) (if (gx#stx-null? - _%tl86268667%_) - (_%__match1913919140%_ - _%e86218650%_ - _%hd86228654%_ - _%tl86238657%_ - _%e86248660%_ - _%hd86258664%_ - _%tl86268667%_) - (_%__kont1912319124%_)))) - (_%__kont1912319124%_)))) - (_%__kont1912319124%_))))))) - (_%__kont1914719148%_ + _%tl87258766%_) + (_%__match1923819239%_ + _%e87208749%_ + _%hd87218753%_ + _%tl87228756%_ + _%e87238759%_ + _%hd87248763%_ + _%tl87258766%_) + (_%__kont1922219223%_)))) + (_%__kont1922219223%_)))) + (_%__kont1922219223%_))))))) + (_%__kont1924619247%_ (lambda () - (if _%opt?8553%_ - (let ((_%$e8579%_ - (gx#stx-null? _%rest8551%_))) - (if _%$e8579%_ - _%$e8579%_ - (gx#identifier? _%rest8551%_))) + (if _%opt?8652%_ + (let ((_%$e8678%_ + (gx#stx-null? _%rest8650%_))) + (if _%$e8678%_ + _%$e8678%_ + (gx#identifier? _%rest8650%_))) '#f)))) - (if (gx#stx-pair? _%__stx1914219143%_) - (let ((_%e85608590%_ - (gx#syntax-e _%__stx1914219143%_))) - (let ((_%tl85628597%_ + (if (gx#stx-pair? _%__stx1924119242%_) + (let ((_%e86598689%_ + (gx#syntax-e _%__stx1924119242%_))) + (let ((_%tl86618696%_ (let () (declare (not safe)) - (##cdr _%e85608590%_))) - (_%hd85618594%_ + (##cdr _%e86598689%_))) + (_%hd86608693%_ (let () (declare (not safe)) - (##car _%e85608590%_)))) - (_%__kont1914519146%_ - _%tl85628597%_ - _%hd85618594%_))) - (_%__kont1914719148%_))))))) - (_%opt-lambda-split5290%_ - (lambda (_%hd8397%_) - (let _%lp8400%_ ((_%rest8403%_ _%hd8397%_) - (_%pre8405%_ '()) - (_%opt8406%_ '())) - (let* ((_%__stx1918219183%_ _%rest8403%_) - (_%g84098421%_ + (##car _%e86598689%_)))) + (_%__kont1924419245%_ + _%tl86618696%_ + _%hd86608693%_))) + (_%__kont1924619247%_))))))) + (_%opt-lambda-split5389%_ + (lambda (_%hd8496%_) + (let _%lp8499%_ ((_%rest8502%_ _%hd8496%_) + (_%pre8504%_ '()) + (_%opt8505%_ '())) + (let* ((_%__stx1928119282%_ _%rest8502%_) + (_%g85088520%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1918219183%_)))) - (let ((_%__kont1918519186%_ - (lambda (_%L8449%_ _%L8451%_) - (let* ((_%__stx1915819159%_ _%L8451%_) - (_%g84678482%_ + _%__stx1928119282%_)))) + (let ((_%__kont1928419285%_ + (lambda (_%L8548%_ _%L8550%_) + (let* ((_%__stx1925719258%_ _%L8550%_) + (_%g85668581%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1915819159%_)))) - (let ((_%__kont1916119162%_ - (lambda (_%L8520%_ _%L8522%_) - (_%lp8400%_ - _%L8449%_ - _%pre8405%_ - (cons (cons _%L8522%_ _%L8520%_) - _%opt8406%_)))) - (_%__kont1916319164%_ + _%__stx1925719258%_)))) + (let ((_%__kont1926019261%_ + (lambda (_%L8619%_ _%L8621%_) + (_%lp8499%_ + _%L8548%_ + _%pre8504%_ + (cons (cons _%L8621%_ _%L8619%_) + _%opt8505%_)))) + (_%__kont1926219263%_ (lambda () - (_%lp8400%_ - _%L8449%_ - (cons _%L8451%_ _%pre8405%_) - _%opt8406%_)))) - (if (gx#stx-pair? _%__stx1915819159%_) - (let ((_%e84718500%_ + (_%lp8499%_ + _%L8548%_ + (cons _%L8550%_ _%pre8504%_) + _%opt8505%_)))) + (if (gx#stx-pair? _%__stx1925719258%_) + (let ((_%e85708599%_ (gx#syntax-e - _%__stx1915819159%_))) - (let ((_%tl84738507%_ + _%__stx1925719258%_))) + (let ((_%tl85728606%_ (let () (declare (not safe)) - (##cdr _%e84718500%_))) - (_%hd84728504%_ + (##cdr _%e85708599%_))) + (_%hd85718603%_ (let () (declare (not safe)) - (##car _%e84718500%_)))) - (if (gx#stx-pair? _%tl84738507%_) - (let ((_%e84748510%_ + (##car _%e85708599%_)))) + (if (gx#stx-pair? _%tl85728606%_) + (let ((_%e85738609%_ (gx#syntax-e - _%tl84738507%_))) - (let ((_%tl84768517%_ + _%tl85728606%_))) + (let ((_%tl85758616%_ (let () (declare (not safe)) - (##cdr _%e84748510%_))) - (_%hd84758514%_ + (##cdr _%e85738609%_))) + (_%hd85748613%_ (let () (declare (not safe)) - (##car _%e84748510%_)))) + (##car _%e85738609%_)))) (if (gx#stx-null? - _%tl84768517%_) - (_%__kont1916119162%_ - _%hd84758514%_ - _%hd84728504%_) - (_%__kont1916319164%_)))) - (_%__kont1916319164%_)))) - (_%__kont1916319164%_)))))) - (_%__kont1918719188%_ + _%tl85758616%_) + (_%__kont1926019261%_ + _%hd85748613%_ + _%hd85718603%_) + (_%__kont1926219263%_)))) + (_%__kont1926219263%_)))) + (_%__kont1926219263%_)))))) + (_%__kont1928619287%_ (lambda () - (values (reverse _%pre8405%_) - (reverse _%opt8406%_) - _%rest8403%_)))) - (if (gx#stx-pair? _%__stx1918219183%_) - (let ((_%e84138439%_ - (gx#syntax-e _%__stx1918219183%_))) - (let ((_%tl84158446%_ + (values (reverse _%pre8504%_) + (reverse _%opt8505%_) + _%rest8502%_)))) + (if (gx#stx-pair? _%__stx1928119282%_) + (let ((_%e85128538%_ + (gx#syntax-e _%__stx1928119282%_))) + (let ((_%tl85148545%_ (let () (declare (not safe)) - (##cdr _%e84138439%_))) - (_%hd84148443%_ + (##cdr _%e85128538%_))) + (_%hd85138542%_ (let () (declare (not safe)) - (##car _%e84138439%_)))) - (_%__kont1918519186%_ - _%tl84158446%_ - _%hd84148443%_))) - (_%__kont1918719188%_))))))) - (_%kw-lambda?5291%_ - (lambda (_%hd8065%_) - (let _%lp8068%_ ((_%rest8071%_ _%hd8065%_) - (_%opt?8073%_ '#f) - (_%key?8074%_ '#f)) - (let* ((_%__stx1924619247%_ _%rest8071%_) - (_%g80798109%_ + (##car _%e85128538%_)))) + (_%__kont1928419285%_ + _%tl85148545%_ + _%hd85138542%_))) + (_%__kont1928619287%_))))))) + (_%kw-lambda?5390%_ + (lambda (_%hd8164%_) + (let _%lp8167%_ ((_%rest8170%_ _%hd8164%_) + (_%opt?8172%_ '#f) + (_%key?8173%_ '#f)) + (let* ((_%__stx1934519346%_ _%rest8170%_) + (_%g81788208%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1924619247%_)))) - (let ((_%__kont1924919250%_ - (lambda (_%L8304%_ _%L8306%_ _%L8307%_) - (let* ((_%__stx1922219223%_ _%L8306%_) - (_%g83228336%_ + _%__stx1934519346%_)))) + (let ((_%__kont1934819349%_ + (lambda (_%L8403%_ _%L8405%_ _%L8406%_) + (let* ((_%__stx1932119322%_ _%L8405%_) + (_%g84218435%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1922219223%_)))) - (let ((_%__kont1922519226%_ - (lambda (_%L8374%_) - (if (gx#identifier? _%L8374%_) - (_%lp8068%_ - _%L8304%_ - _%opt?8073%_ + _%__stx1932119322%_)))) + (let ((_%__kont1932419325%_ + (lambda (_%L8473%_) + (if (gx#identifier? _%L8473%_) + (_%lp8167%_ + _%L8403%_ + _%opt?8172%_ '#t) '#f))) - (_%__kont1922719228%_ + (_%__kont1932619327%_ (lambda () - (if (gx#identifier? _%L8306%_) - (_%lp8068%_ - _%L8304%_ - _%opt?8073%_ + (if (gx#identifier? _%L8405%_) + (_%lp8167%_ + _%L8403%_ + _%opt?8172%_ '#t) '#f)))) - (if (gx#stx-pair? _%__stx1922219223%_) - (let ((_%e83258354%_ + (if (gx#stx-pair? _%__stx1932119322%_) + (let ((_%e84248453%_ (gx#syntax-e - _%__stx1922219223%_))) - (let ((_%tl83278361%_ + _%__stx1932119322%_))) + (let ((_%tl84268460%_ (let () (declare (not safe)) - (##cdr _%e83258354%_))) - (_%hd83268358%_ + (##cdr _%e84248453%_))) + (_%hd84258457%_ (let () (declare (not safe)) - (##car _%e83258354%_)))) - (if (gx#stx-pair? _%tl83278361%_) - (let ((_%e83288364%_ + (##car _%e84248453%_)))) + (if (gx#stx-pair? _%tl84268460%_) + (let ((_%e84278463%_ (gx#syntax-e - _%tl83278361%_))) - (let ((_%tl83308371%_ + _%tl84268460%_))) + (let ((_%tl84298470%_ (let () (declare (not safe)) - (##cdr _%e83288364%_))) - (_%hd83298368%_ + (##cdr _%e84278463%_))) + (_%hd84288467%_ (let () (declare (not safe)) - (##car _%e83288364%_)))) + (##car _%e84278463%_)))) (if (gx#stx-null? - _%tl83308371%_) - (_%__kont1922519226%_ - _%hd83268358%_) - (_%__kont1922719228%_)))) - (_%__kont1922719228%_)))) - (_%__kont1922719228%_)))))) - (_%__kont1925119252%_ - (lambda (_%L8261%_ _%L8263%_) - (if (gx#identifier? _%L8263%_) - (_%lp8068%_ _%L8261%_ _%opt?8073%_ '#t) + _%tl84298470%_) + (_%__kont1932419325%_ + _%hd84258457%_) + (_%__kont1932619327%_)))) + (_%__kont1932619327%_)))) + (_%__kont1932619327%_)))))) + (_%__kont1935019351%_ + (lambda (_%L8360%_ _%L8362%_) + (if (gx#identifier? _%L8362%_) + (_%lp8167%_ _%L8360%_ _%opt?8172%_ '#t) '#f))) - (_%__kont1925319254%_ - (lambda (_%L8141%_ _%L8143%_) - (let* ((_%__stx1919819199%_ _%L8143%_) - (_%g81598173%_ + (_%__kont1935219353%_ + (lambda (_%L8240%_ _%L8242%_) + (let* ((_%__stx1929719298%_ _%L8242%_) + (_%g82588272%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1919819199%_)))) - (let ((_%__kont1920119202%_ - (lambda (_%L8211%_) - (if (gx#identifier? _%L8211%_) - (_%lp8068%_ - _%L8141%_ + _%__stx1929719298%_)))) + (let ((_%__kont1930019301%_ + (lambda (_%L8310%_) + (if (gx#identifier? _%L8310%_) + (_%lp8167%_ + _%L8240%_ '#t - _%key?8074%_) + _%key?8173%_) '#f))) - (_%__kont1920319204%_ + (_%__kont1930219303%_ (lambda () - (if (gx#identifier? _%L8143%_) - (if (not _%opt?8073%_) - (_%lp8068%_ - _%L8141%_ + (if (gx#identifier? _%L8242%_) + (if (not _%opt?8172%_) + (_%lp8167%_ + _%L8240%_ '#f - _%key?8074%_) + _%key?8173%_) '#f) '#f)))) - (if (gx#stx-pair? _%__stx1919819199%_) - (let ((_%e81628191%_ + (if (gx#stx-pair? _%__stx1929719298%_) + (let ((_%e82618290%_ (gx#syntax-e - _%__stx1919819199%_))) - (let ((_%tl81648198%_ + _%__stx1929719298%_))) + (let ((_%tl82638297%_ (let () (declare (not safe)) - (##cdr _%e81628191%_))) - (_%hd81638195%_ + (##cdr _%e82618290%_))) + (_%hd82628294%_ (let () (declare (not safe)) - (##car _%e81628191%_)))) - (if (gx#stx-pair? _%tl81648198%_) - (let ((_%e81658201%_ + (##car _%e82618290%_)))) + (if (gx#stx-pair? _%tl82638297%_) + (let ((_%e82648300%_ (gx#syntax-e - _%tl81648198%_))) - (let ((_%tl81678208%_ + _%tl82638297%_))) + (let ((_%tl82668307%_ (let () (declare (not safe)) - (##cdr _%e81658201%_))) - (_%hd81668205%_ + (##cdr _%e82648300%_))) + (_%hd82658304%_ (let () (declare (not safe)) - (##car _%e81658201%_)))) + (##car _%e82648300%_)))) (if (gx#stx-null? - _%tl81678208%_) - (_%__kont1920119202%_ - _%hd81638195%_) - (_%__kont1920319204%_)))) - (_%__kont1920319204%_)))) - (_%__kont1920319204%_)))))) - (_%__kont1925519256%_ + _%tl82668307%_) + (_%__kont1930019301%_ + _%hd82628294%_) + (_%__kont1930219303%_)))) + (_%__kont1930219303%_)))) + (_%__kont1930219303%_)))))) + (_%__kont1935419355%_ (lambda () - (if _%key?8074%_ - (let ((_%$e8120%_ - (gx#stx-null? _%rest8071%_))) - (if _%$e8120%_ - _%$e8120%_ - (gx#identifier? _%rest8071%_))) + (if _%key?8173%_ + (let ((_%$e8219%_ + (gx#stx-null? _%rest8170%_))) + (if _%$e8219%_ + _%$e8219%_ + (gx#identifier? _%rest8170%_))) '#f)))) - (let ((_%__match1926919270%_ - (lambda (_%e80848284%_ - _%hd80858288%_ - _%tl80868291%_ - _%e80878294%_ - _%hd80888298%_ - _%tl80898301%_) - (let ((_%L8304%_ _%tl80898301%_) - (_%L8306%_ _%hd80888298%_) - (_%L8307%_ _%hd80858288%_)) - (if (gx#stx-keyword? _%L8307%_) - (_%__kont1924919250%_ - _%L8304%_ - _%L8306%_ - _%L8307%_) - (if (gx#stx-datum? _%hd80858288%_) - (let ((_%e80958247%_ - (gx#stx-e _%hd80858288%_))) - (if (equal? _%e80958247%_ + (let ((_%__match1936819369%_ + (lambda (_%e81838383%_ + _%hd81848387%_ + _%tl81858390%_ + _%e81868393%_ + _%hd81878397%_ + _%tl81888400%_) + (let ((_%L8403%_ _%tl81888400%_) + (_%L8405%_ _%hd81878397%_) + (_%L8406%_ _%hd81848387%_)) + (if (gx#stx-keyword? _%L8406%_) + (_%__kont1934819349%_ + _%L8403%_ + _%L8405%_ + _%L8406%_) + (if (gx#stx-datum? _%hd81848387%_) + (let ((_%e81948346%_ + (gx#stx-e _%hd81848387%_))) + (if (equal? _%e81948346%_ '#!key) - (_%__kont1925119252%_ - _%tl80898301%_ - _%hd80888298%_) - (_%__kont1925319254%_ - _%tl80868291%_ - _%hd80858288%_))) - (_%__kont1925319254%_ - _%tl80868291%_ - _%hd80858288%_))))))) - (if (gx#stx-pair? _%__stx1924619247%_) - (let ((_%e80848284%_ - (gx#syntax-e _%__stx1924619247%_))) - (let ((_%tl80868291%_ + (_%__kont1935019351%_ + _%tl81888400%_ + _%hd81878397%_) + (_%__kont1935219353%_ + _%tl81858390%_ + _%hd81848387%_))) + (_%__kont1935219353%_ + _%tl81858390%_ + _%hd81848387%_))))))) + (if (gx#stx-pair? _%__stx1934519346%_) + (let ((_%e81838383%_ + (gx#syntax-e _%__stx1934519346%_))) + (let ((_%tl81858390%_ (let () (declare (not safe)) - (##cdr _%e80848284%_))) - (_%hd80858288%_ + (##cdr _%e81838383%_))) + (_%hd81848387%_ (let () (declare (not safe)) - (##car _%e80848284%_)))) - (if (gx#stx-pair? _%tl80868291%_) - (let ((_%e80878294%_ - (gx#syntax-e _%tl80868291%_))) - (let ((_%tl80898301%_ + (##car _%e81838383%_)))) + (if (gx#stx-pair? _%tl81858390%_) + (let ((_%e81868393%_ + (gx#syntax-e _%tl81858390%_))) + (let ((_%tl81888400%_ (let () (declare (not safe)) - (##cdr _%e80878294%_))) - (_%hd80888298%_ + (##cdr _%e81868393%_))) + (_%hd81878397%_ (let () (declare (not safe)) - (##car _%e80878294%_)))) - (_%__match1926919270%_ - _%e80848284%_ - _%hd80858288%_ - _%tl80868291%_ - _%e80878294%_ - _%hd80888298%_ - _%tl80898301%_))) - (if (gx#stx-datum? _%hd80858288%_) - (let ((_%e80958247%_ - (gx#stx-e _%hd80858288%_))) - (_%__kont1925319254%_ - _%tl80868291%_ - _%hd80858288%_)) - (_%__kont1925319254%_ - _%tl80868291%_ - _%hd80858288%_))))) - (_%__kont1925519256%_)))))))) - (_%kw-lambda-split5292%_ - (lambda (_%hd7798%_) - (let _%lp7801%_ ((_%rest7804%_ _%hd7798%_) - (_%kwvar7806%_ '#f) - (_%kwargs7807%_ '()) - (_%args7808%_ '())) - (let* ((_%__stx1932019321%_ _%rest7804%_) - (_%g78137843%_ + (##car _%e81868393%_)))) + (_%__match1936819369%_ + _%e81838383%_ + _%hd81848387%_ + _%tl81858390%_ + _%e81868393%_ + _%hd81878397%_ + _%tl81888400%_))) + (if (gx#stx-datum? _%hd81848387%_) + (let ((_%e81948346%_ + (gx#stx-e _%hd81848387%_))) + (_%__kont1935219353%_ + _%tl81858390%_ + _%hd81848387%_)) + (_%__kont1935219353%_ + _%tl81858390%_ + _%hd81848387%_))))) + (_%__kont1935419355%_)))))))) + (_%kw-lambda-split5391%_ + (lambda (_%hd7897%_) + (let _%lp7900%_ ((_%rest7903%_ _%hd7897%_) + (_%kwvar7905%_ '#f) + (_%kwargs7906%_ '()) + (_%args7907%_ '())) + (let* ((_%__stx1941919420%_ _%rest7903%_) + (_%g79127942%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1932019321%_)))) - (let ((_%__kont1932319324%_ - (lambda (_%L7962%_ _%L7964%_ _%L7965%_) - (let ((_%key7979%_ (gx#stx-e _%L7965%_))) - (if (find (lambda (_%kwarg7982%_) - (eq? _%key7979%_ - (car _%kwarg7982%_))) - _%kwargs7807%_) + _%__stx1941919420%_)))) + (let ((_%__kont1942219423%_ + (lambda (_%L8061%_ _%L8063%_ _%L8064%_) + (let ((_%key8078%_ (gx#stx-e _%L8064%_))) + (if (find (lambda (_%kwarg8081%_) + (eq? _%key8078%_ + (car _%kwarg8081%_))) + _%kwargs7906%_) (gx#raise-syntax-error '#f '"bad syntax; duplicate keyword argument" - _%stx5284%_ - _%hd7798%_ - _%key7979%_) - (let* ((_%__stx1929619297%_ _%L7964%_) - (_%g79868001%_ + _%stx5383%_ + _%hd7897%_ + _%key8078%_) + (let* ((_%__stx1939519396%_ _%L8063%_) + (_%g80858100%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1929619297%_)))) - (let ((_%__kont1929919300%_ - (lambda (_%L8039%_ _%L8041%_) - (_%lp7801%_ - _%L7962%_ - _%kwvar7806%_ - (cons (list _%key7979%_ - _%L8041%_ - _%L8039%_) - _%kwargs7807%_) - _%args7808%_))) - (_%__kont1930119302%_ + _%__stx1939519396%_)))) + (let ((_%__kont1939819399%_ + (lambda (_%L8138%_ _%L8140%_) + (_%lp7900%_ + _%L8061%_ + _%kwvar7905%_ + (cons (list _%key8078%_ + _%L8140%_ + _%L8138%_) + _%kwargs7906%_) + _%args7907%_))) + (_%__kont1940019401%_ (lambda () - (_%lp7801%_ - _%L7962%_ - _%kwvar7806%_ - (cons (list _%key7979%_ - _%L7964%_ + (_%lp7900%_ + _%L8061%_ + _%kwvar7905%_ + (cons (list _%key8078%_ + _%L8063%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'error) (cons '"Missing required keyword argument" - (cons _%L7965%_ '())))) - _%kwargs7807%_) + (cons _%L8064%_ '())))) + _%kwargs7906%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%args7808%_)))) + _%args7907%_)))) (if (gx#stx-pair? - _%__stx1929619297%_) - (let ((_%e79908019%_ + _%__stx1939519396%_) + (let ((_%e80898118%_ (gx#syntax-e - _%__stx1929619297%_))) - (let ((_%tl79928026%_ + _%__stx1939519396%_))) + (let ((_%tl80918125%_ (let () (declare (not safe)) - (##cdr _%e79908019%_))) - (_%hd79918023%_ + (##cdr _%e80898118%_))) + (_%hd80908122%_ (let () (declare (not safe)) - (##car _%e79908019%_)))) + (##car _%e80898118%_)))) (if (gx#stx-pair? - _%tl79928026%_) - (let ((_%e79938029%_ + _%tl80918125%_) + (let ((_%e80928128%_ (gx#syntax-e - _%tl79928026%_))) - (let ((_%tl79958036%_ + _%tl80918125%_))) + (let ((_%tl80948135%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e79938029%_))) - (_%hd79948033%_ - (let () (declare (not safe)) (##car _%e79938029%_)))) - (if (gx#stx-null? _%tl79958036%_) - (_%__kont1929919300%_ _%hd79948033%_ _%hd79918023%_) - (_%__kont1930119302%_)))) - (_%__kont1930119302%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont1930119302%_)))))))) - (_%__kont1932519326%_ - (lambda (_%L7919%_ _%L7921%_) - (if _%kwvar7806%_ + (##cdr _%e80928128%_))) + (_%hd80938132%_ + (let () (declare (not safe)) (##car _%e80928128%_)))) + (if (gx#stx-null? _%tl80948135%_) + (_%__kont1939819399%_ _%hd80938132%_ _%hd80908122%_) + (_%__kont1940019401%_)))) + (_%__kont1940019401%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont1940019401%_)))))))) + (_%__kont1942419425%_ + (lambda (_%L8018%_ _%L8020%_) + (if _%kwvar7905%_ (gx#raise-syntax-error '#f '"bad syntax; duplicate #!key argument" - _%stx5284%_ - _%hd7798%_ - _%L7921%_) - (_%lp7801%_ - _%L7919%_ - _%L7921%_ - _%kwargs7807%_ - _%args7808%_)))) - (_%__kont1932719328%_ - (lambda (_%L7871%_ _%L7873%_) - (_%lp7801%_ - _%L7871%_ - _%kwvar7806%_ - _%kwargs7807%_ - (cons _%L7873%_ _%args7808%_)))) - (_%__kont1932919330%_ + _%stx5383%_ + _%hd7897%_ + _%L8020%_) + (_%lp7900%_ + _%L8018%_ + _%L8020%_ + _%kwargs7906%_ + _%args7907%_)))) + (_%__kont1942619427%_ + (lambda (_%L7970%_ _%L7972%_) + (_%lp7900%_ + _%L7970%_ + _%kwvar7905%_ + _%kwargs7906%_ + (cons _%L7972%_ _%args7907%_)))) + (_%__kont1942819429%_ (lambda () - (values _%kwvar7806%_ - (reverse _%kwargs7807%_) + (values _%kwvar7905%_ + (reverse _%kwargs7906%_) (foldl cons - _%rest7804%_ - _%args7808%_))))) - (let ((_%__match1934319344%_ - (lambda (_%e78187942%_ - _%hd78197946%_ - _%tl78207949%_ - _%e78217952%_ - _%hd78227956%_ - _%tl78237959%_) - (let ((_%L7962%_ _%tl78237959%_) - (_%L7964%_ _%hd78227956%_) - (_%L7965%_ _%hd78197946%_)) - (if (gx#stx-keyword? _%L7965%_) - (_%__kont1932319324%_ - _%L7962%_ - _%L7964%_ - _%L7965%_) - (if (gx#stx-datum? _%hd78197946%_) - (let ((_%e78297905%_ - (gx#stx-e _%hd78197946%_))) - (if (equal? _%e78297905%_ + _%rest7903%_ + _%args7907%_))))) + (let ((_%__match1944219443%_ + (lambda (_%e79178041%_ + _%hd79188045%_ + _%tl79198048%_ + _%e79208051%_ + _%hd79218055%_ + _%tl79228058%_) + (let ((_%L8061%_ _%tl79228058%_) + (_%L8063%_ _%hd79218055%_) + (_%L8064%_ _%hd79188045%_)) + (if (gx#stx-keyword? _%L8064%_) + (_%__kont1942219423%_ + _%L8061%_ + _%L8063%_ + _%L8064%_) + (if (gx#stx-datum? _%hd79188045%_) + (let ((_%e79288004%_ + (gx#stx-e _%hd79188045%_))) + (if (equal? _%e79288004%_ '#!key) - (_%__kont1932519326%_ - _%tl78237959%_ - _%hd78227956%_) - (_%__kont1932719328%_ - _%tl78207949%_ - _%hd78197946%_))) - (_%__kont1932719328%_ - _%tl78207949%_ - _%hd78197946%_))))))) - (if (gx#stx-pair? _%__stx1932019321%_) - (let ((_%e78187942%_ - (gx#syntax-e _%__stx1932019321%_))) - (let ((_%tl78207949%_ + (_%__kont1942419425%_ + _%tl79228058%_ + _%hd79218055%_) + (_%__kont1942619427%_ + _%tl79198048%_ + _%hd79188045%_))) + (_%__kont1942619427%_ + _%tl79198048%_ + _%hd79188045%_))))))) + (if (gx#stx-pair? _%__stx1941919420%_) + (let ((_%e79178041%_ + (gx#syntax-e _%__stx1941919420%_))) + (let ((_%tl79198048%_ (let () (declare (not safe)) - (##cdr _%e78187942%_))) - (_%hd78197946%_ + (##cdr _%e79178041%_))) + (_%hd79188045%_ (let () (declare (not safe)) - (##car _%e78187942%_)))) - (if (gx#stx-pair? _%tl78207949%_) - (let ((_%e78217952%_ - (gx#syntax-e _%tl78207949%_))) - (let ((_%tl78237959%_ + (##car _%e79178041%_)))) + (if (gx#stx-pair? _%tl79198048%_) + (let ((_%e79208051%_ + (gx#syntax-e _%tl79198048%_))) + (let ((_%tl79228058%_ (let () (declare (not safe)) - (##cdr _%e78217952%_))) - (_%hd78227956%_ + (##cdr _%e79208051%_))) + (_%hd79218055%_ (let () (declare (not safe)) - (##car _%e78217952%_)))) - (_%__match1934319344%_ - _%e78187942%_ - _%hd78197946%_ - _%tl78207949%_ - _%e78217952%_ - _%hd78227956%_ - _%tl78237959%_))) - (if (gx#stx-datum? _%hd78197946%_) - (let ((_%e78297905%_ - (gx#stx-e _%hd78197946%_))) - (_%__kont1932719328%_ - _%tl78207949%_ - _%hd78197946%_)) - (_%__kont1932719328%_ - _%tl78207949%_ - _%hd78197946%_))))) - (_%__kont1932919330%_)))))))) - (_%check-duplicate-bindings5293%_ - (lambda (_%hd7490%_) - (let _%lp7493%_ ((_%rest7496%_ _%hd7490%_) - (_%ids7498%_ '())) - (let* ((_%__stx1939419395%_ _%rest7496%_) - (_%g75017513%_ + (##car _%e79208051%_)))) + (_%__match1944219443%_ + _%e79178041%_ + _%hd79188045%_ + _%tl79198048%_ + _%e79208051%_ + _%hd79218055%_ + _%tl79228058%_))) + (if (gx#stx-datum? _%hd79188045%_) + (let ((_%e79288004%_ + (gx#stx-e _%hd79188045%_))) + (_%__kont1942619427%_ + _%tl79198048%_ + _%hd79188045%_)) + (_%__kont1942619427%_ + _%tl79198048%_ + _%hd79188045%_))))) + (_%__kont1942819429%_)))))))) + (_%check-duplicate-bindings5392%_ + (lambda (_%hd7589%_) + (let _%lp7592%_ ((_%rest7595%_ _%hd7589%_) + (_%ids7597%_ '())) + (let* ((_%__stx1949319494%_ _%rest7595%_) + (_%g76007612%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1939419395%_)))) - (let ((_%__kont1939719398%_ - (lambda (_%L7541%_ _%L7543%_) - (if (gx#identifier? _%L7543%_) - (_%lp7493%_ - _%L7541%_ - (cons _%L7543%_ _%ids7498%_)) - (if (gx#stx-pair? _%L7543%_) - (let* ((_%g75627576%_ - (lambda (_%g75637572%_) + _%__stx1949319494%_)))) + (let ((_%__kont1949619497%_ + (lambda (_%L7640%_ _%L7642%_) + (if (gx#identifier? _%L7642%_) + (_%lp7592%_ + _%L7640%_ + (cons _%L7642%_ _%ids7597%_)) + (if (gx#stx-pair? _%L7642%_) + (let* ((_%g76617675%_ + (lambda (_%g76627671%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g75637572%_))) - (_%g75617618%_ - (lambda (_%g75637580%_) + _%g76627671%_))) + (_%g76607717%_ + (lambda (_%g76627679%_) (if (gx#stx-pair? - _%g75637580%_) - (let ((_%e75657583%_ + _%g76627679%_) + (let ((_%e76647682%_ (gx#syntax-e - _%g75637580%_))) - (let ((_%hd75667587%_ + _%g76627679%_))) + (let ((_%hd76657686%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e75657583%_))) - (_%tl75677590%_ - (let () (declare (not safe)) (##cdr _%e75657583%_)))) - (if (gx#stx-pair? _%tl75677590%_) - (let ((_%e75687593%_ (gx#syntax-e _%tl75677590%_))) - (let ((_%hd75697597%_ + (##car _%e76647682%_))) + (_%tl76667689%_ + (let () (declare (not safe)) (##cdr _%e76647682%_)))) + (if (gx#stx-pair? _%tl76667689%_) + (let ((_%e76677692%_ (gx#syntax-e _%tl76667689%_))) + (let ((_%hd76687696%_ (let () (declare (not safe)) - (##car _%e75687593%_))) - (_%tl75707600%_ + (##car _%e76677692%_))) + (_%tl76697699%_ (let () (declare (not safe)) - (##cdr _%e75687593%_)))) - (if (gx#stx-null? _%tl75707600%_) - ((lambda (_%L7603%_) - (_%lp7493%_ - _%L7541%_ - (cons _%L7603%_ _%ids7498%_))) - _%hd75667587%_) - (_%g75627576%_ _%g75637580%_)))) - (_%g75627576%_ _%g75637580%_)))) - (_%g75627576%_ _%g75637580%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g75617618%_ _%L7543%_)) - (if (gx#stx-keyword? _%L7543%_) - (let* ((_%g76247636%_ - (lambda (_%g76257632%_) + (##cdr _%e76677692%_)))) + (if (gx#stx-null? _%tl76697699%_) + ((lambda (_%L7702%_) + (_%lp7592%_ + _%L7640%_ + (cons _%L7702%_ _%ids7597%_))) + _%hd76657686%_) + (_%g76617675%_ _%g76627679%_)))) + (_%g76617675%_ _%g76627679%_)))) + (_%g76617675%_ _%g76627679%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g76607717%_ _%L7642%_)) + (if (gx#stx-keyword? _%L7642%_) + (let* ((_%g77237735%_ + (lambda (_%g77247731%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g76257632%_))) - (_%g76237739%_ - (lambda (_%g76257640%_) + _%g77247731%_))) + (_%g77227838%_ + (lambda (_%g77247739%_) (if (gx#stx-pair? - _%g76257640%_) - (let ((_%e76287643%_ + _%g77247739%_) + (let ((_%e77277742%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g76257640%_))) - (let ((_%hd76297647%_ + (gx#syntax-e _%g77247739%_))) + (let ((_%hd77287746%_ (let () (declare (not safe)) - (##car _%e76287643%_))) - (_%tl76307650%_ + (##car _%e77277742%_))) + (_%tl77297749%_ (let () (declare (not safe)) - (##cdr _%e76287643%_)))) - ((lambda (_%L7653%_ _%L7655%_) - (let* ((_%__stx1937019371%_ _%L7655%_) - (_%g76687682%_ + (##cdr _%e77277742%_)))) + ((lambda (_%L7752%_ _%L7754%_) + (let* ((_%__stx1946919470%_ _%L7754%_) + (_%g77677781%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1937019371%_)))) - (let ((_%__kont1937319374%_ - (lambda (_%L7720%_) - (_%lp7493%_ - _%L7653%_ - (cons _%L7720%_ _%ids7498%_)))) - (_%__kont1937519376%_ + _%__stx1946919470%_)))) + (let ((_%__kont1947219473%_ + (lambda (_%L7819%_) + (_%lp7592%_ + _%L7752%_ + (cons _%L7819%_ _%ids7597%_)))) + (_%__kont1947419475%_ (lambda () - (_%lp7493%_ - _%L7653%_ - (cons _%L7655%_ _%ids7498%_))))) - (if (gx#stx-pair? _%__stx1937019371%_) - (let ((_%e76717700%_ - (gx#syntax-e _%__stx1937019371%_))) - (let ((_%tl76737707%_ + (_%lp7592%_ + _%L7752%_ + (cons _%L7754%_ _%ids7597%_))))) + (if (gx#stx-pair? _%__stx1946919470%_) + (let ((_%e77707799%_ + (gx#syntax-e _%__stx1946919470%_))) + (let ((_%tl77727806%_ (let () (declare (not safe)) - (##cdr _%e76717700%_))) - (_%hd76727704%_ + (##cdr _%e77707799%_))) + (_%hd77717803%_ (let () (declare (not safe)) - (##car _%e76717700%_)))) - (if (gx#stx-pair? _%tl76737707%_) - (let ((_%e76747710%_ - (gx#syntax-e _%tl76737707%_))) - (let ((_%tl76767717%_ + (##car _%e77707799%_)))) + (if (gx#stx-pair? _%tl77727806%_) + (let ((_%e77737809%_ + (gx#syntax-e _%tl77727806%_))) + (let ((_%tl77757816%_ (let () (declare (not safe)) - (##cdr _%e76747710%_))) - (_%hd76757714%_ + (##cdr _%e77737809%_))) + (_%hd77747813%_ (let () (declare (not safe)) - (##car _%e76747710%_)))) - (if (gx#stx-null? _%tl76767717%_) - (_%__kont1937319374%_ - _%hd76727704%_) - (_%__kont1937519376%_)))) - (_%__kont1937519376%_)))) - (_%__kont1937519376%_))))) - _%tl76307650%_ - _%hd76297647%_))) - (_%g76247636%_ _%g76257640%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g76237739%_ _%L7541%_)) - (if (eq? (gx#stx-e _%L7543%_) + (##car _%e77737809%_)))) + (if (gx#stx-null? _%tl77757816%_) + (_%__kont1947219473%_ + _%hd77717803%_) + (_%__kont1947419475%_)))) + (_%__kont1947419475%_)))) + (_%__kont1947419475%_))))) + _%tl77297749%_ + _%hd77287746%_))) + (_%g77237735%_ _%g77247739%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g77227838%_ _%L7640%_)) + (if (eq? (gx#stx-e _%L7642%_) '#!key) - (let* ((_%g77457757%_ - (lambda (_%g77467753%_) + (let* ((_%g78447856%_ + (lambda (_%g78457852%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g77467753%_))) - (_%g77447788%_ - (lambda (_%g77467761%_) + _%g78457852%_))) + (_%g78437887%_ + (lambda (_%g78457860%_) (if (gx#stx-pair? - _%g77467761%_) - (let ((_%e77497764%_ + _%g78457860%_) + (let ((_%e78487863%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g77467761%_))) - (let ((_%hd77507768%_ + (gx#syntax-e _%g78457860%_))) + (let ((_%hd78497867%_ (let () (declare (not safe)) - (##car _%e77497764%_))) - (_%tl77517771%_ + (##car _%e78487863%_))) + (_%tl78507870%_ (let () (declare (not safe)) - (##cdr _%e77497764%_)))) - ((lambda (_%L7774%_ _%L7776%_) - (_%lp7493%_ - _%L7774%_ - (cons _%L7776%_ _%ids7498%_))) - _%tl77517771%_ - _%hd77507768%_))) - (_%g77457757%_ _%g77467761%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g77447788%_ _%L7541%_)) + (##cdr _%e78487863%_)))) + ((lambda (_%L7873%_ _%L7875%_) + (_%lp7592%_ + _%L7873%_ + (cons _%L7875%_ _%ids7597%_))) + _%tl78507870%_ + _%hd78497867%_))) + (_%g78447856%_ _%g78457860%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g78437887%_ _%L7640%_)) (error '"BUG: check-duplicate-bindings" - _%stx5284%_ - _%rest7496%_))))))) - (_%__kont1939919400%_ + _%stx5383%_ + _%rest7595%_))))))) + (_%__kont1949819499%_ (lambda () (gx#check-duplicate-identifiers - (if (gx#stx-null? _%rest7496%_) - _%ids7498%_ - (cons _%rest7496%_ _%ids7498%_)) - _%stx5284%_)))) - (if (gx#stx-pair? _%__stx1939419395%_) - (let ((_%e75057531%_ - (gx#syntax-e _%__stx1939419395%_))) - (let ((_%tl75077538%_ + (if (gx#stx-null? _%rest7595%_) + _%ids7597%_ + (cons _%rest7595%_ _%ids7597%_)) + _%stx5383%_)))) + (if (gx#stx-pair? _%__stx1949319494%_) + (let ((_%e76047630%_ + (gx#syntax-e _%__stx1949319494%_))) + (let ((_%tl76067637%_ (let () (declare (not safe)) - (##cdr _%e75057531%_))) - (_%hd75067535%_ + (##cdr _%e76047630%_))) + (_%hd76057634%_ (let () (declare (not safe)) - (##car _%e75057531%_)))) - (_%__kont1939719398%_ - _%tl75077538%_ - _%hd75067535%_))) - (_%__kont1939919400%_))))))) - (_%generate-opt-primary5294%_ - (lambda (_%pre7282%_ _%opt7284%_ _%tail7285%_ _%body7286%_) - (let* ((_%g72887329%_ - (lambda (_%g72897325%_) + (##car _%e76047630%_)))) + (_%__kont1949619497%_ + _%tl76067637%_ + _%hd76057634%_))) + (_%__kont1949819499%_))))))) + (_%generate-opt-primary5393%_ + (lambda (_%pre7381%_ _%opt7383%_ _%tail7384%_ _%body7385%_) + (let* ((_%g73877428%_ + (lambda (_%g73887424%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g72897325%_))) - (_%g72877486%_ - (lambda (_%g72897333%_) - (if (gx#stx-pair? _%g72897333%_) - (let ((_%e72947336%_ - (gx#syntax-e _%g72897333%_))) - (let ((_%hd72957340%_ + _%g73887424%_))) + (_%g73867585%_ + (lambda (_%g73887432%_) + (if (gx#stx-pair? _%g73887432%_) + (let ((_%e73937435%_ + (gx#syntax-e _%g73887432%_))) + (let ((_%hd73947439%_ (let () (declare (not safe)) - (##car _%e72947336%_))) - (_%tl72967343%_ + (##car _%e73937435%_))) + (_%tl73957442%_ (let () (declare (not safe)) - (##cdr _%e72947336%_)))) - (if (gx#stx-pair/null? _%hd72957340%_) - (let ((_g20883_ + (##cdr _%e73937435%_)))) + (if (gx#stx-pair/null? _%hd73947439%_) + (let ((_g20982_ (gx#syntax-split-splice - _%hd72957340%_ + _%hd73947439%_ '0))) (begin - (let ((_g20884_ + (let ((_g20983_ (let () (declare (not safe)) - (if (##values? _g20883_) - (##vector-length - _g20883_) + (if (##values? _g20982_) + (##values-length + _g20982_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20884_ 2))) + (##fx= _g20983_ 2))) (error "Context expects 2 values" - _g20884_))) - (let ((_%target72977346%_ + _g20983_))) + (let ((_%target73967445%_ (let () (declare (not safe)) - (##vector-ref - _g20883_ + (##values-ref + _g20982_ 0))) - (_%tl72997349%_ + (_%tl73987448%_ (let () (declare (not safe)) - (##vector-ref - _g20883_ + (##values-ref + _g20982_ 1)))) (if (gx#stx-null? - _%tl72997349%_) - (letrec ((_%loop73007352%_ - (lambda (_%hd72987356%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pre73047359%_) - (if (gx#stx-pair? _%hd72987356%_) - (let ((_%e73017362%_ (gx#syntax-e _%hd72987356%_))) - (let ((_%lp-hd73027366%_ + _%tl73987448%_) + (letrec ((_%loop73997451%_ + (lambda (_%hd73977455%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%pre74037458%_) + (if (gx#stx-pair? _%hd73977455%_) + (let ((_%e74007461%_ (gx#syntax-e _%hd73977455%_))) + (let ((_%lp-hd74017465%_ (let () (declare (not safe)) - (##car _%e73017362%_))) - (_%lp-tl73037369%_ + (##car _%e74007461%_))) + (_%lp-tl74027468%_ (let () (declare (not safe)) - (##cdr _%e73017362%_)))) - (_%loop73007352%_ - _%lp-tl73037369%_ - (cons _%lp-hd73027366%_ _%pre73047359%_)))) - (let ((_%pre73057372%_ (reverse _%pre73047359%_))) - (if (gx#stx-pair? _%tl72967343%_) - (let ((_%e73067376%_ - (gx#syntax-e _%tl72967343%_))) - (let ((_%hd73077380%_ + (##cdr _%e74007461%_)))) + (_%loop73997451%_ + _%lp-tl74027468%_ + (cons _%lp-hd74017465%_ _%pre74037458%_)))) + (let ((_%pre74047471%_ (reverse _%pre74037458%_))) + (if (gx#stx-pair? _%tl73957442%_) + (let ((_%e74057475%_ + (gx#syntax-e _%tl73957442%_))) + (let ((_%hd74067479%_ (let () (declare (not safe)) - (##car _%e73067376%_))) - (_%tl73087383%_ + (##car _%e74057475%_))) + (_%tl74077482%_ (let () (declare (not safe)) - (##cdr _%e73067376%_)))) - (if (gx#stx-pair/null? _%hd73077380%_) - (let ((_g20885_ + (##cdr _%e74057475%_)))) + (if (gx#stx-pair/null? _%hd74067479%_) + (let ((_g20984_ (gx#syntax-split-splice - _%hd73077380%_ + _%hd74067479%_ '0))) (begin - (let ((_g20886_ + (let ((_g20985_ (let () (declare (not safe)) - (if (##values? _g20885_) - (##vector-length - _g20885_) + (if (##values? _g20984_) + (##values-length + _g20984_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20886_ 2))) + (##fx= _g20985_ 2))) (error "Context expects 2 values" - _g20886_))) - (let ((_%target73097386%_ + _g20985_))) + (let ((_%target74087485%_ (let () (declare (not safe)) - (##vector-ref - _g20885_ + (##values-ref + _g20984_ 0))) - (_%tl73117389%_ + (_%tl74107488%_ (let () (declare (not safe)) - (##vector-ref - _g20885_ + (##values-ref + _g20984_ 1)))) (if (gx#stx-null? - _%tl73117389%_) - (letrec ((_%loop73127392%_ - (lambda (_%hd73107396%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%opt73167399%_) - (if (gx#stx-pair? _%hd73107396%_) - (let ((_%e73137402%_ (gx#syntax-e _%hd73107396%_))) - (let ((_%lp-hd73147406%_ + _%tl74107488%_) + (letrec ((_%loop74117491%_ + (lambda (_%hd74097495%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%opt74157498%_) + (if (gx#stx-pair? _%hd74097495%_) + (let ((_%e74127501%_ (gx#syntax-e _%hd74097495%_))) + (let ((_%lp-hd74137505%_ (let () (declare (not safe)) - (##car _%e73137402%_))) - (_%lp-tl73157409%_ + (##car _%e74127501%_))) + (_%lp-tl74147508%_ (let () (declare (not safe)) - (##cdr _%e73137402%_)))) - (_%loop73127392%_ - _%lp-tl73157409%_ - (cons _%lp-hd73147406%_ _%opt73167399%_)))) - (let ((_%opt73177412%_ (reverse _%opt73167399%_))) - (if (gx#stx-pair? _%tl73087383%_) - (let ((_%e73187416%_ - (gx#syntax-e _%tl73087383%_))) - (let ((_%hd73197420%_ + (##cdr _%e74127501%_)))) + (_%loop74117491%_ + _%lp-tl74147508%_ + (cons _%lp-hd74137505%_ _%opt74157498%_)))) + (let ((_%opt74167511%_ (reverse _%opt74157498%_))) + (if (gx#stx-pair? _%tl74077482%_) + (let ((_%e74177515%_ + (gx#syntax-e _%tl74077482%_))) + (let ((_%hd74187519%_ (let () (declare (not safe)) - (##car _%e73187416%_))) - (_%tl73207423%_ + (##car _%e74177515%_))) + (_%tl74197522%_ (let () (declare (not safe)) - (##cdr _%e73187416%_)))) - (if (gx#stx-pair? _%tl73207423%_) - (let ((_%e73217426%_ - (gx#syntax-e _%tl73207423%_))) - (let ((_%hd73227430%_ + (##cdr _%e74177515%_)))) + (if (gx#stx-pair? _%tl74197522%_) + (let ((_%e74207525%_ + (gx#syntax-e _%tl74197522%_))) + (let ((_%hd74217529%_ (let () (declare (not safe)) - (##car _%e73217426%_))) - (_%tl73237433%_ + (##car _%e74207525%_))) + (_%tl74227532%_ (let () (declare (not safe)) - (##cdr _%e73217426%_)))) - (if (gx#stx-null? _%tl73237433%_) - ((lambda (_%L7436%_ - _%L7438%_ - _%L7439%_ - _%L7440%_) + (##cdr _%e74207525%_)))) + (if (gx#stx-null? _%tl74227532%_) + ((lambda (_%L7535%_ + _%L7537%_ + _%L7538%_ + _%L7539%_) (cons (gx#datum->syntax '#f 'lambda%) - (cons (foldr (lambda (_%g74697474%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g74707477%_) - (cons _%g74697474%_ _%g74707477%_)) - (foldr (lambda (_%g74717480%_ _%g74727483%_) - (cons _%g74717480%_ _%g74727483%_)) - _%L7438%_ - _%L7439%_) - _%L7440%_) - _%L7436%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd73227430%_ - _%hd73197420%_ - _%opt73177412%_ - _%pre73057372%_) - (_%g72887329%_ - _%g72897333%_)))) - (_%g72887329%_ _%g72897333%_)))) - (_%g72887329%_ _%g72897333%_))))))) - (_%loop73127392%_ _%target73097386%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g72887329%_ - _%g72897333%_))))) - (_%g72887329%_ _%g72897333%_)))) - (_%g72887329%_ _%g72897333%_))))))) - (_%loop73007352%_ _%target72977346%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g72887329%_ - _%g72897333%_))))) - (_%g72887329%_ _%g72897333%_)))) - (_%g72887329%_ _%g72897333%_))))) - (_%g72877486%_ - (list _%pre7282%_ - (map car _%opt7284%_) - _%tail7285%_ - _%body7286%_))))) - (_%generate-opt-dispatch5295%_ - (lambda (_%primary7276%_ - _%pre7278%_ - _%opt7279%_ - _%tail7280%_) - (cons (list _%pre7278%_ - (_%generate-opt-clause5297%_ - _%primary7276%_ - _%pre7278%_ - _%opt7279%_)) - (_%generate-opt-dispatch*5296%_ - _%primary7276%_ - _%pre7278%_ - _%opt7279%_ - _%tail7280%_)))) - (_%generate-opt-dispatch*5296%_ - (lambda (_%primary6825%_ - _%pre6827%_ - _%opt6828%_ - _%tail6829%_) - (let _%recur6831%_ ((_%opt-rest6834%_ _%opt6828%_) - (_%right6836%_ '())) - (if (pair? _%opt-rest6834%_) - (let* ((_%hd6840%_ (caar _%opt-rest6834%_)) - (_%rest6843%_ + (cons (foldr (lambda (_%g75687573%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g75697576%_) + (cons _%g75687573%_ _%g75697576%_)) + (foldr (lambda (_%g75707579%_ _%g75717582%_) + (cons _%g75707579%_ _%g75717582%_)) + _%L7537%_ + _%L7538%_) + _%L7539%_) + _%L7535%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd74217529%_ + _%hd74187519%_ + _%opt74167511%_ + _%pre74047471%_) + (_%g73877428%_ + _%g73887432%_)))) + (_%g73877428%_ _%g73887432%_)))) + (_%g73877428%_ _%g73887432%_))))))) + (_%loop74117491%_ _%target74087485%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g73877428%_ + _%g73887432%_))))) + (_%g73877428%_ _%g73887432%_)))) + (_%g73877428%_ _%g73887432%_))))))) + (_%loop73997451%_ _%target73967445%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g73877428%_ + _%g73887432%_))))) + (_%g73877428%_ _%g73887432%_)))) + (_%g73877428%_ _%g73887432%_))))) + (_%g73867585%_ + (list _%pre7381%_ + (map car _%opt7383%_) + _%tail7384%_ + _%body7385%_))))) + (_%generate-opt-dispatch5394%_ + (lambda (_%primary7375%_ + _%pre7377%_ + _%opt7378%_ + _%tail7379%_) + (cons (list _%pre7377%_ + (_%generate-opt-clause5396%_ + _%primary7375%_ + _%pre7377%_ + _%opt7378%_)) + (_%generate-opt-dispatch*5395%_ + _%primary7375%_ + _%pre7377%_ + _%opt7378%_ + _%tail7379%_)))) + (_%generate-opt-dispatch*5395%_ + (lambda (_%primary6924%_ + _%pre6926%_ + _%opt6927%_ + _%tail6928%_) + (let _%recur6930%_ ((_%opt-rest6933%_ _%opt6927%_) + (_%right6935%_ '())) + (if (pair? _%opt-rest6933%_) + (let* ((_%hd6939%_ (caar _%opt-rest6933%_)) + (_%rest6942%_ (let () (declare (not safe)) - (##cdr _%opt-rest6834%_))) - (_%right*6846%_ - (cons _%hd6840%_ _%right6836%_)) - (_%g68496866%_ - (lambda (_%g68506862%_) + (##cdr _%opt-rest6933%_))) + (_%right*6945%_ + (cons _%hd6939%_ _%right6935%_)) + (_%g69486965%_ + (lambda (_%g69496961%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g68506862%_))) - (_%g68487050%_ - (lambda (_%g68506870%_) - (if (gx#stx-pair/null? _%g68506870%_) - (let ((_g20887_ + _%g69496961%_))) + (_%g69477149%_ + (lambda (_%g69496969%_) + (if (gx#stx-pair/null? _%g69496969%_) + (let ((_g20986_ (gx#syntax-split-splice - _%g68506870%_ + _%g69496969%_ '0))) (begin - (let ((_g20888_ + (let ((_g20987_ (let () (declare (not safe)) - (if (##values? _g20887_) - (##vector-length - _g20887_) + (if (##values? _g20986_) + (##values-length + _g20986_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20888_ 2))) + (##fx= _g20987_ 2))) (error "Context expects 2 values" - _g20888_))) - (let ((_%target68526873%_ + _g20987_))) + (let ((_%target69516972%_ (let () (declare (not safe)) - (##vector-ref - _g20887_ + (##values-ref + _g20986_ 0))) - (_%tl68546876%_ + (_%tl69536975%_ (let () (declare (not safe)) - (##vector-ref - _g20887_ + (##values-ref + _g20986_ 1)))) - (if (gx#stx-null? _%tl68546876%_) - (letrec ((_%loop68556879%_ - (lambda (_%hd68536883%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pre-bind68596886%_) - (if (gx#stx-pair? _%hd68536883%_) - (let ((_%e68566889%_ (gx#syntax-e _%hd68536883%_))) - (let ((_%lp-hd68576893%_ + (if (gx#stx-null? _%tl69536975%_) + (letrec ((_%loop69546978%_ + (lambda (_%hd69526982%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%pre-bind69586985%_) + (if (gx#stx-pair? _%hd69526982%_) + (let ((_%e69556988%_ (gx#syntax-e _%hd69526982%_))) + (let ((_%lp-hd69566992%_ (let () (declare (not safe)) - (##car _%e68566889%_))) - (_%lp-tl68586896%_ + (##car _%e69556988%_))) + (_%lp-tl69576995%_ (let () (declare (not safe)) - (##cdr _%e68566889%_)))) - (_%loop68556879%_ - _%lp-tl68586896%_ - (cons _%lp-hd68576893%_ _%pre-bind68596886%_)))) - (let ((_%pre-bind68606899%_ - (reverse _%pre-bind68596886%_))) - ((lambda (_%L6903%_) - (let* ((_%g69256942%_ - (lambda (_%g69266938%_) + (##cdr _%e69556988%_)))) + (_%loop69546978%_ + _%lp-tl69576995%_ + (cons _%lp-hd69566992%_ _%pre-bind69586985%_)))) + (let ((_%pre-bind69596998%_ + (reverse _%pre-bind69586985%_))) + ((lambda (_%L7002%_) + (let* ((_%g70247041%_ + (lambda (_%g70257037%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g69266938%_))) - (_%g69247046%_ - (lambda (_%g69266946%_) - (if (gx#stx-pair/null? _%g69266946%_) - (let ((_g20889_ + _%g70257037%_))) + (_%g70237145%_ + (lambda (_%g70257045%_) + (if (gx#stx-pair/null? _%g70257045%_) + (let ((_g20988_ (gx#syntax-split-splice - _%g69266946%_ + _%g70257045%_ '0))) (begin - (let ((_g20890_ + (let ((_g20989_ (let () (declare (not safe)) (if (##values? - _g20889_) - (##vector-length - _g20889_) + _g20988_) + (##values-length + _g20988_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20890_ + (##fx= _g20989_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g20890_))) + (error "Context expects 2 values" _g20989_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target69286949%_ + (let ((_%target70277048%_ (let () (declare (not safe)) - (##vector-ref - _g20889_ + (##values-ref + _g20988_ 0))) - (_%tl69306952%_ + (_%tl70297051%_ (let () (declare (not safe)) - (##vector-ref - _g20889_ + (##values-ref + _g20988_ 1)))) (if (gx#stx-null? - _%tl69306952%_) - (letrec ((_%loop69316955%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd69296959%_ _%opt-bind69356962%_) - (if (gx#stx-pair? _%hd69296959%_) - (let ((_%e69326965%_ - (gx#syntax-e _%hd69296959%_))) - (let ((_%lp-hd69336969%_ + _%tl70297051%_) + (letrec ((_%loop70307054%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd70287058%_ _%opt-bind70347061%_) + (if (gx#stx-pair? _%hd70287058%_) + (let ((_%e70317064%_ + (gx#syntax-e _%hd70287058%_))) + (let ((_%lp-hd70327068%_ (let () (declare (not safe)) - (##car _%e69326965%_))) - (_%lp-tl69346972%_ + (##car _%e70317064%_))) + (_%lp-tl70337071%_ (let () (declare (not safe)) - (##cdr _%e69326965%_)))) - (_%loop69316955%_ - _%lp-tl69346972%_ - (cons _%lp-hd69336969%_ - _%opt-bind69356962%_)))) - (let ((_%opt-bind69366975%_ - (reverse _%opt-bind69356962%_))) - ((lambda (_%L6979%_) - (let* ((_%g69967004%_ - (lambda (_%g69977000%_) + (##cdr _%e70317064%_)))) + (_%loop70307054%_ + _%lp-tl70337071%_ + (cons _%lp-hd70327068%_ + _%opt-bind70347061%_)))) + (let ((_%opt-bind70357074%_ + (reverse _%opt-bind70347061%_))) + ((lambda (_%L7078%_) + (let* ((_%g70957103%_ + (lambda (_%g70967099%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g69977000%_))) - (_%g69957042%_ - (lambda (_%g69977008%_) - ((lambda (_%L7011%_) - (cons (list (foldr (lambda (_%g70257030%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g70267033%_) - (cons _%g70257030%_ _%g70267033%_)) - (foldr (lambda (_%g70277036%_ _%g70287039%_) - (cons _%g70277036%_ _%g70287039%_)) - (cons _%L7011%_ '()) - _%L6979%_) - _%L6903%_) - (_%generate-opt-clause5297%_ - _%primary6825%_ - (foldr cons (reverse _%right*6846%_) _%pre6827%_) - _%rest6843%_)) - (_%recur6831%_ _%rest6843%_ _%right*6846%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g69977008%_)))) - (_%g69957042%_ _%hd6840%_))) - _%opt-bind69366975%_)))))) - (_%loop69316955%_ _%target69286949%_ '())) - (_%g69256942%_ _%g69266946%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g69256942%_ _%g69266946%_))))) - (_%g69247046%_ (reverse _%right6836%_)))) - _%pre-bind68606899%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop68556879%_ - _%target68526873%_ + _%g70967099%_))) + (_%g70947141%_ + (lambda (_%g70967107%_) + ((lambda (_%L7110%_) + (cons (list (foldr (lambda (_%g71247129%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g71257132%_) + (cons _%g71247129%_ _%g71257132%_)) + (foldr (lambda (_%g71267135%_ _%g71277138%_) + (cons _%g71267135%_ _%g71277138%_)) + (cons _%L7110%_ '()) + _%L7078%_) + _%L7002%_) + (_%generate-opt-clause5396%_ + _%primary6924%_ + (foldr cons (reverse _%right*6945%_) _%pre6926%_) + _%rest6942%_)) + (_%recur6930%_ _%rest6942%_ _%right*6945%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g70967107%_)))) + (_%g70947141%_ _%hd6939%_))) + _%opt-bind70357074%_)))))) + (_%loop70307054%_ _%target70277048%_ '())) + (_%g70247041%_ _%g70257045%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g70247041%_ _%g70257045%_))))) + (_%g70237145%_ (reverse _%right6935%_)))) + _%pre-bind69596998%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop69546978%_ + _%target69516972%_ '())) - (_%g68496866%_ - _%g68506870%_))))) - (_%g68496866%_ _%g68506870%_))))) - (_%g68487050%_ _%pre6827%_)) - (if (gx#stx-null? _%tail6829%_) + (_%g69486965%_ + _%g69496969%_))))) + (_%g69486965%_ _%g69496969%_))))) + (_%g69477149%_ _%pre6926%_)) + (if (gx#stx-null? _%tail6928%_) '() - (let* ((_%g70587099%_ - (lambda (_%g70597095%_) + (let* ((_%g71577198%_ + (lambda (_%g71587194%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g70597095%_))) - (_%g70577272%_ - (lambda (_%g70597103%_) - (if (gx#stx-pair? _%g70597103%_) - (let ((_%e70647106%_ + _%g71587194%_))) + (_%g71567371%_ + (lambda (_%g71587202%_) + (if (gx#stx-pair? _%g71587202%_) + (let ((_%e71637205%_ (gx#syntax-e - _%g70597103%_))) - (let ((_%hd70657110%_ + _%g71587202%_))) + (let ((_%hd71647209%_ (let () (declare (not safe)) - (##car _%e70647106%_))) - (_%tl70667113%_ + (##car _%e71637205%_))) + (_%tl71657212%_ (let () (declare (not safe)) - (##cdr _%e70647106%_)))) + (##cdr _%e71637205%_)))) (if (gx#stx-pair/null? - _%hd70657110%_) - (let ((_g20891_ + _%hd71647209%_) + (let ((_g20990_ (gx#syntax-split-splice - _%hd70657110%_ + _%hd71647209%_ '0))) (begin - (let ((_g20892_ + (let ((_g20991_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g20891_) - (##vector-length _g20891_) + (if (##values? _g20990_) + (##values-length _g20990_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20892_ 2))) - (error "Context expects 2 values" _g20892_))) - (let ((_%target70677116%_ - (let () (declare (not safe)) (##vector-ref _g20891_ 0))) - (_%tl70697119%_ + (if (not (let () (declare (not safe)) (##fx= _g20991_ 2))) + (error "Context expects 2 values" _g20991_))) + (let ((_%target71667215%_ + (let () (declare (not safe)) (##values-ref _g20990_ 0))) + (_%tl71687218%_ (let () (declare (not safe)) - (##vector-ref _g20891_ 1)))) - (if (gx#stx-null? _%tl70697119%_) - (letrec ((_%loop70707122%_ - (lambda (_%hd70687126%_ _%pre70747129%_) - (if (gx#stx-pair? _%hd70687126%_) - (let ((_%e70717132%_ - (gx#syntax-e _%hd70687126%_))) - (let ((_%lp-hd70727136%_ + (##values-ref _g20990_ 1)))) + (if (gx#stx-null? _%tl71687218%_) + (letrec ((_%loop71697221%_ + (lambda (_%hd71677225%_ _%pre71737228%_) + (if (gx#stx-pair? _%hd71677225%_) + (let ((_%e71707231%_ + (gx#syntax-e _%hd71677225%_))) + (let ((_%lp-hd71717235%_ (let () (declare (not safe)) - (##car _%e70717132%_))) - (_%lp-tl70737139%_ + (##car _%e71707231%_))) + (_%lp-tl71727238%_ (let () (declare (not safe)) - (##cdr _%e70717132%_)))) - (_%loop70707122%_ - _%lp-tl70737139%_ - (cons _%lp-hd70727136%_ - _%pre70747129%_)))) - (let ((_%pre70757142%_ - (reverse _%pre70747129%_))) - (if (gx#stx-pair? _%tl70667113%_) - (let ((_%e70767146%_ + (##cdr _%e71707231%_)))) + (_%loop71697221%_ + _%lp-tl71727238%_ + (cons _%lp-hd71717235%_ + _%pre71737228%_)))) + (let ((_%pre71747241%_ + (reverse _%pre71737228%_))) + (if (gx#stx-pair? _%tl71657212%_) + (let ((_%e71757245%_ (gx#syntax-e - _%tl70667113%_))) - (let ((_%hd70777150%_ + _%tl71657212%_))) + (let ((_%hd71767249%_ (let () (declare (not safe)) - (##car _%e70767146%_))) - (_%tl70787153%_ + (##car _%e71757245%_))) + (_%tl71777252%_ (let () (declare (not safe)) - (##cdr _%e70767146%_)))) + (##cdr _%e71757245%_)))) (if (gx#stx-pair/null? - _%hd70777150%_) - (let ((_g20893_ + _%hd71767249%_) + (let ((_g20992_ (gx#syntax-split-splice - _%hd70777150%_ + _%hd71767249%_ '0))) (begin - (let ((_g20894_ + (let ((_g20993_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g20893_) - (##vector-length _g20893_) + (if (##values? _g20992_) + (##values-length _g20992_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20894_ 2))) - (error "Context expects 2 values" _g20894_))) - (let ((_%target70797156%_ - (let () (declare (not safe)) (##vector-ref _g20893_ 0))) - (_%tl70817159%_ + (if (not (let () (declare (not safe)) (##fx= _g20993_ 2))) + (error "Context expects 2 values" _g20993_))) + (let ((_%target71787255%_ + (let () (declare (not safe)) (##values-ref _g20992_ 0))) + (_%tl71807258%_ (let () (declare (not safe)) - (##vector-ref _g20893_ 1)))) - (if (gx#stx-null? _%tl70817159%_) - (letrec ((_%loop70827162%_ - (lambda (_%hd70807166%_ _%opt70867169%_) - (if (gx#stx-pair? _%hd70807166%_) - (let ((_%e70837172%_ - (gx#syntax-e _%hd70807166%_))) - (let ((_%lp-hd70847176%_ + (##values-ref _g20992_ 1)))) + (if (gx#stx-null? _%tl71807258%_) + (letrec ((_%loop71817261%_ + (lambda (_%hd71797265%_ _%opt71857268%_) + (if (gx#stx-pair? _%hd71797265%_) + (let ((_%e71827271%_ + (gx#syntax-e _%hd71797265%_))) + (let ((_%lp-hd71837275%_ (let () (declare (not safe)) - (##car _%e70837172%_))) - (_%lp-tl70857179%_ + (##car _%e71827271%_))) + (_%lp-tl71847278%_ (let () (declare (not safe)) - (##cdr _%e70837172%_)))) - (_%loop70827162%_ - _%lp-tl70857179%_ - (cons _%lp-hd70847176%_ - _%opt70867169%_)))) - (let ((_%opt70877182%_ - (reverse _%opt70867169%_))) - (if (gx#stx-pair? _%tl70787153%_) - (let ((_%e70887186%_ + (##cdr _%e71827271%_)))) + (_%loop71817261%_ + _%lp-tl71847278%_ + (cons _%lp-hd71837275%_ + _%opt71857268%_)))) + (let ((_%opt71867281%_ + (reverse _%opt71857268%_))) + (if (gx#stx-pair? _%tl71777252%_) + (let ((_%e71877285%_ (gx#syntax-e - _%tl70787153%_))) - (let ((_%hd70897190%_ + _%tl71777252%_))) + (let ((_%hd71887289%_ (let () (declare (not safe)) - (##car _%e70887186%_))) - (_%tl70907193%_ + (##car _%e71877285%_))) + (_%tl71897292%_ (let () (declare (not safe)) - (##cdr _%e70887186%_)))) + (##cdr _%e71877285%_)))) (if (gx#stx-pair? - _%tl70907193%_) - (let ((_%e70917196%_ + _%tl71897292%_) + (let ((_%e71907295%_ (gx#syntax-e - _%tl70907193%_))) - (let ((_%hd70927200%_ + _%tl71897292%_))) + (let ((_%hd71917299%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e70917196%_))) - (_%tl70937203%_ - (let () (declare (not safe)) (##cdr _%e70917196%_)))) - (if (gx#stx-null? _%tl70937203%_) - ((lambda (_%L7206%_ _%L7208%_ _%L7209%_ _%L7210%_) - (list (list (foldr (lambda (_%g72397244%_ _%g72407247%_) - (cons _%g72397244%_ _%g72407247%_)) - (foldr (lambda (_%g72417250%_ - _%g72427253%_) - (cons _%g72417250%_ - _%g72427253%_)) - _%L7208%_ - _%L7209%_) - _%L7210%_) + (##car _%e71907295%_))) + (_%tl71927302%_ + (let () (declare (not safe)) (##cdr _%e71907295%_)))) + (if (gx#stx-null? _%tl71927302%_) + ((lambda (_%L7305%_ _%L7307%_ _%L7308%_ _%L7309%_) + (list (list (foldr (lambda (_%g73387343%_ _%g73397346%_) + (cons _%g73387343%_ _%g73397346%_)) + (foldr (lambda (_%g73407349%_ + _%g73417352%_) + (cons _%g73407349%_ + _%g73417352%_)) + _%L7307%_ + _%L7308%_) + _%L7309%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'apply) - (cons _%L7206%_ - (foldr (lambda (_%g72557260%_ - _%g72567263%_) - (cons _%g72557260%_ - _%g72567263%_)) - (foldr (lambda (_%g72577266%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g72587269%_) - (cons _%g72577266%_ _%g72587269%_)) - (cons _%L7208%_ '()) - _%L7209%_) - _%L7210%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx5284%_))))) - _%hd70927200%_ - _%hd70897190%_ - _%opt70877182%_ - _%pre70757142%_) - (_%g70587099%_ _%g70597103%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g70587099%_ - _%g70597103%_)))) - (_%g70587099%_ _%g70597103%_))))))) - (_%loop70827162%_ _%target70797156%_ '())) - (_%g70587099%_ _%g70597103%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g70587099%_ - _%g70597103%_)))) - (_%g70587099%_ _%g70597103%_))))))) - (_%loop70707122%_ _%target70677116%_ '())) - (_%g70587099%_ _%g70597103%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g70587099%_ - _%g70597103%_)))) - (_%g70587099%_ _%g70597103%_))))) - (_%g70577272%_ - (list _%pre6827%_ - (reverse _%right6836%_) - _%tail6829%_ - _%primary6825%_)))))))) - (_%generate-opt-clause5297%_ - (lambda (_%primary6523%_ _%pre6525%_ _%opt6526%_) - (let _%recur6528%_ ((_%opt-rest6531%_ _%opt6526%_) - (_%right6533%_ '())) - (if (pair? _%opt-rest6531%_) - (let* ((_%hd6535%_ + (cons _%L7305%_ + (foldr (lambda (_%g73547359%_ + _%g73557362%_) + (cons _%g73547359%_ + _%g73557362%_)) + (foldr (lambda (_%g73567365%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g73577368%_) + (cons _%g73567365%_ _%g73577368%_)) + (cons _%L7307%_ '()) + _%L7308%_) + _%L7309%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#stx-source _%stx5383%_))))) + _%hd71917299%_ + _%hd71887289%_ + _%opt71867281%_ + _%pre71747241%_) + (_%g71577198%_ _%g71587202%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g71577198%_ + _%g71587202%_)))) + (_%g71577198%_ _%g71587202%_))))))) + (_%loop71817261%_ _%target71787255%_ '())) + (_%g71577198%_ _%g71587202%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g71577198%_ + _%g71587202%_)))) + (_%g71577198%_ _%g71587202%_))))))) + (_%loop71697221%_ _%target71667215%_ '())) + (_%g71577198%_ _%g71587202%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g71577198%_ + _%g71587202%_)))) + (_%g71577198%_ _%g71587202%_))))) + (_%g71567371%_ + (list _%pre6926%_ + (reverse _%right6935%_) + _%tail6928%_ + _%primary6924%_)))))))) + (_%generate-opt-clause5396%_ + (lambda (_%primary6622%_ _%pre6624%_ _%opt6625%_) + (let _%recur6627%_ ((_%opt-rest6630%_ _%opt6625%_) + (_%right6632%_ '())) + (if (pair? _%opt-rest6630%_) + (let* ((_%hd6634%_ (let () (declare (not safe)) - (##car _%opt-rest6531%_))) - (_%rest6538%_ + (##car _%opt-rest6630%_))) + (_%rest6637%_ (let () (declare (not safe)) - (##cdr _%opt-rest6531%_))) - (_%g65416549%_ - (lambda (_%g65426545%_) + (##cdr _%opt-rest6630%_))) + (_%g66406648%_ + (lambda (_%g66416644%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g65426545%_))) - (_%g65406638%_ - (lambda (_%g65426553%_) - ((lambda (_%L6556%_) - (let* ((_%g65726580%_ - (lambda (_%g65736576%_) + _%g66416644%_))) + (_%g66396737%_ + (lambda (_%g66416652%_) + ((lambda (_%L6655%_) + (let* ((_%g66716679%_ + (lambda (_%g66726675%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g65736576%_))) - (_%g65716634%_ - (lambda (_%g65736584%_) - ((lambda (_%L6587%_) - (let* ((_%g66006608%_ - (lambda (_%g66016604%_) + _%g66726675%_))) + (_%g66706733%_ + (lambda (_%g66726683%_) + ((lambda (_%L6686%_) + (let* ((_%g66996707%_ + (lambda (_%g67006703%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g66016604%_))) - (_%g65996630%_ - (lambda (_%g66016612%_) - ((lambda (_%L6615%_) + _%g67006703%_))) + (_%g66986729%_ + (lambda (_%g67006711%_) + ((lambda (_%L6714%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L6556%_ '()) - (cons _%L6587%_ '())) + (cons (cons (cons (cons _%L6655%_ '()) + (cons _%L6686%_ '())) '()) - (cons _%L6615%_ '())))) - _%g66016612%_)))) - (_%g65996630%_ - (_%recur6528%_ _%rest6538%_ (cons _%L6556%_ _%right6533%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g65736584%_)))) - (_%g65716634%_ (cdr _%hd6535%_)))) - _%g65426553%_)))) - (_%g65406638%_ (car _%hd6535%_))) - (let* ((_%g66426679%_ - (lambda (_%g66436675%_) + (cons _%L6714%_ '())))) + _%g67006711%_)))) + (_%g66986729%_ + (_%recur6627%_ _%rest6637%_ (cons _%L6655%_ _%right6632%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g66726683%_)))) + (_%g66706733%_ (cdr _%hd6634%_)))) + _%g66416652%_)))) + (_%g66396737%_ (car _%hd6634%_))) + (let* ((_%g67416778%_ + (lambda (_%g67426774%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g66436675%_))) - (_%g66416821%_ - (lambda (_%g66436683%_) - (if (gx#stx-pair? _%g66436683%_) - (let ((_%e66476686%_ - (gx#syntax-e _%g66436683%_))) - (let ((_%hd66486690%_ + _%g67426774%_))) + (_%g67406920%_ + (lambda (_%g67426782%_) + (if (gx#stx-pair? _%g67426782%_) + (let ((_%e67466785%_ + (gx#syntax-e _%g67426782%_))) + (let ((_%hd67476789%_ (let () (declare (not safe)) - (##car _%e66476686%_))) - (_%tl66496693%_ + (##car _%e67466785%_))) + (_%tl67486792%_ (let () (declare (not safe)) - (##cdr _%e66476686%_)))) + (##cdr _%e67466785%_)))) (if (gx#stx-pair/null? - _%hd66486690%_) - (let ((_g20895_ + _%hd67476789%_) + (let ((_g20994_ (gx#syntax-split-splice - _%hd66486690%_ + _%hd67476789%_ '0))) (begin - (let ((_g20896_ + (let ((_g20995_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g20895_) - (##vector-length _g20895_) + _g20994_) + (##values-length _g20994_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20896_ 2))) - (error "Context expects 2 values" _g20896_))) + (if (not (let () (declare (not safe)) (##fx= _g20995_ 2))) + (error "Context expects 2 values" _g20995_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target66506696%_ + (let ((_%target67496795%_ (let () (declare (not safe)) - (##vector-ref - _g20895_ + (##values-ref + _g20994_ 0))) - (_%tl66526699%_ + (_%tl67516798%_ (let () (declare (not safe)) - (##vector-ref - _g20895_ + (##values-ref + _g20994_ 1)))) (if (gx#stx-null? - _%tl66526699%_) - (letrec ((_%loop66536702%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd66516706%_ _%pre66576709%_) - (if (gx#stx-pair? _%hd66516706%_) - (let ((_%e66546712%_ - (gx#syntax-e _%hd66516706%_))) - (let ((_%lp-hd66556716%_ + _%tl67516798%_) + (letrec ((_%loop67526801%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd67506805%_ _%pre67566808%_) + (if (gx#stx-pair? _%hd67506805%_) + (let ((_%e67536811%_ + (gx#syntax-e _%hd67506805%_))) + (let ((_%lp-hd67546815%_ (let () (declare (not safe)) - (##car _%e66546712%_))) - (_%lp-tl66566719%_ + (##car _%e67536811%_))) + (_%lp-tl67556818%_ (let () (declare (not safe)) - (##cdr _%e66546712%_)))) - (_%loop66536702%_ - _%lp-tl66566719%_ - (cons _%lp-hd66556716%_ - _%pre66576709%_)))) - (let ((_%pre66586722%_ - (reverse _%pre66576709%_))) - (if (gx#stx-pair? _%tl66496693%_) - (let ((_%e66596726%_ - (gx#syntax-e _%tl66496693%_))) - (let ((_%hd66606730%_ + (##cdr _%e67536811%_)))) + (_%loop67526801%_ + _%lp-tl67556818%_ + (cons _%lp-hd67546815%_ + _%pre67566808%_)))) + (let ((_%pre67576821%_ + (reverse _%pre67566808%_))) + (if (gx#stx-pair? _%tl67486792%_) + (let ((_%e67586825%_ + (gx#syntax-e _%tl67486792%_))) + (let ((_%hd67596829%_ (let () (declare (not safe)) - (##car _%e66596726%_))) - (_%tl66616733%_ + (##car _%e67586825%_))) + (_%tl67606832%_ (let () (declare (not safe)) - (##cdr _%e66596726%_)))) + (##cdr _%e67586825%_)))) (if (gx#stx-pair/null? - _%hd66606730%_) - (let ((_g20897_ + _%hd67596829%_) + (let ((_g20996_ (gx#syntax-split-splice - _%hd66606730%_ + _%hd67596829%_ '0))) (begin - (let ((_g20898_ + (let ((_g20997_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g20897_) - (##vector-length _g20897_) + _g20996_) + (##values-length _g20996_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20898_ 2))) - (error "Context expects 2 values" _g20898_))) + (if (not (let () (declare (not safe)) (##fx= _g20997_ 2))) + (error "Context expects 2 values" _g20997_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target66626736%_ + (let ((_%target67616835%_ (let () (declare (not safe)) - (##vector-ref - _g20897_ + (##values-ref + _g20996_ 0))) - (_%tl66646739%_ + (_%tl67636838%_ (let () (declare (not safe)) - (##vector-ref - _g20897_ + (##values-ref + _g20996_ 1)))) (if (gx#stx-null? - _%tl66646739%_) - (letrec ((_%loop66656742%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd66636746%_ _%opt66696749%_) - (if (gx#stx-pair? _%hd66636746%_) - (let ((_%e66666752%_ - (gx#syntax-e _%hd66636746%_))) - (let ((_%lp-hd66676756%_ + _%tl67636838%_) + (letrec ((_%loop67646841%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd67626845%_ _%opt67686848%_) + (if (gx#stx-pair? _%hd67626845%_) + (let ((_%e67656851%_ + (gx#syntax-e _%hd67626845%_))) + (let ((_%lp-hd67666855%_ (let () (declare (not safe)) - (##car _%e66666752%_))) - (_%lp-tl66686759%_ + (##car _%e67656851%_))) + (_%lp-tl67676858%_ (let () (declare (not safe)) - (##cdr _%e66666752%_)))) - (_%loop66656742%_ - _%lp-tl66686759%_ - (cons _%lp-hd66676756%_ - _%opt66696749%_)))) - (let ((_%opt66706762%_ - (reverse _%opt66696749%_))) - (if (gx#stx-pair? _%tl66616733%_) - (let ((_%e66716766%_ - (gx#syntax-e _%tl66616733%_))) - (let ((_%hd66726770%_ + (##cdr _%e67656851%_)))) + (_%loop67646841%_ + _%lp-tl67676858%_ + (cons _%lp-hd67666855%_ + _%opt67686848%_)))) + (let ((_%opt67696861%_ + (reverse _%opt67686848%_))) + (if (gx#stx-pair? _%tl67606832%_) + (let ((_%e67706865%_ + (gx#syntax-e _%tl67606832%_))) + (let ((_%hd67716869%_ (let () (declare (not safe)) - (##car _%e66716766%_))) - (_%tl66736773%_ + (##car _%e67706865%_))) + (_%tl67726872%_ (let () (declare (not safe)) - (##cdr _%e66716766%_)))) - (if (gx#stx-null? _%tl66736773%_) - ((lambda (_%L6776%_ - _%L6778%_ - _%L6779%_) + (##cdr _%e67706865%_)))) + (if (gx#stx-null? _%tl67726872%_) + ((lambda (_%L6875%_ + _%L6877%_ + _%L6878%_) (gx#stx-wrap-source - (cons _%L6776%_ - (foldr (lambda (_%g68046809%_ + (cons _%L6875%_ + (foldr (lambda (_%g69036908%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g68056812%_) - (cons _%g68046809%_ _%g68056812%_)) - (foldr (lambda (_%g68066815%_ _%g68076818%_) - (cons _%g68066815%_ _%g68076818%_)) + _%g69046911%_) + (cons _%g69036908%_ _%g69046911%_)) + (foldr (lambda (_%g69056914%_ _%g69066917%_) + (cons _%g69056914%_ _%g69066917%_)) '() - _%L6778%_) - _%L6779%_)) + _%L6877%_) + _%L6878%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx5284%_))) - _%hd66726770%_ - _%opt66706762%_ - _%pre66586722%_) - (_%g66426679%_ - _%g66436683%_)))) - (_%g66426679%_ _%g66436683%_))))))) - (_%loop66656742%_ _%target66626736%_ '())) - (_%g66426679%_ _%g66436683%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g66426679%_ - _%g66436683%_)))) - (_%g66426679%_ _%g66436683%_))))))) - (_%loop66536702%_ _%target66506696%_ '())) - (_%g66426679%_ _%g66436683%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g66426679%_ - _%g66436683%_)))) - (_%g66426679%_ _%g66436683%_))))) - (_%g66416821%_ - (list _%pre6525%_ - (reverse _%right6533%_) - _%primary6523%_))))))) - (_%generate-kw-primary5298%_ - (lambda (_%key5899%_ - _%kwargs5901%_ - _%args5902%_ - _%body5903%_) - (letrec ((_%make-body5905%_ - (lambda (_%kwargs6392%_ _%kwvals6394%_) - (if (pair? _%kwargs6392%_) - (let* ((_%kwarg6396%_ + _%stx5383%_))) + _%hd67716869%_ + _%opt67696861%_ + _%pre67576821%_) + (_%g67416778%_ + _%g67426782%_)))) + (_%g67416778%_ _%g67426782%_))))))) + (_%loop67646841%_ _%target67616835%_ '())) + (_%g67416778%_ _%g67426782%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g67416778%_ + _%g67426782%_)))) + (_%g67416778%_ _%g67426782%_))))))) + (_%loop67526801%_ _%target67496795%_ '())) + (_%g67416778%_ _%g67426782%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g67416778%_ + _%g67426782%_)))) + (_%g67416778%_ _%g67426782%_))))) + (_%g67406920%_ + (list _%pre6624%_ + (reverse _%right6632%_) + _%primary6622%_))))))) + (_%generate-kw-primary5397%_ + (lambda (_%key5998%_ + _%kwargs6000%_ + _%args6001%_ + _%body6002%_) + (letrec ((_%make-body6004%_ + (lambda (_%kwargs6491%_ _%kwvals6493%_) + (if (pair? _%kwargs6491%_) + (let* ((_%kwarg6495%_ (let () (declare (not safe)) - (##car _%kwargs6392%_))) - (_%var6399%_ (cadr _%kwarg6396%_)) - (_%default6402%_ - (caddr _%kwarg6396%_)) - (_%kwval6405%_ (car _%kwvals6394%_)) - (_%rest-kwargs6408%_ + (##car _%kwargs6491%_))) + (_%var6498%_ (cadr _%kwarg6495%_)) + (_%default6501%_ + (caddr _%kwarg6495%_)) + (_%kwval6504%_ (car _%kwvals6493%_)) + (_%rest-kwargs6507%_ (let () (declare (not safe)) - (##cdr _%kwargs6392%_))) - (_%rest-kwvals6411%_ - (cdr _%kwvals6394%_)) - (_%g64166439%_ - (lambda (_%g64176435%_) + (##cdr _%kwargs6491%_))) + (_%rest-kwvals6510%_ + (cdr _%kwvals6493%_)) + (_%g65156538%_ + (lambda (_%g65166534%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g64176435%_))) - (_%g64156519%_ - (lambda (_%g64176443%_) - (if (gx#stx-pair? _%g64176443%_) - (let ((_%e64226446%_ + _%g65166534%_))) + (_%g65146618%_ + (lambda (_%g65166542%_) + (if (gx#stx-pair? _%g65166542%_) + (let ((_%e65216545%_ (gx#syntax-e - _%g64176443%_))) - (let ((_%hd64236450%_ + _%g65166542%_))) + (let ((_%hd65226549%_ (let () (declare (not safe)) - (##car _%e64226446%_))) - (_%tl64246453%_ + (##car _%e65216545%_))) + (_%tl65236552%_ (let () (declare (not safe)) - (##cdr _%e64226446%_)))) + (##cdr _%e65216545%_)))) (if (gx#stx-pair? - _%tl64246453%_) - (let ((_%e64256456%_ + _%tl65236552%_) + (let ((_%e65246555%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl64246453%_))) - (let ((_%hd64266460%_ - (let () (declare (not safe)) (##car _%e64256456%_))) - (_%tl64276463%_ + (gx#syntax-e _%tl65236552%_))) + (let ((_%hd65256559%_ + (let () (declare (not safe)) (##car _%e65246555%_))) + (_%tl65266562%_ (let () (declare (not safe)) - (##cdr _%e64256456%_)))) - (if (gx#stx-pair? _%tl64276463%_) - (let ((_%e64286466%_ (gx#syntax-e _%tl64276463%_))) - (let ((_%hd64296470%_ + (##cdr _%e65246555%_)))) + (if (gx#stx-pair? _%tl65266562%_) + (let ((_%e65276565%_ (gx#syntax-e _%tl65266562%_))) + (let ((_%hd65286569%_ (let () (declare (not safe)) - (##car _%e64286466%_))) - (_%tl64306473%_ + (##car _%e65276565%_))) + (_%tl65296572%_ (let () (declare (not safe)) - (##cdr _%e64286466%_)))) - (if (gx#stx-pair? _%tl64306473%_) - (let ((_%e64316476%_ - (gx#syntax-e _%tl64306473%_))) - (let ((_%hd64326480%_ + (##cdr _%e65276565%_)))) + (if (gx#stx-pair? _%tl65296572%_) + (let ((_%e65306575%_ + (gx#syntax-e _%tl65296572%_))) + (let ((_%hd65316579%_ (let () (declare (not safe)) - (##car _%e64316476%_))) - (_%tl64336483%_ + (##car _%e65306575%_))) + (_%tl65326582%_ (let () (declare (not safe)) - (##cdr _%e64316476%_)))) - (if (gx#stx-null? _%tl64336483%_) - ((lambda (_%L6486%_ - _%L6488%_ - _%L6489%_ - _%L6490%_) + (##cdr _%e65306575%_)))) + (if (gx#stx-null? _%tl65326582%_) + ((lambda (_%L6585%_ + _%L6587%_ + _%L6588%_ + _%L6589%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L6490%_ + (cons (cons (cons (cons _%L6589%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'eq?) - (cons _%L6489%_ + (cons _%L6588%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'absent-value) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L6488%_ - (cons _%L6489%_ '())))) + (cons _%L6587%_ + (cons _%L6588%_ '())))) '())) '()) - (cons _%L6486%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd64326480%_ - _%hd64296470%_ - _%hd64266460%_ - _%hd64236450%_) - (_%g64166439%_ _%g64176443%_)))) - (_%g64166439%_ _%g64176443%_)))) - (_%g64166439%_ _%g64176443%_)))) - (_%g64166439%_ _%g64176443%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g64166439%_ - _%g64176443%_))))) - (_%g64156519%_ - (list _%var6399%_ - _%kwval6405%_ - _%default6402%_ - (_%make-body5905%_ - _%rest-kwargs6408%_ - _%rest-kwvals6411%_)))) - (cons 'begin _%body5903%_)))) - (_%make-main5907%_ + (cons _%L6585%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd65316579%_ + _%hd65286569%_ + _%hd65256559%_ + _%hd65226549%_) + (_%g65156538%_ _%g65166542%_)))) + (_%g65156538%_ _%g65166542%_)))) + (_%g65156538%_ _%g65166542%_)))) + (_%g65156538%_ _%g65166542%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g65156538%_ + _%g65166542%_))))) + (_%g65146618%_ + (list _%var6498%_ + _%kwval6504%_ + _%default6501%_ + (_%make-body6004%_ + _%rest-kwargs6507%_ + _%rest-kwvals6510%_)))) + (cons 'begin _%body6002%_)))) + (_%make-main6006%_ (lambda () - (let* ((_%g62006208%_ - (lambda (_%g62016204%_) + (let* ((_%g62996307%_ + (lambda (_%g63006303%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g62016204%_))) - (_%g61996384%_ - (lambda (_%g62016212%_) - ((lambda (_%L6215%_) - (let* ((_%g62276244%_ - (lambda (_%g62286240%_) + _%g63006303%_))) + (_%g62986483%_ + (lambda (_%g63006311%_) + ((lambda (_%L6314%_) + (let* ((_%g63266343%_ + (lambda (_%g63276339%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g62286240%_))) - (_%g62266380%_ - (lambda (_%g62286248%_) + _%g63276339%_))) + (_%g63256479%_ + (lambda (_%g63276347%_) (if (gx#stx-pair/null? - _%g62286248%_) - (let ((_g20899_ + _%g63276347%_) + (let ((_g20998_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g62286248%_ '0))) + (gx#syntax-split-splice _%g63276347%_ '0))) (begin - (let ((_g20900_ + (let ((_g20999_ (let () (declare (not safe)) - (if (##values? _g20899_) - (##vector-length _g20899_) + (if (##values? _g20998_) + (##values-length _g20998_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20900_ 2))) - (error "Context expects 2 values" _g20900_))) - (let ((_%target62306251%_ + (##fx= _g20999_ 2))) + (error "Context expects 2 values" _g20999_))) + (let ((_%target63296350%_ (let () (declare (not safe)) - (##vector-ref _g20899_ 0))) - (_%tl62326254%_ + (##values-ref _g20998_ 0))) + (_%tl63316353%_ (let () (declare (not safe)) - (##vector-ref _g20899_ 1)))) - (if (gx#stx-null? _%tl62326254%_) - (letrec ((_%loop62336257%_ - (lambda (_%hd62316261%_ - _%kwval62376264%_) - (if (gx#stx-pair? _%hd62316261%_) - (let ((_%e62346267%_ + (##values-ref _g20998_ 1)))) + (if (gx#stx-null? _%tl63316353%_) + (letrec ((_%loop63326356%_ + (lambda (_%hd63306360%_ + _%kwval63366363%_) + (if (gx#stx-pair? _%hd63306360%_) + (let ((_%e63336366%_ (gx#syntax-e - _%hd62316261%_))) - (let ((_%lp-hd62356271%_ + _%hd63306360%_))) + (let ((_%lp-hd63346370%_ (let () (declare (not safe)) - (##car _%e62346267%_))) - (_%lp-tl62366274%_ + (##car _%e63336366%_))) + (_%lp-tl63356373%_ (let () (declare (not safe)) - (##cdr _%e62346267%_)))) - (_%loop62336257%_ - _%lp-tl62366274%_ - (cons _%lp-hd62356271%_ - _%kwval62376264%_)))) - (let ((_%kwval62386277%_ - (reverse _%kwval62376264%_))) - ((lambda (_%L6281%_) - (let* ((_%g62986306%_ - (lambda (_%g62996302%_) + (##cdr _%e63336366%_)))) + (_%loop63326356%_ + _%lp-tl63356373%_ + (cons _%lp-hd63346370%_ + _%kwval63366363%_)))) + (let ((_%kwval63376376%_ + (reverse _%kwval63366363%_))) + ((lambda (_%L6380%_) + (let* ((_%g63976405%_ + (lambda (_%g63986401%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g62996302%_))) - (_%g62976376%_ - (lambda (_%g62996310%_) - ((lambda (_%L6313%_) - (let* ((_%g63266334%_ + _%g63986401%_))) + (_%g63966475%_ + (lambda (_%g63986409%_) + ((lambda (_%L6412%_) + (let* ((_%g64256433%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g63276330%_) + (lambda (_%g64266429%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g63276330%_))) - (_%g63256364%_ - (lambda (_%g63276338%_) - ((lambda (_%L6341%_) + _%g64266429%_))) + (_%g64246463%_ + (lambda (_%g64266437%_) + ((lambda (_%L6440%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L6215%_ - (foldr (lambda (_%g63556358%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g63566361%_) - (cons _%g63556358%_ _%g63566361%_)) - _%L6313%_ - _%L6281%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L6341%_ '()))) - (gx#stx-source _%stx5284%_))) - _%g63276338%_)))) - (_%g63256364%_ - (_%make-body5905%_ - _%kwargs5901%_ - (foldr (lambda (_%g63676370%_ _%g63686373%_) - (cons _%g63676370%_ _%g63686373%_)) + (cons (cons _%L6314%_ + (foldr (lambda (_%g64546457%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g64556460%_) + (cons _%g64546457%_ _%g64556460%_)) + _%L6412%_ + _%L6380%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%L6440%_ '()))) + (gx#stx-source _%stx5383%_))) + _%g64266437%_)))) + (_%g64246463%_ + (_%make-body6004%_ + _%kwargs6000%_ + (foldr (lambda (_%g64666469%_ _%g64676472%_) + (cons _%g64666469%_ _%g64676472%_)) '() - _%L6281%_))))) - _%g62996310%_)))) + _%L6380%_))))) + _%g63986409%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g62976376%_ - _%args5902%_))) - _%kwval62386277%_)))))) - (_%loop62336257%_ _%target62306251%_ '())) - (_%g62276244%_ _%g62286248%_))))) - (_%g62276244%_ _%g62286248%_))))) + (_%g63966475%_ + _%args6001%_))) + _%kwval63376376%_)))))) + (_%loop63326356%_ _%target63296350%_ '())) + (_%g63266343%_ _%g63276347%_))))) + (_%g63266343%_ _%g63276347%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g62266380%_ + (_%g63256479%_ (gx#gentemps - (map cadr _%kwargs5901%_))))) - _%g62016212%_)))) - (_%g61996384%_ - (let ((_%$e6388%_ _%key5899%_)) - (if _%$e6388%_ - _%$e6388%_ + (map cadr _%kwargs6000%_))))) + _%g63006311%_)))) + (_%g62986483%_ + (let ((_%$e6487%_ _%key5998%_)) + (if _%$e6487%_ + _%$e6487%_ (gx#syntax-local-introduce '@@keywords))))))) - (_%make-dispatch5908%_ - (lambda (_%main6008%_) - (let* ((_%g60116019%_ - (lambda (_%g60126015%_) + (_%make-dispatch6007%_ + (lambda (_%main6107%_) + (let* ((_%g61106118%_ + (lambda (_%g61116114%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g60126015%_))) - (_%g60106190%_ - (lambda (_%g60126023%_) - ((lambda (_%L6026%_) - (let* ((_%g60386055%_ - (lambda (_%g60396051%_) + _%g61116114%_))) + (_%g61096289%_ + (lambda (_%g61116122%_) + ((lambda (_%L6125%_) + (let* ((_%g61376154%_ + (lambda (_%g61386150%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g60396051%_))) - (_%g60376151%_ - (lambda (_%g60396059%_) + _%g61386150%_))) + (_%g61366250%_ + (lambda (_%g61386158%_) (if (gx#stx-pair/null? - _%g60396059%_) - (let ((_g20901_ + _%g61386158%_) + (let ((_g21000_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g60396059%_ '0))) + (gx#syntax-split-splice _%g61386158%_ '0))) (begin - (let ((_g20902_ + (let ((_g21001_ (let () (declare (not safe)) - (if (##values? _g20901_) - (##vector-length _g20901_) + (if (##values? _g21000_) + (##values-length _g21000_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20902_ 2))) - (error "Context expects 2 values" _g20902_))) - (let ((_%target60416062%_ + (##fx= _g21001_ 2))) + (error "Context expects 2 values" _g21001_))) + (let ((_%target61406161%_ (let () (declare (not safe)) - (##vector-ref _g20901_ 0))) - (_%tl60436065%_ + (##values-ref _g21000_ 0))) + (_%tl61426164%_ (let () (declare (not safe)) - (##vector-ref _g20901_ 1)))) - (if (gx#stx-null? _%tl60436065%_) - (letrec ((_%loop60446068%_ - (lambda (_%hd60426072%_ - _%get-kw60486075%_) - (if (gx#stx-pair? _%hd60426072%_) - (let ((_%e60456078%_ + (##values-ref _g21000_ 1)))) + (if (gx#stx-null? _%tl61426164%_) + (letrec ((_%loop61436167%_ + (lambda (_%hd61416171%_ + _%get-kw61476174%_) + (if (gx#stx-pair? _%hd61416171%_) + (let ((_%e61446177%_ (gx#syntax-e - _%hd60426072%_))) - (let ((_%lp-hd60466082%_ + _%hd61416171%_))) + (let ((_%lp-hd61456181%_ (let () (declare (not safe)) - (##car _%e60456078%_))) - (_%lp-tl60476085%_ + (##car _%e61446177%_))) + (_%lp-tl61466184%_ (let () (declare (not safe)) - (##cdr _%e60456078%_)))) - (_%loop60446068%_ - _%lp-tl60476085%_ - (cons _%lp-hd60466082%_ - _%get-kw60486075%_)))) - (let ((_%get-kw60496088%_ - (reverse _%get-kw60486075%_))) - ((lambda (_%L6092%_) - (let* ((_%g61096117%_ - (lambda (_%g61106113%_) + (##cdr _%e61446177%_)))) + (_%loop61436167%_ + _%lp-tl61466184%_ + (cons _%lp-hd61456181%_ + _%get-kw61476174%_)))) + (let ((_%get-kw61486187%_ + (reverse _%get-kw61476174%_))) + ((lambda (_%L6191%_) + (let* ((_%g62086216%_ + (lambda (_%g62096212%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g61106113%_))) - (_%g61086147%_ - (lambda (_%g61106121%_) - ((lambda (_%L6124%_) + _%g62096212%_))) + (_%g62076246%_ + (lambda (_%g62096220%_) + ((lambda (_%L6223%_) (gx#stx-wrap-source (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons (cons _%L6026%_ + (cons (cons _%L6125%_ (gx#datum->syntax '#f 'args)) (cons (cons (gx#datum->syntax '#f 'apply) - (cons _%L6124%_ - (cons _%L6026%_ - (foldr (lambda (_%g61386141%_ + (cons _%L6223%_ + (cons _%L6125%_ + (foldr (lambda (_%g62376240%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g61396144%_) - (cons _%g61386141%_ _%g61396144%_)) + _%g62386243%_) + (cons _%g62376240%_ _%g62386243%_)) (cons (gx#datum->syntax '#f 'args) '()) - _%L6092%_)))) + _%L6191%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx5284%_))) - _%g61106121%_)))) + (gx#stx-source _%stx5383%_))) + _%g62096220%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g61086147%_ - _%main6008%_))) - _%get-kw60496088%_)))))) - (_%loop60446068%_ _%target60416062%_ '())) - (_%g60386055%_ _%g60396059%_))))) - (_%g60386055%_ _%g60396059%_))))) + (_%g62076246%_ + _%main6107%_))) + _%get-kw61486187%_)))))) + (_%loop61436167%_ _%target61406161%_ '())) + (_%g61376154%_ _%g61386158%_))))) + (_%g61376154%_ _%g61386158%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g60376151%_ - (map (lambda (_%kwarg6155%_) - (let* ((_%g61586166%_ - (lambda (_%g61596162%_) + (_%g61366250%_ + (map (lambda (_%kwarg6254%_) + (let* ((_%g62576265%_ + (lambda (_%g62586261%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g61596162%_))) - (_%g61576186%_ - (lambda (_%g61596170%_) - ((lambda (_%L6173%_) + _%g62586261%_))) + (_%g62566285%_ + (lambda (_%g62586269%_) + ((lambda (_%L6272%_) (cons (gx#datum->syntax '#f 'symbolic-table-ref) - (cons _%L6026%_ + (cons _%L6125%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L6173%_ '())) + (cons _%L6272%_ '())) (cons (gx#datum->syntax '#f 'absent-value) '()))))) - _%g61596170%_)))) - (_%g61576186%_ (car _%kwarg6155%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%kwargs5901%_)))) - _%g60126023%_)))) - (_%g60106190%_ - (let ((_%$e6194%_ _%key5899%_)) - (if _%$e6194%_ - _%$e6194%_ + _%g62586269%_)))) + (_%g62566285%_ (car _%kwarg6254%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%kwargs6000%_)))) + _%g61116122%_)))) + (_%g61096289%_ + (let ((_%$e6293%_ _%key5998%_)) + (if _%$e6293%_ + _%$e6293%_ (gx#syntax-local-introduce '@@keywords)))))))) - (let* ((_%g59105918%_ - (lambda (_%g59115914%_) + (let* ((_%g60096017%_ + (lambda (_%g60106013%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g59115914%_))) - (_%g59096004%_ - (lambda (_%g59115922%_) - ((lambda (_%L5925%_) - (let* ((_%g59385946%_ - (lambda (_%g59395942%_) + _%g60106013%_))) + (_%g60086103%_ + (lambda (_%g60106021%_) + ((lambda (_%L6024%_) + (let* ((_%g60376045%_ + (lambda (_%g60386041%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g59395942%_))) - (_%g59376000%_ - (lambda (_%g59395950%_) - ((lambda (_%L5953%_) - (let* ((_%g59665974%_ - (lambda (_%g59675970%_) + _%g60386041%_))) + (_%g60366099%_ + (lambda (_%g60386049%_) + ((lambda (_%L6052%_) + (let* ((_%g60656073%_ + (lambda (_%g60666069%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g59675970%_))) - (_%g59655996%_ - (lambda (_%g59675978%_) - ((lambda (_%L5981%_) + _%g60666069%_))) + (_%g60646095%_ + (lambda (_%g60666077%_) + ((lambda (_%L6080%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let-values) - (cons (cons (cons (cons _%L5925%_ '()) - (cons _%L5981%_ '())) + (cons (cons (cons (cons _%L6024%_ '()) + (cons _%L6080%_ '())) '()) - (cons _%L5953%_ '())))) - _%g59675978%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g59655996%_ - (_%make-main5907%_)))) - _%g59395950%_)))) - (_%g59376000%_ - (_%make-dispatch5908%_ _%L5925%_)))) - _%g59115922%_)))) - (_%g59096004%_ (gx#genident 'kw-lambda-main)))))) - (_%generate-kw-dispatch5299%_ - (lambda (_%primary5812%_ _%kwargs5814%_ _%strict?5815%_) - (let* ((_%g58175836%_ - (lambda (_%g58185832%_) + (cons _%L6052%_ '())))) + _%g60666077%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g60646095%_ + (_%make-main6006%_)))) + _%g60386049%_)))) + (_%g60366099%_ + (_%make-dispatch6007%_ _%L6024%_)))) + _%g60106021%_)))) + (_%g60086103%_ (gx#genident 'kw-lambda-main)))))) + (_%generate-kw-dispatch5398%_ + (lambda (_%primary5911%_ _%kwargs5913%_ _%strict?5914%_) + (let* ((_%g59165935%_ + (lambda (_%g59175931%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g58185832%_))) - (_%g58165895%_ - (lambda (_%g58185840%_) - (if (gx#stx-pair? _%g58185840%_) - (let ((_%e58225843%_ - (gx#syntax-e _%g58185840%_))) - (let ((_%hd58235847%_ + _%g59175931%_))) + (_%g59155994%_ + (lambda (_%g59175939%_) + (if (gx#stx-pair? _%g59175939%_) + (let ((_%e59215942%_ + (gx#syntax-e _%g59175939%_))) + (let ((_%hd59225946%_ (let () (declare (not safe)) - (##car _%e58225843%_))) - (_%tl58245850%_ + (##car _%e59215942%_))) + (_%tl59235949%_ (let () (declare (not safe)) - (##cdr _%e58225843%_)))) - (if (gx#stx-pair? _%tl58245850%_) - (let ((_%e58255853%_ - (gx#syntax-e _%tl58245850%_))) - (let ((_%hd58265857%_ + (##cdr _%e59215942%_)))) + (if (gx#stx-pair? _%tl59235949%_) + (let ((_%e59245952%_ + (gx#syntax-e _%tl59235949%_))) + (let ((_%hd59255956%_ (let () (declare (not safe)) - (##car _%e58255853%_))) - (_%tl58275860%_ + (##car _%e59245952%_))) + (_%tl59265959%_ (let () (declare (not safe)) - (##cdr _%e58255853%_)))) - (if (gx#stx-pair? _%tl58275860%_) - (let ((_%e58285863%_ + (##cdr _%e59245952%_)))) + (if (gx#stx-pair? _%tl59265959%_) + (let ((_%e59275962%_ (gx#syntax-e - _%tl58275860%_))) - (let ((_%hd58295867%_ + _%tl59265959%_))) + (let ((_%hd59285966%_ (let () (declare (not safe)) - (##car _%e58285863%_))) - (_%tl58305870%_ + (##car _%e59275962%_))) + (_%tl59295969%_ (let () (declare (not safe)) - (##cdr _%e58285863%_)))) + (##cdr _%e59275962%_)))) (if (gx#stx-null? - _%tl58305870%_) - ((lambda (_%L5873%_ + _%tl59295969%_) + ((lambda (_%L5972%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L5875%_ - _%L5876%_) + _%L5974%_ + _%L5975%_) (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L5873%_ + (cons _%L5972%_ (cons (cons (gx#datum->syntax '#f 'apply) (cons (gx#datum->syntax '#f @@ -2205,2554 +2205,2554 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L5876%_ + (cons _%L5975%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L5875%_ (cons _%L5873%_ '()))))) + (cons _%L5974%_ (cons _%L5972%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd58295867%_ - _%hd58265857%_ - _%hd58235847%_) - (_%g58175836%_ _%g58185840%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g58175836%_ - _%g58185840%_)))) - (_%g58175836%_ _%g58185840%_)))) - (_%g58175836%_ _%g58185840%_))))) - (_%g58165895%_ - (list (if _%strict?5815%_ - (_%generate-kw-table5300%_ - (map car _%kwargs5814%_)) + _%hd59285966%_ + _%hd59255956%_ + _%hd59225946%_) + (_%g59165935%_ _%g59175939%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g59165935%_ + _%g59175939%_)))) + (_%g59165935%_ _%g59175939%_)))) + (_%g59165935%_ _%g59175939%_))))) + (_%g59155994%_ + (list (if _%strict?5914%_ + (_%generate-kw-table5399%_ + (map car _%kwargs5913%_)) '#f) - _%primary5812%_ + _%primary5911%_ (gx#genident 'args)))))) - (_%generate-kw-table5300%_ - (lambda (_%kws5786%_) - (let _%rehash5789%_ ((_%pht5792%_ - (let ((__tmp20907 - (length _%kws5786%_))) + (_%generate-kw-table5399%_ + (lambda (_%kws5885%_) + (let _%rehash5888%_ ((_%pht5891%_ + (let ((__tmp21006 + (length _%kws5885%_))) (declare (not safe)) - (##make-vector __tmp20907 '#f)))) - (let _%lp5795%_ ((_%rest5798%_ _%kws5786%_)) - (if (pair? _%rest5798%_) - (let* ((_%key5801%_ + (##make-vector __tmp21006 '#f)))) + (let _%lp5894%_ ((_%rest5897%_ _%kws5885%_)) + (if (pair? _%rest5897%_) + (let* ((_%key5900%_ (let () (declare (not safe)) - (##car _%rest5798%_))) - (_%rest5804%_ + (##car _%rest5897%_))) + (_%rest5903%_ (let () (declare (not safe)) - (##cdr _%rest5798%_))) - (_%pos5807%_ - (let ((__tmp20904 - (keyword-hash _%key5801%_)) - (__tmp20903 - (vector-length _%pht5792%_))) + (##cdr _%rest5897%_))) + (_%pos5906%_ + (let ((__tmp21003 + (keyword-hash _%key5900%_)) + (__tmp21002 + (vector-length _%pht5891%_))) (declare (not safe)) - (##fxmodulo __tmp20904 __tmp20903)))) - (if (vector-ref _%pht5792%_ _%pos5807%_) - (if (let ((__tmp20905 - (vector-length _%pht5792%_))) + (##fxmodulo __tmp21003 __tmp21002)))) + (if (vector-ref _%pht5891%_ _%pos5906%_) + (if (let ((__tmp21004 + (vector-length _%pht5891%_))) (declare (not safe)) - (##fx< __tmp20905 '8192)) - (_%rehash5789%_ + (##fx< __tmp21004 '8192)) + (_%rehash5888%_ (make-vector (quotient - (let ((__tmp20906 - (vector-length _%pht5792%_))) + (let ((__tmp21005 + (vector-length _%pht5891%_))) (declare (not safe)) - (##fx* '3 __tmp20906)) + (##fx* '3 __tmp21005)) '2) '#f)) (error '"Unresolvable keyword collision" - _%kws5786%_)) + _%kws5885%_)) (begin (vector-set! - _%pht5792%_ - _%pos5807%_ - _%key5801%_) - (_%lp5795%_ _%rest5804%_)))) - _%pht5792%_)))))) - (let* ((_%__stx1941019411%_ _%stx5284%_) - (_%g53045335%_ + _%pht5891%_ + _%pos5906%_ + _%key5900%_) + (_%lp5894%_ _%rest5903%_)))) + _%pht5891%_)))))) + (let* ((_%__stx1950919510%_ _%stx5383%_) + (_%g54035434%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1941019411%_)))) - (let ((_%__kont1941319414%_ - (lambda (_%L5767%_ _%L5769%_) + _%__stx1950919510%_)))) + (let ((_%__kont1951219513%_ + (lambda (_%L5866%_ _%L5868%_) (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L5769%_ _%L5767%_)))) - (_%__kont1941519416%_ - (lambda (_%L5539%_ _%L5541%_) - (let ((_g20908_ (_%opt-lambda-split5290%_ _%L5541%_))) + (cons _%L5868%_ _%L5866%_)))) + (_%__kont1951419515%_ + (lambda (_%L5638%_ _%L5640%_) + (let ((_g21007_ (_%opt-lambda-split5389%_ _%L5640%_))) (begin - (let ((_g20909_ + (let ((_g21008_ (let () (declare (not safe)) - (if (##values? _g20908_) - (##vector-length _g20908_) + (if (##values? _g21007_) + (##values-length _g21007_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20909_ 3))) - (error "Context expects 3 values" _g20909_))) - (let ((_%pre5554%_ + (##fx= _g21008_ 3))) + (error "Context expects 3 values" _g21008_))) + (let ((_%pre5653%_ (let () (declare (not safe)) - (##vector-ref _g20908_ 0))) - (_%opt5556%_ + (##values-ref _g21007_ 0))) + (_%opt5655%_ (let () (declare (not safe)) - (##vector-ref _g20908_ 1))) - (_%tail5557%_ + (##values-ref _g21007_ 1))) + (_%tail5656%_ (let () (declare (not safe)) - (##vector-ref _g20908_ 2)))) - (let* ((_%g55595567%_ - (lambda (_%g55605563%_) + (##values-ref _g21007_ 2)))) + (let* ((_%g56585666%_ + (lambda (_%g56595662%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g55605563%_))) - (_%g55585736%_ - (lambda (_%g55605571%_) - ((lambda (_%L5574%_) - (let* ((_%g55875595%_ - (lambda (_%g55885591%_) + _%g56595662%_))) + (_%g56575835%_ + (lambda (_%g56595670%_) + ((lambda (_%L5673%_) + (let* ((_%g56865694%_ + (lambda (_%g56875690%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g55885591%_))) - (_%g55865732%_ - (lambda (_%g55885599%_) - ((lambda (_%L5602%_) - (let* ((_%g56155632%_ - (lambda (_%g56165628%_) + _%g56875690%_))) + (_%g56855831%_ + (lambda (_%g56875698%_) + ((lambda (_%L5701%_) + (let* ((_%g57145731%_ + (lambda (_%g57155727%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g56165628%_))) - (_%g56145728%_ - (lambda (_%g56165636%_) + _%g57155727%_))) + (_%g57135827%_ + (lambda (_%g57155735%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g56165636%_) - (let ((_g20910_ - (gx#syntax-split-splice _%g56165636%_ '0))) + _%g57155735%_) + (let ((_g21009_ + (gx#syntax-split-splice _%g57155735%_ '0))) (begin - (let ((_g20911_ + (let ((_g21010_ (let () (declare (not safe)) - (if (##values? _g20910_) - (##vector-length _g20910_) + (if (##values? _g21009_) + (##values-length _g21009_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20911_ 2))) + (##fx= _g21010_ 2))) (error "Context expects 2 values" - _g20911_))) - (let ((_%target56185639%_ + _g21010_))) + (let ((_%target57175738%_ (let () (declare (not safe)) - (##vector-ref _g20910_ 0))) - (_%tl56205642%_ + (##values-ref _g21009_ 0))) + (_%tl57195741%_ (let () (declare (not safe)) - (##vector-ref _g20910_ 1)))) - (if (gx#stx-null? _%tl56205642%_) - (letrec ((_%loop56215645%_ - (lambda (_%hd56195649%_ - _%clause56255652%_) + (##values-ref _g21009_ 1)))) + (if (gx#stx-null? _%tl57195741%_) + (letrec ((_%loop57205744%_ + (lambda (_%hd57185748%_ + _%clause57245751%_) (if (gx#stx-pair? - _%hd56195649%_) - (let ((_%e56225655%_ + _%hd57185748%_) + (let ((_%e57215754%_ (gx#syntax-e - _%hd56195649%_))) - (let ((_%lp-hd56235659%_ + _%hd57185748%_))) + (let ((_%lp-hd57225758%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e56225655%_))) - (_%lp-tl56245662%_ - (let () (declare (not safe)) (##cdr _%e56225655%_)))) - (_%loop56215645%_ - _%lp-tl56245662%_ - (cons _%lp-hd56235659%_ _%clause56255652%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%clause56265665%_ - (reverse _%clause56255652%_))) - ((lambda (_%L5669%_) - (let* ((_%g56865694%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g56875690%_) + (##car _%e57215754%_))) + (_%lp-tl57235761%_ + (let () (declare (not safe)) (##cdr _%e57215754%_)))) + (_%loop57205744%_ + _%lp-tl57235761%_ + (cons _%lp-hd57225758%_ _%clause57245751%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%clause57255764%_ + (reverse _%clause57245751%_))) + ((lambda (_%L5768%_) + (let* ((_%g57855793%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g57865789%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g56875690%_))) - (_%g56855716%_ - (lambda (_%g56875698%_) - ((lambda (_%L5701%_) + _%g57865789%_))) + (_%g57845815%_ + (lambda (_%g57865797%_) + ((lambda (_%L5800%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L5574%_ '()) - (cons _%L5602%_ '())) + (cons (cons (cons (cons _%L5673%_ '()) + (cons _%L5701%_ '())) '()) - (cons _%L5701%_ '())))) - _%g56875698%_)))) - (_%g56855716%_ + (cons _%L5800%_ '())))) + _%g57865797%_)))) + (_%g57845815%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g57195722%_ _%g57205725%_) - (cons _%g57195722%_ _%g57205725%_)) + (foldr (lambda (_%g58185821%_ _%g58195824%_) + (cons _%g58185821%_ _%g58195824%_)) '() - _%L5669%_)) - (gx#stx-source _%stx5284%_))))) - _%clause56265665%_)))))) + _%L5768%_)) + (gx#stx-source _%stx5383%_))))) + _%clause57255764%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop56215645%_ - _%target56185639%_ + (_%loop57205744%_ + _%target57175738%_ '())) - (_%g56155632%_ _%g56165636%_))))) - (_%g56155632%_ _%g56165636%_))))) - (_%g56145728%_ - (_%generate-opt-dispatch5295%_ - _%L5574%_ - _%pre5554%_ - _%opt5556%_ - _%tail5557%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g55885599%_)))) - (_%g55865732%_ + (_%g57145731%_ _%g57155735%_))))) + (_%g57145731%_ _%g57155735%_))))) + (_%g57135827%_ + (_%generate-opt-dispatch5394%_ + _%L5673%_ + _%pre5653%_ + _%opt5655%_ + _%tail5656%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g56875698%_)))) + (_%g56855831%_ (gx#stx-wrap-source - (_%generate-opt-primary5294%_ - _%pre5554%_ - _%opt5556%_ - _%tail5557%_ - _%L5539%_) - (gx#stx-source _%stx5284%_))))) - _%g55605571%_)))) - (_%g55585736%_ (gx#genident 'opt-lambda)))))))) - (_%__kont1941719418%_ - (lambda (_%L5362%_ _%L5364%_) - (let* ((_%g53805387%_ - (lambda (_%g53815383%_) + (_%generate-opt-primary5393%_ + _%pre5653%_ + _%opt5655%_ + _%tail5656%_ + _%L5638%_) + (gx#stx-source _%stx5383%_))))) + _%g56595670%_)))) + (_%g56575835%_ (gx#genident 'opt-lambda)))))))) + (_%__kont1951619517%_ + (lambda (_%L5461%_ _%L5463%_) + (let* ((_%g54795486%_ + (lambda (_%g54805482%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g53815383%_))) - (_%g53795508%_ - (lambda (_%g53815391%_) + _%g54805482%_))) + (_%g54785607%_ + (lambda (_%g54805490%_) ((lambda () - (let ((_g20912_ - (_%kw-lambda-split5292%_ _%L5364%_))) + (let ((_g21011_ + (_%kw-lambda-split5391%_ _%L5463%_))) (begin - (let ((_g20913_ + (let ((_g21012_ (let () (declare (not safe)) - (if (##values? _g20912_) - (##vector-length _g20912_) + (if (##values? _g21011_) + (##values-length _g21011_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20913_ 3))) + (##fx= _g21012_ 3))) (error "Context expects 3 values" - _g20913_))) - (let ((_%key5400%_ + _g21012_))) + (let ((_%key5499%_ (let () (declare (not safe)) - (##vector-ref _g20912_ 0))) - (_%kwargs5402%_ + (##values-ref _g21011_ 0))) + (_%kwargs5501%_ (let () (declare (not safe)) - (##vector-ref _g20912_ 1))) - (_%args5403%_ + (##values-ref _g21011_ 1))) + (_%args5502%_ (let () (declare (not safe)) - (##vector-ref _g20912_ 2)))) - (let* ((_%g54055413%_ - (lambda (_%g54065409%_) + (##values-ref _g21011_ 2)))) + (let* ((_%g55045512%_ + (lambda (_%g55055508%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g54065409%_))) - (_%g54045504%_ - (lambda (_%g54065417%_) - ((lambda (_%L5420%_) - (let* ((_%g54385446%_ - (lambda (_%g54395442%_) + _%g55055508%_))) + (_%g55035603%_ + (lambda (_%g55055516%_) + ((lambda (_%L5519%_) + (let* ((_%g55375545%_ + (lambda (_%g55385541%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g54395442%_))) - (_%g54375500%_ - (lambda (_%g54395450%_) - ((lambda (_%L5453%_) + _%g55385541%_))) + (_%g55365599%_ + (lambda (_%g55385549%_) + ((lambda (_%L5552%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g54665474%_ - (lambda (_%g54675470%_) + (let* ((_%g55655573%_ + (lambda (_%g55665569%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g54675470%_))) - (_%g54655496%_ - (lambda (_%g54675478%_) - ((lambda (_%L5481%_) + _%g55665569%_))) + (_%g55645595%_ + (lambda (_%g55665577%_) + ((lambda (_%L5580%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L5420%_ + (cons (cons (cons (cons _%L5519%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L5453%_ '())) + (cons _%L5552%_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L5481%_ '())))) - _%g54675478%_)))) - (_%g54655496%_ + (cons _%L5580%_ '())))) + _%g55665577%_)))) + (_%g55645595%_ (gx#stx-wrap-source - (_%generate-kw-dispatch5299%_ - _%L5420%_ - _%kwargs5402%_ - (not _%key5400%_)) - (gx#stx-source _%stx5284%_))))) - _%g54395450%_)))) - (_%g54375500%_ + (_%generate-kw-dispatch5398%_ + _%L5519%_ + _%kwargs5501%_ + (not _%key5499%_)) + (gx#stx-source _%stx5383%_))))) + _%g55385549%_)))) + (_%g55365599%_ (gx#stx-wrap-source - (_%generate-kw-primary5298%_ - _%key5400%_ - _%kwargs5402%_ - _%args5403%_ - _%L5362%_) - (gx#stx-source _%stx5284%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g54065417%_)))) - (_%g54045504%_ + (_%generate-kw-primary5397%_ + _%key5499%_ + _%kwargs5501%_ + _%args5502%_ + _%L5461%_) + (gx#stx-source _%stx5383%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g55055516%_)))) + (_%g55035603%_ (gx#genident 'kw-lambda))))))))))) - (_%g53795508%_ - (_%check-duplicate-bindings5293%_ _%L5364%_)))))) - (let* ((_%__match1945519456%_ - (lambda (_%e53245342%_ - _%hd53255346%_ - _%tl53265349%_ - _%e53275352%_ - _%hd53285356%_ - _%tl53295359%_) - (let ((_%L5362%_ _%tl53295359%_) - (_%L5364%_ _%hd53285356%_)) - (if (_%kw-lambda?5291%_ _%L5364%_) - (_%__kont1941719418%_ _%L5362%_ _%L5364%_) - (let () (declare (not safe)) (_%g53045335%_)))))) - (_%__match1944319444%_ - (lambda (_%e53165519%_ - _%hd53175523%_ - _%tl53185526%_ - _%e53195529%_ - _%hd53205533%_ - _%tl53215536%_) - (let ((_%L5539%_ _%tl53215536%_) - (_%L5541%_ _%hd53205533%_)) - (if (_%opt-lambda?5289%_ _%L5541%_) - (_%__kont1941519416%_ _%L5539%_ _%L5541%_) - (_%__match1945519456%_ - _%e53165519%_ - _%hd53175523%_ - _%tl53185526%_ - _%e53195529%_ - _%hd53205533%_ - _%tl53215536%_))))) - (_%__match1943119432%_ - (lambda (_%e53085747%_ - _%hd53095751%_ - _%tl53105754%_ - _%e53115757%_ - _%hd53125761%_ - _%tl53135764%_) - (let ((_%L5767%_ _%tl53135764%_) - (_%L5769%_ _%hd53125761%_)) - (if (_%simple-lambda?5287%_ _%L5769%_) - (_%__kont1941319414%_ _%L5767%_ _%L5769%_) - (_%__match1944319444%_ - _%e53085747%_ - _%hd53095751%_ - _%tl53105754%_ - _%e53115757%_ - _%hd53125761%_ - _%tl53135764%_)))))) - (if (gx#stx-pair? _%__stx1941019411%_) - (let ((_%e53085747%_ (gx#syntax-e _%__stx1941019411%_))) - (let ((_%tl53105754%_ + (_%g54785607%_ + (_%check-duplicate-bindings5392%_ _%L5463%_)))))) + (let* ((_%__match1955419555%_ + (lambda (_%e54235441%_ + _%hd54245445%_ + _%tl54255448%_ + _%e54265451%_ + _%hd54275455%_ + _%tl54285458%_) + (let ((_%L5461%_ _%tl54285458%_) + (_%L5463%_ _%hd54275455%_)) + (if (_%kw-lambda?5390%_ _%L5463%_) + (_%__kont1951619517%_ _%L5461%_ _%L5463%_) + (let () (declare (not safe)) (_%g54035434%_)))))) + (_%__match1954219543%_ + (lambda (_%e54155618%_ + _%hd54165622%_ + _%tl54175625%_ + _%e54185628%_ + _%hd54195632%_ + _%tl54205635%_) + (let ((_%L5638%_ _%tl54205635%_) + (_%L5640%_ _%hd54195632%_)) + (if (_%opt-lambda?5388%_ _%L5640%_) + (_%__kont1951419515%_ _%L5638%_ _%L5640%_) + (_%__match1955419555%_ + _%e54155618%_ + _%hd54165622%_ + _%tl54175625%_ + _%e54185628%_ + _%hd54195632%_ + _%tl54205635%_))))) + (_%__match1953019531%_ + (lambda (_%e54075846%_ + _%hd54085850%_ + _%tl54095853%_ + _%e54105856%_ + _%hd54115860%_ + _%tl54125863%_) + (let ((_%L5866%_ _%tl54125863%_) + (_%L5868%_ _%hd54115860%_)) + (if (_%simple-lambda?5386%_ _%L5868%_) + (_%__kont1951219513%_ _%L5866%_ _%L5868%_) + (_%__match1954219543%_ + _%e54075846%_ + _%hd54085850%_ + _%tl54095853%_ + _%e54105856%_ + _%hd54115860%_ + _%tl54125863%_)))))) + (if (gx#stx-pair? _%__stx1950919510%_) + (let ((_%e54075846%_ (gx#syntax-e _%__stx1950919510%_))) + (let ((_%tl54095853%_ (let () (declare (not safe)) - (##cdr _%e53085747%_))) - (_%hd53095751%_ + (##cdr _%e54075846%_))) + (_%hd54085850%_ (let () (declare (not safe)) - (##car _%e53085747%_)))) - (if (gx#stx-pair? _%tl53105754%_) - (let ((_%e53115757%_ (gx#syntax-e _%tl53105754%_))) - (let ((_%tl53135764%_ + (##car _%e54075846%_)))) + (if (gx#stx-pair? _%tl54095853%_) + (let ((_%e54105856%_ (gx#syntax-e _%tl54095853%_))) + (let ((_%tl54125863%_ (let () (declare (not safe)) - (##cdr _%e53115757%_))) - (_%hd53125761%_ + (##cdr _%e54105856%_))) + (_%hd54115860%_ (let () (declare (not safe)) - (##car _%e53115757%_)))) - (_%__match1943119432%_ - _%e53085747%_ - _%hd53095751%_ - _%tl53105754%_ - _%e53115757%_ - _%hd53125761%_ - _%tl53135764%_))) - (let () (declare (not safe)) (_%g53045335%_))))) - (let () (declare (not safe)) (_%g53045335%_))))))))) + (##car _%e54105856%_)))) + (_%__match1953019531%_ + _%e54075846%_ + _%hd54085850%_ + _%tl54095853%_ + _%e54105856%_ + _%hd54115860%_ + _%tl54125863%_))) + (let () (declare (not safe)) (_%g54035434%_))))) + (let () (declare (not safe)) (_%g54035434%_))))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#def| - (lambda (_%$stx8709%_) - (let* ((_%__stx1945819459%_ _%$stx8709%_) - (_%g87158779%_ + (lambda (_%$stx8808%_) + (let* ((_%__stx1955719558%_ _%$stx8808%_) + (_%g88148878%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1945819459%_)))) - (let ((_%__kont1946119462%_ - (lambda (_%L9009%_ _%L9011%_ _%L9012%_ _%L9013%_) + _%__stx1955719558%_)))) + (let ((_%__kont1956019561%_ + (lambda (_%L9108%_ _%L9110%_ _%L9111%_ _%L9112%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L9013%_ _%L9012%_) + (cons (cons _%L9112%_ _%L9111%_) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L9011%_ - (foldr (lambda (_%g90359038%_ + (cons _%L9110%_ + (foldr (lambda (_%g91349137%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g90369041%_) - (cons _%g90359038%_ _%g90369041%_)) + _%g91359140%_) + (cons _%g91349137%_ _%g91359140%_)) '() - _%L9009%_))) + _%L9108%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1946519466%_ - (lambda (_%L8901%_ _%L8903%_ _%L8904%_) + (_%__kont1956419565%_ + (lambda (_%L9000%_ _%L9002%_ _%L9003%_) (cons (gx#datum->syntax '#f 'define-values) - (cons (cons _%L8904%_ '()) + (cons (cons _%L9003%_ '()) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L8903%_ - (foldr (lambda (_%g89238926%_ + (cons _%L9002%_ + (foldr (lambda (_%g90229025%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g89248929%_) - (cons _%g89238926%_ _%g89248929%_)) + _%g90239028%_) + (cons _%g90229025%_ _%g90239028%_)) '() - _%L8901%_))) + _%L9000%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1946919470%_ - (lambda (_%L8816%_ _%L8818%_) + (_%__kont1956819569%_ + (lambda (_%L8915%_ _%L8917%_) (cons (gx#datum->syntax '#f 'define-values) - (cons (cons _%L8818%_ '()) (cons _%L8816%_ '())))))) - (let* ((_%__match1954919550%_ - (lambda (_%e87658786%_ - _%hd87668790%_ - _%tl87678793%_ - _%e87688796%_ - _%hd87698800%_ - _%tl87708803%_ - _%e87718806%_ - _%hd87728810%_ - _%tl87738813%_) - (let ((_%L8816%_ _%hd87728810%_) - (_%L8818%_ _%hd87698800%_)) - (if (gx#identifier? _%L8818%_) - (_%__kont1946919470%_ _%L8816%_ _%L8818%_) - (let () (declare (not safe)) (_%g87158779%_)))))) - (_%__match1954119542%_ - (lambda (_%e87658786%_ - _%hd87668790%_ - _%tl87678793%_ - _%e87688796%_ - _%hd87698800%_ - _%tl87708803%_) - (if (gx#stx-pair? _%tl87708803%_) - (let ((_%e87718806%_ (gx#syntax-e _%tl87708803%_))) - (let ((_%tl87738813%_ + (cons (cons _%L8917%_ '()) (cons _%L8915%_ '())))))) + (let* ((_%__match1964819649%_ + (lambda (_%e88648885%_ + _%hd88658889%_ + _%tl88668892%_ + _%e88678895%_ + _%hd88688899%_ + _%tl88698902%_ + _%e88708905%_ + _%hd88718909%_ + _%tl88728912%_) + (let ((_%L8915%_ _%hd88718909%_) + (_%L8917%_ _%hd88688899%_)) + (if (gx#identifier? _%L8917%_) + (_%__kont1956819569%_ _%L8915%_ _%L8917%_) + (let () (declare (not safe)) (_%g88148878%_)))))) + (_%__match1964019641%_ + (lambda (_%e88648885%_ + _%hd88658889%_ + _%tl88668892%_ + _%e88678895%_ + _%hd88688899%_ + _%tl88698902%_) + (if (gx#stx-pair? _%tl88698902%_) + (let ((_%e88708905%_ (gx#syntax-e _%tl88698902%_))) + (let ((_%tl88728912%_ (let () (declare (not safe)) - (##cdr _%e87718806%_))) - (_%hd87728810%_ + (##cdr _%e88708905%_))) + (_%hd88718909%_ (let () (declare (not safe)) - (##car _%e87718806%_)))) - (if (gx#stx-null? _%tl87738813%_) - (_%__match1954919550%_ - _%e87658786%_ - _%hd87668790%_ - _%tl87678793%_ - _%e87688796%_ - _%hd87698800%_ - _%tl87708803%_ - _%e87718806%_ - _%hd87728810%_ - _%tl87738813%_) + (##car _%e88708905%_)))) + (if (gx#stx-null? _%tl88728912%_) + (_%__match1964819649%_ + _%e88648885%_ + _%hd88658889%_ + _%tl88668892%_ + _%e88678895%_ + _%hd88688899%_ + _%tl88698902%_ + _%e88708905%_ + _%hd88718909%_ + _%tl88728912%_) (let () (declare (not safe)) - (_%g87158779%_))))) - (let () (declare (not safe)) (_%g87158779%_))))) - (_%__match1952919530%_ - (lambda (_%e87458841%_ - _%hd87468845%_ - _%tl87478848%_ - _%e87488851%_ - _%hd87498855%_ - _%tl87508858%_ - _%e87518861%_ - _%hd87528865%_ - _%tl87538868%_ - _%__splice1946719468%_ - _%target87548871%_ - _%tl87568874%_) - (letrec ((_%loop87578877%_ - (lambda (_%hd87558881%_ _%body87618884%_) - (if (gx#stx-pair? _%hd87558881%_) - (let ((_%e87588887%_ - (gx#syntax-e _%hd87558881%_))) - (let ((_%lp-tl87608894%_ + (_%g88148878%_))))) + (let () (declare (not safe)) (_%g88148878%_))))) + (_%__match1962819629%_ + (lambda (_%e88448940%_ + _%hd88458944%_ + _%tl88468947%_ + _%e88478950%_ + _%hd88488954%_ + _%tl88498957%_ + _%e88508960%_ + _%hd88518964%_ + _%tl88528967%_ + _%__splice1956619567%_ + _%target88538970%_ + _%tl88558973%_) + (letrec ((_%loop88568976%_ + (lambda (_%hd88548980%_ _%body88608983%_) + (if (gx#stx-pair? _%hd88548980%_) + (let ((_%e88578986%_ + (gx#syntax-e _%hd88548980%_))) + (let ((_%lp-tl88598993%_ (let () (declare (not safe)) - (##cdr _%e87588887%_))) - (_%lp-hd87598891%_ + (##cdr _%e88578986%_))) + (_%lp-hd88588990%_ (let () (declare (not safe)) - (##car _%e87588887%_)))) - (_%loop87578877%_ - _%lp-tl87608894%_ - (cons _%lp-hd87598891%_ - _%body87618884%_)))) - (let ((_%body87628897%_ - (reverse _%body87618884%_))) - (let ((_%L8901%_ _%body87628897%_) - (_%L8903%_ _%tl87538868%_) - (_%L8904%_ _%hd87528865%_)) - (if (gx#identifier? _%L8904%_) - (_%__kont1946519466%_ - _%L8901%_ - _%L8903%_ - _%L8904%_) - (_%__match1954119542%_ - _%e87458841%_ - _%hd87468845%_ - _%tl87478848%_ - _%e87488851%_ - _%hd87498855%_ - _%tl87508858%_)))))))) - (_%loop87578877%_ _%target87548871%_ '())))) - (_%__match1950319504%_ - (lambda (_%e87218939%_ - _%hd87228943%_ - _%tl87238946%_ - _%e87248949%_ - _%hd87258953%_ - _%tl87268956%_ - _%e87278959%_ - _%hd87288963%_ - _%tl87298966%_ - _%e87308969%_ - _%hd87318973%_ - _%tl87328976%_ - _%__splice1946319464%_ - _%target87338979%_ - _%tl87358982%_) - (letrec ((_%loop87368985%_ - (lambda (_%hd87348989%_ _%body87408992%_) - (if (gx#stx-pair? _%hd87348989%_) - (let ((_%e87378995%_ - (gx#syntax-e _%hd87348989%_))) - (let ((_%lp-tl87399002%_ + (##car _%e88578986%_)))) + (_%loop88568976%_ + _%lp-tl88598993%_ + (cons _%lp-hd88588990%_ + _%body88608983%_)))) + (let ((_%body88618996%_ + (reverse _%body88608983%_))) + (let ((_%L9000%_ _%body88618996%_) + (_%L9002%_ _%tl88528967%_) + (_%L9003%_ _%hd88518964%_)) + (if (gx#identifier? _%L9003%_) + (_%__kont1956419565%_ + _%L9000%_ + _%L9002%_ + _%L9003%_) + (_%__match1964019641%_ + _%e88448940%_ + _%hd88458944%_ + _%tl88468947%_ + _%e88478950%_ + _%hd88488954%_ + _%tl88498957%_)))))))) + (_%loop88568976%_ _%target88538970%_ '())))) + (_%__match1960219603%_ + (lambda (_%e88209038%_ + _%hd88219042%_ + _%tl88229045%_ + _%e88239048%_ + _%hd88249052%_ + _%tl88259055%_ + _%e88269058%_ + _%hd88279062%_ + _%tl88289065%_ + _%e88299068%_ + _%hd88309072%_ + _%tl88319075%_ + _%__splice1956219563%_ + _%target88329078%_ + _%tl88349081%_) + (letrec ((_%loop88359084%_ + (lambda (_%hd88339088%_ _%body88399091%_) + (if (gx#stx-pair? _%hd88339088%_) + (let ((_%e88369094%_ + (gx#syntax-e _%hd88339088%_))) + (let ((_%lp-tl88389101%_ (let () (declare (not safe)) - (##cdr _%e87378995%_))) - (_%lp-hd87388999%_ + (##cdr _%e88369094%_))) + (_%lp-hd88379098%_ (let () (declare (not safe)) - (##car _%e87378995%_)))) - (_%loop87368985%_ - _%lp-tl87399002%_ - (cons _%lp-hd87388999%_ - _%body87408992%_)))) - (let ((_%body87419005%_ - (reverse _%body87408992%_))) - (_%__kont1946119462%_ - _%body87419005%_ - _%tl87298966%_ - _%tl87328976%_ - _%hd87318973%_)))))) - (_%loop87368985%_ _%target87338979%_ '()))))) - (if (gx#stx-pair? _%__stx1945819459%_) - (let ((_%e87218939%_ (gx#syntax-e _%__stx1945819459%_))) - (let ((_%tl87238946%_ - (let () (declare (not safe)) (##cdr _%e87218939%_))) - (_%hd87228943%_ + (##car _%e88369094%_)))) + (_%loop88359084%_ + _%lp-tl88389101%_ + (cons _%lp-hd88379098%_ + _%body88399091%_)))) + (let ((_%body88409104%_ + (reverse _%body88399091%_))) + (_%__kont1956019561%_ + _%body88409104%_ + _%tl88289065%_ + _%tl88319075%_ + _%hd88309072%_)))))) + (_%loop88359084%_ _%target88329078%_ '()))))) + (if (gx#stx-pair? _%__stx1955719558%_) + (let ((_%e88209038%_ (gx#syntax-e _%__stx1955719558%_))) + (let ((_%tl88229045%_ + (let () (declare (not safe)) (##cdr _%e88209038%_))) + (_%hd88219042%_ (let () (declare (not safe)) - (##car _%e87218939%_)))) - (if (gx#stx-pair? _%tl87238946%_) - (let ((_%e87248949%_ (gx#syntax-e _%tl87238946%_))) - (let ((_%tl87268956%_ + (##car _%e88209038%_)))) + (if (gx#stx-pair? _%tl88229045%_) + (let ((_%e88239048%_ (gx#syntax-e _%tl88229045%_))) + (let ((_%tl88259055%_ (let () (declare (not safe)) - (##cdr _%e87248949%_))) - (_%hd87258953%_ + (##cdr _%e88239048%_))) + (_%hd88249052%_ (let () (declare (not safe)) - (##car _%e87248949%_)))) - (if (gx#stx-pair? _%hd87258953%_) - (let ((_%e87278959%_ - (gx#syntax-e _%hd87258953%_))) - (let ((_%tl87298966%_ + (##car _%e88239048%_)))) + (if (gx#stx-pair? _%hd88249052%_) + (let ((_%e88269058%_ + (gx#syntax-e _%hd88249052%_))) + (let ((_%tl88289065%_ (let () (declare (not safe)) - (##cdr _%e87278959%_))) - (_%hd87288963%_ + (##cdr _%e88269058%_))) + (_%hd88279062%_ (let () (declare (not safe)) - (##car _%e87278959%_)))) - (if (gx#stx-pair? _%hd87288963%_) - (let ((_%e87308969%_ - (gx#syntax-e _%hd87288963%_))) - (let ((_%tl87328976%_ + (##car _%e88269058%_)))) + (if (gx#stx-pair? _%hd88279062%_) + (let ((_%e88299068%_ + (gx#syntax-e _%hd88279062%_))) + (let ((_%tl88319075%_ (let () (declare (not safe)) - (##cdr _%e87308969%_))) - (_%hd87318973%_ + (##cdr _%e88299068%_))) + (_%hd88309072%_ (let () (declare (not safe)) - (##car _%e87308969%_)))) + (##car _%e88299068%_)))) (if (gx#stx-pair/null? - _%tl87268956%_) - (let ((_%__splice1946319464%_ + _%tl88259055%_) + (let ((_%__splice1956219563%_ (gx#syntax-split-splice - _%tl87268956%_ + _%tl88259055%_ '0))) - (let ((_%tl87358982%_ + (let ((_%tl88349081%_ (let () (declare (not safe)) (##vector-ref - _%__splice1946319464%_ + _%__splice1956219563%_ '1))) - (_%target87338979%_ + (_%target88329078%_ (let () (declare (not safe)) (##vector-ref - _%__splice1946319464%_ + _%__splice1956219563%_ '0)))) (if (gx#stx-null? - _%tl87358982%_) - (_%__match1950319504%_ - _%e87218939%_ - _%hd87228943%_ - _%tl87238946%_ - _%e87248949%_ - _%hd87258953%_ - _%tl87268956%_ - _%e87278959%_ - _%hd87288963%_ - _%tl87298966%_ - _%e87308969%_ - _%hd87318973%_ - _%tl87328976%_ - _%__splice1946319464%_ - _%target87338979%_ - _%tl87358982%_) + _%tl88349081%_) + (_%__match1960219603%_ + _%e88209038%_ + _%hd88219042%_ + _%tl88229045%_ + _%e88239048%_ + _%hd88249052%_ + _%tl88259055%_ + _%e88269058%_ + _%hd88279062%_ + _%tl88289065%_ + _%e88299068%_ + _%hd88309072%_ + _%tl88319075%_ + _%__splice1956219563%_ + _%target88329078%_ + _%tl88349081%_) (if (gx#stx-pair? - _%tl87268956%_) - (let ((_%e87718806%_ + _%tl88259055%_) + (let ((_%e88708905%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl87268956%_))) - (let ((_%tl87738813%_ + (gx#syntax-e _%tl88259055%_))) + (let ((_%tl88728912%_ (let () (declare (not safe)) - (##cdr _%e87718806%_))) - (_%hd87728810%_ + (##cdr _%e88708905%_))) + (_%hd88718909%_ (let () (declare (not safe)) - (##car _%e87718806%_)))) - (if (gx#stx-null? _%tl87738813%_) - (_%__match1954919550%_ - _%e87218939%_ - _%hd87228943%_ - _%tl87238946%_ - _%e87248949%_ - _%hd87258953%_ - _%tl87268956%_ - _%e87718806%_ - _%hd87728810%_ - _%tl87738813%_) - (let () (declare (not safe)) (_%g87158779%_))))) - (let () (declare (not safe)) (_%g87158779%_)))))) + (##car _%e88708905%_)))) + (if (gx#stx-null? _%tl88728912%_) + (_%__match1964819649%_ + _%e88209038%_ + _%hd88219042%_ + _%tl88229045%_ + _%e88239048%_ + _%hd88249052%_ + _%tl88259055%_ + _%e88708905%_ + _%hd88718909%_ + _%tl88728912%_) + (let () (declare (not safe)) (_%g88148878%_))))) + (let () (declare (not safe)) (_%g88148878%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%tl87268956%_) - (let ((_%e87718806%_ + _%tl88259055%_) + (let ((_%e88708905%_ (gx#syntax-e - _%tl87268956%_))) - (let ((_%tl87738813%_ + _%tl88259055%_))) + (let ((_%tl88728912%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e87718806%_))) - (_%hd87728810%_ - (let () (declare (not safe)) (##car _%e87718806%_)))) - (if (gx#stx-null? _%tl87738813%_) - (_%__match1954919550%_ - _%e87218939%_ - _%hd87228943%_ - _%tl87238946%_ - _%e87248949%_ - _%hd87258953%_ - _%tl87268956%_ - _%e87718806%_ - _%hd87728810%_ - _%tl87738813%_) - (let () (declare (not safe)) (_%g87158779%_))))) - (let () (declare (not safe)) (_%g87158779%_)))))) + (##cdr _%e88708905%_))) + (_%hd88718909%_ + (let () (declare (not safe)) (##car _%e88708905%_)))) + (if (gx#stx-null? _%tl88728912%_) + (_%__match1964819649%_ + _%e88209038%_ + _%hd88219042%_ + _%tl88229045%_ + _%e88239048%_ + _%hd88249052%_ + _%tl88259055%_ + _%e88708905%_ + _%hd88718909%_ + _%tl88728912%_) + (let () (declare (not safe)) (_%g88148878%_))))) + (let () (declare (not safe)) (_%g88148878%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl87268956%_) - (let ((_%__splice1946719468%_ + _%tl88259055%_) + (let ((_%__splice1956619567%_ (gx#syntax-split-splice - _%tl87268956%_ + _%tl88259055%_ '0))) - (let ((_%tl87568874%_ + (let ((_%tl88558973%_ (let () (declare (not safe)) (##vector-ref - _%__splice1946719468%_ + _%__splice1956619567%_ '1))) - (_%target87548871%_ + (_%target88538970%_ (let () (declare (not safe)) (##vector-ref - _%__splice1946719468%_ + _%__splice1956619567%_ '0)))) (if (gx#stx-null? - _%tl87568874%_) - (_%__match1952919530%_ - _%e87218939%_ - _%hd87228943%_ - _%tl87238946%_ - _%e87248949%_ - _%hd87258953%_ - _%tl87268956%_ - _%e87278959%_ - _%hd87288963%_ - _%tl87298966%_ - _%__splice1946719468%_ - _%target87548871%_ - _%tl87568874%_) + _%tl88558973%_) + (_%__match1962819629%_ + _%e88209038%_ + _%hd88219042%_ + _%tl88229045%_ + _%e88239048%_ + _%hd88249052%_ + _%tl88259055%_ + _%e88269058%_ + _%hd88279062%_ + _%tl88289065%_ + _%__splice1956619567%_ + _%target88538970%_ + _%tl88558973%_) (if (gx#stx-pair? - _%tl87268956%_) - (let ((_%e87718806%_ + _%tl88259055%_) + (let ((_%e88708905%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl87268956%_))) - (let ((_%tl87738813%_ - (let () (declare (not safe)) (##cdr _%e87718806%_))) - (_%hd87728810%_ + (gx#syntax-e _%tl88259055%_))) + (let ((_%tl88728912%_ + (let () (declare (not safe)) (##cdr _%e88708905%_))) + (_%hd88718909%_ (let () (declare (not safe)) - (##car _%e87718806%_)))) - (if (gx#stx-null? _%tl87738813%_) - (_%__match1954919550%_ - _%e87218939%_ - _%hd87228943%_ - _%tl87238946%_ - _%e87248949%_ - _%hd87258953%_ - _%tl87268956%_ - _%e87718806%_ - _%hd87728810%_ - _%tl87738813%_) - (let () (declare (not safe)) (_%g87158779%_))))) - (let () (declare (not safe)) (_%g87158779%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl87268956%_) - (let ((_%e87718806%_ + (##car _%e88708905%_)))) + (if (gx#stx-null? _%tl88728912%_) + (_%__match1964819649%_ + _%e88209038%_ + _%hd88219042%_ + _%tl88229045%_ + _%e88239048%_ + _%hd88249052%_ + _%tl88259055%_ + _%e88708905%_ + _%hd88718909%_ + _%tl88728912%_) + (let () (declare (not safe)) (_%g88148878%_))))) + (let () (declare (not safe)) (_%g88148878%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%tl88259055%_) + (let ((_%e88708905%_ (gx#syntax-e - _%tl87268956%_))) - (let ((_%tl87738813%_ + _%tl88259055%_))) + (let ((_%tl88728912%_ (let () (declare (not safe)) - (##cdr _%e87718806%_))) - (_%hd87728810%_ + (##cdr _%e88708905%_))) + (_%hd88718909%_ (let () (declare (not safe)) - (##car _%e87718806%_)))) + (##car _%e88708905%_)))) (if (gx#stx-null? - _%tl87738813%_) - (_%__match1954919550%_ - _%e87218939%_ - _%hd87228943%_ - _%tl87238946%_ - _%e87248949%_ - _%hd87258953%_ - _%tl87268956%_ - _%e87718806%_ - _%hd87728810%_ - _%tl87738813%_) + _%tl88728912%_) + (_%__match1964819649%_ + _%e88209038%_ + _%hd88219042%_ + _%tl88229045%_ + _%e88239048%_ + _%hd88249052%_ + _%tl88259055%_ + _%e88708905%_ + _%hd88718909%_ + _%tl88728912%_) (let () (declare (not safe)) - (_%g87158779%_))))) + (_%g88148878%_))))) (let () (declare (not safe)) - (_%g87158779%_))))))) - (if (gx#stx-pair? _%tl87268956%_) - (let ((_%e87718806%_ - (gx#syntax-e _%tl87268956%_))) - (let ((_%tl87738813%_ + (_%g88148878%_))))))) + (if (gx#stx-pair? _%tl88259055%_) + (let ((_%e88708905%_ + (gx#syntax-e _%tl88259055%_))) + (let ((_%tl88728912%_ (let () (declare (not safe)) - (##cdr _%e87718806%_))) - (_%hd87728810%_ + (##cdr _%e88708905%_))) + (_%hd88718909%_ (let () (declare (not safe)) - (##car _%e87718806%_)))) - (if (gx#stx-null? _%tl87738813%_) - (_%__match1954919550%_ - _%e87218939%_ - _%hd87228943%_ - _%tl87238946%_ - _%e87248949%_ - _%hd87258953%_ - _%tl87268956%_ - _%e87718806%_ - _%hd87728810%_ - _%tl87738813%_) + (##car _%e88708905%_)))) + (if (gx#stx-null? _%tl88728912%_) + (_%__match1964819649%_ + _%e88209038%_ + _%hd88219042%_ + _%tl88229045%_ + _%e88239048%_ + _%hd88249052%_ + _%tl88259055%_ + _%e88708905%_ + _%hd88718909%_ + _%tl88728912%_) (let () (declare (not safe)) - (_%g87158779%_))))) + (_%g88148878%_))))) (let () (declare (not safe)) - (_%g87158779%_)))))) - (let () (declare (not safe)) (_%g87158779%_))))) - (let () (declare (not safe)) (_%g87158779%_)))))))) + (_%g88148878%_)))))) + (let () (declare (not safe)) (_%g88148878%_))))) + (let () (declare (not safe)) (_%g88148878%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#def*| - (lambda (_%$stx9050%_) - (let* ((_%g90549078%_ - (lambda (_%g90559074%_) + (lambda (_%$stx9149%_) + (let* ((_%g91539177%_ + (lambda (_%g91549173%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g90559074%_))) - (_%g90539163%_ - (lambda (_%g90559082%_) - (if (gx#stx-pair? _%g90559082%_) - (let ((_%e90589085%_ (gx#syntax-e _%g90559082%_))) - (let ((_%hd90599089%_ + _%g91549173%_))) + (_%g91529262%_ + (lambda (_%g91549181%_) + (if (gx#stx-pair? _%g91549181%_) + (let ((_%e91579184%_ (gx#syntax-e _%g91549181%_))) + (let ((_%hd91589188%_ (let () (declare (not safe)) - (##car _%e90589085%_))) - (_%tl90609092%_ + (##car _%e91579184%_))) + (_%tl91599191%_ (let () (declare (not safe)) - (##cdr _%e90589085%_)))) - (if (gx#stx-pair? _%tl90609092%_) - (let ((_%e90619095%_ - (gx#syntax-e _%tl90609092%_))) - (let ((_%hd90629099%_ + (##cdr _%e91579184%_)))) + (if (gx#stx-pair? _%tl91599191%_) + (let ((_%e91609194%_ + (gx#syntax-e _%tl91599191%_))) + (let ((_%hd91619198%_ (let () (declare (not safe)) - (##car _%e90619095%_))) - (_%tl90639102%_ + (##car _%e91609194%_))) + (_%tl91629201%_ (let () (declare (not safe)) - (##cdr _%e90619095%_)))) - (if (gx#stx-pair/null? _%tl90639102%_) - (let ((_g20914_ + (##cdr _%e91609194%_)))) + (if (gx#stx-pair/null? _%tl91629201%_) + (let ((_g21013_ (gx#syntax-split-splice - _%tl90639102%_ + _%tl91629201%_ '0))) (begin - (let ((_g20915_ + (let ((_g21014_ (let () (declare (not safe)) - (if (##values? _g20914_) - (##vector-length - _g20914_) + (if (##values? _g21013_) + (##values-length + _g21013_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20915_ 2))) + (##fx= _g21014_ 2))) (error "Context expects 2 values" - _g20915_))) - (let ((_%target90649105%_ + _g21014_))) + (let ((_%target91639204%_ (let () (declare (not safe)) - (##vector-ref _g20914_ 0))) - (_%tl90669108%_ + (##values-ref _g21013_ 0))) + (_%tl91659207%_ (let () (declare (not safe)) - (##vector-ref _g20914_ 1)))) - (if (gx#stx-null? _%tl90669108%_) - (letrec ((_%loop90679111%_ - (lambda (_%hd90659115%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clauses90719118%_) - (if (gx#stx-pair? _%hd90659115%_) - (let ((_%e90689121%_ (gx#syntax-e _%hd90659115%_))) - (let ((_%lp-hd90699125%_ + (##values-ref _g21013_ 1)))) + (if (gx#stx-null? _%tl91659207%_) + (letrec ((_%loop91669210%_ + (lambda (_%hd91649214%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clauses91709217%_) + (if (gx#stx-pair? _%hd91649214%_) + (let ((_%e91679220%_ (gx#syntax-e _%hd91649214%_))) + (let ((_%lp-hd91689224%_ (let () (declare (not safe)) - (##car _%e90689121%_))) - (_%lp-tl90709128%_ + (##car _%e91679220%_))) + (_%lp-tl91699227%_ (let () (declare (not safe)) - (##cdr _%e90689121%_)))) - (_%loop90679111%_ - _%lp-tl90709128%_ - (cons _%lp-hd90699125%_ _%clauses90719118%_)))) - (let ((_%clauses90729131%_ - (reverse _%clauses90719118%_))) - ((lambda (_%L9135%_ _%L9137%_) - (if (gx#identifier? _%L9137%_) + (##cdr _%e91679220%_)))) + (_%loop91669210%_ + _%lp-tl91699227%_ + (cons _%lp-hd91689224%_ _%clauses91709217%_)))) + (let ((_%clauses91719230%_ + (reverse _%clauses91709217%_))) + ((lambda (_%L9234%_ _%L9236%_) + (if (gx#identifier? _%L9236%_) (cons (gx#datum->syntax '#f 'define-values) - (cons (cons _%L9137%_ '()) + (cons (cons _%L9236%_ '()) (cons (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g91549157%_ + (foldr (lambda (_%g92539256%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g91559160%_) - (cons _%g91549157%_ _%g91559160%_)) + _%g92549259%_) + (cons _%g92539256%_ _%g92549259%_)) '() - _%L9135%_)) + _%L9234%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (_%g90549078%_ _%g90559082%_))) - _%clauses90729131%_ - _%hd90629099%_)))))) + (_%g91539177%_ _%g91549181%_))) + _%clauses91719230%_ + _%hd91619198%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop90679111%_ - _%target90649105%_ + (_%loop91669210%_ + _%target91639204%_ '())) - (_%g90549078%_ - _%g90559082%_))))) - (_%g90549078%_ _%g90559082%_)))) - (_%g90549078%_ _%g90559082%_)))) - (_%g90549078%_ _%g90559082%_))))) - (_%g90539163%_ _%$stx9050%_)))) + (_%g91539177%_ + _%g91549181%_))))) + (_%g91539177%_ _%g91549181%_)))) + (_%g91539177%_ _%g91549181%_)))) + (_%g91539177%_ _%g91549181%_))))) + (_%g91529262%_ _%$stx9149%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#defvalues| - (lambda (_%$stx9168%_) - (let* ((_%g91729190%_ - (lambda (_%g91739186%_) + (lambda (_%$stx9267%_) + (let* ((_%g92719289%_ + (lambda (_%g92729285%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g91739186%_))) - (_%g91719245%_ - (lambda (_%g91739194%_) - (if (gx#stx-pair? _%g91739194%_) - (let ((_%e91769197%_ (gx#syntax-e _%g91739194%_))) - (let ((_%hd91779201%_ + _%g92729285%_))) + (_%g92709344%_ + (lambda (_%g92729293%_) + (if (gx#stx-pair? _%g92729293%_) + (let ((_%e92759296%_ (gx#syntax-e _%g92729293%_))) + (let ((_%hd92769300%_ (let () (declare (not safe)) - (##car _%e91769197%_))) - (_%tl91789204%_ + (##car _%e92759296%_))) + (_%tl92779303%_ (let () (declare (not safe)) - (##cdr _%e91769197%_)))) - (if (gx#stx-pair? _%tl91789204%_) - (let ((_%e91799207%_ - (gx#syntax-e _%tl91789204%_))) - (let ((_%hd91809211%_ + (##cdr _%e92759296%_)))) + (if (gx#stx-pair? _%tl92779303%_) + (let ((_%e92789306%_ + (gx#syntax-e _%tl92779303%_))) + (let ((_%hd92799310%_ (let () (declare (not safe)) - (##car _%e91799207%_))) - (_%tl91819214%_ + (##car _%e92789306%_))) + (_%tl92809313%_ (let () (declare (not safe)) - (##cdr _%e91799207%_)))) - (if (gx#stx-pair? _%tl91819214%_) - (let ((_%e91829217%_ - (gx#syntax-e _%tl91819214%_))) - (let ((_%hd91839221%_ + (##cdr _%e92789306%_)))) + (if (gx#stx-pair? _%tl92809313%_) + (let ((_%e92819316%_ + (gx#syntax-e _%tl92809313%_))) + (let ((_%hd92829320%_ (let () (declare (not safe)) - (##car _%e91829217%_))) - (_%tl91849224%_ + (##car _%e92819316%_))) + (_%tl92839323%_ (let () (declare (not safe)) - (##cdr _%e91829217%_)))) - (if (gx#stx-null? _%tl91849224%_) - ((lambda (_%L9227%_ _%L9229%_) + (##cdr _%e92819316%_)))) + (if (gx#stx-null? _%tl92839323%_) + ((lambda (_%L9326%_ _%L9328%_) (if (gx#identifier-list? - _%L9229%_) + _%L9328%_) (cons (gx#datum->syntax '#f 'define-values) - (cons _%L9229%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L9227%_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g91729190%_ - _%g91739194%_))) - _%hd91839221%_ - _%hd91809211%_) - (_%g91729190%_ _%g91739194%_)))) - (_%g91729190%_ _%g91739194%_)))) - (_%g91729190%_ _%g91739194%_)))) - (_%g91729190%_ _%g91739194%_))))) - (_%g91719245%_ _%$stx9168%_)))) + (cons _%L9328%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L9326%_ '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g92719289%_ + _%g92729293%_))) + _%hd92829320%_ + _%hd92799310%_) + (_%g92719289%_ _%g92729293%_)))) + (_%g92719289%_ _%g92729293%_)))) + (_%g92719289%_ _%g92729293%_)))) + (_%g92719289%_ _%g92729293%_))))) + (_%g92709344%_ _%$stx9267%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#case| - (lambda (_%$stx9249%_) - (let* ((_%g92539277%_ - (lambda (_%g92549273%_) + (lambda (_%$stx9348%_) + (let* ((_%g93529376%_ + (lambda (_%g93539372%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g92549273%_))) - (_%g92529362%_ - (lambda (_%g92549281%_) - (if (gx#stx-pair? _%g92549281%_) - (let ((_%e92579284%_ (gx#syntax-e _%g92549281%_))) - (let ((_%hd92589288%_ + _%g93539372%_))) + (_%g93519461%_ + (lambda (_%g93539380%_) + (if (gx#stx-pair? _%g93539380%_) + (let ((_%e93569383%_ (gx#syntax-e _%g93539380%_))) + (let ((_%hd93579387%_ (let () (declare (not safe)) - (##car _%e92579284%_))) - (_%tl92599291%_ + (##car _%e93569383%_))) + (_%tl93589390%_ (let () (declare (not safe)) - (##cdr _%e92579284%_)))) - (if (gx#stx-pair? _%tl92599291%_) - (let ((_%e92609294%_ - (gx#syntax-e _%tl92599291%_))) - (let ((_%hd92619298%_ + (##cdr _%e93569383%_)))) + (if (gx#stx-pair? _%tl93589390%_) + (let ((_%e93599393%_ + (gx#syntax-e _%tl93589390%_))) + (let ((_%hd93609397%_ (let () (declare (not safe)) - (##car _%e92609294%_))) - (_%tl92629301%_ + (##car _%e93599393%_))) + (_%tl93619400%_ (let () (declare (not safe)) - (##cdr _%e92609294%_)))) - (if (gx#stx-pair/null? _%tl92629301%_) - (let ((_g20916_ + (##cdr _%e93599393%_)))) + (if (gx#stx-pair/null? _%tl93619400%_) + (let ((_g21015_ (gx#syntax-split-splice - _%tl92629301%_ + _%tl93619400%_ '0))) (begin - (let ((_g20917_ + (let ((_g21016_ (let () (declare (not safe)) - (if (##values? _g20916_) - (##vector-length - _g20916_) + (if (##values? _g21015_) + (##values-length + _g21015_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20917_ 2))) + (##fx= _g21016_ 2))) (error "Context expects 2 values" - _g20917_))) - (let ((_%target92639304%_ + _g21016_))) + (let ((_%target93629403%_ (let () (declare (not safe)) - (##vector-ref _g20916_ 0))) - (_%tl92659307%_ + (##values-ref _g21015_ 0))) + (_%tl93649406%_ (let () (declare (not safe)) - (##vector-ref _g20916_ 1)))) - (if (gx#stx-null? _%tl92659307%_) - (letrec ((_%loop92669310%_ - (lambda (_%hd92649314%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause92709317%_) - (if (gx#stx-pair? _%hd92649314%_) - (let ((_%e92679320%_ (gx#syntax-e _%hd92649314%_))) - (let ((_%lp-hd92689324%_ + (##values-ref _g21015_ 1)))) + (if (gx#stx-null? _%tl93649406%_) + (letrec ((_%loop93659409%_ + (lambda (_%hd93639413%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clause93699416%_) + (if (gx#stx-pair? _%hd93639413%_) + (let ((_%e93669419%_ (gx#syntax-e _%hd93639413%_))) + (let ((_%lp-hd93679423%_ (let () (declare (not safe)) - (##car _%e92679320%_))) - (_%lp-tl92699327%_ + (##car _%e93669419%_))) + (_%lp-tl93689426%_ (let () (declare (not safe)) - (##cdr _%e92679320%_)))) - (_%loop92669310%_ - _%lp-tl92699327%_ - (cons _%lp-hd92689324%_ _%clause92709317%_)))) - (let ((_%clause92719330%_ - (reverse _%clause92709317%_))) - ((lambda (_%L9334%_ _%L9336%_) + (##cdr _%e93669419%_)))) + (_%loop93659409%_ + _%lp-tl93689426%_ + (cons _%lp-hd93679423%_ _%clause93699416%_)))) + (let ((_%clause93709429%_ + (reverse _%clause93699416%_))) + ((lambda (_%L9433%_ _%L9435%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) - (cons _%L9336%_ '())) + (cons _%L9435%_ '())) (cons (cons (gx#datum->syntax '#f '~case) (cons (gx#datum->syntax '#f '$e) - (foldr (lambda (_%g93539356%_ + (foldr (lambda (_%g94529455%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g93549359%_) - (cons _%g93539356%_ _%g93549359%_)) + _%g94539458%_) + (cons _%g94529455%_ _%g94539458%_)) '() - _%L9334%_))) + _%L9433%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%clause92719330%_ - _%hd92619298%_)))))) + _%clause93709429%_ + _%hd93609397%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop92669310%_ - _%target92639304%_ + (_%loop93659409%_ + _%target93629403%_ '())) - (_%g92539277%_ - _%g92549281%_))))) - (_%g92539277%_ _%g92549281%_)))) - (_%g92539277%_ _%g92549281%_)))) - (_%g92539277%_ _%g92549281%_))))) - (_%g92529362%_ _%$stx9249%_)))) + (_%g93529376%_ + _%g93539380%_))))) + (_%g93529376%_ _%g93539380%_)))) + (_%g93529376%_ _%g93539380%_)))) + (_%g93529376%_ _%g93539380%_))))) + (_%g93519461%_ _%$stx9348%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case| - (lambda (_%stx9367%_) - (letrec ((_%parse-clauses9370%_ - (lambda (_%e11845%_ _%clauses11847%_) - (let _%lp11849%_ ((_%rest11852%_ _%clauses11847%_) - (_%datums11854%_ '()) - (_%dispatch11855%_ '()) - (_%default11856%_ '#f)) - (let* ((_%__stx1964819649%_ _%rest11852%_) - (_%g1185911871%_ + (lambda (_%stx9466%_) + (letrec ((_%parse-clauses9469%_ + (lambda (_%e11944%_ _%clauses11946%_) + (let _%lp11948%_ ((_%rest11951%_ _%clauses11946%_) + (_%datums11953%_ '()) + (_%dispatch11954%_ '()) + (_%default11955%_ '#f)) + (let* ((_%__stx1974719748%_ _%rest11951%_) + (_%g1195811970%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1964819649%_)))) - (let ((_%__kont1965119652%_ - (lambda (_%L11903%_ _%L11905%_) - (let* ((_%__stx1955219553%_ _%L11905%_) - (_%g1192311996%_ + _%__stx1974719748%_)))) + (let ((_%__kont1975019751%_ + (lambda (_%L12002%_ _%L12004%_) + (let* ((_%__stx1965119652%_ _%L12004%_) + (_%g1202212095%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1955219553%_)))) - (let ((_%__kont1955519556%_ - (lambda (_%L12361%_) - (if (gx#stx-null? _%L11903%_) - (let* ((_%g1237612384%_ - (lambda (_%g1237712380%_) + _%__stx1965119652%_)))) + (let ((_%__kont1965419655%_ + (lambda (_%L12460%_) + (if (gx#stx-null? _%L12002%_) + (let* ((_%g1247512483%_ + (lambda (_%g1247612479%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1237712380%_))) - (_%g1237512403%_ - (lambda (_%g1237712388%_) - ((lambda (_%L12391%_) - (_%lp11849%_ + _%g1247612479%_))) + (_%g1247412502%_ + (lambda (_%g1247612487%_) + ((lambda (_%L12490%_) + (_%lp11948%_ '() - _%datums11854%_ - _%dispatch11855%_ - (cons _%L12361%_ + _%datums11953%_ + _%dispatch11954%_ + (cons _%L12460%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L12391%_ '())))) - _%g1237712388%_)))) + (cons _%L12490%_ '())))) + _%g1247612487%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1237512403%_ _%e11845%_)) + (_%g1247412502%_ _%e11944%_)) (gx#raise-syntax-error '#f '"Misplaced else clause" - _%stx9367%_ - _%L11905%_)))) - (_%__kont1955719558%_ - (lambda (_%L12301%_) - (if (gx#stx-null? _%L11903%_) - (_%lp11849%_ + _%stx9466%_ + _%L12004%_)))) + (_%__kont1965619657%_ + (lambda (_%L12400%_) + (if (gx#stx-null? _%L12002%_) + (_%lp11948%_ '() - _%datums11854%_ - _%dispatch11855%_ + _%datums11953%_ + _%dispatch11954%_ (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_%g1231512318%_ + (foldr (lambda (_%g1241412417%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1231612321%_) - (cons _%g1231512318%_ _%g1231612321%_)) + _%g1241512420%_) + (cons _%g1241412417%_ _%g1241512420%_)) '() - _%L12301%_))) + _%L12400%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"Misplaced else clause" - _%stx9367%_ - _%L11905%_)))) - (_%__kont1956119562%_ - (lambda (_%L12186%_ _%L12188%_) - (if (null? (foldr (lambda (_%g1220612209%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1220712212%_) - (cons _%g1220612209%_ _%g1220712212%_)) + _%stx9466%_ + _%L12004%_)))) + (_%__kont1966019661%_ + (lambda (_%L12285%_ _%L12287%_) + (if (null? (foldr (lambda (_%g1230512308%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1230612311%_) + (cons _%g1230512308%_ _%g1230612311%_)) '() - _%L12188%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp11849%_ - _%L11903%_ - _%datums11854%_ - _%dispatch11855%_ - _%default11856%_) - (let* ((_%g1221512223%_ - (lambda (_%g1221612219%_) + _%L12287%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp11948%_ + _%L12002%_ + _%datums11953%_ + _%dispatch11954%_ + _%default11955%_) + (let* ((_%g1231412322%_ + (lambda (_%g1231512318%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1221612219%_))) - (_%g1221412250%_ - (lambda (_%g1221612227%_) - ((lambda (_%L12230%_) - (_%lp11849%_ - _%L11903%_ + _%g1231512318%_))) + (_%g1231312349%_ + (lambda (_%g1231512326%_) + ((lambda (_%L12329%_) + (_%lp11948%_ + _%L12002%_ (cons (map gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g1224112244%_ - _%g1224212247%_) - (cons _%g1224112244%_ - _%g1224212247%_)) + (foldr (lambda (_%g1234012343%_ + _%g1234112346%_) + (cons _%g1234012343%_ + _%g1234112346%_)) '() - _%L12188%_)) - _%datums11854%_) - (cons (cons _%L12186%_ (cons _%L12230%_ '())) - _%dispatch11855%_) - _%default11856%_)) - _%g1221612227%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1221412250%_ - _%e11845%_))))) - (_%__kont1956519566%_ - (lambda (_%L12073%_ _%L12075%_) - (if (null? (foldr (lambda (_%g1209412097%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1209512100%_) - (cons _%g1209412097%_ _%g1209512100%_)) + _%L12287%_)) + _%datums11953%_) + (cons (cons _%L12285%_ (cons _%L12329%_ '())) + _%dispatch11954%_) + _%default11955%_)) + _%g1231512326%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1231312349%_ + _%e11944%_))))) + (_%__kont1966419665%_ + (lambda (_%L12172%_ _%L12174%_) + (if (null? (foldr (lambda (_%g1219312196%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1219412199%_) + (cons _%g1219312196%_ _%g1219412199%_)) '() - _%L12075%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp11849%_ - _%L11903%_ - _%datums11854%_ - _%dispatch11855%_ - _%default11856%_) - (_%lp11849%_ - _%L11903%_ + _%L12174%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp11948%_ + _%L12002%_ + _%datums11953%_ + _%dispatch11954%_ + _%default11955%_) + (_%lp11948%_ + _%L12002%_ (cons (map gx#stx-e - (foldr (lambda (_%g1210212105%_ + (foldr (lambda (_%g1220112204%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1210312108%_) - (cons _%g1210212105%_ _%g1210312108%_)) + _%g1220212207%_) + (cons _%g1220112204%_ _%g1220212207%_)) '() - _%L12075%_)) - _%datums11854%_) + _%L12174%_)) + _%datums11953%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_%g1211012113%_ + (foldr (lambda (_%g1220912212%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1211112116%_) - (cons _%g1211012113%_ _%g1211112116%_)) + _%g1221012215%_) + (cons _%g1220912212%_ _%g1221012215%_)) '() - _%L12073%_)) - _%dispatch11855%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%default11856%_))))) - (let* ((_%__match1964519646%_ - (lambda (_%e1197012003%_ - _%hd1197112007%_ - _%tl1197212010%_ - _%__splice1956719568%_ - _%target1197312013%_ - _%tl1197512016%_) - (letrec ((_%loop1197612019%_ - (lambda (_%hd1197412023%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%datum1198012026%_) - (if (gx#stx-pair? _%hd1197412023%_) - (let ((_%e1197712029%_ (gx#syntax-e _%hd1197412023%_))) - (let ((_%lp-tl1197912036%_ + _%L12172%_)) + _%dispatch11954%_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%default11955%_))))) + (let* ((_%__match1974419745%_ + (lambda (_%e1206912102%_ + _%hd1207012106%_ + _%tl1207112109%_ + _%__splice1966619667%_ + _%target1207212112%_ + _%tl1207412115%_) + (letrec ((_%loop1207512118%_ + (lambda (_%hd1207312122%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%datum1207912125%_) + (if (gx#stx-pair? _%hd1207312122%_) + (let ((_%e1207612128%_ (gx#syntax-e _%hd1207312122%_))) + (let ((_%lp-tl1207812135%_ (let () (declare (not safe)) - (##cdr _%e1197712029%_))) - (_%lp-hd1197812033%_ + (##cdr _%e1207612128%_))) + (_%lp-hd1207712132%_ (let () (declare (not safe)) - (##car _%e1197712029%_)))) - (_%loop1197612019%_ - _%lp-tl1197912036%_ - (cons _%lp-hd1197812033%_ _%datum1198012026%_)))) - (let ((_%datum1198112039%_ - (reverse _%datum1198012026%_))) - (if (gx#stx-pair/null? _%tl1197212010%_) - (let ((_%__splice1956919570%_ + (##car _%e1207612128%_)))) + (_%loop1207512118%_ + _%lp-tl1207812135%_ + (cons _%lp-hd1207712132%_ _%datum1207912125%_)))) + (let ((_%datum1208012138%_ + (reverse _%datum1207912125%_))) + (if (gx#stx-pair/null? _%tl1207112109%_) + (let ((_%__splice1966819669%_ (gx#syntax-split-splice - _%tl1197212010%_ + _%tl1207112109%_ '0))) - (let ((_%tl1198412046%_ + (let ((_%tl1208312145%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956919570%_ + _%__splice1966819669%_ '1))) - (_%target1198212043%_ + (_%target1208112142%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956919570%_ + _%__splice1966819669%_ '0)))) - (if (gx#stx-null? _%tl1198412046%_) - (letrec ((_%loop1198512049%_ - (lambda (_%hd1198312053%_ - _%body1198912056%_) + (if (gx#stx-null? _%tl1208312145%_) + (letrec ((_%loop1208412148%_ + (lambda (_%hd1208212152%_ + _%body1208812155%_) (if (gx#stx-pair? - _%hd1198312053%_) - (let ((_%e1198612059%_ + _%hd1208212152%_) + (let ((_%e1208512158%_ (gx#syntax-e - _%hd1198312053%_))) - (let ((_%lp-tl1198812066%_ + _%hd1208212152%_))) + (let ((_%lp-tl1208712165%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e1198612059%_))) - (_%lp-hd1198712063%_ - (let () (declare (not safe)) (##car _%e1198612059%_)))) - (_%loop1198512049%_ - _%lp-tl1198812066%_ - (cons _%lp-hd1198712063%_ _%body1198912056%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body1199012069%_ - (reverse _%body1198912056%_))) - (_%__kont1956519566%_ - _%body1199012069%_ - _%datum1198112039%_)))))) - (_%loop1198512049%_ - _%target1198212043%_ + (##cdr _%e1208512158%_))) + (_%lp-hd1208612162%_ + (let () (declare (not safe)) (##car _%e1208512158%_)))) + (_%loop1208412148%_ + _%lp-tl1208712165%_ + (cons _%lp-hd1208612162%_ _%body1208812155%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%body1208912168%_ + (reverse _%body1208812155%_))) + (_%__kont1966419665%_ + _%body1208912168%_ + _%datum1208012138%_)))))) + (_%loop1208412148%_ + _%target1208112142%_ '())) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1192311996%_)))))))) + (_%g1202212095%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1197612019%_ - _%target1197312013%_ + (_%loop1207512118%_ + _%target1207212112%_ '())))) - (_%__match1963119632%_ - (lambda (_%e1195012126%_ - _%hd1195112130%_ - _%tl1195212133%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) - (letrec ((_%loop1195612142%_ - (lambda (_%hd1195412146%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%datum1196012149%_) - (if (gx#stx-pair? _%hd1195412146%_) - (let ((_%e1195712152%_ (gx#syntax-e _%hd1195412146%_))) - (let ((_%lp-tl1195912159%_ + (_%__match1973019731%_ + (lambda (_%e1204912225%_ + _%hd1205012229%_ + _%tl1205112232%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) + (letrec ((_%loop1205512241%_ + (lambda (_%hd1205312245%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%datum1205912248%_) + (if (gx#stx-pair? _%hd1205312245%_) + (let ((_%e1205612251%_ (gx#syntax-e _%hd1205312245%_))) + (let ((_%lp-tl1205812258%_ (let () (declare (not safe)) - (##cdr _%e1195712152%_))) - (_%lp-hd1195812156%_ + (##cdr _%e1205612251%_))) + (_%lp-hd1205712255%_ (let () (declare (not safe)) - (##car _%e1195712152%_)))) - (_%loop1195612142%_ - _%lp-tl1195912159%_ - (cons _%lp-hd1195812156%_ _%datum1196012149%_)))) - (let ((_%datum1196112162%_ - (reverse _%datum1196012149%_))) - (if (gx#stx-pair? _%tl1195212133%_) - (let ((_%e1196212166%_ - (gx#syntax-e _%tl1195212133%_))) - (let ((_%tl1196412173%_ + (##car _%e1205612251%_)))) + (_%loop1205512241%_ + _%lp-tl1205812258%_ + (cons _%lp-hd1205712255%_ _%datum1205912248%_)))) + (let ((_%datum1206012261%_ + (reverse _%datum1205912248%_))) + (if (gx#stx-pair? _%tl1205112232%_) + (let ((_%e1206112265%_ + (gx#syntax-e _%tl1205112232%_))) + (let ((_%tl1206312272%_ (let () (declare (not safe)) - (##cdr _%e1196212166%_))) - (_%hd1196312170%_ + (##cdr _%e1206112265%_))) + (_%hd1206212269%_ (let () (declare (not safe)) - (##car _%e1196212166%_)))) - (if (gx#identifier? _%hd1196312170%_) + (##car _%e1206112265%_)))) + (if (gx#identifier? _%hd1206212269%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20918_| - _%hd1196312170%_) - (if (gx#stx-pair? _%tl1196412173%_) - (let ((_%e1196512176%_ + |gerbil/core/sugar~Sugar-2[1]#_g21017_| + _%hd1206212269%_) + (if (gx#stx-pair? _%tl1206312272%_) + (let ((_%e1206412275%_ (gx#syntax-e - _%tl1196412173%_))) - (let ((_%tl1196712183%_ + _%tl1206312272%_))) + (let ((_%tl1206612282%_ (let () (declare (not safe)) - (##cdr _%e1196512176%_))) - (_%hd1196612180%_ + (##cdr _%e1206412275%_))) + (_%hd1206512279%_ (let () (declare (not safe)) - (##car _%e1196512176%_)))) + (##car _%e1206412275%_)))) (if (gx#stx-null? - _%tl1196712183%_) - (_%__kont1956119562%_ - _%hd1196612180%_ - _%datum1196112162%_) - (_%__match1964519646%_ - _%e1195012126%_ - _%hd1195112130%_ - _%tl1195212133%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_)))) - (_%__match1964519646%_ - _%e1195012126%_ - _%hd1195112130%_ - _%tl1195212133%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_)) - (_%__match1964519646%_ - _%e1195012126%_ - _%hd1195112130%_ - _%tl1195212133%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_)) - (_%__match1964519646%_ - _%e1195012126%_ - _%hd1195112130%_ - _%tl1195212133%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_)))) - (_%__match1964519646%_ - _%e1195012126%_ - _%hd1195112130%_ - _%tl1195212133%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1195612142%_ - _%target1195312136%_ + _%tl1206612282%_) + (_%__kont1966019661%_ + _%hd1206512279%_ + _%datum1206012261%_) + (_%__match1974419745%_ + _%e1204912225%_ + _%hd1205012229%_ + _%tl1205112232%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_)))) + (_%__match1974419745%_ + _%e1204912225%_ + _%hd1205012229%_ + _%tl1205112232%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_)) + (_%__match1974419745%_ + _%e1204912225%_ + _%hd1205012229%_ + _%tl1205112232%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_)) + (_%__match1974419745%_ + _%e1204912225%_ + _%hd1205012229%_ + _%tl1205112232%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_)))) + (_%__match1974419745%_ + _%e1204912225%_ + _%hd1205012229%_ + _%tl1205112232%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1205512241%_ + _%target1205212235%_ '())))) - (_%__match1961719618%_ - (lambda (_%e1193612261%_ - _%hd1193712265%_ - _%tl1193812268%_ - _%__splice1955919560%_ - _%target1193912271%_ - _%tl1194112274%_) - (letrec ((_%loop1194212277%_ - (lambda (_%hd1194012281%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body1194612284%_) - (if (gx#stx-pair? _%hd1194012281%_) - (let ((_%e1194312287%_ (gx#syntax-e _%hd1194012281%_))) - (let ((_%lp-tl1194512294%_ + (_%__match1971619717%_ + (lambda (_%e1203512360%_ + _%hd1203612364%_ + _%tl1203712367%_ + _%__splice1965819659%_ + _%target1203812370%_ + _%tl1204012373%_) + (letrec ((_%loop1204112376%_ + (lambda (_%hd1203912380%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body1204512383%_) + (if (gx#stx-pair? _%hd1203912380%_) + (let ((_%e1204212386%_ (gx#syntax-e _%hd1203912380%_))) + (let ((_%lp-tl1204412393%_ (let () (declare (not safe)) - (##cdr _%e1194312287%_))) - (_%lp-hd1194412291%_ + (##cdr _%e1204212386%_))) + (_%lp-hd1204312390%_ (let () (declare (not safe)) - (##car _%e1194312287%_)))) - (_%loop1194212277%_ - _%lp-tl1194512294%_ - (cons _%lp-hd1194412291%_ _%body1194612284%_)))) - (let ((_%body1194712297%_ (reverse _%body1194612284%_))) - (_%__kont1955719558%_ _%body1194712297%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1194212277%_ - _%target1193912271%_ + (##car _%e1204212386%_)))) + (_%loop1204112376%_ + _%lp-tl1204412393%_ + (cons _%lp-hd1204312390%_ _%body1204512383%_)))) + (let ((_%body1204612396%_ (reverse _%body1204512383%_))) + (_%__kont1965619657%_ _%body1204612396%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1204112376%_ + _%target1203812370%_ '()))))) - (if (gx#stx-pair? _%__stx1955219553%_) - (let ((_%e1192612331%_ + (if (gx#stx-pair? _%__stx1965119652%_) + (let ((_%e1202512430%_ (gx#syntax-e - _%__stx1955219553%_))) - (let ((_%tl1192812338%_ + _%__stx1965119652%_))) + (let ((_%tl1202712437%_ (let () (declare (not safe)) - (##cdr _%e1192612331%_))) - (_%hd1192712335%_ + (##cdr _%e1202512430%_))) + (_%hd1202612434%_ (let () (declare (not safe)) - (##car _%e1192612331%_)))) + (##car _%e1202512430%_)))) (if (gx#identifier? - _%hd1192712335%_) + _%hd1202612434%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20919_| - _%hd1192712335%_) + |gerbil/core/sugar~Sugar-2[1]#_g21018_| + _%hd1202612434%_) (if (gx#stx-pair? - _%tl1192812338%_) - (let ((_%e1192912341%_ + _%tl1202712437%_) + (let ((_%e1202812440%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1192812338%_))) - (let ((_%tl1193112348%_ + (gx#syntax-e _%tl1202712437%_))) + (let ((_%tl1203012447%_ (let () (declare (not safe)) - (##cdr _%e1192912341%_))) - (_%hd1193012345%_ + (##cdr _%e1202812440%_))) + (_%hd1202912444%_ (let () (declare (not safe)) - (##car _%e1192912341%_)))) - (if (gx#identifier? _%hd1193012345%_) + (##car _%e1202812440%_)))) + (if (gx#identifier? _%hd1202912444%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20920_| - _%hd1193012345%_) - (if (gx#stx-pair? _%tl1193112348%_) - (let ((_%e1193212351%_ - (gx#syntax-e _%tl1193112348%_))) - (let ((_%tl1193412358%_ + |gerbil/core/sugar~Sugar-2[1]#_g21019_| + _%hd1202912444%_) + (if (gx#stx-pair? _%tl1203012447%_) + (let ((_%e1203112450%_ + (gx#syntax-e _%tl1203012447%_))) + (let ((_%tl1203312457%_ (let () (declare (not safe)) - (##cdr _%e1193212351%_))) - (_%hd1193312355%_ + (##cdr _%e1203112450%_))) + (_%hd1203212454%_ (let () (declare (not safe)) - (##car _%e1193212351%_)))) - (if (gx#stx-null? _%tl1193412358%_) - (_%__kont1955519556%_ - _%hd1193312355%_) + (##car _%e1203112450%_)))) + (if (gx#stx-null? _%tl1203312457%_) + (_%__kont1965419655%_ + _%hd1203212454%_) (if (gx#stx-pair/null? - _%tl1192812338%_) - (let ((_%__splice1955919560%_ + _%tl1202712437%_) + (let ((_%__splice1965819659%_ (gx#syntax-split-splice - _%tl1192812338%_ + _%tl1202712437%_ '0))) - (let ((_%tl1194112274%_ + (let ((_%tl1204012373%_ (let () (declare (not safe)) (##vector-ref - _%__splice1955919560%_ + _%__splice1965819659%_ '1))) - (_%target1193912271%_ + (_%target1203812370%_ (let () (declare (not safe)) (##vector-ref - _%__splice1955919560%_ + _%__splice1965819659%_ '0)))) (if (gx#stx-null? - _%tl1194112274%_) - (_%__match1961719618%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1955919560%_ - _%target1193912271%_ - _%tl1194112274%_) + _%tl1204012373%_) + (_%__match1971619717%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1965819659%_ + _%target1203812370%_ + _%tl1204012373%_) (if (gx#stx-pair/null? - _%hd1192712335%_) - (let ((_%__splice1956319564%_ + _%hd1202612434%_) + (let ((_%__splice1966219663%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%hd1192712335%_ '0))) - (let ((_%tl1195512139%_ + (gx#syntax-split-splice _%hd1202612434%_ '0))) + (let ((_%tl1205412238%_ (let () (declare (not safe)) - (##vector-ref _%__splice1956319564%_ '1))) - (_%target1195312136%_ + (##vector-ref _%__splice1966219663%_ '1))) + (_%target1205212235%_ (let () (declare (not safe)) - (##vector-ref _%__splice1956319564%_ '0)))) - (if (gx#stx-null? _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) - (let () (declare (not safe)) (_%g1192311996%_))))) - (let () (declare (not safe)) (_%g1192311996%_)))))) + (##vector-ref _%__splice1966219663%_ '0)))) + (if (gx#stx-null? _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) + (let () (declare (not safe)) (_%g1202212095%_))))) + (let () (declare (not safe)) (_%g1202212095%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd1192712335%_) - (let ((_%__splice1956319564%_ + _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1202612434%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '1))) - (_%target1195312136%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '0)))) (if (gx#stx-null? - _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1192311996%_))))))) - (if (gx#stx-pair/null? _%tl1192812338%_) - (let ((_%__splice1955919560%_ + (_%g1202212095%_))))))) + (if (gx#stx-pair/null? _%tl1202712437%_) + (let ((_%__splice1965819659%_ (gx#syntax-split-splice - _%tl1192812338%_ + _%tl1202712437%_ '0))) - (let ((_%tl1194112274%_ + (let ((_%tl1204012373%_ (let () (declare (not safe)) (##vector-ref - _%__splice1955919560%_ + _%__splice1965819659%_ '1))) - (_%target1193912271%_ + (_%target1203812370%_ (let () (declare (not safe)) (##vector-ref - _%__splice1955919560%_ + _%__splice1965819659%_ '0)))) - (if (gx#stx-null? _%tl1194112274%_) - (_%__match1961719618%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1955919560%_ - _%target1193912271%_ - _%tl1194112274%_) + (if (gx#stx-null? _%tl1204012373%_) + (_%__match1971619717%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1965819659%_ + _%target1203812370%_ + _%tl1204012373%_) (if (gx#stx-pair/null? - _%hd1192712335%_) - (let ((_%__splice1956319564%_ + _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1202612434%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '1))) - (_%target1195312136%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '0)))) (if (gx#stx-null? - _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1192311996%_)))))) - (if (gx#stx-pair/null? _%hd1192712335%_) - (let ((_%__splice1956319564%_ + (_%g1202212095%_)))))) + (if (gx#stx-pair/null? _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1202612434%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '1))) - (_%target1195312136%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '0)))) (if (gx#stx-null? - _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1192311996%_))))) - (if (gx#stx-pair/null? _%tl1192812338%_) - (let ((_%__splice1955919560%_ + (_%g1202212095%_))))) + (if (gx#stx-pair/null? _%tl1202712437%_) + (let ((_%__splice1965819659%_ (gx#syntax-split-splice - _%tl1192812338%_ + _%tl1202712437%_ '0))) - (let ((_%tl1194112274%_ + (let ((_%tl1204012373%_ (let () (declare (not safe)) (##vector-ref - _%__splice1955919560%_ + _%__splice1965819659%_ '1))) - (_%target1193912271%_ + (_%target1203812370%_ (let () (declare (not safe)) (##vector-ref - _%__splice1955919560%_ + _%__splice1965819659%_ '0)))) - (if (gx#stx-null? _%tl1194112274%_) - (_%__match1961719618%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1955919560%_ - _%target1193912271%_ - _%tl1194112274%_) + (if (gx#stx-null? _%tl1204012373%_) + (_%__match1971619717%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1965819659%_ + _%target1203812370%_ + _%tl1204012373%_) (if (gx#stx-pair/null? - _%hd1192712335%_) - (let ((_%__splice1956319564%_ + _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1202612434%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '1))) - (_%target1195312136%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '0)))) (if (gx#stx-null? - _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1192311996%_)))))) - (if (gx#stx-pair/null? _%hd1192712335%_) - (let ((_%__splice1956319564%_ + (_%g1202212095%_)))))) + (if (gx#stx-pair/null? _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1202612434%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '1))) - (_%target1195312136%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '0)))) - (if (gx#stx-null? _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + (if (gx#stx-null? _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1192311996%_))))) - (if (gx#stx-pair/null? _%tl1192812338%_) - (let ((_%__splice1955919560%_ + (_%g1202212095%_))))) + (if (gx#stx-pair/null? _%tl1202712437%_) + (let ((_%__splice1965819659%_ (gx#syntax-split-splice - _%tl1192812338%_ + _%tl1202712437%_ '0))) - (let ((_%tl1194112274%_ + (let ((_%tl1204012373%_ (let () (declare (not safe)) (##vector-ref - _%__splice1955919560%_ + _%__splice1965819659%_ '1))) - (_%target1193912271%_ + (_%target1203812370%_ (let () (declare (not safe)) (##vector-ref - _%__splice1955919560%_ + _%__splice1965819659%_ '0)))) - (if (gx#stx-null? _%tl1194112274%_) - (_%__match1961719618%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1955919560%_ - _%target1193912271%_ - _%tl1194112274%_) - (if (gx#stx-pair/null? _%hd1192712335%_) - (let ((_%__splice1956319564%_ + (if (gx#stx-null? _%tl1204012373%_) + (_%__match1971619717%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1965819659%_ + _%target1203812370%_ + _%tl1204012373%_) + (if (gx#stx-pair/null? _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1202612434%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '1))) - (_%target1195312136%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '0)))) (if (gx#stx-null? - _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1192311996%_)))))) - (if (gx#stx-pair/null? _%hd1192712335%_) - (let ((_%__splice1956319564%_ + (_%g1202212095%_)))))) + (if (gx#stx-pair/null? _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1202612434%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '1))) - (_%target1195312136%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '0)))) - (if (gx#stx-null? _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + (if (gx#stx-null? _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1192311996%_))))))) - (if (gx#stx-pair/null? _%tl1192812338%_) - (let ((_%__splice1955919560%_ - (gx#syntax-split-splice _%tl1192812338%_ '0))) - (let ((_%tl1194112274%_ + (_%g1202212095%_))))))) + (if (gx#stx-pair/null? _%tl1202712437%_) + (let ((_%__splice1965819659%_ + (gx#syntax-split-splice _%tl1202712437%_ '0))) + (let ((_%tl1204012373%_ (let () (declare (not safe)) - (##vector-ref _%__splice1955919560%_ '1))) - (_%target1193912271%_ + (##vector-ref _%__splice1965819659%_ '1))) + (_%target1203812370%_ (let () (declare (not safe)) - (##vector-ref _%__splice1955919560%_ '0)))) - (if (gx#stx-null? _%tl1194112274%_) - (_%__match1961719618%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1955919560%_ - _%target1193912271%_ - _%tl1194112274%_) - (if (gx#stx-pair/null? _%hd1192712335%_) - (let ((_%__splice1956319564%_ + (##vector-ref _%__splice1965819659%_ '0)))) + (if (gx#stx-null? _%tl1204012373%_) + (_%__match1971619717%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1965819659%_ + _%target1203812370%_ + _%tl1204012373%_) + (if (gx#stx-pair/null? _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1202612434%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '1))) - (_%target1195312136%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '0)))) - (if (gx#stx-null? _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + (if (gx#stx-null? _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1192311996%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1192311996%_)))))) - (if (gx#stx-pair/null? _%hd1192712335%_) - (let ((_%__splice1956319564%_ + (_%g1202212095%_)))))) + (if (gx#stx-pair/null? _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1202612434%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '1))) - (_%target1195312136%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1956319564%_ + _%__splice1966219663%_ '0)))) - (if (gx#stx-null? _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) + (if (gx#stx-null? _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1192311996%_))))) - (let () (declare (not safe)) (_%g1192311996%_))))) - (if (gx#stx-pair/null? _%hd1192712335%_) - (let ((_%__splice1956319564%_ - (gx#syntax-split-splice _%hd1192712335%_ '0))) - (let ((_%tl1195512139%_ + (_%g1202212095%_))))) + (let () (declare (not safe)) (_%g1202212095%_))))) + (if (gx#stx-pair/null? _%hd1202612434%_) + (let ((_%__splice1966219663%_ + (gx#syntax-split-splice _%hd1202612434%_ '0))) + (let ((_%tl1205412238%_ (let () (declare (not safe)) - (##vector-ref _%__splice1956319564%_ '1))) - (_%target1195312136%_ + (##vector-ref _%__splice1966219663%_ '1))) + (_%target1205212235%_ (let () (declare (not safe)) - (##vector-ref _%__splice1956319564%_ '0)))) - (if (gx#stx-null? _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) - (let () (declare (not safe)) (_%g1192311996%_))))) - (let () (declare (not safe)) (_%g1192311996%_)))) + (##vector-ref _%__splice1966219663%_ '0)))) + (if (gx#stx-null? _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) + (let () (declare (not safe)) (_%g1202212095%_))))) + (let () (declare (not safe)) (_%g1202212095%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd1192712335%_) - (let ((_%__splice1956319564%_ + _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1192712335%_ + _%hd1202612434%_ '0))) - (let ((_%tl1195512139%_ + (let ((_%tl1205412238%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice1956319564%_ '1))) - (_%target1195312136%_ + (##vector-ref _%__splice1966219663%_ '1))) + (_%target1205212235%_ (let () (declare (not safe)) - (##vector-ref _%__splice1956319564%_ '0)))) - (if (gx#stx-null? _%tl1195512139%_) - (_%__match1963119632%_ - _%e1192612331%_ - _%hd1192712335%_ - _%tl1192812338%_ - _%__splice1956319564%_ - _%target1195312136%_ - _%tl1195512139%_) - (let () (declare (not safe)) (_%g1192311996%_))))) - (let () (declare (not safe)) (_%g1192311996%_)))))) + (##vector-ref _%__splice1966219663%_ '0)))) + (if (gx#stx-null? _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) + (let () (declare (not safe)) (_%g1202212095%_))))) + (let () (declare (not safe)) (_%g1202212095%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g1192311996%_)))))))) - (_%__kont1965319654%_ + (_%g1202212095%_)))))))) + (_%__kont1975219753%_ (lambda () - (_%check-duplicate-datums9372%_ - _%datums11854%_) - (values (reverse _%datums11854%_) - (reverse _%dispatch11855%_) - (let ((_%$e11882%_ _%default11856%_)) - (if _%$e11882%_ - _%$e11882%_ + (_%check-duplicate-datums9471%_ + _%datums11953%_) + (values (reverse _%datums11953%_) + (reverse _%dispatch11954%_) + (let ((_%$e11981%_ _%default11955%_)) + (if _%$e11981%_ + _%$e11981%_ '#!void)))))) - (let ((_%g1185811886%_ + (let ((_%g1195711985%_ (lambda () - (if (gx#stx-null? _%__stx1964819649%_) - (_%__kont1965319654%_) + (if (gx#stx-null? _%__stx1974719748%_) + (_%__kont1975219753%_) (let () (declare (not safe)) - (_%g1185911871%_)))))) - (if (gx#stx-pair? _%__stx1964819649%_) - (let ((_%e1186311893%_ - (gx#syntax-e _%__stx1964819649%_))) - (let ((_%tl1186511900%_ + (_%g1195811970%_)))))) + (if (gx#stx-pair? _%__stx1974719748%_) + (let ((_%e1196211992%_ + (gx#syntax-e _%__stx1974719748%_))) + (let ((_%tl1196411999%_ (let () (declare (not safe)) - (##cdr _%e1186311893%_))) - (_%hd1186411897%_ + (##cdr _%e1196211992%_))) + (_%hd1196311996%_ (let () (declare (not safe)) - (##car _%e1186311893%_)))) - (_%__kont1965119652%_ - _%tl1186511900%_ - _%hd1186411897%_))) + (##car _%e1196211992%_)))) + (_%__kont1975019751%_ + _%tl1196411999%_ + _%hd1196311996%_))) (let () (declare (not safe)) - (_%g1185811886%_))))))))) - (_%check-duplicate-datums9372%_ - (lambda (_%datums11833%_) - (let ((_%ht11836%_ (make-hash-table))) + (_%g1195711985%_))))))))) + (_%check-duplicate-datums9471%_ + (lambda (_%datums11932%_) + (let ((_%ht11935%_ (make-hash-table))) (for-each - (lambda (_%lst11839%_) + (lambda (_%lst11938%_) (for-each - (lambda (_%datum11842%_) - (if (hash-get _%ht11836%_ _%datum11842%_) + (lambda (_%datum11941%_) + (if (hash-get _%ht11935%_ _%datum11941%_) (gx#raise-syntax-error '#f '"Duplicate datum" - _%stx9367%_ - _%datum11842%_) - (hash-put! _%ht11836%_ _%datum11842%_ '#t))) - _%lst11839%_)) - _%datums11833%_)))) - (_%count-datums9373%_ - (lambda (_%datums11826%_) - (foldl (lambda (_%lst11829%_ _%r11831%_) - (+ (length _%lst11829%_) _%r11831%_)) + _%stx9466%_ + _%datum11941%_) + (hash-put! _%ht11935%_ _%datum11941%_ '#t))) + _%lst11938%_)) + _%datums11932%_)))) + (_%count-datums9472%_ + (lambda (_%datums11925%_) + (foldl (lambda (_%lst11928%_ _%r11930%_) + (+ (length _%lst11928%_) _%r11930%_)) '0 - _%datums11826%_))) - (_%symbolic-datums?9374%_ - (lambda (_%datums11820%_) - (andmap (lambda (_%lst11823%_) - (andmap symbol? _%lst11823%_)) - _%datums11820%_))) - (_%char-datums?9375%_ - (lambda (_%datums11814%_) - (andmap (lambda (_%lst11817%_) (andmap char? _%lst11817%_)) - _%datums11814%_))) - (_%fixnum-datums?9376%_ - (lambda (_%datums11808%_) - (andmap (lambda (_%lst11811%_) - (andmap fixnum? _%lst11811%_)) - _%datums11808%_))) - (_%eq-datums?9377%_ - (lambda (_%datums11791%_) - (andmap (lambda (_%lst11794%_) - (andmap (lambda (_%x11797%_) - (let ((_%$e11800%_ - (symbol? _%x11797%_))) - (if _%$e11800%_ - _%$e11800%_ - (let ((_%$e11804%_ - (keyword? _%x11797%_))) - (if _%$e11804%_ - _%$e11804%_ + _%datums11925%_))) + (_%symbolic-datums?9473%_ + (lambda (_%datums11919%_) + (andmap (lambda (_%lst11922%_) + (andmap symbol? _%lst11922%_)) + _%datums11919%_))) + (_%char-datums?9474%_ + (lambda (_%datums11913%_) + (andmap (lambda (_%lst11916%_) (andmap char? _%lst11916%_)) + _%datums11913%_))) + (_%fixnum-datums?9475%_ + (lambda (_%datums11907%_) + (andmap (lambda (_%lst11910%_) + (andmap fixnum? _%lst11910%_)) + _%datums11907%_))) + (_%eq-datums?9476%_ + (lambda (_%datums11890%_) + (andmap (lambda (_%lst11893%_) + (andmap (lambda (_%x11896%_) + (let ((_%$e11899%_ + (symbol? _%x11896%_))) + (if _%$e11899%_ + _%$e11899%_ + (let ((_%$e11903%_ + (keyword? _%x11896%_))) + (if _%$e11903%_ + _%$e11903%_ (immediate? - _%x11797%_)))))) - _%lst11794%_)) - _%datums11791%_))) - (_%generate-simple-case9378%_ - (lambda (_%e11555%_ - _%datums11557%_ - _%dispatch11558%_ - _%default11559%_) - (let* ((_%g1156111569%_ - (lambda (_%g1156211565%_) + _%x11896%_)))))) + _%lst11893%_)) + _%datums11890%_))) + (_%generate-simple-case9477%_ + (lambda (_%e11654%_ + _%datums11656%_ + _%dispatch11657%_ + _%default11658%_) + (let* ((_%g1166011668%_ + (lambda (_%g1166111664%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1156211565%_))) - (_%g1156011787%_ - (lambda (_%g1156211573%_) - ((lambda (_%L11576%_) - (let _%recur11588%_ ((_%datums11591%_ - _%datums11557%_) - (_%dispatch11593%_ - _%dispatch11558%_)) - (let* ((_%__stx1966619667%_ _%datums11591%_) - (_%g1159611617%_ + _%g1166111664%_))) + (_%g1165911886%_ + (lambda (_%g1166111672%_) + ((lambda (_%L11675%_) + (let _%recur11687%_ ((_%datums11690%_ + _%datums11656%_) + (_%dispatch11692%_ + _%dispatch11657%_)) + (let* ((_%__stx1976519766%_ _%datums11690%_) + (_%g1169511716%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1966619667%_)))) - (let ((_%__kont1966919670%_ - (lambda (_%L11675%_ _%L11677%_) - (let* ((_%g1169711709%_ - (lambda (_%g1169811705%_) + _%__stx1976519766%_)))) + (let ((_%__kont1976819769%_ + (lambda (_%L11774%_ _%L11776%_) + (let* ((_%g1179611808%_ + (lambda (_%g1179711804%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1169811705%_))) - (_%g1169611779%_ - (lambda (_%g1169811713%_) + _%g1179711804%_))) + (_%g1179511878%_ + (lambda (_%g1179711812%_) (if (gx#stx-pair? - _%g1169811713%_) - (let ((_%e1170111716%_ + _%g1179711812%_) + (let ((_%e1180011815%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g1169811713%_))) - (let ((_%hd1170211720%_ + (gx#syntax-e _%g1179711812%_))) + (let ((_%hd1180111819%_ (let () (declare (not safe)) - (##car _%e1170111716%_))) - (_%tl1170311723%_ + (##car _%e1180011815%_))) + (_%tl1180211822%_ (let () (declare (not safe)) - (##cdr _%e1170111716%_)))) - ((lambda (_%L11726%_ _%L11728%_) - (let* ((_%g1174011748%_ - (lambda (_%g1174111744%_) + (##cdr _%e1180011815%_)))) + ((lambda (_%L11825%_ _%L11827%_) + (let* ((_%g1183911847%_ + (lambda (_%g1184011843%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1174111744%_))) - (_%g1173911775%_ - (lambda (_%g1174111752%_) - ((lambda (_%L11755%_) + _%g1184011843%_))) + (_%g1183811874%_ + (lambda (_%g1184011851%_) + ((lambda (_%L11854%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'or) - (foldr (lambda (_%g1176611769%_ + (foldr (lambda (_%g1186511868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1176711772%_) + _%g1186611871%_) (cons (cons (gx#datum->syntax '#f '~case-test) - (cons _%g1176611769%_ - (cons _%L11576%_ '()))) - _%g1176711772%_)) + (cons _%g1186511868%_ + (cons _%L11675%_ '()))) + _%g1186611871%_)) '() - _%L11677%_)) + _%L11776%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L11728%_ - (cons _%L11755%_ + (cons _%L11827%_ + (cons _%L11854%_ '()))))) - _%g1174111752%_)))) - (_%g1173911775%_ - (_%recur11588%_ _%L11675%_ _%L11726%_)))) - _%tl1170311723%_ - _%hd1170211720%_))) - (_%g1169711709%_ _%g1169811713%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1169611779%_ - _%dispatch11593%_)))) - (_%__kont1967319674%_ - (lambda () _%default11559%_))) - (let ((_%__match1968919690%_ - (lambda (_%e1160011635%_ - _%hd1160111639%_ - _%tl1160211642%_ - _%__splice1967119672%_ - _%target1160311645%_ - _%tl1160511648%_) - (letrec ((_%loop1160611651%_ - (lambda (_%hd1160411655%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%datum1161011658%_) - (if (gx#stx-pair? _%hd1160411655%_) - (let ((_%e1160711661%_ (gx#syntax-e _%hd1160411655%_))) - (let ((_%lp-tl1160911668%_ + _%g1184011851%_)))) + (_%g1183811874%_ + (_%recur11687%_ _%L11774%_ _%L11825%_)))) + _%tl1180211822%_ + _%hd1180111819%_))) + (_%g1179611808%_ _%g1179711812%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1179511878%_ + _%dispatch11692%_)))) + (_%__kont1977219773%_ + (lambda () _%default11658%_))) + (let ((_%__match1978819789%_ + (lambda (_%e1169911734%_ + _%hd1170011738%_ + _%tl1170111741%_ + _%__splice1977019771%_ + _%target1170211744%_ + _%tl1170411747%_) + (letrec ((_%loop1170511750%_ + (lambda (_%hd1170311754%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%datum1170911757%_) + (if (gx#stx-pair? _%hd1170311754%_) + (let ((_%e1170611760%_ (gx#syntax-e _%hd1170311754%_))) + (let ((_%lp-tl1170811767%_ (let () (declare (not safe)) - (##cdr _%e1160711661%_))) - (_%lp-hd1160811665%_ + (##cdr _%e1170611760%_))) + (_%lp-hd1170711764%_ (let () (declare (not safe)) - (##car _%e1160711661%_)))) - (_%loop1160611651%_ - _%lp-tl1160911668%_ - (cons _%lp-hd1160811665%_ _%datum1161011658%_)))) - (let ((_%datum1161111671%_ - (reverse _%datum1161011658%_))) - (_%__kont1966919670%_ - _%tl1160211642%_ - _%datum1161111671%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1160611651%_ - _%target1160311645%_ + (##car _%e1170611760%_)))) + (_%loop1170511750%_ + _%lp-tl1170811767%_ + (cons _%lp-hd1170711764%_ _%datum1170911757%_)))) + (let ((_%datum1171011770%_ + (reverse _%datum1170911757%_))) + (_%__kont1976819769%_ + _%tl1170111741%_ + _%datum1171011770%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1170511750%_ + _%target1170211744%_ '()))))) - (if (gx#stx-pair? _%__stx1966619667%_) - (let ((_%e1160011635%_ + (if (gx#stx-pair? _%__stx1976519766%_) + (let ((_%e1169911734%_ (gx#syntax-e - _%__stx1966619667%_))) - (let ((_%tl1160211642%_ + _%__stx1976519766%_))) + (let ((_%tl1170111741%_ (let () (declare (not safe)) - (##cdr _%e1160011635%_))) - (_%hd1160111639%_ + (##cdr _%e1169911734%_))) + (_%hd1170011738%_ (let () (declare (not safe)) - (##car _%e1160011635%_)))) + (##car _%e1169911734%_)))) (if (gx#stx-pair/null? - _%hd1160111639%_) - (let ((_%__splice1967119672%_ + _%hd1170011738%_) + (let ((_%__splice1977019771%_ (gx#syntax-split-splice - _%hd1160111639%_ + _%hd1170011738%_ '0))) - (let ((_%tl1160511648%_ + (let ((_%tl1170411747%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice1967119672%_ '1))) - (_%target1160311645%_ + (##vector-ref _%__splice1977019771%_ '1))) + (_%target1170211744%_ (let () (declare (not safe)) - (##vector-ref _%__splice1967119672%_ '0)))) - (if (gx#stx-null? _%tl1160511648%_) - (_%__match1968919690%_ - _%e1160011635%_ - _%hd1160111639%_ - _%tl1160211642%_ - _%__splice1967119672%_ - _%target1160311645%_ - _%tl1160511648%_) - (_%__kont1967319674%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont1967319674%_)))) - (_%__kont1967319674%_))))))) - _%g1156211573%_)))) - (_%g1156011787%_ _%e11555%_)))) - (_%datum-dispatch-index9379%_ - (lambda (_%datums11427%_) - (let _%lp11430%_ ((_%rest11433%_ _%datums11427%_) - (_%ix11435%_ '0) - (_%r11436%_ '())) - (let* ((_%__stx1969219693%_ _%rest11433%_) - (_%g1143911460%_ + (##vector-ref _%__splice1977019771%_ '0)))) + (if (gx#stx-null? _%tl1170411747%_) + (_%__match1978819789%_ + _%e1169911734%_ + _%hd1170011738%_ + _%tl1170111741%_ + _%__splice1977019771%_ + _%target1170211744%_ + _%tl1170411747%_) + (_%__kont1977219773%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont1977219773%_)))) + (_%__kont1977219773%_))))))) + _%g1166111672%_)))) + (_%g1165911886%_ _%e11654%_)))) + (_%datum-dispatch-index9478%_ + (lambda (_%datums11526%_) + (let _%lp11529%_ ((_%rest11532%_ _%datums11526%_) + (_%ix11534%_ '0) + (_%r11535%_ '())) + (let* ((_%__stx1979119792%_ _%rest11532%_) + (_%g1153811559%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1969219693%_)))) - (let ((_%__kont1969519696%_ - (lambda (_%L11518%_ _%L11520%_) - (_%lp11430%_ - _%L11518%_ - (fx1+ _%ix11435%_) - (foldl (lambda (_%x11539%_ _%r11541%_) - (cons (cons _%x11539%_ _%ix11435%_) - _%r11541%_)) - _%r11436%_ - (foldr (lambda (_%g1154211545%_ - _%g1154311548%_) - (cons _%g1154211545%_ - _%g1154311548%_)) + _%__stx1979119792%_)))) + (let ((_%__kont1979419795%_ + (lambda (_%L11617%_ _%L11619%_) + (_%lp11529%_ + _%L11617%_ + (fx1+ _%ix11534%_) + (foldl (lambda (_%x11638%_ _%r11640%_) + (cons (cons _%x11638%_ _%ix11534%_) + _%r11640%_)) + _%r11535%_ + (foldr (lambda (_%g1164111644%_ + _%g1164211647%_) + (cons _%g1164111644%_ + _%g1164211647%_)) '() - _%L11520%_))))) - (_%__kont1969919700%_ (lambda () _%r11436%_))) - (let ((_%__match1971519716%_ - (lambda (_%e1144311478%_ - _%hd1144411482%_ - _%tl1144511485%_ - _%__splice1969719698%_ - _%target1144611488%_ - _%tl1144811491%_) - (letrec ((_%loop1144911494%_ - (lambda (_%hd1144711498%_ - _%datum1145311501%_) + _%L11619%_))))) + (_%__kont1979819799%_ (lambda () _%r11535%_))) + (let ((_%__match1981419815%_ + (lambda (_%e1154211577%_ + _%hd1154311581%_ + _%tl1154411584%_ + _%__splice1979619797%_ + _%target1154511587%_ + _%tl1154711590%_) + (letrec ((_%loop1154811593%_ + (lambda (_%hd1154611597%_ + _%datum1155211600%_) (if (gx#stx-pair? - _%hd1144711498%_) - (let ((_%e1145011504%_ + _%hd1154611597%_) + (let ((_%e1154911603%_ (gx#syntax-e - _%hd1144711498%_))) - (let ((_%lp-tl1145211511%_ + _%hd1154611597%_))) + (let ((_%lp-tl1155111610%_ (let () (declare (not safe)) - (##cdr _%e1145011504%_))) - (_%lp-hd1145111508%_ + (##cdr _%e1154911603%_))) + (_%lp-hd1155011607%_ (let () (declare (not safe)) - (##car _%e1145011504%_)))) - (_%loop1144911494%_ - _%lp-tl1145211511%_ - (cons _%lp-hd1145111508%_ - _%datum1145311501%_)))) - (let ((_%datum1145411514%_ - (reverse _%datum1145311501%_))) - (_%__kont1969519696%_ - _%tl1144511485%_ - _%datum1145411514%_)))))) - (_%loop1144911494%_ - _%target1144611488%_ + (##car _%e1154911603%_)))) + (_%loop1154811593%_ + _%lp-tl1155111610%_ + (cons _%lp-hd1155011607%_ + _%datum1155211600%_)))) + (let ((_%datum1155311613%_ + (reverse _%datum1155211600%_))) + (_%__kont1979419795%_ + _%tl1154411584%_ + _%datum1155311613%_)))))) + (_%loop1154811593%_ + _%target1154511587%_ '()))))) - (if (gx#stx-pair? _%__stx1969219693%_) - (let ((_%e1144311478%_ - (gx#syntax-e _%__stx1969219693%_))) - (let ((_%tl1144511485%_ + (if (gx#stx-pair? _%__stx1979119792%_) + (let ((_%e1154211577%_ + (gx#syntax-e _%__stx1979119792%_))) + (let ((_%tl1154411584%_ (let () (declare (not safe)) - (##cdr _%e1144311478%_))) - (_%hd1144411482%_ + (##cdr _%e1154211577%_))) + (_%hd1154311581%_ (let () (declare (not safe)) - (##car _%e1144311478%_)))) - (if (gx#stx-pair/null? _%hd1144411482%_) - (let ((_%__splice1969719698%_ + (##car _%e1154211577%_)))) + (if (gx#stx-pair/null? _%hd1154311581%_) + (let ((_%__splice1979619797%_ (gx#syntax-split-splice - _%hd1144411482%_ + _%hd1154311581%_ '0))) - (let ((_%tl1144811491%_ + (let ((_%tl1154711590%_ (let () (declare (not safe)) (##vector-ref - _%__splice1969719698%_ + _%__splice1979619797%_ '1))) - (_%target1144611488%_ + (_%target1154511587%_ (let () (declare (not safe)) (##vector-ref - _%__splice1969719698%_ + _%__splice1979619797%_ '0)))) - (if (gx#stx-null? _%tl1144811491%_) - (_%__match1971519716%_ - _%e1144311478%_ - _%hd1144411482%_ - _%tl1144511485%_ - _%__splice1969719698%_ - _%target1144611488%_ - _%tl1144811491%_) - (_%__kont1969919700%_)))) - (_%__kont1969919700%_)))) - (_%__kont1969919700%_)))))))) - (_%duplicate-indexes?9380%_ - (lambda (_%xs11408%_) - (let ((_%ht11411%_ (make-hash-table-eq))) - (let _%lp11414%_ ((_%rest11417%_ _%xs11408%_)) - (if (pair? _%rest11417%_) - (let* ((_%ix11420%_ + (if (gx#stx-null? _%tl1154711590%_) + (_%__match1981419815%_ + _%e1154211577%_ + _%hd1154311581%_ + _%tl1154411584%_ + _%__splice1979619797%_ + _%target1154511587%_ + _%tl1154711590%_) + (_%__kont1979819799%_)))) + (_%__kont1979819799%_)))) + (_%__kont1979819799%_)))))))) + (_%duplicate-indexes?9479%_ + (lambda (_%xs11507%_) + (let ((_%ht11510%_ (make-hash-table-eq))) + (let _%lp11513%_ ((_%rest11516%_ _%xs11507%_)) + (if (pair? _%rest11516%_) + (let* ((_%ix11519%_ (let () (declare (not safe)) - (##car _%rest11417%_))) - (_%$e11423%_ - (hash-get _%ht11411%_ _%ix11420%_))) - (if _%$e11423%_ - _%$e11423%_ + (##car _%rest11516%_))) + (_%$e11522%_ + (hash-get _%ht11510%_ _%ix11519%_))) + (if _%$e11522%_ + _%$e11522%_ (begin - (hash-put! _%ht11411%_ _%ix11420%_ '#t) - (_%lp11414%_ + (hash-put! _%ht11510%_ _%ix11519%_ '#t) + (_%lp11513%_ (let () (declare (not safe)) - (##cdr _%rest11417%_)))))) + (##cdr _%rest11516%_)))))) '#f))))) - (_%generate-hash-dispatch-table9381%_ - (lambda (_%indexes11377%_ _%hash-e11379%_) - (let _%lp11381%_ ((_%len11384%_ - (* '2 (length _%indexes11377%_)))) - (let* ((_%hs11390%_ - (map (lambda (_%x11387%_) - (_%hash-e11379%_ (car _%x11387%_))) - _%indexes11377%_)) - (_%xs11396%_ - (map (lambda (_%h11393%_) - (fxmodulo _%h11393%_ _%len11384%_)) - _%hs11390%_))) - (if (_%duplicate-indexes?9380%_ _%xs11396%_) - (if (< _%len11384%_ '131072) - (_%lp11381%_ + (_%generate-hash-dispatch-table9480%_ + (lambda (_%indexes11476%_ _%hash-e11478%_) + (let _%lp11480%_ ((_%len11483%_ + (* '2 (length _%indexes11476%_)))) + (let* ((_%hs11489%_ + (map (lambda (_%x11486%_) + (_%hash-e11478%_ (car _%x11486%_))) + _%indexes11476%_)) + (_%xs11495%_ + (map (lambda (_%h11492%_) + (fxmodulo _%h11492%_ _%len11483%_)) + _%hs11489%_))) + (if (_%duplicate-indexes?9479%_ _%xs11495%_) + (if (< _%len11483%_ '131072) + (_%lp11480%_ (quotient (let () (declare (not safe)) - (##fx* _%len11384%_ '3)) + (##fx* _%len11483%_ '3)) '2)) (gx#raise-syntax-error '#f '"Cannot create perfect dispatch table" - _%stx9367%_ - _%indexes11377%_)) - (let ((_%tab11401%_ - (make-vector _%len11384%_ '#f))) + _%stx9466%_ + _%indexes11476%_)) + (let ((_%tab11500%_ + (make-vector _%len11483%_ '#f))) (for-each - (lambda (_%entry11404%_ _%x11406%_) + (lambda (_%entry11503%_ _%x11505%_) (vector-set! - _%tab11401%_ - _%x11406%_ - _%entry11404%_)) - _%indexes11377%_ - _%xs11396%_) - _%tab11401%_)))))) - (_%generate-symbolic-dispatch9382%_ - (lambda (_%e10980%_ - _%datums10982%_ - _%dispatch10983%_ - _%default10984%_) - (let* ((_%indexes10986%_ - (_%datum-dispatch-index9379%_ _%datums10982%_)) - (_%tab10989%_ - (_%generate-hash-dispatch-table9381%_ - _%indexes10986%_ + _%tab11500%_ + _%x11505%_ + _%entry11503%_)) + _%indexes11476%_ + _%xs11495%_) + _%tab11500%_)))))) + (_%generate-symbolic-dispatch9481%_ + (lambda (_%e11079%_ + _%datums11081%_ + _%dispatch11082%_ + _%default11083%_) + (let* ((_%indexes11085%_ + (_%datum-dispatch-index9478%_ _%datums11081%_)) + (_%tab11088%_ + (_%generate-hash-dispatch-table9480%_ + _%indexes11085%_ symbol-hash))) - (if (= (length _%dispatch10983%_) '1) - (let* ((_%tab10997%_ + (if (= (length _%dispatch11082%_) '1) + (let* ((_%tab11096%_ (vector-map - (lambda (_%x10994%_) - (if _%x10994%_ (car _%x10994%_) '#f)) - _%tab10989%_)) - (_%g1100011038%_ - (lambda (_%g1100111034%_) + (lambda (_%x11093%_) + (if _%x11093%_ (car _%x11093%_) '#f)) + _%tab11088%_)) + (_%g1109911137%_ + (lambda (_%g1110011133%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1100111034%_))) - (_%g1099911169%_ - (lambda (_%g1100111042%_) - (if (gx#stx-pair? _%g1100111042%_) - (let ((_%e1100911045%_ - (gx#syntax-e _%g1100111042%_))) - (let ((_%hd1101011049%_ + _%g1110011133%_))) + (_%g1109811268%_ + (lambda (_%g1110011141%_) + (if (gx#stx-pair? _%g1110011141%_) + (let ((_%e1110811144%_ + (gx#syntax-e _%g1110011141%_))) + (let ((_%hd1110911148%_ (let () (declare (not safe)) - (##car _%e1100911045%_))) - (_%tl1101111052%_ + (##car _%e1110811144%_))) + (_%tl1111011151%_ (let () (declare (not safe)) - (##cdr _%e1100911045%_)))) - (if (gx#stx-pair? _%tl1101111052%_) - (let ((_%e1101211055%_ + (##cdr _%e1110811144%_)))) + (if (gx#stx-pair? _%tl1111011151%_) + (let ((_%e1111111154%_ (gx#syntax-e - _%tl1101111052%_))) - (let ((_%hd1101311059%_ + _%tl1111011151%_))) + (let ((_%hd1111211158%_ (let () (declare (not safe)) - (##car _%e1101211055%_))) - (_%tl1101411062%_ + (##car _%e1111111154%_))) + (_%tl1111311161%_ (let () (declare (not safe)) - (##cdr _%e1101211055%_)))) + (##cdr _%e1111111154%_)))) (if (gx#stx-pair? - _%tl1101411062%_) - (let ((_%e1101511065%_ + _%tl1111311161%_) + (let ((_%e1111411164%_ (gx#syntax-e - _%tl1101411062%_))) - (let ((_%hd1101611069%_ + _%tl1111311161%_))) + (let ((_%hd1111511168%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e1101511065%_))) - (_%tl1101711072%_ + (let () (declare (not safe)) (##car _%e1111411164%_))) + (_%tl1111611171%_ (let () (declare (not safe)) - (##cdr _%e1101511065%_)))) - (if (gx#stx-pair? _%tl1101711072%_) - (let ((_%e1101811075%_ (gx#syntax-e _%tl1101711072%_))) - (let ((_%hd1101911079%_ + (##cdr _%e1111411164%_)))) + (if (gx#stx-pair? _%tl1111611171%_) + (let ((_%e1111711174%_ (gx#syntax-e _%tl1111611171%_))) + (let ((_%hd1111811178%_ (let () (declare (not safe)) - (##car _%e1101811075%_))) - (_%tl1102011082%_ + (##car _%e1111711174%_))) + (_%tl1111911181%_ (let () (declare (not safe)) - (##cdr _%e1101811075%_)))) - (if (gx#stx-pair? _%hd1101911079%_) - (let ((_%e1102111085%_ - (gx#syntax-e _%hd1101911079%_))) - (let ((_%hd1102211089%_ + (##cdr _%e1111711174%_)))) + (if (gx#stx-pair? _%hd1111811178%_) + (let ((_%e1112011184%_ + (gx#syntax-e _%hd1111811178%_))) + (let ((_%hd1112111188%_ (let () (declare (not safe)) - (##car _%e1102111085%_))) - (_%tl1102311092%_ + (##car _%e1112011184%_))) + (_%tl1112211191%_ (let () (declare (not safe)) - (##cdr _%e1102111085%_)))) - (if (gx#stx-null? _%tl1102311092%_) - (if (gx#stx-pair? _%tl1102011082%_) - (let ((_%e1102411095%_ + (##cdr _%e1112011184%_)))) + (if (gx#stx-null? _%tl1112211191%_) + (if (gx#stx-pair? _%tl1111911181%_) + (let ((_%e1112311194%_ (gx#syntax-e - _%tl1102011082%_))) - (let ((_%hd1102511099%_ + _%tl1111911181%_))) + (let ((_%hd1112411198%_ (let () (declare (not safe)) - (##car _%e1102411095%_))) - (_%tl1102611102%_ + (##car _%e1112311194%_))) + (_%tl1112511201%_ (let () (declare (not safe)) - (##cdr _%e1102411095%_)))) + (##cdr _%e1112311194%_)))) (if (gx#stx-pair? - _%tl1102611102%_) - (let ((_%e1102711105%_ + _%tl1112511201%_) + (let ((_%e1112611204%_ (gx#syntax-e - _%tl1102611102%_))) - (let ((_%hd1102811109%_ + _%tl1112511201%_))) + (let ((_%hd1112711208%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e1102711105%_))) - (_%tl1102911112%_ - (let () (declare (not safe)) (##cdr _%e1102711105%_)))) - (if (gx#stx-pair? _%tl1102911112%_) - (let ((_%e1103011115%_ (gx#syntax-e _%tl1102911112%_))) - (let ((_%hd1103111119%_ + (##car _%e1112611204%_))) + (_%tl1112811211%_ + (let () (declare (not safe)) (##cdr _%e1112611204%_)))) + (if (gx#stx-pair? _%tl1112811211%_) + (let ((_%e1112911214%_ (gx#syntax-e _%tl1112811211%_))) + (let ((_%hd1113011218%_ (let () (declare (not safe)) - (##car _%e1103011115%_))) - (_%tl1103211122%_ + (##car _%e1112911214%_))) + (_%tl1113111221%_ (let () (declare (not safe)) - (##cdr _%e1103011115%_)))) - (if (gx#stx-null? _%tl1103211122%_) - ((lambda (_%L11125%_ - _%L11127%_ - _%L11128%_ - _%L11129%_ - _%L11130%_ - _%L11131%_ - _%L11132%_) + (##cdr _%e1112911214%_)))) + (if (gx#stx-null? _%tl1113111221%_) + ((lambda (_%L11224%_ + _%L11226%_ + _%L11227%_ + _%L11228%_ + _%L11229%_ + _%L11230%_ + _%L11231%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L11131%_ + (cons (cons (cons _%L11230%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons '() (cons _%L11128%_ '()))) + (cons '() (cons _%L11227%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L11130%_ + (cons (cons _%L11229%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L11127%_ '())) + (cons _%L11226%_ '())) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -4763,13 +4763,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'symbol?) - (cons _%L11132%_ '())) + (cons _%L11231%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f 'h) (cons (cons (gx#datum->syntax '#f '##symbol-hash) - (cons _%L11132%_ + (cons _%L11231%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -4782,7 +4782,7 @@ '#f '##fxmodulo) (cons (gx#datum->syntax '#f 'h) - (cons _%L11125%_ '()))) + (cons _%L11224%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -4792,7 +4792,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##vector-ref) - (cons _%L11130%_ + (cons _%L11229%_ (cons (gx#datum->syntax '#f 'ix) '()))) '())) @@ -4806,201 +4806,201 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'q) - (cons _%L11132%_ '()))) - (cons _%L11129%_ (cons (cons _%L11131%_ '()) '())))) + (cons _%L11231%_ '()))) + (cons _%L11228%_ (cons (cons _%L11230%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _%L11131%_ '()) '())))) + (cons (cons _%L11230%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd1103111119%_ - _%hd1102811109%_ - _%hd1102511099%_ - _%hd1102211089%_ - _%hd1101611069%_ - _%hd1101311059%_ - _%hd1101011049%_) - (_%g1100011038%_ _%g1100111042%_)))) - (_%g1100011038%_ _%g1100111042%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1100011038%_ - _%g1100111042%_)))) - (_%g1100011038%_ _%g1100111042%_)) - (_%g1100011038%_ _%g1100111042%_)))) - (_%g1100011038%_ _%g1100111042%_)))) - (_%g1100011038%_ _%g1100111042%_)))) - (_%g1100011038%_ _%g1100111042%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1100011038%_ - _%g1100111042%_)))) - (_%g1100011038%_ _%g1100111042%_))))) - (_%g1099911169%_ - (list _%e10980%_ + _%hd1113011218%_ + _%hd1112711208%_ + _%hd1112411198%_ + _%hd1112111188%_ + _%hd1111511168%_ + _%hd1111211158%_ + _%hd1110911148%_) + (_%g1109911137%_ _%g1110011141%_)))) + (_%g1109911137%_ _%g1110011141%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1109911137%_ + _%g1110011141%_)))) + (_%g1109911137%_ _%g1110011141%_)) + (_%g1109911137%_ _%g1110011141%_)))) + (_%g1109911137%_ _%g1110011141%_)))) + (_%g1109911137%_ _%g1110011141%_)))) + (_%g1109911137%_ _%g1110011141%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1109911137%_ + _%g1110011141%_)))) + (_%g1109911137%_ _%g1110011141%_))))) + (_%g1109811268%_ + (list _%e11079%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch10983%_ - _%default10984%_ - _%tab10997%_ - (vector-length _%tab10997%_)))) - (let* ((_%g1117311217%_ - (lambda (_%g1117411213%_) + _%dispatch11082%_ + _%default11083%_ + _%tab11096%_ + (vector-length _%tab11096%_)))) + (let* ((_%g1127211316%_ + (lambda (_%g1127311312%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1117411213%_))) - (_%g1117211373%_ - (lambda (_%g1117411221%_) - (if (gx#stx-pair? _%g1117411221%_) - (let ((_%e1118211224%_ - (gx#syntax-e _%g1117411221%_))) - (let ((_%hd1118311228%_ + _%g1127311312%_))) + (_%g1127111472%_ + (lambda (_%g1127311320%_) + (if (gx#stx-pair? _%g1127311320%_) + (let ((_%e1128111323%_ + (gx#syntax-e _%g1127311320%_))) + (let ((_%hd1128211327%_ (let () (declare (not safe)) - (##car _%e1118211224%_))) - (_%tl1118411231%_ + (##car _%e1128111323%_))) + (_%tl1128311330%_ (let () (declare (not safe)) - (##cdr _%e1118211224%_)))) - (if (gx#stx-pair? _%tl1118411231%_) - (let ((_%e1118511234%_ + (##cdr _%e1128111323%_)))) + (if (gx#stx-pair? _%tl1128311330%_) + (let ((_%e1128411333%_ (gx#syntax-e - _%tl1118411231%_))) - (let ((_%hd1118611238%_ + _%tl1128311330%_))) + (let ((_%hd1128511337%_ (let () (declare (not safe)) - (##car _%e1118511234%_))) - (_%tl1118711241%_ + (##car _%e1128411333%_))) + (_%tl1128611340%_ (let () (declare (not safe)) - (##cdr _%e1118511234%_)))) + (##cdr _%e1128411333%_)))) (if (gx#stx-pair? - _%tl1118711241%_) - (let ((_%e1118811244%_ + _%tl1128611340%_) + (let ((_%e1128711343%_ (gx#syntax-e - _%tl1118711241%_))) - (let ((_%hd1118911248%_ + _%tl1128611340%_))) + (let ((_%hd1128811347%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e1118811244%_))) - (_%tl1119011251%_ + (let () (declare (not safe)) (##car _%e1128711343%_))) + (_%tl1128911350%_ (let () (declare (not safe)) - (##cdr _%e1118811244%_)))) - (if (gx#stx-pair? _%tl1119011251%_) - (let ((_%e1119111254%_ (gx#syntax-e _%tl1119011251%_))) - (let ((_%hd1119211258%_ + (##cdr _%e1128711343%_)))) + (if (gx#stx-pair? _%tl1128911350%_) + (let ((_%e1129011353%_ (gx#syntax-e _%tl1128911350%_))) + (let ((_%hd1129111357%_ (let () (declare (not safe)) - (##car _%e1119111254%_))) - (_%tl1119311261%_ + (##car _%e1129011353%_))) + (_%tl1129211360%_ (let () (declare (not safe)) - (##cdr _%e1119111254%_)))) - (if (gx#stx-pair/null? _%hd1119211258%_) - (let ((_g20921_ + (##cdr _%e1129011353%_)))) + (if (gx#stx-pair/null? _%hd1129111357%_) + (let ((_g21020_ (gx#syntax-split-splice - _%hd1119211258%_ + _%hd1129111357%_ '0))) (begin - (let ((_g20922_ + (let ((_g21021_ (let () (declare (not safe)) - (if (##values? _g20921_) - (##vector-length _g20921_) + (if (##values? _g21020_) + (##values-length _g21020_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20922_ 2))) + (##fx= _g21021_ 2))) (error "Context expects 2 values" - _g20922_))) - (let ((_%target1119411264%_ + _g21021_))) + (let ((_%target1129311363%_ (let () (declare (not safe)) - (##vector-ref _g20921_ 0))) - (_%tl1119611267%_ + (##values-ref _g21020_ 0))) + (_%tl1129511366%_ (let () (declare (not safe)) - (##vector-ref _g20921_ 1)))) - (if (gx#stx-null? _%tl1119611267%_) - (letrec ((_%loop1119711270%_ - (lambda (_%hd1119511274%_ - _%dispatch1120111277%_) + (##values-ref _g21020_ 1)))) + (if (gx#stx-null? _%tl1129511366%_) + (letrec ((_%loop1129611369%_ + (lambda (_%hd1129411373%_ + _%dispatch1130011376%_) (if (gx#stx-pair? - _%hd1119511274%_) - (let ((_%e1119811280%_ + _%hd1129411373%_) + (let ((_%e1129711379%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd1119511274%_))) - (let ((_%lp-hd1119911284%_ + (gx#syntax-e _%hd1129411373%_))) + (let ((_%lp-hd1129811383%_ (let () (declare (not safe)) - (##car _%e1119811280%_))) - (_%lp-tl1120011287%_ + (##car _%e1129711379%_))) + (_%lp-tl1129911386%_ (let () (declare (not safe)) - (##cdr _%e1119811280%_)))) - (_%loop1119711270%_ - _%lp-tl1120011287%_ - (cons _%lp-hd1119911284%_ _%dispatch1120111277%_)))) - (let ((_%dispatch1120211290%_ - (reverse _%dispatch1120111277%_))) - (if (gx#stx-pair? _%tl1119311261%_) - (let ((_%e1120311294%_ (gx#syntax-e _%tl1119311261%_))) - (let ((_%hd1120411298%_ + (##cdr _%e1129711379%_)))) + (_%loop1129611369%_ + _%lp-tl1129911386%_ + (cons _%lp-hd1129811383%_ _%dispatch1130011376%_)))) + (let ((_%dispatch1130111389%_ + (reverse _%dispatch1130011376%_))) + (if (gx#stx-pair? _%tl1129211360%_) + (let ((_%e1130211393%_ (gx#syntax-e _%tl1129211360%_))) + (let ((_%hd1130311397%_ (let () (declare (not safe)) - (##car _%e1120311294%_))) - (_%tl1120511301%_ + (##car _%e1130211393%_))) + (_%tl1130411400%_ (let () (declare (not safe)) - (##cdr _%e1120311294%_)))) - (if (gx#stx-pair? _%tl1120511301%_) - (let ((_%e1120611304%_ - (gx#syntax-e _%tl1120511301%_))) - (let ((_%hd1120711308%_ + (##cdr _%e1130211393%_)))) + (if (gx#stx-pair? _%tl1130411400%_) + (let ((_%e1130511403%_ + (gx#syntax-e _%tl1130411400%_))) + (let ((_%hd1130611407%_ (let () (declare (not safe)) - (##car _%e1120611304%_))) - (_%tl1120811311%_ + (##car _%e1130511403%_))) + (_%tl1130711410%_ (let () (declare (not safe)) - (##cdr _%e1120611304%_)))) - (if (gx#stx-pair? _%tl1120811311%_) - (let ((_%e1120911314%_ - (gx#syntax-e _%tl1120811311%_))) - (let ((_%hd1121011318%_ + (##cdr _%e1130511403%_)))) + (if (gx#stx-pair? _%tl1130711410%_) + (let ((_%e1130811413%_ + (gx#syntax-e _%tl1130711410%_))) + (let ((_%hd1130911417%_ (let () (declare (not safe)) - (##car _%e1120911314%_))) - (_%tl1121111321%_ + (##car _%e1130811413%_))) + (_%tl1131011420%_ (let () (declare (not safe)) - (##cdr _%e1120911314%_)))) - (if (gx#stx-null? _%tl1121111321%_) - ((lambda (_%L11324%_ - _%L11326%_ - _%L11327%_ - _%L11328%_ - _%L11329%_ - _%L11330%_ - _%L11331%_) + (##cdr _%e1130811413%_)))) + (if (gx#stx-null? _%tl1131011420%_) + ((lambda (_%L11423%_ + _%L11425%_ + _%L11426%_ + _%L11427%_ + _%L11428%_ + _%L11429%_ + _%L11430%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L11330%_ + (cons (cons (cons _%L11429%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L11327%_ '()))) + (cons _%L11426%_ '()))) '())) - (cons (cons _%L11329%_ + (cons (cons _%L11428%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L11326%_ '())) + (cons _%L11425%_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'symbol?) - (cons _%L11331%_ '())) + (cons _%L11430%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) @@ -5011,7 +5011,7 @@ (cons (cons (gx#datum->syntax '#f '##symbol-hash) - (cons _%L11331%_ '())) + (cons _%L11430%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax @@ -5020,13 +5020,13 @@ (cons (gx#datum->syntax '#f 'h) - (cons _%L11324%_ '()))) + (cons _%L11423%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L11329%_ + (cons _%L11428%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -5046,7 +5046,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L11331%_ '()))) + (cons _%L11430%_ '()))) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'x) (cons (cons (gx#datum->syntax @@ -5061,232 +5061,232 @@ '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1136411367%_ + (foldr (lambda (_%g1146311466%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1136511370%_) - (cons _%g1136411367%_ _%g1136511370%_)) + _%g1146411469%_) + (cons _%g1146311466%_ _%g1146411469%_)) '() - _%L11328%_))) + _%L11427%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _%L11330%_ '()) '())))) + (cons (cons _%L11429%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L11330%_ '()) '())))) + (cons (cons _%L11429%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L11330%_ '()) + (cons (cons _%L11429%_ '()) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1121011318%_ - _%hd1120711308%_ - _%hd1120411298%_ - _%dispatch1120211290%_ - _%hd1118911248%_ - _%hd1118611238%_ - _%hd1118311228%_) - (_%g1117311217%_ - _%g1117411221%_)))) - (_%g1117311217%_ _%g1117411221%_)))) - (_%g1117311217%_ _%g1117411221%_)))) - (_%g1117311217%_ _%g1117411221%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1119711270%_ - _%target1119411264%_ + _%hd1130911417%_ + _%hd1130611407%_ + _%hd1130311397%_ + _%dispatch1130111389%_ + _%hd1128811347%_ + _%hd1128511337%_ + _%hd1128211327%_) + (_%g1127211316%_ + _%g1127311320%_)))) + (_%g1127211316%_ _%g1127311320%_)))) + (_%g1127211316%_ _%g1127311320%_)))) + (_%g1127211316%_ _%g1127311320%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1129611369%_ + _%target1129311363%_ '())) - (_%g1117311217%_ _%g1117411221%_))))) - (_%g1117311217%_ _%g1117411221%_)))) - (_%g1117311217%_ _%g1117411221%_)))) - (_%g1117311217%_ _%g1117411221%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1117311217%_ - _%g1117411221%_)))) - (_%g1117311217%_ _%g1117411221%_))))) - (_%g1117211373%_ - (list _%e10980%_ + (_%g1127211316%_ _%g1127311320%_))))) + (_%g1127211316%_ _%g1127311320%_)))) + (_%g1127211316%_ _%g1127311320%_)))) + (_%g1127211316%_ _%g1127311320%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1127211316%_ + _%g1127311320%_)))) + (_%g1127211316%_ _%g1127311320%_))))) + (_%g1127111472%_ + (list _%e11079%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch10983%_ - _%default10984%_ - _%tab10989%_ - (vector-length _%tab10989%_)))))))) - (_%max-char9383%_ - (lambda (_%datums10969%_) - (foldl (lambda (_%lst10972%_ _%r10974%_) - (foldl (lambda (_%char10976%_ _%r10978%_) - (max (char->integer _%char10976%_) - _%r10978%_)) - _%r10974%_ - _%lst10972%_)) + _%dispatch11082%_ + _%default11083%_ + _%tab11088%_ + (vector-length _%tab11088%_)))))))) + (_%max-char9482%_ + (lambda (_%datums11068%_) + (foldl (lambda (_%lst11071%_ _%r11073%_) + (foldl (lambda (_%char11075%_ _%r11077%_) + (max (char->integer _%char11075%_) + _%r11077%_)) + _%r11073%_ + _%lst11071%_)) '0 - _%datums10969%_))) - (_%generate-char-dispatch-table9384%_ - (lambda (_%indexes10948%_) - (let* ((_%ixs10954%_ - (map (lambda (_%x10951%_) - (char->integer (car _%x10951%_))) - _%indexes10948%_)) - (_%len10957%_ (fx1+ (foldl max '0 _%ixs10954%_))) - (_%vec10960%_ (make-vector _%len10957%_ '#f))) + _%datums11068%_))) + (_%generate-char-dispatch-table9483%_ + (lambda (_%indexes11047%_) + (let* ((_%ixs11053%_ + (map (lambda (_%x11050%_) + (char->integer (car _%x11050%_))) + _%indexes11047%_)) + (_%len11056%_ (fx1+ (foldl max '0 _%ixs11053%_))) + (_%vec11059%_ (make-vector _%len11056%_ '#f))) (for-each - (lambda (_%entry10965%_ _%x10967%_) + (lambda (_%entry11064%_ _%x11066%_) (vector-set! - _%vec10960%_ - _%x10967%_ - (cdr _%entry10965%_))) - _%indexes10948%_ - _%ixs10954%_) - _%vec10960%_))) - (_%simple-char-range?9385%_ - (lambda (_%tab10924%_) - (let ((_%end10927%_ (vector-length _%tab10924%_))) - (let _%lp10930%_ ((_%i10933%_ '0)) - (let ((_%ix10936%_ - (vector-ref _%tab10924%_ _%i10933%_))) - (if _%ix10936%_ - (let _%lp210939%_ ((_%i10942%_ - (fx1+ _%i10933%_))) - (if (fx< _%i10942%_ _%end10927%_) - (let ((_%ix*10945%_ + _%vec11059%_ + _%x11066%_ + (cdr _%entry11064%_))) + _%indexes11047%_ + _%ixs11053%_) + _%vec11059%_))) + (_%simple-char-range?9484%_ + (lambda (_%tab11023%_) + (let ((_%end11026%_ (vector-length _%tab11023%_))) + (let _%lp11029%_ ((_%i11032%_ '0)) + (let ((_%ix11035%_ + (vector-ref _%tab11023%_ _%i11032%_))) + (if _%ix11035%_ + (let _%lp211038%_ ((_%i11041%_ + (fx1+ _%i11032%_))) + (if (fx< _%i11041%_ _%end11026%_) + (let ((_%ix*11044%_ (vector-ref - _%tab10924%_ - _%i10942%_))) - (if (eq? _%ix10936%_ _%ix*10945%_) - (_%lp210939%_ (fx1+ _%i10942%_)) + _%tab11023%_ + _%i11041%_))) + (if (eq? _%ix11035%_ _%ix*11044%_) + (_%lp211038%_ (fx1+ _%i11041%_)) '#f)) '#t)) - (_%lp10930%_ (fx1+ _%i10933%_)))))))) - (_%char-range-start9386%_ - (lambda (_%tab10915%_) - (let _%lp10918%_ ((_%i10921%_ '0)) - (if (vector-ref _%tab10915%_ _%i10921%_) - _%i10921%_ - (_%lp10918%_ (fx1+ _%i10921%_)))))) - (_%generate-char-dispatch9387%_ - (lambda (_%e10538%_ - _%datums10540%_ - _%dispatch10541%_ - _%default10542%_) - (if (< (_%max-char9383%_ _%datums10540%_) '128) - (let* ((_%indexes10544%_ - (_%datum-dispatch-index9379%_ _%datums10540%_)) - (_%tab10547%_ - (_%generate-char-dispatch-table9384%_ - _%indexes10544%_))) - (if (_%simple-char-range?9385%_ _%tab10547%_) - (let ((_%start10552%_ - (_%char-range-start9386%_ _%tab10547%_)) - (_%end10554%_ - (vector-length _%tab10547%_))) - (let* ((_%g1055610590%_ - (lambda (_%g1055710586%_) + (_%lp11029%_ (fx1+ _%i11032%_)))))))) + (_%char-range-start9485%_ + (lambda (_%tab11014%_) + (let _%lp11017%_ ((_%i11020%_ '0)) + (if (vector-ref _%tab11014%_ _%i11020%_) + _%i11020%_ + (_%lp11017%_ (fx1+ _%i11020%_)))))) + (_%generate-char-dispatch9486%_ + (lambda (_%e10637%_ + _%datums10639%_ + _%dispatch10640%_ + _%default10641%_) + (if (< (_%max-char9482%_ _%datums10639%_) '128) + (let* ((_%indexes10643%_ + (_%datum-dispatch-index9478%_ _%datums10639%_)) + (_%tab10646%_ + (_%generate-char-dispatch-table9483%_ + _%indexes10643%_))) + (if (_%simple-char-range?9484%_ _%tab10646%_) + (let ((_%start10651%_ + (_%char-range-start9485%_ _%tab10646%_)) + (_%end10653%_ + (vector-length _%tab10646%_))) + (let* ((_%g1065510689%_ + (lambda (_%g1065610685%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1055710586%_))) - (_%g1055510707%_ - (lambda (_%g1055710594%_) - (if (gx#stx-pair? _%g1055710594%_) - (let ((_%e1056410597%_ + _%g1065610685%_))) + (_%g1065410806%_ + (lambda (_%g1065610693%_) + (if (gx#stx-pair? _%g1065610693%_) + (let ((_%e1066310696%_ (gx#syntax-e - _%g1055710594%_))) - (let ((_%hd1056510601%_ + _%g1065610693%_))) + (let ((_%hd1066410700%_ (let () (declare (not safe)) - (##car _%e1056410597%_))) - (_%tl1056610604%_ + (##car _%e1066310696%_))) + (_%tl1066510703%_ (let () (declare (not safe)) - (##cdr _%e1056410597%_)))) + (##cdr _%e1066310696%_)))) (if (gx#stx-pair? - _%tl1056610604%_) - (let ((_%e1056710607%_ + _%tl1066510703%_) + (let ((_%e1066610706%_ (gx#syntax-e - _%tl1056610604%_))) - (let ((_%hd1056810611%_ + _%tl1066510703%_))) + (let ((_%hd1066710710%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e1056710607%_))) - (_%tl1056910614%_ - (let () (declare (not safe)) (##cdr _%e1056710607%_)))) - (if (gx#stx-pair? _%tl1056910614%_) - (let ((_%e1057010617%_ (gx#syntax-e _%tl1056910614%_))) - (let ((_%hd1057110621%_ + (##car _%e1066610706%_))) + (_%tl1066810713%_ + (let () (declare (not safe)) (##cdr _%e1066610706%_)))) + (if (gx#stx-pair? _%tl1066810713%_) + (let ((_%e1066910716%_ (gx#syntax-e _%tl1066810713%_))) + (let ((_%hd1067010720%_ (let () (declare (not safe)) - (##car _%e1057010617%_))) - (_%tl1057210624%_ + (##car _%e1066910716%_))) + (_%tl1067110723%_ (let () (declare (not safe)) - (##cdr _%e1057010617%_)))) - (if (gx#stx-pair? _%hd1057110621%_) - (let ((_%e1057310627%_ - (gx#syntax-e _%hd1057110621%_))) - (let ((_%hd1057410631%_ + (##cdr _%e1066910716%_)))) + (if (gx#stx-pair? _%hd1067010720%_) + (let ((_%e1067210726%_ + (gx#syntax-e _%hd1067010720%_))) + (let ((_%hd1067310730%_ (let () (declare (not safe)) - (##car _%e1057310627%_))) - (_%tl1057510634%_ + (##car _%e1067210726%_))) + (_%tl1067410733%_ (let () (declare (not safe)) - (##cdr _%e1057310627%_)))) - (if (gx#stx-null? _%tl1057510634%_) - (if (gx#stx-pair? _%tl1057210624%_) - (let ((_%e1057610637%_ + (##cdr _%e1067210726%_)))) + (if (gx#stx-null? _%tl1067410733%_) + (if (gx#stx-pair? _%tl1067110723%_) + (let ((_%e1067510736%_ (gx#syntax-e - _%tl1057210624%_))) - (let ((_%hd1057710641%_ + _%tl1067110723%_))) + (let ((_%hd1067610740%_ (let () (declare (not safe)) - (##car _%e1057610637%_))) - (_%tl1057810644%_ + (##car _%e1067510736%_))) + (_%tl1067710743%_ (let () (declare (not safe)) - (##cdr _%e1057610637%_)))) + (##cdr _%e1067510736%_)))) (if (gx#stx-pair? - _%tl1057810644%_) - (let ((_%e1057910647%_ + _%tl1067710743%_) + (let ((_%e1067810746%_ (gx#syntax-e - _%tl1057810644%_))) - (let ((_%hd1058010651%_ + _%tl1067710743%_))) + (let ((_%hd1067910750%_ (let () (declare (not safe)) - (##car _%e1057910647%_))) - (_%tl1058110654%_ + (##car _%e1067810746%_))) + (_%tl1068010753%_ (let () (declare (not safe)) - (##cdr _%e1057910647%_)))) + (##cdr _%e1067810746%_)))) (if (gx#stx-pair? - _%tl1058110654%_) - (let ((_%e1058210657%_ + _%tl1068010753%_) + (let ((_%e1068110756%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1058110654%_))) - (let ((_%hd1058310661%_ + (gx#syntax-e _%tl1068010753%_))) + (let ((_%hd1068210760%_ (let () (declare (not safe)) - (##car _%e1058210657%_))) - (_%tl1058410664%_ + (##car _%e1068110756%_))) + (_%tl1068310763%_ (let () (declare (not safe)) - (##cdr _%e1058210657%_)))) - (if (gx#stx-null? _%tl1058410664%_) - ((lambda (_%L10667%_ - _%L10669%_ - _%L10670%_ - _%L10671%_ - _%L10672%_ - _%L10673%_) + (##cdr _%e1068110756%_)))) + (if (gx#stx-null? _%tl1068310763%_) + ((lambda (_%L10766%_ + _%L10768%_ + _%L10769%_ + _%L10770%_ + _%L10771%_ + _%L10772%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L10672%_ + (cons (cons _%L10771%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L10670%_ '()))) + (cons _%L10769%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'if) @@ -5294,13 +5294,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'char?) - (cons _%L10673%_ '())) + (cons _%L10772%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax '#f '##char->integer) - (cons _%L10673%_ '())) + (cons _%L10772%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax @@ -5311,209 +5311,209 @@ '#f '##fx>=) (cons (gx#datum->syntax '#f 'ix) - (cons _%L10669%_ '()))) + (cons _%L10768%_ '()))) (cons (cons (gx#datum->syntax '#f '##fx<) (cons (gx#datum->syntax '#f 'ix) - (cons _%L10667%_ '()))) + (cons _%L10766%_ '()))) '()))) - (cons _%L10671%_ (cons (cons _%L10672%_ '()) '())))) + (cons _%L10770%_ (cons (cons _%L10771%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _%L10672%_ '()) '())))) + (cons (cons _%L10771%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd1058310661%_ - _%hd1058010651%_ - _%hd1057710641%_ - _%hd1057410631%_ - _%hd1056810611%_ - _%hd1056510601%_) - (_%g1055610590%_ _%g1055710594%_)))) - (_%g1055610590%_ _%g1055710594%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1055610590%_ - _%g1055710594%_)))) - (_%g1055610590%_ _%g1055710594%_)) - (_%g1055610590%_ _%g1055710594%_)))) - (_%g1055610590%_ _%g1055710594%_)))) - (_%g1055610590%_ _%g1055710594%_)))) - (_%g1055610590%_ _%g1055710594%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1055610590%_ - _%g1055710594%_))))) - (_%g1055510707%_ - (list _%e10538%_ + _%hd1068210760%_ + _%hd1067910750%_ + _%hd1067610740%_ + _%hd1067310730%_ + _%hd1066710710%_ + _%hd1066410700%_) + (_%g1065510689%_ _%g1065610693%_)))) + (_%g1065510689%_ _%g1065610693%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1065510689%_ + _%g1065610693%_)))) + (_%g1065510689%_ _%g1065610693%_)) + (_%g1065510689%_ _%g1065610693%_)))) + (_%g1065510689%_ _%g1065610693%_)))) + (_%g1065510689%_ _%g1065610693%_)))) + (_%g1065510689%_ _%g1065610693%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1065510689%_ + _%g1065610693%_))))) + (_%g1065410806%_ + (list _%e10637%_ (gx#genident 'default) - _%dispatch10541%_ - _%default10542%_ - _%start10552%_ - _%end10554%_)))) - (let* ((_%g1071110755%_ - (lambda (_%g1071210751%_) + _%dispatch10640%_ + _%default10641%_ + _%start10651%_ + _%end10653%_)))) + (let* ((_%g1081010854%_ + (lambda (_%g1081110850%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1071210751%_))) - (_%g1071010911%_ - (lambda (_%g1071210759%_) - (if (gx#stx-pair? _%g1071210759%_) - (let ((_%e1072010762%_ + _%g1081110850%_))) + (_%g1080911010%_ + (lambda (_%g1081110858%_) + (if (gx#stx-pair? _%g1081110858%_) + (let ((_%e1081910861%_ (gx#syntax-e - _%g1071210759%_))) - (let ((_%hd1072110766%_ + _%g1081110858%_))) + (let ((_%hd1082010865%_ (let () (declare (not safe)) - (##car _%e1072010762%_))) - (_%tl1072210769%_ + (##car _%e1081910861%_))) + (_%tl1082110868%_ (let () (declare (not safe)) - (##cdr _%e1072010762%_)))) + (##cdr _%e1081910861%_)))) (if (gx#stx-pair? - _%tl1072210769%_) - (let ((_%e1072310772%_ + _%tl1082110868%_) + (let ((_%e1082210871%_ (gx#syntax-e - _%tl1072210769%_))) - (let ((_%hd1072410776%_ + _%tl1082110868%_))) + (let ((_%hd1082310875%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e1072310772%_))) - (_%tl1072510779%_ - (let () (declare (not safe)) (##cdr _%e1072310772%_)))) - (if (gx#stx-pair? _%tl1072510779%_) - (let ((_%e1072610782%_ (gx#syntax-e _%tl1072510779%_))) - (let ((_%hd1072710786%_ + (##car _%e1082210871%_))) + (_%tl1082410878%_ + (let () (declare (not safe)) (##cdr _%e1082210871%_)))) + (if (gx#stx-pair? _%tl1082410878%_) + (let ((_%e1082510881%_ (gx#syntax-e _%tl1082410878%_))) + (let ((_%hd1082610885%_ (let () (declare (not safe)) - (##car _%e1072610782%_))) - (_%tl1072810789%_ + (##car _%e1082510881%_))) + (_%tl1082710888%_ (let () (declare (not safe)) - (##cdr _%e1072610782%_)))) - (if (gx#stx-pair? _%tl1072810789%_) - (let ((_%e1072910792%_ - (gx#syntax-e _%tl1072810789%_))) - (let ((_%hd1073010796%_ + (##cdr _%e1082510881%_)))) + (if (gx#stx-pair? _%tl1082710888%_) + (let ((_%e1082810891%_ + (gx#syntax-e _%tl1082710888%_))) + (let ((_%hd1082910895%_ (let () (declare (not safe)) - (##car _%e1072910792%_))) - (_%tl1073110799%_ + (##car _%e1082810891%_))) + (_%tl1083010898%_ (let () (declare (not safe)) - (##cdr _%e1072910792%_)))) - (if (gx#stx-pair/null? _%hd1073010796%_) - (let ((_g20923_ + (##cdr _%e1082810891%_)))) + (if (gx#stx-pair/null? _%hd1082910895%_) + (let ((_g21022_ (gx#syntax-split-splice - _%hd1073010796%_ + _%hd1082910895%_ '0))) (begin - (let ((_g20924_ + (let ((_g21023_ (let () (declare (not safe)) - (if (##values? _g20923_) - (##vector-length _g20923_) + (if (##values? _g21022_) + (##values-length _g21022_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20924_ 2))) + (##fx= _g21023_ 2))) (error "Context expects 2 values" - _g20924_))) - (let ((_%target1073210802%_ + _g21023_))) + (let ((_%target1083110901%_ (let () (declare (not safe)) - (##vector-ref _g20923_ 0))) - (_%tl1073410805%_ + (##values-ref _g21022_ 0))) + (_%tl1083310904%_ (let () (declare (not safe)) - (##vector-ref _g20923_ 1)))) - (if (gx#stx-null? _%tl1073410805%_) - (letrec ((_%loop1073510808%_ - (lambda (_%hd1073310812%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%dispatch1073910815%_) - (if (gx#stx-pair? _%hd1073310812%_) - (let ((_%e1073610818%_ (gx#syntax-e _%hd1073310812%_))) - (let ((_%lp-hd1073710822%_ + (##values-ref _g21022_ 1)))) + (if (gx#stx-null? _%tl1083310904%_) + (letrec ((_%loop1083410907%_ + (lambda (_%hd1083210911%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%dispatch1083810914%_) + (if (gx#stx-pair? _%hd1083210911%_) + (let ((_%e1083510917%_ (gx#syntax-e _%hd1083210911%_))) + (let ((_%lp-hd1083610921%_ (let () (declare (not safe)) - (##car _%e1073610818%_))) - (_%lp-tl1073810825%_ + (##car _%e1083510917%_))) + (_%lp-tl1083710924%_ (let () (declare (not safe)) - (##cdr _%e1073610818%_)))) - (_%loop1073510808%_ - _%lp-tl1073810825%_ - (cons _%lp-hd1073710822%_ _%dispatch1073910815%_)))) - (let ((_%dispatch1074010828%_ - (reverse _%dispatch1073910815%_))) - (if (gx#stx-pair? _%tl1073110799%_) - (let ((_%e1074110832%_ - (gx#syntax-e _%tl1073110799%_))) - (let ((_%hd1074210836%_ + (##cdr _%e1083510917%_)))) + (_%loop1083410907%_ + _%lp-tl1083710924%_ + (cons _%lp-hd1083610921%_ _%dispatch1083810914%_)))) + (let ((_%dispatch1083910927%_ + (reverse _%dispatch1083810914%_))) + (if (gx#stx-pair? _%tl1083010898%_) + (let ((_%e1084010931%_ + (gx#syntax-e _%tl1083010898%_))) + (let ((_%hd1084110935%_ (let () (declare (not safe)) - (##car _%e1074110832%_))) - (_%tl1074310839%_ + (##car _%e1084010931%_))) + (_%tl1084210938%_ (let () (declare (not safe)) - (##cdr _%e1074110832%_)))) - (if (gx#stx-pair? _%tl1074310839%_) - (let ((_%e1074410842%_ - (gx#syntax-e _%tl1074310839%_))) - (let ((_%hd1074510846%_ + (##cdr _%e1084010931%_)))) + (if (gx#stx-pair? _%tl1084210938%_) + (let ((_%e1084310941%_ + (gx#syntax-e _%tl1084210938%_))) + (let ((_%hd1084410945%_ (let () (declare (not safe)) - (##car _%e1074410842%_))) - (_%tl1074610849%_ + (##car _%e1084310941%_))) + (_%tl1084510948%_ (let () (declare (not safe)) - (##cdr _%e1074410842%_)))) - (if (gx#stx-pair? _%tl1074610849%_) - (let ((_%e1074710852%_ + (##cdr _%e1084310941%_)))) + (if (gx#stx-pair? _%tl1084510948%_) + (let ((_%e1084610951%_ (gx#syntax-e - _%tl1074610849%_))) - (let ((_%hd1074810856%_ + _%tl1084510948%_))) + (let ((_%hd1084710955%_ (let () (declare (not safe)) - (##car _%e1074710852%_))) - (_%tl1074910859%_ + (##car _%e1084610951%_))) + (_%tl1084810958%_ (let () (declare (not safe)) - (##cdr _%e1074710852%_)))) + (##cdr _%e1084610951%_)))) (if (gx#stx-null? - _%tl1074910859%_) - ((lambda (_%L10862%_ - _%L10864%_ - _%L10865%_ - _%L10866%_ - _%L10867%_ - _%L10868%_ - _%L10869%_) + _%tl1084810958%_) + ((lambda (_%L10961%_ + _%L10963%_ + _%L10964%_ + _%L10965%_ + _%L10966%_ + _%L10967%_ + _%L10968%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L10868%_ + (cons (cons (cons _%L10967%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L10865%_ + (cons _%L10964%_ '()))) '())) - (cons (cons _%L10867%_ + (cons (cons _%L10966%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L10864%_ '())) + (cons _%L10963%_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'char?) - (cons _%L10869%_ '())) + (cons _%L10968%_ '())) (cons (cons (gx#datum->syntax '#f 'let) @@ -5524,12 +5524,12 @@ (cons (cons (gx#datum->syntax '#f '##char->integer) - (cons _%L10869%_ '())) + (cons _%L10968%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx<) (cons (gx#datum->syntax '#f 'ix) - (cons _%L10862%_ '()))) + (cons _%L10961%_ '()))) (cons (cons (gx#datum->syntax '#f 'let) @@ -5538,7 +5538,7 @@ '#f 'x) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L10867%_ + (cons _%L10966%_ (cons (gx#datum->syntax '#f 'ix) '()))) '())) @@ -5550,255 +5550,255 @@ (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1090210905%_ + (foldr (lambda (_%g1100111004%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1090310908%_) - (cons _%g1090210905%_ _%g1090310908%_)) + _%g1100211007%_) + (cons _%g1100111004%_ _%g1100211007%_)) '() - _%L10866%_))) + _%L10965%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10868%_ '()) '())))) + (cons (cons _%L10967%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10868%_ '()) + (cons (cons _%L10967%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10868%_ '()) + (cons (cons _%L10967%_ '()) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1074810856%_ - _%hd1074510846%_ - _%hd1074210836%_ - _%dispatch1074010828%_ - _%hd1072710786%_ - _%hd1072410776%_ - _%hd1072110766%_) - (_%g1071110755%_ - _%g1071210759%_)))) - (_%g1071110755%_ - _%g1071210759%_)))) - (_%g1071110755%_ _%g1071210759%_)))) - (_%g1071110755%_ _%g1071210759%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1073510808%_ - _%target1073210802%_ + _%hd1084710955%_ + _%hd1084410945%_ + _%hd1084110935%_ + _%dispatch1083910927%_ + _%hd1082610885%_ + _%hd1082310875%_ + _%hd1082010865%_) + (_%g1081010854%_ + _%g1081110858%_)))) + (_%g1081010854%_ + _%g1081110858%_)))) + (_%g1081010854%_ _%g1081110858%_)))) + (_%g1081010854%_ _%g1081110858%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1083410907%_ + _%target1083110901%_ '())) - (_%g1071110755%_ - _%g1071210759%_))))) - (_%g1071110755%_ _%g1071210759%_)))) - (_%g1071110755%_ _%g1071210759%_)))) - (_%g1071110755%_ _%g1071210759%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1071110755%_ - _%g1071210759%_)))) - (_%g1071110755%_ - _%g1071210759%_))))) - (_%g1071010911%_ - (list _%e10538%_ + (_%g1081010854%_ + _%g1081110858%_))))) + (_%g1081010854%_ _%g1081110858%_)))) + (_%g1081010854%_ _%g1081110858%_)))) + (_%g1081010854%_ _%g1081110858%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1081010854%_ + _%g1081110858%_)))) + (_%g1081010854%_ + _%g1081110858%_))))) + (_%g1080911010%_ + (list _%e10637%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch10541%_ - _%default10542%_ - _%tab10547%_ - (vector-length _%tab10547%_)))))) - (_%generate-char-dispatch/hash9388%_ - _%e10538%_ - _%datums10540%_ - _%dispatch10541%_ - _%default10542%_)))) - (_%generate-char-dispatch/hash9388%_ - (lambda (_%e10316%_ - _%datums10318%_ - _%dispatch10319%_ - _%default10320%_) - (let* ((_%indexes10322%_ - (_%datum-dispatch-index9379%_ _%datums10318%_)) - (_%tab10325%_ - (_%generate-hash-dispatch-table9381%_ - _%indexes10322%_ + _%dispatch10640%_ + _%default10641%_ + _%tab10646%_ + (vector-length _%tab10646%_)))))) + (_%generate-char-dispatch/hash9487%_ + _%e10637%_ + _%datums10639%_ + _%dispatch10640%_ + _%default10641%_)))) + (_%generate-char-dispatch/hash9487%_ + (lambda (_%e10415%_ + _%datums10417%_ + _%dispatch10418%_ + _%default10419%_) + (let* ((_%indexes10421%_ + (_%datum-dispatch-index9478%_ _%datums10417%_)) + (_%tab10424%_ + (_%generate-hash-dispatch-table9480%_ + _%indexes10421%_ char->integer)) - (_%g1033010374%_ - (lambda (_%g1033110370%_) + (_%g1042910473%_ + (lambda (_%g1043010469%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1033110370%_))) - (_%g1032910534%_ - (lambda (_%g1033110378%_) - (if (gx#stx-pair? _%g1033110378%_) - (let ((_%e1033910381%_ - (gx#syntax-e _%g1033110378%_))) - (let ((_%hd1034010385%_ + _%g1043010469%_))) + (_%g1042810633%_ + (lambda (_%g1043010477%_) + (if (gx#stx-pair? _%g1043010477%_) + (let ((_%e1043810480%_ + (gx#syntax-e _%g1043010477%_))) + (let ((_%hd1043910484%_ (let () (declare (not safe)) - (##car _%e1033910381%_))) - (_%tl1034110388%_ + (##car _%e1043810480%_))) + (_%tl1044010487%_ (let () (declare (not safe)) - (##cdr _%e1033910381%_)))) - (if (gx#stx-pair? _%tl1034110388%_) - (let ((_%e1034210391%_ + (##cdr _%e1043810480%_)))) + (if (gx#stx-pair? _%tl1044010487%_) + (let ((_%e1044110490%_ (gx#syntax-e - _%tl1034110388%_))) - (let ((_%hd1034310395%_ + _%tl1044010487%_))) + (let ((_%hd1044210494%_ (let () (declare (not safe)) - (##car _%e1034210391%_))) - (_%tl1034410398%_ + (##car _%e1044110490%_))) + (_%tl1044310497%_ (let () (declare (not safe)) - (##cdr _%e1034210391%_)))) + (##cdr _%e1044110490%_)))) (if (gx#stx-pair? - _%tl1034410398%_) - (let ((_%e1034510401%_ + _%tl1044310497%_) + (let ((_%e1044410500%_ (gx#syntax-e - _%tl1034410398%_))) - (let ((_%hd1034610405%_ + _%tl1044310497%_))) + (let ((_%hd1044510504%_ (let () (declare (not safe)) - (##car _%e1034510401%_))) - (_%tl1034710408%_ + (##car _%e1044410500%_))) + (_%tl1044610507%_ (let () (declare (not safe)) - (##cdr _%e1034510401%_)))) + (##cdr _%e1044410500%_)))) (if (gx#stx-pair? - _%tl1034710408%_) - (let ((_%e1034810411%_ + _%tl1044610507%_) + (let ((_%e1044710510%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1034710408%_))) - (let ((_%hd1034910415%_ + (gx#syntax-e _%tl1044610507%_))) + (let ((_%hd1044810514%_ (let () (declare (not safe)) - (##car _%e1034810411%_))) - (_%tl1035010418%_ + (##car _%e1044710510%_))) + (_%tl1044910517%_ (let () (declare (not safe)) - (##cdr _%e1034810411%_)))) - (if (gx#stx-pair/null? _%hd1034910415%_) - (let ((_g20925_ - (gx#syntax-split-splice _%hd1034910415%_ '0))) + (##cdr _%e1044710510%_)))) + (if (gx#stx-pair/null? _%hd1044810514%_) + (let ((_g21024_ + (gx#syntax-split-splice _%hd1044810514%_ '0))) (begin - (let ((_g20926_ + (let ((_g21025_ (let () (declare (not safe)) - (if (##values? _g20925_) - (##vector-length _g20925_) + (if (##values? _g21024_) + (##values-length _g21024_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20926_ 2))) + (##fx= _g21025_ 2))) (error "Context expects 2 values" - _g20926_))) - (let ((_%target1035110421%_ + _g21025_))) + (let ((_%target1045010520%_ (let () (declare (not safe)) - (##vector-ref _g20925_ 0))) - (_%tl1035310424%_ + (##values-ref _g21024_ 0))) + (_%tl1045210523%_ (let () (declare (not safe)) - (##vector-ref _g20925_ 1)))) - (if (gx#stx-null? _%tl1035310424%_) - (letrec ((_%loop1035410427%_ - (lambda (_%hd1035210431%_ - _%dispatch1035810434%_) + (##values-ref _g21024_ 1)))) + (if (gx#stx-null? _%tl1045210523%_) + (letrec ((_%loop1045310526%_ + (lambda (_%hd1045110530%_ + _%dispatch1045710533%_) (if (gx#stx-pair? - _%hd1035210431%_) - (let ((_%e1035510437%_ + _%hd1045110530%_) + (let ((_%e1045410536%_ (gx#syntax-e - _%hd1035210431%_))) - (let ((_%lp-hd1035610441%_ + _%hd1045110530%_))) + (let ((_%lp-hd1045510540%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e1035510437%_))) - (_%lp-tl1035710444%_ - (let () (declare (not safe)) (##cdr _%e1035510437%_)))) - (_%loop1035410427%_ - _%lp-tl1035710444%_ - (cons _%lp-hd1035610441%_ _%dispatch1035810434%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%dispatch1035910447%_ - (reverse _%dispatch1035810434%_))) + (##car _%e1045410536%_))) + (_%lp-tl1045610543%_ + (let () (declare (not safe)) (##cdr _%e1045410536%_)))) + (_%loop1045310526%_ + _%lp-tl1045610543%_ + (cons _%lp-hd1045510540%_ _%dispatch1045710533%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%dispatch1045810546%_ + (reverse _%dispatch1045710533%_))) (if (gx#stx-pair? - _%tl1035010418%_) - (let ((_%e1036010451%_ + _%tl1044910517%_) + (let ((_%e1045910550%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1035010418%_))) - (let ((_%hd1036110455%_ + (gx#syntax-e _%tl1044910517%_))) + (let ((_%hd1046010554%_ (let () (declare (not safe)) - (##car _%e1036010451%_))) - (_%tl1036210458%_ + (##car _%e1045910550%_))) + (_%tl1046110557%_ (let () (declare (not safe)) - (##cdr _%e1036010451%_)))) - (if (gx#stx-pair? _%tl1036210458%_) - (let ((_%e1036310461%_ - (gx#syntax-e _%tl1036210458%_))) - (let ((_%hd1036410465%_ + (##cdr _%e1045910550%_)))) + (if (gx#stx-pair? _%tl1046110557%_) + (let ((_%e1046210560%_ + (gx#syntax-e _%tl1046110557%_))) + (let ((_%hd1046310564%_ (let () (declare (not safe)) - (##car _%e1036310461%_))) - (_%tl1036510468%_ + (##car _%e1046210560%_))) + (_%tl1046410567%_ (let () (declare (not safe)) - (##cdr _%e1036310461%_)))) - (if (gx#stx-pair? _%tl1036510468%_) - (let ((_%e1036610471%_ - (gx#syntax-e _%tl1036510468%_))) - (let ((_%hd1036710475%_ + (##cdr _%e1046210560%_)))) + (if (gx#stx-pair? _%tl1046410567%_) + (let ((_%e1046510570%_ + (gx#syntax-e _%tl1046410567%_))) + (let ((_%hd1046610574%_ (let () (declare (not safe)) - (##car _%e1036610471%_))) - (_%tl1036810478%_ + (##car _%e1046510570%_))) + (_%tl1046710577%_ (let () (declare (not safe)) - (##cdr _%e1036610471%_)))) - (if (gx#stx-null? _%tl1036810478%_) - ((lambda (_%L10481%_ - _%L10483%_ - _%L10484%_ - _%L10485%_ - _%L10486%_ - _%L10487%_ - _%L10488%_) + (##cdr _%e1046510570%_)))) + (if (gx#stx-null? _%tl1046710577%_) + ((lambda (_%L10580%_ + _%L10582%_ + _%L10583%_ + _%L10584%_ + _%L10585%_ + _%L10586%_ + _%L10587%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L10487%_ + (cons (cons (cons _%L10586%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) - (cons '() (cons _%L10484%_ '()))) + (cons '() (cons _%L10583%_ '()))) '())) - (cons (cons _%L10486%_ + (cons (cons _%L10585%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L10483%_ '())) + (cons _%L10582%_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'char?) - (cons _%L10488%_ '())) + (cons _%L10587%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'h) (cons (cons (gx#datum->syntax '#f '##char->integer) - (cons _%L10488%_ '())) + (cons _%L10587%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax '#f '##fxmodulo) (cons (gx#datum->syntax '#f 'h) - (cons _%L10481%_ '()))) + (cons _%L10580%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L10486%_ + (cons _%L10585%_ (cons (gx#datum->syntax '#f 'ix) @@ -5820,7 +5820,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L10488%_ '()))) + (cons _%L10587%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -5835,260 +5835,260 @@ '())) (cons (cons (gx#datum->syntax '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1052510528%_ - _%g1052610531%_) - (cons _%g1052510528%_ - _%g1052610531%_)) + (foldr (lambda (_%g1062410627%_ + _%g1062510630%_) + (cons _%g1062410627%_ + _%g1062510630%_)) '() - _%L10485%_))) + _%L10584%_))) '()))) - (cons (cons _%L10487%_ '()) '())))) + (cons (cons _%L10586%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10487%_ '()) '())))) + (cons (cons _%L10586%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10487%_ '()) '())))) + (cons (cons _%L10586%_ '()) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1036710475%_ - _%hd1036410465%_ - _%hd1036110455%_ - _%dispatch1035910447%_ - _%hd1034610405%_ - _%hd1034310395%_ - _%hd1034010385%_) - (_%g1033010374%_ _%g1033110378%_)))) - (_%g1033010374%_ _%g1033110378%_)))) - (_%g1033010374%_ _%g1033110378%_)))) - (_%g1033010374%_ _%g1033110378%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1035410427%_ - _%target1035110421%_ + _%hd1046610574%_ + _%hd1046310564%_ + _%hd1046010554%_ + _%dispatch1045810546%_ + _%hd1044510504%_ + _%hd1044210494%_ + _%hd1043910484%_) + (_%g1042910473%_ _%g1043010477%_)))) + (_%g1042910473%_ _%g1043010477%_)))) + (_%g1042910473%_ _%g1043010477%_)))) + (_%g1042910473%_ _%g1043010477%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1045310526%_ + _%target1045010520%_ '())) - (_%g1033010374%_ _%g1033110378%_))))) - (_%g1033010374%_ _%g1033110378%_)))) - (_%g1033010374%_ _%g1033110378%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1033010374%_ - _%g1033110378%_)))) - (_%g1033010374%_ _%g1033110378%_)))) - (_%g1033010374%_ _%g1033110378%_))))) - (_%g1032910534%_ - (list _%e10316%_ + (_%g1042910473%_ _%g1043010477%_))))) + (_%g1042910473%_ _%g1043010477%_)))) + (_%g1042910473%_ _%g1043010477%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1042910473%_ + _%g1043010477%_)))) + (_%g1042910473%_ _%g1043010477%_)))) + (_%g1042910473%_ _%g1043010477%_))))) + (_%g1042810633%_ + (list _%e10415%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch10319%_ - _%default10320%_ - _%tab10325%_ - (vector-length _%tab10325%_)))))) - (_%min-fixnum9389%_ - (lambda (_%datums10309%_) - (foldl (lambda (_%lst10312%_ _%r10314%_) - (foldl min _%r10314%_ _%lst10312%_)) + _%dispatch10418%_ + _%default10419%_ + _%tab10424%_ + (vector-length _%tab10424%_)))))) + (_%min-fixnum9488%_ + (lambda (_%datums10408%_) + (foldl (lambda (_%lst10411%_ _%r10413%_) + (foldl min _%r10413%_ _%lst10411%_)) ##max-fixnum - _%datums10309%_))) - (_%max-fixnum9390%_ - (lambda (_%datums10302%_) - (foldl (lambda (_%lst10305%_ _%r10307%_) - (foldl max _%r10307%_ _%lst10305%_)) + _%datums10408%_))) + (_%max-fixnum9489%_ + (lambda (_%datums10401%_) + (foldl (lambda (_%lst10404%_ _%r10406%_) + (foldl max _%r10406%_ _%lst10404%_)) ##min-fixnum - _%datums10302%_))) - (_%generate-fixnum-dispatch-table9391%_ - (lambda (_%indexes10284%_) - (let* ((_%ixs10287%_ (map car _%indexes10284%_)) - (_%len10290%_ (fx1+ (foldl max '0 _%ixs10287%_))) - (_%vec10293%_ (make-vector _%len10290%_ '#f))) + _%datums10401%_))) + (_%generate-fixnum-dispatch-table9490%_ + (lambda (_%indexes10383%_) + (let* ((_%ixs10386%_ (map car _%indexes10383%_)) + (_%len10389%_ (fx1+ (foldl max '0 _%ixs10386%_))) + (_%vec10392%_ (make-vector _%len10389%_ '#f))) (for-each - (lambda (_%entry10298%_ _%x10300%_) + (lambda (_%entry10397%_ _%x10399%_) (vector-set! - _%vec10293%_ - _%x10300%_ - (cdr _%entry10298%_))) - _%indexes10284%_ - _%ixs10287%_) - _%vec10293%_))) - (_%generate-fixnum-dispatch9392%_ - (lambda (_%e10018%_ - _%datums10020%_ - _%dispatch10021%_ - _%default10022%_) - (if (and (>= (_%min-fixnum9389%_ _%datums10020%_) '0) - (< (_%max-fixnum9390%_ _%datums10020%_) '1024)) - (let* ((_%indexes10024%_ - (_%datum-dispatch-index9379%_ _%datums10020%_)) - (_%tab10027%_ - (_%generate-fixnum-dispatch-table9391%_ - _%indexes10024%_)) - (_%dense?10030%_ - (andmap values (vector->list _%tab10027%_))) - (_%g1003510079%_ - (lambda (_%g1003610075%_) + _%vec10392%_ + _%x10399%_ + (cdr _%entry10397%_))) + _%indexes10383%_ + _%ixs10386%_) + _%vec10392%_))) + (_%generate-fixnum-dispatch9491%_ + (lambda (_%e10117%_ + _%datums10119%_ + _%dispatch10120%_ + _%default10121%_) + (if (and (>= (_%min-fixnum9488%_ _%datums10119%_) '0) + (< (_%max-fixnum9489%_ _%datums10119%_) '1024)) + (let* ((_%indexes10123%_ + (_%datum-dispatch-index9478%_ _%datums10119%_)) + (_%tab10126%_ + (_%generate-fixnum-dispatch-table9490%_ + _%indexes10123%_)) + (_%dense?10129%_ + (andmap values (vector->list _%tab10126%_))) + (_%g1013410178%_ + (lambda (_%g1013510174%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1003610075%_))) - (_%g1003410280%_ - (lambda (_%g1003610083%_) - (if (gx#stx-pair? _%g1003610083%_) - (let ((_%e1004410086%_ - (gx#syntax-e _%g1003610083%_))) - (let ((_%hd1004510090%_ + _%g1013510174%_))) + (_%g1013310379%_ + (lambda (_%g1013510182%_) + (if (gx#stx-pair? _%g1013510182%_) + (let ((_%e1014310185%_ + (gx#syntax-e _%g1013510182%_))) + (let ((_%hd1014410189%_ (let () (declare (not safe)) - (##car _%e1004410086%_))) - (_%tl1004610093%_ + (##car _%e1014310185%_))) + (_%tl1014510192%_ (let () (declare (not safe)) - (##cdr _%e1004410086%_)))) - (if (gx#stx-pair? _%tl1004610093%_) - (let ((_%e1004710096%_ + (##cdr _%e1014310185%_)))) + (if (gx#stx-pair? _%tl1014510192%_) + (let ((_%e1014610195%_ (gx#syntax-e - _%tl1004610093%_))) - (let ((_%hd1004810100%_ + _%tl1014510192%_))) + (let ((_%hd1014710199%_ (let () (declare (not safe)) - (##car _%e1004710096%_))) - (_%tl1004910103%_ + (##car _%e1014610195%_))) + (_%tl1014810202%_ (let () (declare (not safe)) - (##cdr _%e1004710096%_)))) + (##cdr _%e1014610195%_)))) (if (gx#stx-pair? - _%tl1004910103%_) - (let ((_%e1005010106%_ + _%tl1014810202%_) + (let ((_%e1014910205%_ (gx#syntax-e - _%tl1004910103%_))) - (let ((_%hd1005110110%_ + _%tl1014810202%_))) + (let ((_%hd1015010209%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e1005010106%_))) - (_%tl1005210113%_ - (let () (declare (not safe)) (##cdr _%e1005010106%_)))) - (if (gx#stx-pair? _%tl1005210113%_) - (let ((_%e1005310116%_ (gx#syntax-e _%tl1005210113%_))) - (let ((_%hd1005410120%_ + (##car _%e1014910205%_))) + (_%tl1015110212%_ + (let () (declare (not safe)) (##cdr _%e1014910205%_)))) + (if (gx#stx-pair? _%tl1015110212%_) + (let ((_%e1015210215%_ (gx#syntax-e _%tl1015110212%_))) + (let ((_%hd1015310219%_ (let () (declare (not safe)) - (##car _%e1005310116%_))) - (_%tl1005510123%_ + (##car _%e1015210215%_))) + (_%tl1015410222%_ (let () (declare (not safe)) - (##cdr _%e1005310116%_)))) - (if (gx#stx-pair/null? _%hd1005410120%_) - (let ((_g20927_ + (##cdr _%e1015210215%_)))) + (if (gx#stx-pair/null? _%hd1015310219%_) + (let ((_g21026_ (gx#syntax-split-splice - _%hd1005410120%_ + _%hd1015310219%_ '0))) (begin - (let ((_g20928_ + (let ((_g21027_ (let () (declare (not safe)) - (if (##values? _g20927_) - (##vector-length _g20927_) + (if (##values? _g21026_) + (##values-length _g21026_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20928_ 2))) + (##fx= _g21027_ 2))) (error "Context expects 2 values" - _g20928_))) - (let ((_%target1005610126%_ + _g21027_))) + (let ((_%target1015510225%_ (let () (declare (not safe)) - (##vector-ref _g20927_ 0))) - (_%tl1005810129%_ + (##values-ref _g21026_ 0))) + (_%tl1015710228%_ (let () (declare (not safe)) - (##vector-ref _g20927_ 1)))) - (if (gx#stx-null? _%tl1005810129%_) - (letrec ((_%loop1005910132%_ - (lambda (_%hd1005710136%_ - _%dispatch1006310139%_) + (##values-ref _g21026_ 1)))) + (if (gx#stx-null? _%tl1015710228%_) + (letrec ((_%loop1015810231%_ + (lambda (_%hd1015610235%_ + _%dispatch1016210238%_) (if (gx#stx-pair? - _%hd1005710136%_) - (let ((_%e1006010142%_ + _%hd1015610235%_) + (let ((_%e1015910241%_ (gx#syntax-e - _%hd1005710136%_))) - (let ((_%lp-hd1006110146%_ + _%hd1015610235%_))) + (let ((_%lp-hd1016010245%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e1006010142%_))) - (_%lp-tl1006210149%_ + (let () (declare (not safe)) (##car _%e1015910241%_))) + (_%lp-tl1016110248%_ (let () (declare (not safe)) - (##cdr _%e1006010142%_)))) - (_%loop1005910132%_ - _%lp-tl1006210149%_ - (cons _%lp-hd1006110146%_ _%dispatch1006310139%_)))) - (let ((_%dispatch1006410152%_ - (reverse _%dispatch1006310139%_))) - (if (gx#stx-pair? _%tl1005510123%_) - (let ((_%e1006510156%_ (gx#syntax-e _%tl1005510123%_))) - (let ((_%hd1006610160%_ + (##cdr _%e1015910241%_)))) + (_%loop1015810231%_ + _%lp-tl1016110248%_ + (cons _%lp-hd1016010245%_ _%dispatch1016210238%_)))) + (let ((_%dispatch1016310251%_ + (reverse _%dispatch1016210238%_))) + (if (gx#stx-pair? _%tl1015410222%_) + (let ((_%e1016410255%_ (gx#syntax-e _%tl1015410222%_))) + (let ((_%hd1016510259%_ (let () (declare (not safe)) - (##car _%e1006510156%_))) - (_%tl1006710163%_ + (##car _%e1016410255%_))) + (_%tl1016610262%_ (let () (declare (not safe)) - (##cdr _%e1006510156%_)))) - (if (gx#stx-pair? _%tl1006710163%_) - (let ((_%e1006810166%_ - (gx#syntax-e _%tl1006710163%_))) - (let ((_%hd1006910170%_ + (##cdr _%e1016410255%_)))) + (if (gx#stx-pair? _%tl1016610262%_) + (let ((_%e1016710265%_ + (gx#syntax-e _%tl1016610262%_))) + (let ((_%hd1016810269%_ (let () (declare (not safe)) - (##car _%e1006810166%_))) - (_%tl1007010173%_ + (##car _%e1016710265%_))) + (_%tl1016910272%_ (let () (declare (not safe)) - (##cdr _%e1006810166%_)))) - (if (gx#stx-pair? _%tl1007010173%_) - (let ((_%e1007110176%_ - (gx#syntax-e _%tl1007010173%_))) - (let ((_%hd1007210180%_ + (##cdr _%e1016710265%_)))) + (if (gx#stx-pair? _%tl1016910272%_) + (let ((_%e1017010275%_ + (gx#syntax-e _%tl1016910272%_))) + (let ((_%hd1017110279%_ (let () (declare (not safe)) - (##car _%e1007110176%_))) - (_%tl1007310183%_ + (##car _%e1017010275%_))) + (_%tl1017210282%_ (let () (declare (not safe)) - (##cdr _%e1007110176%_)))) - (if (gx#stx-null? _%tl1007310183%_) - ((lambda (_%L10186%_ - _%L10188%_ - _%L10189%_ - _%L10190%_ - _%L10191%_ - _%L10192%_ - _%L10193%_) - (let* ((_%g1023210240%_ - (lambda (_%g1023310236%_) + (##cdr _%e1017010275%_)))) + (if (gx#stx-null? _%tl1017210282%_) + ((lambda (_%L10285%_ + _%L10287%_ + _%L10288%_ + _%L10289%_ + _%L10290%_ + _%L10291%_ + _%L10292%_) + (let* ((_%g1033110339%_ + (lambda (_%g1033210335%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1023310236%_))) - (_%g1023110260%_ - (lambda (_%g1023310244%_) - ((lambda (_%L10247%_) + _%g1033210335%_))) + (_%g1033010359%_ + (lambda (_%g1033210343%_) + ((lambda (_%L10346%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let) - (cons (cons (cons _%L10192%_ + (cons (cons (cons _%L10291%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L10189%_ + (cons _%L10288%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons _%L10191%_ + (cons (cons _%L10290%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L10188%_ '())) + (cons _%L10287%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -6096,7 +6096,7 @@ (cons (cons (gx#datum->syntax '#f 'fixnum?) - (cons _%L10193%_ + (cons _%L10292%_ '())) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -6104,13 +6104,13 @@ 'if) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax '#f '##fx>=) - (cons _%L10193%_ + (cons _%L10292%_ (cons '0 '()))) (cons (cons (gx#datum->syntax '#f '##fx<) - (cons _%L10193%_ - (cons _%L10186%_ + (cons _%L10292%_ + (cons _%L10285%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -6121,18 +6121,18 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##vector-ref) - (cons _%L10191%_ (cons _%L10193%_ '()))) + (cons _%L10290%_ (cons _%L10292%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L10247%_ '()))) - (cons (cons _%L10192%_ '()) '())))) - (cons (cons _%L10192%_ '()) '())))) + (cons _%L10346%_ '()))) + (cons (cons _%L10291%_ '()) '())))) + (cons (cons _%L10291%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g1023310244%_)))) + _%g1033210343%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1023110260%_ - (if _%dense?10030%_ + (_%g1033010359%_ + (if _%dense?10129%_ (cons (gx#datum->syntax '#f '~case-dispatch) @@ -6140,236 +6140,238 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'x) - (foldr (lambda (_%g1026310266%_ _%g1026410269%_) - (cons _%g1026310266%_ _%g1026410269%_)) + (foldr (lambda (_%g1036210365%_ _%g1036310368%_) + (cons _%g1036210365%_ _%g1036310368%_)) '() - _%L10190%_))) + _%L10289%_))) (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 (_%g1027110274%_ - _%g1027210277%_) - (cons _%g1027110274%_ - _%g1027210277%_)) + (foldr (lambda (_%g1037010373%_ + _%g1037110376%_) + (cons _%g1037010373%_ + _%g1037110376%_)) '() - _%L10190%_))) - (cons (cons _%L10192%_ '()) '())))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1007210180%_ - _%hd1006910170%_ - _%hd1006610160%_ - _%dispatch1006410152%_ - _%hd1005110110%_ - _%hd1004810100%_ - _%hd1004510090%_) - (_%g1003510079%_ - _%g1003610083%_)))) - (_%g1003510079%_ _%g1003610083%_)))) - (_%g1003510079%_ _%g1003610083%_)))) - (_%g1003510079%_ _%g1003610083%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1005910132%_ - _%target1005610126%_ + _%L10289%_))) + (cons (cons _%L10291%_ '()) '())))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd1017110279%_ + _%hd1016810269%_ + _%hd1016510259%_ + _%dispatch1016310251%_ + _%hd1015010209%_ + _%hd1014710199%_ + _%hd1014410189%_) + (_%g1013410178%_ + _%g1013510182%_)))) + (_%g1013410178%_ _%g1013510182%_)))) + (_%g1013410178%_ _%g1013510182%_)))) + (_%g1013410178%_ _%g1013510182%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1015810231%_ + _%target1015510225%_ '())) - (_%g1003510079%_ _%g1003610083%_))))) - (_%g1003510079%_ _%g1003610083%_)))) - (_%g1003510079%_ _%g1003610083%_)))) - (_%g1003510079%_ _%g1003610083%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1003510079%_ - _%g1003610083%_)))) - (_%g1003510079%_ _%g1003610083%_))))) - (_%g1003410280%_ - (list _%e10018%_ + (_%g1013410178%_ _%g1013510182%_))))) + (_%g1013410178%_ _%g1013510182%_)))) + (_%g1013410178%_ _%g1013510182%_)))) + (_%g1013410178%_ _%g1013510182%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1013410178%_ + _%g1013510182%_)))) + (_%g1013410178%_ _%g1013510182%_))))) + (_%g1013310379%_ + (list _%e10117%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch10021%_ - _%default10022%_ - _%tab10027%_ - (vector-length _%tab10027%_)))) - (_%generate-fixnum-dispatch/hash9393%_ - _%e10018%_ - _%datums10020%_ - _%dispatch10021%_ - _%default10022%_)))) - (_%generate-fixnum-dispatch/hash9393%_ - (lambda (_%e9796%_ - _%datums9798%_ - _%dispatch9799%_ - _%default9800%_) - (let* ((_%indexes9802%_ - (_%datum-dispatch-index9379%_ _%datums9798%_)) - (_%tab9805%_ - (_%generate-hash-dispatch-table9381%_ - _%indexes9802%_ + _%dispatch10120%_ + _%default10121%_ + _%tab10126%_ + (vector-length _%tab10126%_)))) + (_%generate-fixnum-dispatch/hash9492%_ + _%e10117%_ + _%datums10119%_ + _%dispatch10120%_ + _%default10121%_)))) + (_%generate-fixnum-dispatch/hash9492%_ + (lambda (_%e9895%_ + _%datums9897%_ + _%dispatch9898%_ + _%default9899%_) + (let* ((_%indexes9901%_ + (_%datum-dispatch-index9478%_ _%datums9897%_)) + (_%tab9904%_ + (_%generate-hash-dispatch-table9480%_ + _%indexes9901%_ values)) - (_%g98109854%_ - (lambda (_%g98119850%_) + (_%g99099953%_ + (lambda (_%g99109949%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g98119850%_))) - (_%g980910014%_ - (lambda (_%g98119858%_) - (if (gx#stx-pair? _%g98119858%_) - (let ((_%e98199861%_ - (gx#syntax-e _%g98119858%_))) - (let ((_%hd98209865%_ + _%g99109949%_))) + (_%g990810113%_ + (lambda (_%g99109957%_) + (if (gx#stx-pair? _%g99109957%_) + (let ((_%e99189960%_ + (gx#syntax-e _%g99109957%_))) + (let ((_%hd99199964%_ (let () (declare (not safe)) - (##car _%e98199861%_))) - (_%tl98219868%_ + (##car _%e99189960%_))) + (_%tl99209967%_ (let () (declare (not safe)) - (##cdr _%e98199861%_)))) - (if (gx#stx-pair? _%tl98219868%_) - (let ((_%e98229871%_ - (gx#syntax-e _%tl98219868%_))) - (let ((_%hd98239875%_ + (##cdr _%e99189960%_)))) + (if (gx#stx-pair? _%tl99209967%_) + (let ((_%e99219970%_ + (gx#syntax-e _%tl99209967%_))) + (let ((_%hd99229974%_ (let () (declare (not safe)) - (##car _%e98229871%_))) - (_%tl98249878%_ + (##car _%e99219970%_))) + (_%tl99239977%_ (let () (declare (not safe)) - (##cdr _%e98229871%_)))) - (if (gx#stx-pair? _%tl98249878%_) - (let ((_%e98259881%_ + (##cdr _%e99219970%_)))) + (if (gx#stx-pair? _%tl99239977%_) + (let ((_%e99249980%_ (gx#syntax-e - _%tl98249878%_))) - (let ((_%hd98269885%_ + _%tl99239977%_))) + (let ((_%hd99259984%_ (let () (declare (not safe)) - (##car _%e98259881%_))) - (_%tl98279888%_ + (##car _%e99249980%_))) + (_%tl99269987%_ (let () (declare (not safe)) - (##cdr _%e98259881%_)))) + (##cdr _%e99249980%_)))) (if (gx#stx-pair? - _%tl98279888%_) - (let ((_%e98289891%_ + _%tl99269987%_) + (let ((_%e99279990%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl98279888%_))) - (let ((_%hd98299895%_ - (let () (declare (not safe)) (##car _%e98289891%_))) - (_%tl98309898%_ + (gx#syntax-e _%tl99269987%_))) + (let ((_%hd99289994%_ + (let () (declare (not safe)) (##car _%e99279990%_))) + (_%tl99299997%_ (let () (declare (not safe)) - (##cdr _%e98289891%_)))) - (if (gx#stx-pair/null? _%hd98299895%_) - (let ((_g20929_ - (gx#syntax-split-splice _%hd98299895%_ '0))) + (##cdr _%e99279990%_)))) + (if (gx#stx-pair/null? _%hd99289994%_) + (let ((_g21028_ + (gx#syntax-split-splice _%hd99289994%_ '0))) (begin - (let ((_g20930_ + (let ((_g21029_ (let () (declare (not safe)) - (if (##values? _g20929_) - (##vector-length _g20929_) + (if (##values? _g21028_) + (##values-length _g21028_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20930_ 2))) + (##fx= _g21029_ 2))) (error "Context expects 2 values" - _g20930_))) - (let ((_%target98319901%_ + _g21029_))) + (let ((_%target993010000%_ (let () (declare (not safe)) - (##vector-ref _g20929_ 0))) - (_%tl98339904%_ + (##values-ref _g21028_ 0))) + (_%tl993210003%_ (let () (declare (not safe)) - (##vector-ref _g20929_ 1)))) - (if (gx#stx-null? _%tl98339904%_) - (letrec ((_%loop98349907%_ - (lambda (_%hd98329911%_ - _%dispatch98389914%_) + (##values-ref _g21028_ 1)))) + (if (gx#stx-null? _%tl993210003%_) + (letrec ((_%loop993310006%_ + (lambda (_%hd993110010%_ + _%dispatch993710013%_) (if (gx#stx-pair? - _%hd98329911%_) - (let ((_%e98359917%_ + _%hd993110010%_) + (let ((_%e993410016%_ (gx#syntax-e - _%hd98329911%_))) - (let ((_%lp-hd98369921%_ + _%hd993110010%_))) + (let ((_%lp-hd993510020%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e98359917%_))) - (_%lp-tl98379924%_ - (let () (declare (not safe)) (##cdr _%e98359917%_)))) - (_%loop98349907%_ - _%lp-tl98379924%_ - (cons _%lp-hd98369921%_ _%dispatch98389914%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%dispatch98399927%_ - (reverse _%dispatch98389914%_))) + (##car _%e993410016%_))) + (_%lp-tl993610023%_ + (let () (declare (not safe)) (##cdr _%e993410016%_)))) + (_%loop993310006%_ + _%lp-tl993610023%_ + (cons _%lp-hd993510020%_ _%dispatch993710013%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%dispatch993810026%_ + (reverse _%dispatch993710013%_))) (if (gx#stx-pair? - _%tl98309898%_) - (let ((_%e98409931%_ + _%tl99299997%_) + (let ((_%e993910030%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl98309898%_))) - (let ((_%hd98419935%_ - (let () (declare (not safe)) (##car _%e98409931%_))) - (_%tl98429938%_ + (gx#syntax-e _%tl99299997%_))) + (let ((_%hd994010034%_ + (let () + (declare (not safe)) + (##car _%e993910030%_))) + (_%tl994110037%_ (let () (declare (not safe)) - (##cdr _%e98409931%_)))) - (if (gx#stx-pair? _%tl98429938%_) - (let ((_%e98439941%_ (gx#syntax-e _%tl98429938%_))) - (let ((_%hd98449945%_ + (##cdr _%e993910030%_)))) + (if (gx#stx-pair? _%tl994110037%_) + (let ((_%e994210040%_ (gx#syntax-e _%tl994110037%_))) + (let ((_%hd994310044%_ (let () (declare (not safe)) - (##car _%e98439941%_))) - (_%tl98459948%_ + (##car _%e994210040%_))) + (_%tl994410047%_ (let () (declare (not safe)) - (##cdr _%e98439941%_)))) - (if (gx#stx-pair? _%tl98459948%_) - (let ((_%e98469951%_ - (gx#syntax-e _%tl98459948%_))) - (let ((_%hd98479955%_ + (##cdr _%e994210040%_)))) + (if (gx#stx-pair? _%tl994410047%_) + (let ((_%e994510050%_ + (gx#syntax-e _%tl994410047%_))) + (let ((_%hd994610054%_ (let () (declare (not safe)) - (##car _%e98469951%_))) - (_%tl98489958%_ + (##car _%e994510050%_))) + (_%tl994710057%_ (let () (declare (not safe)) - (##cdr _%e98469951%_)))) - (if (gx#stx-null? _%tl98489958%_) - ((lambda (_%L9961%_ - _%L9963%_ - _%L9964%_ - _%L9965%_ - _%L9966%_ - _%L9967%_ - _%L9968%_) + (##cdr _%e994510050%_)))) + (if (gx#stx-null? _%tl994710057%_) + ((lambda (_%L10060%_ + _%L10062%_ + _%L10063%_ + _%L10064%_ + _%L10065%_ + _%L10066%_ + _%L10067%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L9967%_ + (cons (cons (cons _%L10066%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) - (cons '() (cons _%L9964%_ '()))) + (cons '() (cons _%L10063%_ '()))) '())) - (cons (cons _%L9966%_ + (cons (cons _%L10065%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L9963%_ '())) + (cons _%L10062%_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'fixnum?) - (cons _%L9968%_ '())) + (cons _%L10067%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'ix) (cons (cons (gx#datum->syntax '#f '##fxmodulo) - (cons _%L9968%_ (cons _%L9961%_ '()))) + (cons _%L10067%_ (cons _%L10060%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L9966%_ + (cons _%L10065%_ (cons (gx#datum->syntax '#f 'ix) @@ -6391,7 +6393,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L9968%_ '()))) + (cons _%L10067%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -6406,257 +6408,257 @@ '())) (cons (cons (gx#datum->syntax '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1000510008%_ - _%g1000610011%_) - (cons _%g1000510008%_ - _%g1000610011%_)) + (foldr (lambda (_%g1010410107%_ + _%g1010510110%_) + (cons _%g1010410107%_ + _%g1010510110%_)) '() - _%L9965%_))) + _%L10064%_))) '()))) - (cons (cons _%L9967%_ '()) '())))) + (cons (cons _%L10066%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L9967%_ '()) '())))) + (cons (cons _%L10066%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L9967%_ '()) '())))) + (cons (cons _%L10066%_ '()) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd98479955%_ - _%hd98449945%_ - _%hd98419935%_ - _%dispatch98399927%_ - _%hd98269885%_ - _%hd98239875%_ - _%hd98209865%_) - (_%g98109854%_ _%g98119858%_)))) - (_%g98109854%_ _%g98119858%_)))) - (_%g98109854%_ _%g98119858%_)))) - (_%g98109854%_ _%g98119858%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop98349907%_ - _%target98319901%_ + _%hd994610054%_ + _%hd994310044%_ + _%hd994010034%_ + _%dispatch993810026%_ + _%hd99259984%_ + _%hd99229974%_ + _%hd99199964%_) + (_%g99099953%_ _%g99109957%_)))) + (_%g99099953%_ _%g99109957%_)))) + (_%g99099953%_ _%g99109957%_)))) + (_%g99099953%_ _%g99109957%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop993310006%_ + _%target993010000%_ '())) - (_%g98109854%_ _%g98119858%_))))) - (_%g98109854%_ _%g98119858%_)))) - (_%g98109854%_ _%g98119858%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g98109854%_ - _%g98119858%_)))) - (_%g98109854%_ _%g98119858%_)))) - (_%g98109854%_ _%g98119858%_))))) - (_%g980910014%_ - (list _%e9796%_ + (_%g99099953%_ _%g99109957%_))))) + (_%g99099953%_ _%g99109957%_)))) + (_%g99099953%_ _%g99109957%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g99099953%_ + _%g99109957%_)))) + (_%g99099953%_ _%g99109957%_)))) + (_%g99099953%_ _%g99109957%_))))) + (_%g990810113%_ + (list _%e9895%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch9799%_ - _%default9800%_ - _%tab9805%_ - (vector-length _%tab9805%_)))))) - (_%generate-generic-dispatch9394%_ - (lambda (_%e9532%_ - _%datums9534%_ - _%dispatch9535%_ - _%default9536%_) - (let ((_g20931_ - (if (_%eq-datums?9377%_ _%datums9534%_) + _%dispatch9898%_ + _%default9899%_ + _%tab9904%_ + (vector-length _%tab9904%_)))))) + (_%generate-generic-dispatch9493%_ + (lambda (_%e9631%_ + _%datums9633%_ + _%dispatch9634%_ + _%default9635%_) + (let ((_g21030_ + (if (_%eq-datums?9476%_ _%datums9633%_) (values eq?-hash 'eq?-hash 'eq?) (values equal?-hash 'equal?-hash 'equal?)))) (begin #!void - (let ((_%hash-e9538%_ + (let ((_%hash-e9637%_ (let () (declare (not safe)) - (##vector-ref _g20931_ 0))) - (_%hashf9540%_ + (##values-ref _g21030_ 0))) + (_%hashf9639%_ (let () (declare (not safe)) - (##vector-ref _g20931_ 1))) - (_%eqf9541%_ + (##values-ref _g21030_ 1))) + (_%eqf9640%_ (let () (declare (not safe)) - (##vector-ref _g20931_ 2)))) - (let* ((_%indexes9543%_ - (_%datum-dispatch-index9379%_ - _%datums9534%_)) - (_%tab9546%_ - (_%generate-hash-dispatch-table9381%_ - _%indexes9543%_ - _%hash-e9538%_)) - (_%g95519603%_ - (lambda (_%g95529599%_) + (##values-ref _g21030_ 2)))) + (let* ((_%indexes9642%_ + (_%datum-dispatch-index9478%_ + _%datums9633%_)) + (_%tab9645%_ + (_%generate-hash-dispatch-table9480%_ + _%indexes9642%_ + _%hash-e9637%_)) + (_%g96509702%_ + (lambda (_%g96519698%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g95529599%_))) - (_%g95509792%_ - (lambda (_%g95529607%_) - (if (gx#stx-pair? _%g95529607%_) - (let ((_%e95629610%_ - (gx#syntax-e _%g95529607%_))) - (let ((_%hd95639614%_ + _%g96519698%_))) + (_%g96499891%_ + (lambda (_%g96519706%_) + (if (gx#stx-pair? _%g96519706%_) + (let ((_%e96619709%_ + (gx#syntax-e _%g96519706%_))) + (let ((_%hd96629713%_ (let () (declare (not safe)) - (##car _%e95629610%_))) - (_%tl95649617%_ + (##car _%e96619709%_))) + (_%tl96639716%_ (let () (declare (not safe)) - (##cdr _%e95629610%_)))) - (if (gx#stx-pair? _%tl95649617%_) - (let ((_%e95659620%_ + (##cdr _%e96619709%_)))) + (if (gx#stx-pair? _%tl96639716%_) + (let ((_%e96649719%_ (gx#syntax-e - _%tl95649617%_))) - (let ((_%hd95669624%_ + _%tl96639716%_))) + (let ((_%hd96659723%_ (let () (declare (not safe)) - (##car _%e95659620%_))) - (_%tl95679627%_ + (##car _%e96649719%_))) + (_%tl96669726%_ (let () (declare (not safe)) - (##cdr _%e95659620%_)))) + (##cdr _%e96649719%_)))) (if (gx#stx-pair? - _%tl95679627%_) - (let ((_%e95689630%_ + _%tl96669726%_) + (let ((_%e96679729%_ (gx#syntax-e - _%tl95679627%_))) - (let ((_%hd95699634%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e95689630%_))) - (_%tl95709637%_ - (let () (declare (not safe)) (##cdr _%e95689630%_)))) - (if (gx#stx-pair? _%tl95709637%_) - (let ((_%e95719640%_ (gx#syntax-e _%tl95709637%_))) - (let ((_%hd95729644%_ + _%tl96669726%_))) + (let ((_%hd96689733%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##car _%e96679729%_))) + (_%tl96699736%_ + (let () (declare (not safe)) (##cdr _%e96679729%_)))) + (if (gx#stx-pair? _%tl96699736%_) + (let ((_%e96709739%_ (gx#syntax-e _%tl96699736%_))) + (let ((_%hd96719743%_ (let () (declare (not safe)) - (##car _%e95719640%_))) - (_%tl95739647%_ + (##car _%e96709739%_))) + (_%tl96729746%_ (let () (declare (not safe)) - (##cdr _%e95719640%_)))) - (if (gx#stx-pair/null? _%hd95729644%_) - (let ((_g20932_ + (##cdr _%e96709739%_)))) + (if (gx#stx-pair/null? _%hd96719743%_) + (let ((_g21031_ (gx#syntax-split-splice - _%hd95729644%_ + _%hd96719743%_ '0))) (begin - (let ((_g20933_ + (let ((_g21032_ (let () (declare (not safe)) - (if (##values? _g20932_) - (##vector-length _g20932_) + (if (##values? _g21031_) + (##values-length _g21031_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20933_ 2))) + (##fx= _g21032_ 2))) (error "Context expects 2 values" - _g20933_))) - (let ((_%target95749650%_ + _g21032_))) + (let ((_%target96739749%_ (let () (declare (not safe)) - (##vector-ref _g20932_ 0))) - (_%tl95769653%_ + (##values-ref _g21031_ 0))) + (_%tl96759752%_ (let () (declare (not safe)) - (##vector-ref _g20932_ 1)))) - (if (gx#stx-null? _%tl95769653%_) - (letrec ((_%loop95779656%_ - (lambda (_%hd95759660%_ - _%dispatch95819663%_) + (##values-ref _g21031_ 1)))) + (if (gx#stx-null? _%tl96759752%_) + (letrec ((_%loop96769755%_ + (lambda (_%hd96749759%_ + _%dispatch96809762%_) (if (gx#stx-pair? - _%hd95759660%_) - (let ((_%e95789666%_ + _%hd96749759%_) + (let ((_%e96779765%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd95759660%_))) - (let ((_%lp-hd95799670%_ - (let () (declare (not safe)) (##car _%e95789666%_))) - (_%lp-tl95809673%_ + (gx#syntax-e _%hd96749759%_))) + (let ((_%lp-hd96789769%_ + (let () (declare (not safe)) (##car _%e96779765%_))) + (_%lp-tl96799772%_ (let () (declare (not safe)) - (##cdr _%e95789666%_)))) - (_%loop95779656%_ - _%lp-tl95809673%_ - (cons _%lp-hd95799670%_ _%dispatch95819663%_)))) - (let ((_%dispatch95829676%_ (reverse _%dispatch95819663%_))) - (if (gx#stx-pair? _%tl95739647%_) - (let ((_%e95839680%_ (gx#syntax-e _%tl95739647%_))) - (let ((_%hd95849684%_ + (##cdr _%e96779765%_)))) + (_%loop96769755%_ + _%lp-tl96799772%_ + (cons _%lp-hd96789769%_ _%dispatch96809762%_)))) + (let ((_%dispatch96819775%_ (reverse _%dispatch96809762%_))) + (if (gx#stx-pair? _%tl96729746%_) + (let ((_%e96829779%_ (gx#syntax-e _%tl96729746%_))) + (let ((_%hd96839783%_ (let () (declare (not safe)) - (##car _%e95839680%_))) - (_%tl95859687%_ + (##car _%e96829779%_))) + (_%tl96849786%_ (let () (declare (not safe)) - (##cdr _%e95839680%_)))) - (if (gx#stx-pair? _%tl95859687%_) - (let ((_%e95869690%_ - (gx#syntax-e _%tl95859687%_))) - (let ((_%hd95879694%_ + (##cdr _%e96829779%_)))) + (if (gx#stx-pair? _%tl96849786%_) + (let ((_%e96859789%_ + (gx#syntax-e _%tl96849786%_))) + (let ((_%hd96869793%_ (let () (declare (not safe)) - (##car _%e95869690%_))) - (_%tl95889697%_ + (##car _%e96859789%_))) + (_%tl96879796%_ (let () (declare (not safe)) - (##cdr _%e95869690%_)))) - (if (gx#stx-pair? _%tl95889697%_) - (let ((_%e95899700%_ - (gx#syntax-e _%tl95889697%_))) - (let ((_%hd95909704%_ + (##cdr _%e96859789%_)))) + (if (gx#stx-pair? _%tl96879796%_) + (let ((_%e96889799%_ + (gx#syntax-e _%tl96879796%_))) + (let ((_%hd96899803%_ (let () (declare (not safe)) - (##car _%e95899700%_))) - (_%tl95919707%_ + (##car _%e96889799%_))) + (_%tl96909806%_ (let () (declare (not safe)) - (##cdr _%e95899700%_)))) - (if (gx#stx-pair? _%tl95919707%_) - (let ((_%e95929710%_ + (##cdr _%e96889799%_)))) + (if (gx#stx-pair? _%tl96909806%_) + (let ((_%e96919809%_ (gx#syntax-e - _%tl95919707%_))) - (let ((_%hd95939714%_ + _%tl96909806%_))) + (let ((_%hd96929813%_ (let () (declare (not safe)) - (##car _%e95929710%_))) - (_%tl95949717%_ + (##car _%e96919809%_))) + (_%tl96939816%_ (let () (declare (not safe)) - (##cdr _%e95929710%_)))) + (##cdr _%e96919809%_)))) (if (gx#stx-pair? - _%tl95949717%_) - (let ((_%e95959720%_ + _%tl96939816%_) + (let ((_%e96949819%_ (gx#syntax-e - _%tl95949717%_))) - (let ((_%hd95969724%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e95959720%_))) - (_%tl95979727%_ - (let () (declare (not safe)) (##cdr _%e95959720%_)))) - (if (gx#stx-null? _%tl95979727%_) - ((lambda (_%L9730%_ - _%L9732%_ - _%L9733%_ - _%L9734%_ - _%L9735%_ - _%L9736%_ - _%L9737%_ - _%L9738%_ - _%L9739%_) + _%tl96939816%_))) + (let ((_%hd96959823%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##car _%e96949819%_))) + (_%tl96969826%_ + (let () (declare (not safe)) (##cdr _%e96949819%_)))) + (if (gx#stx-null? _%tl96969826%_) + ((lambda (_%L9829%_ + _%L9831%_ + _%L9832%_ + _%L9833%_ + _%L9834%_ + _%L9835%_ + _%L9836%_ + _%L9837%_ + _%L9838%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L9738%_ + (cons (cons (cons _%L9837%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L9735%_ '()))) + (cons _%L9834%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L9737%_ + (cons (cons _%L9836%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L9734%_ '())) + (cons _%L9833%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -6665,19 +6667,19 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'h) - (cons (cons _%L9732%_ (cons _%L9739%_ '())) '())) + (cons (cons _%L9831%_ (cons _%L9838%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax '#f '##fxmodulo) (cons (gx#datum->syntax '#f 'h) - (cons _%L9733%_ '()))) + (cons _%L9832%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L9737%_ + (cons _%L9836%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -6689,13 +6691,13 @@ (cons (cons (gx#datum->syntax '#f 'if) (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L9730%_ + (cons (cons _%L9829%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L9739%_ '()))) + (cons _%L9838%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -6712,277 +6714,277 @@ '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g97839786%_ + (foldr (lambda (_%g98829885%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g97849789%_) - (cons _%g97839786%_ _%g97849789%_)) + _%g98839888%_) + (cons _%g98829885%_ _%g98839888%_)) '() - _%L9736%_))) + _%L9835%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _%L9738%_ '()) '())))) + (cons (cons _%L9837%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L9738%_ '()) '())))) + (cons (cons _%L9837%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd95969724%_ - _%hd95939714%_ - _%hd95909704%_ - _%hd95879694%_ - _%hd95849684%_ - _%dispatch95829676%_ - _%hd95699634%_ - _%hd95669624%_ - _%hd95639614%_) - (_%g95519603%_ _%g95529607%_)))) - (_%g95519603%_ _%g95529607%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g95519603%_ - _%g95529607%_)))) - (_%g95519603%_ _%g95529607%_)))) - (_%g95519603%_ _%g95529607%_)))) - (_%g95519603%_ _%g95529607%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop95779656%_ - _%target95749650%_ + _%hd96959823%_ + _%hd96929813%_ + _%hd96899803%_ + _%hd96869793%_ + _%hd96839783%_ + _%dispatch96819775%_ + _%hd96689733%_ + _%hd96659723%_ + _%hd96629713%_) + (_%g96509702%_ _%g96519706%_)))) + (_%g96509702%_ _%g96519706%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g96509702%_ + _%g96519706%_)))) + (_%g96509702%_ _%g96519706%_)))) + (_%g96509702%_ _%g96519706%_)))) + (_%g96509702%_ _%g96519706%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop96769755%_ + _%target96739749%_ '())) - (_%g95519603%_ _%g95529607%_))))) - (_%g95519603%_ _%g95529607%_)))) - (_%g95519603%_ _%g95529607%_)))) - (_%g95519603%_ _%g95529607%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g95519603%_ - _%g95529607%_)))) - (_%g95519603%_ _%g95529607%_))))) - (_%g95509792%_ - (list _%e9532%_ + (_%g96509702%_ _%g96519706%_))))) + (_%g96509702%_ _%g96519706%_)))) + (_%g96509702%_ _%g96519706%_)))) + (_%g96509702%_ _%g96519706%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g96509702%_ + _%g96519706%_)))) + (_%g96509702%_ _%g96519706%_))))) + (_%g96499891%_ + (list _%e9631%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch9535%_ - _%default9536%_ - _%tab9546%_ - (vector-length _%tab9546%_) - _%hashf9540%_ - _%eqf9541%_))))))))) - (let* ((_%g93969420%_ - (lambda (_%g93979416%_) + _%dispatch9634%_ + _%default9635%_ + _%tab9645%_ + (vector-length _%tab9645%_) + _%hashf9639%_ + _%eqf9640%_))))))))) + (let* ((_%g94959519%_ + (lambda (_%g94969515%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g93979416%_))) - (_%g93959528%_ - (lambda (_%g93979424%_) - (if (gx#stx-pair? _%g93979424%_) - (let ((_%e94009427%_ (gx#syntax-e _%g93979424%_))) - (let ((_%hd94019431%_ + _%g94969515%_))) + (_%g94949627%_ + (lambda (_%g94969523%_) + (if (gx#stx-pair? _%g94969523%_) + (let ((_%e94999526%_ (gx#syntax-e _%g94969523%_))) + (let ((_%hd95009530%_ (let () (declare (not safe)) - (##car _%e94009427%_))) - (_%tl94029434%_ + (##car _%e94999526%_))) + (_%tl95019533%_ (let () (declare (not safe)) - (##cdr _%e94009427%_)))) - (if (gx#stx-pair? _%tl94029434%_) - (let ((_%e94039437%_ - (gx#syntax-e _%tl94029434%_))) - (let ((_%hd94049441%_ + (##cdr _%e94999526%_)))) + (if (gx#stx-pair? _%tl95019533%_) + (let ((_%e95029536%_ + (gx#syntax-e _%tl95019533%_))) + (let ((_%hd95039540%_ (let () (declare (not safe)) - (##car _%e94039437%_))) - (_%tl94059444%_ + (##car _%e95029536%_))) + (_%tl95049543%_ (let () (declare (not safe)) - (##cdr _%e94039437%_)))) - (if (gx#stx-pair/null? _%tl94059444%_) - (let ((_g20934_ + (##cdr _%e95029536%_)))) + (if (gx#stx-pair/null? _%tl95049543%_) + (let ((_g21033_ (gx#syntax-split-splice - _%tl94059444%_ + _%tl95049543%_ '0))) (begin - (let ((_g20935_ + (let ((_g21034_ (let () (declare (not safe)) - (if (##values? _g20934_) - (##vector-length - _g20934_) + (if (##values? _g21033_) + (##values-length + _g21033_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20935_ 2))) + (##fx= _g21034_ 2))) (error "Context expects 2 values" - _g20935_))) - (let ((_%target94069447%_ + _g21034_))) + (let ((_%target95059546%_ (let () (declare (not safe)) - (##vector-ref - _g20934_ + (##values-ref + _g21033_ 0))) - (_%tl94089450%_ + (_%tl95079549%_ (let () (declare (not safe)) - (##vector-ref - _g20934_ + (##values-ref + _g21033_ 1)))) - (if (gx#stx-null? _%tl94089450%_) - (letrec ((_%loop94099453%_ - (lambda (_%hd94079457%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause94139460%_) - (if (gx#stx-pair? _%hd94079457%_) - (let ((_%e94109463%_ (gx#syntax-e _%hd94079457%_))) - (let ((_%lp-hd94119467%_ + (if (gx#stx-null? _%tl95079549%_) + (letrec ((_%loop95089552%_ + (lambda (_%hd95069556%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clause95129559%_) + (if (gx#stx-pair? _%hd95069556%_) + (let ((_%e95099562%_ (gx#syntax-e _%hd95069556%_))) + (let ((_%lp-hd95109566%_ (let () (declare (not safe)) - (##car _%e94109463%_))) - (_%lp-tl94129470%_ + (##car _%e95099562%_))) + (_%lp-tl95119569%_ (let () (declare (not safe)) - (##cdr _%e94109463%_)))) - (_%loop94099453%_ - _%lp-tl94129470%_ - (cons _%lp-hd94119467%_ _%clause94139460%_)))) - (let ((_%clause94149473%_ - (reverse _%clause94139460%_))) - ((lambda (_%L9477%_ _%L9479%_) - (let ((_g20936_ - (_%parse-clauses9370%_ - _%L9479%_ - (foldr (lambda (_%g94979500%_ - _%g94989503%_) - (cons _%g94979500%_ - _%g94989503%_)) + (##cdr _%e95099562%_)))) + (_%loop95089552%_ + _%lp-tl95119569%_ + (cons _%lp-hd95109566%_ _%clause95129559%_)))) + (let ((_%clause95139572%_ + (reverse _%clause95129559%_))) + ((lambda (_%L9576%_ _%L9578%_) + (let ((_g21035_ + (_%parse-clauses9469%_ + _%L9578%_ + (foldr (lambda (_%g95969599%_ + _%g95979602%_) + (cons _%g95969599%_ + _%g95979602%_)) '() - _%L9477%_)))) + _%L9576%_)))) (begin - (let ((_g20937_ + (let ((_g21036_ (let () (declare (not safe)) - (if (##values? _g20936_) - (##vector-length _g20936_) + (if (##values? _g21035_) + (##values-length _g21035_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20937_ 3))) + (##fx= _g21036_ 3))) (error "Context expects 3 values" - _g20937_))) - (let ((_%datums9506%_ + _g21036_))) + (let ((_%datums9605%_ (let () (declare (not safe)) - (##vector-ref _g20936_ 0))) - (_%dispatch9508%_ + (##values-ref _g21035_ 0))) + (_%dispatch9607%_ (let () (declare (not safe)) - (##vector-ref _g20936_ 1))) - (_%default9509%_ + (##values-ref _g21035_ 1))) + (_%default9608%_ (let () (declare (not safe)) - (##vector-ref _g20936_ 2)))) - (let ((_%datum-count9511%_ - (_%count-datums9373%_ - _%datums9506%_))) - (if (< _%datum-count9511%_ '6) - (_%generate-simple-case9378%_ - _%L9479%_ - _%datums9506%_ - _%dispatch9508%_ - _%default9509%_) - (if (_%char-datums?9375%_ - _%datums9506%_) - (_%generate-char-dispatch9387%_ - _%L9479%_ - _%datums9506%_ - _%dispatch9508%_ - _%default9509%_) - (if (_%fixnum-datums?9376%_ - _%datums9506%_) - (_%generate-fixnum-dispatch9392%_ - _%L9479%_ - _%datums9506%_ - _%dispatch9508%_ - _%default9509%_) - (if (< _%datum-count9511%_ + (##values-ref _g21035_ 2)))) + (let ((_%datum-count9610%_ + (_%count-datums9472%_ + _%datums9605%_))) + (if (< _%datum-count9610%_ '6) + (_%generate-simple-case9477%_ + _%L9578%_ + _%datums9605%_ + _%dispatch9607%_ + _%default9608%_) + (if (_%char-datums?9474%_ + _%datums9605%_) + (_%generate-char-dispatch9486%_ + _%L9578%_ + _%datums9605%_ + _%dispatch9607%_ + _%default9608%_) + (if (_%fixnum-datums?9475%_ + _%datums9605%_) + (_%generate-fixnum-dispatch9491%_ + _%L9578%_ + _%datums9605%_ + _%dispatch9607%_ + _%default9608%_) + (if (< _%datum-count9610%_ '12) - (_%generate-simple-case9378%_ - _%L9479%_ - _%datums9506%_ - _%dispatch9508%_ - _%default9509%_) - (if (_%symbolic-datums?9374%_ - _%datums9506%_) - (_%generate-symbolic-dispatch9382%_ - _%L9479%_ - _%datums9506%_ - _%dispatch9508%_ - _%default9509%_) - (_%generate-generic-dispatch9394%_ - _%L9479%_ - _%datums9506%_ - _%dispatch9508%_ - _%default9509%_))))))))))) - _%clause94149473%_ - _%hd94049441%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop94099453%_ - _%target94069447%_ + (_%generate-simple-case9477%_ + _%L9578%_ + _%datums9605%_ + _%dispatch9607%_ + _%default9608%_) + (if (_%symbolic-datums?9473%_ + _%datums9605%_) + (_%generate-symbolic-dispatch9481%_ + _%L9578%_ + _%datums9605%_ + _%dispatch9607%_ + _%default9608%_) + (_%generate-generic-dispatch9493%_ + _%L9578%_ + _%datums9605%_ + _%dispatch9607%_ + _%default9608%_))))))))))) + _%clause95139572%_ + _%hd95039540%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop95089552%_ + _%target95059546%_ '())) - (_%g93969420%_ - _%g93979424%_))))) - (_%g93969420%_ _%g93979424%_)))) - (_%g93969420%_ _%g93979424%_)))) - (_%g93969420%_ _%g93979424%_))))) - (_%g93959528%_ _%stx9367%_))))) + (_%g94959519%_ + _%g94969523%_))))) + (_%g94959519%_ _%g94969523%_)))) + (_%g94959519%_ _%g94969523%_)))) + (_%g94959519%_ _%g94969523%_))))) + (_%g94949627%_ _%stx9466%_))))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case-test| - (lambda (_%stx12430%_) - (let* ((_%g1243312451%_ - (lambda (_%g1243412447%_) + (lambda (_%stx12529%_) + (let* ((_%g1253212550%_ + (lambda (_%g1253312546%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1243412447%_))) - (_%g1243212523%_ - (lambda (_%g1243412455%_) - (if (gx#stx-pair? _%g1243412455%_) - (let ((_%e1243712458%_ (gx#syntax-e _%g1243412455%_))) - (let ((_%hd1243812462%_ + _%g1253312546%_))) + (_%g1253112622%_ + (lambda (_%g1253312554%_) + (if (gx#stx-pair? _%g1253312554%_) + (let ((_%e1253612557%_ (gx#syntax-e _%g1253312554%_))) + (let ((_%hd1253712561%_ (let () (declare (not safe)) - (##car _%e1243712458%_))) - (_%tl1243912465%_ + (##car _%e1253612557%_))) + (_%tl1253812564%_ (let () (declare (not safe)) - (##cdr _%e1243712458%_)))) - (if (gx#stx-pair? _%tl1243912465%_) - (let ((_%e1244012468%_ - (gx#syntax-e _%tl1243912465%_))) - (let ((_%hd1244112472%_ + (##cdr _%e1253612557%_)))) + (if (gx#stx-pair? _%tl1253812564%_) + (let ((_%e1253912567%_ + (gx#syntax-e _%tl1253812564%_))) + (let ((_%hd1254012571%_ (let () (declare (not safe)) - (##car _%e1244012468%_))) - (_%tl1244212475%_ + (##car _%e1253912567%_))) + (_%tl1254112574%_ (let () (declare (not safe)) - (##cdr _%e1244012468%_)))) - (if (gx#stx-pair? _%tl1244212475%_) - (let ((_%e1244312478%_ - (gx#syntax-e _%tl1244212475%_))) - (let ((_%hd1244412482%_ + (##cdr _%e1253912567%_)))) + (if (gx#stx-pair? _%tl1254112574%_) + (let ((_%e1254212577%_ + (gx#syntax-e _%tl1254112574%_))) + (let ((_%hd1254312581%_ (let () (declare (not safe)) - (##car _%e1244312478%_))) - (_%tl1244512485%_ + (##car _%e1254212577%_))) + (_%tl1254412584%_ (let () (declare (not safe)) - (##cdr _%e1244312478%_)))) - (if (gx#stx-null? _%tl1244512485%_) - ((lambda (_%L12488%_ _%L12490%_) - (let ((_%datum-e12506%_ - (gx#stx-e _%L12490%_))) - (if (or (symbol? _%datum-e12506%_) + (##cdr _%e1254212577%_)))) + (if (gx#stx-null? _%tl1254412584%_) + ((lambda (_%L12587%_ _%L12589%_) + (let ((_%datum-e12605%_ + (gx#stx-e _%L12589%_))) + (if (or (symbol? _%datum-e12605%_) (keyword? - _%datum-e12506%_) + _%datum-e12605%_) (immediate? - _%datum-e12506%_)) + _%datum-e12605%_)) (cons (gx#datum->syntax '#f 'eq?) @@ -6990,198 +6992,198 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L12490%_ '())) - (cons _%L12488%_ '()))) - (if (number? _%datum-e12506%_) + (cons _%L12589%_ '())) + (cons _%L12587%_ '()))) + (if (number? _%datum-e12605%_) (cons (gx#datum->syntax '#f 'eqv?) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L12490%_ '())) - (cons _%L12488%_ '()))) + (cons _%L12589%_ '())) + (cons _%L12587%_ '()))) (cons (gx#datum->syntax '#f 'equal?) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L12490%_ '())) - (cons _%L12488%_ '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1244412482%_ - _%hd1244112472%_) - (_%g1243312451%_ - _%g1243412455%_)))) - (_%g1243312451%_ _%g1243412455%_)))) - (_%g1243312451%_ _%g1243412455%_)))) - (_%g1243312451%_ _%g1243412455%_))))) - (_%g1243212523%_ _%stx12430%_)))) + (cons _%L12589%_ '())) + (cons _%L12587%_ '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd1254312581%_ + _%hd1254012571%_) + (_%g1253212550%_ + _%g1253312554%_)))) + (_%g1253212550%_ _%g1253312554%_)))) + (_%g1253212550%_ _%g1253312554%_)))) + (_%g1253212550%_ _%g1253312554%_))))) + (_%g1253112622%_ _%stx12529%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case-dispatch| - (lambda (_%$stx12527%_) - (let* ((_%g1253112555%_ - (lambda (_%g1253212551%_) + (lambda (_%$stx12626%_) + (let* ((_%g1263012654%_ + (lambda (_%g1263112650%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1253212551%_))) - (_%g1253012640%_ - (lambda (_%g1253212559%_) - (if (gx#stx-pair? _%g1253212559%_) - (let ((_%e1253512562%_ (gx#syntax-e _%g1253212559%_))) - (let ((_%hd1253612566%_ + _%g1263112650%_))) + (_%g1262912739%_ + (lambda (_%g1263112658%_) + (if (gx#stx-pair? _%g1263112658%_) + (let ((_%e1263412661%_ (gx#syntax-e _%g1263112658%_))) + (let ((_%hd1263512665%_ (let () (declare (not safe)) - (##car _%e1253512562%_))) - (_%tl1253712569%_ + (##car _%e1263412661%_))) + (_%tl1263612668%_ (let () (declare (not safe)) - (##cdr _%e1253512562%_)))) - (if (gx#stx-pair? _%tl1253712569%_) - (let ((_%e1253812572%_ - (gx#syntax-e _%tl1253712569%_))) - (let ((_%hd1253912576%_ + (##cdr _%e1263412661%_)))) + (if (gx#stx-pair? _%tl1263612668%_) + (let ((_%e1263712671%_ + (gx#syntax-e _%tl1263612668%_))) + (let ((_%hd1263812675%_ (let () (declare (not safe)) - (##car _%e1253812572%_))) - (_%tl1254012579%_ + (##car _%e1263712671%_))) + (_%tl1263912678%_ (let () (declare (not safe)) - (##cdr _%e1253812572%_)))) - (if (gx#stx-pair/null? _%tl1254012579%_) - (let ((_g20938_ + (##cdr _%e1263712671%_)))) + (if (gx#stx-pair/null? _%tl1263912678%_) + (let ((_g21037_ (gx#syntax-split-splice - _%tl1254012579%_ + _%tl1263912678%_ '0))) (begin - (let ((_g20939_ + (let ((_g21038_ (let () (declare (not safe)) - (if (##values? _g20938_) - (##vector-length - _g20938_) + (if (##values? _g21037_) + (##values-length + _g21037_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20939_ 2))) + (##fx= _g21038_ 2))) (error "Context expects 2 values" - _g20939_))) - (let ((_%target1254112582%_ + _g21038_))) + (let ((_%target1264012681%_ (let () (declare (not safe)) - (##vector-ref _g20938_ 0))) - (_%tl1254312585%_ + (##values-ref _g21037_ 0))) + (_%tl1264212684%_ (let () (declare (not safe)) - (##vector-ref _g20938_ 1)))) - (if (gx#stx-null? _%tl1254312585%_) - (letrec ((_%loop1254412588%_ - (lambda (_%hd1254212592%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%K1254812595%_) - (if (gx#stx-pair? _%hd1254212592%_) - (let ((_%e1254512598%_ (gx#syntax-e _%hd1254212592%_))) - (let ((_%lp-hd1254612602%_ + (##values-ref _g21037_ 1)))) + (if (gx#stx-null? _%tl1264212684%_) + (letrec ((_%loop1264312687%_ + (lambda (_%hd1264112691%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%K1264712694%_) + (if (gx#stx-pair? _%hd1264112691%_) + (let ((_%e1264412697%_ (gx#syntax-e _%hd1264112691%_))) + (let ((_%lp-hd1264512701%_ (let () (declare (not safe)) - (##car _%e1254512598%_))) - (_%lp-tl1254712605%_ + (##car _%e1264412697%_))) + (_%lp-tl1264612704%_ (let () (declare (not safe)) - (##cdr _%e1254512598%_)))) - (_%loop1254412588%_ - _%lp-tl1254712605%_ - (cons _%lp-hd1254612602%_ _%K1254812595%_)))) - (let ((_%K1254912608%_ (reverse _%K1254812595%_))) - ((lambda (_%L12612%_ _%L12614%_) + (##cdr _%e1264412697%_)))) + (_%loop1264312687%_ + _%lp-tl1264612704%_ + (cons _%lp-hd1264512701%_ _%K1264712694%_)))) + (let ((_%K1264812707%_ (reverse _%K1264712694%_))) + ((lambda (_%L12711%_ _%L12713%_) (cons (gx#datum->syntax '#f '~case-dispatch*) (cons '0 - (cons _%L12614%_ - (foldr (lambda (_%g1263112634%_ - _%g1263212637%_) - (cons _%g1263112634%_ - _%g1263212637%_)) + (cons _%L12713%_ + (foldr (lambda (_%g1273012733%_ + _%g1273112736%_) + (cons _%g1273012733%_ + _%g1273112736%_)) '() - _%L12612%_))))) - _%K1254912608%_ - _%hd1253912576%_)))))) + _%L12711%_))))) + _%K1264812707%_ + _%hd1263812675%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1254412588%_ - _%target1254112582%_ + (_%loop1264312687%_ + _%target1264012681%_ '())) - (_%g1253112555%_ - _%g1253212559%_))))) - (_%g1253112555%_ _%g1253212559%_)))) - (_%g1253112555%_ _%g1253212559%_)))) - (_%g1253112555%_ _%g1253212559%_))))) - (_%g1253012640%_ _%$stx12527%_)))) + (_%g1263012654%_ + _%g1263112658%_))))) + (_%g1263012654%_ _%g1263112658%_)))) + (_%g1263012654%_ _%g1263112658%_)))) + (_%g1263012654%_ _%g1263112658%_))))) + (_%g1262912739%_ _%$stx12626%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case-dispatch*| - (lambda (_%stx12645%_) - (let* ((_%__stx1971819719%_ _%stx12645%_) - (_%g1265212748%_ + (lambda (_%stx12744%_) + (let* ((_%__stx1981719818%_ _%stx12744%_) + (_%g1275112847%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1971819719%_)))) - (let ((_%__kont1972119722%_ - (lambda (_%L13225%_ _%L13227%_) + _%__stx1981719818%_)))) + (let ((_%__kont1982019821%_ + (lambda (_%L13324%_ _%L13326%_) (cons (gx#datum->syntax '#f 'quote) (cons '#!void '())))) - (_%__kont1972319724%_ - (lambda (_%L13167%_ _%L13169%_ _%L13170%_) _%L13167%_)) - (_%__kont1972519726%_ - (lambda (_%L13064%_ _%L13066%_ _%L13067%_ _%L13068%_) - (let* ((_%g1308913097%_ - (lambda (_%g1309013093%_) + (_%__kont1982219823%_ + (lambda (_%L13266%_ _%L13268%_ _%L13269%_) _%L13266%_)) + (_%__kont1982419825%_ + (lambda (_%L13163%_ _%L13165%_ _%L13166%_ _%L13167%_) + (let* ((_%g1318813196%_ + (lambda (_%g1318913192%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1309013093%_))) - (_%g1308813116%_ - (lambda (_%g1309013101%_) - ((lambda (_%L13104%_) + _%g1318913192%_))) + (_%g1318713215%_ + (lambda (_%g1318913200%_) + ((lambda (_%L13203%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx=) - (cons _%L13067%_ - (cons _%L13104%_ '()))) - (cons _%L13066%_ - (cons _%L13064%_ '()))))) - _%g1309013101%_)))) - (_%g1308813116%_ (gx#stx-e _%L13068%_))))) - (_%__kont1972719728%_ - (lambda (_%L12914%_ - _%L12916%_ - _%L12917%_ - _%L12918%_ - _%L12919%_) - (let* ((_%g1294312958%_ - (lambda (_%g1294412954%_) + (cons _%L13166%_ + (cons _%L13203%_ '()))) + (cons _%L13165%_ + (cons _%L13163%_ '()))))) + _%g1318913200%_)))) + (_%g1318713215%_ (gx#stx-e _%L13167%_))))) + (_%__kont1982619827%_ + (lambda (_%L13013%_ + _%L13015%_ + _%L13016%_ + _%L13017%_ + _%L13018%_) + (let* ((_%g1304213057%_ + (lambda (_%g1304313053%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1294412954%_))) - (_%g1294213003%_ - (lambda (_%g1294412962%_) - (if (gx#stx-pair? _%g1294412962%_) - (let ((_%e1294712965%_ - (gx#syntax-e _%g1294412962%_))) - (let ((_%hd1294812969%_ + _%g1304313053%_))) + (_%g1304113102%_ + (lambda (_%g1304313061%_) + (if (gx#stx-pair? _%g1304313061%_) + (let ((_%e1304613064%_ + (gx#syntax-e _%g1304313061%_))) + (let ((_%hd1304713068%_ (let () (declare (not safe)) - (##car _%e1294712965%_))) - (_%tl1294912972%_ + (##car _%e1304613064%_))) + (_%tl1304813071%_ (let () (declare (not safe)) - (##cdr _%e1294712965%_)))) - (if (gx#stx-pair? _%tl1294912972%_) - (let ((_%e1295012975%_ + (##cdr _%e1304613064%_)))) + (if (gx#stx-pair? _%tl1304813071%_) + (let ((_%e1304913074%_ (gx#syntax-e - _%tl1294912972%_))) - (let ((_%hd1295112979%_ + _%tl1304813071%_))) + (let ((_%hd1305013078%_ (let () (declare (not safe)) - (##car _%e1295012975%_))) - (_%tl1295212982%_ + (##car _%e1304913074%_))) + (_%tl1305113081%_ (let () (declare (not safe)) - (##cdr _%e1295012975%_)))) + (##cdr _%e1304913074%_)))) (if (gx#stx-null? - _%tl1295212982%_) - ((lambda (_%L12985%_ - _%L12987%_) + _%tl1305113081%_) + ((lambda (_%L13084%_ + _%L13086%_) (cons (gx#datum->syntax '#f 'if) @@ -7189,3544 +7191,3544 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##fx=) - (cons _%L12918%_ (cons _%L12987%_ '()))) - (cons _%L12917%_ + (cons _%L13017%_ (cons _%L13086%_ '()))) + (cons _%L13016%_ (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx=) - (cons _%L12918%_ - (cons _%L12985%_ + (cons _%L13017%_ + (cons _%L13084%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L12916%_ - (cons _%L12914%_ '())))) + (cons _%L13015%_ + (cons _%L13013%_ '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1295112979%_ - _%hd1294812969%_) - (_%g1294312958%_ - _%g1294412962%_)))) - (_%g1294312958%_ _%g1294412962%_)))) - (_%g1294312958%_ _%g1294412962%_))))) - (_%g1294213003%_ - (list (gx#stx-e _%L12919%_) - (fx1+ (gx#stx-e _%L12919%_))))))) - (_%__kont1972919730%_ - (lambda (_%L12815%_ _%L12817%_ _%L12818%_) + _%hd1305013078%_ + _%hd1304713068%_) + (_%g1304213057%_ + _%g1304313061%_)))) + (_%g1304213057%_ _%g1304313061%_)))) + (_%g1304213057%_ _%g1304313061%_))))) + (_%g1304113102%_ + (list (gx#stx-e _%L13018%_) + (fx1+ (gx#stx-e _%L13018%_))))))) + (_%__kont1982819829%_ + (lambda (_%L12914%_ _%L12916%_ _%L12917%_) (cons (gx#datum->syntax '#f '~case-dispatch-bsearch) - (cons _%L12818%_ - (cons _%L12817%_ - (foldr (lambda (_%g1283812841%_ - _%g1283912844%_) - (cons _%g1283812841%_ - _%g1283912844%_)) + (cons _%L12917%_ + (cons _%L12916%_ + (foldr (lambda (_%g1293712940%_ + _%g1293812943%_) + (cons _%g1293712940%_ + _%g1293812943%_)) '() - _%L12815%_))))))) - (let ((_%__match1987519876%_ - (lambda (_%e1272512755%_ - _%hd1272612759%_ - _%tl1272712762%_ - _%e1272812765%_ - _%hd1272912769%_ - _%tl1273012772%_ - _%e1273112775%_ - _%hd1273212779%_ - _%tl1273312782%_ - _%__splice1973119732%_ - _%target1273412785%_ - _%tl1273612788%_) - (letrec ((_%loop1273712791%_ - (lambda (_%hd1273512795%_ _%K1274112798%_) - (if (gx#stx-pair? _%hd1273512795%_) - (let ((_%e1273812801%_ - (gx#syntax-e _%hd1273512795%_))) - (let ((_%lp-tl1274012808%_ + _%L12914%_))))))) + (let ((_%__match1997419975%_ + (lambda (_%e1282412854%_ + _%hd1282512858%_ + _%tl1282612861%_ + _%e1282712864%_ + _%hd1282812868%_ + _%tl1282912871%_ + _%e1283012874%_ + _%hd1283112878%_ + _%tl1283212881%_ + _%__splice1983019831%_ + _%target1283312884%_ + _%tl1283512887%_) + (letrec ((_%loop1283612890%_ + (lambda (_%hd1283412894%_ _%K1284012897%_) + (if (gx#stx-pair? _%hd1283412894%_) + (let ((_%e1283712900%_ + (gx#syntax-e _%hd1283412894%_))) + (let ((_%lp-tl1283912907%_ (let () (declare (not safe)) - (##cdr _%e1273812801%_))) - (_%lp-hd1273912805%_ + (##cdr _%e1283712900%_))) + (_%lp-hd1283812904%_ (let () (declare (not safe)) - (##car _%e1273812801%_)))) - (_%loop1273712791%_ - _%lp-tl1274012808%_ - (cons _%lp-hd1273912805%_ - _%K1274112798%_)))) - (let ((_%K1274212811%_ - (reverse _%K1274112798%_))) - (_%__kont1972919730%_ - _%K1274212811%_ - _%hd1273212779%_ - _%hd1272912769%_)))))) - (_%loop1273712791%_ _%target1273412785%_ '()))))) - (if (gx#stx-pair? _%__stx1971819719%_) - (let ((_%e1265613195%_ (gx#syntax-e _%__stx1971819719%_))) - (let ((_%tl1265813202%_ + (##car _%e1283712900%_)))) + (_%loop1283612890%_ + _%lp-tl1283912907%_ + (cons _%lp-hd1283812904%_ + _%K1284012897%_)))) + (let ((_%K1284112910%_ + (reverse _%K1284012897%_))) + (_%__kont1982819829%_ + _%K1284112910%_ + _%hd1283112878%_ + _%hd1282812868%_)))))) + (_%loop1283612890%_ _%target1283312884%_ '()))))) + (if (gx#stx-pair? _%__stx1981719818%_) + (let ((_%e1275513294%_ (gx#syntax-e _%__stx1981719818%_))) + (let ((_%tl1275713301%_ (let () (declare (not safe)) - (##cdr _%e1265613195%_))) - (_%hd1265713199%_ + (##cdr _%e1275513294%_))) + (_%hd1275613298%_ (let () (declare (not safe)) - (##car _%e1265613195%_)))) - (if (gx#stx-pair? _%tl1265813202%_) - (let ((_%e1265913205%_ - (gx#syntax-e _%tl1265813202%_))) - (let ((_%tl1266113212%_ + (##car _%e1275513294%_)))) + (if (gx#stx-pair? _%tl1275713301%_) + (let ((_%e1275813304%_ + (gx#syntax-e _%tl1275713301%_))) + (let ((_%tl1276013311%_ (let () (declare (not safe)) - (##cdr _%e1265913205%_))) - (_%hd1266013209%_ + (##cdr _%e1275813304%_))) + (_%hd1275913308%_ (let () (declare (not safe)) - (##car _%e1265913205%_)))) - (if (gx#stx-pair? _%tl1266113212%_) - (let ((_%e1266213215%_ - (gx#syntax-e _%tl1266113212%_))) - (let ((_%tl1266413222%_ + (##car _%e1275813304%_)))) + (if (gx#stx-pair? _%tl1276013311%_) + (let ((_%e1276113314%_ + (gx#syntax-e _%tl1276013311%_))) + (let ((_%tl1276313321%_ (let () (declare (not safe)) - (##cdr _%e1266213215%_))) - (_%hd1266313219%_ + (##cdr _%e1276113314%_))) + (_%hd1276213318%_ (let () (declare (not safe)) - (##car _%e1266213215%_)))) - (if (gx#stx-null? _%tl1266413222%_) - (_%__kont1972119722%_ - _%hd1266313219%_ - _%hd1266013209%_) - (if (gx#stx-pair? _%tl1266413222%_) - (let ((_%e1267713157%_ + (##car _%e1276113314%_)))) + (if (gx#stx-null? _%tl1276313321%_) + (_%__kont1982019821%_ + _%hd1276213318%_ + _%hd1275913308%_) + (if (gx#stx-pair? _%tl1276313321%_) + (let ((_%e1277613256%_ (gx#syntax-e - _%tl1266413222%_))) - (let ((_%tl1267913164%_ + _%tl1276313321%_))) + (let ((_%tl1277813263%_ (let () (declare (not safe)) - (##cdr _%e1267713157%_))) - (_%hd1267813161%_ + (##cdr _%e1277613256%_))) + (_%hd1277713260%_ (let () (declare (not safe)) - (##car _%e1267713157%_)))) + (##car _%e1277613256%_)))) (if (gx#stx-null? - _%tl1267913164%_) - (_%__kont1972319724%_ - _%hd1267813161%_ - _%hd1266313219%_ - _%hd1266013209%_) + _%tl1277813263%_) + (_%__kont1982219823%_ + _%hd1277713260%_ + _%hd1276213318%_ + _%hd1275913308%_) (if (gx#stx-pair? - _%tl1267913164%_) - (let ((_%e1269613054%_ + _%tl1277813263%_) + (let ((_%e1279513153%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1267913164%_))) - (let ((_%tl1269813061%_ + (gx#syntax-e _%tl1277813263%_))) + (let ((_%tl1279713160%_ (let () (declare (not safe)) - (##cdr _%e1269613054%_))) - (_%hd1269713058%_ + (##cdr _%e1279513153%_))) + (_%hd1279613157%_ (let () (declare (not safe)) - (##car _%e1269613054%_)))) - (if (gx#stx-null? _%tl1269813061%_) - (_%__kont1972519726%_ - _%hd1269713058%_ - _%hd1267813161%_ - _%hd1266313219%_ - _%hd1266013209%_) - (if (gx#stx-pair? _%tl1269813061%_) - (let ((_%e1271912904%_ - (gx#syntax-e _%tl1269813061%_))) - (let ((_%tl1272112911%_ + (##car _%e1279513153%_)))) + (if (gx#stx-null? _%tl1279713160%_) + (_%__kont1982419825%_ + _%hd1279613157%_ + _%hd1277713260%_ + _%hd1276213318%_ + _%hd1275913308%_) + (if (gx#stx-pair? _%tl1279713160%_) + (let ((_%e1281813003%_ + (gx#syntax-e _%tl1279713160%_))) + (let ((_%tl1282013010%_ (let () (declare (not safe)) - (##cdr _%e1271912904%_))) - (_%hd1272012908%_ + (##cdr _%e1281813003%_))) + (_%hd1281913007%_ (let () (declare (not safe)) - (##car _%e1271912904%_)))) - (if (gx#stx-null? _%tl1272112911%_) - (_%__kont1972719728%_ - _%hd1272012908%_ - _%hd1269713058%_ - _%hd1267813161%_ - _%hd1266313219%_ - _%hd1266013209%_) - (if (gx#stx-pair/null? _%tl1266413222%_) - (let ((_%__splice1973119732%_ + (##car _%e1281813003%_)))) + (if (gx#stx-null? _%tl1282013010%_) + (_%__kont1982619827%_ + _%hd1281913007%_ + _%hd1279613157%_ + _%hd1277713260%_ + _%hd1276213318%_ + _%hd1275913308%_) + (if (gx#stx-pair/null? _%tl1276313321%_) + (let ((_%__splice1983019831%_ (gx#syntax-split-splice - _%tl1266413222%_ + _%tl1276313321%_ '0))) - (let ((_%tl1273612788%_ + (let ((_%tl1283512887%_ (let () (declare (not safe)) (##vector-ref - _%__splice1973119732%_ + _%__splice1983019831%_ '1))) - (_%target1273412785%_ + (_%target1283312884%_ (let () (declare (not safe)) (##vector-ref - _%__splice1973119732%_ + _%__splice1983019831%_ '0)))) (if (gx#stx-null? - _%tl1273612788%_) - (_%__match1987519876%_ - _%e1265613195%_ - _%hd1265713199%_ - _%tl1265813202%_ - _%e1265913205%_ - _%hd1266013209%_ - _%tl1266113212%_ - _%e1266213215%_ - _%hd1266313219%_ - _%tl1266413222%_ - _%__splice1973119732%_ - _%target1273412785%_ - _%tl1273612788%_) + _%tl1283512887%_) + (_%__match1997419975%_ + _%e1275513294%_ + _%hd1275613298%_ + _%tl1275713301%_ + _%e1275813304%_ + _%hd1275913308%_ + _%tl1276013311%_ + _%e1276113314%_ + _%hd1276213318%_ + _%tl1276313321%_ + _%__splice1983019831%_ + _%target1283312884%_ + _%tl1283512887%_) (let () (declare (not safe)) - (_%g1265212748%_))))) + (_%g1275112847%_))))) (let () (declare (not safe)) - (_%g1265212748%_)))))) - (if (gx#stx-pair/null? _%tl1266413222%_) - (let ((_%__splice1973119732%_ + (_%g1275112847%_)))))) + (if (gx#stx-pair/null? _%tl1276313321%_) + (let ((_%__splice1983019831%_ (gx#syntax-split-splice - _%tl1266413222%_ + _%tl1276313321%_ '0))) - (let ((_%tl1273612788%_ + (let ((_%tl1283512887%_ (let () (declare (not safe)) (##vector-ref - _%__splice1973119732%_ + _%__splice1983019831%_ '1))) - (_%target1273412785%_ + (_%target1283312884%_ (let () (declare (not safe)) (##vector-ref - _%__splice1973119732%_ + _%__splice1983019831%_ '0)))) - (if (gx#stx-null? _%tl1273612788%_) - (_%__match1987519876%_ - _%e1265613195%_ - _%hd1265713199%_ - _%tl1265813202%_ - _%e1265913205%_ - _%hd1266013209%_ - _%tl1266113212%_ - _%e1266213215%_ - _%hd1266313219%_ - _%tl1266413222%_ - _%__splice1973119732%_ - _%target1273412785%_ - _%tl1273612788%_) + (if (gx#stx-null? _%tl1283512887%_) + (_%__match1997419975%_ + _%e1275513294%_ + _%hd1275613298%_ + _%tl1275713301%_ + _%e1275813304%_ + _%hd1275913308%_ + _%tl1276013311%_ + _%e1276113314%_ + _%hd1276213318%_ + _%tl1276313321%_ + _%__splice1983019831%_ + _%target1283312884%_ + _%tl1283512887%_) (let () (declare (not safe)) - (_%g1265212748%_))))) + (_%g1275112847%_))))) (let () (declare (not safe)) - (_%g1265212748%_))))))) - (if (gx#stx-pair/null? _%tl1266413222%_) - (let ((_%__splice1973119732%_ - (gx#syntax-split-splice _%tl1266413222%_ '0))) - (let ((_%tl1273612788%_ + (_%g1275112847%_))))))) + (if (gx#stx-pair/null? _%tl1276313321%_) + (let ((_%__splice1983019831%_ + (gx#syntax-split-splice _%tl1276313321%_ '0))) + (let ((_%tl1283512887%_ (let () (declare (not safe)) - (##vector-ref _%__splice1973119732%_ '1))) - (_%target1273412785%_ + (##vector-ref _%__splice1983019831%_ '1))) + (_%target1283312884%_ (let () (declare (not safe)) - (##vector-ref _%__splice1973119732%_ '0)))) - (if (gx#stx-null? _%tl1273612788%_) - (_%__match1987519876%_ - _%e1265613195%_ - _%hd1265713199%_ - _%tl1265813202%_ - _%e1265913205%_ - _%hd1266013209%_ - _%tl1266113212%_ - _%e1266213215%_ - _%hd1266313219%_ - _%tl1266413222%_ - _%__splice1973119732%_ - _%target1273412785%_ - _%tl1273612788%_) + (##vector-ref _%__splice1983019831%_ '0)))) + (if (gx#stx-null? _%tl1283512887%_) + (_%__match1997419975%_ + _%e1275513294%_ + _%hd1275613298%_ + _%tl1275713301%_ + _%e1275813304%_ + _%hd1275913308%_ + _%tl1276013311%_ + _%e1276113314%_ + _%hd1276213318%_ + _%tl1276313321%_ + _%__splice1983019831%_ + _%target1283312884%_ + _%tl1283512887%_) (let () (declare (not safe)) - (_%g1265212748%_))))) - (let () (declare (not safe)) (_%g1265212748%_))))))) + (_%g1275112847%_))))) + (let () (declare (not safe)) (_%g1275112847%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl1266413222%_) - (let ((_%__splice1973119732%_ + _%tl1276313321%_) + (let ((_%__splice1983019831%_ (gx#syntax-split-splice - _%tl1266413222%_ + _%tl1276313321%_ '0))) - (let ((_%tl1273612788%_ + (let ((_%tl1283512887%_ (let () (declare (not safe)) (##vector-ref - _%__splice1973119732%_ + _%__splice1983019831%_ '1))) - (_%target1273412785%_ + (_%target1283312884%_ (let () (declare (not safe)) (##vector-ref - _%__splice1973119732%_ + _%__splice1983019831%_ '0)))) (if (gx#stx-null? - _%tl1273612788%_) - (_%__match1987519876%_ - _%e1265613195%_ - _%hd1265713199%_ - _%tl1265813202%_ - _%e1265913205%_ - _%hd1266013209%_ - _%tl1266113212%_ - _%e1266213215%_ - _%hd1266313219%_ - _%tl1266413222%_ - _%__splice1973119732%_ - _%target1273412785%_ - _%tl1273612788%_) + _%tl1283512887%_) + (_%__match1997419975%_ + _%e1275513294%_ + _%hd1275613298%_ + _%tl1275713301%_ + _%e1275813304%_ + _%hd1275913308%_ + _%tl1276013311%_ + _%e1276113314%_ + _%hd1276213318%_ + _%tl1276313321%_ + _%__splice1983019831%_ + _%target1283312884%_ + _%tl1283512887%_) (let () (declare (not safe)) - (_%g1265212748%_))))) + (_%g1275112847%_))))) (let () (declare (not safe)) - (_%g1265212748%_))))))) + (_%g1275112847%_))))))) (let () (declare (not safe)) - (_%g1265212748%_))))) - (let () (declare (not safe)) (_%g1265212748%_))))) - (let () (declare (not safe)) (_%g1265212748%_)))))))) + (_%g1275112847%_))))) + (let () (declare (not safe)) (_%g1275112847%_))))) + (let () (declare (not safe)) (_%g1275112847%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case-dispatch-bsearch| - (lambda (_%stx13247%_) - (letrec ((_%split13250%_ - (lambda (_%lst13611%_ _%mid13613%_) - (let _%lp13615%_ ((_%i13618%_ '0) - (_%rest13620%_ _%lst13611%_) - (_%left13621%_ '())) - (if (fx< _%i13618%_ _%mid13613%_) - (_%lp13615%_ - (fx1+ _%i13618%_) - (cdr _%rest13620%_) - (cons (car _%rest13620%_) _%left13621%_)) - (values (reverse _%left13621%_) _%rest13620%_)))))) - (let* ((_%g1325313281%_ - (lambda (_%g1325413277%_) + (lambda (_%stx13346%_) + (letrec ((_%split13349%_ + (lambda (_%lst13710%_ _%mid13712%_) + (let _%lp13714%_ ((_%i13717%_ '0) + (_%rest13719%_ _%lst13710%_) + (_%left13720%_ '())) + (if (fx< _%i13717%_ _%mid13712%_) + (_%lp13714%_ + (fx1+ _%i13717%_) + (cdr _%rest13719%_) + (cons (car _%rest13719%_) _%left13720%_)) + (values (reverse _%left13720%_) _%rest13719%_)))))) + (let* ((_%g1335213380%_ + (lambda (_%g1335313376%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1325413277%_))) - (_%g1325213607%_ - (lambda (_%g1325413285%_) - (if (gx#stx-pair? _%g1325413285%_) - (let ((_%e1325813288%_ (gx#syntax-e _%g1325413285%_))) - (let ((_%hd1325913292%_ + _%g1335313376%_))) + (_%g1335113706%_ + (lambda (_%g1335313384%_) + (if (gx#stx-pair? _%g1335313384%_) + (let ((_%e1335713387%_ (gx#syntax-e _%g1335313384%_))) + (let ((_%hd1335813391%_ (let () (declare (not safe)) - (##car _%e1325813288%_))) - (_%tl1326013295%_ + (##car _%e1335713387%_))) + (_%tl1335913394%_ (let () (declare (not safe)) - (##cdr _%e1325813288%_)))) - (if (gx#stx-pair? _%tl1326013295%_) - (let ((_%e1326113298%_ - (gx#syntax-e _%tl1326013295%_))) - (let ((_%hd1326213302%_ + (##cdr _%e1335713387%_)))) + (if (gx#stx-pair? _%tl1335913394%_) + (let ((_%e1336013397%_ + (gx#syntax-e _%tl1335913394%_))) + (let ((_%hd1336113401%_ (let () (declare (not safe)) - (##car _%e1326113298%_))) - (_%tl1326313305%_ + (##car _%e1336013397%_))) + (_%tl1336213404%_ (let () (declare (not safe)) - (##cdr _%e1326113298%_)))) - (if (gx#stx-pair? _%tl1326313305%_) - (let ((_%e1326413308%_ - (gx#syntax-e _%tl1326313305%_))) - (let ((_%hd1326513312%_ + (##cdr _%e1336013397%_)))) + (if (gx#stx-pair? _%tl1336213404%_) + (let ((_%e1336313407%_ + (gx#syntax-e _%tl1336213404%_))) + (let ((_%hd1336413411%_ (let () (declare (not safe)) - (##car _%e1326413308%_))) - (_%tl1326613315%_ + (##car _%e1336313407%_))) + (_%tl1336513414%_ (let () (declare (not safe)) - (##cdr _%e1326413308%_)))) + (##cdr _%e1336313407%_)))) (if (gx#stx-pair/null? - _%tl1326613315%_) - (let ((_g20940_ + _%tl1336513414%_) + (let ((_g21039_ (gx#syntax-split-splice - _%tl1326613315%_ + _%tl1336513414%_ '0))) (begin - (let ((_g20941_ + (let ((_g21040_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g20940_) - (##vector-length _g20940_) + _g21039_) + (##values-length _g21039_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20941_ 2))) - (error "Context expects 2 values" _g20941_))) + (if (not (let () (declare (not safe)) (##fx= _g21040_ 2))) + (error "Context expects 2 values" _g21040_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1326713318%_ + (let ((_%target1336613417%_ (let () (declare (not safe)) - (##vector-ref - _g20940_ + (##values-ref + _g21039_ 0))) - (_%tl1326913321%_ + (_%tl1336813420%_ (let () (declare (not safe)) - (##vector-ref - _g20940_ + (##values-ref + _g21039_ 1)))) (if (gx#stx-null? - _%tl1326913321%_) - (letrec ((_%loop1327013324%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1326813328%_ _%K1327413331%_) - (if (gx#stx-pair? _%hd1326813328%_) - (let ((_%e1327113334%_ - (gx#syntax-e _%hd1326813328%_))) - (let ((_%lp-hd1327213338%_ + _%tl1336813420%_) + (letrec ((_%loop1336913423%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd1336713427%_ _%K1337313430%_) + (if (gx#stx-pair? _%hd1336713427%_) + (let ((_%e1337013433%_ + (gx#syntax-e _%hd1336713427%_))) + (let ((_%lp-hd1337113437%_ (let () (declare (not safe)) - (##car _%e1327113334%_))) - (_%lp-tl1327313341%_ + (##car _%e1337013433%_))) + (_%lp-tl1337213440%_ (let () (declare (not safe)) - (##cdr _%e1327113334%_)))) - (_%loop1327013324%_ - _%lp-tl1327313341%_ - (cons _%lp-hd1327213338%_ - _%K1327413331%_)))) - (let ((_%K1327513344%_ - (reverse _%K1327413331%_))) - ((lambda (_%L13348%_ _%L13350%_ _%L13351%_) - (let* ((_%len13381%_ - (length (foldr (lambda (_%g1337213375%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1337313378%_) - (cons _%g1337213375%_ _%g1337313378%_)) + (##cdr _%e1337013433%_)))) + (_%loop1336913423%_ + _%lp-tl1337213440%_ + (cons _%lp-hd1337113437%_ + _%K1337313430%_)))) + (let ((_%K1337413443%_ + (reverse _%K1337313430%_))) + ((lambda (_%L13447%_ _%L13449%_ _%L13450%_) + (let* ((_%len13480%_ + (length (foldr (lambda (_%g1347113474%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1347213477%_) + (cons _%g1347113474%_ _%g1347213477%_)) '() - _%L13348%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%mid13384%_ - (quotient _%len13381%_ '2)) - (_g20942_ - (_%split13250%_ - (foldr (lambda (_%g1338613389%_ - _%g1338713392%_) - (cons _%g1338613389%_ - _%g1338713392%_)) + _%L13447%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%mid13483%_ + (quotient _%len13480%_ '2)) + (_g21041_ + (_%split13349%_ + (foldr (lambda (_%g1348513488%_ + _%g1348613491%_) + (cons _%g1348513488%_ + _%g1348613491%_)) '() - _%L13348%_) - _%mid13384%_))) + _%L13447%_) + _%mid13483%_))) (begin - (let ((_g20943_ + (let ((_g21042_ (let () (declare (not safe)) - (if (##values? _g20942_) - (##vector-length - _g20942_) + (if (##values? _g21041_) + (##values-length + _g21041_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20943_ 2))) + (##fx= _g21042_ 2))) (error "Context expects 2 values" - _g20943_))) - (let ((_%left13395%_ + _g21042_))) + (let ((_%left13494%_ (let () (declare (not safe)) - (##vector-ref _g20942_ 0))) - (_%right13397%_ + (##values-ref _g21041_ 0))) + (_%right13496%_ (let () (declare (not safe)) - (##vector-ref - _g20942_ + (##values-ref + _g21041_ 1)))) - (let* ((_%g1340113442%_ - (lambda (_%g1340213438%_) + (let* ((_%g1350013541%_ + (lambda (_%g1350113537%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1340213438%_))) - (_%g1340013603%_ - (lambda (_%g1340213446%_) + _%g1350113537%_))) + (_%g1349913702%_ + (lambda (_%g1350113545%_) (if (gx#stx-pair? - _%g1340213446%_) - (let ((_%e1340713449%_ + _%g1350113545%_) + (let ((_%e1350613548%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g1340213446%_))) - (let ((_%hd1340813453%_ + (gx#syntax-e _%g1350113545%_))) + (let ((_%hd1350713552%_ (let () (declare (not safe)) - (##car _%e1340713449%_))) - (_%tl1340913456%_ + (##car _%e1350613548%_))) + (_%tl1350813555%_ (let () (declare (not safe)) - (##cdr _%e1340713449%_)))) - (if (gx#stx-pair? _%tl1340913456%_) - (let ((_%e1341013459%_ - (gx#syntax-e _%tl1340913456%_))) - (let ((_%hd1341113463%_ + (##cdr _%e1350613548%_)))) + (if (gx#stx-pair? _%tl1350813555%_) + (let ((_%e1350913558%_ + (gx#syntax-e _%tl1350813555%_))) + (let ((_%hd1351013562%_ (let () (declare (not safe)) - (##car _%e1341013459%_))) - (_%tl1341213466%_ + (##car _%e1350913558%_))) + (_%tl1351113565%_ (let () (declare (not safe)) - (##cdr _%e1341013459%_)))) - (if (gx#stx-pair/null? _%hd1341113463%_) - (let ((_g20944_ + (##cdr _%e1350913558%_)))) + (if (gx#stx-pair/null? _%hd1351013562%_) + (let ((_g21043_ (gx#syntax-split-splice - _%hd1341113463%_ + _%hd1351013562%_ '0))) (begin - (let ((_g20945_ + (let ((_g21044_ (let () (declare (not safe)) - (if (##values? _g20944_) - (##vector-length _g20944_) + (if (##values? _g21043_) + (##values-length _g21043_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20945_ 2))) + (##fx= _g21044_ 2))) (error "Context expects 2 values" - _g20945_))) - (let ((_%target1341313469%_ + _g21044_))) + (let ((_%target1351213568%_ (let () (declare (not safe)) - (##vector-ref _g20944_ 0))) - (_%tl1341513472%_ + (##values-ref _g21043_ 0))) + (_%tl1351413571%_ (let () (declare (not safe)) - (##vector-ref _g20944_ 1)))) - (if (gx#stx-null? _%tl1341513472%_) - (letrec ((_%loop1341613475%_ - (lambda (_%hd1341413479%_ - _%K-left1342013482%_) + (##values-ref _g21043_ 1)))) + (if (gx#stx-null? _%tl1351413571%_) + (letrec ((_%loop1351513574%_ + (lambda (_%hd1351313578%_ + _%K-left1351913581%_) (if (gx#stx-pair? - _%hd1341413479%_) - (let ((_%e1341713485%_ + _%hd1351313578%_) + (let ((_%e1351613584%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd1341413479%_))) - (let ((_%lp-hd1341813489%_ + (gx#syntax-e _%hd1351313578%_))) + (let ((_%lp-hd1351713588%_ (let () (declare (not safe)) - (##car _%e1341713485%_))) - (_%lp-tl1341913492%_ + (##car _%e1351613584%_))) + (_%lp-tl1351813591%_ (let () (declare (not safe)) - (##cdr _%e1341713485%_)))) - (_%loop1341613475%_ - _%lp-tl1341913492%_ - (cons _%lp-hd1341813489%_ _%K-left1342013482%_)))) - (let ((_%K-left1342113495%_ - (reverse _%K-left1342013482%_))) - (if (gx#stx-pair? _%tl1341213466%_) - (let ((_%e1342213499%_ - (gx#syntax-e _%tl1341213466%_))) - (let ((_%hd1342313503%_ + (##cdr _%e1351613584%_)))) + (_%loop1351513574%_ + _%lp-tl1351813591%_ + (cons _%lp-hd1351713588%_ _%K-left1351913581%_)))) + (let ((_%K-left1352013594%_ + (reverse _%K-left1351913581%_))) + (if (gx#stx-pair? _%tl1351113565%_) + (let ((_%e1352113598%_ + (gx#syntax-e _%tl1351113565%_))) + (let ((_%hd1352213602%_ (let () (declare (not safe)) - (##car _%e1342213499%_))) - (_%tl1342413506%_ + (##car _%e1352113598%_))) + (_%tl1352313605%_ (let () (declare (not safe)) - (##cdr _%e1342213499%_)))) - (if (gx#stx-pair/null? _%hd1342313503%_) - (let ((_g20946_ + (##cdr _%e1352113598%_)))) + (if (gx#stx-pair/null? _%hd1352213602%_) + (let ((_g21045_ (gx#syntax-split-splice - _%hd1342313503%_ + _%hd1352213602%_ '0))) (begin - (let ((_g20947_ + (let ((_g21046_ (let () (declare (not safe)) - (if (##values? _g20946_) - (##vector-length _g20946_) + (if (##values? _g21045_) + (##values-length _g21045_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20947_ 2))) + (##fx= _g21046_ 2))) (error "Context expects 2 values" - _g20947_))) - (let ((_%target1342513509%_ + _g21046_))) + (let ((_%target1352413608%_ (let () (declare (not safe)) - (##vector-ref _g20946_ 0))) - (_%tl1342713512%_ + (##values-ref _g21045_ 0))) + (_%tl1352613611%_ (let () (declare (not safe)) - (##vector-ref _g20946_ 1)))) - (if (gx#stx-null? _%tl1342713512%_) - (letrec ((_%loop1342813515%_ - (lambda (_%hd1342613519%_ - _%K-right1343213522%_) + (##values-ref _g21045_ 1)))) + (if (gx#stx-null? _%tl1352613611%_) + (letrec ((_%loop1352713614%_ + (lambda (_%hd1352513618%_ + _%K-right1353113621%_) (if (gx#stx-pair? - _%hd1342613519%_) - (let ((_%e1342913525%_ + _%hd1352513618%_) + (let ((_%e1352813624%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd1342613519%_))) - (let ((_%lp-hd1343013529%_ + (gx#syntax-e _%hd1352513618%_))) + (let ((_%lp-hd1352913628%_ (let () (declare (not safe)) - (##car _%e1342913525%_))) - (_%lp-tl1343113532%_ + (##car _%e1352813624%_))) + (_%lp-tl1353013631%_ (let () (declare (not safe)) - (##cdr _%e1342913525%_)))) - (_%loop1342813515%_ - _%lp-tl1343113532%_ - (cons _%lp-hd1343013529%_ _%K-right1343213522%_)))) - (let ((_%K-right1343313535%_ - (reverse _%K-right1343213522%_))) - (if (gx#stx-pair? _%tl1342413506%_) - (let ((_%e1343413539%_ - (gx#syntax-e _%tl1342413506%_))) - (let ((_%hd1343513543%_ + (##cdr _%e1352813624%_)))) + (_%loop1352713614%_ + _%lp-tl1353013631%_ + (cons _%lp-hd1352913628%_ _%K-right1353113621%_)))) + (let ((_%K-right1353213634%_ + (reverse _%K-right1353113621%_))) + (if (gx#stx-pair? _%tl1352313605%_) + (let ((_%e1353313638%_ + (gx#syntax-e _%tl1352313605%_))) + (let ((_%hd1353413642%_ (let () (declare (not safe)) - (##car _%e1343413539%_))) - (_%tl1343613546%_ + (##car _%e1353313638%_))) + (_%tl1353513645%_ (let () (declare (not safe)) - (##cdr _%e1343413539%_)))) - (if (gx#stx-null? _%tl1343613546%_) - ((lambda (_%L13549%_ - _%L13551%_ - _%L13552%_ - _%L13553%_) + (##cdr _%e1353313638%_)))) + (if (gx#stx-null? _%tl1353513645%_) + ((lambda (_%L13648%_ + _%L13650%_ + _%L13651%_ + _%L13652%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx<) - (cons _%L13350%_ - (cons _%L13549%_ + (cons _%L13449%_ + (cons _%L13648%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f '~case-dispatch*) - (cons _%L13351%_ + (cons _%L13450%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L13350%_ - (foldr (lambda (_%g1358813591%_ - _%g1358913594%_) - (cons _%g1358813591%_ - _%g1358913594%_)) + (cons _%L13449%_ + (foldr (lambda (_%g1368713690%_ + _%g1368813693%_) + (cons _%g1368713690%_ + _%g1368813693%_)) '() - _%L13552%_)))) + _%L13651%_)))) (cons (cons (gx#datum->syntax '#f '~case-dispatch*) - (cons _%L13549%_ - (cons _%L13350%_ - (foldr (lambda (_%g1358613597%_ - _%g1358713600%_) - (cons _%g1358613597%_ - _%g1358713600%_)) + (cons _%L13648%_ + (cons _%L13449%_ + (foldr (lambda (_%g1368513696%_ + _%g1368613699%_) + (cons _%g1368513696%_ + _%g1368613699%_)) '() - _%L13551%_)))) + _%L13650%_)))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1343513543%_ - _%K-right1343313535%_ - _%K-left1342113495%_ - _%hd1340813453%_) - (_%g1340113442%_ _%g1340213446%_)))) - (_%g1340113442%_ _%g1340213446%_))))))) + _%hd1353413642%_ + _%K-right1353213634%_ + _%K-left1352013594%_ + _%hd1350713552%_) + (_%g1350013541%_ _%g1350113545%_)))) + (_%g1350013541%_ _%g1350113545%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1342813515%_ - _%target1342513509%_ + (_%loop1352713614%_ + _%target1352413608%_ '())) - (_%g1340113442%_ - _%g1340213446%_))))) - (_%g1340113442%_ _%g1340213446%_)))) - (_%g1340113442%_ _%g1340213446%_))))))) + (_%g1350013541%_ + _%g1350113545%_))))) + (_%g1350013541%_ _%g1350113545%_)))) + (_%g1350013541%_ _%g1350113545%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1341613475%_ - _%target1341313469%_ + (_%loop1351513574%_ + _%target1351213568%_ '())) - (_%g1340113442%_ - _%g1340213446%_))))) - (_%g1340113442%_ _%g1340213446%_)))) - (_%g1340113442%_ _%g1340213446%_)))) - (_%g1340113442%_ _%g1340213446%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1340013603%_ - (list _%mid13384%_ - _%left13395%_ - _%right13397%_ - (fx+ _%mid13384%_ + (_%g1350013541%_ + _%g1350113545%_))))) + (_%g1350013541%_ _%g1350113545%_)))) + (_%g1350013541%_ _%g1350113545%_)))) + (_%g1350013541%_ _%g1350113545%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1349913702%_ + (list _%mid13483%_ + _%left13494%_ + _%right13496%_ + (fx+ _%mid13483%_ (gx#stx-e - _%L13351%_))))))))) - _%K1327513344%_ - _%hd1326513312%_ - _%hd1326213302%_)))))) - (_%loop1327013324%_ _%target1326713318%_ '())) - (_%g1325313281%_ _%g1325413285%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1325313281%_ - _%g1325413285%_)))) - (_%g1325313281%_ _%g1325413285%_)))) - (_%g1325313281%_ _%g1325413285%_)))) - (_%g1325313281%_ _%g1325413285%_))))) - (_%g1325213607%_ _%stx13247%_))))) + _%L13450%_))))))))) + _%K1337413443%_ + _%hd1336413411%_ + _%hd1336113401%_)))))) + (_%loop1336913423%_ _%target1336613417%_ '())) + (_%g1335213380%_ _%g1335313384%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1335213380%_ + _%g1335313384%_)))) + (_%g1335213380%_ _%g1335313384%_)))) + (_%g1335213380%_ _%g1335313384%_)))) + (_%g1335213380%_ _%g1335313384%_))))) + (_%g1335113706%_ _%stx13346%_))))) (define |gerbil/core/sugar~Sugar-2[:0:]#do| - (lambda (_%$stx13627%_) - (let* ((_%g1363113702%_ - (lambda (_%g1363213698%_) + (lambda (_%$stx13726%_) + (let* ((_%g1373013801%_ + (lambda (_%g1373113797%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1363213698%_))) - (_%g1363013991%_ - (lambda (_%g1363213706%_) - (if (gx#stx-pair? _%g1363213706%_) - (let ((_%e1363913709%_ (gx#syntax-e _%g1363213706%_))) - (let ((_%hd1364013713%_ + _%g1373113797%_))) + (_%g1372914090%_ + (lambda (_%g1373113805%_) + (if (gx#stx-pair? _%g1373113805%_) + (let ((_%e1373813808%_ (gx#syntax-e _%g1373113805%_))) + (let ((_%hd1373913812%_ (let () (declare (not safe)) - (##car _%e1363913709%_))) - (_%tl1364113716%_ + (##car _%e1373813808%_))) + (_%tl1374013815%_ (let () (declare (not safe)) - (##cdr _%e1363913709%_)))) - (if (gx#stx-pair? _%tl1364113716%_) - (let ((_%e1364213719%_ - (gx#syntax-e _%tl1364113716%_))) - (let ((_%hd1364313723%_ + (##cdr _%e1373813808%_)))) + (if (gx#stx-pair? _%tl1374013815%_) + (let ((_%e1374113818%_ + (gx#syntax-e _%tl1374013815%_))) + (let ((_%hd1374213822%_ (let () (declare (not safe)) - (##car _%e1364213719%_))) - (_%tl1364413726%_ + (##car _%e1374113818%_))) + (_%tl1374313825%_ (let () (declare (not safe)) - (##cdr _%e1364213719%_)))) - (if (gx#stx-pair/null? _%hd1364313723%_) - (let ((_g20948_ + (##cdr _%e1374113818%_)))) + (if (gx#stx-pair/null? _%hd1374213822%_) + (let ((_g21047_ (gx#syntax-split-splice - _%hd1364313723%_ + _%hd1374213822%_ '0))) (begin - (let ((_g20949_ + (let ((_g21048_ (let () (declare (not safe)) - (if (##values? _g20948_) - (##vector-length - _g20948_) + (if (##values? _g21047_) + (##values-length + _g21047_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20949_ 2))) + (##fx= _g21048_ 2))) (error "Context expects 2 values" - _g20949_))) - (let ((_%target1364513729%_ + _g21048_))) + (let ((_%target1374413828%_ (let () (declare (not safe)) - (##vector-ref _g20948_ 0))) - (_%tl1364713732%_ + (##values-ref _g21047_ 0))) + (_%tl1374613831%_ (let () (declare (not safe)) - (##vector-ref _g20948_ 1)))) - (if (gx#stx-null? _%tl1364713732%_) - (letrec ((_%loop1364813735%_ - (lambda (_%hd1364613739%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%step1365213742%_ - _%init1365313744%_ - _%var1365413746%_) - (if (gx#stx-pair? _%hd1364613739%_) - (let ((_%e1364913749%_ (gx#syntax-e _%hd1364613739%_))) - (let ((_%lp-hd1365013753%_ + (##values-ref _g21047_ 1)))) + (if (gx#stx-null? _%tl1374613831%_) + (letrec ((_%loop1374713834%_ + (lambda (_%hd1374513838%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%step1375113841%_ + _%init1375213843%_ + _%var1375313845%_) + (if (gx#stx-pair? _%hd1374513838%_) + (let ((_%e1374813848%_ (gx#syntax-e _%hd1374513838%_))) + (let ((_%lp-hd1374913852%_ (let () (declare (not safe)) - (##car _%e1364913749%_))) - (_%lp-tl1365113756%_ + (##car _%e1374813848%_))) + (_%lp-tl1375013855%_ (let () (declare (not safe)) - (##cdr _%e1364913749%_)))) - (if (gx#stx-pair? _%lp-hd1365013753%_) - (let ((_%e1368213759%_ - (gx#syntax-e _%lp-hd1365013753%_))) - (let ((_%hd1368313763%_ + (##cdr _%e1374813848%_)))) + (if (gx#stx-pair? _%lp-hd1374913852%_) + (let ((_%e1378113858%_ + (gx#syntax-e _%lp-hd1374913852%_))) + (let ((_%hd1378213862%_ (let () (declare (not safe)) - (##car _%e1368213759%_))) - (_%tl1368413766%_ + (##car _%e1378113858%_))) + (_%tl1378313865%_ (let () (declare (not safe)) - (##cdr _%e1368213759%_)))) - (if (gx#stx-pair? _%tl1368413766%_) - (let ((_%e1368513769%_ - (gx#syntax-e _%tl1368413766%_))) - (let ((_%hd1368613773%_ + (##cdr _%e1378113858%_)))) + (if (gx#stx-pair? _%tl1378313865%_) + (let ((_%e1378413868%_ + (gx#syntax-e _%tl1378313865%_))) + (let ((_%hd1378513872%_ (let () (declare (not safe)) - (##car _%e1368513769%_))) - (_%tl1368713776%_ + (##car _%e1378413868%_))) + (_%tl1378613875%_ (let () (declare (not safe)) - (##cdr _%e1368513769%_)))) + (##cdr _%e1378413868%_)))) (if (gx#stx-pair/null? - _%tl1368713776%_) - (let ((_g20950_ + _%tl1378613875%_) + (let ((_g21049_ (gx#syntax-split-splice - _%tl1368713776%_ + _%tl1378613875%_ '0))) (begin - (let ((_g20951_ + (let ((_g21050_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g20950_) - (##vector-length _g20950_) + _g21049_) + (##values-length _g21049_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20951_ 2))) - (error "Context expects 2 values" _g20951_))) + (if (not (let () (declare (not safe)) (##fx= _g21050_ 2))) + (error "Context expects 2 values" _g21050_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1368813779%_ + (let ((_%target1378713878%_ (let () (declare (not safe)) - (##vector-ref - _g20950_ + (##values-ref + _g21049_ 0))) - (_%tl1369013782%_ + (_%tl1378913881%_ (let () (declare (not safe)) - (##vector-ref - _g20950_ + (##values-ref + _g21049_ 1)))) (if (gx#stx-null? - _%tl1369013782%_) - (letrec ((_%loop1369113785%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1368913789%_ _%step1369513792%_) - (if (gx#stx-pair? _%hd1368913789%_) - (let ((_%e1369213795%_ - (gx#syntax-e _%hd1368913789%_))) - (let ((_%lp-hd1369313799%_ + _%tl1378913881%_) + (letrec ((_%loop1379013884%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd1378813888%_ _%step1379413891%_) + (if (gx#stx-pair? _%hd1378813888%_) + (let ((_%e1379113894%_ + (gx#syntax-e _%hd1378813888%_))) + (let ((_%lp-hd1379213898%_ (let () (declare (not safe)) - (##car _%e1369213795%_))) - (_%lp-tl1369413802%_ + (##car _%e1379113894%_))) + (_%lp-tl1379313901%_ (let () (declare (not safe)) - (##cdr _%e1369213795%_)))) - (_%loop1369113785%_ - _%lp-tl1369413802%_ - (cons _%lp-hd1369313799%_ - _%step1369513792%_)))) - (let ((_%step1369613805%_ - (reverse _%step1369513792%_))) - (_%loop1364813735%_ - _%lp-tl1365113756%_ - (cons _%step1369613805%_ - _%step1365213742%_) - (cons _%hd1368613773%_ _%init1365313744%_) - (cons _%hd1368313763%_ - _%var1365413746%_))))))) - (_%loop1369113785%_ _%target1368813779%_ '())) - (_%g1363113702%_ _%g1363213706%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1363113702%_ - _%g1363213706%_)))) - (_%g1363113702%_ _%g1363213706%_)))) - (_%g1363113702%_ _%g1363213706%_)))) - (let ((_%step1365513809%_ (reverse _%step1365213742%_)) - (_%init1365613812%_ (reverse _%init1365313744%_)) - (_%var1365713814%_ (reverse _%var1365413746%_))) - (if (gx#stx-pair? _%tl1364413726%_) - (let ((_%e1365813817%_ - (gx#syntax-e _%tl1364413726%_))) - (let ((_%hd1365913821%_ + (##cdr _%e1379113894%_)))) + (_%loop1379013884%_ + _%lp-tl1379313901%_ + (cons _%lp-hd1379213898%_ + _%step1379413891%_)))) + (let ((_%step1379513904%_ + (reverse _%step1379413891%_))) + (_%loop1374713834%_ + _%lp-tl1375013855%_ + (cons _%step1379513904%_ + _%step1375113841%_) + (cons _%hd1378513872%_ _%init1375213843%_) + (cons _%hd1378213862%_ + _%var1375313845%_))))))) + (_%loop1379013884%_ _%target1378713878%_ '())) + (_%g1373013801%_ _%g1373113805%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1373013801%_ + _%g1373113805%_)))) + (_%g1373013801%_ _%g1373113805%_)))) + (_%g1373013801%_ _%g1373113805%_)))) + (let ((_%step1375413908%_ (reverse _%step1375113841%_)) + (_%init1375513911%_ (reverse _%init1375213843%_)) + (_%var1375613913%_ (reverse _%var1375313845%_))) + (if (gx#stx-pair? _%tl1374313825%_) + (let ((_%e1375713916%_ + (gx#syntax-e _%tl1374313825%_))) + (let ((_%hd1375813920%_ (let () (declare (not safe)) - (##car _%e1365813817%_))) - (_%tl1366013824%_ + (##car _%e1375713916%_))) + (_%tl1375913923%_ (let () (declare (not safe)) - (##cdr _%e1365813817%_)))) - (if (gx#stx-pair? _%hd1365913821%_) - (let ((_%e1366113827%_ - (gx#syntax-e _%hd1365913821%_))) - (let ((_%hd1366213831%_ + (##cdr _%e1375713916%_)))) + (if (gx#stx-pair? _%hd1375813920%_) + (let ((_%e1376013926%_ + (gx#syntax-e _%hd1375813920%_))) + (let ((_%hd1376113930%_ (let () (declare (not safe)) - (##car _%e1366113827%_))) - (_%tl1366313834%_ + (##car _%e1376013926%_))) + (_%tl1376213933%_ (let () (declare (not safe)) - (##cdr _%e1366113827%_)))) + (##cdr _%e1376013926%_)))) (if (gx#stx-pair/null? - _%tl1366313834%_) - (let ((_g20952_ + _%tl1376213933%_) + (let ((_g21051_ (gx#syntax-split-splice - _%tl1366313834%_ + _%tl1376213933%_ '0))) (begin - (let ((_g20953_ + (let ((_g21052_ (let () (declare (not safe)) (if (##values? - _g20952_) - (##vector-length - _g20952_) + _g21051_) + (##values-length + _g21051_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g20953_ 2))) - (error "Context expects 2 values" _g20953_))) + (##fx= _g21052_ 2))) + (error "Context expects 2 values" _g21052_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1366413837%_ + (let ((_%target1376313936%_ (let () (declare (not safe)) - (##vector-ref - _g20952_ + (##values-ref + _g21051_ 0))) - (_%tl1366613840%_ + (_%tl1376513939%_ (let () (declare (not safe)) - (##vector-ref - _g20952_ + (##values-ref + _g21051_ 1)))) (if (gx#stx-null? - _%tl1366613840%_) - (letrec ((_%loop1366713843%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1366513847%_ _%fini1367113850%_) - (if (gx#stx-pair? _%hd1366513847%_) - (let ((_%e1366813853%_ - (gx#syntax-e _%hd1366513847%_))) - (let ((_%lp-hd1366913857%_ + _%tl1376513939%_) + (letrec ((_%loop1376613942%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd1376413946%_ _%fini1377013949%_) + (if (gx#stx-pair? _%hd1376413946%_) + (let ((_%e1376713952%_ + (gx#syntax-e _%hd1376413946%_))) + (let ((_%lp-hd1376813956%_ (let () (declare (not safe)) - (##car _%e1366813853%_))) - (_%lp-tl1367013860%_ + (##car _%e1376713952%_))) + (_%lp-tl1376913959%_ (let () (declare (not safe)) - (##cdr _%e1366813853%_)))) - (_%loop1366713843%_ - _%lp-tl1367013860%_ - (cons _%lp-hd1366913857%_ - _%fini1367113850%_)))) - (let ((_%fini1367213863%_ - (reverse _%fini1367113850%_))) - (if (gx#stx-pair/null? _%tl1366013824%_) - (let ((_g20954_ + (##cdr _%e1376713952%_)))) + (_%loop1376613942%_ + _%lp-tl1376913959%_ + (cons _%lp-hd1376813956%_ + _%fini1377013949%_)))) + (let ((_%fini1377113962%_ + (reverse _%fini1377013949%_))) + (if (gx#stx-pair/null? _%tl1375913923%_) + (let ((_g21053_ (gx#syntax-split-splice - _%tl1366013824%_ + _%tl1375913923%_ '0))) (begin - (let ((_g20955_ + (let ((_g21054_ (let () (declare (not safe)) - (if (##values? _g20954_) - (##vector-length - _g20954_) + (if (##values? _g21053_) + (##values-length + _g21053_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20955_ 2))) + (##fx= _g21054_ 2))) (error "Context expects 2 values" - _g20955_))) - (let ((_%target1367313867%_ + _g21054_))) + (let ((_%target1377213966%_ (let () (declare (not safe)) - (##vector-ref _g20954_ 0))) - (_%tl1367513870%_ + (##values-ref _g21053_ 0))) + (_%tl1377413969%_ (let () (declare (not safe)) - (##vector-ref _g20954_ 1)))) - (if (gx#stx-null? _%tl1367513870%_) - (letrec ((_%loop1367613873%_ - (lambda (_%hd1367413877%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body1368013880%_) - (if (gx#stx-pair? _%hd1367413877%_) - (let ((_%e1367713883%_ (gx#syntax-e _%hd1367413877%_))) - (let ((_%lp-hd1367813887%_ + (##values-ref _g21053_ 1)))) + (if (gx#stx-null? _%tl1377413969%_) + (letrec ((_%loop1377513972%_ + (lambda (_%hd1377313976%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body1377913979%_) + (if (gx#stx-pair? _%hd1377313976%_) + (let ((_%e1377613982%_ (gx#syntax-e _%hd1377313976%_))) + (let ((_%lp-hd1377713986%_ (let () (declare (not safe)) - (##car _%e1367713883%_))) - (_%lp-tl1367913890%_ + (##car _%e1377613982%_))) + (_%lp-tl1377813989%_ (let () (declare (not safe)) - (##cdr _%e1367713883%_)))) - (_%loop1367613873%_ - _%lp-tl1367913890%_ - (cons _%lp-hd1367813887%_ _%body1368013880%_)))) - (let ((_%body1368113893%_ - (reverse _%body1368013880%_))) - ((lambda (_%L13897%_ - _%L13899%_ - _%L13900%_ - _%L13901%_ - _%L13902%_ - _%L13903%_) + (##cdr _%e1377613982%_)))) + (_%loop1377513972%_ + _%lp-tl1377813989%_ + (cons _%lp-hd1377713986%_ _%body1377913979%_)))) + (let ((_%body1378013992%_ + (reverse _%body1377913979%_))) + ((lambda (_%L13996%_ + _%L13998%_ + _%L13999%_ + _%L14000%_ + _%L14001%_ + _%L14002%_) (if (gx#stx-andmap gx#identifier? - (foldr (lambda (_%g1393613939%_ - _%g1393713942%_) - (cons _%g1393613939%_ - _%g1393713942%_)) + (foldr (lambda (_%g1403514038%_ + _%g1403614041%_) + (cons _%g1403514038%_ + _%g1403614041%_)) '() - _%L13903%_)) + _%L14002%_)) (cons (gx#datum->syntax '#f 'let) (cons (gx#datum->syntax '#f '$loop) (cons (begin (gx#syntax-check-splice-targets - _%L13902%_ - _%L13903%_) - (foldr (lambda (_%g1395313957%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1395413960%_ - _%g1395513962%_) - (cons (cons _%g1395413960%_ (cons _%g1395313957%_ '())) - _%g1395513962%_)) + _%L14001%_ + _%L14002%_) + (foldr (lambda (_%g1405214056%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1405314059%_ + _%g1405414061%_) + (cons (cons _%g1405314059%_ (cons _%g1405214056%_ '())) + _%g1405414061%_)) '() - _%L13902%_ - _%L13903%_)) + _%L14001%_ + _%L14002%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'if) - (cons _%L13900%_ + (cons _%L13999%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'begin) (cons '#!void - (foldr (lambda (_%g1395113965%_ - _%g1395213968%_) - (cons _%g1395113965%_ - _%g1395213968%_)) + (foldr (lambda (_%g1405014064%_ + _%g1405114067%_) + (cons _%g1405014064%_ + _%g1405114067%_)) '() - _%L13899%_))) + _%L13998%_))) (cons (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_%g1394413971%_ - _%g1394513974%_) - (cons _%g1394413971%_ - _%g1394513974%_)) + (foldr (lambda (_%g1404314070%_ + _%g1404414073%_) + (cons _%g1404314070%_ + _%g1404414073%_)) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$loop) (begin (gx#syntax-check-splice-targets - _%L13901%_ - _%L13903%_) - (foldr (lambda (_%g1394613977%_ - _%g1394713980%_ - _%g1394813982%_) + _%L14000%_ + _%L14002%_) + (foldr (lambda (_%g1404514076%_ + _%g1404614079%_ + _%g1404714081%_) (cons (cons (gx#datum->syntax '#f 'begin) - (cons _%g1394713980%_ - (foldr (lambda (_%g1394913985%_ + (cons _%g1404614079%_ + (foldr (lambda (_%g1404814084%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1395013988%_) - (cons _%g1394913985%_ _%g1395013988%_)) + _%g1404914087%_) + (cons _%g1404814084%_ _%g1404914087%_)) '() - _%g1394613977%_))) + _%g1404514076%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1394813982%_)) + _%g1404714081%_)) '() - _%L13901%_ - _%L13903%_))) + _%L14000%_ + _%L14002%_))) '()) - _%L13897%_)) + _%L13996%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1363113702%_ _%g1363213706%_))) - _%body1368113893%_ - _%fini1367213863%_ - _%hd1366213831%_ - _%step1365513809%_ - _%init1365613812%_ - _%var1365713814%_)))))) + (_%g1373013801%_ _%g1373113805%_))) + _%body1378013992%_ + _%fini1377113962%_ + _%hd1376113930%_ + _%step1375413908%_ + _%init1375513911%_ + _%var1375613913%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1367613873%_ - _%target1367313867%_ + (_%loop1377513972%_ + _%target1377213966%_ '())) - (_%g1363113702%_ - _%g1363213706%_))))) - (_%g1363113702%_ _%g1363213706%_))))))) - (_%loop1366713843%_ _%target1366413837%_ '())) - (_%g1363113702%_ _%g1363213706%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1363113702%_ - _%g1363213706%_)))) - (_%g1363113702%_ _%g1363213706%_)))) - (_%g1363113702%_ _%g1363213706%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1364813735%_ - _%target1364513729%_ + (_%g1373013801%_ + _%g1373113805%_))))) + (_%g1373013801%_ _%g1373113805%_))))))) + (_%loop1376613942%_ _%target1376313936%_ '())) + (_%g1373013801%_ _%g1373113805%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1373013801%_ + _%g1373113805%_)))) + (_%g1373013801%_ _%g1373113805%_)))) + (_%g1373013801%_ _%g1373113805%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1374713834%_ + _%target1374413828%_ '() '() '())) - (_%g1363113702%_ - _%g1363213706%_))))) - (_%g1363113702%_ _%g1363213706%_)))) - (_%g1363113702%_ _%g1363213706%_)))) - (_%g1363113702%_ _%g1363213706%_))))) - (_%g1363013991%_ _%$stx13627%_)))) + (_%g1373013801%_ + _%g1373113805%_))))) + (_%g1373013801%_ _%g1373113805%_)))) + (_%g1373013801%_ _%g1373113805%_)))) + (_%g1373013801%_ _%g1373113805%_))))) + (_%g1372914090%_ _%$stx13726%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#do-while| - (lambda (_%$stx13999%_) - (let* ((_%g1400314026%_ - (lambda (_%g1400414022%_) + (lambda (_%$stx14098%_) + (let* ((_%g1410214125%_ + (lambda (_%g1410314121%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1400414022%_))) - (_%g1400214097%_ - (lambda (_%g1400414030%_) - (if (gx#stx-pair? _%g1400414030%_) - (let ((_%e1400914033%_ (gx#syntax-e _%g1400414030%_))) - (let ((_%hd1401014037%_ + _%g1410314121%_))) + (_%g1410114196%_ + (lambda (_%g1410314129%_) + (if (gx#stx-pair? _%g1410314129%_) + (let ((_%e1410814132%_ (gx#syntax-e _%g1410314129%_))) + (let ((_%hd1410914136%_ (let () (declare (not safe)) - (##car _%e1400914033%_))) - (_%tl1401114040%_ + (##car _%e1410814132%_))) + (_%tl1411014139%_ (let () (declare (not safe)) - (##cdr _%e1400914033%_)))) - (if (gx#stx-pair? _%tl1401114040%_) - (let ((_%e1401214043%_ - (gx#syntax-e _%tl1401114040%_))) - (let ((_%hd1401314047%_ + (##cdr _%e1410814132%_)))) + (if (gx#stx-pair? _%tl1411014139%_) + (let ((_%e1411114142%_ + (gx#syntax-e _%tl1411014139%_))) + (let ((_%hd1411214146%_ (let () (declare (not safe)) - (##car _%e1401214043%_))) - (_%tl1401414050%_ + (##car _%e1411114142%_))) + (_%tl1411314149%_ (let () (declare (not safe)) - (##cdr _%e1401214043%_)))) - (if (gx#stx-pair? _%tl1401414050%_) - (let ((_%e1401514053%_ - (gx#syntax-e _%tl1401414050%_))) - (let ((_%hd1401614057%_ + (##cdr _%e1411114142%_)))) + (if (gx#stx-pair? _%tl1411314149%_) + (let ((_%e1411414152%_ + (gx#syntax-e _%tl1411314149%_))) + (let ((_%hd1411514156%_ (let () (declare (not safe)) - (##car _%e1401514053%_))) - (_%tl1401714060%_ + (##car _%e1411414152%_))) + (_%tl1411614159%_ (let () (declare (not safe)) - (##cdr _%e1401514053%_)))) - (if (gx#stx-pair? _%hd1401614057%_) - (let ((_%e1401814063%_ + (##cdr _%e1411414152%_)))) + (if (gx#stx-pair? _%hd1411514156%_) + (let ((_%e1411714162%_ (gx#syntax-e - _%hd1401614057%_))) - (let ((_%hd1401914067%_ + _%hd1411514156%_))) + (let ((_%hd1411814166%_ (let () (declare (not safe)) - (##car _%e1401814063%_))) - (_%tl1402014070%_ + (##car _%e1411714162%_))) + (_%tl1411914169%_ (let () (declare (not safe)) - (##cdr _%e1401814063%_)))) - ((lambda (_%L14073%_ - _%L14075%_ - _%L14076%_ - _%L14077%_) + (##cdr _%e1411714162%_)))) + ((lambda (_%L14172%_ + _%L14174%_ + _%L14175%_ + _%L14176%_) (cons (gx#datum->syntax '#f 'do) - (cons _%L14077%_ + (cons _%L14176%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (cons (gx#datum->syntax '#f 'not) - (cons _%L14076%_ '())) - _%L14075%_) - _%L14073%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl1401714060%_ - _%tl1402014070%_ - _%hd1401914067%_ - _%hd1401314047%_))) - (_%g1400314026%_ - _%g1400414030%_)))) - (_%g1400314026%_ _%g1400414030%_)))) - (_%g1400314026%_ _%g1400414030%_)))) - (_%g1400314026%_ _%g1400414030%_))))) - (_%g1400214097%_ _%$stx13999%_)))) + (cons _%L14175%_ '())) + _%L14174%_) + _%L14172%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%tl1411614159%_ + _%tl1411914169%_ + _%hd1411814166%_ + _%hd1411214146%_))) + (_%g1410214125%_ + _%g1410314129%_)))) + (_%g1410214125%_ _%g1410314129%_)))) + (_%g1410214125%_ _%g1410314129%_)))) + (_%g1410214125%_ _%g1410314129%_))))) + (_%g1410114196%_ _%$stx14098%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#begin0| - (lambda (_%$stx14101%_) - (let* ((_%__stx1987819879%_ _%$stx14101%_) - (_%g1410614137%_ + (lambda (_%$stx14200%_) + (let* ((_%__stx1997719978%_ _%$stx14200%_) + (_%g1420514236%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1987819879%_)))) - (let ((_%__kont1988119882%_ (lambda (_%L14249%_) _%L14249%_)) - (_%__kont1988319884%_ - (lambda (_%L14194%_ _%L14196%_) + _%__stx1997719978%_)))) + (let ((_%__kont1998019981%_ (lambda (_%L14348%_) _%L14348%_)) + (_%__kont1998219983%_ + (lambda (_%L14293%_ _%L14295%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$r) - (cons _%L14196%_ '())) + (cons _%L14295%_ '())) (cons (cons (gx#datum->syntax '#f '%#expression) (cons (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_%g1421314216%_ + (foldr (lambda (_%g1431214315%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1421414219%_) - (cons _%g1421314216%_ _%g1421414219%_)) + _%g1431314318%_) + (cons _%g1431214315%_ _%g1431314318%_)) '() - _%L14194%_)) + _%L14293%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (gx#datum->syntax '#f '$r) '()))))))) - (let ((_%__match1992119922%_ - (lambda (_%e1411714144%_ - _%hd1411814148%_ - _%tl1411914151%_ - _%e1412014154%_ - _%hd1412114158%_ - _%tl1412214161%_ - _%__splice1988519886%_ - _%target1412314164%_ - _%tl1412514167%_) - (letrec ((_%loop1412614170%_ - (lambda (_%hd1412414174%_ _%rest1413014177%_) - (if (gx#stx-pair? _%hd1412414174%_) - (let ((_%e1412714180%_ - (gx#syntax-e _%hd1412414174%_))) - (let ((_%lp-tl1412914187%_ + (let ((_%__match2002020021%_ + (lambda (_%e1421614243%_ + _%hd1421714247%_ + _%tl1421814250%_ + _%e1421914253%_ + _%hd1422014257%_ + _%tl1422114260%_ + _%__splice1998419985%_ + _%target1422214263%_ + _%tl1422414266%_) + (letrec ((_%loop1422514269%_ + (lambda (_%hd1422314273%_ _%rest1422914276%_) + (if (gx#stx-pair? _%hd1422314273%_) + (let ((_%e1422614279%_ + (gx#syntax-e _%hd1422314273%_))) + (let ((_%lp-tl1422814286%_ (let () (declare (not safe)) - (##cdr _%e1412714180%_))) - (_%lp-hd1412814184%_ + (##cdr _%e1422614279%_))) + (_%lp-hd1422714283%_ (let () (declare (not safe)) - (##car _%e1412714180%_)))) - (_%loop1412614170%_ - _%lp-tl1412914187%_ - (cons _%lp-hd1412814184%_ - _%rest1413014177%_)))) - (let ((_%rest1413114190%_ - (reverse _%rest1413014177%_))) - (_%__kont1988319884%_ - _%rest1413114190%_ - _%hd1412114158%_)))))) - (_%loop1412614170%_ _%target1412314164%_ '()))))) - (if (gx#stx-pair? _%__stx1987819879%_) - (let ((_%e1410914229%_ (gx#syntax-e _%__stx1987819879%_))) - (let ((_%tl1411114236%_ + (##car _%e1422614279%_)))) + (_%loop1422514269%_ + _%lp-tl1422814286%_ + (cons _%lp-hd1422714283%_ + _%rest1422914276%_)))) + (let ((_%rest1423014289%_ + (reverse _%rest1422914276%_))) + (_%__kont1998219983%_ + _%rest1423014289%_ + _%hd1422014257%_)))))) + (_%loop1422514269%_ _%target1422214263%_ '()))))) + (if (gx#stx-pair? _%__stx1997719978%_) + (let ((_%e1420814328%_ (gx#syntax-e _%__stx1997719978%_))) + (let ((_%tl1421014335%_ (let () (declare (not safe)) - (##cdr _%e1410914229%_))) - (_%hd1411014233%_ + (##cdr _%e1420814328%_))) + (_%hd1420914332%_ (let () (declare (not safe)) - (##car _%e1410914229%_)))) - (if (gx#stx-pair? _%tl1411114236%_) - (let ((_%e1411214239%_ - (gx#syntax-e _%tl1411114236%_))) - (let ((_%tl1411414246%_ + (##car _%e1420814328%_)))) + (if (gx#stx-pair? _%tl1421014335%_) + (let ((_%e1421114338%_ + (gx#syntax-e _%tl1421014335%_))) + (let ((_%tl1421314345%_ (let () (declare (not safe)) - (##cdr _%e1411214239%_))) - (_%hd1411314243%_ + (##cdr _%e1421114338%_))) + (_%hd1421214342%_ (let () (declare (not safe)) - (##car _%e1411214239%_)))) - (if (gx#stx-null? _%tl1411414246%_) - (_%__kont1988119882%_ _%hd1411314243%_) - (if (gx#stx-pair/null? _%tl1411414246%_) - (let ((_%__splice1988519886%_ + (##car _%e1421114338%_)))) + (if (gx#stx-null? _%tl1421314345%_) + (_%__kont1998019981%_ _%hd1421214342%_) + (if (gx#stx-pair/null? _%tl1421314345%_) + (let ((_%__splice1998419985%_ (gx#syntax-split-splice - _%tl1411414246%_ + _%tl1421314345%_ '0))) - (let ((_%tl1412514167%_ + (let ((_%tl1422414266%_ (let () (declare (not safe)) (##vector-ref - _%__splice1988519886%_ + _%__splice1998419985%_ '1))) - (_%target1412314164%_ + (_%target1422214263%_ (let () (declare (not safe)) (##vector-ref - _%__splice1988519886%_ + _%__splice1998419985%_ '0)))) - (if (gx#stx-null? _%tl1412514167%_) - (_%__match1992119922%_ - _%e1410914229%_ - _%hd1411014233%_ - _%tl1411114236%_ - _%e1411214239%_ - _%hd1411314243%_ - _%tl1411414246%_ - _%__splice1988519886%_ - _%target1412314164%_ - _%tl1412514167%_) + (if (gx#stx-null? _%tl1422414266%_) + (_%__match2002020021%_ + _%e1420814328%_ + _%hd1420914332%_ + _%tl1421014335%_ + _%e1421114338%_ + _%hd1421214342%_ + _%tl1421314345%_ + _%__splice1998419985%_ + _%target1422214263%_ + _%tl1422414266%_) (let () (declare (not safe)) - (_%g1410614137%_))))) + (_%g1420514236%_))))) (let () (declare (not safe)) - (_%g1410614137%_)))))) - (let () (declare (not safe)) (_%g1410614137%_))))) - (let () (declare (not safe)) (_%g1410614137%_)))))))) + (_%g1420514236%_)))))) + (let () (declare (not safe)) (_%g1420514236%_))))) + (let () (declare (not safe)) (_%g1420514236%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#rec| - (lambda (_%$stx14267%_) - (let* ((_%__stx1992419925%_ _%$stx14267%_) - (_%g1427314326%_ + (lambda (_%$stx14366%_) + (let* ((_%__stx2002320024%_ _%$stx14366%_) + (_%g1437214425%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1992419925%_)))) - (let ((_%__kont1992719928%_ - (lambda (_%L14528%_ _%L14530%_) + _%__stx2002320024%_)))) + (let ((_%__kont2002620027%_ + (lambda (_%L14627%_ _%L14629%_) (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L14530%_ (cons _%L14528%_ '())) + (cons (cons (cons _%L14629%_ (cons _%L14627%_ '())) '()) - (cons _%L14530%_ '()))))) - (_%__kont1992919930%_ - (lambda (_%L14472%_ _%L14474%_) + (cons _%L14629%_ '()))))) + (_%__kont2002820029%_ + (lambda (_%L14571%_ _%L14573%_) (cons (gx#datum->syntax '#f 'letrec-values) - (cons (cons (cons _%L14474%_ (cons _%L14472%_ '())) + (cons (cons (cons _%L14573%_ (cons _%L14571%_ '())) '()) (cons (cons (gx#datum->syntax '#f 'values) - _%L14474%_) + _%L14573%_) '()))))) - (_%__kont1993119932%_ - (lambda (_%L14393%_ _%L14395%_ _%L14396%_) + (_%__kont2003020031%_ + (lambda (_%L14492%_ _%L14494%_ _%L14495%_) (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L14396%_ + (cons (cons (cons _%L14495%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L14395%_ - (foldr (lambda (_%g1441614419%_ + (cons _%L14494%_ + (foldr (lambda (_%g1451514518%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1441714422%_) - (cons _%g1441614419%_ _%g1441714422%_)) + _%g1451614521%_) + (cons _%g1451514518%_ _%g1451614521%_)) '() - _%L14393%_))) + _%L14492%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) - (cons _%L14396%_ '())))))) - (let* ((_%__match2001120012%_ - (lambda (_%e1430314333%_ - _%hd1430414337%_ - _%tl1430514340%_ - _%e1430614343%_ - _%hd1430714347%_ - _%tl1430814350%_ - _%e1430914353%_ - _%hd1431014357%_ - _%tl1431114360%_ - _%__splice1993319934%_ - _%target1431214363%_ - _%tl1431414366%_) - (letrec ((_%loop1431514369%_ - (lambda (_%hd1431314373%_ _%body1431914376%_) - (if (gx#stx-pair? _%hd1431314373%_) - (let ((_%e1431614379%_ - (gx#syntax-e _%hd1431314373%_))) - (let ((_%lp-tl1431814386%_ + (cons _%L14495%_ '())))))) + (let* ((_%__match2011020111%_ + (lambda (_%e1440214432%_ + _%hd1440314436%_ + _%tl1440414439%_ + _%e1440514442%_ + _%hd1440614446%_ + _%tl1440714449%_ + _%e1440814452%_ + _%hd1440914456%_ + _%tl1441014459%_ + _%__splice2003220033%_ + _%target1441114462%_ + _%tl1441314465%_) + (letrec ((_%loop1441414468%_ + (lambda (_%hd1441214472%_ _%body1441814475%_) + (if (gx#stx-pair? _%hd1441214472%_) + (let ((_%e1441514478%_ + (gx#syntax-e _%hd1441214472%_))) + (let ((_%lp-tl1441714485%_ (let () (declare (not safe)) - (##cdr _%e1431614379%_))) - (_%lp-hd1431714383%_ + (##cdr _%e1441514478%_))) + (_%lp-hd1441614482%_ (let () (declare (not safe)) - (##car _%e1431614379%_)))) - (_%loop1431514369%_ - _%lp-tl1431814386%_ - (cons _%lp-hd1431714383%_ - _%body1431914376%_)))) - (let ((_%body1432014389%_ - (reverse _%body1431914376%_))) - (let ((_%L14393%_ _%body1432014389%_) - (_%L14395%_ _%tl1431114360%_) - (_%L14396%_ _%hd1431014357%_)) - (if (gx#identifier? _%L14396%_) - (_%__kont1993119932%_ - _%L14393%_ - _%L14395%_ - _%L14396%_) + (##car _%e1441514478%_)))) + (_%loop1441414468%_ + _%lp-tl1441714485%_ + (cons _%lp-hd1441614482%_ + _%body1441814475%_)))) + (let ((_%body1441914488%_ + (reverse _%body1441814475%_))) + (let ((_%L14492%_ _%body1441914488%_) + (_%L14494%_ _%tl1441014459%_) + (_%L14495%_ _%hd1440914456%_)) + (if (gx#identifier? _%L14495%_) + (_%__kont2003020031%_ + _%L14492%_ + _%L14494%_ + _%L14495%_) (let () (declare (not safe)) - (_%g1427314326%_))))))))) - (_%loop1431514369%_ _%target1431214363%_ '())))) - (_%__match1998519986%_ - (lambda (_%e1428814432%_ - _%hd1428914436%_ - _%tl1429014439%_ - _%e1429114442%_ - _%hd1429214446%_ - _%tl1429314449%_ - _%e1429414452%_ - _%hd1429514456%_ - _%tl1429614459%_ - _%e1429714462%_ - _%hd1429814466%_ - _%tl1429914469%_) - (let ((_%L14472%_ _%hd1429814466%_) - (_%L14474%_ _%tl1429614459%_)) - (if (gx#identifier-list? _%L14474%_) - (_%__kont1992919930%_ _%L14472%_ _%L14474%_) - (if (gx#stx-pair/null? _%tl1429314449%_) - (let ((_%__splice1993319934%_ + (_%g1437214425%_))))))))) + (_%loop1441414468%_ _%target1441114462%_ '())))) + (_%__match2008420085%_ + (lambda (_%e1438714531%_ + _%hd1438814535%_ + _%tl1438914538%_ + _%e1439014541%_ + _%hd1439114545%_ + _%tl1439214548%_ + _%e1439314551%_ + _%hd1439414555%_ + _%tl1439514558%_ + _%e1439614561%_ + _%hd1439714565%_ + _%tl1439814568%_) + (let ((_%L14571%_ _%hd1439714565%_) + (_%L14573%_ _%tl1439514558%_)) + (if (gx#identifier-list? _%L14573%_) + (_%__kont2002820029%_ _%L14571%_ _%L14573%_) + (if (gx#stx-pair/null? _%tl1439214548%_) + (let ((_%__splice2003220033%_ (gx#syntax-split-splice - _%tl1429314449%_ + _%tl1439214548%_ '0))) - (let ((_%tl1431414366%_ + (let ((_%tl1441314465%_ (let () (declare (not safe)) (##vector-ref - _%__splice1993319934%_ + _%__splice2003220033%_ '1))) - (_%target1431214363%_ + (_%target1441114462%_ (let () (declare (not safe)) (##vector-ref - _%__splice1993319934%_ + _%__splice2003220033%_ '0)))) - (if (gx#stx-null? _%tl1431414366%_) - (_%__match2001120012%_ - _%e1428814432%_ - _%hd1428914436%_ - _%tl1429014439%_ - _%e1429114442%_ - _%hd1429214446%_ - _%tl1429314449%_ - _%e1429414452%_ - _%hd1429514456%_ - _%tl1429614459%_ - _%__splice1993319934%_ - _%target1431214363%_ - _%tl1431414366%_) + (if (gx#stx-null? _%tl1441314465%_) + (_%__match2011020111%_ + _%e1438714531%_ + _%hd1438814535%_ + _%tl1438914538%_ + _%e1439014541%_ + _%hd1439114545%_ + _%tl1439214548%_ + _%e1439314551%_ + _%hd1439414555%_ + _%tl1439514558%_ + _%__splice2003220033%_ + _%target1441114462%_ + _%tl1441314465%_) (let () (declare (not safe)) - (_%g1427314326%_))))) + (_%g1437214425%_))))) (let () (declare (not safe)) - (_%g1427314326%_))))))) - (_%__match1995519956%_ - (lambda (_%e1427714498%_ - _%hd1427814502%_ - _%tl1427914505%_ - _%e1428014508%_ - _%hd1428114512%_ - _%tl1428214515%_ - _%e1428314518%_ - _%hd1428414522%_ - _%tl1428514525%_) - (let ((_%L14528%_ _%hd1428414522%_) - (_%L14530%_ _%hd1428114512%_)) - (if (gx#identifier? _%L14530%_) - (_%__kont1992719928%_ _%L14528%_ _%L14530%_) - (if (gx#stx-pair? _%hd1428114512%_) - (let ((_%e1429414452%_ - (gx#syntax-e _%hd1428114512%_))) - (let ((_%tl1429614459%_ + (_%g1437214425%_))))))) + (_%__match2005420055%_ + (lambda (_%e1437614597%_ + _%hd1437714601%_ + _%tl1437814604%_ + _%e1437914607%_ + _%hd1438014611%_ + _%tl1438114614%_ + _%e1438214617%_ + _%hd1438314621%_ + _%tl1438414624%_) + (let ((_%L14627%_ _%hd1438314621%_) + (_%L14629%_ _%hd1438014611%_)) + (if (gx#identifier? _%L14629%_) + (_%__kont2002620027%_ _%L14627%_ _%L14629%_) + (if (gx#stx-pair? _%hd1438014611%_) + (let ((_%e1439314551%_ + (gx#syntax-e _%hd1438014611%_))) + (let ((_%tl1439514558%_ (let () (declare (not safe)) - (##cdr _%e1429414452%_))) - (_%hd1429514456%_ + (##cdr _%e1439314551%_))) + (_%hd1439414555%_ (let () (declare (not safe)) - (##car _%e1429414452%_)))) - (if (gx#identifier? _%hd1429514456%_) + (##car _%e1439314551%_)))) + (if (gx#identifier? _%hd1439414555%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20956_| - _%hd1429514456%_) - (_%__match1998519986%_ - _%e1427714498%_ - _%hd1427814502%_ - _%tl1427914505%_ - _%e1428014508%_ - _%hd1428114512%_ - _%tl1428214515%_ - _%e1429414452%_ - _%hd1429514456%_ - _%tl1429614459%_ - _%e1428314518%_ - _%hd1428414522%_ - _%tl1428514525%_) + |gerbil/core/sugar~Sugar-2[1]#_g21055_| + _%hd1439414555%_) + (_%__match2008420085%_ + _%e1437614597%_ + _%hd1437714601%_ + _%tl1437814604%_ + _%e1437914607%_ + _%hd1438014611%_ + _%tl1438114614%_ + _%e1439314551%_ + _%hd1439414555%_ + _%tl1439514558%_ + _%e1438214617%_ + _%hd1438314621%_ + _%tl1438414624%_) (if (gx#stx-pair/null? - _%tl1428214515%_) - (let ((_%__splice1993319934%_ + _%tl1438114614%_) + (let ((_%__splice2003220033%_ (gx#syntax-split-splice - _%tl1428214515%_ + _%tl1438114614%_ '0))) - (let ((_%tl1431414366%_ + (let ((_%tl1441314465%_ (let () (declare (not safe)) (##vector-ref - _%__splice1993319934%_ + _%__splice2003220033%_ '1))) - (_%target1431214363%_ + (_%target1441114462%_ (let () (declare (not safe)) (##vector-ref - _%__splice1993319934%_ + _%__splice2003220033%_ '0)))) (if (gx#stx-null? - _%tl1431414366%_) - (_%__match2001120012%_ - _%e1427714498%_ - _%hd1427814502%_ - _%tl1427914505%_ - _%e1428014508%_ - _%hd1428114512%_ - _%tl1428214515%_ - _%e1429414452%_ - _%hd1429514456%_ - _%tl1429614459%_ - _%__splice1993319934%_ - _%target1431214363%_ - _%tl1431414366%_) + _%tl1441314465%_) + (_%__match2011020111%_ + _%e1437614597%_ + _%hd1437714601%_ + _%tl1437814604%_ + _%e1437914607%_ + _%hd1438014611%_ + _%tl1438114614%_ + _%e1439314551%_ + _%hd1439414555%_ + _%tl1439514558%_ + _%__splice2003220033%_ + _%target1441114462%_ + _%tl1441314465%_) (let () (declare (not safe)) - (_%g1427314326%_))))) + (_%g1437214425%_))))) (let () (declare (not safe)) - (_%g1427314326%_)))) + (_%g1437214425%_)))) (if (gx#stx-pair/null? - _%tl1428214515%_) - (let ((_%__splice1993319934%_ + _%tl1438114614%_) + (let ((_%__splice2003220033%_ (gx#syntax-split-splice - _%tl1428214515%_ + _%tl1438114614%_ '0))) - (let ((_%tl1431414366%_ + (let ((_%tl1441314465%_ (let () (declare (not safe)) (##vector-ref - _%__splice1993319934%_ + _%__splice2003220033%_ '1))) - (_%target1431214363%_ + (_%target1441114462%_ (let () (declare (not safe)) (##vector-ref - _%__splice1993319934%_ + _%__splice2003220033%_ '0)))) (if (gx#stx-null? - _%tl1431414366%_) - (_%__match2001120012%_ - _%e1427714498%_ - _%hd1427814502%_ - _%tl1427914505%_ - _%e1428014508%_ - _%hd1428114512%_ - _%tl1428214515%_ - _%e1429414452%_ - _%hd1429514456%_ - _%tl1429614459%_ - _%__splice1993319934%_ - _%target1431214363%_ - _%tl1431414366%_) + _%tl1441314465%_) + (_%__match2011020111%_ + _%e1437614597%_ + _%hd1437714601%_ + _%tl1437814604%_ + _%e1437914607%_ + _%hd1438014611%_ + _%tl1438114614%_ + _%e1439314551%_ + _%hd1439414555%_ + _%tl1439514558%_ + _%__splice2003220033%_ + _%target1441114462%_ + _%tl1441314465%_) (let () (declare (not safe)) - (_%g1427314326%_))))) + (_%g1437214425%_))))) (let () (declare (not safe)) - (_%g1427314326%_)))))) + (_%g1437214425%_)))))) (let () (declare (not safe)) - (_%g1427314326%_)))))))) - (if (gx#stx-pair? _%__stx1992419925%_) - (let ((_%e1427714498%_ (gx#syntax-e _%__stx1992419925%_))) - (let ((_%tl1427914505%_ + (_%g1437214425%_)))))))) + (if (gx#stx-pair? _%__stx2002320024%_) + (let ((_%e1437614597%_ (gx#syntax-e _%__stx2002320024%_))) + (let ((_%tl1437814604%_ (let () (declare (not safe)) - (##cdr _%e1427714498%_))) - (_%hd1427814502%_ + (##cdr _%e1437614597%_))) + (_%hd1437714601%_ (let () (declare (not safe)) - (##car _%e1427714498%_)))) - (if (gx#stx-pair? _%tl1427914505%_) - (let ((_%e1428014508%_ - (gx#syntax-e _%tl1427914505%_))) - (let ((_%tl1428214515%_ + (##car _%e1437614597%_)))) + (if (gx#stx-pair? _%tl1437814604%_) + (let ((_%e1437914607%_ + (gx#syntax-e _%tl1437814604%_))) + (let ((_%tl1438114614%_ (let () (declare (not safe)) - (##cdr _%e1428014508%_))) - (_%hd1428114512%_ + (##cdr _%e1437914607%_))) + (_%hd1438014611%_ (let () (declare (not safe)) - (##car _%e1428014508%_)))) - (if (gx#stx-pair? _%tl1428214515%_) - (let ((_%e1428314518%_ - (gx#syntax-e _%tl1428214515%_))) - (let ((_%tl1428514525%_ + (##car _%e1437914607%_)))) + (if (gx#stx-pair? _%tl1438114614%_) + (let ((_%e1438214617%_ + (gx#syntax-e _%tl1438114614%_))) + (let ((_%tl1438414624%_ (let () (declare (not safe)) - (##cdr _%e1428314518%_))) - (_%hd1428414522%_ + (##cdr _%e1438214617%_))) + (_%hd1438314621%_ (let () (declare (not safe)) - (##car _%e1428314518%_)))) - (if (gx#stx-null? _%tl1428514525%_) - (_%__match1995519956%_ - _%e1427714498%_ - _%hd1427814502%_ - _%tl1427914505%_ - _%e1428014508%_ - _%hd1428114512%_ - _%tl1428214515%_ - _%e1428314518%_ - _%hd1428414522%_ - _%tl1428514525%_) - (if (gx#stx-pair? _%hd1428114512%_) - (let ((_%e1429414452%_ + (##car _%e1438214617%_)))) + (if (gx#stx-null? _%tl1438414624%_) + (_%__match2005420055%_ + _%e1437614597%_ + _%hd1437714601%_ + _%tl1437814604%_ + _%e1437914607%_ + _%hd1438014611%_ + _%tl1438114614%_ + _%e1438214617%_ + _%hd1438314621%_ + _%tl1438414624%_) + (if (gx#stx-pair? _%hd1438014611%_) + (let ((_%e1439314551%_ (gx#syntax-e - _%hd1428114512%_))) - (let ((_%tl1429614459%_ + _%hd1438014611%_))) + (let ((_%tl1439514558%_ (let () (declare (not safe)) - (##cdr _%e1429414452%_))) - (_%hd1429514456%_ + (##cdr _%e1439314551%_))) + (_%hd1439414555%_ (let () (declare (not safe)) - (##car _%e1429414452%_)))) + (##car _%e1439314551%_)))) (if (gx#stx-pair/null? - _%tl1428214515%_) - (let ((_%__splice1993319934%_ + _%tl1438114614%_) + (let ((_%__splice2003220033%_ (gx#syntax-split-splice - _%tl1428214515%_ + _%tl1438114614%_ '0))) - (let ((_%tl1431414366%_ + (let ((_%tl1441314465%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice1993319934%_ '1))) - (_%target1431214363%_ + (##vector-ref _%__splice2003220033%_ '1))) + (_%target1441114462%_ (let () (declare (not safe)) - (##vector-ref _%__splice1993319934%_ '0)))) - (if (gx#stx-null? _%tl1431414366%_) - (_%__match2001120012%_ - _%e1427714498%_ - _%hd1427814502%_ - _%tl1427914505%_ - _%e1428014508%_ - _%hd1428114512%_ - _%tl1428214515%_ - _%e1429414452%_ - _%hd1429514456%_ - _%tl1429614459%_ - _%__splice1993319934%_ - _%target1431214363%_ - _%tl1431414366%_) - (let () (declare (not safe)) (_%g1427314326%_))))) - (let () (declare (not safe)) (_%g1427314326%_))))) + (##vector-ref _%__splice2003220033%_ '0)))) + (if (gx#stx-null? _%tl1441314465%_) + (_%__match2011020111%_ + _%e1437614597%_ + _%hd1437714601%_ + _%tl1437814604%_ + _%e1437914607%_ + _%hd1438014611%_ + _%tl1438114614%_ + _%e1439314551%_ + _%hd1439414555%_ + _%tl1439514558%_ + _%__splice2003220033%_ + _%target1441114462%_ + _%tl1441314465%_) + (let () (declare (not safe)) (_%g1437214425%_))))) + (let () (declare (not safe)) (_%g1437214425%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g1427314326%_)))))) - (if (gx#stx-pair? _%hd1428114512%_) - (let ((_%e1429414452%_ - (gx#syntax-e _%hd1428114512%_))) - (let ((_%tl1429614459%_ + (_%g1437214425%_)))))) + (if (gx#stx-pair? _%hd1438014611%_) + (let ((_%e1439314551%_ + (gx#syntax-e _%hd1438014611%_))) + (let ((_%tl1439514558%_ (let () (declare (not safe)) - (##cdr _%e1429414452%_))) - (_%hd1429514456%_ + (##cdr _%e1439314551%_))) + (_%hd1439414555%_ (let () (declare (not safe)) - (##car _%e1429414452%_)))) + (##car _%e1439314551%_)))) (if (gx#stx-pair/null? - _%tl1428214515%_) - (let ((_%__splice1993319934%_ + _%tl1438114614%_) + (let ((_%__splice2003220033%_ (gx#syntax-split-splice - _%tl1428214515%_ + _%tl1438114614%_ '0))) - (let ((_%tl1431414366%_ + (let ((_%tl1441314465%_ (let () (declare (not safe)) (##vector-ref - _%__splice1993319934%_ + _%__splice2003220033%_ '1))) - (_%target1431214363%_ + (_%target1441114462%_ (let () (declare (not safe)) (##vector-ref - _%__splice1993319934%_ + _%__splice2003220033%_ '0)))) (if (gx#stx-null? - _%tl1431414366%_) - (_%__match2001120012%_ - _%e1427714498%_ - _%hd1427814502%_ - _%tl1427914505%_ - _%e1428014508%_ - _%hd1428114512%_ - _%tl1428214515%_ - _%e1429414452%_ - _%hd1429514456%_ - _%tl1429614459%_ - _%__splice1993319934%_ - _%target1431214363%_ - _%tl1431414366%_) + _%tl1441314465%_) + (_%__match2011020111%_ + _%e1437614597%_ + _%hd1437714601%_ + _%tl1437814604%_ + _%e1437914607%_ + _%hd1438014611%_ + _%tl1438114614%_ + _%e1439314551%_ + _%hd1439414555%_ + _%tl1439514558%_ + _%__splice2003220033%_ + _%target1441114462%_ + _%tl1441314465%_) (let () (declare (not safe)) - (_%g1427314326%_))))) + (_%g1437214425%_))))) (let () (declare (not safe)) - (_%g1427314326%_))))) + (_%g1437214425%_))))) (let () (declare (not safe)) - (_%g1427314326%_)))))) - (let () (declare (not safe)) (_%g1427314326%_))))) - (let () (declare (not safe)) (_%g1427314326%_)))))))) + (_%g1437214425%_)))))) + (let () (declare (not safe)) (_%g1437214425%_))))) + (let () (declare (not safe)) (_%g1437214425%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#alet| - (lambda (_%stx14550%_) - (letrec ((_%let-bind?14553%_ - (lambda (_%x15476%_) - (let* ((_%__stx2001420015%_ _%x15476%_) - (_%g1548115500%_ + (lambda (_%stx14649%_) + (letrec ((_%let-bind?14652%_ + (lambda (_%x15575%_) + (let* ((_%__stx2011320114%_ _%x15575%_) + (_%g1558015599%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2001420015%_)))) - (let ((_%__kont2001720018%_ - (lambda (_%L15568%_ _%L15570%_) - (_%let-head?14556%_ _%L15570%_))) - (_%__kont2001920020%_ (lambda (_%L15528%_) '#t)) - (_%__kont2002120022%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx2001420015%_) - (let ((_%e1548515548%_ - (gx#syntax-e _%__stx2001420015%_))) - (let ((_%tl1548715555%_ + _%__stx2011320114%_)))) + (let ((_%__kont2011620117%_ + (lambda (_%L15667%_ _%L15669%_) + (_%let-head?14655%_ _%L15669%_))) + (_%__kont2011820119%_ (lambda (_%L15627%_) '#t)) + (_%__kont2012020121%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx2011320114%_) + (let ((_%e1558415647%_ + (gx#syntax-e _%__stx2011320114%_))) + (let ((_%tl1558615654%_ (let () (declare (not safe)) - (##cdr _%e1548515548%_))) - (_%hd1548615552%_ + (##cdr _%e1558415647%_))) + (_%hd1558515651%_ (let () (declare (not safe)) - (##car _%e1548515548%_)))) - (if (gx#stx-pair? _%tl1548715555%_) - (let ((_%e1548815558%_ - (gx#syntax-e _%tl1548715555%_))) - (let ((_%tl1549015565%_ + (##car _%e1558415647%_)))) + (if (gx#stx-pair? _%tl1558615654%_) + (let ((_%e1558715657%_ + (gx#syntax-e _%tl1558615654%_))) + (let ((_%tl1558915664%_ (let () (declare (not safe)) - (##cdr _%e1548815558%_))) - (_%hd1548915562%_ + (##cdr _%e1558715657%_))) + (_%hd1558815661%_ (let () (declare (not safe)) - (##car _%e1548815558%_)))) - (if (gx#stx-null? _%tl1549015565%_) - (_%__kont2001720018%_ - _%hd1548915562%_ - _%hd1548615552%_) - (_%__kont2002120022%_)))) - (if (gx#stx-null? _%tl1548715555%_) - (_%__kont2001920020%_ _%hd1548615552%_) - (_%__kont2002120022%_))))) - (_%__kont2002120022%_)))))) - (_%let-bind14555%_ - (lambda (_%x15378%_) - (let* ((_%__stx2004820049%_ _%x15378%_) - (_%g1538215401%_ + (##car _%e1558715657%_)))) + (if (gx#stx-null? _%tl1558915664%_) + (_%__kont2011620117%_ + _%hd1558815661%_ + _%hd1558515651%_) + (_%__kont2012020121%_)))) + (if (gx#stx-null? _%tl1558615654%_) + (_%__kont2011820119%_ _%hd1558515651%_) + (_%__kont2012020121%_))))) + (_%__kont2012020121%_)))))) + (_%let-bind14654%_ + (lambda (_%x15477%_) + (let* ((_%__stx2014720148%_ _%x15477%_) + (_%g1548115500%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2004820049%_)))) - (let ((_%__kont2005120052%_ - (lambda (_%L15457%_ _%L15459%_) _%x15378%_)) - (_%__kont2005320054%_ - (lambda (_%L15418%_) + _%__stx2014720148%_)))) + (let ((_%__kont2015020151%_ + (lambda (_%L15556%_ _%L15558%_) _%x15477%_)) + (_%__kont2015220153%_ + (lambda (_%L15517%_) (cons (gx#datum->syntax '#f '_) - (cons _%L15418%_ '()))))) - (if (gx#stx-pair? _%__stx2004820049%_) - (let ((_%e1538615437%_ - (gx#syntax-e _%__stx2004820049%_))) - (let ((_%tl1538815444%_ + (cons _%L15517%_ '()))))) + (if (gx#stx-pair? _%__stx2014720148%_) + (let ((_%e1548515536%_ + (gx#syntax-e _%__stx2014720148%_))) + (let ((_%tl1548715543%_ (let () (declare (not safe)) - (##cdr _%e1538615437%_))) - (_%hd1538715441%_ + (##cdr _%e1548515536%_))) + (_%hd1548615540%_ (let () (declare (not safe)) - (##car _%e1538615437%_)))) - (if (gx#stx-pair? _%tl1538815444%_) - (let ((_%e1538915447%_ - (gx#syntax-e _%tl1538815444%_))) - (let ((_%tl1539115454%_ + (##car _%e1548515536%_)))) + (if (gx#stx-pair? _%tl1548715543%_) + (let ((_%e1548815546%_ + (gx#syntax-e _%tl1548715543%_))) + (let ((_%tl1549015553%_ (let () (declare (not safe)) - (##cdr _%e1538915447%_))) - (_%hd1539015451%_ + (##cdr _%e1548815546%_))) + (_%hd1548915550%_ (let () (declare (not safe)) - (##car _%e1538915447%_)))) - (if (gx#stx-null? _%tl1539115454%_) - (_%__kont2005120052%_ - _%hd1539015451%_ - _%hd1538715441%_) + (##car _%e1548815546%_)))) + (if (gx#stx-null? _%tl1549015553%_) + (_%__kont2015020151%_ + _%hd1548915550%_ + _%hd1548615540%_) (let () (declare (not safe)) - (_%g1538215401%_))))) - (if (gx#stx-null? _%tl1538815444%_) - (_%__kont2005320054%_ _%hd1538715441%_) + (_%g1548115500%_))))) + (if (gx#stx-null? _%tl1548715543%_) + (_%__kont2015220153%_ _%hd1548615540%_) (let () (declare (not safe)) - (_%g1538215401%_)))))) + (_%g1548115500%_)))))) (let () (declare (not safe)) - (_%g1538215401%_))))))) - (_%let-head?14556%_ - (lambda (_%x15318%_) - (let* ((_%__stx2008020081%_ _%x15318%_) - (_%g1532215333%_ + (_%g1548115500%_))))))) + (_%let-head?14655%_ + (lambda (_%x15417%_) + (let* ((_%__stx2017920180%_ _%x15417%_) + (_%g1542115432%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2008020081%_)))) - (let ((_%__kont2008320084%_ - (lambda (_%L15361%_) - (gx#stx-andmap gx#identifier? _%L15361%_))) - (_%__kont2008520086%_ - (lambda () (gx#identifier? _%x15318%_)))) - (if (gx#stx-pair? _%__stx2008020081%_) - (let ((_%e1532515351%_ - (gx#syntax-e _%__stx2008020081%_))) - (let ((_%tl1532715358%_ + _%__stx2017920180%_)))) + (let ((_%__kont2018220183%_ + (lambda (_%L15460%_) + (gx#stx-andmap gx#identifier? _%L15460%_))) + (_%__kont2018420185%_ + (lambda () (gx#identifier? _%x15417%_)))) + (if (gx#stx-pair? _%__stx2017920180%_) + (let ((_%e1542415450%_ + (gx#syntax-e _%__stx2017920180%_))) + (let ((_%tl1542615457%_ (let () (declare (not safe)) - (##cdr _%e1532515351%_))) - (_%hd1532615355%_ + (##cdr _%e1542415450%_))) + (_%hd1542515454%_ (let () (declare (not safe)) - (##car _%e1532515351%_)))) - (if (gx#identifier? _%hd1532615355%_) + (##car _%e1542415450%_)))) + (if (gx#identifier? _%hd1542515454%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20957_| - _%hd1532615355%_) - (_%__kont2008320084%_ _%tl1532715358%_) - (_%__kont2008520086%_)) - (_%__kont2008520086%_)))) - (_%__kont2008520086%_)))))) - (_%let-head14557%_ - (lambda (_%x15258%_) - (let* ((_%__stx2010020101%_ _%x15258%_) - (_%g1526215273%_ + |gerbil/core/sugar~Sugar-2[1]#_g21056_| + _%hd1542515454%_) + (_%__kont2018220183%_ _%tl1542615457%_) + (_%__kont2018420185%_)) + (_%__kont2018420185%_)))) + (_%__kont2018420185%_)))))) + (_%let-head14656%_ + (lambda (_%x15357%_) + (let* ((_%__stx2019920200%_ _%x15357%_) + (_%g1536115372%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2010020101%_)))) - (let ((_%__kont2010320104%_ - (lambda (_%L15301%_) _%L15301%_)) - (_%__kont2010520106%_ - (lambda () (list _%x15258%_)))) - (if (gx#stx-pair? _%__stx2010020101%_) - (let ((_%e1526515291%_ - (gx#syntax-e _%__stx2010020101%_))) - (let ((_%tl1526715298%_ + _%__stx2019920200%_)))) + (let ((_%__kont2020220203%_ + (lambda (_%L15400%_) _%L15400%_)) + (_%__kont2020420205%_ + (lambda () (list _%x15357%_)))) + (if (gx#stx-pair? _%__stx2019920200%_) + (let ((_%e1536415390%_ + (gx#syntax-e _%__stx2019920200%_))) + (let ((_%tl1536615397%_ (let () (declare (not safe)) - (##cdr _%e1526515291%_))) - (_%hd1526615295%_ + (##cdr _%e1536415390%_))) + (_%hd1536515394%_ (let () (declare (not safe)) - (##car _%e1526515291%_)))) - (if (gx#identifier? _%hd1526615295%_) + (##car _%e1536415390%_)))) + (if (gx#identifier? _%hd1536515394%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20958_| - _%hd1526615295%_) - (_%__kont2010320104%_ _%tl1526715298%_) - (_%__kont2010520106%_)) - (_%__kont2010520106%_)))) - (_%__kont2010520106%_))))))) - (let* ((_%__stx2012020121%_ _%stx14550%_) - (_%g1456114633%_ + |gerbil/core/sugar~Sugar-2[1]#_g21057_| + _%hd1536515394%_) + (_%__kont2020220203%_ _%tl1536615397%_) + (_%__kont2020420205%_)) + (_%__kont2020420205%_)))) + (_%__kont2020420205%_))))))) + (let* ((_%__stx2021920220%_ _%stx14649%_) + (_%g1466014732%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2012020121%_)))) - (let ((_%__kont2012320124%_ - (lambda (_%L15231%_ _%L15233%_ _%L15234%_ _%L15235%_) - (cons _%L15235%_ - (cons (cons (cons _%L15234%_ (cons _%L15233%_ '())) + _%__stx2021920220%_)))) + (let ((_%__kont2022220223%_ + (lambda (_%L15330%_ _%L15332%_ _%L15333%_ _%L15334%_) + (cons _%L15334%_ + (cons (cons (cons _%L15333%_ (cons _%L15332%_ '())) '()) - _%L15231%_)))) - (_%__kont2012520126%_ - (lambda (_%L15153%_ _%L15155%_) + _%L15330%_)))) + (_%__kont2022420225%_ + (lambda (_%L15252%_ _%L15254%_) (cons (gx#datum->syntax '#f 'and) - (cons _%L15155%_ + (cons _%L15254%_ (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g1517515178%_ + (foldr (lambda (_%g1527415277%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1517615181%_) - (cons _%g1517515178%_ _%g1517615181%_)) + _%g1527515280%_) + (cons _%g1527415277%_ _%g1527515280%_)) '() - _%L15153%_))) + _%L15252%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont2012920130%_ - (lambda (_%L14720%_ _%L14722%_) - (let* ((_%g1475314779%_ - (lambda (_%g1475414775%_) + (_%__kont2022820229%_ + (lambda (_%L14819%_ _%L14821%_) + (let* ((_%g1485214878%_ + (lambda (_%g1485314874%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1475414775%_))) - (_%g1475215064%_ - (lambda (_%g1475414783%_) - (if (gx#stx-pair/null? _%g1475414783%_) - (let ((_g20959_ + _%g1485314874%_))) + (_%g1485115163%_ + (lambda (_%g1485314882%_) + (if (gx#stx-pair/null? _%g1485314882%_) + (let ((_g21058_ (gx#syntax-split-splice - _%g1475414783%_ + _%g1485314882%_ '0))) (begin - (let ((_g20960_ + (let ((_g21059_ (let () (declare (not safe)) - (if (##values? _g20959_) - (##vector-length _g20959_) + (if (##values? _g21058_) + (##values-length _g21058_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20960_ 2))) + (##fx= _g21059_ 2))) (error "Context expects 2 values" - _g20960_))) - (let ((_%target1475714786%_ + _g21059_))) + (let ((_%target1485614885%_ (let () (declare (not safe)) - (##vector-ref _g20959_ 0))) - (_%tl1475914789%_ + (##values-ref _g21058_ 0))) + (_%tl1485814888%_ (let () (declare (not safe)) - (##vector-ref _g20959_ 1)))) - (if (gx#stx-null? _%tl1475914789%_) - (letrec ((_%loop1476014792%_ - (lambda (_%hd1475814796%_ - _%e1476414799%_ - _%hd1476514801%_) + (##values-ref _g21058_ 1)))) + (if (gx#stx-null? _%tl1485814888%_) + (letrec ((_%loop1485914891%_ + (lambda (_%hd1485714895%_ + _%e1486314898%_ + _%hd1486414900%_) (if (gx#stx-pair? - _%hd1475814796%_) - (let ((_%e1476114804%_ + _%hd1485714895%_) + (let ((_%e1486014903%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd1475814796%_))) - (let ((_%lp-hd1476214808%_ + (gx#syntax-e _%hd1485714895%_))) + (let ((_%lp-hd1486114907%_ (let () (declare (not safe)) - (##car _%e1476114804%_))) - (_%lp-tl1476314811%_ + (##car _%e1486014903%_))) + (_%lp-tl1486214910%_ (let () (declare (not safe)) - (##cdr _%e1476114804%_)))) - (if (gx#stx-pair? _%lp-hd1476214808%_) - (let ((_%e1476814814%_ - (gx#syntax-e _%lp-hd1476214808%_))) - (let ((_%hd1476914818%_ + (##cdr _%e1486014903%_)))) + (if (gx#stx-pair? _%lp-hd1486114907%_) + (let ((_%e1486714913%_ + (gx#syntax-e _%lp-hd1486114907%_))) + (let ((_%hd1486814917%_ (let () (declare (not safe)) - (##car _%e1476814814%_))) - (_%tl1477014821%_ + (##car _%e1486714913%_))) + (_%tl1486914920%_ (let () (declare (not safe)) - (##cdr _%e1476814814%_)))) - (if (gx#stx-pair? _%tl1477014821%_) - (let ((_%e1477114824%_ - (gx#syntax-e _%tl1477014821%_))) - (let ((_%hd1477214828%_ + (##cdr _%e1486714913%_)))) + (if (gx#stx-pair? _%tl1486914920%_) + (let ((_%e1487014923%_ + (gx#syntax-e _%tl1486914920%_))) + (let ((_%hd1487114927%_ (let () (declare (not safe)) - (##car _%e1477114824%_))) - (_%tl1477314831%_ + (##car _%e1487014923%_))) + (_%tl1487214930%_ (let () (declare (not safe)) - (##cdr _%e1477114824%_)))) - (if (gx#stx-null? _%tl1477314831%_) - (_%loop1476014792%_ - _%lp-tl1476314811%_ - (cons _%hd1477214828%_ - _%e1476414799%_) - (cons _%hd1476914818%_ - _%hd1476514801%_)) - (_%g1475314779%_ - _%g1475414783%_)))) - (_%g1475314779%_ _%g1475414783%_)))) - (_%g1475314779%_ _%g1475414783%_)))) - (let ((_%e1476614834%_ (reverse _%e1476414799%_)) - (_%hd1476714837%_ (reverse _%hd1476514801%_))) - ((lambda (_%L14840%_ _%L14842%_) - (let* ((_%g1485814875%_ - (lambda (_%g1485914871%_) + (##cdr _%e1487014923%_)))) + (if (gx#stx-null? _%tl1487214930%_) + (_%loop1485914891%_ + _%lp-tl1486214910%_ + (cons _%hd1487114927%_ + _%e1486314898%_) + (cons _%hd1486814917%_ + _%hd1486414900%_)) + (_%g1485214878%_ + _%g1485314882%_)))) + (_%g1485214878%_ _%g1485314882%_)))) + (_%g1485214878%_ _%g1485314882%_)))) + (let ((_%e1486514933%_ (reverse _%e1486314898%_)) + (_%hd1486614936%_ (reverse _%hd1486414900%_))) + ((lambda (_%L14939%_ _%L14941%_) + (let* ((_%g1495714974%_ + (lambda (_%g1495814970%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1485914871%_))) - (_%g1485715052%_ - (lambda (_%g1485914879%_) - (if (gx#stx-pair/null? _%g1485914879%_) - (let ((_g20961_ + _%g1495814970%_))) + (_%g1495615151%_ + (lambda (_%g1495814978%_) + (if (gx#stx-pair/null? _%g1495814978%_) + (let ((_g21060_ (gx#syntax-split-splice - _%g1485914879%_ + _%g1495814978%_ '0))) (begin - (let ((_g20962_ + (let ((_g21061_ (let () (declare (not safe)) - (if (##values? _g20961_) - (##vector-length - _g20961_) + (if (##values? _g21060_) + (##values-length + _g21060_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20962_ 2))) + (##fx= _g21061_ 2))) (error "Context expects 2 values" - _g20962_))) - (let ((_%target1486114882%_ + _g21061_))) + (let ((_%target1496014981%_ (let () (declare (not safe)) - (##vector-ref - _g20961_ + (##values-ref + _g21060_ 0))) - (_%tl1486314885%_ + (_%tl1496214984%_ (let () (declare (not safe)) - (##vector-ref - _g20961_ + (##values-ref + _g21060_ 1)))) (if (gx#stx-null? - _%tl1486314885%_) - (letrec ((_%loop1486414888%_ - (lambda (_%hd1486214892%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e1486814895%_) - (if (gx#stx-pair? _%hd1486214892%_) - (let ((_%e1486514898%_ - (gx#syntax-e _%hd1486214892%_))) - (let ((_%lp-hd1486614902%_ + _%tl1496214984%_) + (letrec ((_%loop1496314987%_ + (lambda (_%hd1496114991%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%$e1496714994%_) + (if (gx#stx-pair? _%hd1496114991%_) + (let ((_%e1496414997%_ + (gx#syntax-e _%hd1496114991%_))) + (let ((_%lp-hd1496515001%_ (let () (declare (not safe)) - (##car _%e1486514898%_))) - (_%lp-tl1486714905%_ + (##car _%e1496414997%_))) + (_%lp-tl1496615004%_ (let () (declare (not safe)) - (##cdr _%e1486514898%_)))) - (_%loop1486414888%_ - _%lp-tl1486714905%_ - (cons _%lp-hd1486614902%_ _%$e1486814895%_)))) - (let ((_%$e1486914908%_ (reverse _%$e1486814895%_))) - ((lambda (_%L14912%_) - (let* ((_%g1492914946%_ - (lambda (_%g1493014942%_) + (##cdr _%e1496414997%_)))) + (_%loop1496314987%_ + _%lp-tl1496615004%_ + (cons _%lp-hd1496515001%_ _%$e1496714994%_)))) + (let ((_%$e1496815007%_ (reverse _%$e1496714994%_))) + ((lambda (_%L15011%_) + (let* ((_%g1502815045%_ + (lambda (_%g1502915041%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1493014942%_))) - (_%g1492815040%_ - (lambda (_%g1493014950%_) + _%g1502915041%_))) + (_%g1502715139%_ + (lambda (_%g1502915049%_) (if (gx#stx-pair/null? - _%g1493014950%_) - (let ((_g20963_ + _%g1502915049%_) + (let ((_g21062_ (gx#syntax-split-splice - _%g1493014950%_ + _%g1502915049%_ '0))) (begin - (let ((_g20964_ + (let ((_g21063_ (let () (declare (not safe)) (if (##values? - _g20963_) - (##vector-length - _g20963_) + _g21062_) + (##values-length + _g21062_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20964_ + (##fx= _g21063_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g20964_))) + (error "Context expects 2 values" _g21063_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1493214953%_ + (let ((_%target1503115052%_ (let () (declare (not safe)) - (##vector-ref - _g20963_ + (##values-ref + _g21062_ 0))) - (_%tl1493414956%_ + (_%tl1503315055%_ (let () (declare (not safe)) - (##vector-ref - _g20963_ + (##values-ref + _g21062_ 1)))) (if (gx#stx-null? - _%tl1493414956%_) - (letrec ((_%loop1493514959%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1493314963%_ _%hd-bind1493914966%_) - (if (gx#stx-pair? _%hd1493314963%_) - (let ((_%e1493614969%_ - (gx#syntax-e _%hd1493314963%_))) - (let ((_%lp-hd1493714973%_ + _%tl1503315055%_) + (letrec ((_%loop1503415058%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd1503215062%_ _%hd-bind1503815065%_) + (if (gx#stx-pair? _%hd1503215062%_) + (let ((_%e1503515068%_ + (gx#syntax-e _%hd1503215062%_))) + (let ((_%lp-hd1503615072%_ (let () (declare (not safe)) - (##car _%e1493614969%_))) - (_%lp-tl1493814976%_ + (##car _%e1503515068%_))) + (_%lp-tl1503715075%_ (let () (declare (not safe)) - (##cdr _%e1493614969%_)))) - (_%loop1493514959%_ - _%lp-tl1493814976%_ - (cons _%lp-hd1493714973%_ - _%hd-bind1493914966%_)))) - (let ((_%hd-bind1494014979%_ - (reverse _%hd-bind1493914966%_))) - ((lambda (_%L14983%_) + (##cdr _%e1503515068%_)))) + (_%loop1503415058%_ + _%lp-tl1503715075%_ + (cons _%lp-hd1503615072%_ + _%hd-bind1503815065%_)))) + (let ((_%hd-bind1503915078%_ + (reverse _%hd-bind1503815065%_))) + ((lambda (_%L15082%_) (cons (gx#datum->syntax '#f 'let-values) (cons (begin (gx#syntax-check-splice-targets - _%L14840%_ - _%L14912%_) - (foldr (lambda (_%g1500815012%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1500915015%_ - _%g1501015017%_) - (cons (cons (cons _%g1500915015%_ '()) - (cons _%g1500815012%_ '())) - _%g1501015017%_)) + _%L14939%_ + _%L15011%_) + (foldr (lambda (_%g1510715111%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1510815114%_ + _%g1510915116%_) + (cons (cons (cons _%g1510815114%_ '()) + (cons _%g1510715111%_ '())) + _%g1510915116%_)) '() - _%L14840%_ - _%L14912%_)) + _%L14939%_ + _%L15011%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'and) - (foldr (lambda (_%g1500115020%_ + (foldr (lambda (_%g1510015119%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1500215023%_) - (cons _%g1500115020%_ _%g1500215023%_)) + _%g1510115122%_) + (cons _%g1510015119%_ _%g1510115122%_)) (cons (cons (gx#datum->syntax '#f 'let-values) (cons (begin (gx#syntax-check-splice-targets - _%L14912%_ - _%L14983%_) - (foldr (lambda (_%g1500515026%_ - _%g1500615029%_ - _%g1500715031%_) - (cons (cons _%g1500615029%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g1500515026%_ '())) - _%g1500715031%_)) + _%L15011%_ + _%L15082%_) + (foldr (lambda (_%g1510415125%_ + _%g1510515128%_ + _%g1510615130%_) + (cons (cons _%g1510515128%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%g1510415125%_ '())) + _%g1510615130%_)) '() - _%L14912%_ - _%L14983%_)) + _%L15011%_ + _%L15082%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g1500315034%_ - _%g1500415037%_) - (cons _%g1500315034%_ - _%g1500415037%_)) + (foldr (lambda (_%g1510215133%_ + _%g1510315136%_) + (cons _%g1510215133%_ + _%g1510315136%_)) '() - _%L14720%_))) + _%L14819%_))) '()) - _%L14912%_)) + _%L15011%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd-bind1494014979%_)))))) - (_%loop1493514959%_ _%target1493214953%_ '())) - (_%g1492914946%_ _%g1493014950%_))))) + _%hd-bind1503915078%_)))))) + (_%loop1503415058%_ _%target1503115052%_ '())) + (_%g1502815045%_ _%g1502915049%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1492914946%_ - _%g1493014950%_))))) - (_%g1492815040%_ + (_%g1502815045%_ + _%g1502915049%_))))) + (_%g1502715139%_ (gx#stx-map - _%let-head14557%_ - (foldr (lambda (_%g1504315046%_ - _%g1504415049%_) - (cons _%g1504315046%_ - _%g1504415049%_)) + _%let-head14656%_ + (foldr (lambda (_%g1514215145%_ + _%g1514315148%_) + (cons _%g1514215145%_ + _%g1514315148%_)) '() - _%L14842%_))))) - _%$e1486914908%_)))))) + _%L14941%_))))) + _%$e1496815007%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1486414888%_ - _%target1486114882%_ + (_%loop1496314987%_ + _%target1496014981%_ '())) - (_%g1485814875%_ - _%g1485914879%_))))) - (_%g1485814875%_ _%g1485914879%_))))) - (_%g1485715052%_ + (_%g1495714974%_ + _%g1495814978%_))))) + (_%g1495714974%_ _%g1495814978%_))))) + (_%g1495615151%_ (gx#gentemps - (foldr (lambda (_%g1505515058%_ _%g1505615061%_) - (cons _%g1505515058%_ _%g1505615061%_)) + (foldr (lambda (_%g1515415157%_ _%g1515515160%_) + (cons _%g1515415157%_ _%g1515515160%_)) '() - _%L14842%_))))) - _%e1476614834%_ - _%hd1476714837%_)))))) + _%L14941%_))))) + _%e1486514933%_ + _%hd1486614936%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1476014792%_ - _%target1475714786%_ + (_%loop1485914891%_ + _%target1485614885%_ '() '())) - (_%g1475314779%_ - _%g1475414783%_))))) - (_%g1475314779%_ _%g1475414783%_))))) - (_%g1475215064%_ + (_%g1485214878%_ + _%g1485314882%_))))) + (_%g1485214878%_ _%g1485314882%_))))) + (_%g1485115163%_ (gx#stx-map - _%let-bind14555%_ - (foldr (lambda (_%g1506715070%_ _%g1506815073%_) - (cons _%g1506715070%_ _%g1506815073%_)) + _%let-bind14654%_ + (foldr (lambda (_%g1516615169%_ _%g1516715172%_) + (cons _%g1516615169%_ _%g1516715172%_)) '() - _%L14722%_))))))) - (let* ((_%__match2021720218%_ - (lambda (_%e1460414640%_ - _%hd1460514644%_ - _%tl1460614647%_ - _%e1460714650%_ - _%hd1460814654%_ - _%tl1460914657%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) - (letrec ((_%loop1461314666%_ - (lambda (_%hd1461114670%_ _%bind1461714673%_) - (if (gx#stx-pair? _%hd1461114670%_) - (let ((_%e1461414676%_ - (gx#syntax-e _%hd1461114670%_))) - (let ((_%lp-tl1461614683%_ + _%L14821%_))))))) + (let* ((_%__match2031620317%_ + (lambda (_%e1470314739%_ + _%hd1470414743%_ + _%tl1470514746%_ + _%e1470614749%_ + _%hd1470714753%_ + _%tl1470814756%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) + (letrec ((_%loop1471214765%_ + (lambda (_%hd1471014769%_ _%bind1471614772%_) + (if (gx#stx-pair? _%hd1471014769%_) + (let ((_%e1471314775%_ + (gx#syntax-e _%hd1471014769%_))) + (let ((_%lp-tl1471514782%_ (let () (declare (not safe)) - (##cdr _%e1461414676%_))) - (_%lp-hd1461514680%_ + (##cdr _%e1471314775%_))) + (_%lp-hd1471414779%_ (let () (declare (not safe)) - (##car _%e1461414676%_)))) - (_%loop1461314666%_ - _%lp-tl1461614683%_ - (cons _%lp-hd1461514680%_ - _%bind1461714673%_)))) - (let ((_%bind1461814686%_ - (reverse _%bind1461714673%_))) + (##car _%e1471314775%_)))) + (_%loop1471214765%_ + _%lp-tl1471514782%_ + (cons _%lp-hd1471414779%_ + _%bind1471614772%_)))) + (let ((_%bind1471714785%_ + (reverse _%bind1471614772%_))) (if (gx#stx-pair/null? - _%tl1460914657%_) - (let ((_%__splice2013320134%_ + _%tl1470814756%_) + (let ((_%__splice2023220233%_ (gx#syntax-split-splice - _%tl1460914657%_ + _%tl1470814756%_ '0))) - (let ((_%tl1462114693%_ + (let ((_%tl1472014792%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013320134%_ + _%__splice2023220233%_ '1))) - (_%target1461914690%_ + (_%target1471814789%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013320134%_ + _%__splice2023220233%_ '0)))) (if (gx#stx-null? - _%tl1462114693%_) - (letrec ((_%loop1462214696%_ - (lambda (_%hd1462014700%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body1462614703%_) - (if (gx#stx-pair? _%hd1462014700%_) - (let ((_%e1462314706%_ - (gx#syntax-e _%hd1462014700%_))) - (let ((_%lp-tl1462514713%_ + _%tl1472014792%_) + (letrec ((_%loop1472114795%_ + (lambda (_%hd1471914799%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body1472514802%_) + (if (gx#stx-pair? _%hd1471914799%_) + (let ((_%e1472214805%_ + (gx#syntax-e _%hd1471914799%_))) + (let ((_%lp-tl1472414812%_ (let () (declare (not safe)) - (##cdr _%e1462314706%_))) - (_%lp-hd1462414710%_ + (##cdr _%e1472214805%_))) + (_%lp-hd1472314809%_ (let () (declare (not safe)) - (##car _%e1462314706%_)))) - (_%loop1462214696%_ - _%lp-tl1462514713%_ - (cons _%lp-hd1462414710%_ - _%body1462614703%_)))) - (let ((_%body1462714716%_ - (reverse _%body1462614703%_))) - (let ((_%L14720%_ _%body1462714716%_) - (_%L14722%_ _%bind1461814686%_)) + (##car _%e1472214805%_)))) + (_%loop1472114795%_ + _%lp-tl1472414812%_ + (cons _%lp-hd1472314809%_ + _%body1472514802%_)))) + (let ((_%body1472614815%_ + (reverse _%body1472514802%_))) + (let ((_%L14819%_ _%body1472614815%_) + (_%L14821%_ _%bind1471714785%_)) (if (gx#stx-andmap - _%let-bind?14553%_ - (foldr (lambda (_%g1474414747%_ - _%g1474514750%_) - (cons _%g1474414747%_ - _%g1474514750%_)) + _%let-bind?14652%_ + (foldr (lambda (_%g1484314846%_ + _%g1484414849%_) + (cons _%g1484314846%_ + _%g1484414849%_)) '() - _%L14722%_)) - (_%__kont2012920130%_ - _%L14720%_ - _%L14722%_) + _%L14821%_)) + (_%__kont2022820229%_ + _%L14819%_ + _%L14821%_) (let () (declare (not safe)) - (_%g1456114633%_))))))))) - (_%loop1462214696%_ _%target1461914690%_ '())) - (let () (declare (not safe)) (_%g1456114633%_))))) + (_%g1466014732%_))))))))) + (_%loop1472114795%_ _%target1471814789%_ '())) + (let () (declare (not safe)) (_%g1466014732%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g1456114633%_)))))))) - (_%loop1461314666%_ _%target1461014660%_ '())))) - (_%__match2019720198%_ - (lambda (_%e1458115083%_ - _%hd1458215087%_ - _%tl1458315090%_ - _%e1458415093%_ - _%hd1458515097%_ - _%tl1458615100%_ - _%e1458715103%_ - _%hd1458815107%_ - _%tl1458915110%_ - _%e1459015113%_ - _%hd1459115117%_ - _%tl1459215120%_ - _%__splice2012720128%_ - _%target1459315123%_ - _%tl1459515126%_) - (letrec ((_%loop1459615129%_ - (lambda (_%hd1459415133%_ _%body1460015136%_) - (if (gx#stx-pair? _%hd1459415133%_) - (let ((_%e1459715139%_ - (gx#syntax-e _%hd1459415133%_))) - (let ((_%lp-tl1459915146%_ + (_%g1466014732%_)))))))) + (_%loop1471214765%_ _%target1470914759%_ '())))) + (_%__match2029620297%_ + (lambda (_%e1468015182%_ + _%hd1468115186%_ + _%tl1468215189%_ + _%e1468315192%_ + _%hd1468415196%_ + _%tl1468515199%_ + _%e1468615202%_ + _%hd1468715206%_ + _%tl1468815209%_ + _%e1468915212%_ + _%hd1469015216%_ + _%tl1469115219%_ + _%__splice2022620227%_ + _%target1469215222%_ + _%tl1469415225%_) + (letrec ((_%loop1469515228%_ + (lambda (_%hd1469315232%_ _%body1469915235%_) + (if (gx#stx-pair? _%hd1469315232%_) + (let ((_%e1469615238%_ + (gx#syntax-e _%hd1469315232%_))) + (let ((_%lp-tl1469815245%_ (let () (declare (not safe)) - (##cdr _%e1459715139%_))) - (_%lp-hd1459815143%_ + (##cdr _%e1469615238%_))) + (_%lp-hd1469715242%_ (let () (declare (not safe)) - (##car _%e1459715139%_)))) - (_%loop1459615129%_ - _%lp-tl1459915146%_ - (cons _%lp-hd1459815143%_ - _%body1460015136%_)))) - (let ((_%body1460115149%_ - (reverse _%body1460015136%_))) - (_%__kont2012520126%_ - _%body1460115149%_ - _%hd1459115117%_)))))) - (_%loop1459615129%_ _%target1459315123%_ '())))) - (_%__match2016120162%_ - (lambda (_%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%e1457315211%_ - _%hd1457415215%_ - _%tl1457515218%_ - _%e1457615221%_ - _%hd1457715225%_ - _%tl1457815228%_) - (let ((_%L15231%_ _%tl1457215208%_) - (_%L15233%_ _%hd1457715225%_) - (_%L15234%_ _%hd1457415215%_) - (_%L15235%_ _%hd1456815195%_)) - (if (_%let-head?14556%_ _%L15234%_) - (_%__kont2012320124%_ - _%L15231%_ - _%L15233%_ - _%L15234%_ - _%L15235%_) - (if (gx#stx-pair? _%hd1457415215%_) - (let ((_%e1459015113%_ - (gx#syntax-e _%hd1457415215%_))) - (let ((_%tl1459215120%_ + (##car _%e1469615238%_)))) + (_%loop1469515228%_ + _%lp-tl1469815245%_ + (cons _%lp-hd1469715242%_ + _%body1469915235%_)))) + (let ((_%body1470015248%_ + (reverse _%body1469915235%_))) + (_%__kont2022420225%_ + _%body1470015248%_ + _%hd1469015216%_)))))) + (_%loop1469515228%_ _%target1469215222%_ '())))) + (_%__match2026020261%_ + (lambda (_%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%e1467215310%_ + _%hd1467315314%_ + _%tl1467415317%_ + _%e1467515320%_ + _%hd1467615324%_ + _%tl1467715327%_) + (let ((_%L15330%_ _%tl1467115307%_) + (_%L15332%_ _%hd1467615324%_) + (_%L15333%_ _%hd1467315314%_) + (_%L15334%_ _%hd1466715294%_)) + (if (_%let-head?14655%_ _%L15333%_) + (_%__kont2022220223%_ + _%L15330%_ + _%L15332%_ + _%L15333%_ + _%L15334%_) + (if (gx#stx-pair? _%hd1467315314%_) + (let ((_%e1468915212%_ + (gx#syntax-e _%hd1467315314%_))) + (let ((_%tl1469115219%_ (let () (declare (not safe)) - (##cdr _%e1459015113%_))) - (_%hd1459115117%_ + (##cdr _%e1468915212%_))) + (_%hd1469015216%_ (let () (declare (not safe)) - (##car _%e1459015113%_)))) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ + (##car _%e1468915212%_)))) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ (gx#syntax-split-splice - _%hd1457115205%_ + _%hd1467015304%_ '0))) - (let ((_%tl1461214663%_ + (let ((_%tl1471114762%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2023020231%_ '1))) - (_%target1461014660%_ + (_%target1470914759%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2023020231%_ '0)))) (if (gx#stx-null? - _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) + _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) (let () (declare (not safe)) - (_%g1456114633%_))))) + (_%g1466014732%_))))) (let () (declare (not safe)) - (_%g1456114633%_))))) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ + (_%g1466014732%_))))) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ (gx#syntax-split-splice - _%hd1457115205%_ + _%hd1467015304%_ '0))) - (let ((_%tl1461214663%_ + (let ((_%tl1471114762%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2023020231%_ '1))) - (_%target1461014660%_ + (_%target1470914759%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2023020231%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) (let () (declare (not safe)) - (_%g1456114633%_))))) + (_%g1466014732%_))))) (let () (declare (not safe)) - (_%g1456114633%_))))))))) - (if (gx#stx-pair? _%__stx2012020121%_) - (let ((_%e1456715191%_ (gx#syntax-e _%__stx2012020121%_))) - (let ((_%tl1456915198%_ + (_%g1466014732%_))))))))) + (if (gx#stx-pair? _%__stx2021920220%_) + (let ((_%e1466615290%_ (gx#syntax-e _%__stx2021920220%_))) + (let ((_%tl1466815297%_ (let () (declare (not safe)) - (##cdr _%e1456715191%_))) - (_%hd1456815195%_ + (##cdr _%e1466615290%_))) + (_%hd1466715294%_ (let () (declare (not safe)) - (##car _%e1456715191%_)))) - (if (gx#stx-pair? _%tl1456915198%_) - (let ((_%e1457015201%_ - (gx#syntax-e _%tl1456915198%_))) - (let ((_%tl1457215208%_ + (##car _%e1466615290%_)))) + (if (gx#stx-pair? _%tl1466815297%_) + (let ((_%e1466915300%_ + (gx#syntax-e _%tl1466815297%_))) + (let ((_%tl1467115307%_ (let () (declare (not safe)) - (##cdr _%e1457015201%_))) - (_%hd1457115205%_ + (##cdr _%e1466915300%_))) + (_%hd1467015304%_ (let () (declare (not safe)) - (##car _%e1457015201%_)))) - (if (gx#stx-pair? _%hd1457115205%_) - (let ((_%e1457315211%_ - (gx#syntax-e _%hd1457115205%_))) - (let ((_%tl1457515218%_ + (##car _%e1466915300%_)))) + (if (gx#stx-pair? _%hd1467015304%_) + (let ((_%e1467215310%_ + (gx#syntax-e _%hd1467015304%_))) + (let ((_%tl1467415317%_ (let () (declare (not safe)) - (##cdr _%e1457315211%_))) - (_%hd1457415215%_ + (##cdr _%e1467215310%_))) + (_%hd1467315314%_ (let () (declare (not safe)) - (##car _%e1457315211%_)))) - (if (gx#stx-pair? _%tl1457515218%_) - (let ((_%e1457615221%_ + (##car _%e1467215310%_)))) + (if (gx#stx-pair? _%tl1467415317%_) + (let ((_%e1467515320%_ (gx#syntax-e - _%tl1457515218%_))) - (let ((_%tl1457815228%_ + _%tl1467415317%_))) + (let ((_%tl1467715327%_ (let () (declare (not safe)) - (##cdr _%e1457615221%_))) - (_%hd1457715225%_ + (##cdr _%e1467515320%_))) + (_%hd1467615324%_ (let () (declare (not safe)) - (##car _%e1457615221%_)))) + (##car _%e1467515320%_)))) (if (gx#stx-null? - _%tl1457815228%_) - (_%__match2016120162%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%e1457315211%_ - _%hd1457415215%_ - _%tl1457515218%_ - _%e1457615221%_ - _%hd1457715225%_ - _%tl1457815228%_) + _%tl1467715327%_) + (_%__match2026020261%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%e1467215310%_ + _%hd1467315314%_ + _%tl1467415317%_ + _%e1467515320%_ + _%hd1467615324%_ + _%tl1467715327%_) (if (gx#stx-pair? - _%hd1457415215%_) - (let ((_%e1459015113%_ + _%hd1467315314%_) + (let ((_%e1468915212%_ (gx#syntax-e - _%hd1457415215%_))) - (let ((_%tl1459215120%_ + _%hd1467315314%_))) + (let ((_%tl1469115219%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e1459015113%_))) - (_%hd1459115117%_ + (let () (declare (not safe)) (##cdr _%e1468915212%_))) + (_%hd1469015216%_ (let () (declare (not safe)) - (##car _%e1459015113%_)))) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ - (gx#syntax-split-splice _%hd1457115205%_ '0))) - (let ((_%tl1461214663%_ + (##car _%e1468915212%_)))) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ + (gx#syntax-split-splice _%hd1467015304%_ '0))) + (let ((_%tl1471114762%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '1))) - (_%target1461014660%_ + (##vector-ref _%__splice2023020231%_ '1))) + (_%target1470914759%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) + (##vector-ref _%__splice2023020231%_ '0)))) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) (let () (declare (not safe)) - (_%g1456114633%_))))) - (let () (declare (not safe)) (_%g1456114633%_))))) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ - (gx#syntax-split-splice _%hd1457115205%_ '0))) - (let ((_%tl1461214663%_ + (_%g1466014732%_))))) + (let () (declare (not safe)) (_%g1466014732%_))))) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ + (gx#syntax-split-splice _%hd1467015304%_ '0))) + (let ((_%tl1471114762%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '1))) - (_%target1461014660%_ + (##vector-ref _%__splice2023020231%_ '1))) + (_%target1470914759%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) - (let () (declare (not safe)) (_%g1456114633%_))))) - (let () (declare (not safe)) (_%g1456114633%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd1457415215%_) - (let ((_%e1459015113%_ + (##vector-ref _%__splice2023020231%_ '0)))) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) + (let () (declare (not safe)) (_%g1466014732%_))))) + (let () (declare (not safe)) (_%g1466014732%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%hd1467315314%_) + (let ((_%e1468915212%_ (gx#syntax-e - _%hd1457415215%_))) - (let ((_%tl1459215120%_ + _%hd1467315314%_))) + (let ((_%tl1469115219%_ (let () (declare (not safe)) - (##cdr _%e1459015113%_))) - (_%hd1459115117%_ + (##cdr _%e1468915212%_))) + (_%hd1469015216%_ (let () (declare (not safe)) - (##car _%e1459015113%_)))) + (##car _%e1468915212%_)))) (if (gx#stx-null? - _%tl1459215120%_) + _%tl1469115219%_) (if (gx#stx-null? - _%tl1457515218%_) + _%tl1467415317%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl1457215208%_) - (let ((_%__splice2012720128%_ - (gx#syntax-split-splice _%tl1457215208%_ '0))) - (let ((_%tl1459515126%_ + _%tl1467115307%_) + (let ((_%__splice2022620227%_ + (gx#syntax-split-splice _%tl1467115307%_ '0))) + (let ((_%tl1469415225%_ (let () (declare (not safe)) - (##vector-ref _%__splice2012720128%_ '1))) - (_%target1459315123%_ + (##vector-ref _%__splice2022620227%_ '1))) + (_%target1469215222%_ (let () (declare (not safe)) - (##vector-ref _%__splice2012720128%_ '0)))) - (if (gx#stx-null? _%tl1459515126%_) - (_%__match2019720198%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%e1457315211%_ - _%hd1457415215%_ - _%tl1457515218%_ - _%e1459015113%_ - _%hd1459115117%_ - _%tl1459215120%_ - _%__splice2012720128%_ - _%target1459315123%_ - _%tl1459515126%_) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ + (##vector-ref _%__splice2022620227%_ '0)))) + (if (gx#stx-null? _%tl1469415225%_) + (_%__match2029620297%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%e1467215310%_ + _%hd1467315314%_ + _%tl1467415317%_ + _%e1468915212%_ + _%hd1469015216%_ + _%tl1469115219%_ + _%__splice2022620227%_ + _%target1469215222%_ + _%tl1469415225%_) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ (gx#syntax-split-splice - _%hd1457115205%_ + _%hd1467015304%_ '0))) - (let ((_%tl1461214663%_ + (let ((_%tl1471114762%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2023020231%_ '1))) - (_%target1461014660%_ + (_%target1470914759%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2023020231%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) (let () (declare (not safe)) - (_%g1456114633%_))))) + (_%g1466014732%_))))) (let () (declare (not safe)) - (_%g1456114633%_)))))) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ + (_%g1466014732%_)))))) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ (gx#syntax-split-splice - _%hd1457115205%_ + _%hd1467015304%_ '0))) - (let ((_%tl1461214663%_ + (let ((_%tl1471114762%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2023020231%_ '1))) - (_%target1461014660%_ + (_%target1470914759%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2023020231%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) (let () (declare (not safe)) - (_%g1456114633%_))))) - (let () (declare (not safe)) (_%g1456114633%_)))) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ - (gx#syntax-split-splice _%hd1457115205%_ '0))) - (let ((_%tl1461214663%_ + (_%g1466014732%_))))) + (let () (declare (not safe)) (_%g1466014732%_)))) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ + (gx#syntax-split-splice _%hd1467015304%_ '0))) + (let ((_%tl1471114762%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '1))) - (_%target1461014660%_ + (##vector-ref _%__splice2023020231%_ '1))) + (_%target1470914759%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) + (##vector-ref _%__splice2023020231%_ '0)))) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) (let () (declare (not safe)) - (_%g1456114633%_))))) - (let () (declare (not safe)) (_%g1456114633%_)))) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ - (gx#syntax-split-splice _%hd1457115205%_ '0))) - (let ((_%tl1461214663%_ + (_%g1466014732%_))))) + (let () (declare (not safe)) (_%g1466014732%_)))) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ + (gx#syntax-split-splice _%hd1467015304%_ '0))) + (let ((_%tl1471114762%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '1))) - (_%target1461014660%_ + (##vector-ref _%__splice2023020231%_ '1))) + (_%target1470914759%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) - (let () (declare (not safe)) (_%g1456114633%_))))) - (let () (declare (not safe)) (_%g1456114633%_)))))) + (##vector-ref _%__splice2023020231%_ '0)))) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) + (let () (declare (not safe)) (_%g1466014732%_))))) + (let () (declare (not safe)) (_%g1466014732%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd1457115205%_) - (let ((_%__splice2013120132%_ + _%hd1467015304%_) + (let ((_%__splice2023020231%_ (gx#syntax-split-splice - _%hd1457115205%_ + _%hd1467015304%_ '0))) - (let ((_%tl1461214663%_ + (let ((_%tl1471114762%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice2013120132%_ '1))) - (_%target1461014660%_ + (##vector-ref _%__splice2023020231%_ '1))) + (_%target1470914759%_ (let () (declare (not safe)) - (##vector-ref _%__splice2013120132%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) - (let () (declare (not safe)) (_%g1456114633%_))))) + (##vector-ref _%__splice2023020231%_ '0)))) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) + (let () (declare (not safe)) (_%g1466014732%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g1456114633%_))))))) - (if (gx#stx-pair/null? _%hd1457115205%_) - (let ((_%__splice2013120132%_ + (_%g1466014732%_))))))) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ (gx#syntax-split-splice - _%hd1457115205%_ + _%hd1467015304%_ '0))) - (let ((_%tl1461214663%_ + (let ((_%tl1471114762%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2023020231%_ '1))) - (_%target1461014660%_ + (_%target1470914759%_ (let () (declare (not safe)) (##vector-ref - _%__splice2013120132%_ + _%__splice2023020231%_ '0)))) - (if (gx#stx-null? _%tl1461214663%_) - (_%__match2021720218%_ - _%e1456715191%_ - _%hd1456815195%_ - _%tl1456915198%_ - _%e1457015201%_ - _%hd1457115205%_ - _%tl1457215208%_ - _%__splice2013120132%_ - _%target1461014660%_ - _%tl1461214663%_) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) (let () (declare (not safe)) - (_%g1456114633%_))))) + (_%g1466014732%_))))) (let () (declare (not safe)) - (_%g1456114633%_)))))) - (let () (declare (not safe)) (_%g1456114633%_))))) - (let () (declare (not safe)) (_%g1456114633%_))))))))) + (_%g1466014732%_)))))) + (let () (declare (not safe)) (_%g1466014732%_))))) + (let () (declare (not safe)) (_%g1466014732%_))))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#alet*| - (lambda (_%$stx15593%_) - (let* ((_%__stx2022020221%_ _%$stx15593%_) - (_%g1559915650%_ + (lambda (_%$stx15692%_) + (let* ((_%__stx2031920320%_ _%$stx15692%_) + (_%g1569815749%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2022020221%_)))) - (let ((_%__kont2022320224%_ (lambda () '#t)) - (_%__kont2022520226%_ - (lambda (_%L15808%_) + _%__stx2031920320%_)))) + (let ((_%__kont2032220323%_ (lambda () '#t)) + (_%__kont2032420325%_ + (lambda (_%L15907%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g1582415827%_ _%g1582515830%_) - (cons _%g1582415827%_ _%g1582515830%_)) + (foldr (lambda (_%g1592315926%_ _%g1592415929%_) + (cons _%g1592315926%_ _%g1592415929%_)) '() - _%L15808%_))))) - (_%__kont2022920230%_ - (lambda (_%L15717%_ _%L15719%_ _%L15720%_ _%L15721%_) + _%L15907%_))))) + (_%__kont2032820329%_ + (lambda (_%L15816%_ _%L15818%_ _%L15819%_ _%L15820%_) (cons (gx#datum->syntax '#f 'alet) - (cons (cons _%L15720%_ '()) - (cons (cons _%L15721%_ - (cons _%L15719%_ - (foldr (lambda (_%g1574215745%_ + (cons (cons _%L15819%_ '()) + (cons (cons _%L15820%_ + (cons _%L15818%_ + (foldr (lambda (_%g1584115844%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1574315748%_) - (cons _%g1574215745%_ _%g1574315748%_)) + _%g1584215847%_) + (cons _%g1584115844%_ _%g1584215847%_)) '() - _%L15717%_))) + _%L15816%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match2029720298%_ - (lambda (_%e1562715657%_ - _%hd1562815661%_ - _%tl1562915664%_ - _%e1563015667%_ - _%hd1563115671%_ - _%tl1563215674%_ - _%e1563315677%_ - _%hd1563415681%_ - _%tl1563515684%_ - _%__splice2023120232%_ - _%target1563615687%_ - _%tl1563815690%_) - (letrec ((_%loop1563915693%_ - (lambda (_%hd1563715697%_ _%body1564315700%_) - (if (gx#stx-pair? _%hd1563715697%_) - (let ((_%e1564015703%_ - (gx#syntax-e _%hd1563715697%_))) - (let ((_%lp-tl1564215710%_ + (let* ((_%__match2039620397%_ + (lambda (_%e1572615756%_ + _%hd1572715760%_ + _%tl1572815763%_ + _%e1572915766%_ + _%hd1573015770%_ + _%tl1573115773%_ + _%e1573215776%_ + _%hd1573315780%_ + _%tl1573415783%_ + _%__splice2033020331%_ + _%target1573515786%_ + _%tl1573715789%_) + (letrec ((_%loop1573815792%_ + (lambda (_%hd1573615796%_ _%body1574215799%_) + (if (gx#stx-pair? _%hd1573615796%_) + (let ((_%e1573915802%_ + (gx#syntax-e _%hd1573615796%_))) + (let ((_%lp-tl1574115809%_ (let () (declare (not safe)) - (##cdr _%e1564015703%_))) - (_%lp-hd1564115707%_ + (##cdr _%e1573915802%_))) + (_%lp-hd1574015806%_ (let () (declare (not safe)) - (##car _%e1564015703%_)))) - (_%loop1563915693%_ - _%lp-tl1564215710%_ - (cons _%lp-hd1564115707%_ - _%body1564315700%_)))) - (let ((_%body1564415713%_ - (reverse _%body1564315700%_))) - (_%__kont2022920230%_ - _%body1564415713%_ - _%tl1563515684%_ - _%hd1563415681%_ - _%hd1562815661%_)))))) - (_%loop1563915693%_ _%target1563615687%_ '())))) - (_%__match2027120272%_ - (lambda (_%e1560815758%_ - _%hd1560915762%_ - _%tl1561015765%_ - _%e1561115768%_ - _%hd1561215772%_ - _%tl1561315775%_ - _%__splice2022720228%_ - _%target1561415778%_ - _%tl1561615781%_) - (letrec ((_%loop1561715784%_ - (lambda (_%hd1561515788%_ _%body1562115791%_) - (if (gx#stx-pair? _%hd1561515788%_) - (let ((_%e1561815794%_ - (gx#syntax-e _%hd1561515788%_))) - (let ((_%lp-tl1562015801%_ + (##car _%e1573915802%_)))) + (_%loop1573815792%_ + _%lp-tl1574115809%_ + (cons _%lp-hd1574015806%_ + _%body1574215799%_)))) + (let ((_%body1574315812%_ + (reverse _%body1574215799%_))) + (_%__kont2032820329%_ + _%body1574315812%_ + _%tl1573415783%_ + _%hd1573315780%_ + _%hd1572715760%_)))))) + (_%loop1573815792%_ _%target1573515786%_ '())))) + (_%__match2037020371%_ + (lambda (_%e1570715857%_ + _%hd1570815861%_ + _%tl1570915864%_ + _%e1571015867%_ + _%hd1571115871%_ + _%tl1571215874%_ + _%__splice2032620327%_ + _%target1571315877%_ + _%tl1571515880%_) + (letrec ((_%loop1571615883%_ + (lambda (_%hd1571415887%_ _%body1572015890%_) + (if (gx#stx-pair? _%hd1571415887%_) + (let ((_%e1571715893%_ + (gx#syntax-e _%hd1571415887%_))) + (let ((_%lp-tl1571915900%_ (let () (declare (not safe)) - (##cdr _%e1561815794%_))) - (_%lp-hd1561915798%_ + (##cdr _%e1571715893%_))) + (_%lp-hd1571815897%_ (let () (declare (not safe)) - (##car _%e1561815794%_)))) - (_%loop1561715784%_ - _%lp-tl1562015801%_ - (cons _%lp-hd1561915798%_ - _%body1562115791%_)))) - (let ((_%body1562215804%_ - (reverse _%body1562115791%_))) - (_%__kont2022520226%_ - _%body1562215804%_)))))) - (_%loop1561715784%_ _%target1561415778%_ '()))))) - (if (gx#stx-pair? _%__stx2022020221%_) - (let ((_%e1560115840%_ (gx#syntax-e _%__stx2022020221%_))) - (let ((_%tl1560315847%_ + (##car _%e1571715893%_)))) + (_%loop1571615883%_ + _%lp-tl1571915900%_ + (cons _%lp-hd1571815897%_ + _%body1572015890%_)))) + (let ((_%body1572115903%_ + (reverse _%body1572015890%_))) + (_%__kont2032420325%_ + _%body1572115903%_)))))) + (_%loop1571615883%_ _%target1571315877%_ '()))))) + (if (gx#stx-pair? _%__stx2031920320%_) + (let ((_%e1570015939%_ (gx#syntax-e _%__stx2031920320%_))) + (let ((_%tl1570215946%_ (let () (declare (not safe)) - (##cdr _%e1560115840%_))) - (_%hd1560215844%_ + (##cdr _%e1570015939%_))) + (_%hd1570115943%_ (let () (declare (not safe)) - (##car _%e1560115840%_)))) - (if (gx#stx-pair? _%tl1560315847%_) - (let ((_%e1560415850%_ - (gx#syntax-e _%tl1560315847%_))) - (let ((_%tl1560615857%_ + (##car _%e1570015939%_)))) + (if (gx#stx-pair? _%tl1570215946%_) + (let ((_%e1570315949%_ + (gx#syntax-e _%tl1570215946%_))) + (let ((_%tl1570515956%_ (let () (declare (not safe)) - (##cdr _%e1560415850%_))) - (_%hd1560515854%_ + (##cdr _%e1570315949%_))) + (_%hd1570415953%_ (let () (declare (not safe)) - (##car _%e1560415850%_)))) - (if (gx#stx-null? _%hd1560515854%_) - (if (gx#stx-null? _%tl1560615857%_) - (_%__kont2022320224%_) - (if (gx#stx-pair/null? _%tl1560615857%_) - (let ((_%__splice2022720228%_ + (##car _%e1570315949%_)))) + (if (gx#stx-null? _%hd1570415953%_) + (if (gx#stx-null? _%tl1570515956%_) + (_%__kont2032220323%_) + (if (gx#stx-pair/null? _%tl1570515956%_) + (let ((_%__splice2032620327%_ (gx#syntax-split-splice - _%tl1560615857%_ + _%tl1570515956%_ '0))) - (let ((_%tl1561615781%_ + (let ((_%tl1571515880%_ (let () (declare (not safe)) (##vector-ref - _%__splice2022720228%_ + _%__splice2032620327%_ '1))) - (_%target1561415778%_ + (_%target1571315877%_ (let () (declare (not safe)) (##vector-ref - _%__splice2022720228%_ + _%__splice2032620327%_ '0)))) (if (gx#stx-null? - _%tl1561615781%_) - (_%__match2027120272%_ - _%e1560115840%_ - _%hd1560215844%_ - _%tl1560315847%_ - _%e1560415850%_ - _%hd1560515854%_ - _%tl1560615857%_ - _%__splice2022720228%_ - _%target1561415778%_ - _%tl1561615781%_) + _%tl1571515880%_) + (_%__match2037020371%_ + _%e1570015939%_ + _%hd1570115943%_ + _%tl1570215946%_ + _%e1570315949%_ + _%hd1570415953%_ + _%tl1570515956%_ + _%__splice2032620327%_ + _%target1571315877%_ + _%tl1571515880%_) (let () (declare (not safe)) - (_%g1559915650%_))))) + (_%g1569815749%_))))) (let () (declare (not safe)) - (_%g1559915650%_)))) - (if (gx#stx-pair? _%hd1560515854%_) - (let ((_%e1563315677%_ - (gx#syntax-e _%hd1560515854%_))) - (let ((_%tl1563515684%_ + (_%g1569815749%_)))) + (if (gx#stx-pair? _%hd1570415953%_) + (let ((_%e1573215776%_ + (gx#syntax-e _%hd1570415953%_))) + (let ((_%tl1573415783%_ (let () (declare (not safe)) - (##cdr _%e1563315677%_))) - (_%hd1563415681%_ + (##cdr _%e1573215776%_))) + (_%hd1573315780%_ (let () (declare (not safe)) - (##car _%e1563315677%_)))) + (##car _%e1573215776%_)))) (if (gx#stx-pair/null? - _%tl1560615857%_) - (let ((_%__splice2023120232%_ + _%tl1570515956%_) + (let ((_%__splice2033020331%_ (gx#syntax-split-splice - _%tl1560615857%_ + _%tl1570515956%_ '0))) - (let ((_%tl1563815690%_ + (let ((_%tl1573715789%_ (let () (declare (not safe)) (##vector-ref - _%__splice2023120232%_ + _%__splice2033020331%_ '1))) - (_%target1563615687%_ + (_%target1573515786%_ (let () (declare (not safe)) (##vector-ref - _%__splice2023120232%_ + _%__splice2033020331%_ '0)))) (if (gx#stx-null? - _%tl1563815690%_) - (_%__match2029720298%_ - _%e1560115840%_ - _%hd1560215844%_ - _%tl1560315847%_ - _%e1560415850%_ - _%hd1560515854%_ - _%tl1560615857%_ - _%e1563315677%_ - _%hd1563415681%_ - _%tl1563515684%_ - _%__splice2023120232%_ - _%target1563615687%_ - _%tl1563815690%_) + _%tl1573715789%_) + (_%__match2039620397%_ + _%e1570015939%_ + _%hd1570115943%_ + _%tl1570215946%_ + _%e1570315949%_ + _%hd1570415953%_ + _%tl1570515956%_ + _%e1573215776%_ + _%hd1573315780%_ + _%tl1573415783%_ + _%__splice2033020331%_ + _%target1573515786%_ + _%tl1573715789%_) (let () (declare (not safe)) - (_%g1559915650%_))))) + (_%g1569815749%_))))) (let () (declare (not safe)) - (_%g1559915650%_))))) + (_%g1569815749%_))))) (let () (declare (not safe)) - (_%g1559915650%_)))))) - (let () (declare (not safe)) (_%g1559915650%_))))) - (let () (declare (not safe)) (_%g1559915650%_)))))))) + (_%g1569815749%_)))))) + (let () (declare (not safe)) (_%g1569815749%_))))) + (let () (declare (not safe)) (_%g1569815749%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#@list| - (lambda (_%$stx15870%_) - (let* ((_%__stx2030020301%_ _%$stx15870%_) - (_%g1588115959%_ + (lambda (_%$stx15969%_) + (let* ((_%__stx2039920400%_ _%$stx15969%_) + (_%g1598016058%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2030020301%_)))) - (let ((_%__kont2030320304%_ + _%__stx2039920400%_)))) + (let ((_%__kont2040220403%_ (lambda () (cons (gx#datum->syntax '#f 'quote) (cons '() '())))) - (_%__kont2030520306%_ - (lambda (_%L16290%_) - (cons (gx#datum->syntax '#f 'quote) (cons _%L16290%_ '())))) - (_%__kont2030720308%_ - (lambda (_%L16238%_) + (_%__kont2040420405%_ + (lambda (_%L16389%_) + (cons (gx#datum->syntax '#f 'quote) (cons _%L16389%_ '())))) + (_%__kont2040620407%_ + (lambda (_%L16337%_) (cons (gx#datum->syntax '#f 'quasiquote) - (cons _%L16238%_ '())))) - (_%__kont2030920310%_ (lambda (_%L16185%_) _%L16185%_)) - (_%__kont2031120312%_ - (lambda (_%L16127%_ _%L16129%_) _%L16129%_)) - (_%__kont2031320314%_ - (lambda (_%L16069%_ _%L16071%_ _%L16072%_ _%L16073%_) + (cons _%L16337%_ '())))) + (_%__kont2040820409%_ (lambda (_%L16284%_) _%L16284%_)) + (_%__kont2041020411%_ + (lambda (_%L16226%_ _%L16228%_) _%L16228%_)) + (_%__kont2041220413%_ + (lambda (_%L16168%_ _%L16170%_ _%L16171%_ _%L16172%_) (cons (gx#datum->syntax '#f 'foldr) (cons (gx#datum->syntax '#f 'cons) - (cons (cons _%L16073%_ _%L16069%_) - (cons _%L16072%_ '())))))) - (_%__kont2031520316%_ - (lambda (_%L16015%_ _%L16017%_ _%L16018%_) + (cons (cons _%L16172%_ _%L16168%_) + (cons _%L16171%_ '())))))) + (_%__kont2041420415%_ + (lambda (_%L16114%_ _%L16116%_ _%L16117%_) (cons (gx#datum->syntax '#f 'cons) - (cons _%L16017%_ - (cons (cons _%L16018%_ _%L16015%_) '()))))) - (_%__kont2031720318%_ (lambda (_%L15976%_) _%L15976%_))) - (let* ((_%__match2043920440%_ - (lambda (_%e1593216039%_ - _%hd1593316043%_ - _%tl1593416046%_ - _%e1593516049%_ - _%hd1593616053%_ - _%tl1593716056%_ - _%e1593816059%_ - _%hd1593916063%_ - _%tl1594016066%_) - (let ((_%L16069%_ _%tl1594016066%_) - (_%L16071%_ _%hd1593916063%_) - (_%L16072%_ _%hd1593616053%_) - (_%L16073%_ _%hd1593316043%_)) - (if (gx#ellipsis? _%L16071%_) - (_%__kont2031320314%_ - _%L16069%_ - _%L16071%_ - _%L16072%_ - _%L16073%_) - (_%__kont2031520316%_ - _%tl1593716056%_ - _%hd1593616053%_ - _%hd1593316043%_))))) - (_%__match2042120422%_ - (lambda (_%e1591916097%_ - _%hd1592016101%_ - _%tl1592116104%_ - _%e1592216107%_ - _%hd1592316111%_ - _%tl1592416114%_ - _%e1592516117%_ - _%hd1592616121%_ - _%tl1592716124%_) - (let ((_%L16127%_ _%hd1592616121%_) - (_%L16129%_ _%hd1592316111%_)) - (if (gx#ellipsis? _%L16127%_) - (_%__kont2031120312%_ _%L16127%_ _%L16129%_) - (_%__match2043920440%_ - _%e1591916097%_ - _%hd1592016101%_ - _%tl1592116104%_ - _%e1592216107%_ - _%hd1592316111%_ - _%tl1592416114%_ - _%e1592516117%_ - _%hd1592616121%_ - _%tl1592716124%_)))))) - (if (gx#stx-pair? _%__stx2030020301%_) - (let ((_%e1588316312%_ (gx#syntax-e _%__stx2030020301%_))) - (let ((_%tl1588516319%_ + (cons _%L16116%_ + (cons (cons _%L16117%_ _%L16114%_) '()))))) + (_%__kont2041620417%_ (lambda (_%L16075%_) _%L16075%_))) + (let* ((_%__match2053820539%_ + (lambda (_%e1603116138%_ + _%hd1603216142%_ + _%tl1603316145%_ + _%e1603416148%_ + _%hd1603516152%_ + _%tl1603616155%_ + _%e1603716158%_ + _%hd1603816162%_ + _%tl1603916165%_) + (let ((_%L16168%_ _%tl1603916165%_) + (_%L16170%_ _%hd1603816162%_) + (_%L16171%_ _%hd1603516152%_) + (_%L16172%_ _%hd1603216142%_)) + (if (gx#ellipsis? _%L16170%_) + (_%__kont2041220413%_ + _%L16168%_ + _%L16170%_ + _%L16171%_ + _%L16172%_) + (_%__kont2041420415%_ + _%tl1603616155%_ + _%hd1603516152%_ + _%hd1603216142%_))))) + (_%__match2052020521%_ + (lambda (_%e1601816196%_ + _%hd1601916200%_ + _%tl1602016203%_ + _%e1602116206%_ + _%hd1602216210%_ + _%tl1602316213%_ + _%e1602416216%_ + _%hd1602516220%_ + _%tl1602616223%_) + (let ((_%L16226%_ _%hd1602516220%_) + (_%L16228%_ _%hd1602216210%_)) + (if (gx#ellipsis? _%L16226%_) + (_%__kont2041020411%_ _%L16226%_ _%L16228%_) + (_%__match2053820539%_ + _%e1601816196%_ + _%hd1601916200%_ + _%tl1602016203%_ + _%e1602116206%_ + _%hd1602216210%_ + _%tl1602316213%_ + _%e1602416216%_ + _%hd1602516220%_ + _%tl1602616223%_)))))) + (if (gx#stx-pair? _%__stx2039920400%_) + (let ((_%e1598216411%_ (gx#syntax-e _%__stx2039920400%_))) + (let ((_%tl1598416418%_ (let () (declare (not safe)) - (##cdr _%e1588316312%_))) - (_%hd1588416316%_ + (##cdr _%e1598216411%_))) + (_%hd1598316415%_ (let () (declare (not safe)) - (##car _%e1588316312%_)))) - (if (gx#stx-null? _%tl1588516319%_) - (_%__kont2030320304%_) - (if (gx#stx-pair? _%tl1588516319%_) - (let ((_%e1589016270%_ - (gx#syntax-e _%tl1588516319%_))) - (let ((_%tl1589216277%_ + (##car _%e1598216411%_)))) + (if (gx#stx-null? _%tl1598416418%_) + (_%__kont2040220403%_) + (if (gx#stx-pair? _%tl1598416418%_) + (let ((_%e1598916369%_ + (gx#syntax-e _%tl1598416418%_))) + (let ((_%tl1599116376%_ (let () (declare (not safe)) - (##cdr _%e1589016270%_))) - (_%hd1589116274%_ + (##cdr _%e1598916369%_))) + (_%hd1599016373%_ (let () (declare (not safe)) - (##car _%e1589016270%_)))) - (if (gx#identifier? _%hd1589116274%_) + (##car _%e1598916369%_)))) + (if (gx#identifier? _%hd1599016373%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20965_| - _%hd1589116274%_) - (if (gx#stx-pair? _%tl1589216277%_) - (let ((_%e1589316280%_ + |gerbil/core/sugar~Sugar-2[1]#_g21064_| + _%hd1599016373%_) + (if (gx#stx-pair? _%tl1599116376%_) + (let ((_%e1599216379%_ (gx#syntax-e - _%tl1589216277%_))) - (let ((_%tl1589516287%_ + _%tl1599116376%_))) + (let ((_%tl1599416386%_ (let () (declare (not safe)) - (##cdr _%e1589316280%_))) - (_%hd1589416284%_ + (##cdr _%e1599216379%_))) + (_%hd1599316383%_ (let () (declare (not safe)) - (##car _%e1589316280%_)))) + (##car _%e1599216379%_)))) (if (gx#stx-null? - _%tl1589516287%_) - (_%__kont2030520306%_ - _%hd1589416284%_) - (_%__match2043920440%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1589316280%_ - _%hd1589416284%_ - _%tl1589516287%_)))) - (_%__kont2031520316%_ - _%tl1589216277%_ - _%hd1589116274%_ - _%hd1588416316%_)) + _%tl1599416386%_) + (_%__kont2040420405%_ + _%hd1599316383%_) + (_%__match2053820539%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1599216379%_ + _%hd1599316383%_ + _%tl1599416386%_)))) + (_%__kont2041420415%_ + _%tl1599116376%_ + _%hd1599016373%_ + _%hd1598316415%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20966_| - _%hd1589116274%_) + |gerbil/core/sugar~Sugar-2[1]#_g21065_| + _%hd1599016373%_) (if (gx#stx-pair? - _%tl1589216277%_) - (let ((_%e1590316228%_ + _%tl1599116376%_) + (let ((_%e1600216327%_ (gx#syntax-e - _%tl1589216277%_))) - (let ((_%tl1590516235%_ + _%tl1599116376%_))) + (let ((_%tl1600416334%_ (let () (declare (not safe)) - (##cdr _%e1590316228%_))) - (_%hd1590416232%_ + (##cdr _%e1600216327%_))) + (_%hd1600316331%_ (let () (declare (not safe)) - (##car _%e1590316228%_)))) + (##car _%e1600216327%_)))) (if (gx#stx-null? - _%tl1590516235%_) - (_%__kont2030720308%_ - _%hd1590416232%_) - (_%__match2043920440%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1590316228%_ - _%hd1590416232%_ - _%tl1590516235%_)))) - (_%__kont2031520316%_ - _%tl1589216277%_ - _%hd1589116274%_ - _%hd1588416316%_)) + _%tl1600416334%_) + (_%__kont2040620407%_ + _%hd1600316331%_) + (_%__match2053820539%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1600216327%_ + _%hd1600316331%_ + _%tl1600416334%_)))) + (_%__kont2041420415%_ + _%tl1599116376%_ + _%hd1599016373%_ + _%hd1598316415%_)) (if (gx#stx-pair? - _%tl1589216277%_) - (let ((_%e1592516117%_ + _%tl1599116376%_) + (let ((_%e1602416216%_ (gx#syntax-e - _%tl1589216277%_))) - (let ((_%tl1592716124%_ + _%tl1599116376%_))) + (let ((_%tl1602616223%_ (let () (declare (not safe)) - (##cdr _%e1592516117%_))) - (_%hd1592616121%_ + (##cdr _%e1602416216%_))) + (_%hd1602516220%_ (let () (declare (not safe)) - (##car _%e1592516117%_)))) + (##car _%e1602416216%_)))) (if (gx#stx-null? - _%tl1592716124%_) - (_%__match2042120422%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1592516117%_ - _%hd1592616121%_ - _%tl1592716124%_) - (_%__match2043920440%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1592516117%_ - _%hd1592616121%_ - _%tl1592716124%_)))) - (_%__kont2031520316%_ - _%tl1589216277%_ - _%hd1589116274%_ - _%hd1588416316%_)))) - (if (gx#stx-datum? _%hd1589116274%_) - (let ((_%e1591316171%_ - (gx#stx-e _%hd1589116274%_))) - (if (equal? _%e1591316171%_ '::) + _%tl1602616223%_) + (_%__match2052020521%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1602416216%_ + _%hd1602516220%_ + _%tl1602616223%_) + (_%__match2053820539%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1602416216%_ + _%hd1602516220%_ + _%tl1602616223%_)))) + (_%__kont2041420415%_ + _%tl1599116376%_ + _%hd1599016373%_ + _%hd1598316415%_)))) + (if (gx#stx-datum? _%hd1599016373%_) + (let ((_%e1601216270%_ + (gx#stx-e _%hd1599016373%_))) + (if (equal? _%e1601216270%_ '::) (if (gx#stx-pair? - _%tl1589216277%_) - (let ((_%e1591416175%_ + _%tl1599116376%_) + (let ((_%e1601316274%_ (gx#syntax-e - _%tl1589216277%_))) - (let ((_%tl1591616182%_ + _%tl1599116376%_))) + (let ((_%tl1601516281%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e1591416175%_))) - (_%hd1591516179%_ - (let () (declare (not safe)) (##car _%e1591416175%_)))) - (if (gx#stx-null? _%tl1591616182%_) - (_%__kont2030920310%_ _%hd1591516179%_) - (_%__match2043920440%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1591416175%_ - _%hd1591516179%_ - _%tl1591616182%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2031520316%_ - _%tl1589216277%_ - _%hd1589116274%_ - _%hd1588416316%_)) + (##cdr _%e1601316274%_))) + (_%hd1601416278%_ + (let () (declare (not safe)) (##car _%e1601316274%_)))) + (if (gx#stx-null? _%tl1601516281%_) + (_%__kont2040820409%_ _%hd1601416278%_) + (_%__match2053820539%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1601316274%_ + _%hd1601416278%_ + _%tl1601516281%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont2041420415%_ + _%tl1599116376%_ + _%hd1599016373%_ + _%hd1598316415%_)) (if (gx#stx-pair? - _%tl1589216277%_) - (let ((_%e1592516117%_ + _%tl1599116376%_) + (let ((_%e1602416216%_ (gx#syntax-e - _%tl1589216277%_))) - (let ((_%tl1592716124%_ + _%tl1599116376%_))) + (let ((_%tl1602616223%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e1592516117%_))) - (_%hd1592616121%_ - (let () (declare (not safe)) (##car _%e1592516117%_)))) - (if (gx#stx-null? _%tl1592716124%_) - (_%__match2042120422%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1592516117%_ - _%hd1592616121%_ - _%tl1592716124%_) - (_%__match2043920440%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1592516117%_ - _%hd1592616121%_ - _%tl1592716124%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2031520316%_ - _%tl1589216277%_ - _%hd1589116274%_ - _%hd1588416316%_)))) - (if (gx#stx-pair? _%tl1589216277%_) - (let ((_%e1592516117%_ + (##cdr _%e1602416216%_))) + (_%hd1602516220%_ + (let () (declare (not safe)) (##car _%e1602416216%_)))) + (if (gx#stx-null? _%tl1602616223%_) + (_%__match2052020521%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1602416216%_ + _%hd1602516220%_ + _%tl1602616223%_) + (_%__match2053820539%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1602416216%_ + _%hd1602516220%_ + _%tl1602616223%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont2041420415%_ + _%tl1599116376%_ + _%hd1599016373%_ + _%hd1598316415%_)))) + (if (gx#stx-pair? _%tl1599116376%_) + (let ((_%e1602416216%_ (gx#syntax-e - _%tl1589216277%_))) - (let ((_%tl1592716124%_ + _%tl1599116376%_))) + (let ((_%tl1602616223%_ (let () (declare (not safe)) - (##cdr _%e1592516117%_))) - (_%hd1592616121%_ + (##cdr _%e1602416216%_))) + (_%hd1602516220%_ (let () (declare (not safe)) - (##car _%e1592516117%_)))) + (##car _%e1602416216%_)))) (if (gx#stx-null? - _%tl1592716124%_) - (_%__match2042120422%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1592516117%_ - _%hd1592616121%_ - _%tl1592716124%_) - (_%__match2043920440%_ - _%e1588316312%_ - _%hd1588416316%_ - _%tl1588516319%_ - _%e1589016270%_ - _%hd1589116274%_ - _%tl1589216277%_ - _%e1592516117%_ - _%hd1592616121%_ - _%tl1592716124%_)))) - (_%__kont2031520316%_ - _%tl1589216277%_ - _%hd1589116274%_ - _%hd1588416316%_)))))) - (_%__kont2031720318%_ _%tl1588516319%_))))) - (let () (declare (not safe)) (_%g1588115959%_)))))))) + _%tl1602616223%_) + (_%__match2052020521%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1602416216%_ + _%hd1602516220%_ + _%tl1602616223%_) + (_%__match2053820539%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1602416216%_ + _%hd1602516220%_ + _%tl1602616223%_)))) + (_%__kont2041420415%_ + _%tl1599116376%_ + _%hd1599016373%_ + _%hd1598316415%_)))))) + (_%__kont2041620417%_ _%tl1598416418%_))))) + (let () (declare (not safe)) (_%g1598016058%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#quasiquote| - (lambda (_%stx16330%_) - (letrec ((_%simple-quote?16333%_ - (lambda (_%e17025%_) - (let* ((_%__stx2046020461%_ _%e17025%_) - (_%g1703317070%_ + (lambda (_%stx16429%_) + (letrec ((_%simple-quote?16432%_ + (lambda (_%e17124%_) + (let* ((_%__stx2055920560%_ _%e17124%_) + (_%g1713217169%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2046020461%_)))) - (let ((_%__kont2046320464%_ (lambda () '#f)) - (_%__kont2046520466%_ (lambda () '#f)) - (_%__kont2046720468%_ - (lambda (_%L17184%_ _%L17186%_) - (if (_%simple-quote?16333%_ _%L17186%_) - (_%simple-quote?16333%_ _%L17184%_) + _%__stx2055920560%_)))) + (let ((_%__kont2056220563%_ (lambda () '#f)) + (_%__kont2056420565%_ (lambda () '#f)) + (_%__kont2056620567%_ + (lambda (_%L17283%_ _%L17285%_) + (if (_%simple-quote?16432%_ _%L17285%_) + (_%simple-quote?16432%_ _%L17283%_) '#f))) - (_%__kont2046920470%_ - (lambda (_%L17145%_) - (_%simple-quote?16333%_ - (foldr (lambda (_%g1715817161%_ - _%g1715917164%_) - (cons _%g1715817161%_ - _%g1715917164%_)) + (_%__kont2056820569%_ + (lambda (_%L17244%_) + (_%simple-quote?16432%_ + (foldr (lambda (_%g1725717260%_ + _%g1725817263%_) + (cons _%g1725717260%_ + _%g1725817263%_)) '() - _%L17145%_)))) - (_%__kont2047320474%_ - (lambda (_%L17092%_) - (_%simple-quote?16333%_ _%L17092%_))) - (_%__kont2047520476%_ (lambda () '#t))) - (let* ((_%g1703117104%_ + _%L17244%_)))) + (_%__kont2057220573%_ + (lambda (_%L17191%_) + (_%simple-quote?16432%_ _%L17191%_))) + (_%__kont2057420575%_ (lambda () '#t))) + (let* ((_%g1713017203%_ (lambda () - (if (gx#stx-box? _%__stx2046020461%_) - (let ((_%e1706417088%_ + (if (gx#stx-box? _%__stx2055920560%_) + (let ((_%e1716317187%_ (unbox (gx#syntax-e - _%__stx2046020461%_)))) - (_%__kont2047320474%_ _%e1706417088%_)) - (_%__kont2047520476%_)))) - (_%__match2053120532%_ - (lambda (_%e1705317111%_ - _%__splice2047120472%_ - _%target1705417115%_ - _%tl1705617118%_) - (letrec ((_%loop1705717121%_ - (lambda (_%hd1705517125%_ - _%e1706117128%_) + _%__stx2055920560%_)))) + (_%__kont2057220573%_ _%e1716317187%_)) + (_%__kont2057420575%_)))) + (_%__match2063020631%_ + (lambda (_%e1715217210%_ + _%__splice2057020571%_ + _%target1715317214%_ + _%tl1715517217%_) + (letrec ((_%loop1715617220%_ + (lambda (_%hd1715417224%_ + _%e1716017227%_) (if (gx#stx-pair? - _%hd1705517125%_) - (let ((_%e1705817131%_ + _%hd1715417224%_) + (let ((_%e1715717230%_ (gx#syntax-e - _%hd1705517125%_))) - (let ((_%lp-tl1706017138%_ + _%hd1715417224%_))) + (let ((_%lp-tl1715917237%_ (let () (declare (not safe)) - (##cdr _%e1705817131%_))) - (_%lp-hd1705917135%_ + (##cdr _%e1715717230%_))) + (_%lp-hd1715817234%_ (let () (declare (not safe)) - (##car _%e1705817131%_)))) - (_%loop1705717121%_ - _%lp-tl1706017138%_ - (cons _%lp-hd1705917135%_ - _%e1706117128%_)))) - (let ((_%e1706217141%_ - (reverse _%e1706117128%_))) - (_%__kont2046920470%_ - _%e1706217141%_)))))) - (_%loop1705717121%_ - _%target1705417115%_ + (##car _%e1715717230%_)))) + (_%loop1715617220%_ + _%lp-tl1715917237%_ + (cons _%lp-hd1715817234%_ + _%e1716017227%_)))) + (let ((_%e1716117240%_ + (reverse _%e1716017227%_))) + (_%__kont2056820569%_ + _%e1716117240%_)))))) + (_%loop1715617220%_ + _%target1715317214%_ '())))) - (_%g1703017167%_ + (_%g1712917266%_ (lambda () - (if (gx#stx-vector? _%__stx2046020461%_) - (let ((_%e1705317111%_ + (if (gx#stx-vector? _%__stx2055920560%_) + (let ((_%e1715217210%_ (vector->list (gx#syntax-e - _%__stx2046020461%_)))) - (if (gx#stx-pair/null? _%e1705317111%_) - (let ((_%__splice2047120472%_ + _%__stx2055920560%_)))) + (if (gx#stx-pair/null? _%e1715217210%_) + (let ((_%__splice2057020571%_ (gx#syntax-split-splice - _%e1705317111%_ + _%e1715217210%_ '0))) - (let ((_%tl1705617118%_ + (let ((_%tl1715517217%_ (let () (declare (not safe)) (##vector-ref - _%__splice2047120472%_ + _%__splice2057020571%_ '1))) - (_%target1705417115%_ + (_%target1715317214%_ (let () (declare (not safe)) (##vector-ref - _%__splice2047120472%_ + _%__splice2057020571%_ '0)))) (if (gx#stx-null? - _%tl1705617118%_) - (_%__match2053120532%_ - _%e1705317111%_ - _%__splice2047120472%_ - _%target1705417115%_ - _%tl1705617118%_) - (_%__kont2047520476%_)))) - (_%__kont2047520476%_))) + _%tl1715517217%_) + (_%__match2063020631%_ + _%e1715217210%_ + _%__splice2057020571%_ + _%target1715317214%_ + _%tl1715517217%_) + (_%__kont2057420575%_)))) + (_%__kont2057420575%_))) (let () (declare (not safe)) - (_%g1703117104%_)))))) - (if (gx#stx-pair? _%__stx2046020461%_) - (let ((_%e1703517235%_ - (gx#syntax-e _%__stx2046020461%_))) - (let ((_%tl1703717242%_ + (_%g1713017203%_)))))) + (if (gx#stx-pair? _%__stx2055920560%_) + (let ((_%e1713417334%_ + (gx#syntax-e _%__stx2055920560%_))) + (let ((_%tl1713617341%_ (let () (declare (not safe)) - (##cdr _%e1703517235%_))) - (_%hd1703617239%_ + (##cdr _%e1713417334%_))) + (_%hd1713517338%_ (let () (declare (not safe)) - (##car _%e1703517235%_)))) - (if (gx#identifier? _%hd1703617239%_) + (##car _%e1713417334%_)))) + (if (gx#identifier? _%hd1713517338%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20967_| - _%hd1703617239%_) - (if (gx#stx-pair? _%tl1703717242%_) - (let ((_%e1703817245%_ + |gerbil/core/sugar~Sugar-2[1]#_g21066_| + _%hd1713517338%_) + (if (gx#stx-pair? _%tl1713617341%_) + (let ((_%e1713717344%_ (gx#syntax-e - _%tl1703717242%_))) - (let ((_%tl1704017252%_ + _%tl1713617341%_))) + (let ((_%tl1713917351%_ (let () (declare (not safe)) - (##cdr _%e1703817245%_))) - (_%hd1703917249%_ + (##cdr _%e1713717344%_))) + (_%hd1713817348%_ (let () (declare (not safe)) - (##car _%e1703817245%_)))) + (##car _%e1713717344%_)))) (if (gx#stx-null? - _%tl1704017252%_) - (_%__kont2046320464%_) - (_%__kont2046720468%_ - _%tl1703717242%_ - _%hd1703617239%_)))) - (_%__kont2046720468%_ - _%tl1703717242%_ - _%hd1703617239%_)) + _%tl1713917351%_) + (_%__kont2056220563%_) + (_%__kont2056620567%_ + _%tl1713617341%_ + _%hd1713517338%_)))) + (_%__kont2056620567%_ + _%tl1713617341%_ + _%hd1713517338%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20968_| - _%hd1703617239%_) + |gerbil/core/sugar~Sugar-2[1]#_g21067_| + _%hd1713517338%_) (if (gx#stx-pair? - _%tl1703717242%_) - (let ((_%e1704417214%_ + _%tl1713617341%_) + (let ((_%e1714317313%_ (gx#syntax-e - _%tl1703717242%_))) - (let ((_%tl1704617221%_ + _%tl1713617341%_))) + (let ((_%tl1714517320%_ (let () (declare (not safe)) - (##cdr _%e1704417214%_))) - (_%hd1704517218%_ + (##cdr _%e1714317313%_))) + (_%hd1714417317%_ (let () (declare (not safe)) - (##car _%e1704417214%_)))) + (##car _%e1714317313%_)))) (if (gx#stx-null? - _%tl1704617221%_) - (_%__kont2046520466%_) - (_%__kont2046720468%_ - _%tl1703717242%_ - _%hd1703617239%_)))) - (_%__kont2046720468%_ - _%tl1703717242%_ - _%hd1703617239%_)) - (_%__kont2046720468%_ - _%tl1703717242%_ - _%hd1703617239%_))) - (_%__kont2046720468%_ - _%tl1703717242%_ - _%hd1703617239%_)))) + _%tl1714517320%_) + (_%__kont2056420565%_) + (_%__kont2056620567%_ + _%tl1713617341%_ + _%hd1713517338%_)))) + (_%__kont2056620567%_ + _%tl1713617341%_ + _%hd1713517338%_)) + (_%__kont2056620567%_ + _%tl1713617341%_ + _%hd1713517338%_))) + (_%__kont2056620567%_ + _%tl1713617341%_ + _%hd1713517338%_)))) (let () (declare (not safe)) - (_%g1703017167%_)))))))) - (_%generate16335%_ - (lambda (_%e16397%_ _%d16399%_) - (let* ((_%__stx2053820539%_ _%e16397%_) - (_%g1640816466%_ + (_%g1712917266%_)))))))) + (_%generate16434%_ + (lambda (_%e16496%_ _%d16498%_) + (let* ((_%__stx2063720638%_ _%e16496%_) + (_%g1650716565%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2053820539%_)))) - (let ((_%__kont2054120542%_ - (lambda (_%L16977%_) - (let* ((_%g1699016998%_ - (lambda (_%g1699116994%_) + _%__stx2063720638%_)))) + (let ((_%__kont2064020641%_ + (lambda (_%L17076%_) + (let* ((_%g1708917097%_ + (lambda (_%g1709017093%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1699116994%_))) - (_%g1698917017%_ - (lambda (_%g1699117002%_) - ((lambda (_%L17005%_) + _%g1709017093%_))) + (_%g1708817116%_ + (lambda (_%g1709017101%_) + ((lambda (_%L17104%_) (cons (gx#datum->syntax '#f 'list) (cons (cons (gx#datum->syntax '#f @@ -10736,26 +10738,26 @@ '#f 'quasiquote) '())) - (cons _%L17005%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1699117002%_)))) - (_%g1698917017%_ - (_%generate16335%_ - _%L16977%_ - (fx1+ _%d16399%_)))))) - (_%__kont2054320544%_ - (lambda (_%L16906%_) - (if (fxzero? _%d16399%_) - _%L16906%_ - (let* ((_%g1691916927%_ - (lambda (_%g1692016923%_) + (cons _%L17104%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g1709017101%_)))) + (_%g1708817116%_ + (_%generate16434%_ + _%L17076%_ + (fx1+ _%d16498%_)))))) + (_%__kont2064220643%_ + (lambda (_%L17005%_) + (if (fxzero? _%d16498%_) + _%L17005%_ + (let* ((_%g1701817026%_ + (lambda (_%g1701917022%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1692016923%_))) - (_%g1691816946%_ - (lambda (_%g1692016931%_) - ((lambda (_%L16934%_) + _%g1701917022%_))) + (_%g1701717045%_ + (lambda (_%g1701917030%_) + ((lambda (_%L17033%_) (cons (gx#datum->syntax '#f 'list) @@ -10764,32 +10766,32 @@ '#f 'quote) (cons (gx#datum->syntax '#f 'unquote) '())) - (cons _%L16934%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1692016931%_)))) - (_%g1691816946%_ - (_%generate16335%_ - _%L16906%_ - (fx1- _%d16399%_))))))) - (_%__kont2054520546%_ - (lambda (_%L16835%_) - (if (fxzero? _%d16399%_) + (cons _%L17033%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g1701917030%_)))) + (_%g1701717045%_ + (_%generate16434%_ + _%L17005%_ + (fx1- _%d16498%_))))))) + (_%__kont2064420645%_ + (lambda (_%L16934%_) + (if (fxzero? _%d16498%_) (cons (gx#datum->syntax '#f 'foldr) (cons (gx#datum->syntax '#f 'cons) (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) - (cons _%L16835%_ '())))) - (let* ((_%g1684816856%_ - (lambda (_%g1684916852%_) + (cons _%L16934%_ '())))) + (let* ((_%g1694716955%_ + (lambda (_%g1694816951%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1684916852%_))) - (_%g1684716875%_ - (lambda (_%g1684916860%_) - ((lambda (_%L16863%_) + _%g1694816951%_))) + (_%g1694616974%_ + (lambda (_%g1694816959%_) + ((lambda (_%L16962%_) (cons (gx#datum->syntax '#f 'list) @@ -10798,653 +10800,653 @@ '#f 'quote) (cons (gx#datum->syntax '#f 'unquote-splicing) '())) - (cons _%L16863%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1684916860%_)))) - (_%g1684716875%_ - (_%generate16335%_ - _%L16835%_ - (fx1- _%d16399%_))))))) - (_%__kont2054720548%_ - (lambda (_%L16760%_ _%L16762%_) - (let* ((_%g1677716785%_ - (lambda (_%g1677816781%_) + (cons _%L16962%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g1694816959%_)))) + (_%g1694616974%_ + (_%generate16434%_ + _%L16934%_ + (fx1- _%d16498%_))))))) + (_%__kont2064620647%_ + (lambda (_%L16859%_ _%L16861%_) + (let* ((_%g1687616884%_ + (lambda (_%g1687716880%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1677816781%_))) - (_%g1677616804%_ - (lambda (_%g1677816789%_) - ((lambda (_%L16792%_) + _%g1687716880%_))) + (_%g1687516903%_ + (lambda (_%g1687716888%_) + ((lambda (_%L16891%_) (cons (gx#datum->syntax '#f 'foldr) (cons (gx#datum->syntax '#f 'cons) - (cons _%L16792%_ - (cons _%L16762%_ + (cons _%L16891%_ + (cons _%L16861%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1677816789%_)))) - (_%g1677616804%_ - (_%generate16335%_ _%L16760%_ _%d16399%_))))) - (_%__kont2054920550%_ - (lambda (_%L16646%_ _%L16648%_) - (let* ((_%g1665916674%_ - (lambda (_%g1666016670%_) + _%g1687716888%_)))) + (_%g1687516903%_ + (_%generate16434%_ _%L16859%_ _%d16498%_))))) + (_%__kont2064820649%_ + (lambda (_%L16745%_ _%L16747%_) + (let* ((_%g1675816773%_ + (lambda (_%g1675916769%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1666016670%_))) - (_%g1665816719%_ - (lambda (_%g1666016678%_) - (if (gx#stx-pair? _%g1666016678%_) - (let ((_%e1666316681%_ + _%g1675916769%_))) + (_%g1675716818%_ + (lambda (_%g1675916777%_) + (if (gx#stx-pair? _%g1675916777%_) + (let ((_%e1676216780%_ (gx#syntax-e - _%g1666016678%_))) - (let ((_%hd1666416685%_ + _%g1675916777%_))) + (let ((_%hd1676316784%_ (let () (declare (not safe)) - (##car _%e1666316681%_))) - (_%tl1666516688%_ + (##car _%e1676216780%_))) + (_%tl1676416787%_ (let () (declare (not safe)) - (##cdr _%e1666316681%_)))) + (##cdr _%e1676216780%_)))) (if (gx#stx-pair? - _%tl1666516688%_) - (let ((_%e1666616691%_ + _%tl1676416787%_) + (let ((_%e1676516790%_ (gx#syntax-e - _%tl1666516688%_))) - (let ((_%hd1666716695%_ + _%tl1676416787%_))) + (let ((_%hd1676616794%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e1666616691%_))) - (_%tl1666816698%_ - (let () (declare (not safe)) (##cdr _%e1666616691%_)))) - (if (gx#stx-null? _%tl1666816698%_) - ((lambda (_%L16701%_ _%L16703%_) + (##car _%e1676516790%_))) + (_%tl1676716797%_ + (let () (declare (not safe)) (##cdr _%e1676516790%_)))) + (if (gx#stx-null? _%tl1676716797%_) + ((lambda (_%L16800%_ _%L16802%_) (cons (gx#datum->syntax '#f 'cons) - (cons _%L16703%_ (cons _%L16701%_ '())))) - _%hd1666716695%_ - _%hd1666416685%_) - (_%g1665916674%_ _%g1666016678%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1665916674%_ - _%g1666016678%_)))) - (_%g1665916674%_ - _%g1666016678%_))))) - (_%g1665816719%_ - (list (_%generate16335%_ - _%L16648%_ - _%d16399%_) - (_%generate16335%_ - _%L16646%_ - _%d16399%_)))))) - (_%__kont2055120552%_ - (lambda (_%L16576%_) - (let* ((_%g1659016598%_ - (lambda (_%g1659116594%_) + (cons _%L16802%_ (cons _%L16800%_ '())))) + _%hd1676616794%_ + _%hd1676316784%_) + (_%g1675816773%_ _%g1675916777%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1675816773%_ + _%g1675916777%_)))) + (_%g1675816773%_ + _%g1675916777%_))))) + (_%g1675716818%_ + (list (_%generate16434%_ + _%L16747%_ + _%d16498%_) + (_%generate16434%_ + _%L16745%_ + _%d16498%_)))))) + (_%__kont2065020651%_ + (lambda (_%L16675%_) + (let* ((_%g1668916697%_ + (lambda (_%g1669016693%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1659116594%_))) - (_%g1658916617%_ - (lambda (_%g1659116602%_) - ((lambda (_%L16605%_) + _%g1669016693%_))) + (_%g1668816716%_ + (lambda (_%g1669016701%_) + ((lambda (_%L16704%_) (cons (gx#datum->syntax '#f 'list->vector) - (cons _%L16605%_ '()))) - _%g1659116602%_)))) - (_%g1658916617%_ - (_%generate16335%_ - (foldr (lambda (_%g1662016623%_ - _%g1662116626%_) - (cons _%g1662016623%_ - _%g1662116626%_)) + (cons _%L16704%_ '()))) + _%g1669016701%_)))) + (_%g1668816716%_ + (_%generate16434%_ + (foldr (lambda (_%g1671916722%_ + _%g1672016725%_) + (cons _%g1671916722%_ + _%g1672016725%_)) '() - _%L16576%_) - _%d16399%_))))) - (_%__kont2055520556%_ - (lambda (_%L16494%_) - (let* ((_%g1650416512%_ - (lambda (_%g1650516508%_) + _%L16675%_) + _%d16498%_))))) + (_%__kont2065420655%_ + (lambda (_%L16593%_) + (let* ((_%g1660316611%_ + (lambda (_%g1660416607%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1650516508%_))) - (_%g1650316531%_ - (lambda (_%g1650516516%_) - ((lambda (_%L16519%_) + _%g1660416607%_))) + (_%g1660216630%_ + (lambda (_%g1660416615%_) + ((lambda (_%L16618%_) (cons (gx#datum->syntax '#f 'box) - (cons _%L16519%_ '()))) - _%g1650516516%_)))) - (_%g1650316531%_ - (_%generate16335%_ _%L16494%_ _%d16399%_))))) - (_%__kont2055720558%_ - (lambda (_%L16473%_) + (cons _%L16618%_ '()))) + _%g1660416615%_)))) + (_%g1660216630%_ + (_%generate16434%_ _%L16593%_ _%d16498%_))))) + (_%__kont2065620657%_ + (lambda (_%L16572%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L16473%_ '()))))) - (let* ((_%g1640616535%_ + (cons _%L16572%_ '()))))) + (let* ((_%g1650516634%_ (lambda () - (if (gx#stx-box? _%__stx2053820539%_) - (let ((_%e1645916490%_ + (if (gx#stx-box? _%__stx2063720638%_) + (let ((_%e1655816589%_ (unbox (gx#syntax-e - _%__stx2053820539%_)))) - (_%__kont2055520556%_ _%e1645916490%_)) - (_%__kont2055720558%_ - _%__stx2053820539%_)))) - (_%__match2065720658%_ - (lambda (_%e1644816542%_ - _%__splice2055320554%_ - _%target1644916546%_ - _%tl1645116549%_) - (letrec ((_%loop1645216552%_ - (lambda (_%hd1645016556%_ - _%e1645616559%_) + _%__stx2063720638%_)))) + (_%__kont2065420655%_ _%e1655816589%_)) + (_%__kont2065620657%_ + _%__stx2063720638%_)))) + (_%__match2075620757%_ + (lambda (_%e1654716641%_ + _%__splice2065220653%_ + _%target1654816645%_ + _%tl1655016648%_) + (letrec ((_%loop1655116651%_ + (lambda (_%hd1654916655%_ + _%e1655516658%_) (if (gx#stx-pair? - _%hd1645016556%_) - (let ((_%e1645316562%_ + _%hd1654916655%_) + (let ((_%e1655216661%_ (gx#syntax-e - _%hd1645016556%_))) - (let ((_%lp-tl1645516569%_ + _%hd1654916655%_))) + (let ((_%lp-tl1655416668%_ (let () (declare (not safe)) - (##cdr _%e1645316562%_))) - (_%lp-hd1645416566%_ + (##cdr _%e1655216661%_))) + (_%lp-hd1655316665%_ (let () (declare (not safe)) - (##car _%e1645316562%_)))) - (_%loop1645216552%_ - _%lp-tl1645516569%_ - (cons _%lp-hd1645416566%_ - _%e1645616559%_)))) - (let ((_%e1645716572%_ - (reverse _%e1645616559%_))) - (_%__kont2055120552%_ - _%e1645716572%_)))))) - (_%loop1645216552%_ - _%target1644916546%_ + (##car _%e1655216661%_)))) + (_%loop1655116651%_ + _%lp-tl1655416668%_ + (cons _%lp-hd1655316665%_ + _%e1655516658%_)))) + (let ((_%e1655616671%_ + (reverse _%e1655516658%_))) + (_%__kont2065020651%_ + _%e1655616671%_)))))) + (_%loop1655116651%_ + _%target1654816645%_ '())))) - (_%g1640516629%_ + (_%g1650416728%_ (lambda () - (if (gx#stx-vector? _%__stx2053820539%_) - (let ((_%e1644816542%_ + (if (gx#stx-vector? _%__stx2063720638%_) + (let ((_%e1654716641%_ (vector->list (gx#syntax-e - _%__stx2053820539%_)))) - (if (gx#stx-pair/null? _%e1644816542%_) - (let ((_%__splice2055320554%_ + _%__stx2063720638%_)))) + (if (gx#stx-pair/null? _%e1654716641%_) + (let ((_%__splice2065220653%_ (gx#syntax-split-splice - _%e1644816542%_ + _%e1654716641%_ '0))) - (let ((_%tl1645116549%_ + (let ((_%tl1655016648%_ (let () (declare (not safe)) (##vector-ref - _%__splice2055320554%_ + _%__splice2065220653%_ '1))) - (_%target1644916546%_ + (_%target1654816645%_ (let () (declare (not safe)) (##vector-ref - _%__splice2055320554%_ + _%__splice2065220653%_ '0)))) (if (gx#stx-null? - _%tl1645116549%_) - (_%__match2065720658%_ - _%e1644816542%_ - _%__splice2055320554%_ - _%target1644916546%_ - _%tl1645116549%_) - (_%__kont2055720558%_ - _%__stx2053820539%_)))) - (_%__kont2055720558%_ - _%__stx2053820539%_))) + _%tl1655016648%_) + (_%__match2075620757%_ + _%e1654716641%_ + _%__splice2065220653%_ + _%target1654816645%_ + _%tl1655016648%_) + (_%__kont2065620657%_ + _%__stx2063720638%_)))) + (_%__kont2065620657%_ + _%__stx2063720638%_))) (let () (declare (not safe)) - (_%g1640616535%_)))))) - (if (gx#stx-pair? _%__stx2053820539%_) - (let ((_%e1641116957%_ - (gx#syntax-e _%__stx2053820539%_))) - (let ((_%tl1641316964%_ + (_%g1650516634%_)))))) + (if (gx#stx-pair? _%__stx2063720638%_) + (let ((_%e1651017056%_ + (gx#syntax-e _%__stx2063720638%_))) + (let ((_%tl1651217063%_ (let () (declare (not safe)) - (##cdr _%e1641116957%_))) - (_%hd1641216961%_ + (##cdr _%e1651017056%_))) + (_%hd1651117060%_ (let () (declare (not safe)) - (##car _%e1641116957%_)))) - (if (gx#identifier? _%hd1641216961%_) + (##car _%e1651017056%_)))) + (if (gx#identifier? _%hd1651117060%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20969_| - _%hd1641216961%_) - (if (gx#stx-pair? _%tl1641316964%_) - (let ((_%e1641416967%_ + |gerbil/core/sugar~Sugar-2[1]#_g21068_| + _%hd1651117060%_) + (if (gx#stx-pair? _%tl1651217063%_) + (let ((_%e1651317066%_ (gx#syntax-e - _%tl1641316964%_))) - (let ((_%tl1641616974%_ + _%tl1651217063%_))) + (let ((_%tl1651517073%_ (let () (declare (not safe)) - (##cdr _%e1641416967%_))) - (_%hd1641516971%_ + (##cdr _%e1651317066%_))) + (_%hd1651417070%_ (let () (declare (not safe)) - (##car _%e1641416967%_)))) + (##car _%e1651317066%_)))) (if (gx#stx-null? - _%tl1641616974%_) - (_%__kont2054120542%_ - _%hd1641516971%_) - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)))) - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)) + _%tl1651517073%_) + (_%__kont2064020641%_ + _%hd1651417070%_) + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)))) + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20970_| - _%hd1641216961%_) + |gerbil/core/sugar~Sugar-2[1]#_g21069_| + _%hd1651117060%_) (if (gx#stx-pair? - _%tl1641316964%_) - (let ((_%e1642116896%_ + _%tl1651217063%_) + (let ((_%e1652016995%_ (gx#syntax-e - _%tl1641316964%_))) - (let ((_%tl1642316903%_ + _%tl1651217063%_))) + (let ((_%tl1652217002%_ (let () (declare (not safe)) - (##cdr _%e1642116896%_))) - (_%hd1642216900%_ + (##cdr _%e1652016995%_))) + (_%hd1652116999%_ (let () (declare (not safe)) - (##car _%e1642116896%_)))) + (##car _%e1652016995%_)))) (if (gx#stx-null? - _%tl1642316903%_) - (_%__kont2054320544%_ - _%hd1642216900%_) - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)))) - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)) + _%tl1652217002%_) + (_%__kont2064220643%_ + _%hd1652116999%_) + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)))) + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20971_| - _%hd1641216961%_) + |gerbil/core/sugar~Sugar-2[1]#_g21070_| + _%hd1651117060%_) (if (gx#stx-pair? - _%tl1641316964%_) - (let ((_%e1642816825%_ + _%tl1651217063%_) + (let ((_%e1652716924%_ (gx#syntax-e - _%tl1641316964%_))) - (let ((_%tl1643016832%_ + _%tl1651217063%_))) + (let ((_%tl1652916931%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e1642816825%_))) - (_%hd1642916829%_ - (let () (declare (not safe)) (##car _%e1642816825%_)))) - (if (gx#stx-null? _%tl1643016832%_) - (_%__kont2054520546%_ _%hd1642916829%_) - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)))) - (_%__kont2054920550%_ _%tl1641316964%_ _%hd1641216961%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)))) - (if (gx#stx-pair? _%hd1641216961%_) - (let ((_%e1643616740%_ + (##cdr _%e1652716924%_))) + (_%hd1652816928%_ + (let () (declare (not safe)) (##car _%e1652716924%_)))) + (if (gx#stx-null? _%tl1652916931%_) + (_%__kont2064420645%_ _%hd1652816928%_) + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)))) + (_%__kont2064820649%_ _%tl1651217063%_ _%hd1651117060%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)))) + (if (gx#stx-pair? _%hd1651117060%_) + (let ((_%e1653516839%_ (gx#syntax-e - _%hd1641216961%_))) - (let ((_%tl1643816747%_ + _%hd1651117060%_))) + (let ((_%tl1653716846%_ (let () (declare (not safe)) - (##cdr _%e1643616740%_))) - (_%hd1643716744%_ + (##cdr _%e1653516839%_))) + (_%hd1653616843%_ (let () (declare (not safe)) - (##car _%e1643616740%_)))) + (##car _%e1653516839%_)))) (if (gx#identifier? - _%hd1643716744%_) + _%hd1653616843%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20972_| - _%hd1643716744%_) + |gerbil/core/sugar~Sugar-2[1]#_g21071_| + _%hd1653616843%_) (if (gx#stx-pair? - _%tl1643816747%_) - (let ((_%e1643916750%_ + _%tl1653716846%_) + (let ((_%e1653816849%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1643816747%_))) - (let ((_%tl1644116757%_ + (gx#syntax-e _%tl1653716846%_))) + (let ((_%tl1654016856%_ (let () (declare (not safe)) - (##cdr _%e1643916750%_))) - (_%hd1644016754%_ + (##cdr _%e1653816849%_))) + (_%hd1653916853%_ (let () (declare (not safe)) - (##car _%e1643916750%_)))) - (if (gx#stx-null? _%tl1644116757%_) - (if (fxzero? _%d16399%_) - (let ((_%L16760%_ _%tl1641316964%_) - (_%L16762%_ _%hd1644016754%_)) - (_%__kont2054720548%_ _%L16760%_ _%L16762%_)) - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)) - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)))) - (_%__kont2054920550%_ _%tl1641316964%_ _%hd1641216961%_)) - (_%__kont2054920550%_ _%tl1641316964%_ _%hd1641216961%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_)))) - (_%__kont2054920550%_ - _%tl1641316964%_ - _%hd1641216961%_))))) + (##car _%e1653816849%_)))) + (if (gx#stx-null? _%tl1654016856%_) + (if (fxzero? _%d16498%_) + (let ((_%L16859%_ _%tl1651217063%_) + (_%L16861%_ _%hd1653916853%_)) + (_%__kont2064620647%_ _%L16859%_ _%L16861%_)) + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)) + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)))) + (_%__kont2064820649%_ _%tl1651217063%_ _%hd1651117060%_)) + (_%__kont2064820649%_ _%tl1651217063%_ _%hd1651117060%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)))) + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_))))) (let () (declare (not safe)) - (_%g1640516629%_))))))))) - (let* ((_%g1633716351%_ - (lambda (_%g1633816347%_) + (_%g1650416728%_))))))))) + (let* ((_%g1643616450%_ + (lambda (_%g1643716446%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1633816347%_))) - (_%g1633616393%_ - (lambda (_%g1633816355%_) - (if (gx#stx-pair? _%g1633816355%_) - (let ((_%e1634016358%_ (gx#syntax-e _%g1633816355%_))) - (let ((_%hd1634116362%_ + _%g1643716446%_))) + (_%g1643516492%_ + (lambda (_%g1643716454%_) + (if (gx#stx-pair? _%g1643716454%_) + (let ((_%e1643916457%_ (gx#syntax-e _%g1643716454%_))) + (let ((_%hd1644016461%_ (let () (declare (not safe)) - (##car _%e1634016358%_))) - (_%tl1634216365%_ + (##car _%e1643916457%_))) + (_%tl1644116464%_ (let () (declare (not safe)) - (##cdr _%e1634016358%_)))) - (if (gx#stx-pair? _%tl1634216365%_) - (let ((_%e1634316368%_ - (gx#syntax-e _%tl1634216365%_))) - (let ((_%hd1634416372%_ + (##cdr _%e1643916457%_)))) + (if (gx#stx-pair? _%tl1644116464%_) + (let ((_%e1644216467%_ + (gx#syntax-e _%tl1644116464%_))) + (let ((_%hd1644316471%_ (let () (declare (not safe)) - (##car _%e1634316368%_))) - (_%tl1634516375%_ + (##car _%e1644216467%_))) + (_%tl1644416474%_ (let () (declare (not safe)) - (##cdr _%e1634316368%_)))) - (if (gx#stx-null? _%tl1634516375%_) - ((lambda (_%L16378%_) - (if (_%simple-quote?16333%_ - _%L16378%_) + (##cdr _%e1644216467%_)))) + (if (gx#stx-null? _%tl1644416474%_) + ((lambda (_%L16477%_) + (if (_%simple-quote?16432%_ + _%L16477%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L16378%_ '())) - (_%generate16335%_ - _%L16378%_ + (cons _%L16477%_ '())) + (_%generate16434%_ + _%L16477%_ '0))) - _%hd1634416372%_) - (_%g1633716351%_ _%g1633816355%_)))) - (_%g1633716351%_ _%g1633816355%_)))) - (_%g1633716351%_ _%g1633816355%_))))) - (_%g1633616393%_ _%stx16330%_))))) + _%hd1644316471%_) + (_%g1643616450%_ _%g1643716454%_)))) + (_%g1643616450%_ _%g1643716454%_)))) + (_%g1643616450%_ _%g1643716454%_))))) + (_%g1643516492%_ _%stx16429%_))))) (define |gerbil/core/sugar~Sugar-2[:0:]#delay| - (lambda (_%$stx17265%_) - (let* ((_%__stx2066420665%_ _%$stx17265%_) - (_%g1727017291%_ + (lambda (_%$stx17364%_) + (let* ((_%__stx2076320764%_ _%$stx17364%_) + (_%g1736917390%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2066420665%_)))) - (let ((_%__kont2066720668%_ - (lambda (_%L17359%_) - (cons (gx#datum->syntax '#f 'quote) (cons _%L17359%_ '())))) - (_%__kont2066920670%_ - (lambda (_%L17318%_) + _%__stx2076320764%_)))) + (let ((_%__kont2076620767%_ + (lambda (_%L17458%_) + (cons (gx#datum->syntax '#f 'quote) (cons _%L17458%_ '())))) + (_%__kont2076820769%_ + (lambda (_%L17417%_) (cons (gx#datum->syntax '#f 'make-promise) (cons (cons (gx#datum->syntax '#f 'lambda%) - (cons '() (cons _%L17318%_ '()))) + (cons '() (cons _%L17417%_ '()))) '()))))) - (let ((_%__match2068520686%_ - (lambda (_%e1727317339%_ - _%hd1727417343%_ - _%tl1727517346%_ - _%e1727617349%_ - _%hd1727717353%_ - _%tl1727817356%_) - (let ((_%L17359%_ _%hd1727717353%_)) - (if (gx#stx-datum? _%L17359%_) - (_%__kont2066720668%_ _%L17359%_) - (_%__kont2066920670%_ _%hd1727717353%_)))))) - (if (gx#stx-pair? _%__stx2066420665%_) - (let ((_%e1727317339%_ (gx#syntax-e _%__stx2066420665%_))) - (let ((_%tl1727517346%_ + (let ((_%__match2078420785%_ + (lambda (_%e1737217438%_ + _%hd1737317442%_ + _%tl1737417445%_ + _%e1737517448%_ + _%hd1737617452%_ + _%tl1737717455%_) + (let ((_%L17458%_ _%hd1737617452%_)) + (if (gx#stx-datum? _%L17458%_) + (_%__kont2076620767%_ _%L17458%_) + (_%__kont2076820769%_ _%hd1737617452%_)))))) + (if (gx#stx-pair? _%__stx2076320764%_) + (let ((_%e1737217438%_ (gx#syntax-e _%__stx2076320764%_))) + (let ((_%tl1737417445%_ (let () (declare (not safe)) - (##cdr _%e1727317339%_))) - (_%hd1727417343%_ + (##cdr _%e1737217438%_))) + (_%hd1737317442%_ (let () (declare (not safe)) - (##car _%e1727317339%_)))) - (if (gx#stx-pair? _%tl1727517346%_) - (let ((_%e1727617349%_ - (gx#syntax-e _%tl1727517346%_))) - (let ((_%tl1727817356%_ + (##car _%e1737217438%_)))) + (if (gx#stx-pair? _%tl1737417445%_) + (let ((_%e1737517448%_ + (gx#syntax-e _%tl1737417445%_))) + (let ((_%tl1737717455%_ (let () (declare (not safe)) - (##cdr _%e1727617349%_))) - (_%hd1727717353%_ + (##cdr _%e1737517448%_))) + (_%hd1737617452%_ (let () (declare (not safe)) - (##car _%e1727617349%_)))) - (if (gx#stx-null? _%tl1727817356%_) - (_%__match2068520686%_ - _%e1727317339%_ - _%hd1727417343%_ - _%tl1727517346%_ - _%e1727617349%_ - _%hd1727717353%_ - _%tl1727817356%_) + (##car _%e1737517448%_)))) + (if (gx#stx-null? _%tl1737717455%_) + (_%__match2078420785%_ + _%e1737217438%_ + _%hd1737317442%_ + _%tl1737417445%_ + _%e1737517448%_ + _%hd1737617452%_ + _%tl1737717455%_) (let () (declare (not safe)) - (_%g1727017291%_))))) - (let () (declare (not safe)) (_%g1727017291%_))))) - (let () (declare (not safe)) (_%g1727017291%_)))))))) + (_%g1736917390%_))))) + (let () (declare (not safe)) (_%g1736917390%_))))) + (let () (declare (not safe)) (_%g1736917390%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#cut| - (lambda (_%stx17376%_) - (letrec ((_%generate17379%_ - (lambda (_%rest17498%_) - (let _%lp17501%_ ((_%rest17504%_ _%rest17498%_) - (_%hd17506%_ '()) - (_%body17507%_ '())) - (let* ((_%__stx2072220723%_ _%rest17504%_) - (_%g1751017522%_ + (lambda (_%stx17475%_) + (letrec ((_%generate17478%_ + (lambda (_%rest17597%_) + (let _%lp17600%_ ((_%rest17603%_ _%rest17597%_) + (_%hd17605%_ '()) + (_%body17606%_ '())) + (let* ((_%__stx2082120822%_ _%rest17603%_) + (_%g1760917621%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2072220723%_)))) - (let ((_%__kont2072520726%_ - (lambda (_%L17550%_ _%L17552%_) - (let* ((_%__stx2070220703%_ _%L17552%_) - (_%g1756917576%_ + _%__stx2082120822%_)))) + (let ((_%__kont2082420825%_ + (lambda (_%L17649%_ _%L17651%_) + (let* ((_%__stx2080120802%_ _%L17651%_) + (_%g1766817675%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2070220703%_)))) - (let ((_%__kont2070520706%_ + _%__stx2080120802%_)))) + (let ((_%__kont2080420805%_ (lambda () - (let ((_%arg17612%_ (gx#genident))) - (_%lp17501%_ - _%L17550%_ - (cons _%arg17612%_ _%hd17506%_) - (cons _%arg17612%_ - _%body17507%_))))) - (_%__kont2070720708%_ + (let ((_%arg17711%_ (gx#genident))) + (_%lp17600%_ + _%L17649%_ + (cons _%arg17711%_ _%hd17605%_) + (cons _%arg17711%_ + _%body17606%_))))) + (_%__kont2080620807%_ (lambda () - (if (gx#stx-null? _%L17550%_) - (let ((_%tail17598%_ + (if (gx#stx-null? _%L17649%_) + (let ((_%tail17697%_ (gx#genident))) (values (foldl cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tail17598%_ - _%hd17506%_) - (foldl cons (list _%tail17598%_) _%body17507%_) + _%tail17697%_ + _%hd17605%_) + (foldl cons (list _%tail17697%_) _%body17606%_) '#t)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"bad syntax; cut ellipsis <...> not in tail position" - _%stx17376%_ - _%L17552%_)))) - (_%__kont2070920710%_ + _%stx17475%_ + _%L17651%_)))) + (_%__kont2080820809%_ (lambda () - (_%lp17501%_ - _%L17550%_ - _%hd17506%_ - (cons _%L17552%_ - _%body17507%_))))) - (if (gx#identifier? _%__stx2070220703%_) + (_%lp17600%_ + _%L17649%_ + _%hd17605%_ + (cons _%L17651%_ + _%body17606%_))))) + (if (gx#identifier? _%__stx2080120802%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20973_| - _%__stx2070220703%_) - (_%__kont2070520706%_) + |gerbil/core/sugar~Sugar-2[1]#_g21072_| + _%__stx2080120802%_) + (_%__kont2080420805%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20974_| - _%__stx2070220703%_) - (_%__kont2070720708%_) - (_%__kont2070920710%_))) - (_%__kont2070920710%_)))))) - (_%__kont2072720728%_ + |gerbil/core/sugar~Sugar-2[1]#_g21073_| + _%__stx2080120802%_) + (_%__kont2080620807%_) + (_%__kont2080820809%_))) + (_%__kont2080820809%_)))))) + (_%__kont2082620827%_ (lambda () - (values (reverse _%hd17506%_) - (reverse _%body17507%_) + (values (reverse _%hd17605%_) + (reverse _%body17606%_) '#f)))) - (if (gx#stx-pair? _%__stx2072220723%_) - (let ((_%e1751417540%_ - (gx#syntax-e _%__stx2072220723%_))) - (let ((_%tl1751617547%_ + (if (gx#stx-pair? _%__stx2082120822%_) + (let ((_%e1761317639%_ + (gx#syntax-e _%__stx2082120822%_))) + (let ((_%tl1761517646%_ (let () (declare (not safe)) - (##cdr _%e1751417540%_))) - (_%hd1751517544%_ + (##cdr _%e1761317639%_))) + (_%hd1761417643%_ (let () (declare (not safe)) - (##car _%e1751417540%_)))) - (_%__kont2072520726%_ - _%tl1751617547%_ - _%hd1751517544%_))) - (_%__kont2072720728%_)))))))) - (let* ((_%g1738217393%_ - (lambda (_%g1738317389%_) + (##car _%e1761317639%_)))) + (_%__kont2082420825%_ + _%tl1761517646%_ + _%hd1761417643%_))) + (_%__kont2082620827%_)))))))) + (let* ((_%g1748117492%_ + (lambda (_%g1748217488%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1738317389%_))) - (_%g1738117494%_ - (lambda (_%g1738317397%_) - (if (gx#stx-pair? _%g1738317397%_) - (let ((_%e1738517400%_ (gx#syntax-e _%g1738317397%_))) - (let ((_%hd1738617404%_ + _%g1748217488%_))) + (_%g1748017593%_ + (lambda (_%g1748217496%_) + (if (gx#stx-pair? _%g1748217496%_) + (let ((_%e1748417499%_ (gx#syntax-e _%g1748217496%_))) + (let ((_%hd1748517503%_ (let () (declare (not safe)) - (##car _%e1738517400%_))) - (_%tl1738717407%_ + (##car _%e1748417499%_))) + (_%tl1748617506%_ (let () (declare (not safe)) - (##cdr _%e1738517400%_)))) - ((lambda (_%L17410%_) - (if (and (gx#stx-list? _%L17410%_) - (not (gx#stx-null? _%L17410%_))) - (let ((_g20975_ - (_%generate17379%_ _%L17410%_))) + (##cdr _%e1748417499%_)))) + ((lambda (_%L17509%_) + (if (and (gx#stx-list? _%L17509%_) + (not (gx#stx-null? _%L17509%_))) + (let ((_g21074_ + (_%generate17478%_ _%L17509%_))) (begin - (let ((_g20976_ + (let ((_g21075_ (let () (declare (not safe)) - (if (##values? _g20975_) - (##vector-length _g20975_) + (if (##values? _g21074_) + (##values-length _g21074_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20976_ 3))) + (##fx= _g21075_ 3))) (error "Context expects 3 values" - _g20976_))) - (let ((_%hd17423%_ + _g21075_))) + (let ((_%hd17522%_ (let () (declare (not safe)) - (##vector-ref _g20975_ 0))) - (_%body17425%_ + (##values-ref _g21074_ 0))) + (_%body17524%_ (let () (declare (not safe)) - (##vector-ref _g20975_ 1))) - (_%tail?17426%_ + (##values-ref _g21074_ 1))) + (_%tail?17525%_ (let () (declare (not safe)) - (##vector-ref _g20975_ 2)))) - (let* ((_%g1742817436%_ - (lambda (_%g1742917432%_) + (##values-ref _g21074_ 2)))) + (let* ((_%g1752717535%_ + (lambda (_%g1752817531%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1742917432%_))) - (_%g1742717490%_ - (lambda (_%g1742917440%_) - ((lambda (_%L17443%_) - (let* ((_%g1745617464%_ - (lambda (_%g1745717460%_) + _%g1752817531%_))) + (_%g1752617589%_ + (lambda (_%g1752817539%_) + ((lambda (_%L17542%_) + (let* ((_%g1755517563%_ + (lambda (_%g1755617559%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g1745717460%_))) - (_%g1745517486%_ - (lambda (_%g1745717468%_) - ((lambda (_%L17471%_) - (if _%tail?17426%_ + _%g1755617559%_))) + (_%g1755417585%_ + (lambda (_%g1755617567%_) + ((lambda (_%L17570%_) + (if _%tail?17525%_ (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L17443%_ + (cons _%L17542%_ (cons (cons (gx#datum->syntax '#f 'apply) - _%L17471%_) + _%L17570%_) '()))) (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L17443%_ (cons _%L17471%_ '()))))) - _%g1745717468%_)))) - (_%g1745517486%_ _%body17425%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1742917440%_)))) - (_%g1742717490%_ _%hd17423%_))))) - (_%g1738217393%_ _%g1738317397%_))) - _%tl1738717407%_))) - (_%g1738217393%_ _%g1738317397%_))))) - (_%g1738117494%_ _%stx17376%_))))) + (cons _%L17542%_ (cons _%L17570%_ '()))))) + _%g1755617567%_)))) + (_%g1755417585%_ _%body17524%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g1752817539%_)))) + (_%g1752617589%_ _%hd17522%_))))) + (_%g1748117492%_ _%g1748217496%_))) + _%tl1748617506%_))) + (_%g1748117492%_ _%g1748217496%_))))) + (_%g1748017593%_ _%stx17475%_))))) (define |gerbil/core/sugar~Sugar-2[:0:]#<>| - (lambda (_%$stx17624%_) - (let ((_%g1762717634%_ - (lambda (_%g1762817630%_) + (lambda (_%$stx17723%_) + (let ((_%g1772617733%_ + (lambda (_%g1772717729%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1762817630%_)))) - (_%g1762717634%_ _%$stx17624%_)))) + _%g1772717729%_)))) + (_%g1772617733%_ _%$stx17723%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#<...>| - (lambda (_%$stx17638%_) - (let ((_%g1764117648%_ - (lambda (_%g1764217644%_) + (lambda (_%$stx17737%_) + (let ((_%g1774017747%_ + (lambda (_%g1774117743%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1764217644%_)))) - (_%g1764117648%_ _%$stx17638%_)))))) + _%g1774117743%_)))) + (_%g1774017747%_ _%$stx17737%_)))))) diff --git a/src/bootstrap/gerbil/core/sugar~3.scm b/src/bootstrap/gerbil/core/sugar~3.scm index 5c3489ae5..b04b624f6 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]#_g20983_| + (define |gerbil/core/sugar~Sugar-3[1]#_g21082_| (##structure gx#syntax-quote::t 'quote @@ -9,572 +9,572 @@ '())) (begin (define |gerbil/core/sugar~Sugar-3[:0:]#defsyntax| - (lambda (_%$stx17653%_) - (let* ((_%__stx2073820739%_ _%$stx17653%_) - (_%g1765817697%_ + (lambda (_%$stx17752%_) + (let* ((_%__stx2083720838%_ _%$stx17752%_) + (_%g1775717796%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2073820739%_)))) - (let ((_%__kont2074120742%_ - (lambda (_%L17820%_ _%L17822%_ _%L17823%_) + _%__stx2083720838%_)))) + (let ((_%__kont2084020841%_ + (lambda (_%L17919%_ _%L17921%_ _%L17922%_) (cons (gx#datum->syntax '#f 'define-syntax) - (cons _%L17823%_ + (cons _%L17922%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L17822%_ - (foldr (lambda (_%g1784217845%_ + (cons _%L17921%_ + (foldr (lambda (_%g1794117944%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1784317848%_) - (cons _%g1784217845%_ _%g1784317848%_)) + _%g1794217947%_) + (cons _%g1794117944%_ _%g1794217947%_)) '() - _%L17820%_))) + _%L17919%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont2074520746%_ - (lambda (_%L17734%_ _%L17736%_) + (_%__kont2084420845%_ + (lambda (_%L17833%_ _%L17835%_) (cons (gx#datum->syntax '#f 'define-syntax) - (cons _%L17736%_ (cons _%L17734%_ '())))))) - (let* ((_%__match2079320794%_ - (lambda (_%e1768317704%_ - _%hd1768417708%_ - _%tl1768517711%_ - _%e1768617714%_ - _%hd1768717718%_ - _%tl1768817721%_ - _%e1768917724%_ - _%hd1769017728%_ - _%tl1769117731%_) - (let ((_%L17734%_ _%hd1769017728%_) - (_%L17736%_ _%hd1768717718%_)) - (if (gx#identifier? _%L17736%_) - (_%__kont2074520746%_ _%L17734%_ _%L17736%_) - (let () (declare (not safe)) (_%g1765817697%_)))))) - (_%__match2078520786%_ - (lambda (_%e1768317704%_ - _%hd1768417708%_ - _%tl1768517711%_ - _%e1768617714%_ - _%hd1768717718%_ - _%tl1768817721%_) - (if (gx#stx-pair? _%tl1768817721%_) - (let ((_%e1768917724%_ - (gx#syntax-e _%tl1768817721%_))) - (let ((_%tl1769117731%_ + (cons _%L17835%_ (cons _%L17833%_ '())))))) + (let* ((_%__match2089220893%_ + (lambda (_%e1778217803%_ + _%hd1778317807%_ + _%tl1778417810%_ + _%e1778517813%_ + _%hd1778617817%_ + _%tl1778717820%_ + _%e1778817823%_ + _%hd1778917827%_ + _%tl1779017830%_) + (let ((_%L17833%_ _%hd1778917827%_) + (_%L17835%_ _%hd1778617817%_)) + (if (gx#identifier? _%L17835%_) + (_%__kont2084420845%_ _%L17833%_ _%L17835%_) + (let () (declare (not safe)) (_%g1775717796%_)))))) + (_%__match2088420885%_ + (lambda (_%e1778217803%_ + _%hd1778317807%_ + _%tl1778417810%_ + _%e1778517813%_ + _%hd1778617817%_ + _%tl1778717820%_) + (if (gx#stx-pair? _%tl1778717820%_) + (let ((_%e1778817823%_ + (gx#syntax-e _%tl1778717820%_))) + (let ((_%tl1779017830%_ (let () (declare (not safe)) - (##cdr _%e1768917724%_))) - (_%hd1769017728%_ + (##cdr _%e1778817823%_))) + (_%hd1778917827%_ (let () (declare (not safe)) - (##car _%e1768917724%_)))) - (if (gx#stx-null? _%tl1769117731%_) - (_%__match2079320794%_ - _%e1768317704%_ - _%hd1768417708%_ - _%tl1768517711%_ - _%e1768617714%_ - _%hd1768717718%_ - _%tl1768817721%_ - _%e1768917724%_ - _%hd1769017728%_ - _%tl1769117731%_) + (##car _%e1778817823%_)))) + (if (gx#stx-null? _%tl1779017830%_) + (_%__match2089220893%_ + _%e1778217803%_ + _%hd1778317807%_ + _%tl1778417810%_ + _%e1778517813%_ + _%hd1778617817%_ + _%tl1778717820%_ + _%e1778817823%_ + _%hd1778917827%_ + _%tl1779017830%_) (let () (declare (not safe)) - (_%g1765817697%_))))) - (let () (declare (not safe)) (_%g1765817697%_))))) - (_%__match2077320774%_ - (lambda (_%e1766317760%_ - _%hd1766417764%_ - _%tl1766517767%_ - _%e1766617770%_ - _%hd1766717774%_ - _%tl1766817777%_ - _%e1766917780%_ - _%hd1767017784%_ - _%tl1767117787%_ - _%__splice2074320744%_ - _%target1767217790%_ - _%tl1767417793%_) - (letrec ((_%loop1767517796%_ - (lambda (_%hd1767317800%_ _%body1767917803%_) - (if (gx#stx-pair? _%hd1767317800%_) - (let ((_%e1767617806%_ - (gx#syntax-e _%hd1767317800%_))) - (let ((_%lp-tl1767817813%_ + (_%g1775717796%_))))) + (let () (declare (not safe)) (_%g1775717796%_))))) + (_%__match2087220873%_ + (lambda (_%e1776217859%_ + _%hd1776317863%_ + _%tl1776417866%_ + _%e1776517869%_ + _%hd1776617873%_ + _%tl1776717876%_ + _%e1776817879%_ + _%hd1776917883%_ + _%tl1777017886%_ + _%__splice2084220843%_ + _%target1777117889%_ + _%tl1777317892%_) + (letrec ((_%loop1777417895%_ + (lambda (_%hd1777217899%_ _%body1777817902%_) + (if (gx#stx-pair? _%hd1777217899%_) + (let ((_%e1777517905%_ + (gx#syntax-e _%hd1777217899%_))) + (let ((_%lp-tl1777717912%_ (let () (declare (not safe)) - (##cdr _%e1767617806%_))) - (_%lp-hd1767717810%_ + (##cdr _%e1777517905%_))) + (_%lp-hd1777617909%_ (let () (declare (not safe)) - (##car _%e1767617806%_)))) - (_%loop1767517796%_ - _%lp-tl1767817813%_ - (cons _%lp-hd1767717810%_ - _%body1767917803%_)))) - (let ((_%body1768017816%_ - (reverse _%body1767917803%_))) - (let ((_%L17820%_ _%body1768017816%_) - (_%L17822%_ _%tl1767117787%_) - (_%L17823%_ _%hd1767017784%_)) - (if (gx#identifier? _%L17823%_) - (_%__kont2074120742%_ - _%L17820%_ - _%L17822%_ - _%L17823%_) - (_%__match2078520786%_ - _%e1766317760%_ - _%hd1766417764%_ - _%tl1766517767%_ - _%e1766617770%_ - _%hd1766717774%_ - _%tl1766817777%_)))))))) - (_%loop1767517796%_ _%target1767217790%_ '()))))) - (if (gx#stx-pair? _%__stx2073820739%_) - (let ((_%e1766317760%_ (gx#syntax-e _%__stx2073820739%_))) - (let ((_%tl1766517767%_ + (##car _%e1777517905%_)))) + (_%loop1777417895%_ + _%lp-tl1777717912%_ + (cons _%lp-hd1777617909%_ + _%body1777817902%_)))) + (let ((_%body1777917915%_ + (reverse _%body1777817902%_))) + (let ((_%L17919%_ _%body1777917915%_) + (_%L17921%_ _%tl1777017886%_) + (_%L17922%_ _%hd1776917883%_)) + (if (gx#identifier? _%L17922%_) + (_%__kont2084020841%_ + _%L17919%_ + _%L17921%_ + _%L17922%_) + (_%__match2088420885%_ + _%e1776217859%_ + _%hd1776317863%_ + _%tl1776417866%_ + _%e1776517869%_ + _%hd1776617873%_ + _%tl1776717876%_)))))))) + (_%loop1777417895%_ _%target1777117889%_ '()))))) + (if (gx#stx-pair? _%__stx2083720838%_) + (let ((_%e1776217859%_ (gx#syntax-e _%__stx2083720838%_))) + (let ((_%tl1776417866%_ (let () (declare (not safe)) - (##cdr _%e1766317760%_))) - (_%hd1766417764%_ + (##cdr _%e1776217859%_))) + (_%hd1776317863%_ (let () (declare (not safe)) - (##car _%e1766317760%_)))) - (if (gx#stx-pair? _%tl1766517767%_) - (let ((_%e1766617770%_ - (gx#syntax-e _%tl1766517767%_))) - (let ((_%tl1766817777%_ + (##car _%e1776217859%_)))) + (if (gx#stx-pair? _%tl1776417866%_) + (let ((_%e1776517869%_ + (gx#syntax-e _%tl1776417866%_))) + (let ((_%tl1776717876%_ (let () (declare (not safe)) - (##cdr _%e1766617770%_))) - (_%hd1766717774%_ + (##cdr _%e1776517869%_))) + (_%hd1776617873%_ (let () (declare (not safe)) - (##car _%e1766617770%_)))) - (if (gx#stx-pair? _%hd1766717774%_) - (let ((_%e1766917780%_ - (gx#syntax-e _%hd1766717774%_))) - (let ((_%tl1767117787%_ + (##car _%e1776517869%_)))) + (if (gx#stx-pair? _%hd1776617873%_) + (let ((_%e1776817879%_ + (gx#syntax-e _%hd1776617873%_))) + (let ((_%tl1777017886%_ (let () (declare (not safe)) - (##cdr _%e1766917780%_))) - (_%hd1767017784%_ + (##cdr _%e1776817879%_))) + (_%hd1776917883%_ (let () (declare (not safe)) - (##car _%e1766917780%_)))) - (if (gx#stx-pair/null? _%tl1766817777%_) - (let ((_%__splice2074320744%_ + (##car _%e1776817879%_)))) + (if (gx#stx-pair/null? _%tl1776717876%_) + (let ((_%__splice2084220843%_ (gx#syntax-split-splice - _%tl1766817777%_ + _%tl1776717876%_ '0))) - (let ((_%tl1767417793%_ + (let ((_%tl1777317892%_ (let () (declare (not safe)) (##vector-ref - _%__splice2074320744%_ + _%__splice2084220843%_ '1))) - (_%target1767217790%_ + (_%target1777117889%_ (let () (declare (not safe)) (##vector-ref - _%__splice2074320744%_ + _%__splice2084220843%_ '0)))) (if (gx#stx-null? - _%tl1767417793%_) - (_%__match2077320774%_ - _%e1766317760%_ - _%hd1766417764%_ - _%tl1766517767%_ - _%e1766617770%_ - _%hd1766717774%_ - _%tl1766817777%_ - _%e1766917780%_ - _%hd1767017784%_ - _%tl1767117787%_ - _%__splice2074320744%_ - _%target1767217790%_ - _%tl1767417793%_) + _%tl1777317892%_) + (_%__match2087220873%_ + _%e1776217859%_ + _%hd1776317863%_ + _%tl1776417866%_ + _%e1776517869%_ + _%hd1776617873%_ + _%tl1776717876%_ + _%e1776817879%_ + _%hd1776917883%_ + _%tl1777017886%_ + _%__splice2084220843%_ + _%target1777117889%_ + _%tl1777317892%_) (if (gx#stx-pair? - _%tl1766817777%_) - (let ((_%e1768917724%_ + _%tl1776717876%_) + (let ((_%e1778817823%_ (gx#syntax-e - _%tl1766817777%_))) - (let ((_%tl1769117731%_ + _%tl1776717876%_))) + (let ((_%tl1779017830%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e1768917724%_))) - (_%hd1769017728%_ - (let () (declare (not safe)) (##car _%e1768917724%_)))) - (if (gx#stx-null? _%tl1769117731%_) - (_%__match2079320794%_ - _%e1766317760%_ - _%hd1766417764%_ - _%tl1766517767%_ - _%e1766617770%_ - _%hd1766717774%_ - _%tl1766817777%_ - _%e1768917724%_ - _%hd1769017728%_ - _%tl1769117731%_) - (let () (declare (not safe)) (_%g1765817697%_))))) - (let () (declare (not safe)) (_%g1765817697%_)))))) + (##cdr _%e1778817823%_))) + (_%hd1778917827%_ + (let () (declare (not safe)) (##car _%e1778817823%_)))) + (if (gx#stx-null? _%tl1779017830%_) + (_%__match2089220893%_ + _%e1776217859%_ + _%hd1776317863%_ + _%tl1776417866%_ + _%e1776517869%_ + _%hd1776617873%_ + _%tl1776717876%_ + _%e1778817823%_ + _%hd1778917827%_ + _%tl1779017830%_) + (let () (declare (not safe)) (_%g1775717796%_))))) + (let () (declare (not safe)) (_%g1775717796%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl1766817777%_) - (let ((_%e1768917724%_ + (if (gx#stx-pair? _%tl1776717876%_) + (let ((_%e1778817823%_ (gx#syntax-e - _%tl1766817777%_))) - (let ((_%tl1769117731%_ + _%tl1776717876%_))) + (let ((_%tl1779017830%_ (let () (declare (not safe)) - (##cdr _%e1768917724%_))) - (_%hd1769017728%_ + (##cdr _%e1778817823%_))) + (_%hd1778917827%_ (let () (declare (not safe)) - (##car _%e1768917724%_)))) + (##car _%e1778817823%_)))) (if (gx#stx-null? - _%tl1769117731%_) - (_%__match2079320794%_ - _%e1766317760%_ - _%hd1766417764%_ - _%tl1766517767%_ - _%e1766617770%_ - _%hd1766717774%_ - _%tl1766817777%_ - _%e1768917724%_ - _%hd1769017728%_ - _%tl1769117731%_) + _%tl1779017830%_) + (_%__match2089220893%_ + _%e1776217859%_ + _%hd1776317863%_ + _%tl1776417866%_ + _%e1776517869%_ + _%hd1776617873%_ + _%tl1776717876%_ + _%e1778817823%_ + _%hd1778917827%_ + _%tl1779017830%_) (let () (declare (not safe)) - (_%g1765817697%_))))) + (_%g1775717796%_))))) (let () (declare (not safe)) - (_%g1765817697%_)))))) - (if (gx#stx-pair? _%tl1766817777%_) - (let ((_%e1768917724%_ - (gx#syntax-e _%tl1766817777%_))) - (let ((_%tl1769117731%_ + (_%g1775717796%_)))))) + (if (gx#stx-pair? _%tl1776717876%_) + (let ((_%e1778817823%_ + (gx#syntax-e _%tl1776717876%_))) + (let ((_%tl1779017830%_ (let () (declare (not safe)) - (##cdr _%e1768917724%_))) - (_%hd1769017728%_ + (##cdr _%e1778817823%_))) + (_%hd1778917827%_ (let () (declare (not safe)) - (##car _%e1768917724%_)))) - (if (gx#stx-null? _%tl1769117731%_) - (_%__match2079320794%_ - _%e1766317760%_ - _%hd1766417764%_ - _%tl1766517767%_ - _%e1766617770%_ - _%hd1766717774%_ - _%tl1766817777%_ - _%e1768917724%_ - _%hd1769017728%_ - _%tl1769117731%_) + (##car _%e1778817823%_)))) + (if (gx#stx-null? _%tl1779017830%_) + (_%__match2089220893%_ + _%e1776217859%_ + _%hd1776317863%_ + _%tl1776417866%_ + _%e1776517869%_ + _%hd1776617873%_ + _%tl1776717876%_ + _%e1778817823%_ + _%hd1778917827%_ + _%tl1779017830%_) (let () (declare (not safe)) - (_%g1765817697%_))))) + (_%g1775717796%_))))) (let () (declare (not safe)) - (_%g1765817697%_)))))) - (let () (declare (not safe)) (_%g1765817697%_))))) - (let () (declare (not safe)) (_%g1765817697%_)))))))) + (_%g1775717796%_)))))) + (let () (declare (not safe)) (_%g1775717796%_))))) + (let () (declare (not safe)) (_%g1775717796%_)))))))) (define |gerbil/core/sugar~Sugar-3[:0:]#definline| - (lambda (_%stx17856%_) - (let* ((_%g1785917896%_ - (lambda (_%g1786017892%_) + (lambda (_%stx17955%_) + (let* ((_%g1795817995%_ + (lambda (_%g1795917991%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1786017892%_))) - (_%g1785818257%_ - (lambda (_%g1786017900%_) - (if (gx#stx-pair? _%g1786017900%_) - (let ((_%e1786417903%_ (gx#syntax-e _%g1786017900%_))) - (let ((_%hd1786517907%_ + _%g1795917991%_))) + (_%g1795718356%_ + (lambda (_%g1795917999%_) + (if (gx#stx-pair? _%g1795917999%_) + (let ((_%e1796318002%_ (gx#syntax-e _%g1795917999%_))) + (let ((_%hd1796418006%_ (let () (declare (not safe)) - (##car _%e1786417903%_))) - (_%tl1786617910%_ + (##car _%e1796318002%_))) + (_%tl1796518009%_ (let () (declare (not safe)) - (##cdr _%e1786417903%_)))) - (if (gx#stx-pair? _%tl1786617910%_) - (let ((_%e1786717913%_ - (gx#syntax-e _%tl1786617910%_))) - (let ((_%hd1786817917%_ + (##cdr _%e1796318002%_)))) + (if (gx#stx-pair? _%tl1796518009%_) + (let ((_%e1796618012%_ + (gx#syntax-e _%tl1796518009%_))) + (let ((_%hd1796718016%_ (let () (declare (not safe)) - (##car _%e1786717913%_))) - (_%tl1786917920%_ + (##car _%e1796618012%_))) + (_%tl1796818019%_ (let () (declare (not safe)) - (##cdr _%e1786717913%_)))) - (if (gx#stx-pair? _%hd1786817917%_) - (let ((_%e1787017923%_ - (gx#syntax-e _%hd1786817917%_))) - (let ((_%hd1787117927%_ + (##cdr _%e1796618012%_)))) + (if (gx#stx-pair? _%hd1796718016%_) + (let ((_%e1796918022%_ + (gx#syntax-e _%hd1796718016%_))) + (let ((_%hd1797018026%_ (let () (declare (not safe)) - (##car _%e1787017923%_))) - (_%tl1787217930%_ + (##car _%e1796918022%_))) + (_%tl1797118029%_ (let () (declare (not safe)) - (##cdr _%e1787017923%_)))) + (##cdr _%e1796918022%_)))) (if (gx#stx-pair/null? - _%tl1787217930%_) - (let ((_g20977_ + _%tl1797118029%_) + (let ((_g21076_ (gx#syntax-split-splice - _%tl1787217930%_ + _%tl1797118029%_ '0))) (begin - (let ((_g20978_ + (let ((_g21077_ (let () (declare (not safe)) (if (##values? - _g20977_) - (##vector-length - _g20977_) + _g21076_) + (##values-length + _g21076_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g20978_ 2))) - (error "Context expects 2 values" _g20978_))) + (##fx= _g21077_ 2))) + (error "Context expects 2 values" _g21077_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1787317933%_ + (let ((_%target1797218032%_ (let () (declare (not safe)) - (##vector-ref - _g20977_ + (##values-ref + _g21076_ 0))) - (_%tl1787517936%_ + (_%tl1797418035%_ (let () (declare (not safe)) - (##vector-ref - _g20977_ + (##values-ref + _g21076_ 1)))) (if (gx#stx-null? - _%tl1787517936%_) - (letrec ((_%loop1787617939%_ + _%tl1797418035%_) + (letrec ((_%loop1797518038%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1787417943%_ _%arg1788017946%_) - (if (gx#stx-pair? _%hd1787417943%_) - (let ((_%e1787717949%_ - (gx#syntax-e _%hd1787417943%_))) - (let ((_%lp-hd1787817953%_ + (lambda (_%hd1797318042%_ _%arg1797918045%_) + (if (gx#stx-pair? _%hd1797318042%_) + (let ((_%e1797618048%_ + (gx#syntax-e _%hd1797318042%_))) + (let ((_%lp-hd1797718052%_ (let () (declare (not safe)) - (##car _%e1787717949%_))) - (_%lp-tl1787917956%_ + (##car _%e1797618048%_))) + (_%lp-tl1797818055%_ (let () (declare (not safe)) - (##cdr _%e1787717949%_)))) - (_%loop1787617939%_ - _%lp-tl1787917956%_ - (cons _%lp-hd1787817953%_ - _%arg1788017946%_)))) - (let ((_%arg1788117959%_ - (reverse _%arg1788017946%_))) - (if (gx#stx-pair/null? _%tl1786917920%_) - (let ((_g20979_ + (##cdr _%e1797618048%_)))) + (_%loop1797518038%_ + _%lp-tl1797818055%_ + (cons _%lp-hd1797718052%_ + _%arg1797918045%_)))) + (let ((_%arg1798018058%_ + (reverse _%arg1797918045%_))) + (if (gx#stx-pair/null? _%tl1796818019%_) + (let ((_g21078_ (gx#syntax-split-splice - _%tl1786917920%_ + _%tl1796818019%_ '0))) (begin - (let ((_g20980_ + (let ((_g21079_ (let () (declare (not safe)) - (if (##values? _g20979_) - (##vector-length - _g20979_) + (if (##values? _g21078_) + (##values-length + _g21078_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20980_ 2))) + (##fx= _g21079_ 2))) (error "Context expects 2 values" - _g20980_))) - (let ((_%target1788217963%_ + _g21079_))) + (let ((_%target1798118062%_ (let () (declare (not safe)) - (##vector-ref _g20979_ 0))) - (_%tl1788417966%_ + (##values-ref _g21078_ 0))) + (_%tl1798318065%_ (let () (declare (not safe)) - (##vector-ref _g20979_ 1)))) - (if (gx#stx-null? _%tl1788417966%_) - (letrec ((_%loop1788517969%_ - (lambda (_%hd1788317973%_ + (##values-ref _g21078_ 1)))) + (if (gx#stx-null? _%tl1798318065%_) + (letrec ((_%loop1798418068%_ + (lambda (_%hd1798218072%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body1788917976%_) - (if (gx#stx-pair? _%hd1788317973%_) - (let ((_%e1788617979%_ (gx#syntax-e _%hd1788317973%_))) - (let ((_%lp-hd1788717983%_ + _%body1798818075%_) + (if (gx#stx-pair? _%hd1798218072%_) + (let ((_%e1798518078%_ (gx#syntax-e _%hd1798218072%_))) + (let ((_%lp-hd1798618082%_ (let () (declare (not safe)) - (##car _%e1788617979%_))) - (_%lp-tl1788817986%_ + (##car _%e1798518078%_))) + (_%lp-tl1798718085%_ (let () (declare (not safe)) - (##cdr _%e1788617979%_)))) - (_%loop1788517969%_ - _%lp-tl1788817986%_ - (cons _%lp-hd1788717983%_ _%body1788917976%_)))) - (let ((_%body1789017989%_ - (reverse _%body1788917976%_))) - ((lambda (_%L17993%_ _%L17995%_ _%L17996%_) - (if (and (gx#identifier? _%L17996%_) + (##cdr _%e1798518078%_)))) + (_%loop1798418068%_ + _%lp-tl1798718085%_ + (cons _%lp-hd1798618082%_ _%body1798818075%_)))) + (let ((_%body1798918088%_ + (reverse _%body1798818075%_))) + ((lambda (_%L18092%_ _%L18094%_ _%L18095%_) + (if (and (gx#identifier? _%L18095%_) (gx#identifier-list? - (foldr (lambda (_%g1802018023%_ - _%g1802118026%_) - (cons _%g1802018023%_ - _%g1802118026%_)) + (foldr (lambda (_%g1811918122%_ + _%g1812018125%_) + (cons _%g1811918122%_ + _%g1812018125%_)) '() - _%L17995%_))) - (let* ((_%g1802918037%_ - (lambda (_%g1803018033%_) + _%L18094%_))) + (let* ((_%g1812818136%_ + (lambda (_%g1812918132%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1803018033%_))) - (_%g1802818253%_ - (lambda (_%g1803018041%_) - ((lambda (_%L18044%_) - (let* ((_%g1805618073%_ - (lambda (_%g1805718069%_) + _%g1812918132%_))) + (_%g1812718352%_ + (lambda (_%g1812918140%_) + ((lambda (_%L18143%_) + (let* ((_%g1815518172%_ + (lambda (_%g1815618168%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1805718069%_))) - (_%g1805518241%_ - (lambda (_%g1805718077%_) + _%g1815618168%_))) + (_%g1815418340%_ + (lambda (_%g1815618176%_) (if (gx#stx-pair/null? - _%g1805718077%_) - (let ((_g20981_ + _%g1815618176%_) + (let ((_g21080_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g1805718077%_ '0))) + (gx#syntax-split-splice _%g1815618176%_ '0))) (begin - (let ((_g20982_ + (let ((_g21081_ (let () (declare (not safe)) - (if (##values? _g20981_) - (##vector-length _g20981_) + (if (##values? _g21080_) + (##values-length _g21080_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20982_ 2))) - (error "Context expects 2 values" _g20982_))) - (let ((_%target1805918080%_ + (##fx= _g21081_ 2))) + (error "Context expects 2 values" _g21081_))) + (let ((_%target1815818179%_ (let () (declare (not safe)) - (##vector-ref _g20981_ 0))) - (_%tl1806118083%_ + (##values-ref _g21080_ 0))) + (_%tl1816018182%_ (let () (declare (not safe)) - (##vector-ref _g20981_ 1)))) - (if (gx#stx-null? _%tl1806118083%_) - (letrec ((_%loop1806218086%_ - (lambda (_%hd1806018090%_ - _%xarg1806618093%_) - (if (gx#stx-pair? _%hd1806018090%_) - (let ((_%e1806318096%_ + (##values-ref _g21080_ 1)))) + (if (gx#stx-null? _%tl1816018182%_) + (letrec ((_%loop1816118185%_ + (lambda (_%hd1815918189%_ + _%xarg1816518192%_) + (if (gx#stx-pair? _%hd1815918189%_) + (let ((_%e1816218195%_ (gx#syntax-e - _%hd1806018090%_))) - (let ((_%lp-hd1806418100%_ + _%hd1815918189%_))) + (let ((_%lp-hd1816318199%_ (let () (declare (not safe)) - (##car _%e1806318096%_))) - (_%lp-tl1806518103%_ + (##car _%e1816218195%_))) + (_%lp-tl1816418202%_ (let () (declare (not safe)) - (##cdr _%e1806318096%_)))) - (_%loop1806218086%_ - _%lp-tl1806518103%_ - (cons _%lp-hd1806418100%_ - _%xarg1806618093%_)))) - (let ((_%xarg1806718106%_ - (reverse _%xarg1806618093%_))) - ((lambda (_%L18110%_) - (let* ((_%g1812718135%_ - (lambda (_%g1812818131%_) + (##cdr _%e1816218195%_)))) + (_%loop1816118185%_ + _%lp-tl1816418202%_ + (cons _%lp-hd1816318199%_ + _%xarg1816518192%_)))) + (let ((_%xarg1816618205%_ + (reverse _%xarg1816518192%_))) + ((lambda (_%L18209%_) + (let* ((_%g1822618234%_ + (lambda (_%g1822718230%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1812818131%_))) - (_%g1812618205%_ - (lambda (_%g1812818139%_) - ((lambda (_%L18142%_) - (let* ((_%g1815518163%_ + _%g1822718230%_))) + (_%g1822518304%_ + (lambda (_%g1822718238%_) + ((lambda (_%L18241%_) + (let* ((_%g1825418262%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g1815618159%_) + (lambda (_%g1825518258%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1815618159%_))) - (_%g1815418185%_ - (lambda (_%g1815618167%_) - ((lambda (_%L18170%_) + _%g1825518258%_))) + (_%g1825318284%_ + (lambda (_%g1825518266%_) + ((lambda (_%L18269%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'begin) - (cons _%L18170%_ - (cons _%L18142%_ '()))) - (gx#stx-source _%stx17856%_))) - _%g1815618167%_)))) - (_%g1815418185%_ + (cons _%L18269%_ + (cons _%L18241%_ '()))) + (gx#stx-source _%stx17955%_))) + _%g1825518266%_)))) + (_%g1825318284%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L18044%_ - (foldr (lambda (_%g1819018193%_ - _%g1819118196%_) - (cons _%g1819018193%_ - _%g1819118196%_)) + (cons (cons _%L18143%_ + (foldr (lambda (_%g1828918292%_ + _%g1829018295%_) + (cons _%g1828918292%_ + _%g1829018295%_)) '() - _%L17995%_)) - (foldr (lambda (_%g1818818199%_ - _%g1818918202%_) - (cons _%g1818818199%_ - _%g1818918202%_)) + _%L18094%_)) + (foldr (lambda (_%g1828718298%_ + _%g1828818301%_) + (cons _%g1828718298%_ + _%g1828818301%_)) '() - _%L17993%_))) - (gx#stx-source _%stx17856%_))))) - _%g1812818139%_)))) + _%L18092%_))) + (gx#stx-source _%stx17955%_))))) + _%g1822718238%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1812618205%_ + (_%g1822518304%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'defrules) - (cons _%L17996%_ + (cons _%L18095%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '() (cons (cons (cons (gx#datum->syntax '#f '_) - (foldr (lambda (_%g1821418217%_ + (foldr (lambda (_%g1831318316%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1821518220%_) - (cons _%g1821418217%_ _%g1821518220%_)) + _%g1831418319%_) + (cons _%g1831318316%_ _%g1831418319%_)) '() - _%L18110%_)) + _%L18209%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (foldr (lambda (_%g1821218223%_ + (cons (foldr (lambda (_%g1831118322%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1821318226%_) - (cons _%g1821218223%_ _%g1821318226%_)) + _%g1831218325%_) + (cons _%g1831118322%_ _%g1831218325%_)) '() - _%L17995%_) - (foldr (lambda (_%g1821018229%_ _%g1821118232%_) - (cons _%g1821018229%_ _%g1821118232%_)) + _%L18094%_) + (foldr (lambda (_%g1830918328%_ _%g1831018331%_) + (cons _%g1830918328%_ _%g1831018331%_)) '() - _%L17993%_))) - (foldr (lambda (_%g1820818235%_ _%g1820918238%_) - (cons _%g1820818235%_ _%g1820918238%_)) + _%L18092%_))) + (foldr (lambda (_%g1830718334%_ _%g1830818337%_) + (cons _%g1830718334%_ _%g1830818337%_)) '() - _%L18110%_)) + _%L18209%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'ref) @@ -587,64 +587,64 @@ 'syntax) (cons (gx#datum->syntax '#f 'ref) '())) '())) - (cons _%L18044%_ '()))) + (cons _%L18143%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (gx#stx-source _%stx17856%_))))) + (gx#stx-source _%stx17955%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%xarg1806718106%_)))))) - (_%loop1806218086%_ _%target1805918080%_ '())) - (_%g1805618073%_ _%g1805718077%_))))) - (_%g1805618073%_ _%g1805718077%_))))) + _%xarg1816618205%_)))))) + (_%loop1816118185%_ _%target1815818179%_ '())) + (_%g1815518172%_ _%g1815618176%_))))) + (_%g1815518172%_ _%g1815618176%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1805518241%_ + (_%g1815418340%_ (gx#gentemps - (foldr (lambda (_%g1824418247%_ + (foldr (lambda (_%g1834318346%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1824518250%_) - (cons _%g1824418247%_ _%g1824518250%_)) + _%g1834418349%_) + (cons _%g1834318346%_ _%g1834418349%_)) '() - _%L17995%_))))) + _%L18094%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1803018041%_)))) - (_%g1802818253%_ + _%g1812918140%_)))) + (_%g1812718352%_ (gx#stx-identifier - _%L17996%_ - _%L17996%_ + _%L18095%_ + _%L18095%_ '"__impl"))) - (_%g1785917896%_ _%g1786017900%_))) - _%body1789017989%_ - _%arg1788117959%_ - _%hd1787117927%_)))))) + (_%g1795817995%_ _%g1795917999%_))) + _%body1798918088%_ + _%arg1798018058%_ + _%hd1797018026%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1788517969%_ - _%target1788217963%_ + (_%loop1798418068%_ + _%target1798118062%_ '())) - (_%g1785917896%_ - _%g1786017900%_))))) - (_%g1785917896%_ _%g1786017900%_))))))) - (_%loop1787617939%_ _%target1787317933%_ '())) - (_%g1785917896%_ _%g1786017900%_))))) + (_%g1795817995%_ + _%g1795917999%_))))) + (_%g1795817995%_ _%g1795917999%_))))))) + (_%loop1797518038%_ _%target1797218032%_ '())) + (_%g1795817995%_ _%g1795917999%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1785917896%_ - _%g1786017900%_)))) - (_%g1785917896%_ _%g1786017900%_)))) - (_%g1785917896%_ _%g1786017900%_)))) - (_%g1785917896%_ _%g1786017900%_))))) - (_%g1785818257%_ _%stx17856%_)))) + (_%g1795817995%_ + _%g1795917999%_)))) + (_%g1795817995%_ _%g1795917999%_)))) + (_%g1795817995%_ _%g1795917999%_)))) + (_%g1795817995%_ _%g1795917999%_))))) + (_%g1795718356%_ _%stx17955%_)))) (define |gerbil/core/sugar~Sugar-3[:0:]#defconst| - (lambda (_%$stx18264%_) - (let* ((_%__stx2079620797%_ _%$stx18264%_) - (_%g1826918305%_ + (lambda (_%$stx18363%_) + (let* ((_%__stx2089520896%_ _%$stx18363%_) + (_%g1836818404%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2079620797%_)))) - (let ((_%__kont2079920800%_ - (lambda (_%L18419%_ _%L18421%_) + _%__stx2089520896%_)))) + (let ((_%__kont2089820899%_ + (lambda (_%L18518%_ _%L18520%_) (cons (gx#datum->syntax '#f 'defrules) - (cons _%L18421%_ + (cons _%L18520%_ (cons '() (cons (cons (gx#datum->syntax '#f 'x) (cons (cons (gx#datum->syntax @@ -656,218 +656,218 @@ 'syntax) (cons (gx#datum->syntax '#f 'x) '())) '())) - (cons (cons (gx#datum->syntax '#f 'quote) (cons _%L18419%_ '())) + (cons (cons (gx#datum->syntax '#f 'quote) (cons _%L18518%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont2080120802%_ - (lambda (_%L18342%_ _%L18344%_ _%L18345%_) - (cons _%L18345%_ - (cons _%L18344%_ + (_%__kont2090020901%_ + (lambda (_%L18441%_ _%L18443%_ _%L18444%_) + (cons _%L18444%_ + (cons _%L18443%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L18342%_ '())) + (cons _%L18441%_ '())) '())))))) - (let* ((_%__match2086120862%_ - (lambda (_%e1829118312%_ - _%hd1829218316%_ - _%tl1829318319%_ - _%e1829418322%_ - _%hd1829518326%_ - _%tl1829618329%_ - _%e1829718332%_ - _%hd1829818336%_ - _%tl1829918339%_) - (let ((_%L18342%_ _%hd1829818336%_) - (_%L18344%_ _%hd1829518326%_) - (_%L18345%_ _%hd1829218316%_)) - (if (and (gx#identifier? _%L18344%_) - (gx#stx-datum? _%L18342%_)) - (_%__kont2080120802%_ - _%L18342%_ - _%L18344%_ - _%L18345%_) - (let () (declare (not safe)) (_%g1826918305%_)))))) - (_%__match2084120842%_ - (lambda (_%e1827318369%_ - _%hd1827418373%_ - _%tl1827518376%_ - _%e1827618379%_ - _%hd1827718383%_ - _%tl1827818386%_ - _%e1827918389%_ - _%hd1828018393%_ - _%tl1828118396%_ - _%e1828218399%_ - _%hd1828318403%_ - _%tl1828418406%_ - _%e1828518409%_ - _%hd1828618413%_ - _%tl1828718416%_) - (let ((_%L18419%_ _%hd1828618413%_) - (_%L18421%_ _%hd1827718383%_)) - (if (gx#identifier? _%L18421%_) - (_%__kont2079920800%_ _%L18419%_ _%L18421%_) - (_%__match2086120862%_ - _%e1827318369%_ - _%hd1827418373%_ - _%tl1827518376%_ - _%e1827618379%_ - _%hd1827718383%_ - _%tl1827818386%_ - _%e1827918389%_ - _%hd1828018393%_ - _%tl1828118396%_)))))) - (if (gx#stx-pair? _%__stx2079620797%_) - (let ((_%e1827318369%_ (gx#syntax-e _%__stx2079620797%_))) - (let ((_%tl1827518376%_ + (let* ((_%__match2096020961%_ + (lambda (_%e1839018411%_ + _%hd1839118415%_ + _%tl1839218418%_ + _%e1839318421%_ + _%hd1839418425%_ + _%tl1839518428%_ + _%e1839618431%_ + _%hd1839718435%_ + _%tl1839818438%_) + (let ((_%L18441%_ _%hd1839718435%_) + (_%L18443%_ _%hd1839418425%_) + (_%L18444%_ _%hd1839118415%_)) + (if (and (gx#identifier? _%L18443%_) + (gx#stx-datum? _%L18441%_)) + (_%__kont2090020901%_ + _%L18441%_ + _%L18443%_ + _%L18444%_) + (let () (declare (not safe)) (_%g1836818404%_)))))) + (_%__match2094020941%_ + (lambda (_%e1837218468%_ + _%hd1837318472%_ + _%tl1837418475%_ + _%e1837518478%_ + _%hd1837618482%_ + _%tl1837718485%_ + _%e1837818488%_ + _%hd1837918492%_ + _%tl1838018495%_ + _%e1838118498%_ + _%hd1838218502%_ + _%tl1838318505%_ + _%e1838418508%_ + _%hd1838518512%_ + _%tl1838618515%_) + (let ((_%L18518%_ _%hd1838518512%_) + (_%L18520%_ _%hd1837618482%_)) + (if (gx#identifier? _%L18520%_) + (_%__kont2089820899%_ _%L18518%_ _%L18520%_) + (_%__match2096020961%_ + _%e1837218468%_ + _%hd1837318472%_ + _%tl1837418475%_ + _%e1837518478%_ + _%hd1837618482%_ + _%tl1837718485%_ + _%e1837818488%_ + _%hd1837918492%_ + _%tl1838018495%_)))))) + (if (gx#stx-pair? _%__stx2089520896%_) + (let ((_%e1837218468%_ (gx#syntax-e _%__stx2089520896%_))) + (let ((_%tl1837418475%_ (let () (declare (not safe)) - (##cdr _%e1827318369%_))) - (_%hd1827418373%_ + (##cdr _%e1837218468%_))) + (_%hd1837318472%_ (let () (declare (not safe)) - (##car _%e1827318369%_)))) - (if (gx#stx-pair? _%tl1827518376%_) - (let ((_%e1827618379%_ - (gx#syntax-e _%tl1827518376%_))) - (let ((_%tl1827818386%_ + (##car _%e1837218468%_)))) + (if (gx#stx-pair? _%tl1837418475%_) + (let ((_%e1837518478%_ + (gx#syntax-e _%tl1837418475%_))) + (let ((_%tl1837718485%_ (let () (declare (not safe)) - (##cdr _%e1827618379%_))) - (_%hd1827718383%_ + (##cdr _%e1837518478%_))) + (_%hd1837618482%_ (let () (declare (not safe)) - (##car _%e1827618379%_)))) - (if (gx#stx-pair? _%tl1827818386%_) - (let ((_%e1827918389%_ - (gx#syntax-e _%tl1827818386%_))) - (let ((_%tl1828118396%_ + (##car _%e1837518478%_)))) + (if (gx#stx-pair? _%tl1837718485%_) + (let ((_%e1837818488%_ + (gx#syntax-e _%tl1837718485%_))) + (let ((_%tl1838018495%_ (let () (declare (not safe)) - (##cdr _%e1827918389%_))) - (_%hd1828018393%_ + (##cdr _%e1837818488%_))) + (_%hd1837918492%_ (let () (declare (not safe)) - (##car _%e1827918389%_)))) - (if (gx#stx-pair? _%hd1828018393%_) - (let ((_%e1828218399%_ + (##car _%e1837818488%_)))) + (if (gx#stx-pair? _%hd1837918492%_) + (let ((_%e1838118498%_ (gx#syntax-e - _%hd1828018393%_))) - (let ((_%tl1828418406%_ + _%hd1837918492%_))) + (let ((_%tl1838318505%_ (let () (declare (not safe)) - (##cdr _%e1828218399%_))) - (_%hd1828318403%_ + (##cdr _%e1838118498%_))) + (_%hd1838218502%_ (let () (declare (not safe)) - (##car _%e1828218399%_)))) + (##car _%e1838118498%_)))) (if (gx#identifier? - _%hd1828318403%_) + _%hd1838218502%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-3[1]#_g20983_| - _%hd1828318403%_) + |gerbil/core/sugar~Sugar-3[1]#_g21082_| + _%hd1838218502%_) (if (gx#stx-pair? - _%tl1828418406%_) - (let ((_%e1828518409%_ + _%tl1838318505%_) + (let ((_%e1838418508%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1828418406%_))) - (let ((_%tl1828718416%_ + (gx#syntax-e _%tl1838318505%_))) + (let ((_%tl1838618515%_ (let () (declare (not safe)) - (##cdr _%e1828518409%_))) - (_%hd1828618413%_ + (##cdr _%e1838418508%_))) + (_%hd1838518512%_ (let () (declare (not safe)) - (##car _%e1828518409%_)))) - (if (gx#stx-null? _%tl1828718416%_) - (if (gx#stx-null? _%tl1828118396%_) - (_%__match2084120842%_ - _%e1827318369%_ - _%hd1827418373%_ - _%tl1827518376%_ - _%e1827618379%_ - _%hd1827718383%_ - _%tl1827818386%_ - _%e1827918389%_ - _%hd1828018393%_ - _%tl1828118396%_ - _%e1828218399%_ - _%hd1828318403%_ - _%tl1828418406%_ - _%e1828518409%_ - _%hd1828618413%_ - _%tl1828718416%_) - (let () (declare (not safe)) (_%g1826918305%_))) - (if (gx#stx-null? _%tl1828118396%_) - (_%__match2086120862%_ - _%e1827318369%_ - _%hd1827418373%_ - _%tl1827518376%_ - _%e1827618379%_ - _%hd1827718383%_ - _%tl1827818386%_ - _%e1827918389%_ - _%hd1828018393%_ - _%tl1828118396%_) + (##car _%e1838418508%_)))) + (if (gx#stx-null? _%tl1838618515%_) + (if (gx#stx-null? _%tl1838018495%_) + (_%__match2094020941%_ + _%e1837218468%_ + _%hd1837318472%_ + _%tl1837418475%_ + _%e1837518478%_ + _%hd1837618482%_ + _%tl1837718485%_ + _%e1837818488%_ + _%hd1837918492%_ + _%tl1838018495%_ + _%e1838118498%_ + _%hd1838218502%_ + _%tl1838318505%_ + _%e1838418508%_ + _%hd1838518512%_ + _%tl1838618515%_) + (let () (declare (not safe)) (_%g1836818404%_))) + (if (gx#stx-null? _%tl1838018495%_) + (_%__match2096020961%_ + _%e1837218468%_ + _%hd1837318472%_ + _%tl1837418475%_ + _%e1837518478%_ + _%hd1837618482%_ + _%tl1837718485%_ + _%e1837818488%_ + _%hd1837918492%_ + _%tl1838018495%_) (let () (declare (not safe)) - (_%g1826918305%_)))))) - (if (gx#stx-null? _%tl1828118396%_) - (_%__match2086120862%_ - _%e1827318369%_ - _%hd1827418373%_ - _%tl1827518376%_ - _%e1827618379%_ - _%hd1827718383%_ - _%tl1827818386%_ - _%e1827918389%_ - _%hd1828018393%_ - _%tl1828118396%_) - (let () (declare (not safe)) (_%g1826918305%_)))) - (if (gx#stx-null? _%tl1828118396%_) - (_%__match2086120862%_ - _%e1827318369%_ - _%hd1827418373%_ - _%tl1827518376%_ - _%e1827618379%_ - _%hd1827718383%_ - _%tl1827818386%_ - _%e1827918389%_ - _%hd1828018393%_ - _%tl1828118396%_) - (let () (declare (not safe)) (_%g1826918305%_)))) + (_%g1836818404%_)))))) + (if (gx#stx-null? _%tl1838018495%_) + (_%__match2096020961%_ + _%e1837218468%_ + _%hd1837318472%_ + _%tl1837418475%_ + _%e1837518478%_ + _%hd1837618482%_ + _%tl1837718485%_ + _%e1837818488%_ + _%hd1837918492%_ + _%tl1838018495%_) + (let () (declare (not safe)) (_%g1836818404%_)))) + (if (gx#stx-null? _%tl1838018495%_) + (_%__match2096020961%_ + _%e1837218468%_ + _%hd1837318472%_ + _%tl1837418475%_ + _%e1837518478%_ + _%hd1837618482%_ + _%tl1837718485%_ + _%e1837818488%_ + _%hd1837918492%_ + _%tl1838018495%_) + (let () (declare (not safe)) (_%g1836818404%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl1828118396%_) - (_%__match2086120862%_ - _%e1827318369%_ - _%hd1827418373%_ - _%tl1827518376%_ - _%e1827618379%_ - _%hd1827718383%_ - _%tl1827818386%_ - _%e1827918389%_ - _%hd1828018393%_ - _%tl1828118396%_) + _%tl1838018495%_) + (_%__match2096020961%_ + _%e1837218468%_ + _%hd1837318472%_ + _%tl1837418475%_ + _%e1837518478%_ + _%hd1837618482%_ + _%tl1837718485%_ + _%e1837818488%_ + _%hd1837918492%_ + _%tl1838018495%_) (let () (declare (not safe)) - (_%g1826918305%_)))))) - (if (gx#stx-null? _%tl1828118396%_) - (_%__match2086120862%_ - _%e1827318369%_ - _%hd1827418373%_ - _%tl1827518376%_ - _%e1827618379%_ - _%hd1827718383%_ - _%tl1827818386%_ - _%e1827918389%_ - _%hd1828018393%_ - _%tl1828118396%_) + (_%g1836818404%_)))))) + (if (gx#stx-null? _%tl1838018495%_) + (_%__match2096020961%_ + _%e1837218468%_ + _%hd1837318472%_ + _%tl1837418475%_ + _%e1837518478%_ + _%hd1837618482%_ + _%tl1837718485%_ + _%e1837818488%_ + _%hd1837918492%_ + _%tl1838018495%_) (let () (declare (not safe)) - (_%g1826918305%_)))))) + (_%g1836818404%_)))))) (let () (declare (not safe)) - (_%g1826918305%_))))) - (let () (declare (not safe)) (_%g1826918305%_))))) - (let () (declare (not safe)) (_%g1826918305%_)))))))))) + (_%g1836818404%_))))) + (let () (declare (not safe)) (_%g1836818404%_))))) + (let () (declare (not safe)) (_%g1836818404%_)))))))))) diff --git a/src/bootstrap/gerbil/expander/common~0.scm b/src/bootstrap/gerbil/expander/common~0.scm index bb896dc5a..4be1f7ec3 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 1713631266) + (define gerbil/expander/common::timestamp 1734357961) (begin (define gx#AST::t - (let ((__tmp116754 (list)) - (__tmp116753 (cons (cons 'struct: '#t) '((print: e))))) + (let ((__tmp118041 (list)) + (__tmp118040 (cons (cons 'struct: '#t) '((print: e))))) (declare (not safe)) (__make-class-type 'gerbil#AST::t 'syntax - __tmp116754 + __tmp118041 '(e source) - __tmp116753 + __tmp118040 '#f))) (define gx#AST? (let () (declare (not safe)) (__make-class-predicate gx#AST::t))) (define gx#make-AST - (lambda _%$args116652%_ (apply make-instance gx#AST::t _%$args116652%_))) + (lambda _%$args117939%_ (apply make-instance gx#AST::t _%$args117939%_))) (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 3a1281c24..2f4e1575b 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]#_g116756_| + (define |gx[1]#_g118043_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g116758_| + (define |gx[1]#_g118045_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g116760_| + (define |gx[1]#_g118047_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g116762_| + (define |gx[1]#_g118049_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g116763_| + (define |gx[1]#_g118050_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g116765_| + (define |gx[1]#_g118052_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116766_| + (define |gx[1]#_g118053_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116768_| + (define |gx[1]#_g118055_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g116769_| + (define |gx[1]#_g118056_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g116771_| + (define |gx[1]#_g118058_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116772_| + (define |gx[1]#_g118059_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116774_| + (define |gx[1]#_g118061_| (##structure gx#syntax-quote::t 'else @@ -86,7 +86,7 @@ '())) (begin (define |gx[:0:]#AST| - (let ((__obj116752 + (let ((__obj118039 (let () (declare (not safe)) (##structure @@ -114,109 +114,109 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 'gerbil#AST::t '1 '#f '#f)) + (##unchecked-structure-set! __obj118039 'gerbil#AST::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj118039 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '(e source) '4 '#f '#f)) + (##unchecked-structure-set! __obj118039 '(e source) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '(e source) '6 '#f '#f)) + (##unchecked-structure-set! __obj118039 '(e source) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj118039 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj118039 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj118039 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj118039 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '#f '11 '#f '#f)) - (let ((__tmp116755 |gx[1]#_g116756_|)) + (##unchecked-structure-set! __obj118039 '#f '11 '#f '#f)) + (let ((__tmp118042 |gx[1]#_g118043_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116752 __tmp116755 '12 '#f '#f)) - (let ((__tmp116757 |gx[1]#_g116758_|)) + (##unchecked-structure-set! __obj118039 __tmp118042 '12 '#f '#f)) + (let ((__tmp118044 |gx[1]#_g118045_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116752 __tmp116757 '13 '#f '#f)) - (let ((__tmp116759 |gx[1]#_g116760_|)) + (##unchecked-structure-set! __obj118039 __tmp118044 '13 '#f '#f)) + (let ((__tmp118046 |gx[1]#_g118047_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116752 __tmp116759 '14 '#f '#f)) - (let ((__tmp116761 - (cons (cons 'e |gx[1]#_g116762_|) - (cons (cons 'source |gx[1]#_g116763_|) '())))) + (##unchecked-structure-set! __obj118039 __tmp118046 '14 '#f '#f)) + (let ((__tmp118048 + (cons (cons 'e |gx[1]#_g118049_|) + (cons (cons 'source |gx[1]#_g118050_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj116752 __tmp116761 '15 '#f '#f)) - (let ((__tmp116764 - (cons (cons 'e |gx[1]#_g116765_|) - (cons (cons 'source |gx[1]#_g116766_|) '())))) + (##unchecked-structure-set! __obj118039 __tmp118048 '15 '#f '#f)) + (let ((__tmp118051 + (cons (cons 'e |gx[1]#_g118052_|) + (cons (cons 'source |gx[1]#_g118053_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj116752 __tmp116764 '16 '#f '#f)) - (let ((__tmp116767 - (cons (cons 'e |gx[1]#_g116768_|) - (cons (cons 'source |gx[1]#_g116769_|) '())))) + (##unchecked-structure-set! __obj118039 __tmp118051 '16 '#f '#f)) + (let ((__tmp118054 + (cons (cons 'e |gx[1]#_g118055_|) + (cons (cons 'source |gx[1]#_g118056_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj116752 __tmp116767 '17 '#f '#f)) - (let ((__tmp116770 - (cons (cons 'e |gx[1]#_g116771_|) - (cons (cons 'source |gx[1]#_g116772_|) '())))) + (##unchecked-structure-set! __obj118039 __tmp118054 '17 '#f '#f)) + (let ((__tmp118057 + (cons (cons 'e |gx[1]#_g118058_|) + (cons (cons 'source |gx[1]#_g118059_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj116752 __tmp116770 '18 '#f '#f)) + (##unchecked-structure-set! __obj118039 __tmp118057 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj118039 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj118039 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116752 '() '20 '#f '#f)) - __obj116752)) + (##unchecked-structure-set! __obj118039 '() '20 '#f '#f)) + __obj118039)) (define |gx[:0:]#check-procedure| - (lambda (_%$stx115347%_) - (let* ((_%g115351115365%_ - (lambda (_%g115352115361%_) + (lambda (_%$stx116634%_) + (let* ((_%g116638116652%_ + (lambda (_%g116639116648%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115352115361%_))) - (_%g115350115407%_ - (lambda (_%g115352115369%_) - (if (gx#stx-pair? _%g115352115369%_) - (let ((_%e115354115372%_ - (gx#syntax-e _%g115352115369%_))) - (let ((_%hd115355115376%_ + _%g116639116648%_))) + (_%g116637116694%_ + (lambda (_%g116639116656%_) + (if (gx#stx-pair? _%g116639116656%_) + (let ((_%e116641116659%_ + (gx#syntax-e _%g116639116656%_))) + (let ((_%hd116642116663%_ (let () (declare (not safe)) - (##car _%e115354115372%_))) - (_%tl115356115379%_ + (##car _%e116641116659%_))) + (_%tl116643116666%_ (let () (declare (not safe)) - (##cdr _%e115354115372%_)))) - (if (gx#stx-pair? _%tl115356115379%_) - (let ((_%e115357115382%_ - (gx#syntax-e _%tl115356115379%_))) - (let ((_%hd115358115386%_ + (##cdr _%e116641116659%_)))) + (if (gx#stx-pair? _%tl116643116666%_) + (let ((_%e116644116669%_ + (gx#syntax-e _%tl116643116666%_))) + (let ((_%hd116645116673%_ (let () (declare (not safe)) - (##car _%e115357115382%_))) - (_%tl115359115389%_ + (##car _%e116644116669%_))) + (_%tl116646116676%_ (let () (declare (not safe)) - (##cdr _%e115357115382%_)))) - (if (gx#stx-null? _%tl115359115389%_) - ((lambda (_%L115392%_) + (##cdr _%e116644116669%_)))) + (if (gx#stx-null? _%tl116646116676%_) + ((lambda (_%L116679%_) (cons (gx#datum->syntax '#f 'unless) (cons (cons (gx#datum->syntax '#f 'procedure?) - (cons _%L115392%_ + (cons _%L116679%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -224,182 +224,182 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'error) - (cons '"expected procedure" (cons _%L115392%_ '()))) + (cons '"expected procedure" (cons _%L116679%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd115358115386%_) - (_%g115351115365%_ _%g115352115369%_)))) - (_%g115351115365%_ _%g115352115369%_)))) - (_%g115351115365%_ _%g115352115369%_))))) - (_%g115350115407%_ _%$stx115347%_)))) + _%hd116645116673%_) + (_%g116638116652%_ _%g116639116656%_)))) + (_%g116638116652%_ _%g116639116656%_)))) + (_%g116638116652%_ _%g116639116656%_))))) + (_%g116637116694%_ _%$stx116634%_)))) (define |gx[:0:]#core-syntax-case| - (lambda (_%stx115411%_) - (letrec ((_%generate115414%_ - (lambda (_%tgt115563%_ _%kws115565%_ _%clauses115566%_) - (letrec ((_%generate-clause115568%_ - (lambda (_%hd116503%_ _%E116505%_) - (let* ((_%__stx116655116656%_ _%hd116503%_) - (_%g116509116536%_ + (lambda (_%stx116698%_) + (letrec ((_%generate116701%_ + (lambda (_%tgt116850%_ _%kws116852%_ _%clauses116853%_) + (letrec ((_%generate-clause116855%_ + (lambda (_%hd117790%_ _%E117792%_) + (let* ((_%__stx117942117943%_ _%hd117790%_) + (_%g117796117823%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx116655116656%_)))) - (let ((_%__kont116658116659%_ - (lambda (_%L116632%_ _%L116634%_) - (_%generate1115570%_ - _%hd116503%_ - _%L116634%_ + _%__stx117942117943%_)))) + (let ((_%__kont117945117946%_ + (lambda (_%L117919%_ _%L117921%_) + (_%generate1116857%_ + _%hd117790%_ + _%L117921%_ '#t - _%L116632%_ - _%E116505%_))) - (_%__kont116660116661%_ - (lambda (_%L116584%_ - _%L116586%_ - _%L116587%_) - (_%generate1115570%_ - _%hd116503%_ - _%L116587%_ - _%L116586%_ - _%L116584%_ - _%E116505%_))) - (_%__kont116662116663%_ + _%L117919%_ + _%E117792%_))) + (_%__kont117947117948%_ + (lambda (_%L117871%_ + _%L117873%_ + _%L117874%_) + (_%generate1116857%_ + _%hd117790%_ + _%L117874%_ + _%L117873%_ + _%L117871%_ + _%E117792%_))) + (_%__kont117949117950%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case pattern" - _%stx115411%_ - _%hd116503%_)))) - (if (gx#stx-pair? _%__stx116655116656%_) - (let ((_%e116513116612%_ + _%stx116698%_ + _%hd117790%_)))) + (if (gx#stx-pair? _%__stx117942117943%_) + (let ((_%e117800117899%_ (gx#syntax-e - _%__stx116655116656%_))) - (let ((_%tl116515116619%_ + _%__stx117942117943%_))) + (let ((_%tl117802117906%_ (let () (declare (not safe)) - (##cdr _%e116513116612%_))) - (_%hd116514116616%_ + (##cdr _%e117800117899%_))) + (_%hd117801117903%_ (let () (declare (not safe)) - (##car _%e116513116612%_)))) + (##car _%e117800117899%_)))) (if (gx#stx-pair? - _%tl116515116619%_) - (let ((_%e116516116622%_ + _%tl117802117906%_) + (let ((_%e117803117909%_ (gx#syntax-e - _%tl116515116619%_))) - (let ((_%tl116518116629%_ + _%tl117802117906%_))) + (let ((_%tl117805117916%_ (let () (declare (not safe)) - (##cdr _%e116516116622%_))) - (_%hd116517116626%_ + (##cdr _%e117803117909%_))) + (_%hd117804117913%_ (let () (declare (not safe)) - (##car _%e116516116622%_)))) + (##car _%e117803117909%_)))) (if (gx#stx-null? - _%tl116518116629%_) - (_%__kont116658116659%_ - _%hd116517116626%_ - _%hd116514116616%_) + _%tl117805117916%_) + (_%__kont117945117946%_ + _%hd117804117913%_ + _%hd117801117903%_) (if (gx#stx-pair? - _%tl116518116629%_) - (let ((_%e116528116574%_ + _%tl117805117916%_) + (let ((_%e117815117861%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl116518116629%_))) - (let ((_%tl116530116581%_ + (gx#syntax-e _%tl117805117916%_))) + (let ((_%tl117817117868%_ (let () (declare (not safe)) - (##cdr _%e116528116574%_))) - (_%hd116529116578%_ + (##cdr _%e117815117861%_))) + (_%hd117816117865%_ (let () (declare (not safe)) - (##car _%e116528116574%_)))) - (if (gx#stx-null? _%tl116530116581%_) - (_%__kont116660116661%_ - _%hd116529116578%_ - _%hd116517116626%_ - _%hd116514116616%_) - (_%__kont116662116663%_)))) - (_%__kont116662116663%_))))) + (##car _%e117815117861%_)))) + (if (gx#stx-null? _%tl117817117868%_) + (_%__kont117947117948%_ + _%hd117816117865%_ + _%hd117804117913%_ + _%hd117801117903%_) + (_%__kont117949117950%_)))) + (_%__kont117949117950%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116662116663%_)))) - (_%__kont116662116663%_)))))) - (_%generate1115570%_ - (lambda (_%where115956%_ - _%hd115958%_ - _%fender115959%_ - _%body115960%_ - _%E115961%_) - (letrec ((_%recur115963%_ - (lambda (_%hd115966%_ - _%tgt115968%_ - _%K115969%_) - (let* ((_%__stx116701116702%_ - _%hd115966%_) - (_%g115972115984%_ + (_%__kont117949117950%_)))) + (_%__kont117949117950%_)))))) + (_%generate1116857%_ + (lambda (_%where117243%_ + _%hd117245%_ + _%fender117246%_ + _%body117247%_ + _%E117248%_) + (letrec ((_%recur117250%_ + (lambda (_%hd117253%_ + _%tgt117255%_ + _%K117256%_) + (let* ((_%__stx117988117989%_ + _%hd117253%_) + (_%g117259117271%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx116701116702%_)))) - (let ((_%__kont116704116705%_ - (lambda (_%L116293%_ - _%L116295%_) - (let* ((_%g116306116314%_ - (lambda (_%g116307116310%_) + _%__stx117988117989%_)))) + (let ((_%__kont117991117992%_ + (lambda (_%L117580%_ + _%L117582%_) + (let* ((_%g117593117601%_ + (lambda (_%g117594117597%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116307116310%_))) - (_%g116305116495%_ - (lambda (_%g116307116318%_) - ((lambda (_%L116321%_) - (let* ((_%g116333116341%_ - (lambda (_%g116334116337%_) + _%g117594117597%_))) + (_%g117592117782%_ + (lambda (_%g117594117605%_) + ((lambda (_%L117608%_) + (let* ((_%g117620117628%_ + (lambda (_%g117621117624%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116334116337%_))) - (_%g116332116491%_ - (lambda (_%g116334116345%_) - ((lambda (_%L116348%_) - (let* ((_%g116361116369%_ - (lambda (_%g116362116365%_) + _%g117621117624%_))) + (_%g117619117778%_ + (lambda (_%g117621117632%_) + ((lambda (_%L117635%_) + (let* ((_%g117648117656%_ + (lambda (_%g117649117652%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116362116365%_))) - (_%g116360116487%_ - (lambda (_%g116362116373%_) - ((lambda (_%L116376%_) - (let* ((_%g116389116397%_ - (lambda (_%g116390116393%_) + _%g117649117652%_))) + (_%g117647117774%_ + (lambda (_%g117649117660%_) + ((lambda (_%L117663%_) + (let* ((_%g117676117684%_ + (lambda (_%g117677117680%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g116390116393%_))) - (_%g116388116483%_ - (lambda (_%g116390116401%_) - ((lambda (_%L116404%_) - (let* ((_%g116417116425%_ - (lambda (_%g116418116421%_) + _%g117677117680%_))) + (_%g117675117770%_ + (lambda (_%g117677117688%_) + ((lambda (_%L117691%_) + (let* ((_%g117704117712%_ + (lambda (_%g117705117708%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116418116421%_))) - (_%g116416116479%_ - (lambda (_%g116418116429%_) - ((lambda (_%L116432%_) - (let* ((_%g116445116453%_ - (lambda (_%g116446116449%_) + _%g117705117708%_))) + (_%g117703117766%_ + (lambda (_%g117705117716%_) + ((lambda (_%L117719%_) + (let* ((_%g117732117740%_ + (lambda (_%g117733117736%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116446116449%_))) - (_%g116444116475%_ - (lambda (_%g116446116457%_) - ((lambda (_%L116460%_) + _%g117733117736%_))) + (_%g117731117762%_ + (lambda (_%g117733117744%_) + ((lambda (_%L117747%_) (cons (gx#datum->syntax '#f 'if) @@ -407,306 +407,306 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'stx-pair?) - (cons _%L116321%_ '())) + (cons _%L117608%_ '())) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L116348%_ + (cons (cons (cons _%L117635%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'syntax-e) - (cons _%L116321%_ '())) + (cons _%L117608%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L116376%_ + (cons (cons (cons _%L117663%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L116348%_ '())) + (cons _%L117635%_ '())) '())) - (cons (cons _%L116404%_ + (cons (cons _%L117691%_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _%L116348%_ '())) + (cons _%L117635%_ '())) '())) '())) - (cons _%L116432%_ '()))) + (cons _%L117719%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _%L116460%_ '()))))) + (cons _%L117747%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g116446116457%_)))) - (_%g116444116475%_ _%E115961%_))) - _%g116418116429%_)))) - (_%g116416116479%_ - (_%recur115963%_ - _%L116295%_ - _%L116376%_ - (_%recur115963%_ - _%L116293%_ - _%L116404%_ - _%K115969%_))))) - _%g116390116401%_)))) - (_%g116388116483%_ (gx#genident 'tl)))) + _%g117733117744%_)))) + (_%g117731117762%_ _%E117248%_))) + _%g117705117716%_)))) + (_%g117703117766%_ + (_%recur117250%_ + _%L117582%_ + _%L117663%_ + (_%recur117250%_ + _%L117580%_ + _%L117691%_ + _%K117256%_))))) + _%g117677117688%_)))) + (_%g117675117770%_ (gx#genident 'tl)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g116362116373%_)))) - (_%g116360116487%_ + _%g117649117660%_)))) + (_%g117647117774%_ (gx#genident 'hd)))) - _%g116334116345%_)))) - (_%g116332116491%_ (gx#genident 'e)))) - _%g116307116318%_)))) - (_%g116305116495%_ _%tgt115968%_)))) + _%g117621117632%_)))) + (_%g117619117778%_ (gx#genident 'e)))) + _%g117594117605%_)))) + (_%g117592117782%_ _%tgt117255%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116706116707%_ + (_%__kont117993117994%_ (lambda () (if (gx#identifier? - _%hd115966%_) + _%hd117253%_) (if (gx#underscore? - _%hd115966%_) - _%K115969%_ - (if (let ((__tmp116773 + _%hd117253%_) + _%K117256%_ + (if (let ((__tmp118060 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g115998116000%_) + (lambda (_%g117285117287%_) (gx#bound-identifier=? - _%g115998116000%_ - _%hd115966%_)))) + _%g117285117287%_ + _%hd117253%_)))) (declare (not safe)) - (__find __tmp116773 _%kws115565%_)) - (let* ((_%g116006116021%_ - (lambda (_%g116007116017%_) + (__find __tmp118060 _%kws116852%_)) + (let* ((_%g117293117308%_ + (lambda (_%g117294117304%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116007116017%_))) - (_%g116005116074%_ - (lambda (_%g116007116025%_) - (if (gx#stx-pair? _%g116007116025%_) - (let ((_%e116010116028%_ + _%g117294117304%_))) + (_%g117292117361%_ + (lambda (_%g117294117312%_) + (if (gx#stx-pair? _%g117294117312%_) + (let ((_%e117297117315%_ (gx#syntax-e - _%g116007116025%_))) - (let ((_%hd116011116032%_ + _%g117294117312%_))) + (let ((_%hd117298117319%_ (let () (declare (not safe)) - (##car _%e116010116028%_))) - (_%tl116012116035%_ + (##car _%e117297117315%_))) + (_%tl117299117322%_ (let () (declare (not safe)) - (##cdr _%e116010116028%_)))) + (##cdr _%e117297117315%_)))) (if (gx#stx-pair? - _%tl116012116035%_) - (let ((_%e116013116038%_ + _%tl117299117322%_) + (let ((_%e117300117325%_ (gx#syntax-e - _%tl116012116035%_))) - (let ((_%hd116014116042%_ + _%tl117299117322%_))) + (let ((_%hd117301117329%_ (let () (declare (not safe)) - (##car _%e116013116038%_))) - (_%tl116015116045%_ + (##car _%e117300117325%_))) + (_%tl117302117332%_ (let () (declare (not safe)) - (##cdr _%e116013116038%_)))) + (##cdr _%e117300117325%_)))) (if (gx#stx-null? - _%tl116015116045%_) - ((lambda (_%L116048%_ + _%tl117302117332%_) + ((lambda (_%L117335%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L116050%_) + _%L117337%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax '#f 'identifier?) - (cons _%L116050%_ '())) + (cons _%L117337%_ '())) (cons (cons (gx#datum->syntax '#f 'core-identifier=?) - (cons _%L116050%_ + (cons _%L117337%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L116048%_ '())) + (cons _%L117335%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _%K115969%_ (cons _%E115961%_ '()))))) - _%hd116014116042%_ - _%hd116011116032%_) - (_%g116006116021%_ _%g116007116025%_)))) + (cons _%K117256%_ (cons _%E117248%_ '()))))) + _%hd117301117329%_ + _%hd117298117319%_) + (_%g117293117308%_ _%g117294117312%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g116006116021%_ - _%g116007116025%_)))) - (_%g116006116021%_ - _%g116007116025%_))))) - (_%g116005116074%_ - (list _%tgt115968%_ _%hd115966%_))) - (let* ((_%g116080116095%_ - (lambda (_%g116081116091%_) + (_%g117293117308%_ + _%g117294117312%_)))) + (_%g117293117308%_ + _%g117294117312%_))))) + (_%g117292117361%_ + (list _%tgt117255%_ _%hd117253%_))) + (let* ((_%g117367117382%_ + (lambda (_%g117368117378%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116081116091%_))) - (_%g116079116140%_ - (lambda (_%g116081116099%_) - (if (gx#stx-pair? _%g116081116099%_) - (let ((_%e116084116102%_ + _%g117368117378%_))) + (_%g117366117427%_ + (lambda (_%g117368117386%_) + (if (gx#stx-pair? _%g117368117386%_) + (let ((_%e117371117389%_ (gx#syntax-e - _%g116081116099%_))) - (let ((_%hd116085116106%_ + _%g117368117386%_))) + (let ((_%hd117372117393%_ (let () (declare (not safe)) - (##car _%e116084116102%_))) - (_%tl116086116109%_ + (##car _%e117371117389%_))) + (_%tl117373117396%_ (let () (declare (not safe)) - (##cdr _%e116084116102%_)))) + (##cdr _%e117371117389%_)))) (if (gx#stx-pair? - _%tl116086116109%_) - (let ((_%e116087116112%_ + _%tl117373117396%_) + (let ((_%e117374117399%_ (gx#syntax-e - _%tl116086116109%_))) - (let ((_%hd116088116116%_ + _%tl117373117396%_))) + (let ((_%hd117375117403%_ (let () (declare (not safe)) - (##car _%e116087116112%_))) - (_%tl116089116119%_ + (##car _%e117374117399%_))) + (_%tl117376117406%_ (let () (declare (not safe)) - (##cdr _%e116087116112%_)))) + (##cdr _%e117374117399%_)))) (if (gx#stx-null? - _%tl116089116119%_) - ((lambda (_%L116122%_ + _%tl117376117406%_) + ((lambda (_%L117409%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L116124%_) + _%L117411%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L116122%_ (cons _%L116124%_ '())) + (cons (cons (cons _%L117409%_ (cons _%L117411%_ '())) '()) - (cons _%K115969%_ '())))) - _%hd116088116116%_ - _%hd116085116106%_) - (_%g116080116095%_ _%g116081116099%_)))) + (cons _%K117256%_ '())))) + _%hd117375117403%_ + _%hd117372117393%_) + (_%g117367117382%_ _%g117368117386%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g116080116095%_ - _%g116081116099%_)))) - (_%g116080116095%_ - _%g116081116099%_))))) - (_%g116079116140%_ - (list _%tgt115968%_ _%hd115966%_))))) - (if (gx#stx-null? _%hd115966%_) - (let* ((_%g116146116154%_ - (lambda (_%g116147116150%_) + (_%g117367117382%_ + _%g117368117386%_)))) + (_%g117367117382%_ + _%g117368117386%_))))) + (_%g117366117427%_ + (list _%tgt117255%_ _%hd117253%_))))) + (if (gx#stx-null? _%hd117253%_) + (let* ((_%g117433117441%_ + (lambda (_%g117434117437%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116147116150%_))) - (_%g116145116173%_ - (lambda (_%g116147116158%_) - ((lambda (_%L116161%_) + _%g117434117437%_))) + (_%g117432117460%_ + (lambda (_%g117434117445%_) + ((lambda (_%L117448%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'stx-null?) - (cons _%L116161%_ '())) - (cons _%K115969%_ - (cons _%E115961%_ + (cons _%L117448%_ '())) + (cons _%K117256%_ + (cons _%E117248%_ '()))))) - _%g116147116158%_)))) - (_%g116145116173%_ _%tgt115968%_)) - (if (gx#stx-datum? _%hd115966%_) - (let* ((_%g116179116198%_ - (lambda (_%g116180116194%_) + _%g117434117445%_)))) + (_%g117432117460%_ _%tgt117255%_)) + (if (gx#stx-datum? _%hd117253%_) + (let* ((_%g117466117485%_ + (lambda (_%g117467117481%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116180116194%_))) - (_%g116178116257%_ - (lambda (_%g116180116202%_) - (if (gx#stx-pair? _%g116180116202%_) - (let ((_%e116184116205%_ + _%g117467117481%_))) + (_%g117465117544%_ + (lambda (_%g117467117489%_) + (if (gx#stx-pair? _%g117467117489%_) + (let ((_%e117471117492%_ (gx#syntax-e - _%g116180116202%_))) - (let ((_%hd116185116209%_ + _%g117467117489%_))) + (let ((_%hd117472117496%_ (let () (declare (not safe)) - (##car _%e116184116205%_))) - (_%tl116186116212%_ + (##car _%e117471117492%_))) + (_%tl117473117499%_ (let () (declare (not safe)) - (##cdr _%e116184116205%_)))) + (##cdr _%e117471117492%_)))) (if (gx#stx-pair? - _%tl116186116212%_) - (let ((_%e116187116215%_ + _%tl117473117499%_) + (let ((_%e117474117502%_ (gx#syntax-e - _%tl116186116212%_))) - (let ((_%hd116188116219%_ + _%tl117473117499%_))) + (let ((_%hd117475117506%_ (let () (declare (not safe)) - (##car _%e116187116215%_))) - (_%tl116189116222%_ + (##car _%e117474117502%_))) + (_%tl117476117509%_ (let () (declare (not safe)) - (##cdr _%e116187116215%_)))) + (##cdr _%e117474117502%_)))) (if (gx#stx-pair? - _%tl116189116222%_) - (let ((_%e116190116225%_ + _%tl117476117509%_) + (let ((_%e117477117512%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl116189116222%_))) - (let ((_%hd116191116229%_ + _%tl117476117509%_))) + (let ((_%hd117478117516%_ (let () (declare (not safe)) - (##car _%e116190116225%_))) - (_%tl116192116232%_ + (##car _%e117477117512%_))) + (_%tl117479117519%_ (let () (declare (not safe)) - (##cdr _%e116190116225%_)))) - (if (gx#stx-null? _%tl116192116232%_) - ((lambda (_%L116235%_ _%L116237%_ _%L116238%_) + (##cdr _%e117477117512%_)))) + (if (gx#stx-null? _%tl117479117519%_) + ((lambda (_%L117522%_ _%L117524%_ _%L117525%_) (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L116235%_ + (cons (cons _%L117522%_ (cons (cons (gx#datum->syntax '#f 'stx-e) - (cons _%L116238%_ + (cons _%L117525%_ '())) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L116237%_ '())) + (cons _%L117524%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%K115969%_ - (cons _%E115961%_ '()))))) - _%hd116191116229%_ - _%hd116188116219%_ - _%hd116185116209%_) - (_%g116179116198%_ _%g116180116202%_)))) - (_%g116179116198%_ _%g116180116202%_)))) + (cons _%K117256%_ + (cons _%E117248%_ '()))))) + _%hd117478117516%_ + _%hd117475117506%_ + _%hd117472117496%_) + (_%g117466117485%_ _%g117467117489%_)))) + (_%g117466117485%_ _%g117467117489%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g116179116198%_ - _%g116180116202%_)))) - (_%g116179116198%_ - _%g116180116202%_))))) - (_%g116178116257%_ - (list _%tgt115968%_ - _%hd115966%_ - (let ((_%e116261%_ - (gx#stx-e _%hd115966%_))) - (if (or (keyword? _%e116261%_) + (_%g117466117485%_ + _%g117467117489%_)))) + (_%g117466117485%_ + _%g117467117489%_))))) + (_%g117465117544%_ + (list _%tgt117255%_ + _%hd117253%_ + (let ((_%e117548%_ + (gx#stx-e _%hd117253%_))) + (if (or (keyword? _%e117548%_) (let () (declare (not safe)) - (immediate? _%e116261%_))) + (immediate? _%e117548%_))) (gx#datum->syntax '#f 'eq?) - (if (number? _%e116261%_) + (if (number? _%e117548%_) (gx#datum->syntax '#f 'eqv?) (gx#datum->syntax '#f @@ -714,69 +714,69 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case head" - _%stx115411%_ - _%where115956%_ - _%hd115966%_))))))) + _%stx116698%_ + _%where117243%_ + _%hd117253%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx116701116702%_) - (let ((_%e115976116283%_ + _%__stx117988117989%_) + (let ((_%e117263117570%_ (gx#syntax-e - _%__stx116701116702%_))) - (let ((_%tl115978116290%_ + _%__stx117988117989%_))) + (let ((_%tl117265117577%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e115976116283%_))) - (_%hd115977116287%_ - (let () (declare (not safe)) (##car _%e115976116283%_)))) - (_%__kont116704116705%_ - _%tl115978116290%_ - _%hd115977116287%_))) + (##cdr _%e117263117570%_))) + (_%hd117264117574%_ + (let () (declare (not safe)) (##car _%e117263117570%_)))) + (_%__kont117991117992%_ + _%tl117265117577%_ + _%hd117264117574%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116706116707%_))))))) - (_%recur115963%_ - _%hd115958%_ - _%tgt115563%_ + (_%__kont117993117994%_))))))) + (_%recur117250%_ + _%hd117245%_ + _%tgt116850%_ (cons (gx#datum->syntax '#f 'if) - (cons _%fender115959%_ - (cons _%body115960%_ - (cons _%E115961%_ + (cons _%fender117246%_ + (cons _%body117247%_ + (cons _%E117248%_ '())))))))) - (_%generate-clauses115571%_ - (lambda (_%clauses115694%_) - (let _%lp115697%_ ((_%rest115700%_ - _%clauses115694%_) - (_%E115702%_ + (_%generate-clauses116858%_ + (lambda (_%clauses116981%_) + (let _%lp116984%_ ((_%rest116987%_ + _%clauses116981%_) + (_%E116989%_ (gx#genident 'E)) - (_%r115703%_ '())) - (let* ((_%__stx116737116738%_ _%rest115700%_) - (_%g115706115718%_ + (_%r116990%_ '())) + (let* ((_%__stx118024118025%_ _%rest116987%_) + (_%g116993117005%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx116737116738%_)))) - (let ((_%__kont116740116741%_ - (lambda (_%L115783%_ _%L115785%_) - (let* ((_%__stx116717116718%_ - _%L115785%_) - (_%g115797115808%_ + _%__stx118024118025%_)))) + (let ((_%__kont118027118028%_ + (lambda (_%L117070%_ _%L117072%_) + (let* ((_%__stx118004118005%_ + _%L117072%_) + (_%g117084117095%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx116717116718%_)))) - (let ((_%__kont116720116721%_ - (lambda (_%L115937%_) + _%__stx118004118005%_)))) + (let ((_%__kont118007118008%_ + (lambda (_%L117224%_) (if (gx#stx-null? - _%L115783%_) + _%L117070%_) (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L115937%_) - (not (gx#stx-null? _%L115937%_))) - (cons (cons _%E115702%_ + _%L117224%_) + (not (gx#stx-null? _%L117224%_))) + (cons (cons _%E116989%_ (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() @@ -784,113 +784,113 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - _%L115937%_) + _%L117224%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%L115785%_)) + (gx#stx-source _%L117072%_)) '())) - _%r115703%_) + _%r116990%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid else body" - _%stx115411%_ - _%L115785%_)) + _%stx116698%_ + _%L117072%_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _%stx115411%_ - _%L115785%_)))) + _%stx116698%_ + _%L117072%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116722116723%_ + (_%__kont118009118010%_ (lambda () - (let* ((_%g115819115827%_ - (lambda (_%g115820115823%_) + (let* ((_%g117106117114%_ + (lambda (_%g117107117110%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115820115823%_))) - (_%g115818115916%_ - (lambda (_%g115820115831%_) - ((lambda (_%L115834%_) - (let* ((_%g115850115858%_ - (lambda (_%g115851115854%_) + _%g117107117110%_))) + (_%g117105117203%_ + (lambda (_%g117107117118%_) + ((lambda (_%L117121%_) + (let* ((_%g117137117145%_ + (lambda (_%g117138117141%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115851115854%_))) - (_%g115849115912%_ - (lambda (_%g115851115862%_) - ((lambda (_%L115865%_) - (let* ((_%g115878115886%_ - (lambda (_%g115879115882%_) + _%g117138117141%_))) + (_%g117136117199%_ + (lambda (_%g117138117149%_) + ((lambda (_%L117152%_) + (let* ((_%g117165117173%_ + (lambda (_%g117166117169%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115879115882%_))) - (_%g115877115908%_ - (lambda (_%g115879115890%_) - ((lambda (_%L115893%_) - (_%lp115697%_ - _%L115783%_ - _%L115834%_ - (cons (cons _%E115702%_ + _%g117166117169%_))) + (_%g117164117195%_ + (lambda (_%g117166117177%_) + ((lambda (_%L117180%_) + (_%lp116984%_ + _%L117070%_ + _%L117121%_ + (cons (cons _%E116989%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L115893%_ '())) - _%r115703%_))) + (cons _%L117180%_ '())) + _%r116990%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g115879115890%_)))) - (_%g115877115908%_ + _%g117166117177%_)))) + (_%g117164117195%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L115865%_ + (cons _%L117152%_ '()))) - (gx#stx-source _%L115785%_))))) - _%g115851115862%_)))) - (_%g115849115912%_ - (_%generate-clause115568%_ - _%L115785%_ - (cons _%L115834%_ '()))))) - _%g115820115831%_)))) - (_%g115818115916%_ (gx#genident 'E)))))) + (gx#stx-source _%L117072%_))))) + _%g117138117149%_)))) + (_%g117136117199%_ + (_%generate-clause116855%_ + _%L117072%_ + (cons _%L117121%_ '()))))) + _%g117107117118%_)))) + (_%g117105117203%_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx116717116718%_) - (let ((_%e115800115927%_ + _%__stx118004118005%_) + (let ((_%e117087117214%_ (gx#syntax-e - _%__stx116717116718%_))) - (let ((_%tl115802115934%_ + _%__stx118004118005%_))) + (let ((_%tl117089117221%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e115800115927%_))) - (_%hd115801115931%_ - (let () (declare (not safe)) (##car _%e115800115927%_)))) - (if (gx#identifier? _%hd115801115931%_) + (##cdr _%e117087117214%_))) + (_%hd117088117218%_ + (let () (declare (not safe)) (##car _%e117087117214%_)))) + (if (gx#identifier? _%hd117088117218%_) (if (gx#free-identifier=? - |gx[1]#_g116774_| - _%hd115801115931%_) - (_%__kont116720116721%_ _%tl115802115934%_) - (_%__kont116722116723%_)) - (_%__kont116722116723%_)))) + |gx[1]#_g118061_| + _%hd117088117218%_) + (_%__kont118007118008%_ _%tl117089117221%_) + (_%__kont118009118010%_)) + (_%__kont118009118010%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116722116723%_)))))) - (_%__kont116742116743%_ + (_%__kont118009118010%_)))))) + (_%__kont118029118030%_ (lambda () - (let* ((_%g115729115737%_ - (lambda (_%g115730115733%_) + (let* ((_%g117016117024%_ + (lambda (_%g117017117020%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115730115733%_))) - (_%g115728115762%_ - (lambda (_%g115730115741%_) - ((lambda (_%L115744%_) - (cons (cons _%E115702%_ + _%g117017117020%_))) + (_%g117015117049%_ + (lambda (_%g117017117028%_) + ((lambda (_%L117031%_) + (cons (cons _%E116989%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) @@ -901,216 +901,216 @@ (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '"Bad syntax; invalid syntax-case clause" - (cons _%L115744%_ '())))) + (cons _%L117031%_ '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx115411%_)) + (gx#stx-source _%stx116698%_)) '())) - _%r115703%_)) - _%g115730115741%_)))) + _%r116990%_)) + _%g117017117028%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g115728115762%_ - _%tgt115563%_))))) - (if (gx#stx-pair? _%__stx116737116738%_) - (let ((_%e115710115773%_ + (_%g117015117049%_ + _%tgt116850%_))))) + (if (gx#stx-pair? _%__stx118024118025%_) + (let ((_%e116997117060%_ (gx#syntax-e - _%__stx116737116738%_))) - (let ((_%tl115712115780%_ + _%__stx118024118025%_))) + (let ((_%tl116999117067%_ (let () (declare (not safe)) - (##cdr _%e115710115773%_))) - (_%hd115711115777%_ + (##cdr _%e116997117060%_))) + (_%hd116998117064%_ (let () (declare (not safe)) - (##car _%e115710115773%_)))) - (_%__kont116740116741%_ - _%tl115712115780%_ - _%hd115711115777%_))) - (_%__kont116742116743%_)))))))) - (let* ((_%bind115573%_ - (_%generate-clauses115571%_ _%clauses115566%_)) - (_%g115576115593%_ - (lambda (_%g115577115589%_) + (##car _%e116997117060%_)))) + (_%__kont118027118028%_ + _%tl116999117067%_ + _%hd116998117064%_))) + (_%__kont118029118030%_)))))))) + (let* ((_%bind116860%_ + (_%generate-clauses116858%_ _%clauses116853%_)) + (_%g116863116880%_ + (lambda (_%g116864116876%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115577115589%_))) - (_%g115575115690%_ - (lambda (_%g115577115597%_) - (if (gx#stx-pair/null? _%g115577115597%_) - (let ((_g116775_ + _%g116864116876%_))) + (_%g116862116977%_ + (lambda (_%g116864116884%_) + (if (gx#stx-pair/null? _%g116864116884%_) + (let ((_g118062_ (gx#syntax-split-splice - _%g115577115597%_ + _%g116864116884%_ '0))) (begin - (let ((_g116776_ + (let ((_g118063_ (let () (declare (not safe)) - (if (##values? _g116775_) - (##vector-length - _g116775_) + (if (##values? _g118062_) + (##values-length + _g118062_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g116776_ 2))) + (##fx= _g118063_ 2))) (error "Context expects 2 values" - _g116776_))) - (let ((_%target115579115600%_ + _g118063_))) + (let ((_%target116866116887%_ (let () (declare (not safe)) - (##vector-ref _g116775_ 0))) - (_%tl115581115603%_ + (##values-ref _g118062_ 0))) + (_%tl116868116890%_ (let () (declare (not safe)) - (##vector-ref _g116775_ 1)))) - (if (gx#stx-null? _%tl115581115603%_) - (letrec ((_%loop115582115606%_ - (lambda (_%hd115580115610%_ + (##values-ref _g118062_ 1)))) + (if (gx#stx-null? _%tl116868116890%_) + (letrec ((_%loop116869116893%_ + (lambda (_%hd116867116897%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind-try115586115613%_) - (if (gx#stx-pair? _%hd115580115610%_) - (let ((_%e115583115616%_ - (gx#syntax-e _%hd115580115610%_))) - (let ((_%lp-hd115584115620%_ + _%bind-try116873116900%_) + (if (gx#stx-pair? _%hd116867116897%_) + (let ((_%e116870116903%_ + (gx#syntax-e _%hd116867116897%_))) + (let ((_%lp-hd116871116907%_ (let () (declare (not safe)) - (##car _%e115583115616%_))) - (_%lp-tl115585115623%_ + (##car _%e116870116903%_))) + (_%lp-tl116872116910%_ (let () (declare (not safe)) - (##cdr _%e115583115616%_)))) - (_%loop115582115606%_ - _%lp-tl115585115623%_ - (cons _%lp-hd115584115620%_ - _%bind-try115586115613%_)))) - (let ((_%bind-try115587115626%_ - (reverse _%bind-try115586115613%_))) - ((lambda (_%L115630%_) - (let* ((_%g115648115656%_ - (lambda (_%g115649115652%_) + (##cdr _%e116870116903%_)))) + (_%loop116869116893%_ + _%lp-tl116872116910%_ + (cons _%lp-hd116871116907%_ + _%bind-try116873116900%_)))) + (let ((_%bind-try116874116913%_ + (reverse _%bind-try116873116900%_))) + ((lambda (_%L116917%_) + (let* ((_%g116935116943%_ + (lambda (_%g116936116939%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115649115652%_))) - (_%g115647115686%_ - (lambda (_%g115649115660%_) - ((lambda (_%L115663%_) + _%g116936116939%_))) + (_%g116934116973%_ + (lambda (_%g116936116947%_) + ((lambda (_%L116950%_) (cons (gx#datum->syntax '#f 'let*) - (cons (let ((__tmp116777 - (lambda (_%g115677115680%_ + (cons (let ((__tmp118064 + (lambda (_%g116964116967%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g115678115683%_) - (cons _%g115677115680%_ _%g115678115683%_)))) + _%g116965116970%_) + (cons _%g116964116967%_ _%g116965116970%_)))) (declare (not safe)) - (__foldr1 __tmp116777 '() _%L115630%_)) + (__foldr1 __tmp118064 '() _%L116917%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L115663%_ + (cons (cons _%L116950%_ '()) '())))) - _%g115649115660%_)))) - (_%g115647115686%_ (car (last _%bind115573%_))))) - _%bind-try115587115626%_)))))) + _%g116936116947%_)))) + (_%g116934116973%_ (car (last _%bind116860%_))))) + _%bind-try116874116913%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop115582115606%_ - _%target115579115600%_ + (_%loop116869116893%_ + _%target116866116887%_ '())) - (_%g115576115593%_ - _%g115577115597%_))))) - (_%g115576115593%_ _%g115577115597%_))))) - (_%g115575115690%_ _%bind115573%_)))))) - (let* ((_%g115417115436%_ - (lambda (_%g115418115432%_) + (_%g116863116880%_ + _%g116864116884%_))))) + (_%g116863116880%_ _%g116864116884%_))))) + (_%g116862116977%_ _%bind116860%_)))))) + (let* ((_%g116704116723%_ + (lambda (_%g116705116719%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115418115432%_))) - (_%g115416115559%_ - (lambda (_%g115418115440%_) - (if (gx#stx-pair? _%g115418115440%_) - (let ((_%e115422115443%_ - (gx#syntax-e _%g115418115440%_))) - (let ((_%hd115423115447%_ + _%g116705116719%_))) + (_%g116703116846%_ + (lambda (_%g116705116727%_) + (if (gx#stx-pair? _%g116705116727%_) + (let ((_%e116709116730%_ + (gx#syntax-e _%g116705116727%_))) + (let ((_%hd116710116734%_ (let () (declare (not safe)) - (##car _%e115422115443%_))) - (_%tl115424115450%_ + (##car _%e116709116730%_))) + (_%tl116711116737%_ (let () (declare (not safe)) - (##cdr _%e115422115443%_)))) - (if (gx#stx-pair? _%tl115424115450%_) - (let ((_%e115425115453%_ - (gx#syntax-e _%tl115424115450%_))) - (let ((_%hd115426115457%_ + (##cdr _%e116709116730%_)))) + (if (gx#stx-pair? _%tl116711116737%_) + (let ((_%e116712116740%_ + (gx#syntax-e _%tl116711116737%_))) + (let ((_%hd116713116744%_ (let () (declare (not safe)) - (##car _%e115425115453%_))) - (_%tl115427115460%_ + (##car _%e116712116740%_))) + (_%tl116714116747%_ (let () (declare (not safe)) - (##cdr _%e115425115453%_)))) - (if (gx#stx-pair? _%tl115427115460%_) - (let ((_%e115428115463%_ + (##cdr _%e116712116740%_)))) + (if (gx#stx-pair? _%tl116714116747%_) + (let ((_%e116715116750%_ (gx#syntax-e - _%tl115427115460%_))) - (let ((_%hd115429115467%_ + _%tl116714116747%_))) + (let ((_%hd116716116754%_ (let () (declare (not safe)) - (##car _%e115428115463%_))) - (_%tl115430115470%_ + (##car _%e116715116750%_))) + (_%tl116717116757%_ (let () (declare (not safe)) - (##cdr _%e115428115463%_)))) - ((lambda (_%L115473%_ - _%L115475%_ - _%L115476%_) + (##cdr _%e116715116750%_)))) + ((lambda (_%L116760%_ + _%L116762%_ + _%L116763%_) (if (and (gx#identifier-list? - _%L115475%_) + _%L116762%_) (gx#stx-list? - _%L115473%_)) - (let* ((_%g115494115502%_ - (lambda (_%g115495115498%_) + _%L116760%_)) + (let* ((_%g116781116789%_ + (lambda (_%g116782116785%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115495115498%_))) - (_%g115493115555%_ - (lambda (_%g115495115506%_) - ((lambda (_%L115509%_) - (let* ((_%g115521115529%_ + _%g116782116785%_))) + (_%g116780116842%_ + (lambda (_%g116782116793%_) + ((lambda (_%L116796%_) + (let* ((_%g116808116816%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g115522115525%_) + (lambda (_%g116809116812%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115522115525%_))) - (_%g115520115551%_ - (lambda (_%g115522115533%_) - ((lambda (_%L115536%_) + _%g116809116812%_))) + (_%g116807116838%_ + (lambda (_%g116809116820%_) + ((lambda (_%L116823%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L115509%_ - (cons _%L115476%_ + (cons (cons (cons _%L116796%_ + (cons _%L116763%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L115536%_ '())))) - _%g115522115533%_)))) - (_%g115520115551%_ - (_%generate115414%_ - _%L115509%_ - (gx#syntax->list _%L115475%_) - _%L115473%_)))) - _%g115495115506%_)))) + (cons _%L116823%_ '())))) + _%g116809116820%_)))) + (_%g116807116838%_ + (_%generate116701%_ + _%L116796%_ + (gx#syntax->list _%L116762%_) + _%L116760%_)))) + _%g116782116793%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g115493115555%_ + (_%g116780116842%_ (gx#genident 'e))) - (_%g115417115436%_ - _%g115418115440%_))) - _%tl115430115470%_ - _%hd115429115467%_ - _%hd115426115457%_))) - (_%g115417115436%_ - _%g115418115440%_)))) - (_%g115417115436%_ _%g115418115440%_)))) - (_%g115417115436%_ _%g115418115440%_))))) - (_%g115416115559%_ _%stx115411%_))))))) + (_%g116704116723%_ + _%g116705116727%_))) + _%tl116717116757%_ + _%hd116716116754%_ + _%hd116713116744%_))) + (_%g116704116723%_ + _%g116705116727%_)))) + (_%g116704116723%_ _%g116705116727%_)))) + (_%g116704116723%_ _%g116705116727%_))))) + (_%g116703116846%_ _%stx116698%_))))))) diff --git a/src/bootstrap/gerbil/expander/compile~0.scm b/src/bootstrap/gerbil/expander/compile~0.scm index a8ea9991f..20971d03c 100644 --- a/src/bootstrap/gerbil/expander/compile~0.scm +++ b/src/bootstrap/gerbil/expander/compile~0.scm @@ -1,876 +1,876 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/compile::timestamp 1713631266) + (define gerbil/expander/compile::timestamp 1734357962) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_%stx130175%_) - (let* ((_%e130176130183%_ _%stx130175%_) - (_%E130178130187%_ + (lambda (_%stx131462%_) + (let* ((_%e131463131470%_ _%stx131462%_) + (_%E131465131474%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130176130183%_))) - (_%E130177130201%_ - (lambda () - (if (gx#stx-pair? _%e130176130183%_) - (let ((_%e130179130191%_ - (gx#syntax-e _%e130176130183%_))) - (let ((_%hd130180130194%_ (##car _%e130179130191%_)) - (_%tl130181130196%_ (##cdr _%e130179130191%_))) - (let* ((_%form130199%_ _%hd130180130194%_) - (__self130204 - (gx#syntax-local-e__0 _%form130199%_)) - (__method130205 + _%e131463131470%_))) + (_%E131464131488%_ + (lambda () + (if (gx#stx-pair? _%e131463131470%_) + (let ((_%e131466131478%_ + (gx#syntax-e _%e131463131470%_))) + (let ((_%hd131467131481%_ (##car _%e131466131478%_)) + (_%tl131468131483%_ (##cdr _%e131466131478%_))) + (let* ((_%form131486%_ _%hd131467131481%_) + (__self131491 + (gx#syntax-local-e__0 _%form131486%_)) + (__method131492 (__method-ref - __self130204 + __self131491 'compile-top-syntax))) - (if __method130205 - (__method130205 __self130204 _%stx130175%_) + (if __method131492 + (__method131492 __self131491 _%stx131462%_) (begin (error '"Missing method" - __self130204 + __self131491 'compile-top-syntax) '#!void))))) - (_%E130178130187%_))))) - (_%E130177130201%_)))) + (_%E131465131474%_))))) + (_%E131464131488%_)))) (define gx#core-expander::compile-top-syntax - (lambda (_%self129018130121%_ _%stx130123%_) - (let* ((_%self130125%_ _%self129018130121%_) - (_%self130127%_ _%self130125%_) - (_%self130136130144%_ _%self130127%_) - (_%E130138130148%_ + (lambda (_%self130305131408%_ _%stx131410%_) + (let* ((_%self131412%_ _%self130305131408%_) + (_%self131414%_ _%self131412%_) + (_%self131423131431%_ _%self131414%_) + (_%E131425131435%_ (lambda () (error '"No clause matching" - _%self130136130144%_ + _%self131423131431%_ '((core-expander _ _ K))) '#!void)) - (_%K130139130161%_ - (lambda (_%K130151%_) - (let ((_%$e130153%_ (gx#stx-source _%stx130123%_))) - (if _%$e130153%_ - ((lambda (_%g130155130157%_) + (_%K131426131448%_ + (lambda (_%K131438%_) + (let ((_%$e131440%_ (gx#stx-source _%stx131410%_))) + (if _%$e131440%_ + ((lambda (_%g131442131444%_) (gx#stx-wrap-source - (_%K130151%_ _%stx130123%_) - _%g130155130157%_)) - _%$e130153%_) - (_%K130151%_ _%stx130123%_))))) - (_%e130140130164%_ - (##unchecked-structure-ref _%self130136130144%_ '1 '#f '#f)) - (_%e130141130167%_ - (##unchecked-structure-ref _%self130136130144%_ '2 '#f '#f)) - (_%e130142130170%_ - (##unchecked-structure-ref _%self130136130144%_ '3 '#f '#f)) - (_%K130173%_ _%e130142130170%_)) - (_%K130139130161%_ _%K130173%_)))) + (_%K131438%_ _%stx131410%_) + _%g131442131444%_)) + _%$e131440%_) + (_%K131438%_ _%stx131410%_))))) + (_%e131427131451%_ + (##unchecked-structure-ref _%self131423131431%_ '1 '#f '#f)) + (_%e131428131454%_ + (##unchecked-structure-ref _%self131423131431%_ '2 '#f '#f)) + (_%e131429131457%_ + (##unchecked-structure-ref _%self131423131431%_ '3 '#f '#f)) + (_%K131460%_ _%e131429131457%_)) + (_%K131426131448%_ _%K131460%_)))) (__bind-method!__% gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_%stx129995%_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx129995%_))) + (lambda (_%stx131282%_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx131282%_))) (define gx#core-compile-top-begin% - (lambda (_%stx129965%_) - (let* ((_%e129966129973%_ _%stx129965%_) - (_%E129968129977%_ + (lambda (_%stx131252%_) + (let* ((_%e131253131260%_ _%stx131252%_) + (_%E131255131264%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129966129973%_))) - (_%E129967129991%_ - (lambda () - (if (gx#stx-pair? _%e129966129973%_) - (let ((_%e129969129981%_ - (gx#syntax-e _%e129966129973%_))) - (let ((_%hd129970129984%_ (##car _%e129969129981%_)) - (_%tl129971129986%_ (##cdr _%e129969129981%_))) - (let ((_%body129989%_ _%tl129971129986%_)) + _%e131253131260%_))) + (_%E131254131278%_ + (lambda () + (if (gx#stx-pair? _%e131253131260%_) + (let ((_%e131256131268%_ + (gx#syntax-e _%e131253131260%_))) + (let ((_%hd131257131271%_ (##car _%e131256131268%_)) + (_%tl131258131273%_ (##cdr _%e131256131268%_))) + (let ((_%body131276%_ _%tl131258131273%_)) (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _%body129989%_))))) - (_%E129968129977%_))))) - (_%E129967129991%_)))) + _%body131276%_))))) + (_%E131255131264%_))))) + (_%E131254131278%_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_%stx129934%_) - (let* ((_%e129935129942%_ _%stx129934%_) - (_%E129937129946%_ + (lambda (_%stx131221%_) + (let* ((_%e131222131229%_ _%stx131221%_) + (_%E131224131233%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129935129942%_))) - (_%E129936129961%_ - (lambda () - (if (gx#stx-pair? _%e129935129942%_) - (let ((_%e129938129950%_ - (gx#syntax-e _%e129935129942%_))) - (let ((_%hd129939129953%_ (##car _%e129938129950%_)) - (_%tl129940129955%_ (##cdr _%e129938129950%_))) - (let ((_%body129958%_ _%tl129940129955%_)) + _%e131222131229%_))) + (_%E131223131248%_ + (lambda () + (if (gx#stx-pair? _%e131222131229%_) + (let ((_%e131225131237%_ + (gx#syntax-e _%e131222131229%_))) + (let ((_%hd131226131240%_ (##car _%e131225131237%_)) + (_%tl131227131242%_ (##cdr _%e131225131237%_))) + (let ((_%body131245%_ _%tl131227131242%_)) (cons '%#begin-syntax (__call-with-parameters (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _%body129958%_)) + _%body131245%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)))))) - (_%E129937129946%_))))) - (_%E129936129961%_)))) + (_%E131224131233%_))))) + (_%E131223131248%_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_%stx129904%_) - (let* ((_%e129905129912%_ _%stx129904%_) - (_%E129907129916%_ + (lambda (_%stx131191%_) + (let* ((_%e131192131199%_ _%stx131191%_) + (_%E131194131203%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129905129912%_))) - (_%E129906129930%_ - (lambda () - (if (gx#stx-pair? _%e129905129912%_) - (let ((_%e129908129920%_ - (gx#syntax-e _%e129905129912%_))) - (let ((_%hd129909129923%_ (##car _%e129908129920%_)) - (_%tl129910129925%_ (##cdr _%e129908129920%_))) - (let ((_%body129928%_ _%tl129910129925%_)) - (cons '%#begin-foreign _%body129928%_)))) - (_%E129907129916%_))))) - (_%E129906129930%_)))) + _%e131192131199%_))) + (_%E131193131217%_ + (lambda () + (if (gx#stx-pair? _%e131192131199%_) + (let ((_%e131195131207%_ + (gx#syntax-e _%e131192131199%_))) + (let ((_%hd131196131210%_ (##car _%e131195131207%_)) + (_%tl131197131212%_ (##cdr _%e131195131207%_))) + (let ((_%body131215%_ _%tl131197131212%_)) + (cons '%#begin-foreign _%body131215%_)))) + (_%E131194131203%_))))) + (_%E131193131217%_)))) (define gx#core-compile-top-begin-annotation% - (lambda (_%stx129850%_) - (let* ((_%e129851129864%_ _%stx129850%_) - (_%E129853129868%_ + (lambda (_%stx131137%_) + (let* ((_%e131138131151%_ _%stx131137%_) + (_%E131140131155%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129851129864%_))) - (_%E129852129900%_ - (lambda () - (if (gx#stx-pair? _%e129851129864%_) - (let ((_%e129854129872%_ - (gx#syntax-e _%e129851129864%_))) - (let ((_%hd129855129875%_ (##car _%e129854129872%_)) - (_%tl129856129877%_ (##cdr _%e129854129872%_))) - (if (gx#stx-pair? _%tl129856129877%_) - (let ((_%e129857129880%_ - (gx#syntax-e _%tl129856129877%_))) - (let ((_%hd129858129883%_ - (##car _%e129857129880%_)) - (_%tl129859129885%_ - (##cdr _%e129857129880%_))) - (let ((_%ann129888%_ _%hd129858129883%_)) - (if (gx#stx-pair? _%tl129859129885%_) - (let ((_%e129860129890%_ + _%e131138131151%_))) + (_%E131139131187%_ + (lambda () + (if (gx#stx-pair? _%e131138131151%_) + (let ((_%e131141131159%_ + (gx#syntax-e _%e131138131151%_))) + (let ((_%hd131142131162%_ (##car _%e131141131159%_)) + (_%tl131143131164%_ (##cdr _%e131141131159%_))) + (if (gx#stx-pair? _%tl131143131164%_) + (let ((_%e131144131167%_ + (gx#syntax-e _%tl131143131164%_))) + (let ((_%hd131145131170%_ + (##car _%e131144131167%_)) + (_%tl131146131172%_ + (##cdr _%e131144131167%_))) + (let ((_%ann131175%_ _%hd131145131170%_)) + (if (gx#stx-pair? _%tl131146131172%_) + (let ((_%e131147131177%_ (gx#syntax-e - _%tl129859129885%_))) - (let ((_%hd129861129893%_ - (##car _%e129860129890%_)) - (_%tl129862129895%_ - (##cdr _%e129860129890%_))) - (let ((_%expr129898%_ - _%hd129861129893%_)) + _%tl131146131172%_))) + (let ((_%hd131148131180%_ + (##car _%e131147131177%_)) + (_%tl131149131182%_ + (##cdr _%e131147131177%_))) + (let ((_%expr131185%_ + _%hd131148131180%_)) (if (gx#stx-null? - _%tl129862129895%_) + _%tl131149131182%_) (gx#core-compile-top-syntax - _%expr129898%_) - (_%E129853129868%_))))) - (_%E129853129868%_))))) - (_%E129853129868%_)))) - (_%E129853129868%_))))) - (_%E129852129900%_)))) + _%expr131185%_) + (_%E131140131155%_))))) + (_%E131140131155%_))))) + (_%E131140131155%_)))) + (_%E131140131155%_))))) + (_%E131139131187%_)))) (define gx#core-compile-top-import% - (lambda (_%stx129820%_) - (let* ((_%e129821129828%_ _%stx129820%_) - (_%E129823129832%_ + (lambda (_%stx131107%_) + (let* ((_%e131108131115%_ _%stx131107%_) + (_%E131110131119%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129821129828%_))) - (_%E129822129846%_ - (lambda () - (if (gx#stx-pair? _%e129821129828%_) - (let ((_%e129824129836%_ - (gx#syntax-e _%e129821129828%_))) - (let ((_%hd129825129839%_ (##car _%e129824129836%_)) - (_%tl129826129841%_ (##cdr _%e129824129836%_))) - (let ((_%body129844%_ _%tl129826129841%_)) - (cons '%#import _%body129844%_)))) - (_%E129823129832%_))))) - (_%E129822129846%_)))) + _%e131108131115%_))) + (_%E131109131133%_ + (lambda () + (if (gx#stx-pair? _%e131108131115%_) + (let ((_%e131111131123%_ + (gx#syntax-e _%e131108131115%_))) + (let ((_%hd131112131126%_ (##car _%e131111131123%_)) + (_%tl131113131128%_ (##cdr _%e131111131123%_))) + (let ((_%body131131%_ _%tl131113131128%_)) + (cons '%#import _%body131131%_)))) + (_%E131110131119%_))))) + (_%E131109131133%_)))) (define gx#core-compile-top-module% - (lambda (_%stx129777%_) - (let* ((_%e129778129788%_ _%stx129777%_) - (_%E129780129792%_ + (lambda (_%stx131064%_) + (let* ((_%e131065131075%_ _%stx131064%_) + (_%E131067131079%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129778129788%_))) - (_%E129779129816%_ - (lambda () - (if (gx#stx-pair? _%e129778129788%_) - (let ((_%e129781129796%_ - (gx#syntax-e _%e129778129788%_))) - (let ((_%hd129782129799%_ (##car _%e129781129796%_)) - (_%tl129783129801%_ (##cdr _%e129781129796%_))) - (if (gx#stx-pair? _%tl129783129801%_) - (let ((_%e129784129804%_ - (gx#syntax-e _%tl129783129801%_))) - (let ((_%hd129785129807%_ - (##car _%e129784129804%_)) - (_%tl129786129809%_ - (##cdr _%e129784129804%_))) - (let* ((_%hd129812%_ _%hd129785129807%_) - (_%body129814%_ _%tl129786129809%_)) + _%e131065131075%_))) + (_%E131066131103%_ + (lambda () + (if (gx#stx-pair? _%e131065131075%_) + (let ((_%e131068131083%_ + (gx#syntax-e _%e131065131075%_))) + (let ((_%hd131069131086%_ (##car _%e131068131083%_)) + (_%tl131070131088%_ (##cdr _%e131068131083%_))) + (if (gx#stx-pair? _%tl131070131088%_) + (let ((_%e131071131091%_ + (gx#syntax-e _%tl131070131088%_))) + (let ((_%hd131072131094%_ + (##car _%e131071131091%_)) + (_%tl131073131096%_ + (##cdr _%e131071131091%_))) + (let* ((_%hd131099%_ _%hd131072131094%_) + (_%body131101%_ _%tl131073131096%_)) (cons '%#module (cons (##structure-ref (gx#syntax-local-e__0 - _%hd129812%_) + _%hd131099%_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _%body129814%_)))))) - (_%E129780129792%_)))) - (_%E129780129792%_))))) - (_%E129779129816%_)))) + _%body131101%_)))))) + (_%E131067131079%_)))) + (_%E131067131079%_))))) + (_%E131066131103%_)))) (define gx#core-compile-top-export% - (lambda (_%stx129747%_) - (let* ((_%e129748129755%_ _%stx129747%_) - (_%E129750129759%_ + (lambda (_%stx131034%_) + (let* ((_%e131035131042%_ _%stx131034%_) + (_%E131037131046%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129748129755%_))) - (_%E129749129773%_ - (lambda () - (if (gx#stx-pair? _%e129748129755%_) - (let ((_%e129751129763%_ - (gx#syntax-e _%e129748129755%_))) - (let ((_%hd129752129766%_ (##car _%e129751129763%_)) - (_%tl129753129768%_ (##cdr _%e129751129763%_))) - (let ((_%body129771%_ _%tl129753129768%_)) - (cons '%#export _%body129771%_)))) - (_%E129750129759%_))))) - (_%E129749129773%_)))) + _%e131035131042%_))) + (_%E131036131060%_ + (lambda () + (if (gx#stx-pair? _%e131035131042%_) + (let ((_%e131038131050%_ + (gx#syntax-e _%e131035131042%_))) + (let ((_%hd131039131053%_ (##car _%e131038131050%_)) + (_%tl131040131055%_ (##cdr _%e131038131050%_))) + (let ((_%body131058%_ _%tl131040131055%_)) + (cons '%#export _%body131058%_)))) + (_%E131037131046%_))))) + (_%E131036131060%_)))) (define gx#core-compile-top-provide% - (lambda (_%stx129717%_) - (let* ((_%e129718129725%_ _%stx129717%_) - (_%E129720129729%_ + (lambda (_%stx131004%_) + (let* ((_%e131005131012%_ _%stx131004%_) + (_%E131007131016%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129718129725%_))) - (_%E129719129743%_ - (lambda () - (if (gx#stx-pair? _%e129718129725%_) - (let ((_%e129721129733%_ - (gx#syntax-e _%e129718129725%_))) - (let ((_%hd129722129736%_ (##car _%e129721129733%_)) - (_%tl129723129738%_ (##cdr _%e129721129733%_))) - (let ((_%body129741%_ _%tl129723129738%_)) - (cons '%#provide _%body129741%_)))) - (_%E129720129729%_))))) - (_%E129719129743%_)))) + _%e131005131012%_))) + (_%E131006131030%_ + (lambda () + (if (gx#stx-pair? _%e131005131012%_) + (let ((_%e131008131020%_ + (gx#syntax-e _%e131005131012%_))) + (let ((_%hd131009131023%_ (##car _%e131008131020%_)) + (_%tl131010131025%_ (##cdr _%e131008131020%_))) + (let ((_%body131028%_ _%tl131010131025%_)) + (cons '%#provide _%body131028%_)))) + (_%E131007131016%_))))) + (_%E131006131030%_)))) (define gx#core-compile-top-extern% - (lambda (_%stx129687%_) - (let* ((_%e129688129695%_ _%stx129687%_) - (_%E129690129699%_ + (lambda (_%stx130974%_) + (let* ((_%e130975130982%_ _%stx130974%_) + (_%E130977130986%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129688129695%_))) - (_%E129689129713%_ - (lambda () - (if (gx#stx-pair? _%e129688129695%_) - (let ((_%e129691129703%_ - (gx#syntax-e _%e129688129695%_))) - (let ((_%hd129692129706%_ (##car _%e129691129703%_)) - (_%tl129693129708%_ (##cdr _%e129691129703%_))) - (let ((_%body129711%_ _%tl129693129708%_)) - (cons '%#extern _%body129711%_)))) - (_%E129690129699%_))))) - (_%E129689129713%_)))) + _%e130975130982%_))) + (_%E130976131000%_ + (lambda () + (if (gx#stx-pair? _%e130975130982%_) + (let ((_%e130978130990%_ + (gx#syntax-e _%e130975130982%_))) + (let ((_%hd130979130993%_ (##car _%e130978130990%_)) + (_%tl130980130995%_ (##cdr _%e130978130990%_))) + (let ((_%body130998%_ _%tl130980130995%_)) + (cons '%#extern _%body130998%_)))) + (_%E130977130986%_))))) + (_%E130976131000%_)))) (define gx#core-compile-top-define-values% - (lambda (_%stx129633%_) - (let* ((_%e129634129647%_ _%stx129633%_) - (_%E129636129651%_ + (lambda (_%stx130920%_) + (let* ((_%e130921130934%_ _%stx130920%_) + (_%E130923130938%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129634129647%_))) - (_%E129635129683%_ - (lambda () - (if (gx#stx-pair? _%e129634129647%_) - (let ((_%e129637129655%_ - (gx#syntax-e _%e129634129647%_))) - (let ((_%hd129638129658%_ (##car _%e129637129655%_)) - (_%tl129639129660%_ (##cdr _%e129637129655%_))) - (if (gx#stx-pair? _%tl129639129660%_) - (let ((_%e129640129663%_ - (gx#syntax-e _%tl129639129660%_))) - (let ((_%hd129641129666%_ - (##car _%e129640129663%_)) - (_%tl129642129668%_ - (##cdr _%e129640129663%_))) - (let ((_%hd129671%_ _%hd129641129666%_)) - (if (gx#stx-pair? _%tl129642129668%_) - (let ((_%e129643129673%_ + _%e130921130934%_))) + (_%E130922130970%_ + (lambda () + (if (gx#stx-pair? _%e130921130934%_) + (let ((_%e130924130942%_ + (gx#syntax-e _%e130921130934%_))) + (let ((_%hd130925130945%_ (##car _%e130924130942%_)) + (_%tl130926130947%_ (##cdr _%e130924130942%_))) + (if (gx#stx-pair? _%tl130926130947%_) + (let ((_%e130927130950%_ + (gx#syntax-e _%tl130926130947%_))) + (let ((_%hd130928130953%_ + (##car _%e130927130950%_)) + (_%tl130929130955%_ + (##cdr _%e130927130950%_))) + (let ((_%hd130958%_ _%hd130928130953%_)) + (if (gx#stx-pair? _%tl130929130955%_) + (let ((_%e130930130960%_ (gx#syntax-e - _%tl129642129668%_))) - (let ((_%hd129644129676%_ - (##car _%e129643129673%_)) - (_%tl129645129678%_ - (##cdr _%e129643129673%_))) - (let ((_%expr129681%_ - _%hd129644129676%_)) + _%tl130929130955%_))) + (let ((_%hd130931130963%_ + (##car _%e130930130960%_)) + (_%tl130932130965%_ + (##cdr _%e130930130960%_))) + (let ((_%expr130968%_ + _%hd130931130963%_)) (if (gx#stx-null? - _%tl129645129678%_) + _%tl130932130965%_) (cons '%#define-values (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _%hd129671%_) + _%hd130958%_) (cons (gx#core-compile-top-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr129681%_) + _%expr130968%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129636129651%_))))) - (_%E129636129651%_))))) - (_%E129636129651%_)))) - (_%E129636129651%_))))) - (_%E129635129683%_)))) + (_%E130923130938%_))))) + (_%E130923130938%_))))) + (_%E130923130938%_)))) + (_%E130923130938%_))))) + (_%E130922130970%_)))) (define gx#core-compile-top-define-syntax% - (lambda (_%stx129578%_) - (let* ((_%e129579129592%_ _%stx129578%_) - (_%E129581129596%_ + (lambda (_%stx130865%_) + (let* ((_%e130866130879%_ _%stx130865%_) + (_%E130868130883%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129579129592%_))) - (_%E129580129629%_ - (lambda () - (if (gx#stx-pair? _%e129579129592%_) - (let ((_%e129582129600%_ - (gx#syntax-e _%e129579129592%_))) - (let ((_%hd129583129603%_ (##car _%e129582129600%_)) - (_%tl129584129605%_ (##cdr _%e129582129600%_))) - (if (gx#stx-pair? _%tl129584129605%_) - (let ((_%e129585129608%_ - (gx#syntax-e _%tl129584129605%_))) - (let ((_%hd129586129611%_ - (##car _%e129585129608%_)) - (_%tl129587129613%_ - (##cdr _%e129585129608%_))) - (let ((_%hd129616%_ _%hd129586129611%_)) - (if (gx#stx-pair? _%tl129587129613%_) - (let ((_%e129588129618%_ + _%e130866130879%_))) + (_%E130867130916%_ + (lambda () + (if (gx#stx-pair? _%e130866130879%_) + (let ((_%e130869130887%_ + (gx#syntax-e _%e130866130879%_))) + (let ((_%hd130870130890%_ (##car _%e130869130887%_)) + (_%tl130871130892%_ (##cdr _%e130869130887%_))) + (if (gx#stx-pair? _%tl130871130892%_) + (let ((_%e130872130895%_ + (gx#syntax-e _%tl130871130892%_))) + (let ((_%hd130873130898%_ + (##car _%e130872130895%_)) + (_%tl130874130900%_ + (##cdr _%e130872130895%_))) + (let ((_%hd130903%_ _%hd130873130898%_)) + (if (gx#stx-pair? _%tl130874130900%_) + (let ((_%e130875130905%_ (gx#syntax-e - _%tl129587129613%_))) - (let ((_%hd129589129621%_ - (##car _%e129588129618%_)) - (_%tl129590129623%_ - (##cdr _%e129588129618%_))) - (let ((_%expr129626%_ - _%hd129589129621%_)) + _%tl130874130900%_))) + (let ((_%hd130876130908%_ + (##car _%e130875130905%_)) + (_%tl130877130910%_ + (##cdr _%e130875130905%_))) + (let ((_%expr130913%_ + _%hd130876130908%_)) (if (gx#stx-null? - _%tl129590129623%_) + _%tl130877130910%_) (cons '%#define-syntax - (cons _%hd129616%_ + (cons _%hd130903%_ (cons (__call-with-parameters ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda () - (gx#core-compile-top-syntax _%expr129626%_)) + (gx#core-compile-top-syntax _%expr130913%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129581129596%_))))) - (_%E129581129596%_))))) - (_%E129581129596%_)))) - (_%E129581129596%_))))) - (_%E129580129629%_)))) + (_%E130868130883%_))))) + (_%E130868130883%_))))) + (_%E130868130883%_)))) + (_%E130868130883%_))))) + (_%E130867130916%_)))) (define gx#core-compile-top-define-alias% - (lambda (_%stx129548%_) - (let* ((_%e129549129556%_ _%stx129548%_) - (_%E129551129560%_ + (lambda (_%stx130835%_) + (let* ((_%e130836130843%_ _%stx130835%_) + (_%E130838130847%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129549129556%_))) - (_%E129550129574%_ - (lambda () - (if (gx#stx-pair? _%e129549129556%_) - (let ((_%e129552129564%_ - (gx#syntax-e _%e129549129556%_))) - (let ((_%hd129553129567%_ (##car _%e129552129564%_)) - (_%tl129554129569%_ (##cdr _%e129552129564%_))) - (let ((_%body129572%_ _%tl129554129569%_)) - (cons '%#define-alias _%body129572%_)))) - (_%E129551129560%_))))) - (_%E129550129574%_)))) + _%e130836130843%_))) + (_%E130837130861%_ + (lambda () + (if (gx#stx-pair? _%e130836130843%_) + (let ((_%e130839130851%_ + (gx#syntax-e _%e130836130843%_))) + (let ((_%hd130840130854%_ (##car _%e130839130851%_)) + (_%tl130841130856%_ (##cdr _%e130839130851%_))) + (let ((_%body130859%_ _%tl130841130856%_)) + (cons '%#define-alias _%body130859%_)))) + (_%E130838130847%_))))) + (_%E130837130861%_)))) (define gx#core-compile-top-define-runtime% - (lambda (_%stx129518%_) - (let* ((_%e129519129526%_ _%stx129518%_) - (_%E129521129530%_ + (lambda (_%stx130805%_) + (let* ((_%e130806130813%_ _%stx130805%_) + (_%E130808130817%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129519129526%_))) - (_%E129520129544%_ - (lambda () - (if (gx#stx-pair? _%e129519129526%_) - (let ((_%e129522129534%_ - (gx#syntax-e _%e129519129526%_))) - (let ((_%hd129523129537%_ (##car _%e129522129534%_)) - (_%tl129524129539%_ (##cdr _%e129522129534%_))) - (let ((_%body129542%_ _%tl129524129539%_)) - (cons '%#define-runtime _%body129542%_)))) - (_%E129521129530%_))))) - (_%E129520129544%_)))) + _%e130806130813%_))) + (_%E130807130831%_ + (lambda () + (if (gx#stx-pair? _%e130806130813%_) + (let ((_%e130809130821%_ + (gx#syntax-e _%e130806130813%_))) + (let ((_%hd130810130824%_ (##car _%e130809130821%_)) + (_%tl130811130826%_ (##cdr _%e130809130821%_))) + (let ((_%body130829%_ _%tl130811130826%_)) + (cons '%#define-runtime _%body130829%_)))) + (_%E130808130817%_))))) + (_%E130807130831%_)))) (define gx#core-compile-top-declare% - (lambda (_%stx129488%_) - (let* ((_%e129489129496%_ _%stx129488%_) - (_%E129491129500%_ + (lambda (_%stx130775%_) + (let* ((_%e130776130783%_ _%stx130775%_) + (_%E130778130787%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129489129496%_))) - (_%E129490129514%_ - (lambda () - (if (gx#stx-pair? _%e129489129496%_) - (let ((_%e129492129504%_ - (gx#syntax-e _%e129489129496%_))) - (let ((_%hd129493129507%_ (##car _%e129492129504%_)) - (_%tl129494129509%_ (##cdr _%e129492129504%_))) - (let ((_%decls129512%_ _%tl129494129509%_)) - (cons '%#declare _%decls129512%_)))) - (_%E129491129500%_))))) - (_%E129490129514%_)))) + _%e130776130783%_))) + (_%E130777130801%_ + (lambda () + (if (gx#stx-pair? _%e130776130783%_) + (let ((_%e130779130791%_ + (gx#syntax-e _%e130776130783%_))) + (let ((_%hd130780130794%_ (##car _%e130779130791%_)) + (_%tl130781130796%_ (##cdr _%e130779130791%_))) + (let ((_%decls130799%_ _%tl130781130796%_)) + (cons '%#declare _%decls130799%_)))) + (_%E130778130787%_))))) + (_%E130777130801%_)))) (define gx#core-compile-top-lambda% - (lambda (_%stx129458%_) - (let* ((_%e129459129466%_ _%stx129458%_) - (_%E129461129470%_ + (lambda (_%stx130745%_) + (let* ((_%e130746130753%_ _%stx130745%_) + (_%E130748130757%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129459129466%_))) - (_%E129460129484%_ - (lambda () - (if (gx#stx-pair? _%e129459129466%_) - (let ((_%e129462129474%_ - (gx#syntax-e _%e129459129466%_))) - (let ((_%hd129463129477%_ (##car _%e129462129474%_)) - (_%tl129464129479%_ (##cdr _%e129462129474%_))) - (let ((_%clause129482%_ _%tl129464129479%_)) + _%e130746130753%_))) + (_%E130747130771%_ + (lambda () + (if (gx#stx-pair? _%e130746130753%_) + (let ((_%e130749130761%_ + (gx#syntax-e _%e130746130753%_))) + (let ((_%hd130750130764%_ (##car _%e130749130761%_)) + (_%tl130751130766%_ (##cdr _%e130749130761%_))) + (let ((_%clause130769%_ _%tl130751130766%_)) (cons '%#lambda (gx#core-compile-top-lambda-clause - _%clause129482%_))))) - (_%E129461129470%_))))) - (_%E129460129484%_)))) + _%clause130769%_))))) + (_%E130748130757%_))))) + (_%E130747130771%_)))) (define gx#core-compile-top-lambda-clause - (lambda (_%stx129415%_) - (let* ((_%e129416129426%_ _%stx129415%_) - (_%E129418129430%_ + (lambda (_%stx130702%_) + (let* ((_%e130703130713%_ _%stx130702%_) + (_%E130705130717%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129416129426%_))) - (_%E129417129454%_ - (lambda () - (if (gx#stx-pair? _%e129416129426%_) - (let ((_%e129419129434%_ - (gx#syntax-e _%e129416129426%_))) - (let ((_%hd129420129437%_ (##car _%e129419129434%_)) - (_%tl129421129439%_ (##cdr _%e129419129434%_))) - (let ((_%hd129442%_ _%hd129420129437%_)) - (if (gx#stx-pair? _%tl129421129439%_) - (let ((_%e129422129444%_ - (gx#syntax-e _%tl129421129439%_))) - (let ((_%hd129423129447%_ - (##car _%e129422129444%_)) - (_%tl129424129449%_ - (##cdr _%e129422129444%_))) - (let ((_%body129452%_ _%hd129423129447%_)) - (if (gx#stx-null? _%tl129424129449%_) + _%e130703130713%_))) + (_%E130704130741%_ + (lambda () + (if (gx#stx-pair? _%e130703130713%_) + (let ((_%e130706130721%_ + (gx#syntax-e _%e130703130713%_))) + (let ((_%hd130707130724%_ (##car _%e130706130721%_)) + (_%tl130708130726%_ (##cdr _%e130706130721%_))) + (let ((_%hd130729%_ _%hd130707130724%_)) + (if (gx#stx-pair? _%tl130708130726%_) + (let ((_%e130709130731%_ + (gx#syntax-e _%tl130708130726%_))) + (let ((_%hd130710130734%_ + (##car _%e130709130731%_)) + (_%tl130711130736%_ + (##cdr _%e130709130731%_))) + (let ((_%body130739%_ _%hd130710130734%_)) + (if (gx#stx-null? _%tl130711130736%_) (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _%hd129442%_) + _%hd130729%_) (cons (gx#core-compile-top-syntax - _%body129452%_) + _%body130739%_) '())) - (_%E129418129430%_))))) - (_%E129418129430%_))))) - (_%E129418129430%_))))) - (_%E129417129454%_)))) + (_%E130705130717%_))))) + (_%E130705130717%_))))) + (_%E130705130717%_))))) + (_%E130704130741%_)))) (define gx#core-compile-top-case-lambda% - (lambda (_%stx129385%_) - (let* ((_%e129386129393%_ _%stx129385%_) - (_%E129388129397%_ + (lambda (_%stx130672%_) + (let* ((_%e130673130680%_ _%stx130672%_) + (_%E130675130684%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129386129393%_))) - (_%E129387129411%_ - (lambda () - (if (gx#stx-pair? _%e129386129393%_) - (let ((_%e129389129401%_ - (gx#syntax-e _%e129386129393%_))) - (let ((_%hd129390129404%_ (##car _%e129389129401%_)) - (_%tl129391129406%_ (##cdr _%e129389129401%_))) - (let ((_%clauses129409%_ _%tl129391129406%_)) + _%e130673130680%_))) + (_%E130674130698%_ + (lambda () + (if (gx#stx-pair? _%e130673130680%_) + (let ((_%e130676130688%_ + (gx#syntax-e _%e130673130680%_))) + (let ((_%hd130677130691%_ (##car _%e130676130688%_)) + (_%tl130678130693%_ (##cdr _%e130676130688%_))) + (let ((_%clauses130696%_ _%tl130678130693%_)) (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _%clauses129409%_))))) - (_%E129388129397%_))))) - (_%E129387129411%_)))) + _%clauses130696%_))))) + (_%E130675130684%_))))) + (_%E130674130698%_)))) (define gx#core-compile-top-let-values%__% - (lambda (_%stx129320%_ _%form129321%_) - (let* ((_%e129322129335%_ _%stx129320%_) - (_%E129324129339%_ + (lambda (_%stx130607%_ _%form130608%_) + (let* ((_%e130609130622%_ _%stx130607%_) + (_%E130611130626%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129322129335%_))) - (_%E129323129371%_ - (lambda () - (if (gx#stx-pair? _%e129322129335%_) - (let ((_%e129325129343%_ - (gx#syntax-e _%e129322129335%_))) - (let ((_%hd129326129346%_ (##car _%e129325129343%_)) - (_%tl129327129348%_ (##cdr _%e129325129343%_))) - (if (gx#stx-pair? _%tl129327129348%_) - (let ((_%e129328129351%_ - (gx#syntax-e _%tl129327129348%_))) - (let ((_%hd129329129354%_ - (##car _%e129328129351%_)) - (_%tl129330129356%_ - (##cdr _%e129328129351%_))) - (let ((_%hd129359%_ _%hd129329129354%_)) - (if (gx#stx-pair? _%tl129330129356%_) - (let ((_%e129331129361%_ + _%e130609130622%_))) + (_%E130610130658%_ + (lambda () + (if (gx#stx-pair? _%e130609130622%_) + (let ((_%e130612130630%_ + (gx#syntax-e _%e130609130622%_))) + (let ((_%hd130613130633%_ (##car _%e130612130630%_)) + (_%tl130614130635%_ (##cdr _%e130612130630%_))) + (if (gx#stx-pair? _%tl130614130635%_) + (let ((_%e130615130638%_ + (gx#syntax-e _%tl130614130635%_))) + (let ((_%hd130616130641%_ + (##car _%e130615130638%_)) + (_%tl130617130643%_ + (##cdr _%e130615130638%_))) + (let ((_%hd130646%_ _%hd130616130641%_)) + (if (gx#stx-pair? _%tl130617130643%_) + (let ((_%e130618130648%_ (gx#syntax-e - _%tl129330129356%_))) - (let ((_%hd129332129364%_ - (##car _%e129331129361%_)) - (_%tl129333129366%_ - (##cdr _%e129331129361%_))) - (let ((_%body129369%_ - _%hd129332129364%_)) + _%tl130617130643%_))) + (let ((_%hd130619130651%_ + (##car _%e130618130648%_)) + (_%tl130620130653%_ + (##cdr _%e130618130648%_))) + (let ((_%body130656%_ + _%hd130619130651%_)) (if (gx#stx-null? - _%tl129333129366%_) - (cons _%form129321%_ + _%tl130620130653%_) + (cons _%form130608%_ (cons (gx#stx-map1 gx#core-compile-top-lambda-clause - _%hd129359%_) + _%hd130646%_) (cons (gx#core-compile-top-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body129369%_) + _%body130656%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129324129339%_))))) - (_%E129324129339%_))))) - (_%E129324129339%_)))) - (_%E129324129339%_))))) - (_%E129323129371%_)))) + (_%E130611130626%_))))) + (_%E130611130626%_))))) + (_%E130611130626%_)))) + (_%E130611130626%_))))) + (_%E130610130658%_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_%stx129378%_) - (let ((_%form129380%_ '%#let-values)) - (gx#core-compile-top-let-values%__% _%stx129378%_ _%form129380%_)))) + (lambda (_%stx130665%_) + (let ((_%form130667%_ '%#let-values)) + (gx#core-compile-top-let-values%__% _%stx130665%_ _%form130667%_)))) (define gx#core-compile-top-let-values% - (lambda _g130207_ - (let ((_g130206_ (##length _g130207_))) - (cond ((##fx= _g130206_ 1) - (apply gx#core-compile-top-let-values%__0 _g130207_)) - ((##fx= _g130206_ 2) - (apply gx#core-compile-top-let-values%__% _g130207_)) + (lambda _g131494_ + (let ((_g131493_ (##length _g131494_))) + (cond ((##fx= _g131493_ 1) + (apply gx#core-compile-top-let-values%__0 _g131494_)) + ((##fx= _g131493_ 2) + (apply gx#core-compile-top-let-values%__% _g131494_)) (else (##raise-wrong-number-of-arguments-exception gx#core-compile-top-let-values% - _g130207_)))))) + _g131494_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_%stx129317%_) - (gx#core-compile-top-let-values%__% _%stx129317%_ '%#letrec-values))) + (lambda (_%stx130604%_) + (gx#core-compile-top-let-values%__% _%stx130604%_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_%stx129315%_) - (gx#core-compile-top-let-values%__% _%stx129315%_ '%#letrec*-values))) + (lambda (_%stx130602%_) + (gx#core-compile-top-let-values%__% _%stx130602%_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_%stx129274%_) - (let* ((_%e129275129285%_ _%stx129274%_) - (_%E129277129289%_ + (lambda (_%stx130561%_) + (let* ((_%e130562130572%_ _%stx130561%_) + (_%E130564130576%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129275129285%_))) - (_%E129276129311%_ - (lambda () - (if (gx#stx-pair? _%e129275129285%_) - (let ((_%e129278129293%_ - (gx#syntax-e _%e129275129285%_))) - (let ((_%hd129279129296%_ (##car _%e129278129293%_)) - (_%tl129280129298%_ (##cdr _%e129278129293%_))) - (if (gx#stx-pair? _%tl129280129298%_) - (let ((_%e129281129301%_ - (gx#syntax-e _%tl129280129298%_))) - (let ((_%hd129282129304%_ - (##car _%e129281129301%_)) - (_%tl129283129306%_ - (##cdr _%e129281129301%_))) - (let ((_%e129309%_ _%hd129282129304%_)) - (if (gx#stx-null? _%tl129283129306%_) + _%e130562130572%_))) + (_%E130563130598%_ + (lambda () + (if (gx#stx-pair? _%e130562130572%_) + (let ((_%e130565130580%_ + (gx#syntax-e _%e130562130572%_))) + (let ((_%hd130566130583%_ (##car _%e130565130580%_)) + (_%tl130567130585%_ (##cdr _%e130565130580%_))) + (if (gx#stx-pair? _%tl130567130585%_) + (let ((_%e130568130588%_ + (gx#syntax-e _%tl130567130585%_))) + (let ((_%hd130569130591%_ + (##car _%e130568130588%_)) + (_%tl130570130593%_ + (##cdr _%e130568130588%_))) + (let ((_%e130596%_ _%hd130569130591%_)) + (if (gx#stx-null? _%tl130570130593%_) (cons '%#quote (cons (gx#syntax->datum - _%e129309%_) + _%e130596%_) '())) - (_%E129277129289%_))))) - (_%E129277129289%_)))) - (_%E129277129289%_))))) - (_%E129276129311%_)))) + (_%E130564130576%_))))) + (_%E130564130576%_)))) + (_%E130564130576%_))))) + (_%E130563130598%_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_%stx129233%_) - (let* ((_%e129234129244%_ _%stx129233%_) - (_%E129236129248%_ + (lambda (_%stx130520%_) + (let* ((_%e130521130531%_ _%stx130520%_) + (_%E130523130535%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129234129244%_))) - (_%E129235129270%_ - (lambda () - (if (gx#stx-pair? _%e129234129244%_) - (let ((_%e129237129252%_ - (gx#syntax-e _%e129234129244%_))) - (let ((_%hd129238129255%_ (##car _%e129237129252%_)) - (_%tl129239129257%_ (##cdr _%e129237129252%_))) - (if (gx#stx-pair? _%tl129239129257%_) - (let ((_%e129240129260%_ - (gx#syntax-e _%tl129239129257%_))) - (let ((_%hd129241129263%_ - (##car _%e129240129260%_)) - (_%tl129242129265%_ - (##cdr _%e129240129260%_))) - (let ((_%e129268%_ _%hd129241129263%_)) - (if (gx#stx-null? _%tl129242129265%_) + _%e130521130531%_))) + (_%E130522130557%_ + (lambda () + (if (gx#stx-pair? _%e130521130531%_) + (let ((_%e130524130539%_ + (gx#syntax-e _%e130521130531%_))) + (let ((_%hd130525130542%_ (##car _%e130524130539%_)) + (_%tl130526130544%_ (##cdr _%e130524130539%_))) + (if (gx#stx-pair? _%tl130526130544%_) + (let ((_%e130527130547%_ + (gx#syntax-e _%tl130526130544%_))) + (let ((_%hd130528130550%_ + (##car _%e130527130547%_)) + (_%tl130529130552%_ + (##cdr _%e130527130547%_))) + (let ((_%e130555%_ _%hd130528130550%_)) + (if (gx#stx-null? _%tl130529130552%_) (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _%e129268%_) + _%e130555%_) '())) - (_%E129236129248%_))))) - (_%E129236129248%_)))) - (_%E129236129248%_))))) - (_%E129235129270%_)))) + (_%E130523130535%_))))) + (_%E130523130535%_)))) + (_%E130523130535%_))))) + (_%E130522130557%_)))) (define gx#core-compile-top-call% - (lambda (_%stx129190%_) - (let* ((_%e129191129201%_ _%stx129190%_) - (_%E129193129205%_ + (lambda (_%stx130477%_) + (let* ((_%e130478130488%_ _%stx130477%_) + (_%E130480130492%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129191129201%_))) - (_%E129192129229%_ - (lambda () - (if (gx#stx-pair? _%e129191129201%_) - (let ((_%e129194129209%_ - (gx#syntax-e _%e129191129201%_))) - (let ((_%hd129195129212%_ (##car _%e129194129209%_)) - (_%tl129196129214%_ (##cdr _%e129194129209%_))) - (if (gx#stx-pair? _%tl129196129214%_) - (let ((_%e129197129217%_ - (gx#syntax-e _%tl129196129214%_))) - (let ((_%hd129198129220%_ - (##car _%e129197129217%_)) - (_%tl129199129222%_ - (##cdr _%e129197129217%_))) - (let* ((_%rator129225%_ _%hd129198129220%_) - (_%args129227%_ _%tl129199129222%_)) + _%e130478130488%_))) + (_%E130479130516%_ + (lambda () + (if (gx#stx-pair? _%e130478130488%_) + (let ((_%e130481130496%_ + (gx#syntax-e _%e130478130488%_))) + (let ((_%hd130482130499%_ (##car _%e130481130496%_)) + (_%tl130483130501%_ (##cdr _%e130481130496%_))) + (if (gx#stx-pair? _%tl130483130501%_) + (let ((_%e130484130504%_ + (gx#syntax-e _%tl130483130501%_))) + (let ((_%hd130485130507%_ + (##car _%e130484130504%_)) + (_%tl130486130509%_ + (##cdr _%e130484130504%_))) + (let* ((_%rator130512%_ _%hd130485130507%_) + (_%args130514%_ _%tl130486130509%_)) (cons '%#call (cons (gx#core-compile-top-syntax - _%rator129225%_) + _%rator130512%_) (gx#stx-map1 gx#core-compile-top-syntax - _%args129227%_)))))) - (_%E129193129205%_)))) - (_%E129193129205%_))))) - (_%E129192129229%_)))) + _%args130514%_)))))) + (_%E130480130492%_)))) + (_%E130480130492%_))))) + (_%E130479130516%_)))) (define gx#core-compile-top-if% - (lambda (_%stx129123%_) - (let* ((_%e129124129140%_ _%stx129123%_) - (_%E129126129144%_ + (lambda (_%stx130410%_) + (let* ((_%e130411130427%_ _%stx130410%_) + (_%E130413130431%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129124129140%_))) - (_%E129125129186%_ - (lambda () - (if (gx#stx-pair? _%e129124129140%_) - (let ((_%e129127129148%_ - (gx#syntax-e _%e129124129140%_))) - (let ((_%hd129128129151%_ (##car _%e129127129148%_)) - (_%tl129129129153%_ (##cdr _%e129127129148%_))) - (if (gx#stx-pair? _%tl129129129153%_) - (let ((_%e129130129156%_ - (gx#syntax-e _%tl129129129153%_))) - (let ((_%hd129131129159%_ - (##car _%e129130129156%_)) - (_%tl129132129161%_ - (##cdr _%e129130129156%_))) - (let ((_%test129164%_ _%hd129131129159%_)) - (if (gx#stx-pair? _%tl129132129161%_) - (let ((_%e129133129166%_ + _%e130411130427%_))) + (_%E130412130473%_ + (lambda () + (if (gx#stx-pair? _%e130411130427%_) + (let ((_%e130414130435%_ + (gx#syntax-e _%e130411130427%_))) + (let ((_%hd130415130438%_ (##car _%e130414130435%_)) + (_%tl130416130440%_ (##cdr _%e130414130435%_))) + (if (gx#stx-pair? _%tl130416130440%_) + (let ((_%e130417130443%_ + (gx#syntax-e _%tl130416130440%_))) + (let ((_%hd130418130446%_ + (##car _%e130417130443%_)) + (_%tl130419130448%_ + (##cdr _%e130417130443%_))) + (let ((_%test130451%_ _%hd130418130446%_)) + (if (gx#stx-pair? _%tl130419130448%_) + (let ((_%e130420130453%_ (gx#syntax-e - _%tl129132129161%_))) - (let ((_%hd129134129169%_ - (##car _%e129133129166%_)) - (_%tl129135129171%_ - (##cdr _%e129133129166%_))) - (let ((_%K129174%_ - _%hd129134129169%_)) + _%tl130419130448%_))) + (let ((_%hd130421130456%_ + (##car _%e130420130453%_)) + (_%tl130422130458%_ + (##cdr _%e130420130453%_))) + (let ((_%K130461%_ + _%hd130421130456%_)) (if (gx#stx-pair? - _%tl129135129171%_) - (let ((_%e129136129176%_ + _%tl130422130458%_) + (let ((_%e130423130463%_ (gx#syntax-e - _%tl129135129171%_))) - (let ((_%hd129137129179%_ - (##car _%e129136129176%_)) - (_%tl129138129181%_ - (##cdr _%e129136129176%_))) - (let ((_%E129184%_ - _%hd129137129179%_)) + _%tl130422130458%_))) + (let ((_%hd130424130466%_ + (##car _%e130423130463%_)) + (_%tl130425130468%_ + (##cdr _%e130423130463%_))) + (let ((_%E130471%_ + _%hd130424130466%_)) (if (gx#stx-null? - _%tl129138129181%_) + _%tl130425130468%_) (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _%test129164%_) - (cons (gx#core-compile-top-syntax _%K129174%_) + (cons (gx#core-compile-top-syntax _%test130451%_) + (cons (gx#core-compile-top-syntax _%K130461%_) (cons (gx#core-compile-top-syntax - _%E129184%_) + _%E130471%_) '())))) - (_%E129126129144%_))))) + (_%E130413130431%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129126129144%_))))) - (_%E129126129144%_))))) - (_%E129126129144%_)))) - (_%E129126129144%_))))) - (_%E129125129186%_)))) + (_%E130413130431%_))))) + (_%E130413130431%_))))) + (_%E130413130431%_)))) + (_%E130413130431%_))))) + (_%E130412130473%_)))) (define gx#core-compile-top-ref% - (lambda (_%stx129082%_) - (let* ((_%e129083129093%_ _%stx129082%_) - (_%E129085129097%_ + (lambda (_%stx130369%_) + (let* ((_%e130370130380%_ _%stx130369%_) + (_%E130372130384%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129083129093%_))) - (_%E129084129119%_ - (lambda () - (if (gx#stx-pair? _%e129083129093%_) - (let ((_%e129086129101%_ - (gx#syntax-e _%e129083129093%_))) - (let ((_%hd129087129104%_ (##car _%e129086129101%_)) - (_%tl129088129106%_ (##cdr _%e129086129101%_))) - (if (gx#stx-pair? _%tl129088129106%_) - (let ((_%e129089129109%_ - (gx#syntax-e _%tl129088129106%_))) - (let ((_%hd129090129112%_ - (##car _%e129089129109%_)) - (_%tl129091129114%_ - (##cdr _%e129089129109%_))) - (let ((_%id129117%_ _%hd129090129112%_)) - (if (gx#stx-null? _%tl129091129114%_) - (if (gx#identifier? _%id129117%_) + _%e130370130380%_))) + (_%E130371130406%_ + (lambda () + (if (gx#stx-pair? _%e130370130380%_) + (let ((_%e130373130388%_ + (gx#syntax-e _%e130370130380%_))) + (let ((_%hd130374130391%_ (##car _%e130373130388%_)) + (_%tl130375130393%_ (##cdr _%e130373130388%_))) + (if (gx#stx-pair? _%tl130375130393%_) + (let ((_%e130376130396%_ + (gx#syntax-e _%tl130375130393%_))) + (let ((_%hd130377130399%_ + (##car _%e130376130396%_)) + (_%tl130378130401%_ + (##cdr _%e130376130396%_))) + (let ((_%id130404%_ _%hd130377130399%_)) + (if (gx#stx-null? _%tl130378130401%_) + (if (gx#identifier? _%id130404%_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _%id129117%_) + _%id130404%_) '())) - (_%E129085129097%_)) - (_%E129085129097%_))))) - (_%E129085129097%_)))) - (_%E129085129097%_))))) - (_%E129084129119%_)))) + (_%E130372130384%_)) + (_%E130372130384%_))))) + (_%E130372130384%_)))) + (_%E130372130384%_))))) + (_%E130371130406%_)))) (define gx#core-compile-top-setq% - (lambda (_%stx129028%_) - (let* ((_%e129029129042%_ _%stx129028%_) - (_%E129031129046%_ + (lambda (_%stx130315%_) + (let* ((_%e130316130329%_ _%stx130315%_) + (_%E130318130333%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129029129042%_))) - (_%E129030129078%_ - (lambda () - (if (gx#stx-pair? _%e129029129042%_) - (let ((_%e129032129050%_ - (gx#syntax-e _%e129029129042%_))) - (let ((_%hd129033129053%_ (##car _%e129032129050%_)) - (_%tl129034129055%_ (##cdr _%e129032129050%_))) - (if (gx#stx-pair? _%tl129034129055%_) - (let ((_%e129035129058%_ - (gx#syntax-e _%tl129034129055%_))) - (let ((_%hd129036129061%_ - (##car _%e129035129058%_)) - (_%tl129037129063%_ - (##cdr _%e129035129058%_))) - (let ((_%id129066%_ _%hd129036129061%_)) - (if (gx#stx-pair? _%tl129037129063%_) - (let ((_%e129038129068%_ + _%e130316130329%_))) + (_%E130317130365%_ + (lambda () + (if (gx#stx-pair? _%e130316130329%_) + (let ((_%e130319130337%_ + (gx#syntax-e _%e130316130329%_))) + (let ((_%hd130320130340%_ (##car _%e130319130337%_)) + (_%tl130321130342%_ (##cdr _%e130319130337%_))) + (if (gx#stx-pair? _%tl130321130342%_) + (let ((_%e130322130345%_ + (gx#syntax-e _%tl130321130342%_))) + (let ((_%hd130323130348%_ + (##car _%e130322130345%_)) + (_%tl130324130350%_ + (##cdr _%e130322130345%_))) + (let ((_%id130353%_ _%hd130323130348%_)) + (if (gx#stx-pair? _%tl130324130350%_) + (let ((_%e130325130355%_ (gx#syntax-e - _%tl129037129063%_))) - (let ((_%hd129039129071%_ - (##car _%e129038129068%_)) - (_%tl129040129073%_ - (##cdr _%e129038129068%_))) - (let ((_%expr129076%_ - _%hd129039129071%_)) + _%tl130324130350%_))) + (let ((_%hd130326130358%_ + (##car _%e130325130355%_)) + (_%tl130327130360%_ + (##cdr _%e130325130355%_))) + (let ((_%expr130363%_ + _%hd130326130358%_)) (if (gx#stx-null? - _%tl129040129073%_) + _%tl130327130360%_) (if (gx#identifier? - _%id129066%_) + _%id130353%_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id129066%_) - (cons (gx#core-compile-top-syntax _%expr129076%_) + _%id130353%_) + (cons (gx#core-compile-top-syntax _%expr130363%_) '()))) - (_%E129031129046%_)) + (_%E130318130333%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129031129046%_))))) - (_%E129031129046%_))))) - (_%E129031129046%_)))) - (_%E129031129046%_))))) - (_%E129030129078%_)))) + (_%E130318130333%_))))) + (_%E130318130333%_))))) + (_%E130318130333%_)))) + (_%E130318130333%_))))) + (_%E130317130365%_)))) (define gx#core-compile-top-runtime-ref - (lambda (_%id129022%_) - (let ((_%$e129024%_ (gx#resolve-identifier__0 _%id129022%_))) - (if _%$e129024%_ - (##unchecked-structure-ref _%$e129024%_ '1 '#f '#f) - _%id129022%_)))) + (lambda (_%id130309%_) + (let ((_%$e130311%_ (gx#resolve-identifier__0 _%id130309%_))) + (if _%$e130311%_ + (##unchecked-structure-ref _%$e130311%_ '1 '#f '#f) + _%id130309%_)))) (define gx#core-compile-top-runtime-bind - (lambda (_%hd129020%_) - (if (gx#identifier? _%hd129020%_) - (gx#core-compile-top-runtime-ref _%hd129020%_) + (lambda (_%hd130307%_) + (if (gx#identifier? _%hd130307%_) + (gx#core-compile-top-runtime-ref _%hd130307%_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core.ssi b/src/bootstrap/gerbil/expander/core.ssi index e863dfe68..ea444bad5 100644 --- a/src/bootstrap/gerbil/expander/core.ssi +++ b/src/bootstrap/gerbil/expander/core.ssi @@ -29,6 +29,9 @@ namespace: gx (%#define-runtime current-expander-compiling? gx#current-expander-compiling?) + (%#define-runtime + current-compilation-target + gx#current-compilation-target) (%#define-runtime expander-context::t gx#expander-context::t) (%#define-runtime expander-context? gx#expander-context?) (%#define-runtime make-expander-context gx#make-expander-context) diff --git a/src/bootstrap/gerbil/expander/core.ssxi.ss b/src/bootstrap/gerbil/expander/core.ssxi.ss index dc9c25065..f74e45297 100644 --- a/src/bootstrap/gerbil/expander/core.ssxi.ss +++ b/src/bootstrap/gerbil/expander/core.ssxi.ss @@ -55,6 +55,11 @@ package: gerbil/expander (optimizer-resolve-class '(typedecl gx#current-expander-compiling?) 'procedure::t)) + (declare-type + gx#current-compilation-target + (optimizer-resolve-class + '(typedecl gx#current-compilation-target) + 'procedure::t)) (declare-class gx#expander-context::t (@class gx#expander-context::t diff --git a/src/bootstrap/gerbil/expander/core~0.scm b/src/bootstrap/gerbil/expander/core~0.scm index ccfc2637c..a5eae1fd3 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 1713631266) + (define gerbil/expander/core::timestamp 1734357961) (begin (declare (not safe)) (define gx#current-expander-context (make-parameter '#f)) @@ -14,6 +14,7 @@ (define gx#current-expander-module-prelude (make-parameter '#f)) (define gx#current-expander-allow-rebind? (make-parameter '#f)) (define gx#current-expander-compiling? (make-parameter '#f)) + (define gx#current-compilation-target (make-parameter '#f)) (define gx#expander-context::t (__make-class-type 'gx#expander-context::t @@ -25,8 +26,8 @@ (define gx#expander-context? (__make-class-predicate gx#expander-context::t)) (define gx#make-expander-context - (lambda _%$args121290%_ - (apply make-instance gx#expander-context::t _%$args121290%_))) + (lambda _%$args122577%_ + (apply make-instance gx#expander-context::t _%$args122577%_))) (define gx#expander-context-id (__make-class-slot-accessor gx#expander-context::t 'id)) (define gx#expander-context-table @@ -53,8 +54,8 @@ '#f)) (define gx#root-context? (__make-class-predicate gx#root-context::t)) (define gx#make-root-context - (lambda _%$args121287%_ - (apply make-instance gx#root-context::t _%$args121287%_))) + (lambda _%$args122574%_ + (apply make-instance gx#root-context::t _%$args122574%_))) (define gx#root-context-id (__make-class-slot-accessor gx#root-context::t 'id)) (define gx#root-context-table @@ -81,8 +82,8 @@ '#f)) (define gx#phi-context? (__make-class-predicate gx#phi-context::t)) (define gx#make-phi-context - (lambda _%$args121284%_ - (apply make-instance gx#phi-context::t _%$args121284%_))) + (lambda _%$args122571%_ + (apply make-instance gx#phi-context::t _%$args122571%_))) (define gx#phi-context-super (__make-class-slot-accessor gx#phi-context::t 'super)) (define gx#phi-context-up @@ -133,8 +134,8 @@ '#f)) (define gx#top-context? (__make-class-predicate gx#top-context::t)) (define gx#make-top-context - (lambda _%$args121281%_ - (apply make-instance gx#top-context::t _%$args121281%_))) + (lambda _%$args122568%_ + (apply make-instance gx#top-context::t _%$args122568%_))) (define gx#top-context-super (__make-class-slot-accessor gx#top-context::t 'super)) (define gx#top-context-up @@ -185,8 +186,8 @@ '#f)) (define gx#module-context? (__make-class-predicate gx#module-context::t)) (define gx#make-module-context - (lambda _%$args121278%_ - (apply make-instance gx#module-context::t _%$args121278%_))) + (lambda _%$args122565%_ + (apply make-instance gx#module-context::t _%$args122565%_))) (define gx#module-context-ns (__make-class-slot-accessor gx#module-context::t 'ns)) (define gx#module-context-path @@ -285,8 +286,8 @@ '#f)) (define gx#prelude-context? (__make-class-predicate gx#prelude-context::t)) (define gx#make-prelude-context - (lambda _%$args121275%_ - (apply make-instance gx#prelude-context::t _%$args121275%_))) + (lambda _%$args122562%_ + (apply make-instance gx#prelude-context::t _%$args122562%_))) (define gx#prelude-context-path (__make-class-slot-accessor gx#prelude-context::t 'path)) (define gx#prelude-context-import @@ -361,8 +362,8 @@ '#f)) (define gx#local-context? (__make-class-predicate gx#local-context::t)) (define gx#make-local-context - (lambda _%$args121272%_ - (apply make-instance gx#local-context::t _%$args121272%_))) + (lambda _%$args122559%_ + (apply make-instance gx#local-context::t _%$args122559%_))) (define gx#local-context-super (__make-class-slot-accessor gx#local-context::t 'super)) (define gx#local-context-up @@ -404,97 +405,97 @@ (define gx#&local-context-table-set! (__make-class-slot-unchecked-mutator gx#local-context::t 'table)) (define gx#phi-context:::init!__% - (lambda (_%self118178121243%_ _%id121245%_ _%super121246%_) - (let* ((_%self121248%_ _%self118178121243%_) - (_%self121250%_ _%self121248%_)) - (if (##fx< '3 (##structure-length _%self121250%_)) + (lambda (_%self119465122530%_ _%id122532%_ _%super122533%_) + (let* ((_%self122535%_ _%self119465122530%_) + (_%self122537%_ _%self122535%_)) + (if (##fx< '3 (##structure-length _%self122537%_)) (begin (##unchecked-structure-set! - _%self121250%_ - _%id121245%_ + _%self122537%_ + _%id122532%_ '1 '#f '#f) (##unchecked-structure-set! - _%self121250%_ + _%self122537%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self121250%_ - _%super121246%_ + _%self122537%_ + _%super122533%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self121250%_ + _%self122537%_ '3 - (##vector-length _%self121250%_)))))) + (##vector-length _%self122537%_)))))) (define gx#phi-context:::init!__0 - (lambda (_%self118178121263%_ _%id121264%_) - (let ((_%super121266%_ (gx#current-expander-context))) + (lambda (_%self119465122550%_ _%id122551%_) + (let ((_%super122553%_ (gx#current-expander-context))) (gx#phi-context:::init!__% - _%self118178121263%_ - _%id121264%_ - _%super121266%_)))) + _%self119465122550%_ + _%id122551%_ + _%super122553%_)))) (define gx#phi-context:::init! - (lambda _g121333_ - (let ((_g121332_ (##length _g121333_))) - (cond ((##fx= _g121332_ 2) - (apply gx#phi-context:::init!__0 _g121333_)) - ((##fx= _g121332_ 3) - (apply gx#phi-context:::init!__% _g121333_)) + (lambda _g122620_ + (let ((_g122619_ (##length _g122620_))) + (cond ((##fx= _g122619_ 2) + (apply gx#phi-context:::init!__0 _g122620_)) + ((##fx= _g122619_ 3) + (apply gx#phi-context:::init!__% _g122620_)) (else (##raise-wrong-number-of-arguments-exception gx#phi-context:::init! - _g121333_)))))) + _g122620_)))))) (__bind-method!__% gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_%self118179121094%_ _%super121096%_) - (let* ((_%self121098%_ _%self118179121094%_) - (_%self121100%_ _%self121098%_)) - (if (##fx< '3 (##structure-length _%self121100%_)) + (lambda (_%self119466122381%_ _%super122383%_) + (let* ((_%self122385%_ _%self119466122381%_) + (_%self122387%_ _%self122385%_)) + (if (##fx< '3 (##structure-length _%self122387%_)) (begin (##unchecked-structure-set! - _%self121100%_ + _%self122387%_ (##gensym 'L) '1 '#f '#f) (##unchecked-structure-set! - _%self121100%_ + _%self122387%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self121100%_ - _%super121096%_ + _%self122387%_ + _%super122383%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self121100%_ + _%self122387%_ '3 - (##vector-length _%self121100%_)))))) + (##vector-length _%self122387%_)))))) (define gx#local-context:::init!__0 - (lambda (_%self118179121113%_) - (let ((_%super121115%_ (gx#current-expander-context))) - (gx#local-context:::init!__% _%self118179121113%_ _%super121115%_)))) + (lambda (_%self119466122400%_) + (let ((_%super122402%_ (gx#current-expander-context))) + (gx#local-context:::init!__% _%self119466122400%_ _%super122402%_)))) (define gx#local-context:::init! - (lambda _g121335_ - (let ((_g121334_ (##length _g121335_))) - (cond ((##fx= _g121334_ 1) - (apply gx#local-context:::init!__0 _g121335_)) - ((##fx= _g121334_ 2) - (apply gx#local-context:::init!__% _g121335_)) + (lambda _g122622_ + (let ((_g122621_ (##length _g122622_))) + (cond ((##fx= _g122621_ 1) + (apply gx#local-context:::init!__0 _g122622_)) + ((##fx= _g122621_ 2) + (apply gx#local-context:::init!__% _g122622_)) (else (##raise-wrong-number-of-arguments-exception gx#local-context:::init! - _g121335_)))))) + _g122622_)))))) (__bind-method!__% gx#local-context::t ':init! @@ -510,8 +511,8 @@ '#f)) (define gx#binding? (__make-class-predicate gx#binding::t)) (define gx#make-binding - (lambda _%$args120968%_ - (apply make-instance gx#binding::t _%$args120968%_))) + (lambda _%$args122255%_ + (apply make-instance gx#binding::t _%$args122255%_))) (define gx#binding-id (__make-class-slot-accessor gx#binding::t 'id)) (define gx#binding-key (__make-class-slot-accessor gx#binding::t 'key)) (define gx#binding-phi (__make-class-slot-accessor gx#binding::t 'phi)) @@ -540,8 +541,8 @@ '#f)) (define gx#runtime-binding? (__make-class-predicate gx#runtime-binding::t)) (define gx#make-runtime-binding - (lambda _%$args120965%_ - (apply make-instance gx#runtime-binding::t _%$args120965%_))) + (lambda _%$args122252%_ + (apply make-instance gx#runtime-binding::t _%$args122252%_))) (define gx#runtime-binding-id (__make-class-slot-accessor gx#runtime-binding::t 'id)) (define gx#runtime-binding-key @@ -576,8 +577,8 @@ '#f)) (define gx#local-binding? (__make-class-predicate gx#local-binding::t)) (define gx#make-local-binding - (lambda _%$args120962%_ - (apply make-instance gx#local-binding::t _%$args120962%_))) + (lambda _%$args122249%_ + (apply make-instance gx#local-binding::t _%$args122249%_))) (define gx#local-binding-id (__make-class-slot-accessor gx#local-binding::t 'id)) (define gx#local-binding-key @@ -612,8 +613,8 @@ '#f)) (define gx#top-binding? (__make-class-predicate gx#top-binding::t)) (define gx#make-top-binding - (lambda _%$args120959%_ - (apply make-instance gx#top-binding::t _%$args120959%_))) + (lambda _%$args122246%_ + (apply make-instance gx#top-binding::t _%$args122246%_))) (define gx#top-binding-id (__make-class-slot-accessor gx#top-binding::t 'id)) (define gx#top-binding-key @@ -648,8 +649,8 @@ '#f)) (define gx#module-binding? (__make-class-predicate gx#module-binding::t)) (define gx#make-module-binding - (lambda _%$args120956%_ - (apply make-instance gx#module-binding::t _%$args120956%_))) + (lambda _%$args122243%_ + (apply make-instance gx#module-binding::t _%$args122243%_))) (define gx#module-binding-context (__make-class-slot-accessor gx#module-binding::t 'context)) (define gx#module-binding-id @@ -692,8 +693,8 @@ '#f)) (define gx#extern-binding? (__make-class-predicate gx#extern-binding::t)) (define gx#make-extern-binding - (lambda _%$args120953%_ - (apply make-instance gx#extern-binding::t _%$args120953%_))) + (lambda _%$args122240%_ + (apply make-instance gx#extern-binding::t _%$args122240%_))) (define gx#extern-binding-id (__make-class-slot-accessor gx#extern-binding::t 'id)) (define gx#extern-binding-key @@ -729,8 +730,8 @@ '#f)) (define gx#syntax-binding? (__make-class-predicate gx#syntax-binding::t)) (define gx#make-syntax-binding - (lambda _%$args120950%_ - (apply make-instance gx#syntax-binding::t _%$args120950%_))) + (lambda _%$args122237%_ + (apply make-instance gx#syntax-binding::t _%$args122237%_))) (define gx#syntax-binding-e (__make-class-slot-accessor gx#syntax-binding::t 'e)) (define gx#syntax-binding-id @@ -774,8 +775,8 @@ '#f)) (define gx#import-binding? (__make-class-predicate gx#import-binding::t)) (define gx#make-import-binding - (lambda _%$args120947%_ - (apply make-instance gx#import-binding::t _%$args120947%_))) + (lambda _%$args122234%_ + (apply make-instance gx#import-binding::t _%$args122234%_))) (define gx#import-binding-e (__make-class-slot-accessor gx#import-binding::t 'e)) (define gx#import-binding-context @@ -835,8 +836,8 @@ '#f)) (define gx#alias-binding? (__make-class-predicate gx#alias-binding::t)) (define gx#make-alias-binding - (lambda _%$args120944%_ - (apply make-instance gx#alias-binding::t _%$args120944%_))) + (lambda _%$args122231%_ + (apply make-instance gx#alias-binding::t _%$args122231%_))) (define gx#alias-binding-e (__make-class-slot-accessor gx#alias-binding::t 'e)) (define gx#alias-binding-id @@ -879,8 +880,8 @@ '#f)) (define gx#expander? (__make-class-predicate gx#expander::t)) (define gx#make-expander - (lambda _%$args120941%_ - (apply make-instance gx#expander::t _%$args120941%_))) + (lambda _%$args122228%_ + (apply make-instance gx#expander::t _%$args122228%_))) (define gx#expander-e (__make-class-slot-accessor gx#expander::t 'e)) (define gx#expander-e-set! (__make-class-slot-mutator gx#expander::t 'e)) (define gx#&expander-e @@ -897,8 +898,8 @@ '#f)) (define gx#core-expander? (__make-class-predicate gx#core-expander::t)) (define gx#make-core-expander - (lambda _%$args120938%_ - (apply make-instance gx#core-expander::t _%$args120938%_))) + (lambda _%$args122225%_ + (apply make-instance gx#core-expander::t _%$args122225%_))) (define gx#core-expander-id (__make-class-slot-accessor gx#core-expander::t 'id)) (define gx#core-expander-compile-top @@ -933,8 +934,8 @@ '#f)) (define gx#expression-form? (__make-class-predicate gx#expression-form::t)) (define gx#make-expression-form - (lambda _%$args120935%_ - (apply make-instance gx#expression-form::t _%$args120935%_))) + (lambda _%$args122222%_ + (apply make-instance gx#expression-form::t _%$args122222%_))) (define gx#expression-form-id (__make-class-slot-accessor gx#expression-form::t 'id)) (define gx#expression-form-compile-top @@ -971,8 +972,8 @@ '#f)) (define gx#special-form? (__make-class-predicate gx#special-form::t)) (define gx#make-special-form - (lambda _%$args120932%_ - (apply make-instance gx#special-form::t _%$args120932%_))) + (lambda _%$args122219%_ + (apply make-instance gx#special-form::t _%$args122219%_))) (define gx#special-form-id (__make-class-slot-accessor gx#special-form::t 'id)) (define gx#special-form-compile-top @@ -1007,8 +1008,8 @@ '#f)) (define gx#definition-form? (__make-class-predicate gx#definition-form::t)) (define gx#make-definition-form - (lambda _%$args120929%_ - (apply make-instance gx#definition-form::t _%$args120929%_))) + (lambda _%$args122216%_ + (apply make-instance gx#definition-form::t _%$args122216%_))) (define gx#definition-form-id (__make-class-slot-accessor gx#definition-form::t 'id)) (define gx#definition-form-compile-top @@ -1046,8 +1047,8 @@ (define gx#top-special-form? (__make-class-predicate gx#top-special-form::t)) (define gx#make-top-special-form - (lambda _%$args120926%_ - (apply make-instance gx#top-special-form::t _%$args120926%_))) + (lambda _%$args122213%_ + (apply make-instance gx#top-special-form::t _%$args122213%_))) (define gx#top-special-form-id (__make-class-slot-accessor gx#top-special-form::t 'id)) (define gx#top-special-form-compile-top @@ -1087,8 +1088,8 @@ (define gx#module-special-form? (__make-class-predicate gx#module-special-form::t)) (define gx#make-module-special-form - (lambda _%$args120923%_ - (apply make-instance gx#module-special-form::t _%$args120923%_))) + (lambda _%$args122210%_ + (apply make-instance gx#module-special-form::t _%$args122210%_))) (define gx#module-special-form-id (__make-class-slot-accessor gx#module-special-form::t 'id)) (define gx#module-special-form-compile-top @@ -1128,8 +1129,8 @@ (define gx#feature-expander? (__make-class-predicate gx#feature-expander::t)) (define gx#make-feature-expander - (lambda _%$args120920%_ - (apply make-instance gx#feature-expander::t _%$args120920%_))) + (lambda _%$args122207%_ + (apply make-instance gx#feature-expander::t _%$args122207%_))) (define gx#feature-expander-e (__make-class-slot-accessor gx#feature-expander::t 'e)) (define gx#feature-expander-e-set! @@ -1149,8 +1150,8 @@ (define gx#private-feature-expander? (__make-class-predicate gx#private-feature-expander::t)) (define gx#make-private-feature-expander - (lambda _%$args120917%_ - (apply make-instance gx#private-feature-expander::t _%$args120917%_))) + (lambda _%$args122204%_ + (apply make-instance gx#private-feature-expander::t _%$args122204%_))) (define gx#private-feature-expander-e (__make-class-slot-accessor gx#private-feature-expander::t 'e)) (define gx#private-feature-expander-e-set! @@ -1170,8 +1171,8 @@ (define gx#reserved-expander? (__make-class-predicate gx#reserved-expander::t)) (define gx#make-reserved-expander - (lambda _%$args120914%_ - (apply make-instance gx#reserved-expander::t _%$args120914%_))) + (lambda _%$args122201%_ + (apply make-instance gx#reserved-expander::t _%$args122201%_))) (define gx#reserved-expander-e (__make-class-slot-accessor gx#reserved-expander::t 'e)) (define gx#reserved-expander-e-set! @@ -1190,8 +1191,8 @@ '#f)) (define gx#macro-expander? (__make-class-predicate gx#macro-expander::t)) (define gx#make-macro-expander - (lambda _%$args120911%_ - (apply make-instance gx#macro-expander::t _%$args120911%_))) + (lambda _%$args122198%_ + (apply make-instance gx#macro-expander::t _%$args122198%_))) (define gx#macro-expander-e (__make-class-slot-accessor gx#macro-expander::t 'e)) (define gx#macro-expander-e-set! @@ -1211,8 +1212,8 @@ (define gx#rename-macro-expander? (__make-class-predicate gx#rename-macro-expander::t)) (define gx#make-rename-macro-expander - (lambda _%$args120908%_ - (apply make-instance gx#rename-macro-expander::t _%$args120908%_))) + (lambda _%$args122195%_ + (apply make-instance gx#rename-macro-expander::t _%$args122195%_))) (define gx#rename-macro-expander-e (__make-class-slot-accessor gx#rename-macro-expander::t 'e)) (define gx#rename-macro-expander-e-set! @@ -1231,8 +1232,8 @@ '#f)) (define gx#user-expander? (__make-class-predicate gx#user-expander::t)) (define gx#make-user-expander - (lambda _%$args120905%_ - (apply make-instance gx#user-expander::t _%$args120905%_))) + (lambda _%$args122192%_ + (apply make-instance gx#user-expander::t _%$args122192%_))) (define gx#user-expander-context (__make-class-slot-accessor gx#user-expander::t 'context)) (define gx#user-expander-phi @@ -1267,8 +1268,8 @@ '#f)) (define gx#expander-mark? (__make-class-predicate gx#expander-mark::t)) (define gx#make-expander-mark - (lambda _%$args120902%_ - (apply make-instance gx#expander-mark::t _%$args120902%_))) + (lambda _%$args122189%_ + (apply make-instance gx#expander-mark::t _%$args122189%_))) (define gx#expander-mark-subst (__make-class-slot-accessor gx#expander-mark::t 'subst)) (define gx#expander-mark-context @@ -1302,985 +1303,985 @@ (define gx#&expander-mark-trace-set! (__make-class-slot-unchecked-mutator gx#expander-mark::t 'trace)) (define gx#raise-syntax-error - (lambda (_%ctx120886%_ - _%message120887%_ - _%stx120888%_ + (lambda (_%ctx122173%_ + _%message122174%_ + _%stx122175%_ . - _%details120889%_) - (let ((_%ctx120900%_ - (let ((_%$e120891%_ _%ctx120886%_)) - (if _%$e120891%_ - _%$e120891%_ - (let ((_%$e120894%_ (gx#core-context-top__0))) - (if _%$e120894%_ - ((lambda (_%ctx120897%_) + _%details122176%_) + (let ((_%ctx122187%_ + (let ((_%$e122178%_ _%ctx122173%_)) + (if _%$e122178%_ + _%$e122178%_ + (let ((_%$e122181%_ (gx#core-context-top__0))) + (if _%$e122181%_ + ((lambda (_%ctx122184%_) (cons 'expand (cons (##structure-ref - _%ctx120897%_ + _%ctx122184%_ '1 gx#expander-context::t '#f) '()))) - _%$e120894%_) + _%$e122181%_) '#f)))))) (raise (make-syntax-error - _%message120887%_ - (cons _%stx120888%_ _%details120889%_) - _%ctx120900%_ + _%message122174%_ + (cons _%stx122175%_ _%details122176%_) + _%ctx122187%_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi)))))) (define gx#eval-syntax__% - (lambda (_%stx120873%_ _%expression?120874%_) + (lambda (_%stx122160%_ _%expression?122161%_) (gx#eval-syntax* - (gx#core-expand__% _%stx120873%_ _%expression?120874%_)))) + (gx#core-expand__% _%stx122160%_ _%expression?122161%_)))) (define gx#eval-syntax__0 - (lambda (_%stx120879%_) - (let ((_%expression?120881%_ '#f)) - (gx#eval-syntax__% _%stx120879%_ _%expression?120881%_)))) + (lambda (_%stx122166%_) + (let ((_%expression?122168%_ '#f)) + (gx#eval-syntax__% _%stx122166%_ _%expression?122168%_)))) (define gx#eval-syntax - (lambda _g121337_ - (let ((_g121336_ (##length _g121337_))) - (cond ((##fx= _g121336_ 1) (apply gx#eval-syntax__0 _g121337_)) - ((##fx= _g121336_ 2) (apply gx#eval-syntax__% _g121337_)) + (lambda _g122624_ + (let ((_g122623_ (##length _g122624_))) + (cond ((##fx= _g122623_ 1) (apply gx#eval-syntax__0 _g122624_)) + ((##fx= _g122623_ 2) (apply gx#eval-syntax__% _g122624_)) (else (##raise-wrong-number-of-arguments-exception gx#eval-syntax - _g121337_)))))) + _g122624_)))))) (define gx#eval-syntax* - (lambda (_%stx120870%_) + (lambda (_%stx122157%_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _%stx120870%_)))) + ((gx#current-expander-compile) _%stx122157%_)))) (define gx#core-expand__% - (lambda (_%stx120857%_ _%expression?120858%_) - (if _%expression?120858%_ - (gx#core-expand-expression _%stx120857%_) - (gx#core-expand-top _%stx120857%_)))) + (lambda (_%stx122144%_ _%expression?122145%_) + (if _%expression?122145%_ + (gx#core-expand-expression _%stx122144%_) + (gx#core-expand-top _%stx122144%_)))) (define gx#core-expand__0 - (lambda (_%stx120863%_) - (let ((_%expression?120865%_ '#f)) - (gx#core-expand__% _%stx120863%_ _%expression?120865%_)))) + (lambda (_%stx122150%_) + (let ((_%expression?122152%_ '#f)) + (gx#core-expand__% _%stx122150%_ _%expression?122152%_)))) (define gx#core-expand - (lambda _g121339_ - (let ((_g121338_ (##length _g121339_))) - (cond ((##fx= _g121338_ 1) (apply gx#core-expand__0 _g121339_)) - ((##fx= _g121338_ 2) (apply gx#core-expand__% _g121339_)) + (lambda _g122626_ + (let ((_g122625_ (##length _g122626_))) + (cond ((##fx= _g122625_ 1) (apply gx#core-expand__0 _g122626_)) + ((##fx= _g122625_ 2) (apply gx#core-expand__% _g122626_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand - _g121339_)))))) + _g122626_)))))) (define gx#core-expand-top - (lambda (_%stx120824%_) - (let* ((_%stx120826%_ (gx#core-expand*__0 _%stx120824%_)) - (_%e120827120834%_ _%stx120826%_) - (_%E120829120838%_ - (lambda () (gx#core-expand-expression _%stx120826%_))) - (_%E120828120852%_ + (lambda (_%stx122111%_) + (let* ((_%stx122113%_ (gx#core-expand*__0 _%stx122111%_)) + (_%e122114122121%_ _%stx122113%_) + (_%E122116122125%_ + (lambda () (gx#core-expand-expression _%stx122113%_))) + (_%E122115122139%_ (lambda () - (if (gx#stx-pair? _%e120827120834%_) - (let ((_%e120830120842%_ - (gx#syntax-e _%e120827120834%_))) - (let ((_%hd120831120845%_ (##car _%e120830120842%_)) - (_%tl120832120847%_ (##cdr _%e120830120842%_))) - (let ((_%form120850%_ _%hd120831120845%_)) - (if (gx#core-bound-identifier?__0 _%form120850%_) - _%stx120826%_ - (_%E120829120838%_))))) - (_%E120829120838%_))))) - (_%E120828120852%_)))) + (if (gx#stx-pair? _%e122114122121%_) + (let ((_%e122117122129%_ + (gx#syntax-e _%e122114122121%_))) + (let ((_%hd122118122132%_ (##car _%e122117122129%_)) + (_%tl122119122134%_ (##cdr _%e122117122129%_))) + (let ((_%form122137%_ _%hd122118122132%_)) + (if (gx#core-bound-identifier?__0 _%form122137%_) + _%stx122113%_ + (_%E122116122125%_))))) + (_%E122116122125%_))))) + (_%E122115122139%_)))) (define gx#core-expand-expression - (lambda (_%stx120756%_) - (letrec ((_%sealed-expression?120758%_ - (lambda (_%hd120794%_) - (if (gx#sealed-syntax? _%hd120794%_) - (let* ((_%e120795120802%_ _%hd120794%_) - (_%E120797120806%_ (lambda () '#f)) - (_%E120796120820%_ + (lambda (_%stx122043%_) + (letrec ((_%sealed-expression?122045%_ + (lambda (_%hd122081%_) + (if (gx#sealed-syntax? _%hd122081%_) + (let* ((_%e122082122089%_ _%hd122081%_) + (_%E122084122093%_ (lambda () '#f)) + (_%E122083122107%_ (lambda () - (if (gx#stx-pair? _%e120795120802%_) - (let ((_%e120798120810%_ - (gx#syntax-e _%e120795120802%_))) - (let ((_%hd120799120813%_ - (##car _%e120798120810%_)) - (_%tl120800120815%_ - (##cdr _%e120798120810%_))) - (let ((_%form120818%_ - _%hd120799120813%_)) + (if (gx#stx-pair? _%e122082122089%_) + (let ((_%e122085122097%_ + (gx#syntax-e _%e122082122089%_))) + (let ((_%hd122086122100%_ + (##car _%e122085122097%_)) + (_%tl122087122102%_ + (##cdr _%e122085122097%_))) + (let ((_%form122105%_ + _%hd122086122100%_)) (gx#core-bound-identifier?__% - _%form120818%_ + _%form122105%_ gx#expression-form-binding?)))) - (_%E120797120806%_))))) - (_%E120796120820%_)) + (_%E122084122093%_))))) + (_%E122083122107%_)) '#f))) - (_%illegal-expression120759%_ - (lambda (_%hd120791%_ . _%_120792%_) + (_%illegal-expression122046%_ + (lambda (_%hd122078%_ . _%_122079%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _%stx120756%_ - _%hd120791%_))) - (_%expand-e120760%_ - (lambda (_%form120783%_ _%hd120784%_) - (let ((_%bind120786%_ + _%stx122043%_ + _%hd122078%_))) + (_%expand-e122047%_ + (lambda (_%form122070%_ _%hd122071%_) + (let ((_%bind122073%_ (if (##structure-instance-of? - _%form120783%_ + _%form122070%_ 'gx#binding::t) - _%form120783%_ - (gx#resolve-identifier__0 _%form120783%_)))) - (if (gx#core-expander-binding? _%bind120786%_) + _%form122070%_ + (gx#resolve-identifier__0 _%form122070%_)))) + (if (gx#core-expander-binding? _%bind122073%_) (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind120786%_ + _%bind122073%_ '4 '#f '#f) (gx#stx-wrap-source - _%hd120784%_ - (gx#stx-source _%stx120756%_))) + _%hd122071%_ + (gx#stx-source _%stx122043%_))) (if (##structure-direct-instance-of? - _%bind120786%_ + _%bind122073%_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind120786%_ + _%bind122073%_ '4 '#f '#f) (gx#stx-wrap-source - _%hd120784%_ - (gx#stx-source _%stx120756%_)))) + _%hd122071%_ + (gx#stx-source _%stx122043%_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _%stx120756%_ - _%form120783%_))))))) - (let ((_%hd120762%_ (gx#core-expand-head _%stx120756%_))) - (if (_%sealed-expression?120758%_ _%hd120762%_) - _%hd120762%_ - (if (gx#stx-pair? _%hd120762%_) - (let* ((_%form120766%_ (gx#stx-car _%hd120762%_)) - (_%bind120768%_ - (if (gx#identifier? _%form120766%_) - (gx#resolve-identifier__0 _%form120766%_) + _%stx122043%_ + _%form122070%_))))))) + (let ((_%hd122049%_ (gx#core-expand-head _%stx122043%_))) + (if (_%sealed-expression?122045%_ _%hd122049%_) + _%hd122049%_ + (if (gx#stx-pair? _%hd122049%_) + (let* ((_%form122053%_ (gx#stx-car _%hd122049%_)) + (_%bind122055%_ + (if (gx#identifier? _%form122053%_) + (gx#resolve-identifier__0 _%form122053%_) '#f))) - (if (or (not _%bind120768%_) - (not (gx#core-expander-binding? _%bind120768%_))) - (_%expand-e120760%_ + (if (or (not _%bind122055%_) + (not (gx#core-expander-binding? _%bind122055%_))) + (_%expand-e122047%_ '%%app - (cons '%%app _%hd120762%_)) + (cons '%%app _%hd122049%_)) (if (eq? (##unchecked-structure-ref - _%bind120768%_ + _%bind122055%_ '1 '#f '#f) '%#begin) (gx#core-expand-block* - _%hd120762%_ - _%illegal-expression120759%_) - (if (gx#expression-form-binding? _%bind120768%_) - (_%expand-e120760%_ - _%bind120768%_ - _%hd120762%_) + _%hd122049%_ + _%illegal-expression122046%_) + (if (gx#expression-form-binding? _%bind122055%_) + (_%expand-e122047%_ + _%bind122055%_ + _%hd122049%_) (if (gx#direct-special-form-binding? - _%bind120768%_) + _%bind122055%_) (gx#core-expand-expression - (_%expand-e120760%_ - _%bind120768%_ - _%hd120762%_)) - (_%illegal-expression120759%_ - _%hd120762%_)))))) - (if (gx#core-bound-identifier?__0 _%hd120762%_) - (_%illegal-expression120759%_ _%hd120762%_) - (if (gx#identifier? _%hd120762%_) - (_%expand-e120760%_ + (_%expand-e122047%_ + _%bind122055%_ + _%hd122049%_)) + (_%illegal-expression122046%_ + _%hd122049%_)))))) + (if (gx#core-bound-identifier?__0 _%hd122049%_) + (_%illegal-expression122046%_ _%hd122049%_) + (if (gx#identifier? _%hd122049%_) + (_%expand-e122047%_ '%%ref - (cons '%%ref (cons _%hd120762%_ '()))) - (if (gx#stx-datum? _%hd120762%_) - (_%expand-e120760%_ + (cons '%%ref (cons _%hd122049%_ '()))) + (if (gx#stx-datum? _%hd122049%_) + (_%expand-e122047%_ '%#quote - (cons '%#quote (cons _%hd120762%_ '()))) - (_%illegal-expression120759%_ - _%hd120762%_)))))))))) + (cons '%#quote (cons _%hd122049%_ '()))) + (_%illegal-expression122046%_ + _%hd122049%_)))))))))) (define gx#core-expand-expression+1 - (lambda (_%stx120751%_) + (lambda (_%stx122038%_) (__call-with-parameters (lambda () - (let ((_%stx120754%_ (gx#core-expand-expression _%stx120751%_))) - (values _%stx120754%_ (gx#eval-syntax* _%stx120754%_)))) + (let ((_%stx122041%_ (gx#core-expand-expression _%stx122038%_))) + (values _%stx122041%_ (gx#eval-syntax* _%stx122041%_)))) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)))) (define gx#core-expand*__% - (lambda (_%stx120732%_ _%stop?120733%_) - (let _%lp120735%_ ((_%stx120737%_ _%stx120732%_)) - (if (_%stop?120733%_ _%stx120737%_) - _%stx120737%_ - (let ((_%rstx120739%_ (gx#core-expand1 _%stx120737%_))) - (if (eq? _%stx120737%_ _%rstx120739%_) - _%stx120737%_ - (_%lp120735%_ _%rstx120739%_))))))) + (lambda (_%stx122019%_ _%stop?122020%_) + (let _%lp122022%_ ((_%stx122024%_ _%stx122019%_)) + (if (_%stop?122020%_ _%stx122024%_) + _%stx122024%_ + (let ((_%rstx122026%_ (gx#core-expand1 _%stx122024%_))) + (if (eq? _%stx122024%_ _%rstx122026%_) + _%stx122024%_ + (_%lp122022%_ _%rstx122026%_))))))) (define gx#core-expand*__0 - (lambda (_%stx120744%_) - (let ((_%stop?120746%_ false)) - (gx#core-expand*__% _%stx120744%_ _%stop?120746%_)))) + (lambda (_%stx122031%_) + (let ((_%stop?122033%_ false)) + (gx#core-expand*__% _%stx122031%_ _%stop?122033%_)))) (define gx#core-expand* - (lambda _g121341_ - (let ((_g121340_ (##length _g121341_))) - (cond ((##fx= _g121340_ 1) (apply gx#core-expand*__0 _g121341_)) - ((##fx= _g121340_ 2) (apply gx#core-expand*__% _g121341_)) + (lambda _g122628_ + (let ((_g122627_ (##length _g122628_))) + (cond ((##fx= _g122627_ 1) (apply gx#core-expand*__0 _g122628_)) + ((##fx= _g122627_ 2) (apply gx#core-expand*__% _g122628_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand* - _g121341_)))))) + _g122628_)))))) (define gx#core-expand1 - (lambda (_%stx120684%_) - (letrec ((_%step120686%_ - (lambda (_%hd120723%_) - (let ((_%bind120725%_ - (gx#resolve-identifier__0 _%hd120723%_))) + (lambda (_%stx121971%_) + (letrec ((_%step121973%_ + (lambda (_%hd122010%_) + (let ((_%bind122012%_ + (gx#resolve-identifier__0 _%hd122010%_))) (if (##structure-instance-of? - _%bind120725%_ + _%bind122012%_ 'gx#runtime-binding::t) - _%stx120684%_ + _%stx121971%_ (if (##structure-direct-instance-of? - _%bind120725%_ + _%bind122012%_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind120725%_ + _%bind122012%_ '4 '#f '#f) - _%stx120684%_) - (if (not _%bind120725%_) - _%stx120684%_ + _%stx121971%_) + (if (not _%bind122012%_) + _%stx121971%_ (gx#raise-syntax-error '#f '"Bad syntax; no binding for head" - _%stx120684%_)))))))) - (let* ((_%e120687120695%_ _%stx120684%_) - (_%E120693120699%_ (lambda () _%stx120684%_)) - (_%E120689120705%_ + _%stx121971%_)))))))) + (let* ((_%e121974121982%_ _%stx121971%_) + (_%E121980121986%_ (lambda () _%stx121971%_)) + (_%E121976121992%_ (lambda () - (let ((_%hd120703%_ _%e120687120695%_)) - (if (gx#identifier? _%hd120703%_) - (_%step120686%_ _%hd120703%_) - (_%E120693120699%_))))) - (_%E120688120719%_ + (let ((_%hd121990%_ _%e121974121982%_)) + (if (gx#identifier? _%hd121990%_) + (_%step121973%_ _%hd121990%_) + (_%E121980121986%_))))) + (_%E121975122006%_ (lambda () - (if (gx#stx-pair? _%e120687120695%_) - (let ((_%e120690120709%_ - (gx#syntax-e _%e120687120695%_))) - (let ((_%hd120691120712%_ (##car _%e120690120709%_)) - (_%tl120692120714%_ (##cdr _%e120690120709%_))) - (let ((_%hd120717%_ _%hd120691120712%_)) - (if (gx#identifier? _%hd120717%_) - (_%step120686%_ _%hd120717%_) - (_%E120689120705%_))))) - (_%E120689120705%_))))) - (_%E120688120719%_))))) + (if (gx#stx-pair? _%e121974121982%_) + (let ((_%e121977121996%_ + (gx#syntax-e _%e121974121982%_))) + (let ((_%hd121978121999%_ (##car _%e121977121996%_)) + (_%tl121979122001%_ (##cdr _%e121977121996%_))) + (let ((_%hd122004%_ _%hd121978121999%_)) + (if (gx#identifier? _%hd122004%_) + (_%step121973%_ _%hd122004%_) + (_%E121976121992%_))))) + (_%E121976121992%_))))) + (_%E121975122006%_))))) (define gx#core-expand-head - (lambda (_%stx120650%_) - (letrec ((_%stop?120652%_ - (lambda (_%stx120654%_) - (let* ((_%e120655120662%_ _%stx120654%_) - (_%E120657120666%_ (lambda () '#f)) - (_%E120656120680%_ + (lambda (_%stx121937%_) + (letrec ((_%stop?121939%_ + (lambda (_%stx121941%_) + (let* ((_%e121942121949%_ _%stx121941%_) + (_%E121944121953%_ (lambda () '#f)) + (_%E121943121967%_ (lambda () - (if (gx#stx-pair? _%e120655120662%_) - (let ((_%e120658120670%_ - (gx#syntax-e _%e120655120662%_))) - (let ((_%hd120659120673%_ - (##car _%e120658120670%_)) - (_%tl120660120675%_ - (##cdr _%e120658120670%_))) - (let ((_%hd120678%_ _%hd120659120673%_)) + (if (gx#stx-pair? _%e121942121949%_) + (let ((_%e121945121957%_ + (gx#syntax-e _%e121942121949%_))) + (let ((_%hd121946121960%_ + (##car _%e121945121957%_)) + (_%tl121947121962%_ + (##cdr _%e121945121957%_))) + (let ((_%hd121965%_ _%hd121946121960%_)) (gx#core-bound-identifier?__0 - _%hd120678%_)))) - (_%E120657120666%_))))) - (_%E120656120680%_))))) - (gx#core-expand*__% _%stx120650%_ _%stop?120652%_)))) + _%hd121965%_)))) + (_%E121944121953%_))))) + (_%E121943121967%_))))) + (gx#core-expand*__% _%stx121937%_ _%stop?121939%_)))) (define gx#core-expand-block__% - (lambda (_%stx120456%_ - _%expand-special120457%_ - _%begin-form120458%_ - _%expand-e120459%_) - (letrec ((_%expand-splice120461%_ - (lambda (_%hd120624%_ - _%body120625%_ - _%rest120626%_ - _%r120627%_) - (if (gx#stx-list? _%body120625%_) - (_%K120465%_ - (gx#stx-foldr cons _%rest120626%_ _%body120625%_) - _%r120627%_) + (lambda (_%stx121743%_ + _%expand-special121744%_ + _%begin-form121745%_ + _%expand-e121746%_) + (letrec ((_%expand-splice121748%_ + (lambda (_%hd121911%_ + _%body121912%_ + _%rest121913%_ + _%r121914%_) + (if (gx#stx-list? _%body121912%_) + (_%K121752%_ + (gx#stx-foldr cons _%rest121913%_ _%body121912%_) + _%r121914%_) (gx#raise-syntax-error '#f '"Bad syntax; splice body isn't a list" - _%stx120456%_ - _%hd120624%_)))) - (_%expand-cond-expand120462%_ - (lambda (_%hd120620%_ _%rest120621%_ _%r120622%_) - (_%K120465%_ - (cons (gx#core-expand-cond-expand% _%hd120620%_) - _%rest120621%_) - _%r120622%_))) - (_%expand-include120463%_ - (lambda (_%hd120569%_ _%rest120570%_ _%r120571%_) - (let* ((_%e120572120582%_ _%hd120569%_) - (_%E120574120586%_ + _%stx121743%_ + _%hd121911%_)))) + (_%expand-cond-expand121749%_ + (lambda (_%hd121907%_ _%rest121908%_ _%r121909%_) + (_%K121752%_ + (cons (gx#core-expand-cond-expand% _%hd121907%_) + _%rest121908%_) + _%r121909%_))) + (_%expand-include121750%_ + (lambda (_%hd121856%_ _%rest121857%_ _%r121858%_) + (let* ((_%e121859121869%_ _%hd121856%_) + (_%E121861121873%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120572120582%_))) - (_%E120573120616%_ + _%e121859121869%_))) + (_%E121860121903%_ (lambda () - (if (gx#stx-pair? _%e120572120582%_) - (let ((_%e120575120590%_ - (gx#syntax-e _%e120572120582%_))) - (let ((_%hd120576120593%_ - (##car _%e120575120590%_)) - (_%tl120577120595%_ - (##cdr _%e120575120590%_))) - (if (gx#stx-pair? _%tl120577120595%_) - (let ((_%e120578120598%_ + (if (gx#stx-pair? _%e121859121869%_) + (let ((_%e121862121877%_ + (gx#syntax-e _%e121859121869%_))) + (let ((_%hd121863121880%_ + (##car _%e121862121877%_)) + (_%tl121864121882%_ + (##cdr _%e121862121877%_))) + (if (gx#stx-pair? _%tl121864121882%_) + (let ((_%e121865121885%_ (gx#syntax-e - _%tl120577120595%_))) - (let ((_%hd120579120601%_ - (##car _%e120578120598%_)) - (_%tl120580120603%_ - (##cdr _%e120578120598%_))) - (let ((_%path120606%_ - _%hd120579120601%_)) + _%tl121864121882%_))) + (let ((_%hd121866121888%_ + (##car _%e121865121885%_)) + (_%tl121867121890%_ + (##cdr _%e121865121885%_))) + (let ((_%path121893%_ + _%hd121866121888%_)) (if (gx#stx-null? - _%tl120580120603%_) + _%tl121867121890%_) (if (gx#stx-string? - _%path120606%_) - (let* ((_%rpath120608%_ + _%path121893%_) + (let* ((_%rpath121895%_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%path120606%_ - (gx#stx-source _%hd120569%_))) - (_%block120610%_ + _%path121893%_ + (gx#stx-source _%hd121856%_))) + (_%block121897%_ (gx#core-expand-include%__% - _%hd120569%_ - _%rpath120608%_)) - (_%rbody120613%_ + _%hd121856%_ + _%rpath121895%_)) + (_%rbody121900%_ (__call-with-parameters (lambda () (gx#core-expand-block__% - _%block120610%_ - _%expand-special120457%_ + _%block121897%_ + _%expand-special121744%_ '#f - _%expand-e120459%_)) + _%expand-e121746%_)) gx#current-expander-path - (cons _%rpath120608%_ (gx#current-expander-path))))) - (_%K120465%_ - _%rest120570%_ - (__foldr1 cons _%r120571%_ _%rbody120613%_))) - (_%E120574120586%_)) + (cons _%rpath121895%_ (gx#current-expander-path))))) + (_%K121752%_ + _%rest121857%_ + (__foldr1 cons _%r121858%_ _%rbody121900%_))) + (_%E121861121873%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120574120586%_))))) - (_%E120574120586%_)))) - (_%E120574120586%_))))) - (_%E120573120616%_)))) - (_%expand-expression120464%_ - (lambda (_%hd120565%_ _%rest120566%_ _%r120567%_) - (_%K120465%_ - _%rest120566%_ - (cons (_%expand-e120459%_ _%hd120565%_) _%r120567%_)))) - (_%K120465%_ - (lambda (_%rest120495%_ _%r120496%_) - (let* ((_%e120497120504%_ _%rest120495%_) - (_%E120499120508%_ + (_%E121861121873%_))))) + (_%E121861121873%_)))) + (_%E121861121873%_))))) + (_%E121860121903%_)))) + (_%expand-expression121751%_ + (lambda (_%hd121852%_ _%rest121853%_ _%r121854%_) + (_%K121752%_ + _%rest121853%_ + (cons (_%expand-e121746%_ _%hd121852%_) _%r121854%_)))) + (_%K121752%_ + (lambda (_%rest121782%_ _%r121783%_) + (let* ((_%e121784121791%_ _%rest121782%_) + (_%E121786121795%_ (lambda () - (if _%begin-form120458%_ + (if _%begin-form121745%_ (gx#core-quote-syntax__1 (gx#core-cons - _%begin-form120458%_ - (reverse _%r120496%_)) - (gx#stx-source _%stx120456%_)) - _%r120496%_))) - (_%E120498120561%_ + _%begin-form121745%_ + (reverse _%r121783%_)) + (gx#stx-source _%stx121743%_)) + _%r121783%_))) + (_%E121785121848%_ (lambda () - (if (gx#stx-pair? _%e120497120504%_) - (let ((_%e120500120512%_ - (gx#syntax-e _%e120497120504%_))) - (let ((_%hd120501120515%_ - (##car _%e120500120512%_)) - (_%tl120502120517%_ - (##cdr _%e120500120512%_))) - (let* ((_%hd120520%_ _%hd120501120515%_) - (_%rest120522%_ - _%tl120502120517%_) - (_%hd120524%_ + (if (gx#stx-pair? _%e121784121791%_) + (let ((_%e121787121799%_ + (gx#syntax-e _%e121784121791%_))) + (let ((_%hd121788121802%_ + (##car _%e121787121799%_)) + (_%tl121789121804%_ + (##cdr _%e121787121799%_))) + (let* ((_%hd121807%_ _%hd121788121802%_) + (_%rest121809%_ + _%tl121789121804%_) + (_%hd121811%_ (gx#core-expand-head - _%hd120520%_)) - (_%e120525120532%_ _%hd120524%_) - (_%E120527120536%_ + _%hd121807%_)) + (_%e121812121819%_ _%hd121811%_) + (_%E121814121823%_ (lambda () - (_%expand-expression120464%_ - _%hd120524%_ - _%rest120522%_ - _%r120496%_))) - (_%E120526120557%_ + (_%expand-expression121751%_ + _%hd121811%_ + _%rest121809%_ + _%r121783%_))) + (_%E121813121844%_ (lambda () (if (gx#stx-pair? - _%e120525120532%_) - (let ((_%e120528120540%_ + _%e121812121819%_) + (let ((_%e121815121827%_ (gx#syntax-e - _%e120525120532%_))) - (let ((_%hd120529120543%_ - (##car _%e120528120540%_)) - (_%tl120530120545%_ - (##cdr _%e120528120540%_))) - (let* ((_%form120548%_ - _%hd120529120543%_) - (_%body120550%_ - _%tl120530120545%_) - (_%bind120552%_ + _%e121812121819%_))) + (let ((_%hd121816121830%_ + (##car _%e121815121827%_)) + (_%tl121817121832%_ + (##cdr _%e121815121827%_))) + (let* ((_%form121835%_ + _%hd121816121830%_) + (_%body121837%_ + _%tl121817121832%_) + (_%bind121839%_ (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%form120548%_) - (gx#resolve-identifier__0 _%form120548%_) + _%form121835%_) + (gx#resolve-identifier__0 _%form121835%_) '#f))) - (if (gx#special-form-binding? _%bind120552%_) - (let ((_%$e120554%_ + (if (gx#special-form-binding? _%bind121839%_) + (let ((_%$e121841%_ (##unchecked-structure-ref - _%bind120552%_ + _%bind121839%_ '1 '#f '#f))) - (if (eq? '%#begin _%$e120554%_) - (_%expand-splice120461%_ - _%hd120524%_ - _%body120550%_ - _%rest120522%_ - _%r120496%_) - (if (eq? '%#cond-expand _%$e120554%_) - (_%expand-cond-expand120462%_ - _%hd120524%_ - _%rest120522%_ - _%r120496%_) - (if (eq? '%#include _%$e120554%_) - (_%expand-include120463%_ - _%hd120524%_ - _%rest120522%_ - _%r120496%_) - (_%expand-special120457%_ - _%hd120524%_ - _%K120465%_ - _%rest120522%_ - _%r120496%_))))) - (_%expand-expression120464%_ - _%hd120524%_ - _%rest120522%_ - _%r120496%_))))) + (if (eq? '%#begin _%$e121841%_) + (_%expand-splice121748%_ + _%hd121811%_ + _%body121837%_ + _%rest121809%_ + _%r121783%_) + (if (eq? '%#cond-expand _%$e121841%_) + (_%expand-cond-expand121749%_ + _%hd121811%_ + _%rest121809%_ + _%r121783%_) + (if (eq? '%#include _%$e121841%_) + (_%expand-include121750%_ + _%hd121811%_ + _%rest121809%_ + _%r121783%_) + (_%expand-special121744%_ + _%hd121811%_ + _%K121752%_ + _%rest121809%_ + _%r121783%_))))) + (_%expand-expression121751%_ + _%hd121811%_ + _%rest121809%_ + _%r121783%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120527120536%_))))) - (_%E120526120557%_)))) - (_%E120499120508%_))))) - (_%E120498120561%_))))) - (let* ((_%e120466120473%_ _%stx120456%_) - (_%E120468120477%_ + (_%E121814121823%_))))) + (_%E121813121844%_)))) + (_%E121786121795%_))))) + (_%E121785121848%_))))) + (let* ((_%e121753121760%_ _%stx121743%_) + (_%E121755121764%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120466120473%_))) - (_%E120467120491%_ + _%e121753121760%_))) + (_%E121754121778%_ (lambda () - (if (gx#stx-pair? _%e120466120473%_) - (let ((_%e120469120481%_ - (gx#syntax-e _%e120466120473%_))) - (let ((_%hd120470120484%_ (##car _%e120469120481%_)) - (_%tl120471120486%_ (##cdr _%e120469120481%_))) - (let ((_%body120489%_ _%tl120471120486%_)) - (if (gx#stx-list? _%body120489%_) - (_%K120465%_ _%body120489%_ '()) - (_%E120468120477%_))))) - (_%E120468120477%_))))) - (_%E120467120491%_))))) + (if (gx#stx-pair? _%e121753121760%_) + (let ((_%e121756121768%_ + (gx#syntax-e _%e121753121760%_))) + (let ((_%hd121757121771%_ (##car _%e121756121768%_)) + (_%tl121758121773%_ (##cdr _%e121756121768%_))) + (let ((_%body121776%_ _%tl121758121773%_)) + (if (gx#stx-list? _%body121776%_) + (_%K121752%_ _%body121776%_ '()) + (_%E121755121764%_))))) + (_%E121755121764%_))))) + (_%E121754121778%_))))) (define gx#core-expand-block__0 - (lambda (_%stx120632%_ _%expand-special120633%_) - (let* ((_%begin-form120635%_ '%#begin) - (_%expand-e120637%_ gx#core-expand-expression)) + (lambda (_%stx121919%_ _%expand-special121920%_) + (let* ((_%begin-form121922%_ '%#begin) + (_%expand-e121924%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx120632%_ - _%expand-special120633%_ - _%begin-form120635%_ - _%expand-e120637%_)))) + _%stx121919%_ + _%expand-special121920%_ + _%begin-form121922%_ + _%expand-e121924%_)))) (define gx#core-expand-block__1 - (lambda (_%stx120639%_ _%expand-special120640%_ _%begin-form120641%_) - (let ((_%expand-e120643%_ gx#core-expand-expression)) + (lambda (_%stx121926%_ _%expand-special121927%_ _%begin-form121928%_) + (let ((_%expand-e121930%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx120639%_ - _%expand-special120640%_ - _%begin-form120641%_ - _%expand-e120643%_)))) + _%stx121926%_ + _%expand-special121927%_ + _%begin-form121928%_ + _%expand-e121930%_)))) (define gx#core-expand-block - (lambda _g121343_ - (let ((_g121342_ (##length _g121343_))) - (cond ((##fx= _g121342_ 2) (apply gx#core-expand-block__0 _g121343_)) - ((##fx= _g121342_ 3) (apply gx#core-expand-block__1 _g121343_)) - ((##fx= _g121342_ 4) (apply gx#core-expand-block__% _g121343_)) + (lambda _g122630_ + (let ((_g122629_ (##length _g122630_))) + (cond ((##fx= _g122629_ 2) (apply gx#core-expand-block__0 _g122630_)) + ((##fx= _g122629_ 3) (apply gx#core-expand-block__1 _g122630_)) + ((##fx= _g122629_ 4) (apply gx#core-expand-block__% _g122630_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-block - _g121343_)))))) + _g122630_)))))) (define gx#core-expand-block* - (lambda (_%stx120404%_ _%expand-special120405%_) - (let* ((_%g120406120417%_ + (lambda (_%stx121691%_ _%expand-special121692%_) + (let* ((_%g121693121704%_ (gx#core-expand-block__1 - _%stx120404%_ - _%expand-special120405%_ + _%stx121691%_ + _%expand-special121692%_ '#f)) - (_%E120410120421%_ + (_%E121697121708%_ (lambda () (error '"No clause matching" - _%g120406120417%_ + _%g121693121704%_ '([]) '([expr]) '(body)) '#!void))) - (let ((_%K120415120452%_ + (let ((_%K121702121739%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _%stx120404%_))) - (_%K120412120438%_ (lambda (_%expr120436%_) _%expr120436%_)) - (_%K120411120427%_ - (lambda (_%body120425%_) + _%stx121691%_))) + (_%K121699121725%_ (lambda (_%expr121723%_) _%expr121723%_)) + (_%K121698121714%_ + (lambda (_%body121712%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _%body120425%_)) - (gx#stx-source _%stx120404%_))))) - (let ((_%try-match120408120448%_ + (gx#core-cons '%#begin (reverse _%body121712%_)) + (gx#stx-source _%stx121691%_))))) + (let ((_%try-match121695121735%_ (lambda () - (if (pair? _%g120406120417%_) - (let ((_%tl120414120443%_ (##cdr _%g120406120417%_)) - (_%hd120413120441%_ (##car _%g120406120417%_))) - (if (null? _%tl120414120443%_) - (let ((_%expr120446%_ _%hd120413120441%_)) - (_%K120412120438%_ _%expr120446%_)) - (let ((_%body120430%_ _%g120406120417%_)) - (_%K120411120427%_ _%body120430%_)))) - (let ((_%body120430%_ _%g120406120417%_)) - (_%K120411120427%_ _%body120430%_)))))) - (if (null? _%g120406120417%_) - (_%K120415120452%_) - (_%try-match120408120448%_))))))) + (if (pair? _%g121693121704%_) + (let ((_%tl121701121730%_ (##cdr _%g121693121704%_)) + (_%hd121700121728%_ (##car _%g121693121704%_))) + (if (null? _%tl121701121730%_) + (let ((_%expr121733%_ _%hd121700121728%_)) + (_%K121699121725%_ _%expr121733%_)) + (let ((_%body121717%_ _%g121693121704%_)) + (_%K121698121714%_ _%body121717%_)))) + (let ((_%body121717%_ _%g121693121704%_)) + (_%K121698121714%_ _%body121717%_)))))) + (if (null? _%g121693121704%_) + (_%K121702121739%_) + (_%try-match121695121735%_))))))) (define gx#core-expand-cond-expand% - (lambda (_%stx120229%_) - (letrec ((_%satisfied?120231%_ - (lambda (_%condition120332%_) - (let* ((_%e120333120348%_ _%condition120332%_) - (_%E120343120352%_ + (lambda (_%stx121516%_) + (letrec ((_%satisfied?121518%_ + (lambda (_%condition121619%_) + (let* ((_%e121620121635%_ _%condition121619%_) + (_%E121630121639%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120333120348%_))) - (_%E120336120371%_ + _%e121620121635%_))) + (_%E121623121658%_ (lambda () - (if (gx#stx-pair? _%e120333120348%_) - (let ((_%e120344120356%_ - (gx#syntax-e _%e120333120348%_))) - (let ((_%hd120345120359%_ - (##car _%e120344120356%_)) - (_%tl120346120361%_ - (##cdr _%e120344120356%_))) - (let* ((_%combinator120364%_ - _%hd120345120359%_) - (_%body120366%_ - _%tl120346120361%_)) - (if (gx#stx-list? _%body120366%_) - (let ((_%$e120368%_ + (if (gx#stx-pair? _%e121620121635%_) + (let ((_%e121631121643%_ + (gx#syntax-e _%e121620121635%_))) + (let ((_%hd121632121646%_ + (##car _%e121631121643%_)) + (_%tl121633121648%_ + (##cdr _%e121631121643%_))) + (let* ((_%combinator121651%_ + _%hd121632121646%_) + (_%body121653%_ + _%tl121633121648%_)) + (if (gx#stx-list? _%body121653%_) + (let ((_%$e121655%_ (gx#stx-e - _%combinator120364%_))) - (if (eq? 'not _%$e120368%_) + _%combinator121651%_))) + (if (eq? 'not _%$e121655%_) (not (gx#stx-ormap - _%satisfied?120231%_ - _%body120366%_)) - (if (eq? 'and _%$e120368%_) + _%satisfied?121518%_ + _%body121653%_)) + (if (eq? 'and _%$e121655%_) (gx#stx-andmap - _%satisfied?120231%_ - _%body120366%_) + _%satisfied?121518%_ + _%body121653%_) (if (eq? 'or - _%$e120368%_) + _%$e121655%_) (gx#stx-ormap - _%satisfied?120231%_ - _%body120366%_) + _%satisfied?121518%_ + _%body121653%_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e120368%_) - (gx#stx-andmap gx#core-resolve-identifier _%body120366%_) + _%$e121655%_) + (gx#stx-andmap gx#core-resolve-identifier _%body121653%_) (gx#raise-syntax-error '#f '"Bad syntax; bad cond-expannd combinator" - _%stx120229%_ - _%combinator120364%_)))))) + _%stx121516%_ + _%combinator121651%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120343120352%_))))) - (_%E120343120352%_)))) - (_%E120335120394%_ + (_%E121630121639%_))))) + (_%E121630121639%_)))) + (_%E121622121681%_ (lambda () - (if (gx#stx-pair? _%e120333120348%_) - (let ((_%e120337120375%_ - (gx#syntax-e _%e120333120348%_))) - (let ((_%hd120338120378%_ - (##car _%e120337120375%_)) - (_%tl120339120380%_ - (##cdr _%e120337120375%_))) + (if (gx#stx-pair? _%e121620121635%_) + (let ((_%e121624121662%_ + (gx#syntax-e _%e121620121635%_))) + (let ((_%hd121625121665%_ + (##car _%e121624121662%_)) + (_%tl121626121667%_ + (##cdr _%e121624121662%_))) (if (and (gx#identifier? - _%hd120338120378%_) + _%hd121625121665%_) (gx#core-identifier=? - _%hd120338120378%_ + _%hd121625121665%_ 'unquote)) - (if (gx#stx-pair? _%tl120339120380%_) - (let ((_%e120340120383%_ + (if (gx#stx-pair? _%tl121626121667%_) + (let ((_%e121627121670%_ (gx#syntax-e - _%tl120339120380%_))) - (let ((_%hd120341120386%_ - (##car _%e120340120383%_)) - (_%tl120342120388%_ - (##cdr _%e120340120383%_))) - (let ((_%expr120391%_ - _%hd120341120386%_)) + _%tl121626121667%_))) + (let ((_%hd121628121673%_ + (##car _%e121627121670%_)) + (_%tl121629121675%_ + (##cdr _%e121627121670%_))) + (let ((_%expr121678%_ + _%hd121628121673%_)) (if (gx#stx-null? - _%tl120342120388%_) + _%tl121629121675%_) (__call-with-parameters (lambda () (gx#eval-syntax__0 - _%expr120391%_)) + _%expr121678%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)) - (_%E120336120371%_))))) - (_%E120336120371%_)) - (_%E120336120371%_)))) - (_%E120336120371%_)))) - (_%E120334120400%_ + (_%E121623121658%_))))) + (_%E121623121658%_)) + (_%E121623121658%_)))) + (_%E121623121658%_)))) + (_%E121621121687%_ (lambda () - (let ((_%id120398%_ _%e120333120348%_)) - (if (gx#identifier? _%id120398%_) + (let ((_%id121685%_ _%e121620121635%_)) + (if (gx#identifier? _%id121685%_) (gx#core-bound-identifier?__% - _%id120398%_ + _%id121685%_ gx#feature-binding?) - (_%E120335120394%_)))))) - (_%E120334120400%_)))) - (_%loop120232%_ - (lambda (_%rest120262%_) - (let* ((_%e120263120271%_ _%rest120262%_) - (_%E120269120275%_ + (_%E121622121681%_)))))) + (_%E121621121687%_)))) + (_%loop121519%_ + (lambda (_%rest121549%_) + (let* ((_%e121550121558%_ _%rest121549%_) + (_%E121556121562%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120263120271%_))) - (_%E120265120279%_ + _%e121550121558%_))) + (_%E121552121566%_ (lambda () - (if (gx#stx-null? _%e120263120271%_) + (if (gx#stx-null? _%e121550121558%_) '() - (_%E120269120275%_)))) - (_%E120264120328%_ + (_%E121556121562%_)))) + (_%E121551121615%_ (lambda () - (if (gx#stx-pair? _%e120263120271%_) - (let ((_%e120266120283%_ - (gx#syntax-e _%e120263120271%_))) - (let ((_%hd120267120286%_ - (##car _%e120266120283%_)) - (_%tl120268120288%_ - (##cdr _%e120266120283%_))) - (let* ((_%hd120291%_ _%hd120267120286%_) - (_%rest120293%_ - _%tl120268120288%_) - (_%e120294120301%_ _%hd120291%_) - (_%E120296120305%_ + (if (gx#stx-pair? _%e121550121558%_) + (let ((_%e121553121570%_ + (gx#syntax-e _%e121550121558%_))) + (let ((_%hd121554121573%_ + (##car _%e121553121570%_)) + (_%tl121555121575%_ + (##cdr _%e121553121570%_))) + (let* ((_%hd121578%_ _%hd121554121573%_) + (_%rest121580%_ + _%tl121555121575%_) + (_%e121581121588%_ _%hd121578%_) + (_%E121583121592%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120294120301%_))) - (_%E120295120324%_ + _%e121581121588%_))) + (_%E121582121611%_ (lambda () (if (gx#stx-pair? - _%e120294120301%_) - (let ((_%e120297120309%_ + _%e121581121588%_) + (let ((_%e121584121596%_ (gx#syntax-e - _%e120294120301%_))) - (let ((_%hd120298120312%_ - (##car _%e120297120309%_)) - (_%tl120299120314%_ - (##cdr _%e120297120309%_))) - (let* ((_%condition120317%_ - _%hd120298120312%_) - (_%body120319%_ - _%tl120299120314%_)) + _%e121581121588%_))) + (let ((_%hd121585121599%_ + (##car _%e121584121596%_)) + (_%tl121586121601%_ + (##cdr _%e121584121596%_))) + (let* ((_%condition121604%_ + _%hd121585121599%_) + (_%body121606%_ + _%tl121586121601%_)) (if (gx#stx-eq? - _%condition120317%_ + _%condition121604%_ 'else) (if (gx#stx-null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rest120293%_) - _%body120319%_ + _%rest121580%_) + _%body121606%_ (gx#raise-syntax-error '#f '"Bad syntax; clauses after else" - _%stx120229%_ - _%hd120291%_)) - (if (_%satisfied?120231%_ _%condition120317%_) - _%body120319%_ - (_%loop120232%_ _%rest120293%_)))))) + _%stx121516%_ + _%hd121578%_)) + (if (_%satisfied?121518%_ _%condition121604%_) + _%body121606%_ + (_%loop121519%_ _%rest121580%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120296120305%_))))) - (_%E120295120324%_)))) - (_%E120265120279%_))))) - (_%E120264120328%_))))) - (let* ((_%e120233120240%_ _%stx120229%_) - (_%E120235120244%_ + (_%E121583121592%_))))) + (_%E121582121611%_)))) + (_%E121552121566%_))))) + (_%E121551121615%_))))) + (let* ((_%e121520121527%_ _%stx121516%_) + (_%E121522121531%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120233120240%_))) - (_%E120234120258%_ + _%e121520121527%_))) + (_%E121521121545%_ (lambda () - (if (gx#stx-pair? _%e120233120240%_) - (let ((_%e120236120248%_ - (gx#syntax-e _%e120233120240%_))) - (let ((_%hd120237120251%_ (##car _%e120236120248%_)) - (_%tl120238120253%_ (##cdr _%e120236120248%_))) - (let ((_%clauses120256%_ _%tl120238120253%_)) - (if (gx#stx-list? _%clauses120256%_) + (if (gx#stx-pair? _%e121520121527%_) + (let ((_%e121523121535%_ + (gx#syntax-e _%e121520121527%_))) + (let ((_%hd121524121538%_ (##car _%e121523121535%_)) + (_%tl121525121540%_ (##cdr _%e121523121535%_))) + (let ((_%clauses121543%_ _%tl121525121540%_)) + (if (gx#stx-list? _%clauses121543%_) (gx#core-cons 'begin - (_%loop120232%_ _%clauses120256%_)) - (_%E120235120244%_))))) - (_%E120235120244%_))))) - (_%E120234120258%_))))) + (_%loop121519%_ _%clauses121543%_)) + (_%E121522121531%_))))) + (_%E121522121531%_))))) + (_%E121521121545%_))))) (define gx#core-expand-include%__% - (lambda (_%stx120172%_ _%rpath120173%_) - (let* ((_%e120174120184%_ _%stx120172%_) - (_%E120176120188%_ + (lambda (_%stx121459%_ _%rpath121460%_) + (let* ((_%e121461121471%_ _%stx121459%_) + (_%E121463121475%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120174120184%_))) - (_%E120175120215%_ + _%e121461121471%_))) + (_%E121462121502%_ (lambda () - (if (gx#stx-pair? _%e120174120184%_) - (let ((_%e120177120192%_ - (gx#syntax-e _%e120174120184%_))) - (let ((_%hd120178120195%_ (##car _%e120177120192%_)) - (_%tl120179120197%_ (##cdr _%e120177120192%_))) - (if (gx#stx-pair? _%tl120179120197%_) - (let ((_%e120180120200%_ - (gx#syntax-e _%tl120179120197%_))) - (let ((_%hd120181120203%_ - (##car _%e120180120200%_)) - (_%tl120182120205%_ - (##cdr _%e120180120200%_))) - (let ((_%path120208%_ _%hd120181120203%_)) - (if (gx#stx-null? _%tl120182120205%_) - (if (gx#stx-string? _%path120208%_) - (let ((_%rpath120213%_ - (let ((_%$e120210%_ - _%rpath120173%_)) - (if _%$e120210%_ - _%$e120210%_ + (if (gx#stx-pair? _%e121461121471%_) + (let ((_%e121464121479%_ + (gx#syntax-e _%e121461121471%_))) + (let ((_%hd121465121482%_ (##car _%e121464121479%_)) + (_%tl121466121484%_ (##cdr _%e121464121479%_))) + (if (gx#stx-pair? _%tl121466121484%_) + (let ((_%e121467121487%_ + (gx#syntax-e _%tl121466121484%_))) + (let ((_%hd121468121490%_ + (##car _%e121467121487%_)) + (_%tl121469121492%_ + (##cdr _%e121467121487%_))) + (let ((_%path121495%_ _%hd121468121490%_)) + (if (gx#stx-null? _%tl121469121492%_) + (if (gx#stx-string? _%path121495%_) + (let ((_%rpath121500%_ + (let ((_%$e121497%_ + _%rpath121460%_)) + (if _%$e121497%_ + _%$e121497%_ (gx#core-resolve-path__% - _%path120208%_ + _%path121495%_ (gx#stx-source - _%stx120172%_)))))) - (if (member _%rpath120213%_ + _%stx121459%_)))))) + (if (member _%rpath121500%_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _%stx120172%_) + _%stx121459%_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _%rpath120213%_)) + _%rpath121500%_)) (gx#stx-source - _%stx120172%_))))) - (_%E120176120188%_)) - (_%E120176120188%_))))) - (_%E120176120188%_)))) - (_%E120176120188%_))))) - (_%E120175120215%_)))) + _%stx121459%_))))) + (_%E121463121475%_)) + (_%E121463121475%_))))) + (_%E121463121475%_)))) + (_%E121463121475%_))))) + (_%E121462121502%_)))) (define gx#core-expand-include%__0 - (lambda (_%stx120222%_) - (let ((_%rpath120224%_ '#f)) - (gx#core-expand-include%__% _%stx120222%_ _%rpath120224%_)))) + (lambda (_%stx121509%_) + (let ((_%rpath121511%_ '#f)) + (gx#core-expand-include%__% _%stx121509%_ _%rpath121511%_)))) (define gx#core-expand-include% - (lambda _g121345_ - (let ((_g121344_ (##length _g121345_))) - (cond ((##fx= _g121344_ 1) - (apply gx#core-expand-include%__0 _g121345_)) - ((##fx= _g121344_ 2) - (apply gx#core-expand-include%__% _g121345_)) + (lambda _g122632_ + (let ((_g122631_ (##length _g122632_))) + (cond ((##fx= _g122631_ 1) + (apply gx#core-expand-include%__0 _g122632_)) + ((##fx= _g122631_ 2) + (apply gx#core-expand-include%__% _g122632_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-include% - _g121345_)))))) + _g122632_)))))) (define gx#core-apply-expander__% - (lambda (_%K120138%_ _%stx120139%_ _%method120140%_) - (if (procedure? _%K120138%_) - (let ((_%$e120143%_ (gx#stx-source _%stx120139%_))) - (if _%$e120143%_ - ((lambda (_%g120145120147%_) + (lambda (_%K121425%_ _%stx121426%_ _%method121427%_) + (if (procedure? _%K121425%_) + (let ((_%$e121430%_ (gx#stx-source _%stx121426%_))) + (if _%$e121430%_ + ((lambda (_%g121432121434%_) (gx#stx-wrap-source - (_%K120138%_ _%stx120139%_) - _%g120145120147%_)) - _%$e120143%_) - (_%K120138%_ _%stx120139%_))) - (let ((_%$e120151%_ - (bound-method-ref _%K120138%_ _%method120140%_))) - (if _%$e120151%_ - ((lambda (_%g120153120155%_) + (_%K121425%_ _%stx121426%_) + _%g121432121434%_)) + _%$e121430%_) + (_%K121425%_ _%stx121426%_))) + (let ((_%$e121438%_ + (bound-method-ref _%K121425%_ _%method121427%_))) + (if _%$e121438%_ + ((lambda (_%g121440121442%_) (gx#core-apply-expander__% - _%g120153120155%_ - _%stx120139%_ - _%method120140%_)) - _%$e120151%_) + _%g121440121442%_ + _%stx121426%_ + _%method121427%_)) + _%$e121438%_) (gx#raise-syntax-error '#f '"Bad syntax; no expander method" - _%stx120139%_ - _%method120140%_)))))) + _%stx121426%_ + _%method121427%_)))))) (define gx#core-apply-expander__0 - (lambda (_%K120162%_ _%stx120163%_) - (let ((_%method120165%_ 'apply-macro-expander)) + (lambda (_%K121449%_ _%stx121450%_) + (let ((_%method121452%_ 'apply-macro-expander)) (gx#core-apply-expander__% - _%K120162%_ - _%stx120163%_ - _%method120165%_)))) + _%K121449%_ + _%stx121450%_ + _%method121452%_)))) (define gx#core-apply-expander - (lambda _g121347_ - (let ((_g121346_ (##length _g121347_))) - (cond ((##fx= _g121346_ 2) - (apply gx#core-apply-expander__0 _g121347_)) - ((##fx= _g121346_ 3) - (apply gx#core-apply-expander__% _g121347_)) + (lambda _g122634_ + (let ((_g122633_ (##length _g122634_))) + (cond ((##fx= _g122633_ 2) + (apply gx#core-apply-expander__0 _g122634_)) + ((##fx= _g122633_ 3) + (apply gx#core-apply-expander__% _g122634_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-expander - _g121347_)))))) + _g122634_)))))) (define gx#expander::apply-macro-expander - (lambda (_%self118180120121%_ _%stx120123%_) - (let* ((_%self120125%_ _%self118180120121%_) - (_%self120127%_ _%self120125%_)) + (lambda (_%self119467121408%_ _%stx121410%_) + (let* ((_%self121412%_ _%self119467121408%_) + (_%self121414%_ _%self121412%_)) (gx#raise-syntax-error '#f '"Bad syntax; bottom method for apply-macro-expander" - _%stx120123%_)))) + _%stx121410%_)))) (__bind-method!__% gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_%self118181119961%_ _%stx119963%_) - (let* ((_%self119965%_ _%self118181119961%_) - (_%self119967%_ _%self119965%_) - (_%self119976119982%_ _%self119967%_) - (_%E119978119986%_ + (lambda (_%self119468121248%_ _%stx121250%_) + (let* ((_%self121252%_ _%self119468121248%_) + (_%self121254%_ _%self121252%_) + (_%self121263121269%_ _%self121254%_) + (_%E121265121273%_ (lambda () (error '"No clause matching" - _%self119976119982%_ + _%self121263121269%_ '((macro-expander K))) '#!void)) - (_%K119979119991%_ - (lambda (_%K119989%_) - (gx#core-apply-expander__0 _%K119989%_ _%stx119963%_))) - (_%e119980119994%_ - (##unchecked-structure-ref _%self119976119982%_ '1 '#f '#f)) - (_%K119997%_ _%e119980119994%_)) - (_%K119979119991%_ _%K119997%_)))) + (_%K121266121278%_ + (lambda (_%K121276%_) + (gx#core-apply-expander__0 _%K121276%_ _%stx121250%_))) + (_%e121267121281%_ + (##unchecked-structure-ref _%self121263121269%_ '1 '#f '#f)) + (_%K121284%_ _%e121267121281%_)) + (_%K121266121278%_ _%K121284%_)))) (__bind-method!__% gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (lambda (_%self118182119801%_ _%stx119803%_) - (let* ((_%self119805%_ _%self118182119801%_) - (_%self119807%_ _%self119805%_)) - (if (gx#sealed-syntax? _%stx119803%_) - _%stx119803%_ - (let* ((_%self119816119822%_ _%self119807%_) - (_%E119818119826%_ + (lambda (_%self119469121088%_ _%stx121090%_) + (let* ((_%self121092%_ _%self119469121088%_) + (_%self121094%_ _%self121092%_)) + (if (gx#sealed-syntax? _%stx121090%_) + _%stx121090%_ + (let* ((_%self121103121109%_ _%self121094%_) + (_%E121105121113%_ (lambda () (error '"No clause matching" - _%self119816119822%_ + _%self121103121109%_ '((core-expander K))) '#!void)) - (_%K119819119831%_ - (lambda (_%K119829%_) - (gx#core-apply-expander__0 _%K119829%_ _%stx119803%_))) - (_%e119820119834%_ + (_%K121106121118%_ + (lambda (_%K121116%_) + (gx#core-apply-expander__0 _%K121116%_ _%stx121090%_))) + (_%e121107121121%_ (##unchecked-structure-ref - _%self119816119822%_ + _%self121103121109%_ '1 '#f '#f)) - (_%K119837%_ _%e119820119834%_)) - (_%K119819119831%_ _%K119837%_)))))) + (_%K121124%_ _%e121107121121%_)) + (_%K121106121118%_ _%K121124%_)))))) (__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 (_%self118183119650%_ _%stx119652%_ _%top?119653%_) - (let* ((_%self119655%_ _%self118183119650%_) - (_%self119657%_ _%self119655%_)) - (if (_%top?119653%_ (gx#current-expander-context)) + (lambda (_%self119470120937%_ _%stx120939%_ _%top?120940%_) + (let* ((_%self120942%_ _%self119470120937%_) + (_%self120944%_ _%self120942%_)) + (if (_%top?120940%_ (gx#current-expander-context)) (gx#core-expander::apply-macro-expander - _%self119657%_ - _%stx119652%_) + _%self120944%_ + _%stx120939%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _%stx119652%_))))) + _%stx120939%_))))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_%self118183119670%_ _%stx119671%_) - (let ((_%top?119673%_ gx#top-context?)) + (lambda (_%self119470120957%_ _%stx120958%_) + (let ((_%top?120960%_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _%self118183119670%_ - _%stx119671%_ - _%top?119673%_)))) + _%self119470120957%_ + _%stx120958%_ + _%top?120960%_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g121349_ - (let ((_g121348_ (##length _g121349_))) - (cond ((##fx= _g121348_ 2) + (lambda _g122636_ + (let ((_g122635_ (##length _g122636_))) + (cond ((##fx= _g122635_ 2) (apply gx#top-special-form::apply-macro-expander__0 - _g121349_)) - ((##fx= _g121348_ 3) + _g122636_)) + ((##fx= _g122635_ 3) (apply gx#top-special-form::apply-macro-expander__% - _g121349_)) + _g122636_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g121349_)))))) + _g122636_)))))) (__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 (_%self118184119511%_ _%stx119513%_) - (let* ((_%self119515%_ _%self118184119511%_) - (_%self119517%_ _%self119515%_)) + (lambda (_%self119471120798%_ _%stx120800%_) + (let* ((_%self120802%_ _%self119471120798%_) + (_%self120804%_ _%self120802%_)) (gx#top-special-form::apply-macro-expander__% - _%self119517%_ - _%stx119513%_ + _%self120804%_ + _%stx120800%_ gx#module-context?)))) (__bind-method!__% gx#module-special-form::t @@ -2288,133 +2289,133 @@ gx#module-special-form::apply-macro-expander '#f) (define gx#rename-macro-expander::apply-macro-expander - (lambda (_%self118185119323%_ _%stx119325%_) - (let* ((_%self119327%_ _%self118185119323%_) - (_%self119329%_ _%self119327%_) - (_%self119338119344%_ _%self119329%_) - (_%E119340119348%_ + (lambda (_%self119472120610%_ _%stx120612%_) + (let* ((_%self120614%_ _%self119472120610%_) + (_%self120616%_ _%self120614%_) + (_%self120625120631%_ _%self120616%_) + (_%E120627120635%_ (lambda () (error '"No clause matching" - _%self119338119344%_ + _%self120625120631%_ '((rename-macro-expander id))) '#!void)) - (_%K119341119381%_ - (lambda (_%id119351%_) - (let* ((_%e119352119359%_ _%stx119325%_) - (_%E119354119363%_ + (_%K120628120668%_ + (lambda (_%id120638%_) + (let* ((_%e120639120646%_ _%stx120612%_) + (_%E120641120650%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119352119359%_))) - (_%E119353119377%_ + _%e120639120646%_))) + (_%E120640120664%_ (lambda () - (if (gx#stx-pair? _%e119352119359%_) - (let ((_%e119355119367%_ - (gx#syntax-e _%e119352119359%_))) - (let ((_%hd119356119370%_ - (##car _%e119355119367%_)) - (_%tl119357119372%_ - (##cdr _%e119355119367%_))) - (let ((_%body119375%_ _%tl119357119372%_)) + (if (gx#stx-pair? _%e120639120646%_) + (let ((_%e120642120654%_ + (gx#syntax-e _%e120639120646%_))) + (let ((_%hd120643120657%_ + (##car _%e120642120654%_)) + (_%tl120644120659%_ + (##cdr _%e120642120654%_))) + (let ((_%body120662%_ _%tl120644120659%_)) (gx#core-cons - _%id119351%_ - _%body119375%_)))) - (_%E119354119363%_))))) - (_%E119353119377%_)))) - (_%e119342119384%_ - (##unchecked-structure-ref _%self119338119344%_ '1 '#f '#f)) - (_%id119387%_ _%e119342119384%_)) - (_%K119341119381%_ _%id119387%_)))) + _%id120638%_ + _%body120662%_)))) + (_%E120641120650%_))))) + (_%E120640120664%_)))) + (_%e120629120671%_ + (##unchecked-structure-ref _%self120625120631%_ '1 '#f '#f)) + (_%id120674%_ _%e120629120671%_)) + (_%K120628120668%_ _%id120674%_)))) (__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 (_%self119149%_ _%stx119150%_ _%method119151%_) - (let* ((_%self119152119160%_ _%self119149%_) - (_%E119154119164%_ + (lambda (_%self120436%_ _%stx120437%_ _%method120438%_) + (let* ((_%self120439120447%_ _%self120436%_) + (_%E120441120451%_ (lambda () (error '"No clause matching" - _%self119152119160%_ + _%self120439120447%_ '((user-expander K ctx phi))) '#!void)) - (_%K119155119171%_ - (lambda (_%phi119167%_ _%ctx119168%_ _%K119169%_) + (_%K120442120458%_ + (lambda (_%phi120454%_ _%ctx120455%_ _%K120456%_) (gx#core-apply-user-macro - _%K119169%_ - _%stx119150%_ - _%ctx119168%_ - _%phi119167%_ - _%method119151%_)))) + _%K120456%_ + _%stx120437%_ + _%ctx120455%_ + _%phi120454%_ + _%method120438%_)))) (if (##structure-instance-of? - _%self119152119160%_ + _%self120439120447%_ 'gx#user-expander::t) - (let* ((_%e119156119174%_ + (let* ((_%e120443120461%_ (##unchecked-structure-ref - _%self119152119160%_ + _%self120439120447%_ '1 '#f '#f)) - (_%K119177%_ _%e119156119174%_) - (_%e119157119179%_ + (_%K120464%_ _%e120443120461%_) + (_%e120444120466%_ (##unchecked-structure-ref - _%self119152119160%_ + _%self120439120447%_ '2 '#f '#f)) - (_%ctx119182%_ _%e119157119179%_) - (_%e119158119184%_ + (_%ctx120469%_ _%e120444120466%_) + (_%e120445120471%_ (##unchecked-structure-ref - _%self119152119160%_ + _%self120439120447%_ '3 '#f '#f)) - (_%phi119187%_ _%e119158119184%_)) - (_%K119155119171%_ _%phi119187%_ _%ctx119182%_ _%K119177%_)) - (_%E119154119164%_))))) + (_%phi120474%_ _%e120445120471%_)) + (_%K120442120458%_ _%phi120474%_ _%ctx120469%_ _%K120464%_)) + (_%E120441120451%_))))) (define gx#core-apply-user-expander__0 - (lambda (_%self119192%_ _%stx119193%_) - (let ((_%method119195%_ 'apply-macro-expander)) + (lambda (_%self120479%_ _%stx120480%_) + (let ((_%method120482%_ 'apply-macro-expander)) (gx#core-apply-user-expander__% - _%self119192%_ - _%stx119193%_ - _%method119195%_)))) + _%self120479%_ + _%stx120480%_ + _%method120482%_)))) (define gx#core-apply-user-expander - (lambda _g121351_ - (let ((_g121350_ (##length _g121351_))) - (cond ((##fx= _g121350_ 2) - (apply gx#core-apply-user-expander__0 _g121351_)) - ((##fx= _g121350_ 3) - (apply gx#core-apply-user-expander__% _g121351_)) + (lambda _g122638_ + (let ((_g122637_ (##length _g122638_))) + (cond ((##fx= _g122637_ 2) + (apply gx#core-apply-user-expander__0 _g122638_)) + ((##fx= _g122637_ 3) + (apply gx#core-apply-user-expander__% _g122638_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-user-expander - _g121351_)))))) + _g122638_)))))) (define gx#core-apply-user-macro - (lambda (_%K119139%_ - _%stx119140%_ - _%ctx119141%_ - _%phi119142%_ - _%method119143%_) - (let ((_%mark119145%_ + (lambda (_%K120426%_ + _%stx120427%_ + _%ctx120428%_ + _%phi120429%_ + _%method120430%_) + (let ((_%mark120432%_ (##structure gx#expander-mark::t '#f - _%ctx119141%_ - _%phi119142%_ - _%stx119140%_))) + _%ctx120428%_ + _%phi120429%_ + _%stx120427%_))) (__call-with-parameters (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _%K119139%_ - (gx#stx-apply-mark _%stx119140%_ _%mark119145%_) - _%method119143%_) - _%mark119145%_)) + _%K120426%_ + (gx#stx-apply-mark _%stx120427%_ _%mark120432%_) + _%method120430%_) + _%mark120432%_)) gx#current-expander-marks - (cons _%mark119145%_ (gx#current-expander-marks)))))) + (cons _%mark120432%_ (gx#current-expander-marks)))))) (define gx#user-expander::apply-macro-expander gx#core-apply-user-expander) (__bind-method!__% gx#user-expander::t @@ -2422,372 +2423,372 @@ gx#user-expander::apply-macro-expander '#f) (define gx#resolve-identifier__% - (lambda (_%stx118987%_ _%phi118988%_ _%ctx118989%_) - (let _%lp118991%_ ((_%bind118993%_ + (lambda (_%stx120274%_ _%phi120275%_ _%ctx120276%_) + (let _%lp120278%_ ((_%bind120280%_ (gx#core-resolve-identifier__% - _%stx118987%_ - _%phi118988%_ - _%ctx118989%_))) + _%stx120274%_ + _%phi120275%_ + _%ctx120276%_))) (if (##structure-direct-instance-of? - _%bind118993%_ + _%bind120280%_ 'gx#import-binding::t) - (_%lp118991%_ - (##unchecked-structure-ref _%bind118993%_ '4 '#f '#f)) + (_%lp120278%_ + (##unchecked-structure-ref _%bind120280%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%bind118993%_ + _%bind120280%_ 'gx#alias-binding::t) - (_%lp118991%_ + (_%lp120278%_ (gx#core-resolve-identifier__% - (##unchecked-structure-ref _%bind118993%_ '4 '#f '#f) - _%phi118988%_ - _%ctx118989%_)) - _%bind118993%_))))) + (##unchecked-structure-ref _%bind120280%_ '4 '#f '#f) + _%phi120275%_ + _%ctx120276%_)) + _%bind120280%_))))) (define gx#resolve-identifier__0 - (lambda (_%stx119001%_) - (let* ((_%phi119003%_ (gx#current-expander-phi)) - (_%ctx119005%_ (gx#current-expander-context))) + (lambda (_%stx120288%_) + (let* ((_%phi120290%_ (gx#current-expander-phi)) + (_%ctx120292%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx119001%_ - _%phi119003%_ - _%ctx119005%_)))) + _%stx120288%_ + _%phi120290%_ + _%ctx120292%_)))) (define gx#resolve-identifier__1 - (lambda (_%stx119007%_ _%phi119008%_) - (let ((_%ctx119010%_ (gx#current-expander-context))) + (lambda (_%stx120294%_ _%phi120295%_) + (let ((_%ctx120297%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx119007%_ - _%phi119008%_ - _%ctx119010%_)))) + _%stx120294%_ + _%phi120295%_ + _%ctx120297%_)))) (define gx#resolve-identifier - (lambda _g121353_ - (let ((_g121352_ (##length _g121353_))) - (cond ((##fx= _g121352_ 1) - (apply gx#resolve-identifier__0 _g121353_)) - ((##fx= _g121352_ 2) - (apply gx#resolve-identifier__1 _g121353_)) - ((##fx= _g121352_ 3) - (apply gx#resolve-identifier__% _g121353_)) + (lambda _g122640_ + (let ((_g122639_ (##length _g122640_))) + (cond ((##fx= _g122639_ 1) + (apply gx#resolve-identifier__0 _g122640_)) + ((##fx= _g122639_ 2) + (apply gx#resolve-identifier__1 _g122640_)) + ((##fx= _g122639_ 3) + (apply gx#resolve-identifier__% _g122640_)) (else (##raise-wrong-number-of-arguments-exception gx#resolve-identifier - _g121353_)))))) + _g122640_)))))) (define gx#bind-identifier!__% - (lambda (_%stx118942%_ - _%val118943%_ - _%rebind?118944%_ - _%phi118945%_ - _%ctx118946%_) - (let ((_%rebind?118951%_ - (if (not _%rebind?118944%_) + (lambda (_%stx120229%_ + _%val120230%_ + _%rebind?120231%_ + _%phi120232%_ + _%ctx120233%_) + (let ((_%rebind?120238%_ + (if (not _%rebind?120231%_) gx#core-context-rebind? - (if (procedure? _%rebind?118944%_) - _%rebind?118944%_ + (if (procedure? _%rebind?120231%_) + _%rebind?120231%_ true)))) (gx#core-bind!__% - (gx#core-identifier-key _%stx118942%_) - _%val118943%_ - _%rebind?118951%_ - _%phi118945%_ - _%ctx118946%_)))) + (gx#core-identifier-key _%stx120229%_) + _%val120230%_ + _%rebind?120238%_ + _%phi120232%_ + _%ctx120233%_)))) (define gx#bind-identifier!__0 - (lambda (_%stx118956%_ _%val118957%_) - (let* ((_%rebind?118959%_ '#f) - (_%phi118961%_ (gx#current-expander-phi)) - (_%ctx118963%_ (gx#current-expander-context))) + (lambda (_%stx120243%_ _%val120244%_) + (let* ((_%rebind?120246%_ '#f) + (_%phi120248%_ (gx#current-expander-phi)) + (_%ctx120250%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx118956%_ - _%val118957%_ - _%rebind?118959%_ - _%phi118961%_ - _%ctx118963%_)))) + _%stx120243%_ + _%val120244%_ + _%rebind?120246%_ + _%phi120248%_ + _%ctx120250%_)))) (define gx#bind-identifier!__1 - (lambda (_%stx118965%_ _%val118966%_ _%rebind?118967%_) - (let* ((_%phi118969%_ (gx#current-expander-phi)) - (_%ctx118971%_ (gx#current-expander-context))) + (lambda (_%stx120252%_ _%val120253%_ _%rebind?120254%_) + (let* ((_%phi120256%_ (gx#current-expander-phi)) + (_%ctx120258%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx118965%_ - _%val118966%_ - _%rebind?118967%_ - _%phi118969%_ - _%ctx118971%_)))) + _%stx120252%_ + _%val120253%_ + _%rebind?120254%_ + _%phi120256%_ + _%ctx120258%_)))) (define gx#bind-identifier!__2 - (lambda (_%stx118973%_ _%val118974%_ _%rebind?118975%_ _%phi118976%_) - (let ((_%ctx118978%_ (gx#current-expander-context))) + (lambda (_%stx120260%_ _%val120261%_ _%rebind?120262%_ _%phi120263%_) + (let ((_%ctx120265%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx118973%_ - _%val118974%_ - _%rebind?118975%_ - _%phi118976%_ - _%ctx118978%_)))) + _%stx120260%_ + _%val120261%_ + _%rebind?120262%_ + _%phi120263%_ + _%ctx120265%_)))) (define gx#bind-identifier! - (lambda _g121355_ - (let ((_g121354_ (##length _g121355_))) - (cond ((##fx= _g121354_ 2) (apply gx#bind-identifier!__0 _g121355_)) - ((##fx= _g121354_ 3) (apply gx#bind-identifier!__1 _g121355_)) - ((##fx= _g121354_ 4) (apply gx#bind-identifier!__2 _g121355_)) - ((##fx= _g121354_ 5) (apply gx#bind-identifier!__% _g121355_)) + (lambda _g122642_ + (let ((_g122641_ (##length _g122642_))) + (cond ((##fx= _g122641_ 2) (apply gx#bind-identifier!__0 _g122642_)) + ((##fx= _g122641_ 3) (apply gx#bind-identifier!__1 _g122642_)) + ((##fx= _g122641_ 4) (apply gx#bind-identifier!__2 _g122642_)) + ((##fx= _g122641_ 5) (apply gx#bind-identifier!__% _g122642_)) (else (##raise-wrong-number-of-arguments-exception gx#bind-identifier! - _g121355_)))))) + _g122642_)))))) (define gx#core-resolve-identifier__% - (lambda (_%stx118908%_ _%phi118909%_ _%ctx118910%_) - (let _%lp118912%_ ((_%e118914%_ _%stx118908%_) - (_%marks118915%_ (gx#current-expander-marks))) - (if (symbol? _%e118914%_) + (lambda (_%stx120195%_ _%phi120196%_ _%ctx120197%_) + (let _%lp120199%_ ((_%e120201%_ _%stx120195%_) + (_%marks120202%_ (gx#current-expander-marks))) + (if (symbol? _%e120201%_) (gx#core-resolve-binding - _%e118914%_ - _%phi118909%_ - _%phi118909%_ - _%ctx118910%_ - (reverse _%marks118915%_)) - (if (gx#identifier-quote? _%e118914%_) + _%e120201%_ + _%phi120196%_ + _%phi120196%_ + _%ctx120197%_ + (reverse _%marks120202%_)) + (if (gx#identifier-quote? _%e120201%_) (gx#core-resolve-binding - (##unchecked-structure-ref _%e118914%_ '1 '#f '#f) - _%phi118909%_ + (##unchecked-structure-ref _%e120201%_ '1 '#f '#f) + _%phi120196%_ '0 - (##unchecked-structure-ref _%e118914%_ '3 '#f '#f) - (##unchecked-structure-ref _%e118914%_ '4 '#f '#f)) + (##unchecked-structure-ref _%e120201%_ '3 '#f '#f) + (##unchecked-structure-ref _%e120201%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%e118914%_ + _%e120201%_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##unchecked-structure-ref _%e118914%_ '1 '#f '#f) - _%phi118909%_ - _%phi118909%_ - _%ctx118910%_ + (##unchecked-structure-ref _%e120201%_ '1 '#f '#f) + _%phi120196%_ + _%phi120196%_ + _%ctx120197%_ (__foldl1 gx#apply-mark - (##unchecked-structure-ref _%e118914%_ '3 '#f '#f) - _%marks118915%_)) + (##unchecked-structure-ref _%e120201%_ '3 '#f '#f) + _%marks120202%_)) (if (##structure-direct-instance-of? - _%e118914%_ + _%e120201%_ 'gx#syntax-wrap::t) - (_%lp118912%_ - (##unchecked-structure-ref _%e118914%_ '1 '#f '#f) + (_%lp120199%_ + (##unchecked-structure-ref _%e120201%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e118914%_ '3 '#f '#f) - _%marks118915%_)) + (##unchecked-structure-ref _%e120201%_ '3 '#f '#f) + _%marks120202%_)) (if (##structure-instance-of? - _%e118914%_ + _%e120201%_ 'gerbil#AST::t) - (_%lp118912%_ + (_%lp120199%_ (##unchecked-structure-ref - _%e118914%_ + _%e120201%_ '1 '#f '#f) - _%marks118915%_) + _%marks120202%_) (gx#raise-syntax-error '#f '"Bad identifier" - _%stx118908%_))))))))) + _%stx120195%_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_%stx118926%_) - (let* ((_%phi118928%_ (gx#current-expander-phi)) - (_%ctx118930%_ (gx#current-expander-context))) + (lambda (_%stx120213%_) + (let* ((_%phi120215%_ (gx#current-expander-phi)) + (_%ctx120217%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx118926%_ - _%phi118928%_ - _%ctx118930%_)))) + _%stx120213%_ + _%phi120215%_ + _%ctx120217%_)))) (define gx#core-resolve-identifier__1 - (lambda (_%stx118932%_ _%phi118933%_) - (let ((_%ctx118935%_ (gx#current-expander-context))) + (lambda (_%stx120219%_ _%phi120220%_) + (let ((_%ctx120222%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx118932%_ - _%phi118933%_ - _%ctx118935%_)))) + _%stx120219%_ + _%phi120220%_ + _%ctx120222%_)))) (define gx#core-resolve-identifier - (lambda _g121357_ - (let ((_g121356_ (##length _g121357_))) - (cond ((##fx= _g121356_ 1) - (apply gx#core-resolve-identifier__0 _g121357_)) - ((##fx= _g121356_ 2) - (apply gx#core-resolve-identifier__1 _g121357_)) - ((##fx= _g121356_ 3) - (apply gx#core-resolve-identifier__% _g121357_)) + (lambda _g122644_ + (let ((_g122643_ (##length _g122644_))) + (cond ((##fx= _g122643_ 1) + (apply gx#core-resolve-identifier__0 _g122644_)) + ((##fx= _g122643_ 2) + (apply gx#core-resolve-identifier__1 _g122644_)) + ((##fx= _g122643_ 3) + (apply gx#core-resolve-identifier__% _g122644_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-identifier - _g121357_)))))) + _g122644_)))))) (define gx#core-resolve-binding - (lambda (_%id118818%_ - _%phi118819%_ - _%src-phi118820%_ - _%ctx118821%_ - _%marks118822%_) - (letrec ((_%resolve118824%_ - (lambda (_%ctx118892%_ _%src-phi118893%_ _%key118894%_) - (let _%lp118896%_ ((_%ctx118898%_ + (lambda (_%id120105%_ + _%phi120106%_ + _%src-phi120107%_ + _%ctx120108%_ + _%marks120109%_) + (letrec ((_%resolve120111%_ + (lambda (_%ctx120179%_ _%src-phi120180%_ _%key120181%_) + (let _%lp120183%_ ((_%ctx120185%_ (gx#core-context-shift - _%ctx118892%_ - _%phi118819%_)) - (_%dphi118899%_ - (fx- _%phi118819%_ _%src-phi118893%_))) - (let ((_%$e118901%_ + _%ctx120179%_ + _%phi120106%_)) + (_%dphi120186%_ + (fx- _%phi120106%_ _%src-phi120180%_))) + (let ((_%$e120188%_ (gx#core-context-resolve - _%ctx118898%_ - _%key118894%_))) - (if _%$e118901%_ - _%$e118901%_ - (if (fxzero? _%dphi118899%_) + _%ctx120185%_ + _%key120181%_))) + (if _%$e120188%_ + _%$e120188%_ + (if (fxzero? _%dphi120186%_) '#f - (if (fxpositive? _%dphi118899%_) - (_%lp118896%_ - (gx#core-context-shift _%ctx118898%_ '-1) - (##fx- _%dphi118899%_ '1)) - (_%lp118896%_ - (gx#core-context-shift _%ctx118898%_ '1) - (##fx+ _%dphi118899%_ '1)))))))))) - (let _%lp118826%_ ((_%ctx118828%_ _%ctx118821%_) - (_%src-phi118829%_ _%src-phi118820%_) - (_%rest118830%_ _%marks118822%_)) - (let* ((_%rest118831118839%_ _%rest118830%_) - (_%else118833118847%_ + (if (fxpositive? _%dphi120186%_) + (_%lp120183%_ + (gx#core-context-shift _%ctx120185%_ '-1) + (##fx- _%dphi120186%_ '1)) + (_%lp120183%_ + (gx#core-context-shift _%ctx120185%_ '1) + (##fx+ _%dphi120186%_ '1)))))))))) + (let _%lp120113%_ ((_%ctx120115%_ _%ctx120108%_) + (_%src-phi120116%_ _%src-phi120107%_) + (_%rest120117%_ _%marks120109%_)) + (let* ((_%rest120118120126%_ _%rest120117%_) + (_%else120120120134%_ (lambda () - (_%resolve118824%_ - _%ctx118828%_ - _%src-phi118829%_ - _%id118818%_))) - (_%K118835118880%_ - (lambda (_%rest118850%_ _%hd118851%_) - (let* ((_%hd118852118858%_ _%hd118851%_) - (_%E118854118862%_ + (_%resolve120111%_ + _%ctx120115%_ + _%src-phi120116%_ + _%id120105%_))) + (_%K120122120167%_ + (lambda (_%rest120137%_ _%hd120138%_) + (let* ((_%hd120139120145%_ _%hd120138%_) + (_%E120141120149%_ (lambda () (error '"No clause matching" - _%hd118852118858%_ + _%hd120139120145%_ '((expander-mark subst))) '#!void)) - (_%K118855118872%_ - (lambda (_%subst118865%_) - (let ((_%$e118869%_ - (let ((_%key118867%_ - (if _%subst118865%_ + (_%K120142120159%_ + (lambda (_%subst120152%_) + (let ((_%$e120156%_ + (let ((_%key120154%_ + (if _%subst120152%_ (hash-get - _%subst118865%_ - _%id118818%_) + _%subst120152%_ + _%id120105%_) '#f))) - (if _%key118867%_ - (_%resolve118824%_ - _%ctx118828%_ - _%src-phi118829%_ - _%key118867%_) + (if _%key120154%_ + (_%resolve120111%_ + _%ctx120115%_ + _%src-phi120116%_ + _%key120154%_) '#f)))) - (if _%$e118869%_ - _%$e118869%_ - (_%lp118826%_ + (if _%$e120156%_ + _%$e120156%_ + (_%lp120113%_ (##unchecked-structure-ref - _%hd118851%_ + _%hd120138%_ '2 '#f '#f) (##unchecked-structure-ref - _%hd118851%_ + _%hd120138%_ '3 '#f '#f) - _%rest118850%_)))))) + _%rest120137%_)))))) (if (##structure-instance-of? - _%hd118852118858%_ + _%hd120139120145%_ 'gx#expander-mark::t) - (let* ((_%e118856118875%_ + (let* ((_%e120143120162%_ (##unchecked-structure-ref - _%hd118852118858%_ + _%hd120139120145%_ '1 '#f '#f)) - (_%subst118878%_ _%e118856118875%_)) - (_%K118855118872%_ _%subst118878%_)) - (_%E118854118862%_)))))) - (if (pair? _%rest118831118839%_) - (let ((_%hd118836118883%_ (##car _%rest118831118839%_)) - (_%tl118837118885%_ (##cdr _%rest118831118839%_))) - (let* ((_%hd118888%_ _%hd118836118883%_) - (_%rest118890%_ _%tl118837118885%_)) - (_%K118835118880%_ _%rest118890%_ _%hd118888%_))) - (_%else118833118847%_))))))) + (_%subst120165%_ _%e120143120162%_)) + (_%K120142120159%_ _%subst120165%_)) + (_%E120141120149%_)))))) + (if (pair? _%rest120118120126%_) + (let ((_%hd120123120170%_ (##car _%rest120118120126%_)) + (_%tl120124120172%_ (##cdr _%rest120118120126%_))) + (let* ((_%hd120175%_ _%hd120123120170%_) + (_%rest120177%_ _%tl120124120172%_)) + (_%K120122120167%_ _%rest120177%_ _%hd120175%_))) + (_%else120120120134%_))))))) (define gx#core-bind!__% - (lambda (_%key118688%_ - _%val118689%_ - _%rebind?118690%_ - _%phi118691%_ - _%ctx118692%_) - (letrec ((_%update-binding118694%_ - (lambda (_%xval118767%_) - (if (or (_%rebind?118690%_ - _%ctx118692%_ - _%xval118767%_ - _%val118689%_) + (lambda (_%key119975%_ + _%val119976%_ + _%rebind?119977%_ + _%phi119978%_ + _%ctx119979%_) + (letrec ((_%update-binding119981%_ + (lambda (_%xval120054%_) + (if (or (_%rebind?119977%_ + _%ctx119979%_ + _%xval120054%_ + _%val119976%_) (and (##structure-direct-instance-of? - _%xval118767%_ + _%xval120054%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%xval118767%_ + _%xval120054%_ '6 '#f '#f) (and (##structure-instance-of? - _%val118689%_ + _%val119976%_ 'gx#binding::t) (not (##structure-direct-instance-of? - _%val118689%_ + _%val119976%_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _%xval118767%_ + _%xval120054%_ 'gx#extern-binding::t) (##structure-instance-of? - _%val118689%_ + _%val119976%_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _%val118689%_ + _%val119976%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval118767%_ + _%xval120054%_ '1 '#f '#f)))) - _%val118689%_ + _%val119976%_ (if (and (##structure-direct-instance-of? - _%val118689%_ + _%val119976%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%val118689%_ + _%val119976%_ '6 '#f '#f) (and (##structure-instance-of? - _%xval118767%_ + _%xval120054%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%val118689%_ + _%val119976%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval118767%_ + _%xval120054%_ '1 '#f '#f))))) - _%xval118767%_ + _%xval120054%_ (if (and (##structure-direct-instance-of? - _%val118689%_ + _%val119976%_ 'gx#import-binding::t) (##structure-instance-of? - _%xval118767%_ + _%xval120054%_ 'gx#binding::t)) (gx#raise-syntax-error '#f '"Bad binding; import conflict" - _%key118688%_ + _%key119975%_ (cons (##unchecked-structure-ref - _%val118689%_ + _%val119976%_ '1 '#f '#f) (cons (##structure-ref (##unchecked-structure-ref - _%val118689%_ + _%val119976%_ '5 '#f '#f) @@ -2796,175 +2797,175 @@ '#f) '())) (cons (##unchecked-structure-ref - _%xval118767%_ + _%xval120054%_ '1 '#f '#f) (cons (if (##structure-direct-instance-of? - _%xval118767%_ + _%xval120054%_ 'gx#import-binding::t) (##structure-ref (##unchecked-structure-ref - _%xval118767%_ + _%xval120054%_ '5 '#f '#f) '1 gx#expander-context::t '#f) - _%xval118767%_) + _%xval120054%_) '()))) (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _%key118688%_ - _%val118689%_ - _%xval118767%_)))))) - (_%gensubst118695%_ - (lambda (_%subst118762%_ _%id118763%_) - (let ((_%eid118765%_ - (gensym (if (uninterned-symbol? _%id118763%_) + _%key119975%_ + _%val119976%_ + _%xval120054%_)))))) + (_%gensubst119982%_ + (lambda (_%subst120049%_ _%id120050%_) + (let ((_%eid120052%_ + (gensym (if (uninterned-symbol? _%id120050%_) '% - _%id118763%_)))) - (hash-put! _%subst118762%_ _%id118763%_ _%eid118765%_) - _%eid118765%_))) - (_%subst!118696%_ - (lambda (_%key118698%_) - (let* ((_%key118699118707%_ _%key118698%_) - (_%else118701118715%_ (lambda () _%key118698%_)) - (_%K118703118750%_ - (lambda (_%mark118718%_ _%id118719%_) - (let* ((_%mark118720118726%_ _%mark118718%_) - (_%E118722118730%_ + _%id120050%_)))) + (hash-put! _%subst120049%_ _%id120050%_ _%eid120052%_) + _%eid120052%_))) + (_%subst!119983%_ + (lambda (_%key119985%_) + (let* ((_%key119986119994%_ _%key119985%_) + (_%else119988120002%_ (lambda () _%key119985%_)) + (_%K119990120037%_ + (lambda (_%mark120005%_ _%id120006%_) + (let* ((_%mark120007120013%_ _%mark120005%_) + (_%E120009120017%_ (lambda () (error '"No clause matching" - _%mark118720118726%_ + _%mark120007120013%_ '((expander-mark subst))) '#!void)) - (_%K118723118742%_ - (lambda (_%subst118733%_) - (if (not _%subst118733%_) - (let ((_%subst118736%_ + (_%K120010120029%_ + (lambda (_%subst120020%_) + (if (not _%subst120020%_) + (let ((_%subst120023%_ (make-hash-table-eq))) (##unchecked-structure-set! - _%mark118718%_ - _%subst118736%_ + _%mark120005%_ + _%subst120023%_ '1 '#f '#f) - (_%gensubst118695%_ - _%subst118736%_ - _%id118719%_)) - (let ((_%$e118738%_ + (_%gensubst119982%_ + _%subst120023%_ + _%id120006%_)) + (let ((_%$e120025%_ (hash-get - _%subst118733%_ - _%id118719%_))) - (if _%$e118738%_ - _%$e118738%_ - (_%gensubst118695%_ - _%subst118733%_ - _%id118719%_))))))) + _%subst120020%_ + _%id120006%_))) + (if _%$e120025%_ + _%$e120025%_ + (_%gensubst119982%_ + _%subst120020%_ + _%id120006%_))))))) (if (##structure-instance-of? - _%mark118720118726%_ + _%mark120007120013%_ 'gx#expander-mark::t) - (let* ((_%e118724118745%_ + (let* ((_%e120011120032%_ (##unchecked-structure-ref - _%mark118720118726%_ + _%mark120007120013%_ '1 '#f '#f)) - (_%subst118748%_ _%e118724118745%_)) - (_%K118723118742%_ _%subst118748%_)) - (_%E118722118730%_)))))) - (if (pair? _%key118699118707%_) - (let ((_%hd118704118753%_ - (##car _%key118699118707%_)) - (_%tl118705118755%_ - (##cdr _%key118699118707%_))) - (let* ((_%id118758%_ _%hd118704118753%_) - (_%mark118760%_ _%tl118705118755%_)) - (_%K118703118750%_ _%mark118760%_ _%id118758%_))) - (_%else118701118715%_)))))) + (_%subst120035%_ _%e120011120032%_)) + (_%K120010120029%_ _%subst120035%_)) + (_%E120009120017%_)))))) + (if (pair? _%key119986119994%_) + (let ((_%hd119991120040%_ + (##car _%key119986119994%_)) + (_%tl119992120042%_ + (##cdr _%key119986119994%_))) + (let* ((_%id120045%_ _%hd119991120040%_) + (_%mark120047%_ _%tl119992120042%_)) + (_%K119990120037%_ _%mark120047%_ _%id120045%_))) + (_%else119988120002%_)))))) (gx#core-context-bind! - (gx#core-context-shift _%ctx118692%_ _%phi118691%_) - (_%subst!118696%_ _%key118688%_) - _%val118689%_ - _%update-binding118694%_)))) + (gx#core-context-shift _%ctx119979%_ _%phi119978%_) + (_%subst!119983%_ _%key119975%_) + _%val119976%_ + _%update-binding119981%_)))) (define gx#core-bind!__0 - (lambda (_%key118788%_ _%val118789%_) - (let* ((_%rebind?118791%_ false) - (_%phi118793%_ (gx#current-expander-phi)) - (_%ctx118795%_ (gx#current-expander-context))) + (lambda (_%key120075%_ _%val120076%_) + (let* ((_%rebind?120078%_ false) + (_%phi120080%_ (gx#current-expander-phi)) + (_%ctx120082%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key118788%_ - _%val118789%_ - _%rebind?118791%_ - _%phi118793%_ - _%ctx118795%_)))) + _%key120075%_ + _%val120076%_ + _%rebind?120078%_ + _%phi120080%_ + _%ctx120082%_)))) (define gx#core-bind!__1 - (lambda (_%key118797%_ _%val118798%_ _%rebind?118799%_) - (let* ((_%phi118801%_ (gx#current-expander-phi)) - (_%ctx118803%_ (gx#current-expander-context))) + (lambda (_%key120084%_ _%val120085%_ _%rebind?120086%_) + (let* ((_%phi120088%_ (gx#current-expander-phi)) + (_%ctx120090%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key118797%_ - _%val118798%_ - _%rebind?118799%_ - _%phi118801%_ - _%ctx118803%_)))) + _%key120084%_ + _%val120085%_ + _%rebind?120086%_ + _%phi120088%_ + _%ctx120090%_)))) (define gx#core-bind!__2 - (lambda (_%key118805%_ _%val118806%_ _%rebind?118807%_ _%phi118808%_) - (let ((_%ctx118810%_ (gx#current-expander-context))) + (lambda (_%key120092%_ _%val120093%_ _%rebind?120094%_ _%phi120095%_) + (let ((_%ctx120097%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key118805%_ - _%val118806%_ - _%rebind?118807%_ - _%phi118808%_ - _%ctx118810%_)))) + _%key120092%_ + _%val120093%_ + _%rebind?120094%_ + _%phi120095%_ + _%ctx120097%_)))) (define gx#core-bind! - (lambda _g121359_ - (let ((_g121358_ (##length _g121359_))) - (cond ((##fx= _g121358_ 2) (apply gx#core-bind!__0 _g121359_)) - ((##fx= _g121358_ 3) (apply gx#core-bind!__1 _g121359_)) - ((##fx= _g121358_ 4) (apply gx#core-bind!__2 _g121359_)) - ((##fx= _g121358_ 5) (apply gx#core-bind!__% _g121359_)) + (lambda _g122646_ + (let ((_g122645_ (##length _g122646_))) + (cond ((##fx= _g122645_ 2) (apply gx#core-bind!__0 _g122646_)) + ((##fx= _g122645_ 3) (apply gx#core-bind!__1 _g122646_)) + ((##fx= _g122645_ 4) (apply gx#core-bind!__2 _g122646_)) + ((##fx= _g122645_ 5) (apply gx#core-bind!__% _g122646_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind! - _g121359_)))))) + _g122646_)))))) (define gx#core-identifier-key - (lambda (_%stx118619%_) - (if (symbol? _%stx118619%_) - (let* ((_%g118621118629%_ (gx#current-expander-marks)) - (_%else118623118637%_ (lambda () _%stx118619%_)) - (_%K118625118642%_ - (lambda (_%hd118640%_) (cons _%stx118619%_ _%hd118640%_)))) - (if (pair? _%g118621118629%_) - (let* ((_%hd118626118645%_ (##car _%g118621118629%_)) - (_%hd118648%_ _%hd118626118645%_)) - (_%K118625118642%_ _%hd118648%_)) - (_%else118623118637%_))) - (if (gx#identifier? _%stx118619%_) - (let* ((_%id118651%_ (gx#syntax-local-unwrap _%stx118619%_)) - (_%eid118653%_ (gx#stx-e _%id118651%_)) - (_%marks118655%_ - (gx#stx-identifier-marks* _%id118651%_)) - (_%marks118657118665%_ _%marks118655%_) - (_%else118659118673%_ (lambda () _%eid118653%_)) - (_%K118661118678%_ - (lambda (_%hd118676%_) - (cons _%eid118653%_ _%hd118676%_)))) - (if (pair? _%marks118657118665%_) - (let* ((_%hd118662118681%_ (##car _%marks118657118665%_)) - (_%hd118684%_ _%hd118662118681%_)) - (_%K118661118678%_ _%hd118684%_)) - (_%else118659118673%_))) - (gx#raise-syntax-error '#f '"Bad identifier" _%stx118619%_))))) + (lambda (_%stx119906%_) + (if (symbol? _%stx119906%_) + (let* ((_%g119908119916%_ (gx#current-expander-marks)) + (_%else119910119924%_ (lambda () _%stx119906%_)) + (_%K119912119929%_ + (lambda (_%hd119927%_) (cons _%stx119906%_ _%hd119927%_)))) + (if (pair? _%g119908119916%_) + (let* ((_%hd119913119932%_ (##car _%g119908119916%_)) + (_%hd119935%_ _%hd119913119932%_)) + (_%K119912119929%_ _%hd119935%_)) + (_%else119910119924%_))) + (if (gx#identifier? _%stx119906%_) + (let* ((_%id119938%_ (gx#syntax-local-unwrap _%stx119906%_)) + (_%eid119940%_ (gx#stx-e _%id119938%_)) + (_%marks119942%_ + (gx#stx-identifier-marks* _%id119938%_)) + (_%marks119944119952%_ _%marks119942%_) + (_%else119946119960%_ (lambda () _%eid119940%_)) + (_%K119948119965%_ + (lambda (_%hd119963%_) + (cons _%eid119940%_ _%hd119963%_)))) + (if (pair? _%marks119944119952%_) + (let* ((_%hd119949119968%_ (##car _%marks119944119952%_)) + (_%hd119971%_ _%hd119949119968%_)) + (_%K119948119965%_ _%hd119971%_)) + (_%else119946119960%_))) + (gx#raise-syntax-error '#f '"Bad identifier" _%stx119906%_))))) (define gx#&phi-context? gx#phi-context?) (define gx#core-context-shift - (lambda (_%ctx118558%_ _%phi118559%_) - (letrec ((_%make-phi118561%_ - (lambda (_%super118617%_) - (let ((__obj121331 + (lambda (_%ctx119845%_ _%phi119846%_) + (letrec ((_%make-phi119848%_ + (lambda (_%super119904%_) + (let ((__obj122618 (##structure gx#phi-context::t '#f @@ -2973,579 +2974,579 @@ '#f '#f))) (gx#phi-context:::init!__% - __obj121331 + __obj122618 (##gensym 'phi) - _%super118617%_) - __obj121331))) - (_%make-phi/up118562%_ - (lambda (_%ctx118612%_ _%super118613%_) - (let ((_%ctx+1118615%_ - (_%make-phi118561%_ _%super118613%_))) + _%super119904%_) + __obj122618))) + (_%make-phi/up119849%_ + (lambda (_%ctx119899%_ _%super119900%_) + (let ((_%ctx+1119902%_ + (_%make-phi119848%_ _%super119900%_))) (##unchecked-structure-set! - _%ctx118612%_ - _%ctx+1118615%_ + _%ctx119899%_ + _%ctx+1119902%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx+1118615%_ - _%ctx118612%_ + _%ctx+1119902%_ + _%ctx119899%_ '5 '#f '#f) - _%ctx+1118615%_))) - (_%make-phi/down118563%_ - (lambda (_%ctx118607%_ _%super118608%_) - (let ((_%ctx-1118610%_ - (_%make-phi118561%_ _%super118608%_))) + _%ctx+1119902%_))) + (_%make-phi/down119850%_ + (lambda (_%ctx119894%_ _%super119895%_) + (let ((_%ctx-1119897%_ + (_%make-phi119848%_ _%super119895%_))) (##unchecked-structure-set! - _%ctx-1118610%_ - _%ctx118607%_ + _%ctx-1119897%_ + _%ctx119894%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx118607%_ - _%ctx-1118610%_ + _%ctx119894%_ + _%ctx-1119897%_ '5 '#f '#f) - _%ctx-1118610%_))) - (_%shift118564%_ - (lambda (_%ctx118590%_ - _%delta118591%_ - _%make-delta-context118592%_ - _%phi118593%_ - _%K118594%_) - (let ((_%$e118596%_ + _%ctx-1119897%_))) + (_%shift119851%_ + (lambda (_%ctx119877%_ + _%delta119878%_ + _%make-delta-context119879%_ + _%phi119880%_ + _%K119881%_) + (let ((_%$e119883%_ (##unchecked-structure-ref - _%ctx118590%_ + _%ctx119877%_ '3 '#f '#f))) - (if _%$e118596%_ - ((lambda (_%super118599%_) - (let* ((_%super118601%_ - (_%K118594%_ - _%super118599%_ - _%delta118591%_)) - (_%ctx+d118603%_ - (_%make-delta-context118592%_ - _%ctx118590%_ - _%super118601%_))) - (_%K118594%_ - _%ctx+d118603%_ - (fx- _%phi118593%_ _%delta118591%_)))) - _%$e118596%_) - (error '"Bad context" _%ctx118590%_)))))) - (let _%K118566%_ ((_%ctx118568%_ _%ctx118558%_) - (_%phi118569%_ _%phi118559%_)) - (if (fxzero? _%phi118569%_) - _%ctx118568%_ - (if (##structure-instance-of? _%ctx118568%_ 'gx#phi-context::t) - (if (fxpositive? _%phi118569%_) - (let ((_%$e118573%_ + (if _%$e119883%_ + ((lambda (_%super119886%_) + (let* ((_%super119888%_ + (_%K119881%_ + _%super119886%_ + _%delta119878%_)) + (_%ctx+d119890%_ + (_%make-delta-context119879%_ + _%ctx119877%_ + _%super119888%_))) + (_%K119881%_ + _%ctx+d119890%_ + (fx- _%phi119880%_ _%delta119878%_)))) + _%$e119883%_) + (error '"Bad context" _%ctx119877%_)))))) + (let _%K119853%_ ((_%ctx119855%_ _%ctx119845%_) + (_%phi119856%_ _%phi119846%_)) + (if (fxzero? _%phi119856%_) + _%ctx119855%_ + (if (##structure-instance-of? _%ctx119855%_ 'gx#phi-context::t) + (if (fxpositive? _%phi119856%_) + (let ((_%$e119860%_ (##unchecked-structure-ref - _%ctx118568%_ + _%ctx119855%_ '4 '#f '#f))) - (if _%$e118573%_ - ((lambda (_%g118575118577%_) - (_%K118566%_ - _%g118575118577%_ - (##fx- _%phi118569%_ '1))) - _%$e118573%_) - (_%shift118564%_ - _%ctx118568%_ + (if _%$e119860%_ + ((lambda (_%g119862119864%_) + (_%K119853%_ + _%g119862119864%_ + (##fx- _%phi119856%_ '1))) + _%$e119860%_) + (_%shift119851%_ + _%ctx119855%_ '1 - _%make-phi/up118562%_ - _%phi118569%_ - _%K118566%_))) - (let ((_%$e118581%_ + _%make-phi/up119849%_ + _%phi119856%_ + _%K119853%_))) + (let ((_%$e119868%_ (##unchecked-structure-ref - _%ctx118568%_ + _%ctx119855%_ '5 '#f '#f))) - (if _%$e118581%_ - ((lambda (_%g118583118585%_) - (_%K118566%_ - _%g118583118585%_ - (##fx+ _%phi118569%_ '1))) - _%$e118581%_) - (_%shift118564%_ - _%ctx118568%_ + (if _%$e119868%_ + ((lambda (_%g119870119872%_) + (_%K119853%_ + _%g119870119872%_ + (##fx+ _%phi119856%_ '1))) + _%$e119868%_) + (_%shift119851%_ + _%ctx119855%_ '-1 - _%make-phi/down118563%_ - _%phi118569%_ - _%K118566%_)))) - _%ctx118568%_)))))) + _%make-phi/down119850%_ + _%phi119856%_ + _%K119853%_)))) + _%ctx119855%_)))))) (define gx#core-context-get - (lambda (_%ctx118555%_ _%key118556%_) + (lambda (_%ctx119842%_ _%key119843%_) (hash-get - (##unchecked-structure-ref _%ctx118555%_ '2 '#f '#f) - _%key118556%_))) + (##unchecked-structure-ref _%ctx119842%_ '2 '#f '#f) + _%key119843%_))) (define gx#core-context-put! - (lambda (_%ctx118551%_ _%key118552%_ _%val118553%_) + (lambda (_%ctx119838%_ _%key119839%_ _%val119840%_) (hash-put! - (##unchecked-structure-ref _%ctx118551%_ '2 '#f '#f) - _%key118552%_ - _%val118553%_))) + (##unchecked-structure-ref _%ctx119838%_ '2 '#f '#f) + _%key119839%_ + _%val119840%_))) (define gx#core-context-resolve - (lambda (_%ctx118537%_ _%key118538%_) - (let _%lp118540%_ ((_%ctx118542%_ _%ctx118537%_)) - (let ((_%$e118544%_ - (gx#core-context-get _%ctx118542%_ _%key118538%_))) - (if _%$e118544%_ - _%$e118544%_ - (let ((_%$e118547%_ + (lambda (_%ctx119824%_ _%key119825%_) + (let _%lp119827%_ ((_%ctx119829%_ _%ctx119824%_)) + (let ((_%$e119831%_ + (gx#core-context-get _%ctx119829%_ _%key119825%_))) + (if _%$e119831%_ + _%$e119831%_ + (let ((_%$e119834%_ (if (##structure-instance-of? - _%ctx118542%_ + _%ctx119829%_ 'gx#phi-context::t) - (##unchecked-structure-ref _%ctx118542%_ '3 '#f '#f) + (##unchecked-structure-ref _%ctx119829%_ '3 '#f '#f) '#f))) - (if _%$e118547%_ (_%lp118540%_ _%$e118547%_) '#f))))))) + (if _%$e119834%_ (_%lp119827%_ _%$e119834%_) '#f))))))) (define gx#core-context-bind! - (lambda (_%ctx118526%_ _%key118527%_ _%val118528%_ _%rebind118529%_) - (let ((_%$e118531%_ (gx#core-context-get _%ctx118526%_ _%key118527%_))) - (if _%$e118531%_ - ((lambda (_%xval118534%_) + (lambda (_%ctx119813%_ _%key119814%_ _%val119815%_ _%rebind119816%_) + (let ((_%$e119818%_ (gx#core-context-get _%ctx119813%_ _%key119814%_))) + (if _%$e119818%_ + ((lambda (_%xval119821%_) (gx#core-context-put! - _%ctx118526%_ - _%key118527%_ - (_%rebind118529%_ _%xval118534%_))) - _%$e118531%_) + _%ctx119813%_ + _%key119814%_ + (_%rebind119816%_ _%xval119821%_))) + _%$e119818%_) (gx#core-context-put! - _%ctx118526%_ - _%key118527%_ - _%val118528%_))))) + _%ctx119813%_ + _%key119814%_ + _%val119815%_))))) (define gx#core-context-top__% - (lambda (_%ctx118501%_ _%stop?118502%_) - (let _%lp118504%_ ((_%ctx118506%_ _%ctx118501%_)) - (if (_%stop?118502%_ _%ctx118506%_) - _%ctx118506%_ - (if (##structure-instance-of? _%ctx118506%_ 'gx#phi-context::t) - (_%lp118504%_ - (##unchecked-structure-ref _%ctx118506%_ '3 '#f '#f)) + (lambda (_%ctx119788%_ _%stop?119789%_) + (let _%lp119791%_ ((_%ctx119793%_ _%ctx119788%_)) + (if (_%stop?119789%_ _%ctx119793%_) + _%ctx119793%_ + (if (##structure-instance-of? _%ctx119793%_ 'gx#phi-context::t) + (_%lp119791%_ + (##unchecked-structure-ref _%ctx119793%_ '3 '#f '#f)) '#f))))) (define gx#core-context-top__0 (lambda () - (let* ((_%ctx118515%_ (gx#current-expander-context)) - (_%stop?118517%_ gx#top-context?)) - (gx#core-context-top__% _%ctx118515%_ _%stop?118517%_)))) + (let* ((_%ctx119802%_ (gx#current-expander-context)) + (_%stop?119804%_ gx#top-context?)) + (gx#core-context-top__% _%ctx119802%_ _%stop?119804%_)))) (define gx#core-context-top__1 - (lambda (_%ctx118519%_) - (let ((_%stop?118521%_ gx#top-context?)) - (gx#core-context-top__% _%ctx118519%_ _%stop?118521%_)))) + (lambda (_%ctx119806%_) + (let ((_%stop?119808%_ gx#top-context?)) + (gx#core-context-top__% _%ctx119806%_ _%stop?119808%_)))) (define gx#core-context-top - (lambda _g121361_ - (let ((_g121360_ (##length _g121361_))) - (cond ((##fx= _g121360_ 0) (apply gx#core-context-top__0 _g121361_)) - ((##fx= _g121360_ 1) (apply gx#core-context-top__1 _g121361_)) - ((##fx= _g121360_ 2) (apply gx#core-context-top__% _g121361_)) + (lambda _g122648_ + (let ((_g122647_ (##length _g122648_))) + (cond ((##fx= _g122647_ 0) (apply gx#core-context-top__0 _g122648_)) + ((##fx= _g122647_ 1) (apply gx#core-context-top__1 _g122648_)) + ((##fx= _g122647_ 2) (apply gx#core-context-top__% _g122648_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-top - _g121361_)))))) + _g122648_)))))) (define gx#core-context-root__% - (lambda (_%ctx118486%_) - (let _%lp118488%_ ((_%ctx118490%_ _%ctx118486%_)) - (if (##structure-instance-of? _%ctx118490%_ 'gx#phi-context::t) - (_%lp118488%_ - (##unchecked-structure-ref _%ctx118490%_ '3 '#f '#f)) - _%ctx118490%_)))) + (lambda (_%ctx119773%_) + (let _%lp119775%_ ((_%ctx119777%_ _%ctx119773%_)) + (if (##structure-instance-of? _%ctx119777%_ 'gx#phi-context::t) + (_%lp119775%_ + (##unchecked-structure-ref _%ctx119777%_ '3 '#f '#f)) + _%ctx119777%_)))) (define gx#core-context-root__0 (lambda () - (let ((_%ctx118496%_ (gx#current-expander-context))) - (gx#core-context-root__% _%ctx118496%_)))) + (let ((_%ctx119783%_ (gx#current-expander-context))) + (gx#core-context-root__% _%ctx119783%_)))) (define gx#core-context-root - (lambda _g121363_ - (let ((_g121362_ (##length _g121363_))) - (cond ((##fx= _g121362_ 0) (apply gx#core-context-root__0 _g121363_)) - ((##fx= _g121362_ 1) (apply gx#core-context-root__% _g121363_)) + (lambda _g122650_ + (let ((_g122649_ (##length _g122650_))) + (cond ((##fx= _g122649_ 0) (apply gx#core-context-root__0 _g122650_)) + ((##fx= _g122649_ 1) (apply gx#core-context-root__% _g122650_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-root - _g121363_)))))) + _g122650_)))))) (define gx#core-context-rebind?__% - (lambda (_%ctx118468%_ . _%ignore118469%_) - (let ((_%$e118471%_ (gx#current-expander-allow-rebind?))) - (if _%$e118471%_ - _%$e118471%_ - (if (##structure-instance-of? _%ctx118468%_ 'gx#top-context::t) + (lambda (_%ctx119755%_ . _%ignore119756%_) + (let ((_%$e119758%_ (gx#current-expander-allow-rebind?))) + (if _%$e119758%_ + _%$e119758%_ + (if (##structure-instance-of? _%ctx119755%_ 'gx#top-context::t) (if (##structure-instance-of? - _%ctx118468%_ + _%ctx119755%_ 'gx#module-context::t) '#f (not (##structure-instance-of? - _%ctx118468%_ + _%ctx119755%_ 'gx#prelude-context::t))) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_%ctx118478%_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _%ctx118478%_)))) + (let ((_%ctx119765%_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _%ctx119765%_)))) (define gx#core-context-rebind? - (lambda _g121365_ - (let ((_g121364_ (##length _g121365_))) - (cond ((##fx= _g121364_ 0) - (apply gx#core-context-rebind?__0 _g121365_)) - ((##fx= _g121364_ 1) - (apply gx#core-context-rebind?__% _g121365_)) - ((##fx>= _g121364_ 1) - (apply gx#core-context-rebind?__% _g121365_)) + (lambda _g122652_ + (let ((_g122651_ (##length _g122652_))) + (cond ((##fx= _g122651_ 0) + (apply gx#core-context-rebind?__0 _g122652_)) + ((##fx= _g122651_ 1) + (apply gx#core-context-rebind?__% _g122652_)) + ((##fx>= _g122651_ 1) + (apply gx#core-context-rebind?__% _g122652_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-rebind? - _g121365_)))))) + _g122652_)))))) (define gx#core-context-namespace__% - (lambda (_%ctx118451%_) - (let ((_%$e118453%_ (gx#core-context-top__1 _%ctx118451%_))) - (if _%$e118453%_ - ((lambda (_%ctx118456%_) + (lambda (_%ctx119738%_) + (let ((_%$e119740%_ (gx#core-context-top__1 _%ctx119738%_))) + (if _%$e119740%_ + ((lambda (_%ctx119743%_) (if (##structure-instance-of? - _%ctx118456%_ + _%ctx119743%_ 'gx#module-context::t) - (##unchecked-structure-ref _%ctx118456%_ '6 '#f '#f) + (##unchecked-structure-ref _%ctx119743%_ '6 '#f '#f) '#f)) - _%$e118453%_) + _%$e119740%_) '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_%ctx118463%_ (gx#current-expander-context))) - (gx#core-context-namespace__% _%ctx118463%_)))) + (let ((_%ctx119750%_ (gx#current-expander-context))) + (gx#core-context-namespace__% _%ctx119750%_)))) (define gx#core-context-namespace - (lambda _g121367_ - (let ((_g121366_ (##length _g121367_))) - (cond ((##fx= _g121366_ 0) - (apply gx#core-context-namespace__0 _g121367_)) - ((##fx= _g121366_ 1) - (apply gx#core-context-namespace__% _g121367_)) + (lambda _g122654_ + (let ((_g122653_ (##length _g122654_))) + (cond ((##fx= _g122653_ 0) + (apply gx#core-context-namespace__0 _g122654_)) + ((##fx= _g122653_ 1) + (apply gx#core-context-namespace__% _g122654_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-namespace - _g121367_)))))) + _g122654_)))))) (define gx#expander-binding?__% - (lambda (_%bind118437%_ _%is?118438%_) + (lambda (_%bind119724%_ _%is?119725%_) (if (##structure-direct-instance-of? - _%bind118437%_ + _%bind119724%_ 'gx#syntax-binding::t) - (_%is?118438%_ - (##unchecked-structure-ref _%bind118437%_ '4 '#f '#f)) + (_%is?119725%_ + (##unchecked-structure-ref _%bind119724%_ '4 '#f '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_%bind118443%_) - (let ((_%is?118445%_ gx#expander?)) - (gx#expander-binding?__% _%bind118443%_ _%is?118445%_)))) + (lambda (_%bind119730%_) + (let ((_%is?119732%_ gx#expander?)) + (gx#expander-binding?__% _%bind119730%_ _%is?119732%_)))) (define gx#expander-binding? - (lambda _g121369_ - (let ((_g121368_ (##length _g121369_))) - (cond ((##fx= _g121368_ 1) (apply gx#expander-binding?__0 _g121369_)) - ((##fx= _g121368_ 2) (apply gx#expander-binding?__% _g121369_)) + (lambda _g122656_ + (let ((_g122655_ (##length _g122656_))) + (cond ((##fx= _g122655_ 1) (apply gx#expander-binding?__0 _g122656_)) + ((##fx= _g122655_ 2) (apply gx#expander-binding?__% _g122656_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-binding? - _g121369_)))))) + _g122656_)))))) (define gx#core-expander-binding? - (lambda (_%bind118434%_) - (gx#expander-binding?__% _%bind118434%_ gx#core-expander?))) + (lambda (_%bind119721%_) + (gx#expander-binding?__% _%bind119721%_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_%bind118432%_) - (gx#expander-binding?__% _%bind118432%_ gx#expression-form?))) + (lambda (_%bind119719%_) + (gx#expander-binding?__% _%bind119719%_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_%bind118426%_) - (letrec ((_%direct-special-form?118428%_ - (lambda (_%obj118430%_) + (lambda (_%bind119713%_) + (letrec ((_%direct-special-form?119715%_ + (lambda (_%obj119717%_) (##structure-direct-instance-of? - _%obj118430%_ + _%obj119717%_ (##type-id gx#special-form::t))))) (gx#expander-binding?__% - _%bind118426%_ - _%direct-special-form?118428%_)))) + _%bind119713%_ + _%direct-special-form?119715%_)))) (define gx#special-form-binding? - (lambda (_%bind118424%_) - (gx#expander-binding?__% _%bind118424%_ gx#special-form?))) + (lambda (_%bind119711%_) + (gx#expander-binding?__% _%bind119711%_ gx#special-form?))) (define gx#feature-binding? - (lambda (_%bind118415%_) - (letrec ((_%feature?118417%_ - (lambda (_%e118419%_) - (let ((_%$e118421%_ + (lambda (_%bind119702%_) + (letrec ((_%feature?119704%_ + (lambda (_%e119706%_) + (let ((_%$e119708%_ (##structure-instance-of? - _%e118419%_ + _%e119706%_ 'gx#feature-expander::t))) - (if _%$e118421%_ - _%$e118421%_ + (if _%$e119708%_ + _%$e119708%_ (##structure-instance-of? - _%e118419%_ + _%e119706%_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _%bind118415%_ _%feature?118417%_)))) + (gx#expander-binding?__% _%bind119702%_ _%feature?119704%_)))) (define gx#private-feature-binding? - (lambda (_%bind118413%_) - (gx#expander-binding?__% _%bind118413%_ gx#private-feature-expander?))) + (lambda (_%bind119700%_) + (gx#expander-binding?__% _%bind119700%_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_%id118400%_ _%bound?118401%_) - (if (gx#identifier? _%id118400%_) - (_%bound?118401%_ (gx#resolve-identifier__0 _%id118400%_)) + (lambda (_%id119687%_ _%bound?119688%_) + (if (gx#identifier? _%id119687%_) + (_%bound?119688%_ (gx#resolve-identifier__0 _%id119687%_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_%id118406%_) - (let ((_%bound?118408%_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _%id118406%_ _%bound?118408%_)))) + (lambda (_%id119693%_) + (let ((_%bound?119695%_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _%id119693%_ _%bound?119695%_)))) (define gx#core-bound-identifier? - (lambda _g121371_ - (let ((_g121370_ (##length _g121371_))) - (cond ((##fx= _g121370_ 1) - (apply gx#core-bound-identifier?__0 _g121371_)) - ((##fx= _g121370_ 2) - (apply gx#core-bound-identifier?__% _g121371_)) + (lambda _g122658_ + (let ((_g122657_ (##length _g122658_))) + (cond ((##fx= _g122657_ 1) + (apply gx#core-bound-identifier?__0 _g122658_)) + ((##fx= _g122657_ 2) + (apply gx#core-bound-identifier?__% _g122658_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bound-identifier? - _g121371_)))))) + _g122658_)))))) (define gx#core-identifier=? - (lambda (_%x118390%_ _%y118391%_) - (letrec ((_%y=?118393%_ - (lambda (_%xid118397%_) - ((if (list? _%y118391%_) memq eq?) - _%xid118397%_ - _%y118391%_)))) - (let ((_%bind118395%_ (gx#resolve-identifier__0 _%x118390%_))) - (if (##structure-instance-of? _%bind118395%_ 'gx#binding::t) - (_%y=?118393%_ - (##unchecked-structure-ref _%bind118395%_ '1 '#f '#f)) - (_%y=?118393%_ (gx#stx-e _%x118390%_))))))) + (lambda (_%x119677%_ _%y119678%_) + (letrec ((_%y=?119680%_ + (lambda (_%xid119684%_) + ((if (list? _%y119678%_) memq eq?) + _%xid119684%_ + _%y119678%_)))) + (let ((_%bind119682%_ (gx#resolve-identifier__0 _%x119677%_))) + (if (##structure-instance-of? _%bind119682%_ 'gx#binding::t) + (_%y=?119680%_ + (##unchecked-structure-ref _%bind119682%_ '1 '#f '#f)) + (_%y=?119680%_ (gx#stx-e _%x119677%_))))))) (define gx#core-extern-symbol? - (lambda (_%e118388%_) - (if (interned-symbol? _%e118388%_) - (string-index__0 (symbol->string _%e118388%_) '#\#) + (lambda (_%e119675%_) + (if (interned-symbol? _%e119675%_) + (string-index__0 (symbol->string _%e119675%_) '#\#) '#f))) (define gx#core-quote-syntax__% - (lambda (_%stx118341%_ _%src118342%_ _%ctx118343%_ _%marks118344%_) - (if (##structure? _%stx118341%_) - (let ((_%$e118346%_ (gx#sealed-syntax-unwrap _%stx118341%_))) - (if _%$e118346%_ - _%$e118346%_ - (if (gx#identifier? _%stx118341%_) - (let ((_%id118350%_ - (gx#stx-unwrap__% _%stx118341%_ _%marks118344%_))) + (lambda (_%stx119628%_ _%src119629%_ _%ctx119630%_ _%marks119631%_) + (if (##structure? _%stx119628%_) + (let ((_%$e119633%_ (gx#sealed-syntax-unwrap _%stx119628%_))) + (if _%$e119633%_ + _%$e119633%_ + (if (gx#identifier? _%stx119628%_) + (let ((_%id119637%_ + (gx#stx-unwrap__% _%stx119628%_ _%marks119631%_))) (##structure gx#syntax-quote::t - (##unchecked-structure-ref _%id118350%_ '1 '#f '#f) - (let ((_%$e118352%_ + (##unchecked-structure-ref _%id119637%_ '1 '#f '#f) + (let ((_%$e119639%_ (##unchecked-structure-ref - _%id118350%_ + _%id119637%_ '2 '#f '#f))) - (if _%$e118352%_ _%$e118352%_ _%src118342%_)) - _%ctx118343%_ - (##unchecked-structure-ref _%id118350%_ '3 '#f '#f))) + (if _%$e119639%_ _%$e119639%_ _%src119629%_)) + _%ctx119630%_ + (##unchecked-structure-ref _%id119637%_ '3 '#f '#f))) (##structure gx#syntax-quote::t - (gx#stx-e _%stx118341%_) - (let ((_%$e118356%_ (gx#stx-source _%stx118341%_))) - (if _%$e118356%_ _%$e118356%_ _%src118342%_)) - _%ctx118343%_ - (reverse _%marks118344%_))))) + (gx#stx-e _%stx119628%_) + (let ((_%$e119643%_ (gx#stx-source _%stx119628%_))) + (if _%$e119643%_ _%$e119643%_ _%src119629%_)) + _%ctx119630%_ + (reverse _%marks119631%_))))) (##structure gx#syntax-quote::t - _%stx118341%_ - _%src118342%_ - _%ctx118343%_ - (reverse _%marks118344%_))))) + _%stx119628%_ + _%src119629%_ + _%ctx119630%_ + (reverse _%marks119631%_))))) (define gx#core-quote-syntax__0 - (lambda (_%stx118362%_) - (let* ((_%src118364%_ '#f) - (_%ctx118366%_ (gx#current-expander-context)) - (_%marks118368%_ (gx#current-expander-marks))) + (lambda (_%stx119649%_) + (let* ((_%src119651%_ '#f) + (_%ctx119653%_ (gx#current-expander-context)) + (_%marks119655%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx118362%_ - _%src118364%_ - _%ctx118366%_ - _%marks118368%_)))) + _%stx119649%_ + _%src119651%_ + _%ctx119653%_ + _%marks119655%_)))) (define gx#core-quote-syntax__1 - (lambda (_%stx118370%_ _%src118371%_) - (let* ((_%ctx118373%_ (gx#current-expander-context)) - (_%marks118375%_ (gx#current-expander-marks))) + (lambda (_%stx119657%_ _%src119658%_) + (let* ((_%ctx119660%_ (gx#current-expander-context)) + (_%marks119662%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx118370%_ - _%src118371%_ - _%ctx118373%_ - _%marks118375%_)))) + _%stx119657%_ + _%src119658%_ + _%ctx119660%_ + _%marks119662%_)))) (define gx#core-quote-syntax__2 - (lambda (_%stx118377%_ _%src118378%_ _%ctx118379%_) - (let ((_%marks118381%_ (gx#current-expander-marks))) + (lambda (_%stx119664%_ _%src119665%_ _%ctx119666%_) + (let ((_%marks119668%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx118377%_ - _%src118378%_ - _%ctx118379%_ - _%marks118381%_)))) + _%stx119664%_ + _%src119665%_ + _%ctx119666%_ + _%marks119668%_)))) (define gx#core-quote-syntax - (lambda _g121373_ - (let ((_g121372_ (##length _g121373_))) - (cond ((##fx= _g121372_ 1) (apply gx#core-quote-syntax__0 _g121373_)) - ((##fx= _g121372_ 2) (apply gx#core-quote-syntax__1 _g121373_)) - ((##fx= _g121372_ 3) (apply gx#core-quote-syntax__2 _g121373_)) - ((##fx= _g121372_ 4) (apply gx#core-quote-syntax__% _g121373_)) + (lambda _g122660_ + (let ((_g122659_ (##length _g122660_))) + (cond ((##fx= _g122659_ 1) (apply gx#core-quote-syntax__0 _g122660_)) + ((##fx= _g122659_ 2) (apply gx#core-quote-syntax__1 _g122660_)) + ((##fx= _g122659_ 3) (apply gx#core-quote-syntax__2 _g122660_)) + ((##fx= _g122659_ 4) (apply gx#core-quote-syntax__% _g122660_)) (else (##raise-wrong-number-of-arguments-exception gx#core-quote-syntax - _g121373_)))))) + _g122660_)))))) (define gx#core-cons - (lambda (_%hd118337%_ _%tl118338%_) - (cons (gx#core-quote-syntax__0 _%hd118337%_) _%tl118338%_))) + (lambda (_%hd119624%_ _%tl119625%_) + (cons (gx#core-quote-syntax__0 _%hd119624%_) _%tl119625%_))) (define gx#core-list - (lambda (_%hd118334%_ . _%rest118335%_) - (cons (gx#core-quote-syntax__0 _%hd118334%_) _%rest118335%_))) + (lambda (_%hd119621%_ . _%rest119622%_) + (cons (gx#core-quote-syntax__0 _%hd119621%_) _%rest119622%_))) (define gx#core-cons* - (lambda (_%hd118331%_ . _%rest118332%_) - (apply cons* (gx#core-quote-syntax__0 _%hd118331%_) _%rest118332%_))) + (lambda (_%hd119618%_ . _%rest119619%_) + (apply cons* (gx#core-quote-syntax__0 _%hd119618%_) _%rest119619%_))) (define gx#core-resolve-path__% - (lambda (_%stx-path118300%_ _%rel118301%_) - (let ((_%path118318%_ (gx#stx-e _%stx-path118300%_)) - (_%reldir118319%_ - (let _%lp118303%_ ((_%relsrc118305%_ - (let ((_%$e118315%_ - (gx#stx-source _%stx-path118300%_))) - (if _%$e118315%_ - _%$e118315%_ - _%rel118301%_)))) - (if (##structure-instance-of? _%relsrc118305%_ 'gerbil#AST::t) - (_%lp118303%_ - (let ((_%$e118308%_ (gx#stx-source _%relsrc118305%_))) - (if _%$e118308%_ - _%$e118308%_ - (gx#stx-e _%relsrc118305%_)))) - (if (source-location-path? _%relsrc118305%_) + (lambda (_%stx-path119587%_ _%rel119588%_) + (let ((_%path119605%_ (gx#stx-e _%stx-path119587%_)) + (_%reldir119606%_ + (let _%lp119590%_ ((_%relsrc119592%_ + (let ((_%$e119602%_ + (gx#stx-source _%stx-path119587%_))) + (if _%$e119602%_ + _%$e119602%_ + _%rel119588%_)))) + (if (##structure-instance-of? _%relsrc119592%_ 'gerbil#AST::t) + (_%lp119590%_ + (let ((_%$e119595%_ (gx#stx-source _%relsrc119592%_))) + (if _%$e119595%_ + _%$e119595%_ + (gx#stx-e _%relsrc119592%_)))) + (if (source-location-path? _%relsrc119592%_) (path-directory - (source-location-path _%relsrc118305%_)) - (if (string? _%relsrc118305%_) - (path-directory _%relsrc118305%_) + (source-location-path _%relsrc119592%_)) + (if (string? _%relsrc119592%_) + (path-directory _%relsrc119592%_) (if (null? (gx#current-expander-path)) (current-directory) (path-directory (car (gx#current-expander-path)))))))))) - (path-expand _%path118318%_ (path-normalize _%reldir118319%_))))) + (path-expand _%path119605%_ (path-normalize _%reldir119606%_))))) (define gx#core-resolve-path__0 - (lambda (_%stx-path118324%_) - (let ((_%rel118326%_ '#f)) - (gx#core-resolve-path__% _%stx-path118324%_ _%rel118326%_)))) + (lambda (_%stx-path119611%_) + (let ((_%rel119613%_ '#f)) + (gx#core-resolve-path__% _%stx-path119611%_ _%rel119613%_)))) (define gx#core-resolve-path - (lambda _g121375_ - (let ((_g121374_ (##length _g121375_))) - (cond ((##fx= _g121374_ 1) (apply gx#core-resolve-path__0 _g121375_)) - ((##fx= _g121374_ 2) (apply gx#core-resolve-path__% _g121375_)) + (lambda _g122662_ + (let ((_g122661_ (##length _g122662_))) + (cond ((##fx= _g122661_ 1) (apply gx#core-resolve-path__0 _g122662_)) + ((##fx= _g122661_ 2) (apply gx#core-resolve-path__% _g122662_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-path - _g121375_)))))) + _g122662_)))))) (define gx#core-deserialize-mark__% - (lambda (_%repr118256%_ _%ctx118257%_) - (let* ((_%repr118258118265%_ _%repr118256%_) - (_%E118260118269%_ + (lambda (_%repr119543%_ _%ctx119544%_) + (let* ((_%repr119545119552%_ _%repr119543%_) + (_%E119547119556%_ (lambda () (error '"No clause matching" - _%repr118258118265%_ + _%repr119545119552%_ '([phi . subs])) '#!void)) - (_%K118261118277%_ - (lambda (_%subs118272%_ _%phi118273%_) - (let ((_%subst118275%_ - (if (null? _%subs118272%_) + (_%K119548119564%_ + (lambda (_%subs119559%_ _%phi119560%_) + (let ((_%subst119562%_ + (if (null? _%subs119559%_) '#f - (list->hash-table-eq _%subs118272%_)))) + (list->hash-table-eq _%subs119559%_)))) (##structure gx#expander-mark::t - _%subst118275%_ - _%ctx118257%_ - _%phi118273%_ + _%subst119562%_ + _%ctx119544%_ + _%phi119560%_ '#f))))) - (if (pair? _%repr118258118265%_) - (let ((_%hd118262118280%_ (##car _%repr118258118265%_)) - (_%tl118263118282%_ (##cdr _%repr118258118265%_))) - (let* ((_%phi118285%_ _%hd118262118280%_) - (_%subs118287%_ _%tl118263118282%_)) - (_%K118261118277%_ _%subs118287%_ _%phi118285%_))) - (_%E118260118269%_))))) + (if (pair? _%repr119545119552%_) + (let ((_%hd119549119567%_ (##car _%repr119545119552%_)) + (_%tl119550119569%_ (##cdr _%repr119545119552%_))) + (let* ((_%phi119572%_ _%hd119549119567%_) + (_%subs119574%_ _%tl119550119569%_)) + (_%K119548119564%_ _%subs119574%_ _%phi119572%_))) + (_%E119547119556%_))))) (define gx#core-deserialize-mark__0 - (lambda (_%repr118292%_) - (let ((_%ctx118294%_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _%repr118292%_ _%ctx118294%_)))) + (lambda (_%repr119579%_) + (let ((_%ctx119581%_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _%repr119579%_ _%ctx119581%_)))) (define gx#core-deserialize-mark - (lambda _g121377_ - (let ((_g121376_ (##length _g121377_))) - (cond ((##fx= _g121376_ 1) - (apply gx#core-deserialize-mark__0 _g121377_)) - ((##fx= _g121376_ 2) - (apply gx#core-deserialize-mark__% _g121377_)) + (lambda _g122664_ + (let ((_g122663_ (##length _g122664_))) + (cond ((##fx= _g122663_ 1) + (apply gx#core-deserialize-mark__0 _g122664_)) + ((##fx= _g122663_ 2) + (apply gx#core-deserialize-mark__% _g122664_)) (else (##raise-wrong-number-of-arguments-exception gx#core-deserialize-mark - _g121377_)))))) + _g122664_)))))) (define gx#syntax-local-rewrap - (lambda (_%stx118253%_) - (gx#stx-rewrap _%stx118253%_ (gx#current-expander-marks)))) + (lambda (_%stx119540%_) + (gx#stx-rewrap _%stx119540%_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_%stx118251%_) - (gx#stx-unwrap__% _%stx118251%_ (gx#current-expander-marks)))) + (lambda (_%stx119538%_) + (gx#stx-unwrap__% _%stx119538%_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_%stx118221%_) - (let* ((_%g118222118230%_ (gx#current-expander-marks)) - (_%else118224118238%_ (lambda () _%stx118221%_)) - (_%K118226118243%_ - (lambda (_%hd118241%_) - (gx#stx-apply-mark _%stx118221%_ _%hd118241%_)))) - (if (pair? _%g118222118230%_) - (let* ((_%hd118227118246%_ (##car _%g118222118230%_)) - (_%hd118249%_ _%hd118227118246%_)) - (_%K118226118243%_ _%hd118249%_)) - (_%else118224118238%_))))) + (lambda (_%stx119508%_) + (let* ((_%g119509119517%_ (gx#current-expander-marks)) + (_%else119511119525%_ (lambda () _%stx119508%_)) + (_%K119513119530%_ + (lambda (_%hd119528%_) + (gx#stx-apply-mark _%stx119508%_ _%hd119528%_)))) + (if (pair? _%g119509119517%_) + (let* ((_%hd119514119533%_ (##car _%g119509119517%_)) + (_%hd119536%_ _%hd119514119533%_)) + (_%K119513119530%_ _%hd119536%_)) + (_%else119511119525%_))))) (define gx#syntax-local-e__% - (lambda (_%stx118206%_ _%E118207%_) - (let ((_%bind118209%_ (gx#resolve-identifier__0 _%stx118206%_))) + (lambda (_%stx119493%_ _%E119494%_) + (let ((_%bind119496%_ (gx#resolve-identifier__0 _%stx119493%_))) (if (##structure-direct-instance-of? - _%bind118209%_ + _%bind119496%_ 'gx#syntax-binding::t) - (##unchecked-structure-ref _%bind118209%_ '4 '#f '#f) - (_%E118207%_ _%stx118206%_))))) + (##unchecked-structure-ref _%bind119496%_ '4 '#f '#f) + (_%E119494%_ _%stx119493%_))))) (define gx#syntax-local-e__0 - (lambda (_%stx118214%_) - (let ((_%E118216%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _%stx118214%_ _%E118216%_)))) + (lambda (_%stx119501%_) + (let ((_%E119503%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _%stx119501%_ _%E119503%_)))) (define gx#syntax-local-e - (lambda _g121379_ - (let ((_g121378_ (##length _g121379_))) - (cond ((##fx= _g121378_ 1) (apply gx#syntax-local-e__0 _g121379_)) - ((##fx= _g121378_ 2) (apply gx#syntax-local-e__% _g121379_)) + (lambda _g122666_ + (let ((_g122665_ (##length _g122666_))) + (cond ((##fx= _g122665_ 1) (apply gx#syntax-local-e__0 _g122666_)) + ((##fx= _g122665_ 2) (apply gx#syntax-local-e__% _g122666_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-e - _g121379_)))))) + _g122666_)))))) (define gx#syntax-local-value__% - (lambda (_%stx118190%_ _%E118191%_) - (let ((_%e118193%_ (gx#syntax-local-e__% _%stx118190%_ _%E118191%_))) - (if (##structure-instance-of? _%e118193%_ 'gx#expander::t) - (##unchecked-structure-ref _%e118193%_ '1 '#f '#f) - _%e118193%_)))) + (lambda (_%stx119477%_ _%E119478%_) + (let ((_%e119480%_ (gx#syntax-local-e__% _%stx119477%_ _%E119478%_))) + (if (##structure-instance-of? _%e119480%_ 'gx#expander::t) + (##unchecked-structure-ref _%e119480%_ '1 '#f '#f) + _%e119480%_)))) (define gx#syntax-local-value__0 - (lambda (_%stx118198%_) - (let ((_%E118200%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _%stx118198%_ _%E118200%_)))) + (lambda (_%stx119485%_) + (let ((_%E119487%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _%stx119485%_ _%E119487%_)))) (define gx#syntax-local-value - (lambda _g121381_ - (let ((_g121380_ (##length _g121381_))) - (cond ((##fx= _g121380_ 1) - (apply gx#syntax-local-value__0 _g121381_)) - ((##fx= _g121380_ 2) - (apply gx#syntax-local-value__% _g121381_)) + (lambda _g122668_ + (let ((_g122667_ (##length _g122668_))) + (cond ((##fx= _g122667_ 1) + (apply gx#syntax-local-value__0 _g122668_)) + ((##fx= _g122667_ 2) + (apply gx#syntax-local-value__% _g122668_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-value - _g121381_)))))) + _g122668_)))))) (define gx#raise-syntax-ref-error - (lambda (_%stx118187%_) + (lambda (_%stx119474%_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _%stx118187%_))))) + _%stx119474%_))))) diff --git a/src/bootstrap/gerbil/expander/core~1.scm b/src/bootstrap/gerbil/expander/core~1.scm index dea84d96f..29464d0cd 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]#_g121383_| + (define |gx[1]#_g122670_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121385_| + (define |gx[1]#_g122672_| (##structure gx#syntax-quote::t 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121387_| + (define |gx[1]#_g122674_| (##structure gx#syntax-quote::t 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121389_| + (define |gx[1]#_g122676_| (##structure gx#syntax-quote::t 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121390_| + (define |gx[1]#_g122677_| (##structure gx#syntax-quote::t 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121392_| + (define |gx[1]#_g122679_| (##structure gx#syntax-quote::t 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121393_| + (define |gx[1]#_g122680_| (##structure gx#syntax-quote::t 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121395_| + (define |gx[1]#_g122682_| (##structure gx#syntax-quote::t '&expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121396_| + (define |gx[1]#_g122683_| (##structure gx#syntax-quote::t '&expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121398_| + (define |gx[1]#_g122685_| (##structure gx#syntax-quote::t '&expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121399_| + (define |gx[1]#_g122686_| (##structure gx#syntax-quote::t '&expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121401_| + (define |gx[1]#_g122688_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121403_| + (define |gx[1]#_g122690_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121405_| + (define |gx[1]#_g122692_| (##structure gx#syntax-quote::t 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121407_| + (define |gx[1]#_g122694_| (##structure gx#syntax-quote::t 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121409_| + (define |gx[1]#_g122696_| (##structure gx#syntax-quote::t 'root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121410_| + (define |gx[1]#_g122697_| (##structure gx#syntax-quote::t 'root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121412_| + (define |gx[1]#_g122699_| (##structure gx#syntax-quote::t 'root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121413_| + (define |gx[1]#_g122700_| (##structure gx#syntax-quote::t 'root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121415_| + (define |gx[1]#_g122702_| (##structure gx#syntax-quote::t '&root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121416_| + (define |gx[1]#_g122703_| (##structure gx#syntax-quote::t '&root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121418_| + (define |gx[1]#_g122705_| (##structure gx#syntax-quote::t '&root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121419_| + (define |gx[1]#_g122706_| (##structure gx#syntax-quote::t '&root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121422_| + (define |gx[1]#_g122709_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121424_| + (define |gx[1]#_g122711_| (##structure gx#syntax-quote::t 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121426_| + (define |gx[1]#_g122713_| (##structure gx#syntax-quote::t 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121428_| + (define |gx[1]#_g122715_| (##structure gx#syntax-quote::t 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121429_| + (define |gx[1]#_g122716_| (##structure gx#syntax-quote::t 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121430_| + (define |gx[1]#_g122717_| (##structure gx#syntax-quote::t 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121431_| + (define |gx[1]#_g122718_| (##structure gx#syntax-quote::t 'phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121432_| + (define |gx[1]#_g122719_| (##structure gx#syntax-quote::t 'phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121434_| + (define |gx[1]#_g122721_| (##structure gx#syntax-quote::t 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121435_| + (define |gx[1]#_g122722_| (##structure gx#syntax-quote::t 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121436_| + (define |gx[1]#_g122723_| (##structure gx#syntax-quote::t 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121437_| + (define |gx[1]#_g122724_| (##structure gx#syntax-quote::t 'phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121438_| + (define |gx[1]#_g122725_| (##structure gx#syntax-quote::t 'phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121440_| + (define |gx[1]#_g122727_| (##structure gx#syntax-quote::t '&phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121441_| + (define |gx[1]#_g122728_| (##structure gx#syntax-quote::t '&phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121442_| + (define |gx[1]#_g122729_| (##structure gx#syntax-quote::t '&phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121443_| + (define |gx[1]#_g122730_| (##structure gx#syntax-quote::t '&phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121444_| + (define |gx[1]#_g122731_| (##structure gx#syntax-quote::t '&phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121446_| + (define |gx[1]#_g122733_| (##structure gx#syntax-quote::t '&phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121447_| + (define |gx[1]#_g122734_| (##structure gx#syntax-quote::t '&phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121448_| + (define |gx[1]#_g122735_| (##structure gx#syntax-quote::t '&phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121449_| + (define |gx[1]#_g122736_| (##structure gx#syntax-quote::t '&phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121450_| + (define |gx[1]#_g122737_| (##structure gx#syntax-quote::t '&phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121452_| + (define |gx[1]#_g122739_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121454_| + (define |gx[1]#_g122741_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121456_| + (define |gx[1]#_g122743_| (##structure gx#syntax-quote::t 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121458_| + (define |gx[1]#_g122745_| (##structure gx#syntax-quote::t 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121460_| + (define |gx[1]#_g122747_| (##structure gx#syntax-quote::t 'top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121461_| + (define |gx[1]#_g122748_| (##structure gx#syntax-quote::t 'top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121462_| + (define |gx[1]#_g122749_| (##structure gx#syntax-quote::t 'top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121463_| + (define |gx[1]#_g122750_| (##structure gx#syntax-quote::t 'top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121464_| + (define |gx[1]#_g122751_| (##structure gx#syntax-quote::t 'top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121466_| + (define |gx[1]#_g122753_| (##structure gx#syntax-quote::t 'top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121467_| + (define |gx[1]#_g122754_| (##structure gx#syntax-quote::t 'top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121468_| + (define |gx[1]#_g122755_| (##structure gx#syntax-quote::t 'top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121469_| + (define |gx[1]#_g122756_| (##structure gx#syntax-quote::t 'top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121470_| + (define |gx[1]#_g122757_| (##structure gx#syntax-quote::t 'top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121472_| + (define |gx[1]#_g122759_| (##structure gx#syntax-quote::t '&top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121473_| + (define |gx[1]#_g122760_| (##structure gx#syntax-quote::t '&top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121474_| + (define |gx[1]#_g122761_| (##structure gx#syntax-quote::t '&top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121475_| + (define |gx[1]#_g122762_| (##structure gx#syntax-quote::t '&top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121476_| + (define |gx[1]#_g122763_| (##structure gx#syntax-quote::t '&top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121478_| + (define |gx[1]#_g122765_| (##structure gx#syntax-quote::t '&top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121479_| + (define |gx[1]#_g122766_| (##structure gx#syntax-quote::t '&top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121480_| + (define |gx[1]#_g122767_| (##structure gx#syntax-quote::t '&top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121481_| + (define |gx[1]#_g122768_| (##structure gx#syntax-quote::t '&top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121482_| + (define |gx[1]#_g122769_| (##structure gx#syntax-quote::t '&top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121484_| + (define |gx[1]#_g122771_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121486_| + (define |gx[1]#_g122773_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121488_| + (define |gx[1]#_g122775_| (##structure gx#syntax-quote::t 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121490_| + (define |gx[1]#_g122777_| (##structure gx#syntax-quote::t 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121492_| + (define |gx[1]#_g122779_| (##structure gx#syntax-quote::t 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g121493_| + (define |gx[1]#_g122780_| (##structure gx#syntax-quote::t 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121494_| + (define |gx[1]#_g122781_| (##structure gx#syntax-quote::t 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121495_| + (define |gx[1]#_g122782_| (##structure gx#syntax-quote::t 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g121496_| + (define |gx[1]#_g122783_| (##structure gx#syntax-quote::t 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121497_| + (define |gx[1]#_g122784_| (##structure gx#syntax-quote::t 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g121498_| + (define |gx[1]#_g122785_| (##structure gx#syntax-quote::t 'module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121499_| + (define |gx[1]#_g122786_| (##structure gx#syntax-quote::t 'module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121500_| + (define |gx[1]#_g122787_| (##structure gx#syntax-quote::t 'module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121501_| + (define |gx[1]#_g122788_| (##structure gx#syntax-quote::t 'module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121502_| + (define |gx[1]#_g122789_| (##structure gx#syntax-quote::t 'module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121504_| + (define |gx[1]#_g122791_| (##structure gx#syntax-quote::t 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121505_| + (define |gx[1]#_g122792_| (##structure gx#syntax-quote::t 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121506_| + (define |gx[1]#_g122793_| (##structure gx#syntax-quote::t 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121507_| + (define |gx[1]#_g122794_| (##structure gx#syntax-quote::t 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121508_| + (define |gx[1]#_g122795_| (##structure gx#syntax-quote::t 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121509_| + (define |gx[1]#_g122796_| (##structure gx#syntax-quote::t 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121510_| + (define |gx[1]#_g122797_| (##structure gx#syntax-quote::t 'module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121511_| + (define |gx[1]#_g122798_| (##structure gx#syntax-quote::t 'module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121512_| + (define |gx[1]#_g122799_| (##structure gx#syntax-quote::t 'module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121513_| + (define |gx[1]#_g122800_| (##structure gx#syntax-quote::t 'module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121514_| + (define |gx[1]#_g122801_| (##structure gx#syntax-quote::t 'module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121516_| + (define |gx[1]#_g122803_| (##structure gx#syntax-quote::t '&module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g121517_| + (define |gx[1]#_g122804_| (##structure gx#syntax-quote::t '&module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121518_| + (define |gx[1]#_g122805_| (##structure gx#syntax-quote::t '&module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121519_| + (define |gx[1]#_g122806_| (##structure gx#syntax-quote::t '&module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g121520_| + (define |gx[1]#_g122807_| (##structure gx#syntax-quote::t '&module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121521_| + (define |gx[1]#_g122808_| (##structure gx#syntax-quote::t '&module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g121522_| + (define |gx[1]#_g122809_| (##structure gx#syntax-quote::t '&module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121523_| + (define |gx[1]#_g122810_| (##structure gx#syntax-quote::t '&module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121524_| + (define |gx[1]#_g122811_| (##structure gx#syntax-quote::t '&module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121525_| + (define |gx[1]#_g122812_| (##structure gx#syntax-quote::t '&module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121526_| + (define |gx[1]#_g122813_| (##structure gx#syntax-quote::t '&module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121528_| + (define |gx[1]#_g122815_| (##structure gx#syntax-quote::t '&module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121529_| + (define |gx[1]#_g122816_| (##structure gx#syntax-quote::t '&module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121530_| + (define |gx[1]#_g122817_| (##structure gx#syntax-quote::t '&module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121531_| + (define |gx[1]#_g122818_| (##structure gx#syntax-quote::t '&module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121532_| + (define |gx[1]#_g122819_| (##structure gx#syntax-quote::t '&module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121533_| + (define |gx[1]#_g122820_| (##structure gx#syntax-quote::t '&module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121534_| + (define |gx[1]#_g122821_| (##structure gx#syntax-quote::t '&module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121535_| + (define |gx[1]#_g122822_| (##structure gx#syntax-quote::t '&module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121536_| + (define |gx[1]#_g122823_| (##structure gx#syntax-quote::t '&module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121537_| + (define |gx[1]#_g122824_| (##structure gx#syntax-quote::t '&module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121538_| + (define |gx[1]#_g122825_| (##structure gx#syntax-quote::t '&module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121541_| + (define |gx[1]#_g122828_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121543_| + (define |gx[1]#_g122830_| (##structure gx#syntax-quote::t 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121545_| + (define |gx[1]#_g122832_| (##structure gx#syntax-quote::t 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121547_| + (define |gx[1]#_g122834_| (##structure gx#syntax-quote::t 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121548_| + (define |gx[1]#_g122835_| (##structure gx#syntax-quote::t 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121549_| + (define |gx[1]#_g122836_| (##structure gx#syntax-quote::t 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121550_| + (define |gx[1]#_g122837_| (##structure gx#syntax-quote::t 'prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121551_| + (define |gx[1]#_g122838_| (##structure gx#syntax-quote::t 'prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121552_| + (define |gx[1]#_g122839_| (##structure gx#syntax-quote::t 'prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121553_| + (define |gx[1]#_g122840_| (##structure gx#syntax-quote::t 'prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121554_| + (define |gx[1]#_g122841_| (##structure gx#syntax-quote::t 'prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121556_| + (define |gx[1]#_g122843_| (##structure gx#syntax-quote::t 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121557_| + (define |gx[1]#_g122844_| (##structure gx#syntax-quote::t 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121558_| + (define |gx[1]#_g122845_| (##structure gx#syntax-quote::t 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121559_| + (define |gx[1]#_g122846_| (##structure gx#syntax-quote::t 'prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121560_| + (define |gx[1]#_g122847_| (##structure gx#syntax-quote::t 'prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121561_| + (define |gx[1]#_g122848_| (##structure gx#syntax-quote::t 'prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121562_| + (define |gx[1]#_g122849_| (##structure gx#syntax-quote::t 'prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121563_| + (define |gx[1]#_g122850_| (##structure gx#syntax-quote::t 'prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121565_| + (define |gx[1]#_g122852_| (##structure gx#syntax-quote::t '&prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121566_| + (define |gx[1]#_g122853_| (##structure gx#syntax-quote::t '&prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121567_| + (define |gx[1]#_g122854_| (##structure gx#syntax-quote::t '&prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121568_| + (define |gx[1]#_g122855_| (##structure gx#syntax-quote::t '&prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121569_| + (define |gx[1]#_g122856_| (##structure gx#syntax-quote::t '&prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121570_| + (define |gx[1]#_g122857_| (##structure gx#syntax-quote::t '&prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121571_| + (define |gx[1]#_g122858_| (##structure gx#syntax-quote::t '&prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121572_| + (define |gx[1]#_g122859_| (##structure gx#syntax-quote::t '&prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121574_| + (define |gx[1]#_g122861_| (##structure gx#syntax-quote::t '&prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121575_| + (define |gx[1]#_g122862_| (##structure gx#syntax-quote::t '&prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121576_| + (define |gx[1]#_g122863_| (##structure gx#syntax-quote::t '&prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121577_| + (define |gx[1]#_g122864_| (##structure gx#syntax-quote::t '&prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121578_| + (define |gx[1]#_g122865_| (##structure gx#syntax-quote::t '&prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121579_| + (define |gx[1]#_g122866_| (##structure gx#syntax-quote::t '&prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121580_| + (define |gx[1]#_g122867_| (##structure gx#syntax-quote::t '&prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121581_| + (define |gx[1]#_g122868_| (##structure gx#syntax-quote::t '&prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121584_| + (define |gx[1]#_g122871_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121586_| + (define |gx[1]#_g122873_| (##structure gx#syntax-quote::t 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121588_| + (define |gx[1]#_g122875_| (##structure gx#syntax-quote::t 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121590_| + (define |gx[1]#_g122877_| (##structure gx#syntax-quote::t 'local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121591_| + (define |gx[1]#_g122878_| (##structure gx#syntax-quote::t 'local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121592_| + (define |gx[1]#_g122879_| (##structure gx#syntax-quote::t 'local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121593_| + (define |gx[1]#_g122880_| (##structure gx#syntax-quote::t 'local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121594_| + (define |gx[1]#_g122881_| (##structure gx#syntax-quote::t 'local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121596_| + (define |gx[1]#_g122883_| (##structure gx#syntax-quote::t 'local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121597_| + (define |gx[1]#_g122884_| (##structure gx#syntax-quote::t 'local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121598_| + (define |gx[1]#_g122885_| (##structure gx#syntax-quote::t 'local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121599_| + (define |gx[1]#_g122886_| (##structure gx#syntax-quote::t 'local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121600_| + (define |gx[1]#_g122887_| (##structure gx#syntax-quote::t 'local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121602_| + (define |gx[1]#_g122889_| (##structure gx#syntax-quote::t '&local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121603_| + (define |gx[1]#_g122890_| (##structure gx#syntax-quote::t '&local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121604_| + (define |gx[1]#_g122891_| (##structure gx#syntax-quote::t '&local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121605_| + (define |gx[1]#_g122892_| (##structure gx#syntax-quote::t '&local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121606_| + (define |gx[1]#_g122893_| (##structure gx#syntax-quote::t '&local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121608_| + (define |gx[1]#_g122895_| (##structure gx#syntax-quote::t '&local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121609_| + (define |gx[1]#_g122896_| (##structure gx#syntax-quote::t '&local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121610_| + (define |gx[1]#_g122897_| (##structure gx#syntax-quote::t '&local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121611_| + (define |gx[1]#_g122898_| (##structure gx#syntax-quote::t '&local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121612_| + (define |gx[1]#_g122899_| (##structure gx#syntax-quote::t '&local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121614_| + (define |gx[1]#_g122901_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121616_| + (define |gx[1]#_g122903_| (##structure gx#syntax-quote::t 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121618_| + (define |gx[1]#_g122905_| (##structure gx#syntax-quote::t 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121620_| + (define |gx[1]#_g122907_| (##structure gx#syntax-quote::t 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121621_| + (define |gx[1]#_g122908_| (##structure gx#syntax-quote::t 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121622_| + (define |gx[1]#_g122909_| (##structure gx#syntax-quote::t 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121624_| + (define |gx[1]#_g122911_| (##structure gx#syntax-quote::t 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121625_| + (define |gx[1]#_g122912_| (##structure gx#syntax-quote::t 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121626_| + (define |gx[1]#_g122913_| (##structure gx#syntax-quote::t 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121628_| + (define |gx[1]#_g122915_| (##structure gx#syntax-quote::t '&binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121629_| + (define |gx[1]#_g122916_| (##structure gx#syntax-quote::t '&binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121630_| + (define |gx[1]#_g122917_| (##structure gx#syntax-quote::t '&binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121632_| + (define |gx[1]#_g122919_| (##structure gx#syntax-quote::t '&binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121633_| + (define |gx[1]#_g122920_| (##structure gx#syntax-quote::t '&binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121634_| + (define |gx[1]#_g122921_| (##structure gx#syntax-quote::t '&binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121636_| + (define |gx[1]#_g122923_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121638_| + (define |gx[1]#_g122925_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121640_| + (define |gx[1]#_g122927_| (##structure gx#syntax-quote::t 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121642_| + (define |gx[1]#_g122929_| (##structure gx#syntax-quote::t 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121644_| + (define |gx[1]#_g122931_| (##structure gx#syntax-quote::t 'runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121645_| + (define |gx[1]#_g122932_| (##structure gx#syntax-quote::t 'runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121646_| + (define |gx[1]#_g122933_| (##structure gx#syntax-quote::t 'runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121648_| + (define |gx[1]#_g122935_| (##structure gx#syntax-quote::t 'runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121649_| + (define |gx[1]#_g122936_| (##structure gx#syntax-quote::t 'runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121650_| + (define |gx[1]#_g122937_| (##structure gx#syntax-quote::t 'runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121652_| + (define |gx[1]#_g122939_| (##structure gx#syntax-quote::t '&runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121653_| + (define |gx[1]#_g122940_| (##structure gx#syntax-quote::t '&runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121654_| + (define |gx[1]#_g122941_| (##structure gx#syntax-quote::t '&runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121656_| + (define |gx[1]#_g122943_| (##structure gx#syntax-quote::t '&runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121657_| + (define |gx[1]#_g122944_| (##structure gx#syntax-quote::t '&runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121658_| + (define |gx[1]#_g122945_| (##structure gx#syntax-quote::t '&runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121660_| + (define |gx[1]#_g122947_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121662_| + (define |gx[1]#_g122949_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121664_| + (define |gx[1]#_g122951_| (##structure gx#syntax-quote::t 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121666_| + (define |gx[1]#_g122953_| (##structure gx#syntax-quote::t 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121668_| + (define |gx[1]#_g122955_| (##structure gx#syntax-quote::t 'local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121669_| + (define |gx[1]#_g122956_| (##structure gx#syntax-quote::t 'local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121670_| + (define |gx[1]#_g122957_| (##structure gx#syntax-quote::t 'local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121672_| + (define |gx[1]#_g122959_| (##structure gx#syntax-quote::t 'local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121673_| + (define |gx[1]#_g122960_| (##structure gx#syntax-quote::t 'local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121674_| + (define |gx[1]#_g122961_| (##structure gx#syntax-quote::t 'local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121676_| + (define |gx[1]#_g122963_| (##structure gx#syntax-quote::t '&local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121677_| + (define |gx[1]#_g122964_| (##structure gx#syntax-quote::t '&local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121678_| + (define |gx[1]#_g122965_| (##structure gx#syntax-quote::t '&local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121680_| + (define |gx[1]#_g122967_| (##structure gx#syntax-quote::t '&local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121681_| + (define |gx[1]#_g122968_| (##structure gx#syntax-quote::t '&local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121682_| + (define |gx[1]#_g122969_| (##structure gx#syntax-quote::t '&local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121685_| + (define |gx[1]#_g122972_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121687_| + (define |gx[1]#_g122974_| (##structure gx#syntax-quote::t 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121689_| + (define |gx[1]#_g122976_| (##structure gx#syntax-quote::t 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121691_| + (define |gx[1]#_g122978_| (##structure gx#syntax-quote::t 'top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121692_| + (define |gx[1]#_g122979_| (##structure gx#syntax-quote::t 'top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121693_| + (define |gx[1]#_g122980_| (##structure gx#syntax-quote::t 'top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121695_| + (define |gx[1]#_g122982_| (##structure gx#syntax-quote::t 'top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121696_| + (define |gx[1]#_g122983_| (##structure gx#syntax-quote::t 'top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121697_| + (define |gx[1]#_g122984_| (##structure gx#syntax-quote::t 'top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121699_| + (define |gx[1]#_g122986_| (##structure gx#syntax-quote::t '&top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121700_| + (define |gx[1]#_g122987_| (##structure gx#syntax-quote::t '&top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121701_| + (define |gx[1]#_g122988_| (##structure gx#syntax-quote::t '&top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121703_| + (define |gx[1]#_g122990_| (##structure gx#syntax-quote::t '&top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121704_| + (define |gx[1]#_g122991_| (##structure gx#syntax-quote::t '&top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121705_| + (define |gx[1]#_g122992_| (##structure gx#syntax-quote::t '&top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121707_| + (define |gx[1]#_g122994_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121709_| + (define |gx[1]#_g122996_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121711_| + (define |gx[1]#_g122998_| (##structure gx#syntax-quote::t 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121713_| + (define |gx[1]#_g123000_| (##structure gx#syntax-quote::t 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121715_| + (define |gx[1]#_g123002_| (##structure gx#syntax-quote::t 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121716_| + (define |gx[1]#_g123003_| (##structure gx#syntax-quote::t 'module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121717_| + (define |gx[1]#_g123004_| (##structure gx#syntax-quote::t 'module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121718_| + (define |gx[1]#_g123005_| (##structure gx#syntax-quote::t 'module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121720_| + (define |gx[1]#_g123007_| (##structure gx#syntax-quote::t 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121721_| + (define |gx[1]#_g123008_| (##structure gx#syntax-quote::t 'module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121722_| + (define |gx[1]#_g123009_| (##structure gx#syntax-quote::t 'module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121723_| + (define |gx[1]#_g123010_| (##structure gx#syntax-quote::t 'module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121725_| + (define |gx[1]#_g123012_| (##structure gx#syntax-quote::t '&module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121726_| + (define |gx[1]#_g123013_| (##structure gx#syntax-quote::t '&module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121727_| + (define |gx[1]#_g123014_| (##structure gx#syntax-quote::t '&module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121728_| + (define |gx[1]#_g123015_| (##structure gx#syntax-quote::t '&module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121730_| + (define |gx[1]#_g123017_| (##structure gx#syntax-quote::t '&module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121731_| + (define |gx[1]#_g123018_| (##structure gx#syntax-quote::t '&module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121732_| + (define |gx[1]#_g123019_| (##structure gx#syntax-quote::t '&module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121733_| + (define |gx[1]#_g123020_| (##structure gx#syntax-quote::t '&module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121736_| + (define |gx[1]#_g123023_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121738_| + (define |gx[1]#_g123025_| (##structure gx#syntax-quote::t 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121740_| + (define |gx[1]#_g123027_| (##structure gx#syntax-quote::t 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121742_| + (define |gx[1]#_g123029_| (##structure gx#syntax-quote::t 'extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121743_| + (define |gx[1]#_g123030_| (##structure gx#syntax-quote::t 'extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121744_| + (define |gx[1]#_g123031_| (##structure gx#syntax-quote::t 'extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121746_| + (define |gx[1]#_g123033_| (##structure gx#syntax-quote::t 'extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121747_| + (define |gx[1]#_g123034_| (##structure gx#syntax-quote::t 'extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121748_| + (define |gx[1]#_g123035_| (##structure gx#syntax-quote::t 'extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121750_| + (define |gx[1]#_g123037_| (##structure gx#syntax-quote::t '&extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121751_| + (define |gx[1]#_g123038_| (##structure gx#syntax-quote::t '&extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121752_| + (define |gx[1]#_g123039_| (##structure gx#syntax-quote::t '&extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121754_| + (define |gx[1]#_g123041_| (##structure gx#syntax-quote::t '&extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121755_| + (define |gx[1]#_g123042_| (##structure gx#syntax-quote::t '&extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121756_| + (define |gx[1]#_g123043_| (##structure gx#syntax-quote::t '&extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121759_| + (define |gx[1]#_g123046_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121761_| + (define |gx[1]#_g123048_| (##structure gx#syntax-quote::t 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121763_| + (define |gx[1]#_g123050_| (##structure gx#syntax-quote::t 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121765_| + (define |gx[1]#_g123052_| (##structure gx#syntax-quote::t 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121766_| + (define |gx[1]#_g123053_| (##structure gx#syntax-quote::t 'syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121767_| + (define |gx[1]#_g123054_| (##structure gx#syntax-quote::t 'syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121768_| + (define |gx[1]#_g123055_| (##structure gx#syntax-quote::t 'syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121770_| + (define |gx[1]#_g123057_| (##structure gx#syntax-quote::t 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121771_| + (define |gx[1]#_g123058_| (##structure gx#syntax-quote::t 'syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121772_| + (define |gx[1]#_g123059_| (##structure gx#syntax-quote::t 'syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121773_| + (define |gx[1]#_g123060_| (##structure gx#syntax-quote::t 'syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121775_| + (define |gx[1]#_g123062_| (##structure gx#syntax-quote::t '&syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121776_| + (define |gx[1]#_g123063_| (##structure gx#syntax-quote::t '&syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121777_| + (define |gx[1]#_g123064_| (##structure gx#syntax-quote::t '&syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121778_| + (define |gx[1]#_g123065_| (##structure gx#syntax-quote::t '&syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121780_| + (define |gx[1]#_g123067_| (##structure gx#syntax-quote::t '&syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121781_| + (define |gx[1]#_g123068_| (##structure gx#syntax-quote::t '&syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121782_| + (define |gx[1]#_g123069_| (##structure gx#syntax-quote::t '&syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121783_| + (define |gx[1]#_g123070_| (##structure gx#syntax-quote::t '&syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121786_| + (define |gx[1]#_g123073_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121788_| + (define |gx[1]#_g123075_| (##structure gx#syntax-quote::t 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121790_| + (define |gx[1]#_g123077_| (##structure gx#syntax-quote::t 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121792_| + (define |gx[1]#_g123079_| (##structure gx#syntax-quote::t 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121793_| + (define |gx[1]#_g123080_| (##structure gx#syntax-quote::t 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121794_| + (define |gx[1]#_g123081_| (##structure gx#syntax-quote::t 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121795_| + (define |gx[1]#_g123082_| (##structure gx#syntax-quote::t 'import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121796_| + (define |gx[1]#_g123083_| (##structure gx#syntax-quote::t 'import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121797_| + (define |gx[1]#_g123084_| (##structure gx#syntax-quote::t 'import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121799_| + (define |gx[1]#_g123086_| (##structure gx#syntax-quote::t 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121800_| + (define |gx[1]#_g123087_| (##structure gx#syntax-quote::t 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121801_| + (define |gx[1]#_g123088_| (##structure gx#syntax-quote::t 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121802_| + (define |gx[1]#_g123089_| (##structure gx#syntax-quote::t 'import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121803_| + (define |gx[1]#_g123090_| (##structure gx#syntax-quote::t 'import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121804_| + (define |gx[1]#_g123091_| (##structure gx#syntax-quote::t 'import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121806_| + (define |gx[1]#_g123093_| (##structure gx#syntax-quote::t '&import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121807_| + (define |gx[1]#_g123094_| (##structure gx#syntax-quote::t '&import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121808_| + (define |gx[1]#_g123095_| (##structure gx#syntax-quote::t '&import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121809_| + (define |gx[1]#_g123096_| (##structure gx#syntax-quote::t '&import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121810_| + (define |gx[1]#_g123097_| (##structure gx#syntax-quote::t '&import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121811_| + (define |gx[1]#_g123098_| (##structure gx#syntax-quote::t '&import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121813_| + (define |gx[1]#_g123100_| (##structure gx#syntax-quote::t '&import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121814_| + (define |gx[1]#_g123101_| (##structure gx#syntax-quote::t '&import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121815_| + (define |gx[1]#_g123102_| (##structure gx#syntax-quote::t '&import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121816_| + (define |gx[1]#_g123103_| (##structure gx#syntax-quote::t '&import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121817_| + (define |gx[1]#_g123104_| (##structure gx#syntax-quote::t '&import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121818_| + (define |gx[1]#_g123105_| (##structure gx#syntax-quote::t '&import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121821_| + (define |gx[1]#_g123108_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121823_| + (define |gx[1]#_g123110_| (##structure gx#syntax-quote::t 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121825_| + (define |gx[1]#_g123112_| (##structure gx#syntax-quote::t 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121827_| + (define |gx[1]#_g123114_| (##structure gx#syntax-quote::t 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121828_| + (define |gx[1]#_g123115_| (##structure gx#syntax-quote::t 'alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121829_| + (define |gx[1]#_g123116_| (##structure gx#syntax-quote::t 'alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121830_| + (define |gx[1]#_g123117_| (##structure gx#syntax-quote::t 'alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121832_| + (define |gx[1]#_g123119_| (##structure gx#syntax-quote::t 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121833_| + (define |gx[1]#_g123120_| (##structure gx#syntax-quote::t 'alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121834_| + (define |gx[1]#_g123121_| (##structure gx#syntax-quote::t 'alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121835_| + (define |gx[1]#_g123122_| (##structure gx#syntax-quote::t 'alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121837_| + (define |gx[1]#_g123124_| (##structure gx#syntax-quote::t '&alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121838_| + (define |gx[1]#_g123125_| (##structure gx#syntax-quote::t '&alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121839_| + (define |gx[1]#_g123126_| (##structure gx#syntax-quote::t '&alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121840_| + (define |gx[1]#_g123127_| (##structure gx#syntax-quote::t '&alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121842_| + (define |gx[1]#_g123129_| (##structure gx#syntax-quote::t '&alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121843_| + (define |gx[1]#_g123130_| (##structure gx#syntax-quote::t '&alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121844_| + (define |gx[1]#_g123131_| (##structure gx#syntax-quote::t '&alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121845_| + (define |gx[1]#_g123132_| (##structure gx#syntax-quote::t '&alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121847_| + (define |gx[1]#_g123134_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121849_| + (define |gx[1]#_g123136_| (##structure gx#syntax-quote::t 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g121851_| + (define |gx[1]#_g123138_| (##structure gx#syntax-quote::t 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121853_| + (define |gx[1]#_g123140_| (##structure gx#syntax-quote::t 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121855_| + (define |gx[1]#_g123142_| (##structure gx#syntax-quote::t 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121857_| + (define |gx[1]#_g123144_| (##structure gx#syntax-quote::t '&expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121859_| + (define |gx[1]#_g123146_| (##structure gx#syntax-quote::t '&expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121861_| + (define |gx[1]#_g123148_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g121863_| + (define |gx[1]#_g123150_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121865_| + (define |gx[1]#_g123152_| (##structure gx#syntax-quote::t 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g121867_| + (define |gx[1]#_g123154_| (##structure gx#syntax-quote::t 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121869_| + (define |gx[1]#_g123156_| (##structure gx#syntax-quote::t 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121870_| + (define |gx[1]#_g123157_| (##structure gx#syntax-quote::t 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121871_| + (define |gx[1]#_g123158_| (##structure gx#syntax-quote::t 'core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121873_| + (define |gx[1]#_g123160_| (##structure gx#syntax-quote::t 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121874_| + (define |gx[1]#_g123161_| (##structure gx#syntax-quote::t 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121875_| + (define |gx[1]#_g123162_| (##structure gx#syntax-quote::t 'core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121877_| + (define |gx[1]#_g123164_| (##structure gx#syntax-quote::t '&core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121878_| + (define |gx[1]#_g123165_| (##structure gx#syntax-quote::t '&core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121879_| + (define |gx[1]#_g123166_| (##structure gx#syntax-quote::t '&core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121881_| + (define |gx[1]#_g123168_| (##structure gx#syntax-quote::t '&core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121882_| + (define |gx[1]#_g123169_| (##structure gx#syntax-quote::t '&core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121883_| + (define |gx[1]#_g123170_| (##structure gx#syntax-quote::t '&core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121885_| + (define |gx[1]#_g123172_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g121887_| + (define |gx[1]#_g123174_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121889_| + (define |gx[1]#_g123176_| (##structure gx#syntax-quote::t 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g121891_| + (define |gx[1]#_g123178_| (##structure gx#syntax-quote::t 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121893_| + (define |gx[1]#_g123180_| (##structure gx#syntax-quote::t 'expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121894_| + (define |gx[1]#_g123181_| (##structure gx#syntax-quote::t 'expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121895_| + (define |gx[1]#_g123182_| (##structure gx#syntax-quote::t 'expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121897_| + (define |gx[1]#_g123184_| (##structure gx#syntax-quote::t 'expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121898_| + (define |gx[1]#_g123185_| (##structure gx#syntax-quote::t 'expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121899_| + (define |gx[1]#_g123186_| (##structure gx#syntax-quote::t 'expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121901_| + (define |gx[1]#_g123188_| (##structure gx#syntax-quote::t '&expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121902_| + (define |gx[1]#_g123189_| (##structure gx#syntax-quote::t '&expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121903_| + (define |gx[1]#_g123190_| (##structure gx#syntax-quote::t '&expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121905_| + (define |gx[1]#_g123192_| (##structure gx#syntax-quote::t '&expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121906_| + (define |gx[1]#_g123193_| (##structure gx#syntax-quote::t '&expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121907_| + (define |gx[1]#_g123194_| (##structure gx#syntax-quote::t '&expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121910_| + (define |gx[1]#_g123197_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121912_| + (define |gx[1]#_g123199_| (##structure gx#syntax-quote::t 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g121914_| + (define |gx[1]#_g123201_| (##structure gx#syntax-quote::t 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121916_| + (define |gx[1]#_g123203_| (##structure gx#syntax-quote::t 'special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121917_| + (define |gx[1]#_g123204_| (##structure gx#syntax-quote::t 'special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121918_| + (define |gx[1]#_g123205_| (##structure gx#syntax-quote::t 'special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121920_| + (define |gx[1]#_g123207_| (##structure gx#syntax-quote::t 'special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121921_| + (define |gx[1]#_g123208_| (##structure gx#syntax-quote::t 'special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121922_| + (define |gx[1]#_g123209_| (##structure gx#syntax-quote::t 'special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121924_| + (define |gx[1]#_g123211_| (##structure gx#syntax-quote::t '&special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121925_| + (define |gx[1]#_g123212_| (##structure gx#syntax-quote::t '&special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121926_| + (define |gx[1]#_g123213_| (##structure gx#syntax-quote::t '&special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121928_| + (define |gx[1]#_g123215_| (##structure gx#syntax-quote::t '&special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121929_| + (define |gx[1]#_g123216_| (##structure gx#syntax-quote::t '&special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121930_| + (define |gx[1]#_g123217_| (##structure gx#syntax-quote::t '&special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121932_| + (define |gx[1]#_g123219_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g121934_| + (define |gx[1]#_g123221_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121936_| + (define |gx[1]#_g123223_| (##structure gx#syntax-quote::t 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g121938_| + (define |gx[1]#_g123225_| (##structure gx#syntax-quote::t 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121940_| + (define |gx[1]#_g123227_| (##structure gx#syntax-quote::t 'definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121941_| + (define |gx[1]#_g123228_| (##structure gx#syntax-quote::t 'definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121942_| + (define |gx[1]#_g123229_| (##structure gx#syntax-quote::t 'definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121944_| + (define |gx[1]#_g123231_| (##structure gx#syntax-quote::t 'definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121945_| + (define |gx[1]#_g123232_| (##structure gx#syntax-quote::t 'definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121946_| + (define |gx[1]#_g123233_| (##structure gx#syntax-quote::t 'definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121948_| + (define |gx[1]#_g123235_| (##structure gx#syntax-quote::t '&definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121949_| + (define |gx[1]#_g123236_| (##structure gx#syntax-quote::t '&definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121950_| + (define |gx[1]#_g123237_| (##structure gx#syntax-quote::t '&definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121952_| + (define |gx[1]#_g123239_| (##structure gx#syntax-quote::t '&definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121953_| + (define |gx[1]#_g123240_| (##structure gx#syntax-quote::t '&definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121954_| + (define |gx[1]#_g123241_| (##structure gx#syntax-quote::t '&definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121957_| + (define |gx[1]#_g123244_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121959_| + (define |gx[1]#_g123246_| (##structure gx#syntax-quote::t 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g121961_| + (define |gx[1]#_g123248_| (##structure gx#syntax-quote::t 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121963_| + (define |gx[1]#_g123250_| (##structure gx#syntax-quote::t 'top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121964_| + (define |gx[1]#_g123251_| (##structure gx#syntax-quote::t 'top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121965_| + (define |gx[1]#_g123252_| (##structure gx#syntax-quote::t 'top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121967_| + (define |gx[1]#_g123254_| (##structure gx#syntax-quote::t 'top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121968_| + (define |gx[1]#_g123255_| (##structure gx#syntax-quote::t 'top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121969_| + (define |gx[1]#_g123256_| (##structure gx#syntax-quote::t 'top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121971_| + (define |gx[1]#_g123258_| (##structure gx#syntax-quote::t '&top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121972_| + (define |gx[1]#_g123259_| (##structure gx#syntax-quote::t '&top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121973_| + (define |gx[1]#_g123260_| (##structure gx#syntax-quote::t '&top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121975_| + (define |gx[1]#_g123262_| (##structure gx#syntax-quote::t '&top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121976_| + (define |gx[1]#_g123263_| (##structure gx#syntax-quote::t '&top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121977_| + (define |gx[1]#_g123264_| (##structure gx#syntax-quote::t '&top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121979_| + (define |gx[1]#_g123266_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g121981_| + (define |gx[1]#_g123268_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121983_| + (define |gx[1]#_g123270_| (##structure gx#syntax-quote::t 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g121985_| + (define |gx[1]#_g123272_| (##structure gx#syntax-quote::t 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121987_| + (define |gx[1]#_g123274_| (##structure gx#syntax-quote::t 'module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121988_| + (define |gx[1]#_g123275_| (##structure gx#syntax-quote::t 'module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121989_| + (define |gx[1]#_g123276_| (##structure gx#syntax-quote::t 'module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121991_| + (define |gx[1]#_g123278_| (##structure gx#syntax-quote::t 'module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121992_| + (define |gx[1]#_g123279_| (##structure gx#syntax-quote::t 'module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121993_| + (define |gx[1]#_g123280_| (##structure gx#syntax-quote::t 'module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121995_| + (define |gx[1]#_g123282_| (##structure gx#syntax-quote::t '&module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121996_| + (define |gx[1]#_g123283_| (##structure gx#syntax-quote::t '&module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g121997_| + (define |gx[1]#_g123284_| (##structure gx#syntax-quote::t '&module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121999_| + (define |gx[1]#_g123286_| (##structure gx#syntax-quote::t '&module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122000_| + (define |gx[1]#_g123287_| (##structure gx#syntax-quote::t '&module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122001_| + (define |gx[1]#_g123288_| (##structure gx#syntax-quote::t '&module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122004_| + (define |gx[1]#_g123291_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122006_| + (define |gx[1]#_g123293_| (##structure gx#syntax-quote::t 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122008_| + (define |gx[1]#_g123295_| (##structure gx#syntax-quote::t 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122010_| + (define |gx[1]#_g123297_| (##structure gx#syntax-quote::t 'feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122012_| + (define |gx[1]#_g123299_| (##structure gx#syntax-quote::t 'feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122014_| + (define |gx[1]#_g123301_| (##structure gx#syntax-quote::t '&feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122016_| + (define |gx[1]#_g123303_| (##structure gx#syntax-quote::t '&feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122018_| + (define |gx[1]#_g123305_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122020_| + (define |gx[1]#_g123307_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122022_| + (define |gx[1]#_g123309_| (##structure gx#syntax-quote::t 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122024_| + (define |gx[1]#_g123311_| (##structure gx#syntax-quote::t 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122026_| + (define |gx[1]#_g123313_| (##structure gx#syntax-quote::t 'private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122028_| + (define |gx[1]#_g123315_| (##structure gx#syntax-quote::t 'private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122030_| + (define |gx[1]#_g123317_| (##structure gx#syntax-quote::t '&private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122032_| + (define |gx[1]#_g123319_| (##structure gx#syntax-quote::t '&private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122035_| + (define |gx[1]#_g123322_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122037_| + (define |gx[1]#_g123324_| (##structure gx#syntax-quote::t 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122039_| + (define |gx[1]#_g123326_| (##structure gx#syntax-quote::t 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122041_| + (define |gx[1]#_g123328_| (##structure gx#syntax-quote::t 'reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122043_| + (define |gx[1]#_g123330_| (##structure gx#syntax-quote::t 'reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122045_| + (define |gx[1]#_g123332_| (##structure gx#syntax-quote::t '&reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122047_| + (define |gx[1]#_g123334_| (##structure gx#syntax-quote::t '&reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122050_| + (define |gx[1]#_g123337_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122052_| + (define |gx[1]#_g123339_| (##structure gx#syntax-quote::t 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122054_| + (define |gx[1]#_g123341_| (##structure gx#syntax-quote::t 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122056_| + (define |gx[1]#_g123343_| (##structure gx#syntax-quote::t 'macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122058_| + (define |gx[1]#_g123345_| (##structure gx#syntax-quote::t 'macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122060_| + (define |gx[1]#_g123347_| (##structure gx#syntax-quote::t '¯o-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122062_| + (define |gx[1]#_g123349_| (##structure gx#syntax-quote::t '¯o-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122064_| + (define |gx[1]#_g123351_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122066_| + (define |gx[1]#_g123353_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122068_| + (define |gx[1]#_g123355_| (##structure gx#syntax-quote::t 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122070_| + (define |gx[1]#_g123357_| (##structure gx#syntax-quote::t 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122072_| + (define |gx[1]#_g123359_| (##structure gx#syntax-quote::t 'rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122074_| + (define |gx[1]#_g123361_| (##structure gx#syntax-quote::t 'rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122076_| + (define |gx[1]#_g123363_| (##structure gx#syntax-quote::t '&rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122078_| + (define |gx[1]#_g123365_| (##structure gx#syntax-quote::t '&rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122081_| + (define |gx[1]#_g123368_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122083_| + (define |gx[1]#_g123370_| (##structure gx#syntax-quote::t 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122085_| + (define |gx[1]#_g123372_| (##structure gx#syntax-quote::t 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122087_| + (define |gx[1]#_g123374_| (##structure gx#syntax-quote::t 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122088_| + (define |gx[1]#_g123375_| (##structure gx#syntax-quote::t 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122089_| + (define |gx[1]#_g123376_| (##structure gx#syntax-quote::t 'user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122091_| + (define |gx[1]#_g123378_| (##structure gx#syntax-quote::t 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122092_| + (define |gx[1]#_g123379_| (##structure gx#syntax-quote::t 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122093_| + (define |gx[1]#_g123380_| (##structure gx#syntax-quote::t 'user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122095_| + (define |gx[1]#_g123382_| (##structure gx#syntax-quote::t '&user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122096_| + (define |gx[1]#_g123383_| (##structure gx#syntax-quote::t '&user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122097_| + (define |gx[1]#_g123384_| (##structure gx#syntax-quote::t '&user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122099_| + (define |gx[1]#_g123386_| (##structure gx#syntax-quote::t '&user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122100_| + (define |gx[1]#_g123387_| (##structure gx#syntax-quote::t '&user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122101_| + (define |gx[1]#_g123388_| (##structure gx#syntax-quote::t '&user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122103_| + (define |gx[1]#_g123390_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122105_| + (define |gx[1]#_g123392_| (##structure gx#syntax-quote::t 'make-expander-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g122107_| + (define |gx[1]#_g123394_| (##structure gx#syntax-quote::t 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122109_| + (define |gx[1]#_g123396_| (##structure gx#syntax-quote::t 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g122110_| + (define |gx[1]#_g123397_| (##structure gx#syntax-quote::t 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122111_| + (define |gx[1]#_g123398_| (##structure gx#syntax-quote::t 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122112_| + (define |gx[1]#_g123399_| (##structure gx#syntax-quote::t 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g122114_| + (define |gx[1]#_g123401_| (##structure gx#syntax-quote::t 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122115_| + (define |gx[1]#_g123402_| (##structure gx#syntax-quote::t 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122116_| + (define |gx[1]#_g123403_| (##structure gx#syntax-quote::t 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122117_| + (define |gx[1]#_g123404_| (##structure gx#syntax-quote::t 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122119_| + (define |gx[1]#_g123406_| (##structure gx#syntax-quote::t '&expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g122120_| + (define |gx[1]#_g123407_| (##structure gx#syntax-quote::t '&expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122121_| + (define |gx[1]#_g123408_| (##structure gx#syntax-quote::t '&expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122122_| + (define |gx[1]#_g123409_| (##structure gx#syntax-quote::t '&expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g122124_| + (define |gx[1]#_g123411_| (##structure gx#syntax-quote::t '&expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122125_| + (define |gx[1]#_g123412_| (##structure gx#syntax-quote::t '&expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122126_| + (define |gx[1]#_g123413_| (##structure gx#syntax-quote::t '&expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122127_| + (define |gx[1]#_g123414_| (##structure gx#syntax-quote::t '&expander-mark-trace-set! @@ -3572,7 +3572,7 @@ '())) (begin (define |gx[:0:]#expander-context| - (let ((__obj121301 + (let ((__obj122588 (let () (declare (not safe)) (##structure @@ -3601,7 +3601,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121301 + __obj122588 'gx#expander-context::t '1 '#f @@ -3609,73 +3609,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121301 + __obj122588 'expander-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '(id table) '4 '#f '#f)) + (##unchecked-structure-set! __obj122588 '(id table) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '(id table) '6 '#f '#f)) + (##unchecked-structure-set! __obj122588 '(id table) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj122588 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122588 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122588 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122588 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 ':init! '11 '#f '#f)) - (let ((__tmp121382 |gx[1]#_g121383_|)) + (##unchecked-structure-set! __obj122588 ':init! '11 '#f '#f)) + (let ((__tmp122669 |gx[1]#_g122670_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121301 __tmp121382 '12 '#f '#f)) - (let ((__tmp121384 |gx[1]#_g121385_|)) + (##unchecked-structure-set! __obj122588 __tmp122669 '12 '#f '#f)) + (let ((__tmp122671 |gx[1]#_g122672_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121301 __tmp121384 '13 '#f '#f)) - (let ((__tmp121386 |gx[1]#_g121387_|)) + (##unchecked-structure-set! __obj122588 __tmp122671 '13 '#f '#f)) + (let ((__tmp122673 |gx[1]#_g122674_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121301 __tmp121386 '14 '#f '#f)) - (let ((__tmp121388 - (cons (cons 'id |gx[1]#_g121389_|) - (cons (cons 'table |gx[1]#_g121390_|) '())))) + (##unchecked-structure-set! __obj122588 __tmp122673 '14 '#f '#f)) + (let ((__tmp122675 + (cons (cons 'id |gx[1]#_g122676_|) + (cons (cons 'table |gx[1]#_g122677_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121301 __tmp121388 '15 '#f '#f)) - (let ((__tmp121391 - (cons (cons 'id |gx[1]#_g121392_|) - (cons (cons 'table |gx[1]#_g121393_|) '())))) + (##unchecked-structure-set! __obj122588 __tmp122675 '15 '#f '#f)) + (let ((__tmp122678 + (cons (cons 'id |gx[1]#_g122679_|) + (cons (cons 'table |gx[1]#_g122680_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121301 __tmp121391 '16 '#f '#f)) - (let ((__tmp121394 - (cons (cons 'id |gx[1]#_g121395_|) - (cons (cons 'table |gx[1]#_g121396_|) '())))) + (##unchecked-structure-set! __obj122588 __tmp122678 '16 '#f '#f)) + (let ((__tmp122681 + (cons (cons 'id |gx[1]#_g122682_|) + (cons (cons 'table |gx[1]#_g122683_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121301 __tmp121394 '17 '#f '#f)) - (let ((__tmp121397 - (cons (cons 'id |gx[1]#_g121398_|) - (cons (cons 'table |gx[1]#_g121399_|) '())))) + (##unchecked-structure-set! __obj122588 __tmp122681 '17 '#f '#f)) + (let ((__tmp122684 + (cons (cons 'id |gx[1]#_g122685_|) + (cons (cons 'table |gx[1]#_g122686_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121301 __tmp121397 '18 '#f '#f)) + (##unchecked-structure-set! __obj122588 __tmp122684 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122588 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122588 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121301 '() '20 '#f '#f)) - __obj121301)) + (##unchecked-structure-set! __obj122588 '() '20 '#f '#f)) + __obj122588)) (define |gx[:0:]#root-context| - (let ((__obj121302 + (let ((__obj122589 (let () (declare (not safe)) (##structure @@ -3704,76 +3704,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121302 + __obj122589 'gx#root-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 'root-context '2 '#f '#f)) + (##unchecked-structure-set! __obj122589 'root-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122589 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '(id table) '6 '#f '#f)) - (let ((__tmp121400 (cons |gx[1]#_g121401_| '()))) + (##unchecked-structure-set! __obj122589 '(id table) '6 '#f '#f)) + (let ((__tmp122687 (cons |gx[1]#_g122688_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121302 __tmp121400 '3 '#f '#f)) + (##unchecked-structure-set! __obj122589 __tmp122687 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122589 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122589 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122589 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '#f '11 '#f '#f)) - (let ((__tmp121402 |gx[1]#_g121403_|)) + (##unchecked-structure-set! __obj122589 '#f '11 '#f '#f)) + (let ((__tmp122689 |gx[1]#_g122690_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121302 __tmp121402 '12 '#f '#f)) - (let ((__tmp121404 |gx[1]#_g121405_|)) + (##unchecked-structure-set! __obj122589 __tmp122689 '12 '#f '#f)) + (let ((__tmp122691 |gx[1]#_g122692_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121302 __tmp121404 '13 '#f '#f)) - (let ((__tmp121406 |gx[1]#_g121407_|)) + (##unchecked-structure-set! __obj122589 __tmp122691 '13 '#f '#f)) + (let ((__tmp122693 |gx[1]#_g122694_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121302 __tmp121406 '14 '#f '#f)) - (let ((__tmp121408 - (cons (cons 'id |gx[1]#_g121409_|) - (cons (cons 'table |gx[1]#_g121410_|) '())))) + (##unchecked-structure-set! __obj122589 __tmp122693 '14 '#f '#f)) + (let ((__tmp122695 + (cons (cons 'id |gx[1]#_g122696_|) + (cons (cons 'table |gx[1]#_g122697_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121302 __tmp121408 '15 '#f '#f)) - (let ((__tmp121411 - (cons (cons 'id |gx[1]#_g121412_|) - (cons (cons 'table |gx[1]#_g121413_|) '())))) + (##unchecked-structure-set! __obj122589 __tmp122695 '15 '#f '#f)) + (let ((__tmp122698 + (cons (cons 'id |gx[1]#_g122699_|) + (cons (cons 'table |gx[1]#_g122700_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121302 __tmp121411 '16 '#f '#f)) - (let ((__tmp121414 - (cons (cons 'id |gx[1]#_g121415_|) - (cons (cons 'table |gx[1]#_g121416_|) '())))) + (##unchecked-structure-set! __obj122589 __tmp122698 '16 '#f '#f)) + (let ((__tmp122701 + (cons (cons 'id |gx[1]#_g122702_|) + (cons (cons 'table |gx[1]#_g122703_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121302 __tmp121414 '17 '#f '#f)) - (let ((__tmp121417 - (cons (cons 'id |gx[1]#_g121418_|) - (cons (cons 'table |gx[1]#_g121419_|) '())))) + (##unchecked-structure-set! __obj122589 __tmp122701 '17 '#f '#f)) + (let ((__tmp122704 + (cons (cons 'id |gx[1]#_g122705_|) + (cons (cons 'table |gx[1]#_g122706_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121302 __tmp121417 '18 '#f '#f)) + (##unchecked-structure-set! __obj122589 __tmp122704 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122589 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122589 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121302 '() '20 '#f '#f)) - __obj121302)) + (##unchecked-structure-set! __obj122589 '() '20 '#f '#f)) + __obj122589)) (define |gx[:0:]#phi-context| - (let ((__obj121303 + (let ((__obj122590 (let () (declare (not safe)) (##structure @@ -3802,97 +3802,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121303 + __obj122590 'gx#phi-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 'phi-context '2 '#f '#f)) + (##unchecked-structure-set! __obj122590 'phi-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 '(super up down) '4 '#f '#f)) + (##unchecked-structure-set! __obj122590 '(super up down) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121303 + __obj122590 '(id table super up down) '6 '#f '#f)) - (let ((__tmp121420 (cons |gx[1]#_g121401_| '()))) + (let ((__tmp122707 (cons |gx[1]#_g122688_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121303 __tmp121420 '3 '#f '#f)) + (##unchecked-structure-set! __obj122590 __tmp122707 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122590 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122590 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122590 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 '#f '11 '#f '#f)) - (let ((__tmp121421 |gx[1]#_g121422_|)) + (##unchecked-structure-set! __obj122590 '#f '11 '#f '#f)) + (let ((__tmp122708 |gx[1]#_g122709_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121303 __tmp121421 '12 '#f '#f)) - (let ((__tmp121423 |gx[1]#_g121424_|)) + (##unchecked-structure-set! __obj122590 __tmp122708 '12 '#f '#f)) + (let ((__tmp122710 |gx[1]#_g122711_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121303 __tmp121423 '13 '#f '#f)) - (let ((__tmp121425 |gx[1]#_g121426_|)) + (##unchecked-structure-set! __obj122590 __tmp122710 '13 '#f '#f)) + (let ((__tmp122712 |gx[1]#_g122713_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121303 __tmp121425 '14 '#f '#f)) - (let ((__tmp121427 - (cons (cons 'super |gx[1]#_g121428_|) - (cons (cons 'up |gx[1]#_g121429_|) - (cons (cons 'down |gx[1]#_g121430_|) - (cons (cons 'id |gx[1]#_g121431_|) - (cons (cons 'table |gx[1]#_g121432_|) + (##unchecked-structure-set! __obj122590 __tmp122712 '14 '#f '#f)) + (let ((__tmp122714 + (cons (cons 'super |gx[1]#_g122715_|) + (cons (cons 'up |gx[1]#_g122716_|) + (cons (cons 'down |gx[1]#_g122717_|) + (cons (cons 'id |gx[1]#_g122718_|) + (cons (cons 'table |gx[1]#_g122719_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121303 __tmp121427 '15 '#f '#f)) - (let ((__tmp121433 - (cons (cons 'super |gx[1]#_g121434_|) - (cons (cons 'up |gx[1]#_g121435_|) - (cons (cons 'down |gx[1]#_g121436_|) - (cons (cons 'id |gx[1]#_g121437_|) - (cons (cons 'table |gx[1]#_g121438_|) + (##unchecked-structure-set! __obj122590 __tmp122714 '15 '#f '#f)) + (let ((__tmp122720 + (cons (cons 'super |gx[1]#_g122721_|) + (cons (cons 'up |gx[1]#_g122722_|) + (cons (cons 'down |gx[1]#_g122723_|) + (cons (cons 'id |gx[1]#_g122724_|) + (cons (cons 'table |gx[1]#_g122725_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121303 __tmp121433 '16 '#f '#f)) - (let ((__tmp121439 - (cons (cons 'super |gx[1]#_g121440_|) - (cons (cons 'up |gx[1]#_g121441_|) - (cons (cons 'down |gx[1]#_g121442_|) - (cons (cons 'id |gx[1]#_g121443_|) - (cons (cons 'table |gx[1]#_g121444_|) + (##unchecked-structure-set! __obj122590 __tmp122720 '16 '#f '#f)) + (let ((__tmp122726 + (cons (cons 'super |gx[1]#_g122727_|) + (cons (cons 'up |gx[1]#_g122728_|) + (cons (cons 'down |gx[1]#_g122729_|) + (cons (cons 'id |gx[1]#_g122730_|) + (cons (cons 'table |gx[1]#_g122731_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121303 __tmp121439 '17 '#f '#f)) - (let ((__tmp121445 - (cons (cons 'super |gx[1]#_g121446_|) - (cons (cons 'up |gx[1]#_g121447_|) - (cons (cons 'down |gx[1]#_g121448_|) - (cons (cons 'id |gx[1]#_g121449_|) - (cons (cons 'table |gx[1]#_g121450_|) + (##unchecked-structure-set! __obj122590 __tmp122726 '17 '#f '#f)) + (let ((__tmp122732 + (cons (cons 'super |gx[1]#_g122733_|) + (cons (cons 'up |gx[1]#_g122734_|) + (cons (cons 'down |gx[1]#_g122735_|) + (cons (cons 'id |gx[1]#_g122736_|) + (cons (cons 'table |gx[1]#_g122737_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121303 __tmp121445 '18 '#f '#f)) + (##unchecked-structure-set! __obj122590 __tmp122732 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122590 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122590 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121303 '() '20 '#f '#f)) - __obj121303)) + (##unchecked-structure-set! __obj122590 '() '20 '#f '#f)) + __obj122590)) (define |gx[:0:]#top-context| - (let ((__obj121304 + (let ((__obj122591 (let () (declare (not safe)) (##structure @@ -3921,97 +3921,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121304 + __obj122591 'gx#top-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 'top-context '2 '#f '#f)) + (##unchecked-structure-set! __obj122591 'top-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122591 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121304 + __obj122591 '(id table super up down) '6 '#f '#f)) - (let ((__tmp121451 (cons |gx[1]#_g121452_| '()))) + (let ((__tmp122738 (cons |gx[1]#_g122739_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121304 __tmp121451 '3 '#f '#f)) + (##unchecked-structure-set! __obj122591 __tmp122738 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122591 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122591 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122591 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 '#f '11 '#f '#f)) - (let ((__tmp121453 |gx[1]#_g121454_|)) + (##unchecked-structure-set! __obj122591 '#f '11 '#f '#f)) + (let ((__tmp122740 |gx[1]#_g122741_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121304 __tmp121453 '12 '#f '#f)) - (let ((__tmp121455 |gx[1]#_g121456_|)) + (##unchecked-structure-set! __obj122591 __tmp122740 '12 '#f '#f)) + (let ((__tmp122742 |gx[1]#_g122743_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121304 __tmp121455 '13 '#f '#f)) - (let ((__tmp121457 |gx[1]#_g121458_|)) + (##unchecked-structure-set! __obj122591 __tmp122742 '13 '#f '#f)) + (let ((__tmp122744 |gx[1]#_g122745_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121304 __tmp121457 '14 '#f '#f)) - (let ((__tmp121459 - (cons (cons 'super |gx[1]#_g121460_|) - (cons (cons 'up |gx[1]#_g121461_|) - (cons (cons 'down |gx[1]#_g121462_|) - (cons (cons 'id |gx[1]#_g121463_|) - (cons (cons 'table |gx[1]#_g121464_|) + (##unchecked-structure-set! __obj122591 __tmp122744 '14 '#f '#f)) + (let ((__tmp122746 + (cons (cons 'super |gx[1]#_g122747_|) + (cons (cons 'up |gx[1]#_g122748_|) + (cons (cons 'down |gx[1]#_g122749_|) + (cons (cons 'id |gx[1]#_g122750_|) + (cons (cons 'table |gx[1]#_g122751_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121304 __tmp121459 '15 '#f '#f)) - (let ((__tmp121465 - (cons (cons 'super |gx[1]#_g121466_|) - (cons (cons 'up |gx[1]#_g121467_|) - (cons (cons 'down |gx[1]#_g121468_|) - (cons (cons 'id |gx[1]#_g121469_|) - (cons (cons 'table |gx[1]#_g121470_|) + (##unchecked-structure-set! __obj122591 __tmp122746 '15 '#f '#f)) + (let ((__tmp122752 + (cons (cons 'super |gx[1]#_g122753_|) + (cons (cons 'up |gx[1]#_g122754_|) + (cons (cons 'down |gx[1]#_g122755_|) + (cons (cons 'id |gx[1]#_g122756_|) + (cons (cons 'table |gx[1]#_g122757_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121304 __tmp121465 '16 '#f '#f)) - (let ((__tmp121471 - (cons (cons 'super |gx[1]#_g121472_|) - (cons (cons 'up |gx[1]#_g121473_|) - (cons (cons 'down |gx[1]#_g121474_|) - (cons (cons 'id |gx[1]#_g121475_|) - (cons (cons 'table |gx[1]#_g121476_|) + (##unchecked-structure-set! __obj122591 __tmp122752 '16 '#f '#f)) + (let ((__tmp122758 + (cons (cons 'super |gx[1]#_g122759_|) + (cons (cons 'up |gx[1]#_g122760_|) + (cons (cons 'down |gx[1]#_g122761_|) + (cons (cons 'id |gx[1]#_g122762_|) + (cons (cons 'table |gx[1]#_g122763_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121304 __tmp121471 '17 '#f '#f)) - (let ((__tmp121477 - (cons (cons 'super |gx[1]#_g121478_|) - (cons (cons 'up |gx[1]#_g121479_|) - (cons (cons 'down |gx[1]#_g121480_|) - (cons (cons 'id |gx[1]#_g121481_|) - (cons (cons 'table |gx[1]#_g121482_|) + (##unchecked-structure-set! __obj122591 __tmp122758 '17 '#f '#f)) + (let ((__tmp122764 + (cons (cons 'super |gx[1]#_g122765_|) + (cons (cons 'up |gx[1]#_g122766_|) + (cons (cons 'down |gx[1]#_g122767_|) + (cons (cons 'id |gx[1]#_g122768_|) + (cons (cons 'table |gx[1]#_g122769_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121304 __tmp121477 '18 '#f '#f)) + (##unchecked-structure-set! __obj122591 __tmp122764 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122591 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122591 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121304 '() '20 '#f '#f)) - __obj121304)) + (##unchecked-structure-set! __obj122591 '() '20 '#f '#f)) + __obj122591)) (define |gx[:0:]#module-context| - (let ((__obj121305 + (let ((__obj122592 (let () (declare (not safe)) (##structure @@ -4040,18 +4040,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121305 + __obj122592 'gx#module-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121305 'module-context '2 '#f '#f)) + (##unchecked-structure-set! __obj122592 'module-context '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121305 + __obj122592 '(ns path import export e code) '4 '#f @@ -4059,127 +4059,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121305 + __obj122592 '(id table super up down ns path import export e code) '6 '#f '#f)) - (let ((__tmp121483 (cons |gx[1]#_g121484_| '()))) + (let ((__tmp122770 (cons |gx[1]#_g122771_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121305 __tmp121483 '3 '#f '#f)) + (##unchecked-structure-set! __obj122592 __tmp122770 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121305 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122592 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121305 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122592 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121305 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122592 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121305 '#f '11 '#f '#f)) - (let ((__tmp121485 |gx[1]#_g121486_|)) + (##unchecked-structure-set! __obj122592 '#f '11 '#f '#f)) + (let ((__tmp122772 |gx[1]#_g122773_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121305 __tmp121485 '12 '#f '#f)) - (let ((__tmp121487 |gx[1]#_g121488_|)) + (##unchecked-structure-set! __obj122592 __tmp122772 '12 '#f '#f)) + (let ((__tmp122774 |gx[1]#_g122775_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121305 __tmp121487 '13 '#f '#f)) - (let ((__tmp121489 |gx[1]#_g121490_|)) + (##unchecked-structure-set! __obj122592 __tmp122774 '13 '#f '#f)) + (let ((__tmp122776 |gx[1]#_g122777_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121305 __tmp121489 '14 '#f '#f)) - (let ((__tmp121491 - (cons (cons 'ns |gx[1]#_g121492_|) - (cons (cons 'path |gx[1]#_g121493_|) - (cons (cons 'import |gx[1]#_g121494_|) - (cons (cons 'export |gx[1]#_g121495_|) - (cons (cons 'e |gx[1]#_g121496_|) + (##unchecked-structure-set! __obj122592 __tmp122776 '14 '#f '#f)) + (let ((__tmp122778 + (cons (cons 'ns |gx[1]#_g122779_|) + (cons (cons 'path |gx[1]#_g122780_|) + (cons (cons 'import |gx[1]#_g122781_|) + (cons (cons 'export |gx[1]#_g122782_|) + (cons (cons 'e |gx[1]#_g122783_|) (cons (cons 'code - |gx[1]#_g121497_|) + |gx[1]#_g122784_|) (cons (cons 'super - |gx[1]#_g121498_|) + |gx[1]#_g122785_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121499_|) - (cons (cons 'down |gx[1]#_g121500_|) - (cons (cons 'id |gx[1]#_g121501_|) - (cons (cons 'table |gx[1]#_g121502_|) + |gx[1]#_g122786_|) + (cons (cons 'down |gx[1]#_g122787_|) + (cons (cons 'id |gx[1]#_g122788_|) + (cons (cons 'table |gx[1]#_g122789_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121305 __tmp121491 '15 '#f '#f)) - (let ((__tmp121503 - (cons (cons 'ns |gx[1]#_g121504_|) - (cons (cons 'path |gx[1]#_g121505_|) - (cons (cons 'import |gx[1]#_g121506_|) - (cons (cons 'export |gx[1]#_g121507_|) - (cons (cons 'e |gx[1]#_g121508_|) + (##unchecked-structure-set! __obj122592 __tmp122778 '15 '#f '#f)) + (let ((__tmp122790 + (cons (cons 'ns |gx[1]#_g122791_|) + (cons (cons 'path |gx[1]#_g122792_|) + (cons (cons 'import |gx[1]#_g122793_|) + (cons (cons 'export |gx[1]#_g122794_|) + (cons (cons 'e |gx[1]#_g122795_|) (cons (cons 'code - |gx[1]#_g121509_|) + |gx[1]#_g122796_|) (cons (cons 'super - |gx[1]#_g121510_|) + |gx[1]#_g122797_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121511_|) - (cons (cons 'down |gx[1]#_g121512_|) - (cons (cons 'id |gx[1]#_g121513_|) - (cons (cons 'table |gx[1]#_g121514_|) + |gx[1]#_g122798_|) + (cons (cons 'down |gx[1]#_g122799_|) + (cons (cons 'id |gx[1]#_g122800_|) + (cons (cons 'table |gx[1]#_g122801_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121305 __tmp121503 '16 '#f '#f)) - (let ((__tmp121515 - (cons (cons 'ns |gx[1]#_g121516_|) - (cons (cons 'path |gx[1]#_g121517_|) - (cons (cons 'import |gx[1]#_g121518_|) - (cons (cons 'export |gx[1]#_g121519_|) - (cons (cons 'e |gx[1]#_g121520_|) + (##unchecked-structure-set! __obj122592 __tmp122790 '16 '#f '#f)) + (let ((__tmp122802 + (cons (cons 'ns |gx[1]#_g122803_|) + (cons (cons 'path |gx[1]#_g122804_|) + (cons (cons 'import |gx[1]#_g122805_|) + (cons (cons 'export |gx[1]#_g122806_|) + (cons (cons 'e |gx[1]#_g122807_|) (cons (cons 'code - |gx[1]#_g121521_|) + |gx[1]#_g122808_|) (cons (cons 'super - |gx[1]#_g121522_|) + |gx[1]#_g122809_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121523_|) - (cons (cons 'down |gx[1]#_g121524_|) - (cons (cons 'id |gx[1]#_g121525_|) - (cons (cons 'table |gx[1]#_g121526_|) + |gx[1]#_g122810_|) + (cons (cons 'down |gx[1]#_g122811_|) + (cons (cons 'id |gx[1]#_g122812_|) + (cons (cons 'table |gx[1]#_g122813_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121305 __tmp121515 '17 '#f '#f)) - (let ((__tmp121527 - (cons (cons 'ns |gx[1]#_g121528_|) - (cons (cons 'path |gx[1]#_g121529_|) - (cons (cons 'import |gx[1]#_g121530_|) - (cons (cons 'export |gx[1]#_g121531_|) - (cons (cons 'e |gx[1]#_g121532_|) + (##unchecked-structure-set! __obj122592 __tmp122802 '17 '#f '#f)) + (let ((__tmp122814 + (cons (cons 'ns |gx[1]#_g122815_|) + (cons (cons 'path |gx[1]#_g122816_|) + (cons (cons 'import |gx[1]#_g122817_|) + (cons (cons 'export |gx[1]#_g122818_|) + (cons (cons 'e |gx[1]#_g122819_|) (cons (cons 'code - |gx[1]#_g121533_|) + |gx[1]#_g122820_|) (cons (cons 'super - |gx[1]#_g121534_|) + |gx[1]#_g122821_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121535_|) - (cons (cons 'down |gx[1]#_g121536_|) - (cons (cons 'id |gx[1]#_g121537_|) - (cons (cons 'table |gx[1]#_g121538_|) + |gx[1]#_g122822_|) + (cons (cons 'down |gx[1]#_g122823_|) + (cons (cons 'id |gx[1]#_g122824_|) + (cons (cons 'table |gx[1]#_g122825_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121305 __tmp121527 '18 '#f '#f)) + (##unchecked-structure-set! __obj122592 __tmp122814 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121305 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122592 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121305 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122592 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121305 '() '20 '#f '#f)) - __obj121305)) + (##unchecked-structure-set! __obj122592 '() '20 '#f '#f)) + __obj122592)) (define |gx[:0:]#prelude-context| - (let ((__obj121306 + (let ((__obj122593 (let () (declare (not safe)) (##structure @@ -4208,129 +4208,129 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121306 + __obj122593 'gx#prelude-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 'prelude-context '2 '#f '#f)) + (##unchecked-structure-set! __obj122593 'prelude-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 '(path import e) '4 '#f '#f)) + (##unchecked-structure-set! __obj122593 '(path import e) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121306 + __obj122593 '(id table super up down path import e) '6 '#f '#f)) - (let ((__tmp121539 (cons |gx[1]#_g121484_| '()))) + (let ((__tmp122826 (cons |gx[1]#_g122771_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121306 __tmp121539 '3 '#f '#f)) + (##unchecked-structure-set! __obj122593 __tmp122826 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122593 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122593 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122593 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 '#f '11 '#f '#f)) - (let ((__tmp121540 |gx[1]#_g121541_|)) + (##unchecked-structure-set! __obj122593 '#f '11 '#f '#f)) + (let ((__tmp122827 |gx[1]#_g122828_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121306 __tmp121540 '12 '#f '#f)) - (let ((__tmp121542 |gx[1]#_g121543_|)) + (##unchecked-structure-set! __obj122593 __tmp122827 '12 '#f '#f)) + (let ((__tmp122829 |gx[1]#_g122830_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121306 __tmp121542 '13 '#f '#f)) - (let ((__tmp121544 |gx[1]#_g121545_|)) + (##unchecked-structure-set! __obj122593 __tmp122829 '13 '#f '#f)) + (let ((__tmp122831 |gx[1]#_g122832_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121306 __tmp121544 '14 '#f '#f)) - (let ((__tmp121546 - (cons (cons 'path |gx[1]#_g121547_|) - (cons (cons 'import |gx[1]#_g121548_|) - (cons (cons 'e |gx[1]#_g121549_|) - (cons (cons 'super |gx[1]#_g121550_|) - (cons (cons 'up |gx[1]#_g121551_|) + (##unchecked-structure-set! __obj122593 __tmp122831 '14 '#f '#f)) + (let ((__tmp122833 + (cons (cons 'path |gx[1]#_g122834_|) + (cons (cons 'import |gx[1]#_g122835_|) + (cons (cons 'e |gx[1]#_g122836_|) + (cons (cons 'super |gx[1]#_g122837_|) + (cons (cons 'up |gx[1]#_g122838_|) (cons (cons 'down - |gx[1]#_g121552_|) + |gx[1]#_g122839_|) (cons (cons 'id - |gx[1]#_g121553_|) + |gx[1]#_g122840_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121554_|) + |gx[1]#_g122841_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121306 __tmp121546 '15 '#f '#f)) - (let ((__tmp121555 - (cons (cons 'path |gx[1]#_g121556_|) - (cons (cons 'import |gx[1]#_g121557_|) - (cons (cons 'e |gx[1]#_g121558_|) - (cons (cons 'super |gx[1]#_g121559_|) - (cons (cons 'up |gx[1]#_g121560_|) + (##unchecked-structure-set! __obj122593 __tmp122833 '15 '#f '#f)) + (let ((__tmp122842 + (cons (cons 'path |gx[1]#_g122843_|) + (cons (cons 'import |gx[1]#_g122844_|) + (cons (cons 'e |gx[1]#_g122845_|) + (cons (cons 'super |gx[1]#_g122846_|) + (cons (cons 'up |gx[1]#_g122847_|) (cons (cons 'down - |gx[1]#_g121561_|) + |gx[1]#_g122848_|) (cons (cons 'id - |gx[1]#_g121562_|) + |gx[1]#_g122849_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121563_|) + |gx[1]#_g122850_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121306 __tmp121555 '16 '#f '#f)) - (let ((__tmp121564 - (cons (cons 'path |gx[1]#_g121565_|) - (cons (cons 'import |gx[1]#_g121566_|) - (cons (cons 'e |gx[1]#_g121567_|) - (cons (cons 'super |gx[1]#_g121568_|) - (cons (cons 'up |gx[1]#_g121569_|) + (##unchecked-structure-set! __obj122593 __tmp122842 '16 '#f '#f)) + (let ((__tmp122851 + (cons (cons 'path |gx[1]#_g122852_|) + (cons (cons 'import |gx[1]#_g122853_|) + (cons (cons 'e |gx[1]#_g122854_|) + (cons (cons 'super |gx[1]#_g122855_|) + (cons (cons 'up |gx[1]#_g122856_|) (cons (cons 'down - |gx[1]#_g121570_|) + |gx[1]#_g122857_|) (cons (cons 'id - |gx[1]#_g121571_|) + |gx[1]#_g122858_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121572_|) + |gx[1]#_g122859_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121306 __tmp121564 '17 '#f '#f)) - (let ((__tmp121573 - (cons (cons 'path |gx[1]#_g121574_|) - (cons (cons 'import |gx[1]#_g121575_|) - (cons (cons 'e |gx[1]#_g121576_|) - (cons (cons 'super |gx[1]#_g121577_|) - (cons (cons 'up |gx[1]#_g121578_|) + (##unchecked-structure-set! __obj122593 __tmp122851 '17 '#f '#f)) + (let ((__tmp122860 + (cons (cons 'path |gx[1]#_g122861_|) + (cons (cons 'import |gx[1]#_g122862_|) + (cons (cons 'e |gx[1]#_g122863_|) + (cons (cons 'super |gx[1]#_g122864_|) + (cons (cons 'up |gx[1]#_g122865_|) (cons (cons 'down - |gx[1]#_g121579_|) + |gx[1]#_g122866_|) (cons (cons 'id - |gx[1]#_g121580_|) + |gx[1]#_g122867_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121581_|) + |gx[1]#_g122868_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121306 __tmp121573 '18 '#f '#f)) + (##unchecked-structure-set! __obj122593 __tmp122860 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122593 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122593 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121306 '() '20 '#f '#f)) - __obj121306)) + (##unchecked-structure-set! __obj122593 '() '20 '#f '#f)) + __obj122593)) (define |gx[:0:]#local-context| - (let ((__obj121307 + (let ((__obj122594 (let () (declare (not safe)) (##structure @@ -4359,97 +4359,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121307 + __obj122594 'gx#local-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 'local-context '2 '#f '#f)) + (##unchecked-structure-set! __obj122594 'local-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122594 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121307 + __obj122594 '(id table super up down) '6 '#f '#f)) - (let ((__tmp121582 (cons |gx[1]#_g121452_| '()))) + (let ((__tmp122869 (cons |gx[1]#_g122739_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121307 __tmp121582 '3 '#f '#f)) + (##unchecked-structure-set! __obj122594 __tmp122869 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122594 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122594 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122594 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 '#f '11 '#f '#f)) - (let ((__tmp121583 |gx[1]#_g121584_|)) + (##unchecked-structure-set! __obj122594 '#f '11 '#f '#f)) + (let ((__tmp122870 |gx[1]#_g122871_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121307 __tmp121583 '12 '#f '#f)) - (let ((__tmp121585 |gx[1]#_g121586_|)) + (##unchecked-structure-set! __obj122594 __tmp122870 '12 '#f '#f)) + (let ((__tmp122872 |gx[1]#_g122873_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121307 __tmp121585 '13 '#f '#f)) - (let ((__tmp121587 |gx[1]#_g121588_|)) + (##unchecked-structure-set! __obj122594 __tmp122872 '13 '#f '#f)) + (let ((__tmp122874 |gx[1]#_g122875_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121307 __tmp121587 '14 '#f '#f)) - (let ((__tmp121589 - (cons (cons 'super |gx[1]#_g121590_|) - (cons (cons 'up |gx[1]#_g121591_|) - (cons (cons 'down |gx[1]#_g121592_|) - (cons (cons 'id |gx[1]#_g121593_|) - (cons (cons 'table |gx[1]#_g121594_|) + (##unchecked-structure-set! __obj122594 __tmp122874 '14 '#f '#f)) + (let ((__tmp122876 + (cons (cons 'super |gx[1]#_g122877_|) + (cons (cons 'up |gx[1]#_g122878_|) + (cons (cons 'down |gx[1]#_g122879_|) + (cons (cons 'id |gx[1]#_g122880_|) + (cons (cons 'table |gx[1]#_g122881_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121307 __tmp121589 '15 '#f '#f)) - (let ((__tmp121595 - (cons (cons 'super |gx[1]#_g121596_|) - (cons (cons 'up |gx[1]#_g121597_|) - (cons (cons 'down |gx[1]#_g121598_|) - (cons (cons 'id |gx[1]#_g121599_|) - (cons (cons 'table |gx[1]#_g121600_|) + (##unchecked-structure-set! __obj122594 __tmp122876 '15 '#f '#f)) + (let ((__tmp122882 + (cons (cons 'super |gx[1]#_g122883_|) + (cons (cons 'up |gx[1]#_g122884_|) + (cons (cons 'down |gx[1]#_g122885_|) + (cons (cons 'id |gx[1]#_g122886_|) + (cons (cons 'table |gx[1]#_g122887_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121307 __tmp121595 '16 '#f '#f)) - (let ((__tmp121601 - (cons (cons 'super |gx[1]#_g121602_|) - (cons (cons 'up |gx[1]#_g121603_|) - (cons (cons 'down |gx[1]#_g121604_|) - (cons (cons 'id |gx[1]#_g121605_|) - (cons (cons 'table |gx[1]#_g121606_|) + (##unchecked-structure-set! __obj122594 __tmp122882 '16 '#f '#f)) + (let ((__tmp122888 + (cons (cons 'super |gx[1]#_g122889_|) + (cons (cons 'up |gx[1]#_g122890_|) + (cons (cons 'down |gx[1]#_g122891_|) + (cons (cons 'id |gx[1]#_g122892_|) + (cons (cons 'table |gx[1]#_g122893_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121307 __tmp121601 '17 '#f '#f)) - (let ((__tmp121607 - (cons (cons 'super |gx[1]#_g121608_|) - (cons (cons 'up |gx[1]#_g121609_|) - (cons (cons 'down |gx[1]#_g121610_|) - (cons (cons 'id |gx[1]#_g121611_|) - (cons (cons 'table |gx[1]#_g121612_|) + (##unchecked-structure-set! __obj122594 __tmp122888 '17 '#f '#f)) + (let ((__tmp122894 + (cons (cons 'super |gx[1]#_g122895_|) + (cons (cons 'up |gx[1]#_g122896_|) + (cons (cons 'down |gx[1]#_g122897_|) + (cons (cons 'id |gx[1]#_g122898_|) + (cons (cons 'table |gx[1]#_g122899_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121307 __tmp121607 '18 '#f '#f)) + (##unchecked-structure-set! __obj122594 __tmp122894 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122594 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122594 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121307 '() '20 '#f '#f)) - __obj121307)) + (##unchecked-structure-set! __obj122594 '() '20 '#f '#f)) + __obj122594)) (define |gx[:0:]#binding| - (let ((__obj121308 + (let ((__obj122595 (let () (declare (not safe)) (##structure @@ -4477,76 +4477,76 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 'gx#binding::t '1 '#f '#f)) + (##unchecked-structure-set! __obj122595 'gx#binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 'binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122595 'binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '(id key phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj122595 '(id key phi) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '(id key phi) '6 '#f '#f)) + (##unchecked-structure-set! __obj122595 '(id key phi) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj122595 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122595 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122595 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122595 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '#f '11 '#f '#f)) - (let ((__tmp121613 |gx[1]#_g121614_|)) + (##unchecked-structure-set! __obj122595 '#f '11 '#f '#f)) + (let ((__tmp122900 |gx[1]#_g122901_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121308 __tmp121613 '12 '#f '#f)) - (let ((__tmp121615 |gx[1]#_g121616_|)) + (##unchecked-structure-set! __obj122595 __tmp122900 '12 '#f '#f)) + (let ((__tmp122902 |gx[1]#_g122903_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121308 __tmp121615 '13 '#f '#f)) - (let ((__tmp121617 |gx[1]#_g121618_|)) + (##unchecked-structure-set! __obj122595 __tmp122902 '13 '#f '#f)) + (let ((__tmp122904 |gx[1]#_g122905_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121308 __tmp121617 '14 '#f '#f)) - (let ((__tmp121619 - (cons (cons 'id |gx[1]#_g121620_|) - (cons (cons 'key |gx[1]#_g121621_|) - (cons (cons 'phi |gx[1]#_g121622_|) '()))))) + (##unchecked-structure-set! __obj122595 __tmp122904 '14 '#f '#f)) + (let ((__tmp122906 + (cons (cons 'id |gx[1]#_g122907_|) + (cons (cons 'key |gx[1]#_g122908_|) + (cons (cons 'phi |gx[1]#_g122909_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121308 __tmp121619 '15 '#f '#f)) - (let ((__tmp121623 - (cons (cons 'id |gx[1]#_g121624_|) - (cons (cons 'key |gx[1]#_g121625_|) - (cons (cons 'phi |gx[1]#_g121626_|) '()))))) + (##unchecked-structure-set! __obj122595 __tmp122906 '15 '#f '#f)) + (let ((__tmp122910 + (cons (cons 'id |gx[1]#_g122911_|) + (cons (cons 'key |gx[1]#_g122912_|) + (cons (cons 'phi |gx[1]#_g122913_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121308 __tmp121623 '16 '#f '#f)) - (let ((__tmp121627 - (cons (cons 'id |gx[1]#_g121628_|) - (cons (cons 'key |gx[1]#_g121629_|) - (cons (cons 'phi |gx[1]#_g121630_|) '()))))) + (##unchecked-structure-set! __obj122595 __tmp122910 '16 '#f '#f)) + (let ((__tmp122914 + (cons (cons 'id |gx[1]#_g122915_|) + (cons (cons 'key |gx[1]#_g122916_|) + (cons (cons 'phi |gx[1]#_g122917_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121308 __tmp121627 '17 '#f '#f)) - (let ((__tmp121631 - (cons (cons 'id |gx[1]#_g121632_|) - (cons (cons 'key |gx[1]#_g121633_|) - (cons (cons 'phi |gx[1]#_g121634_|) '()))))) + (##unchecked-structure-set! __obj122595 __tmp122914 '17 '#f '#f)) + (let ((__tmp122918 + (cons (cons 'id |gx[1]#_g122919_|) + (cons (cons 'key |gx[1]#_g122920_|) + (cons (cons 'phi |gx[1]#_g122921_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121308 __tmp121631 '18 '#f '#f)) + (##unchecked-structure-set! __obj122595 __tmp122918 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122595 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122595 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121308 '() '20 '#f '#f)) - __obj121308)) + (##unchecked-structure-set! __obj122595 '() '20 '#f '#f)) + __obj122595)) (define |gx[:0:]#runtime-binding| - (let ((__obj121309 + (let ((__obj122596 (let () (declare (not safe)) (##structure @@ -4575,80 +4575,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121309 + __obj122596 'gx#runtime-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 'runtime-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122596 'runtime-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122596 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '(id key phi) '6 '#f '#f)) - (let ((__tmp121635 (cons |gx[1]#_g121636_| '()))) + (##unchecked-structure-set! __obj122596 '(id key phi) '6 '#f '#f)) + (let ((__tmp122922 (cons |gx[1]#_g122923_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121309 __tmp121635 '3 '#f '#f)) + (##unchecked-structure-set! __obj122596 __tmp122922 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122596 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122596 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122596 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '#f '11 '#f '#f)) - (let ((__tmp121637 |gx[1]#_g121638_|)) + (##unchecked-structure-set! __obj122596 '#f '11 '#f '#f)) + (let ((__tmp122924 |gx[1]#_g122925_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121309 __tmp121637 '12 '#f '#f)) - (let ((__tmp121639 |gx[1]#_g121640_|)) + (##unchecked-structure-set! __obj122596 __tmp122924 '12 '#f '#f)) + (let ((__tmp122926 |gx[1]#_g122927_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121309 __tmp121639 '13 '#f '#f)) - (let ((__tmp121641 |gx[1]#_g121642_|)) + (##unchecked-structure-set! __obj122596 __tmp122926 '13 '#f '#f)) + (let ((__tmp122928 |gx[1]#_g122929_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121309 __tmp121641 '14 '#f '#f)) - (let ((__tmp121643 - (cons (cons 'id |gx[1]#_g121644_|) - (cons (cons 'key |gx[1]#_g121645_|) - (cons (cons 'phi |gx[1]#_g121646_|) '()))))) + (##unchecked-structure-set! __obj122596 __tmp122928 '14 '#f '#f)) + (let ((__tmp122930 + (cons (cons 'id |gx[1]#_g122931_|) + (cons (cons 'key |gx[1]#_g122932_|) + (cons (cons 'phi |gx[1]#_g122933_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121309 __tmp121643 '15 '#f '#f)) - (let ((__tmp121647 - (cons (cons 'id |gx[1]#_g121648_|) - (cons (cons 'key |gx[1]#_g121649_|) - (cons (cons 'phi |gx[1]#_g121650_|) '()))))) + (##unchecked-structure-set! __obj122596 __tmp122930 '15 '#f '#f)) + (let ((__tmp122934 + (cons (cons 'id |gx[1]#_g122935_|) + (cons (cons 'key |gx[1]#_g122936_|) + (cons (cons 'phi |gx[1]#_g122937_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121309 __tmp121647 '16 '#f '#f)) - (let ((__tmp121651 - (cons (cons 'id |gx[1]#_g121652_|) - (cons (cons 'key |gx[1]#_g121653_|) - (cons (cons 'phi |gx[1]#_g121654_|) '()))))) + (##unchecked-structure-set! __obj122596 __tmp122934 '16 '#f '#f)) + (let ((__tmp122938 + (cons (cons 'id |gx[1]#_g122939_|) + (cons (cons 'key |gx[1]#_g122940_|) + (cons (cons 'phi |gx[1]#_g122941_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121309 __tmp121651 '17 '#f '#f)) - (let ((__tmp121655 - (cons (cons 'id |gx[1]#_g121656_|) - (cons (cons 'key |gx[1]#_g121657_|) - (cons (cons 'phi |gx[1]#_g121658_|) '()))))) + (##unchecked-structure-set! __obj122596 __tmp122938 '17 '#f '#f)) + (let ((__tmp122942 + (cons (cons 'id |gx[1]#_g122943_|) + (cons (cons 'key |gx[1]#_g122944_|) + (cons (cons 'phi |gx[1]#_g122945_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121309 __tmp121655 '18 '#f '#f)) + (##unchecked-structure-set! __obj122596 __tmp122942 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122596 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122596 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121309 '() '20 '#f '#f)) - __obj121309)) + (##unchecked-structure-set! __obj122596 '() '20 '#f '#f)) + __obj122596)) (define |gx[:0:]#local-binding| - (let ((__obj121310 + (let ((__obj122597 (let () (declare (not safe)) (##structure @@ -4677,80 +4677,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121310 + __obj122597 'gx#local-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 'local-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122597 'local-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122597 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '(id key phi) '6 '#f '#f)) - (let ((__tmp121659 (cons |gx[1]#_g121660_| '()))) + (##unchecked-structure-set! __obj122597 '(id key phi) '6 '#f '#f)) + (let ((__tmp122946 (cons |gx[1]#_g122947_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121310 __tmp121659 '3 '#f '#f)) + (##unchecked-structure-set! __obj122597 __tmp122946 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122597 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122597 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122597 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '#f '11 '#f '#f)) - (let ((__tmp121661 |gx[1]#_g121662_|)) + (##unchecked-structure-set! __obj122597 '#f '11 '#f '#f)) + (let ((__tmp122948 |gx[1]#_g122949_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121310 __tmp121661 '12 '#f '#f)) - (let ((__tmp121663 |gx[1]#_g121664_|)) + (##unchecked-structure-set! __obj122597 __tmp122948 '12 '#f '#f)) + (let ((__tmp122950 |gx[1]#_g122951_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121310 __tmp121663 '13 '#f '#f)) - (let ((__tmp121665 |gx[1]#_g121666_|)) + (##unchecked-structure-set! __obj122597 __tmp122950 '13 '#f '#f)) + (let ((__tmp122952 |gx[1]#_g122953_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121310 __tmp121665 '14 '#f '#f)) - (let ((__tmp121667 - (cons (cons 'id |gx[1]#_g121668_|) - (cons (cons 'key |gx[1]#_g121669_|) - (cons (cons 'phi |gx[1]#_g121670_|) '()))))) + (##unchecked-structure-set! __obj122597 __tmp122952 '14 '#f '#f)) + (let ((__tmp122954 + (cons (cons 'id |gx[1]#_g122955_|) + (cons (cons 'key |gx[1]#_g122956_|) + (cons (cons 'phi |gx[1]#_g122957_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121310 __tmp121667 '15 '#f '#f)) - (let ((__tmp121671 - (cons (cons 'id |gx[1]#_g121672_|) - (cons (cons 'key |gx[1]#_g121673_|) - (cons (cons 'phi |gx[1]#_g121674_|) '()))))) + (##unchecked-structure-set! __obj122597 __tmp122954 '15 '#f '#f)) + (let ((__tmp122958 + (cons (cons 'id |gx[1]#_g122959_|) + (cons (cons 'key |gx[1]#_g122960_|) + (cons (cons 'phi |gx[1]#_g122961_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121310 __tmp121671 '16 '#f '#f)) - (let ((__tmp121675 - (cons (cons 'id |gx[1]#_g121676_|) - (cons (cons 'key |gx[1]#_g121677_|) - (cons (cons 'phi |gx[1]#_g121678_|) '()))))) + (##unchecked-structure-set! __obj122597 __tmp122958 '16 '#f '#f)) + (let ((__tmp122962 + (cons (cons 'id |gx[1]#_g122963_|) + (cons (cons 'key |gx[1]#_g122964_|) + (cons (cons 'phi |gx[1]#_g122965_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121310 __tmp121675 '17 '#f '#f)) - (let ((__tmp121679 - (cons (cons 'id |gx[1]#_g121680_|) - (cons (cons 'key |gx[1]#_g121681_|) - (cons (cons 'phi |gx[1]#_g121682_|) '()))))) + (##unchecked-structure-set! __obj122597 __tmp122962 '17 '#f '#f)) + (let ((__tmp122966 + (cons (cons 'id |gx[1]#_g122967_|) + (cons (cons 'key |gx[1]#_g122968_|) + (cons (cons 'phi |gx[1]#_g122969_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121310 __tmp121679 '18 '#f '#f)) + (##unchecked-structure-set! __obj122597 __tmp122966 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122597 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122597 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121310 '() '20 '#f '#f)) - __obj121310)) + (##unchecked-structure-set! __obj122597 '() '20 '#f '#f)) + __obj122597)) (define |gx[:0:]#top-binding| - (let ((__obj121311 + (let ((__obj122598 (let () (declare (not safe)) (##structure @@ -4779,80 +4779,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121311 + __obj122598 'gx#top-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 'top-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122598 'top-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122598 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '(id key phi) '6 '#f '#f)) - (let ((__tmp121683 (cons |gx[1]#_g121660_| '()))) + (##unchecked-structure-set! __obj122598 '(id key phi) '6 '#f '#f)) + (let ((__tmp122970 (cons |gx[1]#_g122947_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121311 __tmp121683 '3 '#f '#f)) + (##unchecked-structure-set! __obj122598 __tmp122970 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122598 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122598 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122598 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '#f '11 '#f '#f)) - (let ((__tmp121684 |gx[1]#_g121685_|)) + (##unchecked-structure-set! __obj122598 '#f '11 '#f '#f)) + (let ((__tmp122971 |gx[1]#_g122972_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121311 __tmp121684 '12 '#f '#f)) - (let ((__tmp121686 |gx[1]#_g121687_|)) + (##unchecked-structure-set! __obj122598 __tmp122971 '12 '#f '#f)) + (let ((__tmp122973 |gx[1]#_g122974_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121311 __tmp121686 '13 '#f '#f)) - (let ((__tmp121688 |gx[1]#_g121689_|)) + (##unchecked-structure-set! __obj122598 __tmp122973 '13 '#f '#f)) + (let ((__tmp122975 |gx[1]#_g122976_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121311 __tmp121688 '14 '#f '#f)) - (let ((__tmp121690 - (cons (cons 'id |gx[1]#_g121691_|) - (cons (cons 'key |gx[1]#_g121692_|) - (cons (cons 'phi |gx[1]#_g121693_|) '()))))) + (##unchecked-structure-set! __obj122598 __tmp122975 '14 '#f '#f)) + (let ((__tmp122977 + (cons (cons 'id |gx[1]#_g122978_|) + (cons (cons 'key |gx[1]#_g122979_|) + (cons (cons 'phi |gx[1]#_g122980_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121311 __tmp121690 '15 '#f '#f)) - (let ((__tmp121694 - (cons (cons 'id |gx[1]#_g121695_|) - (cons (cons 'key |gx[1]#_g121696_|) - (cons (cons 'phi |gx[1]#_g121697_|) '()))))) + (##unchecked-structure-set! __obj122598 __tmp122977 '15 '#f '#f)) + (let ((__tmp122981 + (cons (cons 'id |gx[1]#_g122982_|) + (cons (cons 'key |gx[1]#_g122983_|) + (cons (cons 'phi |gx[1]#_g122984_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121311 __tmp121694 '16 '#f '#f)) - (let ((__tmp121698 - (cons (cons 'id |gx[1]#_g121699_|) - (cons (cons 'key |gx[1]#_g121700_|) - (cons (cons 'phi |gx[1]#_g121701_|) '()))))) + (##unchecked-structure-set! __obj122598 __tmp122981 '16 '#f '#f)) + (let ((__tmp122985 + (cons (cons 'id |gx[1]#_g122986_|) + (cons (cons 'key |gx[1]#_g122987_|) + (cons (cons 'phi |gx[1]#_g122988_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121311 __tmp121698 '17 '#f '#f)) - (let ((__tmp121702 - (cons (cons 'id |gx[1]#_g121703_|) - (cons (cons 'key |gx[1]#_g121704_|) - (cons (cons 'phi |gx[1]#_g121705_|) '()))))) + (##unchecked-structure-set! __obj122598 __tmp122985 '17 '#f '#f)) + (let ((__tmp122989 + (cons (cons 'id |gx[1]#_g122990_|) + (cons (cons 'key |gx[1]#_g122991_|) + (cons (cons 'phi |gx[1]#_g122992_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121311 __tmp121702 '18 '#f '#f)) + (##unchecked-structure-set! __obj122598 __tmp122989 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122598 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122598 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121311 '() '20 '#f '#f)) - __obj121311)) + (##unchecked-structure-set! __obj122598 '() '20 '#f '#f)) + __obj122598)) (define |gx[:0:]#module-binding| - (let ((__obj121312 + (let ((__obj122599 (let () (declare (not safe)) (##structure @@ -4881,89 +4881,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121312 + __obj122599 'gx#module-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 'module-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122599 'module-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 '(context) '4 '#f '#f)) + (##unchecked-structure-set! __obj122599 '(context) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121312 + __obj122599 '(id key phi context) '6 '#f '#f)) - (let ((__tmp121706 (cons |gx[1]#_g121707_| '()))) + (let ((__tmp122993 (cons |gx[1]#_g122994_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121312 __tmp121706 '3 '#f '#f)) + (##unchecked-structure-set! __obj122599 __tmp122993 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122599 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122599 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122599 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 '#f '11 '#f '#f)) - (let ((__tmp121708 |gx[1]#_g121709_|)) + (##unchecked-structure-set! __obj122599 '#f '11 '#f '#f)) + (let ((__tmp122995 |gx[1]#_g122996_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121312 __tmp121708 '12 '#f '#f)) - (let ((__tmp121710 |gx[1]#_g121711_|)) + (##unchecked-structure-set! __obj122599 __tmp122995 '12 '#f '#f)) + (let ((__tmp122997 |gx[1]#_g122998_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121312 __tmp121710 '13 '#f '#f)) - (let ((__tmp121712 |gx[1]#_g121713_|)) + (##unchecked-structure-set! __obj122599 __tmp122997 '13 '#f '#f)) + (let ((__tmp122999 |gx[1]#_g123000_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121312 __tmp121712 '14 '#f '#f)) - (let ((__tmp121714 - (cons (cons 'context |gx[1]#_g121715_|) - (cons (cons 'id |gx[1]#_g121716_|) - (cons (cons 'key |gx[1]#_g121717_|) - (cons (cons 'phi |gx[1]#_g121718_|) '())))))) + (##unchecked-structure-set! __obj122599 __tmp122999 '14 '#f '#f)) + (let ((__tmp123001 + (cons (cons 'context |gx[1]#_g123002_|) + (cons (cons 'id |gx[1]#_g123003_|) + (cons (cons 'key |gx[1]#_g123004_|) + (cons (cons 'phi |gx[1]#_g123005_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121312 __tmp121714 '15 '#f '#f)) - (let ((__tmp121719 - (cons (cons 'context |gx[1]#_g121720_|) - (cons (cons 'id |gx[1]#_g121721_|) - (cons (cons 'key |gx[1]#_g121722_|) - (cons (cons 'phi |gx[1]#_g121723_|) '())))))) + (##unchecked-structure-set! __obj122599 __tmp123001 '15 '#f '#f)) + (let ((__tmp123006 + (cons (cons 'context |gx[1]#_g123007_|) + (cons (cons 'id |gx[1]#_g123008_|) + (cons (cons 'key |gx[1]#_g123009_|) + (cons (cons 'phi |gx[1]#_g123010_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121312 __tmp121719 '16 '#f '#f)) - (let ((__tmp121724 - (cons (cons 'context |gx[1]#_g121725_|) - (cons (cons 'id |gx[1]#_g121726_|) - (cons (cons 'key |gx[1]#_g121727_|) - (cons (cons 'phi |gx[1]#_g121728_|) '())))))) + (##unchecked-structure-set! __obj122599 __tmp123006 '16 '#f '#f)) + (let ((__tmp123011 + (cons (cons 'context |gx[1]#_g123012_|) + (cons (cons 'id |gx[1]#_g123013_|) + (cons (cons 'key |gx[1]#_g123014_|) + (cons (cons 'phi |gx[1]#_g123015_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121312 __tmp121724 '17 '#f '#f)) - (let ((__tmp121729 - (cons (cons 'context |gx[1]#_g121730_|) - (cons (cons 'id |gx[1]#_g121731_|) - (cons (cons 'key |gx[1]#_g121732_|) - (cons (cons 'phi |gx[1]#_g121733_|) '())))))) + (##unchecked-structure-set! __obj122599 __tmp123011 '17 '#f '#f)) + (let ((__tmp123016 + (cons (cons 'context |gx[1]#_g123017_|) + (cons (cons 'id |gx[1]#_g123018_|) + (cons (cons 'key |gx[1]#_g123019_|) + (cons (cons 'phi |gx[1]#_g123020_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121312 __tmp121729 '18 '#f '#f)) + (##unchecked-structure-set! __obj122599 __tmp123016 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122599 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122599 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121312 '() '20 '#f '#f)) - __obj121312)) + (##unchecked-structure-set! __obj122599 '() '20 '#f '#f)) + __obj122599)) (define |gx[:0:]#extern-binding| - (let ((__obj121313 + (let ((__obj122600 (let () (declare (not safe)) (##structure @@ -4992,80 +4992,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121313 + __obj122600 'gx#extern-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 'extern-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122600 'extern-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122600 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '(id key phi) '6 '#f '#f)) - (let ((__tmp121734 (cons |gx[1]#_g121707_| '()))) + (##unchecked-structure-set! __obj122600 '(id key phi) '6 '#f '#f)) + (let ((__tmp123021 (cons |gx[1]#_g122994_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121313 __tmp121734 '3 '#f '#f)) + (##unchecked-structure-set! __obj122600 __tmp123021 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122600 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122600 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122600 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '#f '11 '#f '#f)) - (let ((__tmp121735 |gx[1]#_g121736_|)) + (##unchecked-structure-set! __obj122600 '#f '11 '#f '#f)) + (let ((__tmp123022 |gx[1]#_g123023_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121313 __tmp121735 '12 '#f '#f)) - (let ((__tmp121737 |gx[1]#_g121738_|)) + (##unchecked-structure-set! __obj122600 __tmp123022 '12 '#f '#f)) + (let ((__tmp123024 |gx[1]#_g123025_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121313 __tmp121737 '13 '#f '#f)) - (let ((__tmp121739 |gx[1]#_g121740_|)) + (##unchecked-structure-set! __obj122600 __tmp123024 '13 '#f '#f)) + (let ((__tmp123026 |gx[1]#_g123027_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121313 __tmp121739 '14 '#f '#f)) - (let ((__tmp121741 - (cons (cons 'id |gx[1]#_g121742_|) - (cons (cons 'key |gx[1]#_g121743_|) - (cons (cons 'phi |gx[1]#_g121744_|) '()))))) + (##unchecked-structure-set! __obj122600 __tmp123026 '14 '#f '#f)) + (let ((__tmp123028 + (cons (cons 'id |gx[1]#_g123029_|) + (cons (cons 'key |gx[1]#_g123030_|) + (cons (cons 'phi |gx[1]#_g123031_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121313 __tmp121741 '15 '#f '#f)) - (let ((__tmp121745 - (cons (cons 'id |gx[1]#_g121746_|) - (cons (cons 'key |gx[1]#_g121747_|) - (cons (cons 'phi |gx[1]#_g121748_|) '()))))) + (##unchecked-structure-set! __obj122600 __tmp123028 '15 '#f '#f)) + (let ((__tmp123032 + (cons (cons 'id |gx[1]#_g123033_|) + (cons (cons 'key |gx[1]#_g123034_|) + (cons (cons 'phi |gx[1]#_g123035_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121313 __tmp121745 '16 '#f '#f)) - (let ((__tmp121749 - (cons (cons 'id |gx[1]#_g121750_|) - (cons (cons 'key |gx[1]#_g121751_|) - (cons (cons 'phi |gx[1]#_g121752_|) '()))))) + (##unchecked-structure-set! __obj122600 __tmp123032 '16 '#f '#f)) + (let ((__tmp123036 + (cons (cons 'id |gx[1]#_g123037_|) + (cons (cons 'key |gx[1]#_g123038_|) + (cons (cons 'phi |gx[1]#_g123039_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121313 __tmp121749 '17 '#f '#f)) - (let ((__tmp121753 - (cons (cons 'id |gx[1]#_g121754_|) - (cons (cons 'key |gx[1]#_g121755_|) - (cons (cons 'phi |gx[1]#_g121756_|) '()))))) + (##unchecked-structure-set! __obj122600 __tmp123036 '17 '#f '#f)) + (let ((__tmp123040 + (cons (cons 'id |gx[1]#_g123041_|) + (cons (cons 'key |gx[1]#_g123042_|) + (cons (cons 'phi |gx[1]#_g123043_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121313 __tmp121753 '18 '#f '#f)) + (##unchecked-structure-set! __obj122600 __tmp123040 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122600 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122600 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121313 '() '20 '#f '#f)) - __obj121313)) + (##unchecked-structure-set! __obj122600 '() '20 '#f '#f)) + __obj122600)) (define |gx[:0:]#syntax-binding| - (let ((__obj121314 + (let ((__obj122601 (let () (declare (not safe)) (##structure @@ -5094,84 +5094,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121314 + __obj122601 'gx#syntax-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 'syntax-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122601 'syntax-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj122601 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '(id key phi e) '6 '#f '#f)) - (let ((__tmp121757 (cons |gx[1]#_g121636_| '()))) + (##unchecked-structure-set! __obj122601 '(id key phi e) '6 '#f '#f)) + (let ((__tmp123044 (cons |gx[1]#_g122923_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121314 __tmp121757 '3 '#f '#f)) + (##unchecked-structure-set! __obj122601 __tmp123044 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122601 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj122601 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122601 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '#f '11 '#f '#f)) - (let ((__tmp121758 |gx[1]#_g121759_|)) + (##unchecked-structure-set! __obj122601 '#f '11 '#f '#f)) + (let ((__tmp123045 |gx[1]#_g123046_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121314 __tmp121758 '12 '#f '#f)) - (let ((__tmp121760 |gx[1]#_g121761_|)) + (##unchecked-structure-set! __obj122601 __tmp123045 '12 '#f '#f)) + (let ((__tmp123047 |gx[1]#_g123048_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121314 __tmp121760 '13 '#f '#f)) - (let ((__tmp121762 |gx[1]#_g121763_|)) + (##unchecked-structure-set! __obj122601 __tmp123047 '13 '#f '#f)) + (let ((__tmp123049 |gx[1]#_g123050_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121314 __tmp121762 '14 '#f '#f)) - (let ((__tmp121764 - (cons (cons 'e |gx[1]#_g121765_|) - (cons (cons 'id |gx[1]#_g121766_|) - (cons (cons 'key |gx[1]#_g121767_|) - (cons (cons 'phi |gx[1]#_g121768_|) '())))))) + (##unchecked-structure-set! __obj122601 __tmp123049 '14 '#f '#f)) + (let ((__tmp123051 + (cons (cons 'e |gx[1]#_g123052_|) + (cons (cons 'id |gx[1]#_g123053_|) + (cons (cons 'key |gx[1]#_g123054_|) + (cons (cons 'phi |gx[1]#_g123055_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121314 __tmp121764 '15 '#f '#f)) - (let ((__tmp121769 - (cons (cons 'e |gx[1]#_g121770_|) - (cons (cons 'id |gx[1]#_g121771_|) - (cons (cons 'key |gx[1]#_g121772_|) - (cons (cons 'phi |gx[1]#_g121773_|) '())))))) + (##unchecked-structure-set! __obj122601 __tmp123051 '15 '#f '#f)) + (let ((__tmp123056 + (cons (cons 'e |gx[1]#_g123057_|) + (cons (cons 'id |gx[1]#_g123058_|) + (cons (cons 'key |gx[1]#_g123059_|) + (cons (cons 'phi |gx[1]#_g123060_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121314 __tmp121769 '16 '#f '#f)) - (let ((__tmp121774 - (cons (cons 'e |gx[1]#_g121775_|) - (cons (cons 'id |gx[1]#_g121776_|) - (cons (cons 'key |gx[1]#_g121777_|) - (cons (cons 'phi |gx[1]#_g121778_|) '())))))) + (##unchecked-structure-set! __obj122601 __tmp123056 '16 '#f '#f)) + (let ((__tmp123061 + (cons (cons 'e |gx[1]#_g123062_|) + (cons (cons 'id |gx[1]#_g123063_|) + (cons (cons 'key |gx[1]#_g123064_|) + (cons (cons 'phi |gx[1]#_g123065_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121314 __tmp121774 '17 '#f '#f)) - (let ((__tmp121779 - (cons (cons 'e |gx[1]#_g121780_|) - (cons (cons 'id |gx[1]#_g121781_|) - (cons (cons 'key |gx[1]#_g121782_|) - (cons (cons 'phi |gx[1]#_g121783_|) '())))))) + (##unchecked-structure-set! __obj122601 __tmp123061 '17 '#f '#f)) + (let ((__tmp123066 + (cons (cons 'e |gx[1]#_g123067_|) + (cons (cons 'id |gx[1]#_g123068_|) + (cons (cons 'key |gx[1]#_g123069_|) + (cons (cons 'phi |gx[1]#_g123070_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121314 __tmp121779 '18 '#f '#f)) + (##unchecked-structure-set! __obj122601 __tmp123066 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122601 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122601 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121314 '() '20 '#f '#f)) - __obj121314)) + (##unchecked-structure-set! __obj122601 '() '20 '#f '#f)) + __obj122601)) (define |gx[:0:]#import-binding| - (let ((__obj121315 + (let ((__obj122602 (let () (declare (not safe)) (##structure @@ -5200,18 +5200,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121315 + __obj122602 'gx#import-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121315 'import-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122602 'import-binding '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121315 + __obj122602 '(e context weak?) '4 '#f @@ -5219,91 +5219,91 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121315 + __obj122602 '(id key phi e context weak?) '6 '#f '#f)) - (let ((__tmp121784 (cons |gx[1]#_g121636_| '()))) + (let ((__tmp123071 (cons |gx[1]#_g122923_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121315 __tmp121784 '3 '#f '#f)) + (##unchecked-structure-set! __obj122602 __tmp123071 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121315 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122602 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121315 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj122602 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121315 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122602 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121315 '#f '11 '#f '#f)) - (let ((__tmp121785 |gx[1]#_g121786_|)) + (##unchecked-structure-set! __obj122602 '#f '11 '#f '#f)) + (let ((__tmp123072 |gx[1]#_g123073_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121315 __tmp121785 '12 '#f '#f)) - (let ((__tmp121787 |gx[1]#_g121788_|)) + (##unchecked-structure-set! __obj122602 __tmp123072 '12 '#f '#f)) + (let ((__tmp123074 |gx[1]#_g123075_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121315 __tmp121787 '13 '#f '#f)) - (let ((__tmp121789 |gx[1]#_g121790_|)) + (##unchecked-structure-set! __obj122602 __tmp123074 '13 '#f '#f)) + (let ((__tmp123076 |gx[1]#_g123077_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121315 __tmp121789 '14 '#f '#f)) - (let ((__tmp121791 - (cons (cons 'e |gx[1]#_g121792_|) - (cons (cons 'context |gx[1]#_g121793_|) - (cons (cons 'weak? |gx[1]#_g121794_|) - (cons (cons 'id |gx[1]#_g121795_|) - (cons (cons 'key |gx[1]#_g121796_|) + (##unchecked-structure-set! __obj122602 __tmp123076 '14 '#f '#f)) + (let ((__tmp123078 + (cons (cons 'e |gx[1]#_g123079_|) + (cons (cons 'context |gx[1]#_g123080_|) + (cons (cons 'weak? |gx[1]#_g123081_|) + (cons (cons 'id |gx[1]#_g123082_|) + (cons (cons 'key |gx[1]#_g123083_|) (cons (cons 'phi - |gx[1]#_g121797_|) + |gx[1]#_g123084_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121315 __tmp121791 '15 '#f '#f)) - (let ((__tmp121798 - (cons (cons 'e |gx[1]#_g121799_|) - (cons (cons 'context |gx[1]#_g121800_|) - (cons (cons 'weak? |gx[1]#_g121801_|) - (cons (cons 'id |gx[1]#_g121802_|) - (cons (cons 'key |gx[1]#_g121803_|) + (##unchecked-structure-set! __obj122602 __tmp123078 '15 '#f '#f)) + (let ((__tmp123085 + (cons (cons 'e |gx[1]#_g123086_|) + (cons (cons 'context |gx[1]#_g123087_|) + (cons (cons 'weak? |gx[1]#_g123088_|) + (cons (cons 'id |gx[1]#_g123089_|) + (cons (cons 'key |gx[1]#_g123090_|) (cons (cons 'phi - |gx[1]#_g121804_|) + |gx[1]#_g123091_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121315 __tmp121798 '16 '#f '#f)) - (let ((__tmp121805 - (cons (cons 'e |gx[1]#_g121806_|) - (cons (cons 'context |gx[1]#_g121807_|) - (cons (cons 'weak? |gx[1]#_g121808_|) - (cons (cons 'id |gx[1]#_g121809_|) - (cons (cons 'key |gx[1]#_g121810_|) + (##unchecked-structure-set! __obj122602 __tmp123085 '16 '#f '#f)) + (let ((__tmp123092 + (cons (cons 'e |gx[1]#_g123093_|) + (cons (cons 'context |gx[1]#_g123094_|) + (cons (cons 'weak? |gx[1]#_g123095_|) + (cons (cons 'id |gx[1]#_g123096_|) + (cons (cons 'key |gx[1]#_g123097_|) (cons (cons 'phi - |gx[1]#_g121811_|) + |gx[1]#_g123098_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121315 __tmp121805 '17 '#f '#f)) - (let ((__tmp121812 - (cons (cons 'e |gx[1]#_g121813_|) - (cons (cons 'context |gx[1]#_g121814_|) - (cons (cons 'weak? |gx[1]#_g121815_|) - (cons (cons 'id |gx[1]#_g121816_|) - (cons (cons 'key |gx[1]#_g121817_|) + (##unchecked-structure-set! __obj122602 __tmp123092 '17 '#f '#f)) + (let ((__tmp123099 + (cons (cons 'e |gx[1]#_g123100_|) + (cons (cons 'context |gx[1]#_g123101_|) + (cons (cons 'weak? |gx[1]#_g123102_|) + (cons (cons 'id |gx[1]#_g123103_|) + (cons (cons 'key |gx[1]#_g123104_|) (cons (cons 'phi - |gx[1]#_g121818_|) + |gx[1]#_g123105_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121315 __tmp121812 '18 '#f '#f)) + (##unchecked-structure-set! __obj122602 __tmp123099 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121315 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122602 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121315 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122602 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121315 '() '20 '#f '#f)) - __obj121315)) + (##unchecked-structure-set! __obj122602 '() '20 '#f '#f)) + __obj122602)) (define |gx[:0:]#alias-binding| - (let ((__obj121316 + (let ((__obj122603 (let () (declare (not safe)) (##structure @@ -5332,84 +5332,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121316 + __obj122603 'gx#alias-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 'alias-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj122603 'alias-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj122603 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '(id key phi e) '6 '#f '#f)) - (let ((__tmp121819 (cons |gx[1]#_g121636_| '()))) + (##unchecked-structure-set! __obj122603 '(id key phi e) '6 '#f '#f)) + (let ((__tmp123106 (cons |gx[1]#_g122923_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121316 __tmp121819 '3 '#f '#f)) + (##unchecked-structure-set! __obj122603 __tmp123106 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122603 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj122603 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122603 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '#f '11 '#f '#f)) - (let ((__tmp121820 |gx[1]#_g121821_|)) + (##unchecked-structure-set! __obj122603 '#f '11 '#f '#f)) + (let ((__tmp123107 |gx[1]#_g123108_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121316 __tmp121820 '12 '#f '#f)) - (let ((__tmp121822 |gx[1]#_g121823_|)) + (##unchecked-structure-set! __obj122603 __tmp123107 '12 '#f '#f)) + (let ((__tmp123109 |gx[1]#_g123110_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121316 __tmp121822 '13 '#f '#f)) - (let ((__tmp121824 |gx[1]#_g121825_|)) + (##unchecked-structure-set! __obj122603 __tmp123109 '13 '#f '#f)) + (let ((__tmp123111 |gx[1]#_g123112_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121316 __tmp121824 '14 '#f '#f)) - (let ((__tmp121826 - (cons (cons 'e |gx[1]#_g121827_|) - (cons (cons 'id |gx[1]#_g121828_|) - (cons (cons 'key |gx[1]#_g121829_|) - (cons (cons 'phi |gx[1]#_g121830_|) '())))))) + (##unchecked-structure-set! __obj122603 __tmp123111 '14 '#f '#f)) + (let ((__tmp123113 + (cons (cons 'e |gx[1]#_g123114_|) + (cons (cons 'id |gx[1]#_g123115_|) + (cons (cons 'key |gx[1]#_g123116_|) + (cons (cons 'phi |gx[1]#_g123117_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121316 __tmp121826 '15 '#f '#f)) - (let ((__tmp121831 - (cons (cons 'e |gx[1]#_g121832_|) - (cons (cons 'id |gx[1]#_g121833_|) - (cons (cons 'key |gx[1]#_g121834_|) - (cons (cons 'phi |gx[1]#_g121835_|) '())))))) + (##unchecked-structure-set! __obj122603 __tmp123113 '15 '#f '#f)) + (let ((__tmp123118 + (cons (cons 'e |gx[1]#_g123119_|) + (cons (cons 'id |gx[1]#_g123120_|) + (cons (cons 'key |gx[1]#_g123121_|) + (cons (cons 'phi |gx[1]#_g123122_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121316 __tmp121831 '16 '#f '#f)) - (let ((__tmp121836 - (cons (cons 'e |gx[1]#_g121837_|) - (cons (cons 'id |gx[1]#_g121838_|) - (cons (cons 'key |gx[1]#_g121839_|) - (cons (cons 'phi |gx[1]#_g121840_|) '())))))) + (##unchecked-structure-set! __obj122603 __tmp123118 '16 '#f '#f)) + (let ((__tmp123123 + (cons (cons 'e |gx[1]#_g123124_|) + (cons (cons 'id |gx[1]#_g123125_|) + (cons (cons 'key |gx[1]#_g123126_|) + (cons (cons 'phi |gx[1]#_g123127_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121316 __tmp121836 '17 '#f '#f)) - (let ((__tmp121841 - (cons (cons 'e |gx[1]#_g121842_|) - (cons (cons 'id |gx[1]#_g121843_|) - (cons (cons 'key |gx[1]#_g121844_|) - (cons (cons 'phi |gx[1]#_g121845_|) '())))))) + (##unchecked-structure-set! __obj122603 __tmp123123 '17 '#f '#f)) + (let ((__tmp123128 + (cons (cons 'e |gx[1]#_g123129_|) + (cons (cons 'id |gx[1]#_g123130_|) + (cons (cons 'key |gx[1]#_g123131_|) + (cons (cons 'phi |gx[1]#_g123132_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121316 __tmp121841 '18 '#f '#f)) + (##unchecked-structure-set! __obj122603 __tmp123128 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122603 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122603 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121316 '() '20 '#f '#f)) - __obj121316)) + (##unchecked-structure-set! __obj122603 '() '20 '#f '#f)) + __obj122603)) (define |gx[:0:]#expander| - (let ((__obj121317 + (let ((__obj122604 (let () (declare (not safe)) (##structure @@ -5437,64 +5437,64 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 'gx#expander::t '1 '#f '#f)) + (##unchecked-structure-set! __obj122604 'gx#expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 'expander '2 '#f '#f)) + (##unchecked-structure-set! __obj122604 'expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj122604 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '(e) '6 '#f '#f)) + (##unchecked-structure-set! __obj122604 '(e) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj122604 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122604 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122604 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122604 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '#f '11 '#f '#f)) - (let ((__tmp121846 |gx[1]#_g121847_|)) + (##unchecked-structure-set! __obj122604 '#f '11 '#f '#f)) + (let ((__tmp123133 |gx[1]#_g123134_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121317 __tmp121846 '12 '#f '#f)) - (let ((__tmp121848 |gx[1]#_g121849_|)) + (##unchecked-structure-set! __obj122604 __tmp123133 '12 '#f '#f)) + (let ((__tmp123135 |gx[1]#_g123136_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121317 __tmp121848 '13 '#f '#f)) - (let ((__tmp121850 |gx[1]#_g121851_|)) + (##unchecked-structure-set! __obj122604 __tmp123135 '13 '#f '#f)) + (let ((__tmp123137 |gx[1]#_g123138_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121317 __tmp121850 '14 '#f '#f)) - (let ((__tmp121852 (cons (cons 'e |gx[1]#_g121853_|) '()))) + (##unchecked-structure-set! __obj122604 __tmp123137 '14 '#f '#f)) + (let ((__tmp123139 (cons (cons 'e |gx[1]#_g123140_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121317 __tmp121852 '15 '#f '#f)) - (let ((__tmp121854 (cons (cons 'e |gx[1]#_g121855_|) '()))) + (##unchecked-structure-set! __obj122604 __tmp123139 '15 '#f '#f)) + (let ((__tmp123141 (cons (cons 'e |gx[1]#_g123142_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121317 __tmp121854 '16 '#f '#f)) - (let ((__tmp121856 (cons (cons 'e |gx[1]#_g121857_|) '()))) + (##unchecked-structure-set! __obj122604 __tmp123141 '16 '#f '#f)) + (let ((__tmp123143 (cons (cons 'e |gx[1]#_g123144_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121317 __tmp121856 '17 '#f '#f)) - (let ((__tmp121858 (cons (cons 'e |gx[1]#_g121859_|) '()))) + (##unchecked-structure-set! __obj122604 __tmp123143 '17 '#f '#f)) + (let ((__tmp123145 (cons (cons 'e |gx[1]#_g123146_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121317 __tmp121858 '18 '#f '#f)) + (##unchecked-structure-set! __obj122604 __tmp123145 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122604 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122604 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121317 '() '20 '#f '#f)) - __obj121317)) + (##unchecked-structure-set! __obj122604 '() '20 '#f '#f)) + __obj122604)) (define |gx[:0:]#core-expander| - (let ((__obj121318 + (let ((__obj122605 (let () (declare (not safe)) (##structure @@ -5523,18 +5523,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121318 + __obj122605 'gx#core-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121318 'core-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj122605 'core-expander '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121318 + __obj122605 '(id compile-top) '4 '#f @@ -5542,71 +5542,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121318 + __obj122605 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp121860 (cons |gx[1]#_g121861_| '()))) + (let ((__tmp123147 (cons |gx[1]#_g123148_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121318 __tmp121860 '3 '#f '#f)) + (##unchecked-structure-set! __obj122605 __tmp123147 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121318 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122605 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121318 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122605 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121318 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122605 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121318 '#f '11 '#f '#f)) - (let ((__tmp121862 |gx[1]#_g121863_|)) + (##unchecked-structure-set! __obj122605 '#f '11 '#f '#f)) + (let ((__tmp123149 |gx[1]#_g123150_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121318 __tmp121862 '12 '#f '#f)) - (let ((__tmp121864 |gx[1]#_g121865_|)) + (##unchecked-structure-set! __obj122605 __tmp123149 '12 '#f '#f)) + (let ((__tmp123151 |gx[1]#_g123152_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121318 __tmp121864 '13 '#f '#f)) - (let ((__tmp121866 |gx[1]#_g121867_|)) + (##unchecked-structure-set! __obj122605 __tmp123151 '13 '#f '#f)) + (let ((__tmp123153 |gx[1]#_g123154_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121318 __tmp121866 '14 '#f '#f)) - (let ((__tmp121868 - (cons (cons 'id |gx[1]#_g121869_|) - (cons (cons 'compile-top |gx[1]#_g121870_|) - (cons (cons 'e |gx[1]#_g121871_|) '()))))) + (##unchecked-structure-set! __obj122605 __tmp123153 '14 '#f '#f)) + (let ((__tmp123155 + (cons (cons 'id |gx[1]#_g123156_|) + (cons (cons 'compile-top |gx[1]#_g123157_|) + (cons (cons 'e |gx[1]#_g123158_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121318 __tmp121868 '15 '#f '#f)) - (let ((__tmp121872 - (cons (cons 'id |gx[1]#_g121873_|) - (cons (cons 'compile-top |gx[1]#_g121874_|) - (cons (cons 'e |gx[1]#_g121875_|) '()))))) + (##unchecked-structure-set! __obj122605 __tmp123155 '15 '#f '#f)) + (let ((__tmp123159 + (cons (cons 'id |gx[1]#_g123160_|) + (cons (cons 'compile-top |gx[1]#_g123161_|) + (cons (cons 'e |gx[1]#_g123162_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121318 __tmp121872 '16 '#f '#f)) - (let ((__tmp121876 - (cons (cons 'id |gx[1]#_g121877_|) - (cons (cons 'compile-top |gx[1]#_g121878_|) - (cons (cons 'e |gx[1]#_g121879_|) '()))))) + (##unchecked-structure-set! __obj122605 __tmp123159 '16 '#f '#f)) + (let ((__tmp123163 + (cons (cons 'id |gx[1]#_g123164_|) + (cons (cons 'compile-top |gx[1]#_g123165_|) + (cons (cons 'e |gx[1]#_g123166_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121318 __tmp121876 '17 '#f '#f)) - (let ((__tmp121880 - (cons (cons 'id |gx[1]#_g121881_|) - (cons (cons 'compile-top |gx[1]#_g121882_|) - (cons (cons 'e |gx[1]#_g121883_|) '()))))) + (##unchecked-structure-set! __obj122605 __tmp123163 '17 '#f '#f)) + (let ((__tmp123167 + (cons (cons 'id |gx[1]#_g123168_|) + (cons (cons 'compile-top |gx[1]#_g123169_|) + (cons (cons 'e |gx[1]#_g123170_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121318 __tmp121880 '18 '#f '#f)) + (##unchecked-structure-set! __obj122605 __tmp123167 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121318 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122605 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121318 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122605 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121318 '() '20 '#f '#f)) - __obj121318)) + (##unchecked-structure-set! __obj122605 '() '20 '#f '#f)) + __obj122605)) (define |gx[:0:]#expression-form| - (let ((__obj121319 + (let ((__obj122606 (let () (declare (not safe)) (##structure @@ -5635,85 +5635,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121319 + __obj122606 'gx#expression-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 'expression-form '2 '#f '#f)) + (##unchecked-structure-set! __obj122606 'expression-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122606 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121319 + __obj122606 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp121884 (cons |gx[1]#_g121885_| '()))) + (let ((__tmp123171 (cons |gx[1]#_g123172_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121319 __tmp121884 '3 '#f '#f)) + (##unchecked-structure-set! __obj122606 __tmp123171 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122606 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122606 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122606 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 '#f '11 '#f '#f)) - (let ((__tmp121886 |gx[1]#_g121887_|)) + (##unchecked-structure-set! __obj122606 '#f '11 '#f '#f)) + (let ((__tmp123173 |gx[1]#_g123174_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121319 __tmp121886 '12 '#f '#f)) - (let ((__tmp121888 |gx[1]#_g121889_|)) + (##unchecked-structure-set! __obj122606 __tmp123173 '12 '#f '#f)) + (let ((__tmp123175 |gx[1]#_g123176_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121319 __tmp121888 '13 '#f '#f)) - (let ((__tmp121890 |gx[1]#_g121891_|)) + (##unchecked-structure-set! __obj122606 __tmp123175 '13 '#f '#f)) + (let ((__tmp123177 |gx[1]#_g123178_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121319 __tmp121890 '14 '#f '#f)) - (let ((__tmp121892 - (cons (cons 'id |gx[1]#_g121893_|) - (cons (cons 'compile-top |gx[1]#_g121894_|) - (cons (cons 'e |gx[1]#_g121895_|) '()))))) + (##unchecked-structure-set! __obj122606 __tmp123177 '14 '#f '#f)) + (let ((__tmp123179 + (cons (cons 'id |gx[1]#_g123180_|) + (cons (cons 'compile-top |gx[1]#_g123181_|) + (cons (cons 'e |gx[1]#_g123182_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121319 __tmp121892 '15 '#f '#f)) - (let ((__tmp121896 - (cons (cons 'id |gx[1]#_g121897_|) - (cons (cons 'compile-top |gx[1]#_g121898_|) - (cons (cons 'e |gx[1]#_g121899_|) '()))))) + (##unchecked-structure-set! __obj122606 __tmp123179 '15 '#f '#f)) + (let ((__tmp123183 + (cons (cons 'id |gx[1]#_g123184_|) + (cons (cons 'compile-top |gx[1]#_g123185_|) + (cons (cons 'e |gx[1]#_g123186_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121319 __tmp121896 '16 '#f '#f)) - (let ((__tmp121900 - (cons (cons 'id |gx[1]#_g121901_|) - (cons (cons 'compile-top |gx[1]#_g121902_|) - (cons (cons 'e |gx[1]#_g121903_|) '()))))) + (##unchecked-structure-set! __obj122606 __tmp123183 '16 '#f '#f)) + (let ((__tmp123187 + (cons (cons 'id |gx[1]#_g123188_|) + (cons (cons 'compile-top |gx[1]#_g123189_|) + (cons (cons 'e |gx[1]#_g123190_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121319 __tmp121900 '17 '#f '#f)) - (let ((__tmp121904 - (cons (cons 'id |gx[1]#_g121905_|) - (cons (cons 'compile-top |gx[1]#_g121906_|) - (cons (cons 'e |gx[1]#_g121907_|) '()))))) + (##unchecked-structure-set! __obj122606 __tmp123187 '17 '#f '#f)) + (let ((__tmp123191 + (cons (cons 'id |gx[1]#_g123192_|) + (cons (cons 'compile-top |gx[1]#_g123193_|) + (cons (cons 'e |gx[1]#_g123194_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121319 __tmp121904 '18 '#f '#f)) + (##unchecked-structure-set! __obj122606 __tmp123191 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122606 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122606 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121319 '() '20 '#f '#f)) - __obj121319)) + (##unchecked-structure-set! __obj122606 '() '20 '#f '#f)) + __obj122606)) (define |gx[:0:]#special-form| - (let ((__obj121320 + (let ((__obj122607 (let () (declare (not safe)) (##structure @@ -5742,85 +5742,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121320 + __obj122607 'gx#special-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 'special-form '2 '#f '#f)) + (##unchecked-structure-set! __obj122607 'special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122607 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121320 + __obj122607 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp121908 (cons |gx[1]#_g121885_| '()))) + (let ((__tmp123195 (cons |gx[1]#_g123172_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121320 __tmp121908 '3 '#f '#f)) + (##unchecked-structure-set! __obj122607 __tmp123195 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122607 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122607 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122607 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 '#f '11 '#f '#f)) - (let ((__tmp121909 |gx[1]#_g121910_|)) + (##unchecked-structure-set! __obj122607 '#f '11 '#f '#f)) + (let ((__tmp123196 |gx[1]#_g123197_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121320 __tmp121909 '12 '#f '#f)) - (let ((__tmp121911 |gx[1]#_g121912_|)) + (##unchecked-structure-set! __obj122607 __tmp123196 '12 '#f '#f)) + (let ((__tmp123198 |gx[1]#_g123199_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121320 __tmp121911 '13 '#f '#f)) - (let ((__tmp121913 |gx[1]#_g121914_|)) + (##unchecked-structure-set! __obj122607 __tmp123198 '13 '#f '#f)) + (let ((__tmp123200 |gx[1]#_g123201_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121320 __tmp121913 '14 '#f '#f)) - (let ((__tmp121915 - (cons (cons 'id |gx[1]#_g121916_|) - (cons (cons 'compile-top |gx[1]#_g121917_|) - (cons (cons 'e |gx[1]#_g121918_|) '()))))) + (##unchecked-structure-set! __obj122607 __tmp123200 '14 '#f '#f)) + (let ((__tmp123202 + (cons (cons 'id |gx[1]#_g123203_|) + (cons (cons 'compile-top |gx[1]#_g123204_|) + (cons (cons 'e |gx[1]#_g123205_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121320 __tmp121915 '15 '#f '#f)) - (let ((__tmp121919 - (cons (cons 'id |gx[1]#_g121920_|) - (cons (cons 'compile-top |gx[1]#_g121921_|) - (cons (cons 'e |gx[1]#_g121922_|) '()))))) + (##unchecked-structure-set! __obj122607 __tmp123202 '15 '#f '#f)) + (let ((__tmp123206 + (cons (cons 'id |gx[1]#_g123207_|) + (cons (cons 'compile-top |gx[1]#_g123208_|) + (cons (cons 'e |gx[1]#_g123209_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121320 __tmp121919 '16 '#f '#f)) - (let ((__tmp121923 - (cons (cons 'id |gx[1]#_g121924_|) - (cons (cons 'compile-top |gx[1]#_g121925_|) - (cons (cons 'e |gx[1]#_g121926_|) '()))))) + (##unchecked-structure-set! __obj122607 __tmp123206 '16 '#f '#f)) + (let ((__tmp123210 + (cons (cons 'id |gx[1]#_g123211_|) + (cons (cons 'compile-top |gx[1]#_g123212_|) + (cons (cons 'e |gx[1]#_g123213_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121320 __tmp121923 '17 '#f '#f)) - (let ((__tmp121927 - (cons (cons 'id |gx[1]#_g121928_|) - (cons (cons 'compile-top |gx[1]#_g121929_|) - (cons (cons 'e |gx[1]#_g121930_|) '()))))) + (##unchecked-structure-set! __obj122607 __tmp123210 '17 '#f '#f)) + (let ((__tmp123214 + (cons (cons 'id |gx[1]#_g123215_|) + (cons (cons 'compile-top |gx[1]#_g123216_|) + (cons (cons 'e |gx[1]#_g123217_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121320 __tmp121927 '18 '#f '#f)) + (##unchecked-structure-set! __obj122607 __tmp123214 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122607 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122607 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121320 '() '20 '#f '#f)) - __obj121320)) + (##unchecked-structure-set! __obj122607 '() '20 '#f '#f)) + __obj122607)) (define |gx[:0:]#definition-form| - (let ((__obj121321 + (let ((__obj122608 (let () (declare (not safe)) (##structure @@ -5849,85 +5849,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121321 + __obj122608 'gx#definition-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 'definition-form '2 '#f '#f)) + (##unchecked-structure-set! __obj122608 'definition-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122608 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121321 + __obj122608 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp121931 (cons |gx[1]#_g121932_| '()))) + (let ((__tmp123218 (cons |gx[1]#_g123219_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121321 __tmp121931 '3 '#f '#f)) + (##unchecked-structure-set! __obj122608 __tmp123218 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122608 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122608 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122608 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 '#f '11 '#f '#f)) - (let ((__tmp121933 |gx[1]#_g121934_|)) + (##unchecked-structure-set! __obj122608 '#f '11 '#f '#f)) + (let ((__tmp123220 |gx[1]#_g123221_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121321 __tmp121933 '12 '#f '#f)) - (let ((__tmp121935 |gx[1]#_g121936_|)) + (##unchecked-structure-set! __obj122608 __tmp123220 '12 '#f '#f)) + (let ((__tmp123222 |gx[1]#_g123223_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121321 __tmp121935 '13 '#f '#f)) - (let ((__tmp121937 |gx[1]#_g121938_|)) + (##unchecked-structure-set! __obj122608 __tmp123222 '13 '#f '#f)) + (let ((__tmp123224 |gx[1]#_g123225_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121321 __tmp121937 '14 '#f '#f)) - (let ((__tmp121939 - (cons (cons 'id |gx[1]#_g121940_|) - (cons (cons 'compile-top |gx[1]#_g121941_|) - (cons (cons 'e |gx[1]#_g121942_|) '()))))) + (##unchecked-structure-set! __obj122608 __tmp123224 '14 '#f '#f)) + (let ((__tmp123226 + (cons (cons 'id |gx[1]#_g123227_|) + (cons (cons 'compile-top |gx[1]#_g123228_|) + (cons (cons 'e |gx[1]#_g123229_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121321 __tmp121939 '15 '#f '#f)) - (let ((__tmp121943 - (cons (cons 'id |gx[1]#_g121944_|) - (cons (cons 'compile-top |gx[1]#_g121945_|) - (cons (cons 'e |gx[1]#_g121946_|) '()))))) + (##unchecked-structure-set! __obj122608 __tmp123226 '15 '#f '#f)) + (let ((__tmp123230 + (cons (cons 'id |gx[1]#_g123231_|) + (cons (cons 'compile-top |gx[1]#_g123232_|) + (cons (cons 'e |gx[1]#_g123233_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121321 __tmp121943 '16 '#f '#f)) - (let ((__tmp121947 - (cons (cons 'id |gx[1]#_g121948_|) - (cons (cons 'compile-top |gx[1]#_g121949_|) - (cons (cons 'e |gx[1]#_g121950_|) '()))))) + (##unchecked-structure-set! __obj122608 __tmp123230 '16 '#f '#f)) + (let ((__tmp123234 + (cons (cons 'id |gx[1]#_g123235_|) + (cons (cons 'compile-top |gx[1]#_g123236_|) + (cons (cons 'e |gx[1]#_g123237_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121321 __tmp121947 '17 '#f '#f)) - (let ((__tmp121951 - (cons (cons 'id |gx[1]#_g121952_|) - (cons (cons 'compile-top |gx[1]#_g121953_|) - (cons (cons 'e |gx[1]#_g121954_|) '()))))) + (##unchecked-structure-set! __obj122608 __tmp123234 '17 '#f '#f)) + (let ((__tmp123238 + (cons (cons 'id |gx[1]#_g123239_|) + (cons (cons 'compile-top |gx[1]#_g123240_|) + (cons (cons 'e |gx[1]#_g123241_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121321 __tmp121951 '18 '#f '#f)) + (##unchecked-structure-set! __obj122608 __tmp123238 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122608 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122608 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121321 '() '20 '#f '#f)) - __obj121321)) + (##unchecked-structure-set! __obj122608 '() '20 '#f '#f)) + __obj122608)) (define |gx[:0:]#top-special-form| - (let ((__obj121322 + (let ((__obj122609 (let () (declare (not safe)) (##structure @@ -5956,7 +5956,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121322 + __obj122609 'gx#top-special-form::t '1 '#f @@ -5964,82 +5964,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121322 + __obj122609 'top-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121322 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122609 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121322 + __obj122609 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp121955 (cons |gx[1]#_g121932_| '()))) + (let ((__tmp123242 (cons |gx[1]#_g123219_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121322 __tmp121955 '3 '#f '#f)) + (##unchecked-structure-set! __obj122609 __tmp123242 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121322 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122609 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121322 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122609 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121322 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122609 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121322 '#f '11 '#f '#f)) - (let ((__tmp121956 |gx[1]#_g121957_|)) + (##unchecked-structure-set! __obj122609 '#f '11 '#f '#f)) + (let ((__tmp123243 |gx[1]#_g123244_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121322 __tmp121956 '12 '#f '#f)) - (let ((__tmp121958 |gx[1]#_g121959_|)) + (##unchecked-structure-set! __obj122609 __tmp123243 '12 '#f '#f)) + (let ((__tmp123245 |gx[1]#_g123246_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121322 __tmp121958 '13 '#f '#f)) - (let ((__tmp121960 |gx[1]#_g121961_|)) + (##unchecked-structure-set! __obj122609 __tmp123245 '13 '#f '#f)) + (let ((__tmp123247 |gx[1]#_g123248_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121322 __tmp121960 '14 '#f '#f)) - (let ((__tmp121962 - (cons (cons 'id |gx[1]#_g121963_|) - (cons (cons 'compile-top |gx[1]#_g121964_|) - (cons (cons 'e |gx[1]#_g121965_|) '()))))) + (##unchecked-structure-set! __obj122609 __tmp123247 '14 '#f '#f)) + (let ((__tmp123249 + (cons (cons 'id |gx[1]#_g123250_|) + (cons (cons 'compile-top |gx[1]#_g123251_|) + (cons (cons 'e |gx[1]#_g123252_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121322 __tmp121962 '15 '#f '#f)) - (let ((__tmp121966 - (cons (cons 'id |gx[1]#_g121967_|) - (cons (cons 'compile-top |gx[1]#_g121968_|) - (cons (cons 'e |gx[1]#_g121969_|) '()))))) + (##unchecked-structure-set! __obj122609 __tmp123249 '15 '#f '#f)) + (let ((__tmp123253 + (cons (cons 'id |gx[1]#_g123254_|) + (cons (cons 'compile-top |gx[1]#_g123255_|) + (cons (cons 'e |gx[1]#_g123256_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121322 __tmp121966 '16 '#f '#f)) - (let ((__tmp121970 - (cons (cons 'id |gx[1]#_g121971_|) - (cons (cons 'compile-top |gx[1]#_g121972_|) - (cons (cons 'e |gx[1]#_g121973_|) '()))))) + (##unchecked-structure-set! __obj122609 __tmp123253 '16 '#f '#f)) + (let ((__tmp123257 + (cons (cons 'id |gx[1]#_g123258_|) + (cons (cons 'compile-top |gx[1]#_g123259_|) + (cons (cons 'e |gx[1]#_g123260_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121322 __tmp121970 '17 '#f '#f)) - (let ((__tmp121974 - (cons (cons 'id |gx[1]#_g121975_|) - (cons (cons 'compile-top |gx[1]#_g121976_|) - (cons (cons 'e |gx[1]#_g121977_|) '()))))) + (##unchecked-structure-set! __obj122609 __tmp123257 '17 '#f '#f)) + (let ((__tmp123261 + (cons (cons 'id |gx[1]#_g123262_|) + (cons (cons 'compile-top |gx[1]#_g123263_|) + (cons (cons 'e |gx[1]#_g123264_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121322 __tmp121974 '18 '#f '#f)) + (##unchecked-structure-set! __obj122609 __tmp123261 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121322 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122609 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121322 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122609 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121322 '() '20 '#f '#f)) - __obj121322)) + (##unchecked-structure-set! __obj122609 '() '20 '#f '#f)) + __obj122609)) (define |gx[:0:]#module-special-form| - (let ((__obj121323 + (let ((__obj122610 (let () (declare (not safe)) (##structure @@ -6068,7 +6068,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121323 + __obj122610 'gx#module-special-form::t '1 '#f @@ -6076,82 +6076,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121323 + __obj122610 'module-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121323 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122610 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121323 + __obj122610 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp121978 (cons |gx[1]#_g121979_| '()))) + (let ((__tmp123265 (cons |gx[1]#_g123266_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121323 __tmp121978 '3 '#f '#f)) + (##unchecked-structure-set! __obj122610 __tmp123265 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121323 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122610 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121323 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122610 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121323 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122610 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121323 '#f '11 '#f '#f)) - (let ((__tmp121980 |gx[1]#_g121981_|)) + (##unchecked-structure-set! __obj122610 '#f '11 '#f '#f)) + (let ((__tmp123267 |gx[1]#_g123268_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121323 __tmp121980 '12 '#f '#f)) - (let ((__tmp121982 |gx[1]#_g121983_|)) + (##unchecked-structure-set! __obj122610 __tmp123267 '12 '#f '#f)) + (let ((__tmp123269 |gx[1]#_g123270_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121323 __tmp121982 '13 '#f '#f)) - (let ((__tmp121984 |gx[1]#_g121985_|)) + (##unchecked-structure-set! __obj122610 __tmp123269 '13 '#f '#f)) + (let ((__tmp123271 |gx[1]#_g123272_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121323 __tmp121984 '14 '#f '#f)) - (let ((__tmp121986 - (cons (cons 'id |gx[1]#_g121987_|) - (cons (cons 'compile-top |gx[1]#_g121988_|) - (cons (cons 'e |gx[1]#_g121989_|) '()))))) + (##unchecked-structure-set! __obj122610 __tmp123271 '14 '#f '#f)) + (let ((__tmp123273 + (cons (cons 'id |gx[1]#_g123274_|) + (cons (cons 'compile-top |gx[1]#_g123275_|) + (cons (cons 'e |gx[1]#_g123276_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121323 __tmp121986 '15 '#f '#f)) - (let ((__tmp121990 - (cons (cons 'id |gx[1]#_g121991_|) - (cons (cons 'compile-top |gx[1]#_g121992_|) - (cons (cons 'e |gx[1]#_g121993_|) '()))))) + (##unchecked-structure-set! __obj122610 __tmp123273 '15 '#f '#f)) + (let ((__tmp123277 + (cons (cons 'id |gx[1]#_g123278_|) + (cons (cons 'compile-top |gx[1]#_g123279_|) + (cons (cons 'e |gx[1]#_g123280_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121323 __tmp121990 '16 '#f '#f)) - (let ((__tmp121994 - (cons (cons 'id |gx[1]#_g121995_|) - (cons (cons 'compile-top |gx[1]#_g121996_|) - (cons (cons 'e |gx[1]#_g121997_|) '()))))) + (##unchecked-structure-set! __obj122610 __tmp123277 '16 '#f '#f)) + (let ((__tmp123281 + (cons (cons 'id |gx[1]#_g123282_|) + (cons (cons 'compile-top |gx[1]#_g123283_|) + (cons (cons 'e |gx[1]#_g123284_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121323 __tmp121994 '17 '#f '#f)) - (let ((__tmp121998 - (cons (cons 'id |gx[1]#_g121999_|) - (cons (cons 'compile-top |gx[1]#_g122000_|) - (cons (cons 'e |gx[1]#_g122001_|) '()))))) + (##unchecked-structure-set! __obj122610 __tmp123281 '17 '#f '#f)) + (let ((__tmp123285 + (cons (cons 'id |gx[1]#_g123286_|) + (cons (cons 'compile-top |gx[1]#_g123287_|) + (cons (cons 'e |gx[1]#_g123288_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121323 __tmp121998 '18 '#f '#f)) + (##unchecked-structure-set! __obj122610 __tmp123285 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121323 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122610 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121323 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122610 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121323 '() '20 '#f '#f)) - __obj121323)) + (##unchecked-structure-set! __obj122610 '() '20 '#f '#f)) + __obj122610)) (define |gx[:0:]#feature-expander| - (let ((__obj121324 + (let ((__obj122611 (let () (declare (not safe)) (##structure @@ -6180,7 +6180,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121324 + __obj122611 'gx#feature-expander::t '1 '#f @@ -6188,65 +6188,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121324 + __obj122611 'feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122611 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '(e) '6 '#f '#f)) - (let ((__tmp122002 (cons |gx[1]#_g121861_| '()))) + (##unchecked-structure-set! __obj122611 '(e) '6 '#f '#f)) + (let ((__tmp123289 (cons |gx[1]#_g123148_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121324 __tmp122002 '3 '#f '#f)) + (##unchecked-structure-set! __obj122611 __tmp123289 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122611 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122611 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122611 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '#f '11 '#f '#f)) - (let ((__tmp122003 |gx[1]#_g122004_|)) + (##unchecked-structure-set! __obj122611 '#f '11 '#f '#f)) + (let ((__tmp123290 |gx[1]#_g123291_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121324 __tmp122003 '12 '#f '#f)) - (let ((__tmp122005 |gx[1]#_g122006_|)) + (##unchecked-structure-set! __obj122611 __tmp123290 '12 '#f '#f)) + (let ((__tmp123292 |gx[1]#_g123293_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121324 __tmp122005 '13 '#f '#f)) - (let ((__tmp122007 |gx[1]#_g122008_|)) + (##unchecked-structure-set! __obj122611 __tmp123292 '13 '#f '#f)) + (let ((__tmp123294 |gx[1]#_g123295_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121324 __tmp122007 '14 '#f '#f)) - (let ((__tmp122009 (cons (cons 'e |gx[1]#_g122010_|) '()))) + (##unchecked-structure-set! __obj122611 __tmp123294 '14 '#f '#f)) + (let ((__tmp123296 (cons (cons 'e |gx[1]#_g123297_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121324 __tmp122009 '15 '#f '#f)) - (let ((__tmp122011 (cons (cons 'e |gx[1]#_g122012_|) '()))) + (##unchecked-structure-set! __obj122611 __tmp123296 '15 '#f '#f)) + (let ((__tmp123298 (cons (cons 'e |gx[1]#_g123299_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121324 __tmp122011 '16 '#f '#f)) - (let ((__tmp122013 (cons (cons 'e |gx[1]#_g122014_|) '()))) + (##unchecked-structure-set! __obj122611 __tmp123298 '16 '#f '#f)) + (let ((__tmp123300 (cons (cons 'e |gx[1]#_g123301_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121324 __tmp122013 '17 '#f '#f)) - (let ((__tmp122015 (cons (cons 'e |gx[1]#_g122016_|) '()))) + (##unchecked-structure-set! __obj122611 __tmp123300 '17 '#f '#f)) + (let ((__tmp123302 (cons (cons 'e |gx[1]#_g123303_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121324 __tmp122015 '18 '#f '#f)) + (##unchecked-structure-set! __obj122611 __tmp123302 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122611 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122611 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121324 '() '20 '#f '#f)) - __obj121324)) + (##unchecked-structure-set! __obj122611 '() '20 '#f '#f)) + __obj122611)) (define |gx[:0:]#private-feature-expander| - (let ((__obj121325 + (let ((__obj122612 (let () (declare (not safe)) (##structure @@ -6275,7 +6275,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121325 + __obj122612 'gx#private-feature-expander::t '1 '#f @@ -6283,65 +6283,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121325 + __obj122612 'private-feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122612 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '(e) '6 '#f '#f)) - (let ((__tmp122017 (cons |gx[1]#_g122018_| '()))) + (##unchecked-structure-set! __obj122612 '(e) '6 '#f '#f)) + (let ((__tmp123304 (cons |gx[1]#_g123305_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121325 __tmp122017 '3 '#f '#f)) + (##unchecked-structure-set! __obj122612 __tmp123304 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122612 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122612 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122612 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '#f '11 '#f '#f)) - (let ((__tmp122019 |gx[1]#_g122020_|)) + (##unchecked-structure-set! __obj122612 '#f '11 '#f '#f)) + (let ((__tmp123306 |gx[1]#_g123307_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121325 __tmp122019 '12 '#f '#f)) - (let ((__tmp122021 |gx[1]#_g122022_|)) + (##unchecked-structure-set! __obj122612 __tmp123306 '12 '#f '#f)) + (let ((__tmp123308 |gx[1]#_g123309_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121325 __tmp122021 '13 '#f '#f)) - (let ((__tmp122023 |gx[1]#_g122024_|)) + (##unchecked-structure-set! __obj122612 __tmp123308 '13 '#f '#f)) + (let ((__tmp123310 |gx[1]#_g123311_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121325 __tmp122023 '14 '#f '#f)) - (let ((__tmp122025 (cons (cons 'e |gx[1]#_g122026_|) '()))) + (##unchecked-structure-set! __obj122612 __tmp123310 '14 '#f '#f)) + (let ((__tmp123312 (cons (cons 'e |gx[1]#_g123313_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121325 __tmp122025 '15 '#f '#f)) - (let ((__tmp122027 (cons (cons 'e |gx[1]#_g122028_|) '()))) + (##unchecked-structure-set! __obj122612 __tmp123312 '15 '#f '#f)) + (let ((__tmp123314 (cons (cons 'e |gx[1]#_g123315_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121325 __tmp122027 '16 '#f '#f)) - (let ((__tmp122029 (cons (cons 'e |gx[1]#_g122030_|) '()))) + (##unchecked-structure-set! __obj122612 __tmp123314 '16 '#f '#f)) + (let ((__tmp123316 (cons (cons 'e |gx[1]#_g123317_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121325 __tmp122029 '17 '#f '#f)) - (let ((__tmp122031 (cons (cons 'e |gx[1]#_g122032_|) '()))) + (##unchecked-structure-set! __obj122612 __tmp123316 '17 '#f '#f)) + (let ((__tmp123318 (cons (cons 'e |gx[1]#_g123319_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121325 __tmp122031 '18 '#f '#f)) + (##unchecked-structure-set! __obj122612 __tmp123318 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122612 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122612 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121325 '() '20 '#f '#f)) - __obj121325)) + (##unchecked-structure-set! __obj122612 '() '20 '#f '#f)) + __obj122612)) (define |gx[:0:]#reserved-expander| - (let ((__obj121326 + (let ((__obj122613 (let () (declare (not safe)) (##structure @@ -6370,7 +6370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121326 + __obj122613 'gx#reserved-expander::t '1 '#f @@ -6378,65 +6378,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121326 + __obj122613 'reserved-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122613 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '(e) '6 '#f '#f)) - (let ((__tmp122033 (cons |gx[1]#_g121861_| '()))) + (##unchecked-structure-set! __obj122613 '(e) '6 '#f '#f)) + (let ((__tmp123320 (cons |gx[1]#_g123148_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121326 __tmp122033 '3 '#f '#f)) + (##unchecked-structure-set! __obj122613 __tmp123320 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122613 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122613 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122613 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '#f '11 '#f '#f)) - (let ((__tmp122034 |gx[1]#_g122035_|)) + (##unchecked-structure-set! __obj122613 '#f '11 '#f '#f)) + (let ((__tmp123321 |gx[1]#_g123322_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121326 __tmp122034 '12 '#f '#f)) - (let ((__tmp122036 |gx[1]#_g122037_|)) + (##unchecked-structure-set! __obj122613 __tmp123321 '12 '#f '#f)) + (let ((__tmp123323 |gx[1]#_g123324_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121326 __tmp122036 '13 '#f '#f)) - (let ((__tmp122038 |gx[1]#_g122039_|)) + (##unchecked-structure-set! __obj122613 __tmp123323 '13 '#f '#f)) + (let ((__tmp123325 |gx[1]#_g123326_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121326 __tmp122038 '14 '#f '#f)) - (let ((__tmp122040 (cons (cons 'e |gx[1]#_g122041_|) '()))) + (##unchecked-structure-set! __obj122613 __tmp123325 '14 '#f '#f)) + (let ((__tmp123327 (cons (cons 'e |gx[1]#_g123328_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121326 __tmp122040 '15 '#f '#f)) - (let ((__tmp122042 (cons (cons 'e |gx[1]#_g122043_|) '()))) + (##unchecked-structure-set! __obj122613 __tmp123327 '15 '#f '#f)) + (let ((__tmp123329 (cons (cons 'e |gx[1]#_g123330_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121326 __tmp122042 '16 '#f '#f)) - (let ((__tmp122044 (cons (cons 'e |gx[1]#_g122045_|) '()))) + (##unchecked-structure-set! __obj122613 __tmp123329 '16 '#f '#f)) + (let ((__tmp123331 (cons (cons 'e |gx[1]#_g123332_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121326 __tmp122044 '17 '#f '#f)) - (let ((__tmp122046 (cons (cons 'e |gx[1]#_g122047_|) '()))) + (##unchecked-structure-set! __obj122613 __tmp123331 '17 '#f '#f)) + (let ((__tmp123333 (cons (cons 'e |gx[1]#_g123334_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121326 __tmp122046 '18 '#f '#f)) + (##unchecked-structure-set! __obj122613 __tmp123333 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122613 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122613 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121326 '() '20 '#f '#f)) - __obj121326)) + (##unchecked-structure-set! __obj122613 '() '20 '#f '#f)) + __obj122613)) (define |gx[:0:]#macro-expander| - (let ((__obj121327 + (let ((__obj122614 (let () (declare (not safe)) (##structure @@ -6465,68 +6465,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121327 + __obj122614 'gx#macro-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 'macro-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj122614 'macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122614 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '(e) '6 '#f '#f)) - (let ((__tmp122048 (cons |gx[1]#_g121861_| '()))) + (##unchecked-structure-set! __obj122614 '(e) '6 '#f '#f)) + (let ((__tmp123335 (cons |gx[1]#_g123148_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121327 __tmp122048 '3 '#f '#f)) + (##unchecked-structure-set! __obj122614 __tmp123335 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122614 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122614 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122614 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '#f '11 '#f '#f)) - (let ((__tmp122049 |gx[1]#_g122050_|)) + (##unchecked-structure-set! __obj122614 '#f '11 '#f '#f)) + (let ((__tmp123336 |gx[1]#_g123337_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121327 __tmp122049 '12 '#f '#f)) - (let ((__tmp122051 |gx[1]#_g122052_|)) + (##unchecked-structure-set! __obj122614 __tmp123336 '12 '#f '#f)) + (let ((__tmp123338 |gx[1]#_g123339_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121327 __tmp122051 '13 '#f '#f)) - (let ((__tmp122053 |gx[1]#_g122054_|)) + (##unchecked-structure-set! __obj122614 __tmp123338 '13 '#f '#f)) + (let ((__tmp123340 |gx[1]#_g123341_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121327 __tmp122053 '14 '#f '#f)) - (let ((__tmp122055 (cons (cons 'e |gx[1]#_g122056_|) '()))) + (##unchecked-structure-set! __obj122614 __tmp123340 '14 '#f '#f)) + (let ((__tmp123342 (cons (cons 'e |gx[1]#_g123343_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121327 __tmp122055 '15 '#f '#f)) - (let ((__tmp122057 (cons (cons 'e |gx[1]#_g122058_|) '()))) + (##unchecked-structure-set! __obj122614 __tmp123342 '15 '#f '#f)) + (let ((__tmp123344 (cons (cons 'e |gx[1]#_g123345_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121327 __tmp122057 '16 '#f '#f)) - (let ((__tmp122059 (cons (cons 'e |gx[1]#_g122060_|) '()))) + (##unchecked-structure-set! __obj122614 __tmp123344 '16 '#f '#f)) + (let ((__tmp123346 (cons (cons 'e |gx[1]#_g123347_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121327 __tmp122059 '17 '#f '#f)) - (let ((__tmp122061 (cons (cons 'e |gx[1]#_g122062_|) '()))) + (##unchecked-structure-set! __obj122614 __tmp123346 '17 '#f '#f)) + (let ((__tmp123348 (cons (cons 'e |gx[1]#_g123349_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121327 __tmp122061 '18 '#f '#f)) + (##unchecked-structure-set! __obj122614 __tmp123348 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122614 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122614 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121327 '() '20 '#f '#f)) - __obj121327)) + (##unchecked-structure-set! __obj122614 '() '20 '#f '#f)) + __obj122614)) (define |gx[:0:]#rename-macro-expander| - (let ((__obj121328 + (let ((__obj122615 (let () (declare (not safe)) (##structure @@ -6555,7 +6555,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121328 + __obj122615 'gx#rename-macro-expander::t '1 '#f @@ -6563,65 +6563,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121328 + __obj122615 'rename-macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122615 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '(e) '6 '#f '#f)) - (let ((__tmp122063 (cons |gx[1]#_g122064_| '()))) + (##unchecked-structure-set! __obj122615 '(e) '6 '#f '#f)) + (let ((__tmp123350 (cons |gx[1]#_g123351_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121328 __tmp122063 '3 '#f '#f)) + (##unchecked-structure-set! __obj122615 __tmp123350 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122615 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122615 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122615 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '#f '11 '#f '#f)) - (let ((__tmp122065 |gx[1]#_g122066_|)) + (##unchecked-structure-set! __obj122615 '#f '11 '#f '#f)) + (let ((__tmp123352 |gx[1]#_g123353_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121328 __tmp122065 '12 '#f '#f)) - (let ((__tmp122067 |gx[1]#_g122068_|)) + (##unchecked-structure-set! __obj122615 __tmp123352 '12 '#f '#f)) + (let ((__tmp123354 |gx[1]#_g123355_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121328 __tmp122067 '13 '#f '#f)) - (let ((__tmp122069 |gx[1]#_g122070_|)) + (##unchecked-structure-set! __obj122615 __tmp123354 '13 '#f '#f)) + (let ((__tmp123356 |gx[1]#_g123357_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121328 __tmp122069 '14 '#f '#f)) - (let ((__tmp122071 (cons (cons 'e |gx[1]#_g122072_|) '()))) + (##unchecked-structure-set! __obj122615 __tmp123356 '14 '#f '#f)) + (let ((__tmp123358 (cons (cons 'e |gx[1]#_g123359_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121328 __tmp122071 '15 '#f '#f)) - (let ((__tmp122073 (cons (cons 'e |gx[1]#_g122074_|) '()))) + (##unchecked-structure-set! __obj122615 __tmp123358 '15 '#f '#f)) + (let ((__tmp123360 (cons (cons 'e |gx[1]#_g123361_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121328 __tmp122073 '16 '#f '#f)) - (let ((__tmp122075 (cons (cons 'e |gx[1]#_g122076_|) '()))) + (##unchecked-structure-set! __obj122615 __tmp123360 '16 '#f '#f)) + (let ((__tmp123362 (cons (cons 'e |gx[1]#_g123363_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121328 __tmp122075 '17 '#f '#f)) - (let ((__tmp122077 (cons (cons 'e |gx[1]#_g122078_|) '()))) + (##unchecked-structure-set! __obj122615 __tmp123362 '17 '#f '#f)) + (let ((__tmp123364 (cons (cons 'e |gx[1]#_g123365_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121328 __tmp122077 '18 '#f '#f)) + (##unchecked-structure-set! __obj122615 __tmp123364 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122615 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122615 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121328 '() '20 '#f '#f)) - __obj121328)) + (##unchecked-structure-set! __obj122615 '() '20 '#f '#f)) + __obj122615)) (define |gx[:0:]#user-expander| - (let ((__obj121329 + (let ((__obj122616 (let () (declare (not safe)) (##structure @@ -6650,80 +6650,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121329 + __obj122616 'gx#user-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 'user-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj122616 'user-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '(context phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj122616 '(context phi) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '(e context phi) '6 '#f '#f)) - (let ((__tmp122079 (cons |gx[1]#_g122064_| '()))) + (##unchecked-structure-set! __obj122616 '(e context phi) '6 '#f '#f)) + (let ((__tmp123366 (cons |gx[1]#_g123351_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121329 __tmp122079 '3 '#f '#f)) + (##unchecked-structure-set! __obj122616 __tmp123366 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122616 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122616 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122616 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '#f '11 '#f '#f)) - (let ((__tmp122080 |gx[1]#_g122081_|)) + (##unchecked-structure-set! __obj122616 '#f '11 '#f '#f)) + (let ((__tmp123367 |gx[1]#_g123368_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121329 __tmp122080 '12 '#f '#f)) - (let ((__tmp122082 |gx[1]#_g122083_|)) + (##unchecked-structure-set! __obj122616 __tmp123367 '12 '#f '#f)) + (let ((__tmp123369 |gx[1]#_g123370_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121329 __tmp122082 '13 '#f '#f)) - (let ((__tmp122084 |gx[1]#_g122085_|)) + (##unchecked-structure-set! __obj122616 __tmp123369 '13 '#f '#f)) + (let ((__tmp123371 |gx[1]#_g123372_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121329 __tmp122084 '14 '#f '#f)) - (let ((__tmp122086 - (cons (cons 'context |gx[1]#_g122087_|) - (cons (cons 'phi |gx[1]#_g122088_|) - (cons (cons 'e |gx[1]#_g122089_|) '()))))) + (##unchecked-structure-set! __obj122616 __tmp123371 '14 '#f '#f)) + (let ((__tmp123373 + (cons (cons 'context |gx[1]#_g123374_|) + (cons (cons 'phi |gx[1]#_g123375_|) + (cons (cons 'e |gx[1]#_g123376_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121329 __tmp122086 '15 '#f '#f)) - (let ((__tmp122090 - (cons (cons 'context |gx[1]#_g122091_|) - (cons (cons 'phi |gx[1]#_g122092_|) - (cons (cons 'e |gx[1]#_g122093_|) '()))))) + (##unchecked-structure-set! __obj122616 __tmp123373 '15 '#f '#f)) + (let ((__tmp123377 + (cons (cons 'context |gx[1]#_g123378_|) + (cons (cons 'phi |gx[1]#_g123379_|) + (cons (cons 'e |gx[1]#_g123380_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121329 __tmp122090 '16 '#f '#f)) - (let ((__tmp122094 - (cons (cons 'context |gx[1]#_g122095_|) - (cons (cons 'phi |gx[1]#_g122096_|) - (cons (cons 'e |gx[1]#_g122097_|) '()))))) + (##unchecked-structure-set! __obj122616 __tmp123377 '16 '#f '#f)) + (let ((__tmp123381 + (cons (cons 'context |gx[1]#_g123382_|) + (cons (cons 'phi |gx[1]#_g123383_|) + (cons (cons 'e |gx[1]#_g123384_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121329 __tmp122094 '17 '#f '#f)) - (let ((__tmp122098 - (cons (cons 'context |gx[1]#_g122099_|) - (cons (cons 'phi |gx[1]#_g122100_|) - (cons (cons 'e |gx[1]#_g122101_|) '()))))) + (##unchecked-structure-set! __obj122616 __tmp123381 '17 '#f '#f)) + (let ((__tmp123385 + (cons (cons 'context |gx[1]#_g123386_|) + (cons (cons 'phi |gx[1]#_g123387_|) + (cons (cons 'e |gx[1]#_g123388_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121329 __tmp122098 '18 '#f '#f)) + (##unchecked-structure-set! __obj122616 __tmp123385 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122616 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122616 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121329 '() '20 '#f '#f)) - __obj121329)) + (##unchecked-structure-set! __obj122616 '() '20 '#f '#f)) + __obj122616)) (define |gx[:0:]#expander-mark| - (let ((__obj121330 + (let ((__obj122617 (let () (declare (not safe)) (##structure @@ -6752,18 +6752,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121330 + __obj122617 'gx#expander-mark::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 'expander-mark '2 '#f '#f)) + (##unchecked-structure-set! __obj122617 'expander-mark '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121330 + __obj122617 '(subst context phi trace) '4 '#f @@ -6771,74 +6771,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121330 + __obj122617 '(subst context phi trace) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj122617 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122617 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122617 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122617 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 '#f '11 '#f '#f)) - (let ((__tmp122102 |gx[1]#_g122103_|)) + (##unchecked-structure-set! __obj122617 '#f '11 '#f '#f)) + (let ((__tmp123389 |gx[1]#_g123390_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121330 __tmp122102 '12 '#f '#f)) - (let ((__tmp122104 |gx[1]#_g122105_|)) + (##unchecked-structure-set! __obj122617 __tmp123389 '12 '#f '#f)) + (let ((__tmp123391 |gx[1]#_g123392_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121330 __tmp122104 '13 '#f '#f)) - (let ((__tmp122106 |gx[1]#_g122107_|)) + (##unchecked-structure-set! __obj122617 __tmp123391 '13 '#f '#f)) + (let ((__tmp123393 |gx[1]#_g123394_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121330 __tmp122106 '14 '#f '#f)) - (let ((__tmp122108 - (cons (cons 'subst |gx[1]#_g122109_|) - (cons (cons 'context |gx[1]#_g122110_|) - (cons (cons 'phi |gx[1]#_g122111_|) - (cons (cons 'trace |gx[1]#_g122112_|) + (##unchecked-structure-set! __obj122617 __tmp123393 '14 '#f '#f)) + (let ((__tmp123395 + (cons (cons 'subst |gx[1]#_g123396_|) + (cons (cons 'context |gx[1]#_g123397_|) + (cons (cons 'phi |gx[1]#_g123398_|) + (cons (cons 'trace |gx[1]#_g123399_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121330 __tmp122108 '15 '#f '#f)) - (let ((__tmp122113 - (cons (cons 'subst |gx[1]#_g122114_|) - (cons (cons 'context |gx[1]#_g122115_|) - (cons (cons 'phi |gx[1]#_g122116_|) - (cons (cons 'trace |gx[1]#_g122117_|) + (##unchecked-structure-set! __obj122617 __tmp123395 '15 '#f '#f)) + (let ((__tmp123400 + (cons (cons 'subst |gx[1]#_g123401_|) + (cons (cons 'context |gx[1]#_g123402_|) + (cons (cons 'phi |gx[1]#_g123403_|) + (cons (cons 'trace |gx[1]#_g123404_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121330 __tmp122113 '16 '#f '#f)) - (let ((__tmp122118 - (cons (cons 'subst |gx[1]#_g122119_|) - (cons (cons 'context |gx[1]#_g122120_|) - (cons (cons 'phi |gx[1]#_g122121_|) - (cons (cons 'trace |gx[1]#_g122122_|) + (##unchecked-structure-set! __obj122617 __tmp123400 '16 '#f '#f)) + (let ((__tmp123405 + (cons (cons 'subst |gx[1]#_g123406_|) + (cons (cons 'context |gx[1]#_g123407_|) + (cons (cons 'phi |gx[1]#_g123408_|) + (cons (cons 'trace |gx[1]#_g123409_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121330 __tmp122118 '17 '#f '#f)) - (let ((__tmp122123 - (cons (cons 'subst |gx[1]#_g122124_|) - (cons (cons 'context |gx[1]#_g122125_|) - (cons (cons 'phi |gx[1]#_g122126_|) - (cons (cons 'trace |gx[1]#_g122127_|) + (##unchecked-structure-set! __obj122617 __tmp123405 '17 '#f '#f)) + (let ((__tmp123410 + (cons (cons 'subst |gx[1]#_g123411_|) + (cons (cons 'context |gx[1]#_g123412_|) + (cons (cons 'phi |gx[1]#_g123413_|) + (cons (cons 'trace |gx[1]#_g123414_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121330 __tmp122123 '18 '#f '#f)) + (##unchecked-structure-set! __obj122617 __tmp123410 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122617 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122617 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121330 '() '20 '#f '#f)) - __obj121330)))) + (##unchecked-structure-set! __obj122617 '() '20 '#f '#f)) + __obj122617)))) diff --git a/src/bootstrap/gerbil/expander/init~0.scm b/src/bootstrap/gerbil/expander/init~0.scm index 0172b0b2e..fc3201dc0 100644 --- a/src/bootstrap/gerbil/expander/init~0.scm +++ b/src/bootstrap/gerbil/expander/init~0.scm @@ -1,18 +1,18 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/init::timestamp 1713631267) + (define gerbil/expander/init::timestamp 1734357962) (begin - (let ((__tmp132915 - (let ((__obj132913 + (let ((__tmp134202 + (let ((__obj134200 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gx#top-context:::init!__0 __obj132913)) - __obj132913))) + (gx#top-context:::init!__0 __obj134200)) + __obj134200))) (declare (not safe)) - (gx#current-expander-context __tmp132915)) + (gx#current-expander-context __tmp134202)) (let () (declare (not safe)) (gx#current-expander-module-import gx#core-import-module)) @@ -21,8 +21,8 @@ (gx#current-expander-module-eval gx#core-eval-module)) (let () (declare (not safe)) (gx#current-expander-compile __compile-top)) (let () (declare (not safe)) (gx#current-expander-eval ##eval)) - (let ((__tmp132916 - (let ((__obj132914 + (let ((__tmp134203 + (let ((__obj134201 (let () (declare (not safe)) (##structure @@ -37,7 +37,7 @@ '#f)))) (let () (declare (not safe)) - (gx#prelude-context:::init!__0 __obj132914 '#f)) - __obj132914))) + (gx#prelude-context:::init!__0 __obj134201 '#f)) + __obj134201))) (declare (not safe)) - (gx#core-bind-root-syntax!__% ': __tmp132916 '#t)))) + (gx#core-bind-root-syntax!__% ': __tmp134203 '#t)))) diff --git a/src/bootstrap/gerbil/expander/module.ssxi.ss b/src/bootstrap/gerbil/expander/module.ssxi.ss index 0bfac44c3..574a72610 100644 --- a/src/bootstrap/gerbil/expander/module.ssxi.ss +++ b/src/bootstrap/gerbil/expander/module.ssxi.ss @@ -224,8 +224,10 @@ package: gerbil/expander #f #f #f - ((apply-import-expander . gx#import-expander::apply-import-expander) - (:init! . gx#import-expander:::init!)))) + ((:init! . gx#import-expander:::init!) + (apply-import-expander + . + gx#import-expander::apply-import-expander)))) (declare-type gx#import-expander::t (optimizer-resolve-class '(typedecl gx#import-expander::t) 'class::t)) @@ -279,8 +281,10 @@ package: gerbil/expander #f #f #f - ((apply-export-expander . gx#export-expander::apply-export-expander) - (:init! . gx#export-expander:::init!)))) + ((:init! . gx#export-expander:::init!) + (apply-export-expander + . + gx#export-expander::apply-export-expander)))) (declare-type gx#export-expander::t (optimizer-resolve-class '(typedecl gx#export-expander::t) 'class::t)) diff --git a/src/bootstrap/gerbil/expander/module~0.scm b/src/bootstrap/gerbil/expander/module~0.scm index ba3a03824..79ac94621 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 1713631266) + (define gerbil/expander/module::timestamp 1734357962) (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 _%$args128764%_ - (apply make-instance gx#module-import::t _%$args128764%_))) + (lambda _%$args130051%_ + (apply make-instance gx#module-import::t _%$args130051%_))) (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 _%$args128761%_ - (apply make-instance gx#module-export::t _%$args128761%_))) + (lambda _%$args130048%_ + (apply make-instance gx#module-export::t _%$args130048%_))) (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 _%$args128758%_ - (apply make-instance gx#import-set::t _%$args128758%_))) + (lambda _%$args130045%_ + (apply make-instance gx#import-set::t _%$args130045%_))) (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 _%$args128755%_ - (apply make-instance gx#export-set::t _%$args128755%_))) + (lambda _%$args130042%_ + (apply make-instance gx#export-set::t _%$args130042%_))) (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 _%$args128752%_ - (apply make-instance gx#import-expander::t _%$args128752%_))) + (lambda _%$args130039%_ + (apply make-instance gx#import-expander::t _%$args130039%_))) (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 _%$args128749%_ - (apply make-instance gx#export-expander::t _%$args128749%_))) + (lambda _%$args130036%_ + (apply make-instance gx#export-expander::t _%$args130036%_))) (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 _%$args128746%_ - (apply make-instance gx#import-export-expander::t _%$args128746%_))) + (lambda _%$args130033%_ + (apply make-instance gx#import-export-expander::t _%$args130033%_))) (define gx#import-export-expander-context (__make-class-slot-accessor gx#import-export-expander::t 'context)) (define gx#import-export-expander-phi @@ -316,251 +316,251 @@ (define gx#current-module-reader-args (make-parameter '#f)) (define gx#source-file-settings '(char-encoding: UTF-8 eol-encoding: lf)) (define gx#call-with-input-source-file - (lambda (_%path128743%_ _%fun128744%_) + (lambda (_%path130030%_ _%fun130031%_) (call-with-input-file - (cons 'path: (cons _%path128743%_ gx#source-file-settings)) - _%fun128744%_))) + (cons 'path: (cons _%path130030%_ gx#source-file-settings)) + _%fun130031%_))) (define gx#module-context:::init! - (lambda (_%self125195128724%_ - _%id128726%_ - _%super128727%_ - _%ns128728%_ - _%path128729%_) - (let* ((_%self128731%_ _%self125195128724%_) - (_%self128733%_ _%self128731%_)) - (if (##fx< '11 (##structure-length _%self128733%_)) + (lambda (_%self126482130011%_ + _%id130013%_ + _%super130014%_ + _%ns130015%_ + _%path130016%_) + (let* ((_%self130018%_ _%self126482130011%_) + (_%self130020%_ _%self130018%_)) + (if (##fx< '11 (##structure-length _%self130020%_)) (begin (##unchecked-structure-set! - _%self128733%_ - _%id128726%_ + _%self130020%_ + _%id130013%_ '1 '#f '#f) (##unchecked-structure-set! - _%self128733%_ + _%self130020%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self128733%_ - _%super128727%_ + _%self130020%_ + _%super130014%_ '3 '#f '#f) - (##unchecked-structure-set! _%self128733%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self128733%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self130020%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self130020%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self128733%_ - _%ns128728%_ + _%self130020%_ + _%ns130015%_ '6 '#f '#f) (##unchecked-structure-set! - _%self128733%_ - _%path128729%_ + _%self130020%_ + _%path130016%_ '7 '#f '#f) - (##unchecked-structure-set! _%self128733%_ '() '8 '#f '#f) - (##unchecked-structure-set! _%self128733%_ '() '9 '#f '#f) - (##unchecked-structure-set! _%self128733%_ '#f '10 '#f '#f) - (##unchecked-structure-set! _%self128733%_ '#f '11 '#f '#f) + (##unchecked-structure-set! _%self130020%_ '() '8 '#f '#f) + (##unchecked-structure-set! _%self130020%_ '() '9 '#f '#f) + (##unchecked-structure-set! _%self130020%_ '#f '10 '#f '#f) + (##unchecked-structure-set! _%self130020%_ '#f '11 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128733%_ + _%self130020%_ '11 - (##vector-length _%self128733%_)))))) + (##vector-length _%self130020%_)))))) (__bind-method!__% gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% - (lambda (_%self125196128555%_ _%ctx128557%_ _%root128558%_) - (let* ((_%self128560%_ _%self125196128555%_) - (_%self128562%_ _%self128560%_) - (_%super128578%_ - (let ((_%$e128572%_ _%root128558%_)) - (if _%$e128572%_ - _%$e128572%_ - (let ((_%$e128575%_ (gx#core-context-root__0))) - (if _%$e128575%_ - _%$e128575%_ - (let ((__obj128808 + (lambda (_%self126483129842%_ _%ctx129844%_ _%root129845%_) + (let* ((_%self129847%_ _%self126483129842%_) + (_%self129849%_ _%self129847%_) + (_%super129865%_ + (let ((_%$e129859%_ _%root129845%_)) + (if _%$e129859%_ + _%$e129859%_ + (let ((_%$e129862%_ (gx#core-context-root__0))) + (if _%$e129862%_ + _%$e129862%_ + (let ((__obj130095 (##structure gx#root-context::t '#f '#f))) - (let ((__constructor128809 + (let ((__constructor130096 (direct-method-ref gx#root-context::t - __obj128808 + __obj130095 ':init!))) - (if __constructor128809 - (__constructor128809 __obj128808) + (if __constructor130096 + (__constructor130096 __obj130095) (error '"missing constructor method implementation" 'class: gx#root-context::t 'method: ':init!))) - __obj128808))))))) - (if _%ctx128557%_ - (let ((_%id128581%_ + __obj130095))))))) + (if _%ctx129844%_ + (let ((_%id129868%_ (##structure-ref - _%ctx128557%_ + _%ctx129844%_ '1 gx#expander-context::t '#f)) - (_%path128582%_ + (_%path129869%_ (##structure-ref - _%ctx128557%_ + _%ctx129844%_ '7 gx#module-context::t '#f)) - (_%in128583%_ + (_%in129870%_ (map gx#core-module-export->import (##structure-ref - _%ctx128557%_ + _%ctx129844%_ '9 gx#module-context::t '#f))) - (_%e128584%_ + (_%e129871%_ (__make-promise - (lambda () (gx#eval-module _%ctx128557%_))))) - (if (##fx< '8 (##structure-length _%self128562%_)) + (lambda () (gx#eval-module _%ctx129844%_))))) + (if (##fx< '8 (##structure-length _%self129849%_)) (begin (##unchecked-structure-set! - _%self128562%_ - _%id128581%_ + _%self129849%_ + _%id129868%_ '1 '#f '#f) (##unchecked-structure-set! - _%self128562%_ - (make-hash-table-eq 'size: (##length _%in128583%_)) + _%self129849%_ + (make-hash-table-eq 'size: (##length _%in129870%_)) '2 '#f '#f) (##unchecked-structure-set! - _%self128562%_ - _%super128578%_ + _%self129849%_ + _%super129865%_ '3 '#f '#f) (##unchecked-structure-set! - _%self128562%_ + _%self129849%_ '#f '4 '#f '#f) (##unchecked-structure-set! - _%self128562%_ + _%self129849%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self128562%_ - _%path128582%_ + _%self129849%_ + _%path129869%_ '6 '#f '#f) (##unchecked-structure-set! - _%self128562%_ - _%in128583%_ + _%self129849%_ + _%in129870%_ '7 '#f '#f) (##unchecked-structure-set! - _%self128562%_ - _%e128584%_ + _%self129849%_ + _%e129871%_ '8 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128562%_ + _%self129849%_ '8 - (##vector-length _%self128562%_))) + (##vector-length _%self129849%_))) (##for-each - (lambda (_%g128585128587%_) + (lambda (_%g129872129874%_) (gx#core-bind-weak-import!__% - _%g128585128587%_ - _%self128562%_)) - _%in128583%_)) - (if (##fx< '8 (##structure-length _%self128562%_)) + _%g129872129874%_ + _%self129849%_)) + _%in129870%_)) + (if (##fx< '8 (##structure-length _%self129849%_)) (begin - (##unchecked-structure-set! _%self128562%_ '#f '1 '#f '#f) + (##unchecked-structure-set! _%self129849%_ '#f '1 '#f '#f) (##unchecked-structure-set! - _%self128562%_ + _%self129849%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self128562%_ - _%super128578%_ + _%self129849%_ + _%super129865%_ '3 '#f '#f) - (##unchecked-structure-set! _%self128562%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self128562%_ '#f '5 '#f '#f) - (##unchecked-structure-set! _%self128562%_ '#f '6 '#f '#f) - (##unchecked-structure-set! _%self128562%_ '() '7 '#f '#f) - (##unchecked-structure-set! _%self128562%_ '#f '8 '#f '#f) + (##unchecked-structure-set! _%self129849%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self129849%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self129849%_ '#f '6 '#f '#f) + (##unchecked-structure-set! _%self129849%_ '() '7 '#f '#f) + (##unchecked-structure-set! _%self129849%_ '#f '8 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128562%_ + _%self129849%_ '8 - (##vector-length _%self128562%_))))))) + (##vector-length _%self129849%_))))))) (define gx#prelude-context:::init!__0 - (lambda (_%self125196128593%_ _%ctx128594%_) - (let ((_%root128596%_ '#f)) + (lambda (_%self126483129880%_ _%ctx129881%_) + (let ((_%root129883%_ '#f)) (gx#prelude-context:::init!__% - _%self125196128593%_ - _%ctx128594%_ - _%root128596%_)))) + _%self126483129880%_ + _%ctx129881%_ + _%root129883%_)))) (define gx#prelude-context:::init! - (lambda _g128815_ - (let ((_g128814_ (##length _g128815_))) - (cond ((##fx= _g128814_ 2) - (apply gx#prelude-context:::init!__0 _g128815_)) - ((##fx= _g128814_ 3) - (apply gx#prelude-context:::init!__% _g128815_)) + (lambda _g130102_ + (let ((_g130101_ (##length _g130102_))) + (cond ((##fx= _g130101_ 2) + (apply gx#prelude-context:::init!__0 _g130102_)) + ((##fx= _g130101_ 3) + (apply gx#prelude-context:::init!__% _g130102_)) (else (##raise-wrong-number-of-arguments-exception gx#prelude-context:::init! - _g128815_)))))) + _g130102_)))))) (__bind-method!__% gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-export-expander-init! - (lambda (_%self128429%_ _%e128430%_) - (if (##fx< '3 (##structure-length _%self128429%_)) + (lambda (_%self129716%_ _%e129717%_) + (if (##fx< '3 (##structure-length _%self129716%_)) (begin (##unchecked-structure-set! - _%self128429%_ - _%e128430%_ + _%self129716%_ + _%e129717%_ '1 '#f '#f) (##unchecked-structure-set! - _%self128429%_ + _%self129716%_ (gx#current-expander-context) '2 '#f '#f) (##unchecked-structure-set! - _%self128429%_ + _%self129716%_ (##fx- (gx#current-expander-phi) '1) '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128429%_ + _%self129716%_ '3 - (##vector-length _%self128429%_))))) + (##vector-length _%self129716%_))))) (define gx#import-expander:::init! gx#import-export-expander-init!) (__bind-method!__% gx#import-expander::t @@ -580,10 +580,10 @@ gx#import-export-expander:::init! '#f) (define gx#import-expander::apply-import-expander - (lambda (_%g128055128058%_ _%g128056128060%_) + (lambda (_%g129342129345%_ _%g129343129347%_) (gx#core-apply-user-expander__% - _%g128055128058%_ - _%g128056128060%_ + _%g129342129345%_ + _%g129343129347%_ 'apply-import-expander))) (__bind-method!__% gx#import-expander::t @@ -591,10 +591,10 @@ gx#import-expander::apply-import-expander '#f) (define gx#export-expander::apply-export-expander - (lambda (_%g127926127929%_ _%g127927127931%_) + (lambda (_%g129213129216%_ _%g129214129218%_) (gx#core-apply-user-expander__% - _%g127926127929%_ - _%g127927127931%_ + _%g129213129216%_ + _%g129214129218%_ 'apply-export-expander))) (__bind-method!__% gx#export-expander::t @@ -602,113 +602,113 @@ gx#export-expander::apply-export-expander '#f) (define gx#module-source-path - (lambda (_%ctx127797%_) - (let* ((_%path127799%_ - (##structure-ref _%ctx127797%_ '7 gx#module-context::t '#f)) - (_%path127801%_ - (if (pair? _%path127799%_) - (##last _%path127799%_) - _%path127799%_))) - (if (string? _%path127801%_) _%path127801%_ '#f)))) + (lambda (_%ctx129084%_) + (let* ((_%path129086%_ + (##structure-ref _%ctx129084%_ '7 gx#module-context::t '#f)) + (_%path129088%_ + (if (pair? _%path129086%_) + (##last _%path129086%_) + _%path129086%_))) + (if (string? _%path129088%_) _%path129088%_ '#f)))) (define gx#import-module__% - (lambda (_%path127773%_ _%reload?127774%_ _%eval?127775%_) - (let ((_%ctx127777%_ + (lambda (_%path129060%_ _%reload?129061%_ _%eval?129062%_) + (let ((_%ctx129064%_ ((gx#current-expander-module-import) - _%path127773%_ - _%reload?127774%_))) - (if (and _%ctx127777%_ _%eval?127775%_) - (gx#eval-module _%ctx127777%_) + _%path129060%_ + _%reload?129061%_))) + (if (and _%ctx129064%_ _%eval?129062%_) + (gx#eval-module _%ctx129064%_) '#!void) - _%ctx127777%_))) + _%ctx129064%_))) (define gx#import-module__0 - (lambda (_%path127782%_) - (let* ((_%reload?127784%_ '#f) (_%eval?127786%_ '#f)) + (lambda (_%path129069%_) + (let* ((_%reload?129071%_ '#f) (_%eval?129073%_ '#f)) (gx#import-module__% - _%path127782%_ - _%reload?127784%_ - _%eval?127786%_)))) + _%path129069%_ + _%reload?129071%_ + _%eval?129073%_)))) (define gx#import-module__1 - (lambda (_%path127788%_ _%reload?127789%_) - (let ((_%eval?127791%_ '#f)) + (lambda (_%path129075%_ _%reload?129076%_) + (let ((_%eval?129078%_ '#f)) (gx#import-module__% - _%path127788%_ - _%reload?127789%_ - _%eval?127791%_)))) + _%path129075%_ + _%reload?129076%_ + _%eval?129078%_)))) (define gx#import-module - (lambda _g128817_ - (let ((_g128816_ (##length _g128817_))) - (cond ((##fx= _g128816_ 1) (apply gx#import-module__0 _g128817_)) - ((##fx= _g128816_ 2) (apply gx#import-module__1 _g128817_)) - ((##fx= _g128816_ 3) (apply gx#import-module__% _g128817_)) + (lambda _g130104_ + (let ((_g130103_ (##length _g130104_))) + (cond ((##fx= _g130103_ 1) (apply gx#import-module__0 _g130104_)) + ((##fx= _g130103_ 2) (apply gx#import-module__1 _g130104_)) + ((##fx= _g130103_ 3) (apply gx#import-module__% _g130104_)) (else (##raise-wrong-number-of-arguments-exception gx#import-module - _g128817_)))))) + _g130104_)))))) (define gx#eval-module - (lambda (_%mod127770%_) - ((gx#current-expander-module-eval) _%mod127770%_))) + (lambda (_%mod129057%_) + ((gx#current-expander-module-eval) _%mod129057%_))) (define gx#core-eval-module - (lambda (_%obj127750%_) - (letrec ((_%force-e127752%_ - (lambda (_%getf127766%_ _%e127767%_) + (lambda (_%obj129037%_) + (letrec ((_%force-e129039%_ + (lambda (_%getf129053%_ _%e129054%_) (__call-with-parameters - (lambda () (force (_%getf127766%_ _%e127767%_))) + (lambda () (force (_%getf129053%_ _%e129054%_))) gx#current-expander-context - _%e127767%_ + _%e129054%_ gx#current-expander-phi '0)))) - (let _%recur127754%_ ((_%e127756%_ _%obj127750%_)) - (if (##structure-instance-of? _%e127756%_ 'gx#module-context::t) + (let _%recur129041%_ ((_%e129043%_ _%obj129037%_)) + (if (##structure-instance-of? _%e129043%_ 'gx#module-context::t) (let () - (let ((_%$e127759%_ - (gx#core-context-prelude__% _%e127756%_))) - (if _%$e127759%_ (_%recur127754%_ _%$e127759%_) '#!void)) - (_%force-e127752%_ gx#module-context-e _%e127756%_)) + (let ((_%$e129046%_ + (gx#core-context-prelude__% _%e129043%_))) + (if _%$e129046%_ (_%recur129041%_ _%$e129046%_) '#!void)) + (_%force-e129039%_ gx#module-context-e _%e129043%_)) (if (##structure-instance-of? - _%e127756%_ + _%e129043%_ 'gx#prelude-context::t) - (_%force-e127752%_ gx#prelude-context-e _%e127756%_) - (if (gx#stx-string? _%e127756%_) - (_%recur127754%_ + (_%force-e129039%_ gx#prelude-context-e _%e129043%_) + (if (gx#stx-string? _%e129043%_) + (_%recur129041%_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _%e127756%_))) - (if (gx#core-library-module-path? _%e127756%_) - (_%recur127754%_ + (gx#core-resolve-module-path__0 _%e129043%_))) + (if (gx#core-library-module-path? _%e129043%_) + (_%recur129041%_ (gx#import-module__0 (gx#core-resolve-library-module-path - _%e127756%_))) - (error '"cannot eval module" _%obj127750%_))))))))) + _%e129043%_))) + (error '"cannot eval module" _%obj129037%_))))))))) (define gx#core-context-prelude__% - (lambda (_%ctx127730%_) - (let _%lp127732%_ ((_%e127734%_ _%ctx127730%_)) - (if (or (##structure-instance-of? _%e127734%_ 'gx#module-context::t) - (##structure-instance-of? _%e127734%_ 'gx#local-context::t)) - (_%lp127732%_ (##unchecked-structure-ref _%e127734%_ '3 '#f '#f)) - (if (##structure-instance-of? _%e127734%_ 'gx#prelude-context::t) - _%e127734%_ + (lambda (_%ctx129017%_) + (let _%lp129019%_ ((_%e129021%_ _%ctx129017%_)) + (if (or (##structure-instance-of? _%e129021%_ 'gx#module-context::t) + (##structure-instance-of? _%e129021%_ 'gx#local-context::t)) + (_%lp129019%_ (##unchecked-structure-ref _%e129021%_ '3 '#f '#f)) + (if (##structure-instance-of? _%e129021%_ 'gx#prelude-context::t) + _%e129021%_ '#f))))) (define gx#core-context-prelude__0 (lambda () - (let ((_%ctx127746%_ (gx#current-expander-context))) - (gx#core-context-prelude__% _%ctx127746%_)))) + (let ((_%ctx129033%_ (gx#current-expander-context))) + (gx#core-context-prelude__% _%ctx129033%_)))) (define gx#core-context-prelude - (lambda _g128819_ - (let ((_g128818_ (##length _g128819_))) - (cond ((##fx= _g128818_ 0) - (apply gx#core-context-prelude__0 _g128819_)) - ((##fx= _g128818_ 1) - (apply gx#core-context-prelude__% _g128819_)) + (lambda _g130106_ + (let ((_g130105_ (##length _g130106_))) + (cond ((##fx= _g130105_ 0) + (apply gx#core-context-prelude__0 _g130106_)) + ((##fx= _g130105_ 1) + (apply gx#core-context-prelude__% _g130106_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-prelude - _g128819_)))))) + _g130106_)))))) (define gx#core-module->prelude-context - (lambda (_%ctx127721%_) - (let ((_%$e127723%_ (__hash-get gx#__module-registry _%ctx127721%_))) - (if _%$e127723%_ - _%$e127723%_ - (let ((_%pre127727%_ - (let ((__obj128810 + (lambda (_%ctx129008%_) + (let ((_%$e129010%_ (__hash-get gx#__module-registry _%ctx129008%_))) + (if _%$e129010%_ + _%$e129010%_ + (let ((_%pre129014%_ + (let ((__obj130097 (##structure gx#prelude-context::t '#f @@ -720,52 +720,52 @@ '#f '#f))) (gx#prelude-context:::init!__0 - __obj128810 - _%ctx127721%_) - __obj128810))) - (__hash-put! gx#__module-registry _%ctx127721%_ _%pre127727%_) - _%pre127727%_))))) + __obj130097 + _%ctx129008%_) + __obj130097))) + (__hash-put! gx#__module-registry _%ctx129008%_ _%pre129014%_) + _%pre129014%_))))) (define gx#core-import-module__% - (lambda (_%rpath127593%_ _%reload?127594%_) - (letrec ((_%import-source127596%_ - (lambda (_%path127685%_) - (if (member _%path127685%_ (gx#current-expander-path)) - (error '"Cyclic expansion" _%path127685%_) + (lambda (_%rpath128880%_ _%reload?128881%_) + (letrec ((_%import-source128883%_ + (lambda (_%path128972%_) + (if (member _%path128972%_ (gx#current-expander-path)) + (error '"Cyclic expansion" _%path128972%_) '#!void) (__call-with-parameters (lambda () - (let ((_g128820_ (gx#core-read-module _%path127685%_))) + (let ((_g130107_ (gx#core-read-module _%path128972%_))) (begin - (let ((_g128821_ - (if (##values? _g128820_) - (##vector-length _g128820_) + (let ((_g130108_ + (if (##values? _g130107_) + (##values-length _g130107_) 1))) - (if (not (##fx= _g128821_ 4)) - (error "Context expects 4 values" _g128821_))) - (let ((_%pre127688%_ (##vector-ref _g128820_ 0)) - (_%id127689%_ (##vector-ref _g128820_ 1)) - (_%ns127690%_ (##vector-ref _g128820_ 2)) - (_%body127691%_ (##vector-ref _g128820_ 3))) - (let* ((_%prelude127701%_ + (if (not (##fx= _g130108_ 4)) + (error "Context expects 4 values" _g130108_))) + (let ((_%pre128975%_ (##values-ref _g130107_ 0)) + (_%id128976%_ (##values-ref _g130107_ 1)) + (_%ns128977%_ (##values-ref _g130107_ 2)) + (_%body128978%_ (##values-ref _g130107_ 3))) + (let* ((_%prelude128988%_ (if (##structure-instance-of? - _%pre127688%_ + _%pre128975%_ 'gx#prelude-context::t) - _%pre127688%_ + _%pre128975%_ (if (##structure-instance-of? - _%pre127688%_ + _%pre128975%_ 'gx#module-context::t) (gx#core-module->prelude-context - _%pre127688%_) - (if (string? _%pre127688%_) + _%pre128975%_) + (if (string? _%pre128975%_) (gx#core-module->prelude-context (gx#core-import-module__0 - _%pre127688%_)) - (if (not _%pre127688%_) - (let ((_%$e127697%_ + _%pre128975%_)) + (if (not _%pre128975%_) + (let ((_%$e128984%_ (gx#current-expander-module-prelude))) - (if _%$e127697%_ - _%$e127697%_ - (let ((__obj128811 + (if _%$e128984%_ + _%$e128984%_ + (let ((__obj130098 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure gx#prelude-context::t @@ -777,14 +777,14 @@ '#f '#f '#f))) - (gx#prelude-context:::init!__0 __obj128811 '#f) - __obj128811))) + (gx#prelude-context:::init!__0 __obj130098 '#f) + __obj130098))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"cannot import module; unknown prelude" - _%rpath127593%_ - _%pre127688%_)))))) - (_%ctx127703%_ - (let ((__obj128812 + _%rpath128880%_ + _%pre128975%_)))))) + (_%ctx128990%_ + (let ((__obj130099 (##structure gx#module-context::t '#f @@ -799,44 +799,44 @@ '#f '#f))) (gx#module-context:::init! - __obj128812 - _%id127689%_ - _%prelude127701%_ - _%ns127690%_ - _%path127685%_) - __obj128812)) - (_%body127705%_ + __obj130099 + _%id128976%_ + _%prelude128988%_ + _%ns128977%_ + _%path128972%_) + __obj130099)) + (_%body128992%_ (gx#core-expand-module-begin - _%body127691%_ - _%ctx127703%_)) - (_%body127707%_ + _%body128978%_ + _%ctx128990%_)) + (_%body128994%_ (gx#core-quote-syntax__% - (gx#core-cons '%#begin _%body127705%_) - _%path127685%_ - _%ctx127703%_ + (gx#core-cons '%#begin _%body128992%_) + _%path128972%_ + _%ctx128990%_ '()))) (##unchecked-structure-set! - _%ctx127703%_ + _%ctx128990%_ (__make-promise - (lambda () (gx#eval-syntax* _%body127707%_))) + (lambda () (gx#eval-syntax* _%body128994%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx127703%_ - _%body127707%_ + _%ctx128990%_ + _%body128994%_ '11 '#f '#f) (__hash-put! gx#__module-registry - _%path127685%_ - _%ctx127703%_) + _%path128972%_ + _%ctx128990%_) (__hash-put! gx#__module-registry - _%id127689%_ - _%ctx127703%_) - _%ctx127703%_))))) + _%id128976%_ + _%ctx128990%_) + _%ctx128990%_))))) gx#current-expander-context (gx#core-context-root__0) gx#current-expander-marks @@ -844,1327 +844,1327 @@ gx#current-expander-phi '0 gx#current-expander-path - (cons _%path127685%_ (gx#current-expander-path)) + (cons _%path128972%_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))) - (_%import-submodule127597%_ - (lambda (_%rpath127613%_) - (let* ((_%rpath127614127621%_ _%rpath127613%_) - (_%E127616127625%_ + (_%import-submodule128884%_ + (lambda (_%rpath128900%_) + (let* ((_%rpath128901128908%_ _%rpath128900%_) + (_%E128903128912%_ (lambda () (error '"No clause matching" - _%rpath127614127621%_ + _%rpath128901128908%_ '([origin . refs])) '#!void)) - (_%K127617127673%_ - (lambda (_%refs127628%_ _%origin127629%_) - (let ((_%ctx127631%_ - (if _%origin127629%_ + (_%K128904128960%_ + (lambda (_%refs128915%_ _%origin128916%_) + (let ((_%ctx128918%_ + (if _%origin128916%_ (gx#core-import-module__% - _%origin127629%_ - _%reload?127594%_) + _%origin128916%_ + _%reload?128881%_) (gx#current-expander-context)))) - (let _%lp127633%_ ((_%rest127635%_ - _%refs127628%_) - (_%ctx127636%_ - _%ctx127631%_)) - (let* ((_%rest127637127645%_ _%rest127635%_) - (_%else127639127653%_ - (lambda () _%ctx127636%_)) - (_%K127641127661%_ - (lambda (_%rest127656%_ _%id127657%_) - (let ((_%bind127659%_ + (let _%lp128920%_ ((_%rest128922%_ + _%refs128915%_) + (_%ctx128923%_ + _%ctx128918%_)) + (let* ((_%rest128924128932%_ _%rest128922%_) + (_%else128926128940%_ + (lambda () _%ctx128923%_)) + (_%K128928128948%_ + (lambda (_%rest128943%_ _%id128944%_) + (let ((_%bind128946%_ (gx#resolve-identifier__% - _%id127657%_ + _%id128944%_ '0 - _%ctx127636%_))) + _%ctx128923%_))) (if (and (##structure-direct-instance-of? - _%bind127659%_ + _%bind128946%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind127659%_ + _%bind128946%_ '4 '#f '#f) 'gx#module-context::t)) - (_%lp127633%_ - _%rest127656%_ + (_%lp128920%_ + _%rest128943%_ (##unchecked-structure-ref - _%bind127659%_ + _%bind128946%_ '4 '#f '#f)) (error '"cannot import submodule; not bound as a module" - _%rpath127613%_ - _%id127657%_ - _%bind127659%_)))))) - (if (pair? _%rest127637127645%_) - (let ((_%hd127642127664%_ - (##car _%rest127637127645%_)) - (_%tl127643127666%_ - (##cdr _%rest127637127645%_))) - (let* ((_%id127669%_ - _%hd127642127664%_) - (_%rest127671%_ - _%tl127643127666%_)) - (_%K127641127661%_ - _%rest127671%_ - _%id127669%_))) - (_%else127639127653%_)))))))) - (if (pair? _%rpath127614127621%_) - (let ((_%hd127618127676%_ - (##car _%rpath127614127621%_)) - (_%tl127619127678%_ - (##cdr _%rpath127614127621%_))) - (let* ((_%origin127681%_ _%hd127618127676%_) - (_%refs127683%_ _%tl127619127678%_)) - (_%K127617127673%_ - _%refs127683%_ - _%origin127681%_))) - (_%E127616127625%_)))))) - (let ((_%$e127599%_ - (if (not _%reload?127594%_) - (__hash-get gx#__module-registry _%rpath127593%_) + _%rpath128900%_ + _%id128944%_ + _%bind128946%_)))))) + (if (pair? _%rest128924128932%_) + (let ((_%hd128929128951%_ + (##car _%rest128924128932%_)) + (_%tl128930128953%_ + (##cdr _%rest128924128932%_))) + (let* ((_%id128956%_ + _%hd128929128951%_) + (_%rest128958%_ + _%tl128930128953%_)) + (_%K128928128948%_ + _%rest128958%_ + _%id128956%_))) + (_%else128926128940%_)))))))) + (if (pair? _%rpath128901128908%_) + (let ((_%hd128905128963%_ + (##car _%rpath128901128908%_)) + (_%tl128906128965%_ + (##cdr _%rpath128901128908%_))) + (let* ((_%origin128968%_ _%hd128905128963%_) + (_%refs128970%_ _%tl128906128965%_)) + (_%K128904128960%_ + _%refs128970%_ + _%origin128968%_))) + (_%E128903128912%_)))))) + (let ((_%$e128886%_ + (if (not _%reload?128881%_) + (__hash-get gx#__module-registry _%rpath128880%_) '#f))) - (if _%$e127599%_ - _%$e127599%_ - (if (list? _%rpath127593%_) - (_%import-submodule127597%_ _%rpath127593%_) - (if (gx#core-library-module-path? _%rpath127593%_) - (let ((_%ctx127604%_ + (if _%$e128886%_ + _%$e128886%_ + (if (list? _%rpath128880%_) + (_%import-submodule128884%_ _%rpath128880%_) + (if (gx#core-library-module-path? _%rpath128880%_) + (let ((_%ctx128891%_ (gx#core-import-module__% (gx#core-resolve-library-module-path - _%rpath127593%_) - _%reload?127594%_))) + _%rpath128880%_) + _%reload?128881%_))) (__hash-put! gx#__module-registry - _%rpath127593%_ - _%ctx127604%_) - _%ctx127604%_) - (let* ((_%npath127607%_ - (path-normalize _%rpath127593%_)) - (_%$e127609%_ - (if (not _%reload?127594%_) + _%rpath128880%_ + _%ctx128891%_) + _%ctx128891%_) + (let* ((_%npath128894%_ + (path-normalize _%rpath128880%_)) + (_%$e128896%_ + (if (not _%reload?128881%_) (__hash-get gx#__module-registry - _%npath127607%_) + _%npath128894%_) '#f))) - (if _%$e127609%_ - _%$e127609%_ - (_%import-source127596%_ - _%npath127607%_)))))))))) + (if _%$e128896%_ + _%$e128896%_ + (_%import-source128883%_ + _%npath128894%_)))))))))) (define gx#core-import-module__0 - (lambda (_%rpath127714%_) - (let ((_%reload?127716%_ '#f)) - (gx#core-import-module__% _%rpath127714%_ _%reload?127716%_)))) + (lambda (_%rpath129001%_) + (let ((_%reload?129003%_ '#f)) + (gx#core-import-module__% _%rpath129001%_ _%reload?129003%_)))) (define gx#core-import-module - (lambda _g128823_ - (let ((_g128822_ (##length _g128823_))) - (cond ((##fx= _g128822_ 1) - (apply gx#core-import-module__0 _g128823_)) - ((##fx= _g128822_ 2) - (apply gx#core-import-module__% _g128823_)) + (lambda _g130110_ + (let ((_g130109_ (##length _g130110_))) + (cond ((##fx= _g130109_ 1) + (apply gx#core-import-module__0 _g130110_)) + ((##fx= _g130109_ 2) + (apply gx#core-import-module__% _g130110_)) (else (##raise-wrong-number-of-arguments-exception gx#core-import-module - _g128823_)))))) + _g130110_)))))) (define gx#core-read-module - (lambda (_%path127582%_) + (lambda (_%path128869%_) (__with-catch - (lambda (_%exn127584%_) - (if (and (datum-parsing-exception? _%exn127584%_) - (eq? (datum-parsing-exception-filepos _%exn127584%_) '0)) - (gx#core-read-module/lang _%path127582%_) + (lambda (_%exn128871%_) + (if (and (datum-parsing-exception? _%exn128871%_) + (eq? (datum-parsing-exception-filepos _%exn128871%_) '0)) + (gx#core-read-module/lang _%path128869%_) (gx#raise-syntax-error 'read-module '"error reading module" - _%path127582%_ + _%path128869%_ (__call-with-parameters (lambda () (call-with-output-string '"" - (lambda (_%g127586127588%_) - (display-exception__% _%exn127584%_ _%g127586127588%_)))) + (lambda (_%g128873128875%_) + (display-exception__% _%exn128871%_ _%g128873128875%_)))) dump-stack-trace? '#f)))) - (lambda () (gx#core-read-module/sexp _%path127582%_))))) + (lambda () (gx#core-read-module/sexp _%path128869%_))))) (define gx#core-read-module/sexp - (lambda (_%path127434%_) - (let _%lp127436%_ ((_%body127438%_ - (read-syntax-from-file _%path127434%_)) - (_%pre127439%_ '#f) - (_%ns127440%_ '#f) - (_%pkg127441%_ '#f)) - (let* ((_%e127442127466%_ _%body127438%_) - (_%E127458127492%_ + (lambda (_%path128721%_) + (let _%lp128723%_ ((_%body128725%_ + (read-syntax-from-file _%path128721%_)) + (_%pre128726%_ '#f) + (_%ns128727%_ '#f) + (_%pkg128728%_ '#f)) + (let* ((_%e128729128753%_ _%body128725%_) + (_%E128745128779%_ (lambda () - (let ((_g128824_ - (if _%pkg127441%_ - (values _%pre127439%_ - _%ns127440%_ - _%pkg127441%_) + (let ((_g130111_ + (if _%pkg128728%_ + (values _%pre128726%_ + _%ns128727%_ + _%pkg128728%_) (gx#core-read-module-package - _%path127434%_ - _%pre127439%_ - _%ns127440%_)))) + _%path128721%_ + _%pre128726%_ + _%ns128727%_)))) (begin - (let ((_g128825_ - (if (##values? _g128824_) - (##vector-length _g128824_) + (let ((_g130112_ + (if (##values? _g130111_) + (##values-length _g130111_) 1))) - (if (not (##fx= _g128825_ 3)) - (error "Context expects 3 values" _g128825_))) - (let ((_%pre127470%_ (##vector-ref _g128824_ 0)) - (_%ns127471%_ (##vector-ref _g128824_ 1)) - (_%pkg127472%_ (##vector-ref _g128824_ 2))) - (let* ((_%prelude127478%_ + (if (not (##fx= _g130112_ 3)) + (error "Context expects 3 values" _g130112_))) + (let ((_%pre128757%_ (##values-ref _g130111_ 0)) + (_%ns128758%_ (##values-ref _g130111_ 1)) + (_%pkg128759%_ (##values-ref _g130111_ 2))) + (let* ((_%prelude128765%_ (if (gx#core-bound-module-prelude? - _%pre127470%_) - (gx#syntax-local-e__0 _%pre127470%_) + _%pre128757%_) + (gx#syntax-local-e__0 _%pre128757%_) (if (gx#core-library-module-path? - _%pre127470%_) + _%pre128757%_) (gx#core-resolve-library-module-path - _%pre127470%_) - (if (gx#stx-string? _%pre127470%_) + _%pre128757%_) + (if (gx#stx-string? _%pre128757%_) (gx#core-resolve-module-path__% - _%pre127470%_ - _%path127434%_) - (gx#stx-e _%pre127470%_))))) - (_%path-id127480%_ + _%pre128757%_ + _%path128721%_) + (gx#stx-e _%pre128757%_))))) + (_%path-id128767%_ (gx#core-module-path->namespace - _%path127434%_)) - (_%pkg-id127482%_ - (if _%pkg127472%_ + _%path128721%_)) + (_%pkg-id128769%_ + (if _%pkg128759%_ (##string-append - _%pkg127472%_ + _%pkg128759%_ '"/" - _%path-id127480%_) - _%path-id127480%_)) - (_%module-id127484%_ - (##string->symbol _%pkg-id127482%_)) - (_%module-ns127489%_ - (if (eq? _%ns127471%_ '#!void) + _%path-id128767%_) + _%path-id128767%_)) + (_%module-id128771%_ + (##string->symbol _%pkg-id128769%_)) + (_%module-ns128776%_ + (if (eq? _%ns128758%_ '#!void) '#f - (let ((_%$e127486%_ _%ns127471%_)) - (if _%$e127486%_ - _%$e127486%_ - _%pkg-id127482%_))))) - (values _%prelude127478%_ - _%module-id127484%_ - _%module-ns127489%_ - _%body127438%_))))))) - (_%E127451127524%_ + (let ((_%$e128773%_ _%ns128758%_)) + (if _%$e128773%_ + _%$e128773%_ + _%pkg-id128769%_))))) + (values _%prelude128765%_ + _%module-id128771%_ + _%module-ns128776%_ + _%body128725%_))))))) + (_%E128738128811%_ (lambda () - (if (gx#stx-pair? _%e127442127466%_) - (let ((_%e127459127496%_ - (gx#syntax-e _%e127442127466%_))) - (let ((_%hd127460127499%_ (##car _%e127459127496%_)) - (_%tl127461127501%_ (##cdr _%e127459127496%_))) - (if (eq? (gx#stx-e _%hd127460127499%_) 'package:) - (if (gx#stx-pair? _%tl127461127501%_) - (let ((_%e127462127504%_ - (gx#syntax-e _%tl127461127501%_))) - (let ((_%hd127463127507%_ - (##car _%e127462127504%_)) - (_%tl127464127509%_ - (##cdr _%e127462127504%_))) - (let* ((_%pkg127512%_ - _%hd127463127507%_) - (_%rest127514%_ - _%tl127464127509%_) - (_%pkg127522%_ + (if (gx#stx-pair? _%e128729128753%_) + (let ((_%e128746128783%_ + (gx#syntax-e _%e128729128753%_))) + (let ((_%hd128747128786%_ (##car _%e128746128783%_)) + (_%tl128748128788%_ (##cdr _%e128746128783%_))) + (if (eq? (gx#stx-e _%hd128747128786%_) 'package:) + (if (gx#stx-pair? _%tl128748128788%_) + (let ((_%e128749128791%_ + (gx#syntax-e _%tl128748128788%_))) + (let ((_%hd128750128794%_ + (##car _%e128749128791%_)) + (_%tl128751128796%_ + (##cdr _%e128749128791%_))) + (let* ((_%pkg128799%_ + _%hd128750128794%_) + (_%rest128801%_ + _%tl128751128796%_) + (_%pkg128809%_ (if (gx#identifier? - _%pkg127512%_) + _%pkg128799%_) (symbol->string - (gx#stx-e _%pkg127512%_)) + (gx#stx-e _%pkg128799%_)) (if (or (gx#stx-string? - _%pkg127512%_) + _%pkg128799%_) (gx#stx-false? - _%pkg127512%_)) + _%pkg128799%_)) (gx#stx-e - _%pkg127512%_) + _%pkg128799%_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _%pkg127512%_))))) - (_%lp127436%_ - _%rest127514%_ - _%pre127439%_ - _%ns127440%_ - _%pkg127522%_)))) - (_%E127458127492%_)) - (_%E127458127492%_)))) - (_%E127458127492%_)))) - (_%E127444127554%_ + _%pkg128799%_))))) + (_%lp128723%_ + _%rest128801%_ + _%pre128726%_ + _%ns128727%_ + _%pkg128809%_)))) + (_%E128745128779%_)) + (_%E128745128779%_)))) + (_%E128745128779%_)))) + (_%E128731128841%_ (lambda () - (if (gx#stx-pair? _%e127442127466%_) - (let ((_%e127452127528%_ - (gx#syntax-e _%e127442127466%_))) - (let ((_%hd127453127531%_ (##car _%e127452127528%_)) - (_%tl127454127533%_ (##cdr _%e127452127528%_))) - (if (eq? (gx#stx-e _%hd127453127531%_) 'namespace:) - (if (gx#stx-pair? _%tl127454127533%_) - (let ((_%e127455127536%_ - (gx#syntax-e _%tl127454127533%_))) - (let ((_%hd127456127539%_ - (##car _%e127455127536%_)) - (_%tl127457127541%_ - (##cdr _%e127455127536%_))) - (let* ((_%ns127544%_ - _%hd127456127539%_) - (_%rest127546%_ - _%tl127457127541%_) - (_%ns127552%_ + (if (gx#stx-pair? _%e128729128753%_) + (let ((_%e128739128815%_ + (gx#syntax-e _%e128729128753%_))) + (let ((_%hd128740128818%_ (##car _%e128739128815%_)) + (_%tl128741128820%_ (##cdr _%e128739128815%_))) + (if (eq? (gx#stx-e _%hd128740128818%_) 'namespace:) + (if (gx#stx-pair? _%tl128741128820%_) + (let ((_%e128742128823%_ + (gx#syntax-e _%tl128741128820%_))) + (let ((_%hd128743128826%_ + (##car _%e128742128823%_)) + (_%tl128744128828%_ + (##cdr _%e128742128823%_))) + (let* ((_%ns128831%_ + _%hd128743128826%_) + (_%rest128833%_ + _%tl128744128828%_) + (_%ns128839%_ (if (gx#identifier? - _%ns127544%_) + _%ns128831%_) (symbol->string - (gx#stx-e _%ns127544%_)) + (gx#stx-e _%ns128831%_)) (if (gx#stx-string? - _%ns127544%_) - (gx#stx-e _%ns127544%_) + _%ns128831%_) + (gx#stx-e _%ns128831%_) (if (gx#stx-false? - _%ns127544%_) + _%ns128831%_) '#!void (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _%ns127544%_)))))) - (_%lp127436%_ - _%rest127546%_ - _%pre127439%_ - _%ns127552%_ - _%pkg127441%_)))) - (_%E127451127524%_)) - (_%E127451127524%_)))) - (_%E127451127524%_)))) - (_%E127443127578%_ + _%ns128831%_)))))) + (_%lp128723%_ + _%rest128833%_ + _%pre128726%_ + _%ns128839%_ + _%pkg128728%_)))) + (_%E128738128811%_)) + (_%E128738128811%_)))) + (_%E128738128811%_)))) + (_%E128730128865%_ (lambda () - (if (gx#stx-pair? _%e127442127466%_) - (let ((_%e127445127558%_ - (gx#syntax-e _%e127442127466%_))) - (let ((_%hd127446127561%_ (##car _%e127445127558%_)) - (_%tl127447127563%_ (##cdr _%e127445127558%_))) - (if (eq? (gx#stx-e _%hd127446127561%_) 'prelude:) - (if (gx#stx-pair? _%tl127447127563%_) - (let ((_%e127448127566%_ - (gx#syntax-e _%tl127447127563%_))) - (let ((_%hd127449127569%_ - (##car _%e127448127566%_)) - (_%tl127450127571%_ - (##cdr _%e127448127566%_))) - (let* ((_%prelude127574%_ - _%hd127449127569%_) - (_%rest127576%_ - _%tl127450127571%_)) - (_%lp127436%_ - _%rest127576%_ - _%prelude127574%_ - _%ns127440%_ - _%pkg127441%_)))) - (_%E127444127554%_)) - (_%E127444127554%_)))) - (_%E127444127554%_))))) - (_%E127443127578%_))))) + (if (gx#stx-pair? _%e128729128753%_) + (let ((_%e128732128845%_ + (gx#syntax-e _%e128729128753%_))) + (let ((_%hd128733128848%_ (##car _%e128732128845%_)) + (_%tl128734128850%_ (##cdr _%e128732128845%_))) + (if (eq? (gx#stx-e _%hd128733128848%_) 'prelude:) + (if (gx#stx-pair? _%tl128734128850%_) + (let ((_%e128735128853%_ + (gx#syntax-e _%tl128734128850%_))) + (let ((_%hd128736128856%_ + (##car _%e128735128853%_)) + (_%tl128737128858%_ + (##cdr _%e128735128853%_))) + (let* ((_%prelude128861%_ + _%hd128736128856%_) + (_%rest128863%_ + _%tl128737128858%_)) + (_%lp128723%_ + _%rest128863%_ + _%prelude128861%_ + _%ns128727%_ + _%pkg128728%_)))) + (_%E128731128841%_)) + (_%E128731128841%_)))) + (_%E128731128841%_))))) + (_%E128730128865%_))))) (define gx#core-read-module/lang - (lambda (_%path127256%_) - (letrec ((_%default-read-module-body127258%_ - (lambda (_%inp127426%_) - (let _%lp127428%_ ((_%body127430%_ '())) - (let ((_%next127432%_ (read-syntax__% _%inp127426%_))) - (if (eof-object? _%next127432%_) - (reverse _%body127430%_) - (_%lp127428%_ - (cons _%next127432%_ _%body127430%_))))))) - (_%read-body127259%_ - (lambda (_%inp127344%_ - _%pre127345%_ - _%ns127346%_ - _%pkg127347%_ - _%args127348%_) - (let ((_g128826_ - (if _%pkg127347%_ - (values _%pre127345%_ - _%ns127346%_ - _%pkg127347%_) + (lambda (_%path128543%_) + (letrec ((_%default-read-module-body128545%_ + (lambda (_%inp128713%_) + (let _%lp128715%_ ((_%body128717%_ '())) + (let ((_%next128719%_ (read-syntax__% _%inp128713%_))) + (if (eof-object? _%next128719%_) + (reverse _%body128717%_) + (_%lp128715%_ + (cons _%next128719%_ _%body128717%_))))))) + (_%read-body128546%_ + (lambda (_%inp128631%_ + _%pre128632%_ + _%ns128633%_ + _%pkg128634%_ + _%args128635%_) + (let ((_g130113_ + (if _%pkg128634%_ + (values _%pre128632%_ + _%ns128633%_ + _%pkg128634%_) (gx#core-read-module-package - _%path127256%_ - _%pre127345%_ - _%ns127346%_)))) + _%path128543%_ + _%pre128632%_ + _%ns128633%_)))) (begin - (let ((_g128827_ - (if (##values? _g128826_) - (##vector-length _g128826_) + (let ((_g130114_ + (if (##values? _g130113_) + (##values-length _g130113_) 1))) - (if (not (##fx= _g128827_ 3)) - (error "Context expects 3 values" _g128827_))) - (let ((_%pre127350%_ (##vector-ref _g128826_ 0)) - (_%ns127351%_ (##vector-ref _g128826_ 1)) - (_%pkg127352%_ (##vector-ref _g128826_ 2))) - (let* ((_%prelude127354%_ - (gx#import-module__0 _%pre127350%_)) - (_%read-module-body127409%_ - (let ((_%$e127400%_ - (__find (lambda (_%e127355127357%_) - (let* ((_%g127359127369%_ - _%e127355127357%_) - (_%else127361127377%_ + (if (not (##fx= _g130114_ 3)) + (error "Context expects 3 values" _g130114_))) + (let ((_%pre128637%_ (##values-ref _g130113_ 0)) + (_%ns128638%_ (##values-ref _g130113_ 1)) + (_%pkg128639%_ (##values-ref _g130113_ 2))) + (let* ((_%prelude128641%_ + (gx#import-module__0 _%pre128637%_)) + (_%read-module-body128696%_ + (let ((_%$e128687%_ + (__find (lambda (_%e128642128644%_) + (let* ((_%g128646128656%_ + _%e128642128644%_) + (_%else128648128664%_ (lambda () '#f)) - (_%K127363127381%_ + (_%K128650128668%_ (lambda () '#t))) (if (##structure-direct-instance-of? - _%g127359127369%_ + _%g128646128656%_ 'gx#module-export::t) - (let* ((_%e127364127384%_ + (let* ((_%e128651128671%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##unchecked-structure-ref - _%g127359127369%_ + _%g128646128656%_ '1 '#f '#f)) - (_%e127365127387%_ + (_%e128652128674%_ (##unchecked-structure-ref - _%g127359127369%_ + _%g128646128656%_ '2 '#f '#f)) - (_%e127366127390%_ + (_%e128653128677%_ (##unchecked-structure-ref - _%g127359127369%_ + _%g128646128656%_ '3 '#f '#f))) - (if (##eq? _%e127366127390%_ '1) - (let ((_%e127367127393%_ + (if (##eq? _%e128653128677%_ '1) + (let ((_%e128654128680%_ (##unchecked-structure-ref - _%g127359127369%_ + _%g128646128656%_ '4 '#f '#f))) - (if ((lambda (_%g127395127397%_) - (eq? _%g127395127397%_ 'read-module-body)) - _%e127367127393%_) - (_%K127363127381%_) - (_%else127361127377%_))) - (_%else127361127377%_))) - (_%else127361127377%_)))) + (if ((lambda (_%g128682128684%_) + (eq? _%g128682128684%_ 'read-module-body)) + _%e128654128680%_) + (_%K128650128668%_) + (_%else128648128664%_))) + (_%else128648128664%_))) + (_%else128648128664%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _%prelude127354%_ + _%prelude128641%_ '9 '#f '#f)))) - (if _%$e127400%_ - ((lambda (_%xport127403%_) - (let ((_%proc127406%_ + (if _%$e128687%_ + ((lambda (_%xport128690%_) + (let ((_%proc128693%_ (__with-catch void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _%xport127403%_) + _%xport128690%_) '1 gx#binding::t '#f)))))) - (if (procedure? _%proc127406%_) - _%proc127406%_ + (if (procedure? _%proc128693%_) + _%proc128693%_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _%path127256%_ - _%pre127350%_ - _%proc127406%_)))) - _%$e127400%_) - _%default-read-module-body127258%_))) - (_%path-id127411%_ + _%path128543%_ + _%pre128637%_ + _%proc128693%_)))) + _%$e128687%_) + _%default-read-module-body128545%_))) + (_%path-id128698%_ (gx#core-module-path->namespace - _%path127256%_)) - (_%pkg-id127413%_ - (if _%pkg127352%_ + _%path128543%_)) + (_%pkg-id128700%_ + (if _%pkg128639%_ (##string-append - _%pkg127352%_ + _%pkg128639%_ '"/" - _%path-id127411%_) - _%path-id127411%_)) - (_%module-id127415%_ - (##string->symbol _%pkg-id127413%_)) - (_%module-ns127420%_ - (let ((_%$e127417%_ _%ns127351%_)) - (if _%$e127417%_ - _%$e127417%_ - _%pkg-id127413%_))) - (_%body127423%_ + _%path-id128698%_) + _%path-id128698%_)) + (_%module-id128702%_ + (##string->symbol _%pkg-id128700%_)) + (_%module-ns128707%_ + (let ((_%$e128704%_ _%ns128638%_)) + (if _%$e128704%_ + _%$e128704%_ + _%pkg-id128700%_))) + (_%body128710%_ (__call-with-parameters (lambda () - (_%read-module-body127409%_ - _%inp127344%_)) + (_%read-module-body128696%_ + _%inp128631%_)) gx#current-module-reader-path - _%path127256%_ + _%path128543%_ gx#current-module-reader-args - _%args127348%_))) - (values _%prelude127354%_ - _%module-id127415%_ - _%module-ns127420%_ - _%body127423%_))))))) - (_%string-e127260%_ - (lambda (_%obj127338%_ _%what127339%_) - (if (string? _%obj127338%_) - _%obj127338%_ - (if (symbol? _%obj127338%_) - (##symbol->string _%obj127338%_) + _%args128635%_))) + (values _%prelude128641%_ + _%module-id128702%_ + _%module-ns128707%_ + _%body128710%_))))))) + (_%string-e128547%_ + (lambda (_%obj128625%_ _%what128626%_) + (if (string? _%obj128625%_) + _%obj128625%_ + (if (symbol? _%obj128625%_) + (##symbol->string _%obj128625%_) (gx#raise-syntax-error '#f - (string-append '"Illegal module " _%what127339%_) - _%path127256%_ - _%obj127338%_))))) - (_%read-lang-args127261%_ - (lambda (_%inp127293%_ _%args127294%_) - (let* ((_%args127295127303%_ _%args127294%_) - (_%else127297127311%_ + (string-append '"Illegal module " _%what128626%_) + _%path128543%_ + _%obj128625%_))))) + (_%read-lang-args128548%_ + (lambda (_%inp128580%_ _%args128581%_) + (let* ((_%args128582128590%_ _%args128581%_) + (_%else128584128598%_ (lambda () (gx#raise-syntax-error '#f '"Illegal #lang arguments; missing prelude" - _%path127256%_))) - (_%K127299127326%_ - (lambda (_%args127314%_ _%prelude127315%_) - (let* ((_%pkg127317%_ - (pgetq__0 'package: _%args127314%_)) - (_%pkg127319%_ - (if _%pkg127317%_ - (_%string-e127260%_ - _%pkg127317%_ + _%path128543%_))) + (_%K128586128613%_ + (lambda (_%args128601%_ _%prelude128602%_) + (let* ((_%pkg128604%_ + (pgetq__0 'package: _%args128601%_)) + (_%pkg128606%_ + (if _%pkg128604%_ + (_%string-e128547%_ + _%pkg128604%_ '"package") '#f)) - (_%ns127321%_ - (pgetq__0 'namespace: _%args127314%_)) - (_%ns127323%_ - (if _%ns127321%_ - (_%string-e127260%_ - _%ns127321%_ + (_%ns128608%_ + (pgetq__0 'namespace: _%args128601%_)) + (_%ns128610%_ + (if _%ns128608%_ + (_%string-e128547%_ + _%ns128608%_ '"namespace") '#f))) - (_%read-body127259%_ - _%inp127293%_ - _%prelude127315%_ - _%ns127323%_ - _%pkg127319%_ - _%args127314%_))))) - (if (pair? _%args127295127303%_) - (let ((_%hd127300127329%_ - (##car _%args127295127303%_)) - (_%tl127301127331%_ - (##cdr _%args127295127303%_))) - (let* ((_%prelude127334%_ _%hd127300127329%_) - (_%args127336%_ _%tl127301127331%_)) - (_%K127299127326%_ - _%args127336%_ - _%prelude127334%_))) - (_%else127297127311%_))))) - (_%read-lang127262%_ - (lambda (_%inp127267%_) - (let* ((_%head127269%_ (read-line _%inp127267%_)) - (_%$e127271%_ - (string-index__0 _%head127269%_ '#\space))) - (if _%$e127271%_ - ((lambda (_%ix127274%_) - (let ((_%lang127276%_ + (_%read-body128546%_ + _%inp128580%_ + _%prelude128602%_ + _%ns128610%_ + _%pkg128606%_ + _%args128601%_))))) + (if (pair? _%args128582128590%_) + (let ((_%hd128587128616%_ + (##car _%args128582128590%_)) + (_%tl128588128618%_ + (##cdr _%args128582128590%_))) + (let* ((_%prelude128621%_ _%hd128587128616%_) + (_%args128623%_ _%tl128588128618%_)) + (_%K128586128613%_ + _%args128623%_ + _%prelude128621%_))) + (_%else128584128598%_))))) + (_%read-lang128549%_ + (lambda (_%inp128554%_) + (let* ((_%head128556%_ (read-line _%inp128554%_)) + (_%$e128558%_ + (string-index__0 _%head128556%_ '#\space))) + (if _%$e128558%_ + ((lambda (_%ix128561%_) + (let ((_%lang128563%_ (substring - _%head127269%_ + _%head128556%_ '0 - _%ix127274%_))) - (if (equal? _%lang127276%_ '"#lang") - (let* ((_%rest127278%_ + _%ix128561%_))) + (if (equal? _%lang128563%_ '"#lang") + (let* ((_%rest128565%_ (substring - _%head127269%_ - (##fx+ _%ix127274%_ '1) - (string-length _%head127269%_))) - (_%args127289%_ + _%head128556%_ + (##fx+ _%ix128561%_ '1) + (string-length _%head128556%_))) + (_%args128576%_ (__with-catch - (lambda (_%g127279127281%_) + (lambda (_%g128566128568%_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _%path127256%_ - _%g127279127281%_)) + _%path128543%_ + _%g128566128568%_)) (lambda () (call-with-input-string - _%rest127278%_ - (lambda (_%g127284127286%_) + _%rest128565%_ + (lambda (_%g128571128573%_) (read-all - _%g127284127286%_ + _%g128571128573%_ read))))))) - (_%read-lang-args127261%_ - _%inp127267%_ - _%args127289%_)) + (_%read-lang-args128548%_ + _%inp128554%_ + _%args128576%_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path127256%_)))) - _%$e127271%_) + _%path128543%_)))) + _%$e128558%_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path127256%_))))) - (_%read-e127263%_ - (lambda (_%inp127265%_) - (if (eq? (peek-char _%inp127265%_) '#\#) - (_%read-lang127262%_ _%inp127265%_) + _%path128543%_))))) + (_%read-e128550%_ + (lambda (_%inp128552%_) + (if (eq? (peek-char _%inp128552%_) '#\#) + (_%read-lang128549%_ _%inp128552%_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path127256%_))))) - (gx#call-with-input-source-file _%path127256%_ _%read-e127263%_)))) + _%path128543%_))))) + (gx#call-with-input-source-file _%path128543%_ _%read-e128550%_)))) (define gx#core-read-module-package - (lambda (_%path127204%_ _%pre127205%_ _%ns127206%_) - (letrec ((_%string-e127208%_ - (lambda (_%e127251%_) - (if (symbol? _%e127251%_) - (##symbol->string _%e127251%_) - (if (string? _%e127251%_) - _%e127251%_ + (lambda (_%path128491%_ _%pre128492%_ _%ns128493%_) + (letrec ((_%string-e128495%_ + (lambda (_%e128538%_) + (if (symbol? _%e128538%_) + (##symbol->string _%e128538%_) + (if (string? _%e128538%_) + _%e128538%_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%e127251%_)))))) - (let _%lp127210%_ ((_%dir127212%_ (path-directory _%path127204%_)) - (_%pkg-path127213%_ '())) - (let ((_%gerbil.pkg127215%_ - (path-expand '"gerbil.pkg" _%dir127212%_))) - (if (##file-exists? _%gerbil.pkg127215%_) - (let ((_%plist127217%_ - (gx#core-library-package-plist__% _%dir127212%_ '#t))) - (if (null? _%plist127217%_) - (let ((_%pkg127220%_ - (if (null? _%pkg-path127213%_) + _%e128538%_)))))) + (let _%lp128497%_ ((_%dir128499%_ (path-directory _%path128491%_)) + (_%pkg-path128500%_ '())) + (let ((_%gerbil.pkg128502%_ + (path-expand '"gerbil.pkg" _%dir128499%_))) + (if (##file-exists? _%gerbil.pkg128502%_) + (let ((_%plist128504%_ + (gx#core-library-package-plist__% _%dir128499%_ '#t))) + (if (null? _%plist128504%_) + (let ((_%pkg128507%_ + (if (null? _%pkg-path128500%_) '#f - (string-join _%pkg-path127213%_ '"/")))) - (values _%pre127205%_ _%ns127206%_ _%pkg127220%_)) - (if (list? _%plist127217%_) - (let* ((_%root127223%_ - (pgetq__0 'package: _%plist127217%_)) - (_%pkg127227%_ - (let ((_%pkg-path127225%_ - (if _%root127223%_ - (cons (_%string-e127208%_ - _%root127223%_) - _%pkg-path127213%_) - _%pkg-path127213%_))) - (if (null? _%pkg-path127225%_) + (string-join _%pkg-path128500%_ '"/")))) + (values _%pre128492%_ _%ns128493%_ _%pkg128507%_)) + (if (list? _%plist128504%_) + (let* ((_%root128510%_ + (pgetq__0 'package: _%plist128504%_)) + (_%pkg128514%_ + (let ((_%pkg-path128512%_ + (if _%root128510%_ + (cons (_%string-e128495%_ + _%root128510%_) + _%pkg-path128500%_) + _%pkg-path128500%_))) + (if (null? _%pkg-path128512%_) '#f (string-join - _%pkg-path127225%_ + _%pkg-path128512%_ '"/")))) - (_%ns127234%_ - (let ((_%ns127232%_ - (let ((_%$e127229%_ _%ns127206%_)) - (if _%$e127229%_ - _%$e127229%_ + (_%ns128521%_ + (let ((_%ns128519%_ + (let ((_%$e128516%_ _%ns128493%_)) + (if _%$e128516%_ + _%$e128516%_ (pgetq__0 'namespace: - _%plist127217%_))))) - (if _%ns127232%_ - (_%string-e127208%_ _%ns127232%_) + _%plist128504%_))))) + (if _%ns128519%_ + (_%string-e128495%_ _%ns128519%_) '#f))) - (_%pre127239%_ - (let ((_%$e127236%_ _%pre127205%_)) - (if _%$e127236%_ - _%$e127236%_ + (_%pre128526%_ + (let ((_%$e128523%_ _%pre128492%_)) + (if _%$e128523%_ + _%$e128523%_ (pgetq__0 'prelude: - _%plist127217%_))))) - (values _%pre127239%_ - _%ns127234%_ - _%pkg127227%_)) + _%plist128504%_))))) + (values _%pre128526%_ + _%ns128521%_ + _%pkg128514%_)) (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%plist127217%_)))) - (let ((_%dir*127243%_ + _%plist128504%_)))) + (let ((_%dir*128530%_ (path-strip-trailing-directory-separator - _%dir127212%_))) - (if (or (__string-empty? _%dir*127243%_) - (equal? _%dir127212%_ _%dir*127243%_)) - (values _%pre127205%_ _%ns127206%_ '#f) - (let ((_%xpath127248%_ - (path-strip-directory _%dir*127243%_)) - (_%xdir127249%_ (path-directory _%dir*127243%_))) - (_%lp127210%_ - _%xdir127249%_ - (cons _%xpath127248%_ _%pkg-path127213%_))))))))))) + _%dir128499%_))) + (if (or (__string-empty? _%dir*128530%_) + (equal? _%dir128499%_ _%dir*128530%_)) + (values _%pre128492%_ _%ns128493%_ '#f) + (let ((_%xpath128535%_ + (path-strip-directory _%dir*128530%_)) + (_%xdir128536%_ (path-directory _%dir*128530%_))) + (_%lp128497%_ + _%xdir128536%_ + (cons _%xpath128535%_ _%pkg-path128500%_))))))))))) (define gx#core-module-path->namespace - (lambda (_%path127202%_) - (path-strip-extension (path-strip-directory _%path127202%_)))) + (lambda (_%path128489%_) + (path-strip-extension (path-strip-directory _%path128489%_)))) (define gx#core-module-path->id - (lambda (_%path127200%_) - (##string->symbol (gx#core-module-path->namespace _%path127200%_)))) + (lambda (_%path128487%_) + (##string->symbol (gx#core-module-path->namespace _%path128487%_)))) (define gx#core-resolve-module-path__% - (lambda (_%stx-path127179%_ _%rel127180%_) - (let* ((_%path127182%_ (gx#stx-e _%stx-path127179%_)) - (_%path127184%_ - (if (__string-empty? (path-extension _%path127182%_)) - (##string-append _%path127182%_ '".ss") - _%path127182%_))) + (lambda (_%stx-path128466%_ _%rel128467%_) + (let* ((_%path128469%_ (gx#stx-e _%stx-path128466%_)) + (_%path128471%_ + (if (__string-empty? (path-extension _%path128469%_)) + (##string-append _%path128469%_ '".ss") + _%path128469%_))) (gx#core-resolve-path__% - _%path127184%_ - (let ((_%$e127187%_ (gx#stx-source _%stx-path127179%_))) - (if _%$e127187%_ _%$e127187%_ _%rel127180%_)))))) + _%path128471%_ + (let ((_%$e128474%_ (gx#stx-source _%stx-path128466%_))) + (if _%$e128474%_ _%$e128474%_ _%rel128467%_)))))) (define gx#core-resolve-module-path__0 - (lambda (_%stx-path127193%_) - (let ((_%rel127195%_ '#f)) - (gx#core-resolve-module-path__% _%stx-path127193%_ _%rel127195%_)))) + (lambda (_%stx-path128480%_) + (let ((_%rel128482%_ '#f)) + (gx#core-resolve-module-path__% _%stx-path128480%_ _%rel128482%_)))) (define gx#core-resolve-module-path - (lambda _g128829_ - (let ((_g128828_ (##length _g128829_))) - (cond ((##fx= _g128828_ 1) - (apply gx#core-resolve-module-path__0 _g128829_)) - ((##fx= _g128828_ 2) - (apply gx#core-resolve-module-path__% _g128829_)) + (lambda _g130116_ + (let ((_g130115_ (##length _g130116_))) + (cond ((##fx= _g130115_ 1) + (apply gx#core-resolve-module-path__0 _g130116_)) + ((##fx= _g130115_ 2) + (apply gx#core-resolve-module-path__% _g130116_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-module-path - _g128829_)))))) + _g130116_)))))) (define gx#core-resolve-library-module-path - (lambda (_%libpath127064%_) - (let* ((_%spath127066%_ (symbol->string (gx#stx-e _%libpath127064%_))) - (_%spath127068%_ + (lambda (_%libpath128351%_) + (let* ((_%spath128353%_ (symbol->string (gx#stx-e _%libpath128351%_))) + (_%spath128355%_ (substring - _%spath127066%_ + _%spath128353%_ '1 - (##string-length _%spath127066%_))) - (_%ext127070%_ (path-extension _%spath127068%_)) - (_%ssi127072%_ - (if (__string-empty? _%ext127070%_) - (##string-append _%spath127068%_ '".ssi") + (##string-length _%spath128353%_))) + (_%ext128357%_ (path-extension _%spath128355%_)) + (_%ssi128359%_ + (if (__string-empty? _%ext128357%_) + (##string-append _%spath128355%_ '".ssi") (##string-append - (path-strip-extension _%spath127068%_) + (path-strip-extension _%spath128355%_) '".ssi"))) - (_%srcs127076%_ - (if (__string-empty? _%ext127070%_) - (##map (lambda (_%ext127074%_) - (string-append _%spath127068%_ _%ext127074%_)) + (_%srcs128363%_ + (if (__string-empty? _%ext128357%_) + (##map (lambda (_%ext128361%_) + (string-append _%spath128355%_ _%ext128361%_)) '(".ss" ".sld" ".scm")) - (cons _%spath127068%_ '())))) - (let _%lp127079%_ ((_%rest127081%_ (load-path))) - (let* ((_%rest127082127091%_ _%rest127081%_) - (_%E127085127095%_ + (cons _%spath128355%_ '())))) + (let _%lp128366%_ ((_%rest128368%_ (load-path))) + (let* ((_%rest128369128378%_ _%rest128368%_) + (_%E128372128382%_ (lambda () (error '"No clause matching" - _%rest127082127091%_ + _%rest128369128378%_ '([dir . rest]) '([])) '#!void))) - (let ((_%K127087127166%_ - (lambda (_%rest127106%_ _%dir127107%_) - (letrec ((_%resolve127109%_ - (lambda (_%ssi127122%_ _%srcs127123%_) - (let ((_%compiled-path127125%_ + (let ((_%K128374128453%_ + (lambda (_%rest128393%_ _%dir128394%_) + (letrec ((_%resolve128396%_ + (lambda (_%ssi128409%_ _%srcs128410%_) + (let ((_%compiled-path128412%_ (path-expand - _%ssi127122%_ - _%dir127107%_))) + _%ssi128409%_ + _%dir128394%_))) (if (##file-exists? - _%compiled-path127125%_) + _%compiled-path128412%_) (path-normalize - _%compiled-path127125%_) - (let _%lpr127127%_ ((_%rest-src127129%_ - _%srcs127123%_)) - (let* ((_%rest-src127130127138%_ - _%rest-src127129%_) - (_%else127132127146%_ + _%compiled-path128412%_) + (let _%lpr128414%_ ((_%rest-src128416%_ + _%srcs128410%_)) + (let* ((_%rest-src128417128425%_ + _%rest-src128416%_) + (_%else128419128433%_ (lambda () - (_%lp127079%_ - _%rest127106%_))) - (_%K127134127154%_ - (lambda (_%rest-src127149%_ - _%src127150%_) - (let ((_%src-path127152%_ + (_%lp128366%_ + _%rest128393%_))) + (_%K128421128441%_ + (lambda (_%rest-src128436%_ + _%src128437%_) + (let ((_%src-path128439%_ (path-expand - _%src127150%_ - _%dir127107%_))) + _%src128437%_ + _%dir128394%_))) (if (##file-exists? - _%src-path127152%_) + _%src-path128439%_) (path-normalize - _%src-path127152%_) - (_%lpr127127%_ - _%rest-src127149%_)))))) - (if (pair? _%rest-src127130127138%_) - (let ((_%hd127135127157%_ - (##car _%rest-src127130127138%_)) - (_%tl127136127159%_ - (##cdr _%rest-src127130127138%_))) - (let* ((_%src127162%_ - _%hd127135127157%_) - (_%rest-src127164%_ - _%tl127136127159%_)) - (_%K127134127154%_ - _%rest-src127164%_ - _%src127162%_))) - (_%else127132127146%_))))))))) - (let ((_%$e127111%_ + _%src-path128439%_) + (_%lpr128414%_ + _%rest-src128436%_)))))) + (if (pair? _%rest-src128417128425%_) + (let ((_%hd128422128444%_ + (##car _%rest-src128417128425%_)) + (_%tl128423128446%_ + (##cdr _%rest-src128417128425%_))) + (let* ((_%src128449%_ + _%hd128422128444%_) + (_%rest-src128451%_ + _%tl128423128446%_)) + (_%K128421128441%_ + _%rest-src128451%_ + _%src128449%_))) + (_%else128419128433%_))))))))) + (let ((_%$e128398%_ (gx#core-library-package-path-prefix - _%dir127107%_))) - (if _%$e127111%_ - ((lambda (_%prefix127114%_) + _%dir128394%_))) + (if _%$e128398%_ + ((lambda (_%prefix128401%_) (if (string-prefix? - _%prefix127114%_ - _%spath127068%_) - (let ((_%ssi127118%_ + _%prefix128401%_ + _%spath128355%_) + (let ((_%ssi128405%_ (substring - _%ssi127072%_ - (string-length _%prefix127114%_) - (##string-length _%ssi127072%_))) - (_%srcs127119%_ - (##map (lambda (_%src127116%_) + _%ssi128359%_ + (string-length _%prefix128401%_) + (##string-length _%ssi128359%_))) + (_%srcs128406%_ + (##map (lambda (_%src128403%_) (substring - _%src127116%_ + _%src128403%_ (string-length - _%prefix127114%_) + _%prefix128401%_) (string-length - _%src127116%_))) - _%srcs127076%_))) - (_%resolve127109%_ - _%ssi127118%_ - _%srcs127119%_)) - (_%lp127079%_ _%rest127106%_))) - _%$e127111%_) - (_%resolve127109%_ - _%ssi127072%_ - _%srcs127076%_)))))) - (_%K127086127100%_ + _%src128403%_))) + _%srcs128363%_))) + (_%resolve128396%_ + _%ssi128405%_ + _%srcs128406%_)) + (_%lp128366%_ _%rest128393%_))) + _%$e128398%_) + (_%resolve128396%_ + _%ssi128359%_ + _%srcs128363%_)))))) + (_%K128373128387%_ (lambda () (gx#raise-syntax-error '#f '"cannot find library module" - _%libpath127064%_)))) - (let ((_%try-match127084127103%_ + _%libpath128351%_)))) + (let ((_%try-match128371128390%_ (lambda () - (if (null? _%rest127082127091%_) - (_%K127086127100%_) - (_%E127085127095%_))))) - (if (pair? _%rest127082127091%_) - (let ((_%tl127089127171%_ (##cdr _%rest127082127091%_)) - (_%hd127088127169%_ (##car _%rest127082127091%_))) - (let ((_%dir127174%_ _%hd127088127169%_) - (_%rest127176%_ _%tl127089127171%_)) - (_%K127087127166%_ _%rest127176%_ _%dir127174%_))) - (_%try-match127084127103%_))))))))) + (if (null? _%rest128369128378%_) + (_%K128373128387%_) + (_%E128372128382%_))))) + (if (pair? _%rest128369128378%_) + (let ((_%tl128376128458%_ (##cdr _%rest128369128378%_)) + (_%hd128375128456%_ (##car _%rest128369128378%_))) + (let ((_%dir128461%_ _%hd128375128456%_) + (_%rest128463%_ _%tl128376128458%_)) + (_%K128374128453%_ _%rest128463%_ _%dir128461%_))) + (_%try-match128371128390%_))))))))) (define gx#core-resolve-library-relative-module-path - (lambda (_%modpath127032%_) - (letrec ((_%resolve127034%_ - (lambda (_%path127055%_ _%base127056%_) - (let ((_%$e127058%_ - (string-rindex__0 _%base127056%_ '#\/))) - (if _%$e127058%_ - ((lambda (_%idx127061%_) + (lambda (_%modpath128319%_) + (letrec ((_%resolve128321%_ + (lambda (_%path128342%_ _%base128343%_) + (let ((_%$e128345%_ + (string-rindex__0 _%base128343%_ '#\/))) + (if _%$e128345%_ + ((lambda (_%idx128348%_) (gx#core-resolve-library-module-path (##string->symbol (string-append '":" - (substring _%base127056%_ '0 _%idx127061%_) + (substring _%base128343%_ '0 _%idx128348%_) '"/" - _%path127055%_)))) - _%$e127058%_) + _%path128342%_)))) + _%$e128345%_) (gx#core-resolve-library-module-path (##string->symbol - (string-append '":" _%path127055%_)))))))) - (let ((_%spath127036%_ (symbol->string (gx#stx-e _%modpath127032%_))) - (_%mod127037%_ + (string-append '":" _%path128342%_)))))))) + (let ((_%spath128323%_ (symbol->string (gx#stx-e _%modpath128319%_))) + (_%mod128324%_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _%mod127037%_ + (if _%mod128324%_ '#!void (gx#raise-syntax-error '#f '"cannot resolve relative module path; not in module context" - _%modpath127032%_)) - (let ((_%mpath127039%_ + _%modpath128319%_)) + (let ((_%mpath128326%_ (symbol->string (##structure-ref - _%mod127037%_ + _%mod128324%_ '1 gx#expander-context::t '#f)))) - (let _%lp127041%_ ((_%spath127043%_ _%spath127036%_) - (_%mpath127044%_ _%mpath127039%_)) - (if (string-prefix? '"../" _%spath127043%_) - (let ((_%$e127047%_ - (string-rindex__0 _%mpath127044%_ '#\/))) - (if _%$e127047%_ - ((lambda (_%idx127050%_) - (_%lp127041%_ + (let _%lp128328%_ ((_%spath128330%_ _%spath128323%_) + (_%mpath128331%_ _%mpath128326%_)) + (if (string-prefix? '"../" _%spath128330%_) + (let ((_%$e128334%_ + (string-rindex__0 _%mpath128331%_ '#\/))) + (if _%$e128334%_ + ((lambda (_%idx128337%_) + (_%lp128328%_ (substring - _%spath127043%_ + _%spath128330%_ '3 - (string-length _%spath127043%_)) - (substring _%mpath127044%_ '0 _%idx127050%_))) - _%$e127047%_) + (string-length _%spath128330%_)) + (substring _%mpath128331%_ '0 _%idx128337%_))) + _%$e128334%_) (gx#raise-syntax-error '#f '"cannot resolve relative module path; illegal traversal" - _%modpath127032%_))) - (if (string-prefix? '"./" _%spath127043%_) - (_%lp127041%_ + _%modpath128319%_))) + (if (string-prefix? '"./" _%spath128330%_) + (_%lp128328%_ (substring - _%spath127043%_ + _%spath128330%_ '2 - (string-length _%spath127043%_)) - _%mpath127044%_) - (_%resolve127034%_ - _%spath127043%_ - _%mpath127044%_))))))))) + (string-length _%spath128330%_)) + _%mpath128331%_) + (_%resolve128321%_ + _%spath128330%_ + _%mpath128331%_))))))))) (define gx#core-library-package-path-prefix - (lambda (_%dir127024%_) - (let ((_%$e127026%_ + (lambda (_%dir128311%_) + (let ((_%$e128313%_ (pgetq__0 'package: - (gx#core-library-package-plist__0 _%dir127024%_)))) - (if _%$e127026%_ - ((lambda (_%pkg127029%_) - (##string-append (symbol->string _%pkg127029%_) '"/")) - _%$e127026%_) + (gx#core-library-package-plist__0 _%dir128311%_)))) + (if _%$e128313%_ + ((lambda (_%pkg128316%_) + (##string-append (symbol->string _%pkg128316%_) '"/")) + _%$e128313%_) '#f)))) (define gx#core-library-package-plist__% - (lambda (_%dir126994%_ _%exists?126995%_) - (let ((_%$e126997%_ (__hash-get gx#__module-pkg-cache _%dir126994%_))) - (if _%$e126997%_ - _%$e126997%_ - (let* ((_%gerbil.pkg127001%_ - (path-expand '"gerbil.pkg" _%dir126994%_)) - (_%plist127011%_ - (if (or _%exists?126995%_ - (##file-exists? _%gerbil.pkg127001%_)) - (let ((_%e127006%_ + (lambda (_%dir128281%_ _%exists?128282%_) + (let ((_%$e128284%_ (__hash-get gx#__module-pkg-cache _%dir128281%_))) + (if _%$e128284%_ + _%$e128284%_ + (let* ((_%gerbil.pkg128288%_ + (path-expand '"gerbil.pkg" _%dir128281%_)) + (_%plist128298%_ + (if (or _%exists?128282%_ + (##file-exists? _%gerbil.pkg128288%_)) + (let ((_%e128293%_ (gx#call-with-input-source-file - _%gerbil.pkg127001%_ + _%gerbil.pkg128288%_ read))) - (if (eof-object? _%e127006%_) + (if (eof-object? _%e128293%_) '() - (if (list? _%e127006%_) - _%e127006%_ + (if (list? _%e128293%_) + _%e128293%_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%gerbil.pkg127001%_ - _%e127006%_)))) + _%gerbil.pkg128288%_ + _%e128293%_)))) '()))) (__hash-put! gx#__module-pkg-cache - _%dir126994%_ - _%plist127011%_) - _%plist127011%_))))) + _%dir128281%_ + _%plist128298%_) + _%plist128298%_))))) (define gx#core-library-package-plist__0 - (lambda (_%dir127017%_) - (let ((_%exists?127019%_ '#f)) - (gx#core-library-package-plist__% _%dir127017%_ _%exists?127019%_)))) + (lambda (_%dir128304%_) + (let ((_%exists?128306%_ '#f)) + (gx#core-library-package-plist__% _%dir128304%_ _%exists?128306%_)))) (define gx#core-library-package-plist - (lambda _g128831_ - (let ((_g128830_ (##length _g128831_))) - (cond ((##fx= _g128830_ 1) - (apply gx#core-library-package-plist__0 _g128831_)) - ((##fx= _g128830_ 2) - (apply gx#core-library-package-plist__% _g128831_)) + (lambda _g130118_ + (let ((_g130117_ (##length _g130118_))) + (cond ((##fx= _g130117_ 1) + (apply gx#core-library-package-plist__0 _g130118_)) + ((##fx= _g130117_ 2) + (apply gx#core-library-package-plist__% _g130118_)) (else (##raise-wrong-number-of-arguments-exception gx#core-library-package-plist - _g128831_)))))) + _g130118_)))))) (define gx#core-library-module-path? - (lambda (_%stx126991%_) - (gx#core-special-module-path? _%stx126991%_ '#\:))) + (lambda (_%stx128278%_) + (gx#core-special-module-path? _%stx128278%_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_%stx126989%_) - (gx#core-special-module-path? _%stx126989%_ '#\.))) + (lambda (_%stx128276%_) + (gx#core-special-module-path? _%stx128276%_ '#\.))) (define gx#core-special-module-path? - (lambda (_%stx126984%_ _%char126985%_) - (if (gx#identifier? _%stx126984%_) - (if (interned-symbol? (gx#stx-e _%stx126984%_)) - (let ((_%str126987%_ - (symbol->string (gx#stx-e _%stx126984%_)))) - (if (##fx> (##string-length _%str126987%_) '1) - (eq? (string-ref _%str126987%_ '0) _%char126985%_) + (lambda (_%stx128271%_ _%char128272%_) + (if (gx#identifier? _%stx128271%_) + (if (interned-symbol? (gx#stx-e _%stx128271%_)) + (let ((_%str128274%_ + (symbol->string (gx#stx-e _%stx128271%_)))) + (if (##fx> (##string-length _%str128274%_) '1) + (eq? (string-ref _%str128274%_ '0) _%char128272%_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_%stx126978%_) + (lambda (_%stx128265%_) (gx#core-bound-identifier?__% - _%stx126978%_ - (lambda (_%g126979126981%_) - (gx#expander-binding?__% _%g126979126981%_ gx#prelude-context?))))) + _%stx128265%_ + (lambda (_%g128266128268%_) + (gx#expander-binding?__% _%g128266128268%_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_%stx126972%_) + (lambda (_%stx128259%_) (gx#core-bound-identifier?__% - _%stx126972%_ - (lambda (_%g126973126975%_) - (gx#expander-binding?__% _%g126973126975%_ gx#module-context?))))) + _%stx128259%_ + (lambda (_%g128260128262%_) + (gx#expander-binding?__% _%g128260128262%_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_%stx126959%_) - (letrec ((_%module-prelude?126961%_ - (lambda (_%e126967%_) - (let ((_%$e126969%_ + (lambda (_%stx128246%_) + (letrec ((_%module-prelude?128248%_ + (lambda (_%e128254%_) + (let ((_%$e128256%_ (##structure-instance-of? - _%e126967%_ + _%e128254%_ 'gx#module-context::t))) - (if _%$e126969%_ - _%$e126969%_ + (if _%$e128256%_ + _%$e128256%_ (##structure-instance-of? - _%e126967%_ + _%e128254%_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _%stx126959%_ - (lambda (_%g126962126964%_) + _%stx128246%_ + (lambda (_%g128249128251%_) (gx#expander-binding?__% - _%g126962126964%_ - _%module-prelude?126961%_)))))) + _%g128249128251%_ + _%module-prelude?128248%_)))))) (define gx#core-bind-import!__% - (lambda (_%in126889%_ _%ctx126890%_ _%force-weak?126891%_) - (let* ((_%in126892126901%_ _%in126889%_) - (_%E126894126905%_ + (lambda (_%in128176%_ _%ctx128177%_ _%force-weak?128178%_) + (let* ((_%in128179128188%_ _%in128176%_) + (_%E128181128192%_ (lambda () (error '"No clause matching" - _%in126892126901%_ + _%in128179128188%_ '((module-import source key phi weak?))) '#!void)) - (_%K126895126918%_ - (lambda (_%weak?126908%_ - _%phi126909%_ - _%key126910%_ - _%source126911%_) + (_%K128182128205%_ + (lambda (_%weak?128195%_ + _%phi128196%_ + _%key128197%_ + _%source128198%_) (gx#core-bind!__% - _%key126910%_ - (let ((_%e126913%_ - (gx#core-resolve-module-export _%source126911%_))) + _%key128197%_ + (let ((_%e128200%_ + (gx#core-resolve-module-export _%source128198%_))) (##structure gx#import-binding::t - (##unchecked-structure-ref _%e126913%_ '1 '#f '#f) - _%key126910%_ - _%phi126909%_ - _%e126913%_ - (##unchecked-structure-ref _%source126911%_ '1 '#f '#f) - (let ((_%$e126915%_ _%force-weak?126891%_)) - (if _%$e126915%_ _%$e126915%_ _%weak?126908%_)))) + (##unchecked-structure-ref _%e128200%_ '1 '#f '#f) + _%key128197%_ + _%phi128196%_ + _%e128200%_ + (##unchecked-structure-ref _%source128198%_ '1 '#f '#f) + (let ((_%$e128202%_ _%force-weak?128178%_)) + (if _%$e128202%_ _%$e128202%_ _%weak?128195%_)))) gx#core-context-rebind? - _%phi126909%_ - _%ctx126890%_)))) + _%phi128196%_ + _%ctx128177%_)))) (if (##structure-direct-instance-of? - _%in126892126901%_ + _%in128179128188%_ 'gx#module-import::t) - (let* ((_%e126896126921%_ + (let* ((_%e128183128208%_ (##unchecked-structure-ref - _%in126892126901%_ + _%in128179128188%_ '1 '#f '#f)) - (_%source126924%_ _%e126896126921%_) - (_%e126897126926%_ + (_%source128211%_ _%e128183128208%_) + (_%e128184128213%_ (##unchecked-structure-ref - _%in126892126901%_ + _%in128179128188%_ '2 '#f '#f)) - (_%key126929%_ _%e126897126926%_) - (_%e126898126931%_ + (_%key128216%_ _%e128184128213%_) + (_%e128185128218%_ (##unchecked-structure-ref - _%in126892126901%_ + _%in128179128188%_ '3 '#f '#f)) - (_%phi126934%_ _%e126898126931%_) - (_%e126899126936%_ + (_%phi128221%_ _%e128185128218%_) + (_%e128186128223%_ (##unchecked-structure-ref - _%in126892126901%_ + _%in128179128188%_ '4 '#f '#f)) - (_%weak?126939%_ _%e126899126936%_)) - (_%K126895126918%_ - _%weak?126939%_ - _%phi126934%_ - _%key126929%_ - _%source126924%_)) - (_%E126894126905%_))))) + (_%weak?128226%_ _%e128186128223%_)) + (_%K128182128205%_ + _%weak?128226%_ + _%phi128221%_ + _%key128216%_ + _%source128211%_)) + (_%E128181128192%_))))) (define gx#core-bind-import!__0 - (lambda (_%in126944%_) - (let* ((_%ctx126946%_ (gx#current-expander-context)) - (_%force-weak?126948%_ '#f)) + (lambda (_%in128231%_) + (let* ((_%ctx128233%_ (gx#current-expander-context)) + (_%force-weak?128235%_ '#f)) (gx#core-bind-import!__% - _%in126944%_ - _%ctx126946%_ - _%force-weak?126948%_)))) + _%in128231%_ + _%ctx128233%_ + _%force-weak?128235%_)))) (define gx#core-bind-import!__1 - (lambda (_%in126950%_ _%ctx126951%_) - (let ((_%force-weak?126953%_ '#f)) + (lambda (_%in128237%_ _%ctx128238%_) + (let ((_%force-weak?128240%_ '#f)) (gx#core-bind-import!__% - _%in126950%_ - _%ctx126951%_ - _%force-weak?126953%_)))) + _%in128237%_ + _%ctx128238%_ + _%force-weak?128240%_)))) (define gx#core-bind-import! - (lambda _g128833_ - (let ((_g128832_ (##length _g128833_))) - (cond ((##fx= _g128832_ 1) (apply gx#core-bind-import!__0 _g128833_)) - ((##fx= _g128832_ 2) (apply gx#core-bind-import!__1 _g128833_)) - ((##fx= _g128832_ 3) (apply gx#core-bind-import!__% _g128833_)) + (lambda _g130120_ + (let ((_g130119_ (##length _g130120_))) + (cond ((##fx= _g130119_ 1) (apply gx#core-bind-import!__0 _g130120_)) + ((##fx= _g130119_ 2) (apply gx#core-bind-import!__1 _g130120_)) + ((##fx= _g130119_ 3) (apply gx#core-bind-import!__% _g130120_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-import! - _g128833_)))))) + _g130120_)))))) (define gx#core-bind-weak-import!__% - (lambda (_%in126875%_ _%ctx126876%_) - (gx#core-bind-import!__% _%in126875%_ _%ctx126876%_ '#t))) + (lambda (_%in128162%_ _%ctx128163%_) + (gx#core-bind-import!__% _%in128162%_ _%ctx128163%_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_%in126881%_) - (let ((_%ctx126883%_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _%in126881%_ _%ctx126883%_)))) + (lambda (_%in128168%_) + (let ((_%ctx128170%_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _%in128168%_ _%ctx128170%_)))) (define gx#core-bind-weak-import! - (lambda _g128835_ - (let ((_g128834_ (##length _g128835_))) - (cond ((##fx= _g128834_ 1) - (apply gx#core-bind-weak-import!__0 _g128835_)) - ((##fx= _g128834_ 2) - (apply gx#core-bind-weak-import!__% _g128835_)) + (lambda _g130122_ + (let ((_g130121_ (##length _g130122_))) + (cond ((##fx= _g130121_ 1) + (apply gx#core-bind-weak-import!__0 _g130122_)) + ((##fx= _g130121_ 2) + (apply gx#core-bind-weak-import!__% _g130122_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-weak-import! - _g128835_)))))) + _g130122_)))))) (define gx#core-resolve-module-export - (lambda (_%out126766%_) - (letrec ((_%subst126768%_ - (lambda (_%key126814%_) - (let* ((_%key126815126823%_ _%key126814%_) - (_%else126817126831%_ (lambda () _%key126814%_)) - (_%K126819126862%_ - (lambda (_%mark126834%_ _%id126835%_) - (let* ((_%mark126836126842%_ _%mark126834%_) - (_%E126838126846%_ + (lambda (_%out128053%_) + (letrec ((_%subst128055%_ + (lambda (_%key128101%_) + (let* ((_%key128102128110%_ _%key128101%_) + (_%else128104128118%_ (lambda () _%key128101%_)) + (_%K128106128149%_ + (lambda (_%mark128121%_ _%id128122%_) + (let* ((_%mark128123128129%_ _%mark128121%_) + (_%E128125128133%_ (lambda () (error '"No clause matching" - _%mark126836126842%_ + _%mark128123128129%_ '((expander-mark subst))) '#!void)) - (_%K126839126854%_ - (lambda (_%subst126849%_) - (let ((_%$e126851%_ - (if _%subst126849%_ + (_%K128126128141%_ + (lambda (_%subst128136%_) + (let ((_%$e128138%_ + (if _%subst128136%_ (hash-get - _%subst126849%_ - _%id126835%_) + _%subst128136%_ + _%id128122%_) '#f))) - (if _%$e126851%_ - _%$e126851%_ + (if _%$e128138%_ + _%$e128138%_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _%key126814%_)))))) + _%key128101%_)))))) (if (##structure-instance-of? - _%mark126836126842%_ + _%mark128123128129%_ 'gx#expander-mark::t) - (let* ((_%e126840126857%_ + (let* ((_%e128127128144%_ (##unchecked-structure-ref - _%mark126836126842%_ + _%mark128123128129%_ '1 '#f '#f)) - (_%subst126860%_ _%e126840126857%_)) - (_%K126839126854%_ _%subst126860%_)) - (_%E126838126846%_)))))) - (if (pair? _%key126815126823%_) - (let ((_%hd126820126865%_ - (##car _%key126815126823%_)) - (_%tl126821126867%_ - (##cdr _%key126815126823%_))) - (let* ((_%id126870%_ _%hd126820126865%_) - (_%mark126872%_ _%tl126821126867%_)) - (_%K126819126862%_ _%mark126872%_ _%id126870%_))) - (_%else126817126831%_)))))) - (let* ((_%out126769126779%_ _%out126766%_) - (_%E126771126783%_ + (_%subst128147%_ _%e128127128144%_)) + (_%K128126128141%_ _%subst128147%_)) + (_%E128125128133%_)))))) + (if (pair? _%key128102128110%_) + (let ((_%hd128107128152%_ + (##car _%key128102128110%_)) + (_%tl128108128154%_ + (##cdr _%key128102128110%_))) + (let* ((_%id128157%_ _%hd128107128152%_) + (_%mark128159%_ _%tl128108128154%_)) + (_%K128106128149%_ _%mark128159%_ _%id128157%_))) + (_%else128104128118%_)))))) + (let* ((_%out128056128066%_ _%out128053%_) + (_%E128058128070%_ (lambda () (error '"No clause matching" - _%out126769126779%_ + _%out128056128066%_ '((module-export ctx key phi _ _))) '#!void)) - (_%K126772126790%_ - (lambda (_%phi126786%_ _%key126787%_ _%ctx126788%_) + (_%K128059128077%_ + (lambda (_%phi128073%_ _%key128074%_ _%ctx128075%_) (gx#core-context-resolve - (gx#core-context-shift _%ctx126788%_ _%phi126786%_) - (_%subst126768%_ _%key126787%_))))) + (gx#core-context-shift _%ctx128075%_ _%phi128073%_) + (_%subst128055%_ _%key128074%_))))) (if (##structure-direct-instance-of? - _%out126769126779%_ + _%out128056128066%_ 'gx#module-export::t) - (let* ((_%e126773126793%_ + (let* ((_%e128060128080%_ (##unchecked-structure-ref - _%out126769126779%_ + _%out128056128066%_ '1 '#f '#f)) - (_%ctx126796%_ _%e126773126793%_) - (_%e126774126798%_ + (_%ctx128083%_ _%e128060128080%_) + (_%e128061128085%_ (##unchecked-structure-ref - _%out126769126779%_ + _%out128056128066%_ '2 '#f '#f)) - (_%key126801%_ _%e126774126798%_) - (_%e126775126803%_ + (_%key128088%_ _%e128061128085%_) + (_%e128062128090%_ (##unchecked-structure-ref - _%out126769126779%_ + _%out128056128066%_ '3 '#f '#f)) - (_%phi126806%_ _%e126775126803%_) - (_%e126776126808%_ + (_%phi128093%_ _%e128062128090%_) + (_%e128063128095%_ (##unchecked-structure-ref - _%out126769126779%_ + _%out128056128066%_ '4 '#f '#f)) - (_%e126777126811%_ + (_%e128064128098%_ (##unchecked-structure-ref - _%out126769126779%_ + _%out128056128066%_ '5 '#f '#f))) - (_%K126772126790%_ - _%phi126806%_ - _%key126801%_ - _%ctx126796%_)) - (_%E126771126783%_)))))) + (_%K128059128077%_ + _%phi128093%_ + _%key128088%_ + _%ctx128083%_)) + (_%E128058128070%_)))))) (define gx#core-module-export->import__% - (lambda (_%out126691%_ _%rename126692%_ _%dphi126693%_) - (let* ((_%out126694126704%_ _%out126691%_) - (_%E126696126708%_ + (lambda (_%out127978%_ _%rename127979%_ _%dphi127980%_) + (let* ((_%out127981127991%_ _%out127978%_) + (_%E127983127995%_ (lambda () (error '"No clause matching" - _%out126694126704%_ + _%out127981127991%_ '((module-export ctx key phi name weak?))) '#!void)) - (_%K126697126720%_ - (lambda (_%weak?126711%_ - _%name126712%_ - _%phi126713%_ - _%key126714%_ - _%ctx126715%_) + (_%K127984128007%_ + (lambda (_%weak?127998%_ + _%name127999%_ + _%phi128000%_ + _%key128001%_ + _%ctx128002%_) (##structure gx#module-import::t - _%out126691%_ - (let ((_%$e126717%_ _%rename126692%_)) - (if _%$e126717%_ _%$e126717%_ _%name126712%_)) - (fx+ _%phi126713%_ _%dphi126693%_) - _%weak?126711%_)))) + _%out127978%_ + (let ((_%$e128004%_ _%rename127979%_)) + (if _%$e128004%_ _%$e128004%_ _%name127999%_)) + (fx+ _%phi128000%_ _%dphi127980%_) + _%weak?127998%_)))) (if (##structure-direct-instance-of? - _%out126694126704%_ + _%out127981127991%_ 'gx#module-export::t) - (let* ((_%e126698126723%_ + (let* ((_%e127985128010%_ (##unchecked-structure-ref - _%out126694126704%_ + _%out127981127991%_ '1 '#f '#f)) - (_%ctx126726%_ _%e126698126723%_) - (_%e126699126728%_ + (_%ctx128013%_ _%e127985128010%_) + (_%e127986128015%_ (##unchecked-structure-ref - _%out126694126704%_ + _%out127981127991%_ '2 '#f '#f)) - (_%key126731%_ _%e126699126728%_) - (_%e126700126733%_ + (_%key128018%_ _%e127986128015%_) + (_%e127987128020%_ (##unchecked-structure-ref - _%out126694126704%_ + _%out127981127991%_ '3 '#f '#f)) - (_%phi126736%_ _%e126700126733%_) - (_%e126701126738%_ + (_%phi128023%_ _%e127987128020%_) + (_%e127988128025%_ (##unchecked-structure-ref - _%out126694126704%_ + _%out127981127991%_ '4 '#f '#f)) - (_%name126741%_ _%e126701126738%_) - (_%e126702126743%_ + (_%name128028%_ _%e127988128025%_) + (_%e127989128030%_ (##unchecked-structure-ref - _%out126694126704%_ + _%out127981127991%_ '5 '#f '#f)) - (_%weak?126746%_ _%e126702126743%_)) - (_%K126697126720%_ - _%weak?126746%_ - _%name126741%_ - _%phi126736%_ - _%key126731%_ - _%ctx126726%_)) - (_%E126696126708%_))))) + (_%weak?128033%_ _%e127989128030%_)) + (_%K127984128007%_ + _%weak?128033%_ + _%name128028%_ + _%phi128023%_ + _%key128018%_ + _%ctx128013%_)) + (_%E127983127995%_))))) (define gx#core-module-export->import__0 - (lambda (_%out126751%_) - (let* ((_%rename126753%_ '#f) (_%dphi126755%_ '0)) + (lambda (_%out128038%_) + (let* ((_%rename128040%_ '#f) (_%dphi128042%_ '0)) (gx#core-module-export->import__% - _%out126751%_ - _%rename126753%_ - _%dphi126755%_)))) + _%out128038%_ + _%rename128040%_ + _%dphi128042%_)))) (define gx#core-module-export->import__1 - (lambda (_%out126757%_ _%rename126758%_) - (let ((_%dphi126760%_ '0)) + (lambda (_%out128044%_ _%rename128045%_) + (let ((_%dphi128047%_ '0)) (gx#core-module-export->import__% - _%out126757%_ - _%rename126758%_ - _%dphi126760%_)))) + _%out128044%_ + _%rename128045%_ + _%dphi128047%_)))) (define gx#core-module-export->import - (lambda _g128837_ - (let ((_g128836_ (##length _g128837_))) - (cond ((##fx= _g128836_ 1) - (apply gx#core-module-export->import__0 _g128837_)) - ((##fx= _g128836_ 2) - (apply gx#core-module-export->import__1 _g128837_)) - ((##fx= _g128836_ 3) - (apply gx#core-module-export->import__% _g128837_)) + (lambda _g130124_ + (let ((_g130123_ (##length _g130124_))) + (cond ((##fx= _g130123_ 1) + (apply gx#core-module-export->import__0 _g130124_)) + ((##fx= _g130123_ 2) + (apply gx#core-module-export->import__1 _g130124_)) + ((##fx= _g130123_ 3) + (apply gx#core-module-export->import__% _g130124_)) (else (##raise-wrong-number-of-arguments-exception gx#core-module-export->import - _g128837_)))))) + _g130124_)))))) (define gx#core-expand-module% - (lambda (_%stx126590%_) - (letrec ((_%make-context126592%_ - (lambda (_%id126669%_) - (let* ((_%super126671%_ (gx#current-expander-context)) - (_%bind-id126673%_ (gx#stx-e _%id126669%_)) - (_%mod-id126675%_ + (lambda (_%stx127877%_) + (letrec ((_%make-context127879%_ + (lambda (_%id127956%_) + (let* ((_%super127958%_ (gx#current-expander-context)) + (_%bind-id127960%_ (gx#stx-e _%id127956%_)) + (_%mod-id127962%_ (if (##structure-instance-of? - _%super126671%_ + _%super127958%_ 'gx#module-context::t) (make-symbol__1 (##unchecked-structure-ref - _%super126671%_ + _%super127958%_ '1 '#f '#f) '"~" - _%bind-id126673%_) - _%bind-id126673%_)) - (_%ns126677%_ (symbol->string _%mod-id126675%_)) - (_%path126687%_ + _%bind-id127960%_) + _%bind-id127960%_)) + (_%ns127964%_ (symbol->string _%mod-id127962%_)) + (_%path127974%_ (if (##structure-instance-of? - _%super126671%_ + _%super127958%_ 'gx#module-context::t) - (let ((_%path126679%_ + (let ((_%path127966%_ (##unchecked-structure-ref - _%super126671%_ + _%super127958%_ '7 '#f '#f))) - (if (or (pair? _%path126679%_) - (null? _%path126679%_)) - (cons _%bind-id126673%_ _%path126679%_) - (if (not _%path126679%_) - _%bind-id126673%_ - (cons _%bind-id126673%_ - (cons _%path126679%_ '()))))) - _%bind-id126673%_)) - (__obj128813 + (if (or (pair? _%path127966%_) + (null? _%path127966%_)) + (cons _%bind-id127960%_ _%path127966%_) + (if (not _%path127966%_) + _%bind-id127960%_ + (cons _%bind-id127960%_ + (cons _%path127966%_ '()))))) + _%bind-id127960%_)) + (__obj130100 (##structure gx#module-context::t '#f @@ -2179,702 +2179,702 @@ '#f '#f))) (gx#module-context:::init! - __obj128813 - _%mod-id126675%_ - _%super126671%_ - _%ns126677%_ - _%path126687%_) - __obj128813))) - (_%valid-module-id?126593%_ - (lambda (_%id126644%_) - (let* ((_%str126646%_ (symbol->string _%id126644%_)) - (_%len126648%_ (##string-length _%str126646%_))) - (if (##fx>= _%len126648%_ '1) - (let _%loop126651%_ ((_%index126653%_ + __obj130100 + _%mod-id127962%_ + _%super127958%_ + _%ns127964%_ + _%path127974%_) + __obj130100))) + (_%valid-module-id?127880%_ + (lambda (_%id127931%_) + (let* ((_%str127933%_ (symbol->string _%id127931%_)) + (_%len127935%_ (##string-length _%str127933%_))) + (if (##fx>= _%len127935%_ '1) + (let _%loop127938%_ ((_%index127940%_ (##fx- (##string-length - _%str126646%_) + _%str127933%_) '1))) - (if (##fx>= _%index126653%_ '0) - (let ((_%c126655%_ + (if (##fx>= _%index127940%_ '0) + (let ((_%c127942%_ (string-ref - _%str126646%_ - _%index126653%_))) - (if (or (and (##char>=? _%c126655%_ '#\a) - (##char<=? _%c126655%_ '#\z)) - (and (##char>=? _%c126655%_ '#\A) - (##char<=? _%c126655%_ '#\Z)) - (and (##char>=? _%c126655%_ '#\0) - (##char<=? _%c126655%_ '#\9)) - (##char=? _%c126655%_ '#\_) - (##char=? _%c126655%_ '#\-)) - (_%loop126651%_ - (##fx- _%index126653%_ '1)) + _%str127933%_ + _%index127940%_))) + (if (or (and (##char>=? _%c127942%_ '#\a) + (##char<=? _%c127942%_ '#\z)) + (and (##char>=? _%c127942%_ '#\A) + (##char<=? _%c127942%_ '#\Z)) + (and (##char>=? _%c127942%_ '#\0) + (##char<=? _%c127942%_ '#\9)) + (##char=? _%c127942%_ '#\_) + (##char=? _%c127942%_ '#\-)) + (_%loop127938%_ + (##fx- _%index127940%_ '1)) '#f)) '#t)) '#f))))) - (let* ((_%e126594126604%_ _%stx126590%_) - (_%E126596126608%_ + (let* ((_%e127881127891%_ _%stx127877%_) + (_%E127883127895%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126594126604%_))) - (_%E126595126640%_ + _%e127881127891%_))) + (_%E127882127927%_ (lambda () - (if (gx#stx-pair? _%e126594126604%_) - (let ((_%e126597126612%_ - (gx#syntax-e _%e126594126604%_))) - (let ((_%hd126598126615%_ (##car _%e126597126612%_)) - (_%tl126599126617%_ (##cdr _%e126597126612%_))) - (if (gx#stx-pair? _%tl126599126617%_) - (let ((_%e126600126620%_ - (gx#syntax-e _%tl126599126617%_))) - (let ((_%hd126601126623%_ - (##car _%e126600126620%_)) - (_%tl126602126625%_ - (##cdr _%e126600126620%_))) - (let* ((_%id126628%_ _%hd126601126623%_) - (_%body126630%_ _%tl126602126625%_)) - (if (and (gx#identifier? _%id126628%_) - (gx#stx-list? _%body126630%_)) - (if (_%valid-module-id?126593%_ + (if (gx#stx-pair? _%e127881127891%_) + (let ((_%e127884127899%_ + (gx#syntax-e _%e127881127891%_))) + (let ((_%hd127885127902%_ (##car _%e127884127899%_)) + (_%tl127886127904%_ (##cdr _%e127884127899%_))) + (if (gx#stx-pair? _%tl127886127904%_) + (let ((_%e127887127907%_ + (gx#syntax-e _%tl127886127904%_))) + (let ((_%hd127888127910%_ + (##car _%e127887127907%_)) + (_%tl127889127912%_ + (##cdr _%e127887127907%_))) + (let* ((_%id127915%_ _%hd127888127910%_) + (_%body127917%_ _%tl127889127912%_)) + (if (and (gx#identifier? _%id127915%_) + (gx#stx-list? _%body127917%_)) + (if (_%valid-module-id?127880%_ (gx#stx-e (gx#datum->syntax__0 '#f 'id))) - (let* ((_%ctx126632%_ - (_%make-context126592%_ - _%id126628%_)) - (_%body126634%_ + (let* ((_%ctx127919%_ + (_%make-context127879%_ + _%id127915%_)) + (_%body127921%_ (gx#core-expand-module-begin - _%body126630%_ - _%ctx126632%_)) - (_%body126636%_ + _%body127917%_ + _%ctx127919%_)) + (_%body127923%_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body126634%_) + _%body127921%_) (gx#stx-source - _%stx126590%_)))) + _%stx127877%_)))) (##unchecked-structure-set! - _%ctx126632%_ + _%ctx127919%_ (__make-promise (lambda () (gx#eval-syntax* - _%body126636%_))) + _%body127923%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx126632%_ - _%body126636%_ + _%ctx127919%_ + _%body127923%_ '11 '#f '#f) (gx#core-bind-syntax!__0 - _%id126628%_ - _%ctx126632%_) + _%id127915%_ + _%ctx127919%_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _%id126628%_) - _%body126636%_) + _%id127915%_) + _%body127923%_) (gx#stx-source - _%stx126590%_))) + _%stx127877%_))) (gx#raise-syntax-error '#f '"invalid module id; allowed characters are A-Z,a-z,0-9,_,-" - _%stx126590%_ + _%stx127877%_ (gx#datum->syntax__0 '#f 'id))) - (_%E126596126608%_))))) - (_%E126596126608%_)))) - (_%E126596126608%_))))) - (_%E126595126640%_))))) + (_%E127883127895%_))))) + (_%E127883127895%_)))) + (_%E127883127895%_))))) + (_%E127882127927%_))))) (define gx#core-expand-module-begin - (lambda (_%body126556%_ _%ctx126557%_) + (lambda (_%body127843%_ _%ctx127844%_) (__call-with-parameters (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_%stx126560%_ - (gx#core-expand-head (cons '%%begin-module _%body126556%_))) - (_%e126561126568%_ _%stx126560%_) - (_%E126563126572%_ + (let* ((_%stx127847%_ + (gx#core-expand-head (cons '%%begin-module _%body127843%_))) + (_%e127848127855%_ _%stx127847%_) + (_%E127850127859%_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _%stx126560%_))) - (_%E126562126586%_ + _%stx127847%_))) + (_%E127849127873%_ (lambda () - (if (gx#stx-pair? _%e126561126568%_) - (let ((_%e126564126576%_ - (gx#syntax-e _%e126561126568%_))) - (let ((_%hd126565126579%_ (##car _%e126564126576%_)) - (_%tl126566126581%_ - (##cdr _%e126564126576%_))) - (if (and (gx#identifier? _%hd126565126579%_) + (if (gx#stx-pair? _%e127848127855%_) + (let ((_%e127851127863%_ + (gx#syntax-e _%e127848127855%_))) + (let ((_%hd127852127866%_ (##car _%e127851127863%_)) + (_%tl127853127868%_ + (##cdr _%e127851127863%_))) + (if (and (gx#identifier? _%hd127852127866%_) (gx#core-identifier=? - _%hd126565126579%_ + _%hd127852127866%_ '%#begin-module)) - (let ((_%body126584%_ _%tl126566126581%_)) - (if (gx#sealed-syntax? _%stx126560%_) - _%body126584%_ + (let ((_%body127871%_ _%tl127853127868%_)) + (if (gx#sealed-syntax? _%stx127847%_) + _%body127871%_ (gx#core-expand-module-body - _%body126584%_))) - (_%E126563126572%_)))) - (_%E126563126572%_))))) - (_%E126562126586%_))) + _%body127871%_))) + (_%E127850127859%_)))) + (_%E127850127859%_))))) + (_%E127849127873%_))) gx#current-expander-context - _%ctx126557%_ + _%ctx127844%_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_%body126352%_) - (letrec ((_%expand-special126354%_ - (lambda (_%hd126483%_ _%K126484%_ _%rest126485%_ _%r126486%_) - (let* ((_%e126487126504%_ _%hd126483%_) - (_%E126499126508%_ + (lambda (_%body127639%_) + (letrec ((_%expand-special127641%_ + (lambda (_%hd127770%_ _%K127771%_ _%rest127772%_ _%r127773%_) + (let* ((_%e127774127791%_ _%hd127770%_) + (_%E127786127795%_ (lambda () - (_%K126484%_ - _%rest126485%_ - (cons (gx#core-expand-top _%hd126483%_) - _%r126486%_)))) - (_%E126489126520%_ + (_%K127771%_ + _%rest127772%_ + (cons (gx#core-expand-top _%hd127770%_) + _%r127773%_)))) + (_%E127776127807%_ (lambda () - (if (gx#stx-pair? _%e126487126504%_) - (let ((_%e126500126512%_ - (gx#syntax-e _%e126487126504%_))) - (let ((_%hd126501126515%_ - (##car _%e126500126512%_)) - (_%tl126502126517%_ - (##cdr _%e126500126512%_))) + (if (gx#stx-pair? _%e127774127791%_) + (let ((_%e127787127799%_ + (gx#syntax-e _%e127774127791%_))) + (let ((_%hd127788127802%_ + (##car _%e127787127799%_)) + (_%tl127789127804%_ + (##cdr _%e127787127799%_))) (if (and (gx#identifier? - _%hd126501126515%_) + _%hd127788127802%_) (gx#core-identifier=? - _%hd126501126515%_ + _%hd127788127802%_ '%#export)) - (_%K126484%_ - _%rest126485%_ - (cons _%hd126483%_ _%r126486%_)) - (_%E126499126508%_)))) - (_%E126499126508%_)))) - (_%E126488126552%_ + (_%K127771%_ + _%rest127772%_ + (cons _%hd127770%_ _%r127773%_)) + (_%E127786127795%_)))) + (_%E127786127795%_)))) + (_%E127775127839%_ (lambda () - (if (gx#stx-pair? _%e126487126504%_) - (let ((_%e126490126524%_ - (gx#syntax-e _%e126487126504%_))) - (let ((_%hd126491126527%_ - (##car _%e126490126524%_)) - (_%tl126492126529%_ - (##cdr _%e126490126524%_))) + (if (gx#stx-pair? _%e127774127791%_) + (let ((_%e127777127811%_ + (gx#syntax-e _%e127774127791%_))) + (let ((_%hd127778127814%_ + (##car _%e127777127811%_)) + (_%tl127779127816%_ + (##cdr _%e127777127811%_))) (if (and (gx#identifier? - _%hd126491126527%_) + _%hd127778127814%_) (gx#core-identifier=? - _%hd126491126527%_ + _%hd127778127814%_ '%#define-values)) - (if (gx#stx-pair? _%tl126492126529%_) - (let ((_%e126493126532%_ + (if (gx#stx-pair? _%tl127779127816%_) + (let ((_%e127780127819%_ (gx#syntax-e - _%tl126492126529%_))) - (let ((_%hd126494126535%_ - (##car _%e126493126532%_)) - (_%tl126495126537%_ - (##cdr _%e126493126532%_))) - (let ((_%hd-bind126540%_ - _%hd126494126535%_)) + _%tl127779127816%_))) + (let ((_%hd127781127822%_ + (##car _%e127780127819%_)) + (_%tl127782127824%_ + (##cdr _%e127780127819%_))) + (let ((_%hd-bind127827%_ + _%hd127781127822%_)) (if (gx#stx-pair? - _%tl126495126537%_) - (let ((_%e126496126542%_ + _%tl127782127824%_) + (let ((_%e127783127829%_ (gx#syntax-e - _%tl126495126537%_))) - (let ((_%hd126497126545%_ + _%tl127782127824%_))) + (let ((_%hd127784127832%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e126496126542%_)) - (_%tl126498126547%_ (##cdr _%e126496126542%_))) - (let ((_%expr126550%_ _%hd126497126545%_)) - (if (gx#stx-null? _%tl126498126547%_) - (if (gx#core-bind-values? _%hd-bind126540%_) + (##car _%e127783127829%_)) + (_%tl127785127834%_ (##cdr _%e127783127829%_))) + (let ((_%expr127837%_ _%hd127784127832%_)) + (if (gx#stx-null? _%tl127785127834%_) + (if (gx#core-bind-values? _%hd-bind127827%_) (begin - (gx#core-bind-values!__0 _%hd-bind126540%_) - (_%K126484%_ - _%rest126485%_ - (cons _%hd126483%_ _%r126486%_))) - (_%E126489126520%_)) - (_%E126489126520%_))))) - (_%E126489126520%_))))) + (gx#core-bind-values!__0 _%hd-bind127827%_) + (_%K127771%_ + _%rest127772%_ + (cons _%hd127770%_ _%r127773%_))) + (_%E127776127807%_)) + (_%E127776127807%_))))) + (_%E127776127807%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126489126520%_)) - (_%E126489126520%_)))) - (_%E126489126520%_))))) - (_%E126488126552%_)))) - (_%expand-body126355%_ - (lambda (_%rbody126357%_) - (let _%lp126359%_ ((_%rest126361%_ _%rbody126357%_) - (_%body126362%_ '())) - (let* ((_%rest126363126371%_ _%rest126361%_) - (_%else126365126379%_ (lambda () _%body126362%_)) - (_%K126367126471%_ - (lambda (_%rest126382%_ _%hd126383%_) - (let* ((_%e126384126405%_ _%hd126383%_) - (_%E126400126409%_ + (_%E127776127807%_)) + (_%E127776127807%_)))) + (_%E127776127807%_))))) + (_%E127775127839%_)))) + (_%expand-body127642%_ + (lambda (_%rbody127644%_) + (let _%lp127646%_ ((_%rest127648%_ _%rbody127644%_) + (_%body127649%_ '())) + (let* ((_%rest127650127658%_ _%rest127648%_) + (_%else127652127666%_ (lambda () _%body127649%_)) + (_%K127654127758%_ + (lambda (_%rest127669%_ _%hd127670%_) + (let* ((_%e127671127692%_ _%hd127670%_) + (_%E127687127696%_ (lambda () - (_%lp126359%_ - _%rest126382%_ + (_%lp127646%_ + _%rest127669%_ (cons (gx#core-expand-expression - _%hd126383%_) - _%body126362%_)))) - (_%E126396126423%_ + _%hd127670%_) + _%body127649%_)))) + (_%E127683127710%_ (lambda () - (if (gx#stx-pair? _%e126384126405%_) - (let ((_%e126401126413%_ + (if (gx#stx-pair? _%e127671127692%_) + (let ((_%e127688127700%_ (gx#syntax-e - _%e126384126405%_))) - (let ((_%hd126402126416%_ - (##car _%e126401126413%_)) - (_%tl126403126418%_ - (##cdr _%e126401126413%_))) - (let ((_%form126421%_ - _%hd126402126416%_)) + _%e127671127692%_))) + (let ((_%hd127689127703%_ + (##car _%e127688127700%_)) + (_%tl127690127705%_ + (##cdr _%e127688127700%_))) + (let ((_%form127708%_ + _%hd127689127703%_)) (if (gx#core-bound-identifier?__% - _%form126421%_ + _%form127708%_ gx#special-form-binding?) - (_%lp126359%_ - _%rest126382%_ - (cons _%hd126383%_ - _%body126362%_)) - (_%E126400126409%_))))) - (_%E126400126409%_)))) - (_%E126386126435%_ + (_%lp127646%_ + _%rest127669%_ + (cons _%hd127670%_ + _%body127649%_)) + (_%E127687127696%_))))) + (_%E127687127696%_)))) + (_%E127673127722%_ (lambda () - (if (gx#stx-pair? _%e126384126405%_) - (let ((_%e126397126427%_ + (if (gx#stx-pair? _%e127671127692%_) + (let ((_%e127684127714%_ (gx#syntax-e - _%e126384126405%_))) - (let ((_%hd126398126430%_ - (##car _%e126397126427%_)) - (_%tl126399126432%_ - (##cdr _%e126397126427%_))) + _%e127671127692%_))) + (let ((_%hd127685127717%_ + (##car _%e127684127714%_)) + (_%tl127686127719%_ + (##cdr _%e127684127714%_))) (if (and (gx#identifier? - _%hd126398126430%_) + _%hd127685127717%_) (gx#core-identifier=? - _%hd126398126430%_ + _%hd127685127717%_ '%#export)) - (_%lp126359%_ - _%rest126382%_ + (_%lp127646%_ + _%rest127669%_ (cons (gx#core-expand-export%__0 - _%hd126383%_) - _%body126362%_)) - (_%E126396126423%_)))) - (_%E126396126423%_)))) - (_%E126385126467%_ + _%hd127670%_) + _%body127649%_)) + (_%E127683127710%_)))) + (_%E127683127710%_)))) + (_%E127672127754%_ (lambda () - (if (gx#stx-pair? _%e126384126405%_) - (let ((_%e126387126439%_ + (if (gx#stx-pair? _%e127671127692%_) + (let ((_%e127674127726%_ (gx#syntax-e - _%e126384126405%_))) - (let ((_%hd126388126442%_ - (##car _%e126387126439%_)) - (_%tl126389126444%_ - (##cdr _%e126387126439%_))) + _%e127671127692%_))) + (let ((_%hd127675127729%_ + (##car _%e127674127726%_)) + (_%tl127676127731%_ + (##cdr _%e127674127726%_))) (if (and (gx#identifier? - _%hd126388126442%_) + _%hd127675127729%_) (gx#core-identifier=? - _%hd126388126442%_ + _%hd127675127729%_ '%#define-values)) (if (gx#stx-pair? - _%tl126389126444%_) - (let ((_%e126390126447%_ + _%tl127676127731%_) + (let ((_%e127677127734%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl126389126444%_))) - (let ((_%hd126391126450%_ (##car _%e126390126447%_)) - (_%tl126392126452%_ (##cdr _%e126390126447%_))) - (let ((_%hd-bind126455%_ _%hd126391126450%_)) - (if (gx#stx-pair? _%tl126392126452%_) - (let ((_%e126393126457%_ - (gx#syntax-e _%tl126392126452%_))) - (let ((_%hd126394126460%_ - (##car _%e126393126457%_)) - (_%tl126395126462%_ - (##cdr _%e126393126457%_))) - (let ((_%expr126465%_ _%hd126394126460%_)) - (if (gx#stx-null? _%tl126395126462%_) - (_%lp126359%_ - _%rest126382%_ + (gx#syntax-e _%tl127676127731%_))) + (let ((_%hd127678127737%_ (##car _%e127677127734%_)) + (_%tl127679127739%_ (##cdr _%e127677127734%_))) + (let ((_%hd-bind127742%_ _%hd127678127737%_)) + (if (gx#stx-pair? _%tl127679127739%_) + (let ((_%e127680127744%_ + (gx#syntax-e _%tl127679127739%_))) + (let ((_%hd127681127747%_ + (##car _%e127680127744%_)) + (_%tl127682127749%_ + (##cdr _%e127680127744%_))) + (let ((_%expr127752%_ _%hd127681127747%_)) + (if (gx#stx-null? _%tl127682127749%_) + (_%lp127646%_ + _%rest127669%_ (cons (gx#core-quote-syntax__1 (gx#core-list '%#define-values (gx#core-quote-bind-values - _%hd-bind126455%_) + _%hd-bind127742%_) (gx#core-expand-expression - _%expr126465%_)) - (gx#stx-source _%hd126383%_)) - _%body126362%_)) - (_%E126386126435%_))))) - (_%E126386126435%_))))) - (_%E126386126435%_)) - (_%E126386126435%_)))) + _%expr127752%_)) + (gx#stx-source _%hd127670%_)) + _%body127649%_)) + (_%E127673127722%_))))) + (_%E127673127722%_))))) + (_%E127673127722%_)) + (_%E127673127722%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126386126435%_))))) - (_%E126385126467%_))))) - (if (pair? _%rest126363126371%_) - (let ((_%hd126368126474%_ - (##car _%rest126363126371%_)) - (_%tl126369126476%_ - (##cdr _%rest126363126371%_))) - (let* ((_%hd126479%_ _%hd126368126474%_) - (_%rest126481%_ _%tl126369126476%_)) - (_%K126367126471%_ - _%rest126481%_ - _%hd126479%_))) - (_%else126365126379%_))))))) - (_%expand-body126355%_ + (_%E127673127722%_))))) + (_%E127672127754%_))))) + (if (pair? _%rest127650127658%_) + (let ((_%hd127655127761%_ + (##car _%rest127650127658%_)) + (_%tl127656127763%_ + (##cdr _%rest127650127658%_))) + (let* ((_%hd127766%_ _%hd127655127761%_) + (_%rest127768%_ _%tl127656127763%_)) + (_%K127654127758%_ + _%rest127768%_ + _%hd127766%_))) + (_%else127652127666%_))))))) + (_%expand-body127642%_ (gx#core-expand-block__% - (cons '%#begin-module _%body126352%_) - _%expand-special126354%_ + (cons '%#begin-module _%body127639%_) + _%expand-special127641%_ '#f values))))) (define gx#core-expand-import/export - (lambda (_%stx126193%_ - _%expanded?126194%_ - _%method126195%_ - _%current-phi126196%_ - _%expand1126197%_) - (letrec ((_%K126199%_ - (lambda (_%rest126319%_ _%r126320%_) - (let* ((_%e126321126328%_ _%rest126319%_) - (_%E126323126332%_ (lambda () _%r126320%_)) - (_%E126322126348%_ + (lambda (_%stx127480%_ + _%expanded?127481%_ + _%method127482%_ + _%current-phi127483%_ + _%expand1127484%_) + (letrec ((_%K127486%_ + (lambda (_%rest127606%_ _%r127607%_) + (let* ((_%e127608127615%_ _%rest127606%_) + (_%E127610127619%_ (lambda () _%r127607%_)) + (_%E127609127635%_ (lambda () - (if (gx#stx-pair? _%e126321126328%_) - (let ((_%e126324126336%_ - (gx#syntax-e _%e126321126328%_))) - (let ((_%hd126325126339%_ - (##car _%e126324126336%_)) - (_%tl126326126341%_ - (##cdr _%e126324126336%_))) - (let* ((_%hd126344%_ _%hd126325126339%_) - (_%rest126346%_ - _%tl126326126341%_)) - (_%step126200%_ - _%hd126344%_ - _%rest126346%_ - _%r126320%_)))) - (_%E126323126332%_))))) - (_%E126322126348%_)))) - (_%step126200%_ - (lambda (_%hd126233%_ _%rest126234%_ _%r126235%_) - (let* ((_%e126236126254%_ _%hd126233%_) - (_%E126249126258%_ + (if (gx#stx-pair? _%e127608127615%_) + (let ((_%e127611127623%_ + (gx#syntax-e _%e127608127615%_))) + (let ((_%hd127612127626%_ + (##car _%e127611127623%_)) + (_%tl127613127628%_ + (##cdr _%e127611127623%_))) + (let* ((_%hd127631%_ _%hd127612127626%_) + (_%rest127633%_ + _%tl127613127628%_)) + (_%step127487%_ + _%hd127631%_ + _%rest127633%_ + _%r127607%_)))) + (_%E127610127619%_))))) + (_%E127609127635%_)))) + (_%step127487%_ + (lambda (_%hd127520%_ _%rest127521%_ _%r127522%_) + (let* ((_%e127523127541%_ _%hd127520%_) + (_%E127536127545%_ (lambda () - (if (_%expanded?126194%_ (gx#stx-e _%hd126233%_)) - (_%K126199%_ - _%rest126234%_ - (cons (gx#stx-e _%hd126233%_) _%r126235%_)) - (_%expand1126197%_ - _%hd126233%_ - _%K126199%_ - _%rest126234%_ - _%r126235%_)))) - (_%E126245126274%_ + (if (_%expanded?127481%_ (gx#stx-e _%hd127520%_)) + (_%K127486%_ + _%rest127521%_ + (cons (gx#stx-e _%hd127520%_) _%r127522%_)) + (_%expand1127484%_ + _%hd127520%_ + _%K127486%_ + _%rest127521%_ + _%r127522%_)))) + (_%E127532127561%_ (lambda () - (if (gx#stx-pair? _%e126236126254%_) - (let ((_%e126250126262%_ - (gx#syntax-e _%e126236126254%_))) - (let ((_%hd126251126265%_ - (##car _%e126250126262%_)) - (_%tl126252126267%_ - (##cdr _%e126250126262%_))) - (let* ((_%macro126270%_ - _%hd126251126265%_) - (_%body126272%_ - _%tl126252126267%_)) + (if (gx#stx-pair? _%e127523127541%_) + (let ((_%e127537127549%_ + (gx#syntax-e _%e127523127541%_))) + (let ((_%hd127538127552%_ + (##car _%e127537127549%_)) + (_%tl127539127554%_ + (##cdr _%e127537127549%_))) + (let* ((_%macro127557%_ + _%hd127538127552%_) + (_%body127559%_ + _%tl127539127554%_)) (if (gx#core-bound-identifier?__% - _%macro126270%_ + _%macro127557%_ gx#syntax-binding?) - (_%K126199%_ + (_%K127486%_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _%macro126270%_) - _%hd126233%_ - _%method126195%_) - _%rest126234%_) - _%r126235%_) - (_%E126249126258%_))))) - (_%E126249126258%_)))) - (_%E126238126288%_ + _%macro127557%_) + _%hd127520%_ + _%method127482%_) + _%rest127521%_) + _%r127522%_) + (_%E127536127545%_))))) + (_%E127536127545%_)))) + (_%E127525127575%_ (lambda () - (if (gx#stx-pair? _%e126236126254%_) - (let ((_%e126246126278%_ - (gx#syntax-e _%e126236126254%_))) - (let ((_%hd126247126281%_ - (##car _%e126246126278%_)) - (_%tl126248126283%_ - (##cdr _%e126246126278%_))) - (if (eq? (gx#stx-e _%hd126247126281%_) + (if (gx#stx-pair? _%e127523127541%_) + (let ((_%e127533127565%_ + (gx#syntax-e _%e127523127541%_))) + (let ((_%hd127534127568%_ + (##car _%e127533127565%_)) + (_%tl127535127570%_ + (##cdr _%e127533127565%_))) + (if (eq? (gx#stx-e _%hd127534127568%_) 'begin:) - (let ((_%body126286%_ - _%tl126248126283%_)) - (_%K126199%_ + (let ((_%body127573%_ + _%tl127535127570%_)) + (_%K127486%_ (gx#stx-foldr cons - _%rest126234%_ - _%body126286%_) - _%r126235%_)) - (_%E126245126274%_)))) - (_%E126245126274%_)))) - (_%E126237126315%_ + _%rest127521%_ + _%body127573%_) + _%r127522%_)) + (_%E127532127561%_)))) + (_%E127532127561%_)))) + (_%E127524127602%_ (lambda () - (if (gx#stx-pair? _%e126236126254%_) - (let ((_%e126239126292%_ - (gx#syntax-e _%e126236126254%_))) - (let ((_%hd126240126295%_ - (##car _%e126239126292%_)) - (_%tl126241126297%_ - (##cdr _%e126239126292%_))) - (if (eq? (gx#stx-e _%hd126240126295%_) + (if (gx#stx-pair? _%e127523127541%_) + (let ((_%e127526127579%_ + (gx#syntax-e _%e127523127541%_))) + (let ((_%hd127527127582%_ + (##car _%e127526127579%_)) + (_%tl127528127584%_ + (##cdr _%e127526127579%_))) + (if (eq? (gx#stx-e _%hd127527127582%_) 'phi:) - (if (gx#stx-pair? _%tl126241126297%_) - (let ((_%e126242126300%_ + (if (gx#stx-pair? _%tl127528127584%_) + (let ((_%e127529127587%_ (gx#syntax-e - _%tl126241126297%_))) - (let ((_%hd126243126303%_ - (##car _%e126242126300%_)) - (_%tl126244126305%_ - (##cdr _%e126242126300%_))) - (let* ((_%dphi126308%_ - _%hd126243126303%_) - (_%body126310%_ - _%tl126244126305%_)) + _%tl127528127584%_))) + (let ((_%hd127530127590%_ + (##car _%e127529127587%_)) + (_%tl127531127592%_ + (##cdr _%e127529127587%_))) + (let* ((_%dphi127595%_ + _%hd127530127590%_) + (_%body127597%_ + _%tl127531127592%_)) (if (gx#stx-fixnum? - _%dphi126308%_) - (let ((_%rbody126313%_ + _%dphi127595%_) + (let ((_%rbody127600%_ (__call-with-parameters (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%K126199%_ _%body126310%_ '())) - _%current-phi126196%_ - (fx+ (gx#stx-e _%dphi126308%_) - (_%current-phi126196%_))))) - (_%K126199%_ - _%rest126234%_ - (__foldr1 cons _%r126235%_ _%rbody126313%_))) - (_%E126238126288%_))))) + (_%K127486%_ _%body127597%_ '())) + _%current-phi127483%_ + (fx+ (gx#stx-e _%dphi127595%_) + (_%current-phi127483%_))))) + (_%K127486%_ + _%rest127521%_ + (__foldr1 cons _%r127522%_ _%rbody127600%_))) + (_%E127525127575%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126238126288%_)) - (_%E126238126288%_)))) - (_%E126238126288%_))))) - (_%E126237126315%_))))) - (let* ((_%e126201126208%_ _%stx126193%_) - (_%E126203126212%_ + (_%E127525127575%_)) + (_%E127525127575%_)))) + (_%E127525127575%_))))) + (_%E127524127602%_))))) + (let* ((_%e127488127495%_ _%stx127480%_) + (_%E127490127499%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126201126208%_))) - (_%E126202126229%_ + _%e127488127495%_))) + (_%E127489127516%_ (lambda () - (if (gx#stx-pair? _%e126201126208%_) - (let ((_%e126204126216%_ - (gx#syntax-e _%e126201126208%_))) - (let ((_%hd126205126219%_ (##car _%e126204126216%_)) - (_%tl126206126221%_ (##cdr _%e126204126216%_))) - (let ((_%body126224%_ _%tl126206126221%_)) - (if (_%current-phi126196%_) - (_%K126199%_ _%body126224%_ '()) + (if (gx#stx-pair? _%e127488127495%_) + (let ((_%e127491127503%_ + (gx#syntax-e _%e127488127495%_))) + (let ((_%hd127492127506%_ (##car _%e127491127503%_)) + (_%tl127493127508%_ (##cdr _%e127491127503%_))) + (let ((_%body127511%_ _%tl127493127508%_)) + (if (_%current-phi127483%_) + (_%K127486%_ _%body127511%_ '()) (__call-with-parameters - (lambda () (_%K126199%_ _%body126224%_ '())) - _%current-phi126196%_ + (lambda () (_%K127486%_ _%body127511%_ '())) + _%current-phi127483%_ (gx#current-expander-phi)))))) - (_%E126203126212%_))))) - (_%E126202126229%_))))) + (_%E127490127499%_))))) + (_%E127489127516%_))))) (define gx#core-expand-import%__% - (lambda (_%stx125847%_ _%internal-expand?125848%_) - (letrec ((_%expand1125850%_ - (lambda (_%hd126165%_ _%K126166%_ _%rest126167%_ _%r126168%_) - (if (gx#core-bound-module? _%hd126165%_) - (_%import1125851%_ - (gx#syntax-local-e__0 _%hd126165%_) - _%K126166%_ - _%rest126167%_ - _%r126168%_) - (if (gx#core-library-module-path? _%hd126165%_) - (_%import1125851%_ + (lambda (_%stx127134%_ _%internal-expand?127135%_) + (letrec ((_%expand1127137%_ + (lambda (_%hd127452%_ _%K127453%_ _%rest127454%_ _%r127455%_) + (if (gx#core-bound-module? _%hd127452%_) + (_%import1127138%_ + (gx#syntax-local-e__0 _%hd127452%_) + _%K127453%_ + _%rest127454%_ + _%r127455%_) + (if (gx#core-library-module-path? _%hd127452%_) + (_%import1127138%_ (gx#import-module__0 (gx#core-resolve-library-module-path - _%hd126165%_)) - _%K126166%_ - _%rest126167%_ - _%r126168%_) + _%hd127452%_)) + _%K127453%_ + _%rest127454%_ + _%r127455%_) (if (gx#core-library-relative-module-path? - _%hd126165%_) - (_%import1125851%_ + _%hd127452%_) + (_%import1127138%_ (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _%hd126165%_)) - _%K126166%_ - _%rest126167%_ - _%r126168%_) - (let ((_%e126174%_ (gx#stx-e _%hd126165%_))) - (if (pair? _%e126174%_) - (let ((_%$e126177%_ - (gx#stx-e (##car _%e126174%_)))) - (if (eq? 'spec: _%$e126177%_) - (_%import-spec125854%_ - _%hd126165%_ - _%K126166%_ - _%rest126167%_ - _%r126168%_) - (if (eq? 'in: _%$e126177%_) - (_%import-submodule125852%_ - _%hd126165%_ - _%K126166%_ - _%rest126167%_ - _%r126168%_) + _%hd127452%_)) + _%K127453%_ + _%rest127454%_ + _%r127455%_) + (let ((_%e127461%_ (gx#stx-e _%hd127452%_))) + (if (pair? _%e127461%_) + (let ((_%$e127464%_ + (gx#stx-e (##car _%e127461%_)))) + (if (eq? 'spec: _%$e127464%_) + (_%import-spec127141%_ + _%hd127452%_ + _%K127453%_ + _%rest127454%_ + _%r127455%_) + (if (eq? 'in: _%$e127464%_) + (_%import-submodule127139%_ + _%hd127452%_ + _%K127453%_ + _%rest127454%_ + _%r127455%_) (if (eq? 'runtime: - _%$e126177%_) - (_%import-runtime125853%_ - _%hd126165%_ - _%K126166%_ - _%rest126167%_ - _%r126168%_) + _%$e127464%_) + (_%import-runtime127140%_ + _%hd127452%_ + _%K127453%_ + _%rest127454%_ + _%r127455%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _%stx125847%_ - _%hd126165%_))))) - (if (string? _%e126174%_) - (_%import1125851%_ + _%stx127134%_ + _%hd127452%_))))) + (if (string? _%e127461%_) + (_%import1127138%_ (gx#import-module__0 (gx#core-resolve-module-path__% - _%hd126165%_ - (gx#stx-source _%stx125847%_))) - _%K126166%_ - _%rest126167%_ - _%r126168%_) + _%hd127452%_ + (gx#stx-source _%stx127134%_))) + _%K127453%_ + _%rest127454%_ + _%r127455%_) (if (##structure-instance-of? - _%e126174%_ + _%e127461%_ 'gx#module-context::t) - (_%K126166%_ - _%rest126167%_ - (cons _%e126174%_ _%r126168%_)) + (_%K127453%_ + _%rest127454%_ + (cons _%e127461%_ _%r127455%_)) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _%stx125847%_ - _%hd126165%_)))))))))) - (_%import1125851%_ - (lambda (_%ctx126154%_ - _%K126155%_ - _%rest126156%_ - _%r126157%_) - (let ((_%dphi126159%_ + _%stx127134%_ + _%hd127452%_)))))))))) + (_%import1127138%_ + (lambda (_%ctx127441%_ + _%K127442%_ + _%rest127443%_ + _%r127444%_) + (let ((_%dphi127446%_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_%K126155%_ - _%rest126156%_ + (_%K127442%_ + _%rest127443%_ (cons (##structure gx#import-set::t - _%ctx126154%_ - _%dphi126159%_ - (map (lambda (_%g126160126162%_) + _%ctx127441%_ + _%dphi127446%_ + (map (lambda (_%g127447127449%_) (gx#core-module-export->import__% - _%g126160126162%_ + _%g127447127449%_ '#f - _%dphi126159%_)) + _%dphi127446%_)) (##unchecked-structure-ref - _%ctx126154%_ + _%ctx127441%_ '9 '#f '#f))) - _%r126157%_))))) - (_%import-submodule125852%_ - (lambda (_%hd126121%_ _%K126122%_ _%rest126123%_ _%r126124%_) - (let* ((_%e126125126132%_ _%hd126121%_) - (_%E126127126136%_ + _%r127444%_))))) + (_%import-submodule127139%_ + (lambda (_%hd127408%_ _%K127409%_ _%rest127410%_ _%r127411%_) + (let* ((_%e127412127419%_ _%hd127408%_) + (_%E127414127423%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126125126132%_))) - (_%E126126126150%_ + _%e127412127419%_))) + (_%E127413127437%_ (lambda () - (if (gx#stx-pair? _%e126125126132%_) - (let ((_%e126128126140%_ - (gx#syntax-e _%e126125126132%_))) - (let ((_%hd126129126143%_ - (##car _%e126128126140%_)) - (_%tl126130126145%_ - (##cdr _%e126128126140%_))) - (let ((_%spath126148%_ - _%tl126130126145%_)) - (_%import1125851%_ - (_%import-spec-source125855%_ - _%spath126148%_) - _%K126122%_ - _%rest126123%_ - _%r126124%_)))) - (_%E126127126136%_))))) - (_%E126126126150%_)))) - (_%import-runtime125853%_ - (lambda (_%hd126088%_ _%K126089%_ _%rest126090%_ _%r126091%_) - (let* ((_%e126092126099%_ _%hd126088%_) - (_%E126094126103%_ + (if (gx#stx-pair? _%e127412127419%_) + (let ((_%e127415127427%_ + (gx#syntax-e _%e127412127419%_))) + (let ((_%hd127416127430%_ + (##car _%e127415127427%_)) + (_%tl127417127432%_ + (##cdr _%e127415127427%_))) + (let ((_%spath127435%_ + _%tl127417127432%_)) + (_%import1127138%_ + (_%import-spec-source127142%_ + _%spath127435%_) + _%K127409%_ + _%rest127410%_ + _%r127411%_)))) + (_%E127414127423%_))))) + (_%E127413127437%_)))) + (_%import-runtime127140%_ + (lambda (_%hd127375%_ _%K127376%_ _%rest127377%_ _%r127378%_) + (let* ((_%e127379127386%_ _%hd127375%_) + (_%E127381127390%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126092126099%_))) - (_%E126093126117%_ + _%e127379127386%_))) + (_%E127380127404%_ (lambda () - (if (gx#stx-pair? _%e126092126099%_) - (let ((_%e126095126107%_ - (gx#syntax-e _%e126092126099%_))) - (let ((_%hd126096126110%_ - (##car _%e126095126107%_)) - (_%tl126097126112%_ - (##cdr _%e126095126107%_))) - (let ((_%spath126115%_ - _%tl126097126112%_)) - (_%K126089%_ - _%rest126090%_ - (cons (_%import-spec-source125855%_ - _%spath126115%_) - _%r126091%_))))) - (_%E126094126103%_))))) - (_%E126093126117%_)))) - (_%import-spec125854%_ - (lambda (_%hd125926%_ _%K125927%_ _%rest125928%_ _%r125929%_) - (let* ((_%e125930125947%_ _%hd125926%_) - (_%E125939125951%_ + (if (gx#stx-pair? _%e127379127386%_) + (let ((_%e127382127394%_ + (gx#syntax-e _%e127379127386%_))) + (let ((_%hd127383127397%_ + (##car _%e127382127394%_)) + (_%tl127384127399%_ + (##cdr _%e127382127394%_))) + (let ((_%spath127402%_ + _%tl127384127399%_)) + (_%K127376%_ + _%rest127377%_ + (cons (_%import-spec-source127142%_ + _%spath127402%_) + _%r127378%_))))) + (_%E127381127390%_))))) + (_%E127380127404%_)))) + (_%import-spec127141%_ + (lambda (_%hd127213%_ _%K127214%_ _%rest127215%_ _%r127216%_) + (let* ((_%e127217127234%_ _%hd127213%_) + (_%E127226127238%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125930125947%_))) - (_%E125932126062%_ + _%e127217127234%_))) + (_%E127219127349%_ (lambda () - (if (gx#stx-pair? _%e125930125947%_) - (let ((_%e125940125955%_ - (gx#syntax-e _%e125930125947%_))) - (let ((_%hd125941125958%_ - (##car _%e125940125955%_)) - (_%tl125942125960%_ - (##cdr _%e125940125955%_))) - (if (gx#stx-pair? _%tl125942125960%_) - (let ((_%e125943125963%_ + (if (gx#stx-pair? _%e127217127234%_) + (let ((_%e127227127242%_ + (gx#syntax-e _%e127217127234%_))) + (let ((_%hd127228127245%_ + (##car _%e127227127242%_)) + (_%tl127229127247%_ + (##cdr _%e127227127242%_))) + (if (gx#stx-pair? _%tl127229127247%_) + (let ((_%e127230127250%_ (gx#syntax-e - _%tl125942125960%_))) - (let ((_%hd125944125966%_ - (##car _%e125943125963%_)) - (_%tl125945125968%_ - (##cdr _%e125943125963%_))) - (let* ((_%path125971%_ - _%hd125944125966%_) - (_%specs125973%_ - _%tl125945125968%_)) - (let ((_%src-ctx125975%_ - (_%import-spec-source125855%_ - _%path125971%_)) - (_%exports125976%_ + _%tl127229127247%_))) + (let ((_%hd127231127253%_ + (##car _%e127230127250%_)) + (_%tl127232127255%_ + (##cdr _%e127230127250%_))) + (let* ((_%path127258%_ + _%hd127231127253%_) + (_%specs127260%_ + _%tl127232127255%_)) + (let ((_%src-ctx127262%_ + (_%import-spec-source127142%_ + _%path127258%_)) + (_%exports127263%_ (make-hash-table__% '#f absent-value @@ -2885,215 +2885,215 @@ absent-value absent-value absent-value)) - (_%specs125977%_ + (_%specs127264%_ (gx#syntax->list - _%specs125973%_))) + _%specs127260%_))) (for-each - (lambda (_%out125979%_) + (lambda (_%out127266%_) (__hash-put! - _%exports125976%_ + _%exports127263%_ (cons (##unchecked-structure-ref - _%out125979%_ + _%out127266%_ '3 '#f '#f) (##unchecked-structure-ref - _%out125979%_ + _%out127266%_ '4 '#f '#f)) - _%out125979%_)) + _%out127266%_)) (##unchecked-structure-ref - _%src-ctx125975%_ + _%src-ctx127262%_ '9 '#f '#f)) - (_%K125927%_ - _%rest125928%_ + (_%K127214%_ + _%rest127215%_ (__foldl1 - (lambda (_%spec125981%_ - _%r125982%_) - (let* ((_%e125983125999%_ - _%spec125981%_) - (_%E125985126003%_ + (lambda (_%spec127268%_ + _%r127269%_) + (let* ((_%e127270127286%_ + _%spec127268%_) + (_%E127272127290%_ (lambda () (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid syntax-case clause" - _%e125983125999%_))) - (_%E125984126058%_ + _%e127270127286%_))) + (_%E127271127345%_ (lambda () - (if (gx#stx-pair? _%e125983125999%_) - (let ((_%e125986126007%_ - (gx#syntax-e _%e125983125999%_))) - (let ((_%hd125987126010%_ - (##car _%e125986126007%_)) - (_%tl125988126012%_ - (##cdr _%e125986126007%_))) - (let ((_%phi126015%_ _%hd125987126010%_)) - (if (gx#stx-pair? _%tl125988126012%_) - (let ((_%e125989126017%_ - (gx#syntax-e _%tl125988126012%_))) - (let ((_%hd125990126020%_ - (##car _%e125989126017%_)) - (_%tl125991126022%_ - (##cdr _%e125989126017%_))) - (let ((_%name126025%_ - _%hd125990126020%_)) + (if (gx#stx-pair? _%e127270127286%_) + (let ((_%e127273127294%_ + (gx#syntax-e _%e127270127286%_))) + (let ((_%hd127274127297%_ + (##car _%e127273127294%_)) + (_%tl127275127299%_ + (##cdr _%e127273127294%_))) + (let ((_%phi127302%_ _%hd127274127297%_)) + (if (gx#stx-pair? _%tl127275127299%_) + (let ((_%e127276127304%_ + (gx#syntax-e _%tl127275127299%_))) + (let ((_%hd127277127307%_ + (##car _%e127276127304%_)) + (_%tl127278127309%_ + (##cdr _%e127276127304%_))) + (let ((_%name127312%_ + _%hd127277127307%_)) (if (gx#stx-pair? - _%tl125991126022%_) - (let ((_%e125992126027%_ + _%tl127278127309%_) + (let ((_%e127279127314%_ (gx#syntax-e - _%tl125991126022%_))) - (let ((_%hd125993126030%_ - (##car _%e125992126027%_)) - (_%tl125994126032%_ - (##cdr _%e125992126027%_))) - (let ((_%src-phi126035%_ - _%hd125993126030%_)) + _%tl127278127309%_))) + (let ((_%hd127280127317%_ + (##car _%e127279127314%_)) + (_%tl127281127319%_ + (##cdr _%e127279127314%_))) + (let ((_%src-phi127322%_ + _%hd127280127317%_)) (if (gx#stx-pair? - _%tl125994126032%_) - (let ((_%e125995126037%_ + _%tl127281127319%_) + (let ((_%e127282127324%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl125994126032%_))) - (let ((_%hd125996126040%_ (##car _%e125995126037%_)) - (_%tl125997126042%_ (##cdr _%e125995126037%_))) - (let ((_%src-name126045%_ _%hd125996126040%_)) - (if (gx#stx-null? _%tl125997126042%_) - (if (and (gx#stx-fixnum? _%src-phi126035%_) - (gx#identifier? _%src-name126045%_) - (gx#stx-fixnum? _%phi126015%_) - (gx#identifier? _%name126025%_)) - (let ((_%src-phi126047%_ - (gx#stx-e _%src-phi126035%_)) - (_%src-name126048%_ + (gx#syntax-e _%tl127281127319%_))) + (let ((_%hd127283127327%_ (##car _%e127282127324%_)) + (_%tl127284127329%_ (##cdr _%e127282127324%_))) + (let ((_%src-name127332%_ _%hd127283127327%_)) + (if (gx#stx-null? _%tl127284127329%_) + (if (and (gx#stx-fixnum? _%src-phi127322%_) + (gx#identifier? _%src-name127332%_) + (gx#stx-fixnum? _%phi127302%_) + (gx#identifier? _%name127312%_)) + (let ((_%src-phi127334%_ + (gx#stx-e _%src-phi127322%_)) + (_%src-name127335%_ (gx#core-identifier-key - _%src-name126045%_)) - (_%phi126049%_ (gx#stx-e _%phi126015%_)) - (_%name126050%_ + _%src-name127332%_)) + (_%phi127336%_ (gx#stx-e _%phi127302%_)) + (_%name127337%_ (gx#core-identifier-key - _%name126025%_))) - (let ((_%$e126052%_ + _%name127312%_))) + (let ((_%$e127339%_ (__hash-get - _%exports125976%_ - (cons _%src-phi126047%_ - _%src-name126048%_)))) - (if _%$e126052%_ - ((lambda (_%out126055%_) + _%exports127263%_ + (cons _%src-phi127334%_ + _%src-name127335%_)))) + (if _%$e127339%_ + ((lambda (_%out127342%_) (cons (gx#core-module-export->import__% - _%out126055%_ - _%name126050%_ - (fx- _%phi126049%_ - _%src-phi126047%_)) - _%r125982%_)) - _%$e126052%_) + _%out127342%_ + _%name127337%_ + (fx- _%phi127336%_ + _%src-phi127334%_)) + _%r127269%_)) + _%$e127339%_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _%stx125847%_ - _%hd125926%_)))) - (_%E125985126003%_)) - (_%E125985126003%_))))) - (_%E125985126003%_))))) + _%stx127134%_ + _%hd127213%_)))) + (_%E127272127290%_)) + (_%E127272127290%_))))) + (_%E127272127290%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125985126003%_))))) - (_%E125985126003%_))))) - (_%E125985126003%_))))) - (_%E125984126058%_))) + (_%E127272127290%_))))) + (_%E127272127290%_))))) + (_%E127272127290%_))))) + (_%E127271127345%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r125929%_ - _%specs125977%_)))))) - (_%E125939125951%_)))) - (_%E125939125951%_)))) - (_%E125931126084%_ + _%r127216%_ + _%specs127264%_)))))) + (_%E127226127238%_)))) + (_%E127226127238%_)))) + (_%E127218127371%_ (lambda () - (if (gx#stx-pair? _%e125930125947%_) - (let ((_%e125933126066%_ - (gx#syntax-e _%e125930125947%_))) - (let ((_%hd125934126069%_ - (##car _%e125933126066%_)) - (_%tl125935126071%_ - (##cdr _%e125933126066%_))) - (if (gx#stx-pair? _%tl125935126071%_) - (let ((_%e125936126074%_ + (if (gx#stx-pair? _%e127217127234%_) + (let ((_%e127220127353%_ + (gx#syntax-e _%e127217127234%_))) + (let ((_%hd127221127356%_ + (##car _%e127220127353%_)) + (_%tl127222127358%_ + (##cdr _%e127220127353%_))) + (if (gx#stx-pair? _%tl127222127358%_) + (let ((_%e127223127361%_ (gx#syntax-e - _%tl125935126071%_))) - (let ((_%hd125937126077%_ - (##car _%e125936126074%_)) - (_%tl125938126079%_ - (##cdr _%e125936126074%_))) - (let ((_%path126082%_ - _%hd125937126077%_)) + _%tl127222127358%_))) + (let ((_%hd127224127364%_ + (##car _%e127223127361%_)) + (_%tl127225127366%_ + (##cdr _%e127223127361%_))) + (let ((_%path127369%_ + _%hd127224127364%_)) (if (gx#stx-null? - _%tl125938126079%_) - (_%K125927%_ - _%rest125928%_ - (cons (_%import-spec-source125855%_ - _%path126082%_) - _%r125929%_)) - (_%E125932126062%_))))) - (_%E125932126062%_)))) - (_%E125932126062%_))))) - (_%E125931126084%_)))) - (_%import-spec-source125855%_ - (lambda (_%spath125924%_) + _%tl127225127366%_) + (_%K127214%_ + _%rest127215%_ + (cons (_%import-spec-source127142%_ + _%path127369%_) + _%r127216%_)) + (_%E127219127349%_))))) + (_%E127219127349%_)))) + (_%E127219127349%_))))) + (_%E127218127371%_)))) + (_%import-spec-source127142%_ + (lambda (_%spath127211%_) (gx#core-import-nested-module - _%spath125924%_ - _%stx125847%_))) - (_%import!125856%_ - (lambda (_%rbody125869%_) - (letrec* ((_%current-ctx125871%_ + _%spath127211%_ + _%stx127134%_))) + (_%import!127143%_ + (lambda (_%rbody127156%_) + (letrec* ((_%current-ctx127158%_ (gx#current-expander-context)) - (_%deps125872%_ (make-hash-table-eq)) - (_%bind!125873%_ - (lambda (_%hd125922%_) + (_%deps127159%_ (make-hash-table-eq)) + (_%bind!127160%_ + (lambda (_%hd127209%_) (gx#core-bind-import!__1 - _%hd125922%_ - _%current-ctx125871%_)))) - (let _%lp125875%_ ((_%rest125877%_ _%rbody125869%_) - (_%body125878%_ '())) - (let* ((_%rest125879125887%_ _%rest125877%_) - (_%else125881125898%_ + _%hd127209%_ + _%current-ctx127158%_)))) + (let _%lp127162%_ ((_%rest127164%_ _%rbody127156%_) + (_%body127165%_ '())) + (let* ((_%rest127166127174%_ _%rest127164%_) + (_%else127168127185%_ (lambda () (if (##structure-instance-of? - _%current-ctx125871%_ + _%current-ctx127158%_ 'gx#module-context::t) (##unchecked-structure-set! - _%current-ctx125871%_ + _%current-ctx127158%_ (__foldl1 cons (##unchecked-structure-ref - _%current-ctx125871%_ + _%current-ctx127158%_ '8 '#f '#f) - _%body125878%_) + _%body127165%_) '8 '#f '#f) '#!void) (__hash-for-each - (lambda (_%ctx125895%_ _%_125896%_) - (gx#eval-module _%ctx125895%_)) - _%deps125872%_) - _%body125878%_)) - (_%K125883125910%_ - (lambda (_%rest125901%_ _%hd125902%_) + (lambda (_%ctx127182%_ _%_127183%_) + (gx#eval-module _%ctx127182%_)) + _%deps127159%_) + _%body127165%_)) + (_%K127170127197%_ + (lambda (_%rest127188%_ _%hd127189%_) (if (##structure-direct-instance-of? - _%hd125902%_ + _%hd127189%_ 'gx#module-import::t) (let () - (_%bind!125873%_ _%hd125902%_) + (_%bind!127160%_ _%hd127189%_) (if (and (fxpositive? (##unchecked-structure-ref - _%hd125902%_ + _%hd127189%_ '3 '#f '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _%hd125902%_ + _%hd127189%_ '1 '#f '#f) @@ -3101,10 +3101,10 @@ '#f '#f))) (__hash-put! - _%deps125872%_ + _%deps127159%_ (##unchecked-structure-ref (##unchecked-structure-ref - _%hd125902%_ + _%hd127189%_ '1 '#f '#f) @@ -3114,155 +3114,155 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _%hd125902%_ + _%hd127189%_ 'gx#import-set::t) (let () (for-each - _%bind!125873%_ + _%bind!127160%_ (##unchecked-structure-ref - _%hd125902%_ + _%hd127189%_ '3 '#f '#f)) (if (fxpositive? (##unchecked-structure-ref - _%hd125902%_ + _%hd127189%_ '2 '#f '#f)) (__hash-put! - _%deps125872%_ + _%deps127159%_ (##unchecked-structure-ref - _%hd125902%_ + _%hd127189%_ '1 '#f '#f) '#t) '#!void)) - (let ((_%$e125906%_ + (let ((_%$e127193%_ (##structure-instance-of? - _%hd125902%_ + _%hd127189%_ 'gx#module-context::t))) - (if _%$e125906%_ - _%$e125906%_ + (if _%$e127193%_ + _%$e127193%_ (gx#raise-syntax-error '#f '"Unexpected import" - _%stx125847%_ - _%hd125902%_))))) - (_%lp125875%_ - _%rest125901%_ - (cons _%hd125902%_ _%body125878%_))))) - (if (pair? _%rest125879125887%_) - (let ((_%hd125884125913%_ - (##car _%rest125879125887%_)) - (_%tl125885125915%_ - (##cdr _%rest125879125887%_))) - (let* ((_%hd125918%_ _%hd125884125913%_) - (_%rest125920%_ _%tl125885125915%_)) - (_%K125883125910%_ - _%rest125920%_ - _%hd125918%_))) - (_%else125881125898%_))))))) - (_%expanded-import?125857%_ - (lambda (_%e125861%_) - (let ((_%$e125863%_ + _%stx127134%_ + _%hd127189%_))))) + (_%lp127162%_ + _%rest127188%_ + (cons _%hd127189%_ _%body127165%_))))) + (if (pair? _%rest127166127174%_) + (let ((_%hd127171127200%_ + (##car _%rest127166127174%_)) + (_%tl127172127202%_ + (##cdr _%rest127166127174%_))) + (let* ((_%hd127205%_ _%hd127171127200%_) + (_%rest127207%_ _%tl127172127202%_)) + (_%K127170127197%_ + _%rest127207%_ + _%hd127205%_))) + (_%else127168127185%_))))))) + (_%expanded-import?127144%_ + (lambda (_%e127148%_) + (let ((_%$e127150%_ (##structure-direct-instance-of? - _%e125861%_ + _%e127148%_ 'gx#import-set::t))) - (if _%$e125863%_ - _%$e125863%_ - (let ((_%$e125866%_ + (if _%$e127150%_ + _%$e127150%_ + (let ((_%$e127153%_ (##structure-direct-instance-of? - _%e125861%_ + _%e127148%_ 'gx#module-import::t))) - (if _%$e125866%_ - _%$e125866%_ + (if _%$e127153%_ + _%$e127153%_ (##structure-instance-of? - _%e125861%_ + _%e127148%_ 'gx#module-context::t)))))))) - (let ((_%rbody125859%_ + (let ((_%rbody127146%_ (gx#core-expand-import/export - _%stx125847%_ - _%expanded-import?125857%_ + _%stx127134%_ + _%expanded-import?127144%_ 'apply-import-expander gx#current-import-expander-phi - _%expand1125850%_))) - (if _%internal-expand?125848%_ - (reverse _%rbody125859%_) + _%expand1127137%_))) + (if _%internal-expand?127135%_ + (reverse _%rbody127146%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_%import!125856%_ _%rbody125859%_)) - (gx#stx-source _%stx125847%_))))))) + (gx#core-cons '%#import (_%import!127143%_ _%rbody127146%_)) + (gx#stx-source _%stx127134%_))))))) (define gx#core-expand-import%__0 - (lambda (_%stx126186%_) - (let ((_%internal-expand?126188%_ '#f)) + (lambda (_%stx127473%_) + (let ((_%internal-expand?127475%_ '#f)) (gx#core-expand-import%__% - _%stx126186%_ - _%internal-expand?126188%_)))) + _%stx127473%_ + _%internal-expand?127475%_)))) (define gx#core-expand-import% - (lambda _g128839_ - (let ((_g128838_ (##length _g128839_))) - (cond ((##fx= _g128838_ 1) - (apply gx#core-expand-import%__0 _g128839_)) - ((##fx= _g128838_ 2) - (apply gx#core-expand-import%__% _g128839_)) + (lambda _g130126_ + (let ((_g130125_ (##length _g130126_))) + (cond ((##fx= _g130125_ 1) + (apply gx#core-expand-import%__0 _g130126_)) + ((##fx= _g130125_ 2) + (apply gx#core-expand-import%__% _g130126_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-import% - _g128839_)))))) + _g130126_)))))) (define gx#core-import-nested-module - (lambda (_%spath125774%_ _%where125775%_) - (let* ((_%e125776125783%_ _%spath125774%_) - (_%E125778125787%_ + (lambda (_%spath127061%_ _%where127062%_) + (let* ((_%e127063127070%_ _%spath127061%_) + (_%E127065127074%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125776125783%_))) - (_%E125777125842%_ + _%e127063127070%_))) + (_%E127064127129%_ (lambda () - (if (gx#stx-pair? _%e125776125783%_) - (let ((_%e125779125791%_ - (gx#syntax-e _%e125776125783%_))) - (let ((_%hd125780125794%_ (##car _%e125779125791%_)) - (_%tl125781125796%_ (##cdr _%e125779125791%_))) - (let* ((_%origin125799%_ _%hd125780125794%_) - (_%sub125801%_ _%tl125781125796%_) - (_%origin-ctx125803%_ - (if (gx#stx-false? _%origin125799%_) + (if (gx#stx-pair? _%e127063127070%_) + (let ((_%e127066127078%_ + (gx#syntax-e _%e127063127070%_))) + (let ((_%hd127067127081%_ (##car _%e127066127078%_)) + (_%tl127068127083%_ (##cdr _%e127066127078%_))) + (let* ((_%origin127086%_ _%hd127067127081%_) + (_%sub127088%_ _%tl127068127083%_) + (_%origin-ctx127090%_ + (if (gx#stx-false? _%origin127086%_) (gx#current-expander-context) - (gx#import-module__0 _%origin125799%_)))) - (let _%lp125805%_ ((_%rest125807%_ _%sub125801%_) - (_%ctx125808%_ - _%origin-ctx125803%_)) - (let* ((_%e125809125816%_ _%rest125807%_) - (_%E125811125820%_ - (lambda () _%ctx125808%_)) - (_%E125810125838%_ + (gx#import-module__0 _%origin127086%_)))) + (let _%lp127092%_ ((_%rest127094%_ _%sub127088%_) + (_%ctx127095%_ + _%origin-ctx127090%_)) + (let* ((_%e127096127103%_ _%rest127094%_) + (_%E127098127107%_ + (lambda () _%ctx127095%_)) + (_%E127097127125%_ (lambda () - (if (gx#stx-pair? _%e125809125816%_) - (let ((_%e125812125824%_ + (if (gx#stx-pair? _%e127096127103%_) + (let ((_%e127099127111%_ (gx#syntax-e - _%e125809125816%_))) - (let ((_%hd125813125827%_ - (##car _%e125812125824%_)) - (_%tl125814125829%_ - (##cdr _%e125812125824%_))) - (let* ((_%id125832%_ - _%hd125813125827%_) - (_%rest125834%_ - _%tl125814125829%_) - (_%bind125836%_ + _%e127096127103%_))) + (let ((_%hd127100127114%_ + (##car _%e127099127111%_)) + (_%tl127101127116%_ + (##cdr _%e127099127111%_))) + (let* ((_%id127119%_ + _%hd127100127114%_) + (_%rest127121%_ + _%tl127101127116%_) + (_%bind127123%_ (gx#resolve-identifier__% - _%id125832%_ + _%id127119%_ '0 - _%ctx125808%_))) + _%ctx127095%_))) (if (and (##structure-direct-instance-of? - _%bind125836%_ + _%bind127123%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind125836%_ + _%bind127123%_ '4 '#f '#f) @@ -3271,804 +3271,804 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _%where125775%_ - _%spath125774%_ - _%id125832%_)) - (_%lp125805%_ - _%rest125834%_ + _%where127062%_ + _%spath127061%_ + _%id127119%_)) + (_%lp127092%_ + _%rest127121%_ (##unchecked-structure-ref - _%bind125836%_ + _%bind127123%_ '4 '#f '#f))))) - (_%E125811125820%_))))) - (_%E125810125838%_)))))) - (_%E125778125787%_))))) - (_%E125777125842%_)))) + (_%E127098127107%_))))) + (_%E127097127125%_)))))) + (_%E127065127074%_))))) + (_%E127064127129%_)))) (define gx#core-expand-import-source - (lambda (_%hd125772%_) + (lambda (_%hd127059%_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _%hd125772%_ '())) + (cons 'import-internal% (cons _%hd127059%_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_%stx125266%_ _%internal-expand?125267%_) - (letrec* ((_%make-export__128767128768%_ - (lambda (_%bind125720%_ - _%phi125721%_ - _%ctx125722%_ - _%name125723%_) - (let* ((_%key125725%_ + (lambda (_%stx126553%_ _%internal-expand?126554%_) + (letrec* ((_%make-export__130054130055%_ + (lambda (_%bind127007%_ + _%phi127008%_ + _%ctx127009%_ + _%name127010%_) + (let* ((_%key127012%_ (##unchecked-structure-ref - _%bind125720%_ + _%bind127007%_ '2 '#f '#f)) - (_%export-key125727%_ - (if _%name125723%_ - (gx#core-identifier-key _%name125723%_) - _%key125725%_))) + (_%export-key127014%_ + (if _%name127010%_ + (gx#core-identifier-key _%name127010%_) + _%key127012%_))) (##structure gx#module-export::t - _%ctx125722%_ - _%key125725%_ - _%phi125721%_ - _%export-key125727%_ - (let ((_%$e125730%_ + _%ctx127009%_ + _%key127012%_ + _%phi127008%_ + _%export-key127014%_ + (let ((_%$e127017%_ (##structure-instance-of? - _%bind125720%_ + _%bind127007%_ 'gx#extern-binding::t))) - (if _%$e125730%_ - _%$e125730%_ + (if _%$e127017%_ + _%$e127017%_ (##structure-direct-instance-of? - _%bind125720%_ + _%bind127007%_ 'gx#import-binding::t))))))) - (_%make-export__0__128769128772%_ - (lambda (_%bind125736%_) - (let* ((_%phi125738%_ (gx#current-export-expander-phi)) - (_%ctx125740%_ (gx#current-expander-context)) - (_%name125742%_ '#f)) - (_%make-export__128767128768%_ - _%bind125736%_ - _%phi125738%_ - _%ctx125740%_ - _%name125742%_)))) - (_%make-export__1__128770128773%_ - (lambda (_%bind125744%_ _%phi125745%_) - (let* ((_%ctx125747%_ (gx#current-expander-context)) - (_%name125749%_ '#f)) - (_%make-export__128767128768%_ - _%bind125744%_ - _%phi125745%_ - _%ctx125747%_ - _%name125749%_)))) - (_%make-export__2__128771128774%_ - (lambda (_%bind125751%_ _%phi125752%_ _%ctx125753%_) - (let ((_%name125755%_ '#f)) - (_%make-export__128767128768%_ - _%bind125751%_ - _%phi125752%_ - _%ctx125753%_ - _%name125755%_)))) - (_%make-export125269%_ - (lambda _g128841_ - (let ((_g128840_ (##length _g128841_))) - (cond ((##fx= _g128840_ 1) - (apply _%make-export__0__128769128772%_ - _g128841_)) - ((##fx= _g128840_ 2) - (apply _%make-export__1__128770128773%_ - _g128841_)) - ((##fx= _g128840_ 3) - (apply _%make-export__2__128771128774%_ - _g128841_)) - ((##fx= _g128840_ 4) - (apply _%make-export__128767128768%_ _g128841_)) + (_%make-export__0__130056130059%_ + (lambda (_%bind127023%_) + (let* ((_%phi127025%_ (gx#current-export-expander-phi)) + (_%ctx127027%_ (gx#current-expander-context)) + (_%name127029%_ '#f)) + (_%make-export__130054130055%_ + _%bind127023%_ + _%phi127025%_ + _%ctx127027%_ + _%name127029%_)))) + (_%make-export__1__130057130060%_ + (lambda (_%bind127031%_ _%phi127032%_) + (let* ((_%ctx127034%_ (gx#current-expander-context)) + (_%name127036%_ '#f)) + (_%make-export__130054130055%_ + _%bind127031%_ + _%phi127032%_ + _%ctx127034%_ + _%name127036%_)))) + (_%make-export__2__130058130061%_ + (lambda (_%bind127038%_ _%phi127039%_ _%ctx127040%_) + (let ((_%name127042%_ '#f)) + (_%make-export__130054130055%_ + _%bind127038%_ + _%phi127039%_ + _%ctx127040%_ + _%name127042%_)))) + (_%make-export126556%_ + (lambda _g130128_ + (let ((_g130127_ (##length _g130128_))) + (cond ((##fx= _g130127_ 1) + (apply _%make-export__0__130056130059%_ + _g130128_)) + ((##fx= _g130127_ 2) + (apply _%make-export__1__130057130060%_ + _g130128_)) + ((##fx= _g130127_ 3) + (apply _%make-export__2__130058130061%_ + _g130128_)) + ((##fx= _g130127_ 4) + (apply _%make-export__130054130055%_ _g130128_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g128841_)))))) - (_%expand1125270%_ - (lambda (_%hd125425%_ - _%K125426%_ - _%rest125427%_ - _%r125428%_) - (let* ((_%e125429125461%_ _%hd125425%_) - (_%E125456125465%_ + _g130128_)))))) + (_%expand1126557%_ + (lambda (_%hd126712%_ + _%K126713%_ + _%rest126714%_ + _%r126715%_) + (let* ((_%e126716126748%_ _%hd126712%_) + (_%E126743126752%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _%stx125266%_ - _%hd125425%_))) - (_%E125446125549%_ + _%stx126553%_ + _%hd126712%_))) + (_%E126733126836%_ (lambda () - (if (gx#stx-pair? _%e125429125461%_) - (let ((_%e125457125469%_ - (gx#syntax-e _%e125429125461%_))) - (let ((_%hd125458125472%_ - (##car _%e125457125469%_)) - (_%tl125459125474%_ - (##cdr _%e125457125469%_))) - (if (eq? (gx#stx-e _%hd125458125472%_) + (if (gx#stx-pair? _%e126716126748%_) + (let ((_%e126744126756%_ + (gx#syntax-e _%e126716126748%_))) + (let ((_%hd126745126759%_ + (##car _%e126744126756%_)) + (_%tl126746126761%_ + (##cdr _%e126744126756%_))) + (if (eq? (gx#stx-e _%hd126745126759%_) 'import:) - (let ((_%in125477%_ - _%tl125459125474%_)) - (if (gx#stx-list? _%in125477%_) - (let _%lp125479%_ ((_%in-rest125481%_ + (let ((_%in126764%_ + _%tl126746126761%_)) + (if (gx#stx-list? _%in126764%_) + (let _%lp126766%_ ((_%in-rest126768%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in125477%_) - (_%r125482%_ _%r125428%_)) + _%in126764%_) + (_%r126769%_ _%r126715%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%e125483125490%_ - _%in-rest125481%_) - (_%E125485125494%_ + (let* ((_%e126770126777%_ + _%in-rest126768%_) + (_%E126772126781%_ (lambda () - (_%K125426%_ - _%rest125427%_ - _%r125482%_))) - (_%E125484125545%_ + (_%K126713%_ + _%rest126714%_ + _%r126769%_))) + (_%E126771126832%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e125483125490%_) - (let ((_%e125486125498%_ - (gx#syntax-e _%e125483125490%_))) - (let ((_%hd125487125501%_ (##car _%e125486125498%_)) - (_%tl125488125503%_ - (##cdr _%e125486125498%_))) - (let* ((_%hd125506%_ _%hd125487125501%_) - (_%in-rest125508%_ _%tl125488125503%_) - (_%src125543%_ - (if (gx#core-bound-module? _%hd125506%_) - (gx#syntax-local-e__0 _%hd125506%_) + _%e126770126777%_) + (let ((_%e126773126785%_ + (gx#syntax-e _%e126770126777%_))) + (let ((_%hd126774126788%_ (##car _%e126773126785%_)) + (_%tl126775126790%_ + (##cdr _%e126773126785%_))) + (let* ((_%hd126793%_ _%hd126774126788%_) + (_%in-rest126795%_ _%tl126775126790%_) + (_%src126830%_ + (if (gx#core-bound-module? _%hd126793%_) + (gx#syntax-local-e__0 _%hd126793%_) (if (gx#core-library-module-path? - _%hd125506%_) + _%hd126793%_) (gx#import-module__0 (gx#core-resolve-library-module-path - _%hd125506%_)) + _%hd126793%_)) (if (gx#core-library-relative-module-path? - _%hd125506%_) + _%hd126793%_) (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _%hd125506%_)) + _%hd126793%_)) (if (gx#stx-string? - _%hd125506%_) + _%hd126793%_) (gx#import-module__0 (gx#core-resolve-module-path__% - _%hd125506%_ + _%hd126793%_ (gx#stx-source - _%stx125266%_))) - (let* ((_%e125514125521%_ - _%hd125506%_) - (_%E125516125525%_ + _%stx126553%_))) + (let* ((_%e126801126808%_ + _%hd126793%_) + (_%E126803126812%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _%stx125266%_ - _%hd125506%_))) - (_%E125515125539%_ + _%stx126553%_ + _%hd126793%_))) + (_%E126802126826%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e125514125521%_) - (let ((_%e125517125529%_ - (gx#syntax-e _%e125514125521%_))) - (let ((_%hd125518125532%_ - (##car _%e125517125529%_)) - (_%tl125519125534%_ - (##cdr _%e125517125529%_))) - (if (eq? (gx#stx-e _%hd125518125532%_) 'in:) - (let ((_%spath125537%_ _%tl125519125534%_)) + _%e126801126808%_) + (let ((_%e126804126816%_ + (gx#syntax-e _%e126801126808%_))) + (let ((_%hd126805126819%_ + (##car _%e126804126816%_)) + (_%tl126806126821%_ + (##cdr _%e126804126816%_))) + (if (eq? (gx#stx-e _%hd126805126819%_) 'in:) + (let ((_%spath126824%_ _%tl126806126821%_)) (gx#core-import-nested-module - _%spath125537%_ - _%stx125266%_)) - (_%E125516125525%_)))) - (_%E125516125525%_))))) - (_%E125515125539%_)))))))) + _%spath126824%_ + _%stx126553%_)) + (_%E126803126812%_)))) + (_%E126803126812%_))))) + (_%E126802126826%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp125479%_ - _%in-rest125508%_ - (_%export-imports125271%_ - _%src125543%_ - _%r125482%_))))) - (_%E125485125494%_))))) + (_%lp126766%_ + _%in-rest126795%_ + (_%export-imports126558%_ + _%src126830%_ + _%r126769%_))))) + (_%E126772126781%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125484125545%_))) - (_%E125456125465%_))) - (_%E125456125465%_)))) - (_%E125456125465%_)))) - (_%E125433125589%_ + (_%E126771126832%_))) + (_%E126743126752%_))) + (_%E126743126752%_)))) + (_%E126743126752%_)))) + (_%E126720126876%_ (lambda () - (if (gx#stx-pair? _%e125429125461%_) - (let ((_%e125447125553%_ - (gx#syntax-e _%e125429125461%_))) - (let ((_%hd125448125556%_ - (##car _%e125447125553%_)) - (_%tl125449125558%_ - (##cdr _%e125447125553%_))) - (if (eq? (gx#stx-e _%hd125448125556%_) + (if (gx#stx-pair? _%e126716126748%_) + (let ((_%e126734126840%_ + (gx#syntax-e _%e126716126748%_))) + (let ((_%hd126735126843%_ + (##car _%e126734126840%_)) + (_%tl126736126845%_ + (##cdr _%e126734126840%_))) + (if (eq? (gx#stx-e _%hd126735126843%_) 'rename:) (if (gx#stx-pair? - _%tl125449125558%_) - (let ((_%e125450125561%_ + _%tl126736126845%_) + (let ((_%e126737126848%_ (gx#syntax-e - _%tl125449125558%_))) - (let ((_%hd125451125564%_ - (##car _%e125450125561%_)) - (_%tl125452125566%_ - (##cdr _%e125450125561%_))) - (let ((_%id125569%_ - _%hd125451125564%_)) + _%tl126736126845%_))) + (let ((_%hd126738126851%_ + (##car _%e126737126848%_)) + (_%tl126739126853%_ + (##cdr _%e126737126848%_))) + (let ((_%id126856%_ + _%hd126738126851%_)) (if (gx#stx-pair? - _%tl125452125566%_) - (let ((_%e125453125571%_ + _%tl126739126853%_) + (let ((_%e126740126858%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl125452125566%_))) - (let ((_%hd125454125574%_ (##car _%e125453125571%_)) - (_%tl125455125576%_ (##cdr _%e125453125571%_))) - (let ((_%name125579%_ _%hd125454125574%_)) - (if (gx#stx-null? _%tl125455125576%_) - (let* ((_%phi125581%_ + _%tl126739126853%_))) + (let ((_%hd126741126861%_ (##car _%e126740126858%_)) + (_%tl126742126863%_ (##cdr _%e126740126858%_))) + (let ((_%name126866%_ _%hd126741126861%_)) + (if (gx#stx-null? _%tl126742126863%_) + (let* ((_%phi126868%_ (gx#current-export-expander-phi)) - (_%$e125583%_ + (_%$e126870%_ (gx#core-resolve-identifier__1 - _%id125569%_ - _%phi125581%_))) - (if _%$e125583%_ - ((lambda (_%bind125586%_) - (_%K125426%_ - _%rest125427%_ - (cons (_%make-export__128767128768%_ - _%bind125586%_ - _%phi125581%_ + _%id126856%_ + _%phi126868%_))) + (if _%$e126870%_ + ((lambda (_%bind126873%_) + (_%K126713%_ + _%rest126714%_ + (cons (_%make-export__130054130055%_ + _%bind126873%_ + _%phi126868%_ (gx#current-expander-context) - _%name125579%_) - _%r125428%_))) - _%$e125583%_) + _%name126866%_) + _%r126715%_))) + _%$e126870%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx125266%_ - _%hd125425%_ - _%id125569%_))) - (_%E125446125549%_))))) - (_%E125446125549%_))))) + _%stx126553%_ + _%hd126712%_ + _%id126856%_))) + (_%E126733126836%_))))) + (_%E126733126836%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125446125549%_)) - (_%E125446125549%_)))) - (_%E125446125549%_)))) - (_%E125432125639%_ + (_%E126733126836%_)) + (_%E126733126836%_)))) + (_%E126733126836%_)))) + (_%E126719126926%_ (lambda () - (if (gx#stx-pair? _%e125429125461%_) - (let ((_%e125434125593%_ - (gx#syntax-e _%e125429125461%_))) - (let ((_%hd125435125596%_ - (##car _%e125434125593%_)) - (_%tl125436125598%_ - (##cdr _%e125434125593%_))) - (if (eq? (gx#stx-e _%hd125435125596%_) + (if (gx#stx-pair? _%e126716126748%_) + (let ((_%e126721126880%_ + (gx#syntax-e _%e126716126748%_))) + (let ((_%hd126722126883%_ + (##car _%e126721126880%_)) + (_%tl126723126885%_ + (##cdr _%e126721126880%_))) + (if (eq? (gx#stx-e _%hd126722126883%_) 'spec:) (if (gx#stx-pair? - _%tl125436125598%_) - (let ((_%e125437125601%_ + _%tl126723126885%_) + (let ((_%e126724126888%_ (gx#syntax-e - _%tl125436125598%_))) - (let ((_%hd125438125604%_ - (##car _%e125437125601%_)) - (_%tl125439125606%_ - (##cdr _%e125437125601%_))) - (let ((_%phi125609%_ - _%hd125438125604%_)) + _%tl126723126885%_))) + (let ((_%hd126725126891%_ + (##car _%e126724126888%_)) + (_%tl126726126893%_ + (##cdr _%e126724126888%_))) + (let ((_%phi126896%_ + _%hd126725126891%_)) (if (gx#stx-pair? - _%tl125439125606%_) - (let ((_%e125440125611%_ + _%tl126726126893%_) + (let ((_%e126727126898%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl125439125606%_))) - (let ((_%hd125441125614%_ (##car _%e125440125611%_)) - (_%tl125442125616%_ (##cdr _%e125440125611%_))) - (let ((_%id125619%_ _%hd125441125614%_)) - (if (gx#stx-pair? _%tl125442125616%_) - (let ((_%e125443125621%_ - (gx#syntax-e _%tl125442125616%_))) - (let ((_%hd125444125624%_ - (##car _%e125443125621%_)) - (_%tl125445125626%_ - (##cdr _%e125443125621%_))) - (let ((_%name125629%_ _%hd125444125624%_)) - (if (gx#stx-null? _%tl125445125626%_) - (if (and (gx#stx-fixnum? _%phi125609%_) - (gx#identifier? _%id125619%_) - (gx#identifier? _%name125629%_)) - (let* ((_%phi125631%_ - (gx#stx-e _%phi125609%_)) - (_%$e125633%_ + _%tl126726126893%_))) + (let ((_%hd126728126901%_ (##car _%e126727126898%_)) + (_%tl126729126903%_ (##cdr _%e126727126898%_))) + (let ((_%id126906%_ _%hd126728126901%_)) + (if (gx#stx-pair? _%tl126729126903%_) + (let ((_%e126730126908%_ + (gx#syntax-e _%tl126729126903%_))) + (let ((_%hd126731126911%_ + (##car _%e126730126908%_)) + (_%tl126732126913%_ + (##cdr _%e126730126908%_))) + (let ((_%name126916%_ _%hd126731126911%_)) + (if (gx#stx-null? _%tl126732126913%_) + (if (and (gx#stx-fixnum? _%phi126896%_) + (gx#identifier? _%id126906%_) + (gx#identifier? _%name126916%_)) + (let* ((_%phi126918%_ + (gx#stx-e _%phi126896%_)) + (_%$e126920%_ (gx#core-resolve-identifier__1 - _%id125619%_ - _%phi125631%_))) - (if _%$e125633%_ - ((lambda (_%bind125636%_) - (_%K125426%_ - _%rest125427%_ - (cons (_%make-export__128767128768%_ - _%bind125636%_ - _%phi125631%_ + _%id126906%_ + _%phi126918%_))) + (if _%$e126920%_ + ((lambda (_%bind126923%_) + (_%K126713%_ + _%rest126714%_ + (cons (_%make-export__130054130055%_ + _%bind126923%_ + _%phi126918%_ (gx#current-expander-context) - _%name125629%_) - _%r125428%_))) - _%$e125633%_) + _%name126916%_) + _%r126715%_))) + _%$e126920%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx125266%_ - _%hd125425%_ - _%id125619%_))) - (_%E125433125589%_)) - (_%E125433125589%_))))) - (_%E125433125589%_))))) - (_%E125433125589%_))))) + _%stx126553%_ + _%hd126712%_ + _%id126906%_))) + (_%E126720126876%_)) + (_%E126720126876%_))))) + (_%E126720126876%_))))) + (_%E126720126876%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125433125589%_)) - (_%E125433125589%_)))) - (_%E125433125589%_)))) - (_%E125431125651%_ + (_%E126720126876%_)) + (_%E126720126876%_)))) + (_%E126720126876%_)))) + (_%E126718126938%_ (lambda () - (let ((_%id125643%_ _%e125429125461%_)) - (if (gx#identifier? _%id125643%_) - (let ((_%$e125645%_ + (let ((_%id126930%_ _%e126716126748%_)) + (if (gx#identifier? _%id126930%_) + (let ((_%$e126932%_ (gx#core-resolve-identifier__1 - _%id125643%_ + _%id126930%_ (gx#current-export-expander-phi)))) - (if _%$e125645%_ - ((lambda (_%bind125648%_) - (_%K125426%_ - _%rest125427%_ - (cons (_%make-export__0__128769128772%_ - _%bind125648%_) - _%r125428%_))) - _%$e125645%_) + (if _%$e126932%_ + ((lambda (_%bind126935%_) + (_%K126713%_ + _%rest126714%_ + (cons (_%make-export__0__130056130059%_ + _%bind126935%_) + _%r126715%_))) + _%$e126932%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx125266%_ - _%hd125425%_))) - (_%E125432125639%_))))) - (_%E125430125715%_ + _%stx126553%_ + _%hd126712%_))) + (_%E126719126926%_))))) + (_%E126717127002%_ (lambda () - (if (eq? (gx#stx-e _%e125429125461%_) '#t) - (let* ((_%current-ctx125655%_ + (if (eq? (gx#stx-e _%e126716126748%_) '#t) + (let* ((_%current-ctx126942%_ (gx#current-expander-context)) - (_%current-phi125657%_ + (_%current-phi126944%_ (gx#current-export-expander-phi)) - (_%phi-ctx125659%_ + (_%phi-ctx126946%_ (gx#core-context-shift - _%current-ctx125655%_ - _%current-phi125657%_)) - (_%phi-bind125661%_ + _%current-ctx126942%_ + _%current-phi126944%_)) + (_%phi-bind126948%_ (hash->list (##unchecked-structure-ref - _%phi-ctx125659%_ + _%phi-ctx126946%_ '2 '#f '#f)))) - (let _%lp125664%_ ((_%bind-rest125666%_ - _%phi-bind125661%_) - (_%set125667%_ '())) - (let* ((_%bind-rest125668125678%_ - _%bind-rest125666%_) - (_%else125670125686%_ + (let _%lp126951%_ ((_%bind-rest126953%_ + _%phi-bind126948%_) + (_%set126954%_ '())) + (let* ((_%bind-rest126955126965%_ + _%bind-rest126953%_) + (_%else126957126973%_ (lambda () - (_%K125426%_ - _%rest125427%_ + (_%K126713%_ + _%rest126714%_ (cons (##structure gx#export-set::t '#f - _%current-phi125657%_ - _%set125667%_) - _%r125428%_)))) - (_%K125672125696%_ - (lambda (_%bind-rest125689%_ - _%bind125690%_ - _%key125691%_) + _%current-phi126944%_ + _%set126954%_) + _%r126715%_)))) + (_%K126959126983%_ + (lambda (_%bind-rest126976%_ + _%bind126977%_ + _%key126978%_) (if (or (##structure-direct-instance-of? - _%bind125690%_ + _%bind126977%_ 'gx#import-binding::t) (gx#private-feature-binding? - _%bind125690%_)) - (_%lp125664%_ - _%bind-rest125689%_ - _%set125667%_) - (_%lp125664%_ - _%bind-rest125689%_ - (cons (_%make-export__2__128771128774%_ - _%bind125690%_ - _%current-phi125657%_ - _%current-ctx125655%_) - _%set125667%_)))))) - (if (pair? _%bind-rest125668125678%_) - (let ((_%hd125673125699%_ - (##car _%bind-rest125668125678%_)) - (_%tl125674125701%_ - (##cdr _%bind-rest125668125678%_))) - (if (pair? _%hd125673125699%_) - (let ((_%hd125675125704%_ - (##car _%hd125673125699%_)) - (_%tl125676125706%_ - (##cdr _%hd125673125699%_))) - (let* ((_%key125709%_ - _%hd125675125704%_) - (_%bind125711%_ - _%tl125676125706%_) - (_%bind-rest125713%_ - _%tl125674125701%_)) - (_%K125672125696%_ - _%bind-rest125713%_ - _%bind125711%_ - _%key125709%_))) - (_%else125670125686%_))) - (_%else125670125686%_))))) - (_%E125431125651%_))))) - (_%E125430125715%_)))) - (_%export-imports125271%_ - (lambda (_%src125301%_ _%r125302%_) - (letrec* ((_%current-ctx125304%_ + _%bind126977%_)) + (_%lp126951%_ + _%bind-rest126976%_ + _%set126954%_) + (_%lp126951%_ + _%bind-rest126976%_ + (cons (_%make-export__2__130058130061%_ + _%bind126977%_ + _%current-phi126944%_ + _%current-ctx126942%_) + _%set126954%_)))))) + (if (pair? _%bind-rest126955126965%_) + (let ((_%hd126960126986%_ + (##car _%bind-rest126955126965%_)) + (_%tl126961126988%_ + (##cdr _%bind-rest126955126965%_))) + (if (pair? _%hd126960126986%_) + (let ((_%hd126962126991%_ + (##car _%hd126960126986%_)) + (_%tl126963126993%_ + (##cdr _%hd126960126986%_))) + (let* ((_%key126996%_ + _%hd126962126991%_) + (_%bind126998%_ + _%tl126963126993%_) + (_%bind-rest127000%_ + _%tl126961126988%_)) + (_%K126959126983%_ + _%bind-rest127000%_ + _%bind126998%_ + _%key126996%_))) + (_%else126957126973%_))) + (_%else126957126973%_))))) + (_%E126718126938%_))))) + (_%E126717127002%_)))) + (_%export-imports126558%_ + (lambda (_%src126588%_ _%r126589%_) + (letrec* ((_%current-ctx126591%_ (gx#current-expander-context)) - (_%current-phi125305%_ + (_%current-phi126592%_ (gx#current-export-expander-phi)) - (_%import->export125306%_ - (lambda (_%in125387%_) - (let* ((_%in125388125396%_ _%in125387%_) - (_%E125390125400%_ + (_%import->export126593%_ + (lambda (_%in126674%_) + (let* ((_%in126675126683%_ _%in126674%_) + (_%E126677126687%_ (lambda () (error '"No clause matching" - _%in125388125396%_ + _%in126675126683%_ '((module-import out key phi))) '#!void)) - (_%K125391125407%_ - (lambda (_%phi125403%_ - _%key125404%_ - _%out125405%_) + (_%K126678126694%_ + (lambda (_%phi126690%_ + _%key126691%_ + _%out126692%_) (##structure gx#module-export::t - _%current-ctx125304%_ - _%key125404%_ - _%phi125403%_ - _%key125404%_ + _%current-ctx126591%_ + _%key126691%_ + _%phi126690%_ + _%key126691%_ '#t)))) (if (##structure-direct-instance-of? - _%in125388125396%_ + _%in126675126683%_ 'gx#module-import::t) - (let* ((_%e125392125410%_ + (let* ((_%e126679126697%_ (##unchecked-structure-ref - _%in125388125396%_ + _%in126675126683%_ '1 '#f '#f)) - (_%out125413%_ - _%e125392125410%_) - (_%e125393125415%_ + (_%out126700%_ + _%e126679126697%_) + (_%e126680126702%_ (##unchecked-structure-ref - _%in125388125396%_ + _%in126675126683%_ '2 '#f '#f)) - (_%key125418%_ - _%e125393125415%_) - (_%e125394125420%_ + (_%key126705%_ + _%e126680126702%_) + (_%e126681126707%_ (##unchecked-structure-ref - _%in125388125396%_ + _%in126675126683%_ '3 '#f '#f)) - (_%phi125423%_ - _%e125394125420%_)) - (_%K125391125407%_ - _%phi125423%_ - _%key125418%_ - _%out125413%_)) - (_%E125390125400%_))))) - (_%fold-e125307%_ - (lambda (_%in125309%_ _%r125310%_) - (let* ((_%in125311125325%_ _%in125309%_) - (_%else125314125333%_ - (lambda () _%r125310%_))) - (let ((_%K125320125369%_ - (lambda (_%phi125365%_ - _%key125366%_ - _%out125367%_) - (if (and (fx= _%phi125365%_ - _%current-phi125305%_) - (eq? _%src125301%_ + (_%phi126710%_ + _%e126681126707%_)) + (_%K126678126694%_ + _%phi126710%_ + _%key126705%_ + _%out126700%_)) + (_%E126677126687%_))))) + (_%fold-e126594%_ + (lambda (_%in126596%_ _%r126597%_) + (let* ((_%in126598126612%_ _%in126596%_) + (_%else126601126620%_ + (lambda () _%r126597%_))) + (let ((_%K126607126656%_ + (lambda (_%phi126652%_ + _%key126653%_ + _%out126654%_) + (if (and (fx= _%phi126652%_ + _%current-phi126592%_) + (eq? _%src126588%_ (##unchecked-structure-ref - _%out125367%_ + _%out126654%_ '1 '#f '#f))) - (cons (_%import->export125306%_ - _%in125309%_) - _%r125310%_) - _%r125310%_))) - (_%K125316125344%_ - (lambda (_%imports125337%_ - _%phi125338%_ - _%ctx125339%_) - (if (and (fx= _%phi125338%_ - _%current-phi125305%_) - (eq? _%src125301%_ - _%ctx125339%_)) + (cons (_%import->export126593%_ + _%in126596%_) + _%r126597%_) + _%r126597%_))) + (_%K126603126631%_ + (lambda (_%imports126624%_ + _%phi126625%_ + _%ctx126626%_) + (if (and (fx= _%phi126625%_ + _%current-phi126592%_) + (eq? _%src126588%_ + _%ctx126626%_)) (__foldl1 - (lambda (_%in125341%_ - _%r125342%_) - (cons (_%import->export125306%_ - _%in125341%_) - _%r125342%_)) - _%r125310%_ - _%imports125337%_) - _%r125310%_)))) - (let ((_%try-match125313125362%_ + (lambda (_%in126628%_ + _%r126629%_) + (cons (_%import->export126593%_ + _%in126628%_) + _%r126629%_)) + _%r126597%_ + _%imports126624%_) + _%r126597%_)))) + (let ((_%try-match126600126649%_ (lambda () (if (##structure-direct-instance-of? - _%in125311125325%_ + _%in126598126612%_ 'gx#import-set::t) - (let* ((_%e125317125347%_ + (let* ((_%e126604126634%_ (##unchecked-structure-ref - _%in125311125325%_ + _%in126598126612%_ '1 '#f '#f)) - (_%e125318125352%_ + (_%e126605126639%_ (##unchecked-structure-ref - _%in125311125325%_ + _%in126598126612%_ '2 '#f '#f)) - (_%e125319125357%_ + (_%e126606126644%_ (##unchecked-structure-ref - _%in125311125325%_ + _%in126598126612%_ '3 '#f '#f))) - (let ((_%ctx125350%_ - _%e125317125347%_) - (_%phi125355%_ - _%e125318125352%_) - (_%imports125360%_ - _%e125319125357%_)) - (_%K125316125344%_ - _%imports125360%_ - _%phi125355%_ - _%ctx125350%_))) - (_%else125314125333%_))))) + (let ((_%ctx126637%_ + _%e126604126634%_) + (_%phi126642%_ + _%e126605126639%_) + (_%imports126647%_ + _%e126606126644%_)) + (_%K126603126631%_ + _%imports126647%_ + _%phi126642%_ + _%ctx126637%_))) + (_%else126601126620%_))))) (if (##structure-direct-instance-of? - _%in125311125325%_ + _%in126598126612%_ 'gx#module-import::t) - (let* ((_%e125321125372%_ + (let* ((_%e126608126659%_ (##unchecked-structure-ref - _%in125311125325%_ + _%in126598126612%_ '1 '#f '#f)) - (_%e125322125377%_ + (_%e126609126664%_ (##unchecked-structure-ref - _%in125311125325%_ + _%in126598126612%_ '2 '#f '#f)) - (_%e125323125382%_ + (_%e126610126669%_ (##unchecked-structure-ref - _%in125311125325%_ + _%in126598126612%_ '3 '#f '#f))) - (let ((_%out125375%_ - _%e125321125372%_) - (_%key125380%_ - _%e125322125377%_) - (_%phi125385%_ - _%e125323125382%_)) - (_%K125320125369%_ - _%phi125385%_ - _%key125380%_ - _%out125375%_))) - (_%try-match125313125362%_)))))))) + (let ((_%out126662%_ + _%e126608126659%_) + (_%key126667%_ + _%e126609126664%_) + (_%phi126672%_ + _%e126610126669%_)) + (_%K126607126656%_ + _%phi126672%_ + _%key126667%_ + _%out126662%_))) + (_%try-match126600126649%_)))))))) (cons (##structure gx#export-set::t - _%src125301%_ - _%current-phi125305%_ + _%src126588%_ + _%current-phi126592%_ (__foldl1 - _%fold-e125307%_ + _%fold-e126594%_ '() (##unchecked-structure-ref - _%current-ctx125304%_ + _%current-ctx126591%_ '8 '#f '#f))) - _%r125302%_)))) - (_%export!125272%_ - (lambda (_%rbody125288%_) - (letrec* ((_%current-ctx125290%_ + _%r126589%_)))) + (_%export!126559%_ + (lambda (_%rbody126575%_) + (letrec* ((_%current-ctx126577%_ (gx#current-expander-context)) - (_%fold-e125291%_ - (lambda (_%out125295%_ _%r125296%_) + (_%fold-e126578%_ + (lambda (_%out126582%_ _%r126583%_) (if (##structure-direct-instance-of? - _%out125295%_ + _%out126582%_ 'gx#module-export::t) - (cons _%out125295%_ _%r125296%_) + (cons _%out126582%_ _%r126583%_) (if (##structure-direct-instance-of? - _%out125295%_ + _%out126582%_ 'gx#export-set::t) (__foldl1 cons - _%r125296%_ + _%r126583%_ (##unchecked-structure-ref - _%out125295%_ + _%out126582%_ '3 '#f '#f)) - _%r125296%_))))) - (let ((_%body125293%_ (reverse _%rbody125288%_))) + _%r126583%_))))) + (let ((_%body126580%_ (reverse _%rbody126575%_))) (##unchecked-structure-set! - _%current-ctx125290%_ + _%current-ctx126577%_ (__foldl1 - _%fold-e125291%_ + _%fold-e126578%_ (##unchecked-structure-ref - _%current-ctx125290%_ + _%current-ctx126577%_ '9 '#f '#f) - _%body125293%_) + _%body126580%_) '9 '#f '#f) - _%body125293%_)))) - (_%expanded-export?125273%_ - (lambda (_%e125283%_) - (let ((_%$e125285%_ + _%body126580%_)))) + (_%expanded-export?126560%_ + (lambda (_%e126570%_) + (let ((_%$e126572%_ (##structure-direct-instance-of? - _%e125283%_ + _%e126570%_ 'gx#module-export::t))) - (if _%$e125285%_ - _%$e125285%_ + (if _%$e126572%_ + _%$e126572%_ (##structure-direct-instance-of? - _%e125283%_ + _%e126570%_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _%internal-expand?125267%_) - (let ((_%rbody125279%_ + _%internal-expand?126554%_) + (let ((_%rbody126566%_ (gx#core-expand-import/export - _%stx125266%_ - _%expanded-export?125273%_ + _%stx126553%_ + _%expanded-export?126560%_ 'apply-export-expander gx#current-export-expander-phi - _%expand1125270%_))) - (if _%internal-expand?125267%_ - (reverse _%rbody125279%_) + _%expand1126557%_))) + (if _%internal-expand?126554%_ + (reverse _%rbody126566%_) (gx#core-quote-syntax__1 (gx#core-cons '%#export - (_%export!125272%_ _%rbody125279%_)) - (gx#stx-source _%stx125266%_)))) + (_%export!126559%_ _%rbody126566%_)) + (gx#stx-source _%stx126553%_)))) (if (##structure-instance-of? (gx#current-expander-context) 'gx#top-context::t) (gx#core-quote-syntax__1 (gx#core-cons '%#begin '()) - (gx#stx-source _%stx125266%_)) + (gx#stx-source _%stx126553%_)) (gx#raise-syntax-error '#f '"Illegal context" - _%stx125266%_)))))) + _%stx126553%_)))))) (define gx#core-expand-export%__0 - (lambda (_%stx125765%_) - (let ((_%internal-expand?125767%_ '#f)) + (lambda (_%stx127052%_) + (let ((_%internal-expand?127054%_ '#f)) (gx#core-expand-export%__% - _%stx125765%_ - _%internal-expand?125767%_)))) + _%stx127052%_ + _%internal-expand?127054%_)))) (define gx#core-expand-export% - (lambda _g128843_ - (let ((_g128842_ (##length _g128843_))) - (cond ((##fx= _g128842_ 1) - (apply gx#core-expand-export%__0 _g128843_)) - ((##fx= _g128842_ 2) - (apply gx#core-expand-export%__% _g128843_)) + (lambda _g130130_ + (let ((_g130129_ (##length _g130130_))) + (cond ((##fx= _g130129_ 1) + (apply gx#core-expand-export%__0 _g130130_)) + ((##fx= _g130129_ 2) + (apply gx#core-expand-export%__% _g130130_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-export% - _g128843_)))))) + _g130130_)))))) (define gx#core-expand-export-source - (lambda (_%hd125263%_) + (lambda (_%hd126550%_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _%hd125263%_ '())) + (cons 'export-macro% (cons _%hd126550%_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_%stx125233%_) - (let* ((_%e125234125241%_ _%stx125233%_) - (_%E125236125245%_ + (lambda (_%stx126520%_) + (let* ((_%e126521126528%_ _%stx126520%_) + (_%E126523126532%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125234125241%_))) - (_%E125235125259%_ + _%e126521126528%_))) + (_%E126522126546%_ (lambda () - (if (gx#stx-pair? _%e125234125241%_) - (let ((_%e125237125249%_ - (gx#syntax-e _%e125234125241%_))) - (let ((_%hd125238125252%_ (##car _%e125237125249%_)) - (_%tl125239125254%_ (##cdr _%e125237125249%_))) - (let ((_%body125257%_ _%tl125239125254%_)) - (if (gx#identifier-list? _%body125257%_) + (if (gx#stx-pair? _%e126521126528%_) + (let ((_%e126524126536%_ + (gx#syntax-e _%e126521126528%_))) + (let ((_%hd126525126539%_ (##car _%e126524126536%_)) + (_%tl126526126541%_ (##cdr _%e126524126536%_))) + (let ((_%body126544%_ _%tl126526126541%_)) + (if (gx#identifier-list? _%body126544%_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _%body125257%_) + _%body126544%_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _%body125257%_)) - (gx#stx-source _%stx125233%_))) - (_%E125236125245%_))))) - (_%E125236125245%_))))) - (_%E125235125259%_)))) + _%body126544%_)) + (gx#stx-source _%stx126520%_))) + (_%E126523126532%_))))) + (_%E126523126532%_))))) + (_%E126522126546%_)))) (define gx#core-bind-feature!__% - (lambda (_%id125199%_ _%private?125200%_ _%phi125201%_ _%ctx125202%_) + (lambda (_%id126486%_ _%private?126487%_ _%phi126488%_ _%ctx126489%_) (gx#core-bind-syntax!__% - _%id125199%_ - ((if _%private?125200%_ + _%id126486%_ + ((if _%private?126487%_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _%id125199%_)) - _%private?125200%_ - _%phi125201%_ - _%ctx125202%_))) + (gx#stx-e _%id126486%_)) + _%private?126487%_ + _%phi126488%_ + _%ctx126489%_))) (define gx#core-bind-feature!__0 - (lambda (_%id125207%_) - (let* ((_%private?125209%_ '#f) - (_%phi125211%_ (gx#current-expander-phi)) - (_%ctx125213%_ (gx#current-expander-context))) + (lambda (_%id126494%_) + (let* ((_%private?126496%_ '#f) + (_%phi126498%_ (gx#current-expander-phi)) + (_%ctx126500%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id125207%_ - _%private?125209%_ - _%phi125211%_ - _%ctx125213%_)))) + _%id126494%_ + _%private?126496%_ + _%phi126498%_ + _%ctx126500%_)))) (define gx#core-bind-feature!__1 - (lambda (_%id125215%_ _%private?125216%_) - (let* ((_%phi125218%_ (gx#current-expander-phi)) - (_%ctx125220%_ (gx#current-expander-context))) + (lambda (_%id126502%_ _%private?126503%_) + (let* ((_%phi126505%_ (gx#current-expander-phi)) + (_%ctx126507%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id125215%_ - _%private?125216%_ - _%phi125218%_ - _%ctx125220%_)))) + _%id126502%_ + _%private?126503%_ + _%phi126505%_ + _%ctx126507%_)))) (define gx#core-bind-feature!__2 - (lambda (_%id125222%_ _%private?125223%_ _%phi125224%_) - (let ((_%ctx125226%_ (gx#current-expander-context))) + (lambda (_%id126509%_ _%private?126510%_ _%phi126511%_) + (let ((_%ctx126513%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id125222%_ - _%private?125223%_ - _%phi125224%_ - _%ctx125226%_)))) + _%id126509%_ + _%private?126510%_ + _%phi126511%_ + _%ctx126513%_)))) (define gx#core-bind-feature! - (lambda _g128845_ - (let ((_g128844_ (##length _g128845_))) - (cond ((##fx= _g128844_ 1) - (apply gx#core-bind-feature!__0 _g128845_)) - ((##fx= _g128844_ 2) - (apply gx#core-bind-feature!__1 _g128845_)) - ((##fx= _g128844_ 3) - (apply gx#core-bind-feature!__2 _g128845_)) - ((##fx= _g128844_ 4) - (apply gx#core-bind-feature!__% _g128845_)) + (lambda _g130132_ + (let ((_g130131_ (##length _g130132_))) + (cond ((##fx= _g130131_ 1) + (apply gx#core-bind-feature!__0 _g130132_)) + ((##fx= _g130131_ 2) + (apply gx#core-bind-feature!__1 _g130132_)) + ((##fx= _g130131_ 3) + (apply gx#core-bind-feature!__2 _g130132_)) + ((##fx= _g130131_ 4) + (apply gx#core-bind-feature!__% _g130132_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-feature! - _g128845_)))))))) + _g130132_)))))))) diff --git a/src/bootstrap/gerbil/expander/module~1.scm b/src/bootstrap/gerbil/expander/module~1.scm index 9cb20ac36..d4ab3048e 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]#_g128847_| + (define |gx[1]#_g130134_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g128849_| + (define |gx[1]#_g130136_| (##structure gx#syntax-quote::t 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g128851_| + (define |gx[1]#_g130138_| (##structure gx#syntax-quote::t 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128853_| + (define |gx[1]#_g130140_| (##structure gx#syntax-quote::t 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g128854_| + (define |gx[1]#_g130141_| (##structure gx#syntax-quote::t 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g128855_| + (define |gx[1]#_g130142_| (##structure gx#syntax-quote::t 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128856_| + (define |gx[1]#_g130143_| (##structure gx#syntax-quote::t 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128858_| + (define |gx[1]#_g130145_| (##structure gx#syntax-quote::t 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128859_| + (define |gx[1]#_g130146_| (##structure gx#syntax-quote::t 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128860_| + (define |gx[1]#_g130147_| (##structure gx#syntax-quote::t 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128861_| + (define |gx[1]#_g130148_| (##structure gx#syntax-quote::t 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128863_| + (define |gx[1]#_g130150_| (##structure gx#syntax-quote::t '&module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g128864_| + (define |gx[1]#_g130151_| (##structure gx#syntax-quote::t '&module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g128865_| + (define |gx[1]#_g130152_| (##structure gx#syntax-quote::t '&module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128866_| + (define |gx[1]#_g130153_| (##structure gx#syntax-quote::t '&module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128868_| + (define |gx[1]#_g130155_| (##structure gx#syntax-quote::t '&module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128869_| + (define |gx[1]#_g130156_| (##structure gx#syntax-quote::t '&module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128870_| + (define |gx[1]#_g130157_| (##structure gx#syntax-quote::t '&module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128871_| + (define |gx[1]#_g130158_| (##structure gx#syntax-quote::t '&module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128873_| + (define |gx[1]#_g130160_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g128875_| + (define |gx[1]#_g130162_| (##structure gx#syntax-quote::t 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g128877_| + (define |gx[1]#_g130164_| (##structure gx#syntax-quote::t 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128879_| + (define |gx[1]#_g130166_| (##structure gx#syntax-quote::t 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g128880_| + (define |gx[1]#_g130167_| (##structure gx#syntax-quote::t 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g128881_| + (define |gx[1]#_g130168_| (##structure gx#syntax-quote::t 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128882_| + (define |gx[1]#_g130169_| (##structure gx#syntax-quote::t 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g128883_| + (define |gx[1]#_g130170_| (##structure gx#syntax-quote::t 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128885_| + (define |gx[1]#_g130172_| (##structure gx#syntax-quote::t 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128886_| + (define |gx[1]#_g130173_| (##structure gx#syntax-quote::t 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128887_| + (define |gx[1]#_g130174_| (##structure gx#syntax-quote::t 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128888_| + (define |gx[1]#_g130175_| (##structure gx#syntax-quote::t 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128889_| + (define |gx[1]#_g130176_| (##structure gx#syntax-quote::t 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128891_| + (define |gx[1]#_g130178_| (##structure gx#syntax-quote::t '&module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g128892_| + (define |gx[1]#_g130179_| (##structure gx#syntax-quote::t '&module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g128893_| + (define |gx[1]#_g130180_| (##structure gx#syntax-quote::t '&module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128894_| + (define |gx[1]#_g130181_| (##structure gx#syntax-quote::t '&module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g128895_| + (define |gx[1]#_g130182_| (##structure gx#syntax-quote::t '&module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128897_| + (define |gx[1]#_g130184_| (##structure gx#syntax-quote::t '&module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128898_| + (define |gx[1]#_g130185_| (##structure gx#syntax-quote::t '&module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128899_| + (define |gx[1]#_g130186_| (##structure gx#syntax-quote::t '&module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128900_| + (define |gx[1]#_g130187_| (##structure gx#syntax-quote::t '&module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128901_| + (define |gx[1]#_g130188_| (##structure gx#syntax-quote::t '&module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128903_| + (define |gx[1]#_g130190_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g128905_| + (define |gx[1]#_g130192_| (##structure gx#syntax-quote::t 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g128907_| + (define |gx[1]#_g130194_| (##structure gx#syntax-quote::t 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128909_| + (define |gx[1]#_g130196_| (##structure gx#syntax-quote::t 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g128910_| + (define |gx[1]#_g130197_| (##structure gx#syntax-quote::t 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128911_| + (define |gx[1]#_g130198_| (##structure gx#syntax-quote::t 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g128913_| + (define |gx[1]#_g130200_| (##structure gx#syntax-quote::t 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128914_| + (define |gx[1]#_g130201_| (##structure gx#syntax-quote::t 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128915_| + (define |gx[1]#_g130202_| (##structure gx#syntax-quote::t 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128917_| + (define |gx[1]#_g130204_| (##structure gx#syntax-quote::t '&import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g128918_| + (define |gx[1]#_g130205_| (##structure gx#syntax-quote::t '&import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128919_| + (define |gx[1]#_g130206_| (##structure gx#syntax-quote::t '&import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g128921_| + (define |gx[1]#_g130208_| (##structure gx#syntax-quote::t '&import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128922_| + (define |gx[1]#_g130209_| (##structure gx#syntax-quote::t '&import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128923_| + (define |gx[1]#_g130210_| (##structure gx#syntax-quote::t '&import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128925_| + (define |gx[1]#_g130212_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g128927_| + (define |gx[1]#_g130214_| (##structure gx#syntax-quote::t 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g128929_| + (define |gx[1]#_g130216_| (##structure gx#syntax-quote::t 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128931_| + (define |gx[1]#_g130218_| (##structure gx#syntax-quote::t 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g128932_| + (define |gx[1]#_g130219_| (##structure gx#syntax-quote::t 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128933_| + (define |gx[1]#_g130220_| (##structure gx#syntax-quote::t 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g128935_| + (define |gx[1]#_g130222_| (##structure gx#syntax-quote::t 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128936_| + (define |gx[1]#_g130223_| (##structure gx#syntax-quote::t 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128937_| + (define |gx[1]#_g130224_| (##structure gx#syntax-quote::t 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128939_| + (define |gx[1]#_g130226_| (##structure gx#syntax-quote::t '&export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g128940_| + (define |gx[1]#_g130227_| (##structure gx#syntax-quote::t '&export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128941_| + (define |gx[1]#_g130228_| (##structure gx#syntax-quote::t '&export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g128943_| + (define |gx[1]#_g130230_| (##structure gx#syntax-quote::t '&export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128944_| + (define |gx[1]#_g130231_| (##structure gx#syntax-quote::t '&export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128945_| + (define |gx[1]#_g130232_| (##structure gx#syntax-quote::t '&export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128947_| + (define |gx[1]#_g130234_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g128949_| + (define |gx[1]#_g130236_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g128951_| + (define |gx[1]#_g130238_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g128953_| + (define |gx[1]#_g130240_| (##structure gx#syntax-quote::t 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128955_| + (define |gx[1]#_g130242_| (##structure gx#syntax-quote::t 'import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g128956_| + (define |gx[1]#_g130243_| (##structure gx#syntax-quote::t 'import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128957_| + (define |gx[1]#_g130244_| (##structure gx#syntax-quote::t 'import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g128959_| + (define |gx[1]#_g130246_| (##structure gx#syntax-quote::t 'import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128960_| + (define |gx[1]#_g130247_| (##structure gx#syntax-quote::t 'import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128961_| + (define |gx[1]#_g130248_| (##structure gx#syntax-quote::t 'import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128963_| + (define |gx[1]#_g130250_| (##structure gx#syntax-quote::t '&import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g128964_| + (define |gx[1]#_g130251_| (##structure gx#syntax-quote::t '&import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128965_| + (define |gx[1]#_g130252_| (##structure gx#syntax-quote::t '&import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g128967_| + (define |gx[1]#_g130254_| (##structure gx#syntax-quote::t '&import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128968_| + (define |gx[1]#_g130255_| (##structure gx#syntax-quote::t '&import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128969_| + (define |gx[1]#_g130256_| (##structure gx#syntax-quote::t '&import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128972_| + (define |gx[1]#_g130259_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g128974_| + (define |gx[1]#_g130261_| (##structure gx#syntax-quote::t 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g128976_| + (define |gx[1]#_g130263_| (##structure gx#syntax-quote::t 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g128978_| + (define |gx[1]#_g130265_| (##structure gx#syntax-quote::t 'export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g128979_| + (define |gx[1]#_g130266_| (##structure gx#syntax-quote::t 'export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128980_| + (define |gx[1]#_g130267_| (##structure gx#syntax-quote::t 'export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g128982_| + (define |gx[1]#_g130269_| (##structure gx#syntax-quote::t 'export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128983_| + (define |gx[1]#_g130270_| (##structure gx#syntax-quote::t 'export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128984_| + (define |gx[1]#_g130271_| (##structure gx#syntax-quote::t 'export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128986_| + (define |gx[1]#_g130273_| (##structure gx#syntax-quote::t '&export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g128987_| + (define |gx[1]#_g130274_| (##structure gx#syntax-quote::t '&export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g128988_| + (define |gx[1]#_g130275_| (##structure gx#syntax-quote::t '&export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g128990_| + (define |gx[1]#_g130277_| (##structure gx#syntax-quote::t '&export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128991_| + (define |gx[1]#_g130278_| (##structure gx#syntax-quote::t '&export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128992_| + (define |gx[1]#_g130279_| (##structure gx#syntax-quote::t '&export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g128994_| + (define |gx[1]#_g130281_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g128995_| + (define |gx[1]#_g130282_| (##structure gx#syntax-quote::t 'export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g128997_| + (define |gx[1]#_g130284_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g128999_| + (define |gx[1]#_g130286_| (##structure gx#syntax-quote::t 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129001_| + (define |gx[1]#_g130288_| (##structure gx#syntax-quote::t 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129003_| + (define |gx[1]#_g130290_| (##structure gx#syntax-quote::t 'import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129004_| + (define |gx[1]#_g130291_| (##structure gx#syntax-quote::t 'import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129005_| + (define |gx[1]#_g130292_| (##structure gx#syntax-quote::t 'import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129007_| + (define |gx[1]#_g130294_| (##structure gx#syntax-quote::t 'import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129008_| + (define |gx[1]#_g130295_| (##structure gx#syntax-quote::t 'import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129009_| + (define |gx[1]#_g130296_| (##structure gx#syntax-quote::t 'import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129011_| + (define |gx[1]#_g130298_| (##structure gx#syntax-quote::t '&import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129012_| + (define |gx[1]#_g130299_| (##structure gx#syntax-quote::t '&import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129013_| + (define |gx[1]#_g130300_| (##structure gx#syntax-quote::t '&import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129015_| + (define |gx[1]#_g130302_| (##structure gx#syntax-quote::t '&import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129016_| + (define |gx[1]#_g130303_| (##structure gx#syntax-quote::t '&import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129017_| + (define |gx[1]#_g130304_| (##structure gx#syntax-quote::t '&import-export-expander-e-set! @@ -842,7 +842,7 @@ '())) (begin (define |gx[:0:]#module-import| - (let ((__obj128801 + (let ((__obj130088 (let () (declare (not safe)) (##structure @@ -871,18 +871,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128801 + __obj130088 'gx#module-import::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 'module-import '2 '#f '#f)) + (##unchecked-structure-set! __obj130088 'module-import '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj128801 + __obj130088 '(source name phi weak?) '4 '#f @@ -890,79 +890,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128801 + __obj130088 '(source name phi weak?) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj130088 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj130088 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj130088 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj130088 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 '#f '11 '#f '#f)) - (let ((__tmp128846 |gx[1]#_g128847_|)) + (##unchecked-structure-set! __obj130088 '#f '11 '#f '#f)) + (let ((__tmp130133 |gx[1]#_g130134_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128801 __tmp128846 '12 '#f '#f)) - (let ((__tmp128848 |gx[1]#_g128849_|)) + (##unchecked-structure-set! __obj130088 __tmp130133 '12 '#f '#f)) + (let ((__tmp130135 |gx[1]#_g130136_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128801 __tmp128848 '13 '#f '#f)) - (let ((__tmp128850 |gx[1]#_g128851_|)) + (##unchecked-structure-set! __obj130088 __tmp130135 '13 '#f '#f)) + (let ((__tmp130137 |gx[1]#_g130138_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128801 __tmp128850 '14 '#f '#f)) - (let ((__tmp128852 - (cons (cons 'source |gx[1]#_g128853_|) - (cons (cons 'name |gx[1]#_g128854_|) - (cons (cons 'phi |gx[1]#_g128855_|) - (cons (cons 'weak? |gx[1]#_g128856_|) + (##unchecked-structure-set! __obj130088 __tmp130137 '14 '#f '#f)) + (let ((__tmp130139 + (cons (cons 'source |gx[1]#_g130140_|) + (cons (cons 'name |gx[1]#_g130141_|) + (cons (cons 'phi |gx[1]#_g130142_|) + (cons (cons 'weak? |gx[1]#_g130143_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj128801 __tmp128852 '15 '#f '#f)) - (let ((__tmp128857 - (cons (cons 'source |gx[1]#_g128858_|) - (cons (cons 'name |gx[1]#_g128859_|) - (cons (cons 'phi |gx[1]#_g128860_|) - (cons (cons 'weak? |gx[1]#_g128861_|) + (##unchecked-structure-set! __obj130088 __tmp130139 '15 '#f '#f)) + (let ((__tmp130144 + (cons (cons 'source |gx[1]#_g130145_|) + (cons (cons 'name |gx[1]#_g130146_|) + (cons (cons 'phi |gx[1]#_g130147_|) + (cons (cons 'weak? |gx[1]#_g130148_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj128801 __tmp128857 '16 '#f '#f)) - (let ((__tmp128862 - (cons (cons 'source |gx[1]#_g128863_|) - (cons (cons 'name |gx[1]#_g128864_|) - (cons (cons 'phi |gx[1]#_g128865_|) - (cons (cons 'weak? |gx[1]#_g128866_|) + (##unchecked-structure-set! __obj130088 __tmp130144 '16 '#f '#f)) + (let ((__tmp130149 + (cons (cons 'source |gx[1]#_g130150_|) + (cons (cons 'name |gx[1]#_g130151_|) + (cons (cons 'phi |gx[1]#_g130152_|) + (cons (cons 'weak? |gx[1]#_g130153_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj128801 __tmp128862 '17 '#f '#f)) - (let ((__tmp128867 - (cons (cons 'source |gx[1]#_g128868_|) - (cons (cons 'name |gx[1]#_g128869_|) - (cons (cons 'phi |gx[1]#_g128870_|) - (cons (cons 'weak? |gx[1]#_g128871_|) + (##unchecked-structure-set! __obj130088 __tmp130149 '17 '#f '#f)) + (let ((__tmp130154 + (cons (cons 'source |gx[1]#_g130155_|) + (cons (cons 'name |gx[1]#_g130156_|) + (cons (cons 'phi |gx[1]#_g130157_|) + (cons (cons 'weak? |gx[1]#_g130158_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj128801 __tmp128867 '18 '#f '#f)) + (##unchecked-structure-set! __obj130088 __tmp130154 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj130088 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj130088 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128801 '() '20 '#f '#f)) - __obj128801)) + (##unchecked-structure-set! __obj130088 '() '20 '#f '#f)) + __obj130088)) (define |gx[:0:]#module-export| - (let ((__obj128802 + (let ((__obj130089 (let () (declare (not safe)) (##structure @@ -991,18 +991,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128802 + __obj130089 'gx#module-export::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 'module-export '2 '#f '#f)) + (##unchecked-structure-set! __obj130089 'module-export '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj128802 + __obj130089 '(context key phi name weak?) '4 '#f @@ -1010,83 +1010,83 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128802 + __obj130089 '(context key phi name weak?) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj130089 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj130089 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj130089 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj130089 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 '#f '11 '#f '#f)) - (let ((__tmp128872 |gx[1]#_g128873_|)) + (##unchecked-structure-set! __obj130089 '#f '11 '#f '#f)) + (let ((__tmp130159 |gx[1]#_g130160_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128802 __tmp128872 '12 '#f '#f)) - (let ((__tmp128874 |gx[1]#_g128875_|)) + (##unchecked-structure-set! __obj130089 __tmp130159 '12 '#f '#f)) + (let ((__tmp130161 |gx[1]#_g130162_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128802 __tmp128874 '13 '#f '#f)) - (let ((__tmp128876 |gx[1]#_g128877_|)) + (##unchecked-structure-set! __obj130089 __tmp130161 '13 '#f '#f)) + (let ((__tmp130163 |gx[1]#_g130164_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128802 __tmp128876 '14 '#f '#f)) - (let ((__tmp128878 - (cons (cons 'context |gx[1]#_g128879_|) - (cons (cons 'key |gx[1]#_g128880_|) - (cons (cons 'phi |gx[1]#_g128881_|) - (cons (cons 'name |gx[1]#_g128882_|) - (cons (cons 'weak? |gx[1]#_g128883_|) + (##unchecked-structure-set! __obj130089 __tmp130163 '14 '#f '#f)) + (let ((__tmp130165 + (cons (cons 'context |gx[1]#_g130166_|) + (cons (cons 'key |gx[1]#_g130167_|) + (cons (cons 'phi |gx[1]#_g130168_|) + (cons (cons 'name |gx[1]#_g130169_|) + (cons (cons 'weak? |gx[1]#_g130170_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj128802 __tmp128878 '15 '#f '#f)) - (let ((__tmp128884 - (cons (cons 'context |gx[1]#_g128885_|) - (cons (cons 'key |gx[1]#_g128886_|) - (cons (cons 'phi |gx[1]#_g128887_|) - (cons (cons 'name |gx[1]#_g128888_|) - (cons (cons 'weak? |gx[1]#_g128889_|) + (##unchecked-structure-set! __obj130089 __tmp130165 '15 '#f '#f)) + (let ((__tmp130171 + (cons (cons 'context |gx[1]#_g130172_|) + (cons (cons 'key |gx[1]#_g130173_|) + (cons (cons 'phi |gx[1]#_g130174_|) + (cons (cons 'name |gx[1]#_g130175_|) + (cons (cons 'weak? |gx[1]#_g130176_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj128802 __tmp128884 '16 '#f '#f)) - (let ((__tmp128890 - (cons (cons 'context |gx[1]#_g128891_|) - (cons (cons 'key |gx[1]#_g128892_|) - (cons (cons 'phi |gx[1]#_g128893_|) - (cons (cons 'name |gx[1]#_g128894_|) - (cons (cons 'weak? |gx[1]#_g128895_|) + (##unchecked-structure-set! __obj130089 __tmp130171 '16 '#f '#f)) + (let ((__tmp130177 + (cons (cons 'context |gx[1]#_g130178_|) + (cons (cons 'key |gx[1]#_g130179_|) + (cons (cons 'phi |gx[1]#_g130180_|) + (cons (cons 'name |gx[1]#_g130181_|) + (cons (cons 'weak? |gx[1]#_g130182_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj128802 __tmp128890 '17 '#f '#f)) - (let ((__tmp128896 - (cons (cons 'context |gx[1]#_g128897_|) - (cons (cons 'key |gx[1]#_g128898_|) - (cons (cons 'phi |gx[1]#_g128899_|) - (cons (cons 'name |gx[1]#_g128900_|) - (cons (cons 'weak? |gx[1]#_g128901_|) + (##unchecked-structure-set! __obj130089 __tmp130177 '17 '#f '#f)) + (let ((__tmp130183 + (cons (cons 'context |gx[1]#_g130184_|) + (cons (cons 'key |gx[1]#_g130185_|) + (cons (cons 'phi |gx[1]#_g130186_|) + (cons (cons 'name |gx[1]#_g130187_|) + (cons (cons 'weak? |gx[1]#_g130188_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj128802 __tmp128896 '18 '#f '#f)) + (##unchecked-structure-set! __obj130089 __tmp130183 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj130089 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj130089 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128802 '() '20 '#f '#f)) - __obj128802)) + (##unchecked-structure-set! __obj130089 '() '20 '#f '#f)) + __obj130089)) (define |gx[:0:]#import-set| - (let ((__obj128803 + (let ((__obj130090 (let () (declare (not safe)) (##structure @@ -1115,18 +1115,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128803 + __obj130090 'gx#import-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 'import-set '2 '#f '#f)) + (##unchecked-structure-set! __obj130090 'import-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj128803 + __obj130090 '(source phi imports) '4 '#f @@ -1134,71 +1134,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128803 + __obj130090 '(source phi imports) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj130090 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj130090 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj130090 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj130090 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 '#f '11 '#f '#f)) - (let ((__tmp128902 |gx[1]#_g128903_|)) + (##unchecked-structure-set! __obj130090 '#f '11 '#f '#f)) + (let ((__tmp130189 |gx[1]#_g130190_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128803 __tmp128902 '12 '#f '#f)) - (let ((__tmp128904 |gx[1]#_g128905_|)) + (##unchecked-structure-set! __obj130090 __tmp130189 '12 '#f '#f)) + (let ((__tmp130191 |gx[1]#_g130192_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128803 __tmp128904 '13 '#f '#f)) - (let ((__tmp128906 |gx[1]#_g128907_|)) + (##unchecked-structure-set! __obj130090 __tmp130191 '13 '#f '#f)) + (let ((__tmp130193 |gx[1]#_g130194_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128803 __tmp128906 '14 '#f '#f)) - (let ((__tmp128908 - (cons (cons 'source |gx[1]#_g128909_|) - (cons (cons 'phi |gx[1]#_g128910_|) - (cons (cons 'imports |gx[1]#_g128911_|) '()))))) + (##unchecked-structure-set! __obj130090 __tmp130193 '14 '#f '#f)) + (let ((__tmp130195 + (cons (cons 'source |gx[1]#_g130196_|) + (cons (cons 'phi |gx[1]#_g130197_|) + (cons (cons 'imports |gx[1]#_g130198_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128803 __tmp128908 '15 '#f '#f)) - (let ((__tmp128912 - (cons (cons 'source |gx[1]#_g128913_|) - (cons (cons 'phi |gx[1]#_g128914_|) - (cons (cons 'imports |gx[1]#_g128915_|) '()))))) + (##unchecked-structure-set! __obj130090 __tmp130195 '15 '#f '#f)) + (let ((__tmp130199 + (cons (cons 'source |gx[1]#_g130200_|) + (cons (cons 'phi |gx[1]#_g130201_|) + (cons (cons 'imports |gx[1]#_g130202_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128803 __tmp128912 '16 '#f '#f)) - (let ((__tmp128916 - (cons (cons 'source |gx[1]#_g128917_|) - (cons (cons 'phi |gx[1]#_g128918_|) - (cons (cons 'imports |gx[1]#_g128919_|) '()))))) + (##unchecked-structure-set! __obj130090 __tmp130199 '16 '#f '#f)) + (let ((__tmp130203 + (cons (cons 'source |gx[1]#_g130204_|) + (cons (cons 'phi |gx[1]#_g130205_|) + (cons (cons 'imports |gx[1]#_g130206_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128803 __tmp128916 '17 '#f '#f)) - (let ((__tmp128920 - (cons (cons 'source |gx[1]#_g128921_|) - (cons (cons 'phi |gx[1]#_g128922_|) - (cons (cons 'imports |gx[1]#_g128923_|) '()))))) + (##unchecked-structure-set! __obj130090 __tmp130203 '17 '#f '#f)) + (let ((__tmp130207 + (cons (cons 'source |gx[1]#_g130208_|) + (cons (cons 'phi |gx[1]#_g130209_|) + (cons (cons 'imports |gx[1]#_g130210_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128803 __tmp128920 '18 '#f '#f)) + (##unchecked-structure-set! __obj130090 __tmp130207 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj130090 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj130090 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128803 '() '20 '#f '#f)) - __obj128803)) + (##unchecked-structure-set! __obj130090 '() '20 '#f '#f)) + __obj130090)) (define |gx[:0:]#export-set| - (let ((__obj128804 + (let ((__obj130091 (let () (declare (not safe)) (##structure @@ -1227,18 +1227,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128804 + __obj130091 'gx#export-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 'export-set '2 '#f '#f)) + (##unchecked-structure-set! __obj130091 'export-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj128804 + __obj130091 '(source phi exports) '4 '#f @@ -1246,71 +1246,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128804 + __obj130091 '(source phi exports) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj130091 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj130091 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj130091 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj130091 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 '#f '11 '#f '#f)) - (let ((__tmp128924 |gx[1]#_g128925_|)) + (##unchecked-structure-set! __obj130091 '#f '11 '#f '#f)) + (let ((__tmp130211 |gx[1]#_g130212_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128804 __tmp128924 '12 '#f '#f)) - (let ((__tmp128926 |gx[1]#_g128927_|)) + (##unchecked-structure-set! __obj130091 __tmp130211 '12 '#f '#f)) + (let ((__tmp130213 |gx[1]#_g130214_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128804 __tmp128926 '13 '#f '#f)) - (let ((__tmp128928 |gx[1]#_g128929_|)) + (##unchecked-structure-set! __obj130091 __tmp130213 '13 '#f '#f)) + (let ((__tmp130215 |gx[1]#_g130216_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128804 __tmp128928 '14 '#f '#f)) - (let ((__tmp128930 - (cons (cons 'source |gx[1]#_g128931_|) - (cons (cons 'phi |gx[1]#_g128932_|) - (cons (cons 'exports |gx[1]#_g128933_|) '()))))) + (##unchecked-structure-set! __obj130091 __tmp130215 '14 '#f '#f)) + (let ((__tmp130217 + (cons (cons 'source |gx[1]#_g130218_|) + (cons (cons 'phi |gx[1]#_g130219_|) + (cons (cons 'exports |gx[1]#_g130220_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128804 __tmp128930 '15 '#f '#f)) - (let ((__tmp128934 - (cons (cons 'source |gx[1]#_g128935_|) - (cons (cons 'phi |gx[1]#_g128936_|) - (cons (cons 'exports |gx[1]#_g128937_|) '()))))) + (##unchecked-structure-set! __obj130091 __tmp130217 '15 '#f '#f)) + (let ((__tmp130221 + (cons (cons 'source |gx[1]#_g130222_|) + (cons (cons 'phi |gx[1]#_g130223_|) + (cons (cons 'exports |gx[1]#_g130224_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128804 __tmp128934 '16 '#f '#f)) - (let ((__tmp128938 - (cons (cons 'source |gx[1]#_g128939_|) - (cons (cons 'phi |gx[1]#_g128940_|) - (cons (cons 'exports |gx[1]#_g128941_|) '()))))) + (##unchecked-structure-set! __obj130091 __tmp130221 '16 '#f '#f)) + (let ((__tmp130225 + (cons (cons 'source |gx[1]#_g130226_|) + (cons (cons 'phi |gx[1]#_g130227_|) + (cons (cons 'exports |gx[1]#_g130228_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128804 __tmp128938 '17 '#f '#f)) - (let ((__tmp128942 - (cons (cons 'source |gx[1]#_g128943_|) - (cons (cons 'phi |gx[1]#_g128944_|) - (cons (cons 'exports |gx[1]#_g128945_|) '()))))) + (##unchecked-structure-set! __obj130091 __tmp130225 '17 '#f '#f)) + (let ((__tmp130229 + (cons (cons 'source |gx[1]#_g130230_|) + (cons (cons 'phi |gx[1]#_g130231_|) + (cons (cons 'exports |gx[1]#_g130232_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128804 __tmp128942 '18 '#f '#f)) + (##unchecked-structure-set! __obj130091 __tmp130229 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj130091 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj130091 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128804 '() '20 '#f '#f)) - __obj128804)) + (##unchecked-structure-set! __obj130091 '() '20 '#f '#f)) + __obj130091)) (define |gx[:0:]#import-expander| - (let ((__obj128805 + (let ((__obj130092 (let () (declare (not safe)) (##structure @@ -1339,80 +1339,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128805 + __obj130092 'gx#import-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 'import-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj130092 'import-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj130092 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 '(e context phi) '6 '#f '#f)) - (let ((__tmp128946 (cons |gx[1]#_g128947_| '()))) + (##unchecked-structure-set! __obj130092 '(e context phi) '6 '#f '#f)) + (let ((__tmp130233 (cons |gx[1]#_g130234_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj128805 __tmp128946 '3 '#f '#f)) + (##unchecked-structure-set! __obj130092 __tmp130233 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj130092 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj130092 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj130092 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 ':init! '11 '#f '#f)) - (let ((__tmp128948 |gx[1]#_g128949_|)) + (##unchecked-structure-set! __obj130092 ':init! '11 '#f '#f)) + (let ((__tmp130235 |gx[1]#_g130236_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128805 __tmp128948 '12 '#f '#f)) - (let ((__tmp128950 |gx[1]#_g128951_|)) + (##unchecked-structure-set! __obj130092 __tmp130235 '12 '#f '#f)) + (let ((__tmp130237 |gx[1]#_g130238_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128805 __tmp128950 '13 '#f '#f)) - (let ((__tmp128952 |gx[1]#_g128953_|)) + (##unchecked-structure-set! __obj130092 __tmp130237 '13 '#f '#f)) + (let ((__tmp130239 |gx[1]#_g130240_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128805 __tmp128952 '14 '#f '#f)) - (let ((__tmp128954 - (cons (cons 'context |gx[1]#_g128955_|) - (cons (cons 'phi |gx[1]#_g128956_|) - (cons (cons 'e |gx[1]#_g128957_|) '()))))) + (##unchecked-structure-set! __obj130092 __tmp130239 '14 '#f '#f)) + (let ((__tmp130241 + (cons (cons 'context |gx[1]#_g130242_|) + (cons (cons 'phi |gx[1]#_g130243_|) + (cons (cons 'e |gx[1]#_g130244_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128805 __tmp128954 '15 '#f '#f)) - (let ((__tmp128958 - (cons (cons 'context |gx[1]#_g128959_|) - (cons (cons 'phi |gx[1]#_g128960_|) - (cons (cons 'e |gx[1]#_g128961_|) '()))))) + (##unchecked-structure-set! __obj130092 __tmp130241 '15 '#f '#f)) + (let ((__tmp130245 + (cons (cons 'context |gx[1]#_g130246_|) + (cons (cons 'phi |gx[1]#_g130247_|) + (cons (cons 'e |gx[1]#_g130248_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128805 __tmp128958 '16 '#f '#f)) - (let ((__tmp128962 - (cons (cons 'context |gx[1]#_g128963_|) - (cons (cons 'phi |gx[1]#_g128964_|) - (cons (cons 'e |gx[1]#_g128965_|) '()))))) + (##unchecked-structure-set! __obj130092 __tmp130245 '16 '#f '#f)) + (let ((__tmp130249 + (cons (cons 'context |gx[1]#_g130250_|) + (cons (cons 'phi |gx[1]#_g130251_|) + (cons (cons 'e |gx[1]#_g130252_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128805 __tmp128962 '17 '#f '#f)) - (let ((__tmp128966 - (cons (cons 'context |gx[1]#_g128967_|) - (cons (cons 'phi |gx[1]#_g128968_|) - (cons (cons 'e |gx[1]#_g128969_|) '()))))) + (##unchecked-structure-set! __obj130092 __tmp130249 '17 '#f '#f)) + (let ((__tmp130253 + (cons (cons 'context |gx[1]#_g130254_|) + (cons (cons 'phi |gx[1]#_g130255_|) + (cons (cons 'e |gx[1]#_g130256_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128805 __tmp128966 '18 '#f '#f)) + (##unchecked-structure-set! __obj130092 __tmp130253 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj130092 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj130092 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128805 '() '20 '#f '#f)) - __obj128805)) + (##unchecked-structure-set! __obj130092 '() '20 '#f '#f)) + __obj130092)) (define |gx[:0:]#export-expander| - (let ((__obj128806 + (let ((__obj130093 (let () (declare (not safe)) (##structure @@ -1441,80 +1441,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128806 + __obj130093 'gx#export-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 'export-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj130093 'export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj130093 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 '(e context phi) '6 '#f '#f)) - (let ((__tmp128970 (cons |gx[1]#_g128947_| '()))) + (##unchecked-structure-set! __obj130093 '(e context phi) '6 '#f '#f)) + (let ((__tmp130257 (cons |gx[1]#_g130234_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj128806 __tmp128970 '3 '#f '#f)) + (##unchecked-structure-set! __obj130093 __tmp130257 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj130093 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj130093 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj130093 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 ':init! '11 '#f '#f)) - (let ((__tmp128971 |gx[1]#_g128972_|)) + (##unchecked-structure-set! __obj130093 ':init! '11 '#f '#f)) + (let ((__tmp130258 |gx[1]#_g130259_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128806 __tmp128971 '12 '#f '#f)) - (let ((__tmp128973 |gx[1]#_g128974_|)) + (##unchecked-structure-set! __obj130093 __tmp130258 '12 '#f '#f)) + (let ((__tmp130260 |gx[1]#_g130261_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128806 __tmp128973 '13 '#f '#f)) - (let ((__tmp128975 |gx[1]#_g128976_|)) + (##unchecked-structure-set! __obj130093 __tmp130260 '13 '#f '#f)) + (let ((__tmp130262 |gx[1]#_g130263_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128806 __tmp128975 '14 '#f '#f)) - (let ((__tmp128977 - (cons (cons 'context |gx[1]#_g128978_|) - (cons (cons 'phi |gx[1]#_g128979_|) - (cons (cons 'e |gx[1]#_g128980_|) '()))))) + (##unchecked-structure-set! __obj130093 __tmp130262 '14 '#f '#f)) + (let ((__tmp130264 + (cons (cons 'context |gx[1]#_g130265_|) + (cons (cons 'phi |gx[1]#_g130266_|) + (cons (cons 'e |gx[1]#_g130267_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128806 __tmp128977 '15 '#f '#f)) - (let ((__tmp128981 - (cons (cons 'context |gx[1]#_g128982_|) - (cons (cons 'phi |gx[1]#_g128983_|) - (cons (cons 'e |gx[1]#_g128984_|) '()))))) + (##unchecked-structure-set! __obj130093 __tmp130264 '15 '#f '#f)) + (let ((__tmp130268 + (cons (cons 'context |gx[1]#_g130269_|) + (cons (cons 'phi |gx[1]#_g130270_|) + (cons (cons 'e |gx[1]#_g130271_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128806 __tmp128981 '16 '#f '#f)) - (let ((__tmp128985 - (cons (cons 'context |gx[1]#_g128986_|) - (cons (cons 'phi |gx[1]#_g128987_|) - (cons (cons 'e |gx[1]#_g128988_|) '()))))) + (##unchecked-structure-set! __obj130093 __tmp130268 '16 '#f '#f)) + (let ((__tmp130272 + (cons (cons 'context |gx[1]#_g130273_|) + (cons (cons 'phi |gx[1]#_g130274_|) + (cons (cons 'e |gx[1]#_g130275_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128806 __tmp128985 '17 '#f '#f)) - (let ((__tmp128989 - (cons (cons 'context |gx[1]#_g128990_|) - (cons (cons 'phi |gx[1]#_g128991_|) - (cons (cons 'e |gx[1]#_g128992_|) '()))))) + (##unchecked-structure-set! __obj130093 __tmp130272 '17 '#f '#f)) + (let ((__tmp130276 + (cons (cons 'context |gx[1]#_g130277_|) + (cons (cons 'phi |gx[1]#_g130278_|) + (cons (cons 'e |gx[1]#_g130279_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128806 __tmp128989 '18 '#f '#f)) + (##unchecked-structure-set! __obj130093 __tmp130276 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj130093 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj130093 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128806 '() '20 '#f '#f)) - __obj128806)) + (##unchecked-structure-set! __obj130093 '() '20 '#f '#f)) + __obj130093)) (define |gx[:0:]#import-export-expander| - (let ((__obj128807 + (let ((__obj130094 (let () (declare (not safe)) (##structure @@ -1543,7 +1543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128807 + __obj130094 'gx#import-export-expander::t '1 '#f @@ -1551,73 +1551,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128807 + __obj130094 'import-export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj130094 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 '(e context phi) '6 '#f '#f)) - (let ((__tmp128993 - (cons |gx[1]#_g128994_| (cons |gx[1]#_g128995_| '())))) + (##unchecked-structure-set! __obj130094 '(e context phi) '6 '#f '#f)) + (let ((__tmp130280 + (cons |gx[1]#_g130281_| (cons |gx[1]#_g130282_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj128807 __tmp128993 '3 '#f '#f)) + (##unchecked-structure-set! __obj130094 __tmp130280 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj130094 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj130094 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj130094 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 ':init! '11 '#f '#f)) - (let ((__tmp128996 |gx[1]#_g128997_|)) + (##unchecked-structure-set! __obj130094 ':init! '11 '#f '#f)) + (let ((__tmp130283 |gx[1]#_g130284_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128807 __tmp128996 '12 '#f '#f)) - (let ((__tmp128998 |gx[1]#_g128999_|)) + (##unchecked-structure-set! __obj130094 __tmp130283 '12 '#f '#f)) + (let ((__tmp130285 |gx[1]#_g130286_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128807 __tmp128998 '13 '#f '#f)) - (let ((__tmp129000 |gx[1]#_g129001_|)) + (##unchecked-structure-set! __obj130094 __tmp130285 '13 '#f '#f)) + (let ((__tmp130287 |gx[1]#_g130288_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128807 __tmp129000 '14 '#f '#f)) - (let ((__tmp129002 - (cons (cons 'context |gx[1]#_g129003_|) - (cons (cons 'phi |gx[1]#_g129004_|) - (cons (cons 'e |gx[1]#_g129005_|) '()))))) + (##unchecked-structure-set! __obj130094 __tmp130287 '14 '#f '#f)) + (let ((__tmp130289 + (cons (cons 'context |gx[1]#_g130290_|) + (cons (cons 'phi |gx[1]#_g130291_|) + (cons (cons 'e |gx[1]#_g130292_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128807 __tmp129002 '15 '#f '#f)) - (let ((__tmp129006 - (cons (cons 'context |gx[1]#_g129007_|) - (cons (cons 'phi |gx[1]#_g129008_|) - (cons (cons 'e |gx[1]#_g129009_|) '()))))) + (##unchecked-structure-set! __obj130094 __tmp130289 '15 '#f '#f)) + (let ((__tmp130293 + (cons (cons 'context |gx[1]#_g130294_|) + (cons (cons 'phi |gx[1]#_g130295_|) + (cons (cons 'e |gx[1]#_g130296_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128807 __tmp129006 '16 '#f '#f)) - (let ((__tmp129010 - (cons (cons 'context |gx[1]#_g129011_|) - (cons (cons 'phi |gx[1]#_g129012_|) - (cons (cons 'e |gx[1]#_g129013_|) '()))))) + (##unchecked-structure-set! __obj130094 __tmp130293 '16 '#f '#f)) + (let ((__tmp130297 + (cons (cons 'context |gx[1]#_g130298_|) + (cons (cons 'phi |gx[1]#_g130299_|) + (cons (cons 'e |gx[1]#_g130300_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128807 __tmp129010 '17 '#f '#f)) - (let ((__tmp129014 - (cons (cons 'context |gx[1]#_g129015_|) - (cons (cons 'phi |gx[1]#_g129016_|) - (cons (cons 'e |gx[1]#_g129017_|) '()))))) + (##unchecked-structure-set! __obj130094 __tmp130297 '17 '#f '#f)) + (let ((__tmp130301 + (cons (cons 'context |gx[1]#_g130302_|) + (cons (cons 'phi |gx[1]#_g130303_|) + (cons (cons 'e |gx[1]#_g130304_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128807 __tmp129014 '18 '#f '#f)) + (##unchecked-structure-set! __obj130094 __tmp130301 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj130094 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj130094 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128807 '() '20 '#f '#f)) - __obj128807)))) + (##unchecked-structure-set! __obj130094 '() '20 '#f '#f)) + __obj130094)))) diff --git a/src/bootstrap/gerbil/expander/root~0.scm b/src/bootstrap/gerbil/expander/root~0.scm index fd6ec1593..c9de12c73 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 1713631266) + (define gerbil/expander/root::timestamp 1734357962) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -262,603 +262,603 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (define gx#root-context:::init!__% - (lambda (_%self130208131288%_ _%bind?131290%_) - (let* ((_%self131292%_ _%self130208131288%_) - (_%self131294%_ _%self131292%_)) - (if (##fx< '2 (##structure-length _%self131294%_)) + (lambda (_%self131495132575%_ _%bind?132577%_) + (let* ((_%self132579%_ _%self131495132575%_) + (_%self132581%_ _%self132579%_)) + (if (##fx< '2 (##structure-length _%self132581%_)) (begin - (##unchecked-structure-set! _%self131294%_ 'root '1 '#f '#f) + (##unchecked-structure-set! _%self132581%_ 'root '1 '#f '#f) (##unchecked-structure-set! - _%self131294%_ + _%self132581%_ (make-hash-table-eq) '2 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self131294%_ + _%self132581%_ '2 - (##vector-length _%self131294%_))) - (if _%bind?131290%_ + (##vector-length _%self132581%_))) + (if _%bind?132577%_ (begin - (let ((__method131357 + (let ((__method132644 (__method-ref - _%self131294%_ + _%self132581%_ 'bind-core-syntax-expanders!))) - (if __method131357 - (__method131357 _%self131294%_) + (if __method132644 + (__method132644 _%self132581%_) (begin (error '"Missing method" - _%self131294%_ + _%self132581%_ 'bind-core-syntax-expanders!) '#!void))) - (let ((__method131358 + (let ((__method132645 (__method-ref - _%self131294%_ + _%self132581%_ 'bind-core-macro-expanders!))) - (if __method131358 - (__method131358 _%self131294%_) + (if __method132645 + (__method132645 _%self132581%_) (begin (error '"Missing method" - _%self131294%_ + _%self132581%_ 'bind-core-macro-expanders!) '#!void))) - (let ((__method131359 - (__method-ref _%self131294%_ 'bind-core-features!))) - (if __method131359 - (__method131359 _%self131294%_) + (let ((__method132646 + (__method-ref _%self132581%_ 'bind-core-features!))) + (if __method132646 + (__method132646 _%self132581%_) (begin (error '"Missing method" - _%self131294%_ + _%self132581%_ 'bind-core-features!) '#!void)))) '#!void)))) (define gx#root-context:::init!__0 - (lambda (_%self130208131307%_) - (let ((_%bind?131309%_ '#t)) - (gx#root-context:::init!__% _%self130208131307%_ _%bind?131309%_)))) + (lambda (_%self131495132594%_) + (let ((_%bind?132596%_ '#t)) + (gx#root-context:::init!__% _%self131495132594%_ _%bind?132596%_)))) (define gx#root-context:::init! - (lambda _g131362_ - (let ((_g131361_ (##length _g131362_))) - (cond ((##fx= _g131361_ 1) - (apply gx#root-context:::init!__0 _g131362_)) - ((##fx= _g131361_ 2) - (apply gx#root-context:::init!__% _g131362_)) + (lambda _g132649_ + (let ((_g132648_ (##length _g132649_))) + (cond ((##fx= _g132648_ 1) + (apply gx#root-context:::init!__0 _g132649_)) + ((##fx= _g132648_ 2) + (apply gx#root-context:::init!__% _g132649_)) (else (##raise-wrong-number-of-arguments-exception gx#root-context:::init! - _g131362_)))))) + _g132649_)))))) (define gx#root-context:::init!::specialize - (lambda (__klass131313 __method-table131314) - (let ((__bind-core-features!131315 + (lambda (__klass132600 __method-table132601) + (let ((__bind-core-syntax-expanders!132602 (__make-promise (lambda () - (let ((__method131318 + (let ((__method132605 (symbolic-table-ref - __method-table131314 - 'bind-core-features! + __method-table132601 + 'bind-core-syntax-expanders! '#f))) - (if __method131318 - __method131318 - (error '"Missing method" 'bind-core-features!)))))) - (__bind-core-macro-expanders!131316 + (if __method132605 + __method132605 + (error '"Missing method" + 'bind-core-syntax-expanders!)))))) + (__bind-core-features!132603 (__make-promise (lambda () - (let ((__method131319 + (let ((__method132606 (symbolic-table-ref - __method-table131314 - 'bind-core-macro-expanders! + __method-table132601 + 'bind-core-features! '#f))) - (if __method131319 - __method131319 - (error '"Missing method" - 'bind-core-macro-expanders!)))))) - (__bind-core-syntax-expanders!131317 + (if __method132606 + __method132606 + (error '"Missing method" 'bind-core-features!)))))) + (__bind-core-macro-expanders!132604 (__make-promise (lambda () - (let ((__method131320 + (let ((__method132607 (symbolic-table-ref - __method-table131314 - 'bind-core-syntax-expanders! + __method-table132601 + 'bind-core-macro-expanders! '#f))) - (if __method131320 - __method131320 + (if __method132607 + __method132607 (error '"Missing method" - 'bind-core-syntax-expanders!))))))) - (let ((_%opt-lambda131286131304%_ - (lambda (_%self130208131288%_ _%bind?131290%_) - (let* ((_%self131292%_ _%self130208131288%_) - (_%self131294%_ _%self131292%_)) - (if (##fx< '2 (##structure-length _%self131294%_)) + 'bind-core-macro-expanders!))))))) + (let ((_%opt-lambda132573132591%_ + (lambda (_%self131495132575%_ _%bind?132577%_) + (let* ((_%self132579%_ _%self131495132575%_) + (_%self132581%_ _%self132579%_)) + (if (##fx< '2 (##structure-length _%self132581%_)) (begin (##unchecked-structure-set! - _%self131294%_ + _%self132581%_ 'root '1 '#f '#f) (##unchecked-structure-set! - _%self131294%_ + _%self132581%_ (make-hash-table-eq) '2 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self131294%_ + _%self132581%_ '2 - (##vector-length _%self131294%_))) - (if _%bind?131290%_ + (##vector-length _%self132581%_))) + (if _%bind?132577%_ (begin - ((force __bind-core-syntax-expanders!131317) - _%self131294%_) - ((force __bind-core-macro-expanders!131316) - _%self131294%_) - ((force __bind-core-features!131315) - _%self131294%_)) + ((force __bind-core-syntax-expanders!132602) + _%self132581%_) + ((force __bind-core-macro-expanders!132604) + _%self132581%_) + ((force __bind-core-features!132603) + _%self132581%_)) '#!void))))) - (lambda _g131364_ - (let ((_g131363_ (##length _g131364_))) - (cond ((##fx= _g131363_ 1) - (apply (lambda (_%self130208131307%_) - (let ((_%bind?131309%_ '#t)) - (_%opt-lambda131286131304%_ - _%self130208131307%_ - _%bind?131309%_))) - _g131364_)) - ((##fx= _g131363_ 2) - (apply _%opt-lambda131286131304%_ _g131364_)) + (lambda _g132651_ + (let ((_g132650_ (##length _g132651_))) + (cond ((##fx= _g132650_ 1) + (apply (lambda (_%self131495132594%_) + (let ((_%bind?132596%_ '#t)) + (_%opt-lambda132573132591%_ + _%self131495132594%_ + _%bind?132596%_))) + _g132651_)) + ((##fx= _g132650_ 2) + (apply _%opt-lambda132573132591%_ _g132651_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g131364_))))))))) + _g132651_))))))))) (bind-specializer! gx#root-context:::init! gx#root-context:::init!::specialize) (__bind-method!__% gx#root-context::t ':init! gx#root-context:::init! '#f) (define gx#top-context:::init!__% - (lambda (_%self130209131131%_ _%super131133%_) - (let* ((_%self131135%_ _%self130209131131%_) - (_%self131137%_ _%self131135%_) - (_%super131153%_ - (let ((_%$e131147%_ _%super131133%_)) - (if _%$e131147%_ - _%$e131147%_ - (let ((_%$e131150%_ (gx#core-context-root__0))) - (if _%$e131150%_ - _%$e131150%_ - (let ((__obj131360 + (lambda (_%self131496132418%_ _%super132420%_) + (let* ((_%self132422%_ _%self131496132418%_) + (_%self132424%_ _%self132422%_) + (_%super132440%_ + (let ((_%$e132434%_ _%super132420%_)) + (if _%$e132434%_ + _%$e132434%_ + (let ((_%$e132437%_ (gx#core-context-root__0))) + (if _%$e132437%_ + _%$e132437%_ + (let ((__obj132647 (##structure gx#root-context::t '#f '#f))) - (gx#root-context:::init!__0 __obj131360) - __obj131360))))))) - (if (##fx< '5 (##structure-length _%self131137%_)) + (gx#root-context:::init!__0 __obj132647) + __obj132647))))))) + (if (##fx< '5 (##structure-length _%self132424%_)) (begin - (##unchecked-structure-set! _%self131137%_ 'top '1 '#f '#f) + (##unchecked-structure-set! _%self132424%_ 'top '1 '#f '#f) (##unchecked-structure-set! - _%self131137%_ + _%self132424%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self131137%_ - _%super131153%_ + _%self132424%_ + _%super132440%_ '3 '#f '#f) - (##unchecked-structure-set! _%self131137%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self131137%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self132424%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self132424%_ '#f '5 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self131137%_ + _%self132424%_ '5 - (##vector-length _%self131137%_)))))) + (##vector-length _%self132424%_)))))) (define gx#top-context:::init!__0 - (lambda (_%self130209131158%_) - (let ((_%super131160%_ '#f)) - (gx#top-context:::init!__% _%self130209131158%_ _%super131160%_)))) + (lambda (_%self131496132445%_) + (let ((_%super132447%_ '#f)) + (gx#top-context:::init!__% _%self131496132445%_ _%super132447%_)))) (define gx#top-context:::init! - (lambda _g131366_ - (let ((_g131365_ (##length _g131366_))) - (cond ((##fx= _g131365_ 1) - (apply gx#top-context:::init!__0 _g131366_)) - ((##fx= _g131365_ 2) - (apply gx#top-context:::init!__% _g131366_)) + (lambda _g132653_ + (let ((_g132652_ (##length _g132653_))) + (cond ((##fx= _g132652_ 1) + (apply gx#top-context:::init!__0 _g132653_)) + ((##fx= _g132652_ 2) + (apply gx#top-context:::init!__% _g132653_)) (else (##raise-wrong-number-of-arguments-exception gx#top-context:::init! - _g131366_)))))) + _g132653_)))))) (__bind-method!__% gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_%self130210130849%_ _%bindings130851%_) - (let* ((_%self130853%_ _%self130210130849%_) - (_%self130855%_ _%self130853%_)) + (lambda (_%self131497132136%_ _%bindings132138%_) + (let* ((_%self132140%_ _%self131497132136%_) + (_%self132142%_ _%self132140%_)) (for-each - (lambda (_%bind130865%_) - (let* ((_%bind130866130873%_ _%bind130865%_) - (_%E130868130877%_ + (lambda (_%bind132152%_) + (let* ((_%bind132153132160%_ _%bind132152%_) + (_%E132155132164%_ (lambda () (error '"No clause matching" - _%bind130866130873%_ + _%bind132153132160%_ '([id . rest])) '#!void)) - (_%K130869130986%_ - (lambda (_%rest130880%_ _%id130881%_) + (_%K132156132273%_ + (lambda (_%rest132167%_ _%id132168%_) (gx#core-context-put! - _%self130855%_ - _%id130881%_ + _%self132142%_ + _%id132168%_ (##structure gx#syntax-binding::t - _%id130881%_ - _%id130881%_ + _%id132168%_ + _%id132168%_ '#f - (let* ((_%rest130882130893%_ _%rest130880%_) - (_%E130884130897%_ + (let* ((_%rest132169132180%_ _%rest132167%_) + (_%E132171132184%_ (lambda () (error '"No clause matching" - _%rest130882130893%_ + _%rest132169132180%_ '([key expander compiler])) '#!void)) - (_%K130885130962%_ - (lambda (_%compiler130900%_ - _%expander130901%_ - _%key130902%_) - ((let* ((_%key130903130916%_ _%key130902%_) - (_%E130909130920%_ + (_%K132172132249%_ + (lambda (_%compiler132187%_ + _%expander132188%_ + _%key132189%_) + ((let* ((_%key132190132203%_ _%key132189%_) + (_%E132196132207%_ (lambda () (error '"No clause matching" - _%key130903130916%_ + _%key132190132203%_ '(top:) '(module:) '(define:) '(special:) '(expr:)) '#!void))) - (let ((_%K130914130956%_ + (let ((_%K132201132243%_ (lambda () gx#make-top-special-form)) - (_%K130913130949%_ + (_%K132200132236%_ (lambda () gx#make-module-special-form)) - (_%K130912130941%_ + (_%K132199132228%_ (lambda () gx#make-definition-form)) - (_%K130911130933%_ + (_%K132198132220%_ (lambda () gx#make-special-form)) - (_%K130910130925%_ + (_%K132197132212%_ (lambda () gx#make-expression-form))) - (let* ((_%try-match130908130928%_ + (let* ((_%try-match132195132215%_ (lambda () - (if (##eq? _%key130903130916%_ + (if (##eq? _%key132190132203%_ 'expr:) - (_%K130910130925%_) - (_%E130909130920%_)))) - (_%try-match130907130936%_ + (_%K132197132212%_) + (_%E132196132207%_)))) + (_%try-match132194132223%_ (lambda () - (if (##eq? _%key130903130916%_ + (if (##eq? _%key132190132203%_ 'special:) - (_%K130911130933%_) - (_%try-match130908130928%_)))) - (_%try-match130906130944%_ + (_%K132198132220%_) + (_%try-match132195132215%_)))) + (_%try-match132193132231%_ (lambda () - (if (##eq? _%key130903130916%_ + (if (##eq? _%key132190132203%_ 'define:) - (_%K130912130941%_) - (_%try-match130907130936%_)))) - (_%try-match130905130952%_ + (_%K132199132228%_) + (_%try-match132194132223%_)))) + (_%try-match132192132239%_ (lambda () - (if (##eq? _%key130903130916%_ + (if (##eq? _%key132190132203%_ 'module:) - (_%K130913130949%_) - (_%try-match130906130944%_))))) - (if (##eq? _%key130903130916%_ 'top:) - (_%K130914130956%_) - (_%try-match130905130952%_))))) - _%expander130901%_ - _%id130881%_ - (let ((_%$e130959%_ _%compiler130900%_)) - (if _%$e130959%_ - _%$e130959%_ + (_%K132200132236%_) + (_%try-match132193132231%_))))) + (if (##eq? _%key132190132203%_ 'top:) + (_%K132201132243%_) + (_%try-match132192132239%_))))) + _%expander132188%_ + _%id132168%_ + (let ((_%$e132246%_ _%compiler132187%_)) + (if _%$e132246%_ + _%$e132246%_ gx#core-compile-top-error)))))) - (if (pair? _%rest130882130893%_) - (let ((_%hd130886130965%_ - (##car _%rest130882130893%_)) - (_%tl130887130967%_ - (##cdr _%rest130882130893%_))) - (let ((_%key130970%_ _%hd130886130965%_)) - (if (pair? _%tl130887130967%_) - (let ((_%hd130888130972%_ - (##car _%tl130887130967%_)) - (_%tl130889130974%_ - (##cdr _%tl130887130967%_))) - (let ((_%expander130977%_ - _%hd130888130972%_)) - (if (pair? _%tl130889130974%_) - (let ((_%hd130890130979%_ - (##car _%tl130889130974%_)) - (_%tl130891130981%_ - (##cdr _%tl130889130974%_))) - (let ((_%compiler130984%_ - _%hd130890130979%_)) - (if (null? _%tl130891130981%_) - (_%K130885130962%_ - _%compiler130984%_ - _%expander130977%_ - _%key130970%_) - (_%E130884130897%_)))) - (_%E130884130897%_)))) - (_%E130884130897%_)))) - (_%E130884130897%_)))))))) - (if (pair? _%bind130866130873%_) - (let ((_%hd130870130989%_ (##car _%bind130866130873%_)) - (_%tl130871130991%_ (##cdr _%bind130866130873%_))) - (let* ((_%id130994%_ _%hd130870130989%_) - (_%rest130996%_ _%tl130871130991%_)) - (_%K130869130986%_ _%rest130996%_ _%id130994%_))) - (_%E130868130877%_)))) - _%bindings130851%_)))) + (if (pair? _%rest132169132180%_) + (let ((_%hd132173132252%_ + (##car _%rest132169132180%_)) + (_%tl132174132254%_ + (##cdr _%rest132169132180%_))) + (let ((_%key132257%_ _%hd132173132252%_)) + (if (pair? _%tl132174132254%_) + (let ((_%hd132175132259%_ + (##car _%tl132174132254%_)) + (_%tl132176132261%_ + (##cdr _%tl132174132254%_))) + (let ((_%expander132264%_ + _%hd132175132259%_)) + (if (pair? _%tl132176132261%_) + (let ((_%hd132177132266%_ + (##car _%tl132176132261%_)) + (_%tl132178132268%_ + (##cdr _%tl132176132261%_))) + (let ((_%compiler132271%_ + _%hd132177132266%_)) + (if (null? _%tl132178132268%_) + (_%K132172132249%_ + _%compiler132271%_ + _%expander132264%_ + _%key132257%_) + (_%E132171132184%_)))) + (_%E132171132184%_)))) + (_%E132171132184%_)))) + (_%E132171132184%_)))))))) + (if (pair? _%bind132153132160%_) + (let ((_%hd132157132276%_ (##car _%bind132153132160%_)) + (_%tl132158132278%_ (##cdr _%bind132153132160%_))) + (let* ((_%id132281%_ _%hd132157132276%_) + (_%rest132283%_ _%tl132158132278%_)) + (_%K132156132273%_ _%rest132283%_ _%id132281%_))) + (_%E132155132164%_)))) + _%bindings132138%_)))) (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_%self130210131001%_) - (let ((_%bindings131003%_ gx#*core-syntax-expanders*)) + (lambda (_%self131497132288%_) + (let ((_%bindings132290%_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _%self130210131001%_ - _%bindings131003%_)))) + _%self131497132288%_ + _%bindings132290%_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g131368_ - (let ((_g131367_ (##length _g131368_))) - (cond ((##fx= _g131367_ 1) + (lambda _g132655_ + (let ((_g132654_ (##length _g132655_))) + (cond ((##fx= _g132654_ 1) (apply gx#expander-context::bind-core-syntax-expanders!__0 - _g131368_)) - ((##fx= _g131367_ 2) + _g132655_)) + ((##fx= _g132654_ 2) (apply gx#expander-context::bind-core-syntax-expanders!__% - _g131368_)) + _g132655_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g131368_)))))) + _g132655_)))))) (__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 (_%self130211130608%_ _%bindings130610%_) - (let* ((_%self130612%_ _%self130211130608%_) - (_%self130614%_ _%self130612%_)) + (lambda (_%self131498131895%_ _%bindings131897%_) + (let* ((_%self131899%_ _%self131498131895%_) + (_%self131901%_ _%self131899%_)) (for-each - (lambda (_%bind130624%_) - (let* ((_%bind130625130632%_ _%bind130624%_) - (_%E130627130636%_ + (lambda (_%bind131911%_) + (let* ((_%bind131912131919%_ _%bind131911%_) + (_%E131914131923%_ (lambda () (error '"No clause matching" - _%bind130625130632%_ + _%bind131912131919%_ '([id . rest])) '#!void)) - (_%K130628130704%_ - (lambda (_%rest130639%_ _%id130640%_) + (_%K131915131991%_ + (lambda (_%rest131926%_ _%id131927%_) (gx#core-context-put! - _%self130614%_ - _%id130640%_ + _%self131901%_ + _%id131927%_ (##structure gx#syntax-binding::t - _%id130640%_ - _%id130640%_ + _%id131927%_ + _%id131927%_ '#f - (let* ((_%rest130641130656%_ _%rest130639%_) - (_%E130645130660%_ + (let* ((_%rest131928131943%_ _%rest131926%_) + (_%E131932131947%_ (lambda () (error '"No clause matching" - _%rest130641130656%_ + _%rest131928131943%_ '(['=> core-id]) '([proc]) '([])) '#!void))) - (let ((_%K130650130689%_ - (lambda (_%core-id130687%_) + (let ((_%K131937131976%_ + (lambda (_%core-id131974%_) (##structure gx#rename-macro-expander::t - _%core-id130687%_))) - (_%K130647130674%_ - (lambda (_%proc130672%_) + _%core-id131974%_))) + (_%K131934131961%_ + (lambda (_%proc131959%_) (##structure gx#macro-expander::t - _%proc130672%_))) - (_%K130646130665%_ + _%proc131959%_))) + (_%K131933131952%_ (lambda () (##structure gx#reserved-expander::t - _%id130640%_)))) - (let ((_%try-match130644130668%_ + _%id131927%_)))) + (let ((_%try-match131931131955%_ (lambda () - (if (null? _%rest130641130656%_) - (_%K130646130665%_) - (_%E130645130660%_))))) - (if (pair? _%rest130641130656%_) - (let ((_%tl130652130694%_ - (##cdr _%rest130641130656%_)) - (_%hd130651130692%_ - (##car _%rest130641130656%_))) - (if (##eq? _%hd130651130692%_ '=>) - (if (pair? _%tl130652130694%_) - (let ((_%tl130654130699%_ - (##cdr _%tl130652130694%_)) - (_%hd130653130697%_ - (##car _%tl130652130694%_))) - (if (null? _%tl130654130699%_) - (let ((_%core-id130702%_ - _%hd130653130697%_)) + (if (null? _%rest131928131943%_) + (_%K131933131952%_) + (_%E131932131947%_))))) + (if (pair? _%rest131928131943%_) + (let ((_%tl131939131981%_ + (##cdr _%rest131928131943%_)) + (_%hd131938131979%_ + (##car _%rest131928131943%_))) + (if (##eq? _%hd131938131979%_ '=>) + (if (pair? _%tl131939131981%_) + (let ((_%tl131941131986%_ + (##cdr _%tl131939131981%_)) + (_%hd131940131984%_ + (##car _%tl131939131981%_))) + (if (null? _%tl131941131986%_) + (let ((_%core-id131989%_ + _%hd131940131984%_)) (##structure gx#rename-macro-expander::t - _%core-id130702%_)) - (_%E130645130660%_))) - (if (null? _%tl130652130694%_) - (let ((_%proc130682%_ - _%hd130651130692%_)) + _%core-id131989%_)) + (_%E131932131947%_))) + (if (null? _%tl131939131981%_) + (let ((_%proc131969%_ + _%hd131938131979%_)) (##structure gx#macro-expander::t - _%proc130682%_)) - (_%E130645130660%_))) - (if (null? _%tl130652130694%_) - (let ((_%proc130682%_ - _%hd130651130692%_)) + _%proc131969%_)) + (_%E131932131947%_))) + (if (null? _%tl131939131981%_) + (let ((_%proc131969%_ + _%hd131938131979%_)) (##structure gx#macro-expander::t - _%proc130682%_)) - (_%E130645130660%_)))) - (_%try-match130644130668%_)))))))))) - (if (pair? _%bind130625130632%_) - (let ((_%hd130629130707%_ (##car _%bind130625130632%_)) - (_%tl130630130709%_ (##cdr _%bind130625130632%_))) - (let* ((_%id130712%_ _%hd130629130707%_) - (_%rest130714%_ _%tl130630130709%_)) - (_%K130628130704%_ _%rest130714%_ _%id130712%_))) - (_%E130627130636%_)))) - _%bindings130610%_)))) + _%proc131969%_)) + (_%E131932131947%_)))) + (_%try-match131931131955%_)))))))))) + (if (pair? _%bind131912131919%_) + (let ((_%hd131916131994%_ (##car _%bind131912131919%_)) + (_%tl131917131996%_ (##cdr _%bind131912131919%_))) + (let* ((_%id131999%_ _%hd131916131994%_) + (_%rest132001%_ _%tl131917131996%_)) + (_%K131915131991%_ _%rest132001%_ _%id131999%_))) + (_%E131914131923%_)))) + _%bindings131897%_)))) (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_%self130211130719%_) - (let ((_%bindings130721%_ gx#*core-macro-expanders*)) + (lambda (_%self131498132006%_) + (let ((_%bindings132008%_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _%self130211130719%_ - _%bindings130721%_)))) + _%self131498132006%_ + _%bindings132008%_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g131370_ - (let ((_g131369_ (##length _g131370_))) - (cond ((##fx= _g131369_ 1) + (lambda _g132657_ + (let ((_g132656_ (##length _g132657_))) + (cond ((##fx= _g132656_ 1) (apply gx#expander-context::bind-core-macro-expanders!__0 - _g131370_)) - ((##fx= _g131369_ 2) + _g132657_)) + ((##fx= _g132656_ 2) (apply gx#expander-context::bind-core-macro-expanders!__% - _g131370_)) + _g132657_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g131370_)))))) + _g132657_)))))) (__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 (_%self130212130338%_) - (let* ((_%self130341%_ _%self130212130338%_) - (_%self130343%_ _%self130341%_)) - (letrec ((_%linux-variant?130353%_ - (lambda (_%sys-type130453%_) - (let* ((_%g130454130462%_ + (lambda (_%self131499131625%_) + (let* ((_%self131628%_ _%self131499131625%_) + (_%self131630%_ _%self131628%_)) + (letrec ((_%linux-variant?131640%_ + (lambda (_%sys-type131740%_) + (let* ((_%g131741131749%_ (__string-split - (symbol->string _%sys-type130453%_) + (symbol->string _%sys-type131740%_) '#\-)) - (_%else130456130470%_ (lambda () '#f)) - (_%K130458130475%_ - (lambda (_%rest130473%_) - (not (null? _%rest130473%_))))) - (if (pair? _%g130454130462%_) - (let ((_%hd130459130478%_ - (##car _%g130454130462%_)) - (_%tl130460130480%_ - (##cdr _%g130454130462%_))) - (if (equal? _%hd130459130478%_ '"linux") - (let ((_%rest130483%_ _%tl130460130480%_)) - (_%K130458130475%_ _%rest130483%_)) - (_%else130456130470%_))) - (_%else130456130470%_))))) - (_%bsd-variant130354%_ - (lambda (_%sys-type130412%_) - (let ((_%sys-type-str130414%_ - (symbol->string _%sys-type130412%_))) - (let _%lp130416%_ ((_%rest130418%_ + (_%else131743131757%_ (lambda () '#f)) + (_%K131745131762%_ + (lambda (_%rest131760%_) + (not (null? _%rest131760%_))))) + (if (pair? _%g131741131749%_) + (let ((_%hd131746131765%_ + (##car _%g131741131749%_)) + (_%tl131747131767%_ + (##cdr _%g131741131749%_))) + (if (equal? _%hd131746131765%_ '"linux") + (let ((_%rest131770%_ _%tl131747131767%_)) + (_%K131745131762%_ _%rest131770%_)) + (_%else131743131757%_))) + (_%else131743131757%_))))) + (_%bsd-variant131641%_ + (lambda (_%sys-type131699%_) + (let ((_%sys-type-str131701%_ + (symbol->string _%sys-type131699%_))) + (let _%lp131703%_ ((_%rest131705%_ '("openbsd" "netbsd" "freebsd" "darwin"))) - (let* ((_%rest130419130427%_ _%rest130418%_) - (_%else130421130435%_ (lambda () '#f)) - (_%K130423130441%_ - (lambda (_%rest130438%_ _%sys130439%_) + (let* ((_%rest131706131714%_ _%rest131705%_) + (_%else131708131722%_ (lambda () '#f)) + (_%K131710131728%_ + (lambda (_%rest131725%_ _%sys131726%_) (if (string-prefix? - _%sys130439%_ - _%sys-type-str130414%_) - _%sys130439%_ - (_%lp130416%_ _%rest130438%_))))) - (if (pair? _%rest130419130427%_) - (let ((_%hd130424130444%_ - (##car _%rest130419130427%_)) - (_%tl130425130446%_ - (##cdr _%rest130419130427%_))) - (let* ((_%sys130449%_ _%hd130424130444%_) - (_%rest130451%_ _%tl130425130446%_)) - (_%K130423130441%_ - _%rest130451%_ - _%sys130449%_))) - (_%else130421130435%_)))))))) - (gx#core-bind-feature!__% 'gerbil '#f '0 _%self130343%_) - (gx#core-bind-feature!__% (gerbil-system) '#f '0 _%self130343%_) - (let* ((_%g130355130367%_ (system-type)) - (_%else130357130375%_ (lambda () '#!void)) - (_%K130359130388%_ - (lambda (_%sys-type130378%_ - _%sys-vendor130379%_ - _%sys-cpu130380%_) + _%sys131726%_ + _%sys-type-str131701%_) + _%sys131726%_ + (_%lp131703%_ _%rest131725%_))))) + (if (pair? _%rest131706131714%_) + (let ((_%hd131711131731%_ + (##car _%rest131706131714%_)) + (_%tl131712131733%_ + (##cdr _%rest131706131714%_))) + (let* ((_%sys131736%_ _%hd131711131731%_) + (_%rest131738%_ _%tl131712131733%_)) + (_%K131710131728%_ + _%rest131738%_ + _%sys131736%_))) + (_%else131708131722%_)))))))) + (gx#core-bind-feature!__% 'gerbil '#f '0 _%self131630%_) + (gx#core-bind-feature!__% (gerbil-system) '#f '0 _%self131630%_) + (let* ((_%g131642131654%_ (system-type)) + (_%else131644131662%_ (lambda () '#!void)) + (_%K131646131675%_ + (lambda (_%sys-type131665%_ + _%sys-vendor131666%_ + _%sys-cpu131667%_) (gx#core-bind-feature!__% - _%sys-cpu130380%_ + _%sys-cpu131667%_ '#f '0 - _%self130343%_) + _%self131630%_) (gx#core-bind-feature!__% - _%sys-type130378%_ + _%sys-type131665%_ '#f '0 - _%self130343%_) - (if (_%linux-variant?130353%_ _%sys-type130378%_) + _%self131630%_) + (if (_%linux-variant?131640%_ _%sys-type131665%_) (gx#core-bind-feature!__% (##string->symbol '"linux") '#f '0 - _%self130343%_) - (let ((_%$e130383%_ - (_%bsd-variant130354%_ _%sys-type130378%_))) - (if _%$e130383%_ - ((lambda (_%sys-prefix130386%_) + _%self131630%_) + (let ((_%$e131670%_ + (_%bsd-variant131641%_ _%sys-type131665%_))) + (if _%$e131670%_ + ((lambda (_%sys-prefix131673%_) (gx#core-bind-feature!__% (##string->symbol '"bsd") '#f '0 - _%self130343%_) + _%self131630%_) (gx#core-bind-feature!__% - (string->symbol _%sys-prefix130386%_) + (string->symbol _%sys-prefix131673%_) '#f '0 - _%self130343%_)) - _%$e130383%_) + _%self131630%_)) + _%$e131670%_) '#!void)))))) - (if (pair? _%g130355130367%_) - (let ((_%hd130360130391%_ (##car _%g130355130367%_)) - (_%tl130361130393%_ (##cdr _%g130355130367%_))) - (let ((_%sys-cpu130396%_ _%hd130360130391%_)) - (if (pair? _%tl130361130393%_) - (let ((_%hd130362130398%_ (##car _%tl130361130393%_)) - (_%tl130363130400%_ - (##cdr _%tl130361130393%_))) - (let ((_%sys-vendor130403%_ _%hd130362130398%_)) - (if (pair? _%tl130363130400%_) - (let ((_%hd130364130405%_ - (##car _%tl130363130400%_)) - (_%tl130365130407%_ - (##cdr _%tl130363130400%_))) - (let ((_%sys-type130410%_ - _%hd130364130405%_)) - (if (null? _%tl130365130407%_) - (_%K130359130388%_ - _%sys-type130410%_ - _%sys-vendor130403%_ - _%sys-cpu130396%_) + (if (pair? _%g131642131654%_) + (let ((_%hd131647131678%_ (##car _%g131642131654%_)) + (_%tl131648131680%_ (##cdr _%g131642131654%_))) + (let ((_%sys-cpu131683%_ _%hd131647131678%_)) + (if (pair? _%tl131648131680%_) + (let ((_%hd131649131685%_ (##car _%tl131648131680%_)) + (_%tl131650131687%_ + (##cdr _%tl131648131680%_))) + (let ((_%sys-vendor131690%_ _%hd131649131685%_)) + (if (pair? _%tl131650131687%_) + (let ((_%hd131651131692%_ + (##car _%tl131650131687%_)) + (_%tl131652131694%_ + (##cdr _%tl131650131687%_))) + (let ((_%sys-type131697%_ + _%hd131651131692%_)) + (if (null? _%tl131652131694%_) + (_%K131646131675%_ + _%sys-type131697%_ + _%sys-vendor131690%_ + _%sys-cpu131683%_) '#!void))) '#!void))) '#!void))) '#!void)) (if (gerbil-runtime-smp?) - (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _%self130343%_) + (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _%self131630%_) '#!void))))) (__bind-method!__% gx#expander-context::t diff --git a/src/bootstrap/gerbil/expander/stxcase~0.scm b/src/bootstrap/gerbil/expander/stxcase~0.scm index 757ac8d88..9d868562a 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 1713631267) + (define gerbil/expander/stxcase::timestamp 1734357962) (begin (define gx#syntax-pattern::t - (let ((__tmp132769 (list gx#expander::t)) - (__tmp132768 (cons (cons 'struct: '#t) '()))) + (let ((__tmp134056 (list gx#expander::t)) + (__tmp134055 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gx#syntax-pattern::t 'syntax-pattern - __tmp132769 + __tmp134056 '(id depth) - __tmp132768 + __tmp134055 '#f))) (define gx#syntax-pattern? (let () (declare (not safe)) (__make-class-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _%$args132765%_ - (apply make-instance gx#syntax-pattern::t _%$args132765%_))) + (lambda _%$args134052%_ + (apply make-instance gx#syntax-pattern::t _%$args134052%_))) (define gx#syntax-pattern-id (let () (declare (not safe)) @@ -69,14 +69,14 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gx#syntax-pattern::t 'e))) (define gx#syntax-pattern::apply-macro-expander - (lambda (_%self131372132749%_ _%stx132751%_) - (let* ((_%self132753%_ _%self131372132749%_) - (_%self132755%_ _%self132753%_)) + (lambda (_%self132659134036%_ _%stx134038%_) + (let* ((_%self134040%_ _%self132659134036%_) + (_%self134042%_ _%self134040%_)) (declare (not safe)) (gx#raise-syntax-error '#f '"Identifier used out of context" - _%stx132751%_)))) + _%stx134038%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -85,602 +85,602 @@ gx#syntax-pattern::apply-macro-expander '#f)) (define gx#macro-expand-syntax - (lambda (_%stx132215%_) - (letrec ((_%generate132217%_ - (lambda (_%e132457%_) - (letrec ((_%BUG132459%_ - (lambda (_%q132624%_) + (lambda (_%stx133502%_) + (letrec ((_%generate133504%_ + (lambda (_%e133744%_) + (letrec ((_%BUG133746%_ + (lambda (_%q133911%_) (let () (declare (not safe)) (error '"BUG: syntax; generate" - _%stx132215%_ - _%e132457%_ - _%q132624%_)))) - (_%local-pattern-e132460%_ - (lambda (_%pat132622%_) - (let ((__tmp132770 + _%stx133502%_ + _%e133744%_ + _%q133911%_)))) + (_%local-pattern-e133747%_ + (lambda (_%pat133909%_) + (let ((__tmp134057 (##structure-ref - _%pat132622%_ + _%pat133909%_ '2 gx#syntax-pattern::t '#f))) (declare (not safe)) - (gx#syntax-local-rewrap __tmp132770)))) - (_%getvar132461%_ - (lambda (_%q132619%_ _%vars132620%_) + (gx#syntax-local-rewrap __tmp134057)))) + (_%getvar133748%_ + (lambda (_%q133906%_ _%vars133907%_) (let () (declare (not safe)) (agetq__% - _%q132619%_ - _%vars132620%_ - _%BUG132459%_)))) - (_%getarg132462%_ - (lambda (_%arg132585%_ _%vars132586%_) - (let* ((_%arg132587132594%_ _%arg132585%_) - (_%E132589132598%_ + _%q133906%_ + _%vars133907%_ + _%BUG133746%_)))) + (_%getarg133749%_ + (lambda (_%arg133872%_ _%vars133873%_) + (let* ((_%arg133874133881%_ _%arg133872%_) + (_%E133876133885%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arg132587132594%_ + _%arg133874133881%_ '([tag . e]))) '#!void)) - (_%K132590132607%_ - (lambda (_%e132601%_ _%tag132602%_) - (let ((_%$e132604%_ _%tag132602%_)) - (if (eq? 'ref _%$e132604%_) - (_%getvar132461%_ - _%e132601%_ - _%vars132586%_) - (if (eq? 'pattern _%$e132604%_) - (_%local-pattern-e132460%_ - _%e132601%_) - (_%BUG132459%_ - _%arg132585%_))))))) - (if (pair? _%arg132587132594%_) - (let ((_%hd132591132610%_ + (_%K133877133894%_ + (lambda (_%e133888%_ _%tag133889%_) + (let ((_%$e133891%_ _%tag133889%_)) + (if (eq? 'ref _%$e133891%_) + (_%getvar133748%_ + _%e133888%_ + _%vars133873%_) + (if (eq? 'pattern _%$e133891%_) + (_%local-pattern-e133747%_ + _%e133888%_) + (_%BUG133746%_ + _%arg133872%_))))))) + (if (pair? _%arg133874133881%_) + (let ((_%hd133878133897%_ (let () (declare (not safe)) - (##car _%arg132587132594%_))) - (_%tl132592132612%_ + (##car _%arg133874133881%_))) + (_%tl133879133899%_ (let () (declare (not safe)) - (##cdr _%arg132587132594%_)))) - (let* ((_%tag132615%_ - _%hd132591132610%_) - (_%e132617%_ - _%tl132592132612%_)) - (_%K132590132607%_ - _%e132617%_ - _%tag132615%_))) - (_%E132589132598%_)))))) - (let _%recur132464%_ ((_%e132466%_ _%e132457%_) - (_%vars132467%_ '())) - (let* ((_%e132468132475%_ _%e132466%_) - (_%E132470132479%_ + (##cdr _%arg133874133881%_)))) + (let* ((_%tag133902%_ + _%hd133878133897%_) + (_%e133904%_ + _%tl133879133899%_)) + (_%K133877133894%_ + _%e133904%_ + _%tag133902%_))) + (_%E133876133885%_)))))) + (let _%recur133751%_ ((_%e133753%_ _%e133744%_) + (_%vars133754%_ '())) + (let* ((_%e133755133762%_ _%e133753%_) + (_%E133757133766%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e132468132475%_ + _%e133755133762%_ '([tag . body]))) '#!void)) - (_%K132471132573%_ - (lambda (_%body132482%_ _%tag132483%_) - (let ((_%$e132485%_ _%tag132483%_)) - (if (eq? 'datum _%$e132485%_) + (_%K133758133860%_ + (lambda (_%body133769%_ _%tag133770%_) + (let ((_%$e133772%_ _%tag133770%_)) + (if (eq? 'datum _%$e133772%_) (let () (declare (not safe)) - (gx#core-list 'quote _%body132482%_)) - (if (eq? 'term _%$e132485%_) - (let ((_%id132488%_ + (gx#core-list 'quote _%body133769%_)) + (if (eq? 'term _%$e133772%_) + (let ((_%id133775%_ (let () (declare (not safe)) (gx#syntax-local-unwrap - _%body132482%_)))) + _%body133769%_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id132488%_ + _%id133775%_ 'gx#identifier-wrap::t)) - (let ((_%marks132491%_ + (let ((_%marks133778%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%id132488%_ + _%id133775%_ '3 '#f '#f)))) - (if (null? _%marks132491%_) - (let ((__tmp132771 + (if (null? _%marks133778%_) + (let ((__tmp134058 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#core-list 'quote _%body132482%_)))) + (gx#core-list 'quote _%body133769%_)))) (declare (not safe)) - (gx#core-list 'datum->syntax '#f __tmp132771)) - (let ((__tmp132773 + (gx#core-list 'datum->syntax '#f __tmp134058)) + (let ((__tmp134060 (let () (declare (not safe)) - (gx#core-list 'quote-syntax _%body132482%_))) - (__tmp132772 + (gx#core-list 'quote-syntax _%body133769%_))) + (__tmp134059 (let () (declare (not safe)) - (gx#core-list 'quote _%body132482%_)))) + (gx#core-list 'quote _%body133769%_)))) (declare (not safe)) (gx#core-list 'datum->syntax - __tmp132773 - __tmp132772 + __tmp134060 + __tmp134059 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id132488%_ + _%id133775%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) (gx#core-list 'quote-syntax - _%body132482%_)) - (_%BUG132459%_ - _%e132466%_)))) - (if (eq? 'pattern _%$e132485%_) - (_%local-pattern-e132460%_ - _%body132482%_) - (if (eq? 'ref _%$e132485%_) - (_%getvar132461%_ - _%body132482%_ - _%vars132467%_) + _%body133769%_)) + (_%BUG133746%_ + _%e133753%_)))) + (if (eq? 'pattern _%$e133772%_) + (_%local-pattern-e133747%_ + _%body133769%_) + (if (eq? 'ref _%$e133772%_) + (_%getvar133748%_ + _%body133769%_ + _%vars133754%_) (if (eq? 'cons - _%$e132485%_) - (let ((__tmp132775 - (_%recur132464%_ - (car _%body132482%_) - _%vars132467%_)) - (__tmp132774 - (_%recur132464%_ - (cdr _%body132482%_) - _%vars132467%_))) + _%$e133772%_) + (let ((__tmp134062 + (_%recur133751%_ + (car _%body133769%_) + _%vars133754%_)) + (__tmp134061 + (_%recur133751%_ + (cdr _%body133769%_) + _%vars133754%_))) (declare (not safe)) (gx#core-list 'cons - __tmp132775 - __tmp132774)) + __tmp134062 + __tmp134061)) (if (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e132485%_) - (let ((__tmp132776 - (_%recur132464%_ _%body132482%_ _%vars132467%_))) + _%$e133772%_) + (let ((__tmp134063 + (_%recur133751%_ _%body133769%_ _%vars133754%_))) (declare (not safe)) - (gx#core-list 'list->vector __tmp132776)) - (if (eq? 'box _%$e132485%_) - (let ((__tmp132777 - (_%recur132464%_ - _%body132482%_ - _%vars132467%_))) + (gx#core-list 'list->vector __tmp134063)) + (if (eq? 'box _%$e133772%_) + (let ((__tmp134064 + (_%recur133751%_ + _%body133769%_ + _%vars133754%_))) (declare (not safe)) - (gx#core-list 'box __tmp132777)) - (if (eq? 'splice _%$e132485%_) - (let* ((_%body132494132505%_ _%body132482%_) - (_%E132496132509%_ + (gx#core-list 'box __tmp134064)) + (if (eq? 'splice _%$e133772%_) + (let* ((_%body133781133792%_ _%body133769%_) + (_%E133783133796%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body132494132505%_ + _%body133781133792%_ '([depth hd iv . args]))) '#!void)) - (_%K132497132547%_ - (lambda (_%args132512%_ - _%iv132513%_ - _%hd132514%_ - _%depth132515%_) - (let* ((_%targets132521%_ - (map (lambda (_%g132516132518%_) - (_%getarg132462%_ - _%g132516132518%_ - _%vars132467%_)) - _%args132512%_)) - (_%fold-in132523%_ + (_%K133784133834%_ + (lambda (_%args133799%_ + _%iv133800%_ + _%hd133801%_ + _%depth133802%_) + (let* ((_%targets133808%_ + (map (lambda (_%g133803133805%_) + (_%getarg133749%_ + _%g133803133805%_ + _%vars133754%_)) + _%args133799%_)) + (_%fold-in133810%_ (let () (declare (not safe)) - (gx#gentemps _%args132512%_))) - (_%fold-out132525%_ + (gx#gentemps _%args133799%_))) + (_%fold-out133812%_ (let () (declare (not safe)) (gx#genident__0))) - (_%lambda-args132527%_ - (let ((__tmp132778 - (cons _%fold-out132525%_ + (_%lambda-args133814%_ + (let ((__tmp134065 + (cons _%fold-out133812%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp132778 - _%fold-in132523%_))) - (_%lambda-body132544%_ + __tmp134065 + _%fold-in133810%_))) + (_%lambda-body133831%_ (if (let () (declare (not safe)) - (##fx> _%depth132515%_ '1)) - (let ((_%r-args132535%_ - (map (lambda (_%arg132529%_) + (##fx> _%depth133802%_ '1)) + (let ((_%r-args133822%_ + (map (lambda (_%arg133816%_) (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _%arg132529%_))) - _%args132512%_)) - (_%r-vars132536%_ - (let ((__tmp132779 - (lambda (_%arg132531%_ _%var132532%_ _%r132533%_) - (cons (cons (cdr _%arg132531%_) _%var132532%_) - _%r132533%_)))) + (cdr _%arg133816%_))) + _%args133799%_)) + (_%r-vars133823%_ + (let ((__tmp134066 + (lambda (_%arg133818%_ _%var133819%_ _%r133820%_) + (cons (cons (cdr _%arg133818%_) _%var133819%_) + _%r133820%_)))) (declare (not safe)) (__foldr2 - __tmp132779 - _%vars132467%_ - _%args132512%_ - _%fold-in132523%_)))) + __tmp134066 + _%vars133754%_ + _%args133799%_ + _%fold-in133810%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%recur132464%_ + (_%recur133751%_ (cons 'splice (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##fx- _%depth132515%_ '1)) - (cons _%hd132514%_ - (cons (cons 'var _%fold-out132525%_) - _%r-args132535%_)))) + (##fx- _%depth133802%_ '1)) + (cons _%hd133801%_ + (cons (cons 'var _%fold-out133812%_) + _%r-args133822%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r-vars132536%_)) - (let* ((_%hd-vars132542%_ - (let ((__tmp132780 + _%r-vars133823%_)) + (let* ((_%hd-vars133829%_ + (let ((__tmp134067 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%arg132538%_ _%var132539%_ _%r132540%_) - (cons (cons (cdr _%arg132538%_) _%var132539%_) - _%r132540%_)))) + (lambda (_%arg133825%_ _%var133826%_ _%r133827%_) + (cons (cons (cdr _%arg133825%_) _%var133826%_) + _%r133827%_)))) (declare (not safe)) (__foldr2 - __tmp132780 - _%vars132467%_ - _%args132512%_ - _%fold-in132523%_))) - (__tmp132781 - (_%recur132464%_ _%hd132514%_ _%hd-vars132542%_))) + __tmp134067 + _%vars133754%_ + _%args133799%_ + _%fold-in133810%_))) + (__tmp134068 + (_%recur133751%_ _%hd133801%_ _%hd-vars133829%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'cons - __tmp132781 - _%fold-out132525%_))))) - (let ((__tmp132785 - (if (let ((__tmp132786 + __tmp134068 + _%fold-out133812%_))))) + (let ((__tmp134072 + (if (let ((__tmp134073 (let () (declare (not safe)) (##length - _%targets132521%_)))) + _%targets133808%_)))) (declare (not safe)) - (##fx> __tmp132786 '1)) + (##fx> __tmp134073 '1)) (let () (declare (not safe)) (gx#core-cons* 'syntax-check-splice-targets - _%targets132521%_)) + _%targets133808%_)) '#!void)) - (__tmp132782 - (let ((__tmp132784 + (__tmp134069 + (let ((__tmp134071 (let () (declare (not safe)) (gx#core-list 'lambda% - _%lambda-args132527%_ - _%lambda-body132544%_))) - (__tmp132783 - (_%recur132464%_ - _%iv132513%_ - _%vars132467%_))) + _%lambda-args133814%_ + _%lambda-body133831%_))) + (__tmp134070 + (_%recur133751%_ + _%iv133800%_ + _%vars133754%_))) (declare (not safe)) (gx#core-cons* 'foldr - __tmp132784 - __tmp132783 - _%targets132521%_)))) + __tmp134071 + __tmp134070 + _%targets133808%_)))) (declare (not safe)) (gx#core-list 'begin - __tmp132785 - __tmp132782)))))) - (if (pair? _%body132494132505%_) - (let ((_%hd132498132550%_ + __tmp134072 + __tmp134069)))))) + (if (pair? _%body133781133792%_) + (let ((_%hd133785133837%_ (let () (declare (not safe)) - (##car _%body132494132505%_))) - (_%tl132499132552%_ + (##car _%body133781133792%_))) + (_%tl133786133839%_ (let () (declare (not safe)) - (##cdr _%body132494132505%_)))) - (let ((_%depth132555%_ _%hd132498132550%_)) - (if (pair? _%tl132499132552%_) - (let ((_%hd132500132557%_ + (##cdr _%body133781133792%_)))) + (let ((_%depth133842%_ _%hd133785133837%_)) + (if (pair? _%tl133786133839%_) + (let ((_%hd133787133844%_ (let () (declare (not safe)) - (##car _%tl132499132552%_))) - (_%tl132501132559%_ + (##car _%tl133786133839%_))) + (_%tl133788133846%_ (let () (declare (not safe)) - (##cdr _%tl132499132552%_)))) - (let ((_%hd132562%_ - _%hd132500132557%_)) - (if (pair? _%tl132501132559%_) - (let ((_%hd132502132564%_ + (##cdr _%tl133786133839%_)))) + (let ((_%hd133849%_ + _%hd133787133844%_)) + (if (pair? _%tl133788133846%_) + (let ((_%hd133789133851%_ (let () (declare (not safe)) - (##car _%tl132501132559%_))) - (_%tl132503132566%_ + (##car _%tl133788133846%_))) + (_%tl133790133853%_ (let () (declare (not safe)) - (##cdr _%tl132501132559%_)))) - (let* ((_%iv132569%_ - _%hd132502132564%_) - (_%args132571%_ - _%tl132503132566%_)) - (_%K132497132547%_ - _%args132571%_ - _%iv132569%_ - _%hd132562%_ - _%depth132555%_))) - (_%E132496132509%_)))) - (_%E132496132509%_)))) - (_%E132496132509%_))) - (if (eq? 'var _%$e132485%_) - _%body132482%_ - (_%BUG132459%_ _%e132466%_)))))))))))))) + (##cdr _%tl133788133846%_)))) + (let* ((_%iv133856%_ + _%hd133789133851%_) + (_%args133858%_ + _%tl133790133853%_)) + (_%K133784133834%_ + _%args133858%_ + _%iv133856%_ + _%hd133849%_ + _%depth133842%_))) + (_%E133783133796%_)))) + (_%E133783133796%_)))) + (_%E133783133796%_))) + (if (eq? 'var _%$e133772%_) + _%body133769%_ + (_%BUG133746%_ _%e133753%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e132468132475%_) - (let ((_%hd132472132576%_ + (if (pair? _%e133755133762%_) + (let ((_%hd133759133863%_ (let () (declare (not safe)) - (##car _%e132468132475%_))) - (_%tl132473132578%_ + (##car _%e133755133762%_))) + (_%tl133760133865%_ (let () (declare (not safe)) - (##cdr _%e132468132475%_)))) - (let* ((_%tag132581%_ _%hd132472132576%_) - (_%body132583%_ _%tl132473132578%_)) - (_%K132471132573%_ - _%body132583%_ - _%tag132581%_))) - (_%E132470132479%_))))))) - (_%parse132218%_ - (lambda (_%e132259%_) - (letrec ((_%make-cons132261%_ - (lambda (_%hd132449%_ _%tl132450%_) - (let ((_g132787_ _%hd132449%_) - (_g132789_ _%tl132450%_)) + (##cdr _%e133755133762%_)))) + (let* ((_%tag133868%_ _%hd133759133863%_) + (_%body133870%_ _%tl133760133865%_)) + (_%K133758133860%_ + _%body133870%_ + _%tag133868%_))) + (_%E133757133766%_))))))) + (_%parse133505%_ + (lambda (_%e133546%_) + (letrec ((_%make-cons133548%_ + (lambda (_%hd133736%_ _%tl133737%_) + (let ((_g134074_ _%hd133736%_) + (_g134076_ _%tl133737%_)) (begin - (let ((_g132788_ + (let ((_g134075_ (let () (declare (not safe)) - (if (##values? _g132787_) - (##vector-length _g132787_) + (if (##values? _g134074_) + (##values-length _g134074_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132788_ 2))) + (##fx= _g134075_ 2))) (error "Context expects 2 values" - _g132788_))) - (let ((_g132790_ + _g134075_))) + (let ((_g134077_ (let () (declare (not safe)) - (if (##values? _g132789_) - (##vector-length _g132789_) + (if (##values? _g134076_) + (##values-length _g134076_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132790_ 2))) + (##fx= _g134077_ 2))) (error "Context expects 2 values" - _g132790_))) - (let ((_%hd-e132452%_ + _g134077_))) + (let ((_%hd-e133739%_ (let () (declare (not safe)) - (##vector-ref _g132787_ 0))) - (_%hd-vars132453%_ + (##values-ref _g134074_ 0))) + (_%hd-vars133740%_ (let () (declare (not safe)) - (##vector-ref _g132787_ 1)))) - (let ((_%tl-e132454%_ + (##values-ref _g134074_ 1)))) + (let ((_%tl-e133741%_ (let () (declare (not safe)) - (##vector-ref _g132789_ 0))) - (_%tl-vars132455%_ + (##values-ref _g134076_ 0))) + (_%tl-vars133742%_ (let () (declare (not safe)) - (##vector-ref _g132789_ 1)))) + (##values-ref _g134076_ 1)))) (values (cons 'cons - (cons _%hd-e132452%_ - _%tl-e132454%_)) - (append _%hd-vars132453%_ - _%tl-vars132455%_)))))))) - (_%make-splice132262%_ - (lambda (_%where132385%_ - _%depth132386%_ - _%hd132387%_ - _%tl132388%_) - (let ((_g132791_ _%hd132387%_) - (_g132793_ _%tl132388%_)) + (cons _%hd-e133739%_ + _%tl-e133741%_)) + (append _%hd-vars133740%_ + _%tl-vars133742%_)))))))) + (_%make-splice133549%_ + (lambda (_%where133672%_ + _%depth133673%_ + _%hd133674%_ + _%tl133675%_) + (let ((_g134078_ _%hd133674%_) + (_g134080_ _%tl133675%_)) (begin - (let ((_g132792_ + (let ((_g134079_ (let () (declare (not safe)) - (if (##values? _g132791_) - (##vector-length _g132791_) + (if (##values? _g134078_) + (##values-length _g134078_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132792_ 2))) + (##fx= _g134079_ 2))) (error "Context expects 2 values" - _g132792_))) - (let ((_g132794_ + _g134079_))) + (let ((_g134081_ (let () (declare (not safe)) - (if (##values? _g132793_) - (##vector-length _g132793_) + (if (##values? _g134080_) + (##values-length _g134080_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132794_ 2))) + (##fx= _g134081_ 2))) (error "Context expects 2 values" - _g132794_))) - (let ((_%hd-e132390%_ + _g134081_))) + (let ((_%hd-e133677%_ (let () (declare (not safe)) - (##vector-ref _g132791_ 0))) - (_%hd-vars132391%_ + (##values-ref _g134078_ 0))) + (_%hd-vars133678%_ (let () (declare (not safe)) - (##vector-ref _g132791_ 1)))) - (let ((_%tl-e132392%_ + (##values-ref _g134078_ 1)))) + (let ((_%tl-e133679%_ (let () (declare (not safe)) - (##vector-ref _g132793_ 0))) - (_%tl-vars132393%_ + (##values-ref _g134080_ 0))) + (_%tl-vars133680%_ (let () (declare (not safe)) - (##vector-ref _g132793_ 1)))) - (let _%lp132395%_ ((_%rest132397%_ - _%hd-vars132391%_) - (_%targets132398%_ + (##values-ref _g134080_ 1)))) + (let _%lp133682%_ ((_%rest133684%_ + _%hd-vars133678%_) + (_%targets133685%_ '()) - (_%vars132399%_ - _%tl-vars132393%_)) - (let* ((_%rest132400132410%_ - _%rest132397%_) - (_%else132402132418%_ + (_%vars133686%_ + _%tl-vars133680%_)) + (let* ((_%rest133687133697%_ + _%rest133684%_) + (_%else133689133705%_ (lambda () - (if (null? _%targets132398%_) + (if (null? _%targets133685%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _%stx132215%_ - _%where132385%_)) + _%stx133502%_ + _%where133672%_)) (values (cons 'splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%depth132386%_ - (cons _%hd-e132390%_ - (cons _%tl-e132392%_ - _%targets132398%_)))) - _%vars132399%_)))) + (cons _%depth133673%_ + (cons _%hd-e133677%_ + (cons _%tl-e133679%_ + _%targets133685%_)))) + _%vars133686%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K132404132430%_ - (lambda (_%rest132421%_ - _%hd-pat132422%_ - _%hd-depth*132423%_) - (let ((_%hd-depth132425%_ - (fx- _%hd-depth*132423%_ - _%depth132386%_))) + (_%K133691133717%_ + (lambda (_%rest133708%_ + _%hd-pat133709%_ + _%hd-depth*133710%_) + (let ((_%hd-depth133712%_ + (fx- _%hd-depth*133710%_ + _%depth133673%_))) (if (let () (declare (not safe)) (##fxpositive? - _%hd-depth132425%_)) - (_%lp132395%_ - _%rest132421%_ + _%hd-depth133712%_)) + (_%lp133682%_ + _%rest133708%_ (cons (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd-pat132422%_) - _%targets132398%_) - (cons (cons _%hd-depth132425%_ _%hd-pat132422%_) - _%vars132399%_)) + _%hd-pat133709%_) + _%targets133685%_) + (cons (cons _%hd-depth133712%_ _%hd-pat133709%_) + _%vars133686%_)) (if (let () (declare (not safe)) - (##fxzero? _%hd-depth132425%_)) - (_%lp132395%_ - _%rest132421%_ - (cons (cons 'pattern _%hd-pat132422%_) - _%targets132398%_) - _%vars132399%_) + (##fxzero? _%hd-depth133712%_)) + (_%lp133682%_ + _%rest133708%_ + (cons (cons 'pattern _%hd-pat133709%_) + _%targets133685%_) + _%vars133686%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Too many ellipses" - _%stx132215%_ - _%where132385%_)))))))) + _%stx133502%_ + _%where133672%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest132400132410%_) - (let ((_%hd132405132433%_ + (if (pair? _%rest133687133697%_) + (let ((_%hd133692133720%_ (let () (declare (not safe)) - (##car _%rest132400132410%_))) - (_%tl132406132435%_ + (##car _%rest133687133697%_))) + (_%tl133693133722%_ (let () (declare (not safe)) - (##cdr _%rest132400132410%_)))) - (if (pair? _%hd132405132433%_) - (let ((_%hd132407132438%_ + (##cdr _%rest133687133697%_)))) + (if (pair? _%hd133692133720%_) + (let ((_%hd133694133725%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%hd132405132433%_))) - (_%tl132408132440%_ - (let () (declare (not safe)) (##cdr _%hd132405132433%_)))) - (let* ((_%hd-depth*132443%_ _%hd132407132438%_) - (_%hd-pat132445%_ _%tl132408132440%_) - (_%rest132447%_ _%tl132406132435%_)) - (_%K132404132430%_ - _%rest132447%_ - _%hd-pat132445%_ - _%hd-depth*132443%_))) - (_%else132402132418%_))) + (##car _%hd133692133720%_))) + (_%tl133695133727%_ + (let () (declare (not safe)) (##cdr _%hd133692133720%_)))) + (let* ((_%hd-depth*133730%_ _%hd133694133725%_) + (_%hd-pat133732%_ _%tl133695133727%_) + (_%rest133734%_ _%tl133693133722%_)) + (_%K133691133717%_ + _%rest133734%_ + _%hd-pat133732%_ + _%hd-depth*133730%_))) + (_%else133689133705%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else132402132418%_)))))))))) - (_%recur132263%_ - (lambda (_%e132268%_ _%is-e?132269%_) - (if (_%is-e?132269%_ _%e132268%_) + (_%else133689133705%_)))))))))) + (_%recur133550%_ + (lambda (_%e133555%_ _%is-e?133556%_) + (if (_%is-e?133556%_ _%e133555%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _%stx132215%_)) - (if (gx#syntax-local-pattern? _%e132268%_) - (let* ((_%pat132273%_ + _%stx133502%_)) + (if (gx#syntax-local-pattern? _%e133555%_) + (let* ((_%pat133560%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%e132268%_))) - (_%depth132275%_ + _%e133555%_))) + (_%depth133562%_ (##structure-ref - _%pat132273%_ + _%pat133560%_ '3 gx#syntax-pattern::t '#f))) - (if (fxpositive? _%depth132275%_) - (values (cons 'ref _%pat132273%_) - (cons (cons _%depth132275%_ + (if (fxpositive? _%depth133562%_) + (values (cons 'ref _%pat133560%_) + (cons (cons _%depth133562%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pat132273%_) + _%pat133560%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (values (cons 'pattern - _%pat132273%_) + _%pat133560%_) '()))) (if (let () (declare (not safe)) - (gx#identifier? _%e132268%_)) - (values (cons 'term _%e132268%_) + (gx#identifier? _%e133555%_)) + (values (cons 'term _%e133555%_) '()) (if (let () (declare (not safe)) - (gx#stx-pair? _%e132268%_)) - (let* ((_%e132279132286%_ - _%e132268%_) - (_%E132281132290%_ + (gx#stx-pair? _%e133555%_)) + (let* ((_%e133566133573%_ + _%e133555%_) + (_%E133568133577%_ (lambda () (let () (declare @@ -688,1989 +688,1989 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132279132286%_)))) - (_%E132280132372%_ + _%e133566133573%_)))) + (_%E133567133659%_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%e132279132286%_)) - (let ((_%e132282132294%_ + (gx#stx-pair? _%e133566133573%_)) + (let ((_%e133569133581%_ (let () (declare (not safe)) - (gx#syntax-e _%e132279132286%_)))) - (let ((_%hd132283132297%_ + (gx#syntax-e _%e133566133573%_)))) + (let ((_%hd133570133584%_ (let () (declare (not safe)) - (##car _%e132282132294%_))) - (_%tl132284132299%_ + (##car _%e133569133581%_))) + (_%tl133571133586%_ (let () (declare (not safe)) - (##cdr _%e132282132294%_)))) - (let* ((_%hd132302%_ _%hd132283132297%_) - (_%rest132304%_ _%tl132284132299%_)) - (if (_%is-e?132269%_ _%hd132302%_) - (let* ((_%e132305132312%_ _%rest132304%_) - (_%E132307132316%_ + (##cdr _%e133569133581%_)))) + (let* ((_%hd133589%_ _%hd133570133584%_) + (_%rest133591%_ _%tl133571133586%_)) + (if (_%is-e?133556%_ _%hd133589%_) + (let* ((_%e133592133599%_ _%rest133591%_) + (_%E133594133603%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad ellipsis syntax" - _%stx132215%_ - _%e132268%_)))) - (_%E132306132330%_ + _%stx133502%_ + _%e133555%_)))) + (_%E133593133617%_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _%e132305132312%_)) - (let ((_%e132308132320%_ + _%e133592133599%_)) + (let ((_%e133595133607%_ (let () (declare (not safe)) (gx#syntax-e - _%e132305132312%_)))) - (let ((_%hd132309132323%_ + _%e133592133599%_)))) + (let ((_%hd133596133610%_ (let () (declare (not safe)) - (##car _%e132308132320%_))) - (_%tl132310132325%_ + (##car _%e133595133607%_))) + (_%tl133597133612%_ (let () (declare (not safe)) - (##cdr _%e132308132320%_)))) - (let ((_%rest132328%_ - _%hd132309132323%_)) + (##cdr _%e133595133607%_)))) + (let ((_%rest133615%_ + _%hd133596133610%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132310132325%_)) - (_%recur132263%_ - _%rest132328%_ + _%tl133597133612%_)) + (_%recur133550%_ + _%rest133615%_ false) - (_%E132307132316%_))))) - (_%E132307132316%_))))) - (_%E132306132330%_)) - (let _%lp132334%_ ((_%rest132336%_ - _%rest132304%_) - (_%depth132337%_ '0)) - (let* ((_%e132338132345%_ _%rest132336%_) - (_%E132340132349%_ + (_%E133594133603%_))))) + (_%E133594133603%_))))) + (_%E133593133617%_)) + (let _%lp133621%_ ((_%rest133623%_ + _%rest133591%_) + (_%depth133624%_ '0)) + (let* ((_%e133625133632%_ _%rest133623%_) + (_%E133627133636%_ (lambda () - (if (fxpositive? _%depth132337%_) - (_%make-splice132262%_ - _%e132268%_ - _%depth132337%_ - (_%recur132263%_ - _%hd132302%_ - _%is-e?132269%_) - (_%recur132263%_ - _%rest132336%_ - _%is-e?132269%_)) - (_%make-cons132261%_ - (_%recur132263%_ - _%hd132302%_ - _%is-e?132269%_) - (_%recur132263%_ - _%rest132336%_ - _%is-e?132269%_))))) - (_%E132339132368%_ + (if (fxpositive? _%depth133624%_) + (_%make-splice133549%_ + _%e133555%_ + _%depth133624%_ + (_%recur133550%_ + _%hd133589%_ + _%is-e?133556%_) + (_%recur133550%_ + _%rest133623%_ + _%is-e?133556%_)) + (_%make-cons133548%_ + (_%recur133550%_ + _%hd133589%_ + _%is-e?133556%_) + (_%recur133550%_ + _%rest133623%_ + _%is-e?133556%_))))) + (_%E133626133655%_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _%e132338132345%_)) - (let ((_%e132341132353%_ + _%e133625133632%_)) + (let ((_%e133628133640%_ (let () (declare (not safe)) (gx#syntax-e - _%e132338132345%_)))) - (let ((_%hd132342132356%_ + _%e133625133632%_)))) + (let ((_%hd133629133643%_ (let () (declare (not safe)) - (##car _%e132341132353%_))) - (_%tl132343132358%_ + (##car _%e133628133640%_))) + (_%tl133630133645%_ (let () (declare (not safe)) - (##cdr _%e132341132353%_)))) - (let* ((_%rest-hd132361%_ - _%hd132342132356%_) - (_%rest-tl132363%_ - _%tl132343132358%_)) - (if (_%is-e?132269%_ - _%rest-hd132361%_) - (_%lp132334%_ - _%rest-tl132363%_ + (##cdr _%e133628133640%_)))) + (let* ((_%rest-hd133648%_ + _%hd133629133643%_) + (_%rest-tl133650%_ + _%tl133630133645%_)) + (if (_%is-e?133556%_ + _%rest-hd133648%_) + (_%lp133621%_ + _%rest-tl133650%_ (let () (declare (not safe)) - (##fx+ _%depth132337%_ + (##fx+ _%depth133624%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1))) - (if (fxpositive? _%depth132337%_) - (_%make-splice132262%_ - _%e132268%_ - _%depth132337%_ - (_%recur132263%_ _%hd132302%_ _%is-e?132269%_) - (_%recur132263%_ _%rest132336%_ _%is-e?132269%_)) - (_%make-cons132261%_ - (_%recur132263%_ _%hd132302%_ _%is-e?132269%_) - (_%recur132263%_ _%rest132336%_ _%is-e?132269%_))))))) + (if (fxpositive? _%depth133624%_) + (_%make-splice133549%_ + _%e133555%_ + _%depth133624%_ + (_%recur133550%_ _%hd133589%_ _%is-e?133556%_) + (_%recur133550%_ _%rest133623%_ _%is-e?133556%_)) + (_%make-cons133548%_ + (_%recur133550%_ _%hd133589%_ _%is-e?133556%_) + (_%recur133550%_ _%rest133623%_ _%is-e?133556%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E132340132349%_))))) - (_%E132339132368%_))))))) - (_%E132281132290%_))))) + (_%E133627133636%_))))) + (_%E133626133655%_))))))) + (_%E133568133577%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E132280132372%_)) + (_%E133567133659%_)) (if (let () (declare (not safe)) (gx#stx-vector? - _%e132268%_)) - (let ((_g132795_ - (_%recur132263%_ + _%e133555%_)) + (let ((_g134082_ + (_%recur133550%_ (vector->list (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-unwrap__0 _%e132268%_))) - _%is-e?132269%_))) + (gx#stx-unwrap__0 _%e133555%_))) + _%is-e?133556%_))) (begin - (let ((_g132796_ + (let ((_g134083_ (let () (declare (not safe)) - (if (##values? _g132795_) - (##vector-length _g132795_) + (if (##values? _g134082_) + (##values-length _g134082_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g132796_ 2))) - (error "Context expects 2 values" _g132796_))) - (let ((_%e132377%_ + (if (not (let () (declare (not safe)) (##fx= _g134083_ 2))) + (error "Context expects 2 values" _g134083_))) + (let ((_%e133664%_ (let () (declare (not safe)) - (##vector-ref _g132795_ 0))) - (_%vars132378%_ + (##values-ref _g134082_ 0))) + (_%vars133665%_ (let () (declare (not safe)) - (##vector-ref _g132795_ 1)))) - (values (cons 'vector _%e132377%_) _%vars132378%_)))) + (##values-ref _g134082_ 1)))) + (values (cons 'vector _%e133664%_) _%vars133665%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-box? - _%e132268%_)) - (let ((_g132797_ - (_%recur132263%_ + _%e133555%_)) + (let ((_g134084_ + (_%recur133550%_ (unbox (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-unwrap__0 _%e132268%_))) - _%is-e?132269%_))) + (gx#stx-unwrap__0 _%e133555%_))) + _%is-e?133556%_))) (begin - (let ((_g132798_ + (let ((_g134085_ (let () (declare (not safe)) - (if (##values? _g132797_) - (##vector-length _g132797_) + (if (##values? _g134084_) + (##values-length _g134084_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132798_ 2))) - (error "Context expects 2 values" _g132798_))) - (let ((_%e132381%_ + (##fx= _g134085_ 2))) + (error "Context expects 2 values" _g134085_))) + (let ((_%e133668%_ (let () (declare (not safe)) - (##vector-ref _g132797_ 0))) - (_%vars132382%_ + (##values-ref _g134084_ 0))) + (_%vars133669%_ (let () (declare (not safe)) - (##vector-ref _g132797_ 1)))) - (values (cons 'box _%e132381%_) _%vars132382%_)))) - (values (cons 'datum _%e132268%_) '())))))))))) + (##values-ref _g134084_ 1)))) + (values (cons 'box _%e133668%_) _%vars133669%_)))) + (values (cons 'datum _%e133555%_) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g132799_ - (_%recur132263%_ _%e132259%_ gx#ellipsis?))) + (let ((_g134086_ + (_%recur133550%_ _%e133546%_ gx#ellipsis?))) (begin - (let ((_g132800_ + (let ((_g134087_ (let () (declare (not safe)) - (if (##values? _g132799_) - (##vector-length _g132799_) + (if (##values? _g134086_) + (##values-length _g134086_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132800_ 2))) - (error "Context expects 2 values" _g132800_))) - (let ((_%tree132265%_ + (##fx= _g134087_ 2))) + (error "Context expects 2 values" _g134087_))) + (let ((_%tree133552%_ (let () (declare (not safe)) - (##vector-ref _g132799_ 0))) - (_%vars132266%_ + (##values-ref _g134086_ 0))) + (_%vars133553%_ (let () (declare (not safe)) - (##vector-ref _g132799_ 1)))) - (if (null? _%vars132266%_) - _%tree132265%_ + (##values-ref _g134086_ 1)))) + (if (null? _%vars133553%_) + _%tree133552%_ (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Missing ellipsis" - _%stx132215%_ - _%vars132266%_)))))))))) - (let* ((_%e132219132229%_ _%stx132215%_) - (_%E132221132233%_ + _%stx133502%_ + _%vars133553%_)))))))))) + (let* ((_%e133506133516%_ _%stx133502%_) + (_%E133508133520%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; expand-syntax expects a single argument" - _%stx132215%_)))) - (_%E132220132255%_ + _%stx133502%_)))) + (_%E133507133542%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e132219132229%_)) - (let ((_%e132222132237%_ + (gx#stx-pair? _%e133506133516%_)) + (let ((_%e133509133524%_ (let () (declare (not safe)) - (gx#syntax-e _%e132219132229%_)))) - (let ((_%hd132223132240%_ + (gx#syntax-e _%e133506133516%_)))) + (let ((_%hd133510133527%_ (let () (declare (not safe)) - (##car _%e132222132237%_))) - (_%tl132224132242%_ + (##car _%e133509133524%_))) + (_%tl133511133529%_ (let () (declare (not safe)) - (##cdr _%e132222132237%_)))) + (##cdr _%e133509133524%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132224132242%_)) - (let ((_%e132225132245%_ + (gx#stx-pair? _%tl133511133529%_)) + (let ((_%e133512133532%_ (let () (declare (not safe)) - (gx#syntax-e _%tl132224132242%_)))) - (let ((_%hd132226132248%_ + (gx#syntax-e _%tl133511133529%_)))) + (let ((_%hd133513133535%_ (let () (declare (not safe)) - (##car _%e132225132245%_))) - (_%tl132227132250%_ + (##car _%e133512133532%_))) + (_%tl133514133537%_ (let () (declare (not safe)) - (##cdr _%e132225132245%_)))) - (let ((_%form132253%_ _%hd132226132248%_)) + (##cdr _%e133512133532%_)))) + (let ((_%form133540%_ _%hd133513133535%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132227132250%_)) - (let ((__tmp132802 - (_%generate132217%_ - (_%parse132218%_ - _%form132253%_))) - (__tmp132801 + (gx#stx-null? _%tl133514133537%_)) + (let ((__tmp134089 + (_%generate133504%_ + (_%parse133505%_ + _%form133540%_))) + (__tmp134088 (let () (declare (not safe)) (gx#stx-source - _%stx132215%_)))) + _%stx133502%_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp132802 - __tmp132801)) - (_%E132221132233%_))))) - (_%E132221132233%_)))) - (_%E132221132233%_))))) - (_%E132220132255%_))))) + __tmp134089 + __tmp134088)) + (_%E133508133520%_))))) + (_%E133508133520%_)))) + (_%E133508133520%_))))) + (_%E133507133542%_))))) (define gx#macro-expand-syntax-case__% - (lambda (_%stx131464%_ - _%identifier=?131465%_ - _%unwrap-e131466%_ - _%wrap-e131467%_) - (letrec ((_%generate-bindings131469%_ - (lambda (_%target132079%_ - _%ids132080%_ - _%clauses132081%_ - _%clause-ids132082%_ - _%E132083%_) - (letrec ((_%generate1132085%_ - (lambda (_%clause132182%_ - _%clause-id132183%_ - _%E132184%_) - (cons (cons _%clause-id132183%_ '()) - (cons (let ((__tmp132804 - (cons _%target132079%_ '())) - (__tmp132803 - (_%generate-clause131471%_ - _%target132079%_ - _%ids132080%_ - _%clause132182%_ - _%E132184%_))) + (lambda (_%stx132751%_ + _%identifier=?132752%_ + _%unwrap-e132753%_ + _%wrap-e132754%_) + (letrec ((_%generate-bindings132756%_ + (lambda (_%target133366%_ + _%ids133367%_ + _%clauses133368%_ + _%clause-ids133369%_ + _%E133370%_) + (letrec ((_%generate1133372%_ + (lambda (_%clause133469%_ + _%clause-id133470%_ + _%E133471%_) + (cons (cons _%clause-id133470%_ '()) + (cons (let ((__tmp134091 + (cons _%target133366%_ '())) + (__tmp134090 + (_%generate-clause132758%_ + _%target133366%_ + _%ids133367%_ + _%clause133469%_ + _%E133471%_))) (declare (not safe)) (gx#core-list 'lambda% - __tmp132804 - __tmp132803)) + __tmp134091 + __tmp134090)) '()))))) - (let _%lp132087%_ ((_%rest132089%_ _%clauses132081%_) - (_%rest-ids132090%_ - _%clause-ids132082%_) - (_%bindings132091%_ '())) - (let* ((_%rest132092132100%_ _%rest132089%_) - (_%else132094132108%_ - (lambda () _%bindings132091%_)) - (_%K132096132170%_ - (lambda (_%rest132111%_ _%clause132112%_) - (let* ((_%rest-ids132113132120%_ - _%rest-ids132090%_) - (_%E132115132124%_ + (let _%lp133374%_ ((_%rest133376%_ _%clauses133368%_) + (_%rest-ids133377%_ + _%clause-ids133369%_) + (_%bindings133378%_ '())) + (let* ((_%rest133379133387%_ _%rest133376%_) + (_%else133381133395%_ + (lambda () _%bindings133378%_)) + (_%K133383133457%_ + (lambda (_%rest133398%_ _%clause133399%_) + (let* ((_%rest-ids133400133407%_ + _%rest-ids133377%_) + (_%E133402133411%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest-ids132113132120%_ + _%rest-ids133400133407%_ '([clause-id . rest-ids]))) '#!void)) - (_%K132116132158%_ - (lambda (_%rest-ids132127%_ - _%clause-id132128%_) - (let* ((_%rest-ids132129132137%_ - _%rest-ids132127%_) - (_%else132131132145%_ + (_%K133403133445%_ + (lambda (_%rest-ids133414%_ + _%clause-id133415%_) + (let* ((_%rest-ids133416133424%_ + _%rest-ids133414%_) + (_%else133418133432%_ (lambda () - (cons (_%generate1132085%_ - _%clause132112%_ - _%clause-id132128%_ - _%E132083%_) - _%bindings132091%_))) - (_%K132133132150%_ - (lambda (_%next-clause-id132148%_) - (_%lp132087%_ - _%rest132111%_ - _%rest-ids132127%_ - (cons (_%generate1132085%_ - _%clause132112%_ - _%clause-id132128%_ - _%next-clause-id132148%_) - _%bindings132091%_))))) - (if (pair? _%rest-ids132129132137%_) - (let* ((_%hd132134132153%_ + (cons (_%generate1133372%_ + _%clause133399%_ + _%clause-id133415%_ + _%E133370%_) + _%bindings133378%_))) + (_%K133420133437%_ + (lambda (_%next-clause-id133435%_) + (_%lp133374%_ + _%rest133398%_ + _%rest-ids133414%_ + (cons (_%generate1133372%_ + _%clause133399%_ + _%clause-id133415%_ + _%next-clause-id133435%_) + _%bindings133378%_))))) + (if (pair? _%rest-ids133416133424%_) + (let* ((_%hd133421133440%_ (let () (declare (not safe)) - (##car _%rest-ids132129132137%_))) - (_%next-clause-id132156%_ - _%hd132134132153%_)) - (_%K132133132150%_ - _%next-clause-id132156%_)) - (_%else132131132145%_)))))) - (if (pair? _%rest-ids132113132120%_) - (let ((_%hd132117132161%_ + (##car _%rest-ids133416133424%_))) + (_%next-clause-id133443%_ + _%hd133421133440%_)) + (_%K133420133437%_ + _%next-clause-id133443%_)) + (_%else133418133432%_)))))) + (if (pair? _%rest-ids133400133407%_) + (let ((_%hd133404133448%_ (let () (declare (not safe)) - (##car _%rest-ids132113132120%_))) - (_%tl132118132163%_ + (##car _%rest-ids133400133407%_))) + (_%tl133405133450%_ (let () (declare (not safe)) - (##cdr _%rest-ids132113132120%_)))) - (let* ((_%clause-id132166%_ - _%hd132117132161%_) - (_%rest-ids132168%_ - _%tl132118132163%_)) - (_%K132116132158%_ - _%rest-ids132168%_ - _%clause-id132166%_))) - (_%E132115132124%_)))))) - (if (pair? _%rest132092132100%_) - (let ((_%hd132097132173%_ + (##cdr _%rest-ids133400133407%_)))) + (let* ((_%clause-id133453%_ + _%hd133404133448%_) + (_%rest-ids133455%_ + _%tl133405133450%_)) + (_%K133403133445%_ + _%rest-ids133455%_ + _%clause-id133453%_))) + (_%E133402133411%_)))))) + (if (pair? _%rest133379133387%_) + (let ((_%hd133384133460%_ (let () (declare (not safe)) - (##car _%rest132092132100%_))) - (_%tl132098132175%_ + (##car _%rest133379133387%_))) + (_%tl133385133462%_ (let () (declare (not safe)) - (##cdr _%rest132092132100%_)))) - (let* ((_%clause132178%_ _%hd132097132173%_) - (_%rest132180%_ _%tl132098132175%_)) - (_%K132096132170%_ - _%rest132180%_ - _%clause132178%_))) - (_%else132094132108%_))))))) - (_%generate-body131470%_ - (lambda (_%bindings132039%_ _%body132040%_) - (let _%recur132042%_ ((_%rest132044%_ _%bindings132039%_)) - (let* ((_%rest132045132053%_ _%rest132044%_) - (_%else132047132061%_ (lambda () _%body132040%_)) - (_%K132049132067%_ - (lambda (_%rest132064%_ _%hd132065%_) - (let ((__tmp132806 (cons _%hd132065%_ '())) - (__tmp132805 - (_%recur132042%_ _%rest132064%_))) + (##cdr _%rest133379133387%_)))) + (let* ((_%clause133465%_ _%hd133384133460%_) + (_%rest133467%_ _%tl133385133462%_)) + (_%K133383133457%_ + _%rest133467%_ + _%clause133465%_))) + (_%else133381133395%_))))))) + (_%generate-body132757%_ + (lambda (_%bindings133326%_ _%body133327%_) + (let _%recur133329%_ ((_%rest133331%_ _%bindings133326%_)) + (let* ((_%rest133332133340%_ _%rest133331%_) + (_%else133334133348%_ (lambda () _%body133327%_)) + (_%K133336133354%_ + (lambda (_%rest133351%_ _%hd133352%_) + (let ((__tmp134093 (cons _%hd133352%_ '())) + (__tmp134092 + (_%recur133329%_ _%rest133351%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp132806 - __tmp132805))))) - (if (pair? _%rest132045132053%_) - (let ((_%hd132050132070%_ + __tmp134093 + __tmp134092))))) + (if (pair? _%rest133332133340%_) + (let ((_%hd133337133357%_ (let () (declare (not safe)) - (##car _%rest132045132053%_))) - (_%tl132051132072%_ + (##car _%rest133332133340%_))) + (_%tl133338133359%_ (let () (declare (not safe)) - (##cdr _%rest132045132053%_)))) - (let* ((_%hd132075%_ _%hd132050132070%_) - (_%rest132077%_ _%tl132051132072%_)) - (_%K132049132067%_ - _%rest132077%_ - _%hd132075%_))) - (_%else132047132061%_)))))) - (_%generate-clause131471%_ - (lambda (_%target131902%_ - _%ids131903%_ - _%clause131904%_ - _%E131905%_) - (letrec ((_%generate1131907%_ - (lambda (_%hd131994%_ - _%fender131995%_ - _%body131996%_) - (let ((_g132807_ - (_%parse-clause131473%_ - _%hd131994%_ - _%ids131903%_))) + (##cdr _%rest133332133340%_)))) + (let* ((_%hd133362%_ _%hd133337133357%_) + (_%rest133364%_ _%tl133338133359%_)) + (_%K133336133354%_ + _%rest133364%_ + _%hd133362%_))) + (_%else133334133348%_)))))) + (_%generate-clause132758%_ + (lambda (_%target133189%_ + _%ids133190%_ + _%clause133191%_ + _%E133192%_) + (letrec ((_%generate1133194%_ + (lambda (_%hd133281%_ + _%fender133282%_ + _%body133283%_) + (let ((_g134094_ + (_%parse-clause132760%_ + _%hd133281%_ + _%ids133190%_))) (begin - (let ((_g132808_ + (let ((_g134095_ (let () (declare (not safe)) - (if (##values? _g132807_) - (##vector-length _g132807_) + (if (##values? _g134094_) + (##values-length _g134094_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132808_ 2))) + (##fx= _g134095_ 2))) (error "Context expects 2 values" - _g132808_))) - (let ((_%e131998%_ + _g134095_))) + (let ((_%e133285%_ (let () (declare (not safe)) - (##vector-ref _g132807_ 0))) - (_%mvars131999%_ + (##values-ref _g134094_ 0))) + (_%mvars133286%_ (let () (declare (not safe)) - (##vector-ref _g132807_ 1)))) - (let* ((_%pvars132001%_ + (##values-ref _g134094_ 1)))) + (let* ((_%pvars133288%_ (map gx#syntax-local-rewrap (let () (declare (not safe)) (gx#gentemps - _%mvars131999%_)))) - (_%E132003%_ - (cons _%E131905%_ - (cons _%target131902%_ + _%mvars133286%_)))) + (_%E133290%_ + (cons _%E133192%_ + (cons _%target133189%_ '()))) - (_%K132036%_ - (let ((__tmp132809 - (let ((__tmp132811 - (map (lambda (_%mvar132005%_ + (_%K133323%_ + (let ((__tmp134096 + (let ((__tmp134098 + (map (lambda (_%mvar133292%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pvar132006%_) - (let* ((_%mvar132007132014%_ _%mvar132005%_) - (_%E132009132018%_ + _%pvar133293%_) + (let* ((_%mvar133294133301%_ _%mvar133292%_) + (_%E133296133305%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mvar132007132014%_ + _%mvar133294133301%_ '([id . depth]))) '#!void)) - (_%K132010132024%_ - (lambda (_%depth132021%_ _%id132022%_) - (cons _%id132022%_ - (cons (let ((__tmp132813 + (_%K133297133311%_ + (lambda (_%depth133308%_ _%id133309%_) + (cons _%id133309%_ + (cons (let ((__tmp134100 (let () (declare (not safe)) (gx#core-list 'quote - _%id132022%_))) - (__tmp132812 + _%id133309%_))) + (__tmp134099 (let () (declare (not safe)) (gx#core-list 'quote - _%pvar132006%_)))) + _%pvar133293%_)))) (declare (not safe)) (gx#core-list 'make-syntax-pattern - __tmp132813 - __tmp132812 - _%depth132021%_)) + __tmp134100 + __tmp134099 + _%depth133308%_)) '()))))) - (if (pair? _%mvar132007132014%_) - (let ((_%hd132011132027%_ + (if (pair? _%mvar133294133301%_) + (let ((_%hd133298133314%_ (let () (declare (not safe)) - (##car _%mvar132007132014%_))) - (_%tl132012132029%_ + (##car _%mvar133294133301%_))) + (_%tl133299133316%_ (let () (declare (not safe)) - (##cdr _%mvar132007132014%_)))) - (let* ((_%id132032%_ _%hd132011132027%_) - (_%depth132034%_ _%tl132012132029%_)) - (_%K132010132024%_ - _%depth132034%_ - _%id132032%_))) - (_%E132009132018%_)))) - _%mvars131999%_ - _%pvars132001%_)) - (__tmp132810 - (if (eq? _%fender131995%_ '#t) - _%body131996%_ + (##cdr _%mvar133294133301%_)))) + (let* ((_%id133319%_ _%hd133298133314%_) + (_%depth133321%_ _%tl133299133316%_)) + (_%K133297133311%_ + _%depth133321%_ + _%id133319%_))) + (_%E133296133305%_)))) + _%mvars133286%_ + _%pvars133288%_)) + (__tmp134097 + (if (eq? _%fender133282%_ '#t) + _%body133283%_ (let () (declare (not safe)) (gx#core-list 'if - _%fender131995%_ - _%body131996%_ - _%E132003%_))))) + _%fender133282%_ + _%body133283%_ + _%E133290%_))))) (declare (not safe)) - (gx#core-list 'let-syntax __tmp132811 __tmp132810)))) + (gx#core-list 'let-syntax __tmp134098 __tmp134097)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'lambda% - _%pvars132001%_ - __tmp132809)))) - (_%generate-match131472%_ - _%hd131994%_ - _%target131902%_ - _%e131998%_ - _%mvars131999%_ - _%K132036%_ - _%E132003%_)))))))) - (let* ((_%e131908131928%_ _%clause131904%_) - (_%E131917131932%_ + _%pvars133288%_ + __tmp134096)))) + (_%generate-match132759%_ + _%hd133281%_ + _%target133189%_ + _%e133285%_ + _%mvars133286%_ + _%K133323%_ + _%E133290%_)))))))) + (let* ((_%e133195133215%_ _%clause133191%_) + (_%E133204133219%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131908131928%_)))) - (_%E131910131966%_ + _%e133195133215%_)))) + (_%E133197133253%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131908131928%_)) - (let ((_%e131918131936%_ + (gx#stx-pair? _%e133195133215%_)) + (let ((_%e133205133223%_ (let () (declare (not safe)) - (gx#syntax-e _%e131908131928%_)))) - (let ((_%hd131919131939%_ + (gx#syntax-e _%e133195133215%_)))) + (let ((_%hd133206133226%_ (let () (declare (not safe)) - (##car _%e131918131936%_))) - (_%tl131920131941%_ + (##car _%e133205133223%_))) + (_%tl133207133228%_ (let () (declare (not safe)) - (##cdr _%e131918131936%_)))) - (let ((_%hd131944%_ - _%hd131919131939%_)) + (##cdr _%e133205133223%_)))) + (let ((_%hd133231%_ + _%hd133206133226%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl131920131941%_)) - (let ((_%e131921131946%_ + _%tl133207133228%_)) + (let ((_%e133208133233%_ (let () (declare (not safe)) (gx#syntax-e - _%tl131920131941%_)))) - (let ((_%hd131922131949%_ + _%tl133207133228%_)))) + (let ((_%hd133209133236%_ (let () (declare (not safe)) - (##car _%e131921131946%_))) - (_%tl131923131951%_ + (##car _%e133208133233%_))) + (_%tl133210133238%_ (let () (declare (not safe)) - (##cdr _%e131921131946%_)))) - (let ((_%fender131954%_ - _%hd131922131949%_)) + (##cdr _%e133208133233%_)))) + (let ((_%fender133241%_ + _%hd133209133236%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl131923131951%_)) - (let ((_%e131924131956%_ + _%tl133210133238%_)) + (let ((_%e133211133243%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl131923131951%_)))) - (let ((_%hd131925131959%_ + (gx#syntax-e _%tl133210133238%_)))) + (let ((_%hd133212133246%_ (let () (declare (not safe)) - (##car _%e131924131956%_))) - (_%tl131926131961%_ + (##car _%e133211133243%_))) + (_%tl133213133248%_ (let () (declare (not safe)) - (##cdr _%e131924131956%_)))) - (let ((_%body131964%_ _%hd131925131959%_)) + (##cdr _%e133211133243%_)))) + (let ((_%body133251%_ _%hd133212133246%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl131926131961%_)) - (_%generate1131907%_ - _%hd131944%_ - _%fender131954%_ - _%body131964%_) - (_%E131917131932%_))))) - (_%E131917131932%_))))) + (gx#stx-null? _%tl133213133248%_)) + (_%generate1133194%_ + _%hd133231%_ + _%fender133241%_ + _%body133251%_) + (_%E133204133219%_))))) + (_%E133204133219%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E131917131932%_))))) - (_%E131917131932%_)))) - (_%E131909131990%_ + (_%E133204133219%_))))) + (_%E133204133219%_)))) + (_%E133196133277%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131908131928%_)) - (let ((_%e131911131970%_ + (gx#stx-pair? _%e133195133215%_)) + (let ((_%e133198133257%_ (let () (declare (not safe)) - (gx#syntax-e _%e131908131928%_)))) - (let ((_%hd131912131973%_ + (gx#syntax-e _%e133195133215%_)))) + (let ((_%hd133199133260%_ (let () (declare (not safe)) - (##car _%e131911131970%_))) - (_%tl131913131975%_ + (##car _%e133198133257%_))) + (_%tl133200133262%_ (let () (declare (not safe)) - (##cdr _%e131911131970%_)))) - (let ((_%hd131978%_ - _%hd131912131973%_)) + (##cdr _%e133198133257%_)))) + (let ((_%hd133265%_ + _%hd133199133260%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl131913131975%_)) - (let ((_%e131914131980%_ + _%tl133200133262%_)) + (let ((_%e133201133267%_ (let () (declare (not safe)) (gx#syntax-e - _%tl131913131975%_)))) - (let ((_%hd131915131983%_ + _%tl133200133262%_)))) + (let ((_%hd133202133270%_ (let () (declare (not safe)) - (##car _%e131914131980%_))) - (_%tl131916131985%_ + (##car _%e133201133267%_))) + (_%tl133203133272%_ (let () (declare (not safe)) - (##cdr _%e131914131980%_)))) - (let ((_%body131988%_ - _%hd131915131983%_)) + (##cdr _%e133201133267%_)))) + (let ((_%body133275%_ + _%hd133202133270%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl131916131985%_)) - (_%generate1131907%_ - _%hd131978%_ + _%tl133203133272%_)) + (_%generate1133194%_ + _%hd133265%_ '#t - _%body131988%_) - (_%E131910131966%_))))) - (_%E131910131966%_))))) - (_%E131910131966%_))))) - (_%E131909131990%_))))) - (_%generate-match131472%_ - (lambda (_%where131651%_ - _%target131652%_ - _%hd131653%_ - _%mvars131654%_ - _%K131655%_ - _%E131656%_) - (letrec ((_%BUG131658%_ - (lambda (_%q131900%_) + _%body133275%_) + (_%E133197133253%_))))) + (_%E133197133253%_))))) + (_%E133197133253%_))))) + (_%E133196133277%_))))) + (_%generate-match132759%_ + (lambda (_%where132938%_ + _%target132939%_ + _%hd132940%_ + _%mvars132941%_ + _%K132942%_ + _%E132943%_) + (letrec ((_%BUG132945%_ + (lambda (_%q133187%_) (let () (declare (not safe)) (error '"BUG: syntax-case; generate" - _%stx131464%_ - _%hd131653%_ - _%q131900%_)))) - (_%recur131659%_ - (lambda (_%e131750%_ - _%vars131751%_ - _%target131752%_ - _%E131753%_ - _%k131754%_) - (let* ((_%e131755131762%_ _%e131750%_) - (_%E131757131766%_ + _%stx132751%_ + _%hd132940%_ + _%q133187%_)))) + (_%recur132946%_ + (lambda (_%e133037%_ + _%vars133038%_ + _%target133039%_ + _%E133040%_ + _%k133041%_) + (let* ((_%e133042133049%_ _%e133037%_) + (_%E133044133053%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e131755131762%_ + _%e133042133049%_ '([tag . body]))) '#!void)) - (_%K131758131888%_ - (lambda (_%body131769%_ _%tag131770%_) - (let ((_%$e131772%_ _%tag131770%_)) - (if (eq? 'any _%$e131772%_) - (_%k131754%_ _%vars131751%_) - (if (eq? 'id _%$e131772%_) - (let ((__tmp132818 + (_%K133045133175%_ + (lambda (_%body133056%_ _%tag133057%_) + (let ((_%$e133059%_ _%tag133057%_)) + (if (eq? 'any _%$e133059%_) + (_%k133041%_ _%vars133038%_) + (if (eq? 'id _%$e133059%_) + (let ((__tmp134105 (let () (declare (not safe)) (gx#core-list 'identifier? - _%target131752%_))) - (__tmp132814 - (let ((__tmp132816 + _%target133039%_))) + (__tmp134101 + (let ((__tmp134103 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp132817 + (let ((__tmp134104 (let () (declare (not safe)) (gx#core-list - _%wrap-e131467%_ - _%body131769%_)))) + _%wrap-e132754%_ + _%body133056%_)))) (declare (not safe)) (gx#core-list - _%identifier=?131465%_ - __tmp132817 - _%target131752%_))) - (__tmp132815 (_%k131754%_ _%vars131751%_))) + _%identifier=?132752%_ + __tmp134104 + _%target133039%_))) + (__tmp134102 (_%k133041%_ _%vars133038%_))) (declare (not safe)) - (gx#core-list 'if __tmp132816 __tmp132815 _%E131753%_)))) + (gx#core-list 'if __tmp134103 __tmp134102 _%E133040%_)))) (declare (not safe)) - (gx#core-list 'if __tmp132818 __tmp132814 _%E131753%_)) + (gx#core-list 'if __tmp134105 __tmp134101 _%E133040%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (eq? 'var _%$e131772%_) - (_%k131754%_ - (cons (cons _%body131769%_ + (if (eq? 'var _%$e133059%_) + (_%k133041%_ + (cons (cons _%body133056%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%target131752%_) - _%vars131751%_)) - (if (eq? 'cons _%$e131772%_) - (let ((_%$e131775%_ + _%target133039%_) + _%vars133038%_)) + (if (eq? 'cons _%$e133059%_) + (let ((_%$e133062%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$hd131776%_ + (_%$hd133063%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl131777%_ + (_%$tl133064%_ (let () (declare (not safe)) (gx#genident__1 'tl)))) - (let ((__tmp132824 + (let ((__tmp134111 (let () (declare (not safe)) - (gx#core-list 'stx-pair? _%target131752%_))) - (__tmp132819 - (let ((__tmp132823 - (cons (cons (cons _%$e131775%_ '()) + (gx#core-list 'stx-pair? _%target133039%_))) + (__tmp134106 + (let ((__tmp134110 + (cons (cons (cons _%$e133062%_ '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e131466%_ - _%target131752%_)) + _%unwrap-e132753%_ + _%target133039%_)) '())) '())) - (__tmp132820 - (let ((__tmp132822 - (cons (cons (cons _%$hd131776%_ '()) + (__tmp134107 + (let ((__tmp134109 + (cons (cons (cons _%$hd133063%_ '()) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#core-list '##car _%$e131775%_)) + (gx#core-list '##car _%$e133062%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons _%$tl131777%_ + (cons (cons (cons _%$tl133064%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##cdr _%$e131775%_)) + (gx#core-list '##cdr _%$e133062%_)) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp132821 - (let* ((_%body131778131785%_ - _%body131769%_) - (_%E131780131789%_ + (__tmp134108 + (let* ((_%body133065133072%_ + _%body133056%_) + (_%E133067133076%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body131778131785%_ + _%body133065133072%_ '([hd . tl]))) '#!void)) - (_%K131781131797%_ - (lambda (_%tl131792%_ - _%hd131793%_) - (_%recur131659%_ - _%hd131793%_ - _%vars131751%_ - _%$hd131776%_ - _%E131753%_ - (lambda (_%vars131795%_) - (_%recur131659%_ - _%tl131792%_ - _%vars131795%_ - _%$tl131777%_ - _%E131753%_ - _%k131754%_)))))) - (if (pair? _%body131778131785%_) - (let ((_%hd131782131800%_ + (_%K133068133084%_ + (lambda (_%tl133079%_ + _%hd133080%_) + (_%recur132946%_ + _%hd133080%_ + _%vars133038%_ + _%$hd133063%_ + _%E133040%_ + (lambda (_%vars133082%_) + (_%recur132946%_ + _%tl133079%_ + _%vars133082%_ + _%$tl133064%_ + _%E133040%_ + _%k133041%_)))))) + (if (pair? _%body133065133072%_) + (let ((_%hd133069133087%_ (let () (declare (not safe)) - (##car _%body131778131785%_))) - (_%tl131783131802%_ + (##car _%body133065133072%_))) + (_%tl133070133089%_ (let () (declare (not safe)) - (##cdr _%body131778131785%_)))) - (let* ((_%hd131805%_ - _%hd131782131800%_) - (_%tl131807%_ - _%tl131783131802%_)) - (_%K131781131797%_ - _%tl131807%_ - _%hd131805%_))) - (_%E131780131789%_))))) + (##cdr _%body133065133072%_)))) + (let* ((_%hd133092%_ + _%hd133069133087%_) + (_%tl133094%_ + _%tl133070133089%_)) + (_%K133068133084%_ + _%tl133094%_ + _%hd133092%_))) + (_%E133067133076%_))))) (declare (not safe)) (gx#core-list 'let-values - __tmp132822 - __tmp132821)))) + __tmp134109 + __tmp134108)))) (declare (not safe)) (gx#core-list 'let-values - __tmp132823 - __tmp132820)))) + __tmp134110 + __tmp134107)))) (declare (not safe)) (gx#core-list 'if - __tmp132824 - __tmp132819 - _%E131753%_))) - (if (eq? 'splice _%$e131772%_) - (let* ((_%body131808131815%_ _%body131769%_) - (_%E131810131819%_ + __tmp134111 + __tmp134106 + _%E133040%_))) + (if (eq? 'splice _%$e133059%_) + (let* ((_%body133095133102%_ _%body133056%_) + (_%E133097133106%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body131808131815%_ + _%body133095133102%_ '([hd . tl]))) '#!void)) - (_%K131811131870%_ - (lambda (_%tl131822%_ _%hd131823%_) - (let* ((_%rlen131825%_ - (_%splice-rlen131660%_ _%tl131822%_)) - (_%$target131827%_ + (_%K133098133157%_ + (lambda (_%tl133109%_ _%hd133110%_) + (let* ((_%rlen133112%_ + (_%splice-rlen132947%_ _%tl133109%_)) + (_%$target133114%_ (let () (declare (not safe)) (gx#genident__1 'target))) - (_%$hd131829%_ + (_%$hd133116%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl131831%_ + (_%$tl133118%_ (let () (declare (not safe)) (gx#genident__1 'tl))) - (_%$lp131833%_ + (_%$lp133120%_ (let () (declare (not safe)) (gx#genident__1 'loop))) - (_%$lp-e131835%_ + (_%$lp-e133122%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$lp-hd131837%_ + (_%$lp-hd133124%_ (let () (declare (not safe)) (gx#genident__1 'lp-hd))) - (_%$lp-tl131839%_ + (_%$lp-tl133126%_ (let () (declare (not safe)) (gx#genident__1 'lp-tl))) - (_%svars131841%_ - (_%splice-vars131661%_ _%hd131823%_)) - (_%lvars131843%_ + (_%svars133128%_ + (_%splice-vars132948%_ _%hd133110%_)) + (_%lvars133130%_ (let () (declare (not safe)) - (gx#gentemps _%svars131841%_))) - (_%tlvars131845%_ + (gx#gentemps _%svars133128%_))) + (_%tlvars133132%_ (let () (declare (not safe)) - (gx#gentemps _%svars131841%_))) - (_%linit131849%_ - (map (lambda (_%var131847%_) + (gx#gentemps _%svars133128%_))) + (_%linit133136%_ + (map (lambda (_%var133134%_) (let () (declare (not safe)) (gx#core-list 'quote '()))) - _%lvars131843%_))) - (letrec ((_%make-loop131852%_ - (lambda (_%vars131856%_) - (let ((__tmp132826 - (cons (cons (cons _%$lp131833%_ + _%lvars133130%_))) + (letrec ((_%make-loop133139%_ + (lambda (_%vars133143%_) + (let ((__tmp134113 + (cons (cons (cons _%$lp133120%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp132839 - (cons _%$hd131829%_ _%lvars131843%_)) - (__tmp132827 - (let ((__tmp132838 + (cons (let ((__tmp134126 + (cons _%$hd133116%_ _%lvars133130%_)) + (__tmp134114 + (let ((__tmp134125 (let () (declare (not safe)) (gx#core-list 'stx-pair? - _%$hd131829%_))) - (__tmp132832 - (let ((__tmp132837 - (cons (cons (cons _%$lp-e131835%_ + _%$hd133116%_))) + (__tmp134119 + (let ((__tmp134124 + (cons (cons (cons _%$lp-e133122%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e131466%_ - _%$hd131829%_)) + _%unwrap-e132753%_ + _%$hd133116%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp132833 - (let ((__tmp132836 - (cons (cons (cons _%$lp-hd131837%_ + (__tmp134120 + (let ((__tmp134123 + (cons (cons (cons _%$lp-hd133124%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##car _%$lp-e131835%_)) + (gx#core-list '##car _%$lp-e133122%_)) '())) - (cons (cons (cons _%$lp-tl131839%_ '()) + (cons (cons (cons _%$lp-tl133126%_ '()) (cons (let () (declare (not safe)) (gx#core-list '##cdr - _%$lp-e131835%_)) + _%$lp-e133122%_)) '())) '()))) - (__tmp132834 - (_%recur131659%_ - _%hd131823%_ + (__tmp134121 + (_%recur132946%_ + _%hd133110%_ '() - _%$lp-hd131837%_ - _%E131753%_ - (lambda (_%hdvars131858%_) - (cons _%$lp131833%_ - (cons _%$lp-tl131839%_ - (map (lambda (_%svar131860%_ - _%lvar131861%_) - (let ((__tmp132835 + _%$lp-hd133124%_ + _%E133040%_ + (lambda (_%hdvars133145%_) + (cons _%$lp133120%_ + (cons _%$lp-tl133126%_ + (map (lambda (_%svar133147%_ + _%lvar133148%_) + (let ((__tmp134122 (let () (declare (not safe)) (agetq__% - _%svar131860%_ - _%hdvars131858%_ - _%BUG131658%_)))) + _%svar133147%_ + _%hdvars133145%_ + _%BUG132945%_)))) (declare (not safe)) (gx#core-list 'cons - __tmp132835 - _%lvar131861%_))) - _%svars131841%_ - _%lvars131843%_))))))) + __tmp134122 + _%lvar133148%_))) + _%svars133128%_ + _%lvars133130%_))))))) (declare (not safe)) - (gx#core-list 'let-values __tmp132836 __tmp132834)))) + (gx#core-list 'let-values __tmp134123 __tmp134121)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp132837 - __tmp132833))) - (__tmp132828 - (let ((__tmp132831 - (map (lambda (_%lvar131863%_ + __tmp134124 + __tmp134120))) + (__tmp134115 + (let ((__tmp134118 + (map (lambda (_%lvar133150%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar131864%_) - (cons (cons _%tlvar131864%_ '()) + _%tlvar133151%_) + (cons (cons _%tlvar133151%_ '()) (cons (let () (declare (not safe)) - (gx#core-list 'reverse _%lvar131863%_)) + (gx#core-list 'reverse _%lvar133150%_)) '()))) - _%lvars131843%_ - _%tlvars131845%_)) + _%lvars133130%_ + _%tlvars133132%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp132829 - (_%k131754%_ - (let ((__tmp132830 - (lambda (_%svar131866%_ + (__tmp134116 + (_%k133041%_ + (let ((__tmp134117 + (lambda (_%svar133153%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar131867%_ - _%r131868%_) - (cons (cons _%svar131866%_ _%tlvar131867%_) - _%r131868%_)))) + _%tlvar133154%_ + _%r133155%_) + (cons (cons _%svar133153%_ _%tlvar133154%_) + _%r133155%_)))) (declare (not safe)) (__foldl2 - __tmp132830 - _%vars131856%_ - _%svars131841%_ - _%tlvars131845%_))))) + __tmp134117 + _%vars133143%_ + _%svars133128%_ + _%tlvars133132%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp132831 - __tmp132829)))) + __tmp134118 + __tmp134116)))) (declare (not safe)) (gx#core-list 'if - __tmp132838 - __tmp132832 - __tmp132828)))) + __tmp134125 + __tmp134119 + __tmp134115)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp132839 - __tmp132827)) + __tmp134126 + __tmp134114)) '())) '())) - (__tmp132825 - (cons _%$lp131833%_ (cons _%$target131827%_ _%linit131849%_)))) + (__tmp134112 + (cons _%$lp133120%_ (cons _%$target133114%_ _%linit133136%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'letrec-values - __tmp132826 - __tmp132825))))) - (let ((_%body131854%_ - (let ((__tmp132841 - (cons (cons (cons _%$target131827%_ + __tmp134113 + __tmp134112))))) + (let ((_%body133141%_ + (let ((__tmp134128 + (cons (cons (cons _%$target133114%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tl131831%_ '())) + (cons _%$tl133118%_ '())) (cons (let () (declare (not safe)) (gx#core-list 'syntax-split-splice - _%target131752%_ - _%rlen131825%_)) + _%target133039%_ + _%rlen133112%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp132840 - (_%recur131659%_ - _%tl131822%_ - _%vars131751%_ - _%$tl131831%_ - _%E131753%_ - _%make-loop131852%_))) + (__tmp134127 + (_%recur132946%_ + _%tl133109%_ + _%vars133038%_ + _%$tl133118%_ + _%E133040%_ + _%make-loop133139%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp132841 - __tmp132840)))) - (let ((__tmp132845 + __tmp134128 + __tmp134127)))) + (let ((__tmp134132 (let () (declare (not safe)) (gx#core-list 'stx-pair/null? - _%target131752%_))) - (__tmp132842 - (if (zero? _%rlen131825%_) - _%body131854%_ - (let ((__tmp132843 - (let ((__tmp132844 + _%target133039%_))) + (__tmp134129 + (if (zero? _%rlen133112%_) + _%body133141%_ + (let ((__tmp134130 + (let ((__tmp134131 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#core-list 'stx-length _%target131752%_)))) + (gx#core-list 'stx-length _%target133039%_)))) (declare (not safe)) - (gx#core-list 'fx>= __tmp132844 _%rlen131825%_)))) + (gx#core-list 'fx>= __tmp134131 _%rlen133112%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'if - __tmp132843 - _%body131854%_ - _%E131753%_))))) + __tmp134130 + _%body133141%_ + _%E133040%_))))) (declare (not safe)) (gx#core-list 'if - __tmp132845 - __tmp132842 - _%E131753%_)))))))) - (if (pair? _%body131808131815%_) - (let ((_%hd131812131873%_ + __tmp134132 + __tmp134129 + _%E133040%_)))))))) + (if (pair? _%body133095133102%_) + (let ((_%hd133099133160%_ (let () (declare (not safe)) - (##car _%body131808131815%_))) - (_%tl131813131875%_ + (##car _%body133095133102%_))) + (_%tl133100133162%_ (let () (declare (not safe)) - (##cdr _%body131808131815%_)))) - (let* ((_%hd131878%_ _%hd131812131873%_) - (_%tl131880%_ _%tl131813131875%_)) - (_%K131811131870%_ - _%tl131880%_ - _%hd131878%_))) - (_%E131810131819%_))) - (if (eq? 'null _%$e131772%_) - (let ((__tmp132847 + (##cdr _%body133095133102%_)))) + (let* ((_%hd133165%_ _%hd133099133160%_) + (_%tl133167%_ _%tl133100133162%_)) + (_%K133098133157%_ + _%tl133167%_ + _%hd133165%_))) + (_%E133097133106%_))) + (if (eq? 'null _%$e133059%_) + (let ((__tmp134134 (let () (declare (not safe)) (gx#core-list 'stx-null? - _%target131752%_))) - (__tmp132846 (_%k131754%_ _%vars131751%_))) + _%target133039%_))) + (__tmp134133 (_%k133041%_ _%vars133038%_))) (declare (not safe)) (gx#core-list 'if - __tmp132847 - __tmp132846 - _%E131753%_)) - (if (eq? 'vector _%$e131772%_) - (let ((_%$e131882%_ + __tmp134134 + __tmp134133 + _%E133040%_)) + (if (eq? 'vector _%$e133059%_) + (let ((_%$e133169%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp132852 + (let ((__tmp134139 (let () (declare (not safe)) (gx#core-list 'stx-vector? - _%target131752%_))) - (__tmp132848 - (let ((__tmp132850 - (cons (cons (cons _%$e131882%_ + _%target133039%_))) + (__tmp134135 + (let ((__tmp134137 + (cons (cons (cons _%$e133169%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp132851 + (cons (let ((__tmp134138 (let () (declare (not safe)) (gx#core-list - _%unwrap-e131466%_ - _%target131752%_)))) + _%unwrap-e132753%_ + _%target133039%_)))) (declare (not safe)) - (gx#core-list 'vector->list __tmp132851)) + (gx#core-list 'vector->list __tmp134138)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp132849 - (_%recur131659%_ - _%body131769%_ - _%vars131751%_ - _%$e131882%_ - _%E131753%_ - _%k131754%_))) + (__tmp134136 + (_%recur132946%_ + _%body133056%_ + _%vars133038%_ + _%$e133169%_ + _%E133040%_ + _%k133041%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp132850 - __tmp132849)))) + __tmp134137 + __tmp134136)))) (declare (not safe)) (gx#core-list 'if - __tmp132852 - __tmp132848 - _%E131753%_))) - (if (eq? 'box _%$e131772%_) - (let ((_%$e131884%_ + __tmp134139 + __tmp134135 + _%E133040%_))) + (if (eq? 'box _%$e133059%_) + (let ((_%$e133171%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp132857 + (let ((__tmp134144 (let () (declare (not safe)) (gx#core-list 'stx-box? - _%target131752%_))) - (__tmp132853 - (let ((__tmp132855 - (cons (cons (cons _%$e131884%_ + _%target133039%_))) + (__tmp134140 + (let ((__tmp134142 + (cons (cons (cons _%$e133171%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp132856 + (cons (let ((__tmp134143 (let () (declare (not safe)) (gx#core-list - _%unwrap-e131466%_ - _%target131752%_)))) + _%unwrap-e132753%_ + _%target133039%_)))) (declare (not safe)) - (gx#core-list 'unbox __tmp132856)) + (gx#core-list 'unbox __tmp134143)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp132854 - (_%recur131659%_ - _%body131769%_ - _%vars131751%_ - _%$e131884%_ - _%E131753%_ - _%k131754%_))) + (__tmp134141 + (_%recur132946%_ + _%body133056%_ + _%vars133038%_ + _%$e133171%_ + _%E133040%_ + _%k133041%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp132855 - __tmp132854)))) + __tmp134142 + __tmp134141)))) (declare (not safe)) (gx#core-list 'if - __tmp132857 - __tmp132853 - _%E131753%_))) - (if (eq? 'datum _%$e131772%_) - (let ((_%$e131886%_ + __tmp134144 + __tmp134140 + _%E133040%_))) + (if (eq? 'datum _%$e133059%_) + (let ((_%$e133173%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp132863 + (let ((__tmp134150 (let () (declare (not safe)) (gx#core-list 'stx-datum? - _%target131752%_))) - (__tmp132858 - (let ((__tmp132862 - (cons (cons (cons _%$e131886%_ + _%target133039%_))) + (__tmp134145 + (let ((__tmp134149 + (cons (cons (cons _%$e133173%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list 'stx-e _%target131752%_)) + (gx#core-list 'stx-e _%target133039%_)) '())) '())) - (__tmp132859 - (let ((__tmp132861 + (__tmp134146 + (let ((__tmp134148 (let () (declare (not safe)) - (gx#core-list 'equal? _%$e131886%_ _%body131769%_))) - (__tmp132860 (_%k131754%_ _%vars131751%_))) + (gx#core-list 'equal? _%$e133173%_ _%body133056%_))) + (__tmp134147 (_%k133041%_ _%vars133038%_))) (declare (not safe)) - (gx#core-list 'if __tmp132861 __tmp132860 _%E131753%_)))) + (gx#core-list 'if __tmp134148 __tmp134147 _%E133040%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp132862 - __tmp132859)))) + __tmp134149 + __tmp134146)))) (declare (not safe)) (gx#core-list 'if - __tmp132863 - __tmp132858 - _%E131753%_))) - (_%BUG131658%_ - _%e131750%_)))))))))))))) + __tmp134150 + __tmp134145 + _%E133040%_))) + (_%BUG132945%_ + _%e133037%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e131755131762%_) - (let ((_%hd131759131891%_ + (if (pair? _%e133042133049%_) + (let ((_%hd133046133178%_ (let () (declare (not safe)) - (##car _%e131755131762%_))) - (_%tl131760131893%_ + (##car _%e133042133049%_))) + (_%tl133047133180%_ (let () (declare (not safe)) - (##cdr _%e131755131762%_)))) - (let* ((_%tag131896%_ - _%hd131759131891%_) - (_%body131898%_ - _%tl131760131893%_)) - (_%K131758131888%_ - _%body131898%_ - _%tag131896%_))) - (_%E131757131766%_))))) - (_%splice-rlen131660%_ - (lambda (_%e131712%_) - (let _%lp131714%_ ((_%e131716%_ _%e131712%_) - (_%n131717%_ '0)) - (let* ((_%e131718131725%_ _%e131716%_) - (_%E131720131729%_ + (##cdr _%e133042133049%_)))) + (let* ((_%tag133183%_ + _%hd133046133178%_) + (_%body133185%_ + _%tl133047133180%_)) + (_%K133045133175%_ + _%body133185%_ + _%tag133183%_))) + (_%E133044133053%_))))) + (_%splice-rlen132947%_ + (lambda (_%e132999%_) + (let _%lp133001%_ ((_%e133003%_ _%e132999%_) + (_%n133004%_ '0)) + (let* ((_%e133005133012%_ _%e133003%_) + (_%E133007133016%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e131718131725%_ + _%e133005133012%_ '([tag . body]))) '#!void)) - (_%K131721131738%_ - (lambda (_%body131732%_ - _%tag131733%_) - (let ((_%$e131735%_ _%tag131733%_)) - (if (eq? 'splice _%$e131735%_) + (_%K133008133025%_ + (lambda (_%body133019%_ + _%tag133020%_) + (let ((_%$e133022%_ _%tag133020%_)) + (if (eq? 'splice _%$e133022%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _%stx131464%_ - _%where131651%_)) - (if (eq? 'cons _%$e131735%_) - (_%lp131714%_ - (cdr _%body131732%_) + _%stx132751%_ + _%where132938%_)) + (if (eq? 'cons _%$e133022%_) + (_%lp133001%_ + (cdr _%body133019%_) (let () (declare (not safe)) - (##fx+ _%n131717%_ + (##fx+ _%n133004%_ '1))) - _%n131717%_)))))) - (if (pair? _%e131718131725%_) - (let ((_%hd131722131741%_ + _%n133004%_)))))) + (if (pair? _%e133005133012%_) + (let ((_%hd133009133028%_ (let () (declare (not safe)) - (##car _%e131718131725%_))) - (_%tl131723131743%_ + (##car _%e133005133012%_))) + (_%tl133010133030%_ (let () (declare (not safe)) - (##cdr _%e131718131725%_)))) - (let* ((_%tag131746%_ - _%hd131722131741%_) - (_%body131748%_ - _%tl131723131743%_)) - (_%K131721131738%_ - _%body131748%_ - _%tag131746%_))) - (_%E131720131729%_)))))) - (_%splice-vars131661%_ - (lambda (_%e131668%_) - (let _%recur131670%_ ((_%e131672%_ _%e131668%_) - (_%vars131673%_ '())) - (let* ((_%e131674131681%_ _%e131672%_) - (_%E131676131685%_ + (##cdr _%e133005133012%_)))) + (let* ((_%tag133033%_ + _%hd133009133028%_) + (_%body133035%_ + _%tl133010133030%_)) + (_%K133008133025%_ + _%body133035%_ + _%tag133033%_))) + (_%E133007133016%_)))))) + (_%splice-vars132948%_ + (lambda (_%e132955%_) + (let _%recur132957%_ ((_%e132959%_ _%e132955%_) + (_%vars132960%_ '())) + (let* ((_%e132961132968%_ _%e132959%_) + (_%E132963132972%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e131674131681%_ + _%e132961132968%_ '([tag . body]))) '#!void)) - (_%K131677131700%_ - (lambda (_%body131688%_ - _%tag131689%_) - (let ((_%$e131691%_ _%tag131689%_)) - (if (eq? 'var _%$e131691%_) - (cons _%body131688%_ - _%vars131673%_) + (_%K132964132987%_ + (lambda (_%body132975%_ + _%tag132976%_) + (let ((_%$e132978%_ _%tag132976%_)) + (if (eq? 'var _%$e132978%_) + (cons _%body132975%_ + _%vars132960%_) (if (or (eq? 'cons - _%$e131691%_) + _%$e132978%_) (eq? 'splice - _%$e131691%_)) - (_%recur131670%_ - (cdr _%body131688%_) - (_%recur131670%_ - (car _%body131688%_) - _%vars131673%_)) + _%$e132978%_)) + (_%recur132957%_ + (cdr _%body132975%_) + (_%recur132957%_ + (car _%body132975%_) + _%vars132960%_)) (if (or (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e131691%_) - (eq? 'box _%$e131691%_)) - (_%recur131670%_ _%body131688%_ _%vars131673%_) - _%vars131673%_))))))) + _%$e132978%_) + (eq? 'box _%$e132978%_)) + (_%recur132957%_ _%body132975%_ _%vars132960%_) + _%vars132960%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e131674131681%_) - (let ((_%hd131678131703%_ + (if (pair? _%e132961132968%_) + (let ((_%hd132965132990%_ (let () (declare (not safe)) - (##car _%e131674131681%_))) - (_%tl131679131705%_ + (##car _%e132961132968%_))) + (_%tl132966132992%_ (let () (declare (not safe)) - (##cdr _%e131674131681%_)))) - (let* ((_%tag131708%_ - _%hd131678131703%_) - (_%body131710%_ - _%tl131679131705%_)) - (_%K131677131700%_ - _%body131710%_ - _%tag131708%_))) - (_%E131676131685%_)))))) - (_%make-body131662%_ - (lambda (_%vars131664%_) - (cons _%K131655%_ - (map (lambda (_%mvar131666%_) - (let ((__tmp132864 - (car _%mvar131666%_))) + (##cdr _%e132961132968%_)))) + (let* ((_%tag132995%_ + _%hd132965132990%_) + (_%body132997%_ + _%tl132966132992%_)) + (_%K132964132987%_ + _%body132997%_ + _%tag132995%_))) + (_%E132963132972%_)))))) + (_%make-body132949%_ + (lambda (_%vars132951%_) + (cons _%K132942%_ + (map (lambda (_%mvar132953%_) + (let ((__tmp134151 + (car _%mvar132953%_))) (declare (not safe)) (agetq__% - __tmp132864 - _%vars131664%_ - _%BUG131658%_))) - _%mvars131654%_))))) - (_%recur131659%_ - _%hd131653%_ + __tmp134151 + _%vars132951%_ + _%BUG132945%_))) + _%mvars132941%_))))) + (_%recur132946%_ + _%hd132940%_ '() - _%target131652%_ - _%E131656%_ - _%make-body131662%_)))) - (_%parse-clause131473%_ - (lambda (_%hd131545%_ _%ids131546%_) - (let _%recur131548%_ ((_%e131550%_ _%hd131545%_) - (_%vars131551%_ '()) - (_%depth131552%_ '0)) + _%target132939%_ + _%E132943%_ + _%make-body132949%_)))) + (_%parse-clause132760%_ + (lambda (_%hd132832%_ _%ids132833%_) + (let _%recur132835%_ ((_%e132837%_ _%hd132832%_) + (_%vars132838%_ '()) + (_%depth132839%_ '0)) (if (let () (declare (not safe)) - (gx#identifier? _%e131550%_)) + (gx#identifier? _%e132837%_)) (if (let () (declare (not safe)) - (gx#underscore? _%e131550%_)) - (values '(any) _%vars131551%_) + (gx#underscore? _%e132837%_)) + (values '(any) _%vars132838%_) (if (let () (declare (not safe)) - (gx#ellipsis? _%e131550%_)) + (gx#ellipsis? _%e132837%_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _%stx131464%_ - _%hd131545%_)) - (if (let ((__tmp132865 - (lambda (_%id131557%_) + _%stx132751%_ + _%hd132832%_)) + (if (let ((__tmp134152 + (lambda (_%id132844%_) (let () (declare (not safe)) (gx#bound-identifier=? - _%e131550%_ - _%id131557%_))))) + _%e132837%_ + _%id132844%_))))) (declare (not safe)) - (__find __tmp132865 _%ids131546%_)) - (values (cons 'id _%e131550%_) - _%vars131551%_) - (if (let ((__tmp132866 - (lambda (_%var131560%_) - (let ((__tmp132867 - (car _%var131560%_))) + (__find __tmp134152 _%ids132833%_)) + (values (cons 'id _%e132837%_) + _%vars132838%_) + (if (let ((__tmp134153 + (lambda (_%var132847%_) + (let ((__tmp134154 + (car _%var132847%_))) (declare (not safe)) (gx#bound-identifier=? - _%e131550%_ - __tmp132867))))) + _%e132837%_ + __tmp134154))))) (declare (not safe)) - (__find __tmp132866 - _%vars131551%_)) + (__find __tmp134153 + _%vars132838%_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Duplicate pattern variable" - _%stx131464%_ - _%e131550%_)) - (values (cons 'var _%e131550%_) - (cons (cons _%e131550%_ - _%depth131552%_) - _%vars131551%_)))))) + _%stx132751%_ + _%e132837%_)) + (values (cons 'var _%e132837%_) + (cons (cons _%e132837%_ + _%depth132839%_) + _%vars132838%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%e131550%_)) - (let* ((_%e131564131571%_ _%e131550%_) - (_%E131566131575%_ + (gx#stx-pair? _%e132837%_)) + (let* ((_%e132851132858%_ _%e132837%_) + (_%E132853132862%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131564131571%_)))) - (_%E131565131636%_ + _%e132851132858%_)))) + (_%E132852132923%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131564131571%_)) - (let ((_%e131567131579%_ + (gx#stx-pair? _%e132851132858%_)) + (let ((_%e132854132866%_ (let () (declare (not safe)) (gx#syntax-e - _%e131564131571%_)))) - (let ((_%hd131568131582%_ + _%e132851132858%_)))) + (let ((_%hd132855132869%_ (let () (declare (not safe)) - (##car _%e131567131579%_))) - (_%tl131569131584%_ + (##car _%e132854132866%_))) + (_%tl132856132871%_ (let () (declare (not safe)) - (##cdr _%e131567131579%_)))) - (let* ((_%hd131587%_ - _%hd131568131582%_) - (_%rest131589%_ - _%tl131569131584%_) - (_%make-pair131604%_ - (lambda (_%tag131591%_ + (##cdr _%e132854132866%_)))) + (let* ((_%hd132874%_ + _%hd132855132869%_) + (_%rest132876%_ + _%tl132856132871%_) + (_%make-pair132891%_ + (lambda (_%tag132878%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd131592%_ - _%tl131593%_) - (let* ((_%hd-depth131595%_ - (if (eq? _%tag131591%_ 'splice) + _%hd132879%_ + _%tl132880%_) + (let* ((_%hd-depth132882%_ + (if (eq? _%tag132878%_ 'splice) (let () (declare (not safe)) - (##fx+ _%depth131552%_ '1)) - _%depth131552%_)) - (_g132868_ - (_%recur131548%_ - _%hd131592%_ - _%vars131551%_ - _%hd-depth131595%_))) + (##fx+ _%depth132839%_ '1)) + _%depth132839%_)) + (_g134155_ + (_%recur132835%_ + _%hd132879%_ + _%vars132838%_ + _%hd-depth132882%_))) (begin - (let ((_g132869_ + (let ((_g134156_ (let () (declare (not safe)) - (if (##values? _g132868_) - (##vector-length _g132868_) + (if (##values? _g134155_) + (##values-length _g134155_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132869_ 2))) - (error "Context expects 2 values" _g132869_))) - (let ((_%hd131597%_ + (##fx= _g134156_ 2))) + (error "Context expects 2 values" _g134156_))) + (let ((_%hd132884%_ (let () (declare (not safe)) - (##vector-ref _g132868_ 0))) - (_%vars131598%_ + (##values-ref _g134155_ 0))) + (_%vars132885%_ (let () (declare (not safe)) - (##vector-ref _g132868_ 1)))) - (let ((_g132870_ - (_%recur131548%_ - _%tl131593%_ - _%vars131598%_ - _%depth131552%_))) + (##values-ref _g134155_ 1)))) + (let ((_g134157_ + (_%recur132835%_ + _%tl132880%_ + _%vars132885%_ + _%depth132839%_))) (begin - (let ((_g132871_ + (let ((_g134158_ (let () (declare (not safe)) - (if (##values? _g132870_) - (##vector-length _g132870_) + (if (##values? _g134157_) + (##values-length _g134157_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132871_ 2))) + (##fx= _g134158_ 2))) (error "Context expects 2 values" - _g132871_))) - (let ((_%tl131600%_ + _g134158_))) + (let ((_%tl132887%_ (let () (declare (not safe)) - (##vector-ref _g132870_ 0))) - (_%vars131601%_ + (##values-ref _g134157_ 0))) + (_%vars132888%_ (let () (declare (not safe)) - (##vector-ref _g132870_ 1)))) - (values (cons _%tag131591%_ - (cons _%hd131597%_ _%tl131600%_)) - _%vars131601%_))))))))) - (_%e131605131612%_ _%rest131589%_) - (_%E131607131616%_ + (##values-ref _g134157_ 1)))) + (values (cons _%tag132878%_ + (cons _%hd132884%_ _%tl132887%_)) + _%vars132888%_))))))))) + (_%e132892132899%_ _%rest132876%_) + (_%E132894132903%_ (lambda () - (_%make-pair131604%_ 'cons _%hd131587%_ _%rest131589%_))) - (_%E131606131632%_ + (_%make-pair132891%_ 'cons _%hd132874%_ _%rest132876%_))) + (_%E132893132919%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131605131612%_)) - (let ((_%e131608131620%_ + (gx#stx-pair? _%e132892132899%_)) + (let ((_%e132895132907%_ (let () (declare (not safe)) - (gx#syntax-e _%e131605131612%_)))) - (let ((_%hd131609131623%_ + (gx#syntax-e _%e132892132899%_)))) + (let ((_%hd132896132910%_ (let () (declare (not safe)) - (##car _%e131608131620%_))) - (_%tl131610131625%_ + (##car _%e132895132907%_))) + (_%tl132897132912%_ (let () (declare (not safe)) - (##cdr _%e131608131620%_)))) - (let* ((_%rest-hd131628%_ _%hd131609131623%_) - (_%rest-tl131630%_ _%tl131610131625%_)) + (##cdr _%e132895132907%_)))) + (let* ((_%rest-hd132915%_ _%hd132896132910%_) + (_%rest-tl132917%_ _%tl132897132912%_)) (if (let () (declare (not safe)) - (gx#ellipsis? _%rest-hd131628%_)) - (_%make-pair131604%_ + (gx#ellipsis? _%rest-hd132915%_)) + (_%make-pair132891%_ 'splice - _%hd131587%_ - _%rest-tl131630%_) - (_%make-pair131604%_ + _%hd132874%_ + _%rest-tl132917%_) + (_%make-pair132891%_ 'cons - _%hd131587%_ - _%rest131589%_))))) - (_%E131607131616%_))))) + _%hd132874%_ + _%rest132876%_))))) + (_%E132894132903%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E131606131632%_)))) - (_%E131566131575%_))))) - (_%E131565131636%_)) + (_%E132893132919%_)))) + (_%E132853132862%_))))) + (_%E132852132923%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%e131550%_)) - (values '(null) _%vars131551%_) + (gx#stx-null? _%e132837%_)) + (values '(null) _%vars132838%_) (if (let () (declare (not safe)) - (gx#stx-vector? _%e131550%_)) - (let ((_g132872_ - (_%recur131548%_ + (gx#stx-vector? _%e132837%_)) + (let ((_g134159_ + (_%recur132835%_ (vector->list (let () (declare (not safe)) - (gx#syntax-e _%e131550%_))) - _%vars131551%_ - _%depth131552%_))) + (gx#syntax-e _%e132837%_))) + _%vars132838%_ + _%depth132839%_))) (begin - (let ((_g132873_ + (let ((_g134160_ (let () (declare (not safe)) - (if (##values? _g132872_) - (##vector-length - _g132872_) + (if (##values? _g134159_) + (##values-length + _g134159_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132873_ 2))) + (##fx= _g134160_ 2))) (error "Context expects 2 values" - _g132873_))) - (let ((_%e131642%_ + _g134160_))) + (let ((_%e132929%_ (let () (declare (not safe)) - (##vector-ref _g132872_ 0))) - (_%vars131643%_ + (##values-ref _g134159_ 0))) + (_%vars132930%_ (let () (declare (not safe)) - (##vector-ref - _g132872_ + (##values-ref + _g134159_ 1)))) - (values (cons 'vector _%e131642%_) - _%vars131643%_)))) + (values (cons 'vector _%e132929%_) + _%vars132930%_)))) (if (let () (declare (not safe)) - (gx#stx-box? _%e131550%_)) - (let ((_g132874_ - (_%recur131548%_ + (gx#stx-box? _%e132837%_)) + (let ((_g134161_ + (_%recur132835%_ (unbox (let () (declare (not safe)) (gx#syntax-e - _%e131550%_))) - _%vars131551%_ - _%depth131552%_))) + _%e132837%_))) + _%vars132838%_ + _%depth132839%_))) (begin - (let ((_g132875_ + (let ((_g134162_ (let () (declare (not safe)) (if (##values? - _g132874_) - (##vector-length - _g132874_) + _g134161_) + (##values-length + _g134161_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132875_ + (##fx= _g134162_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g132875_))) - (let ((_%e131646%_ + _g134162_))) + (let ((_%e132933%_ (let () (declare (not safe)) - (##vector-ref - _g132874_ + (##values-ref + _g134161_ 0))) - (_%vars131647%_ + (_%vars132934%_ (let () (declare (not safe)) - (##vector-ref - _g132874_ + (##values-ref + _g134161_ 1)))) - (values (cons 'box _%e131646%_) - _%vars131647%_)))) + (values (cons 'box _%e132933%_) + _%vars132934%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%e131550%_)) + (gx#stx-datum? _%e132837%_)) (values (cons 'datum (let () (declare (not safe)) (gx#stx-e - _%e131550%_))) - _%vars131551%_) + _%e132837%_))) + _%vars132838%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad pattern" - _%stx131464%_ - _%e131550%_)))))))))))) - (let* ((_%e131474131487%_ _%stx131464%_) - (_%E131476131491%_ + _%stx132751%_ + _%e132837%_)))))))))))) + (let* ((_%e132761132774%_ _%stx132751%_) + (_%E132763132778%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131474131487%_)))) - (_%E131475131541%_ + _%e132761132774%_)))) + (_%E132762132828%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131474131487%_)) - (let ((_%e131477131495%_ + (gx#stx-pair? _%e132761132774%_)) + (let ((_%e132764132782%_ (let () (declare (not safe)) - (gx#syntax-e _%e131474131487%_)))) - (let ((_%hd131478131498%_ + (gx#syntax-e _%e132761132774%_)))) + (let ((_%hd132765132785%_ (let () (declare (not safe)) - (##car _%e131477131495%_))) - (_%tl131479131500%_ + (##car _%e132764132782%_))) + (_%tl132766132787%_ (let () (declare (not safe)) - (##cdr _%e131477131495%_)))) + (##cdr _%e132764132782%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131479131500%_)) - (let ((_%e131480131503%_ + (gx#stx-pair? _%tl132766132787%_)) + (let ((_%e132767132790%_ (let () (declare (not safe)) - (gx#syntax-e _%tl131479131500%_)))) - (let ((_%hd131481131506%_ + (gx#syntax-e _%tl132766132787%_)))) + (let ((_%hd132768132793%_ (let () (declare (not safe)) - (##car _%e131480131503%_))) - (_%tl131482131508%_ + (##car _%e132767132790%_))) + (_%tl132769132795%_ (let () (declare (not safe)) - (##cdr _%e131480131503%_)))) - (let ((_%expr131511%_ _%hd131481131506%_)) + (##cdr _%e132767132790%_)))) + (let ((_%expr132798%_ _%hd132768132793%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131482131508%_)) - (let ((_%e131483131513%_ + (gx#stx-pair? _%tl132769132795%_)) + (let ((_%e132770132800%_ (let () (declare (not safe)) (gx#syntax-e - _%tl131482131508%_)))) - (let ((_%hd131484131516%_ + _%tl132769132795%_)))) + (let ((_%hd132771132803%_ (let () (declare (not safe)) - (##car _%e131483131513%_))) - (_%tl131485131518%_ + (##car _%e132770132800%_))) + (_%tl132772132805%_ (let () (declare (not safe)) - (##cdr _%e131483131513%_)))) - (let* ((_%ids131521%_ - _%hd131484131516%_) - (_%clauses131523%_ - _%tl131485131518%_)) + (##cdr _%e132770132800%_)))) + (let* ((_%ids132808%_ + _%hd132771132803%_) + (_%clauses132810%_ + _%tl132772132805%_)) (if (let () (declare (not safe)) (gx#identifier-list? - _%ids131521%_)) + _%ids132808%_)) (if (let () (declare (not safe)) (gx#stx-list? - _%clauses131523%_)) - (let* ((_%ids131528%_ + _%clauses132810%_)) + (let* ((_%ids132815%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax->list _%ids131521%_))) - (_%clauses131530%_ + (gx#syntax->list _%ids132808%_))) + (_%clauses132817%_ (let () (declare (not safe)) - (gx#syntax->list _%clauses131523%_))) - (_%clause-ids131532%_ + (gx#syntax->list _%clauses132810%_))) + (_%clause-ids132819%_ (let () (declare (not safe)) - (gx#gentemps _%clauses131530%_))) - (_%E131534%_ + (gx#gentemps _%clauses132817%_))) + (_%E132821%_ (let () (declare (not safe)) (gx#genident__0))) - (_%target131536%_ + (_%target132823%_ (let () (declare (not safe)) (gx#genident__0))) - (_%first131538%_ - (if (null? _%clauses131530%_) - _%E131534%_ - (car _%clause-ids131532%_)))) - (let ((__tmp132877 - (let ((__tmp132878 - (let ((__tmp132880 - (let ((__tmp132882 - (cons (cons (cons _%E131534%_ + (_%first132825%_ + (if (null? _%clauses132817%_) + _%E132821%_ + (car _%clause-ids132819%_)))) + (let ((__tmp134164 + (let ((__tmp134165 + (let ((__tmp134167 + (let ((__tmp134169 + (cons (cons (cons _%E132821%_ '()) - (cons (let ((__tmp132884 + (cons (let ((__tmp134171 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%target131536%_ '())) - (__tmp132883 + (cons _%target132823%_ '())) + (__tmp134170 (let () (declare (not safe)) (gx#core-list 'raise-syntax-error '#f '"Bad syntax; invalid match target" - _%target131536%_)))) + _%target132823%_)))) (declare (not safe)) - (gx#core-list 'lambda% __tmp132884 __tmp132883)) + (gx#core-list 'lambda% __tmp134171 __tmp134170)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (__tmp132881 - (_%generate-body131470%_ - (_%generate-bindings131469%_ - _%target131536%_ - _%ids131528%_ - _%clauses131530%_ - _%clause-ids131532%_ - _%E131534%_) - (cons _%first131538%_ - (cons _%expr131511%_ + (__tmp134168 + (_%generate-body132757%_ + (_%generate-bindings132756%_ + _%target132823%_ + _%ids132815%_ + _%clauses132817%_ + _%clause-ids132819%_ + _%E132821%_) + (cons _%first132825%_ + (cons _%expr132798%_ '()))))) (declare (not safe)) (gx#core-list 'let-values - __tmp132882 - __tmp132881))) - (__tmp132879 + __tmp134169 + __tmp134168))) + (__tmp134166 (let () (declare (not safe)) - (gx#stx-source _%stx131464%_)))) + (gx#stx-source _%stx132751%_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp132880 - __tmp132879)))) + __tmp134167 + __tmp134166)))) (declare (not safe)) (gx#core-list 'begin-annotation '@syntax-case - __tmp132878))) - (__tmp132876 + __tmp134165))) + (__tmp134163 (let () (declare (not safe)) - (gx#stx-source _%stx131464%_)))) + (gx#stx-source _%stx132751%_)))) (declare (not safe)) - (gx#stx-wrap-source __tmp132877 __tmp132876))) + (gx#stx-wrap-source __tmp134164 __tmp134163))) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; clauses expected" - _%stx131464%_))) + _%stx132751%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _%stx131464%_ - _%ids131521%_)))))) - (_%E131476131491%_))))) - (_%E131476131491%_)))) - (_%E131476131491%_))))) - (_%E131475131541%_))))) + _%stx132751%_ + _%ids132808%_)))))) + (_%E132763132778%_))))) + (_%E132763132778%_)))) + (_%E132763132778%_))))) + (_%E132762132828%_))))) (define gx#macro-expand-syntax-case__0 - (lambda (_%stx132189%_) - (let* ((_%identifier=?132191%_ 'free-identifier=?) - (_%unwrap-e132193%_ 'syntax-e) - (_%wrap-e132195%_ 'quote-syntax)) + (lambda (_%stx133476%_) + (let* ((_%identifier=?133478%_ 'free-identifier=?) + (_%unwrap-e133480%_ 'syntax-e) + (_%wrap-e133482%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx132189%_ - _%identifier=?132191%_ - _%unwrap-e132193%_ - _%wrap-e132195%_)))) + _%stx133476%_ + _%identifier=?133478%_ + _%unwrap-e133480%_ + _%wrap-e133482%_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_%stx132197%_ _%identifier=?132198%_) - (let* ((_%unwrap-e132200%_ 'syntax-e) (_%wrap-e132202%_ 'quote-syntax)) + (lambda (_%stx133484%_ _%identifier=?133485%_) + (let* ((_%unwrap-e133487%_ 'syntax-e) (_%wrap-e133489%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx132197%_ - _%identifier=?132198%_ - _%unwrap-e132200%_ - _%wrap-e132202%_)))) + _%stx133484%_ + _%identifier=?133485%_ + _%unwrap-e133487%_ + _%wrap-e133489%_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_%stx132204%_ _%identifier=?132205%_ _%unwrap-e132206%_) - (let ((_%wrap-e132208%_ 'quote-syntax)) + (lambda (_%stx133491%_ _%identifier=?133492%_ _%unwrap-e133493%_) + (let ((_%wrap-e133495%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx132204%_ - _%identifier=?132205%_ - _%unwrap-e132206%_ - _%wrap-e132208%_)))) + _%stx133491%_ + _%identifier=?133492%_ + _%unwrap-e133493%_ + _%wrap-e133495%_)))) (define gx#macro-expand-syntax-case - (lambda _g132886_ - (let ((_g132885_ (let () (declare (not safe)) (##length _g132886_)))) - (cond ((let () (declare (not safe)) (##fx= _g132885_ 1)) - (apply gx#macro-expand-syntax-case__0 _g132886_)) - ((let () (declare (not safe)) (##fx= _g132885_ 2)) - (apply gx#macro-expand-syntax-case__1 _g132886_)) - ((let () (declare (not safe)) (##fx= _g132885_ 3)) - (apply gx#macro-expand-syntax-case__2 _g132886_)) - ((let () (declare (not safe)) (##fx= _g132885_ 4)) - (apply gx#macro-expand-syntax-case__% _g132886_)) + (lambda _g134173_ + (let ((_g134172_ (let () (declare (not safe)) (##length _g134173_)))) + (cond ((let () (declare (not safe)) (##fx= _g134172_ 1)) + (apply gx#macro-expand-syntax-case__0 _g134173_)) + ((let () (declare (not safe)) (##fx= _g134172_ 2)) + (apply gx#macro-expand-syntax-case__1 _g134173_)) + ((let () (declare (not safe)) (##fx= _g134172_ 3)) + (apply gx#macro-expand-syntax-case__2 _g134173_)) + ((let () (declare (not safe)) (##fx= _g134172_ 4)) + (apply gx#macro-expand-syntax-case__% _g134173_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-syntax-case - _g132886_)))))) + _g134173_)))))) (define gx#syntax-local-pattern? - (lambda (_%stx131461%_) - (if (let () (declare (not safe)) (gx#identifier? _%stx131461%_)) - (let ((__tmp132887 + (lambda (_%stx132748%_) + (if (let () (declare (not safe)) (gx#identifier? _%stx132748%_)) + (let ((__tmp134174 (let () (declare (not safe)) - (gx#syntax-local-e__% _%stx131461%_ false)))) + (gx#syntax-local-e__% _%stx132748%_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp132887 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp134174 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (lambda (_%hd131419%_ . _%rest131420%_) - (let ((_%len131422%_ (length _%hd131419%_))) - (let _%lp131424%_ ((_%rest131426%_ _%rest131420%_)) - (let* ((_%rest131427131435%_ _%rest131426%_) - (_%else131429131443%_ (lambda () '#!void)) - (_%K131431131449%_ - (lambda (_%rest131446%_ _%hd131447%_) - (if (let ((__tmp132888 (length _%hd131447%_))) + (lambda (_%hd132706%_ . _%rest132707%_) + (let ((_%len132709%_ (length _%hd132706%_))) + (let _%lp132711%_ ((_%rest132713%_ _%rest132707%_)) + (let* ((_%rest132714132722%_ _%rest132713%_) + (_%else132716132730%_ (lambda () '#!void)) + (_%K132718132736%_ + (lambda (_%rest132733%_ _%hd132734%_) + (if (let ((__tmp134175 (length _%hd132734%_))) (declare (not safe)) - (##fx= _%len131422%_ __tmp132888)) - (_%lp131424%_ _%rest131446%_) + (##fx= _%len132709%_ __tmp134175)) + (_%lp132711%_ _%rest132733%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Splice length mismatch" - _%hd131447%_)))))) - (if (pair? _%rest131427131435%_) - (let ((_%hd131432131452%_ + _%hd132734%_)))))) + (if (pair? _%rest132714132722%_) + (let ((_%hd132719132739%_ (let () (declare (not safe)) - (##car _%rest131427131435%_))) - (_%tl131433131454%_ + (##car _%rest132714132722%_))) + (_%tl132720132741%_ (let () (declare (not safe)) - (##cdr _%rest131427131435%_)))) - (let* ((_%hd131457%_ _%hd131432131452%_) - (_%rest131459%_ _%tl131433131454%_)) - (_%K131431131449%_ _%rest131459%_ _%hd131457%_))) + (##cdr _%rest132714132722%_)))) + (let* ((_%hd132744%_ _%hd132719132739%_) + (_%rest132746%_ _%tl132720132741%_)) + (_%K132718132736%_ _%rest132746%_ _%hd132744%_))) '#!void)))))) (define gx#syntax-split-splice - (lambda (_%stx131374%_ _%n131375%_) - (let _%lp131377%_ ((_%rest131379%_ _%stx131374%_) (_%r131380%_ '())) - (if (let () (declare (not safe)) (gx#stx-pair? _%rest131379%_)) - (let* ((_%g131381131388%_ + (lambda (_%stx132661%_ _%n132662%_) + (let _%lp132664%_ ((_%rest132666%_ _%stx132661%_) (_%r132667%_ '())) + (if (let () (declare (not safe)) (gx#stx-pair? _%rest132666%_)) + (let* ((_%g132668132675%_ (let () (declare (not safe)) - (gx#syntax-e _%rest131379%_))) - (_%E131383131392%_ + (gx#syntax-e _%rest132666%_))) + (_%E132670132679%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g131381131388%_ + _%g132668132675%_ '([hd . rest]))) '#!void)) - (_%K131384131398%_ - (lambda (_%rest131395%_ _%hd131396%_) - (_%lp131377%_ - _%rest131395%_ - (cons _%hd131396%_ _%r131380%_))))) - (if (pair? _%g131381131388%_) - (let ((_%hd131385131401%_ + (_%K132671132685%_ + (lambda (_%rest132682%_ _%hd132683%_) + (_%lp132664%_ + _%rest132682%_ + (cons _%hd132683%_ _%r132667%_))))) + (if (pair? _%g132668132675%_) + (let ((_%hd132672132688%_ (let () (declare (not safe)) - (##car _%g131381131388%_))) - (_%tl131386131403%_ + (##car _%g132668132675%_))) + (_%tl132673132690%_ (let () (declare (not safe)) - (##cdr _%g131381131388%_)))) - (let* ((_%hd131406%_ _%hd131385131401%_) - (_%rest131408%_ _%tl131386131403%_)) - (_%K131384131398%_ _%rest131408%_ _%hd131406%_))) - (_%E131383131392%_))) - (let _%lp131410%_ ((_%n131412%_ _%n131375%_) - (_%l131413%_ _%r131380%_) - (_%r131414%_ _%rest131379%_)) - (if (null? _%l131413%_) - (values _%l131413%_ _%r131414%_) - (if (fxpositive? _%n131412%_) - (_%lp131410%_ - (let () (declare (not safe)) (##fx- _%n131412%_ '1)) - (cdr _%l131413%_) - (cons (car _%l131413%_) _%r131414%_)) - (values (reverse _%l131413%_) _%r131414%_)))))))))) + (##cdr _%g132668132675%_)))) + (let* ((_%hd132693%_ _%hd132672132688%_) + (_%rest132695%_ _%tl132673132690%_)) + (_%K132671132685%_ _%rest132695%_ _%hd132693%_))) + (_%E132670132679%_))) + (let _%lp132697%_ ((_%n132699%_ _%n132662%_) + (_%l132700%_ _%r132667%_) + (_%r132701%_ _%rest132666%_)) + (if (null? _%l132700%_) + (values _%l132700%_ _%r132701%_) + (if (fxpositive? _%n132699%_) + (_%lp132697%_ + (let () (declare (not safe)) (##fx- _%n132699%_ '1)) + (cdr _%l132700%_) + (cons (car _%l132700%_) _%r132701%_)) + (values (reverse _%l132700%_) _%r132701%_)))))))))) diff --git a/src/bootstrap/gerbil/expander/stxcase~1.scm b/src/bootstrap/gerbil/expander/stxcase~1.scm index 6264ddfbb..7f8a401b0 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]#_g132890_| + (define |gx[1]#_g134177_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g132892_| + (define |gx[1]#_g134179_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g132894_| + (define |gx[1]#_g134181_| (##structure gx#syntax-quote::t 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g132896_| + (define |gx[1]#_g134183_| (##structure gx#syntax-quote::t 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g132898_| + (define |gx[1]#_g134185_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g132899_| + (define |gx[1]#_g134186_| (##structure gx#syntax-quote::t 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g132900_| + (define |gx[1]#_g134187_| (##structure gx#syntax-quote::t 'syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g132902_| + (define |gx[1]#_g134189_| (##structure gx#syntax-quote::t 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g132903_| + (define |gx[1]#_g134190_| (##structure gx#syntax-quote::t 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g132904_| + (define |gx[1]#_g134191_| (##structure gx#syntax-quote::t 'syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g132906_| + (define |gx[1]#_g134193_| (##structure gx#syntax-quote::t '&syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g132907_| + (define |gx[1]#_g134194_| (##structure gx#syntax-quote::t '&syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g132908_| + (define |gx[1]#_g134195_| (##structure gx#syntax-quote::t '&syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g132910_| + (define |gx[1]#_g134197_| (##structure gx#syntax-quote::t '&syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g132911_| + (define |gx[1]#_g134198_| (##structure gx#syntax-quote::t '&syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g132912_| + (define |gx[1]#_g134199_| (##structure gx#syntax-quote::t '&syntax-pattern-e-set! @@ -113,7 +113,7 @@ (gx#current-expander-context) '())) (define |gx[:0:]#syntax-pattern| - (let ((__obj132767 + (let ((__obj134054 (let () (declare (not safe)) (##structure @@ -142,75 +142,75 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj132767 + __obj134054 'gx#syntax-pattern::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 'syntax-pattern '2 '#f '#f)) + (##unchecked-structure-set! __obj134054 'syntax-pattern '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '(id depth) '4 '#f '#f)) + (##unchecked-structure-set! __obj134054 '(id depth) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '(e id depth) '6 '#f '#f)) - (let ((__tmp132889 (cons |gx[1]#_g132890_| '()))) + (##unchecked-structure-set! __obj134054 '(e id depth) '6 '#f '#f)) + (let ((__tmp134176 (cons |gx[1]#_g134177_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj132767 __tmp132889 '3 '#f '#f)) + (##unchecked-structure-set! __obj134054 __tmp134176 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj134054 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj134054 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj134054 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '#f '11 '#f '#f)) - (let ((__tmp132891 |gx[1]#_g132892_|)) + (##unchecked-structure-set! __obj134054 '#f '11 '#f '#f)) + (let ((__tmp134178 |gx[1]#_g134179_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132767 __tmp132891 '12 '#f '#f)) - (let ((__tmp132893 |gx[1]#_g132894_|)) + (##unchecked-structure-set! __obj134054 __tmp134178 '12 '#f '#f)) + (let ((__tmp134180 |gx[1]#_g134181_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132767 __tmp132893 '13 '#f '#f)) - (let ((__tmp132895 |gx[1]#_g132896_|)) + (##unchecked-structure-set! __obj134054 __tmp134180 '13 '#f '#f)) + (let ((__tmp134182 |gx[1]#_g134183_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132767 __tmp132895 '14 '#f '#f)) - (let ((__tmp132897 - (cons (cons 'id |gx[1]#_g132898_|) - (cons (cons 'depth |gx[1]#_g132899_|) - (cons (cons 'e |gx[1]#_g132900_|) '()))))) + (##unchecked-structure-set! __obj134054 __tmp134182 '14 '#f '#f)) + (let ((__tmp134184 + (cons (cons 'id |gx[1]#_g134185_|) + (cons (cons 'depth |gx[1]#_g134186_|) + (cons (cons 'e |gx[1]#_g134187_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj132767 __tmp132897 '15 '#f '#f)) - (let ((__tmp132901 - (cons (cons 'id |gx[1]#_g132902_|) - (cons (cons 'depth |gx[1]#_g132903_|) - (cons (cons 'e |gx[1]#_g132904_|) '()))))) + (##unchecked-structure-set! __obj134054 __tmp134184 '15 '#f '#f)) + (let ((__tmp134188 + (cons (cons 'id |gx[1]#_g134189_|) + (cons (cons 'depth |gx[1]#_g134190_|) + (cons (cons 'e |gx[1]#_g134191_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj132767 __tmp132901 '16 '#f '#f)) - (let ((__tmp132905 - (cons (cons 'id |gx[1]#_g132906_|) - (cons (cons 'depth |gx[1]#_g132907_|) - (cons (cons 'e |gx[1]#_g132908_|) '()))))) + (##unchecked-structure-set! __obj134054 __tmp134188 '16 '#f '#f)) + (let ((__tmp134192 + (cons (cons 'id |gx[1]#_g134193_|) + (cons (cons 'depth |gx[1]#_g134194_|) + (cons (cons 'e |gx[1]#_g134195_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj132767 __tmp132905 '17 '#f '#f)) - (let ((__tmp132909 - (cons (cons 'id |gx[1]#_g132910_|) - (cons (cons 'depth |gx[1]#_g132911_|) - (cons (cons 'e |gx[1]#_g132912_|) '()))))) + (##unchecked-structure-set! __obj134054 __tmp134192 '17 '#f '#f)) + (let ((__tmp134196 + (cons (cons 'id |gx[1]#_g134197_|) + (cons (cons 'depth |gx[1]#_g134198_|) + (cons (cons 'e |gx[1]#_g134199_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj132767 __tmp132909 '18 '#f '#f)) + (##unchecked-structure-set! __obj134054 __tmp134196 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj134054 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj134054 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132767 '() '20 '#f '#f)) - __obj132767))) + (##unchecked-structure-set! __obj134054 '() '20 '#f '#f)) + __obj134054))) diff --git a/src/bootstrap/gerbil/expander/stx~0.scm b/src/bootstrap/gerbil/expander/stx~0.scm index 377c26090..9479a61bd 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 1713631266) + (define gerbil/expander/stx::timestamp 1734357961) (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 _%$args118009%_ - (apply make-instance gx#identifier-wrap::t _%$args118009%_))) + (lambda _%$args119296%_ + (apply make-instance gx#identifier-wrap::t _%$args119296%_))) (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 _%$args118006%_ - (apply make-instance gx#syntax-wrap::t _%$args118006%_))) + (lambda _%$args119293%_ + (apply make-instance gx#syntax-wrap::t _%$args119293%_))) (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 _%$args118003%_ - (apply make-instance gx#syntax-quote::t _%$args118003%_))) + (lambda _%$args119290%_ + (apply make-instance gx#syntax-quote::t _%$args119290%_))) (define gx#syntax-quote-context (__make-class-slot-accessor gx#syntax-quote::t 'context)) (define gx#syntax-quote-marks @@ -119,987 +119,987 @@ (define gx#&syntax-quote-source-set! (__make-class-slot-unchecked-mutator gx#syntax-quote::t 'source)) (define gx#identifier? - (lambda (_%stx118001%_) (symbol? (gx#stx-e _%stx118001%_)))) + (lambda (_%stx119288%_) (symbol? (gx#stx-e _%stx119288%_)))) (define gx#identifier-quote? - (lambda (_%stx117999%_) - (if (##structure-direct-instance-of? _%stx117999%_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _%stx117999%_ '1 '#f '#f)) + (lambda (_%stx119286%_) + (if (##structure-direct-instance-of? _%stx119286%_ 'gx#syntax-quote::t) + (symbol? (##unchecked-structure-ref _%stx119286%_ '1 '#f '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_%stx117994%_) - (if (##structure-direct-instance-of? _%stx117994%_ 'gx#syntax-quote::t) + (lambda (_%stx119281%_) + (if (##structure-direct-instance-of? _%stx119281%_ 'gx#syntax-quote::t) '#t (if (##structure-direct-instance-of? - _%stx117994%_ + _%stx119281%_ 'gx#syntax-wrap::t) (gx#sealed-syntax? - (##unchecked-structure-ref _%stx117994%_ '1 '#f '#f)) + (##unchecked-structure-ref _%stx119281%_ '1 '#f '#f)) '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_%stx117989%_) - (if (##structure-direct-instance-of? _%stx117989%_ 'gx#syntax-quote::t) - _%stx117989%_ + (lambda (_%stx119276%_) + (if (##structure-direct-instance-of? _%stx119276%_ 'gx#syntax-quote::t) + _%stx119276%_ (if (##structure-direct-instance-of? - _%stx117989%_ + _%stx119276%_ 'gx#syntax-wrap::t) (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _%stx117989%_ '1 '#f '#f)) + (##unchecked-structure-ref _%stx119276%_ '1 '#f '#f)) '#f)))) (define gx#syntax-e - (lambda (_%stx117963%_) - (if (##structure-direct-instance-of? _%stx117963%_ 'gx#syntax-wrap::t) - (let _%lp117966%_ ((_%e117968%_ + (lambda (_%stx119250%_) + (if (##structure-direct-instance-of? _%stx119250%_ 'gx#syntax-wrap::t) + (let _%lp119253%_ ((_%e119255%_ (##unchecked-structure-ref - _%stx117963%_ + _%stx119250%_ '1 '#f '#f)) - (_%marks117969%_ + (_%marks119256%_ (cons (##unchecked-structure-ref - _%stx117963%_ + _%stx119250%_ '3 '#f '#f) '()))) - (if (##structure? _%e117968%_) - (let ((_%$e117972%_ - (##type-id (##structure-type _%e117968%_)))) - (if (eq? 'gx#syntax-wrap::t _%$e117972%_) - (_%lp117966%_ - (##unchecked-structure-ref _%e117968%_ '1 '#f '#f) + (if (##structure? _%e119255%_) + (let ((_%$e119259%_ + (##type-id (##structure-type _%e119255%_)))) + (if (eq? 'gx#syntax-wrap::t _%$e119259%_) + (_%lp119253%_ + (##unchecked-structure-ref _%e119255%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e117968%_ '3 '#f '#f) - _%marks117969%_)) - (if (or (eq? 'gx#syntax-quote::t _%$e117972%_) - (eq? 'gx#identifier-wrap::t _%$e117972%_)) - (##unchecked-structure-ref _%e117968%_ '1 '#f '#f) - (if (eq? 'gerbil#AST::t _%$e117972%_) - (_%lp117966%_ + (##unchecked-structure-ref _%e119255%_ '3 '#f '#f) + _%marks119256%_)) + (if (or (eq? 'gx#syntax-quote::t _%$e119259%_) + (eq? 'gx#identifier-wrap::t _%$e119259%_)) + (##unchecked-structure-ref _%e119255%_ '1 '#f '#f) + (if (eq? 'gerbil#AST::t _%$e119259%_) + (_%lp119253%_ (##unchecked-structure-ref - _%e117968%_ + _%e119255%_ '1 '#f '#f) - _%marks117969%_) - _%e117968%_)))) - (if (null? _%marks117969%_) - _%e117968%_ - (if (pair? _%e117968%_) + _%marks119256%_) + _%e119255%_)))) + (if (null? _%marks119256%_) + _%e119255%_ + (if (pair? _%e119255%_) (cons (gx#stx-wrap - (##car _%e117968%_) - _%marks117969%_) + (##car _%e119255%_) + _%marks119256%_) (gx#stx-wrap - (##cdr _%e117968%_) - _%marks117969%_)) - (if (vector? _%e117968%_) + (##cdr _%e119255%_) + _%marks119256%_)) + (if (vector? _%e119255%_) (vector-map - (lambda (_%g117980117982%_) + (lambda (_%g119267119269%_) (gx#stx-wrap - _%g117980117982%_ - _%marks117969%_)) - _%e117968%_) - (if (box? _%e117968%_) + _%g119267119269%_ + _%marks119256%_)) + _%e119255%_) + (if (box? _%e119255%_) (box (gx#stx-wrap - (unbox _%e117968%_) - _%marks117969%_)) - _%e117968%_)))))) - (if (##structure-instance-of? _%stx117963%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx117963%_ '1 '#f '#f) - _%stx117963%_)))) + (unbox _%e119255%_) + _%marks119256%_)) + _%e119255%_)))))) + (if (##structure-instance-of? _%stx119250%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx119250%_ '1 '#f '#f) + _%stx119250%_)))) (define gx#syntax->datum - (lambda (_%stx117956%_) - (if (##structure-instance-of? _%stx117956%_ 'gerbil#AST::t) + (lambda (_%stx119243%_) + (if (##structure-instance-of? _%stx119243%_ 'gerbil#AST::t) (gx#syntax->datum - (##unchecked-structure-ref _%stx117956%_ '1 '#f '#f)) - (if (pair? _%stx117956%_) - (cons (gx#syntax->datum (##car _%stx117956%_)) - (gx#syntax->datum (##cdr _%stx117956%_))) - (if (vector? _%stx117956%_) - (vector-map gx#syntax->datum _%stx117956%_) - (if (box? _%stx117956%_) - (box (gx#syntax->datum (unbox _%stx117956%_))) - _%stx117956%_)))))) + (##unchecked-structure-ref _%stx119243%_ '1 '#f '#f)) + (if (pair? _%stx119243%_) + (cons (gx#syntax->datum (##car _%stx119243%_)) + (gx#syntax->datum (##cdr _%stx119243%_))) + (if (vector? _%stx119243%_) + (vector-map gx#syntax->datum _%stx119243%_) + (if (box? _%stx119243%_) + (box (gx#syntax->datum (unbox _%stx119243%_))) + _%stx119243%_)))))) (define gx#datum->syntax__% - (lambda (_%stx117890%_ _%datum117891%_ _%src117892%_ _%quote?117893%_) - (letrec ((_%wrap-datum117895%_ - (lambda (_%e117928%_ _%marks117929%_) - (_%wrap-inner117897%_ - _%e117928%_ - (lambda (_%g117930117932%_) + (lambda (_%stx119177%_ _%datum119178%_ _%src119179%_ _%quote?119180%_) + (letrec ((_%wrap-datum119182%_ + (lambda (_%e119215%_ _%marks119216%_) + (_%wrap-inner119184%_ + _%e119215%_ + (lambda (_%g119217119219%_) (##structure gx#identifier-wrap::t - _%g117930117932%_ - _%src117892%_ - _%marks117929%_))))) - (_%wrap-quote117896%_ - (lambda (_%e117920%_ _%ctx117921%_ _%marks117922%_) - (_%wrap-inner117897%_ - _%e117920%_ - (lambda (_%g117923117925%_) + _%g119217119219%_ + _%src119179%_ + _%marks119216%_))))) + (_%wrap-quote119183%_ + (lambda (_%e119207%_ _%ctx119208%_ _%marks119209%_) + (_%wrap-inner119184%_ + _%e119207%_ + (lambda (_%g119210119212%_) (##structure gx#syntax-quote::t - _%g117923117925%_ - _%src117892%_ - _%ctx117921%_ - _%marks117922%_))))) - (_%wrap-inner117897%_ - (lambda (_%e117908%_ _%wrap-e117909%_) - (let _%recur117911%_ ((_%e117913%_ _%e117908%_)) - (if (symbol? _%e117913%_) - (_%wrap-e117909%_ _%e117913%_) - (if (pair? _%e117913%_) - (cons (_%recur117911%_ (##car _%e117913%_)) - (_%recur117911%_ (##cdr _%e117913%_))) - (if (vector? _%e117913%_) - (vector-map _%recur117911%_ _%e117913%_) - (if (box? _%e117913%_) - (box (_%recur117911%_ - (unbox _%e117913%_))) - _%e117913%_))))))) - (_%wrap-outer117898%_ - (lambda (_%e117906%_) - (if (##structure-instance-of? _%e117906%_ 'gerbil#AST::t) - _%e117906%_ - (##structure gx#AST::t _%e117906%_ _%src117892%_))))) - (if (##structure-instance-of? _%datum117891%_ 'gerbil#AST::t) - _%datum117891%_ - (if (not _%stx117890%_) - (##structure gx#AST::t _%datum117891%_ _%src117892%_) - (if (gx#identifier? _%stx117890%_) - (let ((_%stx117903%_ (gx#stx-unwrap__0 _%stx117890%_))) - (_%wrap-outer117898%_ + _%g119210119212%_ + _%src119179%_ + _%ctx119208%_ + _%marks119209%_))))) + (_%wrap-inner119184%_ + (lambda (_%e119195%_ _%wrap-e119196%_) + (let _%recur119198%_ ((_%e119200%_ _%e119195%_)) + (if (symbol? _%e119200%_) + (_%wrap-e119196%_ _%e119200%_) + (if (pair? _%e119200%_) + (cons (_%recur119198%_ (##car _%e119200%_)) + (_%recur119198%_ (##cdr _%e119200%_))) + (if (vector? _%e119200%_) + (vector-map _%recur119198%_ _%e119200%_) + (if (box? _%e119200%_) + (box (_%recur119198%_ + (unbox _%e119200%_))) + _%e119200%_))))))) + (_%wrap-outer119185%_ + (lambda (_%e119193%_) + (if (##structure-instance-of? _%e119193%_ 'gerbil#AST::t) + _%e119193%_ + (##structure gx#AST::t _%e119193%_ _%src119179%_))))) + (if (##structure-instance-of? _%datum119178%_ 'gerbil#AST::t) + _%datum119178%_ + (if (not _%stx119177%_) + (##structure gx#AST::t _%datum119178%_ _%src119179%_) + (if (gx#identifier? _%stx119177%_) + (let ((_%stx119190%_ (gx#stx-unwrap__0 _%stx119177%_))) + (_%wrap-outer119185%_ (if (##structure-direct-instance-of? - _%stx117903%_ + _%stx119190%_ 'gx#syntax-quote::t) - (if _%quote?117893%_ - (_%wrap-quote117896%_ - _%datum117891%_ + (if _%quote?119180%_ + (_%wrap-quote119183%_ + _%datum119178%_ (##unchecked-structure-ref - _%stx117903%_ + _%stx119190%_ '3 '#f '#f) (##unchecked-structure-ref - _%stx117903%_ + _%stx119190%_ '4 '#f '#f)) - (_%wrap-datum117895%_ - _%datum117891%_ + (_%wrap-datum119182%_ + _%datum119178%_ (##unchecked-structure-ref - _%stx117903%_ + _%stx119190%_ '4 '#f '#f))) - (_%wrap-datum117895%_ - _%datum117891%_ + (_%wrap-datum119182%_ + _%datum119178%_ (##unchecked-structure-ref - _%stx117903%_ + _%stx119190%_ '3 '#f '#f))))) (error '"Bad template syntax; expected identifier" - _%stx117890%_))))))) + _%stx119177%_))))))) (define gx#datum->syntax__0 - (lambda (_%stx117938%_ _%datum117939%_) - (let* ((_%src117941%_ '#f) (_%quote?117943%_ '#t)) + (lambda (_%stx119225%_ _%datum119226%_) + (let* ((_%src119228%_ '#f) (_%quote?119230%_ '#t)) (gx#datum->syntax__% - _%stx117938%_ - _%datum117939%_ - _%src117941%_ - _%quote?117943%_)))) + _%stx119225%_ + _%datum119226%_ + _%src119228%_ + _%quote?119230%_)))) (define gx#datum->syntax__1 - (lambda (_%stx117945%_ _%datum117946%_ _%src117947%_) - (let ((_%quote?117949%_ '#t)) + (lambda (_%stx119232%_ _%datum119233%_ _%src119234%_) + (let ((_%quote?119236%_ '#t)) (gx#datum->syntax__% - _%stx117945%_ - _%datum117946%_ - _%src117947%_ - _%quote?117949%_)))) + _%stx119232%_ + _%datum119233%_ + _%src119234%_ + _%quote?119236%_)))) (define gx#datum->syntax - (lambda _g118090_ - (let ((_g118089_ (##length _g118090_))) - (cond ((##fx= _g118089_ 2) (apply gx#datum->syntax__0 _g118090_)) - ((##fx= _g118089_ 3) (apply gx#datum->syntax__1 _g118090_)) - ((##fx= _g118089_ 4) (apply gx#datum->syntax__% _g118090_)) + (lambda _g119377_ + (let ((_g119376_ (##length _g119377_))) + (cond ((##fx= _g119376_ 2) (apply gx#datum->syntax__0 _g119377_)) + ((##fx= _g119376_ 3) (apply gx#datum->syntax__1 _g119377_)) + ((##fx= _g119376_ 4) (apply gx#datum->syntax__% _g119377_)) (else (##raise-wrong-number-of-arguments-exception gx#datum->syntax - _g118090_)))))) + _g119377_)))))) (define gx#stx-unwrap__% - (lambda (_%stx117856%_ _%marks117857%_) - (let _%lp117859%_ ((_%e117861%_ _%stx117856%_) - (_%marks117862%_ _%marks117857%_) - (_%src117863%_ (gx#stx-source _%stx117856%_))) - (if (##structure-direct-instance-of? _%e117861%_ 'gx#syntax-wrap::t) - (_%lp117859%_ - (##unchecked-structure-ref _%e117861%_ '1 '#f '#f) + (lambda (_%stx119143%_ _%marks119144%_) + (let _%lp119146%_ ((_%e119148%_ _%stx119143%_) + (_%marks119149%_ _%marks119144%_) + (_%src119150%_ (gx#stx-source _%stx119143%_))) + (if (##structure-direct-instance-of? _%e119148%_ 'gx#syntax-wrap::t) + (_%lp119146%_ + (##unchecked-structure-ref _%e119148%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e117861%_ '3 '#f '#f) - _%marks117862%_) - (##unchecked-structure-ref _%e117861%_ '2 '#f '#f)) + (##unchecked-structure-ref _%e119148%_ '3 '#f '#f) + _%marks119149%_) + (##unchecked-structure-ref _%e119148%_ '2 '#f '#f)) (if (##structure-direct-instance-of? - _%e117861%_ + _%e119148%_ 'gx#identifier-wrap::t) - (if (null? _%marks117862%_) - _%e117861%_ + (if (null? _%marks119149%_) + _%e119148%_ (##structure gx#identifier-wrap::t - (##unchecked-structure-ref _%e117861%_ '1 '#f '#f) - (##unchecked-structure-ref _%e117861%_ '2 '#f '#f) + (##unchecked-structure-ref _%e119148%_ '1 '#f '#f) + (##unchecked-structure-ref _%e119148%_ '2 '#f '#f) (__foldl1 gx#apply-mark - (##unchecked-structure-ref _%e117861%_ '3 '#f '#f) - _%marks117862%_))) + (##unchecked-structure-ref _%e119148%_ '3 '#f '#f) + _%marks119149%_))) (if (##structure-direct-instance-of? - _%e117861%_ + _%e119148%_ 'gx#syntax-quote::t) - _%e117861%_ - (if (##structure-instance-of? _%e117861%_ 'gerbil#AST::t) - (_%lp117859%_ - (##unchecked-structure-ref _%e117861%_ '1 '#f '#f) - _%marks117862%_ - (##unchecked-structure-ref _%e117861%_ '2 '#f '#f)) - (if (symbol? _%e117861%_) + _%e119148%_ + (if (##structure-instance-of? _%e119148%_ 'gerbil#AST::t) + (_%lp119146%_ + (##unchecked-structure-ref _%e119148%_ '1 '#f '#f) + _%marks119149%_ + (##unchecked-structure-ref _%e119148%_ '2 '#f '#f)) + (if (symbol? _%e119148%_) (##structure gx#identifier-wrap::t - _%e117861%_ - _%src117863%_ - (reverse _%marks117862%_)) - (if (null? _%marks117862%_) - _%e117861%_ - (if (pair? _%e117861%_) + _%e119148%_ + _%src119150%_ + (reverse _%marks119149%_)) + (if (null? _%marks119149%_) + _%e119148%_ + (if (pair? _%e119148%_) (cons (gx#stx-wrap - (##car _%e117861%_) - _%marks117862%_) + (##car _%e119148%_) + _%marks119149%_) (gx#stx-wrap - (##cdr _%e117861%_) - _%marks117862%_)) - (if (vector? _%e117861%_) + (##cdr _%e119148%_) + _%marks119149%_)) + (if (vector? _%e119148%_) (vector-map - (lambda (_%g117872117874%_) + (lambda (_%g119159119161%_) (gx#stx-wrap - _%g117872117874%_ - _%marks117862%_)) - _%e117861%_) - (if (box? _%e117861%_) + _%g119159119161%_ + _%marks119149%_)) + _%e119148%_) + (if (box? _%e119148%_) (box (gx#stx-wrap - (unbox _%e117861%_) - _%marks117862%_)) - _%e117861%_)))))))))))) + (unbox _%e119148%_) + _%marks119149%_)) + _%e119148%_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_%stx117882%_) - (let ((_%marks117884%_ '())) - (gx#stx-unwrap__% _%stx117882%_ _%marks117884%_)))) + (lambda (_%stx119169%_) + (let ((_%marks119171%_ '())) + (gx#stx-unwrap__% _%stx119169%_ _%marks119171%_)))) (define gx#stx-unwrap - (lambda _g118092_ - (let ((_g118091_ (##length _g118092_))) - (cond ((##fx= _g118091_ 1) (apply gx#stx-unwrap__0 _g118092_)) - ((##fx= _g118091_ 2) (apply gx#stx-unwrap__% _g118092_)) + (lambda _g119379_ + (let ((_g119378_ (##length _g119379_))) + (cond ((##fx= _g119378_ 1) (apply gx#stx-unwrap__0 _g119379_)) + ((##fx= _g119378_ 2) (apply gx#stx-unwrap__% _g119379_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-unwrap - _g118092_)))))) + _g119379_)))))) (define gx#stx-wrap - (lambda (_%stx117849%_ _%marks117850%_) + (lambda (_%stx119136%_ _%marks119137%_) (__foldl1 - (lambda (_%mark117852%_ _%stx117853%_) - (gx#stx-apply-mark _%stx117853%_ _%mark117852%_)) - _%stx117849%_ - _%marks117850%_))) + (lambda (_%mark119139%_ _%stx119140%_) + (gx#stx-apply-mark _%stx119140%_ _%mark119139%_)) + _%stx119136%_ + _%marks119137%_))) (define gx#stx-rewrap - (lambda (_%stx117843%_ _%marks117844%_) + (lambda (_%stx119130%_ _%marks119131%_) (__foldr1 - (lambda (_%mark117846%_ _%stx117847%_) - (gx#stx-apply-mark _%stx117847%_ _%mark117846%_)) - _%stx117843%_ - _%marks117844%_))) + (lambda (_%mark119133%_ _%stx119134%_) + (gx#stx-apply-mark _%stx119134%_ _%mark119133%_)) + _%stx119130%_ + _%marks119131%_))) (define gx#stx-apply-mark - (lambda (_%stx117837%_ _%mark117838%_) - (if (##structure-direct-instance-of? _%stx117837%_ 'gx#syntax-quote::t) - _%stx117837%_ + (lambda (_%stx119124%_ _%mark119125%_) + (if (##structure-direct-instance-of? _%stx119124%_ 'gx#syntax-quote::t) + _%stx119124%_ (if (and (##structure-direct-instance-of? - _%stx117837%_ + _%stx119124%_ 'gx#syntax-wrap::t) - (eq? _%mark117838%_ + (eq? _%mark119125%_ (##unchecked-structure-ref - _%stx117837%_ + _%stx119124%_ '3 '#f '#f))) - (##unchecked-structure-ref _%stx117837%_ '1 '#f '#f) + (##unchecked-structure-ref _%stx119124%_ '1 '#f '#f) (##structure gx#syntax-wrap::t - _%stx117837%_ - (gx#stx-source _%stx117837%_) - _%mark117838%_))))) + _%stx119124%_ + (gx#stx-source _%stx119124%_) + _%mark119125%_))))) (define gx#apply-mark - (lambda (_%mark117801%_ _%marks117802%_) - (let* ((_%marks117803117811%_ _%marks117802%_) - (_%else117805117819%_ - (lambda () (cons _%mark117801%_ _%marks117802%_))) - (_%K117807117825%_ - (lambda (_%rest117822%_ _%hd117823%_) - (if (eq? _%mark117801%_ _%hd117823%_) - _%rest117822%_ - (cons _%mark117801%_ _%marks117802%_))))) - (if (pair? _%marks117803117811%_) - (let ((_%hd117808117828%_ (##car _%marks117803117811%_)) - (_%tl117809117830%_ (##cdr _%marks117803117811%_))) - (let* ((_%hd117833%_ _%hd117808117828%_) - (_%rest117835%_ _%tl117809117830%_)) - (_%K117807117825%_ _%rest117835%_ _%hd117833%_))) - (_%else117805117819%_))))) + (lambda (_%mark119088%_ _%marks119089%_) + (let* ((_%marks119090119098%_ _%marks119089%_) + (_%else119092119106%_ + (lambda () (cons _%mark119088%_ _%marks119089%_))) + (_%K119094119112%_ + (lambda (_%rest119109%_ _%hd119110%_) + (if (eq? _%mark119088%_ _%hd119110%_) + _%rest119109%_ + (cons _%mark119088%_ _%marks119089%_))))) + (if (pair? _%marks119090119098%_) + (let ((_%hd119095119115%_ (##car _%marks119090119098%_)) + (_%tl119096119117%_ (##cdr _%marks119090119098%_))) + (let* ((_%hd119120%_ _%hd119095119115%_) + (_%rest119122%_ _%tl119096119117%_)) + (_%K119094119112%_ _%rest119122%_ _%hd119120%_))) + (_%else119092119106%_))))) (define gx#stx-e - (lambda (_%stx117796%_) - (if (##structure-direct-instance-of? _%stx117796%_ 'gx#syntax-wrap::t) - (gx#stx-e (##unchecked-structure-ref _%stx117796%_ '1 '#f '#f)) - (if (##structure-instance-of? _%stx117796%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx117796%_ '1 '#f '#f) - _%stx117796%_)))) + (lambda (_%stx119083%_) + (if (##structure-direct-instance-of? _%stx119083%_ 'gx#syntax-wrap::t) + (gx#stx-e (##unchecked-structure-ref _%stx119083%_ '1 '#f '#f)) + (if (##structure-instance-of? _%stx119083%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx119083%_ '1 '#f '#f) + _%stx119083%_)))) (define gx#stx-source - (lambda (_%stx117794%_) - (if (##structure-instance-of? _%stx117794%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx117794%_ '2 '#f '#f) + (lambda (_%stx119081%_) + (if (##structure-instance-of? _%stx119081%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx119081%_ '2 '#f '#f) '#f))) (define gx#stx-wrap-source - (lambda (_%stx117788%_ _%src117789%_) - (if (or (##structure-instance-of? _%stx117788%_ 'gerbil#AST::t) - (not _%src117789%_)) - _%stx117788%_ - (##structure gx#AST::t _%stx117788%_ _%src117789%_)))) + (lambda (_%stx119075%_ _%src119076%_) + (if (or (##structure-instance-of? _%stx119075%_ 'gerbil#AST::t) + (not _%src119076%_)) + _%stx119075%_ + (##structure gx#AST::t _%stx119075%_ _%src119076%_)))) (define gx#stx-datum? - (lambda (_%stx117786%_) (gx#self-quoting? (gx#stx-e _%stx117786%_)))) + (lambda (_%stx119073%_) (gx#self-quoting? (gx#stx-e _%stx119073%_)))) (define gx#self-quoting? - (lambda (_%x117769%_) - (let ((_%$e117771%_ (immediate? _%x117769%_))) - (if _%$e117771%_ - _%$e117771%_ - (let ((_%$e117774%_ (number? _%x117769%_))) - (if _%$e117774%_ - _%$e117774%_ - (let ((_%$e117777%_ (keyword? _%x117769%_))) - (if _%$e117777%_ - _%$e117777%_ - (let ((_%$e117780%_ (string? _%x117769%_))) - (if _%$e117780%_ - _%$e117780%_ - (let ((_%$e117783%_ (vector? _%x117769%_))) - (if _%$e117783%_ - _%$e117783%_ - (u8vector? _%x117769%_))))))))))))) + (lambda (_%x119056%_) + (let ((_%$e119058%_ (immediate? _%x119056%_))) + (if _%$e119058%_ + _%$e119058%_ + (let ((_%$e119061%_ (number? _%x119056%_))) + (if _%$e119061%_ + _%$e119061%_ + (let ((_%$e119064%_ (keyword? _%x119056%_))) + (if _%$e119064%_ + _%$e119064%_ + (let ((_%$e119067%_ (string? _%x119056%_))) + (if _%$e119067%_ + _%$e119067%_ + (let ((_%$e119070%_ (vector? _%x119056%_))) + (if _%$e119070%_ + _%$e119070%_ + (u8vector? _%x119056%_))))))))))))) (define gx#stx-boolean? - (lambda (_%e117767%_) (boolean? (gx#stx-e _%e117767%_)))) + (lambda (_%e119054%_) (boolean? (gx#stx-e _%e119054%_)))) (define gx#stx-keyword? - (lambda (_%e117765%_) (keyword? (gx#stx-e _%e117765%_)))) - (define gx#stx-char? (lambda (_%e117763%_) (char? (gx#stx-e _%e117763%_)))) + (lambda (_%e119052%_) (keyword? (gx#stx-e _%e119052%_)))) + (define gx#stx-char? (lambda (_%e119050%_) (char? (gx#stx-e _%e119050%_)))) (define gx#stx-number? - (lambda (_%e117761%_) (number? (gx#stx-e _%e117761%_)))) + (lambda (_%e119048%_) (number? (gx#stx-e _%e119048%_)))) (define gx#stx-fixnum? - (lambda (_%e117759%_) (fixnum? (gx#stx-e _%e117759%_)))) + (lambda (_%e119046%_) (fixnum? (gx#stx-e _%e119046%_)))) (define gx#stx-string? - (lambda (_%e117757%_) (string? (gx#stx-e _%e117757%_)))) - (define gx#stx-null? (lambda (_%e117755%_) (null? (gx#stx-e _%e117755%_)))) - (define gx#stx-pair? (lambda (_%e117753%_) (pair? (gx#stx-e _%e117753%_)))) + (lambda (_%e119044%_) (string? (gx#stx-e _%e119044%_)))) + (define gx#stx-null? (lambda (_%e119042%_) (null? (gx#stx-e _%e119042%_)))) + (define gx#stx-pair? (lambda (_%e119040%_) (pair? (gx#stx-e _%e119040%_)))) (define gx#stx-list? - (lambda (_%e117715%_) - (let* ((_%g117716117725%_ (gx#stx-e _%e117715%_)) - (_%E117719117729%_ + (lambda (_%e119002%_) + (let* ((_%g119003119012%_ (gx#stx-e _%e119002%_)) + (_%E119006119016%_ (lambda () (error '"No clause matching" - _%g117716117725%_ + _%g119003119012%_ '([_ . rest]) '(tail)) '#!void))) - (let ((_%K117721117745%_ - (lambda (_%rest117743%_) (gx#stx-list? _%rest117743%_))) - (_%K117720117735%_ - (lambda (_%tail117733%_) (null? _%tail117733%_)))) - (if (pair? _%g117716117725%_) - (let* ((_%tl117723117748%_ (##cdr _%g117716117725%_)) - (_%rest117751%_ _%tl117723117748%_)) - (gx#stx-list? _%rest117751%_)) - (let ((_%tail117738%_ _%g117716117725%_)) - (null? _%tail117738%_))))))) + (let ((_%K119008119032%_ + (lambda (_%rest119030%_) (gx#stx-list? _%rest119030%_))) + (_%K119007119022%_ + (lambda (_%tail119020%_) (null? _%tail119020%_)))) + (if (pair? _%g119003119012%_) + (let* ((_%tl119010119035%_ (##cdr _%g119003119012%_)) + (_%rest119038%_ _%tl119010119035%_)) + (gx#stx-list? _%rest119038%_)) + (let ((_%tail119025%_ _%g119003119012%_)) + (null? _%tail119025%_))))))) (define gx#stx-pair/null? - (lambda (_%e117708%_) - (let* ((_%e117710%_ (gx#stx-e _%e117708%_)) - (_%$e117712%_ (pair? _%e117710%_))) - (if _%$e117712%_ _%$e117712%_ (null? _%e117710%_))))) + (lambda (_%e118995%_) + (let* ((_%e118997%_ (gx#stx-e _%e118995%_)) + (_%$e118999%_ (pair? _%e118997%_))) + (if _%$e118999%_ _%$e118999%_ (null? _%e118997%_))))) (define gx#stx-vector? - (lambda (_%e117706%_) (vector? (gx#stx-e _%e117706%_)))) - (define gx#stx-box? (lambda (_%e117704%_) (box? (gx#stx-e _%e117704%_)))) + (lambda (_%e118993%_) (vector? (gx#stx-e _%e118993%_)))) + (define gx#stx-box? (lambda (_%e118991%_) (box? (gx#stx-e _%e118991%_)))) (define gx#stx-eq? - (lambda (_%x117701%_ _%y117702%_) - (eq? (gx#stx-e _%x117701%_) (gx#stx-e _%y117702%_)))) + (lambda (_%x118988%_ _%y118989%_) + (eq? (gx#stx-e _%x118988%_) (gx#stx-e _%y118989%_)))) (define gx#stx-eqv? - (lambda (_%x117698%_ _%y117699%_) - (eqv? (gx#stx-e _%x117698%_) (gx#stx-e _%y117699%_)))) + (lambda (_%x118985%_ _%y118986%_) + (eqv? (gx#stx-e _%x118985%_) (gx#stx-e _%y118986%_)))) (define gx#stx-equal? - (lambda (_%x117695%_ _%y117696%_) - (equal? (gx#stx-e _%x117695%_) (gx#stx-e _%y117696%_)))) - (define gx#stx-false? (lambda (_%x117693%_) (not (gx#stx-e _%x117693%_)))) + (lambda (_%x118982%_ _%y118983%_) + (equal? (gx#stx-e _%x118982%_) (gx#stx-e _%y118983%_)))) + (define gx#stx-false? (lambda (_%x118980%_) (not (gx#stx-e _%x118980%_)))) (define gx#stx-identifier - (lambda (_%template117690%_ . _%args117691%_) + (lambda (_%template118977%_ . _%args118978%_) (gx#datum->syntax__1 - _%template117690%_ - (apply make-symbol (gx#syntax->datum _%args117691%_)) - (gx#stx-source _%template117690%_)))) + _%template118977%_ + (apply make-symbol (gx#syntax->datum _%args118978%_)) + (gx#stx-source _%template118977%_)))) (define gx#stx-identifier-marks - (lambda (_%stx117688%_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx117688%_)))) + (lambda (_%stx118975%_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx118975%_)))) (define gx#stx-identifier-marks* - (lambda (_%stx117683%_) + (lambda (_%stx118970%_) (if (##structure-direct-instance-of? - _%stx117683%_ + _%stx118970%_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _%stx117683%_ '3 '#f '#f) + (##unchecked-structure-ref _%stx118970%_ '3 '#f '#f) (if (##structure-direct-instance-of? - _%stx117683%_ + _%stx118970%_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _%stx117683%_ '4 '#f '#f) + (##unchecked-structure-ref _%stx118970%_ '4 '#f '#f) (error '"Bad wrap; expected unwrapped identifier" - _%stx117683%_))))) + _%stx118970%_))))) (define gx#stx-identifier-context - (lambda (_%stx117679%_) - (let ((_%stx117681%_ (gx#stx-unwrap__0 _%stx117679%_))) - (if (gx#identifier-quote? _%stx117681%_) - (##unchecked-structure-ref _%stx117681%_ '3 '#f '#f) + (lambda (_%stx118966%_) + (let ((_%stx118968%_ (gx#stx-unwrap__0 _%stx118966%_))) + (if (gx#identifier-quote? _%stx118968%_) + (##unchecked-structure-ref _%stx118968%_ '3 '#f '#f) '#f)))) (define gx#identifier-list? - (lambda (_%stx117634%_) - (let* ((_%g117635117645%_ (gx#stx-e _%stx117634%_)) - (_%else117638117653%_ (lambda () '#f))) - (let ((_%K117641117667%_ - (lambda (_%rest117664%_ _%hd117665%_) - (if (gx#identifier? _%hd117665%_) - (gx#identifier-list? _%rest117664%_) + (lambda (_%stx118921%_) + (let* ((_%g118922118932%_ (gx#stx-e _%stx118921%_)) + (_%else118925118940%_ (lambda () '#f))) + (let ((_%K118928118954%_ + (lambda (_%rest118951%_ _%hd118952%_) + (if (gx#identifier? _%hd118952%_) + (gx#identifier-list? _%rest118951%_) '#f))) - (_%K117640117658%_ (lambda () '#t))) - (let ((_%try-match117637117661%_ + (_%K118927118945%_ (lambda () '#t))) + (let ((_%try-match118924118948%_ (lambda () - (if (null? _%g117635117645%_) - (_%K117640117658%_) - (_%else117638117653%_))))) - (if (pair? _%g117635117645%_) - (let ((_%tl117643117672%_ (##cdr _%g117635117645%_)) - (_%hd117642117670%_ (##car _%g117635117645%_))) - (let ((_%hd117675%_ _%hd117642117670%_) - (_%rest117677%_ _%tl117643117672%_)) - (_%K117641117667%_ _%rest117677%_ _%hd117675%_))) - (_%try-match117637117661%_))))))) + (if (null? _%g118922118932%_) + (_%K118927118945%_) + (_%else118925118940%_))))) + (if (pair? _%g118922118932%_) + (let ((_%tl118930118959%_ (##cdr _%g118922118932%_)) + (_%hd118929118957%_ (##car _%g118922118932%_))) + (let ((_%hd118962%_ _%hd118929118957%_) + (_%rest118964%_ _%tl118930118959%_)) + (_%K118928118954%_ _%rest118964%_ _%hd118962%_))) + (_%try-match118924118948%_))))))) (define gx#genident__% - (lambda (_%e117611%_ _%src117612%_) + (lambda (_%e118898%_ _%src118899%_) (gx#stx-wrap-source - (gensym (let ((_%e117614%_ (gx#stx-e _%e117611%_))) - (if (interned-symbol? _%e117614%_) _%e117614%_ 'g))) - (let ((_%$e117616%_ (gx#stx-source _%e117611%_))) - (if _%$e117616%_ _%$e117616%_ _%src117612%_))))) + (gensym (let ((_%e118901%_ (gx#stx-e _%e118898%_))) + (if (interned-symbol? _%e118901%_) _%e118901%_ 'g))) + (let ((_%$e118903%_ (gx#stx-source _%e118898%_))) + (if _%$e118903%_ _%$e118903%_ _%src118899%_))))) (define gx#genident__0 (lambda () - (let* ((_%e117623%_ 'g) (_%src117625%_ '#f)) - (gx#genident__% _%e117623%_ _%src117625%_)))) + (let* ((_%e118910%_ 'g) (_%src118912%_ '#f)) + (gx#genident__% _%e118910%_ _%src118912%_)))) (define gx#genident__1 - (lambda (_%e117627%_) - (let ((_%src117629%_ '#f)) - (gx#genident__% _%e117627%_ _%src117629%_)))) + (lambda (_%e118914%_) + (let ((_%src118916%_ '#f)) + (gx#genident__% _%e118914%_ _%src118916%_)))) (define gx#genident - (lambda _g118094_ - (let ((_g118093_ (##length _g118094_))) - (cond ((##fx= _g118093_ 0) (apply gx#genident__0 _g118094_)) - ((##fx= _g118093_ 1) (apply gx#genident__1 _g118094_)) - ((##fx= _g118093_ 2) (apply gx#genident__% _g118094_)) + (lambda _g119381_ + (let ((_g119380_ (##length _g119381_))) + (cond ((##fx= _g119380_ 0) (apply gx#genident__0 _g119381_)) + ((##fx= _g119380_ 1) (apply gx#genident__1 _g119381_)) + ((##fx= _g119380_ 2) (apply gx#genident__% _g119381_)) (else (##raise-wrong-number-of-arguments-exception gx#genident - _g118094_)))))) + _g119381_)))))) (define gx#gentemps - (lambda (_%stx-lst117608%_) (gx#stx-map1 gx#genident _%stx-lst117608%_))) + (lambda (_%stx-lst118895%_) (gx#stx-map1 gx#genident _%stx-lst118895%_))) (define gx#syntax->list - (lambda (_%stx117606%_) (gx#stx-map1 values _%stx117606%_))) + (lambda (_%stx118893%_) (gx#stx-map1 values _%stx118893%_))) (define gx#stx-car - (lambda (_%stx117603%_) + (lambda (_%stx118890%_) (declare (safe)) - (car (gx#syntax-e _%stx117603%_)))) + (car (gx#syntax-e _%stx118890%_)))) (define gx#stx-cdr - (lambda (_%stx117600%_) + (lambda (_%stx118887%_) (declare (safe)) - (cdr (gx#syntax-e _%stx117600%_)))) + (cdr (gx#syntax-e _%stx118887%_)))) (define gx#stx-length - (lambda (_%stx117565%_) - (let _%lp117567%_ ((_%rest117569%_ _%stx117565%_) (_%n117570%_ '0)) - (let* ((_%g117571117579%_ (gx#stx-e _%rest117569%_)) - (_%else117573117587%_ (lambda () _%n117570%_)) - (_%K117575117592%_ - (lambda (_%rest117590%_) - (_%lp117567%_ _%rest117590%_ (##fx+ _%n117570%_ '1))))) - (if (pair? _%g117571117579%_) - (let* ((_%tl117577117595%_ (##cdr _%g117571117579%_)) - (_%rest117598%_ _%tl117577117595%_)) - (_%K117575117592%_ _%rest117598%_)) - (_%else117573117587%_)))))) + (lambda (_%stx118852%_) + (let _%lp118854%_ ((_%rest118856%_ _%stx118852%_) (_%n118857%_ '0)) + (let* ((_%g118858118866%_ (gx#stx-e _%rest118856%_)) + (_%else118860118874%_ (lambda () _%n118857%_)) + (_%K118862118879%_ + (lambda (_%rest118877%_) + (_%lp118854%_ _%rest118877%_ (##fx+ _%n118857%_ '1))))) + (if (pair? _%g118858118866%_) + (let* ((_%tl118864118882%_ (##cdr _%g118858118866%_)) + (_%rest118885%_ _%tl118864118882%_)) + (_%K118862118879%_ _%rest118885%_)) + (_%else118860118874%_)))))) (define gx#stx-for-each - (lambda _g118096_ - (let ((_g118095_ (##length _g118096_))) - (cond ((##fx= _g118095_ 2) (apply gx#stx-for-each1 _g118096_)) - ((##fx= _g118095_ 3) (apply gx#stx-for-each2 _g118096_)) + (lambda _g119383_ + (let ((_g119382_ (##length _g119383_))) + (cond ((##fx= _g119382_ 2) (apply gx#stx-for-each1 _g119383_)) + ((##fx= _g119382_ 3) (apply gx#stx-for-each2 _g119383_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-for-each - _g118096_)))))) + _g119383_)))))) (define gx#stx-for-each1 - (lambda (_%f117508%_ _%stx117509%_) - (if (procedure? _%f117508%_) + (lambda (_%f118795%_ _%stx118796%_) + (if (procedure? _%f118795%_) '#!void - (error '"expected procedure" _%f117508%_)) - (let _%lp117511%_ ((_%rest117513%_ _%stx117509%_)) - (let* ((_%g117514117524%_ (gx#syntax-e _%rest117513%_)) - (_%else117517117532%_ - (lambda () (_%f117508%_ _%rest117513%_)))) - (let ((_%K117520117546%_ - (lambda (_%rest117543%_ _%hd117544%_) - (_%f117508%_ _%hd117544%_) - (_%lp117511%_ _%rest117543%_))) - (_%K117519117537%_ (lambda () '#!void))) - (let ((_%try-match117516117540%_ + (error '"expected procedure" _%f118795%_)) + (let _%lp118798%_ ((_%rest118800%_ _%stx118796%_)) + (let* ((_%g118801118811%_ (gx#syntax-e _%rest118800%_)) + (_%else118804118819%_ + (lambda () (_%f118795%_ _%rest118800%_)))) + (let ((_%K118807118833%_ + (lambda (_%rest118830%_ _%hd118831%_) + (_%f118795%_ _%hd118831%_) + (_%lp118798%_ _%rest118830%_))) + (_%K118806118824%_ (lambda () '#!void))) + (let ((_%try-match118803118827%_ (lambda () - (if (null? _%g117514117524%_) - (_%K117519117537%_) - (_%else117517117532%_))))) - (if (pair? _%g117514117524%_) - (let ((_%tl117522117551%_ (##cdr _%g117514117524%_)) - (_%hd117521117549%_ (##car _%g117514117524%_))) - (let ((_%hd117554%_ _%hd117521117549%_) - (_%rest117556%_ _%tl117522117551%_)) - (_%K117520117546%_ _%rest117556%_ _%hd117554%_))) - (_%try-match117516117540%_)))))))) + (if (null? _%g118801118811%_) + (_%K118806118824%_) + (_%else118804118819%_))))) + (if (pair? _%g118801118811%_) + (let ((_%tl118809118838%_ (##cdr _%g118801118811%_)) + (_%hd118808118836%_ (##car _%g118801118811%_))) + (let ((_%hd118841%_ _%hd118808118836%_) + (_%rest118843%_ _%tl118809118838%_)) + (_%K118807118833%_ _%rest118843%_ _%hd118841%_))) + (_%try-match118803118827%_)))))))) (define gx#stx-for-each2 - (lambda (_%f117413%_ _%xstx117414%_ _%ystx117415%_) - (if (procedure? _%f117413%_) + (lambda (_%f118700%_ _%xstx118701%_ _%ystx118702%_) + (if (procedure? _%f118700%_) '#!void - (error '"expected procedure" _%f117413%_)) - (let _%lp117417%_ ((_%xrest117419%_ _%xstx117414%_) - (_%yrest117420%_ _%ystx117415%_)) - (let* ((_%g117421117431%_ (gx#syntax-e _%xrest117419%_)) - (_%else117424117439%_ (lambda () '#!void))) - (let ((_%K117427117496%_ - (lambda (_%xrest117465%_ _%xhd117466%_) - (let* ((_%g117467117474%_ (gx#syntax-e _%yrest117420%_)) - (_%E117469117478%_ + (error '"expected procedure" _%f118700%_)) + (let _%lp118704%_ ((_%xrest118706%_ _%xstx118701%_) + (_%yrest118707%_ _%ystx118702%_)) + (let* ((_%g118708118718%_ (gx#syntax-e _%xrest118706%_)) + (_%else118711118726%_ (lambda () '#!void))) + (let ((_%K118714118783%_ + (lambda (_%xrest118752%_ _%xhd118753%_) + (let* ((_%g118754118761%_ (gx#syntax-e _%yrest118707%_)) + (_%E118756118765%_ (lambda () (error '"No clause matching" - _%g117467117474%_ + _%g118754118761%_ '([yhd . yrest])) '#!void)) - (_%K117470117484%_ - (lambda (_%yrest117481%_ _%yhd117482%_) - (_%f117413%_ _%xhd117466%_ _%yhd117482%_) - (_%lp117417%_ - _%xrest117465%_ - _%yrest117481%_)))) - (if (pair? _%g117467117474%_) - (let ((_%hd117471117487%_ (##car _%g117467117474%_)) - (_%tl117472117489%_ - (##cdr _%g117467117474%_))) - (let* ((_%yhd117492%_ _%hd117471117487%_) - (_%yrest117494%_ _%tl117472117489%_)) - (_%K117470117484%_ - _%yrest117494%_ - _%yhd117492%_))) - (_%E117469117478%_))))) - (_%K117426117459%_ + (_%K118757118771%_ + (lambda (_%yrest118768%_ _%yhd118769%_) + (_%f118700%_ _%xhd118753%_ _%yhd118769%_) + (_%lp118704%_ + _%xrest118752%_ + _%yrest118768%_)))) + (if (pair? _%g118754118761%_) + (let ((_%hd118758118774%_ (##car _%g118754118761%_)) + (_%tl118759118776%_ + (##cdr _%g118754118761%_))) + (let* ((_%yhd118779%_ _%hd118758118774%_) + (_%yrest118781%_ _%tl118759118776%_)) + (_%K118757118771%_ + _%yrest118781%_ + _%yhd118779%_))) + (_%E118756118765%_))))) + (_%K118713118746%_ (lambda () - (let* ((_%yrest117443117448%_ _%yrest117420%_) - (_%E117445117452%_ + (let* ((_%yrest118730118735%_ _%yrest118707%_) + (_%E118732118739%_ (lambda () (error '"No clause matching" - _%yrest117443117448%_ + _%yrest118730118735%_ '((? (not stx-null?)))) '#!void)) - (_%K117446117456%_ + (_%K118733118743%_ (lambda () - (_%f117413%_ _%xrest117419%_ _%yrest117420%_)))) - (if (gx#stx-null? _%yrest117443117448%_) - (_%E117445117452%_) - (_%K117446117456%_)))))) - (let ((_%try-match117423117462%_ + (_%f118700%_ _%xrest118706%_ _%yrest118707%_)))) + (if (gx#stx-null? _%yrest118730118735%_) + (_%E118732118739%_) + (_%K118733118743%_)))))) + (let ((_%try-match118710118749%_ (lambda () - (if (null? _%g117421117431%_) - (_%else117424117439%_) - (_%K117426117459%_))))) - (if (pair? _%g117421117431%_) - (let ((_%tl117429117501%_ (##cdr _%g117421117431%_)) - (_%hd117428117499%_ (##car _%g117421117431%_))) - (let ((_%xhd117504%_ _%hd117428117499%_) - (_%xrest117506%_ _%tl117429117501%_)) - (_%K117427117496%_ _%xrest117506%_ _%xhd117504%_))) - (_%try-match117423117462%_)))))))) + (if (null? _%g118708118718%_) + (_%else118711118726%_) + (_%K118713118746%_))))) + (if (pair? _%g118708118718%_) + (let ((_%tl118716118788%_ (##cdr _%g118708118718%_)) + (_%hd118715118786%_ (##car _%g118708118718%_))) + (let ((_%xhd118791%_ _%hd118715118786%_) + (_%xrest118793%_ _%tl118716118788%_)) + (_%K118714118783%_ _%xrest118793%_ _%xhd118791%_))) + (_%try-match118710118749%_)))))))) (define gx#stx-map - (lambda _g118098_ - (let ((_g118097_ (##length _g118098_))) - (cond ((##fx= _g118097_ 2) (apply gx#stx-map1 _g118098_)) - ((##fx= _g118097_ 3) (apply gx#stx-map2 _g118098_)) + (lambda _g119385_ + (let ((_g119384_ (##length _g119385_))) + (cond ((##fx= _g119384_ 2) (apply gx#stx-map1 _g119385_)) + ((##fx= _g119384_ 3) (apply gx#stx-map2 _g119385_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-map - _g118098_)))))) + _g119385_)))))) (define gx#stx-map1 - (lambda (_%f117356%_ _%stx117357%_) - (if (procedure? _%f117356%_) + (lambda (_%f118643%_ _%stx118644%_) + (if (procedure? _%f118643%_) '#!void - (error '"expected procedure" _%f117356%_)) - (let _%recur117359%_ ((_%rest117361%_ _%stx117357%_)) - (let* ((_%g117362117372%_ (gx#syntax-e _%rest117361%_)) - (_%else117365117380%_ - (lambda () (_%f117356%_ _%rest117361%_)))) - (let ((_%K117368117394%_ - (lambda (_%rest117391%_ _%hd117392%_) - (cons (_%f117356%_ _%hd117392%_) - (_%recur117359%_ _%rest117391%_)))) - (_%K117367117385%_ (lambda () '()))) - (let ((_%try-match117364117388%_ + (error '"expected procedure" _%f118643%_)) + (let _%recur118646%_ ((_%rest118648%_ _%stx118644%_)) + (let* ((_%g118649118659%_ (gx#syntax-e _%rest118648%_)) + (_%else118652118667%_ + (lambda () (_%f118643%_ _%rest118648%_)))) + (let ((_%K118655118681%_ + (lambda (_%rest118678%_ _%hd118679%_) + (cons (_%f118643%_ _%hd118679%_) + (_%recur118646%_ _%rest118678%_)))) + (_%K118654118672%_ (lambda () '()))) + (let ((_%try-match118651118675%_ (lambda () - (if (null? _%g117362117372%_) - (_%K117367117385%_) - (_%else117365117380%_))))) - (if (pair? _%g117362117372%_) - (let ((_%tl117370117399%_ (##cdr _%g117362117372%_)) - (_%hd117369117397%_ (##car _%g117362117372%_))) - (let ((_%hd117402%_ _%hd117369117397%_) - (_%rest117404%_ _%tl117370117399%_)) - (_%K117368117394%_ _%rest117404%_ _%hd117402%_))) - (_%try-match117364117388%_)))))))) + (if (null? _%g118649118659%_) + (_%K118654118672%_) + (_%else118652118667%_))))) + (if (pair? _%g118649118659%_) + (let ((_%tl118657118686%_ (##cdr _%g118649118659%_)) + (_%hd118656118684%_ (##car _%g118649118659%_))) + (let ((_%hd118689%_ _%hd118656118684%_) + (_%rest118691%_ _%tl118657118686%_)) + (_%K118655118681%_ _%rest118691%_ _%hd118689%_))) + (_%try-match118651118675%_)))))))) (define gx#stx-map2 - (lambda (_%f117261%_ _%xstx117262%_ _%ystx117263%_) - (if (procedure? _%f117261%_) + (lambda (_%f118548%_ _%xstx118549%_ _%ystx118550%_) + (if (procedure? _%f118548%_) '#!void - (error '"expected procedure" _%f117261%_)) - (let _%recur117265%_ ((_%xrest117267%_ _%xstx117262%_) - (_%yrest117268%_ _%ystx117263%_)) - (let* ((_%g117269117279%_ (gx#syntax-e _%xrest117267%_)) - (_%else117272117287%_ (lambda () '()))) - (let ((_%K117275117344%_ - (lambda (_%xrest117313%_ _%xhd117314%_) - (let* ((_%g117315117322%_ (gx#syntax-e _%yrest117268%_)) - (_%E117317117326%_ + (error '"expected procedure" _%f118548%_)) + (let _%recur118552%_ ((_%xrest118554%_ _%xstx118549%_) + (_%yrest118555%_ _%ystx118550%_)) + (let* ((_%g118556118566%_ (gx#syntax-e _%xrest118554%_)) + (_%else118559118574%_ (lambda () '()))) + (let ((_%K118562118631%_ + (lambda (_%xrest118600%_ _%xhd118601%_) + (let* ((_%g118602118609%_ (gx#syntax-e _%yrest118555%_)) + (_%E118604118613%_ (lambda () (error '"No clause matching" - _%g117315117322%_ + _%g118602118609%_ '([yhd . yrest])) '#!void)) - (_%K117318117332%_ - (lambda (_%yrest117329%_ _%yhd117330%_) - (cons (_%f117261%_ _%xhd117314%_ _%yhd117330%_) - (_%recur117265%_ - _%xrest117313%_ - _%yrest117329%_))))) - (if (pair? _%g117315117322%_) - (let ((_%hd117319117335%_ (##car _%g117315117322%_)) - (_%tl117320117337%_ - (##cdr _%g117315117322%_))) - (let* ((_%yhd117340%_ _%hd117319117335%_) - (_%yrest117342%_ _%tl117320117337%_)) - (_%K117318117332%_ - _%yrest117342%_ - _%yhd117340%_))) - (_%E117317117326%_))))) - (_%K117274117307%_ + (_%K118605118619%_ + (lambda (_%yrest118616%_ _%yhd118617%_) + (cons (_%f118548%_ _%xhd118601%_ _%yhd118617%_) + (_%recur118552%_ + _%xrest118600%_ + _%yrest118616%_))))) + (if (pair? _%g118602118609%_) + (let ((_%hd118606118622%_ (##car _%g118602118609%_)) + (_%tl118607118624%_ + (##cdr _%g118602118609%_))) + (let* ((_%yhd118627%_ _%hd118606118622%_) + (_%yrest118629%_ _%tl118607118624%_)) + (_%K118605118619%_ + _%yrest118629%_ + _%yhd118627%_))) + (_%E118604118613%_))))) + (_%K118561118594%_ (lambda () - (let* ((_%yrest117291117296%_ _%yrest117268%_) - (_%E117293117300%_ + (let* ((_%yrest118578118583%_ _%yrest118555%_) + (_%E118580118587%_ (lambda () (error '"No clause matching" - _%yrest117291117296%_ + _%yrest118578118583%_ '((? (not stx-null?)))) '#!void)) - (_%K117294117304%_ + (_%K118581118591%_ (lambda () - (_%f117261%_ _%xrest117267%_ _%yrest117268%_)))) - (if (gx#stx-null? _%yrest117291117296%_) - (_%E117293117300%_) - (_%K117294117304%_)))))) - (let ((_%try-match117271117310%_ + (_%f118548%_ _%xrest118554%_ _%yrest118555%_)))) + (if (gx#stx-null? _%yrest118578118583%_) + (_%E118580118587%_) + (_%K118581118591%_)))))) + (let ((_%try-match118558118597%_ (lambda () - (if (null? _%g117269117279%_) - (_%else117272117287%_) - (_%K117274117307%_))))) - (if (pair? _%g117269117279%_) - (let ((_%tl117277117349%_ (##cdr _%g117269117279%_)) - (_%hd117276117347%_ (##car _%g117269117279%_))) - (let ((_%xhd117352%_ _%hd117276117347%_) - (_%xrest117354%_ _%tl117277117349%_)) - (_%K117275117344%_ _%xrest117354%_ _%xhd117352%_))) - (_%try-match117271117310%_)))))))) + (if (null? _%g118556118566%_) + (_%else118559118574%_) + (_%K118561118594%_))))) + (if (pair? _%g118556118566%_) + (let ((_%tl118564118636%_ (##cdr _%g118556118566%_)) + (_%hd118563118634%_ (##car _%g118556118566%_))) + (let ((_%xhd118639%_ _%hd118563118634%_) + (_%xrest118641%_ _%tl118564118636%_)) + (_%K118562118631%_ _%xrest118641%_ _%xhd118639%_))) + (_%try-match118558118597%_)))))))) (define gx#stx-andmap - (lambda (_%f117211%_ _%stx117212%_) - (if (procedure? _%f117211%_) + (lambda (_%f118498%_ _%stx118499%_) + (if (procedure? _%f118498%_) '#!void - (error '"expected procedure" _%f117211%_)) - (let _%lp117214%_ ((_%rest117216%_ _%stx117212%_)) - (let* ((_%g117217117227%_ (gx#syntax-e _%rest117216%_)) - (_%else117220117235%_ - (lambda () (_%f117211%_ _%rest117216%_)))) - (let ((_%K117223117249%_ - (lambda (_%rest117246%_ _%hd117247%_) - (if (_%f117211%_ _%hd117247%_) - (_%lp117214%_ _%rest117246%_) + (error '"expected procedure" _%f118498%_)) + (let _%lp118501%_ ((_%rest118503%_ _%stx118499%_)) + (let* ((_%g118504118514%_ (gx#syntax-e _%rest118503%_)) + (_%else118507118522%_ + (lambda () (_%f118498%_ _%rest118503%_)))) + (let ((_%K118510118536%_ + (lambda (_%rest118533%_ _%hd118534%_) + (if (_%f118498%_ _%hd118534%_) + (_%lp118501%_ _%rest118533%_) '#f))) - (_%K117222117240%_ (lambda () '#t))) - (let ((_%try-match117219117243%_ + (_%K118509118527%_ (lambda () '#t))) + (let ((_%try-match118506118530%_ (lambda () - (if (null? _%g117217117227%_) - (_%K117222117240%_) - (_%else117220117235%_))))) - (if (pair? _%g117217117227%_) - (let ((_%tl117225117254%_ (##cdr _%g117217117227%_)) - (_%hd117224117252%_ (##car _%g117217117227%_))) - (let ((_%hd117257%_ _%hd117224117252%_) - (_%rest117259%_ _%tl117225117254%_)) - (_%K117223117249%_ _%rest117259%_ _%hd117257%_))) - (_%try-match117219117243%_)))))))) + (if (null? _%g118504118514%_) + (_%K118509118527%_) + (_%else118507118522%_))))) + (if (pair? _%g118504118514%_) + (let ((_%tl118512118541%_ (##cdr _%g118504118514%_)) + (_%hd118511118539%_ (##car _%g118504118514%_))) + (let ((_%hd118544%_ _%hd118511118539%_) + (_%rest118546%_ _%tl118512118541%_)) + (_%K118510118536%_ _%rest118546%_ _%hd118544%_))) + (_%try-match118506118530%_)))))))) (define gx#stx-ormap - (lambda (_%f117158%_ _%stx117159%_) - (if (procedure? _%f117158%_) + (lambda (_%f118445%_ _%stx118446%_) + (if (procedure? _%f118445%_) '#!void - (error '"expected procedure" _%f117158%_)) - (let _%lp117161%_ ((_%rest117163%_ _%stx117159%_)) - (let* ((_%g117164117174%_ (gx#syntax-e _%rest117163%_)) - (_%else117167117182%_ - (lambda () (_%f117158%_ _%rest117163%_)))) - (let ((_%K117170117199%_ - (lambda (_%rest117193%_ _%hd117194%_) - (let ((_%$e117196%_ (_%f117158%_ _%hd117194%_))) - (if _%$e117196%_ - _%$e117196%_ - (_%lp117161%_ _%rest117193%_))))) - (_%K117169117187%_ (lambda () '#f))) - (let ((_%try-match117166117190%_ + (error '"expected procedure" _%f118445%_)) + (let _%lp118448%_ ((_%rest118450%_ _%stx118446%_)) + (let* ((_%g118451118461%_ (gx#syntax-e _%rest118450%_)) + (_%else118454118469%_ + (lambda () (_%f118445%_ _%rest118450%_)))) + (let ((_%K118457118486%_ + (lambda (_%rest118480%_ _%hd118481%_) + (let ((_%$e118483%_ (_%f118445%_ _%hd118481%_))) + (if _%$e118483%_ + _%$e118483%_ + (_%lp118448%_ _%rest118480%_))))) + (_%K118456118474%_ (lambda () '#f))) + (let ((_%try-match118453118477%_ (lambda () - (if (null? _%g117164117174%_) - (_%K117169117187%_) - (_%else117167117182%_))))) - (if (pair? _%g117164117174%_) - (let ((_%tl117172117204%_ (##cdr _%g117164117174%_)) - (_%hd117171117202%_ (##car _%g117164117174%_))) - (let ((_%hd117207%_ _%hd117171117202%_) - (_%rest117209%_ _%tl117172117204%_)) - (_%K117170117199%_ _%rest117209%_ _%hd117207%_))) - (_%try-match117166117190%_)))))))) + (if (null? _%g118451118461%_) + (_%K118456118474%_) + (_%else118454118469%_))))) + (if (pair? _%g118451118461%_) + (let ((_%tl118459118491%_ (##cdr _%g118451118461%_)) + (_%hd118458118489%_ (##car _%g118451118461%_))) + (let ((_%hd118494%_ _%hd118458118489%_) + (_%rest118496%_ _%tl118459118491%_)) + (_%K118457118486%_ _%rest118496%_ _%hd118494%_))) + (_%try-match118453118477%_)))))))) (define gx#stx-foldl - (lambda (_%f117106%_ _%iv117107%_ _%stx117108%_) - (if (procedure? _%f117106%_) + (lambda (_%f118393%_ _%iv118394%_ _%stx118395%_) + (if (procedure? _%f118393%_) '#!void - (error '"expected procedure" _%f117106%_)) - (let _%lp117110%_ ((_%r117112%_ _%iv117107%_) - (_%rest117113%_ _%stx117108%_)) - (let* ((_%g117114117124%_ (gx#syntax-e _%rest117113%_)) - (_%else117117117132%_ - (lambda () (_%f117106%_ _%rest117113%_ _%r117112%_)))) - (let ((_%K117120117146%_ - (lambda (_%rest117143%_ _%hd117144%_) - (_%lp117110%_ - (_%f117106%_ _%hd117144%_ _%r117112%_) - _%rest117143%_))) - (_%K117119117137%_ (lambda () _%r117112%_))) - (let ((_%try-match117116117140%_ + (error '"expected procedure" _%f118393%_)) + (let _%lp118397%_ ((_%r118399%_ _%iv118394%_) + (_%rest118400%_ _%stx118395%_)) + (let* ((_%g118401118411%_ (gx#syntax-e _%rest118400%_)) + (_%else118404118419%_ + (lambda () (_%f118393%_ _%rest118400%_ _%r118399%_)))) + (let ((_%K118407118433%_ + (lambda (_%rest118430%_ _%hd118431%_) + (_%lp118397%_ + (_%f118393%_ _%hd118431%_ _%r118399%_) + _%rest118430%_))) + (_%K118406118424%_ (lambda () _%r118399%_))) + (let ((_%try-match118403118427%_ (lambda () - (if (null? _%g117114117124%_) - (_%K117119117137%_) - (_%else117117117132%_))))) - (if (pair? _%g117114117124%_) - (let ((_%tl117122117151%_ (##cdr _%g117114117124%_)) - (_%hd117121117149%_ (##car _%g117114117124%_))) - (let ((_%hd117154%_ _%hd117121117149%_) - (_%rest117156%_ _%tl117122117151%_)) - (_%K117120117146%_ _%rest117156%_ _%hd117154%_))) - (_%try-match117116117140%_)))))))) + (if (null? _%g118401118411%_) + (_%K118406118424%_) + (_%else118404118419%_))))) + (if (pair? _%g118401118411%_) + (let ((_%tl118409118438%_ (##cdr _%g118401118411%_)) + (_%hd118408118436%_ (##car _%g118401118411%_))) + (let ((_%hd118441%_ _%hd118408118436%_) + (_%rest118443%_ _%tl118409118438%_)) + (_%K118407118433%_ _%rest118443%_ _%hd118441%_))) + (_%try-match118403118427%_)))))))) (define gx#stx-foldr - (lambda (_%f117055%_ _%iv117056%_ _%stx117057%_) - (if (procedure? _%f117055%_) + (lambda (_%f118342%_ _%iv118343%_ _%stx118344%_) + (if (procedure? _%f118342%_) '#!void - (error '"expected procedure" _%f117055%_)) - (let _%recur117059%_ ((_%rest117061%_ _%stx117057%_)) - (let* ((_%g117062117072%_ (gx#syntax-e _%rest117061%_)) - (_%else117065117080%_ - (lambda () (_%f117055%_ _%rest117061%_ _%iv117056%_)))) - (let ((_%K117068117094%_ - (lambda (_%rest117091%_ _%hd117092%_) - (_%f117055%_ - _%hd117092%_ - (_%recur117059%_ _%rest117091%_)))) - (_%K117067117085%_ (lambda () _%iv117056%_))) - (let ((_%try-match117064117088%_ + (error '"expected procedure" _%f118342%_)) + (let _%recur118346%_ ((_%rest118348%_ _%stx118344%_)) + (let* ((_%g118349118359%_ (gx#syntax-e _%rest118348%_)) + (_%else118352118367%_ + (lambda () (_%f118342%_ _%rest118348%_ _%iv118343%_)))) + (let ((_%K118355118381%_ + (lambda (_%rest118378%_ _%hd118379%_) + (_%f118342%_ + _%hd118379%_ + (_%recur118346%_ _%rest118378%_)))) + (_%K118354118372%_ (lambda () _%iv118343%_))) + (let ((_%try-match118351118375%_ (lambda () - (if (null? _%g117062117072%_) - (_%K117067117085%_) - (_%else117065117080%_))))) - (if (pair? _%g117062117072%_) - (let ((_%tl117070117099%_ (##cdr _%g117062117072%_)) - (_%hd117069117097%_ (##car _%g117062117072%_))) - (let ((_%hd117102%_ _%hd117069117097%_) - (_%rest117104%_ _%tl117070117099%_)) - (_%K117068117094%_ _%rest117104%_ _%hd117102%_))) - (_%try-match117064117088%_)))))))) + (if (null? _%g118349118359%_) + (_%K118354118372%_) + (_%else118352118367%_))))) + (if (pair? _%g118349118359%_) + (let ((_%tl118357118386%_ (##cdr _%g118349118359%_)) + (_%hd118356118384%_ (##car _%g118349118359%_))) + (let ((_%hd118389%_ _%hd118356118384%_) + (_%rest118391%_ _%tl118357118386%_)) + (_%K118355118381%_ _%rest118391%_ _%hd118389%_))) + (_%try-match118351118375%_)))))))) (define gx#stx-reverse - (lambda (_%stx117053%_) (gx#stx-foldl cons '() _%stx117053%_))) + (lambda (_%stx118340%_) (gx#stx-foldl cons '() _%stx118340%_))) (define gx#stx-last - (lambda (_%stx117014%_) - (let _%lp117016%_ ((_%rest117018%_ _%stx117014%_)) - (let* ((_%g117019117027%_ (gx#syntax-e _%rest117018%_)) - (_%else117021117035%_ (lambda () _%rest117018%_)) - (_%K117023117041%_ - (lambda (_%rest117038%_ _%hd117039%_) - (if (gx#stx-null? _%rest117038%_) - _%hd117039%_ - (_%lp117016%_ _%rest117038%_))))) - (if (pair? _%g117019117027%_) - (let ((_%hd117024117044%_ (##car _%g117019117027%_)) - (_%tl117025117046%_ (##cdr _%g117019117027%_))) - (let* ((_%hd117049%_ _%hd117024117044%_) - (_%rest117051%_ _%tl117025117046%_)) - (_%K117023117041%_ _%rest117051%_ _%hd117049%_))) - (_%else117021117035%_)))))) + (lambda (_%stx118301%_) + (let _%lp118303%_ ((_%rest118305%_ _%stx118301%_)) + (let* ((_%g118306118314%_ (gx#syntax-e _%rest118305%_)) + (_%else118308118322%_ (lambda () _%rest118305%_)) + (_%K118310118328%_ + (lambda (_%rest118325%_ _%hd118326%_) + (if (gx#stx-null? _%rest118325%_) + _%hd118326%_ + (_%lp118303%_ _%rest118325%_))))) + (if (pair? _%g118306118314%_) + (let ((_%hd118311118331%_ (##car _%g118306118314%_)) + (_%tl118312118333%_ (##cdr _%g118306118314%_))) + (let* ((_%hd118336%_ _%hd118311118331%_) + (_%rest118338%_ _%tl118312118333%_)) + (_%K118310118328%_ _%rest118338%_ _%hd118336%_))) + (_%else118308118322%_)))))) (define gx#stx-last-pair - (lambda (_%stx116985%_) - (let _%lp116987%_ ((_%hd116989%_ _%stx116985%_)) - (let* ((_%g116990116997%_ (gx#syntax-e _%hd116989%_)) - (_%E116992117001%_ + (lambda (_%stx118272%_) + (let _%lp118274%_ ((_%hd118276%_ _%stx118272%_)) + (let* ((_%g118277118284%_ (gx#syntax-e _%hd118276%_)) + (_%E118279118288%_ (lambda () (error '"No clause matching" - _%g116990116997%_ + _%g118277118284%_ '([_ . rest])) '#!void)) - (_%K116993117006%_ - (lambda (_%rest117004%_) - (if (gx#stx-pair? _%rest117004%_) - (_%lp116987%_ _%rest117004%_) - _%hd116989%_)))) - (if (pair? _%g116990116997%_) - (let* ((_%tl116995117009%_ (##cdr _%g116990116997%_)) - (_%rest117012%_ _%tl116995117009%_)) - (_%K116993117006%_ _%rest117012%_)) - (_%E116992117001%_)))))) + (_%K118280118293%_ + (lambda (_%rest118291%_) + (if (gx#stx-pair? _%rest118291%_) + (_%lp118274%_ _%rest118291%_) + _%hd118276%_)))) + (if (pair? _%g118277118284%_) + (let* ((_%tl118282118296%_ (##cdr _%g118277118284%_)) + (_%rest118299%_ _%tl118282118296%_)) + (_%K118280118293%_ _%rest118299%_)) + (_%E118279118288%_)))))) (define gx#stx-list-tail - (lambda (_%stx116954%_ _%k116955%_) - (let _%lp116957%_ ((_%rest116959%_ _%stx116954%_) - (_%k116960%_ _%k116955%_)) - (if (fxpositive? _%k116960%_) - (let* ((_%g116961116968%_ (gx#syntax-e _%rest116959%_)) - (_%E116963116972%_ + (lambda (_%stx118241%_ _%k118242%_) + (let _%lp118244%_ ((_%rest118246%_ _%stx118241%_) + (_%k118247%_ _%k118242%_)) + (if (fxpositive? _%k118247%_) + (let* ((_%g118248118255%_ (gx#syntax-e _%rest118246%_)) + (_%E118250118259%_ (lambda () (error '"No clause matching" - _%g116961116968%_ + _%g118248118255%_ '([_ . rest])) '#!void)) - (_%K116964116977%_ - (lambda (_%rest116975%_) - (_%lp116957%_ _%rest116975%_ (##fx- _%k116960%_ '1))))) - (if (pair? _%g116961116968%_) - (let* ((_%tl116966116980%_ (##cdr _%g116961116968%_)) - (_%rest116983%_ _%tl116966116980%_)) - (_%K116964116977%_ _%rest116983%_)) - (_%E116963116972%_))) - _%rest116959%_)))) + (_%K118251118264%_ + (lambda (_%rest118262%_) + (_%lp118244%_ _%rest118262%_ (##fx- _%k118247%_ '1))))) + (if (pair? _%g118248118255%_) + (let* ((_%tl118253118267%_ (##cdr _%g118248118255%_)) + (_%rest118270%_ _%tl118253118267%_)) + (_%K118251118264%_ _%rest118270%_)) + (_%E118250118259%_))) + _%rest118246%_)))) (define gx#stx-list-ref - (lambda (_%stx116951%_ _%k116952%_) - (gx#stx-car (gx#stx-list-tail _%stx116951%_ _%k116952%_)))) + (lambda (_%stx118238%_ _%k118239%_) + (gx#stx-car (gx#stx-list-tail _%stx118238%_ _%k118239%_)))) (define gx#stx-plist?__% - (lambda (_%stx116863%_ _%key?116864%_) - (if (procedure? _%key?116864%_) + (lambda (_%stx118150%_ _%key?118151%_) + (if (procedure? _%key?118151%_) '#!void - (error '"expected procedure" _%key?116864%_)) - (let _%lp116866%_ ((_%rest116868%_ _%stx116863%_)) - (let* ((_%g116869116879%_ (gx#stx-e _%rest116868%_)) - (_%else116872116887%_ (lambda () '#f))) - (let ((_%K116875116929%_ - (lambda (_%rest116898%_ _%hd116899%_) - (if (_%key?116864%_ _%hd116899%_) - (let* ((_%g116900116908%_ (gx#stx-e _%rest116898%_)) - (_%else116902116916%_ (lambda () '#f)) - (_%K116904116921%_ - (lambda (_%rest116919%_) - (_%lp116866%_ _%rest116919%_)))) - (if (pair? _%g116900116908%_) - (let* ((_%tl116906116924%_ - (##cdr _%g116900116908%_)) - (_%rest116927%_ _%tl116906116924%_)) - (_%lp116866%_ _%rest116927%_)) - (_%else116902116916%_))) + (error '"expected procedure" _%key?118151%_)) + (let _%lp118153%_ ((_%rest118155%_ _%stx118150%_)) + (let* ((_%g118156118166%_ (gx#stx-e _%rest118155%_)) + (_%else118159118174%_ (lambda () '#f))) + (let ((_%K118162118216%_ + (lambda (_%rest118185%_ _%hd118186%_) + (if (_%key?118151%_ _%hd118186%_) + (let* ((_%g118187118195%_ (gx#stx-e _%rest118185%_)) + (_%else118189118203%_ (lambda () '#f)) + (_%K118191118208%_ + (lambda (_%rest118206%_) + (_%lp118153%_ _%rest118206%_)))) + (if (pair? _%g118187118195%_) + (let* ((_%tl118193118211%_ + (##cdr _%g118187118195%_)) + (_%rest118214%_ _%tl118193118211%_)) + (_%lp118153%_ _%rest118214%_)) + (_%else118189118203%_))) '#f))) - (_%K116874116892%_ (lambda () '#t))) - (let ((_%try-match116871116895%_ + (_%K118161118179%_ (lambda () '#t))) + (let ((_%try-match118158118182%_ (lambda () - (if (null? _%g116869116879%_) - (_%K116874116892%_) - (_%else116872116887%_))))) - (if (pair? _%g116869116879%_) - (let ((_%tl116877116934%_ (##cdr _%g116869116879%_)) - (_%hd116876116932%_ (##car _%g116869116879%_))) - (let ((_%hd116937%_ _%hd116876116932%_) - (_%rest116939%_ _%tl116877116934%_)) - (_%K116875116929%_ _%rest116939%_ _%hd116937%_))) - (_%try-match116871116895%_)))))))) + (if (null? _%g118156118166%_) + (_%K118161118179%_) + (_%else118159118174%_))))) + (if (pair? _%g118156118166%_) + (let ((_%tl118164118221%_ (##cdr _%g118156118166%_)) + (_%hd118163118219%_ (##car _%g118156118166%_))) + (let ((_%hd118224%_ _%hd118163118219%_) + (_%rest118226%_ _%tl118164118221%_)) + (_%K118162118216%_ _%rest118226%_ _%hd118224%_))) + (_%try-match118158118182%_)))))))) (define gx#stx-plist?__0 - (lambda (_%stx116944%_) - (let ((_%key?116946%_ gx#stx-keyword?)) - (gx#stx-plist?__% _%stx116944%_ _%key?116946%_)))) + (lambda (_%stx118231%_) + (let ((_%key?118233%_ gx#stx-keyword?)) + (gx#stx-plist?__% _%stx118231%_ _%key?118233%_)))) (define gx#stx-plist? - (lambda _g118100_ - (let ((_g118099_ (##length _g118100_))) - (cond ((##fx= _g118099_ 1) (apply gx#stx-plist?__0 _g118100_)) - ((##fx= _g118099_ 2) (apply gx#stx-plist?__% _g118100_)) + (lambda _g119387_ + (let ((_g119386_ (##length _g119387_))) + (cond ((##fx= _g119386_ 1) (apply gx#stx-plist?__0 _g119387_)) + ((##fx= _g119386_ 2) (apply gx#stx-plist?__% _g119387_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-plist? - _g118100_)))))) + _g119387_)))))) (define gx#stx-getq__% - (lambda (_%key116781%_ _%stx116782%_ _%key=?116783%_) - (if (procedure? _%key=?116783%_) + (lambda (_%key118068%_ _%stx118069%_ _%key=?118070%_) + (if (procedure? _%key=?118070%_) '#!void - (error '"expected procedure" _%key=?116783%_)) - (let _%lp116785%_ ((_%rest116787%_ _%stx116782%_)) - (let* ((_%g116788116796%_ (gx#syntax-e _%rest116787%_)) - (_%else116790116804%_ (lambda () '#f)) - (_%K116792116838%_ - (lambda (_%rest116807%_ _%hd116808%_) - (let* ((_%g116809116816%_ (gx#syntax-e _%rest116807%_)) - (_%E116811116820%_ + (error '"expected procedure" _%key=?118070%_)) + (let _%lp118072%_ ((_%rest118074%_ _%stx118069%_)) + (let* ((_%g118075118083%_ (gx#syntax-e _%rest118074%_)) + (_%else118077118091%_ (lambda () '#f)) + (_%K118079118125%_ + (lambda (_%rest118094%_ _%hd118095%_) + (let* ((_%g118096118103%_ (gx#syntax-e _%rest118094%_)) + (_%E118098118107%_ (lambda () (error '"No clause matching" - _%g116809116816%_ + _%g118096118103%_ '([val . rest])) '#!void)) - (_%K116812116826%_ - (lambda (_%rest116823%_ _%val116824%_) - (if (_%key=?116783%_ _%hd116808%_ _%key116781%_) - _%val116824%_ - (_%lp116785%_ _%rest116823%_))))) - (if (pair? _%g116809116816%_) - (let ((_%hd116813116829%_ (##car _%g116809116816%_)) - (_%tl116814116831%_ (##cdr _%g116809116816%_))) - (let* ((_%val116834%_ _%hd116813116829%_) - (_%rest116836%_ _%tl116814116831%_)) - (_%K116812116826%_ - _%rest116836%_ - _%val116834%_))) - (_%E116811116820%_)))))) - (if (pair? _%g116788116796%_) - (let ((_%hd116793116841%_ (##car _%g116788116796%_)) - (_%tl116794116843%_ (##cdr _%g116788116796%_))) - (let* ((_%hd116846%_ _%hd116793116841%_) - (_%rest116848%_ _%tl116794116843%_)) - (_%K116792116838%_ _%rest116848%_ _%hd116846%_))) - (_%else116790116804%_)))))) + (_%K118099118113%_ + (lambda (_%rest118110%_ _%val118111%_) + (if (_%key=?118070%_ _%hd118095%_ _%key118068%_) + _%val118111%_ + (_%lp118072%_ _%rest118110%_))))) + (if (pair? _%g118096118103%_) + (let ((_%hd118100118116%_ (##car _%g118096118103%_)) + (_%tl118101118118%_ (##cdr _%g118096118103%_))) + (let* ((_%val118121%_ _%hd118100118116%_) + (_%rest118123%_ _%tl118101118118%_)) + (_%K118099118113%_ + _%rest118123%_ + _%val118121%_))) + (_%E118098118107%_)))))) + (if (pair? _%g118075118083%_) + (let ((_%hd118080118128%_ (##car _%g118075118083%_)) + (_%tl118081118130%_ (##cdr _%g118075118083%_))) + (let* ((_%hd118133%_ _%hd118080118128%_) + (_%rest118135%_ _%tl118081118130%_)) + (_%K118079118125%_ _%rest118135%_ _%hd118133%_))) + (_%else118077118091%_)))))) (define gx#stx-getq__0 - (lambda (_%key116853%_ _%stx116854%_) - (let ((_%key=?116856%_ gx#stx-eq?)) - (gx#stx-getq__% _%key116853%_ _%stx116854%_ _%key=?116856%_)))) + (lambda (_%key118140%_ _%stx118141%_) + (let ((_%key=?118143%_ gx#stx-eq?)) + (gx#stx-getq__% _%key118140%_ _%stx118141%_ _%key=?118143%_)))) (define gx#stx-getq - (lambda _g118102_ - (let ((_g118101_ (##length _g118102_))) - (cond ((##fx= _g118101_ 2) (apply gx#stx-getq__0 _g118102_)) - ((##fx= _g118101_ 3) (apply gx#stx-getq__% _g118102_)) + (lambda _g119389_ + (let ((_g119388_ (##length _g119389_))) + (cond ((##fx= _g119388_ 2) (apply gx#stx-getq__0 _g119389_)) + ((##fx= _g119388_ 3) (apply gx#stx-getq__% _g119389_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-getq - _g118102_)))))))) + _g119389_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx~1.scm b/src/bootstrap/gerbil/expander/stx~1.scm index 3ec2d7b51..37b63a48f 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]#_g118104_| + (define |gx[1]#_g119391_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g118106_| + (define |gx[1]#_g119393_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118108_| + (define |gx[1]#_g119395_| (##structure gx#syntax-quote::t 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g118110_| + (define |gx[1]#_g119397_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118112_| + (define |gx[1]#_g119399_| (##structure gx#syntax-quote::t 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118113_| + (define |gx[1]#_g119400_| (##structure gx#syntax-quote::t 'identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118114_| + (define |gx[1]#_g119401_| (##structure gx#syntax-quote::t 'identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118116_| + (define |gx[1]#_g119403_| (##structure gx#syntax-quote::t 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118117_| + (define |gx[1]#_g119404_| (##structure gx#syntax-quote::t 'identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118118_| + (define |gx[1]#_g119405_| (##structure gx#syntax-quote::t 'identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118120_| + (define |gx[1]#_g119407_| (##structure gx#syntax-quote::t '&identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118121_| + (define |gx[1]#_g119408_| (##structure gx#syntax-quote::t '&identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118122_| + (define |gx[1]#_g119409_| (##structure gx#syntax-quote::t '&identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118124_| + (define |gx[1]#_g119411_| (##structure gx#syntax-quote::t '&identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118125_| + (define |gx[1]#_g119412_| (##structure gx#syntax-quote::t '&identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118126_| + (define |gx[1]#_g119413_| (##structure gx#syntax-quote::t '&identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118129_| + (define |gx[1]#_g119416_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118131_| + (define |gx[1]#_g119418_| (##structure gx#syntax-quote::t 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g118133_| + (define |gx[1]#_g119420_| (##structure gx#syntax-quote::t 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118135_| + (define |gx[1]#_g119422_| (##structure gx#syntax-quote::t 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g118136_| + (define |gx[1]#_g119423_| (##structure gx#syntax-quote::t 'syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118137_| + (define |gx[1]#_g119424_| (##structure gx#syntax-quote::t 'syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118139_| + (define |gx[1]#_g119426_| (##structure gx#syntax-quote::t 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118140_| + (define |gx[1]#_g119427_| (##structure gx#syntax-quote::t 'syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118141_| + (define |gx[1]#_g119428_| (##structure gx#syntax-quote::t 'syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118143_| + (define |gx[1]#_g119430_| (##structure gx#syntax-quote::t '&syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g118144_| + (define |gx[1]#_g119431_| (##structure gx#syntax-quote::t '&syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118145_| + (define |gx[1]#_g119432_| (##structure gx#syntax-quote::t '&syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118147_| + (define |gx[1]#_g119434_| (##structure gx#syntax-quote::t '&syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118148_| + (define |gx[1]#_g119435_| (##structure gx#syntax-quote::t '&syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118149_| + (define |gx[1]#_g119436_| (##structure gx#syntax-quote::t '&syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118152_| + (define |gx[1]#_g119439_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118154_| + (define |gx[1]#_g119441_| (##structure gx#syntax-quote::t 'make-syntax-quote #f (gx#current-expander-context) '())) - (define |gx[1]#_g118156_| + (define |gx[1]#_g119443_| (##structure gx#syntax-quote::t 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118158_| + (define |gx[1]#_g119445_| (##structure gx#syntax-quote::t 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118159_| + (define |gx[1]#_g119446_| (##structure gx#syntax-quote::t 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118160_| + (define |gx[1]#_g119447_| (##structure gx#syntax-quote::t 'syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118161_| + (define |gx[1]#_g119448_| (##structure gx#syntax-quote::t 'syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118163_| + (define |gx[1]#_g119450_| (##structure gx#syntax-quote::t 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118164_| + (define |gx[1]#_g119451_| (##structure gx#syntax-quote::t 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118165_| + (define |gx[1]#_g119452_| (##structure gx#syntax-quote::t 'syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118166_| + (define |gx[1]#_g119453_| (##structure gx#syntax-quote::t 'syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118168_| + (define |gx[1]#_g119455_| (##structure gx#syntax-quote::t '&syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118169_| + (define |gx[1]#_g119456_| (##structure gx#syntax-quote::t '&syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118170_| + (define |gx[1]#_g119457_| (##structure gx#syntax-quote::t '&syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118171_| + (define |gx[1]#_g119458_| (##structure gx#syntax-quote::t '&syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118173_| + (define |gx[1]#_g119460_| (##structure gx#syntax-quote::t '&syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118174_| + (define |gx[1]#_g119461_| (##structure gx#syntax-quote::t '&syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118175_| + (define |gx[1]#_g119462_| (##structure gx#syntax-quote::t '&syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118176_| + (define |gx[1]#_g119463_| (##structure gx#syntax-quote::t '&syntax-quote-source-set! @@ -347,7 +347,7 @@ '())) (begin (define |gx[:0:]#identifier-wrap| - (let ((__obj118086 + (let ((__obj119373 (let () (declare (not safe)) (##structure @@ -376,85 +376,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118086 + __obj119373 'gx#identifier-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj119373 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 '(marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj119373 '(marks) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118086 + __obj119373 '(e source marks) '6 '#f '#f)) - (let ((__tmp118103 (cons |gx[1]#_g118104_| '()))) + (let ((__tmp119390 (cons |gx[1]#_g119391_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118086 __tmp118103 '3 '#f '#f)) + (##unchecked-structure-set! __obj119373 __tmp119390 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj119373 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj119373 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj119373 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 '#f '11 '#f '#f)) - (let ((__tmp118105 |gx[1]#_g118106_|)) + (##unchecked-structure-set! __obj119373 '#f '11 '#f '#f)) + (let ((__tmp119392 |gx[1]#_g119393_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118086 __tmp118105 '12 '#f '#f)) - (let ((__tmp118107 |gx[1]#_g118108_|)) + (##unchecked-structure-set! __obj119373 __tmp119392 '12 '#f '#f)) + (let ((__tmp119394 |gx[1]#_g119395_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118086 __tmp118107 '13 '#f '#f)) - (let ((__tmp118109 |gx[1]#_g118110_|)) + (##unchecked-structure-set! __obj119373 __tmp119394 '13 '#f '#f)) + (let ((__tmp119396 |gx[1]#_g119397_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118086 __tmp118109 '14 '#f '#f)) - (let ((__tmp118111 - (cons (cons 'marks |gx[1]#_g118112_|) - (cons (cons 'e |gx[1]#_g118113_|) - (cons (cons 'source |gx[1]#_g118114_|) '()))))) + (##unchecked-structure-set! __obj119373 __tmp119396 '14 '#f '#f)) + (let ((__tmp119398 + (cons (cons 'marks |gx[1]#_g119399_|) + (cons (cons 'e |gx[1]#_g119400_|) + (cons (cons 'source |gx[1]#_g119401_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118086 __tmp118111 '15 '#f '#f)) - (let ((__tmp118115 - (cons (cons 'marks |gx[1]#_g118116_|) - (cons (cons 'e |gx[1]#_g118117_|) - (cons (cons 'source |gx[1]#_g118118_|) '()))))) + (##unchecked-structure-set! __obj119373 __tmp119398 '15 '#f '#f)) + (let ((__tmp119402 + (cons (cons 'marks |gx[1]#_g119403_|) + (cons (cons 'e |gx[1]#_g119404_|) + (cons (cons 'source |gx[1]#_g119405_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118086 __tmp118115 '16 '#f '#f)) - (let ((__tmp118119 - (cons (cons 'marks |gx[1]#_g118120_|) - (cons (cons 'e |gx[1]#_g118121_|) - (cons (cons 'source |gx[1]#_g118122_|) '()))))) + (##unchecked-structure-set! __obj119373 __tmp119402 '16 '#f '#f)) + (let ((__tmp119406 + (cons (cons 'marks |gx[1]#_g119407_|) + (cons (cons 'e |gx[1]#_g119408_|) + (cons (cons 'source |gx[1]#_g119409_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118086 __tmp118119 '17 '#f '#f)) - (let ((__tmp118123 - (cons (cons 'marks |gx[1]#_g118124_|) - (cons (cons 'e |gx[1]#_g118125_|) - (cons (cons 'source |gx[1]#_g118126_|) '()))))) + (##unchecked-structure-set! __obj119373 __tmp119406 '17 '#f '#f)) + (let ((__tmp119410 + (cons (cons 'marks |gx[1]#_g119411_|) + (cons (cons 'e |gx[1]#_g119412_|) + (cons (cons 'source |gx[1]#_g119413_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118086 __tmp118123 '18 '#f '#f)) + (##unchecked-structure-set! __obj119373 __tmp119410 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj119373 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj119373 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118086 '() '20 '#f '#f)) - __obj118086)) + (##unchecked-structure-set! __obj119373 '() '20 '#f '#f)) + __obj119373)) (define |gx[:0:]#syntax-wrap| - (let ((__obj118087 + (let ((__obj119374 (let () (declare (not safe)) (##structure @@ -483,80 +483,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118087 + __obj119374 'gx#syntax-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj119374 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '(mark) '4 '#f '#f)) + (##unchecked-structure-set! __obj119374 '(mark) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '(e source mark) '6 '#f '#f)) - (let ((__tmp118127 (cons |gx[1]#_g118104_| '()))) + (##unchecked-structure-set! __obj119374 '(e source mark) '6 '#f '#f)) + (let ((__tmp119414 (cons |gx[1]#_g119391_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118087 __tmp118127 '3 '#f '#f)) + (##unchecked-structure-set! __obj119374 __tmp119414 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj119374 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj119374 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj119374 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '#f '11 '#f '#f)) - (let ((__tmp118128 |gx[1]#_g118129_|)) + (##unchecked-structure-set! __obj119374 '#f '11 '#f '#f)) + (let ((__tmp119415 |gx[1]#_g119416_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118087 __tmp118128 '12 '#f '#f)) - (let ((__tmp118130 |gx[1]#_g118131_|)) + (##unchecked-structure-set! __obj119374 __tmp119415 '12 '#f '#f)) + (let ((__tmp119417 |gx[1]#_g119418_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118087 __tmp118130 '13 '#f '#f)) - (let ((__tmp118132 |gx[1]#_g118133_|)) + (##unchecked-structure-set! __obj119374 __tmp119417 '13 '#f '#f)) + (let ((__tmp119419 |gx[1]#_g119420_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118087 __tmp118132 '14 '#f '#f)) - (let ((__tmp118134 - (cons (cons 'mark |gx[1]#_g118135_|) - (cons (cons 'e |gx[1]#_g118136_|) - (cons (cons 'source |gx[1]#_g118137_|) '()))))) + (##unchecked-structure-set! __obj119374 __tmp119419 '14 '#f '#f)) + (let ((__tmp119421 + (cons (cons 'mark |gx[1]#_g119422_|) + (cons (cons 'e |gx[1]#_g119423_|) + (cons (cons 'source |gx[1]#_g119424_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118087 __tmp118134 '15 '#f '#f)) - (let ((__tmp118138 - (cons (cons 'mark |gx[1]#_g118139_|) - (cons (cons 'e |gx[1]#_g118140_|) - (cons (cons 'source |gx[1]#_g118141_|) '()))))) + (##unchecked-structure-set! __obj119374 __tmp119421 '15 '#f '#f)) + (let ((__tmp119425 + (cons (cons 'mark |gx[1]#_g119426_|) + (cons (cons 'e |gx[1]#_g119427_|) + (cons (cons 'source |gx[1]#_g119428_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118087 __tmp118138 '16 '#f '#f)) - (let ((__tmp118142 - (cons (cons 'mark |gx[1]#_g118143_|) - (cons (cons 'e |gx[1]#_g118144_|) - (cons (cons 'source |gx[1]#_g118145_|) '()))))) + (##unchecked-structure-set! __obj119374 __tmp119425 '16 '#f '#f)) + (let ((__tmp119429 + (cons (cons 'mark |gx[1]#_g119430_|) + (cons (cons 'e |gx[1]#_g119431_|) + (cons (cons 'source |gx[1]#_g119432_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118087 __tmp118142 '17 '#f '#f)) - (let ((__tmp118146 - (cons (cons 'mark |gx[1]#_g118147_|) - (cons (cons 'e |gx[1]#_g118148_|) - (cons (cons 'source |gx[1]#_g118149_|) '()))))) + (##unchecked-structure-set! __obj119374 __tmp119429 '17 '#f '#f)) + (let ((__tmp119433 + (cons (cons 'mark |gx[1]#_g119434_|) + (cons (cons 'e |gx[1]#_g119435_|) + (cons (cons 'source |gx[1]#_g119436_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118087 __tmp118146 '18 '#f '#f)) + (##unchecked-structure-set! __obj119374 __tmp119433 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj119374 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj119374 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118087 '() '20 '#f '#f)) - __obj118087)) + (##unchecked-structure-set! __obj119374 '() '20 '#f '#f)) + __obj119374)) (define |gx[:0:]#syntax-quote| - (let ((__obj118088 + (let ((__obj119375 (let () (declare (not safe)) (##structure @@ -585,88 +585,88 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118088 + __obj119375 'gx#syntax-quote::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj119375 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 '(context marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj119375 '(context marks) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118088 + __obj119375 '(e source context marks) '6 '#f '#f)) - (let ((__tmp118150 (cons |gx[1]#_g118104_| '()))) + (let ((__tmp119437 (cons |gx[1]#_g119391_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118088 __tmp118150 '3 '#f '#f)) + (##unchecked-structure-set! __obj119375 __tmp119437 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj119375 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj119375 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj119375 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 '#f '11 '#f '#f)) - (let ((__tmp118151 |gx[1]#_g118152_|)) + (##unchecked-structure-set! __obj119375 '#f '11 '#f '#f)) + (let ((__tmp119438 |gx[1]#_g119439_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118088 __tmp118151 '12 '#f '#f)) - (let ((__tmp118153 |gx[1]#_g118154_|)) + (##unchecked-structure-set! __obj119375 __tmp119438 '12 '#f '#f)) + (let ((__tmp119440 |gx[1]#_g119441_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118088 __tmp118153 '13 '#f '#f)) - (let ((__tmp118155 |gx[1]#_g118156_|)) + (##unchecked-structure-set! __obj119375 __tmp119440 '13 '#f '#f)) + (let ((__tmp119442 |gx[1]#_g119443_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118088 __tmp118155 '14 '#f '#f)) - (let ((__tmp118157 - (cons (cons 'context |gx[1]#_g118158_|) - (cons (cons 'marks |gx[1]#_g118159_|) - (cons (cons 'e |gx[1]#_g118160_|) - (cons (cons 'source |gx[1]#_g118161_|) + (##unchecked-structure-set! __obj119375 __tmp119442 '14 '#f '#f)) + (let ((__tmp119444 + (cons (cons 'context |gx[1]#_g119445_|) + (cons (cons 'marks |gx[1]#_g119446_|) + (cons (cons 'e |gx[1]#_g119447_|) + (cons (cons 'source |gx[1]#_g119448_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118088 __tmp118157 '15 '#f '#f)) - (let ((__tmp118162 - (cons (cons 'context |gx[1]#_g118163_|) - (cons (cons 'marks |gx[1]#_g118164_|) - (cons (cons 'e |gx[1]#_g118165_|) - (cons (cons 'source |gx[1]#_g118166_|) + (##unchecked-structure-set! __obj119375 __tmp119444 '15 '#f '#f)) + (let ((__tmp119449 + (cons (cons 'context |gx[1]#_g119450_|) + (cons (cons 'marks |gx[1]#_g119451_|) + (cons (cons 'e |gx[1]#_g119452_|) + (cons (cons 'source |gx[1]#_g119453_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118088 __tmp118162 '16 '#f '#f)) - (let ((__tmp118167 - (cons (cons 'context |gx[1]#_g118168_|) - (cons (cons 'marks |gx[1]#_g118169_|) - (cons (cons 'e |gx[1]#_g118170_|) - (cons (cons 'source |gx[1]#_g118171_|) + (##unchecked-structure-set! __obj119375 __tmp119449 '16 '#f '#f)) + (let ((__tmp119454 + (cons (cons 'context |gx[1]#_g119455_|) + (cons (cons 'marks |gx[1]#_g119456_|) + (cons (cons 'e |gx[1]#_g119457_|) + (cons (cons 'source |gx[1]#_g119458_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118088 __tmp118167 '17 '#f '#f)) - (let ((__tmp118172 - (cons (cons 'context |gx[1]#_g118173_|) - (cons (cons 'marks |gx[1]#_g118174_|) - (cons (cons 'e |gx[1]#_g118175_|) - (cons (cons 'source |gx[1]#_g118176_|) + (##unchecked-structure-set! __obj119375 __tmp119454 '17 '#f '#f)) + (let ((__tmp119459 + (cons (cons 'context |gx[1]#_g119460_|) + (cons (cons 'marks |gx[1]#_g119461_|) + (cons (cons 'e |gx[1]#_g119462_|) + (cons (cons 'source |gx[1]#_g119463_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118088 __tmp118172 '18 '#f '#f)) + (##unchecked-structure-set! __obj119375 __tmp119459 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj119375 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj119375 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118088 '() '20 '#f '#f)) - __obj118088)))) + (##unchecked-structure-set! __obj119375 '() '20 '#f '#f)) + __obj119375)))) diff --git a/src/bootstrap/gerbil/expander/top~0.scm b/src/bootstrap/gerbil/expander/top~0.scm index 4cde01989..77e8b52e7 100644 --- a/src/bootstrap/gerbil/expander/top~0.scm +++ b/src/bootstrap/gerbil/expander/top~0.scm @@ -1,397 +1,397 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/top::timestamp 1713631266) + (define gerbil/expander/top::timestamp 1734357962) (begin (declare (not safe)) (define gx#core-expand-begin% - (lambda (_%stx125139%_) - (letrec ((_%expand-special125141%_ - (lambda (_%hd125143%_ _%K125144%_ _%rest125145%_ _%r125146%_) - (_%K125144%_ - _%rest125145%_ - (cons (gx#core-expand-top _%hd125143%_) _%r125146%_))))) - (gx#core-expand-block__0 _%stx125139%_ _%expand-special125141%_)))) + (lambda (_%stx126426%_) + (letrec ((_%expand-special126428%_ + (lambda (_%hd126430%_ _%K126431%_ _%rest126432%_ _%r126433%_) + (_%K126431%_ + _%rest126432%_ + (cons (gx#core-expand-top _%hd126430%_) _%r126433%_))))) + (gx#core-expand-block__0 _%stx126426%_ _%expand-special126428%_)))) (define gx#core-expand-begin-syntax% - (lambda (_%stx124892%_) - (letrec ((_%expand-special124894%_ - (lambda (_%hd125014%_ _%K125015%_ _%rest125016%_ _%r125017%_) - (let* ((_%K125021%_ - (lambda (_%e125019%_) - (_%K125015%_ - _%rest125016%_ - (cons _%e125019%_ _%r125017%_)))) - (_%e125022125051%_ _%hd125014%_) - (_%E125046125055%_ + (lambda (_%stx126179%_) + (letrec ((_%expand-special126181%_ + (lambda (_%hd126301%_ _%K126302%_ _%rest126303%_ _%r126304%_) + (let* ((_%K126308%_ + (lambda (_%e126306%_) + (_%K126302%_ + _%rest126303%_ + (cons _%e126306%_ _%r126304%_)))) + (_%e126309126338%_ _%hd126301%_) + (_%E126333126342%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125022125051%_))) - (_%E125042125067%_ + _%e126309126338%_))) + (_%E126329126354%_ (lambda () - (if (gx#stx-pair? _%e125022125051%_) - (let ((_%e125047125059%_ - (gx#syntax-e _%e125022125051%_))) - (let ((_%hd125048125062%_ - (##car _%e125047125059%_)) - (_%tl125049125064%_ - (##cdr _%e125047125059%_))) + (if (gx#stx-pair? _%e126309126338%_) + (let ((_%e126334126346%_ + (gx#syntax-e _%e126309126338%_))) + (let ((_%hd126335126349%_ + (##car _%e126334126346%_)) + (_%tl126336126351%_ + (##cdr _%e126334126346%_))) (if (and (gx#identifier? - _%hd125048125062%_) + _%hd126335126349%_) (gx#core-identifier=? - _%hd125048125062%_ + _%hd126335126349%_ '%#define-runtime)) - (_%K125021%_ + (_%K126308%_ (gx#core-expand-define-runtime% - _%hd125014%_)) - (_%E125046125055%_)))) - (_%E125046125055%_)))) - (_%E125038125079%_ + _%hd126301%_)) + (_%E126333126342%_)))) + (_%E126333126342%_)))) + (_%E126325126366%_ (lambda () - (if (gx#stx-pair? _%e125022125051%_) - (let ((_%e125043125071%_ - (gx#syntax-e _%e125022125051%_))) - (let ((_%hd125044125074%_ - (##car _%e125043125071%_)) - (_%tl125045125076%_ - (##cdr _%e125043125071%_))) + (if (gx#stx-pair? _%e126309126338%_) + (let ((_%e126330126358%_ + (gx#syntax-e _%e126309126338%_))) + (let ((_%hd126331126361%_ + (##car _%e126330126358%_)) + (_%tl126332126363%_ + (##cdr _%e126330126358%_))) (if (and (gx#identifier? - _%hd125044125074%_) + _%hd126331126361%_) (gx#core-identifier=? - _%hd125044125074%_ + _%hd126331126361%_ '%#define-alias)) - (_%K125021%_ + (_%K126308%_ (gx#core-expand-define-alias% - _%hd125014%_)) - (_%E125042125067%_)))) - (_%E125042125067%_)))) - (_%E125028125091%_ + _%hd126301%_)) + (_%E126329126354%_)))) + (_%E126329126354%_)))) + (_%E126315126378%_ (lambda () - (if (gx#stx-pair? _%e125022125051%_) - (let ((_%e125039125083%_ - (gx#syntax-e _%e125022125051%_))) - (let ((_%hd125040125086%_ - (##car _%e125039125083%_)) - (_%tl125041125088%_ - (##cdr _%e125039125083%_))) + (if (gx#stx-pair? _%e126309126338%_) + (let ((_%e126326126370%_ + (gx#syntax-e _%e126309126338%_))) + (let ((_%hd126327126373%_ + (##car _%e126326126370%_)) + (_%tl126328126375%_ + (##cdr _%e126326126370%_))) (if (and (gx#identifier? - _%hd125040125086%_) + _%hd126327126373%_) (gx#core-identifier=? - _%hd125040125086%_ + _%hd126327126373%_ '%#define-syntax)) - (_%K125021%_ + (_%K126308%_ (gx#core-expand-define-syntax% - _%hd125014%_)) - (_%E125038125079%_)))) - (_%E125038125079%_)))) - (_%E125024125123%_ + _%hd126301%_)) + (_%E126325126366%_)))) + (_%E126325126366%_)))) + (_%E126311126410%_ (lambda () - (if (gx#stx-pair? _%e125022125051%_) - (let ((_%e125029125095%_ - (gx#syntax-e _%e125022125051%_))) - (let ((_%hd125030125098%_ - (##car _%e125029125095%_)) - (_%tl125031125100%_ - (##cdr _%e125029125095%_))) + (if (gx#stx-pair? _%e126309126338%_) + (let ((_%e126316126382%_ + (gx#syntax-e _%e126309126338%_))) + (let ((_%hd126317126385%_ + (##car _%e126316126382%_)) + (_%tl126318126387%_ + (##cdr _%e126316126382%_))) (if (and (gx#identifier? - _%hd125030125098%_) + _%hd126317126385%_) (gx#core-identifier=? - _%hd125030125098%_ + _%hd126317126385%_ '%#define-values)) - (if (gx#stx-pair? _%tl125031125100%_) - (let ((_%e125032125103%_ + (if (gx#stx-pair? _%tl126318126387%_) + (let ((_%e126319126390%_ (gx#syntax-e - _%tl125031125100%_))) - (let ((_%hd125033125106%_ - (##car _%e125032125103%_)) - (_%tl125034125108%_ - (##cdr _%e125032125103%_))) - (let ((_%hd-bind125111%_ - _%hd125033125106%_)) + _%tl126318126387%_))) + (let ((_%hd126320126393%_ + (##car _%e126319126390%_)) + (_%tl126321126395%_ + (##cdr _%e126319126390%_))) + (let ((_%hd-bind126398%_ + _%hd126320126393%_)) (if (gx#stx-pair? - _%tl125034125108%_) - (let ((_%e125035125113%_ + _%tl126321126395%_) + (let ((_%e126322126400%_ (gx#syntax-e - _%tl125034125108%_))) - (let ((_%hd125036125116%_ + _%tl126321126395%_))) + (let ((_%hd126323126403%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e125035125113%_)) - (_%tl125037125118%_ (##cdr _%e125035125113%_))) - (let ((_%expr125121%_ _%hd125036125116%_)) - (if (gx#stx-null? _%tl125037125118%_) - (if (gx#core-bind-values? _%hd-bind125111%_) + (##car _%e126322126400%_)) + (_%tl126324126405%_ (##cdr _%e126322126400%_))) + (let ((_%expr126408%_ _%hd126323126403%_)) + (if (gx#stx-null? _%tl126324126405%_) + (if (gx#core-bind-values? _%hd-bind126398%_) (begin - (gx#core-bind-values!__0 _%hd-bind125111%_) - (_%K125021%_ _%hd125014%_)) - (_%E125028125091%_)) - (_%E125028125091%_))))) - (_%E125028125091%_))))) + (gx#core-bind-values!__0 _%hd-bind126398%_) + (_%K126308%_ _%hd126301%_)) + (_%E126315126378%_)) + (_%E126315126378%_))))) + (_%E126315126378%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125028125091%_)) - (_%E125028125091%_)))) - (_%E125028125091%_)))) - (_%E125023125135%_ + (_%E126315126378%_)) + (_%E126315126378%_)))) + (_%E126315126378%_)))) + (_%E126310126422%_ (lambda () - (if (gx#stx-pair? _%e125022125051%_) - (let ((_%e125025125127%_ - (gx#syntax-e _%e125022125051%_))) - (let ((_%hd125026125130%_ - (##car _%e125025125127%_)) - (_%tl125027125132%_ - (##cdr _%e125025125127%_))) + (if (gx#stx-pair? _%e126309126338%_) + (let ((_%e126312126414%_ + (gx#syntax-e _%e126309126338%_))) + (let ((_%hd126313126417%_ + (##car _%e126312126414%_)) + (_%tl126314126419%_ + (##cdr _%e126312126414%_))) (if (and (gx#identifier? - _%hd125026125130%_) + _%hd126313126417%_) (gx#core-identifier=? - _%hd125026125130%_ + _%hd126313126417%_ '%#begin-syntax)) - (_%K125021%_ + (_%K126308%_ (gx#core-expand-begin-syntax% - _%hd125014%_)) - (_%E125024125123%_)))) - (_%E125024125123%_))))) - (_%E125023125135%_)))) - (_%eval-body124895%_ - (lambda (_%rbody124903%_) - (let _%lp124905%_ ((_%rest124907%_ _%rbody124903%_) - (_%body124908%_ '()) - (_%ebody124909%_ '())) - (let* ((_%rest124910124918%_ _%rest124907%_) - (_%else124912124926%_ + _%hd126301%_)) + (_%E126311126410%_)))) + (_%E126311126410%_))))) + (_%E126310126422%_)))) + (_%eval-body126182%_ + (lambda (_%rbody126190%_) + (let _%lp126192%_ ((_%rest126194%_ _%rbody126190%_) + (_%body126195%_ '()) + (_%ebody126196%_ '())) + (let* ((_%rest126197126205%_ _%rest126194%_) + (_%else126199126213%_ (lambda () - (values _%body124908%_ + (values _%body126195%_ (gx#eval-syntax* (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%ebody124909%_) - (gx#stx-source _%stx124892%_)))))) - (_%K124914125002%_ - (lambda (_%rest124929%_ _%hd124930%_) - (let* ((_%e124931124948%_ _%hd124930%_) - (_%E124943124952%_ + _%ebody126196%_) + (gx#stx-source _%stx126179%_)))))) + (_%K126201126289%_ + (lambda (_%rest126216%_ _%hd126217%_) + (let* ((_%e126218126235%_ _%hd126217%_) + (_%E126230126239%_ (lambda () - (_%lp124905%_ - _%rest124929%_ - (cons _%hd124930%_ _%body124908%_) - (cons _%hd124930%_ - _%ebody124909%_)))) - (_%E124933124964%_ + (_%lp126192%_ + _%rest126216%_ + (cons _%hd126217%_ _%body126195%_) + (cons _%hd126217%_ + _%ebody126196%_)))) + (_%E126220126251%_ (lambda () - (if (gx#stx-pair? _%e124931124948%_) - (let ((_%e124944124956%_ + (if (gx#stx-pair? _%e126218126235%_) + (let ((_%e126231126243%_ (gx#syntax-e - _%e124931124948%_))) - (let ((_%hd124945124959%_ - (##car _%e124944124956%_)) - (_%tl124946124961%_ - (##cdr _%e124944124956%_))) + _%e126218126235%_))) + (let ((_%hd126232126246%_ + (##car _%e126231126243%_)) + (_%tl126233126248%_ + (##cdr _%e126231126243%_))) (if (and (gx#identifier? - _%hd124945124959%_) + _%hd126232126246%_) (gx#core-identifier=? - _%hd124945124959%_ + _%hd126232126246%_ '%#begin-syntax)) - (_%lp124905%_ - _%rest124929%_ - (cons _%hd124930%_ - _%body124908%_) - _%ebody124909%_) - (_%E124943124952%_)))) - (_%E124943124952%_)))) - (_%E124932124998%_ + (_%lp126192%_ + _%rest126216%_ + (cons _%hd126217%_ + _%body126195%_) + _%ebody126196%_) + (_%E126230126239%_)))) + (_%E126230126239%_)))) + (_%E126219126285%_ (lambda () - (if (gx#stx-pair? _%e124931124948%_) - (let ((_%e124934124968%_ + (if (gx#stx-pair? _%e126218126235%_) + (let ((_%e126221126255%_ (gx#syntax-e - _%e124931124948%_))) - (let ((_%hd124935124971%_ - (##car _%e124934124968%_)) - (_%tl124936124973%_ - (##cdr _%e124934124968%_))) + _%e126218126235%_))) + (let ((_%hd126222126258%_ + (##car _%e126221126255%_)) + (_%tl126223126260%_ + (##cdr _%e126221126255%_))) (if (and (gx#identifier? - _%hd124935124971%_) + _%hd126222126258%_) (gx#core-identifier=? - _%hd124935124971%_ + _%hd126222126258%_ '%#define-values)) (if (gx#stx-pair? - _%tl124936124973%_) - (let ((_%e124937124976%_ + _%tl126223126260%_) + (let ((_%e126224126263%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl124936124973%_))) - (let ((_%hd124938124979%_ (##car _%e124937124976%_)) - (_%tl124939124981%_ (##cdr _%e124937124976%_))) - (let ((_%hd-bind124984%_ _%hd124938124979%_)) - (if (gx#stx-pair? _%tl124939124981%_) - (let ((_%e124940124986%_ - (gx#syntax-e _%tl124939124981%_))) - (let ((_%hd124941124989%_ - (##car _%e124940124986%_)) - (_%tl124942124991%_ - (##cdr _%e124940124986%_))) - (let ((_%expr124994%_ _%hd124941124989%_)) - (if (gx#stx-null? _%tl124942124991%_) - (let ((_%ehd124996%_ + (gx#syntax-e _%tl126223126260%_))) + (let ((_%hd126225126266%_ (##car _%e126224126263%_)) + (_%tl126226126268%_ (##cdr _%e126224126263%_))) + (let ((_%hd-bind126271%_ _%hd126225126266%_)) + (if (gx#stx-pair? _%tl126226126268%_) + (let ((_%e126227126273%_ + (gx#syntax-e _%tl126226126268%_))) + (let ((_%hd126228126276%_ + (##car _%e126227126273%_)) + (_%tl126229126278%_ + (##cdr _%e126227126273%_))) + (let ((_%expr126281%_ _%hd126228126276%_)) + (if (gx#stx-null? _%tl126229126278%_) + (let ((_%ehd126283%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _%hd-bind124984%_) + _%hd-bind126271%_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr124994%_) + _%expr126281%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%hd124930%_)))) - (_%lp124905%_ - _%rest124929%_ - (cons _%ehd124996%_ _%body124908%_) - (cons _%ehd124996%_ _%ebody124909%_))) - (_%E124933124964%_))))) - (_%E124933124964%_))))) - (_%E124933124964%_)) - (_%E124933124964%_)))) + (gx#stx-source _%hd126217%_)))) + (_%lp126192%_ + _%rest126216%_ + (cons _%ehd126283%_ _%body126195%_) + (cons _%ehd126283%_ _%ebody126196%_))) + (_%E126220126251%_))))) + (_%E126220126251%_))))) + (_%E126220126251%_)) + (_%E126220126251%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124933124964%_))))) - (_%E124932124998%_))))) - (if (pair? _%rest124910124918%_) - (let ((_%hd124915125005%_ - (##car _%rest124910124918%_)) - (_%tl124916125007%_ - (##cdr _%rest124910124918%_))) - (let* ((_%hd125010%_ _%hd124915125005%_) - (_%rest125012%_ _%tl124916125007%_)) - (_%K124914125002%_ - _%rest125012%_ - _%hd125010%_))) - (_%else124912124926%_))))))) + (_%E126220126251%_))))) + (_%E126219126285%_))))) + (if (pair? _%rest126197126205%_) + (let ((_%hd126202126292%_ + (##car _%rest126197126205%_)) + (_%tl126203126294%_ + (##cdr _%rest126197126205%_))) + (let* ((_%hd126297%_ _%hd126202126292%_) + (_%rest126299%_ _%tl126203126294%_)) + (_%K126201126289%_ + _%rest126299%_ + _%hd126297%_))) + (_%else126199126213%_))))))) (__call-with-parameters (lambda () - (let* ((_%rbody124898%_ + (let* ((_%rbody126185%_ (gx#core-expand-block__1 - _%stx124892%_ - _%expand-special124894%_ + _%stx126179%_ + _%expand-special126181%_ '#f)) - (_g125162_ (_%eval-body124895%_ _%rbody124898%_))) + (_g126449_ (_%eval-body126182%_ _%rbody126185%_))) (begin - (let ((_g125163_ - (if (##values? _g125162_) - (##vector-length _g125162_) + (let ((_g126450_ + (if (##values? _g126449_) + (##values-length _g126449_) 1))) - (if (not (##fx= _g125163_ 2)) - (error "Context expects 2 values" _g125163_))) - (let ((_%expanded-body124900%_ (##vector-ref _g125162_ 0)) - (_%value124901%_ (##vector-ref _g125162_ 1))) + (if (not (##fx= _g126450_ 2)) + (error "Context expects 2 values" _g126450_))) + (let ((_%expanded-body126187%_ (##values-ref _g126449_ 0)) + (_%value126188%_ (##values-ref _g126449_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _%expanded-body124900%_) + (gx#core-cons '%#begin-syntax _%expanded-body126187%_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _%value124901%_ '()))) - (gx#stx-source _%stx124892%_)))))) + (cons _%value126188%_ '()))) + (gx#stx-source _%stx126179%_)))))) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_%stx124862%_) - (let* ((_%e124863124870%_ _%stx124862%_) - (_%E124865124874%_ + (lambda (_%stx126149%_) + (let* ((_%e126150126157%_ _%stx126149%_) + (_%E126152126161%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124863124870%_))) - (_%E124864124888%_ + _%e126150126157%_))) + (_%E126151126175%_ (lambda () - (if (gx#stx-pair? _%e124863124870%_) - (let ((_%e124866124878%_ - (gx#syntax-e _%e124863124870%_))) - (let ((_%hd124867124881%_ (##car _%e124866124878%_)) - (_%tl124868124883%_ (##cdr _%e124866124878%_))) - (let ((_%body124886%_ _%tl124868124883%_)) - (if (gx#stx-list? _%body124886%_) + (if (gx#stx-pair? _%e126150126157%_) + (let ((_%e126153126165%_ + (gx#syntax-e _%e126150126157%_))) + (let ((_%hd126154126168%_ (##car _%e126153126165%_)) + (_%tl126155126170%_ (##cdr _%e126153126165%_))) + (let ((_%body126173%_ _%tl126155126170%_)) + (if (gx#stx-list? _%body126173%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _%body124886%_) - (gx#stx-source _%stx124862%_)) - (_%E124865124874%_))))) - (_%E124865124874%_))))) - (_%E124864124888%_)))) + (gx#core-cons '%#begin-foreign _%body126173%_) + (gx#stx-source _%stx126149%_)) + (_%E126152126161%_))))) + (_%E126152126161%_))))) + (_%E126151126175%_)))) (define gx#core-expand-begin-module% - (lambda (_%stx124860%_) - (gx#raise-syntax-error '#f '"Illegal expansion" _%stx124860%_))) + (lambda (_%stx126147%_) + (gx#raise-syntax-error '#f '"Illegal expansion" _%stx126147%_))) (define gx#core-expand-begin-annotation% - (lambda (_%stx124806%_) - (let* ((_%e124807124820%_ _%stx124806%_) - (_%E124809124824%_ + (lambda (_%stx126093%_) + (let* ((_%e126094126107%_ _%stx126093%_) + (_%E126096126111%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124807124820%_))) - (_%E124808124856%_ + _%e126094126107%_))) + (_%E126095126143%_ (lambda () - (if (gx#stx-pair? _%e124807124820%_) - (let ((_%e124810124828%_ - (gx#syntax-e _%e124807124820%_))) - (let ((_%hd124811124831%_ (##car _%e124810124828%_)) - (_%tl124812124833%_ (##cdr _%e124810124828%_))) - (if (gx#stx-pair? _%tl124812124833%_) - (let ((_%e124813124836%_ - (gx#syntax-e _%tl124812124833%_))) - (let ((_%hd124814124839%_ - (##car _%e124813124836%_)) - (_%tl124815124841%_ - (##cdr _%e124813124836%_))) - (let ((_%ann124844%_ _%hd124814124839%_)) - (if (gx#stx-pair? _%tl124815124841%_) - (let ((_%e124816124846%_ + (if (gx#stx-pair? _%e126094126107%_) + (let ((_%e126097126115%_ + (gx#syntax-e _%e126094126107%_))) + (let ((_%hd126098126118%_ (##car _%e126097126115%_)) + (_%tl126099126120%_ (##cdr _%e126097126115%_))) + (if (gx#stx-pair? _%tl126099126120%_) + (let ((_%e126100126123%_ + (gx#syntax-e _%tl126099126120%_))) + (let ((_%hd126101126126%_ + (##car _%e126100126123%_)) + (_%tl126102126128%_ + (##cdr _%e126100126123%_))) + (let ((_%ann126131%_ _%hd126101126126%_)) + (if (gx#stx-pair? _%tl126102126128%_) + (let ((_%e126103126133%_ (gx#syntax-e - _%tl124815124841%_))) - (let ((_%hd124817124849%_ - (##car _%e124816124846%_)) - (_%tl124818124851%_ - (##cdr _%e124816124846%_))) - (let ((_%expr124854%_ - _%hd124817124849%_)) + _%tl126102126128%_))) + (let ((_%hd126104126136%_ + (##car _%e126103126133%_)) + (_%tl126105126138%_ + (##cdr _%e126103126133%_))) + (let ((_%expr126141%_ + _%hd126104126136%_)) (if (gx#stx-null? - _%tl124818124851%_) + _%tl126105126138%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%ann124844%_ + (cons _%ann126131%_ (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr124854%_) + _%expr126141%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx124806%_)) - (_%E124809124824%_))))) - (_%E124809124824%_))))) - (_%E124809124824%_)))) - (_%E124809124824%_))))) - (_%E124808124856%_)))) + _%stx126093%_)) + (_%E126096126111%_))))) + (_%E126096126111%_))))) + (_%E126096126111%_)))) + (_%E126096126111%_))))) + (_%E126095126143%_)))) (define gx#core-expand-local-block - (lambda (_%stx124530%_ _%body124531%_) - (letrec ((_%expand-special124533%_ - (lambda (_%hd124801%_ _%K124802%_ _%rest124803%_ _%r124804%_) - (_%K124802%_ + (lambda (_%stx125817%_ _%body125818%_) + (letrec ((_%expand-special125820%_ + (lambda (_%hd126088%_ _%K126089%_ _%rest126090%_ _%r126091%_) + (_%K126089%_ '() - (cons (_%expand-internal124534%_ - _%hd124801%_ - _%rest124803%_) - _%r124804%_)))) - (_%expand-internal124534%_ - (lambda (_%hd124797%_ _%rest124798%_) + (cons (_%expand-internal125821%_ + _%hd126088%_ + _%rest126090%_) + _%r126091%_)))) + (_%expand-internal125821%_ + (lambda (_%hd126084%_ _%rest126085%_) (__call-with-parameters (lambda () - (_%wrap-internal124536%_ + (_%wrap-internal125823%_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _%hd124797%_ _%rest124798%_)) - (gx#stx-source _%stx124530%_)) - _%expand-internal-special124535%_ + (cons '%#begin (cons _%hd126084%_ _%rest126085%_)) + (gx#stx-source _%stx125817%_)) + _%expand-internal-special125822%_ '#f))) gx#current-expander-context - (let ((__obj125156 + (let ((__obj126443 (##structure gx#local-context::t '#f @@ -399,750 +399,750 @@ '#f '#f '#f))) - (gx#local-context:::init!__0 __obj125156) - __obj125156)))) - (_%expand-internal-special124535%_ - (lambda (_%hd124692%_ _%K124693%_ _%rest124694%_ _%r124695%_) - (let* ((_%e124696124721%_ _%hd124692%_) - (_%E124716124725%_ + (gx#local-context:::init!__0 __obj126443) + __obj126443)))) + (_%expand-internal-special125822%_ + (lambda (_%hd125979%_ _%K125980%_ _%rest125981%_ _%r125982%_) + (let* ((_%e125983126008%_ _%hd125979%_) + (_%E126003126012%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124696124721%_))) - (_%E124712124737%_ + _%e125983126008%_))) + (_%E125999126024%_ (lambda () - (if (gx#stx-pair? _%e124696124721%_) - (let ((_%e124717124729%_ - (gx#syntax-e _%e124696124721%_))) - (let ((_%hd124718124732%_ - (##car _%e124717124729%_)) - (_%tl124719124734%_ - (##cdr _%e124717124729%_))) + (if (gx#stx-pair? _%e125983126008%_) + (let ((_%e126004126016%_ + (gx#syntax-e _%e125983126008%_))) + (let ((_%hd126005126019%_ + (##car _%e126004126016%_)) + (_%tl126006126021%_ + (##cdr _%e126004126016%_))) (if (and (gx#identifier? - _%hd124718124732%_) + _%hd126005126019%_) (gx#core-identifier=? - _%hd124718124732%_ + _%hd126005126019%_ '%#declare)) - (_%K124693%_ - _%rest124694%_ + (_%K125980%_ + _%rest125981%_ (cons (gx#core-expand-declare% - _%hd124692%_) - _%r124695%_)) - (_%E124716124725%_)))) - (_%E124716124725%_)))) - (_%E124708124749%_ + _%hd125979%_) + _%r125982%_)) + (_%E126003126012%_)))) + (_%E126003126012%_)))) + (_%E125995126036%_ (lambda () - (if (gx#stx-pair? _%e124696124721%_) - (let ((_%e124713124741%_ - (gx#syntax-e _%e124696124721%_))) - (let ((_%hd124714124744%_ - (##car _%e124713124741%_)) - (_%tl124715124746%_ - (##cdr _%e124713124741%_))) + (if (gx#stx-pair? _%e125983126008%_) + (let ((_%e126000126028%_ + (gx#syntax-e _%e125983126008%_))) + (let ((_%hd126001126031%_ + (##car _%e126000126028%_)) + (_%tl126002126033%_ + (##cdr _%e126000126028%_))) (if (and (gx#identifier? - _%hd124714124744%_) + _%hd126001126031%_) (gx#core-identifier=? - _%hd124714124744%_ + _%hd126001126031%_ '%#define-alias)) (begin (gx#core-expand-define-alias% - _%hd124692%_) - (_%K124693%_ - _%rest124694%_ - _%r124695%_)) - (_%E124712124737%_)))) - (_%E124712124737%_)))) - (_%E124698124761%_ + _%hd125979%_) + (_%K125980%_ + _%rest125981%_ + _%r125982%_)) + (_%E125999126024%_)))) + (_%E125999126024%_)))) + (_%E125985126048%_ (lambda () - (if (gx#stx-pair? _%e124696124721%_) - (let ((_%e124709124753%_ - (gx#syntax-e _%e124696124721%_))) - (let ((_%hd124710124756%_ - (##car _%e124709124753%_)) - (_%tl124711124758%_ - (##cdr _%e124709124753%_))) + (if (gx#stx-pair? _%e125983126008%_) + (let ((_%e125996126040%_ + (gx#syntax-e _%e125983126008%_))) + (let ((_%hd125997126043%_ + (##car _%e125996126040%_)) + (_%tl125998126045%_ + (##cdr _%e125996126040%_))) (if (and (gx#identifier? - _%hd124710124756%_) + _%hd125997126043%_) (gx#core-identifier=? - _%hd124710124756%_ + _%hd125997126043%_ '%#define-syntax)) (begin (gx#core-expand-define-syntax% - _%hd124692%_) - (_%K124693%_ - _%rest124694%_ - _%r124695%_)) - (_%E124708124749%_)))) - (_%E124708124749%_)))) - (_%E124697124793%_ + _%hd125979%_) + (_%K125980%_ + _%rest125981%_ + _%r125982%_)) + (_%E125995126036%_)))) + (_%E125995126036%_)))) + (_%E125984126080%_ (lambda () - (if (gx#stx-pair? _%e124696124721%_) - (let ((_%e124699124765%_ - (gx#syntax-e _%e124696124721%_))) - (let ((_%hd124700124768%_ - (##car _%e124699124765%_)) - (_%tl124701124770%_ - (##cdr _%e124699124765%_))) + (if (gx#stx-pair? _%e125983126008%_) + (let ((_%e125986126052%_ + (gx#syntax-e _%e125983126008%_))) + (let ((_%hd125987126055%_ + (##car _%e125986126052%_)) + (_%tl125988126057%_ + (##cdr _%e125986126052%_))) (if (and (gx#identifier? - _%hd124700124768%_) + _%hd125987126055%_) (gx#core-identifier=? - _%hd124700124768%_ + _%hd125987126055%_ '%#define-values)) - (if (gx#stx-pair? _%tl124701124770%_) - (let ((_%e124702124773%_ + (if (gx#stx-pair? _%tl125988126057%_) + (let ((_%e125989126060%_ (gx#syntax-e - _%tl124701124770%_))) - (let ((_%hd124703124776%_ - (##car _%e124702124773%_)) - (_%tl124704124778%_ - (##cdr _%e124702124773%_))) - (let ((_%hd-bind124781%_ - _%hd124703124776%_)) + _%tl125988126057%_))) + (let ((_%hd125990126063%_ + (##car _%e125989126060%_)) + (_%tl125991126065%_ + (##cdr _%e125989126060%_))) + (let ((_%hd-bind126068%_ + _%hd125990126063%_)) (if (gx#stx-pair? - _%tl124704124778%_) - (let ((_%e124705124783%_ + _%tl125991126065%_) + (let ((_%e125992126070%_ (gx#syntax-e - _%tl124704124778%_))) - (let ((_%hd124706124786%_ + _%tl125991126065%_))) + (let ((_%hd125993126073%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e124705124783%_)) - (_%tl124707124788%_ (##cdr _%e124705124783%_))) - (let ((_%expr124791%_ _%hd124706124786%_)) - (if (gx#stx-null? _%tl124707124788%_) - (if (gx#core-bind-values? _%hd-bind124781%_) + (##car _%e125992126070%_)) + (_%tl125994126075%_ (##cdr _%e125992126070%_))) + (let ((_%expr126078%_ _%hd125993126073%_)) + (if (gx#stx-null? _%tl125994126075%_) + (if (gx#core-bind-values? _%hd-bind126068%_) (begin - (gx#core-bind-values!__0 _%hd-bind124781%_) - (_%K124693%_ - _%rest124694%_ - (cons _%hd124692%_ _%r124695%_))) - (_%E124698124761%_)) - (_%E124698124761%_))))) - (_%E124698124761%_))))) + (gx#core-bind-values!__0 _%hd-bind126068%_) + (_%K125980%_ + _%rest125981%_ + (cons _%hd125979%_ _%r125982%_))) + (_%E125985126048%_)) + (_%E125985126048%_))))) + (_%E125985126048%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124698124761%_)) - (_%E124698124761%_)))) - (_%E124698124761%_))))) - (_%E124697124793%_)))) - (_%wrap-internal124536%_ - (lambda (_%rbody124538%_) - (let _%lp124540%_ ((_%rest124542%_ _%rbody124538%_) - (_%decls124543%_ '()) - (_%bind124544%_ '()) - (_%body124545%_ '())) - (let* ((_%e124546124553%_ _%rest124542%_) - (_%E124548124602%_ + (_%E125985126048%_)) + (_%E125985126048%_)))) + (_%E125985126048%_))))) + (_%E125984126080%_)))) + (_%wrap-internal125823%_ + (lambda (_%rbody125825%_) + (let _%lp125827%_ ((_%rest125829%_ _%rbody125825%_) + (_%decls125830%_ '()) + (_%bind125831%_ '()) + (_%body125832%_ '())) + (let* ((_%e125833125840%_ _%rest125829%_) + (_%E125835125889%_ (lambda () - (let* ((_%body124597%_ - (let* ((_%body124556124566%_ - _%body124545%_) - (_%else124559124574%_ + (let* ((_%body125884%_ + (let* ((_%body125843125853%_ + _%body125832%_) + (_%else125846125861%_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body124545%_) + _%body125832%_) (gx#stx-source - _%stx124530%_))))) - (let ((_%K124564124594%_ + _%stx125817%_))))) + (let ((_%K125851125881%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty body" - _%stx124530%_))) - (_%K124561124580%_ - (lambda (_%expr124578%_) - _%expr124578%_))) - (let ((_%try-match124558124590%_ + _%stx125817%_))) + (_%K125848125867%_ + (lambda (_%expr125865%_) + _%expr125865%_))) + (let ((_%try-match125845125877%_ (lambda () - (if (pair? _%body124556124566%_) - (let ((_%tl124563124585%_ - (##cdr _%body124556124566%_)) - (_%hd124562124583%_ - (##car _%body124556124566%_))) - (if (null? _%tl124563124585%_) - (let ((_%expr124588%_ + (if (pair? _%body125843125853%_) + (let ((_%tl125850125872%_ + (##cdr _%body125843125853%_)) + (_%hd125849125870%_ + (##car _%body125843125853%_))) + (if (null? _%tl125850125872%_) + (let ((_%expr125875%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124562124583%_)) - (_%K124561124580%_ _%expr124588%_)) - (_%else124559124574%_))) - (_%else124559124574%_))))) + _%hd125849125870%_)) + (_%K125848125867%_ _%expr125875%_)) + (_%else125846125861%_))) + (_%else125846125861%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (null? _%body124556124566%_) - (_%K124564124594%_) - (_%try-match124558124590%_)))))) - (_%body124599%_ - (if (null? _%bind124544%_) - _%body124597%_ + (if (null? _%body125843125853%_) + (_%K125851125881%_) + (_%try-match125845125877%_)))))) + (_%body125886%_ + (if (null? _%bind125831%_) + _%body125884%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _%bind124544%_ - (cons _%body124597%_ + (cons _%bind125831%_ + (cons _%body125884%_ '()))) - (gx#stx-source _%stx124530%_))))) - (if (null? _%decls124543%_) - _%body124599%_ + (gx#stx-source _%stx125817%_))))) + (if (null? _%decls125830%_) + _%body125886%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%decls124543%_ - (cons _%body124599%_ '()))) - (gx#stx-source _%stx124530%_)))))) - (_%E124547124688%_ + (cons _%decls125830%_ + (cons _%body125886%_ '()))) + (gx#stx-source _%stx125817%_)))))) + (_%E125834125975%_ (lambda () - (if (gx#stx-pair? _%e124546124553%_) - (let ((_%e124549124606%_ - (gx#syntax-e _%e124546124553%_))) - (let ((_%hd124550124609%_ - (##car _%e124549124606%_)) - (_%tl124551124611%_ - (##cdr _%e124549124606%_))) - (let* ((_%hd124614%_ - _%hd124550124609%_) - (_%rest124616%_ - _%tl124551124611%_) - (_%e124617124634%_ _%hd124614%_) - (_%E124629124638%_ + (if (gx#stx-pair? _%e125833125840%_) + (let ((_%e125836125893%_ + (gx#syntax-e _%e125833125840%_))) + (let ((_%hd125837125896%_ + (##car _%e125836125893%_)) + (_%tl125838125898%_ + (##cdr _%e125836125893%_))) + (let* ((_%hd125901%_ + _%hd125837125896%_) + (_%rest125903%_ + _%tl125838125898%_) + (_%e125904125921%_ _%hd125901%_) + (_%E125916125925%_ (lambda () - (if (null? _%bind124544%_) - (_%lp124540%_ - _%rest124616%_ - _%decls124543%_ - _%bind124544%_ - (cons _%hd124614%_ - _%body124545%_)) - (_%lp124540%_ - _%rest124616%_ - _%decls124543%_ + (if (null? _%bind125831%_) + (_%lp125827%_ + _%rest125903%_ + _%decls125830%_ + _%bind125831%_ + (cons _%hd125901%_ + _%body125832%_)) + (_%lp125827%_ + _%rest125903%_ + _%decls125830%_ (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%hd124614%_ '())) - _%bind124544%_) - _%body124545%_)))) + (cons _%hd125901%_ '())) + _%bind125831%_) + _%body125832%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124619124652%_ + (_%E125906125939%_ (lambda () (if (gx#stx-pair? - _%e124617124634%_) - (let ((_%e124630124642%_ + _%e125904125921%_) + (let ((_%e125917125929%_ (gx#syntax-e - _%e124617124634%_))) - (let ((_%hd124631124645%_ - (##car _%e124630124642%_)) - (_%tl124632124647%_ - (##cdr _%e124630124642%_))) + _%e125904125921%_))) + (let ((_%hd125918125932%_ + (##car _%e125917125929%_)) + (_%tl125919125934%_ + (##cdr _%e125917125929%_))) (if (and (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124631124645%_) + _%hd125918125932%_) (gx#core-identifier=? - _%hd124631124645%_ + _%hd125918125932%_ '%#declare)) - (let ((_%xdecls124650%_ _%tl124632124647%_)) - (_%lp124540%_ - _%rest124616%_ - (gx#stx-foldr cons _%decls124543%_ _%xdecls124650%_) - _%bind124544%_ - _%body124545%_)) - (_%E124629124638%_)))) - (_%E124629124638%_)))) + (let ((_%xdecls125937%_ _%tl125919125934%_)) + (_%lp125827%_ + _%rest125903%_ + (gx#stx-foldr cons _%decls125830%_ _%xdecls125937%_) + _%bind125831%_ + _%body125832%_)) + (_%E125916125925%_)))) + (_%E125916125925%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124618124684%_ + (_%E125905125971%_ (lambda () (if (gx#stx-pair? - _%e124617124634%_) - (let ((_%e124620124656%_ + _%e125904125921%_) + (let ((_%e125907125943%_ (gx#syntax-e - _%e124617124634%_))) - (let ((_%hd124621124659%_ - (##car _%e124620124656%_)) - (_%tl124622124661%_ - (##cdr _%e124620124656%_))) + _%e125904125921%_))) + (let ((_%hd125908125946%_ + (##car _%e125907125943%_)) + (_%tl125909125948%_ + (##cdr _%e125907125943%_))) (if (and (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124621124659%_) + _%hd125908125946%_) (gx#core-identifier=? - _%hd124621124659%_ + _%hd125908125946%_ '%#define-values)) - (if (gx#stx-pair? _%tl124622124661%_) - (let ((_%e124623124664%_ - (gx#syntax-e _%tl124622124661%_))) - (let ((_%hd124624124667%_ - (##car _%e124623124664%_)) - (_%tl124625124669%_ - (##cdr _%e124623124664%_))) - (let ((_%hd-bind124672%_ _%hd124624124667%_)) - (if (gx#stx-pair? _%tl124625124669%_) - (let ((_%e124626124674%_ - (gx#syntax-e _%tl124625124669%_))) - (let ((_%hd124627124677%_ - (##car _%e124626124674%_)) - (_%tl124628124679%_ - (##cdr _%e124626124674%_))) - (let ((_%expr124682%_ - _%hd124627124677%_)) - (if (gx#stx-null? _%tl124628124679%_) - (_%lp124540%_ - _%rest124616%_ - _%decls124543%_ + (if (gx#stx-pair? _%tl125909125948%_) + (let ((_%e125910125951%_ + (gx#syntax-e _%tl125909125948%_))) + (let ((_%hd125911125954%_ + (##car _%e125910125951%_)) + (_%tl125912125956%_ + (##cdr _%e125910125951%_))) + (let ((_%hd-bind125959%_ _%hd125911125954%_)) + (if (gx#stx-pair? _%tl125912125956%_) + (let ((_%e125913125961%_ + (gx#syntax-e _%tl125912125956%_))) + (let ((_%hd125914125964%_ + (##car _%e125913125961%_)) + (_%tl125915125966%_ + (##cdr _%e125913125961%_))) + (let ((_%expr125969%_ + _%hd125914125964%_)) + (if (gx#stx-null? _%tl125915125966%_) + (_%lp125827%_ + _%rest125903%_ + _%decls125830%_ (cons (cons (gx#core-quote-bind-values - _%hd-bind124672%_) + _%hd-bind125959%_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr124682%_) + _%expr125969%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind124544%_) - _%body124545%_) - (_%E124619124652%_))))) - (_%E124619124652%_))))) - (_%E124619124652%_)) - (_%E124619124652%_)))) - (_%E124619124652%_))))) + _%bind125831%_) + _%body125832%_) + (_%E125906125939%_))))) + (_%E125906125939%_))))) + (_%E125906125939%_)) + (_%E125906125939%_)))) + (_%E125906125939%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124618124684%_)))) - (_%E124548124602%_))))) - (_%E124547124688%_)))))) + (_%E125905125971%_)))) + (_%E125835125889%_))))) + (_%E125834125975%_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _%body124531%_) - (gx#stx-source _%stx124530%_)) - _%expand-special124533%_)))) + (cons '%#begin _%body125818%_) + (gx#stx-source _%stx125817%_)) + _%expand-special125820%_)))) (define gx#core-expand-declare% - (lambda (_%stx124468%_) - (let* ((_%e124469124476%_ _%stx124468%_) - (_%E124471124480%_ + (lambda (_%stx125755%_) + (let* ((_%e125756125763%_ _%stx125755%_) + (_%E125758125767%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124469124476%_))) - (_%E124470124526%_ + _%e125756125763%_))) + (_%E125757125813%_ (lambda () - (if (gx#stx-pair? _%e124469124476%_) - (let ((_%e124472124484%_ - (gx#syntax-e _%e124469124476%_))) - (let ((_%hd124473124487%_ (##car _%e124472124484%_)) - (_%tl124474124489%_ (##cdr _%e124472124484%_))) - (let ((_%body124492%_ _%tl124474124489%_)) - (if (gx#stx-list? _%body124492%_) + (if (gx#stx-pair? _%e125756125763%_) + (let ((_%e125759125771%_ + (gx#syntax-e _%e125756125763%_))) + (let ((_%hd125760125774%_ (##car _%e125759125771%_)) + (_%tl125761125776%_ (##cdr _%e125759125771%_))) + (let ((_%body125779%_ _%tl125761125776%_)) + (if (gx#stx-list? _%body125779%_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_%decl124494%_) - (let* ((_%e124495124502%_ _%decl124494%_) - (_%E124497124506%_ + (lambda (_%decl125781%_) + (let* ((_%e125782125789%_ _%decl125781%_) + (_%E125784125793%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124495124502%_))) - (_%E124496124522%_ + _%e125782125789%_))) + (_%E125783125809%_ (lambda () (if (gx#stx-pair? - _%e124495124502%_) - (let ((_%e124498124510%_ + _%e125782125789%_) + (let ((_%e125785125797%_ (gx#syntax-e - _%e124495124502%_))) - (let ((_%hd124499124513%_ - (##car _%e124498124510%_)) - (_%tl124500124515%_ - (##cdr _%e124498124510%_))) - (let* ((_%head124518%_ - _%hd124499124513%_) - (_%args124520%_ - _%tl124500124515%_)) + _%e125782125789%_))) + (let ((_%hd125786125800%_ + (##car _%e125785125797%_)) + (_%tl125787125802%_ + (##cdr _%e125785125797%_))) + (let* ((_%head125805%_ + _%hd125786125800%_) + (_%args125807%_ + _%tl125787125802%_)) (if (gx#stx-list? - _%args124520%_) + _%args125807%_) (gx#stx-map1 gx#core-quote-syntax - _%decl124494%_) - (_%E124497124506%_))))) - (_%E124497124506%_))))) - (_%E124496124522%_))) - _%body124492%_)) - (gx#stx-source _%stx124468%_)) - (_%E124471124480%_))))) - (_%E124471124480%_))))) - (_%E124470124526%_)))) + _%decl125781%_) + (_%E125784125793%_))))) + (_%E125784125793%_))))) + (_%E125783125809%_))) + _%body125779%_)) + (gx#stx-source _%stx125755%_)) + (_%E125758125767%_))))) + (_%E125758125767%_))))) + (_%E125757125813%_)))) (define gx#core-expand-extern% - (lambda (_%stx124372%_) - (let* ((_%e124373124380%_ _%stx124372%_) - (_%E124375124384%_ + (lambda (_%stx125659%_) + (let* ((_%e125660125667%_ _%stx125659%_) + (_%E125662125671%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124373124380%_))) - (_%E124374124464%_ + _%e125660125667%_))) + (_%E125661125751%_ (lambda () - (if (gx#stx-pair? _%e124373124380%_) - (let ((_%e124376124388%_ - (gx#syntax-e _%e124373124380%_))) - (let ((_%hd124377124391%_ (##car _%e124376124388%_)) - (_%tl124378124393%_ (##cdr _%e124376124388%_))) - (let ((_%body124396%_ _%tl124378124393%_)) - (let _%lp124398%_ ((_%rest124400%_ _%body124396%_) - (_%r124401%_ '())) - (let* ((_%e124402124416%_ _%rest124400%_) - (_%E124414124420%_ + (if (gx#stx-pair? _%e125660125667%_) + (let ((_%e125663125675%_ + (gx#syntax-e _%e125660125667%_))) + (let ((_%hd125664125678%_ (##car _%e125663125675%_)) + (_%tl125665125680%_ (##cdr _%e125663125675%_))) + (let ((_%body125683%_ _%tl125665125680%_)) + (let _%lp125685%_ ((_%rest125687%_ _%body125683%_) + (_%r125688%_ '())) + (let* ((_%e125689125703%_ _%rest125687%_) + (_%E125701125707%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; %#extern expects list of (internal external) identifier lists" - _%stx124372%_))) - (_%E124404124424%_ + _%stx125659%_))) + (_%E125691125711%_ (lambda () - (if (gx#stx-null? _%e124402124416%_) + (if (gx#stx-null? _%e125689125703%_) (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _%r124401%_)) - (gx#stx-source _%stx124372%_)) - (_%E124414124420%_)))) - (_%E124403124460%_ + (reverse _%r125688%_)) + (gx#stx-source _%stx125659%_)) + (_%E125701125707%_)))) + (_%E125690125747%_ (lambda () - (if (gx#stx-pair? _%e124402124416%_) - (let ((_%e124405124428%_ + (if (gx#stx-pair? _%e125689125703%_) + (let ((_%e125692125715%_ (gx#syntax-e - _%e124402124416%_))) - (let ((_%hd124406124431%_ - (##car _%e124405124428%_)) - (_%tl124407124433%_ - (##cdr _%e124405124428%_))) + _%e125689125703%_))) + (let ((_%hd125693125718%_ + (##car _%e125692125715%_)) + (_%tl125694125720%_ + (##cdr _%e125692125715%_))) (if (gx#stx-pair? - _%hd124406124431%_) - (let ((_%e124408124436%_ + _%hd125693125718%_) + (let ((_%e125695125723%_ (gx#syntax-e - _%hd124406124431%_))) - (let ((_%hd124409124439%_ - (##car _%e124408124436%_)) - (_%tl124410124441%_ - (##cdr _%e124408124436%_))) - (let ((_%id124444%_ - _%hd124409124439%_)) + _%hd125693125718%_))) + (let ((_%hd125696125726%_ + (##car _%e125695125723%_)) + (_%tl125697125728%_ + (##cdr _%e125695125723%_))) + (let ((_%id125731%_ + _%hd125696125726%_)) (if (gx#stx-pair? - _%tl124410124441%_) - (let ((_%e124411124446%_ + _%tl125697125728%_) + (let ((_%e125698125733%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl124410124441%_))) - (let ((_%hd124412124449%_ (##car _%e124411124446%_)) - (_%tl124413124451%_ (##cdr _%e124411124446%_))) - (let ((_%eid124454%_ _%hd124412124449%_)) - (if (gx#stx-null? _%tl124413124451%_) - (let ((_%rest124456%_ _%tl124407124433%_)) - (if (and (gx#identifier? _%id124444%_) - (gx#identifier? _%eid124454%_)) - (let ((_%eid124458%_ - (gx#stx-e _%eid124454%_))) + (gx#syntax-e _%tl125697125728%_))) + (let ((_%hd125699125736%_ (##car _%e125698125733%_)) + (_%tl125700125738%_ (##cdr _%e125698125733%_))) + (let ((_%eid125741%_ _%hd125699125736%_)) + (if (gx#stx-null? _%tl125700125738%_) + (let ((_%rest125743%_ _%tl125694125720%_)) + (if (and (gx#identifier? _%id125731%_) + (gx#identifier? _%eid125741%_)) + (let ((_%eid125745%_ + (gx#stx-e _%eid125741%_))) (gx#core-bind-extern!__0 - _%id124444%_ - _%eid124458%_) - (_%lp124398%_ - _%rest124456%_ + _%id125731%_ + _%eid125745%_) + (_%lp125685%_ + _%rest125743%_ (cons (cons (gx#core-quote-syntax__0 - _%id124444%_) - (cons _%eid124458%_ '())) - _%r124401%_))) - (_%E124404124424%_))) - (_%E124404124424%_))))) - (_%E124404124424%_))))) + _%id125731%_) + (cons _%eid125745%_ '())) + _%r125688%_))) + (_%E125691125711%_))) + (_%E125691125711%_))))) + (_%E125691125711%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124404124424%_)))) - (_%E124404124424%_))))) - (_%E124403124460%_)))))) - (_%E124375124384%_))))) - (_%E124374124464%_)))) + (_%E125691125711%_)))) + (_%E125691125711%_))))) + (_%E125690125747%_)))))) + (_%E125662125671%_))))) + (_%E125661125751%_)))) (define gx#core-expand-define-values% - (lambda (_%stx124318%_) - (let* ((_%e124319124332%_ _%stx124318%_) - (_%E124321124336%_ + (lambda (_%stx125605%_) + (let* ((_%e125606125619%_ _%stx125605%_) + (_%E125608125623%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124319124332%_))) - (_%E124320124368%_ + _%e125606125619%_))) + (_%E125607125655%_ (lambda () - (if (gx#stx-pair? _%e124319124332%_) - (let ((_%e124322124340%_ - (gx#syntax-e _%e124319124332%_))) - (let ((_%hd124323124343%_ (##car _%e124322124340%_)) - (_%tl124324124345%_ (##cdr _%e124322124340%_))) - (if (gx#stx-pair? _%tl124324124345%_) - (let ((_%e124325124348%_ - (gx#syntax-e _%tl124324124345%_))) - (let ((_%hd124326124351%_ - (##car _%e124325124348%_)) - (_%tl124327124353%_ - (##cdr _%e124325124348%_))) - (let ((_%hd124356%_ _%hd124326124351%_)) - (if (gx#stx-pair? _%tl124327124353%_) - (let ((_%e124328124358%_ + (if (gx#stx-pair? _%e125606125619%_) + (let ((_%e125609125627%_ + (gx#syntax-e _%e125606125619%_))) + (let ((_%hd125610125630%_ (##car _%e125609125627%_)) + (_%tl125611125632%_ (##cdr _%e125609125627%_))) + (if (gx#stx-pair? _%tl125611125632%_) + (let ((_%e125612125635%_ + (gx#syntax-e _%tl125611125632%_))) + (let ((_%hd125613125638%_ + (##car _%e125612125635%_)) + (_%tl125614125640%_ + (##cdr _%e125612125635%_))) + (let ((_%hd125643%_ _%hd125613125638%_)) + (if (gx#stx-pair? _%tl125614125640%_) + (let ((_%e125615125645%_ (gx#syntax-e - _%tl124327124353%_))) - (let ((_%hd124329124361%_ - (##car _%e124328124358%_)) - (_%tl124330124363%_ - (##cdr _%e124328124358%_))) - (let ((_%expr124366%_ - _%hd124329124361%_)) + _%tl125614125640%_))) + (let ((_%hd125616125648%_ + (##car _%e125615125645%_)) + (_%tl125617125650%_ + (##cdr _%e125615125645%_))) + (let ((_%expr125653%_ + _%hd125616125648%_)) (if (gx#stx-null? - _%tl124330124363%_) + _%tl125617125650%_) (if (gx#core-bind-values? - _%hd124356%_) + _%hd125643%_) (begin (gx#core-bind-values!__0 - _%hd124356%_) + _%hd125643%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124356%_) - (cons (gx#core-expand-expression _%expr124366%_) + _%hd125643%_) + (cons (gx#core-expand-expression _%expr125653%_) '()))) - (gx#stx-source _%stx124318%_))) - (_%E124321124336%_)) + (gx#stx-source _%stx125605%_))) + (_%E125608125623%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124321124336%_))))) - (_%E124321124336%_))))) - (_%E124321124336%_)))) - (_%E124321124336%_))))) - (_%E124320124368%_)))) + (_%E125608125623%_))))) + (_%E125608125623%_))))) + (_%E125608125623%_)))) + (_%E125608125623%_))))) + (_%E125607125655%_)))) (define gx#core-expand-define-runtime% - (lambda (_%stx124262%_) - (let* ((_%e124263124276%_ _%stx124262%_) - (_%E124265124280%_ + (lambda (_%stx125549%_) + (let* ((_%e125550125563%_ _%stx125549%_) + (_%E125552125567%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124263124276%_))) - (_%E124264124314%_ + _%e125550125563%_))) + (_%E125551125601%_ (lambda () - (if (gx#stx-pair? _%e124263124276%_) - (let ((_%e124266124284%_ - (gx#syntax-e _%e124263124276%_))) - (let ((_%hd124267124287%_ (##car _%e124266124284%_)) - (_%tl124268124289%_ (##cdr _%e124266124284%_))) - (if (gx#stx-pair? _%tl124268124289%_) - (let ((_%e124269124292%_ - (gx#syntax-e _%tl124268124289%_))) - (let ((_%hd124270124295%_ - (##car _%e124269124292%_)) - (_%tl124271124297%_ - (##cdr _%e124269124292%_))) - (let ((_%id124300%_ _%hd124270124295%_)) - (if (gx#stx-pair? _%tl124271124297%_) - (let ((_%e124272124302%_ + (if (gx#stx-pair? _%e125550125563%_) + (let ((_%e125553125571%_ + (gx#syntax-e _%e125550125563%_))) + (let ((_%hd125554125574%_ (##car _%e125553125571%_)) + (_%tl125555125576%_ (##cdr _%e125553125571%_))) + (if (gx#stx-pair? _%tl125555125576%_) + (let ((_%e125556125579%_ + (gx#syntax-e _%tl125555125576%_))) + (let ((_%hd125557125582%_ + (##car _%e125556125579%_)) + (_%tl125558125584%_ + (##cdr _%e125556125579%_))) + (let ((_%id125587%_ _%hd125557125582%_)) + (if (gx#stx-pair? _%tl125558125584%_) + (let ((_%e125559125589%_ (gx#syntax-e - _%tl124271124297%_))) - (let ((_%hd124273124305%_ - (##car _%e124272124302%_)) - (_%tl124274124307%_ - (##cdr _%e124272124302%_))) - (let ((_%binding-id124310%_ - _%hd124273124305%_)) + _%tl125558125584%_))) + (let ((_%hd125560125592%_ + (##car _%e125559125589%_)) + (_%tl125561125594%_ + (##cdr _%e125559125589%_))) + (let ((_%binding-id125597%_ + _%hd125560125592%_)) (if (gx#stx-null? - _%tl124274124307%_) + _%tl125561125594%_) (if (and (gx#identifier? - _%id124300%_) + _%id125587%_) (gx#identifier? - _%binding-id124310%_)) - (let ((_%eid124312%_ + _%binding-id125597%_)) + (let ((_%eid125599%_ (gx#stx-e - _%binding-id124310%_))) + _%binding-id125597%_))) (gx#core-bind-runtime-reference!__0 - _%id124300%_ - _%eid124312%_) + _%id125587%_ + _%eid125599%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id124300%_) - (cons _%eid124312%_ '()))))) - (_%E124265124280%_)) + _%id125587%_) + (cons _%eid125599%_ '()))))) + (_%E125552125567%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124265124280%_))))) - (_%E124265124280%_))))) - (_%E124265124280%_)))) - (_%E124265124280%_))))) - (_%E124264124314%_)))) + (_%E125552125567%_))))) + (_%E125552125567%_))))) + (_%E125552125567%_)))) + (_%E125552125567%_))))) + (_%E125551125601%_)))) (define gx#core-expand-define-syntax% - (lambda (_%stx124205%_) - (let* ((_%e124206124219%_ _%stx124205%_) - (_%E124208124223%_ + (lambda (_%stx125492%_) + (let* ((_%e125493125506%_ _%stx125492%_) + (_%E125495125510%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124206124219%_))) - (_%E124207124258%_ + _%e125493125506%_))) + (_%E125494125545%_ (lambda () - (if (gx#stx-pair? _%e124206124219%_) - (let ((_%e124209124227%_ - (gx#syntax-e _%e124206124219%_))) - (let ((_%hd124210124230%_ (##car _%e124209124227%_)) - (_%tl124211124232%_ (##cdr _%e124209124227%_))) - (if (gx#stx-pair? _%tl124211124232%_) - (let ((_%e124212124235%_ - (gx#syntax-e _%tl124211124232%_))) - (let ((_%hd124213124238%_ - (##car _%e124212124235%_)) - (_%tl124214124240%_ - (##cdr _%e124212124235%_))) - (let ((_%id124243%_ _%hd124213124238%_)) - (if (gx#stx-pair? _%tl124214124240%_) - (let ((_%e124215124245%_ + (if (gx#stx-pair? _%e125493125506%_) + (let ((_%e125496125514%_ + (gx#syntax-e _%e125493125506%_))) + (let ((_%hd125497125517%_ (##car _%e125496125514%_)) + (_%tl125498125519%_ (##cdr _%e125496125514%_))) + (if (gx#stx-pair? _%tl125498125519%_) + (let ((_%e125499125522%_ + (gx#syntax-e _%tl125498125519%_))) + (let ((_%hd125500125525%_ + (##car _%e125499125522%_)) + (_%tl125501125527%_ + (##cdr _%e125499125522%_))) + (let ((_%id125530%_ _%hd125500125525%_)) + (if (gx#stx-pair? _%tl125501125527%_) + (let ((_%e125502125532%_ (gx#syntax-e - _%tl124214124240%_))) - (let ((_%hd124216124248%_ - (##car _%e124215124245%_)) - (_%tl124217124250%_ - (##cdr _%e124215124245%_))) - (let ((_%expr124253%_ - _%hd124216124248%_)) + _%tl125501125527%_))) + (let ((_%hd125503125535%_ + (##car _%e125502125532%_)) + (_%tl125504125537%_ + (##cdr _%e125502125532%_))) + (let ((_%expr125540%_ + _%hd125503125535%_)) (if (gx#stx-null? - _%tl124217124250%_) + _%tl125504125537%_) (if (gx#identifier? - _%id124243%_) - (let ((_g125164_ + _%id125530%_) + (let ((_g126451_ (gx#core-expand-expression+1 - _%expr124253%_))) + _%expr125540%_))) (begin - (let ((_g125165_ + (let ((_g126452_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g125164_) - (##vector-length _g125164_) + (if (##values? _g126451_) + (##values-length _g126451_) 1))) - (if (not (##fx= _g125165_ 2)) - (error "Context expects 2 values" _g125165_))) - (let ((_%e-stx124255%_ (##vector-ref _g125164_ 0)) - (_%e124256%_ (##vector-ref _g125164_ 1))) + (if (not (##fx= _g126452_ 2)) + (error "Context expects 2 values" _g126452_))) + (let ((_%e-stx125542%_ (##values-ref _g126451_ 0)) + (_%e125543%_ (##values-ref _g126451_ 1))) (begin - (gx#core-bind-syntax!__0 _%id124243%_ _%e124256%_) + (gx#core-bind-syntax!__0 _%id125530%_ _%e125543%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _%id124243%_) - (cons _%e-stx124255%_ '()))) - (gx#stx-source _%stx124205%_)))))) - (_%E124208124223%_)) + (cons (gx#core-quote-syntax__0 _%id125530%_) + (cons _%e-stx125542%_ '()))) + (gx#stx-source _%stx125492%_)))))) + (_%E125495125510%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124208124223%_))))) - (_%E124208124223%_))))) - (_%E124208124223%_)))) - (_%E124208124223%_))))) - (_%E124207124258%_)))) + (_%E125495125510%_))))) + (_%E125495125510%_))))) + (_%E125495125510%_)))) + (_%E125495125510%_))))) + (_%E125494125545%_)))) (define gx#core-expand-define-alias% - (lambda (_%stx124149%_) - (let* ((_%e124150124163%_ _%stx124149%_) - (_%E124152124167%_ + (lambda (_%stx125436%_) + (let* ((_%e125437125450%_ _%stx125436%_) + (_%E125439125454%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124150124163%_))) - (_%E124151124201%_ + _%e125437125450%_))) + (_%E125438125488%_ (lambda () - (if (gx#stx-pair? _%e124150124163%_) - (let ((_%e124153124171%_ - (gx#syntax-e _%e124150124163%_))) - (let ((_%hd124154124174%_ (##car _%e124153124171%_)) - (_%tl124155124176%_ (##cdr _%e124153124171%_))) - (if (gx#stx-pair? _%tl124155124176%_) - (let ((_%e124156124179%_ - (gx#syntax-e _%tl124155124176%_))) - (let ((_%hd124157124182%_ - (##car _%e124156124179%_)) - (_%tl124158124184%_ - (##cdr _%e124156124179%_))) - (let ((_%id124187%_ _%hd124157124182%_)) - (if (gx#stx-pair? _%tl124158124184%_) - (let ((_%e124159124189%_ + (if (gx#stx-pair? _%e125437125450%_) + (let ((_%e125440125458%_ + (gx#syntax-e _%e125437125450%_))) + (let ((_%hd125441125461%_ (##car _%e125440125458%_)) + (_%tl125442125463%_ (##cdr _%e125440125458%_))) + (if (gx#stx-pair? _%tl125442125463%_) + (let ((_%e125443125466%_ + (gx#syntax-e _%tl125442125463%_))) + (let ((_%hd125444125469%_ + (##car _%e125443125466%_)) + (_%tl125445125471%_ + (##cdr _%e125443125466%_))) + (let ((_%id125474%_ _%hd125444125469%_)) + (if (gx#stx-pair? _%tl125445125471%_) + (let ((_%e125446125476%_ (gx#syntax-e - _%tl124158124184%_))) - (let ((_%hd124160124192%_ - (##car _%e124159124189%_)) - (_%tl124161124194%_ - (##cdr _%e124159124189%_))) - (let ((_%alias-id124197%_ - _%hd124160124192%_)) + _%tl125445125471%_))) + (let ((_%hd125447125479%_ + (##car _%e125446125476%_)) + (_%tl125448125481%_ + (##cdr _%e125446125476%_))) + (let ((_%alias-id125484%_ + _%hd125447125479%_)) (if (gx#stx-null? - _%tl124161124194%_) + _%tl125448125481%_) (if (and (gx#identifier? - _%id124187%_) + _%id125474%_) (gx#identifier? - _%alias-id124197%_)) - (let ((_%alias-id124199%_ + _%alias-id125484%_)) + (let ((_%alias-id125486%_ (gx#core-quote-syntax__0 - _%alias-id124197%_))) + _%alias-id125484%_))) (gx#core-bind-alias!__0 - _%id124187%_ - _%alias-id124199%_) + _%id125474%_ + _%alias-id125486%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id124187%_) - (cons _%alias-id124199%_ '()))))) - (_%E124152124167%_)) + _%id125474%_) + (cons _%alias-id125486%_ '()))))) + (_%E125439125454%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124152124167%_))))) - (_%E124152124167%_))))) - (_%E124152124167%_)))) - (_%E124152124167%_))))) - (_%E124151124201%_)))) + (_%E125439125454%_))))) + (_%E125439125454%_))))) + (_%E125439125454%_)))) + (_%E125439125454%_))))) + (_%E125438125488%_)))) (define gx#core-expand-lambda%__% - (lambda (_%stx124092%_ _%wrap?124093%_) - (let* ((_%e124094124104%_ _%stx124092%_) - (_%E124096124108%_ + (lambda (_%stx125379%_ _%wrap?125380%_) + (let* ((_%e125381125391%_ _%stx125379%_) + (_%E125383125395%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124094124104%_))) - (_%E124095124135%_ + _%e125381125391%_))) + (_%E125382125422%_ (lambda () - (if (gx#stx-pair? _%e124094124104%_) - (let ((_%e124097124112%_ - (gx#syntax-e _%e124094124104%_))) - (let ((_%hd124098124115%_ (##car _%e124097124112%_)) - (_%tl124099124117%_ (##cdr _%e124097124112%_))) - (if (gx#stx-pair? _%tl124099124117%_) - (let ((_%e124100124120%_ - (gx#syntax-e _%tl124099124117%_))) - (let ((_%hd124101124123%_ - (##car _%e124100124120%_)) - (_%tl124102124125%_ - (##cdr _%e124100124120%_))) - (let* ((_%hd124128%_ _%hd124101124123%_) - (_%body124130%_ _%tl124102124125%_)) - (if (gx#core-bind-values? _%hd124128%_) + (if (gx#stx-pair? _%e125381125391%_) + (let ((_%e125384125399%_ + (gx#syntax-e _%e125381125391%_))) + (let ((_%hd125385125402%_ (##car _%e125384125399%_)) + (_%tl125386125404%_ (##cdr _%e125384125399%_))) + (if (gx#stx-pair? _%tl125386125404%_) + (let ((_%e125387125407%_ + (gx#syntax-e _%tl125386125404%_))) + (let ((_%hd125388125410%_ + (##car _%e125387125407%_)) + (_%tl125389125412%_ + (##cdr _%e125387125407%_))) + (let* ((_%hd125415%_ _%hd125388125410%_) + (_%body125417%_ _%tl125389125412%_)) + (if (gx#core-bind-values? _%hd125415%_) (__call-with-parameters (lambda () (gx#core-bind-values!__0 - _%hd124128%_) - (let ((_%body124133%_ + _%hd125415%_) + (let ((_%body125420%_ (cons (gx#core-quote-bind-values - _%hd124128%_) + _%hd125415%_) (cons (gx#core-expand-local-block - _%stx124092%_ - _%body124130%_) + _%stx125379%_ + _%body125417%_) '())))) - (if _%wrap?124093%_ + (if _%wrap?125380%_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _%body124133%_) + _%body125420%_) (gx#stx-source - _%stx124092%_)) - _%body124133%_))) + _%stx125379%_)) + _%body125420%_))) gx#current-expander-context - (let ((__obj125157 + (let ((__obj126444 (##structure gx#local-context::t '#f @@ -1151,117 +1151,117 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125157) - __obj125157)) - (_%E124096124108%_))))) - (_%E124096124108%_)))) - (_%E124096124108%_))))) - (_%E124095124135%_)))) + __obj126444) + __obj126444)) + (_%E125383125395%_))))) + (_%E125383125395%_)))) + (_%E125383125395%_))))) + (_%E125382125422%_)))) (define gx#core-expand-lambda%__0 - (lambda (_%stx124142%_) - (let ((_%wrap?124144%_ '#t)) - (gx#core-expand-lambda%__% _%stx124142%_ _%wrap?124144%_)))) + (lambda (_%stx125429%_) + (let ((_%wrap?125431%_ '#t)) + (gx#core-expand-lambda%__% _%stx125429%_ _%wrap?125431%_)))) (define gx#core-expand-lambda% - (lambda _g125167_ - (let ((_g125166_ (##length _g125167_))) - (cond ((##fx= _g125166_ 1) - (apply gx#core-expand-lambda%__0 _g125167_)) - ((##fx= _g125166_ 2) - (apply gx#core-expand-lambda%__% _g125167_)) + (lambda _g126454_ + (let ((_g126453_ (##length _g126454_))) + (cond ((##fx= _g126453_ 1) + (apply gx#core-expand-lambda%__0 _g126454_)) + ((##fx= _g126453_ 2) + (apply gx#core-expand-lambda%__% _g126454_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-lambda% - _g125167_)))))) + _g126454_)))))) (define gx#core-expand-case-lambda% - (lambda (_%stx124056%_) - (let* ((_%e124057124064%_ _%stx124056%_) - (_%E124059124068%_ + (lambda (_%stx125343%_) + (let* ((_%e125344125351%_ _%stx125343%_) + (_%E125346125355%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124057124064%_))) - (_%E124058124087%_ + _%e125344125351%_))) + (_%E125345125374%_ (lambda () - (if (gx#stx-pair? _%e124057124064%_) - (let ((_%e124060124072%_ - (gx#syntax-e _%e124057124064%_))) - (let ((_%hd124061124075%_ (##car _%e124060124072%_)) - (_%tl124062124077%_ (##cdr _%e124060124072%_))) - (let ((_%clauses124080%_ _%tl124062124077%_)) - (if (gx#stx-list? _%clauses124080%_) + (if (gx#stx-pair? _%e125344125351%_) + (let ((_%e125347125359%_ + (gx#syntax-e _%e125344125351%_))) + (let ((_%hd125348125362%_ (##car _%e125347125359%_)) + (_%tl125349125364%_ (##cdr _%e125347125359%_))) + (let ((_%clauses125367%_ _%tl125349125364%_)) + (if (gx#stx-list? _%clauses125367%_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_%clause124082%_) + (lambda (_%clause125369%_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _%clause124082%_) - (let ((_%$e124084%_ + _%clause125369%_) + (let ((_%$e125371%_ (gx#stx-source - _%clause124082%_))) - (if _%$e124084%_ - _%$e124084%_ - (gx#stx-source _%stx124056%_)))) + _%clause125369%_))) + (if _%$e125371%_ + _%$e125371%_ + (gx#stx-source _%stx125343%_)))) '#f)) - _%clauses124080%_)) - (gx#stx-source _%stx124056%_)) - (_%E124059124068%_))))) - (_%E124059124068%_))))) - (_%E124058124087%_)))) + _%clauses125367%_)) + (gx#stx-source _%stx125343%_)) + (_%E125346125355%_))))) + (_%E125346125355%_))))) + (_%E125345125374%_)))) (define gx#core-expand-let-values% - (lambda (_%stx124010%_) - (let* ((_%e124011124021%_ _%stx124010%_) - (_%E124013124025%_ + (lambda (_%stx125297%_) + (let* ((_%e125298125308%_ _%stx125297%_) + (_%E125300125312%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124011124021%_))) - (_%E124012124052%_ + _%e125298125308%_))) + (_%E125299125339%_ (lambda () - (if (gx#stx-pair? _%e124011124021%_) - (let ((_%e124014124029%_ - (gx#syntax-e _%e124011124021%_))) - (let ((_%hd124015124032%_ (##car _%e124014124029%_)) - (_%tl124016124034%_ (##cdr _%e124014124029%_))) - (if (gx#stx-pair? _%tl124016124034%_) - (let ((_%e124017124037%_ - (gx#syntax-e _%tl124016124034%_))) - (let ((_%hd124018124040%_ - (##car _%e124017124037%_)) - (_%tl124019124042%_ - (##cdr _%e124017124037%_))) - (let* ((_%hd124045%_ _%hd124018124040%_) - (_%body124047%_ _%tl124019124042%_)) - (if (gx#core-expand-let-bind? _%hd124045%_) - (let ((_%expressions124049%_ + (if (gx#stx-pair? _%e125298125308%_) + (let ((_%e125301125316%_ + (gx#syntax-e _%e125298125308%_))) + (let ((_%hd125302125319%_ (##car _%e125301125316%_)) + (_%tl125303125321%_ (##cdr _%e125301125316%_))) + (if (gx#stx-pair? _%tl125303125321%_) + (let ((_%e125304125324%_ + (gx#syntax-e _%tl125303125321%_))) + (let ((_%hd125305125327%_ + (##car _%e125304125324%_)) + (_%tl125306125329%_ + (##cdr _%e125304125324%_))) + (let* ((_%hd125332%_ _%hd125305125327%_) + (_%body125334%_ _%tl125306125329%_)) + (if (gx#core-expand-let-bind? _%hd125332%_) + (let ((_%expressions125336%_ (gx#stx-map1 gx#core-expand-let-bind-expression - _%hd124045%_))) + _%hd125332%_))) (__call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _%hd124045%_) + _%hd125332%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd124045%_ - _%expressions124049%_) + _%hd125332%_ + _%expressions125336%_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%stx124010%_ - _%body124047%_) + _%stx125297%_ + _%body125334%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx124010%_))) + (gx#stx-source _%stx125297%_))) gx#current-expander-context - (let ((__obj125158 + (let ((__obj126445 (##structure gx#local-context::t '#f @@ -1270,59 +1270,59 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125158) - __obj125158))) - (_%E124013124025%_))))) - (_%E124013124025%_)))) - (_%E124013124025%_))))) - (_%E124012124052%_)))) + __obj126445) + __obj126445))) + (_%E125300125312%_))))) + (_%E125300125312%_)))) + (_%E125300125312%_))))) + (_%E125299125339%_)))) (define gx#core-expand-letrec-values%__% - (lambda (_%stx123955%_ _%form123956%_) - (let* ((_%e123957123967%_ _%stx123955%_) - (_%E123959123971%_ + (lambda (_%stx125242%_ _%form125243%_) + (let* ((_%e125244125254%_ _%stx125242%_) + (_%E125246125258%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123957123967%_))) - (_%E123958123996%_ + _%e125244125254%_))) + (_%E125245125283%_ (lambda () - (if (gx#stx-pair? _%e123957123967%_) - (let ((_%e123960123975%_ - (gx#syntax-e _%e123957123967%_))) - (let ((_%hd123961123978%_ (##car _%e123960123975%_)) - (_%tl123962123980%_ (##cdr _%e123960123975%_))) - (if (gx#stx-pair? _%tl123962123980%_) - (let ((_%e123963123983%_ - (gx#syntax-e _%tl123962123980%_))) - (let ((_%hd123964123986%_ - (##car _%e123963123983%_)) - (_%tl123965123988%_ - (##cdr _%e123963123983%_))) - (let* ((_%hd123991%_ _%hd123964123986%_) - (_%body123993%_ _%tl123965123988%_)) - (if (gx#core-expand-let-bind? _%hd123991%_) + (if (gx#stx-pair? _%e125244125254%_) + (let ((_%e125247125262%_ + (gx#syntax-e _%e125244125254%_))) + (let ((_%hd125248125265%_ (##car _%e125247125262%_)) + (_%tl125249125267%_ (##cdr _%e125247125262%_))) + (if (gx#stx-pair? _%tl125249125267%_) + (let ((_%e125250125270%_ + (gx#syntax-e _%tl125249125267%_))) + (let ((_%hd125251125273%_ + (##car _%e125250125270%_)) + (_%tl125252125275%_ + (##cdr _%e125250125270%_))) + (let* ((_%hd125278%_ _%hd125251125273%_) + (_%body125280%_ _%tl125252125275%_)) + (if (gx#core-expand-let-bind? _%hd125278%_) (__call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _%hd123991%_) + _%hd125278%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _%form123956%_) + _%form125243%_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd123991%_ + _%hd125278%_ (gx#stx-map1 gx#core-expand-let-bind-expression - _%hd123991%_)) + _%hd125278%_)) (cons (gx#core-expand-local-block - _%stx123955%_ - _%body123993%_) + _%stx125242%_ + _%body125280%_) '()))) - (gx#stx-source _%stx123955%_))) + (gx#stx-source _%stx125242%_))) gx#current-expander-context - (let ((__obj125159 + (let ((__obj126446 (##structure gx#local-context::t '#f @@ -1331,200 +1331,200 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125159) - __obj125159)) - (_%E123959123971%_))))) - (_%E123959123971%_)))) - (_%E123959123971%_))))) - (_%E123958123996%_)))) + __obj126446) + __obj126446)) + (_%E125246125258%_))))) + (_%E125246125258%_)))) + (_%E125246125258%_))))) + (_%E125245125283%_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_%stx124003%_) - (let ((_%form124005%_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _%stx124003%_ _%form124005%_)))) + (lambda (_%stx125290%_) + (let ((_%form125292%_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _%stx125290%_ _%form125292%_)))) (define gx#core-expand-letrec-values% - (lambda _g125169_ - (let ((_g125168_ (##length _g125169_))) - (cond ((##fx= _g125168_ 1) - (apply gx#core-expand-letrec-values%__0 _g125169_)) - ((##fx= _g125168_ 2) - (apply gx#core-expand-letrec-values%__% _g125169_)) + (lambda _g126456_ + (let ((_g126455_ (##length _g126456_))) + (cond ((##fx= _g126455_ 1) + (apply gx#core-expand-letrec-values%__0 _g126456_)) + ((##fx= _g126455_ 2) + (apply gx#core-expand-letrec-values%__% _g126456_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-letrec-values% - _g125169_)))))) + _g126456_)))))) (define gx#core-expand-letrec*-values% - (lambda (_%stx123952%_) - (gx#core-expand-letrec-values%__% _%stx123952%_ '%#letrec*-values))) + (lambda (_%stx125239%_) + (gx#core-expand-letrec-values%__% _%stx125239%_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_%stx123909%_) - (if (gx#stx-list? _%stx123909%_) + (lambda (_%stx125196%_) + (if (gx#stx-list? _%stx125196%_) (gx#stx-andmap - (lambda (_%bind123911%_) - (let* ((_%e123912123922%_ _%bind123911%_) - (_%E123914123926%_ (lambda () '#f)) - (_%E123913123948%_ + (lambda (_%bind125198%_) + (let* ((_%e125199125209%_ _%bind125198%_) + (_%E125201125213%_ (lambda () '#f)) + (_%E125200125235%_ (lambda () - (if (gx#stx-pair? _%e123912123922%_) - (let ((_%e123915123930%_ - (gx#syntax-e _%e123912123922%_))) - (let ((_%hd123916123933%_ - (##car _%e123915123930%_)) - (_%tl123917123935%_ - (##cdr _%e123915123930%_))) - (let ((_%hd123938%_ _%hd123916123933%_)) - (if (gx#stx-pair? _%tl123917123935%_) - (let ((_%e123918123940%_ + (if (gx#stx-pair? _%e125199125209%_) + (let ((_%e125202125217%_ + (gx#syntax-e _%e125199125209%_))) + (let ((_%hd125203125220%_ + (##car _%e125202125217%_)) + (_%tl125204125222%_ + (##cdr _%e125202125217%_))) + (let ((_%hd125225%_ _%hd125203125220%_)) + (if (gx#stx-pair? _%tl125204125222%_) + (let ((_%e125205125227%_ (gx#syntax-e - _%tl123917123935%_))) - (let ((_%hd123919123943%_ - (##car _%e123918123940%_)) - (_%tl123920123945%_ - (##cdr _%e123918123940%_))) + _%tl125204125222%_))) + (let ((_%hd125206125230%_ + (##car _%e125205125227%_)) + (_%tl125207125232%_ + (##cdr _%e125205125227%_))) (if (gx#stx-null? - _%tl123920123945%_) + _%tl125207125232%_) (gx#core-bind-values? - _%hd123938%_) - (_%E123914123926%_)))) - (_%E123914123926%_))))) - (_%E123914123926%_))))) - (_%E123913123948%_))) - _%stx123909%_) + _%hd125225%_) + (_%E125201125213%_)))) + (_%E125201125213%_))))) + (_%E125201125213%_))))) + (_%E125200125235%_))) + _%stx125196%_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_%bind123868%_) - (let* ((_%e123869123879%_ _%bind123868%_) - (_%E123871123883%_ + (lambda (_%bind125155%_) + (let* ((_%e125156125166%_ _%bind125155%_) + (_%E125158125170%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123869123879%_))) - (_%E123870123905%_ + _%e125156125166%_))) + (_%E125157125192%_ (lambda () - (if (gx#stx-pair? _%e123869123879%_) - (let ((_%e123872123887%_ - (gx#syntax-e _%e123869123879%_))) - (let ((_%hd123873123890%_ (##car _%e123872123887%_)) - (_%tl123874123892%_ (##cdr _%e123872123887%_))) - (if (gx#stx-pair? _%tl123874123892%_) - (let ((_%e123875123895%_ - (gx#syntax-e _%tl123874123892%_))) - (let ((_%hd123876123898%_ - (##car _%e123875123895%_)) - (_%tl123877123900%_ - (##cdr _%e123875123895%_))) - (let ((_%expr123903%_ _%hd123876123898%_)) - (if (gx#stx-null? _%tl123877123900%_) + (if (gx#stx-pair? _%e125156125166%_) + (let ((_%e125159125174%_ + (gx#syntax-e _%e125156125166%_))) + (let ((_%hd125160125177%_ (##car _%e125159125174%_)) + (_%tl125161125179%_ (##cdr _%e125159125174%_))) + (if (gx#stx-pair? _%tl125161125179%_) + (let ((_%e125162125182%_ + (gx#syntax-e _%tl125161125179%_))) + (let ((_%hd125163125185%_ + (##car _%e125162125182%_)) + (_%tl125164125187%_ + (##cdr _%e125162125182%_))) + (let ((_%expr125190%_ _%hd125163125185%_)) + (if (gx#stx-null? _%tl125164125187%_) (gx#core-expand-expression - _%expr123903%_) - (_%E123871123883%_))))) - (_%E123871123883%_)))) - (_%E123871123883%_))))) - (_%E123870123905%_)))) + _%expr125190%_) + (_%E125158125170%_))))) + (_%E125158125170%_)))) + (_%E125158125170%_))))) + (_%E125157125192%_)))) (define gx#core-expand-let-bind-values! - (lambda (_%bind123827%_) - (let* ((_%e123828123838%_ _%bind123827%_) - (_%E123830123842%_ + (lambda (_%bind125114%_) + (let* ((_%e125115125125%_ _%bind125114%_) + (_%E125117125129%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123828123838%_))) - (_%E123829123864%_ + _%e125115125125%_))) + (_%E125116125151%_ (lambda () - (if (gx#stx-pair? _%e123828123838%_) - (let ((_%e123831123846%_ - (gx#syntax-e _%e123828123838%_))) - (let ((_%hd123832123849%_ (##car _%e123831123846%_)) - (_%tl123833123851%_ (##cdr _%e123831123846%_))) - (let ((_%hd123854%_ _%hd123832123849%_)) - (if (gx#stx-pair? _%tl123833123851%_) - (let ((_%e123834123856%_ - (gx#syntax-e _%tl123833123851%_))) - (let ((_%hd123835123859%_ - (##car _%e123834123856%_)) - (_%tl123836123861%_ - (##cdr _%e123834123856%_))) - (if (gx#stx-null? _%tl123836123861%_) - (gx#core-bind-values!__0 _%hd123854%_) - (_%E123830123842%_)))) - (_%E123830123842%_))))) - (_%E123830123842%_))))) - (_%E123829123864%_)))) + (if (gx#stx-pair? _%e125115125125%_) + (let ((_%e125118125133%_ + (gx#syntax-e _%e125115125125%_))) + (let ((_%hd125119125136%_ (##car _%e125118125133%_)) + (_%tl125120125138%_ (##cdr _%e125118125133%_))) + (let ((_%hd125141%_ _%hd125119125136%_)) + (if (gx#stx-pair? _%tl125120125138%_) + (let ((_%e125121125143%_ + (gx#syntax-e _%tl125120125138%_))) + (let ((_%hd125122125146%_ + (##car _%e125121125143%_)) + (_%tl125123125148%_ + (##cdr _%e125121125143%_))) + (if (gx#stx-null? _%tl125123125148%_) + (gx#core-bind-values!__0 _%hd125141%_) + (_%E125117125129%_)))) + (_%E125117125129%_))))) + (_%E125117125129%_))))) + (_%E125116125151%_)))) (define gx#core-expand-let-bind-quote - (lambda (_%bind123785%_ _%expr123786%_) - (let* ((_%e123787123797%_ _%bind123785%_) - (_%E123789123801%_ + (lambda (_%bind125072%_ _%expr125073%_) + (let* ((_%e125074125084%_ _%bind125072%_) + (_%E125076125088%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123787123797%_))) - (_%E123788123823%_ + _%e125074125084%_))) + (_%E125075125110%_ (lambda () - (if (gx#stx-pair? _%e123787123797%_) - (let ((_%e123790123805%_ - (gx#syntax-e _%e123787123797%_))) - (let ((_%hd123791123808%_ (##car _%e123790123805%_)) - (_%tl123792123810%_ (##cdr _%e123790123805%_))) - (let ((_%hd123813%_ _%hd123791123808%_)) - (if (gx#stx-pair? _%tl123792123810%_) - (let ((_%e123793123815%_ - (gx#syntax-e _%tl123792123810%_))) - (let ((_%hd123794123818%_ - (##car _%e123793123815%_)) - (_%tl123795123820%_ - (##cdr _%e123793123815%_))) - (if (gx#stx-null? _%tl123795123820%_) + (if (gx#stx-pair? _%e125074125084%_) + (let ((_%e125077125092%_ + (gx#syntax-e _%e125074125084%_))) + (let ((_%hd125078125095%_ (##car _%e125077125092%_)) + (_%tl125079125097%_ (##cdr _%e125077125092%_))) + (let ((_%hd125100%_ _%hd125078125095%_)) + (if (gx#stx-pair? _%tl125079125097%_) + (let ((_%e125080125102%_ + (gx#syntax-e _%tl125079125097%_))) + (let ((_%hd125081125105%_ + (##car _%e125080125102%_)) + (_%tl125082125107%_ + (##cdr _%e125080125102%_))) + (if (gx#stx-null? _%tl125082125107%_) (cons (gx#core-quote-bind-values - _%hd123813%_) - (cons _%expr123786%_ '())) - (_%E123789123801%_)))) - (_%E123789123801%_))))) - (_%E123789123801%_))))) - (_%E123788123823%_)))) + _%hd125100%_) + (cons _%expr125073%_ '())) + (_%E125076125088%_)))) + (_%E125076125088%_))))) + (_%E125076125088%_))))) + (_%E125075125110%_)))) (define gx#core-expand-let-syntax% - (lambda (_%stx123739%_) - (let* ((_%e123740123750%_ _%stx123739%_) - (_%E123742123754%_ + (lambda (_%stx125026%_) + (let* ((_%e125027125037%_ _%stx125026%_) + (_%E125029125041%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123740123750%_))) - (_%E123741123781%_ + _%e125027125037%_))) + (_%E125028125068%_ (lambda () - (if (gx#stx-pair? _%e123740123750%_) - (let ((_%e123743123758%_ - (gx#syntax-e _%e123740123750%_))) - (let ((_%hd123744123761%_ (##car _%e123743123758%_)) - (_%tl123745123763%_ (##cdr _%e123743123758%_))) - (if (gx#stx-pair? _%tl123745123763%_) - (let ((_%e123746123766%_ - (gx#syntax-e _%tl123745123763%_))) - (let ((_%hd123747123769%_ - (##car _%e123746123766%_)) - (_%tl123748123771%_ - (##cdr _%e123746123766%_))) - (let* ((_%hd123774%_ _%hd123747123769%_) - (_%body123776%_ _%tl123748123771%_)) + (if (gx#stx-pair? _%e125027125037%_) + (let ((_%e125030125045%_ + (gx#syntax-e _%e125027125037%_))) + (let ((_%hd125031125048%_ (##car _%e125030125045%_)) + (_%tl125032125050%_ (##cdr _%e125030125045%_))) + (if (gx#stx-pair? _%tl125032125050%_) + (let ((_%e125033125053%_ + (gx#syntax-e _%tl125032125050%_))) + (let ((_%hd125034125056%_ + (##car _%e125033125053%_)) + (_%tl125035125058%_ + (##cdr _%e125033125053%_))) + (let* ((_%hd125061%_ _%hd125034125056%_) + (_%body125063%_ _%tl125035125058%_)) (if (gx#core-expand-let-bind-syntax? - _%hd123774%_) - (let ((_%expanders123778%_ + _%hd125061%_) + (let ((_%expanders125065%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd123774%_))) + _%hd125061%_))) (__call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd123774%_ - _%expanders123778%_) + _%hd125061%_ + _%expanders125065%_) (gx#core-expand-local-block - _%stx123739%_ - _%body123776%_)) + _%stx125026%_ + _%body125063%_)) gx#current-expander-context - (let ((__obj125160 + (let ((__obj126447 (##structure gx#local-context::t '#f @@ -1533,63 +1533,63 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125160) - __obj125160))) - (_%E123742123754%_))))) - (_%E123742123754%_)))) - (_%E123742123754%_))))) - (_%E123741123781%_)))) + __obj126447) + __obj126447))) + (_%E125029125041%_))))) + (_%E125029125041%_)))) + (_%E125029125041%_))))) + (_%E125028125068%_)))) (define gx#core-expand-letrec-syntax% - (lambda (_%stx123688%_) - (let* ((_%e123689123699%_ _%stx123688%_) - (_%E123691123703%_ + (lambda (_%stx124975%_) + (let* ((_%e124976124986%_ _%stx124975%_) + (_%E124978124990%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123689123699%_))) - (_%E123690123735%_ + _%e124976124986%_))) + (_%E124977125022%_ (lambda () - (if (gx#stx-pair? _%e123689123699%_) - (let ((_%e123692123707%_ - (gx#syntax-e _%e123689123699%_))) - (let ((_%hd123693123710%_ (##car _%e123692123707%_)) - (_%tl123694123712%_ (##cdr _%e123692123707%_))) - (if (gx#stx-pair? _%tl123694123712%_) - (let ((_%e123695123715%_ - (gx#syntax-e _%tl123694123712%_))) - (let ((_%hd123696123718%_ - (##car _%e123695123715%_)) - (_%tl123697123720%_ - (##cdr _%e123695123715%_))) - (let* ((_%hd123723%_ _%hd123696123718%_) - (_%body123725%_ _%tl123697123720%_)) + (if (gx#stx-pair? _%e124976124986%_) + (let ((_%e124979124994%_ + (gx#syntax-e _%e124976124986%_))) + (let ((_%hd124980124997%_ (##car _%e124979124994%_)) + (_%tl124981124999%_ (##cdr _%e124979124994%_))) + (if (gx#stx-pair? _%tl124981124999%_) + (let ((_%e124982125002%_ + (gx#syntax-e _%tl124981124999%_))) + (let ((_%hd124983125005%_ + (##car _%e124982125002%_)) + (_%tl124984125007%_ + (##cdr _%e124982125002%_))) + (let* ((_%hd125010%_ _%hd124983125005%_) + (_%body125012%_ _%tl124984125007%_)) (if (gx#core-expand-let-bind-syntax? - _%hd123723%_) + _%hd125010%_) (__call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd123723%_ + _%hd125010%_ (make-list - (gx#stx-length _%hd123723%_) + (gx#stx-length _%hd125010%_) '#!void)) (gx#stx-for-each2 - (lambda (_%g123727123730%_ - _%g123728123732%_) + (lambda (_%g125014125017%_ + _%g125015125019%_) (gx#core-expand-let-bind-syntax!__% - _%g123727123730%_ - _%g123728123732%_ + _%g125014125017%_ + _%g125015125019%_ '#t)) - _%hd123723%_ + _%hd125010%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd123723%_)) + _%hd125010%_)) (gx#core-expand-local-block - _%stx123688%_ - _%body123725%_)) + _%stx124975%_ + _%body125012%_)) gx#current-expander-context - (let ((__obj125161 + (let ((__obj126448 (##structure gx#local-context::t '#f @@ -1598,1725 +1598,1725 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125161) - __obj125161)) - (_%E123691123703%_))))) - (_%E123691123703%_)))) - (_%E123691123703%_))))) - (_%E123690123735%_)))) + __obj126448) + __obj126448)) + (_%E124978124990%_))))) + (_%E124978124990%_)))) + (_%E124978124990%_))))) + (_%E124977125022%_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_%stx123645%_) - (if (gx#stx-list? _%stx123645%_) + (lambda (_%stx124932%_) + (if (gx#stx-list? _%stx124932%_) (gx#stx-andmap - (lambda (_%bind123647%_) - (let* ((_%e123648123658%_ _%bind123647%_) - (_%E123650123662%_ (lambda () '#f)) - (_%E123649123684%_ + (lambda (_%bind124934%_) + (let* ((_%e124935124945%_ _%bind124934%_) + (_%E124937124949%_ (lambda () '#f)) + (_%E124936124971%_ (lambda () - (if (gx#stx-pair? _%e123648123658%_) - (let ((_%e123651123666%_ - (gx#syntax-e _%e123648123658%_))) - (let ((_%hd123652123669%_ - (##car _%e123651123666%_)) - (_%tl123653123671%_ - (##cdr _%e123651123666%_))) - (let ((_%hd123674%_ _%hd123652123669%_)) - (if (gx#stx-pair? _%tl123653123671%_) - (let ((_%e123654123676%_ + (if (gx#stx-pair? _%e124935124945%_) + (let ((_%e124938124953%_ + (gx#syntax-e _%e124935124945%_))) + (let ((_%hd124939124956%_ + (##car _%e124938124953%_)) + (_%tl124940124958%_ + (##cdr _%e124938124953%_))) + (let ((_%hd124961%_ _%hd124939124956%_)) + (if (gx#stx-pair? _%tl124940124958%_) + (let ((_%e124941124963%_ (gx#syntax-e - _%tl123653123671%_))) - (let ((_%hd123655123679%_ - (##car _%e123654123676%_)) - (_%tl123656123681%_ - (##cdr _%e123654123676%_))) + _%tl124940124958%_))) + (let ((_%hd124942124966%_ + (##car _%e124941124963%_)) + (_%tl124943124968%_ + (##cdr _%e124941124963%_))) (if (gx#stx-null? - _%tl123656123681%_) - (gx#identifier? _%hd123674%_) - (_%E123650123662%_)))) - (_%E123650123662%_))))) - (_%E123650123662%_))))) - (_%E123649123684%_))) - _%stx123645%_) + _%tl124943124968%_) + (gx#identifier? _%hd124961%_) + (_%E124937124949%_)))) + (_%E124937124949%_))))) + (_%E124937124949%_))))) + (_%E124936124971%_))) + _%stx124932%_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_%bind123601%_) - (let* ((_%e123602123612%_ _%bind123601%_) - (_%E123604123616%_ + (lambda (_%bind124888%_) + (let* ((_%e124889124899%_ _%bind124888%_) + (_%E124891124903%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123602123612%_))) - (_%E123603123641%_ + _%e124889124899%_))) + (_%E124890124928%_ (lambda () - (if (gx#stx-pair? _%e123602123612%_) - (let ((_%e123605123620%_ - (gx#syntax-e _%e123602123612%_))) - (let ((_%hd123606123623%_ (##car _%e123605123620%_)) - (_%tl123607123625%_ (##cdr _%e123605123620%_))) - (if (gx#stx-pair? _%tl123607123625%_) - (let ((_%e123608123628%_ - (gx#syntax-e _%tl123607123625%_))) - (let ((_%hd123609123631%_ - (##car _%e123608123628%_)) - (_%tl123610123633%_ - (##cdr _%e123608123628%_))) - (let ((_%expr123636%_ _%hd123609123631%_)) - (if (gx#stx-null? _%tl123610123633%_) - (let ((_g125170_ + (if (gx#stx-pair? _%e124889124899%_) + (let ((_%e124892124907%_ + (gx#syntax-e _%e124889124899%_))) + (let ((_%hd124893124910%_ (##car _%e124892124907%_)) + (_%tl124894124912%_ (##cdr _%e124892124907%_))) + (if (gx#stx-pair? _%tl124894124912%_) + (let ((_%e124895124915%_ + (gx#syntax-e _%tl124894124912%_))) + (let ((_%hd124896124918%_ + (##car _%e124895124915%_)) + (_%tl124897124920%_ + (##cdr _%e124895124915%_))) + (let ((_%expr124923%_ _%hd124896124918%_)) + (if (gx#stx-null? _%tl124897124920%_) + (let ((_g126457_ (gx#core-expand-expression+1 - _%expr123636%_))) + _%expr124923%_))) (begin - (let ((_g125171_ - (if (##values? _g125170_) - (##vector-length - _g125170_) + (let ((_g126458_ + (if (##values? _g126457_) + (##values-length + _g126457_) 1))) - (if (not (##fx= _g125171_ 2)) + (if (not (##fx= _g126458_ 2)) (error "Context expects 2 values" - _g125171_))) - (let ((_%_123638%_ - (##vector-ref _g125170_ 0)) - (_%e123639%_ - (##vector-ref _g125170_ 1))) - _%e123639%_))) - (_%E123604123616%_))))) - (_%E123604123616%_)))) - (_%E123604123616%_))))) - (_%E123603123641%_)))) + _g126458_))) + (let ((_%_124925%_ + (##values-ref _g126457_ 0)) + (_%e124926%_ + (##values-ref _g126457_ 1))) + _%e124926%_))) + (_%E124891124903%_))))) + (_%E124891124903%_)))) + (_%E124891124903%_))))) + (_%E124890124928%_)))) (define gx#core-expand-let-bind-syntax!__% - (lambda (_%bind123546%_ _%e123547%_ _%rebind?123548%_) - (let* ((_%e123549123559%_ _%bind123546%_) - (_%E123551123563%_ + (lambda (_%bind124833%_ _%e124834%_ _%rebind?124835%_) + (let* ((_%e124836124846%_ _%bind124833%_) + (_%E124838124850%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123549123559%_))) - (_%E123550123585%_ + _%e124836124846%_))) + (_%E124837124872%_ (lambda () - (if (gx#stx-pair? _%e123549123559%_) - (let ((_%e123552123567%_ - (gx#syntax-e _%e123549123559%_))) - (let ((_%hd123553123570%_ (##car _%e123552123567%_)) - (_%tl123554123572%_ (##cdr _%e123552123567%_))) - (let ((_%id123575%_ _%hd123553123570%_)) - (if (gx#stx-pair? _%tl123554123572%_) - (let ((_%e123555123577%_ - (gx#syntax-e _%tl123554123572%_))) - (let ((_%hd123556123580%_ - (##car _%e123555123577%_)) - (_%tl123557123582%_ - (##cdr _%e123555123577%_))) - (if (gx#stx-null? _%tl123557123582%_) + (if (gx#stx-pair? _%e124836124846%_) + (let ((_%e124839124854%_ + (gx#syntax-e _%e124836124846%_))) + (let ((_%hd124840124857%_ (##car _%e124839124854%_)) + (_%tl124841124859%_ (##cdr _%e124839124854%_))) + (let ((_%id124862%_ _%hd124840124857%_)) + (if (gx#stx-pair? _%tl124841124859%_) + (let ((_%e124842124864%_ + (gx#syntax-e _%tl124841124859%_))) + (let ((_%hd124843124867%_ + (##car _%e124842124864%_)) + (_%tl124844124869%_ + (##cdr _%e124842124864%_))) + (if (gx#stx-null? _%tl124844124869%_) (gx#core-bind-syntax!__1 - _%id123575%_ - _%e123547%_ - _%rebind?123548%_) - (_%E123551123563%_)))) - (_%E123551123563%_))))) - (_%E123551123563%_))))) - (_%E123550123585%_)))) + _%id124862%_ + _%e124834%_ + _%rebind?124835%_) + (_%E124838124850%_)))) + (_%E124838124850%_))))) + (_%E124838124850%_))))) + (_%E124837124872%_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_%bind123592%_ _%e123593%_) - (let ((_%rebind?123595%_ '#f)) + (lambda (_%bind124879%_ _%e124880%_) + (let ((_%rebind?124882%_ '#f)) (gx#core-expand-let-bind-syntax!__% - _%bind123592%_ - _%e123593%_ - _%rebind?123595%_)))) + _%bind124879%_ + _%e124880%_ + _%rebind?124882%_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g125173_ - (let ((_g125172_ (##length _g125173_))) - (cond ((##fx= _g125172_ 2) - (apply gx#core-expand-let-bind-syntax!__0 _g125173_)) - ((##fx= _g125172_ 3) - (apply gx#core-expand-let-bind-syntax!__% _g125173_)) + (lambda _g126460_ + (let ((_g126459_ (##length _g126460_))) + (cond ((##fx= _g126459_ 2) + (apply gx#core-expand-let-bind-syntax!__0 _g126460_)) + ((##fx= _g126459_ 3) + (apply gx#core-expand-let-bind-syntax!__% _g126460_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-let-bind-syntax! - _g125173_)))))) + _g126460_)))))) (define gx#core-expand-expression% - (lambda (_%stx123504%_) - (let* ((_%e123505123515%_ _%stx123504%_) - (_%E123507123519%_ + (lambda (_%stx124791%_) + (let* ((_%e124792124802%_ _%stx124791%_) + (_%E124794124806%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123505123515%_))) - (_%E123506123541%_ + _%e124792124802%_))) + (_%E124793124828%_ (lambda () - (if (gx#stx-pair? _%e123505123515%_) - (let ((_%e123508123523%_ - (gx#syntax-e _%e123505123515%_))) - (let ((_%hd123509123526%_ (##car _%e123508123523%_)) - (_%tl123510123528%_ (##cdr _%e123508123523%_))) - (if (gx#stx-pair? _%tl123510123528%_) - (let ((_%e123511123531%_ - (gx#syntax-e _%tl123510123528%_))) - (let ((_%hd123512123534%_ - (##car _%e123511123531%_)) - (_%tl123513123536%_ - (##cdr _%e123511123531%_))) - (let ((_%expr123539%_ _%hd123512123534%_)) - (if (gx#stx-null? _%tl123513123536%_) + (if (gx#stx-pair? _%e124792124802%_) + (let ((_%e124795124810%_ + (gx#syntax-e _%e124792124802%_))) + (let ((_%hd124796124813%_ (##car _%e124795124810%_)) + (_%tl124797124815%_ (##cdr _%e124795124810%_))) + (if (gx#stx-pair? _%tl124797124815%_) + (let ((_%e124798124818%_ + (gx#syntax-e _%tl124797124815%_))) + (let ((_%hd124799124821%_ + (##car _%e124798124818%_)) + (_%tl124800124823%_ + (##cdr _%e124798124818%_))) + (let ((_%expr124826%_ _%hd124799124821%_)) + (if (gx#stx-null? _%tl124800124823%_) (gx#core-expand-expression - _%expr123539%_) - (_%E123507123519%_))))) - (_%E123507123519%_)))) - (_%E123507123519%_))))) - (_%E123506123541%_)))) + _%expr124826%_) + (_%E124794124806%_))))) + (_%E124794124806%_)))) + (_%E124794124806%_))))) + (_%E124793124828%_)))) (define gx#core-expand-quote% - (lambda (_%stx123463%_) - (let* ((_%e123464123474%_ _%stx123463%_) - (_%E123466123478%_ + (lambda (_%stx124750%_) + (let* ((_%e124751124761%_ _%stx124750%_) + (_%E124753124765%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123464123474%_))) - (_%E123465123500%_ + _%e124751124761%_))) + (_%E124752124787%_ (lambda () - (if (gx#stx-pair? _%e123464123474%_) - (let ((_%e123467123482%_ - (gx#syntax-e _%e123464123474%_))) - (let ((_%hd123468123485%_ (##car _%e123467123482%_)) - (_%tl123469123487%_ (##cdr _%e123467123482%_))) - (if (gx#stx-pair? _%tl123469123487%_) - (let ((_%e123470123490%_ - (gx#syntax-e _%tl123469123487%_))) - (let ((_%hd123471123493%_ - (##car _%e123470123490%_)) - (_%tl123472123495%_ - (##cdr _%e123470123490%_))) - (let ((_%e123498%_ _%hd123471123493%_)) - (if (gx#stx-null? _%tl123472123495%_) + (if (gx#stx-pair? _%e124751124761%_) + (let ((_%e124754124769%_ + (gx#syntax-e _%e124751124761%_))) + (let ((_%hd124755124772%_ (##car _%e124754124769%_)) + (_%tl124756124774%_ (##cdr _%e124754124769%_))) + (if (gx#stx-pair? _%tl124756124774%_) + (let ((_%e124757124777%_ + (gx#syntax-e _%tl124756124774%_))) + (let ((_%hd124758124780%_ + (##car _%e124757124777%_)) + (_%tl124759124782%_ + (##cdr _%e124757124777%_))) + (let ((_%e124785%_ _%hd124758124780%_)) + (if (gx#stx-null? _%tl124759124782%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _%e123498%_) + _%e124785%_) '())) - (gx#stx-source _%stx123463%_)) - (_%E123466123478%_))))) - (_%E123466123478%_)))) - (_%E123466123478%_))))) - (_%E123465123500%_)))) + (gx#stx-source _%stx124750%_)) + (_%E124753124765%_))))) + (_%E124753124765%_)))) + (_%E124753124765%_))))) + (_%E124752124787%_)))) (define gx#core-expand-quote-syntax% - (lambda (_%stx123422%_) - (let* ((_%e123423123433%_ _%stx123422%_) - (_%E123425123437%_ + (lambda (_%stx124709%_) + (let* ((_%e124710124720%_ _%stx124709%_) + (_%E124712124724%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123423123433%_))) - (_%E123424123459%_ + _%e124710124720%_))) + (_%E124711124746%_ (lambda () - (if (gx#stx-pair? _%e123423123433%_) - (let ((_%e123426123441%_ - (gx#syntax-e _%e123423123433%_))) - (let ((_%hd123427123444%_ (##car _%e123426123441%_)) - (_%tl123428123446%_ (##cdr _%e123426123441%_))) - (if (gx#stx-pair? _%tl123428123446%_) - (let ((_%e123429123449%_ - (gx#syntax-e _%tl123428123446%_))) - (let ((_%hd123430123452%_ - (##car _%e123429123449%_)) - (_%tl123431123454%_ - (##cdr _%e123429123449%_))) - (let ((_%e123457%_ _%hd123430123452%_)) - (if (gx#stx-null? _%tl123431123454%_) + (if (gx#stx-pair? _%e124710124720%_) + (let ((_%e124713124728%_ + (gx#syntax-e _%e124710124720%_))) + (let ((_%hd124714124731%_ (##car _%e124713124728%_)) + (_%tl124715124733%_ (##cdr _%e124713124728%_))) + (if (gx#stx-pair? _%tl124715124733%_) + (let ((_%e124716124736%_ + (gx#syntax-e _%tl124715124733%_))) + (let ((_%hd124717124739%_ + (##car _%e124716124736%_)) + (_%tl124718124741%_ + (##cdr _%e124716124736%_))) + (let ((_%e124744%_ _%hd124717124739%_)) + (if (gx#stx-null? _%tl124718124741%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _%e123457%_) + _%e124744%_) '())) - (gx#stx-source _%stx123422%_)) - (_%E123425123437%_))))) - (_%E123425123437%_)))) - (_%E123425123437%_))))) - (_%E123424123459%_)))) + (gx#stx-source _%stx124709%_)) + (_%E124712124724%_))))) + (_%E124712124724%_)))) + (_%E124712124724%_))))) + (_%E124711124746%_)))) (define gx#core-expand-call% - (lambda (_%stx123379%_) - (let* ((_%e123380123390%_ _%stx123379%_) - (_%E123382123394%_ + (lambda (_%stx124666%_) + (let* ((_%e124667124677%_ _%stx124666%_) + (_%E124669124681%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123380123390%_))) - (_%E123381123418%_ + _%e124667124677%_))) + (_%E124668124705%_ (lambda () - (if (gx#stx-pair? _%e123380123390%_) - (let ((_%e123383123398%_ - (gx#syntax-e _%e123380123390%_))) - (let ((_%hd123384123401%_ (##car _%e123383123398%_)) - (_%tl123385123403%_ (##cdr _%e123383123398%_))) - (if (gx#stx-pair? _%tl123385123403%_) - (let ((_%e123386123406%_ - (gx#syntax-e _%tl123385123403%_))) - (let ((_%hd123387123409%_ - (##car _%e123386123406%_)) - (_%tl123388123411%_ - (##cdr _%e123386123406%_))) - (let* ((_%rator123414%_ _%hd123387123409%_) - (_%args123416%_ _%tl123388123411%_)) - (if (gx#stx-list? _%args123416%_) + (if (gx#stx-pair? _%e124667124677%_) + (let ((_%e124670124685%_ + (gx#syntax-e _%e124667124677%_))) + (let ((_%hd124671124688%_ (##car _%e124670124685%_)) + (_%tl124672124690%_ (##cdr _%e124670124685%_))) + (if (gx#stx-pair? _%tl124672124690%_) + (let ((_%e124673124693%_ + (gx#syntax-e _%tl124672124690%_))) + (let ((_%hd124674124696%_ + (##car _%e124673124693%_)) + (_%tl124675124698%_ + (##cdr _%e124673124693%_))) + (let* ((_%rator124701%_ _%hd124674124696%_) + (_%args124703%_ _%tl124675124698%_)) + (if (gx#stx-list? _%args124703%_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _%rator123414%_) + _%rator124701%_) (gx#stx-map1 gx#core-expand-expression - _%args123416%_)) - (gx#stx-source _%stx123379%_)) - (_%E123382123394%_))))) - (_%E123382123394%_)))) - (_%E123382123394%_))))) - (_%E123381123418%_)))) + _%args124703%_)) + (gx#stx-source _%stx124666%_)) + (_%E124669124681%_))))) + (_%E124669124681%_)))) + (_%E124669124681%_))))) + (_%E124668124705%_)))) (define gx#core-expand-if% - (lambda (_%stx123312%_) - (let* ((_%e123313123329%_ _%stx123312%_) - (_%E123315123333%_ + (lambda (_%stx124599%_) + (let* ((_%e124600124616%_ _%stx124599%_) + (_%E124602124620%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123313123329%_))) - (_%E123314123375%_ + _%e124600124616%_))) + (_%E124601124662%_ (lambda () - (if (gx#stx-pair? _%e123313123329%_) - (let ((_%e123316123337%_ - (gx#syntax-e _%e123313123329%_))) - (let ((_%hd123317123340%_ (##car _%e123316123337%_)) - (_%tl123318123342%_ (##cdr _%e123316123337%_))) - (if (gx#stx-pair? _%tl123318123342%_) - (let ((_%e123319123345%_ - (gx#syntax-e _%tl123318123342%_))) - (let ((_%hd123320123348%_ - (##car _%e123319123345%_)) - (_%tl123321123350%_ - (##cdr _%e123319123345%_))) - (let ((_%test123353%_ _%hd123320123348%_)) - (if (gx#stx-pair? _%tl123321123350%_) - (let ((_%e123322123355%_ + (if (gx#stx-pair? _%e124600124616%_) + (let ((_%e124603124624%_ + (gx#syntax-e _%e124600124616%_))) + (let ((_%hd124604124627%_ (##car _%e124603124624%_)) + (_%tl124605124629%_ (##cdr _%e124603124624%_))) + (if (gx#stx-pair? _%tl124605124629%_) + (let ((_%e124606124632%_ + (gx#syntax-e _%tl124605124629%_))) + (let ((_%hd124607124635%_ + (##car _%e124606124632%_)) + (_%tl124608124637%_ + (##cdr _%e124606124632%_))) + (let ((_%test124640%_ _%hd124607124635%_)) + (if (gx#stx-pair? _%tl124608124637%_) + (let ((_%e124609124642%_ (gx#syntax-e - _%tl123321123350%_))) - (let ((_%hd123323123358%_ - (##car _%e123322123355%_)) - (_%tl123324123360%_ - (##cdr _%e123322123355%_))) - (let ((_%K123363%_ - _%hd123323123358%_)) + _%tl124608124637%_))) + (let ((_%hd124610124645%_ + (##car _%e124609124642%_)) + (_%tl124611124647%_ + (##cdr _%e124609124642%_))) + (let ((_%K124650%_ + _%hd124610124645%_)) (if (gx#stx-pair? - _%tl123324123360%_) - (let ((_%e123325123365%_ + _%tl124611124647%_) + (let ((_%e124612124652%_ (gx#syntax-e - _%tl123324123360%_))) - (let ((_%hd123326123368%_ - (##car _%e123325123365%_)) - (_%tl123327123370%_ - (##cdr _%e123325123365%_))) - (let ((_%E123373%_ - _%hd123326123368%_)) + _%tl124611124647%_))) + (let ((_%hd124613124655%_ + (##car _%e124612124652%_)) + (_%tl124614124657%_ + (##cdr _%e124612124652%_))) + (let ((_%E124660%_ + _%hd124613124655%_)) (if (gx#stx-null? - _%tl123327123370%_) + _%tl124614124657%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if) - (cons (gx#core-expand-expression _%test123353%_) - (cons (gx#core-expand-expression _%K123363%_) + (cons (gx#core-expand-expression _%test124640%_) + (cons (gx#core-expand-expression _%K124650%_) (cons (gx#core-expand-expression - _%E123373%_) + _%E124660%_) '())))) - (gx#stx-source _%stx123312%_)) - (_%E123315123333%_))))) + (gx#stx-source _%stx124599%_)) + (_%E124602124620%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123315123333%_))))) - (_%E123315123333%_))))) - (_%E123315123333%_)))) - (_%E123315123333%_))))) - (_%E123314123375%_)))) + (_%E124602124620%_))))) + (_%E124602124620%_))))) + (_%E124602124620%_)))) + (_%E124602124620%_))))) + (_%E124601124662%_)))) (define gx#core-expand-ref% - (lambda (_%stx123271%_) - (let* ((_%e123272123282%_ _%stx123271%_) - (_%E123274123286%_ + (lambda (_%stx124558%_) + (let* ((_%e124559124569%_ _%stx124558%_) + (_%E124561124573%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123272123282%_))) - (_%E123273123308%_ + _%e124559124569%_))) + (_%E124560124595%_ (lambda () - (if (gx#stx-pair? _%e123272123282%_) - (let ((_%e123275123290%_ - (gx#syntax-e _%e123272123282%_))) - (let ((_%hd123276123293%_ (##car _%e123275123290%_)) - (_%tl123277123295%_ (##cdr _%e123275123290%_))) - (if (gx#stx-pair? _%tl123277123295%_) - (let ((_%e123278123298%_ - (gx#syntax-e _%tl123277123295%_))) - (let ((_%hd123279123301%_ - (##car _%e123278123298%_)) - (_%tl123280123303%_ - (##cdr _%e123278123298%_))) - (let ((_%id123306%_ _%hd123279123301%_)) - (if (gx#stx-null? _%tl123280123303%_) - (if (gx#identifier? _%id123306%_) + (if (gx#stx-pair? _%e124559124569%_) + (let ((_%e124562124577%_ + (gx#syntax-e _%e124559124569%_))) + (let ((_%hd124563124580%_ (##car _%e124562124577%_)) + (_%tl124564124582%_ (##cdr _%e124562124577%_))) + (if (gx#stx-pair? _%tl124564124582%_) + (let ((_%e124565124585%_ + (gx#syntax-e _%tl124564124582%_))) + (let ((_%hd124566124588%_ + (##car _%e124565124585%_)) + (_%tl124567124590%_ + (##cdr _%e124565124585%_))) + (let ((_%id124593%_ _%hd124566124588%_)) + (if (gx#stx-null? _%tl124567124590%_) + (if (gx#identifier? _%id124593%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _%id123306%_ - _%stx123271%_) + _%id124593%_ + _%stx124558%_) '())) - (gx#stx-source _%stx123271%_)) - (_%E123274123286%_)) - (_%E123274123286%_))))) - (_%E123274123286%_)))) - (_%E123274123286%_))))) - (_%E123273123308%_)))) + (gx#stx-source _%stx124558%_)) + (_%E124561124573%_)) + (_%E124561124573%_))))) + (_%E124561124573%_)))) + (_%E124561124573%_))))) + (_%E124560124595%_)))) (define gx#core-expand-setq% - (lambda (_%stx123217%_) - (let* ((_%e123218123231%_ _%stx123217%_) - (_%E123220123235%_ + (lambda (_%stx124504%_) + (let* ((_%e124505124518%_ _%stx124504%_) + (_%E124507124522%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123218123231%_))) - (_%E123219123267%_ + _%e124505124518%_))) + (_%E124506124554%_ (lambda () - (if (gx#stx-pair? _%e123218123231%_) - (let ((_%e123221123239%_ - (gx#syntax-e _%e123218123231%_))) - (let ((_%hd123222123242%_ (##car _%e123221123239%_)) - (_%tl123223123244%_ (##cdr _%e123221123239%_))) - (if (gx#stx-pair? _%tl123223123244%_) - (let ((_%e123224123247%_ - (gx#syntax-e _%tl123223123244%_))) - (let ((_%hd123225123250%_ - (##car _%e123224123247%_)) - (_%tl123226123252%_ - (##cdr _%e123224123247%_))) - (let ((_%id123255%_ _%hd123225123250%_)) - (if (gx#stx-pair? _%tl123226123252%_) - (let ((_%e123227123257%_ + (if (gx#stx-pair? _%e124505124518%_) + (let ((_%e124508124526%_ + (gx#syntax-e _%e124505124518%_))) + (let ((_%hd124509124529%_ (##car _%e124508124526%_)) + (_%tl124510124531%_ (##cdr _%e124508124526%_))) + (if (gx#stx-pair? _%tl124510124531%_) + (let ((_%e124511124534%_ + (gx#syntax-e _%tl124510124531%_))) + (let ((_%hd124512124537%_ + (##car _%e124511124534%_)) + (_%tl124513124539%_ + (##cdr _%e124511124534%_))) + (let ((_%id124542%_ _%hd124512124537%_)) + (if (gx#stx-pair? _%tl124513124539%_) + (let ((_%e124514124544%_ (gx#syntax-e - _%tl123226123252%_))) - (let ((_%hd123228123260%_ - (##car _%e123227123257%_)) - (_%tl123229123262%_ - (##cdr _%e123227123257%_))) - (let ((_%expr123265%_ - _%hd123228123260%_)) + _%tl124513124539%_))) + (let ((_%hd124515124547%_ + (##car _%e124514124544%_)) + (_%tl124516124549%_ + (##cdr _%e124514124544%_))) + (let ((_%expr124552%_ + _%hd124515124547%_)) (if (gx#stx-null? - _%tl123229123262%_) + _%tl124516124549%_) (if (gx#identifier? - _%id123255%_) + _%id124542%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id123255%_ - _%stx123217%_) - (cons (gx#core-expand-expression _%expr123265%_) + _%id124542%_ + _%stx124504%_) + (cons (gx#core-expand-expression _%expr124552%_) '()))) - (gx#stx-source _%stx123217%_)) - (_%E123220123235%_)) + (gx#stx-source _%stx124504%_)) + (_%E124507124522%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123220123235%_))))) - (_%E123220123235%_))))) - (_%E123220123235%_)))) - (_%E123220123235%_))))) - (_%E123219123267%_)))) + (_%E124507124522%_))))) + (_%E124507124522%_))))) + (_%E124507124522%_)))) + (_%E124507124522%_))))) + (_%E124506124554%_)))) (define gx#macro-expand-extern - (lambda (_%stx123062%_) - (letrec ((_%generate123064%_ - (lambda (_%body123094%_) - (let _%lp123096%_ ((_%rest123098%_ _%body123094%_) - (_%ns123099%_ + (lambda (_%stx124349%_) + (letrec ((_%generate124351%_ + (lambda (_%body124381%_) + (let _%lp124383%_ ((_%rest124385%_ _%body124381%_) + (_%ns124386%_ (gx#core-context-namespace__0)) - (_%r123100%_ '())) - (let* ((_%e123101123116%_ _%rest123098%_) - (_%E123114123120%_ + (_%r124387%_ '())) + (let* ((_%e124388124403%_ _%rest124385%_) + (_%E124401124407%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123101123116%_))) - (_%E123110123124%_ + _%e124388124403%_))) + (_%E124397124411%_ (lambda () - (if (gx#stx-null? _%e123101123116%_) - (reverse _%r123100%_) - (_%E123114123120%_)))) - (_%E123103123181%_ + (if (gx#stx-null? _%e124388124403%_) + (reverse _%r124387%_) + (_%E124401124407%_)))) + (_%E124390124468%_ (lambda () - (if (gx#stx-pair? _%e123101123116%_) - (let ((_%e123111123128%_ - (gx#syntax-e _%e123101123116%_))) - (let ((_%hd123112123131%_ - (##car _%e123111123128%_)) - (_%tl123113123133%_ - (##cdr _%e123111123128%_))) - (let* ((_%hd123136%_ - _%hd123112123131%_) - (_%rest123138%_ - _%tl123113123133%_)) - (if (gx#identifier? _%hd123136%_) - (_%lp123096%_ - _%rest123138%_ - _%ns123099%_ - (cons (cons _%hd123136%_ - (cons (if _%ns123099%_ + (if (gx#stx-pair? _%e124388124403%_) + (let ((_%e124398124415%_ + (gx#syntax-e _%e124388124403%_))) + (let ((_%hd124399124418%_ + (##car _%e124398124415%_)) + (_%tl124400124420%_ + (##cdr _%e124398124415%_))) + (let* ((_%hd124423%_ + _%hd124399124418%_) + (_%rest124425%_ + _%tl124400124420%_)) + (if (gx#identifier? _%hd124423%_) + (_%lp124383%_ + _%rest124425%_ + _%ns124386%_ + (cons (cons _%hd124423%_ + (cons (if _%ns124386%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-identifier - _%hd123136%_ - _%ns123099%_ + _%hd124423%_ + _%ns124386%_ '"#" - _%hd123136%_) - _%hd123136%_) + _%hd124423%_) + _%hd124423%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r123100%_)) - (let* ((_%e123139123149%_ - _%hd123136%_) - (_%E123141123153%_ + _%r124387%_)) + (let* ((_%e124426124436%_ + _%hd124423%_) + (_%E124428124440%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123139123149%_))) - (_%E123140123177%_ + _%e124426124436%_))) + (_%E124427124464%_ (lambda () (if (gx#stx-pair? - _%e123139123149%_) - (let ((_%e123142123157%_ + _%e124426124436%_) + (let ((_%e124429124444%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%e123139123149%_))) - (let ((_%hd123143123160%_ (##car _%e123142123157%_)) - (_%tl123144123162%_ (##cdr _%e123142123157%_))) - (let ((_%id123165%_ _%hd123143123160%_)) - (if (gx#stx-pair? _%tl123144123162%_) - (let ((_%e123145123167%_ - (gx#syntax-e _%tl123144123162%_))) - (let ((_%hd123146123170%_ - (##car _%e123145123167%_)) - (_%tl123147123172%_ - (##cdr _%e123145123167%_))) - (let ((_%eid123175%_ _%hd123146123170%_)) - (if (gx#stx-null? _%tl123147123172%_) - (if (and (gx#identifier? _%id123165%_) + (gx#syntax-e _%e124426124436%_))) + (let ((_%hd124430124447%_ (##car _%e124429124444%_)) + (_%tl124431124449%_ (##cdr _%e124429124444%_))) + (let ((_%id124452%_ _%hd124430124447%_)) + (if (gx#stx-pair? _%tl124431124449%_) + (let ((_%e124432124454%_ + (gx#syntax-e _%tl124431124449%_))) + (let ((_%hd124433124457%_ + (##car _%e124432124454%_)) + (_%tl124434124459%_ + (##cdr _%e124432124454%_))) + (let ((_%eid124462%_ _%hd124433124457%_)) + (if (gx#stx-null? _%tl124434124459%_) + (if (and (gx#identifier? _%id124452%_) (gx#identifier? - _%eid123175%_)) - (_%lp123096%_ - _%rest123138%_ - _%ns123099%_ - (cons (cons _%id123165%_ - (cons _%eid123175%_ + _%eid124462%_)) + (_%lp124383%_ + _%rest124425%_ + _%ns124386%_ + (cons (cons _%id124452%_ + (cons _%eid124462%_ '())) - _%r123100%_)) - (_%E123141123153%_)) - (_%E123141123153%_))))) - (_%E123141123153%_))))) - (_%E123141123153%_))))) + _%r124387%_)) + (_%E124428124440%_)) + (_%E124428124440%_))))) + (_%E124428124440%_))))) + (_%E124428124440%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123140123177%_)))))) - (_%E123110123124%_)))) - (_%E123102123213%_ + (_%E124427124464%_)))))) + (_%E124397124411%_)))) + (_%E124389124500%_ (lambda () - (if (gx#stx-pair? _%e123101123116%_) - (let ((_%e123104123185%_ - (gx#syntax-e _%e123101123116%_))) - (let ((_%hd123105123188%_ - (##car _%e123104123185%_)) - (_%tl123106123190%_ - (##cdr _%e123104123185%_))) - (if (eq? (gx#stx-e _%hd123105123188%_) + (if (gx#stx-pair? _%e124388124403%_) + (let ((_%e124391124472%_ + (gx#syntax-e _%e124388124403%_))) + (let ((_%hd124392124475%_ + (##car _%e124391124472%_)) + (_%tl124393124477%_ + (##cdr _%e124391124472%_))) + (if (eq? (gx#stx-e _%hd124392124475%_) 'namespace:) (if (gx#stx-pair? - _%tl123106123190%_) - (let ((_%e123107123193%_ + _%tl124393124477%_) + (let ((_%e124394124480%_ (gx#syntax-e - _%tl123106123190%_))) - (let ((_%hd123108123196%_ - (##car _%e123107123193%_)) - (_%tl123109123198%_ - (##cdr _%e123107123193%_))) - (let* ((_%ns123201%_ - _%hd123108123196%_) - (_%rest123203%_ - _%tl123109123198%_) - (_%ns123211%_ + _%tl124393124477%_))) + (let ((_%hd124395124483%_ + (##car _%e124394124480%_)) + (_%tl124396124485%_ + (##cdr _%e124394124480%_))) + (let* ((_%ns124488%_ + _%hd124395124483%_) + (_%rest124490%_ + _%tl124396124485%_) + (_%ns124498%_ (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%ns123201%_) - (symbol->string (gx#stx-e _%ns123201%_)) - (if (or (gx#stx-string? _%ns123201%_) - (gx#stx-false? _%ns123201%_)) - (gx#stx-e _%ns123201%_) + _%ns124488%_) + (symbol->string (gx#stx-e _%ns124488%_)) + (if (or (gx#stx-string? _%ns124488%_) + (gx#stx-false? _%ns124488%_)) + (gx#stx-e _%ns124488%_) (gx#raise-syntax-error '#f '"Bad syntax; extern expects namespace identifier" - _%stx123062%_ - _%ns123201%_))))) - (_%lp123096%_ _%rest123203%_ _%ns123211%_ _%r123100%_)))) + _%stx124349%_ + _%ns124488%_))))) + (_%lp124383%_ _%rest124490%_ _%ns124498%_ _%r124387%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123103123181%_)) - (_%E123103123181%_)))) - (_%E123103123181%_))))) - (_%E123102123213%_)))))) - (let* ((_%e123065123072%_ _%stx123062%_) - (_%E123067123076%_ + (_%E124390124468%_)) + (_%E124390124468%_)))) + (_%E124390124468%_))))) + (_%E124389124500%_)))))) + (let* ((_%e124352124359%_ _%stx124349%_) + (_%E124354124363%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123065123072%_))) - (_%E123066123090%_ + _%e124352124359%_))) + (_%E124353124377%_ (lambda () - (if (gx#stx-pair? _%e123065123072%_) - (let ((_%e123068123080%_ - (gx#syntax-e _%e123065123072%_))) - (let ((_%hd123069123083%_ (##car _%e123068123080%_)) - (_%tl123070123085%_ (##cdr _%e123068123080%_))) - (let ((_%body123088%_ _%tl123070123085%_)) - (if (gx#stx-list? _%body123088%_) + (if (gx#stx-pair? _%e124352124359%_) + (let ((_%e124355124367%_ + (gx#syntax-e _%e124352124359%_))) + (let ((_%hd124356124370%_ (##car _%e124355124367%_)) + (_%tl124357124372%_ (##cdr _%e124355124367%_))) + (let ((_%body124375%_ _%tl124357124372%_)) + (if (gx#stx-list? _%body124375%_) (gx#core-cons '%#extern - (_%generate123064%_ _%body123088%_)) - (_%E123067123076%_))))) - (_%E123067123076%_))))) - (_%E123066123090%_))))) + (_%generate124351%_ _%body124375%_)) + (_%E124354124363%_))))) + (_%E124354124363%_))))) + (_%E124353124377%_))))) (define gx#macro-expand-define-values - (lambda (_%stx123008%_) - (let* ((_%e123009123022%_ _%stx123008%_) - (_%E123011123026%_ + (lambda (_%stx124295%_) + (let* ((_%e124296124309%_ _%stx124295%_) + (_%E124298124313%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123009123022%_))) - (_%E123010123058%_ + _%e124296124309%_))) + (_%E124297124345%_ (lambda () - (if (gx#stx-pair? _%e123009123022%_) - (let ((_%e123012123030%_ - (gx#syntax-e _%e123009123022%_))) - (let ((_%hd123013123033%_ (##car _%e123012123030%_)) - (_%tl123014123035%_ (##cdr _%e123012123030%_))) - (if (gx#stx-pair? _%tl123014123035%_) - (let ((_%e123015123038%_ - (gx#syntax-e _%tl123014123035%_))) - (let ((_%hd123016123041%_ - (##car _%e123015123038%_)) - (_%tl123017123043%_ - (##cdr _%e123015123038%_))) - (let ((_%hd123046%_ _%hd123016123041%_)) - (if (gx#stx-pair? _%tl123017123043%_) - (let ((_%e123018123048%_ + (if (gx#stx-pair? _%e124296124309%_) + (let ((_%e124299124317%_ + (gx#syntax-e _%e124296124309%_))) + (let ((_%hd124300124320%_ (##car _%e124299124317%_)) + (_%tl124301124322%_ (##cdr _%e124299124317%_))) + (if (gx#stx-pair? _%tl124301124322%_) + (let ((_%e124302124325%_ + (gx#syntax-e _%tl124301124322%_))) + (let ((_%hd124303124328%_ + (##car _%e124302124325%_)) + (_%tl124304124330%_ + (##cdr _%e124302124325%_))) + (let ((_%hd124333%_ _%hd124303124328%_)) + (if (gx#stx-pair? _%tl124304124330%_) + (let ((_%e124305124335%_ (gx#syntax-e - _%tl123017123043%_))) - (let ((_%hd123019123051%_ - (##car _%e123018123048%_)) - (_%tl123020123053%_ - (##cdr _%e123018123048%_))) - (let ((_%expr123056%_ - _%hd123019123051%_)) + _%tl124304124330%_))) + (let ((_%hd124306124338%_ + (##car _%e124305124335%_)) + (_%tl124307124340%_ + (##cdr _%e124305124335%_))) + (let ((_%expr124343%_ + _%hd124306124338%_)) (if (gx#stx-null? - _%tl123020123053%_) + _%tl124307124340%_) (if (gx#stx-andmap gx#identifier? - _%hd123046%_) + _%hd124333%_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%hd123046%_) - (cons _%expr123056%_ '()))) - (_%E123011123026%_)) + _%hd124333%_) + (cons _%expr124343%_ '()))) + (_%E124298124313%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123011123026%_))))) - (_%E123011123026%_))))) - (_%E123011123026%_)))) - (_%E123011123026%_))))) - (_%E123010123058%_)))) + (_%E124298124313%_))))) + (_%E124298124313%_))))) + (_%E124298124313%_)))) + (_%E124298124313%_))))) + (_%E124297124345%_)))) (define gx#macro-expand-define-syntax - (lambda (_%stx122954%_) - (let* ((_%e122955122968%_ _%stx122954%_) - (_%E122957122972%_ + (lambda (_%stx124241%_) + (let* ((_%e124242124255%_ _%stx124241%_) + (_%E124244124259%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122955122968%_))) - (_%E122956123004%_ + _%e124242124255%_))) + (_%E124243124291%_ (lambda () - (if (gx#stx-pair? _%e122955122968%_) - (let ((_%e122958122976%_ - (gx#syntax-e _%e122955122968%_))) - (let ((_%hd122959122979%_ (##car _%e122958122976%_)) - (_%tl122960122981%_ (##cdr _%e122958122976%_))) - (if (gx#stx-pair? _%tl122960122981%_) - (let ((_%e122961122984%_ - (gx#syntax-e _%tl122960122981%_))) - (let ((_%hd122962122987%_ - (##car _%e122961122984%_)) - (_%tl122963122989%_ - (##cdr _%e122961122984%_))) - (let ((_%hd122992%_ _%hd122962122987%_)) - (if (gx#stx-pair? _%tl122963122989%_) - (let ((_%e122964122994%_ + (if (gx#stx-pair? _%e124242124255%_) + (let ((_%e124245124263%_ + (gx#syntax-e _%e124242124255%_))) + (let ((_%hd124246124266%_ (##car _%e124245124263%_)) + (_%tl124247124268%_ (##cdr _%e124245124263%_))) + (if (gx#stx-pair? _%tl124247124268%_) + (let ((_%e124248124271%_ + (gx#syntax-e _%tl124247124268%_))) + (let ((_%hd124249124274%_ + (##car _%e124248124271%_)) + (_%tl124250124276%_ + (##cdr _%e124248124271%_))) + (let ((_%hd124279%_ _%hd124249124274%_)) + (if (gx#stx-pair? _%tl124250124276%_) + (let ((_%e124251124281%_ (gx#syntax-e - _%tl122963122989%_))) - (let ((_%hd122965122997%_ - (##car _%e122964122994%_)) - (_%tl122966122999%_ - (##cdr _%e122964122994%_))) - (let ((_%expr123002%_ - _%hd122965122997%_)) + _%tl124250124276%_))) + (let ((_%hd124252124284%_ + (##car _%e124251124281%_)) + (_%tl124253124286%_ + (##cdr _%e124251124281%_))) + (let ((_%expr124289%_ + _%hd124252124284%_)) (if (gx#stx-null? - _%tl122966122999%_) + _%tl124253124286%_) (if (gx#identifier? - _%hd122992%_) + _%hd124279%_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _%hd122992%_ + (cons _%hd124279%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr123002%_ '()))) - (_%E122957122972%_)) + (cons _%expr124289%_ '()))) + (_%E124244124259%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122957122972%_))))) - (_%E122957122972%_))))) - (_%E122957122972%_)))) - (_%E122957122972%_))))) - (_%E122956123004%_)))) + (_%E124244124259%_))))) + (_%E124244124259%_))))) + (_%E124244124259%_)))) + (_%E124244124259%_))))) + (_%E124243124291%_)))) (define gx#macro-expand-define-alias - (lambda (_%stx122900%_) - (let* ((_%e122901122914%_ _%stx122900%_) - (_%E122903122918%_ + (lambda (_%stx124187%_) + (let* ((_%e124188124201%_ _%stx124187%_) + (_%E124190124205%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122901122914%_))) - (_%E122902122950%_ + _%e124188124201%_))) + (_%E124189124237%_ (lambda () - (if (gx#stx-pair? _%e122901122914%_) - (let ((_%e122904122922%_ - (gx#syntax-e _%e122901122914%_))) - (let ((_%hd122905122925%_ (##car _%e122904122922%_)) - (_%tl122906122927%_ (##cdr _%e122904122922%_))) - (if (gx#stx-pair? _%tl122906122927%_) - (let ((_%e122907122930%_ - (gx#syntax-e _%tl122906122927%_))) - (let ((_%hd122908122933%_ - (##car _%e122907122930%_)) - (_%tl122909122935%_ - (##cdr _%e122907122930%_))) - (let ((_%id122938%_ _%hd122908122933%_)) - (if (gx#stx-pair? _%tl122909122935%_) - (let ((_%e122910122940%_ + (if (gx#stx-pair? _%e124188124201%_) + (let ((_%e124191124209%_ + (gx#syntax-e _%e124188124201%_))) + (let ((_%hd124192124212%_ (##car _%e124191124209%_)) + (_%tl124193124214%_ (##cdr _%e124191124209%_))) + (if (gx#stx-pair? _%tl124193124214%_) + (let ((_%e124194124217%_ + (gx#syntax-e _%tl124193124214%_))) + (let ((_%hd124195124220%_ + (##car _%e124194124217%_)) + (_%tl124196124222%_ + (##cdr _%e124194124217%_))) + (let ((_%id124225%_ _%hd124195124220%_)) + (if (gx#stx-pair? _%tl124196124222%_) + (let ((_%e124197124227%_ (gx#syntax-e - _%tl122909122935%_))) - (let ((_%hd122911122943%_ - (##car _%e122910122940%_)) - (_%tl122912122945%_ - (##cdr _%e122910122940%_))) - (let ((_%alias-id122948%_ - _%hd122911122943%_)) + _%tl124196124222%_))) + (let ((_%hd124198124230%_ + (##car _%e124197124227%_)) + (_%tl124199124232%_ + (##cdr _%e124197124227%_))) + (let ((_%alias-id124235%_ + _%hd124198124230%_)) (if (gx#stx-null? - _%tl122912122945%_) + _%tl124199124232%_) (if (and (gx#identifier? - _%id122938%_) + _%id124225%_) (gx#identifier? - _%alias-id122948%_)) + _%alias-id124235%_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _%id122938%_ + (cons _%id124225%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%alias-id122948%_ '()))) - (_%E122903122918%_)) + (cons _%alias-id124235%_ '()))) + (_%E124190124205%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122903122918%_))))) - (_%E122903122918%_))))) - (_%E122903122918%_)))) - (_%E122903122918%_))))) - (_%E122902122950%_)))) + (_%E124190124205%_))))) + (_%E124190124205%_))))) + (_%E124190124205%_)))) + (_%E124190124205%_))))) + (_%E124189124237%_)))) (define gx#macro-expand-lambda% - (lambda (_%stx122857%_) - (let* ((_%e122858122868%_ _%stx122857%_) - (_%E122860122872%_ + (lambda (_%stx124144%_) + (let* ((_%e124145124155%_ _%stx124144%_) + (_%E124147124159%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122858122868%_))) - (_%E122859122896%_ + _%e124145124155%_))) + (_%E124146124183%_ (lambda () - (if (gx#stx-pair? _%e122858122868%_) - (let ((_%e122861122876%_ - (gx#syntax-e _%e122858122868%_))) - (let ((_%hd122862122879%_ (##car _%e122861122876%_)) - (_%tl122863122881%_ (##cdr _%e122861122876%_))) - (if (gx#stx-pair? _%tl122863122881%_) - (let ((_%e122864122884%_ - (gx#syntax-e _%tl122863122881%_))) - (let ((_%hd122865122887%_ - (##car _%e122864122884%_)) - (_%tl122866122889%_ - (##cdr _%e122864122884%_))) - (let* ((_%hd122892%_ _%hd122865122887%_) - (_%body122894%_ _%tl122866122889%_)) + (if (gx#stx-pair? _%e124145124155%_) + (let ((_%e124148124163%_ + (gx#syntax-e _%e124145124155%_))) + (let ((_%hd124149124166%_ (##car _%e124148124163%_)) + (_%tl124150124168%_ (##cdr _%e124148124163%_))) + (if (gx#stx-pair? _%tl124150124168%_) + (let ((_%e124151124171%_ + (gx#syntax-e _%tl124150124168%_))) + (let ((_%hd124152124174%_ + (##car _%e124151124171%_)) + (_%tl124153124176%_ + (##cdr _%e124151124171%_))) + (let* ((_%hd124179%_ _%hd124152124174%_) + (_%body124181%_ _%tl124153124176%_)) (if (and (gx#stx-andmap gx#identifier? - _%hd122892%_) - (gx#stx-list? _%body122894%_) + _%hd124179%_) + (gx#stx-list? _%body124181%_) (not (gx#stx-null? - _%body122894%_))) + _%body124181%_))) (gx#core-cons* '%#lambda - (gx#stx-map1 identity _%hd122892%_) - _%body122894%_) - (_%E122860122872%_))))) - (_%E122860122872%_)))) - (_%E122860122872%_))))) - (_%E122859122896%_)))) + (gx#stx-map1 identity _%hd124179%_) + _%body124181%_) + (_%E124147124159%_))))) + (_%E124147124159%_)))) + (_%E124147124159%_))))) + (_%E124146124183%_)))) (define gx#macro-expand-case-lambda - (lambda (_%stx122793%_) - (letrec ((_%generate122795%_ - (lambda (_%clause122825%_) - (let* ((_%e122826122833%_ _%clause122825%_) - (_%E122828122837%_ + (lambda (_%stx124080%_) + (letrec ((_%generate124082%_ + (lambda (_%clause124112%_) + (let* ((_%e124113124120%_ _%clause124112%_) + (_%E124115124124%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _%stx122793%_ - _%clause122825%_))) - (_%E122827122853%_ + _%stx124080%_ + _%clause124112%_))) + (_%E124114124140%_ (lambda () - (if (gx#stx-pair? _%e122826122833%_) - (let ((_%e122829122841%_ - (gx#syntax-e _%e122826122833%_))) - (let ((_%hd122830122844%_ - (##car _%e122829122841%_)) - (_%tl122831122846%_ - (##cdr _%e122829122841%_))) - (let* ((_%hd122849%_ _%hd122830122844%_) - (_%body122851%_ - _%tl122831122846%_)) + (if (gx#stx-pair? _%e124113124120%_) + (let ((_%e124116124128%_ + (gx#syntax-e _%e124113124120%_))) + (let ((_%hd124117124131%_ + (##car _%e124116124128%_)) + (_%tl124118124133%_ + (##cdr _%e124116124128%_))) + (let* ((_%hd124136%_ _%hd124117124131%_) + (_%body124138%_ + _%tl124118124133%_)) (if (and (gx#stx-andmap gx#identifier? - _%hd122849%_) - (gx#stx-list? _%body122851%_) + _%hd124136%_) + (gx#stx-list? _%body124138%_) (not (gx#stx-null? - _%body122851%_))) + _%body124138%_))) (gx#stx-wrap-source (cons (gx#stx-map1 identity - _%hd122849%_) - _%body122851%_) - (gx#stx-source _%clause122825%_)) - (_%E122828122837%_))))) - (_%E122828122837%_))))) - (_%E122827122853%_))))) - (let* ((_%e122796122803%_ _%stx122793%_) - (_%E122798122807%_ + _%hd124136%_) + _%body124138%_) + (gx#stx-source _%clause124112%_)) + (_%E124115124124%_))))) + (_%E124115124124%_))))) + (_%E124114124140%_))))) + (let* ((_%e124083124090%_ _%stx124080%_) + (_%E124085124094%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122796122803%_))) - (_%E122797122821%_ + _%e124083124090%_))) + (_%E124084124108%_ (lambda () - (if (gx#stx-pair? _%e122796122803%_) - (let ((_%e122799122811%_ - (gx#syntax-e _%e122796122803%_))) - (let ((_%hd122800122814%_ (##car _%e122799122811%_)) - (_%tl122801122816%_ (##cdr _%e122799122811%_))) - (let ((_%clauses122819%_ _%tl122801122816%_)) - (if (gx#stx-list? _%clauses122819%_) + (if (gx#stx-pair? _%e124083124090%_) + (let ((_%e124086124098%_ + (gx#syntax-e _%e124083124090%_))) + (let ((_%hd124087124101%_ (##car _%e124086124098%_)) + (_%tl124088124103%_ (##cdr _%e124086124098%_))) + (let ((_%clauses124106%_ _%tl124088124103%_)) + (if (gx#stx-list? _%clauses124106%_) (gx#core-cons '%#case-lambda (gx#stx-map1 - _%generate122795%_ - _%clauses122819%_)) - (_%E122798122807%_))))) - (_%E122798122807%_))))) - (_%E122797122821%_))))) + _%generate124082%_ + _%clauses124106%_)) + (_%E124085124094%_))))) + (_%E124085124094%_))))) + (_%E124084124108%_))))) (define gx#macro-expand-let-values__% - (lambda (_%stx122694%_ _%form122695%_) - (letrec ((_%generate122697%_ - (lambda (_%bind122740%_) - (let* ((_%e122741122751%_ _%bind122740%_) - (_%E122743122755%_ + (lambda (_%stx123981%_ _%form123982%_) + (letrec ((_%generate123984%_ + (lambda (_%bind124027%_) + (let* ((_%e124028124038%_ _%bind124027%_) + (_%E124030124042%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _%stx122694%_ - _%bind122740%_))) - (_%E122742122779%_ + _%stx123981%_ + _%bind124027%_))) + (_%E124029124066%_ (lambda () - (if (gx#stx-pair? _%e122741122751%_) - (let ((_%e122744122759%_ - (gx#syntax-e _%e122741122751%_))) - (let ((_%hd122745122762%_ - (##car _%e122744122759%_)) - (_%tl122746122764%_ - (##cdr _%e122744122759%_))) - (let ((_%ids122767%_ _%hd122745122762%_)) - (if (gx#stx-pair? _%tl122746122764%_) - (let ((_%e122747122769%_ + (if (gx#stx-pair? _%e124028124038%_) + (let ((_%e124031124046%_ + (gx#syntax-e _%e124028124038%_))) + (let ((_%hd124032124049%_ + (##car _%e124031124046%_)) + (_%tl124033124051%_ + (##cdr _%e124031124046%_))) + (let ((_%ids124054%_ _%hd124032124049%_)) + (if (gx#stx-pair? _%tl124033124051%_) + (let ((_%e124034124056%_ (gx#syntax-e - _%tl122746122764%_))) - (let ((_%hd122748122772%_ - (##car _%e122747122769%_)) - (_%tl122749122774%_ - (##cdr _%e122747122769%_))) - (let ((_%expr122777%_ - _%hd122748122772%_)) + _%tl124033124051%_))) + (let ((_%hd124035124059%_ + (##car _%e124034124056%_)) + (_%tl124036124061%_ + (##cdr _%e124034124056%_))) + (let ((_%expr124064%_ + _%hd124035124059%_)) (if (gx#stx-null? - _%tl122749122774%_) + _%tl124036124061%_) (if (gx#stx-andmap gx#identifier? - _%ids122767%_) + _%ids124054%_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%ids122767%_) - (cons _%expr122777%_ '())) - (_%E122743122755%_)) - (_%E122743122755%_))))) + _%ids124054%_) + (cons _%expr124064%_ '())) + (_%E124030124042%_)) + (_%E124030124042%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122743122755%_))))) - (_%E122743122755%_))))) - (_%E122742122779%_))))) - (let* ((_%e122698122708%_ _%stx122694%_) - (_%E122700122712%_ + (_%E124030124042%_))))) + (_%E124030124042%_))))) + (_%E124029124066%_))))) + (let* ((_%e123985123995%_ _%stx123981%_) + (_%E123987123999%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122698122708%_))) - (_%E122699122736%_ + _%e123985123995%_))) + (_%E123986124023%_ (lambda () - (if (gx#stx-pair? _%e122698122708%_) - (let ((_%e122701122716%_ - (gx#syntax-e _%e122698122708%_))) - (let ((_%hd122702122719%_ (##car _%e122701122716%_)) - (_%tl122703122721%_ (##cdr _%e122701122716%_))) - (if (gx#stx-pair? _%tl122703122721%_) - (let ((_%e122704122724%_ - (gx#syntax-e _%tl122703122721%_))) - (let ((_%hd122705122727%_ - (##car _%e122704122724%_)) - (_%tl122706122729%_ - (##cdr _%e122704122724%_))) - (let* ((_%hd122732%_ _%hd122705122727%_) - (_%body122734%_ _%tl122706122729%_)) - (if (and (gx#stx-list? _%hd122732%_) - (gx#stx-list? _%body122734%_) + (if (gx#stx-pair? _%e123985123995%_) + (let ((_%e123988124003%_ + (gx#syntax-e _%e123985123995%_))) + (let ((_%hd123989124006%_ (##car _%e123988124003%_)) + (_%tl123990124008%_ (##cdr _%e123988124003%_))) + (if (gx#stx-pair? _%tl123990124008%_) + (let ((_%e123991124011%_ + (gx#syntax-e _%tl123990124008%_))) + (let ((_%hd123992124014%_ + (##car _%e123991124011%_)) + (_%tl123993124016%_ + (##cdr _%e123991124011%_))) + (let* ((_%hd124019%_ _%hd123992124014%_) + (_%body124021%_ _%tl123993124016%_)) + (if (and (gx#stx-list? _%hd124019%_) + (gx#stx-list? _%body124021%_) (not (gx#stx-null? - _%body122734%_))) + _%body124021%_))) (gx#core-cons* - _%form122695%_ + _%form123982%_ (gx#stx-map1 - _%generate122697%_ - _%hd122732%_) - _%body122734%_) - (_%E122700122712%_))))) - (_%E122700122712%_)))) - (_%E122700122712%_))))) - (_%E122699122736%_))))) + _%generate123984%_ + _%hd124019%_) + _%body124021%_) + (_%E123987123999%_))))) + (_%E123987123999%_)))) + (_%E123987123999%_))))) + (_%E123986124023%_))))) (define gx#macro-expand-let-values__0 - (lambda (_%stx122786%_) - (let ((_%form122788%_ '%#let-values)) - (gx#macro-expand-let-values__% _%stx122786%_ _%form122788%_)))) + (lambda (_%stx124073%_) + (let ((_%form124075%_ '%#let-values)) + (gx#macro-expand-let-values__% _%stx124073%_ _%form124075%_)))) (define gx#macro-expand-let-values - (lambda _g125175_ - (let ((_g125174_ (##length _g125175_))) - (cond ((##fx= _g125174_ 1) - (apply gx#macro-expand-let-values__0 _g125175_)) - ((##fx= _g125174_ 2) - (apply gx#macro-expand-let-values__% _g125175_)) + (lambda _g126462_ + (let ((_g126461_ (##length _g126462_))) + (cond ((##fx= _g126461_ 1) + (apply gx#macro-expand-let-values__0 _g126462_)) + ((##fx= _g126461_ 2) + (apply gx#macro-expand-let-values__% _g126462_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-let-values - _g125175_)))))) + _g126462_)))))) (define gx#macro-expand-letrec-values - (lambda (_%stx122691%_) - (gx#macro-expand-let-values__% _%stx122691%_ '%#letrec-values))) + (lambda (_%stx123978%_) + (gx#macro-expand-let-values__% _%stx123978%_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_%stx122689%_) - (gx#macro-expand-let-values__% _%stx122689%_ '%#letrec*-values))) + (lambda (_%stx123976%_) + (gx#macro-expand-let-values__% _%stx123976%_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_%stx122580%_) - (let* ((_%e122581122607%_ _%stx122580%_) - (_%E122593122611%_ + (lambda (_%stx123867%_) + (let* ((_%e123868123894%_ _%stx123867%_) + (_%E123880123898%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122581122607%_))) - (_%E122583122653%_ + _%e123868123894%_))) + (_%E123870123940%_ (lambda () - (if (gx#stx-pair? _%e122581122607%_) - (let ((_%e122594122615%_ - (gx#syntax-e _%e122581122607%_))) - (let ((_%hd122595122618%_ (##car _%e122594122615%_)) - (_%tl122596122620%_ (##cdr _%e122594122615%_))) - (if (gx#stx-pair? _%tl122596122620%_) - (let ((_%e122597122623%_ - (gx#syntax-e _%tl122596122620%_))) - (let ((_%hd122598122626%_ - (##car _%e122597122623%_)) - (_%tl122599122628%_ - (##cdr _%e122597122623%_))) - (let ((_%test122631%_ _%hd122598122626%_)) - (if (gx#stx-pair? _%tl122599122628%_) - (let ((_%e122600122633%_ + (if (gx#stx-pair? _%e123868123894%_) + (let ((_%e123881123902%_ + (gx#syntax-e _%e123868123894%_))) + (let ((_%hd123882123905%_ (##car _%e123881123902%_)) + (_%tl123883123907%_ (##cdr _%e123881123902%_))) + (if (gx#stx-pair? _%tl123883123907%_) + (let ((_%e123884123910%_ + (gx#syntax-e _%tl123883123907%_))) + (let ((_%hd123885123913%_ + (##car _%e123884123910%_)) + (_%tl123886123915%_ + (##cdr _%e123884123910%_))) + (let ((_%test123918%_ _%hd123885123913%_)) + (if (gx#stx-pair? _%tl123886123915%_) + (let ((_%e123887123920%_ (gx#syntax-e - _%tl122599122628%_))) - (let ((_%hd122601122636%_ - (##car _%e122600122633%_)) - (_%tl122602122638%_ - (##cdr _%e122600122633%_))) - (let ((_%K122641%_ - _%hd122601122636%_)) + _%tl123886123915%_))) + (let ((_%hd123888123923%_ + (##car _%e123887123920%_)) + (_%tl123889123925%_ + (##cdr _%e123887123920%_))) + (let ((_%K123928%_ + _%hd123888123923%_)) (if (gx#stx-pair? - _%tl122602122638%_) - (let ((_%e122603122643%_ + _%tl123889123925%_) + (let ((_%e123890123930%_ (gx#syntax-e - _%tl122602122638%_))) - (let ((_%hd122604122646%_ - (##car _%e122603122643%_)) - (_%tl122605122648%_ - (##cdr _%e122603122643%_))) - (let ((_%E122651%_ - _%hd122604122646%_)) + _%tl123889123925%_))) + (let ((_%hd123891123933%_ + (##car _%e123890123930%_)) + (_%tl123892123935%_ + (##cdr _%e123890123930%_))) + (let ((_%E123938%_ + _%hd123891123933%_)) (if (gx#stx-null? - _%tl122605122648%_) + _%tl123892123935%_) (gx#core-list '%#if - _%test122631%_ - _%K122641%_ - _%E122651%_) - (_%E122593122611%_))))) - (_%E122593122611%_))))) - (_%E122593122611%_))))) - (_%E122593122611%_)))) - (_%E122593122611%_)))) - (_%E122582122685%_ + _%test123918%_ + _%K123928%_ + _%E123938%_) + (_%E123880123898%_))))) + (_%E123880123898%_))))) + (_%E123880123898%_))))) + (_%E123880123898%_)))) + (_%E123880123898%_)))) + (_%E123869123972%_ (lambda () - (if (gx#stx-pair? _%e122581122607%_) - (let ((_%e122584122657%_ - (gx#syntax-e _%e122581122607%_))) - (let ((_%hd122585122660%_ (##car _%e122584122657%_)) - (_%tl122586122662%_ (##cdr _%e122584122657%_))) - (if (gx#stx-pair? _%tl122586122662%_) - (let ((_%e122587122665%_ - (gx#syntax-e _%tl122586122662%_))) - (let ((_%hd122588122668%_ - (##car _%e122587122665%_)) - (_%tl122589122670%_ - (##cdr _%e122587122665%_))) - (let ((_%test122673%_ _%hd122588122668%_)) - (if (gx#stx-pair? _%tl122589122670%_) - (let ((_%e122590122675%_ + (if (gx#stx-pair? _%e123868123894%_) + (let ((_%e123871123944%_ + (gx#syntax-e _%e123868123894%_))) + (let ((_%hd123872123947%_ (##car _%e123871123944%_)) + (_%tl123873123949%_ (##cdr _%e123871123944%_))) + (if (gx#stx-pair? _%tl123873123949%_) + (let ((_%e123874123952%_ + (gx#syntax-e _%tl123873123949%_))) + (let ((_%hd123875123955%_ + (##car _%e123874123952%_)) + (_%tl123876123957%_ + (##cdr _%e123874123952%_))) + (let ((_%test123960%_ _%hd123875123955%_)) + (if (gx#stx-pair? _%tl123876123957%_) + (let ((_%e123877123962%_ (gx#syntax-e - _%tl122589122670%_))) - (let ((_%hd122591122678%_ - (##car _%e122590122675%_)) - (_%tl122592122680%_ - (##cdr _%e122590122675%_))) - (let ((_%K122683%_ - _%hd122591122678%_)) + _%tl123876123957%_))) + (let ((_%hd123878123965%_ + (##car _%e123877123962%_)) + (_%tl123879123967%_ + (##cdr _%e123877123962%_))) + (let ((_%K123970%_ + _%hd123878123965%_)) (if (gx#stx-null? - _%tl122592122680%_) + _%tl123879123967%_) (gx#core-list '%#if - _%test122673%_ - _%K122683%_ + _%test123960%_ + _%K123970%_ '#!void) - (_%E122583122653%_))))) - (_%E122583122653%_))))) - (_%E122583122653%_)))) - (_%E122583122653%_))))) - (_%E122582122685%_)))) + (_%E123870123940%_))))) + (_%E123870123940%_))))) + (_%E123870123940%_)))) + (_%E123870123940%_))))) + (_%E123869123972%_)))) (define gx#free-identifier=? - (lambda (_%xid122565%_ _%yid122566%_) - (let ((_%xe122568%_ (gx#resolve-identifier__0 _%xid122565%_)) - (_%ye122569%_ (gx#resolve-identifier__0 _%yid122566%_))) - (if (and _%xe122568%_ _%ye122569%_) - (let ((_%$e122572%_ (eq? _%xe122568%_ _%ye122569%_))) - (if _%$e122572%_ - _%$e122572%_ - (if (##structure-instance-of? _%xe122568%_ 'gx#binding::t) + (lambda (_%xid123852%_ _%yid123853%_) + (let ((_%xe123855%_ (gx#resolve-identifier__0 _%xid123852%_)) + (_%ye123856%_ (gx#resolve-identifier__0 _%yid123853%_))) + (if (and _%xe123855%_ _%ye123856%_) + (let ((_%$e123859%_ (eq? _%xe123855%_ _%ye123856%_))) + (if _%$e123859%_ + _%$e123859%_ + (if (##structure-instance-of? _%xe123855%_ 'gx#binding::t) (if (##structure-instance-of? - _%ye122569%_ + _%ye123856%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%xe122568%_ + _%xe123855%_ '1 '#f '#f) (##unchecked-structure-ref - _%ye122569%_ + _%ye123856%_ '1 '#f '#f)) '#f) '#f))) - (if (or _%xe122568%_ _%ye122569%_) + (if (or _%xe123855%_ _%ye123856%_) '#f - (gx#stx-eq? _%xid122565%_ _%yid122566%_)))))) + (gx#stx-eq? _%xid123852%_ _%yid123853%_)))))) (define gx#bound-identifier=? - (lambda (_%xid122546%_ _%yid122547%_) - (letrec ((_%context122549%_ - (lambda (_%e122563%_) + (lambda (_%xid123833%_ _%yid123834%_) + (letrec ((_%context123836%_ + (lambda (_%e123850%_) (if (##structure-direct-instance-of? - _%e122563%_ + _%e123850%_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _%e122563%_ '3 '#f '#f) + (##unchecked-structure-ref _%e123850%_ '3 '#f '#f) (gx#current-expander-context)))) - (_%marks122550%_ - (lambda (_%e122558%_) - (if (symbol? _%e122558%_) + (_%marks123837%_ + (lambda (_%e123845%_) + (if (symbol? _%e123845%_) '() (if (##structure-direct-instance-of? - _%e122558%_ + _%e123845%_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _%e122558%_ '3 '#f '#f) + (##unchecked-structure-ref _%e123845%_ '3 '#f '#f) (##unchecked-structure-ref - _%e122558%_ + _%e123845%_ '4 '#f '#f))))) - (_%unwrap122551%_ - (lambda (_%e122556%_) - (if (symbol? _%e122556%_) - _%e122556%_ - (gx#syntax-local-unwrap _%e122556%_))))) - (let ((_%x122553%_ (_%unwrap122551%_ _%xid122546%_)) - (_%y122554%_ (_%unwrap122551%_ _%yid122547%_))) - (if (gx#stx-eq? _%x122553%_ _%y122554%_) - (if (eq? (_%context122549%_ _%x122553%_) - (_%context122549%_ _%y122554%_)) - (equal? (_%marks122550%_ _%x122553%_) - (_%marks122550%_ _%y122554%_)) + (_%unwrap123838%_ + (lambda (_%e123843%_) + (if (symbol? _%e123843%_) + _%e123843%_ + (gx#syntax-local-unwrap _%e123843%_))))) + (let ((_%x123840%_ (_%unwrap123838%_ _%xid123833%_)) + (_%y123841%_ (_%unwrap123838%_ _%yid123834%_))) + (if (gx#stx-eq? _%x123840%_ _%y123841%_) + (if (eq? (_%context123836%_ _%x123840%_) + (_%context123836%_ _%y123841%_)) + (equal? (_%marks123837%_ _%x123840%_) + (_%marks123837%_ _%y123841%_)) '#f) '#f))))) (define gx#underscore? - (lambda (_%stx122544%_) - (if (gx#identifier? _%stx122544%_) - (gx#core-identifier=? _%stx122544%_ '_) + (lambda (_%stx123831%_) + (if (gx#identifier? _%stx123831%_) + (gx#core-identifier=? _%stx123831%_ '_) '#f))) (define gx#ellipsis? - (lambda (_%stx122542%_) - (if (gx#identifier? _%stx122542%_) - (gx#core-identifier=? _%stx122542%_ '...) + (lambda (_%stx123829%_) + (if (gx#identifier? _%stx123829%_) + (gx#core-identifier=? _%stx123829%_ '...) '#f))) (define gx#check-duplicate-identifiers__% - (lambda (_%stx122485%_ _%where122486%_) - (let _%lp122488%_ ((_%rest122490%_ (gx#syntax->list _%stx122485%_))) - (let* ((_%rest122491122499%_ _%rest122490%_) - (_%else122493122507%_ (lambda () '#t)) - (_%K122495122520%_ - (lambda (_%rest122510%_ _%hd122511%_) - (if (gx#identifier? _%hd122511%_) - (if (__find (lambda (_%g122513122515%_) + (lambda (_%stx123772%_ _%where123773%_) + (let _%lp123775%_ ((_%rest123777%_ (gx#syntax->list _%stx123772%_))) + (let* ((_%rest123778123786%_ _%rest123777%_) + (_%else123780123794%_ (lambda () '#t)) + (_%K123782123807%_ + (lambda (_%rest123797%_ _%hd123798%_) + (if (gx#identifier? _%hd123798%_) + (if (__find (lambda (_%g123800123802%_) (gx#bound-identifier=? - _%g122513122515%_ - _%hd122511%_)) - _%rest122510%_) + _%g123800123802%_ + _%hd123798%_)) + _%rest123797%_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _%where122486%_ - _%hd122511%_) - (_%lp122488%_ _%rest122510%_)) + _%where123773%_ + _%hd123798%_) + (_%lp123775%_ _%rest123797%_)) (gx#raise-syntax-error '#f '"Bad identifier" - _%where122486%_ - _%hd122511%_))))) - (if (pair? _%rest122491122499%_) - (let ((_%hd122496122523%_ (##car _%rest122491122499%_)) - (_%tl122497122525%_ (##cdr _%rest122491122499%_))) - (let* ((_%hd122528%_ _%hd122496122523%_) - (_%rest122530%_ _%tl122497122525%_)) - (_%K122495122520%_ _%rest122530%_ _%hd122528%_))) - (_%else122493122507%_)))))) + _%where123773%_ + _%hd123798%_))))) + (if (pair? _%rest123778123786%_) + (let ((_%hd123783123810%_ (##car _%rest123778123786%_)) + (_%tl123784123812%_ (##cdr _%rest123778123786%_))) + (let* ((_%hd123815%_ _%hd123783123810%_) + (_%rest123817%_ _%tl123784123812%_)) + (_%K123782123807%_ _%rest123817%_ _%hd123815%_))) + (_%else123780123794%_)))))) (define gx#check-duplicate-identifiers__0 - (lambda (_%stx122535%_) - (let ((_%where122537%_ _%stx122535%_)) - (gx#check-duplicate-identifiers__% _%stx122535%_ _%where122537%_)))) + (lambda (_%stx123822%_) + (let ((_%where123824%_ _%stx123822%_)) + (gx#check-duplicate-identifiers__% _%stx123822%_ _%where123824%_)))) (define gx#check-duplicate-identifiers - (lambda _g125177_ - (let ((_g125176_ (##length _g125177_))) - (cond ((##fx= _g125176_ 1) - (apply gx#check-duplicate-identifiers__0 _g125177_)) - ((##fx= _g125176_ 2) - (apply gx#check-duplicate-identifiers__% _g125177_)) + (lambda _g126464_ + (let ((_g126463_ (##length _g126464_))) + (cond ((##fx= _g126463_ 1) + (apply gx#check-duplicate-identifiers__0 _g126464_)) + ((##fx= _g126463_ 2) + (apply gx#check-duplicate-identifiers__% _g126464_)) (else (##raise-wrong-number-of-arguments-exception gx#check-duplicate-identifiers - _g125177_)))))) + _g126464_)))))) (define gx#core-bind-values? - (lambda (_%stx122477%_) + (lambda (_%stx123764%_) (gx#stx-andmap - (lambda (_%x122479%_) - (let ((_%$e122481%_ (gx#identifier? _%x122479%_))) - (if _%$e122481%_ _%$e122481%_ (gx#stx-false? _%x122479%_)))) - _%stx122477%_))) + (lambda (_%x123766%_) + (let ((_%$e123768%_ (gx#identifier? _%x123766%_))) + (if _%$e123768%_ _%$e123768%_ (gx#stx-false? _%x123766%_)))) + _%stx123764%_))) (define gx#core-bind-values!__% - (lambda (_%stx122441%_ _%rebind?122442%_ _%phi122443%_ _%ctx122444%_) + (lambda (_%stx123728%_ _%rebind?123729%_ _%phi123730%_ _%ctx123731%_) (gx#stx-for-each1 - (lambda (_%id122446%_) - (if (gx#identifier? _%id122446%_) + (lambda (_%id123733%_) + (if (gx#identifier? _%id123733%_) (gx#core-bind-runtime!__% - _%id122446%_ - _%rebind?122442%_ - _%phi122443%_ - _%ctx122444%_) + _%id123733%_ + _%rebind?123729%_ + _%phi123730%_ + _%ctx123731%_) '#!void)) - _%stx122441%_))) + _%stx123728%_))) (define gx#core-bind-values!__0 - (lambda (_%stx122451%_) - (let* ((_%rebind?122453%_ '#f) - (_%phi122455%_ (gx#current-expander-phi)) - (_%ctx122457%_ (gx#current-expander-context))) + (lambda (_%stx123738%_) + (let* ((_%rebind?123740%_ '#f) + (_%phi123742%_ (gx#current-expander-phi)) + (_%ctx123744%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx122451%_ - _%rebind?122453%_ - _%phi122455%_ - _%ctx122457%_)))) + _%stx123738%_ + _%rebind?123740%_ + _%phi123742%_ + _%ctx123744%_)))) (define gx#core-bind-values!__1 - (lambda (_%stx122459%_ _%rebind?122460%_) - (let* ((_%phi122462%_ (gx#current-expander-phi)) - (_%ctx122464%_ (gx#current-expander-context))) + (lambda (_%stx123746%_ _%rebind?123747%_) + (let* ((_%phi123749%_ (gx#current-expander-phi)) + (_%ctx123751%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx122459%_ - _%rebind?122460%_ - _%phi122462%_ - _%ctx122464%_)))) + _%stx123746%_ + _%rebind?123747%_ + _%phi123749%_ + _%ctx123751%_)))) (define gx#core-bind-values!__2 - (lambda (_%stx122466%_ _%rebind?122467%_ _%phi122468%_) - (let ((_%ctx122470%_ (gx#current-expander-context))) + (lambda (_%stx123753%_ _%rebind?123754%_ _%phi123755%_) + (let ((_%ctx123757%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx122466%_ - _%rebind?122467%_ - _%phi122468%_ - _%ctx122470%_)))) + _%stx123753%_ + _%rebind?123754%_ + _%phi123755%_ + _%ctx123757%_)))) (define gx#core-bind-values! - (lambda _g125179_ - (let ((_g125178_ (##length _g125179_))) - (cond ((##fx= _g125178_ 1) (apply gx#core-bind-values!__0 _g125179_)) - ((##fx= _g125178_ 2) (apply gx#core-bind-values!__1 _g125179_)) - ((##fx= _g125178_ 3) (apply gx#core-bind-values!__2 _g125179_)) - ((##fx= _g125178_ 4) (apply gx#core-bind-values!__% _g125179_)) + (lambda _g126466_ + (let ((_g126465_ (##length _g126466_))) + (cond ((##fx= _g126465_ 1) (apply gx#core-bind-values!__0 _g126466_)) + ((##fx= _g126465_ 2) (apply gx#core-bind-values!__1 _g126466_)) + ((##fx= _g126465_ 3) (apply gx#core-bind-values!__2 _g126466_)) + ((##fx= _g126465_ 4) (apply gx#core-bind-values!__% _g126466_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-values! - _g125179_)))))) + _g126466_)))))) (define gx#core-quote-bind-values - (lambda (_%stx122436%_) + (lambda (_%stx123723%_) (gx#stx-map1 - (lambda (_%x122438%_) - (if (gx#identifier? _%x122438%_) - (gx#core-quote-syntax__0 _%x122438%_) + (lambda (_%x123725%_) + (if (gx#identifier? _%x123725%_) + (gx#core-quote-syntax__0 _%x123725%_) '#f)) - _%stx122436%_))) + _%stx123723%_))) (define gx#core-runtime-ref? - (lambda (_%stx122429%_) - (if (gx#identifier? _%stx122429%_) - (let* ((_%bind122431%_ (gx#resolve-identifier__0 _%stx122429%_)) - (_%$e122433%_ (not _%bind122431%_))) - (if _%$e122433%_ - _%$e122433%_ + (lambda (_%stx123716%_) + (if (gx#identifier? _%stx123716%_) + (let* ((_%bind123718%_ (gx#resolve-identifier__0 _%stx123716%_)) + (_%$e123720%_ (not _%bind123718%_))) + (if _%$e123720%_ + _%$e123720%_ (##structure-instance-of? - _%bind122431%_ + _%bind123718%_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_%id122418%_ _%form122419%_) - (let ((_%bind122421%_ (gx#resolve-identifier__0 _%id122418%_))) - (if (##structure-instance-of? _%bind122421%_ 'gx#runtime-binding::t) - (gx#core-quote-syntax__0 _%id122418%_) - (if (not _%bind122421%_) + (lambda (_%id123705%_ _%form123706%_) + (let ((_%bind123708%_ (gx#resolve-identifier__0 _%id123705%_))) + (if (##structure-instance-of? _%bind123708%_ 'gx#runtime-binding::t) + (gx#core-quote-syntax__0 _%id123705%_) + (if (not _%bind123708%_) (if (or (gx#core-context-rebind?__% (gx#core-context-top__0)) - (gx#core-extern-symbol? (gx#stx-e _%id122418%_))) - (gx#core-quote-syntax__0 _%id122418%_) + (gx#core-extern-symbol? (gx#stx-e _%id123705%_))) + (gx#core-quote-syntax__0 _%id123705%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%form122419%_ - _%id122418%_)) + _%form123706%_ + _%id123705%_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _%form122419%_ - _%id122418%_)))))) + _%form123706%_ + _%id123705%_)))))) (define gx#core-bind-runtime!__% - (lambda (_%id122373%_ _%rebind?122374%_ _%phi122375%_ _%ctx122376%_) - (let* ((_%key122378%_ (gx#core-identifier-key _%id122373%_)) - (_%eid122380%_ + (lambda (_%id123660%_ _%rebind?123661%_ _%phi123662%_ _%ctx123663%_) + (let* ((_%key123665%_ (gx#core-identifier-key _%id123660%_)) + (_%eid123667%_ (gx#make-binding-id__% - _%key122378%_ + _%key123665%_ '#f - _%phi122375%_ - _%ctx122376%_)) - (_%bind122386%_ + _%phi123662%_ + _%ctx123663%_)) + (_%bind123673%_ (if (##structure-instance-of? - _%ctx122376%_ + _%ctx123663%_ 'gx#module-context::t) (##structure gx#module-binding::t - _%eid122380%_ - _%key122378%_ - _%phi122375%_ - _%ctx122376%_) + _%eid123667%_ + _%key123665%_ + _%phi123662%_ + _%ctx123663%_) (if (##structure-instance-of? - _%ctx122376%_ + _%ctx123663%_ 'gx#top-context::t) (##structure gx#top-binding::t - _%eid122380%_ - _%key122378%_ - _%phi122375%_) + _%eid123667%_ + _%key123665%_ + _%phi123662%_) (if (##structure-instance-of? - _%ctx122376%_ + _%ctx123663%_ 'gx#local-context::t) (##structure gx#local-binding::t - _%eid122380%_ - _%key122378%_ - _%phi122375%_) + _%eid123667%_ + _%key123665%_ + _%phi123662%_) (##structure gx#runtime-binding::t - _%eid122380%_ - _%key122378%_ - _%phi122375%_)))))) + _%eid123667%_ + _%key123665%_ + _%phi123662%_)))))) (gx#bind-identifier!__% - _%id122373%_ - _%bind122386%_ - _%rebind?122374%_ - _%phi122375%_ - _%ctx122376%_)))) + _%id123660%_ + _%bind123673%_ + _%rebind?123661%_ + _%phi123662%_ + _%ctx123663%_)))) (define gx#core-bind-runtime!__0 - (lambda (_%id122392%_) - (let* ((_%rebind?122394%_ '#f) - (_%phi122396%_ (gx#current-expander-phi)) - (_%ctx122398%_ (gx#current-expander-context))) + (lambda (_%id123679%_) + (let* ((_%rebind?123681%_ '#f) + (_%phi123683%_ (gx#current-expander-phi)) + (_%ctx123685%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id122392%_ - _%rebind?122394%_ - _%phi122396%_ - _%ctx122398%_)))) + _%id123679%_ + _%rebind?123681%_ + _%phi123683%_ + _%ctx123685%_)))) (define gx#core-bind-runtime!__1 - (lambda (_%id122400%_ _%rebind?122401%_) - (let* ((_%phi122403%_ (gx#current-expander-phi)) - (_%ctx122405%_ (gx#current-expander-context))) + (lambda (_%id123687%_ _%rebind?123688%_) + (let* ((_%phi123690%_ (gx#current-expander-phi)) + (_%ctx123692%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id122400%_ - _%rebind?122401%_ - _%phi122403%_ - _%ctx122405%_)))) + _%id123687%_ + _%rebind?123688%_ + _%phi123690%_ + _%ctx123692%_)))) (define gx#core-bind-runtime!__2 - (lambda (_%id122407%_ _%rebind?122408%_ _%phi122409%_) - (let ((_%ctx122411%_ (gx#current-expander-context))) + (lambda (_%id123694%_ _%rebind?123695%_ _%phi123696%_) + (let ((_%ctx123698%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id122407%_ - _%rebind?122408%_ - _%phi122409%_ - _%ctx122411%_)))) + _%id123694%_ + _%rebind?123695%_ + _%phi123696%_ + _%ctx123698%_)))) (define gx#core-bind-runtime! - (lambda _g125181_ - (let ((_g125180_ (##length _g125181_))) - (cond ((##fx= _g125180_ 1) - (apply gx#core-bind-runtime!__0 _g125181_)) - ((##fx= _g125180_ 2) - (apply gx#core-bind-runtime!__1 _g125181_)) - ((##fx= _g125180_ 3) - (apply gx#core-bind-runtime!__2 _g125181_)) - ((##fx= _g125180_ 4) - (apply gx#core-bind-runtime!__% _g125181_)) + (lambda _g126468_ + (let ((_g126467_ (##length _g126468_))) + (cond ((##fx= _g126467_ 1) + (apply gx#core-bind-runtime!__0 _g126468_)) + ((##fx= _g126467_ 2) + (apply gx#core-bind-runtime!__1 _g126468_)) + ((##fx= _g126467_ 3) + (apply gx#core-bind-runtime!__2 _g126468_)) + ((##fx= _g126467_ 4) + (apply gx#core-bind-runtime!__% _g126468_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime! - _g125181_)))))) + _g126468_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_%id122325%_ - _%eid122326%_ - _%rebind?122327%_ - _%phi122328%_ - _%ctx122329%_) - (let* ((_%key122331%_ (gx#core-identifier-key _%id122325%_)) - (_%bind122336%_ + (lambda (_%id123612%_ + _%eid123613%_ + _%rebind?123614%_ + _%phi123615%_ + _%ctx123616%_) + (let* ((_%key123618%_ (gx#core-identifier-key _%id123612%_)) + (_%bind123623%_ (if (##structure-instance-of? - _%ctx122329%_ + _%ctx123616%_ 'gx#module-context::t) (##structure gx#module-binding::t - _%eid122326%_ - _%key122331%_ - _%phi122328%_ - _%ctx122329%_) + _%eid123613%_ + _%key123618%_ + _%phi123615%_ + _%ctx123616%_) (if (##structure-instance-of? - _%ctx122329%_ + _%ctx123616%_ 'gx#top-context::t) (##structure gx#top-binding::t - _%eid122326%_ - _%key122331%_ - _%phi122328%_) + _%eid123613%_ + _%key123618%_ + _%phi123615%_) (##structure gx#runtime-binding::t - _%eid122326%_ - _%key122331%_ - _%phi122328%_))))) + _%eid123613%_ + _%key123618%_ + _%phi123615%_))))) (gx#bind-identifier!__% - _%id122325%_ - _%bind122336%_ - _%rebind?122327%_ - _%phi122328%_ - _%ctx122329%_)))) + _%id123612%_ + _%bind123623%_ + _%rebind?123614%_ + _%phi123615%_ + _%ctx123616%_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_%id122342%_ _%eid122343%_) - (let* ((_%rebind?122345%_ '#f) - (_%phi122347%_ (gx#current-expander-phi)) - (_%ctx122349%_ (gx#current-expander-context))) + (lambda (_%id123629%_ _%eid123630%_) + (let* ((_%rebind?123632%_ '#f) + (_%phi123634%_ (gx#current-expander-phi)) + (_%ctx123636%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id122342%_ - _%eid122343%_ - _%rebind?122345%_ - _%phi122347%_ - _%ctx122349%_)))) + _%id123629%_ + _%eid123630%_ + _%rebind?123632%_ + _%phi123634%_ + _%ctx123636%_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_%id122351%_ _%eid122352%_ _%rebind?122353%_) - (let* ((_%phi122355%_ (gx#current-expander-phi)) - (_%ctx122357%_ (gx#current-expander-context))) + (lambda (_%id123638%_ _%eid123639%_ _%rebind?123640%_) + (let* ((_%phi123642%_ (gx#current-expander-phi)) + (_%ctx123644%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id122351%_ - _%eid122352%_ - _%rebind?122353%_ - _%phi122355%_ - _%ctx122357%_)))) + _%id123638%_ + _%eid123639%_ + _%rebind?123640%_ + _%phi123642%_ + _%ctx123644%_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_%id122359%_ _%eid122360%_ _%rebind?122361%_ _%phi122362%_) - (let ((_%ctx122364%_ (gx#current-expander-context))) + (lambda (_%id123646%_ _%eid123647%_ _%rebind?123648%_ _%phi123649%_) + (let ((_%ctx123651%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id122359%_ - _%eid122360%_ - _%rebind?122361%_ - _%phi122362%_ - _%ctx122364%_)))) + _%id123646%_ + _%eid123647%_ + _%rebind?123648%_ + _%phi123649%_ + _%ctx123651%_)))) (define gx#core-bind-runtime-reference! - (lambda _g125183_ - (let ((_g125182_ (##length _g125183_))) - (cond ((##fx= _g125182_ 2) - (apply gx#core-bind-runtime-reference!__0 _g125183_)) - ((##fx= _g125182_ 3) - (apply gx#core-bind-runtime-reference!__1 _g125183_)) - ((##fx= _g125182_ 4) - (apply gx#core-bind-runtime-reference!__2 _g125183_)) - ((##fx= _g125182_ 5) - (apply gx#core-bind-runtime-reference!__% _g125183_)) + (lambda _g126470_ + (let ((_g126469_ (##length _g126470_))) + (cond ((##fx= _g126469_ 2) + (apply gx#core-bind-runtime-reference!__0 _g126470_)) + ((##fx= _g126469_ 3) + (apply gx#core-bind-runtime-reference!__1 _g126470_)) + ((##fx= _g126469_ 4) + (apply gx#core-bind-runtime-reference!__2 _g126470_)) + ((##fx= _g126469_ 5) + (apply gx#core-bind-runtime-reference!__% _g126470_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime-reference! - _g125183_)))))) + _g126470_)))))) (define gx#core-bind-extern!__% - (lambda (_%id122285%_ - _%eid122286%_ - _%rebind?122287%_ - _%phi122288%_ - _%ctx122289%_) + (lambda (_%id123572%_ + _%eid123573%_ + _%rebind?123574%_ + _%phi123575%_ + _%ctx123576%_) (gx#bind-identifier!__% - _%id122285%_ + _%id123572%_ (##structure gx#extern-binding::t - _%eid122286%_ - (gx#core-identifier-key _%id122285%_) - _%phi122288%_) - _%rebind?122287%_ - _%phi122288%_ - _%ctx122289%_))) + _%eid123573%_ + (gx#core-identifier-key _%id123572%_) + _%phi123575%_) + _%rebind?123574%_ + _%phi123575%_ + _%ctx123576%_))) (define gx#core-bind-extern!__0 - (lambda (_%id122294%_ _%eid122295%_) - (let* ((_%rebind?122297%_ '#f) - (_%phi122299%_ (gx#current-expander-phi)) - (_%ctx122301%_ (gx#current-expander-context))) + (lambda (_%id123581%_ _%eid123582%_) + (let* ((_%rebind?123584%_ '#f) + (_%phi123586%_ (gx#current-expander-phi)) + (_%ctx123588%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id122294%_ - _%eid122295%_ - _%rebind?122297%_ - _%phi122299%_ - _%ctx122301%_)))) + _%id123581%_ + _%eid123582%_ + _%rebind?123584%_ + _%phi123586%_ + _%ctx123588%_)))) (define gx#core-bind-extern!__1 - (lambda (_%id122303%_ _%eid122304%_ _%rebind?122305%_) - (let* ((_%phi122307%_ (gx#current-expander-phi)) - (_%ctx122309%_ (gx#current-expander-context))) + (lambda (_%id123590%_ _%eid123591%_ _%rebind?123592%_) + (let* ((_%phi123594%_ (gx#current-expander-phi)) + (_%ctx123596%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id122303%_ - _%eid122304%_ - _%rebind?122305%_ - _%phi122307%_ - _%ctx122309%_)))) + _%id123590%_ + _%eid123591%_ + _%rebind?123592%_ + _%phi123594%_ + _%ctx123596%_)))) (define gx#core-bind-extern!__2 - (lambda (_%id122311%_ _%eid122312%_ _%rebind?122313%_ _%phi122314%_) - (let ((_%ctx122316%_ (gx#current-expander-context))) + (lambda (_%id123598%_ _%eid123599%_ _%rebind?123600%_ _%phi123601%_) + (let ((_%ctx123603%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id122311%_ - _%eid122312%_ - _%rebind?122313%_ - _%phi122314%_ - _%ctx122316%_)))) + _%id123598%_ + _%eid123599%_ + _%rebind?123600%_ + _%phi123601%_ + _%ctx123603%_)))) (define gx#core-bind-extern! - (lambda _g125185_ - (let ((_g125184_ (##length _g125185_))) - (cond ((##fx= _g125184_ 2) (apply gx#core-bind-extern!__0 _g125185_)) - ((##fx= _g125184_ 3) (apply gx#core-bind-extern!__1 _g125185_)) - ((##fx= _g125184_ 4) (apply gx#core-bind-extern!__2 _g125185_)) - ((##fx= _g125184_ 5) (apply gx#core-bind-extern!__% _g125185_)) + (lambda _g126472_ + (let ((_g126471_ (##length _g126472_))) + (cond ((##fx= _g126471_ 2) (apply gx#core-bind-extern!__0 _g126472_)) + ((##fx= _g126471_ 3) (apply gx#core-bind-extern!__1 _g126472_)) + ((##fx= _g126471_ 4) (apply gx#core-bind-extern!__2 _g126472_)) + ((##fx= _g126471_ 5) (apply gx#core-bind-extern!__% _g126472_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-extern! - _g125185_)))))) + _g126472_)))))) (define gx#core-bind-syntax!__% - (lambda (_%id122239%_ - _%e122240%_ - _%rebind?122241%_ - _%phi122242%_ - _%ctx122243%_) + (lambda (_%id123526%_ + _%e123527%_ + _%rebind?123528%_ + _%phi123529%_ + _%ctx123530%_) (gx#bind-identifier!__% - _%id122239%_ - (let ((_%key122248%_ (gx#core-identifier-key _%id122239%_)) - (_%e122249%_ - (if (or (##structure-instance-of? _%e122240%_ 'gx#expander::t) + _%id123526%_ + (let ((_%key123535%_ (gx#core-identifier-key _%id123526%_)) + (_%e123536%_ + (if (or (##structure-instance-of? _%e123527%_ 'gx#expander::t) (##structure-instance-of? - _%e122240%_ + _%e123527%_ 'gx#expander-context::t)) - _%e122240%_ + _%e123527%_ (##structure gx#user-expander::t - _%e122240%_ - _%ctx122243%_ - _%phi122242%_)))) + _%e123527%_ + _%ctx123530%_ + _%phi123529%_)))) (##structure gx#syntax-binding::t (gx#make-binding-id__% - _%key122248%_ + _%key123535%_ '#t - _%phi122242%_ - _%ctx122243%_) - _%key122248%_ - _%phi122242%_ - _%e122249%_)) - _%rebind?122241%_ - _%phi122242%_ - _%ctx122243%_))) + _%phi123529%_ + _%ctx123530%_) + _%key123535%_ + _%phi123529%_ + _%e123536%_)) + _%rebind?123528%_ + _%phi123529%_ + _%ctx123530%_))) (define gx#core-bind-syntax!__0 - (lambda (_%id122254%_ _%e122255%_) - (let* ((_%rebind?122257%_ '#f) - (_%phi122259%_ (gx#current-expander-phi)) - (_%ctx122261%_ (gx#current-expander-context))) + (lambda (_%id123541%_ _%e123542%_) + (let* ((_%rebind?123544%_ '#f) + (_%phi123546%_ (gx#current-expander-phi)) + (_%ctx123548%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id122254%_ - _%e122255%_ - _%rebind?122257%_ - _%phi122259%_ - _%ctx122261%_)))) + _%id123541%_ + _%e123542%_ + _%rebind?123544%_ + _%phi123546%_ + _%ctx123548%_)))) (define gx#core-bind-syntax!__1 - (lambda (_%id122263%_ _%e122264%_ _%rebind?122265%_) - (let* ((_%phi122267%_ (gx#current-expander-phi)) - (_%ctx122269%_ (gx#current-expander-context))) + (lambda (_%id123550%_ _%e123551%_ _%rebind?123552%_) + (let* ((_%phi123554%_ (gx#current-expander-phi)) + (_%ctx123556%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id122263%_ - _%e122264%_ - _%rebind?122265%_ - _%phi122267%_ - _%ctx122269%_)))) + _%id123550%_ + _%e123551%_ + _%rebind?123552%_ + _%phi123554%_ + _%ctx123556%_)))) (define gx#core-bind-syntax!__2 - (lambda (_%id122271%_ _%e122272%_ _%rebind?122273%_ _%phi122274%_) - (let ((_%ctx122276%_ (gx#current-expander-context))) + (lambda (_%id123558%_ _%e123559%_ _%rebind?123560%_ _%phi123561%_) + (let ((_%ctx123563%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id122271%_ - _%e122272%_ - _%rebind?122273%_ - _%phi122274%_ - _%ctx122276%_)))) + _%id123558%_ + _%e123559%_ + _%rebind?123560%_ + _%phi123561%_ + _%ctx123563%_)))) (define gx#core-bind-syntax! - (lambda _g125187_ - (let ((_g125186_ (##length _g125187_))) - (cond ((##fx= _g125186_ 2) (apply gx#core-bind-syntax!__0 _g125187_)) - ((##fx= _g125186_ 3) (apply gx#core-bind-syntax!__1 _g125187_)) - ((##fx= _g125186_ 4) (apply gx#core-bind-syntax!__2 _g125187_)) - ((##fx= _g125186_ 5) (apply gx#core-bind-syntax!__% _g125187_)) + (lambda _g126474_ + (let ((_g126473_ (##length _g126474_))) + (cond ((##fx= _g126473_ 2) (apply gx#core-bind-syntax!__0 _g126474_)) + ((##fx= _g126473_ 3) (apply gx#core-bind-syntax!__1 _g126474_)) + ((##fx= _g126473_ 4) (apply gx#core-bind-syntax!__2 _g126474_)) + ((##fx= _g126473_ 5) (apply gx#core-bind-syntax!__% _g126474_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-syntax! - _g125187_)))))) + _g126474_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_%id122222%_ _%e122223%_ _%rebind?122224%_) + (lambda (_%id123509%_ _%e123510%_ _%rebind?123511%_) (gx#core-bind-syntax!__% - _%id122222%_ - _%e122223%_ - _%rebind?122224%_ + _%id123509%_ + _%e123510%_ + _%rebind?123511%_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_%id122229%_ _%e122230%_) - (let ((_%rebind?122232%_ '#f)) + (lambda (_%id123516%_ _%e123517%_) + (let ((_%rebind?123519%_ '#f)) (gx#core-bind-root-syntax!__% - _%id122229%_ - _%e122230%_ - _%rebind?122232%_)))) + _%id123516%_ + _%e123517%_ + _%rebind?123519%_)))) (define gx#core-bind-root-syntax! - (lambda _g125189_ - (let ((_g125188_ (##length _g125189_))) - (cond ((##fx= _g125188_ 2) - (apply gx#core-bind-root-syntax!__0 _g125189_)) - ((##fx= _g125188_ 3) - (apply gx#core-bind-root-syntax!__% _g125189_)) + (lambda _g126476_ + (let ((_g126475_ (##length _g126476_))) + (cond ((##fx= _g126475_ 2) + (apply gx#core-bind-root-syntax!__0 _g126476_)) + ((##fx= _g126475_ 3) + (apply gx#core-bind-root-syntax!__% _g126476_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-root-syntax! - _g125189_)))))) + _g126476_)))))) (define gx#core-bind-alias!__% - (lambda (_%id122180%_ - _%alias-id122181%_ - _%rebind?122182%_ - _%phi122183%_ - _%ctx122184%_) + (lambda (_%id123467%_ + _%alias-id123468%_ + _%rebind?123469%_ + _%phi123470%_ + _%ctx123471%_) (gx#bind-identifier!__% - _%id122180%_ - (let ((_%key122186%_ (gx#core-identifier-key _%id122180%_))) + _%id123467%_ + (let ((_%key123473%_ (gx#core-identifier-key _%id123467%_))) (##structure gx#alias-binding::t (gx#make-binding-id__% - _%key122186%_ + _%key123473%_ '#t - _%phi122183%_ - _%ctx122184%_) - _%key122186%_ - _%phi122183%_ - _%alias-id122181%_)) - _%rebind?122182%_ - _%phi122183%_ - _%ctx122184%_))) + _%phi123470%_ + _%ctx123471%_) + _%key123473%_ + _%phi123470%_ + _%alias-id123468%_)) + _%rebind?123469%_ + _%phi123470%_ + _%ctx123471%_))) (define gx#core-bind-alias!__0 - (lambda (_%id122191%_ _%alias-id122192%_) - (let* ((_%rebind?122194%_ '#f) - (_%phi122196%_ (gx#current-expander-phi)) - (_%ctx122198%_ (gx#current-expander-context))) + (lambda (_%id123478%_ _%alias-id123479%_) + (let* ((_%rebind?123481%_ '#f) + (_%phi123483%_ (gx#current-expander-phi)) + (_%ctx123485%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id122191%_ - _%alias-id122192%_ - _%rebind?122194%_ - _%phi122196%_ - _%ctx122198%_)))) + _%id123478%_ + _%alias-id123479%_ + _%rebind?123481%_ + _%phi123483%_ + _%ctx123485%_)))) (define gx#core-bind-alias!__1 - (lambda (_%id122200%_ _%alias-id122201%_ _%rebind?122202%_) - (let* ((_%phi122204%_ (gx#current-expander-phi)) - (_%ctx122206%_ (gx#current-expander-context))) + (lambda (_%id123487%_ _%alias-id123488%_ _%rebind?123489%_) + (let* ((_%phi123491%_ (gx#current-expander-phi)) + (_%ctx123493%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id122200%_ - _%alias-id122201%_ - _%rebind?122202%_ - _%phi122204%_ - _%ctx122206%_)))) + _%id123487%_ + _%alias-id123488%_ + _%rebind?123489%_ + _%phi123491%_ + _%ctx123493%_)))) (define gx#core-bind-alias!__2 - (lambda (_%id122208%_ _%alias-id122209%_ _%rebind?122210%_ _%phi122211%_) - (let ((_%ctx122213%_ (gx#current-expander-context))) + (lambda (_%id123495%_ _%alias-id123496%_ _%rebind?123497%_ _%phi123498%_) + (let ((_%ctx123500%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id122208%_ - _%alias-id122209%_ - _%rebind?122210%_ - _%phi122211%_ - _%ctx122213%_)))) + _%id123495%_ + _%alias-id123496%_ + _%rebind?123497%_ + _%phi123498%_ + _%ctx123500%_)))) (define gx#core-bind-alias! - (lambda _g125191_ - (let ((_g125190_ (##length _g125191_))) - (cond ((##fx= _g125190_ 2) (apply gx#core-bind-alias!__0 _g125191_)) - ((##fx= _g125190_ 3) (apply gx#core-bind-alias!__1 _g125191_)) - ((##fx= _g125190_ 4) (apply gx#core-bind-alias!__2 _g125191_)) - ((##fx= _g125190_ 5) (apply gx#core-bind-alias!__% _g125191_)) + (lambda _g126478_ + (let ((_g126477_ (##length _g126478_))) + (cond ((##fx= _g126477_ 2) (apply gx#core-bind-alias!__0 _g126478_)) + ((##fx= _g126477_ 3) (apply gx#core-bind-alias!__1 _g126478_)) + ((##fx= _g126477_ 4) (apply gx#core-bind-alias!__2 _g126478_)) + ((##fx= _g126477_ 5) (apply gx#core-bind-alias!__% _g126478_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-alias! - _g125191_)))))) + _g126478_)))))) (define gx#make-binding-id__% - (lambda (_%key122130%_ _%syntax?122131%_ _%phi122132%_ _%ctx122133%_) - (if (uninterned-symbol? _%key122130%_) + (lambda (_%key123417%_ _%syntax?123418%_ _%phi123419%_ _%ctx123420%_) + (if (uninterned-symbol? _%key123417%_) (##gensym 'L) - (if (pair? _%key122130%_) - (gensym (##car _%key122130%_)) - (if (##structure-instance-of? _%ctx122133%_ 'gx#top-context::t) - (let ((_%ns122138%_ - (gx#core-context-namespace__% _%ctx122133%_))) - (if (and (fxzero? _%phi122132%_) (not _%syntax?122131%_)) - (if _%ns122138%_ - (make-symbol__1 _%ns122138%_ '"#" _%key122130%_) - _%key122130%_) - (if _%syntax?122131%_ + (if (pair? _%key123417%_) + (gensym (##car _%key123417%_)) + (if (##structure-instance-of? _%ctx123420%_ 'gx#top-context::t) + (let ((_%ns123425%_ + (gx#core-context-namespace__% _%ctx123420%_))) + (if (and (fxzero? _%phi123419%_) (not _%syntax?123418%_)) + (if _%ns123425%_ + (make-symbol__1 _%ns123425%_ '"#" _%key123417%_) + _%key123417%_) + (if _%syntax?123418%_ (make-symbol__1 - (let ((_%$e122142%_ _%ns122138%_)) - (if _%$e122142%_ _%$e122142%_ '"")) + (let ((_%$e123429%_ _%ns123425%_)) + (if _%$e123429%_ _%$e123429%_ '"")) '"[:" - (number->string _%phi122132%_) + (number->string _%phi123419%_) '":]#" - _%key122130%_) + _%key123417%_) (make-symbol__1 - (let ((_%$e122146%_ _%ns122138%_)) - (if _%$e122146%_ _%$e122146%_ '"")) + (let ((_%$e123433%_ _%ns123425%_)) + (if _%$e123433%_ _%$e123433%_ '"")) '"[" - (number->string _%phi122132%_) + (number->string _%phi123419%_) '"]#" - _%key122130%_)))) - (gensym _%key122130%_)))))) + _%key123417%_)))) + (gensym _%key123417%_)))))) (define gx#make-binding-id__0 - (lambda (_%key122153%_) - (let* ((_%syntax?122155%_ '#f) - (_%phi122157%_ (gx#current-expander-phi)) - (_%ctx122159%_ (gx#current-expander-context))) + (lambda (_%key123440%_) + (let* ((_%syntax?123442%_ '#f) + (_%phi123444%_ (gx#current-expander-phi)) + (_%ctx123446%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key122153%_ - _%syntax?122155%_ - _%phi122157%_ - _%ctx122159%_)))) + _%key123440%_ + _%syntax?123442%_ + _%phi123444%_ + _%ctx123446%_)))) (define gx#make-binding-id__1 - (lambda (_%key122161%_ _%syntax?122162%_) - (let* ((_%phi122164%_ (gx#current-expander-phi)) - (_%ctx122166%_ (gx#current-expander-context))) + (lambda (_%key123448%_ _%syntax?123449%_) + (let* ((_%phi123451%_ (gx#current-expander-phi)) + (_%ctx123453%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key122161%_ - _%syntax?122162%_ - _%phi122164%_ - _%ctx122166%_)))) + _%key123448%_ + _%syntax?123449%_ + _%phi123451%_ + _%ctx123453%_)))) (define gx#make-binding-id__2 - (lambda (_%key122168%_ _%syntax?122169%_ _%phi122170%_) - (let ((_%ctx122172%_ (gx#current-expander-context))) + (lambda (_%key123455%_ _%syntax?123456%_ _%phi123457%_) + (let ((_%ctx123459%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key122168%_ - _%syntax?122169%_ - _%phi122170%_ - _%ctx122172%_)))) + _%key123455%_ + _%syntax?123456%_ + _%phi123457%_ + _%ctx123459%_)))) (define gx#make-binding-id - (lambda _g125193_ - (let ((_g125192_ (##length _g125193_))) - (cond ((##fx= _g125192_ 1) (apply gx#make-binding-id__0 _g125193_)) - ((##fx= _g125192_ 2) (apply gx#make-binding-id__1 _g125193_)) - ((##fx= _g125192_ 3) (apply gx#make-binding-id__2 _g125193_)) - ((##fx= _g125192_ 4) (apply gx#make-binding-id__% _g125193_)) + (lambda _g126480_ + (let ((_g126479_ (##length _g126480_))) + (cond ((##fx= _g126479_ 1) (apply gx#make-binding-id__0 _g126480_)) + ((##fx= _g126479_ 2) (apply gx#make-binding-id__1 _g126480_)) + ((##fx= _g126479_ 3) (apply gx#make-binding-id__2 _g126480_)) + ((##fx= _g126479_ 4) (apply gx#make-binding-id__% _g126480_)) (else (##raise-wrong-number-of-arguments-exception gx#make-binding-id - _g125193_)))))))) + _g126480_)))))))) diff --git a/src/bootstrap/gerbil/runtime/c3~0.scm b/src/bootstrap/gerbil/runtime/c3~0.scm index 90759ca68..f13b3fd63 100644 --- a/src/bootstrap/gerbil/runtime/c3~0.scm +++ b/src/bootstrap/gerbil/runtime/c3~0.scm @@ -1,428 +1,437 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/c3::timestamp 1713631264) + (define gerbil/runtime/c3::timestamp 1734357960) (begin (define c4-linearize__% - (lambda (_%@@keywords94445%_ - _%get-precedence-list9443994446%_ - _%struct?9444094448%_ - _%eq9444194450%_ - _%get-name9444294452%_ - _%rhead94454%_ - _%supers94455%_) - (let* ((_%get-precedence-list94457%_ - (if (eq? _%get-precedence-list9443994446%_ absent-value) + (lambda (_%@@keywords95543%_ + _%get-precedence-list9553795544%_ + _%struct?9553895546%_ + _%eq9553995548%_ + _%get-name9554095550%_ + _%rhead95552%_ + _%supers95553%_) + (let* ((_%get-precedence-list95555%_ + (if (eq? _%get-precedence-list9553795544%_ absent-value) (error '"Missing required keyword argument" 'get-precedence-list:) - _%get-precedence-list9443994446%_)) - (_%struct?94459%_ - (if (eq? _%struct?9444094448%_ absent-value) + _%get-precedence-list9553795544%_)) + (_%struct?95557%_ + (if (eq? _%struct?9553895546%_ absent-value) (error '"Missing required keyword argument" 'struct:) - _%struct?9444094448%_)) - (_%eq94461%_ - (if (eq? _%eq9444194450%_ absent-value) eq? _%eq9444194450%_)) - (_%get-name94463%_ - (if (eq? _%get-name9444294452%_ absent-value) + _%struct?9553895546%_)) + (_%eq95559%_ + (if (eq? _%eq9553995548%_ absent-value) eq? _%eq9553995548%_)) + (_%get-name95561%_ + (if (eq? _%get-name9554095550%_ absent-value) identity - _%get-name9444294452%_))) - (letrec* ((_%pls94466%_ - (map _%get-precedence-list94457%_ _%supers94455%_)) - (_%sit94467%_ '()) - (_%get-names94468%_ - (lambda (_%lst94743%_) - (map _%get-name94463%_ _%lst94743%_))) - (_%err94469%_ - (lambda _%a94741%_ + _%get-name9554095550%_))) + (letrec* ((_%pls95564%_ + (map _%get-precedence-list95555%_ _%supers95553%_)) + (_%sis95565%_ '()) + (_%get-names95566%_ + (lambda (_%lst95848%_) + (map _%get-name95561%_ _%lst95848%_))) + (_%err95567%_ + (lambda _%a95846%_ (apply error '"Inconsistent precedence graph" 'head: - (_%get-names94468%_ (reverse _%rhead94454%_)) + (_%get-names95566%_ (reverse _%rhead95552%_)) 'precedence-lists: (let () (declare (not safe)) - (##map _%get-names94468%_ _%pls94466%_)) - 'single-inheritance-tail: - (_%get-names94468%_ _%sit94467%_) - _%a94741%_))) - (_%same?94470%_ - (lambda (_%lst194738%_ _%lst294739%_) - (if (let ((__tmp94791 (length _%lst194738%_)) - (__tmp94790 (length _%lst294739%_))) - (declare (not safe)) - (##fx= __tmp94791 __tmp94790)) - (let () - (declare (not safe)) - (andmap2 _%eq94461%_ _%lst194738%_ _%lst294739%_)) - '#f))) - (_%merge-sit!94471%_ - (lambda (_%sit294721%_) - (if (null? _%sit294721%_) + (##map _%get-names95566%_ _%pls95564%_)) + 'single-inheritance-suffix: + (_%get-names95566%_ _%sis95565%_) + _%a95846%_))) + (_%eqlist?95568%_ + (lambda (_%l195840%_ _%l295841%_) + (let ((_%$e95843%_ (eq? _%l195840%_ _%l295841%_))) + (if _%$e95843%_ + _%$e95843%_ + (if (let () + (declare (not safe)) + (andmap2 _%eq95559%_ + _%l195840%_ + _%l295841%_)) + (let ((__tmp95896 (length _%l195840%_)) + (__tmp95895 (length _%l295841%_))) + (declare (not safe)) + (##fx= __tmp95896 __tmp95895)) + '#f))))) + (_%merge-sis!95569%_ + (lambda (_%sis295823%_) + (if (null? _%sis295823%_) '#!void - (if (null? _%sit94467%_) - (set! _%sit94467%_ _%sit294721%_) - (let _%loop94726%_ ((_%t194728%_ _%sit94467%_) - (_%t294729%_ _%sit294721%_)) - (if (_%same?94470%_ _%t194728%_ _%sit294721%_) + (if (null? _%sis95565%_) + (set! _%sis95565%_ _%sis295823%_) + (let _%loop95828%_ ((_%t195830%_ _%sis95565%_) + (_%t295831%_ _%sis295823%_)) + (if (_%eqlist?95568%_ + _%t195830%_ + _%sis295823%_) '#!void - (if (_%same?94470%_ - _%t294729%_ - _%sit94467%_) - (set! _%sit94467%_ _%sit294721%_) - (if (or (null? _%t194728%_) - (null? _%t294729%_)) - (_%err94469%_ - 'single-inheritance-incompatibility: - (cons (_%get-names94468%_ - _%sit94467%_) - (cons (_%get-names94468%_ - _%sit294721%_) + (if (_%eqlist?95568%_ + _%t295831%_ + _%sis95565%_) + (set! _%sis95565%_ _%sis295823%_) + (if (or (null? _%t195830%_) + (null? _%t295831%_)) + (_%err95567%_ + 'struct-incompatibility: + (cons (_%get-names95566%_ + _%sis95565%_) + (cons (_%get-names95566%_ + _%sis295823%_) '()))) - (_%loop94726%_ - (cdr _%t194728%_) - (cdr _%t294729%_)))))))))) - (_%rpls94472%_ - (let ((__tmp94792 - (lambda (_%pl94716%_) - (let ((_g94793_ + (_%loop95828%_ + (cdr _%t195830%_) + (cdr _%t295831%_)))))))))) + (_%rpls95570%_ + (let ((__tmp95897 + (lambda (_%pl95818%_) + (let ((_g95898_ (let () (declare (not safe)) (append-reverse-until - _%struct?94459%_ - _%pl94716%_ + _%struct?95557%_ + _%pl95818%_ '())))) (begin - (let ((_g94794_ + (let ((_g95899_ (let () (declare (not safe)) - (if (##values? _g94793_) - (##vector-length _g94793_) + (if (##values? _g95898_) + (##values-length _g95898_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g94794_ 2))) + (##fx= _g95899_ 2))) (error "Context expects 2 values" - _g94794_))) - (let ((_%tl94718%_ + _g95899_))) + (let ((_%tl95820%_ (let () (declare (not safe)) - (##vector-ref _g94793_ 0))) - (_%rh94719%_ + (##values-ref _g95898_ 0))) + (_%rh95821%_ (let () (declare (not safe)) - (##vector-ref _g94793_ 1)))) + (##values-ref _g95898_ 1)))) (begin - (_%merge-sit!94471%_ _%tl94718%_) - _%rh94719%_))))))) + (_%merge-sis!95569%_ _%tl95820%_) + _%rh95821%_))))))) (declare (not safe)) - (##map __tmp94792 _%pls94466%_))) - (_%unsitr-rpl94473%_ - (lambda (_%rpl94662%_) - (let _%u94664%_ ((_%pl-rhead94666%_ _%rpl94662%_) - (_%pl-tail94667%_ '()) - (_%sit-rhead94668%_ - (reverse _%sit94467%_)) - (_%sit-tail94669%_ '())) - (let* ((_%pl-rhead9467094679%_ _%pl-rhead94666%_) - (_%E9467394683%_ + (##map __tmp95897 _%pls95564%_))) + (_%unsisr-rpl95571%_ + (lambda (_%rpl95764%_) + (let _%u95766%_ ((_%pl-rhead95768%_ _%rpl95764%_) + (_%pl-tail95769%_ '()) + (_%sis-rhead95770%_ + (reverse _%sis95565%_)) + (_%sis-tail95771%_ '())) + (let* ((_%pl-rhead9577295781%_ _%pl-rhead95768%_) + (_%E9577595785%_ (lambda () (error '"No clause matching" - _%pl-rhead9467094679%_ + _%pl-rhead9577295781%_ '([]) '([c . plrh])) '#!void))) - (let ((_%K9467794713%_ (lambda () _%pl-tail94667%_)) - (_%K9467494697%_ - (lambda (_%plrh94687%_ _%c94688%_) - (if (member _%c94688%_ - _%sit-tail94669%_ - _%eq94461%_) - (_%err94469%_ + (let ((_%K9577995815%_ (lambda () _%pl-tail95769%_)) + (_%K9577695799%_ + (lambda (_%plrh95789%_ _%c95790%_) + (if (member _%c95790%_ + _%sis-tail95771%_ + _%eq95559%_) + (_%err95567%_ 'precedence-list-head: - (_%get-names94468%_ - (reverse _%pl-rhead94666%_)) + (_%get-names95566%_ + (reverse _%pl-rhead95768%_)) 'precedence-list-tail: - (_%get-names94468%_ _%pl-tail94667%_) + (_%get-names95566%_ _%pl-tail95769%_) 'single-inheritance-head: - (_%get-names94468%_ - (reverse _%sit-rhead94668%_)) + (_%get-names95566%_ + (reverse _%sis-rhead95770%_)) 'single-inheritance-tail: - (_%get-names94468%_ _%sit-tail94669%_) + (_%get-names95566%_ _%sis-tail95771%_) 'super-out-of-order-vs-single-inheritance-tail: - (_%get-name94463%_ _%c94688%_)) - (let ((_g94795_ - (let ((__tmp94797 - (lambda (_%g9468994691%_) - (_%eq94461%_ - _%c94688%_ - _%g9468994691%_)))) + (_%get-name95561%_ _%c95790%_)) + (let ((_g95900_ + (let ((__tmp95902 + (lambda (_%g9579195793%_) + (_%eq95559%_ + _%c95790%_ + _%g9579195793%_)))) (declare (not safe)) (__append-reverse-until - __tmp94797 - _%sit-rhead94668%_ - _%sit-tail94669%_)))) + __tmp95902 + _%sis-rhead95770%_ + _%sis-tail95771%_)))) (begin - (let ((_g94796_ + (let ((_g95901_ (let () (declare (not safe)) - (if (##values? _g94795_) - (##vector-length - _g94795_) + (if (##values? _g95900_) + (##values-length + _g95900_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g94796_ 2))) + (##fx= _g95901_ 2))) (error "Context expects 2 values" - _g94796_))) - (let ((_%sit-rh294694%_ + _g95901_))) + (let ((_%sis-rh295796%_ (let () (declare (not safe)) - (##vector-ref - _g94795_ + (##values-ref + _g95900_ 0))) - (_%sit-tl294695%_ + (_%sis-tl295797%_ (let () (declare (not safe)) - (##vector-ref - _g94795_ + (##values-ref + _g95900_ 1)))) - (if (null? _%sit-rh294694%_) - (_%u94664%_ - _%plrh94687%_ - (cons _%c94688%_ - _%pl-tail94667%_) + (if (null? _%sis-rh295796%_) + (_%u95766%_ + _%plrh95789%_ + (cons _%c95790%_ + _%pl-tail95769%_) '() - _%sit-tl294695%_) - (_%u94664%_ - _%plrh94687%_ - _%pl-tail94667%_ - (cdr _%sit-rh294694%_) - _%sit-tl294695%_))))))))) - (let ((_%try-match9467294709%_ + _%sis-tl295797%_) + (_%u95766%_ + _%plrh95789%_ + _%pl-tail95769%_ + (cdr _%sis-rh295796%_) + _%sis-tl295797%_))))))))) + (let ((_%try-match9577495811%_ (lambda () - (if (pair? _%pl-rhead9467094679%_) - (let ((_%tl9467694702%_ + (if (pair? _%pl-rhead9577295781%_) + (let ((_%tl9577895804%_ (let () (declare (not safe)) - (##cdr _%pl-rhead9467094679%_))) - (_%hd9467594700%_ + (##cdr _%pl-rhead9577295781%_))) + (_%hd9577795802%_ (let () (declare (not safe)) - (##car _%pl-rhead9467094679%_)))) - (let ((_%c94705%_ _%hd9467594700%_) - (_%plrh94707%_ - _%tl9467694702%_)) - (_%K9467494697%_ - _%plrh94707%_ - _%c94705%_))) - (_%E9467394683%_))))) - (if (null? _%pl-rhead9467094679%_) - (_%K9467794713%_) - (_%try-match9467294709%_)))))))) - (_g94798_ - (let ((_g94799_ - (let ((__tmp94801 (reverse _%supers94455%_))) + (##car _%pl-rhead9577295781%_)))) + (let ((_%c95807%_ _%hd9577795802%_) + (_%plrh95809%_ + _%tl9577895804%_)) + (_%K9577695799%_ + _%plrh95809%_ + _%c95807%_))) + (_%E9577595785%_))))) + (if (null? _%pl-rhead9577295781%_) + (_%K9577995815%_) + (_%try-match9577495811%_)))))))) + (_g95903_ + (let ((_g95904_ + (let ((__tmp95906 (reverse _%supers95553%_))) (declare (not safe)) - (append1! _%rpls94472%_ __tmp94801)))) + (append1! _%rpls95570%_ __tmp95906)))) #!void - _g94799_)) - (_g94802_ - (let ((_g94803_ - (set! _%pls94466%_ - (let () - (declare (not safe)) - (##map _%unsitr-rpl94473%_ - _%rpls94472%_))))) - #!void - _g94803_)) - (_%c3-select-next94474%_ - (lambda (_%tails94612%_) - (let ((_%candidate?94618%_ - (lambda (_%c94614%_) - (let ((__tmp94805 - (lambda (_%tail94616%_) - (not (member _%c94614%_ - (cdr _%tail94616%_) - _%eq94461%_))))) + _g95904_)) + (_%hpls95572%_ + (let () + (declare (not safe)) + (##map _%unsisr-rpl95571%_ _%rpls95570%_))) + (_%c3-select-next95573%_ + (lambda (_%tails95714%_) + (let ((_%candidate?95720%_ + (lambda (_%c95716%_) + (let ((__tmp95907 + (lambda (_%tail95718%_) + (not (member _%c95716%_ + (cdr _%tail95718%_) + _%eq95559%_))))) (declare (not safe)) - (__andmap1 __tmp94805 _%tails94612%_))))) - (let _%loop94620%_ ((_%ts94622%_ _%tails94612%_)) - (let* ((_%ts9462394633%_ _%ts94622%_) - (_%else9462594641%_ - (lambda () (_%err94469%_))) - (_%K9462794647%_ - (lambda (_%rts94644%_ _%c94645%_) - (if (_%candidate?94618%_ _%c94645%_) - _%c94645%_ - (_%loop94620%_ _%rts94644%_))))) - (if (pair? _%ts9462394633%_) - (let ((_%hd9462894650%_ + (__andmap1 __tmp95907 _%tails95714%_))))) + (let _%loop95722%_ ((_%ts95724%_ _%tails95714%_)) + (let* ((_%ts9572595735%_ _%ts95724%_) + (_%else9572795743%_ + (lambda () (_%err95567%_))) + (_%K9572995749%_ + (lambda (_%rts95746%_ _%c95747%_) + (if (_%candidate?95720%_ _%c95747%_) + _%c95747%_ + (_%loop95722%_ _%rts95746%_))))) + (if (pair? _%ts9572595735%_) + (let ((_%hd9573095752%_ (let () (declare (not safe)) - (##car _%ts9462394633%_))) - (_%tl9462994652%_ + (##car _%ts9572595735%_))) + (_%tl9573195754%_ (let () (declare (not safe)) - (##cdr _%ts9462394633%_)))) - (if (pair? _%hd9462894650%_) - (let* ((_%hd9463094655%_ + (##cdr _%ts9572595735%_)))) + (if (pair? _%hd9573095752%_) + (let* ((_%hd9573295757%_ (let () (declare (not safe)) - (##car _%hd9462894650%_))) - (_%c94658%_ _%hd9463094655%_) - (_%rts94660%_ _%tl9462994652%_)) - (_%K9462794647%_ - _%rts94660%_ - _%c94658%_)) - (_%err94469%_))) - (_%err94469%_))))))) - (_%remove-next!94475%_ - (lambda (_%next94557%_ _%tails94558%_) - (let _%loop94560%_ ((_%t94562%_ _%tails94558%_)) - (let* ((_%t9456394574%_ _%t94562%_) - (_%E9456694578%_ + (##car _%hd9573095752%_))) + (_%c95760%_ _%hd9573295757%_) + (_%rts95762%_ _%tl9573195754%_)) + (_%K9572995749%_ + _%rts95762%_ + _%c95760%_)) + (_%err95567%_))) + (_%err95567%_))))))) + (_%remove-next!95574%_ + (lambda (_%next95659%_ _%tails95660%_) + (let _%loop95662%_ ((_%t95664%_ _%tails95660%_)) + (let* ((_%t9566595676%_ _%t95664%_) + (_%E9566895680%_ (lambda () (error '"No clause matching" - _%t9456394574%_ + _%t9566595676%_ '([]) '([[head . tail] . more])) '#!void))) - (let ((_%K9457294609%_ (lambda () _%tails94558%_)) - (_%K9456794586%_ - (lambda (_%more94582%_ - _%tail94583%_ - _%head94584%_) - (if (_%eq94461%_ - _%head94584%_ - _%next94557%_) - (set-car! _%t94562%_ _%tail94583%_) + (let ((_%K9567495711%_ (lambda () _%tails95660%_)) + (_%K9566995688%_ + (lambda (_%more95684%_ + _%tail95685%_ + _%head95686%_) + (if (_%eq95559%_ + _%head95686%_ + _%next95659%_) + (set-car! _%t95664%_ _%tail95685%_) '#!void) - (_%loop94560%_ _%more94582%_)))) - (let ((_%try-match9456594605%_ + (_%loop95662%_ _%more95684%_)))) + (let ((_%try-match9566795707%_ (lambda () - (if (pair? _%t9456394574%_) - (let ((_%tl9456994591%_ + (if (pair? _%t9566595676%_) + (let ((_%tl9567195693%_ (let () (declare (not safe)) - (##cdr _%t9456394574%_))) - (_%hd9456894589%_ + (##cdr _%t9566595676%_))) + (_%hd9567095691%_ (let () (declare (not safe)) - (##car _%t9456394574%_)))) - (if (pair? _%hd9456894589%_) - (let ((_%tl9457194596%_ + (##car _%t9566595676%_)))) + (if (pair? _%hd9567095691%_) + (let ((_%tl9567395698%_ (let () (declare (not safe)) - (##cdr _%hd9456894589%_))) - (_%hd9457094594%_ + (##cdr _%hd9567095691%_))) + (_%hd9567295696%_ (let () (declare (not safe)) - (##car _%hd9456894589%_)))) - (let ((_%head94599%_ - _%hd9457094594%_) - (_%tail94601%_ - _%tl9457194596%_) - (_%more94603%_ - _%tl9456994591%_)) - (_%K9456794586%_ - _%more94603%_ - _%tail94601%_ - _%head94599%_))) - (_%E9456694578%_))) - (_%E9456694578%_))))) - (if (null? _%t9456394574%_) - (_%K9457294609%_) - (_%try-match9456594605%_)))))))) - (_%precedence-list94476%_ - (let _%c3loop94507%_ ((_%rhead94509%_ _%rhead94454%_) - (_%tails94510%_ _%pls94466%_)) - (let* ((_%tails94512%_ - (let () - (declare (not safe)) - (remove-nulls! _%tails94510%_))) - (_%tails9451394523%_ _%tails94512%_) - (_%else9451694534%_ - (lambda () - (let ((_%next94531%_ - (_%c3-select-next94474%_ - _%tails94512%_))) - (_%c3loop94507%_ - (cons _%next94531%_ _%rhead94509%_) - (_%remove-next!94475%_ - _%next94531%_ - _%tails94512%_)))))) - (let ((_%K9452194554%_ - (lambda () - (append-reverse - _%rhead94509%_ - _%sit94467%_))) - (_%K9451894540%_ - (lambda (_%tail94538%_) - (append-reverse - _%rhead94509%_ - (append _%tail94538%_ _%sit94467%_))))) - (let ((_%try-match9451594550%_ - (lambda () - (if (pair? _%tails9451394523%_) - (let ((_%tl9452094545%_ - (let () - (declare (not safe)) - (##cdr _%tails9451394523%_))) - (_%hd9451994543%_ - (let () - (declare (not safe)) - (##car _%tails9451394523%_)))) - (if (null? _%tl9452094545%_) - (let ((_%tail94548%_ - _%hd9451994543%_)) - (_%K9451894540%_ - _%tail94548%_)) - (_%else9451694534%_))) - (_%else9451694534%_))))) - (if (null? _%tails9451394523%_) - (_%K9452194554%_) - (_%try-match9451594550%_))))))) - (_%super-struct94477%_ - (let* ((_%sit9447894486%_ _%sit94467%_) - (_%else9448094494%_ (lambda () '#f)) - (_%K9448294499%_ (lambda (_%s94497%_) _%s94497%_))) - (if (pair? _%sit9447894486%_) - (let* ((_%hd9448394502%_ + (##car _%hd9567095691%_)))) + (let ((_%head95701%_ + _%hd9567295696%_) + (_%tail95703%_ + _%tl9567395698%_) + (_%more95705%_ + _%tl9567195693%_)) + (_%K9566995688%_ + _%more95705%_ + _%tail95703%_ + _%head95701%_))) + (_%E9566895680%_))) + (_%E9566895680%_))))) + (if (null? _%t9566595676%_) + (_%K9567495711%_) + (_%try-match9566795707%_)))))))) + (_%precedence-list95575%_ + (if (null? _%supers95553%_) + (reverse _%rhead95552%_) + (if (null? (cdr _%supers95553%_)) + (append-reverse _%rhead95552%_ (car _%pls95564%_)) + (let _%c3loop95609%_ ((_%rhead95611%_ + _%rhead95552%_) + (_%tails95612%_ + _%hpls95572%_)) + (let* ((_%tails95614%_ + (let () + (declare (not safe)) + (remove-nulls! _%tails95612%_))) + (_%tails9561595625%_ _%tails95614%_) + (_%else9561895636%_ + (lambda () + (let ((_%next95633%_ + (_%c3-select-next95573%_ + _%tails95614%_))) + (_%c3loop95609%_ + (cons _%next95633%_ _%rhead95611%_) + (_%remove-next!95574%_ + _%next95633%_ + _%tails95614%_)))))) + (let ((_%K9562395656%_ + (lambda () + (append-reverse + _%rhead95611%_ + _%sis95565%_))) + (_%K9562095642%_ + (lambda (_%tail95640%_) + (append-reverse + _%rhead95611%_ + (append _%tail95640%_ + _%sis95565%_))))) + (let ((_%try-match9561795652%_ + (lambda () + (if (pair? _%tails9561595625%_) + (let ((_%tl9562295647%_ + (let () + (declare (not safe)) + (##cdr _%tails9561595625%_))) + (_%hd9562195645%_ + (let () + (declare (not safe)) + (##car _%tails9561595625%_)))) + (if (null? _%tl9562295647%_) + (let ((_%tail95650%_ + _%hd9562195645%_)) + (_%K9562095642%_ + _%tail95650%_)) + (_%else9561895636%_))) + (_%else9561895636%_))))) + (if (null? _%tails9561595625%_) + (_%K9562395656%_) + (_%try-match9561795652%_))))))))) + (_%super-struct95576%_ + (let* ((_%sis9557795585%_ _%sis95565%_) + (_%else9557995593%_ (lambda () '#f)) + (_%K9558195598%_ (lambda (_%s95596%_) _%s95596%_))) + (if (pair? _%sis9557795585%_) + (let* ((_%hd9558295601%_ (let () (declare (not safe)) - (##car _%sit9447894486%_))) - (_%s94505%_ _%hd9448394502%_)) - (_%K9448294499%_ _%s94505%_)) - (_%else9448094494%_))))) - (values _%precedence-list94476%_ _%super-struct94477%_))))) + (##car _%sis9557795585%_))) + (_%s95604%_ _%hd9558295601%_)) + (_%K9558195598%_ _%s95604%_)) + (_%else9557995593%_))))) + (values _%precedence-list95575%_ _%super-struct95576%_))))) (define c4-linearize__@ - (lambda (_%@@keywords94748%_ . _%args94749%_) + (lambda (_%@@keywords95853%_ . _%args95854%_) (apply c4-linearize__% - _%@@keywords94748%_ + _%@@keywords95853%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords94748%_ + _%@@keywords95853%_ 'get-precedence-list: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords94748%_ + _%@@keywords95853%_ 'struct: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords94748%_ 'eq: absent-value)) + (symbolic-table-ref _%@@keywords95853%_ 'eq: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords94748%_ + _%@@keywords95853%_ 'get-name: absent-value)) - _%args94749%_))) + _%args95854%_))) (define c4-linearize - (lambda _%args9444394755%_ + (lambda _%args9554195860%_ (apply keyword-dispatch '#(#f get-name: struct: get-precedence-list: #f eq:) c4-linearize__@ - _%args9444394755%_))))) + _%args9554195860%_))))) diff --git a/src/bootstrap/gerbil/runtime/control~0.scm b/src/bootstrap/gerbil/runtime/control~0.scm index 0c931a568..8ba2d6aae 100644 --- a/src/bootstrap/gerbil/runtime/control~0.scm +++ b/src/bootstrap/gerbil/runtime/control~0.scm @@ -1,12 +1,12 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/control::timestamp 1713631264) + (define gerbil/runtime/control::timestamp 1734357960) (begin (define make-promise - (lambda (_%thunk94152%_) - (if (procedure? _%thunk94152%_) - (let ((_%thunk94156%_ _%thunk94152%_)) - (__make-promise _%thunk94156%_)) + (lambda (_%thunk95250%_) + (if (procedure? _%thunk95250%_) + (let ((_%thunk95254%_ _%thunk95250%_)) + (__make-promise _%thunk95254%_)) (begin (raise-contract-violation-error '"contract violation" @@ -15,19 +15,19 @@ 'contract: 'procedure? 'value: - _%thunk94152%_) + _%thunk95250%_) '#!void)))) (define __make-promise - (lambda (_%thunk94140%_) - (let ((_%thunk94143%_ _%thunk94140%_)) + (lambda (_%thunk95238%_) + (let ((_%thunk95241%_ _%thunk95238%_)) (declare (not safe)) - (##make-delay-promise _%thunk94143%_)))) + (##make-delay-promise _%thunk95241%_)))) (define call-with-parameters - (lambda (_%thunk94125%_ . _%rest94126%_) - (if (procedure? _%thunk94125%_) - (let ((_%thunk94130%_ _%thunk94125%_)) + (lambda (_%thunk95223%_ . _%rest95224%_) + (if (procedure? _%thunk95223%_) + (let ((_%thunk95228%_ _%thunk95223%_)) (declare (not safe)) - (##apply __call-with-parameters _%thunk94130%_ _%rest94126%_)) + (##apply __call-with-parameters _%thunk95228%_ _%rest95224%_)) (begin (raise-contract-violation-error '"contract violation" @@ -36,74 +36,74 @@ 'contract: 'procedure? 'value: - _%thunk94125%_) + _%thunk95223%_) '#!void)))) (define __call-with-parameters - (lambda (_%thunk94063%_ . _%rest94064%_) - (let* ((_%thunk94067%_ _%thunk94063%_) - (_%rest9407594086%_ _%rest94064%_) - (_%E9407894090%_ + (lambda (_%thunk95161%_ . _%rest95162%_) + (let* ((_%thunk95165%_ _%thunk95161%_) + (_%rest9517395184%_ _%rest95162%_) + (_%E9517695188%_ (lambda () (error '"No clause matching" - _%rest9407594086%_ + _%rest9517395184%_ '([param val . rest]) '([])) '#!void))) - (let ((_%K9408094106%_ - (lambda (_%rest94101%_ _%val94102%_ _%param94103%_) - (let ((__tmp94178 - (if (null? _%rest94101%_) - _%thunk94067%_ + (let ((_%K9517895204%_ + (lambda (_%rest95199%_ _%val95200%_ _%param95201%_) + (let ((__tmp95276 + (if (null? _%rest95199%_) + _%thunk95165%_ (lambda () (apply call-with-parameters - _%thunk94067%_ - _%rest94101%_))))) + _%thunk95165%_ + _%rest95199%_))))) (declare (not safe)) (##parameterize1 - _%param94103%_ - _%val94102%_ - __tmp94178)))) - (_%K9407994095%_ - (lambda () (let () (declare (not safe)) (_%thunk94067%_))))) - (let ((_%try-match9407794098%_ + _%param95201%_ + _%val95200%_ + __tmp95276)))) + (_%K9517795193%_ + (lambda () (let () (declare (not safe)) (_%thunk95165%_))))) + (let ((_%try-match9517595196%_ (lambda () - (if (null? _%rest9407594086%_) - (let () (declare (not safe)) (_%thunk94067%_)) - (_%E9407894090%_))))) - (if (pair? _%rest9407594086%_) - (let ((_%tl9408294111%_ + (if (null? _%rest9517395184%_) + (let () (declare (not safe)) (_%thunk95165%_)) + (_%E9517695188%_))))) + (if (pair? _%rest9517395184%_) + (let ((_%tl9518095209%_ (let () (declare (not safe)) - (##cdr _%rest9407594086%_))) - (_%hd9408194109%_ + (##cdr _%rest9517395184%_))) + (_%hd9517995207%_ (let () (declare (not safe)) - (##car _%rest9407594086%_)))) - (if (pair? _%tl9408294111%_) - (let ((_%tl9408494118%_ + (##car _%rest9517395184%_)))) + (if (pair? _%tl9518095209%_) + (let ((_%tl9518295216%_ (let () (declare (not safe)) - (##cdr _%tl9408294111%_))) - (_%hd9408394116%_ + (##cdr _%tl9518095209%_))) + (_%hd9518195214%_ (let () (declare (not safe)) - (##car _%tl9408294111%_)))) - (let ((_%param94114%_ _%hd9408194109%_) - (_%val94121%_ _%hd9408394116%_) - (_%rest94123%_ _%tl9408494118%_)) - (_%K9408094106%_ - _%rest94123%_ - _%val94121%_ - _%param94114%_))) - (_%E9407894090%_))) - (_%try-match9407794098%_))))))) + (##car _%tl9518095209%_)))) + (let ((_%param95212%_ _%hd9517995207%_) + (_%val95219%_ _%hd9518195214%_) + (_%rest95221%_ _%tl9518295216%_)) + (_%K9517895204%_ + _%rest95221%_ + _%val95219%_ + _%param95212%_))) + (_%E9517695188%_))) + (_%try-match9517595196%_))))))) (define with-unwind-protect - (lambda (_%K94038%_ _%fini94039%_) - (if (procedure? _%K94038%_) - (let ((_%K94043%_ _%K94038%_)) - (if (procedure? _%fini94039%_) - (let ((_%fini94053%_ _%fini94039%_)) - (__with-unwind-protect _%K94043%_ _%fini94053%_)) + (lambda (_%K95136%_ _%fini95137%_) + (if (procedure? _%K95136%_) + (let ((_%K95141%_ _%K95136%_)) + (if (procedure? _%fini95137%_) + (let ((_%fini95151%_ _%fini95137%_)) + (__with-unwind-protect _%K95141%_ _%fini95151%_)) (begin (raise-contract-violation-error '"contract violation" @@ -112,7 +112,7 @@ 'contract: 'procedure? 'value: - _%fini94039%_) + _%fini95137%_) '#!void))) (begin (raise-contract-violation-error @@ -122,222 +122,222 @@ 'contract: 'procedure? 'value: - _%K94038%_) + _%K95136%_) '#!void)))) (define __with-unwind-protect - (lambda (_%K94012%_ _%fini94013%_) - (let* ((_%K94016%_ _%K94012%_) - (_%fini94025%_ _%fini94013%_) - (_%once94034%_ '#f) - (__tmp94179 + (lambda (_%K95110%_ _%fini95111%_) + (let* ((_%K95114%_ _%K95110%_) + (_%fini95123%_ _%fini95111%_) + (_%once95132%_ '#f) + (__tmp95277 (lambda () (declare (not interrupts-enabled)) - (if _%once94034%_ + (if _%once95132%_ (error '"Cannot re-enter unwind protected block") - (set! _%once94034%_ '#t))))) + (set! _%once95132%_ '#t))))) (declare (not safe)) - (##dynamic-wind __tmp94179 _%K94016%_ _%fini94025%_)))) + (##dynamic-wind __tmp95277 _%K95114%_ _%fini95123%_)))) (define keyword-dispatch - (lambda (_%kwt93905%_ _%K93906%_ . _%all-args93907%_) - (if _%kwt93905%_ - (if (vector? _%kwt93905%_) + (lambda (_%kwt95003%_ _%K95004%_ . _%all-args95005%_) + (if _%kwt95003%_ + (if (vector? _%kwt95003%_) '#!void - (error '"keyword-dispatch: expected vector" _%kwt93905%_)) + (error '"keyword-dispatch: expected vector" _%kwt95003%_)) '#!void) - (if (procedure? _%K93906%_) + (if (procedure? _%K95004%_) '#!void - (error '"keyword-dispatch: expected procedure" _%K93906%_)) - (let ((_%keys93909%_ + (error '"keyword-dispatch: expected procedure" _%K95004%_)) + (let ((_%keys95007%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _%lp93911%_ ((_%rest93913%_ _%all-args93907%_) - (_%args93914%_ '#f) - (_%tail93915%_ '#f)) - (let* ((_%rest9391693924%_ _%rest93913%_) - (_%else9391893932%_ + (let _%lp95009%_ ((_%rest95011%_ _%all-args95005%_) + (_%args95012%_ '#f) + (_%tail95013%_ '#f)) + (let* ((_%rest9501495022%_ _%rest95011%_) + (_%else9501695030%_ (lambda () - (if _%args93914%_ + (if _%args95012%_ (begin (let () (declare (not safe)) - (##set-cdr! _%tail93915%_ '())) - (let ((__tmp94180 - (cons _%keys93909%_ _%args93914%_))) + (##set-cdr! _%tail95013%_ '())) + (let ((__tmp95278 + (cons _%keys95007%_ _%args95012%_))) (declare (not safe)) - (##apply _%K93906%_ __tmp94180))) - (_%K93906%_ _%keys93909%_)))) - (_%K9392094000%_ - (lambda (_%hd-rest93935%_ _%hd93936%_) - (if (keyword? _%hd93936%_) - (let* ((_%hd-rest9393893945%_ _%hd-rest93935%_) - (_%E9394093949%_ + (##apply _%K95004%_ __tmp95278))) + (_%K95004%_ _%keys95007%_)))) + (_%K9501895098%_ + (lambda (_%hd-rest95033%_ _%hd95034%_) + (if (keyword? _%hd95034%_) + (let* ((_%hd-rest9503695043%_ _%hd-rest95033%_) + (_%E9503895047%_ (lambda () (error '"No clause matching" - _%hd-rest9393893945%_ + _%hd-rest9503695043%_ '([val . rest])) '#!void)) - (_%K9394193957%_ - (lambda (_%rest93952%_ _%val93953%_) - (if _%kwt93905%_ - (let ((_%pos93955%_ - (let ((__tmp94182 + (_%K9503995055%_ + (lambda (_%rest95050%_ _%val95051%_) + (if _%kwt95003%_ + (let ((_%pos95053%_ + (let ((__tmp95280 (let () (declare (not safe)) (##keyword-hash - _%hd93936%_))) - (__tmp94181 + _%hd95034%_))) + (__tmp95279 (let () (declare (not safe)) (##vector-length - _%kwt93905%_)))) + _%kwt95003%_)))) (declare (not safe)) (##fxmodulo - __tmp94182 - __tmp94181)))) - (if (eq? _%hd93936%_ + __tmp95280 + __tmp95279)))) + (if (eq? _%hd95034%_ (let () (declare (not safe)) (##vector-ref - _%kwt93905%_ - _%pos93955%_))) + _%kwt95003%_ + _%pos95053%_))) '#!void (error '"Unexpected keyword argument" - _%K93906%_ - _%hd93936%_))) + _%K95004%_ + _%hd95034%_))) '#!void) (if (eq? (let () (declare (not safe)) (symbolic-table-ref - _%keys93909%_ - _%hd93936%_ + _%keys95007%_ + _%hd95034%_ absent-value)) absent-value) '#!void (error '"Duplicate keyword argument" - _%K93906%_ - _%hd93936%_)) + _%K95004%_ + _%hd95034%_)) (let () (declare (not safe)) (symbolic-table-set! - _%keys93909%_ - _%hd93936%_ - _%val93953%_)) - (_%lp93911%_ - _%rest93952%_ - _%args93914%_ - _%tail93915%_)))) - (if (pair? _%hd-rest9393893945%_) - (let ((_%hd9394293960%_ + _%keys95007%_ + _%hd95034%_ + _%val95051%_)) + (_%lp95009%_ + _%rest95050%_ + _%args95012%_ + _%tail95013%_)))) + (if (pair? _%hd-rest9503695043%_) + (let ((_%hd9504095058%_ (let () (declare (not safe)) - (##car _%hd-rest9393893945%_))) - (_%tl9394393962%_ + (##car _%hd-rest9503695043%_))) + (_%tl9504195060%_ (let () (declare (not safe)) - (##cdr _%hd-rest9393893945%_)))) - (let* ((_%val93965%_ _%hd9394293960%_) - (_%rest93967%_ _%tl9394393962%_)) - (_%K9394193957%_ - _%rest93967%_ - _%val93965%_))) - (_%E9394093949%_))) - (if (eq? _%hd93936%_ '#!key) - (let* ((_%hd-rest9396993976%_ _%hd-rest93935%_) - (_%E9397193980%_ + (##cdr _%hd-rest9503695043%_)))) + (let* ((_%val95063%_ _%hd9504095058%_) + (_%rest95065%_ _%tl9504195060%_)) + (_%K9503995055%_ + _%rest95065%_ + _%val95063%_))) + (_%E9503895047%_))) + (if (eq? _%hd95034%_ '#!key) + (let* ((_%hd-rest9506795074%_ _%hd-rest95033%_) + (_%E9506995078%_ (lambda () (error '"No clause matching" - _%hd-rest9396993976%_ + _%hd-rest9506795074%_ '([val . rest])) '#!void)) - (_%K9397293986%_ - (lambda (_%rest93983%_ _%val93984%_) - (if _%args93914%_ + (_%K9507095084%_ + (lambda (_%rest95081%_ _%val95082%_) + (if _%args95012%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail93915%_ - _%hd-rest93935%_)) - (_%lp93911%_ - _%rest93983%_ - _%args93914%_ - _%hd-rest93935%_)) - (_%lp93911%_ - _%rest93983%_ - _%hd-rest93935%_ - _%hd-rest93935%_))))) - (if (pair? _%hd-rest9396993976%_) - (let ((_%hd9397393989%_ + _%tail95013%_ + _%hd-rest95033%_)) + (_%lp95009%_ + _%rest95081%_ + _%args95012%_ + _%hd-rest95033%_)) + (_%lp95009%_ + _%rest95081%_ + _%hd-rest95033%_ + _%hd-rest95033%_))))) + (if (pair? _%hd-rest9506795074%_) + (let ((_%hd9507195087%_ (let () (declare (not safe)) - (##car _%hd-rest9396993976%_))) - (_%tl9397493991%_ + (##car _%hd-rest9506795074%_))) + (_%tl9507295089%_ (let () (declare (not safe)) - (##cdr _%hd-rest9396993976%_)))) - (let* ((_%val93994%_ _%hd9397393989%_) - (_%rest93996%_ _%tl9397493991%_)) - (_%K9397293986%_ - _%rest93996%_ - _%val93994%_))) - (_%E9397193980%_))) - (if (eq? _%hd93936%_ '#!rest) - (if _%args93914%_ + (##cdr _%hd-rest9506795074%_)))) + (let* ((_%val95092%_ _%hd9507195087%_) + (_%rest95094%_ _%tl9507295089%_)) + (_%K9507095084%_ + _%rest95094%_ + _%val95092%_))) + (_%E9506995078%_))) + (if (eq? _%hd95034%_ '#!rest) + (if _%args95012%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail93915%_ - _%hd-rest93935%_)) - (let ((__tmp94183 - (cons _%keys93909%_ - _%args93914%_))) + _%tail95013%_ + _%hd-rest95033%_)) + (let ((__tmp95281 + (cons _%keys95007%_ + _%args95012%_))) (declare (not safe)) - (##apply _%K93906%_ __tmp94183))) - (let ((__tmp94184 - (cons _%keys93909%_ - _%hd-rest93935%_))) + (##apply _%K95004%_ __tmp95281))) + (let ((__tmp95282 + (cons _%keys95007%_ + _%hd-rest95033%_))) (declare (not safe)) - (##apply _%K93906%_ __tmp94184))) - (if _%args93914%_ + (##apply _%K95004%_ __tmp95282))) + (if _%args95012%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail93915%_ - _%rest93913%_)) - (_%lp93911%_ - _%hd-rest93935%_ - _%args93914%_ - _%rest93913%_)) - (_%lp93911%_ - _%hd-rest93935%_ - _%rest93913%_ - _%rest93913%_)))))))) - (if (pair? _%rest9391693924%_) - (let ((_%hd9392194003%_ + _%tail95013%_ + _%rest95011%_)) + (_%lp95009%_ + _%hd-rest95033%_ + _%args95012%_ + _%rest95011%_)) + (_%lp95009%_ + _%hd-rest95033%_ + _%rest95011%_ + _%rest95011%_)))))))) + (if (pair? _%rest9501495022%_) + (let ((_%hd9501995101%_ (let () (declare (not safe)) - (##car _%rest9391693924%_))) - (_%tl9392294005%_ + (##car _%rest9501495022%_))) + (_%tl9502095103%_ (let () (declare (not safe)) - (##cdr _%rest9391693924%_)))) - (let* ((_%hd94008%_ _%hd9392194003%_) - (_%hd-rest94010%_ _%tl9392294005%_)) - (_%K9392094000%_ _%hd-rest94010%_ _%hd94008%_))) - (_%else9391893932%_))))))) + (##cdr _%rest9501495022%_)))) + (let* ((_%hd95106%_ _%hd9501995101%_) + (_%hd-rest95108%_ _%tl9502095103%_)) + (_%K9501895098%_ _%hd-rest95108%_ _%hd95106%_))) + (_%else9501695030%_))))))) (define keyword-rest - (lambda (_%kwt93897%_ . _%drop93898%_) - (let ((_%rest93900%_ '())) - (let ((__tmp94185 - (lambda (_%k93902%_ _%v93903%_) + (lambda (_%kwt94995%_ . _%drop94996%_) + (let ((_%rest94998%_ '())) + (let ((__tmp95283 + (lambda (_%k95000%_ _%v95001%_) (if (let () (declare (not safe)) - (##memq _%k93902%_ _%drop93898%_)) + (##memq _%k95000%_ _%drop94996%_)) '#!void - (set! _%rest93900%_ - (cons _%k93902%_ - (cons _%v93903%_ _%rest93900%_))))))) + (set! _%rest94998%_ + (cons _%k95000%_ + (cons _%v95001%_ _%rest94998%_))))))) (declare (not safe)) - (raw-table-for-each _%kwt93897%_ __tmp94185)) - _%rest93900%_))))) + (raw-table-for-each _%kwt94995%_ __tmp95283)) + _%rest94998%_))))) diff --git a/src/bootstrap/gerbil/runtime/error~0.scm b/src/bootstrap/gerbil/runtime/error~0.scm index d88a1c9ad..8b9251063 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 1713631265) + (define gerbil/runtime/error::timestamp 1734357960) (begin (define Exception::t - (let ((__tmp103865 (list))) + (let ((__tmp105013 (list))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#Exception::t 'Exception - __tmp103865 + __tmp105013 '() '() '#f))) (define Exception? (let () (declare (not safe)) (__make-class-predicate Exception::t))) (define make-Exception - (lambda _%$args103835%_ - (apply make-instance Exception::t _%$args103835%_))) + (lambda _%$args104983%_ + (apply make-instance Exception::t _%$args104983%_))) (define StackTrace::t - (let ((__tmp103866 (list))) + (let ((__tmp105014 (list))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#StackTrace::t 'StackTrace - __tmp103866 + __tmp105014 '(continuation) '() '#f))) (define StackTrace? (let () (declare (not safe)) (__make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _%$args103832%_ - (apply make-instance StackTrace::t _%$args103832%_))) + (lambda _%$args104980%_ + (apply make-instance StackTrace::t _%$args104980%_))) (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 ((__tmp103867 (list StackTrace::t Exception::t))) + (let ((__tmp105015 (list StackTrace::t Exception::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#Error::t 'Error - __tmp103867 + __tmp105015 '(message irritants where) '((transparent: . #t)) ':init!))) (define Error? (let () (declare (not safe)) (__make-class-predicate Error::t))) (define make-Error - (lambda _%$args103829%_ (apply make-instance Error::t _%$args103829%_))) + (lambda _%$args104977%_ (apply make-instance Error::t _%$args104977%_))) (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 ((__tmp103868 (list Error::t))) + (let ((__tmp105016 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#ContractViolation::t 'ContractViolation - __tmp103868 + __tmp105016 '() '() '#f))) @@ -141,8 +141,8 @@ (declare (not safe)) (__make-class-predicate ContractViolation::t))) (define make-ContractViolation - (lambda _%$args103826%_ - (apply make-instance ContractViolation::t _%$args103826%_))) + (lambda _%$args104974%_ + (apply make-instance ContractViolation::t _%$args104974%_))) (define ContractViolation-message (let () (declare (not safe)) @@ -214,12 +214,12 @@ ContractViolation::t 'continuation))) (define RuntimeException::t - (let ((__tmp103869 (list StackTrace::t Exception::t))) + (let ((__tmp105017 (list StackTrace::t Exception::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#RuntimeException::t 'RuntimeException - __tmp103869 + __tmp105017 '(exception) '((transparent: . #t)) '#f))) @@ -228,8 +228,8 @@ (declare (not safe)) (__make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _%$args103823%_ - (apply make-instance RuntimeException::t _%$args103823%_))) + (lambda _%$args104971%_ + (apply make-instance RuntimeException::t _%$args104971%_))) (define RuntimeException-exception (let () (declare (not safe)) @@ -267,118 +267,118 @@ RuntimeException::t 'continuation))) (define gerbil-exception-handler-hook - (lambda (_%exn103818%_ _%continue103819%_) - (let ((_%exn103821%_ (wrap-runtime-exception _%exn103818%_))) + (lambda (_%exn104966%_ _%continue104967%_) + (let ((_%exn104969%_ (wrap-runtime-exception _%exn104966%_))) (declare (not safe)) - (##repl-exception-handler-hook _%exn103821%_ _%continue103819%_)))) + (##repl-exception-handler-hook _%exn104969%_ _%continue104967%_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_%exn103814%_) + (lambda (_%exn104962%_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _%exn103814%_)) + (class-instance? StackTrace::t _%exn104962%_)) (if (let () (declare (not safe)) - (unchecked-slot-ref _%exn103814%_ 'continuation)) + (unchecked-slot-ref _%exn104962%_ 'continuation)) '#!void - (let ((__tmp103870 - (lambda (_%cont103816%_) + (let ((__tmp105018 + (lambda (_%cont104964%_) (let () (declare (not safe)) (unchecked-slot-set! - _%exn103814%_ + _%exn104962%_ 'continuation - _%cont103816%_))))) + _%cont104964%_))))) (declare (not safe)) - (##continuation-capture __tmp103870))) + (##continuation-capture __tmp105018))) '#!void) - (let () (declare (not safe)) (##raise _%exn103814%_)))) + (let () (declare (not safe)) (##raise _%exn104962%_)))) (define error - (lambda (_%message103811%_ . _%irritants103812%_) - (raise (let ((__obj103862 + (lambda (_%message104959%_ . _%irritants104960%_) + (raise (let ((__obj105010 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj103862 - _%message103811%_ + __obj105010 + _%message104959%_ 'irritants: - _%irritants103812%_) - __obj103862)))) + _%irritants104960%_) + __obj105010)))) (define __raise-contract-violation-error__% - (lambda (_%@@keywords103783%_ - _%ctx103778103784%_ - _%contract-expr103779103786%_ - _%value103780103788%_ - _%message103790%_) - (let* ((_%ctx103792%_ - (if (eq? _%ctx103778103784%_ absent-value) + (lambda (_%@@keywords104931%_ + _%ctx104926104932%_ + _%contract-expr104927104934%_ + _%value104928104936%_ + _%message104938%_) + (let* ((_%ctx104940%_ + (if (eq? _%ctx104926104932%_ absent-value) '#f - _%ctx103778103784%_)) - (_%contract-expr103794%_ - (if (eq? _%contract-expr103779103786%_ absent-value) + _%ctx104926104932%_)) + (_%contract-expr104942%_ + (if (eq? _%contract-expr104927104934%_ absent-value) '#f - _%contract-expr103779103786%_)) - (_%value103796%_ - (if (eq? _%value103780103788%_ absent-value) + _%contract-expr104927104934%_)) + (_%value104944%_ + (if (eq? _%value104928104936%_ absent-value) '#f - _%value103780103788%_))) - (raise (let ((__obj103863 + _%value104928104936%_))) + (raise (let ((__obj105011 (let () (declare (not safe)) (##structure ContractViolation::t '#f '#f '#f '#f)))) (ContractViolation:::init! - __obj103863 - _%message103790%_ + __obj105011 + _%message104938%_ 'where: - _%ctx103792%_ + _%ctx104940%_ 'irritants: (cons 'contract: - (cons _%contract-expr103794%_ - (cons 'value: (cons _%value103796%_ '()))))) - __obj103863))))) + (cons _%contract-expr104942%_ + (cons 'value: (cons _%value104944%_ '()))))) + __obj105011))))) (define __raise-contract-violation-error__@ - (lambda (_%@@keywords103801%_ . _%args103802%_) + (lambda (_%@@keywords104949%_ . _%args104950%_) (apply __raise-contract-violation-error__% - _%@@keywords103801%_ + _%@@keywords104949%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords103801%_ + _%@@keywords104949%_ 'context: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords103801%_ + _%@@keywords104949%_ 'contract: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords103801%_ + _%@@keywords104949%_ 'value: absent-value)) - _%args103802%_))) + _%args104950%_))) (define __raise-contract-violation-error - (lambda _%args103781103808%_ + (lambda _%args104929104956%_ (apply keyword-dispatch '#(context: #f value: contract:) __raise-contract-violation-error__@ - _%args103781103808%_))) + _%args104929104956%_))) (set! raise-contract-violation-error __raise-contract-violation-error) (define contract-violation-error? ContractViolation?) (define with-exception-handler - (lambda (_%handler103752%_ _%thunk103753%_) - (if (procedure? _%handler103752%_) - (let ((_%handler103757%_ _%handler103752%_)) - (if (procedure? _%thunk103753%_) - (let ((_%thunk103767%_ _%thunk103753%_)) + (lambda (_%handler104900%_ _%thunk104901%_) + (if (procedure? _%handler104900%_) + (let ((_%handler104905%_ _%handler104900%_)) + (if (procedure? _%thunk104901%_) + (let ((_%thunk104915%_ _%thunk104901%_)) (__with-exception-handler - _%handler103757%_ - _%thunk103767%_)) + _%handler104905%_ + _%thunk104915%_)) (begin (raise-contract-violation-error '"contract violation" @@ -387,7 +387,7 @@ 'contract: 'procedure? 'value: - _%thunk103753%_) + _%thunk104901%_) '#!void))) (begin (raise-contract-violation-error @@ -397,26 +397,26 @@ 'contract: 'procedure? 'value: - _%handler103752%_) + _%handler104900%_) '#!void)))) (define __with-exception-handler - (lambda (_%handler103727%_ _%thunk103728%_) - (let* ((_%handler103731%_ _%handler103727%_) - (_%thunk103739%_ _%thunk103728%_) - (__tmp103871 - (lambda (_%exn103748%_) - (let ((_%exn103750%_ (wrap-runtime-exception _%exn103748%_))) + (lambda (_%handler104875%_ _%thunk104876%_) + (let* ((_%handler104879%_ _%handler104875%_) + (_%thunk104887%_ _%thunk104876%_) + (__tmp105019 + (lambda (_%exn104896%_) + (let ((_%exn104898%_ (wrap-runtime-exception _%exn104896%_))) (declare (not safe)) - (_%handler103731%_ _%exn103750%_))))) + (_%handler104879%_ _%exn104898%_))))) (declare (not safe)) - (##with-exception-handler __tmp103871 _%thunk103739%_)))) + (##with-exception-handler __tmp105019 _%thunk104887%_)))) (define with-catch - (lambda (_%handler103702%_ _%thunk103703%_) - (if (procedure? _%handler103702%_) - (let ((_%handler103707%_ _%handler103702%_)) - (if (procedure? _%thunk103703%_) - (let ((_%thunk103717%_ _%thunk103703%_)) - (__with-catch _%handler103707%_ _%thunk103717%_)) + (lambda (_%handler104850%_ _%thunk104851%_) + (if (procedure? _%handler104850%_) + (let ((_%handler104855%_ _%handler104850%_)) + (if (procedure? _%thunk104851%_) + (let ((_%thunk104865%_ _%thunk104851%_)) + (__with-catch _%handler104855%_ _%thunk104865%_)) (begin (raise-contract-violation-error '"contract violation" @@ -425,7 +425,7 @@ 'contract: 'procedure? 'value: - _%thunk103703%_) + _%thunk104851%_) '#!void))) (begin (raise-contract-violation-error @@ -435,38 +435,38 @@ 'contract: 'procedure? 'value: - _%handler103702%_) + _%handler104850%_) '#!void)))) (define __with-catch - (lambda (_%handler103677%_ _%thunk103678%_) - (let* ((_%handler103681%_ _%handler103677%_) - (_%thunk103689%_ _%thunk103678%_) - (__tmp103872 - (lambda (_%cont103698%_) + (lambda (_%handler104825%_ _%thunk104826%_) + (let* ((_%handler104829%_ _%handler104825%_) + (_%thunk104837%_ _%thunk104826%_) + (__tmp105020 + (lambda (_%cont104846%_) (__with-exception-handler - (lambda (_%exn103700%_) + (lambda (_%exn104848%_) (let () (declare (not safe)) (##continuation-graft - _%cont103698%_ - _%handler103681%_ - _%exn103700%_))) - _%thunk103689%_)))) + _%cont104846%_ + _%handler104829%_ + _%exn104848%_))) + _%thunk104837%_)))) (declare (not safe)) - (##continuation-capture __tmp103872)))) + (##continuation-capture __tmp105020)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_%exn103664%_) - (if (or (heap-overflow-exception? _%exn103664%_) - (stack-overflow-exception? _%exn103664%_)) - _%exn103664%_ + (lambda (_%exn104812%_) + (if (or (heap-overflow-exception? _%exn104812%_) + (stack-overflow-exception? _%exn104812%_)) + _%exn104812%_ (if (let () (declare (not safe)) - (class-instance? Exception::t _%exn103664%_)) - _%exn103664%_ - (if (macro-exception? _%exn103664%_) - (let ((_%rte103672%_ - (let ((__obj103864 + (class-instance? Exception::t _%exn104812%_)) + _%exn104812%_ + (if (macro-exception? _%exn104812%_) + (let ((_%rte104820%_ + (let ((__obj105012 (let () (declare (not safe)) (##structure @@ -476,141 +476,141 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103864 - _%exn103664%_ + __obj105012 + _%exn104812%_ '2 '#f '#f)) - __obj103864))) - (let ((__tmp103873 - (lambda (_%cont103674%_) - (let ((__tmp103874 + __obj105012))) + (let ((__tmp105021 + (lambda (_%cont104822%_) + (let ((__tmp105022 (let () (declare (not safe)) - (##continuation-next _%cont103674%_)))) + (##continuation-next _%cont104822%_)))) (declare (not safe)) (unchecked-slot-set! - _%rte103672%_ + _%rte104820%_ 'continuation - __tmp103874))))) + __tmp105022))))) (declare (not safe)) - (##continuation-capture __tmp103873)) - _%rte103672%_) - _%exn103664%_))))) + (##continuation-capture __tmp105021)) + _%rte104820%_) + _%exn104812%_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_%obj103659%_) - (let ((_%$e103661%_ + (lambda (_%obj104807%_) + (let ((_%$e104809%_ (let () (declare (not safe)) - (class-instance? Error::t _%obj103659%_)))) - (if _%$e103661%_ _%$e103661%_ (error-exception? _%obj103659%_))))) + (class-instance? Error::t _%obj104807%_)))) + (if _%$e104809%_ _%$e104809%_ (error-exception? _%obj104807%_))))) (define error-message - (lambda (_%obj103652%_) - (let ((_%$e103654%_ + (lambda (_%obj104800%_) + (let ((_%$e104802%_ (let () (declare (not safe)) - (__slot-ref__% _%obj103652%_ 'message false)))) - (if _%$e103654%_ - _%$e103654%_ - (if (error-exception? _%obj103652%_) - (error-exception-message _%obj103652%_) + (__slot-ref__% _%obj104800%_ 'message false)))) + (if _%$e104802%_ + _%$e104802%_ + (if (error-exception? _%obj104800%_) + (error-exception-message _%obj104800%_) '#f))))) (define error-irritants - (lambda (_%obj103647%_) + (lambda (_%obj104795%_) (if (let () (declare (not safe)) - (class-instance? Error::t _%obj103647%_)) + (class-instance? Error::t _%obj104795%_)) (let () (declare (not safe)) - (unchecked-slot-ref _%obj103647%_ 'irritants)) - (if (error-exception? _%obj103647%_) - (error-exception-parameters _%obj103647%_) + (unchecked-slot-ref _%obj104795%_ 'irritants)) + (if (error-exception? _%obj104795%_) + (error-exception-parameters _%obj104795%_) '#f)))) (define error-trace - (lambda (_%obj103645%_) + (lambda (_%obj104793%_) (if (let () (declare (not safe)) - (class-instance? Error::t _%obj103645%_)) + (class-instance? Error::t _%obj104793%_)) (let () (declare (not safe)) - (unchecked-slot-ref _%obj103645%_ 'where)) + (unchecked-slot-ref _%obj104793%_ 'where)) '#f))) (define display-exception__% - (lambda (_%e103626%_ _%port103627%_) - (let ((_%$e103629%_ + (lambda (_%e104774%_ _%port104775%_) + (let ((_%$e104777%_ (let () (declare (not safe)) - (__method-ref _%e103626%_ 'display-exception)))) - (if _%$e103629%_ - ((lambda (_%f103632%_) (_%f103632%_ _%e103626%_ _%port103627%_)) - _%$e103629%_) + (__method-ref _%e104774%_ 'display-exception)))) + (if _%$e104777%_ + ((lambda (_%f104780%_) (_%f104780%_ _%e104774%_ _%port104775%_)) + _%$e104777%_) (let () (declare (not safe)) - (##default-display-exception _%e103626%_ _%port103627%_)))))) + (##default-display-exception _%e104774%_ _%port104775%_)))))) (define display-exception__0 - (lambda (_%e103638%_) - (let ((_%port103640%_ (current-error-port))) - (display-exception__% _%e103638%_ _%port103640%_)))) + (lambda (_%e104786%_) + (let ((_%port104788%_ (current-error-port))) + (display-exception__% _%e104786%_ _%port104788%_)))) (define display-exception - (lambda _g103876_ - (let ((_g103875_ (let () (declare (not safe)) (##length _g103876_)))) - (cond ((let () (declare (not safe)) (##fx= _g103875_ 1)) - (apply display-exception__0 _g103876_)) - ((let () (declare (not safe)) (##fx= _g103875_ 2)) - (apply display-exception__% _g103876_)) + (lambda _g105024_ + (let ((_g105023_ (let () (declare (not safe)) (##length _g105024_)))) + (cond ((let () (declare (not safe)) (##fx= _g105023_ 1)) + (apply display-exception__0 _g105024_)) + ((let () (declare (not safe)) (##fx= _g105023_ 2)) + (apply display-exception__% _g105024_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g103876_)))))) + _g105024_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_%self101995103602%_ _%message103604%_ . _%rest103605%_) - (let* ((_%self103607%_ _%self101995103602%_) - (_%self103609%_ _%self103607%_) - (_%message103623%_ - (if (string? _%message103604%_) - _%message103604%_ + (lambda (_%self103143104750%_ _%message104752%_ . _%rest104753%_) + (let* ((_%self104755%_ _%self103143104750%_) + (_%self104757%_ _%self104755%_) + (_%message104771%_ + (if (string? _%message104752%_) + _%message104752%_ (call-with-output-string '"" - (lambda (_%g103618103620%_) - (display _%message103604%_ _%g103618103620%_)))))) + (lambda (_%g104766104768%_) + (display _%message104752%_ _%g104766104768%_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _%self103609%_ 'message _%message103623%_)) - (apply class-instance-init! _%self103609%_ _%rest103605%_)))) + (unchecked-slot-set! _%self104757%_ 'message _%message104771%_)) + (apply class-instance-init! _%self104757%_ _%rest104753%_)))) (define Error:::init!::specialize - (lambda (__klass103837 __method-table103838) - (let ((__message103839 - (let ((__slot103840 + (lambda (__klass104985 __method-table104986) + (let ((__message104987 + (let ((__slot104988 (let () (declare (not safe)) - (class-slot-offset __klass103837 'message)))) - (if __slot103840 - __slot103840 + (class-slot-offset __klass104985 'message)))) + (if __slot104988 + __slot104988 (error '"Unknown slot" 'message))))) - (lambda (_%self101995103602%_ _%message103604%_ . _%rest103605%_) - (let* ((_%self103607%_ _%self101995103602%_) - (_%self103609%_ _%self103607%_) - (_%message103623%_ - (if (string? _%message103604%_) - _%message103604%_ + (lambda (_%self103143104750%_ _%message104752%_ . _%rest104753%_) + (let* ((_%self104755%_ _%self103143104750%_) + (_%self104757%_ _%self104755%_) + (_%message104771%_ + (if (string? _%message104752%_) + _%message104752%_ (call-with-output-string '"" - (lambda (_%g103618103620%_) - (display _%message103604%_ _%g103618103620%_)))))) + (lambda (_%g104766104768%_) + (display _%message104752%_ _%g104766104768%_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _%self103609%_ - _%message103623%_ - __message103839 + _%self104757%_ + _%message104771%_ + __message104987 '#f '#f)) - (apply class-instance-init! _%self103609%_ _%rest103605%_)))))) + (apply class-instance-init! _%self104757%_ _%rest104753%_)))))) (let () (declare (not safe)) (bind-specializer! Error:::init! Error:::init!::specialize)) @@ -627,224 +627,224 @@ '#f)) (define dump-stack-trace? (make-parameter '#f)) (define Error::display-exception - (lambda (_%self101996103324%_ _%port103326%_) - (let* ((_%self103328%_ _%self101996103324%_) - (_%self103330%_ _%self103328%_)) - (let ((_%tmp-port103340%_ (open-output-string)) - (_%display-error-newline103341%_ - (> (output-port-column _%port103326%_) '0))) - (fix-port-width! _%tmp-port103340%_) - (let ((__tmp103877 + (lambda (_%self103144104472%_ _%port104474%_) + (let* ((_%self104476%_ _%self103144104472%_) + (_%self104478%_ _%self104476%_)) + (let ((_%tmp-port104488%_ (open-output-string)) + (_%display-error-newline104489%_ + (> (output-port-column _%port104474%_) '0))) + (fix-port-width! _%tmp-port104488%_) + (let ((__tmp105025 (lambda () - (if _%display-error-newline103341%_ (newline) '#!void) + (if _%display-error-newline104489%_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_%$e103344%_ + (let ((_%$e104492%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self103330%_ 'where)))) - (if _%$e103344%_ (display _%$e103344%_) (display '"?"))) - (let ((__tmp103878 - (let ((__tmp103879 + (unchecked-slot-ref _%self104478%_ 'where)))) + (if _%$e104492%_ (display _%$e104492%_) (display '"?"))) + (let ((__tmp105026 + (let ((__tmp105027 (let () (declare (not safe)) - (object-type _%self103330%_)))) + (object-type _%self104478%_)))) (declare (not safe)) - (##type-name __tmp103879)))) + (##type-name __tmp105027)))) (declare (not safe)) - (display* '" [" __tmp103878 '"]: ")) - (let ((__tmp103880 + (display* '" [" __tmp105026 '"]: ")) + (let ((__tmp105028 (let () (declare (not safe)) - (unchecked-slot-ref _%self103330%_ 'message)))) + (unchecked-slot-ref _%self104478%_ 'message)))) (declare (not safe)) - (displayln __tmp103880)) - (let ((_%irritants103348%_ + (displayln __tmp105028)) + (let ((_%irritants104496%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self103330%_ 'irritants)))) - (if (null? _%irritants103348%_) + (unchecked-slot-ref _%self104478%_ 'irritants)))) + (if (null? _%irritants104496%_) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_%obj103350%_) - (if (u8vector? _%obj103350%_) - (let ((__tmp103881 + (lambda (_%obj104498%_) + (if (u8vector? _%obj104498%_) + (let ((__tmp105029 (cons ' (cons (let () (declare (not safe)) (##u8vector-length - _%obj103350%_)) + _%obj104498%_)) '())))) (declare (not safe)) - (##write __tmp103881)) + (##write __tmp105029)) (let () (declare (not safe)) - (##write _%obj103350%_))) + (##write _%obj104498%_))) (let () (declare (not safe)) (##write-char '#\space))) - _%irritants103348%_) + _%irritants104496%_) (newline)))) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont103351103353%_ + (let ((_%cont104499104501%_ (let () (declare (not safe)) (unchecked-slot-ref - _%self103330%_ + _%self104478%_ 'continuation)))) - (if _%cont103351103353%_ - (let ((_%cont103356%_ _%cont103351103353%_)) + (if _%cont104499104501%_ + (let ((_%cont104504%_ _%cont104499104501%_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _%cont103356%_)) + _%cont104504%_)) '#f)) '#!void)))) (declare (not safe)) (__call-with-parameters - __tmp103877 + __tmp105025 current-output-port - _%tmp-port103340%_)) - (let ((__tmp103882 (get-output-string _%tmp-port103340%_))) + _%tmp-port104488%_)) + (let ((__tmp105030 (get-output-string _%tmp-port104488%_))) (declare (not safe)) - (##write-string __tmp103882 _%port103326%_)))))) + (##write-string __tmp105030 _%port104474%_)))))) (define Error::display-exception::specialize - (lambda (__klass103841 __method-table103842) - (let ((__where103843 - (let ((__slot103847 + (lambda (__klass104989 __method-table104990) + (let ((__message104991 + (let ((__slot104995 (let () (declare (not safe)) - (class-slot-offset __klass103841 'where)))) - (if __slot103847 - __slot103847 - (error '"Unknown slot" 'where)))) - (__irritants103844 - (let ((__slot103848 + (class-slot-offset __klass104989 'message)))) + (if __slot104995 + __slot104995 + (error '"Unknown slot" 'message)))) + (__where104992 + (let ((__slot104996 (let () (declare (not safe)) - (class-slot-offset __klass103841 'irritants)))) - (if __slot103848 - __slot103848 - (error '"Unknown slot" 'irritants)))) - (__continuation103845 - (let ((__slot103849 + (class-slot-offset __klass104989 'where)))) + (if __slot104996 + __slot104996 + (error '"Unknown slot" 'where)))) + (__irritants104993 + (let ((__slot104997 (let () (declare (not safe)) - (class-slot-offset __klass103841 'continuation)))) - (if __slot103849 - __slot103849 - (error '"Unknown slot" 'continuation)))) - (__message103846 - (let ((__slot103850 + (class-slot-offset __klass104989 'irritants)))) + (if __slot104997 + __slot104997 + (error '"Unknown slot" 'irritants)))) + (__continuation104994 + (let ((__slot104998 (let () (declare (not safe)) - (class-slot-offset __klass103841 'message)))) - (if __slot103850 - __slot103850 - (error '"Unknown slot" 'message))))) - (lambda (_%self101996103324%_ _%port103326%_) - (let* ((_%self103328%_ _%self101996103324%_) - (_%self103330%_ _%self103328%_)) - (let ((_%tmp-port103340%_ (open-output-string)) - (_%display-error-newline103341%_ - (> (output-port-column _%port103326%_) '0))) - (fix-port-width! _%tmp-port103340%_) - (let ((__tmp103883 + (class-slot-offset __klass104989 'continuation)))) + (if __slot104998 + __slot104998 + (error '"Unknown slot" 'continuation))))) + (lambda (_%self103144104472%_ _%port104474%_) + (let* ((_%self104476%_ _%self103144104472%_) + (_%self104478%_ _%self104476%_)) + (let ((_%tmp-port104488%_ (open-output-string)) + (_%display-error-newline104489%_ + (> (output-port-column _%port104474%_) '0))) + (fix-port-width! _%tmp-port104488%_) + (let ((__tmp105031 (lambda () - (if _%display-error-newline103341%_ (newline) '#!void) + (if _%display-error-newline104489%_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_%$e103344%_ + (let ((_%$e104492%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self103330%_ - __where103843 + _%self104478%_ + __where104992 '#f '#f)))) - (if _%$e103344%_ - (display _%$e103344%_) + (if _%$e104492%_ + (display _%$e104492%_) (display '"?"))) - (let ((__tmp103884 - (let ((__tmp103885 + (let ((__tmp105032 + (let ((__tmp105033 (let () (declare (not safe)) - (object-type _%self103330%_)))) + (object-type _%self104478%_)))) (declare (not safe)) - (##type-name __tmp103885)))) + (##type-name __tmp105033)))) (declare (not safe)) - (display* '" [" __tmp103884 '"]: ")) - (let ((__tmp103886 + (display* '" [" __tmp105032 '"]: ")) + (let ((__tmp105034 (let () (declare (not safe)) (##unchecked-structure-ref - _%self103330%_ - __message103846 + _%self104478%_ + __message104991 '#f '#f)))) (declare (not safe)) - (displayln __tmp103886)) - (let ((_%irritants103348%_ + (displayln __tmp105034)) + (let ((_%irritants104496%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self103330%_ - __irritants103844 + _%self104478%_ + __irritants104993 '#f '#f)))) - (if (null? _%irritants103348%_) + (if (null? _%irritants104496%_) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_%obj103350%_) - (if (u8vector? _%obj103350%_) - (let ((__tmp103887 + (lambda (_%obj104498%_) + (if (u8vector? _%obj104498%_) + (let ((__tmp105035 (cons ' (cons (let () (declare (not safe)) (##u8vector-length - _%obj103350%_)) + _%obj104498%_)) '())))) (declare (not safe)) - (##write __tmp103887)) + (##write __tmp105035)) (let () (declare (not safe)) - (##write _%obj103350%_))) + (##write _%obj104498%_))) (let () (declare (not safe)) (##write-char '#\space))) - _%irritants103348%_) + _%irritants104496%_) (newline)))) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont103351103353%_ + (let ((_%cont104499104501%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self103330%_ - __continuation103845 + _%self104478%_ + __continuation104994 '#f '#f)))) - (if _%cont103351103353%_ - (let ((_%cont103356%_ _%cont103351103353%_)) + (if _%cont104499104501%_ + (let ((_%cont104504%_ _%cont104499104501%_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _%cont103356%_)) + _%cont104504%_)) '#f)) '#!void)))) (declare (not safe)) (__call-with-parameters - __tmp103883 + __tmp105031 current-output-port - _%tmp-port103340%_)) - (let ((__tmp103888 (get-output-string _%tmp-port103340%_))) + _%tmp-port104488%_)) + (let ((__tmp105036 (get-output-string _%tmp-port104488%_))) (declare (not safe)) - (##write-string __tmp103888 _%port103326%_)))))))) + (##write-string __tmp105036 _%port104474%_)))))))) (let () (declare (not safe)) (bind-specializer! @@ -858,90 +858,90 @@ Error::display-exception '#t)) (define RuntimeException::display-exception - (lambda (_%self101997103178%_ _%port103180%_) - (let* ((_%self103182%_ _%self101997103178%_) - (_%self103184%_ _%self103182%_) - (_%tmp-port103194%_ (open-output-string))) - (fix-port-width! _%tmp-port103194%_) - (let ((__tmp103889 + (lambda (_%self103145104326%_ _%port104328%_) + (let* ((_%self104330%_ _%self103145104326%_) + (_%self104332%_ _%self104330%_) + (_%tmp-port104342%_ (open-output-string))) + (fix-port-width! _%tmp-port104342%_) + (let ((__tmp105037 (let () (declare (not safe)) - (unchecked-slot-ref _%self103184%_ 'exception)))) + (unchecked-slot-ref _%self104332%_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp103889 _%tmp-port103194%_)) + (##default-display-exception __tmp105037 _%tmp-port104342%_)) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont103195103197%_ + (let ((_%cont104343104345%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self103184%_ 'continuation)))) - (if _%cont103195103197%_ - (let ((_%cont103200%_ _%cont103195103197%_)) + (unchecked-slot-ref _%self104332%_ 'continuation)))) + (if _%cont104343104345%_ + (let ((_%cont104348%_ _%cont104343104345%_)) (display '"--- continuation backtrace:" - _%tmp-port103194%_) - (newline _%tmp-port103194%_) + _%tmp-port104342%_) + (newline _%tmp-port104342%_) (display-continuation-backtrace - _%cont103200%_ - _%tmp-port103194%_)) + _%cont104348%_ + _%tmp-port104342%_)) '#f)) '#!void) - (let ((__tmp103890 (get-output-string _%tmp-port103194%_))) + (let ((__tmp105038 (get-output-string _%tmp-port104342%_))) (declare (not safe)) - (##write-string __tmp103890 _%port103180%_))))) + (##write-string __tmp105038 _%port104328%_))))) (define RuntimeException::display-exception::specialize - (lambda (__klass103851 __method-table103852) - (let ((__continuation103853 - (let ((__slot103855 + (lambda (__klass104999 __method-table105000) + (let ((__continuation105001 + (let ((__slot105003 (let () (declare (not safe)) - (class-slot-offset __klass103851 'continuation)))) - (if __slot103855 - __slot103855 + (class-slot-offset __klass104999 'continuation)))) + (if __slot105003 + __slot105003 (error '"Unknown slot" 'continuation)))) - (__exception103854 - (let ((__slot103856 + (__exception105002 + (let ((__slot105004 (let () (declare (not safe)) - (class-slot-offset __klass103851 'exception)))) - (if __slot103856 - __slot103856 + (class-slot-offset __klass104999 'exception)))) + (if __slot105004 + __slot105004 (error '"Unknown slot" 'exception))))) - (lambda (_%self101997103178%_ _%port103180%_) - (let* ((_%self103182%_ _%self101997103178%_) - (_%self103184%_ _%self103182%_) - (_%tmp-port103194%_ (open-output-string))) - (fix-port-width! _%tmp-port103194%_) - (let ((__tmp103891 + (lambda (_%self103145104326%_ _%port104328%_) + (let* ((_%self104330%_ _%self103145104326%_) + (_%self104332%_ _%self104330%_) + (_%tmp-port104342%_ (open-output-string))) + (fix-port-width! _%tmp-port104342%_) + (let ((__tmp105039 (let () (declare (not safe)) (##unchecked-structure-ref - _%self103184%_ - __exception103854 + _%self104332%_ + __exception105002 '#f '#f)))) (declare (not safe)) - (##default-display-exception __tmp103891 _%tmp-port103194%_)) + (##default-display-exception __tmp105039 _%tmp-port104342%_)) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont103195103197%_ + (let ((_%cont104343104345%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self103184%_ - __continuation103853 + _%self104332%_ + __continuation105001 '#f '#f)))) - (if _%cont103195103197%_ - (let ((_%cont103200%_ _%cont103195103197%_)) + (if _%cont104343104345%_ + (let ((_%cont104348%_ _%cont104343104345%_)) (display '"--- continuation backtrace:" - _%tmp-port103194%_) - (newline _%tmp-port103194%_) + _%tmp-port104342%_) + (newline _%tmp-port104342%_) (display-continuation-backtrace - _%cont103200%_ - _%tmp-port103194%_)) + _%cont104348%_ + _%tmp-port104342%_)) '#f)) '#!void) - (let ((__tmp103892 (get-output-string _%tmp-port103194%_))) + (let ((__tmp105040 (get-output-string _%tmp-port104342%_))) (declare (not safe)) - (##write-string __tmp103892 _%port103180%_))))))) + (##write-string __tmp105040 _%port104328%_))))))) (let () (declare (not safe)) (bind-specializer! @@ -955,2636 +955,2636 @@ RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_%port103050%_) - (if (macro-character-port? _%port103050%_) - (let ((_%old-width103052%_ - (macro-character-port-output-width _%port103050%_))) + (lambda (_%port104198%_) + (if (macro-character-port? _%port104198%_) + (let ((_%old-width104200%_ + (macro-character-port-output-width _%port104198%_))) (macro-character-port-output-width-set! - _%port103050%_ - (lambda (_%port103054%_) '256)) - _%old-width103052%_) + _%port104198%_ + (lambda (_%port104202%_) '256)) + _%old-width104200%_) '#!void))) (define reset-port-width! - (lambda (_%port103047%_ _%old-width103048%_) - (if (macro-character-port? _%port103047%_) + (lambda (_%port104195%_ _%old-width104196%_) + (if (macro-character-port? _%port104195%_) (macro-character-port-output-width-set! - _%port103047%_ - _%old-width103048%_) + _%port104195%_ + _%old-width104196%_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_%e103045%_) - (macro-readenv-filepos (datum-parsing-exception-readenv _%e103045%_)))) + (lambda (_%e104193%_) + (macro-readenv-filepos (datum-parsing-exception-readenv _%e104193%_)))) (define abandoned-mutex-exception? - (lambda (_%exn103039%_) + (lambda (_%exn104187%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103039%_)) - (let ((_%e103042%_ + (class-instance? RuntimeException::t _%exn104187%_)) + (let ((_%e104190%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103039%_ 'exception)))) - (macro-abandoned-mutex-exception? _%e103042%_)) - (macro-abandoned-mutex-exception? _%exn103039%_)))) + (unchecked-slot-ref _%exn104187%_ 'exception)))) + (macro-abandoned-mutex-exception? _%e104190%_)) + (macro-abandoned-mutex-exception? _%exn104187%_)))) (define cfun-conversion-exception? - (lambda (_%exn103035%_) + (lambda (_%exn104183%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103035%_)) - (let ((_%e103037%_ + (class-instance? RuntimeException::t _%exn104183%_)) + (let ((_%e104185%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103035%_ 'exception)))) - (macro-cfun-conversion-exception? _%e103037%_)) - (macro-cfun-conversion-exception? _%exn103035%_)))) + (unchecked-slot-ref _%exn104183%_ 'exception)))) + (macro-cfun-conversion-exception? _%e104185%_)) + (macro-cfun-conversion-exception? _%exn104183%_)))) (define cfun-conversion-exception-arguments - (lambda (_%exn103031%_) + (lambda (_%exn104179%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103031%_)) - (let ((_%e103033%_ + (class-instance? RuntimeException::t _%exn104179%_)) + (let ((_%e104181%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103031%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e103033%_) - (macro-cfun-conversion-exception-arguments _%e103033%_) + (unchecked-slot-ref _%exn104179%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e104181%_) + (macro-cfun-conversion-exception-arguments _%e104181%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-arguments - (cons _%e103033%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn103031%_) - (macro-cfun-conversion-exception-arguments _%exn103031%_) + (cons _%e104181%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn104179%_) + (macro-cfun-conversion-exception-arguments _%exn104179%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-arguments - (cons _%exn103031%_ '()))))))) + (cons _%exn104179%_ '()))))))) (define cfun-conversion-exception-code - (lambda (_%exn103027%_) + (lambda (_%exn104175%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103027%_)) - (let ((_%e103029%_ + (class-instance? RuntimeException::t _%exn104175%_)) + (let ((_%e104177%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103027%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e103029%_) - (macro-cfun-conversion-exception-code _%e103029%_) + (unchecked-slot-ref _%exn104175%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e104177%_) + (macro-cfun-conversion-exception-code _%e104177%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-code - (cons _%e103029%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn103027%_) - (macro-cfun-conversion-exception-code _%exn103027%_) + (cons _%e104177%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn104175%_) + (macro-cfun-conversion-exception-code _%exn104175%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-code - (cons _%exn103027%_ '()))))))) + (cons _%exn104175%_ '()))))))) (define cfun-conversion-exception-message - (lambda (_%exn103023%_) + (lambda (_%exn104171%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103023%_)) - (let ((_%e103025%_ + (class-instance? RuntimeException::t _%exn104171%_)) + (let ((_%e104173%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103023%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e103025%_) - (macro-cfun-conversion-exception-message _%e103025%_) + (unchecked-slot-ref _%exn104171%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e104173%_) + (macro-cfun-conversion-exception-message _%e104173%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-message - (cons _%e103025%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn103023%_) - (macro-cfun-conversion-exception-message _%exn103023%_) + (cons _%e104173%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn104171%_) + (macro-cfun-conversion-exception-message _%exn104171%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-message - (cons _%exn103023%_ '()))))))) + (cons _%exn104171%_ '()))))))) (define cfun-conversion-exception-procedure - (lambda (_%exn103017%_) + (lambda (_%exn104165%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103017%_)) - (let ((_%e103020%_ + (class-instance? RuntimeException::t _%exn104165%_)) + (let ((_%e104168%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103017%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e103020%_) - (macro-cfun-conversion-exception-procedure _%e103020%_) + (unchecked-slot-ref _%exn104165%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e104168%_) + (macro-cfun-conversion-exception-procedure _%e104168%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-procedure - (cons _%e103020%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn103017%_) - (macro-cfun-conversion-exception-procedure _%exn103017%_) + (cons _%e104168%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn104165%_) + (macro-cfun-conversion-exception-procedure _%exn104165%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-procedure - (cons _%exn103017%_ '()))))))) + (cons _%exn104165%_ '()))))))) (define datum-parsing-exception? - (lambda (_%exn103013%_) + (lambda (_%exn104161%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103013%_)) - (let ((_%e103015%_ + (class-instance? RuntimeException::t _%exn104161%_)) + (let ((_%e104163%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103013%_ 'exception)))) - (macro-datum-parsing-exception? _%e103015%_)) - (macro-datum-parsing-exception? _%exn103013%_)))) + (unchecked-slot-ref _%exn104161%_ 'exception)))) + (macro-datum-parsing-exception? _%e104163%_)) + (macro-datum-parsing-exception? _%exn104161%_)))) (define datum-parsing-exception-kind - (lambda (_%exn103009%_) + (lambda (_%exn104157%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103009%_)) - (let ((_%e103011%_ + (class-instance? RuntimeException::t _%exn104157%_)) + (let ((_%e104159%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103009%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e103011%_) - (macro-datum-parsing-exception-kind _%e103011%_) + (unchecked-slot-ref _%exn104157%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e104159%_) + (macro-datum-parsing-exception-kind _%e104159%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-kind - (cons _%e103011%_ '()))))) - (if (macro-datum-parsing-exception? _%exn103009%_) - (macro-datum-parsing-exception-kind _%exn103009%_) + (cons _%e104159%_ '()))))) + (if (macro-datum-parsing-exception? _%exn104157%_) + (macro-datum-parsing-exception-kind _%exn104157%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-kind - (cons _%exn103009%_ '()))))))) + (cons _%exn104157%_ '()))))))) (define datum-parsing-exception-parameters - (lambda (_%exn103005%_) + (lambda (_%exn104153%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103005%_)) - (let ((_%e103007%_ + (class-instance? RuntimeException::t _%exn104153%_)) + (let ((_%e104155%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103005%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e103007%_) - (macro-datum-parsing-exception-parameters _%e103007%_) + (unchecked-slot-ref _%exn104153%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e104155%_) + (macro-datum-parsing-exception-parameters _%e104155%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-parameters - (cons _%e103007%_ '()))))) - (if (macro-datum-parsing-exception? _%exn103005%_) - (macro-datum-parsing-exception-parameters _%exn103005%_) + (cons _%e104155%_ '()))))) + (if (macro-datum-parsing-exception? _%exn104153%_) + (macro-datum-parsing-exception-parameters _%exn104153%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-parameters - (cons _%exn103005%_ '()))))))) + (cons _%exn104153%_ '()))))))) (define datum-parsing-exception-readenv - (lambda (_%exn102999%_) + (lambda (_%exn104147%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102999%_)) - (let ((_%e103002%_ + (class-instance? RuntimeException::t _%exn104147%_)) + (let ((_%e104150%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102999%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e103002%_) - (macro-datum-parsing-exception-readenv _%e103002%_) + (unchecked-slot-ref _%exn104147%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e104150%_) + (macro-datum-parsing-exception-readenv _%e104150%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-readenv - (cons _%e103002%_ '()))))) - (if (macro-datum-parsing-exception? _%exn102999%_) - (macro-datum-parsing-exception-readenv _%exn102999%_) + (cons _%e104150%_ '()))))) + (if (macro-datum-parsing-exception? _%exn104147%_) + (macro-datum-parsing-exception-readenv _%exn104147%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-readenv - (cons _%exn102999%_ '()))))))) + (cons _%exn104147%_ '()))))))) (define deadlock-exception? - (lambda (_%exn102993%_) + (lambda (_%exn104141%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102993%_)) - (let ((_%e102996%_ + (class-instance? RuntimeException::t _%exn104141%_)) + (let ((_%e104144%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102993%_ 'exception)))) - (macro-deadlock-exception? _%e102996%_)) - (macro-deadlock-exception? _%exn102993%_)))) + (unchecked-slot-ref _%exn104141%_ 'exception)))) + (macro-deadlock-exception? _%e104144%_)) + (macro-deadlock-exception? _%exn104141%_)))) (define divide-by-zero-exception? - (lambda (_%exn102989%_) + (lambda (_%exn104137%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102989%_)) - (let ((_%e102991%_ + (class-instance? RuntimeException::t _%exn104137%_)) + (let ((_%e104139%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102989%_ 'exception)))) - (macro-divide-by-zero-exception? _%e102991%_)) - (macro-divide-by-zero-exception? _%exn102989%_)))) + (unchecked-slot-ref _%exn104137%_ 'exception)))) + (macro-divide-by-zero-exception? _%e104139%_)) + (macro-divide-by-zero-exception? _%exn104137%_)))) (define divide-by-zero-exception-arguments - (lambda (_%exn102985%_) + (lambda (_%exn104133%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102985%_)) - (let ((_%e102987%_ + (class-instance? RuntimeException::t _%exn104133%_)) + (let ((_%e104135%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102985%_ 'exception)))) - (if (macro-divide-by-zero-exception? _%e102987%_) - (macro-divide-by-zero-exception-arguments _%e102987%_) + (unchecked-slot-ref _%exn104133%_ 'exception)))) + (if (macro-divide-by-zero-exception? _%e104135%_) + (macro-divide-by-zero-exception-arguments _%e104135%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-arguments - (cons _%e102987%_ '()))))) - (if (macro-divide-by-zero-exception? _%exn102985%_) - (macro-divide-by-zero-exception-arguments _%exn102985%_) + (cons _%e104135%_ '()))))) + (if (macro-divide-by-zero-exception? _%exn104133%_) + (macro-divide-by-zero-exception-arguments _%exn104133%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-arguments - (cons _%exn102985%_ '()))))))) + (cons _%exn104133%_ '()))))))) (define divide-by-zero-exception-procedure - (lambda (_%exn102979%_) + (lambda (_%exn104127%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102979%_)) - (let ((_%e102982%_ + (class-instance? RuntimeException::t _%exn104127%_)) + (let ((_%e104130%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102979%_ 'exception)))) - (if (macro-divide-by-zero-exception? _%e102982%_) - (macro-divide-by-zero-exception-procedure _%e102982%_) + (unchecked-slot-ref _%exn104127%_ 'exception)))) + (if (macro-divide-by-zero-exception? _%e104130%_) + (macro-divide-by-zero-exception-procedure _%e104130%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-procedure - (cons _%e102982%_ '()))))) - (if (macro-divide-by-zero-exception? _%exn102979%_) - (macro-divide-by-zero-exception-procedure _%exn102979%_) + (cons _%e104130%_ '()))))) + (if (macro-divide-by-zero-exception? _%exn104127%_) + (macro-divide-by-zero-exception-procedure _%exn104127%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-procedure - (cons _%exn102979%_ '()))))))) + (cons _%exn104127%_ '()))))))) (define error-exception? - (lambda (_%exn102975%_) + (lambda (_%exn104123%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102975%_)) - (let ((_%e102977%_ + (class-instance? RuntimeException::t _%exn104123%_)) + (let ((_%e104125%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102975%_ 'exception)))) - (macro-error-exception? _%e102977%_)) - (macro-error-exception? _%exn102975%_)))) + (unchecked-slot-ref _%exn104123%_ 'exception)))) + (macro-error-exception? _%e104125%_)) + (macro-error-exception? _%exn104123%_)))) (define error-exception-message - (lambda (_%exn102971%_) + (lambda (_%exn104119%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102971%_)) - (let ((_%e102973%_ + (class-instance? RuntimeException::t _%exn104119%_)) + (let ((_%e104121%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102971%_ 'exception)))) - (if (macro-error-exception? _%e102973%_) - (macro-error-exception-message _%e102973%_) + (unchecked-slot-ref _%exn104119%_ 'exception)))) + (if (macro-error-exception? _%e104121%_) + (macro-error-exception-message _%e104121%_) (error '"not an instance" 'error-exception? (cons 'error-exception-message - (cons _%e102973%_ '()))))) - (if (macro-error-exception? _%exn102971%_) - (macro-error-exception-message _%exn102971%_) + (cons _%e104121%_ '()))))) + (if (macro-error-exception? _%exn104119%_) + (macro-error-exception-message _%exn104119%_) (error '"not an instance" 'error-exception? (cons 'error-exception-message - (cons _%exn102971%_ '()))))))) + (cons _%exn104119%_ '()))))))) (define error-exception-parameters - (lambda (_%exn102965%_) + (lambda (_%exn104113%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102965%_)) - (let ((_%e102968%_ + (class-instance? RuntimeException::t _%exn104113%_)) + (let ((_%e104116%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102965%_ 'exception)))) - (if (macro-error-exception? _%e102968%_) - (macro-error-exception-parameters _%e102968%_) + (unchecked-slot-ref _%exn104113%_ 'exception)))) + (if (macro-error-exception? _%e104116%_) + (macro-error-exception-parameters _%e104116%_) (error '"not an instance" 'error-exception? (cons 'error-exception-parameters - (cons _%e102968%_ '()))))) - (if (macro-error-exception? _%exn102965%_) - (macro-error-exception-parameters _%exn102965%_) + (cons _%e104116%_ '()))))) + (if (macro-error-exception? _%exn104113%_) + (macro-error-exception-parameters _%exn104113%_) (error '"not an instance" 'error-exception? (cons 'error-exception-parameters - (cons _%exn102965%_ '()))))))) + (cons _%exn104113%_ '()))))))) (define expression-parsing-exception? - (lambda (_%exn102961%_) + (lambda (_%exn104109%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102961%_)) - (let ((_%e102963%_ + (class-instance? RuntimeException::t _%exn104109%_)) + (let ((_%e104111%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102961%_ 'exception)))) - (macro-expression-parsing-exception? _%e102963%_)) - (macro-expression-parsing-exception? _%exn102961%_)))) + (unchecked-slot-ref _%exn104109%_ 'exception)))) + (macro-expression-parsing-exception? _%e104111%_)) + (macro-expression-parsing-exception? _%exn104109%_)))) (define expression-parsing-exception-kind - (lambda (_%exn102957%_) + (lambda (_%exn104105%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102957%_)) - (let ((_%e102959%_ + (class-instance? RuntimeException::t _%exn104105%_)) + (let ((_%e104107%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102957%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e102959%_) - (macro-expression-parsing-exception-kind _%e102959%_) + (unchecked-slot-ref _%exn104105%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e104107%_) + (macro-expression-parsing-exception-kind _%e104107%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-kind - (cons _%e102959%_ '()))))) - (if (macro-expression-parsing-exception? _%exn102957%_) - (macro-expression-parsing-exception-kind _%exn102957%_) + (cons _%e104107%_ '()))))) + (if (macro-expression-parsing-exception? _%exn104105%_) + (macro-expression-parsing-exception-kind _%exn104105%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-kind - (cons _%exn102957%_ '()))))))) + (cons _%exn104105%_ '()))))))) (define expression-parsing-exception-parameters - (lambda (_%exn102953%_) + (lambda (_%exn104101%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102953%_)) - (let ((_%e102955%_ + (class-instance? RuntimeException::t _%exn104101%_)) + (let ((_%e104103%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102953%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e102955%_) - (macro-expression-parsing-exception-parameters _%e102955%_) + (unchecked-slot-ref _%exn104101%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e104103%_) + (macro-expression-parsing-exception-parameters _%e104103%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-parameters - (cons _%e102955%_ '()))))) - (if (macro-expression-parsing-exception? _%exn102953%_) - (macro-expression-parsing-exception-parameters _%exn102953%_) + (cons _%e104103%_ '()))))) + (if (macro-expression-parsing-exception? _%exn104101%_) + (macro-expression-parsing-exception-parameters _%exn104101%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-parameters - (cons _%exn102953%_ '()))))))) + (cons _%exn104101%_ '()))))))) (define expression-parsing-exception-source - (lambda (_%exn102947%_) + (lambda (_%exn104095%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102947%_)) - (let ((_%e102950%_ + (class-instance? RuntimeException::t _%exn104095%_)) + (let ((_%e104098%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102947%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e102950%_) - (macro-expression-parsing-exception-source _%e102950%_) + (unchecked-slot-ref _%exn104095%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e104098%_) + (macro-expression-parsing-exception-source _%e104098%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-source - (cons _%e102950%_ '()))))) - (if (macro-expression-parsing-exception? _%exn102947%_) - (macro-expression-parsing-exception-source _%exn102947%_) + (cons _%e104098%_ '()))))) + (if (macro-expression-parsing-exception? _%exn104095%_) + (macro-expression-parsing-exception-source _%exn104095%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-source - (cons _%exn102947%_ '()))))))) + (cons _%exn104095%_ '()))))))) (define file-exists-exception? - (lambda (_%exn102943%_) + (lambda (_%exn104091%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102943%_)) - (let ((_%e102945%_ + (class-instance? RuntimeException::t _%exn104091%_)) + (let ((_%e104093%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102943%_ 'exception)))) - (macro-file-exists-exception? _%e102945%_)) - (macro-file-exists-exception? _%exn102943%_)))) + (unchecked-slot-ref _%exn104091%_ 'exception)))) + (macro-file-exists-exception? _%e104093%_)) + (macro-file-exists-exception? _%exn104091%_)))) (define file-exists-exception-arguments - (lambda (_%exn102939%_) + (lambda (_%exn104087%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102939%_)) - (let ((_%e102941%_ + (class-instance? RuntimeException::t _%exn104087%_)) + (let ((_%e104089%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102939%_ 'exception)))) - (if (macro-file-exists-exception? _%e102941%_) - (macro-file-exists-exception-arguments _%e102941%_) + (unchecked-slot-ref _%exn104087%_ 'exception)))) + (if (macro-file-exists-exception? _%e104089%_) + (macro-file-exists-exception-arguments _%e104089%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-arguments - (cons _%e102941%_ '()))))) - (if (macro-file-exists-exception? _%exn102939%_) - (macro-file-exists-exception-arguments _%exn102939%_) + (cons _%e104089%_ '()))))) + (if (macro-file-exists-exception? _%exn104087%_) + (macro-file-exists-exception-arguments _%exn104087%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-arguments - (cons _%exn102939%_ '()))))))) + (cons _%exn104087%_ '()))))))) (define file-exists-exception-procedure - (lambda (_%exn102933%_) + (lambda (_%exn104081%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102933%_)) - (let ((_%e102936%_ + (class-instance? RuntimeException::t _%exn104081%_)) + (let ((_%e104084%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102933%_ 'exception)))) - (if (macro-file-exists-exception? _%e102936%_) - (macro-file-exists-exception-procedure _%e102936%_) + (unchecked-slot-ref _%exn104081%_ 'exception)))) + (if (macro-file-exists-exception? _%e104084%_) + (macro-file-exists-exception-procedure _%e104084%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-procedure - (cons _%e102936%_ '()))))) - (if (macro-file-exists-exception? _%exn102933%_) - (macro-file-exists-exception-procedure _%exn102933%_) + (cons _%e104084%_ '()))))) + (if (macro-file-exists-exception? _%exn104081%_) + (macro-file-exists-exception-procedure _%exn104081%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-procedure - (cons _%exn102933%_ '()))))))) + (cons _%exn104081%_ '()))))))) (define fixnum-overflow-exception? - (lambda (_%exn102929%_) + (lambda (_%exn104077%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102929%_)) - (let ((_%e102931%_ + (class-instance? RuntimeException::t _%exn104077%_)) + (let ((_%e104079%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102929%_ 'exception)))) - (macro-fixnum-overflow-exception? _%e102931%_)) - (macro-fixnum-overflow-exception? _%exn102929%_)))) + (unchecked-slot-ref _%exn104077%_ 'exception)))) + (macro-fixnum-overflow-exception? _%e104079%_)) + (macro-fixnum-overflow-exception? _%exn104077%_)))) (define fixnum-overflow-exception-arguments - (lambda (_%exn102925%_) + (lambda (_%exn104073%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102925%_)) - (let ((_%e102927%_ + (class-instance? RuntimeException::t _%exn104073%_)) + (let ((_%e104075%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102925%_ 'exception)))) - (if (macro-fixnum-overflow-exception? _%e102927%_) - (macro-fixnum-overflow-exception-arguments _%e102927%_) + (unchecked-slot-ref _%exn104073%_ 'exception)))) + (if (macro-fixnum-overflow-exception? _%e104075%_) + (macro-fixnum-overflow-exception-arguments _%e104075%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-arguments - (cons _%e102927%_ '()))))) - (if (macro-fixnum-overflow-exception? _%exn102925%_) - (macro-fixnum-overflow-exception-arguments _%exn102925%_) + (cons _%e104075%_ '()))))) + (if (macro-fixnum-overflow-exception? _%exn104073%_) + (macro-fixnum-overflow-exception-arguments _%exn104073%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-arguments - (cons _%exn102925%_ '()))))))) + (cons _%exn104073%_ '()))))))) (define fixnum-overflow-exception-procedure - (lambda (_%exn102919%_) + (lambda (_%exn104067%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102919%_)) - (let ((_%e102922%_ + (class-instance? RuntimeException::t _%exn104067%_)) + (let ((_%e104070%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102919%_ 'exception)))) - (if (macro-fixnum-overflow-exception? _%e102922%_) - (macro-fixnum-overflow-exception-procedure _%e102922%_) + (unchecked-slot-ref _%exn104067%_ 'exception)))) + (if (macro-fixnum-overflow-exception? _%e104070%_) + (macro-fixnum-overflow-exception-procedure _%e104070%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-procedure - (cons _%e102922%_ '()))))) - (if (macro-fixnum-overflow-exception? _%exn102919%_) - (macro-fixnum-overflow-exception-procedure _%exn102919%_) + (cons _%e104070%_ '()))))) + (if (macro-fixnum-overflow-exception? _%exn104067%_) + (macro-fixnum-overflow-exception-procedure _%exn104067%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-procedure - (cons _%exn102919%_ '()))))))) + (cons _%exn104067%_ '()))))))) (define heap-overflow-exception? - (lambda (_%exn102913%_) + (lambda (_%exn104061%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102913%_)) - (let ((_%e102916%_ + (class-instance? RuntimeException::t _%exn104061%_)) + (let ((_%e104064%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102913%_ 'exception)))) - (macro-heap-overflow-exception? _%e102916%_)) - (macro-heap-overflow-exception? _%exn102913%_)))) + (unchecked-slot-ref _%exn104061%_ 'exception)))) + (macro-heap-overflow-exception? _%e104064%_)) + (macro-heap-overflow-exception? _%exn104061%_)))) (define inactive-thread-exception? - (lambda (_%exn102909%_) + (lambda (_%exn104057%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102909%_)) - (let ((_%e102911%_ + (class-instance? RuntimeException::t _%exn104057%_)) + (let ((_%e104059%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102909%_ 'exception)))) - (macro-inactive-thread-exception? _%e102911%_)) - (macro-inactive-thread-exception? _%exn102909%_)))) + (unchecked-slot-ref _%exn104057%_ 'exception)))) + (macro-inactive-thread-exception? _%e104059%_)) + (macro-inactive-thread-exception? _%exn104057%_)))) (define inactive-thread-exception-arguments - (lambda (_%exn102905%_) + (lambda (_%exn104053%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102905%_)) - (let ((_%e102907%_ + (class-instance? RuntimeException::t _%exn104053%_)) + (let ((_%e104055%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102905%_ 'exception)))) - (if (macro-inactive-thread-exception? _%e102907%_) - (macro-inactive-thread-exception-arguments _%e102907%_) + (unchecked-slot-ref _%exn104053%_ 'exception)))) + (if (macro-inactive-thread-exception? _%e104055%_) + (macro-inactive-thread-exception-arguments _%e104055%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-arguments - (cons _%e102907%_ '()))))) - (if (macro-inactive-thread-exception? _%exn102905%_) - (macro-inactive-thread-exception-arguments _%exn102905%_) + (cons _%e104055%_ '()))))) + (if (macro-inactive-thread-exception? _%exn104053%_) + (macro-inactive-thread-exception-arguments _%exn104053%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-arguments - (cons _%exn102905%_ '()))))))) + (cons _%exn104053%_ '()))))))) (define inactive-thread-exception-procedure - (lambda (_%exn102899%_) + (lambda (_%exn104047%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102899%_)) - (let ((_%e102902%_ + (class-instance? RuntimeException::t _%exn104047%_)) + (let ((_%e104050%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102899%_ 'exception)))) - (if (macro-inactive-thread-exception? _%e102902%_) - (macro-inactive-thread-exception-procedure _%e102902%_) + (unchecked-slot-ref _%exn104047%_ 'exception)))) + (if (macro-inactive-thread-exception? _%e104050%_) + (macro-inactive-thread-exception-procedure _%e104050%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-procedure - (cons _%e102902%_ '()))))) - (if (macro-inactive-thread-exception? _%exn102899%_) - (macro-inactive-thread-exception-procedure _%exn102899%_) + (cons _%e104050%_ '()))))) + (if (macro-inactive-thread-exception? _%exn104047%_) + (macro-inactive-thread-exception-procedure _%exn104047%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-procedure - (cons _%exn102899%_ '()))))))) + (cons _%exn104047%_ '()))))))) (define initialized-thread-exception? - (lambda (_%exn102895%_) + (lambda (_%exn104043%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102895%_)) - (let ((_%e102897%_ + (class-instance? RuntimeException::t _%exn104043%_)) + (let ((_%e104045%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102895%_ 'exception)))) - (macro-initialized-thread-exception? _%e102897%_)) - (macro-initialized-thread-exception? _%exn102895%_)))) + (unchecked-slot-ref _%exn104043%_ 'exception)))) + (macro-initialized-thread-exception? _%e104045%_)) + (macro-initialized-thread-exception? _%exn104043%_)))) (define initialized-thread-exception-arguments - (lambda (_%exn102891%_) + (lambda (_%exn104039%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102891%_)) - (let ((_%e102893%_ + (class-instance? RuntimeException::t _%exn104039%_)) + (let ((_%e104041%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102891%_ 'exception)))) - (if (macro-initialized-thread-exception? _%e102893%_) - (macro-initialized-thread-exception-arguments _%e102893%_) + (unchecked-slot-ref _%exn104039%_ 'exception)))) + (if (macro-initialized-thread-exception? _%e104041%_) + (macro-initialized-thread-exception-arguments _%e104041%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-arguments - (cons _%e102893%_ '()))))) - (if (macro-initialized-thread-exception? _%exn102891%_) - (macro-initialized-thread-exception-arguments _%exn102891%_) + (cons _%e104041%_ '()))))) + (if (macro-initialized-thread-exception? _%exn104039%_) + (macro-initialized-thread-exception-arguments _%exn104039%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-arguments - (cons _%exn102891%_ '()))))))) + (cons _%exn104039%_ '()))))))) (define initialized-thread-exception-procedure - (lambda (_%exn102885%_) + (lambda (_%exn104033%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102885%_)) - (let ((_%e102888%_ + (class-instance? RuntimeException::t _%exn104033%_)) + (let ((_%e104036%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102885%_ 'exception)))) - (if (macro-initialized-thread-exception? _%e102888%_) - (macro-initialized-thread-exception-procedure _%e102888%_) + (unchecked-slot-ref _%exn104033%_ 'exception)))) + (if (macro-initialized-thread-exception? _%e104036%_) + (macro-initialized-thread-exception-procedure _%e104036%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-procedure - (cons _%e102888%_ '()))))) - (if (macro-initialized-thread-exception? _%exn102885%_) - (macro-initialized-thread-exception-procedure _%exn102885%_) + (cons _%e104036%_ '()))))) + (if (macro-initialized-thread-exception? _%exn104033%_) + (macro-initialized-thread-exception-procedure _%exn104033%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-procedure - (cons _%exn102885%_ '()))))))) + (cons _%exn104033%_ '()))))))) (define invalid-hash-number-exception? - (lambda (_%exn102881%_) + (lambda (_%exn104029%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102881%_)) - (let ((_%e102883%_ + (class-instance? RuntimeException::t _%exn104029%_)) + (let ((_%e104031%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102881%_ 'exception)))) - (macro-invalid-hash-number-exception? _%e102883%_)) - (macro-invalid-hash-number-exception? _%exn102881%_)))) + (unchecked-slot-ref _%exn104029%_ 'exception)))) + (macro-invalid-hash-number-exception? _%e104031%_)) + (macro-invalid-hash-number-exception? _%exn104029%_)))) (define invalid-hash-number-exception-arguments - (lambda (_%exn102877%_) + (lambda (_%exn104025%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102877%_)) - (let ((_%e102879%_ + (class-instance? RuntimeException::t _%exn104025%_)) + (let ((_%e104027%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102877%_ 'exception)))) - (if (macro-invalid-hash-number-exception? _%e102879%_) - (macro-invalid-hash-number-exception-arguments _%e102879%_) + (unchecked-slot-ref _%exn104025%_ 'exception)))) + (if (macro-invalid-hash-number-exception? _%e104027%_) + (macro-invalid-hash-number-exception-arguments _%e104027%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-arguments - (cons _%e102879%_ '()))))) - (if (macro-invalid-hash-number-exception? _%exn102877%_) - (macro-invalid-hash-number-exception-arguments _%exn102877%_) + (cons _%e104027%_ '()))))) + (if (macro-invalid-hash-number-exception? _%exn104025%_) + (macro-invalid-hash-number-exception-arguments _%exn104025%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-arguments - (cons _%exn102877%_ '()))))))) + (cons _%exn104025%_ '()))))))) (define invalid-hash-number-exception-procedure - (lambda (_%exn102871%_) + (lambda (_%exn104019%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102871%_)) - (let ((_%e102874%_ + (class-instance? RuntimeException::t _%exn104019%_)) + (let ((_%e104022%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102871%_ 'exception)))) - (if (macro-invalid-hash-number-exception? _%e102874%_) - (macro-invalid-hash-number-exception-procedure _%e102874%_) + (unchecked-slot-ref _%exn104019%_ 'exception)))) + (if (macro-invalid-hash-number-exception? _%e104022%_) + (macro-invalid-hash-number-exception-procedure _%e104022%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-procedure - (cons _%e102874%_ '()))))) - (if (macro-invalid-hash-number-exception? _%exn102871%_) - (macro-invalid-hash-number-exception-procedure _%exn102871%_) + (cons _%e104022%_ '()))))) + (if (macro-invalid-hash-number-exception? _%exn104019%_) + (macro-invalid-hash-number-exception-procedure _%exn104019%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-procedure - (cons _%exn102871%_ '()))))))) + (cons _%exn104019%_ '()))))))) (define invalid-utf8-encoding-exception? - (lambda (_%exn102867%_) + (lambda (_%exn104015%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102867%_)) - (let ((_%e102869%_ + (class-instance? RuntimeException::t _%exn104015%_)) + (let ((_%e104017%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102867%_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _%e102869%_)) - (macro-invalid-utf8-encoding-exception? _%exn102867%_)))) + (unchecked-slot-ref _%exn104015%_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _%e104017%_)) + (macro-invalid-utf8-encoding-exception? _%exn104015%_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_%exn102863%_) + (lambda (_%exn104011%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102863%_)) - (let ((_%e102865%_ + (class-instance? RuntimeException::t _%exn104011%_)) + (let ((_%e104013%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102863%_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _%e102865%_) - (macro-invalid-utf8-encoding-exception-arguments _%e102865%_) + (unchecked-slot-ref _%exn104011%_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _%e104013%_) + (macro-invalid-utf8-encoding-exception-arguments _%e104013%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-arguments - (cons _%e102865%_ '()))))) - (if (macro-invalid-utf8-encoding-exception? _%exn102863%_) - (macro-invalid-utf8-encoding-exception-arguments _%exn102863%_) + (cons _%e104013%_ '()))))) + (if (macro-invalid-utf8-encoding-exception? _%exn104011%_) + (macro-invalid-utf8-encoding-exception-arguments _%exn104011%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-arguments - (cons _%exn102863%_ '()))))))) + (cons _%exn104011%_ '()))))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_%exn102857%_) + (lambda (_%exn104005%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102857%_)) - (let ((_%e102860%_ + (class-instance? RuntimeException::t _%exn104005%_)) + (let ((_%e104008%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102857%_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _%e102860%_) - (macro-invalid-utf8-encoding-exception-procedure _%e102860%_) + (unchecked-slot-ref _%exn104005%_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _%e104008%_) + (macro-invalid-utf8-encoding-exception-procedure _%e104008%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-procedure - (cons _%e102860%_ '()))))) - (if (macro-invalid-utf8-encoding-exception? _%exn102857%_) - (macro-invalid-utf8-encoding-exception-procedure _%exn102857%_) + (cons _%e104008%_ '()))))) + (if (macro-invalid-utf8-encoding-exception? _%exn104005%_) + (macro-invalid-utf8-encoding-exception-procedure _%exn104005%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-procedure - (cons _%exn102857%_ '()))))))) + (cons _%exn104005%_ '()))))))) (define join-timeout-exception? - (lambda (_%exn102853%_) + (lambda (_%exn104001%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102853%_)) - (let ((_%e102855%_ + (class-instance? RuntimeException::t _%exn104001%_)) + (let ((_%e104003%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102853%_ 'exception)))) - (macro-join-timeout-exception? _%e102855%_)) - (macro-join-timeout-exception? _%exn102853%_)))) + (unchecked-slot-ref _%exn104001%_ 'exception)))) + (macro-join-timeout-exception? _%e104003%_)) + (macro-join-timeout-exception? _%exn104001%_)))) (define join-timeout-exception-arguments - (lambda (_%exn102849%_) + (lambda (_%exn103997%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102849%_)) - (let ((_%e102851%_ + (class-instance? RuntimeException::t _%exn103997%_)) + (let ((_%e103999%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102849%_ 'exception)))) - (if (macro-join-timeout-exception? _%e102851%_) - (macro-join-timeout-exception-arguments _%e102851%_) + (unchecked-slot-ref _%exn103997%_ 'exception)))) + (if (macro-join-timeout-exception? _%e103999%_) + (macro-join-timeout-exception-arguments _%e103999%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-arguments - (cons _%e102851%_ '()))))) - (if (macro-join-timeout-exception? _%exn102849%_) - (macro-join-timeout-exception-arguments _%exn102849%_) + (cons _%e103999%_ '()))))) + (if (macro-join-timeout-exception? _%exn103997%_) + (macro-join-timeout-exception-arguments _%exn103997%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-arguments - (cons _%exn102849%_ '()))))))) + (cons _%exn103997%_ '()))))))) (define join-timeout-exception-procedure - (lambda (_%exn102843%_) + (lambda (_%exn103991%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102843%_)) - (let ((_%e102846%_ + (class-instance? RuntimeException::t _%exn103991%_)) + (let ((_%e103994%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102843%_ 'exception)))) - (if (macro-join-timeout-exception? _%e102846%_) - (macro-join-timeout-exception-procedure _%e102846%_) + (unchecked-slot-ref _%exn103991%_ 'exception)))) + (if (macro-join-timeout-exception? _%e103994%_) + (macro-join-timeout-exception-procedure _%e103994%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-procedure - (cons _%e102846%_ '()))))) - (if (macro-join-timeout-exception? _%exn102843%_) - (macro-join-timeout-exception-procedure _%exn102843%_) + (cons _%e103994%_ '()))))) + (if (macro-join-timeout-exception? _%exn103991%_) + (macro-join-timeout-exception-procedure _%exn103991%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-procedure - (cons _%exn102843%_ '()))))))) + (cons _%exn103991%_ '()))))))) (define keyword-expected-exception? - (lambda (_%exn102839%_) + (lambda (_%exn103987%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102839%_)) - (let ((_%e102841%_ + (class-instance? RuntimeException::t _%exn103987%_)) + (let ((_%e103989%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102839%_ 'exception)))) - (macro-keyword-expected-exception? _%e102841%_)) - (macro-keyword-expected-exception? _%exn102839%_)))) + (unchecked-slot-ref _%exn103987%_ 'exception)))) + (macro-keyword-expected-exception? _%e103989%_)) + (macro-keyword-expected-exception? _%exn103987%_)))) (define keyword-expected-exception-arguments - (lambda (_%exn102835%_) + (lambda (_%exn103983%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102835%_)) - (let ((_%e102837%_ + (class-instance? RuntimeException::t _%exn103983%_)) + (let ((_%e103985%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102835%_ 'exception)))) - (if (macro-keyword-expected-exception? _%e102837%_) - (macro-keyword-expected-exception-arguments _%e102837%_) + (unchecked-slot-ref _%exn103983%_ 'exception)))) + (if (macro-keyword-expected-exception? _%e103985%_) + (macro-keyword-expected-exception-arguments _%e103985%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-arguments - (cons _%e102837%_ '()))))) - (if (macro-keyword-expected-exception? _%exn102835%_) - (macro-keyword-expected-exception-arguments _%exn102835%_) + (cons _%e103985%_ '()))))) + (if (macro-keyword-expected-exception? _%exn103983%_) + (macro-keyword-expected-exception-arguments _%exn103983%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-arguments - (cons _%exn102835%_ '()))))))) + (cons _%exn103983%_ '()))))))) (define keyword-expected-exception-procedure - (lambda (_%exn102829%_) + (lambda (_%exn103977%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102829%_)) - (let ((_%e102832%_ + (class-instance? RuntimeException::t _%exn103977%_)) + (let ((_%e103980%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102829%_ 'exception)))) - (if (macro-keyword-expected-exception? _%e102832%_) - (macro-keyword-expected-exception-procedure _%e102832%_) + (unchecked-slot-ref _%exn103977%_ 'exception)))) + (if (macro-keyword-expected-exception? _%e103980%_) + (macro-keyword-expected-exception-procedure _%e103980%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-procedure - (cons _%e102832%_ '()))))) - (if (macro-keyword-expected-exception? _%exn102829%_) - (macro-keyword-expected-exception-procedure _%exn102829%_) + (cons _%e103980%_ '()))))) + (if (macro-keyword-expected-exception? _%exn103977%_) + (macro-keyword-expected-exception-procedure _%exn103977%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-procedure - (cons _%exn102829%_ '()))))))) + (cons _%exn103977%_ '()))))))) (define length-mismatch-exception? - (lambda (_%exn102825%_) + (lambda (_%exn103973%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102825%_)) - (let ((_%e102827%_ + (class-instance? RuntimeException::t _%exn103973%_)) + (let ((_%e103975%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102825%_ 'exception)))) - (macro-length-mismatch-exception? _%e102827%_)) - (macro-length-mismatch-exception? _%exn102825%_)))) + (unchecked-slot-ref _%exn103973%_ 'exception)))) + (macro-length-mismatch-exception? _%e103975%_)) + (macro-length-mismatch-exception? _%exn103973%_)))) (define length-mismatch-exception-arg-id - (lambda (_%exn102821%_) + (lambda (_%exn103969%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102821%_)) - (let ((_%e102823%_ + (class-instance? RuntimeException::t _%exn103969%_)) + (let ((_%e103971%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102821%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e102823%_) - (macro-length-mismatch-exception-arg-id _%e102823%_) + (unchecked-slot-ref _%exn103969%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e103971%_) + (macro-length-mismatch-exception-arg-id _%e103971%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arg-id - (cons _%e102823%_ '()))))) - (if (macro-length-mismatch-exception? _%exn102821%_) - (macro-length-mismatch-exception-arg-id _%exn102821%_) + (cons _%e103971%_ '()))))) + (if (macro-length-mismatch-exception? _%exn103969%_) + (macro-length-mismatch-exception-arg-id _%exn103969%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arg-id - (cons _%exn102821%_ '()))))))) + (cons _%exn103969%_ '()))))))) (define length-mismatch-exception-arguments - (lambda (_%exn102817%_) + (lambda (_%exn103965%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102817%_)) - (let ((_%e102819%_ + (class-instance? RuntimeException::t _%exn103965%_)) + (let ((_%e103967%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102817%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e102819%_) - (macro-length-mismatch-exception-arguments _%e102819%_) + (unchecked-slot-ref _%exn103965%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e103967%_) + (macro-length-mismatch-exception-arguments _%e103967%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arguments - (cons _%e102819%_ '()))))) - (if (macro-length-mismatch-exception? _%exn102817%_) - (macro-length-mismatch-exception-arguments _%exn102817%_) + (cons _%e103967%_ '()))))) + (if (macro-length-mismatch-exception? _%exn103965%_) + (macro-length-mismatch-exception-arguments _%exn103965%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arguments - (cons _%exn102817%_ '()))))))) + (cons _%exn103965%_ '()))))))) (define length-mismatch-exception-procedure - (lambda (_%exn102811%_) + (lambda (_%exn103959%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102811%_)) - (let ((_%e102814%_ + (class-instance? RuntimeException::t _%exn103959%_)) + (let ((_%e103962%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102811%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e102814%_) - (macro-length-mismatch-exception-procedure _%e102814%_) + (unchecked-slot-ref _%exn103959%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e103962%_) + (macro-length-mismatch-exception-procedure _%e103962%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-procedure - (cons _%e102814%_ '()))))) - (if (macro-length-mismatch-exception? _%exn102811%_) - (macro-length-mismatch-exception-procedure _%exn102811%_) + (cons _%e103962%_ '()))))) + (if (macro-length-mismatch-exception? _%exn103959%_) + (macro-length-mismatch-exception-procedure _%exn103959%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-procedure - (cons _%exn102811%_ '()))))))) + (cons _%exn103959%_ '()))))))) (define mailbox-receive-timeout-exception? - (lambda (_%exn102807%_) + (lambda (_%exn103955%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102807%_)) - (let ((_%e102809%_ + (class-instance? RuntimeException::t _%exn103955%_)) + (let ((_%e103957%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102807%_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _%e102809%_)) - (macro-mailbox-receive-timeout-exception? _%exn102807%_)))) + (unchecked-slot-ref _%exn103955%_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _%e103957%_)) + (macro-mailbox-receive-timeout-exception? _%exn103955%_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_%exn102803%_) + (lambda (_%exn103951%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102803%_)) - (let ((_%e102805%_ + (class-instance? RuntimeException::t _%exn103951%_)) + (let ((_%e103953%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102803%_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _%e102805%_) + (unchecked-slot-ref _%exn103951%_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _%e103953%_) (macro-mailbox-receive-timeout-exception-arguments - _%e102805%_) + _%e103953%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-arguments - (cons _%e102805%_ '()))))) - (if (macro-mailbox-receive-timeout-exception? _%exn102803%_) + (cons _%e103953%_ '()))))) + (if (macro-mailbox-receive-timeout-exception? _%exn103951%_) (macro-mailbox-receive-timeout-exception-arguments - _%exn102803%_) + _%exn103951%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-arguments - (cons _%exn102803%_ '()))))))) + (cons _%exn103951%_ '()))))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_%exn102797%_) + (lambda (_%exn103945%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102797%_)) - (let ((_%e102800%_ + (class-instance? RuntimeException::t _%exn103945%_)) + (let ((_%e103948%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102797%_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _%e102800%_) + (unchecked-slot-ref _%exn103945%_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _%e103948%_) (macro-mailbox-receive-timeout-exception-procedure - _%e102800%_) + _%e103948%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-procedure - (cons _%e102800%_ '()))))) - (if (macro-mailbox-receive-timeout-exception? _%exn102797%_) + (cons _%e103948%_ '()))))) + (if (macro-mailbox-receive-timeout-exception? _%exn103945%_) (macro-mailbox-receive-timeout-exception-procedure - _%exn102797%_) + _%exn103945%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-procedure - (cons _%exn102797%_ '()))))))) + (cons _%exn103945%_ '()))))))) (define module-not-found-exception? - (lambda (_%exn102793%_) + (lambda (_%exn103941%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102793%_)) - (let ((_%e102795%_ + (class-instance? RuntimeException::t _%exn103941%_)) + (let ((_%e103943%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102793%_ 'exception)))) - (macro-module-not-found-exception? _%e102795%_)) - (macro-module-not-found-exception? _%exn102793%_)))) + (unchecked-slot-ref _%exn103941%_ 'exception)))) + (macro-module-not-found-exception? _%e103943%_)) + (macro-module-not-found-exception? _%exn103941%_)))) (define module-not-found-exception-arguments - (lambda (_%exn102789%_) + (lambda (_%exn103937%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102789%_)) - (let ((_%e102791%_ + (class-instance? RuntimeException::t _%exn103937%_)) + (let ((_%e103939%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102789%_ 'exception)))) - (if (macro-module-not-found-exception? _%e102791%_) - (macro-module-not-found-exception-arguments _%e102791%_) + (unchecked-slot-ref _%exn103937%_ 'exception)))) + (if (macro-module-not-found-exception? _%e103939%_) + (macro-module-not-found-exception-arguments _%e103939%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-arguments - (cons _%e102791%_ '()))))) - (if (macro-module-not-found-exception? _%exn102789%_) - (macro-module-not-found-exception-arguments _%exn102789%_) + (cons _%e103939%_ '()))))) + (if (macro-module-not-found-exception? _%exn103937%_) + (macro-module-not-found-exception-arguments _%exn103937%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-arguments - (cons _%exn102789%_ '()))))))) + (cons _%exn103937%_ '()))))))) (define module-not-found-exception-procedure - (lambda (_%exn102783%_) + (lambda (_%exn103931%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102783%_)) - (let ((_%e102786%_ + (class-instance? RuntimeException::t _%exn103931%_)) + (let ((_%e103934%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102783%_ 'exception)))) - (if (macro-module-not-found-exception? _%e102786%_) - (macro-module-not-found-exception-procedure _%e102786%_) + (unchecked-slot-ref _%exn103931%_ 'exception)))) + (if (macro-module-not-found-exception? _%e103934%_) + (macro-module-not-found-exception-procedure _%e103934%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-procedure - (cons _%e102786%_ '()))))) - (if (macro-module-not-found-exception? _%exn102783%_) - (macro-module-not-found-exception-procedure _%exn102783%_) + (cons _%e103934%_ '()))))) + (if (macro-module-not-found-exception? _%exn103931%_) + (macro-module-not-found-exception-procedure _%exn103931%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-procedure - (cons _%exn102783%_ '()))))))) + (cons _%exn103931%_ '()))))))) (define multiple-c-return-exception? - (lambda (_%exn102777%_) + (lambda (_%exn103925%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102777%_)) - (let ((_%e102780%_ + (class-instance? RuntimeException::t _%exn103925%_)) + (let ((_%e103928%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102777%_ 'exception)))) - (macro-multiple-c-return-exception? _%e102780%_)) - (macro-multiple-c-return-exception? _%exn102777%_)))) + (unchecked-slot-ref _%exn103925%_ 'exception)))) + (macro-multiple-c-return-exception? _%e103928%_)) + (macro-multiple-c-return-exception? _%exn103925%_)))) (define no-such-file-or-directory-exception? - (lambda (_%exn102773%_) + (lambda (_%exn103921%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102773%_)) - (let ((_%e102775%_ + (class-instance? RuntimeException::t _%exn103921%_)) + (let ((_%e103923%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102773%_ 'exception)))) - (macro-no-such-file-or-directory-exception? _%e102775%_)) - (macro-no-such-file-or-directory-exception? _%exn102773%_)))) + (unchecked-slot-ref _%exn103921%_ 'exception)))) + (macro-no-such-file-or-directory-exception? _%e103923%_)) + (macro-no-such-file-or-directory-exception? _%exn103921%_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_%exn102769%_) + (lambda (_%exn103917%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102769%_)) - (let ((_%e102771%_ + (class-instance? RuntimeException::t _%exn103917%_)) + (let ((_%e103919%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102769%_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _%e102771%_) + (unchecked-slot-ref _%exn103917%_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _%e103919%_) (macro-no-such-file-or-directory-exception-arguments - _%e102771%_) + _%e103919%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-arguments - (cons _%e102771%_ '()))))) - (if (macro-no-such-file-or-directory-exception? _%exn102769%_) + (cons _%e103919%_ '()))))) + (if (macro-no-such-file-or-directory-exception? _%exn103917%_) (macro-no-such-file-or-directory-exception-arguments - _%exn102769%_) + _%exn103917%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-arguments - (cons _%exn102769%_ '()))))))) + (cons _%exn103917%_ '()))))))) (define no-such-file-or-directory-exception-procedure - (lambda (_%exn102763%_) + (lambda (_%exn103911%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102763%_)) - (let ((_%e102766%_ + (class-instance? RuntimeException::t _%exn103911%_)) + (let ((_%e103914%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102763%_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _%e102766%_) + (unchecked-slot-ref _%exn103911%_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _%e103914%_) (macro-no-such-file-or-directory-exception-procedure - _%e102766%_) + _%e103914%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-procedure - (cons _%e102766%_ '()))))) - (if (macro-no-such-file-or-directory-exception? _%exn102763%_) + (cons _%e103914%_ '()))))) + (if (macro-no-such-file-or-directory-exception? _%exn103911%_) (macro-no-such-file-or-directory-exception-procedure - _%exn102763%_) + _%exn103911%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-procedure - (cons _%exn102763%_ '()))))))) + (cons _%exn103911%_ '()))))))) (define noncontinuable-exception? - (lambda (_%exn102759%_) + (lambda (_%exn103907%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102759%_)) - (let ((_%e102761%_ + (class-instance? RuntimeException::t _%exn103907%_)) + (let ((_%e103909%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102759%_ 'exception)))) - (macro-noncontinuable-exception? _%e102761%_)) - (macro-noncontinuable-exception? _%exn102759%_)))) + (unchecked-slot-ref _%exn103907%_ 'exception)))) + (macro-noncontinuable-exception? _%e103909%_)) + (macro-noncontinuable-exception? _%exn103907%_)))) (define noncontinuable-exception-reason - (lambda (_%exn102753%_) + (lambda (_%exn103901%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102753%_)) - (let ((_%e102756%_ + (class-instance? RuntimeException::t _%exn103901%_)) + (let ((_%e103904%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102753%_ 'exception)))) - (if (macro-noncontinuable-exception? _%e102756%_) - (macro-noncontinuable-exception-reason _%e102756%_) + (unchecked-slot-ref _%exn103901%_ 'exception)))) + (if (macro-noncontinuable-exception? _%e103904%_) + (macro-noncontinuable-exception-reason _%e103904%_) (error '"not an instance" 'noncontinuable-exception? (cons 'noncontinuable-exception-reason - (cons _%e102756%_ '()))))) - (if (macro-noncontinuable-exception? _%exn102753%_) - (macro-noncontinuable-exception-reason _%exn102753%_) + (cons _%e103904%_ '()))))) + (if (macro-noncontinuable-exception? _%exn103901%_) + (macro-noncontinuable-exception-reason _%exn103901%_) (error '"not an instance" 'noncontinuable-exception? (cons 'noncontinuable-exception-reason - (cons _%exn102753%_ '()))))))) + (cons _%exn103901%_ '()))))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_%exn102749%_) + (lambda (_%exn103897%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102749%_)) - (let ((_%e102751%_ + (class-instance? RuntimeException::t _%exn103897%_)) + (let ((_%e103899%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102749%_ 'exception)))) + (unchecked-slot-ref _%exn103897%_ 'exception)))) (macro-nonempty-input-port-character-buffer-exception? - _%e102751%_)) + _%e103899%_)) (macro-nonempty-input-port-character-buffer-exception? - _%exn102749%_)))) + _%exn103897%_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_%exn102745%_) + (lambda (_%exn103893%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102745%_)) - (let ((_%e102747%_ + (class-instance? RuntimeException::t _%exn103893%_)) + (let ((_%e103895%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102745%_ 'exception)))) + (unchecked-slot-ref _%exn103893%_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _%e102747%_) + _%e103895%_) (macro-nonempty-input-port-character-buffer-exception-arguments - _%e102747%_) + _%e103895%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _%e102747%_ '()))))) + (cons _%e103895%_ '()))))) (if (macro-nonempty-input-port-character-buffer-exception? - _%exn102745%_) + _%exn103893%_) (macro-nonempty-input-port-character-buffer-exception-arguments - _%exn102745%_) + _%exn103893%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _%exn102745%_ '()))))))) + (cons _%exn103893%_ '()))))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_%exn102739%_) + (lambda (_%exn103887%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102739%_)) - (let ((_%e102742%_ + (class-instance? RuntimeException::t _%exn103887%_)) + (let ((_%e103890%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102739%_ 'exception)))) + (unchecked-slot-ref _%exn103887%_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _%e102742%_) + _%e103890%_) (macro-nonempty-input-port-character-buffer-exception-procedure - _%e102742%_) + _%e103890%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _%e102742%_ '()))))) + (cons _%e103890%_ '()))))) (if (macro-nonempty-input-port-character-buffer-exception? - _%exn102739%_) + _%exn103887%_) (macro-nonempty-input-port-character-buffer-exception-procedure - _%exn102739%_) + _%exn103887%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _%exn102739%_ '()))))))) + (cons _%exn103887%_ '()))))))) (define nonprocedure-operator-exception? - (lambda (_%exn102735%_) + (lambda (_%exn103883%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102735%_)) - (let ((_%e102737%_ + (class-instance? RuntimeException::t _%exn103883%_)) + (let ((_%e103885%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102735%_ 'exception)))) - (macro-nonprocedure-operator-exception? _%e102737%_)) - (macro-nonprocedure-operator-exception? _%exn102735%_)))) + (unchecked-slot-ref _%exn103883%_ 'exception)))) + (macro-nonprocedure-operator-exception? _%e103885%_)) + (macro-nonprocedure-operator-exception? _%exn103883%_)))) (define nonprocedure-operator-exception-arguments - (lambda (_%exn102731%_) + (lambda (_%exn103879%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102731%_)) - (let ((_%e102733%_ + (class-instance? RuntimeException::t _%exn103879%_)) + (let ((_%e103881%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102731%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e102733%_) - (macro-nonprocedure-operator-exception-arguments _%e102733%_) + (unchecked-slot-ref _%exn103879%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e103881%_) + (macro-nonprocedure-operator-exception-arguments _%e103881%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-arguments - (cons _%e102733%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn102731%_) - (macro-nonprocedure-operator-exception-arguments _%exn102731%_) + (cons _%e103881%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn103879%_) + (macro-nonprocedure-operator-exception-arguments _%exn103879%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-arguments - (cons _%exn102731%_ '()))))))) + (cons _%exn103879%_ '()))))))) (define nonprocedure-operator-exception-code - (lambda (_%exn102727%_) + (lambda (_%exn103875%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102727%_)) - (let ((_%e102729%_ + (class-instance? RuntimeException::t _%exn103875%_)) + (let ((_%e103877%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102727%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e102729%_) - (macro-nonprocedure-operator-exception-code _%e102729%_) + (unchecked-slot-ref _%exn103875%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e103877%_) + (macro-nonprocedure-operator-exception-code _%e103877%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-code - (cons _%e102729%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn102727%_) - (macro-nonprocedure-operator-exception-code _%exn102727%_) + (cons _%e103877%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn103875%_) + (macro-nonprocedure-operator-exception-code _%exn103875%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-code - (cons _%exn102727%_ '()))))))) + (cons _%exn103875%_ '()))))))) (define nonprocedure-operator-exception-operator - (lambda (_%exn102723%_) + (lambda (_%exn103871%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102723%_)) - (let ((_%e102725%_ + (class-instance? RuntimeException::t _%exn103871%_)) + (let ((_%e103873%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102723%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e102725%_) - (macro-nonprocedure-operator-exception-operator _%e102725%_) + (unchecked-slot-ref _%exn103871%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e103873%_) + (macro-nonprocedure-operator-exception-operator _%e103873%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-operator - (cons _%e102725%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn102723%_) - (macro-nonprocedure-operator-exception-operator _%exn102723%_) + (cons _%e103873%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn103871%_) + (macro-nonprocedure-operator-exception-operator _%exn103871%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-operator - (cons _%exn102723%_ '()))))))) + (cons _%exn103871%_ '()))))))) (define nonprocedure-operator-exception-rte - (lambda (_%exn102717%_) + (lambda (_%exn103865%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102717%_)) - (let ((_%e102720%_ + (class-instance? RuntimeException::t _%exn103865%_)) + (let ((_%e103868%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102717%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e102720%_) - (macro-nonprocedure-operator-exception-rte _%e102720%_) + (unchecked-slot-ref _%exn103865%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e103868%_) + (macro-nonprocedure-operator-exception-rte _%e103868%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-rte - (cons _%e102720%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn102717%_) - (macro-nonprocedure-operator-exception-rte _%exn102717%_) + (cons _%e103868%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn103865%_) + (macro-nonprocedure-operator-exception-rte _%exn103865%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-rte - (cons _%exn102717%_ '()))))))) + (cons _%exn103865%_ '()))))))) (define not-in-compilation-context-exception? - (lambda (_%exn102713%_) + (lambda (_%exn103861%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102713%_)) - (let ((_%e102715%_ + (class-instance? RuntimeException::t _%exn103861%_)) + (let ((_%e103863%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102713%_ 'exception)))) - (macro-not-in-compilation-context-exception? _%e102715%_)) - (macro-not-in-compilation-context-exception? _%exn102713%_)))) + (unchecked-slot-ref _%exn103861%_ 'exception)))) + (macro-not-in-compilation-context-exception? _%e103863%_)) + (macro-not-in-compilation-context-exception? _%exn103861%_)))) (define not-in-compilation-context-exception-arguments - (lambda (_%exn102709%_) + (lambda (_%exn103857%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102709%_)) - (let ((_%e102711%_ + (class-instance? RuntimeException::t _%exn103857%_)) + (let ((_%e103859%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102709%_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _%e102711%_) + (unchecked-slot-ref _%exn103857%_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _%e103859%_) (macro-not-in-compilation-context-exception-arguments - _%e102711%_) + _%e103859%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-arguments - (cons _%e102711%_ '()))))) - (if (macro-not-in-compilation-context-exception? _%exn102709%_) + (cons _%e103859%_ '()))))) + (if (macro-not-in-compilation-context-exception? _%exn103857%_) (macro-not-in-compilation-context-exception-arguments - _%exn102709%_) + _%exn103857%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-arguments - (cons _%exn102709%_ '()))))))) + (cons _%exn103857%_ '()))))))) (define not-in-compilation-context-exception-procedure - (lambda (_%exn102703%_) + (lambda (_%exn103851%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102703%_)) - (let ((_%e102706%_ + (class-instance? RuntimeException::t _%exn103851%_)) + (let ((_%e103854%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102703%_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _%e102706%_) + (unchecked-slot-ref _%exn103851%_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _%e103854%_) (macro-not-in-compilation-context-exception-procedure - _%e102706%_) + _%e103854%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-procedure - (cons _%e102706%_ '()))))) - (if (macro-not-in-compilation-context-exception? _%exn102703%_) + (cons _%e103854%_ '()))))) + (if (macro-not-in-compilation-context-exception? _%exn103851%_) (macro-not-in-compilation-context-exception-procedure - _%exn102703%_) + _%exn103851%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-procedure - (cons _%exn102703%_ '()))))))) + (cons _%exn103851%_ '()))))))) (define number-of-arguments-limit-exception? - (lambda (_%exn102699%_) + (lambda (_%exn103847%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102699%_)) - (let ((_%e102701%_ + (class-instance? RuntimeException::t _%exn103847%_)) + (let ((_%e103849%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102699%_ 'exception)))) - (macro-number-of-arguments-limit-exception? _%e102701%_)) - (macro-number-of-arguments-limit-exception? _%exn102699%_)))) + (unchecked-slot-ref _%exn103847%_ 'exception)))) + (macro-number-of-arguments-limit-exception? _%e103849%_)) + (macro-number-of-arguments-limit-exception? _%exn103847%_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_%exn102695%_) + (lambda (_%exn103843%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102695%_)) - (let ((_%e102697%_ + (class-instance? RuntimeException::t _%exn103843%_)) + (let ((_%e103845%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102695%_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _%e102697%_) + (unchecked-slot-ref _%exn103843%_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _%e103845%_) (macro-number-of-arguments-limit-exception-arguments - _%e102697%_) + _%e103845%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-arguments - (cons _%e102697%_ '()))))) - (if (macro-number-of-arguments-limit-exception? _%exn102695%_) + (cons _%e103845%_ '()))))) + (if (macro-number-of-arguments-limit-exception? _%exn103843%_) (macro-number-of-arguments-limit-exception-arguments - _%exn102695%_) + _%exn103843%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-arguments - (cons _%exn102695%_ '()))))))) + (cons _%exn103843%_ '()))))))) (define number-of-arguments-limit-exception-procedure - (lambda (_%exn102689%_) + (lambda (_%exn103837%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102689%_)) - (let ((_%e102692%_ + (class-instance? RuntimeException::t _%exn103837%_)) + (let ((_%e103840%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102689%_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _%e102692%_) + (unchecked-slot-ref _%exn103837%_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _%e103840%_) (macro-number-of-arguments-limit-exception-procedure - _%e102692%_) + _%e103840%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-procedure - (cons _%e102692%_ '()))))) - (if (macro-number-of-arguments-limit-exception? _%exn102689%_) + (cons _%e103840%_ '()))))) + (if (macro-number-of-arguments-limit-exception? _%exn103837%_) (macro-number-of-arguments-limit-exception-procedure - _%exn102689%_) + _%exn103837%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-procedure - (cons _%exn102689%_ '()))))))) + (cons _%exn103837%_ '()))))))) (define os-exception? - (lambda (_%exn102685%_) + (lambda (_%exn103833%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102685%_)) - (let ((_%e102687%_ + (class-instance? RuntimeException::t _%exn103833%_)) + (let ((_%e103835%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102685%_ 'exception)))) - (macro-os-exception? _%e102687%_)) - (macro-os-exception? _%exn102685%_)))) + (unchecked-slot-ref _%exn103833%_ 'exception)))) + (macro-os-exception? _%e103835%_)) + (macro-os-exception? _%exn103833%_)))) (define os-exception-arguments - (lambda (_%exn102681%_) + (lambda (_%exn103829%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102681%_)) - (let ((_%e102683%_ + (class-instance? RuntimeException::t _%exn103829%_)) + (let ((_%e103831%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102681%_ 'exception)))) - (if (macro-os-exception? _%e102683%_) - (macro-os-exception-arguments _%e102683%_) + (unchecked-slot-ref _%exn103829%_ 'exception)))) + (if (macro-os-exception? _%e103831%_) + (macro-os-exception-arguments _%e103831%_) (error '"not an instance" 'os-exception? (cons 'os-exception-arguments - (cons _%e102683%_ '()))))) - (if (macro-os-exception? _%exn102681%_) - (macro-os-exception-arguments _%exn102681%_) + (cons _%e103831%_ '()))))) + (if (macro-os-exception? _%exn103829%_) + (macro-os-exception-arguments _%exn103829%_) (error '"not an instance" 'os-exception? (cons 'os-exception-arguments - (cons _%exn102681%_ '()))))))) + (cons _%exn103829%_ '()))))))) (define os-exception-code - (lambda (_%exn102677%_) + (lambda (_%exn103825%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102677%_)) - (let ((_%e102679%_ + (class-instance? RuntimeException::t _%exn103825%_)) + (let ((_%e103827%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102677%_ 'exception)))) - (if (macro-os-exception? _%e102679%_) - (macro-os-exception-code _%e102679%_) + (unchecked-slot-ref _%exn103825%_ 'exception)))) + (if (macro-os-exception? _%e103827%_) + (macro-os-exception-code _%e103827%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-code (cons _%e102679%_ '()))))) - (if (macro-os-exception? _%exn102677%_) - (macro-os-exception-code _%exn102677%_) + (cons 'os-exception-code (cons _%e103827%_ '()))))) + (if (macro-os-exception? _%exn103825%_) + (macro-os-exception-code _%exn103825%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-code (cons _%exn102677%_ '()))))))) + (cons 'os-exception-code (cons _%exn103825%_ '()))))))) (define os-exception-message - (lambda (_%exn102673%_) + (lambda (_%exn103821%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102673%_)) - (let ((_%e102675%_ + (class-instance? RuntimeException::t _%exn103821%_)) + (let ((_%e103823%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102673%_ 'exception)))) - (if (macro-os-exception? _%e102675%_) - (macro-os-exception-message _%e102675%_) + (unchecked-slot-ref _%exn103821%_ 'exception)))) + (if (macro-os-exception? _%e103823%_) + (macro-os-exception-message _%e103823%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-message (cons _%e102675%_ '()))))) - (if (macro-os-exception? _%exn102673%_) - (macro-os-exception-message _%exn102673%_) + (cons 'os-exception-message (cons _%e103823%_ '()))))) + (if (macro-os-exception? _%exn103821%_) + (macro-os-exception-message _%exn103821%_) (error '"not an instance" 'os-exception? (cons 'os-exception-message - (cons _%exn102673%_ '()))))))) + (cons _%exn103821%_ '()))))))) (define os-exception-procedure - (lambda (_%exn102667%_) + (lambda (_%exn103815%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102667%_)) - (let ((_%e102670%_ + (class-instance? RuntimeException::t _%exn103815%_)) + (let ((_%e103818%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102667%_ 'exception)))) - (if (macro-os-exception? _%e102670%_) - (macro-os-exception-procedure _%e102670%_) + (unchecked-slot-ref _%exn103815%_ 'exception)))) + (if (macro-os-exception? _%e103818%_) + (macro-os-exception-procedure _%e103818%_) (error '"not an instance" 'os-exception? (cons 'os-exception-procedure - (cons _%e102670%_ '()))))) - (if (macro-os-exception? _%exn102667%_) - (macro-os-exception-procedure _%exn102667%_) + (cons _%e103818%_ '()))))) + (if (macro-os-exception? _%exn103815%_) + (macro-os-exception-procedure _%exn103815%_) (error '"not an instance" 'os-exception? (cons 'os-exception-procedure - (cons _%exn102667%_ '()))))))) + (cons _%exn103815%_ '()))))))) (define permission-denied-exception? - (lambda (_%exn102663%_) + (lambda (_%exn103811%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102663%_)) - (let ((_%e102665%_ + (class-instance? RuntimeException::t _%exn103811%_)) + (let ((_%e103813%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102663%_ 'exception)))) - (macro-permission-denied-exception? _%e102665%_)) - (macro-permission-denied-exception? _%exn102663%_)))) + (unchecked-slot-ref _%exn103811%_ 'exception)))) + (macro-permission-denied-exception? _%e103813%_)) + (macro-permission-denied-exception? _%exn103811%_)))) (define permission-denied-exception-arguments - (lambda (_%exn102659%_) + (lambda (_%exn103807%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102659%_)) - (let ((_%e102661%_ + (class-instance? RuntimeException::t _%exn103807%_)) + (let ((_%e103809%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102659%_ 'exception)))) - (if (macro-permission-denied-exception? _%e102661%_) - (macro-permission-denied-exception-arguments _%e102661%_) + (unchecked-slot-ref _%exn103807%_ 'exception)))) + (if (macro-permission-denied-exception? _%e103809%_) + (macro-permission-denied-exception-arguments _%e103809%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-arguments - (cons _%e102661%_ '()))))) - (if (macro-permission-denied-exception? _%exn102659%_) - (macro-permission-denied-exception-arguments _%exn102659%_) + (cons _%e103809%_ '()))))) + (if (macro-permission-denied-exception? _%exn103807%_) + (macro-permission-denied-exception-arguments _%exn103807%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-arguments - (cons _%exn102659%_ '()))))))) + (cons _%exn103807%_ '()))))))) (define permission-denied-exception-procedure - (lambda (_%exn102653%_) + (lambda (_%exn103801%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102653%_)) - (let ((_%e102656%_ + (class-instance? RuntimeException::t _%exn103801%_)) + (let ((_%e103804%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102653%_ 'exception)))) - (if (macro-permission-denied-exception? _%e102656%_) - (macro-permission-denied-exception-procedure _%e102656%_) + (unchecked-slot-ref _%exn103801%_ 'exception)))) + (if (macro-permission-denied-exception? _%e103804%_) + (macro-permission-denied-exception-procedure _%e103804%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-procedure - (cons _%e102656%_ '()))))) - (if (macro-permission-denied-exception? _%exn102653%_) - (macro-permission-denied-exception-procedure _%exn102653%_) + (cons _%e103804%_ '()))))) + (if (macro-permission-denied-exception? _%exn103801%_) + (macro-permission-denied-exception-procedure _%exn103801%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-procedure - (cons _%exn102653%_ '()))))))) + (cons _%exn103801%_ '()))))))) (define range-exception? - (lambda (_%exn102649%_) + (lambda (_%exn103797%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102649%_)) - (let ((_%e102651%_ + (class-instance? RuntimeException::t _%exn103797%_)) + (let ((_%e103799%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102649%_ 'exception)))) - (macro-range-exception? _%e102651%_)) - (macro-range-exception? _%exn102649%_)))) + (unchecked-slot-ref _%exn103797%_ 'exception)))) + (macro-range-exception? _%e103799%_)) + (macro-range-exception? _%exn103797%_)))) (define range-exception-arg-id - (lambda (_%exn102645%_) + (lambda (_%exn103793%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102645%_)) - (let ((_%e102647%_ + (class-instance? RuntimeException::t _%exn103793%_)) + (let ((_%e103795%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102645%_ 'exception)))) - (if (macro-range-exception? _%e102647%_) - (macro-range-exception-arg-id _%e102647%_) + (unchecked-slot-ref _%exn103793%_ 'exception)))) + (if (macro-range-exception? _%e103795%_) + (macro-range-exception-arg-id _%e103795%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arg-id - (cons _%e102647%_ '()))))) - (if (macro-range-exception? _%exn102645%_) - (macro-range-exception-arg-id _%exn102645%_) + (cons _%e103795%_ '()))))) + (if (macro-range-exception? _%exn103793%_) + (macro-range-exception-arg-id _%exn103793%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arg-id - (cons _%exn102645%_ '()))))))) + (cons _%exn103793%_ '()))))))) (define range-exception-arguments - (lambda (_%exn102641%_) + (lambda (_%exn103789%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102641%_)) - (let ((_%e102643%_ + (class-instance? RuntimeException::t _%exn103789%_)) + (let ((_%e103791%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102641%_ 'exception)))) - (if (macro-range-exception? _%e102643%_) - (macro-range-exception-arguments _%e102643%_) + (unchecked-slot-ref _%exn103789%_ 'exception)))) + (if (macro-range-exception? _%e103791%_) + (macro-range-exception-arguments _%e103791%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arguments - (cons _%e102643%_ '()))))) - (if (macro-range-exception? _%exn102641%_) - (macro-range-exception-arguments _%exn102641%_) + (cons _%e103791%_ '()))))) + (if (macro-range-exception? _%exn103789%_) + (macro-range-exception-arguments _%exn103789%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arguments - (cons _%exn102641%_ '()))))))) + (cons _%exn103789%_ '()))))))) (define range-exception-procedure - (lambda (_%exn102635%_) + (lambda (_%exn103783%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102635%_)) - (let ((_%e102638%_ + (class-instance? RuntimeException::t _%exn103783%_)) + (let ((_%e103786%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102635%_ 'exception)))) - (if (macro-range-exception? _%e102638%_) - (macro-range-exception-procedure _%e102638%_) + (unchecked-slot-ref _%exn103783%_ 'exception)))) + (if (macro-range-exception? _%e103786%_) + (macro-range-exception-procedure _%e103786%_) (error '"not an instance" 'range-exception? (cons 'range-exception-procedure - (cons _%e102638%_ '()))))) - (if (macro-range-exception? _%exn102635%_) - (macro-range-exception-procedure _%exn102635%_) + (cons _%e103786%_ '()))))) + (if (macro-range-exception? _%exn103783%_) + (macro-range-exception-procedure _%exn103783%_) (error '"not an instance" 'range-exception? (cons 'range-exception-procedure - (cons _%exn102635%_ '()))))))) + (cons _%exn103783%_ '()))))))) (define rpc-remote-error-exception? - (lambda (_%exn102631%_) + (lambda (_%exn103779%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102631%_)) - (let ((_%e102633%_ + (class-instance? RuntimeException::t _%exn103779%_)) + (let ((_%e103781%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102631%_ 'exception)))) - (macro-rpc-remote-error-exception? _%e102633%_)) - (macro-rpc-remote-error-exception? _%exn102631%_)))) + (unchecked-slot-ref _%exn103779%_ 'exception)))) + (macro-rpc-remote-error-exception? _%e103781%_)) + (macro-rpc-remote-error-exception? _%exn103779%_)))) (define rpc-remote-error-exception-arguments - (lambda (_%exn102627%_) + (lambda (_%exn103775%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102627%_)) - (let ((_%e102629%_ + (class-instance? RuntimeException::t _%exn103775%_)) + (let ((_%e103777%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102627%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e102629%_) - (macro-rpc-remote-error-exception-arguments _%e102629%_) + (unchecked-slot-ref _%exn103775%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e103777%_) + (macro-rpc-remote-error-exception-arguments _%e103777%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-arguments - (cons _%e102629%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn102627%_) - (macro-rpc-remote-error-exception-arguments _%exn102627%_) + (cons _%e103777%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn103775%_) + (macro-rpc-remote-error-exception-arguments _%exn103775%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-arguments - (cons _%exn102627%_ '()))))))) + (cons _%exn103775%_ '()))))))) (define rpc-remote-error-exception-message - (lambda (_%exn102623%_) + (lambda (_%exn103771%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102623%_)) - (let ((_%e102625%_ + (class-instance? RuntimeException::t _%exn103771%_)) + (let ((_%e103773%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102623%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e102625%_) - (macro-rpc-remote-error-exception-message _%e102625%_) + (unchecked-slot-ref _%exn103771%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e103773%_) + (macro-rpc-remote-error-exception-message _%e103773%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-message - (cons _%e102625%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn102623%_) - (macro-rpc-remote-error-exception-message _%exn102623%_) + (cons _%e103773%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn103771%_) + (macro-rpc-remote-error-exception-message _%exn103771%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-message - (cons _%exn102623%_ '()))))))) + (cons _%exn103771%_ '()))))))) (define rpc-remote-error-exception-procedure - (lambda (_%exn102617%_) + (lambda (_%exn103765%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102617%_)) - (let ((_%e102620%_ + (class-instance? RuntimeException::t _%exn103765%_)) + (let ((_%e103768%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102617%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e102620%_) - (macro-rpc-remote-error-exception-procedure _%e102620%_) + (unchecked-slot-ref _%exn103765%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e103768%_) + (macro-rpc-remote-error-exception-procedure _%e103768%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-procedure - (cons _%e102620%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn102617%_) - (macro-rpc-remote-error-exception-procedure _%exn102617%_) + (cons _%e103768%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn103765%_) + (macro-rpc-remote-error-exception-procedure _%exn103765%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-procedure - (cons _%exn102617%_ '()))))))) + (cons _%exn103765%_ '()))))))) (define scheduler-exception? - (lambda (_%exn102613%_) + (lambda (_%exn103761%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102613%_)) - (let ((_%e102615%_ + (class-instance? RuntimeException::t _%exn103761%_)) + (let ((_%e103763%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102613%_ 'exception)))) - (macro-scheduler-exception? _%e102615%_)) - (macro-scheduler-exception? _%exn102613%_)))) + (unchecked-slot-ref _%exn103761%_ 'exception)))) + (macro-scheduler-exception? _%e103763%_)) + (macro-scheduler-exception? _%exn103761%_)))) (define scheduler-exception-reason - (lambda (_%exn102607%_) + (lambda (_%exn103755%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102607%_)) - (let ((_%e102610%_ + (class-instance? RuntimeException::t _%exn103755%_)) + (let ((_%e103758%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102607%_ 'exception)))) - (if (macro-scheduler-exception? _%e102610%_) - (macro-scheduler-exception-reason _%e102610%_) + (unchecked-slot-ref _%exn103755%_ 'exception)))) + (if (macro-scheduler-exception? _%e103758%_) + (macro-scheduler-exception-reason _%e103758%_) (error '"not an instance" 'scheduler-exception? (cons 'scheduler-exception-reason - (cons _%e102610%_ '()))))) - (if (macro-scheduler-exception? _%exn102607%_) - (macro-scheduler-exception-reason _%exn102607%_) + (cons _%e103758%_ '()))))) + (if (macro-scheduler-exception? _%exn103755%_) + (macro-scheduler-exception-reason _%exn103755%_) (error '"not an instance" 'scheduler-exception? (cons 'scheduler-exception-reason - (cons _%exn102607%_ '()))))))) + (cons _%exn103755%_ '()))))))) (define sfun-conversion-exception? - (lambda (_%exn102603%_) + (lambda (_%exn103751%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102603%_)) - (let ((_%e102605%_ + (class-instance? RuntimeException::t _%exn103751%_)) + (let ((_%e103753%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102603%_ 'exception)))) - (macro-sfun-conversion-exception? _%e102605%_)) - (macro-sfun-conversion-exception? _%exn102603%_)))) + (unchecked-slot-ref _%exn103751%_ 'exception)))) + (macro-sfun-conversion-exception? _%e103753%_)) + (macro-sfun-conversion-exception? _%exn103751%_)))) (define sfun-conversion-exception-arguments - (lambda (_%exn102599%_) + (lambda (_%exn103747%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102599%_)) - (let ((_%e102601%_ + (class-instance? RuntimeException::t _%exn103747%_)) + (let ((_%e103749%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102599%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e102601%_) - (macro-sfun-conversion-exception-arguments _%e102601%_) + (unchecked-slot-ref _%exn103747%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e103749%_) + (macro-sfun-conversion-exception-arguments _%e103749%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-arguments - (cons _%e102601%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn102599%_) - (macro-sfun-conversion-exception-arguments _%exn102599%_) + (cons _%e103749%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn103747%_) + (macro-sfun-conversion-exception-arguments _%exn103747%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-arguments - (cons _%exn102599%_ '()))))))) + (cons _%exn103747%_ '()))))))) (define sfun-conversion-exception-code - (lambda (_%exn102595%_) + (lambda (_%exn103743%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102595%_)) - (let ((_%e102597%_ + (class-instance? RuntimeException::t _%exn103743%_)) + (let ((_%e103745%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102595%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e102597%_) - (macro-sfun-conversion-exception-code _%e102597%_) + (unchecked-slot-ref _%exn103743%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e103745%_) + (macro-sfun-conversion-exception-code _%e103745%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-code - (cons _%e102597%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn102595%_) - (macro-sfun-conversion-exception-code _%exn102595%_) + (cons _%e103745%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn103743%_) + (macro-sfun-conversion-exception-code _%exn103743%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-code - (cons _%exn102595%_ '()))))))) + (cons _%exn103743%_ '()))))))) (define sfun-conversion-exception-message - (lambda (_%exn102591%_) + (lambda (_%exn103739%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102591%_)) - (let ((_%e102593%_ + (class-instance? RuntimeException::t _%exn103739%_)) + (let ((_%e103741%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102591%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e102593%_) - (macro-sfun-conversion-exception-message _%e102593%_) + (unchecked-slot-ref _%exn103739%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e103741%_) + (macro-sfun-conversion-exception-message _%e103741%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-message - (cons _%e102593%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn102591%_) - (macro-sfun-conversion-exception-message _%exn102591%_) + (cons _%e103741%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn103739%_) + (macro-sfun-conversion-exception-message _%exn103739%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-message - (cons _%exn102591%_ '()))))))) + (cons _%exn103739%_ '()))))))) (define sfun-conversion-exception-procedure - (lambda (_%exn102585%_) + (lambda (_%exn103733%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102585%_)) - (let ((_%e102588%_ + (class-instance? RuntimeException::t _%exn103733%_)) + (let ((_%e103736%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102585%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e102588%_) - (macro-sfun-conversion-exception-procedure _%e102588%_) + (unchecked-slot-ref _%exn103733%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e103736%_) + (macro-sfun-conversion-exception-procedure _%e103736%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-procedure - (cons _%e102588%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn102585%_) - (macro-sfun-conversion-exception-procedure _%exn102585%_) + (cons _%e103736%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn103733%_) + (macro-sfun-conversion-exception-procedure _%exn103733%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-procedure - (cons _%exn102585%_ '()))))))) + (cons _%exn103733%_ '()))))))) (define stack-overflow-exception? - (lambda (_%exn102579%_) + (lambda (_%exn103727%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102579%_)) - (let ((_%e102582%_ + (class-instance? RuntimeException::t _%exn103727%_)) + (let ((_%e103730%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102579%_ 'exception)))) - (macro-stack-overflow-exception? _%e102582%_)) - (macro-stack-overflow-exception? _%exn102579%_)))) + (unchecked-slot-ref _%exn103727%_ 'exception)))) + (macro-stack-overflow-exception? _%e103730%_)) + (macro-stack-overflow-exception? _%exn103727%_)))) (define started-thread-exception? - (lambda (_%exn102575%_) + (lambda (_%exn103723%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102575%_)) - (let ((_%e102577%_ + (class-instance? RuntimeException::t _%exn103723%_)) + (let ((_%e103725%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102575%_ 'exception)))) - (macro-started-thread-exception? _%e102577%_)) - (macro-started-thread-exception? _%exn102575%_)))) + (unchecked-slot-ref _%exn103723%_ 'exception)))) + (macro-started-thread-exception? _%e103725%_)) + (macro-started-thread-exception? _%exn103723%_)))) (define started-thread-exception-arguments - (lambda (_%exn102571%_) + (lambda (_%exn103719%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102571%_)) - (let ((_%e102573%_ + (class-instance? RuntimeException::t _%exn103719%_)) + (let ((_%e103721%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102571%_ 'exception)))) - (if (macro-started-thread-exception? _%e102573%_) - (macro-started-thread-exception-arguments _%e102573%_) + (unchecked-slot-ref _%exn103719%_ 'exception)))) + (if (macro-started-thread-exception? _%e103721%_) + (macro-started-thread-exception-arguments _%e103721%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-arguments - (cons _%e102573%_ '()))))) - (if (macro-started-thread-exception? _%exn102571%_) - (macro-started-thread-exception-arguments _%exn102571%_) + (cons _%e103721%_ '()))))) + (if (macro-started-thread-exception? _%exn103719%_) + (macro-started-thread-exception-arguments _%exn103719%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-arguments - (cons _%exn102571%_ '()))))))) + (cons _%exn103719%_ '()))))))) (define started-thread-exception-procedure - (lambda (_%exn102565%_) + (lambda (_%exn103713%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102565%_)) - (let ((_%e102568%_ + (class-instance? RuntimeException::t _%exn103713%_)) + (let ((_%e103716%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102565%_ 'exception)))) - (if (macro-started-thread-exception? _%e102568%_) - (macro-started-thread-exception-procedure _%e102568%_) + (unchecked-slot-ref _%exn103713%_ 'exception)))) + (if (macro-started-thread-exception? _%e103716%_) + (macro-started-thread-exception-procedure _%e103716%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-procedure - (cons _%e102568%_ '()))))) - (if (macro-started-thread-exception? _%exn102565%_) - (macro-started-thread-exception-procedure _%exn102565%_) + (cons _%e103716%_ '()))))) + (if (macro-started-thread-exception? _%exn103713%_) + (macro-started-thread-exception-procedure _%exn103713%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-procedure - (cons _%exn102565%_ '()))))))) + (cons _%exn103713%_ '()))))))) (define terminated-thread-exception? - (lambda (_%exn102561%_) + (lambda (_%exn103709%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102561%_)) - (let ((_%e102563%_ + (class-instance? RuntimeException::t _%exn103709%_)) + (let ((_%e103711%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102561%_ 'exception)))) - (macro-terminated-thread-exception? _%e102563%_)) - (macro-terminated-thread-exception? _%exn102561%_)))) + (unchecked-slot-ref _%exn103709%_ 'exception)))) + (macro-terminated-thread-exception? _%e103711%_)) + (macro-terminated-thread-exception? _%exn103709%_)))) (define terminated-thread-exception-arguments - (lambda (_%exn102557%_) + (lambda (_%exn103705%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102557%_)) - (let ((_%e102559%_ + (class-instance? RuntimeException::t _%exn103705%_)) + (let ((_%e103707%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102557%_ 'exception)))) - (if (macro-terminated-thread-exception? _%e102559%_) - (macro-terminated-thread-exception-arguments _%e102559%_) + (unchecked-slot-ref _%exn103705%_ 'exception)))) + (if (macro-terminated-thread-exception? _%e103707%_) + (macro-terminated-thread-exception-arguments _%e103707%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-arguments - (cons _%e102559%_ '()))))) - (if (macro-terminated-thread-exception? _%exn102557%_) - (macro-terminated-thread-exception-arguments _%exn102557%_) + (cons _%e103707%_ '()))))) + (if (macro-terminated-thread-exception? _%exn103705%_) + (macro-terminated-thread-exception-arguments _%exn103705%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-arguments - (cons _%exn102557%_ '()))))))) + (cons _%exn103705%_ '()))))))) (define terminated-thread-exception-procedure - (lambda (_%exn102551%_) + (lambda (_%exn103699%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102551%_)) - (let ((_%e102554%_ + (class-instance? RuntimeException::t _%exn103699%_)) + (let ((_%e103702%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102551%_ 'exception)))) - (if (macro-terminated-thread-exception? _%e102554%_) - (macro-terminated-thread-exception-procedure _%e102554%_) + (unchecked-slot-ref _%exn103699%_ 'exception)))) + (if (macro-terminated-thread-exception? _%e103702%_) + (macro-terminated-thread-exception-procedure _%e103702%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-procedure - (cons _%e102554%_ '()))))) - (if (macro-terminated-thread-exception? _%exn102551%_) - (macro-terminated-thread-exception-procedure _%exn102551%_) + (cons _%e103702%_ '()))))) + (if (macro-terminated-thread-exception? _%exn103699%_) + (macro-terminated-thread-exception-procedure _%exn103699%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-procedure - (cons _%exn102551%_ '()))))))) + (cons _%exn103699%_ '()))))))) (define type-exception? - (lambda (_%exn102547%_) + (lambda (_%exn103695%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102547%_)) - (let ((_%e102549%_ + (class-instance? RuntimeException::t _%exn103695%_)) + (let ((_%e103697%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102547%_ 'exception)))) - (macro-type-exception? _%e102549%_)) - (macro-type-exception? _%exn102547%_)))) + (unchecked-slot-ref _%exn103695%_ 'exception)))) + (macro-type-exception? _%e103697%_)) + (macro-type-exception? _%exn103695%_)))) (define type-exception-arg-id - (lambda (_%exn102543%_) + (lambda (_%exn103691%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102543%_)) - (let ((_%e102545%_ + (class-instance? RuntimeException::t _%exn103691%_)) + (let ((_%e103693%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102543%_ 'exception)))) - (if (macro-type-exception? _%e102545%_) - (macro-type-exception-arg-id _%e102545%_) + (unchecked-slot-ref _%exn103691%_ 'exception)))) + (if (macro-type-exception? _%e103693%_) + (macro-type-exception-arg-id _%e103693%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arg-id - (cons _%e102545%_ '()))))) - (if (macro-type-exception? _%exn102543%_) - (macro-type-exception-arg-id _%exn102543%_) + (cons _%e103693%_ '()))))) + (if (macro-type-exception? _%exn103691%_) + (macro-type-exception-arg-id _%exn103691%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arg-id - (cons _%exn102543%_ '()))))))) + (cons _%exn103691%_ '()))))))) (define type-exception-arguments - (lambda (_%exn102539%_) + (lambda (_%exn103687%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102539%_)) - (let ((_%e102541%_ + (class-instance? RuntimeException::t _%exn103687%_)) + (let ((_%e103689%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102539%_ 'exception)))) - (if (macro-type-exception? _%e102541%_) - (macro-type-exception-arguments _%e102541%_) + (unchecked-slot-ref _%exn103687%_ 'exception)))) + (if (macro-type-exception? _%e103689%_) + (macro-type-exception-arguments _%e103689%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arguments - (cons _%e102541%_ '()))))) - (if (macro-type-exception? _%exn102539%_) - (macro-type-exception-arguments _%exn102539%_) + (cons _%e103689%_ '()))))) + (if (macro-type-exception? _%exn103687%_) + (macro-type-exception-arguments _%exn103687%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arguments - (cons _%exn102539%_ '()))))))) + (cons _%exn103687%_ '()))))))) (define type-exception-procedure - (lambda (_%exn102535%_) + (lambda (_%exn103683%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102535%_)) - (let ((_%e102537%_ + (class-instance? RuntimeException::t _%exn103683%_)) + (let ((_%e103685%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102535%_ 'exception)))) - (if (macro-type-exception? _%e102537%_) - (macro-type-exception-procedure _%e102537%_) + (unchecked-slot-ref _%exn103683%_ 'exception)))) + (if (macro-type-exception? _%e103685%_) + (macro-type-exception-procedure _%e103685%_) (error '"not an instance" 'type-exception? (cons 'type-exception-procedure - (cons _%e102537%_ '()))))) - (if (macro-type-exception? _%exn102535%_) - (macro-type-exception-procedure _%exn102535%_) + (cons _%e103685%_ '()))))) + (if (macro-type-exception? _%exn103683%_) + (macro-type-exception-procedure _%exn103683%_) (error '"not an instance" 'type-exception? (cons 'type-exception-procedure - (cons _%exn102535%_ '()))))))) + (cons _%exn103683%_ '()))))))) (define type-exception-type-id - (lambda (_%exn102529%_) + (lambda (_%exn103677%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102529%_)) - (let ((_%e102532%_ + (class-instance? RuntimeException::t _%exn103677%_)) + (let ((_%e103680%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102529%_ 'exception)))) - (if (macro-type-exception? _%e102532%_) - (macro-type-exception-type-id _%e102532%_) + (unchecked-slot-ref _%exn103677%_ 'exception)))) + (if (macro-type-exception? _%e103680%_) + (macro-type-exception-type-id _%e103680%_) (error '"not an instance" 'type-exception? (cons 'type-exception-type-id - (cons _%e102532%_ '()))))) - (if (macro-type-exception? _%exn102529%_) - (macro-type-exception-type-id _%exn102529%_) + (cons _%e103680%_ '()))))) + (if (macro-type-exception? _%exn103677%_) + (macro-type-exception-type-id _%exn103677%_) (error '"not an instance" 'type-exception? (cons 'type-exception-type-id - (cons _%exn102529%_ '()))))))) + (cons _%exn103677%_ '()))))))) (define unbound-global-exception? - (lambda (_%exn102525%_) + (lambda (_%exn103673%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102525%_)) - (let ((_%e102527%_ + (class-instance? RuntimeException::t _%exn103673%_)) + (let ((_%e103675%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102525%_ 'exception)))) - (macro-unbound-global-exception? _%e102527%_)) - (macro-unbound-global-exception? _%exn102525%_)))) + (unchecked-slot-ref _%exn103673%_ 'exception)))) + (macro-unbound-global-exception? _%e103675%_)) + (macro-unbound-global-exception? _%exn103673%_)))) (define unbound-global-exception-code - (lambda (_%exn102521%_) + (lambda (_%exn103669%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102521%_)) - (let ((_%e102523%_ + (class-instance? RuntimeException::t _%exn103669%_)) + (let ((_%e103671%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102521%_ 'exception)))) - (if (macro-unbound-global-exception? _%e102523%_) - (macro-unbound-global-exception-code _%e102523%_) + (unchecked-slot-ref _%exn103669%_ 'exception)))) + (if (macro-unbound-global-exception? _%e103671%_) + (macro-unbound-global-exception-code _%e103671%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-code - (cons _%e102523%_ '()))))) - (if (macro-unbound-global-exception? _%exn102521%_) - (macro-unbound-global-exception-code _%exn102521%_) + (cons _%e103671%_ '()))))) + (if (macro-unbound-global-exception? _%exn103669%_) + (macro-unbound-global-exception-code _%exn103669%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-code - (cons _%exn102521%_ '()))))))) + (cons _%exn103669%_ '()))))))) (define unbound-global-exception-rte - (lambda (_%exn102517%_) + (lambda (_%exn103665%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102517%_)) - (let ((_%e102519%_ + (class-instance? RuntimeException::t _%exn103665%_)) + (let ((_%e103667%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102517%_ 'exception)))) - (if (macro-unbound-global-exception? _%e102519%_) - (macro-unbound-global-exception-rte _%e102519%_) + (unchecked-slot-ref _%exn103665%_ 'exception)))) + (if (macro-unbound-global-exception? _%e103667%_) + (macro-unbound-global-exception-rte _%e103667%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-rte - (cons _%e102519%_ '()))))) - (if (macro-unbound-global-exception? _%exn102517%_) - (macro-unbound-global-exception-rte _%exn102517%_) + (cons _%e103667%_ '()))))) + (if (macro-unbound-global-exception? _%exn103665%_) + (macro-unbound-global-exception-rte _%exn103665%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-rte - (cons _%exn102517%_ '()))))))) + (cons _%exn103665%_ '()))))))) (define unbound-global-exception-variable - (lambda (_%exn102511%_) + (lambda (_%exn103659%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102511%_)) - (let ((_%e102514%_ + (class-instance? RuntimeException::t _%exn103659%_)) + (let ((_%e103662%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102511%_ 'exception)))) - (if (macro-unbound-global-exception? _%e102514%_) - (macro-unbound-global-exception-variable _%e102514%_) + (unchecked-slot-ref _%exn103659%_ 'exception)))) + (if (macro-unbound-global-exception? _%e103662%_) + (macro-unbound-global-exception-variable _%e103662%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-variable - (cons _%e102514%_ '()))))) - (if (macro-unbound-global-exception? _%exn102511%_) - (macro-unbound-global-exception-variable _%exn102511%_) + (cons _%e103662%_ '()))))) + (if (macro-unbound-global-exception? _%exn103659%_) + (macro-unbound-global-exception-variable _%exn103659%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-variable - (cons _%exn102511%_ '()))))))) + (cons _%exn103659%_ '()))))))) (define unbound-key-exception? - (lambda (_%exn102507%_) + (lambda (_%exn103655%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102507%_)) - (let ((_%e102509%_ + (class-instance? RuntimeException::t _%exn103655%_)) + (let ((_%e103657%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102507%_ 'exception)))) - (macro-unbound-key-exception? _%e102509%_)) - (macro-unbound-key-exception? _%exn102507%_)))) + (unchecked-slot-ref _%exn103655%_ 'exception)))) + (macro-unbound-key-exception? _%e103657%_)) + (macro-unbound-key-exception? _%exn103655%_)))) (define unbound-key-exception-arguments - (lambda (_%exn102503%_) + (lambda (_%exn103651%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102503%_)) - (let ((_%e102505%_ + (class-instance? RuntimeException::t _%exn103651%_)) + (let ((_%e103653%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102503%_ 'exception)))) - (if (macro-unbound-key-exception? _%e102505%_) - (macro-unbound-key-exception-arguments _%e102505%_) + (unchecked-slot-ref _%exn103651%_ 'exception)))) + (if (macro-unbound-key-exception? _%e103653%_) + (macro-unbound-key-exception-arguments _%e103653%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-arguments - (cons _%e102505%_ '()))))) - (if (macro-unbound-key-exception? _%exn102503%_) - (macro-unbound-key-exception-arguments _%exn102503%_) + (cons _%e103653%_ '()))))) + (if (macro-unbound-key-exception? _%exn103651%_) + (macro-unbound-key-exception-arguments _%exn103651%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-arguments - (cons _%exn102503%_ '()))))))) + (cons _%exn103651%_ '()))))))) (define unbound-key-exception-procedure - (lambda (_%exn102497%_) + (lambda (_%exn103645%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102497%_)) - (let ((_%e102500%_ + (class-instance? RuntimeException::t _%exn103645%_)) + (let ((_%e103648%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102497%_ 'exception)))) - (if (macro-unbound-key-exception? _%e102500%_) - (macro-unbound-key-exception-procedure _%e102500%_) + (unchecked-slot-ref _%exn103645%_ 'exception)))) + (if (macro-unbound-key-exception? _%e103648%_) + (macro-unbound-key-exception-procedure _%e103648%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-procedure - (cons _%e102500%_ '()))))) - (if (macro-unbound-key-exception? _%exn102497%_) - (macro-unbound-key-exception-procedure _%exn102497%_) + (cons _%e103648%_ '()))))) + (if (macro-unbound-key-exception? _%exn103645%_) + (macro-unbound-key-exception-procedure _%exn103645%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-procedure - (cons _%exn102497%_ '()))))))) + (cons _%exn103645%_ '()))))))) (define unbound-os-environment-variable-exception? - (lambda (_%exn102493%_) + (lambda (_%exn103641%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102493%_)) - (let ((_%e102495%_ + (class-instance? RuntimeException::t _%exn103641%_)) + (let ((_%e103643%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102493%_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _%e102495%_)) - (macro-unbound-os-environment-variable-exception? _%exn102493%_)))) + (unchecked-slot-ref _%exn103641%_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _%e103643%_)) + (macro-unbound-os-environment-variable-exception? _%exn103641%_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_%exn102489%_) + (lambda (_%exn103637%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102489%_)) - (let ((_%e102491%_ + (class-instance? RuntimeException::t _%exn103637%_)) + (let ((_%e103639%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102489%_ 'exception)))) + (unchecked-slot-ref _%exn103637%_ 'exception)))) (if (macro-unbound-os-environment-variable-exception? - _%e102491%_) + _%e103639%_) (macro-unbound-os-environment-variable-exception-arguments - _%e102491%_) + _%e103639%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-arguments - (cons _%e102491%_ '()))))) + (cons _%e103639%_ '()))))) (if (macro-unbound-os-environment-variable-exception? - _%exn102489%_) + _%exn103637%_) (macro-unbound-os-environment-variable-exception-arguments - _%exn102489%_) + _%exn103637%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-arguments - (cons _%exn102489%_ '()))))))) + (cons _%exn103637%_ '()))))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_%exn102483%_) + (lambda (_%exn103631%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102483%_)) - (let ((_%e102486%_ + (class-instance? RuntimeException::t _%exn103631%_)) + (let ((_%e103634%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102483%_ 'exception)))) + (unchecked-slot-ref _%exn103631%_ 'exception)))) (if (macro-unbound-os-environment-variable-exception? - _%e102486%_) + _%e103634%_) (macro-unbound-os-environment-variable-exception-procedure - _%e102486%_) + _%e103634%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-procedure - (cons _%e102486%_ '()))))) + (cons _%e103634%_ '()))))) (if (macro-unbound-os-environment-variable-exception? - _%exn102483%_) + _%exn103631%_) (macro-unbound-os-environment-variable-exception-procedure - _%exn102483%_) + _%exn103631%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-procedure - (cons _%exn102483%_ '()))))))) + (cons _%exn103631%_ '()))))))) (define unbound-serial-number-exception? - (lambda (_%exn102479%_) + (lambda (_%exn103627%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102479%_)) - (let ((_%e102481%_ + (class-instance? RuntimeException::t _%exn103627%_)) + (let ((_%e103629%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102479%_ 'exception)))) - (macro-unbound-serial-number-exception? _%e102481%_)) - (macro-unbound-serial-number-exception? _%exn102479%_)))) + (unchecked-slot-ref _%exn103627%_ 'exception)))) + (macro-unbound-serial-number-exception? _%e103629%_)) + (macro-unbound-serial-number-exception? _%exn103627%_)))) (define unbound-serial-number-exception-arguments - (lambda (_%exn102475%_) + (lambda (_%exn103623%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102475%_)) - (let ((_%e102477%_ + (class-instance? RuntimeException::t _%exn103623%_)) + (let ((_%e103625%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102475%_ 'exception)))) - (if (macro-unbound-serial-number-exception? _%e102477%_) - (macro-unbound-serial-number-exception-arguments _%e102477%_) + (unchecked-slot-ref _%exn103623%_ 'exception)))) + (if (macro-unbound-serial-number-exception? _%e103625%_) + (macro-unbound-serial-number-exception-arguments _%e103625%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-arguments - (cons _%e102477%_ '()))))) - (if (macro-unbound-serial-number-exception? _%exn102475%_) - (macro-unbound-serial-number-exception-arguments _%exn102475%_) + (cons _%e103625%_ '()))))) + (if (macro-unbound-serial-number-exception? _%exn103623%_) + (macro-unbound-serial-number-exception-arguments _%exn103623%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-arguments - (cons _%exn102475%_ '()))))))) + (cons _%exn103623%_ '()))))))) (define unbound-serial-number-exception-procedure - (lambda (_%exn102469%_) + (lambda (_%exn103617%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102469%_)) - (let ((_%e102472%_ + (class-instance? RuntimeException::t _%exn103617%_)) + (let ((_%e103620%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102469%_ 'exception)))) - (if (macro-unbound-serial-number-exception? _%e102472%_) - (macro-unbound-serial-number-exception-procedure _%e102472%_) + (unchecked-slot-ref _%exn103617%_ 'exception)))) + (if (macro-unbound-serial-number-exception? _%e103620%_) + (macro-unbound-serial-number-exception-procedure _%e103620%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-procedure - (cons _%e102472%_ '()))))) - (if (macro-unbound-serial-number-exception? _%exn102469%_) - (macro-unbound-serial-number-exception-procedure _%exn102469%_) + (cons _%e103620%_ '()))))) + (if (macro-unbound-serial-number-exception? _%exn103617%_) + (macro-unbound-serial-number-exception-procedure _%exn103617%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-procedure - (cons _%exn102469%_ '()))))))) + (cons _%exn103617%_ '()))))))) (define uncaught-exception? - (lambda (_%exn102465%_) + (lambda (_%exn103613%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102465%_)) - (let ((_%e102467%_ + (class-instance? RuntimeException::t _%exn103613%_)) + (let ((_%e103615%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102465%_ 'exception)))) - (macro-uncaught-exception? _%e102467%_)) - (macro-uncaught-exception? _%exn102465%_)))) + (unchecked-slot-ref _%exn103613%_ 'exception)))) + (macro-uncaught-exception? _%e103615%_)) + (macro-uncaught-exception? _%exn103613%_)))) (define uncaught-exception-arguments - (lambda (_%exn102461%_) + (lambda (_%exn103609%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102461%_)) - (let ((_%e102463%_ + (class-instance? RuntimeException::t _%exn103609%_)) + (let ((_%e103611%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102461%_ 'exception)))) - (if (macro-uncaught-exception? _%e102463%_) - (macro-uncaught-exception-arguments _%e102463%_) + (unchecked-slot-ref _%exn103609%_ 'exception)))) + (if (macro-uncaught-exception? _%e103611%_) + (macro-uncaught-exception-arguments _%e103611%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-arguments - (cons _%e102463%_ '()))))) - (if (macro-uncaught-exception? _%exn102461%_) - (macro-uncaught-exception-arguments _%exn102461%_) + (cons _%e103611%_ '()))))) + (if (macro-uncaught-exception? _%exn103609%_) + (macro-uncaught-exception-arguments _%exn103609%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-arguments - (cons _%exn102461%_ '()))))))) + (cons _%exn103609%_ '()))))))) (define uncaught-exception-procedure - (lambda (_%exn102457%_) + (lambda (_%exn103605%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102457%_)) - (let ((_%e102459%_ + (class-instance? RuntimeException::t _%exn103605%_)) + (let ((_%e103607%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102457%_ 'exception)))) - (if (macro-uncaught-exception? _%e102459%_) - (macro-uncaught-exception-procedure _%e102459%_) + (unchecked-slot-ref _%exn103605%_ 'exception)))) + (if (macro-uncaught-exception? _%e103607%_) + (macro-uncaught-exception-procedure _%e103607%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-procedure - (cons _%e102459%_ '()))))) - (if (macro-uncaught-exception? _%exn102457%_) - (macro-uncaught-exception-procedure _%exn102457%_) + (cons _%e103607%_ '()))))) + (if (macro-uncaught-exception? _%exn103605%_) + (macro-uncaught-exception-procedure _%exn103605%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-procedure - (cons _%exn102457%_ '()))))))) + (cons _%exn103605%_ '()))))))) (define uncaught-exception-reason - (lambda (_%exn102451%_) + (lambda (_%exn103599%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102451%_)) - (let ((_%e102454%_ + (class-instance? RuntimeException::t _%exn103599%_)) + (let ((_%e103602%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102451%_ 'exception)))) - (if (macro-uncaught-exception? _%e102454%_) - (macro-uncaught-exception-reason _%e102454%_) + (unchecked-slot-ref _%exn103599%_ 'exception)))) + (if (macro-uncaught-exception? _%e103602%_) + (macro-uncaught-exception-reason _%e103602%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-reason - (cons _%e102454%_ '()))))) - (if (macro-uncaught-exception? _%exn102451%_) - (macro-uncaught-exception-reason _%exn102451%_) + (cons _%e103602%_ '()))))) + (if (macro-uncaught-exception? _%exn103599%_) + (macro-uncaught-exception-reason _%exn103599%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-reason - (cons _%exn102451%_ '()))))))) + (cons _%exn103599%_ '()))))))) (define uninitialized-thread-exception? - (lambda (_%exn102447%_) + (lambda (_%exn103595%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102447%_)) - (let ((_%e102449%_ + (class-instance? RuntimeException::t _%exn103595%_)) + (let ((_%e103597%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102447%_ 'exception)))) - (macro-uninitialized-thread-exception? _%e102449%_)) - (macro-uninitialized-thread-exception? _%exn102447%_)))) + (unchecked-slot-ref _%exn103595%_ 'exception)))) + (macro-uninitialized-thread-exception? _%e103597%_)) + (macro-uninitialized-thread-exception? _%exn103595%_)))) (define uninitialized-thread-exception-arguments - (lambda (_%exn102443%_) + (lambda (_%exn103591%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102443%_)) - (let ((_%e102445%_ + (class-instance? RuntimeException::t _%exn103591%_)) + (let ((_%e103593%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102443%_ 'exception)))) - (if (macro-uninitialized-thread-exception? _%e102445%_) - (macro-uninitialized-thread-exception-arguments _%e102445%_) + (unchecked-slot-ref _%exn103591%_ 'exception)))) + (if (macro-uninitialized-thread-exception? _%e103593%_) + (macro-uninitialized-thread-exception-arguments _%e103593%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-arguments - (cons _%e102445%_ '()))))) - (if (macro-uninitialized-thread-exception? _%exn102443%_) - (macro-uninitialized-thread-exception-arguments _%exn102443%_) + (cons _%e103593%_ '()))))) + (if (macro-uninitialized-thread-exception? _%exn103591%_) + (macro-uninitialized-thread-exception-arguments _%exn103591%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-arguments - (cons _%exn102443%_ '()))))))) + (cons _%exn103591%_ '()))))))) (define uninitialized-thread-exception-procedure - (lambda (_%exn102437%_) + (lambda (_%exn103585%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102437%_)) - (let ((_%e102440%_ + (class-instance? RuntimeException::t _%exn103585%_)) + (let ((_%e103588%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102437%_ 'exception)))) - (if (macro-uninitialized-thread-exception? _%e102440%_) - (macro-uninitialized-thread-exception-procedure _%e102440%_) + (unchecked-slot-ref _%exn103585%_ 'exception)))) + (if (macro-uninitialized-thread-exception? _%e103588%_) + (macro-uninitialized-thread-exception-procedure _%e103588%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-procedure - (cons _%e102440%_ '()))))) - (if (macro-uninitialized-thread-exception? _%exn102437%_) - (macro-uninitialized-thread-exception-procedure _%exn102437%_) + (cons _%e103588%_ '()))))) + (if (macro-uninitialized-thread-exception? _%exn103585%_) + (macro-uninitialized-thread-exception-procedure _%exn103585%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-procedure - (cons _%exn102437%_ '()))))))) + (cons _%exn103585%_ '()))))))) (define unknown-keyword-argument-exception? - (lambda (_%exn102433%_) + (lambda (_%exn103581%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102433%_)) - (let ((_%e102435%_ + (class-instance? RuntimeException::t _%exn103581%_)) + (let ((_%e103583%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102433%_ 'exception)))) - (macro-unknown-keyword-argument-exception? _%e102435%_)) - (macro-unknown-keyword-argument-exception? _%exn102433%_)))) + (unchecked-slot-ref _%exn103581%_ 'exception)))) + (macro-unknown-keyword-argument-exception? _%e103583%_)) + (macro-unknown-keyword-argument-exception? _%exn103581%_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_%exn102429%_) + (lambda (_%exn103577%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102429%_)) - (let ((_%e102431%_ + (class-instance? RuntimeException::t _%exn103577%_)) + (let ((_%e103579%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102429%_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _%e102431%_) + (unchecked-slot-ref _%exn103577%_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _%e103579%_) (macro-unknown-keyword-argument-exception-arguments - _%e102431%_) + _%e103579%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-arguments - (cons _%e102431%_ '()))))) - (if (macro-unknown-keyword-argument-exception? _%exn102429%_) + (cons _%e103579%_ '()))))) + (if (macro-unknown-keyword-argument-exception? _%exn103577%_) (macro-unknown-keyword-argument-exception-arguments - _%exn102429%_) + _%exn103577%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-arguments - (cons _%exn102429%_ '()))))))) + (cons _%exn103577%_ '()))))))) (define unknown-keyword-argument-exception-procedure - (lambda (_%exn102423%_) + (lambda (_%exn103571%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102423%_)) - (let ((_%e102426%_ + (class-instance? RuntimeException::t _%exn103571%_)) + (let ((_%e103574%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102423%_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _%e102426%_) + (unchecked-slot-ref _%exn103571%_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _%e103574%_) (macro-unknown-keyword-argument-exception-procedure - _%e102426%_) + _%e103574%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-procedure - (cons _%e102426%_ '()))))) - (if (macro-unknown-keyword-argument-exception? _%exn102423%_) + (cons _%e103574%_ '()))))) + (if (macro-unknown-keyword-argument-exception? _%exn103571%_) (macro-unknown-keyword-argument-exception-procedure - _%exn102423%_) + _%exn103571%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-procedure - (cons _%exn102423%_ '()))))))) + (cons _%exn103571%_ '()))))))) (define unterminated-process-exception? - (lambda (_%exn102419%_) + (lambda (_%exn103567%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102419%_)) - (let ((_%e102421%_ + (class-instance? RuntimeException::t _%exn103567%_)) + (let ((_%e103569%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102419%_ 'exception)))) - (macro-unterminated-process-exception? _%e102421%_)) - (macro-unterminated-process-exception? _%exn102419%_)))) + (unchecked-slot-ref _%exn103567%_ 'exception)))) + (macro-unterminated-process-exception? _%e103569%_)) + (macro-unterminated-process-exception? _%exn103567%_)))) (define unterminated-process-exception-arguments - (lambda (_%exn102415%_) + (lambda (_%exn103563%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102415%_)) - (let ((_%e102417%_ + (class-instance? RuntimeException::t _%exn103563%_)) + (let ((_%e103565%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102415%_ 'exception)))) - (if (macro-unterminated-process-exception? _%e102417%_) - (macro-unterminated-process-exception-arguments _%e102417%_) + (unchecked-slot-ref _%exn103563%_ 'exception)))) + (if (macro-unterminated-process-exception? _%e103565%_) + (macro-unterminated-process-exception-arguments _%e103565%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-arguments - (cons _%e102417%_ '()))))) - (if (macro-unterminated-process-exception? _%exn102415%_) - (macro-unterminated-process-exception-arguments _%exn102415%_) + (cons _%e103565%_ '()))))) + (if (macro-unterminated-process-exception? _%exn103563%_) + (macro-unterminated-process-exception-arguments _%exn103563%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-arguments - (cons _%exn102415%_ '()))))))) + (cons _%exn103563%_ '()))))))) (define unterminated-process-exception-procedure - (lambda (_%exn102409%_) + (lambda (_%exn103557%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102409%_)) - (let ((_%e102412%_ + (class-instance? RuntimeException::t _%exn103557%_)) + (let ((_%e103560%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102409%_ 'exception)))) - (if (macro-unterminated-process-exception? _%e102412%_) - (macro-unterminated-process-exception-procedure _%e102412%_) + (unchecked-slot-ref _%exn103557%_ 'exception)))) + (if (macro-unterminated-process-exception? _%e103560%_) + (macro-unterminated-process-exception-procedure _%e103560%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-procedure - (cons _%e102412%_ '()))))) - (if (macro-unterminated-process-exception? _%exn102409%_) - (macro-unterminated-process-exception-procedure _%exn102409%_) + (cons _%e103560%_ '()))))) + (if (macro-unterminated-process-exception? _%exn103557%_) + (macro-unterminated-process-exception-procedure _%exn103557%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-procedure - (cons _%exn102409%_ '()))))))) + (cons _%exn103557%_ '()))))))) (define wrong-number-of-arguments-exception? - (lambda (_%exn102405%_) + (lambda (_%exn103553%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102405%_)) - (let ((_%e102407%_ + (class-instance? RuntimeException::t _%exn103553%_)) + (let ((_%e103555%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102405%_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _%e102407%_)) - (macro-wrong-number-of-arguments-exception? _%exn102405%_)))) + (unchecked-slot-ref _%exn103553%_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _%e103555%_)) + (macro-wrong-number-of-arguments-exception? _%exn103553%_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_%exn102401%_) + (lambda (_%exn103549%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102401%_)) - (let ((_%e102403%_ + (class-instance? RuntimeException::t _%exn103549%_)) + (let ((_%e103551%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102401%_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _%e102403%_) + (unchecked-slot-ref _%exn103549%_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _%e103551%_) (macro-wrong-number-of-arguments-exception-arguments - _%e102403%_) + _%e103551%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-arguments - (cons _%e102403%_ '()))))) - (if (macro-wrong-number-of-arguments-exception? _%exn102401%_) + (cons _%e103551%_ '()))))) + (if (macro-wrong-number-of-arguments-exception? _%exn103549%_) (macro-wrong-number-of-arguments-exception-arguments - _%exn102401%_) + _%exn103549%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-arguments - (cons _%exn102401%_ '()))))))) + (cons _%exn103549%_ '()))))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_%exn102395%_) + (lambda (_%exn103543%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102395%_)) - (let ((_%e102398%_ + (class-instance? RuntimeException::t _%exn103543%_)) + (let ((_%e103546%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102395%_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _%e102398%_) + (unchecked-slot-ref _%exn103543%_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _%e103546%_) (macro-wrong-number-of-arguments-exception-procedure - _%e102398%_) + _%e103546%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-procedure - (cons _%e102398%_ '()))))) - (if (macro-wrong-number-of-arguments-exception? _%exn102395%_) + (cons _%e103546%_ '()))))) + (if (macro-wrong-number-of-arguments-exception? _%exn103543%_) (macro-wrong-number-of-arguments-exception-procedure - _%exn102395%_) + _%exn103543%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-procedure - (cons _%exn102395%_ '()))))))) + (cons _%exn103543%_ '()))))))) (define wrong-number-of-values-exception? - (lambda (_%exn102391%_) + (lambda (_%exn103539%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102391%_)) - (let ((_%e102393%_ + (class-instance? RuntimeException::t _%exn103539%_)) + (let ((_%e103541%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102391%_ 'exception)))) - (macro-wrong-number-of-values-exception? _%e102393%_)) - (macro-wrong-number-of-values-exception? _%exn102391%_)))) + (unchecked-slot-ref _%exn103539%_ 'exception)))) + (macro-wrong-number-of-values-exception? _%e103541%_)) + (macro-wrong-number-of-values-exception? _%exn103539%_)))) (define wrong-number-of-values-exception-code - (lambda (_%exn102387%_) + (lambda (_%exn103535%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102387%_)) - (let ((_%e102389%_ + (class-instance? RuntimeException::t _%exn103535%_)) + (let ((_%e103537%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102387%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e102389%_) - (macro-wrong-number-of-values-exception-code _%e102389%_) + (unchecked-slot-ref _%exn103535%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e103537%_) + (macro-wrong-number-of-values-exception-code _%e103537%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-code - (cons _%e102389%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn102387%_) - (macro-wrong-number-of-values-exception-code _%exn102387%_) + (cons _%e103537%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn103535%_) + (macro-wrong-number-of-values-exception-code _%exn103535%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-code - (cons _%exn102387%_ '()))))))) + (cons _%exn103535%_ '()))))))) (define wrong-number-of-values-exception-rte - (lambda (_%exn102383%_) + (lambda (_%exn103531%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102383%_)) - (let ((_%e102385%_ + (class-instance? RuntimeException::t _%exn103531%_)) + (let ((_%e103533%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102383%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e102385%_) - (macro-wrong-number-of-values-exception-rte _%e102385%_) + (unchecked-slot-ref _%exn103531%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e103533%_) + (macro-wrong-number-of-values-exception-rte _%e103533%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-rte - (cons _%e102385%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn102383%_) - (macro-wrong-number-of-values-exception-rte _%exn102383%_) + (cons _%e103533%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn103531%_) + (macro-wrong-number-of-values-exception-rte _%exn103531%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-rte - (cons _%exn102383%_ '()))))))) + (cons _%exn103531%_ '()))))))) (define wrong-number-of-values-exception-vals - (lambda (_%exn102377%_) + (lambda (_%exn103525%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102377%_)) - (let ((_%e102380%_ + (class-instance? RuntimeException::t _%exn103525%_)) + (let ((_%e103528%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102377%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e102380%_) - (macro-wrong-number-of-values-exception-vals _%e102380%_) + (unchecked-slot-ref _%exn103525%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e103528%_) + (macro-wrong-number-of-values-exception-vals _%e103528%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-vals - (cons _%e102380%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn102377%_) - (macro-wrong-number-of-values-exception-vals _%exn102377%_) + (cons _%e103528%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn103525%_) + (macro-wrong-number-of-values-exception-vals _%exn103525%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-vals - (cons _%exn102377%_ '()))))))) + (cons _%exn103525%_ '()))))))) (define wrong-processor-c-return-exception? - (lambda (_%exn102371%_) + (lambda (_%exn103519%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102371%_)) - (let ((_%e102374%_ + (class-instance? RuntimeException::t _%exn103519%_)) + (let ((_%e103522%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102371%_ 'exception)))) - (macro-wrong-processor-c-return-exception? _%e102374%_)) - (macro-wrong-processor-c-return-exception? _%exn102371%_)))))) + (unchecked-slot-ref _%exn103519%_ 'exception)))) + (macro-wrong-processor-c-return-exception? _%e103522%_)) + (macro-wrong-processor-c-return-exception? _%exn103519%_)))))) diff --git a/src/bootstrap/gerbil/runtime/error~1.scm b/src/bootstrap/gerbil/runtime/error~1.scm index 0f6c3dcc4..808cf47f3 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]#_g103894_| + (define |[1]#_g105042_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g103896_| + (define |[1]#_g105044_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g103898_| + (define |[1]#_g105046_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g103900_| + (define |[1]#_g105048_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g103902_| + (define |[1]#_g105050_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g103904_| + (define |[1]#_g105052_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g103906_| + (define |[1]#_g105054_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103908_| + (define |[1]#_g105056_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103910_| + (define |[1]#_g105058_| (##structure gx#syntax-quote::t '&StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103912_| + (define |[1]#_g105060_| (##structure gx#syntax-quote::t '&StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103914_| + (define |[1]#_g105062_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g103915_| + (define |[1]#_g105063_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g103917_| + (define |[1]#_g105065_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g103919_| + (define |[1]#_g105067_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g103921_| + (define |[1]#_g105069_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g103923_| + (define |[1]#_g105071_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g103924_| + (define |[1]#_g105072_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g103925_| + (define |[1]#_g105073_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g103926_| + (define |[1]#_g105074_| (##structure gx#syntax-quote::t 'Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103928_| + (define |[1]#_g105076_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103929_| + (define |[1]#_g105077_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103930_| + (define |[1]#_g105078_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103931_| + (define |[1]#_g105079_| (##structure gx#syntax-quote::t 'Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103933_| + (define |[1]#_g105081_| (##structure gx#syntax-quote::t '&Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g103934_| + (define |[1]#_g105082_| (##structure gx#syntax-quote::t '&Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g103935_| + (define |[1]#_g105083_| (##structure gx#syntax-quote::t '&Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g103936_| + (define |[1]#_g105084_| (##structure gx#syntax-quote::t '&Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103938_| + (define |[1]#_g105086_| (##structure gx#syntax-quote::t '&Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103939_| + (define |[1]#_g105087_| (##structure gx#syntax-quote::t '&Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103940_| + (define |[1]#_g105088_| (##structure gx#syntax-quote::t '&Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103941_| + (define |[1]#_g105089_| (##structure gx#syntax-quote::t '&Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103943_| + (define |[1]#_g105091_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g103945_| + (define |[1]#_g105093_| (##structure gx#syntax-quote::t 'ContractViolation::t #f (gx#current-expander-context) '())) - (define |[1]#_g103947_| + (define |[1]#_g105095_| (##structure gx#syntax-quote::t 'make-ContractViolation #f (gx#current-expander-context) '())) - (define |[1]#_g103949_| + (define |[1]#_g105097_| (##structure gx#syntax-quote::t 'ContractViolation? #f (gx#current-expander-context) '())) - (define |[1]#_g103951_| + (define |[1]#_g105099_| (##structure gx#syntax-quote::t 'ContractViolation-message #f (gx#current-expander-context) '())) - (define |[1]#_g103952_| + (define |[1]#_g105100_| (##structure gx#syntax-quote::t 'ContractViolation-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g103953_| + (define |[1]#_g105101_| (##structure gx#syntax-quote::t 'ContractViolation-where #f (gx#current-expander-context) '())) - (define |[1]#_g103954_| + (define |[1]#_g105102_| (##structure gx#syntax-quote::t 'ContractViolation-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103956_| + (define |[1]#_g105104_| (##structure gx#syntax-quote::t 'ContractViolation-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103957_| + (define |[1]#_g105105_| (##structure gx#syntax-quote::t 'ContractViolation-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103958_| + (define |[1]#_g105106_| (##structure gx#syntax-quote::t 'ContractViolation-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103959_| + (define |[1]#_g105107_| (##structure gx#syntax-quote::t 'ContractViolation-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103961_| + (define |[1]#_g105109_| (##structure gx#syntax-quote::t '&ContractViolation-message #f (gx#current-expander-context) '())) - (define |[1]#_g103962_| + (define |[1]#_g105110_| (##structure gx#syntax-quote::t '&ContractViolation-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g103963_| + (define |[1]#_g105111_| (##structure gx#syntax-quote::t '&ContractViolation-where #f (gx#current-expander-context) '())) - (define |[1]#_g103964_| + (define |[1]#_g105112_| (##structure gx#syntax-quote::t '&ContractViolation-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103966_| + (define |[1]#_g105114_| (##structure gx#syntax-quote::t '&ContractViolation-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103967_| + (define |[1]#_g105115_| (##structure gx#syntax-quote::t '&ContractViolation-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103968_| + (define |[1]#_g105116_| (##structure gx#syntax-quote::t '&ContractViolation-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103969_| + (define |[1]#_g105117_| (##structure gx#syntax-quote::t '&ContractViolation-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103972_| + (define |[1]#_g105120_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g103974_| + (define |[1]#_g105122_| (##structure gx#syntax-quote::t 'make-RuntimeException #f (gx#current-expander-context) '())) - (define |[1]#_g103976_| + (define |[1]#_g105124_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g103978_| + (define |[1]#_g105126_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g103979_| + (define |[1]#_g105127_| (##structure gx#syntax-quote::t 'RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103981_| + (define |[1]#_g105129_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103982_| + (define |[1]#_g105130_| (##structure gx#syntax-quote::t 'RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103984_| + (define |[1]#_g105132_| (##structure gx#syntax-quote::t '&RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g103985_| + (define |[1]#_g105133_| (##structure gx#syntax-quote::t '&RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g103987_| + (define |[1]#_g105135_| (##structure gx#syntax-quote::t '&RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g103988_| + (define |[1]#_g105136_| (##structure gx#syntax-quote::t '&RuntimeException-continuation-set! @@ -436,7 +436,7 @@ '())) (begin (define |[:0:]#Exception| - (let ((__obj103857 + (let ((__obj105005 (let () (declare (not safe)) (##structure @@ -465,68 +465,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103857 + __obj105005 'gerbil/runtime/error#Exception::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 'Exception '2 '#f '#f)) + (##unchecked-structure-set! __obj105005 'Exception '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj105005 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj105005 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj105005 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '#f '11 '#f '#f)) - (let ((__tmp103893 |[1]#_g103894_|)) + (##unchecked-structure-set! __obj105005 '#f '11 '#f '#f)) + (let ((__tmp105041 |[1]#_g105042_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103857 __tmp103893 '12 '#f '#f)) - (let ((__tmp103895 |[1]#_g103896_|)) + (##unchecked-structure-set! __obj105005 __tmp105041 '12 '#f '#f)) + (let ((__tmp105043 |[1]#_g105044_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103857 __tmp103895 '13 '#f '#f)) - (let ((__tmp103897 |[1]#_g103898_|)) + (##unchecked-structure-set! __obj105005 __tmp105043 '13 '#f '#f)) + (let ((__tmp105045 |[1]#_g105046_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103857 __tmp103897 '14 '#f '#f)) + (##unchecked-structure-set! __obj105005 __tmp105045 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj105005 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103857 '() '20 '#f '#f)) - __obj103857)) + (##unchecked-structure-set! __obj105005 '() '20 '#f '#f)) + __obj105005)) (define |[:0:]#StackTrace| - (let ((__obj103858 + (let ((__obj105006 (let () (declare (not safe)) (##structure @@ -555,68 +555,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103858 + __obj105006 'gerbil/runtime/error#StackTrace::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 'StackTrace '2 '#f '#f)) + (##unchecked-structure-set! __obj105006 'StackTrace '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '(continuation) '4 '#f '#f)) + (##unchecked-structure-set! __obj105006 '(continuation) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '(continuation) '6 '#f '#f)) + (##unchecked-structure-set! __obj105006 '(continuation) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj105006 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj105006 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj105006 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj105006 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '#f '11 '#f '#f)) - (let ((__tmp103899 |[1]#_g103900_|)) + (##unchecked-structure-set! __obj105006 '#f '11 '#f '#f)) + (let ((__tmp105047 |[1]#_g105048_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103858 __tmp103899 '12 '#f '#f)) - (let ((__tmp103901 |[1]#_g103902_|)) + (##unchecked-structure-set! __obj105006 __tmp105047 '12 '#f '#f)) + (let ((__tmp105049 |[1]#_g105050_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103858 __tmp103901 '13 '#f '#f)) - (let ((__tmp103903 |[1]#_g103904_|)) + (##unchecked-structure-set! __obj105006 __tmp105049 '13 '#f '#f)) + (let ((__tmp105051 |[1]#_g105052_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103858 __tmp103903 '14 '#f '#f)) - (let ((__tmp103905 (cons (cons 'continuation |[1]#_g103906_|) '()))) + (##unchecked-structure-set! __obj105006 __tmp105051 '14 '#f '#f)) + (let ((__tmp105053 (cons (cons 'continuation |[1]#_g105054_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj103858 __tmp103905 '15 '#f '#f)) - (let ((__tmp103907 (cons (cons 'continuation |[1]#_g103908_|) '()))) + (##unchecked-structure-set! __obj105006 __tmp105053 '15 '#f '#f)) + (let ((__tmp105055 (cons (cons 'continuation |[1]#_g105056_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj103858 __tmp103907 '16 '#f '#f)) - (let ((__tmp103909 (cons (cons 'continuation |[1]#_g103910_|) '()))) + (##unchecked-structure-set! __obj105006 __tmp105055 '16 '#f '#f)) + (let ((__tmp105057 (cons (cons 'continuation |[1]#_g105058_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj103858 __tmp103909 '17 '#f '#f)) - (let ((__tmp103911 (cons (cons 'continuation |[1]#_g103912_|) '()))) + (##unchecked-structure-set! __obj105006 __tmp105057 '17 '#f '#f)) + (let ((__tmp105059 (cons (cons 'continuation |[1]#_g105060_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj103858 __tmp103911 '18 '#f '#f)) + (##unchecked-structure-set! __obj105006 __tmp105059 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj105006 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj105006 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103858 '() '20 '#f '#f)) - __obj103858)) + (##unchecked-structure-set! __obj105006 '() '20 '#f '#f)) + __obj105006)) (define |[:0:]#Error| - (let ((__obj103859 + (let ((__obj105007 (let () (declare (not safe)) (##structure @@ -645,18 +645,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103859 + __obj105007 'gerbil/runtime/error#Error::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103859 'Error '2 '#f '#f)) + (##unchecked-structure-set! __obj105007 'Error '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103859 + __obj105007 '(message irritants where) '4 '#f @@ -664,79 +664,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103859 + __obj105007 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp103913 (cons |[1]#_g103914_| (cons |[1]#_g103915_| '())))) + (let ((__tmp105061 (cons |[1]#_g105062_| (cons |[1]#_g105063_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103859 __tmp103913 '3 '#f '#f)) + (##unchecked-structure-set! __obj105007 __tmp105061 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103859 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj105007 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103859 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj105007 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103859 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj105007 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103859 ':init! '11 '#f '#f)) - (let ((__tmp103916 |[1]#_g103917_|)) + (##unchecked-structure-set! __obj105007 ':init! '11 '#f '#f)) + (let ((__tmp105064 |[1]#_g105065_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103859 __tmp103916 '12 '#f '#f)) - (let ((__tmp103918 |[1]#_g103919_|)) + (##unchecked-structure-set! __obj105007 __tmp105064 '12 '#f '#f)) + (let ((__tmp105066 |[1]#_g105067_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103859 __tmp103918 '13 '#f '#f)) - (let ((__tmp103920 |[1]#_g103921_|)) + (##unchecked-structure-set! __obj105007 __tmp105066 '13 '#f '#f)) + (let ((__tmp105068 |[1]#_g105069_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103859 __tmp103920 '14 '#f '#f)) - (let ((__tmp103922 - (cons (cons 'message |[1]#_g103923_|) - (cons (cons 'irritants |[1]#_g103924_|) - (cons (cons 'where |[1]#_g103925_|) - (cons (cons 'continuation |[1]#_g103926_|) + (##unchecked-structure-set! __obj105007 __tmp105068 '14 '#f '#f)) + (let ((__tmp105070 + (cons (cons 'message |[1]#_g105071_|) + (cons (cons 'irritants |[1]#_g105072_|) + (cons (cons 'where |[1]#_g105073_|) + (cons (cons 'continuation |[1]#_g105074_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103859 __tmp103922 '15 '#f '#f)) - (let ((__tmp103927 - (cons (cons 'message |[1]#_g103928_|) - (cons (cons 'irritants |[1]#_g103929_|) - (cons (cons 'where |[1]#_g103930_|) - (cons (cons 'continuation |[1]#_g103931_|) + (##unchecked-structure-set! __obj105007 __tmp105070 '15 '#f '#f)) + (let ((__tmp105075 + (cons (cons 'message |[1]#_g105076_|) + (cons (cons 'irritants |[1]#_g105077_|) + (cons (cons 'where |[1]#_g105078_|) + (cons (cons 'continuation |[1]#_g105079_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103859 __tmp103927 '16 '#f '#f)) - (let ((__tmp103932 - (cons (cons 'message |[1]#_g103933_|) - (cons (cons 'irritants |[1]#_g103934_|) - (cons (cons 'where |[1]#_g103935_|) - (cons (cons 'continuation |[1]#_g103936_|) + (##unchecked-structure-set! __obj105007 __tmp105075 '16 '#f '#f)) + (let ((__tmp105080 + (cons (cons 'message |[1]#_g105081_|) + (cons (cons 'irritants |[1]#_g105082_|) + (cons (cons 'where |[1]#_g105083_|) + (cons (cons 'continuation |[1]#_g105084_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103859 __tmp103932 '17 '#f '#f)) - (let ((__tmp103937 - (cons (cons 'message |[1]#_g103938_|) - (cons (cons 'irritants |[1]#_g103939_|) - (cons (cons 'where |[1]#_g103940_|) - (cons (cons 'continuation |[1]#_g103941_|) + (##unchecked-structure-set! __obj105007 __tmp105080 '17 '#f '#f)) + (let ((__tmp105085 + (cons (cons 'message |[1]#_g105086_|) + (cons (cons 'irritants |[1]#_g105087_|) + (cons (cons 'where |[1]#_g105088_|) + (cons (cons 'continuation |[1]#_g105089_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103859 __tmp103937 '18 '#f '#f)) + (##unchecked-structure-set! __obj105007 __tmp105085 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103859 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj105007 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103859 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj105007 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103859 '() '20 '#f '#f)) - __obj103859)) + (##unchecked-structure-set! __obj105007 '() '20 '#f '#f)) + __obj105007)) (define |[:0:]#ContractViolation| - (let ((__obj103860 + (let ((__obj105008 (let () (declare (not safe)) (##structure @@ -765,7 +765,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103860 + __obj105008 'gerbil/runtime/error#ContractViolation::t '1 '#f @@ -773,90 +773,90 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103860 + __obj105008 'ContractViolation '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103860 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj105008 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103860 + __obj105008 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp103942 (cons |[1]#_g103943_| '()))) + (let ((__tmp105090 (cons |[1]#_g105091_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj103860 __tmp103942 '3 '#f '#f)) + (##unchecked-structure-set! __obj105008 __tmp105090 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103860 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj105008 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103860 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj105008 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103860 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj105008 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103860 '#f '11 '#f '#f)) - (let ((__tmp103944 |[1]#_g103945_|)) + (##unchecked-structure-set! __obj105008 '#f '11 '#f '#f)) + (let ((__tmp105092 |[1]#_g105093_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103860 __tmp103944 '12 '#f '#f)) - (let ((__tmp103946 |[1]#_g103947_|)) + (##unchecked-structure-set! __obj105008 __tmp105092 '12 '#f '#f)) + (let ((__tmp105094 |[1]#_g105095_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103860 __tmp103946 '13 '#f '#f)) - (let ((__tmp103948 |[1]#_g103949_|)) + (##unchecked-structure-set! __obj105008 __tmp105094 '13 '#f '#f)) + (let ((__tmp105096 |[1]#_g105097_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103860 __tmp103948 '14 '#f '#f)) - (let ((__tmp103950 - (cons (cons 'message |[1]#_g103951_|) - (cons (cons 'irritants |[1]#_g103952_|) - (cons (cons 'where |[1]#_g103953_|) - (cons (cons 'continuation |[1]#_g103954_|) + (##unchecked-structure-set! __obj105008 __tmp105096 '14 '#f '#f)) + (let ((__tmp105098 + (cons (cons 'message |[1]#_g105099_|) + (cons (cons 'irritants |[1]#_g105100_|) + (cons (cons 'where |[1]#_g105101_|) + (cons (cons 'continuation |[1]#_g105102_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103860 __tmp103950 '15 '#f '#f)) - (let ((__tmp103955 - (cons (cons 'message |[1]#_g103956_|) - (cons (cons 'irritants |[1]#_g103957_|) - (cons (cons 'where |[1]#_g103958_|) - (cons (cons 'continuation |[1]#_g103959_|) + (##unchecked-structure-set! __obj105008 __tmp105098 '15 '#f '#f)) + (let ((__tmp105103 + (cons (cons 'message |[1]#_g105104_|) + (cons (cons 'irritants |[1]#_g105105_|) + (cons (cons 'where |[1]#_g105106_|) + (cons (cons 'continuation |[1]#_g105107_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103860 __tmp103955 '16 '#f '#f)) - (let ((__tmp103960 - (cons (cons 'message |[1]#_g103961_|) - (cons (cons 'irritants |[1]#_g103962_|) - (cons (cons 'where |[1]#_g103963_|) - (cons (cons 'continuation |[1]#_g103964_|) + (##unchecked-structure-set! __obj105008 __tmp105103 '16 '#f '#f)) + (let ((__tmp105108 + (cons (cons 'message |[1]#_g105109_|) + (cons (cons 'irritants |[1]#_g105110_|) + (cons (cons 'where |[1]#_g105111_|) + (cons (cons 'continuation |[1]#_g105112_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103860 __tmp103960 '17 '#f '#f)) - (let ((__tmp103965 - (cons (cons 'message |[1]#_g103966_|) - (cons (cons 'irritants |[1]#_g103967_|) - (cons (cons 'where |[1]#_g103968_|) - (cons (cons 'continuation |[1]#_g103969_|) + (##unchecked-structure-set! __obj105008 __tmp105108 '17 '#f '#f)) + (let ((__tmp105113 + (cons (cons 'message |[1]#_g105114_|) + (cons (cons 'irritants |[1]#_g105115_|) + (cons (cons 'where |[1]#_g105116_|) + (cons (cons 'continuation |[1]#_g105117_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj103860 __tmp103965 '18 '#f '#f)) + (##unchecked-structure-set! __obj105008 __tmp105113 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103860 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj105008 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103860 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj105008 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103860 '() '20 '#f '#f)) - __obj103860)) + (##unchecked-structure-set! __obj105008 '() '20 '#f '#f)) + __obj105008)) (define |[:0:]#RuntimeException| - (let ((__obj103861 + (let ((__obj105009 (let () (declare (not safe)) (##structure @@ -885,7 +885,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103861 + __obj105009 'gerbil/runtime/error#RuntimeException::t '1 '#f @@ -893,277 +893,277 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103861 + __obj105009 'RuntimeException '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103861 '(exception) '4 '#f '#f)) + (##unchecked-structure-set! __obj105009 '(exception) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103861 + __obj105009 '(continuation exception) '6 '#f '#f)) - (let ((__tmp103970 (cons |[1]#_g103914_| (cons |[1]#_g103915_| '())))) + (let ((__tmp105118 (cons |[1]#_g105062_| (cons |[1]#_g105063_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103861 __tmp103970 '3 '#f '#f)) + (##unchecked-structure-set! __obj105009 __tmp105118 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103861 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj105009 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103861 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj105009 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103861 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj105009 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103861 '#f '11 '#f '#f)) - (let ((__tmp103971 |[1]#_g103972_|)) + (##unchecked-structure-set! __obj105009 '#f '11 '#f '#f)) + (let ((__tmp105119 |[1]#_g105120_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103861 __tmp103971 '12 '#f '#f)) - (let ((__tmp103973 |[1]#_g103974_|)) + (##unchecked-structure-set! __obj105009 __tmp105119 '12 '#f '#f)) + (let ((__tmp105121 |[1]#_g105122_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103861 __tmp103973 '13 '#f '#f)) - (let ((__tmp103975 |[1]#_g103976_|)) + (##unchecked-structure-set! __obj105009 __tmp105121 '13 '#f '#f)) + (let ((__tmp105123 |[1]#_g105124_|)) (declare (not safe)) - (##unchecked-structure-set! __obj103861 __tmp103975 '14 '#f '#f)) - (let ((__tmp103977 - (cons (cons 'exception |[1]#_g103978_|) - (cons (cons 'continuation |[1]#_g103979_|) '())))) + (##unchecked-structure-set! __obj105009 __tmp105123 '14 '#f '#f)) + (let ((__tmp105125 + (cons (cons 'exception |[1]#_g105126_|) + (cons (cons 'continuation |[1]#_g105127_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103861 __tmp103977 '15 '#f '#f)) - (let ((__tmp103980 - (cons (cons 'exception |[1]#_g103981_|) - (cons (cons 'continuation |[1]#_g103982_|) '())))) + (##unchecked-structure-set! __obj105009 __tmp105125 '15 '#f '#f)) + (let ((__tmp105128 + (cons (cons 'exception |[1]#_g105129_|) + (cons (cons 'continuation |[1]#_g105130_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103861 __tmp103980 '16 '#f '#f)) - (let ((__tmp103983 - (cons (cons 'exception |[1]#_g103984_|) - (cons (cons 'continuation |[1]#_g103985_|) '())))) + (##unchecked-structure-set! __obj105009 __tmp105128 '16 '#f '#f)) + (let ((__tmp105131 + (cons (cons 'exception |[1]#_g105132_|) + (cons (cons 'continuation |[1]#_g105133_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103861 __tmp103983 '17 '#f '#f)) - (let ((__tmp103986 - (cons (cons 'exception |[1]#_g103987_|) - (cons (cons 'continuation |[1]#_g103988_|) '())))) + (##unchecked-structure-set! __obj105009 __tmp105131 '17 '#f '#f)) + (let ((__tmp105134 + (cons (cons 'exception |[1]#_g105135_|) + (cons (cons 'continuation |[1]#_g105136_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj103861 __tmp103986 '18 '#f '#f)) + (##unchecked-structure-set! __obj105009 __tmp105134 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103861 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj105009 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103861 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj105009 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj103861 '() '20 '#f '#f)) - __obj103861)) + (##unchecked-structure-set! __obj105009 '() '20 '#f '#f)) + __obj105009)) (define |[:0:]#defruntime-exception| - (lambda (_%stx101999%_) - (let* ((_%g102002102029%_ - (lambda (_%g102003102025%_) + (lambda (_%stx103147%_) + (let* ((_%g103150103177%_ + (lambda (_%g103151103173%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g102003102025%_))) - (_%g102001102265%_ - (lambda (_%g102003102033%_) - (if (gx#stx-pair? _%g102003102033%_) - (let ((_%e102006102036%_ - (gx#syntax-e _%g102003102033%_))) - (let ((_%hd102007102040%_ + _%g103151103173%_))) + (_%g103149103413%_ + (lambda (_%g103151103181%_) + (if (gx#stx-pair? _%g103151103181%_) + (let ((_%e103154103184%_ + (gx#syntax-e _%g103151103181%_))) + (let ((_%hd103155103188%_ (let () (declare (not safe)) - (##car _%e102006102036%_))) - (_%tl102008102043%_ + (##car _%e103154103184%_))) + (_%tl103156103191%_ (let () (declare (not safe)) - (##cdr _%e102006102036%_)))) - (if (gx#stx-pair? _%tl102008102043%_) - (let ((_%e102009102046%_ - (gx#syntax-e _%tl102008102043%_))) - (let ((_%hd102010102050%_ + (##cdr _%e103154103184%_)))) + (if (gx#stx-pair? _%tl103156103191%_) + (let ((_%e103157103194%_ + (gx#syntax-e _%tl103156103191%_))) + (let ((_%hd103158103198%_ (let () (declare (not safe)) - (##car _%e102009102046%_))) - (_%tl102011102053%_ + (##car _%e103157103194%_))) + (_%tl103159103201%_ (let () (declare (not safe)) - (##cdr _%e102009102046%_)))) - (if (gx#stx-pair? _%hd102010102050%_) - (let ((_%e102012102056%_ - (gx#syntax-e _%hd102010102050%_))) - (let ((_%hd102013102060%_ + (##cdr _%e103157103194%_)))) + (if (gx#stx-pair? _%hd103158103198%_) + (let ((_%e103160103204%_ + (gx#syntax-e _%hd103158103198%_))) + (let ((_%hd103161103208%_ (let () (declare (not safe)) - (##car _%e102012102056%_))) - (_%tl102014102063%_ + (##car _%e103160103204%_))) + (_%tl103162103211%_ (let () (declare (not safe)) - (##cdr _%e102012102056%_)))) + (##cdr _%e103160103204%_)))) (if (gx#stx-pair/null? - _%tl102014102063%_) - (let ((_g103989_ + _%tl103162103211%_) + (let ((_g105137_ (gx#syntax-split-splice - _%tl102014102063%_ + _%tl103162103211%_ '0))) (begin - (let ((_g103990_ + (let ((_g105138_ (let () (declare (not safe)) (if (##values? - _g103989_) - (##vector-length - _g103989_) + _g105137_) + (##values-length + _g105137_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g103990_ 2))) - (error "Context expects 2 values" _g103990_))) + (##fx= _g105138_ 2))) + (error "Context expects 2 values" _g105138_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target102015102066%_ + (let ((_%target103163103214%_ (let () (declare (not safe)) - (##vector-ref - _g103989_ + (##values-ref + _g105137_ 0))) - (_%tl102017102069%_ + (_%tl103165103217%_ (let () (declare (not safe)) - (##vector-ref - _g103989_ + (##values-ref + _g105137_ 1)))) (if (gx#stx-null? - _%tl102017102069%_) - (letrec ((_%loop102018102072%_ + _%tl103165103217%_) + (letrec ((_%loop103166103220%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd102016102076%_ _%getf102022102079%_) - (if (gx#stx-pair? _%hd102016102076%_) - (let ((_%e102019102082%_ - (gx#syntax-e _%hd102016102076%_))) - (let ((_%lp-hd102020102086%_ + (lambda (_%hd103164103224%_ _%getf103170103227%_) + (if (gx#stx-pair? _%hd103164103224%_) + (let ((_%e103167103230%_ + (gx#syntax-e _%hd103164103224%_))) + (let ((_%lp-hd103168103234%_ (let () (declare (not safe)) - (##car _%e102019102082%_))) - (_%lp-tl102021102089%_ + (##car _%e103167103230%_))) + (_%lp-tl103169103237%_ (let () (declare (not safe)) - (##cdr _%e102019102082%_)))) - (_%loop102018102072%_ - _%lp-tl102021102089%_ - (cons _%lp-hd102020102086%_ - _%getf102022102079%_)))) - (let ((_%getf102023102092%_ - (reverse _%getf102022102079%_))) - (if (gx#stx-null? _%tl102011102053%_) - ((lambda (_%L102096%_ _%L102098%_) - (let* ((_%g102119102143%_ - (lambda (_%g102120102139%_) + (##cdr _%e103167103230%_)))) + (_%loop103166103220%_ + _%lp-tl103169103237%_ + (cons _%lp-hd103168103234%_ + _%getf103170103227%_)))) + (let ((_%getf103171103240%_ + (reverse _%getf103170103227%_))) + (if (gx#stx-null? _%tl103159103201%_) + ((lambda (_%L103244%_ _%L103246%_) + (let* ((_%g103267103291%_ + (lambda (_%g103268103287%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g102120102139%_))) - (_%g102118102250%_ - (lambda (_%g102120102147%_) + _%g103268103287%_))) + (_%g103266103398%_ + (lambda (_%g103268103295%_) (if (gx#stx-pair? - _%g102120102147%_) - (let ((_%e102123102150%_ + _%g103268103295%_) + (let ((_%e103271103298%_ (gx#syntax-e - _%g102120102147%_))) - (let ((_%hd102124102154%_ + _%g103268103295%_))) + (let ((_%hd103272103302%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e102123102150%_))) - (_%tl102125102157%_ + (##car _%e103271103298%_))) + (_%tl103273103305%_ (let () (declare (not safe)) - (##cdr _%e102123102150%_)))) - (if (gx#stx-pair? _%tl102125102157%_) - (let ((_%e102126102160%_ - (gx#syntax-e _%tl102125102157%_))) - (let ((_%hd102127102164%_ + (##cdr _%e103271103298%_)))) + (if (gx#stx-pair? _%tl103273103305%_) + (let ((_%e103274103308%_ + (gx#syntax-e _%tl103273103305%_))) + (let ((_%hd103275103312%_ (let () (declare (not safe)) - (##car _%e102126102160%_))) - (_%tl102128102167%_ + (##car _%e103274103308%_))) + (_%tl103276103315%_ (let () (declare (not safe)) - (##cdr _%e102126102160%_)))) - (if (gx#stx-pair/null? _%hd102127102164%_) - (let ((_g103991_ + (##cdr _%e103274103308%_)))) + (if (gx#stx-pair/null? _%hd103275103312%_) + (let ((_g105139_ (gx#syntax-split-splice - _%hd102127102164%_ + _%hd103275103312%_ '0))) (begin - (let ((_g103992_ + (let ((_g105140_ (let () (declare (not safe)) - (if (##values? _g103991_) - (##vector-length _g103991_) + (if (##values? _g105139_) + (##values-length _g105139_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g103992_ 2))) + (##fx= _g105140_ 2))) (error "Context expects 2 values" - _g103992_))) - (let ((_%target102129102170%_ + _g105140_))) + (let ((_%target103277103318%_ (let () (declare (not safe)) - (##vector-ref _g103991_ 0))) - (_%tl102131102173%_ + (##values-ref _g105139_ 0))) + (_%tl103279103321%_ (let () (declare (not safe)) - (##vector-ref _g103991_ 1)))) - (if (gx#stx-null? _%tl102131102173%_) - (letrec ((_%loop102132102176%_ - (lambda (_%hd102130102180%_ - _%macro-getf102136102183%_) + (##values-ref _g105139_ 1)))) + (if (gx#stx-null? _%tl103279103321%_) + (letrec ((_%loop103280103324%_ + (lambda (_%hd103278103328%_ + _%macro-getf103284103331%_) (if (gx#stx-pair? - _%hd102130102180%_) - (let ((_%e102133102186%_ + _%hd103278103328%_) + (let ((_%e103281103334%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd102130102180%_))) - (let ((_%lp-hd102134102190%_ + _%hd103278103328%_))) + (let ((_%lp-hd103282103338%_ (let () (declare (not safe)) - (##car _%e102133102186%_))) - (_%lp-tl102135102193%_ + (##car _%e103281103334%_))) + (_%lp-tl103283103341%_ (let () (declare (not safe)) - (##cdr _%e102133102186%_)))) - (_%loop102132102176%_ - _%lp-tl102135102193%_ - (cons _%lp-hd102134102190%_ - _%macro-getf102136102183%_)))) - (let ((_%macro-getf102137102196%_ - (reverse _%macro-getf102136102183%_))) - (if (gx#stx-null? _%tl102128102167%_) - ((lambda (_%L102200%_ _%L102202%_) + (##cdr _%e103281103334%_)))) + (_%loop103280103324%_ + _%lp-tl103283103341%_ + (cons _%lp-hd103282103338%_ + _%macro-getf103284103331%_)))) + (let ((_%macro-getf103285103344%_ + (reverse _%macro-getf103284103331%_))) + (if (gx#stx-null? _%tl103276103315%_) + ((lambda (_%L103348%_ _%L103350%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'extern) - (cons _%L102202%_ - (let ((__tmp103993 - (lambda (_%g102227102230%_ + (cons _%L103350%_ + (let ((__tmp105141 + (lambda (_%g103375103378%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g102228102233%_) - (cons _%g102227102230%_ _%g102228102233%_)))) + _%g103376103381%_) + (cons _%g103375103378%_ _%g103376103381%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp103993 + __tmp105141 '() - _%L102200%_)))) + _%L103348%_)))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L102098%_ + (cons (cons _%L103246%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1185,7 +1185,7 @@ (cons (gx#datum->syntax '#f 'exn) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L102202%_ + (cons (cons _%L103350%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1193,7 +1193,7 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L102202%_ + (cons (cons _%L103350%_ (cons (gx#datum->syntax '#f 'exn) @@ -1203,23 +1203,23 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _%L102096%_ - _%L102200%_ - _%L102096%_ - _%L102200%_ - _%L102096%_) - (let ((__tmp103994 - (lambda (_%g102221102236%_ - _%g102222102239%_ - _%g102223102241%_ - _%g102224102243%_ - _%g102225102245%_ - _%g102226102247%_) + _%L103244%_ + _%L103348%_ + _%L103244%_ + _%L103348%_ + _%L103244%_) + (let ((__tmp105142 + (lambda (_%g103369103384%_ + _%g103370103387%_ + _%g103371103389%_ + _%g103372103391%_ + _%g103373103393%_ + _%g103374103395%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%g102221102236%_ + (cons (cons _%g103369103384%_ (cons (gx#datum->syntax '#f 'exn) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax @@ -1245,12 +1245,12 @@ '())) '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L102202%_ + (cons (cons _%L103350%_ (cons (gx#datum->syntax '#f 'e) '())) - (cons (cons _%g102222102239%_ + (cons (cons _%g103370103387%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1263,12 +1263,12 @@ 'error) (cons '"not an instance" (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L102098%_ '())) + (cons _%L103246%_ '())) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g102221102236%_ + (cons _%g103369103384%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (gx#datum->syntax '#f 'e) '()))) @@ -1278,10 +1278,10 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L102202%_ + (cons (cons _%L103350%_ (cons (gx#datum->syntax '#f 'exn) '())) - (cons (cons _%g102222102239%_ + (cons (cons _%g103370103387%_ (cons (gx#datum->syntax '#f 'exn) @@ -1294,10 +1294,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L102098%_ '())) + (cons _%L103246%_ '())) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g102221102236%_ '())) + (cons _%g103369103384%_ '())) (cons (gx#datum->syntax '#f 'exn) '()))) '())))) @@ -1306,148 +1306,148 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%g102226102247%_)))) + _%g103374103395%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr* - __tmp103994 + __tmp105142 '() - _%L102096%_ - _%L102200%_ - _%L102096%_ - _%L102200%_ - _%L102096%_))))))) - _%macro-getf102137102196%_ - _%hd102124102154%_) - (_%g102119102143%_ _%g102120102147%_))))))) + _%L103244%_ + _%L103348%_ + _%L103244%_ + _%L103348%_ + _%L103244%_))))))) + _%macro-getf103285103344%_ + _%hd103272103302%_) + (_%g103267103291%_ _%g103268103295%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop102132102176%_ - _%target102129102170%_ + (_%loop103280103324%_ + _%target103277103318%_ '())) - (_%g102119102143%_ - _%g102120102147%_))))) - (_%g102119102143%_ _%g102120102147%_)))) - (_%g102119102143%_ _%g102120102147%_)))) - (_%g102119102143%_ _%g102120102147%_))))) + (_%g103267103291%_ + _%g103268103295%_))))) + (_%g103267103291%_ _%g103268103295%_)))) + (_%g103267103291%_ _%g103268103295%_)))) + (_%g103267103291%_ _%g103268103295%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g102118102250%_ + (_%g103266103398%_ (list (gx#stx-identifier - _%L102098%_ + _%L103246%_ '"macro-" - _%L102098%_) - (map (lambda (_%f102254%_) + _%L103246%_) + (map (lambda (_%f103402%_) (gx#stx-identifier - _%f102254%_ + _%f103402%_ '"macro-" - _%f102254%_)) - (let ((__tmp103995 - (lambda (_%g102256102259%_ + _%f103402%_)) + (let ((__tmp105143 + (lambda (_%g103404103407%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g102257102262%_) - (cons _%g102256102259%_ _%g102257102262%_)))) + _%g103405103410%_) + (cons _%g103404103407%_ _%g103405103410%_)))) (declare (not safe)) - (__foldr1 __tmp103995 '() _%L102096%_))))))) + (__foldr1 __tmp105143 '() _%L103244%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%getf102023102092%_ - _%hd102013102060%_) - (_%g102002102029%_ - _%g102003102033%_))))))) - (_%loop102018102072%_ _%target102015102066%_ '())) - (_%g102002102029%_ _%g102003102033%_))))) + _%getf103171103240%_ + _%hd103161103208%_) + (_%g103150103177%_ + _%g103151103181%_))))))) + (_%loop103166103220%_ _%target103163103214%_ '())) + (_%g103150103177%_ _%g103151103181%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g102002102029%_ - _%g102003102033%_)))) - (_%g102002102029%_ _%g102003102033%_)))) - (_%g102002102029%_ _%g102003102033%_)))) - (_%g102002102029%_ _%g102003102033%_))))) - (_%g102001102265%_ _%stx101999%_)))) + (_%g103150103177%_ + _%g103151103181%_)))) + (_%g103150103177%_ _%g103151103181%_)))) + (_%g103150103177%_ _%g103151103181%_)))) + (_%g103150103177%_ _%g103151103181%_))))) + (_%g103149103413%_ _%stx103147%_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_%$stx102271%_) - (let* ((_%g102275102295%_ - (lambda (_%g102276102291%_) + (lambda (_%$stx103419%_) + (let* ((_%g103423103443%_ + (lambda (_%g103424103439%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g102276102291%_))) - (_%g102274102366%_ - (lambda (_%g102276102299%_) - (if (gx#stx-pair? _%g102276102299%_) - (let ((_%e102278102302%_ - (gx#syntax-e _%g102276102299%_))) - (let ((_%hd102279102306%_ + _%g103424103439%_))) + (_%g103422103514%_ + (lambda (_%g103424103447%_) + (if (gx#stx-pair? _%g103424103447%_) + (let ((_%e103426103450%_ + (gx#syntax-e _%g103424103447%_))) + (let ((_%hd103427103454%_ (let () (declare (not safe)) - (##car _%e102278102302%_))) - (_%tl102280102309%_ + (##car _%e103426103450%_))) + (_%tl103428103457%_ (let () (declare (not safe)) - (##cdr _%e102278102302%_)))) - (if (gx#stx-pair/null? _%tl102280102309%_) - (let ((_g103996_ + (##cdr _%e103426103450%_)))) + (if (gx#stx-pair/null? _%tl103428103457%_) + (let ((_g105144_ (gx#syntax-split-splice - _%tl102280102309%_ + _%tl103428103457%_ '0))) (begin - (let ((_g103997_ + (let ((_g105145_ (let () (declare (not safe)) - (if (##values? _g103996_) - (##vector-length _g103996_) + (if (##values? _g105144_) + (##values-length _g105144_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g103997_ 2))) + (##fx= _g105145_ 2))) (error "Context expects 2 values" - _g103997_))) - (let ((_%target102281102312%_ + _g105145_))) + (let ((_%target103429103460%_ (let () (declare (not safe)) - (##vector-ref _g103996_ 0))) - (_%tl102283102315%_ + (##values-ref _g105144_ 0))) + (_%tl103431103463%_ (let () (declare (not safe)) - (##vector-ref _g103996_ 1)))) - (if (gx#stx-null? _%tl102283102315%_) - (letrec ((_%loop102284102318%_ - (lambda (_%hd102282102322%_ - _%defexn102288102325%_) + (##values-ref _g105144_ 1)))) + (if (gx#stx-null? _%tl103431103463%_) + (letrec ((_%loop103432103466%_ + (lambda (_%hd103430103470%_ + _%defexn103436103473%_) (if (gx#stx-pair? - _%hd102282102322%_) - (let ((_%e102285102328%_ + _%hd103430103470%_) + (let ((_%e103433103476%_ (gx#syntax-e - _%hd102282102322%_))) - (let ((_%lp-hd102286102332%_ + _%hd103430103470%_))) + (let ((_%lp-hd103434103480%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%e102285102328%_))) - (_%lp-tl102287102335%_ + (##car _%e103433103476%_))) + (_%lp-tl103435103483%_ (let () (declare (not safe)) - (##cdr _%e102285102328%_)))) - (_%loop102284102318%_ - _%lp-tl102287102335%_ - (cons _%lp-hd102286102332%_ _%defexn102288102325%_)))) - (let ((_%defexn102289102338%_ - (reverse _%defexn102288102325%_))) - ((lambda (_%L102342%_) + (##cdr _%e103433103476%_)))) + (_%loop103432103466%_ + _%lp-tl103435103483%_ + (cons _%lp-hd103434103480%_ _%defexn103436103473%_)))) + (let ((_%defexn103437103486%_ + (reverse _%defexn103436103473%_))) + ((lambda (_%L103490%_) (cons (gx#datum->syntax '#f 'begin) - (let ((__tmp103998 - (lambda (_%g102357102360%_ _%g102358102363%_) + (let ((__tmp105146 + (lambda (_%g103505103508%_ _%g103506103511%_) (cons (cons (gx#datum->syntax '#f 'defruntime-exception) - (cons _%g102357102360%_ '())) - _%g102358102363%_)))) + (cons _%g103505103508%_ '())) + _%g103506103511%_)))) (declare (not safe)) - (__foldr1 __tmp103998 '() _%L102342%_)))) - _%defexn102289102338%_)))))) + (__foldr1 __tmp105146 '() _%L103490%_)))) + _%defexn103437103486%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop102284102318%_ - _%target102281102312%_ + (_%loop103432103466%_ + _%target103429103460%_ '())) - (_%g102275102295%_ - _%g102276102299%_))))) - (_%g102275102295%_ _%g102276102299%_)))) - (_%g102275102295%_ _%g102276102299%_))))) - (_%g102274102366%_ _%$stx102271%_)))))) + (_%g103423103443%_ + _%g103424103447%_))))) + (_%g103423103443%_ _%g103424103447%_)))) + (_%g103423103443%_ _%g103424103447%_))))) + (_%g103422103514%_ _%$stx103419%_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval~0.scm b/src/bootstrap/gerbil/runtime/eval~0.scm index cf7964f38..30f63780b 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 1713631265) + (define gerbil/runtime/eval::timestamp 1734357961) (begin (define __syntax::t - (let ((__tmp114844 (list)) (__tmp114843 (cons (cons 'struct: '#t) '()))) + (let ((__tmp116094 (list)) (__tmp116093 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__syntax::t '__syntax - __tmp114844 + __tmp116094 '(e id) - __tmp114843 + __tmp116093 '#f))) (define __syntax? (let () (declare (not safe)) (__make-class-predicate __syntax::t))) (define make-__syntax - (lambda _%$args114648%_ - (apply make-instance __syntax::t _%$args114648%_))) + (lambda _%$args115898%_ + (apply make-instance __syntax::t _%$args115898%_))) (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 ((__tmp114846 (list __syntax::t)) - (__tmp114845 (cons (cons 'struct: '#t) '()))) + (let ((__tmp116096 (list __syntax::t)) + (__tmp116095 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-form::t '__core-form - __tmp114846 + __tmp116096 '() - __tmp114845 + __tmp116095 '#f))) (define __core-form? (let () (declare (not safe)) (__make-class-predicate __core-form::t))) (define make-__core-form - (lambda _%$args114645%_ - (apply make-instance __core-form::t _%$args114645%_))) + (lambda _%$args115895%_ + (apply make-instance __core-form::t _%$args115895%_))) (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 ((__tmp114848 (list __core-form::t)) - (__tmp114847 (cons (cons 'struct: '#t) '()))) + (let ((__tmp116098 (list __core-form::t)) + (__tmp116097 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-expression::t '__core-expression - __tmp114848 + __tmp116098 '() - __tmp114847 + __tmp116097 '#f))) (define __core-expression? (let () (declare (not safe)) (__make-class-predicate __core-expression::t))) (define make-__core-expression - (lambda _%$args114642%_ - (apply make-instance __core-expression::t _%$args114642%_))) + (lambda _%$args115892%_ + (apply make-instance __core-expression::t _%$args115892%_))) (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 ((__tmp114850 (list __core-form::t)) - (__tmp114849 (cons (cons 'struct: '#t) '()))) + (let ((__tmp116100 (list __core-form::t)) + (__tmp116099 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-special-form::t '__core-special-form - __tmp114850 + __tmp116100 '() - __tmp114849 + __tmp116099 '#f))) (define __core-special-form? (let () (declare (not safe)) (__make-class-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _%$args114639%_ - (apply make-instance __core-special-form::t _%$args114639%_))) + (lambda _%$args115889%_ + (apply make-instance __core-special-form::t _%$args115889%_))) (define __core-special-form-e (let () (declare (not safe)) @@ -200,407 +200,407 @@ (define __current-compiler (make-parameter '#f)) (define __current-path (make-parameter '())) (define __core-resolve - (lambda (_%id114637%_) - (let ((__tmp114851 - (let () (declare (not safe)) (__AST-e _%id114637%_)))) + (lambda (_%id115887%_) + (let ((__tmp116101 + (let () (declare (not safe)) (__AST-e _%id115887%_)))) (declare (not safe)) - (__hash-get __core __tmp114851)))) + (__hash-get __core __tmp116101)))) (define __core-bound-id?__% - (lambda (_%id114620%_ _%is?114621%_) - (let ((_%$e114623%_ (__core-resolve _%id114620%_))) - (if _%$e114623%_ (_%is?114621%_ _%$e114623%_) '#f)))) + (lambda (_%id115870%_ _%is?115871%_) + (let ((_%$e115873%_ (__core-resolve _%id115870%_))) + (if _%$e115873%_ (_%is?115871%_ _%$e115873%_) '#f)))) (define __core-bound-id?__0 - (lambda (_%id114630%_) - (let ((_%is?114632%_ true)) - (__core-bound-id?__% _%id114630%_ _%is?114632%_)))) + (lambda (_%id115880%_) + (let ((_%is?115882%_ true)) + (__core-bound-id?__% _%id115880%_ _%is?115882%_)))) (define __core-bound-id? - (lambda _g114853_ - (let ((_g114852_ (let () (declare (not safe)) (##length _g114853_)))) - (cond ((let () (declare (not safe)) (##fx= _g114852_ 1)) - (apply __core-bound-id?__0 _g114853_)) - ((let () (declare (not safe)) (##fx= _g114852_ 2)) - (apply __core-bound-id?__% _g114853_)) + (lambda _g116103_ + (let ((_g116102_ (let () (declare (not safe)) (##length _g116103_)))) + (cond ((let () (declare (not safe)) (##fx= _g116102_ 1)) + (apply __core-bound-id?__0 _g116103_)) + ((let () (declare (not safe)) (##fx= _g116102_ 2)) + (apply __core-bound-id?__% _g116103_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g114853_)))))) + _g116103_)))))) (define __core-bind-syntax!__% - (lambda (_%id114603%_ _%e114604%_ _%make114605%_) - (let ((__tmp114854 + (lambda (_%id115853%_ _%e115854%_ _%make115855%_) + (let ((__tmp116104 (if (let () (declare (not safe)) (##structure-instance-of? - _%e114604%_ + _%e115854%_ 'gerbil/runtime/eval#__syntax::t)) - _%e114604%_ - (_%make114605%_ _%e114604%_ _%id114603%_)))) + _%e115854%_ + (_%make115855%_ _%e115854%_ _%id115853%_)))) (declare (not safe)) - (__hash-put! __core _%id114603%_ __tmp114854)))) + (__hash-put! __core _%id115853%_ __tmp116104)))) (define __core-bind-syntax!__0 - (lambda (_%id114610%_ _%e114611%_) - (let ((_%make114613%_ make-__syntax)) - (__core-bind-syntax!__% _%id114610%_ _%e114611%_ _%make114613%_)))) + (lambda (_%id115860%_ _%e115861%_) + (let ((_%make115863%_ make-__syntax)) + (__core-bind-syntax!__% _%id115860%_ _%e115861%_ _%make115863%_)))) (define __core-bind-syntax! - (lambda _g114856_ - (let ((_g114855_ (let () (declare (not safe)) (##length _g114856_)))) - (cond ((let () (declare (not safe)) (##fx= _g114855_ 2)) - (apply __core-bind-syntax!__0 _g114856_)) - ((let () (declare (not safe)) (##fx= _g114855_ 3)) - (apply __core-bind-syntax!__% _g114856_)) + (lambda _g116106_ + (let ((_g116105_ (let () (declare (not safe)) (##length _g116106_)))) + (cond ((let () (declare (not safe)) (##fx= _g116105_ 2)) + (apply __core-bind-syntax!__0 _g116106_)) + ((let () (declare (not safe)) (##fx= _g116105_ 3)) + (apply __core-bind-syntax!__% _g116106_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g114856_)))))) + _g116106_)))))) (define __SRC__% - (lambda (_%e114583%_ _%src-stx114584%_) - (if (or (pair? _%e114583%_) (symbol? _%e114583%_)) - (let ((__tmp114857 + (lambda (_%e115833%_ _%src-stx115834%_) + (if (or (pair? _%e115833%_) (symbol? _%e115833%_)) + (let ((__tmp116107 (if (let () (declare (not safe)) (##structure-instance-of? - _%src-stx114584%_ + _%src-stx115834%_ 'gerbil#AST::t)) (__locat (let () (declare (not safe)) - (__AST-source _%src-stx114584%_))) + (__AST-source _%src-stx115834%_))) '#f))) (declare (not safe)) - (##make-source _%e114583%_ __tmp114857)) + (##make-source _%e115833%_ __tmp116107)) (if (let () (declare (not safe)) - (##structure-instance-of? _%e114583%_ 'gerbil#AST::t)) - (let ((__tmp114859 + (##structure-instance-of? _%e115833%_ 'gerbil#AST::t)) + (let ((__tmp116109 (let () (declare (not safe)) - (##unchecked-structure-ref _%e114583%_ '1 '#f '#f))) - (__tmp114858 + (##unchecked-structure-ref _%e115833%_ '1 '#f '#f))) + (__tmp116108 (__locat (let () (declare (not safe)) - (__AST-source _%e114583%_))))) + (__AST-source _%e115833%_))))) (declare (not safe)) - (##make-source __tmp114859 __tmp114858)) + (##make-source __tmp116109 __tmp116108)) (let () (declare (not safe)) - (error '"BUG! Cannot sourcify object" _%e114583%_)))))) + (error '"BUG! Cannot sourcify object" _%e115833%_)))))) (define __SRC__0 - (lambda (_%e114595%_) - (let ((_%src-stx114597%_ '#f)) - (__SRC__% _%e114595%_ _%src-stx114597%_)))) + (lambda (_%e115845%_) + (let ((_%src-stx115847%_ '#f)) + (__SRC__% _%e115845%_ _%src-stx115847%_)))) (define __SRC - (lambda _g114861_ - (let ((_g114860_ (let () (declare (not safe)) (##length _g114861_)))) - (cond ((let () (declare (not safe)) (##fx= _g114860_ 1)) - (apply __SRC__0 _g114861_)) - ((let () (declare (not safe)) (##fx= _g114860_ 2)) - (apply __SRC__% _g114861_)) + (lambda _g116111_ + (let ((_g116110_ (let () (declare (not safe)) (##length _g116111_)))) + (cond ((let () (declare (not safe)) (##fx= _g116110_ 1)) + (apply __SRC__0 _g116111_)) + ((let () (declare (not safe)) (##fx= _g116110_ 2)) + (apply __SRC__% _g116111_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g114861_)))))) + _g116111_)))))) (define __locat - (lambda (_%loc114580%_) - (if (let () (declare (not safe)) (##locat? _%loc114580%_)) - _%loc114580%_ + (lambda (_%loc115830%_) + (if (let () (declare (not safe)) (##locat? _%loc115830%_)) + _%loc115830%_ '#f))) (define __check-values - (lambda (_%obj114575%_ _%k114576%_) - (let ((_%count114578%_ - (if (let () (declare (not safe)) (##values? _%obj114575%_)) + (lambda (_%obj115825%_ _%k115826%_) + (let ((_%count115828%_ + (if (let () (declare (not safe)) (##values? _%obj115825%_)) (let () (declare (not safe)) - (##vector-length _%obj114575%_)) + (##vector-length _%obj115825%_)) '1))) - (if (fx= _%count114578%_ _%k114576%_) + (if (fx= _%count115828%_ _%k115826%_) '#!void - (let ((__tmp114863 - (if (fx< _%count114578%_ _%k114576%_) + (let ((__tmp116113 + (if (fx< _%count115828%_ _%k115826%_) '"Too few values for context" '"Too many values for context")) - (__tmp114862 + (__tmp116112 (if (let () (declare (not safe)) - (##values? _%obj114575%_)) + (##values? _%obj115825%_)) (let () (declare (not safe)) - (##vector->list _%obj114575%_)) - _%obj114575%_))) + (##values->list _%obj115825%_)) + _%obj115825%_))) (declare (not safe)) - (error __tmp114863 __tmp114862 _%k114576%_)))))) + (error __tmp116113 __tmp116112 _%k115826%_)))))) (define __compile - (lambda (_%stx114544%_) - (let* ((_%$e114546%_ _%stx114544%_) - (_%$E114548114554%_ + (lambda (_%stx115794%_) + (let* ((_%$e115796%_ _%stx115794%_) + (_%$E115798115804%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114546%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114546%_)) - (let* ((_%$tgt114549114557%_ - (let () (declare (not safe)) (__AST-e _%$e114546%_))) - (_%$hd114550114560%_ + _%$e115796%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115796%_)) + (let* ((_%$tgt115799115807%_ + (let () (declare (not safe)) (__AST-e _%$e115796%_))) + (_%$hd115800115810%_ (let () (declare (not safe)) - (##car _%$tgt114549114557%_))) - (_%$tl114551114563%_ + (##car _%$tgt115799115807%_))) + (_%$tl115801115813%_ (let () (declare (not safe)) - (##cdr _%$tgt114549114557%_))) - (_%form114567%_ _%$hd114550114560%_) - (_%$e114569%_ (__core-resolve _%form114567%_))) - (if _%$e114569%_ - ((lambda (_%bind114572%_) - ((##structure-ref _%bind114572%_ '1 __syntax::t '#f) - _%stx114544%_)) - _%$e114569%_) + (##cdr _%$tgt115799115807%_))) + (_%form115817%_ _%$hd115800115810%_) + (_%$e115819%_ (__core-resolve _%form115817%_))) + (if _%$e115819%_ + ((lambda (_%bind115822%_) + ((##structure-ref _%bind115822%_ '1 __syntax::t '#f) + _%stx115794%_)) + _%$e115819%_) (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; cannot resolve form" - _%stx114544%_ - _%form114567%_)))) - (_%$E114548114554%_))))) + _%stx115794%_ + _%form115817%_)))) + (_%$E115798115804%_))))) (define __compile-error__% - (lambda (_%stx114531%_ _%detail114532%_) + (lambda (_%stx115781%_ _%detail115782%_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _%stx114531%_ - _%detail114532%_)))) + _%stx115781%_ + _%detail115782%_)))) (define __compile-error__0 - (lambda (_%stx114537%_) - (let ((_%detail114539%_ '#f)) - (__compile-error__% _%stx114537%_ _%detail114539%_)))) + (lambda (_%stx115787%_) + (let ((_%detail115789%_ '#f)) + (__compile-error__% _%stx115787%_ _%detail115789%_)))) (define __compile-error - (lambda _g114865_ - (let ((_g114864_ (let () (declare (not safe)) (##length _g114865_)))) - (cond ((let () (declare (not safe)) (##fx= _g114864_ 1)) - (apply __compile-error__0 _g114865_)) - ((let () (declare (not safe)) (##fx= _g114864_ 2)) - (apply __compile-error__% _g114865_)) + (lambda _g116115_ + (let ((_g116114_ (let () (declare (not safe)) (##length _g116115_)))) + (cond ((let () (declare (not safe)) (##fx= _g116114_ 1)) + (apply __compile-error__0 _g116115_)) + ((let () (declare (not safe)) (##fx= _g116114_ 2)) + (apply __compile-error__% _g116115_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g114865_)))))) + _g116115_)))))) (define __compile-ignore% - (lambda (_%stx114528%_) (__SRC__% ''#!void _%stx114528%_))) + (lambda (_%stx115778%_) (__SRC__% ''#!void _%stx115778%_))) (define __compile-begin% - (lambda (_%stx114503%_) - (let* ((_%$e114505%_ _%stx114503%_) - (_%$E114507114513%_ + (lambda (_%stx115753%_) + (let* ((_%$e115755%_ _%stx115753%_) + (_%$E115757115763%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114505%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114505%_)) - (let* ((_%$tgt114508114516%_ - (let () (declare (not safe)) (__AST-e _%$e114505%_))) - (_%$hd114509114519%_ + _%$e115755%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115755%_)) + (let* ((_%$tgt115758115766%_ + (let () (declare (not safe)) (__AST-e _%$e115755%_))) + (_%$hd115759115769%_ (let () (declare (not safe)) - (##car _%$tgt114508114516%_))) - (_%$tl114510114522%_ + (##car _%$tgt115758115766%_))) + (_%$tl115760115772%_ (let () (declare (not safe)) - (##cdr _%$tgt114508114516%_))) - (_%body114526%_ _%$tl114510114522%_)) + (##cdr _%$tgt115758115766%_))) + (_%body115776%_ _%$tl115760115772%_)) (__SRC__% - (cons 'begin (map __compile _%body114526%_)) - _%stx114503%_)) - (_%$E114507114513%_))))) + (cons 'begin (map __compile _%body115776%_)) + _%stx115753%_)) + (_%$E115757115763%_))))) (define __compile-begin-foreign% - (lambda (_%stx114478%_) - (let* ((_%$e114480%_ _%stx114478%_) - (_%$E114482114488%_ + (lambda (_%stx115728%_) + (let* ((_%$e115730%_ _%stx115728%_) + (_%$E115732115738%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114480%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114480%_)) - (let* ((_%$tgt114483114491%_ - (let () (declare (not safe)) (__AST-e _%$e114480%_))) - (_%$hd114484114494%_ + _%$e115730%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115730%_)) + (let* ((_%$tgt115733115741%_ + (let () (declare (not safe)) (__AST-e _%$e115730%_))) + (_%$hd115734115744%_ (let () (declare (not safe)) - (##car _%$tgt114483114491%_))) - (_%$tl114485114497%_ + (##car _%$tgt115733115741%_))) + (_%$tl115735115747%_ (let () (declare (not safe)) - (##cdr _%$tgt114483114491%_))) - (_%body114501%_ _%$tl114485114497%_)) + (##cdr _%$tgt115733115741%_))) + (_%body115751%_ _%$tl115735115747%_)) (__SRC__% (cons 'begin (let () (declare (not safe)) - (__AST->datum _%body114501%_))) - _%stx114478%_)) - (_%$E114482114488%_))))) + (__AST->datum _%body115751%_))) + _%stx115728%_)) + (_%$E115732115738%_))))) (define __compile-import% - (lambda (_%stx114453%_) - (let* ((_%$e114455%_ _%stx114453%_) - (_%$E114457114463%_ + (lambda (_%stx115703%_) + (let* ((_%$e115705%_ _%stx115703%_) + (_%$E115707115713%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114455%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114455%_)) - (let* ((_%$tgt114458114466%_ - (let () (declare (not safe)) (__AST-e _%$e114455%_))) - (_%$hd114459114469%_ + _%$e115705%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115705%_)) + (let* ((_%$tgt115708115716%_ + (let () (declare (not safe)) (__AST-e _%$e115705%_))) + (_%$hd115709115719%_ (let () (declare (not safe)) - (##car _%$tgt114458114466%_))) - (_%$tl114460114472%_ + (##car _%$tgt115708115716%_))) + (_%$tl115710115722%_ (let () (declare (not safe)) - (##cdr _%$tgt114458114466%_))) - (_%body114476%_ _%$tl114460114472%_)) + (##cdr _%$tgt115708115716%_))) + (_%body115726%_ _%$tl115710115722%_)) (__SRC__% (cons '__eval-import - (cons (cons 'quote (cons _%body114476%_ '())) '())) - _%stx114453%_)) - (_%$E114457114463%_))))) + (cons (cons 'quote (cons _%body115726%_ '())) '())) + _%stx115703%_)) + (_%$E115707115713%_))))) (define __compile-begin-annotation% - (lambda (_%stx114400%_) - (let* ((_%$e114402%_ _%stx114400%_) - (_%$E114404114416%_ + (lambda (_%stx115650%_) + (let* ((_%$e115652%_ _%stx115650%_) + (_%$E115654115666%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114402%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114402%_)) - (let* ((_%$tgt114405114419%_ - (let () (declare (not safe)) (__AST-e _%$e114402%_))) - (_%$hd114406114422%_ + _%$e115652%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115652%_)) + (let* ((_%$tgt115655115669%_ + (let () (declare (not safe)) (__AST-e _%$e115652%_))) + (_%$hd115656115672%_ (let () (declare (not safe)) - (##car _%$tgt114405114419%_))) - (_%$tl114407114425%_ + (##car _%$tgt115655115669%_))) + (_%$tl115657115675%_ (let () (declare (not safe)) - (##cdr _%$tgt114405114419%_)))) + (##cdr _%$tgt115655115669%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114407114425%_)) - (let* ((_%$tgt114408114429%_ + (__AST-pair? _%$tl115657115675%_)) + (let* ((_%$tgt115658115679%_ (let () (declare (not safe)) - (__AST-e _%$tl114407114425%_))) - (_%$hd114409114432%_ + (__AST-e _%$tl115657115675%_))) + (_%$hd115659115682%_ (let () (declare (not safe)) - (##car _%$tgt114408114429%_))) - (_%$tl114410114435%_ + (##car _%$tgt115658115679%_))) + (_%$tl115660115685%_ (let () (declare (not safe)) - (##cdr _%$tgt114408114429%_))) - (_%ann114439%_ _%$hd114409114432%_)) + (##cdr _%$tgt115658115679%_))) + (_%ann115689%_ _%$hd115659115682%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114410114435%_)) - (let* ((_%$tgt114411114441%_ + (__AST-pair? _%$tl115660115685%_)) + (let* ((_%$tgt115661115691%_ (let () (declare (not safe)) - (__AST-e _%$tl114410114435%_))) - (_%$hd114412114444%_ + (__AST-e _%$tl115660115685%_))) + (_%$hd115662115694%_ (let () (declare (not safe)) - (##car _%$tgt114411114441%_))) - (_%$tl114413114447%_ + (##car _%$tgt115661115691%_))) + (_%$tl115663115697%_ (let () (declare (not safe)) - (##cdr _%$tgt114411114441%_))) - (_%expr114451%_ _%$hd114412114444%_)) + (##cdr _%$tgt115661115691%_))) + (_%expr115701%_ _%$hd115662115694%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114413114447%_)) + (__AST-e _%$tl115663115697%_)) '()) - (__compile _%expr114451%_) - (_%$E114404114416%_))) - (_%$E114404114416%_))) - (_%$E114404114416%_))) - (_%$E114404114416%_))))) + (__compile _%expr115701%_) + (_%$E115654115666%_))) + (_%$E115654115666%_))) + (_%$E115654115666%_))) + (_%$E115654115666%_))))) (define __compile-define-values% - (lambda (_%stx114291%_) - (let* ((_%$e114293%_ _%stx114291%_) - (_%$E114295114307%_ + (lambda (_%stx115541%_) + (let* ((_%$e115543%_ _%stx115541%_) + (_%$E115545115557%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114293%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114293%_)) - (let* ((_%$tgt114296114310%_ - (let () (declare (not safe)) (__AST-e _%$e114293%_))) - (_%$hd114297114313%_ + _%$e115543%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115543%_)) + (let* ((_%$tgt115546115560%_ + (let () (declare (not safe)) (__AST-e _%$e115543%_))) + (_%$hd115547115563%_ (let () (declare (not safe)) - (##car _%$tgt114296114310%_))) - (_%$tl114298114316%_ + (##car _%$tgt115546115560%_))) + (_%$tl115548115566%_ (let () (declare (not safe)) - (##cdr _%$tgt114296114310%_)))) + (##cdr _%$tgt115546115560%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114298114316%_)) - (let* ((_%$tgt114299114320%_ + (__AST-pair? _%$tl115548115566%_)) + (let* ((_%$tgt115549115570%_ (let () (declare (not safe)) - (__AST-e _%$tl114298114316%_))) - (_%$hd114300114323%_ + (__AST-e _%$tl115548115566%_))) + (_%$hd115550115573%_ (let () (declare (not safe)) - (##car _%$tgt114299114320%_))) - (_%$tl114301114326%_ + (##car _%$tgt115549115570%_))) + (_%$tl115551115576%_ (let () (declare (not safe)) - (##cdr _%$tgt114299114320%_))) - (_%hd114330%_ _%$hd114300114323%_)) + (##cdr _%$tgt115549115570%_))) + (_%hd115580%_ _%$hd115550115573%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114301114326%_)) - (let* ((_%$tgt114302114332%_ + (__AST-pair? _%$tl115551115576%_)) + (let* ((_%$tgt115552115582%_ (let () (declare (not safe)) - (__AST-e _%$tl114301114326%_))) - (_%$hd114303114335%_ + (__AST-e _%$tl115551115576%_))) + (_%$hd115553115585%_ (let () (declare (not safe)) - (##car _%$tgt114302114332%_))) - (_%$tl114304114338%_ + (##car _%$tgt115552115582%_))) + (_%$tl115554115588%_ (let () (declare (not safe)) - (##cdr _%$tgt114302114332%_))) - (_%expr114342%_ _%$hd114303114335%_)) + (##cdr _%$tgt115552115582%_))) + (_%expr115592%_ _%$hd115553115585%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114304114338%_)) + (__AST-e _%$tl115554115588%_)) '()) - (let* ((_%$e114344%_ _%hd114330%_) - (_%$E114346114387%_ + (let* ((_%$e115594%_ _%hd115580%_) + (_%$E115596115637%_ (lambda () - (let ((_%$E114347114372%_ + (let ((_%$E115597115622%_ (lambda () - (let* ((_%$E114348114359%_ + (let* ((_%$E115598115609%_ (lambda () (let () (declare @@ -609,10 +609,10 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114344%_)))) - (_%ids114362%_ _%hd114330%_) - (_%len114364%_ (length _%ids114362%_)) - (_%tmp114366%_ + _%$e115594%_)))) + (_%ids115612%_ _%hd115580%_) + (_%len115614%_ (length _%ids115612%_)) + (_%tmp115616%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (__SRC__% @@ -620,1579 +620,1579 @@ (cons (__SRC__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'define - (cons _%tmp114366%_ - (cons (__compile _%expr114342%_) '()))) - _%stx114291%_) + (cons _%tmp115616%_ + (cons (__compile _%expr115592%_) '()))) + _%stx115541%_) (cons (__SRC__% (cons '__check-values - (cons _%tmp114366%_ - (cons _%len114364%_ '()))) - _%stx114291%_) - (let ((__tmp114866 - (let ((__tmp114868 - (lambda (_%id114369%_ - _%k114370%_) + (cons _%tmp115616%_ + (cons _%len115614%_ '()))) + _%stx115541%_) + (let ((__tmp116116 + (let ((__tmp116118 + (lambda (_%id115619%_ + _%k115620%_) (if (let () (declare (not safe)) - (__AST-e _%id114369%_)) + (__AST-e _%id115619%_)) (__SRC__% (cons 'define (cons (__SRC__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id114369%_) - (cons (cons '##vector-ref - (cons _%tmp114366%_ - (cons _%k114370%_ '()))) + _%id115619%_) + (cons (cons '##values-ref + (cons _%tmp115616%_ + (cons _%k115620%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx114291%_) + _%stx115541%_) '#f))) - (__tmp114867 + (__tmp116117 (let () (declare (not safe)) - (##iota _%len114364%_)))) + (##iota _%len115614%_)))) (declare (not safe)) (__filter-map2 - __tmp114868 - _%ids114362%_ - __tmp114867)))) + __tmp116118 + _%ids115612%_ + __tmp116117)))) (declare (not safe)) - (__foldr1 cons '() __tmp114866))))) - _%stx114291%_))))) + (__foldr1 cons '() __tmp116116))))) + _%stx115541%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _%$e114344%_)) - (let* ((_%$tgt114349114375%_ + (__AST-pair? _%$e115594%_)) + (let* ((_%$tgt115599115625%_ (let () (declare (not safe)) - (__AST-e _%$e114344%_))) - (_%$hd114350114378%_ + (__AST-e _%$e115594%_))) + (_%$hd115600115628%_ (let () (declare (not safe)) - (##car _%$tgt114349114375%_))) - (_%$tl114351114381%_ + (##car _%$tgt115599115625%_))) + (_%$tl115601115631%_ (let () (declare (not safe)) - (##cdr _%$tgt114349114375%_))) - (_%id114385%_ - _%$hd114350114378%_)) + (##cdr _%$tgt115599115625%_))) + (_%id115635%_ + _%$hd115600115628%_)) (if (equal? (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__AST-e _%$tl114351114381%_)) + (__AST-e _%$tl115601115631%_)) '()) (__SRC__% (cons 'define - (cons (__SRC__0 _%id114385%_) - (cons (__compile _%expr114342%_) '()))) - _%stx114291%_) - (_%$E114347114372%_))) + (cons (__SRC__0 _%id115635%_) + (cons (__compile _%expr115592%_) '()))) + _%stx115541%_) + (_%$E115597115622%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$E114347114372%_)))))) + (_%$E115597115622%_)))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114344%_)) - (let* ((_%$tgt114352114390%_ + (__AST-pair? _%$e115594%_)) + (let* ((_%$tgt115602115640%_ (let () (declare (not safe)) - (__AST-e _%$e114344%_))) - (_%$hd114353114393%_ + (__AST-e _%$e115594%_))) + (_%$hd115603115643%_ (let () (declare (not safe)) - (##car _%$tgt114352114390%_))) - (_%$tl114354114396%_ + (##car _%$tgt115602115640%_))) + (_%$tl115604115646%_ (let () (declare (not safe)) - (##cdr _%$tgt114352114390%_)))) + (##cdr _%$tgt115602115640%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$hd114353114393%_)) + (__AST-e _%$hd115603115643%_)) '#f) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114354114396%_)) + (__AST-e _%$tl115604115646%_)) '()) - (__compile _%expr114342%_) - (_%$E114346114387%_)) - (_%$E114346114387%_))) - (_%$E114346114387%_))) - (_%$E114295114307%_))) - (_%$E114295114307%_))) - (_%$E114295114307%_))) - (_%$E114295114307%_))))) + (__compile _%expr115592%_) + (_%$E115596115637%_)) + (_%$E115596115637%_))) + (_%$E115596115637%_))) + (_%$E115545115557%_))) + (_%$E115545115557%_))) + (_%$E115545115557%_))) + (_%$E115545115557%_))))) (define __compile-head-id - (lambda (_%e114289%_) + (lambda (_%e115539%_) (__SRC__0 - (if (let () (declare (not safe)) (__AST-e _%e114289%_)) - _%e114289%_ + (if (let () (declare (not safe)) (__AST-e _%e115539%_)) + _%e115539%_ (let () (declare (not safe)) (##gensym)))))) (define __compile-lambda-head - (lambda (_%hd114246%_) - (let _%recur114248%_ ((_%rest114250%_ _%hd114246%_)) - (let* ((_%$e114252%_ _%rest114250%_) - (_%$E114254114272%_ + (lambda (_%hd115496%_) + (let _%recur115498%_ ((_%rest115500%_ _%hd115496%_)) + (let* ((_%$e115502%_ _%rest115500%_) + (_%$E115504115522%_ (lambda () - (let ((_%$E114255114269%_ + (let ((_%$E115505115519%_ (lambda () - (let* ((_%$E114256114264%_ + (let* ((_%$E115506115514%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114252%_)))) - (_%tail114267%_ _%$e114252%_)) - (__compile-head-id _%tail114267%_))))) + _%$e115502%_)))) + (_%tail115517%_ _%$e115502%_)) + (__compile-head-id _%tail115517%_))))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$e114252%_)) + (__AST-e _%$e115502%_)) '()) '() - (_%$E114255114269%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114252%_)) - (let* ((_%$tgt114257114275%_ - (let () (declare (not safe)) (__AST-e _%$e114252%_))) - (_%$hd114258114278%_ + (_%$E115505115519%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115502%_)) + (let* ((_%$tgt115507115525%_ + (let () (declare (not safe)) (__AST-e _%$e115502%_))) + (_%$hd115508115528%_ (let () (declare (not safe)) - (##car _%$tgt114257114275%_))) - (_%$tl114259114281%_ + (##car _%$tgt115507115525%_))) + (_%$tl115509115531%_ (let () (declare (not safe)) - (##cdr _%$tgt114257114275%_))) - (_%hd114285%_ _%$hd114258114278%_) - (_%rest114287%_ _%$tl114259114281%_)) - (cons (__compile-head-id _%hd114285%_) - (_%recur114248%_ _%rest114287%_))) - (_%$E114254114272%_)))))) + (##cdr _%$tgt115507115525%_))) + (_%hd115535%_ _%$hd115508115528%_) + (_%rest115537%_ _%$tl115509115531%_)) + (cons (__compile-head-id _%hd115535%_) + (_%recur115498%_ _%rest115537%_))) + (_%$E115504115522%_)))))) (define __compile-lambda% - (lambda (_%stx114193%_) - (let* ((_%$e114195%_ _%stx114193%_) - (_%$E114197114209%_ + (lambda (_%stx115443%_) + (let* ((_%$e115445%_ _%stx115443%_) + (_%$E115447115459%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114195%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114195%_)) - (let* ((_%$tgt114198114212%_ - (let () (declare (not safe)) (__AST-e _%$e114195%_))) - (_%$hd114199114215%_ + _%$e115445%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115445%_)) + (let* ((_%$tgt115448115462%_ + (let () (declare (not safe)) (__AST-e _%$e115445%_))) + (_%$hd115449115465%_ (let () (declare (not safe)) - (##car _%$tgt114198114212%_))) - (_%$tl114200114218%_ + (##car _%$tgt115448115462%_))) + (_%$tl115450115468%_ (let () (declare (not safe)) - (##cdr _%$tgt114198114212%_)))) + (##cdr _%$tgt115448115462%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114200114218%_)) - (let* ((_%$tgt114201114222%_ + (__AST-pair? _%$tl115450115468%_)) + (let* ((_%$tgt115451115472%_ (let () (declare (not safe)) - (__AST-e _%$tl114200114218%_))) - (_%$hd114202114225%_ + (__AST-e _%$tl115450115468%_))) + (_%$hd115452115475%_ (let () (declare (not safe)) - (##car _%$tgt114201114222%_))) - (_%$tl114203114228%_ + (##car _%$tgt115451115472%_))) + (_%$tl115453115478%_ (let () (declare (not safe)) - (##cdr _%$tgt114201114222%_))) - (_%hd114232%_ _%$hd114202114225%_)) + (##cdr _%$tgt115451115472%_))) + (_%hd115482%_ _%$hd115452115475%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114203114228%_)) - (let* ((_%$tgt114204114234%_ + (__AST-pair? _%$tl115453115478%_)) + (let* ((_%$tgt115454115484%_ (let () (declare (not safe)) - (__AST-e _%$tl114203114228%_))) - (_%$hd114205114237%_ + (__AST-e _%$tl115453115478%_))) + (_%$hd115455115487%_ (let () (declare (not safe)) - (##car _%$tgt114204114234%_))) - (_%$tl114206114240%_ + (##car _%$tgt115454115484%_))) + (_%$tl115456115490%_ (let () (declare (not safe)) - (##cdr _%$tgt114204114234%_))) - (_%body114244%_ _%$hd114205114237%_)) + (##cdr _%$tgt115454115484%_))) + (_%body115494%_ _%$hd115455115487%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114206114240%_)) + (__AST-e _%$tl115456115490%_)) '()) (__SRC__% (cons 'lambda (cons (__compile-lambda-head - _%hd114232%_) - (cons (__compile _%body114244%_) + _%hd115482%_) + (cons (__compile _%body115494%_) '()))) - _%stx114193%_) - (_%$E114197114209%_))) - (_%$E114197114209%_))) - (_%$E114197114209%_))) - (_%$E114197114209%_))))) + _%stx115443%_) + (_%$E115447115459%_))) + (_%$E115447115459%_))) + (_%$E115447115459%_))) + (_%$E115447115459%_))))) (define __compile-case-lambda% - (lambda (_%stx113985%_) - (letrec ((_%variadic?113987%_ - (lambda (_%hd114158%_) - (let* ((_%$e114160%_ _%hd114158%_) - (_%$E114162114178%_ + (lambda (_%stx115235%_) + (letrec ((_%variadic?115237%_ + (lambda (_%hd115408%_) + (let* ((_%$e115410%_ _%hd115408%_) + (_%$E115412115428%_ (lambda () - (let ((_%$E114163114175%_ + (let ((_%$E115413115425%_ (lambda () - (let ((_%$E114164114172%_ + (let ((_%$E115414115422%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114160%_))))) + _%$e115410%_))))) '#t)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$e114160%_)) + (__AST-e _%$e115410%_)) '()) '#f - (_%$E114163114175%_)))))) + (_%$E115413115425%_)))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114160%_)) - (let* ((_%$tgt114165114181%_ + (__AST-pair? _%$e115410%_)) + (let* ((_%$tgt115415115431%_ (let () (declare (not safe)) - (__AST-e _%$e114160%_))) - (_%$hd114166114184%_ + (__AST-e _%$e115410%_))) + (_%$hd115416115434%_ (let () (declare (not safe)) - (##car _%$tgt114165114181%_))) - (_%$tl114167114187%_ + (##car _%$tgt115415115431%_))) + (_%$tl115417115437%_ (let () (declare (not safe)) - (##cdr _%$tgt114165114181%_))) - (_%rest114191%_ _%$tl114167114187%_)) - (_%variadic?113987%_ _%rest114191%_)) - (_%$E114162114178%_))))) - (_%arity113988%_ - (lambda (_%hd114123%_) - (let _%lp114125%_ ((_%rest114127%_ _%hd114123%_) - (_%k114128%_ '0)) - (let* ((_%$e114130%_ _%rest114127%_) - (_%$E114132114143%_ + (##cdr _%$tgt115415115431%_))) + (_%rest115441%_ _%$tl115417115437%_)) + (_%variadic?115237%_ _%rest115441%_)) + (_%$E115412115428%_))))) + (_%arity115238%_ + (lambda (_%hd115373%_) + (let _%lp115375%_ ((_%rest115377%_ _%hd115373%_) + (_%k115378%_ '0)) + (let* ((_%$e115380%_ _%rest115377%_) + (_%$E115382115393%_ (lambda () - (let ((_%$E114133114140%_ + (let ((_%$E115383115390%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114130%_))))) - _%k114128%_)))) + _%$e115380%_))))) + _%k115378%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114130%_)) - (let* ((_%$tgt114134114146%_ + (__AST-pair? _%$e115380%_)) + (let* ((_%$tgt115384115396%_ (let () (declare (not safe)) - (__AST-e _%$e114130%_))) - (_%$hd114135114149%_ + (__AST-e _%$e115380%_))) + (_%$hd115385115399%_ (let () (declare (not safe)) - (##car _%$tgt114134114146%_))) - (_%$tl114136114152%_ + (##car _%$tgt115384115396%_))) + (_%$tl115386115402%_ (let () (declare (not safe)) - (##cdr _%$tgt114134114146%_))) - (_%rest114156%_ _%$tl114136114152%_)) - (_%lp114125%_ - _%rest114156%_ + (##cdr _%$tgt115384115396%_))) + (_%rest115406%_ _%$tl115386115402%_)) + (_%lp115375%_ + _%rest115406%_ (let () (declare (not safe)) - (##fx+ _%k114128%_ '1)))) - (_%$E114132114143%_)))))) - (_%generate113989%_ - (lambda (_%rest114050%_ _%args114051%_ _%len114052%_) - (let* ((_%$e114054%_ _%rest114050%_) - (_%$E114056114067%_ + (##fx+ _%k115378%_ '1)))) + (_%$E115382115393%_)))))) + (_%generate115239%_ + (lambda (_%rest115300%_ _%args115301%_ _%len115302%_) + (let* ((_%$e115304%_ _%rest115300%_) + (_%$E115306115317%_ (lambda () - (let ((_%$E114057114064%_ + (let ((_%$E115307115314%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114054%_))))) + _%$e115304%_))))) (__SRC__% (cons 'error (cons '"No clause matching arguments" - (cons _%args114051%_ '()))) - _%stx113985%_))))) + (cons _%args115301%_ '()))) + _%stx115235%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114054%_)) - (let* ((_%$tgt114058114070%_ + (__AST-pair? _%$e115304%_)) + (let* ((_%$tgt115308115320%_ (let () (declare (not safe)) - (__AST-e _%$e114054%_))) - (_%$hd114059114073%_ + (__AST-e _%$e115304%_))) + (_%$hd115309115323%_ (let () (declare (not safe)) - (##car _%$tgt114058114070%_))) - (_%$tl114060114076%_ + (##car _%$tgt115308115320%_))) + (_%$tl115310115326%_ (let () (declare (not safe)) - (##cdr _%$tgt114058114070%_))) - (_%clause114080%_ _%$hd114059114073%_) - (_%rest114082%_ _%$tl114060114076%_) - (_%$e114084%_ _%clause114080%_) - (_%$E114086114095%_ + (##cdr _%$tgt115308115320%_))) + (_%clause115330%_ _%$hd115309115323%_) + (_%rest115332%_ _%$tl115310115326%_) + (_%$e115334%_ _%clause115330%_) + (_%$E115336115345%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114084%_))))) + _%$e115334%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114084%_)) - (let* ((_%$tgt114087114098%_ + (__AST-pair? _%$e115334%_)) + (let* ((_%$tgt115337115348%_ (let () (declare (not safe)) - (__AST-e _%$e114084%_))) - (_%$hd114088114101%_ + (__AST-e _%$e115334%_))) + (_%$hd115338115351%_ (let () (declare (not safe)) - (##car _%$tgt114087114098%_))) - (_%$tl114089114104%_ + (##car _%$tgt115337115348%_))) + (_%$tl115339115354%_ (let () (declare (not safe)) - (##cdr _%$tgt114087114098%_))) - (_%hd114108%_ _%$hd114088114101%_)) + (##cdr _%$tgt115337115348%_))) + (_%hd115358%_ _%$hd115338115351%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114089114104%_)) - (let* ((_%$tgt114090114110%_ + (__AST-pair? _%$tl115339115354%_)) + (let* ((_%$tgt115340115360%_ (let () (declare (not safe)) - (__AST-e _%$tl114089114104%_))) - (_%$hd114091114113%_ + (__AST-e _%$tl115339115354%_))) + (_%$hd115341115363%_ (let () (declare (not safe)) - (##car _%$tgt114090114110%_))) - (_%$tl114092114116%_ + (##car _%$tgt115340115360%_))) + (_%$tl115342115366%_ (let () (declare (not safe)) - (##cdr _%$tgt114090114110%_)))) + (##cdr _%$tgt115340115360%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114092114116%_)) + (__AST-e _%$tl115342115366%_)) '()) - (let ((_%clen114120%_ - (_%arity113988%_ - _%hd114108%_)) - (_%cmp114121%_ - (if (_%variadic?113987%_ - _%hd114108%_) + (let ((_%clen115370%_ + (_%arity115238%_ + _%hd115358%_)) + (_%cmp115371%_ + (if (_%variadic?115237%_ + _%hd115358%_) 'fx>= 'fx=))) (__SRC__% (cons 'if - (cons (cons _%cmp114121%_ + (cons (cons _%cmp115371%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%len114052%_ (cons _%clen114120%_ '()))) + (cons _%len115302%_ (cons _%clen115370%_ '()))) (cons (__SRC__% (cons '##apply (cons (__compile-lambda% - (cons '%#lambda _%clause114080%_)) - (cons _%args114051%_ '()))) - _%stx113985%_) - (cons (_%generate113989%_ - _%rest114082%_ - _%args114051%_ - _%len114052%_) + (cons '%#lambda _%clause115330%_)) + (cons _%args115301%_ '()))) + _%stx115235%_) + (cons (_%generate115239%_ + _%rest115332%_ + _%args115301%_ + _%len115302%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx113985%_)) - (_%$E114086114095%_))) - (_%$E114086114095%_))) - (_%$E114086114095%_))) - (_%$E114056114067%_)))))) - (let* ((_%$e113991%_ _%stx113985%_) - (_%$E113993114025%_ + _%stx115235%_)) + (_%$E115336115345%_))) + (_%$E115336115345%_))) + (_%$E115336115345%_))) + (_%$E115306115317%_)))))) + (let* ((_%$e115241%_ _%stx115235%_) + (_%$E115243115275%_ (lambda () - (let ((_%$E113994114007%_ + (let ((_%$E115244115257%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113991%_))))) + _%$e115241%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e113991%_)) - (let* ((_%$tgt113995114010%_ + (__AST-pair? _%$e115241%_)) + (let* ((_%$tgt115245115260%_ (let () (declare (not safe)) - (__AST-e _%$e113991%_))) - (_%$hd113996114013%_ + (__AST-e _%$e115241%_))) + (_%$hd115246115263%_ (let () (declare (not safe)) - (##car _%$tgt113995114010%_))) - (_%$tl113997114016%_ + (##car _%$tgt115245115260%_))) + (_%$tl115247115266%_ (let () (declare (not safe)) - (##cdr _%$tgt113995114010%_))) - (_%clauses114020%_ _%$tl113997114016%_)) - (let ((_%args114022%_ + (##cdr _%$tgt115245115260%_))) + (_%clauses115270%_ _%$tl115247115266%_)) + (let ((_%args115272%_ (__SRC__% (let () (declare (not safe)) (##gensym)) - _%stx113985%_)) - (_%len114023%_ + _%stx115235%_)) + (_%len115273%_ (__SRC__% (let () (declare (not safe)) (##gensym)) - _%stx113985%_))) + _%stx115235%_))) (__SRC__% (cons 'lambda - (cons _%args114022%_ + (cons _%args115272%_ (cons (__SRC__% (cons 'let - (cons (cons (cons _%len114023%_ + (cons (cons (cons _%len115273%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (__SRC__% (cons '##length - (cons _%args114022%_ '())) - _%stx113985%_) + (cons _%args115272%_ '())) + _%stx115235%_) '())) '()) - (cons (_%generate113989%_ - _%clauses114020%_ - _%args114022%_ - _%len114023%_) + (cons (_%generate115239%_ + _%clauses115270%_ + _%args115272%_ + _%len115273%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx113985%_) + _%stx115235%_) '()))) - _%stx113985%_))) - (_%$E113994114007%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113991%_)) - (let* ((_%$tgt113998114028%_ - (let () (declare (not safe)) (__AST-e _%$e113991%_))) - (_%$hd113999114031%_ + _%stx115235%_))) + (_%$E115244115257%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115241%_)) + (let* ((_%$tgt115248115278%_ + (let () (declare (not safe)) (__AST-e _%$e115241%_))) + (_%$hd115249115281%_ (let () (declare (not safe)) - (##car _%$tgt113998114028%_))) - (_%$tl114000114034%_ + (##car _%$tgt115248115278%_))) + (_%$tl115250115284%_ (let () (declare (not safe)) - (##cdr _%$tgt113998114028%_)))) + (##cdr _%$tgt115248115278%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114000114034%_)) - (let* ((_%$tgt114001114038%_ + (__AST-pair? _%$tl115250115284%_)) + (let* ((_%$tgt115251115288%_ (let () (declare (not safe)) - (__AST-e _%$tl114000114034%_))) - (_%$hd114002114041%_ + (__AST-e _%$tl115250115284%_))) + (_%$hd115252115291%_ (let () (declare (not safe)) - (##car _%$tgt114001114038%_))) - (_%$tl114003114044%_ + (##car _%$tgt115251115288%_))) + (_%$tl115253115294%_ (let () (declare (not safe)) - (##cdr _%$tgt114001114038%_))) - (_%clause114048%_ _%$hd114002114041%_)) + (##cdr _%$tgt115251115288%_))) + (_%clause115298%_ _%$hd115252115291%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114003114044%_)) + (__AST-e _%$tl115253115294%_)) '()) (__compile-lambda% - (cons '%#lambda _%clause114048%_)) - (_%$E113993114025%_))) - (_%$E113993114025%_))) - (_%$E113993114025%_)))))) + (cons '%#lambda _%clause115298%_)) + (_%$E115243115275%_))) + (_%$E115243115275%_))) + (_%$E115243115275%_)))))) (define __compile-let-form - (lambda (_%stx113754%_ _%compile-simple113755%_ _%compile-values113756%_) - (letrec ((_%simple-bind?113758%_ - (lambda (_%hd113943%_) - (let* ((_%hd113944113954%_ _%hd113943%_) - (_%else113947113962%_ (lambda () '#f))) - (let ((_%K113950113975%_ (lambda (_%id113973%_) '#t)) - (_%K113949113967%_ (lambda () '#t))) - (let ((_%try-match113946113970%_ + (lambda (_%stx115004%_ _%compile-simple115005%_ _%compile-values115006%_) + (letrec ((_%simple-bind?115008%_ + (lambda (_%hd115193%_) + (let* ((_%hd115194115204%_ _%hd115193%_) + (_%else115197115212%_ (lambda () '#f))) + (let ((_%K115200115225%_ (lambda (_%id115223%_) '#t)) + (_%K115199115217%_ (lambda () '#t))) + (let ((_%try-match115196115220%_ (lambda () (if (let () (declare (not safe)) - (##eq? _%hd113944113954%_ '#f)) - (_%K113949113967%_) - (_%else113947113962%_))))) - (if (pair? _%hd113944113954%_) - (let ((_%tl113952113980%_ + (##eq? _%hd115194115204%_ '#f)) + (_%K115199115217%_) + (_%else115197115212%_))))) + (if (pair? _%hd115194115204%_) + (let ((_%tl115202115230%_ (let () (declare (not safe)) - (##cdr _%hd113944113954%_))) - (_%hd113951113978%_ + (##cdr _%hd115194115204%_))) + (_%hd115201115228%_ (let () (declare (not safe)) - (##car _%hd113944113954%_)))) - (if (null? _%tl113952113980%_) - (let ((_%id113983%_ _%hd113951113978%_)) - (_%K113950113975%_ _%id113983%_)) - (_%try-match113946113970%_))) - (_%try-match113946113970%_))))))) - (_%car-e113759%_ - (lambda (_%hd113941%_) - (if (pair? _%hd113941%_) - (let () (declare (not safe)) (##car _%hd113941%_)) - _%hd113941%_)))) - (let* ((_%$e113761%_ _%stx113754%_) - (_%$E113763113906%_ + (##car _%hd115194115204%_)))) + (if (null? _%tl115202115230%_) + (let ((_%id115233%_ _%hd115201115228%_)) + (_%K115200115225%_ _%id115233%_)) + (_%try-match115196115220%_))) + (_%try-match115196115220%_))))))) + (_%car-e115009%_ + (lambda (_%hd115191%_) + (if (pair? _%hd115191%_) + (let () (declare (not safe)) (##car _%hd115191%_)) + _%hd115191%_)))) + (let* ((_%$e115011%_ _%stx115004%_) + (_%$E115013115156%_ (lambda () - (let ((_%$E113764113786%_ + (let ((_%$E115014115036%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113761%_))))) + _%$e115011%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e113761%_)) - (let* ((_%$tgt113765113789%_ + (__AST-pair? _%$e115011%_)) + (let* ((_%$tgt115015115039%_ (let () (declare (not safe)) - (__AST-e _%$e113761%_))) - (_%$hd113766113792%_ + (__AST-e _%$e115011%_))) + (_%$hd115016115042%_ (let () (declare (not safe)) - (##car _%$tgt113765113789%_))) - (_%$tl113767113795%_ + (##car _%$tgt115015115039%_))) + (_%$tl115017115045%_ (let () (declare (not safe)) - (##cdr _%$tgt113765113789%_)))) + (##cdr _%$tgt115015115039%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113767113795%_)) - (let* ((_%$tgt113768113799%_ + (__AST-pair? _%$tl115017115045%_)) + (let* ((_%$tgt115018115049%_ (let () (declare (not safe)) - (__AST-e _%$tl113767113795%_))) - (_%$hd113769113802%_ + (__AST-e _%$tl115017115045%_))) + (_%$hd115019115052%_ (let () (declare (not safe)) - (##car _%$tgt113768113799%_))) - (_%$tl113770113805%_ + (##car _%$tgt115018115049%_))) + (_%$tl115020115055%_ (let () (declare (not safe)) - (##cdr _%$tgt113768113799%_))) - (_%hd113809%_ _%$hd113769113802%_)) + (##cdr _%$tgt115018115049%_))) + (_%hd115059%_ _%$hd115019115052%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113770113805%_)) - (let* ((_%$tgt113771113811%_ + (__AST-pair? _%$tl115020115055%_)) + (let* ((_%$tgt115021115061%_ (let () (declare (not safe)) - (__AST-e _%$tl113770113805%_))) - (_%$hd113772113814%_ + (__AST-e _%$tl115020115055%_))) + (_%$hd115022115064%_ (let () (declare (not safe)) - (##car _%$tgt113771113811%_))) - (_%$tl113773113817%_ + (##car _%$tgt115021115061%_))) + (_%$tl115023115067%_ (let () (declare (not safe)) - (##cdr _%$tgt113771113811%_))) - (_%body113821%_ - _%$hd113772113814%_)) + (##cdr _%$tgt115021115061%_))) + (_%body115071%_ + _%$hd115022115064%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113773113817%_)) + (__AST-e _%$tl115023115067%_)) '()) - (let* ((_%hd-ids113861%_ - (map (lambda (_%bind113823%_) - (let* ((_%$e113825%_ + (let* ((_%hd-ids115111%_ + (map (lambda (_%bind115073%_) + (let* ((_%$e115075%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind113823%_) - (_%$E113827113836%_ + _%bind115073%_) + (_%$E115077115086%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113825%_))))) + _%$e115075%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e113825%_)) - (let* ((_%$tgt113828113839%_ + (__AST-pair? _%$e115075%_)) + (let* ((_%$tgt115078115089%_ (let () (declare (not safe)) - (__AST-e _%$e113825%_))) - (_%$hd113829113842%_ + (__AST-e _%$e115075%_))) + (_%$hd115079115092%_ (let () (declare (not safe)) - (##car _%$tgt113828113839%_))) - (_%$tl113830113845%_ + (##car _%$tgt115078115089%_))) + (_%$tl115080115095%_ (let () (declare (not safe)) - (##cdr _%$tgt113828113839%_))) - (_%ids113849%_ _%$hd113829113842%_)) + (##cdr _%$tgt115078115089%_))) + (_%ids115099%_ _%$hd115079115092%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113830113845%_)) - (let* ((_%$tgt113831113851%_ + (__AST-pair? _%$tl115080115095%_)) + (let* ((_%$tgt115081115101%_ (let () (declare (not safe)) - (__AST-e _%$tl113830113845%_))) - (_%$hd113832113854%_ + (__AST-e _%$tl115080115095%_))) + (_%$hd115082115104%_ (let () (declare (not safe)) - (##car _%$tgt113831113851%_))) - (_%$tl113833113857%_ + (##car _%$tgt115081115101%_))) + (_%$tl115083115107%_ (let () (declare (not safe)) - (##cdr _%$tgt113831113851%_)))) + (##cdr _%$tgt115081115101%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113833113857%_)) + (__AST-e _%$tl115083115107%_)) '()) - _%ids113849%_ - (_%$E113827113836%_))) - (_%$E113827113836%_))) - (_%$E113827113836%_)))) - _%hd113809%_)) + _%ids115099%_ + (_%$E115077115086%_))) + (_%$E115077115086%_))) + (_%$E115077115086%_)))) + _%hd115059%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%exprs113901%_ - (map (lambda (_%bind113863%_) - (let* ((_%$e113865%_ + (_%exprs115151%_ + (map (lambda (_%bind115113%_) + (let* ((_%$e115115%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind113863%_) - (_%$E113867113876%_ + _%bind115113%_) + (_%$E115117115126%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113865%_))))) + _%$e115115%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e113865%_)) - (let* ((_%$tgt113868113879%_ + (__AST-pair? _%$e115115%_)) + (let* ((_%$tgt115118115129%_ (let () (declare (not safe)) - (__AST-e _%$e113865%_))) - (_%$hd113869113882%_ + (__AST-e _%$e115115%_))) + (_%$hd115119115132%_ (let () (declare (not safe)) - (##car _%$tgt113868113879%_))) - (_%$tl113870113885%_ + (##car _%$tgt115118115129%_))) + (_%$tl115120115135%_ (let () (declare (not safe)) - (##cdr _%$tgt113868113879%_)))) + (##cdr _%$tgt115118115129%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113870113885%_)) - (let* ((_%$tgt113871113889%_ + (__AST-pair? _%$tl115120115135%_)) + (let* ((_%$tgt115121115139%_ (let () (declare (not safe)) - (__AST-e _%$tl113870113885%_))) - (_%$hd113872113892%_ + (__AST-e _%$tl115120115135%_))) + (_%$hd115122115142%_ (let () (declare (not safe)) - (##car _%$tgt113871113889%_))) - (_%$tl113873113895%_ + (##car _%$tgt115121115139%_))) + (_%$tl115123115145%_ (let () (declare (not safe)) - (##cdr _%$tgt113871113889%_))) - (_%expr113899%_ _%$hd113872113892%_)) + (##cdr _%$tgt115121115139%_))) + (_%expr115149%_ _%$hd115122115142%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113873113895%_)) + (__AST-e _%$tl115123115145%_)) '()) - (__compile _%expr113899%_) - (_%$E113867113876%_))) - (_%$E113867113876%_))) - (_%$E113867113876%_)))) - _%hd113809%_)) + (__compile _%expr115149%_) + (_%$E115117115126%_))) + (_%$E115117115126%_))) + (_%$E115117115126%_)))) + _%hd115059%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%body113903%_ + (_%body115153%_ (__compile - _%body113821%_))) + _%body115071%_))) (if (let () (declare (not safe)) (__andmap1 - _%simple-bind?113758%_ - _%hd-ids113861%_)) - (_%compile-simple113755%_ + _%simple-bind?115008%_ + _%hd-ids115111%_)) + (_%compile-simple115005%_ (let () (declare (not safe)) - (##map _%car-e113759%_ - _%hd-ids113861%_)) - _%exprs113901%_ - _%body113903%_) - (_%compile-values113756%_ - _%hd-ids113861%_ - _%exprs113901%_ - _%body113903%_))) - (_%$E113764113786%_))) - (_%$E113764113786%_))) - (_%$E113764113786%_))) - (_%$E113764113786%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113761%_)) - (let* ((_%$tgt113774113909%_ - (let () (declare (not safe)) (__AST-e _%$e113761%_))) - (_%$hd113775113912%_ + (##map _%car-e115009%_ + _%hd-ids115111%_)) + _%exprs115151%_ + _%body115153%_) + (_%compile-values115006%_ + _%hd-ids115111%_ + _%exprs115151%_ + _%body115153%_))) + (_%$E115014115036%_))) + (_%$E115014115036%_))) + (_%$E115014115036%_))) + (_%$E115014115036%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e115011%_)) + (let* ((_%$tgt115024115159%_ + (let () (declare (not safe)) (__AST-e _%$e115011%_))) + (_%$hd115025115162%_ (let () (declare (not safe)) - (##car _%$tgt113774113909%_))) - (_%$tl113776113915%_ + (##car _%$tgt115024115159%_))) + (_%$tl115026115165%_ (let () (declare (not safe)) - (##cdr _%$tgt113774113909%_)))) + (##cdr _%$tgt115024115159%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113776113915%_)) - (let* ((_%$tgt113777113919%_ + (__AST-pair? _%$tl115026115165%_)) + (let* ((_%$tgt115027115169%_ (let () (declare (not safe)) - (__AST-e _%$tl113776113915%_))) - (_%$hd113778113922%_ + (__AST-e _%$tl115026115165%_))) + (_%$hd115028115172%_ (let () (declare (not safe)) - (##car _%$tgt113777113919%_))) - (_%$tl113779113925%_ + (##car _%$tgt115027115169%_))) + (_%$tl115029115175%_ (let () (declare (not safe)) - (##cdr _%$tgt113777113919%_)))) + (##cdr _%$tgt115027115169%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$hd113778113922%_)) + (__AST-e _%$hd115028115172%_)) '()) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113779113925%_)) - (let* ((_%$tgt113780113929%_ + (__AST-pair? _%$tl115029115175%_)) + (let* ((_%$tgt115030115179%_ (let () (declare (not safe)) - (__AST-e _%$tl113779113925%_))) - (_%$hd113781113932%_ + (__AST-e _%$tl115029115175%_))) + (_%$hd115031115182%_ (let () (declare (not safe)) - (##car _%$tgt113780113929%_))) - (_%$tl113782113935%_ + (##car _%$tgt115030115179%_))) + (_%$tl115032115185%_ (let () (declare (not safe)) - (##cdr _%$tgt113780113929%_))) - (_%body113939%_ _%$hd113781113932%_)) + (##cdr _%$tgt115030115179%_))) + (_%body115189%_ _%$hd115031115182%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113782113935%_)) + (__AST-e _%$tl115032115185%_)) '()) - (__compile _%body113939%_) - (_%$E113763113906%_))) - (_%$E113763113906%_)) - (_%$E113763113906%_))) - (_%$E113763113906%_))) - (_%$E113763113906%_)))))) + (__compile _%body115189%_) + (_%$E115013115156%_))) + (_%$E115013115156%_)) + (_%$E115013115156%_))) + (_%$E115013115156%_))) + (_%$E115013115156%_)))))) (define __compile-let-values% - (lambda (_%stx113566%_) - (letrec ((_%compile-simple113568%_ - (lambda (_%hd-ids113750%_ _%exprs113751%_ _%body113752%_) + (lambda (_%stx114816%_) + (letrec ((_%compile-simple114818%_ + (lambda (_%hd-ids115000%_ _%exprs115001%_ _%body115002%_) (__SRC__% (cons 'let - (cons (let ((__tmp114869 + (cons (let ((__tmp116119 (map __compile-head-id - _%hd-ids113750%_))) + _%hd-ids115000%_))) (declare (not safe)) - (##map list __tmp114869 _%exprs113751%_)) - (cons _%body113752%_ '()))) - _%stx113566%_))) - (_%compile-values113569%_ - (lambda (_%hd-ids113665%_ _%exprs113666%_ _%body113667%_) - (let _%lp113669%_ ((_%rest113671%_ _%hd-ids113665%_) - (_%exprs113672%_ _%exprs113666%_) - (_%bind113673%_ '()) - (_%post113674%_ '())) - (let* ((_%rest113675113689%_ _%rest113671%_) - (_%else113678113697%_ + (##map list __tmp116119 _%exprs115001%_)) + (cons _%body115002%_ '()))) + _%stx114816%_))) + (_%compile-values114819%_ + (lambda (_%hd-ids114915%_ _%exprs114916%_ _%body114917%_) + (let _%lp114919%_ ((_%rest114921%_ _%hd-ids114915%_) + (_%exprs114922%_ _%exprs114916%_) + (_%bind114923%_ '()) + (_%post114924%_ '())) + (let* ((_%rest114925114939%_ _%rest114921%_) + (_%else114928114947%_ (lambda () (__SRC__% (cons 'let - (cons (reverse _%bind113673%_) - (cons (_%compile-post113570%_ - _%post113674%_ - _%body113667%_) + (cons (reverse _%bind114923%_) + (cons (_%compile-post114820%_ + _%post114924%_ + _%body114917%_) '()))) - _%stx113566%_)))) - (let ((_%K113683113733%_ - (lambda (_%rest113730%_ _%id113731%_) - (_%lp113669%_ - _%rest113730%_ - (cdr _%exprs113672%_) - (cons (cons (__compile-head-id _%id113731%_) - (cons (car _%exprs113672%_) '())) - _%bind113673%_) - _%post113674%_))) - (_%K113680113715%_ - (lambda (_%rest113701%_ _%hd113702%_) + _%stx114816%_)))) + (let ((_%K114933114983%_ + (lambda (_%rest114980%_ _%id114981%_) + (_%lp114919%_ + _%rest114980%_ + (cdr _%exprs114922%_) + (cons (cons (__compile-head-id _%id114981%_) + (cons (car _%exprs114922%_) '())) + _%bind114923%_) + _%post114924%_))) + (_%K114930114965%_ + (lambda (_%rest114951%_ _%hd114952%_) (if (let () (declare (not safe)) - (__AST-id? _%hd113702%_)) - (_%lp113669%_ - _%rest113701%_ - (cdr _%exprs113672%_) + (__AST-id? _%hd114952%_)) + (_%lp114919%_ + _%rest114951%_ + (cdr _%exprs114922%_) (cons (cons (__compile-head-id - _%hd113702%_) + _%hd114952%_) (cons (cons 'values->list - (cons (car _%exprs113672%_) + (cons (car _%exprs114922%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind113673%_) - _%post113674%_) - (if (list? _%hd113702%_) - (let* ((_%len113706%_ + _%bind114923%_) + _%post114924%_) + (if (list? _%hd114952%_) + (let* ((_%len114956%_ (let () (declare (not safe)) - (##length _%hd113702%_))) - (_%tmp113708%_ + (##length _%hd114952%_))) + (_%tmp114958%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp113669%_ - _%rest113701%_ - (cdr _%exprs113672%_) - (cons (cons _%tmp113708%_ - (cons (car _%exprs113672%_) + (_%lp114919%_ + _%rest114951%_ + (cdr _%exprs114922%_) + (cons (cons _%tmp114958%_ + (cons (car _%exprs114922%_) '())) - _%bind113673%_) - (cons (cons _%tmp113708%_ - (cons _%len113706%_ - (let ((__tmp114871 + _%bind114923%_) + (cons (cons _%tmp114958%_ + (cons _%len114956%_ + (let ((__tmp116121 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%id113711%_ _%k113712%_) + (lambda (_%id114961%_ _%k114962%_) (if (let () (declare (not safe)) - (__AST-e _%id113711%_)) - (cons (__SRC__0 _%id113711%_) _%k113712%_) + (__AST-e _%id114961%_)) + (cons (__SRC__0 _%id114961%_) _%k114962%_) '#f))) - (__tmp114870 + (__tmp116120 (let () (declare (not safe)) - (##iota _%len113706%_)))) + (##iota _%len114956%_)))) (declare (not safe)) - (__filter-map2 __tmp114871 _%hd113702%_ __tmp114870)))) + (__filter-map2 __tmp116121 _%hd114952%_ __tmp116120)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post113674%_))) + _%post114924%_))) (__compile-error__% - _%stx113566%_ - _%hd113702%_)))))) - (if (pair? _%rest113675113689%_) - (let ((_%tl113685113738%_ + _%stx114816%_ + _%hd114952%_)))))) + (if (pair? _%rest114925114939%_) + (let ((_%tl114935114988%_ (let () (declare (not safe)) - (##cdr _%rest113675113689%_))) - (_%hd113684113736%_ + (##cdr _%rest114925114939%_))) + (_%hd114934114986%_ (let () (declare (not safe)) - (##car _%rest113675113689%_)))) - (if (pair? _%hd113684113736%_) - (let ((_%tl113687113743%_ + (##car _%rest114925114939%_)))) + (if (pair? _%hd114934114986%_) + (let ((_%tl114937114993%_ (let () (declare (not safe)) - (##cdr _%hd113684113736%_))) - (_%hd113686113741%_ + (##cdr _%hd114934114986%_))) + (_%hd114936114991%_ (let () (declare (not safe)) - (##car _%hd113684113736%_)))) - (if (null? _%tl113687113743%_) - (let ((_%id113746%_ - _%hd113686113741%_) - (_%rest113748%_ - _%tl113685113738%_)) - (_%K113683113733%_ - _%rest113748%_ - _%id113746%_)) - (let ((_%hd113723%_ - _%hd113684113736%_) - (_%rest113725%_ - _%tl113685113738%_)) - (_%K113680113715%_ - _%rest113725%_ - _%hd113723%_)))) - (let ((_%hd113723%_ _%hd113684113736%_) - (_%rest113725%_ _%tl113685113738%_)) - (_%K113680113715%_ - _%rest113725%_ - _%hd113723%_)))) - (_%else113678113697%_))))))) - (_%compile-post113570%_ - (lambda (_%post113572%_ _%body113573%_) - (let _%lp113575%_ ((_%rest113577%_ _%post113572%_) - (_%check113578%_ '()) - (_%bind113579%_ '())) - (let* ((_%rest113580113592%_ _%rest113577%_) - (_%else113582113600%_ + (##car _%hd114934114986%_)))) + (if (null? _%tl114937114993%_) + (let ((_%id114996%_ + _%hd114936114991%_) + (_%rest114998%_ + _%tl114935114988%_)) + (_%K114933114983%_ + _%rest114998%_ + _%id114996%_)) + (let ((_%hd114973%_ + _%hd114934114986%_) + (_%rest114975%_ + _%tl114935114988%_)) + (_%K114930114965%_ + _%rest114975%_ + _%hd114973%_)))) + (let ((_%hd114973%_ _%hd114934114986%_) + (_%rest114975%_ _%tl114935114988%_)) + (_%K114930114965%_ + _%rest114975%_ + _%hd114973%_)))) + (_%else114928114947%_))))))) + (_%compile-post114820%_ + (lambda (_%post114822%_ _%body114823%_) + (let _%lp114825%_ ((_%rest114827%_ _%post114822%_) + (_%check114828%_ '()) + (_%bind114829%_ '())) + (let* ((_%rest114830114842%_ _%rest114827%_) + (_%else114832114850%_ (lambda () (__SRC__% (cons 'begin - (let ((__tmp114872 + (let ((__tmp116122 (cons (__SRC__% (cons 'let - (cons _%bind113579%_ + (cons _%bind114829%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%body113573%_ '()))) + (cons _%body114823%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx113566%_) + _%stx114816%_) '()))) (declare (not safe)) (__foldr1 cons - __tmp114872 - _%check113578%_))) - _%stx113566%_))) - (_%K113584113639%_ - (lambda (_%rest113603%_ - _%init113604%_ - _%len113605%_ - _%tmp113606%_) - (_%lp113575%_ - _%rest113603%_ + __tmp116122 + _%check114828%_))) + _%stx114816%_))) + (_%K114834114889%_ + (lambda (_%rest114853%_ + _%init114854%_ + _%len114855%_ + _%tmp114856%_) + (_%lp114825%_ + _%rest114853%_ (cons (__SRC__% (cons '__check-values - (cons _%tmp113606%_ - (cons _%len113605%_ '()))) - _%stx113566%_) - _%check113578%_) - (let ((__tmp114873 - (lambda (_%hd113608%_ _%r113609%_) - (let* ((_%hd113610113617%_ - _%hd113608%_) - (_%E113612113621%_ + (cons _%tmp114856%_ + (cons _%len114855%_ '()))) + _%stx114816%_) + _%check114828%_) + (let ((__tmp116123 + (lambda (_%hd114858%_ _%r114859%_) + (let* ((_%hd114860114867%_ + _%hd114858%_) + (_%E114862114871%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd113610113617%_ + _%hd114860114867%_ '([id . k]))) '#!void)) - (_%K113613113627%_ - (lambda (_%k113624%_ - _%id113625%_) - (cons (cons _%id113625%_ - (cons (cons '##vector-ref + (_%K114863114877%_ + (lambda (_%k114874%_ + _%id114875%_) + (cons (cons _%id114875%_ + (cons (cons '##values-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%tmp113606%_ - (cons _%k113624%_ '()))) + (cons _%tmp114856%_ + (cons _%k114874%_ '()))) '())) - _%r113609%_)))) + _%r114859%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%hd113610113617%_) - (let ((_%hd113614113630%_ + (if (pair? _%hd114860114867%_) + (let ((_%hd114864114880%_ (let () (declare (not safe)) - (##car _%hd113610113617%_))) - (_%tl113615113632%_ + (##car _%hd114860114867%_))) + (_%tl114865114882%_ (let () (declare (not safe)) - (##cdr _%hd113610113617%_)))) - (let* ((_%id113635%_ - _%hd113614113630%_) - (_%k113637%_ - _%tl113615113632%_)) - (_%K113613113627%_ - _%k113637%_ - _%id113635%_))) - (_%E113612113621%_)))))) + (##cdr _%hd114860114867%_)))) + (let* ((_%id114885%_ + _%hd114864114880%_) + (_%k114887%_ + _%tl114865114882%_)) + (_%K114863114877%_ + _%k114887%_ + _%id114885%_))) + (_%E114862114871%_)))))) (declare (not safe)) (__foldr1 - __tmp114873 - _%bind113579%_ - _%init113604%_)))))) - (if (pair? _%rest113580113592%_) - (let ((_%hd113585113642%_ + __tmp116123 + _%bind114829%_ + _%init114854%_)))))) + (if (pair? _%rest114830114842%_) + (let ((_%hd114835114892%_ (let () (declare (not safe)) - (##car _%rest113580113592%_))) - (_%tl113586113644%_ + (##car _%rest114830114842%_))) + (_%tl114836114894%_ (let () (declare (not safe)) - (##cdr _%rest113580113592%_)))) - (if (pair? _%hd113585113642%_) - (let ((_%hd113587113647%_ + (##cdr _%rest114830114842%_)))) + (if (pair? _%hd114835114892%_) + (let ((_%hd114837114897%_ (let () (declare (not safe)) - (##car _%hd113585113642%_))) - (_%tl113588113649%_ + (##car _%hd114835114892%_))) + (_%tl114838114899%_ (let () (declare (not safe)) - (##cdr _%hd113585113642%_)))) - (let ((_%tmp113652%_ _%hd113587113647%_)) - (if (pair? _%tl113588113649%_) - (let ((_%hd113589113654%_ + (##cdr _%hd114835114892%_)))) + (let ((_%tmp114902%_ _%hd114837114897%_)) + (if (pair? _%tl114838114899%_) + (let ((_%hd114839114904%_ (let () (declare (not safe)) - (##car _%tl113588113649%_))) - (_%tl113590113656%_ + (##car _%tl114838114899%_))) + (_%tl114840114906%_ (let () (declare (not safe)) - (##cdr _%tl113588113649%_)))) - (let* ((_%len113659%_ - _%hd113589113654%_) - (_%init113661%_ - _%tl113590113656%_) - (_%rest113663%_ - _%tl113586113644%_)) - (_%K113584113639%_ - _%rest113663%_ - _%init113661%_ - _%len113659%_ - _%tmp113652%_))) - (_%else113582113600%_)))) - (_%else113582113600%_))) - (_%else113582113600%_))))))) + (##cdr _%tl114838114899%_)))) + (let* ((_%len114909%_ + _%hd114839114904%_) + (_%init114911%_ + _%tl114840114906%_) + (_%rest114913%_ + _%tl114836114894%_)) + (_%K114834114889%_ + _%rest114913%_ + _%init114911%_ + _%len114909%_ + _%tmp114902%_))) + (_%else114832114850%_)))) + (_%else114832114850%_))) + (_%else114832114850%_))))))) (__compile-let-form - _%stx113566%_ - _%compile-simple113568%_ - _%compile-values113569%_)))) + _%stx114816%_ + _%compile-simple114818%_ + _%compile-values114819%_)))) (define __compile-letrec-values% - (lambda (_%stx113363%_) - (letrec ((_%compile-simple113365%_ - (lambda (_%hd-ids113562%_ _%exprs113563%_ _%body113564%_) + (lambda (_%stx114613%_) + (letrec ((_%compile-simple114615%_ + (lambda (_%hd-ids114812%_ _%exprs114813%_ _%body114814%_) (__SRC__% (cons 'letrec - (cons (let ((__tmp114874 + (cons (let ((__tmp116124 (map __compile-head-id - _%hd-ids113562%_))) + _%hd-ids114812%_))) (declare (not safe)) - (##map list __tmp114874 _%exprs113563%_)) - (cons _%body113564%_ '()))) - _%stx113363%_))) - (_%compile-values113366%_ - (lambda (_%hd-ids113473%_ _%exprs113474%_ _%body113475%_) - (let _%lp113477%_ ((_%rest113479%_ _%hd-ids113473%_) - (_%exprs113480%_ _%exprs113474%_) - (_%pre113481%_ '()) - (_%bind113482%_ '()) - (_%post113483%_ '())) - (let* ((_%rest113484113498%_ _%rest113479%_) - (_%else113487113506%_ + (##map list __tmp116124 _%exprs114813%_)) + (cons _%body114814%_ '()))) + _%stx114613%_))) + (_%compile-values114616%_ + (lambda (_%hd-ids114723%_ _%exprs114724%_ _%body114725%_) + (let _%lp114727%_ ((_%rest114729%_ _%hd-ids114723%_) + (_%exprs114730%_ _%exprs114724%_) + (_%pre114731%_ '()) + (_%bind114732%_ '()) + (_%post114733%_ '())) + (let* ((_%rest114734114748%_ _%rest114729%_) + (_%else114737114756%_ (lambda () - (_%compile-inner113367%_ - _%pre113481%_ - _%bind113482%_ - _%post113483%_ - _%body113475%_)))) - (let ((_%K113492113545%_ - (lambda (_%rest113542%_ _%id113543%_) - (_%lp113477%_ - _%rest113542%_ - (cdr _%exprs113480%_) - _%pre113481%_ - (cons (cons (__compile-head-id _%id113543%_) - (cons (car _%exprs113480%_) '())) - _%bind113482%_) - _%post113483%_))) - (_%K113489113527%_ - (lambda (_%rest113510%_ _%hd113511%_) + (_%compile-inner114617%_ + _%pre114731%_ + _%bind114732%_ + _%post114733%_ + _%body114725%_)))) + (let ((_%K114742114795%_ + (lambda (_%rest114792%_ _%id114793%_) + (_%lp114727%_ + _%rest114792%_ + (cdr _%exprs114730%_) + _%pre114731%_ + (cons (cons (__compile-head-id _%id114793%_) + (cons (car _%exprs114730%_) '())) + _%bind114732%_) + _%post114733%_))) + (_%K114739114777%_ + (lambda (_%rest114760%_ _%hd114761%_) (if (let () (declare (not safe)) - (__AST-id? _%hd113511%_)) - (_%lp113477%_ - _%rest113510%_ - (cdr _%exprs113480%_) - _%pre113481%_ + (__AST-id? _%hd114761%_)) + (_%lp114727%_ + _%rest114760%_ + (cdr _%exprs114730%_) + _%pre114731%_ (cons (cons (__compile-head-id - _%hd113511%_) + _%hd114761%_) (cons (cons 'values->list - (cons (car _%exprs113480%_) + (cons (car _%exprs114730%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind113482%_) - _%post113483%_) - (if (list? _%hd113511%_) - (let* ((_%len113515%_ + _%bind114732%_) + _%post114733%_) + (if (list? _%hd114761%_) + (let* ((_%len114765%_ (let () (declare (not safe)) - (##length _%hd113511%_))) - (_%tmp113517%_ + (##length _%hd114761%_))) + (_%tmp114767%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp113477%_ - _%rest113510%_ - (cdr _%exprs113480%_) - (let ((__tmp114875 - (lambda (_%id113520%_ - _%r113521%_) + (_%lp114727%_ + _%rest114760%_ + (cdr _%exprs114730%_) + (let ((__tmp116125 + (lambda (_%id114770%_ + _%r114771%_) (if (let () (declare (not safe)) - (__AST-e _%id113520%_)) + (__AST-e _%id114770%_)) (cons (cons (__SRC__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id113520%_) + _%id114770%_) (cons (cons 'quote (cons '#!void '())) '())) - _%r113521%_) - _%r113521%_)))) + _%r114771%_) + _%r114771%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 - __tmp114875 - _%pre113481%_ - _%hd113511%_)) - (cons (cons _%tmp113517%_ - (cons (car _%exprs113480%_) + __tmp116125 + _%pre114731%_ + _%hd114761%_)) + (cons (cons _%tmp114767%_ + (cons (car _%exprs114730%_) '())) - _%bind113482%_) - (cons (cons _%tmp113517%_ - (cons _%len113515%_ - (let ((__tmp114877 + _%bind114732%_) + (cons (cons _%tmp114767%_ + (cons _%len114765%_ + (let ((__tmp116127 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%id113523%_ _%k113524%_) + (lambda (_%id114773%_ _%k114774%_) (if (let () (declare (not safe)) - (__AST-e _%id113523%_)) - (cons (__SRC__0 _%id113523%_) _%k113524%_) + (__AST-e _%id114773%_)) + (cons (__SRC__0 _%id114773%_) _%k114774%_) '#f))) - (__tmp114876 + (__tmp116126 (let () (declare (not safe)) - (##iota _%len113515%_)))) + (##iota _%len114765%_)))) (declare (not safe)) - (__filter-map2 __tmp114877 _%hd113511%_ __tmp114876)))) + (__filter-map2 __tmp116127 _%hd114761%_ __tmp116126)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post113483%_))) + _%post114733%_))) (__compile-error__% - _%stx113363%_ - _%hd113511%_)))))) - (if (pair? _%rest113484113498%_) - (let ((_%tl113494113550%_ + _%stx114613%_ + _%hd114761%_)))))) + (if (pair? _%rest114734114748%_) + (let ((_%tl114744114800%_ (let () (declare (not safe)) - (##cdr _%rest113484113498%_))) - (_%hd113493113548%_ + (##cdr _%rest114734114748%_))) + (_%hd114743114798%_ (let () (declare (not safe)) - (##car _%rest113484113498%_)))) - (if (pair? _%hd113493113548%_) - (let ((_%tl113496113555%_ + (##car _%rest114734114748%_)))) + (if (pair? _%hd114743114798%_) + (let ((_%tl114746114805%_ (let () (declare (not safe)) - (##cdr _%hd113493113548%_))) - (_%hd113495113553%_ + (##cdr _%hd114743114798%_))) + (_%hd114745114803%_ (let () (declare (not safe)) - (##car _%hd113493113548%_)))) - (if (null? _%tl113496113555%_) - (let ((_%id113558%_ - _%hd113495113553%_) - (_%rest113560%_ - _%tl113494113550%_)) - (_%K113492113545%_ - _%rest113560%_ - _%id113558%_)) - (let ((_%hd113535%_ - _%hd113493113548%_) - (_%rest113537%_ - _%tl113494113550%_)) - (_%K113489113527%_ - _%rest113537%_ - _%hd113535%_)))) - (let ((_%hd113535%_ _%hd113493113548%_) - (_%rest113537%_ _%tl113494113550%_)) - (_%K113489113527%_ - _%rest113537%_ - _%hd113535%_)))) - (_%else113487113506%_))))))) - (_%compile-inner113367%_ - (lambda (_%pre113468%_ - _%bind113469%_ - _%post113470%_ - _%body113471%_) - (if (null? _%pre113468%_) - (_%compile-bind113368%_ - _%bind113469%_ - _%post113470%_ - _%body113471%_) + (##car _%hd114743114798%_)))) + (if (null? _%tl114746114805%_) + (let ((_%id114808%_ + _%hd114745114803%_) + (_%rest114810%_ + _%tl114744114800%_)) + (_%K114742114795%_ + _%rest114810%_ + _%id114808%_)) + (let ((_%hd114785%_ + _%hd114743114798%_) + (_%rest114787%_ + _%tl114744114800%_)) + (_%K114739114777%_ + _%rest114787%_ + _%hd114785%_)))) + (let ((_%hd114785%_ _%hd114743114798%_) + (_%rest114787%_ _%tl114744114800%_)) + (_%K114739114777%_ + _%rest114787%_ + _%hd114785%_)))) + (_%else114737114756%_))))))) + (_%compile-inner114617%_ + (lambda (_%pre114718%_ + _%bind114719%_ + _%post114720%_ + _%body114721%_) + (if (null? _%pre114718%_) + (_%compile-bind114618%_ + _%bind114719%_ + _%post114720%_ + _%body114721%_) (__SRC__% (cons 'let - (cons (reverse _%pre113468%_) - (cons (_%compile-bind113368%_ - _%bind113469%_ - _%post113470%_ - _%body113471%_) + (cons (reverse _%pre114718%_) + (cons (_%compile-bind114618%_ + _%bind114719%_ + _%post114720%_ + _%body114721%_) '()))) - _%stx113363%_)))) - (_%compile-bind113368%_ - (lambda (_%bind113464%_ _%post113465%_ _%body113466%_) + _%stx114613%_)))) + (_%compile-bind114618%_ + (lambda (_%bind114714%_ _%post114715%_ _%body114716%_) (__SRC__% (cons 'letrec - (cons (reverse _%bind113464%_) - (cons (_%compile-post113369%_ - _%post113465%_ - _%body113466%_) + (cons (reverse _%bind114714%_) + (cons (_%compile-post114619%_ + _%post114715%_ + _%body114716%_) '()))) - _%stx113363%_))) - (_%compile-post113369%_ - (lambda (_%post113371%_ _%body113372%_) - (let _%lp113374%_ ((_%rest113376%_ _%post113371%_) - (_%check113377%_ '()) - (_%bind113378%_ '())) - (let* ((_%rest113379113391%_ _%rest113376%_) - (_%else113381113399%_ + _%stx114613%_))) + (_%compile-post114619%_ + (lambda (_%post114621%_ _%body114622%_) + (let _%lp114624%_ ((_%rest114626%_ _%post114621%_) + (_%check114627%_ '()) + (_%bind114628%_ '())) + (let* ((_%rest114629114641%_ _%rest114626%_) + (_%else114631114649%_ (lambda () (__SRC__% (cons 'begin - (let ((__tmp114878 - (let ((__tmp114879 - (cons _%body113372%_ + (let ((__tmp116128 + (let ((__tmp116129 + (cons _%body114622%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp114879 - _%bind113378%_)))) + __tmp116129 + _%bind114628%_)))) (declare (not safe)) (__foldr1 cons - __tmp114878 - _%check113377%_))) - _%stx113363%_))) - (_%K113383113438%_ - (lambda (_%rest113402%_ - _%init113403%_ - _%len113404%_ - _%tmp113405%_) - (_%lp113374%_ - _%rest113402%_ + __tmp116128 + _%check114627%_))) + _%stx114613%_))) + (_%K114633114688%_ + (lambda (_%rest114652%_ + _%init114653%_ + _%len114654%_ + _%tmp114655%_) + (_%lp114624%_ + _%rest114652%_ (cons (__SRC__% (cons '__check-values - (cons _%tmp113405%_ - (cons _%len113404%_ '()))) - _%stx113363%_) - _%check113377%_) - (let ((__tmp114880 - (lambda (_%hd113407%_ _%r113408%_) - (let* ((_%hd113409113416%_ - _%hd113407%_) - (_%E113411113420%_ + (cons _%tmp114655%_ + (cons _%len114654%_ '()))) + _%stx114613%_) + _%check114627%_) + (let ((__tmp116130 + (lambda (_%hd114657%_ _%r114658%_) + (let* ((_%hd114659114666%_ + _%hd114657%_) + (_%E114661114670%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd113409113416%_ + _%hd114659114666%_ '([id . k]))) '#!void)) - (_%K113412113426%_ - (lambda (_%k113423%_ - _%id113424%_) + (_%K114662114676%_ + (lambda (_%k114673%_ + _%id114674%_) (cons (cons 'set! - (cons _%id113424%_ + (cons _%id114674%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons '##vector-ref - (cons _%tmp113405%_ - (cons _%k113423%_ '()))) + (cons (cons '##values-ref + (cons _%tmp114655%_ + (cons _%k114673%_ '()))) '()))) - _%r113408%_)))) + _%r114658%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%hd113409113416%_) - (let ((_%hd113413113429%_ + (if (pair? _%hd114659114666%_) + (let ((_%hd114663114679%_ (let () (declare (not safe)) - (##car _%hd113409113416%_))) - (_%tl113414113431%_ + (##car _%hd114659114666%_))) + (_%tl114664114681%_ (let () (declare (not safe)) - (##cdr _%hd113409113416%_)))) - (let* ((_%id113434%_ - _%hd113413113429%_) - (_%k113436%_ - _%tl113414113431%_)) - (_%K113412113426%_ - _%k113436%_ - _%id113434%_))) - (_%E113411113420%_)))))) + (##cdr _%hd114659114666%_)))) + (let* ((_%id114684%_ + _%hd114663114679%_) + (_%k114686%_ + _%tl114664114681%_)) + (_%K114662114676%_ + _%k114686%_ + _%id114684%_))) + (_%E114661114670%_)))))) (declare (not safe)) (__foldr1 - __tmp114880 - _%bind113378%_ - _%init113403%_)))))) - (if (pair? _%rest113379113391%_) - (let ((_%hd113384113441%_ + __tmp116130 + _%bind114628%_ + _%init114653%_)))))) + (if (pair? _%rest114629114641%_) + (let ((_%hd114634114691%_ (let () (declare (not safe)) - (##car _%rest113379113391%_))) - (_%tl113385113443%_ + (##car _%rest114629114641%_))) + (_%tl114635114693%_ (let () (declare (not safe)) - (##cdr _%rest113379113391%_)))) - (if (pair? _%hd113384113441%_) - (let ((_%hd113386113446%_ + (##cdr _%rest114629114641%_)))) + (if (pair? _%hd114634114691%_) + (let ((_%hd114636114696%_ (let () (declare (not safe)) - (##car _%hd113384113441%_))) - (_%tl113387113448%_ + (##car _%hd114634114691%_))) + (_%tl114637114698%_ (let () (declare (not safe)) - (##cdr _%hd113384113441%_)))) - (let ((_%tmp113451%_ _%hd113386113446%_)) - (if (pair? _%tl113387113448%_) - (let ((_%hd113388113453%_ + (##cdr _%hd114634114691%_)))) + (let ((_%tmp114701%_ _%hd114636114696%_)) + (if (pair? _%tl114637114698%_) + (let ((_%hd114638114703%_ (let () (declare (not safe)) - (##car _%tl113387113448%_))) - (_%tl113389113455%_ + (##car _%tl114637114698%_))) + (_%tl114639114705%_ (let () (declare (not safe)) - (##cdr _%tl113387113448%_)))) - (let* ((_%len113458%_ - _%hd113388113453%_) - (_%init113460%_ - _%tl113389113455%_) - (_%rest113462%_ - _%tl113385113443%_)) - (_%K113383113438%_ - _%rest113462%_ - _%init113460%_ - _%len113458%_ - _%tmp113451%_))) - (_%else113381113399%_)))) - (_%else113381113399%_))) - (_%else113381113399%_))))))) + (##cdr _%tl114637114698%_)))) + (let* ((_%len114708%_ + _%hd114638114703%_) + (_%init114710%_ + _%tl114639114705%_) + (_%rest114712%_ + _%tl114635114693%_)) + (_%K114633114688%_ + _%rest114712%_ + _%init114710%_ + _%len114708%_ + _%tmp114701%_))) + (_%else114631114649%_)))) + (_%else114631114649%_))) + (_%else114631114649%_))))))) (__compile-let-form - _%stx113363%_ - _%compile-simple113365%_ - _%compile-values113366%_)))) + _%stx114613%_ + _%compile-simple114615%_ + _%compile-values114616%_)))) (define __compile-letrec*-values% - (lambda (_%stx113114%_) - (letrec ((_%compile-simple113116%_ - (lambda (_%hd-ids113359%_ _%exprs113360%_ _%body113361%_) + (lambda (_%stx114364%_) + (letrec ((_%compile-simple114366%_ + (lambda (_%hd-ids114609%_ _%exprs114610%_ _%body114611%_) (__SRC__% (cons 'letrec* - (cons (let ((__tmp114881 + (cons (let ((__tmp116131 (map __compile-head-id - _%hd-ids113359%_))) + _%hd-ids114609%_))) (declare (not safe)) - (##map list __tmp114881 _%exprs113360%_)) - (cons _%body113361%_ '()))) - _%stx113114%_))) - (_%compile-values113117%_ - (lambda (_%hd-ids113266%_ _%exprs113267%_ _%body113268%_) - (let _%lp113270%_ ((_%rest113272%_ _%hd-ids113266%_) - (_%exprs113273%_ _%exprs113267%_) - (_%bind113274%_ '()) - (_%post113275%_ '())) - (let* ((_%rest113276113290%_ _%rest113272%_) - (_%else113279113298%_ + (##map list __tmp116131 _%exprs114610%_)) + (cons _%body114611%_ '()))) + _%stx114364%_))) + (_%compile-values114367%_ + (lambda (_%hd-ids114516%_ _%exprs114517%_ _%body114518%_) + (let _%lp114520%_ ((_%rest114522%_ _%hd-ids114516%_) + (_%exprs114523%_ _%exprs114517%_) + (_%bind114524%_ '()) + (_%post114525%_ '())) + (let* ((_%rest114526114540%_ _%rest114522%_) + (_%else114529114548%_ (lambda () - (_%compile-bind113118%_ - _%bind113274%_ - _%post113275%_ - _%body113268%_)))) - (let ((_%K113284113342%_ - (lambda (_%rest113337%_ _%hd113338%_) + (_%compile-bind114368%_ + _%bind114524%_ + _%post114525%_ + _%body114518%_)))) + (let ((_%K114534114592%_ + (lambda (_%rest114587%_ _%hd114588%_) (if (let () (declare (not safe)) - (__AST-id? _%hd113338%_)) - (let ((_%id113340%_ - (__SRC__0 _%hd113338%_))) - (_%lp113270%_ - _%rest113337%_ - (cdr _%exprs113273%_) - (cons (cons _%id113340%_ + (__AST-id? _%hd114588%_)) + (let ((_%id114590%_ + (__SRC__0 _%hd114588%_))) + (_%lp114520%_ + _%rest114587%_ + (cdr _%exprs114523%_) + (cons (cons _%id114590%_ (cons (cons 'quote (cons '#!void ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind113274%_) - (cons (cons _%id113340%_ - (cons (car _%exprs113273%_) + _%bind114524%_) + (cons (cons _%id114590%_ + (cons (car _%exprs114523%_) '())) - _%post113275%_))) - (_%lp113270%_ - _%rest113337%_ - (cdr _%exprs113273%_) - _%bind113274%_ + _%post114525%_))) + (_%lp114520%_ + _%rest114587%_ + (cdr _%exprs114523%_) + _%bind114524%_ (cons (cons '#f - (cons (car _%exprs113273%_) + (cons (car _%exprs114523%_) '())) - _%post113275%_))))) - (_%K113281113322%_ - (lambda (_%rest113302%_ _%hd113303%_) + _%post114525%_))))) + (_%K114531114572%_ + (lambda (_%rest114552%_ _%hd114553%_) (if (let () (declare (not safe)) - (__AST-id? _%hd113303%_)) - (let ((_%id113306%_ - (__SRC__0 _%hd113303%_))) - (_%lp113270%_ - _%rest113302%_ - (cdr _%exprs113273%_) - (cons (cons _%id113306%_ + (__AST-id? _%hd114553%_)) + (let ((_%id114556%_ + (__SRC__0 _%hd114553%_))) + (_%lp114520%_ + _%rest114552%_ + (cdr _%exprs114523%_) + (cons (cons _%id114556%_ (cons (cons 'quote (cons '#!void ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind113274%_) - (cons (cons _%id113306%_ + _%bind114524%_) + (cons (cons _%id114556%_ (cons (cons 'values->list - (cons (car _%exprs113273%_) + (cons (car _%exprs114523%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post113275%_))) + _%post114525%_))) (if (let () (declare (not safe)) - (__AST-e _%hd113303%_)) - (if (list? _%hd113303%_) - (let* ((_%len113310%_ + (__AST-e _%hd114553%_)) + (if (list? _%hd114553%_) + (let* ((_%len114560%_ (let () (declare (not safe)) (##length - _%hd113303%_))) - (_%tmp113312%_ + _%hd114553%_))) + (_%tmp114562%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp113270%_ - _%rest113302%_ - (cdr _%exprs113273%_) - (let ((__tmp114882 - (lambda (_%id113315%_ - _%r113316%_) + (_%lp114520%_ + _%rest114552%_ + (cdr _%exprs114523%_) + (let ((__tmp116132 + (lambda (_%id114565%_ + _%r114566%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__AST-e _%id113315%_)) - (cons (cons (__SRC__0 _%id113315%_) + (__AST-e _%id114565%_)) + (cons (cons (__SRC__0 _%id114565%_) (cons (cons 'quote (cons '#!void '())) '())) - _%r113316%_) - _%r113316%_)))) + _%r114566%_) + _%r114566%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 - __tmp114882 - _%bind113274%_ - _%hd113303%_)) - (cons (cons _%tmp113312%_ - (cons (car _%exprs113273%_) + __tmp116132 + _%bind114524%_ + _%hd114553%_)) + (cons (cons _%tmp114562%_ + (cons (car _%exprs114523%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%len113310%_ - (let ((__tmp114884 - (lambda (_%id113318%_ _%k113319%_) + (cons _%len114560%_ + (let ((__tmp116134 + (lambda (_%id114568%_ _%k114569%_) (if (let () (declare (not safe)) - (__AST-e _%id113318%_)) - (cons (__SRC__0 _%id113318%_) - _%k113319%_) + (__AST-e _%id114568%_)) + (cons (__SRC__0 _%id114568%_) + _%k114569%_) '#f))) - (__tmp114883 + (__tmp116133 (let () (declare (not safe)) - (##iota _%len113310%_)))) + (##iota _%len114560%_)))) (declare (not safe)) (__filter-map2 - __tmp114884 - _%hd113303%_ - __tmp114883))))) - _%post113275%_))) + __tmp116134 + _%hd114553%_ + __tmp116133))))) + _%post114525%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (__compile-error__% - _%stx113114%_ - _%hd113303%_)) - (_%lp113270%_ - _%rest113302%_ - (cdr _%exprs113273%_) - _%bind113274%_ + _%stx114364%_ + _%hd114553%_)) + (_%lp114520%_ + _%rest114552%_ + (cdr _%exprs114523%_) + _%bind114524%_ (cons (cons '#f - (cons (car _%exprs113273%_) + (cons (car _%exprs114523%_) '())) - _%post113275%_))))))) - (if (pair? _%rest113276113290%_) - (let ((_%tl113286113347%_ + _%post114525%_))))))) + (if (pair? _%rest114526114540%_) + (let ((_%tl114536114597%_ (let () (declare (not safe)) - (##cdr _%rest113276113290%_))) - (_%hd113285113345%_ + (##cdr _%rest114526114540%_))) + (_%hd114535114595%_ (let () (declare (not safe)) - (##car _%rest113276113290%_)))) - (if (pair? _%hd113285113345%_) - (let ((_%tl113288113352%_ + (##car _%rest114526114540%_)))) + (if (pair? _%hd114535114595%_) + (let ((_%tl114538114602%_ (let () (declare (not safe)) - (##cdr _%hd113285113345%_))) - (_%hd113287113350%_ + (##cdr _%hd114535114595%_))) + (_%hd114537114600%_ (let () (declare (not safe)) - (##car _%hd113285113345%_)))) - (if (null? _%tl113288113352%_) - (let ((_%hd113355%_ - _%hd113287113350%_) - (_%rest113357%_ - _%tl113286113347%_)) - (_%K113284113342%_ - _%rest113357%_ - _%hd113355%_)) - (let ((_%hd113330%_ - _%hd113285113345%_) - (_%rest113332%_ - _%tl113286113347%_)) - (_%K113281113322%_ - _%rest113332%_ - _%hd113330%_)))) - (let ((_%hd113330%_ _%hd113285113345%_) - (_%rest113332%_ _%tl113286113347%_)) - (_%K113281113322%_ - _%rest113332%_ - _%hd113330%_)))) - (_%else113279113298%_))))))) - (_%compile-bind113118%_ - (lambda (_%bind113262%_ _%post113263%_ _%body113264%_) + (##car _%hd114535114595%_)))) + (if (null? _%tl114538114602%_) + (let ((_%hd114605%_ + _%hd114537114600%_) + (_%rest114607%_ + _%tl114536114597%_)) + (_%K114534114592%_ + _%rest114607%_ + _%hd114605%_)) + (let ((_%hd114580%_ + _%hd114535114595%_) + (_%rest114582%_ + _%tl114536114597%_)) + (_%K114531114572%_ + _%rest114582%_ + _%hd114580%_)))) + (let ((_%hd114580%_ _%hd114535114595%_) + (_%rest114582%_ _%tl114536114597%_)) + (_%K114531114572%_ + _%rest114582%_ + _%hd114580%_)))) + (_%else114529114548%_))))))) + (_%compile-bind114368%_ + (lambda (_%bind114512%_ _%post114513%_ _%body114514%_) (__SRC__% (cons 'let - (cons (reverse _%bind113262%_) - (cons (_%compile-post113119%_ - _%post113263%_ - _%body113264%_) + (cons (reverse _%bind114512%_) + (cons (_%compile-post114369%_ + _%post114513%_ + _%body114514%_) '()))) - _%stx113114%_))) - (_%compile-post113119%_ - (lambda (_%post113121%_ _%body113122%_) + _%stx114364%_))) + (_%compile-post114369%_ + (lambda (_%post114371%_ _%body114372%_) (__SRC__% (cons 'begin - (let ((__tmp114885 - (let ((__tmp114887 - (lambda (_%hd113124%_ _%r113125%_) - (let* ((_%hd113126113149%_ - _%hd113124%_) - (_%E113130113153%_ + (let ((__tmp116135 + (let ((__tmp116137 + (lambda (_%hd114374%_ _%r114375%_) + (let* ((_%hd114376114399%_ + _%hd114374%_) + (_%E114380114403%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd113126113149%_ + _%hd114376114399%_ '([#f expr]) '([id expr]) '([tmp @@ -2203,553 +2203,553 @@ init]))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (let ((_%K113143113247%_ - (lambda (_%expr113245%_) - (cons _%expr113245%_ - _%r113125%_))) - (_%K113138113225%_ - (lambda (_%expr113222%_ - _%id113223%_) + (let ((_%K114393114497%_ + (lambda (_%expr114495%_) + (cons _%expr114495%_ + _%r114375%_))) + (_%K114388114475%_ + (lambda (_%expr114472%_ + _%id114473%_) (cons (__SRC__% (cons 'set! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id113223%_ (cons _%expr113222%_ '()))) - _%stx113114%_) - _%r113125%_))) + (cons _%id114473%_ (cons _%expr114472%_ '()))) + _%stx114364%_) + _%r114375%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K113131113192%_ - (lambda (_%init113157%_ - _%len113158%_ - _%expr113159%_ - _%tmp113160%_) + (_%K114381114442%_ + (lambda (_%init114407%_ + _%len114408%_ + _%expr114409%_ + _%tmp114410%_) (cons (__SRC__% (cons 'let ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons _%tmp113160%_ - (cons _%expr113159%_ '())) + (cons (cons (cons _%tmp114410%_ + (cons _%expr114409%_ '())) '()) (cons (__SRC__% (cons '__check-values - (cons _%tmp113160%_ - (cons _%len113158%_ '()))) - _%stx113114%_) - (let ((__tmp114888 - (map (lambda (_%hd113162%_) - (let* ((_%hd113163113170%_ - _%hd113162%_) - (_%E113165113174%_ + (cons _%tmp114410%_ + (cons _%len114408%_ '()))) + _%stx114364%_) + (let ((__tmp116138 + (map (lambda (_%hd114412%_) + (let* ((_%hd114413114420%_ + _%hd114412%_) + (_%E114415114424%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (error '"No clause matching" - _%hd113163113170%_ + _%hd114413114420%_ '([id . k]))) '#!void)) - (_%K113166113180%_ - (lambda (_%k113177%_ _%id113178%_) + (_%K114416114430%_ + (lambda (_%k114427%_ _%id114428%_) (__SRC__% (cons 'set! - (cons _%id113178%_ - (cons (cons '##vector-ref - (cons _%tmp113160%_ - (cons _%k113177%_ '()))) + (cons _%id114428%_ + (cons (cons '##values-ref + (cons _%tmp114410%_ + (cons _%k114427%_ '()))) '()))) - _%stx113114%_)))) - (if (pair? _%hd113163113170%_) - (let ((_%hd113167113183%_ + _%stx114364%_)))) + (if (pair? _%hd114413114420%_) + (let ((_%hd114417114433%_ (let () (declare (not safe)) - (##car _%hd113163113170%_))) - (_%tl113168113185%_ + (##car _%hd114413114420%_))) + (_%tl114418114435%_ (let () (declare (not safe)) - (##cdr _%hd113163113170%_)))) - (let* ((_%id113188%_ _%hd113167113183%_) - (_%k113190%_ _%tl113168113185%_)) - (_%K113166113180%_ _%k113190%_ _%id113188%_))) - (_%E113165113174%_)))) + (##cdr _%hd114413114420%_)))) + (let* ((_%id114438%_ _%hd114417114433%_) + (_%k114440%_ _%tl114418114435%_)) + (_%K114416114430%_ _%k114440%_ _%id114438%_))) + (_%E114415114424%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%init113157%_))) + _%init114407%_))) (declare (not safe)) - (__foldr1 cons '() __tmp114888))))) - _%stx113114%_) - _%r113125%_)))) + (__foldr1 cons '() __tmp116138))))) + _%stx114364%_) + _%r114375%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__match114741114742%_ - (lambda (_%hd113132113195%_ - _%tl113133113197%_ - _%hd113134113202%_ - _%tl113135113204%_) - (let ((_%tmp113200%_ - _%hd113132113195%_) - (_%expr113207%_ - _%hd113134113202%_)) - (_%E113130113153%_)))) - (_%__match114735114736%_ - (lambda (_%hd113132113195%_ - _%tl113133113197%_) - (let ((_%tmp113200%_ - _%hd113132113195%_)) - (_%E113130113153%_))))) - (if (pair? _%hd113126113149%_) - (let ((_%tl113145113252%_ + (let* ((_%__match115991115992%_ + (lambda (_%hd114382114445%_ + _%tl114383114447%_ + _%hd114384114452%_ + _%tl114385114454%_) + (let ((_%tmp114450%_ + _%hd114382114445%_) + (_%expr114457%_ + _%hd114384114452%_)) + (_%E114380114403%_)))) + (_%__match115985115986%_ + (lambda (_%hd114382114445%_ + _%tl114383114447%_) + (let ((_%tmp114450%_ + _%hd114382114445%_)) + (_%E114380114403%_))))) + (if (pair? _%hd114376114399%_) + (let ((_%tl114395114502%_ (let () (declare (not safe)) - (##cdr _%hd113126113149%_))) - (_%hd113144113250%_ + (##cdr _%hd114376114399%_))) + (_%hd114394114500%_ (let () (declare (not safe)) - (##car _%hd113126113149%_)))) + (##car _%hd114376114399%_)))) (if (let () (declare (not safe)) - (##eq? _%hd113144113250%_ + (##eq? _%hd114394114500%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f)) - (if (pair? _%tl113145113252%_) - (let ((_%tl113147113257%_ + (if (pair? _%tl114395114502%_) + (let ((_%tl114397114507%_ (let () (declare (not safe)) - (##cdr _%tl113145113252%_))) - (_%hd113146113255%_ + (##cdr _%tl114395114502%_))) + (_%hd114396114505%_ (let () (declare (not safe)) - (##car _%tl113145113252%_)))) - (if (null? _%tl113147113257%_) - (let ((_%expr113260%_ _%hd113146113255%_)) - (_%K113143113247%_ _%expr113260%_)) - (if (pair? _%tl113147113257%_) - (let ((_%tl113137113211%_ + (##car _%tl114395114502%_)))) + (if (null? _%tl114397114507%_) + (let ((_%expr114510%_ _%hd114396114505%_)) + (_%K114393114497%_ _%expr114510%_)) + (if (pair? _%tl114397114507%_) + (let ((_%tl114387114461%_ (let () (declare (not safe)) - (##cdr _%tl113147113257%_))) - (_%hd113136113209%_ + (##cdr _%tl114397114507%_))) + (_%hd114386114459%_ (let () (declare (not safe)) - (##car _%tl113147113257%_)))) - (let ((_%tmp113200%_ _%hd113144113250%_) - (_%expr113207%_ _%hd113146113255%_) - (_%len113214%_ _%hd113136113209%_) - (_%init113216%_ _%tl113137113211%_)) - (_%K113131113192%_ - _%init113216%_ - _%len113214%_ - _%expr113207%_ - _%tmp113200%_))) - (_%__match114741114742%_ - _%hd113144113250%_ - _%tl113145113252%_ - _%hd113146113255%_ - _%tl113147113257%_)))) - (_%__match114735114736%_ - _%hd113144113250%_ - _%tl113145113252%_)) - (if (pair? _%tl113145113252%_) - (let ((_%tl113142113237%_ + (##car _%tl114397114507%_)))) + (let ((_%tmp114450%_ _%hd114394114500%_) + (_%expr114457%_ _%hd114396114505%_) + (_%len114464%_ _%hd114386114459%_) + (_%init114466%_ _%tl114387114461%_)) + (_%K114381114442%_ + _%init114466%_ + _%len114464%_ + _%expr114457%_ + _%tmp114450%_))) + (_%__match115991115992%_ + _%hd114394114500%_ + _%tl114395114502%_ + _%hd114396114505%_ + _%tl114397114507%_)))) + (_%__match115985115986%_ + _%hd114394114500%_ + _%tl114395114502%_)) + (if (pair? _%tl114395114502%_) + (let ((_%tl114392114487%_ (let () (declare (not safe)) - (##cdr _%tl113145113252%_))) - (_%hd113141113235%_ + (##cdr _%tl114395114502%_))) + (_%hd114391114485%_ (let () (declare (not safe)) - (##car _%tl113145113252%_)))) - (if (null? _%tl113142113237%_) - (let ((_%id113233%_ _%hd113144113250%_) - (_%expr113240%_ _%hd113141113235%_)) - (_%K113138113225%_ _%expr113240%_ _%id113233%_)) - (if (pair? _%tl113142113237%_) - (let ((_%tl113137113211%_ + (##car _%tl114395114502%_)))) + (if (null? _%tl114392114487%_) + (let ((_%id114483%_ _%hd114394114500%_) + (_%expr114490%_ _%hd114391114485%_)) + (_%K114388114475%_ _%expr114490%_ _%id114483%_)) + (if (pair? _%tl114392114487%_) + (let ((_%tl114387114461%_ (let () (declare (not safe)) - (##cdr _%tl113142113237%_))) - (_%hd113136113209%_ + (##cdr _%tl114392114487%_))) + (_%hd114386114459%_ (let () (declare (not safe)) - (##car _%tl113142113237%_)))) - (let ((_%tmp113200%_ _%hd113144113250%_) - (_%expr113207%_ _%hd113141113235%_) - (_%len113214%_ _%hd113136113209%_) - (_%init113216%_ _%tl113137113211%_)) - (_%K113131113192%_ - _%init113216%_ - _%len113214%_ - _%expr113207%_ - _%tmp113200%_))) - (_%__match114741114742%_ - _%hd113144113250%_ - _%tl113145113252%_ - _%hd113141113235%_ - _%tl113142113237%_)))) - (_%__match114735114736%_ - _%hd113144113250%_ - _%tl113145113252%_)))) + (##car _%tl114392114487%_)))) + (let ((_%tmp114450%_ _%hd114394114500%_) + (_%expr114457%_ _%hd114391114485%_) + (_%len114464%_ _%hd114386114459%_) + (_%init114466%_ _%tl114387114461%_)) + (_%K114381114442%_ + _%init114466%_ + _%len114464%_ + _%expr114457%_ + _%tmp114450%_))) + (_%__match115991115992%_ + _%hd114394114500%_ + _%tl114395114502%_ + _%hd114391114485%_ + _%tl114392114487%_)))) + (_%__match115985115986%_ + _%hd114394114500%_ + _%tl114395114502%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E113130113153%_))))))) - (__tmp114886 (list _%body113122%_))) + (_%E114380114403%_))))))) + (__tmp116136 (list _%body114372%_))) (declare (not safe)) (__foldl1 - __tmp114887 - __tmp114886 - _%post113121%_)))) + __tmp116137 + __tmp116136 + _%post114371%_)))) (declare (not safe)) - (__foldr1 cons '() __tmp114885))) - _%stx113114%_)))) + (__foldr1 cons '() __tmp116135))) + _%stx114364%_)))) (__compile-let-form - _%stx113114%_ - _%compile-simple113116%_ - _%compile-values113117%_)))) + _%stx114364%_ + _%compile-simple114366%_ + _%compile-values114367%_)))) (define __compile-call% - (lambda (_%stx113074%_) - (let* ((_%$e113076%_ _%stx113074%_) - (_%$E113078113087%_ + (lambda (_%stx114324%_) + (let* ((_%$e114326%_ _%stx114324%_) + (_%$E114328114337%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113076%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113076%_)) - (let* ((_%$tgt113079113090%_ - (let () (declare (not safe)) (__AST-e _%$e113076%_))) - (_%$hd113080113093%_ + _%$e114326%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114326%_)) + (let* ((_%$tgt114329114340%_ + (let () (declare (not safe)) (__AST-e _%$e114326%_))) + (_%$hd114330114343%_ (let () (declare (not safe)) - (##car _%$tgt113079113090%_))) - (_%$tl113081113096%_ + (##car _%$tgt114329114340%_))) + (_%$tl114331114346%_ (let () (declare (not safe)) - (##cdr _%$tgt113079113090%_)))) + (##cdr _%$tgt114329114340%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113081113096%_)) - (let* ((_%$tgt113082113100%_ + (__AST-pair? _%$tl114331114346%_)) + (let* ((_%$tgt114332114350%_ (let () (declare (not safe)) - (__AST-e _%$tl113081113096%_))) - (_%$hd113083113103%_ + (__AST-e _%$tl114331114346%_))) + (_%$hd114333114353%_ (let () (declare (not safe)) - (##car _%$tgt113082113100%_))) - (_%$tl113084113106%_ + (##car _%$tgt114332114350%_))) + (_%$tl114334114356%_ (let () (declare (not safe)) - (##cdr _%$tgt113082113100%_))) - (_%rator113110%_ _%$hd113083113103%_) - (_%rands113112%_ _%$tl113084113106%_)) + (##cdr _%$tgt114332114350%_))) + (_%rator114360%_ _%$hd114333114353%_) + (_%rands114362%_ _%$tl114334114356%_)) (__SRC__% - (cons (__compile _%rator113110%_) - (map __compile _%rands113112%_)) - _%stx113074%_)) - (_%$E113078113087%_))) - (_%$E113078113087%_))))) + (cons (__compile _%rator114360%_) + (map __compile _%rands114362%_)) + _%stx114324%_)) + (_%$E114328114337%_))) + (_%$E114328114337%_))))) (define __compile-ref% - (lambda (_%stx113036%_) - (let* ((_%$e113038%_ _%stx113036%_) - (_%$E113040113049%_ + (lambda (_%stx114286%_) + (let* ((_%$e114288%_ _%stx114286%_) + (_%$E114290114299%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113038%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113038%_)) - (let* ((_%$tgt113041113052%_ - (let () (declare (not safe)) (__AST-e _%$e113038%_))) - (_%$hd113042113055%_ + _%$e114288%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114288%_)) + (let* ((_%$tgt114291114302%_ + (let () (declare (not safe)) (__AST-e _%$e114288%_))) + (_%$hd114292114305%_ (let () (declare (not safe)) - (##car _%$tgt113041113052%_))) - (_%$tl113043113058%_ + (##car _%$tgt114291114302%_))) + (_%$tl114293114308%_ (let () (declare (not safe)) - (##cdr _%$tgt113041113052%_)))) + (##cdr _%$tgt114291114302%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113043113058%_)) - (let* ((_%$tgt113044113062%_ + (__AST-pair? _%$tl114293114308%_)) + (let* ((_%$tgt114294114312%_ (let () (declare (not safe)) - (__AST-e _%$tl113043113058%_))) - (_%$hd113045113065%_ + (__AST-e _%$tl114293114308%_))) + (_%$hd114295114315%_ (let () (declare (not safe)) - (##car _%$tgt113044113062%_))) - (_%$tl113046113068%_ + (##car _%$tgt114294114312%_))) + (_%$tl114296114318%_ (let () (declare (not safe)) - (##cdr _%$tgt113044113062%_))) - (_%id113072%_ _%$hd113045113065%_)) + (##cdr _%$tgt114294114312%_))) + (_%id114322%_ _%$hd114295114315%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113046113068%_)) + (__AST-e _%$tl114296114318%_)) '()) - (__SRC__% _%id113072%_ _%stx113036%_) - (_%$E113040113049%_))) - (_%$E113040113049%_))) - (_%$E113040113049%_))))) + (__SRC__% _%id114322%_ _%stx114286%_) + (_%$E114290114299%_))) + (_%$E114290114299%_))) + (_%$E114290114299%_))))) (define __compile-setq% - (lambda (_%stx112983%_) - (let* ((_%$e112985%_ _%stx112983%_) - (_%$E112987112999%_ + (lambda (_%stx114233%_) + (let* ((_%$e114235%_ _%stx114233%_) + (_%$E114237114249%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112985%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e112985%_)) - (let* ((_%$tgt112988113002%_ - (let () (declare (not safe)) (__AST-e _%$e112985%_))) - (_%$hd112989113005%_ + _%$e114235%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114235%_)) + (let* ((_%$tgt114238114252%_ + (let () (declare (not safe)) (__AST-e _%$e114235%_))) + (_%$hd114239114255%_ (let () (declare (not safe)) - (##car _%$tgt112988113002%_))) - (_%$tl112990113008%_ + (##car _%$tgt114238114252%_))) + (_%$tl114240114258%_ (let () (declare (not safe)) - (##cdr _%$tgt112988113002%_)))) + (##cdr _%$tgt114238114252%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112990113008%_)) - (let* ((_%$tgt112991113012%_ + (__AST-pair? _%$tl114240114258%_)) + (let* ((_%$tgt114241114262%_ (let () (declare (not safe)) - (__AST-e _%$tl112990113008%_))) - (_%$hd112992113015%_ + (__AST-e _%$tl114240114258%_))) + (_%$hd114242114265%_ (let () (declare (not safe)) - (##car _%$tgt112991113012%_))) - (_%$tl112993113018%_ + (##car _%$tgt114241114262%_))) + (_%$tl114243114268%_ (let () (declare (not safe)) - (##cdr _%$tgt112991113012%_))) - (_%id113022%_ _%$hd112992113015%_)) + (##cdr _%$tgt114241114262%_))) + (_%id114272%_ _%$hd114242114265%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112993113018%_)) - (let* ((_%$tgt112994113024%_ + (__AST-pair? _%$tl114243114268%_)) + (let* ((_%$tgt114244114274%_ (let () (declare (not safe)) - (__AST-e _%$tl112993113018%_))) - (_%$hd112995113027%_ + (__AST-e _%$tl114243114268%_))) + (_%$hd114245114277%_ (let () (declare (not safe)) - (##car _%$tgt112994113024%_))) - (_%$tl112996113030%_ + (##car _%$tgt114244114274%_))) + (_%$tl114246114280%_ (let () (declare (not safe)) - (##cdr _%$tgt112994113024%_))) - (_%expr113034%_ _%$hd112995113027%_)) + (##cdr _%$tgt114244114274%_))) + (_%expr114284%_ _%$hd114245114277%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112996113030%_)) + (__AST-e _%$tl114246114280%_)) '()) (__SRC__% (cons 'set! (cons (__SRC__% - _%id113022%_ - _%stx112983%_) - (cons (__compile _%expr113034%_) + _%id114272%_ + _%stx114233%_) + (cons (__compile _%expr114284%_) '()))) - _%stx112983%_) - (_%$E112987112999%_))) - (_%$E112987112999%_))) - (_%$E112987112999%_))) - (_%$E112987112999%_))))) + _%stx114233%_) + (_%$E114237114249%_))) + (_%$E114237114249%_))) + (_%$E114237114249%_))) + (_%$E114237114249%_))))) (define __compile-if% - (lambda (_%stx112915%_) - (let* ((_%$e112917%_ _%stx112915%_) - (_%$E112919112934%_ + (lambda (_%stx114165%_) + (let* ((_%$e114167%_ _%stx114165%_) + (_%$E114169114184%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112917%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e112917%_)) - (let* ((_%$tgt112920112937%_ - (let () (declare (not safe)) (__AST-e _%$e112917%_))) - (_%$hd112921112940%_ + _%$e114167%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114167%_)) + (let* ((_%$tgt114170114187%_ + (let () (declare (not safe)) (__AST-e _%$e114167%_))) + (_%$hd114171114190%_ (let () (declare (not safe)) - (##car _%$tgt112920112937%_))) - (_%$tl112922112943%_ + (##car _%$tgt114170114187%_))) + (_%$tl114172114193%_ (let () (declare (not safe)) - (##cdr _%$tgt112920112937%_)))) + (##cdr _%$tgt114170114187%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112922112943%_)) - (let* ((_%$tgt112923112947%_ + (__AST-pair? _%$tl114172114193%_)) + (let* ((_%$tgt114173114197%_ (let () (declare (not safe)) - (__AST-e _%$tl112922112943%_))) - (_%$hd112924112950%_ + (__AST-e _%$tl114172114193%_))) + (_%$hd114174114200%_ (let () (declare (not safe)) - (##car _%$tgt112923112947%_))) - (_%$tl112925112953%_ + (##car _%$tgt114173114197%_))) + (_%$tl114175114203%_ (let () (declare (not safe)) - (##cdr _%$tgt112923112947%_))) - (_%p112957%_ _%$hd112924112950%_)) + (##cdr _%$tgt114173114197%_))) + (_%p114207%_ _%$hd114174114200%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112925112953%_)) - (let* ((_%$tgt112926112959%_ + (__AST-pair? _%$tl114175114203%_)) + (let* ((_%$tgt114176114209%_ (let () (declare (not safe)) - (__AST-e _%$tl112925112953%_))) - (_%$hd112927112962%_ + (__AST-e _%$tl114175114203%_))) + (_%$hd114177114212%_ (let () (declare (not safe)) - (##car _%$tgt112926112959%_))) - (_%$tl112928112965%_ + (##car _%$tgt114176114209%_))) + (_%$tl114178114215%_ (let () (declare (not safe)) - (##cdr _%$tgt112926112959%_))) - (_%t112969%_ _%$hd112927112962%_)) + (##cdr _%$tgt114176114209%_))) + (_%t114219%_ _%$hd114177114212%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112928112965%_)) - (let* ((_%$tgt112929112971%_ + (__AST-pair? _%$tl114178114215%_)) + (let* ((_%$tgt114179114221%_ (let () (declare (not safe)) - (__AST-e _%$tl112928112965%_))) - (_%$hd112930112974%_ + (__AST-e _%$tl114178114215%_))) + (_%$hd114180114224%_ (let () (declare (not safe)) - (##car _%$tgt112929112971%_))) - (_%$tl112931112977%_ + (##car _%$tgt114179114221%_))) + (_%$tl114181114227%_ (let () (declare (not safe)) - (##cdr _%$tgt112929112971%_))) - (_%f112981%_ _%$hd112930112974%_)) + (##cdr _%$tgt114179114221%_))) + (_%f114231%_ _%$hd114180114224%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112931112977%_)) + (__AST-e _%$tl114181114227%_)) '()) (__SRC__% (cons 'if - (cons (__compile _%p112957%_) + (cons (__compile _%p114207%_) (cons (__compile - _%t112969%_) + _%t114219%_) (cons (__compile - _%f112981%_) + _%f114231%_) '())))) - _%stx112915%_) - (_%$E112919112934%_))) - (_%$E112919112934%_))) - (_%$E112919112934%_))) - (_%$E112919112934%_))) - (_%$E112919112934%_))))) + _%stx114165%_) + (_%$E114169114184%_))) + (_%$E114169114184%_))) + (_%$E114169114184%_))) + (_%$E114169114184%_))) + (_%$E114169114184%_))))) (define __compile-quote% - (lambda (_%stx112877%_) - (let* ((_%$e112879%_ _%stx112877%_) - (_%$E112881112890%_ + (lambda (_%stx114127%_) + (let* ((_%$e114129%_ _%stx114127%_) + (_%$E114131114140%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112879%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e112879%_)) - (let* ((_%$tgt112882112893%_ - (let () (declare (not safe)) (__AST-e _%$e112879%_))) - (_%$hd112883112896%_ + _%$e114129%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114129%_)) + (let* ((_%$tgt114132114143%_ + (let () (declare (not safe)) (__AST-e _%$e114129%_))) + (_%$hd114133114146%_ (let () (declare (not safe)) - (##car _%$tgt112882112893%_))) - (_%$tl112884112899%_ + (##car _%$tgt114132114143%_))) + (_%$tl114134114149%_ (let () (declare (not safe)) - (##cdr _%$tgt112882112893%_)))) + (##cdr _%$tgt114132114143%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112884112899%_)) - (let* ((_%$tgt112885112903%_ + (__AST-pair? _%$tl114134114149%_)) + (let* ((_%$tgt114135114153%_ (let () (declare (not safe)) - (__AST-e _%$tl112884112899%_))) - (_%$hd112886112906%_ + (__AST-e _%$tl114134114149%_))) + (_%$hd114136114156%_ (let () (declare (not safe)) - (##car _%$tgt112885112903%_))) - (_%$tl112887112909%_ + (##car _%$tgt114135114153%_))) + (_%$tl114137114159%_ (let () (declare (not safe)) - (##cdr _%$tgt112885112903%_))) - (_%e112913%_ _%$hd112886112906%_)) + (##cdr _%$tgt114135114153%_))) + (_%e114163%_ _%$hd114136114156%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112887112909%_)) + (__AST-e _%$tl114137114159%_)) '()) (__SRC__% (cons 'quote (cons (let () (declare (not safe)) - (__AST->datum _%e112913%_)) + (__AST->datum _%e114163%_)) '())) - _%stx112877%_) - (_%$E112881112890%_))) - (_%$E112881112890%_))) - (_%$E112881112890%_))))) + _%stx114127%_) + (_%$E114131114140%_))) + (_%$E114131114140%_))) + (_%$E114131114140%_))))) (define __compile-quote-syntax% - (lambda (_%stx112839%_) - (let* ((_%$e112841%_ _%stx112839%_) - (_%$E112843112852%_ + (lambda (_%stx114089%_) + (let* ((_%$e114091%_ _%stx114089%_) + (_%$E114093114102%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112841%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e112841%_)) - (let* ((_%$tgt112844112855%_ - (let () (declare (not safe)) (__AST-e _%$e112841%_))) - (_%$hd112845112858%_ + _%$e114091%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114091%_)) + (let* ((_%$tgt114094114105%_ + (let () (declare (not safe)) (__AST-e _%$e114091%_))) + (_%$hd114095114108%_ (let () (declare (not safe)) - (##car _%$tgt112844112855%_))) - (_%$tl112846112861%_ + (##car _%$tgt114094114105%_))) + (_%$tl114096114111%_ (let () (declare (not safe)) - (##cdr _%$tgt112844112855%_)))) + (##cdr _%$tgt114094114105%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl112846112861%_)) - (let* ((_%$tgt112847112865%_ + (__AST-pair? _%$tl114096114111%_)) + (let* ((_%$tgt114097114115%_ (let () (declare (not safe)) - (__AST-e _%$tl112846112861%_))) - (_%$hd112848112868%_ + (__AST-e _%$tl114096114111%_))) + (_%$hd114098114118%_ (let () (declare (not safe)) - (##car _%$tgt112847112865%_))) - (_%$tl112849112871%_ + (##car _%$tgt114097114115%_))) + (_%$tl114099114121%_ (let () (declare (not safe)) - (##cdr _%$tgt112847112865%_))) - (_%e112875%_ _%$hd112848112868%_)) + (##cdr _%$tgt114097114115%_))) + (_%e114125%_ _%$hd114098114118%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl112849112871%_)) + (__AST-e _%$tl114099114121%_)) '()) (__SRC__% - (cons 'quote (cons _%e112875%_ '())) - _%stx112839%_) - (_%$E112843112852%_))) - (_%$E112843112852%_))) - (_%$E112843112852%_))))) + (cons 'quote (cons _%e114125%_ '())) + _%stx114089%_) + (_%$E114093114102%_))) + (_%$E114093114102%_))) + (_%$E114093114102%_))))) (__core-bind-syntax!__% '%#begin __compile-begin% make-__core-special-form) (__core-bind-syntax!__% '%#begin-syntax diff --git a/src/bootstrap/gerbil/runtime/eval~1.scm b/src/bootstrap/gerbil/runtime/eval~1.scm index 085425b3f..34f86ae03 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]#_g114890_| + (define |[1]#_g116140_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g114892_| + (define |[1]#_g116142_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g114894_| + (define |[1]#_g116144_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g114896_| + (define |[1]#_g116146_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g114897_| + (define |[1]#_g116147_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g114899_| + (define |[1]#_g116149_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114900_| + (define |[1]#_g116150_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114902_| + (define |[1]#_g116152_| (##structure gx#syntax-quote::t '&__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g114903_| + (define |[1]#_g116153_| (##structure gx#syntax-quote::t '&__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g114905_| + (define |[1]#_g116155_| (##structure gx#syntax-quote::t '&__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114906_| + (define |[1]#_g116156_| (##structure gx#syntax-quote::t '&__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114908_| + (define |[1]#_g116158_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g114910_| + (define |[1]#_g116160_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g114912_| + (define |[1]#_g116162_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g114914_| + (define |[1]#_g116164_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g114916_| + (define |[1]#_g116166_| (##structure gx#syntax-quote::t '__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g114917_| + (define |[1]#_g116167_| (##structure gx#syntax-quote::t '__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g114919_| + (define |[1]#_g116169_| (##structure gx#syntax-quote::t '__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114920_| + (define |[1]#_g116170_| (##structure gx#syntax-quote::t '__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114922_| + (define |[1]#_g116172_| (##structure gx#syntax-quote::t '&__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g114923_| + (define |[1]#_g116173_| (##structure gx#syntax-quote::t '&__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g114925_| + (define |[1]#_g116175_| (##structure gx#syntax-quote::t '&__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114926_| + (define |[1]#_g116176_| (##structure gx#syntax-quote::t '&__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114928_| + (define |[1]#_g116178_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g114930_| + (define |[1]#_g116180_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g114932_| + (define |[1]#_g116182_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g114934_| + (define |[1]#_g116184_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g114936_| + (define |[1]#_g116186_| (##structure gx#syntax-quote::t '__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g114937_| + (define |[1]#_g116187_| (##structure gx#syntax-quote::t '__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g114939_| + (define |[1]#_g116189_| (##structure gx#syntax-quote::t '__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114940_| + (define |[1]#_g116190_| (##structure gx#syntax-quote::t '__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114942_| + (define |[1]#_g116192_| (##structure gx#syntax-quote::t '&__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g114943_| + (define |[1]#_g116193_| (##structure gx#syntax-quote::t '&__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g114945_| + (define |[1]#_g116195_| (##structure gx#syntax-quote::t '&__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114946_| + (define |[1]#_g116196_| (##structure gx#syntax-quote::t '&__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114949_| + (define |[1]#_g116199_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g114951_| + (define |[1]#_g116201_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g114953_| + (define |[1]#_g116203_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g114955_| + (define |[1]#_g116205_| (##structure gx#syntax-quote::t '__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g114956_| + (define |[1]#_g116206_| (##structure gx#syntax-quote::t '__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g114958_| + (define |[1]#_g116208_| (##structure gx#syntax-quote::t '__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114959_| + (define |[1]#_g116209_| (##structure gx#syntax-quote::t '__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114961_| + (define |[1]#_g116211_| (##structure gx#syntax-quote::t '&__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g114962_| + (define |[1]#_g116212_| (##structure gx#syntax-quote::t '&__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g114964_| + (define |[1]#_g116214_| (##structure gx#syntax-quote::t '&__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g114965_| + (define |[1]#_g116215_| (##structure gx#syntax-quote::t '&__core-special-form-id-set! @@ -324,7 +324,7 @@ '())) (begin (define |[:0:]#__syntax| - (let ((__obj114839 + (let ((__obj116089 (let () (declare (not safe)) (##structure @@ -353,76 +353,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114839 + __obj116089 'gerbil/runtime/eval#__syntax::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '__syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj116089 '__syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '(e id) '4 '#f '#f)) + (##unchecked-structure-set! __obj116089 '(e id) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '(e id) '6 '#f '#f)) + (##unchecked-structure-set! __obj116089 '(e id) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj116089 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj116089 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj116089 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj116089 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '#f '11 '#f '#f)) - (let ((__tmp114889 |[1]#_g114890_|)) + (##unchecked-structure-set! __obj116089 '#f '11 '#f '#f)) + (let ((__tmp116139 |[1]#_g116140_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114839 __tmp114889 '12 '#f '#f)) - (let ((__tmp114891 |[1]#_g114892_|)) + (##unchecked-structure-set! __obj116089 __tmp116139 '12 '#f '#f)) + (let ((__tmp116141 |[1]#_g116142_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114839 __tmp114891 '13 '#f '#f)) - (let ((__tmp114893 |[1]#_g114894_|)) + (##unchecked-structure-set! __obj116089 __tmp116141 '13 '#f '#f)) + (let ((__tmp116143 |[1]#_g116144_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114839 __tmp114893 '14 '#f '#f)) - (let ((__tmp114895 - (cons (cons 'e |[1]#_g114896_|) - (cons (cons 'id |[1]#_g114897_|) '())))) + (##unchecked-structure-set! __obj116089 __tmp116143 '14 '#f '#f)) + (let ((__tmp116145 + (cons (cons 'e |[1]#_g116146_|) + (cons (cons 'id |[1]#_g116147_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114839 __tmp114895 '15 '#f '#f)) - (let ((__tmp114898 - (cons (cons 'e |[1]#_g114899_|) - (cons (cons 'id |[1]#_g114900_|) '())))) + (##unchecked-structure-set! __obj116089 __tmp116145 '15 '#f '#f)) + (let ((__tmp116148 + (cons (cons 'e |[1]#_g116149_|) + (cons (cons 'id |[1]#_g116150_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114839 __tmp114898 '16 '#f '#f)) - (let ((__tmp114901 - (cons (cons 'e |[1]#_g114902_|) - (cons (cons 'id |[1]#_g114903_|) '())))) + (##unchecked-structure-set! __obj116089 __tmp116148 '16 '#f '#f)) + (let ((__tmp116151 + (cons (cons 'e |[1]#_g116152_|) + (cons (cons 'id |[1]#_g116153_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114839 __tmp114901 '17 '#f '#f)) - (let ((__tmp114904 - (cons (cons 'e |[1]#_g114905_|) - (cons (cons 'id |[1]#_g114906_|) '())))) + (##unchecked-structure-set! __obj116089 __tmp116151 '17 '#f '#f)) + (let ((__tmp116154 + (cons (cons 'e |[1]#_g116155_|) + (cons (cons 'id |[1]#_g116156_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114839 __tmp114904 '18 '#f '#f)) + (##unchecked-structure-set! __obj116089 __tmp116154 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj116089 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj116089 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114839 '() '20 '#f '#f)) - __obj114839)) + (##unchecked-structure-set! __obj116089 '() '20 '#f '#f)) + __obj116089)) (define |[:0:]#__core-form| - (let ((__obj114840 + (let ((__obj116090 (let () (declare (not safe)) (##structure @@ -451,76 +451,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114840 + __obj116090 'gerbil/runtime/eval#__core-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '__core-form '2 '#f '#f)) + (##unchecked-structure-set! __obj116090 '__core-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj116090 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '(e id) '6 '#f '#f)) - (let ((__tmp114907 (cons |[1]#_g114908_| '()))) + (##unchecked-structure-set! __obj116090 '(e id) '6 '#f '#f)) + (let ((__tmp116157 (cons |[1]#_g116158_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj114840 __tmp114907 '3 '#f '#f)) + (##unchecked-structure-set! __obj116090 __tmp116157 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj116090 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj116090 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj116090 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '#f '11 '#f '#f)) - (let ((__tmp114909 |[1]#_g114910_|)) + (##unchecked-structure-set! __obj116090 '#f '11 '#f '#f)) + (let ((__tmp116159 |[1]#_g116160_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114840 __tmp114909 '12 '#f '#f)) - (let ((__tmp114911 |[1]#_g114912_|)) + (##unchecked-structure-set! __obj116090 __tmp116159 '12 '#f '#f)) + (let ((__tmp116161 |[1]#_g116162_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114840 __tmp114911 '13 '#f '#f)) - (let ((__tmp114913 |[1]#_g114914_|)) + (##unchecked-structure-set! __obj116090 __tmp116161 '13 '#f '#f)) + (let ((__tmp116163 |[1]#_g116164_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114840 __tmp114913 '14 '#f '#f)) - (let ((__tmp114915 - (cons (cons 'e |[1]#_g114916_|) - (cons (cons 'id |[1]#_g114917_|) '())))) + (##unchecked-structure-set! __obj116090 __tmp116163 '14 '#f '#f)) + (let ((__tmp116165 + (cons (cons 'e |[1]#_g116166_|) + (cons (cons 'id |[1]#_g116167_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114840 __tmp114915 '15 '#f '#f)) - (let ((__tmp114918 - (cons (cons 'e |[1]#_g114919_|) - (cons (cons 'id |[1]#_g114920_|) '())))) + (##unchecked-structure-set! __obj116090 __tmp116165 '15 '#f '#f)) + (let ((__tmp116168 + (cons (cons 'e |[1]#_g116169_|) + (cons (cons 'id |[1]#_g116170_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114840 __tmp114918 '16 '#f '#f)) - (let ((__tmp114921 - (cons (cons 'e |[1]#_g114922_|) - (cons (cons 'id |[1]#_g114923_|) '())))) + (##unchecked-structure-set! __obj116090 __tmp116168 '16 '#f '#f)) + (let ((__tmp116171 + (cons (cons 'e |[1]#_g116172_|) + (cons (cons 'id |[1]#_g116173_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114840 __tmp114921 '17 '#f '#f)) - (let ((__tmp114924 - (cons (cons 'e |[1]#_g114925_|) - (cons (cons 'id |[1]#_g114926_|) '())))) + (##unchecked-structure-set! __obj116090 __tmp116171 '17 '#f '#f)) + (let ((__tmp116174 + (cons (cons 'e |[1]#_g116175_|) + (cons (cons 'id |[1]#_g116176_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114840 __tmp114924 '18 '#f '#f)) + (##unchecked-structure-set! __obj116090 __tmp116174 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj116090 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj116090 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114840 '() '20 '#f '#f)) - __obj114840)) + (##unchecked-structure-set! __obj116090 '() '20 '#f '#f)) + __obj116090)) (define |[:0:]#__core-expression| - (let ((__obj114841 + (let ((__obj116091 (let () (declare (not safe)) (##structure @@ -549,7 +549,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114841 + __obj116091 'gerbil/runtime/eval#__core-expression::t '1 '#f @@ -557,73 +557,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114841 + __obj116091 '__core-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj116091 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '(e id) '6 '#f '#f)) - (let ((__tmp114927 (cons |[1]#_g114928_| '()))) + (##unchecked-structure-set! __obj116091 '(e id) '6 '#f '#f)) + (let ((__tmp116177 (cons |[1]#_g116178_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj114841 __tmp114927 '3 '#f '#f)) + (##unchecked-structure-set! __obj116091 __tmp116177 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj116091 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj116091 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj116091 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '#f '11 '#f '#f)) - (let ((__tmp114929 |[1]#_g114930_|)) + (##unchecked-structure-set! __obj116091 '#f '11 '#f '#f)) + (let ((__tmp116179 |[1]#_g116180_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114841 __tmp114929 '12 '#f '#f)) - (let ((__tmp114931 |[1]#_g114932_|)) + (##unchecked-structure-set! __obj116091 __tmp116179 '12 '#f '#f)) + (let ((__tmp116181 |[1]#_g116182_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114841 __tmp114931 '13 '#f '#f)) - (let ((__tmp114933 |[1]#_g114934_|)) + (##unchecked-structure-set! __obj116091 __tmp116181 '13 '#f '#f)) + (let ((__tmp116183 |[1]#_g116184_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114841 __tmp114933 '14 '#f '#f)) - (let ((__tmp114935 - (cons (cons 'e |[1]#_g114936_|) - (cons (cons 'id |[1]#_g114937_|) '())))) + (##unchecked-structure-set! __obj116091 __tmp116183 '14 '#f '#f)) + (let ((__tmp116185 + (cons (cons 'e |[1]#_g116186_|) + (cons (cons 'id |[1]#_g116187_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114841 __tmp114935 '15 '#f '#f)) - (let ((__tmp114938 - (cons (cons 'e |[1]#_g114939_|) - (cons (cons 'id |[1]#_g114940_|) '())))) + (##unchecked-structure-set! __obj116091 __tmp116185 '15 '#f '#f)) + (let ((__tmp116188 + (cons (cons 'e |[1]#_g116189_|) + (cons (cons 'id |[1]#_g116190_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114841 __tmp114938 '16 '#f '#f)) - (let ((__tmp114941 - (cons (cons 'e |[1]#_g114942_|) - (cons (cons 'id |[1]#_g114943_|) '())))) + (##unchecked-structure-set! __obj116091 __tmp116188 '16 '#f '#f)) + (let ((__tmp116191 + (cons (cons 'e |[1]#_g116192_|) + (cons (cons 'id |[1]#_g116193_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114841 __tmp114941 '17 '#f '#f)) - (let ((__tmp114944 - (cons (cons 'e |[1]#_g114945_|) - (cons (cons 'id |[1]#_g114946_|) '())))) + (##unchecked-structure-set! __obj116091 __tmp116191 '17 '#f '#f)) + (let ((__tmp116194 + (cons (cons 'e |[1]#_g116195_|) + (cons (cons 'id |[1]#_g116196_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114841 __tmp114944 '18 '#f '#f)) + (##unchecked-structure-set! __obj116091 __tmp116194 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj116091 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj116091 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114841 '() '20 '#f '#f)) - __obj114841)) + (##unchecked-structure-set! __obj116091 '() '20 '#f '#f)) + __obj116091)) (define |[:0:]#__core-special-form| - (let ((__obj114842 + (let ((__obj116092 (let () (declare (not safe)) (##structure @@ -652,7 +652,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114842 + __obj116092 'gerbil/runtime/eval#__core-special-form::t '1 '#f @@ -660,391 +660,391 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114842 + __obj116092 '__core-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj116092 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '(e id) '6 '#f '#f)) - (let ((__tmp114947 (cons |[1]#_g114928_| '()))) + (##unchecked-structure-set! __obj116092 '(e id) '6 '#f '#f)) + (let ((__tmp116197 (cons |[1]#_g116178_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj114842 __tmp114947 '3 '#f '#f)) + (##unchecked-structure-set! __obj116092 __tmp116197 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj116092 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj116092 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj116092 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '#f '11 '#f '#f)) - (let ((__tmp114948 |[1]#_g114949_|)) + (##unchecked-structure-set! __obj116092 '#f '11 '#f '#f)) + (let ((__tmp116198 |[1]#_g116199_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114842 __tmp114948 '12 '#f '#f)) - (let ((__tmp114950 |[1]#_g114951_|)) + (##unchecked-structure-set! __obj116092 __tmp116198 '12 '#f '#f)) + (let ((__tmp116200 |[1]#_g116201_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114842 __tmp114950 '13 '#f '#f)) - (let ((__tmp114952 |[1]#_g114953_|)) + (##unchecked-structure-set! __obj116092 __tmp116200 '13 '#f '#f)) + (let ((__tmp116202 |[1]#_g116203_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114842 __tmp114952 '14 '#f '#f)) - (let ((__tmp114954 - (cons (cons 'e |[1]#_g114955_|) - (cons (cons 'id |[1]#_g114956_|) '())))) + (##unchecked-structure-set! __obj116092 __tmp116202 '14 '#f '#f)) + (let ((__tmp116204 + (cons (cons 'e |[1]#_g116205_|) + (cons (cons 'id |[1]#_g116206_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114842 __tmp114954 '15 '#f '#f)) - (let ((__tmp114957 - (cons (cons 'e |[1]#_g114958_|) - (cons (cons 'id |[1]#_g114959_|) '())))) + (##unchecked-structure-set! __obj116092 __tmp116204 '15 '#f '#f)) + (let ((__tmp116207 + (cons (cons 'e |[1]#_g116208_|) + (cons (cons 'id |[1]#_g116209_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114842 __tmp114957 '16 '#f '#f)) - (let ((__tmp114960 - (cons (cons 'e |[1]#_g114961_|) - (cons (cons 'id |[1]#_g114962_|) '())))) + (##unchecked-structure-set! __obj116092 __tmp116207 '16 '#f '#f)) + (let ((__tmp116210 + (cons (cons 'e |[1]#_g116211_|) + (cons (cons 'id |[1]#_g116212_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114842 __tmp114960 '17 '#f '#f)) - (let ((__tmp114963 - (cons (cons 'e |[1]#_g114964_|) - (cons (cons 'id |[1]#_g114965_|) '())))) + (##unchecked-structure-set! __obj116092 __tmp116210 '17 '#f '#f)) + (let ((__tmp116213 + (cons (cons 'e |[1]#_g116214_|) + (cons (cons 'id |[1]#_g116215_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114842 __tmp114963 '18 '#f '#f)) + (##unchecked-structure-set! __obj116092 __tmp116213 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj116092 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj116092 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114842 '() '20 '#f '#f)) - __obj114842)) + (##unchecked-structure-set! __obj116092 '() '20 '#f '#f)) + __obj116092)) (define |[:0:]#defcore-forms| - (lambda (_%stx112384%_) - (letrec ((_%generate112387%_ - (lambda (_%id112751%_ _%compile112753%_ _%make112754%_) - (let* ((_%g112756112775%_ - (lambda (_%g112757112771%_) + (lambda (_%stx113634%_) + (letrec ((_%generate113637%_ + (lambda (_%id114001%_ _%compile114003%_ _%make114004%_) + (let* ((_%g114006114025%_ + (lambda (_%g114007114021%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g112757112771%_))) - (_%g112755112834%_ - (lambda (_%g112757112779%_) - (if (gx#stx-pair? _%g112757112779%_) - (let ((_%e112761112782%_ - (gx#syntax-e _%g112757112779%_))) - (let ((_%hd112762112786%_ + _%g114007114021%_))) + (_%g114005114084%_ + (lambda (_%g114007114029%_) + (if (gx#stx-pair? _%g114007114029%_) + (let ((_%e114011114032%_ + (gx#syntax-e _%g114007114029%_))) + (let ((_%hd114012114036%_ (let () (declare (not safe)) - (##car _%e112761112782%_))) - (_%tl112763112789%_ + (##car _%e114011114032%_))) + (_%tl114013114039%_ (let () (declare (not safe)) - (##cdr _%e112761112782%_)))) - (if (gx#stx-pair? _%tl112763112789%_) - (let ((_%e112764112792%_ + (##cdr _%e114011114032%_)))) + (if (gx#stx-pair? _%tl114013114039%_) + (let ((_%e114014114042%_ (gx#syntax-e - _%tl112763112789%_))) - (let ((_%hd112765112796%_ + _%tl114013114039%_))) + (let ((_%hd114015114046%_ (let () (declare (not safe)) - (##car _%e112764112792%_))) - (_%tl112766112799%_ + (##car _%e114014114042%_))) + (_%tl114016114049%_ (let () (declare (not safe)) - (##cdr _%e112764112792%_)))) + (##cdr _%e114014114042%_)))) (if (gx#stx-pair? - _%tl112766112799%_) - (let ((_%e112767112802%_ + _%tl114016114049%_) + (let ((_%e114017114052%_ (gx#syntax-e - _%tl112766112799%_))) - (let ((_%hd112768112806%_ + _%tl114016114049%_))) + (let ((_%hd114018114056%_ (let () (declare (not safe)) - (##car _%e112767112802%_))) - (_%tl112769112809%_ + (##car _%e114017114052%_))) + (_%tl114019114059%_ (let () (declare (not safe)) - (##cdr _%e112767112802%_)))) + (##cdr _%e114017114052%_)))) (if (gx#stx-null? - _%tl112769112809%_) - ((lambda (_%L112812%_ + _%tl114019114059%_) + ((lambda (_%L114062%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L112814%_ - _%L112815%_) + _%L114064%_ + _%L114065%_) (cons (gx#datum->syntax '#f '__core-bind-syntax!) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L112815%_ '())) - (cons _%L112814%_ (cons _%L112812%_ '()))))) - _%hd112768112806%_ - _%hd112765112796%_ - _%hd112762112786%_) - (_%g112756112775%_ _%g112757112779%_)))) + (cons _%L114065%_ '())) + (cons _%L114064%_ (cons _%L114062%_ '()))))) + _%hd114018114056%_ + _%hd114015114046%_ + _%hd114012114036%_) + (_%g114006114025%_ _%g114007114029%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g112756112775%_ - _%g112757112779%_)))) - (_%g112756112775%_ - _%g112757112779%_)))) - (_%g112756112775%_ _%g112757112779%_))))) - (_%g112755112834%_ - (list _%id112751%_ + (_%g114006114025%_ + _%g114007114029%_)))) + (_%g114006114025%_ + _%g114007114029%_)))) + (_%g114006114025%_ _%g114007114029%_))))) + (_%g114005114084%_ + (list _%id114001%_ (gx#stx-identifier - _%id112751%_ + _%id114001%_ '"__" - _%compile112753%_) - _%make112754%_)))))) - (let* ((_%g112390112410%_ - (lambda (_%g112391112406%_) + _%compile114003%_) + _%make114004%_)))))) + (let* ((_%g113640113660%_ + (lambda (_%g113641113656%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g112391112406%_))) - (_%g112389112747%_ - (lambda (_%g112391112414%_) - (if (gx#stx-pair? _%g112391112414%_) - (let ((_%e112393112417%_ - (gx#syntax-e _%g112391112414%_))) - (let ((_%hd112394112421%_ + _%g113641113656%_))) + (_%g113639113997%_ + (lambda (_%g113641113664%_) + (if (gx#stx-pair? _%g113641113664%_) + (let ((_%e113643113667%_ + (gx#syntax-e _%g113641113664%_))) + (let ((_%hd113644113671%_ (let () (declare (not safe)) - (##car _%e112393112417%_))) - (_%tl112395112424%_ + (##car _%e113643113667%_))) + (_%tl113645113674%_ (let () (declare (not safe)) - (##cdr _%e112393112417%_)))) - (if (gx#stx-pair/null? _%tl112395112424%_) - (let ((_g114966_ + (##cdr _%e113643113667%_)))) + (if (gx#stx-pair/null? _%tl113645113674%_) + (let ((_g116216_ (gx#syntax-split-splice - _%tl112395112424%_ + _%tl113645113674%_ '0))) (begin - (let ((_g114967_ + (let ((_g116217_ (let () (declare (not safe)) - (if (##values? _g114966_) - (##vector-length _g114966_) + (if (##values? _g116216_) + (##values-length _g116216_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g114967_ 2))) + (##fx= _g116217_ 2))) (error "Context expects 2 values" - _g114967_))) - (let ((_%target112396112427%_ + _g116217_))) + (let ((_%target113646113677%_ (let () (declare (not safe)) - (##vector-ref _g114966_ 0))) - (_%tl112398112430%_ + (##values-ref _g116216_ 0))) + (_%tl113648113680%_ (let () (declare (not safe)) - (##vector-ref _g114966_ 1)))) - (if (gx#stx-null? _%tl112398112430%_) - (letrec ((_%loop112399112433%_ - (lambda (_%hd112397112437%_ - _%form112403112440%_) + (##values-ref _g116216_ 1)))) + (if (gx#stx-null? _%tl113648113680%_) + (letrec ((_%loop113649113683%_ + (lambda (_%hd113647113687%_ + _%form113653113690%_) (if (gx#stx-pair? - _%hd112397112437%_) - (let ((_%e112400112443%_ + _%hd113647113687%_) + (let ((_%e113650113693%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd112397112437%_))) - (let ((_%lp-hd112401112447%_ + (gx#syntax-e _%hd113647113687%_))) + (let ((_%lp-hd113651113697%_ (let () (declare (not safe)) - (##car _%e112400112443%_))) - (_%lp-tl112402112450%_ + (##car _%e113650113693%_))) + (_%lp-tl113652113700%_ (let () (declare (not safe)) - (##cdr _%e112400112443%_)))) - (_%loop112399112433%_ - _%lp-tl112402112450%_ - (cons _%lp-hd112401112447%_ _%form112403112440%_)))) - (let ((_%form112404112453%_ (reverse _%form112403112440%_))) - ((lambda (_%L112457%_) - (let _%lp112475%_ ((_%rest112478%_ - (let ((__tmp114968 - (lambda (_%g112738112741%_ - _%g112739112744%_) - (cons _%g112738112741%_ - _%g112739112744%_)))) + (##cdr _%e113650113693%_)))) + (_%loop113649113683%_ + _%lp-tl113652113700%_ + (cons _%lp-hd113651113697%_ _%form113653113690%_)))) + (let ((_%form113654113703%_ (reverse _%form113653113690%_))) + ((lambda (_%L113707%_) + (let _%lp113725%_ ((_%rest113728%_ + (let ((__tmp116218 + (lambda (_%g113988113991%_ + _%g113989113994%_) + (cons _%g113988113991%_ + _%g113989113994%_)))) (declare (not safe)) (__foldr1 - __tmp114968 + __tmp116218 '() - _%L112457%_))) - (_%body112480%_ '())) - (let* ((_%__stx114746114747%_ _%rest112478%_) - (_%g112485112532%_ + _%L113707%_))) + (_%body113730%_ '())) + (let* ((_%__stx115996115997%_ _%rest113728%_) + (_%g113735113782%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx114746114747%_)))) - (let ((_%__kont114749114750%_ - (lambda (_%L112713%_ _%L112715%_ _%L112716%_) - (_%lp112475%_ - _%L112713%_ - (cons (_%generate112387%_ - _%L112716%_ - _%L112715%_ + _%__stx115996115997%_)))) + (let ((_%__kont115999116000%_ + (lambda (_%L113963%_ _%L113965%_ _%L113966%_) + (_%lp113725%_ + _%L113963%_ + (cons (_%generate113637%_ + _%L113966%_ + _%L113965%_ (gx#datum->syntax '#f 'make-__core-expression)) - _%body112480%_)))) - (_%__kont114751114752%_ - (lambda (_%L112640%_ _%L112642%_ _%L112643%_) - (_%lp112475%_ - _%L112640%_ - (cons (_%generate112387%_ - _%L112643%_ - _%L112642%_ + _%body113730%_)))) + (_%__kont116001116002%_ + (lambda (_%L113890%_ _%L113892%_ _%L113893%_) + (_%lp113725%_ + _%L113890%_ + (cons (_%generate113637%_ + _%L113893%_ + _%L113892%_ (gx#datum->syntax '#f 'make-__core-special-form)) - _%body112480%_)))) - (_%__kont114753114754%_ - (lambda (_%L112570%_ _%L112572%_) - (_%lp112475%_ - _%L112570%_ - (cons (_%generate112387%_ - _%L112572%_ + _%body113730%_)))) + (_%__kont116003116004%_ + (lambda (_%L113820%_ _%L113822%_) + (_%lp113725%_ + _%L113820%_ + (cons (_%generate113637%_ + _%L113822%_ (gx#datum->syntax '#f 'compile-error) (gx#datum->syntax '#f 'make-__core-form)) - _%body112480%_)))) - (_%__kont114755114756%_ + _%body113730%_)))) + (_%__kont116005116006%_ (lambda () - (cons 'begin (reverse _%body112480%_))))) - (let ((_%g112484112543%_ + (cons 'begin (reverse _%body113730%_))))) + (let ((_%g113734113793%_ (lambda () - (if (gx#stx-null? _%__stx114746114747%_) - (_%__kont114755114756%_) + (if (gx#stx-null? _%__stx115996115997%_) + (_%__kont116005116006%_) (let () (declare (not safe)) - (_%g112485112532%_)))))) - (if (gx#stx-pair? _%__stx114746114747%_) - (let ((_%e112490112669%_ - (gx#syntax-e _%__stx114746114747%_))) - (let ((_%tl112492112676%_ + (_%g113735113782%_)))))) + (if (gx#stx-pair? _%__stx115996115997%_) + (let ((_%e113740113919%_ + (gx#syntax-e _%__stx115996115997%_))) + (let ((_%tl113742113926%_ (let () (declare (not safe)) - (##cdr _%e112490112669%_))) - (_%hd112491112673%_ + (##cdr _%e113740113919%_))) + (_%hd113741113923%_ (let () (declare (not safe)) - (##car _%e112490112669%_)))) - (if (gx#stx-pair? _%hd112491112673%_) - (let ((_%e112493112679%_ + (##car _%e113740113919%_)))) + (if (gx#stx-pair? _%hd113741113923%_) + (let ((_%e113743113929%_ (gx#syntax-e - _%hd112491112673%_))) - (let ((_%tl112495112686%_ + _%hd113741113923%_))) + (let ((_%tl113745113936%_ (let () (declare (not safe)) - (##cdr _%e112493112679%_))) - (_%hd112494112683%_ + (##cdr _%e113743113929%_))) + (_%hd113744113933%_ (let () (declare (not safe)) - (##car _%e112493112679%_)))) + (##car _%e113743113929%_)))) (if (gx#stx-pair? - _%tl112495112686%_) - (let ((_%e112496112689%_ + _%tl113745113936%_) + (let ((_%e113746113939%_ (gx#syntax-e - _%tl112495112686%_))) - (let ((_%tl112498112696%_ + _%tl113745113936%_))) + (let ((_%tl113748113946%_ (let () (declare (not safe)) - (##cdr _%e112496112689%_))) - (_%hd112497112693%_ + (##cdr _%e113746113939%_))) + (_%hd113747113943%_ (let () (declare (not safe)) - (##car _%e112496112689%_)))) + (##car _%e113746113939%_)))) (if (gx#stx-datum? - _%hd112497112693%_) - (let ((_%e112499112699%_ + _%hd113747113943%_) + (let ((_%e113749113949%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _%hd112497112693%_))) - (if (equal? _%e112499112699%_ 'expr:) - (if (gx#stx-pair? _%tl112498112696%_) - (let ((_%e112500112703%_ - (gx#syntax-e _%tl112498112696%_))) - (let ((_%tl112502112710%_ + (gx#stx-e _%hd113747113943%_))) + (if (equal? _%e113749113949%_ 'expr:) + (if (gx#stx-pair? _%tl113748113946%_) + (let ((_%e113750113953%_ + (gx#syntax-e _%tl113748113946%_))) + (let ((_%tl113752113960%_ (let () (declare (not safe)) - (##cdr _%e112500112703%_))) - (_%hd112501112707%_ + (##cdr _%e113750113953%_))) + (_%hd113751113957%_ (let () (declare (not safe)) - (##car _%e112500112703%_)))) - (if (gx#stx-null? _%tl112502112710%_) - (_%__kont114749114750%_ - _%tl112492112676%_ - _%hd112501112707%_ - _%hd112494112683%_) + (##car _%e113750113953%_)))) + (if (gx#stx-null? _%tl113752113960%_) + (_%__kont115999116000%_ + _%tl113742113926%_ + _%hd113751113957%_ + _%hd113744113933%_) (let () (declare (not safe)) - (_%g112485112532%_))))) - (let () (declare (not safe)) (_%g112485112532%_))) - (if (equal? _%e112499112699%_ 'special:) - (if (gx#stx-pair? _%tl112498112696%_) - (let ((_%e112516112630%_ - (gx#syntax-e _%tl112498112696%_))) - (let ((_%tl112518112637%_ + (_%g113735113782%_))))) + (let () (declare (not safe)) (_%g113735113782%_))) + (if (equal? _%e113749113949%_ 'special:) + (if (gx#stx-pair? _%tl113748113946%_) + (let ((_%e113766113880%_ + (gx#syntax-e _%tl113748113946%_))) + (let ((_%tl113768113887%_ (let () (declare (not safe)) - (##cdr _%e112516112630%_))) - (_%hd112517112634%_ + (##cdr _%e113766113880%_))) + (_%hd113767113884%_ (let () (declare (not safe)) - (##car _%e112516112630%_)))) - (if (gx#stx-null? _%tl112518112637%_) - (_%__kont114751114752%_ - _%tl112492112676%_ - _%hd112517112634%_ - _%hd112494112683%_) + (##car _%e113766113880%_)))) + (if (gx#stx-null? _%tl113768113887%_) + (_%__kont116001116002%_ + _%tl113742113926%_ + _%hd113767113884%_ + _%hd113744113933%_) (let () (declare (not safe)) - (_%g112485112532%_))))) + (_%g113735113782%_))))) (let () (declare (not safe)) - (_%g112485112532%_))) + (_%g113735113782%_))) (let () (declare (not safe)) - (_%g112485112532%_))))) - (let () (declare (not safe)) (_%g112485112532%_))))) + (_%g113735113782%_))))) + (let () (declare (not safe)) (_%g113735113782%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl112495112686%_) - (_%__kont114753114754%_ - _%tl112492112676%_ - _%hd112494112683%_) + _%tl113745113936%_) + (_%__kont116003116004%_ + _%tl113742113926%_ + _%hd113744113933%_) (let () (declare (not safe)) - (_%g112485112532%_)))))) + (_%g113735113782%_)))))) (let () (declare (not safe)) - (_%g112485112532%_))))) + (_%g113735113782%_))))) (let () (declare (not safe)) - (_%g112484112543%_)))))))) - _%form112404112453%_)))))) + (_%g113734113793%_)))))))) + _%form113654113703%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop112399112433%_ - _%target112396112427%_ + (_%loop113649113683%_ + _%target113646113677%_ '())) - (_%g112390112410%_ - _%g112391112414%_))))) - (_%g112390112410%_ _%g112391112414%_)))) - (_%g112390112410%_ _%g112391112414%_))))) - (_%g112389112747%_ _%stx112384%_))))))) + (_%g113640113660%_ + _%g113641113664%_))))) + (_%g113640113660%_ _%g113641113664%_)))) + (_%g113640113660%_ _%g113641113664%_))))) + (_%g113639113997%_ _%stx113634%_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit~0.scm b/src/bootstrap/gerbil/runtime/gambit~0.scm index 7db3cb70f..09d3ce30b 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 1713631264) + (define gerbil/runtime/gambit::timestamp 1734357959) (let () (declare (not safe)) (##void))) diff --git a/src/bootstrap/gerbil/runtime/hash.ssi b/src/bootstrap/gerbil/runtime/hash.ssi index aa3864c6d..c2c537fd1 100644 --- a/src/bootstrap/gerbil/runtime/hash.ssi +++ b/src/bootstrap/gerbil/runtime/hash.ssi @@ -167,56 +167,56 @@ namespace: #f (%#define-runtime is-hash-table? is-hash-table?) (%#define-syntax deflocked-hash-method |[:0:]#deflocked-hash-method|) (%#define-runtime - _%locked-hash-table::ref105248%_ - _%locked-hash-table::ref105247%_) + _%locked-hash-table::HashTable::ref106498%_ + _%locked-hash-table::HashTable::ref106497%_) (%#define-runtime - _%locked-hash-table::set!105251%_ - _%locked-hash-table::set!105250%_) + _%locked-hash-table::HashTable::set!106501%_ + _%locked-hash-table::HashTable::set!106500%_) (%#define-runtime - _%locked-hash-table::update!105254%_ - _%locked-hash-table::update!105253%_) + _%locked-hash-table::HashTable::update!106504%_ + _%locked-hash-table::HashTable::update!106503%_) (%#define-runtime - _%locked-hash-table::delete!105257%_ - _%locked-hash-table::delete!105256%_) + _%locked-hash-table::HashTable::delete!106507%_ + _%locked-hash-table::HashTable::delete!106506%_) (%#define-runtime - _%locked-hash-table::for-each105260%_ - _%locked-hash-table::for-each105259%_) + _%locked-hash-table::HashTable::for-each106510%_ + _%locked-hash-table::HashTable::for-each106509%_) (%#define-runtime - _%locked-hash-table::length105263%_ - _%locked-hash-table::length105262%_) + _%locked-hash-table::HashTable::length106513%_ + _%locked-hash-table::HashTable::length106512%_) (%#define-runtime - _%locked-hash-table::copy105266%_ - _%locked-hash-table::copy105265%_) + _%locked-hash-table::HashTable::copy106516%_ + _%locked-hash-table::HashTable::copy106515%_) (%#define-runtime - _%locked-hash-table::clear!105269%_ - _%locked-hash-table::clear!105268%_) + _%locked-hash-table::HashTable::clear!106519%_ + _%locked-hash-table::HashTable::clear!106518%_) (%#define-syntax defchecked-hash-method |[:0:]#defchecked-hash-method|) (%#define-runtime - _%checked-hash-table::ref105483%_ - _%checked-hash-table::ref105482%_) + _%checked-hash-table::HashTable::ref106733%_ + _%checked-hash-table::HashTable::ref106732%_) (%#define-runtime - _%checked-hash-table::set!105486%_ - _%checked-hash-table::set!105485%_) + _%checked-hash-table::HashTable::set!106736%_ + _%checked-hash-table::HashTable::set!106735%_) (%#define-runtime - _%checked-hash-table::update!105489%_ - _%checked-hash-table::update!105488%_) + _%checked-hash-table::HashTable::update!106739%_ + _%checked-hash-table::HashTable::update!106738%_) (%#define-runtime - _%checked-hash-table::delete!105492%_ - _%checked-hash-table::delete!105491%_) + _%checked-hash-table::HashTable::delete!106742%_ + _%checked-hash-table::HashTable::delete!106741%_) (%#define-runtime - _%checked-hash-table::for-each105495%_ - _%checked-hash-table::for-each105494%_) + _%checked-hash-table::HashTable::for-each106745%_ + _%checked-hash-table::HashTable::for-each106744%_) (%#define-runtime - _%checked-hash-table::length105498%_ - _%checked-hash-table::length105497%_) + _%checked-hash-table::HashTable::length106748%_ + _%checked-hash-table::HashTable::length106747%_) (%#define-runtime - _%checked-hash-table::copy105501%_ - _%checked-hash-table::copy105500%_) + _%checked-hash-table::HashTable::copy106751%_ + _%checked-hash-table::HashTable::copy106750%_) (%#define-runtime - _%checked-hash-table::clear!105504%_ - _%checked-hash-table::clear!105503%_) + _%checked-hash-table::HashTable::clear!106754%_ + _%checked-hash-table::HashTable::clear!106753%_) (%#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 dcd0e4c0f..bae8e58f9 100644 --- a/src/bootstrap/gerbil/runtime/hash.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/hash.ssxi.ss @@ -706,14 +706,24 @@ package: gerbil/runtime #t #f #f - ((for-each . _%locked-hash-table::for-each105259%_) - (delete! . _%locked-hash-table::delete!105256%_) - (length . _%locked-hash-table::length105262%_) - (set! . _%locked-hash-table::set!105250%_) - (copy . _%locked-hash-table::copy105265%_) - (clear! . _%locked-hash-table::clear!105268%_) - (ref . _%locked-hash-table::ref105247%_) - (update! . _%locked-hash-table::update!105253%_)))) + ((HashTable::ref . _%locked-hash-table::HashTable::ref106497%_) + (HashTable::delete! + . + _%locked-hash-table::HashTable::delete!106506%_) + (HashTable::clear! + . + _%locked-hash-table::HashTable::clear!106518%_) + (HashTable::set! . _%locked-hash-table::HashTable::set!106500%_) + (HashTable::length + . + _%locked-hash-table::HashTable::length106512%_) + (HashTable::for-each + . + _%locked-hash-table::HashTable::for-each106509%_) + (HashTable::copy . _%locked-hash-table::HashTable::copy106515%_) + (HashTable::update! + . + _%locked-hash-table::HashTable::update!106503%_)))) (declare-type locked-hash-table::t (optimizer-resolve-class '(typedecl locked-hash-table::t) 'class::t)) @@ -755,14 +765,24 @@ package: gerbil/runtime #t #f #f - ((for-each . _%checked-hash-table::for-each105494%_) - (delete! . _%checked-hash-table::delete!105491%_) - (length . _%checked-hash-table::length105497%_) - (set! . _%checked-hash-table::set!105485%_) - (copy . _%checked-hash-table::copy105500%_) - (clear! . _%checked-hash-table::clear!105503%_) - (ref . _%checked-hash-table::ref105482%_) - (update! . _%checked-hash-table::update!105488%_)))) + ((HashTable::ref . _%checked-hash-table::HashTable::ref106732%_) + (HashTable::delete! + . + _%checked-hash-table::HashTable::delete!106741%_) + (HashTable::clear! + . + _%checked-hash-table::HashTable::clear!106753%_) + (HashTable::set! . _%checked-hash-table::HashTable::set!106735%_) + (HashTable::length + . + _%checked-hash-table::HashTable::length106747%_) + (HashTable::for-each + . + _%checked-hash-table::HashTable::for-each106744%_) + (HashTable::copy . _%checked-hash-table::HashTable::copy106750%_) + (HashTable::update! + . + _%checked-hash-table::HashTable::update!106738%_)))) (declare-type checked-hash-table::t (optimizer-resolve-class '(typedecl checked-hash-table::t) 'class::t)) @@ -901,7 +921,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::ref105247%_ + _%locked-hash-table::HashTable::ref106497%_ (@lambda 3 #f signature: @@ -916,7 +936,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::set!105250%_ + _%locked-hash-table::HashTable::set!106500%_ (@lambda 3 #f signature: @@ -931,7 +951,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::update!105253%_ + _%locked-hash-table::HashTable::update!106503%_ (@lambda 4 #f signature: @@ -946,7 +966,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::delete!105256%_ + _%locked-hash-table::HashTable::delete!106506%_ (@lambda 2 #f signature: @@ -961,7 +981,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::for-each105259%_ + _%locked-hash-table::HashTable::for-each106509%_ (@lambda 2 #f signature: @@ -976,7 +996,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::length105262%_ + _%locked-hash-table::HashTable::length106512%_ (@lambda 1 #f signature: @@ -991,7 +1011,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::copy105265%_ + _%locked-hash-table::HashTable::copy106515%_ (@lambda 1 #f signature: @@ -1006,7 +1026,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::clear!105268%_ + _%locked-hash-table::HashTable::clear!106518%_ (@lambda 1 #f signature: @@ -1021,7 +1041,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::ref105482%_ + _%checked-hash-table::HashTable::ref106732%_ (@lambda 3 #f signature: @@ -1036,7 +1056,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::set!105485%_ + _%checked-hash-table::HashTable::set!106735%_ (@lambda 3 #f signature: @@ -1051,7 +1071,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::update!105488%_ + _%checked-hash-table::HashTable::update!106738%_ (@lambda 4 #f signature: @@ -1066,7 +1086,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::delete!105491%_ + _%checked-hash-table::HashTable::delete!106741%_ (@lambda 2 #f signature: @@ -1081,7 +1101,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::for-each105494%_ + _%checked-hash-table::HashTable::for-each106744%_ (@lambda 2 #f signature: @@ -1096,7 +1116,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::length105497%_ + _%checked-hash-table::HashTable::length106747%_ (@lambda 1 #f signature: @@ -1111,7 +1131,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::copy105500%_ + _%checked-hash-table::HashTable::copy106750%_ (@lambda 1 #f signature: @@ -1126,7 +1146,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::clear!105503%_ + _%checked-hash-table::HashTable::clear!106753%_ (@lambda 1 #f signature: diff --git a/src/bootstrap/gerbil/runtime/hash~0.scm b/src/bootstrap/gerbil/runtime/hash~0.scm index c8ac214b5..fa62059a4 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 1713631265) + (define gerbil/runtime/hash::timestamp 1734357960) (begin (define UnboundKeyError::t - (let ((__tmp109934 (list Error::t))) + (let ((__tmp111184 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#UnboundKeyError::t 'UnboundKeyError - __tmp109934 + __tmp111184 '() '() ':init!))) @@ -17,8 +17,8 @@ (declare (not safe)) (__make-class-predicate UnboundKeyError::t))) (define make-UnboundKeyError - (lambda _%$args109914%_ - (apply make-instance UnboundKeyError::t _%$args109914%_))) + (lambda _%$args111164%_ + (apply make-instance UnboundKeyError::t _%$args111164%_))) (define UnboundKeyError-message (let () (declare (not safe)) @@ -96,32 +96,32 @@ UnboundKeyError:::init! '#f)) (define raise-unbound-key-error - (lambda (_%where109788%_ _%message109789%_ . _%irritants109790%_) - (let ((__tmp109935 - (let ((__obj109928 + (lambda (_%where111038%_ _%message111039%_ . _%irritants111040%_) + (let ((__tmp111185 + (let ((__obj111178 (let () (declare (not safe)) (##structure UnboundKeyError::t '#f '#f '#f '#f)))) (let () (declare (not safe)) (UnboundKeyError:::init! - __obj109928 - _%message109789%_ + __obj111178 + _%message111039%_ 'where: - _%where109788%_ + _%where111038%_ 'irritants: - _%irritants109790%_)) - __obj109928))) + _%irritants111040%_)) + __obj111178))) (declare (not safe)) - (raise __tmp109935)))) + (raise __tmp111185)))) (define unbound-key-error? UnboundKeyError?) (define HashTable::t - (let ((__tmp109936 (cons interface-instance::t '()))) + (let ((__tmp111186 (cons interface-instance::t '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#HashTable::t 'HashTable - __tmp109936 + __tmp111186 '(clear! copy delete! for-each length ref set! update!) '((final: . #t) (struct: . #t)) '#f))) @@ -131,145 +131,152 @@ (##structure interface-descriptor::t HashTable::t - '(clear! copy delete! for-each length ref set! update!)))) + '((HashTable::clear! clear!) + (HashTable::copy copy) + (HashTable::delete! delete!) + (HashTable::for-each for-each) + (HashTable::length length) + (HashTable::ref ref) + (HashTable::set! set!) + (HashTable::update! update!))))) (define make-HashTable - (lambda (_%obj109786%_) + (lambda (_%obj111036%_) (let () (declare (not safe)) - (cast HashTable::interface _%obj109786%_)))) + (cast HashTable::interface _%obj111036%_)))) (define try-HashTable - (lambda (_%obj109784%_) + (lambda (_%obj111034%_) (let () (declare (not safe)) - (try-cast HashTable::interface _%obj109784%_)))) + (try-cast HashTable::interface _%obj111034%_)))) (define HashTable? - (lambda (_%obj109782%_) - (let ((__tmp109937 + (lambda (_%obj111032%_) + (let ((__tmp111187 (let () (declare (not safe)) (##type-id HashTable::t)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj109782%_ __tmp109937)))) + (##structure-direct-instance-of? _%obj111032%_ __tmp111187)))) (define is-HashTable? - (lambda (_%obj109780%_) + (lambda (_%obj111030%_) (if (let () (declare (not safe)) - (satisfies? HashTable::interface _%obj109780%_)) + (satisfies? HashTable::interface _%obj111030%_)) '#t '#f))) (define HashTable-clear! - (lambda (_%self109764%_) - (let* ((_%self109769%_ - (let ((_%$obj109766%_ _%self109764%_)) + (lambda (_%self111014%_) + (let* ((_%self111019%_ + (let ((_%$obj111016%_ _%self111014%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109766%_)) + (##structure? _%$obj111016%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109766%_))) + (##structure-type _%$obj111016%_))) '#t) - _%$obj109766%_ + _%$obj111016%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109766%_))))) - (_%self109771%_ _%self109769%_)) - (&HashTable-clear! _%self109771%_)))) + (cast HashTable::interface _%$obj111016%_))))) + (_%self111021%_ _%self111019%_)) + (&HashTable-clear! _%self111021%_)))) (define &HashTable-clear! - (lambda (_%self109749%_) - (let ((_%self109751%_ _%self109749%_)) + (lambda (_%self110999%_) + (let ((_%self111001%_ _%self110999%_)) (declare (not safe)) - (let ((_%obj109761%_ - (##unchecked-structure-ref _%self109751%_ '1 '#f 'clear!)) - (_%f109762%_ - (##unchecked-structure-ref _%self109751%_ '2 '#f 'clear!))) - (_%f109762%_ _%obj109761%_))))) + (let ((_%obj111011%_ + (##unchecked-structure-ref _%self111001%_ '1 '#f 'clear!)) + (_%f111012%_ + (##unchecked-structure-ref _%self111001%_ '2 '#f 'clear!))) + (_%f111012%_ _%obj111011%_))))) (define HashTable-copy - (lambda (_%self109733%_) - (let* ((_%self109738%_ - (let ((_%$obj109735%_ _%self109733%_)) + (lambda (_%self110983%_) + (let* ((_%self110988%_ + (let ((_%$obj110985%_ _%self110983%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109735%_)) + (##structure? _%$obj110985%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109735%_))) + (##structure-type _%$obj110985%_))) '#t) - _%$obj109735%_ + _%$obj110985%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109735%_))))) - (_%self109740%_ _%self109738%_)) - (__HashTable-copy _%self109740%_)))) + (cast HashTable::interface _%$obj110985%_))))) + (_%self110990%_ _%self110988%_)) + (__HashTable-copy _%self110990%_)))) (define __HashTable-copy - (lambda (_%self109720%_) - (let* ((_%self109722%_ _%self109720%_) - (_%$obj109730%_ (&HashTable-copy _%self109722%_))) - (if (and (let () (declare (not safe)) (##structure? _%$obj109730%_)) + (lambda (_%self110970%_) + (let* ((_%self110972%_ _%self110970%_) + (_%$obj110980%_ (&HashTable-copy _%self110972%_))) + (if (and (let () (declare (not safe)) (##structure? _%$obj110980%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109730%_))) + (##structure-type _%$obj110980%_))) '#t) - _%$obj109730%_ + _%$obj110980%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109730%_)))))) + (cast HashTable::interface _%$obj110980%_)))))) (define &HashTable-copy - (lambda (_%self109705%_) - (let ((_%self109707%_ _%self109705%_)) + (lambda (_%self110955%_) + (let ((_%self110957%_ _%self110955%_)) (declare (not safe)) - (let ((_%obj109717%_ - (##unchecked-structure-ref _%self109707%_ '1 '#f 'copy)) - (_%f109718%_ - (##unchecked-structure-ref _%self109707%_ '3 '#f 'copy))) - (_%f109718%_ _%obj109717%_))))) + (let ((_%obj110967%_ + (##unchecked-structure-ref _%self110957%_ '1 '#f 'copy)) + (_%f110968%_ + (##unchecked-structure-ref _%self110957%_ '3 '#f 'copy))) + (_%f110968%_ _%obj110967%_))))) (define HashTable-delete! - (lambda (_%self109688%_ _%key109689%_) - (let* ((_%self109694%_ - (let ((_%$obj109691%_ _%self109688%_)) + (lambda (_%self110938%_ _%key110939%_) + (let* ((_%self110944%_ + (let ((_%$obj110941%_ _%self110938%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109691%_)) + (##structure? _%$obj110941%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109691%_))) + (##structure-type _%$obj110941%_))) '#t) - _%$obj109691%_ + _%$obj110941%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109691%_))))) - (_%self109696%_ _%self109694%_)) - (&HashTable-delete! _%self109696%_ _%key109689%_)))) + (cast HashTable::interface _%$obj110941%_))))) + (_%self110946%_ _%self110944%_)) + (&HashTable-delete! _%self110946%_ _%key110939%_)))) (define &HashTable-delete! - (lambda (_%self109672%_ _%key109673%_) - (let ((_%self109675%_ _%self109672%_)) + (lambda (_%self110922%_ _%key110923%_) + (let ((_%self110925%_ _%self110922%_)) (declare (not safe)) - (let ((_%obj109685%_ - (##unchecked-structure-ref _%self109675%_ '1 '#f 'delete!)) - (_%f109686%_ - (##unchecked-structure-ref _%self109675%_ '4 '#f 'delete!))) - (_%f109686%_ _%obj109685%_ _%key109673%_))))) + (let ((_%obj110935%_ + (##unchecked-structure-ref _%self110925%_ '1 '#f 'delete!)) + (_%f110936%_ + (##unchecked-structure-ref _%self110925%_ '4 '#f 'delete!))) + (_%f110936%_ _%obj110935%_ _%key110923%_))))) (define HashTable-for-each - (lambda (_%self109645%_ _%proc109646%_) - (let* ((_%self109651%_ - (let ((_%$obj109648%_ _%self109645%_)) + (lambda (_%self110895%_ _%proc110896%_) + (let* ((_%self110901%_ + (let ((_%$obj110898%_ _%self110895%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109648%_)) + (##structure? _%$obj110898%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109648%_))) + (##structure-type _%$obj110898%_))) '#t) - _%$obj109648%_ + _%$obj110898%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109648%_))))) - (_%self109653%_ _%self109651%_)) - (if (procedure? _%proc109646%_) - (let ((_%proc109662%_ _%proc109646%_)) - (&HashTable-for-each _%self109653%_ _%proc109662%_)) + (cast HashTable::interface _%$obj110898%_))))) + (_%self110903%_ _%self110901%_)) + (if (procedure? _%proc110896%_) + (let ((_%proc110912%_ _%proc110896%_)) + (&HashTable-for-each _%self110903%_ _%proc110912%_)) (begin (raise-contract-violation-error '"contract violation" @@ -278,127 +285,127 @@ 'contract: 'procedure? 'value: - _%proc109646%_) + _%proc110896%_) '#!void))))) (define &HashTable-for-each - (lambda (_%self109621%_ _%proc109622%_) - (let* ((_%self109624%_ _%self109621%_) (_%proc109631%_ _%proc109622%_)) + (lambda (_%self110871%_ _%proc110872%_) + (let* ((_%self110874%_ _%self110871%_) (_%proc110881%_ _%proc110872%_)) (declare (not safe)) - (let ((_%obj109642%_ - (##unchecked-structure-ref _%self109624%_ '1 '#f 'for-each)) - (_%f109643%_ - (##unchecked-structure-ref _%self109624%_ '5 '#f 'for-each))) - (_%f109643%_ _%obj109642%_ _%proc109631%_))))) + (let ((_%obj110892%_ + (##unchecked-structure-ref _%self110874%_ '1 '#f 'for-each)) + (_%f110893%_ + (##unchecked-structure-ref _%self110874%_ '5 '#f 'for-each))) + (_%f110893%_ _%obj110892%_ _%proc110881%_))))) (define HashTable-length - (lambda (_%self109605%_) - (let* ((_%self109610%_ - (let ((_%$obj109607%_ _%self109605%_)) + (lambda (_%self110855%_) + (let* ((_%self110860%_ + (let ((_%$obj110857%_ _%self110855%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109607%_)) + (##structure? _%$obj110857%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109607%_))) + (##structure-type _%$obj110857%_))) '#t) - _%$obj109607%_ + _%$obj110857%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109607%_))))) - (_%self109612%_ _%self109610%_)) - (__HashTable-length _%self109612%_)))) + (cast HashTable::interface _%$obj110857%_))))) + (_%self110862%_ _%self110860%_)) + (__HashTable-length _%self110862%_)))) (define __HashTable-length - (lambda (_%self109592%_) - (let* ((_%self109594%_ _%self109592%_) - (_%val109602%_ (&HashTable-length _%self109594%_))) - _%val109602%_))) + (lambda (_%self110842%_) + (let* ((_%self110844%_ _%self110842%_) + (_%val110852%_ (&HashTable-length _%self110844%_))) + _%val110852%_))) (define &HashTable-length - (lambda (_%self109577%_) - (let ((_%self109579%_ _%self109577%_)) + (lambda (_%self110827%_) + (let ((_%self110829%_ _%self110827%_)) (declare (not safe)) - (let ((_%obj109589%_ - (##unchecked-structure-ref _%self109579%_ '1 '#f 'length)) - (_%f109590%_ - (##unchecked-structure-ref _%self109579%_ '6 '#f 'length))) - (_%f109590%_ _%obj109589%_))))) + (let ((_%obj110839%_ + (##unchecked-structure-ref _%self110829%_ '1 '#f 'length)) + (_%f110840%_ + (##unchecked-structure-ref _%self110829%_ '6 '#f 'length))) + (_%f110840%_ _%obj110839%_))))) (define HashTable-ref - (lambda (_%self109559%_ _%key109560%_ _%default109561%_) - (let* ((_%self109566%_ - (let ((_%$obj109563%_ _%self109559%_)) + (lambda (_%self110809%_ _%key110810%_ _%default110811%_) + (let* ((_%self110816%_ + (let ((_%$obj110813%_ _%self110809%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109563%_)) + (##structure? _%$obj110813%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109563%_))) + (##structure-type _%$obj110813%_))) '#t) - _%$obj109563%_ + _%$obj110813%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109563%_))))) - (_%self109568%_ _%self109566%_)) - (&HashTable-ref _%self109568%_ _%key109560%_ _%default109561%_)))) + (cast HashTable::interface _%$obj110813%_))))) + (_%self110818%_ _%self110816%_)) + (&HashTable-ref _%self110818%_ _%key110810%_ _%default110811%_)))) (define &HashTable-ref - (lambda (_%self109542%_ _%key109543%_ _%default109544%_) - (let ((_%self109546%_ _%self109542%_)) + (lambda (_%self110792%_ _%key110793%_ _%default110794%_) + (let ((_%self110796%_ _%self110792%_)) (declare (not safe)) - (let ((_%obj109556%_ - (##unchecked-structure-ref _%self109546%_ '1 '#f 'ref)) - (_%f109557%_ - (##unchecked-structure-ref _%self109546%_ '7 '#f 'ref))) - (_%f109557%_ _%obj109556%_ _%key109543%_ _%default109544%_))))) + (let ((_%obj110806%_ + (##unchecked-structure-ref _%self110796%_ '1 '#f 'ref)) + (_%f110807%_ + (##unchecked-structure-ref _%self110796%_ '7 '#f 'ref))) + (_%f110807%_ _%obj110806%_ _%key110793%_ _%default110794%_))))) (define HashTable-set! - (lambda (_%self109524%_ _%key109525%_ _%value109526%_) - (let* ((_%self109531%_ - (let ((_%$obj109528%_ _%self109524%_)) + (lambda (_%self110774%_ _%key110775%_ _%value110776%_) + (let* ((_%self110781%_ + (let ((_%$obj110778%_ _%self110774%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109528%_)) + (##structure? _%$obj110778%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109528%_))) + (##structure-type _%$obj110778%_))) '#t) - _%$obj109528%_ + _%$obj110778%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109528%_))))) - (_%self109533%_ _%self109531%_)) - (&HashTable-set! _%self109533%_ _%key109525%_ _%value109526%_)))) + (cast HashTable::interface _%$obj110778%_))))) + (_%self110783%_ _%self110781%_)) + (&HashTable-set! _%self110783%_ _%key110775%_ _%value110776%_)))) (define &HashTable-set! - (lambda (_%self109507%_ _%key109508%_ _%value109509%_) - (let ((_%self109511%_ _%self109507%_)) + (lambda (_%self110757%_ _%key110758%_ _%value110759%_) + (let ((_%self110761%_ _%self110757%_)) (declare (not safe)) - (let ((_%obj109521%_ - (##unchecked-structure-ref _%self109511%_ '1 '#f 'set!)) - (_%f109522%_ - (##unchecked-structure-ref _%self109511%_ '8 '#f 'set!))) - (_%f109522%_ _%obj109521%_ _%key109508%_ _%value109509%_))))) + (let ((_%obj110771%_ + (##unchecked-structure-ref _%self110761%_ '1 '#f 'set!)) + (_%f110772%_ + (##unchecked-structure-ref _%self110761%_ '8 '#f 'set!))) + (_%f110772%_ _%obj110771%_ _%key110758%_ _%value110759%_))))) (define HashTable-update! - (lambda (_%self109478%_ _%key109479%_ _%proc109480%_ _%default109481%_) - (let* ((_%self109486%_ - (let ((_%$obj109483%_ _%self109478%_)) + (lambda (_%self110728%_ _%key110729%_ _%proc110730%_ _%default110731%_) + (let* ((_%self110736%_ + (let ((_%$obj110733%_ _%self110728%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109483%_)) + (##structure? _%$obj110733%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109483%_))) + (##structure-type _%$obj110733%_))) '#t) - _%$obj109483%_ + _%$obj110733%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109483%_))))) - (_%self109488%_ _%self109486%_)) - (if (procedure? _%proc109480%_) - (let ((_%proc109497%_ _%proc109480%_)) + (cast HashTable::interface _%$obj110733%_))))) + (_%self110738%_ _%self110736%_)) + (if (procedure? _%proc110730%_) + (let ((_%proc110747%_ _%proc110730%_)) (&HashTable-update! - _%self109488%_ - _%key109479%_ - _%proc109497%_ - _%default109481%_)) + _%self110738%_ + _%key110729%_ + _%proc110747%_ + _%default110731%_)) (begin (raise-contract-violation-error '"contract violation" @@ -407,28 +414,28 @@ 'contract: 'procedure? 'value: - _%proc109480%_) + _%proc110730%_) '#!void))))) (define &HashTable-update! - (lambda (_%self109450%_ _%key109451%_ _%proc109452%_ _%default109453%_) - (let* ((_%self109455%_ _%self109450%_) (_%proc109462%_ _%proc109452%_)) + (lambda (_%self110700%_ _%key110701%_ _%proc110702%_ _%default110703%_) + (let* ((_%self110705%_ _%self110700%_) (_%proc110712%_ _%proc110702%_)) (declare (not safe)) - (let ((_%obj109473%_ - (##unchecked-structure-ref _%self109455%_ '1 '#f 'update!)) - (_%f109475%_ - (##unchecked-structure-ref _%self109455%_ '9 '#f 'update!))) - (_%f109475%_ - _%obj109473%_ - _%key109451%_ - _%proc109462%_ - _%default109453%_))))) + (let ((_%obj110723%_ + (##unchecked-structure-ref _%self110705%_ '1 '#f 'update!)) + (_%f110725%_ + (##unchecked-structure-ref _%self110705%_ '9 '#f 'update!))) + (_%f110725%_ + _%obj110723%_ + _%key110701%_ + _%proc110712%_ + _%default110703%_))))) (define Locker::t - (let ((__tmp109938 (cons interface-instance::t '()))) + (let ((__tmp111188 (cons interface-instance::t '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#Locker::t 'Locker - __tmp109938 + __tmp111188 '(read-lock! read-unlock! write-lock! write-unlock!) '((final: . #t) (struct: . #t)) '#f))) @@ -438,402 +445,405 @@ (##structure interface-descriptor::t Locker::t - '(read-lock! read-unlock! write-lock! write-unlock!)))) + '((Locker::read-lock! read-lock!) + (Locker::read-unlock! read-unlock!) + (Locker::write-lock! write-lock!) + (Locker::write-unlock! write-unlock!))))) (define make-Locker - (lambda (_%obj109448%_) - (let () (declare (not safe)) (cast Locker::interface _%obj109448%_)))) + (lambda (_%obj110698%_) + (let () (declare (not safe)) (cast Locker::interface _%obj110698%_)))) (define try-Locker - (lambda (_%obj109446%_) + (lambda (_%obj110696%_) (let () (declare (not safe)) - (try-cast Locker::interface _%obj109446%_)))) + (try-cast Locker::interface _%obj110696%_)))) (define Locker? - (lambda (_%obj109444%_) - (let ((__tmp109939 + (lambda (_%obj110694%_) + (let ((__tmp111189 (let () (declare (not safe)) (##type-id Locker::t)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj109444%_ __tmp109939)))) + (##structure-direct-instance-of? _%obj110694%_ __tmp111189)))) (define is-Locker? - (lambda (_%obj109442%_) + (lambda (_%obj110692%_) (if (let () (declare (not safe)) - (satisfies? Locker::interface _%obj109442%_)) + (satisfies? Locker::interface _%obj110692%_)) '#t '#f))) (define Locker-read-lock! - (lambda (_%self109426%_) - (let* ((_%self109431%_ - (let ((_%$obj109428%_ _%self109426%_)) + (lambda (_%self110676%_) + (let* ((_%self110681%_ + (let ((_%$obj110678%_ _%self110676%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109428%_)) + (##structure? _%$obj110678%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj109428%_))) + (##structure-type _%$obj110678%_))) '#t) - _%$obj109428%_ + _%$obj110678%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj109428%_))))) - (_%self109433%_ _%self109431%_)) - (&Locker-read-lock! _%self109433%_)))) + (cast Locker::interface _%$obj110678%_))))) + (_%self110683%_ _%self110681%_)) + (&Locker-read-lock! _%self110683%_)))) (define &Locker-read-lock! - (lambda (_%self109411%_) - (let ((_%self109413%_ _%self109411%_)) + (lambda (_%self110661%_) + (let ((_%self110663%_ _%self110661%_)) (declare (not safe)) - (let ((_%obj109423%_ - (##unchecked-structure-ref _%self109413%_ '1 '#f 'read-lock!)) - (_%f109424%_ + (let ((_%obj110673%_ + (##unchecked-structure-ref _%self110663%_ '1 '#f 'read-lock!)) + (_%f110674%_ (##unchecked-structure-ref - _%self109413%_ + _%self110663%_ '2 '#f 'read-lock!))) - (_%f109424%_ _%obj109423%_))))) + (_%f110674%_ _%obj110673%_))))) (define Locker-read-unlock! - (lambda (_%self109395%_) - (let* ((_%self109400%_ - (let ((_%$obj109397%_ _%self109395%_)) + (lambda (_%self110645%_) + (let* ((_%self110650%_ + (let ((_%$obj110647%_ _%self110645%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109397%_)) + (##structure? _%$obj110647%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj109397%_))) + (##structure-type _%$obj110647%_))) '#t) - _%$obj109397%_ + _%$obj110647%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj109397%_))))) - (_%self109402%_ _%self109400%_)) - (&Locker-read-unlock! _%self109402%_)))) + (cast Locker::interface _%$obj110647%_))))) + (_%self110652%_ _%self110650%_)) + (&Locker-read-unlock! _%self110652%_)))) (define &Locker-read-unlock! - (lambda (_%self109380%_) - (let ((_%self109382%_ _%self109380%_)) + (lambda (_%self110630%_) + (let ((_%self110632%_ _%self110630%_)) (declare (not safe)) - (let ((_%obj109392%_ + (let ((_%obj110642%_ (##unchecked-structure-ref - _%self109382%_ + _%self110632%_ '1 '#f 'read-unlock!)) - (_%f109393%_ + (_%f110643%_ (##unchecked-structure-ref - _%self109382%_ + _%self110632%_ '3 '#f 'read-unlock!))) - (_%f109393%_ _%obj109392%_))))) + (_%f110643%_ _%obj110642%_))))) (define Locker-write-lock! - (lambda (_%self109364%_) - (let* ((_%self109369%_ - (let ((_%$obj109366%_ _%self109364%_)) + (lambda (_%self110614%_) + (let* ((_%self110619%_ + (let ((_%$obj110616%_ _%self110614%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109366%_)) + (##structure? _%$obj110616%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj109366%_))) + (##structure-type _%$obj110616%_))) '#t) - _%$obj109366%_ + _%$obj110616%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj109366%_))))) - (_%self109371%_ _%self109369%_)) - (&Locker-write-lock! _%self109371%_)))) + (cast Locker::interface _%$obj110616%_))))) + (_%self110621%_ _%self110619%_)) + (&Locker-write-lock! _%self110621%_)))) (define &Locker-write-lock! - (lambda (_%self109349%_) - (let ((_%self109351%_ _%self109349%_)) + (lambda (_%self110599%_) + (let ((_%self110601%_ _%self110599%_)) (declare (not safe)) - (let ((_%obj109361%_ + (let ((_%obj110611%_ (##unchecked-structure-ref - _%self109351%_ + _%self110601%_ '1 '#f 'write-lock!)) - (_%f109362%_ + (_%f110612%_ (##unchecked-structure-ref - _%self109351%_ + _%self110601%_ '4 '#f 'write-lock!))) - (_%f109362%_ _%obj109361%_))))) + (_%f110612%_ _%obj110611%_))))) (define Locker-write-unlock! - (lambda (_%self109333%_) - (let* ((_%self109338%_ - (let ((_%$obj109335%_ _%self109333%_)) + (lambda (_%self110583%_) + (let* ((_%self110588%_ + (let ((_%$obj110585%_ _%self110583%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109335%_)) + (##structure? _%$obj110585%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj109335%_))) + (##structure-type _%$obj110585%_))) '#t) - _%$obj109335%_ + _%$obj110585%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj109335%_))))) - (_%self109340%_ _%self109338%_)) - (&Locker-write-unlock! _%self109340%_)))) + (cast Locker::interface _%$obj110585%_))))) + (_%self110590%_ _%self110588%_)) + (&Locker-write-unlock! _%self110590%_)))) (define &Locker-write-unlock! - (lambda (_%self109316%_) - (let ((_%self109318%_ _%self109316%_)) + (lambda (_%self110566%_) + (let ((_%self110568%_ _%self110566%_)) (declare (not safe)) - (let ((_%obj109328%_ + (let ((_%obj110578%_ (##unchecked-structure-ref - _%self109318%_ + _%self110568%_ '1 '#f 'write-unlock!)) - (_%f109330%_ + (_%f110580%_ (##unchecked-structure-ref - _%self109318%_ + _%self110568%_ '5 '#f 'write-unlock!))) - (_%f109330%_ _%obj109328%_))))) + (_%f110580%_ _%obj110578%_))))) (let () (declare (not safe)) - (bind-method!__0 __table::t 'ref raw-table-ref)) + (bind-method!__0 __table::t 'HashTable::ref raw-table-ref)) (let () (declare (not safe)) - (bind-method!__0 __table::t 'set! raw-table-set!)) + (bind-method!__0 __table::t 'HashTable::set! raw-table-set!)) (let () (declare (not safe)) - (bind-method!__0 __table::t 'update! raw-table-update!)) + (bind-method!__0 __table::t 'HashTable::update! raw-table-update!)) (let () (declare (not safe)) - (bind-method!__0 __table::t 'delete! raw-table-delete!)) + (bind-method!__0 __table::t 'HashTable::delete! raw-table-delete!)) (let () (declare (not safe)) - (bind-method!__0 __table::t 'for-each raw-table-for-each)) + (bind-method!__0 __table::t 'HashTable::for-each raw-table-for-each)) (let () (declare (not safe)) - (bind-method!__0 __table::t 'length &raw-table-count)) + (bind-method!__0 __table::t 'HashTable::length &raw-table-count)) (let () (declare (not safe)) - (bind-method!__0 __table::t 'copy raw-table-copy)) + (bind-method!__0 __table::t 'HashTable::copy raw-table-copy)) (let () (declare (not safe)) - (bind-method!__0 __table::t 'clear! raw-table-clear!)) + (bind-method!__0 __table::t 'HashTable::clear! raw-table-clear!)) (let () (declare (not safe)) - (bind-method!__0 __gc-table::t 'ref gc-table-ref)) + (bind-method!__0 __gc-table::t 'HashTable::ref gc-table-ref)) (let () (declare (not safe)) - (bind-method!__0 __gc-table::t 'set! gc-table-set!)) + (bind-method!__0 __gc-table::t 'HashTable::set! gc-table-set!)) (let () (declare (not safe)) - (bind-method!__0 __gc-table::t 'update! gc-table-update!)) + (bind-method!__0 __gc-table::t 'HashTable::update! gc-table-update!)) (let () (declare (not safe)) - (bind-method!__0 __gc-table::t 'delete! gc-table-delete!)) + (bind-method!__0 __gc-table::t 'HashTable::delete! gc-table-delete!)) (let () (declare (not safe)) - (bind-method!__0 __gc-table::t 'for-each gc-table-for-each)) + (bind-method!__0 __gc-table::t 'HashTable::for-each gc-table-for-each)) (let () (declare (not safe)) - (bind-method!__0 __gc-table::t 'length gc-table-length)) + (bind-method!__0 __gc-table::t 'HashTable::length gc-table-length)) (let () (declare (not safe)) - (bind-method!__0 __gc-table::t 'copy gc-table-copy)) + (bind-method!__0 __gc-table::t 'HashTable::copy gc-table-copy)) (let () (declare (not safe)) - (bind-method!__0 __gc-table::t 'clear! gc-table-clear!)) + (bind-method!__0 __gc-table::t 'HashTable::clear! gc-table-clear!)) (define gambit-table-update! - (lambda (_%table109309%_ - _%key109310%_ - _%update109311%_ - _%default109312%_) - (let ((_%result109314%_ - (table-ref _%table109309%_ _%key109310%_ _%default109312%_))) + (lambda (_%table110559%_ + _%key110560%_ + _%update110561%_ + _%default110562%_) + (let ((_%result110564%_ + (table-ref _%table110559%_ _%key110560%_ _%default110562%_))) (table-set! - _%table109309%_ - _%key109310%_ - (_%update109311%_ _%default109312%_))))) + _%table110559%_ + _%key110560%_ + (_%update110561%_ _%default110562%_))))) (define gambit-table-for-each - (lambda (_%table109306%_ _%proc109307%_) - (table-for-each _%proc109307%_ _%table109306%_))) + (lambda (_%table110556%_ _%proc110557%_) + (table-for-each _%proc110557%_ _%table110556%_))) (define gambit-table-clear! - (lambda (_%table109304%_) + (lambda (_%table110554%_) (let () (declare (not safe)) - (##unchecked-structure-set! _%table109304%_ '0 '5 '#f '#f)))) - (let ((__tmp109940 (macro-type-table))) + (##unchecked-structure-set! _%table110554%_ '0 '5 '#f '#f)))) + (let ((__tmp111190 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp109940 'ref table-ref)) - (let ((__tmp109941 (macro-type-table))) + (bind-method!__0 __tmp111190 'HashTable::ref table-ref)) + (let ((__tmp111191 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp109941 'set! table-set!)) - (let ((__tmp109942 (macro-type-table))) + (bind-method!__0 __tmp111191 'HashTable::set! table-set!)) + (let ((__tmp111192 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp109942 'update! gambit-table-update!)) - (let ((__tmp109943 (macro-type-table))) + (bind-method!__0 __tmp111192 'HashTable::update! gambit-table-update!)) + (let ((__tmp111193 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp109943 'delete! table-set!)) - (let ((__tmp109944 (macro-type-table))) + (bind-method!__0 __tmp111193 'HashTable::delete! table-set!)) + (let ((__tmp111194 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp109944 'for-each gambit-table-for-each)) - (let ((__tmp109945 (macro-type-table))) + (bind-method!__0 __tmp111194 'HashTable::for-each gambit-table-for-each)) + (let ((__tmp111195 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp109945 'length table-length)) - (let ((__tmp109946 (macro-type-table))) + (bind-method!__0 __tmp111195 'HashTable::length table-length)) + (let ((__tmp111196 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp109946 'copy table-copy)) - (let ((__tmp109947 (macro-type-table))) + (bind-method!__0 __tmp111196 'HashTable::copy table-copy)) + (let ((__tmp111197 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp109947 'clear! gambit-table-clear!)) + (bind-method!__0 __tmp111197 'HashTable::clear! gambit-table-clear!)) (define hash-table::t - (let* ((_%slots109286%_ '(table count free hash test seed)) - (_%slot-vector109288%_ (list->vector (cons '#f _%slots109286%_))) - (_%slot-table109295%_ - (let ((_%slot-table109290%_ + (let* ((_%slots110536%_ '(table count free hash test seed)) + (_%slot-vector110538%_ (list->vector (cons '#f _%slots110536%_))) + (_%slot-table110545%_ + (let ((_%slot-table110540%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp109950 - (lambda (_%slot109292%_ _%field109293%_) + (let ((__tmp111200 + (lambda (_%slot110542%_ _%field110543%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table109290%_ - _%slot109292%_ - _%field109293%_)) - (let ((__tmp109951 + _%slot-table110540%_ + _%slot110542%_ + _%field110543%_)) + (let ((__tmp111201 (let () (declare (not safe)) - (symbol->keyword _%slot109292%_)))) + (symbol->keyword _%slot110542%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table109290%_ - __tmp109951 - _%field109293%_)))) - (__tmp109948 - (let ((__tmp109949 + _%slot-table110540%_ + __tmp111201 + _%field110543%_)))) + (__tmp111198 + (let ((__tmp111199 (let () (declare (not safe)) - (##length _%slots109286%_)))) + (##length _%slots110536%_)))) (declare (not safe)) - (##iota __tmp109949 '1)))) + (##iota __tmp111199 '1)))) (declare (not safe)) - (##for-each __tmp109950 _%slots109286%_ __tmp109948)) - _%slot-table109290%_)) - (_%flags109297%_ + (##for-each __tmp111200 _%slots110536%_ __tmp111198)) + _%slot-table110540%_)) + (_%flags110547%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields109299%_ '#()) - (_%properties109301%_ + (_%fields110549%_ '#()) + (_%properties110551%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots109286%_))) + (__foldr1 cons '() _%slots110536%_))) (cons (cons 'struct: '#t) '()))) - (__tmp109952 (cons object::t (cons t::t '())))) + (__tmp111202 (cons object::t (cons t::t '())))) (declare (not safe)) (##structure class::t 'gerbil#hash-table::t 'hash-table - _%flags109297%_ + _%flags110547%_ __table::t - _%fields109299%_ - __tmp109952 - _%slot-vector109288%_ - _%slot-table109295%_ - _%properties109301%_ + _%fields110549%_ + __tmp111202 + _%slot-vector110538%_ + _%slot-table110545%_ + _%properties110551%_ '#f '#f))) (define gc-hash-table::t - (let* ((_%slots109268%_ '(gcht immediate)) - (_%slot-vector109270%_ (list->vector (cons '#f _%slots109268%_))) - (_%slot-table109277%_ - (let ((_%slot-table109272%_ + (let* ((_%slots110518%_ '(gcht immediate)) + (_%slot-vector110520%_ (list->vector (cons '#f _%slots110518%_))) + (_%slot-table110527%_ + (let ((_%slot-table110522%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp109955 - (lambda (_%slot109274%_ _%field109275%_) + (let ((__tmp111205 + (lambda (_%slot110524%_ _%field110525%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table109272%_ - _%slot109274%_ - _%field109275%_)) - (let ((__tmp109956 + _%slot-table110522%_ + _%slot110524%_ + _%field110525%_)) + (let ((__tmp111206 (let () (declare (not safe)) - (symbol->keyword _%slot109274%_)))) + (symbol->keyword _%slot110524%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table109272%_ - __tmp109956 - _%field109275%_)))) - (__tmp109953 - (let ((__tmp109954 + _%slot-table110522%_ + __tmp111206 + _%field110525%_)))) + (__tmp111203 + (let ((__tmp111204 (let () (declare (not safe)) - (##length _%slots109268%_)))) + (##length _%slots110518%_)))) (declare (not safe)) - (##iota __tmp109954 '1)))) + (##iota __tmp111204 '1)))) (declare (not safe)) - (##for-each __tmp109955 _%slots109268%_ __tmp109953)) - _%slot-table109272%_)) - (_%flags109279%_ + (##for-each __tmp111205 _%slots110518%_ __tmp111203)) + _%slot-table110522%_)) + (_%flags110529%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields109281%_ '#()) - (_%properties109283%_ + (_%fields110531%_ '#()) + (_%properties110533%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots109268%_))) + (__foldr1 cons '() _%slots110518%_))) (cons (cons 'struct: '#t) '()))) - (__tmp109957 (cons object::t (cons t::t '())))) + (__tmp111207 (cons object::t (cons t::t '())))) (declare (not safe)) (##structure class::t 'gerbil#gc-hash-table::t 'hash-table - _%flags109279%_ + _%flags110529%_ __gc-table::t - _%fields109281%_ - __tmp109957 - _%slot-vector109270%_ - _%slot-table109277%_ - _%properties109283%_ + _%fields110531%_ + __tmp111207 + _%slot-vector110520%_ + _%slot-table110527%_ + _%properties110533%_ '#f '#f))) (define locked-hash-table::t - (let ((__tmp109959 (list)) - (__tmp109958 + (let ((__tmp111209 (list)) + (__tmp111208 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#locked-hash-table::t 'locked-hash-table - __tmp109959 + __tmp111209 '(table lock) - __tmp109958 + __tmp111208 '#f))) (define locked-hash-table? (let () (declare (not safe)) (__make-class-predicate locked-hash-table::t))) (define make-locked-hash-table - (lambda _%$args109265%_ - (apply make-instance locked-hash-table::t _%$args109265%_))) + (lambda _%$args110515%_ + (apply make-instance locked-hash-table::t _%$args110515%_))) (define locked-hash-table-table (let () (declare (not safe)) @@ -867,24 +877,24 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator locked-hash-table::t 'lock))) (define checked-hash-table::t - (let ((__tmp109961 (list)) - (__tmp109960 + (let ((__tmp111211 (list)) + (__tmp111210 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#checked-hash-table::t 'checked-hash-table - __tmp109961 + __tmp111211 '(table key-check) - __tmp109960 + __tmp111210 '#f))) (define checked-hash-table? (let () (declare (not safe)) (__make-class-predicate checked-hash-table::t))) (define make-checked-hash-table - (lambda _%$args109262%_ - (apply make-instance checked-hash-table::t _%$args109262%_))) + (lambda _%$args110512%_ + (apply make-instance checked-hash-table::t _%$args110512%_))) (define checked-hash-table-table (let () (declare (not safe)) @@ -922,607 +932,643 @@ checked-hash-table::t 'key-check))) (define eq-hash-table::t - (let ((__tmp109963 (list hash-table::t)) - (__tmp109962 (cons (cons 'struct: '#t) '()))) + (let ((__tmp111213 (list hash-table::t)) + (__tmp111212 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#eq-hash-table 'hash-table - __tmp109963 + __tmp111213 '() - __tmp109962 + __tmp111212 '#f))) (define eq-hash-table? (let () (declare (not safe)) (__make-class-predicate eq-hash-table::t))) (define make-eq-hash-table - (lambda _%$args109259%_ - (apply make-instance eq-hash-table::t _%$args109259%_))) + (lambda _%$args110509%_ + (apply make-instance eq-hash-table::t _%$args110509%_))) (define eqv-hash-table::t - (let ((__tmp109965 (list hash-table::t)) - (__tmp109964 (cons (cons 'struct: '#t) '()))) + (let ((__tmp111215 (list hash-table::t)) + (__tmp111214 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#eqv-hash-table 'hash-table - __tmp109965 + __tmp111215 '() - __tmp109964 + __tmp111214 '#f))) (define eqv-hash-table? (let () (declare (not safe)) (__make-class-predicate eqv-hash-table::t))) (define make-eqv-hash-table - (lambda _%$args109256%_ - (apply make-instance eqv-hash-table::t _%$args109256%_))) + (lambda _%$args110506%_ + (apply make-instance eqv-hash-table::t _%$args110506%_))) (define symbol-hash-table::t - (let ((__tmp109967 (list hash-table::t)) - (__tmp109966 (cons (cons 'struct: '#t) '()))) + (let ((__tmp111217 (list hash-table::t)) + (__tmp111216 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#symbol-hash-table 'hash-table - __tmp109967 + __tmp111217 '() - __tmp109966 + __tmp111216 '#f))) (define symbol-hash-table? (let () (declare (not safe)) (__make-class-predicate symbol-hash-table::t))) (define make-symbol-hash-table - (lambda _%$args109253%_ - (apply make-instance symbol-hash-table::t _%$args109253%_))) + (lambda _%$args110503%_ + (apply make-instance symbol-hash-table::t _%$args110503%_))) (define string-hash-table::t - (let ((__tmp109969 (list hash-table::t)) - (__tmp109968 (cons (cons 'struct: '#t) '()))) + (let ((__tmp111219 (list hash-table::t)) + (__tmp111218 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#string-hash-table 'hash-table - __tmp109969 + __tmp111219 '() - __tmp109968 + __tmp111218 '#f))) (define string-hash-table? (let () (declare (not safe)) (__make-class-predicate string-hash-table::t))) (define make-string-hash-table - (lambda _%$args109250%_ - (apply make-instance string-hash-table::t _%$args109250%_))) + (lambda _%$args110500%_ + (apply make-instance string-hash-table::t _%$args110500%_))) (define immediate-hash-table::t - (let ((__tmp109971 (list hash-table::t)) - (__tmp109970 (cons (cons 'struct: '#t) '()))) + (let ((__tmp111221 (list hash-table::t)) + (__tmp111220 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#immediate-hash-table::t 'hash-table - __tmp109971 + __tmp111221 '() - __tmp109970 + __tmp111220 '#f))) (define immediate-hash-table? (let () (declare (not safe)) (__make-class-predicate immediate-hash-table::t))) (define make-immediate-hash-table - (lambda _%$args109247%_ - (apply make-instance immediate-hash-table::t _%$args109247%_))) + (lambda _%$args110497%_ + (apply make-instance immediate-hash-table::t _%$args110497%_))) (let () (declare (not safe)) - (bind-method!__0 hash-table::t 'ref raw-table-ref)) + (bind-method!__0 hash-table::t 'HashTable::ref raw-table-ref)) (let () (declare (not safe)) - (bind-method!__0 hash-table::t 'set! raw-table-set!)) + (bind-method!__0 hash-table::t 'HashTable::set! raw-table-set!)) (let () (declare (not safe)) - (bind-method!__0 hash-table::t 'update! raw-table-update!)) + (bind-method!__0 hash-table::t 'HashTable::update! raw-table-update!)) (let () (declare (not safe)) - (bind-method!__0 hash-table::t 'delete! raw-table-delete!)) + (bind-method!__0 hash-table::t 'HashTable::delete! raw-table-delete!)) (let () (declare (not safe)) - (bind-method!__0 hash-table::t 'for-each raw-table-for-each)) + (bind-method!__0 hash-table::t 'HashTable::for-each raw-table-for-each)) (let () (declare (not safe)) - (bind-method!__0 hash-table::t 'length &raw-table-count)) + (bind-method!__0 hash-table::t 'HashTable::length &raw-table-count)) (let () (declare (not safe)) - (bind-method!__0 hash-table::t 'copy raw-table-copy)) + (bind-method!__0 hash-table::t 'HashTable::copy raw-table-copy)) (let () (declare (not safe)) - (bind-method!__0 hash-table::t 'clear! raw-table-clear!)) + (bind-method!__0 hash-table::t 'HashTable::clear! raw-table-clear!)) (let () (declare (not safe)) - (bind-method!__0 eq-hash-table::t 'ref eq-table-ref)) + (bind-method!__0 eq-hash-table::t 'HashTable::ref eq-table-ref)) (let () (declare (not safe)) - (bind-method!__0 eq-hash-table::t 'set! eq-table-set!)) + (bind-method!__0 eq-hash-table::t 'HashTable::set! eq-table-set!)) (let () (declare (not safe)) - (bind-method!__0 eq-hash-table::t 'update! eq-table-update!)) + (bind-method!__0 eq-hash-table::t 'HashTable::update! eq-table-update!)) (let () (declare (not safe)) - (bind-method!__0 eq-hash-table::t 'delete! eq-table-delete!)) + (bind-method!__0 eq-hash-table::t 'HashTable::delete! eq-table-delete!)) (let () (declare (not safe)) - (bind-method!__0 eqv-hash-table::t 'ref eqv-table-ref)) + (bind-method!__0 eqv-hash-table::t 'HashTable::ref eqv-table-ref)) (let () (declare (not safe)) - (bind-method!__0 eqv-hash-table::t 'set! eqv-table-set!)) + (bind-method!__0 eqv-hash-table::t 'HashTable::set! eqv-table-set!)) (let () (declare (not safe)) - (bind-method!__0 eqv-hash-table::t 'update! eqv-table-update!)) + (bind-method!__0 + eqv-hash-table::t + 'HashTable::update! + eqv-table-update!)) (let () (declare (not safe)) - (bind-method!__0 eqv-hash-table::t 'delete! eqv-table-delete!)) + (bind-method!__0 + eqv-hash-table::t + 'HashTable::delete! + eqv-table-delete!)) (let () (declare (not safe)) - (bind-method!__0 symbol-hash-table::t 'ref symbolic-table-ref)) + (bind-method!__0 + symbol-hash-table::t + 'HashTable::ref + symbolic-table-ref)) (let () (declare (not safe)) - (bind-method!__0 symbol-hash-table::t 'set! symbolic-table-set!)) + (bind-method!__0 + symbol-hash-table::t + 'HashTable::set! + symbolic-table-set!)) (let () (declare (not safe)) - (bind-method!__0 symbol-hash-table::t 'update! symbolic-table-update!)) + (bind-method!__0 + symbol-hash-table::t + 'HashTable::update! + symbolic-table-update!)) (let () (declare (not safe)) - (bind-method!__0 symbol-hash-table::t 'delete! symbolic-table-delete!)) + (bind-method!__0 + symbol-hash-table::t + 'HashTable::delete! + symbolic-table-delete!)) (let () (declare (not safe)) - (bind-method!__0 string-hash-table::t 'ref string-table-ref)) + (bind-method!__0 string-hash-table::t 'HashTable::ref string-table-ref)) (let () (declare (not safe)) - (bind-method!__0 string-hash-table::t 'set! string-table-set!)) + (bind-method!__0 + string-hash-table::t + 'HashTable::set! + string-table-set!)) (let () (declare (not safe)) - (bind-method!__0 string-hash-table::t 'update! string-table-update!)) + (bind-method!__0 + string-hash-table::t + 'HashTable::update! + string-table-update!)) (let () (declare (not safe)) - (bind-method!__0 string-hash-table::t 'delete! string-table-delete!)) + (bind-method!__0 + string-hash-table::t + 'HashTable::delete! + string-table-delete!)) (let () (declare (not safe)) - (bind-method!__0 immediate-hash-table::t 'ref immediate-table-ref)) + (bind-method!__0 + immediate-hash-table::t + 'HashTable::ref + immediate-table-ref)) (let () (declare (not safe)) - (bind-method!__0 immediate-hash-table::t 'set! immediate-table-set!)) + (bind-method!__0 + immediate-hash-table::t + 'HashTable::set! + immediate-table-set!)) (let () (declare (not safe)) (bind-method!__0 immediate-hash-table::t - 'update! + 'HashTable::update! immediate-table-update!)) (let () (declare (not safe)) (bind-method!__0 immediate-hash-table::t - 'delete! + 'HashTable::delete! immediate-table-delete!)) (let () (declare (not safe)) - (bind-method!__0 gc-hash-table::t 'ref gc-table-ref)) + (bind-method!__0 gc-hash-table::t 'HashTable::ref gc-table-ref)) (let () (declare (not safe)) - (bind-method!__0 gc-hash-table::t 'set! gc-table-set!)) + (bind-method!__0 gc-hash-table::t 'HashTable::set! gc-table-set!)) (let () (declare (not safe)) - (bind-method!__0 gc-hash-table::t 'update! gc-table-update!)) + (bind-method!__0 gc-hash-table::t 'HashTable::update! gc-table-update!)) (let () (declare (not safe)) - (bind-method!__0 gc-hash-table::t 'delete! gc-table-delete!)) + (bind-method!__0 gc-hash-table::t 'HashTable::delete! gc-table-delete!)) (let () (declare (not safe)) - (bind-method!__0 gc-hash-table::t 'for-each gc-table-for-each)) + (bind-method!__0 + gc-hash-table::t + 'HashTable::for-each + gc-table-for-each)) (let () (declare (not safe)) - (bind-method!__0 gc-hash-table::t 'length gc-table-length)) + (bind-method!__0 gc-hash-table::t 'HashTable::length gc-table-length)) (let () (declare (not safe)) - (bind-method!__0 gc-hash-table::t 'copy gc-table-copy)) + (bind-method!__0 gc-hash-table::t 'HashTable::copy gc-table-copy)) (let () (declare (not safe)) - (bind-method!__0 gc-hash-table::t 'clear! gc-table-clear!)) + (bind-method!__0 gc-hash-table::t 'HashTable::clear! gc-table-clear!)) (define hash-table? HashTable?) (define is-hash-table? is-HashTable?) - (define _%locked-hash-table::ref105247%_ - (lambda (_%self105246109221%_ _%key109223%_ _%default109224%_) - (let* ((_%self109226%_ _%self105246109221%_) - (_%self109229%_ _%self109226%_)) - (let ((_%h109239%_ + (define _%locked-hash-table::HashTable::ref106497%_ + (lambda (_%self106496110471%_ _%key110473%_ _%default110474%_) + (let* ((_%self110476%_ _%self106496110471%_) + (_%self110479%_ _%self110476%_)) + (let ((_%h110489%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109229%_ '1 '#f '#f))) - (_%l109241%_ + (##unchecked-structure-ref _%self110479%_ '1 '#f '#f))) + (_%l110491%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109229%_ '2 '#f '#f)))) - (let ((__tmp109974 (lambda () (&Locker-read-lock! _%l109241%_))) - (__tmp109973 + (##unchecked-structure-ref _%self110479%_ '2 '#f '#f)))) + (let ((__tmp111224 (lambda () (&Locker-read-lock! _%l110491%_))) + (__tmp111223 (lambda () (&HashTable-ref - _%h109239%_ - _%key109223%_ - _%default109224%_))) - (__tmp109972 (lambda () (&Locker-read-unlock! _%l109241%_)))) + _%h110489%_ + _%key110473%_ + _%default110474%_))) + (__tmp111222 (lambda () (&Locker-read-unlock! _%l110491%_)))) (declare (not safe)) - (##dynamic-wind __tmp109974 __tmp109973 __tmp109972)))))) + (##dynamic-wind __tmp111224 __tmp111223 __tmp111222)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t - 'ref - _%locked-hash-table::ref105247%_ + 'HashTable::ref + _%locked-hash-table::HashTable::ref106497%_ '#f)) - (define _%locked-hash-table::set!105250%_ - (lambda (_%self105249109072%_ _%key109074%_ _%value109075%_) - (let* ((_%self109077%_ _%self105249109072%_) - (_%self109080%_ _%self109077%_)) - (let ((_%h109090%_ + (define _%locked-hash-table::HashTable::set!106500%_ + (lambda (_%self106499110322%_ _%key110324%_ _%value110325%_) + (let* ((_%self110327%_ _%self106499110322%_) + (_%self110330%_ _%self110327%_)) + (let ((_%h110340%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109080%_ '1 '#f '#f))) - (_%l109092%_ + (##unchecked-structure-ref _%self110330%_ '1 '#f '#f))) + (_%l110342%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109080%_ '2 '#f '#f)))) - (let ((__tmp109977 (lambda () (&Locker-write-lock! _%l109092%_))) - (__tmp109976 + (##unchecked-structure-ref _%self110330%_ '2 '#f '#f)))) + (let ((__tmp111227 (lambda () (&Locker-write-lock! _%l110342%_))) + (__tmp111226 (lambda () (&HashTable-set! - _%h109090%_ - _%key109074%_ - _%value109075%_))) - (__tmp109975 - (lambda () (&Locker-write-unlock! _%l109092%_)))) + _%h110340%_ + _%key110324%_ + _%value110325%_))) + (__tmp111225 + (lambda () (&Locker-write-unlock! _%l110342%_)))) (declare (not safe)) - (##dynamic-wind __tmp109977 __tmp109976 __tmp109975)))))) + (##dynamic-wind __tmp111227 __tmp111226 __tmp111225)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t - 'set! - _%locked-hash-table::set!105250%_ + 'HashTable::set! + _%locked-hash-table::HashTable::set!106500%_ '#f)) - (define _%locked-hash-table::update!105253%_ - (lambda (_%self105252108922%_ - _%key108924%_ - _%update108925%_ - _%default108926%_) - (let* ((_%self108928%_ _%self105252108922%_) - (_%self108931%_ _%self108928%_)) - (let ((_%h108941%_ + (define _%locked-hash-table::HashTable::update!106503%_ + (lambda (_%self106502110172%_ + _%key110174%_ + _%update110175%_ + _%default110176%_) + (let* ((_%self110178%_ _%self106502110172%_) + (_%self110181%_ _%self110178%_)) + (let ((_%h110191%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108931%_ '1 '#f '#f))) - (_%l108943%_ + (##unchecked-structure-ref _%self110181%_ '1 '#f '#f))) + (_%l110193%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108931%_ '2 '#f '#f)))) - (let ((__tmp109980 (lambda () (&Locker-write-lock! _%l108943%_))) - (__tmp109979 + (##unchecked-structure-ref _%self110181%_ '2 '#f '#f)))) + (let ((__tmp111230 (lambda () (&Locker-write-lock! _%l110193%_))) + (__tmp111229 (lambda () (&HashTable-update! - _%h108941%_ - _%key108924%_ - _%update108925%_ - _%default108926%_))) - (__tmp109978 - (lambda () (&Locker-write-unlock! _%l108943%_)))) + _%h110191%_ + _%key110174%_ + _%update110175%_ + _%default110176%_))) + (__tmp111228 + (lambda () (&Locker-write-unlock! _%l110193%_)))) (declare (not safe)) - (##dynamic-wind __tmp109980 __tmp109979 __tmp109978)))))) + (##dynamic-wind __tmp111230 __tmp111229 __tmp111228)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t - 'update! - _%locked-hash-table::update!105253%_ + 'HashTable::update! + _%locked-hash-table::HashTable::update!106503%_ '#f)) - (define _%locked-hash-table::delete!105256%_ - (lambda (_%self105255108774%_ _%key108776%_) - (let* ((_%self108778%_ _%self105255108774%_) - (_%self108781%_ _%self108778%_)) - (let ((_%h108791%_ + (define _%locked-hash-table::HashTable::delete!106506%_ + (lambda (_%self106505110024%_ _%key110026%_) + (let* ((_%self110028%_ _%self106505110024%_) + (_%self110031%_ _%self110028%_)) + (let ((_%h110041%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108781%_ '1 '#f '#f))) - (_%l108793%_ + (##unchecked-structure-ref _%self110031%_ '1 '#f '#f))) + (_%l110043%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108781%_ '2 '#f '#f)))) - (let ((__tmp109983 (lambda () (&Locker-write-lock! _%l108793%_))) - (__tmp109982 - (lambda () (&HashTable-delete! _%h108791%_ _%key108776%_))) - (__tmp109981 - (lambda () (&Locker-write-unlock! _%l108793%_)))) + (##unchecked-structure-ref _%self110031%_ '2 '#f '#f)))) + (let ((__tmp111233 (lambda () (&Locker-write-lock! _%l110043%_))) + (__tmp111232 + (lambda () (&HashTable-delete! _%h110041%_ _%key110026%_))) + (__tmp111231 + (lambda () (&Locker-write-unlock! _%l110043%_)))) (declare (not safe)) - (##dynamic-wind __tmp109983 __tmp109982 __tmp109981)))))) + (##dynamic-wind __tmp111233 __tmp111232 __tmp111231)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t - 'delete! - _%locked-hash-table::delete!105256%_ + 'HashTable::delete! + _%locked-hash-table::HashTable::delete!106506%_ '#f)) - (define _%locked-hash-table::for-each105259%_ - (lambda (_%self105258108626%_ _%proc108628%_) - (let* ((_%self108630%_ _%self105258108626%_) - (_%self108633%_ _%self108630%_)) - (let ((_%h108643%_ + (define _%locked-hash-table::HashTable::for-each106509%_ + (lambda (_%self106508109876%_ _%proc109878%_) + (let* ((_%self109880%_ _%self106508109876%_) + (_%self109883%_ _%self109880%_)) + (let ((_%h109893%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108633%_ '1 '#f '#f))) - (_%l108645%_ + (##unchecked-structure-ref _%self109883%_ '1 '#f '#f))) + (_%l109895%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108633%_ '2 '#f '#f)))) - (let ((__tmp109986 (lambda () (&Locker-read-lock! _%l108645%_))) - (__tmp109985 + (##unchecked-structure-ref _%self109883%_ '2 '#f '#f)))) + (let ((__tmp111236 (lambda () (&Locker-read-lock! _%l109895%_))) + (__tmp111235 (lambda () - (&HashTable-for-each _%h108643%_ _%proc108628%_))) - (__tmp109984 (lambda () (&Locker-read-unlock! _%l108645%_)))) + (&HashTable-for-each _%h109893%_ _%proc109878%_))) + (__tmp111234 (lambda () (&Locker-read-unlock! _%l109895%_)))) (declare (not safe)) - (##dynamic-wind __tmp109986 __tmp109985 __tmp109984)))))) + (##dynamic-wind __tmp111236 __tmp111235 __tmp111234)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t - 'for-each - _%locked-hash-table::for-each105259%_ + 'HashTable::for-each + _%locked-hash-table::HashTable::for-each106509%_ '#f)) - (define _%locked-hash-table::length105262%_ - (lambda (_%self105261108479%_) - (let* ((_%self108482%_ _%self105261108479%_) - (_%self108485%_ _%self108482%_)) - (let ((_%h108495%_ + (define _%locked-hash-table::HashTable::length106512%_ + (lambda (_%self106511109729%_) + (let* ((_%self109732%_ _%self106511109729%_) + (_%self109735%_ _%self109732%_)) + (let ((_%h109745%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108485%_ '1 '#f '#f))) - (_%l108497%_ + (##unchecked-structure-ref _%self109735%_ '1 '#f '#f))) + (_%l109747%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108485%_ '2 '#f '#f)))) - (let ((__tmp109989 (lambda () (&Locker-read-lock! _%l108497%_))) - (__tmp109988 (lambda () (&HashTable-length _%h108495%_))) - (__tmp109987 (lambda () (&Locker-read-unlock! _%l108497%_)))) + (##unchecked-structure-ref _%self109735%_ '2 '#f '#f)))) + (let ((__tmp111239 (lambda () (&Locker-read-lock! _%l109747%_))) + (__tmp111238 (lambda () (&HashTable-length _%h109745%_))) + (__tmp111237 (lambda () (&Locker-read-unlock! _%l109747%_)))) (declare (not safe)) - (##dynamic-wind __tmp109989 __tmp109988 __tmp109987)))))) + (##dynamic-wind __tmp111239 __tmp111238 __tmp111237)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t - 'length - _%locked-hash-table::length105262%_ + 'HashTable::length + _%locked-hash-table::HashTable::length106512%_ '#f)) - (define _%locked-hash-table::copy105265%_ - (lambda (_%self105264108332%_) - (let* ((_%self108335%_ _%self105264108332%_) - (_%self108338%_ _%self108335%_)) - (let ((_%h108348%_ + (define _%locked-hash-table::HashTable::copy106515%_ + (lambda (_%self106514109582%_) + (let* ((_%self109585%_ _%self106514109582%_) + (_%self109588%_ _%self109585%_)) + (let ((_%h109598%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108338%_ '1 '#f '#f))) - (_%l108350%_ + (##unchecked-structure-ref _%self109588%_ '1 '#f '#f))) + (_%l109600%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108338%_ '2 '#f '#f)))) - (let ((__tmp109992 (lambda () (&Locker-read-lock! _%l108350%_))) - (__tmp109991 (lambda () (&HashTable-copy _%h108348%_))) - (__tmp109990 (lambda () (&Locker-read-unlock! _%l108350%_)))) + (##unchecked-structure-ref _%self109588%_ '2 '#f '#f)))) + (let ((__tmp111242 (lambda () (&Locker-read-lock! _%l109600%_))) + (__tmp111241 (lambda () (&HashTable-copy _%h109598%_))) + (__tmp111240 (lambda () (&Locker-read-unlock! _%l109600%_)))) (declare (not safe)) - (##dynamic-wind __tmp109992 __tmp109991 __tmp109990)))))) + (##dynamic-wind __tmp111242 __tmp111241 __tmp111240)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t - 'copy - _%locked-hash-table::copy105265%_ + 'HashTable::copy + _%locked-hash-table::HashTable::copy106515%_ '#f)) - (define _%locked-hash-table::clear!105268%_ - (lambda (_%self105267108185%_) - (let* ((_%self108188%_ _%self105267108185%_) - (_%self108191%_ _%self108188%_)) - (let ((_%h108201%_ + (define _%locked-hash-table::HashTable::clear!106518%_ + (lambda (_%self106517109435%_) + (let* ((_%self109438%_ _%self106517109435%_) + (_%self109441%_ _%self109438%_)) + (let ((_%h109451%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108191%_ '1 '#f '#f))) - (_%l108203%_ + (##unchecked-structure-ref _%self109441%_ '1 '#f '#f))) + (_%l109453%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108191%_ '2 '#f '#f)))) - (let ((__tmp109995 (lambda () (&Locker-write-lock! _%l108203%_))) - (__tmp109994 (lambda () (&HashTable-clear! _%h108201%_))) - (__tmp109993 - (lambda () (&Locker-write-unlock! _%l108203%_)))) + (##unchecked-structure-ref _%self109441%_ '2 '#f '#f)))) + (let ((__tmp111245 (lambda () (&Locker-write-lock! _%l109453%_))) + (__tmp111244 (lambda () (&HashTable-clear! _%h109451%_))) + (__tmp111243 + (lambda () (&Locker-write-unlock! _%l109453%_)))) (declare (not safe)) - (##dynamic-wind __tmp109995 __tmp109994 __tmp109993)))))) + (##dynamic-wind __tmp111245 __tmp111244 __tmp111243)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t - 'clear! - _%locked-hash-table::clear!105268%_ + 'HashTable::clear! + _%locked-hash-table::HashTable::clear!106518%_ '#f)) - (let ((__tmp109996 (macro-type-mutex))) + (let ((__tmp111246 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp109996 'read-lock! mutex-lock!)) - (let ((__tmp109997 (macro-type-mutex))) + (bind-method!__0 __tmp111246 'Locker::read-lock! mutex-lock!)) + (let ((__tmp111247 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp109997 'read-unlock! mutex-unlock!)) - (let ((__tmp109998 (macro-type-mutex))) + (bind-method!__0 __tmp111247 'Locker::read-unlock! mutex-unlock!)) + (let ((__tmp111248 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp109998 'write-lock! mutex-lock!)) - (let ((__tmp109999 (macro-type-mutex))) + (bind-method!__0 __tmp111248 'Locker::write-lock! mutex-lock!)) + (let ((__tmp111249 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp109999 'write-unlock! mutex-unlock!)) - (define _%checked-hash-table::ref105482%_ - (lambda (_%self105481108035%_ _%key108037%_ _%default108038%_) - (let* ((_%self108040%_ _%self105481108035%_) - (_%self108042%_ _%self108040%_)) + (bind-method!__0 __tmp111249 'Locker::write-unlock! mutex-unlock!)) + (define _%checked-hash-table::HashTable::ref106732%_ + (lambda (_%self106731109285%_ _%key109287%_ _%default109288%_) + (let* ((_%self109290%_ _%self106731109285%_) + (_%self109292%_ _%self109290%_)) (declare (not safe)) - (let ((_%h108053%_ - (##unchecked-structure-ref _%self108042%_ '1 '#f '#f)) - (_%key?108055%_ - (##unchecked-structure-ref _%self108042%_ '2 '#f '#f))) - (if ((lambda (_%key?108058%_ _%key108059%_ _%default108060%_) - (_%key?108058%_ _%key108059%_)) - _%key?108055%_ - _%key108037%_ - _%default108038%_) - (&HashTable-ref _%h108053%_ _%key108037%_ _%default108038%_) + (let ((_%h109303%_ + (##unchecked-structure-ref _%self109292%_ '1 '#f '#f)) + (_%key?109305%_ + (##unchecked-structure-ref _%self109292%_ '2 '#f '#f))) + (if ((lambda (_%key?109308%_ _%key109309%_ _%default109310%_) + (_%key?109308%_ _%key109309%_)) + _%key?109305%_ + _%key109287%_ + _%default109288%_) + (&HashTable-ref _%h109303%_ _%key109287%_ _%default109288%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-ref 'value: - (cons _%key108037%_ (cons _%default108038%_ '()))) + (cons _%key109287%_ (cons _%default109288%_ '()))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t - 'ref - _%checked-hash-table::ref105482%_ + 'HashTable::ref + _%checked-hash-table::HashTable::ref106732%_ '#f)) - (define _%checked-hash-table::set!105485%_ - (lambda (_%self105484107885%_ _%key107887%_ _%value107888%_) - (let* ((_%self107890%_ _%self105484107885%_) - (_%self107892%_ _%self107890%_)) + (define _%checked-hash-table::HashTable::set!106735%_ + (lambda (_%self106734109135%_ _%key109137%_ _%value109138%_) + (let* ((_%self109140%_ _%self106734109135%_) + (_%self109142%_ _%self109140%_)) (declare (not safe)) - (let ((_%h107903%_ - (##unchecked-structure-ref _%self107892%_ '1 '#f '#f)) - (_%key?107905%_ - (##unchecked-structure-ref _%self107892%_ '2 '#f '#f))) - (if ((lambda (_%key?107908%_ _%key107909%_ _%value107910%_) - (_%key?107908%_ _%key107909%_)) - _%key?107905%_ - _%key107887%_ - _%value107888%_) - (&HashTable-set! _%h107903%_ _%key107887%_ _%value107888%_) + (let ((_%h109153%_ + (##unchecked-structure-ref _%self109142%_ '1 '#f '#f)) + (_%key?109155%_ + (##unchecked-structure-ref _%self109142%_ '2 '#f '#f))) + (if ((lambda (_%key?109158%_ _%key109159%_ _%value109160%_) + (_%key?109158%_ _%key109159%_)) + _%key?109155%_ + _%key109137%_ + _%value109138%_) + (&HashTable-set! _%h109153%_ _%key109137%_ _%value109138%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-set! 'value: - (cons _%key107887%_ (cons _%value107888%_ '()))) + (cons _%key109137%_ (cons _%value109138%_ '()))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t - 'set! - _%checked-hash-table::set!105485%_ + 'HashTable::set! + _%checked-hash-table::HashTable::set!106735%_ '#f)) - (define _%checked-hash-table::update!105488%_ - (lambda (_%self105487107733%_ - _%key107735%_ - _%update107736%_ - _%default107737%_) - (let* ((_%self107739%_ _%self105487107733%_) - (_%self107741%_ _%self107739%_)) + (define _%checked-hash-table::HashTable::update!106738%_ + (lambda (_%self106737108983%_ + _%key108985%_ + _%update108986%_ + _%default108987%_) + (let* ((_%self108989%_ _%self106737108983%_) + (_%self108991%_ _%self108989%_)) (declare (not safe)) - (let ((_%h107752%_ - (##unchecked-structure-ref _%self107741%_ '1 '#f '#f)) - (_%key?107754%_ - (##unchecked-structure-ref _%self107741%_ '2 '#f '#f))) - (if ((lambda (_%key?107757%_ - _%key107758%_ - _%update107759%_ - _%default107760%_) - (_%key?107757%_ _%key107758%_)) - _%key?107754%_ - _%key107735%_ - _%update107736%_ - _%default107737%_) + (let ((_%h109002%_ + (##unchecked-structure-ref _%self108991%_ '1 '#f '#f)) + (_%key?109004%_ + (##unchecked-structure-ref _%self108991%_ '2 '#f '#f))) + (if ((lambda (_%key?109007%_ + _%key109008%_ + _%update109009%_ + _%default109010%_) + (_%key?109007%_ _%key109008%_)) + _%key?109004%_ + _%key108985%_ + _%update108986%_ + _%default108987%_) (&HashTable-update! - _%h107752%_ - _%key107735%_ - _%update107736%_ - _%default107737%_) + _%h109002%_ + _%key108985%_ + _%update108986%_ + _%default108987%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-update! 'value: - (cons _%key107735%_ - (cons _%update107736%_ (cons _%default107737%_ '())))) + (cons _%key108985%_ + (cons _%update108986%_ (cons _%default108987%_ '())))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t - 'update! - _%checked-hash-table::update!105488%_ + 'HashTable::update! + _%checked-hash-table::HashTable::update!106738%_ '#f)) - (define _%checked-hash-table::delete!105491%_ - (lambda (_%self105490107585%_ _%key107587%_) - (let* ((_%self107589%_ _%self105490107585%_) - (_%self107591%_ _%self107589%_)) + (define _%checked-hash-table::HashTable::delete!106741%_ + (lambda (_%self106740108835%_ _%key108837%_) + (let* ((_%self108839%_ _%self106740108835%_) + (_%self108841%_ _%self108839%_)) (declare (not safe)) - (let ((_%h107602%_ - (##unchecked-structure-ref _%self107591%_ '1 '#f '#f)) - (_%key?107604%_ - (##unchecked-structure-ref _%self107591%_ '2 '#f '#f))) - (if ((lambda (_%key?107607%_ _%key107608%_) - (_%key?107607%_ _%key107608%_)) - _%key?107604%_ - _%key107587%_) - (&HashTable-delete! _%h107602%_ _%key107587%_) + (let ((_%h108852%_ + (##unchecked-structure-ref _%self108841%_ '1 '#f '#f)) + (_%key?108854%_ + (##unchecked-structure-ref _%self108841%_ '2 '#f '#f))) + (if ((lambda (_%key?108857%_ _%key108858%_) + (_%key?108857%_ _%key108858%_)) + _%key?108854%_ + _%key108837%_) + (&HashTable-delete! _%h108852%_ _%key108837%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-delete! 'value: - (cons _%key107587%_ '())) + (cons _%key108837%_ '())) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t - 'delete! - _%checked-hash-table::delete!105491%_ + 'HashTable::delete! + _%checked-hash-table::HashTable::delete!106741%_ '#f)) - (define _%checked-hash-table::for-each105494%_ - (lambda (_%self105493107437%_ _%proc107439%_) - (let* ((_%self107441%_ _%self105493107437%_) - (_%self107443%_ _%self107441%_)) + (define _%checked-hash-table::HashTable::for-each106744%_ + (lambda (_%self106743108687%_ _%proc108689%_) + (let* ((_%self108691%_ _%self106743108687%_) + (_%self108693%_ _%self108691%_)) (declare (not safe)) - (let ((_%h107454%_ - (##unchecked-structure-ref _%self107443%_ '1 '#f '#f)) - (_%key?107456%_ - (##unchecked-structure-ref _%self107443%_ '2 '#f '#f))) - (if ((lambda (_%key?107459%_ _%proc107460%_) '#t) - _%key?107456%_ - _%proc107439%_) - (&HashTable-for-each _%h107454%_ _%proc107439%_) + (let ((_%h108704%_ + (##unchecked-structure-ref _%self108693%_ '1 '#f '#f)) + (_%key?108706%_ + (##unchecked-structure-ref _%self108693%_ '2 '#f '#f))) + (if ((lambda (_%key?108709%_ _%proc108710%_) '#t) + _%key?108706%_ + _%proc108689%_) + (&HashTable-for-each _%h108704%_ _%proc108689%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-for-each 'value: - (cons _%proc107439%_ '())) + (cons _%proc108689%_ '())) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t - 'for-each - _%checked-hash-table::for-each105494%_ + 'HashTable::for-each + _%checked-hash-table::HashTable::for-each106744%_ '#f)) - (define _%checked-hash-table::length105497%_ - (lambda (_%self105496107293%_) - (let* ((_%self107296%_ _%self105496107293%_) - (_%self107298%_ _%self107296%_)) + (define _%checked-hash-table::HashTable::length106747%_ + (lambda (_%self106746108543%_) + (let* ((_%self108546%_ _%self106746108543%_) + (_%self108548%_ _%self108546%_)) (declare (not safe)) - (let ((_%h107309%_ - (##unchecked-structure-ref _%self107298%_ '1 '#f '#f)) - (_%key?107311%_ - (##unchecked-structure-ref _%self107298%_ '2 '#f '#f))) + (let ((_%h108559%_ + (##unchecked-structure-ref _%self108548%_ '1 '#f '#f)) + (_%key?108561%_ + (##unchecked-structure-ref _%self108548%_ '2 '#f '#f))) (if '#!void - (&HashTable-length _%h107309%_) + (&HashTable-length _%h108559%_) (begin (raise-contract-violation-error '"invalid key" @@ -1535,20 +1581,20 @@ (declare (not safe)) (__bind-method!__% checked-hash-table::t - 'length - _%checked-hash-table::length105497%_ + 'HashTable::length + _%checked-hash-table::HashTable::length106747%_ '#f)) - (define _%checked-hash-table::copy105500%_ - (lambda (_%self105499107149%_) - (let* ((_%self107152%_ _%self105499107149%_) - (_%self107154%_ _%self107152%_)) + (define _%checked-hash-table::HashTable::copy106750%_ + (lambda (_%self106749108399%_) + (let* ((_%self108402%_ _%self106749108399%_) + (_%self108404%_ _%self108402%_)) (declare (not safe)) - (let ((_%h107165%_ - (##unchecked-structure-ref _%self107154%_ '1 '#f '#f)) - (_%key?107167%_ - (##unchecked-structure-ref _%self107154%_ '2 '#f '#f))) + (let ((_%h108415%_ + (##unchecked-structure-ref _%self108404%_ '1 '#f '#f)) + (_%key?108417%_ + (##unchecked-structure-ref _%self108404%_ '2 '#f '#f))) (if '#!void - (&HashTable-copy _%h107165%_) + (&HashTable-copy _%h108415%_) (begin (raise-contract-violation-error '"invalid key" @@ -1561,20 +1607,20 @@ (declare (not safe)) (__bind-method!__% checked-hash-table::t - 'copy - _%checked-hash-table::copy105500%_ + 'HashTable::copy + _%checked-hash-table::HashTable::copy106750%_ '#f)) - (define _%checked-hash-table::clear!105503%_ - (lambda (_%self105502107005%_) - (let* ((_%self107008%_ _%self105502107005%_) - (_%self107010%_ _%self107008%_)) + (define _%checked-hash-table::HashTable::clear!106753%_ + (lambda (_%self106752108255%_) + (let* ((_%self108258%_ _%self106752108255%_) + (_%self108260%_ _%self108258%_)) (declare (not safe)) - (let ((_%h107021%_ - (##unchecked-structure-ref _%self107010%_ '1 '#f '#f)) - (_%key?107023%_ - (##unchecked-structure-ref _%self107010%_ '2 '#f '#f))) + (let ((_%h108271%_ + (##unchecked-structure-ref _%self108260%_ '1 '#f '#f)) + (_%key?108273%_ + (##unchecked-structure-ref _%self108260%_ '2 '#f '#f))) (if '#!void - (&HashTable-clear! _%h107021%_) + (&HashTable-clear! _%h108271%_) (begin (raise-contract-violation-error '"invalid key" @@ -1587,395 +1633,395 @@ (declare (not safe)) (__bind-method!__% checked-hash-table::t - 'clear! - _%checked-hash-table::clear!105503%_ + 'HashTable::clear! + _%checked-hash-table::HashTable::clear!106753%_ '#f)) (define make-generic-hash-table - (lambda (_%table106875%_ - _%count106876%_ - _%free106877%_ - _%hash106878%_ - _%test106879%_ - _%seed106880%_) + (lambda (_%table108125%_ + _%count108126%_ + _%free108127%_ + _%hash108128%_ + _%test108129%_ + _%seed108130%_) (let () (declare (not safe)) (##structure hash-table::t - _%table106875%_ - _%count106876%_ - _%free106877%_ - _%hash106878%_ - _%test106879%_ - _%seed106880%_)))) + _%table108125%_ + _%count108126%_ + _%free108127%_ + _%hash108128%_ + _%test108129%_ + _%seed108130%_)))) (define make-hash-table__% - (lambda (_%@@keywords106636%_ - _%size-hint106626106637%_ - _%seed106627106639%_ - _%test106628106641%_ - _%hash106629106643%_ - _%lock106630106645%_ - _%check106631106647%_ - _%weak-keys106632106649%_ - _%weak-values106633106651%_) - (let* ((_%size-hint106654%_ - (if (eq? _%size-hint106626106637%_ absent-value) + (lambda (_%@@keywords107886%_ + _%size-hint107876107887%_ + _%seed107877107889%_ + _%test107878107891%_ + _%hash107879107893%_ + _%lock107880107895%_ + _%check107881107897%_ + _%weak-keys107882107899%_ + _%weak-values107883107901%_) + (let* ((_%size-hint107904%_ + (if (eq? _%size-hint107876107887%_ absent-value) '#f - _%size-hint106626106637%_)) - (_%seed106656%_ - (if (eq? _%seed106627106639%_ absent-value) + _%size-hint107876107887%_)) + (_%seed107906%_ + (if (eq? _%seed107877107889%_ absent-value) '#f - _%seed106627106639%_)) - (_%test106658%_ - (if (eq? _%test106628106641%_ absent-value) + _%seed107877107889%_)) + (_%test107908%_ + (if (eq? _%test107878107891%_ absent-value) equal? - _%test106628106641%_)) - (_%hash106660%_ - (if (eq? _%hash106629106643%_ absent-value) + _%test107878107891%_)) + (_%hash107910%_ + (if (eq? _%hash107879107893%_ absent-value) '#f - _%hash106629106643%_)) - (_%lock106662%_ - (if (eq? _%lock106630106645%_ absent-value) + _%hash107879107893%_)) + (_%lock107912%_ + (if (eq? _%lock107880107895%_ absent-value) '#f - _%lock106630106645%_)) - (_%check106664%_ - (if (eq? _%check106631106647%_ absent-value) + _%lock107880107895%_)) + (_%check107914%_ + (if (eq? _%check107881107897%_ absent-value) '#f - _%check106631106647%_)) - (_%weak-keys106666%_ - (if (eq? _%weak-keys106632106649%_ absent-value) + _%check107881107897%_)) + (_%weak-keys107916%_ + (if (eq? _%weak-keys107882107899%_ absent-value) '#f - _%weak-keys106632106649%_)) - (_%weak-values106668%_ - (if (eq? _%weak-values106633106651%_ absent-value) + _%weak-keys107882107899%_)) + (_%weak-values107918%_ + (if (eq? _%weak-values107883107901%_ absent-value) '#f - _%weak-values106633106651%_))) - (letrec ((_%table-seed106671%_ + _%weak-values107883107901%_))) + (letrec ((_%table-seed107921%_ (lambda () - (if (fixnum? _%seed106656%_) - _%seed106656%_ + (if (fixnum? _%seed107906%_) + _%seed107906%_ (random-integer (macro-max-fixnum32))))) - (_%wrap-lock106672%_ - (lambda (_%ht106849%_) - (let ((_%ht106852%_ _%ht106849%_)) - (_%__wrap-lock106673%_ _%ht106852%_)))) - (_%__wrap-lock106673%_ - (lambda (_%ht106831%_) - (let ((_%ht106834%_ _%ht106831%_)) - (if _%lock106662%_ - (let ((_%$obj106846%_ - (let ((__tmp110000 - (let ((_%$obj106843%_ - _%lock106662%_)) + (_%wrap-lock107922%_ + (lambda (_%ht108099%_) + (let ((_%ht108102%_ _%ht108099%_)) + (_%__wrap-lock107923%_ _%ht108102%_)))) + (_%__wrap-lock107923%_ + (lambda (_%ht108081%_) + (let ((_%ht108084%_ _%ht108081%_)) + (if _%lock107912%_ + (let ((_%$obj108096%_ + (let ((__tmp111250 + (let ((_%$obj108093%_ + _%lock107912%_)) (if (and (let () (declare (not safe)) (##structure? - _%$obj106843%_)) + _%$obj108093%_)) (eq? Locker::t (let () (declare (not safe)) (##structure-type - _%$obj106843%_))) + _%$obj108093%_))) '#t) - _%$obj106843%_ + _%$obj108093%_ (let () (declare (not safe)) (cast Locker::interface - _%$obj106843%_)))))) + _%$obj108093%_)))))) (declare (not safe)) (##structure locked-hash-table::t - _%ht106834%_ - __tmp110000)))) + _%ht108084%_ + __tmp111250)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj106846%_)) + (##structure? _%$obj108096%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj106846%_))) + _%$obj108096%_))) '#t) - _%$obj106846%_ + _%$obj108096%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj106846%_)))) - _%ht106834%_)))) - (_%wrap-checked106674%_ - (lambda (_%ht106818%_ _%implicit106819%_) - (let ((_%ht106822%_ _%ht106818%_)) - (_%__wrap-checked106675%_ - _%ht106822%_ - _%implicit106819%_)))) - (_%__wrap-checked106675%_ - (lambda (_%ht106791%_ _%implicit106792%_) - (let ((_%ht106795%_ _%ht106791%_)) - (if _%check106664%_ - (let ((_%$obj106815%_ - (let ((__tmp110001 - (if (procedure? _%check106664%_) - _%check106664%_ - _%implicit106792%_))) + _%$obj108096%_)))) + _%ht108084%_)))) + (_%wrap-checked107924%_ + (lambda (_%ht108068%_ _%implicit108069%_) + (let ((_%ht108072%_ _%ht108068%_)) + (_%__wrap-checked107925%_ + _%ht108072%_ + _%implicit108069%_)))) + (_%__wrap-checked107925%_ + (lambda (_%ht108041%_ _%implicit108042%_) + (let ((_%ht108045%_ _%ht108041%_)) + (if _%check107914%_ + (let ((_%$obj108065%_ + (let ((__tmp111251 + (if (procedure? _%check107914%_) + _%check107914%_ + _%implicit108042%_))) (declare (not safe)) (##structure checked-hash-table::t - _%ht106795%_ - __tmp110001)))) + _%ht108045%_ + __tmp111251)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj106815%_)) + (##structure? _%$obj108065%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj106815%_))) + _%$obj108065%_))) '#t) - _%$obj106815%_ + _%$obj108065%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj106815%_)))) - _%ht106795%_)))) - (_%make106676%_ - (lambda (_%kons106775%_ - _%key?106776%_ - _%hash106777%_ - _%test106778%_) - (let* ((_%size106781%_ + _%$obj108065%_)))) + _%ht108045%_)))) + (_%make107926%_ + (lambda (_%kons108025%_ + _%key?108026%_ + _%hash108027%_ + _%test108028%_) + (let* ((_%size108031%_ (let () (declare (not safe)) (raw-table-size-hint->size - _%size-hint106654%_))) - (_%table106783%_ - (let ((__tmp110002 (macro-unused-obj))) + _%size-hint107904%_))) + (_%table108033%_ + (let ((__tmp111252 (macro-unused-obj))) (declare (not safe)) - (##make-vector _%size106781%_ __tmp110002))) - (_%ht106788%_ - (let ((_%$obj106785%_ - (_%kons106775%_ - _%table106783%_ + (##make-vector _%size108031%_ __tmp111252))) + (_%ht108038%_ + (let ((_%$obj108035%_ + (_%kons108025%_ + _%table108033%_ '0 (let () (declare (not safe)) - (##fxquotient _%size106781%_ '2)) - _%hash106777%_ - _%test106778%_ - (_%table-seed106671%_)))) + (##fxquotient _%size108031%_ '2)) + _%hash108027%_ + _%test108028%_ + (_%table-seed107921%_)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj106785%_)) + (##structure? _%$obj108035%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj106785%_))) + _%$obj108035%_))) '#t) - _%$obj106785%_ + _%$obj108035%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj106785%_)))))) - (_%__wrap-checked106675%_ - (_%__wrap-lock106673%_ _%ht106788%_) - _%key?106776%_)))) - (_%make-gc-hash-table106677%_ + _%$obj108035%_)))))) + (_%__wrap-checked107925%_ + (_%__wrap-lock107923%_ _%ht108038%_) + _%key?108026%_)))) + (_%make-gc-hash-table107927%_ (lambda () - (let ((_%ht106773%_ - (let ((_%$obj106770%_ + (let ((_%ht108023%_ + (let ((_%$obj108020%_ (let () (declare (not safe)) (make-gc-table__1 - _%size-hint106654%_ + _%size-hint107904%_ gc-hash-table::t)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj106770%_)) + (##structure? _%$obj108020%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj106770%_))) + _%$obj108020%_))) '#t) - _%$obj106770%_ + _%$obj108020%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj106770%_)))))) - (_%__wrap-checked106675%_ - (_%__wrap-lock106673%_ _%ht106773%_) + _%$obj108020%_)))))) + (_%__wrap-checked107925%_ + (_%__wrap-lock107923%_ _%ht108023%_) true)))) - (_%make-gambit-table106678%_ + (_%make-gambit-table107928%_ (lambda () - (let* ((_%size106747%_ - (let ((_%$e106744%_ _%size-hint106654%_)) - (if _%$e106744%_ - _%$e106744%_ + (let* ((_%size107997%_ + (let ((_%$e107994%_ _%size-hint107904%_)) + (if _%$e107994%_ + _%$e107994%_ (macro-absent-obj)))) - (_%test106752%_ - (let ((_%$e106749%_ _%test106658%_)) - (if _%$e106749%_ _%$e106749%_ equal?))) - (_%hash106760%_ - (let ((_%$e106754%_ _%hash106660%_)) - (if _%$e106754%_ - _%$e106754%_ - (if (eq? _%test106752%_ eq?) + (_%test108002%_ + (let ((_%$e107999%_ _%test107908%_)) + (if _%$e107999%_ _%$e107999%_ equal?))) + (_%hash108010%_ + (let ((_%$e108004%_ _%hash107910%_)) + (if _%$e108004%_ + _%$e108004%_ + (if (eq? _%test108002%_ eq?) eq?-hash - (if (eq? _%test106752%_ eqv?) + (if (eq? _%test108002%_ eqv?) eqv?-hash equal?-hash))))) - (_%ht106765%_ - (let ((_%$obj106762%_ + (_%ht108015%_ + (let ((_%$obj108012%_ (make-table 'size: - _%size106747%_ + _%size107997%_ 'test: - _%test106752%_ + _%test108002%_ 'hash: - _%hash106760%_ + _%hash108010%_ 'weak-keys: - _%weak-keys106666%_ + _%weak-keys107916%_ 'weak-values: - _%weak-values106668%_))) + _%weak-values107918%_))) (if (and (let () (declare (not safe)) - (##structure? _%$obj106762%_)) + (##structure? _%$obj108012%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj106762%_))) + _%$obj108012%_))) '#t) - _%$obj106762%_ + _%$obj108012%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj106762%_)))))) - (_%__wrap-checked106675%_ - (_%__wrap-lock106673%_ _%ht106765%_) + _%$obj108012%_)))))) + (_%__wrap-checked107925%_ + (_%__wrap-lock107923%_ _%ht108015%_) true))))) - (if (or _%weak-keys106666%_ _%weak-values106668%_) - (_%make-gambit-table106678%_) - (if (and (or (eq? _%test106658%_ eq?) - (eq? _%test106658%_ ##eq?)) - (or (not _%hash106660%_) - (eq? _%hash106660%_ eq?-hash) - (eq? _%hash106660%_ eq-hash)) - (not _%seed106656%_)) - (_%make-gc-hash-table106677%_) - (if (and (or (eq? _%test106658%_ eq?) - (eq? _%test106658%_ ##eq?)) - (or (not _%hash106660%_) - (eq? _%hash106660%_ eq?-hash) - (eq? _%hash106660%_ eq-hash))) - (_%make106676%_ make-eq-hash-table true eq-hash eq?) - (if (and (or (eq? _%test106658%_ eqv?) - (eq? _%test106658%_ ##eqv?)) - (or (not _%hash106660%_) - (eq? _%hash106660%_ eqv?-hash) - (eq? _%hash106660%_ eqv-hash))) - (_%make106676%_ + (if (or _%weak-keys107916%_ _%weak-values107918%_) + (_%make-gambit-table107928%_) + (if (and (or (eq? _%test107908%_ eq?) + (eq? _%test107908%_ ##eq?)) + (or (not _%hash107910%_) + (eq? _%hash107910%_ eq?-hash) + (eq? _%hash107910%_ eq-hash)) + (not _%seed107906%_)) + (_%make-gc-hash-table107927%_) + (if (and (or (eq? _%test107908%_ eq?) + (eq? _%test107908%_ ##eq?)) + (or (not _%hash107910%_) + (eq? _%hash107910%_ eq?-hash) + (eq? _%hash107910%_ eq-hash))) + (_%make107926%_ make-eq-hash-table true eq-hash eq?) + (if (and (or (eq? _%test107908%_ eqv?) + (eq? _%test107908%_ ##eqv?)) + (or (not _%hash107910%_) + (eq? _%hash107910%_ eqv?-hash) + (eq? _%hash107910%_ eqv-hash))) + (_%make107926%_ make-eqv-hash-table true eqv-hash eqv?) - (if (and (or (eq? _%test106658%_ eq?) - (eq? _%test106658%_ ##eq?)) - (or (eq? _%hash106660%_ symbolic-hash) - (eq? _%hash106660%_ ##symbol-hash))) - (_%make106676%_ + (if (and (or (eq? _%test107908%_ eq?) + (eq? _%test107908%_ ##eq?)) + (or (eq? _%hash107910%_ symbolic-hash) + (eq? _%hash107910%_ ##symbol-hash))) + (_%make107926%_ make-symbol-hash-table symbolic? symbolic-hash eq?) - (if (and (or (eq? _%test106658%_ eq?) - (eq? _%test106658%_ ##eq?)) - (eq? _%hash106660%_ immediate-hash)) - (_%make106676%_ + (if (and (or (eq? _%test107908%_ eq?) + (eq? _%test107908%_ ##eq?)) + (eq? _%hash107910%_ immediate-hash)) + (_%make107926%_ make-immediate-hash-table immediate? immediate-hash eq?) - (if (and (or (eq? _%test106658%_ equal?) - (eq? _%test106658%_ ##equal?) - (eq? _%test106658%_ string=?) - (eq? _%test106658%_ + (if (and (or (eq? _%test107908%_ equal?) + (eq? _%test107908%_ ##equal?) + (eq? _%test107908%_ string=?) + (eq? _%test107908%_ ##string=?)) - (or (eq? _%hash106660%_ + (or (eq? _%hash107910%_ string-hash) - (eq? _%hash106660%_ + (eq? _%hash107910%_ ##string=?-hash))) - (_%make106676%_ + (_%make107926%_ make-string-hash-table string? string-hash ##string=?) - (if (and (eq? _%test106658%_ equal?) - (not _%hash106660%_)) - (_%make106676%_ + (if (and (eq? _%test107908%_ equal?) + (not _%hash107910%_)) + (_%make107926%_ make-generic-hash-table true equal?-hash equal?) - (if (procedure? _%test106658%_) - (if (procedure? _%hash106660%_) - (_%make106676%_ + (if (procedure? _%test107908%_) + (if (procedure? _%hash107910%_) + (_%make107926%_ make-generic-hash-table true - _%hash106660%_ - _%test106658%_) + _%hash107910%_ + _%test107908%_) (let () (let () (declare (not safe)) (error '"bad hash table hash function; expected procedure" - _%hash106660%_)) + _%hash107910%_)) '#!void)) (let () (let () (declare (not safe)) (error '"bad hash table test function; expected procedure" - _%test106658%_)) + _%test107908%_)) '#!void)))))))))))))) (define make-hash-table__@ - (lambda (_%@@keywords106865%_ . _%args106866%_) + (lambda (_%@@keywords108115%_ . _%args108116%_) (apply make-hash-table__% - _%@@keywords106865%_ + _%@@keywords108115%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords106865%_ 'size: absent-value)) + (symbolic-table-ref _%@@keywords108115%_ 'size: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords106865%_ 'seed: absent-value)) + (symbolic-table-ref _%@@keywords108115%_ 'seed: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords106865%_ 'test: absent-value)) + (symbolic-table-ref _%@@keywords108115%_ 'test: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords106865%_ 'hash: absent-value)) + (symbolic-table-ref _%@@keywords108115%_ 'hash: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords106865%_ 'lock: absent-value)) + (symbolic-table-ref _%@@keywords108115%_ 'lock: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords106865%_ + _%@@keywords108115%_ 'check: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords106865%_ + _%@@keywords108115%_ 'weak-keys: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords106865%_ + _%@@keywords108115%_ 'weak-values: absent-value)) - _%args106866%_))) + _%args108116%_))) (define make-hash-table - (lambda _%args106634106872%_ + (lambda _%args107884108122%_ (apply keyword-dispatch '#(#f #f @@ -2018,883 +2064,883 @@ #f #f) make-hash-table__@ - _%args106634106872%_))) + _%args107884108122%_))) (define make-hash-table-eq - (lambda _%args106623%_ - (apply make-hash-table 'test: eq? _%args106623%_))) + (lambda _%args107873%_ + (apply make-hash-table 'test: eq? _%args107873%_))) (define make-hash-table-eqv - (lambda _%args106621%_ - (apply make-hash-table 'test: eqv? _%args106621%_))) + (lambda _%args107871%_ + (apply make-hash-table 'test: eqv? _%args107871%_))) (define make-hash-table-symbolic - (lambda _%args106619%_ + (lambda _%args107869%_ (apply make-hash-table 'test: eq? 'hash: symbolic-hash - _%args106619%_))) + _%args107869%_))) (define make-hash-table-string - (lambda _%args106617%_ + (lambda _%args107867%_ (apply make-hash-table 'test: string=? 'hash: string-hash - _%args106617%_))) + _%args107867%_))) (define make-hash-table-immediate - (lambda _%args106615%_ + (lambda _%args107865%_ (apply make-hash-table 'test: eq? 'hash: immediate-hash - _%args106615%_))) + _%args107865%_))) (define list->hash-table - (lambda (_%lst106612%_ . _%args106613%_) + (lambda (_%lst107862%_ . _%args107863%_) (list->hash-table! - _%lst106612%_ + _%lst107862%_ (apply make-hash-table 'size: - (length _%lst106612%_) - _%args106613%_)))) + (length _%lst107862%_) + _%args107863%_)))) (define list->hash-table-eq - (lambda (_%lst106609%_ . _%args106610%_) + (lambda (_%lst107859%_ . _%args107860%_) (list->hash-table! - _%lst106609%_ + _%lst107859%_ (apply make-hash-table-eq 'size: - (length _%lst106609%_) - _%args106610%_)))) + (length _%lst107859%_) + _%args107860%_)))) (define list->hash-table-eqv - (lambda (_%lst106606%_ . _%args106607%_) + (lambda (_%lst107856%_ . _%args107857%_) (list->hash-table! - _%lst106606%_ + _%lst107856%_ (apply make-hash-table-eqv 'size: - (length _%lst106606%_) - _%args106607%_)))) + (length _%lst107856%_) + _%args107857%_)))) (define list->hash-table-symbolic - (lambda (_%lst106603%_ . _%args106604%_) + (lambda (_%lst107853%_ . _%args107854%_) (list->hash-table! - _%lst106603%_ + _%lst107853%_ (apply make-hash-table-symbolic 'size: - (length _%lst106603%_) - _%args106604%_)))) + (length _%lst107853%_) + _%args107854%_)))) (define list->hash-table-string - (lambda (_%lst106600%_ . _%args106601%_) + (lambda (_%lst107850%_ . _%args107851%_) (list->hash-table! - _%lst106600%_ + _%lst107850%_ (apply make-hash-table-string 'size: - (length _%lst106600%_) - _%args106601%_)))) + (length _%lst107850%_) + _%args107851%_)))) (define list->hash-table-immediate - (lambda (_%lst106597%_ . _%args106598%_) + (lambda (_%lst107847%_ . _%args107848%_) (list->hash-table! - _%lst106597%_ + _%lst107847%_ (apply make-hash-table-immediate 'size: - (length _%lst106597%_) - _%args106598%_)))) + (length _%lst107847%_) + _%args107848%_)))) (define list->hash-table! - (lambda (_%lst106564%_ _%h106565%_) + (lambda (_%lst107814%_ _%h107815%_) (for-each - (lambda (_%el106567%_) - (let* ((_%el106568106575%_ _%el106567%_) - (_%E106570106579%_ + (lambda (_%el107817%_) + (let* ((_%el107818107825%_ _%el107817%_) + (_%E107820107829%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%el106568106575%_ + _%el107818107825%_ '([k . v]))) '#!void)) - (_%K106571106585%_ - (lambda (_%v106582%_ _%k106583%_) - (&HashTable-set! _%h106565%_ _%k106583%_ _%v106582%_)))) - (if (pair? _%el106568106575%_) - (let ((_%hd106572106588%_ + (_%K107821107835%_ + (lambda (_%v107832%_ _%k107833%_) + (&HashTable-set! _%h107815%_ _%k107833%_ _%v107832%_)))) + (if (pair? _%el107818107825%_) + (let ((_%hd107822107838%_ (let () (declare (not safe)) - (##car _%el106568106575%_))) - (_%tl106573106590%_ + (##car _%el107818107825%_))) + (_%tl107823107840%_ (let () (declare (not safe)) - (##cdr _%el106568106575%_)))) - (let* ((_%k106593%_ _%hd106572106588%_) - (_%v106595%_ _%tl106573106590%_)) - (_%K106571106585%_ _%v106595%_ _%k106593%_))) - (_%E106570106579%_)))) - _%lst106564%_) - _%h106565%_)) + (##cdr _%el107818107825%_)))) + (let* ((_%k107843%_ _%hd107822107838%_) + (_%v107845%_ _%tl107823107840%_)) + (_%K107821107835%_ _%v107845%_ _%k107843%_))) + (_%E107820107829%_)))) + _%lst107814%_) + _%h107815%_)) (define plist->hash-table - (lambda (_%lst106561%_ . _%args106562%_) + (lambda (_%lst107811%_ . _%args107812%_) (plist->hash-table! - _%lst106561%_ + _%lst107811%_ (apply make-hash-table 'size: - (length _%lst106561%_) - _%args106562%_)))) + (length _%lst107811%_) + _%args107812%_)))) (define plist->hash-table-eq - (lambda (_%lst106558%_ . _%args106559%_) + (lambda (_%lst107808%_ . _%args107809%_) (plist->hash-table! - _%lst106558%_ + _%lst107808%_ (apply make-hash-table-eq 'size: - (length _%lst106558%_) - _%args106559%_)))) + (length _%lst107808%_) + _%args107809%_)))) (define plist->hash-table-eqv - (lambda (_%lst106555%_ . _%args106556%_) + (lambda (_%lst107805%_ . _%args107806%_) (plist->hash-table! - _%lst106555%_ + _%lst107805%_ (apply make-hash-table-eqv 'size: - (length _%lst106555%_) - _%args106556%_)))) + (length _%lst107805%_) + _%args107806%_)))) (define plist->hash-table-symbolic - (lambda (_%lst106552%_ . _%args106553%_) + (lambda (_%lst107802%_ . _%args107803%_) (plist->hash-table! - _%lst106552%_ + _%lst107802%_ (apply make-hash-table-symbolic 'size: - (length _%lst106552%_) - _%args106553%_)))) + (length _%lst107802%_) + _%args107803%_)))) (define plist->hash-table-string - (lambda (_%lst106549%_ . _%args106550%_) + (lambda (_%lst107799%_ . _%args107800%_) (plist->hash-table! - _%lst106549%_ + _%lst107799%_ (apply make-hash-table-string 'size: - (length _%lst106549%_) - _%args106550%_)))) + (length _%lst107799%_) + _%args107800%_)))) (define plist->hash-table-immediate - (lambda (_%lst106546%_ . _%args106547%_) + (lambda (_%lst107796%_ . _%args107797%_) (plist->hash-table! - _%lst106546%_ + _%lst107796%_ (apply make-hash-table-immediate 'size: - (length _%lst106546%_) - _%args106547%_)))) + (length _%lst107796%_) + _%args107797%_)))) (define plist->hash-table! - (lambda (_%lst106486%_ _%h106487%_) - (let _%loop106489%_ ((_%rest106491%_ _%lst106486%_)) - (let* ((_%rest106492106504%_ _%rest106491%_) - (_%else106495106512%_ + (lambda (_%lst107736%_ _%h107737%_) + (let _%loop107739%_ ((_%rest107741%_ _%lst107736%_)) + (let* ((_%rest107742107754%_ _%rest107741%_) + (_%else107745107762%_ (lambda () (let () (declare (not safe)) (error '"bad property list -- uneven list" - _%lst106486%_))))) - (let ((_%K106498106527%_ - (lambda (_%rest106523%_ _%val106524%_ _%key106525%_) - (&HashTable-set! _%h106487%_ _%key106525%_ _%val106524%_) - (_%loop106489%_ _%rest106523%_))) - (_%K106497106517%_ (lambda () _%h106487%_))) - (let ((_%try-match106494106520%_ + _%lst107736%_))))) + (let ((_%K107748107777%_ + (lambda (_%rest107773%_ _%val107774%_ _%key107775%_) + (&HashTable-set! _%h107737%_ _%key107775%_ _%val107774%_) + (_%loop107739%_ _%rest107773%_))) + (_%K107747107767%_ (lambda () _%h107737%_))) + (let ((_%try-match107744107770%_ (lambda () - (if (null? _%rest106492106504%_) - (_%K106497106517%_) - (_%else106495106512%_))))) - (if (pair? _%rest106492106504%_) - (let ((_%tl106500106532%_ + (if (null? _%rest107742107754%_) + (_%K107747107767%_) + (_%else107745107762%_))))) + (if (pair? _%rest107742107754%_) + (let ((_%tl107750107782%_ (let () (declare (not safe)) - (##cdr _%rest106492106504%_))) - (_%hd106499106530%_ + (##cdr _%rest107742107754%_))) + (_%hd107749107780%_ (let () (declare (not safe)) - (##car _%rest106492106504%_)))) - (if (pair? _%tl106500106532%_) - (let ((_%tl106502106539%_ + (##car _%rest107742107754%_)))) + (if (pair? _%tl107750107782%_) + (let ((_%tl107752107789%_ (let () (declare (not safe)) - (##cdr _%tl106500106532%_))) - (_%hd106501106537%_ + (##cdr _%tl107750107782%_))) + (_%hd107751107787%_ (let () (declare (not safe)) - (##car _%tl106500106532%_)))) - (let ((_%key106535%_ _%hd106499106530%_) - (_%val106542%_ _%hd106501106537%_) - (_%rest106544%_ _%tl106502106539%_)) - (_%K106498106527%_ - _%rest106544%_ - _%val106542%_ - _%key106535%_))) - (_%else106495106512%_))) - (_%try-match106494106520%_)))))))) + (##car _%tl107750107782%_)))) + (let ((_%key107785%_ _%hd107749107780%_) + (_%val107792%_ _%hd107751107787%_) + (_%rest107794%_ _%tl107752107789%_)) + (_%K107748107777%_ + _%rest107794%_ + _%val107792%_ + _%key107785%_))) + (_%else107745107762%_))) + (_%try-match107744107770%_)))))))) (define hash-length - (lambda (_%h106468%_) - (let* ((_%h106474%_ - (let ((_%$obj106471%_ _%h106468%_)) + (lambda (_%h107718%_) + (let* ((_%h107724%_ + (let ((_%$obj107721%_ _%h107718%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106471%_)) + (##structure? _%$obj107721%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106471%_))) + (##structure-type _%$obj107721%_))) '#t) - _%$obj106471%_ + _%$obj107721%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106471%_))))) - (_%h106476%_ _%h106474%_)) - (__hash-length _%h106476%_)))) + (cast HashTable::interface _%$obj107721%_))))) + (_%h107726%_ _%h107724%_)) + (__hash-length _%h107726%_)))) (define __hash-length - (lambda (_%h106456%_) - (let ((_%h106459%_ _%h106456%_)) (__HashTable-length _%h106459%_)))) + (lambda (_%h107706%_) + (let ((_%h107709%_ _%h107706%_)) (__HashTable-length _%h107709%_)))) (define hash-ref__% - (lambda (_%h106424%_ _%key106425%_ _%default106426%_) - (let* ((_%h106432%_ - (let ((_%$obj106429%_ _%h106424%_)) + (lambda (_%h107674%_ _%key107675%_ _%default107676%_) + (let* ((_%h107682%_ + (let ((_%$obj107679%_ _%h107674%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106429%_)) + (##structure? _%$obj107679%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106429%_))) + (##structure-type _%$obj107679%_))) '#t) - _%$obj106429%_ + _%$obj107679%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106429%_))))) - (_%h106434%_ _%h106432%_)) - (__hash-ref__% _%h106434%_ _%key106425%_ _%default106426%_)))) + (cast HashTable::interface _%$obj107679%_))))) + (_%h107684%_ _%h107682%_)) + (__hash-ref__% _%h107684%_ _%key107675%_ _%default107676%_)))) (define hash-ref__0 - (lambda (_%h106447%_ _%key106448%_) - (let ((_%default106450%_ (macro-absent-obj))) - (hash-ref__% _%h106447%_ _%key106448%_ _%default106450%_)))) + (lambda (_%h107697%_ _%key107698%_) + (let ((_%default107700%_ (macro-absent-obj))) + (hash-ref__% _%h107697%_ _%key107698%_ _%default107700%_)))) (define hash-ref - (lambda _g110004_ - (let ((_g110003_ (let () (declare (not safe)) (##length _g110004_)))) - (cond ((let () (declare (not safe)) (##fx= _g110003_ 2)) - (apply hash-ref__0 _g110004_)) - ((let () (declare (not safe)) (##fx= _g110003_ 3)) - (apply hash-ref__% _g110004_)) + (lambda _g111254_ + (let ((_g111253_ (let () (declare (not safe)) (##length _g111254_)))) + (cond ((let () (declare (not safe)) (##fx= _g111253_ 2)) + (apply hash-ref__0 _g111254_)) + ((let () (declare (not safe)) (##fx= _g111253_ 3)) + (apply hash-ref__% _g111254_)) (else (##raise-wrong-number-of-arguments-exception hash-ref - _g110004_)))))) + _g111254_)))))) (define __hash-ref__% - (lambda (_%h106395%_ _%key106396%_ _%default106397%_) - (let* ((_%h106400%_ _%h106395%_) - (_%result106409%_ - (&HashTable-ref _%h106400%_ _%key106396%_ _%default106397%_))) - (if (eq? _%result106409%_ (macro-absent-obj)) + (lambda (_%h107645%_ _%key107646%_ _%default107647%_) + (let* ((_%h107650%_ _%h107645%_) + (_%result107659%_ + (&HashTable-ref _%h107650%_ _%key107646%_ _%default107647%_))) + (if (eq? _%result107659%_ (macro-absent-obj)) (raise-unbound-key-error 'hash-ref '"unknown hash key" 'hash: - _%h106400%_ + _%h107650%_ 'key: - _%key106396%_) - _%result106409%_)))) + _%key107646%_) + _%result107659%_)))) (define __hash-ref__0 - (lambda (_%h106414%_ _%key106415%_) - (let ((_%default106417%_ (macro-absent-obj))) - (__hash-ref__% _%h106414%_ _%key106415%_ _%default106417%_)))) + (lambda (_%h107664%_ _%key107665%_) + (let ((_%default107667%_ (macro-absent-obj))) + (__hash-ref__% _%h107664%_ _%key107665%_ _%default107667%_)))) (define __hash-ref - (lambda _g110006_ - (let ((_g110005_ (let () (declare (not safe)) (##length _g110006_)))) - (cond ((let () (declare (not safe)) (##fx= _g110005_ 2)) - (apply __hash-ref__0 _g110006_)) - ((let () (declare (not safe)) (##fx= _g110005_ 3)) - (apply __hash-ref__% _g110006_)) + (lambda _g111256_ + (let ((_g111255_ (let () (declare (not safe)) (##length _g111256_)))) + (cond ((let () (declare (not safe)) (##fx= _g111255_ 2)) + (apply __hash-ref__0 _g111256_)) + ((let () (declare (not safe)) (##fx= _g111255_ 3)) + (apply __hash-ref__% _g111256_)) (else (##raise-wrong-number-of-arguments-exception __hash-ref - _g110006_)))))) + _g111256_)))))) (define hash-get - (lambda (_%h106375%_ _%key106376%_) - (let* ((_%h106382%_ - (let ((_%$obj106379%_ _%h106375%_)) + (lambda (_%h107625%_ _%key107626%_) + (let* ((_%h107632%_ + (let ((_%$obj107629%_ _%h107625%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106379%_)) + (##structure? _%$obj107629%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106379%_))) + (##structure-type _%$obj107629%_))) '#t) - _%$obj106379%_ + _%$obj107629%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106379%_))))) - (_%h106384%_ _%h106382%_)) - (__hash-get _%h106384%_ _%key106376%_)))) + (cast HashTable::interface _%$obj107629%_))))) + (_%h107634%_ _%h107632%_)) + (__hash-get _%h107634%_ _%key107626%_)))) (define __hash-get - (lambda (_%h106362%_ _%key106363%_) - (let ((_%h106366%_ _%h106362%_)) - (&HashTable-ref _%h106366%_ _%key106363%_ '#f)))) + (lambda (_%h107612%_ _%key107613%_) + (let ((_%h107616%_ _%h107612%_)) + (&HashTable-ref _%h107616%_ _%key107613%_ '#f)))) (define hash-put! - (lambda (_%h106342%_ _%key106343%_ _%value106344%_) - (let* ((_%h106350%_ - (let ((_%$obj106347%_ _%h106342%_)) + (lambda (_%h107592%_ _%key107593%_ _%value107594%_) + (let* ((_%h107600%_ + (let ((_%$obj107597%_ _%h107592%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106347%_)) + (##structure? _%$obj107597%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106347%_))) + (##structure-type _%$obj107597%_))) '#t) - _%$obj106347%_ + _%$obj107597%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106347%_))))) - (_%h106352%_ _%h106350%_)) - (__hash-put! _%h106352%_ _%key106343%_ _%value106344%_)))) + (cast HashTable::interface _%$obj107597%_))))) + (_%h107602%_ _%h107600%_)) + (__hash-put! _%h107602%_ _%key107593%_ _%value107594%_)))) (define __hash-put! - (lambda (_%h106328%_ _%key106329%_ _%value106330%_) - (let ((_%h106333%_ _%h106328%_)) - (&HashTable-set! _%h106333%_ _%key106329%_ _%value106330%_)))) + (lambda (_%h107578%_ _%key107579%_ _%value107580%_) + (let ((_%h107583%_ _%h107578%_)) + (&HashTable-set! _%h107583%_ _%key107579%_ _%value107580%_)))) (define hash-update!__% - (lambda (_%h106293%_ _%key106294%_ _%update106295%_ _%default106296%_) - (let* ((_%h106302%_ - (let ((_%$obj106299%_ _%h106293%_)) + (lambda (_%h107543%_ _%key107544%_ _%update107545%_ _%default107546%_) + (let* ((_%h107552%_ + (let ((_%$obj107549%_ _%h107543%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106299%_)) + (##structure? _%$obj107549%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106299%_))) + (##structure-type _%$obj107549%_))) '#t) - _%$obj106299%_ + _%$obj107549%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106299%_))))) - (_%h106304%_ _%h106302%_)) + (cast HashTable::interface _%$obj107549%_))))) + (_%h107554%_ _%h107552%_)) (__hash-update!__% - _%h106304%_ - _%key106294%_ - _%update106295%_ - _%default106296%_)))) + _%h107554%_ + _%key107544%_ + _%update107545%_ + _%default107546%_)))) (define hash-update!__0 - (lambda (_%h106317%_ _%key106318%_ _%update106319%_) - (let ((_%default106321%_ '#!void)) + (lambda (_%h107567%_ _%key107568%_ _%update107569%_) + (let ((_%default107571%_ '#!void)) (hash-update!__% - _%h106317%_ - _%key106318%_ - _%update106319%_ - _%default106321%_)))) + _%h107567%_ + _%key107568%_ + _%update107569%_ + _%default107571%_)))) (define hash-update! - (lambda _g110008_ - (let ((_g110007_ (let () (declare (not safe)) (##length _g110008_)))) - (cond ((let () (declare (not safe)) (##fx= _g110007_ 3)) - (apply hash-update!__0 _g110008_)) - ((let () (declare (not safe)) (##fx= _g110007_ 4)) - (apply hash-update!__% _g110008_)) + (lambda _g111258_ + (let ((_g111257_ (let () (declare (not safe)) (##length _g111258_)))) + (cond ((let () (declare (not safe)) (##fx= _g111257_ 3)) + (apply hash-update!__0 _g111258_)) + ((let () (declare (not safe)) (##fx= _g111257_ 4)) + (apply hash-update!__% _g111258_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g110008_)))))) + _g111258_)))))) (define __hash-update!__% - (lambda (_%h106263%_ _%key106264%_ _%update106265%_ _%default106266%_) - (let ((_%h106269%_ _%h106263%_)) + (lambda (_%h107513%_ _%key107514%_ _%update107515%_ _%default107516%_) + (let ((_%h107519%_ _%h107513%_)) (HashTable-update! - _%h106269%_ - _%key106264%_ - _%update106265%_ - _%default106266%_)))) + _%h107519%_ + _%key107514%_ + _%update107515%_ + _%default107516%_)))) (define __hash-update!__0 - (lambda (_%h106281%_ _%key106282%_ _%update106283%_) - (let ((_%default106285%_ '#!void)) + (lambda (_%h107531%_ _%key107532%_ _%update107533%_) + (let ((_%default107535%_ '#!void)) (__hash-update!__% - _%h106281%_ - _%key106282%_ - _%update106283%_ - _%default106285%_)))) + _%h107531%_ + _%key107532%_ + _%update107533%_ + _%default107535%_)))) (define __hash-update! - (lambda _g110010_ - (let ((_g110009_ (let () (declare (not safe)) (##length _g110010_)))) - (cond ((let () (declare (not safe)) (##fx= _g110009_ 3)) - (apply __hash-update!__0 _g110010_)) - ((let () (declare (not safe)) (##fx= _g110009_ 4)) - (apply __hash-update!__% _g110010_)) + (lambda _g111260_ + (let ((_g111259_ (let () (declare (not safe)) (##length _g111260_)))) + (cond ((let () (declare (not safe)) (##fx= _g111259_ 3)) + (apply __hash-update!__0 _g111260_)) + ((let () (declare (not safe)) (##fx= _g111259_ 4)) + (apply __hash-update!__% _g111260_)) (else (##raise-wrong-number-of-arguments-exception __hash-update! - _g110010_)))))) + _g111260_)))))) (define hash-remove! - (lambda (_%h106243%_ _%key106244%_) - (let* ((_%h106250%_ - (let ((_%$obj106247%_ _%h106243%_)) + (lambda (_%h107493%_ _%key107494%_) + (let* ((_%h107500%_ + (let ((_%$obj107497%_ _%h107493%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106247%_)) + (##structure? _%$obj107497%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106247%_))) + (##structure-type _%$obj107497%_))) '#t) - _%$obj106247%_ + _%$obj107497%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106247%_))))) - (_%h106252%_ _%h106250%_)) - (__hash-remove! _%h106252%_ _%key106244%_)))) + (cast HashTable::interface _%$obj107497%_))))) + (_%h107502%_ _%h107500%_)) + (__hash-remove! _%h107502%_ _%key107494%_)))) (define __hash-remove! - (lambda (_%h106230%_ _%key106231%_) - (let ((_%h106234%_ _%h106230%_)) - (&HashTable-delete! _%h106234%_ _%key106231%_)))) + (lambda (_%h107480%_ _%key107481%_) + (let ((_%h107484%_ _%h107480%_)) + (&HashTable-delete! _%h107484%_ _%key107481%_)))) (define hash-key? - (lambda (_%h106211%_ _%k106212%_) - (let* ((_%h106218%_ - (let ((_%$obj106215%_ _%h106211%_)) + (lambda (_%h107461%_ _%k107462%_) + (let* ((_%h107468%_ + (let ((_%$obj107465%_ _%h107461%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106215%_)) + (##structure? _%$obj107465%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106215%_))) + (##structure-type _%$obj107465%_))) '#t) - _%$obj106215%_ + _%$obj107465%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106215%_))))) - (_%h106220%_ _%h106218%_)) - (__hash-key? _%h106220%_ _%k106212%_)))) + (cast HashTable::interface _%$obj107465%_))))) + (_%h107470%_ _%h107468%_)) + (__hash-key? _%h107470%_ _%k107462%_)))) (define __hash-key? - (lambda (_%h106198%_ _%k106199%_) - (let ((_%h106202%_ _%h106198%_)) - (not (eq? (&HashTable-ref _%h106202%_ _%k106199%_ absent-value) + (lambda (_%h107448%_ _%k107449%_) + (let ((_%h107452%_ _%h107448%_)) + (not (eq? (&HashTable-ref _%h107452%_ _%k107449%_ absent-value) absent-value))))) (define hash->list - (lambda (_%h106180%_) - (let* ((_%h106186%_ - (let ((_%$obj106183%_ _%h106180%_)) + (lambda (_%h107430%_) + (let* ((_%h107436%_ + (let ((_%$obj107433%_ _%h107430%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106183%_)) + (##structure? _%$obj107433%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106183%_))) + (##structure-type _%$obj107433%_))) '#t) - _%$obj106183%_ + _%$obj107433%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106183%_))))) - (_%h106188%_ _%h106186%_)) - (__hash->list _%h106188%_)))) + (cast HashTable::interface _%$obj107433%_))))) + (_%h107438%_ _%h107436%_)) + (__hash->list _%h107438%_)))) (define __hash->list - (lambda (_%h106163%_) - (let* ((_%h106166%_ _%h106163%_) (_%lst106175%_ '())) + (lambda (_%h107413%_) + (let* ((_%h107416%_ _%h107413%_) (_%lst107425%_ '())) (&HashTable-for-each - _%h106166%_ - (lambda (_%k106177%_ _%v106178%_) - (set! _%lst106175%_ - (cons (cons _%k106177%_ _%v106178%_) _%lst106175%_)))) - _%lst106175%_))) + _%h107416%_ + (lambda (_%k107427%_ _%v107428%_) + (set! _%lst107425%_ + (cons (cons _%k107427%_ _%v107428%_) _%lst107425%_)))) + _%lst107425%_))) (define hash->plist - (lambda (_%h106145%_) - (let* ((_%h106151%_ - (let ((_%$obj106148%_ _%h106145%_)) + (lambda (_%h107395%_) + (let* ((_%h107401%_ + (let ((_%$obj107398%_ _%h107395%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106148%_)) + (##structure? _%$obj107398%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106148%_))) + (##structure-type _%$obj107398%_))) '#t) - _%$obj106148%_ + _%$obj107398%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106148%_))))) - (_%h106153%_ _%h106151%_)) - (__hash->plist _%h106153%_)))) + (cast HashTable::interface _%$obj107398%_))))) + (_%h107403%_ _%h107401%_)) + (__hash->plist _%h107403%_)))) (define __hash->plist - (lambda (_%h106128%_) - (let* ((_%h106131%_ _%h106128%_) (_%lst106140%_ '())) + (lambda (_%h107378%_) + (let* ((_%h107381%_ _%h107378%_) (_%lst107390%_ '())) (&HashTable-for-each - _%h106131%_ - (lambda (_%k106142%_ _%v106143%_) - (set! _%lst106140%_ - (cons _%k106142%_ (cons _%v106143%_ _%lst106140%_))))) - _%lst106140%_))) + _%h107381%_ + (lambda (_%k107392%_ _%v107393%_) + (set! _%lst107390%_ + (cons _%k107392%_ (cons _%v107393%_ _%lst107390%_))))) + _%lst107390%_))) (define hash-for-each - (lambda (_%proc106099%_ _%h106100%_) - (if (procedure? _%proc106099%_) - (let* ((_%proc106104%_ _%proc106099%_) - (_%h106116%_ - (let ((_%$obj106113%_ _%h106100%_)) + (lambda (_%proc107349%_ _%h107350%_) + (if (procedure? _%proc107349%_) + (let* ((_%proc107354%_ _%proc107349%_) + (_%h107366%_ + (let ((_%$obj107363%_ _%h107350%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106113%_)) + (##structure? _%$obj107363%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106113%_))) + (##structure-type _%$obj107363%_))) '#t) - _%$obj106113%_ + _%$obj107363%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106113%_))))) - (_%h106118%_ _%h106116%_)) - (__hash-for-each _%proc106104%_ _%h106118%_)) + (cast HashTable::interface _%$obj107363%_))))) + (_%h107368%_ _%h107366%_)) + (__hash-for-each _%proc107354%_ _%h107368%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/hash.ss\"@567.22-567.26" + '"\"gerbil/runtime/hash.ss\"@569.22-569.26" 'contract: 'procedure? 'value: - _%proc106099%_) + _%proc107349%_) '#!void)))) (define __hash-for-each - (lambda (_%proc106078%_ _%h106079%_) - (let* ((_%proc106082%_ _%proc106078%_) (_%h106090%_ _%h106079%_)) - (&HashTable-for-each _%h106090%_ _%proc106082%_)))) + (lambda (_%proc107328%_ _%h107329%_) + (let* ((_%proc107332%_ _%proc107328%_) (_%h107340%_ _%h107329%_)) + (&HashTable-for-each _%h107340%_ _%proc107332%_)))) (define hash-map - (lambda (_%proc106049%_ _%h106050%_) - (if (procedure? _%proc106049%_) - (let* ((_%proc106054%_ _%proc106049%_) - (_%h106066%_ - (let ((_%$obj106063%_ _%h106050%_)) + (lambda (_%proc107299%_ _%h107300%_) + (if (procedure? _%proc107299%_) + (let* ((_%proc107304%_ _%proc107299%_) + (_%h107316%_ + (let ((_%$obj107313%_ _%h107300%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106063%_)) + (##structure? _%$obj107313%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106063%_))) + (##structure-type _%$obj107313%_))) '#t) - _%$obj106063%_ + _%$obj107313%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106063%_))))) - (_%h106068%_ _%h106066%_)) - (__hash-map _%proc106054%_ _%h106068%_)) + (cast HashTable::interface _%$obj107313%_))))) + (_%h107318%_ _%h107316%_)) + (__hash-map _%proc107304%_ _%h107318%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/hash.ss\"@570.17-570.21" + '"\"gerbil/runtime/hash.ss\"@572.17-572.21" 'contract: 'procedure? 'value: - _%proc106049%_) + _%proc107299%_) '#!void)))) (define __hash-map - (lambda (_%proc106023%_ _%h106024%_) - (let* ((_%proc106027%_ _%proc106023%_) - (_%h106035%_ _%h106024%_) - (_%result106044%_ '())) + (lambda (_%proc107273%_ _%h107274%_) + (let* ((_%proc107277%_ _%proc107273%_) + (_%h107285%_ _%h107274%_) + (_%result107294%_ '())) (&HashTable-for-each - _%h106035%_ - (lambda (_%k106046%_ _%v106047%_) - (set! _%result106044%_ + _%h107285%_ + (lambda (_%k107296%_ _%v107297%_) + (set! _%result107294%_ (cons (let () (declare (not safe)) - (_%proc106027%_ _%k106046%_ _%v106047%_)) - _%result106044%_)))) - _%result106044%_))) + (_%proc107277%_ _%k107296%_ _%v107297%_)) + _%result107294%_)))) + _%result107294%_))) (define hash-fold - (lambda (_%proc105993%_ _%iv105994%_ _%h105995%_) - (if (procedure? _%proc105993%_) - (let* ((_%proc105999%_ _%proc105993%_) - (_%h106011%_ - (let ((_%$obj106008%_ _%h105995%_)) + (lambda (_%proc107243%_ _%iv107244%_ _%h107245%_) + (if (procedure? _%proc107243%_) + (let* ((_%proc107249%_ _%proc107243%_) + (_%h107261%_ + (let ((_%$obj107258%_ _%h107245%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106008%_)) + (##structure? _%$obj107258%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106008%_))) + (##structure-type _%$obj107258%_))) '#t) - _%$obj106008%_ + _%$obj107258%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106008%_))))) - (_%h106013%_ _%h106011%_)) - (__hash-fold _%proc105999%_ _%iv105994%_ _%h106013%_)) + (cast HashTable::interface _%$obj107258%_))))) + (_%h107263%_ _%h107261%_)) + (__hash-fold _%proc107249%_ _%iv107244%_ _%h107263%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/hash.ss\"@575.18-575.22" + '"\"gerbil/runtime/hash.ss\"@577.18-577.22" 'contract: 'procedure? 'value: - _%proc105993%_) + _%proc107243%_) '#!void)))) (define __hash-fold - (lambda (_%proc105966%_ _%iv105967%_ _%h105968%_) - (let* ((_%proc105971%_ _%proc105966%_) - (_%h105979%_ _%h105968%_) - (_%result105988%_ _%iv105967%_)) + (lambda (_%proc107216%_ _%iv107217%_ _%h107218%_) + (let* ((_%proc107221%_ _%proc107216%_) + (_%h107229%_ _%h107218%_) + (_%result107238%_ _%iv107217%_)) (&HashTable-for-each - _%h105979%_ - (lambda (_%k105990%_ _%v105991%_) - (set! _%result105988%_ + _%h107229%_ + (lambda (_%k107240%_ _%v107241%_) + (set! _%result107238%_ (let () (declare (not safe)) - (_%proc105971%_ - _%k105990%_ - _%v105991%_ - _%result105988%_))))) - _%result105988%_))) + (_%proc107221%_ + _%k107240%_ + _%v107241%_ + _%result107238%_))))) + _%result107238%_))) (define hash-find__% - (lambda (_%proc105924%_ _%h105925%_ _%default-value105926%_) - (if (procedure? _%proc105924%_) - (let* ((_%proc105930%_ _%proc105924%_) - (_%h105942%_ - (let ((_%$obj105939%_ _%h105925%_)) + (lambda (_%proc107174%_ _%h107175%_ _%default-value107176%_) + (if (procedure? _%proc107174%_) + (let* ((_%proc107180%_ _%proc107174%_) + (_%h107192%_ + (let ((_%$obj107189%_ _%h107175%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105939%_)) + (##structure? _%$obj107189%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105939%_))) + (##structure-type _%$obj107189%_))) '#t) - _%$obj105939%_ + _%$obj107189%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105939%_))))) - (_%h105944%_ _%h105942%_)) + (cast HashTable::interface _%$obj107189%_))))) + (_%h107194%_ _%h107192%_)) (__hash-find__% - _%proc105930%_ - _%h105944%_ - _%default-value105926%_)) + _%proc107180%_ + _%h107194%_ + _%default-value107176%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/hash.ss\"@580.18-580.22" + '"\"gerbil/runtime/hash.ss\"@582.18-582.22" 'contract: 'procedure? 'value: - _%proc105924%_) + _%proc107174%_) '#!void)))) (define hash-find__0 - (lambda (_%proc105957%_ _%h105958%_) - (let ((_%default-value105960%_ '#f)) - (hash-find__% _%proc105957%_ _%h105958%_ _%default-value105960%_)))) + (lambda (_%proc107207%_ _%h107208%_) + (let ((_%default-value107210%_ '#f)) + (hash-find__% _%proc107207%_ _%h107208%_ _%default-value107210%_)))) (define hash-find - (lambda _g110012_ - (let ((_g110011_ (let () (declare (not safe)) (##length _g110012_)))) - (cond ((let () (declare (not safe)) (##fx= _g110011_ 2)) - (apply hash-find__0 _g110012_)) - ((let () (declare (not safe)) (##fx= _g110011_ 3)) - (apply hash-find__% _g110012_)) + (lambda _g111262_ + (let ((_g111261_ (let () (declare (not safe)) (##length _g111262_)))) + (cond ((let () (declare (not safe)) (##fx= _g111261_ 2)) + (apply hash-find__0 _g111262_)) + ((let () (declare (not safe)) (##fx= _g111261_ 3)) + (apply hash-find__% _g111262_)) (else (##raise-wrong-number-of-arguments-exception hash-find - _g110012_)))))) + _g111262_)))))) (define __hash-find__% - (lambda (_%proc105881%_ _%h105882%_ _%default-value105883%_) - (let* ((_%proc105886%_ _%proc105881%_) - (_%h105894%_ _%h105882%_) - (__tmp110013 - (lambda (_%return105903%_) + (lambda (_%proc107131%_ _%h107132%_ _%default-value107133%_) + (let* ((_%proc107136%_ _%proc107131%_) + (_%h107144%_ _%h107132%_) + (__tmp111263 + (lambda (_%return107153%_) (&HashTable-for-each - _%h105894%_ - (lambda (_%k105905%_ _%v105906%_) - (let ((_%$e105908%_ + _%h107144%_ + (lambda (_%k107155%_ _%v107156%_) + (let ((_%$e107158%_ (let () (declare (not safe)) - (_%proc105886%_ _%k105905%_ _%v105906%_)))) - (if _%$e105908%_ - (_%return105903%_ _%$e105908%_) + (_%proc107136%_ _%k107155%_ _%v107156%_)))) + (if _%$e107158%_ + (_%return107153%_ _%$e107158%_) '#!void)))) - _%default-value105883%_))) + _%default-value107133%_))) (declare (not safe)) - (##call-with-current-continuation __tmp110013)))) + (##call-with-current-continuation __tmp111263)))) (define __hash-find__0 - (lambda (_%proc105914%_ _%h105915%_) - (let ((_%default-value105917%_ '#f)) + (lambda (_%proc107164%_ _%h107165%_) + (let ((_%default-value107167%_ '#f)) (__hash-find__% - _%proc105914%_ - _%h105915%_ - _%default-value105917%_)))) + _%proc107164%_ + _%h107165%_ + _%default-value107167%_)))) (define __hash-find - (lambda _g110015_ - (let ((_g110014_ (let () (declare (not safe)) (##length _g110015_)))) - (cond ((let () (declare (not safe)) (##fx= _g110014_ 2)) - (apply __hash-find__0 _g110015_)) - ((let () (declare (not safe)) (##fx= _g110014_ 3)) - (apply __hash-find__% _g110015_)) + (lambda _g111265_ + (let ((_g111264_ (let () (declare (not safe)) (##length _g111265_)))) + (cond ((let () (declare (not safe)) (##fx= _g111264_ 2)) + (apply __hash-find__0 _g111265_)) + ((let () (declare (not safe)) (##fx= _g111264_ 3)) + (apply __hash-find__% _g111265_)) (else (##raise-wrong-number-of-arguments-exception __hash-find - _g110015_)))))) + _g111265_)))))) (define hash-keys - (lambda (_%h105862%_) - (let* ((_%h105868%_ - (let ((_%$obj105865%_ _%h105862%_)) + (lambda (_%h107112%_) + (let* ((_%h107118%_ + (let ((_%$obj107115%_ _%h107112%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105865%_)) + (##structure? _%$obj107115%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105865%_))) + (##structure-type _%$obj107115%_))) '#t) - _%$obj105865%_ + _%$obj107115%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105865%_))))) - (_%h105870%_ _%h105868%_)) - (__hash-keys _%h105870%_)))) + (cast HashTable::interface _%$obj107115%_))))) + (_%h107120%_ _%h107118%_)) + (__hash-keys _%h107120%_)))) (define __hash-keys - (lambda (_%h105845%_) - (let* ((_%h105848%_ _%h105845%_) (_%result105857%_ '())) + (lambda (_%h107095%_) + (let* ((_%h107098%_ _%h107095%_) (_%result107107%_ '())) (&HashTable-for-each - _%h105848%_ - (lambda (_%k105859%_ _%v105860%_) - (set! _%result105857%_ (cons _%k105859%_ _%result105857%_)))) - _%result105857%_))) + _%h107098%_ + (lambda (_%k107109%_ _%v107110%_) + (set! _%result107107%_ (cons _%k107109%_ _%result107107%_)))) + _%result107107%_))) (define hash-values - (lambda (_%h105827%_) - (let* ((_%h105833%_ - (let ((_%$obj105830%_ _%h105827%_)) + (lambda (_%h107077%_) + (let* ((_%h107083%_ + (let ((_%$obj107080%_ _%h107077%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105830%_)) + (##structure? _%$obj107080%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105830%_))) + (##structure-type _%$obj107080%_))) '#t) - _%$obj105830%_ + _%$obj107080%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105830%_))))) - (_%h105835%_ _%h105833%_)) - (__hash-values _%h105835%_)))) + (cast HashTable::interface _%$obj107080%_))))) + (_%h107085%_ _%h107083%_)) + (__hash-values _%h107085%_)))) (define __hash-values - (lambda (_%h105810%_) - (let* ((_%h105813%_ _%h105810%_) (_%result105822%_ '())) + (lambda (_%h107060%_) + (let* ((_%h107063%_ _%h107060%_) (_%result107072%_ '())) (&HashTable-for-each - _%h105813%_ - (lambda (_%k105824%_ _%v105825%_) - (set! _%result105822%_ (cons _%v105825%_ _%result105822%_)))) - _%result105822%_))) + _%h107063%_ + (lambda (_%k107074%_ _%v107075%_) + (set! _%result107072%_ (cons _%v107075%_ _%result107072%_)))) + _%result107072%_))) (define hash-copy - (lambda (_%h105792%_) - (let* ((_%h105798%_ - (let ((_%$obj105795%_ _%h105792%_)) + (lambda (_%h107042%_) + (let* ((_%h107048%_ + (let ((_%$obj107045%_ _%h107042%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105795%_)) + (##structure? _%$obj107045%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105795%_))) + (##structure-type _%$obj107045%_))) '#t) - _%$obj105795%_ + _%$obj107045%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105795%_))))) - (_%h105800%_ _%h105798%_)) - (__hash-copy _%h105800%_)))) + (cast HashTable::interface _%$obj107045%_))))) + (_%h107050%_ _%h107048%_)) + (__hash-copy _%h107050%_)))) (define __hash-copy - (lambda (_%h105780%_) - (let ((_%h105783%_ _%h105780%_)) (__HashTable-copy _%h105783%_)))) + (lambda (_%h107030%_) + (let ((_%h107033%_ _%h107030%_)) (__HashTable-copy _%h107033%_)))) (define hash-clear! - (lambda (_%h105762%_) - (let* ((_%h105768%_ - (let ((_%$obj105765%_ _%h105762%_)) + (lambda (_%h107012%_) + (let* ((_%h107018%_ + (let ((_%$obj107015%_ _%h107012%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105765%_)) + (##structure? _%$obj107015%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105765%_))) + (##structure-type _%$obj107015%_))) '#t) - _%$obj105765%_ + _%$obj107015%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105765%_))))) - (_%h105770%_ _%h105768%_)) - (__hash-clear! _%h105770%_)))) + (cast HashTable::interface _%$obj107015%_))))) + (_%h107020%_ _%h107018%_)) + (__hash-clear! _%h107020%_)))) (define __hash-clear! - (lambda (_%h105750%_) - (let ((_%h105753%_ _%h105750%_)) (&HashTable-clear! _%h105753%_)))) + (lambda (_%h107000%_) + (let ((_%h107003%_ _%h107000%_)) (&HashTable-clear! _%h107003%_)))) (define hash-merge - (lambda (_%h105731%_ . _%rest105732%_) - (let* ((_%h105738%_ - (let ((_%$obj105735%_ _%h105731%_)) + (lambda (_%h106981%_ . _%rest106982%_) + (let* ((_%h106988%_ + (let ((_%$obj106985%_ _%h106981%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105735%_)) + (##structure? _%$obj106985%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105735%_))) + (##structure-type _%$obj106985%_))) '#t) - _%$obj105735%_ + _%$obj106985%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105735%_))))) - (_%h105740%_ _%h105738%_)) + (cast HashTable::interface _%$obj106985%_))))) + (_%h106990%_ _%h106988%_)) (declare (not safe)) - (##apply __hash-merge _%h105740%_ _%rest105732%_)))) + (##apply __hash-merge _%h106990%_ _%rest106982%_)))) (define __hash-merge - (lambda (_%h105716%_ . _%rest105717%_) - (let* ((_%h105720%_ _%h105716%_) - (_%copy105729%_ (__HashTable-copy _%h105720%_))) - (apply hash-merge! _%copy105729%_ _%rest105717%_) - _%copy105729%_))) + (lambda (_%h106966%_ . _%rest106967%_) + (let* ((_%h106970%_ _%h106966%_) + (_%copy106979%_ (__HashTable-copy _%h106970%_))) + (apply hash-merge! _%copy106979%_ _%rest106967%_) + _%copy106979%_))) (define hash-merge! - (lambda (_%h105697%_ . _%rest105698%_) - (let* ((_%h105704%_ - (let ((_%$obj105701%_ _%h105697%_)) + (lambda (_%h106947%_ . _%rest106948%_) + (let* ((_%h106954%_ + (let ((_%$obj106951%_ _%h106947%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105701%_)) + (##structure? _%$obj106951%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105701%_))) + (##structure-type _%$obj106951%_))) '#t) - _%$obj105701%_ + _%$obj106951%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105701%_))))) - (_%h105706%_ _%h105704%_)) + (cast HashTable::interface _%$obj106951%_))))) + (_%h106956%_ _%h106954%_)) (declare (not safe)) - (##apply __hash-merge! _%h105706%_ _%rest105698%_)))) + (##apply __hash-merge! _%h106956%_ _%rest106948%_)))) (define __hash-merge! - (lambda (_%h105660%_ . _%rest105661%_) - (let ((_%h105664%_ _%h105660%_)) - (let ((__tmp110016 - (lambda (_%hr105673%_) - (let* ((_%hr105679%_ - (let ((_%$obj105676%_ _%hr105673%_)) + (lambda (_%h106910%_ . _%rest106911%_) + (let ((_%h106914%_ _%h106910%_)) + (let ((__tmp111266 + (lambda (_%hr106923%_) + (let* ((_%hr106929%_ + (let ((_%$obj106926%_ _%hr106923%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105676%_)) + (##structure? _%$obj106926%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj105676%_))) + _%$obj106926%_))) '#t) - _%$obj105676%_ + _%$obj106926%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj105676%_))))) - (_%hr105681%_ _%hr105679%_)) + _%$obj106926%_))))) + (_%hr106931%_ _%hr106929%_)) (&HashTable-for-each - _%hr105681%_ - (lambda (_%k105694%_ _%v105695%_) - (if (__hash-key? _%h105664%_ _%k105694%_) + _%hr106931%_ + (lambda (_%k106944%_ _%v106945%_) + (if (__hash-key? _%h106914%_ _%k106944%_) '#!void (&HashTable-set! - _%h105664%_ - _%k105694%_ - _%v105695%_)))))))) + _%h106914%_ + _%k106944%_ + _%v106945%_)))))))) (declare (not safe)) - (##for-each __tmp110016 _%rest105661%_)) - _%h105664%_))))) + (##for-each __tmp111266 _%rest106911%_)) + _%h106914%_))))) diff --git a/src/bootstrap/gerbil/runtime/hash~1.scm b/src/bootstrap/gerbil/runtime/hash~1.scm index 9aff285b3..158877fad 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]#_g110018_| + (define |[1]#_g111268_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g110020_| + (define |[1]#_g111270_| (##structure gx#syntax-quote::t 'UnboundKeyError::t #f (gx#current-expander-context) '())) - (define |[1]#_g110022_| + (define |[1]#_g111272_| (##structure gx#syntax-quote::t 'make-UnboundKeyError #f (gx#current-expander-context) '())) - (define |[1]#_g110024_| + (define |[1]#_g111274_| (##structure gx#syntax-quote::t 'UnboundKeyError? #f (gx#current-expander-context) '())) - (define |[1]#_g110026_| + (define |[1]#_g111276_| (##structure gx#syntax-quote::t 'UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g110027_| + (define |[1]#_g111277_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g110028_| + (define |[1]#_g111278_| (##structure gx#syntax-quote::t 'UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g110029_| + (define |[1]#_g111279_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g110031_| + (define |[1]#_g111281_| (##structure gx#syntax-quote::t 'UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110032_| + (define |[1]#_g111282_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110033_| + (define |[1]#_g111283_| (##structure gx#syntax-quote::t 'UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110034_| + (define |[1]#_g111284_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110036_| + (define |[1]#_g111286_| (##structure gx#syntax-quote::t '&UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g110037_| + (define |[1]#_g111287_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g110038_| + (define |[1]#_g111288_| (##structure gx#syntax-quote::t '&UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g110039_| + (define |[1]#_g111289_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g110041_| + (define |[1]#_g111291_| (##structure gx#syntax-quote::t '&UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110042_| + (define |[1]#_g111292_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110043_| + (define |[1]#_g111293_| (##structure gx#syntax-quote::t '&UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110044_| + (define |[1]#_g111294_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110046_| + (define |[1]#_g111296_| (##structure gx#syntax-quote::t 'HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g110048_| + (define |[1]#_g111298_| (##structure gx#syntax-quote::t 'HashTable::t #f (gx#current-expander-context) '())) - (define |[1]#_g110050_| + (define |[1]#_g111300_| (##structure gx#syntax-quote::t 'HashTable::interface #f (gx#current-expander-context) '())) - (define |[1]#_g110052_| + (define |[1]#_g111302_| (##structure gx#syntax-quote::t 'make-HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g110054_| + (define |[1]#_g111304_| (##structure gx#syntax-quote::t 'try-HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g110056_| + (define |[1]#_g111306_| (##structure gx#syntax-quote::t 'HashTable? #f (gx#current-expander-context) '())) - (define |[1]#_g110058_| + (define |[1]#_g111308_| (##structure gx#syntax-quote::t 'is-HashTable? #f (gx#current-expander-context) '())) - (define |[1]#_g110060_| + (define |[1]#_g111310_| (##structure gx#syntax-quote::t 'HashTable-clear! #f (gx#current-expander-context) '())) - (define |[1]#_g110061_| + (define |[1]#_g111311_| (##structure gx#syntax-quote::t 'HashTable-copy #f (gx#current-expander-context) '())) - (define |[1]#_g110062_| + (define |[1]#_g111312_| (##structure gx#syntax-quote::t 'HashTable-delete! #f (gx#current-expander-context) '())) - (define |[1]#_g110063_| + (define |[1]#_g111313_| (##structure gx#syntax-quote::t 'HashTable-for-each #f (gx#current-expander-context) '())) - (define |[1]#_g110064_| + (define |[1]#_g111314_| (##structure gx#syntax-quote::t 'HashTable-length #f (gx#current-expander-context) '())) - (define |[1]#_g110065_| + (define |[1]#_g111315_| (##structure gx#syntax-quote::t 'HashTable-ref #f (gx#current-expander-context) '())) - (define |[1]#_g110066_| + (define |[1]#_g111316_| (##structure gx#syntax-quote::t 'HashTable-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110067_| + (define |[1]#_g111317_| (##structure gx#syntax-quote::t 'HashTable-update! #f (gx#current-expander-context) '())) - (define |[1]#_g110069_| + (define |[1]#_g111319_| (##structure gx#syntax-quote::t '&HashTable-clear! #f (gx#current-expander-context) '())) - (define |[1]#_g110070_| + (define |[1]#_g111320_| (##structure gx#syntax-quote::t '&HashTable-copy #f (gx#current-expander-context) '())) - (define |[1]#_g110071_| + (define |[1]#_g111321_| (##structure gx#syntax-quote::t '&HashTable-delete! #f (gx#current-expander-context) '())) - (define |[1]#_g110072_| + (define |[1]#_g111322_| (##structure gx#syntax-quote::t '&HashTable-for-each #f (gx#current-expander-context) '())) - (define |[1]#_g110073_| + (define |[1]#_g111323_| (##structure gx#syntax-quote::t '&HashTable-length #f (gx#current-expander-context) '())) - (define |[1]#_g110074_| + (define |[1]#_g111324_| (##structure gx#syntax-quote::t '&HashTable-ref #f (gx#current-expander-context) '())) - (define |[1]#_g110075_| + (define |[1]#_g111325_| (##structure gx#syntax-quote::t '&HashTable-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110076_| + (define |[1]#_g111326_| (##structure gx#syntax-quote::t '&HashTable-update! #f (gx#current-expander-context) '())) - (define |[1]#_g110078_| + (define |[1]#_g111328_| (##structure gx#syntax-quote::t 'Locker::t #f (gx#current-expander-context) '())) - (define |[1]#_g110080_| + (define |[1]#_g111330_| (##structure gx#syntax-quote::t 'Locker::interface #f (gx#current-expander-context) '())) - (define |[1]#_g110082_| + (define |[1]#_g111332_| (##structure gx#syntax-quote::t 'make-Locker #f (gx#current-expander-context) '())) - (define |[1]#_g110084_| + (define |[1]#_g111334_| (##structure gx#syntax-quote::t 'try-Locker #f (gx#current-expander-context) '())) - (define |[1]#_g110086_| + (define |[1]#_g111336_| (##structure gx#syntax-quote::t 'Locker? #f (gx#current-expander-context) '())) - (define |[1]#_g110088_| + (define |[1]#_g111338_| (##structure gx#syntax-quote::t 'is-Locker? #f (gx#current-expander-context) '())) - (define |[1]#_g110090_| + (define |[1]#_g111340_| (##structure gx#syntax-quote::t 'Locker-read-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g110091_| + (define |[1]#_g111341_| (##structure gx#syntax-quote::t 'Locker-read-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g110092_| + (define |[1]#_g111342_| (##structure gx#syntax-quote::t 'Locker-write-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g110093_| + (define |[1]#_g111343_| (##structure gx#syntax-quote::t 'Locker-write-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g110095_| + (define |[1]#_g111345_| (##structure gx#syntax-quote::t '&Locker-read-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g110096_| + (define |[1]#_g111346_| (##structure gx#syntax-quote::t '&Locker-read-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g110097_| + (define |[1]#_g111347_| (##structure gx#syntax-quote::t '&Locker-write-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g110098_| + (define |[1]#_g111348_| (##structure gx#syntax-quote::t '&Locker-write-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g110100_| + (define |[1]#_g111350_| (##structure gx#syntax-quote::t 'locked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g110102_| + (define |[1]#_g111352_| (##structure gx#syntax-quote::t 'make-locked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g110104_| + (define |[1]#_g111354_| (##structure gx#syntax-quote::t 'locked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g110106_| + (define |[1]#_g111356_| (##structure gx#syntax-quote::t 'locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g110107_| + (define |[1]#_g111357_| (##structure gx#syntax-quote::t 'locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g110109_| + (define |[1]#_g111359_| (##structure gx#syntax-quote::t 'locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110110_| + (define |[1]#_g111360_| (##structure gx#syntax-quote::t 'locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110112_| + (define |[1]#_g111362_| (##structure gx#syntax-quote::t '&locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g110113_| + (define |[1]#_g111363_| (##structure gx#syntax-quote::t '&locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g110115_| + (define |[1]#_g111365_| (##structure gx#syntax-quote::t '&locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110116_| + (define |[1]#_g111366_| (##structure gx#syntax-quote::t '&locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110118_| + (define |[1]#_g111368_| (##structure gx#syntax-quote::t 'checked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g110120_| + (define |[1]#_g111370_| (##structure gx#syntax-quote::t 'make-checked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g110122_| + (define |[1]#_g111372_| (##structure gx#syntax-quote::t 'checked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g110124_| + (define |[1]#_g111374_| (##structure gx#syntax-quote::t 'checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g110125_| + (define |[1]#_g111375_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g110127_| + (define |[1]#_g111377_| (##structure gx#syntax-quote::t 'checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110128_| + (define |[1]#_g111378_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110130_| + (define |[1]#_g111380_| (##structure gx#syntax-quote::t '&checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g110131_| + (define |[1]#_g111381_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g110133_| + (define |[1]#_g111383_| (##structure gx#syntax-quote::t '&checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110134_| + (define |[1]#_g111384_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check-set! @@ -555,7 +555,7 @@ '())) (begin (define |[:0:]#UnboundKeyError| - (let ((__obj109927 + (let ((__obj111177 (let () (declare (not safe)) (##structure @@ -584,104 +584,104 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj109927 + __obj111177 'gerbil/runtime/hash#UnboundKeyError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 'UnboundKeyError '2 '#f '#f)) + (##unchecked-structure-set! __obj111177 'UnboundKeyError '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj111177 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj109927 + __obj111177 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp110017 (cons |[1]#_g110018_| '()))) + (let ((__tmp111267 (cons |[1]#_g111268_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj109927 __tmp110017 '3 '#f '#f)) + (##unchecked-structure-set! __obj111177 __tmp111267 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj111177 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj111177 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj111177 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 ':init! '11 '#f '#f)) - (let ((__tmp110019 |[1]#_g110020_|)) + (##unchecked-structure-set! __obj111177 ':init! '11 '#f '#f)) + (let ((__tmp111269 |[1]#_g111270_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109927 __tmp110019 '12 '#f '#f)) - (let ((__tmp110021 |[1]#_g110022_|)) + (##unchecked-structure-set! __obj111177 __tmp111269 '12 '#f '#f)) + (let ((__tmp111271 |[1]#_g111272_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109927 __tmp110021 '13 '#f '#f)) - (let ((__tmp110023 |[1]#_g110024_|)) + (##unchecked-structure-set! __obj111177 __tmp111271 '13 '#f '#f)) + (let ((__tmp111273 |[1]#_g111274_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109927 __tmp110023 '14 '#f '#f)) - (let ((__tmp110025 - (cons (cons 'message |[1]#_g110026_|) - (cons (cons 'irritants |[1]#_g110027_|) - (cons (cons 'where |[1]#_g110028_|) - (cons (cons 'continuation |[1]#_g110029_|) + (##unchecked-structure-set! __obj111177 __tmp111273 '14 '#f '#f)) + (let ((__tmp111275 + (cons (cons 'message |[1]#_g111276_|) + (cons (cons 'irritants |[1]#_g111277_|) + (cons (cons 'where |[1]#_g111278_|) + (cons (cons 'continuation |[1]#_g111279_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj109927 __tmp110025 '15 '#f '#f)) - (let ((__tmp110030 - (cons (cons 'message |[1]#_g110031_|) - (cons (cons 'irritants |[1]#_g110032_|) - (cons (cons 'where |[1]#_g110033_|) - (cons (cons 'continuation |[1]#_g110034_|) + (##unchecked-structure-set! __obj111177 __tmp111275 '15 '#f '#f)) + (let ((__tmp111280 + (cons (cons 'message |[1]#_g111281_|) + (cons (cons 'irritants |[1]#_g111282_|) + (cons (cons 'where |[1]#_g111283_|) + (cons (cons 'continuation |[1]#_g111284_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj109927 __tmp110030 '16 '#f '#f)) - (let ((__tmp110035 - (cons (cons 'message |[1]#_g110036_|) - (cons (cons 'irritants |[1]#_g110037_|) - (cons (cons 'where |[1]#_g110038_|) - (cons (cons 'continuation |[1]#_g110039_|) + (##unchecked-structure-set! __obj111177 __tmp111280 '16 '#f '#f)) + (let ((__tmp111285 + (cons (cons 'message |[1]#_g111286_|) + (cons (cons 'irritants |[1]#_g111287_|) + (cons (cons 'where |[1]#_g111288_|) + (cons (cons 'continuation |[1]#_g111289_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj109927 __tmp110035 '17 '#f '#f)) - (let ((__tmp110040 - (cons (cons 'message |[1]#_g110041_|) - (cons (cons 'irritants |[1]#_g110042_|) - (cons (cons 'where |[1]#_g110043_|) - (cons (cons 'continuation |[1]#_g110044_|) + (##unchecked-structure-set! __obj111177 __tmp111285 '17 '#f '#f)) + (let ((__tmp111290 + (cons (cons 'message |[1]#_g111291_|) + (cons (cons 'irritants |[1]#_g111292_|) + (cons (cons 'where |[1]#_g111293_|) + (cons (cons 'continuation |[1]#_g111294_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj109927 __tmp110040 '18 '#f '#f)) + (##unchecked-structure-set! __obj111177 __tmp111290 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj111177 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj111177 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109927 '() '20 '#f '#f)) - __obj109927)) + (##unchecked-structure-set! __obj111177 '() '20 '#f '#f)) + __obj111177)) (define |[:0:]#@HashTable| - (let ((__obj109929 + (let ((__obj111179 (let () (declare (not safe)) (##structure |gerbil/core/contract~TypeReference[1]#type-reference::t| '#f)))) - (let ((__tmp110045 |[1]#_g110046_|)) + (let ((__tmp111295 |[1]#_g111296_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109929 __tmp110045 '1 '#f '#f)) - __obj109929)) + (##unchecked-structure-set! __obj111179 __tmp111295 '1 '#f '#f)) + __obj111179)) (define |[:0:]#HashTable| - (let ((__obj109930 + (let ((__obj111180 (let () (declare (not safe)) (##structure @@ -696,17 +696,25 @@ '#f '#f '#f + '#f + '#f '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109930 'HashTable '1 '#f '#f)) + (##unchecked-structure-set! __obj111180 'HashTable '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109930 '() '2 '#f '#f)) + (##unchecked-structure-set! __obj111180 'HashTable '2 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj111180 '() '3 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj111180 '() '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj109930 + __obj111180 '((clear! () :void) (copy () @HashTable) (delete! (key) :void) @@ -715,54 +723,54 @@ (ref (key default) :t) (set! (key value) :void) (update! (key (proc : :procedure) default) :void)) - '3 + '4 '#f '#f)) - (let ((__tmp110047 |[1]#_g110048_|)) + (let ((__tmp111297 |[1]#_g111298_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109930 __tmp110047 '4 '#f '#f)) - (let ((__tmp110049 |[1]#_g110050_|)) + (##unchecked-structure-set! __obj111180 __tmp111297 '7 '#f '#f)) + (let ((__tmp111299 |[1]#_g111300_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109930 __tmp110049 '5 '#f '#f)) - (let ((__tmp110051 |[1]#_g110052_|)) + (##unchecked-structure-set! __obj111180 __tmp111299 '6 '#f '#f)) + (let ((__tmp111301 |[1]#_g111302_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109930 __tmp110051 '6 '#f '#f)) - (let ((__tmp110053 |[1]#_g110054_|)) + (##unchecked-structure-set! __obj111180 __tmp111301 '8 '#f '#f)) + (let ((__tmp111303 |[1]#_g111304_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109930 __tmp110053 '7 '#f '#f)) - (let ((__tmp110055 |[1]#_g110056_|)) + (##unchecked-structure-set! __obj111180 __tmp111303 '9 '#f '#f)) + (let ((__tmp111305 |[1]#_g111306_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109930 __tmp110055 '8 '#f '#f)) - (let ((__tmp110057 |[1]#_g110058_|)) + (##unchecked-structure-set! __obj111180 __tmp111305 '10 '#f '#f)) + (let ((__tmp111307 |[1]#_g111308_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109930 __tmp110057 '9 '#f '#f)) - (let ((__tmp110059 - (cons |[1]#_g110060_| - (cons |[1]#_g110061_| - (cons |[1]#_g110062_| - (cons |[1]#_g110063_| - (cons |[1]#_g110064_| - (cons |[1]#_g110065_| - (cons |[1]#_g110066_| - (cons |[1]#_g110067_| + (##unchecked-structure-set! __obj111180 __tmp111307 '11 '#f '#f)) + (let ((__tmp111309 + (cons |[1]#_g111310_| + (cons |[1]#_g111311_| + (cons |[1]#_g111312_| + (cons |[1]#_g111313_| + (cons |[1]#_g111314_| + (cons |[1]#_g111315_| + (cons |[1]#_g111316_| + (cons |[1]#_g111317_| '())))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj109930 __tmp110059 '10 '#f '#f)) - (let ((__tmp110068 - (cons |[1]#_g110069_| - (cons |[1]#_g110070_| - (cons |[1]#_g110071_| - (cons |[1]#_g110072_| - (cons |[1]#_g110073_| - (cons |[1]#_g110074_| - (cons |[1]#_g110075_| - (cons |[1]#_g110076_| + (##unchecked-structure-set! __obj111180 __tmp111309 '12 '#f '#f)) + (let ((__tmp111318 + (cons |[1]#_g111319_| + (cons |[1]#_g111320_| + (cons |[1]#_g111321_| + (cons |[1]#_g111322_| + (cons |[1]#_g111323_| + (cons |[1]#_g111324_| + (cons |[1]#_g111325_| + (cons |[1]#_g111326_| '())))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj109930 __tmp110068 '11 '#f '#f)) - __obj109930)) + (##unchecked-structure-set! __obj111180 __tmp111318 '13 '#f '#f)) + __obj111180)) (define |[:0:]#Locker| - (let ((__obj109931 + (let ((__obj111181 (let () (declare (not safe)) (##structure @@ -777,59 +785,67 @@ '#f '#f '#f + '#f + '#f '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109931 'Locker '1 '#f '#f)) + (##unchecked-structure-set! __obj111181 'Locker '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109931 '() '2 '#f '#f)) + (##unchecked-structure-set! __obj111181 'Locker '2 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj111181 '() '3 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj111181 '() '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj109931 + __obj111181 '((read-lock! () :void) (read-unlock! () :void) (write-lock! () :void) (write-unlock! () :void)) - '3 + '4 '#f '#f)) - (let ((__tmp110077 |[1]#_g110078_|)) + (let ((__tmp111327 |[1]#_g111328_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109931 __tmp110077 '4 '#f '#f)) - (let ((__tmp110079 |[1]#_g110080_|)) + (##unchecked-structure-set! __obj111181 __tmp111327 '7 '#f '#f)) + (let ((__tmp111329 |[1]#_g111330_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109931 __tmp110079 '5 '#f '#f)) - (let ((__tmp110081 |[1]#_g110082_|)) + (##unchecked-structure-set! __obj111181 __tmp111329 '6 '#f '#f)) + (let ((__tmp111331 |[1]#_g111332_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109931 __tmp110081 '6 '#f '#f)) - (let ((__tmp110083 |[1]#_g110084_|)) + (##unchecked-structure-set! __obj111181 __tmp111331 '8 '#f '#f)) + (let ((__tmp111333 |[1]#_g111334_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109931 __tmp110083 '7 '#f '#f)) - (let ((__tmp110085 |[1]#_g110086_|)) + (##unchecked-structure-set! __obj111181 __tmp111333 '9 '#f '#f)) + (let ((__tmp111335 |[1]#_g111336_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109931 __tmp110085 '8 '#f '#f)) - (let ((__tmp110087 |[1]#_g110088_|)) + (##unchecked-structure-set! __obj111181 __tmp111335 '10 '#f '#f)) + (let ((__tmp111337 |[1]#_g111338_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109931 __tmp110087 '9 '#f '#f)) - (let ((__tmp110089 - (cons |[1]#_g110090_| - (cons |[1]#_g110091_| - (cons |[1]#_g110092_| - (cons |[1]#_g110093_| '())))))) + (##unchecked-structure-set! __obj111181 __tmp111337 '11 '#f '#f)) + (let ((__tmp111339 + (cons |[1]#_g111340_| + (cons |[1]#_g111341_| + (cons |[1]#_g111342_| + (cons |[1]#_g111343_| '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj109931 __tmp110089 '10 '#f '#f)) - (let ((__tmp110094 - (cons |[1]#_g110095_| - (cons |[1]#_g110096_| - (cons |[1]#_g110097_| - (cons |[1]#_g110098_| '())))))) + (##unchecked-structure-set! __obj111181 __tmp111339 '12 '#f '#f)) + (let ((__tmp111344 + (cons |[1]#_g111345_| + (cons |[1]#_g111346_| + (cons |[1]#_g111347_| + (cons |[1]#_g111348_| '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj109931 __tmp110094 '11 '#f '#f)) - __obj109931)) + (##unchecked-structure-set! __obj111181 __tmp111344 '13 '#f '#f)) + __obj111181)) (define |[:0:]#locked-hash-table| - (let ((__obj109932 + (let ((__obj111182 (let () (declare (not safe)) (##structure @@ -858,7 +874,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj109932 + __obj111182 'gerbil/runtime/hash#locked-hash-table::t '1 '#f @@ -866,73 +882,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj109932 + __obj111182 'locked-hash-table '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '(table lock) '4 '#f '#f)) + (##unchecked-structure-set! __obj111182 '(table lock) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '(table lock) '6 '#f '#f)) + (##unchecked-structure-set! __obj111182 '(table lock) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj111182 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj111182 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj111182 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj111182 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '#f '11 '#f '#f)) - (let ((__tmp110099 |[1]#_g110100_|)) + (##unchecked-structure-set! __obj111182 '#f '11 '#f '#f)) + (let ((__tmp111349 |[1]#_g111350_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109932 __tmp110099 '12 '#f '#f)) - (let ((__tmp110101 |[1]#_g110102_|)) + (##unchecked-structure-set! __obj111182 __tmp111349 '12 '#f '#f)) + (let ((__tmp111351 |[1]#_g111352_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109932 __tmp110101 '13 '#f '#f)) - (let ((__tmp110103 |[1]#_g110104_|)) + (##unchecked-structure-set! __obj111182 __tmp111351 '13 '#f '#f)) + (let ((__tmp111353 |[1]#_g111354_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109932 __tmp110103 '14 '#f '#f)) - (let ((__tmp110105 - (cons (cons 'table |[1]#_g110106_|) - (cons (cons 'lock |[1]#_g110107_|) '())))) + (##unchecked-structure-set! __obj111182 __tmp111353 '14 '#f '#f)) + (let ((__tmp111355 + (cons (cons 'table |[1]#_g111356_|) + (cons (cons 'lock |[1]#_g111357_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109932 __tmp110105 '15 '#f '#f)) - (let ((__tmp110108 - (cons (cons 'table |[1]#_g110109_|) - (cons (cons 'lock |[1]#_g110110_|) '())))) + (##unchecked-structure-set! __obj111182 __tmp111355 '15 '#f '#f)) + (let ((__tmp111358 + (cons (cons 'table |[1]#_g111359_|) + (cons (cons 'lock |[1]#_g111360_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109932 __tmp110108 '16 '#f '#f)) - (let ((__tmp110111 - (cons (cons 'table |[1]#_g110112_|) - (cons (cons 'lock |[1]#_g110113_|) '())))) + (##unchecked-structure-set! __obj111182 __tmp111358 '16 '#f '#f)) + (let ((__tmp111361 + (cons (cons 'table |[1]#_g111362_|) + (cons (cons 'lock |[1]#_g111363_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109932 __tmp110111 '17 '#f '#f)) - (let ((__tmp110114 - (cons (cons 'table |[1]#_g110115_|) - (cons (cons 'lock |[1]#_g110116_|) '())))) + (##unchecked-structure-set! __obj111182 __tmp111361 '17 '#f '#f)) + (let ((__tmp111364 + (cons (cons 'table |[1]#_g111365_|) + (cons (cons 'lock |[1]#_g111366_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109932 __tmp110114 '18 '#f '#f)) + (##unchecked-structure-set! __obj111182 __tmp111364 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj111182 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj111182 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109932 '() '20 '#f '#f)) - __obj109932)) + (##unchecked-structure-set! __obj111182 '() '20 '#f '#f)) + __obj111182)) (define |[:0:]#checked-hash-table| - (let ((__obj109933 + (let ((__obj111183 (let () (declare (not safe)) (##structure @@ -961,7 +977,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj109933 + __obj111183 'gerbil/runtime/hash#checked-hash-table::t '1 '#f @@ -969,7 +985,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj109933 + __obj111183 'checked-hash-table '2 '#f @@ -977,7 +993,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj109933 + __obj111183 '(table key-check) '4 '#f @@ -985,210 +1001,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj109933 + __obj111183 '(table key-check) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109933 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj111183 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109933 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj111183 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109933 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj111183 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109933 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj111183 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109933 '#f '11 '#f '#f)) - (let ((__tmp110117 |[1]#_g110118_|)) + (##unchecked-structure-set! __obj111183 '#f '11 '#f '#f)) + (let ((__tmp111367 |[1]#_g111368_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109933 __tmp110117 '12 '#f '#f)) - (let ((__tmp110119 |[1]#_g110120_|)) + (##unchecked-structure-set! __obj111183 __tmp111367 '12 '#f '#f)) + (let ((__tmp111369 |[1]#_g111370_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109933 __tmp110119 '13 '#f '#f)) - (let ((__tmp110121 |[1]#_g110122_|)) + (##unchecked-structure-set! __obj111183 __tmp111369 '13 '#f '#f)) + (let ((__tmp111371 |[1]#_g111372_|)) (declare (not safe)) - (##unchecked-structure-set! __obj109933 __tmp110121 '14 '#f '#f)) - (let ((__tmp110123 - (cons (cons 'table |[1]#_g110124_|) - (cons (cons 'key-check |[1]#_g110125_|) '())))) + (##unchecked-structure-set! __obj111183 __tmp111371 '14 '#f '#f)) + (let ((__tmp111373 + (cons (cons 'table |[1]#_g111374_|) + (cons (cons 'key-check |[1]#_g111375_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109933 __tmp110123 '15 '#f '#f)) - (let ((__tmp110126 - (cons (cons 'table |[1]#_g110127_|) - (cons (cons 'key-check |[1]#_g110128_|) '())))) + (##unchecked-structure-set! __obj111183 __tmp111373 '15 '#f '#f)) + (let ((__tmp111376 + (cons (cons 'table |[1]#_g111377_|) + (cons (cons 'key-check |[1]#_g111378_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109933 __tmp110126 '16 '#f '#f)) - (let ((__tmp110129 - (cons (cons 'table |[1]#_g110130_|) - (cons (cons 'key-check |[1]#_g110131_|) '())))) + (##unchecked-structure-set! __obj111183 __tmp111376 '16 '#f '#f)) + (let ((__tmp111379 + (cons (cons 'table |[1]#_g111380_|) + (cons (cons 'key-check |[1]#_g111381_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109933 __tmp110129 '17 '#f '#f)) - (let ((__tmp110132 - (cons (cons 'table |[1]#_g110133_|) - (cons (cons 'key-check |[1]#_g110134_|) '())))) + (##unchecked-structure-set! __obj111183 __tmp111379 '17 '#f '#f)) + (let ((__tmp111382 + (cons (cons 'table |[1]#_g111383_|) + (cons (cons 'key-check |[1]#_g111384_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj109933 __tmp110132 '18 '#f '#f)) + (##unchecked-structure-set! __obj111183 __tmp111382 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109933 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj111183 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109933 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj111183 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj109933 '() '20 '#f '#f)) - __obj109933)) + (##unchecked-structure-set! __obj111183 '() '20 '#f '#f)) + __obj111183)) (define |[:0:]#deflocked-hash-method| - (lambda (_%$stx105051%_) - (let* ((_%g105055105094%_ - (lambda (_%g105056105090%_) + (lambda (_%$stx106301%_) + (let* ((_%g106305106344%_ + (lambda (_%g106306106340%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g105056105090%_))) - (_%g105054105242%_ - (lambda (_%g105056105098%_) - (if (gx#stx-pair? _%g105056105098%_) - (let ((_%e105062105101%_ - (gx#syntax-e _%g105056105098%_))) - (let ((_%hd105063105105%_ + _%g106306106340%_))) + (_%g106304106492%_ + (lambda (_%g106306106348%_) + (if (gx#stx-pair? _%g106306106348%_) + (let ((_%e106312106351%_ + (gx#syntax-e _%g106306106348%_))) + (let ((_%hd106313106355%_ (let () (declare (not safe)) - (##car _%e105062105101%_))) - (_%tl105064105108%_ + (##car _%e106312106351%_))) + (_%tl106314106358%_ (let () (declare (not safe)) - (##cdr _%e105062105101%_)))) - (if (gx#stx-pair? _%tl105064105108%_) - (let ((_%e105065105111%_ - (gx#syntax-e _%tl105064105108%_))) - (let ((_%hd105066105115%_ + (##cdr _%e106312106351%_)))) + (if (gx#stx-pair? _%tl106314106358%_) + (let ((_%e106315106361%_ + (gx#syntax-e _%tl106314106358%_))) + (let ((_%hd106316106365%_ (let () (declare (not safe)) - (##car _%e105065105111%_))) - (_%tl105067105118%_ + (##car _%e106315106361%_))) + (_%tl106317106368%_ (let () (declare (not safe)) - (##cdr _%e105065105111%_)))) - (if (gx#stx-pair? _%hd105066105115%_) - (let ((_%e105068105121%_ - (gx#syntax-e _%hd105066105115%_))) - (let ((_%hd105069105125%_ + (##cdr _%e106315106361%_)))) + (if (gx#stx-pair? _%hd106316106365%_) + (let ((_%e106318106371%_ + (gx#syntax-e _%hd106316106365%_))) + (let ((_%hd106319106375%_ (let () (declare (not safe)) - (##car _%e105068105121%_))) - (_%tl105070105128%_ + (##car _%e106318106371%_))) + (_%tl106320106378%_ (let () (declare (not safe)) - (##cdr _%e105068105121%_)))) + (##cdr _%e106318106371%_)))) (if (gx#stx-pair/null? - _%tl105070105128%_) - (let ((_g110135_ + _%tl106320106378%_) + (let ((_g111385_ (gx#syntax-split-splice - _%tl105070105128%_ + _%tl106320106378%_ '0))) (begin - (let ((_g110136_ + (let ((_g111386_ (let () (declare (not safe)) (if (##values? - _g110135_) - (##vector-length - _g110135_) + _g111385_) + (##values-length + _g111385_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g110136_ 2))) - (error "Context expects 2 values" _g110136_))) + (##fx= _g111386_ 2))) + (error "Context expects 2 values" _g111386_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target105071105131%_ + (let ((_%target106321106381%_ (let () (declare (not safe)) - (##vector-ref - _g110135_ + (##values-ref + _g111385_ 0))) - (_%tl105073105134%_ + (_%tl106323106384%_ (let () (declare (not safe)) - (##vector-ref - _g110135_ + (##values-ref + _g111385_ 1)))) (if (gx#stx-null? - _%tl105073105134%_) - (letrec ((_%loop105074105137%_ + _%tl106323106384%_) + (letrec ((_%loop106324106387%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd105072105141%_ _%arg105078105144%_) - (if (gx#stx-pair? _%hd105072105141%_) - (let ((_%e105075105147%_ - (gx#syntax-e _%hd105072105141%_))) - (let ((_%lp-hd105076105151%_ + (lambda (_%hd106322106391%_ _%arg106328106394%_) + (if (gx#stx-pair? _%hd106322106391%_) + (let ((_%e106325106397%_ + (gx#syntax-e _%hd106322106391%_))) + (let ((_%lp-hd106326106401%_ (let () (declare (not safe)) - (##car _%e105075105147%_))) - (_%lp-tl105077105154%_ + (##car _%e106325106397%_))) + (_%lp-tl106327106404%_ (let () (declare (not safe)) - (##cdr _%e105075105147%_)))) - (_%loop105074105137%_ - _%lp-tl105077105154%_ - (cons _%lp-hd105076105151%_ - _%arg105078105144%_)))) - (let ((_%arg105079105157%_ - (reverse _%arg105078105144%_))) - (if (gx#stx-pair? _%tl105067105118%_) - (let ((_%e105080105161%_ - (gx#syntax-e _%tl105067105118%_))) - (let ((_%hd105081105165%_ + (##cdr _%e106325106397%_)))) + (_%loop106324106387%_ + _%lp-tl106327106404%_ + (cons _%lp-hd106326106401%_ + _%arg106328106394%_)))) + (let ((_%arg106329106407%_ + (reverse _%arg106328106394%_))) + (if (gx#stx-pair? _%tl106317106368%_) + (let ((_%e106330106411%_ + (gx#syntax-e _%tl106317106368%_))) + (let ((_%hd106331106415%_ (let () (declare (not safe)) - (##car _%e105080105161%_))) - (_%tl105082105168%_ + (##car _%e106330106411%_))) + (_%tl106332106418%_ (let () (declare (not safe)) - (##cdr _%e105080105161%_)))) - (if (gx#stx-pair? _%tl105082105168%_) - (let ((_%e105083105171%_ + (##cdr _%e106330106411%_)))) + (if (gx#stx-pair? _%tl106332106418%_) + (let ((_%e106333106421%_ (gx#syntax-e - _%tl105082105168%_))) - (let ((_%hd105084105175%_ + _%tl106332106418%_))) + (let ((_%hd106334106425%_ (let () (declare (not safe)) - (##car _%e105083105171%_))) - (_%tl105085105178%_ + (##car _%e106333106421%_))) + (_%tl106335106428%_ (let () (declare (not safe)) - (##cdr _%e105083105171%_)))) + (##cdr _%e106333106421%_)))) (if (gx#stx-pair? - _%tl105085105178%_) - (let ((_%e105086105181%_ + _%tl106335106428%_) + (let ((_%e106336106431%_ (gx#syntax-e - _%tl105085105178%_))) - (let ((_%hd105087105185%_ + _%tl106335106428%_))) + (let ((_%hd106337106435%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e105086105181%_))) - (_%tl105088105188%_ + (##car _%e106336106431%_))) + (_%tl106338106438%_ (let () (declare (not safe)) - (##cdr _%e105086105181%_)))) - (if (gx#stx-null? _%tl105088105188%_) - ((lambda (_%L105191%_ - _%L105193%_ - _%L105194%_ - _%L105195%_ - _%L105196%_) + (##cdr _%e106336106431%_)))) + (if (gx#stx-null? _%tl106338106438%_) + ((lambda (_%L106441%_ + _%L106443%_ + _%L106444%_ + _%L106445%_ + _%L106446%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method) - (cons _%L105196%_ + (cons _%L106446%_ (cons (gx#datum->syntax '#f 'locked-hash-table) @@ -1197,12 +1213,12 @@ (cons (cons (gx#datum->syntax '#f 'self) - (let ((__tmp110137 + (let ((__tmp111387 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g105227105230%_ _%g105228105233%_) - (cons _%g105227105230%_ _%g105228105233%_)))) + (lambda (_%g106477106480%_ _%g106478106483%_) + (cons _%g106477106480%_ _%g106478106483%_)))) (declare (not safe)) - (__foldr1 __tmp110137 '() _%L105195%_))) + (__foldr1 __tmp111387 '() _%L106445%_))) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (cons (gx#datum->syntax '#f 'h) (cons (cons (gx#datum->syntax @@ -1231,7 +1247,7 @@ (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L105194%_ + (cons _%L106444%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1241,194 +1257,198 @@ (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L105193%_ + (cons _%L106443%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'h) - (let ((__tmp110138 - (lambda (_%g105225105236%_ - _%g105226105239%_) - (cons _%g105225105236%_ - _%g105226105239%_)))) + (let ((__tmp111388 + (lambda (_%g106475106486%_ + _%g106476106489%_) + (cons _%g106475106486%_ + _%g106476106489%_)))) (declare (not safe)) - (__foldr1 __tmp110138 '() _%L105195%_))))) + (__foldr1 __tmp111388 '() _%L106445%_))))) (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L105191%_ + (cons _%L106441%_ (cons (gx#datum->syntax '#f 'l) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - _%hd105087105185%_ - _%hd105084105175%_ - _%hd105081105165%_ - _%arg105079105157%_ - _%hd105069105125%_) - (_%g105055105094%_ _%g105056105098%_)))) - (_%g105055105094%_ _%g105056105098%_)))) + (cons 'interface: + (cons (gx#datum->syntax + '#f + 'HashTable) + '())))))) + _%hd106337106435%_ + _%hd106334106425%_ + _%hd106331106415%_ + _%arg106329106407%_ + _%hd106319106375%_) + (_%g106305106344%_ _%g106306106348%_)))) + (_%g106305106344%_ _%g106306106348%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105055105094%_ - _%g105056105098%_)))) - (_%g105055105094%_ - _%g105056105098%_))))))) - (_%loop105074105137%_ _%target105071105131%_ '())) - (_%g105055105094%_ _%g105056105098%_))))) + (_%g106305106344%_ + _%g106306106348%_)))) + (_%g106305106344%_ + _%g106306106348%_))))))) + (_%loop106324106387%_ _%target106321106381%_ '())) + (_%g106305106344%_ _%g106306106348%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105055105094%_ - _%g105056105098%_)))) - (_%g105055105094%_ _%g105056105098%_)))) - (_%g105055105094%_ _%g105056105098%_)))) - (_%g105055105094%_ _%g105056105098%_))))) - (_%g105054105242%_ _%$stx105051%_)))) + (_%g106305106344%_ + _%g106306106348%_)))) + (_%g106305106344%_ _%g106306106348%_)))) + (_%g106305106344%_ _%g106306106348%_)))) + (_%g106305106344%_ _%g106306106348%_))))) + (_%g106304106492%_ _%$stx106301%_)))) (define |[:0:]#defchecked-hash-method| - (lambda (_%$stx105271%_) - (let* ((_%g105275105314%_ - (lambda (_%g105276105310%_) + (lambda (_%$stx106521%_) + (let* ((_%g106525106564%_ + (lambda (_%g106526106560%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g105276105310%_))) - (_%g105274105477%_ - (lambda (_%g105276105318%_) - (if (gx#stx-pair? _%g105276105318%_) - (let ((_%e105282105321%_ - (gx#syntax-e _%g105276105318%_))) - (let ((_%hd105283105325%_ + _%g106526106560%_))) + (_%g106524106727%_ + (lambda (_%g106526106568%_) + (if (gx#stx-pair? _%g106526106568%_) + (let ((_%e106532106571%_ + (gx#syntax-e _%g106526106568%_))) + (let ((_%hd106533106575%_ (let () (declare (not safe)) - (##car _%e105282105321%_))) - (_%tl105284105328%_ + (##car _%e106532106571%_))) + (_%tl106534106578%_ (let () (declare (not safe)) - (##cdr _%e105282105321%_)))) - (if (gx#stx-pair? _%tl105284105328%_) - (let ((_%e105285105331%_ - (gx#syntax-e _%tl105284105328%_))) - (let ((_%hd105286105335%_ + (##cdr _%e106532106571%_)))) + (if (gx#stx-pair? _%tl106534106578%_) + (let ((_%e106535106581%_ + (gx#syntax-e _%tl106534106578%_))) + (let ((_%hd106536106585%_ (let () (declare (not safe)) - (##car _%e105285105331%_))) - (_%tl105287105338%_ + (##car _%e106535106581%_))) + (_%tl106537106588%_ (let () (declare (not safe)) - (##cdr _%e105285105331%_)))) - (if (gx#stx-pair? _%hd105286105335%_) - (let ((_%e105288105341%_ - (gx#syntax-e _%hd105286105335%_))) - (let ((_%hd105289105345%_ + (##cdr _%e106535106581%_)))) + (if (gx#stx-pair? _%hd106536106585%_) + (let ((_%e106538106591%_ + (gx#syntax-e _%hd106536106585%_))) + (let ((_%hd106539106595%_ (let () (declare (not safe)) - (##car _%e105288105341%_))) - (_%tl105290105348%_ + (##car _%e106538106591%_))) + (_%tl106540106598%_ (let () (declare (not safe)) - (##cdr _%e105288105341%_)))) - (if (gx#stx-pair? _%tl105290105348%_) - (let ((_%e105291105351%_ + (##cdr _%e106538106591%_)))) + (if (gx#stx-pair? _%tl106540106598%_) + (let ((_%e106541106601%_ (gx#syntax-e - _%tl105290105348%_))) - (let ((_%hd105292105355%_ + _%tl106540106598%_))) + (let ((_%hd106542106605%_ (let () (declare (not safe)) - (##car _%e105291105351%_))) - (_%tl105293105358%_ + (##car _%e106541106601%_))) + (_%tl106543106608%_ (let () (declare (not safe)) - (##cdr _%e105291105351%_)))) + (##cdr _%e106541106601%_)))) (if (gx#stx-pair/null? - _%tl105293105358%_) - (let ((_g110139_ + _%tl106543106608%_) + (let ((_g111389_ (gx#syntax-split-splice - _%tl105293105358%_ + _%tl106543106608%_ '0))) (begin - (let ((_g110140_ + (let ((_g111390_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g110139_) - (##vector-length _g110139_) + (if (##values? _g111389_) + (##values-length _g111389_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g110140_ 2))) - (error "Context expects 2 values" _g110140_))) - (let ((_%target105294105361%_ + (if (not (let () (declare (not safe)) (##fx= _g111390_ 2))) + (error "Context expects 2 values" _g111390_))) + (let ((_%target106544106611%_ (let () (declare (not safe)) - (##vector-ref _g110139_ 0))) - (_%tl105296105364%_ + (##values-ref _g111389_ 0))) + (_%tl106546106614%_ (let () (declare (not safe)) - (##vector-ref _g110139_ 1)))) - (if (gx#stx-null? _%tl105296105364%_) - (letrec ((_%loop105297105367%_ - (lambda (_%hd105295105371%_ - _%arg105301105374%_) - (if (gx#stx-pair? _%hd105295105371%_) - (let ((_%e105298105377%_ + (##values-ref _g111389_ 1)))) + (if (gx#stx-null? _%tl106546106614%_) + (letrec ((_%loop106547106617%_ + (lambda (_%hd106545106621%_ + _%arg106551106624%_) + (if (gx#stx-pair? _%hd106545106621%_) + (let ((_%e106548106627%_ (gx#syntax-e - _%hd105295105371%_))) - (let ((_%lp-hd105299105381%_ + _%hd106545106621%_))) + (let ((_%lp-hd106549106631%_ (let () (declare (not safe)) - (##car _%e105298105377%_))) - (_%lp-tl105300105384%_ + (##car _%e106548106627%_))) + (_%lp-tl106550106634%_ (let () (declare (not safe)) - (##cdr _%e105298105377%_)))) - (_%loop105297105367%_ - _%lp-tl105300105384%_ - (cons _%lp-hd105299105381%_ - _%arg105301105374%_)))) - (let ((_%arg105302105387%_ - (reverse _%arg105301105374%_))) - (if (gx#stx-pair? _%tl105287105338%_) - (let ((_%e105303105391%_ + (##cdr _%e106548106627%_)))) + (_%loop106547106617%_ + _%lp-tl106550106634%_ + (cons _%lp-hd106549106631%_ + _%arg106551106624%_)))) + (let ((_%arg106552106637%_ + (reverse _%arg106551106624%_))) + (if (gx#stx-pair? _%tl106537106588%_) + (let ((_%e106553106641%_ (gx#syntax-e - _%tl105287105338%_))) - (let ((_%hd105304105395%_ + _%tl106537106588%_))) + (let ((_%hd106554106645%_ (let () (declare (not safe)) - (##car _%e105303105391%_))) - (_%tl105305105398%_ + (##car _%e106553106641%_))) + (_%tl106555106648%_ (let () (declare (not safe)) - (##cdr _%e105303105391%_)))) + (##cdr _%e106553106641%_)))) (if (gx#stx-pair? - _%tl105305105398%_) - (let ((_%e105306105401%_ + _%tl106555106648%_) + (let ((_%e106556106651%_ (gx#syntax-e - _%tl105305105398%_))) - (let ((_%hd105307105405%_ + _%tl106555106648%_))) + (let ((_%hd106557106655%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e105306105401%_))) - (_%tl105308105408%_ + (##car _%e106556106651%_))) + (_%tl106558106658%_ (let () (declare (not safe)) - (##cdr _%e105306105401%_)))) - (if (gx#stx-null? _%tl105308105408%_) - ((lambda (_%L105411%_ - _%L105413%_ - _%L105414%_ - _%L105415%_ - _%L105416%_) + (##cdr _%e106556106651%_)))) + (if (gx#stx-null? _%tl106558106658%_) + ((lambda (_%L106661%_ + _%L106663%_ + _%L106664%_ + _%L106665%_ + _%L106666%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method) - (cons _%L105416%_ + (cons _%L106666%_ (cons (gx#datum->syntax '#f 'checked-hash-table) '()))) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L105415%_ - (let ((__tmp110141 + (cons (cons _%L106665%_ + (let ((__tmp111391 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g105450105453%_ _%g105451105456%_) - (cons _%g105450105453%_ _%g105451105456%_)))) + (lambda (_%g106700106703%_ _%g106701106706%_) + (cons _%g106700106703%_ _%g106701106706%_)))) (declare (not safe)) - (__foldr1 __tmp110141 '() _%L105414%_))) + (__foldr1 __tmp111391 '() _%L106664%_))) (cons (cons (gx#datum->syntax '#f 'declare) (cons (cons (gx#datum->syntax '#f 'not) (cons (gx#datum->syntax '#f 'safe) '())) @@ -1438,7 +1458,7 @@ (cons (cons (gx#datum->syntax '#f '&checked-hash-table-table) - (cons _%L105415%_ + (cons _%L106665%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -1450,32 +1470,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&checked-hash-table-key-check) - (cons _%L105415%_ '())) + (cons _%L106665%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L105413%_ + (cons (cons _%L106663%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'key?) - (let ((__tmp110142 - (lambda (_%g105448105459%_ - _%g105449105462%_) - (cons _%g105448105459%_ - _%g105449105462%_)))) + (let ((__tmp111392 + (lambda (_%g106698106709%_ + _%g106699106712%_) + (cons _%g106698106709%_ + _%g106699106712%_)))) (declare (not safe)) - (__foldr1 __tmp110142 '() _%L105414%_)))) - (cons (cons _%L105411%_ + (__foldr1 __tmp111392 '() _%L106664%_)))) + (cons (cons _%L106661%_ (cons (gx#datum->syntax '#f 'h) - (let ((__tmp110143 - (lambda (_%g105446105465%_ - _%g105447105468%_) - (cons _%g105446105465%_ - _%g105447105468%_)))) + (let ((__tmp111393 + (lambda (_%g106696106715%_ + _%g106697106718%_) + (cons _%g106696106715%_ + _%g106697106718%_)))) (declare (not safe)) - (__foldr1 __tmp110143 '() _%L105414%_)))) + (__foldr1 __tmp111393 '() _%L106664%_)))) (cons (cons (gx#datum->syntax '#f 'abort!) (cons (cons (gx#datum->syntax '#f @@ -1486,19 +1506,19 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L105411%_ '())) + (cons _%L106661%_ '())) (cons 'value: (cons (cons (gx#datum->syntax '#f '@list) - (let ((__tmp110144 - (lambda (_%g105444105471%_ - _%g105445105474%_) - (cons _%g105444105471%_ - _%g105445105474%_)))) + (let ((__tmp111394 + (lambda (_%g106694106721%_ + _%g106695106724%_) + (cons _%g106694106721%_ + _%g106695106724%_)))) (declare (not safe)) (__foldr1 - __tmp110144 + __tmp111394 '() - _%L105414%_))) + _%L106664%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -1507,159 +1527,163 @@ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - _%hd105307105405%_ - _%hd105304105395%_ - _%arg105302105387%_ - _%hd105292105355%_ - _%hd105289105345%_) - (_%g105275105314%_ _%g105276105318%_)))) - (_%g105275105314%_ _%g105276105318%_)))) + (cons 'interface: + (cons (gx#datum->syntax + '#f + 'HashTable) + '())))))) + _%hd106557106655%_ + _%hd106554106645%_ + _%arg106552106637%_ + _%hd106542106605%_ + _%hd106539106595%_) + (_%g106525106564%_ _%g106526106568%_)))) + (_%g106525106564%_ _%g106526106568%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105275105314%_ - _%g105276105318%_))))))) - (_%loop105297105367%_ _%target105294105361%_ '())) - (_%g105275105314%_ _%g105276105318%_))))) - (_%g105275105314%_ _%g105276105318%_)))) + (_%g106525106564%_ + _%g106526106568%_))))))) + (_%loop106547106617%_ _%target106544106611%_ '())) + (_%g106525106564%_ _%g106526106568%_))))) + (_%g106525106564%_ _%g106526106568%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105275105314%_ - _%g105276105318%_)))) - (_%g105275105314%_ _%g105276105318%_)))) - (_%g105275105314%_ _%g105276105318%_)))) - (_%g105275105314%_ _%g105276105318%_))))) - (_%g105274105477%_ _%$stx105271%_)))) + (_%g106525106564%_ + _%g106526106568%_)))) + (_%g106525106564%_ _%g106526106568%_)))) + (_%g106525106564%_ _%g106526106568%_)))) + (_%g106525106564%_ _%g106526106568%_))))) + (_%g106524106727%_ _%$stx106521%_)))) (define |[:0:]#defhash-method| - (lambda (_%$stx105506%_) - (let* ((_%g105510105542%_ - (lambda (_%g105511105538%_) + (lambda (_%$stx106756%_) + (let* ((_%g106760106792%_ + (lambda (_%g106761106788%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g105511105538%_))) - (_%g105509105655%_ - (lambda (_%g105511105546%_) - (if (gx#stx-pair? _%g105511105546%_) - (let ((_%e105516105549%_ - (gx#syntax-e _%g105511105546%_))) - (let ((_%hd105517105553%_ + _%g106761106788%_))) + (_%g106759106905%_ + (lambda (_%g106761106796%_) + (if (gx#stx-pair? _%g106761106796%_) + (let ((_%e106766106799%_ + (gx#syntax-e _%g106761106796%_))) + (let ((_%hd106767106803%_ (let () (declare (not safe)) - (##car _%e105516105549%_))) - (_%tl105518105556%_ + (##car _%e106766106799%_))) + (_%tl106768106806%_ (let () (declare (not safe)) - (##cdr _%e105516105549%_)))) - (if (gx#stx-pair? _%tl105518105556%_) - (let ((_%e105519105559%_ - (gx#syntax-e _%tl105518105556%_))) - (let ((_%hd105520105563%_ + (##cdr _%e106766106799%_)))) + (if (gx#stx-pair? _%tl106768106806%_) + (let ((_%e106769106809%_ + (gx#syntax-e _%tl106768106806%_))) + (let ((_%hd106770106813%_ (let () (declare (not safe)) - (##car _%e105519105559%_))) - (_%tl105521105566%_ + (##car _%e106769106809%_))) + (_%tl106771106816%_ (let () (declare (not safe)) - (##cdr _%e105519105559%_)))) - (if (gx#stx-pair? _%hd105520105563%_) - (let ((_%e105522105569%_ - (gx#syntax-e _%hd105520105563%_))) - (let ((_%hd105523105573%_ + (##cdr _%e106769106809%_)))) + (if (gx#stx-pair? _%hd106770106813%_) + (let ((_%e106772106819%_ + (gx#syntax-e _%hd106770106813%_))) + (let ((_%hd106773106823%_ (let () (declare (not safe)) - (##car _%e105522105569%_))) - (_%tl105524105576%_ + (##car _%e106772106819%_))) + (_%tl106774106826%_ (let () (declare (not safe)) - (##cdr _%e105522105569%_)))) - (if (gx#stx-pair? _%tl105524105576%_) - (let ((_%e105525105579%_ + (##cdr _%e106772106819%_)))) + (if (gx#stx-pair? _%tl106774106826%_) + (let ((_%e106775106829%_ (gx#syntax-e - _%tl105524105576%_))) - (let ((_%hd105526105583%_ + _%tl106774106826%_))) + (let ((_%hd106776106833%_ (let () (declare (not safe)) - (##car _%e105525105579%_))) - (_%tl105527105586%_ + (##car _%e106775106829%_))) + (_%tl106777106836%_ (let () (declare (not safe)) - (##cdr _%e105525105579%_)))) + (##cdr _%e106775106829%_)))) (if (gx#stx-pair/null? - _%tl105521105566%_) - (let ((_g110145_ + _%tl106771106816%_) + (let ((_g111395_ (gx#syntax-split-splice - _%tl105521105566%_ + _%tl106771106816%_ '0))) (begin - (let ((_g110146_ + (let ((_g111396_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g110145_) - (##vector-length _g110145_) + (if (##values? _g111395_) + (##values-length _g111395_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g110146_ 2))) - (error "Context expects 2 values" _g110146_))) - (let ((_%target105528105589%_ + (if (not (let () (declare (not safe)) (##fx= _g111396_ 2))) + (error "Context expects 2 values" _g111396_))) + (let ((_%target106778106839%_ (let () (declare (not safe)) - (##vector-ref _g110145_ 0))) - (_%tl105530105592%_ + (##values-ref _g111395_ 0))) + (_%tl106780106842%_ (let () (declare (not safe)) - (##vector-ref _g110145_ 1)))) - (if (gx#stx-null? _%tl105530105592%_) - (letrec ((_%loop105531105595%_ - (lambda (_%hd105529105599%_ - _%body105535105602%_) - (if (gx#stx-pair? _%hd105529105599%_) - (let ((_%e105532105605%_ + (##values-ref _g111395_ 1)))) + (if (gx#stx-null? _%tl106780106842%_) + (letrec ((_%loop106781106845%_ + (lambda (_%hd106779106849%_ + _%body106785106852%_) + (if (gx#stx-pair? _%hd106779106849%_) + (let ((_%e106782106855%_ (gx#syntax-e - _%hd105529105599%_))) - (let ((_%lp-hd105533105609%_ + _%hd106779106849%_))) + (let ((_%lp-hd106783106859%_ (let () (declare (not safe)) - (##car _%e105532105605%_))) - (_%lp-tl105534105612%_ + (##car _%e106782106855%_))) + (_%lp-tl106784106862%_ (let () (declare (not safe)) - (##cdr _%e105532105605%_)))) - (_%loop105531105595%_ - _%lp-tl105534105612%_ - (cons _%lp-hd105533105609%_ - _%body105535105602%_)))) - (let ((_%body105536105615%_ - (reverse _%body105535105602%_))) - ((lambda (_%L105619%_ - _%L105621%_ - _%L105622%_ - _%L105623%_) + (##cdr _%e106782106855%_)))) + (_%loop106781106845%_ + _%lp-tl106784106862%_ + (cons _%lp-hd106783106859%_ + _%body106785106852%_)))) + (let ((_%body106786106865%_ + (reverse _%body106785106852%_))) + ((lambda (_%L106869%_ + _%L106871%_ + _%L106872%_ + _%L106873%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L105623%_ - (cons (cons _%L105622%_ + (cons (cons _%L106873%_ + (cons (cons _%L106872%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f 'HashTable) '()))) - _%L105621%_)) - (let ((__tmp110147 - (lambda (_%g105646105649%_ _%g105647105652%_) - (cons _%g105646105649%_ _%g105647105652%_)))) + _%L106871%_)) + (let ((__tmp111397 + (lambda (_%g106896106899%_ _%g106897106902%_) + (cons _%g106896106899%_ _%g106897106902%_)))) (declare (not safe)) - (__foldr1 __tmp110147 '() _%L105619%_))))) + (__foldr1 __tmp111397 '() _%L106869%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body105536105615%_ - _%tl105527105586%_ - _%hd105526105583%_ - _%hd105523105573%_)))))) - (_%loop105531105595%_ _%target105528105589%_ '())) - (_%g105510105542%_ _%g105511105546%_))))) - (_%g105510105542%_ _%g105511105546%_)))) + _%body106786106865%_ + _%tl106777106836%_ + _%hd106776106833%_ + _%hd106773106823%_)))))) + (_%loop106781106845%_ _%target106778106839%_ '())) + (_%g106760106792%_ _%g106761106796%_))))) + (_%g106760106792%_ _%g106761106796%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105510105542%_ - _%g105511105546%_)))) - (_%g105510105542%_ _%g105511105546%_)))) - (_%g105510105542%_ _%g105511105546%_)))) - (_%g105510105542%_ _%g105511105546%_))))) - (_%g105509105655%_ _%$stx105506%_)))))) + (_%g106760106792%_ + _%g106761106796%_)))) + (_%g106760106792%_ _%g106761106796%_)))) + (_%g106760106792%_ _%g106761106796%_)))) + (_%g106760106792%_ _%g106761106796%_))))) + (_%g106759106905%_ _%$stx106756%_)))))) diff --git a/src/bootstrap/gerbil/runtime/init~0.scm b/src/bootstrap/gerbil/runtime/init~0.scm index 24e57c61d..8df2f77c6 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 1713631266) + (define gerbil/runtime/init::timestamp 1734357961) (begin (define __scheme-source (make-parameter '#f)) (define __load-gxi @@ -8,314 +8,314 @@ (let () (declare (not safe)) (__current-compiler __compile-top)) (let () (declare (not safe)) (__current-expander gx#core-expand)) (set! __eval-module gx#core-eval-module) - (letrec* ((_%+readtable+115309%_ __*readtable*)) - (let* ((_%core115311%_ (gx#import-module ':gerbil/core)) - (_%pre115313%_ (gx#make-prelude-context _%core115311%_))) - (gx#current-expander-module-prelude _%pre115313%_) - (gx#core-bind-root-syntax! ': _%pre115313%_ '#t) + (letrec* ((_%+readtable+116596%_ __*readtable*)) + (let* ((_%core116598%_ (gx#import-module ':gerbil/core)) + (_%pre116600%_ (gx#make-prelude-context _%core116598%_))) + (gx#current-expander-module-prelude _%pre116600%_) + (gx#core-bind-root-syntax! ': _%pre116600%_ '#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 ((__tmp115320 - (lambda (_%port115316%_) + (let ((__tmp116607 + (lambda (_%port116603%_) (input-port-readtable-set! - _%port115316%_ - _%+readtable+115309%_))) - (__tmp115319 (list ##stdin-port ##console-port))) + _%port116603%_ + _%+readtable+116596%_))) + (__tmp116606 (list ##stdin-port ##console-port))) (declare (not safe)) - (##for-each __tmp115320 __tmp115319)) - (let ((__tmp115322 - (lambda (_%port115318%_) + (##for-each __tmp116607 __tmp116606)) + (let ((__tmp116609 + (lambda (_%port116605%_) (output-port-readtable-set! - _%port115318%_ + _%port116605%_ (readtable-sharing-allowed?-set - (output-port-readtable _%port115318%_) + (output-port-readtable _%port116605%_) '#t)))) - (__tmp115321 (list ##stdout-port ##console-port))) + (__tmp116608 (list ##stdout-port ##console-port))) (declare (not safe)) - (##for-each __tmp115322 __tmp115321))))) - (define __gxi-init-interactive! (lambda (_%cmdline115306%_) '#!void)) + (##for-each __tmp116609 __tmp116608))))) + (define __gxi-init-interactive! (lambda (_%cmdline116593%_) '#!void)) (define load-scheme - (lambda (_%path115301%_) - (let ((__tmp115323 + (lambda (_%path116588%_) + (let ((__tmp116610 (lambda () - (let ((__tmp115324 (lambda _%args115304%_ '#f))) + (let ((__tmp116611 (lambda _%args116591%_ '#f))) (declare (not safe)) - (##load _%path115301%_ __tmp115324 '#t '#t '#f))))) + (##load _%path116588%_ __tmp116611 '#t '#t '#f))))) (declare (not safe)) (__call-with-parameters - __tmp115323 + __tmp116610 __scheme-source - _%path115301%_)))) + _%path116588%_)))) (define __expand-source - (lambda (_%src115283%_) - (letrec ((_%expand115285%_ - (lambda (_%src115299%_) + (lambda (_%src116570%_) + (letrec ((_%expand116572%_ + (lambda (_%src116586%_) (__compile-top - (gx#core-expand (__source->syntax _%src115299%_))))) - (_%no-expand115286%_ - (lambda (_%src115292%_) + (gx#core-expand (__source->syntax _%src116586%_))))) + (_%no-expand116573%_ + (lambda (_%src116579%_) (if (let () (declare (not safe)) (__scheme-source)) - _%src115292%_ + _%src116579%_ (if (let () (declare (not safe)) - (##source? _%src115292%_)) - (let ((_%code115296%_ + (##source? _%src116579%_)) + (let ((_%code116583%_ (let () (declare (not safe)) - (##source-code _%src115292%_)))) - (if (pair? _%code115296%_) + (##source-code _%src116579%_)))) + (if (pair? _%code116583%_) (if (eq? '__noexpand: (let () (declare (not safe)) - (##car _%code115296%_))) + (##car _%code116583%_))) (let () (declare (not safe)) - (##cdr _%code115296%_)) + (##cdr _%code116583%_)) '#f) '#f)) '#f))))) - (let ((_%$e115288%_ (_%no-expand115286%_ _%src115283%_))) - (if _%$e115288%_ _%$e115288%_ (_%expand115285%_ _%src115283%_)))))) + (let ((_%$e116575%_ (_%no-expand116573%_ _%src116570%_))) + (if _%$e116575%_ _%$e116575%_ (_%expand116572%_ _%src116570%_)))))) (define __macro-descr - (lambda (_%src115269%_ _%def-syntax?115270%_) - (letrec ((_%fail!115272%_ + (lambda (_%src116556%_ _%def-syntax?116557%_) + (letrec ((_%fail!116559%_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _%src115269%_)))) - (_%make-descr115273%_ - (lambda (_%size115277%_) - (let ((_%expander115280%_ - (let ((__tmp115325 + _%src116556%_)))) + (_%make-descr116560%_ + (lambda (_%size116564%_) + (let ((_%expander116567%_ + (let ((__tmp116612 (lambda () (let () (declare (not safe)) (##eval-top - _%src115269%_ + _%src116556%_ ##interaction-cte))))) (declare (not safe)) (__call-with-parameters - __tmp115325 + __tmp116612 __scheme-source 'macro)))) - (if (procedure? _%expander115280%_) + (if (procedure? _%expander116567%_) (let () (declare (not safe)) (##make-macro-descr - _%def-syntax?115270%_ - _%size115277%_ - _%expander115280%_ - _%src115269%_)) - (_%fail!115272%_)))))) - (if _%def-syntax?115270%_ - (_%make-descr115273%_ '-1) - (let ((_%code115275%_ + _%def-syntax?116557%_ + _%size116564%_ + _%expander116567%_ + _%src116556%_)) + (_%fail!116559%_)))))) + (if _%def-syntax?116557%_ + (_%make-descr116560%_ '-1) + (let ((_%code116562%_ (let () (declare (not safe)) - (##source-code _%src115269%_)))) - (if (and (let () (declare (not safe)) (##pair? _%code115275%_)) - (let ((__tmp115326 - (let ((__tmp115327 - (let ((__tmp115328 + (##source-code _%src116556%_)))) + (if (and (let () (declare (not safe)) (##pair? _%code116562%_)) + (let ((__tmp116613 + (let ((__tmp116614 + (let ((__tmp116615 (let () (declare (not safe)) - (##car _%code115275%_)))) + (##car _%code116562%_)))) (declare (not safe)) (##sourcify - __tmp115328 - _%src115269%_)))) + __tmp116615 + _%src116556%_)))) (declare (not safe)) - (##source-code __tmp115327)))) + (##source-code __tmp116614)))) (declare (not safe)) - (##memq __tmp115326 '(##lambda lambda)))) + (##memq __tmp116613 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _%src115269%_ _%src115269%_ '-3)) - (_%make-descr115273%_ - (let ((__tmp115329 - (let ((__tmp115330 + (##shape _%src116556%_ _%src116556%_ '-3)) + (_%make-descr116560%_ + (let ((__tmp116616 + (let ((__tmp116617 (let () (declare (not safe)) - (##cadr _%code115275%_)))) + (##cadr _%code116562%_)))) (declare (not safe)) - (##sourcify __tmp115330 _%src115269%_)))) + (##sourcify __tmp116617 _%src116556%_)))) (declare (not safe)) - (##form-size __tmp115329)))) - (_%fail!115272%_))))))) + (##form-size __tmp116616)))) + (_%fail!116559%_))))))) (define __source->syntax - (lambda (_%src115258%_) - (let _%recur115260%_ ((_%e115262%_ _%src115258%_)) - (if (let () (declare (not safe)) (##source? _%e115262%_)) - (let ((__tmp115332 - (_%recur115260%_ + (lambda (_%src116545%_) + (let _%recur116547%_ ((_%e116549%_ _%src116545%_)) + (if (let () (declare (not safe)) (##source? _%e116549%_)) + (let ((__tmp116619 + (_%recur116547%_ (let () (declare (not safe)) - (##source-code _%e115262%_)))) - (__tmp115331 + (##source-code _%e116549%_)))) + (__tmp116618 (let () (declare (not safe)) - (##source-locat _%e115262%_)))) + (##source-locat _%e116549%_)))) (declare (not safe)) - (##structure AST::t __tmp115332 __tmp115331)) - (if (pair? _%e115262%_) - (cons (_%recur115260%_ - (let () (declare (not safe)) (##car _%e115262%_))) - (_%recur115260%_ - (let () (declare (not safe)) (##cdr _%e115262%_)))) - (if (vector? _%e115262%_) - (vector-map _%recur115260%_ _%e115262%_) - (if (box? _%e115262%_) - (box (_%recur115260%_ (unbox _%e115262%_))) - _%e115262%_))))))) + (##structure AST::t __tmp116619 __tmp116618)) + (if (pair? _%e116549%_) + (cons (_%recur116547%_ + (let () (declare (not safe)) (##car _%e116549%_))) + (_%recur116547%_ + (let () (declare (not safe)) (##cdr _%e116549%_)))) + (if (vector? _%e116549%_) + (vector-map _%recur116547%_ _%e116549%_) + (if (box? _%e116549%_) + (box (_%recur116547%_ (unbox _%e116549%_))) + _%e116549%_))))))) (define __compile-top-source - (lambda (_%stx115256%_) - (cons '__noexpand: (__compile-top _%stx115256%_)))) + (lambda (_%stx116543%_) + (cons '__noexpand: (__compile-top _%stx116543%_)))) (define __compile-top - (lambda (_%stx115254%_) - (let ((__tmp115333 (gx#core-compile-top-syntax _%stx115254%_))) + (lambda (_%stx116541%_) + (let ((__tmp116620 (gx#core-compile-top-syntax _%stx116541%_))) (declare (not safe)) - (__compile __tmp115333)))) + (__compile __tmp116620)))) (define __modstate (let () (declare (not safe)) (make-hash-table-eq))) (define __modstate-mx (make-mutex 'import)) (define __modstate-cv (make-condition-variable 'import)) (define __eval-import - (lambda (_%in115216%_) - (letrec ((_%import1115218%_ - (lambda (_%in115239%_ _%phi115240%_) - (if (gx#module-import? _%in115239%_) - (let ((_%iphi115243%_ - (fx+ _%phi115240%_ - (gx#module-import-phi _%in115239%_)))) + (lambda (_%in116503%_) + (letrec ((_%import1116505%_ + (lambda (_%in116526%_ _%phi116527%_) + (if (gx#module-import? _%in116526%_) + (let ((_%iphi116530%_ + (fx+ _%phi116527%_ + (gx#module-import-phi _%in116526%_)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi115243%_)) - (_%eval1115219%_ + (##fxzero? _%iphi116530%_)) + (_%eval1116506%_ (gx#module-export-context - (gx#module-import-source _%in115239%_))) + (gx#module-import-source _%in116526%_))) '#!void)) - (if (gx#module-context? _%in115239%_) - (if (fxzero? _%phi115240%_) - (_%eval1115219%_ _%in115239%_) + (if (gx#module-context? _%in116526%_) + (if (fxzero? _%phi116527%_) + (_%eval1116506%_ _%in116526%_) '#!void) - (if (gx#import-set? _%in115239%_) - (let ((_%iphi115247%_ - (fx+ _%phi115240%_ - (gx#import-set-phi _%in115239%_)))) + (if (gx#import-set? _%in116526%_) + (let ((_%iphi116534%_ + (fx+ _%phi116527%_ + (gx#import-set-phi _%in116526%_)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi115247%_)) - (_%eval1115219%_ - (gx#import-set-source _%in115239%_)) + (##fxzero? _%iphi116534%_)) + (_%eval1116506%_ + (gx#import-set-source _%in116526%_)) (if (let () (declare (not safe)) - (##fxpositive? _%iphi115247%_)) + (##fxpositive? _%iphi116534%_)) (for-each - (lambda (_%in115251%_) - (_%import1115218%_ - _%in115251%_ - _%iphi115247%_)) + (lambda (_%in116538%_) + (_%import1116505%_ + _%in116538%_ + _%iphi116534%_)) (gx#module-context-import (gx#import-set-source - _%in115239%_))) + _%in116526%_))) '#!void))) (let () (declare (not safe)) (error '"Unexpected import" - _%in115239%_))))))) - (_%eval1115219%_ - (lambda (_%ctx115223%_) + _%in116526%_))))))) + (_%eval1116506%_ + (lambda (_%ctx116510%_) (mutex-lock! __modstate-mx) - (let ((_%$e115225%_ + (let ((_%$e116512%_ (let () (declare (not safe)) - (__hash-get __modstate _%ctx115223%_)))) - (if _%$e115225%_ - ((lambda (_%state115228%_) - (let ((_%$e115230%_ (car _%state115228%_))) - (if (eq? 'forcing _%$e115230%_) + (__hash-get __modstate _%ctx116510%_)))) + (if _%$e116512%_ + ((lambda (_%state116515%_) + (let ((_%$e116517%_ (car _%state116515%_))) + (if (eq? 'forcing _%$e116517%_) (begin (mutex-unlock! __modstate-mx __modstate-cv) - (_%eval1115219%_ _%ctx115223%_)) - (if (eq? 'ready _%$e115230%_) + (_%eval1116506%_ _%ctx116510%_)) + (if (eq? 'ready _%$e116517%_) (begin (mutex-unlock! __modstate-mx) - (cadr _%state115228%_)) - (if (eq? 'error _%$e115230%_) + (cadr _%state116515%_)) + (if (eq? 'error _%$e116517%_) (begin (mutex-unlock! __modstate-mx) - (let ((__tmp115334 - (cadr _%state115228%_))) + (let ((__tmp116621 + (cadr _%state116515%_))) (declare (not safe)) - (raise __tmp115334))) + (raise __tmp116621))) (begin (mutex-unlock! __modstate-mx) (let () (declare (not safe)) (error '"internal error; unexpected module state" - _%state115228%_)))))))) - _%$e115225%_) + _%state116515%_)))))))) + _%$e116512%_) (let () (let () (declare (not safe)) (__hash-put! __modstate - _%ctx115223%_ + _%ctx116510%_ '(forcing))) (mutex-unlock! __modstate-mx) - (let ((__tmp115337 - (lambda (_%exn115234%_) + (let ((__tmp116624 + (lambda (_%exn116521%_) (mutex-lock! __modstate-mx) - (let ((__tmp115338 + (let ((__tmp116625 (cons 'error - (cons _%exn115234%_ '())))) + (cons _%exn116521%_ '())))) (declare (not safe)) (__hash-put! __modstate - _%ctx115223%_ - __tmp115338)) + _%ctx116510%_ + __tmp116625)) (condition-variable-broadcast! __modstate-cv) (mutex-unlock! __modstate-mx) (let () (declare (not safe)) - (raise _%exn115234%_)))) - (__tmp115335 + (raise _%exn116521%_)))) + (__tmp116622 (lambda () - (let ((_%result115237%_ - (__eval-module _%ctx115223%_))) + (let ((_%result116524%_ + (__eval-module _%ctx116510%_))) (mutex-lock! __modstate-mx) - (let ((__tmp115336 + (let ((__tmp116623 (cons 'ready - (cons _%result115237%_ + (cons _%result116524%_ '())))) (declare (not safe)) (__hash-put! __modstate - _%ctx115223%_ - __tmp115336)) + _%ctx116510%_ + __tmp116623)) (condition-variable-broadcast! __modstate-cv) (mutex-unlock! __modstate-mx) - _%result115237%_)))) + _%result116524%_)))) (declare (not safe)) - (__with-catch __tmp115337 __tmp115335)))))))) - (if (pair? _%in115216%_) - (let ((__tmp115339 - (lambda (_%in115221%_) - (_%import1115218%_ _%in115221%_ '0)))) + (__with-catch __tmp116624 __tmp116622)))))))) + (if (pair? _%in116503%_) + (let ((__tmp116626 + (lambda (_%in116508%_) + (_%import1116505%_ _%in116508%_ '0)))) (declare (not safe)) - (##for-each __tmp115339 _%in115216%_)) - (_%import1115218%_ _%in115216%_ '0))))) + (##for-each __tmp116626 _%in116503%_)) + (_%import1116505%_ _%in116503%_ '0))))) (define __eval-module - (lambda (_%obj115214%_) (gx#core-eval-module _%obj115214%_))) + (lambda (_%obj116501%_) (gx#core-eval-module _%obj116501%_))) (define __interrupt-handler (lambda () (if (let () (declare (not safe)) (##getenv '"GERBIL_DEBUG" '#f)) @@ -323,86 +323,86 @@ (newline (current-error-port)) (display '"--- continuation backtrace:" (current-error-port)) (newline (current-error-port)) - (let* ((_%stack-trace-head115210%_ - (let ((_%$e115207%_ + (let* ((_%stack-trace-head116497%_ + (let ((_%$e116494%_ (string->number (let () (declare (not safe)) (##getenv '"GERBIL_DEBUG_STACKTRACE" '"10"))))) - (if _%$e115207%_ _%$e115207%_ '10))) - (__tmp115340 - (lambda (_%cont115212%_) + (if _%$e116494%_ _%$e116494%_ '10))) + (__tmp116627 + (lambda (_%cont116499%_) (display-continuation-backtrace - _%cont115212%_ + _%cont116499%_ (current-error-port) '1 '1 '0 - _%stack-trace-head115210%_)))) + _%stack-trace-head116497%_)))) (declare (not safe)) - (##continuation-capture __tmp115340))) + (##continuation-capture __tmp116627))) '#!void) (let () (declare (not safe)) (##default-user-interrupt-handler)))) (define gerbil-runtime-init! - (lambda (_%builtin-modules115183%_) + (lambda (_%builtin-modules116470%_) (if __runtime-initialized '#!void (begin (let () (declare (not safe)) (dump-stack-trace? '#t)) - (let* ((_%home115185%_ + (let* ((_%home116472%_ (let () (declare (not safe)) (gerbil-home))) - (_%libdir115187%_ (path-expand '"lib" _%home115185%_)) - (_%userpath115189%_ + (_%libdir116474%_ (path-expand '"lib" _%home116472%_)) + (_%userpath116476%_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_%loadpath115191%_ + (_%loadpath116478%_ (if (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_PREFIX" '#f)) - (cons _%libdir115187%_ '()) - (cons _%userpath115189%_ - (cons _%libdir115187%_ '())))) - (_%loadpath115201%_ - (let ((_%$e115193%_ + (cons _%libdir116474%_ '()) + (cons _%userpath116476%_ + (cons _%libdir116474%_ '())))) + (_%loadpath116488%_ + (let ((_%$e116480%_ (let () (declare (not safe)) (##getenv '"GERBIL_LOADPATH" '#f)))) - (if _%$e115193%_ - ((lambda (_%envvar115196%_) - (let ((__tmp115341 - (let ((__tmp115343 - (lambda (_%x115198%_) + (if _%$e116480%_ + ((lambda (_%envvar116483%_) + (let ((__tmp116628 + (let ((__tmp116630 + (lambda (_%x116485%_) (not (let () (declare (not safe)) (string-empty? - _%x115198%_))))) - (__tmp115342 + _%x116485%_))))) + (__tmp116629 (let () (declare (not safe)) (string-split - _%envvar115196%_ + _%envvar116483%_ '#\:)))) (declare (not safe)) - (##filter __tmp115343 __tmp115342)))) + (##filter __tmp116630 __tmp116629)))) (declare (not safe)) - (##append __tmp115341 _%loadpath115191%_))) - _%$e115193%_) - _%loadpath115191%_)))) + (##append __tmp116628 _%loadpath116478%_))) + _%$e116480%_) + _%loadpath116478%_)))) (declare (not safe)) - (__set-load-path! _%loadpath115201%_)) + (__set-load-path! _%loadpath116488%_)) (for-each - (lambda (_%mod115204%_) + (lambda (_%mod116491%_) (let () (declare (not safe)) - (__hash-put! __modules _%mod115204%_ 'builtin)) - (let ((__tmp115344 + (__hash-put! __modules _%mod116491%_ 'builtin)) + (let ((__tmp116631 (let () (declare (not safe)) - (##string-append _%mod115204%_ '"~0")))) + (##string-append _%mod116491%_ '"~0")))) (declare (not safe)) - (__hash-put! __modules __tmp115344 'builtin))) - _%builtin-modules115183%_) + (__hash-put! __modules __tmp116631 'builtin))) + _%builtin-modules116470%_) (current-user-interrupt-handler __interrupt-handler) (current-readtable __*readtable*) (random-source-randomize! default-random-source) diff --git a/src/bootstrap/gerbil/runtime/interface~0.scm b/src/bootstrap/gerbil/runtime/interface~0.scm index e16b423f0..1cb8fb957 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 1713631265) + (define gerbil/runtime/interface::timestamp 1734357960) (begin (define CastError::t - (let ((__tmp104958 (list Error::t))) + (let ((__tmp106208 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/interface#CastError::t 'CastError - __tmp104958 + __tmp106208 '() '() ':init!))) (define CastError? (let () (declare (not safe)) (__make-class-predicate CastError::t))) (define make-CastError - (lambda _%$args104951%_ - (apply make-instance CastError::t _%$args104951%_))) + (lambda _%$args106201%_ + (apply make-instance CastError::t _%$args106201%_))) (define CastError-message (let () (declare (not safe)) @@ -86,34 +86,34 @@ (declare (not safe)) (__bind-method!__% CastError::t ':init! CastError:::init! '#f)) (define raise-cast-error - (lambda (_%where104825%_ _%message104826%_ . _%irritants104827%_) - (let ((__tmp104959 - (let ((__obj104954 + (lambda (_%where106075%_ _%message106076%_ . _%irritants106077%_) + (let ((__tmp106209 + (let ((__obj106204 (let () (declare (not safe)) (##structure CastError::t '#f '#f '#f '#f)))) (let () (declare (not safe)) (CastError:::init! - __obj104954 - _%message104826%_ + __obj106204 + _%message106076%_ 'where: - _%where104825%_ + _%where106075%_ 'irritants: - _%irritants104827%_)) - __obj104954))) + _%irritants106077%_)) + __obj106204))) (declare (not safe)) - (raise __tmp104959)))) + (raise __tmp106209)))) (define interface-cast-error? CastError?) (define interface-instance::t - (let ((__tmp104961 (list)) (__tmp104960 (cons (cons 'struct: '#t) '()))) + (let ((__tmp106211 (list)) (__tmp106210 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#interface-instance::t 'interface-instance - __tmp104961 + __tmp106211 '(__object) - __tmp104960 + __tmp106210 '#f))) (define interface-instance? (let () @@ -138,24 +138,24 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator interface-instance::t '__object))) (define interface-descriptor::t - (let ((__tmp104963 (list)) - (__tmp104962 + (let ((__tmp106213 (list)) + (__tmp106212 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/interface#interface-descriptor::t 'interface-descriptor - __tmp104963 + __tmp106213 '(type methods) - __tmp104962 + __tmp106212 '#f))) (define interface-descriptor? (let () (declare (not safe)) (__make-class-predicate interface-descriptor::t))) (define make-interface-descriptor - (lambda _%$args104822%_ - (apply make-instance interface-descriptor::t _%$args104822%_))) + (lambda _%$args106072%_ + (apply make-instance interface-descriptor::t _%$args106072%_))) (define interface-descriptor-type (let () (declare (not safe)) @@ -193,553 +193,553 @@ interface-descriptor::t 'methods))) (define __interface-hash-key - (lambda (_%key104820%_) - (let ((__tmp104965 + (lambda (_%key106070%_) + (let ((__tmp106215 (macro-slot '1 - (let () (declare (not safe)) (##car _%key104820%_)))) - (__tmp104964 + (let () (declare (not safe)) (##car _%key106070%_)))) + (__tmp106214 (macro-slot '1 - (let () (declare (not safe)) (##cdr _%key104820%_))))) + (let () (declare (not safe)) (##cdr _%key106070%_))))) (declare (not safe)) - (##fxxor __tmp104965 __tmp104964)))) + (##fxxor __tmp106215 __tmp106214)))) (define __interface-test-key - (lambda (_%a104817%_ _%b104818%_) - (if (let ((__tmp104967 - (let () (declare (not safe)) (##car _%a104817%_))) - (__tmp104966 - (let () (declare (not safe)) (##car _%b104818%_)))) + (lambda (_%a106067%_ _%b106068%_) + (if (let ((__tmp106217 + (let () (declare (not safe)) (##car _%a106067%_))) + (__tmp106216 + (let () (declare (not safe)) (##car _%b106068%_)))) (declare (not safe)) - (##eq? __tmp104967 __tmp104966)) - (let ((__tmp104969 - (let () (declare (not safe)) (##cdr _%a104817%_))) - (__tmp104968 - (let () (declare (not safe)) (##cdr _%b104818%_)))) + (##eq? __tmp106217 __tmp106216)) + (let ((__tmp106219 + (let () (declare (not safe)) (##cdr _%a106067%_))) + (__tmp106218 + (let () (declare (not safe)) (##cdr _%b106068%_)))) (declare (not safe)) - (##eq? __tmp104969 __tmp104968)) + (##eq? __tmp106219 __tmp106218)) '#f))) (define make-prototype-table__% - (lambda (_%size-hint104798%_ _%seed104800%_) + (lambda (_%size-hint106048%_ _%seed106050%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint104798%_ + _%size-hint106048%_ __interface-hash-key __interface-test-key - _%seed104800%_)))) + _%seed106050%_)))) (define make-prototype-table__0 (lambda () - (let* ((_%size-hint104806%_ '#f) (_%seed104808%_ '0)) - (make-prototype-table__% _%size-hint104806%_ _%seed104808%_)))) + (let* ((_%size-hint106056%_ '#f) (_%seed106058%_ '0)) + (make-prototype-table__% _%size-hint106056%_ _%seed106058%_)))) (define make-prototype-table__1 - (lambda (_%size-hint104810%_) - (let ((_%seed104812%_ '0)) - (make-prototype-table__% _%size-hint104810%_ _%seed104812%_)))) + (lambda (_%size-hint106060%_) + (let ((_%seed106062%_ '0)) + (make-prototype-table__% _%size-hint106060%_ _%seed106062%_)))) (define make-prototype-table - (lambda _g104971_ - (let ((_g104970_ (let () (declare (not safe)) (##length _g104971_)))) - (cond ((let () (declare (not safe)) (##fx= _g104970_ 0)) - (apply make-prototype-table__0 _g104971_)) - ((let () (declare (not safe)) (##fx= _g104970_ 1)) - (apply make-prototype-table__1 _g104971_)) - ((let () (declare (not safe)) (##fx= _g104970_ 2)) - (apply make-prototype-table__% _g104971_)) + (lambda _g106221_ + (let ((_g106220_ (let () (declare (not safe)) (##length _g106221_)))) + (cond ((let () (declare (not safe)) (##fx= _g106220_ 0)) + (apply make-prototype-table__0 _g106221_)) + ((let () (declare (not safe)) (##fx= _g106220_ 1)) + (apply make-prototype-table__1 _g106221_)) + ((let () (declare (not safe)) (##fx= _g106220_ 2)) + (apply make-prototype-table__% _g106221_)) (else (##raise-wrong-number-of-arguments-exception make-prototype-table - _g104971_)))))) + _g106221_)))))) (define prototype-table-ref - (lambda (_%tab104751%_ _%key104752%_ _%default104753%_) - (let ((_%table104755%_ - (let () (declare (not safe)) (&raw-table-table _%tab104751%_))) - (_%seed104756%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104751%_)))) - (let* ((_%h104758%_ - (fxxor (__interface-hash-key _%key104752%_) _%seed104756%_)) - (_%size104761%_ (vector-length _%table104755%_)) - (_%entries104764%_ + (lambda (_%tab106001%_ _%key106002%_ _%default106003%_) + (let ((_%table106005%_ + (let () (declare (not safe)) (&raw-table-table _%tab106001%_))) + (_%seed106006%_ + (let () (declare (not safe)) (&raw-table-seed _%tab106001%_)))) + (let* ((_%h106008%_ + (fxxor (__interface-hash-key _%key106002%_) _%seed106006%_)) + (_%size106011%_ (vector-length _%table106005%_)) + (_%entries106014%_ (let () (declare (not safe)) - (##fxquotient _%size104761%_ '2))) - (_%start104767%_ - (let ((__tmp104972 + (##fxquotient _%size106011%_ '2))) + (_%start106017%_ + (let ((__tmp106222 (let () (declare (not safe)) - (##fxmodulo _%h104758%_ _%entries104764%_)))) + (##fxmodulo _%h106008%_ _%entries106014%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp104972 '1)))) - (let _%loop104771%_ ((_%probe104774%_ _%start104767%_) - (_%i104776%_ '1) - (_%deleted104778%_ '#f)) - (let ((_%k104781%_ (vector-ref _%table104755%_ _%probe104774%_))) - (if (eq? _%k104781%_ (macro-unused-obj)) - _%default104753%_ - (if (eq? _%k104781%_ (macro-deleted-obj)) - (_%loop104771%_ - (let ((_%next-probe104786%_ - (fx+ _%start104767%_ - _%i104776%_ - (fx* _%i104776%_ _%i104776%_)))) + (##fxarithmetic-shift-left __tmp106222 '1)))) + (let _%loop106021%_ ((_%probe106024%_ _%start106017%_) + (_%i106026%_ '1) + (_%deleted106028%_ '#f)) + (let ((_%k106031%_ (vector-ref _%table106005%_ _%probe106024%_))) + (if (eq? _%k106031%_ (macro-unused-obj)) + _%default106003%_ + (if (eq? _%k106031%_ (macro-deleted-obj)) + (_%loop106021%_ + (let ((_%next-probe106036%_ + (fx+ _%start106017%_ + _%i106026%_ + (fx* _%i106026%_ _%i106026%_)))) (declare (not safe)) - (##fxmodulo _%next-probe104786%_ _%size104761%_)) - (let () (declare (not safe)) (##fx+ _%i104776%_ '1)) - (let ((_%$e104789%_ _%deleted104778%_)) - (if _%$e104789%_ _%$e104789%_ _%probe104774%_))) - (if (__interface-test-key _%key104752%_ _%k104781%_) + (##fxmodulo _%next-probe106036%_ _%size106011%_)) + (let () (declare (not safe)) (##fx+ _%i106026%_ '1)) + (let ((_%$e106039%_ _%deleted106028%_)) + (if _%$e106039%_ _%$e106039%_ _%probe106024%_))) + (if (__interface-test-key _%key106002%_ _%k106031%_) (vector-ref - _%table104755%_ + _%table106005%_ (let () (declare (not safe)) - (##fx+ _%probe104774%_ '1))) - (_%loop104771%_ - (let ((_%next-probe104794%_ - (fx+ _%start104767%_ - _%i104776%_ - (fx* _%i104776%_ _%i104776%_)))) + (##fx+ _%probe106024%_ '1))) + (_%loop106021%_ + (let ((_%next-probe106044%_ + (fx+ _%start106017%_ + _%i106026%_ + (fx* _%i106026%_ _%i106026%_)))) (declare (not safe)) (##fxmodulo - _%next-probe104794%_ - _%size104761%_)) + _%next-probe106044%_ + _%size106011%_)) (let () (declare (not safe)) - (##fx+ _%i104776%_ '1)) - _%deleted104778%_)))))))))) + (##fx+ _%i106026%_ '1)) + _%deleted106028%_)))))))))) (define prototype-table-set! - (lambda (_%tab104747%_ _%key104748%_ _%value104749%_) - (if (let ((__tmp104975 + (lambda (_%tab105997%_ _%key105998%_ _%value105999%_) + (if (let ((__tmp106225 (let () (declare (not safe)) - (&raw-table-free _%tab104747%_))) - (__tmp104973 - (let ((__tmp104974 + (&raw-table-free _%tab105997%_))) + (__tmp106223 + (let ((__tmp106224 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab104747%_))))) + (&raw-table-table _%tab105997%_))))) (declare (not safe)) - (##fxquotient __tmp104974 '4)))) + (##fxquotient __tmp106224 '4)))) (declare (not safe)) - (##fx< __tmp104975 __tmp104973)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab104747%_)) + (##fx< __tmp106225 __tmp106223)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab105997%_)) '#!void) - (__prototype-table-set! _%tab104747%_ _%key104748%_ _%value104749%_))) + (__prototype-table-set! _%tab105997%_ _%key105998%_ _%value105999%_))) (define __prototype-table-set! - (lambda (_%tab104698%_ _%key104699%_ _%value104700%_) - (let ((_%table104703%_ - (let () (declare (not safe)) (&raw-table-table _%tab104698%_))) - (_%seed104704%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104698%_)))) - (let* ((_%h104706%_ - (fxxor (__interface-hash-key _%key104699%_) _%seed104704%_)) - (_%size104709%_ (vector-length _%table104703%_)) - (_%entries104712%_ + (lambda (_%tab105948%_ _%key105949%_ _%value105950%_) + (let ((_%table105953%_ + (let () (declare (not safe)) (&raw-table-table _%tab105948%_))) + (_%seed105954%_ + (let () (declare (not safe)) (&raw-table-seed _%tab105948%_)))) + (let* ((_%h105956%_ + (fxxor (__interface-hash-key _%key105949%_) _%seed105954%_)) + (_%size105959%_ (vector-length _%table105953%_)) + (_%entries105962%_ (let () (declare (not safe)) - (##fxquotient _%size104709%_ '2))) - (_%start104715%_ - (let ((__tmp104976 + (##fxquotient _%size105959%_ '2))) + (_%start105965%_ + (let ((__tmp106226 (let () (declare (not safe)) - (##fxmodulo _%h104706%_ _%entries104712%_)))) + (##fxmodulo _%h105956%_ _%entries105962%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp104976 '1)))) - (let _%loop104719%_ ((_%probe104722%_ _%start104715%_) - (_%i104724%_ '1) - (_%deleted104726%_ '#f)) - (let ((_%k104729%_ (vector-ref _%table104703%_ _%probe104722%_))) - (if (eq? _%k104729%_ (macro-unused-obj)) - (if _%deleted104726%_ + (##fxarithmetic-shift-left __tmp106226 '1)))) + (let _%loop105969%_ ((_%probe105972%_ _%start105965%_) + (_%i105974%_ '1) + (_%deleted105976%_ '#f)) + (let ((_%k105979%_ (vector-ref _%table105953%_ _%probe105972%_))) + (if (eq? _%k105979%_ (macro-unused-obj)) + (if _%deleted105976%_ (begin (vector-set! - _%table104703%_ - _%deleted104726%_ - _%key104699%_) + _%table105953%_ + _%deleted105976%_ + _%key105949%_) (vector-set! - _%table104703%_ + _%table105953%_ (let () (declare (not safe)) - (##fx+ _%deleted104726%_ '1)) - _%value104700%_) + (##fx+ _%deleted105976%_ '1)) + _%value105950%_) ((lambda () - (let ((__tmp104977 - (let ((__tmp104978 + (let ((__tmp106227 + (let ((__tmp106228 (let () (declare (not safe)) (&raw-table-count - _%tab104698%_)))) + _%tab105948%_)))) (declare (not safe)) - (##fx+ __tmp104978 '1)))) + (##fx+ __tmp106228 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104698%_ - __tmp104977))))) + _%tab105948%_ + __tmp106227))))) (begin (vector-set! - _%table104703%_ - _%probe104722%_ - _%key104699%_) + _%table105953%_ + _%probe105972%_ + _%key105949%_) (vector-set! - _%table104703%_ + _%table105953%_ (let () (declare (not safe)) - (##fx+ _%probe104722%_ '1)) - _%value104700%_) + (##fx+ _%probe105972%_ '1)) + _%value105950%_) ((lambda () - (let ((__tmp104979 - (let ((__tmp104980 + (let ((__tmp106229 + (let ((__tmp106230 (let () (declare (not safe)) - (&raw-table-free _%tab104698%_)))) + (&raw-table-free _%tab105948%_)))) (declare (not safe)) - (##fx- __tmp104980 '1)))) + (##fx- __tmp106230 '1)))) (declare (not safe)) (&raw-table-free-set! - _%tab104698%_ - __tmp104979)) - (let ((__tmp104981 - (let ((__tmp104982 + _%tab105948%_ + __tmp106229)) + (let ((__tmp106231 + (let ((__tmp106232 (let () (declare (not safe)) (&raw-table-count - _%tab104698%_)))) + _%tab105948%_)))) (declare (not safe)) - (##fx+ __tmp104982 '1)))) + (##fx+ __tmp106232 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104698%_ - __tmp104981)))))) - (if (eq? _%k104729%_ (macro-deleted-obj)) - (_%loop104719%_ - (let ((_%next-probe104736%_ - (fx+ _%start104715%_ - _%i104724%_ - (fx* _%i104724%_ _%i104724%_)))) + _%tab105948%_ + __tmp106231)))))) + (if (eq? _%k105979%_ (macro-deleted-obj)) + (_%loop105969%_ + (let ((_%next-probe105986%_ + (fx+ _%start105965%_ + _%i105974%_ + (fx* _%i105974%_ _%i105974%_)))) (declare (not safe)) - (##fxmodulo _%next-probe104736%_ _%size104709%_)) - (let () (declare (not safe)) (##fx+ _%i104724%_ '1)) - (let ((_%$e104739%_ _%deleted104726%_)) - (if _%$e104739%_ _%$e104739%_ _%probe104722%_))) - (if (__interface-test-key _%key104699%_ _%k104729%_) + (##fxmodulo _%next-probe105986%_ _%size105959%_)) + (let () (declare (not safe)) (##fx+ _%i105974%_ '1)) + (let ((_%$e105989%_ _%deleted105976%_)) + (if _%$e105989%_ _%$e105989%_ _%probe105972%_))) + (if (__interface-test-key _%key105949%_ _%k105979%_) (let () (vector-set! - _%table104703%_ - _%probe104722%_ - _%key104699%_) + _%table105953%_ + _%probe105972%_ + _%key105949%_) (vector-set! - _%table104703%_ + _%table105953%_ (let () (declare (not safe)) - (##fx+ _%probe104722%_ '1)) - _%value104700%_)) - (_%loop104719%_ - (let ((_%next-probe104744%_ - (fx+ _%start104715%_ - _%i104724%_ - (fx* _%i104724%_ _%i104724%_)))) + (##fx+ _%probe105972%_ '1)) + _%value105950%_)) + (_%loop105969%_ + (let ((_%next-probe105994%_ + (fx+ _%start105965%_ + _%i105974%_ + (fx* _%i105974%_ _%i105974%_)))) (declare (not safe)) (##fxmodulo - _%next-probe104744%_ - _%size104709%_)) + _%next-probe105994%_ + _%size105959%_)) (let () (declare (not safe)) - (##fx+ _%i104724%_ '1)) - _%deleted104726%_)))))))))) + (##fx+ _%i105974%_ '1)) + _%deleted105976%_)))))))))) (define prototype-table-update! - (lambda (_%tab104693%_ - _%key104694%_ - _%prototype-table-update!104695%_ - _%default104696%_) - (if (let ((__tmp104985 + (lambda (_%tab105943%_ + _%key105944%_ + _%prototype-table-update!105945%_ + _%default105946%_) + (if (let ((__tmp106235 (let () (declare (not safe)) - (&raw-table-free _%tab104693%_))) - (__tmp104983 - (let ((__tmp104984 + (&raw-table-free _%tab105943%_))) + (__tmp106233 + (let ((__tmp106234 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab104693%_))))) + (&raw-table-table _%tab105943%_))))) (declare (not safe)) - (##fxquotient __tmp104984 '4)))) + (##fxquotient __tmp106234 '4)))) (declare (not safe)) - (##fx< __tmp104985 __tmp104983)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab104693%_)) + (##fx< __tmp106235 __tmp106233)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab105943%_)) '#!void) (__prototype-table-update! - _%tab104693%_ - _%key104694%_ - _%prototype-table-update!104695%_ - _%default104696%_))) + _%tab105943%_ + _%key105944%_ + _%prototype-table-update!105945%_ + _%default105946%_))) (define __prototype-table-update! - (lambda (_%tab104643%_ - _%key104644%_ - _%prototype-table-update!104645%_ - _%default104646%_) - (let ((_%table104649%_ - (let () (declare (not safe)) (&raw-table-table _%tab104643%_))) - (_%seed104650%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104643%_)))) - (let* ((_%h104652%_ - (fxxor (__interface-hash-key _%key104644%_) _%seed104650%_)) - (_%size104655%_ (vector-length _%table104649%_)) - (_%entries104658%_ + (lambda (_%tab105893%_ + _%key105894%_ + _%prototype-table-update!105895%_ + _%default105896%_) + (let ((_%table105899%_ + (let () (declare (not safe)) (&raw-table-table _%tab105893%_))) + (_%seed105900%_ + (let () (declare (not safe)) (&raw-table-seed _%tab105893%_)))) + (let* ((_%h105902%_ + (fxxor (__interface-hash-key _%key105894%_) _%seed105900%_)) + (_%size105905%_ (vector-length _%table105899%_)) + (_%entries105908%_ (let () (declare (not safe)) - (##fxquotient _%size104655%_ '2))) - (_%start104661%_ - (let ((__tmp104986 + (##fxquotient _%size105905%_ '2))) + (_%start105911%_ + (let ((__tmp106236 (let () (declare (not safe)) - (##fxmodulo _%h104652%_ _%entries104658%_)))) + (##fxmodulo _%h105902%_ _%entries105908%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp104986 '1)))) - (let _%loop104665%_ ((_%probe104668%_ _%start104661%_) - (_%i104670%_ '1) - (_%deleted104672%_ '#f)) - (let ((_%k104675%_ (vector-ref _%table104649%_ _%probe104668%_))) - (if (eq? _%k104675%_ (macro-unused-obj)) - (if _%deleted104672%_ + (##fxarithmetic-shift-left __tmp106236 '1)))) + (let _%loop105915%_ ((_%probe105918%_ _%start105911%_) + (_%i105920%_ '1) + (_%deleted105922%_ '#f)) + (let ((_%k105925%_ (vector-ref _%table105899%_ _%probe105918%_))) + (if (eq? _%k105925%_ (macro-unused-obj)) + (if _%deleted105922%_ (begin (vector-set! - _%table104649%_ - _%deleted104672%_ - _%key104644%_) + _%table105899%_ + _%deleted105922%_ + _%key105894%_) (vector-set! - _%table104649%_ + _%table105899%_ (let () (declare (not safe)) - (##fx+ _%deleted104672%_ '1)) - (_%prototype-table-update!104645%_ - _%default104646%_)) + (##fx+ _%deleted105922%_ '1)) + (_%prototype-table-update!105895%_ + _%default105896%_)) ((lambda () - (let ((__tmp104987 - (let ((__tmp104988 + (let ((__tmp106237 + (let ((__tmp106238 (let () (declare (not safe)) (&raw-table-count - _%tab104643%_)))) + _%tab105893%_)))) (declare (not safe)) - (##fx+ __tmp104988 '1)))) + (##fx+ __tmp106238 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104643%_ - __tmp104987))))) + _%tab105893%_ + __tmp106237))))) (begin (vector-set! - _%table104649%_ - _%probe104668%_ - _%key104644%_) + _%table105899%_ + _%probe105918%_ + _%key105894%_) (vector-set! - _%table104649%_ + _%table105899%_ (let () (declare (not safe)) - (##fx+ _%probe104668%_ '1)) - (_%prototype-table-update!104645%_ - _%default104646%_)) + (##fx+ _%probe105918%_ '1)) + (_%prototype-table-update!105895%_ + _%default105896%_)) ((lambda () - (let ((__tmp104989 - (let ((__tmp104990 + (let ((__tmp106239 + (let ((__tmp106240 (let () (declare (not safe)) - (&raw-table-free _%tab104643%_)))) + (&raw-table-free _%tab105893%_)))) (declare (not safe)) - (##fx- __tmp104990 '1)))) + (##fx- __tmp106240 '1)))) (declare (not safe)) (&raw-table-free-set! - _%tab104643%_ - __tmp104989)) - (let ((__tmp104991 - (let ((__tmp104992 + _%tab105893%_ + __tmp106239)) + (let ((__tmp106241 + (let ((__tmp106242 (let () (declare (not safe)) (&raw-table-count - _%tab104643%_)))) + _%tab105893%_)))) (declare (not safe)) - (##fx+ __tmp104992 '1)))) + (##fx+ __tmp106242 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104643%_ - __tmp104991)))))) - (if (eq? _%k104675%_ (macro-deleted-obj)) - (_%loop104665%_ - (let ((_%next-probe104682%_ - (fx+ _%start104661%_ - _%i104670%_ - (fx* _%i104670%_ _%i104670%_)))) + _%tab105893%_ + __tmp106241)))))) + (if (eq? _%k105925%_ (macro-deleted-obj)) + (_%loop105915%_ + (let ((_%next-probe105932%_ + (fx+ _%start105911%_ + _%i105920%_ + (fx* _%i105920%_ _%i105920%_)))) (declare (not safe)) - (##fxmodulo _%next-probe104682%_ _%size104655%_)) - (let () (declare (not safe)) (##fx+ _%i104670%_ '1)) - (let ((_%$e104685%_ _%deleted104672%_)) - (if _%$e104685%_ _%$e104685%_ _%probe104668%_))) - (if (__interface-test-key _%key104644%_ _%k104675%_) + (##fxmodulo _%next-probe105932%_ _%size105905%_)) + (let () (declare (not safe)) (##fx+ _%i105920%_ '1)) + (let ((_%$e105935%_ _%deleted105922%_)) + (if _%$e105935%_ _%$e105935%_ _%probe105918%_))) + (if (__interface-test-key _%key105894%_ _%k105925%_) (let () (vector-set! - _%table104649%_ - _%probe104668%_ - _%key104644%_) + _%table105899%_ + _%probe105918%_ + _%key105894%_) (vector-set! - _%table104649%_ + _%table105899%_ (let () (declare (not safe)) - (##fx+ _%probe104668%_ '1)) - (_%prototype-table-update!104645%_ + (##fx+ _%probe105918%_ '1)) + (_%prototype-table-update!105895%_ (vector-ref - _%table104649%_ + _%table105899%_ (let () (declare (not safe)) - (##fx+ _%probe104668%_ '1)))))) - (_%loop104665%_ - (let ((_%next-probe104690%_ - (fx+ _%start104661%_ - _%i104670%_ - (fx* _%i104670%_ _%i104670%_)))) + (##fx+ _%probe105918%_ '1)))))) + (_%loop105915%_ + (let ((_%next-probe105940%_ + (fx+ _%start105911%_ + _%i105920%_ + (fx* _%i105920%_ _%i105920%_)))) (declare (not safe)) (##fxmodulo - _%next-probe104690%_ - _%size104655%_)) + _%next-probe105940%_ + _%size105905%_)) (let () (declare (not safe)) - (##fx+ _%i104670%_ '1)) - _%deleted104672%_)))))))))) + (##fx+ _%i105920%_ '1)) + _%deleted105922%_)))))))))) (define prototype-table-delete! - (lambda (_%tab104598%_ _%key104600%_) - (let ((_%table104603%_ - (let () (declare (not safe)) (&raw-table-table _%tab104598%_))) - (_%seed104605%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104598%_)))) - (let* ((_%h104608%_ - (fxxor (__interface-hash-key _%key104600%_) _%seed104605%_)) - (_%size104611%_ (vector-length _%table104603%_)) - (_%entries104614%_ + (lambda (_%tab105848%_ _%key105850%_) + (let ((_%table105853%_ + (let () (declare (not safe)) (&raw-table-table _%tab105848%_))) + (_%seed105855%_ + (let () (declare (not safe)) (&raw-table-seed _%tab105848%_)))) + (let* ((_%h105858%_ + (fxxor (__interface-hash-key _%key105850%_) _%seed105855%_)) + (_%size105861%_ (vector-length _%table105853%_)) + (_%entries105864%_ (let () (declare (not safe)) - (##fxquotient _%size104611%_ '2))) - (_%start104617%_ - (let ((__tmp104993 + (##fxquotient _%size105861%_ '2))) + (_%start105867%_ + (let ((__tmp106243 (let () (declare (not safe)) - (##fxmodulo _%h104608%_ _%entries104614%_)))) + (##fxmodulo _%h105858%_ _%entries105864%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp104993 '1)))) - (let _%loop104621%_ ((_%probe104624%_ _%start104617%_) - (_%i104626%_ '1)) - (let ((_%k104629%_ (vector-ref _%table104603%_ _%probe104624%_))) - (if (eq? _%k104629%_ (macro-unused-obj)) + (##fxarithmetic-shift-left __tmp106243 '1)))) + (let _%loop105871%_ ((_%probe105874%_ _%start105867%_) + (_%i105876%_ '1)) + (let ((_%k105879%_ (vector-ref _%table105853%_ _%probe105874%_))) + (if (eq? _%k105879%_ (macro-unused-obj)) '#!void - (if (eq? _%k104629%_ (macro-deleted-obj)) - (_%loop104621%_ - (let ((_%next-probe104634%_ - (fx+ _%start104617%_ - _%i104626%_ - (fx* _%i104626%_ _%i104626%_)))) + (if (eq? _%k105879%_ (macro-deleted-obj)) + (_%loop105871%_ + (let ((_%next-probe105884%_ + (fx+ _%start105867%_ + _%i105876%_ + (fx* _%i105876%_ _%i105876%_)))) (declare (not safe)) - (##fxmodulo _%next-probe104634%_ _%size104611%_)) - (let () (declare (not safe)) (##fx+ _%i104626%_ '1))) - (if (__interface-test-key _%key104600%_ _%k104629%_) + (##fxmodulo _%next-probe105884%_ _%size105861%_)) + (let () (declare (not safe)) (##fx+ _%i105876%_ '1))) + (if (__interface-test-key _%key105850%_ _%k105879%_) (let () (vector-set! - _%table104603%_ - _%probe104624%_ + _%table105853%_ + _%probe105874%_ (macro-deleted-obj)) (vector-set! - _%table104603%_ + _%table105853%_ (let () (declare (not safe)) - (##fx+ _%probe104624%_ '1)) + (##fx+ _%probe105874%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp104994 - (let ((__tmp104995 + (let ((__tmp106244 + (let ((__tmp106245 (let () (declare (not safe)) (&raw-table-count - _%tab104598%_)))) + _%tab105848%_)))) (declare (not safe)) - (##fx- __tmp104995 '1)))) + (##fx- __tmp106245 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104598%_ - __tmp104994))))) - (_%loop104621%_ - (let ((_%next-probe104640%_ - (fx+ _%start104617%_ - _%i104626%_ - (fx* _%i104626%_ _%i104626%_)))) + _%tab105848%_ + __tmp106244))))) + (_%loop105871%_ + (let ((_%next-probe105890%_ + (fx+ _%start105867%_ + _%i105876%_ + (fx* _%i105876%_ _%i105876%_)))) (declare (not safe)) (##fxmodulo - _%next-probe104640%_ - _%size104611%_)) + _%next-probe105890%_ + _%size105861%_)) (let () (declare (not safe)) - (##fx+ _%i104626%_ '1)))))))))))) + (##fx+ _%i105876%_ '1)))))))))))) (define __interface-prototypes-mx (vector '0)) (define __interface-prototypes (make-prototype-table__% '#f '0)) (define __interface-prototypes-key (cons '#f '#f)) (define interface-subclass? - (lambda (_%klass104590%_) - (let ((_%super104591104593%_ - (let () (declare (not safe)) (##type-super _%klass104590%_)))) - (if _%super104591104593%_ - (let ((_%super104596%_ _%super104591104593%_)) - (eq? (let () (declare (not safe)) (##type-id _%super104596%_)) + (lambda (_%klass105840%_) + (let ((_%super105841105843%_ + (let () (declare (not safe)) (##type-super _%klass105840%_)))) + (if _%super105841105843%_ + (let ((_%super105846%_ _%super105841105843%_)) + (eq? (let () (declare (not safe)) (##type-id _%super105846%_)) (let () (declare (not safe)) (##type-id interface-instance::t)))) '#f)))) (define create-prototype - (lambda (_%descriptor104475%_ _%klass104476%_ _%obj-klass104477%_) - (let ((_%method-table104479%_ + (lambda (_%descriptor105674%_ _%klass105675%_ _%obj-klass105676%_) + (let ((_%method-table105678%_ (let () (declare (not safe)) - (specialize-class _%obj-klass104477%_)))) - (let _%loop104482%_ ((_%rest104485%_ + (specialize-class _%obj-klass105676%_)))) + (let _%loop105681%_ ((_%rest105684%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%descriptor104475%_ + _%descriptor105674%_ '2 '#f '#f))) - (_%count104487%_ '0) - (_%methods104489%_ '())) - (let* ((_%rest104491104499%_ _%rest104485%_) - (_%else104493104561%_ + (_%count105686%_ '0) + (_%methods105688%_ '())) + (let* ((_%rest105690105698%_ _%rest105684%_) + (_%else105692105760%_ (lambda () - (let ((_%prototype104507%_ - (let ((__obj104956 - (let ((__tmp104996 + (let ((_%prototype105706%_ + (let ((__obj106206 + (let ((__tmp106246 (let () (declare (not safe)) - (##fx+ _%count104487%_ '2)))) + (##fx+ _%count105686%_ '2)))) (declare (not safe)) (##make-structure - _%klass104476%_ - __tmp104996)))) + _%klass105675%_ + __tmp106246)))) (let () (declare (not safe)) - (object-fill! __obj104956 '#f)) - __obj104956))) - (let _%loop104510%_ ((_%rest104512%_ _%methods104489%_) - (_%off104513%_ + (object-fill! __obj106206 '#f)) + __obj106206))) + (let _%loop105709%_ ((_%rest105711%_ _%methods105688%_) + (_%off105712%_ (let () (declare (not safe)) - (##fx+ _%count104487%_ '1)))) - (let* ((_%rest104515104523%_ _%rest104512%_) - (_%else104517104542%_ + (##fx+ _%count105686%_ '1)))) + (let* ((_%rest105714105722%_ _%rest105711%_) + (_%else105716105741%_ (lambda () - (let ((_%prototype-key104531%_ + (let ((_%prototype-key105730%_ (cons (let () (declare (not safe)) - (##type-id _%klass104476%_)) + (##type-id _%klass105675%_)) (let () (declare (not safe)) (##type-id - _%obj-klass104477%_))))) + _%obj-klass105676%_))))) (let () (declare (not interrupts-enabled)) - (let _%again104536%_ () - (if (let ((__tmp104997 + (let _%again105735%_ () + (if (let ((__tmp106247 (let () (declare (not safe)) (##vector-cas! @@ -748,17 +748,17 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp104997 '0)) + (##fx= __tmp106247 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104536%_))))) + (_%again105735%_))))) (prototype-table-set! __interface-prototypes - _%prototype-key104531%_ - _%prototype104507%_) + _%prototype-key105730%_ + _%prototype105706%_) (let () (declare (not safe)) (##vector-cas! @@ -766,149 +766,219 @@ '0 '0 '1)) - ((lambda (_%prototype104540%_) - _%prototype104540%_) - _%prototype104507%_)))) - (_%K104519104549%_ - (lambda (_%rest104545%_ _%method104546%_) + ((lambda (_%prototype105739%_) + _%prototype105739%_) + _%prototype105706%_)))) + (_%K105718105748%_ + (lambda (_%rest105744%_ _%method105745%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%prototype104507%_ - _%method104546%_ - _%off104513%_ - _%klass104476%_ + _%prototype105706%_ + _%method105745%_ + _%off105712%_ + _%klass105675%_ '#f)) - (_%loop104510%_ - _%rest104545%_ + (_%loop105709%_ + _%rest105744%_ (let () (declare (not safe)) - (##fx- _%off104513%_ '1)))))) - (if (pair? _%rest104515104523%_) - (let ((_%hd104520104552%_ + (##fx- _%off105712%_ '1)))))) + (if (pair? _%rest105714105722%_) + (let ((_%hd105719105751%_ (let () (declare (not safe)) - (##car _%rest104515104523%_))) - (_%tl104521104554%_ + (##car _%rest105714105722%_))) + (_%tl105720105753%_ (let () (declare (not safe)) - (##cdr _%rest104515104523%_)))) - (let* ((_%method104557%_ _%hd104520104552%_) - (_%rest104559%_ _%tl104521104554%_)) - (_%K104519104549%_ - _%rest104559%_ - _%method104557%_))) - (_%else104517104542%_))))))) - (_%K104495104578%_ - (lambda (_%rest104564%_ _%method-name104565%_) - (let ((_%$e104568%_ - (let () - (declare (not safe)) - (symbolic-table-ref - _%method-table104479%_ - _%method-name104565%_ - '#f)))) - (if _%$e104568%_ - ((lambda (_%method104571%_) - (_%loop104482%_ - _%rest104564%_ - (let () - (declare (not safe)) - (##fx+ _%count104487%_ '1)) - (cons _%method104571%_ _%methods104489%_))) - _%$e104568%_) - ((lambda (_%klass104574%_ - _%obj-klass104575%_ - _%method-name104576%_) - (raise-cast-error - 'create-prototype - '"cannot create interface instance; missing method" - 'interface: - _%klass104574%_ - 'interface-id: - (let () - (declare (not safe)) - (##type-id _%klass104574%_)) - 'class: - _%obj-klass104575%_ - 'class-id: - (let () - (declare (not safe)) - (##type-id _%obj-klass104575%_)) - 'method: - _%method-name104576%_) - '#!void) - _%klass104476%_ - _%obj-klass104477%_ - _%method-name104565%_)))))) - (if (pair? _%rest104491104499%_) - (let ((_%hd104496104581%_ + (##cdr _%rest105714105722%_)))) + (let* ((_%method105756%_ _%hd105719105751%_) + (_%rest105758%_ _%tl105720105753%_)) + (_%K105718105748%_ + _%rest105758%_ + _%method105756%_))) + (_%else105716105741%_))))))) + (_%K105694105828%_ + (lambda (_%rest105763%_ _%method-spec105764%_) + (if (pair? _%method-spec105764%_) + (let _%loop-inner105768%_ ((_%methods-rest105771%_ + _%method-spec105764%_)) + (let* ((_%methods-rest105773105781%_ + _%methods-rest105771%_) + (_%else105775105793%_ + (lambda () + ((lambda (_%klass105789%_ + _%obj-klass105790%_ + _%method-name105791%_) + (raise-cast-error + 'create-prototype + '"cannot create interface instance; missing method" + 'interface: + _%klass105789%_ + 'interface-id: + (let () + (declare (not safe)) + (##type-id _%klass105789%_)) + 'class: + _%obj-klass105790%_ + 'class-id: + (let () + (declare (not safe)) + (##type-id _%obj-klass105790%_)) + 'method: + _%method-name105791%_) + '#!void) + _%klass105675%_ + _%obj-klass105676%_ + _%method-spec105764%_))) + (_%K105777105806%_ + (lambda (_%methods-rest105796%_ + _%method-name105797%_) + (let ((_%$e105800%_ + (let () + (declare (not safe)) + (symbolic-table-ref + _%method-table105678%_ + _%method-name105797%_ + '#f)))) + (if _%$e105800%_ + ((lambda (_%method105803%_) + (_%loop105681%_ + _%rest105763%_ + (let () + (declare (not safe)) + (##fx+ _%count105686%_ '1)) + (cons _%method105803%_ + _%methods105688%_))) + _%$e105800%_) + (_%loop-inner105768%_ + _%methods-rest105796%_)))))) + (if (pair? _%methods-rest105773105781%_) + (let ((_%hd105778105809%_ + (let () + (declare (not safe)) + (##car _%methods-rest105773105781%_))) + (_%tl105779105811%_ + (let () + (declare (not safe)) + (##cdr _%methods-rest105773105781%_)))) + (let* ((_%method-name105814%_ + _%hd105778105809%_) + (_%methods-rest105816%_ + _%tl105779105811%_)) + (_%K105777105806%_ + _%methods-rest105816%_ + _%method-name105814%_))) + (_%else105775105793%_)))) + (let ((_%$e105818%_ + (let () + (declare (not safe)) + (symbolic-table-ref + _%method-table105678%_ + _%method-spec105764%_ + '#f)))) + (if _%$e105818%_ + ((lambda (_%method105821%_) + (_%loop105681%_ + _%rest105763%_ + (let () + (declare (not safe)) + (##fx+ _%count105686%_ '1)) + (cons _%method105821%_ _%methods105688%_))) + _%$e105818%_) + ((lambda (_%klass105824%_ + _%obj-klass105825%_ + _%method-name105826%_) + (raise-cast-error + 'create-prototype + '"cannot create interface instance; missing method" + 'interface: + _%klass105824%_ + 'interface-id: + (let () + (declare (not safe)) + (##type-id _%klass105824%_)) + 'class: + _%obj-klass105825%_ + 'class-id: + (let () + (declare (not safe)) + (##type-id _%obj-klass105825%_)) + 'method: + _%method-name105826%_) + '#!void) + _%klass105675%_ + _%obj-klass105676%_ + _%method-spec105764%_))))))) + (if (pair? _%rest105690105698%_) + (let ((_%hd105695105831%_ (let () (declare (not safe)) - (##car _%rest104491104499%_))) - (_%tl104497104583%_ + (##car _%rest105690105698%_))) + (_%tl105696105833%_ (let () (declare (not safe)) - (##cdr _%rest104491104499%_)))) - (let* ((_%method-name104586%_ _%hd104496104581%_) - (_%rest104588%_ _%tl104497104583%_)) - (_%K104495104578%_ - _%rest104588%_ - _%method-name104586%_))) - (_%else104493104561%_))))))) + (##cdr _%rest105690105698%_)))) + (let* ((_%method-spec105836%_ _%hd105695105831%_) + (_%rest105838%_ _%tl105696105833%_)) + (_%K105694105828%_ + _%rest105838%_ + _%method-spec105836%_))) + (_%else105692105760%_))))))) (define try-create-prototype - (lambda (_%descriptor104360%_ _%klass104361%_ _%obj-klass104362%_) - (let ((_%method-table104364%_ + (lambda (_%descriptor105508%_ _%klass105509%_ _%obj-klass105510%_) + (let ((_%method-table105512%_ (let () (declare (not safe)) - (specialize-class _%obj-klass104362%_)))) - (let _%loop104367%_ ((_%rest104370%_ + (specialize-class _%obj-klass105510%_)))) + (let _%loop105515%_ ((_%rest105518%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%descriptor104360%_ + _%descriptor105508%_ '2 '#f '#f))) - (_%count104372%_ '0) - (_%methods104374%_ '())) - (let* ((_%rest104376104384%_ _%rest104370%_) - (_%else104378104446%_ + (_%count105520%_ '0) + (_%methods105522%_ '())) + (let* ((_%rest105524105532%_ _%rest105518%_) + (_%else105526105594%_ (lambda () - (let ((_%prototype104392%_ - (let ((__obj104957 - (let ((__tmp104998 + (let ((_%prototype105540%_ + (let ((__obj106207 + (let ((__tmp106248 (let () (declare (not safe)) - (##fx+ _%count104372%_ '2)))) + (##fx+ _%count105520%_ '2)))) (declare (not safe)) (##make-structure - _%klass104361%_ - __tmp104998)))) + _%klass105509%_ + __tmp106248)))) (let () (declare (not safe)) - (object-fill! __obj104957 '#f)) - __obj104957))) - (let _%loop104395%_ ((_%rest104397%_ _%methods104374%_) - (_%off104398%_ + (object-fill! __obj106207 '#f)) + __obj106207))) + (let _%loop105543%_ ((_%rest105545%_ _%methods105522%_) + (_%off105546%_ (let () (declare (not safe)) - (##fx+ _%count104372%_ '1)))) - (let* ((_%rest104400104408%_ _%rest104397%_) - (_%else104402104427%_ + (##fx+ _%count105520%_ '1)))) + (let* ((_%rest105548105556%_ _%rest105545%_) + (_%else105550105575%_ (lambda () - (let ((_%prototype-key104416%_ + (let ((_%prototype-key105564%_ (cons (let () (declare (not safe)) - (##type-id _%klass104361%_)) + (##type-id _%klass105509%_)) (let () (declare (not safe)) (##type-id - _%obj-klass104362%_))))) + _%obj-klass105510%_))))) (let () (declare (not interrupts-enabled)) - (let _%again104421%_ () - (if (let ((__tmp104999 + (let _%again105569%_ () + (if (let ((__tmp106249 (let () (declare (not safe)) (##vector-cas! @@ -917,17 +987,17 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp104999 '0)) + (##fx= __tmp106249 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104421%_))))) + (_%again105569%_))))) (prototype-table-set! __interface-prototypes - _%prototype-key104416%_ - _%prototype104392%_) + _%prototype-key105564%_ + _%prototype105540%_) (let () (declare (not safe)) (##vector-cas! @@ -935,110 +1005,163 @@ '0 '0 '1)) - ((lambda (_%prototype104425%_) - _%prototype104425%_) - _%prototype104392%_)))) - (_%K104404104434%_ - (lambda (_%rest104430%_ _%method104431%_) + ((lambda (_%prototype105573%_) + _%prototype105573%_) + _%prototype105540%_)))) + (_%K105552105582%_ + (lambda (_%rest105578%_ _%method105579%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%prototype104392%_ - _%method104431%_ - _%off104398%_ - _%klass104361%_ + _%prototype105540%_ + _%method105579%_ + _%off105546%_ + _%klass105509%_ '#f)) - (_%loop104395%_ - _%rest104430%_ + (_%loop105543%_ + _%rest105578%_ (let () (declare (not safe)) - (##fx- _%off104398%_ '1)))))) - (if (pair? _%rest104400104408%_) - (let ((_%hd104405104437%_ + (##fx- _%off105546%_ '1)))))) + (if (pair? _%rest105548105556%_) + (let ((_%hd105553105585%_ (let () (declare (not safe)) - (##car _%rest104400104408%_))) - (_%tl104406104439%_ + (##car _%rest105548105556%_))) + (_%tl105554105587%_ (let () (declare (not safe)) - (##cdr _%rest104400104408%_)))) - (let* ((_%method104442%_ _%hd104405104437%_) - (_%rest104444%_ _%tl104406104439%_)) - (_%K104404104434%_ - _%rest104444%_ - _%method104442%_))) - (_%else104402104427%_))))))) - (_%K104380104463%_ - (lambda (_%rest104449%_ _%method-name104450%_) - (let ((_%$e104453%_ - (let () - (declare (not safe)) - (symbolic-table-ref - _%method-table104364%_ - _%method-name104450%_ - '#f)))) - (if _%$e104453%_ - ((lambda (_%method104456%_) - (_%loop104367%_ - _%rest104449%_ - (let () - (declare (not safe)) - (##fx+ _%count104372%_ '1)) - (cons _%method104456%_ _%methods104374%_))) - _%$e104453%_) - ((lambda (_%klass104459%_ - _%obj-klass104460%_ - _%method-name104461%_) - '#f) - _%klass104361%_ - _%obj-klass104362%_ - _%method-name104450%_)))))) - (if (pair? _%rest104376104384%_) - (let ((_%hd104381104466%_ + (##cdr _%rest105548105556%_)))) + (let* ((_%method105590%_ _%hd105553105585%_) + (_%rest105592%_ _%tl105554105587%_)) + (_%K105552105582%_ + _%rest105592%_ + _%method105590%_))) + (_%else105550105575%_))))))) + (_%K105528105662%_ + (lambda (_%rest105597%_ _%method-spec105598%_) + (if (pair? _%method-spec105598%_) + (let _%loop-inner105602%_ ((_%methods-rest105605%_ + _%method-spec105598%_)) + (let* ((_%methods-rest105607105615%_ + _%methods-rest105605%_) + (_%else105609105627%_ + (lambda () + ((lambda (_%klass105623%_ + _%obj-klass105624%_ + _%method-name105625%_) + '#f) + _%klass105509%_ + _%obj-klass105510%_ + _%method-spec105598%_))) + (_%K105611105640%_ + (lambda (_%methods-rest105630%_ + _%method-name105631%_) + (let ((_%$e105634%_ + (let () + (declare (not safe)) + (symbolic-table-ref + _%method-table105512%_ + _%method-name105631%_ + '#f)))) + (if _%$e105634%_ + ((lambda (_%method105637%_) + (_%loop105515%_ + _%rest105597%_ + (let () + (declare (not safe)) + (##fx+ _%count105520%_ '1)) + (cons _%method105637%_ + _%methods105522%_))) + _%$e105634%_) + (_%loop-inner105602%_ + _%methods-rest105630%_)))))) + (if (pair? _%methods-rest105607105615%_) + (let ((_%hd105612105643%_ + (let () + (declare (not safe)) + (##car _%methods-rest105607105615%_))) + (_%tl105613105645%_ + (let () + (declare (not safe)) + (##cdr _%methods-rest105607105615%_)))) + (let* ((_%method-name105648%_ + _%hd105612105643%_) + (_%methods-rest105650%_ + _%tl105613105645%_)) + (_%K105611105640%_ + _%methods-rest105650%_ + _%method-name105648%_))) + (_%else105609105627%_)))) + (let ((_%$e105652%_ + (let () + (declare (not safe)) + (symbolic-table-ref + _%method-table105512%_ + _%method-spec105598%_ + '#f)))) + (if _%$e105652%_ + ((lambda (_%method105655%_) + (_%loop105515%_ + _%rest105597%_ + (let () + (declare (not safe)) + (##fx+ _%count105520%_ '1)) + (cons _%method105655%_ _%methods105522%_))) + _%$e105652%_) + ((lambda (_%klass105658%_ + _%obj-klass105659%_ + _%method-name105660%_) + '#f) + _%klass105509%_ + _%obj-klass105510%_ + _%method-spec105598%_))))))) + (if (pair? _%rest105524105532%_) + (let ((_%hd105529105665%_ (let () (declare (not safe)) - (##car _%rest104376104384%_))) - (_%tl104382104468%_ + (##car _%rest105524105532%_))) + (_%tl105530105667%_ (let () (declare (not safe)) - (##cdr _%rest104376104384%_)))) - (let* ((_%method-name104471%_ _%hd104381104466%_) - (_%rest104473%_ _%tl104382104468%_)) - (_%K104380104463%_ - _%rest104473%_ - _%method-name104471%_))) - (_%else104378104446%_))))))) + (##cdr _%rest105524105532%_)))) + (let* ((_%method-spec105670%_ _%hd105529105665%_) + (_%rest105672%_ _%tl105530105667%_)) + (_%K105528105662%_ + _%rest105672%_ + _%method-spec105670%_))) + (_%else105526105594%_))))))) (define cast - (lambda (_%descriptor104318%_ _%obj104320%_) + (lambda (_%descriptor105466%_ _%obj105468%_) (declare (not interrupts-enabled)) - (let* ((_%klass104324%_ + (let* ((_%klass105472%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor104318%_ '1 '#f '#f))) - (_%klass-id104327%_ - (let () (declare (not safe)) (##type-id _%klass104324%_))) - (_%obj-klass104330%_ - (let () (declare (not safe)) (class-of _%obj104320%_))) - (_%obj-klass-id104333%_ - (let () (declare (not safe)) (##type-id _%obj-klass104330%_)))) + (##unchecked-structure-ref _%descriptor105466%_ '1 '#f '#f))) + (_%klass-id105475%_ + (let () (declare (not safe)) (##type-id _%klass105472%_))) + (_%obj-klass105478%_ + (let () (declare (not safe)) (class-of _%obj105468%_))) + (_%obj-klass-id105481%_ + (let () (declare (not safe)) (##type-id _%obj-klass105478%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id104327%_ _%obj-klass-id104333%_)) - _%obj104320%_ - (if (interface-subclass? _%obj-klass104330%_) - (cast _%descriptor104318%_ + (##eq? _%klass-id105475%_ _%obj-klass-id105481%_)) + _%obj105468%_ + (if (interface-subclass? _%obj-klass105478%_) + (cast _%descriptor105466%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%obj104320%_ + _%obj105468%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again104342%_ () - (if (let ((__tmp105000 + (let _%again105490%_ () + (if (let ((__tmp106250 (let () (declare (not safe)) (##vector-cas! @@ -1047,29 +1170,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp105000 '0)) + (##fx= __tmp106250 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104342%_))))) + (_%again105490%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id104327%_)) + _%klass-id105475%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id104333%_)) - (let ((_%prototype104353%_ - (let ((_%$e104346%_ + _%obj-klass-id105481%_)) + (let ((_%prototype105501%_ + (let ((_%$e105494%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e104346%_ - ((lambda (_%prototype104349%_) + (if _%$e105494%_ + ((lambda (_%prototype105497%_) (let () (declare (not safe)) (##vector-cas! @@ -1077,8 +1200,8 @@ '0 '0 '1)) - _%prototype104349%_) - _%$e104346%_) + _%prototype105497%_) + _%$e105494%_) (let () (let () (declare (not safe)) @@ -1088,53 +1211,53 @@ '0 '1)) (create-prototype - _%descriptor104318%_ - _%klass104324%_ - _%obj-klass104330%_)))))) - ((lambda (_%prototype104355%_ _%obj104356%_) - (let ((_%instance104358%_ + _%descriptor105466%_ + _%klass105472%_ + _%obj-klass105478%_)))))) + ((lambda (_%prototype105503%_ _%obj105504%_) + (let ((_%instance105506%_ (let () (declare (not safe)) - (##structure-copy _%prototype104355%_)))) + (##structure-copy _%prototype105503%_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%instance104358%_ - _%obj104356%_ + _%instance105506%_ + _%obj105504%_ '1 '#f 'cast)) - _%instance104358%_)) - _%prototype104353%_ - _%obj104320%_)))))))) + _%instance105506%_)) + _%prototype105501%_ + _%obj105468%_)))))))) (define try-cast - (lambda (_%descriptor104276%_ _%obj104278%_) + (lambda (_%descriptor105424%_ _%obj105426%_) (declare (not interrupts-enabled)) - (let* ((_%klass104282%_ + (let* ((_%klass105430%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor104276%_ '1 '#f '#f))) - (_%klass-id104285%_ - (let () (declare (not safe)) (##type-id _%klass104282%_))) - (_%obj-klass104288%_ - (let () (declare (not safe)) (class-of _%obj104278%_))) - (_%obj-klass-id104291%_ - (let () (declare (not safe)) (##type-id _%obj-klass104288%_)))) + (##unchecked-structure-ref _%descriptor105424%_ '1 '#f '#f))) + (_%klass-id105433%_ + (let () (declare (not safe)) (##type-id _%klass105430%_))) + (_%obj-klass105436%_ + (let () (declare (not safe)) (class-of _%obj105426%_))) + (_%obj-klass-id105439%_ + (let () (declare (not safe)) (##type-id _%obj-klass105436%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id104285%_ _%obj-klass-id104291%_)) - _%obj104278%_ - (if (interface-subclass? _%obj-klass104288%_) + (##eq? _%klass-id105433%_ _%obj-klass-id105439%_)) + _%obj105426%_ + (if (interface-subclass? _%obj-klass105436%_) (try-cast - _%descriptor104276%_ + _%descriptor105424%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%obj104278%_ '1 '#f '#f))) + (##unchecked-structure-ref _%obj105426%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again104300%_ () - (if (let ((__tmp105001 + (let _%again105448%_ () + (if (let ((__tmp106251 (let () (declare (not safe)) (##vector-cas! @@ -1143,29 +1266,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp105001 '0)) + (##fx= __tmp106251 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104300%_))))) + (_%again105448%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id104285%_)) + _%klass-id105433%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id104291%_)) - (let ((_%prototype104311%_ - (let ((_%$e104304%_ + _%obj-klass-id105439%_)) + (let ((_%prototype105459%_ + (let ((_%$e105452%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e104304%_ - ((lambda (_%prototype104307%_) + (if _%$e105452%_ + ((lambda (_%prototype105455%_) (let () (declare (not safe)) (##vector-cas! @@ -1173,8 +1296,8 @@ '0 '0 '1)) - _%prototype104307%_) - _%$e104304%_) + _%prototype105455%_) + _%$e105452%_) (let () (let () (declare (not safe)) @@ -1184,55 +1307,55 @@ '0 '1)) (try-create-prototype - _%descriptor104276%_ - _%klass104282%_ - _%obj-klass104288%_)))))) - ((lambda (_%prototype104313%_ _%obj104314%_) - (if _%prototype104313%_ - (let ((_%instance104316%_ + _%descriptor105424%_ + _%klass105430%_ + _%obj-klass105436%_)))))) + ((lambda (_%prototype105461%_ _%obj105462%_) + (if _%prototype105461%_ + (let ((_%instance105464%_ (let () (declare (not safe)) - (##structure-copy _%prototype104313%_)))) + (##structure-copy _%prototype105461%_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%instance104316%_ - _%obj104314%_ + _%instance105464%_ + _%obj105462%_ '1 '#f 'cast)) - _%instance104316%_) + _%instance105464%_) '#f)) - _%prototype104311%_ - _%obj104278%_)))))))) + _%prototype105459%_ + _%obj105426%_)))))))) (define satisfies? - (lambda (_%descriptor104236%_ _%obj104238%_) + (lambda (_%descriptor105384%_ _%obj105386%_) (declare (not interrupts-enabled)) - (let* ((_%klass104242%_ + (let* ((_%klass105390%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor104236%_ '1 '#f '#f))) - (_%klass-id104245%_ - (let () (declare (not safe)) (##type-id _%klass104242%_))) - (_%obj-klass104248%_ - (let () (declare (not safe)) (class-of _%obj104238%_))) - (_%obj-klass-id104251%_ - (let () (declare (not safe)) (##type-id _%obj-klass104248%_)))) + (##unchecked-structure-ref _%descriptor105384%_ '1 '#f '#f))) + (_%klass-id105393%_ + (let () (declare (not safe)) (##type-id _%klass105390%_))) + (_%obj-klass105396%_ + (let () (declare (not safe)) (class-of _%obj105386%_))) + (_%obj-klass-id105399%_ + (let () (declare (not safe)) (##type-id _%obj-klass105396%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id104245%_ _%obj-klass-id104251%_)) - _%obj104238%_ - (if (interface-subclass? _%obj-klass104248%_) + (##eq? _%klass-id105393%_ _%obj-klass-id105399%_)) + _%obj105386%_ + (if (interface-subclass? _%obj-klass105396%_) (satisfies? - _%descriptor104236%_ + _%descriptor105384%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%obj104238%_ '1 '#f '#f))) + (##unchecked-structure-ref _%obj105386%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again104260%_ () - (if (let ((__tmp105002 + (let _%again105408%_ () + (if (let ((__tmp106252 (let () (declare (not safe)) (##vector-cas! @@ -1241,29 +1364,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp105002 '0)) + (##fx= __tmp106252 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104260%_))))) + (_%again105408%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id104245%_)) + _%klass-id105393%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id104251%_)) - (let ((_%prototype104271%_ - (let ((_%$e104264%_ + _%obj-klass-id105399%_)) + (let ((_%prototype105419%_ + (let ((_%$e105412%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e104264%_ - ((lambda (_%prototype104267%_) + (if _%$e105412%_ + ((lambda (_%prototype105415%_) (let () (declare (not safe)) (##vector-cas! @@ -1271,8 +1394,8 @@ '0 '0 '1)) - _%prototype104267%_) - _%$e104264%_) + _%prototype105415%_) + _%$e105412%_) (let () (let () (declare (not safe)) @@ -1282,10 +1405,10 @@ '0 '1)) (try-create-prototype - _%descriptor104236%_ - _%klass104242%_ - _%obj-klass104248%_)))))) - ((lambda (_%prototype104273%_ _%obj104274%_) - (if _%prototype104273%_ '#t '#f)) - _%prototype104271%_ - _%obj104238%_)))))))))) + _%descriptor105384%_ + _%klass105390%_ + _%obj-klass105396%_)))))) + ((lambda (_%prototype105421%_ _%obj105422%_) + (if _%prototype105421%_ '#t '#f)) + _%prototype105419%_ + _%obj105386%_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/interface~1.scm b/src/bootstrap/gerbil/runtime/interface~1.scm index e7346ec7d..0343b3b86 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]#_g105004_| + (define |[1]#_g106254_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g105006_| + (define |[1]#_g106256_| (##structure gx#syntax-quote::t 'CastError::t #f (gx#current-expander-context) '())) - (define |[1]#_g105008_| + (define |[1]#_g106258_| (##structure gx#syntax-quote::t 'make-CastError #f (gx#current-expander-context) '())) - (define |[1]#_g105010_| + (define |[1]#_g106260_| (##structure gx#syntax-quote::t 'CastError? #f (gx#current-expander-context) '())) - (define |[1]#_g105012_| + (define |[1]#_g106262_| (##structure gx#syntax-quote::t 'CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g105013_| + (define |[1]#_g106263_| (##structure gx#syntax-quote::t 'CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g105014_| + (define |[1]#_g106264_| (##structure gx#syntax-quote::t 'CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g105015_| + (define |[1]#_g106265_| (##structure gx#syntax-quote::t 'CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g105017_| + (define |[1]#_g106267_| (##structure gx#syntax-quote::t 'CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105018_| + (define |[1]#_g106268_| (##structure gx#syntax-quote::t 'CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105019_| + (define |[1]#_g106269_| (##structure gx#syntax-quote::t 'CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105020_| + (define |[1]#_g106270_| (##structure gx#syntax-quote::t 'CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105022_| + (define |[1]#_g106272_| (##structure gx#syntax-quote::t '&CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g105023_| + (define |[1]#_g106273_| (##structure gx#syntax-quote::t '&CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g105024_| + (define |[1]#_g106274_| (##structure gx#syntax-quote::t '&CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g105025_| + (define |[1]#_g106275_| (##structure gx#syntax-quote::t '&CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g105027_| + (define |[1]#_g106277_| (##structure gx#syntax-quote::t '&CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105028_| + (define |[1]#_g106278_| (##structure gx#syntax-quote::t '&CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105029_| + (define |[1]#_g106279_| (##structure gx#syntax-quote::t '&CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105030_| + (define |[1]#_g106280_| (##structure gx#syntax-quote::t '&CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105032_| + (define |[1]#_g106282_| (##structure gx#syntax-quote::t 'interface-descriptor::t #f (gx#current-expander-context) '())) - (define |[1]#_g105034_| + (define |[1]#_g106284_| (##structure gx#syntax-quote::t 'make-interface-descriptor #f (gx#current-expander-context) '())) - (define |[1]#_g105036_| + (define |[1]#_g106286_| (##structure gx#syntax-quote::t 'interface-descriptor? #f (gx#current-expander-context) '())) - (define |[1]#_g105038_| + (define |[1]#_g106288_| (##structure gx#syntax-quote::t 'interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g105039_| + (define |[1]#_g106289_| (##structure gx#syntax-quote::t 'interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g105041_| + (define |[1]#_g106291_| (##structure gx#syntax-quote::t 'interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105042_| + (define |[1]#_g106292_| (##structure gx#syntax-quote::t 'interface-descriptor-methods-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105044_| + (define |[1]#_g106294_| (##structure gx#syntax-quote::t '&interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g105045_| + (define |[1]#_g106295_| (##structure gx#syntax-quote::t '&interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g105047_| + (define |[1]#_g106297_| (##structure gx#syntax-quote::t '&interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105048_| + (define |[1]#_g106298_| (##structure gx#syntax-quote::t '&interface-descriptor-methods-set! @@ -219,7 +219,7 @@ '())) (begin (define |[:0:]#CastError| - (let ((__obj104953 + (let ((__obj106203 (let () (declare (not safe)) (##structure @@ -248,93 +248,93 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104953 + __obj106203 'gerbil/runtime/interface#CastError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 'CastError '2 '#f '#f)) + (##unchecked-structure-set! __obj106203 'CastError '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj106203 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj104953 + __obj106203 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp105003 (cons |[1]#_g105004_| '()))) + (let ((__tmp106253 (cons |[1]#_g106254_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj104953 __tmp105003 '3 '#f '#f)) + (##unchecked-structure-set! __obj106203 __tmp106253 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj106203 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj106203 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj106203 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 ':init! '11 '#f '#f)) - (let ((__tmp105005 |[1]#_g105006_|)) + (##unchecked-structure-set! __obj106203 ':init! '11 '#f '#f)) + (let ((__tmp106255 |[1]#_g106256_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104953 __tmp105005 '12 '#f '#f)) - (let ((__tmp105007 |[1]#_g105008_|)) + (##unchecked-structure-set! __obj106203 __tmp106255 '12 '#f '#f)) + (let ((__tmp106257 |[1]#_g106258_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104953 __tmp105007 '13 '#f '#f)) - (let ((__tmp105009 |[1]#_g105010_|)) + (##unchecked-structure-set! __obj106203 __tmp106257 '13 '#f '#f)) + (let ((__tmp106259 |[1]#_g106260_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104953 __tmp105009 '14 '#f '#f)) - (let ((__tmp105011 - (cons (cons 'message |[1]#_g105012_|) - (cons (cons 'irritants |[1]#_g105013_|) - (cons (cons 'where |[1]#_g105014_|) - (cons (cons 'continuation |[1]#_g105015_|) + (##unchecked-structure-set! __obj106203 __tmp106259 '14 '#f '#f)) + (let ((__tmp106261 + (cons (cons 'message |[1]#_g106262_|) + (cons (cons 'irritants |[1]#_g106263_|) + (cons (cons 'where |[1]#_g106264_|) + (cons (cons 'continuation |[1]#_g106265_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj104953 __tmp105011 '15 '#f '#f)) - (let ((__tmp105016 - (cons (cons 'message |[1]#_g105017_|) - (cons (cons 'irritants |[1]#_g105018_|) - (cons (cons 'where |[1]#_g105019_|) - (cons (cons 'continuation |[1]#_g105020_|) + (##unchecked-structure-set! __obj106203 __tmp106261 '15 '#f '#f)) + (let ((__tmp106266 + (cons (cons 'message |[1]#_g106267_|) + (cons (cons 'irritants |[1]#_g106268_|) + (cons (cons 'where |[1]#_g106269_|) + (cons (cons 'continuation |[1]#_g106270_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj104953 __tmp105016 '16 '#f '#f)) - (let ((__tmp105021 - (cons (cons 'message |[1]#_g105022_|) - (cons (cons 'irritants |[1]#_g105023_|) - (cons (cons 'where |[1]#_g105024_|) - (cons (cons 'continuation |[1]#_g105025_|) + (##unchecked-structure-set! __obj106203 __tmp106266 '16 '#f '#f)) + (let ((__tmp106271 + (cons (cons 'message |[1]#_g106272_|) + (cons (cons 'irritants |[1]#_g106273_|) + (cons (cons 'where |[1]#_g106274_|) + (cons (cons 'continuation |[1]#_g106275_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj104953 __tmp105021 '17 '#f '#f)) - (let ((__tmp105026 - (cons (cons 'message |[1]#_g105027_|) - (cons (cons 'irritants |[1]#_g105028_|) - (cons (cons 'where |[1]#_g105029_|) - (cons (cons 'continuation |[1]#_g105030_|) + (##unchecked-structure-set! __obj106203 __tmp106271 '17 '#f '#f)) + (let ((__tmp106276 + (cons (cons 'message |[1]#_g106277_|) + (cons (cons 'irritants |[1]#_g106278_|) + (cons (cons 'where |[1]#_g106279_|) + (cons (cons 'continuation |[1]#_g106280_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj104953 __tmp105026 '18 '#f '#f)) + (##unchecked-structure-set! __obj106203 __tmp106276 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj106203 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj106203 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104953 '() '20 '#f '#f)) - __obj104953)) + (##unchecked-structure-set! __obj106203 '() '20 '#f '#f)) + __obj106203)) (define |[:0:]#interface-descriptor| - (let ((__obj104955 + (let ((__obj106205 (let () (declare (not safe)) (##structure @@ -363,7 +363,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104955 + __obj106205 'gerbil/runtime/interface#interface-descriptor::t '1 '#f @@ -371,157 +371,157 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104955 + __obj106205 'interface-descriptor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '(type methods) '4 '#f '#f)) + (##unchecked-structure-set! __obj106205 '(type methods) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '(type methods) '6 '#f '#f)) + (##unchecked-structure-set! __obj106205 '(type methods) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj106205 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj106205 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj106205 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj106205 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '#f '11 '#f '#f)) - (let ((__tmp105031 |[1]#_g105032_|)) + (##unchecked-structure-set! __obj106205 '#f '11 '#f '#f)) + (let ((__tmp106281 |[1]#_g106282_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104955 __tmp105031 '12 '#f '#f)) - (let ((__tmp105033 |[1]#_g105034_|)) + (##unchecked-structure-set! __obj106205 __tmp106281 '12 '#f '#f)) + (let ((__tmp106283 |[1]#_g106284_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104955 __tmp105033 '13 '#f '#f)) - (let ((__tmp105035 |[1]#_g105036_|)) + (##unchecked-structure-set! __obj106205 __tmp106283 '13 '#f '#f)) + (let ((__tmp106285 |[1]#_g106286_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104955 __tmp105035 '14 '#f '#f)) - (let ((__tmp105037 - (cons (cons 'type |[1]#_g105038_|) - (cons (cons 'methods |[1]#_g105039_|) '())))) + (##unchecked-structure-set! __obj106205 __tmp106285 '14 '#f '#f)) + (let ((__tmp106287 + (cons (cons 'type |[1]#_g106288_|) + (cons (cons 'methods |[1]#_g106289_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj104955 __tmp105037 '15 '#f '#f)) - (let ((__tmp105040 - (cons (cons 'type |[1]#_g105041_|) - (cons (cons 'methods |[1]#_g105042_|) '())))) + (##unchecked-structure-set! __obj106205 __tmp106287 '15 '#f '#f)) + (let ((__tmp106290 + (cons (cons 'type |[1]#_g106291_|) + (cons (cons 'methods |[1]#_g106292_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj104955 __tmp105040 '16 '#f '#f)) - (let ((__tmp105043 - (cons (cons 'type |[1]#_g105044_|) - (cons (cons 'methods |[1]#_g105045_|) '())))) + (##unchecked-structure-set! __obj106205 __tmp106290 '16 '#f '#f)) + (let ((__tmp106293 + (cons (cons 'type |[1]#_g106294_|) + (cons (cons 'methods |[1]#_g106295_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj104955 __tmp105043 '17 '#f '#f)) - (let ((__tmp105046 - (cons (cons 'type |[1]#_g105047_|) - (cons (cons 'methods |[1]#_g105048_|) '())))) + (##unchecked-structure-set! __obj106205 __tmp106293 '17 '#f '#f)) + (let ((__tmp106296 + (cons (cons 'type |[1]#_g106297_|) + (cons (cons 'methods |[1]#_g106298_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj104955 __tmp105046 '18 '#f '#f)) + (##unchecked-structure-set! __obj106205 __tmp106296 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj106205 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj106205 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104955 '() '20 '#f '#f)) - __obj104955)) + (##unchecked-structure-set! __obj106205 '() '20 '#f '#f)) + __obj106205)) (define |[:0:]#do-create-prototype| - (lambda (_%$stx104001%_) - (let* ((_%g104005104035%_ - (lambda (_%g104006104031%_) + (lambda (_%$stx105149%_) + (let* ((_%g105153105183%_ + (lambda (_%g105154105179%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g104006104031%_))) - (_%g104004104133%_ - (lambda (_%g104006104039%_) - (if (gx#stx-pair? _%g104006104039%_) - (let ((_%e104012104042%_ - (gx#syntax-e _%g104006104039%_))) - (let ((_%hd104013104046%_ + _%g105154105179%_))) + (_%g105152105281%_ + (lambda (_%g105154105187%_) + (if (gx#stx-pair? _%g105154105187%_) + (let ((_%e105160105190%_ + (gx#syntax-e _%g105154105187%_))) + (let ((_%hd105161105194%_ (let () (declare (not safe)) - (##car _%e104012104042%_))) - (_%tl104014104049%_ + (##car _%e105160105190%_))) + (_%tl105162105197%_ (let () (declare (not safe)) - (##cdr _%e104012104042%_)))) - (if (gx#stx-pair? _%tl104014104049%_) - (let ((_%e104015104052%_ - (gx#syntax-e _%tl104014104049%_))) - (let ((_%hd104016104056%_ + (##cdr _%e105160105190%_)))) + (if (gx#stx-pair? _%tl105162105197%_) + (let ((_%e105163105200%_ + (gx#syntax-e _%tl105162105197%_))) + (let ((_%hd105164105204%_ (let () (declare (not safe)) - (##car _%e104015104052%_))) - (_%tl104017104059%_ + (##car _%e105163105200%_))) + (_%tl105165105207%_ (let () (declare (not safe)) - (##cdr _%e104015104052%_)))) - (if (gx#stx-pair? _%tl104017104059%_) - (let ((_%e104018104062%_ - (gx#syntax-e _%tl104017104059%_))) - (let ((_%hd104019104066%_ + (##cdr _%e105163105200%_)))) + (if (gx#stx-pair? _%tl105165105207%_) + (let ((_%e105166105210%_ + (gx#syntax-e _%tl105165105207%_))) + (let ((_%hd105167105214%_ (let () (declare (not safe)) - (##car _%e104018104062%_))) - (_%tl104020104069%_ + (##car _%e105166105210%_))) + (_%tl105168105217%_ (let () (declare (not safe)) - (##cdr _%e104018104062%_)))) - (if (gx#stx-pair? _%tl104020104069%_) - (let ((_%e104021104072%_ + (##cdr _%e105166105210%_)))) + (if (gx#stx-pair? _%tl105168105217%_) + (let ((_%e105169105220%_ (gx#syntax-e - _%tl104020104069%_))) - (let ((_%hd104022104076%_ + _%tl105168105217%_))) + (let ((_%hd105170105224%_ (let () (declare (not safe)) - (##car _%e104021104072%_))) - (_%tl104023104079%_ + (##car _%e105169105220%_))) + (_%tl105171105227%_ (let () (declare (not safe)) - (##cdr _%e104021104072%_)))) + (##cdr _%e105169105220%_)))) (if (gx#stx-pair? - _%tl104023104079%_) - (let ((_%e104024104082%_ + _%tl105171105227%_) + (let ((_%e105172105230%_ (gx#syntax-e - _%tl104023104079%_))) - (let ((_%hd104025104086%_ + _%tl105171105227%_))) + (let ((_%hd105173105234%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e104024104082%_))) - (_%tl104026104089%_ + (##car _%e105172105230%_))) + (_%tl105174105237%_ (let () (declare (not safe)) - (##cdr _%e104024104082%_)))) - (if (gx#stx-pair? _%tl104026104089%_) - (let ((_%e104027104092%_ - (gx#syntax-e _%tl104026104089%_))) - (let ((_%hd104028104096%_ + (##cdr _%e105172105230%_)))) + (if (gx#stx-pair? _%tl105174105237%_) + (let ((_%e105175105240%_ + (gx#syntax-e _%tl105174105237%_))) + (let ((_%hd105176105244%_ (let () (declare (not safe)) - (##car _%e104027104092%_))) - (_%tl104029104099%_ + (##car _%e105175105240%_))) + (_%tl105177105247%_ (let () (declare (not safe)) - (##cdr _%e104027104092%_)))) - (if (gx#stx-null? _%tl104029104099%_) - ((lambda (_%L104102%_ - _%L104104%_ - _%L104105%_ - _%L104106%_ - _%L104107%_) + (##cdr _%e105175105240%_)))) + (if (gx#stx-null? _%tl105177105247%_) + ((lambda (_%L105250%_ + _%L105252%_ + _%L105253%_ + _%L105254%_ + _%L105255%_) (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 _%L104105%_ + (cons _%L105253%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -547,7 +547,7 @@ (cons (cons (gx#datum->syntax '#f '&interface-descriptor-methods) - (cons _%L104107%_ '())) + (cons _%L105255%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'count) (cons '0 '())) @@ -568,60 +568,166 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) - (cons (gx#datum->syntax '#f 'method-name) + (cons (gx#datum->syntax '#f 'method-spec) (gx#datum->syntax '#f 'rest))) (cons (cons (gx#datum->syntax '#f 'cond) - (cons (cons (cons (gx#datum->syntax - '#f - 'symbolic-table-ref) + (cons (cons (cons (gx#datum->syntax '#f 'pair?) (cons (gx#datum->syntax '#f - 'method-table) + 'method-spec) + '())) + (cons (cons (gx#datum->syntax + '#f + 'let) + (cons (gx#datum->syntax + '#f + 'loop-inner) + (cons (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'methods-rest) + (cons (gx#datum->syntax + '#f + 'method-spec) + '())) + '()) + (cons (cons (gx#datum->syntax '#f 'match) + (cons (gx#datum->syntax + '#f + 'methods-rest) + (cons (cons (cons (gx#datum->syntax + '#f + '@list) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'method-name) + (gx#datum->syntax '#f 'methods-rest))) + (cons (cons (gx#datum->syntax '#f 'cond) + (cons (cons (cons (gx#datum->syntax + '#f + 'symbolic-table-ref) + (cons (gx#datum->syntax + '#f + 'method-table) + (cons (gx#datum->syntax + '#f + 'method-name) + (cons '#f '())))) + (cons (gx#datum->syntax '#f '=>) + (cons (cons (gx#datum->syntax + '#f + 'lambda) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'method) + '()) + (cons (cons (gx#datum->syntax '#f 'loop) + (cons (gx#datum->syntax '#f 'rest) + (cons (cons (gx#datum->syntax + '#f + '##fx+) (cons (gx#datum->syntax '#f - 'method-name) - (cons '#f '())))) - (cons (gx#datum->syntax '#f '=>) + 'count) + (cons '1 '()))) (cons (cons (gx#datum->syntax '#f - 'lambda) - (cons (cons (gx#datum->syntax + 'cons) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'method) - '()) - (cons (cons (gx#datum->syntax '#f 'loop) - (cons (gx#datum->syntax '#f 'rest) - (cons (cons (gx#datum->syntax - '#f - '##fx+) - (cons (gx#datum->syntax + '#f + 'method) + (cons (gx#datum->syntax '#f 'methods) '()))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (cons (cons (gx#datum->syntax '#f 'else) + (cons (cons (gx#datum->syntax + '#f + 'loop-inner) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'methods-rest) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())) + '()))) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax '#f - 'count) - (cons '1 '()))) + 'else) + (cons (cons _%L105250%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L105254%_ + (cons _%L105253%_ + (cons (gx#datum->syntax + '#f + 'method-spec) + '())))) + '())) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())) + (cons (cons (cons (gx#datum->syntax + '#f + 'symbolic-table-ref) + (cons (gx#datum->syntax + '#f + 'method-table) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'method-spec) + (cons '#f '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (gx#datum->syntax + '#f + '=>) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'lambda) + (cons (cons (gx#datum->syntax '#f 'method) '()) + (cons (cons (gx#datum->syntax '#f 'loop) + (cons (gx#datum->syntax '#f 'rest) (cons (cons (gx#datum->syntax '#f - 'cons) + '##fx+) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'method) - (cons (gx#datum->syntax '#f 'methods) '()))) - '())))) + 'count) + (cons '1 '()))) + (cons (cons (gx#datum->syntax '#f 'cons) + (cons (gx#datum->syntax '#f 'method) + (cons (gx#datum->syntax '#f 'methods) '()))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))) + '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons _%L104102%_ - (cons _%L104106%_ + (cons (cons (gx#datum->syntax + '#f + 'else) + (cons (cons _%L105250%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L104105%_ - (cons (gx#datum->syntax '#f 'method-name) - '())))) - '())) + (cons _%L105254%_ + (cons _%L105253%_ + (cons (gx#datum->syntax + '#f + 'method-spec) + '())))) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) + '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -635,7 +741,7 @@ (cons (cons (gx#datum->syntax '#f 'make-object) - (cons _%L104106%_ + (cons _%L105254%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '##fx+) (cons (gx#datum->syntax '#f 'count) @@ -679,7 +785,7 @@ (cons (gx#datum->syntax '#f 'prototype) (cons (gx#datum->syntax '#f 'method) (cons (gx#datum->syntax '#f 'off) - (cons _%L104106%_ + (cons _%L105254%_ (cons '#f '())))))) (cons (cons (gx#datum->syntax '#f 'loop) (cons (gx#datum->syntax '#f 'rest) @@ -710,9 +816,9 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##type-id) - (cons _%L104106%_ '())) + (cons _%L105254%_ '())) (cons (cons (gx#datum->syntax '#f '##type-id) - (cons _%L104105%_ '())) + (cons _%L105253%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -741,7 +847,7 @@ '#f '__interface-prototypes-mx) '())) - (cons (cons _%L104104%_ + (cons (cons _%L105252%_ (cons (gx#datum->syntax '#f 'prototype) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -757,85 +863,85 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd104028104096%_ - _%hd104025104086%_ - _%hd104022104076%_ - _%hd104019104066%_ - _%hd104016104056%_) - (_%g104005104035%_ _%g104006104039%_)))) - (_%g104005104035%_ _%g104006104039%_)))) - (_%g104005104035%_ _%g104006104039%_)))) + _%hd105176105244%_ + _%hd105173105234%_ + _%hd105170105224%_ + _%hd105167105214%_ + _%hd105164105204%_) + (_%g105153105183%_ _%g105154105187%_)))) + (_%g105153105183%_ _%g105154105187%_)))) + (_%g105153105183%_ _%g105154105187%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g104005104035%_ - _%g104006104039%_)))) - (_%g104005104035%_ _%g104006104039%_)))) - (_%g104005104035%_ _%g104006104039%_)))) - (_%g104005104035%_ _%g104006104039%_))))) - (_%g104004104133%_ _%$stx104001%_)))) + (_%g105153105183%_ + _%g105154105187%_)))) + (_%g105153105183%_ _%g105154105187%_)))) + (_%g105153105183%_ _%g105154105187%_)))) + (_%g105153105183%_ _%g105154105187%_))))) + (_%g105152105281%_ _%$stx105149%_)))) (define |[:0:]#defcast| - (lambda (_%$stx104137%_) - (let* ((_%g104141104163%_ - (lambda (_%g104142104159%_) + (lambda (_%$stx105285%_) + (let* ((_%g105289105311%_ + (lambda (_%g105290105307%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g104142104159%_))) - (_%g104140104232%_ - (lambda (_%g104142104167%_) - (if (gx#stx-pair? _%g104142104167%_) - (let ((_%e104146104170%_ - (gx#syntax-e _%g104142104167%_))) - (let ((_%hd104147104174%_ + _%g105290105307%_))) + (_%g105288105380%_ + (lambda (_%g105290105315%_) + (if (gx#stx-pair? _%g105290105315%_) + (let ((_%e105294105318%_ + (gx#syntax-e _%g105290105315%_))) + (let ((_%hd105295105322%_ (let () (declare (not safe)) - (##car _%e104146104170%_))) - (_%tl104148104177%_ + (##car _%e105294105318%_))) + (_%tl105296105325%_ (let () (declare (not safe)) - (##cdr _%e104146104170%_)))) - (if (gx#stx-pair? _%tl104148104177%_) - (let ((_%e104149104180%_ - (gx#syntax-e _%tl104148104177%_))) - (let ((_%hd104150104184%_ + (##cdr _%e105294105318%_)))) + (if (gx#stx-pair? _%tl105296105325%_) + (let ((_%e105297105328%_ + (gx#syntax-e _%tl105296105325%_))) + (let ((_%hd105298105332%_ (let () (declare (not safe)) - (##car _%e104149104180%_))) - (_%tl104151104187%_ + (##car _%e105297105328%_))) + (_%tl105299105335%_ (let () (declare (not safe)) - (##cdr _%e104149104180%_)))) - (if (gx#stx-pair? _%tl104151104187%_) - (let ((_%e104152104190%_ - (gx#syntax-e _%tl104151104187%_))) - (let ((_%hd104153104194%_ + (##cdr _%e105297105328%_)))) + (if (gx#stx-pair? _%tl105299105335%_) + (let ((_%e105300105338%_ + (gx#syntax-e _%tl105299105335%_))) + (let ((_%hd105301105342%_ (let () (declare (not safe)) - (##car _%e104152104190%_))) - (_%tl104154104197%_ + (##car _%e105300105338%_))) + (_%tl105302105345%_ (let () (declare (not safe)) - (##cdr _%e104152104190%_)))) - (if (gx#stx-pair? _%tl104154104197%_) - (let ((_%e104155104200%_ + (##cdr _%e105300105338%_)))) + (if (gx#stx-pair? _%tl105302105345%_) + (let ((_%e105303105348%_ (gx#syntax-e - _%tl104154104197%_))) - (let ((_%hd104156104204%_ + _%tl105302105345%_))) + (let ((_%hd105304105352%_ (let () (declare (not safe)) - (##car _%e104155104200%_))) - (_%tl104157104207%_ + (##car _%e105303105348%_))) + (_%tl105305105355%_ (let () (declare (not safe)) - (##cdr _%e104155104200%_)))) + (##cdr _%e105303105348%_)))) (if (gx#stx-null? - _%tl104157104207%_) - ((lambda (_%L104210%_ - _%L104212%_ - _%L104213%_) + _%tl105305105355%_) + ((lambda (_%L105358%_ + _%L105360%_ + _%L105361%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L104213%_ + (cons (cons _%L105361%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'descriptor) (cons (gx#datum->syntax '#f 'obj) @@ -905,7 +1011,7 @@ '#f 'obj-klass) '())) - (cons (cons _%L104213%_ + (cons (cons _%L105361%_ (cons (gx#datum->syntax '#f 'descriptor) @@ -982,7 +1088,7 @@ '#f '__interface-prototypes-mx) '())) - (cons (cons _%L104212%_ + (cons (cons _%L105360%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -994,7 +1100,7 @@ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L104210%_ + (cons (cons _%L105358%_ (cons (gx#datum->syntax '#f 'prototype) @@ -1011,14 +1117,14 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd104156104204%_ - _%hd104153104194%_ - _%hd104150104184%_) - (_%g104141104163%_ _%g104142104167%_)))) + _%hd105304105352%_ + _%hd105301105342%_ + _%hd105298105332%_) + (_%g105289105311%_ _%g105290105315%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g104141104163%_ - _%g104142104167%_)))) - (_%g104141104163%_ _%g104142104167%_)))) - (_%g104141104163%_ _%g104142104167%_)))) - (_%g104141104163%_ _%g104142104167%_))))) - (_%g104140104232%_ _%$stx104137%_)))))) + (_%g105289105311%_ + _%g105290105315%_)))) + (_%g105289105311%_ _%g105290105315%_)))) + (_%g105289105311%_ _%g105290105315%_)))) + (_%g105289105311%_ _%g105290105315%_))))) + (_%g105288105380%_ _%$stx105285%_)))))) diff --git a/src/bootstrap/gerbil/runtime/loader.ssi b/src/bootstrap/gerbil/runtime/loader.ssi index a9d6f6b42..8eee7eba0 100644 --- a/src/bootstrap/gerbil/runtime/loader.ssi +++ b/src/bootstrap/gerbil/runtime/loader.ssi @@ -12,6 +12,8 @@ namespace: #f (%#define-runtime __load-mx __load-mx) (%#define-runtime __load-cv __load-cv) (%#define-runtime __load-path __load-path) + (%#define-runtime __load-order __load-order) + (%#define-runtime __load-order-next __load-order-next) (%#define-runtime load-path load-path) (%#define-runtime add-load-path! add-load-path!) (%#define-runtime set-load-path! set-load-path!) @@ -20,5 +22,8 @@ namespace: #f (%#define-runtime __load-module __load-module) (%#define-runtime reload-module! reload-module!) (%#define-runtime __reload-module! __reload-module!) - (%#define-runtime __find-library-module __find-library-module)) + (%#define-runtime __find-library-module __find-library-module) + (%#define-runtime list-modules list-modules) + (%#define-runtime module-load-order module-load-order) + (%#define-runtime __module-load-order __module-load-order)) (%#call (%#ref load-module) (%#quote "gerbil/runtime/loader~0")) diff --git a/src/bootstrap/gerbil/runtime/loader.ssxi.ss b/src/bootstrap/gerbil/runtime/loader.ssxi.ss index bd14be33c..c734eaafb 100644 --- a/src/bootstrap/gerbil/runtime/loader.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/loader.ssxi.ss @@ -14,6 +14,12 @@ package: gerbil/runtime (declare-type __load-path (optimizer-resolve-class '(typedecl __load-path) 'list::t)) + (declare-type + __load-order + (optimizer-resolve-class '(typedecl __load-order) 'HashTable::t)) + (declare-type + __load-order-next + (optimizer-resolve-class '(typedecl __load-order-next) 'number::t)) (declare-type load-path (@lambda 0 @@ -148,4 +154,49 @@ package: gerbil/runtime unchecked: #f origin: + gerbil/runtime/loader))) + (declare-type + list-modules + (@lambda 0 + #f + signature: + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/loader))) + (declare-type + module-load-order + (@lambda 1 + #f + signature: + (return: + integer::t + effect: + #f + arguments: + (string::t) + unchecked: + __module-load-order + origin: + gerbil/runtime/loader))) + (declare-type + __module-load-order + (@lambda 1 + #f + signature: + (return: + integer::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 38be34c77..70da94872 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 1713631266) + (define gerbil/runtime/loader::timestamp 1734357961) (begin (define __modules (let () @@ -18,286 +18,363 @@ (define __load-mx (make-mutex 'loader)) (define __load-cv (make-condition-variable 'loader)) (define __load-path '()) + (define __load-order + (let () + (declare (not safe)) + (make-hash-table__% + '#f + absent-value + absent-value + absent-value + absent-value + absent-value + absent-value + absent-value + absent-value))) + (define __load-order-next '1) (define load-path (lambda () __load-path)) (define add-load-path! - (lambda _%paths115169%_ - (if (let () (declare (not safe)) (__andmap1 string? _%paths115169%_)) + (lambda _%paths116456%_ + (if (let () (declare (not safe)) (__andmap1 string? _%paths116456%_)) '#!void (let () (declare (not safe)) (error '"bad load path; expected list of paths" - _%paths115169%_))) - (let ((__tmp115175 - (lambda (_%p115171%_) - (set! __load-path (cons _%p115171%_ __load-path)))) - (__tmp115174 (reverse! _%paths115169%_))) + _%paths116456%_))) + (let ((__tmp116462 + (lambda (_%p116458%_) + (set! __load-path (cons _%p116458%_ __load-path)))) + (__tmp116461 (reverse! _%paths116456%_))) (declare (not safe)) - (##for-each __tmp115175 __tmp115174)))) + (##for-each __tmp116462 __tmp116461)))) (define set-load-path! - (lambda (_%paths115155%_) - (if (list? _%paths115155%_) - (let ((_%paths115159%_ _%paths115155%_)) - (__set-load-path! _%paths115159%_)) + (lambda (_%paths116442%_) + (if (list? _%paths116442%_) + (let ((_%paths116446%_ _%paths116442%_)) + (__set-load-path! _%paths116446%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/loader.ss\"@25.23-25.28" + '"\"gerbil/runtime/loader.ss\"@27.23-27.28" 'contract: 'list? 'value: - _%paths115155%_) + _%paths116442%_) '#!void)))) (define __set-load-path! - (lambda (_%paths115143%_) - (let ((_%paths115146%_ _%paths115143%_)) - (if (let () (declare (not safe)) (__andmap1 string? _%paths115146%_)) + (lambda (_%paths116430%_) + (let ((_%paths116433%_ _%paths116430%_)) + (if (let () (declare (not safe)) (__andmap1 string? _%paths116433%_)) '#!void (let () (declare (not safe)) (error '"bad load path; expected list of paths" - _%paths115146%_))) - (set! __load-path _%paths115146%_)))) + _%paths116433%_))) + (set! __load-path _%paths116433%_)))) (define load-module - (lambda (_%modpath115129%_) - (if (string? _%modpath115129%_) - (let ((_%modpath115133%_ _%modpath115129%_)) - (__load-module _%modpath115133%_)) + (lambda (_%modpath116416%_) + (if (string? _%modpath116416%_) + (let ((_%modpath116420%_ _%modpath116416%_)) + (__load-module _%modpath116420%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/loader.ss\"@30.20-30.27" + '"\"gerbil/runtime/loader.ss\"@32.20-32.27" 'contract: 'string? 'value: - _%modpath115129%_) + _%modpath116416%_) '#!void)))) (define __load-module - (lambda (_%modpath115094%_) - (let ((_%modpath115097%_ _%modpath115094%_)) + (lambda (_%modpath116381%_) + (let ((_%modpath116384%_ _%modpath116381%_)) (mutex-lock! __load-mx) - (let ((_%$e115106%_ + (let ((_%$e116393%_ (let () (declare (not safe)) - (__hash-get __modules _%modpath115097%_)))) - (if _%$e115106%_ - ((lambda (_%state115109%_) - (if (or (eq? 'builtin _%state115109%_) - (string? _%state115109%_)) - (let () (mutex-unlock! __load-mx) _%state115109%_) - (if (eq? 'loading _%state115109%_) + (__hash-get __modules _%modpath116384%_)))) + (if _%$e116393%_ + ((lambda (_%state116396%_) + (if (or (eq? 'builtin _%state116396%_) + (string? _%state116396%_)) + (let () (mutex-unlock! __load-mx) _%state116396%_) + (if (eq? 'loading _%state116396%_) (let () (mutex-unlock! __load-mx __load-cv) - (__load-module _%modpath115097%_)) - (if (and (pair? _%state115109%_) + (__load-module _%modpath116384%_)) + (if (and (pair? _%state116396%_) (eq? (let () (declare (not safe)) - (##car _%state115109%_)) + (##car _%state116396%_)) 'error)) (let () (mutex-unlock! __load-mx) - (let ((__tmp115176 (cadr _%state115109%_))) + (let ((__tmp116463 (cadr _%state116396%_))) (declare (not safe)) - (raise __tmp115176))) + (raise __tmp116463))) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"inernal error; unexpected loading state" - _%state115109%_))))))) - _%$e115106%_) - (let ((_%$e115118%_ (__find-library-module _%modpath115097%_))) - (if _%$e115118%_ - ((lambda (_%path115121%_) + _%state116396%_))))))) + _%$e116393%_) + (let ((_%$e116405%_ (__find-library-module _%modpath116384%_))) + (if _%$e116405%_ + ((lambda (_%path116408%_) (let () (declare (not safe)) - (__hash-put! __modules _%modpath115097%_ 'loading)) + (__hash-put! __modules _%modpath116384%_ 'loading)) (mutex-unlock! __load-mx) - (let ((__tmp115178 - (lambda (_%exn115123%_) + (let ((__tmp116465 + (lambda (_%exn116410%_) (mutex-lock! __load-mx) - (let ((__tmp115179 + (let ((__tmp116466 (cons 'error - (cons _%exn115123%_ '())))) + (cons _%exn116410%_ '())))) (declare (not safe)) (__hash-put! __modules - _%modpath115097%_ - __tmp115179)) + _%modpath116384%_ + __tmp116466)) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) (let () (declare (not safe)) - (raise _%exn115123%_)))) - (__tmp115177 + (raise _%exn116410%_)))) + (__tmp116464 (lambda () - (let ((_%loaded-path115126%_ - (load _%path115121%_))) + (let ((_%loaded-path116413%_ + (load _%path116408%_))) (mutex-lock! __load-mx) (let () (declare (not safe)) (__hash-put! __modules - _%modpath115097%_ - _%loaded-path115126%_)) + _%modpath116384%_ + _%loaded-path116413%_)) + (if (let () + (declare (not safe)) + (__hash-get + __load-order + _%modpath116384%_)) + '#!void + (begin + (let () + (declare (not safe)) + (__hash-put! + __load-order + _%modpath116384%_ + __load-order-next)) + (set! __load-order-next + (+ __load-order-next '1)))) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) - _%loaded-path115126%_)))) + _%loaded-path116413%_)))) (declare (not safe)) - (__with-catch __tmp115178 __tmp115177))) - _%$e115118%_) + (__with-catch __tmp116465 __tmp116464))) + _%$e116405%_) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"module not found" - _%modpath115097%_)))))))))) + _%modpath116384%_)))))))))) (define reload-module! - (lambda (_%modpath115080%_) - (if (string? _%modpath115080%_) - (let ((_%modpath115084%_ _%modpath115080%_)) - (__reload-module! _%modpath115084%_)) + (lambda (_%modpath116367%_) + (if (string? _%modpath116367%_) + (let ((_%modpath116371%_ _%modpath116367%_)) + (__reload-module! _%modpath116371%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/loader.ss\"@70.23-70.30" + '"\"gerbil/runtime/loader.ss\"@75.23-75.30" 'contract: 'string? 'value: - _%modpath115080%_) + _%modpath116367%_) '#!void)))) (define __reload-module! - (lambda (_%modpath115051%_) - (let ((_%modpath115054%_ _%modpath115051%_)) + (lambda (_%modpath116339%_) + (let ((_%modpath116342%_ _%modpath116339%_)) (mutex-lock! __load-mx) - (let ((_%$e115064%_ + (let ((_%$e116351%_ (let () (declare (not safe)) - (__hash-get __modules _%modpath115054%_)))) - (if _%$e115064%_ - ((lambda (_%state115067%_) - (if (eq? _%state115067%_ 'builtin) + (__hash-get __modules _%modpath116342%_)))) + (if _%$e116351%_ + ((lambda (_%state116354%_) + (if (eq? _%state116354%_ 'builtin) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"cannot reload builtin module" - _%modpath115054%_))) - (if (eq? 'loading _%state115067%_) + _%modpath116342%_))) + (if (eq? 'loading _%state116354%_) (let () (mutex-unlock! __load-mx __load-cv) (let () (declare (not safe)) (error '"module is still loading"))) - (if (string? _%state115067%_) - (let ((_%latest-path115072%_ + (if (string? _%state116354%_) + (let ((_%latest-path116359%_ (__find-library-module - _%modpath115054%_))) + _%modpath116342%_))) (if (or (equal? (path-extension - _%state115067%_) + _%state116354%_) '".scm") - (not (equal? _%state115067%_ - _%latest-path115072%_))) + (not (equal? _%state116354%_ + _%latest-path116359%_))) (begin (let () (declare (not safe)) (__hash-remove! __modules - _%modpath115054%_)) + _%modpath116342%_)) (mutex-unlock! __load-mx) - (__load-module _%modpath115054%_)) - '#!void)) - (if (and (pair? _%state115067%_) + (__load-module _%modpath116342%_)) + (mutex-unlock! __load-mx))) + (if (and (pair? _%state116354%_) (eq? (let () (declare (not safe)) - (##car _%state115067%_)) + (##car _%state116354%_)) 'error)) (let () (let () (declare (not safe)) (__hash-remove! __modules - _%modpath115054%_)) + _%modpath116342%_)) (mutex-unlock! __load-mx) - (__load-module _%modpath115054%_)) + (__load-module _%modpath116342%_)) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"inernal error; unexpected loading state" - _%state115067%_)))))))) - _%$e115064%_) + _%state116354%_)))))))) + _%$e116351%_) (let () (mutex-unlock! __load-mx) - (__load-module _%modpath115054%_))))))) + (__load-module _%modpath116342%_))))))) (define __find-library-module - (lambda (_%modpath114985%_) - (letrec ((_%find-compiled-file114987%_ - (lambda (_%npath115040%_) - (let ((_%basepath115042%_ + (lambda (_%modpath116273%_) + (letrec ((_%find-compiled-file116275%_ + (lambda (_%npath116328%_) + (let ((_%basepath116330%_ (let () (declare (not safe)) - (##string-append _%npath115040%_ '".o")))) - (let _%lp115044%_ ((_%current115046%_ '#f) - (_%n115047%_ '1)) - (let ((_%next115049%_ - (let ((__tmp115180 - (number->string _%n115047%_))) + (##string-append _%npath116328%_ '".o")))) + (let _%lp116332%_ ((_%current116334%_ '#f) + (_%n116335%_ '1)) + (let ((_%next116337%_ + (let ((__tmp116467 + (number->string _%n116335%_))) (declare (not safe)) (##string-append - _%basepath115042%_ - __tmp115180)))) + _%basepath116330%_ + __tmp116467)))) (if (let () (declare (not safe)) - (##file-exists? _%next115049%_)) - (_%lp115044%_ - _%next115049%_ + (##file-exists? _%next116337%_)) + (_%lp116332%_ + _%next116337%_ (let () (declare (not safe)) - (##fx+ _%n115047%_ '1))) - _%current115046%_)))))) - (_%find-source-file114988%_ - (lambda (_%npath115036%_) - (let ((_%spath115038%_ + (##fx+ _%n116335%_ '1))) + _%current116334%_)))))) + (_%find-source-file116276%_ + (lambda (_%npath116324%_) + (let ((_%spath116326%_ (let () (declare (not safe)) - (##string-append _%npath115036%_ '".scm")))) + (##string-append _%npath116324%_ '".scm")))) (if (let () (declare (not safe)) - (##file-exists? _%spath115038%_)) - _%spath115038%_ + (##file-exists? _%spath116326%_)) + _%spath116326%_ '#f))))) - (let _%lp114990%_ ((_%rest114992%_ (load-path))) - (let* ((_%rest114993115001%_ _%rest114992%_) - (_%else114995115009%_ (lambda () '#f)) - (_%K114997115024%_ - (lambda (_%rest115012%_ _%dir115013%_) - (let* ((_%npath115015%_ + (let _%lp116278%_ ((_%rest116280%_ (load-path))) + (let* ((_%rest116281116289%_ _%rest116280%_) + (_%else116283116297%_ (lambda () '#f)) + (_%K116285116312%_ + (lambda (_%rest116300%_ _%dir116301%_) + (let* ((_%npath116303%_ (path-expand - _%modpath114985%_ - (path-expand _%dir115013%_))) - (_%$e115017%_ - (_%find-compiled-file114987%_ _%npath115015%_))) - (if _%$e115017%_ - (path-normalize _%$e115017%_) - (let ((_%$e115020%_ - (_%find-source-file114988%_ - _%npath115015%_))) - (if _%$e115020%_ - (path-normalize _%$e115020%_) - (_%lp114990%_ _%rest115012%_)))))))) - (if (pair? _%rest114993115001%_) - (let ((_%hd114998115027%_ + _%modpath116273%_ + (path-expand _%dir116301%_))) + (_%$e116305%_ + (_%find-compiled-file116275%_ _%npath116303%_))) + (if _%$e116305%_ + (path-normalize _%$e116305%_) + (let ((_%$e116308%_ + (_%find-source-file116276%_ + _%npath116303%_))) + (if _%$e116308%_ + (path-normalize _%$e116308%_) + (_%lp116278%_ _%rest116300%_)))))))) + (if (pair? _%rest116281116289%_) + (let ((_%hd116286116315%_ (let () (declare (not safe)) - (##car _%rest114993115001%_))) - (_%tl114999115029%_ + (##car _%rest116281116289%_))) + (_%tl116287116317%_ (let () (declare (not safe)) - (##cdr _%rest114993115001%_)))) - (let* ((_%dir115032%_ _%hd114998115027%_) - (_%rest115034%_ _%tl114999115029%_)) - (_%K114997115024%_ _%rest115034%_ _%dir115032%_))) - (_%else114995115009%_))))))))) + (##cdr _%rest116281116289%_)))) + (let* ((_%dir116320%_ _%hd116286116315%_) + (_%rest116322%_ _%tl116287116317%_)) + (_%K116285116312%_ _%rest116322%_ _%dir116320%_))) + (_%else116283116297%_))))))) + (define list-modules + (lambda () + (let () + (mutex-lock! __load-mx) + (let ((_%result116271%_ + (let () (declare (not safe)) (__hash->list __modules)))) + (mutex-unlock! __load-mx) + _%result116271%_)))) + (define module-load-order + (lambda (_%modpath116255%_) + (if (string? _%modpath116255%_) + (let ((_%modpath116259%_ _%modpath116255%_)) + (__module-load-order _%modpath116259%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/loader.ss\"@137.26-137.33" + 'contract: + 'string? + 'value: + _%modpath116255%_) + '#!void)))) + (define __module-load-order + (lambda (_%modpath116235%_) + (let ((_%modpath116238%_ _%modpath116235%_)) + (mutex-lock! __load-mx) + (let ((_%ord116253%_ + (if (eq? (let () + (declare (not safe)) + (__hash-get __modules _%modpath116238%_)) + 'builtin) + '0 + (let ((_%$e116249%_ + (let () + (declare (not safe)) + (__hash-get __load-order _%modpath116238%_)))) + (if _%$e116249%_ _%$e116249%_ '#f))))) + (mutex-unlock! __load-mx) + (if (exact-integer? _%ord116253%_) + _%ord116253%_ + (begin + (let () + (declare (not safe)) + (error '"unknown module load order" + 'module: + _%modpath116238%_)) + '#!void)))))))) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm b/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm index 679045902..46c43119a 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 1713631265) + (define gerbil/runtime/mop-system-classes::timestamp 1734357960) (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 ((__tmp101902 (cons immediate::t '()))) + (let ((__tmp103050 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'char __tmp101902))) + (__make-system-class 'char __tmp103050))) (define boolean::t - (let ((__tmp101903 (cons immediate::t '()))) + (let ((__tmp103051 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'boolean __tmp101903))) + (__make-system-class 'boolean __tmp103051))) (define atom::t - (let ((__tmp101904 (cons immediate::t '()))) + (let ((__tmp103052 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'atom __tmp101904))) + (__make-system-class 'atom __tmp103052))) (define void::t - (let ((__tmp101905 (cons atom::t '()))) + (let ((__tmp103053 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'void __tmp101905))) + (__make-system-class 'void __tmp103053))) (define eof::t - (let ((__tmp101906 (cons atom::t '()))) + (let ((__tmp103054 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'eof __tmp101906))) + (__make-system-class 'eof __tmp103054))) (define true::t - (let ((__tmp101907 (cons boolean::t (cons atom::t '())))) + (let ((__tmp103055 (cons boolean::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'true __tmp101907))) + (__make-system-class 'true __tmp103055))) (define false::t - (let ((__tmp101908 (cons boolean::t (cons atom::t '())))) + (let ((__tmp103056 (cons boolean::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'false __tmp101908))) + (__make-system-class 'false __tmp103056))) (define special::t - (let ((__tmp101909 (cons atom::t '()))) + (let ((__tmp103057 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'special __tmp101909))) + (__make-system-class 'special __tmp103057))) (define number::t (let () (declare (not safe)) (__make-system-class 'number '()))) (define real::t - (let ((__tmp101910 (cons number::t '()))) + (let ((__tmp103058 (cons number::t '()))) (declare (not safe)) - (__make-system-class 'real __tmp101910))) + (__make-system-class 'real __tmp103058))) (define integer::t - (let ((__tmp101911 (cons real::t '()))) + (let ((__tmp103059 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'integer __tmp101911))) + (__make-system-class 'integer __tmp103059))) (define fixnum::t - (let ((__tmp101912 (cons integer::t (cons immediate::t '())))) + (let ((__tmp103060 (cons integer::t (cons immediate::t '())))) (declare (not safe)) - (__make-system-class 'fixnum __tmp101912))) + (__make-system-class 'fixnum __tmp103060))) (define bignum::t - (let ((__tmp101913 (cons integer::t '()))) + (let ((__tmp103061 (cons integer::t '()))) (declare (not safe)) - (__make-system-class 'bignum __tmp101913))) + (__make-system-class 'bignum __tmp103061))) (define ratnum::t - (let ((__tmp101914 (cons real::t '()))) + (let ((__tmp103062 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'ratnum __tmp101914))) + (__make-system-class 'ratnum __tmp103062))) (define flonum::t - (let ((__tmp101915 (cons real::t '()))) + (let ((__tmp103063 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'flonum __tmp101915))) + (__make-system-class 'flonum __tmp103063))) (define cpxnum::t - (let ((__tmp101916 (cons number::t '()))) + (let ((__tmp103064 (cons number::t '()))) (declare (not safe)) - (__make-system-class 'cpxnum __tmp101916))) + (__make-system-class 'cpxnum __tmp103064))) (define symbolic::t (let () (declare (not safe)) (__make-system-class 'symbolic '()))) (define symbol::t - (let ((__tmp101917 (cons symbolic::t '()))) + (let ((__tmp103065 (cons symbolic::t '()))) (declare (not safe)) - (__make-system-class 'symbol __tmp101917))) + (__make-system-class 'symbol __tmp103065))) (define keyword::t - (let ((__tmp101918 (cons symbolic::t '()))) + (let ((__tmp103066 (cons symbolic::t '()))) (declare (not safe)) - (__make-system-class 'keyword __tmp101918))) + (__make-system-class 'keyword __tmp103066))) (define list::t (let () (declare (not safe)) (__make-system-class 'list '()))) (define pair::t - (let ((__tmp101919 (cons list::t '()))) + (let ((__tmp103067 (cons list::t '()))) (declare (not safe)) - (__make-system-class 'pair __tmp101919))) + (__make-system-class 'pair __tmp103067))) (define null::t - (let ((__tmp101920 (cons list::t (cons atom::t '())))) + (let ((__tmp103068 (cons list::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'null __tmp101920))) + (__make-system-class 'null __tmp103068))) (define sequence::t (let () (declare (not safe)) (__make-system-class 'sequence '()))) (define vector::t - (let ((__tmp101921 (cons sequence::t '()))) + (let ((__tmp103069 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'vector __tmp101921))) + (__make-system-class 'vector __tmp103069))) (define string::t - (let ((__tmp101922 (cons sequence::t '()))) + (let ((__tmp103070 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'string __tmp101922))) + (__make-system-class 'string __tmp103070))) (define hvector::t - (let ((__tmp101923 (cons sequence::t '()))) + (let ((__tmp103071 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'hvector __tmp101923))) + (__make-system-class 'hvector __tmp103071))) (define u8vector::t - (let ((__tmp101924 (cons hvector::t '()))) + (let ((__tmp103072 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u8vector __tmp101924))) + (__make-system-class 'u8vector __tmp103072))) (define s8vector::t - (let ((__tmp101925 (cons hvector::t '()))) + (let ((__tmp103073 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's8vector __tmp101925))) + (__make-system-class 's8vector __tmp103073))) (define u16vector::t - (let ((__tmp101926 (cons hvector::t '()))) + (let ((__tmp103074 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u16vector __tmp101926))) + (__make-system-class 'u16vector __tmp103074))) (define s16vector::t - (let ((__tmp101927 (cons hvector::t '()))) + (let ((__tmp103075 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's16vector __tmp101927))) + (__make-system-class 's16vector __tmp103075))) (define u32vector::t - (let ((__tmp101928 (cons hvector::t '()))) + (let ((__tmp103076 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u32vector __tmp101928))) + (__make-system-class 'u32vector __tmp103076))) (define s32vector::t - (let ((__tmp101929 (cons hvector::t '()))) + (let ((__tmp103077 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's32vector __tmp101929))) + (__make-system-class 's32vector __tmp103077))) (define u64vector::t - (let ((__tmp101930 (cons hvector::t '()))) + (let ((__tmp103078 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u64vector __tmp101930))) + (__make-system-class 'u64vector __tmp103078))) (define s64vector::t - (let ((__tmp101931 (cons hvector::t '()))) + (let ((__tmp103079 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's64vector __tmp101931))) + (__make-system-class 's64vector __tmp103079))) (define f32vector::t - (let ((__tmp101932 (cons hvector::t '()))) + (let ((__tmp103080 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'f32vector __tmp101932))) + (__make-system-class 'f32vector __tmp103080))) (define f64vector::t - (let ((__tmp101933 (cons hvector::t '()))) + (let ((__tmp103081 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'f64vector __tmp101933))) + (__make-system-class 'f64vector __tmp103081))) (define values::t (let () (declare (not safe)) (__make-system-class 'values '()))) (define box::t @@ -207,294 +207,294 @@ (define return::t (let () (declare (not safe)) (__make-system-class 'return '()))) (define time::t - (let ((__tmp101934 (macro-type-time))) + (let ((__tmp103082 (macro-type-time))) (declare (not safe)) - (__shadow-class __tmp101934))) + (__shadow-class __tmp103082))) (define thread::t - (let ((__tmp101935 (macro-type-thread))) + (let ((__tmp103083 (macro-type-thread))) (declare (not safe)) - (__shadow-class __tmp101935))) + (__shadow-class __tmp103083))) (define thread-group::t - (let ((__tmp101936 (macro-type-tgroup))) + (let ((__tmp103084 (macro-type-tgroup))) (declare (not safe)) - (__shadow-class __tmp101936))) + (__shadow-class __tmp103084))) (define mutex::t - (let ((__tmp101937 (macro-type-mutex))) + (let ((__tmp103085 (macro-type-mutex))) (declare (not safe)) - (__shadow-class __tmp101937))) + (__shadow-class __tmp103085))) (define condvar::t - (let ((__tmp101938 (macro-type-condvar))) + (let ((__tmp103086 (macro-type-condvar))) (declare (not safe)) - (__shadow-class __tmp101938))) + (__shadow-class __tmp103086))) (define port::t - (let ((__tmp101939 (macro-type-port))) + (let ((__tmp103087 (macro-type-port))) (declare (not safe)) - (__shadow-class __tmp101939))) + (__shadow-class __tmp103087))) (define object-port::t - (let ((__tmp101940 (macro-type-object-port))) + (let ((__tmp103088 (macro-type-object-port))) (declare (not safe)) - (__shadow-class __tmp101940))) + (__shadow-class __tmp103088))) (define character-port::t - (let ((__tmp101941 (macro-type-character-port))) + (let ((__tmp103089 (macro-type-character-port))) (declare (not safe)) - (__shadow-class __tmp101941))) + (__shadow-class __tmp103089))) (define byte-port::t - (let ((__tmp101942 (macro-type-byte-port))) + (let ((__tmp103090 (macro-type-byte-port))) (declare (not safe)) - (__shadow-class __tmp101942))) + (__shadow-class __tmp103090))) (define device-port::t - (let ((__tmp101943 (macro-type-device-port))) + (let ((__tmp103091 (macro-type-device-port))) (declare (not safe)) - (__shadow-class __tmp101943))) + (__shadow-class __tmp103091))) (define vector-port::t - (let ((__tmp101944 (macro-type-vector-port))) + (let ((__tmp103092 (macro-type-vector-port))) (declare (not safe)) - (__shadow-class __tmp101944))) + (__shadow-class __tmp103092))) (define string-port::t - (let ((__tmp101945 (macro-type-string-port))) + (let ((__tmp103093 (macro-type-string-port))) (declare (not safe)) - (__shadow-class __tmp101945))) + (__shadow-class __tmp103093))) (define u8vector-port::t - (let ((__tmp101946 (macro-type-u8vector-port))) + (let ((__tmp103094 (macro-type-u8vector-port))) (declare (not safe)) - (__shadow-class __tmp101946))) + (__shadow-class __tmp103094))) (define raw-device-port::t - (let ((__tmp101947 (macro-type-raw-device-port))) + (let ((__tmp103095 (macro-type-raw-device-port))) (declare (not safe)) - (__shadow-class __tmp101947))) + (__shadow-class __tmp103095))) (define tcp-server-port::t - (let ((__tmp101948 (macro-type-tcp-server-port))) + (let ((__tmp103096 (macro-type-tcp-server-port))) (declare (not safe)) - (__shadow-class __tmp101948))) + (__shadow-class __tmp103096))) (define udp-port::t - (let ((__tmp101949 (macro-type-udp-port))) + (let ((__tmp103097 (macro-type-udp-port))) (declare (not safe)) - (__shadow-class __tmp101949))) + (__shadow-class __tmp103097))) (define directory-port::t - (let ((__tmp101950 (macro-type-directory-port))) + (let ((__tmp103098 (macro-type-directory-port))) (declare (not safe)) - (__shadow-class __tmp101950))) + (__shadow-class __tmp103098))) (define event-queue-port::t - (let ((__tmp101951 (macro-type-event-queue-port))) + (let ((__tmp103099 (macro-type-event-queue-port))) (declare (not safe)) - (__shadow-class __tmp101951))) + (__shadow-class __tmp103099))) (define table::t - (let ((__tmp101952 (macro-type-table))) + (let ((__tmp103100 (macro-type-table))) (declare (not safe)) - (__shadow-class __tmp101952))) + (__shadow-class __tmp103100))) (define readenv::t - (let ((__tmp101953 (macro-type-readenv))) + (let ((__tmp103101 (macro-type-readenv))) (declare (not safe)) - (__shadow-class __tmp101953))) + (__shadow-class __tmp103101))) (define writeenv::t - (let ((__tmp101954 (macro-type-writeenv))) + (let ((__tmp103102 (macro-type-writeenv))) (declare (not safe)) - (__shadow-class __tmp101954))) + (__shadow-class __tmp103102))) (define readtable::t - (let ((__tmp101955 (macro-type-readtable))) + (let ((__tmp103103 (macro-type-readtable))) (declare (not safe)) - (__shadow-class __tmp101955))) + (__shadow-class __tmp103103))) (define processor::t - (let ((__tmp101956 (macro-type-processor))) + (let ((__tmp103104 (macro-type-processor))) (declare (not safe)) - (__shadow-class __tmp101956))) + (__shadow-class __tmp103104))) (define vm::t - (let ((__tmp101957 (macro-type-vm))) + (let ((__tmp103105 (macro-type-vm))) (declare (not safe)) - (__shadow-class __tmp101957))) + (__shadow-class __tmp103105))) (define file-info::t - (let ((__tmp101958 (macro-type-file-info))) + (let ((__tmp103106 (macro-type-file-info))) (declare (not safe)) - (__shadow-class __tmp101958))) + (__shadow-class __tmp103106))) (define socket-info::t - (let ((__tmp101959 (macro-type-socket-info))) + (let ((__tmp103107 (macro-type-socket-info))) (declare (not safe)) - (__shadow-class __tmp101959))) + (__shadow-class __tmp103107))) (define address-info::t - (let ((__tmp101960 (macro-type-address-info))) + (let ((__tmp103108 (macro-type-address-info))) (declare (not safe)) - (__shadow-class __tmp101960))) + (__shadow-class __tmp103108))) (define atom? - (lambda (_%obj101901%_) - (if (let () (declare (not safe)) (immediate? _%obj101901%_)) - (if (char? _%obj101901%_) '#f (not (fixnum? _%obj101901%_))) + (lambda (_%obj103049%_) + (if (let () (declare (not safe)) (immediate? _%obj103049%_)) + (if (char? _%obj103049%_) '#f (not (fixnum? _%obj103049%_))) '#f))) (define special? - (lambda (_%obj101899%_) - (if (let ((__tmp101961 - (let () (declare (not safe)) (##type _%obj101899%_)))) + (lambda (_%obj103047%_) + (if (let ((__tmp103109 + (let () (declare (not safe)) (##type _%obj103047%_)))) (declare (not safe)) - (##fx= __tmp101961 '2)) - (if (char? _%obj101899%_) + (##fx= __tmp103109 '2)) + (if (char? _%obj103047%_) '#f - (if (null? _%obj101899%_) + (if (null? _%obj103047%_) '#f - (if (boolean? _%obj101899%_) + (if (boolean? _%obj103047%_) '#f - (if (eq? _%obj101899%_ '#!void) + (if (eq? _%obj103047%_ '#!void) '#f - (not (eof-object? _%obj101899%_)))))) + (not (eof-object? _%obj103047%_)))))) '#f))) (define sequence? - (lambda (_%obj101891%_) - (let ((_%$e101893%_ (vector? _%obj101891%_))) - (if _%$e101893%_ - _%$e101893%_ - (let ((_%$e101896%_ (string? _%obj101891%_))) - (if _%$e101896%_ _%$e101896%_ (hvector? _%obj101891%_))))))) + (lambda (_%obj103039%_) + (let ((_%$e103041%_ (vector? _%obj103039%_))) + (if _%$e103041%_ + _%$e103041%_ + (let ((_%$e103044%_ (string? _%obj103039%_))) + (if _%$e103044%_ _%$e103044%_ (hvector? _%obj103039%_))))))) (define hvector? - (lambda (_%obj101862%_) - (let ((_%$e101864%_ (u8vector? _%obj101862%_))) - (if _%$e101864%_ - _%$e101864%_ - (let ((_%$e101867%_ (s8vector? _%obj101862%_))) - (if _%$e101867%_ - _%$e101867%_ - (let ((_%$e101870%_ (u16vector? _%obj101862%_))) - (if _%$e101870%_ - _%$e101870%_ - (let ((_%$e101873%_ (s16vector? _%obj101862%_))) - (if _%$e101873%_ - _%$e101873%_ - (let ((_%$e101876%_ - (u32vector? _%obj101862%_))) - (if _%$e101876%_ - _%$e101876%_ - (let ((_%$e101879%_ - (s32vector? _%obj101862%_))) - (if _%$e101879%_ - _%$e101879%_ - (let ((_%$e101882%_ - (u64vector? _%obj101862%_))) - (if _%$e101882%_ - _%$e101882%_ - (let ((_%$e101885%_ + (lambda (_%obj103010%_) + (let ((_%$e103012%_ (u8vector? _%obj103010%_))) + (if _%$e103012%_ + _%$e103012%_ + (let ((_%$e103015%_ (s8vector? _%obj103010%_))) + (if _%$e103015%_ + _%$e103015%_ + (let ((_%$e103018%_ (u16vector? _%obj103010%_))) + (if _%$e103018%_ + _%$e103018%_ + (let ((_%$e103021%_ (s16vector? _%obj103010%_))) + (if _%$e103021%_ + _%$e103021%_ + (let ((_%$e103024%_ + (u32vector? _%obj103010%_))) + (if _%$e103024%_ + _%$e103024%_ + (let ((_%$e103027%_ + (s32vector? _%obj103010%_))) + (if _%$e103027%_ + _%$e103027%_ + (let ((_%$e103030%_ + (u64vector? _%obj103010%_))) + (if _%$e103030%_ + _%$e103030%_ + (let ((_%$e103033%_ (s64vector? - _%obj101862%_))) - (if _%$e101885%_ - _%$e101885%_ - (let ((_%$e101888%_ + _%obj103010%_))) + (if _%$e103033%_ + _%$e103033%_ + (let ((_%$e103036%_ (f32vector? - _%obj101862%_))) - (if _%$e101888%_ - _%$e101888%_ + _%obj103010%_))) + (if _%$e103036%_ + _%$e103036%_ (f64vector? - _%obj101862%_))))))))))))))))))))) + _%obj103010%_))))))))))))))))))))) (define weak? - (lambda (_%obj101860%_) - (if (let () (declare (not safe)) (##subtyped? _%obj101860%_)) - (eq? (let () (declare (not safe)) (##subtype _%obj101860%_)) + (lambda (_%obj103008%_) + (if (let () (declare (not safe)) (##subtyped? _%obj103008%_)) + (eq? (let () (declare (not safe)) (##subtype _%obj103008%_)) (macro-subtype-weak)) '#f))) (define object-port? - (lambda (_%obj101858%_) - (let ((__tmp101962 - (let ((__tmp101963 (macro-type-object-port))) + (lambda (_%obj103006%_) + (let ((__tmp103110 + (let ((__tmp103111 (macro-type-object-port))) (declare (not safe)) - (##type-id __tmp101963)))) + (##type-id __tmp103111)))) (declare (not safe)) - (##structure-instance-of? _%obj101858%_ __tmp101962)))) + (##structure-instance-of? _%obj103006%_ __tmp103110)))) (define character-port? - (lambda (_%obj101856%_) - (let ((__tmp101964 - (let ((__tmp101965 (macro-type-character-port))) + (lambda (_%obj103004%_) + (let ((__tmp103112 + (let ((__tmp103113 (macro-type-character-port))) (declare (not safe)) - (##type-id __tmp101965)))) + (##type-id __tmp103113)))) (declare (not safe)) - (##structure-instance-of? _%obj101856%_ __tmp101964)))) + (##structure-instance-of? _%obj103004%_ __tmp103112)))) (define device-port? - (lambda (_%obj101854%_) - (let ((__tmp101966 - (let ((__tmp101967 (macro-type-device-port))) + (lambda (_%obj103002%_) + (let ((__tmp103114 + (let ((__tmp103115 (macro-type-device-port))) (declare (not safe)) - (##type-id __tmp101967)))) + (##type-id __tmp103115)))) (declare (not safe)) - (##structure-instance-of? _%obj101854%_ __tmp101966)))) + (##structure-instance-of? _%obj103002%_ __tmp103114)))) (define vector-port? - (lambda (_%obj101852%_) - (let ((__tmp101968 - (let ((__tmp101969 (macro-type-vector-port))) + (lambda (_%obj103000%_) + (let ((__tmp103116 + (let ((__tmp103117 (macro-type-vector-port))) (declare (not safe)) - (##type-id __tmp101969)))) + (##type-id __tmp103117)))) (declare (not safe)) - (##structure-instance-of? _%obj101852%_ __tmp101968)))) + (##structure-instance-of? _%obj103000%_ __tmp103116)))) (define string-port? - (lambda (_%obj101850%_) - (let ((__tmp101970 - (let ((__tmp101971 (macro-type-string-port))) + (lambda (_%obj102998%_) + (let ((__tmp103118 + (let ((__tmp103119 (macro-type-string-port))) (declare (not safe)) - (##type-id __tmp101971)))) + (##type-id __tmp103119)))) (declare (not safe)) - (##structure-instance-of? _%obj101850%_ __tmp101970)))) + (##structure-instance-of? _%obj102998%_ __tmp103118)))) (define u8vector-port? - (lambda (_%obj101848%_) - (let ((__tmp101972 - (let ((__tmp101973 (macro-type-u8vector-port))) + (lambda (_%obj102996%_) + (let ((__tmp103120 + (let ((__tmp103121 (macro-type-u8vector-port))) (declare (not safe)) - (##type-id __tmp101973)))) + (##type-id __tmp103121)))) (declare (not safe)) - (##structure-instance-of? _%obj101848%_ __tmp101972)))) + (##structure-instance-of? _%obj102996%_ __tmp103120)))) (define raw-device-port? - (lambda (_%obj101846%_) - (let ((__tmp101974 - (let ((__tmp101975 (macro-type-raw-device-port))) + (lambda (_%obj102994%_) + (let ((__tmp103122 + (let ((__tmp103123 (macro-type-raw-device-port))) (declare (not safe)) - (##type-id __tmp101975)))) + (##type-id __tmp103123)))) (declare (not safe)) - (##structure-instance-of? _%obj101846%_ __tmp101974)))) + (##structure-instance-of? _%obj102994%_ __tmp103122)))) (define tcp-server-port? - (lambda (_%obj101844%_) - (let ((__tmp101976 - (let ((__tmp101977 (macro-type-tcp-server-port))) + (lambda (_%obj102992%_) + (let ((__tmp103124 + (let ((__tmp103125 (macro-type-tcp-server-port))) (declare (not safe)) - (##type-id __tmp101977)))) + (##type-id __tmp103125)))) (declare (not safe)) - (##structure-instance-of? _%obj101844%_ __tmp101976)))) + (##structure-instance-of? _%obj102992%_ __tmp103124)))) (define udp-port? - (lambda (_%obj101842%_) - (let ((__tmp101978 - (let ((__tmp101979 (macro-type-udp-port))) + (lambda (_%obj102990%_) + (let ((__tmp103126 + (let ((__tmp103127 (macro-type-udp-port))) (declare (not safe)) - (##type-id __tmp101979)))) + (##type-id __tmp103127)))) (declare (not safe)) - (##structure-instance-of? _%obj101842%_ __tmp101978)))) + (##structure-instance-of? _%obj102990%_ __tmp103126)))) (define directory-port? - (lambda (_%obj101840%_) - (let ((__tmp101980 - (let ((__tmp101981 (macro-type-directory-port))) + (lambda (_%obj102988%_) + (let ((__tmp103128 + (let ((__tmp103129 (macro-type-directory-port))) (declare (not safe)) - (##type-id __tmp101981)))) + (##type-id __tmp103129)))) (declare (not safe)) - (##structure-instance-of? _%obj101840%_ __tmp101980)))) + (##structure-instance-of? _%obj102988%_ __tmp103128)))) (define event-queue-port? - (lambda (_%obj101838%_) - (let ((__tmp101982 - (let ((__tmp101983 (macro-type-event-queue-port))) + (lambda (_%obj102986%_) + (let ((__tmp103130 + (let ((__tmp103131 (macro-type-event-queue-port))) (declare (not safe)) - (##type-id __tmp101983)))) + (##type-id __tmp103131)))) (declare (not safe)) - (##structure-instance-of? _%obj101838%_ __tmp101982)))) + (##structure-instance-of? _%obj102986%_ __tmp103130)))) (define readenv? - (lambda (_%obj101836%_) - (let ((__tmp101984 - (let ((__tmp101985 (macro-type-readenv))) + (lambda (_%obj102984%_) + (let ((__tmp103132 + (let ((__tmp103133 (macro-type-readenv))) (declare (not safe)) - (##type-id __tmp101985)))) + (##type-id __tmp103133)))) (declare (not safe)) - (##structure-instance-of? _%obj101836%_ __tmp101984)))) + (##structure-instance-of? _%obj102984%_ __tmp103132)))) (define writeenv? - (lambda (_%obj101834%_) - (let ((__tmp101986 - (let ((__tmp101987 (macro-type-writeenv))) + (lambda (_%obj102982%_) + (let ((__tmp103134 + (let ((__tmp103135 (macro-type-writeenv))) (declare (not safe)) - (##type-id __tmp101987)))) + (##type-id __tmp103135)))) (declare (not safe)) - (##structure-instance-of? _%obj101834%_ __tmp101986)))) + (##structure-instance-of? _%obj102982%_ __tmp103134)))) (define vm? - (lambda (_%obj101832%_) - (let ((__tmp101988 - (let ((__tmp101989 (macro-type-vm))) + (lambda (_%obj102980%_) + (let ((__tmp103136 + (let ((__tmp103137 (macro-type-vm))) (declare (not safe)) - (##type-id __tmp101989)))) + (##type-id __tmp103137)))) (declare (not safe)) - (##structure-instance-of? _%obj101832%_ __tmp101988)))))) + (##structure-instance-of? _%obj102980%_ __tmp103136)))))) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm b/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm index f28a38ade..4bd836767 100644 --- a/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm +++ b/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm @@ -1,208 +1,208 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g101990_| + (define |[1]#_g103138_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (define |[:0:]#defpred| - (lambda (_%stx101617%_) - (let* ((_%g101620101658%_ - (lambda (_%g101621101654%_) + (lambda (_%stx102765%_) + (let* ((_%g102768102806%_ + (lambda (_%g102769102802%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g101621101654%_))) - (_%g101619101827%_ - (lambda (_%g101621101662%_) - (if (gx#stx-pair? _%g101621101662%_) - (let ((_%e101626101665%_ (gx#syntax-e _%g101621101662%_))) - (let ((_%hd101627101669%_ + _%g102769102802%_))) + (_%g102767102975%_ + (lambda (_%g102769102810%_) + (if (gx#stx-pair? _%g102769102810%_) + (let ((_%e102774102813%_ (gx#syntax-e _%g102769102810%_))) + (let ((_%hd102775102817%_ (let () (declare (not safe)) - (##car _%e101626101665%_))) - (_%tl101628101672%_ + (##car _%e102774102813%_))) + (_%tl102776102820%_ (let () (declare (not safe)) - (##cdr _%e101626101665%_)))) - (if (gx#stx-pair? _%tl101628101672%_) - (let ((_%e101629101675%_ - (gx#syntax-e _%tl101628101672%_))) - (let ((_%hd101630101679%_ + (##cdr _%e102774102813%_)))) + (if (gx#stx-pair? _%tl102776102820%_) + (let ((_%e102777102823%_ + (gx#syntax-e _%tl102776102820%_))) + (let ((_%hd102778102827%_ (let () (declare (not safe)) - (##car _%e101629101675%_))) - (_%tl101631101682%_ + (##car _%e102777102823%_))) + (_%tl102779102830%_ (let () (declare (not safe)) - (##cdr _%e101629101675%_)))) - (if (gx#stx-pair? _%hd101630101679%_) - (let ((_%e101632101685%_ - (gx#syntax-e _%hd101630101679%_))) - (let ((_%hd101633101689%_ + (##cdr _%e102777102823%_)))) + (if (gx#stx-pair? _%hd102778102827%_) + (let ((_%e102780102833%_ + (gx#syntax-e _%hd102778102827%_))) + (let ((_%hd102781102837%_ (let () (declare (not safe)) - (##car _%e101632101685%_))) - (_%tl101634101692%_ + (##car _%e102780102833%_))) + (_%tl102782102840%_ (let () (declare (not safe)) - (##cdr _%e101632101685%_)))) - (if (gx#stx-pair? _%tl101634101692%_) - (let ((_%e101635101695%_ + (##cdr _%e102780102833%_)))) + (if (gx#stx-pair? _%tl102782102840%_) + (let ((_%e102783102843%_ (gx#syntax-e - _%tl101634101692%_))) - (let ((_%hd101636101699%_ + _%tl102782102840%_))) + (let ((_%hd102784102847%_ (let () (declare (not safe)) - (##car _%e101635101695%_))) - (_%tl101637101702%_ + (##car _%e102783102843%_))) + (_%tl102785102850%_ (let () (declare (not safe)) - (##cdr _%e101635101695%_)))) + (##cdr _%e102783102843%_)))) (if (gx#stx-null? - _%tl101637101702%_) + _%tl102785102850%_) (if (gx#stx-pair? - _%tl101631101682%_) - (let ((_%e101638101705%_ + _%tl102779102830%_) + (let ((_%e102786102853%_ (gx#syntax-e - _%tl101631101682%_))) - (let ((_%hd101639101709%_ + _%tl102779102830%_))) + (let ((_%hd102787102857%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%e101638101705%_))) - (_%tl101640101712%_ + (##car _%e102786102853%_))) + (_%tl102788102860%_ (let () (declare (not safe)) - (##cdr _%e101638101705%_)))) - (if (gx#identifier? _%hd101639101709%_) + (##cdr _%e102786102853%_)))) + (if (gx#identifier? _%hd102787102857%_) (if (gx#free-identifier=? - |[1]#_g101990_| - _%hd101639101709%_) - (if (gx#stx-pair? _%tl101640101712%_) - (let ((_%e101641101715%_ - (gx#syntax-e _%tl101640101712%_))) - (let ((_%hd101642101719%_ + |[1]#_g103138_| + _%hd102787102857%_) + (if (gx#stx-pair? _%tl102788102860%_) + (let ((_%e102789102863%_ + (gx#syntax-e _%tl102788102860%_))) + (let ((_%hd102790102867%_ (let () (declare (not safe)) - (##car _%e101641101715%_))) - (_%tl101643101722%_ + (##car _%e102789102863%_))) + (_%tl102791102870%_ (let () (declare (not safe)) - (##cdr _%e101641101715%_)))) - (if (gx#stx-pair/null? _%tl101643101722%_) - (let ((_g101991_ + (##cdr _%e102789102863%_)))) + (if (gx#stx-pair/null? _%tl102791102870%_) + (let ((_g103139_ (gx#syntax-split-splice - _%tl101643101722%_ + _%tl102791102870%_ '0))) (begin - (let ((_g101992_ + (let ((_g103140_ (let () (declare (not safe)) - (if (##values? _g101991_) - (##vector-length - _g101991_) + (if (##values? _g103139_) + (##values-length + _g103139_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101992_ 2))) + (##fx= _g103140_ 2))) (error "Context expects 2 values" - _g101992_))) - (let ((_%target101644101725%_ + _g103140_))) + (let ((_%target102792102873%_ (let () (declare (not safe)) - (##vector-ref - _g101991_ + (##values-ref + _g103139_ 0))) - (_%tl101646101728%_ + (_%tl102794102876%_ (let () (declare (not safe)) - (##vector-ref - _g101991_ + (##values-ref + _g103139_ 1)))) (if (gx#stx-null? - _%tl101646101728%_) - (letrec ((_%loop101647101731%_ - (lambda (_%hd101645101735%_ + _%tl102794102876%_) + (letrec ((_%loop102795102879%_ + (lambda (_%hd102793102883%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body101651101738%_) - (if (gx#stx-pair? _%hd101645101735%_) - (let ((_%e101648101741%_ - (gx#syntax-e _%hd101645101735%_))) - (let ((_%lp-hd101649101745%_ + _%body102799102886%_) + (if (gx#stx-pair? _%hd102793102883%_) + (let ((_%e102796102889%_ + (gx#syntax-e _%hd102793102883%_))) + (let ((_%lp-hd102797102893%_ (let () (declare (not safe)) - (##car _%e101648101741%_))) - (_%lp-tl101650101748%_ + (##car _%e102796102889%_))) + (_%lp-tl102798102896%_ (let () (declare (not safe)) - (##cdr _%e101648101741%_)))) - (_%loop101647101731%_ - _%lp-tl101650101748%_ - (cons _%lp-hd101649101745%_ - _%body101651101738%_)))) - (let ((_%body101652101751%_ - (reverse _%body101651101738%_))) - ((lambda (_%L101755%_ - _%L101757%_ - _%L101758%_ - _%L101759%_) - (let* ((_%g101788101796%_ - (lambda (_%g101789101792%_) + (##cdr _%e102796102889%_)))) + (_%loop102795102879%_ + _%lp-tl102798102896%_ + (cons _%lp-hd102797102893%_ + _%body102799102886%_)))) + (let ((_%body102800102899%_ + (reverse _%body102799102886%_))) + ((lambda (_%L102903%_ + _%L102905%_ + _%L102906%_ + _%L102907%_) + (let* ((_%g102936102944%_ + (lambda (_%g102937102940%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g101789101792%_))) - (_%g101787101823%_ - (lambda (_%g101789101800%_) - ((lambda (_%L101803%_) + _%g102937102940%_))) + (_%g102935102971%_ + (lambda (_%g102937102948%_) + ((lambda (_%L102951%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L101759%_ + (cons _%L102907%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@predicate) - (cons _%L101803%_ '())) + (cons _%L102951%_ '())) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L101758%_ '()) - (let ((__tmp101993 - (lambda (_%g101814101817%_ + (cons (cons _%L102906%_ '()) + (let ((__tmp103141 + (lambda (_%g102962102965%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g101815101820%_) - (cons _%g101814101817%_ _%g101815101820%_)))) + _%g102963102968%_) + (cons _%g102962102965%_ _%g102963102968%_)))) (declare (not safe)) - (__foldr1 __tmp101993 '() _%L101755%_)))) + (__foldr1 __tmp103141 '() _%L102903%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g101789101800%_)))) - (_%g101787101823%_ + _%g102937102948%_)))) + (_%g102935102971%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx101617%_ - _%L101757%_))))) - _%body101652101751%_ - _%hd101642101719%_ - _%hd101636101699%_ - _%hd101633101689%_)))))) + _%stx102765%_ + _%L102905%_))))) + _%body102800102899%_ + _%hd102790102867%_ + _%hd102784102847%_ + _%hd102781102837%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop101647101731%_ - _%target101644101725%_ + (_%loop102795102879%_ + _%target102792102873%_ '())) - (_%g101620101658%_ - _%g101621101662%_))))) - (_%g101620101658%_ - _%g101621101662%_)))) - (_%g101620101658%_ _%g101621101662%_)) - (_%g101620101658%_ _%g101621101662%_)) - (_%g101620101658%_ _%g101621101662%_)))) - (_%g101620101658%_ _%g101621101662%_)) + (_%g102768102806%_ + _%g102769102810%_))))) + (_%g102768102806%_ + _%g102769102810%_)))) + (_%g102768102806%_ _%g102769102810%_)) + (_%g102768102806%_ _%g102769102810%_)) + (_%g102768102806%_ _%g102769102810%_)))) + (_%g102768102806%_ _%g102769102810%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g101620101658%_ - _%g101621101662%_)))) - (_%g101620101658%_ - _%g101621101662%_)))) - (_%g101620101658%_ _%g101621101662%_)))) - (_%g101620101658%_ _%g101621101662%_)))) - (_%g101620101658%_ _%g101621101662%_))))) - (_%g101619101827%_ _%stx101617%_))))) + (_%g102768102806%_ + _%g102769102810%_)))) + (_%g102768102806%_ + _%g102769102810%_)))) + (_%g102768102806%_ _%g102769102810%_)))) + (_%g102768102806%_ _%g102769102810%_)))) + (_%g102768102806%_ _%g102769102810%_))))) + (_%g102767102975%_ _%stx102765%_))))) diff --git a/src/bootstrap/gerbil/runtime/mop.ssi b/src/bootstrap/gerbil/runtime/mop.ssi index 14083d0cf..26288f9cb 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssi +++ b/src/bootstrap/gerbil/runtime/mop.ssi @@ -368,6 +368,9 @@ namespace: #f (%#define-runtime __shadow-classes __shadow-classes) (%#define-runtime __shadow-classes-mx __shadow-classes-mx) (%#define-runtime __shadow-class __shadow-class) + (%#define-runtime __type __type) + (%#define-runtime __class __class) + (%#define-runtime type-of type-of) (%#define-runtime class-of class-of) (%#define-runtime __subtype-id __subtype-id) (%#define-syntax defsubtype |[:0:]#defsubtype|) diff --git a/src/bootstrap/gerbil/runtime/mop.ssxi.ss b/src/bootstrap/gerbil/runtime/mop.ssxi.ss index 22209b462..cc90b93aa 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/mop.ssxi.ss @@ -3066,7 +3066,21 @@ package: gerbil/runtime #f origin: gerbil/runtime/mop))) - (declare-type write-style (@lambda 1 macro-writeenv-style)) + (declare-type + write-style + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type write-object (@lambda 2 @@ -3103,6 +3117,23 @@ package: gerbil/runtime #f origin: gerbil/runtime/mop))) + (declare-type __type (optimizer-resolve-class '(typedecl __type) 't::t)) + (declare-type __class (optimizer-resolve-class '(typedecl __class) 't::t)) + (declare-type + type-of + (@lambda 1 + #f + signature: + (return: + symbol::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-of (@lambda 1 diff --git a/src/bootstrap/gerbil/runtime/mop~0.scm b/src/bootstrap/gerbil/runtime/mop~0.scm index 76667a0ad..88d68cd57 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 1713631264) + (define gerbil/runtime/mop::timestamp 1734357960) (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 ((_%flags99999%_ + (let ((_%flags101148%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-id class-type-flag-system))) - (_%properties100000%_ '((direct-slots:) (system: . #t))) - (_%slot-table100001%_ + (_%properties101149%_ '((direct-slots:) (system: . #t))) + (_%slot-table101150%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) @@ -27,17 +27,17 @@ '#f 't 't - _%flags99999%_ + _%flags101148%_ '#f '#() '() '#(#f) - _%slot-table100001%_ - _%properties100000%_ + _%slot-table101150%_ + _%properties101149%_ '#f '#f)))) (define class::t - (let* ((_%slots99975%_ + (let* ((_%slots101124%_ '(id name super flags @@ -48,122 +48,122 @@ properties constructor methods)) - (_%slot-vector99977%_ (list->vector (cons '#f _%slots99975%_))) - (_%slot-table99984%_ - (let ((_%slot-table99979%_ + (_%slot-vector101126%_ (list->vector (cons '#f _%slots101124%_))) + (_%slot-table101133%_ + (let ((_%slot-table101128%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp101442 - (lambda (_%slot99981%_ _%field99982%_) + (let ((__tmp102591 + (lambda (_%slot101130%_ _%field101131%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table99979%_ - _%slot99981%_ - _%field99982%_)) - (let ((__tmp101443 + _%slot-table101128%_ + _%slot101130%_ + _%field101131%_)) + (let ((__tmp102592 (let () (declare (not safe)) - (symbol->keyword _%slot99981%_)))) + (symbol->keyword _%slot101130%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table99979%_ - __tmp101443 - _%field99982%_)))) - (__tmp101440 - (let ((__tmp101441 + _%slot-table101128%_ + __tmp102592 + _%field101131%_)))) + (__tmp102589 + (let ((__tmp102590 (let () (declare (not safe)) - (##length _%slots99975%_)))) + (##length _%slots101124%_)))) (declare (not safe)) - (##iota __tmp101441 '1)))) + (##iota __tmp102590 '1)))) (declare (not safe)) - (##for-each __tmp101442 _%slots99975%_ __tmp101440)) - _%slot-table99979%_)) - (_%flags99986%_ + (##for-each __tmp102591 _%slots101124%_ __tmp102589)) + _%slot-table101128%_)) + (_%flags101135%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields99992%_ + (_%fields101141%_ (list->vector - (let ((__tmp101444 - (map (lambda (_%g9998799989%_) - (list _%g9998799989%_ '5 '#f)) - (drop _%slots99975%_ '5)))) + (let ((__tmp102593 + (map (lambda (_%g101136101138%_) + (list _%g101136101138%_ '5 '#f)) + (drop _%slots101124%_ '5)))) (declare (not safe)) - (##apply append __tmp101444)))) - (_%properties99994%_ + (##apply append __tmp102593)))) + (_%properties101143%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots99975%_))) + (__foldr1 cons '() _%slots101124%_))) (cons (cons 'struct: '#t) '()))) - (_%t99996%_ - (let ((__tmp101445 (cons t::t '()))) + (_%t101145%_ + (let ((__tmp102594 (cons t::t '()))) (declare (not safe)) (##structure '#f 'class 'class - _%flags99986%_ + _%flags101135%_ ##type-type - _%fields99992%_ - __tmp101445 - _%slot-vector99977%_ - _%slot-table99984%_ - _%properties99994%_ + _%fields101141%_ + __tmp102594 + _%slot-vector101126%_ + _%slot-table101133%_ + _%properties101143%_ '#f '#f)))) (let () (declare (not safe)) - (##structure-type-set! _%t99996%_ _%t99996%_)) - _%t99996%_)) + (##structure-type-set! _%t101145%_ _%t101145%_)) + _%t101145%_)) (let () (declare (not safe)) (##structure-type-set! t::t class::t)) (define object::t - (let ((_%flags99971%_ + (let ((_%flags101120%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-id class-type-flag-system))) - (_%properties99972%_ '((direct-slots:) (system: . #t))) - (_%slot-table99973%_ + (_%properties101121%_ '((direct-slots:) (system: . #t))) + (_%slot-table101122%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp101446 (cons t::t '()))) + (let ((__tmp102595 (cons t::t '()))) (declare (not safe)) (##structure class::t 'object 'object - _%flags99971%_ + _%flags101120%_ '#f '#() - __tmp101446 + __tmp102595 '#(#f) - _%slot-table99973%_ - _%properties99972%_ + _%slot-table101122%_ + _%properties101121%_ '#f '#f)))) (define class-type? - (lambda (_%obj99969%_) + (lambda (_%obj101118%_) (let () (declare (not safe)) - (##structure-instance-of? _%obj99969%_ 'class)))) + (##structure-instance-of? _%obj101118%_ 'class)))) (define class-type=? - (lambda (_%x99944%_ _%y99945%_) + (lambda (_%x101093%_ _%y101094%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%x99944%_ 'class)) - (let ((_%x99949%_ _%x99944%_)) + (##structure-instance-of? _%x101093%_ 'class)) + (let ((_%x101098%_ _%x101093%_)) (if (let () (declare (not safe)) - (##structure-instance-of? _%y99945%_ 'class)) - (let ((_%y99959%_ _%y99945%_)) - (__class-type=? _%x99949%_ _%y99959%_)) + (##structure-instance-of? _%y101094%_ 'class)) + (let ((_%y101108%_ _%y101094%_)) + (__class-type=? _%x101098%_ _%y101108%_)) (begin (raise-contract-violation-error '"contract violation" @@ -172,7 +172,7 @@ 'contract: 'class-type? 'value: - _%y99945%_) + _%y101094%_) '#!void))) (begin (raise-contract-violation-error @@ -182,22 +182,22 @@ 'contract: 'class-type? 'value: - _%x99944%_) + _%x101093%_) '#!void)))) (define __class-type=? - (lambda (_%x99923%_ _%y99924%_) - (let* ((_%x99927%_ _%x99923%_) (_%y99935%_ _%y99924%_)) + (lambda (_%x101072%_ _%y101073%_) + (let* ((_%x101076%_ _%x101072%_) (_%y101084%_ _%y101073%_)) (eq? (let () (declare (not safe)) - (##unchecked-structure-ref _%x99927%_ '1 '#f '#f)) + (##unchecked-structure-ref _%x101076%_ '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-ref _%y99935%_ '1 '#f '#f)))))) + (##unchecked-structure-ref _%y101084%_ '1 '#f '#f)))))) (define type-opaque? - (lambda (_%type99909%_) - (if (let () (declare (not safe)) (##type? _%type99909%_)) - (let ((_%type99913%_ _%type99909%_)) - (__type-opaque? _%type99913%_)) + (lambda (_%type101058%_) + (if (let () (declare (not safe)) (##type? _%type101058%_)) + (let ((_%type101062%_ _%type101058%_)) + (__type-opaque? _%type101062%_)) (begin (raise-contract-violation-error '"contract violation" @@ -206,25 +206,25 @@ 'contract: '##type? 'value: - _%type99909%_) + _%type101058%_) '#!void)))) (define __type-opaque? - (lambda (_%type99897%_) - (let* ((_%type99900%_ _%type99897%_) - (__tmp101447 - (let ((__tmp101448 + (lambda (_%type101046%_) + (let* ((_%type101049%_ _%type101046%_) + (__tmp102596 + (let ((__tmp102597 (let () (declare (not safe)) - (##type-flags _%type99900%_)))) + (##type-flags _%type101049%_)))) (declare (not safe)) - (##fxand __tmp101448 type-flag-opaque)))) + (##fxand __tmp102597 type-flag-opaque)))) (declare (not safe)) - (##fx= __tmp101447 type-flag-opaque)))) + (##fx= __tmp102596 type-flag-opaque)))) (define type-extensible? - (lambda (_%type99883%_) - (if (let () (declare (not safe)) (##type? _%type99883%_)) - (let ((_%type99887%_ _%type99883%_)) - (__type-extensible? _%type99887%_)) + (lambda (_%type101032%_) + (if (let () (declare (not safe)) (##type? _%type101032%_)) + (let ((_%type101036%_ _%type101032%_)) + (__type-extensible? _%type101036%_)) (begin (raise-contract-violation-error '"contract violation" @@ -233,27 +233,27 @@ 'contract: '##type? 'value: - _%type99883%_) + _%type101032%_) '#!void)))) (define __type-extensible? - (lambda (_%type99871%_) - (let* ((_%type99874%_ _%type99871%_) - (__tmp101449 - (let ((__tmp101450 + (lambda (_%type101020%_) + (let* ((_%type101023%_ _%type101020%_) + (__tmp102598 + (let ((__tmp102599 (let () (declare (not safe)) - (##type-flags _%type99874%_)))) + (##type-flags _%type101023%_)))) (declare (not safe)) - (##fxand __tmp101450 type-flag-extensible)))) + (##fxand __tmp102599 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp101449 type-flag-extensible)))) + (##fx= __tmp102598 type-flag-extensible)))) (define class-type-final? - (lambda (_%type99857%_) + (lambda (_%type101006%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type99857%_ 'class)) - (let ((_%type99861%_ _%type99857%_)) - (__class-type-final? _%type99861%_)) + (##structure-instance-of? _%type101006%_ 'class)) + (let ((_%type101010%_ _%type101006%_)) + (__class-type-final? _%type101010%_)) (begin (raise-contract-violation-error '"contract violation" @@ -262,27 +262,27 @@ 'contract: 'class-type? 'value: - _%type99857%_) + _%type101006%_) '#!void)))) (define __class-type-final? - (lambda (_%type99845%_) - (let* ((_%type99848%_ _%type99845%_) - (__tmp101451 - (let ((__tmp101452 + (lambda (_%type100994%_) + (let* ((_%type100997%_ _%type100994%_) + (__tmp102600 + (let ((__tmp102601 (let () (declare (not safe)) - (##type-flags _%type99848%_)))) + (##type-flags _%type100997%_)))) (declare (not safe)) - (##fxand __tmp101452 type-flag-extensible)))) + (##fxand __tmp102601 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp101451 '0)))) + (##fx= __tmp102600 '0)))) (define class-type-struct? - (lambda (_%klass99831%_) + (lambda (_%klass100980%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99831%_ 'class)) - (let ((_%klass99835%_ _%klass99831%_)) - (__class-type-struct? _%klass99835%_)) + (##structure-instance-of? _%klass100980%_ 'class)) + (let ((_%klass100984%_ _%klass100980%_)) + (__class-type-struct? _%klass100984%_)) (begin (raise-contract-violation-error '"contract violation" @@ -291,27 +291,27 @@ 'contract: 'class-type? 'value: - _%klass99831%_) + _%klass100980%_) '#!void)))) (define __class-type-struct? - (lambda (_%klass99819%_) - (let* ((_%klass99822%_ _%klass99819%_) - (__tmp101453 - (let ((__tmp101454 + (lambda (_%klass100968%_) + (let* ((_%klass100971%_ _%klass100968%_) + (__tmp102602 + (let ((__tmp102603 (let () (declare (not safe)) - (##type-flags _%klass99822%_)))) + (##type-flags _%klass100971%_)))) (declare (not safe)) - (##fxand __tmp101454 class-type-flag-struct)))) + (##fxand __tmp102603 class-type-flag-struct)))) (declare (not safe)) - (##fx= __tmp101453 class-type-flag-struct)))) + (##fx= __tmp102602 class-type-flag-struct)))) (define class-type-sealed? - (lambda (_%klass99805%_) + (lambda (_%klass100954%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99805%_ 'class)) - (let ((_%klass99809%_ _%klass99805%_)) - (__class-type-sealed? _%klass99809%_)) + (##structure-instance-of? _%klass100954%_ 'class)) + (let ((_%klass100958%_ _%klass100954%_)) + (__class-type-sealed? _%klass100958%_)) (begin (raise-contract-violation-error '"contract violation" @@ -320,27 +320,27 @@ 'contract: 'class-type? 'value: - _%klass99805%_) + _%klass100954%_) '#!void)))) (define __class-type-sealed? - (lambda (_%klass99793%_) - (let* ((_%klass99796%_ _%klass99793%_) - (__tmp101455 - (let ((__tmp101456 + (lambda (_%klass100942%_) + (let* ((_%klass100945%_ _%klass100942%_) + (__tmp102604 + (let ((__tmp102605 (let () (declare (not safe)) - (##type-flags _%klass99796%_)))) + (##type-flags _%klass100945%_)))) (declare (not safe)) - (##fxand __tmp101456 class-type-flag-sealed)))) + (##fxand __tmp102605 class-type-flag-sealed)))) (declare (not safe)) - (##fx= __tmp101455 class-type-flag-sealed)))) + (##fx= __tmp102604 class-type-flag-sealed)))) (define class-type-metaclass? - (lambda (_%klass99779%_) + (lambda (_%klass100928%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99779%_ 'class)) - (let ((_%klass99783%_ _%klass99779%_)) - (__class-type-metaclass? _%klass99783%_)) + (##structure-instance-of? _%klass100928%_ 'class)) + (let ((_%klass100932%_ _%klass100928%_)) + (__class-type-metaclass? _%klass100932%_)) (begin (raise-contract-violation-error '"contract violation" @@ -349,27 +349,27 @@ 'contract: 'class-type? 'value: - _%klass99779%_) + _%klass100928%_) '#!void)))) (define __class-type-metaclass? - (lambda (_%klass99767%_) - (let* ((_%klass99770%_ _%klass99767%_) - (__tmp101457 - (let ((__tmp101458 + (lambda (_%klass100916%_) + (let* ((_%klass100919%_ _%klass100916%_) + (__tmp102606 + (let ((__tmp102607 (let () (declare (not safe)) - (##type-flags _%klass99770%_)))) + (##type-flags _%klass100919%_)))) (declare (not safe)) - (##fxand __tmp101458 class-type-flag-metaclass)))) + (##fxand __tmp102607 class-type-flag-metaclass)))) (declare (not safe)) - (##fx= __tmp101457 class-type-flag-metaclass)))) + (##fx= __tmp102606 class-type-flag-metaclass)))) (define class-type-system? - (lambda (_%klass99753%_) + (lambda (_%klass100902%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99753%_ 'class)) - (let ((_%klass99757%_ _%klass99753%_)) - (__class-type-system? _%klass99757%_)) + (##structure-instance-of? _%klass100902%_ 'class)) + (let ((_%klass100906%_ _%klass100902%_)) + (__class-type-system? _%klass100906%_)) (begin (raise-contract-violation-error '"contract violation" @@ -378,574 +378,594 @@ 'contract: 'class-type? 'value: - _%klass99753%_) + _%klass100902%_) '#!void)))) (define __class-type-system? - (lambda (_%klass99741%_) - (let* ((_%klass99744%_ _%klass99741%_) - (__tmp101459 - (let ((__tmp101460 + (lambda (_%klass100890%_) + (let* ((_%klass100893%_ _%klass100890%_) + (__tmp102608 + (let ((__tmp102609 (let () (declare (not safe)) - (##type-flags _%klass99744%_)))) + (##type-flags _%klass100893%_)))) (declare (not safe)) - (##fxand __tmp101460 class-type-flag-system)))) + (##fxand __tmp102609 class-type-flag-system)))) (declare (not safe)) - (##fx= __tmp101459 class-type-flag-system)))) + (##fx= __tmp102608 class-type-flag-system)))) (define make-class-type-descriptor - (lambda (_%type-id99626%_ - _%type-name99627%_ - _%type-super99628%_ - _%precedence-list99629%_ - _%slot-vector99630%_ - _%properties99631%_ - _%constructor99632%_ - _%slot-table99633%_ - _%methods99634%_) - (letrec ((_%make-props!99637%_ - (lambda (_%key99710%_) - (letrec* ((_%ht99712%_ + (lambda (_%type-id100772%_ + _%type-name100773%_ + _%type-super100774%_ + _%precedence-list100775%_ + _%slot-vector100776%_ + _%properties100777%_ + _%constructor100778%_ + _%slot-table100779%_ + _%methods100780%_) + (letrec ((_%make-props!100783%_ + (lambda (_%key100859%_) + (letrec* ((_%ht100861%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_%put-slots!99713%_ - (lambda (_%ht99734%_ _%slots99735%_) + (_%put-slots!100862%_ + (lambda (_%ht100883%_ _%slots100884%_) (for-each - (lambda (_%g9973699738%_) + (lambda (_%g100885100887%_) (let () (declare (not safe)) (symbolic-table-set! - _%ht99734%_ - _%g9973699738%_ + _%ht100883%_ + _%g100885100887%_ '#t))) - _%slots99735%_))) - (_%put-alist!99714%_ - (lambda (_%ht99723%_ - _%key99724%_ - _%alist99725%_) - (let ((_%$e99727%_ + _%slots100884%_))) + (_%put-alist!100863%_ + (lambda (_%ht100872%_ + _%key100873%_ + _%alist100874%_) + (let ((_%$e100876%_ (let () (declare (not safe)) (agetq__0 - _%key99724%_ - _%alist99725%_)))) - (if _%$e99727%_ - ((lambda (_%g9972999731%_) - (_%put-slots!99713%_ - _%ht99723%_ - _%g9972999731%_)) - _%$e99727%_) + _%key100873%_ + _%alist100874%_)))) + (if _%$e100876%_ + ((lambda (_%g100878100880%_) + (_%put-slots!100862%_ + _%ht100872%_ + _%g100878100880%_)) + _%$e100876%_) '#!void))))) - (_%put-alist!99714%_ - _%ht99712%_ - _%key99710%_ - _%properties99631%_) + (_%put-alist!100863%_ + _%ht100861%_ + _%key100859%_ + _%properties100777%_) (for-each - (lambda (_%mixin99716%_) - (let ((_%alist99718%_ + (lambda (_%mixin100865%_) + (let ((_%alist100867%_ (##structure-ref - _%mixin99716%_ + _%mixin100865%_ '9 class::t '#f))) (if (or (let () (declare (not safe)) - (agetq__0 'transparent: _%alist99718%_)) + (agetq__0 'transparent: _%alist100867%_)) (eq? '#t (let () (declare (not safe)) (agetq__0 - _%key99710%_ - _%alist99718%_)))) - (_%put-slots!99713%_ - _%ht99712%_ - (class-type-slot-list _%mixin99716%_)) - (_%put-alist!99714%_ - _%ht99712%_ - _%key99710%_ - _%alist99718%_)))) - _%precedence-list99629%_) - _%ht99712%_)))) - (let* ((_%transparent?99639%_ + _%key100859%_ + _%alist100867%_)))) + (_%put-slots!100862%_ + _%ht100861%_ + (class-type-slot-list _%mixin100865%_)) + (_%put-alist!100863%_ + _%ht100861%_ + _%key100859%_ + _%alist100867%_)))) + _%precedence-list100775%_) + _%ht100861%_)))) + (let* ((_%transparent?100785%_ (let () (declare (not safe)) - (agetq__0 'transparent: _%properties99631%_))) - (_%all-slots-printable?99644%_ - (let ((_%$e99641%_ _%transparent?99639%_)) - (if _%$e99641%_ - _%$e99641%_ + (agetq__0 'transparent: _%properties100777%_))) + (_%all-slots-printable?100790%_ + (let ((_%$e100787%_ _%transparent?100785%_)) + (if _%$e100787%_ + _%$e100787%_ (eq? '#t (let () (declare (not safe)) - (agetq__0 'print: _%properties99631%_)))))) - (_%printable99646%_ - (if (not _%all-slots-printable?99644%_) - (_%make-props!99637%_ 'print:) + (agetq__0 'print: _%properties100777%_)))))) + (_%printable100792%_ + (if (not _%all-slots-printable?100790%_) + (_%make-props!100783%_ 'print:) '#f)) - (_%all-slots-equalable?99651%_ - (let ((_%$e99648%_ _%transparent?99639%_)) - (if _%$e99648%_ - _%$e99648%_ + (_%all-slots-equalable?100797%_ + (let ((_%$e100794%_ _%transparent?100785%_)) + (if _%$e100794%_ + _%$e100794%_ (eq? '#t (let () (declare (not safe)) - (agetq__0 'equal: _%properties99631%_)))))) - (_%equalable99653%_ - (if (not _%all-slots-equalable?99651%_) - (_%make-props!99637%_ 'equal:) + (agetq__0 'equal: _%properties100777%_)))))) + (_%equalable100799%_ + (if (not _%all-slots-equalable?100797%_) + (_%make-props!100783%_ 'equal:) '#f)) - (_%first-new-field99655%_ + (_%first-new-field100801%_ (if (let () (declare (not safe)) - (##structure-instance-of? _%type-super99628%_ 'class)) - (let ((__tmp101461 + (##structure-instance-of? _%type-super100774%_ 'class)) + (let ((__tmp102610 (let () (declare (not safe)) (##unchecked-structure-ref - _%type-super99628%_ + _%type-super100774%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101461)) + (##vector-length __tmp102610)) '1)) - (_%field-info-length99657%_ - (let ((__tmp101462 - (let ((__tmp101463 + (_%field-info-length100803%_ + (let ((__tmp102611 + (let ((__tmp102612 (let () (declare (not safe)) - (##vector-length _%slot-vector99630%_)))) + (##vector-length _%slot-vector100776%_)))) (declare (not safe)) - (##fx- __tmp101463 _%first-new-field99655%_)))) + (##fx- __tmp102612 _%first-new-field100801%_)))) (declare (not safe)) - (##fx* '3 __tmp101462))) - (_%field-info99659%_ + (##fx* '3 __tmp102611))) + (_%field-info100805%_ (let () (declare (not safe)) - (##make-vector _%field-info-length99657%_ '#f))) - (_%struct?99661%_ + (##make-vector _%field-info-length100803%_ '#f))) + (_%struct?100807%_ (let () (declare (not safe)) - (agetq__0 'struct: _%properties99631%_))) - (_%final?99663%_ + (agetq__0 'struct: _%properties100777%_))) + (_%final?100809%_ (let () (declare (not safe)) - (agetq__0 'final: _%properties99631%_))) - (_%metaclass99671%_ - (let ((_%metaclass9966499666%_ + (agetq__0 'final: _%properties100777%_))) + (_%metaclass100817%_ + (let ((_%metaclass100810100812%_ (let () (declare (not safe)) - (agetq__0 'metaclass: _%properties99631%_)))) - (if _%metaclass9966499666%_ - (let ((_%metaclass99669%_ _%metaclass9966499666%_)) + (agetq__0 'metaclass: _%properties100777%_)))) + (if _%metaclass100810100812%_ + (let ((_%metaclass100815%_ _%metaclass100810100812%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%metaclass99669%_ + _%metaclass100815%_ 'class)) '#!void (error '"metaclass is not a class type" 'class: - _%type-id99626%_ + _%type-id100772%_ 'metaclass: - _%metaclass99669%_)) - _%metaclass99669%_) + _%metaclass100815%_)) + _%metaclass100815%_) '#f))) - (_%system?99673%_ + (_%system?100819%_ (let () (declare (not safe)) - (agetq__0 'system: _%properties99631%_))) - (_%opaque?99678%_ - (let ((_%$e99675%_ (not _%all-slots-equalable?99651%_))) - (if _%$e99675%_ - _%$e99675%_ - (if _%type-super99628%_ - (__type-opaque? _%type-super99628%_) - '#f)))) - (_%type-flags99680%_ - (let ((__tmp101468 - (if _%final?99663%_ '0 type-flag-extensible)) - (__tmp101467 (if _%opaque?99678%_ type-flag-opaque '0)) - (__tmp101466 - (if _%struct?99661%_ class-type-flag-struct '0)) - (__tmp101465 - (if _%metaclass99671%_ class-type-flag-metaclass '0)) - (__tmp101464 - (if _%system?99673%_ class-type-flag-system '0))) + (agetq__0 'system: _%properties100777%_))) + (_%opaque?100827%_ + (if (or _%transparent?100785%_ + (let () + (declare (not safe)) + (agetq__0 'equal: _%properties100777%_))) + '#f + (let ((_%$e100824%_ (not _%type-super100774%_))) + (if _%$e100824%_ + _%$e100824%_ + (__type-opaque? _%type-super100774%_))))) + (_%type-flags100829%_ + (let ((__tmp102617 + (if _%final?100809%_ '0 type-flag-extensible)) + (__tmp102616 + (if _%opaque?100827%_ type-flag-opaque '0)) + (__tmp102615 + (if _%struct?100807%_ class-type-flag-struct '0)) + (__tmp102614 + (if _%metaclass100817%_ class-type-flag-metaclass '0)) + (__tmp102613 + (if _%system?100819%_ class-type-flag-system '0))) (declare (not safe)) (##fxior type-flag-id type-flag-concrete - __tmp101468 - __tmp101467 - __tmp101466 - __tmp101465 - __tmp101464))) - (_%precedence-list99688%_ - (let ((_%$e99682%_ (memq t::t _%precedence-list99629%_))) - (if _%$e99682%_ - ((lambda (_%tail99685%_) - (if (null? (cdr _%tail99685%_)) - _%precedence-list99629%_ + __tmp102617 + __tmp102616 + __tmp102615 + __tmp102614 + __tmp102613))) + (_%precedence-list100837%_ + (let ((_%$e100831%_ (memq t::t _%precedence-list100775%_))) + (if _%$e100831%_ + ((lambda (_%tail100834%_) + (if (null? (cdr _%tail100834%_)) + _%precedence-list100775%_ (error '"BUG: t::t is not last in the precedence list" 'precedence-list: - _%precedence-list99629%_))) - _%$e99682%_) - (let ((__tmp101469 (cons t::t '()))) + _%precedence-list100775%_))) + _%$e100831%_) + (let ((__tmp102618 (cons t::t '()))) (declare (not safe)) - (##append _%precedence-list99629%_ __tmp101469)))))) - (let _%loop99691%_ ((_%i99693%_ _%first-new-field99655%_) - (_%j99694%_ '0)) + (##append _%precedence-list100775%_ __tmp102618)))))) + (let _%loop100840%_ ((_%i100842%_ _%first-new-field100801%_) + (_%j100843%_ '0)) (if (let () (declare (not safe)) - (##fx< _%j99694%_ _%field-info-length99657%_)) - (let* ((_%slot99696%_ + (##fx< _%j100843%_ _%field-info-length100803%_)) + (let* ((_%slot100845%_ (let () (declare (not safe)) - (##vector-ref _%slot-vector99630%_ _%i99693%_))) - (_%flags99704%_ - (if _%transparent?99639%_ + (##vector-ref _%slot-vector100776%_ _%i100842%_))) + (_%flags100853%_ + (if _%transparent?100785%_ '0 - (let ((__tmp101471 - (if (or _%all-slots-printable?99644%_ + (let ((__tmp102620 + (if (or _%all-slots-printable?100790%_ (let () (declare (not safe)) (symbolic-table-ref - _%printable99646%_ - _%slot99696%_ + _%printable100792%_ + _%slot100845%_ '#f))) '0 '1)) - (__tmp101470 - (if (or _%all-slots-equalable?99651%_ + (__tmp102619 + (if (or _%all-slots-equalable?100797%_ (let () (declare (not safe)) (symbolic-table-ref - _%equalable99653%_ - _%slot99696%_ + _%equalable100799%_ + _%slot100845%_ '#f))) '0 '4))) (declare (not safe)) - (##fxior __tmp101471 __tmp101470))))) - (vector-set! _%field-info99659%_ _%j99694%_ _%slot99696%_) + (##fxior __tmp102620 __tmp102619))))) + (vector-set! + _%field-info100805%_ + _%j100843%_ + _%slot100845%_) (vector-set! - _%field-info99659%_ - (let () (declare (not safe)) (##fx+ _%j99694%_ '1)) - _%flags99704%_) - (_%loop99691%_ - (let () (declare (not safe)) (##fx+ _%i99693%_ '1)) - (let () (declare (not safe)) (##fx+ _%j99694%_ '3)))) + _%field-info100805%_ + (let () (declare (not safe)) (##fx+ _%j100843%_ '1)) + _%flags100853%_) + (_%loop100840%_ + (let () (declare (not safe)) (##fx+ _%i100842%_ '1)) + (let () (declare (not safe)) (##fx+ _%j100843%_ '3)))) '#!void)) - (if _%metaclass99671%_ - (let ((_%val99707%_ + (if _%metaclass100817%_ + (let ((_%val100856%_ (make-instance - _%metaclass99671%_ - _%type-id99626%_ - _%type-name99627%_ - _%type-flags99680%_ - _%type-super99628%_ - _%field-info99659%_ - _%precedence-list99688%_ - _%slot-vector99630%_ - _%slot-table99633%_ - _%properties99631%_ - _%constructor99632%_ - _%methods99634%_))) + _%metaclass100817%_ + _%type-id100772%_ + _%type-name100773%_ + _%type-flags100829%_ + _%type-super100774%_ + _%field-info100805%_ + _%precedence-list100837%_ + _%slot-vector100776%_ + _%slot-table100779%_ + _%properties100777%_ + _%constructor100778%_ + _%methods100780%_))) (if (let () (declare (not safe)) - (##structure-instance-of? _%val99707%_ 'class)) - _%val99707%_ - (error '"bad cast" class::t _%val99707%_))) + (##structure-instance-of? _%val100856%_ 'class)) + _%val100856%_ + (error '"bad cast" class::t _%val100856%_))) (let () (declare (not safe)) (##structure class::t - _%type-id99626%_ - _%type-name99627%_ - _%type-flags99680%_ - _%type-super99628%_ - _%field-info99659%_ - _%precedence-list99688%_ - _%slot-vector99630%_ - _%slot-table99633%_ - _%properties99631%_ - _%constructor99632%_ - _%methods99634%_))))))) + _%type-id100772%_ + _%type-name100773%_ + _%type-flags100829%_ + _%type-super100774%_ + _%field-info100805%_ + _%precedence-list100837%_ + _%slot-vector100776%_ + _%slot-table100779%_ + _%properties100777%_ + _%constructor100778%_ + _%methods100780%_))))))) (define class-type-id - (lambda (_%klass99624%_) - (##structure-ref _%klass99624%_ '1 class::t 'id))) + (lambda (_%klass100770%_) + (##structure-ref _%klass100770%_ '1 class::t 'id))) (define &class-type-id - (lambda (_%klass99622%_) + (lambda (_%klass100768%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99622%_ '1 class::t 'id)))) + (##unchecked-structure-ref _%klass100768%_ '1 class::t 'id)))) (define class-type-id-set! - (lambda (_%klass99619%_ _%val99620%_) - (##structure-set! _%klass99619%_ _%val99620%_ '1 class::t 'id))) + (lambda (_%klass100765%_ _%val100766%_) + (##structure-set! _%klass100765%_ _%val100766%_ '1 class::t 'id))) (define &class-type-id-set! - (lambda (_%klass99614%_ _%val99616%_) + (lambda (_%klass100760%_ _%val100762%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99614%_ - _%val99616%_ + _%klass100760%_ + _%val100762%_ '1 class::t 'id)))) (define class-type-name - (lambda (_%klass99612%_) - (##structure-ref _%klass99612%_ '2 class::t 'name))) + (lambda (_%klass100758%_) + (##structure-ref _%klass100758%_ '2 class::t 'name))) (define &class-type-name - (lambda (_%klass99610%_) + (lambda (_%klass100756%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99610%_ '2 class::t 'name)))) + (##unchecked-structure-ref _%klass100756%_ '2 class::t 'name)))) (define class-type-name-set! - (lambda (_%klass99607%_ _%val99608%_) - (##structure-set! _%klass99607%_ _%val99608%_ '2 class::t 'name))) + (lambda (_%klass100753%_ _%val100754%_) + (##structure-set! _%klass100753%_ _%val100754%_ '2 class::t 'name))) (define &class-type-name-set! - (lambda (_%klass99602%_ _%val99604%_) + (lambda (_%klass100748%_ _%val100750%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99602%_ - _%val99604%_ + _%klass100748%_ + _%val100750%_ '2 class::t 'name)))) (define class-type-flags - (lambda (_%klass99600%_) - (##structure-ref _%klass99600%_ '3 class::t 'flags))) + (lambda (_%klass100746%_) + (##structure-ref _%klass100746%_ '3 class::t 'flags))) (define &class-type-flags - (lambda (_%klass99598%_) + (lambda (_%klass100744%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99598%_ '3 class::t 'flags)))) + (##unchecked-structure-ref _%klass100744%_ '3 class::t 'flags)))) (define class-type-flags-set! - (lambda (_%klass99595%_ _%val99596%_) - (##structure-set! _%klass99595%_ _%val99596%_ '3 class::t 'flags))) + (lambda (_%klass100741%_ _%val100742%_) + (##structure-set! _%klass100741%_ _%val100742%_ '3 class::t 'flags))) (define &class-type-flags-set! - (lambda (_%klass99590%_ _%val99592%_) + (lambda (_%klass100736%_ _%val100738%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99590%_ - _%val99592%_ + _%klass100736%_ + _%val100738%_ '3 class::t 'flags)))) (define class-type-super - (lambda (_%klass99588%_) - (##structure-ref _%klass99588%_ '4 class::t 'super))) + (lambda (_%klass100734%_) + (##structure-ref _%klass100734%_ '4 class::t 'super))) (define &class-type-super - (lambda (_%klass99586%_) + (lambda (_%klass100732%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99586%_ '4 class::t 'super)))) + (##unchecked-structure-ref _%klass100732%_ '4 class::t 'super)))) (define class-type-super-set! - (lambda (_%klass99583%_ _%val99584%_) - (##structure-set! _%klass99583%_ _%val99584%_ '4 class::t 'super))) + (lambda (_%klass100729%_ _%val100730%_) + (##structure-set! _%klass100729%_ _%val100730%_ '4 class::t 'super))) (define &class-type-super-set! - (lambda (_%klass99578%_ _%val99580%_) + (lambda (_%klass100724%_ _%val100726%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99578%_ - _%val99580%_ + _%klass100724%_ + _%val100726%_ '4 class::t 'super)))) (define class-type-fields - (lambda (_%klass99576%_) - (##structure-ref _%klass99576%_ '5 class::t 'fields))) + (lambda (_%klass100722%_) + (##structure-ref _%klass100722%_ '5 class::t 'fields))) (define &class-type-fields - (lambda (_%klass99574%_) + (lambda (_%klass100720%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99574%_ '5 class::t 'fields)))) + (##unchecked-structure-ref _%klass100720%_ '5 class::t 'fields)))) (define class-type-fields-set! - (lambda (_%klass99571%_ _%val99572%_) - (##structure-set! _%klass99571%_ _%val99572%_ '5 class::t 'fields))) + (lambda (_%klass100717%_ _%val100718%_) + (##structure-set! _%klass100717%_ _%val100718%_ '5 class::t 'fields))) (define &class-type-fields-set! - (lambda (_%klass99566%_ _%val99568%_) + (lambda (_%klass100712%_ _%val100714%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99566%_ - _%val99568%_ + _%klass100712%_ + _%val100714%_ '5 class::t 'fields)))) (define class-type-precedence-list - (lambda (_%klass99564%_) - (##structure-ref _%klass99564%_ '6 class::t 'precedence-list))) + (lambda (_%klass100710%_) + (##structure-ref _%klass100710%_ '6 class::t 'precedence-list))) (define &class-type-precedence-list - (lambda (_%klass99562%_) + (lambda (_%klass100708%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99562%_ + _%klass100708%_ '6 class::t 'precedence-list)))) (define class-type-precedence-list-set! - (lambda (_%klass99559%_ _%val99560%_) + (lambda (_%klass100705%_ _%val100706%_) (##structure-set! - _%klass99559%_ - _%val99560%_ + _%klass100705%_ + _%val100706%_ '6 class::t 'precedence-list))) (define &class-type-precedence-list-set! - (lambda (_%klass99554%_ _%val99556%_) + (lambda (_%klass100700%_ _%val100702%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99554%_ - _%val99556%_ + _%klass100700%_ + _%val100702%_ '6 class::t 'precedence-list)))) (define class-type-slot-vector - (lambda (_%klass99552%_) - (##structure-ref _%klass99552%_ '7 class::t 'slot-vector))) + (lambda (_%klass100698%_) + (##structure-ref _%klass100698%_ '7 class::t 'slot-vector))) (define &class-type-slot-vector - (lambda (_%klass99550%_) + (lambda (_%klass100696%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99550%_ + _%klass100696%_ '7 class::t 'slot-vector)))) (define class-type-slot-vector-set! - (lambda (_%klass99547%_ _%val99548%_) + (lambda (_%klass100693%_ _%val100694%_) (##structure-set! - _%klass99547%_ - _%val99548%_ + _%klass100693%_ + _%val100694%_ '7 class::t 'slot-vector))) (define &class-type-slot-vector-set! - (lambda (_%klass99542%_ _%val99544%_) + (lambda (_%klass100688%_ _%val100690%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99542%_ - _%val99544%_ + _%klass100688%_ + _%val100690%_ '7 class::t 'slot-vector)))) (define class-type-slot-table - (lambda (_%klass99540%_) - (##structure-ref _%klass99540%_ '8 class::t 'slot-table))) + (lambda (_%klass100686%_) + (##structure-ref _%klass100686%_ '8 class::t 'slot-table))) (define &class-type-slot-table - (lambda (_%klass99538%_) + (lambda (_%klass100684%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99538%_ '8 class::t 'slot-table)))) + (##unchecked-structure-ref + _%klass100684%_ + '8 + class::t + 'slot-table)))) (define class-type-slot-table-set! - (lambda (_%klass99535%_ _%val99536%_) + (lambda (_%klass100681%_ _%val100682%_) (##structure-set! - _%klass99535%_ - _%val99536%_ + _%klass100681%_ + _%val100682%_ '8 class::t 'slot-table))) (define &class-type-slot-table-set! - (lambda (_%klass99530%_ _%val99532%_) + (lambda (_%klass100676%_ _%val100678%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99530%_ - _%val99532%_ + _%klass100676%_ + _%val100678%_ '8 class::t 'slot-table)))) (define class-type-properties - (lambda (_%klass99528%_) - (##structure-ref _%klass99528%_ '9 class::t 'properties))) + (lambda (_%klass100674%_) + (##structure-ref _%klass100674%_ '9 class::t 'properties))) (define &class-type-properties - (lambda (_%klass99526%_) + (lambda (_%klass100672%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99526%_ '9 class::t 'properties)))) + (##unchecked-structure-ref + _%klass100672%_ + '9 + class::t + 'properties)))) (define class-type-properties-set! - (lambda (_%klass99523%_ _%val99524%_) + (lambda (_%klass100669%_ _%val100670%_) (##structure-set! - _%klass99523%_ - _%val99524%_ + _%klass100669%_ + _%val100670%_ '9 class::t 'properties))) (define &class-type-properties-set! - (lambda (_%klass99518%_ _%val99520%_) + (lambda (_%klass100664%_ _%val100666%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99518%_ - _%val99520%_ + _%klass100664%_ + _%val100666%_ '9 class::t 'properties)))) (define class-type-constructor - (lambda (_%klass99516%_) - (##structure-ref _%klass99516%_ '10 class::t 'constructor))) + (lambda (_%klass100662%_) + (##structure-ref _%klass100662%_ '10 class::t 'constructor))) (define &class-type-constructor - (lambda (_%klass99514%_) + (lambda (_%klass100660%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99514%_ + _%klass100660%_ '10 class::t 'constructor)))) (define class-type-constructor-set! - (lambda (_%klass99511%_ _%val99512%_) + (lambda (_%klass100657%_ _%val100658%_) (##structure-set! - _%klass99511%_ - _%val99512%_ + _%klass100657%_ + _%val100658%_ '10 class::t 'constructor))) (define &class-type-constructor-set! - (lambda (_%klass99506%_ _%val99508%_) + (lambda (_%klass100652%_ _%val100654%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99506%_ - _%val99508%_ + _%klass100652%_ + _%val100654%_ '10 class::t 'constructor)))) (define class-type-methods - (lambda (_%klass99504%_) - (##structure-ref _%klass99504%_ '11 class::t 'methods))) + (lambda (_%klass100650%_) + (##structure-ref _%klass100650%_ '11 class::t 'methods))) (define &class-type-methods - (lambda (_%klass99502%_) + (lambda (_%klass100648%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99502%_ '11 class::t 'methods)))) + (##unchecked-structure-ref _%klass100648%_ '11 class::t 'methods)))) (define class-type-methods-set! - (lambda (_%klass99499%_ _%val99500%_) - (##structure-set! _%klass99499%_ _%val99500%_ '11 class::t 'methods))) + (lambda (_%klass100645%_ _%val100646%_) + (##structure-set! + _%klass100645%_ + _%val100646%_ + '11 + class::t + 'methods))) (define &class-type-methods-set! - (lambda (_%klass99494%_ _%val99496%_) + (lambda (_%klass100640%_ _%val100642%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99494%_ - _%val99496%_ + _%klass100640%_ + _%val100642%_ '11 class::t 'methods)))) (define class-type-slot-list - (lambda (_%klass99480%_) + (lambda (_%klass100626%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99480%_ 'class)) - (let ((_%klass99484%_ _%klass99480%_)) - (__class-type-slot-list _%klass99484%_)) + (##structure-instance-of? _%klass100626%_ 'class)) + (let ((_%klass100630%_ _%klass100626%_)) + (__class-type-slot-list _%klass100630%_)) (begin (raise-contract-violation-error '"contract violation" @@ -954,22 +974,22 @@ 'contract: 'class-type? 'value: - _%klass99480%_) + _%klass100626%_) '#!void)))) (define __class-type-slot-list - (lambda (_%klass99468%_) - (let ((_%klass99471%_ _%klass99468%_)) + (lambda (_%klass100614%_) + (let ((_%klass100617%_ _%klass100614%_)) (cdr (vector->list (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99471%_ '7 '#f '#f))))))) + (##unchecked-structure-ref _%klass100617%_ '7 '#f '#f))))))) (define class-type-field-count - (lambda (_%klass99454%_) + (lambda (_%klass100600%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99454%_ 'class)) - (let ((_%klass99458%_ _%klass99454%_)) - (__class-type-field-count _%klass99458%_)) + (##structure-instance-of? _%klass100600%_ 'class)) + (let ((_%klass100604%_ _%klass100600%_)) + (__class-type-field-count _%klass100604%_)) (begin (raise-contract-violation-error '"contract violation" @@ -978,31 +998,31 @@ 'contract: 'class-type? 'value: - _%klass99454%_) + _%klass100600%_) '#!void)))) (define __class-type-field-count - (lambda (_%klass99442%_) - (let* ((_%klass99445%_ _%klass99442%_) - (__tmp101472 - (let ((__tmp101473 + (lambda (_%klass100588%_) + (let* ((_%klass100591%_ _%klass100588%_) + (__tmp102621 + (let ((__tmp102622 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99445%_ + _%klass100591%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101473)))) + (##vector-length __tmp102622)))) (declare (not safe)) - (##fx- __tmp101472 '1)))) + (##fx- __tmp102621 '1)))) (define class-type-seal! - (lambda (_%klass99428%_) + (lambda (_%klass100574%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99428%_ 'class)) - (let ((_%klass99432%_ _%klass99428%_)) - (__class-type-seal! _%klass99432%_)) + (##structure-instance-of? _%klass100574%_ 'class)) + (let ((_%klass100578%_ _%klass100574%_)) + (__class-type-seal! _%klass100578%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1011,42 +1031,42 @@ 'contract: 'class-type? 'value: - _%klass99428%_) + _%klass100574%_) '#!void)))) (define __class-type-seal! - (lambda (_%klass99416%_) - (let ((_%klass99419%_ _%klass99416%_)) - (let ((__tmp101474 - (let ((__tmp101475 + (lambda (_%klass100562%_) + (let ((_%klass100565%_ _%klass100562%_)) + (let ((__tmp102623 + (let ((__tmp102624 (let () (declare (not safe)) - (##type-flags _%klass99419%_)))) + (##type-flags _%klass100565%_)))) (declare (not safe)) - (##fxior class-type-flag-sealed __tmp101475)))) + (##fxior class-type-flag-sealed __tmp102624)))) (declare (not safe)) (##unchecked-structure-set! - _%klass99419%_ - __tmp101474 + _%klass100565%_ + __tmp102623 '3 class::t class-type-seal!)) '#!void))) (define substruct? - (lambda (_%maybe-sub-struct99391%_ _%maybe-super-struct99392%_) + (lambda (_%maybe-sub-struct100537%_ _%maybe-super-struct100538%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%maybe-sub-struct99391%_ 'class)) - (let ((_%maybe-sub-struct99396%_ _%maybe-sub-struct99391%_)) + (##structure-instance-of? _%maybe-sub-struct100537%_ 'class)) + (let ((_%maybe-sub-struct100542%_ _%maybe-sub-struct100537%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%maybe-super-struct99392%_ + _%maybe-super-struct100538%_ 'class)) - (let ((_%maybe-super-struct99406%_ - _%maybe-super-struct99392%_)) + (let ((_%maybe-super-struct100552%_ + _%maybe-super-struct100538%_)) (__substruct? - _%maybe-sub-struct99396%_ - _%maybe-super-struct99406%_)) + _%maybe-sub-struct100542%_ + _%maybe-super-struct100552%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1055,7 +1075,7 @@ 'contract: 'class-type? 'value: - _%maybe-super-struct99392%_) + _%maybe-super-struct100538%_) '#!void))) (begin (raise-contract-violation-error @@ -1065,288 +1085,302 @@ 'contract: 'class-type? 'value: - _%maybe-sub-struct99391%_) + _%maybe-sub-struct100537%_) '#!void)))) (define __substruct? - (lambda (_%maybe-sub-struct99360%_ _%maybe-super-struct99361%_) - (let* ((_%maybe-sub-struct99364%_ _%maybe-sub-struct99360%_) - (_%maybe-super-struct99372%_ _%maybe-super-struct99361%_) - (_%maybe-super-struct-id99381%_ + (lambda (_%maybe-sub-struct100506%_ _%maybe-super-struct100507%_) + (let* ((_%maybe-sub-struct100510%_ _%maybe-sub-struct100506%_) + (_%maybe-super-struct100518%_ _%maybe-super-struct100507%_) + (_%maybe-super-struct-id100527%_ (let () (declare (not safe)) - (##type-id _%maybe-super-struct99372%_)))) - (let _%lp99383%_ ((_%super-struct99385%_ _%maybe-sub-struct99364%_)) - (if (not _%super-struct99385%_) + (##type-id _%maybe-super-struct100518%_)))) + (let _%lp100529%_ ((_%super-struct100531%_ + _%maybe-sub-struct100510%_)) + (if (not _%super-struct100531%_) '#f - (if (eq? _%maybe-super-struct-id99381%_ + (if (eq? _%maybe-super-struct-id100527%_ (let () (declare (not safe)) - (##type-id _%super-struct99385%_))) + (##type-id _%super-struct100531%_))) '#t - (_%lp99383%_ + (_%lp100529%_ (let () (declare (not safe)) - (##type-super _%super-struct99385%_))))))))) + (##type-super _%super-struct100531%_))))))))) (define base-struct/1 - (lambda (_%klass99355%_) + (lambda (_%klass100501%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99355%_ 'class)) - (if (__class-type-struct? _%klass99355%_) - _%klass99355%_ - (let () (declare (not safe)) (##type-super _%klass99355%_))) - (if (not _%klass99355%_) + (##structure-instance-of? _%klass100501%_ 'class)) + (if (__class-type-struct? _%klass100501%_) + _%klass100501%_ + (let () (declare (not safe)) (##type-super _%klass100501%_))) + (if (not _%klass100501%_) '#f - (error '"not a class or false" _%klass99355%_))))) + (error '"not a class or false" _%klass100501%_))))) (define base-struct/2 - (lambda (_%klass199340%_ _%klass299341%_) - (let ((_%s199343%_ (base-struct/1 _%klass199340%_)) - (_%s299344%_ (base-struct/1 _%klass299341%_))) - (if (or (not _%s199343%_) - (and _%s299344%_ (substruct? _%s199343%_ _%s299344%_))) - _%s299344%_ - (if (or (not _%s299344%_) - (and _%s199343%_ (substruct? _%s299344%_ _%s199343%_))) - _%s199343%_ + (lambda (_%klass1100486%_ _%klass2100487%_) + (let ((_%s1100489%_ (base-struct/1 _%klass1100486%_)) + (_%s2100490%_ (base-struct/1 _%klass2100487%_))) + (if (or (not _%s1100489%_) + (and _%s2100490%_ (substruct? _%s1100489%_ _%s2100490%_))) + _%s2100490%_ + (if (or (not _%s2100490%_) + (and _%s1100489%_ + (substruct? _%s2100490%_ _%s1100489%_))) + _%s1100489%_ (error '"bad mixin: incompatible struct bases" - _%klass199340%_ - _%klass299341%_ - _%s199343%_ - _%s299344%_)))))) + _%klass1100486%_ + _%klass2100487%_ + _%s1100489%_ + _%s2100490%_)))))) (define base-struct/list - (lambda (_%all-supers99224%_) - (let* ((_%all-supers9922599250%_ _%all-supers99224%_) - (_%E9923099254%_ + (lambda (_%all-supers100370%_) + (let* ((_%all-supers100371100396%_ _%all-supers100370%_) + (_%E100376100400%_ (lambda () (error '"No clause matching" - _%all-supers9922599250%_ + _%all-supers100371100396%_ '([]) '([x]) '([x y]) '([x y ...])) '#!void))) - (let ((_%K9924899337%_ (lambda () '#f)) - (_%K9924599323%_ - (lambda (_%x99321%_) (base-struct/1 _%x99321%_))) - (_%K9924099300%_ - (lambda (_%y99297%_ _%x99298%_) - (base-struct/2 _%x99298%_ _%y99297%_))) - (_%K9923199261%_ - (lambda (_%y99258%_ _%x99259%_) + (let ((_%K100394100483%_ (lambda () '#f)) + (_%K100391100469%_ + (lambda (_%x100467%_) (base-struct/1 _%x100467%_))) + (_%K100386100446%_ + (lambda (_%y100443%_ _%x100444%_) + (base-struct/2 _%x100444%_ _%y100443%_))) + (_%K100377100407%_ + (lambda (_%y100404%_ _%x100405%_) (let () (declare (not safe)) - (__foldr1 base-struct/2 _%x99259%_ _%y99258%_))))) - (let* ((_%__match101434101435%_ - (lambda (_%hd9923299264%_ _%tl9923399266%_) - (let ((_%x99269%_ _%hd9923299264%_)) - (letrec ((_%splice-rest9923599271%_ - (lambda (_%rest9923999278%_ _%y99280%_) - (if (null? _%rest9923999278%_) - (_%K9923199261%_ _%y99280%_ _%x99269%_) - (_%E9923099254%_)))) - (_%splice-try9923799273%_ - (lambda (_%hd9923899282%_ - _%rest9923999284%_ - _%y9923499285%_) - (let ((_%y99288%_ _%hd9923899282%_)) - (_%splice-loop9923699275%_ + (__foldr1 base-struct/2 _%x100405%_ _%y100404%_))))) + (let* ((_%__match102583102584%_ + (lambda (_%hd100378100410%_ _%tl100379100412%_) + (let ((_%x100415%_ _%hd100378100410%_)) + (letrec ((_%splice-rest100381100417%_ + (lambda (_%rest100385100424%_ _%y100426%_) + (if (null? _%rest100385100424%_) + (_%K100377100407%_ + _%y100426%_ + _%x100415%_) + (_%E100376100400%_)))) + (_%splice-try100383100419%_ + (lambda (_%hd100384100428%_ + _%rest100385100430%_ + _%y100380100431%_) + (let ((_%y100434%_ _%hd100384100428%_)) + (_%splice-loop100382100421%_ (let () (declare (not safe)) - (##cdr _%rest9923999284%_)) - (cons _%y99288%_ _%y9923499285%_))))) - (_%splice-loop9923699275%_ - (lambda (_%rest9923999290%_ _%y9923499291%_) - (if (pair? _%rest9923999290%_) - (_%splice-try9923799273%_ + (##cdr _%rest100385100430%_)) + (cons _%y100434%_ _%y100380100431%_))))) + (_%splice-loop100382100421%_ + (lambda (_%rest100385100436%_ + _%y100380100437%_) + (if (pair? _%rest100385100436%_) + (_%splice-try100383100419%_ (let () (declare (not safe)) - (##car _%rest9923999290%_)) - _%rest9923999290%_ - _%y9923499291%_) - (_%splice-rest9923599271%_ - _%rest9923999290%_ - (reverse _%y9923499291%_)))))) - (_%splice-loop9923699275%_ _%tl9923399266%_ '()))))) - (_%try-match9922799333%_ + (##car _%rest100385100436%_)) + _%rest100385100436%_ + _%y100380100437%_) + (_%splice-rest100381100417%_ + _%rest100385100436%_ + (reverse _%y100380100437%_)))))) + (_%splice-loop100382100421%_ + _%tl100379100412%_ + '()))))) + (_%try-match100373100479%_ (lambda () - (if (pair? _%all-supers9922599250%_) - (let ((_%tl9924799328%_ + (if (pair? _%all-supers100371100396%_) + (let ((_%tl100393100474%_ (let () (declare (not safe)) - (##cdr _%all-supers9922599250%_))) - (_%hd9924699326%_ + (##cdr _%all-supers100371100396%_))) + (_%hd100392100472%_ (let () (declare (not safe)) - (##car _%all-supers9922599250%_)))) - (if (null? _%tl9924799328%_) - (let ((_%x99331%_ _%hd9924699326%_)) - (base-struct/1 _%x99331%_)) - (if (pair? _%tl9924799328%_) - (let ((_%tl9924499312%_ + (##car _%all-supers100371100396%_)))) + (if (null? _%tl100393100474%_) + (let ((_%x100477%_ _%hd100392100472%_)) + (base-struct/1 _%x100477%_)) + (if (pair? _%tl100393100474%_) + (let ((_%tl100390100458%_ (let () (declare (not safe)) - (##cdr _%tl9924799328%_))) - (_%hd9924399310%_ + (##cdr _%tl100393100474%_))) + (_%hd100389100456%_ (let () (declare (not safe)) - (##car _%tl9924799328%_)))) - (if (null? _%tl9924499312%_) - (let ((_%x99308%_ _%hd9924699326%_) - (_%y99315%_ _%hd9924399310%_)) - (_%K9924099300%_ - _%y99315%_ - _%x99308%_)) - (_%__match101434101435%_ - _%hd9924699326%_ - _%tl9924799328%_))) - (_%__match101434101435%_ - _%hd9924699326%_ - _%tl9924799328%_)))) - (_%E9923099254%_))))) - (if (null? _%all-supers9922599250%_) - (_%K9924899337%_) - (_%try-match9922799333%_))))))) + (##car _%tl100393100474%_)))) + (if (null? _%tl100390100458%_) + (let ((_%x100454%_ + _%hd100392100472%_) + (_%y100461%_ + _%hd100389100456%_)) + (_%K100386100446%_ + _%y100461%_ + _%x100454%_)) + (_%__match102583102584%_ + _%hd100392100472%_ + _%tl100393100474%_))) + (_%__match102583102584%_ + _%hd100392100472%_ + _%tl100393100474%_)))) + (_%E100376100400%_))))) + (if (null? _%all-supers100371100396%_) + (_%K100394100483%_) + (_%try-match100373100479%_))))))) (define base-struct - (lambda _%all-supers99222%_ (base-struct/list _%all-supers99222%_))) + (lambda _%all-supers100368%_ (base-struct/list _%all-supers100368%_))) (define find-super-constructor - (lambda (_%super99173%_) - (let _%lp99175%_ ((_%rest99177%_ _%super99173%_) - (_%constructor99178%_ '#f)) - (let* ((_%rest9917999187%_ _%rest99177%_) - (_%else9918199195%_ (lambda () _%constructor99178%_)) - (_%K9918399210%_ - (lambda (_%rest99198%_ _%hd99199%_) - (let ((_%$e99201%_ + (lambda (_%super100319%_) + (let _%lp100321%_ ((_%rest100323%_ _%super100319%_) + (_%constructor100324%_ '#f)) + (let* ((_%rest100325100333%_ _%rest100323%_) + (_%else100327100341%_ (lambda () _%constructor100324%_)) + (_%K100329100356%_ + (lambda (_%rest100344%_ _%hd100345%_) + (let ((_%$e100347%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd99199%_ + _%hd100345%_ '10 '#f '#f)))) - (if _%$e99201%_ - ((lambda (_%xconstructor99204%_) - (if (or (not _%constructor99178%_) - (eq? _%constructor99178%_ - _%xconstructor99204%_)) - (_%lp99175%_ - _%rest99198%_ - _%xconstructor99204%_) + (if _%$e100347%_ + ((lambda (_%xconstructor100350%_) + (if (or (not _%constructor100324%_) + (eq? _%constructor100324%_ + _%xconstructor100350%_)) + (_%lp100321%_ + _%rest100344%_ + _%xconstructor100350%_) (error '"conflicting implicit constructors" - _%constructor99178%_ - _%xconstructor99204%_))) - _%$e99201%_) - (_%lp99175%_ _%rest99198%_ _%constructor99178%_)))))) - (if (pair? _%rest9917999187%_) - (let ((_%hd9918499213%_ + _%constructor100324%_ + _%xconstructor100350%_))) + _%$e100347%_) + (_%lp100321%_ + _%rest100344%_ + _%constructor100324%_)))))) + (if (pair? _%rest100325100333%_) + (let ((_%hd100330100359%_ (let () (declare (not safe)) - (##car _%rest9917999187%_))) - (_%tl9918599215%_ + (##car _%rest100325100333%_))) + (_%tl100331100361%_ (let () (declare (not safe)) - (##cdr _%rest9917999187%_)))) - (let* ((_%hd99218%_ _%hd9918499213%_) - (_%rest99220%_ _%tl9918599215%_)) - (_%K9918399210%_ _%rest99220%_ _%hd99218%_))) - (_%else9918199195%_)))))) + (##cdr _%rest100325100333%_)))) + (let* ((_%hd100364%_ _%hd100330100359%_) + (_%rest100366%_ _%tl100331100361%_)) + (_%K100329100356%_ _%rest100366%_ _%hd100364%_))) + (_%else100327100341%_)))))) (define compute-class-slots - (lambda (_%class-precedence-list99149%_ _%direct-slots99150%_) - (let* ((_%next-slot99152%_ '1) - (_%slot-table99154%_ + (lambda (_%class-precedence-list100295%_ _%direct-slots100296%_) + (let* ((_%next-slot100298%_ '1) + (_%slot-table100300%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_%r-slots99156%_ '(__class)) - (_%process-slot99160%_ - (lambda (_%slot99158%_) - (if (symbol? _%slot99158%_) + (_%r-slots100302%_ '(__class)) + (_%process-slot100306%_ + (lambda (_%slot100304%_) + (if (symbol? _%slot100304%_) '#!void - (error '"invalid slot name" _%slot99158%_)) + (error '"invalid slot name" _%slot100304%_)) (if (eq? (let () (declare (not safe)) (symbolic-table-ref - _%slot-table99154%_ - _%slot99158%_ + _%slot-table100300%_ + _%slot100304%_ absent-value)) absent-value) (begin (let () (declare (not safe)) (symbolic-table-set! - _%slot-table99154%_ - _%slot99158%_ - _%next-slot99152%_)) - (let ((__tmp101476 + _%slot-table100300%_ + _%slot100304%_ + _%next-slot100298%_)) + (let ((__tmp102625 (let () (declare (not safe)) - (symbol->keyword _%slot99158%_)))) + (symbol->keyword _%slot100304%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table99154%_ - __tmp101476 - _%next-slot99152%_)) - (set! _%r-slots99156%_ - (cons _%slot99158%_ _%r-slots99156%_)) - (set! _%next-slot99152%_ + _%slot-table100300%_ + __tmp102625 + _%next-slot100298%_)) + (set! _%r-slots100302%_ + (cons _%slot100304%_ _%r-slots100302%_)) + (set! _%next-slot100298%_ (let () (declare (not safe)) - (##fx+ _%next-slot99152%_ '1)))) + (##fx+ _%next-slot100298%_ '1)))) '#!void))) - (_%process-slots99166%_ - (lambda (_%g9916199163%_) - (for-each _%process-slot99160%_ _%g9916199163%_)))) - (let ((__tmp101478 - (lambda (_%mixin99169%_) - (_%process-slots99166%_ - (let ((__tmp101479 + (_%process-slots100312%_ + (lambda (_%g100307100309%_) + (for-each _%process-slot100306%_ _%g100307100309%_)))) + (let ((__tmp102627 + (lambda (_%mixin100315%_) + (_%process-slots100312%_ + (let ((__tmp102628 (let () (declare (not safe)) (##unchecked-structure-ref - _%mixin99169%_ + _%mixin100315%_ '9 '#f '#f)))) (declare (not safe)) - (agetq__% 'direct-slots: __tmp101479 '()))))) - (__tmp101477 (reverse _%class-precedence-list99149%_))) + (agetq__% 'direct-slots: __tmp102628 '()))))) + (__tmp102626 (reverse _%class-precedence-list100295%_))) (declare (not safe)) - (##for-each __tmp101478 __tmp101477)) - (_%process-slots99166%_ _%direct-slots99150%_) - (let ((_%slot-vector99171%_ + (##for-each __tmp102627 __tmp102626)) + (_%process-slots100312%_ _%direct-slots100296%_) + (let ((_%slot-vector100317%_ (list->vector - (let () (declare (not safe)) (##reverse _%r-slots99156%_))))) - (values _%slot-vector99171%_ _%slot-table99154%_))))) + (let () + (declare (not safe)) + (##reverse _%r-slots100302%_))))) + (values _%slot-vector100317%_ _%slot-table100300%_))))) (define make-class-type - (lambda (_%id99074%_ - _%name99075%_ - _%direct-supers99076%_ - _%direct-slots99077%_ - _%properties99078%_ - _%constructor99079%_) - (if (symbol? _%id99074%_) - (let ((_%id99083%_ _%id99074%_)) - (if (symbol? _%name99075%_) - (let ((_%name99093%_ _%name99075%_)) - (if (list? _%direct-supers99076%_) - (let ((_%direct-supers99103%_ _%direct-supers99076%_)) - (if (list? _%direct-slots99077%_) - (let ((_%direct-slots99113%_ - _%direct-slots99077%_)) - (if (list? _%properties99078%_) - (let ((_%properties99123%_ - _%properties99078%_)) - (if ((lambda (_%$obj99132%_) - (or (not _%$obj99132%_) - (symbol? _%$obj99132%_))) - _%constructor99079%_) - (let ((_%constructor99139%_ - _%constructor99079%_)) + (lambda (_%id100220%_ + _%name100221%_ + _%direct-supers100222%_ + _%direct-slots100223%_ + _%properties100224%_ + _%constructor100225%_) + (if (symbol? _%id100220%_) + (let ((_%id100229%_ _%id100220%_)) + (if (symbol? _%name100221%_) + (let ((_%name100239%_ _%name100221%_)) + (if (list? _%direct-supers100222%_) + (let ((_%direct-supers100249%_ + _%direct-supers100222%_)) + (if (list? _%direct-slots100223%_) + (let ((_%direct-slots100259%_ + _%direct-slots100223%_)) + (if (list? _%properties100224%_) + (let ((_%properties100269%_ + _%properties100224%_)) + (if ((lambda (_%$obj100278%_) + (or (not _%$obj100278%_) + (symbol? _%$obj100278%_))) + _%constructor100225%_) + (let ((_%constructor100285%_ + _%constructor100225%_)) (__make-class-type - _%id99083%_ - _%name99093%_ - _%direct-supers99103%_ - _%direct-slots99113%_ - _%properties99123%_ - _%constructor99139%_)) + _%id100229%_ + _%name100239%_ + _%direct-supers100249%_ + _%direct-slots100259%_ + _%properties100269%_ + _%constructor100285%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1355,7 +1389,7 @@ 'contract: '(? (or not symbol?)) 'value: - _%constructor99079%_) + _%constructor100225%_) '#!void))) (begin (raise-contract-violation-error @@ -1365,7 +1399,7 @@ 'contract: 'list? 'value: - _%properties99078%_) + _%properties100224%_) '#!void))) (begin (raise-contract-violation-error @@ -1375,7 +1409,7 @@ 'contract: 'list? 'value: - _%direct-slots99077%_) + _%direct-slots100223%_) '#!void))) (begin (raise-contract-violation-error @@ -1385,7 +1419,7 @@ 'contract: 'list? 'value: - _%direct-supers99076%_) + _%direct-supers100222%_) '#!void))) (begin (raise-contract-violation-error @@ -1395,7 +1429,7 @@ 'contract: 'symbol? 'value: - _%name99075%_) + _%name100221%_) '#!void))) (begin (raise-contract-violation-error @@ -1405,165 +1439,170 @@ 'contract: 'symbol? 'value: - _%id99074%_) + _%id100220%_) '#!void)))) (define __make-class-type - (lambda (_%id98943%_ - _%name98944%_ - _%direct-supers98945%_ - _%direct-slots98946%_ - _%properties98947%_ - _%constructor98948%_) - (let* ((_%id98951%_ _%id98943%_) - (_%name98959%_ _%name98944%_) - (_%direct-supers98967%_ _%direct-supers98945%_) - (_%direct-slots98975%_ _%direct-slots98946%_) - (_%properties98983%_ _%properties98947%_) - (_%constructor98991%_ _%constructor98948%_)) - (let ((_%$e99003%_ - (let ((__tmp101480 - (lambda (_%$obj99000%_) + (lambda (_%id100089%_ + _%name100090%_ + _%direct-supers100091%_ + _%direct-slots100092%_ + _%properties100093%_ + _%constructor100094%_) + (let* ((_%id100097%_ _%id100089%_) + (_%name100105%_ _%name100090%_) + (_%direct-supers100113%_ _%direct-supers100091%_) + (_%direct-slots100121%_ _%direct-slots100092%_) + (_%properties100129%_ _%properties100093%_) + (_%constructor100137%_ _%constructor100094%_)) + (let ((_%$e100149%_ + (let ((__tmp102629 + (lambda (_%$obj100146%_) (not (let () (declare (not safe)) (##structure-instance-of? - _%$obj99000%_ + _%$obj100146%_ 'class)))))) (declare (not safe)) - (__find __tmp101480 _%direct-supers98967%_)))) - (if _%$e99003%_ - ((lambda (_%g9900599007%_) + (__find __tmp102629 _%direct-supers100113%_)))) + (if _%$e100149%_ + ((lambda (_%g100151100153%_) (error '"Illegal super class; not a class descriptor" - _%g9900599007%_)) - _%$e99003%_) - (let ((_%$e99010%_ + _%g100151100153%_)) + _%$e100149%_) + (let ((_%$e100156%_ (let () (declare (not safe)) - (__find __class-type-final? _%direct-supers98967%_)))) - (if _%$e99010%_ - ((lambda (_%g9901299014%_) - (error '"Cannot extend final class" _%g9901299014%_)) - _%$e99010%_) + (__find __class-type-final? + _%direct-supers100113%_)))) + (if _%$e100156%_ + ((lambda (_%g100158100160%_) + (error '"Cannot extend final class" + _%g100158100160%_)) + _%$e100156%_) '#!void)))) - (let ((_g101481_ (compute-precedence-list _%direct-supers98967%_))) + (let ((_g102630_ (compute-precedence-list _%direct-supers100113%_))) (begin - (let ((_g101482_ + (let ((_g102631_ (let () (declare (not safe)) - (if (##values? _g101481_) - (##vector-length _g101481_) + (if (##values? _g102630_) + (##values-length _g102630_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g101482_ 2))) - (error "Context expects 2 values" _g101482_))) - (let ((_%precedence-list99017%_ - (let () (declare (not safe)) (##vector-ref _g101481_ 0))) - (_%struct-super99018%_ - (let () (declare (not safe)) (##vector-ref _g101481_ 1)))) - (let ((_g101483_ + (if (not (let () (declare (not safe)) (##fx= _g102631_ 2))) + (error "Context expects 2 values" _g102631_))) + (let ((_%precedence-list100163%_ + (let () (declare (not safe)) (##values-ref _g102630_ 0))) + (_%struct-super100164%_ + (let () (declare (not safe)) (##values-ref _g102630_ 1)))) + (let ((_g102632_ (compute-class-slots - _%precedence-list99017%_ - _%direct-slots98975%_))) + _%precedence-list100163%_ + _%direct-slots100121%_))) (begin - (let ((_g101484_ + (let ((_g102633_ (let () (declare (not safe)) - (if (##values? _g101483_) - (##vector-length _g101483_) + (if (##values? _g102632_) + (##values-length _g102632_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101484_ 2))) - (error "Context expects 2 values" _g101484_))) - (let ((_%slot-vector99020%_ + (##fx= _g102633_ 2))) + (error "Context expects 2 values" _g102633_))) + (let ((_%slot-vector100166%_ (let () (declare (not safe)) - (##vector-ref _g101483_ 0))) - (_%slot-table99021%_ + (##values-ref _g102632_ 0))) + (_%slot-table100167%_ (let () (declare (not safe)) - (##vector-ref _g101483_ 1)))) - (let* ((_%properties99023%_ - (cons (cons 'direct-slots: _%direct-slots98975%_) + (##values-ref _g102632_ 1)))) + (let* ((_%properties100169%_ + (cons (cons 'direct-slots: + _%direct-slots100121%_) (cons (cons 'direct-supers: - _%direct-supers98967%_) - _%properties98983%_))) - (_%constructor*99028%_ - (let ((_%$e99025%_ _%constructor98991%_)) - (if _%$e99025%_ - _%$e99025%_ + _%direct-supers100113%_) + _%properties100129%_))) + (_%constructor*100174%_ + (let ((_%$e100171%_ _%constructor100137%_)) + (if _%$e100171%_ + _%$e100171%_ (find-super-constructor - _%direct-supers98967%_)))) - (_%precedence-list99071%_ + _%direct-supers100113%_)))) + (_%precedence-list100217%_ (if (or (let () (declare (not safe)) (agetq__0 'system: - _%properties99023%_)) + _%properties100169%_)) (memq object::t - _%precedence-list99017%_)) - _%precedence-list99017%_ - (let _%loop99033%_ ((_%tail99035%_ - _%precedence-list99017%_) - (_%head99036%_ '())) - (let* ((_%tail9903799045%_ _%tail99035%_) - (_%else9903999053%_ + _%precedence-list100163%_)) + _%precedence-list100163%_ + (let _%loop100179%_ ((_%tail100181%_ + _%precedence-list100163%_) + (_%head100182%_ '())) + (let* ((_%tail100183100191%_ + _%tail100181%_) + (_%else100185100199%_ (lambda () - (let ((__tmp101485 + (let ((__tmp102634 (cons object::t (cons t::t '())))) (declare (not safe)) (__foldl1 cons - __tmp101485 - _%head99036%_)))) - (_%K9904199059%_ - (lambda (_%rest99056%_ _%hd99057%_) - (if (eq? _%hd99057%_ t::t) - (let ((__tmp101486 + __tmp102634 + _%head100182%_)))) + (_%K100187100205%_ + (lambda (_%rest100202%_ + _%hd100203%_) + (if (eq? _%hd100203%_ t::t) + (let ((__tmp102635 (cons object::t - _%tail99035%_))) + _%tail100181%_))) (declare (not safe)) (__foldl1 cons - __tmp101486 - _%head99036%_)) - (_%loop99033%_ - _%rest99056%_ - (cons _%hd99057%_ - _%head99036%_)))))) - (if (pair? _%tail9903799045%_) - (let ((_%hd9904299062%_ + __tmp102635 + _%head100182%_)) + (_%loop100179%_ + _%rest100202%_ + (cons _%hd100203%_ + _%head100182%_)))))) + (if (pair? _%tail100183100191%_) + (let ((_%hd100188100208%_ (let () (declare (not safe)) - (##car _%tail9903799045%_))) - (_%tl9904399064%_ + (##car _%tail100183100191%_))) + (_%tl100189100210%_ (let () (declare (not safe)) - (##cdr _%tail9903799045%_)))) - (let* ((_%hd99067%_ - _%hd9904299062%_) - (_%rest99069%_ - _%tl9904399064%_)) - (_%K9904199059%_ - _%rest99069%_ - _%hd99067%_))) - (_%else9903999053%_))))))) + (##cdr _%tail100183100191%_)))) + (let* ((_%hd100213%_ + _%hd100188100208%_) + (_%rest100215%_ + _%tl100189100210%_)) + (_%K100187100205%_ + _%rest100215%_ + _%hd100213%_))) + (_%else100185100199%_))))))) (make-class-type-descriptor - _%id98951%_ - _%name98959%_ - _%struct-super99018%_ - _%precedence-list99071%_ - _%slot-vector99020%_ - _%properties99023%_ - _%constructor*99028%_ - _%slot-table99021%_ + _%id100097%_ + _%name100105%_ + _%struct-super100164%_ + _%precedence-list100217%_ + _%slot-vector100166%_ + _%properties100169%_ + _%constructor*100174%_ + _%slot-table100167%_ '#f))))))))))) (define class-precedence-list - (lambda (_%klass98929%_) + (lambda (_%klass100075%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98929%_ 'class)) - (let ((_%klass98933%_ _%klass98929%_)) - (__class-precedence-list _%klass98933%_)) + (##structure-instance-of? _%klass100075%_ 'class)) + (let ((_%klass100079%_ _%klass100075%_)) + (__class-precedence-list _%klass100079%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1572,17 +1611,17 @@ 'contract: 'class-type? 'value: - _%klass98929%_) + _%klass100075%_) '#!void)))) (define __class-precedence-list - (lambda (_%klass98917%_) - (let ((_%klass98920%_ _%klass98917%_)) - (cons _%klass98920%_ + (lambda (_%klass100063%_) + (let ((_%klass100066%_ _%klass100063%_)) + (cons _%klass100066%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98920%_ '6 '#f '#f)))))) + (##unchecked-structure-ref _%klass100066%_ '6 '#f '#f)))))) (define compute-precedence-list - (lambda (_%direct-supers98914%_) + (lambda (_%direct-supers100060%_) (let () (declare (not safe)) (c4-linearize__% @@ -1592,14 +1631,14 @@ eq? ##type-name '() - _%direct-supers98914%_)))) + _%direct-supers100060%_)))) (define make-class-predicate - (lambda (_%klass98900%_) + (lambda (_%klass100046%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98900%_ 'class)) - (let ((_%klass98904%_ _%klass98900%_)) - (__make-class-predicate _%klass98904%_)) + (##structure-instance-of? _%klass100046%_ 'class)) + (let ((_%klass100050%_ _%klass100046%_)) + (__make-class-predicate _%klass100050%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1608,36 +1647,38 @@ 'contract: 'class-type? 'value: - _%klass98900%_) + _%klass100046%_) '#!void)))) (define __make-class-predicate - (lambda (_%klass98871%_) - (let* ((_%klass98874%_ _%klass98871%_) - (_%tid98883%_ - (let () (declare (not safe)) (##type-id _%klass98874%_)))) - (if (__class-type-final? _%klass98874%_) - (lambda (_%g9888598887%_) + (lambda (_%klass100017%_) + (let* ((_%klass100020%_ _%klass100017%_) + (_%tid100029%_ + (let () (declare (not safe)) (##type-id _%klass100020%_)))) + (if (__class-type-final? _%klass100020%_) + (lambda (_%g100031100033%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%g9888598887%_ - _%tid98883%_))) - (if (__class-type-struct? _%klass98874%_) - (lambda (_%g9889098892%_) + _%g100031100033%_ + _%tid100029%_))) + (if (__class-type-struct? _%klass100020%_) + (lambda (_%g100036100038%_) (let () (declare (not safe)) - (##structure-instance-of? _%g9889098892%_ _%tid98883%_))) - (lambda (_%g9889598897%_) - (__class-instance? _%klass98874%_ _%g9889598897%_))))))) + (##structure-instance-of? + _%g100036100038%_ + _%tid100029%_))) + (lambda (_%g100041100043%_) + (__class-instance? _%klass100020%_ _%g100041100043%_))))))) (define make-class-slot-accessor - (lambda (_%klass98846%_ _%slot98847%_) + (lambda (_%klass99992%_ _%slot99993%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98846%_ 'class)) - (let ((_%klass98851%_ _%klass98846%_)) - (if (symbol? _%slot98847%_) - (let ((_%slot98861%_ _%slot98847%_)) - (__make-class-slot-accessor _%klass98851%_ _%slot98861%_)) + (##structure-instance-of? _%klass99992%_ 'class)) + (let ((_%klass99997%_ _%klass99992%_)) + (if (symbol? _%slot99993%_) + (let ((_%slot100007%_ _%slot99993%_)) + (__make-class-slot-accessor _%klass99997%_ _%slot100007%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1646,7 +1687,7 @@ 'contract: 'symbol? 'value: - _%slot98847%_) + _%slot99993%_) '#!void))) (begin (raise-contract-violation-error @@ -1656,78 +1697,78 @@ 'contract: 'class-type? 'value: - _%klass98846%_) + _%klass99992%_) '#!void)))) (define __make-class-slot-accessor - (lambda (_%klass98814%_ _%slot98815%_) - (let* ((_%klass98818%_ _%klass98814%_) - (_%slot98826%_ _%slot98815%_) - (_%field98835%_ - (let ((__tmp101487 + (lambda (_%klass99960%_ _%slot99961%_) + (let* ((_%klass99964%_ _%klass99960%_) + (_%slot99972%_ _%slot99961%_) + (_%field99981%_ + (let ((__tmp102636 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98818%_ + _%klass99964%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101487 _%slot98826%_ '#f)))) - (if (not _%field98835%_) + (symbolic-table-ref __tmp102636 _%slot99972%_ '#f)))) + (if (not _%field99981%_) (let () (error '"unknown slot" 'class: - _%klass98818%_ + _%klass99964%_ 'slot: - _%slot98826%_) + _%slot99972%_) '#!void) - (if (__class-type-final? _%klass98818%_) + (if (__class-type-final? _%klass99964%_) (make-final-slot-accessor - _%klass98818%_ - _%slot98826%_ - _%field98835%_) - (if (__class-type-struct? _%klass98818%_) + _%klass99964%_ + _%slot99972%_ + _%field99981%_) + (if (__class-type-struct? _%klass99964%_) (make-struct-slot-accessor - _%klass98818%_ - _%slot98826%_ - _%field98835%_) - (if (let ((_%strukt98841%_ - (base-struct/1 _%klass98818%_))) + _%klass99964%_ + _%slot99972%_ + _%field99981%_) + (if (let ((_%strukt99987%_ + (base-struct/1 _%klass99964%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt98841%_ + _%strukt99987%_ 'class)) - (let ((__tmp101488 - (let ((__tmp101489 + (let ((__tmp102637 + (let ((__tmp102638 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt98841%_ + _%strukt99987%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101489)))) + (##vector-length __tmp102638)))) (declare (not safe)) - (##fx< _%field98835%_ __tmp101488)))) + (##fx< _%field99981%_ __tmp102637)))) (make-struct-subclass-slot-accessor - _%klass98818%_ - _%slot98826%_ - _%field98835%_) + _%klass99964%_ + _%slot99972%_ + _%field99981%_) (make-class-cached-slot-accessor - _%klass98818%_ - _%slot98826%_ - _%field98835%_)))))))) + _%klass99964%_ + _%slot99972%_ + _%field99981%_)))))))) (define make-class-slot-mutator - (lambda (_%klass98789%_ _%slot98790%_) + (lambda (_%klass99935%_ _%slot99936%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98789%_ 'class)) - (let ((_%klass98794%_ _%klass98789%_)) - (if (symbol? _%slot98790%_) - (let ((_%slot98804%_ _%slot98790%_)) - (__make-class-slot-mutator _%klass98794%_ _%slot98804%_)) + (##structure-instance-of? _%klass99935%_ 'class)) + (let ((_%klass99940%_ _%klass99935%_)) + (if (symbol? _%slot99936%_) + (let ((_%slot99950%_ _%slot99936%_)) + (__make-class-slot-mutator _%klass99940%_ _%slot99950%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1736,7 +1777,7 @@ 'contract: 'symbol? 'value: - _%slot98790%_) + _%slot99936%_) '#!void))) (begin (raise-contract-violation-error @@ -1746,80 +1787,80 @@ 'contract: 'class-type? 'value: - _%klass98789%_) + _%klass99935%_) '#!void)))) (define __make-class-slot-mutator - (lambda (_%klass98757%_ _%slot98758%_) - (let* ((_%klass98761%_ _%klass98757%_) - (_%slot98769%_ _%slot98758%_) - (_%field98778%_ - (let ((__tmp101490 + (lambda (_%klass99903%_ _%slot99904%_) + (let* ((_%klass99907%_ _%klass99903%_) + (_%slot99915%_ _%slot99904%_) + (_%field99924%_ + (let ((__tmp102639 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98761%_ + _%klass99907%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101490 _%slot98769%_ '#f)))) - (if (not _%field98778%_) + (symbolic-table-ref __tmp102639 _%slot99915%_ '#f)))) + (if (not _%field99924%_) (let () (error '"unknown slot" 'class: - _%klass98761%_ + _%klass99907%_ 'slot: - _%slot98769%_) + _%slot99915%_) '#!void) - (if (__class-type-final? _%klass98761%_) + (if (__class-type-final? _%klass99907%_) (make-final-slot-mutator - _%klass98761%_ - _%slot98769%_ - _%field98778%_) - (if (__class-type-struct? _%klass98761%_) + _%klass99907%_ + _%slot99915%_ + _%field99924%_) + (if (__class-type-struct? _%klass99907%_) (make-struct-slot-mutator - _%klass98761%_ - _%slot98769%_ - _%field98778%_) - (if (let ((_%strukt98784%_ - (base-struct/1 _%klass98761%_))) + _%klass99907%_ + _%slot99915%_ + _%field99924%_) + (if (let ((_%strukt99930%_ + (base-struct/1 _%klass99907%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt98784%_ + _%strukt99930%_ 'class)) - (let ((__tmp101491 - (let ((__tmp101492 + (let ((__tmp102640 + (let ((__tmp102641 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt98784%_ + _%strukt99930%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101492)))) + (##vector-length __tmp102641)))) (declare (not safe)) - (##fx< _%field98778%_ __tmp101491)))) + (##fx< _%field99924%_ __tmp102640)))) (make-struct-subclass-slot-mutator - _%klass98761%_ - _%slot98769%_ - _%field98778%_) + _%klass99907%_ + _%slot99915%_ + _%field99924%_) (make-class-cached-slot-mutator - _%klass98761%_ - _%slot98769%_ - _%field98778%_)))))))) + _%klass99907%_ + _%slot99915%_ + _%field99924%_)))))))) (define make-class-slot-unchecked-accessor - (lambda (_%klass98732%_ _%slot98733%_) + (lambda (_%klass99878%_ _%slot99879%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98732%_ 'class)) - (let ((_%klass98737%_ _%klass98732%_)) - (if (symbol? _%slot98733%_) - (let ((_%slot98747%_ _%slot98733%_)) + (##structure-instance-of? _%klass99878%_ 'class)) + (let ((_%klass99883%_ _%klass99878%_)) + (if (symbol? _%slot99879%_) + (let ((_%slot99893%_ _%slot99879%_)) (__make-class-slot-unchecked-accessor - _%klass98737%_ - _%slot98747%_)) + _%klass99883%_ + _%slot99893%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1828,7 +1869,7 @@ 'contract: 'symbol? 'value: - _%slot98733%_) + _%slot99879%_) '#!void))) (begin (raise-contract-violation-error @@ -1838,80 +1879,80 @@ 'contract: 'class-type? 'value: - _%klass98732%_) + _%klass99878%_) '#!void)))) (define __make-class-slot-unchecked-accessor - (lambda (_%klass98700%_ _%slot98701%_) - (let* ((_%klass98704%_ _%klass98700%_) - (_%slot98712%_ _%slot98701%_) - (_%field98721%_ - (let ((__tmp101493 + (lambda (_%klass99846%_ _%slot99847%_) + (let* ((_%klass99850%_ _%klass99846%_) + (_%slot99858%_ _%slot99847%_) + (_%field99867%_ + (let ((__tmp102642 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98704%_ + _%klass99850%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101493 _%slot98712%_ '#f)))) - (if (not _%field98721%_) + (symbolic-table-ref __tmp102642 _%slot99858%_ '#f)))) + (if (not _%field99867%_) (let () (error '"unknown slot" 'class: - _%klass98704%_ + _%klass99850%_ 'slot: - _%slot98712%_) + _%slot99858%_) '#!void) - (if (__class-type-final? _%klass98704%_) + (if (__class-type-final? _%klass99850%_) (make-struct-slot-unchecked-accessor - _%klass98704%_ - _%slot98712%_ - _%field98721%_) - (if (__class-type-struct? _%klass98704%_) + _%klass99850%_ + _%slot99858%_ + _%field99867%_) + (if (__class-type-struct? _%klass99850%_) (make-struct-slot-unchecked-accessor - _%klass98704%_ - _%slot98712%_ - _%field98721%_) - (if (let ((_%strukt98727%_ - (base-struct/1 _%klass98704%_))) + _%klass99850%_ + _%slot99858%_ + _%field99867%_) + (if (let ((_%strukt99873%_ + (base-struct/1 _%klass99850%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt98727%_ + _%strukt99873%_ 'class)) - (let ((__tmp101494 - (let ((__tmp101495 + (let ((__tmp102643 + (let ((__tmp102644 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt98727%_ + _%strukt99873%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101495)))) + (##vector-length __tmp102644)))) (declare (not safe)) - (##fx< _%field98721%_ __tmp101494)))) + (##fx< _%field99867%_ __tmp102643)))) (make-struct-slot-unchecked-accessor - _%klass98704%_ - _%slot98712%_ - _%field98721%_) + _%klass99850%_ + _%slot99858%_ + _%field99867%_) (make-class-cached-slot-unchecked-accessor - _%klass98704%_ - _%slot98712%_ - _%field98721%_)))))))) + _%klass99850%_ + _%slot99858%_ + _%field99867%_)))))))) (define make-class-slot-unchecked-mutator - (lambda (_%klass98675%_ _%slot98676%_) + (lambda (_%klass99821%_ _%slot99822%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98675%_ 'class)) - (let ((_%klass98680%_ _%klass98675%_)) - (if (symbol? _%slot98676%_) - (let ((_%slot98690%_ _%slot98676%_)) + (##structure-instance-of? _%klass99821%_ 'class)) + (let ((_%klass99826%_ _%klass99821%_)) + (if (symbol? _%slot99822%_) + (let ((_%slot99836%_ _%slot99822%_)) (__make-class-slot-unchecked-mutator - _%klass98680%_ - _%slot98690%_)) + _%klass99826%_ + _%slot99836%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1920,7 +1961,7 @@ 'contract: 'symbol? 'value: - _%slot98676%_) + _%slot99822%_) '#!void))) (begin (raise-contract-violation-error @@ -1930,221 +1971,221 @@ 'contract: 'class-type? 'value: - _%klass98675%_) + _%klass99821%_) '#!void)))) (define __make-class-slot-unchecked-mutator - (lambda (_%klass98643%_ _%slot98644%_) - (let* ((_%klass98647%_ _%klass98643%_) - (_%slot98655%_ _%slot98644%_) - (_%field98664%_ - (let ((__tmp101496 + (lambda (_%klass99789%_ _%slot99790%_) + (let* ((_%klass99793%_ _%klass99789%_) + (_%slot99801%_ _%slot99790%_) + (_%field99810%_ + (let ((__tmp102645 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98647%_ + _%klass99793%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101496 _%slot98655%_ '#f)))) - (if (not _%field98664%_) + (symbolic-table-ref __tmp102645 _%slot99801%_ '#f)))) + (if (not _%field99810%_) (let () (error '"unknown slot" 'class: - _%klass98647%_ + _%klass99793%_ 'slot: - _%slot98655%_) + _%slot99801%_) '#!void) - (if (__class-type-final? _%klass98647%_) + (if (__class-type-final? _%klass99793%_) (make-struct-slot-unchecked-mutator - _%klass98647%_ - _%slot98655%_ - _%field98664%_) - (if (__class-type-struct? _%klass98647%_) + _%klass99793%_ + _%slot99801%_ + _%field99810%_) + (if (__class-type-struct? _%klass99793%_) (make-struct-slot-unchecked-mutator - _%klass98647%_ - _%slot98655%_ - _%field98664%_) - (if (let ((_%strukt98670%_ - (base-struct/1 _%klass98647%_))) + _%klass99793%_ + _%slot99801%_ + _%field99810%_) + (if (let ((_%strukt99816%_ + (base-struct/1 _%klass99793%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt98670%_ + _%strukt99816%_ 'class)) - (let ((__tmp101497 - (let ((__tmp101498 + (let ((__tmp102646 + (let ((__tmp102647 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt98670%_ + _%strukt99816%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101498)))) + (##vector-length __tmp102647)))) (declare (not safe)) - (##fx< _%field98664%_ __tmp101497)))) + (##fx< _%field99810%_ __tmp102646)))) (make-struct-slot-unchecked-mutator - _%klass98647%_ - _%slot98655%_ - _%field98664%_) + _%klass99793%_ + _%slot99801%_ + _%field99810%_) (make-class-cached-slot-unchecked-mutator - _%klass98647%_ - _%slot98655%_ - _%field98664%_)))))))) + _%klass99793%_ + _%slot99801%_ + _%field99810%_)))))))) (define not-an-instance__% - (lambda (_%object98627%_ _%class98628%_ _%slot98629%_) + (lambda (_%object99773%_ _%class99774%_ _%slot99775%_) (apply error '"not an instance" 'object: - _%object98627%_ + _%object99773%_ 'class: - _%class98628%_ - (if _%slot98629%_ (cons 'slot: (cons _%slot98629%_ '())) '())))) + _%class99774%_ + (if _%slot99775%_ (cons 'slot: (cons _%slot99775%_ '())) '())))) (define not-an-instance__0 - (lambda (_%object98634%_ _%class98635%_) - (let ((_%slot98637%_ '#f)) - (not-an-instance__% _%object98634%_ _%class98635%_ _%slot98637%_)))) + (lambda (_%object99780%_ _%class99781%_) + (let ((_%slot99783%_ '#f)) + (not-an-instance__% _%object99780%_ _%class99781%_ _%slot99783%_)))) (define not-an-instance - (lambda _g101500_ - (let ((_g101499_ (let () (declare (not safe)) (##length _g101500_)))) - (cond ((let () (declare (not safe)) (##fx= _g101499_ 2)) - (apply not-an-instance__0 _g101500_)) - ((let () (declare (not safe)) (##fx= _g101499_ 3)) - (apply not-an-instance__% _g101500_)) + (lambda _g102649_ + (let ((_g102648_ (let () (declare (not safe)) (##length _g102649_)))) + (cond ((let () (declare (not safe)) (##fx= _g102648_ 2)) + (apply not-an-instance__0 _g102649_)) + ((let () (declare (not safe)) (##fx= _g102648_ 3)) + (apply not-an-instance__% _g102649_)) (else (##raise-wrong-number-of-arguments-exception not-an-instance - _g101500_)))))) + _g102649_)))))) (define make-final-slot-accessor - (lambda (_%klass98620%_ _%slot98621%_ _%field98622%_) - (lambda (_%obj98624%_) + (lambda (_%klass99766%_ _%slot99767%_ _%field99768%_) + (lambda (_%obj99770%_) (##direct-structure-ref - _%obj98624%_ - _%field98622%_ - _%klass98620%_ - _%slot98621%_)))) + _%obj99770%_ + _%field99768%_ + _%klass99766%_ + _%slot99767%_)))) (define make-final-slot-mutator - (lambda (_%klass98613%_ _%slot98614%_ _%field98615%_) - (lambda (_%obj98617%_ _%val98618%_) + (lambda (_%klass99759%_ _%slot99760%_ _%field99761%_) + (lambda (_%obj99763%_ _%val99764%_) (##direct-structure-set! - _%obj98617%_ - _%val98618%_ - _%field98615%_ - _%klass98613%_ - _%slot98614%_)))) + _%obj99763%_ + _%val99764%_ + _%field99761%_ + _%klass99759%_ + _%slot99760%_)))) (define make-struct-slot-accessor - (lambda (_%klass98607%_ _%slot98608%_ _%field98609%_) - (lambda (_%obj98611%_) + (lambda (_%klass99753%_ _%slot99754%_ _%field99755%_) + (lambda (_%obj99757%_) (##structure-ref - _%obj98611%_ - _%field98609%_ - _%klass98607%_ - _%slot98608%_)))) + _%obj99757%_ + _%field99755%_ + _%klass99753%_ + _%slot99754%_)))) (define make-struct-slot-mutator - (lambda (_%klass98600%_ _%slot98601%_ _%field98602%_) - (lambda (_%obj98604%_ _%val98605%_) + (lambda (_%klass99746%_ _%slot99747%_ _%field99748%_) + (lambda (_%obj99750%_ _%val99751%_) (##structure-set! - _%obj98604%_ - _%val98605%_ - _%field98602%_ - _%klass98600%_ - _%slot98601%_)))) + _%obj99750%_ + _%val99751%_ + _%field99748%_ + _%klass99746%_ + _%slot99747%_)))) (define make-struct-slot-unchecked-accessor - (lambda (_%klass98594%_ _%slot98595%_ _%field98596%_) - (lambda (_%obj98598%_) + (lambda (_%klass99740%_ _%slot99741%_ _%field99742%_) + (lambda (_%obj99744%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%obj98598%_ - _%field98596%_ - _%klass98594%_ - _%slot98595%_))))) + _%obj99744%_ + _%field99742%_ + _%klass99740%_ + _%slot99741%_))))) (define make-struct-slot-unchecked-mutator - (lambda (_%klass98587%_ _%slot98588%_ _%field98589%_) - (lambda (_%obj98591%_ _%val98592%_) + (lambda (_%klass99733%_ _%slot99734%_ _%field99735%_) + (lambda (_%obj99737%_ _%val99738%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%obj98591%_ - _%val98592%_ - _%field98589%_ - _%klass98587%_ - _%slot98588%_))))) + _%obj99737%_ + _%val99738%_ + _%field99735%_ + _%klass99733%_ + _%slot99734%_))))) (define make-struct-subclass-slot-accessor - (lambda (_%klass98581%_ _%slot98582%_ _%field98583%_) - (lambda (_%obj98585%_) - (if (class-instance? _%klass98581%_ _%obj98585%_) - (unchecked-slot-ref _%obj98585%_ _%field98583%_) + (lambda (_%klass99727%_ _%slot99728%_ _%field99729%_) + (lambda (_%obj99731%_) + (if (class-instance? _%klass99727%_ _%obj99731%_) + (unchecked-slot-ref _%obj99731%_ _%field99729%_) (not-an-instance__% - _%obj98585%_ - _%klass98581%_ - _%slot98582%_))))) + _%obj99731%_ + _%klass99727%_ + _%slot99728%_))))) (define make-struct-subclass-slot-mutator - (lambda (_%klass98574%_ _%slot98575%_ _%field98576%_) - (lambda (_%obj98578%_ _%val98579%_) - (if (class-instance? _%klass98574%_ _%obj98578%_) - (unchecked-field-set! _%obj98578%_ _%field98576%_ _%val98579%_) + (lambda (_%klass99720%_ _%slot99721%_ _%field99722%_) + (lambda (_%obj99724%_ _%val99725%_) + (if (class-instance? _%klass99720%_ _%obj99724%_) + (unchecked-field-set! _%obj99724%_ _%field99722%_ _%val99725%_) (not-an-instance__% - _%obj98578%_ - _%klass98574%_ - _%slot98575%_))))) + _%obj99724%_ + _%klass99720%_ + _%slot99721%_))))) (define make-class-cached-slot-accessor - (lambda (_%klass98565%_ _%slot98566%_ _%field98567%_) - (lambda (_%obj98569%_) - (if (let ((__tmp101501 - (let () (declare (not safe)) (##type-id _%klass98565%_)))) + (lambda (_%klass99711%_ _%slot99712%_ _%field99713%_) + (lambda (_%obj99715%_) + (if (let ((__tmp102650 + (let () (declare (not safe)) (##type-id _%klass99711%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98569%_ __tmp101501)) - (unchecked-field-ref _%obj98569%_ _%field98567%_) - (if (class-instance? _%klass98565%_ _%obj98569%_) - (unchecked-slot-ref _%obj98569%_ _%slot98566%_) + (##structure-direct-instance-of? _%obj99715%_ __tmp102650)) + (unchecked-field-ref _%obj99715%_ _%field99713%_) + (if (class-instance? _%klass99711%_ _%obj99715%_) + (unchecked-slot-ref _%obj99715%_ _%slot99712%_) (not-an-instance__% - _%obj98569%_ - _%klass98565%_ - _%slot98566%_)))))) + _%obj99715%_ + _%klass99711%_ + _%slot99712%_)))))) (define make-class-cached-slot-mutator - (lambda (_%klass98555%_ _%slot98556%_ _%field98557%_) - (lambda (_%obj98559%_ _%val98560%_) - (if (let ((__tmp101502 - (let () (declare (not safe)) (##type-id _%klass98555%_)))) + (lambda (_%klass99701%_ _%slot99702%_ _%field99703%_) + (lambda (_%obj99705%_ _%val99706%_) + (if (let ((__tmp102651 + (let () (declare (not safe)) (##type-id _%klass99701%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98559%_ __tmp101502)) - (unchecked-field-set! _%obj98559%_ _%field98557%_ _%val98560%_) - (if (class-instance? _%klass98555%_ _%obj98559%_) - (unchecked-slot-set! _%obj98559%_ _%slot98556%_ _%val98560%_) + (##structure-direct-instance-of? _%obj99705%_ __tmp102651)) + (unchecked-field-set! _%obj99705%_ _%field99703%_ _%val99706%_) + (if (class-instance? _%klass99701%_ _%obj99705%_) + (unchecked-slot-set! _%obj99705%_ _%slot99702%_ _%val99706%_) (not-an-instance__% - _%obj98559%_ - _%klass98555%_ - _%slot98556%_)))))) + _%obj99705%_ + _%klass99701%_ + _%slot99702%_)))))) (define make-class-cached-slot-unchecked-accessor - (lambda (_%klass98549%_ _%slot98550%_ _%field98551%_) - (lambda (_%obj98553%_) - (if (let ((__tmp101503 - (let () (declare (not safe)) (##type-id _%klass98549%_)))) + (lambda (_%klass99695%_ _%slot99696%_ _%field99697%_) + (lambda (_%obj99699%_) + (if (let ((__tmp102652 + (let () (declare (not safe)) (##type-id _%klass99695%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98553%_ __tmp101503)) - (unchecked-field-ref _%obj98553%_ _%field98551%_) - (unchecked-slot-ref _%obj98553%_ _%slot98550%_))))) + (##structure-direct-instance-of? _%obj99699%_ __tmp102652)) + (unchecked-field-ref _%obj99699%_ _%field99697%_) + (unchecked-slot-ref _%obj99699%_ _%slot99696%_))))) (define make-class-cached-slot-unchecked-mutator - (lambda (_%klass98542%_ _%slot98543%_ _%field98544%_) - (lambda (_%obj98546%_ _%val98547%_) - (if (let ((__tmp101504 - (let () (declare (not safe)) (##type-id _%klass98542%_)))) + (lambda (_%klass99688%_ _%slot99689%_ _%field99690%_) + (lambda (_%obj99692%_ _%val99693%_) + (if (let ((__tmp102653 + (let () (declare (not safe)) (##type-id _%klass99688%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98546%_ __tmp101504)) - (unchecked-field-set! _%obj98546%_ _%field98544%_ _%val98547%_) - (unchecked-slot-set! _%obj98546%_ _%slot98543%_ _%val98547%_))))) + (##structure-direct-instance-of? _%obj99692%_ __tmp102653)) + (unchecked-field-set! _%obj99692%_ _%field99690%_ _%val99693%_) + (unchecked-slot-set! _%obj99692%_ _%slot99689%_ _%val99693%_))))) (define class-slot-offset - (lambda (_%klass98517%_ _%slot98518%_) + (lambda (_%klass99663%_ _%slot99664%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98517%_ 'class)) - (let ((_%klass98522%_ _%klass98517%_)) - (if (let () (declare (not safe)) (symbolic? _%slot98518%_)) - (let ((_%slot98532%_ _%slot98518%_)) - (__class-slot-offset _%klass98522%_ _%slot98532%_)) + (##structure-instance-of? _%klass99663%_ 'class)) + (let ((_%klass99668%_ _%klass99663%_)) + (if (let () (declare (not safe)) (symbolic? _%slot99664%_)) + (let ((_%slot99678%_ _%slot99664%_)) + (__class-slot-offset _%klass99668%_ _%slot99678%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2153,7 +2194,7 @@ 'contract: 'symbolic? 'value: - _%slot98518%_) + _%slot99664%_) '#!void))) (begin (raise-contract-violation-error @@ -2163,30 +2204,30 @@ 'contract: 'class-type? 'value: - _%klass98517%_) + _%klass99663%_) '#!void)))) (define __class-slot-offset - (lambda (_%klass98496%_ _%slot98497%_) - (let* ((_%klass98500%_ _%klass98496%_) - (_%slot98508%_ _%slot98497%_) - (__tmp101505 + (lambda (_%klass99642%_ _%slot99643%_) + (let* ((_%klass99646%_ _%klass99642%_) + (_%slot99654%_ _%slot99643%_) + (__tmp102654 (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98500%_ '8 '#f '#f)))) + (##unchecked-structure-ref _%klass99646%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101505 _%slot98508%_ '#f)))) + (symbolic-table-ref __tmp102654 _%slot99654%_ '#f)))) (define class-slot-ref - (lambda (_%klass98470%_ _%obj98471%_ _%slot98472%_) + (lambda (_%klass99616%_ _%obj99617%_ _%slot99618%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98470%_ 'class)) - (let ((_%klass98476%_ _%klass98470%_)) - (if (let () (declare (not safe)) (symbolic? _%slot98472%_)) - (let ((_%slot98486%_ _%slot98472%_)) + (##structure-instance-of? _%klass99616%_ 'class)) + (let ((_%klass99622%_ _%klass99616%_)) + (if (let () (declare (not safe)) (symbolic? _%slot99618%_)) + (let ((_%slot99632%_ _%slot99618%_)) (__class-slot-ref - _%klass98476%_ - _%obj98471%_ - _%slot98486%_)) + _%klass99622%_ + _%obj99617%_ + _%slot99632%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2195,7 +2236,7 @@ 'contract: 'symbolic? 'value: - _%slot98472%_) + _%slot99618%_) '#!void))) (begin (raise-contract-violation-error @@ -2205,38 +2246,38 @@ 'contract: 'class-type? 'value: - _%klass98470%_) + _%klass99616%_) '#!void)))) (define __class-slot-ref - (lambda (_%klass98446%_ _%obj98447%_ _%slot98448%_) - (let* ((_%klass98451%_ _%klass98446%_) (_%slot98459%_ _%slot98448%_)) - (if (__class-instance? _%klass98451%_ _%obj98447%_) - (let ((_%off98468%_ + (lambda (_%klass99592%_ _%obj99593%_ _%slot99594%_) + (let* ((_%klass99597%_ _%klass99592%_) (_%slot99605%_ _%slot99594%_)) + (if (__class-instance? _%klass99597%_ _%obj99593%_) + (let ((_%off99614%_ (class-slot-offset (let () (declare (not safe)) - (##structure-type _%obj98447%_)) - _%slot98459%_))) + (##structure-type _%obj99593%_)) + _%slot99605%_))) (declare (not safe)) (##unchecked-structure-ref - _%obj98447%_ - _%off98468%_ - _%klass98451%_ - _%slot98459%_)) - (not-an-instance__0 _%obj98447%_ _%klass98451%_))))) + _%obj99593%_ + _%off99614%_ + _%klass99597%_ + _%slot99605%_)) + (not-an-instance__0 _%obj99593%_ _%klass99597%_))))) (define class-slot-set! - (lambda (_%klass98419%_ _%obj98420%_ _%slot98421%_ _%val98422%_) + (lambda (_%klass99565%_ _%obj99566%_ _%slot99567%_ _%val99568%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98419%_ 'class)) - (let ((_%klass98426%_ _%klass98419%_)) - (if (let () (declare (not safe)) (symbolic? _%slot98421%_)) - (let ((_%slot98436%_ _%slot98421%_)) + (##structure-instance-of? _%klass99565%_ 'class)) + (let ((_%klass99572%_ _%klass99565%_)) + (if (let () (declare (not safe)) (symbolic? _%slot99567%_)) + (let ((_%slot99582%_ _%slot99567%_)) (__class-slot-set! - _%klass98426%_ - _%obj98420%_ - _%slot98436%_ - _%val98422%_)) + _%klass99572%_ + _%obj99566%_ + _%slot99582%_ + _%val99568%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2245,7 +2286,7 @@ 'contract: 'symbolic? 'value: - _%slot98421%_) + _%slot99567%_) '#!void))) (begin (raise-contract-violation-error @@ -2255,69 +2296,69 @@ 'contract: 'class-type? 'value: - _%klass98419%_) + _%klass99565%_) '#!void)))) (define __class-slot-set! - (lambda (_%klass98394%_ _%obj98395%_ _%slot98396%_ _%val98397%_) - (let* ((_%klass98400%_ _%klass98394%_) (_%slot98408%_ _%slot98396%_)) - (if (__class-instance? _%klass98400%_ _%obj98395%_) - (let ((_%off98417%_ + (lambda (_%klass99540%_ _%obj99541%_ _%slot99542%_ _%val99543%_) + (let* ((_%klass99546%_ _%klass99540%_) (_%slot99554%_ _%slot99542%_)) + (if (__class-instance? _%klass99546%_ _%obj99541%_) + (let ((_%off99563%_ (class-slot-offset (let () (declare (not safe)) - (##structure-type _%obj98395%_)) - _%slot98408%_))) + (##structure-type _%obj99541%_)) + _%slot99554%_))) (declare (not safe)) (##unchecked-structure-set! - _%obj98395%_ - _%val98397%_ - _%off98417%_ - _%klass98400%_ - _%slot98408%_)) - (not-an-instance__0 _%obj98395%_ _%klass98400%_))))) + _%obj99541%_ + _%val99543%_ + _%off99563%_ + _%klass99546%_ + _%slot99554%_)) + (not-an-instance__0 _%obj99541%_ _%klass99546%_))))) (define unchecked-field-ref - (lambda (_%obj98391%_ _%off98392%_) - (let ((__tmp101506 - (let () (declare (not safe)) (##structure-type _%obj98391%_)))) + (lambda (_%obj99537%_ _%off99538%_) + (let ((__tmp102655 + (let () (declare (not safe)) (##structure-type _%obj99537%_)))) (declare (not safe)) (##unchecked-structure-ref - _%obj98391%_ - _%off98392%_ - __tmp101506 + _%obj99537%_ + _%off99538%_ + __tmp102655 '#f)))) (define unchecked-field-set! - (lambda (_%obj98387%_ _%off98388%_ _%val98389%_) - (let ((__tmp101507 - (let () (declare (not safe)) (##structure-type _%obj98387%_)))) + (lambda (_%obj99533%_ _%off99534%_ _%val99535%_) + (let ((__tmp102656 + (let () (declare (not safe)) (##structure-type _%obj99533%_)))) (declare (not safe)) (##unchecked-structure-set! - _%obj98387%_ - _%val98389%_ - _%off98388%_ - __tmp101507 + _%obj99533%_ + _%val99535%_ + _%off99534%_ + __tmp102656 '#f)))) (define unchecked-slot-ref - (lambda (_%obj98384%_ _%slot98385%_) + (lambda (_%obj99530%_ _%slot99531%_) (unchecked-field-ref - _%obj98384%_ + _%obj99530%_ (__class-slot-offset - (let () (declare (not safe)) (##structure-type _%obj98384%_)) - _%slot98385%_)))) + (let () (declare (not safe)) (##structure-type _%obj99530%_)) + _%slot99531%_)))) (define unchecked-slot-set! - (lambda (_%obj98380%_ _%slot98381%_ _%val98382%_) + (lambda (_%obj99526%_ _%slot99527%_ _%val99528%_) (unchecked-field-set! - _%obj98380%_ + _%obj99526%_ (__class-slot-offset - (let () (declare (not safe)) (##structure-type _%obj98380%_)) - _%slot98381%_) - _%val98382%_))) + (let () (declare (not safe)) (##structure-type _%obj99526%_)) + _%slot99527%_) + _%val99528%_))) (define slot-ref__% - (lambda (_%obj98342%_ _%slot98343%_ _%E98344%_) - (if (symbol? _%slot98343%_) - (let ((_%slot98348%_ _%slot98343%_)) - (if (procedure? _%E98344%_) - (let ((_%E98358%_ _%E98344%_)) - (__slot-ref__% _%obj98342%_ _%slot98348%_ _%E98358%_)) + (lambda (_%obj99488%_ _%slot99489%_ _%E99490%_) + (if (symbol? _%slot99489%_) + (let ((_%slot99494%_ _%slot99489%_)) + (if (procedure? _%E99490%_) + (let ((_%E99504%_ _%E99490%_)) + (__slot-ref__% _%obj99488%_ _%slot99494%_ _%E99504%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2326,7 +2367,7 @@ 'contract: 'procedure? 'value: - _%E98344%_) + _%E99490%_) '#!void))) (begin (raise-contract-violation-error @@ -2336,63 +2377,63 @@ 'contract: 'symbol? 'value: - _%slot98343%_) + _%slot99489%_) '#!void)))) (define slot-ref__0 - (lambda (_%obj98371%_ _%slot98372%_) - (let ((_%E98374%_ __slot-error)) - (slot-ref__% _%obj98371%_ _%slot98372%_ _%E98374%_)))) + (lambda (_%obj99517%_ _%slot99518%_) + (let ((_%E99520%_ __slot-error)) + (slot-ref__% _%obj99517%_ _%slot99518%_ _%E99520%_)))) (define slot-ref - (lambda _g101509_ - (let ((_g101508_ (let () (declare (not safe)) (##length _g101509_)))) - (cond ((let () (declare (not safe)) (##fx= _g101508_ 2)) - (apply slot-ref__0 _g101509_)) - ((let () (declare (not safe)) (##fx= _g101508_ 3)) - (apply slot-ref__% _g101509_)) + (lambda _g102658_ + (let ((_g102657_ (let () (declare (not safe)) (##length _g102658_)))) + (cond ((let () (declare (not safe)) (##fx= _g102657_ 2)) + (apply slot-ref__0 _g102658_)) + ((let () (declare (not safe)) (##fx= _g102657_ 3)) + (apply slot-ref__% _g102658_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g101509_)))))) + _g102658_)))))) (define __slot-ref__% - (lambda (_%obj98298%_ _%slot98299%_ _%E98300%_) - (let* ((_%slot98303%_ _%slot98299%_) - (_%E98311%_ _%E98300%_) - (_%klass98320%_ (class-of _%obj98298%_)) - (_%$e98323%_ - (__class-slot-offset _%klass98320%_ _%slot98303%_))) - (if _%$e98323%_ - ((lambda (_%off98326%_) - (unchecked-field-ref _%obj98298%_ _%off98326%_)) - _%$e98323%_) + (lambda (_%obj99444%_ _%slot99445%_ _%E99446%_) + (let* ((_%slot99449%_ _%slot99445%_) + (_%E99457%_ _%E99446%_) + (_%klass99466%_ (class-of _%obj99444%_)) + (_%$e99469%_ + (__class-slot-offset _%klass99466%_ _%slot99449%_))) + (if _%$e99469%_ + ((lambda (_%off99472%_) + (unchecked-field-ref _%obj99444%_ _%off99472%_)) + _%$e99469%_) (let () (declare (not safe)) - (_%E98311%_ _%obj98298%_ _%slot98303%_)))))) + (_%E99457%_ _%obj99444%_ _%slot99449%_)))))) (define __slot-ref__0 - (lambda (_%obj98332%_ _%slot98333%_) - (let ((_%E98335%_ __slot-error)) - (__slot-ref__% _%obj98332%_ _%slot98333%_ _%E98335%_)))) + (lambda (_%obj99478%_ _%slot99479%_) + (let ((_%E99481%_ __slot-error)) + (__slot-ref__% _%obj99478%_ _%slot99479%_ _%E99481%_)))) (define __slot-ref - (lambda _g101511_ - (let ((_g101510_ (let () (declare (not safe)) (##length _g101511_)))) - (cond ((let () (declare (not safe)) (##fx= _g101510_ 2)) - (apply __slot-ref__0 _g101511_)) - ((let () (declare (not safe)) (##fx= _g101510_ 3)) - (apply __slot-ref__% _g101511_)) + (lambda _g102660_ + (let ((_g102659_ (let () (declare (not safe)) (##length _g102660_)))) + (cond ((let () (declare (not safe)) (##fx= _g102659_ 2)) + (apply __slot-ref__0 _g102660_)) + ((let () (declare (not safe)) (##fx= _g102659_ 3)) + (apply __slot-ref__% _g102660_)) (else (##raise-wrong-number-of-arguments-exception __slot-ref - _g101511_)))))) + _g102660_)))))) (define slot-set!__% - (lambda (_%obj98256%_ _%slot98257%_ _%val98258%_ _%E98259%_) - (if (symbol? _%slot98257%_) - (let ((_%slot98263%_ _%slot98257%_)) - (if (procedure? _%E98259%_) - (let ((_%E98273%_ _%E98259%_)) + (lambda (_%obj99402%_ _%slot99403%_ _%val99404%_ _%E99405%_) + (if (symbol? _%slot99403%_) + (let ((_%slot99409%_ _%slot99403%_)) + (if (procedure? _%E99405%_) + (let ((_%E99419%_ _%E99405%_)) (__slot-set!__% - _%obj98256%_ - _%slot98263%_ - _%val98258%_ - _%E98273%_)) + _%obj99402%_ + _%slot99409%_ + _%val99404%_ + _%E99419%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2401,7 +2442,7 @@ 'contract: 'procedure? 'value: - _%E98259%_) + _%E99405%_) '#!void))) (begin (raise-contract-violation-error @@ -2411,79 +2452,79 @@ 'contract: 'symbol? 'value: - _%slot98257%_) + _%slot99403%_) '#!void)))) (define slot-set!__0 - (lambda (_%obj98286%_ _%slot98287%_ _%val98288%_) - (let ((_%E98290%_ __slot-error)) - (slot-set!__% _%obj98286%_ _%slot98287%_ _%val98288%_ _%E98290%_)))) + (lambda (_%obj99432%_ _%slot99433%_ _%val99434%_) + (let ((_%E99436%_ __slot-error)) + (slot-set!__% _%obj99432%_ _%slot99433%_ _%val99434%_ _%E99436%_)))) (define slot-set! - (lambda _g101513_ - (let ((_g101512_ (let () (declare (not safe)) (##length _g101513_)))) - (cond ((let () (declare (not safe)) (##fx= _g101512_ 3)) - (apply slot-set!__0 _g101513_)) - ((let () (declare (not safe)) (##fx= _g101512_ 4)) - (apply slot-set!__% _g101513_)) + (lambda _g102662_ + (let ((_g102661_ (let () (declare (not safe)) (##length _g102662_)))) + (cond ((let () (declare (not safe)) (##fx= _g102661_ 3)) + (apply slot-set!__0 _g102662_)) + ((let () (declare (not safe)) (##fx= _g102661_ 4)) + (apply slot-set!__% _g102662_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g101513_)))))) + _g102662_)))))) (define __slot-set!__% - (lambda (_%obj98209%_ _%slot98210%_ _%val98211%_ _%E98212%_) - (let* ((_%slot98215%_ _%slot98210%_) - (_%E98223%_ _%E98212%_) - (_%klass98232%_ (class-of _%obj98209%_)) - (_%$e98235%_ - (__class-slot-offset _%klass98232%_ _%slot98215%_))) - (if _%$e98235%_ - ((lambda (_%off98238%_) - (unchecked-field-set! _%obj98209%_ _%off98238%_ _%val98211%_)) - _%$e98235%_) + (lambda (_%obj99355%_ _%slot99356%_ _%val99357%_ _%E99358%_) + (let* ((_%slot99361%_ _%slot99356%_) + (_%E99369%_ _%E99358%_) + (_%klass99378%_ (class-of _%obj99355%_)) + (_%$e99381%_ + (__class-slot-offset _%klass99378%_ _%slot99361%_))) + (if _%$e99381%_ + ((lambda (_%off99384%_) + (unchecked-field-set! _%obj99355%_ _%off99384%_ _%val99357%_)) + _%$e99381%_) (let () (declare (not safe)) - (_%E98223%_ _%obj98209%_ _%slot98215%_)))))) + (_%E99369%_ _%obj99355%_ _%slot99361%_)))))) (define __slot-set!__0 - (lambda (_%obj98244%_ _%slot98245%_ _%val98246%_) - (let ((_%E98248%_ __slot-error)) + (lambda (_%obj99390%_ _%slot99391%_ _%val99392%_) + (let ((_%E99394%_ __slot-error)) (__slot-set!__% - _%obj98244%_ - _%slot98245%_ - _%val98246%_ - _%E98248%_)))) + _%obj99390%_ + _%slot99391%_ + _%val99392%_ + _%E99394%_)))) (define __slot-set! - (lambda _g101515_ - (let ((_g101514_ (let () (declare (not safe)) (##length _g101515_)))) - (cond ((let () (declare (not safe)) (##fx= _g101514_ 3)) - (apply __slot-set!__0 _g101515_)) - ((let () (declare (not safe)) (##fx= _g101514_ 4)) - (apply __slot-set!__% _g101515_)) + (lambda _g102664_ + (let ((_g102663_ (let () (declare (not safe)) (##length _g102664_)))) + (cond ((let () (declare (not safe)) (##fx= _g102663_ 3)) + (apply __slot-set!__0 _g102664_)) + ((let () (declare (not safe)) (##fx= _g102663_ 4)) + (apply __slot-set!__% _g102664_)) (else (##raise-wrong-number-of-arguments-exception __slot-set! - _g101515_)))))) + _g102664_)))))) (define __slot-error - (lambda (_%obj98205%_ _%slot98206%_) + (lambda (_%obj99351%_ _%slot99352%_) (error '"Cannot find slot" 'object: - _%obj98205%_ + _%obj99351%_ 'slot: - _%slot98206%_))) + _%slot99352%_))) (define subclass? - (lambda (_%maybe-sub-class98180%_ _%maybe-super-class98181%_) + (lambda (_%maybe-sub-class99326%_ _%maybe-super-class99327%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%maybe-sub-class98180%_ 'class)) - (let ((_%maybe-sub-class98185%_ _%maybe-sub-class98180%_)) + (##structure-instance-of? _%maybe-sub-class99326%_ 'class)) + (let ((_%maybe-sub-class99331%_ _%maybe-sub-class99326%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%maybe-super-class98181%_ + _%maybe-super-class99327%_ 'class)) - (let ((_%maybe-super-class98195%_ - _%maybe-super-class98181%_)) + (let ((_%maybe-super-class99341%_ + _%maybe-super-class99327%_)) (__subclass? - _%maybe-sub-class98185%_ - _%maybe-super-class98195%_)) + _%maybe-sub-class99331%_ + _%maybe-super-class99341%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2492,7 +2533,7 @@ 'contract: 'class-type? 'value: - _%maybe-super-class98181%_) + _%maybe-super-class99327%_) '#!void))) (begin (raise-contract-violation-error @@ -2502,71 +2543,71 @@ 'contract: 'class-type? 'value: - _%maybe-sub-class98180%_) + _%maybe-sub-class99326%_) '#!void)))) (define __subclass? - (lambda (_%maybe-sub-class98152%_ _%maybe-super-class98153%_) - (let* ((_%maybe-sub-class98156%_ _%maybe-sub-class98152%_) - (_%maybe-super-class98164%_ _%maybe-super-class98153%_) - (_%maybe-super-class-id98173%_ + (lambda (_%maybe-sub-class99298%_ _%maybe-super-class99299%_) + (let* ((_%maybe-sub-class99302%_ _%maybe-sub-class99298%_) + (_%maybe-super-class99310%_ _%maybe-super-class99299%_) + (_%maybe-super-class-id99319%_ (let () (declare (not safe)) - (##type-id _%maybe-super-class98164%_))) - (_%$e98175%_ - (eq? _%maybe-super-class-id98173%_ + (##type-id _%maybe-super-class99310%_))) + (_%$e99321%_ + (eq? _%maybe-super-class-id99319%_ (let () (declare (not safe)) - (##type-id _%maybe-sub-class98156%_))))) - (if _%$e98175%_ - _%$e98175%_ - (let ((__tmp101517 - (lambda (_%super-class98178%_) + (##type-id _%maybe-sub-class99302%_))))) + (if _%$e99321%_ + _%$e99321%_ + (let ((__tmp102666 + (lambda (_%super-class99324%_) (eq? (let () (declare (not safe)) - (##type-id _%super-class98178%_)) - _%maybe-super-class-id98173%_))) - (__tmp101516 + (##type-id _%super-class99324%_)) + _%maybe-super-class-id99319%_))) + (__tmp102665 (let () (declare (not safe)) (##unchecked-structure-ref - _%maybe-sub-class98156%_ + _%maybe-sub-class99302%_ '6 '#f '#f)))) (declare (not safe)) - (__ormap1 __tmp101517 __tmp101516)))))) + (__ormap1 __tmp102666 __tmp102665)))))) (define object? - (lambda (_%o98149%_) - (if (let () (declare (not safe)) (##structure? _%o98149%_)) - (let ((__tmp101518 + (lambda (_%o99295%_) + (if (let () (declare (not safe)) (##structure? _%o99295%_)) + (let ((__tmp102667 (let () (declare (not safe)) - (##structure-type _%o98149%_)))) + (##structure-type _%o99295%_)))) (declare (not safe)) - (##structure-instance-of? __tmp101518 'class)) + (##structure-instance-of? __tmp102667 'class)) '#f))) (define object-type - (lambda (_%o98144%_) - (if (let () (declare (not safe)) (##structure? _%o98144%_)) - (let ((_%klass98147%_ + (lambda (_%o99290%_) + (if (let () (declare (not safe)) (##structure? _%o99290%_)) + (let ((_%klass99293%_ (let () (declare (not safe)) - (##structure-type _%o98144%_)))) + (##structure-type _%o99290%_)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98147%_ 'class)) - _%klass98147%_ + (##structure-instance-of? _%klass99293%_ 'class)) + _%klass99293%_ (begin - (error '"not an object" _%o98144%_ _%klass98147%_) + (error '"not an object" _%o99290%_ _%klass99293%_) '#!void))) - (begin (error '"not an object" _%o98144%_) '#!void)))) + (begin (error '"not an object" _%o99290%_) '#!void)))) (define direct-instance? - (lambda (_%klass98129%_ _%obj98130%_) + (lambda (_%klass99275%_ _%obj99276%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98129%_ 'class)) - (let ((_%klass98134%_ _%klass98129%_)) - (__direct-instance? _%klass98134%_ _%obj98130%_)) + (##structure-instance-of? _%klass99275%_ 'class)) + (let ((_%klass99280%_ _%klass99275%_)) + (__direct-instance? _%klass99280%_ _%obj99276%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2575,28 +2616,28 @@ 'contract: 'class-type? 'value: - _%klass98129%_) + _%klass99275%_) '#!void)))) (define __direct-instance? - (lambda (_%klass98116%_ _%obj98117%_) - (let* ((_%klass98120%_ _%klass98116%_) - (__tmp101519 - (let () (declare (not safe)) (##type-id _%klass98120%_)))) + (lambda (_%klass99262%_ _%obj99263%_) + (let* ((_%klass99266%_ _%klass99262%_) + (__tmp102668 + (let () (declare (not safe)) (##type-id _%klass99266%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98117%_ __tmp101519)))) + (##structure-direct-instance-of? _%obj99263%_ __tmp102668)))) (define immediate-instance-of? - (lambda (_%klass98112%_ _%obj98113%_) - (if (let () (declare (not safe)) (##structure? _%obj98113%_)) - (eq? _%klass98112%_ - (let () (declare (not safe)) (##structure-type _%obj98113%_))) + (lambda (_%klass99258%_ _%obj99259%_) + (if (let () (declare (not safe)) (##structure? _%obj99259%_)) + (eq? _%klass99258%_ + (let () (declare (not safe)) (##structure-type _%obj99259%_))) '#f))) (define struct-instance? - (lambda (_%klass98097%_ _%obj98098%_) + (lambda (_%klass99243%_ _%obj99244%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98097%_ 'class)) - (let ((_%klass98102%_ _%klass98097%_)) - (__struct-instance? _%klass98102%_ _%obj98098%_)) + (##structure-instance-of? _%klass99243%_ 'class)) + (let ((_%klass99248%_ _%klass99243%_)) + (__struct-instance? _%klass99248%_ _%obj99244%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2605,22 +2646,22 @@ 'contract: 'class-type? 'value: - _%klass98097%_) + _%klass99243%_) '#!void)))) (define __struct-instance? - (lambda (_%klass98084%_ _%obj98085%_) - (let* ((_%klass98088%_ _%klass98084%_) - (__tmp101520 - (let () (declare (not safe)) (##type-id _%klass98088%_)))) + (lambda (_%klass99230%_ _%obj99231%_) + (let* ((_%klass99234%_ _%klass99230%_) + (__tmp102669 + (let () (declare (not safe)) (##type-id _%klass99234%_)))) (declare (not safe)) - (##structure-instance-of? _%obj98085%_ __tmp101520)))) + (##structure-instance-of? _%obj99231%_ __tmp102669)))) (define class-instance? - (lambda (_%klass98069%_ _%obj98070%_) + (lambda (_%klass99215%_ _%obj99216%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98069%_ 'class)) - (let ((_%klass98074%_ _%klass98069%_)) - (__class-instance? _%klass98074%_ _%obj98070%_)) + (##structure-instance-of? _%klass99215%_ 'class)) + (let ((_%klass99220%_ _%klass99215%_)) + (__class-instance? _%klass99220%_ _%obj99216%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2629,22 +2670,22 @@ 'contract: 'class-type? 'value: - _%klass98069%_) + _%klass99215%_) '#!void)))) (define __class-instance? - (lambda (_%klass98054%_ _%obj98055%_) - (let* ((_%klass98058%_ _%klass98054%_) - (_%type98067%_ (class-of _%obj98055%_))) - (__subclass? _%type98067%_ _%klass98058%_)))) + (lambda (_%klass99200%_ _%obj99201%_) + (let* ((_%klass99204%_ _%klass99200%_) + (_%type99213%_ (class-of _%obj99201%_))) + (__subclass? _%type99213%_ _%klass99204%_)))) (define make-object - (lambda (_%klass98029%_ _%k98030%_) + (lambda (_%klass99175%_ _%k99176%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98029%_ 'class)) - (let ((_%klass98034%_ _%klass98029%_)) - (if (fixnum? _%k98030%_) - (let ((_%k98044%_ _%k98030%_)) - (__make-object _%klass98034%_ _%k98044%_)) + (##structure-instance-of? _%klass99175%_ 'class)) + (let ((_%klass99180%_ _%klass99175%_)) + (if (fixnum? _%k99176%_) + (let ((_%k99190%_ _%k99176%_)) + (__make-object _%klass99180%_ _%k99190%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2653,7 +2694,7 @@ 'contract: 'fixnum? 'value: - _%k98030%_) + _%k99176%_) '#!void))) (begin (raise-contract-violation-error @@ -2663,27 +2704,27 @@ 'contract: 'class-type? 'value: - _%klass98029%_) + _%klass99175%_) '#!void)))) (define __make-object - (lambda (_%klass98006%_ _%k98007%_) - (let* ((_%klass98010%_ _%klass98006%_) (_%k98018%_ _%k98007%_)) - (if (__class-type-system? _%klass98010%_) + (lambda (_%klass99152%_ _%k99153%_) + (let* ((_%klass99156%_ _%klass99152%_) (_%k99164%_ _%k99153%_)) + (if (__class-type-system? _%klass99156%_) (begin (error '"cannot instantiate system class" 'class: - _%klass98010%_) + _%klass99156%_) '#!void) - (let ((_%obj98027%_ + (let ((_%obj99173%_ (let () (declare (not safe)) - (##make-structure _%klass98010%_ _%k98018%_)))) - (object-fill! _%obj98027%_ '#f)))))) + (##make-structure _%klass99156%_ _%k99164%_)))) + (object-fill! _%obj99173%_ '#f)))))) (define object-fill! - (lambda (_%obj97991%_ _%fill97992%_) + (lambda (_%obj99137%_ _%fill99138%_) (if '#t - (let ((_%obj97996%_ _%obj97991%_)) - (__object-fill! _%obj97996%_ _%fill97992%_)) + (let ((_%obj99142%_ _%obj99137%_)) + (__object-fill! _%obj99142%_ _%fill99138%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2692,38 +2733,38 @@ 'contract: 'true 'value: - _%obj97991%_) + _%obj99137%_) '#!void)))) (define __object-fill! - (lambda (_%obj97973%_ _%fill97974%_) - (let ((_%obj97977%_ _%obj97973%_)) - (let _%loop97986%_ ((_%i97988%_ - (let ((__tmp101521 + (lambda (_%obj99119%_ _%fill99120%_) + (let ((_%obj99123%_ _%obj99119%_)) + (let _%loop99132%_ ((_%i99134%_ + (let ((__tmp102670 (let () (declare (not safe)) - (##structure-length _%obj97977%_)))) + (##structure-length _%obj99123%_)))) (declare (not safe)) - (##fx- __tmp101521 '1)))) - (if (let () (declare (not safe)) (##fx> _%i97988%_ '0)) + (##fx- __tmp102670 '1)))) + (if (let () (declare (not safe)) (##fx> _%i99134%_ '0)) (begin (let () (declare (not safe)) (##unchecked-structure-set! - _%obj97977%_ - _%fill97974%_ - _%i97988%_ + _%obj99123%_ + _%fill99120%_ + _%i99134%_ '#f '#f)) - (_%loop97986%_ - (let () (declare (not safe)) (##fx- _%i97988%_ '1)))) - _%obj97977%_))))) + (_%loop99132%_ + (let () (declare (not safe)) (##fx- _%i99134%_ '1)))) + _%obj99123%_))))) (define new-instance - (lambda (_%klass97959%_) + (lambda (_%klass99105%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97959%_ 'class)) - (let ((_%klass97963%_ _%klass97959%_)) - (__new-instance _%klass97963%_)) + (##structure-instance-of? _%klass99105%_ 'class)) + (let ((_%klass99109%_ _%klass99105%_)) + (__new-instance _%klass99109%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2732,35 +2773,35 @@ 'contract: 'class-type? 'value: - _%klass97959%_) + _%klass99105%_) '#!void)))) (define __new-instance - (lambda (_%klass97947%_) - (let* ((_%klass97950%_ _%klass97947%_) - (__obj101436 - (let ((__tmp101522 - (let ((__tmp101523 + (lambda (_%klass99093%_) + (let* ((_%klass99096%_ _%klass99093%_) + (__obj102585 + (let ((__tmp102671 + (let ((__tmp102672 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97950%_ + _%klass99096%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101523)))) + (##vector-length __tmp102672)))) (declare (not safe)) - (##make-structure _%klass97950%_ __tmp101522)))) - (object-fill! __obj101436 '#f) - __obj101436))) + (##make-structure _%klass99096%_ __tmp102671)))) + (object-fill! __obj102585 '#f) + __obj102585))) (define make-instance - (lambda (_%klass97932%_ . _%args97933%_) + (lambda (_%klass99078%_ . _%args99079%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97932%_ 'class)) - (let ((_%klass97937%_ _%klass97932%_)) + (##structure-instance-of? _%klass99078%_ 'class)) + (let ((_%klass99083%_ _%klass99078%_)) (declare (not safe)) - (##apply __make-instance _%klass97937%_ _%args97933%_)) + (##apply __make-instance _%klass99083%_ _%args99079%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2769,64 +2810,64 @@ 'contract: 'class-type? 'value: - _%klass97932%_) + _%klass99078%_) '#!void)))) (define __make-instance - (lambda (_%klass97904%_ . _%args97905%_) - (let* ((_%klass97908%_ _%klass97904%_) - (_%$e97917%_ + (lambda (_%klass99050%_ . _%args99051%_) + (let* ((_%klass99054%_ _%klass99050%_) + (_%$e99063%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97908%_ '10 '#f '#f)))) - (if _%$e97917%_ - ((lambda (_%kons-id97920%_) - (let ((_%obj97922%_ (__new-instance _%klass97908%_))) + (##unchecked-structure-ref _%klass99054%_ '10 '#f '#f)))) + (if _%$e99063%_ + ((lambda (_%kons-id99066%_) + (let ((_%obj99068%_ (__new-instance _%klass99054%_))) (___constructor-init! - _%klass97908%_ - _%kons-id97920%_ - _%obj97922%_ - _%args97905%_) - _%obj97922%_)) - _%$e97917%_) - (if (__class-type-metaclass? _%klass97908%_) - (let ((_%obj97925%_ (__new-instance _%klass97908%_))) + _%klass99054%_ + _%kons-id99066%_ + _%obj99068%_ + _%args99051%_) + _%obj99068%_)) + _%$e99063%_) + (if (__class-type-metaclass? _%klass99054%_) + (let ((_%obj99071%_ (__new-instance _%klass99054%_))) (__metaclass-instance-init! - _%klass97908%_ - _%obj97925%_ - _%args97905%_) - _%obj97925%_) - (if (__class-type-struct? _%klass97908%_) - (if (let ((__tmp101525 - (__class-type-field-count _%klass97908%_)) - (__tmp101524 + _%klass99054%_ + _%obj99071%_ + _%args99051%_) + _%obj99071%_) + (if (__class-type-struct? _%klass99054%_) + (if (let ((__tmp102674 + (__class-type-field-count _%klass99054%_)) + (__tmp102673 (let () (declare (not safe)) - (##length _%args97905%_)))) + (##length _%args99051%_)))) (declare (not safe)) - (##fx= __tmp101525 __tmp101524)) - (apply ##structure _%klass97908%_ _%args97905%_) + (##fx= __tmp102674 __tmp102673)) + (apply ##structure _%klass99054%_ _%args99051%_) (let () (error '"arguments don't match object size" 'class: - _%klass97908%_ + _%klass99054%_ 'slots: - (__class-type-slot-list _%klass97908%_) + (__class-type-slot-list _%klass99054%_) 'args: - _%args97905%_) + _%args99051%_) '#!void)) - (let ((_%obj97928%_ (__new-instance _%klass97908%_))) + (let ((_%obj99074%_ (__new-instance _%klass99054%_))) (___class-instance-init! - _%klass97908%_ - _%obj97928%_ - _%args97905%_) - _%obj97928%_))))))) + _%klass99054%_ + _%obj99074%_ + _%args99051%_) + _%obj99074%_))))))) (define make-class-instance make-instance) (define struct-instance-init! - (lambda (_%obj97889%_ . _%args97890%_) + (lambda (_%obj99035%_ . _%args99036%_) (if '#t - (let ((_%obj97894%_ _%obj97889%_)) + (let ((_%obj99040%_ _%obj99035%_)) (declare (not safe)) - (##apply __struct-instance-init! _%obj97894%_ _%args97890%_)) + (##apply __struct-instance-init! _%obj99040%_ _%args99036%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2835,56 +2876,56 @@ 'contract: 'true 'value: - _%obj97889%_) + _%obj99035%_) '#!void)))) (define __struct-instance-init! - (lambda (_%obj97876%_ . _%args97877%_) - (let ((_%obj97880%_ _%obj97876%_)) - (if (let ((__tmp101527 - (let () (declare (not safe)) (##length _%args97877%_))) - (__tmp101526 + (lambda (_%obj99022%_ . _%args99023%_) + (let ((_%obj99026%_ _%obj99022%_)) + (if (let ((__tmp102676 + (let () (declare (not safe)) (##length _%args99023%_))) + (__tmp102675 (let () (declare (not safe)) - (##structure-length _%obj97880%_)))) + (##structure-length _%obj99026%_)))) (declare (not safe)) - (##fx< __tmp101527 __tmp101526)) - (___struct-instance-init! _%obj97880%_ _%args97877%_) + (##fx< __tmp102676 __tmp102675)) + (___struct-instance-init! _%obj99026%_ _%args99023%_) (error '"too many arguments for struct" 'object: - _%obj97880%_ + _%obj99026%_ 'args: - _%args97877%_)) + _%args99023%_)) '#!void))) (define ___struct-instance-init! - (lambda (_%obj97835%_ _%args97836%_) - (let _%lp97838%_ ((_%k97840%_ '1) (_%rest97841%_ _%args97836%_)) - (let* ((_%rest9784297850%_ _%rest97841%_) - (_%else9784497858%_ (lambda () _%obj97835%_)) - (_%K9784697864%_ - (lambda (_%rest97861%_ _%hd97862%_) - (unchecked-field-set! _%obj97835%_ _%k97840%_ _%hd97862%_) - (_%lp97838%_ - (let () (declare (not safe)) (##fx+ _%k97840%_ '1)) - _%rest97861%_)))) - (if (pair? _%rest9784297850%_) - (let ((_%hd9784797867%_ + (lambda (_%obj98981%_ _%args98982%_) + (let _%lp98984%_ ((_%k98986%_ '1) (_%rest98987%_ _%args98982%_)) + (let* ((_%rest9898898996%_ _%rest98987%_) + (_%else9899099004%_ (lambda () _%obj98981%_)) + (_%K9899299010%_ + (lambda (_%rest99007%_ _%hd99008%_) + (unchecked-field-set! _%obj98981%_ _%k98986%_ _%hd99008%_) + (_%lp98984%_ + (let () (declare (not safe)) (##fx+ _%k98986%_ '1)) + _%rest99007%_)))) + (if (pair? _%rest9898898996%_) + (let ((_%hd9899399013%_ (let () (declare (not safe)) - (##car _%rest9784297850%_))) - (_%tl9784897869%_ + (##car _%rest9898898996%_))) + (_%tl9899499015%_ (let () (declare (not safe)) - (##cdr _%rest9784297850%_)))) - (let* ((_%hd97872%_ _%hd9784797867%_) - (_%rest97874%_ _%tl9784897869%_)) - (_%K9784697864%_ _%rest97874%_ _%hd97872%_))) - (_%else9784497858%_)))))) + (##cdr _%rest9898898996%_)))) + (let* ((_%hd99018%_ _%hd9899399013%_) + (_%rest99020%_ _%tl9899499015%_)) + (_%K9899299010%_ _%rest99020%_ _%hd99018%_))) + (_%else9899099004%_)))))) (define class-instance-init! - (lambda (_%obj97820%_ . _%args97821%_) + (lambda (_%obj98966%_ . _%args98967%_) (if '#t - (let ((_%obj97825%_ _%obj97820%_)) + (let ((_%obj98971%_ _%obj98966%_)) (declare (not safe)) - (##apply __class-instance-init! _%obj97825%_ _%args97821%_)) + (##apply __class-instance-init! _%obj98971%_ _%args98967%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2893,102 +2934,102 @@ 'contract: 'true 'value: - _%obj97820%_) + _%obj98966%_) '#!void)))) (define __class-instance-init! - (lambda (_%obj97807%_ . _%args97808%_) - (let ((_%obj97811%_ _%obj97807%_)) + (lambda (_%obj98953%_ . _%args98954%_) + (let ((_%obj98957%_ _%obj98953%_)) (___class-instance-init! - (let () (declare (not safe)) (##structure-type _%obj97811%_)) - _%obj97811%_ - _%args97808%_) + (let () (declare (not safe)) (##structure-type _%obj98957%_)) + _%obj98957%_ + _%args98954%_) '#!void))) (define ___class-instance-init! - (lambda (_%klass97749%_ _%obj97750%_ _%args97751%_) - (let _%lp97753%_ ((_%rest97755%_ _%args97751%_)) - (let* ((_%rest9775697766%_ _%rest97755%_) - (_%else9775897774%_ + (lambda (_%klass98895%_ _%obj98896%_ _%args98897%_) + (let _%lp98899%_ ((_%rest98901%_ _%args98897%_)) + (let* ((_%rest9890298912%_ _%rest98901%_) + (_%else9890498920%_ (lambda () - (if (null? _%rest97755%_) - _%obj97750%_ + (if (null? _%rest98901%_) + _%obj98896%_ (error '"unexpected class initializer arguments" 'class: - _%klass97749%_ + _%klass98895%_ 'rest: - _%rest97755%_)))) - (_%K9776097788%_ - (lambda (_%rest97777%_ _%val97778%_ _%key97779%_) - (if (keyword? _%key97779%_) - (let ((_%$e97782%_ + _%rest98901%_)))) + (_%K9890698934%_ + (lambda (_%rest98923%_ _%val98924%_ _%key98925%_) + (if (keyword? _%key98925%_) + (let ((_%$e98928%_ (__class-slot-offset - _%klass97749%_ - _%key97779%_))) - (if _%$e97782%_ - ((lambda (_%off97785%_) + _%klass98895%_ + _%key98925%_))) + (if _%$e98928%_ + ((lambda (_%off98931%_) (unchecked-field-set! - _%obj97750%_ - _%off97785%_ - _%val97778%_) - (_%lp97753%_ _%rest97777%_)) - _%$e97782%_) + _%obj98896%_ + _%off98931%_ + _%val98924%_) + (_%lp98899%_ _%rest98923%_)) + _%$e98928%_) (error '"unknown slot" 'class: - _%klass97749%_ + _%klass98895%_ 'slot: - _%key97779%_))) + _%key98925%_))) (error '"non keyword slot initializer" 'slot: - _%key97779%_))))) - (if (pair? _%rest9775697766%_) - (let ((_%hd9776197791%_ + _%key98925%_))))) + (if (pair? _%rest9890298912%_) + (let ((_%hd9890798937%_ (let () (declare (not safe)) - (##car _%rest9775697766%_))) - (_%tl9776297793%_ + (##car _%rest9890298912%_))) + (_%tl9890898939%_ (let () (declare (not safe)) - (##cdr _%rest9775697766%_)))) - (let ((_%key97796%_ _%hd9776197791%_)) - (if (pair? _%tl9776297793%_) - (let ((_%hd9776397798%_ + (##cdr _%rest9890298912%_)))) + (let ((_%key98942%_ _%hd9890798937%_)) + (if (pair? _%tl9890898939%_) + (let ((_%hd9890998944%_ (let () (declare (not safe)) - (##car _%tl9776297793%_))) - (_%tl9776497800%_ + (##car _%tl9890898939%_))) + (_%tl9891098946%_ (let () (declare (not safe)) - (##cdr _%tl9776297793%_)))) - (let* ((_%val97803%_ _%hd9776397798%_) - (_%rest97805%_ _%tl9776497800%_)) - (_%K9776097788%_ - _%rest97805%_ - _%val97803%_ - _%key97796%_))) - (_%else9775897774%_)))) - (_%else9775897774%_)))))) + (##cdr _%tl9890898939%_)))) + (let* ((_%val98949%_ _%hd9890998944%_) + (_%rest98951%_ _%tl9891098946%_)) + (_%K9890698934%_ + _%rest98951%_ + _%val98949%_ + _%key98942%_))) + (_%else9890498920%_)))) + (_%else9890498920%_)))))) (define __metaclass-instance-init! - (lambda (_%klass97745%_ _%obj97746%_ _%args97747%_) + (lambda (_%klass98891%_ _%obj98892%_ _%args98893%_) (apply call-method - _%klass97745%_ + _%klass98891%_ 'instance-init! - _%obj97746%_ - _%args97747%_))) + _%obj98892%_ + _%args98893%_))) (define constructor-init! - (lambda (_%klass97708%_ _%kons-id97709%_ _%obj97710%_ . _%args97711%_) + (lambda (_%klass98854%_ _%kons-id98855%_ _%obj98856%_ . _%args98857%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97708%_ 'class)) - (let ((_%klass97715%_ _%klass97708%_)) - (if (symbol? _%kons-id97709%_) - (let ((_%kons-id97725%_ _%kons-id97709%_)) + (##structure-instance-of? _%klass98854%_ 'class)) + (let ((_%klass98861%_ _%klass98854%_)) + (if (symbol? _%kons-id98855%_) + (let ((_%kons-id98871%_ _%kons-id98855%_)) (if '#t - (let ((_%obj97735%_ _%obj97710%_)) + (let ((_%obj98881%_ _%obj98856%_)) (declare (not safe)) (##apply __constructor-init! - _%klass97715%_ - _%kons-id97725%_ - _%obj97735%_ - _%args97711%_)) + _%klass98861%_ + _%kons-id98871%_ + _%obj98881%_ + _%args98857%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2997,7 +3038,7 @@ 'contract: 'true 'value: - _%obj97710%_) + _%obj98856%_) '#!void))) (begin (raise-contract-violation-error @@ -3007,7 +3048,7 @@ 'contract: 'symbol? 'value: - _%kons-id97709%_) + _%kons-id98855%_) '#!void))) (begin (raise-contract-violation-error @@ -3017,38 +3058,38 @@ 'contract: 'class-type? 'value: - _%klass97708%_) + _%klass98854%_) '#!void)))) (define __constructor-init! - (lambda (_%klass97677%_ _%kons-id97678%_ _%obj97679%_ . _%args97680%_) - (let* ((_%klass97683%_ _%klass97677%_) - (_%kons-id97691%_ _%kons-id97678%_) - (_%obj97699%_ _%obj97679%_)) + (lambda (_%klass98823%_ _%kons-id98824%_ _%obj98825%_ . _%args98826%_) + (let* ((_%klass98829%_ _%klass98823%_) + (_%kons-id98837%_ _%kons-id98824%_) + (_%obj98845%_ _%obj98825%_)) (___constructor-init! - _%klass97683%_ - _%kons-id97691%_ - _%obj97699%_ - _%args97680%_) + _%klass98829%_ + _%kons-id98837%_ + _%obj98845%_ + _%args98826%_) '#!void))) (define ___constructor-init! - (lambda (_%klass97666%_ _%kons-id97667%_ _%obj97668%_ _%args97669%_) - (let ((_%$e97671%_ - (__find-method _%klass97666%_ _%obj97668%_ _%kons-id97667%_))) - (if _%$e97671%_ - ((lambda (_%kons97674%_) - (apply _%kons97674%_ _%obj97668%_ _%args97669%_) - _%obj97668%_) - _%$e97671%_) + (lambda (_%klass98812%_ _%kons-id98813%_ _%obj98814%_ _%args98815%_) + (let ((_%$e98817%_ + (__find-method _%klass98812%_ _%obj98814%_ _%kons-id98813%_))) + (if _%$e98817%_ + ((lambda (_%kons98820%_) + (apply _%kons98820%_ _%obj98814%_ _%args98815%_) + _%obj98814%_) + _%$e98817%_) (error '"missing constructor" 'class: - _%klass97666%_ + _%klass98812%_ 'method: - _%kons-id97667%_))))) + _%kons-id98813%_))))) (define struct-copy - (lambda (_%struct97652%_) + (lambda (_%struct98798%_) (if '#t - (let ((_%struct97656%_ _%struct97652%_)) - (__struct-copy _%struct97656%_)) + (let ((_%struct98802%_ _%struct98798%_)) + (__struct-copy _%struct98802%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3057,17 +3098,17 @@ 'contract: 'true 'value: - _%struct97652%_) + _%struct98798%_) '#!void)))) (define __struct-copy - (lambda (_%struct97640%_) - (let ((_%struct97643%_ _%struct97640%_)) + (lambda (_%struct98786%_) + (let ((_%struct98789%_ _%struct98786%_)) (declare (not safe)) - (##structure-copy _%struct97643%_)))) + (##structure-copy _%struct98789%_)))) (define struct->list - (lambda (_%obj97626%_) + (lambda (_%obj98772%_) (if '#t - (let ((_%obj97630%_ _%obj97626%_)) (__struct->list _%obj97630%_)) + (let ((_%obj98776%_ _%obj98772%_)) (__struct->list _%obj98776%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3076,17 +3117,17 @@ 'contract: 'true 'value: - _%obj97626%_) + _%obj98772%_) '#!void)))) (define __struct->list - (lambda (_%obj97614%_) - (let ((_%obj97617%_ _%obj97614%_)) + (lambda (_%obj98760%_) + (let ((_%obj98763%_ _%obj98760%_)) (declare (not safe)) - (##vector->list _%obj97617%_)))) + (##vector->list _%obj98763%_)))) (define class->list - (lambda (_%obj97600%_) + (lambda (_%obj98746%_) (if '#t - (let ((_%obj97604%_ _%obj97600%_)) (__class->list _%obj97604%_)) + (let ((_%obj98750%_ _%obj98746%_)) (__class->list _%obj98750%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3095,47 +3136,47 @@ 'contract: 'true 'value: - _%obj97600%_) + _%obj98746%_) '#!void)))) (define __class->list - (lambda (_%obj97576%_) - (let* ((_%obj97579%_ _%obj97576%_) - (_%klass97588%_ - (let () (declare (not safe)) (##structure-type _%obj97579%_))) - (_%slot-vector97590%_ + (lambda (_%obj98722%_) + (let* ((_%obj98725%_ _%obj98722%_) + (_%klass98734%_ + (let () (declare (not safe)) (##structure-type _%obj98725%_))) + (_%slot-vector98736%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97588%_ '7 '#f '#f)))) - (let _%loop97592%_ ((_%index97594%_ - (let ((__tmp101528 + (##unchecked-structure-ref _%klass98734%_ '7 '#f '#f)))) + (let _%loop98738%_ ((_%index98740%_ + (let ((__tmp102677 (let () (declare (not safe)) (##vector-length - _%slot-vector97590%_)))) + _%slot-vector98736%_)))) (declare (not safe)) - (##fx- __tmp101528 '1))) - (_%plist97595%_ '())) - (if (let () (declare (not safe)) (##fx< _%index97594%_ '1)) - (cons _%klass97588%_ _%plist97595%_) - (let ((_%slot97598%_ + (##fx- __tmp102677 '1))) + (_%plist98741%_ '())) + (if (let () (declare (not safe)) (##fx< _%index98740%_ '1)) + (cons _%klass98734%_ _%plist98741%_) + (let ((_%slot98744%_ (let () (declare (not safe)) - (##vector-ref _%slot-vector97590%_ _%index97594%_)))) - (_%loop97592%_ - (let () (declare (not safe)) (##fx- _%index97594%_ '1)) + (##vector-ref _%slot-vector98736%_ _%index98740%_)))) + (_%loop98738%_ + (let () (declare (not safe)) (##fx- _%index98740%_ '1)) (cons (let () (declare (not safe)) - (symbol->keyword _%slot97598%_)) + (symbol->keyword _%slot98744%_)) (cons (unchecked-field-ref - _%obj97579%_ - _%index97594%_) - _%plist97595%_))))))))) + _%obj98725%_ + _%index98740%_) + _%plist98741%_))))))))) (define call-method - (lambda (_%obj97560%_ _%id97561%_ . _%args97562%_) - (if (symbol? _%id97561%_) - (let ((_%id97566%_ _%id97561%_)) + (lambda (_%obj98706%_ _%id98707%_ . _%args98708%_) + (if (symbol? _%id98707%_) + (let ((_%id98712%_ _%id98707%_)) (declare (not safe)) - (##apply __call-method _%obj97560%_ _%id97566%_ _%args97562%_)) + (##apply __call-method _%obj98706%_ _%id98712%_ _%args98708%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3144,27 +3185,27 @@ 'contract: 'symbol? 'value: - _%id97561%_) + _%id98707%_) '#!void)))) (define __call-method - (lambda (_%obj97529%_ _%id97530%_ . _%args97531%_) - (let* ((_%id97534%_ _%id97530%_) - (_%$e97543%_ (__method-ref _%obj97529%_ _%id97534%_))) - (if _%$e97543%_ - ((lambda (_%method97546%_) - (let ((_%method97548%_ _%method97546%_)) - (apply _%method97548%_ _%obj97529%_ _%args97531%_))) - _%$e97543%_) + (lambda (_%obj98675%_ _%id98676%_ . _%args98677%_) + (let* ((_%id98680%_ _%id98676%_) + (_%$e98689%_ (__method-ref _%obj98675%_ _%id98680%_))) + (if _%$e98689%_ + ((lambda (_%method98692%_) + (let ((_%method98694%_ _%method98692%_)) + (apply _%method98694%_ _%obj98675%_ _%args98677%_))) + _%$e98689%_) (error '"cannot find method" 'object: - _%obj97529%_ + _%obj98675%_ 'method: - _%id97534%_))))) + _%id98680%_))))) (define method-ref - (lambda (_%obj97514%_ _%id97515%_) - (if (symbol? _%id97515%_) - (let ((_%id97519%_ _%id97515%_)) - (__method-ref _%obj97514%_ _%id97519%_)) + (lambda (_%obj98660%_ _%id98661%_) + (if (symbol? _%id98661%_) + (let ((_%id98665%_ _%id98661%_)) + (__method-ref _%obj98660%_ _%id98665%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3173,29 +3214,29 @@ 'contract: 'symbol? 'value: - _%id97515%_) + _%id98661%_) '#!void)))) (define __method-ref - (lambda (_%obj97501%_ _%id97502%_) - (let ((_%id97505%_ _%id97502%_)) - (__find-method (class-of _%obj97501%_) _%obj97501%_ _%id97505%_)))) + (lambda (_%obj98647%_ _%id98648%_) + (let ((_%id98651%_ _%id98648%_)) + (__find-method (class-of _%obj98647%_) _%obj98647%_ _%id98651%_)))) (define checked-method-ref - (lambda (_%obj97494%_ _%id97495%_) - (let ((_%$e97498%_ (method-ref _%obj97494%_ _%id97495%_))) - (if _%$e97498%_ - _%$e97498%_ + (lambda (_%obj98640%_ _%id98641%_) + (let ((_%$e98644%_ (method-ref _%obj98640%_ _%id98641%_))) + (if _%$e98644%_ + _%$e98644%_ (begin (error '"missing method" 'object: - _%obj97494%_ + _%obj98640%_ 'method: - _%id97495%_) + _%id98641%_) '#!void))))) (define bound-method-ref - (lambda (_%obj97479%_ _%id97480%_) - (if (symbol? _%id97480%_) - (let ((_%id97484%_ _%id97480%_)) - (__bound-method-ref _%obj97479%_ _%id97484%_)) + (lambda (_%obj98625%_ _%id98626%_) + (if (symbol? _%id98626%_) + (let ((_%id98630%_ _%id98626%_)) + (__bound-method-ref _%obj98625%_ _%id98630%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3204,24 +3245,24 @@ 'contract: 'symbol? 'value: - _%id97480%_) + _%id98626%_) '#!void)))) (define __bound-method-ref - (lambda (_%obj97447%_ _%id97448%_) - (let* ((_%id97451%_ _%id97448%_) - (_%$e97460%_ (__method-ref _%obj97447%_ _%id97451%_))) - (if _%$e97460%_ - ((lambda (_%method97463%_) - (let ((_%method97465%_ _%method97463%_)) - (lambda _%args97476%_ - (apply _%method97465%_ _%obj97447%_ _%args97476%_)))) - _%$e97460%_) + (lambda (_%obj98593%_ _%id98594%_) + (let* ((_%id98597%_ _%id98594%_) + (_%$e98606%_ (__method-ref _%obj98593%_ _%id98597%_))) + (if _%$e98606%_ + ((lambda (_%method98609%_) + (let ((_%method98611%_ _%method98609%_)) + (lambda _%args98622%_ + (apply _%method98611%_ _%obj98593%_ _%args98622%_)))) + _%$e98606%_) '#f)))) (define checked-bound-method-ref - (lambda (_%obj97432%_ _%id97433%_) - (if (symbol? _%id97433%_) - (let ((_%id97437%_ _%id97433%_)) - (__checked-bound-method-ref _%obj97432%_ _%id97437%_)) + (lambda (_%obj98578%_ _%id98579%_) + (if (symbol? _%id98579%_) + (let ((_%id98583%_ _%id98579%_)) + (__checked-bound-method-ref _%obj98578%_ _%id98583%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3230,23 +3271,23 @@ 'contract: 'symbol? 'value: - _%id97433%_) + _%id98579%_) '#!void)))) (define __checked-bound-method-ref - (lambda (_%obj97415%_ _%id97416%_) - (let* ((_%id97419%_ _%id97416%_) - (_%method97428%_ (checked-method-ref _%obj97415%_ _%id97419%_))) - (lambda _%args97430%_ - (apply _%method97428%_ _%obj97415%_ _%args97430%_))))) + (lambda (_%obj98561%_ _%id98562%_) + (let* ((_%id98565%_ _%id98562%_) + (_%method98574%_ (checked-method-ref _%obj98561%_ _%id98565%_))) + (lambda _%args98576%_ + (apply _%method98574%_ _%obj98561%_ _%args98576%_))))) (define find-method - (lambda (_%klass97389%_ _%obj97390%_ _%id97391%_) + (lambda (_%klass98535%_ _%obj98536%_ _%id98537%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97389%_ 'class)) - (let ((_%klass97395%_ _%klass97389%_)) - (if (symbol? _%id97391%_) - (let ((_%id97405%_ _%id97391%_)) - (__find-method _%klass97395%_ _%obj97390%_ _%id97405%_)) + (##structure-instance-of? _%klass98535%_ 'class)) + (let ((_%klass98541%_ _%klass98535%_)) + (if (symbol? _%id98537%_) + (let ((_%id98551%_ _%id98537%_)) + (__find-method _%klass98541%_ _%obj98536%_ _%id98551%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3255,7 +3296,7 @@ 'contract: 'symbol? 'value: - _%id97391%_) + _%id98537%_) '#!void))) (begin (raise-contract-violation-error @@ -3265,27 +3306,27 @@ 'contract: 'class-type? 'value: - _%klass97389%_) + _%klass98535%_) '#!void)))) (define __find-method - (lambda (_%klass97362%_ _%obj97363%_ _%id97364%_) - (let* ((_%klass97367%_ _%klass97362%_) - (_%id97375%_ _%id97364%_) - (_%$e97384%_ - (__direct-method-ref _%klass97367%_ _%obj97363%_ _%id97375%_))) - (if _%$e97384%_ - _%$e97384%_ - (if (__class-type-sealed? _%klass97367%_) + (lambda (_%klass98508%_ _%obj98509%_ _%id98510%_) + (let* ((_%klass98513%_ _%klass98508%_) + (_%id98521%_ _%id98510%_) + (_%$e98530%_ + (__direct-method-ref _%klass98513%_ _%obj98509%_ _%id98521%_))) + (if _%$e98530%_ + _%$e98530%_ + (if (__class-type-sealed? _%klass98513%_) '#f (__mixin-method-ref - _%klass97367%_ - _%obj97363%_ - _%id97375%_)))))) + _%klass98513%_ + _%obj98509%_ + _%id98521%_)))))) (define mixin-find-method - (lambda (_%mixins97346%_ _%obj97347%_ _%id97348%_) - (if (symbol? _%id97348%_) - (let ((_%id97352%_ _%id97348%_)) - (__mixin-find-method _%mixins97346%_ _%obj97347%_ _%id97352%_)) + (lambda (_%mixins98492%_ _%obj98493%_ _%id98494%_) + (if (symbol? _%id98494%_) + (let ((_%id98498%_ _%id98494%_)) + (__mixin-find-method _%mixins98492%_ _%obj98493%_ _%id98498%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3294,31 +3335,31 @@ 'contract: 'symbol? 'value: - _%id97348%_) + _%id98494%_) '#!void)))) (define __mixin-find-method - (lambda (_%mixins97328%_ _%obj97329%_ _%id97330%_) - (let* ((_%id97333%_ _%id97330%_) - (__tmp101529 - (lambda (_%g9734197343%_) + (lambda (_%mixins98474%_ _%obj98475%_ _%id98476%_) + (let* ((_%id98479%_ _%id98476%_) + (__tmp102678 + (lambda (_%g9848798489%_) (direct-method-ref - _%g9734197343%_ - _%obj97329%_ - _%id97333%_)))) + _%g9848798489%_ + _%obj98475%_ + _%id98479%_)))) (declare (not safe)) - (__ormap1 __tmp101529 _%mixins97328%_)))) + (__ormap1 __tmp102678 _%mixins98474%_)))) (define direct-method-ref - (lambda (_%klass97302%_ _%obj97303%_ _%id97304%_) + (lambda (_%klass98448%_ _%obj98449%_ _%id98450%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97302%_ 'class)) - (let ((_%klass97308%_ _%klass97302%_)) - (if (symbol? _%id97304%_) - (let ((_%id97318%_ _%id97304%_)) + (##structure-instance-of? _%klass98448%_ 'class)) + (let ((_%klass98454%_ _%klass98448%_)) + (if (symbol? _%id98450%_) + (let ((_%id98464%_ _%id98450%_)) (__direct-method-ref - _%klass97308%_ - _%obj97303%_ - _%id97318%_)) + _%klass98454%_ + _%obj98449%_ + _%id98464%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3327,7 +3368,7 @@ 'contract: 'symbol? 'value: - _%id97304%_) + _%id98450%_) '#!void))) (begin (raise-contract-violation-error @@ -3337,98 +3378,98 @@ 'contract: 'class-type? 'value: - _%klass97302%_) + _%klass98448%_) '#!void)))) (define __direct-method-ref - (lambda (_%klass97256%_ _%obj97257%_ _%id97258%_) - (let* ((_%klass97261%_ _%klass97256%_) (_%id97269%_ _%id97258%_)) - (letrec ((_%metaclass-resolve-method97278%_ + (lambda (_%klass98402%_ _%obj98403%_ _%id98404%_) + (let* ((_%klass98407%_ _%klass98402%_) (_%id98415%_ _%id98404%_)) + (letrec ((_%metaclass-resolve-method98424%_ (lambda () - (let ((__method101437 - (__method-ref _%klass97261%_ 'direct-method-ref))) - (if __method101437 + (let ((__method102586 + (__method-ref _%klass98407%_ 'direct-method-ref))) + (if __method102586 (let () (declare (not safe)) - (__method101437 - _%klass97261%_ - _%obj97257%_ - _%id97269%_)) + (__method102586 + _%klass98407%_ + _%obj98403%_ + _%id98415%_)) (begin (error '"Missing method" - _%klass97261%_ + _%klass98407%_ 'direct-method-ref) '#!void))))) - (_%metaclass-resolve-method!97279%_ + (_%metaclass-resolve-method!98425%_ (lambda () - (let ((_%method97299%_ - (_%metaclass-resolve-method97278%_))) - (let ((__tmp101531 + (let ((_%method98445%_ + (_%metaclass-resolve-method98424%_))) + (let ((__tmp102680 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97261%_ + _%klass98407%_ '11 '#f '#f))) - (__tmp101530 - (if _%method97299%_ 'resolved 'unknown))) + (__tmp102679 + (if _%method98445%_ 'resolved 'unknown))) (declare (not safe)) (symbolic-table-set! - __tmp101531 - _%id97269%_ - __tmp101530)) - _%method97299%_)))) - (let ((_%$e97281%_ + __tmp102680 + _%id98415%_ + __tmp102679)) + _%method98445%_)))) + (let ((_%$e98427%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97261%_ '11 '#f '#f)))) - (if _%$e97281%_ - ((lambda (_%ht97284%_) - (let ((_%method97286%_ + (##unchecked-structure-ref _%klass98407%_ '11 '#f '#f)))) + (if _%$e98427%_ + ((lambda (_%ht98430%_) + (let ((_%method98432%_ (let () (declare (not safe)) (symbolic-table-ref - _%ht97284%_ - _%id97269%_ + _%ht98430%_ + _%id98415%_ '#f)))) - (if (procedure? _%method97286%_) - _%method97286%_ - (if (__class-type-metaclass? _%klass97261%_) - (let ((_%$e97290%_ _%method97286%_)) - (if (eq? 'resolved _%$e97290%_) - (_%metaclass-resolve-method97278%_) - (if (eq? 'unknown _%$e97290%_) + (if (procedure? _%method98432%_) + _%method98432%_ + (if (__class-type-metaclass? _%klass98407%_) + (let ((_%$e98436%_ _%method98432%_)) + (if (eq? 'resolved _%$e98436%_) + (_%metaclass-resolve-method98424%_) + (if (eq? 'unknown _%$e98436%_) '#f - (_%metaclass-resolve-method!97279%_)))) + (_%metaclass-resolve-method!98425%_)))) '#f)))) - _%$e97281%_) - (if (__class-type-metaclass? _%klass97261%_) - (let ((_%tab97295%_ + _%$e98427%_) + (if (__class-type-metaclass? _%klass98407%_) + (let ((_%tab98441%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass97261%_ - _%tab97295%_ + _%klass98407%_ + _%tab98441%_ '11 '#f '#f)) - (_%metaclass-resolve-method!97279%_)) + (_%metaclass-resolve-method!98425%_)) '#f))))))) (define mixin-method-ref - (lambda (_%klass97230%_ _%obj97231%_ _%id97232%_) + (lambda (_%klass98376%_ _%obj98377%_ _%id98378%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97230%_ 'class)) - (let ((_%klass97236%_ _%klass97230%_)) - (if (symbol? _%id97232%_) - (let ((_%id97246%_ _%id97232%_)) + (##structure-instance-of? _%klass98376%_ 'class)) + (let ((_%klass98382%_ _%klass98376%_)) + (if (symbol? _%id98378%_) + (let ((_%id98392%_ _%id98378%_)) (__mixin-method-ref - _%klass97236%_ - _%obj97231%_ - _%id97246%_)) + _%klass98382%_ + _%obj98377%_ + _%id98392%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3437,7 +3478,7 @@ 'contract: 'symbol? 'value: - _%id97232%_) + _%id98378%_) '#!void))) (begin (raise-contract-violation-error @@ -3447,28 +3488,28 @@ 'contract: 'class-type? 'value: - _%klass97230%_) + _%klass98376%_) '#!void)))) (define __mixin-method-ref - (lambda (_%klass97208%_ _%obj97209%_ _%id97210%_) - (let* ((_%klass97213%_ _%klass97208%_) (_%id97221%_ _%id97210%_)) + (lambda (_%klass98354%_ _%obj98355%_ _%id98356%_) + (let* ((_%klass98359%_ _%klass98354%_) (_%id98367%_ _%id98356%_)) (__mixin-find-method (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97213%_ '6 '#f '#f)) - _%obj97209%_ - _%id97221%_)))) + (##unchecked-structure-ref _%klass98359%_ '6 '#f '#f)) + _%obj98355%_ + _%id98367%_)))) (define bind-method!__% - (lambda (_%klass97167%_ _%id97168%_ _%proc97169%_ _%rebind?97170%_) - (if (symbol? _%id97168%_) - (let ((_%id97174%_ _%id97168%_)) - (if (procedure? _%proc97169%_) - (let ((_%proc97184%_ _%proc97169%_)) + (lambda (_%klass98313%_ _%id98314%_ _%proc98315%_ _%rebind?98316%_) + (if (symbol? _%id98314%_) + (let ((_%id98320%_ _%id98314%_)) + (if (procedure? _%proc98315%_) + (let ((_%proc98330%_ _%proc98315%_)) (__bind-method!__% - _%klass97167%_ - _%id97174%_ - _%proc97184%_ - _%rebind?97170%_)) + _%klass98313%_ + _%id98320%_ + _%proc98330%_ + _%rebind?98316%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3477,7 +3518,7 @@ 'contract: 'procedure? 'value: - _%proc97169%_) + _%proc98315%_) '#!void))) (begin (raise-contract-violation-error @@ -3487,1071 +3528,1071 @@ 'contract: 'symbol? 'value: - _%id97168%_) + _%id98314%_) '#!void)))) (define bind-method!__0 - (lambda (_%klass97197%_ _%id97198%_ _%proc97199%_) - (let ((_%rebind?97201%_ '#f)) + (lambda (_%klass98343%_ _%id98344%_ _%proc98345%_) + (let ((_%rebind?98347%_ '#f)) (bind-method!__% - _%klass97197%_ - _%id97198%_ - _%proc97199%_ - _%rebind?97201%_)))) + _%klass98343%_ + _%id98344%_ + _%proc98345%_ + _%rebind?98347%_)))) (define bind-method! - (lambda _g101533_ - (let ((_g101532_ (let () (declare (not safe)) (##length _g101533_)))) - (cond ((let () (declare (not safe)) (##fx= _g101532_ 3)) - (apply bind-method!__0 _g101533_)) - ((let () (declare (not safe)) (##fx= _g101532_ 4)) - (apply bind-method!__% _g101533_)) + (lambda _g102682_ + (let ((_g102681_ (let () (declare (not safe)) (##length _g102682_)))) + (cond ((let () (declare (not safe)) (##fx= _g102681_ 3)) + (apply bind-method!__0 _g102682_)) + ((let () (declare (not safe)) (##fx= _g102681_ 4)) + (apply bind-method!__% _g102682_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g101533_)))))) + _g102682_)))))) (define __bind-method!__% - (lambda (_%klass97118%_ _%id97119%_ _%proc97120%_ _%rebind?97121%_) - (let* ((_%id97124%_ _%id97119%_) (_%proc97132%_ _%proc97120%_)) - (letrec ((_%bind!97141%_ - (lambda (_%ht97150%_) - (if (and (not _%rebind?97121%_) + (lambda (_%klass98264%_ _%id98265%_ _%proc98266%_ _%rebind?98267%_) + (let* ((_%id98270%_ _%id98265%_) (_%proc98278%_ _%proc98266%_)) + (letrec ((_%bind!98287%_ + (lambda (_%ht98296%_) + (if (and (not _%rebind?98267%_) (let () (declare (not safe)) (symbolic-table-ref - _%ht97150%_ - _%id97124%_ + _%ht98296%_ + _%id98270%_ '#f))) (error '"method already bound" 'class: - _%klass97118%_ + _%klass98264%_ 'method: - _%id97124%_) + _%id98270%_) (begin (let () (declare (not safe)) (symbolic-table-set! - _%ht97150%_ - _%id97124%_ - _%proc97132%_)) + _%ht98296%_ + _%id98270%_ + _%proc98278%_)) '#!void))))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97118%_ 'class)) - (let ((_%ht97144%_ + (##structure-instance-of? _%klass98264%_ 'class)) + (let ((_%ht98290%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97118%_ + _%klass98264%_ '11 '#f '#f)))) - (if _%ht97144%_ - (_%bind!97141%_ _%ht97144%_) - (let ((_%ht97146%_ + (if _%ht98290%_ + (_%bind!98287%_ _%ht98290%_) + (let ((_%ht98292%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass97118%_ - _%ht97146%_ + _%klass98264%_ + _%ht98292%_ '11 '#f '#f)) - (_%bind!97141%_ _%ht97146%_)))) - (if (let () (declare (not safe)) (##type? _%klass97118%_)) + (_%bind!98287%_ _%ht98292%_)))) + (if (let () (declare (not safe)) (##type? _%klass98264%_)) (__bind-method!__% - (__shadow-class _%klass97118%_) - _%id97124%_ - _%proc97132%_ - _%rebind?97121%_) + (__shadow-class _%klass98264%_) + _%id98270%_ + _%proc98278%_ + _%rebind?98267%_) (error '"bad class; expected class or builtin type" - _%klass97118%_))))))) + _%klass98264%_))))))) (define __bind-method!__0 - (lambda (_%klass97155%_ _%id97156%_ _%proc97157%_) - (let ((_%rebind?97159%_ '#f)) + (lambda (_%klass98301%_ _%id98302%_ _%proc98303%_) + (let ((_%rebind?98305%_ '#f)) (__bind-method!__% - _%klass97155%_ - _%id97156%_ - _%proc97157%_ - _%rebind?97159%_)))) + _%klass98301%_ + _%id98302%_ + _%proc98303%_ + _%rebind?98305%_)))) (define __bind-method! - (lambda _g101535_ - (let ((_g101534_ (let () (declare (not safe)) (##length _g101535_)))) - (cond ((let () (declare (not safe)) (##fx= _g101534_ 3)) - (apply __bind-method!__0 _g101535_)) - ((let () (declare (not safe)) (##fx= _g101534_ 4)) - (apply __bind-method!__% _g101535_)) + (lambda _g102684_ + (let ((_g102683_ (let () (declare (not safe)) (##length _g102684_)))) + (cond ((let () (declare (not safe)) (##fx= _g102683_ 3)) + (apply __bind-method!__0 _g102684_)) + ((let () (declare (not safe)) (##fx= _g102683_ 4)) + (apply __bind-method!__% _g102684_)) (else (##raise-wrong-number-of-arguments-exception __bind-method! - _g101535_)))))) + _g102684_)))))) (define make-method-specializer-table__% - (lambda (_%size-hint97098%_ _%seed97100%_) + (lambda (_%size-hint98244%_ _%seed98246%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint97098%_ + _%size-hint98244%_ procedure-hash eq? - _%seed97100%_)))) + _%seed98246%_)))) (define make-method-specializer-table__0 (lambda () - (let* ((_%size-hint97106%_ '#f) (_%seed97108%_ '0)) + (let* ((_%size-hint98252%_ '#f) (_%seed98254%_ '0)) (make-method-specializer-table__% - _%size-hint97106%_ - _%seed97108%_)))) + _%size-hint98252%_ + _%seed98254%_)))) (define make-method-specializer-table__1 - (lambda (_%size-hint97110%_) - (let ((_%seed97112%_ '0)) + (lambda (_%size-hint98256%_) + (let ((_%seed98258%_ '0)) (make-method-specializer-table__% - _%size-hint97110%_ - _%seed97112%_)))) + _%size-hint98256%_ + _%seed98258%_)))) (define make-method-specializer-table - (lambda _g101537_ - (let ((_g101536_ (let () (declare (not safe)) (##length _g101537_)))) - (cond ((let () (declare (not safe)) (##fx= _g101536_ 0)) - (apply make-method-specializer-table__0 _g101537_)) - ((let () (declare (not safe)) (##fx= _g101536_ 1)) - (apply make-method-specializer-table__1 _g101537_)) - ((let () (declare (not safe)) (##fx= _g101536_ 2)) - (apply make-method-specializer-table__% _g101537_)) + (lambda _g102686_ + (let ((_g102685_ (let () (declare (not safe)) (##length _g102686_)))) + (cond ((let () (declare (not safe)) (##fx= _g102685_ 0)) + (apply make-method-specializer-table__0 _g102686_)) + ((let () (declare (not safe)) (##fx= _g102685_ 1)) + (apply make-method-specializer-table__1 _g102686_)) + ((let () (declare (not safe)) (##fx= _g102685_ 2)) + (apply make-method-specializer-table__% _g102686_)) (else (##raise-wrong-number-of-arguments-exception make-method-specializer-table - _g101537_)))))) + _g102686_)))))) (define method-specializer-table-ref - (lambda (_%tab97051%_ _%key97052%_ _%default97053%_) - (let ((_%table97055%_ - (let () (declare (not safe)) (&raw-table-table _%tab97051%_))) - (_%seed97056%_ - (let () (declare (not safe)) (&raw-table-seed _%tab97051%_)))) - (let* ((_%h97058%_ + (lambda (_%tab98197%_ _%key98198%_ _%default98199%_) + (let ((_%table98201%_ + (let () (declare (not safe)) (&raw-table-table _%tab98197%_))) + (_%seed98202%_ + (let () (declare (not safe)) (&raw-table-seed _%tab98197%_)))) + (let* ((_%h98204%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key97052%_)) - _%seed97056%_)) - (_%size97061%_ (vector-length _%table97055%_)) - (_%entries97064%_ + (procedure-hash _%key98198%_)) + _%seed98202%_)) + (_%size98207%_ (vector-length _%table98201%_)) + (_%entries98210%_ (let () (declare (not safe)) - (##fxquotient _%size97061%_ '2))) - (_%start97067%_ - (let ((__tmp101538 + (##fxquotient _%size98207%_ '2))) + (_%start98213%_ + (let ((__tmp102687 (let () (declare (not safe)) - (##fxmodulo _%h97058%_ _%entries97064%_)))) + (##fxmodulo _%h98204%_ _%entries98210%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101538 '1)))) - (let _%loop97071%_ ((_%probe97074%_ _%start97067%_) - (_%i97076%_ '1) - (_%deleted97078%_ '#f)) - (let ((_%k97081%_ (vector-ref _%table97055%_ _%probe97074%_))) - (if (eq? _%k97081%_ (macro-unused-obj)) - _%default97053%_ - (if (eq? _%k97081%_ (macro-deleted-obj)) - (_%loop97071%_ - (let ((_%next-probe97086%_ - (fx+ _%start97067%_ - _%i97076%_ - (fx* _%i97076%_ _%i97076%_)))) + (##fxarithmetic-shift-left __tmp102687 '1)))) + (let _%loop98217%_ ((_%probe98220%_ _%start98213%_) + (_%i98222%_ '1) + (_%deleted98224%_ '#f)) + (let ((_%k98227%_ (vector-ref _%table98201%_ _%probe98220%_))) + (if (eq? _%k98227%_ (macro-unused-obj)) + _%default98199%_ + (if (eq? _%k98227%_ (macro-deleted-obj)) + (_%loop98217%_ + (let ((_%next-probe98232%_ + (fx+ _%start98213%_ + _%i98222%_ + (fx* _%i98222%_ _%i98222%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97086%_ _%size97061%_)) - (let () (declare (not safe)) (##fx+ _%i97076%_ '1)) - (let ((_%$e97089%_ _%deleted97078%_)) - (if _%$e97089%_ _%$e97089%_ _%probe97074%_))) - (if (eq? _%key97052%_ _%k97081%_) + (##fxmodulo _%next-probe98232%_ _%size98207%_)) + (let () (declare (not safe)) (##fx+ _%i98222%_ '1)) + (let ((_%$e98235%_ _%deleted98224%_)) + (if _%$e98235%_ _%$e98235%_ _%probe98220%_))) + (if (eq? _%key98198%_ _%k98227%_) (vector-ref - _%table97055%_ + _%table98201%_ (let () (declare (not safe)) - (##fx+ _%probe97074%_ '1))) - (_%loop97071%_ - (let ((_%next-probe97094%_ - (fx+ _%start97067%_ - _%i97076%_ - (fx* _%i97076%_ _%i97076%_)))) + (##fx+ _%probe98220%_ '1))) + (_%loop98217%_ + (let ((_%next-probe98240%_ + (fx+ _%start98213%_ + _%i98222%_ + (fx* _%i98222%_ _%i98222%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97094%_ _%size97061%_)) + (##fxmodulo _%next-probe98240%_ _%size98207%_)) (let () (declare (not safe)) - (##fx+ _%i97076%_ '1)) - _%deleted97078%_)))))))))) + (##fx+ _%i98222%_ '1)) + _%deleted98224%_)))))))))) (define method-specializer-table-set! - (lambda (_%tab97047%_ _%key97048%_ _%value97049%_) - (if (let ((__tmp101541 + (lambda (_%tab98193%_ _%key98194%_ _%value98195%_) + (if (let ((__tmp102690 (let () (declare (not safe)) - (&raw-table-free _%tab97047%_))) - (__tmp101539 - (let ((__tmp101540 + (&raw-table-free _%tab98193%_))) + (__tmp102688 + (let ((__tmp102689 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab97047%_))))) + (&raw-table-table _%tab98193%_))))) (declare (not safe)) - (##fxquotient __tmp101540 '4)))) + (##fxquotient __tmp102689 '4)))) (declare (not safe)) - (##fx< __tmp101541 __tmp101539)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab97047%_)) + (##fx< __tmp102690 __tmp102688)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab98193%_)) '#!void) (__method-specializer-table-set! - _%tab97047%_ - _%key97048%_ - _%value97049%_))) + _%tab98193%_ + _%key98194%_ + _%value98195%_))) (define __method-specializer-table-set! - (lambda (_%tab96998%_ _%key96999%_ _%value97000%_) - (let ((_%table97003%_ - (let () (declare (not safe)) (&raw-table-table _%tab96998%_))) - (_%seed97004%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96998%_)))) - (let* ((_%h97006%_ + (lambda (_%tab98144%_ _%key98145%_ _%value98146%_) + (let ((_%table98149%_ + (let () (declare (not safe)) (&raw-table-table _%tab98144%_))) + (_%seed98150%_ + (let () (declare (not safe)) (&raw-table-seed _%tab98144%_)))) + (let* ((_%h98152%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key96999%_)) - _%seed97004%_)) - (_%size97009%_ (vector-length _%table97003%_)) - (_%entries97012%_ + (procedure-hash _%key98145%_)) + _%seed98150%_)) + (_%size98155%_ (vector-length _%table98149%_)) + (_%entries98158%_ (let () (declare (not safe)) - (##fxquotient _%size97009%_ '2))) - (_%start97015%_ - (let ((__tmp101542 + (##fxquotient _%size98155%_ '2))) + (_%start98161%_ + (let ((__tmp102691 (let () (declare (not safe)) - (##fxmodulo _%h97006%_ _%entries97012%_)))) + (##fxmodulo _%h98152%_ _%entries98158%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101542 '1)))) - (let _%loop97019%_ ((_%probe97022%_ _%start97015%_) - (_%i97024%_ '1) - (_%deleted97026%_ '#f)) - (let ((_%k97029%_ (vector-ref _%table97003%_ _%probe97022%_))) - (if (eq? _%k97029%_ (macro-unused-obj)) - (if _%deleted97026%_ + (##fxarithmetic-shift-left __tmp102691 '1)))) + (let _%loop98165%_ ((_%probe98168%_ _%start98161%_) + (_%i98170%_ '1) + (_%deleted98172%_ '#f)) + (let ((_%k98175%_ (vector-ref _%table98149%_ _%probe98168%_))) + (if (eq? _%k98175%_ (macro-unused-obj)) + (if _%deleted98172%_ (begin (vector-set! - _%table97003%_ - _%deleted97026%_ - _%key96999%_) + _%table98149%_ + _%deleted98172%_ + _%key98145%_) (vector-set! - _%table97003%_ + _%table98149%_ (let () (declare (not safe)) - (##fx+ _%deleted97026%_ '1)) - _%value97000%_) + (##fx+ _%deleted98172%_ '1)) + _%value98146%_) ((lambda () - (let ((__tmp101543 - (let ((__tmp101544 + (let ((__tmp102692 + (let ((__tmp102693 (let () (declare (not safe)) - (&raw-table-count _%tab96998%_)))) + (&raw-table-count _%tab98144%_)))) (declare (not safe)) - (##fx+ __tmp101544 '1)))) + (##fx+ __tmp102693 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96998%_ - __tmp101543))))) + _%tab98144%_ + __tmp102692))))) (begin (vector-set! - _%table97003%_ - _%probe97022%_ - _%key96999%_) + _%table98149%_ + _%probe98168%_ + _%key98145%_) (vector-set! - _%table97003%_ + _%table98149%_ (let () (declare (not safe)) - (##fx+ _%probe97022%_ '1)) - _%value97000%_) + (##fx+ _%probe98168%_ '1)) + _%value98146%_) ((lambda () - (let ((__tmp101545 - (let ((__tmp101546 + (let ((__tmp102694 + (let ((__tmp102695 (let () (declare (not safe)) - (&raw-table-free _%tab96998%_)))) + (&raw-table-free _%tab98144%_)))) (declare (not safe)) - (##fx- __tmp101546 '1)))) + (##fx- __tmp102695 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab96998%_ __tmp101545)) - (let ((__tmp101547 - (let ((__tmp101548 + (&raw-table-free-set! _%tab98144%_ __tmp102694)) + (let ((__tmp102696 + (let ((__tmp102697 (let () (declare (not safe)) - (&raw-table-count _%tab96998%_)))) + (&raw-table-count _%tab98144%_)))) (declare (not safe)) - (##fx+ __tmp101548 '1)))) + (##fx+ __tmp102697 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96998%_ - __tmp101547)))))) - (if (eq? _%k97029%_ (macro-deleted-obj)) - (_%loop97019%_ - (let ((_%next-probe97036%_ - (fx+ _%start97015%_ - _%i97024%_ - (fx* _%i97024%_ _%i97024%_)))) + _%tab98144%_ + __tmp102696)))))) + (if (eq? _%k98175%_ (macro-deleted-obj)) + (_%loop98165%_ + (let ((_%next-probe98182%_ + (fx+ _%start98161%_ + _%i98170%_ + (fx* _%i98170%_ _%i98170%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97036%_ _%size97009%_)) - (let () (declare (not safe)) (##fx+ _%i97024%_ '1)) - (let ((_%$e97039%_ _%deleted97026%_)) - (if _%$e97039%_ _%$e97039%_ _%probe97022%_))) - (if (eq? _%key96999%_ _%k97029%_) + (##fxmodulo _%next-probe98182%_ _%size98155%_)) + (let () (declare (not safe)) (##fx+ _%i98170%_ '1)) + (let ((_%$e98185%_ _%deleted98172%_)) + (if _%$e98185%_ _%$e98185%_ _%probe98168%_))) + (if (eq? _%key98145%_ _%k98175%_) (let () (vector-set! - _%table97003%_ - _%probe97022%_ - _%key96999%_) + _%table98149%_ + _%probe98168%_ + _%key98145%_) (vector-set! - _%table97003%_ + _%table98149%_ (let () (declare (not safe)) - (##fx+ _%probe97022%_ '1)) - _%value97000%_)) - (_%loop97019%_ - (let ((_%next-probe97044%_ - (fx+ _%start97015%_ - _%i97024%_ - (fx* _%i97024%_ _%i97024%_)))) + (##fx+ _%probe98168%_ '1)) + _%value98146%_)) + (_%loop98165%_ + (let ((_%next-probe98190%_ + (fx+ _%start98161%_ + _%i98170%_ + (fx* _%i98170%_ _%i98170%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97044%_ _%size97009%_)) + (##fxmodulo _%next-probe98190%_ _%size98155%_)) (let () (declare (not safe)) - (##fx+ _%i97024%_ '1)) - _%deleted97026%_)))))))))) + (##fx+ _%i98170%_ '1)) + _%deleted98172%_)))))))))) (define method-specializer-table-update! - (lambda (_%tab96993%_ - _%key96994%_ - _%method-specializer-table-update!96995%_ - _%default96996%_) - (if (let ((__tmp101551 + (lambda (_%tab98139%_ + _%key98140%_ + _%method-specializer-table-update!98141%_ + _%default98142%_) + (if (let ((__tmp102700 (let () (declare (not safe)) - (&raw-table-free _%tab96993%_))) - (__tmp101549 - (let ((__tmp101550 + (&raw-table-free _%tab98139%_))) + (__tmp102698 + (let ((__tmp102699 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab96993%_))))) + (&raw-table-table _%tab98139%_))))) (declare (not safe)) - (##fxquotient __tmp101550 '4)))) + (##fxquotient __tmp102699 '4)))) (declare (not safe)) - (##fx< __tmp101551 __tmp101549)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab96993%_)) + (##fx< __tmp102700 __tmp102698)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab98139%_)) '#!void) (__method-specializer-table-update! - _%tab96993%_ - _%key96994%_ - _%method-specializer-table-update!96995%_ - _%default96996%_))) + _%tab98139%_ + _%key98140%_ + _%method-specializer-table-update!98141%_ + _%default98142%_))) (define __method-specializer-table-update! - (lambda (_%tab96943%_ - _%key96944%_ - _%method-specializer-table-update!96945%_ - _%default96946%_) - (let ((_%table96949%_ - (let () (declare (not safe)) (&raw-table-table _%tab96943%_))) - (_%seed96950%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96943%_)))) - (let* ((_%h96952%_ + (lambda (_%tab98089%_ + _%key98090%_ + _%method-specializer-table-update!98091%_ + _%default98092%_) + (let ((_%table98095%_ + (let () (declare (not safe)) (&raw-table-table _%tab98089%_))) + (_%seed98096%_ + (let () (declare (not safe)) (&raw-table-seed _%tab98089%_)))) + (let* ((_%h98098%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key96944%_)) - _%seed96950%_)) - (_%size96955%_ (vector-length _%table96949%_)) - (_%entries96958%_ + (procedure-hash _%key98090%_)) + _%seed98096%_)) + (_%size98101%_ (vector-length _%table98095%_)) + (_%entries98104%_ (let () (declare (not safe)) - (##fxquotient _%size96955%_ '2))) - (_%start96961%_ - (let ((__tmp101552 + (##fxquotient _%size98101%_ '2))) + (_%start98107%_ + (let ((__tmp102701 (let () (declare (not safe)) - (##fxmodulo _%h96952%_ _%entries96958%_)))) + (##fxmodulo _%h98098%_ _%entries98104%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101552 '1)))) - (let _%loop96965%_ ((_%probe96968%_ _%start96961%_) - (_%i96970%_ '1) - (_%deleted96972%_ '#f)) - (let ((_%k96975%_ (vector-ref _%table96949%_ _%probe96968%_))) - (if (eq? _%k96975%_ (macro-unused-obj)) - (if _%deleted96972%_ + (##fxarithmetic-shift-left __tmp102701 '1)))) + (let _%loop98111%_ ((_%probe98114%_ _%start98107%_) + (_%i98116%_ '1) + (_%deleted98118%_ '#f)) + (let ((_%k98121%_ (vector-ref _%table98095%_ _%probe98114%_))) + (if (eq? _%k98121%_ (macro-unused-obj)) + (if _%deleted98118%_ (begin (vector-set! - _%table96949%_ - _%deleted96972%_ - _%key96944%_) + _%table98095%_ + _%deleted98118%_ + _%key98090%_) (vector-set! - _%table96949%_ + _%table98095%_ (let () (declare (not safe)) - (##fx+ _%deleted96972%_ '1)) - (_%method-specializer-table-update!96945%_ - _%default96946%_)) + (##fx+ _%deleted98118%_ '1)) + (_%method-specializer-table-update!98091%_ + _%default98092%_)) ((lambda () - (let ((__tmp101553 - (let ((__tmp101554 + (let ((__tmp102702 + (let ((__tmp102703 (let () (declare (not safe)) - (&raw-table-count _%tab96943%_)))) + (&raw-table-count _%tab98089%_)))) (declare (not safe)) - (##fx+ __tmp101554 '1)))) + (##fx+ __tmp102703 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96943%_ - __tmp101553))))) + _%tab98089%_ + __tmp102702))))) (begin (vector-set! - _%table96949%_ - _%probe96968%_ - _%key96944%_) + _%table98095%_ + _%probe98114%_ + _%key98090%_) (vector-set! - _%table96949%_ + _%table98095%_ (let () (declare (not safe)) - (##fx+ _%probe96968%_ '1)) - (_%method-specializer-table-update!96945%_ - _%default96946%_)) + (##fx+ _%probe98114%_ '1)) + (_%method-specializer-table-update!98091%_ + _%default98092%_)) ((lambda () - (let ((__tmp101555 - (let ((__tmp101556 + (let ((__tmp102704 + (let ((__tmp102705 (let () (declare (not safe)) - (&raw-table-free _%tab96943%_)))) + (&raw-table-free _%tab98089%_)))) (declare (not safe)) - (##fx- __tmp101556 '1)))) + (##fx- __tmp102705 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab96943%_ __tmp101555)) - (let ((__tmp101557 - (let ((__tmp101558 + (&raw-table-free-set! _%tab98089%_ __tmp102704)) + (let ((__tmp102706 + (let ((__tmp102707 (let () (declare (not safe)) - (&raw-table-count _%tab96943%_)))) + (&raw-table-count _%tab98089%_)))) (declare (not safe)) - (##fx+ __tmp101558 '1)))) + (##fx+ __tmp102707 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96943%_ - __tmp101557)))))) - (if (eq? _%k96975%_ (macro-deleted-obj)) - (_%loop96965%_ - (let ((_%next-probe96982%_ - (fx+ _%start96961%_ - _%i96970%_ - (fx* _%i96970%_ _%i96970%_)))) + _%tab98089%_ + __tmp102706)))))) + (if (eq? _%k98121%_ (macro-deleted-obj)) + (_%loop98111%_ + (let ((_%next-probe98128%_ + (fx+ _%start98107%_ + _%i98116%_ + (fx* _%i98116%_ _%i98116%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96982%_ _%size96955%_)) - (let () (declare (not safe)) (##fx+ _%i96970%_ '1)) - (let ((_%$e96985%_ _%deleted96972%_)) - (if _%$e96985%_ _%$e96985%_ _%probe96968%_))) - (if (eq? _%key96944%_ _%k96975%_) + (##fxmodulo _%next-probe98128%_ _%size98101%_)) + (let () (declare (not safe)) (##fx+ _%i98116%_ '1)) + (let ((_%$e98131%_ _%deleted98118%_)) + (if _%$e98131%_ _%$e98131%_ _%probe98114%_))) + (if (eq? _%key98090%_ _%k98121%_) (let () (vector-set! - _%table96949%_ - _%probe96968%_ - _%key96944%_) + _%table98095%_ + _%probe98114%_ + _%key98090%_) (vector-set! - _%table96949%_ + _%table98095%_ (let () (declare (not safe)) - (##fx+ _%probe96968%_ '1)) - (_%method-specializer-table-update!96945%_ + (##fx+ _%probe98114%_ '1)) + (_%method-specializer-table-update!98091%_ (vector-ref - _%table96949%_ + _%table98095%_ (let () (declare (not safe)) - (##fx+ _%probe96968%_ '1)))))) - (_%loop96965%_ - (let ((_%next-probe96990%_ - (fx+ _%start96961%_ - _%i96970%_ - (fx* _%i96970%_ _%i96970%_)))) + (##fx+ _%probe98114%_ '1)))))) + (_%loop98111%_ + (let ((_%next-probe98136%_ + (fx+ _%start98107%_ + _%i98116%_ + (fx* _%i98116%_ _%i98116%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96990%_ _%size96955%_)) + (##fxmodulo _%next-probe98136%_ _%size98101%_)) (let () (declare (not safe)) - (##fx+ _%i96970%_ '1)) - _%deleted96972%_)))))))))) + (##fx+ _%i98116%_ '1)) + _%deleted98118%_)))))))))) (define method-specializer-table-delete! - (lambda (_%tab96898%_ _%key96900%_) - (let ((_%table96903%_ - (let () (declare (not safe)) (&raw-table-table _%tab96898%_))) - (_%seed96905%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96898%_)))) - (let* ((_%h96908%_ + (lambda (_%tab98044%_ _%key98046%_) + (let ((_%table98049%_ + (let () (declare (not safe)) (&raw-table-table _%tab98044%_))) + (_%seed98051%_ + (let () (declare (not safe)) (&raw-table-seed _%tab98044%_)))) + (let* ((_%h98054%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key96900%_)) - _%seed96905%_)) - (_%size96911%_ (vector-length _%table96903%_)) - (_%entries96914%_ + (procedure-hash _%key98046%_)) + _%seed98051%_)) + (_%size98057%_ (vector-length _%table98049%_)) + (_%entries98060%_ (let () (declare (not safe)) - (##fxquotient _%size96911%_ '2))) - (_%start96917%_ - (let ((__tmp101559 + (##fxquotient _%size98057%_ '2))) + (_%start98063%_ + (let ((__tmp102708 (let () (declare (not safe)) - (##fxmodulo _%h96908%_ _%entries96914%_)))) + (##fxmodulo _%h98054%_ _%entries98060%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101559 '1)))) - (let _%loop96921%_ ((_%probe96924%_ _%start96917%_) - (_%i96926%_ '1)) - (let ((_%k96929%_ (vector-ref _%table96903%_ _%probe96924%_))) - (if (eq? _%k96929%_ (macro-unused-obj)) + (##fxarithmetic-shift-left __tmp102708 '1)))) + (let _%loop98067%_ ((_%probe98070%_ _%start98063%_) + (_%i98072%_ '1)) + (let ((_%k98075%_ (vector-ref _%table98049%_ _%probe98070%_))) + (if (eq? _%k98075%_ (macro-unused-obj)) '#!void - (if (eq? _%k96929%_ (macro-deleted-obj)) - (_%loop96921%_ - (let ((_%next-probe96934%_ - (fx+ _%start96917%_ - _%i96926%_ - (fx* _%i96926%_ _%i96926%_)))) + (if (eq? _%k98075%_ (macro-deleted-obj)) + (_%loop98067%_ + (let ((_%next-probe98080%_ + (fx+ _%start98063%_ + _%i98072%_ + (fx* _%i98072%_ _%i98072%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96934%_ _%size96911%_)) - (let () (declare (not safe)) (##fx+ _%i96926%_ '1))) - (if (eq? _%key96900%_ _%k96929%_) + (##fxmodulo _%next-probe98080%_ _%size98057%_)) + (let () (declare (not safe)) (##fx+ _%i98072%_ '1))) + (if (eq? _%key98046%_ _%k98075%_) (let () (vector-set! - _%table96903%_ - _%probe96924%_ + _%table98049%_ + _%probe98070%_ (macro-deleted-obj)) (vector-set! - _%table96903%_ + _%table98049%_ (let () (declare (not safe)) - (##fx+ _%probe96924%_ '1)) + (##fx+ _%probe98070%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp101560 - (let ((__tmp101561 + (let ((__tmp102709 + (let ((__tmp102710 (let () (declare (not safe)) (&raw-table-count - _%tab96898%_)))) + _%tab98044%_)))) (declare (not safe)) - (##fx- __tmp101561 '1)))) + (##fx- __tmp102710 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96898%_ - __tmp101560))))) - (_%loop96921%_ - (let ((_%next-probe96940%_ - (fx+ _%start96917%_ - _%i96926%_ - (fx* _%i96926%_ _%i96926%_)))) + _%tab98044%_ + __tmp102709))))) + (_%loop98067%_ + (let ((_%next-probe98086%_ + (fx+ _%start98063%_ + _%i98072%_ + (fx* _%i98072%_ _%i98072%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96940%_ _%size96911%_)) + (##fxmodulo _%next-probe98086%_ _%size98057%_)) (let () (declare (not safe)) - (##fx+ _%i96926%_ '1)))))))))))) + (##fx+ _%i98072%_ '1)))))))))))) (define __method-specializers (make-method-specializer-table__% '#f '0)) (define __method-specializers-mx (vector '0)) (define bind-specializer! - (lambda (_%method-proc96889%_ _%specializer96890%_) + (lambda (_%method-proc98035%_ _%specializer98036%_) (let () (declare (not interrupts-enabled)) - (let _%again96894%_ () - (if (let ((__tmp101562 + (let _%again98040%_ () + (if (let ((__tmp102711 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101562 '0)) + (##fx= __tmp102711 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again96894%_))))) + (_%again98040%_))))) (method-specializer-table-set! __method-specializers - _%method-proc96889%_ - _%specializer96890%_) + _%method-proc98035%_ + _%specializer98036%_) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)))) (define __lookup-method-specializer - (lambda (_%proc96879%_) + (lambda (_%proc98025%_) (let () (declare (not interrupts-enabled)) - (let _%again96883%_ () - (if (let ((__tmp101563 + (let _%again98029%_ () + (if (let ((__tmp102712 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101563 '0)) + (##fx= __tmp102712 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again96883%_))))) - (let ((_%specializer96887%_ + (_%again98029%_))))) + (let ((_%specializer98033%_ (method-specializer-table-ref __method-specializers - _%proc96879%_ + _%proc98025%_ '#f))) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)) - _%specializer96887%_))) + _%specializer98033%_))) (define __class-specializer-hash-key - (lambda (_%klass96877%_) - (let ((__tmp101564 - (let () (declare (not safe)) (##type-id _%klass96877%_)))) + (lambda (_%klass98023%_) + (let ((__tmp102713 + (let () (declare (not safe)) (##type-id _%klass98023%_)))) (declare (not safe)) - (symbolic-hash __tmp101564)))) + (symbolic-hash __tmp102713)))) (define make-class-specializer-table__% - (lambda (_%size-hint96858%_ _%seed96860%_) + (lambda (_%size-hint98004%_ _%seed98006%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint96858%_ + _%size-hint98004%_ __class-specializer-hash-key eq? - _%seed96860%_)))) + _%seed98006%_)))) (define make-class-specializer-table__0 (lambda () - (let* ((_%size-hint96866%_ '#f) (_%seed96868%_ '0)) - (make-class-specializer-table__% _%size-hint96866%_ _%seed96868%_)))) + (let* ((_%size-hint98012%_ '#f) (_%seed98014%_ '0)) + (make-class-specializer-table__% _%size-hint98012%_ _%seed98014%_)))) (define make-class-specializer-table__1 - (lambda (_%size-hint96870%_) - (let ((_%seed96872%_ '0)) - (make-class-specializer-table__% _%size-hint96870%_ _%seed96872%_)))) + (lambda (_%size-hint98016%_) + (let ((_%seed98018%_ '0)) + (make-class-specializer-table__% _%size-hint98016%_ _%seed98018%_)))) (define make-class-specializer-table - (lambda _g101566_ - (let ((_g101565_ (let () (declare (not safe)) (##length _g101566_)))) - (cond ((let () (declare (not safe)) (##fx= _g101565_ 0)) - (apply make-class-specializer-table__0 _g101566_)) - ((let () (declare (not safe)) (##fx= _g101565_ 1)) - (apply make-class-specializer-table__1 _g101566_)) - ((let () (declare (not safe)) (##fx= _g101565_ 2)) - (apply make-class-specializer-table__% _g101566_)) + (lambda _g102715_ + (let ((_g102714_ (let () (declare (not safe)) (##length _g102715_)))) + (cond ((let () (declare (not safe)) (##fx= _g102714_ 0)) + (apply make-class-specializer-table__0 _g102715_)) + ((let () (declare (not safe)) (##fx= _g102714_ 1)) + (apply make-class-specializer-table__1 _g102715_)) + ((let () (declare (not safe)) (##fx= _g102714_ 2)) + (apply make-class-specializer-table__% _g102715_)) (else (##raise-wrong-number-of-arguments-exception make-class-specializer-table - _g101566_)))))) + _g102715_)))))) (define class-specializer-table-ref - (lambda (_%tab96811%_ _%key96812%_ _%default96813%_) - (let ((_%table96815%_ - (let () (declare (not safe)) (&raw-table-table _%tab96811%_))) - (_%seed96816%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96811%_)))) - (let* ((_%h96818%_ - (fxxor (__class-specializer-hash-key _%key96812%_) - _%seed96816%_)) - (_%size96821%_ (vector-length _%table96815%_)) - (_%entries96824%_ + (lambda (_%tab97957%_ _%key97958%_ _%default97959%_) + (let ((_%table97961%_ + (let () (declare (not safe)) (&raw-table-table _%tab97957%_))) + (_%seed97962%_ + (let () (declare (not safe)) (&raw-table-seed _%tab97957%_)))) + (let* ((_%h97964%_ + (fxxor (__class-specializer-hash-key _%key97958%_) + _%seed97962%_)) + (_%size97967%_ (vector-length _%table97961%_)) + (_%entries97970%_ (let () (declare (not safe)) - (##fxquotient _%size96821%_ '2))) - (_%start96827%_ - (let ((__tmp101567 + (##fxquotient _%size97967%_ '2))) + (_%start97973%_ + (let ((__tmp102716 (let () (declare (not safe)) - (##fxmodulo _%h96818%_ _%entries96824%_)))) + (##fxmodulo _%h97964%_ _%entries97970%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101567 '1)))) - (let _%loop96831%_ ((_%probe96834%_ _%start96827%_) - (_%i96836%_ '1) - (_%deleted96838%_ '#f)) - (let ((_%k96841%_ (vector-ref _%table96815%_ _%probe96834%_))) - (if (eq? _%k96841%_ (macro-unused-obj)) - _%default96813%_ - (if (eq? _%k96841%_ (macro-deleted-obj)) - (_%loop96831%_ - (let ((_%next-probe96846%_ - (fx+ _%start96827%_ - _%i96836%_ - (fx* _%i96836%_ _%i96836%_)))) + (##fxarithmetic-shift-left __tmp102716 '1)))) + (let _%loop97977%_ ((_%probe97980%_ _%start97973%_) + (_%i97982%_ '1) + (_%deleted97984%_ '#f)) + (let ((_%k97987%_ (vector-ref _%table97961%_ _%probe97980%_))) + (if (eq? _%k97987%_ (macro-unused-obj)) + _%default97959%_ + (if (eq? _%k97987%_ (macro-deleted-obj)) + (_%loop97977%_ + (let ((_%next-probe97992%_ + (fx+ _%start97973%_ + _%i97982%_ + (fx* _%i97982%_ _%i97982%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96846%_ _%size96821%_)) - (let () (declare (not safe)) (##fx+ _%i96836%_ '1)) - (let ((_%$e96849%_ _%deleted96838%_)) - (if _%$e96849%_ _%$e96849%_ _%probe96834%_))) - (if (eq? _%key96812%_ _%k96841%_) + (##fxmodulo _%next-probe97992%_ _%size97967%_)) + (let () (declare (not safe)) (##fx+ _%i97982%_ '1)) + (let ((_%$e97995%_ _%deleted97984%_)) + (if _%$e97995%_ _%$e97995%_ _%probe97980%_))) + (if (eq? _%key97958%_ _%k97987%_) (vector-ref - _%table96815%_ + _%table97961%_ (let () (declare (not safe)) - (##fx+ _%probe96834%_ '1))) - (_%loop96831%_ - (let ((_%next-probe96854%_ - (fx+ _%start96827%_ - _%i96836%_ - (fx* _%i96836%_ _%i96836%_)))) + (##fx+ _%probe97980%_ '1))) + (_%loop97977%_ + (let ((_%next-probe98000%_ + (fx+ _%start97973%_ + _%i97982%_ + (fx* _%i97982%_ _%i97982%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96854%_ _%size96821%_)) + (##fxmodulo _%next-probe98000%_ _%size97967%_)) (let () (declare (not safe)) - (##fx+ _%i96836%_ '1)) - _%deleted96838%_)))))))))) + (##fx+ _%i97982%_ '1)) + _%deleted97984%_)))))))))) (define class-specializer-table-set! - (lambda (_%tab96807%_ _%key96808%_ _%value96809%_) - (if (let ((__tmp101570 + (lambda (_%tab97953%_ _%key97954%_ _%value97955%_) + (if (let ((__tmp102719 (let () (declare (not safe)) - (&raw-table-free _%tab96807%_))) - (__tmp101568 - (let ((__tmp101569 + (&raw-table-free _%tab97953%_))) + (__tmp102717 + (let ((__tmp102718 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab96807%_))))) + (&raw-table-table _%tab97953%_))))) (declare (not safe)) - (##fxquotient __tmp101569 '4)))) + (##fxquotient __tmp102718 '4)))) (declare (not safe)) - (##fx< __tmp101570 __tmp101568)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab96807%_)) + (##fx< __tmp102719 __tmp102717)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab97953%_)) '#!void) (__class-specializer-table-set! - _%tab96807%_ - _%key96808%_ - _%value96809%_))) + _%tab97953%_ + _%key97954%_ + _%value97955%_))) (define __class-specializer-table-set! - (lambda (_%tab96758%_ _%key96759%_ _%value96760%_) - (let ((_%table96763%_ - (let () (declare (not safe)) (&raw-table-table _%tab96758%_))) - (_%seed96764%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96758%_)))) - (let* ((_%h96766%_ - (fxxor (__class-specializer-hash-key _%key96759%_) - _%seed96764%_)) - (_%size96769%_ (vector-length _%table96763%_)) - (_%entries96772%_ + (lambda (_%tab97904%_ _%key97905%_ _%value97906%_) + (let ((_%table97909%_ + (let () (declare (not safe)) (&raw-table-table _%tab97904%_))) + (_%seed97910%_ + (let () (declare (not safe)) (&raw-table-seed _%tab97904%_)))) + (let* ((_%h97912%_ + (fxxor (__class-specializer-hash-key _%key97905%_) + _%seed97910%_)) + (_%size97915%_ (vector-length _%table97909%_)) + (_%entries97918%_ (let () (declare (not safe)) - (##fxquotient _%size96769%_ '2))) - (_%start96775%_ - (let ((__tmp101571 + (##fxquotient _%size97915%_ '2))) + (_%start97921%_ + (let ((__tmp102720 (let () (declare (not safe)) - (##fxmodulo _%h96766%_ _%entries96772%_)))) + (##fxmodulo _%h97912%_ _%entries97918%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101571 '1)))) - (let _%loop96779%_ ((_%probe96782%_ _%start96775%_) - (_%i96784%_ '1) - (_%deleted96786%_ '#f)) - (let ((_%k96789%_ (vector-ref _%table96763%_ _%probe96782%_))) - (if (eq? _%k96789%_ (macro-unused-obj)) - (if _%deleted96786%_ + (##fxarithmetic-shift-left __tmp102720 '1)))) + (let _%loop97925%_ ((_%probe97928%_ _%start97921%_) + (_%i97930%_ '1) + (_%deleted97932%_ '#f)) + (let ((_%k97935%_ (vector-ref _%table97909%_ _%probe97928%_))) + (if (eq? _%k97935%_ (macro-unused-obj)) + (if _%deleted97932%_ (begin (vector-set! - _%table96763%_ - _%deleted96786%_ - _%key96759%_) + _%table97909%_ + _%deleted97932%_ + _%key97905%_) (vector-set! - _%table96763%_ + _%table97909%_ (let () (declare (not safe)) - (##fx+ _%deleted96786%_ '1)) - _%value96760%_) + (##fx+ _%deleted97932%_ '1)) + _%value97906%_) ((lambda () - (let ((__tmp101572 - (let ((__tmp101573 + (let ((__tmp102721 + (let ((__tmp102722 (let () (declare (not safe)) - (&raw-table-count _%tab96758%_)))) + (&raw-table-count _%tab97904%_)))) (declare (not safe)) - (##fx+ __tmp101573 '1)))) + (##fx+ __tmp102722 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96758%_ - __tmp101572))))) + _%tab97904%_ + __tmp102721))))) (begin (vector-set! - _%table96763%_ - _%probe96782%_ - _%key96759%_) + _%table97909%_ + _%probe97928%_ + _%key97905%_) (vector-set! - _%table96763%_ + _%table97909%_ (let () (declare (not safe)) - (##fx+ _%probe96782%_ '1)) - _%value96760%_) + (##fx+ _%probe97928%_ '1)) + _%value97906%_) ((lambda () - (let ((__tmp101574 - (let ((__tmp101575 + (let ((__tmp102723 + (let ((__tmp102724 (let () (declare (not safe)) - (&raw-table-free _%tab96758%_)))) + (&raw-table-free _%tab97904%_)))) (declare (not safe)) - (##fx- __tmp101575 '1)))) + (##fx- __tmp102724 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab96758%_ __tmp101574)) - (let ((__tmp101576 - (let ((__tmp101577 + (&raw-table-free-set! _%tab97904%_ __tmp102723)) + (let ((__tmp102725 + (let ((__tmp102726 (let () (declare (not safe)) - (&raw-table-count _%tab96758%_)))) + (&raw-table-count _%tab97904%_)))) (declare (not safe)) - (##fx+ __tmp101577 '1)))) + (##fx+ __tmp102726 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96758%_ - __tmp101576)))))) - (if (eq? _%k96789%_ (macro-deleted-obj)) - (_%loop96779%_ - (let ((_%next-probe96796%_ - (fx+ _%start96775%_ - _%i96784%_ - (fx* _%i96784%_ _%i96784%_)))) + _%tab97904%_ + __tmp102725)))))) + (if (eq? _%k97935%_ (macro-deleted-obj)) + (_%loop97925%_ + (let ((_%next-probe97942%_ + (fx+ _%start97921%_ + _%i97930%_ + (fx* _%i97930%_ _%i97930%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96796%_ _%size96769%_)) - (let () (declare (not safe)) (##fx+ _%i96784%_ '1)) - (let ((_%$e96799%_ _%deleted96786%_)) - (if _%$e96799%_ _%$e96799%_ _%probe96782%_))) - (if (eq? _%key96759%_ _%k96789%_) + (##fxmodulo _%next-probe97942%_ _%size97915%_)) + (let () (declare (not safe)) (##fx+ _%i97930%_ '1)) + (let ((_%$e97945%_ _%deleted97932%_)) + (if _%$e97945%_ _%$e97945%_ _%probe97928%_))) + (if (eq? _%key97905%_ _%k97935%_) (let () (vector-set! - _%table96763%_ - _%probe96782%_ - _%key96759%_) + _%table97909%_ + _%probe97928%_ + _%key97905%_) (vector-set! - _%table96763%_ + _%table97909%_ (let () (declare (not safe)) - (##fx+ _%probe96782%_ '1)) - _%value96760%_)) - (_%loop96779%_ - (let ((_%next-probe96804%_ - (fx+ _%start96775%_ - _%i96784%_ - (fx* _%i96784%_ _%i96784%_)))) + (##fx+ _%probe97928%_ '1)) + _%value97906%_)) + (_%loop97925%_ + (let ((_%next-probe97950%_ + (fx+ _%start97921%_ + _%i97930%_ + (fx* _%i97930%_ _%i97930%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96804%_ _%size96769%_)) + (##fxmodulo _%next-probe97950%_ _%size97915%_)) (let () (declare (not safe)) - (##fx+ _%i96784%_ '1)) - _%deleted96786%_)))))))))) + (##fx+ _%i97930%_ '1)) + _%deleted97932%_)))))))))) (define class-specializer-table-update! - (lambda (_%tab96753%_ - _%key96754%_ - _%class-specializer-table-update!96755%_ - _%default96756%_) - (if (let ((__tmp101580 + (lambda (_%tab97899%_ + _%key97900%_ + _%class-specializer-table-update!97901%_ + _%default97902%_) + (if (let ((__tmp102729 (let () (declare (not safe)) - (&raw-table-free _%tab96753%_))) - (__tmp101578 - (let ((__tmp101579 + (&raw-table-free _%tab97899%_))) + (__tmp102727 + (let ((__tmp102728 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab96753%_))))) + (&raw-table-table _%tab97899%_))))) (declare (not safe)) - (##fxquotient __tmp101579 '4)))) + (##fxquotient __tmp102728 '4)))) (declare (not safe)) - (##fx< __tmp101580 __tmp101578)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab96753%_)) + (##fx< __tmp102729 __tmp102727)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab97899%_)) '#!void) (__class-specializer-table-update! - _%tab96753%_ - _%key96754%_ - _%class-specializer-table-update!96755%_ - _%default96756%_))) + _%tab97899%_ + _%key97900%_ + _%class-specializer-table-update!97901%_ + _%default97902%_))) (define __class-specializer-table-update! - (lambda (_%tab96703%_ - _%key96704%_ - _%class-specializer-table-update!96705%_ - _%default96706%_) - (let ((_%table96709%_ - (let () (declare (not safe)) (&raw-table-table _%tab96703%_))) - (_%seed96710%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96703%_)))) - (let* ((_%h96712%_ - (fxxor (__class-specializer-hash-key _%key96704%_) - _%seed96710%_)) - (_%size96715%_ (vector-length _%table96709%_)) - (_%entries96718%_ + (lambda (_%tab97849%_ + _%key97850%_ + _%class-specializer-table-update!97851%_ + _%default97852%_) + (let ((_%table97855%_ + (let () (declare (not safe)) (&raw-table-table _%tab97849%_))) + (_%seed97856%_ + (let () (declare (not safe)) (&raw-table-seed _%tab97849%_)))) + (let* ((_%h97858%_ + (fxxor (__class-specializer-hash-key _%key97850%_) + _%seed97856%_)) + (_%size97861%_ (vector-length _%table97855%_)) + (_%entries97864%_ (let () (declare (not safe)) - (##fxquotient _%size96715%_ '2))) - (_%start96721%_ - (let ((__tmp101581 + (##fxquotient _%size97861%_ '2))) + (_%start97867%_ + (let ((__tmp102730 (let () (declare (not safe)) - (##fxmodulo _%h96712%_ _%entries96718%_)))) + (##fxmodulo _%h97858%_ _%entries97864%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101581 '1)))) - (let _%loop96725%_ ((_%probe96728%_ _%start96721%_) - (_%i96730%_ '1) - (_%deleted96732%_ '#f)) - (let ((_%k96735%_ (vector-ref _%table96709%_ _%probe96728%_))) - (if (eq? _%k96735%_ (macro-unused-obj)) - (if _%deleted96732%_ + (##fxarithmetic-shift-left __tmp102730 '1)))) + (let _%loop97871%_ ((_%probe97874%_ _%start97867%_) + (_%i97876%_ '1) + (_%deleted97878%_ '#f)) + (let ((_%k97881%_ (vector-ref _%table97855%_ _%probe97874%_))) + (if (eq? _%k97881%_ (macro-unused-obj)) + (if _%deleted97878%_ (begin (vector-set! - _%table96709%_ - _%deleted96732%_ - _%key96704%_) + _%table97855%_ + _%deleted97878%_ + _%key97850%_) (vector-set! - _%table96709%_ + _%table97855%_ (let () (declare (not safe)) - (##fx+ _%deleted96732%_ '1)) - (_%class-specializer-table-update!96705%_ - _%default96706%_)) + (##fx+ _%deleted97878%_ '1)) + (_%class-specializer-table-update!97851%_ + _%default97852%_)) ((lambda () - (let ((__tmp101582 - (let ((__tmp101583 + (let ((__tmp102731 + (let ((__tmp102732 (let () (declare (not safe)) - (&raw-table-count _%tab96703%_)))) + (&raw-table-count _%tab97849%_)))) (declare (not safe)) - (##fx+ __tmp101583 '1)))) + (##fx+ __tmp102732 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96703%_ - __tmp101582))))) + _%tab97849%_ + __tmp102731))))) (begin (vector-set! - _%table96709%_ - _%probe96728%_ - _%key96704%_) + _%table97855%_ + _%probe97874%_ + _%key97850%_) (vector-set! - _%table96709%_ + _%table97855%_ (let () (declare (not safe)) - (##fx+ _%probe96728%_ '1)) - (_%class-specializer-table-update!96705%_ - _%default96706%_)) + (##fx+ _%probe97874%_ '1)) + (_%class-specializer-table-update!97851%_ + _%default97852%_)) ((lambda () - (let ((__tmp101584 - (let ((__tmp101585 + (let ((__tmp102733 + (let ((__tmp102734 (let () (declare (not safe)) - (&raw-table-free _%tab96703%_)))) + (&raw-table-free _%tab97849%_)))) (declare (not safe)) - (##fx- __tmp101585 '1)))) + (##fx- __tmp102734 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab96703%_ __tmp101584)) - (let ((__tmp101586 - (let ((__tmp101587 + (&raw-table-free-set! _%tab97849%_ __tmp102733)) + (let ((__tmp102735 + (let ((__tmp102736 (let () (declare (not safe)) - (&raw-table-count _%tab96703%_)))) + (&raw-table-count _%tab97849%_)))) (declare (not safe)) - (##fx+ __tmp101587 '1)))) + (##fx+ __tmp102736 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96703%_ - __tmp101586)))))) - (if (eq? _%k96735%_ (macro-deleted-obj)) - (_%loop96725%_ - (let ((_%next-probe96742%_ - (fx+ _%start96721%_ - _%i96730%_ - (fx* _%i96730%_ _%i96730%_)))) + _%tab97849%_ + __tmp102735)))))) + (if (eq? _%k97881%_ (macro-deleted-obj)) + (_%loop97871%_ + (let ((_%next-probe97888%_ + (fx+ _%start97867%_ + _%i97876%_ + (fx* _%i97876%_ _%i97876%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96742%_ _%size96715%_)) - (let () (declare (not safe)) (##fx+ _%i96730%_ '1)) - (let ((_%$e96745%_ _%deleted96732%_)) - (if _%$e96745%_ _%$e96745%_ _%probe96728%_))) - (if (eq? _%key96704%_ _%k96735%_) + (##fxmodulo _%next-probe97888%_ _%size97861%_)) + (let () (declare (not safe)) (##fx+ _%i97876%_ '1)) + (let ((_%$e97891%_ _%deleted97878%_)) + (if _%$e97891%_ _%$e97891%_ _%probe97874%_))) + (if (eq? _%key97850%_ _%k97881%_) (let () (vector-set! - _%table96709%_ - _%probe96728%_ - _%key96704%_) + _%table97855%_ + _%probe97874%_ + _%key97850%_) (vector-set! - _%table96709%_ + _%table97855%_ (let () (declare (not safe)) - (##fx+ _%probe96728%_ '1)) - (_%class-specializer-table-update!96705%_ + (##fx+ _%probe97874%_ '1)) + (_%class-specializer-table-update!97851%_ (vector-ref - _%table96709%_ + _%table97855%_ (let () (declare (not safe)) - (##fx+ _%probe96728%_ '1)))))) - (_%loop96725%_ - (let ((_%next-probe96750%_ - (fx+ _%start96721%_ - _%i96730%_ - (fx* _%i96730%_ _%i96730%_)))) + (##fx+ _%probe97874%_ '1)))))) + (_%loop97871%_ + (let ((_%next-probe97896%_ + (fx+ _%start97867%_ + _%i97876%_ + (fx* _%i97876%_ _%i97876%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96750%_ _%size96715%_)) + (##fxmodulo _%next-probe97896%_ _%size97861%_)) (let () (declare (not safe)) - (##fx+ _%i96730%_ '1)) - _%deleted96732%_)))))))))) + (##fx+ _%i97876%_ '1)) + _%deleted97878%_)))))))))) (define class-specializer-table-delete! - (lambda (_%tab96658%_ _%key96660%_) - (let ((_%table96663%_ - (let () (declare (not safe)) (&raw-table-table _%tab96658%_))) - (_%seed96665%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96658%_)))) - (let* ((_%h96668%_ - (fxxor (__class-specializer-hash-key _%key96660%_) - _%seed96665%_)) - (_%size96671%_ (vector-length _%table96663%_)) - (_%entries96674%_ + (lambda (_%tab97804%_ _%key97806%_) + (let ((_%table97809%_ + (let () (declare (not safe)) (&raw-table-table _%tab97804%_))) + (_%seed97811%_ + (let () (declare (not safe)) (&raw-table-seed _%tab97804%_)))) + (let* ((_%h97814%_ + (fxxor (__class-specializer-hash-key _%key97806%_) + _%seed97811%_)) + (_%size97817%_ (vector-length _%table97809%_)) + (_%entries97820%_ (let () (declare (not safe)) - (##fxquotient _%size96671%_ '2))) - (_%start96677%_ - (let ((__tmp101588 + (##fxquotient _%size97817%_ '2))) + (_%start97823%_ + (let ((__tmp102737 (let () (declare (not safe)) - (##fxmodulo _%h96668%_ _%entries96674%_)))) + (##fxmodulo _%h97814%_ _%entries97820%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101588 '1)))) - (let _%loop96681%_ ((_%probe96684%_ _%start96677%_) - (_%i96686%_ '1)) - (let ((_%k96689%_ (vector-ref _%table96663%_ _%probe96684%_))) - (if (eq? _%k96689%_ (macro-unused-obj)) + (##fxarithmetic-shift-left __tmp102737 '1)))) + (let _%loop97827%_ ((_%probe97830%_ _%start97823%_) + (_%i97832%_ '1)) + (let ((_%k97835%_ (vector-ref _%table97809%_ _%probe97830%_))) + (if (eq? _%k97835%_ (macro-unused-obj)) '#!void - (if (eq? _%k96689%_ (macro-deleted-obj)) - (_%loop96681%_ - (let ((_%next-probe96694%_ - (fx+ _%start96677%_ - _%i96686%_ - (fx* _%i96686%_ _%i96686%_)))) + (if (eq? _%k97835%_ (macro-deleted-obj)) + (_%loop97827%_ + (let ((_%next-probe97840%_ + (fx+ _%start97823%_ + _%i97832%_ + (fx* _%i97832%_ _%i97832%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96694%_ _%size96671%_)) - (let () (declare (not safe)) (##fx+ _%i96686%_ '1))) - (if (eq? _%key96660%_ _%k96689%_) + (##fxmodulo _%next-probe97840%_ _%size97817%_)) + (let () (declare (not safe)) (##fx+ _%i97832%_ '1))) + (if (eq? _%key97806%_ _%k97835%_) (let () (vector-set! - _%table96663%_ - _%probe96684%_ + _%table97809%_ + _%probe97830%_ (macro-deleted-obj)) (vector-set! - _%table96663%_ + _%table97809%_ (let () (declare (not safe)) - (##fx+ _%probe96684%_ '1)) + (##fx+ _%probe97830%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp101589 - (let ((__tmp101590 + (let ((__tmp102738 + (let ((__tmp102739 (let () (declare (not safe)) (&raw-table-count - _%tab96658%_)))) + _%tab97804%_)))) (declare (not safe)) - (##fx- __tmp101590 '1)))) + (##fx- __tmp102739 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96658%_ - __tmp101589))))) - (_%loop96681%_ - (let ((_%next-probe96700%_ - (fx+ _%start96677%_ - _%i96686%_ - (fx* _%i96686%_ _%i96686%_)))) + _%tab97804%_ + __tmp102738))))) + (_%loop97827%_ + (let ((_%next-probe97846%_ + (fx+ _%start97823%_ + _%i97832%_ + (fx* _%i97832%_ _%i97832%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96700%_ _%size96671%_)) + (##fxmodulo _%next-probe97846%_ _%size97817%_)) (let () (declare (not safe)) - (##fx+ _%i96686%_ '1)))))))))))) + (##fx+ _%i97832%_ '1)))))))))))) (define __class-specializers-mx (vector '0)) (define __class-specializers (make-class-specializer-table__% '#f '0)) (define __class-specializers-key (cons '#f '#f)) (define specialize-class - (lambda (_%klass96644%_) + (lambda (_%klass97790%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96644%_ 'class)) - (let ((_%klass96648%_ _%klass96644%_)) - (__specialize-class _%klass96648%_)) + (##structure-instance-of? _%klass97790%_ 'class)) + (let ((_%klass97794%_ _%klass97790%_)) + (__specialize-class _%klass97794%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4560,190 +4601,190 @@ 'contract: 'class-type? 'value: - _%klass96644%_) + _%klass97790%_) '#!void)))) (define __specialize-class - (lambda (_%klass96626%_) - (let* ((_%klass96629%_ _%klass96626%_) - (_%$e96638%_ (__lookup-class-specializer _%klass96629%_))) - (if _%$e96638%_ - _%$e96638%_ - (let ((_%method-table96642%_ - (___specialize-class _%klass96629%_))) + (lambda (_%klass97772%_) + (let* ((_%klass97775%_ _%klass97772%_) + (_%$e97784%_ (__lookup-class-specializer _%klass97775%_))) + (if _%$e97784%_ + _%$e97784%_ + (let ((_%method-table97788%_ + (___specialize-class _%klass97775%_))) (__bind-class-specializer! - _%klass96629%_ - _%method-table96642%_) - _%method-table96642%_))))) + _%klass97775%_ + _%method-table97788%_) + _%method-table97788%_))))) (define __lookup-class-specializer - (lambda (_%klass96616%_) + (lambda (_%klass97762%_) (let () (declare (not interrupts-enabled)) - (let _%again96620%_ () - (if (let ((__tmp101591 + (let _%again97766%_ () + (if (let ((__tmp102740 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101591 '0)) + (##fx= __tmp102740 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again96620%_))))) - (let ((_%method-table96624%_ + (_%again97766%_))))) + (let ((_%method-table97770%_ (class-specializer-table-ref __class-specializers - _%klass96616%_ + _%klass97762%_ '#f))) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)) - _%method-table96624%_))) + _%method-table97770%_))) (define __bind-class-specializer! - (lambda (_%klass96607%_ _%method-table96608%_) + (lambda (_%klass97753%_ _%method-table97754%_) (let () (declare (not interrupts-enabled)) - (let _%again96612%_ () - (if (let ((__tmp101592 + (let _%again97758%_ () + (if (let ((__tmp102741 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101592 '0)) + (##fx= __tmp102741 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again96612%_))))) + (_%again97758%_))))) (class-specializer-table-set! __class-specializers - _%klass96607%_ - _%method-table96608%_) + _%klass97753%_ + _%method-table97754%_) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)))) (define __specialize-method - (lambda (_%klass96591%_ - _%method-table96592%_ - _%method96593%_ - _%proc96594%_) - (let ((_%$e96596%_ + (lambda (_%klass97737%_ + _%method-table97738%_ + _%method97739%_ + _%proc97740%_) + (let ((_%$e97742%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table96592%_ - _%method96593%_ + _%method-table97738%_ + _%method97739%_ '#f)))) - (if _%$e96596%_ - _%$e96596%_ - (let ((_%$e96599%_ (__lookup-method-specializer _%proc96594%_))) - (if _%$e96599%_ - ((lambda (_%specialize96602%_) - (let ((_%specialized-proc96604%_ - (_%specialize96602%_ - _%klass96591%_ - _%method-table96592%_))) + (if _%$e97742%_ + _%$e97742%_ + (let ((_%$e97745%_ (__lookup-method-specializer _%proc97740%_))) + (if _%$e97745%_ + ((lambda (_%specialize97748%_) + (let ((_%specialized-proc97750%_ + (_%specialize97748%_ + _%klass97737%_ + _%method-table97738%_))) (declare (not safe)) (symbolic-table-set! - _%method-table96592%_ - _%method96593%_ - _%specialized-proc96604%_))) - _%$e96599%_) + _%method-table97738%_ + _%method97739%_ + _%specialized-proc97750%_))) + _%$e97745%_) (let () (declare (not safe)) (symbolic-table-set! - _%method-table96592%_ - _%method96593%_ - _%proc96594%_)))))))) + _%method-table97738%_ + _%method97739%_ + _%proc97740%_)))))))) (define ___specialize-class - (lambda (_%klass96533%_) + (lambda (_%klass97679%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96533%_ 'class)) - (if (__class-type-metaclass? _%klass96533%_) - (let ((__method101438 - (__method-ref _%klass96533%_ 'specialize-class))) - (if __method101438 + (##structure-instance-of? _%klass97679%_ 'class)) + (if (__class-type-metaclass? _%klass97679%_) + (let ((__method102587 + (__method-ref _%klass97679%_ 'specialize-class))) + (if __method102587 (let () (declare (not safe)) - (__method101438 _%klass96533%_)) + (__method102587 _%klass97679%_)) (begin (error '"Missing method" - _%klass96533%_ + _%klass97679%_ 'specialize-class) '#!void))) - (if (let ((__tmp101593 + (if (let ((__tmp102742 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass96533%_ + _%klass97679%_ '6 '#f '#f)))) (declare (not safe)) - (__find class-type-metaclass? __tmp101593)) + (__find class-type-metaclass? __tmp102742)) (error '"cannot specialize class that extends metaclass without a metaclass" - _%klass96533%_) - (let ((_%method-table96539%_ + _%klass97679%_) + (let ((_%method-table97685%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _%loop96541%_ ((_%rest96543%_ + (let _%loop97687%_ ((_%rest97689%_ (__class-precedence-list - _%klass96533%_))) - (let* ((_%rest9654496552%_ _%rest96543%_) - (_%else9654696560%_ - (lambda () _%method-table96539%_)) - (_%K9654896579%_ - (lambda (_%rest96563%_ _%xklass96564%_) - (let ((_%xmethod-table9656596567%_ + _%klass97679%_))) + (let* ((_%rest9769097698%_ _%rest97689%_) + (_%else9769297706%_ + (lambda () _%method-table97685%_)) + (_%K9769497725%_ + (lambda (_%rest97709%_ _%xklass97710%_) + (let ((_%xmethod-table9771197713%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%xklass96564%_ + _%xklass97710%_ '11 '#f '#f)))) - (if _%xmethod-table9656596567%_ - (let* ((_%xmethod-table96570%_ - _%xmethod-table9656596567%_) - (__tmp101594 - (lambda (_%g9657196574%_ - _%g9657296576%_) + (if _%xmethod-table9771197713%_ + (let* ((_%xmethod-table97716%_ + _%xmethod-table9771197713%_) + (__tmp102743 + (lambda (_%g9771797720%_ + _%g9771897722%_) (__specialize-method - _%klass96533%_ - _%method-table96539%_ - _%g9657196574%_ - _%g9657296576%_)))) + _%klass97679%_ + _%method-table97685%_ + _%g9771797720%_ + _%g9771897722%_)))) (declare (not safe)) (raw-table-for-each - _%xmethod-table96570%_ - __tmp101594)) + _%xmethod-table97716%_ + __tmp102743)) '#f)) - (_%loop96541%_ _%rest96563%_)))) - (if (pair? _%rest9654496552%_) - (let ((_%hd9654996582%_ + (_%loop97687%_ _%rest97709%_)))) + (if (pair? _%rest9769097698%_) + (let ((_%hd9769597728%_ (let () (declare (not safe)) - (##car _%rest9654496552%_))) - (_%tl9655096584%_ + (##car _%rest9769097698%_))) + (_%tl9769697730%_ (let () (declare (not safe)) - (##cdr _%rest9654496552%_)))) - (let* ((_%xklass96587%_ _%hd9654996582%_) - (_%rest96589%_ _%tl9655096584%_)) - (_%K9654896579%_ - _%rest96589%_ - _%xklass96587%_))) - (_%else9654696560%_))))))) - (if (let () (declare (not safe)) (##type? _%klass96533%_)) - (__specialize-class (__shadow-class _%klass96533%_)) - (error '"bad class; cannot specialize" _%klass96533%_))))) + (##cdr _%rest9769097698%_)))) + (let* ((_%xklass97733%_ _%hd9769597728%_) + (_%rest97735%_ _%tl9769697730%_)) + (_%K9769497725%_ + _%rest97735%_ + _%xklass97733%_))) + (_%else9769297706%_))))))) + (if (let () (declare (not safe)) (##type? _%klass97679%_)) + (__specialize-class (__shadow-class _%klass97679%_)) + (error '"bad class; cannot specialize" _%klass97679%_))))) (define seal-class! - (lambda (_%klass96519%_) + (lambda (_%klass97665%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96519%_ 'class)) - (let ((_%klass96523%_ _%klass96519%_)) - (__seal-class! _%klass96523%_)) + (##structure-instance-of? _%klass97665%_ 'class)) + (let ((_%klass97669%_ _%klass97665%_)) + (__seal-class! _%klass97669%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4752,60 +4793,60 @@ 'contract: 'class-type? 'value: - _%klass96519%_) + _%klass97665%_) '#!void)))) (define __seal-class! - (lambda (_%klass96502%_) - (let ((_%klass96505%_ _%klass96502%_)) - (if (__class-type-sealed? _%klass96505%_) + (lambda (_%klass97648%_) + (let ((_%klass97651%_ _%klass97648%_)) + (if (__class-type-sealed? _%klass97651%_) '#!void (begin - (if (__class-type-final? _%klass96505%_) + (if (__class-type-final? _%klass97651%_) '#!void - (error '"cannot seal non-final class" _%klass96505%_)) - (if (__class-type-metaclass? _%klass96505%_) - (let ((__method101439 - (__method-ref _%klass96505%_ 'seal-class!))) - (if __method101439 + (error '"cannot seal non-final class" _%klass97651%_)) + (if (__class-type-metaclass? _%klass97651%_) + (let ((__method102588 + (__method-ref _%klass97651%_ 'seal-class!))) + (if __method102588 (let () (declare (not safe)) - (__method101439 _%klass96505%_)) + (__method102588 _%klass97651%_)) (begin (error '"Missing method" - _%klass96505%_ + _%klass97651%_ 'seal-class!) '#!void))) - (if (let ((__tmp101595 + (if (let ((__tmp102744 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass96505%_ + _%klass97651%_ '6 '#f '#f)))) (declare (not safe)) - (__find class-type-metaclass? __tmp101595)) + (__find class-type-metaclass? __tmp102744)) (error '"cannot seal class that extends metaclass without a metaclass" - _%klass96505%_) - (let ((_%method-table96517%_ - (__specialize-class _%klass96505%_))) + _%klass97651%_) + (let ((_%method-table97663%_ + (__specialize-class _%klass97651%_))) (declare (not safe)) (##unchecked-structure-set! - _%klass96505%_ - _%method-table96517%_ + _%klass97651%_ + _%method-table97663%_ '11 '#f '#f)))) - (__class-type-seal! _%klass96505%_)))))) + (__class-type-seal! _%klass97651%_)))))) (define next-method - (lambda (_%subklass96476%_ _%obj96477%_ _%id96478%_) + (lambda (_%subklass97622%_ _%obj97623%_ _%id97624%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%subklass96476%_ 'class)) - (let ((_%subklass96482%_ _%subklass96476%_)) - (if (symbol? _%id96478%_) - (let ((_%id96492%_ _%id96478%_)) - (__next-method _%subklass96482%_ _%obj96477%_ _%id96492%_)) + (##structure-instance-of? _%subklass97622%_ 'class)) + (let ((_%subklass97628%_ _%subklass97622%_)) + (if (symbol? _%id97624%_) + (let ((_%id97638%_ _%id97624%_)) + (__next-method _%subklass97628%_ _%obj97623%_ _%id97638%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4814,7 +4855,7 @@ 'contract: 'symbol? 'value: - _%id96478%_) + _%id97624%_) '#!void))) (begin (raise-contract-violation-error @@ -4824,61 +4865,61 @@ 'contract: 'class-type? 'value: - _%subklass96476%_) + _%subklass97622%_) '#!void)))) (define __next-method - (lambda (_%subklass96413%_ _%obj96414%_ _%id96415%_) - (let* ((_%subklass96418%_ _%subklass96413%_) (_%id96426%_ _%id96415%_)) - (letrec ((_%find-next-method96435%_ - (lambda (_%klass96437%_) - (let _%lp96439%_ ((_%rest96441%_ + (lambda (_%subklass97559%_ _%obj97560%_ _%id97561%_) + (let* ((_%subklass97564%_ _%subklass97559%_) (_%id97572%_ _%id97561%_)) + (letrec ((_%find-next-method97581%_ + (lambda (_%klass97583%_) + (let _%lp97585%_ ((_%rest97587%_ (class-precedence-list - _%klass96437%_))) - (let* ((_%rest9644296450%_ _%rest96441%_) - (_%else9644496458%_ (lambda () '#f)) - (_%K9644696464%_ - (lambda (_%rest96461%_ _%klass96462%_) + _%klass97583%_))) + (let* ((_%rest9758897596%_ _%rest97587%_) + (_%else9759097604%_ (lambda () '#f)) + (_%K9759297610%_ + (lambda (_%rest97607%_ _%klass97608%_) (if (eq? (let () (declare (not safe)) - (##type-id _%subklass96418%_)) + (##type-id _%subklass97564%_)) (let () (declare (not safe)) - (##type-id _%klass96462%_))) + (##type-id _%klass97608%_))) (__mixin-find-method - _%rest96461%_ - _%obj96414%_ - _%id96426%_) - (_%lp96439%_ _%rest96461%_))))) - (if (pair? _%rest9644296450%_) - (let ((_%hd9644796467%_ + _%rest97607%_ + _%obj97560%_ + _%id97572%_) + (_%lp97585%_ _%rest97607%_))))) + (if (pair? _%rest9758897596%_) + (let ((_%hd9759397613%_ (let () (declare (not safe)) - (##car _%rest9644296450%_))) - (_%tl9644896469%_ + (##car _%rest9758897596%_))) + (_%tl9759497615%_ (let () (declare (not safe)) - (##cdr _%rest9644296450%_)))) - (let* ((_%klass96472%_ _%hd9644796467%_) - (_%rest96474%_ _%tl9644896469%_)) - (_%K9644696464%_ - _%rest96474%_ - _%klass96472%_))) - (_%else9644496458%_))))))) - (_%find-next-method96435%_ (class-of _%obj96414%_)))))) + (##cdr _%rest9758897596%_)))) + (let* ((_%klass97618%_ _%hd9759397613%_) + (_%rest97620%_ _%tl9759497615%_)) + (_%K9759297610%_ + _%rest97620%_ + _%klass97618%_))) + (_%else9759097604%_))))))) + (_%find-next-method97581%_ (class-of _%obj97560%_)))))) (define call-next-method - (lambda (_%subklass96386%_ _%obj96387%_ _%id96388%_ . _%args96389%_) + (lambda (_%subklass97532%_ _%obj97533%_ _%id97534%_ . _%args97535%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%subklass96386%_ 'class)) - (let ((_%subklass96393%_ _%subklass96386%_)) - (if (symbol? _%id96388%_) - (let ((_%id96403%_ _%id96388%_)) + (##structure-instance-of? _%subklass97532%_ 'class)) + (let ((_%subklass97539%_ _%subklass97532%_)) + (if (symbol? _%id97534%_) + (let ((_%id97549%_ _%id97534%_)) (declare (not safe)) (##apply __call-next-method - _%subklass96393%_ - _%obj96387%_ - _%id96403%_ - _%args96389%_)) + _%subklass97539%_ + _%obj97533%_ + _%id97549%_ + _%args97535%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4887,7 +4928,7 @@ 'contract: 'symbol? 'value: - _%id96388%_) + _%id97534%_) '#!void))) (begin (raise-contract-violation-error @@ -4897,126 +4938,126 @@ 'contract: 'class-type? 'value: - _%subklass96386%_) + _%subklass97532%_) '#!void)))) (define __call-next-method - (lambda (_%subklass96357%_ _%obj96358%_ _%id96359%_ . _%args96360%_) - (let* ((_%subklass96363%_ _%subklass96357%_) - (_%id96371%_ _%id96359%_) - (_%$e96380%_ - (__next-method _%subklass96363%_ _%obj96358%_ _%id96371%_))) - (if _%$e96380%_ - ((lambda (_%methodf96383%_) - (apply _%methodf96383%_ _%obj96358%_ _%args96360%_)) - _%$e96380%_) + (lambda (_%subklass97503%_ _%obj97504%_ _%id97505%_ . _%args97506%_) + (let* ((_%subklass97509%_ _%subklass97503%_) + (_%id97517%_ _%id97505%_) + (_%$e97526%_ + (__next-method _%subklass97509%_ _%obj97504%_ _%id97517%_))) + (if _%$e97526%_ + ((lambda (_%methodf97529%_) + (apply _%methodf97529%_ _%obj97504%_ _%args97506%_)) + _%$e97526%_) (error '"cannot find next method" 'object: - _%obj96358%_ + _%obj97504%_ 'method: - _%id96371%_))))) + _%id97517%_))))) (define write-style - (lambda (_%we96355%_) (macro-writeenv-style _%we96355%_))) + (lambda (_%we97501%_) (values (macro-writeenv-style _%we97501%_)))) (define write-object - (lambda (_%we96346%_ _%obj96347%_) - (let ((_%$e96349%_ (__method-ref _%obj96347%_ ':wr))) - (if _%$e96349%_ - ((lambda (_%method96352%_) - (_%method96352%_ _%obj96347%_ _%we96346%_)) - _%$e96349%_) + (lambda (_%we97492%_ _%obj97493%_) + (let ((_%$e97495%_ (__method-ref _%obj97493%_ ':wr))) + (if _%$e97495%_ + ((lambda (_%method97498%_) + (_%method97498%_ _%obj97493%_ _%we97492%_)) + _%$e97495%_) (let () (declare (not safe)) - (##default-wr _%we96346%_ _%obj96347%_)))))) + (##default-wr _%we97492%_ _%obj97493%_)))))) (define __shadow-classes (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) (define __shadow-classes-mx (vector '0)) (define __shadow-class - (lambda (_%type96261%_) - (letrec ((_%shadow-type-id96263%_ - (lambda (_%type96344%_) - (let ((__tmp101596 + (lambda (_%type97407%_) + (letrec ((_%shadow-type-id97409%_ + (lambda (_%type97490%_) + (let ((__tmp102745 (let () (declare (not safe)) - (##type-name _%type96344%_)))) + (##type-name _%type97490%_)))) (declare (not safe)) - (make-symbol__1 __tmp101596 '"::t")))) - (_%shadow-type-name96264%_ - (lambda (_%type96342%_) - (let () (declare (not safe)) (##type-name _%type96342%_)))) - (_%make-shadow-class96265%_ - (lambda (_%type96334%_ _%precedence-list96335%_) - (let* ((_%super96337%_ - (if (pair? _%precedence-list96335%_) + (make-symbol__1 __tmp102745 '"::t")))) + (_%shadow-type-name97410%_ + (lambda (_%type97488%_) + (let () (declare (not safe)) (##type-name _%type97488%_)))) + (_%make-shadow-class97411%_ + (lambda (_%type97480%_ _%precedence-list97481%_) + (let* ((_%super97483%_ + (if (pair? _%precedence-list97481%_) (cons (let () (declare (not safe)) - (##car _%precedence-list96335%_)) + (##car _%precedence-list97481%_)) '()) '())) - (_%klass96339%_ + (_%klass97485%_ (make-class-type - (_%shadow-type-id96263%_ _%type96334%_) + (_%shadow-type-id97409%_ _%type97480%_) (let () (declare (not safe)) - (##type-name _%type96334%_)) - _%super96337%_ + (##type-name _%type97480%_)) + _%super97483%_ '() (cons (cons 'struct: '#t) (cons (cons 'system: '#t) - (if (__type-extensible? _%type96334%_) + (if (__type-extensible? _%type97480%_) '() (cons (cons 'final: '#t) '())))) '#f))) - (let ((__tmp101597 + (let ((__tmp102746 (let () (declare (not safe)) - (##type-id _%type96334%_)))) + (##type-id _%type97480%_)))) (declare (not safe)) (symbolic-table-set! __shadow-classes - __tmp101597 - _%klass96339%_)) - _%klass96339%_)))) + __tmp102746 + _%klass97485%_)) + _%klass97485%_)))) (let () (declare (not interrupts-enabled)) - (let _%again96269%_ () - (if (let ((__tmp101598 + (let _%again97415%_ () + (if (let ((__tmp102747 (let () (declare (not safe)) (##vector-cas! __shadow-classes-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101598 '0)) + (##fx= __tmp102747 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again96269%_))))) - (let ((_%$e96273%_ - (let ((__tmp101599 + (_%again97415%_))))) + (let ((_%$e97419%_ + (let ((__tmp102748 (let () (declare (not safe)) - (##type-id _%type96261%_)))) + (##type-id _%type97407%_)))) (declare (not safe)) - (symbolic-table-ref __shadow-classes __tmp101599 '#f)))) - (if _%$e96273%_ - ((lambda (_%klass96276%_) + (symbolic-table-ref __shadow-classes __tmp102748 '#f)))) + (if _%$e97419%_ + ((lambda (_%klass97422%_) (let () (declare (not safe)) (##vector-cas! __shadow-classes-mx '0 '0 '1)) - _%klass96276%_) - _%$e96273%_) - (let _%loop96279%_ ((_%super96281%_ + _%klass97422%_) + _%$e97419%_) + (let _%loop97425%_ ((_%super97427%_ (let () (declare (not safe)) - (##type-super _%type96261%_))) - (_%hierarchy96282%_ '())) - (if (not _%super96281%_) - (let _%loop96285%_ ((_%rest96287%_ _%hierarchy96282%_) - (_%precedence-list96288%_ '())) - (let* ((_%rest9628996297%_ _%rest96287%_) - (_%else9629196307%_ + (##type-super _%type97407%_))) + (_%hierarchy97428%_ '())) + (if (not _%super97427%_) + (let _%loop97431%_ ((_%rest97433%_ _%hierarchy97428%_) + (_%precedence-list97434%_ '())) + (let* ((_%rest9743597443%_ _%rest97433%_) + (_%else9743797453%_ (lambda () - (let ((_%klass96305%_ - (_%make-shadow-class96265%_ - _%type96261%_ - _%precedence-list96288%_))) + (let ((_%klass97451%_ + (_%make-shadow-class97411%_ + _%type97407%_ + _%precedence-list97434%_))) (let () (declare (not safe)) (##vector-cas! @@ -5024,111 +5065,245 @@ '0 '0 '1)) - _%klass96305%_))) - (_%K9629396321%_ - (lambda (_%rest96310%_ _%type96311%_) - (let ((_%$e96313%_ - (let ((__tmp101600 + _%klass97451%_))) + (_%K9743997467%_ + (lambda (_%rest97456%_ _%type97457%_) + (let ((_%$e97459%_ + (let ((__tmp102749 (let () (declare (not safe)) - (##type-id _%type96311%_)))) + (##type-id _%type97457%_)))) (declare (not safe)) (symbolic-table-ref __shadow-classes - __tmp101600 + __tmp102749 '#f)))) - (if _%$e96313%_ - ((lambda (_%klass96316%_) - (_%loop96285%_ - _%rest96310%_ - (cons _%klass96316%_ - _%precedence-list96288%_))) - _%$e96313%_) - (let ((_%klass96319%_ - (_%make-shadow-class96265%_ - _%type96311%_ - _%precedence-list96288%_))) - (_%loop96285%_ - _%rest96310%_ - (cons _%klass96319%_ - _%precedence-list96288%_)))))))) - (if (pair? _%rest9628996297%_) - (let ((_%hd9629496324%_ + (if _%$e97459%_ + ((lambda (_%klass97462%_) + (_%loop97431%_ + _%rest97456%_ + (cons _%klass97462%_ + _%precedence-list97434%_))) + _%$e97459%_) + (let ((_%klass97465%_ + (_%make-shadow-class97411%_ + _%type97457%_ + _%precedence-list97434%_))) + (_%loop97431%_ + _%rest97456%_ + (cons _%klass97465%_ + _%precedence-list97434%_)))))))) + (if (pair? _%rest9743597443%_) + (let ((_%hd9744097470%_ (let () (declare (not safe)) - (##car _%rest9628996297%_))) - (_%tl9629596326%_ + (##car _%rest9743597443%_))) + (_%tl9744197472%_ (let () (declare (not safe)) - (##cdr _%rest9628996297%_)))) - (let* ((_%type96329%_ _%hd9629496324%_) - (_%rest96331%_ _%tl9629596326%_)) - (_%K9629396321%_ - _%rest96331%_ - _%type96329%_))) - (_%else9629196307%_)))) - (_%loop96279%_ + (##cdr _%rest9743597443%_)))) + (let* ((_%type97475%_ _%hd9744097470%_) + (_%rest97477%_ _%tl9744197472%_)) + (_%K9743997467%_ + _%rest97477%_ + _%type97475%_))) + (_%else9743797453%_)))) + (_%loop97425%_ (let () (declare (not safe)) - (##type-super _%super96281%_)) - (cons _%super96281%_ _%hierarchy96282%_))))))))) - (define class-of - (lambda (_%obj96234%_) - (let () - (declare (not interrupts-enabled)) - (let ((_%t96238%_ - (let () (declare (not safe)) (##type _%obj96234%_)))) - (if (fx= _%t96238%_ (macro-type-subtyped)) - (let ((_%st96241%_ - (let () (declare (not safe)) (##subtype _%obj96234%_)))) - (if (fx= _%st96241%_ (macro-subtype-structure)) - (let ((_%klass96244%_ - (let () - (declare (not safe)) - (##structure-type _%obj96234%_)))) + (##type-super _%super97427%_)) + (cons _%super97427%_ _%hierarchy97428%_))))))))) + (define __type + (let* ((_%tb97396%_ + (let () + (declare (not safe)) + (##c-code '"___RESULT = ___FIX(___TB);"))) + (_%$e97398%_ _%tb97396%_)) + (if (eq? '2 _%$e97398%_) + '#(fixnum subtyped special pair) + (if (eq? '3 _%$e97398%_) + (let ((_%flonum-self-tagging-tags97401%_ + (let () + (declare (not safe)) + (##c-code + '"___RESULT = ___FIX(___FLONUM_SELF_TAGGING_TAGS);"))) + (_%fixnum-tag-bits97402%_ + (let () + (declare (not safe)) + (##c-code + '"#ifdef ___USE_2_TAG_BITS_FOR_FIXNUMS\n___RESULT = ___FIX(2) ;\n#else\n___RESULT = ___FIX(3) ;\n#endif")))) + (let ((_%$e97404%_ _%flonum-self-tagging-tags97401%_)) + (if (eq? '0 _%$e97404%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96244%_ 'class)) - _%klass96244%_ - (__shadow-class _%klass96244%_))) - (if (fx= _%st96241%_ (macro-subtype-boxvalues)) - (if (let ((__tmp101601 - (let () - (declare (not safe)) - (##vector-length _%obj96234%_)))) + (##fx= _%fixnum-tag-bits97402%_ '2)) + '#(fixnum + subtyped + special + vector + fixnum + pair + undefined + flonum) + '#(fixnum + subtyped + undefined + vector + special + pair + undefined + flonum)) + (if (eq? '1 _%$e97404%_) + (if (let () + (declare (not safe)) + (##fx= _%fixnum-tag-bits97402%_ '2)) + '#(fixnum + subtyped + special + vector + fixnum + pair + flonum + flonum) + '#(fixnum + subtyped + undefined + vector + special + pair + flonum + flonum)) + (if (eq? '2 _%$e97404%_) + '#(fixnum + subtyped + flonum + flonum + special + pair + flonum + undefined) + (if (eq? '3 _%$e97404%_) + '#(fixnum + subtyped + flonum + flonum + special + pair + flonum + flonum) + (if (eq? '4 _%$e97404%_) + '#(fixnum + subtyped + flonum + flonum + special + pair + flonum + flonum) + (error '"unexpected flonum self tagging tags" + _%flonum-self-tagging-tags97401%_)))))))) + (error '"unexpected tag width" _%tb97396%_))))) + (define __class + (let* ((_%len97349%_ + (let () (declare (not safe)) (##vector-length __type))) + (_%cv97351%_ + (let () (declare (not safe)) (##make-vector _%len97349%_ '#f)))) + (let _%loop97354%_ ((_%i97356%_ '0)) + (if (let () (declare (not safe)) (##fx< _%i97356%_ _%len97349%_)) + (let* ((_%t97358%_ + (let () + (declare (not safe)) + (##vector-ref __type _%i97356%_))) + (_%f97393%_ + (if (eq? _%t97358%_ 'undefined) + (lambda (_%obj97361%_) + (error '"object type is undefined" _%obj97361%_)) + (if (let () (declare (not safe)) - (##fx= __tmp101601 '1)) - (__system-class 'box) - (__system-class 'values)) - (let ((_%$e96247%_ - (let () - (declare (not safe)) - (##vector-ref __subtype-id _%st96241%_)))) - (if _%$e96247%_ - (__system-class _%$e96247%_) - (error '"unknown class" - 'subtype: - _%st96241%_ - 'object: - _%obj96234%_)))))) - (if (fx= _%t96238%_ (macro-type-mem2)) - (__system-class 'pair) - (if (fx= _%t96238%_ (macro-type-fixnum)) - (__system-class 'fixnum) - (if (char? _%obj96234%_) - (__system-class 'char) - (if (eq? _%obj96234%_ '()) - (__system-class 'null) - (if (eq? _%obj96234%_ '#f) - (__system-class 'boolean) - (if (eq? _%obj96234%_ '#t) - (__system-class 'boolean) - (if (eq? _%obj96234%_ '#!void) - (__system-class 'void) - (if (eq? _%obj96234%_ '#!eof) - (__system-class 'eof) - (__system-class - 'special)))))))))))))) + (##memq _%t97358%_ + '(fixnum flonum pair vector))) + (lambda (_%obj97364%_) + (declare (not interrupts-enabled) (not safe)) + (__system-class _%t97358%_)) + (if (eq? _%t97358%_ 'subtyped) + (lambda (_%obj97368%_) + (declare + (not interrupts-enabled) + (not safe)) + (let ((_%st97371%_ + (##subtype _%obj97368%_))) + (if (##fx= _%st97371%_ + (macro-subtype-structure)) + (let ((_%klass97374%_ + (##structure-type + _%obj97368%_))) + (if (##structure-instance-of? + _%klass97374%_ + 'class) + _%klass97374%_ + (__shadow-class + _%klass97374%_))) + (if (##fx= _%st97371%_ + (macro-subtype-boxvalues)) + (if (##fx= (##vector-length + _%obj97368%_) + '1) + (__system-class 'box) + (__system-class 'values)) + (let ((_%$e97377%_ + (##vector-ref + __subtype-id + _%st97371%_))) + (if _%$e97377%_ + (__system-class + _%$e97377%_) + (error '"unknown class" + 'subtype: + _%st97371%_ + 'object: + _%obj97368%_))))))) + (if (eq? _%t97358%_ 'special) + (lambda (_%obj97382%_) + (declare + (not interrupts-enabled) + (not safe)) + (if (char? _%obj97382%_) + (__system-class 'char) + (if (eq? _%obj97382%_ '()) + (__system-class 'null) + (if (eq? _%obj97382%_ '#f) + (__system-class 'boolean) + (if (eq? _%obj97382%_ '#t) + (__system-class + 'boolean) + (if (eq? _%obj97382%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#!void) + (__system-class 'void) + (if (eq? _%obj97382%_ '#!eof) + (__system-class 'eof) + (__system-class 'special)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (error '"unexpected object type" + _%t97358%_))))))) + (let () + (declare (not safe)) + (##vector-set! _%cv97351%_ _%i97356%_ _%f97393%_)) + (_%loop97354%_ + (let () (declare (not safe)) (##fx+ _%i97356%_ '1)))) + _%cv97351%_)))) + (define type-of + (lambda (_%obj97345%_) + (let () + (declare (not safe) (not interrupts-enabled)) + (##vector-ref __type (##type _%obj97345%_))))) + (define class-of + (lambda (_%obj97336%_) + (let () + (declare (not safe) (not interrupts-enabled)) + (let* ((_%t97340%_ (##type _%obj97336%_)) + (_%f97342%_ (##vector-ref __class _%t97340%_))) + (_%f97342%_ _%obj97336%_))))) (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) @@ -5159,25 +5334,25 @@ (define __system-classes (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) (define __system-class - (lambda (_%id96228%_) - (let ((_%$e96230%_ + (lambda (_%id97330%_) + (let ((_%$e97332%_ (let () (declare (not safe)) - (symbolic-table-ref __system-classes _%id96228%_ '#f)))) - (if _%$e96230%_ - _%$e96230%_ - (error '"unknown system class" _%id96228%_))))) + (symbolic-table-ref __system-classes _%id97330%_ '#f)))) + (if _%$e97332%_ + _%$e97332%_ + (error '"unknown system class" _%id97330%_))))) (define __make-system-class - (lambda (_%id96223%_ _%super96224%_) - (let ((_%klass96226%_ + (lambda (_%id97325%_ _%super97326%_) + (let ((_%klass97328%_ (make-class-type - _%id96223%_ - _%id96223%_ - _%super96224%_ + _%id97325%_ + _%id97325%_ + _%super97326%_ '() '((system: . #t)) '#f))) (let () (declare (not safe)) - (symbolic-table-set! __system-classes _%id96223%_ _%klass96226%_)) - _%klass96226%_))))) + (symbolic-table-set! __system-classes _%id97325%_ _%klass97328%_)) + _%klass97328%_))))) diff --git a/src/bootstrap/gerbil/runtime/mop~1.scm b/src/bootstrap/gerbil/runtime/mop~1.scm index 005a87511..f336d0d72 100644 --- a/src/bootstrap/gerbil/runtime/mop~1.scm +++ b/src/bootstrap/gerbil/runtime/mop~1.scm @@ -1,309 +1,309 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |[:0:]#fxflag-set?| - (lambda (_%$stx94808%_) - (let* ((_%__stx101312101313%_ _%$stx94808%_) - (_%g9481394842%_ + (lambda (_%$stx95910%_) + (let* ((_%__stx102461102462%_ _%$stx95910%_) + (_%g9591595944%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx101312101313%_)))) - (let ((_%__kont101315101316%_ - (lambda (_%L94935%_ _%L94937%_) + _%__stx102461102462%_)))) + (let ((_%__kont102464102465%_ + (lambda (_%L96037%_ _%L96039%_) (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L94937%_ (cons _%L94935%_ '()))) - (cons _%L94935%_ '()))))) - (_%__kont101317101318%_ - (lambda (_%L94879%_ _%L94881%_) + (cons _%L96039%_ (cons _%L96037%_ '()))) + (cons _%L96037%_ '()))))) + (_%__kont102466102467%_ + (lambda (_%L95981%_ _%L95983%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L94879%_ (cons _%L94879%_ '())) + (cons (cons _%L95981%_ (cons _%L95981%_ '())) (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L94881%_ - (cons _%L94879%_ + (cons _%L95983%_ + (cons _%L95981%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L94879%_ '()))) + (cons _%L95981%_ '()))) '())))))) - (let ((_%__match101339101340%_ - (lambda (_%e9481794905%_ - _%hd9481894909%_ - _%tl9481994912%_ - _%e9482094915%_ - _%hd9482194919%_ - _%tl9482294922%_ - _%e9482394925%_ - _%hd9482494929%_ - _%tl9482594932%_) - (let ((_%L94935%_ _%hd9482494929%_) - (_%L94937%_ _%hd9482194919%_)) - (if (or (gx#identifier? _%L94935%_) - (gx#stx-fixnum? _%L94935%_)) - (_%__kont101315101316%_ _%L94935%_ _%L94937%_) - (_%__kont101317101318%_ - _%hd9482494929%_ - _%hd9482194919%_)))))) - (if (gx#stx-pair? _%__stx101312101313%_) - (let ((_%e9481794905%_ (gx#syntax-e _%__stx101312101313%_))) - (let ((_%tl9481994912%_ - (let () (declare (not safe)) (##cdr _%e9481794905%_))) - (_%hd9481894909%_ + (let ((_%__match102488102489%_ + (lambda (_%e9591996007%_ + _%hd9592096011%_ + _%tl9592196014%_ + _%e9592296017%_ + _%hd9592396021%_ + _%tl9592496024%_ + _%e9592596027%_ + _%hd9592696031%_ + _%tl9592796034%_) + (let ((_%L96037%_ _%hd9592696031%_) + (_%L96039%_ _%hd9592396021%_)) + (if (or (gx#identifier? _%L96037%_) + (gx#stx-fixnum? _%L96037%_)) + (_%__kont102464102465%_ _%L96037%_ _%L96039%_) + (_%__kont102466102467%_ + _%hd9592696031%_ + _%hd9592396021%_)))))) + (if (gx#stx-pair? _%__stx102461102462%_) + (let ((_%e9591996007%_ (gx#syntax-e _%__stx102461102462%_))) + (let ((_%tl9592196014%_ + (let () (declare (not safe)) (##cdr _%e9591996007%_))) + (_%hd9592096011%_ (let () (declare (not safe)) - (##car _%e9481794905%_)))) - (if (gx#stx-pair? _%tl9481994912%_) - (let ((_%e9482094915%_ (gx#syntax-e _%tl9481994912%_))) - (let ((_%tl9482294922%_ + (##car _%e9591996007%_)))) + (if (gx#stx-pair? _%tl9592196014%_) + (let ((_%e9592296017%_ (gx#syntax-e _%tl9592196014%_))) + (let ((_%tl9592496024%_ (let () (declare (not safe)) - (##cdr _%e9482094915%_))) - (_%hd9482194919%_ + (##cdr _%e9592296017%_))) + (_%hd9592396021%_ (let () (declare (not safe)) - (##car _%e9482094915%_)))) - (if (gx#stx-pair? _%tl9482294922%_) - (let ((_%e9482394925%_ - (gx#syntax-e _%tl9482294922%_))) - (let ((_%tl9482594932%_ + (##car _%e9592296017%_)))) + (if (gx#stx-pair? _%tl9592496024%_) + (let ((_%e9592596027%_ + (gx#syntax-e _%tl9592496024%_))) + (let ((_%tl9592796034%_ (let () (declare (not safe)) - (##cdr _%e9482394925%_))) - (_%hd9482494929%_ + (##cdr _%e9592596027%_))) + (_%hd9592696031%_ (let () (declare (not safe)) - (##car _%e9482394925%_)))) - (if (gx#stx-null? _%tl9482594932%_) - (_%__match101339101340%_ - _%e9481794905%_ - _%hd9481894909%_ - _%tl9481994912%_ - _%e9482094915%_ - _%hd9482194919%_ - _%tl9482294922%_ - _%e9482394925%_ - _%hd9482494929%_ - _%tl9482594932%_) + (##car _%e9592596027%_)))) + (if (gx#stx-null? _%tl9592796034%_) + (_%__match102488102489%_ + _%e9591996007%_ + _%hd9592096011%_ + _%tl9592196014%_ + _%e9592296017%_ + _%hd9592396021%_ + _%tl9592496024%_ + _%e9592596027%_ + _%hd9592696031%_ + _%tl9592796034%_) (let () (declare (not safe)) - (_%g9481394842%_))))) + (_%g9591595944%_))))) (let () (declare (not safe)) - (_%g9481394842%_))))) - (let () (declare (not safe)) (_%g9481394842%_))))) - (let () (declare (not safe)) (_%g9481394842%_)))))))) + (_%g9591595944%_))))) + (let () (declare (not safe)) (_%g9591595944%_))))) + (let () (declare (not safe)) (_%g9591595944%_)))))))) (define |[:0:]#fxflag-unset?| - (lambda (_%$stx94960%_) - (let* ((_%__stx101362101363%_ _%$stx94960%_) - (_%g9496594994%_ + (lambda (_%$stx96062%_) + (let* ((_%__stx102511102512%_ _%$stx96062%_) + (_%g9606796096%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx101362101363%_)))) - (let ((_%__kont101365101366%_ - (lambda (_%L95086%_ _%L95088%_) + _%__stx102511102512%_)))) + (let ((_%__kont102514102515%_ + (lambda (_%L96188%_ _%L96190%_) (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L95088%_ (cons _%L95086%_ '()))) + (cons _%L96190%_ (cons _%L96188%_ '()))) (cons '0 '()))))) - (_%__kont101367101368%_ - (lambda (_%L95031%_ _%L95033%_) + (_%__kont102516102517%_ + (lambda (_%L96133%_ _%L96135%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L95031%_ (cons _%L95031%_ '())) + (cons (cons _%L96133%_ (cons _%L96133%_ '())) (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L95033%_ - (cons _%L95031%_ + (cons _%L96135%_ + (cons _%L96133%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '0 '()))) '())))))) - (let ((_%__match101389101390%_ - (lambda (_%e9496995056%_ - _%hd9497095060%_ - _%tl9497195063%_ - _%e9497295066%_ - _%hd9497395070%_ - _%tl9497495073%_ - _%e9497595076%_ - _%hd9497695080%_ - _%tl9497795083%_) - (let ((_%L95086%_ _%hd9497695080%_) - (_%L95088%_ _%hd9497395070%_)) - (if (or (gx#identifier? _%L95086%_) - (gx#stx-fixnum? _%L95086%_)) - (_%__kont101365101366%_ _%L95086%_ _%L95088%_) - (_%__kont101367101368%_ - _%hd9497695080%_ - _%hd9497395070%_)))))) - (if (gx#stx-pair? _%__stx101362101363%_) - (let ((_%e9496995056%_ (gx#syntax-e _%__stx101362101363%_))) - (let ((_%tl9497195063%_ - (let () (declare (not safe)) (##cdr _%e9496995056%_))) - (_%hd9497095060%_ + (let ((_%__match102538102539%_ + (lambda (_%e9607196158%_ + _%hd9607296162%_ + _%tl9607396165%_ + _%e9607496168%_ + _%hd9607596172%_ + _%tl9607696175%_ + _%e9607796178%_ + _%hd9607896182%_ + _%tl9607996185%_) + (let ((_%L96188%_ _%hd9607896182%_) + (_%L96190%_ _%hd9607596172%_)) + (if (or (gx#identifier? _%L96188%_) + (gx#stx-fixnum? _%L96188%_)) + (_%__kont102514102515%_ _%L96188%_ _%L96190%_) + (_%__kont102516102517%_ + _%hd9607896182%_ + _%hd9607596172%_)))))) + (if (gx#stx-pair? _%__stx102511102512%_) + (let ((_%e9607196158%_ (gx#syntax-e _%__stx102511102512%_))) + (let ((_%tl9607396165%_ + (let () (declare (not safe)) (##cdr _%e9607196158%_))) + (_%hd9607296162%_ (let () (declare (not safe)) - (##car _%e9496995056%_)))) - (if (gx#stx-pair? _%tl9497195063%_) - (let ((_%e9497295066%_ (gx#syntax-e _%tl9497195063%_))) - (let ((_%tl9497495073%_ + (##car _%e9607196158%_)))) + (if (gx#stx-pair? _%tl9607396165%_) + (let ((_%e9607496168%_ (gx#syntax-e _%tl9607396165%_))) + (let ((_%tl9607696175%_ (let () (declare (not safe)) - (##cdr _%e9497295066%_))) - (_%hd9497395070%_ + (##cdr _%e9607496168%_))) + (_%hd9607596172%_ (let () (declare (not safe)) - (##car _%e9497295066%_)))) - (if (gx#stx-pair? _%tl9497495073%_) - (let ((_%e9497595076%_ - (gx#syntax-e _%tl9497495073%_))) - (let ((_%tl9497795083%_ + (##car _%e9607496168%_)))) + (if (gx#stx-pair? _%tl9607696175%_) + (let ((_%e9607796178%_ + (gx#syntax-e _%tl9607696175%_))) + (let ((_%tl9607996185%_ (let () (declare (not safe)) - (##cdr _%e9497595076%_))) - (_%hd9497695080%_ + (##cdr _%e9607796178%_))) + (_%hd9607896182%_ (let () (declare (not safe)) - (##car _%e9497595076%_)))) - (if (gx#stx-null? _%tl9497795083%_) - (_%__match101389101390%_ - _%e9496995056%_ - _%hd9497095060%_ - _%tl9497195063%_ - _%e9497295066%_ - _%hd9497395070%_ - _%tl9497495073%_ - _%e9497595076%_ - _%hd9497695080%_ - _%tl9497795083%_) + (##car _%e9607796178%_)))) + (if (gx#stx-null? _%tl9607996185%_) + (_%__match102538102539%_ + _%e9607196158%_ + _%hd9607296162%_ + _%tl9607396165%_ + _%e9607496168%_ + _%hd9607596172%_ + _%tl9607696175%_ + _%e9607796178%_ + _%hd9607896182%_ + _%tl9607996185%_) (let () (declare (not safe)) - (_%g9496594994%_))))) + (_%g9606796096%_))))) (let () (declare (not safe)) - (_%g9496594994%_))))) - (let () (declare (not safe)) (_%g9496594994%_))))) - (let () (declare (not safe)) (_%g9496594994%_)))))))) + (_%g9606796096%_))))) + (let () (declare (not safe)) (_%g9606796096%_))))) + (let () (declare (not safe)) (_%g9606796096%_)))))))) (define |[:0:]#defrefset| - (lambda (_%stx95111%_) - (let* ((_%g9511495135%_ - (lambda (_%g9511595131%_) + (lambda (_%stx96213%_) + (let* ((_%g9621696237%_ + (lambda (_%g9621796233%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9511595131%_))) - (_%g9511395363%_ - (lambda (_%g9511595139%_) - (if (gx#stx-pair? _%g9511595139%_) - (let ((_%e9511895142%_ (gx#syntax-e _%g9511595139%_))) - (let ((_%hd9511995146%_ + _%g9621796233%_))) + (_%g9621596465%_ + (lambda (_%g9621796241%_) + (if (gx#stx-pair? _%g9621796241%_) + (let ((_%e9622096244%_ (gx#syntax-e _%g9621796241%_))) + (let ((_%hd9622196248%_ (let () (declare (not safe)) - (##car _%e9511895142%_))) - (_%tl9512095149%_ + (##car _%e9622096244%_))) + (_%tl9622296251%_ (let () (declare (not safe)) - (##cdr _%e9511895142%_)))) - (if (gx#stx-pair? _%tl9512095149%_) - (let ((_%e9512195152%_ - (gx#syntax-e _%tl9512095149%_))) - (let ((_%hd9512295156%_ + (##cdr _%e9622096244%_)))) + (if (gx#stx-pair? _%tl9622296251%_) + (let ((_%e9622396254%_ + (gx#syntax-e _%tl9622296251%_))) + (let ((_%hd9622496258%_ (let () (declare (not safe)) - (##car _%e9512195152%_))) - (_%tl9512395159%_ + (##car _%e9622396254%_))) + (_%tl9622596261%_ (let () (declare (not safe)) - (##cdr _%e9512195152%_)))) - (if (gx#stx-pair? _%hd9512295156%_) - (let ((_%e9512495162%_ - (gx#syntax-e _%hd9512295156%_))) - (let ((_%hd9512595166%_ + (##cdr _%e9622396254%_)))) + (if (gx#stx-pair? _%hd9622496258%_) + (let ((_%e9622696264%_ + (gx#syntax-e _%hd9622496258%_))) + (let ((_%hd9622796268%_ (let () (declare (not safe)) - (##car _%e9512495162%_))) - (_%tl9512695169%_ + (##car _%e9622696264%_))) + (_%tl9622896271%_ (let () (declare (not safe)) - (##cdr _%e9512495162%_)))) - (if (gx#stx-pair? _%tl9512695169%_) - (let ((_%e9512795172%_ + (##cdr _%e9622696264%_)))) + (if (gx#stx-pair? _%tl9622896271%_) + (let ((_%e9622996274%_ (gx#syntax-e - _%tl9512695169%_))) - (let ((_%hd9512895176%_ + _%tl9622896271%_))) + (let ((_%hd9623096278%_ (let () (declare (not safe)) - (##car _%e9512795172%_))) - (_%tl9512995179%_ + (##car _%e9622996274%_))) + (_%tl9623196281%_ (let () (declare (not safe)) - (##cdr _%e9512795172%_)))) + (##cdr _%e9622996274%_)))) (if (gx#stx-null? - _%tl9512995179%_) + _%tl9623196281%_) (if (gx#stx-null? - _%tl9512395159%_) - ((lambda (_%L95182%_ + _%tl9622596261%_) + ((lambda (_%L96284%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L95184%_) - (let* ((_%g9520295210%_ - (lambda (_%g9520395206%_) + _%L96286%_) + (let* ((_%g9630496312%_ + (lambda (_%g9630596308%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9520395206%_))) - (_%g9520195359%_ - (lambda (_%g9520395214%_) - ((lambda (_%L95217%_) - (let* ((_%g9522995237%_ - (lambda (_%g9523095233%_) + _%g9630596308%_))) + (_%g9630396461%_ + (lambda (_%g9630596316%_) + ((lambda (_%L96319%_) + (let* ((_%g9633196339%_ + (lambda (_%g9633296335%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9523095233%_))) - (_%g9522895355%_ - (lambda (_%g9523095241%_) - ((lambda (_%L95244%_) - (let* ((_%g9525795265%_ - (lambda (_%g9525895261%_) + _%g9633296335%_))) + (_%g9633096457%_ + (lambda (_%g9633296343%_) + ((lambda (_%L96346%_) + (let* ((_%g9635996367%_ + (lambda (_%g9636096363%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9525895261%_))) - (_%g9525695351%_ - (lambda (_%g9525895269%_) - ((lambda (_%L95272%_) - (let* ((_%g9528595293%_ + _%g9636096363%_))) + (_%g9635896453%_ + (lambda (_%g9636096371%_) + ((lambda (_%L96374%_) + (let* ((_%g9638796395%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g9528695289%_) + (lambda (_%g9638896391%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9528695289%_))) - (_%g9528495347%_ - (lambda (_%g9528695297%_) - ((lambda (_%L95300%_) - (let* ((_%g9531395321%_ - (lambda (_%g9531495317%_) + _%g9638896391%_))) + (_%g9638696449%_ + (lambda (_%g9638896399%_) + ((lambda (_%L96402%_) + (let* ((_%g9641596423%_ + (lambda (_%g9641696419%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9531495317%_))) - (_%g9531295343%_ - (lambda (_%g9531495325%_) - ((lambda (_%L95328%_) + _%g9641696419%_))) + (_%g9641496445%_ + (lambda (_%g9641696427%_) + ((lambda (_%L96430%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L95244%_ + (cons _%L96346%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f @@ -311,8 +311,8 @@ (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L95217%_ - (cons _%L95184%_ + (cons _%L96319%_ + (cons _%L96286%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) @@ -327,7 +327,7 @@ '()) (cons (cons (gx#datum->syntax '#f '##structure-ref) (cons (gx#datum->syntax '#f 'klass) - (cons _%L95182%_ + (cons _%L96284%_ (cons (gx#datum->syntax '#f 'class::t) @@ -335,7 +335,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L95184%_ '())) + (cons _%L96286%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -343,15 +343,15 @@ '()))) '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L95272%_ + (cons _%L96374%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L95217%_ - (cons _%L95184%_ + (cons _%L96319%_ + (cons _%L96286%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -364,7 +364,7 @@ '#f '##unchecked-structure-ref) (cons (gx#datum->syntax '#f 'klass) - (cons _%L95182%_ + (cons _%L96284%_ (cons (gx#datum->syntax '#f 'class::t) @@ -372,7 +372,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L95184%_ '())) + (cons _%L96286%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -380,7 +380,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L95300%_ + (cons _%L96402%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -388,7 +388,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L95217%_ (cons _%L95184%_ (cons '#t '())))) + (cons _%L96319%_ (cons _%L96286%_ (cons '#t '())))) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f 'klass) (cons (gx#datum->syntax '#f 'val) @@ -402,11 +402,11 @@ (cons (gx#datum->syntax '#f 'val) - (cons _%L95182%_ + (cons _%L96284%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'class::t) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L95184%_ '())) + (cons _%L96286%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -414,7 +414,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L95328%_ + (cons _%L96430%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -422,8 +422,8 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L95217%_ - (cons _%L95184%_ (cons '#f '())))) + (cons _%L96319%_ + (cons _%L96286%_ (cons '#f '())))) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f 'klass) (cons (gx#datum->syntax @@ -440,10 +440,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'val) - (cons _%L95182%_ + (cons _%L96284%_ (cons (gx#datum->syntax '#f 'class::t) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L95184%_ '())) + (cons _%L96286%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -452,270 +452,270 @@ '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9531495325%_)))) - (_%g9531295343%_ + _%g9641696427%_)))) + (_%g9641496445%_ (gx#stx-identifier - _%L95184%_ + _%L96286%_ '"&" - _%L95300%_)))) - _%g9528695297%_)))) - (_%g9528495347%_ - (gx#stx-identifier _%L95184%_ _%L95244%_ '"-set!")))) - _%g9525895269%_)))) + _%L96402%_)))) + _%g9638896399%_)))) + (_%g9638696449%_ + (gx#stx-identifier _%L96286%_ _%L96346%_ '"-set!")))) + _%g9636096371%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9525695351%_ + (_%g9635896453%_ (gx#stx-identifier - _%L95184%_ + _%L96286%_ '"&" - _%L95244%_)))) - _%g9523095241%_)))) - (_%g9522895355%_ + _%L96346%_)))) + _%g9633296343%_)))) + (_%g9633096457%_ (gx#stx-identifier - _%L95184%_ + _%L96286%_ '"class-type-" - _%L95184%_)))) - _%g9520395214%_)))) - (_%g9520195359%_ (gx#core-quote-syntax 'class::t)))) - _%hd9512895176%_ - _%hd9512595166%_) - (_%g9511495135%_ _%g9511595139%_)) + _%L96286%_)))) + _%g9630596316%_)))) + (_%g9630396461%_ (gx#core-quote-syntax 'class::t)))) + _%hd9623096278%_ + _%hd9622796268%_) + (_%g9621696237%_ _%g9621796241%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9511495135%_ - _%g9511595139%_)))) - (_%g9511495135%_ - _%g9511595139%_)))) - (_%g9511495135%_ _%g9511595139%_)))) - (_%g9511495135%_ _%g9511595139%_)))) - (_%g9511495135%_ _%g9511595139%_))))) - (_%g9511395363%_ _%stx95111%_)))) + (_%g9621696237%_ + _%g9621796241%_)))) + (_%g9621696237%_ + _%g9621796241%_)))) + (_%g9621696237%_ _%g9621796241%_)))) + (_%g9621696237%_ _%g9621796241%_)))) + (_%g9621696237%_ _%g9621796241%_))))) + (_%g9621596465%_ _%stx96213%_)))) (define |[:0:]#defrefset*| - (lambda (_%$stx95367%_) - (let* ((_%g9537195400%_ - (lambda (_%g9537295396%_) + (lambda (_%$stx96469%_) + (let* ((_%g9647396502%_ + (lambda (_%g9647496498%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9537295396%_))) - (_%g9537095500%_ - (lambda (_%g9537295404%_) - (if (gx#stx-pair? _%g9537295404%_) - (let ((_%e9537595407%_ (gx#syntax-e _%g9537295404%_))) - (let ((_%hd9537695411%_ + _%g9647496498%_))) + (_%g9647296602%_ + (lambda (_%g9647496506%_) + (if (gx#stx-pair? _%g9647496506%_) + (let ((_%e9647796509%_ (gx#syntax-e _%g9647496506%_))) + (let ((_%hd9647896513%_ (let () (declare (not safe)) - (##car _%e9537595407%_))) - (_%tl9537795414%_ + (##car _%e9647796509%_))) + (_%tl9647996516%_ (let () (declare (not safe)) - (##cdr _%e9537595407%_)))) - (if (gx#stx-pair/null? _%tl9537795414%_) - (let ((_g101602_ + (##cdr _%e9647796509%_)))) + (if (gx#stx-pair/null? _%tl9647996516%_) + (let ((_g102750_ (gx#syntax-split-splice - _%tl9537795414%_ + _%tl9647996516%_ '0))) (begin - (let ((_g101603_ + (let ((_g102751_ (let () (declare (not safe)) - (if (##values? _g101602_) - (##vector-length _g101602_) + (if (##values? _g102750_) + (##values-length _g102750_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101603_ 2))) + (##fx= _g102751_ 2))) (error "Context expects 2 values" - _g101603_))) - (let ((_%target9537895417%_ + _g102751_))) + (let ((_%target9648096519%_ (let () (declare (not safe)) - (##vector-ref _g101602_ 0))) - (_%tl9538095420%_ + (##values-ref _g102750_ 0))) + (_%tl9648296522%_ (let () (declare (not safe)) - (##vector-ref _g101602_ 1)))) - (if (gx#stx-null? _%tl9538095420%_) - (letrec ((_%loop9538195423%_ - (lambda (_%hd9537995427%_ - _%field9538595430%_ - _%slot9538695432%_) + (##values-ref _g102750_ 1)))) + (if (gx#stx-null? _%tl9648296522%_) + (letrec ((_%loop9648396525%_ + (lambda (_%hd9648196529%_ + _%field9648796532%_ + _%slot9648896534%_) (if (gx#stx-pair? - _%hd9537995427%_) - (let ((_%e9538295435%_ + _%hd9648196529%_) + (let ((_%e9648496537%_ (gx#syntax-e - _%hd9537995427%_))) - (let ((_%lp-hd9538395439%_ + _%hd9648196529%_))) + (let ((_%lp-hd9648596541%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e9538295435%_))) - (_%lp-tl9538495442%_ - (let () (declare (not safe)) (##cdr _%e9538295435%_)))) - (if (gx#stx-pair? _%lp-hd9538395439%_) - (let ((_%e9538995445%_ - (gx#syntax-e _%lp-hd9538395439%_))) - (let ((_%hd9539095449%_ + (##car _%e9648496537%_))) + (_%lp-tl9648696544%_ + (let () (declare (not safe)) (##cdr _%e9648496537%_)))) + (if (gx#stx-pair? _%lp-hd9648596541%_) + (let ((_%e9649196547%_ + (gx#syntax-e _%lp-hd9648596541%_))) + (let ((_%hd9649296551%_ (let () (declare (not safe)) - (##car _%e9538995445%_))) - (_%tl9539195452%_ + (##car _%e9649196547%_))) + (_%tl9649396554%_ (let () (declare (not safe)) - (##cdr _%e9538995445%_)))) - (if (gx#stx-pair? _%tl9539195452%_) - (let ((_%e9539295455%_ - (gx#syntax-e _%tl9539195452%_))) - (let ((_%hd9539395459%_ + (##cdr _%e9649196547%_)))) + (if (gx#stx-pair? _%tl9649396554%_) + (let ((_%e9649496557%_ + (gx#syntax-e _%tl9649396554%_))) + (let ((_%hd9649596561%_ (let () (declare (not safe)) - (##car _%e9539295455%_))) - (_%tl9539495462%_ + (##car _%e9649496557%_))) + (_%tl9649696564%_ (let () (declare (not safe)) - (##cdr _%e9539295455%_)))) - (if (gx#stx-null? _%tl9539495462%_) - (_%loop9538195423%_ - _%lp-tl9538495442%_ - (cons _%hd9539395459%_ - _%field9538595430%_) - (cons _%hd9539095449%_ - _%slot9538695432%_)) - (_%g9537195400%_ _%g9537295404%_)))) - (_%g9537195400%_ _%g9537295404%_)))) - (_%g9537195400%_ _%g9537295404%_)))) - (let ((_%field9538795465%_ (reverse _%field9538595430%_)) - (_%slot9538895468%_ (reverse _%slot9538695432%_))) - ((lambda (_%L95471%_ _%L95473%_) + (##cdr _%e9649496557%_)))) + (if (gx#stx-null? _%tl9649696564%_) + (_%loop9648396525%_ + _%lp-tl9648696544%_ + (cons _%hd9649596561%_ + _%field9648796532%_) + (cons _%hd9649296551%_ + _%slot9648896534%_)) + (_%g9647396502%_ _%g9647496506%_)))) + (_%g9647396502%_ _%g9647496506%_)))) + (_%g9647396502%_ _%g9647496506%_)))) + (let ((_%field9648996567%_ (reverse _%field9648796532%_)) + (_%slot9649096570%_ (reverse _%slot9648896534%_))) + ((lambda (_%L96573%_ _%L96575%_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _%L95471%_ - _%L95473%_) - (let ((__tmp101604 - (lambda (_%g9548895492%_ - _%g9548995495%_ - _%g9549095497%_) + _%L96573%_ + _%L96575%_) + (let ((__tmp102752 + (lambda (_%g9659096594%_ + _%g9659196597%_ + _%g9659296599%_) (cons (cons (gx#datum->syntax '#f 'defrefset) - (cons (cons _%g9548995495%_ - (cons _%g9548895492%_ + (cons (cons _%g9659196597%_ + (cons _%g9659096594%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9549095497%_)))) + _%g9659296599%_)))) (declare (not safe)) (__foldr2 - __tmp101604 + __tmp102752 '() - _%L95471%_ - _%L95473%_))))) - _%field9538795465%_ - _%slot9538895468%_)))))) + _%L96573%_ + _%L96575%_))))) + _%field9648996567%_ + _%slot9649096570%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop9538195423%_ - _%target9537895417%_ + (_%loop9648396525%_ + _%target9648096519%_ '() '())) - (_%g9537195400%_ _%g9537295404%_))))) - (_%g9537195400%_ _%g9537295404%_)))) - (_%g9537195400%_ _%g9537295404%_))))) - (_%g9537095500%_ _%$stx95367%_)))) + (_%g9647396502%_ _%g9647496506%_))))) + (_%g9647396502%_ _%g9647496506%_)))) + (_%g9647396502%_ _%g9647496506%_))))) + (_%g9647296602%_ _%$stx96469%_)))) (define |[:0:]#if-class-slot-field| - (lambda (_%$stx95505%_) - (let* ((_%g9550995543%_ - (lambda (_%g9551095539%_) + (lambda (_%$stx96607%_) + (let* ((_%g9661196645%_ + (lambda (_%g9661296641%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9551095539%_))) - (_%g9550895654%_ - (lambda (_%g9551095547%_) - (if (gx#stx-pair? _%g9551095547%_) - (let ((_%e9551795550%_ (gx#syntax-e _%g9551095547%_))) - (let ((_%hd9551895554%_ + _%g9661296641%_))) + (_%g9661096756%_ + (lambda (_%g9661296649%_) + (if (gx#stx-pair? _%g9661296649%_) + (let ((_%e9661996652%_ (gx#syntax-e _%g9661296649%_))) + (let ((_%hd9662096656%_ (let () (declare (not safe)) - (##car _%e9551795550%_))) - (_%tl9551995557%_ + (##car _%e9661996652%_))) + (_%tl9662196659%_ (let () (declare (not safe)) - (##cdr _%e9551795550%_)))) - (if (gx#stx-pair? _%tl9551995557%_) - (let ((_%e9552095560%_ - (gx#syntax-e _%tl9551995557%_))) - (let ((_%hd9552195564%_ + (##cdr _%e9661996652%_)))) + (if (gx#stx-pair? _%tl9662196659%_) + (let ((_%e9662296662%_ + (gx#syntax-e _%tl9662196659%_))) + (let ((_%hd9662396666%_ (let () (declare (not safe)) - (##car _%e9552095560%_))) - (_%tl9552295567%_ + (##car _%e9662296662%_))) + (_%tl9662496669%_ (let () (declare (not safe)) - (##cdr _%e9552095560%_)))) - (if (gx#stx-pair? _%tl9552295567%_) - (let ((_%e9552395570%_ - (gx#syntax-e _%tl9552295567%_))) - (let ((_%hd9552495574%_ + (##cdr _%e9662296662%_)))) + (if (gx#stx-pair? _%tl9662496669%_) + (let ((_%e9662596672%_ + (gx#syntax-e _%tl9662496669%_))) + (let ((_%hd9662696676%_ (let () (declare (not safe)) - (##car _%e9552395570%_))) - (_%tl9552595577%_ + (##car _%e9662596672%_))) + (_%tl9662796679%_ (let () (declare (not safe)) - (##cdr _%e9552395570%_)))) - (if (gx#stx-pair? _%tl9552595577%_) - (let ((_%e9552695580%_ + (##cdr _%e9662596672%_)))) + (if (gx#stx-pair? _%tl9662796679%_) + (let ((_%e9662896682%_ (gx#syntax-e - _%tl9552595577%_))) - (let ((_%hd9552795584%_ + _%tl9662796679%_))) + (let ((_%hd9662996686%_ (let () (declare (not safe)) - (##car _%e9552695580%_))) - (_%tl9552895587%_ + (##car _%e9662896682%_))) + (_%tl9663096689%_ (let () (declare (not safe)) - (##cdr _%e9552695580%_)))) + (##cdr _%e9662896682%_)))) (if (gx#stx-pair? - _%tl9552895587%_) - (let ((_%e9552995590%_ + _%tl9663096689%_) + (let ((_%e9663196692%_ (gx#syntax-e - _%tl9552895587%_))) - (let ((_%hd9553095594%_ + _%tl9663096689%_))) + (let ((_%hd9663296696%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9552995590%_))) - (_%tl9553195597%_ - (let () (declare (not safe)) (##cdr _%e9552995590%_)))) - (if (gx#stx-pair? _%tl9553195597%_) - (let ((_%e9553295600%_ (gx#syntax-e _%tl9553195597%_))) - (let ((_%hd9553395604%_ + (##car _%e9663196692%_))) + (_%tl9663396699%_ + (let () (declare (not safe)) (##cdr _%e9663196692%_)))) + (if (gx#stx-pair? _%tl9663396699%_) + (let ((_%e9663496702%_ (gx#syntax-e _%tl9663396699%_))) + (let ((_%hd9663596706%_ (let () (declare (not safe)) - (##car _%e9553295600%_))) - (_%tl9553495607%_ + (##car _%e9663496702%_))) + (_%tl9663696709%_ (let () (declare (not safe)) - (##cdr _%e9553295600%_)))) - (if (gx#stx-pair? _%tl9553495607%_) - (let ((_%e9553595610%_ - (gx#syntax-e _%tl9553495607%_))) - (let ((_%hd9553695614%_ + (##cdr _%e9663496702%_)))) + (if (gx#stx-pair? _%tl9663696709%_) + (let ((_%e9663796712%_ + (gx#syntax-e _%tl9663696709%_))) + (let ((_%hd9663896716%_ (let () (declare (not safe)) - (##car _%e9553595610%_))) - (_%tl9553795617%_ + (##car _%e9663796712%_))) + (_%tl9663996719%_ (let () (declare (not safe)) - (##cdr _%e9553595610%_)))) - (if (gx#stx-null? _%tl9553795617%_) - ((lambda (_%L95620%_ - _%L95622%_ - _%L95623%_ - _%L95624%_ - _%L95625%_ - _%L95626%_) + (##cdr _%e9663796712%_)))) + (if (gx#stx-null? _%tl9663996719%_) + ((lambda (_%L96722%_ + _%L96724%_ + _%L96725%_ + _%L96726%_ + _%L96727%_ + _%L96728%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f @@ -727,8 +727,8 @@ (cons (cons (gx#datum->syntax '#f '&class-type-slot-table) - (cons _%L95626%_ '())) - (cons _%L95625%_ (cons '#f '())))) + (cons _%L96728%_ '())) + (cons _%L96727%_ (cons '#f '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -747,18 +747,18 @@ (cons '"unknown slot" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'class: - (cons _%L95626%_ - (cons 'slot: (cons _%L95625%_ '())))))) + (cons _%L96728%_ + (cons 'slot: (cons _%L96727%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) (cons (cons (cons (gx#datum->syntax '#f 'class-type-final?) - (cons _%L95626%_ '())) - (cons (cons _%L95624%_ - (cons _%L95626%_ - (cons _%L95625%_ + (cons _%L96728%_ '())) + (cons (cons _%L96726%_ + (cons _%L96728%_ + (cons _%L96727%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'field) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -766,11 +766,11 @@ (cons (cons (cons (gx#datum->syntax '#f 'class-type-struct?) - (cons _%L95626%_ '())) - (cons (cons _%L95623%_ - (cons _%L95626%_ + (cons _%L96728%_ '())) + (cons (cons _%L96725%_ + (cons _%L96728%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L95625%_ + (cons _%L96727%_ (cons (gx#datum->syntax '#f 'field) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -784,7 +784,7 @@ (cons (cons (gx#datum->syntax '#f 'base-struct/1) - (cons _%L95626%_ '())) + (cons _%L96728%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax @@ -817,10 +817,10 @@ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L95622%_ + (cons (cons _%L96724%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L95626%_ - (cons _%L95625%_ + (cons _%L96728%_ + (cons _%L96727%_ (cons (gx#datum->syntax '#f 'field) '())))) '())) @@ -828,10 +828,10 @@ (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons _%L95620%_ + (cons (cons _%L96722%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L95626%_ - (cons _%L95625%_ + (cons _%L96728%_ + (cons _%L96727%_ (cons (gx#datum->syntax '#f 'field) '())))) '())) @@ -839,99 +839,99 @@ '())))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9553695614%_ - _%hd9553395604%_ - _%hd9553095594%_ - _%hd9552795584%_ - _%hd9552495574%_ - _%hd9552195564%_) - (_%g9550995543%_ _%g9551095547%_)))) - (_%g9550995543%_ _%g9551095547%_)))) - (_%g9550995543%_ _%g9551095547%_)))) + _%hd9663896716%_ + _%hd9663596706%_ + _%hd9663296696%_ + _%hd9662996686%_ + _%hd9662696676%_ + _%hd9662396666%_) + (_%g9661196645%_ _%g9661296649%_)))) + (_%g9661196645%_ _%g9661296649%_)))) + (_%g9661196645%_ _%g9661296649%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9550995543%_ - _%g9551095547%_)))) - (_%g9550995543%_ - _%g9551095547%_)))) - (_%g9550995543%_ _%g9551095547%_)))) - (_%g9550995543%_ _%g9551095547%_)))) - (_%g9550995543%_ _%g9551095547%_))))) - (_%g9550895654%_ _%$stx95505%_)))) + (_%g9661196645%_ + _%g9661296649%_)))) + (_%g9661196645%_ + _%g9661296649%_)))) + (_%g9661196645%_ _%g9661296649%_)))) + (_%g9661196645%_ _%g9661296649%_)))) + (_%g9661196645%_ _%g9661296649%_))))) + (_%g9661096756%_ _%$stx96607%_)))) (define |[:0:]#__slot-e| - (lambda (_%$stx95658%_) - (let* ((_%g9566295688%_ - (lambda (_%g9566395684%_) + (lambda (_%$stx96760%_) + (let* ((_%g9676496790%_ + (lambda (_%g9676596786%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9566395684%_))) - (_%g9566195771%_ - (lambda (_%g9566395692%_) - (if (gx#stx-pair? _%g9566395692%_) - (let ((_%e9566895695%_ (gx#syntax-e _%g9566395692%_))) - (let ((_%hd9566995699%_ + _%g9676596786%_))) + (_%g9676396873%_ + (lambda (_%g9676596794%_) + (if (gx#stx-pair? _%g9676596794%_) + (let ((_%e9677096797%_ (gx#syntax-e _%g9676596794%_))) + (let ((_%hd9677196801%_ (let () (declare (not safe)) - (##car _%e9566895695%_))) - (_%tl9567095702%_ + (##car _%e9677096797%_))) + (_%tl9677296804%_ (let () (declare (not safe)) - (##cdr _%e9566895695%_)))) - (if (gx#stx-pair? _%tl9567095702%_) - (let ((_%e9567195705%_ - (gx#syntax-e _%tl9567095702%_))) - (let ((_%hd9567295709%_ + (##cdr _%e9677096797%_)))) + (if (gx#stx-pair? _%tl9677296804%_) + (let ((_%e9677396807%_ + (gx#syntax-e _%tl9677296804%_))) + (let ((_%hd9677496811%_ (let () (declare (not safe)) - (##car _%e9567195705%_))) - (_%tl9567395712%_ + (##car _%e9677396807%_))) + (_%tl9677596814%_ (let () (declare (not safe)) - (##cdr _%e9567195705%_)))) - (if (gx#stx-pair? _%tl9567395712%_) - (let ((_%e9567495715%_ - (gx#syntax-e _%tl9567395712%_))) - (let ((_%hd9567595719%_ + (##cdr _%e9677396807%_)))) + (if (gx#stx-pair? _%tl9677596814%_) + (let ((_%e9677696817%_ + (gx#syntax-e _%tl9677596814%_))) + (let ((_%hd9677796821%_ (let () (declare (not safe)) - (##car _%e9567495715%_))) - (_%tl9567695722%_ + (##car _%e9677696817%_))) + (_%tl9677896824%_ (let () (declare (not safe)) - (##cdr _%e9567495715%_)))) - (if (gx#stx-pair? _%tl9567695722%_) - (let ((_%e9567795725%_ + (##cdr _%e9677696817%_)))) + (if (gx#stx-pair? _%tl9677896824%_) + (let ((_%e9677996827%_ (gx#syntax-e - _%tl9567695722%_))) - (let ((_%hd9567895729%_ + _%tl9677896824%_))) + (let ((_%hd9678096831%_ (let () (declare (not safe)) - (##car _%e9567795725%_))) - (_%tl9567995732%_ + (##car _%e9677996827%_))) + (_%tl9678196834%_ (let () (declare (not safe)) - (##cdr _%e9567795725%_)))) + (##cdr _%e9677996827%_)))) (if (gx#stx-pair? - _%tl9567995732%_) - (let ((_%e9568095735%_ + _%tl9678196834%_) + (let ((_%e9678296837%_ (gx#syntax-e - _%tl9567995732%_))) - (let ((_%hd9568195739%_ + _%tl9678196834%_))) + (let ((_%hd9678396841%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9568095735%_))) - (_%tl9568295742%_ - (let () (declare (not safe)) (##cdr _%e9568095735%_)))) - (if (gx#stx-null? _%tl9568295742%_) - ((lambda (_%L95745%_ _%L95747%_ _%L95748%_ _%L95749%_) + (##car _%e9678296837%_))) + (_%tl9678496844%_ + (let () (declare (not safe)) (##cdr _%e9678296837%_)))) + (if (gx#stx-null? _%tl9678496844%_) + ((lambda (_%L96847%_ _%L96849%_ _%L96850%_ _%L96851%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'klass) (cons (cons (gx#datum->syntax '#f 'class-of) - (cons _%L95749%_ '())) + (cons _%L96851%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'cond) (cons (cons (cons (gx#datum->syntax @@ -939,289 +939,289 @@ '#f 'class-slot-offset) (cons (gx#datum->syntax '#f 'klass) - (cons _%L95748%_ '()))) - (cons (gx#datum->syntax '#f '=>) (cons _%L95747%_ '()))) + (cons _%L96850%_ '()))) + (cons (gx#datum->syntax '#f '=>) (cons _%L96849%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'else) - (cons (cons _%L95745%_ - (cons _%L95749%_ (cons _%L95748%_ '()))) + (cons (cons _%L96847%_ + (cons _%L96851%_ (cons _%L96850%_ '()))) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd9568195739%_ - _%hd9567895729%_ - _%hd9567595719%_ - _%hd9567295709%_) - (_%g9566295688%_ _%g9566395692%_)))) + _%hd9678396841%_ + _%hd9678096831%_ + _%hd9677796821%_ + _%hd9677496811%_) + (_%g9676496790%_ _%g9676596794%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9566295688%_ - _%g9566395692%_)))) - (_%g9566295688%_ - _%g9566395692%_)))) - (_%g9566295688%_ _%g9566395692%_)))) - (_%g9566295688%_ _%g9566395692%_)))) - (_%g9566295688%_ _%g9566395692%_))))) - (_%g9566195771%_ _%$stx95658%_)))) + (_%g9676496790%_ + _%g9676596794%_)))) + (_%g9676496790%_ + _%g9676596794%_)))) + (_%g9676496790%_ _%g9676596794%_)))) + (_%g9676496790%_ _%g9676596794%_)))) + (_%g9676496790%_ _%g9676596794%_))))) + (_%g9676396873%_ _%$stx96760%_)))) (define |[:0:]#defsubtype| - (lambda (_%$stx95775%_) - (let* ((_%g9577995808%_ - (lambda (_%g9578095804%_) + (lambda (_%$stx96877%_) + (let* ((_%g9688196910%_ + (lambda (_%g9688296906%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9578095804%_))) - (_%g9577895908%_ - (lambda (_%g9578095812%_) - (if (gx#stx-pair? _%g9578095812%_) - (let ((_%e9578395815%_ (gx#syntax-e _%g9578095812%_))) - (let ((_%hd9578495819%_ + _%g9688296906%_))) + (_%g9688097010%_ + (lambda (_%g9688296914%_) + (if (gx#stx-pair? _%g9688296914%_) + (let ((_%e9688596917%_ (gx#syntax-e _%g9688296914%_))) + (let ((_%hd9688696921%_ (let () (declare (not safe)) - (##car _%e9578395815%_))) - (_%tl9578595822%_ + (##car _%e9688596917%_))) + (_%tl9688796924%_ (let () (declare (not safe)) - (##cdr _%e9578395815%_)))) - (if (gx#stx-pair/null? _%tl9578595822%_) - (let ((_g101605_ + (##cdr _%e9688596917%_)))) + (if (gx#stx-pair/null? _%tl9688796924%_) + (let ((_g102753_ (gx#syntax-split-splice - _%tl9578595822%_ + _%tl9688796924%_ '0))) (begin - (let ((_g101606_ + (let ((_g102754_ (let () (declare (not safe)) - (if (##values? _g101605_) - (##vector-length _g101605_) + (if (##values? _g102753_) + (##values-length _g102753_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101606_ 2))) + (##fx= _g102754_ 2))) (error "Context expects 2 values" - _g101606_))) - (let ((_%target9578695825%_ + _g102754_))) + (let ((_%target9688896927%_ (let () (declare (not safe)) - (##vector-ref _g101605_ 0))) - (_%tl9578895828%_ + (##values-ref _g102753_ 0))) + (_%tl9689096930%_ (let () (declare (not safe)) - (##vector-ref _g101605_ 1)))) - (if (gx#stx-null? _%tl9578895828%_) - (letrec ((_%loop9578995831%_ - (lambda (_%hd9578795835%_ - _%name9579395838%_ - _%t9579495840%_) + (##values-ref _g102753_ 1)))) + (if (gx#stx-null? _%tl9689096930%_) + (letrec ((_%loop9689196933%_ + (lambda (_%hd9688996937%_ + _%name9689596940%_ + _%t9689696942%_) (if (gx#stx-pair? - _%hd9578795835%_) - (let ((_%e9579095843%_ + _%hd9688996937%_) + (let ((_%e9689296945%_ (gx#syntax-e - _%hd9578795835%_))) - (let ((_%lp-hd9579195847%_ + _%hd9688996937%_))) + (let ((_%lp-hd9689396949%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e9579095843%_))) - (_%lp-tl9579295850%_ - (let () (declare (not safe)) (##cdr _%e9579095843%_)))) - (if (gx#stx-pair? _%lp-hd9579195847%_) - (let ((_%e9579795853%_ - (gx#syntax-e _%lp-hd9579195847%_))) - (let ((_%hd9579895857%_ + (##car _%e9689296945%_))) + (_%lp-tl9689496952%_ + (let () (declare (not safe)) (##cdr _%e9689296945%_)))) + (if (gx#stx-pair? _%lp-hd9689396949%_) + (let ((_%e9689996955%_ + (gx#syntax-e _%lp-hd9689396949%_))) + (let ((_%hd9690096959%_ (let () (declare (not safe)) - (##car _%e9579795853%_))) - (_%tl9579995860%_ + (##car _%e9689996955%_))) + (_%tl9690196962%_ (let () (declare (not safe)) - (##cdr _%e9579795853%_)))) - (if (gx#stx-pair? _%tl9579995860%_) - (let ((_%e9580095863%_ - (gx#syntax-e _%tl9579995860%_))) - (let ((_%hd9580195867%_ + (##cdr _%e9689996955%_)))) + (if (gx#stx-pair? _%tl9690196962%_) + (let ((_%e9690296965%_ + (gx#syntax-e _%tl9690196962%_))) + (let ((_%hd9690396969%_ (let () (declare (not safe)) - (##car _%e9580095863%_))) - (_%tl9580295870%_ + (##car _%e9690296965%_))) + (_%tl9690496972%_ (let () (declare (not safe)) - (##cdr _%e9580095863%_)))) - (if (gx#stx-null? _%tl9580295870%_) - (_%loop9578995831%_ - _%lp-tl9579295850%_ - (cons _%hd9580195867%_ - _%name9579395838%_) - (cons _%hd9579895857%_ _%t9579495840%_)) - (_%g9577995808%_ _%g9578095812%_)))) - (_%g9577995808%_ _%g9578095812%_)))) - (_%g9577995808%_ _%g9578095812%_)))) - (let ((_%name9579595873%_ (reverse _%name9579395838%_)) - (_%t9579695876%_ (reverse _%t9579495840%_))) - ((lambda (_%L95879%_ _%L95881%_) + (##cdr _%e9690296965%_)))) + (if (gx#stx-null? _%tl9690496972%_) + (_%loop9689196933%_ + _%lp-tl9689496952%_ + (cons _%hd9690396969%_ + _%name9689596940%_) + (cons _%hd9690096959%_ _%t9689696942%_)) + (_%g9688196910%_ _%g9688296914%_)))) + (_%g9688196910%_ _%g9688296914%_)))) + (_%g9688196910%_ _%g9688296914%_)))) + (let ((_%name9689796975%_ (reverse _%name9689596940%_)) + (_%t9689896978%_ (reverse _%t9689696942%_))) + ((lambda (_%L96981%_ _%L96983%_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _%L95879%_ - _%L95881%_) - (let ((__tmp101607 - (lambda (_%g9589695900%_ - _%g9589795903%_ - _%g9589895905%_) + _%L96981%_ + _%L96983%_) + (let ((__tmp102755 + (lambda (_%g9699897002%_ + _%g9699997005%_ + _%g9700097007%_) (cons (cons (gx#datum->syntax '#f 'vector-set!) (cons (gx#datum->syntax '#f '__subtype-id) - (cons _%g9589795903%_ + (cons _%g9699997005%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g9589695900%_ '())) + (cons _%g9699897002%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9589895905%_)))) + _%g9700097007%_)))) (declare (not safe)) (__foldr2 - __tmp101607 + __tmp102755 '() - _%L95879%_ - _%L95881%_))))) - _%name9579595873%_ - _%t9579695876%_)))))) + _%L96981%_ + _%L96983%_))))) + _%name9689796975%_ + _%t9689896978%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop9578995831%_ - _%target9578695825%_ + (_%loop9689196933%_ + _%target9688896927%_ '() '())) - (_%g9577995808%_ _%g9578095812%_))))) - (_%g9577995808%_ _%g9578095812%_)))) - (_%g9577995808%_ _%g9578095812%_))))) - (_%g9577895908%_ _%$stx95775%_)))) + (_%g9688196910%_ _%g9688296914%_))))) + (_%g9688196910%_ _%g9688296914%_)))) + (_%g9688196910%_ _%g9688296914%_))))) + (_%g9688097010%_ _%$stx96877%_)))) (define |[:0:]#defsystem-class| - (lambda (_%$stx95913%_) - (let* ((_%g9591795948%_ - (lambda (_%g9591895944%_) + (lambda (_%$stx97015%_) + (let* ((_%g9701997050%_ + (lambda (_%g9702097046%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9591895944%_))) - (_%g9591696067%_ - (lambda (_%g9591895952%_) - (if (gx#stx-pair? _%g9591895952%_) - (let ((_%e9592295955%_ (gx#syntax-e _%g9591895952%_))) - (let ((_%hd9592395959%_ + _%g9702097046%_))) + (_%g9701897169%_ + (lambda (_%g9702097054%_) + (if (gx#stx-pair? _%g9702097054%_) + (let ((_%e9702497057%_ (gx#syntax-e _%g9702097054%_))) + (let ((_%hd9702597061%_ (let () (declare (not safe)) - (##car _%e9592295955%_))) - (_%tl9592495962%_ + (##car _%e9702497057%_))) + (_%tl9702697064%_ (let () (declare (not safe)) - (##cdr _%e9592295955%_)))) - (if (gx#stx-pair? _%tl9592495962%_) - (let ((_%e9592595965%_ - (gx#syntax-e _%tl9592495962%_))) - (let ((_%hd9592695969%_ + (##cdr _%e9702497057%_)))) + (if (gx#stx-pair? _%tl9702697064%_) + (let ((_%e9702797067%_ + (gx#syntax-e _%tl9702697064%_))) + (let ((_%hd9702897071%_ (let () (declare (not safe)) - (##car _%e9592595965%_))) - (_%tl9592795972%_ + (##car _%e9702797067%_))) + (_%tl9702997074%_ (let () (declare (not safe)) - (##cdr _%e9592595965%_)))) - (if (gx#stx-pair? _%tl9592795972%_) - (let ((_%e9592895975%_ - (gx#syntax-e _%tl9592795972%_))) - (let ((_%hd9592995979%_ + (##cdr _%e9702797067%_)))) + (if (gx#stx-pair? _%tl9702997074%_) + (let ((_%e9703097077%_ + (gx#syntax-e _%tl9702997074%_))) + (let ((_%hd9703197081%_ (let () (declare (not safe)) - (##car _%e9592895975%_))) - (_%tl9593095982%_ + (##car _%e9703097077%_))) + (_%tl9703297084%_ (let () (declare (not safe)) - (##cdr _%e9592895975%_)))) - (if (gx#stx-pair? _%tl9593095982%_) - (let ((_%e9593195985%_ + (##cdr _%e9703097077%_)))) + (if (gx#stx-pair? _%tl9703297084%_) + (let ((_%e9703397087%_ (gx#syntax-e - _%tl9593095982%_))) - (let ((_%hd9593295989%_ + _%tl9703297084%_))) + (let ((_%hd9703497091%_ (let () (declare (not safe)) - (##car _%e9593195985%_))) - (_%tl9593395992%_ + (##car _%e9703397087%_))) + (_%tl9703597094%_ (let () (declare (not safe)) - (##cdr _%e9593195985%_)))) + (##cdr _%e9703397087%_)))) (if (gx#stx-pair/null? - _%hd9593295989%_) - (let ((_g101608_ + _%hd9703497091%_) + (let ((_g102756_ (gx#syntax-split-splice - _%hd9593295989%_ + _%hd9703497091%_ '0))) (begin - (let ((_g101609_ + (let ((_g102757_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g101608_) - (##vector-length _g101608_) + (if (##values? _g102756_) + (##values-length _g102756_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g101609_ 2))) - (error "Context expects 2 values" _g101609_))) - (let ((_%target9593495995%_ + (if (not (let () (declare (not safe)) (##fx= _g102757_ 2))) + (error "Context expects 2 values" _g102757_))) + (let ((_%target9703697097%_ (let () (declare (not safe)) - (##vector-ref _g101608_ 0))) - (_%tl9593695998%_ + (##values-ref _g102756_ 0))) + (_%tl9703897100%_ (let () (declare (not safe)) - (##vector-ref _g101608_ 1)))) - (if (gx#stx-null? _%tl9593695998%_) - (letrec ((_%loop9593796001%_ - (lambda (_%hd9593596005%_ _%super9594196008%_) - (if (gx#stx-pair? _%hd9593596005%_) - (let ((_%e9593896011%_ - (gx#syntax-e _%hd9593596005%_))) - (let ((_%lp-hd9593996015%_ + (##values-ref _g102756_ 1)))) + (if (gx#stx-null? _%tl9703897100%_) + (letrec ((_%loop9703997103%_ + (lambda (_%hd9703797107%_ _%super9704397110%_) + (if (gx#stx-pair? _%hd9703797107%_) + (let ((_%e9704097113%_ + (gx#syntax-e _%hd9703797107%_))) + (let ((_%lp-hd9704197117%_ (let () (declare (not safe)) - (##car _%e9593896011%_))) - (_%lp-tl9594096018%_ + (##car _%e9704097113%_))) + (_%lp-tl9704297120%_ (let () (declare (not safe)) - (##cdr _%e9593896011%_)))) - (_%loop9593796001%_ - _%lp-tl9594096018%_ - (cons _%lp-hd9593996015%_ - _%super9594196008%_)))) - (let ((_%super9594296021%_ - (reverse _%super9594196008%_))) - (if (gx#stx-null? _%tl9593395992%_) - ((lambda (_%L96025%_ - _%L96027%_ - _%L96028%_) + (##cdr _%e9704097113%_)))) + (_%loop9703997103%_ + _%lp-tl9704297120%_ + (cons _%lp-hd9704197117%_ + _%super9704397110%_)))) + (let ((_%super9704497123%_ + (reverse _%super9704397110%_))) + (if (gx#stx-null? _%tl9703597094%_) + ((lambda (_%L97127%_ + _%L97129%_ + _%L97130%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L96028%_ + (cons _%L97130%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.system) - (cons _%L96027%_ - (cons (let ((__tmp101610 - (lambda (_%g9605296055%_ + (cons _%L97129%_ + (cons (let ((__tmp102758 + (lambda (_%g9715497157%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g9605396058%_) - (cons _%g9605296055%_ _%g9605396058%_)))) + _%g9715597160%_) + (cons _%g9715497157%_ _%g9715597160%_)))) (declare (not safe)) - (__foldr1 __tmp101610 '() _%L96025%_)) + (__foldr1 __tmp102758 '() _%L97127%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -1230,189 +1230,189 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L96027%_ + (cons _%L97129%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (gx#datum->syntax '#f '@list) - (let ((__tmp101611 - (lambda (_%g9605096061%_ _%g9605196064%_) - (cons _%g9605096061%_ _%g9605196064%_)))) + (let ((__tmp102759 + (lambda (_%g9715297163%_ _%g9715397166%_) + (cons _%g9715297163%_ _%g9715397166%_)))) (declare (not safe)) - (__foldr1 __tmp101611 '() _%L96025%_))) + (__foldr1 __tmp102759 '() _%L97127%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%super9594296021%_ - _%hd9592995979%_ - _%hd9592695969%_) - (_%g9591795948%_ - _%g9591895952%_))))))) - (_%loop9593796001%_ _%target9593495995%_ '())) - (_%g9591795948%_ _%g9591895952%_))))) + _%super9704497123%_ + _%hd9703197081%_ + _%hd9702897071%_) + (_%g9701997050%_ + _%g9702097054%_))))))) + (_%loop9703997103%_ _%target9703697097%_ '())) + (_%g9701997050%_ _%g9702097054%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9591795948%_ - _%g9591895952%_)))) - (_%g9591795948%_ - _%g9591895952%_)))) - (_%g9591795948%_ _%g9591895952%_)))) - (_%g9591795948%_ _%g9591895952%_)))) - (_%g9591795948%_ _%g9591895952%_))))) - (_%g9591696067%_ _%$stx95913%_)))) + (_%g9701997050%_ + _%g9702097054%_)))) + (_%g9701997050%_ + _%g9702097054%_)))) + (_%g9701997050%_ _%g9702097054%_)))) + (_%g9701997050%_ _%g9702097054%_)))) + (_%g9701997050%_ _%g9702097054%_))))) + (_%g9701897169%_ _%$stx97015%_)))) (define |[:0:]#defshadow-class| - (lambda (_%$stx96072%_) - (let* ((_%g9607696107%_ - (lambda (_%g9607796103%_) + (lambda (_%$stx97174%_) + (let* ((_%g9717897209%_ + (lambda (_%g9717997205%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9607796103%_))) - (_%g9607596218%_ - (lambda (_%g9607796111%_) - (if (gx#stx-pair? _%g9607796111%_) - (let ((_%e9608196114%_ (gx#syntax-e _%g9607796111%_))) - (let ((_%hd9608296118%_ + _%g9717997205%_))) + (_%g9717797320%_ + (lambda (_%g9717997213%_) + (if (gx#stx-pair? _%g9717997213%_) + (let ((_%e9718397216%_ (gx#syntax-e _%g9717997213%_))) + (let ((_%hd9718497220%_ (let () (declare (not safe)) - (##car _%e9608196114%_))) - (_%tl9608396121%_ + (##car _%e9718397216%_))) + (_%tl9718597223%_ (let () (declare (not safe)) - (##cdr _%e9608196114%_)))) - (if (gx#stx-pair? _%tl9608396121%_) - (let ((_%e9608496124%_ - (gx#syntax-e _%tl9608396121%_))) - (let ((_%hd9608596128%_ + (##cdr _%e9718397216%_)))) + (if (gx#stx-pair? _%tl9718597223%_) + (let ((_%e9718697226%_ + (gx#syntax-e _%tl9718597223%_))) + (let ((_%hd9718797230%_ (let () (declare (not safe)) - (##car _%e9608496124%_))) - (_%tl9608696131%_ + (##car _%e9718697226%_))) + (_%tl9718897233%_ (let () (declare (not safe)) - (##cdr _%e9608496124%_)))) - (if (gx#stx-pair? _%tl9608696131%_) - (let ((_%e9608796134%_ - (gx#syntax-e _%tl9608696131%_))) - (let ((_%hd9608896138%_ + (##cdr _%e9718697226%_)))) + (if (gx#stx-pair? _%tl9718897233%_) + (let ((_%e9718997236%_ + (gx#syntax-e _%tl9718897233%_))) + (let ((_%hd9719097240%_ (let () (declare (not safe)) - (##car _%e9608796134%_))) - (_%tl9608996141%_ + (##car _%e9718997236%_))) + (_%tl9719197243%_ (let () (declare (not safe)) - (##cdr _%e9608796134%_)))) + (##cdr _%e9718997236%_)))) (if (gx#stx-pair/null? - _%hd9608896138%_) - (let ((_g101612_ + _%hd9719097240%_) + (let ((_g102760_ (gx#syntax-split-splice - _%hd9608896138%_ + _%hd9719097240%_ '0))) (begin - (let ((_g101613_ + (let ((_g102761_ (let () (declare (not safe)) (if (##values? - _g101612_) - (##vector-length - _g101612_) + _g102760_) + (##values-length + _g102760_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101613_ + (##fx= _g102761_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g101613_))) + (error "Context expects 2 values" _g102761_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target9609096144%_ + (let ((_%target9719297246%_ (let () (declare (not safe)) - (##vector-ref - _g101612_ + (##values-ref + _g102760_ 0))) - (_%tl9609296147%_ + (_%tl9719497249%_ (let () (declare (not safe)) - (##vector-ref - _g101612_ + (##values-ref + _g102760_ 1)))) (if (gx#stx-null? - _%tl9609296147%_) - (letrec ((_%loop9609396150%_ - (lambda (_%hd9609196154%_ + _%tl9719497249%_) + (letrec ((_%loop9719597252%_ + (lambda (_%hd9719397256%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%super9609796157%_) - (if (gx#stx-pair? _%hd9609196154%_) - (let ((_%e9609496160%_ - (gx#syntax-e _%hd9609196154%_))) - (let ((_%lp-hd9609596164%_ + _%super9719997259%_) + (if (gx#stx-pair? _%hd9719397256%_) + (let ((_%e9719697262%_ + (gx#syntax-e _%hd9719397256%_))) + (let ((_%lp-hd9719797266%_ (let () (declare (not safe)) - (##car _%e9609496160%_))) - (_%lp-tl9609696167%_ + (##car _%e9719697262%_))) + (_%lp-tl9719897269%_ (let () (declare (not safe)) - (##cdr _%e9609496160%_)))) - (_%loop9609396150%_ - _%lp-tl9609696167%_ - (cons _%lp-hd9609596164%_ - _%super9609796157%_)))) - (let ((_%super9609896170%_ - (reverse _%super9609796157%_))) - (if (gx#stx-pair? _%tl9608996141%_) - (let ((_%e9609996174%_ - (gx#syntax-e _%tl9608996141%_))) - (let ((_%hd9610096178%_ + (##cdr _%e9719697262%_)))) + (_%loop9719597252%_ + _%lp-tl9719897269%_ + (cons _%lp-hd9719797266%_ + _%super9719997259%_)))) + (let ((_%super9720097272%_ + (reverse _%super9719997259%_))) + (if (gx#stx-pair? _%tl9719197243%_) + (let ((_%e9720197276%_ + (gx#syntax-e _%tl9719197243%_))) + (let ((_%hd9720297280%_ (let () (declare (not safe)) - (##car _%e9609996174%_))) - (_%tl9610196181%_ + (##car _%e9720197276%_))) + (_%tl9720397283%_ (let () (declare (not safe)) - (##cdr _%e9609996174%_)))) - (if (gx#stx-null? _%tl9610196181%_) - ((lambda (_%L96184%_ - _%L96186%_ - _%L96187%_) + (##cdr _%e9720197276%_)))) + (if (gx#stx-null? _%tl9720397283%_) + ((lambda (_%L97286%_ + _%L97288%_ + _%L97289%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L96187%_ + (cons _%L97289%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.system) - (cons _%L96187%_ - (cons (let ((__tmp101614 - (lambda (_%g9620996212%_ + (cons _%L97289%_ + (cons (let ((__tmp102762 + (lambda (_%g9731197314%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g9621096215%_) - (cons _%g9620996212%_ _%g9621096215%_)))) + _%g9731297317%_) + (cons _%g9731197314%_ _%g9731297317%_)))) (declare (not safe)) - (__foldr1 __tmp101614 '() _%L96186%_)) + (__foldr1 __tmp102762 '() _%L97288%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f '__shadow-class) - (cons _%L96184%_ '())) + (cons _%L97286%_ '())) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9610096178%_ - _%super9609896170%_ - _%hd9608596128%_) - (_%g9607696107%_ - _%g9607796111%_)))) - (_%g9607696107%_ _%g9607796111%_))))))) - (_%loop9609396150%_ _%target9609096144%_ '())) - (_%g9607696107%_ _%g9607796111%_))))) + _%hd9720297280%_ + _%super9720097272%_ + _%hd9718797230%_) + (_%g9717897209%_ + _%g9717997213%_)))) + (_%g9717897209%_ _%g9717997213%_))))))) + (_%loop9719597252%_ _%target9719297246%_ '())) + (_%g9717897209%_ _%g9717997213%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9607696107%_ - _%g9607796111%_)))) - (_%g9607696107%_ _%g9607796111%_)))) - (_%g9607696107%_ _%g9607796111%_)))) - (_%g9607696107%_ _%g9607796111%_))))) - (_%g9607596218%_ _%$stx96072%_))))) + (_%g9717897209%_ + _%g9717997213%_)))) + (_%g9717897209%_ _%g9717997213%_)))) + (_%g9717897209%_ _%g9717997213%_)))) + (_%g9717897209%_ _%g9717997213%_))))) + (_%g9717797320%_ _%$stx97174%_))))) diff --git a/src/bootstrap/gerbil/runtime/repl~0.scm b/src/bootstrap/gerbil/runtime/repl~0.scm index 8cfe6ce29..40d5f5360 100644 --- a/src/bootstrap/gerbil/runtime/repl~0.scm +++ b/src/bootstrap/gerbil/runtime/repl~0.scm @@ -1,30 +1,30 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/repl::timestamp 1713631266) + (define gerbil/runtime/repl::timestamp 1734357961) (define replx (lambda () - (letrec ((_%write-reason114971%_ - (lambda (_%exn114977%_) - (lambda (_%cont114979%_ _%port114980%_) + (letrec ((_%write-reason116221%_ + (lambda (_%exn116227%_) + (lambda (_%cont116229%_ _%port116230%_) (let () (declare (not safe)) (##display-exception-in-context - _%exn114977%_ - _%cont114979%_ - _%port114980%_)) + _%exn116227%_ + _%cont116229%_ + _%port116230%_)) '#f)))) - (let ((__tmp114981 - (lambda (_%exn114973%_) - (let ((__tmp114982 - (lambda (_%cont114975%_) - (let ((__tmp114983 - (_%write-reason114971%_ _%exn114973%_))) + (let ((__tmp116231 + (lambda (_%exn116223%_) + (let ((__tmp116232 + (lambda (_%cont116225%_) + (let ((__tmp116233 + (_%write-reason116221%_ _%exn116223%_))) (declare (not safe)) (##repl-within - _%cont114975%_ - __tmp114983 - _%exn114973%_))))) + _%cont116225%_ + __tmp116233 + _%exn116223%_))))) (declare (not safe)) - (##continuation-capture __tmp114982))))) + (##continuation-capture __tmp116232))))) (declare (not safe)) - (with-exception-handler __tmp114981 ##repl)))))) + (with-exception-handler __tmp116231 ##repl)))))) diff --git a/src/bootstrap/gerbil/runtime/syntax~0.scm b/src/bootstrap/gerbil/runtime/syntax~0.scm index b19943acf..c5d9dde00 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 1713631265) + (define gerbil/runtime/syntax::timestamp 1734357961) (begin (declare (not safe)) (define SyntaxError::t @@ -13,8 +13,8 @@ '#f)) (define SyntaxError? (__make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _%$args112208%_ - (apply make-instance SyntaxError::t _%$args112208%_))) + (lambda _%$args113458%_ + (apply make-instance SyntaxError::t _%$args113458%_))) (define SyntaxError-message (__make-class-slot-accessor SyntaxError::t 'message)) (define SyntaxError-irritants @@ -71,115 +71,115 @@ (define &SyntaxError-continuation-set! (__make-class-slot-unchecked-mutator SyntaxError::t 'continuation)) (define SyntaxError::display-exception - (lambda (_%self111709112090%_ _%port112092%_) - (let* ((_%self112094%_ _%self111709112090%_) - (_%self112096%_ _%self112094%_)) - (letrec ((_%location112106%_ + (lambda (_%self112959113340%_ _%port113342%_) + (let* ((_%self113344%_ _%self112959113340%_) + (_%self113346%_ _%self113344%_)) + (letrec ((_%location113356%_ (lambda () - (let _%lp112168%_ ((_%rest112170%_ + (let _%lp113418%_ ((_%rest113420%_ (##unchecked-structure-ref - _%self112096%_ + _%self113346%_ '3 '#f '#f))) - (let* ((_%rest112171112179%_ _%rest112170%_) - (_%else112173112187%_ (lambda () '#f)) - (_%K112175112196%_ - (lambda (_%rest112190%_ _%hd112191%_) - (let ((_%$e112193%_ - (__AST-source _%hd112191%_))) - (if _%$e112193%_ - _%$e112193%_ - (_%lp112168%_ _%rest112190%_)))))) - (if (pair? _%rest112171112179%_) - (let ((_%hd112176112199%_ - (##car _%rest112171112179%_)) - (_%tl112177112201%_ - (##cdr _%rest112171112179%_))) - (let* ((_%hd112204%_ _%hd112176112199%_) - (_%rest112206%_ _%tl112177112201%_)) - (_%K112175112196%_ - _%rest112206%_ - _%hd112204%_))) - (_%else112173112187%_))))))) + (let* ((_%rest113421113429%_ _%rest113420%_) + (_%else113423113437%_ (lambda () '#f)) + (_%K113425113446%_ + (lambda (_%rest113440%_ _%hd113441%_) + (let ((_%$e113443%_ + (__AST-source _%hd113441%_))) + (if _%$e113443%_ + _%$e113443%_ + (_%lp113418%_ _%rest113440%_)))))) + (if (pair? _%rest113421113429%_) + (let ((_%hd113426113449%_ + (##car _%rest113421113429%_)) + (_%tl113427113451%_ + (##cdr _%rest113421113429%_))) + (let* ((_%hd113454%_ _%hd113426113449%_) + (_%rest113456%_ _%tl113427113451%_)) + (_%K113425113446%_ + _%rest113456%_ + _%hd113454%_))) + (_%else113423113437%_))))))) (__call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_%$e112109%_ (_%location112106%_))) - (if _%$e112109%_ - ((lambda (_%where112112%_) - (##display-locat _%where112112%_ '#t _%port112092%_)) - _%$e112109%_) + (let ((_%$e113359%_ (_%location113356%_))) + (if _%$e113359%_ + ((lambda (_%where113362%_) + (##display-locat _%where113362%_ '#t _%port113342%_)) + _%$e113359%_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_%$e112115%_ - (##unchecked-structure-ref _%self112096%_ '4 '#f '#f))) - (if _%$e112115%_ - ((lambda (_%where112118%_) + (let ((_%$e113365%_ + (##unchecked-structure-ref _%self113346%_ '4 '#f '#f))) + (if _%$e113365%_ + ((lambda (_%where113368%_) (displayln '" at " - _%where112118%_ + _%where113368%_ '": " (##unchecked-structure-ref - _%self112096%_ + _%self113346%_ '2 '#f '#f))) - _%$e112115%_) + _%$e113365%_) (displayln '": " - (##unchecked-structure-ref _%self112096%_ '2 '#f '#f)))) - (let* ((_%self.irritants112120112128%_ - (##unchecked-structure-ref _%self112096%_ '3 '#f '#f)) - (_%else112122112136%_ (lambda () '#!void)) - (_%K112124112149%_ - (lambda (_%rest112139%_ _%stx112140%_) + (##unchecked-structure-ref _%self113346%_ '2 '#f '#f)))) + (let* ((_%self.irritants113370113378%_ + (##unchecked-structure-ref _%self113346%_ '3 '#f '#f)) + (_%else113372113386%_ (lambda () '#!void)) + (_%K113374113399%_ + (lambda (_%rest113389%_ _%stx113390%_) (display '"... form: ") - (__pp-syntax _%stx112140%_) + (__pp-syntax _%stx113390%_) (for-each - (lambda (_%detail112142%_) + (lambda (_%detail113392%_) (display '"... detail: ") - (##write (__AST->datum _%detail112142%_)) - (let ((_%$e112144%_ - (__AST-source _%detail112142%_))) - (if _%$e112144%_ - ((lambda (_%loc112147%_) + (##write (__AST->datum _%detail113392%_)) + (let ((_%$e113394%_ + (__AST-source _%detail113392%_))) + (if _%$e113394%_ + ((lambda (_%loc113397%_) (display '" at ") (##display-locat - _%loc112147%_ + _%loc113397%_ '#t - _%port112092%_)) - _%$e112144%_) + _%port113342%_)) + _%$e113394%_) '#!void)) (newline)) - _%rest112139%_)))) - (if (pair? _%self.irritants112120112128%_) - (let ((_%hd112125112152%_ - (##car _%self.irritants112120112128%_)) - (_%tl112126112154%_ - (##cdr _%self.irritants112120112128%_))) - (let* ((_%stx112157%_ _%hd112125112152%_) - (_%rest112159%_ _%tl112126112154%_)) - (_%K112124112149%_ _%rest112159%_ _%stx112157%_))) + _%rest113389%_)))) + (if (pair? _%self.irritants113370113378%_) + (let ((_%hd113375113402%_ + (##car _%self.irritants113370113378%_)) + (_%tl113376113404%_ + (##cdr _%self.irritants113370113378%_))) + (let* ((_%stx113407%_ _%hd113375113402%_) + (_%rest113409%_ _%tl113376113404%_)) + (_%K113374113399%_ _%rest113409%_ _%stx113407%_))) '#!void)) (if (##getenv '"GERBIL_DEBUG" '#f) - (let ((_%cont112160112162%_ + (let ((_%cont113410113412%_ (##unchecked-structure-ref - _%self112096%_ + _%self113346%_ '1 '#f '#f))) - (if _%cont112160112162%_ - (let ((_%cont112165%_ _%cont112160112162%_)) + (if _%cont113410113412%_ + (let ((_%cont113415%_ _%cont113410113412%_)) (display '"--- continuation backtrace:") (newline) - (display-continuation-backtrace _%cont112165%_)) + (display-continuation-backtrace _%cont113415%_)) '#f)) '#!void)) current-output-port - _%port112092%_))))) + _%port113342%_))))) (__bind-method!__% SyntaxError::t 'display-exception @@ -187,37 +187,37 @@ '#f) (__seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_%message111961%_ - _%irritants111962%_ - _%where111963%_ - _%context111964%_ - _%marks111965%_ - _%phi111966%_) - (let ((__obj112305 + (lambda (_%message113211%_ + _%irritants113212%_ + _%where113213%_ + _%context113214%_ + _%marks113215%_ + _%phi113216%_) + (let ((__obj113555 (##structure SyntaxError::t '#f '#f '#f '#f '#f '#f '#f))) - (##unchecked-structure-set! __obj112305 _%message111961%_ '2 '#f '#f) + (##unchecked-structure-set! __obj113555 _%message113211%_ '2 '#f '#f) (##unchecked-structure-set! - __obj112305 - _%irritants111962%_ + __obj113555 + _%irritants113212%_ '3 '#f '#f) - (##unchecked-structure-set! __obj112305 _%where111963%_ '4 '#f '#f) - (##unchecked-structure-set! __obj112305 _%context111964%_ '5 '#f '#f) - (##unchecked-structure-set! __obj112305 _%marks111965%_ '7 '#f '#f) - (##unchecked-structure-set! __obj112305 _%phi111966%_ '6 '#f '#f) - __obj112305))) + (##unchecked-structure-set! __obj113555 _%where113213%_ '4 '#f '#f) + (##unchecked-structure-set! __obj113555 _%context113214%_ '5 '#f '#f) + (##unchecked-structure-set! __obj113555 _%marks113215%_ '7 '#f '#f) + (##unchecked-structure-set! __obj113555 _%phi113216%_ '6 '#f '#f) + __obj113555))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_%where111956%_ - _%message111957%_ - _%stx111958%_ + (lambda (_%where113206%_ + _%message113207%_ + _%stx113208%_ . - _%details111959%_) + _%details113209%_) (raise (make-syntax-error - _%message111957%_ - (cons _%stx111958%_ _%details111959%_) - _%where111956%_ + _%message113207%_ + (cons _%stx113208%_ _%details113209%_) + _%where113206%_ '#f '#f '#f)))) @@ -231,7 +231,7 @@ '#f)) (define AST? (__make-class-predicate AST::t)) (define make-AST - (lambda _%$args111953%_ (apply make-instance AST::t _%$args111953%_))) + (lambda _%$args113203%_ (apply make-instance AST::t _%$args113203%_))) (define AST-e (__make-class-slot-accessor AST::t 'e)) (define AST-source (__make-class-slot-accessor AST::t 'source)) (define AST-e-set! (__make-class-slot-mutator AST::t 'e)) @@ -242,167 +242,167 @@ (define &AST-source-set! (__make-class-slot-unchecked-mutator AST::t 'source)) (define __AST-e - (lambda (_%stx111951%_) - (if (##structure-instance-of? _%stx111951%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx111951%_ '1 '#f '#f) - _%stx111951%_))) + (lambda (_%stx113201%_) + (if (##structure-instance-of? _%stx113201%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx113201%_ '1 '#f '#f) + _%stx113201%_))) (define __AST-source - (lambda (_%stx111942%_) - (let _%lp111944%_ ((_%src111946%_ _%stx111942%_)) - (if (##structure-instance-of? _%src111946%_ 'gerbil#AST::t) - (_%lp111944%_ - (##unchecked-structure-ref _%src111946%_ '2 '#f '#f)) - (if (##locat? _%src111946%_) _%src111946%_ '#f))))) + (lambda (_%stx113192%_) + (let _%lp113194%_ ((_%src113196%_ _%stx113192%_)) + (if (##structure-instance-of? _%src113196%_ 'gerbil#AST::t) + (_%lp113194%_ + (##unchecked-structure-ref _%src113196%_ '2 '#f '#f)) + (if (##locat? _%src113196%_) _%src113196%_ '#f))))) (define __AST - (lambda (_%e111934%_ _%src-stx111935%_) - (let ((_%src111937%_ (__AST-source _%src-stx111935%_))) - (if (or (##structure-instance-of? _%e111934%_ 'gerbil#AST::t) - (not _%src111937%_)) - _%e111934%_ - (##structure AST::t _%e111934%_ _%src111937%_))))) + (lambda (_%e113184%_ _%src-stx113185%_) + (let ((_%src113187%_ (__AST-source _%src-stx113185%_))) + (if (or (##structure-instance-of? _%e113184%_ 'gerbil#AST::t) + (not _%src113187%_)) + _%e113184%_ + (##structure AST::t _%e113184%_ _%src113187%_))))) (define __AST-eq? - (lambda (_%stx111931%_ _%obj111932%_) - (eq? (__AST-e _%stx111931%_) _%obj111932%_))) + (lambda (_%stx113181%_ _%obj113182%_) + (eq? (__AST-e _%stx113181%_) _%obj113182%_))) (define __AST-pair? - (lambda (_%stx111929%_) (pair? (__AST-e _%stx111929%_)))) + (lambda (_%stx113179%_) (pair? (__AST-e _%stx113179%_)))) (define __AST-null? - (lambda (_%stx111927%_) (null? (__AST-e _%stx111927%_)))) + (lambda (_%stx113177%_) (null? (__AST-e _%stx113177%_)))) (define __AST-datum? - (lambda (_%stx111908%_) - (let* ((_%e111910%_ (__AST-e _%stx111908%_)) - (_%$e111912%_ (number? _%e111910%_))) - (if _%$e111912%_ - _%$e111912%_ - (let ((_%$e111915%_ (string? _%e111910%_))) - (if _%$e111915%_ - _%$e111915%_ - (let ((_%$e111918%_ (char? _%e111910%_))) - (if _%$e111918%_ - _%$e111918%_ - (let ((_%$e111921%_ (keyword? _%e111910%_))) - (if _%$e111921%_ - _%$e111921%_ - (let ((_%$e111924%_ (boolean? _%e111910%_))) - (if _%$e111924%_ - _%$e111924%_ - (eq? _%e111910%_ '#!void))))))))))))) + (lambda (_%stx113158%_) + (let* ((_%e113160%_ (__AST-e _%stx113158%_)) + (_%$e113162%_ (number? _%e113160%_))) + (if _%$e113162%_ + _%$e113162%_ + (let ((_%$e113165%_ (string? _%e113160%_))) + (if _%$e113165%_ + _%$e113165%_ + (let ((_%$e113168%_ (char? _%e113160%_))) + (if _%$e113168%_ + _%$e113168%_ + (let ((_%$e113171%_ (keyword? _%e113160%_))) + (if _%$e113171%_ + _%$e113171%_ + (let ((_%$e113174%_ (boolean? _%e113160%_))) + (if _%$e113174%_ + _%$e113174%_ + (eq? _%e113160%_ '#!void))))))))))))) (define __AST-id? - (lambda (_%stx111906%_) (symbol? (__AST-e _%stx111906%_)))) + (lambda (_%stx113156%_) (symbol? (__AST-e _%stx113156%_)))) (define __AST-id-list?__% - (lambda (_%stx111857%_ _%tail?111858%_) - (let _%lp111860%_ ((_%rest111862%_ _%stx111857%_)) - (let* ((_%$e111864%_ _%rest111862%_) - (_%$E111866111879%_ + (lambda (_%stx113107%_ _%tail?113108%_) + (let _%lp113110%_ ((_%rest113112%_ _%stx113107%_)) + (let* ((_%$e113114%_ _%rest113112%_) + (_%$E113116113129%_ (lambda () - (let* ((_%$E111867111874%_ + (let* ((_%$E113117113124%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111864%_))) - (_%rest111877%_ _%$e111864%_)) - (_%tail?111858%_ _%rest111877%_))))) - (if (__AST-pair? _%$e111864%_) - (let* ((_%$tgt111868111882%_ (__AST-e _%$e111864%_)) - (_%$hd111869111885%_ (##car _%$tgt111868111882%_)) - (_%$tl111870111888%_ (##cdr _%$tgt111868111882%_)) - (_%hd111892%_ _%$hd111869111885%_) - (_%rest111894%_ _%$tl111870111888%_)) - (if (__AST-id? _%hd111892%_) - (_%lp111860%_ _%rest111894%_) + _%$e113114%_))) + (_%rest113127%_ _%$e113114%_)) + (_%tail?113108%_ _%rest113127%_))))) + (if (__AST-pair? _%$e113114%_) + (let* ((_%$tgt113118113132%_ (__AST-e _%$e113114%_)) + (_%$hd113119113135%_ (##car _%$tgt113118113132%_)) + (_%$tl113120113138%_ (##cdr _%$tgt113118113132%_)) + (_%hd113142%_ _%$hd113119113135%_) + (_%rest113144%_ _%$tl113120113138%_)) + (if (__AST-id? _%hd113142%_) + (_%lp113110%_ _%rest113144%_) '#f)) - (_%$E111866111879%_)))))) + (_%$E113116113129%_)))))) (define __AST-id-list?__0 - (lambda (_%stx111899%_) - (let ((_%tail?111901%_ __AST-null?)) - (__AST-id-list?__% _%stx111899%_ _%tail?111901%_)))) + (lambda (_%stx113149%_) + (let ((_%tail?113151%_ __AST-null?)) + (__AST-id-list?__% _%stx113149%_ _%tail?113151%_)))) (define __AST-id-list? - (lambda _g112308_ - (let ((_g112307_ (##length _g112308_))) - (cond ((##fx= _g112307_ 1) (apply __AST-id-list?__0 _g112308_)) - ((##fx= _g112307_ 2) (apply __AST-id-list?__% _g112308_)) + (lambda _g113558_ + (let ((_g113557_ (##length _g113558_))) + (cond ((##fx= _g113557_ 1) (apply __AST-id-list?__0 _g113558_)) + ((##fx= _g113557_ 2) (apply __AST-id-list?__% _g113558_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g112308_)))))) + _g113558_)))))) (define __AST-bind-list? - (lambda (_%stx111849%_) + (lambda (_%stx113099%_) (__AST-id-list?__% - _%stx111849%_ - (lambda (_%e111851%_) - (let ((_%$e111853%_ (__AST-null? _%e111851%_))) - (if _%$e111853%_ _%$e111853%_ (__AST-id? _%e111851%_))))))) + _%stx113099%_ + (lambda (_%e113101%_) + (let ((_%$e113103%_ (__AST-null? _%e113101%_))) + (if _%$e113103%_ _%$e113103%_ (__AST-id? _%e113101%_))))))) (define __AST-list?__% - (lambda (_%stx111802%_ _%tail?111803%_) - (let _%lp111805%_ ((_%rest111807%_ _%stx111802%_)) - (let* ((_%$e111809%_ _%rest111807%_) - (_%$E111811111824%_ + (lambda (_%stx113052%_ _%tail?113053%_) + (let _%lp113055%_ ((_%rest113057%_ _%stx113052%_)) + (let* ((_%$e113059%_ _%rest113057%_) + (_%$E113061113074%_ (lambda () - (let* ((_%$E111812111819%_ + (let* ((_%$E113062113069%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111809%_))) - (_%rest111822%_ _%$e111809%_)) - (_%tail?111803%_ _%rest111822%_))))) - (if (__AST-pair? _%$e111809%_) - (let* ((_%$tgt111813111827%_ (__AST-e _%$e111809%_)) - (_%$hd111814111830%_ (##car _%$tgt111813111827%_)) - (_%$tl111815111833%_ (##cdr _%$tgt111813111827%_)) - (_%rest111837%_ _%$tl111815111833%_)) - (_%lp111805%_ _%rest111837%_)) - (_%$E111811111824%_)))))) + _%$e113059%_))) + (_%rest113072%_ _%$e113059%_)) + (_%tail?113053%_ _%rest113072%_))))) + (if (__AST-pair? _%$e113059%_) + (let* ((_%$tgt113063113077%_ (__AST-e _%$e113059%_)) + (_%$hd113064113080%_ (##car _%$tgt113063113077%_)) + (_%$tl113065113083%_ (##cdr _%$tgt113063113077%_)) + (_%rest113087%_ _%$tl113065113083%_)) + (_%lp113055%_ _%rest113087%_)) + (_%$E113061113074%_)))))) (define __AST-list?__0 - (lambda (_%stx111842%_) - (let ((_%tail?111844%_ __AST-null?)) - (__AST-list?__% _%stx111842%_ _%tail?111844%_)))) + (lambda (_%stx113092%_) + (let ((_%tail?113094%_ __AST-null?)) + (__AST-list?__% _%stx113092%_ _%tail?113094%_)))) (define __AST-list? - (lambda _g112310_ - (let ((_g112309_ (##length _g112310_))) - (cond ((##fx= _g112309_ 1) (apply __AST-list?__0 _g112310_)) - ((##fx= _g112309_ 2) (apply __AST-list?__% _g112310_)) + (lambda _g113560_ + (let ((_g113559_ (##length _g113560_))) + (cond ((##fx= _g113559_ 1) (apply __AST-list?__0 _g113560_)) + ((##fx= _g113559_ 2) (apply __AST-list?__% _g113560_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g112310_)))))) + _g113560_)))))) (define __AST->list - (lambda (_%stx111767%_) - (let* ((_%$e111769%_ _%stx111767%_) - (_%$E111771111784%_ + (lambda (_%stx113017%_) + (let* ((_%$e113019%_ _%stx113017%_) + (_%$E113021113034%_ (lambda () - (let* ((_%$E111772111779%_ + (let* ((_%$E113022113029%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111769%_))) - (_%rest111782%_ _%$e111769%_)) - (__AST-e _%rest111782%_))))) - (if (__AST-pair? _%$e111769%_) - (let* ((_%$tgt111773111787%_ (__AST-e _%$e111769%_)) - (_%$hd111774111790%_ (##car _%$tgt111773111787%_)) - (_%$tl111775111793%_ (##cdr _%$tgt111773111787%_)) - (_%hd111797%_ _%$hd111774111790%_) - (_%rest111799%_ _%$tl111775111793%_)) - (cons _%hd111797%_ (__AST->list _%rest111799%_))) - (_%$E111771111784%_))))) + _%$e113019%_))) + (_%rest113032%_ _%$e113019%_)) + (__AST-e _%rest113032%_))))) + (if (__AST-pair? _%$e113019%_) + (let* ((_%$tgt113023113037%_ (__AST-e _%$e113019%_)) + (_%$hd113024113040%_ (##car _%$tgt113023113037%_)) + (_%$tl113025113043%_ (##cdr _%$tgt113023113037%_)) + (_%hd113047%_ _%$hd113024113040%_) + (_%rest113049%_ _%$tl113025113043%_)) + (cons _%hd113047%_ (__AST->list _%rest113049%_))) + (_%$E113021113034%_))))) (define __AST->datum - (lambda (_%stx111760%_) - (if (##structure-instance-of? _%stx111760%_ 'gerbil#AST::t) - (__AST->datum (__AST-e _%stx111760%_)) - (if (pair? _%stx111760%_) - (cons (__AST->datum (##car _%stx111760%_)) - (__AST->datum (##cdr _%stx111760%_))) - (if (vector? _%stx111760%_) - (vector-map __AST->datum _%stx111760%_) - (if (box? _%stx111760%_) - (box (__AST->datum (unbox _%stx111760%_))) - _%stx111760%_)))))) + (lambda (_%stx113010%_) + (if (##structure-instance-of? _%stx113010%_ 'gerbil#AST::t) + (__AST->datum (__AST-e _%stx113010%_)) + (if (pair? _%stx113010%_) + (cons (__AST->datum (##car _%stx113010%_)) + (__AST->datum (##cdr _%stx113010%_))) + (if (vector? _%stx113010%_) + (vector-map __AST->datum _%stx113010%_) + (if (box? _%stx113010%_) + (box (__AST->datum (unbox _%stx113010%_))) + _%stx113010%_)))))) (define get-readenv - (lambda (_%port111758%_) + (lambda (_%port113008%_) (##make-readenv - _%port111758%_ + _%port113008%_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -410,93 +410,93 @@ '() '#f))) (define read-syntax__% - (lambda (_%in111746%_) - (let ((_%e111748%_ (##read-datum-or-eof (get-readenv _%in111746%_)))) - (if (eof-object? (__AST-e _%e111748%_)) - (__AST-e _%e111748%_) - _%e111748%_)))) + (lambda (_%in112996%_) + (let ((_%e112998%_ (##read-datum-or-eof (get-readenv _%in112996%_)))) + (if (eof-object? (__AST-e _%e112998%_)) + (__AST-e _%e112998%_) + _%e112998%_)))) (define read-syntax__0 (lambda () - (let ((_%in111754%_ (current-input-port))) - (read-syntax__% _%in111754%_)))) + (let ((_%in113004%_ (current-input-port))) + (read-syntax__% _%in113004%_)))) (define read-syntax - (lambda _g112312_ - (let ((_g112311_ (##length _g112312_))) - (cond ((##fx= _g112311_ 0) (apply read-syntax__0 _g112312_)) - ((##fx= _g112311_ 1) (apply read-syntax__% _g112312_)) + (lambda _g113562_ + (let ((_g113561_ (##length _g113562_))) + (cond ((##fx= _g113561_ 0) (apply read-syntax__0 _g113562_)) + ((##fx= _g113561_ 1) (apply read-syntax__% _g113562_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g112312_)))))) + _g113562_)))))) (define read-syntax-from-file - (lambda (_%path111741%_) - (let ((_%r111743%_ + (lambda (_%path112991%_) + (let ((_%r112993%_ (##read-all-as-a-begin-expr-from-path - (path-normalize _%path111741%_) + (path-normalize _%path112991%_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _%r111743%_) - (cdr (__AST-e (vector-ref _%r111743%_ '1))) - (error (err-code->string _%r111743%_) _%path111741%_))))) + (if (vector? _%r112993%_) + (cdr (__AST-e (vector-ref _%r112993%_ '1))) + (error (err-code->string _%r112993%_) _%path112991%_))))) (define __wrap-syntax - (lambda (_%re111738%_ _%e111739%_) - (if (eof-object? _%e111739%_) - _%e111739%_ - (##structure AST::t _%e111739%_ (##readenv->locat _%re111738%_))))) + (lambda (_%re112988%_ _%e112989%_) + (if (eof-object? _%e112989%_) + _%e112989%_ + (##structure AST::t _%e112989%_ (##readenv->locat _%re112988%_))))) (define __unwrap-syntax - (lambda (_%re111735%_ _%e111736%_) (__AST-e _%e111736%_))) + (lambda (_%re112985%_ _%e112986%_) (__AST-e _%e112986%_))) (define __pp-syntax - (lambda (_%stx111733%_) (pp (__AST->datum _%stx111733%_)))) + (lambda (_%stx112983%_) (pp (__AST->datum _%stx112983%_)))) (define __make-readtable (lambda () - (let ((_%rt111731%_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _%rt111731%_ '#t) - (macro-readtable-bracket-handler-set! _%rt111731%_ '@list) - (macro-readtable-brace-handler-set! _%rt111731%_ '@method) + (let ((_%rt112981%_ (##make-standard-readtable))) + (macro-readtable-write-extended-read-macros?-set! _%rt112981%_ '#t) + (macro-readtable-bracket-handler-set! _%rt112981%_ '@list) + (macro-readtable-brace-handler-set! _%rt112981%_ '@method) (##readtable-char-sharp-handler-set! - _%rt111731%_ + _%rt112981%_ '#\! __read-sharp-bang) - _%rt111731%_))) + _%rt112981%_))) (define __readtable-bracket-keyword-set! - (lambda (_%rt111727%_ _%kw111728%_) - (macro-readtable-bracket-handler-set! _%rt111727%_ _%kw111728%_))) + (lambda (_%rt112977%_ _%kw112978%_) + (macro-readtable-bracket-handler-set! _%rt112977%_ _%kw112978%_))) (define __readtable-brace-keyword-set! - (lambda (_%rt111724%_ _%kw111725%_) - (macro-readtable-brace-handler-set! _%rt111724%_ _%kw111725%_))) + (lambda (_%rt112974%_ _%kw112975%_) + (macro-readtable-brace-handler-set! _%rt112974%_ _%kw112975%_))) (define __read-sharp-bang - (lambda (_%re111715%_ _%next111716%_ _%start-pos111717%_) - (if (eq? _%start-pos111717%_ '0) - (let* ((_%line111719%_ + (lambda (_%re112965%_ _%next112966%_ _%start-pos112967%_) + (if (eq? _%start-pos112967%_ '0) + (let* ((_%line112969%_ (##read-line - (macro-readenv-port _%re111715%_) + (macro-readenv-port _%re112965%_) '#\newline '#f ##max-fixnum)) - (_%script-line111721%_ + (_%script-line112971%_ (substring - _%line111719%_ + _%line112969%_ '1 - (string-length _%line111719%_)))) + (string-length _%line112969%_)))) (macro-readenv-script-line-set! - _%re111715%_ - _%script-line111721%_) + _%re112965%_ + _%script-line112971%_) (##script-marker)) (##read-sharp-bang - _%re111715%_ - _%next111716%_ - _%start-pos111717%_)))) + _%re112965%_ + _%next112966%_ + _%start-pos112967%_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_%obj111713%_) - (if (source-location? _%obj111713%_) - (string? (##locat-container _%obj111713%_)) + (lambda (_%obj112963%_) + (if (source-location? _%obj112963%_) + (string? (##locat-container _%obj112963%_)) '#f))) (define source-location-path - (lambda (_%obj111711%_) - (if (##locat? _%obj111711%_) - (##container->path (##locat-container _%obj111711%_)) + (lambda (_%obj112961%_) + (if (##locat? _%obj112961%_) + (##container->path (##locat-container _%obj112961%_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax~1.scm b/src/bootstrap/gerbil/runtime/syntax~1.scm index 5214f0a0d..d60f20e2f 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]#_g112321_| + (define |[1]#_g113571_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g112324_| + (define |[1]#_g113574_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g112325_| + (define |[1]#_g113575_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g112327_| + (define |[1]#_g113577_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g112329_| + (define |[1]#_g113579_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g112331_| + (define |[1]#_g113581_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g112333_| + (define |[1]#_g113583_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g112334_| + (define |[1]#_g113584_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g112335_| + (define |[1]#_g113585_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g112336_| + (define |[1]#_g113586_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g112337_| + (define |[1]#_g113587_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g112338_| + (define |[1]#_g113588_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g112339_| + (define |[1]#_g113589_| (##structure gx#syntax-quote::t 'SyntaxError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g112341_| + (define |[1]#_g113591_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112342_| + (define |[1]#_g113592_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112343_| + (define |[1]#_g113593_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112344_| + (define |[1]#_g113594_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112345_| + (define |[1]#_g113595_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112346_| + (define |[1]#_g113596_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112347_| + (define |[1]#_g113597_| (##structure gx#syntax-quote::t 'SyntaxError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112349_| + (define |[1]#_g113599_| (##structure gx#syntax-quote::t '&SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g112350_| + (define |[1]#_g113600_| (##structure gx#syntax-quote::t '&SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g112351_| + (define |[1]#_g113601_| (##structure gx#syntax-quote::t '&SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g112352_| + (define |[1]#_g113602_| (##structure gx#syntax-quote::t '&SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g112353_| + (define |[1]#_g113603_| (##structure gx#syntax-quote::t '&SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g112354_| + (define |[1]#_g113604_| (##structure gx#syntax-quote::t '&SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g112355_| + (define |[1]#_g113605_| (##structure gx#syntax-quote::t '&SyntaxError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g112357_| + (define |[1]#_g113607_| (##structure gx#syntax-quote::t '&SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112358_| + (define |[1]#_g113608_| (##structure gx#syntax-quote::t '&SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112359_| + (define |[1]#_g113609_| (##structure gx#syntax-quote::t '&SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112360_| + (define |[1]#_g113610_| (##structure gx#syntax-quote::t '&SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112361_| + (define |[1]#_g113611_| (##structure gx#syntax-quote::t '&SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112362_| + (define |[1]#_g113612_| (##structure gx#syntax-quote::t '&SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112363_| + (define |[1]#_g113613_| (##structure gx#syntax-quote::t '&SyntaxError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112365_| + (define |[1]#_g113615_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g112367_| + (define |[1]#_g113617_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |[1]#_g112369_| + (define |[1]#_g113619_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g112371_| + (define |[1]#_g113621_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g112372_| + (define |[1]#_g113622_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g112374_| + (define |[1]#_g113624_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112375_| + (define |[1]#_g113625_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112377_| + (define |[1]#_g113627_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g112378_| + (define |[1]#_g113628_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g112380_| + (define |[1]#_g113630_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112381_| + (define |[1]#_g113631_| (##structure gx#syntax-quote::t '&AST-source-set! @@ -317,291 +317,291 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_%$stx110591%_) - (let* ((_%g110595110619%_ - (lambda (_%g110596110615%_) + (lambda (_%$stx111841%_) + (let* ((_%g111845111869%_ + (lambda (_%g111846111865%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110596110615%_))) - (_%g110594110705%_ - (lambda (_%g110596110623%_) - (if (gx#stx-pair? _%g110596110623%_) - (let ((_%e110599110626%_ - (gx#syntax-e _%g110596110623%_))) - (let ((_%hd110600110630%_ + _%g111846111865%_))) + (_%g111844111955%_ + (lambda (_%g111846111873%_) + (if (gx#stx-pair? _%g111846111873%_) + (let ((_%e111849111876%_ + (gx#syntax-e _%g111846111873%_))) + (let ((_%hd111850111880%_ (let () (declare (not safe)) - (##car _%e110599110626%_))) - (_%tl110601110633%_ + (##car _%e111849111876%_))) + (_%tl111851111883%_ (let () (declare (not safe)) - (##cdr _%e110599110626%_)))) - (if (gx#stx-pair? _%tl110601110633%_) - (let ((_%e110602110636%_ - (gx#syntax-e _%tl110601110633%_))) - (let ((_%hd110603110640%_ + (##cdr _%e111849111876%_)))) + (if (gx#stx-pair? _%tl111851111883%_) + (let ((_%e111852111886%_ + (gx#syntax-e _%tl111851111883%_))) + (let ((_%hd111853111890%_ (let () (declare (not safe)) - (##car _%e110602110636%_))) - (_%tl110604110643%_ + (##car _%e111852111886%_))) + (_%tl111854111893%_ (let () (declare (not safe)) - (##cdr _%e110602110636%_)))) - (if (gx#stx-pair/null? _%tl110604110643%_) - (let ((_g112313_ + (##cdr _%e111852111886%_)))) + (if (gx#stx-pair/null? _%tl111854111893%_) + (let ((_g113563_ (gx#syntax-split-splice - _%tl110604110643%_ + _%tl111854111893%_ '0))) (begin - (let ((_g112314_ + (let ((_g113564_ (let () (declare (not safe)) - (if (##values? _g112313_) - (##vector-length - _g112313_) + (if (##values? _g113563_) + (##values-length + _g113563_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g112314_ 2))) + (##fx= _g113564_ 2))) (error "Context expects 2 values" - _g112314_))) - (let ((_%target110605110646%_ + _g113564_))) + (let ((_%target111855111896%_ (let () (declare (not safe)) - (##vector-ref _g112313_ 0))) - (_%tl110607110649%_ + (##values-ref _g113563_ 0))) + (_%tl111857111899%_ (let () (declare (not safe)) - (##vector-ref - _g112313_ + (##values-ref + _g113563_ 1)))) (if (gx#stx-null? - _%tl110607110649%_) - (letrec ((_%loop110608110652%_ - (lambda (_%hd110606110656%_ + _%tl111857111899%_) + (letrec ((_%loop111858111902%_ + (lambda (_%hd111856111906%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body110612110659%_) - (if (gx#stx-pair? _%hd110606110656%_) - (let ((_%e110609110662%_ - (gx#syntax-e _%hd110606110656%_))) - (let ((_%lp-hd110610110666%_ + _%body111862111909%_) + (if (gx#stx-pair? _%hd111856111906%_) + (let ((_%e111859111912%_ + (gx#syntax-e _%hd111856111906%_))) + (let ((_%lp-hd111860111916%_ (let () (declare (not safe)) - (##car _%e110609110662%_))) - (_%lp-tl110611110669%_ + (##car _%e111859111912%_))) + (_%lp-tl111861111919%_ (let () (declare (not safe)) - (##cdr _%e110609110662%_)))) - (_%loop110608110652%_ - _%lp-tl110611110669%_ - (cons _%lp-hd110610110666%_ - _%body110612110659%_)))) - (let ((_%body110613110672%_ - (reverse _%body110612110659%_))) - ((lambda (_%L110676%_ _%L110678%_) + (##cdr _%e111859111912%_)))) + (_%loop111858111902%_ + _%lp-tl111861111919%_ + (cons _%lp-hd111860111916%_ + _%body111862111909%_)))) + (let ((_%body111863111922%_ + (reverse _%body111862111909%_))) + ((lambda (_%L111926%_ _%L111928%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) - (cons _%L110678%_ '())) + (cons _%L111928%_ '())) (cons (cons (gx#datum->syntax '#f 'core-ast-case%) (cons (gx#datum->syntax '#f '$e) - (let ((__tmp112315 + (let ((__tmp113565 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g110696110699%_ _%g110697110702%_) - (cons _%g110696110699%_ _%g110697110702%_)))) + (lambda (_%g111946111949%_ _%g111947111952%_) + (cons _%g111946111949%_ _%g111947111952%_)))) (declare (not safe)) - (__foldr1 __tmp112315 '() _%L110676%_)))) + (__foldr1 __tmp113565 '() _%L111926%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%body110613110672%_ - _%hd110603110640%_)))))) + _%body111863111922%_ + _%hd111853111890%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop110608110652%_ - _%target110605110646%_ + (_%loop111858111902%_ + _%target111855111896%_ '())) - (_%g110595110619%_ - _%g110596110623%_))))) - (_%g110595110619%_ _%g110596110623%_)))) - (_%g110595110619%_ _%g110596110623%_)))) - (_%g110595110619%_ _%g110596110623%_))))) - (_%g110594110705%_ _%$stx110591%_)))) + (_%g111845111869%_ + _%g111846111873%_))))) + (_%g111845111869%_ _%g111846111873%_)))) + (_%g111845111869%_ _%g111846111873%_)))) + (_%g111845111869%_ _%g111846111873%_))))) + (_%g111844111955%_ _%$stx111841%_)))) (define |[:0:]#core-ast-case%| - (lambda (_%stx110710%_) - (letrec ((_%generate1110713%_ - (lambda (_%hd111254%_ - _%tgt111256%_ - _%K111257%_ - _%E111258%_ - _%kws111259%_) - (let* ((_%g111261111269%_ - (lambda (_%g111262111265%_) + (lambda (_%stx111960%_) + (letrec ((_%generate1111963%_ + (lambda (_%hd112504%_ + _%tgt112506%_ + _%K112507%_ + _%E112508%_ + _%kws112509%_) + (let* ((_%g112511112519%_ + (lambda (_%g112512112515%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111262111265%_))) - (_%g111260111704%_ - (lambda (_%g111262111273%_) - ((lambda (_%L111276%_) - (let* ((_%__stx112211112212%_ _%hd111254%_) - (_%g111290111304%_ + _%g112512112515%_))) + (_%g112510112954%_ + (lambda (_%g112512112523%_) + ((lambda (_%L112526%_) + (let* ((_%__stx113461113462%_ _%hd112504%_) + (_%g112540112554%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx112211112212%_)))) - (let ((_%__kont112214112215%_ - (lambda (_%L111526%_ _%L111528%_) - (let* ((_%g111539111547%_ - (lambda (_%g111540111543%_) + _%__stx113461113462%_)))) + (let ((_%__kont113464113465%_ + (lambda (_%L112776%_ _%L112778%_) + (let* ((_%g112789112797%_ + (lambda (_%g112790112793%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111540111543%_))) - (_%g111538111696%_ - (lambda (_%g111540111551%_) - ((lambda (_%L111554%_) - (let* ((_%g111566111574%_ + _%g112790112793%_))) + (_%g112788112946%_ + (lambda (_%g112790112801%_) + ((lambda (_%L112804%_) + (let* ((_%g112816112824%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g111567111570%_) + (lambda (_%g112817112820%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111567111570%_))) - (_%g111565111692%_ - (lambda (_%g111567111578%_) - ((lambda (_%L111581%_) - (let* ((_%g111594111602%_ - (lambda (_%g111595111598%_) + _%g112817112820%_))) + (_%g112815112942%_ + (lambda (_%g112817112828%_) + ((lambda (_%L112831%_) + (let* ((_%g112844112852%_ + (lambda (_%g112845112848%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111595111598%_))) - (_%g111593111688%_ - (lambda (_%g111595111606%_) - ((lambda (_%L111609%_) - (let* ((_%g111622111630%_ - (lambda (_%g111623111626%_) + _%g112845112848%_))) + (_%g112843112938%_ + (lambda (_%g112845112856%_) + ((lambda (_%L112859%_) + (let* ((_%g112872112880%_ + (lambda (_%g112873112876%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111623111626%_))) - (_%g111621111684%_ - (lambda (_%g111623111634%_) - ((lambda (_%L111637%_) - (let* ((_%g111650111658%_ - (lambda (_%g111651111654%_) + _%g112873112876%_))) + (_%g112871112934%_ + (lambda (_%g112873112884%_) + ((lambda (_%L112887%_) + (let* ((_%g112900112908%_ + (lambda (_%g112901112904%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111651111654%_))) - (_%g111649111680%_ - (lambda (_%g111651111662%_) - ((lambda (_%L111665%_) + _%g112901112904%_))) + (_%g112899112930%_ + (lambda (_%g112901112912%_) + ((lambda (_%L112915%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '__AST-pair?) - (cons _%L111276%_ '())) + (cons _%L112526%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) - (cons (cons (cons _%L111554%_ + (cons (cons (cons _%L112804%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '__AST-e) - (cons _%L111276%_ '())) + (cons _%L112526%_ '())) '())) - (cons (cons _%L111581%_ + (cons (cons _%L112831%_ (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L111554%_ '())) + (cons _%L112804%_ '())) '())) - (cons (cons _%L111609%_ + (cons (cons _%L112859%_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _%L111554%_ '())) + (cons _%L112804%_ '())) '())) '()))) - (cons _%L111637%_ '()))) + (cons _%L112887%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L111665%_ '()))))) - _%g111651111662%_)))) - (_%g111649111680%_ _%E111258%_))) - _%g111623111634%_)))) + (cons _%L112915%_ '()))))) + _%g112901112912%_)))) + (_%g112899112930%_ _%E112508%_))) + _%g112873112884%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g111621111684%_ - (_%generate1110713%_ - _%L111528%_ - _%L111581%_ - (_%generate1110713%_ - _%L111526%_ - _%L111609%_ - _%K111257%_ - _%E111258%_ - _%kws111259%_) - _%E111258%_ - _%kws111259%_)))) - _%g111595111606%_)))) - (_%g111593111688%_ (gx#genident '$tl)))) - _%g111567111578%_)))) - (_%g111565111692%_ (gx#genident '$hd)))) - _%g111540111551%_)))) + (_%g112871112934%_ + (_%generate1111963%_ + _%L112778%_ + _%L112831%_ + (_%generate1111963%_ + _%L112776%_ + _%L112859%_ + _%K112507%_ + _%E112508%_ + _%kws112509%_) + _%E112508%_ + _%kws112509%_)))) + _%g112845112856%_)))) + (_%g112843112938%_ (gx#genident '$tl)))) + _%g112817112828%_)))) + (_%g112815112942%_ (gx#genident '$hd)))) + _%g112790112801%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g111538111696%_ + (_%g112788112946%_ (gx#genident '$tgt))))) - (_%__kont112216112217%_ - (lambda (_%L111393%_) - (if (gx#underscore? _%L111393%_) - _%K111257%_ - (if (let ((__tmp112317 - (lambda (_%g111403111405%_) + (_%__kont113466113467%_ + (lambda (_%L112643%_) + (if (gx#underscore? _%L112643%_) + _%K112507%_ + (if (let ((__tmp113567 + (lambda (_%g112653112655%_) (gx#bound-identifier=? - _%g111403111405%_ - _%L111393%_))) - (__tmp112316 + _%g112653112655%_ + _%L112643%_))) + (__tmp113566 (gx#syntax->list - _%kws111259%_))) + _%kws112509%_))) (declare (not safe)) - (__find __tmp112317 - __tmp112316)) - (let* ((_%g111411111426%_ - (lambda (_%g111412111422%_) + (__find __tmp113567 + __tmp113566)) + (let* ((_%g112661112676%_ + (lambda (_%g112662112672%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111412111422%_))) - (_%g111410111472%_ - (lambda (_%g111412111430%_) + _%g112662112672%_))) + (_%g112660112722%_ + (lambda (_%g112662112680%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g111412111430%_) - (let ((_%e111415111433%_ - (gx#syntax-e _%g111412111430%_))) - (let ((_%hd111416111437%_ + _%g112662112680%_) + (let ((_%e112665112683%_ + (gx#syntax-e _%g112662112680%_))) + (let ((_%hd112666112687%_ (let () (declare (not safe)) - (##car _%e111415111433%_))) - (_%tl111417111440%_ + (##car _%e112665112683%_))) + (_%tl112667112690%_ (let () (declare (not safe)) - (##cdr _%e111415111433%_)))) - (if (gx#stx-pair? _%tl111417111440%_) - (let ((_%e111418111443%_ - (gx#syntax-e _%tl111417111440%_))) - (let ((_%hd111419111447%_ + (##cdr _%e112665112683%_)))) + (if (gx#stx-pair? _%tl112667112690%_) + (let ((_%e112668112693%_ + (gx#syntax-e _%tl112667112690%_))) + (let ((_%hd112669112697%_ (let () (declare (not safe)) - (##car _%e111418111443%_))) - (_%tl111420111450%_ + (##car _%e112668112693%_))) + (_%tl112670112700%_ (let () (declare (not safe)) - (##cdr _%e111418111443%_)))) - (if (gx#stx-null? _%tl111420111450%_) - ((lambda (_%L111453%_ _%L111455%_) + (##cdr _%e112668112693%_)))) + (if (gx#stx-null? _%tl112670112700%_) + ((lambda (_%L112703%_ _%L112705%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f @@ -610,85 +610,85 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-id?) - (cons _%L111276%_ '())) + (cons _%L112526%_ '())) (cons (cons (gx#datum->syntax '#f 'eq?) (cons (cons (gx#datum->syntax '#f '__AST-e) - (cons _%L111276%_ '())) + (cons _%L112526%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L111393%_ + (cons _%L112643%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) - (cons _%L111455%_ (cons _%L111453%_ '()))))) + (cons _%L112705%_ (cons _%L112703%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd111419111447%_ - _%hd111416111437%_) - (_%g111411111426%_ - _%g111412111430%_)))) - (_%g111411111426%_ _%g111412111430%_)))) - (_%g111411111426%_ _%g111412111430%_))))) - (_%g111410111472%_ (list _%K111257%_ _%E111258%_))) + _%hd112669112697%_ + _%hd112666112687%_) + (_%g112661112676%_ + _%g112662112680%_)))) + (_%g112661112676%_ _%g112662112680%_)))) + (_%g112661112676%_ _%g112662112680%_))))) + (_%g112660112722%_ (list _%K112507%_ _%E112508%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%g111478111486%_ - (lambda (_%g111479111482%_) + (let* ((_%g112728112736%_ + (lambda (_%g112729112732%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111479111482%_))) - (_%g111477111505%_ - (lambda (_%g111479111490%_) - ((lambda (_%L111493%_) + _%g112729112732%_))) + (_%g112727112755%_ + (lambda (_%g112729112740%_) + ((lambda (_%L112743%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L111393%_ - (cons _%L111276%_ '())) + (cons (cons (cons _%L112643%_ + (cons _%L112526%_ '())) '()) - (cons _%L111493%_ '())))) - _%g111479111490%_)))) - (_%g111477111505%_ _%K111257%_)))))) + (cons _%L112743%_ '())))) + _%g112729112740%_)))) + (_%g112727112755%_ _%K112507%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont112218112219%_ - (lambda (_%L111311%_) - (let* ((_%g111322111337%_ - (lambda (_%g111323111333%_) + (_%__kont113468113469%_ + (lambda (_%L112561%_) + (let* ((_%g112572112587%_ + (lambda (_%g112573112583%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111323111333%_))) - (_%g111321111382%_ - (lambda (_%g111323111341%_) + _%g112573112583%_))) + (_%g112571112632%_ + (lambda (_%g112573112591%_) (if (gx#stx-pair? - _%g111323111341%_) - (let ((_%e111326111344%_ + _%g112573112591%_) + (let ((_%e112576112594%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g111323111341%_))) - (let ((_%hd111327111348%_ + (gx#syntax-e _%g112573112591%_))) + (let ((_%hd112577112598%_ (let () (declare (not safe)) - (##car _%e111326111344%_))) - (_%tl111328111351%_ + (##car _%e112576112594%_))) + (_%tl112578112601%_ (let () (declare (not safe)) - (##cdr _%e111326111344%_)))) - (if (gx#stx-pair? _%tl111328111351%_) - (let ((_%e111329111354%_ - (gx#syntax-e _%tl111328111351%_))) - (let ((_%hd111330111358%_ + (##cdr _%e112576112594%_)))) + (if (gx#stx-pair? _%tl112578112601%_) + (let ((_%e112579112604%_ + (gx#syntax-e _%tl112578112601%_))) + (let ((_%hd112580112608%_ (let () (declare (not safe)) - (##car _%e111329111354%_))) - (_%tl111331111361%_ + (##car _%e112579112604%_))) + (_%tl112581112611%_ (let () (declare (not safe)) - (##cdr _%e111329111354%_)))) - (if (gx#stx-null? _%tl111331111361%_) - ((lambda (_%L111364%_ _%L111366%_) + (##cdr _%e112579112604%_)))) + (if (gx#stx-null? _%tl112581112611%_) + ((lambda (_%L112614%_ _%L112616%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f @@ -697,524 +697,524 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-e) - (cons _%L111276%_ '())) + (cons _%L112526%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L111311%_ '())) + (cons _%L112561%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L111366%_ - (cons _%L111364%_ + (cons _%L112616%_ + (cons _%L112614%_ '()))))) - _%hd111330111358%_ - _%hd111327111348%_) - (_%g111322111337%_ _%g111323111341%_)))) - (_%g111322111337%_ _%g111323111341%_)))) - (_%g111322111337%_ _%g111323111341%_))))) + _%hd112580112608%_ + _%hd112577112598%_) + (_%g112572112587%_ _%g112573112591%_)))) + (_%g112572112587%_ _%g112573112591%_)))) + (_%g112572112587%_ _%g112573112591%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g111321111382%_ - (list _%K111257%_ - _%E111258%_)))))) - (let ((_%g111288111509%_ + (_%g112571112632%_ + (list _%K112507%_ + _%E112508%_)))))) + (let ((_%g112538112759%_ (lambda () - (let ((_%L111393%_ - _%__stx112211112212%_)) + (let ((_%L112643%_ + _%__stx113461113462%_)) (if (gx#identifier? - _%L111393%_) - (_%__kont112216112217%_ - _%L111393%_) - (_%__kont112218112219%_ - _%__stx112211112212%_)))))) - (if (gx#stx-pair? _%__stx112211112212%_) - (let ((_%e111294111516%_ + _%L112643%_) + (_%__kont113466113467%_ + _%L112643%_) + (_%__kont113468113469%_ + _%__stx113461113462%_)))))) + (if (gx#stx-pair? _%__stx113461113462%_) + (let ((_%e112544112766%_ (gx#syntax-e - _%__stx112211112212%_))) - (let ((_%tl111296111523%_ + _%__stx113461113462%_))) + (let ((_%tl112546112773%_ (let () (declare (not safe)) - (##cdr _%e111294111516%_))) - (_%hd111295111520%_ + (##cdr _%e112544112766%_))) + (_%hd112545112770%_ (let () (declare (not safe)) - (##car _%e111294111516%_)))) - (_%__kont112214112215%_ - _%tl111296111523%_ - _%hd111295111520%_))) + (##car _%e112544112766%_)))) + (_%__kont113464113465%_ + _%tl112546112773%_ + _%hd112545112770%_))) (let () (declare (not safe)) - (_%g111288111509%_))))))) - _%g111262111273%_)))) - (_%g111260111704%_ _%tgt111256%_))))) - (let* ((_%g110716110744%_ - (lambda (_%g110717110740%_) + (_%g112538112759%_))))))) + _%g112512112523%_)))) + (_%g112510112954%_ _%tgt112506%_))))) + (let* ((_%g111966111994%_ + (lambda (_%g111967111990%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110717110740%_))) - (_%g110715111250%_ - (lambda (_%g110717110748%_) - (if (gx#stx-pair? _%g110717110748%_) - (let ((_%e110721110751%_ - (gx#syntax-e _%g110717110748%_))) - (let ((_%hd110722110755%_ + _%g111967111990%_))) + (_%g111965112500%_ + (lambda (_%g111967111998%_) + (if (gx#stx-pair? _%g111967111998%_) + (let ((_%e111971112001%_ + (gx#syntax-e _%g111967111998%_))) + (let ((_%hd111972112005%_ (let () (declare (not safe)) - (##car _%e110721110751%_))) - (_%tl110723110758%_ + (##car _%e111971112001%_))) + (_%tl111973112008%_ (let () (declare (not safe)) - (##cdr _%e110721110751%_)))) - (if (gx#stx-pair? _%tl110723110758%_) - (let ((_%e110724110761%_ - (gx#syntax-e _%tl110723110758%_))) - (let ((_%hd110725110765%_ + (##cdr _%e111971112001%_)))) + (if (gx#stx-pair? _%tl111973112008%_) + (let ((_%e111974112011%_ + (gx#syntax-e _%tl111973112008%_))) + (let ((_%hd111975112015%_ (let () (declare (not safe)) - (##car _%e110724110761%_))) - (_%tl110726110768%_ + (##car _%e111974112011%_))) + (_%tl111976112018%_ (let () (declare (not safe)) - (##cdr _%e110724110761%_)))) - (if (gx#stx-pair? _%tl110726110768%_) - (let ((_%e110727110771%_ + (##cdr _%e111974112011%_)))) + (if (gx#stx-pair? _%tl111976112018%_) + (let ((_%e111977112021%_ (gx#syntax-e - _%tl110726110768%_))) - (let ((_%hd110728110775%_ + _%tl111976112018%_))) + (let ((_%hd111978112025%_ (let () (declare (not safe)) - (##car _%e110727110771%_))) - (_%tl110729110778%_ + (##car _%e111977112021%_))) + (_%tl111979112028%_ (let () (declare (not safe)) - (##cdr _%e110727110771%_)))) + (##cdr _%e111977112021%_)))) (if (gx#stx-pair/null? - _%tl110729110778%_) - (let ((_g112318_ + _%tl111979112028%_) + (let ((_g113568_ (gx#syntax-split-splice - _%tl110729110778%_ + _%tl111979112028%_ '0))) (begin - (let ((_g112319_ + (let ((_g113569_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g112318_) - (##vector-length _g112318_) + _g113568_) + (##values-length _g113568_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g112319_ 2))) - (error "Context expects 2 values" _g112319_))) + (if (not (let () (declare (not safe)) (##fx= _g113569_ 2))) + (error "Context expects 2 values" _g113569_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target110730110781%_ + (let ((_%target111980112031%_ (let () (declare (not safe)) - (##vector-ref - _g112318_ + (##values-ref + _g113568_ 0))) - (_%tl110732110784%_ + (_%tl111982112034%_ (let () (declare (not safe)) - (##vector-ref - _g112318_ + (##values-ref + _g113568_ 1)))) (if (gx#stx-null? - _%tl110732110784%_) - (letrec ((_%loop110733110787%_ + _%tl111982112034%_) + (letrec ((_%loop111983112037%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd110731110791%_ _%clause110737110794%_) - (if (gx#stx-pair? _%hd110731110791%_) - (let ((_%e110734110797%_ - (gx#syntax-e _%hd110731110791%_))) - (let ((_%lp-hd110735110801%_ + (lambda (_%hd111981112041%_ _%clause111987112044%_) + (if (gx#stx-pair? _%hd111981112041%_) + (let ((_%e111984112047%_ + (gx#syntax-e _%hd111981112041%_))) + (let ((_%lp-hd111985112051%_ (let () (declare (not safe)) - (##car _%e110734110797%_))) - (_%lp-tl110736110804%_ + (##car _%e111984112047%_))) + (_%lp-tl111986112054%_ (let () (declare (not safe)) - (##cdr _%e110734110797%_)))) - (_%loop110733110787%_ - _%lp-tl110736110804%_ - (cons _%lp-hd110735110801%_ - _%clause110737110794%_)))) - (let ((_%clause110738110807%_ - (reverse _%clause110737110794%_))) - ((lambda (_%L110811%_ - _%L110813%_ - _%L110814%_) - (let _%recur110836%_ ((_%rest110839%_ - (let ((__tmp112322 + (##cdr _%e111984112047%_)))) + (_%loop111983112037%_ + _%lp-tl111986112054%_ + (cons _%lp-hd111985112051%_ + _%clause111987112044%_)))) + (let ((_%clause111988112057%_ + (reverse _%clause111987112044%_))) + ((lambda (_%L112061%_ + _%L112063%_ + _%L112064%_) + (let _%recur112086%_ ((_%rest112089%_ + (let ((__tmp113572 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g111241111244%_ _%g111242111247%_) - (cons _%g111241111244%_ _%g111242111247%_)))) + (lambda (_%g112491112494%_ _%g112492112497%_) + (cons _%g112491112494%_ _%g112492112497%_)))) (declare (not safe)) - (__foldr1 __tmp112322 '() _%L110811%_)))) + (__foldr1 __tmp113572 '() _%L112061%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest110841110850%_ - _%rest110839%_) - (_%E110844110856%_ + (let* ((_%rest112091112100%_ + _%rest112089%_) + (_%E112094112106%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest110841110850%_ + _%rest112091112100%_ '([hd . rest]) '([]))) '#!void))) - (let ((_%K110846111226%_ - (lambda (_%rest110872%_ - _%hd110874%_) - (let* ((_%g110876110884%_ - (lambda (_%g110877110880%_) + (let ((_%K112096112476%_ + (lambda (_%rest112122%_ + _%hd112124%_) + (let* ((_%g112126112134%_ + (lambda (_%g112127112130%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110877110880%_))) - (_%g110875111222%_ - (lambda (_%g110877110888%_) - ((lambda (_%L110891%_) + _%g112127112130%_))) + (_%g112125112472%_ + (lambda (_%g112127112138%_) + ((lambda (_%L112141%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g110909110917%_ - (lambda (_%g110910110913%_) + (let* ((_%g112159112167%_ + (lambda (_%g112160112163%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110910110913%_))) - (_%g110908111218%_ - (lambda (_%g110910110921%_) - ((lambda (_%L110924%_) - (let* ((_%g110937110945%_ - (lambda (_%g110938110941%_) + _%g112160112163%_))) + (_%g112158112468%_ + (lambda (_%g112160112171%_) + ((lambda (_%L112174%_) + (let* ((_%g112187112195%_ + (lambda (_%g112188112191%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110938110941%_))) - (_%g110936111214%_ - (lambda (_%g110938110949%_) - ((lambda (_%L110952%_) - (let* ((_%g110965110973%_ - (lambda (_%g110966110969%_) + _%g112188112191%_))) + (_%g112186112464%_ + (lambda (_%g112188112199%_) + ((lambda (_%L112202%_) + (let* ((_%g112215112223%_ + (lambda (_%g112216112219%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110966110969%_))) - (_%g110964110995%_ - (lambda (_%g110966110977%_) - ((lambda (_%L110980%_) + _%g112216112219%_))) + (_%g112214112245%_ + (lambda (_%g112216112227%_) + ((lambda (_%L112230%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let) - (cons (cons _%L110891%_ + (cons (cons _%L112141%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L110952%_ + (cons _%L112202%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons _%L110980%_ '())))) - _%g110966110977%_)))) + (cons _%L112230%_ '())))) + _%g112216112227%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g110964110995%_ - (let* ((_%__stx112229112230%_ - _%hd110874%_) - (_%g111001111041%_ + (_%g112214112245%_ + (let* ((_%__stx113479113480%_ + _%hd112124%_) + (_%g112251112291%_ (lambda () (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%__stx112229112230%_)))) - (let ((_%__kont112232112233%_ - (lambda (_%L111187%_) + _%__stx113479113480%_)))) + (let ((_%__kont113482113483%_ + (lambda (_%L112437%_) (cons (gx#datum->syntax '#f 'begin) - (let ((__tmp112320 - (lambda (_%g111201111204%_ - _%g111202111207%_) - (cons _%g111201111204%_ - _%g111202111207%_)))) + (let ((__tmp113570 + (lambda (_%g112451112454%_ + _%g112452112457%_) + (cons _%g112451112454%_ + _%g112452112457%_)))) (declare (not safe)) - (__foldr1 __tmp112320 '() _%L111187%_))))) - (_%__kont112236112237%_ - (lambda (_%L111125%_ _%L111127%_) - (_%generate1110713%_ - _%L111127%_ - _%L110814%_ - _%L111125%_ - _%L110924%_ - _%L110813%_))) - (_%__kont112238112239%_ - (lambda (_%L111078%_ _%L111080%_ _%L111081%_) - (_%generate1110713%_ - _%L111081%_ - _%L110814%_ + (__foldr1 __tmp113570 '() _%L112437%_))))) + (_%__kont113486113487%_ + (lambda (_%L112375%_ _%L112377%_) + (_%generate1111963%_ + _%L112377%_ + _%L112064%_ + _%L112375%_ + _%L112174%_ + _%L112063%_))) + (_%__kont113488113489%_ + (lambda (_%L112328%_ _%L112330%_ _%L112331%_) + (_%generate1111963%_ + _%L112331%_ + _%L112064%_ (cons (gx#datum->syntax '#f 'if) - (cons _%L111080%_ - (cons _%L111078%_ - (cons _%L110924%_ '())))) - _%L110924%_ - _%L110813%_)))) - (let ((_%__match112258112259%_ - (lambda (_%e111004111147%_ - _%hd111005111151%_ - _%tl111006111154%_ - _%__splice112234112235%_ - _%target111007111157%_ - _%tl111009111160%_) - (letrec ((_%loop111010111163%_ - (lambda (_%hd111008111167%_ - _%expr111014111170%_) - (if (gx#stx-pair? _%hd111008111167%_) - (let ((_%e111011111173%_ + (cons _%L112330%_ + (cons _%L112328%_ + (cons _%L112174%_ '())))) + _%L112174%_ + _%L112063%_)))) + (let ((_%__match113508113509%_ + (lambda (_%e112254112397%_ + _%hd112255112401%_ + _%tl112256112404%_ + _%__splice113484113485%_ + _%target112257112407%_ + _%tl112259112410%_) + (letrec ((_%loop112260112413%_ + (lambda (_%hd112258112417%_ + _%expr112264112420%_) + (if (gx#stx-pair? _%hd112258112417%_) + (let ((_%e112261112423%_ (gx#syntax-e - _%hd111008111167%_))) - (let ((_%lp-tl111013111180%_ + _%hd112258112417%_))) + (let ((_%lp-tl112263112430%_ (let () (declare (not safe)) - (##cdr _%e111011111173%_))) - (_%lp-hd111012111177%_ + (##cdr _%e112261112423%_))) + (_%lp-hd112262112427%_ (let () (declare (not safe)) - (##car _%e111011111173%_)))) - (_%loop111010111163%_ - _%lp-tl111013111180%_ - (cons _%lp-hd111012111177%_ - _%expr111014111170%_)))) - (let ((_%expr111015111183%_ - (reverse _%expr111014111170%_))) - (_%__kont112232112233%_ - _%expr111015111183%_)))))) - (_%loop111010111163%_ - _%target111007111157%_ + (##car _%e112261112423%_)))) + (_%loop112260112413%_ + _%lp-tl112263112430%_ + (cons _%lp-hd112262112427%_ + _%expr112264112420%_)))) + (let ((_%expr112265112433%_ + (reverse _%expr112264112420%_))) + (_%__kont113482113483%_ + _%expr112265112433%_)))))) + (_%loop112260112413%_ + _%target112257112407%_ '()))))) - (if (gx#stx-pair? _%__stx112229112230%_) - (let ((_%e111004111147%_ - (gx#syntax-e _%__stx112229112230%_))) - (let ((_%tl111006111154%_ + (if (gx#stx-pair? _%__stx113479113480%_) + (let ((_%e112254112397%_ + (gx#syntax-e _%__stx113479113480%_))) + (let ((_%tl112256112404%_ (let () (declare (not safe)) - (##cdr _%e111004111147%_))) - (_%hd111005111151%_ + (##cdr _%e112254112397%_))) + (_%hd112255112401%_ (let () (declare (not safe)) - (##car _%e111004111147%_)))) - (if (gx#identifier? _%hd111005111151%_) + (##car _%e112254112397%_)))) + (if (gx#identifier? _%hd112255112401%_) (if (gx#free-identifier=? - |[1]#_g112321_| - _%hd111005111151%_) - (if (gx#stx-pair/null? _%tl111006111154%_) - (let ((_%__splice112234112235%_ + |[1]#_g113571_| + _%hd112255112401%_) + (if (gx#stx-pair/null? _%tl112256112404%_) + (let ((_%__splice113484113485%_ (gx#syntax-split-splice - _%tl111006111154%_ + _%tl112256112404%_ '0))) - (let ((_%tl111009111160%_ + (let ((_%tl112259112410%_ (let () (declare (not safe)) (##vector-ref - _%__splice112234112235%_ + _%__splice113484113485%_ '1))) - (_%target111007111157%_ + (_%target112257112407%_ (let () (declare (not safe)) (##vector-ref - _%__splice112234112235%_ + _%__splice113484113485%_ '0)))) (if (gx#stx-null? - _%tl111009111160%_) - (_%__match112258112259%_ - _%e111004111147%_ - _%hd111005111151%_ - _%tl111006111154%_ - _%__splice112234112235%_ - _%target111007111157%_ - _%tl111009111160%_) + _%tl112259112410%_) + (_%__match113508113509%_ + _%e112254112397%_ + _%hd112255112401%_ + _%tl112256112404%_ + _%__splice113484113485%_ + _%target112257112407%_ + _%tl112259112410%_) (if (gx#stx-pair? - _%tl111006111154%_) - (let ((_%e111021111115%_ + _%tl112256112404%_) + (let ((_%e112271112365%_ (gx#syntax-e - _%tl111006111154%_))) - (let ((_%tl111023111122%_ + _%tl112256112404%_))) + (let ((_%tl112273112372%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e111021111115%_))) - (_%hd111022111119%_ - (let () (declare (not safe)) (##car _%e111021111115%_)))) - (if (gx#stx-null? _%tl111023111122%_) - (_%__kont112236112237%_ - _%hd111022111119%_ - _%hd111005111151%_) - (if (gx#stx-pair? _%tl111023111122%_) - (let ((_%e111033111068%_ - (gx#syntax-e _%tl111023111122%_))) - (let ((_%tl111035111075%_ + (##cdr _%e112271112365%_))) + (_%hd112272112369%_ + (let () (declare (not safe)) (##car _%e112271112365%_)))) + (if (gx#stx-null? _%tl112273112372%_) + (_%__kont113486113487%_ + _%hd112272112369%_ + _%hd112255112401%_) + (if (gx#stx-pair? _%tl112273112372%_) + (let ((_%e112283112318%_ + (gx#syntax-e _%tl112273112372%_))) + (let ((_%tl112285112325%_ (let () (declare (not safe)) - (##cdr _%e111033111068%_))) - (_%hd111034111072%_ + (##cdr _%e112283112318%_))) + (_%hd112284112322%_ (let () (declare (not safe)) - (##car _%e111033111068%_)))) - (if (gx#stx-null? _%tl111035111075%_) - (_%__kont112238112239%_ - _%hd111034111072%_ - _%hd111022111119%_ - _%hd111005111151%_) + (##car _%e112283112318%_)))) + (if (gx#stx-null? _%tl112285112325%_) + (_%__kont113488113489%_ + _%hd112284112322%_ + _%hd112272112369%_ + _%hd112255112401%_) (let () (declare (not safe)) - (_%g111001111041%_))))) - (let () (declare (not safe)) (_%g111001111041%_)))))) + (_%g112251112291%_))))) + (let () (declare (not safe)) (_%g112251112291%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g111001111041%_)))))) - (if (gx#stx-pair? _%tl111006111154%_) - (let ((_%e111021111115%_ + (_%g112251112291%_)))))) + (if (gx#stx-pair? _%tl112256112404%_) + (let ((_%e112271112365%_ (gx#syntax-e - _%tl111006111154%_))) - (let ((_%tl111023111122%_ + _%tl112256112404%_))) + (let ((_%tl112273112372%_ (let () (declare (not safe)) - (##cdr _%e111021111115%_))) - (_%hd111022111119%_ + (##cdr _%e112271112365%_))) + (_%hd112272112369%_ (let () (declare (not safe)) - (##car _%e111021111115%_)))) + (##car _%e112271112365%_)))) (if (gx#stx-null? - _%tl111023111122%_) - (_%__kont112236112237%_ - _%hd111022111119%_ - _%hd111005111151%_) + _%tl112273112372%_) + (_%__kont113486113487%_ + _%hd112272112369%_ + _%hd112255112401%_) (if (gx#stx-pair? - _%tl111023111122%_) - (let ((_%e111033111068%_ + _%tl112273112372%_) + (let ((_%e112283112318%_ (gx#syntax-e - _%tl111023111122%_))) - (let ((_%tl111035111075%_ + _%tl112273112372%_))) + (let ((_%tl112285112325%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _%e111033111068%_))) - (_%hd111034111072%_ + (##cdr _%e112283112318%_))) + (_%hd112284112322%_ (let () (declare (not safe)) - (##car _%e111033111068%_)))) - (if (gx#stx-null? _%tl111035111075%_) - (_%__kont112238112239%_ - _%hd111034111072%_ - _%hd111022111119%_ - _%hd111005111151%_) - (let () (declare (not safe)) (_%g111001111041%_))))) - (let () (declare (not safe)) (_%g111001111041%_)))))) + (##car _%e112283112318%_)))) + (if (gx#stx-null? _%tl112285112325%_) + (_%__kont113488113489%_ + _%hd112284112322%_ + _%hd112272112369%_ + _%hd112255112401%_) + (let () (declare (not safe)) (_%g112251112291%_))))) + (let () (declare (not safe)) (_%g112251112291%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g111001111041%_)))) - (if (gx#stx-pair? _%tl111006111154%_) - (let ((_%e111021111115%_ + (_%g112251112291%_)))) + (if (gx#stx-pair? _%tl112256112404%_) + (let ((_%e112271112365%_ (gx#syntax-e - _%tl111006111154%_))) - (let ((_%tl111023111122%_ + _%tl112256112404%_))) + (let ((_%tl112273112372%_ (let () (declare (not safe)) - (##cdr _%e111021111115%_))) - (_%hd111022111119%_ + (##cdr _%e112271112365%_))) + (_%hd112272112369%_ (let () (declare (not safe)) - (##car _%e111021111115%_)))) + (##car _%e112271112365%_)))) (if (gx#stx-null? - _%tl111023111122%_) - (_%__kont112236112237%_ - _%hd111022111119%_ - _%hd111005111151%_) + _%tl112273112372%_) + (_%__kont113486113487%_ + _%hd112272112369%_ + _%hd112255112401%_) (if (gx#stx-pair? - _%tl111023111122%_) - (let ((_%e111033111068%_ + _%tl112273112372%_) + (let ((_%e112283112318%_ (gx#syntax-e - _%tl111023111122%_))) - (let ((_%tl111035111075%_ + _%tl112273112372%_))) + (let ((_%tl112285112325%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e111033111068%_))) - (_%hd111034111072%_ - (let () (declare (not safe)) (##car _%e111033111068%_)))) - (if (gx#stx-null? _%tl111035111075%_) - (_%__kont112238112239%_ - _%hd111034111072%_ - _%hd111022111119%_ - _%hd111005111151%_) - (let () (declare (not safe)) (_%g111001111041%_))))) + (##cdr _%e112283112318%_))) + (_%hd112284112322%_ + (let () (declare (not safe)) (##car _%e112283112318%_)))) + (if (gx#stx-null? _%tl112285112325%_) + (_%__kont113488113489%_ + _%hd112284112322%_ + _%hd112272112369%_ + _%hd112255112401%_) + (let () (declare (not safe)) (_%g112251112291%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g111001111041%_)))))) + (_%g112251112291%_)))))) (let () (declare (not safe)) - (_%g111001111041%_)))) - (if (gx#stx-pair? _%tl111006111154%_) - (let ((_%e111021111115%_ - (gx#syntax-e _%tl111006111154%_))) - (let ((_%tl111023111122%_ + (_%g112251112291%_)))) + (if (gx#stx-pair? _%tl112256112404%_) + (let ((_%e112271112365%_ + (gx#syntax-e _%tl112256112404%_))) + (let ((_%tl112273112372%_ (let () (declare (not safe)) - (##cdr _%e111021111115%_))) - (_%hd111022111119%_ + (##cdr _%e112271112365%_))) + (_%hd112272112369%_ (let () (declare (not safe)) - (##car _%e111021111115%_)))) - (if (gx#stx-null? _%tl111023111122%_) - (_%__kont112236112237%_ - _%hd111022111119%_ - _%hd111005111151%_) + (##car _%e112271112365%_)))) + (if (gx#stx-null? _%tl112273112372%_) + (_%__kont113486113487%_ + _%hd112272112369%_ + _%hd112255112401%_) (if (gx#stx-pair? - _%tl111023111122%_) - (let ((_%e111033111068%_ + _%tl112273112372%_) + (let ((_%e112283112318%_ (gx#syntax-e - _%tl111023111122%_))) - (let ((_%tl111035111075%_ + _%tl112273112372%_))) + (let ((_%tl112285112325%_ (let () (declare (not safe)) - (##cdr _%e111033111068%_))) - (_%hd111034111072%_ + (##cdr _%e112283112318%_))) + (_%hd112284112322%_ (let () (declare (not safe)) - (##car _%e111033111068%_)))) + (##car _%e112283112318%_)))) (if (gx#stx-null? - _%tl111035111075%_) - (_%__kont112238112239%_ - _%hd111034111072%_ - _%hd111022111119%_ - _%hd111005111151%_) + _%tl112285112325%_) + (_%__kont113488113489%_ + _%hd112284112322%_ + _%hd112272112369%_ + _%hd112255112401%_) (let () (declare (not safe)) - (_%g111001111041%_))))) + (_%g112251112291%_))))) (let () (declare (not safe)) - (_%g111001111041%_)))))) + (_%g112251112291%_)))))) (let () (declare (not safe)) - (_%g111001111041%_)))))) + (_%g112251112291%_)))))) (let () (declare (not safe)) - (_%g111001111041%_))))))))) + (_%g112251112291%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g110938110949%_)))) - (_%g110936111214%_ - (_%recur110836%_ _%rest110872%_)))) - _%g110910110921%_)))) - (_%g110908111218%_ (cons _%L110891%_ '())))) - _%g110877110888%_)))) - (_%g110875111222%_ (gx#genident '$E))))) + _%g112188112199%_)))) + (_%g112186112464%_ + (_%recur112086%_ _%rest112122%_)))) + _%g112160112171%_)))) + (_%g112158112468%_ (cons _%L112141%_ '())))) + _%g112127112138%_)))) + (_%g112125112472%_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K110845110864%_ + (_%K112095112114%_ (lambda () (cons (gx#datum->syntax '#f @@ -1222,47 +1222,47 @@ (cons '#f (cons '"Bad syntax; malformed ast clause" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L110814%_ '()))))))) + (cons _%L112064%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match110843110868%_ + (let ((_%try-match112093112118%_ (lambda () - (if (null? _%rest110841110850%_) - (_%K110845110864%_) - (_%E110844110856%_))))) - (if (pair? _%rest110841110850%_) - (let ((_%tl110848111233%_ + (if (null? _%rest112091112100%_) + (_%K112095112114%_) + (_%E112094112106%_))))) + (if (pair? _%rest112091112100%_) + (let ((_%tl112098112483%_ (let () (declare (not safe)) - (##cdr _%rest110841110850%_))) - (_%hd110847111230%_ + (##cdr _%rest112091112100%_))) + (_%hd112097112480%_ (let () (declare (not safe)) - (##car _%rest110841110850%_)))) - (let ((_%hd111236%_ - _%hd110847111230%_) - (_%rest111239%_ - _%tl110848111233%_)) - (_%K110846111226%_ - _%rest111239%_ - _%hd111236%_))) - (_%try-match110843110868%_))))))) - _%clause110738110807%_ - _%hd110728110775%_ - _%hd110725110765%_)))))) - (_%loop110733110787%_ _%target110730110781%_ '())) - (_%g110716110744%_ _%g110717110748%_))))) + (##car _%rest112091112100%_)))) + (let ((_%hd112486%_ + _%hd112097112480%_) + (_%rest112489%_ + _%tl112098112483%_)) + (_%K112096112476%_ + _%rest112489%_ + _%hd112486%_))) + (_%try-match112093112118%_))))))) + _%clause111988112057%_ + _%hd111978112025%_ + _%hd111975112015%_)))))) + (_%loop111983112037%_ _%target111980112031%_ '())) + (_%g111966111994%_ _%g111967111998%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g110716110744%_ - _%g110717110748%_)))) - (_%g110716110744%_ - _%g110717110748%_)))) - (_%g110716110744%_ _%g110717110748%_)))) - (_%g110716110744%_ _%g110717110748%_))))) - (_%g110715111250%_ _%stx110710%_))))) + (_%g111966111994%_ + _%g111967111998%_)))) + (_%g111966111994%_ + _%g111967111998%_)))) + (_%g111966111994%_ _%g111967111998%_)))) + (_%g111966111994%_ _%g111967111998%_))))) + (_%g111965112500%_ _%stx111960%_))))) (define |[:0:]#SyntaxError| - (let ((__obj112304 + (let ((__obj113554 (let () (declare (not safe)) (##structure @@ -1291,18 +1291,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj112304 + __obj113554 'gerbil/runtime/syntax#SyntaxError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112304 'SyntaxError '2 '#f '#f)) + (##unchecked-structure-set! __obj113554 'SyntaxError '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj112304 + __obj113554 '(message irritants where context phi marks) '4 '#f @@ -1310,99 +1310,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj112304 + __obj113554 '(continuation message irritants where context phi marks) '6 '#f '#f)) - (let ((__tmp112323 (cons |[1]#_g112324_| (cons |[1]#_g112325_| '())))) + (let ((__tmp113573 (cons |[1]#_g113574_| (cons |[1]#_g113575_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112304 __tmp112323 '3 '#f '#f)) + (##unchecked-structure-set! __obj113554 __tmp113573 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112304 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj113554 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112304 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj113554 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112304 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj113554 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112304 '#f '11 '#f '#f)) - (let ((__tmp112326 |[1]#_g112327_|)) + (##unchecked-structure-set! __obj113554 '#f '11 '#f '#f)) + (let ((__tmp113576 |[1]#_g113577_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112304 __tmp112326 '12 '#f '#f)) - (let ((__tmp112328 |[1]#_g112329_|)) + (##unchecked-structure-set! __obj113554 __tmp113576 '12 '#f '#f)) + (let ((__tmp113578 |[1]#_g113579_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112304 __tmp112328 '13 '#f '#f)) - (let ((__tmp112330 |[1]#_g112331_|)) + (##unchecked-structure-set! __obj113554 __tmp113578 '13 '#f '#f)) + (let ((__tmp113580 |[1]#_g113581_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112304 __tmp112330 '14 '#f '#f)) - (let ((__tmp112332 - (cons (cons 'message |[1]#_g112333_|) - (cons (cons 'irritants |[1]#_g112334_|) - (cons (cons 'where |[1]#_g112335_|) - (cons (cons 'context |[1]#_g112336_|) - (cons (cons 'phi |[1]#_g112337_|) + (##unchecked-structure-set! __obj113554 __tmp113580 '14 '#f '#f)) + (let ((__tmp113582 + (cons (cons 'message |[1]#_g113583_|) + (cons (cons 'irritants |[1]#_g113584_|) + (cons (cons 'where |[1]#_g113585_|) + (cons (cons 'context |[1]#_g113586_|) + (cons (cons 'phi |[1]#_g113587_|) (cons (cons 'marks - |[1]#_g112338_|) + |[1]#_g113588_|) (cons (cons 'continuation - |[1]#_g112339_|) + |[1]#_g113589_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj112304 __tmp112332 '15 '#f '#f)) - (let ((__tmp112340 - (cons (cons 'message |[1]#_g112341_|) - (cons (cons 'irritants |[1]#_g112342_|) - (cons (cons 'where |[1]#_g112343_|) - (cons (cons 'context |[1]#_g112344_|) - (cons (cons 'phi |[1]#_g112345_|) + (##unchecked-structure-set! __obj113554 __tmp113582 '15 '#f '#f)) + (let ((__tmp113590 + (cons (cons 'message |[1]#_g113591_|) + (cons (cons 'irritants |[1]#_g113592_|) + (cons (cons 'where |[1]#_g113593_|) + (cons (cons 'context |[1]#_g113594_|) + (cons (cons 'phi |[1]#_g113595_|) (cons (cons 'marks - |[1]#_g112346_|) + |[1]#_g113596_|) (cons (cons 'continuation - |[1]#_g112347_|) + |[1]#_g113597_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj112304 __tmp112340 '16 '#f '#f)) - (let ((__tmp112348 - (cons (cons 'message |[1]#_g112349_|) - (cons (cons 'irritants |[1]#_g112350_|) - (cons (cons 'where |[1]#_g112351_|) - (cons (cons 'context |[1]#_g112352_|) - (cons (cons 'phi |[1]#_g112353_|) + (##unchecked-structure-set! __obj113554 __tmp113590 '16 '#f '#f)) + (let ((__tmp113598 + (cons (cons 'message |[1]#_g113599_|) + (cons (cons 'irritants |[1]#_g113600_|) + (cons (cons 'where |[1]#_g113601_|) + (cons (cons 'context |[1]#_g113602_|) + (cons (cons 'phi |[1]#_g113603_|) (cons (cons 'marks - |[1]#_g112354_|) + |[1]#_g113604_|) (cons (cons 'continuation - |[1]#_g112355_|) + |[1]#_g113605_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj112304 __tmp112348 '17 '#f '#f)) - (let ((__tmp112356 - (cons (cons 'message |[1]#_g112357_|) - (cons (cons 'irritants |[1]#_g112358_|) - (cons (cons 'where |[1]#_g112359_|) - (cons (cons 'context |[1]#_g112360_|) - (cons (cons 'phi |[1]#_g112361_|) + (##unchecked-structure-set! __obj113554 __tmp113598 '17 '#f '#f)) + (let ((__tmp113606 + (cons (cons 'message |[1]#_g113607_|) + (cons (cons 'irritants |[1]#_g113608_|) + (cons (cons 'where |[1]#_g113609_|) + (cons (cons 'context |[1]#_g113610_|) + (cons (cons 'phi |[1]#_g113611_|) (cons (cons 'marks - |[1]#_g112362_|) + |[1]#_g113612_|) (cons (cons 'continuation - |[1]#_g112363_|) + |[1]#_g113613_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj112304 __tmp112356 '18 '#f '#f)) + (##unchecked-structure-set! __obj113554 __tmp113606 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112304 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj113554 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112304 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj113554 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112304 '() '20 '#f '#f)) - __obj112304)) + (##unchecked-structure-set! __obj113554 '() '20 '#f '#f)) + __obj113554)) (define |[:0:]#AST| - (let ((__obj112306 + (let ((__obj113556 (let () (declare (not safe)) (##structure @@ -1430,67 +1430,67 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 'gerbil#AST::t '1 '#f '#f)) + (##unchecked-structure-set! __obj113556 'gerbil#AST::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj113556 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '(e source) '4 '#f '#f)) + (##unchecked-structure-set! __obj113556 '(e source) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '(e source) '6 '#f '#f)) + (##unchecked-structure-set! __obj113556 '(e source) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj113556 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj113556 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj113556 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj113556 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '#f '11 '#f '#f)) - (let ((__tmp112364 |[1]#_g112365_|)) + (##unchecked-structure-set! __obj113556 '#f '11 '#f '#f)) + (let ((__tmp113614 |[1]#_g113615_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112306 __tmp112364 '12 '#f '#f)) - (let ((__tmp112366 |[1]#_g112367_|)) + (##unchecked-structure-set! __obj113556 __tmp113614 '12 '#f '#f)) + (let ((__tmp113616 |[1]#_g113617_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112306 __tmp112366 '13 '#f '#f)) - (let ((__tmp112368 |[1]#_g112369_|)) + (##unchecked-structure-set! __obj113556 __tmp113616 '13 '#f '#f)) + (let ((__tmp113618 |[1]#_g113619_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112306 __tmp112368 '14 '#f '#f)) - (let ((__tmp112370 - (cons (cons 'e |[1]#_g112371_|) - (cons (cons 'source |[1]#_g112372_|) '())))) + (##unchecked-structure-set! __obj113556 __tmp113618 '14 '#f '#f)) + (let ((__tmp113620 + (cons (cons 'e |[1]#_g113621_|) + (cons (cons 'source |[1]#_g113622_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112306 __tmp112370 '15 '#f '#f)) - (let ((__tmp112373 - (cons (cons 'e |[1]#_g112374_|) - (cons (cons 'source |[1]#_g112375_|) '())))) + (##unchecked-structure-set! __obj113556 __tmp113620 '15 '#f '#f)) + (let ((__tmp113623 + (cons (cons 'e |[1]#_g113624_|) + (cons (cons 'source |[1]#_g113625_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112306 __tmp112373 '16 '#f '#f)) - (let ((__tmp112376 - (cons (cons 'e |[1]#_g112377_|) - (cons (cons 'source |[1]#_g112378_|) '())))) + (##unchecked-structure-set! __obj113556 __tmp113623 '16 '#f '#f)) + (let ((__tmp113626 + (cons (cons 'e |[1]#_g113627_|) + (cons (cons 'source |[1]#_g113628_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112306 __tmp112376 '17 '#f '#f)) - (let ((__tmp112379 - (cons (cons 'e |[1]#_g112380_|) - (cons (cons 'source |[1]#_g112381_|) '())))) + (##unchecked-structure-set! __obj113556 __tmp113626 '17 '#f '#f)) + (let ((__tmp113629 + (cons (cons 'e |[1]#_g113630_|) + (cons (cons 'source |[1]#_g113631_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112306 __tmp112379 '18 '#f '#f)) + (##unchecked-structure-set! __obj113556 __tmp113629 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj113556 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj113556 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112306 '() '20 '#f '#f)) - __obj112306)))) + (##unchecked-structure-set! __obj113556 '() '20 '#f '#f)) + __obj113556)))) diff --git a/src/bootstrap/gerbil/runtime/system~0.scm b/src/bootstrap/gerbil/runtime/system~0.scm index 1999cc94a..0944de1c9 100644 --- a/src/bootstrap/gerbil/runtime/system~0.scm +++ b/src/bootstrap/gerbil/runtime/system~0.scm @@ -1,18 +1,18 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/system::timestamp 1713631264) + (define gerbil/runtime/system::timestamp 1734357960) (begin - (define gerbil-version-string (lambda () '"v0.18.1-112-g13d6b30a3")) + (define gerbil-version-string (lambda () '"v0.18.1-149-g3e12631ff")) (define gerbil-system-manifest (cons (cons '"Gerbil" (gerbil-version-string)) (cons (cons '"Gambit" (system-version-string)) '()))) (define __build-manifest gerbil-system-manifest) (define build-manifest (lambda () __build-manifest)) (define build-manifest-set! - (lambda (_%new-value94411%_) - (if (list? _%new-value94411%_) - (let ((_%new-value94415%_ _%new-value94411%_)) - (__build-manifest-set! _%new-value94415%_)) + (lambda (_%new-value95509%_) + (if (list? _%new-value95509%_) + (let ((_%new-value95513%_ _%new-value95509%_)) + (__build-manifest-set! _%new-value95513%_)) (begin (raise-contract-violation-error '"contract violation" @@ -21,21 +21,21 @@ 'contract: 'list? 'value: - _%new-value94411%_) + _%new-value95509%_) '#!void)))) (define __build-manifest-set! - (lambda (_%new-value94398%_) - (let ((_%new-value94402%_ _%new-value94398%_)) - (set! __build-manifest _%new-value94402%_)))) + (lambda (_%new-value95496%_) + (let ((_%new-value95500%_ _%new-value95496%_)) + (set! __build-manifest _%new-value95500%_)))) (define display-build-manifest__% - (lambda (_%manifest94358%_ _%port94359%_) - (if (list? _%manifest94358%_) - (let ((_%manifest94363%_ _%manifest94358%_)) - (if (port? _%port94359%_) - (let ((_%port94373%_ _%port94359%_)) + (lambda (_%manifest95456%_ _%port95457%_) + (if (list? _%manifest95456%_) + (let ((_%manifest95461%_ _%manifest95456%_)) + (if (port? _%port95457%_) + (let ((_%port95471%_ _%port95457%_)) (__display-build-manifest__% - _%manifest94363%_ - _%port94373%_)) + _%manifest95461%_ + _%port95471%_)) (begin (raise-contract-violation-error '"contract violation" @@ -44,7 +44,7 @@ 'contract: 'port? 'value: - _%port94359%_) + _%port95457%_) '#!void))) (begin (raise-contract-violation-error @@ -54,109 +54,109 @@ 'contract: 'list? 'value: - _%manifest94358%_) + _%manifest95456%_) '#!void)))) (define display-build-manifest__0 (lambda () - (let* ((_%manifest94387%_ __build-manifest) - (_%port94389%_ (current-output-port))) - (__display-build-manifest__% _%manifest94387%_ _%port94389%_)))) + (let* ((_%manifest95485%_ __build-manifest) + (_%port95487%_ (current-output-port))) + (__display-build-manifest__% _%manifest95485%_ _%port95487%_)))) (define display-build-manifest__1 - (lambda (_%manifest94391%_) - (let ((_%port94393%_ (current-output-port))) - (display-build-manifest__% _%manifest94391%_ _%port94393%_)))) + (lambda (_%manifest95489%_) + (let ((_%port95491%_ (current-output-port))) + (display-build-manifest__% _%manifest95489%_ _%port95491%_)))) (define display-build-manifest - (lambda _g94427_ - (let ((_g94426_ (let () (declare (not safe)) (##length _g94427_)))) - (cond ((let () (declare (not safe)) (##fx= _g94426_ 0)) - (apply display-build-manifest__0 _g94427_)) - ((let () (declare (not safe)) (##fx= _g94426_ 1)) - (apply display-build-manifest__1 _g94427_)) - ((let () (declare (not safe)) (##fx= _g94426_ 2)) - (apply display-build-manifest__% _g94427_)) + (lambda _g95525_ + (let ((_g95524_ (let () (declare (not safe)) (##length _g95525_)))) + (cond ((let () (declare (not safe)) (##fx= _g95524_ 0)) + (apply display-build-manifest__0 _g95525_)) + ((let () (declare (not safe)) (##fx= _g95524_ 1)) + (apply display-build-manifest__1 _g95525_)) + ((let () (declare (not safe)) (##fx= _g95524_ 2)) + (apply display-build-manifest__% _g95525_)) (else (##raise-wrong-number-of-arguments-exception display-build-manifest - _g94427_)))))) + _g95525_)))))) (define __display-build-manifest__% - (lambda (_%manifest94280%_ _%port94281%_) - (let* ((_%manifest94284%_ _%manifest94280%_) - (_%port94292%_ _%port94281%_)) - (let ((_%p94305%_ - (lambda (_%g9430094302%_) - (display _%g9430094302%_ _%port94292%_))) - (_%l94306%_ - (let () (declare (not safe)) (##length _%manifest94284%_))) - (_%i94307%_ '0)) - (let ((__tmp94428 - (lambda (_%layer94309%_) - (if (zero? _%i94307%_) + (lambda (_%manifest95378%_ _%port95379%_) + (let* ((_%manifest95382%_ _%manifest95378%_) + (_%port95390%_ _%port95379%_)) + (let ((_%p95403%_ + (lambda (_%g9539895400%_) + (display _%g9539895400%_ _%port95390%_))) + (_%l95404%_ + (let () (declare (not safe)) (##length _%manifest95382%_))) + (_%i95405%_ '0)) + (let ((__tmp95526 + (lambda (_%layer95407%_) + (if (zero? _%i95405%_) '#!void - (if (= _%i94307%_ '1) - (_%p94305%_ '" on ") - (_%p94305%_ '", "))) - (let* ((_%layer9431394320%_ _%layer94309%_) - (_%E9431594324%_ + (if (= _%i95405%_ '1) + (_%p95403%_ '" on ") + (_%p95403%_ '", "))) + (let* ((_%layer9541195418%_ _%layer95407%_) + (_%E9541395422%_ (lambda () (error '"No clause matching" - _%layer9431394320%_ + _%layer9541195418%_ '([name . version])) '#!void)) - (_%K9431694330%_ - (lambda (_%version94327%_ _%name94328%_) - (_%p94305%_ _%name94328%_) - (_%p94305%_ '" ") - (_%p94305%_ _%version94327%_)))) - (if (pair? _%layer9431394320%_) - (let ((_%hd9431794333%_ + (_%K9541495428%_ + (lambda (_%version95425%_ _%name95426%_) + (_%p95403%_ _%name95426%_) + (_%p95403%_ '" ") + (_%p95403%_ _%version95425%_)))) + (if (pair? _%layer9541195418%_) + (let ((_%hd9541595431%_ (let () (declare (not safe)) - (##car _%layer9431394320%_))) - (_%tl9431894335%_ + (##car _%layer9541195418%_))) + (_%tl9541695433%_ (let () (declare (not safe)) - (##cdr _%layer9431394320%_)))) - (let* ((_%name94338%_ _%hd9431794333%_) - (_%version94340%_ _%tl9431894335%_)) - (_%K9431694330%_ - _%version94340%_ - _%name94338%_))) - (_%E9431594324%_))) - (set! _%i94307%_ (+ _%i94307%_ '1))))) + (##cdr _%layer9541195418%_)))) + (let* ((_%name95436%_ _%hd9541595431%_) + (_%version95438%_ _%tl9541695433%_)) + (_%K9541495428%_ + _%version95438%_ + _%name95436%_))) + (_%E9541395422%_))) + (set! _%i95405%_ (+ _%i95405%_ '1))))) (declare (not safe)) - (##for-each __tmp94428 _%manifest94284%_)))))) + (##for-each __tmp95526 _%manifest95382%_)))))) (define __display-build-manifest__0 (lambda () - (let* ((_%manifest94346%_ __build-manifest) - (_%port94348%_ (current-output-port))) - (__display-build-manifest__% _%manifest94346%_ _%port94348%_)))) + (let* ((_%manifest95444%_ __build-manifest) + (_%port95446%_ (current-output-port))) + (__display-build-manifest__% _%manifest95444%_ _%port95446%_)))) (define __display-build-manifest__1 - (lambda (_%manifest94350%_) - (let ((_%port94352%_ (current-output-port))) - (__display-build-manifest__% _%manifest94350%_ _%port94352%_)))) + (lambda (_%manifest95448%_) + (let ((_%port95450%_ (current-output-port))) + (__display-build-manifest__% _%manifest95448%_ _%port95450%_)))) (define __display-build-manifest - (lambda _g94430_ - (let ((_g94429_ (let () (declare (not safe)) (##length _g94430_)))) - (cond ((let () (declare (not safe)) (##fx= _g94429_ 0)) - (apply __display-build-manifest__0 _g94430_)) - ((let () (declare (not safe)) (##fx= _g94429_ 1)) - (apply __display-build-manifest__1 _g94430_)) - ((let () (declare (not safe)) (##fx= _g94429_ 2)) - (apply __display-build-manifest__% _g94430_)) + (lambda _g95528_ + (let ((_g95527_ (let () (declare (not safe)) (##length _g95528_)))) + (cond ((let () (declare (not safe)) (##fx= _g95527_ 0)) + (apply __display-build-manifest__0 _g95528_)) + ((let () (declare (not safe)) (##fx= _g95527_ 1)) + (apply __display-build-manifest__1 _g95528_)) + ((let () (declare (not safe)) (##fx= _g95527_ 2)) + (apply __display-build-manifest__% _g95528_)) (else (##raise-wrong-number-of-arguments-exception __display-build-manifest - _g94430_)))))) + _g95528_)))))) (define build-manifest/layer - (lambda (_%layer94275%_) - (let ((_%l94277%_ (assoc _%layer94275%_ __build-manifest))) - (if _%l94277%_ (cons _%l94277%_ '()) '())))) + (lambda (_%layer95373%_) + (let ((_%l95375%_ (assoc _%layer95373%_ __build-manifest))) + (if _%l95375%_ (cons _%l95375%_ '()) '())))) (define build-manifest/head (lambda () (cons (car __build-manifest) '()))) (define build-manifest-string__% - (lambda (_%manifest94252%_) - (if (list? _%manifest94252%_) - (let ((_%manifest94256%_ _%manifest94252%_)) - (__build-manifest-string__% _%manifest94256%_)) + (lambda (_%manifest95350%_) + (if (list? _%manifest95350%_) + (let ((_%manifest95354%_ _%manifest95350%_)) + (__build-manifest-string__% _%manifest95354%_)) (begin (raise-contract-violation-error '"contract violation" @@ -165,54 +165,54 @@ 'contract: 'list? 'value: - _%manifest94252%_) + _%manifest95350%_) '#!void)))) (define build-manifest-string__0 (lambda () - (let ((_%manifest94270%_ __build-manifest)) - (__build-manifest-string__% _%manifest94270%_)))) + (let ((_%manifest95368%_ __build-manifest)) + (__build-manifest-string__% _%manifest95368%_)))) (define build-manifest-string - (lambda _g94432_ - (let ((_g94431_ (let () (declare (not safe)) (##length _g94432_)))) - (cond ((let () (declare (not safe)) (##fx= _g94431_ 0)) - (apply build-manifest-string__0 _g94432_)) - ((let () (declare (not safe)) (##fx= _g94431_ 1)) - (apply build-manifest-string__% _g94432_)) + (lambda _g95530_ + (let ((_g95529_ (let () (declare (not safe)) (##length _g95530_)))) + (cond ((let () (declare (not safe)) (##fx= _g95529_ 0)) + (apply build-manifest-string__0 _g95530_)) + ((let () (declare (not safe)) (##fx= _g95529_ 1)) + (apply build-manifest-string__% _g95530_)) (else (##raise-wrong-number-of-arguments-exception build-manifest-string - _g94432_)))))) + _g95530_)))))) (define __build-manifest-string__% - (lambda (_%manifest94229%_) - (let ((_%manifest94232%_ _%manifest94229%_)) + (lambda (_%manifest95327%_) + (let ((_%manifest95330%_ _%manifest95327%_)) (call-with-output-string '() - (lambda (_%p94241%_) - (display-build-manifest__% _%manifest94232%_ _%p94241%_)))))) + (lambda (_%p95339%_) + (display-build-manifest__% _%manifest95330%_ _%p95339%_)))))) (define __build-manifest-string__0 (lambda () - (let ((_%manifest94247%_ __build-manifest)) - (__build-manifest-string__% _%manifest94247%_)))) + (let ((_%manifest95345%_ __build-manifest)) + (__build-manifest-string__% _%manifest95345%_)))) (define __build-manifest-string - (lambda _g94434_ - (let ((_g94433_ (let () (declare (not safe)) (##length _g94434_)))) - (cond ((let () (declare (not safe)) (##fx= _g94433_ 0)) - (apply __build-manifest-string__0 _g94434_)) - ((let () (declare (not safe)) (##fx= _g94433_ 1)) - (apply __build-manifest-string__% _g94434_)) + (lambda _g95532_ + (let ((_g95531_ (let () (declare (not safe)) (##length _g95532_)))) + (cond ((let () (declare (not safe)) (##fx= _g95531_ 0)) + (apply __build-manifest-string__0 _g95532_)) + ((let () (declare (not safe)) (##fx= _g95531_ 1)) + (apply __build-manifest-string__% _g95532_)) (else (##raise-wrong-number-of-arguments-exception __build-manifest-string - _g94434_)))))) + _g95532_)))))) (define gerbil-system-version-string (lambda () (__build-manifest-string__% gerbil-system-manifest))) (define __gerbil-greeting (gerbil-system-version-string)) (define gerbil-greeting (lambda () __gerbil-greeting)) (define gerbil-greeting-set! - (lambda (_%new-value94211%_) - (if (string? _%new-value94211%_) - (let ((_%new-value94215%_ _%new-value94211%_)) - (__gerbil-greeting-set! _%new-value94215%_)) + (lambda (_%new-value95309%_) + (if (string? _%new-value95309%_) + (let ((_%new-value95313%_ _%new-value95309%_)) + (__gerbil-greeting-set! _%new-value95313%_)) (begin (raise-contract-violation-error '"contract violation" @@ -221,34 +221,34 @@ 'contract: 'string? 'value: - _%new-value94211%_) + _%new-value95309%_) '#!void)))) (define __gerbil-greeting-set! - (lambda (_%new-value94197%_) - (let ((_%new-value94201%_ _%new-value94197%_)) - (set! __gerbil-greeting _%new-value94201%_)))) + (lambda (_%new-value95295%_) + (let ((_%new-value95299%_ _%new-value95295%_)) + (set! __gerbil-greeting _%new-value95299%_)))) (define gerbil-system (lambda () 'gerbil-gambit)) (define gerbil-home (lambda () - (let ((_%$e94193%_ + (let ((_%$e95291%_ (let () (declare (not safe)) (##getenv '"GERBIL_HOME" '#f)))) - (if _%$e94193%_ _%$e94193%_ (path-expand '"~~"))))) + (if _%$e95291%_ _%$e95291%_ (path-expand '"~~"))))) (define gerbil-path (lambda () - (let ((_%$e94189%_ + (let ((_%$e95287%_ (let () (declare (not safe)) (##getenv '"GERBIL_PATH" '#f)))) - (if _%$e94189%_ _%$e94189%_ (path-expand '"~/.gerbil"))))) + (if _%$e95287%_ _%$e95287%_ (path-expand '"~/.gerbil"))))) (define __smp? '#!void) (define gerbil-runtime-smp? (lambda () (if (eq? __smp? '#!void) (set! __smp? - (if (let ((__tmp94435 - (let ((__tmp94436 (configure-command-string))) + (if (let ((__tmp95533 + (let ((__tmp95534 (configure-command-string))) (declare (not safe)) - (__string-split __tmp94436 '#\')))) + (__string-split __tmp95534 '#\')))) (declare (not safe)) - (##member '"--enable-smp" __tmp94435)) + (##member '"--enable-smp" __tmp95533)) '#t '#f)) '#!void) diff --git a/src/bootstrap/gerbil/runtime/table~0.scm b/src/bootstrap/gerbil/runtime/table~0.scm index 47f01e49c..1799d80f7 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 1713631264) + (define gerbil/runtime/table::timestamp 1734357959) (begin (declare (not safe)) (define __table::t.id 'gerbil#__table::t) @@ -13,1979 +13,1979 @@ '#f '#(table 5 #f count 5 #f free 5 #f hash 5 #f test 5 #f seed 5 #f))) (define &raw-table-table - (lambda (_%tab93881%_) + (lambda (_%tab94979%_) (##unchecked-structure-ref - _%tab93881%_ + _%tab94979%_ '1 __table::t 'raw-table-table))) (define &raw-table-count - (lambda (_%tab93879%_) + (lambda (_%tab94977%_) (##unchecked-structure-ref - _%tab93879%_ + _%tab94977%_ '2 __table::t 'raw-table-count))) (define &raw-table-free - (lambda (_%tab93877%_) + (lambda (_%tab94975%_) (##unchecked-structure-ref - _%tab93877%_ + _%tab94975%_ '3 __table::t 'raw-table-free))) (define &raw-table-hash - (lambda (_%tab93875%_) + (lambda (_%tab94973%_) (##unchecked-structure-ref - _%tab93875%_ + _%tab94973%_ '4 __table::t 'raw-table-hash))) (define &raw-table-test - (lambda (_%tab93873%_) + (lambda (_%tab94971%_) (##unchecked-structure-ref - _%tab93873%_ + _%tab94971%_ '5 __table::t 'raw-table-test))) (define &raw-table-seed - (lambda (_%tab93871%_) + (lambda (_%tab94969%_) (##unchecked-structure-ref - _%tab93871%_ + _%tab94969%_ '6 __table::t 'raw-table-seed))) (define &raw-table-table-set! - (lambda (_%tab93868%_ _%val93869%_) + (lambda (_%tab94966%_ _%val94967%_) (##unchecked-structure-set! - _%tab93868%_ - _%val93869%_ + _%tab94966%_ + _%val94967%_ '1 __table::t 'raw-table-table-set!))) (define &raw-table-count-set! - (lambda (_%tab93865%_ _%val93866%_) + (lambda (_%tab94963%_ _%val94964%_) (##unchecked-structure-set! - _%tab93865%_ - _%val93866%_ + _%tab94963%_ + _%val94964%_ '2 __table::t 'raw-table-count-set!))) (define &raw-table-free-set! - (lambda (_%tab93862%_ _%val93863%_) + (lambda (_%tab94960%_ _%val94961%_) (##unchecked-structure-set! - _%tab93862%_ - _%val93863%_ + _%tab94960%_ + _%val94961%_ '3 __table::t 'raw-table-free-set!))) (define &raw-table-hash-set! - (lambda (_%tab93859%_ _%val93860%_) + (lambda (_%tab94957%_ _%val94958%_) (##unchecked-structure-set! - _%tab93859%_ - _%val93860%_ + _%tab94957%_ + _%val94958%_ '4 __table::t 'raw-table-hash-set!))) (define &raw-table-test-set! - (lambda (_%tab93856%_ _%val93857%_) + (lambda (_%tab94954%_ _%val94955%_) (##unchecked-structure-set! - _%tab93856%_ - _%val93857%_ + _%tab94954%_ + _%val94955%_ '5 __table::t 'raw-table-test-set!))) (define &raw-table-seed-set! - (lambda (_%tab93853%_ _%val93854%_) + (lambda (_%tab94951%_ _%val94952%_) (##unchecked-structure-set! - _%tab93853%_ - _%val93854%_ + _%tab94951%_ + _%val94952%_ '6 __table::t 'raw-table-seed-set!))) (define raw-table-size-hint->size - (lambda (_%size-hint93851%_) - (if (and (fixnum? _%size-hint93851%_) (##fx> _%size-hint93851%_ '0)) - (##fx* (fxmax '2 (expt '2 (integer-length _%size-hint93851%_))) '4) + (lambda (_%size-hint94949%_) + (if (and (fixnum? _%size-hint94949%_) (##fx> _%size-hint94949%_ '0)) + (##fx* (fxmax '2 (expt '2 (integer-length _%size-hint94949%_))) '4) '16))) (define make-raw-table__% - (lambda (_%size-hint93827%_ _%hash93828%_ _%test93829%_ _%seed93830%_) - (let* ((_%size93832%_ (raw-table-size-hint->size _%size-hint93827%_)) - (_%table93834%_ - (##make-vector _%size93832%_ (macro-unused-obj)))) + (lambda (_%size-hint94925%_ _%hash94926%_ _%test94927%_ _%seed94928%_) + (let* ((_%size94930%_ (raw-table-size-hint->size _%size-hint94925%_)) + (_%table94932%_ + (##make-vector _%size94930%_ (macro-unused-obj)))) (##structure __table::t - _%table93834%_ + _%table94932%_ '0 - (##fxquotient _%size93832%_ '2) - _%hash93828%_ - _%test93829%_ - _%seed93830%_)))) + (##fxquotient _%size94930%_ '2) + _%hash94926%_ + _%test94927%_ + _%seed94928%_)))) (define make-raw-table__0 - (lambda (_%size-hint93840%_ _%hash93841%_ _%test93842%_) - (let ((_%seed93844%_ '0)) + (lambda (_%size-hint94938%_ _%hash94939%_ _%test94940%_) + (let ((_%seed94942%_ '0)) (make-raw-table__% - _%size-hint93840%_ - _%hash93841%_ - _%test93842%_ - _%seed93844%_)))) + _%size-hint94938%_ + _%hash94939%_ + _%test94940%_ + _%seed94942%_)))) (define make-raw-table - (lambda _g93883_ - (let ((_g93882_ (##length _g93883_))) - (cond ((##fx= _g93882_ 3) (apply make-raw-table__0 _g93883_)) - ((##fx= _g93882_ 4) (apply make-raw-table__% _g93883_)) + (lambda _g94981_ + (let ((_g94980_ (##length _g94981_))) + (cond ((##fx= _g94980_ 3) (apply make-raw-table__0 _g94981_)) + ((##fx= _g94980_ 4) (apply make-raw-table__% _g94981_)) (else (##raise-wrong-number-of-arguments-exception make-raw-table - _g93883_)))))) + _g94981_)))))) (define raw-table-ref - (lambda (_%tab93778%_ _%key93779%_ _%default93780%_) - (let ((_%table93782%_ (&raw-table-table _%tab93778%_)) - (_%seed93783%_ (&raw-table-seed _%tab93778%_)) - (_%hash93784%_ (&raw-table-hash _%tab93778%_)) - (_%test93785%_ (&raw-table-test _%tab93778%_))) - (let* ((_%h93787%_ - (fxxor (_%hash93784%_ _%key93779%_) _%seed93783%_)) - (_%size93790%_ (vector-length _%table93782%_)) - (_%entries93793%_ (##fxquotient _%size93790%_ '2)) - (_%start93796%_ + (lambda (_%tab94876%_ _%key94877%_ _%default94878%_) + (let ((_%table94880%_ (&raw-table-table _%tab94876%_)) + (_%seed94881%_ (&raw-table-seed _%tab94876%_)) + (_%hash94882%_ (&raw-table-hash _%tab94876%_)) + (_%test94883%_ (&raw-table-test _%tab94876%_))) + (let* ((_%h94885%_ + (fxxor (_%hash94882%_ _%key94877%_) _%seed94881%_)) + (_%size94888%_ (vector-length _%table94880%_)) + (_%entries94891%_ (##fxquotient _%size94888%_ '2)) + (_%start94894%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93787%_ _%entries93793%_) + (##fxmodulo _%h94885%_ _%entries94891%_) '1))) - (let _%loop93800%_ ((_%probe93803%_ _%start93796%_) - (_%i93805%_ '1) - (_%deleted93807%_ '#f)) - (let ((_%k93810%_ (vector-ref _%table93782%_ _%probe93803%_))) - (if (eq? _%k93810%_ (macro-unused-obj)) - _%default93780%_ - (if (eq? _%k93810%_ (macro-deleted-obj)) - (_%loop93800%_ - (let ((_%next-probe93815%_ - (fx+ _%start93796%_ - _%i93805%_ - (fx* _%i93805%_ _%i93805%_)))) - (##fxmodulo _%next-probe93815%_ _%size93790%_)) - (##fx+ _%i93805%_ '1) - (let ((_%$e93818%_ _%deleted93807%_)) - (if _%$e93818%_ _%$e93818%_ _%probe93803%_))) - (if (_%test93785%_ _%key93779%_ _%k93810%_) + (let _%loop94898%_ ((_%probe94901%_ _%start94894%_) + (_%i94903%_ '1) + (_%deleted94905%_ '#f)) + (let ((_%k94908%_ (vector-ref _%table94880%_ _%probe94901%_))) + (if (eq? _%k94908%_ (macro-unused-obj)) + _%default94878%_ + (if (eq? _%k94908%_ (macro-deleted-obj)) + (_%loop94898%_ + (let ((_%next-probe94913%_ + (fx+ _%start94894%_ + _%i94903%_ + (fx* _%i94903%_ _%i94903%_)))) + (##fxmodulo _%next-probe94913%_ _%size94888%_)) + (##fx+ _%i94903%_ '1) + (let ((_%$e94916%_ _%deleted94905%_)) + (if _%$e94916%_ _%$e94916%_ _%probe94901%_))) + (if (_%test94883%_ _%key94877%_ _%k94908%_) (vector-ref - _%table93782%_ - (##fx+ _%probe93803%_ '1)) - (_%loop93800%_ - (let ((_%next-probe93823%_ - (fx+ _%start93796%_ - _%i93805%_ - (fx* _%i93805%_ _%i93805%_)))) - (##fxmodulo _%next-probe93823%_ _%size93790%_)) - (##fx+ _%i93805%_ '1) - _%deleted93807%_)))))))))) + _%table94880%_ + (##fx+ _%probe94901%_ '1)) + (_%loop94898%_ + (let ((_%next-probe94921%_ + (fx+ _%start94894%_ + _%i94903%_ + (fx* _%i94903%_ _%i94903%_)))) + (##fxmodulo _%next-probe94921%_ _%size94888%_)) + (##fx+ _%i94903%_ '1) + _%deleted94905%_)))))))))) (define raw-table-set! - (lambda (_%tab93774%_ _%key93775%_ _%value93776%_) - (if (##fx< (&raw-table-free _%tab93774%_) + (lambda (_%tab94872%_ _%key94873%_ _%value94874%_) + (if (##fx< (&raw-table-free _%tab94872%_) (##fxquotient - (vector-length (&raw-table-table _%tab93774%_)) + (vector-length (&raw-table-table _%tab94872%_)) '4)) - (__raw-table-rehash! _%tab93774%_) + (__raw-table-rehash! _%tab94872%_) '#!void) - (__raw-table-set! _%tab93774%_ _%key93775%_ _%value93776%_))) + (__raw-table-set! _%tab94872%_ _%key94873%_ _%value94874%_))) (define raw-table-update! - (lambda (_%tab93769%_ _%key93770%_ _%update93771%_ _%default93772%_) - (if (##fx< (&raw-table-free _%tab93769%_) + (lambda (_%tab94867%_ _%key94868%_ _%update94869%_ _%default94870%_) + (if (##fx< (&raw-table-free _%tab94867%_) (##fxquotient - (vector-length (&raw-table-table _%tab93769%_)) + (vector-length (&raw-table-table _%tab94867%_)) '4)) - (__raw-table-rehash! _%tab93769%_) + (__raw-table-rehash! _%tab94867%_) '#!void) (__raw-table-update! - _%tab93769%_ - _%key93770%_ - _%update93771%_ - _%default93772%_))) + _%tab94867%_ + _%key94868%_ + _%update94869%_ + _%default94870%_))) (define raw-table-delete! - (lambda (_%tab93726%_ _%key93727%_) - (let ((_%table93729%_ (&raw-table-table _%tab93726%_)) - (_%seed93730%_ (&raw-table-seed _%tab93726%_)) - (_%hash93731%_ (&raw-table-hash _%tab93726%_)) - (_%test93732%_ (&raw-table-test _%tab93726%_))) - (let* ((_%h93734%_ - (fxxor (_%hash93731%_ _%key93727%_) _%seed93730%_)) - (_%size93737%_ (vector-length _%table93729%_)) - (_%entries93740%_ (##fxquotient _%size93737%_ '2)) - (_%start93743%_ + (lambda (_%tab94824%_ _%key94825%_) + (let ((_%table94827%_ (&raw-table-table _%tab94824%_)) + (_%seed94828%_ (&raw-table-seed _%tab94824%_)) + (_%hash94829%_ (&raw-table-hash _%tab94824%_)) + (_%test94830%_ (&raw-table-test _%tab94824%_))) + (let* ((_%h94832%_ + (fxxor (_%hash94829%_ _%key94825%_) _%seed94828%_)) + (_%size94835%_ (vector-length _%table94827%_)) + (_%entries94838%_ (##fxquotient _%size94835%_ '2)) + (_%start94841%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93734%_ _%entries93740%_) + (##fxmodulo _%h94832%_ _%entries94838%_) '1))) - (let _%loop93747%_ ((_%probe93750%_ _%start93743%_) - (_%i93752%_ '1)) - (let ((_%k93755%_ (vector-ref _%table93729%_ _%probe93750%_))) - (if (eq? _%k93755%_ (macro-unused-obj)) + (let _%loop94845%_ ((_%probe94848%_ _%start94841%_) + (_%i94850%_ '1)) + (let ((_%k94853%_ (vector-ref _%table94827%_ _%probe94848%_))) + (if (eq? _%k94853%_ (macro-unused-obj)) '#!void - (if (eq? _%k93755%_ (macro-deleted-obj)) - (_%loop93747%_ - (let ((_%next-probe93760%_ - (fx+ _%start93743%_ - _%i93752%_ - (fx* _%i93752%_ _%i93752%_)))) - (##fxmodulo _%next-probe93760%_ _%size93737%_)) - (##fx+ _%i93752%_ '1)) - (if (_%test93732%_ _%key93727%_ _%k93755%_) + (if (eq? _%k94853%_ (macro-deleted-obj)) + (_%loop94845%_ + (let ((_%next-probe94858%_ + (fx+ _%start94841%_ + _%i94850%_ + (fx* _%i94850%_ _%i94850%_)))) + (##fxmodulo _%next-probe94858%_ _%size94835%_)) + (##fx+ _%i94850%_ '1)) + (if (_%test94830%_ _%key94825%_ _%k94853%_) (let () (vector-set! - _%table93729%_ - _%probe93750%_ + _%table94827%_ + _%probe94848%_ (macro-deleted-obj)) (vector-set! - _%table93729%_ - (##fx+ _%probe93750%_ '1) + _%table94827%_ + (##fx+ _%probe94848%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab93726%_ - (##fx- (&raw-table-count _%tab93726%_) + _%tab94824%_ + (##fx- (&raw-table-count _%tab94824%_) '1))))) - (_%loop93747%_ - (let ((_%next-probe93766%_ - (fx+ _%start93743%_ - _%i93752%_ - (fx* _%i93752%_ _%i93752%_)))) - (##fxmodulo _%next-probe93766%_ _%size93737%_)) - (##fx+ _%i93752%_ '1))))))))))) + (_%loop94845%_ + (let ((_%next-probe94864%_ + (fx+ _%start94841%_ + _%i94850%_ + (fx* _%i94850%_ _%i94850%_)))) + (##fxmodulo _%next-probe94864%_ _%size94835%_)) + (##fx+ _%i94850%_ '1))))))))))) (define raw-table-for-each - (lambda (_%tab93710%_ _%proc93711%_) - (let* ((_%table93713%_ (&raw-table-table _%tab93710%_)) - (_%size93715%_ (vector-length _%table93713%_))) - (let _%loop93718%_ ((_%i93720%_ '0)) - (if (##fx< _%i93720%_ _%size93715%_) + (lambda (_%tab94808%_ _%proc94809%_) + (let* ((_%table94811%_ (&raw-table-table _%tab94808%_)) + (_%size94813%_ (vector-length _%table94811%_))) + (let _%loop94816%_ ((_%i94818%_ '0)) + (if (##fx< _%i94818%_ _%size94813%_) (begin - (let ((_%key93722%_ (vector-ref _%table93713%_ _%i93720%_))) - (if (if (eq? _%key93722%_ (macro-unused-obj)) + (let ((_%key94820%_ (vector-ref _%table94811%_ _%i94818%_))) + (if (if (eq? _%key94820%_ (macro-unused-obj)) '#f - (not (eq? _%key93722%_ (macro-deleted-obj)))) - (let ((_%value93724%_ + (not (eq? _%key94820%_ (macro-deleted-obj)))) + (let ((_%value94822%_ (vector-ref - _%table93713%_ - (##fx+ _%i93720%_ '1)))) - (_%proc93711%_ _%key93722%_ _%value93724%_)) + _%table94811%_ + (##fx+ _%i94818%_ '1)))) + (_%proc94809%_ _%key94820%_ _%value94822%_)) '#!void)) - (_%loop93718%_ (##fx+ _%i93720%_ '2))) + (_%loop94816%_ (##fx+ _%i94818%_ '2))) '#!void))))) (define raw-table-copy - (lambda (_%tab93706%_) - (let ((_%new-tab93708%_ (##structure-copy _%tab93706%_))) + (lambda (_%tab94804%_) + (let ((_%new-tab94806%_ (##structure-copy _%tab94804%_))) (&raw-table-table-set! - _%new-tab93708%_ - (vector-copy (&raw-table-table _%tab93706%_))) - _%new-tab93708%_))) + _%new-tab94806%_ + (vector-copy (&raw-table-table _%tab94804%_))) + _%new-tab94806%_))) (define raw-table-clear! - (lambda (_%tab93704%_) - (vector-fill! (&raw-table-table _%tab93704%_) (macro-unused-obj)) - (&raw-table-count-set! _%tab93704%_ '0) + (lambda (_%tab94802%_) + (vector-fill! (&raw-table-table _%tab94802%_) (macro-unused-obj)) + (&raw-table-count-set! _%tab94802%_ '0) (&raw-table-free-set! - _%tab93704%_ - (##fxquotient (vector-length (&raw-table-table _%tab93704%_)) '2)))) + _%tab94802%_ + (##fxquotient (vector-length (&raw-table-table _%tab94802%_)) '2)))) (define __raw-table-set! - (lambda (_%tab93654%_ _%key93655%_ _%value93656%_) - (let ((_%table93658%_ (&raw-table-table _%tab93654%_)) - (_%seed93659%_ (&raw-table-seed _%tab93654%_)) - (_%hash93660%_ (&raw-table-hash _%tab93654%_)) - (_%test93661%_ (&raw-table-test _%tab93654%_))) - (let* ((_%h93663%_ - (fxxor (_%hash93660%_ _%key93655%_) _%seed93659%_)) - (_%size93666%_ (vector-length _%table93658%_)) - (_%entries93669%_ (##fxquotient _%size93666%_ '2)) - (_%start93672%_ + (lambda (_%tab94752%_ _%key94753%_ _%value94754%_) + (let ((_%table94756%_ (&raw-table-table _%tab94752%_)) + (_%seed94757%_ (&raw-table-seed _%tab94752%_)) + (_%hash94758%_ (&raw-table-hash _%tab94752%_)) + (_%test94759%_ (&raw-table-test _%tab94752%_))) + (let* ((_%h94761%_ + (fxxor (_%hash94758%_ _%key94753%_) _%seed94757%_)) + (_%size94764%_ (vector-length _%table94756%_)) + (_%entries94767%_ (##fxquotient _%size94764%_ '2)) + (_%start94770%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93663%_ _%entries93669%_) + (##fxmodulo _%h94761%_ _%entries94767%_) '1))) - (let _%loop93676%_ ((_%probe93679%_ _%start93672%_) - (_%i93681%_ '1) - (_%deleted93683%_ '#f)) - (let ((_%k93686%_ (vector-ref _%table93658%_ _%probe93679%_))) - (if (eq? _%k93686%_ (macro-unused-obj)) - (if _%deleted93683%_ + (let _%loop94774%_ ((_%probe94777%_ _%start94770%_) + (_%i94779%_ '1) + (_%deleted94781%_ '#f)) + (let ((_%k94784%_ (vector-ref _%table94756%_ _%probe94777%_))) + (if (eq? _%k94784%_ (macro-unused-obj)) + (if _%deleted94781%_ (begin (vector-set! - _%table93658%_ - _%deleted93683%_ - _%key93655%_) + _%table94756%_ + _%deleted94781%_ + _%key94753%_) (vector-set! - _%table93658%_ - (##fx+ _%deleted93683%_ '1) - _%value93656%_) + _%table94756%_ + (##fx+ _%deleted94781%_ '1) + _%value94754%_) ((lambda () (&raw-table-count-set! - _%tab93654%_ - (##fx+ (&raw-table-count _%tab93654%_) '1))))) + _%tab94752%_ + (##fx+ (&raw-table-count _%tab94752%_) '1))))) (begin (vector-set! - _%table93658%_ - _%probe93679%_ - _%key93655%_) + _%table94756%_ + _%probe94777%_ + _%key94753%_) (vector-set! - _%table93658%_ - (##fx+ _%probe93679%_ '1) - _%value93656%_) + _%table94756%_ + (##fx+ _%probe94777%_ '1) + _%value94754%_) ((lambda () (&raw-table-free-set! - _%tab93654%_ - (##fx- (&raw-table-free _%tab93654%_) '1)) + _%tab94752%_ + (##fx- (&raw-table-free _%tab94752%_) '1)) (&raw-table-count-set! - _%tab93654%_ - (##fx+ (&raw-table-count _%tab93654%_) '1)))))) - (if (eq? _%k93686%_ (macro-deleted-obj)) - (_%loop93676%_ - (let ((_%next-probe93693%_ - (fx+ _%start93672%_ - _%i93681%_ - (fx* _%i93681%_ _%i93681%_)))) - (##fxmodulo _%next-probe93693%_ _%size93666%_)) - (##fx+ _%i93681%_ '1) - (let ((_%$e93696%_ _%deleted93683%_)) - (if _%$e93696%_ _%$e93696%_ _%probe93679%_))) - (if (_%test93661%_ _%key93655%_ _%k93686%_) + _%tab94752%_ + (##fx+ (&raw-table-count _%tab94752%_) '1)))))) + (if (eq? _%k94784%_ (macro-deleted-obj)) + (_%loop94774%_ + (let ((_%next-probe94791%_ + (fx+ _%start94770%_ + _%i94779%_ + (fx* _%i94779%_ _%i94779%_)))) + (##fxmodulo _%next-probe94791%_ _%size94764%_)) + (##fx+ _%i94779%_ '1) + (let ((_%$e94794%_ _%deleted94781%_)) + (if _%$e94794%_ _%$e94794%_ _%probe94777%_))) + (if (_%test94759%_ _%key94753%_ _%k94784%_) (let () (vector-set! - _%table93658%_ - _%probe93679%_ - _%key93655%_) + _%table94756%_ + _%probe94777%_ + _%key94753%_) (vector-set! - _%table93658%_ - (##fx+ _%probe93679%_ '1) - _%value93656%_)) - (_%loop93676%_ - (let ((_%next-probe93701%_ - (fx+ _%start93672%_ - _%i93681%_ - (fx* _%i93681%_ _%i93681%_)))) - (##fxmodulo _%next-probe93701%_ _%size93666%_)) - (##fx+ _%i93681%_ '1) - _%deleted93683%_)))))))))) + _%table94756%_ + (##fx+ _%probe94777%_ '1) + _%value94754%_)) + (_%loop94774%_ + (let ((_%next-probe94799%_ + (fx+ _%start94770%_ + _%i94779%_ + (fx* _%i94779%_ _%i94779%_)))) + (##fxmodulo _%next-probe94799%_ _%size94764%_)) + (##fx+ _%i94779%_ '1) + _%deleted94781%_)))))))))) (define __raw-table-update! - (lambda (_%tab93603%_ _%key93604%_ _%update93605%_ _%default93606%_) - (let ((_%table93608%_ (&raw-table-table _%tab93603%_)) - (_%seed93609%_ (&raw-table-seed _%tab93603%_)) - (_%hash93610%_ (&raw-table-hash _%tab93603%_)) - (_%test93611%_ (&raw-table-test _%tab93603%_))) - (let* ((_%h93613%_ - (fxxor (_%hash93610%_ _%key93604%_) _%seed93609%_)) - (_%size93616%_ (vector-length _%table93608%_)) - (_%entries93619%_ (##fxquotient _%size93616%_ '2)) - (_%start93622%_ + (lambda (_%tab94701%_ _%key94702%_ _%update94703%_ _%default94704%_) + (let ((_%table94706%_ (&raw-table-table _%tab94701%_)) + (_%seed94707%_ (&raw-table-seed _%tab94701%_)) + (_%hash94708%_ (&raw-table-hash _%tab94701%_)) + (_%test94709%_ (&raw-table-test _%tab94701%_))) + (let* ((_%h94711%_ + (fxxor (_%hash94708%_ _%key94702%_) _%seed94707%_)) + (_%size94714%_ (vector-length _%table94706%_)) + (_%entries94717%_ (##fxquotient _%size94714%_ '2)) + (_%start94720%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93613%_ _%entries93619%_) + (##fxmodulo _%h94711%_ _%entries94717%_) '1))) - (let _%loop93626%_ ((_%probe93629%_ _%start93622%_) - (_%i93631%_ '1) - (_%deleted93633%_ '#f)) - (let ((_%k93636%_ (vector-ref _%table93608%_ _%probe93629%_))) - (if (eq? _%k93636%_ (macro-unused-obj)) - (if _%deleted93633%_ + (let _%loop94724%_ ((_%probe94727%_ _%start94720%_) + (_%i94729%_ '1) + (_%deleted94731%_ '#f)) + (let ((_%k94734%_ (vector-ref _%table94706%_ _%probe94727%_))) + (if (eq? _%k94734%_ (macro-unused-obj)) + (if _%deleted94731%_ (begin (vector-set! - _%table93608%_ - _%deleted93633%_ - _%key93604%_) + _%table94706%_ + _%deleted94731%_ + _%key94702%_) (vector-set! - _%table93608%_ - (##fx+ _%deleted93633%_ '1) - (_%update93605%_ _%default93606%_)) + _%table94706%_ + (##fx+ _%deleted94731%_ '1) + (_%update94703%_ _%default94704%_)) ((lambda () (&raw-table-count-set! - _%tab93603%_ - (##fx+ (&raw-table-count _%tab93603%_) '1))))) + _%tab94701%_ + (##fx+ (&raw-table-count _%tab94701%_) '1))))) (begin (vector-set! - _%table93608%_ - _%probe93629%_ - _%key93604%_) + _%table94706%_ + _%probe94727%_ + _%key94702%_) (vector-set! - _%table93608%_ - (##fx+ _%probe93629%_ '1) - (_%update93605%_ _%default93606%_)) + _%table94706%_ + (##fx+ _%probe94727%_ '1) + (_%update94703%_ _%default94704%_)) ((lambda () (&raw-table-free-set! - _%tab93603%_ - (##fx- (&raw-table-free _%tab93603%_) '1)) + _%tab94701%_ + (##fx- (&raw-table-free _%tab94701%_) '1)) (&raw-table-count-set! - _%tab93603%_ - (##fx+ (&raw-table-count _%tab93603%_) '1)))))) - (if (eq? _%k93636%_ (macro-deleted-obj)) - (_%loop93626%_ - (let ((_%next-probe93643%_ - (fx+ _%start93622%_ - _%i93631%_ - (fx* _%i93631%_ _%i93631%_)))) - (##fxmodulo _%next-probe93643%_ _%size93616%_)) - (##fx+ _%i93631%_ '1) - (let ((_%$e93646%_ _%deleted93633%_)) - (if _%$e93646%_ _%$e93646%_ _%probe93629%_))) - (if (_%test93611%_ _%key93604%_ _%k93636%_) + _%tab94701%_ + (##fx+ (&raw-table-count _%tab94701%_) '1)))))) + (if (eq? _%k94734%_ (macro-deleted-obj)) + (_%loop94724%_ + (let ((_%next-probe94741%_ + (fx+ _%start94720%_ + _%i94729%_ + (fx* _%i94729%_ _%i94729%_)))) + (##fxmodulo _%next-probe94741%_ _%size94714%_)) + (##fx+ _%i94729%_ '1) + (let ((_%$e94744%_ _%deleted94731%_)) + (if _%$e94744%_ _%$e94744%_ _%probe94727%_))) + (if (_%test94709%_ _%key94702%_ _%k94734%_) (let () (vector-set! - _%table93608%_ - _%probe93629%_ - _%key93604%_) + _%table94706%_ + _%probe94727%_ + _%key94702%_) (vector-set! - _%table93608%_ - (##fx+ _%probe93629%_ '1) - (_%update93605%_ + _%table94706%_ + (##fx+ _%probe94727%_ '1) + (_%update94703%_ (vector-ref - _%table93608%_ - (##fx+ _%probe93629%_ '1))))) - (_%loop93626%_ - (let ((_%next-probe93651%_ - (fx+ _%start93622%_ - _%i93631%_ - (fx* _%i93631%_ _%i93631%_)))) - (##fxmodulo _%next-probe93651%_ _%size93616%_)) - (##fx+ _%i93631%_ '1) - _%deleted93633%_)))))))))) + _%table94706%_ + (##fx+ _%probe94727%_ '1))))) + (_%loop94724%_ + (let ((_%next-probe94749%_ + (fx+ _%start94720%_ + _%i94729%_ + (fx* _%i94729%_ _%i94729%_)))) + (##fxmodulo _%next-probe94749%_ _%size94714%_)) + (##fx+ _%i94729%_ '1) + _%deleted94731%_)))))))))) (define __raw-table-rehash! - (lambda (_%tab93584%_) - (let* ((_%old-table93586%_ (&raw-table-table _%tab93584%_)) - (_%old-size93588%_ (vector-length _%old-table93586%_)) - (_%new-size93590%_ - (if (##fx< (&raw-table-count _%tab93584%_) - (##fxquotient _%old-size93588%_ '4)) - (vector-length _%old-table93586%_) - (##fx* '2 (vector-length _%old-table93586%_)))) - (_%new-table93592%_ - (##make-vector _%new-size93590%_ (macro-unused-obj)))) - (&raw-table-table-set! _%tab93584%_ _%new-table93592%_) - (&raw-table-count-set! _%tab93584%_ '0) + (lambda (_%tab94682%_) + (let* ((_%old-table94684%_ (&raw-table-table _%tab94682%_)) + (_%old-size94686%_ (vector-length _%old-table94684%_)) + (_%new-size94688%_ + (if (##fx< (&raw-table-count _%tab94682%_) + (##fxquotient _%old-size94686%_ '4)) + (vector-length _%old-table94684%_) + (##fx* '2 (vector-length _%old-table94684%_)))) + (_%new-table94690%_ + (##make-vector _%new-size94688%_ (macro-unused-obj)))) + (&raw-table-table-set! _%tab94682%_ _%new-table94690%_) + (&raw-table-count-set! _%tab94682%_ '0) (&raw-table-free-set! - _%tab93584%_ - (##fxquotient _%new-size93590%_ '2)) - (let _%lp93595%_ ((_%i93597%_ '0)) - (if (##fx< _%i93597%_ _%old-size93588%_) + _%tab94682%_ + (##fxquotient _%new-size94688%_ '2)) + (let _%lp94693%_ ((_%i94695%_ '0)) + (if (##fx< _%i94695%_ _%old-size94686%_) (begin - (let ((_%key93599%_ - (vector-ref _%old-table93586%_ _%i93597%_))) - (if (if (eq? _%key93599%_ (macro-unused-obj)) + (let ((_%key94697%_ + (vector-ref _%old-table94684%_ _%i94695%_))) + (if (if (eq? _%key94697%_ (macro-unused-obj)) '#f - (not (eq? _%key93599%_ (macro-deleted-obj)))) - (let ((_%value93601%_ + (not (eq? _%key94697%_ (macro-deleted-obj)))) + (let ((_%value94699%_ (vector-ref - _%old-table93586%_ - (##fx+ _%i93597%_ '1)))) + _%old-table94684%_ + (##fx+ _%i94695%_ '1)))) (__raw-table-set! - _%tab93584%_ - _%key93599%_ - _%value93601%_)) + _%tab94682%_ + _%key94697%_ + _%value94699%_)) '#!void)) - (_%lp93595%_ (##fx+ _%i93597%_ '2))) + (_%lp94693%_ (##fx+ _%i94695%_ '2))) '#!void))))) (define eq-hash - (lambda (_%obj93576%_) - (let ((_%t93578%_ (##type _%obj93576%_))) - (if (##fx= (##fxand _%t93578%_ '1) '0) - (fxand (##type-cast _%obj93576%_ (macro-type-fixnum)) + (lambda (_%obj94674%_) + (let ((_%t94676%_ (##type _%obj94674%_))) + (if (##fx= (##fxand _%t94676%_ '1) '0) + (fxand (##type-cast _%obj94674%_ (macro-type-fixnum)) (macro-max-fixnum32)) - (if (symbolic? _%obj93576%_) - (symbolic-hash _%obj93576%_) - (if (procedure? _%obj93576%_) - (procedure-hash _%obj93576%_) - (fxand (__eq-hash _%obj93576%_) + (if (symbolic? _%obj94674%_) + (symbolic-hash _%obj94674%_) + (if (procedure? _%obj94674%_) + (procedure-hash _%obj94674%_) + (fxand (__eq-hash _%obj94674%_) (macro-max-fixnum32)))))))) (define procedure-hash - (lambda (_%obj93572%_) - (let ((_%h93574%_ - (if (##closure? _%obj93572%_) - (__eq-hash _%obj93572%_) - (##type-cast _%obj93572%_ '0)))) - (fxand _%h93574%_ (macro-max-fixnum32))))) + (lambda (_%obj94670%_) + (let ((_%h94672%_ + (if (##closure? _%obj94670%_) + (__eq-hash _%obj94670%_) + (##type-cast _%obj94670%_ '0)))) + (fxand _%h94672%_ (macro-max-fixnum32))))) (define __eq-hash - (lambda (_%obj93569%_) + (lambda (_%obj94667%_) (declare (not interrupts-enabled)) - (__object->eq-hash _%obj93569%_))) + (__object->eq-hash _%obj94667%_))) (define eqv-hash - (lambda (_%obj93559%_) - (letrec ((_%combine93561%_ - (lambda (_%a93566%_ _%b93567%_) - (fxand (##fx* (##fx+ _%a93566%_ + (lambda (_%obj94657%_) + (letrec ((_%combine94659%_ + (lambda (_%a94664%_ _%b94665%_) + (fxand (##fx* (##fx+ _%a94664%_ (fxarithmetic-shift-left - _%b93567%_ + _%b94665%_ '1)) '331804471) (macro-max-fixnum32)))) - (_%hash93562%_ - (lambda (_%obj93564%_) + (_%hash94660%_ + (lambda (_%obj94662%_) (macro-number-dispatch - _%obj93564%_ - (eq-hash _%obj93564%_) - (fxand _%obj93564%_ (macro-max-fixnum32)) - (modulo _%obj93564%_ '331804481) - (_%combine93561%_ - (_%hash93562%_ (macro-ratnum-numerator _%obj93564%_)) - (_%hash93562%_ (macro-ratnum-denominator _%obj93564%_))) - (_%combine93561%_ - (##u16vector-ref _%obj93564%_ '0) - (_%combine93561%_ - (##u16vector-ref _%obj93564%_ '1) - (_%combine93561%_ - (##u16vector-ref _%obj93564%_ '2) - (##u16vector-ref _%obj93564%_ '3)))) - (_%combine93561%_ - (_%hash93562%_ (macro-cpxnum-real _%obj93564%_)) - (_%hash93562%_ (macro-cpxnum-imag _%obj93564%_))))))) - (_%hash93562%_ _%obj93559%_)))) + _%obj94662%_ + (eq-hash _%obj94662%_) + (fxand _%obj94662%_ (macro-max-fixnum32)) + (modulo _%obj94662%_ '331804481) + (_%combine94659%_ + (_%hash94660%_ (macro-ratnum-numerator _%obj94662%_)) + (_%hash94660%_ (macro-ratnum-denominator _%obj94662%_))) + (_%combine94659%_ + (##u16vector-ref _%obj94662%_ '0) + (_%combine94659%_ + (##u16vector-ref _%obj94662%_ '1) + (_%combine94659%_ + (##u16vector-ref _%obj94662%_ '2) + (##u16vector-ref _%obj94662%_ '3)))) + (_%combine94659%_ + (_%hash94660%_ (macro-cpxnum-real _%obj94662%_)) + (_%hash94660%_ (macro-cpxnum-imag _%obj94662%_))))))) + (_%hash94660%_ _%obj94657%_)))) (define symbolic? - (lambda (_%obj93554%_) - (let ((_%$e93556%_ (symbol? _%obj93554%_))) - (if _%$e93556%_ _%$e93556%_ (keyword? _%obj93554%_))))) - (define symbolic-hash (lambda (_%obj93552%_) (macro-slot '1 _%obj93552%_))) - (define string-hash (lambda (_%obj93550%_) (##string=?-hash _%obj93550%_))) + (lambda (_%obj94652%_) + (let ((_%$e94654%_ (symbol? _%obj94652%_))) + (if _%$e94654%_ _%$e94654%_ (keyword? _%obj94652%_))))) + (define symbolic-hash (lambda (_%obj94650%_) (macro-slot '1 _%obj94650%_))) + (define string-hash (lambda (_%obj94648%_) (##string=?-hash _%obj94648%_))) (define immediate-hash - (lambda (_%obj93548%_) (##type-cast _%obj93548%_ (macro-type-fixnum)))) + (lambda (_%obj94646%_) (##type-cast _%obj94646%_ (macro-type-fixnum)))) (define make-eq-table__% - (lambda (_%size-hint93529%_ _%seed93531%_) - (make-raw-table__% _%size-hint93529%_ eq-hash eq? _%seed93531%_))) + (lambda (_%size-hint94627%_ _%seed94629%_) + (make-raw-table__% _%size-hint94627%_ eq-hash eq? _%seed94629%_))) (define make-eq-table__0 (lambda () - (let* ((_%size-hint93537%_ '#f) (_%seed93539%_ '0)) - (make-eq-table__% _%size-hint93537%_ _%seed93539%_)))) + (let* ((_%size-hint94635%_ '#f) (_%seed94637%_ '0)) + (make-eq-table__% _%size-hint94635%_ _%seed94637%_)))) (define make-eq-table__1 - (lambda (_%size-hint93541%_) - (let ((_%seed93543%_ '0)) - (make-eq-table__% _%size-hint93541%_ _%seed93543%_)))) + (lambda (_%size-hint94639%_) + (let ((_%seed94641%_ '0)) + (make-eq-table__% _%size-hint94639%_ _%seed94641%_)))) (define make-eq-table - (lambda _g93885_ - (let ((_g93884_ (##length _g93885_))) - (cond ((##fx= _g93884_ 0) (apply make-eq-table__0 _g93885_)) - ((##fx= _g93884_ 1) (apply make-eq-table__1 _g93885_)) - ((##fx= _g93884_ 2) (apply make-eq-table__% _g93885_)) + (lambda _g94983_ + (let ((_g94982_ (##length _g94983_))) + (cond ((##fx= _g94982_ 0) (apply make-eq-table__0 _g94983_)) + ((##fx= _g94982_ 1) (apply make-eq-table__1 _g94983_)) + ((##fx= _g94982_ 2) (apply make-eq-table__% _g94983_)) (else (##raise-wrong-number-of-arguments-exception make-eq-table - _g93885_)))))) + _g94983_)))))) (define eq-table-ref - (lambda (_%tab93482%_ _%key93483%_ _%default93484%_) - (let ((_%table93486%_ (&raw-table-table _%tab93482%_)) - (_%seed93487%_ (&raw-table-seed _%tab93482%_))) - (let* ((_%h93489%_ (fxxor (eq-hash _%key93483%_) _%seed93487%_)) - (_%size93492%_ (vector-length _%table93486%_)) - (_%entries93495%_ (##fxquotient _%size93492%_ '2)) - (_%start93498%_ + (lambda (_%tab94580%_ _%key94581%_ _%default94582%_) + (let ((_%table94584%_ (&raw-table-table _%tab94580%_)) + (_%seed94585%_ (&raw-table-seed _%tab94580%_))) + (let* ((_%h94587%_ (fxxor (eq-hash _%key94581%_) _%seed94585%_)) + (_%size94590%_ (vector-length _%table94584%_)) + (_%entries94593%_ (##fxquotient _%size94590%_ '2)) + (_%start94596%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93489%_ _%entries93495%_) + (##fxmodulo _%h94587%_ _%entries94593%_) '1))) - (let _%loop93502%_ ((_%probe93505%_ _%start93498%_) - (_%i93507%_ '1) - (_%deleted93509%_ '#f)) - (let ((_%k93512%_ (vector-ref _%table93486%_ _%probe93505%_))) - (if (eq? _%k93512%_ (macro-unused-obj)) - _%default93484%_ - (if (eq? _%k93512%_ (macro-deleted-obj)) - (_%loop93502%_ - (let ((_%next-probe93517%_ - (fx+ _%start93498%_ - _%i93507%_ - (fx* _%i93507%_ _%i93507%_)))) - (##fxmodulo _%next-probe93517%_ _%size93492%_)) - (##fx+ _%i93507%_ '1) - (let ((_%$e93520%_ _%deleted93509%_)) - (if _%$e93520%_ _%$e93520%_ _%probe93505%_))) - (if (eq? _%key93483%_ _%k93512%_) + (let _%loop94600%_ ((_%probe94603%_ _%start94596%_) + (_%i94605%_ '1) + (_%deleted94607%_ '#f)) + (let ((_%k94610%_ (vector-ref _%table94584%_ _%probe94603%_))) + (if (eq? _%k94610%_ (macro-unused-obj)) + _%default94582%_ + (if (eq? _%k94610%_ (macro-deleted-obj)) + (_%loop94600%_ + (let ((_%next-probe94615%_ + (fx+ _%start94596%_ + _%i94605%_ + (fx* _%i94605%_ _%i94605%_)))) + (##fxmodulo _%next-probe94615%_ _%size94590%_)) + (##fx+ _%i94605%_ '1) + (let ((_%$e94618%_ _%deleted94607%_)) + (if _%$e94618%_ _%$e94618%_ _%probe94603%_))) + (if (eq? _%key94581%_ _%k94610%_) (vector-ref - _%table93486%_ - (##fx+ _%probe93505%_ '1)) - (_%loop93502%_ - (let ((_%next-probe93525%_ - (fx+ _%start93498%_ - _%i93507%_ - (fx* _%i93507%_ _%i93507%_)))) - (##fxmodulo _%next-probe93525%_ _%size93492%_)) - (##fx+ _%i93507%_ '1) - _%deleted93509%_)))))))))) + _%table94584%_ + (##fx+ _%probe94603%_ '1)) + (_%loop94600%_ + (let ((_%next-probe94623%_ + (fx+ _%start94596%_ + _%i94605%_ + (fx* _%i94605%_ _%i94605%_)))) + (##fxmodulo _%next-probe94623%_ _%size94590%_)) + (##fx+ _%i94605%_ '1) + _%deleted94607%_)))))))))) (define eq-table-set! - (lambda (_%tab93478%_ _%key93479%_ _%value93480%_) - (if (##fx< (&raw-table-free _%tab93478%_) + (lambda (_%tab94576%_ _%key94577%_ _%value94578%_) + (if (##fx< (&raw-table-free _%tab94576%_) (##fxquotient - (vector-length (&raw-table-table _%tab93478%_)) + (vector-length (&raw-table-table _%tab94576%_)) '4)) - (__raw-table-rehash! _%tab93478%_) + (__raw-table-rehash! _%tab94576%_) '#!void) - (__eq-table-set! _%tab93478%_ _%key93479%_ _%value93480%_))) + (__eq-table-set! _%tab94576%_ _%key94577%_ _%value94578%_))) (define __eq-table-set! - (lambda (_%tab93429%_ _%key93430%_ _%value93431%_) - (let ((_%table93434%_ (&raw-table-table _%tab93429%_)) - (_%seed93435%_ (&raw-table-seed _%tab93429%_))) - (let* ((_%h93437%_ (fxxor (eq-hash _%key93430%_) _%seed93435%_)) - (_%size93440%_ (vector-length _%table93434%_)) - (_%entries93443%_ (##fxquotient _%size93440%_ '2)) - (_%start93446%_ + (lambda (_%tab94527%_ _%key94528%_ _%value94529%_) + (let ((_%table94532%_ (&raw-table-table _%tab94527%_)) + (_%seed94533%_ (&raw-table-seed _%tab94527%_))) + (let* ((_%h94535%_ (fxxor (eq-hash _%key94528%_) _%seed94533%_)) + (_%size94538%_ (vector-length _%table94532%_)) + (_%entries94541%_ (##fxquotient _%size94538%_ '2)) + (_%start94544%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93437%_ _%entries93443%_) + (##fxmodulo _%h94535%_ _%entries94541%_) '1))) - (let _%loop93450%_ ((_%probe93453%_ _%start93446%_) - (_%i93455%_ '1) - (_%deleted93457%_ '#f)) - (let ((_%k93460%_ (vector-ref _%table93434%_ _%probe93453%_))) - (if (eq? _%k93460%_ (macro-unused-obj)) - (if _%deleted93457%_ + (let _%loop94548%_ ((_%probe94551%_ _%start94544%_) + (_%i94553%_ '1) + (_%deleted94555%_ '#f)) + (let ((_%k94558%_ (vector-ref _%table94532%_ _%probe94551%_))) + (if (eq? _%k94558%_ (macro-unused-obj)) + (if _%deleted94555%_ (begin (vector-set! - _%table93434%_ - _%deleted93457%_ - _%key93430%_) + _%table94532%_ + _%deleted94555%_ + _%key94528%_) (vector-set! - _%table93434%_ - (##fx+ _%deleted93457%_ '1) - _%value93431%_) + _%table94532%_ + (##fx+ _%deleted94555%_ '1) + _%value94529%_) ((lambda () (&raw-table-count-set! - _%tab93429%_ - (##fx+ (&raw-table-count _%tab93429%_) '1))))) + _%tab94527%_ + (##fx+ (&raw-table-count _%tab94527%_) '1))))) (begin (vector-set! - _%table93434%_ - _%probe93453%_ - _%key93430%_) + _%table94532%_ + _%probe94551%_ + _%key94528%_) (vector-set! - _%table93434%_ - (##fx+ _%probe93453%_ '1) - _%value93431%_) + _%table94532%_ + (##fx+ _%probe94551%_ '1) + _%value94529%_) ((lambda () (&raw-table-free-set! - _%tab93429%_ - (##fx- (&raw-table-free _%tab93429%_) '1)) + _%tab94527%_ + (##fx- (&raw-table-free _%tab94527%_) '1)) (&raw-table-count-set! - _%tab93429%_ - (##fx+ (&raw-table-count _%tab93429%_) '1)))))) - (if (eq? _%k93460%_ (macro-deleted-obj)) - (_%loop93450%_ - (let ((_%next-probe93467%_ - (fx+ _%start93446%_ - _%i93455%_ - (fx* _%i93455%_ _%i93455%_)))) - (##fxmodulo _%next-probe93467%_ _%size93440%_)) - (##fx+ _%i93455%_ '1) - (let ((_%$e93470%_ _%deleted93457%_)) - (if _%$e93470%_ _%$e93470%_ _%probe93453%_))) - (if (eq? _%key93430%_ _%k93460%_) + _%tab94527%_ + (##fx+ (&raw-table-count _%tab94527%_) '1)))))) + (if (eq? _%k94558%_ (macro-deleted-obj)) + (_%loop94548%_ + (let ((_%next-probe94565%_ + (fx+ _%start94544%_ + _%i94553%_ + (fx* _%i94553%_ _%i94553%_)))) + (##fxmodulo _%next-probe94565%_ _%size94538%_)) + (##fx+ _%i94553%_ '1) + (let ((_%$e94568%_ _%deleted94555%_)) + (if _%$e94568%_ _%$e94568%_ _%probe94551%_))) + (if (eq? _%key94528%_ _%k94558%_) (let () (vector-set! - _%table93434%_ - _%probe93453%_ - _%key93430%_) + _%table94532%_ + _%probe94551%_ + _%key94528%_) (vector-set! - _%table93434%_ - (##fx+ _%probe93453%_ '1) - _%value93431%_)) - (_%loop93450%_ - (let ((_%next-probe93475%_ - (fx+ _%start93446%_ - _%i93455%_ - (fx* _%i93455%_ _%i93455%_)))) - (##fxmodulo _%next-probe93475%_ _%size93440%_)) - (##fx+ _%i93455%_ '1) - _%deleted93457%_)))))))))) + _%table94532%_ + (##fx+ _%probe94551%_ '1) + _%value94529%_)) + (_%loop94548%_ + (let ((_%next-probe94573%_ + (fx+ _%start94544%_ + _%i94553%_ + (fx* _%i94553%_ _%i94553%_)))) + (##fxmodulo _%next-probe94573%_ _%size94538%_)) + (##fx+ _%i94553%_ '1) + _%deleted94555%_)))))))))) (define eq-table-update! - (lambda (_%tab93424%_ - _%key93425%_ - _%eq-table-update!93426%_ - _%default93427%_) - (if (##fx< (&raw-table-free _%tab93424%_) + (lambda (_%tab94522%_ + _%key94523%_ + _%eq-table-update!94524%_ + _%default94525%_) + (if (##fx< (&raw-table-free _%tab94522%_) (##fxquotient - (vector-length (&raw-table-table _%tab93424%_)) + (vector-length (&raw-table-table _%tab94522%_)) '4)) - (__raw-table-rehash! _%tab93424%_) + (__raw-table-rehash! _%tab94522%_) '#!void) (__eq-table-update! - _%tab93424%_ - _%key93425%_ - _%eq-table-update!93426%_ - _%default93427%_))) + _%tab94522%_ + _%key94523%_ + _%eq-table-update!94524%_ + _%default94525%_))) (define __eq-table-update! - (lambda (_%tab93374%_ - _%key93375%_ - _%eq-table-update!93376%_ - _%default93377%_) - (let ((_%table93380%_ (&raw-table-table _%tab93374%_)) - (_%seed93381%_ (&raw-table-seed _%tab93374%_))) - (let* ((_%h93383%_ (fxxor (eq-hash _%key93375%_) _%seed93381%_)) - (_%size93386%_ (vector-length _%table93380%_)) - (_%entries93389%_ (##fxquotient _%size93386%_ '2)) - (_%start93392%_ + (lambda (_%tab94472%_ + _%key94473%_ + _%eq-table-update!94474%_ + _%default94475%_) + (let ((_%table94478%_ (&raw-table-table _%tab94472%_)) + (_%seed94479%_ (&raw-table-seed _%tab94472%_))) + (let* ((_%h94481%_ (fxxor (eq-hash _%key94473%_) _%seed94479%_)) + (_%size94484%_ (vector-length _%table94478%_)) + (_%entries94487%_ (##fxquotient _%size94484%_ '2)) + (_%start94490%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93383%_ _%entries93389%_) + (##fxmodulo _%h94481%_ _%entries94487%_) '1))) - (let _%loop93396%_ ((_%probe93399%_ _%start93392%_) - (_%i93401%_ '1) - (_%deleted93403%_ '#f)) - (let ((_%k93406%_ (vector-ref _%table93380%_ _%probe93399%_))) - (if (eq? _%k93406%_ (macro-unused-obj)) - (if _%deleted93403%_ + (let _%loop94494%_ ((_%probe94497%_ _%start94490%_) + (_%i94499%_ '1) + (_%deleted94501%_ '#f)) + (let ((_%k94504%_ (vector-ref _%table94478%_ _%probe94497%_))) + (if (eq? _%k94504%_ (macro-unused-obj)) + (if _%deleted94501%_ (begin (vector-set! - _%table93380%_ - _%deleted93403%_ - _%key93375%_) + _%table94478%_ + _%deleted94501%_ + _%key94473%_) (vector-set! - _%table93380%_ - (##fx+ _%deleted93403%_ '1) - (_%eq-table-update!93376%_ _%default93377%_)) + _%table94478%_ + (##fx+ _%deleted94501%_ '1) + (_%eq-table-update!94474%_ _%default94475%_)) ((lambda () (&raw-table-count-set! - _%tab93374%_ - (##fx+ (&raw-table-count _%tab93374%_) '1))))) + _%tab94472%_ + (##fx+ (&raw-table-count _%tab94472%_) '1))))) (begin (vector-set! - _%table93380%_ - _%probe93399%_ - _%key93375%_) + _%table94478%_ + _%probe94497%_ + _%key94473%_) (vector-set! - _%table93380%_ - (##fx+ _%probe93399%_ '1) - (_%eq-table-update!93376%_ _%default93377%_)) + _%table94478%_ + (##fx+ _%probe94497%_ '1) + (_%eq-table-update!94474%_ _%default94475%_)) ((lambda () (&raw-table-free-set! - _%tab93374%_ - (##fx- (&raw-table-free _%tab93374%_) '1)) + _%tab94472%_ + (##fx- (&raw-table-free _%tab94472%_) '1)) (&raw-table-count-set! - _%tab93374%_ - (##fx+ (&raw-table-count _%tab93374%_) '1)))))) - (if (eq? _%k93406%_ (macro-deleted-obj)) - (_%loop93396%_ - (let ((_%next-probe93413%_ - (fx+ _%start93392%_ - _%i93401%_ - (fx* _%i93401%_ _%i93401%_)))) - (##fxmodulo _%next-probe93413%_ _%size93386%_)) - (##fx+ _%i93401%_ '1) - (let ((_%$e93416%_ _%deleted93403%_)) - (if _%$e93416%_ _%$e93416%_ _%probe93399%_))) - (if (eq? _%key93375%_ _%k93406%_) + _%tab94472%_ + (##fx+ (&raw-table-count _%tab94472%_) '1)))))) + (if (eq? _%k94504%_ (macro-deleted-obj)) + (_%loop94494%_ + (let ((_%next-probe94511%_ + (fx+ _%start94490%_ + _%i94499%_ + (fx* _%i94499%_ _%i94499%_)))) + (##fxmodulo _%next-probe94511%_ _%size94484%_)) + (##fx+ _%i94499%_ '1) + (let ((_%$e94514%_ _%deleted94501%_)) + (if _%$e94514%_ _%$e94514%_ _%probe94497%_))) + (if (eq? _%key94473%_ _%k94504%_) (let () (vector-set! - _%table93380%_ - _%probe93399%_ - _%key93375%_) + _%table94478%_ + _%probe94497%_ + _%key94473%_) (vector-set! - _%table93380%_ - (##fx+ _%probe93399%_ '1) - (_%eq-table-update!93376%_ + _%table94478%_ + (##fx+ _%probe94497%_ '1) + (_%eq-table-update!94474%_ (vector-ref - _%table93380%_ - (##fx+ _%probe93399%_ '1))))) - (_%loop93396%_ - (let ((_%next-probe93421%_ - (fx+ _%start93392%_ - _%i93401%_ - (fx* _%i93401%_ _%i93401%_)))) - (##fxmodulo _%next-probe93421%_ _%size93386%_)) - (##fx+ _%i93401%_ '1) - _%deleted93403%_)))))))))) + _%table94478%_ + (##fx+ _%probe94497%_ '1))))) + (_%loop94494%_ + (let ((_%next-probe94519%_ + (fx+ _%start94490%_ + _%i94499%_ + (fx* _%i94499%_ _%i94499%_)))) + (##fxmodulo _%next-probe94519%_ _%size94484%_)) + (##fx+ _%i94499%_ '1) + _%deleted94501%_)))))))))) (define eq-table-delete! - (lambda (_%tab93329%_ _%key93331%_) - (let ((_%table93334%_ (&raw-table-table _%tab93329%_)) - (_%seed93336%_ (&raw-table-seed _%tab93329%_))) - (let* ((_%h93339%_ (fxxor (eq-hash _%key93331%_) _%seed93336%_)) - (_%size93342%_ (vector-length _%table93334%_)) - (_%entries93345%_ (##fxquotient _%size93342%_ '2)) - (_%start93348%_ + (lambda (_%tab94427%_ _%key94429%_) + (let ((_%table94432%_ (&raw-table-table _%tab94427%_)) + (_%seed94434%_ (&raw-table-seed _%tab94427%_))) + (let* ((_%h94437%_ (fxxor (eq-hash _%key94429%_) _%seed94434%_)) + (_%size94440%_ (vector-length _%table94432%_)) + (_%entries94443%_ (##fxquotient _%size94440%_ '2)) + (_%start94446%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93339%_ _%entries93345%_) + (##fxmodulo _%h94437%_ _%entries94443%_) '1))) - (let _%loop93352%_ ((_%probe93355%_ _%start93348%_) - (_%i93357%_ '1)) - (let ((_%k93360%_ (vector-ref _%table93334%_ _%probe93355%_))) - (if (eq? _%k93360%_ (macro-unused-obj)) + (let _%loop94450%_ ((_%probe94453%_ _%start94446%_) + (_%i94455%_ '1)) + (let ((_%k94458%_ (vector-ref _%table94432%_ _%probe94453%_))) + (if (eq? _%k94458%_ (macro-unused-obj)) '#!void - (if (eq? _%k93360%_ (macro-deleted-obj)) - (_%loop93352%_ - (let ((_%next-probe93365%_ - (fx+ _%start93348%_ - _%i93357%_ - (fx* _%i93357%_ _%i93357%_)))) - (##fxmodulo _%next-probe93365%_ _%size93342%_)) - (##fx+ _%i93357%_ '1)) - (if (eq? _%key93331%_ _%k93360%_) + (if (eq? _%k94458%_ (macro-deleted-obj)) + (_%loop94450%_ + (let ((_%next-probe94463%_ + (fx+ _%start94446%_ + _%i94455%_ + (fx* _%i94455%_ _%i94455%_)))) + (##fxmodulo _%next-probe94463%_ _%size94440%_)) + (##fx+ _%i94455%_ '1)) + (if (eq? _%key94429%_ _%k94458%_) (let () (vector-set! - _%table93334%_ - _%probe93355%_ + _%table94432%_ + _%probe94453%_ (macro-deleted-obj)) (vector-set! - _%table93334%_ - (##fx+ _%probe93355%_ '1) + _%table94432%_ + (##fx+ _%probe94453%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab93329%_ - (##fx- (&raw-table-count _%tab93329%_) + _%tab94427%_ + (##fx- (&raw-table-count _%tab94427%_) '1))))) - (_%loop93352%_ - (let ((_%next-probe93371%_ - (fx+ _%start93348%_ - _%i93357%_ - (fx* _%i93357%_ _%i93357%_)))) - (##fxmodulo _%next-probe93371%_ _%size93342%_)) - (##fx+ _%i93357%_ '1))))))))))) + (_%loop94450%_ + (let ((_%next-probe94469%_ + (fx+ _%start94446%_ + _%i94455%_ + (fx* _%i94455%_ _%i94455%_)))) + (##fxmodulo _%next-probe94469%_ _%size94440%_)) + (##fx+ _%i94455%_ '1))))))))))) (define make-eqv-table__% - (lambda (_%size-hint93310%_ _%seed93312%_) - (make-raw-table__% _%size-hint93310%_ eqv-hash eqv? _%seed93312%_))) + (lambda (_%size-hint94408%_ _%seed94410%_) + (make-raw-table__% _%size-hint94408%_ eqv-hash eqv? _%seed94410%_))) (define make-eqv-table__0 (lambda () - (let* ((_%size-hint93318%_ '#f) (_%seed93320%_ '0)) - (make-eqv-table__% _%size-hint93318%_ _%seed93320%_)))) + (let* ((_%size-hint94416%_ '#f) (_%seed94418%_ '0)) + (make-eqv-table__% _%size-hint94416%_ _%seed94418%_)))) (define make-eqv-table__1 - (lambda (_%size-hint93322%_) - (let ((_%seed93324%_ '0)) - (make-eqv-table__% _%size-hint93322%_ _%seed93324%_)))) + (lambda (_%size-hint94420%_) + (let ((_%seed94422%_ '0)) + (make-eqv-table__% _%size-hint94420%_ _%seed94422%_)))) (define make-eqv-table - (lambda _g93887_ - (let ((_g93886_ (##length _g93887_))) - (cond ((##fx= _g93886_ 0) (apply make-eqv-table__0 _g93887_)) - ((##fx= _g93886_ 1) (apply make-eqv-table__1 _g93887_)) - ((##fx= _g93886_ 2) (apply make-eqv-table__% _g93887_)) + (lambda _g94985_ + (let ((_g94984_ (##length _g94985_))) + (cond ((##fx= _g94984_ 0) (apply make-eqv-table__0 _g94985_)) + ((##fx= _g94984_ 1) (apply make-eqv-table__1 _g94985_)) + ((##fx= _g94984_ 2) (apply make-eqv-table__% _g94985_)) (else (##raise-wrong-number-of-arguments-exception make-eqv-table - _g93887_)))))) + _g94985_)))))) (define eqv-table-ref - (lambda (_%tab93263%_ _%key93264%_ _%default93265%_) - (let ((_%table93267%_ (&raw-table-table _%tab93263%_)) - (_%seed93268%_ (&raw-table-seed _%tab93263%_))) - (let* ((_%h93270%_ (fxxor (eqv-hash _%key93264%_) _%seed93268%_)) - (_%size93273%_ (vector-length _%table93267%_)) - (_%entries93276%_ (##fxquotient _%size93273%_ '2)) - (_%start93279%_ + (lambda (_%tab94361%_ _%key94362%_ _%default94363%_) + (let ((_%table94365%_ (&raw-table-table _%tab94361%_)) + (_%seed94366%_ (&raw-table-seed _%tab94361%_))) + (let* ((_%h94368%_ (fxxor (eqv-hash _%key94362%_) _%seed94366%_)) + (_%size94371%_ (vector-length _%table94365%_)) + (_%entries94374%_ (##fxquotient _%size94371%_ '2)) + (_%start94377%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93270%_ _%entries93276%_) + (##fxmodulo _%h94368%_ _%entries94374%_) '1))) - (let _%loop93283%_ ((_%probe93286%_ _%start93279%_) - (_%i93288%_ '1) - (_%deleted93290%_ '#f)) - (let ((_%k93293%_ (vector-ref _%table93267%_ _%probe93286%_))) - (if (eq? _%k93293%_ (macro-unused-obj)) - _%default93265%_ - (if (eq? _%k93293%_ (macro-deleted-obj)) - (_%loop93283%_ - (let ((_%next-probe93298%_ - (fx+ _%start93279%_ - _%i93288%_ - (fx* _%i93288%_ _%i93288%_)))) - (##fxmodulo _%next-probe93298%_ _%size93273%_)) - (##fx+ _%i93288%_ '1) - (let ((_%$e93301%_ _%deleted93290%_)) - (if _%$e93301%_ _%$e93301%_ _%probe93286%_))) - (if (eqv? _%key93264%_ _%k93293%_) + (let _%loop94381%_ ((_%probe94384%_ _%start94377%_) + (_%i94386%_ '1) + (_%deleted94388%_ '#f)) + (let ((_%k94391%_ (vector-ref _%table94365%_ _%probe94384%_))) + (if (eq? _%k94391%_ (macro-unused-obj)) + _%default94363%_ + (if (eq? _%k94391%_ (macro-deleted-obj)) + (_%loop94381%_ + (let ((_%next-probe94396%_ + (fx+ _%start94377%_ + _%i94386%_ + (fx* _%i94386%_ _%i94386%_)))) + (##fxmodulo _%next-probe94396%_ _%size94371%_)) + (##fx+ _%i94386%_ '1) + (let ((_%$e94399%_ _%deleted94388%_)) + (if _%$e94399%_ _%$e94399%_ _%probe94384%_))) + (if (eqv? _%key94362%_ _%k94391%_) (vector-ref - _%table93267%_ - (##fx+ _%probe93286%_ '1)) - (_%loop93283%_ - (let ((_%next-probe93306%_ - (fx+ _%start93279%_ - _%i93288%_ - (fx* _%i93288%_ _%i93288%_)))) - (##fxmodulo _%next-probe93306%_ _%size93273%_)) - (##fx+ _%i93288%_ '1) - _%deleted93290%_)))))))))) + _%table94365%_ + (##fx+ _%probe94384%_ '1)) + (_%loop94381%_ + (let ((_%next-probe94404%_ + (fx+ _%start94377%_ + _%i94386%_ + (fx* _%i94386%_ _%i94386%_)))) + (##fxmodulo _%next-probe94404%_ _%size94371%_)) + (##fx+ _%i94386%_ '1) + _%deleted94388%_)))))))))) (define eqv-table-set! - (lambda (_%tab93259%_ _%key93260%_ _%value93261%_) - (if (##fx< (&raw-table-free _%tab93259%_) + (lambda (_%tab94357%_ _%key94358%_ _%value94359%_) + (if (##fx< (&raw-table-free _%tab94357%_) (##fxquotient - (vector-length (&raw-table-table _%tab93259%_)) + (vector-length (&raw-table-table _%tab94357%_)) '4)) - (__raw-table-rehash! _%tab93259%_) + (__raw-table-rehash! _%tab94357%_) '#!void) - (__eqv-table-set! _%tab93259%_ _%key93260%_ _%value93261%_))) + (__eqv-table-set! _%tab94357%_ _%key94358%_ _%value94359%_))) (define __eqv-table-set! - (lambda (_%tab93210%_ _%key93211%_ _%value93212%_) - (let ((_%table93215%_ (&raw-table-table _%tab93210%_)) - (_%seed93216%_ (&raw-table-seed _%tab93210%_))) - (let* ((_%h93218%_ (fxxor (eqv-hash _%key93211%_) _%seed93216%_)) - (_%size93221%_ (vector-length _%table93215%_)) - (_%entries93224%_ (##fxquotient _%size93221%_ '2)) - (_%start93227%_ + (lambda (_%tab94308%_ _%key94309%_ _%value94310%_) + (let ((_%table94313%_ (&raw-table-table _%tab94308%_)) + (_%seed94314%_ (&raw-table-seed _%tab94308%_))) + (let* ((_%h94316%_ (fxxor (eqv-hash _%key94309%_) _%seed94314%_)) + (_%size94319%_ (vector-length _%table94313%_)) + (_%entries94322%_ (##fxquotient _%size94319%_ '2)) + (_%start94325%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93218%_ _%entries93224%_) + (##fxmodulo _%h94316%_ _%entries94322%_) '1))) - (let _%loop93231%_ ((_%probe93234%_ _%start93227%_) - (_%i93236%_ '1) - (_%deleted93238%_ '#f)) - (let ((_%k93241%_ (vector-ref _%table93215%_ _%probe93234%_))) - (if (eq? _%k93241%_ (macro-unused-obj)) - (if _%deleted93238%_ + (let _%loop94329%_ ((_%probe94332%_ _%start94325%_) + (_%i94334%_ '1) + (_%deleted94336%_ '#f)) + (let ((_%k94339%_ (vector-ref _%table94313%_ _%probe94332%_))) + (if (eq? _%k94339%_ (macro-unused-obj)) + (if _%deleted94336%_ (begin (vector-set! - _%table93215%_ - _%deleted93238%_ - _%key93211%_) + _%table94313%_ + _%deleted94336%_ + _%key94309%_) (vector-set! - _%table93215%_ - (##fx+ _%deleted93238%_ '1) - _%value93212%_) + _%table94313%_ + (##fx+ _%deleted94336%_ '1) + _%value94310%_) ((lambda () (&raw-table-count-set! - _%tab93210%_ - (##fx+ (&raw-table-count _%tab93210%_) '1))))) + _%tab94308%_ + (##fx+ (&raw-table-count _%tab94308%_) '1))))) (begin (vector-set! - _%table93215%_ - _%probe93234%_ - _%key93211%_) + _%table94313%_ + _%probe94332%_ + _%key94309%_) (vector-set! - _%table93215%_ - (##fx+ _%probe93234%_ '1) - _%value93212%_) + _%table94313%_ + (##fx+ _%probe94332%_ '1) + _%value94310%_) ((lambda () (&raw-table-free-set! - _%tab93210%_ - (##fx- (&raw-table-free _%tab93210%_) '1)) + _%tab94308%_ + (##fx- (&raw-table-free _%tab94308%_) '1)) (&raw-table-count-set! - _%tab93210%_ - (##fx+ (&raw-table-count _%tab93210%_) '1)))))) - (if (eq? _%k93241%_ (macro-deleted-obj)) - (_%loop93231%_ - (let ((_%next-probe93248%_ - (fx+ _%start93227%_ - _%i93236%_ - (fx* _%i93236%_ _%i93236%_)))) - (##fxmodulo _%next-probe93248%_ _%size93221%_)) - (##fx+ _%i93236%_ '1) - (let ((_%$e93251%_ _%deleted93238%_)) - (if _%$e93251%_ _%$e93251%_ _%probe93234%_))) - (if (eqv? _%key93211%_ _%k93241%_) + _%tab94308%_ + (##fx+ (&raw-table-count _%tab94308%_) '1)))))) + (if (eq? _%k94339%_ (macro-deleted-obj)) + (_%loop94329%_ + (let ((_%next-probe94346%_ + (fx+ _%start94325%_ + _%i94334%_ + (fx* _%i94334%_ _%i94334%_)))) + (##fxmodulo _%next-probe94346%_ _%size94319%_)) + (##fx+ _%i94334%_ '1) + (let ((_%$e94349%_ _%deleted94336%_)) + (if _%$e94349%_ _%$e94349%_ _%probe94332%_))) + (if (eqv? _%key94309%_ _%k94339%_) (let () (vector-set! - _%table93215%_ - _%probe93234%_ - _%key93211%_) + _%table94313%_ + _%probe94332%_ + _%key94309%_) (vector-set! - _%table93215%_ - (##fx+ _%probe93234%_ '1) - _%value93212%_)) - (_%loop93231%_ - (let ((_%next-probe93256%_ - (fx+ _%start93227%_ - _%i93236%_ - (fx* _%i93236%_ _%i93236%_)))) - (##fxmodulo _%next-probe93256%_ _%size93221%_)) - (##fx+ _%i93236%_ '1) - _%deleted93238%_)))))))))) + _%table94313%_ + (##fx+ _%probe94332%_ '1) + _%value94310%_)) + (_%loop94329%_ + (let ((_%next-probe94354%_ + (fx+ _%start94325%_ + _%i94334%_ + (fx* _%i94334%_ _%i94334%_)))) + (##fxmodulo _%next-probe94354%_ _%size94319%_)) + (##fx+ _%i94334%_ '1) + _%deleted94336%_)))))))))) (define eqv-table-update! - (lambda (_%tab93205%_ - _%key93206%_ - _%eqv-table-update!93207%_ - _%default93208%_) - (if (##fx< (&raw-table-free _%tab93205%_) + (lambda (_%tab94303%_ + _%key94304%_ + _%eqv-table-update!94305%_ + _%default94306%_) + (if (##fx< (&raw-table-free _%tab94303%_) (##fxquotient - (vector-length (&raw-table-table _%tab93205%_)) + (vector-length (&raw-table-table _%tab94303%_)) '4)) - (__raw-table-rehash! _%tab93205%_) + (__raw-table-rehash! _%tab94303%_) '#!void) (__eqv-table-update! - _%tab93205%_ - _%key93206%_ - _%eqv-table-update!93207%_ - _%default93208%_))) + _%tab94303%_ + _%key94304%_ + _%eqv-table-update!94305%_ + _%default94306%_))) (define __eqv-table-update! - (lambda (_%tab93155%_ - _%key93156%_ - _%eqv-table-update!93157%_ - _%default93158%_) - (let ((_%table93161%_ (&raw-table-table _%tab93155%_)) - (_%seed93162%_ (&raw-table-seed _%tab93155%_))) - (let* ((_%h93164%_ (fxxor (eqv-hash _%key93156%_) _%seed93162%_)) - (_%size93167%_ (vector-length _%table93161%_)) - (_%entries93170%_ (##fxquotient _%size93167%_ '2)) - (_%start93173%_ + (lambda (_%tab94253%_ + _%key94254%_ + _%eqv-table-update!94255%_ + _%default94256%_) + (let ((_%table94259%_ (&raw-table-table _%tab94253%_)) + (_%seed94260%_ (&raw-table-seed _%tab94253%_))) + (let* ((_%h94262%_ (fxxor (eqv-hash _%key94254%_) _%seed94260%_)) + (_%size94265%_ (vector-length _%table94259%_)) + (_%entries94268%_ (##fxquotient _%size94265%_ '2)) + (_%start94271%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93164%_ _%entries93170%_) + (##fxmodulo _%h94262%_ _%entries94268%_) '1))) - (let _%loop93177%_ ((_%probe93180%_ _%start93173%_) - (_%i93182%_ '1) - (_%deleted93184%_ '#f)) - (let ((_%k93187%_ (vector-ref _%table93161%_ _%probe93180%_))) - (if (eq? _%k93187%_ (macro-unused-obj)) - (if _%deleted93184%_ + (let _%loop94275%_ ((_%probe94278%_ _%start94271%_) + (_%i94280%_ '1) + (_%deleted94282%_ '#f)) + (let ((_%k94285%_ (vector-ref _%table94259%_ _%probe94278%_))) + (if (eq? _%k94285%_ (macro-unused-obj)) + (if _%deleted94282%_ (begin (vector-set! - _%table93161%_ - _%deleted93184%_ - _%key93156%_) + _%table94259%_ + _%deleted94282%_ + _%key94254%_) (vector-set! - _%table93161%_ - (##fx+ _%deleted93184%_ '1) - (_%eqv-table-update!93157%_ _%default93158%_)) + _%table94259%_ + (##fx+ _%deleted94282%_ '1) + (_%eqv-table-update!94255%_ _%default94256%_)) ((lambda () (&raw-table-count-set! - _%tab93155%_ - (##fx+ (&raw-table-count _%tab93155%_) '1))))) + _%tab94253%_ + (##fx+ (&raw-table-count _%tab94253%_) '1))))) (begin (vector-set! - _%table93161%_ - _%probe93180%_ - _%key93156%_) + _%table94259%_ + _%probe94278%_ + _%key94254%_) (vector-set! - _%table93161%_ - (##fx+ _%probe93180%_ '1) - (_%eqv-table-update!93157%_ _%default93158%_)) + _%table94259%_ + (##fx+ _%probe94278%_ '1) + (_%eqv-table-update!94255%_ _%default94256%_)) ((lambda () (&raw-table-free-set! - _%tab93155%_ - (##fx- (&raw-table-free _%tab93155%_) '1)) + _%tab94253%_ + (##fx- (&raw-table-free _%tab94253%_) '1)) (&raw-table-count-set! - _%tab93155%_ - (##fx+ (&raw-table-count _%tab93155%_) '1)))))) - (if (eq? _%k93187%_ (macro-deleted-obj)) - (_%loop93177%_ - (let ((_%next-probe93194%_ - (fx+ _%start93173%_ - _%i93182%_ - (fx* _%i93182%_ _%i93182%_)))) - (##fxmodulo _%next-probe93194%_ _%size93167%_)) - (##fx+ _%i93182%_ '1) - (let ((_%$e93197%_ _%deleted93184%_)) - (if _%$e93197%_ _%$e93197%_ _%probe93180%_))) - (if (eqv? _%key93156%_ _%k93187%_) + _%tab94253%_ + (##fx+ (&raw-table-count _%tab94253%_) '1)))))) + (if (eq? _%k94285%_ (macro-deleted-obj)) + (_%loop94275%_ + (let ((_%next-probe94292%_ + (fx+ _%start94271%_ + _%i94280%_ + (fx* _%i94280%_ _%i94280%_)))) + (##fxmodulo _%next-probe94292%_ _%size94265%_)) + (##fx+ _%i94280%_ '1) + (let ((_%$e94295%_ _%deleted94282%_)) + (if _%$e94295%_ _%$e94295%_ _%probe94278%_))) + (if (eqv? _%key94254%_ _%k94285%_) (let () (vector-set! - _%table93161%_ - _%probe93180%_ - _%key93156%_) + _%table94259%_ + _%probe94278%_ + _%key94254%_) (vector-set! - _%table93161%_ - (##fx+ _%probe93180%_ '1) - (_%eqv-table-update!93157%_ + _%table94259%_ + (##fx+ _%probe94278%_ '1) + (_%eqv-table-update!94255%_ (vector-ref - _%table93161%_ - (##fx+ _%probe93180%_ '1))))) - (_%loop93177%_ - (let ((_%next-probe93202%_ - (fx+ _%start93173%_ - _%i93182%_ - (fx* _%i93182%_ _%i93182%_)))) - (##fxmodulo _%next-probe93202%_ _%size93167%_)) - (##fx+ _%i93182%_ '1) - _%deleted93184%_)))))))))) + _%table94259%_ + (##fx+ _%probe94278%_ '1))))) + (_%loop94275%_ + (let ((_%next-probe94300%_ + (fx+ _%start94271%_ + _%i94280%_ + (fx* _%i94280%_ _%i94280%_)))) + (##fxmodulo _%next-probe94300%_ _%size94265%_)) + (##fx+ _%i94280%_ '1) + _%deleted94282%_)))))))))) (define eqv-table-delete! - (lambda (_%tab93110%_ _%key93112%_) - (let ((_%table93115%_ (&raw-table-table _%tab93110%_)) - (_%seed93117%_ (&raw-table-seed _%tab93110%_))) - (let* ((_%h93120%_ (fxxor (eqv-hash _%key93112%_) _%seed93117%_)) - (_%size93123%_ (vector-length _%table93115%_)) - (_%entries93126%_ (##fxquotient _%size93123%_ '2)) - (_%start93129%_ + (lambda (_%tab94208%_ _%key94210%_) + (let ((_%table94213%_ (&raw-table-table _%tab94208%_)) + (_%seed94215%_ (&raw-table-seed _%tab94208%_))) + (let* ((_%h94218%_ (fxxor (eqv-hash _%key94210%_) _%seed94215%_)) + (_%size94221%_ (vector-length _%table94213%_)) + (_%entries94224%_ (##fxquotient _%size94221%_ '2)) + (_%start94227%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93120%_ _%entries93126%_) + (##fxmodulo _%h94218%_ _%entries94224%_) '1))) - (let _%loop93133%_ ((_%probe93136%_ _%start93129%_) - (_%i93138%_ '1)) - (let ((_%k93141%_ (vector-ref _%table93115%_ _%probe93136%_))) - (if (eq? _%k93141%_ (macro-unused-obj)) + (let _%loop94231%_ ((_%probe94234%_ _%start94227%_) + (_%i94236%_ '1)) + (let ((_%k94239%_ (vector-ref _%table94213%_ _%probe94234%_))) + (if (eq? _%k94239%_ (macro-unused-obj)) '#!void - (if (eq? _%k93141%_ (macro-deleted-obj)) - (_%loop93133%_ - (let ((_%next-probe93146%_ - (fx+ _%start93129%_ - _%i93138%_ - (fx* _%i93138%_ _%i93138%_)))) - (##fxmodulo _%next-probe93146%_ _%size93123%_)) - (##fx+ _%i93138%_ '1)) - (if (eqv? _%key93112%_ _%k93141%_) + (if (eq? _%k94239%_ (macro-deleted-obj)) + (_%loop94231%_ + (let ((_%next-probe94244%_ + (fx+ _%start94227%_ + _%i94236%_ + (fx* _%i94236%_ _%i94236%_)))) + (##fxmodulo _%next-probe94244%_ _%size94221%_)) + (##fx+ _%i94236%_ '1)) + (if (eqv? _%key94210%_ _%k94239%_) (let () (vector-set! - _%table93115%_ - _%probe93136%_ + _%table94213%_ + _%probe94234%_ (macro-deleted-obj)) (vector-set! - _%table93115%_ - (##fx+ _%probe93136%_ '1) + _%table94213%_ + (##fx+ _%probe94234%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab93110%_ - (##fx- (&raw-table-count _%tab93110%_) + _%tab94208%_ + (##fx- (&raw-table-count _%tab94208%_) '1))))) - (_%loop93133%_ - (let ((_%next-probe93152%_ - (fx+ _%start93129%_ - _%i93138%_ - (fx* _%i93138%_ _%i93138%_)))) - (##fxmodulo _%next-probe93152%_ _%size93123%_)) - (##fx+ _%i93138%_ '1))))))))))) + (_%loop94231%_ + (let ((_%next-probe94250%_ + (fx+ _%start94227%_ + _%i94236%_ + (fx* _%i94236%_ _%i94236%_)))) + (##fxmodulo _%next-probe94250%_ _%size94221%_)) + (##fx+ _%i94236%_ '1))))))))))) (define make-symbolic-table__% - (lambda (_%size-hint93091%_ _%seed93093%_) + (lambda (_%size-hint94189%_ _%seed94191%_) (make-raw-table__% - _%size-hint93091%_ + _%size-hint94189%_ symbolic-hash eq? - _%seed93093%_))) + _%seed94191%_))) (define make-symbolic-table__0 (lambda () - (let* ((_%size-hint93099%_ '#f) (_%seed93101%_ '0)) - (make-symbolic-table__% _%size-hint93099%_ _%seed93101%_)))) + (let* ((_%size-hint94197%_ '#f) (_%seed94199%_ '0)) + (make-symbolic-table__% _%size-hint94197%_ _%seed94199%_)))) (define make-symbolic-table__1 - (lambda (_%size-hint93103%_) - (let ((_%seed93105%_ '0)) - (make-symbolic-table__% _%size-hint93103%_ _%seed93105%_)))) + (lambda (_%size-hint94201%_) + (let ((_%seed94203%_ '0)) + (make-symbolic-table__% _%size-hint94201%_ _%seed94203%_)))) (define make-symbolic-table - (lambda _g93889_ - (let ((_g93888_ (##length _g93889_))) - (cond ((##fx= _g93888_ 0) (apply make-symbolic-table__0 _g93889_)) - ((##fx= _g93888_ 1) (apply make-symbolic-table__1 _g93889_)) - ((##fx= _g93888_ 2) (apply make-symbolic-table__% _g93889_)) + (lambda _g94987_ + (let ((_g94986_ (##length _g94987_))) + (cond ((##fx= _g94986_ 0) (apply make-symbolic-table__0 _g94987_)) + ((##fx= _g94986_ 1) (apply make-symbolic-table__1 _g94987_)) + ((##fx= _g94986_ 2) (apply make-symbolic-table__% _g94987_)) (else (##raise-wrong-number-of-arguments-exception make-symbolic-table - _g93889_)))))) + _g94987_)))))) (define symbolic-table-ref - (lambda (_%tab93044%_ _%key93045%_ _%default93046%_) - (let ((_%table93048%_ (&raw-table-table _%tab93044%_)) - (_%seed93049%_ (&raw-table-seed _%tab93044%_))) - (let* ((_%h93051%_ - (fxxor (symbolic-hash _%key93045%_) _%seed93049%_)) - (_%size93054%_ (vector-length _%table93048%_)) - (_%entries93057%_ (##fxquotient _%size93054%_ '2)) - (_%start93060%_ + (lambda (_%tab94142%_ _%key94143%_ _%default94144%_) + (let ((_%table94146%_ (&raw-table-table _%tab94142%_)) + (_%seed94147%_ (&raw-table-seed _%tab94142%_))) + (let* ((_%h94149%_ + (fxxor (symbolic-hash _%key94143%_) _%seed94147%_)) + (_%size94152%_ (vector-length _%table94146%_)) + (_%entries94155%_ (##fxquotient _%size94152%_ '2)) + (_%start94158%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93051%_ _%entries93057%_) + (##fxmodulo _%h94149%_ _%entries94155%_) '1))) - (let _%loop93064%_ ((_%probe93067%_ _%start93060%_) - (_%i93069%_ '1) - (_%deleted93071%_ '#f)) - (let ((_%k93074%_ (vector-ref _%table93048%_ _%probe93067%_))) - (if (eq? _%k93074%_ (macro-unused-obj)) - _%default93046%_ - (if (eq? _%k93074%_ (macro-deleted-obj)) - (_%loop93064%_ - (let ((_%next-probe93079%_ - (fx+ _%start93060%_ - _%i93069%_ - (fx* _%i93069%_ _%i93069%_)))) - (##fxmodulo _%next-probe93079%_ _%size93054%_)) - (##fx+ _%i93069%_ '1) - (let ((_%$e93082%_ _%deleted93071%_)) - (if _%$e93082%_ _%$e93082%_ _%probe93067%_))) - (if (eq? _%key93045%_ _%k93074%_) + (let _%loop94162%_ ((_%probe94165%_ _%start94158%_) + (_%i94167%_ '1) + (_%deleted94169%_ '#f)) + (let ((_%k94172%_ (vector-ref _%table94146%_ _%probe94165%_))) + (if (eq? _%k94172%_ (macro-unused-obj)) + _%default94144%_ + (if (eq? _%k94172%_ (macro-deleted-obj)) + (_%loop94162%_ + (let ((_%next-probe94177%_ + (fx+ _%start94158%_ + _%i94167%_ + (fx* _%i94167%_ _%i94167%_)))) + (##fxmodulo _%next-probe94177%_ _%size94152%_)) + (##fx+ _%i94167%_ '1) + (let ((_%$e94180%_ _%deleted94169%_)) + (if _%$e94180%_ _%$e94180%_ _%probe94165%_))) + (if (eq? _%key94143%_ _%k94172%_) (vector-ref - _%table93048%_ - (##fx+ _%probe93067%_ '1)) - (_%loop93064%_ - (let ((_%next-probe93087%_ - (fx+ _%start93060%_ - _%i93069%_ - (fx* _%i93069%_ _%i93069%_)))) - (##fxmodulo _%next-probe93087%_ _%size93054%_)) - (##fx+ _%i93069%_ '1) - _%deleted93071%_)))))))))) + _%table94146%_ + (##fx+ _%probe94165%_ '1)) + (_%loop94162%_ + (let ((_%next-probe94185%_ + (fx+ _%start94158%_ + _%i94167%_ + (fx* _%i94167%_ _%i94167%_)))) + (##fxmodulo _%next-probe94185%_ _%size94152%_)) + (##fx+ _%i94167%_ '1) + _%deleted94169%_)))))))))) (define symbolic-table-set! - (lambda (_%tab93040%_ _%key93041%_ _%value93042%_) - (if (##fx< (&raw-table-free _%tab93040%_) + (lambda (_%tab94138%_ _%key94139%_ _%value94140%_) + (if (##fx< (&raw-table-free _%tab94138%_) (##fxquotient - (vector-length (&raw-table-table _%tab93040%_)) + (vector-length (&raw-table-table _%tab94138%_)) '4)) - (__raw-table-rehash! _%tab93040%_) + (__raw-table-rehash! _%tab94138%_) '#!void) - (__symbolic-table-set! _%tab93040%_ _%key93041%_ _%value93042%_))) + (__symbolic-table-set! _%tab94138%_ _%key94139%_ _%value94140%_))) (define __symbolic-table-set! - (lambda (_%tab92991%_ _%key92992%_ _%value92993%_) - (let ((_%table92996%_ (&raw-table-table _%tab92991%_)) - (_%seed92997%_ (&raw-table-seed _%tab92991%_))) - (let* ((_%h92999%_ - (fxxor (symbolic-hash _%key92992%_) _%seed92997%_)) - (_%size93002%_ (vector-length _%table92996%_)) - (_%entries93005%_ (##fxquotient _%size93002%_ '2)) - (_%start93008%_ + (lambda (_%tab94089%_ _%key94090%_ _%value94091%_) + (let ((_%table94094%_ (&raw-table-table _%tab94089%_)) + (_%seed94095%_ (&raw-table-seed _%tab94089%_))) + (let* ((_%h94097%_ + (fxxor (symbolic-hash _%key94090%_) _%seed94095%_)) + (_%size94100%_ (vector-length _%table94094%_)) + (_%entries94103%_ (##fxquotient _%size94100%_ '2)) + (_%start94106%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92999%_ _%entries93005%_) + (##fxmodulo _%h94097%_ _%entries94103%_) '1))) - (let _%loop93012%_ ((_%probe93015%_ _%start93008%_) - (_%i93017%_ '1) - (_%deleted93019%_ '#f)) - (let ((_%k93022%_ (vector-ref _%table92996%_ _%probe93015%_))) - (if (eq? _%k93022%_ (macro-unused-obj)) - (if _%deleted93019%_ + (let _%loop94110%_ ((_%probe94113%_ _%start94106%_) + (_%i94115%_ '1) + (_%deleted94117%_ '#f)) + (let ((_%k94120%_ (vector-ref _%table94094%_ _%probe94113%_))) + (if (eq? _%k94120%_ (macro-unused-obj)) + (if _%deleted94117%_ (begin (vector-set! - _%table92996%_ - _%deleted93019%_ - _%key92992%_) + _%table94094%_ + _%deleted94117%_ + _%key94090%_) (vector-set! - _%table92996%_ - (##fx+ _%deleted93019%_ '1) - _%value92993%_) + _%table94094%_ + (##fx+ _%deleted94117%_ '1) + _%value94091%_) ((lambda () (&raw-table-count-set! - _%tab92991%_ - (##fx+ (&raw-table-count _%tab92991%_) '1))))) + _%tab94089%_ + (##fx+ (&raw-table-count _%tab94089%_) '1))))) (begin (vector-set! - _%table92996%_ - _%probe93015%_ - _%key92992%_) + _%table94094%_ + _%probe94113%_ + _%key94090%_) (vector-set! - _%table92996%_ - (##fx+ _%probe93015%_ '1) - _%value92993%_) + _%table94094%_ + (##fx+ _%probe94113%_ '1) + _%value94091%_) ((lambda () (&raw-table-free-set! - _%tab92991%_ - (##fx- (&raw-table-free _%tab92991%_) '1)) + _%tab94089%_ + (##fx- (&raw-table-free _%tab94089%_) '1)) (&raw-table-count-set! - _%tab92991%_ - (##fx+ (&raw-table-count _%tab92991%_) '1)))))) - (if (eq? _%k93022%_ (macro-deleted-obj)) - (_%loop93012%_ - (let ((_%next-probe93029%_ - (fx+ _%start93008%_ - _%i93017%_ - (fx* _%i93017%_ _%i93017%_)))) - (##fxmodulo _%next-probe93029%_ _%size93002%_)) - (##fx+ _%i93017%_ '1) - (let ((_%$e93032%_ _%deleted93019%_)) - (if _%$e93032%_ _%$e93032%_ _%probe93015%_))) - (if (eq? _%key92992%_ _%k93022%_) + _%tab94089%_ + (##fx+ (&raw-table-count _%tab94089%_) '1)))))) + (if (eq? _%k94120%_ (macro-deleted-obj)) + (_%loop94110%_ + (let ((_%next-probe94127%_ + (fx+ _%start94106%_ + _%i94115%_ + (fx* _%i94115%_ _%i94115%_)))) + (##fxmodulo _%next-probe94127%_ _%size94100%_)) + (##fx+ _%i94115%_ '1) + (let ((_%$e94130%_ _%deleted94117%_)) + (if _%$e94130%_ _%$e94130%_ _%probe94113%_))) + (if (eq? _%key94090%_ _%k94120%_) (let () (vector-set! - _%table92996%_ - _%probe93015%_ - _%key92992%_) + _%table94094%_ + _%probe94113%_ + _%key94090%_) (vector-set! - _%table92996%_ - (##fx+ _%probe93015%_ '1) - _%value92993%_)) - (_%loop93012%_ - (let ((_%next-probe93037%_ - (fx+ _%start93008%_ - _%i93017%_ - (fx* _%i93017%_ _%i93017%_)))) - (##fxmodulo _%next-probe93037%_ _%size93002%_)) - (##fx+ _%i93017%_ '1) - _%deleted93019%_)))))))))) + _%table94094%_ + (##fx+ _%probe94113%_ '1) + _%value94091%_)) + (_%loop94110%_ + (let ((_%next-probe94135%_ + (fx+ _%start94106%_ + _%i94115%_ + (fx* _%i94115%_ _%i94115%_)))) + (##fxmodulo _%next-probe94135%_ _%size94100%_)) + (##fx+ _%i94115%_ '1) + _%deleted94117%_)))))))))) (define symbolic-table-update! - (lambda (_%tab92986%_ - _%key92987%_ - _%symbolic-table-update!92988%_ - _%default92989%_) - (if (##fx< (&raw-table-free _%tab92986%_) + (lambda (_%tab94084%_ + _%key94085%_ + _%symbolic-table-update!94086%_ + _%default94087%_) + (if (##fx< (&raw-table-free _%tab94084%_) (##fxquotient - (vector-length (&raw-table-table _%tab92986%_)) + (vector-length (&raw-table-table _%tab94084%_)) '4)) - (__raw-table-rehash! _%tab92986%_) + (__raw-table-rehash! _%tab94084%_) '#!void) (__symbolic-table-update! - _%tab92986%_ - _%key92987%_ - _%symbolic-table-update!92988%_ - _%default92989%_))) + _%tab94084%_ + _%key94085%_ + _%symbolic-table-update!94086%_ + _%default94087%_))) (define __symbolic-table-update! - (lambda (_%tab92936%_ - _%key92937%_ - _%symbolic-table-update!92938%_ - _%default92939%_) - (let ((_%table92942%_ (&raw-table-table _%tab92936%_)) - (_%seed92943%_ (&raw-table-seed _%tab92936%_))) - (let* ((_%h92945%_ - (fxxor (symbolic-hash _%key92937%_) _%seed92943%_)) - (_%size92948%_ (vector-length _%table92942%_)) - (_%entries92951%_ (##fxquotient _%size92948%_ '2)) - (_%start92954%_ + (lambda (_%tab94034%_ + _%key94035%_ + _%symbolic-table-update!94036%_ + _%default94037%_) + (let ((_%table94040%_ (&raw-table-table _%tab94034%_)) + (_%seed94041%_ (&raw-table-seed _%tab94034%_))) + (let* ((_%h94043%_ + (fxxor (symbolic-hash _%key94035%_) _%seed94041%_)) + (_%size94046%_ (vector-length _%table94040%_)) + (_%entries94049%_ (##fxquotient _%size94046%_ '2)) + (_%start94052%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92945%_ _%entries92951%_) + (##fxmodulo _%h94043%_ _%entries94049%_) '1))) - (let _%loop92958%_ ((_%probe92961%_ _%start92954%_) - (_%i92963%_ '1) - (_%deleted92965%_ '#f)) - (let ((_%k92968%_ (vector-ref _%table92942%_ _%probe92961%_))) - (if (eq? _%k92968%_ (macro-unused-obj)) - (if _%deleted92965%_ + (let _%loop94056%_ ((_%probe94059%_ _%start94052%_) + (_%i94061%_ '1) + (_%deleted94063%_ '#f)) + (let ((_%k94066%_ (vector-ref _%table94040%_ _%probe94059%_))) + (if (eq? _%k94066%_ (macro-unused-obj)) + (if _%deleted94063%_ (begin (vector-set! - _%table92942%_ - _%deleted92965%_ - _%key92937%_) + _%table94040%_ + _%deleted94063%_ + _%key94035%_) (vector-set! - _%table92942%_ - (##fx+ _%deleted92965%_ '1) - (_%symbolic-table-update!92938%_ _%default92939%_)) + _%table94040%_ + (##fx+ _%deleted94063%_ '1) + (_%symbolic-table-update!94036%_ _%default94037%_)) ((lambda () (&raw-table-count-set! - _%tab92936%_ - (##fx+ (&raw-table-count _%tab92936%_) '1))))) + _%tab94034%_ + (##fx+ (&raw-table-count _%tab94034%_) '1))))) (begin (vector-set! - _%table92942%_ - _%probe92961%_ - _%key92937%_) + _%table94040%_ + _%probe94059%_ + _%key94035%_) (vector-set! - _%table92942%_ - (##fx+ _%probe92961%_ '1) - (_%symbolic-table-update!92938%_ _%default92939%_)) + _%table94040%_ + (##fx+ _%probe94059%_ '1) + (_%symbolic-table-update!94036%_ _%default94037%_)) ((lambda () (&raw-table-free-set! - _%tab92936%_ - (##fx- (&raw-table-free _%tab92936%_) '1)) + _%tab94034%_ + (##fx- (&raw-table-free _%tab94034%_) '1)) (&raw-table-count-set! - _%tab92936%_ - (##fx+ (&raw-table-count _%tab92936%_) '1)))))) - (if (eq? _%k92968%_ (macro-deleted-obj)) - (_%loop92958%_ - (let ((_%next-probe92975%_ - (fx+ _%start92954%_ - _%i92963%_ - (fx* _%i92963%_ _%i92963%_)))) - (##fxmodulo _%next-probe92975%_ _%size92948%_)) - (##fx+ _%i92963%_ '1) - (let ((_%$e92978%_ _%deleted92965%_)) - (if _%$e92978%_ _%$e92978%_ _%probe92961%_))) - (if (eq? _%key92937%_ _%k92968%_) + _%tab94034%_ + (##fx+ (&raw-table-count _%tab94034%_) '1)))))) + (if (eq? _%k94066%_ (macro-deleted-obj)) + (_%loop94056%_ + (let ((_%next-probe94073%_ + (fx+ _%start94052%_ + _%i94061%_ + (fx* _%i94061%_ _%i94061%_)))) + (##fxmodulo _%next-probe94073%_ _%size94046%_)) + (##fx+ _%i94061%_ '1) + (let ((_%$e94076%_ _%deleted94063%_)) + (if _%$e94076%_ _%$e94076%_ _%probe94059%_))) + (if (eq? _%key94035%_ _%k94066%_) (let () (vector-set! - _%table92942%_ - _%probe92961%_ - _%key92937%_) + _%table94040%_ + _%probe94059%_ + _%key94035%_) (vector-set! - _%table92942%_ - (##fx+ _%probe92961%_ '1) - (_%symbolic-table-update!92938%_ + _%table94040%_ + (##fx+ _%probe94059%_ '1) + (_%symbolic-table-update!94036%_ (vector-ref - _%table92942%_ - (##fx+ _%probe92961%_ '1))))) - (_%loop92958%_ - (let ((_%next-probe92983%_ - (fx+ _%start92954%_ - _%i92963%_ - (fx* _%i92963%_ _%i92963%_)))) - (##fxmodulo _%next-probe92983%_ _%size92948%_)) - (##fx+ _%i92963%_ '1) - _%deleted92965%_)))))))))) + _%table94040%_ + (##fx+ _%probe94059%_ '1))))) + (_%loop94056%_ + (let ((_%next-probe94081%_ + (fx+ _%start94052%_ + _%i94061%_ + (fx* _%i94061%_ _%i94061%_)))) + (##fxmodulo _%next-probe94081%_ _%size94046%_)) + (##fx+ _%i94061%_ '1) + _%deleted94063%_)))))))))) (define symbolic-table-delete! - (lambda (_%tab92891%_ _%key92893%_) - (let ((_%table92896%_ (&raw-table-table _%tab92891%_)) - (_%seed92898%_ (&raw-table-seed _%tab92891%_))) - (let* ((_%h92901%_ - (fxxor (symbolic-hash _%key92893%_) _%seed92898%_)) - (_%size92904%_ (vector-length _%table92896%_)) - (_%entries92907%_ (##fxquotient _%size92904%_ '2)) - (_%start92910%_ + (lambda (_%tab93989%_ _%key93991%_) + (let ((_%table93994%_ (&raw-table-table _%tab93989%_)) + (_%seed93996%_ (&raw-table-seed _%tab93989%_))) + (let* ((_%h93999%_ + (fxxor (symbolic-hash _%key93991%_) _%seed93996%_)) + (_%size94002%_ (vector-length _%table93994%_)) + (_%entries94005%_ (##fxquotient _%size94002%_ '2)) + (_%start94008%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92901%_ _%entries92907%_) + (##fxmodulo _%h93999%_ _%entries94005%_) '1))) - (let _%loop92914%_ ((_%probe92917%_ _%start92910%_) - (_%i92919%_ '1)) - (let ((_%k92922%_ (vector-ref _%table92896%_ _%probe92917%_))) - (if (eq? _%k92922%_ (macro-unused-obj)) + (let _%loop94012%_ ((_%probe94015%_ _%start94008%_) + (_%i94017%_ '1)) + (let ((_%k94020%_ (vector-ref _%table93994%_ _%probe94015%_))) + (if (eq? _%k94020%_ (macro-unused-obj)) '#!void - (if (eq? _%k92922%_ (macro-deleted-obj)) - (_%loop92914%_ - (let ((_%next-probe92927%_ - (fx+ _%start92910%_ - _%i92919%_ - (fx* _%i92919%_ _%i92919%_)))) - (##fxmodulo _%next-probe92927%_ _%size92904%_)) - (##fx+ _%i92919%_ '1)) - (if (eq? _%key92893%_ _%k92922%_) + (if (eq? _%k94020%_ (macro-deleted-obj)) + (_%loop94012%_ + (let ((_%next-probe94025%_ + (fx+ _%start94008%_ + _%i94017%_ + (fx* _%i94017%_ _%i94017%_)))) + (##fxmodulo _%next-probe94025%_ _%size94002%_)) + (##fx+ _%i94017%_ '1)) + (if (eq? _%key93991%_ _%k94020%_) (let () (vector-set! - _%table92896%_ - _%probe92917%_ + _%table93994%_ + _%probe94015%_ (macro-deleted-obj)) (vector-set! - _%table92896%_ - (##fx+ _%probe92917%_ '1) + _%table93994%_ + (##fx+ _%probe94015%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab92891%_ - (##fx- (&raw-table-count _%tab92891%_) + _%tab93989%_ + (##fx- (&raw-table-count _%tab93989%_) '1))))) - (_%loop92914%_ - (let ((_%next-probe92933%_ - (fx+ _%start92910%_ - _%i92919%_ - (fx* _%i92919%_ _%i92919%_)))) - (##fxmodulo _%next-probe92933%_ _%size92904%_)) - (##fx+ _%i92919%_ '1))))))))))) + (_%loop94012%_ + (let ((_%next-probe94031%_ + (fx+ _%start94008%_ + _%i94017%_ + (fx* _%i94017%_ _%i94017%_)))) + (##fxmodulo _%next-probe94031%_ _%size94002%_)) + (##fx+ _%i94017%_ '1))))))))))) (define make-string-table__% - (lambda (_%size-hint92872%_ _%seed92874%_) + (lambda (_%size-hint93970%_ _%seed93972%_) (make-raw-table__% - _%size-hint92872%_ + _%size-hint93970%_ string-hash ##string=? - _%seed92874%_))) + _%seed93972%_))) (define make-string-table__0 (lambda () - (let* ((_%size-hint92880%_ '#f) (_%seed92882%_ '0)) - (make-string-table__% _%size-hint92880%_ _%seed92882%_)))) + (let* ((_%size-hint93978%_ '#f) (_%seed93980%_ '0)) + (make-string-table__% _%size-hint93978%_ _%seed93980%_)))) (define make-string-table__1 - (lambda (_%size-hint92884%_) - (let ((_%seed92886%_ '0)) - (make-string-table__% _%size-hint92884%_ _%seed92886%_)))) + (lambda (_%size-hint93982%_) + (let ((_%seed93984%_ '0)) + (make-string-table__% _%size-hint93982%_ _%seed93984%_)))) (define make-string-table - (lambda _g93891_ - (let ((_g93890_ (##length _g93891_))) - (cond ((##fx= _g93890_ 0) (apply make-string-table__0 _g93891_)) - ((##fx= _g93890_ 1) (apply make-string-table__1 _g93891_)) - ((##fx= _g93890_ 2) (apply make-string-table__% _g93891_)) + (lambda _g94989_ + (let ((_g94988_ (##length _g94989_))) + (cond ((##fx= _g94988_ 0) (apply make-string-table__0 _g94989_)) + ((##fx= _g94988_ 1) (apply make-string-table__1 _g94989_)) + ((##fx= _g94988_ 2) (apply make-string-table__% _g94989_)) (else (##raise-wrong-number-of-arguments-exception make-string-table - _g93891_)))))) + _g94989_)))))) (define string-table-ref - (lambda (_%tab92825%_ _%key92826%_ _%default92827%_) - (let ((_%table92829%_ (&raw-table-table _%tab92825%_)) - (_%seed92830%_ (&raw-table-seed _%tab92825%_))) - (let* ((_%h92832%_ - (fxxor (##string=?-hash _%key92826%_) _%seed92830%_)) - (_%size92835%_ (vector-length _%table92829%_)) - (_%entries92838%_ (##fxquotient _%size92835%_ '2)) - (_%start92841%_ + (lambda (_%tab93923%_ _%key93924%_ _%default93925%_) + (let ((_%table93927%_ (&raw-table-table _%tab93923%_)) + (_%seed93928%_ (&raw-table-seed _%tab93923%_))) + (let* ((_%h93930%_ + (fxxor (##string=?-hash _%key93924%_) _%seed93928%_)) + (_%size93933%_ (vector-length _%table93927%_)) + (_%entries93936%_ (##fxquotient _%size93933%_ '2)) + (_%start93939%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92832%_ _%entries92838%_) + (##fxmodulo _%h93930%_ _%entries93936%_) '1))) - (let _%loop92845%_ ((_%probe92848%_ _%start92841%_) - (_%i92850%_ '1) - (_%deleted92852%_ '#f)) - (let ((_%k92855%_ (vector-ref _%table92829%_ _%probe92848%_))) - (if (eq? _%k92855%_ (macro-unused-obj)) - _%default92827%_ - (if (eq? _%k92855%_ (macro-deleted-obj)) - (_%loop92845%_ - (let ((_%next-probe92860%_ - (fx+ _%start92841%_ - _%i92850%_ - (fx* _%i92850%_ _%i92850%_)))) - (##fxmodulo _%next-probe92860%_ _%size92835%_)) - (##fx+ _%i92850%_ '1) - (let ((_%$e92863%_ _%deleted92852%_)) - (if _%$e92863%_ _%$e92863%_ _%probe92848%_))) - (if (##string=? _%key92826%_ _%k92855%_) + (let _%loop93943%_ ((_%probe93946%_ _%start93939%_) + (_%i93948%_ '1) + (_%deleted93950%_ '#f)) + (let ((_%k93953%_ (vector-ref _%table93927%_ _%probe93946%_))) + (if (eq? _%k93953%_ (macro-unused-obj)) + _%default93925%_ + (if (eq? _%k93953%_ (macro-deleted-obj)) + (_%loop93943%_ + (let ((_%next-probe93958%_ + (fx+ _%start93939%_ + _%i93948%_ + (fx* _%i93948%_ _%i93948%_)))) + (##fxmodulo _%next-probe93958%_ _%size93933%_)) + (##fx+ _%i93948%_ '1) + (let ((_%$e93961%_ _%deleted93950%_)) + (if _%$e93961%_ _%$e93961%_ _%probe93946%_))) + (if (##string=? _%key93924%_ _%k93953%_) (vector-ref - _%table92829%_ - (##fx+ _%probe92848%_ '1)) - (_%loop92845%_ - (let ((_%next-probe92868%_ - (fx+ _%start92841%_ - _%i92850%_ - (fx* _%i92850%_ _%i92850%_)))) - (##fxmodulo _%next-probe92868%_ _%size92835%_)) - (##fx+ _%i92850%_ '1) - _%deleted92852%_)))))))))) + _%table93927%_ + (##fx+ _%probe93946%_ '1)) + (_%loop93943%_ + (let ((_%next-probe93966%_ + (fx+ _%start93939%_ + _%i93948%_ + (fx* _%i93948%_ _%i93948%_)))) + (##fxmodulo _%next-probe93966%_ _%size93933%_)) + (##fx+ _%i93948%_ '1) + _%deleted93950%_)))))))))) (define string-table-set! - (lambda (_%tab92821%_ _%key92822%_ _%value92823%_) - (if (##fx< (&raw-table-free _%tab92821%_) + (lambda (_%tab93919%_ _%key93920%_ _%value93921%_) + (if (##fx< (&raw-table-free _%tab93919%_) (##fxquotient - (vector-length (&raw-table-table _%tab92821%_)) + (vector-length (&raw-table-table _%tab93919%_)) '4)) - (__raw-table-rehash! _%tab92821%_) + (__raw-table-rehash! _%tab93919%_) '#!void) - (__string-table-set! _%tab92821%_ _%key92822%_ _%value92823%_))) + (__string-table-set! _%tab93919%_ _%key93920%_ _%value93921%_))) (define __string-table-set! - (lambda (_%tab92772%_ _%key92773%_ _%value92774%_) - (let ((_%table92777%_ (&raw-table-table _%tab92772%_)) - (_%seed92778%_ (&raw-table-seed _%tab92772%_))) - (let* ((_%h92780%_ - (fxxor (##string=?-hash _%key92773%_) _%seed92778%_)) - (_%size92783%_ (vector-length _%table92777%_)) - (_%entries92786%_ (##fxquotient _%size92783%_ '2)) - (_%start92789%_ + (lambda (_%tab93870%_ _%key93871%_ _%value93872%_) + (let ((_%table93875%_ (&raw-table-table _%tab93870%_)) + (_%seed93876%_ (&raw-table-seed _%tab93870%_))) + (let* ((_%h93878%_ + (fxxor (##string=?-hash _%key93871%_) _%seed93876%_)) + (_%size93881%_ (vector-length _%table93875%_)) + (_%entries93884%_ (##fxquotient _%size93881%_ '2)) + (_%start93887%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92780%_ _%entries92786%_) + (##fxmodulo _%h93878%_ _%entries93884%_) '1))) - (let _%loop92793%_ ((_%probe92796%_ _%start92789%_) - (_%i92798%_ '1) - (_%deleted92800%_ '#f)) - (let ((_%k92803%_ (vector-ref _%table92777%_ _%probe92796%_))) - (if (eq? _%k92803%_ (macro-unused-obj)) - (if _%deleted92800%_ + (let _%loop93891%_ ((_%probe93894%_ _%start93887%_) + (_%i93896%_ '1) + (_%deleted93898%_ '#f)) + (let ((_%k93901%_ (vector-ref _%table93875%_ _%probe93894%_))) + (if (eq? _%k93901%_ (macro-unused-obj)) + (if _%deleted93898%_ (begin (vector-set! - _%table92777%_ - _%deleted92800%_ - _%key92773%_) + _%table93875%_ + _%deleted93898%_ + _%key93871%_) (vector-set! - _%table92777%_ - (##fx+ _%deleted92800%_ '1) - _%value92774%_) + _%table93875%_ + (##fx+ _%deleted93898%_ '1) + _%value93872%_) ((lambda () (&raw-table-count-set! - _%tab92772%_ - (##fx+ (&raw-table-count _%tab92772%_) '1))))) + _%tab93870%_ + (##fx+ (&raw-table-count _%tab93870%_) '1))))) (begin (vector-set! - _%table92777%_ - _%probe92796%_ - _%key92773%_) + _%table93875%_ + _%probe93894%_ + _%key93871%_) (vector-set! - _%table92777%_ - (##fx+ _%probe92796%_ '1) - _%value92774%_) + _%table93875%_ + (##fx+ _%probe93894%_ '1) + _%value93872%_) ((lambda () (&raw-table-free-set! - _%tab92772%_ - (##fx- (&raw-table-free _%tab92772%_) '1)) + _%tab93870%_ + (##fx- (&raw-table-free _%tab93870%_) '1)) (&raw-table-count-set! - _%tab92772%_ - (##fx+ (&raw-table-count _%tab92772%_) '1)))))) - (if (eq? _%k92803%_ (macro-deleted-obj)) - (_%loop92793%_ - (let ((_%next-probe92810%_ - (fx+ _%start92789%_ - _%i92798%_ - (fx* _%i92798%_ _%i92798%_)))) - (##fxmodulo _%next-probe92810%_ _%size92783%_)) - (##fx+ _%i92798%_ '1) - (let ((_%$e92813%_ _%deleted92800%_)) - (if _%$e92813%_ _%$e92813%_ _%probe92796%_))) - (if (##string=? _%key92773%_ _%k92803%_) + _%tab93870%_ + (##fx+ (&raw-table-count _%tab93870%_) '1)))))) + (if (eq? _%k93901%_ (macro-deleted-obj)) + (_%loop93891%_ + (let ((_%next-probe93908%_ + (fx+ _%start93887%_ + _%i93896%_ + (fx* _%i93896%_ _%i93896%_)))) + (##fxmodulo _%next-probe93908%_ _%size93881%_)) + (##fx+ _%i93896%_ '1) + (let ((_%$e93911%_ _%deleted93898%_)) + (if _%$e93911%_ _%$e93911%_ _%probe93894%_))) + (if (##string=? _%key93871%_ _%k93901%_) (let () (vector-set! - _%table92777%_ - _%probe92796%_ - _%key92773%_) + _%table93875%_ + _%probe93894%_ + _%key93871%_) (vector-set! - _%table92777%_ - (##fx+ _%probe92796%_ '1) - _%value92774%_)) - (_%loop92793%_ - (let ((_%next-probe92818%_ - (fx+ _%start92789%_ - _%i92798%_ - (fx* _%i92798%_ _%i92798%_)))) - (##fxmodulo _%next-probe92818%_ _%size92783%_)) - (##fx+ _%i92798%_ '1) - _%deleted92800%_)))))))))) + _%table93875%_ + (##fx+ _%probe93894%_ '1) + _%value93872%_)) + (_%loop93891%_ + (let ((_%next-probe93916%_ + (fx+ _%start93887%_ + _%i93896%_ + (fx* _%i93896%_ _%i93896%_)))) + (##fxmodulo _%next-probe93916%_ _%size93881%_)) + (##fx+ _%i93896%_ '1) + _%deleted93898%_)))))))))) (define string-table-update! - (lambda (_%tab92767%_ - _%key92768%_ - _%string-table-update!92769%_ - _%default92770%_) - (if (##fx< (&raw-table-free _%tab92767%_) + (lambda (_%tab93865%_ + _%key93866%_ + _%string-table-update!93867%_ + _%default93868%_) + (if (##fx< (&raw-table-free _%tab93865%_) (##fxquotient - (vector-length (&raw-table-table _%tab92767%_)) + (vector-length (&raw-table-table _%tab93865%_)) '4)) - (__raw-table-rehash! _%tab92767%_) + (__raw-table-rehash! _%tab93865%_) '#!void) (__string-table-update! - _%tab92767%_ - _%key92768%_ - _%string-table-update!92769%_ - _%default92770%_))) + _%tab93865%_ + _%key93866%_ + _%string-table-update!93867%_ + _%default93868%_))) (define __string-table-update! - (lambda (_%tab92717%_ - _%key92718%_ - _%string-table-update!92719%_ - _%default92720%_) - (let ((_%table92723%_ (&raw-table-table _%tab92717%_)) - (_%seed92724%_ (&raw-table-seed _%tab92717%_))) - (let* ((_%h92726%_ - (fxxor (##string=?-hash _%key92718%_) _%seed92724%_)) - (_%size92729%_ (vector-length _%table92723%_)) - (_%entries92732%_ (##fxquotient _%size92729%_ '2)) - (_%start92735%_ + (lambda (_%tab93815%_ + _%key93816%_ + _%string-table-update!93817%_ + _%default93818%_) + (let ((_%table93821%_ (&raw-table-table _%tab93815%_)) + (_%seed93822%_ (&raw-table-seed _%tab93815%_))) + (let* ((_%h93824%_ + (fxxor (##string=?-hash _%key93816%_) _%seed93822%_)) + (_%size93827%_ (vector-length _%table93821%_)) + (_%entries93830%_ (##fxquotient _%size93827%_ '2)) + (_%start93833%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92726%_ _%entries92732%_) + (##fxmodulo _%h93824%_ _%entries93830%_) '1))) - (let _%loop92739%_ ((_%probe92742%_ _%start92735%_) - (_%i92744%_ '1) - (_%deleted92746%_ '#f)) - (let ((_%k92749%_ (vector-ref _%table92723%_ _%probe92742%_))) - (if (eq? _%k92749%_ (macro-unused-obj)) - (if _%deleted92746%_ + (let _%loop93837%_ ((_%probe93840%_ _%start93833%_) + (_%i93842%_ '1) + (_%deleted93844%_ '#f)) + (let ((_%k93847%_ (vector-ref _%table93821%_ _%probe93840%_))) + (if (eq? _%k93847%_ (macro-unused-obj)) + (if _%deleted93844%_ (begin (vector-set! - _%table92723%_ - _%deleted92746%_ - _%key92718%_) + _%table93821%_ + _%deleted93844%_ + _%key93816%_) (vector-set! - _%table92723%_ - (##fx+ _%deleted92746%_ '1) - (_%string-table-update!92719%_ _%default92720%_)) + _%table93821%_ + (##fx+ _%deleted93844%_ '1) + (_%string-table-update!93817%_ _%default93818%_)) ((lambda () (&raw-table-count-set! - _%tab92717%_ - (##fx+ (&raw-table-count _%tab92717%_) '1))))) + _%tab93815%_ + (##fx+ (&raw-table-count _%tab93815%_) '1))))) (begin (vector-set! - _%table92723%_ - _%probe92742%_ - _%key92718%_) + _%table93821%_ + _%probe93840%_ + _%key93816%_) (vector-set! - _%table92723%_ - (##fx+ _%probe92742%_ '1) - (_%string-table-update!92719%_ _%default92720%_)) + _%table93821%_ + (##fx+ _%probe93840%_ '1) + (_%string-table-update!93817%_ _%default93818%_)) ((lambda () (&raw-table-free-set! - _%tab92717%_ - (##fx- (&raw-table-free _%tab92717%_) '1)) + _%tab93815%_ + (##fx- (&raw-table-free _%tab93815%_) '1)) (&raw-table-count-set! - _%tab92717%_ - (##fx+ (&raw-table-count _%tab92717%_) '1)))))) - (if (eq? _%k92749%_ (macro-deleted-obj)) - (_%loop92739%_ - (let ((_%next-probe92756%_ - (fx+ _%start92735%_ - _%i92744%_ - (fx* _%i92744%_ _%i92744%_)))) - (##fxmodulo _%next-probe92756%_ _%size92729%_)) - (##fx+ _%i92744%_ '1) - (let ((_%$e92759%_ _%deleted92746%_)) - (if _%$e92759%_ _%$e92759%_ _%probe92742%_))) - (if (##string=? _%key92718%_ _%k92749%_) + _%tab93815%_ + (##fx+ (&raw-table-count _%tab93815%_) '1)))))) + (if (eq? _%k93847%_ (macro-deleted-obj)) + (_%loop93837%_ + (let ((_%next-probe93854%_ + (fx+ _%start93833%_ + _%i93842%_ + (fx* _%i93842%_ _%i93842%_)))) + (##fxmodulo _%next-probe93854%_ _%size93827%_)) + (##fx+ _%i93842%_ '1) + (let ((_%$e93857%_ _%deleted93844%_)) + (if _%$e93857%_ _%$e93857%_ _%probe93840%_))) + (if (##string=? _%key93816%_ _%k93847%_) (let () (vector-set! - _%table92723%_ - _%probe92742%_ - _%key92718%_) + _%table93821%_ + _%probe93840%_ + _%key93816%_) (vector-set! - _%table92723%_ - (##fx+ _%probe92742%_ '1) - (_%string-table-update!92719%_ + _%table93821%_ + (##fx+ _%probe93840%_ '1) + (_%string-table-update!93817%_ (vector-ref - _%table92723%_ - (##fx+ _%probe92742%_ '1))))) - (_%loop92739%_ - (let ((_%next-probe92764%_ - (fx+ _%start92735%_ - _%i92744%_ - (fx* _%i92744%_ _%i92744%_)))) - (##fxmodulo _%next-probe92764%_ _%size92729%_)) - (##fx+ _%i92744%_ '1) - _%deleted92746%_)))))))))) + _%table93821%_ + (##fx+ _%probe93840%_ '1))))) + (_%loop93837%_ + (let ((_%next-probe93862%_ + (fx+ _%start93833%_ + _%i93842%_ + (fx* _%i93842%_ _%i93842%_)))) + (##fxmodulo _%next-probe93862%_ _%size93827%_)) + (##fx+ _%i93842%_ '1) + _%deleted93844%_)))))))))) (define string-table-delete! - (lambda (_%tab92672%_ _%key92674%_) - (let ((_%table92677%_ (&raw-table-table _%tab92672%_)) - (_%seed92679%_ (&raw-table-seed _%tab92672%_))) - (let* ((_%h92682%_ - (fxxor (##string=?-hash _%key92674%_) _%seed92679%_)) - (_%size92685%_ (vector-length _%table92677%_)) - (_%entries92688%_ (##fxquotient _%size92685%_ '2)) - (_%start92691%_ + (lambda (_%tab93770%_ _%key93772%_) + (let ((_%table93775%_ (&raw-table-table _%tab93770%_)) + (_%seed93777%_ (&raw-table-seed _%tab93770%_))) + (let* ((_%h93780%_ + (fxxor (##string=?-hash _%key93772%_) _%seed93777%_)) + (_%size93783%_ (vector-length _%table93775%_)) + (_%entries93786%_ (##fxquotient _%size93783%_ '2)) + (_%start93789%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92682%_ _%entries92688%_) + (##fxmodulo _%h93780%_ _%entries93786%_) '1))) - (let _%loop92695%_ ((_%probe92698%_ _%start92691%_) - (_%i92700%_ '1)) - (let ((_%k92703%_ (vector-ref _%table92677%_ _%probe92698%_))) - (if (eq? _%k92703%_ (macro-unused-obj)) + (let _%loop93793%_ ((_%probe93796%_ _%start93789%_) + (_%i93798%_ '1)) + (let ((_%k93801%_ (vector-ref _%table93775%_ _%probe93796%_))) + (if (eq? _%k93801%_ (macro-unused-obj)) '#!void - (if (eq? _%k92703%_ (macro-deleted-obj)) - (_%loop92695%_ - (let ((_%next-probe92708%_ - (fx+ _%start92691%_ - _%i92700%_ - (fx* _%i92700%_ _%i92700%_)))) - (##fxmodulo _%next-probe92708%_ _%size92685%_)) - (##fx+ _%i92700%_ '1)) - (if (##string=? _%key92674%_ _%k92703%_) + (if (eq? _%k93801%_ (macro-deleted-obj)) + (_%loop93793%_ + (let ((_%next-probe93806%_ + (fx+ _%start93789%_ + _%i93798%_ + (fx* _%i93798%_ _%i93798%_)))) + (##fxmodulo _%next-probe93806%_ _%size93783%_)) + (##fx+ _%i93798%_ '1)) + (if (##string=? _%key93772%_ _%k93801%_) (let () (vector-set! - _%table92677%_ - _%probe92698%_ + _%table93775%_ + _%probe93796%_ (macro-deleted-obj)) (vector-set! - _%table92677%_ - (##fx+ _%probe92698%_ '1) + _%table93775%_ + (##fx+ _%probe93796%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab92672%_ - (##fx- (&raw-table-count _%tab92672%_) + _%tab93770%_ + (##fx- (&raw-table-count _%tab93770%_) '1))))) - (_%loop92695%_ - (let ((_%next-probe92714%_ - (fx+ _%start92691%_ - _%i92700%_ - (fx* _%i92700%_ _%i92700%_)))) - (##fxmodulo _%next-probe92714%_ _%size92685%_)) - (##fx+ _%i92700%_ '1))))))))))) + (_%loop93793%_ + (let ((_%next-probe93812%_ + (fx+ _%start93789%_ + _%i93798%_ + (fx* _%i93798%_ _%i93798%_)))) + (##fxmodulo _%next-probe93812%_ _%size93783%_)) + (##fx+ _%i93798%_ '1))))))))))) (define make-immediate-table__% - (lambda (_%size-hint92653%_ _%seed92655%_) + (lambda (_%size-hint93751%_ _%seed93753%_) (make-raw-table__% - _%size-hint92653%_ + _%size-hint93751%_ immediate-hash eq? - _%seed92655%_))) + _%seed93753%_))) (define make-immediate-table__0 (lambda () - (let* ((_%size-hint92661%_ '#f) (_%seed92663%_ '0)) - (make-immediate-table__% _%size-hint92661%_ _%seed92663%_)))) + (let* ((_%size-hint93759%_ '#f) (_%seed93761%_ '0)) + (make-immediate-table__% _%size-hint93759%_ _%seed93761%_)))) (define make-immediate-table__1 - (lambda (_%size-hint92665%_) - (let ((_%seed92667%_ '0)) - (make-immediate-table__% _%size-hint92665%_ _%seed92667%_)))) + (lambda (_%size-hint93763%_) + (let ((_%seed93765%_ '0)) + (make-immediate-table__% _%size-hint93763%_ _%seed93765%_)))) (define make-immediate-table - (lambda _g93893_ - (let ((_g93892_ (##length _g93893_))) - (cond ((##fx= _g93892_ 0) (apply make-immediate-table__0 _g93893_)) - ((##fx= _g93892_ 1) (apply make-immediate-table__1 _g93893_)) - ((##fx= _g93892_ 2) (apply make-immediate-table__% _g93893_)) + (lambda _g94991_ + (let ((_g94990_ (##length _g94991_))) + (cond ((##fx= _g94990_ 0) (apply make-immediate-table__0 _g94991_)) + ((##fx= _g94990_ 1) (apply make-immediate-table__1 _g94991_)) + ((##fx= _g94990_ 2) (apply make-immediate-table__% _g94991_)) (else (##raise-wrong-number-of-arguments-exception make-immediate-table - _g93893_)))))) + _g94991_)))))) (define immediate-table-ref - (lambda (_%tab92606%_ _%key92607%_ _%default92608%_) - (let ((_%table92610%_ (&raw-table-table _%tab92606%_)) - (_%seed92611%_ (&raw-table-seed _%tab92606%_))) - (let* ((_%h92613%_ - (fxxor (immediate-hash _%key92607%_) _%seed92611%_)) - (_%size92616%_ (vector-length _%table92610%_)) - (_%entries92619%_ (##fxquotient _%size92616%_ '2)) - (_%start92622%_ + (lambda (_%tab93704%_ _%key93705%_ _%default93706%_) + (let ((_%table93708%_ (&raw-table-table _%tab93704%_)) + (_%seed93709%_ (&raw-table-seed _%tab93704%_))) + (let* ((_%h93711%_ + (fxxor (immediate-hash _%key93705%_) _%seed93709%_)) + (_%size93714%_ (vector-length _%table93708%_)) + (_%entries93717%_ (##fxquotient _%size93714%_ '2)) + (_%start93720%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92613%_ _%entries92619%_) + (##fxmodulo _%h93711%_ _%entries93717%_) '1))) - (let _%loop92626%_ ((_%probe92629%_ _%start92622%_) - (_%i92631%_ '1) - (_%deleted92633%_ '#f)) - (let ((_%k92636%_ (vector-ref _%table92610%_ _%probe92629%_))) - (if (eq? _%k92636%_ (macro-unused-obj)) - _%default92608%_ - (if (eq? _%k92636%_ (macro-deleted-obj)) - (_%loop92626%_ - (let ((_%next-probe92641%_ - (fx+ _%start92622%_ - _%i92631%_ - (fx* _%i92631%_ _%i92631%_)))) - (##fxmodulo _%next-probe92641%_ _%size92616%_)) - (##fx+ _%i92631%_ '1) - (let ((_%$e92644%_ _%deleted92633%_)) - (if _%$e92644%_ _%$e92644%_ _%probe92629%_))) - (if (eq? _%key92607%_ _%k92636%_) + (let _%loop93724%_ ((_%probe93727%_ _%start93720%_) + (_%i93729%_ '1) + (_%deleted93731%_ '#f)) + (let ((_%k93734%_ (vector-ref _%table93708%_ _%probe93727%_))) + (if (eq? _%k93734%_ (macro-unused-obj)) + _%default93706%_ + (if (eq? _%k93734%_ (macro-deleted-obj)) + (_%loop93724%_ + (let ((_%next-probe93739%_ + (fx+ _%start93720%_ + _%i93729%_ + (fx* _%i93729%_ _%i93729%_)))) + (##fxmodulo _%next-probe93739%_ _%size93714%_)) + (##fx+ _%i93729%_ '1) + (let ((_%$e93742%_ _%deleted93731%_)) + (if _%$e93742%_ _%$e93742%_ _%probe93727%_))) + (if (eq? _%key93705%_ _%k93734%_) (vector-ref - _%table92610%_ - (##fx+ _%probe92629%_ '1)) - (_%loop92626%_ - (let ((_%next-probe92649%_ - (fx+ _%start92622%_ - _%i92631%_ - (fx* _%i92631%_ _%i92631%_)))) - (##fxmodulo _%next-probe92649%_ _%size92616%_)) - (##fx+ _%i92631%_ '1) - _%deleted92633%_)))))))))) + _%table93708%_ + (##fx+ _%probe93727%_ '1)) + (_%loop93724%_ + (let ((_%next-probe93747%_ + (fx+ _%start93720%_ + _%i93729%_ + (fx* _%i93729%_ _%i93729%_)))) + (##fxmodulo _%next-probe93747%_ _%size93714%_)) + (##fx+ _%i93729%_ '1) + _%deleted93731%_)))))))))) (define immediate-table-set! - (lambda (_%tab92602%_ _%key92603%_ _%value92604%_) - (if (##fx< (&raw-table-free _%tab92602%_) + (lambda (_%tab93700%_ _%key93701%_ _%value93702%_) + (if (##fx< (&raw-table-free _%tab93700%_) (##fxquotient - (vector-length (&raw-table-table _%tab92602%_)) + (vector-length (&raw-table-table _%tab93700%_)) '4)) - (__raw-table-rehash! _%tab92602%_) + (__raw-table-rehash! _%tab93700%_) '#!void) - (__immediate-table-set! _%tab92602%_ _%key92603%_ _%value92604%_))) + (__immediate-table-set! _%tab93700%_ _%key93701%_ _%value93702%_))) (define __immediate-table-set! - (lambda (_%tab92553%_ _%key92554%_ _%value92555%_) - (let ((_%table92558%_ (&raw-table-table _%tab92553%_)) - (_%seed92559%_ (&raw-table-seed _%tab92553%_))) - (let* ((_%h92561%_ - (fxxor (immediate-hash _%key92554%_) _%seed92559%_)) - (_%size92564%_ (vector-length _%table92558%_)) - (_%entries92567%_ (##fxquotient _%size92564%_ '2)) - (_%start92570%_ + (lambda (_%tab93651%_ _%key93652%_ _%value93653%_) + (let ((_%table93656%_ (&raw-table-table _%tab93651%_)) + (_%seed93657%_ (&raw-table-seed _%tab93651%_))) + (let* ((_%h93659%_ + (fxxor (immediate-hash _%key93652%_) _%seed93657%_)) + (_%size93662%_ (vector-length _%table93656%_)) + (_%entries93665%_ (##fxquotient _%size93662%_ '2)) + (_%start93668%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92561%_ _%entries92567%_) + (##fxmodulo _%h93659%_ _%entries93665%_) '1))) - (let _%loop92574%_ ((_%probe92577%_ _%start92570%_) - (_%i92579%_ '1) - (_%deleted92581%_ '#f)) - (let ((_%k92584%_ (vector-ref _%table92558%_ _%probe92577%_))) - (if (eq? _%k92584%_ (macro-unused-obj)) - (if _%deleted92581%_ + (let _%loop93672%_ ((_%probe93675%_ _%start93668%_) + (_%i93677%_ '1) + (_%deleted93679%_ '#f)) + (let ((_%k93682%_ (vector-ref _%table93656%_ _%probe93675%_))) + (if (eq? _%k93682%_ (macro-unused-obj)) + (if _%deleted93679%_ (begin (vector-set! - _%table92558%_ - _%deleted92581%_ - _%key92554%_) + _%table93656%_ + _%deleted93679%_ + _%key93652%_) (vector-set! - _%table92558%_ - (##fx+ _%deleted92581%_ '1) - _%value92555%_) + _%table93656%_ + (##fx+ _%deleted93679%_ '1) + _%value93653%_) ((lambda () (&raw-table-count-set! - _%tab92553%_ - (##fx+ (&raw-table-count _%tab92553%_) '1))))) + _%tab93651%_ + (##fx+ (&raw-table-count _%tab93651%_) '1))))) (begin (vector-set! - _%table92558%_ - _%probe92577%_ - _%key92554%_) + _%table93656%_ + _%probe93675%_ + _%key93652%_) (vector-set! - _%table92558%_ - (##fx+ _%probe92577%_ '1) - _%value92555%_) + _%table93656%_ + (##fx+ _%probe93675%_ '1) + _%value93653%_) ((lambda () (&raw-table-free-set! - _%tab92553%_ - (##fx- (&raw-table-free _%tab92553%_) '1)) + _%tab93651%_ + (##fx- (&raw-table-free _%tab93651%_) '1)) (&raw-table-count-set! - _%tab92553%_ - (##fx+ (&raw-table-count _%tab92553%_) '1)))))) - (if (eq? _%k92584%_ (macro-deleted-obj)) - (_%loop92574%_ - (let ((_%next-probe92591%_ - (fx+ _%start92570%_ - _%i92579%_ - (fx* _%i92579%_ _%i92579%_)))) - (##fxmodulo _%next-probe92591%_ _%size92564%_)) - (##fx+ _%i92579%_ '1) - (let ((_%$e92594%_ _%deleted92581%_)) - (if _%$e92594%_ _%$e92594%_ _%probe92577%_))) - (if (eq? _%key92554%_ _%k92584%_) + _%tab93651%_ + (##fx+ (&raw-table-count _%tab93651%_) '1)))))) + (if (eq? _%k93682%_ (macro-deleted-obj)) + (_%loop93672%_ + (let ((_%next-probe93689%_ + (fx+ _%start93668%_ + _%i93677%_ + (fx* _%i93677%_ _%i93677%_)))) + (##fxmodulo _%next-probe93689%_ _%size93662%_)) + (##fx+ _%i93677%_ '1) + (let ((_%$e93692%_ _%deleted93679%_)) + (if _%$e93692%_ _%$e93692%_ _%probe93675%_))) + (if (eq? _%key93652%_ _%k93682%_) (let () (vector-set! - _%table92558%_ - _%probe92577%_ - _%key92554%_) + _%table93656%_ + _%probe93675%_ + _%key93652%_) (vector-set! - _%table92558%_ - (##fx+ _%probe92577%_ '1) - _%value92555%_)) - (_%loop92574%_ - (let ((_%next-probe92599%_ - (fx+ _%start92570%_ - _%i92579%_ - (fx* _%i92579%_ _%i92579%_)))) - (##fxmodulo _%next-probe92599%_ _%size92564%_)) - (##fx+ _%i92579%_ '1) - _%deleted92581%_)))))))))) + _%table93656%_ + (##fx+ _%probe93675%_ '1) + _%value93653%_)) + (_%loop93672%_ + (let ((_%next-probe93697%_ + (fx+ _%start93668%_ + _%i93677%_ + (fx* _%i93677%_ _%i93677%_)))) + (##fxmodulo _%next-probe93697%_ _%size93662%_)) + (##fx+ _%i93677%_ '1) + _%deleted93679%_)))))))))) (define immediate-table-update! - (lambda (_%tab92548%_ - _%key92549%_ - _%immediate-table-update!92550%_ - _%default92551%_) - (if (##fx< (&raw-table-free _%tab92548%_) + (lambda (_%tab93646%_ + _%key93647%_ + _%immediate-table-update!93648%_ + _%default93649%_) + (if (##fx< (&raw-table-free _%tab93646%_) (##fxquotient - (vector-length (&raw-table-table _%tab92548%_)) + (vector-length (&raw-table-table _%tab93646%_)) '4)) - (__raw-table-rehash! _%tab92548%_) + (__raw-table-rehash! _%tab93646%_) '#!void) (__immediate-table-update! - _%tab92548%_ - _%key92549%_ - _%immediate-table-update!92550%_ - _%default92551%_))) + _%tab93646%_ + _%key93647%_ + _%immediate-table-update!93648%_ + _%default93649%_))) (define __immediate-table-update! - (lambda (_%tab92498%_ - _%key92499%_ - _%immediate-table-update!92500%_ - _%default92501%_) - (let ((_%table92504%_ (&raw-table-table _%tab92498%_)) - (_%seed92505%_ (&raw-table-seed _%tab92498%_))) - (let* ((_%h92507%_ - (fxxor (immediate-hash _%key92499%_) _%seed92505%_)) - (_%size92510%_ (vector-length _%table92504%_)) - (_%entries92513%_ (##fxquotient _%size92510%_ '2)) - (_%start92516%_ + (lambda (_%tab93596%_ + _%key93597%_ + _%immediate-table-update!93598%_ + _%default93599%_) + (let ((_%table93602%_ (&raw-table-table _%tab93596%_)) + (_%seed93603%_ (&raw-table-seed _%tab93596%_))) + (let* ((_%h93605%_ + (fxxor (immediate-hash _%key93597%_) _%seed93603%_)) + (_%size93608%_ (vector-length _%table93602%_)) + (_%entries93611%_ (##fxquotient _%size93608%_ '2)) + (_%start93614%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92507%_ _%entries92513%_) + (##fxmodulo _%h93605%_ _%entries93611%_) '1))) - (let _%loop92520%_ ((_%probe92523%_ _%start92516%_) - (_%i92525%_ '1) - (_%deleted92527%_ '#f)) - (let ((_%k92530%_ (vector-ref _%table92504%_ _%probe92523%_))) - (if (eq? _%k92530%_ (macro-unused-obj)) - (if _%deleted92527%_ + (let _%loop93618%_ ((_%probe93621%_ _%start93614%_) + (_%i93623%_ '1) + (_%deleted93625%_ '#f)) + (let ((_%k93628%_ (vector-ref _%table93602%_ _%probe93621%_))) + (if (eq? _%k93628%_ (macro-unused-obj)) + (if _%deleted93625%_ (begin (vector-set! - _%table92504%_ - _%deleted92527%_ - _%key92499%_) + _%table93602%_ + _%deleted93625%_ + _%key93597%_) (vector-set! - _%table92504%_ - (##fx+ _%deleted92527%_ '1) - (_%immediate-table-update!92500%_ _%default92501%_)) + _%table93602%_ + (##fx+ _%deleted93625%_ '1) + (_%immediate-table-update!93598%_ _%default93599%_)) ((lambda () (&raw-table-count-set! - _%tab92498%_ - (##fx+ (&raw-table-count _%tab92498%_) '1))))) + _%tab93596%_ + (##fx+ (&raw-table-count _%tab93596%_) '1))))) (begin (vector-set! - _%table92504%_ - _%probe92523%_ - _%key92499%_) + _%table93602%_ + _%probe93621%_ + _%key93597%_) (vector-set! - _%table92504%_ - (##fx+ _%probe92523%_ '1) - (_%immediate-table-update!92500%_ _%default92501%_)) + _%table93602%_ + (##fx+ _%probe93621%_ '1) + (_%immediate-table-update!93598%_ _%default93599%_)) ((lambda () (&raw-table-free-set! - _%tab92498%_ - (##fx- (&raw-table-free _%tab92498%_) '1)) + _%tab93596%_ + (##fx- (&raw-table-free _%tab93596%_) '1)) (&raw-table-count-set! - _%tab92498%_ - (##fx+ (&raw-table-count _%tab92498%_) '1)))))) - (if (eq? _%k92530%_ (macro-deleted-obj)) - (_%loop92520%_ - (let ((_%next-probe92537%_ - (fx+ _%start92516%_ - _%i92525%_ - (fx* _%i92525%_ _%i92525%_)))) - (##fxmodulo _%next-probe92537%_ _%size92510%_)) - (##fx+ _%i92525%_ '1) - (let ((_%$e92540%_ _%deleted92527%_)) - (if _%$e92540%_ _%$e92540%_ _%probe92523%_))) - (if (eq? _%key92499%_ _%k92530%_) + _%tab93596%_ + (##fx+ (&raw-table-count _%tab93596%_) '1)))))) + (if (eq? _%k93628%_ (macro-deleted-obj)) + (_%loop93618%_ + (let ((_%next-probe93635%_ + (fx+ _%start93614%_ + _%i93623%_ + (fx* _%i93623%_ _%i93623%_)))) + (##fxmodulo _%next-probe93635%_ _%size93608%_)) + (##fx+ _%i93623%_ '1) + (let ((_%$e93638%_ _%deleted93625%_)) + (if _%$e93638%_ _%$e93638%_ _%probe93621%_))) + (if (eq? _%key93597%_ _%k93628%_) (let () (vector-set! - _%table92504%_ - _%probe92523%_ - _%key92499%_) + _%table93602%_ + _%probe93621%_ + _%key93597%_) (vector-set! - _%table92504%_ - (##fx+ _%probe92523%_ '1) - (_%immediate-table-update!92500%_ + _%table93602%_ + (##fx+ _%probe93621%_ '1) + (_%immediate-table-update!93598%_ (vector-ref - _%table92504%_ - (##fx+ _%probe92523%_ '1))))) - (_%loop92520%_ - (let ((_%next-probe92545%_ - (fx+ _%start92516%_ - _%i92525%_ - (fx* _%i92525%_ _%i92525%_)))) - (##fxmodulo _%next-probe92545%_ _%size92510%_)) - (##fx+ _%i92525%_ '1) - _%deleted92527%_)))))))))) + _%table93602%_ + (##fx+ _%probe93621%_ '1))))) + (_%loop93618%_ + (let ((_%next-probe93643%_ + (fx+ _%start93614%_ + _%i93623%_ + (fx* _%i93623%_ _%i93623%_)))) + (##fxmodulo _%next-probe93643%_ _%size93608%_)) + (##fx+ _%i93623%_ '1) + _%deleted93625%_)))))))))) (define immediate-table-delete! - (lambda (_%tab92453%_ _%key92455%_) - (let ((_%table92458%_ (&raw-table-table _%tab92453%_)) - (_%seed92460%_ (&raw-table-seed _%tab92453%_))) - (let* ((_%h92463%_ - (fxxor (immediate-hash _%key92455%_) _%seed92460%_)) - (_%size92466%_ (vector-length _%table92458%_)) - (_%entries92469%_ (##fxquotient _%size92466%_ '2)) - (_%start92472%_ + (lambda (_%tab93551%_ _%key93553%_) + (let ((_%table93556%_ (&raw-table-table _%tab93551%_)) + (_%seed93558%_ (&raw-table-seed _%tab93551%_))) + (let* ((_%h93561%_ + (fxxor (immediate-hash _%key93553%_) _%seed93558%_)) + (_%size93564%_ (vector-length _%table93556%_)) + (_%entries93567%_ (##fxquotient _%size93564%_ '2)) + (_%start93570%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92463%_ _%entries92469%_) + (##fxmodulo _%h93561%_ _%entries93567%_) '1))) - (let _%loop92476%_ ((_%probe92479%_ _%start92472%_) - (_%i92481%_ '1)) - (let ((_%k92484%_ (vector-ref _%table92458%_ _%probe92479%_))) - (if (eq? _%k92484%_ (macro-unused-obj)) + (let _%loop93574%_ ((_%probe93577%_ _%start93570%_) + (_%i93579%_ '1)) + (let ((_%k93582%_ (vector-ref _%table93556%_ _%probe93577%_))) + (if (eq? _%k93582%_ (macro-unused-obj)) '#!void - (if (eq? _%k92484%_ (macro-deleted-obj)) - (_%loop92476%_ - (let ((_%next-probe92489%_ - (fx+ _%start92472%_ - _%i92481%_ - (fx* _%i92481%_ _%i92481%_)))) - (##fxmodulo _%next-probe92489%_ _%size92466%_)) - (##fx+ _%i92481%_ '1)) - (if (eq? _%key92455%_ _%k92484%_) + (if (eq? _%k93582%_ (macro-deleted-obj)) + (_%loop93574%_ + (let ((_%next-probe93587%_ + (fx+ _%start93570%_ + _%i93579%_ + (fx* _%i93579%_ _%i93579%_)))) + (##fxmodulo _%next-probe93587%_ _%size93564%_)) + (##fx+ _%i93579%_ '1)) + (if (eq? _%key93553%_ _%k93582%_) (let () (vector-set! - _%table92458%_ - _%probe92479%_ + _%table93556%_ + _%probe93577%_ (macro-deleted-obj)) (vector-set! - _%table92458%_ - (##fx+ _%probe92479%_ '1) + _%table93556%_ + (##fx+ _%probe93577%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab92453%_ - (##fx- (&raw-table-count _%tab92453%_) + _%tab93551%_ + (##fx- (&raw-table-count _%tab93551%_) '1))))) - (_%loop92476%_ - (let ((_%next-probe92495%_ - (fx+ _%start92472%_ - _%i92481%_ - (fx* _%i92481%_ _%i92481%_)))) - (##fxmodulo _%next-probe92495%_ _%size92466%_)) - (##fx+ _%i92481%_ '1))))))))))) + (_%loop93574%_ + (let ((_%next-probe93593%_ + (fx+ _%start93570%_ + _%i93579%_ + (fx* _%i93579%_ _%i93579%_)))) + (##fxmodulo _%next-probe93593%_ _%size93564%_)) + (##fx+ _%i93579%_ '1))))))))))) (define __gc-table::t.id 'gerbil#__gc-table::t) (define __gc-table::t (##structure @@ -1997,235 +1997,235 @@ '#(gcht 5 #f immediate 5 #f))) (define __gc-table-loads '#f64(.45 .6363961030678927 .9)) (define &gc-table-gcht - (lambda (_%tab92451%_) + (lambda (_%tab93549%_) (##unchecked-structure-ref - _%tab92451%_ + _%tab93549%_ '1 __gc-table::t 'gc-table-gcht))) (define &gc-table-immediate - (lambda (_%tab92449%_) + (lambda (_%tab93547%_) (##unchecked-structure-ref - _%tab92449%_ + _%tab93547%_ '2 __gc-table::t 'gc-table-immediate))) (define &gc-table-gcht-set! - (lambda (_%tab92446%_ _%val92447%_) + (lambda (_%tab93544%_ _%val93545%_) (##unchecked-structure-set! - _%tab92446%_ - _%val92447%_ + _%tab93544%_ + _%val93545%_ '1 __gc-table::t 'gc-table-gcht-set!))) (define &gc-table-immediate-set! - (lambda (_%tab92443%_ _%val92444%_) + (lambda (_%tab93541%_ _%val93542%_) (##unchecked-structure-set! - _%tab92443%_ - _%val92444%_ + _%tab93541%_ + _%val93542%_ '2 __gc-table::t 'gc-table-immediate-set!))) (define make-gc-table__% - (lambda (_%size-hint92419%_ _%klass92420%_ _%flags92421%_) - (let ((_%gcht92423%_ + (lambda (_%size-hint93517%_ _%klass93518%_ _%flags93519%_) + (let ((_%gcht93521%_ (__gc-table-new - (if (fixnum? _%size-hint92419%_) _%size-hint92419%_ '16) - _%flags92421%_))) - (##structure _%klass92420%_ _%gcht92423%_ '#f)))) + (if (fixnum? _%size-hint93517%_) _%size-hint93517%_ '16) + _%flags93519%_))) + (##structure _%klass93518%_ _%gcht93521%_ '#f)))) (define make-gc-table__0 - (lambda (_%size-hint92428%_) - (let* ((_%klass92430%_ __gc-table::t) (_%flags92432%_ '0)) + (lambda (_%size-hint93526%_) + (let* ((_%klass93528%_ __gc-table::t) (_%flags93530%_ '0)) (make-gc-table__% - _%size-hint92428%_ - _%klass92430%_ - _%flags92432%_)))) + _%size-hint93526%_ + _%klass93528%_ + _%flags93530%_)))) (define make-gc-table__1 - (lambda (_%size-hint92434%_ _%klass92435%_) - (let ((_%flags92437%_ '0)) + (lambda (_%size-hint93532%_ _%klass93533%_) + (let ((_%flags93535%_ '0)) (make-gc-table__% - _%size-hint92434%_ - _%klass92435%_ - _%flags92437%_)))) + _%size-hint93532%_ + _%klass93533%_ + _%flags93535%_)))) (define make-gc-table - (lambda _g93895_ - (let ((_g93894_ (##length _g93895_))) - (cond ((##fx= _g93894_ 1) (apply make-gc-table__0 _g93895_)) - ((##fx= _g93894_ 2) (apply make-gc-table__1 _g93895_)) - ((##fx= _g93894_ 3) (apply make-gc-table__% _g93895_)) + (lambda _g94993_ + (let ((_g94992_ (##length _g94993_))) + (cond ((##fx= _g94992_ 1) (apply make-gc-table__0 _g94993_)) + ((##fx= _g94992_ 2) (apply make-gc-table__1 _g94993_)) + ((##fx= _g94992_ 3) (apply make-gc-table__% _g94993_)) (else (##raise-wrong-number-of-arguments-exception make-gc-table - _g93895_)))))) + _g94993_)))))) (define __gc-table-immediate - (lambda (_%tab92410%_) - (let ((_%$e92412%_ (&gc-table-immediate _%tab92410%_))) - (if _%$e92412%_ - _%$e92412%_ - (let ((_%immediate92416%_ (make-immediate-table__% '#f '0))) - (&gc-table-immediate-set! _%tab92410%_ _%immediate92416%_) - _%immediate92416%_))))) + (lambda (_%tab93508%_) + (let ((_%$e93510%_ (&gc-table-immediate _%tab93508%_))) + (if _%$e93510%_ + _%$e93510%_ + (let ((_%immediate93514%_ (make-immediate-table__% '#f '0))) + (&gc-table-immediate-set! _%tab93508%_ _%immediate93514%_) + _%immediate93514%_))))) (define __gc-table-new - (lambda (_%size92400%_ _%flags92401%_) - (let* ((_%flags92403%_ - (##fxand _%flags92401%_ + (lambda (_%size93498%_ _%flags93499%_) + (let* ((_%flags93501%_ + (##fxand _%flags93499%_ (fxnot (macro-gc-hash-table-flag-need-rehash)))) - (_%flags92405%_ - (fxior _%flags92403%_ + (_%flags93503%_ + (fxior _%flags93501%_ (macro-gc-hash-table-flag-mem-alloc-keys))) - (_%gcht92407%_ + (_%gcht93505%_ (##gc-hash-table-allocate - _%size92400%_ - _%flags92405%_ + _%size93498%_ + _%flags93503%_ __gc-table-loads))) - _%gcht92407%_))) + _%gcht93505%_))) (define __gc-table-e - (lambda (_%tab92395%_) + (lambda (_%tab93493%_) (declare (not interrupts-enabled)) - (let ((_%gcht92398%_ (&gc-table-gcht _%tab92395%_))) + (let ((_%gcht93496%_ (&gc-table-gcht _%tab93493%_))) (if (##fx= '0 - (fxand (macro-gc-hash-table-flags _%gcht92398%_) + (fxand (macro-gc-hash-table-flags _%gcht93496%_) (macro-gc-hash-table-flag-need-rehash))) - _%gcht92398%_ + _%gcht93496%_ (begin - (__gc-table-rehash! _%tab92395%_) - (&gc-table-gcht _%tab92395%_)))))) + (__gc-table-rehash! _%tab93493%_) + (&gc-table-gcht _%tab93493%_)))))) (define __gc-table-rehash! - (lambda (_%tab92386%_) - (let* ((_%old-table92388%_ (&gc-table-gcht _%tab92386%_)) - (_%new-table92390%_ - (##gc-hash-table-resize! _%old-table92388%_ __gc-table-loads)) - (_%gcht92392%_ + (lambda (_%tab93484%_) + (let* ((_%old-table93486%_ (&gc-table-gcht _%tab93484%_)) + (_%new-table93488%_ + (##gc-hash-table-resize! _%old-table93486%_ __gc-table-loads)) + (_%gcht93490%_ (##gc-hash-table-rehash! - _%old-table92388%_ - _%new-table92390%_))) - (&gc-table-gcht-set! _%tab92386%_ _%gcht92392%_)))) + _%old-table93486%_ + _%new-table93488%_))) + (&gc-table-gcht-set! _%tab93484%_ _%gcht93490%_)))) (define gc-table-ref - (lambda (_%tab92370%_ _%key92371%_ _%default92372%_) + (lambda (_%tab93468%_ _%key93469%_ _%default93470%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key92371%_) - (let* ((_%gcht92376%_ (__gc-table-e _%tab92370%_)) - (_%value92378%_ - (##gc-hash-table-ref _%gcht92376%_ _%key92371%_))) - (if (eq? _%value92378%_ (macro-unused-obj)) - _%default92372%_ - _%value92378%_)) - (let ((_%$e92380%_ (&gc-table-immediate _%tab92370%_))) - (if _%$e92380%_ - ((lambda (_%immediate92383%_) + (if (##mem-allocated? _%key93469%_) + (let* ((_%gcht93474%_ (__gc-table-e _%tab93468%_)) + (_%value93476%_ + (##gc-hash-table-ref _%gcht93474%_ _%key93469%_))) + (if (eq? _%value93476%_ (macro-unused-obj)) + _%default93470%_ + _%value93476%_)) + (let ((_%$e93478%_ (&gc-table-immediate _%tab93468%_))) + (if _%$e93478%_ + ((lambda (_%immediate93481%_) (immediate-table-ref - _%immediate92383%_ - _%key92371%_ - _%default92372%_)) - _%$e92380%_) - _%default92372%_))))) + _%immediate93481%_ + _%key93469%_ + _%default93470%_)) + _%$e93478%_) + _%default93470%_))))) (define gc-table-set! - (lambda (_%tab92363%_ _%key92364%_ _%value92365%_) + (lambda (_%tab93461%_ _%key93462%_ _%value93463%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key92364%_) - (let ((_%gcht92368%_ (__gc-table-e _%tab92363%_))) + (if (##mem-allocated? _%key93462%_) + (let ((_%gcht93466%_ (__gc-table-e _%tab93461%_))) (if (##gc-hash-table-set! - _%gcht92368%_ - _%key92364%_ - _%value92365%_) + _%gcht93466%_ + _%key93462%_ + _%value93463%_) (begin - (__gc-table-rehash! _%tab92363%_) - (gc-table-set! _%tab92363%_ _%key92364%_ _%value92365%_)) + (__gc-table-rehash! _%tab93461%_) + (gc-table-set! _%tab93461%_ _%key93462%_ _%value93463%_)) '#!void)) (immediate-table-set! - (__gc-table-immediate _%tab92363%_) - _%key92364%_ - _%value92365%_)))) + (__gc-table-immediate _%tab93461%_) + _%key93462%_ + _%value93463%_)))) (define gc-table-update! - (lambda (_%tab92356%_ _%key92357%_ _%update92358%_ _%default92359%_) - (if (##mem-allocated? _%key92357%_) - (let ((_%value92361%_ - (gc-table-ref _%tab92356%_ _%key92357%_ _%default92359%_))) + (lambda (_%tab93454%_ _%key93455%_ _%update93456%_ _%default93457%_) + (if (##mem-allocated? _%key93455%_) + (let ((_%value93459%_ + (gc-table-ref _%tab93454%_ _%key93455%_ _%default93457%_))) (gc-table-set! - _%tab92356%_ - _%key92357%_ - (_%update92358%_ _%value92361%_))) + _%tab93454%_ + _%key93455%_ + (_%update93456%_ _%value93459%_))) (immediate-table-update! - (__gc-table-immediate _%tab92356%_) - _%key92357%_ - _%update92358%_ - _%default92359%_)))) + (__gc-table-immediate _%tab93454%_) + _%key93455%_ + _%update93456%_ + _%default93457%_)))) (define gc-table-delete! - (lambda (_%tab92344%_ _%key92345%_) + (lambda (_%tab93442%_ _%key93443%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key92345%_) - (let ((_%gcht92349%_ (__gc-table-e _%tab92344%_))) + (if (##mem-allocated? _%key93443%_) + (let ((_%gcht93447%_ (__gc-table-e _%tab93442%_))) (if (##gc-hash-table-set! - _%gcht92349%_ - _%key92345%_ + _%gcht93447%_ + _%key93443%_ (macro-absent-obj)) (begin - (__gc-table-rehash! _%tab92344%_) - (gc-table-delete! _%tab92344%_ _%key92345%_)) + (__gc-table-rehash! _%tab93442%_) + (gc-table-delete! _%tab93442%_ _%key93443%_)) '#!void)) - (let ((_%$e92351%_ (&gc-table-immediate _%tab92344%_))) - (if _%$e92351%_ - ((lambda (_%immediate92354%_) - (immediate-table-delete! _%immediate92354%_ _%key92345%_)) - _%$e92351%_) + (let ((_%$e93449%_ (&gc-table-immediate _%tab93442%_))) + (if _%$e93449%_ + ((lambda (_%immediate93452%_) + (immediate-table-delete! _%immediate93452%_ _%key93443%_)) + _%$e93449%_) '#!void))))) (define gc-table-for-each - (lambda (_%tab92325%_ _%proc92326%_) + (lambda (_%tab93423%_ _%proc93424%_) (declare (not interrupts-enabled)) (begin - (let ((_%gcht92329%_ (__gc-table-e _%tab92325%_))) - (let _%loop92331%_ ((_%i92333%_ (macro-gc-hash-table-key0))) - (if (##fx< _%i92333%_ (##vector-length _%gcht92329%_)) - (let ((_%key92335%_ (##vector-ref _%gcht92329%_ _%i92333%_))) - (if (if (eq? _%key92335%_ (macro-unused-obj)) + (let ((_%gcht93427%_ (__gc-table-e _%tab93423%_))) + (let _%loop93429%_ ((_%i93431%_ (macro-gc-hash-table-key0))) + (if (##fx< _%i93431%_ (##vector-length _%gcht93427%_)) + (let ((_%key93433%_ (##vector-ref _%gcht93427%_ _%i93431%_))) + (if (if (eq? _%key93433%_ (macro-unused-obj)) '#f - (not (eq? _%key92335%_ (macro-deleted-obj)))) - (_%proc92326%_ - _%key92335%_ - (##vector-ref _%gcht92329%_ (##fx+ _%i92333%_ '1))) + (not (eq? _%key93433%_ (macro-deleted-obj)))) + (_%proc93424%_ + _%key93433%_ + (##vector-ref _%gcht93427%_ (##fx+ _%i93431%_ '1))) '#!void) (let () (declare (interrupts-enabled)) - (_%loop92331%_ (##fx+ _%i92333%_ '2)))) + (_%loop93429%_ (##fx+ _%i93431%_ '2)))) '#!void))) - (let ((_%$e92339%_ (&gc-table-immediate _%tab92325%_))) - (if _%$e92339%_ - ((lambda (_%immediate92342%_) - (raw-table-for-each _%immediate92342%_ _%proc92326%_)) - _%$e92339%_) + (let ((_%$e93437%_ (&gc-table-immediate _%tab93423%_))) + (if _%$e93437%_ + ((lambda (_%immediate93440%_) + (raw-table-for-each _%immediate93440%_ _%proc93424%_)) + _%$e93437%_) '#!void))))) (define gc-table-copy - (lambda (_%tab92313%_) - (let* ((_%gcht92315%_ (__gc-table-e _%tab92313%_)) - (_%new-table92317%_ + (lambda (_%tab93411%_) + (let* ((_%gcht93413%_ (__gc-table-e _%tab93411%_)) + (_%new-table93415%_ (__gc-table-new - (macro-gc-hash-table-count _%gcht92315%_) - (macro-gc-hash-table-flags _%gcht92315%_))) - (_%result92319%_ + (macro-gc-hash-table-count _%gcht93413%_) + (macro-gc-hash-table-flags _%gcht93413%_))) + (_%result93417%_ (##structure - (##structure-type _%tab92313%_) - _%new-table92317%_ + (##structure-type _%tab93411%_) + _%new-table93415%_ '#f))) (gc-table-for-each - _%tab92313%_ - (lambda (_%k92322%_ _%v92323%_) - (gc-table-set! _%result92319%_ _%k92322%_ _%v92323%_))) - _%result92319%_))) + _%tab93411%_ + (lambda (_%k93420%_ _%v93421%_) + (gc-table-set! _%result93417%_ _%k93420%_ _%v93421%_))) + _%result93417%_))) (define gc-table-clear! - (lambda (_%tab92306%_) - (let* ((_%gcht92308%_ (__gc-table-e _%tab92306%_)) - (_%new-table92310%_ + (lambda (_%tab93404%_) + (let* ((_%gcht93406%_ (__gc-table-e _%tab93404%_)) + (_%new-table93408%_ (__gc-table-new '16 - (macro-gc-hash-table-flags _%gcht92308%_)))) - (&gc-table-gcht-set! _%tab92306%_ _%new-table92310%_) - (&gc-table-immediate-set! _%tab92306%_ '#f)))) + (macro-gc-hash-table-flags _%gcht93406%_)))) + (&gc-table-gcht-set! _%tab93404%_ _%new-table93408%_) + (&gc-table-immediate-set! _%tab93404%_ '#f)))) (define gc-table-length - (lambda (_%tab92298%_) - (let ((_%gcht92300%_ (__gc-table-e _%tab92298%_))) - (fx+ (macro-gc-hash-table-count _%gcht92300%_) - (let ((_%$e92302%_ (&gc-table-immediate _%tab92298%_))) - (if _%$e92302%_ (&raw-table-count _%$e92302%_) '0)))))) + (lambda (_%tab93396%_) + (let ((_%gcht93398%_ (__gc-table-e _%tab93396%_))) + (fx+ (macro-gc-hash-table-count _%gcht93398%_) + (let ((_%$e93400%_ (&gc-table-immediate _%tab93396%_))) + (if _%$e93400%_ (&raw-table-count _%$e93400%_) '0)))))) (define __object-eq-hash-next '0) (define __object-eq-hash (make-gc-table__% @@ -2233,18 +2233,18 @@ __gc-table::t (macro-gc-hash-table-flag-weak-keys))) (define __object->eq-hash - (lambda (_%obj92283%_) + (lambda (_%obj93381%_) (declare (not interrupts-enabled)) - (let ((_%val92286%_ (gc-table-ref __object-eq-hash _%obj92283%_ '#f))) - (if _%val92286%_ - _%val92286%_ - (let* ((_%mix92288%_ __object-eq-hash-next) - (_%ptr92290%_ (##type-cast _%obj92283%_ '0)) - (_%h92292%_ - (fxand (fxxor _%mix92288%_ _%ptr92290%_) + (let ((_%val93384%_ (gc-table-ref __object-eq-hash _%obj93381%_ '#f))) + (if _%val93384%_ + _%val93384%_ + (let* ((_%mix93386%_ __object-eq-hash-next) + (_%ptr93388%_ (##type-cast _%obj93381%_ '0)) + (_%h93390%_ + (fxand (fxxor _%mix93386%_ _%ptr93388%_) (macro-max-fixnum32)))) (set! __object-eq-hash-next - (let ((_%$e92295%_ (##fx+? __object-eq-hash-next '1))) - (if _%$e92295%_ _%$e92295%_ '0))) - (gc-table-set! __object-eq-hash _%obj92283%_ _%h92292%_) - _%h92292%_))))))) + (let ((_%$e93393%_ (##fx+? __object-eq-hash-next '1))) + (if _%$e93393%_ _%$e93393%_ '0))) + (gc-table-set! __object-eq-hash _%obj93381%_ _%h93390%_) + _%h93390%_))))))) diff --git a/src/bootstrap/gerbil/runtime/table~1.scm b/src/bootstrap/gerbil/runtime/table~1.scm index 73d366fde..e499896cd 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 (_%$stx91211%_) - (let* ((_%g9121591229%_ - (lambda (_%g9121691225%_) + (lambda (_%$stx92309%_) + (let* ((_%g9231392327%_ + (lambda (_%g9231492323%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9121691225%_))) - (_%g9121491271%_ - (lambda (_%g9121691233%_) - (if (gx#stx-pair? _%g9121691233%_) - (let ((_%e9121891236%_ (gx#syntax-e _%g9121691233%_))) - (let ((_%hd9121991240%_ + _%g9231492323%_))) + (_%g9231292369%_ + (lambda (_%g9231492331%_) + (if (gx#stx-pair? _%g9231492331%_) + (let ((_%e9231692334%_ (gx#syntax-e _%g9231492331%_))) + (let ((_%hd9231792338%_ (let () (declare (not safe)) - (##car _%e9121891236%_))) - (_%tl9122091243%_ + (##car _%e9231692334%_))) + (_%tl9231892341%_ (let () (declare (not safe)) - (##cdr _%e9121891236%_)))) - (if (gx#stx-pair? _%tl9122091243%_) - (let ((_%e9122191246%_ - (gx#syntax-e _%tl9122091243%_))) - (let ((_%hd9122291250%_ + (##cdr _%e9231692334%_)))) + (if (gx#stx-pair? _%tl9231892341%_) + (let ((_%e9231992344%_ + (gx#syntax-e _%tl9231892341%_))) + (let ((_%hd9232092348%_ (let () (declare (not safe)) - (##car _%e9122191246%_))) - (_%tl9122391253%_ + (##car _%e9231992344%_))) + (_%tl9232192351%_ (let () (declare (not safe)) - (##cdr _%e9122191246%_)))) - (if (gx#stx-null? _%tl9122391253%_) - ((lambda (_%L91256%_) + (##cdr _%e9231992344%_)))) + (if (gx#stx-null? _%tl9232192351%_) + ((lambda (_%L92354%_) (cons (gx#datum->syntax '#f 'macro-slot) - (cons '1 (cons _%L91256%_ '())))) - _%hd9122291250%_) - (_%g9121591229%_ _%g9121691233%_)))) - (_%g9121591229%_ _%g9121691233%_)))) - (_%g9121591229%_ _%g9121691233%_))))) - (_%g9121491271%_ _%$stx91211%_)))) + (cons '1 (cons _%L92354%_ '())))) + _%hd9232092348%_) + (_%g9231392327%_ _%g9231492331%_)))) + (_%g9231392327%_ _%g9231492331%_)))) + (_%g9231392327%_ _%g9231492331%_))))) + (_%g9231292369%_ _%$stx92309%_)))) (define |[:0:]#defspecialized-table| - (lambda (_%$stx91275%_) - (let* ((_%g9127991325%_ - (lambda (_%g9128091321%_) + (lambda (_%$stx92373%_) + (let* ((_%g9237792423%_ + (lambda (_%g9237892419%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9128091321%_))) - (_%g9127891478%_ - (lambda (_%g9128091329%_) - (if (gx#stx-pair? _%g9128091329%_) - (let ((_%e9129091332%_ (gx#syntax-e _%g9128091329%_))) - (let ((_%hd9129191336%_ + _%g9237892419%_))) + (_%g9237692576%_ + (lambda (_%g9237892427%_) + (if (gx#stx-pair? _%g9237892427%_) + (let ((_%e9238892430%_ (gx#syntax-e _%g9237892427%_))) + (let ((_%hd9238992434%_ (let () (declare (not safe)) - (##car _%e9129091332%_))) - (_%tl9129291339%_ + (##car _%e9238892430%_))) + (_%tl9239092437%_ (let () (declare (not safe)) - (##cdr _%e9129091332%_)))) - (if (gx#stx-pair? _%tl9129291339%_) - (let ((_%e9129391342%_ - (gx#syntax-e _%tl9129291339%_))) - (let ((_%hd9129491346%_ + (##cdr _%e9238892430%_)))) + (if (gx#stx-pair? _%tl9239092437%_) + (let ((_%e9239192440%_ + (gx#syntax-e _%tl9239092437%_))) + (let ((_%hd9239292444%_ (let () (declare (not safe)) - (##car _%e9129391342%_))) - (_%tl9129591349%_ + (##car _%e9239192440%_))) + (_%tl9239392447%_ (let () (declare (not safe)) - (##cdr _%e9129391342%_)))) - (if (gx#stx-pair? _%tl9129591349%_) - (let ((_%e9129691352%_ - (gx#syntax-e _%tl9129591349%_))) - (let ((_%hd9129791356%_ + (##cdr _%e9239192440%_)))) + (if (gx#stx-pair? _%tl9239392447%_) + (let ((_%e9239492450%_ + (gx#syntax-e _%tl9239392447%_))) + (let ((_%hd9239592454%_ (let () (declare (not safe)) - (##car _%e9129691352%_))) - (_%tl9129891359%_ + (##car _%e9239492450%_))) + (_%tl9239692457%_ (let () (declare (not safe)) - (##cdr _%e9129691352%_)))) - (if (gx#stx-pair? _%tl9129891359%_) - (let ((_%e9129991362%_ + (##cdr _%e9239492450%_)))) + (if (gx#stx-pair? _%tl9239692457%_) + (let ((_%e9239792460%_ (gx#syntax-e - _%tl9129891359%_))) - (let ((_%hd9130091366%_ + _%tl9239692457%_))) + (let ((_%hd9239892464%_ (let () (declare (not safe)) - (##car _%e9129991362%_))) - (_%tl9130191369%_ + (##car _%e9239792460%_))) + (_%tl9239992467%_ (let () (declare (not safe)) - (##cdr _%e9129991362%_)))) + (##cdr _%e9239792460%_)))) (if (gx#stx-pair? - _%tl9130191369%_) - (let ((_%e9130291372%_ + _%tl9239992467%_) + (let ((_%e9240092470%_ (gx#syntax-e - _%tl9130191369%_))) - (let ((_%hd9130391376%_ + _%tl9239992467%_))) + (let ((_%hd9240192474%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9130291372%_))) - (_%tl9130491379%_ - (let () (declare (not safe)) (##cdr _%e9130291372%_)))) - (if (gx#stx-pair? _%tl9130491379%_) - (let ((_%e9130591382%_ (gx#syntax-e _%tl9130491379%_))) - (let ((_%hd9130691386%_ + (##car _%e9240092470%_))) + (_%tl9240292477%_ + (let () (declare (not safe)) (##cdr _%e9240092470%_)))) + (if (gx#stx-pair? _%tl9240292477%_) + (let ((_%e9240392480%_ (gx#syntax-e _%tl9240292477%_))) + (let ((_%hd9240492484%_ (let () (declare (not safe)) - (##car _%e9130591382%_))) - (_%tl9130791389%_ + (##car _%e9240392480%_))) + (_%tl9240592487%_ (let () (declare (not safe)) - (##cdr _%e9130591382%_)))) - (if (gx#stx-pair? _%tl9130791389%_) - (let ((_%e9130891392%_ - (gx#syntax-e _%tl9130791389%_))) - (let ((_%hd9130991396%_ + (##cdr _%e9240392480%_)))) + (if (gx#stx-pair? _%tl9240592487%_) + (let ((_%e9240692490%_ + (gx#syntax-e _%tl9240592487%_))) + (let ((_%hd9240792494%_ (let () (declare (not safe)) - (##car _%e9130891392%_))) - (_%tl9131091399%_ + (##car _%e9240692490%_))) + (_%tl9240892497%_ (let () (declare (not safe)) - (##cdr _%e9130891392%_)))) - (if (gx#stx-pair? _%tl9131091399%_) - (let ((_%e9131191402%_ - (gx#syntax-e _%tl9131091399%_))) - (let ((_%hd9131291406%_ + (##cdr _%e9240692490%_)))) + (if (gx#stx-pair? _%tl9240892497%_) + (let ((_%e9240992500%_ + (gx#syntax-e _%tl9240892497%_))) + (let ((_%hd9241092504%_ (let () (declare (not safe)) - (##car _%e9131191402%_))) - (_%tl9131391409%_ + (##car _%e9240992500%_))) + (_%tl9241192507%_ (let () (declare (not safe)) - (##cdr _%e9131191402%_)))) - (if (gx#stx-pair? _%tl9131391409%_) - (let ((_%e9131491412%_ + (##cdr _%e9240992500%_)))) + (if (gx#stx-pair? _%tl9241192507%_) + (let ((_%e9241292510%_ (gx#syntax-e - _%tl9131391409%_))) - (let ((_%hd9131591416%_ + _%tl9241192507%_))) + (let ((_%hd9241392514%_ (let () (declare (not safe)) - (##car _%e9131491412%_))) - (_%tl9131691419%_ + (##car _%e9241292510%_))) + (_%tl9241492517%_ (let () (declare (not safe)) - (##cdr _%e9131491412%_)))) + (##cdr _%e9241292510%_)))) (if (gx#stx-pair? - _%tl9131691419%_) - (let ((_%e9131791422%_ + _%tl9241492517%_) + (let ((_%e9241592520%_ (gx#syntax-e - _%tl9131691419%_))) - (let ((_%hd9131891426%_ + _%tl9241492517%_))) + (let ((_%hd9241692524%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9131791422%_))) - (_%tl9131991429%_ - (let () (declare (not safe)) (##cdr _%e9131791422%_)))) - (if (gx#stx-null? _%tl9131991429%_) - ((lambda (_%L91432%_ - _%L91434%_ - _%L91435%_ - _%L91436%_ - _%L91437%_ - _%L91438%_ - _%L91439%_ - _%L91440%_ - _%L91441%_) + (##car _%e9241592520%_))) + (_%tl9241792527%_ + (let () (declare (not safe)) (##cdr _%e9241592520%_)))) + (if (gx#stx-null? _%tl9241792527%_) + ((lambda (_%L92530%_ + _%L92532%_ + _%L92533%_ + _%L92534%_ + _%L92535%_ + _%L92536%_ + _%L92537%_ + _%L92538%_ + _%L92539%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L91441%_ + (cons (cons _%L92539%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -192,14 +192,14 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'size-hint) - (cons _%L91434%_ - (cons _%L91432%_ + (cons _%L92532%_ + (cons _%L92530%_ (cons (gx#datum->syntax '#f 'seed) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L91440%_ + (cons (cons _%L92538%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -237,8 +237,8 @@ (cons (gx#datum->syntax '#f 'seed) - (cons _%L91434%_ - (cons _%L91432%_ + (cons _%L92532%_ + (cons _%L92530%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L91439%_ + (cons (cons _%L92537%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) @@ -289,7 +289,7 @@ 'tab) '())) '()))) - (cons (cons _%L91438%_ + (cons (cons _%L92536%_ (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 _%L91438%_ + (cons (cons _%L92536%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) @@ -339,8 +339,8 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'seed) - (cons _%L91434%_ - (cons _%L91432%_ + (cons _%L92532%_ + (cons _%L92530%_ (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f @@ -421,10 +421,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%L91437%_ + (cons (cons _%L92535%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L91437%_ + (cons _%L92535%_ (cons (gx#datum->syntax '#f 'default) @@ -463,25 +463,25 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L91436%_ + (cons (cons _%L92534%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L91437%_ + (cons _%L92535%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'default) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L91436%_ + (cons (cons _%L92534%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L91437%_ + (cons _%L92535%_ (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 _%L91434%_ - (cons _%L91432%_ + (cons _%L92532%_ + (cons _%L92530%_ (cons (gx#datum->syntax '#f 'key) - (cons _%L91437%_ + (cons _%L92535%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -582,7 +582,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L91435%_ + (cons (cons _%L92533%_ (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 _%L91434%_ - (cons _%L91432%_ + (cons _%L92532%_ + (cons _%L92530%_ (cons (gx#datum->syntax '#f 'key) @@ -651,92 +651,92 @@ '()))) '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9131891426%_ - _%hd9131591416%_ - _%hd9131291406%_ - _%hd9130991396%_ - _%hd9130691386%_ - _%hd9130391376%_ - _%hd9130091366%_ - _%hd9129791356%_ - _%hd9129491346%_) - (_%g9127991325%_ _%g9128091329%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9127991325%_ - _%g9128091329%_)))) - (_%g9127991325%_ - _%g9128091329%_)))) - (_%g9127991325%_ _%g9128091329%_)))) - (_%g9127991325%_ _%g9128091329%_)))) - (_%g9127991325%_ _%g9128091329%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9127991325%_ - _%g9128091329%_)))) - (_%g9127991325%_ - _%g9128091329%_)))) - (_%g9127991325%_ _%g9128091329%_)))) - (_%g9127991325%_ _%g9128091329%_)))) - (_%g9127991325%_ _%g9128091329%_))))) - (_%g9127891478%_ _%$stx91275%_)))) + _%hd9241692524%_ + _%hd9241392514%_ + _%hd9241092504%_ + _%hd9240792494%_ + _%hd9240492484%_ + _%hd9240192474%_ + _%hd9239892464%_ + _%hd9239592454%_ + _%hd9239292444%_) + (_%g9237792423%_ _%g9237892427%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9237792423%_ + _%g9237892427%_)))) + (_%g9237792423%_ + _%g9237892427%_)))) + (_%g9237792423%_ _%g9237892427%_)))) + (_%g9237792423%_ _%g9237892427%_)))) + (_%g9237792423%_ _%g9237892427%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9237792423%_ + _%g9237892427%_)))) + (_%g9237792423%_ + _%g9237892427%_)))) + (_%g9237792423%_ _%g9237892427%_)))) + (_%g9237792423%_ _%g9237892427%_)))) + (_%g9237792423%_ _%g9237892427%_))))) + (_%g9237692576%_ _%$stx92373%_)))) (define |[:0:]#probe-step| - (lambda (_%$stx91482%_) - (let* ((_%g9148691508%_ - (lambda (_%g9148791504%_) + (lambda (_%$stx92580%_) + (let* ((_%g9258492606%_ + (lambda (_%g9258592602%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9148791504%_))) - (_%g9148591577%_ - (lambda (_%g9148791512%_) - (if (gx#stx-pair? _%g9148791512%_) - (let ((_%e9149191515%_ (gx#syntax-e _%g9148791512%_))) - (let ((_%hd9149291519%_ + _%g9258592602%_))) + (_%g9258392675%_ + (lambda (_%g9258592610%_) + (if (gx#stx-pair? _%g9258592610%_) + (let ((_%e9258992613%_ (gx#syntax-e _%g9258592610%_))) + (let ((_%hd9259092617%_ (let () (declare (not safe)) - (##car _%e9149191515%_))) - (_%tl9149391522%_ + (##car _%e9258992613%_))) + (_%tl9259192620%_ (let () (declare (not safe)) - (##cdr _%e9149191515%_)))) - (if (gx#stx-pair? _%tl9149391522%_) - (let ((_%e9149491525%_ - (gx#syntax-e _%tl9149391522%_))) - (let ((_%hd9149591529%_ + (##cdr _%e9258992613%_)))) + (if (gx#stx-pair? _%tl9259192620%_) + (let ((_%e9259292623%_ + (gx#syntax-e _%tl9259192620%_))) + (let ((_%hd9259392627%_ (let () (declare (not safe)) - (##car _%e9149491525%_))) - (_%tl9149691532%_ + (##car _%e9259292623%_))) + (_%tl9259492630%_ (let () (declare (not safe)) - (##cdr _%e9149491525%_)))) - (if (gx#stx-pair? _%tl9149691532%_) - (let ((_%e9149791535%_ - (gx#syntax-e _%tl9149691532%_))) - (let ((_%hd9149891539%_ + (##cdr _%e9259292623%_)))) + (if (gx#stx-pair? _%tl9259492630%_) + (let ((_%e9259592633%_ + (gx#syntax-e _%tl9259492630%_))) + (let ((_%hd9259692637%_ (let () (declare (not safe)) - (##car _%e9149791535%_))) - (_%tl9149991542%_ + (##car _%e9259592633%_))) + (_%tl9259792640%_ (let () (declare (not safe)) - (##cdr _%e9149791535%_)))) - (if (gx#stx-pair? _%tl9149991542%_) - (let ((_%e9150091545%_ + (##cdr _%e9259592633%_)))) + (if (gx#stx-pair? _%tl9259792640%_) + (let ((_%e9259892643%_ (gx#syntax-e - _%tl9149991542%_))) - (let ((_%hd9150191549%_ + _%tl9259792640%_))) + (let ((_%hd9259992647%_ (let () (declare (not safe)) - (##car _%e9150091545%_))) - (_%tl9150291552%_ + (##car _%e9259892643%_))) + (_%tl9260092650%_ (let () (declare (not safe)) - (##cdr _%e9150091545%_)))) + (##cdr _%e9259892643%_)))) (if (gx#stx-null? - _%tl9150291552%_) - ((lambda (_%L91555%_ - _%L91557%_ - _%L91558%_) + _%tl9260092650%_) + ((lambda (_%L92653%_ + _%L92655%_ + _%L92656%_) (cons (gx#datum->syntax '#f 'let) @@ -745,127 +745,127 @@ '#f 'next-probe) (cons (cons (gx#datum->syntax '#f 'fx+) - (cons _%L91558%_ - (cons _%L91557%_ + (cons _%L92656%_ + (cons _%L92655%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fx*) - (cons _%L91557%_ (cons _%L91557%_ '()))) + (cons _%L92655%_ (cons _%L92655%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'fxmodulo) (cons (gx#datum->syntax '#f 'next-probe) - (cons _%L91555%_ '()))) + (cons _%L92653%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9150191549%_ - _%hd9149891539%_ - _%hd9149591529%_) - (_%g9148691508%_ - _%g9148791512%_)))) - (_%g9148691508%_ - _%g9148791512%_)))) - (_%g9148691508%_ _%g9148791512%_)))) - (_%g9148691508%_ _%g9148791512%_)))) - (_%g9148691508%_ _%g9148791512%_))))) - (_%g9148591577%_ _%$stx91482%_)))) + _%hd9259992647%_ + _%hd9259692637%_ + _%hd9259392627%_) + (_%g9258492606%_ + _%g9258592610%_)))) + (_%g9258492606%_ + _%g9258592610%_)))) + (_%g9258492606%_ _%g9258592610%_)))) + (_%g9258492606%_ _%g9258592610%_)))) + (_%g9258492606%_ _%g9258592610%_))))) + (_%g9258392675%_ _%$stx92580%_)))) (define |[:0:]#__table-ref| - (lambda (_%$stx91581%_) - (let* ((_%g9158591619%_ - (lambda (_%g9158691615%_) + (lambda (_%$stx92679%_) + (let* ((_%g9268392717%_ + (lambda (_%g9268492713%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9158691615%_))) - (_%g9158491730%_ - (lambda (_%g9158691623%_) - (if (gx#stx-pair? _%g9158691623%_) - (let ((_%e9159391626%_ (gx#syntax-e _%g9158691623%_))) - (let ((_%hd9159491630%_ + _%g9268492713%_))) + (_%g9268292828%_ + (lambda (_%g9268492721%_) + (if (gx#stx-pair? _%g9268492721%_) + (let ((_%e9269192724%_ (gx#syntax-e _%g9268492721%_))) + (let ((_%hd9269292728%_ (let () (declare (not safe)) - (##car _%e9159391626%_))) - (_%tl9159591633%_ + (##car _%e9269192724%_))) + (_%tl9269392731%_ (let () (declare (not safe)) - (##cdr _%e9159391626%_)))) - (if (gx#stx-pair? _%tl9159591633%_) - (let ((_%e9159691636%_ - (gx#syntax-e _%tl9159591633%_))) - (let ((_%hd9159791640%_ + (##cdr _%e9269192724%_)))) + (if (gx#stx-pair? _%tl9269392731%_) + (let ((_%e9269492734%_ + (gx#syntax-e _%tl9269392731%_))) + (let ((_%hd9269592738%_ (let () (declare (not safe)) - (##car _%e9159691636%_))) - (_%tl9159891643%_ + (##car _%e9269492734%_))) + (_%tl9269692741%_ (let () (declare (not safe)) - (##cdr _%e9159691636%_)))) - (if (gx#stx-pair? _%tl9159891643%_) - (let ((_%e9159991646%_ - (gx#syntax-e _%tl9159891643%_))) - (let ((_%hd9160091650%_ + (##cdr _%e9269492734%_)))) + (if (gx#stx-pair? _%tl9269692741%_) + (let ((_%e9269792744%_ + (gx#syntax-e _%tl9269692741%_))) + (let ((_%hd9269892748%_ (let () (declare (not safe)) - (##car _%e9159991646%_))) - (_%tl9160191653%_ + (##car _%e9269792744%_))) + (_%tl9269992751%_ (let () (declare (not safe)) - (##cdr _%e9159991646%_)))) - (if (gx#stx-pair? _%tl9160191653%_) - (let ((_%e9160291656%_ + (##cdr _%e9269792744%_)))) + (if (gx#stx-pair? _%tl9269992751%_) + (let ((_%e9270092754%_ (gx#syntax-e - _%tl9160191653%_))) - (let ((_%hd9160391660%_ + _%tl9269992751%_))) + (let ((_%hd9270192758%_ (let () (declare (not safe)) - (##car _%e9160291656%_))) - (_%tl9160491663%_ + (##car _%e9270092754%_))) + (_%tl9270292761%_ (let () (declare (not safe)) - (##cdr _%e9160291656%_)))) + (##cdr _%e9270092754%_)))) (if (gx#stx-pair? - _%tl9160491663%_) - (let ((_%e9160591666%_ + _%tl9270292761%_) + (let ((_%e9270392764%_ (gx#syntax-e - _%tl9160491663%_))) - (let ((_%hd9160691670%_ + _%tl9270292761%_))) + (let ((_%hd9270492768%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9160591666%_))) - (_%tl9160791673%_ - (let () (declare (not safe)) (##cdr _%e9160591666%_)))) - (if (gx#stx-pair? _%tl9160791673%_) - (let ((_%e9160891676%_ (gx#syntax-e _%tl9160791673%_))) - (let ((_%hd9160991680%_ + (##car _%e9270392764%_))) + (_%tl9270592771%_ + (let () (declare (not safe)) (##cdr _%e9270392764%_)))) + (if (gx#stx-pair? _%tl9270592771%_) + (let ((_%e9270692774%_ (gx#syntax-e _%tl9270592771%_))) + (let ((_%hd9270792778%_ (let () (declare (not safe)) - (##car _%e9160891676%_))) - (_%tl9161091683%_ + (##car _%e9270692774%_))) + (_%tl9270892781%_ (let () (declare (not safe)) - (##cdr _%e9160891676%_)))) - (if (gx#stx-pair? _%tl9161091683%_) - (let ((_%e9161191686%_ - (gx#syntax-e _%tl9161091683%_))) - (let ((_%hd9161291690%_ + (##cdr _%e9270692774%_)))) + (if (gx#stx-pair? _%tl9270892781%_) + (let ((_%e9270992784%_ + (gx#syntax-e _%tl9270892781%_))) + (let ((_%hd9271092788%_ (let () (declare (not safe)) - (##car _%e9161191686%_))) - (_%tl9161391693%_ + (##car _%e9270992784%_))) + (_%tl9271192791%_ (let () (declare (not safe)) - (##cdr _%e9161191686%_)))) - (if (gx#stx-null? _%tl9161391693%_) - ((lambda (_%L91696%_ - _%L91698%_ - _%L91699%_ - _%L91700%_ - _%L91701%_ - _%L91702%_) + (##cdr _%e9270992784%_)))) + (if (gx#stx-null? _%tl9271192791%_) + ((lambda (_%L92794%_ + _%L92796%_ + _%L92797%_ + _%L92798%_ + _%L92799%_ + _%L92800%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f @@ -874,13 +874,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fxxor) - (cons (cons _%L91700%_ - (cons _%L91698%_ '())) - (cons _%L91701%_ '()))) + (cons (cons _%L92798%_ + (cons _%L92796%_ '())) + (cons _%L92799%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L91702%_ '())) + (cons _%L92800%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'entries) (cons (cons (gx#datum->syntax @@ -933,7 +933,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-ref) - (cons _%L91702%_ + (cons _%L92800%_ (cons (gx#datum->syntax '#f 'probe) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -948,7 +948,7 @@ 'macro-unused-obj) '()) '()))) - (cons _%L91696%_ '())) + (cons _%L92794%_ '())) (cons (cons (cons (gx#datum->syntax '#f 'eq?) (cons (gx#datum->syntax '#f @@ -983,8 +983,8 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L91699%_ - (cons _%L91698%_ + (cons (cons (cons _%L92797%_ + (cons _%L92796%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -994,7 +994,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L91702%_ + (cons _%L92800%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) @@ -1029,145 +1029,145 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9161291690%_ - _%hd9160991680%_ - _%hd9160691670%_ - _%hd9160391660%_ - _%hd9160091650%_ - _%hd9159791640%_) - (_%g9158591619%_ _%g9158691623%_)))) - (_%g9158591619%_ _%g9158691623%_)))) - (_%g9158591619%_ _%g9158691623%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9158591619%_ - _%g9158691623%_)))) - (_%g9158591619%_ - _%g9158691623%_)))) - (_%g9158591619%_ _%g9158691623%_)))) - (_%g9158591619%_ _%g9158691623%_)))) - (_%g9158591619%_ _%g9158691623%_))))) - (_%g9158491730%_ _%$stx91581%_)))) + _%hd9271092788%_ + _%hd9270792778%_ + _%hd9270492768%_ + _%hd9270192758%_ + _%hd9269892748%_ + _%hd9269592738%_) + (_%g9268392717%_ _%g9268492721%_)))) + (_%g9268392717%_ _%g9268492721%_)))) + (_%g9268392717%_ _%g9268492721%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9268392717%_ + _%g9268492721%_)))) + (_%g9268392717%_ + _%g9268492721%_)))) + (_%g9268392717%_ _%g9268492721%_)))) + (_%g9268392717%_ _%g9268492721%_)))) + (_%g9268392717%_ _%g9268492721%_))))) + (_%g9268292828%_ _%$stx92679%_)))) (define |[:0:]#__table-set!| - (lambda (_%$stx91734%_) - (let* ((_%g9173891780%_ - (lambda (_%g9173991776%_) + (lambda (_%$stx92832%_) + (let* ((_%g9283692878%_ + (lambda (_%g9283792874%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9173991776%_))) - (_%g9173791919%_ - (lambda (_%g9173991784%_) - (if (gx#stx-pair? _%g9173991784%_) - (let ((_%e9174891787%_ (gx#syntax-e _%g9173991784%_))) - (let ((_%hd9174991791%_ + _%g9283792874%_))) + (_%g9283593017%_ + (lambda (_%g9283792882%_) + (if (gx#stx-pair? _%g9283792882%_) + (let ((_%e9284692885%_ (gx#syntax-e _%g9283792882%_))) + (let ((_%hd9284792889%_ (let () (declare (not safe)) - (##car _%e9174891787%_))) - (_%tl9175091794%_ + (##car _%e9284692885%_))) + (_%tl9284892892%_ (let () (declare (not safe)) - (##cdr _%e9174891787%_)))) - (if (gx#stx-pair? _%tl9175091794%_) - (let ((_%e9175191797%_ - (gx#syntax-e _%tl9175091794%_))) - (let ((_%hd9175291801%_ + (##cdr _%e9284692885%_)))) + (if (gx#stx-pair? _%tl9284892892%_) + (let ((_%e9284992895%_ + (gx#syntax-e _%tl9284892892%_))) + (let ((_%hd9285092899%_ (let () (declare (not safe)) - (##car _%e9175191797%_))) - (_%tl9175391804%_ + (##car _%e9284992895%_))) + (_%tl9285192902%_ (let () (declare (not safe)) - (##cdr _%e9175191797%_)))) - (if (gx#stx-pair? _%tl9175391804%_) - (let ((_%e9175491807%_ - (gx#syntax-e _%tl9175391804%_))) - (let ((_%hd9175591811%_ + (##cdr _%e9284992895%_)))) + (if (gx#stx-pair? _%tl9285192902%_) + (let ((_%e9285292905%_ + (gx#syntax-e _%tl9285192902%_))) + (let ((_%hd9285392909%_ (let () (declare (not safe)) - (##car _%e9175491807%_))) - (_%tl9175691814%_ + (##car _%e9285292905%_))) + (_%tl9285492912%_ (let () (declare (not safe)) - (##cdr _%e9175491807%_)))) - (if (gx#stx-pair? _%tl9175691814%_) - (let ((_%e9175791817%_ + (##cdr _%e9285292905%_)))) + (if (gx#stx-pair? _%tl9285492912%_) + (let ((_%e9285592915%_ (gx#syntax-e - _%tl9175691814%_))) - (let ((_%hd9175891821%_ + _%tl9285492912%_))) + (let ((_%hd9285692919%_ (let () (declare (not safe)) - (##car _%e9175791817%_))) - (_%tl9175991824%_ + (##car _%e9285592915%_))) + (_%tl9285792922%_ (let () (declare (not safe)) - (##cdr _%e9175791817%_)))) + (##cdr _%e9285592915%_)))) (if (gx#stx-pair? - _%tl9175991824%_) - (let ((_%e9176091827%_ + _%tl9285792922%_) + (let ((_%e9285892925%_ (gx#syntax-e - _%tl9175991824%_))) - (let ((_%hd9176191831%_ + _%tl9285792922%_))) + (let ((_%hd9285992929%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9176091827%_))) - (_%tl9176291834%_ - (let () (declare (not safe)) (##cdr _%e9176091827%_)))) - (if (gx#stx-pair? _%tl9176291834%_) - (let ((_%e9176391837%_ (gx#syntax-e _%tl9176291834%_))) - (let ((_%hd9176491841%_ + (##car _%e9285892925%_))) + (_%tl9286092932%_ + (let () (declare (not safe)) (##cdr _%e9285892925%_)))) + (if (gx#stx-pair? _%tl9286092932%_) + (let ((_%e9286192935%_ (gx#syntax-e _%tl9286092932%_))) + (let ((_%hd9286292939%_ (let () (declare (not safe)) - (##car _%e9176391837%_))) - (_%tl9176591844%_ + (##car _%e9286192935%_))) + (_%tl9286392942%_ (let () (declare (not safe)) - (##cdr _%e9176391837%_)))) - (if (gx#stx-pair? _%tl9176591844%_) - (let ((_%e9176691847%_ - (gx#syntax-e _%tl9176591844%_))) - (let ((_%hd9176791851%_ + (##cdr _%e9286192935%_)))) + (if (gx#stx-pair? _%tl9286392942%_) + (let ((_%e9286492945%_ + (gx#syntax-e _%tl9286392942%_))) + (let ((_%hd9286592949%_ (let () (declare (not safe)) - (##car _%e9176691847%_))) - (_%tl9176891854%_ + (##car _%e9286492945%_))) + (_%tl9286692952%_ (let () (declare (not safe)) - (##cdr _%e9176691847%_)))) - (if (gx#stx-pair? _%tl9176891854%_) - (let ((_%e9176991857%_ - (gx#syntax-e _%tl9176891854%_))) - (let ((_%hd9177091861%_ + (##cdr _%e9286492945%_)))) + (if (gx#stx-pair? _%tl9286692952%_) + (let ((_%e9286792955%_ + (gx#syntax-e _%tl9286692952%_))) + (let ((_%hd9286892959%_ (let () (declare (not safe)) - (##car _%e9176991857%_))) - (_%tl9177191864%_ + (##car _%e9286792955%_))) + (_%tl9286992962%_ (let () (declare (not safe)) - (##cdr _%e9176991857%_)))) - (if (gx#stx-pair? _%tl9177191864%_) - (let ((_%e9177291867%_ + (##cdr _%e9286792955%_)))) + (if (gx#stx-pair? _%tl9286992962%_) + (let ((_%e9287092965%_ (gx#syntax-e - _%tl9177191864%_))) - (let ((_%hd9177391871%_ + _%tl9286992962%_))) + (let ((_%hd9287192969%_ (let () (declare (not safe)) - (##car _%e9177291867%_))) - (_%tl9177491874%_ + (##car _%e9287092965%_))) + (_%tl9287292972%_ (let () (declare (not safe)) - (##cdr _%e9177291867%_)))) + (##cdr _%e9287092965%_)))) (if (gx#stx-null? - _%tl9177491874%_) - ((lambda (_%L91877%_ - _%L91879%_ - _%L91880%_ - _%L91881%_ - _%L91882%_ - _%L91883%_ - _%L91884%_ - _%L91885%_) + _%tl9287292972%_) + ((lambda (_%L92975%_ + _%L92977%_ + _%L92978%_ + _%L92979%_ + _%L92980%_ + _%L92981%_ + _%L92982%_ + _%L92983%_) (cons (gx#datum->syntax '#f 'let*) @@ -1178,18 +1178,18 @@ (cons (cons (gx#datum->syntax '#f 'fxxor) - (cons (cons _%L91883%_ - (cons _%L91881%_ + (cons (cons _%L92981%_ + (cons _%L92979%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L91884%_ '()))) + (cons _%L92982%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L91885%_ '())) + (cons _%L92983%_ '())) '())) (cons (cons (gx#datum->syntax '#f @@ -1246,7 +1246,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L91885%_ + (cons _%L92983%_ (cons (gx#datum->syntax '#f 'probe) @@ -1273,41 +1273,41 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L91885%_ + (cons _%L92983%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'deleted) - (cons _%L91881%_ '())))) + (cons _%L92979%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L91885%_ + (cons _%L92983%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'deleted) (cons '1 '()))) - (cons _%L91880%_ '())))) - (cons (cons _%L91877%_ '()) '())))) + (cons _%L92978%_ '())))) + (cons (cons _%L92975%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L91885%_ + (cons _%L92983%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'probe) - (cons _%L91881%_ '())))) + (cons _%L92979%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L91885%_ + (cons _%L92983%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) (cons '1 '()))) - (cons _%L91880%_ '())))) - (cons (cons _%L91879%_ '()) '())))) + (cons _%L92978%_ '())))) + (cons (cons _%L92977%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -1352,16 +1352,16 @@ '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons _%L91882%_ + (cons (cons (cons _%L92980%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L91881%_ + (cons _%L92979%_ (cons (gx#datum->syntax '#f 'k) '()))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L91885%_ + (cons _%L92983%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L91881%_ '())))) + (cons _%L92979%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L91885%_ + (cons _%L92983%_ (cons (cons (gx#datum->syntax '#f 'fx+) @@ -1370,7 +1370,7 @@ '#f 'probe) (cons '1 '()))) - (cons _%L91880%_ '())))) + (cons _%L92978%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'else) @@ -1405,173 +1405,173 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9177391871%_ - _%hd9177091861%_ - _%hd9176791851%_ - _%hd9176491841%_ - _%hd9176191831%_ - _%hd9175891821%_ - _%hd9175591811%_ - _%hd9175291801%_) - (_%g9173891780%_ - _%g9173991784%_)))) - (_%g9173891780%_ - _%g9173991784%_)))) - (_%g9173891780%_ _%g9173991784%_)))) - (_%g9173891780%_ _%g9173991784%_)))) - (_%g9173891780%_ _%g9173991784%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9173891780%_ - _%g9173991784%_)))) - (_%g9173891780%_ - _%g9173991784%_)))) - (_%g9173891780%_ _%g9173991784%_)))) - (_%g9173891780%_ _%g9173991784%_)))) - (_%g9173891780%_ _%g9173991784%_))))) - (_%g9173791919%_ _%$stx91734%_)))) + _%hd9287192969%_ + _%hd9286892959%_ + _%hd9286592949%_ + _%hd9286292939%_ + _%hd9285992929%_ + _%hd9285692919%_ + _%hd9285392909%_ + _%hd9285092899%_) + (_%g9283692878%_ + _%g9283792882%_)))) + (_%g9283692878%_ + _%g9283792882%_)))) + (_%g9283692878%_ _%g9283792882%_)))) + (_%g9283692878%_ _%g9283792882%_)))) + (_%g9283692878%_ _%g9283792882%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9283692878%_ + _%g9283792882%_)))) + (_%g9283692878%_ + _%g9283792882%_)))) + (_%g9283692878%_ _%g9283792882%_)))) + (_%g9283692878%_ _%g9283792882%_)))) + (_%g9283692878%_ _%g9283792882%_))))) + (_%g9283593017%_ _%$stx92832%_)))) (define |[:0:]#__table-update!| - (lambda (_%$stx91923%_) - (let* ((_%g9192791973%_ - (lambda (_%g9192891969%_) + (lambda (_%$stx93021%_) + (let* ((_%g9302593071%_ + (lambda (_%g9302693067%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9192891969%_))) - (_%g9192692126%_ - (lambda (_%g9192891977%_) - (if (gx#stx-pair? _%g9192891977%_) - (let ((_%e9193891980%_ (gx#syntax-e _%g9192891977%_))) - (let ((_%hd9193991984%_ + _%g9302693067%_))) + (_%g9302493224%_ + (lambda (_%g9302693075%_) + (if (gx#stx-pair? _%g9302693075%_) + (let ((_%e9303693078%_ (gx#syntax-e _%g9302693075%_))) + (let ((_%hd9303793082%_ (let () (declare (not safe)) - (##car _%e9193891980%_))) - (_%tl9194091987%_ + (##car _%e9303693078%_))) + (_%tl9303893085%_ (let () (declare (not safe)) - (##cdr _%e9193891980%_)))) - (if (gx#stx-pair? _%tl9194091987%_) - (let ((_%e9194191990%_ - (gx#syntax-e _%tl9194091987%_))) - (let ((_%hd9194291994%_ + (##cdr _%e9303693078%_)))) + (if (gx#stx-pair? _%tl9303893085%_) + (let ((_%e9303993088%_ + (gx#syntax-e _%tl9303893085%_))) + (let ((_%hd9304093092%_ (let () (declare (not safe)) - (##car _%e9194191990%_))) - (_%tl9194391997%_ + (##car _%e9303993088%_))) + (_%tl9304193095%_ (let () (declare (not safe)) - (##cdr _%e9194191990%_)))) - (if (gx#stx-pair? _%tl9194391997%_) - (let ((_%e9194492000%_ - (gx#syntax-e _%tl9194391997%_))) - (let ((_%hd9194592004%_ + (##cdr _%e9303993088%_)))) + (if (gx#stx-pair? _%tl9304193095%_) + (let ((_%e9304293098%_ + (gx#syntax-e _%tl9304193095%_))) + (let ((_%hd9304393102%_ (let () (declare (not safe)) - (##car _%e9194492000%_))) - (_%tl9194692007%_ + (##car _%e9304293098%_))) + (_%tl9304493105%_ (let () (declare (not safe)) - (##cdr _%e9194492000%_)))) - (if (gx#stx-pair? _%tl9194692007%_) - (let ((_%e9194792010%_ + (##cdr _%e9304293098%_)))) + (if (gx#stx-pair? _%tl9304493105%_) + (let ((_%e9304593108%_ (gx#syntax-e - _%tl9194692007%_))) - (let ((_%hd9194892014%_ + _%tl9304493105%_))) + (let ((_%hd9304693112%_ (let () (declare (not safe)) - (##car _%e9194792010%_))) - (_%tl9194992017%_ + (##car _%e9304593108%_))) + (_%tl9304793115%_ (let () (declare (not safe)) - (##cdr _%e9194792010%_)))) + (##cdr _%e9304593108%_)))) (if (gx#stx-pair? - _%tl9194992017%_) - (let ((_%e9195092020%_ + _%tl9304793115%_) + (let ((_%e9304893118%_ (gx#syntax-e - _%tl9194992017%_))) - (let ((_%hd9195192024%_ + _%tl9304793115%_))) + (let ((_%hd9304993122%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9195092020%_))) - (_%tl9195292027%_ - (let () (declare (not safe)) (##cdr _%e9195092020%_)))) - (if (gx#stx-pair? _%tl9195292027%_) - (let ((_%e9195392030%_ (gx#syntax-e _%tl9195292027%_))) - (let ((_%hd9195492034%_ + (##car _%e9304893118%_))) + (_%tl9305093125%_ + (let () (declare (not safe)) (##cdr _%e9304893118%_)))) + (if (gx#stx-pair? _%tl9305093125%_) + (let ((_%e9305193128%_ (gx#syntax-e _%tl9305093125%_))) + (let ((_%hd9305293132%_ (let () (declare (not safe)) - (##car _%e9195392030%_))) - (_%tl9195592037%_ + (##car _%e9305193128%_))) + (_%tl9305393135%_ (let () (declare (not safe)) - (##cdr _%e9195392030%_)))) - (if (gx#stx-pair? _%tl9195592037%_) - (let ((_%e9195692040%_ - (gx#syntax-e _%tl9195592037%_))) - (let ((_%hd9195792044%_ + (##cdr _%e9305193128%_)))) + (if (gx#stx-pair? _%tl9305393135%_) + (let ((_%e9305493138%_ + (gx#syntax-e _%tl9305393135%_))) + (let ((_%hd9305593142%_ (let () (declare (not safe)) - (##car _%e9195692040%_))) - (_%tl9195892047%_ + (##car _%e9305493138%_))) + (_%tl9305693145%_ (let () (declare (not safe)) - (##cdr _%e9195692040%_)))) - (if (gx#stx-pair? _%tl9195892047%_) - (let ((_%e9195992050%_ - (gx#syntax-e _%tl9195892047%_))) - (let ((_%hd9196092054%_ + (##cdr _%e9305493138%_)))) + (if (gx#stx-pair? _%tl9305693145%_) + (let ((_%e9305793148%_ + (gx#syntax-e _%tl9305693145%_))) + (let ((_%hd9305893152%_ (let () (declare (not safe)) - (##car _%e9195992050%_))) - (_%tl9196192057%_ + (##car _%e9305793148%_))) + (_%tl9305993155%_ (let () (declare (not safe)) - (##cdr _%e9195992050%_)))) - (if (gx#stx-pair? _%tl9196192057%_) - (let ((_%e9196292060%_ + (##cdr _%e9305793148%_)))) + (if (gx#stx-pair? _%tl9305993155%_) + (let ((_%e9306093158%_ (gx#syntax-e - _%tl9196192057%_))) - (let ((_%hd9196392064%_ + _%tl9305993155%_))) + (let ((_%hd9306193162%_ (let () (declare (not safe)) - (##car _%e9196292060%_))) - (_%tl9196492067%_ + (##car _%e9306093158%_))) + (_%tl9306293165%_ (let () (declare (not safe)) - (##cdr _%e9196292060%_)))) + (##cdr _%e9306093158%_)))) (if (gx#stx-pair? - _%tl9196492067%_) - (let ((_%e9196592070%_ + _%tl9306293165%_) + (let ((_%e9306393168%_ (gx#syntax-e - _%tl9196492067%_))) - (let ((_%hd9196692074%_ + _%tl9306293165%_))) + (let ((_%hd9306493172%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9196592070%_))) - (_%tl9196792077%_ - (let () (declare (not safe)) (##cdr _%e9196592070%_)))) - (if (gx#stx-null? _%tl9196792077%_) - ((lambda (_%L92080%_ - _%L92082%_ - _%L92083%_ - _%L92084%_ - _%L92085%_ - _%L92086%_ - _%L92087%_ - _%L92088%_ - _%L92089%_) + (##car _%e9306393168%_))) + (_%tl9306593175%_ + (let () (declare (not safe)) (##cdr _%e9306393168%_)))) + (if (gx#stx-null? _%tl9306593175%_) + ((lambda (_%L93178%_ + _%L93180%_ + _%L93181%_ + _%L93182%_ + _%L93183%_ + _%L93184%_ + _%L93185%_ + _%L93186%_ + _%L93187%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f 'h) (cons (cons (gx#datum->syntax '#f 'fxxor) - (cons (cons _%L92087%_ + (cons (cons _%L93185%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L92085%_ '())) - (cons _%L92088%_ '()))) + (cons _%L93183%_ '())) + (cons _%L93186%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax @@ -1581,7 +1581,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-length) - (cons _%L92089%_ '())) + (cons _%L93187%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -1634,7 +1634,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L92089%_ + (cons _%L93187%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1661,21 +1661,21 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92089%_ + (cons _%L93187%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'deleted) - (cons _%L92085%_ '())))) + (cons _%L93183%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92089%_ + (cons _%L93187%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'deleted) (cons '1 '()))) - (cons (cons _%L92084%_ - (cons _%L92083%_ '())) + (cons (cons _%L93182%_ + (cons _%L93181%_ '())) '())))) - (cons (cons _%L92080%_ '()) '())))) + (cons (cons _%L93178%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -1684,11 +1684,11 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-set!) - (cons _%L92089%_ + (cons _%L93187%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L92085%_ '())))) + (cons _%L93183%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92089%_ + (cons _%L93187%_ (cons (cons (gx#datum->syntax '#f 'fx+) @@ -1696,13 +1696,13 @@ '#f 'probe) (cons '1 '()))) - (cons (cons _%L92084%_ - (cons _%L92083%_ + (cons (cons _%L93182%_ + (cons _%L93181%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (cons (cons _%L92082%_ '()) '())))) + (cons (cons _%L93180%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -1747,34 +1747,34 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L92086%_ - (cons _%L92085%_ + (cons (cons (cons _%L93184%_ + (cons _%L93183%_ (cons (gx#datum->syntax '#f 'k) '()))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92089%_ + (cons _%L93187%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L92085%_ + (cons _%L93183%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92089%_ + (cons _%L93187%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) (cons '1 '()))) - (cons (cons _%L92084%_ + (cons (cons _%L93182%_ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L92089%_ + (cons _%L93187%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1808,128 +1808,128 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd9196692074%_ - _%hd9196392064%_ - _%hd9196092054%_ - _%hd9195792044%_ - _%hd9195492034%_ - _%hd9195192024%_ - _%hd9194892014%_ - _%hd9194592004%_ - _%hd9194291994%_) - (_%g9192791973%_ _%g9192891977%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9192791973%_ - _%g9192891977%_)))) - (_%g9192791973%_ - _%g9192891977%_)))) - (_%g9192791973%_ _%g9192891977%_)))) - (_%g9192791973%_ _%g9192891977%_)))) - (_%g9192791973%_ _%g9192891977%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9192791973%_ - _%g9192891977%_)))) - (_%g9192791973%_ - _%g9192891977%_)))) - (_%g9192791973%_ _%g9192891977%_)))) - (_%g9192791973%_ _%g9192891977%_)))) - (_%g9192791973%_ _%g9192891977%_))))) - (_%g9192692126%_ _%$stx91923%_)))) + _%hd9306493172%_ + _%hd9306193162%_ + _%hd9305893152%_ + _%hd9305593142%_ + _%hd9305293132%_ + _%hd9304993122%_ + _%hd9304693112%_ + _%hd9304393102%_ + _%hd9304093092%_) + (_%g9302593071%_ _%g9302693075%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9302593071%_ + _%g9302693075%_)))) + (_%g9302593071%_ + _%g9302693075%_)))) + (_%g9302593071%_ _%g9302693075%_)))) + (_%g9302593071%_ _%g9302693075%_)))) + (_%g9302593071%_ _%g9302693075%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9302593071%_ + _%g9302693075%_)))) + (_%g9302593071%_ + _%g9302693075%_)))) + (_%g9302593071%_ _%g9302693075%_)))) + (_%g9302593071%_ _%g9302693075%_)))) + (_%g9302593071%_ _%g9302693075%_))))) + (_%g9302493224%_ _%$stx93021%_)))) (define |[:0:]#__table-del!| - (lambda (_%$stx92130%_) - (let* ((_%g9213492168%_ - (lambda (_%g9213592164%_) + (lambda (_%$stx93228%_) + (let* ((_%g9323293266%_ + (lambda (_%g9323393262%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9213592164%_))) - (_%g9213392279%_ - (lambda (_%g9213592172%_) - (if (gx#stx-pair? _%g9213592172%_) - (let ((_%e9214292175%_ (gx#syntax-e _%g9213592172%_))) - (let ((_%hd9214392179%_ + _%g9323393262%_))) + (_%g9323193377%_ + (lambda (_%g9323393270%_) + (if (gx#stx-pair? _%g9323393270%_) + (let ((_%e9324093273%_ (gx#syntax-e _%g9323393270%_))) + (let ((_%hd9324193277%_ (let () (declare (not safe)) - (##car _%e9214292175%_))) - (_%tl9214492182%_ + (##car _%e9324093273%_))) + (_%tl9324293280%_ (let () (declare (not safe)) - (##cdr _%e9214292175%_)))) - (if (gx#stx-pair? _%tl9214492182%_) - (let ((_%e9214592185%_ - (gx#syntax-e _%tl9214492182%_))) - (let ((_%hd9214692189%_ + (##cdr _%e9324093273%_)))) + (if (gx#stx-pair? _%tl9324293280%_) + (let ((_%e9324393283%_ + (gx#syntax-e _%tl9324293280%_))) + (let ((_%hd9324493287%_ (let () (declare (not safe)) - (##car _%e9214592185%_))) - (_%tl9214792192%_ + (##car _%e9324393283%_))) + (_%tl9324593290%_ (let () (declare (not safe)) - (##cdr _%e9214592185%_)))) - (if (gx#stx-pair? _%tl9214792192%_) - (let ((_%e9214892195%_ - (gx#syntax-e _%tl9214792192%_))) - (let ((_%hd9214992199%_ + (##cdr _%e9324393283%_)))) + (if (gx#stx-pair? _%tl9324593290%_) + (let ((_%e9324693293%_ + (gx#syntax-e _%tl9324593290%_))) + (let ((_%hd9324793297%_ (let () (declare (not safe)) - (##car _%e9214892195%_))) - (_%tl9215092202%_ + (##car _%e9324693293%_))) + (_%tl9324893300%_ (let () (declare (not safe)) - (##cdr _%e9214892195%_)))) - (if (gx#stx-pair? _%tl9215092202%_) - (let ((_%e9215192205%_ + (##cdr _%e9324693293%_)))) + (if (gx#stx-pair? _%tl9324893300%_) + (let ((_%e9324993303%_ (gx#syntax-e - _%tl9215092202%_))) - (let ((_%hd9215292209%_ + _%tl9324893300%_))) + (let ((_%hd9325093307%_ (let () (declare (not safe)) - (##car _%e9215192205%_))) - (_%tl9215392212%_ + (##car _%e9324993303%_))) + (_%tl9325193310%_ (let () (declare (not safe)) - (##cdr _%e9215192205%_)))) + (##cdr _%e9324993303%_)))) (if (gx#stx-pair? - _%tl9215392212%_) - (let ((_%e9215492215%_ + _%tl9325193310%_) + (let ((_%e9325293313%_ (gx#syntax-e - _%tl9215392212%_))) - (let ((_%hd9215592219%_ + _%tl9325193310%_))) + (let ((_%hd9325393317%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9215492215%_))) - (_%tl9215692222%_ - (let () (declare (not safe)) (##cdr _%e9215492215%_)))) - (if (gx#stx-pair? _%tl9215692222%_) - (let ((_%e9215792225%_ (gx#syntax-e _%tl9215692222%_))) - (let ((_%hd9215892229%_ + (##car _%e9325293313%_))) + (_%tl9325493320%_ + (let () (declare (not safe)) (##cdr _%e9325293313%_)))) + (if (gx#stx-pair? _%tl9325493320%_) + (let ((_%e9325593323%_ (gx#syntax-e _%tl9325493320%_))) + (let ((_%hd9325693327%_ (let () (declare (not safe)) - (##car _%e9215792225%_))) - (_%tl9215992232%_ + (##car _%e9325593323%_))) + (_%tl9325793330%_ (let () (declare (not safe)) - (##cdr _%e9215792225%_)))) - (if (gx#stx-pair? _%tl9215992232%_) - (let ((_%e9216092235%_ - (gx#syntax-e _%tl9215992232%_))) - (let ((_%hd9216192239%_ + (##cdr _%e9325593323%_)))) + (if (gx#stx-pair? _%tl9325793330%_) + (let ((_%e9325893333%_ + (gx#syntax-e _%tl9325793330%_))) + (let ((_%hd9325993337%_ (let () (declare (not safe)) - (##car _%e9216092235%_))) - (_%tl9216292242%_ + (##car _%e9325893333%_))) + (_%tl9326093340%_ (let () (declare (not safe)) - (##cdr _%e9216092235%_)))) - (if (gx#stx-null? _%tl9216292242%_) - ((lambda (_%L92245%_ - _%L92247%_ - _%L92248%_ - _%L92249%_ - _%L92250%_ - _%L92251%_) + (##cdr _%e9325893333%_)))) + (if (gx#stx-null? _%tl9326093340%_) + ((lambda (_%L93343%_ + _%L93345%_ + _%L93346%_ + _%L93347%_ + _%L93348%_ + _%L93349%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f @@ -1938,13 +1938,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fxxor) - (cons (cons _%L92249%_ - (cons _%L92247%_ '())) - (cons _%L92250%_ '()))) + (cons (cons _%L93347%_ + (cons _%L93345%_ '())) + (cons _%L93348%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L92251%_ '())) + (cons _%L93349%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'entries) (cons (cons (gx#datum->syntax @@ -1993,7 +1993,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-ref) - (cons _%L92251%_ + (cons _%L93349%_ (cons (gx#datum->syntax '#f 'probe) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2039,8 +2039,8 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L92248%_ - (cons _%L92247%_ + (cons (cons (cons _%L93346%_ + (cons _%L93345%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -2050,7 +2050,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92251%_ + (cons _%L93349%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'probe) (cons (cons (gx#datum->syntax @@ -2059,7 +2059,7 @@ '()) '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92251%_ + (cons _%L93349%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f @@ -2070,7 +2070,7 @@ 'macro-absent-obj) '()) '())))) - (cons (cons _%L92245%_ '()) '())))) + (cons (cons _%L93343%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -2098,21 +2098,21 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9216192239%_ - _%hd9215892229%_ - _%hd9215592219%_ - _%hd9215292209%_ - _%hd9214992199%_ - _%hd9214692189%_) - (_%g9213492168%_ _%g9213592172%_)))) - (_%g9213492168%_ _%g9213592172%_)))) - (_%g9213492168%_ _%g9213592172%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9213492168%_ - _%g9213592172%_)))) - (_%g9213492168%_ - _%g9213592172%_)))) - (_%g9213492168%_ _%g9213592172%_)))) - (_%g9213492168%_ _%g9213592172%_)))) - (_%g9213492168%_ _%g9213592172%_))))) - (_%g9213392279%_ _%$stx92130%_))))) + _%hd9325993337%_ + _%hd9325693327%_ + _%hd9325393317%_ + _%hd9325093307%_ + _%hd9324793297%_ + _%hd9324493287%_) + (_%g9323293266%_ _%g9323393270%_)))) + (_%g9323293266%_ _%g9323393270%_)))) + (_%g9323293266%_ _%g9323393270%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9323293266%_ + _%g9323393270%_)))) + (_%g9323293266%_ + _%g9323393270%_)))) + (_%g9323293266%_ _%g9323393270%_)))) + (_%g9323293266%_ _%g9323393270%_)))) + (_%g9323293266%_ _%g9323393270%_))))) + (_%g9323193377%_ _%$stx93228%_))))) diff --git a/src/bootstrap/gerbil/runtime/thread~0.scm b/src/bootstrap/gerbil/runtime/thread~0.scm index c18d310b3..7b72778d8 100644 --- a/src/bootstrap/gerbil/runtime/thread~0.scm +++ b/src/bootstrap/gerbil/runtime/thread~0.scm @@ -1,13 +1,13 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/thread::timestamp 1713631265) + (define gerbil/runtime/thread::timestamp 1734357961) (begin (define spawn - (lambda (_%f110553%_ . _%args110554%_) - (if (procedure? _%f110553%_) - (let ((_%f110558%_ _%f110553%_)) + (lambda (_%f111803%_ . _%args111804%_) + (if (procedure? _%f111803%_) + (let ((_%f111808%_ _%f111803%_)) (declare (not safe)) - (##apply __spawn _%f110558%_ _%args110554%_)) + (##apply __spawn _%f111808%_ _%args111804%_)) (begin (raise-contract-violation-error '"contract violation" @@ -16,18 +16,18 @@ 'contract: 'procedure? 'value: - _%f110553%_) + _%f111803%_) '#!void)))) (define __spawn - (lambda (_%f110540%_ . _%args110541%_) - (let ((_%f110544%_ _%f110540%_)) - (spawn-actor _%f110544%_ _%args110541%_ '#!void '#f)))) + (lambda (_%f111790%_ . _%args111791%_) + (let ((_%f111794%_ _%f111790%_)) + (spawn-actor _%f111794%_ _%args111791%_ '#!void '#f)))) (define spawn/name - (lambda (_%name110524%_ _%f110525%_ . _%args110526%_) - (if (procedure? _%f110525%_) - (let ((_%f110530%_ _%f110525%_)) + (lambda (_%name111774%_ _%f111775%_ . _%args111776%_) + (if (procedure? _%f111775%_) + (let ((_%f111780%_ _%f111775%_)) (declare (not safe)) - (##apply __spawn/name _%name110524%_ _%f110530%_ _%args110526%_)) + (##apply __spawn/name _%name111774%_ _%f111780%_ _%args111776%_)) (begin (raise-contract-violation-error '"contract violation" @@ -36,21 +36,21 @@ 'contract: 'procedure? 'value: - _%f110525%_) + _%f111775%_) '#!void)))) (define __spawn/name - (lambda (_%name110510%_ _%f110511%_ . _%args110512%_) - (let ((_%f110515%_ _%f110511%_)) - (spawn-actor _%f110515%_ _%args110512%_ _%name110510%_ '#f)))) + (lambda (_%name111760%_ _%f111761%_ . _%args111762%_) + (let ((_%f111765%_ _%f111761%_)) + (spawn-actor _%f111765%_ _%args111762%_ _%name111760%_ '#f)))) (define spawn/group - (lambda (_%name110494%_ _%f110495%_ . _%args110496%_) - (if (procedure? _%f110495%_) - (let ((_%f110500%_ _%f110495%_)) + (lambda (_%name111744%_ _%f111745%_ . _%args111746%_) + (if (procedure? _%f111745%_) + (let ((_%f111750%_ _%f111745%_)) (declare (not safe)) (##apply __spawn/group - _%name110494%_ - _%f110500%_ - _%args110496%_)) + _%name111744%_ + _%f111750%_ + _%args111746%_)) (begin (raise-contract-violation-error '"contract violation" @@ -59,148 +59,148 @@ 'contract: 'procedure? 'value: - _%f110495%_) + _%f111745%_) '#!void)))) (define __spawn/group - (lambda (_%name110478%_ _%f110479%_ . _%args110480%_) - (let* ((_%f110483%_ _%f110479%_) - (_%tgroup110492%_ (make-thread-group _%name110478%_))) + (lambda (_%name111728%_ _%f111729%_ . _%args111730%_) + (let* ((_%f111733%_ _%f111729%_) + (_%tgroup111742%_ (make-thread-group _%name111728%_))) (spawn-actor - _%f110483%_ - _%args110480%_ - _%name110478%_ - _%tgroup110492%_)))) + _%f111733%_ + _%args111730%_ + _%name111728%_ + _%tgroup111742%_)))) (define spawn-actor - (lambda (_%f110450%_ _%args110451%_ _%name110452%_ _%tgroup110453%_) - (letrec ((_%thread-main110456%_ - (lambda (_%thunk110470%_) + (lambda (_%f111700%_ _%args111701%_ _%name111702%_ _%tgroup111703%_) + (letrec ((_%thread-main111706%_ + (lambda (_%thunk111720%_) (lambda () - (let ((__tmp110567 - (lambda (_%exn110473%_) - (let ((__tmp110568 - (lambda (_%cont110475%_) + (let ((__tmp111817 + (lambda (_%exn111723%_) + (let ((__tmp111818 + (lambda (_%cont111725%_) (if unhandled-actor-exception-hook - (let ((__tmp110569 + (let ((__tmp111819 (lambda () (__unhandled-actor-exception-hook - _%cont110475%_ - _%exn110473%_)))) + _%cont111725%_ + _%exn111723%_)))) (declare (not safe)) - (__with-catch void __tmp110569)) + (__with-catch void __tmp111819)) '#!void) - (let ((__tmp110570 + (let ((__tmp111820 (let () (declare (not safe)) (##continuation-last - _%cont110475%_)))) + _%cont111725%_)))) (declare (not safe)) (##continuation-graft - __tmp110570 + __tmp111820 ##primordial-exception-handler - _%exn110473%_))))) + _%exn111723%_))))) (declare (not safe)) - (##continuation-capture __tmp110568))))) + (##continuation-capture __tmp111818))))) (declare (not safe)) (with-exception-handler - __tmp110567 - _%thunk110470%_)))))) - (let* ((_%thunk110459%_ - (if (null? _%args110451%_) - _%f110450%_ - (lambda () (apply _%f110450%_ _%args110451%_)))) - (_%thunk110462%_ - (lambda () (with-exception-stack-trace__0 _%thunk110459%_))) - (_%tgroup110467%_ - (let ((_%$e110464%_ _%tgroup110453%_)) - (if _%$e110464%_ _%$e110464%_ (current-thread-group))))) + __tmp111817 + _%thunk111720%_)))))) + (let* ((_%thunk111709%_ + (if (null? _%args111701%_) + _%f111700%_ + (lambda () (apply _%f111700%_ _%args111701%_)))) + (_%thunk111712%_ + (lambda () (with-exception-stack-trace__0 _%thunk111709%_))) + (_%tgroup111717%_ + (let ((_%$e111714%_ _%tgroup111703%_)) + (if _%$e111714%_ _%$e111714%_ (current-thread-group))))) (thread-start! (thread-init! (construct-actor-thread '#f '0) - (_%thread-main110456%_ _%thunk110462%_) - _%name110452%_ - _%tgroup110467%_)))))) + (_%thread-main111706%_ _%thunk111712%_) + _%name111702%_ + _%tgroup111717%_)))))) (define spawn-thread__% - (lambda (_%thunk110428%_ _%name110429%_ _%tgroup110430%_) + (lambda (_%thunk111678%_ _%name111679%_ _%tgroup111680%_) (thread-start! - (make-thread _%thunk110428%_ _%name110429%_ _%tgroup110430%_)))) + (make-thread _%thunk111678%_ _%name111679%_ _%tgroup111680%_)))) (define spawn-thread__0 - (lambda (_%thunk110435%_) - (let* ((_%name110437%_ absent-obj) (_%tgroup110439%_ absent-obj)) - (spawn-thread__% _%thunk110435%_ _%name110437%_ _%tgroup110439%_)))) + (lambda (_%thunk111685%_) + (let* ((_%name111687%_ absent-obj) (_%tgroup111689%_ absent-obj)) + (spawn-thread__% _%thunk111685%_ _%name111687%_ _%tgroup111689%_)))) (define spawn-thread__1 - (lambda (_%thunk110441%_ _%name110442%_) - (let ((_%tgroup110444%_ absent-obj)) - (spawn-thread__% _%thunk110441%_ _%name110442%_ _%tgroup110444%_)))) + (lambda (_%thunk111691%_ _%name111692%_) + (let ((_%tgroup111694%_ absent-obj)) + (spawn-thread__% _%thunk111691%_ _%name111692%_ _%tgroup111694%_)))) (define spawn-thread - (lambda _g110572_ - (let ((_g110571_ (let () (declare (not safe)) (##length _g110572_)))) - (cond ((let () (declare (not safe)) (##fx= _g110571_ 1)) - (apply spawn-thread__0 _g110572_)) - ((let () (declare (not safe)) (##fx= _g110571_ 2)) - (apply spawn-thread__1 _g110572_)) - ((let () (declare (not safe)) (##fx= _g110571_ 3)) - (apply spawn-thread__% _g110572_)) + (lambda _g111822_ + (let ((_g111821_ (let () (declare (not safe)) (##length _g111822_)))) + (cond ((let () (declare (not safe)) (##fx= _g111821_ 1)) + (apply spawn-thread__0 _g111822_)) + ((let () (declare (not safe)) (##fx= _g111821_ 2)) + (apply spawn-thread__1 _g111822_)) + ((let () (declare (not safe)) (##fx= _g111821_ 3)) + (apply spawn-thread__% _g111822_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g110572_)))))) + _g111822_)))))) (define thread-local-ref__% - (lambda (_%key110412%_ _%default110413%_) - (let ((_%tab110415%_ (thread-local-table))) + (lambda (_%key111662%_ _%default111663%_) + (let ((_%tab111665%_ (thread-local-table))) (declare (not safe)) - (hash-ref__% _%tab110415%_ _%key110412%_ _%default110413%_)))) + (hash-ref__% _%tab111665%_ _%key111662%_ _%default111663%_)))) (define thread-local-ref__0 - (lambda (_%key110420%_) - (let ((_%default110422%_ absent-obj)) - (thread-local-ref__% _%key110420%_ _%default110422%_)))) + (lambda (_%key111670%_) + (let ((_%default111672%_ absent-obj)) + (thread-local-ref__% _%key111670%_ _%default111672%_)))) (define thread-local-ref - (lambda _g110574_ - (let ((_g110573_ (let () (declare (not safe)) (##length _g110574_)))) - (cond ((let () (declare (not safe)) (##fx= _g110573_ 1)) - (apply thread-local-ref__0 _g110574_)) - ((let () (declare (not safe)) (##fx= _g110573_ 2)) - (apply thread-local-ref__% _g110574_)) + (lambda _g111824_ + (let ((_g111823_ (let () (declare (not safe)) (##length _g111824_)))) + (cond ((let () (declare (not safe)) (##fx= _g111823_ 1)) + (apply thread-local-ref__0 _g111824_)) + ((let () (declare (not safe)) (##fx= _g111823_ 2)) + (apply thread-local-ref__% _g111824_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g110574_)))))) + _g111824_)))))) (define thread-local-get - (lambda (_%key110409%_) (thread-local-ref__% _%key110409%_ '#f))) + (lambda (_%key111659%_) (thread-local-ref__% _%key111659%_ '#f))) (define thread-local-set! - (lambda (_%key110404%_ _%value110405%_) - (let ((_%tab110407%_ (thread-local-table))) + (lambda (_%key111654%_ _%value111655%_) + (let ((_%tab111657%_ (thread-local-table))) (declare (not safe)) - (hash-put! _%tab110407%_ _%key110404%_ _%value110405%_)))) + (hash-put! _%tab111657%_ _%key111654%_ _%value111655%_)))) (define thread-local-delete! - (lambda (_%key110400%_) - (let ((_%tab110402%_ (thread-local-table))) + (lambda (_%key111650%_) + (let ((_%tab111652%_ (thread-local-table))) (declare (not safe)) - (hash-remove! _%tab110402%_ _%key110400%_)))) + (hash-remove! _%tab111652%_ _%key111650%_)))) (define thread-local-table (lambda () - (let ((_%thr110381%_ (current-thread))) - (if (actor-thread? _%thr110381%_) - (let ((_%$e110384%_ (actor-thread-locals _%thr110381%_))) - (if _%$e110384%_ - _%$e110384%_ - (let ((_%tab110388%_ + (let ((_%thr111631%_ (current-thread))) + (if (actor-thread? _%thr111631%_) + (let ((_%$e111634%_ (actor-thread-locals _%thr111631%_))) + (if _%$e111634%_ + _%$e111634%_ + (let ((_%tab111638%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (actor-thread-locals-set! _%thr110381%_ _%tab110388%_) - _%tab110388%_))) - (if (eq? _%thr110381%_ ##primordial-thread) + (actor-thread-locals-set! _%thr111631%_ _%tab111638%_) + _%tab111638%_))) + (if (eq? _%thr111631%_ ##primordial-thread) __primordial-thread-locals (let () (mutex-lock! __thread-locals-mutex) - (let ((_%$e110392%_ + (let ((_%$e111642%_ (let () (declare (not safe)) - (__hash-get __thread-locals _%thr110381%_)))) - (if _%$e110392%_ - ((lambda (_%tab110395%_) + (__hash-get __thread-locals _%thr111631%_)))) + (if _%$e111642%_ + ((lambda (_%tab111645%_) (mutex-unlock! __thread-locals-mutex) - _%tab110395%_) - _%$e110392%_) - (let ((_%tab110398%_ + _%tab111645%_) + _%$e111642%_) + (let ((_%tab111648%_ (let () (declare (not safe)) (make-hash-table-eq)))) @@ -208,10 +208,10 @@ (declare (not safe)) (__hash-put! __thread-locals - _%thr110381%_ - _%tab110398%_)) + _%thr111631%_ + _%tab111648%_)) (mutex-unlock! __thread-locals-mutex) - _%tab110398%_))))))))) + _%tab111648%_))))))))) (define __primordial-thread-locals (let () (declare (not safe)) (make-hash-table-eq))) (define __thread-locals @@ -221,12 +221,12 @@ (define unhandled-actor-exception-hook (lambda () __unhandled-actor-exception-hook)) (define unhandled-actor-exception-hook-set! - (lambda (_%new-value110359%_) - (if ((lambda (_%$obj110362%_) - (or (not _%$obj110362%_) (procedure? _%$obj110362%_))) - _%new-value110359%_) - (let ((_%new-value110369%_ _%new-value110359%_)) - (__unhandled-actor-exception-hook-set! _%new-value110369%_)) + (lambda (_%new-value111609%_) + (if ((lambda (_%$obj111612%_) + (or (not _%$obj111612%_) (procedure? _%$obj111612%_))) + _%new-value111609%_) + (let ((_%new-value111619%_ _%new-value111609%_)) + (__unhandled-actor-exception-hook-set! _%new-value111619%_)) (begin (raise-contract-violation-error '"contract violation" @@ -235,21 +235,21 @@ 'contract: '(? (or not procedure?)) 'value: - _%new-value110359%_) + _%new-value111609%_) '#!void)))) (define __unhandled-actor-exception-hook-set! - (lambda (_%new-value110346%_) - (let ((_%new-value110350%_ _%new-value110346%_)) - (set! __unhandled-actor-exception-hook _%new-value110350%_)))) + (lambda (_%new-value111596%_) + (let ((_%new-value111600%_ _%new-value111596%_)) + (set! __unhandled-actor-exception-hook _%new-value111600%_)))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_%mx110320%_ _%proc110321%_) - (if (mutex? _%mx110320%_) - (let ((_%mx110325%_ _%mx110320%_)) - (if (procedure? _%proc110321%_) - (let ((_%proc110335%_ _%proc110321%_)) - (__with-lock _%mx110325%_ _%proc110335%_)) + (lambda (_%mx111570%_ _%proc111571%_) + (if (mutex? _%mx111570%_) + (let ((_%mx111575%_ _%mx111570%_)) + (if (procedure? _%proc111571%_) + (let ((_%proc111585%_ _%proc111571%_)) + (__with-lock _%mx111575%_ _%proc111585%_)) (begin (raise-contract-violation-error '"contract violation" @@ -258,7 +258,7 @@ 'contract: 'procedure? 'value: - _%proc110321%_) + _%proc111571%_) '#!void))) (begin (raise-contract-violation-error @@ -268,42 +268,42 @@ 'contract: 'mutex? 'value: - _%mx110320%_) + _%mx111570%_) '#!void)))) (define __with-lock - (lambda (_%mx110291%_ _%proc110292%_) - (let* ((_%mx110295%_ _%mx110291%_) - (_%proc110303%_ _%proc110292%_) - (_%handler110312%_ (current-exception-handler))) - (let ((__tmp110576 - (lambda (_%e110314%_) - (let ((__tmp110577 + (lambda (_%mx111541%_ _%proc111542%_) + (let* ((_%mx111545%_ _%mx111541%_) + (_%proc111553%_ _%proc111542%_) + (_%handler111562%_ (current-exception-handler))) + (let ((__tmp111826 + (lambda (_%e111564%_) + (let ((__tmp111827 (lambda () - (mutex-unlock! _%mx110295%_) + (mutex-unlock! _%mx111545%_) (let () (declare (not safe)) - (_%handler110312%_ _%e110314%_))))) + (_%handler111562%_ _%e111564%_))))) (declare (not safe)) - (__with-catch void __tmp110577)) + (__with-catch void __tmp111827)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _%e110314%_)))) - (__tmp110575 + (##thread-end-with-uncaught-exception! _%e111564%_)))) + (__tmp111825 (lambda () - (mutex-lock! _%mx110295%_) - (let ((_%result110318%_ - (let () (declare (not safe)) (_%proc110303%_)))) - (mutex-unlock! _%mx110295%_) - _%result110318%_)))) + (mutex-lock! _%mx111545%_) + (let ((_%result111568%_ + (let () (declare (not safe)) (_%proc111553%_)))) + (mutex-unlock! _%mx111545%_) + _%result111568%_)))) (declare (not safe)) - (__with-exception-handler __tmp110576 __tmp110575))))) + (__with-exception-handler __tmp111826 __tmp111825))))) (define with-dynamic-lock - (lambda (_%mx110266%_ _%proc110267%_) - (if (mutex? _%mx110266%_) - (let ((_%mx110271%_ _%mx110266%_)) - (if (procedure? _%proc110267%_) - (let ((_%proc110281%_ _%proc110267%_)) - (__with-dynamic-lock _%mx110271%_ _%proc110281%_)) + (lambda (_%mx111516%_ _%proc111517%_) + (if (mutex? _%mx111516%_) + (let ((_%mx111521%_ _%mx111516%_)) + (if (procedure? _%proc111517%_) + (let ((_%proc111531%_ _%proc111517%_)) + (__with-dynamic-lock _%mx111521%_ _%proc111531%_)) (begin (raise-contract-violation-error '"contract violation" @@ -312,7 +312,7 @@ 'contract: 'procedure? 'value: - _%proc110267%_) + _%proc111517%_) '#!void))) (begin (raise-contract-violation-error @@ -322,24 +322,24 @@ 'contract: 'mutex? 'value: - _%mx110266%_) + _%mx111516%_) '#!void)))) (define __with-dynamic-lock - (lambda (_%mx110243%_ _%proc110244%_) - (let* ((_%mx110247%_ _%mx110243%_) (_%proc110255%_ _%proc110244%_)) - (let ((__tmp110579 (lambda () (mutex-lock! _%mx110247%_))) - (__tmp110578 (lambda () (mutex-unlock! _%mx110247%_)))) + (lambda (_%mx111493%_ _%proc111494%_) + (let* ((_%mx111497%_ _%mx111493%_) (_%proc111505%_ _%proc111494%_)) + (let ((__tmp111829 (lambda () (mutex-lock! _%mx111497%_))) + (__tmp111828 (lambda () (mutex-unlock! _%mx111497%_)))) (declare (not safe)) - (##dynamic-wind __tmp110579 _%proc110255%_ __tmp110578))))) + (##dynamic-wind __tmp111829 _%proc111505%_ __tmp111828))))) (define with-exception-stack-trace__% - (lambda (_%thunk110208%_ _%error-port110209%_) - (if (procedure? _%thunk110208%_) - (let ((_%thunk110213%_ _%thunk110208%_)) - (if (port? _%error-port110209%_) - (let ((_%error-port110223%_ _%error-port110209%_)) + (lambda (_%thunk111458%_ _%error-port111459%_) + (if (procedure? _%thunk111458%_) + (let ((_%thunk111463%_ _%thunk111458%_)) + (if (port? _%error-port111459%_) + (let ((_%error-port111473%_ _%error-port111459%_)) (__with-exception-stack-trace__% - _%thunk110213%_ - _%error-port110223%_)) + _%thunk111463%_ + _%error-port111473%_)) (begin (raise-contract-violation-error '"contract violation" @@ -348,7 +348,7 @@ 'contract: 'port? 'value: - _%error-port110209%_) + _%error-port111459%_) '#!void))) (begin (raise-contract-violation-error @@ -358,105 +358,105 @@ 'contract: 'procedure? 'value: - _%thunk110208%_) + _%thunk111458%_) '#!void)))) (define with-exception-stack-trace__0 - (lambda (_%thunk110236%_) - (let ((_%error-port110238%_ (current-error-port))) + (lambda (_%thunk111486%_) + (let ((_%error-port111488%_ (current-error-port))) (with-exception-stack-trace__% - _%thunk110236%_ - _%error-port110238%_)))) + _%thunk111486%_ + _%error-port111488%_)))) (define with-exception-stack-trace - (lambda _g110581_ - (let ((_g110580_ (let () (declare (not safe)) (##length _g110581_)))) - (cond ((let () (declare (not safe)) (##fx= _g110580_ 1)) - (apply with-exception-stack-trace__0 _g110581_)) - ((let () (declare (not safe)) (##fx= _g110580_ 2)) - (apply with-exception-stack-trace__% _g110581_)) + (lambda _g111831_ + (let ((_g111830_ (let () (declare (not safe)) (##length _g111831_)))) + (cond ((let () (declare (not safe)) (##fx= _g111830_ 1)) + (apply with-exception-stack-trace__0 _g111831_)) + ((let () (declare (not safe)) (##fx= _g111830_ 2)) + (apply with-exception-stack-trace__% _g111831_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g110581_)))))) + _g111831_)))))) (define __with-exception-stack-trace__% - (lambda (_%thunk110169%_ _%error-port110170%_) - (let* ((_%thunk110173%_ _%thunk110169%_) - (_%error-port110182%_ _%error-port110170%_) - (__tmp110582 - (let ((_%E110191%_ (current-exception-handler))) - (lambda (_%exn110193%_) - (let ((__tmp110583 - (lambda (_%cont110195%_) + (lambda (_%thunk111419%_ _%error-port111420%_) + (let* ((_%thunk111423%_ _%thunk111419%_) + (_%error-port111432%_ _%error-port111420%_) + (__tmp111832 + (let ((_%E111441%_ (current-exception-handler))) + (lambda (_%exn111443%_) + (let ((__tmp111833 + (lambda (_%cont111445%_) (if (let () (declare (not safe)) (dump-stack-trace?)) (dump-stack-trace!__% - _%cont110195%_ - _%exn110193%_ - _%error-port110182%_) + _%cont111445%_ + _%exn111443%_ + _%error-port111432%_) '#!void) (let () (declare (not safe)) - (_%E110191%_ _%exn110193%_))))) + (_%E111441%_ _%exn111443%_))))) (declare (not safe)) - (##continuation-capture __tmp110583)))))) + (##continuation-capture __tmp111833)))))) (declare (not safe)) - (__with-exception-handler __tmp110582 _%thunk110173%_)))) + (__with-exception-handler __tmp111832 _%thunk111423%_)))) (define __with-exception-stack-trace__0 - (lambda (_%thunk110200%_) - (let ((_%error-port110202%_ (current-error-port))) + (lambda (_%thunk111450%_) + (let ((_%error-port111452%_ (current-error-port))) (__with-exception-stack-trace__% - _%thunk110200%_ - _%error-port110202%_)))) + _%thunk111450%_ + _%error-port111452%_)))) (define __with-exception-stack-trace - (lambda _g110585_ - (let ((_g110584_ (let () (declare (not safe)) (##length _g110585_)))) - (cond ((let () (declare (not safe)) (##fx= _g110584_ 1)) - (apply __with-exception-stack-trace__0 _g110585_)) - ((let () (declare (not safe)) (##fx= _g110584_ 2)) - (apply __with-exception-stack-trace__% _g110585_)) + (lambda _g111835_ + (let ((_g111834_ (let () (declare (not safe)) (##length _g111835_)))) + (cond ((let () (declare (not safe)) (##fx= _g111834_ 1)) + (apply __with-exception-stack-trace__0 _g111835_)) + ((let () (declare (not safe)) (##fx= _g111834_ 2)) + (apply __with-exception-stack-trace__% _g111835_)) (else (##raise-wrong-number-of-arguments-exception __with-exception-stack-trace - _g110585_)))))) + _g111835_)))))) (define dump-stack-trace!__% - (lambda (_%cont110150%_ _%exn110151%_ _%error-port110152%_) - (let ((_%out110154%_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _%out110154%_)) - (display '"*** Unhandled exception in " _%out110154%_) - (display (current-thread) _%out110154%_) - (newline _%out110154%_) + (lambda (_%cont111400%_ _%exn111401%_ _%error-port111402%_) + (let ((_%out111404%_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _%out111404%_)) + (display '"*** Unhandled exception in " _%out111404%_) + (display (current-thread) _%out111404%_) + (newline _%out111404%_) (let () (declare (not safe)) - (display-exception__% _%exn110151%_ _%out110154%_)) + (display-exception__% _%exn111401%_ _%out111404%_)) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _%exn110151%_)) + (class-instance? StackTrace::t _%exn111401%_)) '#!void (begin - (display '"Continuation backtrace: " _%out110154%_) - (newline _%out110154%_) - (display-continuation-backtrace _%cont110150%_ _%out110154%_))) - (let ((__tmp110586 (get-output-string _%out110154%_))) + (display '"Continuation backtrace: " _%out111404%_) + (newline _%out111404%_) + (display-continuation-backtrace _%cont111400%_ _%out111404%_))) + (let ((__tmp111836 (get-output-string _%out111404%_))) (declare (not safe)) - (##write-string __tmp110586 _%error-port110152%_))))) + (##write-string __tmp111836 _%error-port111402%_))))) (define dump-stack-trace!__0 - (lambda (_%cont110159%_ _%exn110160%_) - (let ((_%error-port110162%_ (current-error-port))) + (lambda (_%cont111409%_ _%exn111410%_) + (let ((_%error-port111412%_ (current-error-port))) (dump-stack-trace!__% - _%cont110159%_ - _%exn110160%_ - _%error-port110162%_)))) + _%cont111409%_ + _%exn111410%_ + _%error-port111412%_)))) (define dump-stack-trace! - (lambda _g110588_ - (let ((_g110587_ (let () (declare (not safe)) (##length _g110588_)))) - (cond ((let () (declare (not safe)) (##fx= _g110587_ 2)) - (apply dump-stack-trace!__0 _g110588_)) - ((let () (declare (not safe)) (##fx= _g110587_ 3)) - (apply dump-stack-trace!__% _g110588_)) + (lambda _g111838_ + (let ((_g111837_ (let () (declare (not safe)) (##length _g111838_)))) + (cond ((let () (declare (not safe)) (##fx= _g111837_ 2)) + (apply dump-stack-trace!__0 _g111838_)) + ((let () (declare (not safe)) (##fx= _g111837_ 3)) + (apply dump-stack-trace!__% _g111838_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g110588_)))))) + _g111838_)))))) (define-type-of-thread actor-thread constructor: diff --git a/src/bootstrap/gerbil/runtime/util.ssi b/src/bootstrap/gerbil/runtime/util.ssi index d469b90c3..5cc3f7077 100644 --- a/src/bootstrap/gerbil/runtime/util.ssi +++ b/src/bootstrap/gerbil/runtime/util.ssi @@ -34,6 +34,12 @@ namespace: #f (%#define-runtime __create-directory* __create-directory*))) + (%#begin (%#define-runtime move-file__% move-file__%) + (%#begin (%#define-runtime move-file__0 move-file__0) + (%#define-runtime move-file move-file))) + (%#begin (%#define-runtime __move-file__% __move-file__%) + (%#begin (%#define-runtime __move-file__0 __move-file__0) + (%#define-runtime __move-file __move-file))) (%#define-runtime absent-obj absent-obj) (%#define-runtime absent-value absent-value) (%#define-runtime true true) diff --git a/src/bootstrap/gerbil/runtime/util.ssxi.ss b/src/bootstrap/gerbil/runtime/util.ssxi.ss index 856116992..a2bff9c97 100644 --- a/src/bootstrap/gerbil/runtime/util.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/util.ssxi.ss @@ -183,6 +183,124 @@ package: gerbil/runtime #f origin: gerbil/runtime/util)))) + (declare-type + move-file__% + (@lambda 3 + #f + signature: + (return: + void::t + effect: + #f + arguments: + (string::t string::t boolean::t) + unchecked: + __move-file + origin: + gerbil/runtime/util))) + (declare-type + move-file__0 + (@lambda 2 + #f + signature: + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + move-file + (@case-lambda + (2 + move-file__0 + signature: + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + (3 + move-file__% + signature: + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)))) + (declare-type + __move-file__% + (@lambda 3 + #f + signature: + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + __move-file__0 + (@lambda 2 + #f + signature: + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util))) + (declare-type + __move-file + (@case-lambda + (2 + __move-file__0 + signature: + (return: + void::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/util)) + (3 + __move-file__% + signature: + (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)) diff --git a/src/bootstrap/gerbil/runtime/util~0.scm b/src/bootstrap/gerbil/runtime/util~0.scm index 63087541f..54cb38cb5 100644 --- a/src/bootstrap/gerbil/runtime/util~0.scm +++ b/src/bootstrap/gerbil/runtime/util~0.scm @@ -1,24 +1,24 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1713631264) + (define gerbil/runtime/util::timestamp 1734357959) (begin (define raise-contract-violation-error error) (set! raise-contract-violation-error raise-contract-violation-error) (define displayln - (lambda _%args89377%_ + (lambda _%args90470%_ (let () - (let () (declare (not safe)) (##for-each display _%args89377%_)) + (let () (declare (not safe)) (##for-each display _%args90470%_)) (newline)))) (define display* - (lambda _%args89374%_ - (let () (declare (not safe)) (##for-each display _%args89374%_)))) + (lambda _%args90467%_ + (let () (declare (not safe)) (##for-each display _%args90467%_)))) (define file-newer? - (lambda (_%file189349%_ _%file289350%_) - (if (string? _%file189349%_) - (let ((_%file189354%_ _%file189349%_)) - (if (string? _%file289350%_) - (let ((_%file289364%_ _%file289350%_)) - (__file-newer? _%file189354%_ _%file289364%_)) + (lambda (_%file190442%_ _%file290443%_) + (if (string? _%file190442%_) + (let ((_%file190447%_ _%file190442%_)) + (if (string? _%file290443%_) + (let ((_%file290457%_ _%file290443%_)) + (__file-newer? _%file190447%_ _%file290457%_)) (begin (raise-contract-violation-error '"contract violation" @@ -27,7 +27,7 @@ 'contract: 'string? 'value: - _%file289350%_) + _%file290443%_) '#!void))) (begin (raise-contract-violation-error @@ -37,39 +37,39 @@ 'contract: 'string? 'value: - _%file189349%_) + _%file190442%_) '#!void)))) (define __file-newer? - (lambda (_%file189297%_ _%file289298%_) - (let* ((_%file189301%_ _%file189297%_) (_%file289309%_ _%file289298%_)) - (letrec ((_%modification-time89318%_ - (lambda (_%file89337%_) - (let ((_%file89340%_ _%file89337%_)) - (_%__modification-time89319%_ _%file89340%_)))) - (_%__modification-time89319%_ - (lambda (_%file89321%_) - (let* ((_%file89324%_ _%file89321%_) - (__tmp91107 - (let ((__tmp91108 + (lambda (_%file190390%_ _%file290391%_) + (let* ((_%file190394%_ _%file190390%_) (_%file290402%_ _%file290391%_)) + (letrec ((_%modification-time90411%_ + (lambda (_%file90430%_) + (let ((_%file90433%_ _%file90430%_)) + (_%__modification-time90412%_ _%file90433%_)))) + (_%__modification-time90412%_ + (lambda (_%file90414%_) + (let* ((_%file90417%_ _%file90414%_) + (__tmp92200 + (let ((__tmp92201 (let () (declare (not safe)) - (##file-info _%file89324%_ '#t)))) + (##file-info _%file90417%_ '#t)))) (declare (not safe)) (##file-info-last-modification-time - __tmp91108)))) + __tmp92201)))) (declare (not safe)) - (##time->seconds __tmp91107))))) - (let ((__tmp91110 (_%__modification-time89319%_ _%file189301%_)) - (__tmp91109 (_%__modification-time89319%_ _%file289309%_))) + (##time->seconds __tmp92200))))) + (let ((__tmp92203 (_%__modification-time90412%_ _%file190394%_)) + (__tmp92202 (_%__modification-time90412%_ _%file290402%_))) (declare (not safe)) - (##fl> __tmp91110 __tmp91109)))))) + (##fl> __tmp92203 __tmp92202)))))) (define create-directory*__% - (lambda (_%dir89262%_ _%perms89263%_) - (if (string? _%dir89262%_) - (let ((_%dir89267%_ _%dir89262%_)) - (if (fixnum? _%perms89263%_) - (let ((_%perms89277%_ _%perms89263%_)) - (__create-directory*__% _%dir89267%_ _%perms89277%_)) + (lambda (_%dir90355%_ _%perms90356%_) + (if (string? _%dir90355%_) + (let ((_%dir90360%_ _%dir90355%_)) + (if (fixnum? _%perms90356%_) + (let ((_%perms90370%_ _%perms90356%_)) + (__create-directory*__% _%dir90360%_ _%perms90370%_)) (begin (raise-contract-violation-error '"contract violation" @@ -78,7 +78,7 @@ 'contract: 'fixnum? 'value: - _%perms89263%_) + _%perms90356%_) '#!void))) (begin (raise-contract-violation-error @@ -88,2741 +88,2860 @@ 'contract: 'string? 'value: - _%dir89262%_) + _%dir90355%_) '#!void)))) (define create-directory*__0 - (lambda (_%dir89290%_) - (let ((_%perms89292%_ '493)) - (create-directory*__% _%dir89290%_ _%perms89292%_)))) + (lambda (_%dir90383%_) + (let ((_%perms90385%_ '493)) + (create-directory*__% _%dir90383%_ _%perms90385%_)))) (define create-directory* - (lambda _g91112_ - (let ((_g91111_ (let () (declare (not safe)) (##length _g91112_)))) - (cond ((let () (declare (not safe)) (##fx= _g91111_ 1)) - (apply create-directory*__0 _g91112_)) - ((let () (declare (not safe)) (##fx= _g91111_ 2)) - (apply create-directory*__% _g91112_)) + (lambda _g92205_ + (let ((_g92204_ (let () (declare (not safe)) (##length _g92205_)))) + (cond ((let () (declare (not safe)) (##fx= _g92204_ 1)) + (apply create-directory*__0 _g92205_)) + ((let () (declare (not safe)) (##fx= _g92204_ 2)) + (apply create-directory*__% _g92205_)) (else (##raise-wrong-number-of-arguments-exception create-directory* - _g91112_)))))) + _g92205_)))))) (define __create-directory*__% - (lambda (_%dir89186%_ _%perms89187%_) - (let* ((_%dir89190%_ _%dir89186%_) (_%perms89198%_ _%perms89187%_)) - (letrec ((_%create189207%_ - (lambda (_%path89239%_) - (let ((_%path89242%_ _%path89239%_)) - (_%__create189208%_ _%path89242%_)))) - (_%__create189208%_ - (lambda (_%path89220%_) - (let ((_%path89223%_ _%path89220%_)) + (lambda (_%dir90279%_ _%perms90280%_) + (let* ((_%dir90283%_ _%dir90279%_) (_%perms90291%_ _%perms90280%_)) + (letrec ((_%create190300%_ + (lambda (_%path90332%_) + (let ((_%path90335%_ _%path90332%_)) + (_%__create190301%_ _%path90335%_)))) + (_%__create190301%_ + (lambda (_%path90313%_) + (let ((_%path90316%_ _%path90313%_)) (if (let () (declare (not safe)) - (##file-exists? _%path89223%_)) - (if (eq? (file-type _%path89223%_) 'directory) + (##file-exists? _%path90316%_)) + (if (eq? (file-type _%path90316%_) 'directory) '#!void (error '"Path component is not a directory" - _%path89223%_)) - (if _%perms89198%_ + _%path90316%_)) + (if _%perms90291%_ (create-directory (cons 'path: - (cons _%path89223%_ + (cons _%path90316%_ (cons 'permissions: - (cons _%perms89198%_ + (cons _%perms90291%_ '()))))) - (create-directory _%path89223%_))))))) - (if (let () (declare (not safe)) (##file-exists? _%dir89190%_)) + (create-directory _%path90316%_))))))) + (if (let () (declare (not safe)) (##file-exists? _%dir90283%_)) '#!void - (let _%lp89210%_ ((_%start89212%_ '0)) - (let ((_%$e89214%_ - (__string-index__% _%dir89190%_ '#\/ _%start89212%_))) - (if _%$e89214%_ - ((lambda (_%x89217%_) + (let _%lp90303%_ ((_%start90305%_ '0)) + (let ((_%$e90307%_ + (__string-index__% _%dir90283%_ '#\/ _%start90305%_))) + (if _%$e90307%_ + ((lambda (_%x90310%_) (if (let () (declare (not safe)) - (##fx> _%x89217%_ '0)) - (_%__create189208%_ - (substring _%dir89190%_ '0 _%x89217%_)) + (##fx> _%x90310%_ '0)) + (_%__create190301%_ + (substring _%dir90283%_ '0 _%x90310%_)) '#!void) - (_%lp89210%_ + (_%lp90303%_ (let () (declare (not safe)) - (##fx+ _%x89217%_ '1)))) - _%$e89214%_) - (_%__create189208%_ _%dir89190%_))))) + (##fx+ _%x90310%_ '1)))) + _%$e90307%_) + (_%__create190301%_ _%dir90283%_))))) '#!void)))) (define __create-directory*__0 - (lambda (_%dir89254%_) - (let ((_%perms89256%_ '493)) - (__create-directory*__% _%dir89254%_ _%perms89256%_)))) + (lambda (_%dir90347%_) + (let ((_%perms90349%_ '493)) + (__create-directory*__% _%dir90347%_ _%perms90349%_)))) (define __create-directory* - (lambda _g91114_ - (let ((_g91113_ (let () (declare (not safe)) (##length _g91114_)))) - (cond ((let () (declare (not safe)) (##fx= _g91113_ 1)) - (apply __create-directory*__0 _g91114_)) - ((let () (declare (not safe)) (##fx= _g91113_ 2)) - (apply __create-directory*__% _g91114_)) + (lambda _g92207_ + (let ((_g92206_ (let () (declare (not safe)) (##length _g92207_)))) + (cond ((let () (declare (not safe)) (##fx= _g92206_ 1)) + (apply __create-directory*__0 _g92207_)) + ((let () (declare (not safe)) (##fx= _g92206_ 2)) + (apply __create-directory*__% _g92207_)) (else (##raise-wrong-number-of-arguments-exception __create-directory* - _g91114_)))))) + _g92207_)))))) + (define move-file__% + (lambda (_%src90230%_ _%dest90231%_ _%replace?90232%_) + (if (string? _%src90230%_) + (let ((_%src90236%_ _%src90230%_)) + (if (string? _%dest90231%_) + (let ((_%dest90246%_ _%dest90231%_)) + (if (boolean? _%replace?90232%_) + (let ((_%replace?90256%_ _%replace?90232%_)) + (__move-file__% + _%src90236%_ + _%dest90246%_ + _%replace?90256%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@99.51-99.59" + 'contract: + 'boolean? + 'value: + _%replace?90232%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@99.34-99.38" + 'contract: + 'string? + 'value: + _%dest90231%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/util.ss\"@99.18-99.21" + 'contract: + 'string? + 'value: + _%src90230%_) + '#!void)))) + (define move-file__0 + (lambda (_%src90269%_ _%dest90270%_) + (let ((_%replace?90272%_ '#t)) + (move-file__% _%src90269%_ _%dest90270%_ _%replace?90272%_)))) + (define move-file + (lambda _g92209_ + (let ((_g92208_ (let () (declare (not safe)) (##length _g92209_)))) + (cond ((let () (declare (not safe)) (##fx= _g92208_ 2)) + (apply move-file__0 _g92209_)) + ((let () (declare (not safe)) (##fx= _g92208_ 3)) + (apply move-file__% _g92209_)) + (else + (##raise-wrong-number-of-arguments-exception + move-file + _g92209_)))))) + (define __move-file__% + (lambda (_%src90173%_ _%dest90174%_ _%replace?90175%_) + (let* ((_%src90178%_ _%src90173%_) + (_%dest90186%_ _%dest90174%_) + (_%replace?90194%_ _%replace?90175%_)) + (letrec ((_%force-move-it90203%_ + (lambda () + (let ((_%tmp90209%_ + (if _%replace?90194%_ + (if (let () + (declare (not safe)) + (##file-exists? _%dest90186%_)) + (let ((__tmp92210 + (number->string + (let () + (declare (not safe)) + (##current-time-point))))) + (declare (not safe)) + (##string-append + _%dest90186%_ + '"." + __tmp92210)) + '#f) + '#f))) + (if _%tmp90209%_ + (rename-file _%dest90186%_ _%tmp90209%_) + '#!void) + (with-exception-catcher + (lambda (_%e90211%_) + (if _%tmp90209%_ + (rename-file _%tmp90209%_ _%dest90186%_ '#t) + '#!void) + (raise _%e90211%_)) + (lambda () + (let ((_%fi90214%_ + (let () + (declare (not safe)) + (##file-info _%src90178%_ '#f)))) + (if (eq? (let () + (declare (not safe)) + (##file-info-type _%fi90214%_)) + 'symbolic-link) + (let ((__tmp92211 + (path-normalize _%src90178%_))) + (declare (not safe)) + (##create-symbolic-link + __tmp92211 + _%dest90186%_)) + (let () + (declare (not safe)) + (##copy-file _%src90178%_ _%dest90186%_)))) + (let () + (declare (not safe)) + (##delete-file _%src90178%_)) + (if _%tmp90209%_ + (with-exception-catcher + void + (lambda () (delete-file _%tmp90209%_))) + '#!void))))))) + (with-exception-catcher + (lambda (_%e90205%_) + (if (let () (declare (not safe)) (##file-exists? _%src90178%_)) + (_%force-move-it90203%_) + (raise _%e90205%_))) + (lambda () + (let () + (declare (not safe)) + (##rename-file + _%src90178%_ + _%dest90186%_ + _%replace?90194%_)))) + '#!void)))) + (define __move-file__0 + (lambda (_%src90220%_ _%dest90221%_) + (let ((_%replace?90223%_ '#t)) + (__move-file__% _%src90220%_ _%dest90221%_ _%replace?90223%_)))) + (define __move-file + (lambda _g92213_ + (let ((_g92212_ (let () (declare (not safe)) (##length _g92213_)))) + (cond ((let () (declare (not safe)) (##fx= _g92212_ 2)) + (apply __move-file__0 _g92213_)) + ((let () (declare (not safe)) (##fx= _g92212_ 3)) + (apply __move-file__% _g92213_)) + (else + (##raise-wrong-number-of-arguments-exception + __move-file + _g92213_)))))) (define absent-obj (let () (declare (not safe)) (##absent-object))) (define absent-value '#(#!void)) - (define true (lambda _%ignore89182%_ '#t)) - (define true? (lambda (_%obj89179%_) (eq? _%obj89179%_ '#t))) - (define false (lambda _%ignore89176%_ '#f)) - (define void (lambda _%ignore89173%_ '#!void)) - (define void? (lambda (_%obj89170%_) (eq? _%obj89170%_ '#!void))) + (define true (lambda _%ignore90169%_ '#t)) + (define true? (lambda (_%obj90166%_) (eq? _%obj90166%_ '#t))) + (define false (lambda _%ignore90163%_ '#f)) + (define void (lambda _%ignore90160%_ '#!void)) + (define void? (lambda (_%obj90157%_) (eq? _%obj90157%_ '#!void))) (define dssl-object? - (lambda (_%obj89167%_) + (lambda (_%obj90154%_) (if (let () (declare (not safe)) - (##memq _%obj89167%_ '(#!key #!rest #!optional))) + (##memq _%obj90154%_ '(#!key #!rest #!optional))) '#t '#f))) - (define dssl-key-object? (lambda (_%obj89164%_) (eq? _%obj89164%_ '#!key))) + (define dssl-key-object? (lambda (_%obj90151%_) (eq? _%obj90151%_ '#!key))) (define dssl-rest-object? - (lambda (_%obj89161%_) (eq? _%obj89161%_ '#!rest))) + (lambda (_%obj90148%_) (eq? _%obj90148%_ '#!rest))) (define dssl-optional-object? - (lambda (_%obj89158%_) (eq? _%obj89158%_ '#!optional))) + (lambda (_%obj90145%_) (eq? _%obj90145%_ '#!optional))) (define immediate? - (lambda (_%obj89153%_) - (let* ((_%t89156%_ (let () (declare (not safe)) (##type _%obj89153%_))) - (__tmp91115 - (let () (declare (not safe)) (##fxand _%t89156%_ '1)))) + (lambda (_%obj90140%_) + (let* ((_%t90143%_ (let () (declare (not safe)) (##type _%obj90140%_))) + (__tmp92214 + (let () (declare (not safe)) (##fxand _%t90143%_ '1)))) (declare (not safe)) - (##fxzero? __tmp91115)))) + (##fxzero? __tmp92214)))) (define nonnegative-fixnum? - (lambda (_%obj89150%_) - (if (fixnum? _%obj89150%_) - (let () (declare (not safe)) (##fx>= _%obj89150%_ '0)) + (lambda (_%obj90137%_) + (if (fixnum? _%obj90137%_) + (let () (declare (not safe)) (##fx>= _%obj90137%_ '0)) '#f))) (define pair-or-null? - (lambda (_%obj89144%_) - (let ((_%$e89147%_ (pair? _%obj89144%_))) - (if _%$e89147%_ _%$e89147%_ (null? _%obj89144%_))))) + (lambda (_%obj90131%_) + (let ((_%$e90134%_ (pair? _%obj90131%_))) + (if _%$e90134%_ _%$e90134%_ (null? _%obj90131%_))))) (define values-count - (lambda (_%obj89141%_) - (if (let () (declare (not safe)) (##values? _%obj89141%_)) - (let () (declare (not safe)) (##vector-length _%obj89141%_)) + (lambda (_%obj90128%_) + (if (let () (declare (not safe)) (##values? _%obj90128%_)) + (let () (declare (not safe)) (##vector-length _%obj90128%_)) '1))) (define values-ref - (lambda (_%obj89126%_ _%k89127%_) - (if (fixnum? _%k89127%_) - (let ((_%k89131%_ _%k89127%_)) - (__values-ref _%obj89126%_ _%k89131%_)) + (lambda (_%obj90113%_ _%k90114%_) + (if (fixnum? _%k90114%_) + (let ((_%k90118%_ _%k90114%_)) + (__values-ref _%obj90113%_ _%k90118%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@200.23-200.24" + '"\"gerbil/runtime/util.ss\"@234.23-234.24" 'contract: 'fixnum? 'value: - _%k89127%_) + _%k90114%_) '#!void)))) (define __values-ref - (lambda (_%obj89113%_ _%k89114%_) - (let ((_%k89117%_ _%k89114%_)) - (if (let () (declare (not safe)) (##values? _%obj89113%_)) + (lambda (_%obj90100%_ _%k90101%_) + (let ((_%k90104%_ _%k90101%_)) + (if (let () (declare (not safe)) (##values? _%obj90100%_)) (let () (declare (not safe)) - (##vector-ref _%obj89113%_ _%k89117%_)) - _%obj89113%_)))) + (##vector-ref _%obj90100%_ _%k90104%_)) + _%obj90100%_)))) (define values->list - (lambda (_%obj89110%_) - (if (let () (declare (not safe)) (##values? _%obj89110%_)) - (let () (declare (not safe)) (##vector->list _%obj89110%_)) - (list _%obj89110%_)))) + (lambda (_%obj90097%_) + (if (let () (declare (not safe)) (##values? _%obj90097%_)) + (let () (declare (not safe)) (##vector->list _%obj90097%_)) + (list _%obj90097%_)))) (define foldl1 - (lambda (_%f89094%_ _%iv89095%_ _%lst89096%_) - (if (procedure? _%f89094%_) - (let ((_%f89100%_ _%f89094%_)) - (__foldl1 _%f89100%_ _%iv89095%_ _%lst89096%_)) + (lambda (_%f90081%_ _%iv90082%_ _%lst90083%_) + (if (procedure? _%f90081%_) + (let ((_%f90087%_ _%f90081%_)) + (__foldl1 _%f90087%_ _%iv90082%_ _%lst90083%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@223.15-223.16" + '"\"gerbil/runtime/util.ss\"@257.15-257.16" 'contract: 'procedure? 'value: - _%f89094%_) + _%f90081%_) '#!void)))) (define __foldl1 - (lambda (_%f89042%_ _%iv89043%_ _%lst89044%_) - (let ((_%f89047%_ _%f89042%_)) - (let _%lp89056%_ ((_%rest89058%_ _%lst89044%_) - (_%r89059%_ _%iv89043%_)) - (let* ((_%rest8906089068%_ _%rest89058%_) - (_%else8906289076%_ (lambda () _%r89059%_)) - (_%K8906489082%_ - (lambda (_%rest89079%_ _%x89080%_) - (_%lp89056%_ - _%rest89079%_ + (lambda (_%f90029%_ _%iv90030%_ _%lst90031%_) + (let ((_%f90034%_ _%f90029%_)) + (let _%lp90043%_ ((_%rest90045%_ _%lst90031%_) + (_%r90046%_ _%iv90030%_)) + (let* ((_%rest9004790055%_ _%rest90045%_) + (_%else9004990063%_ (lambda () _%r90046%_)) + (_%K9005190069%_ + (lambda (_%rest90066%_ _%x90067%_) + (_%lp90043%_ + _%rest90066%_ (let () (declare (not safe)) - (_%f89047%_ _%x89080%_ _%r89059%_)))))) - (if (pair? _%rest8906089068%_) - (let ((_%hd8906589085%_ + (_%f90034%_ _%x90067%_ _%r90046%_)))))) + (if (pair? _%rest9004790055%_) + (let ((_%hd9005290072%_ (let () (declare (not safe)) - (##car _%rest8906089068%_))) - (_%tl8906689087%_ + (##car _%rest9004790055%_))) + (_%tl9005390074%_ (let () (declare (not safe)) - (##cdr _%rest8906089068%_)))) - (let* ((_%x89090%_ _%hd8906589085%_) - (_%rest89092%_ _%tl8906689087%_)) - (_%K8906489082%_ _%rest89092%_ _%x89090%_))) - (_%else8906289076%_))))))) + (##cdr _%rest9004790055%_)))) + (let* ((_%x90077%_ _%hd9005290072%_) + (_%rest90079%_ _%tl9005390074%_)) + (_%K9005190069%_ _%rest90079%_ _%x90077%_))) + (_%else9004990063%_))))))) (define foldl2 - (lambda (_%f89025%_ _%iv89026%_ _%lst189027%_ _%lst289028%_) - (if (procedure? _%f89025%_) - (let ((_%f89032%_ _%f89025%_)) - (__foldl2 _%f89032%_ _%iv89026%_ _%lst189027%_ _%lst289028%_)) + (lambda (_%f90012%_ _%iv90013%_ _%lst190014%_ _%lst290015%_) + (if (procedure? _%f90012%_) + (let ((_%f90019%_ _%f90012%_)) + (__foldl2 _%f90019%_ _%iv90013%_ _%lst190014%_ _%lst290015%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@230.15-230.16" + '"\"gerbil/runtime/util.ss\"@264.15-264.16" 'contract: 'procedure? 'value: - _%f89025%_) + _%f90012%_) '#!void)))) (define __foldl2 - (lambda (_%f88938%_ _%iv88939%_ _%lst188940%_ _%lst288941%_) - (let ((_%f88944%_ _%f88938%_)) - (let _%lp88953%_ ((_%rest188955%_ _%lst188940%_) - (_%rest288956%_ _%lst288941%_) - (_%r88957%_ _%iv88939%_)) - (let* ((_%rest18895888966%_ _%rest188955%_) - (_%else8896088974%_ (lambda () _%r88957%_)) - (_%K8896289013%_ - (lambda (_%rest188977%_ _%x188978%_) - (let* ((_%rest28897988987%_ _%rest288956%_) - (_%else8898188995%_ (lambda () _%r88957%_)) - (_%K8898389001%_ - (lambda (_%rest288998%_ _%x288999%_) - (_%lp88953%_ - _%rest188977%_ - _%rest288998%_ + (lambda (_%f89925%_ _%iv89926%_ _%lst189927%_ _%lst289928%_) + (let ((_%f89931%_ _%f89925%_)) + (let _%lp89940%_ ((_%rest189942%_ _%lst189927%_) + (_%rest289943%_ _%lst289928%_) + (_%r89944%_ _%iv89926%_)) + (let* ((_%rest18994589953%_ _%rest189942%_) + (_%else8994789961%_ (lambda () _%r89944%_)) + (_%K8994990000%_ + (lambda (_%rest189964%_ _%x189965%_) + (let* ((_%rest28996689974%_ _%rest289943%_) + (_%else8996889982%_ (lambda () _%r89944%_)) + (_%K8997089988%_ + (lambda (_%rest289985%_ _%x289986%_) + (_%lp89940%_ + _%rest189964%_ + _%rest289985%_ (let () (declare (not safe)) - (_%f88944%_ - _%x188978%_ - _%x288999%_ - _%r88957%_)))))) - (if (pair? _%rest28897988987%_) - (let ((_%hd8898489004%_ + (_%f89931%_ + _%x189965%_ + _%x289986%_ + _%r89944%_)))))) + (if (pair? _%rest28996689974%_) + (let ((_%hd8997189991%_ (let () (declare (not safe)) - (##car _%rest28897988987%_))) - (_%tl8898589006%_ + (##car _%rest28996689974%_))) + (_%tl8997289993%_ (let () (declare (not safe)) - (##cdr _%rest28897988987%_)))) - (let* ((_%x289009%_ _%hd8898489004%_) - (_%rest289011%_ _%tl8898589006%_)) - (_%K8898389001%_ _%rest289011%_ _%x289009%_))) - (_%else8898188995%_)))))) - (if (pair? _%rest18895888966%_) - (let ((_%hd8896389016%_ + (##cdr _%rest28996689974%_)))) + (let* ((_%x289996%_ _%hd8997189991%_) + (_%rest289998%_ _%tl8997289993%_)) + (_%K8997089988%_ _%rest289998%_ _%x289996%_))) + (_%else8996889982%_)))))) + (if (pair? _%rest18994589953%_) + (let ((_%hd8995090003%_ (let () (declare (not safe)) - (##car _%rest18895888966%_))) - (_%tl8896489018%_ + (##car _%rest18994589953%_))) + (_%tl8995190005%_ (let () (declare (not safe)) - (##cdr _%rest18895888966%_)))) - (let* ((_%x189021%_ _%hd8896389016%_) - (_%rest189023%_ _%tl8896489018%_)) - (_%K8896289013%_ _%rest189023%_ _%x189021%_))) - (_%else8896088974%_))))))) + (##cdr _%rest18994589953%_)))) + (let* ((_%x190008%_ _%hd8995090003%_) + (_%rest190010%_ _%tl8995190005%_)) + (_%K8994990000%_ _%rest190010%_ _%x190008%_))) + (_%else8994789961%_))))))) (define foldl - (lambda _g91117_ - (let ((_g91116_ (let () (declare (not safe)) (##length _g91117_)))) - (cond ((let () (declare (not safe)) (##fx= _g91116_ 3)) - (apply foldl1 _g91117_)) - ((let () (declare (not safe)) (##fx= _g91116_ 4)) - (apply foldl2 _g91117_)) - ((let () (declare (not safe)) (##fx>= _g91116_ 4)) - (apply foldl* _g91117_)) + (lambda _g92216_ + (let ((_g92215_ (let () (declare (not safe)) (##length _g92216_)))) + (cond ((let () (declare (not safe)) (##fx= _g92215_ 3)) + (apply foldl1 _g92216_)) + ((let () (declare (not safe)) (##fx= _g92215_ 4)) + (apply foldl2 _g92216_)) + ((let () (declare (not safe)) (##fx>= _g92215_ 4)) + (apply foldl* _g92216_)) (else (##raise-wrong-number-of-arguments-exception foldl - _g91117_)))))) + _g92216_)))))) (define foldl* - (lambda (_%f88907%_ _%iv88908%_ . _%rest88909%_) - (if (procedure? _%f88907%_) - (let ((_%f88913%_ _%f88907%_)) + (lambda (_%f89894%_ _%iv89895%_ . _%rest89896%_) + (if (procedure? _%f89894%_) + (let ((_%f89900%_ _%f89894%_)) (declare (not safe)) - (##apply __foldl* _%f88913%_ _%iv88908%_ _%rest88909%_)) + (##apply __foldl* _%f89900%_ _%iv89895%_ _%rest89896%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@248.15-248.16" + '"\"gerbil/runtime/util.ss\"@282.15-282.16" 'contract: 'procedure? 'value: - _%f88907%_) + _%f89894%_) '#!void)))) (define __foldl* - (lambda (_%f88885%_ _%iv88886%_ . _%rest88887%_) - (let ((_%f88890%_ _%f88885%_)) - (let _%recur88899%_ ((_%iv88901%_ _%iv88886%_) - (_%rest88902%_ _%rest88887%_)) - (if (__andmap1 pair? _%rest88902%_) - (_%recur88899%_ - (let ((__tmp91118 + (lambda (_%f89872%_ _%iv89873%_ . _%rest89874%_) + (let ((_%f89877%_ _%f89872%_)) + (let _%recur89886%_ ((_%iv89888%_ _%iv89873%_) + (_%rest89889%_ _%rest89874%_)) + (if (__andmap1 pair? _%rest89889%_) + (_%recur89886%_ + (let ((__tmp92217 (__foldr1 - (lambda (_%xs88904%_ _%r88905%_) - (cons (car _%xs88904%_) _%r88905%_)) - (list _%iv88901%_) - _%rest88902%_))) + (lambda (_%xs89891%_ _%r89892%_) + (cons (car _%xs89891%_) _%r89892%_)) + (list _%iv89888%_) + _%rest89889%_))) (declare (not safe)) - (##apply _%f88890%_ __tmp91118)) - (map cdr _%rest88902%_)) - _%iv88901%_))))) + (##apply _%f89877%_ __tmp92217)) + (map cdr _%rest89889%_)) + _%iv89888%_))))) (define foldr1 - (lambda (_%f88869%_ _%iv88870%_ _%lst88871%_) - (if (procedure? _%f88869%_) - (let ((_%f88875%_ _%f88869%_)) - (__foldr1 _%f88875%_ _%iv88870%_ _%lst88871%_)) + (lambda (_%f89856%_ _%iv89857%_ _%lst89858%_) + (if (procedure? _%f89856%_) + (let ((_%f89862%_ _%f89856%_)) + (__foldr1 _%f89862%_ _%iv89857%_ _%lst89858%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@258.15-258.16" + '"\"gerbil/runtime/util.ss\"@292.15-292.16" 'contract: 'procedure? 'value: - _%f88869%_) + _%f89856%_) '#!void)))) (define __foldr1 - (lambda (_%f88818%_ _%iv88819%_ _%lst88820%_) - (let ((_%f88823%_ _%f88818%_)) - (let _%recur88832%_ ((_%rest88834%_ _%lst88820%_)) - (let* ((_%rest8883588843%_ _%rest88834%_) - (_%else8883788851%_ (lambda () _%iv88819%_)) - (_%K8883988857%_ - (lambda (_%rest88854%_ _%x88855%_) - (let ((__tmp91119 (_%recur88832%_ _%rest88854%_))) + (lambda (_%f89805%_ _%iv89806%_ _%lst89807%_) + (let ((_%f89810%_ _%f89805%_)) + (let _%recur89819%_ ((_%rest89821%_ _%lst89807%_)) + (let* ((_%rest8982289830%_ _%rest89821%_) + (_%else8982489838%_ (lambda () _%iv89806%_)) + (_%K8982689844%_ + (lambda (_%rest89841%_ _%x89842%_) + (let ((__tmp92218 (_%recur89819%_ _%rest89841%_))) (declare (not safe)) - (_%f88823%_ _%x88855%_ __tmp91119))))) - (if (pair? _%rest8883588843%_) - (let ((_%hd8884088860%_ + (_%f89810%_ _%x89842%_ __tmp92218))))) + (if (pair? _%rest8982289830%_) + (let ((_%hd8982789847%_ (let () (declare (not safe)) - (##car _%rest8883588843%_))) - (_%tl8884188862%_ + (##car _%rest8982289830%_))) + (_%tl8982889849%_ (let () (declare (not safe)) - (##cdr _%rest8883588843%_)))) - (let* ((_%x88865%_ _%hd8884088860%_) - (_%rest88867%_ _%tl8884188862%_)) - (_%K8883988857%_ _%rest88867%_ _%x88865%_))) - (_%else8883788851%_))))))) + (##cdr _%rest8982289830%_)))) + (let* ((_%x89852%_ _%hd8982789847%_) + (_%rest89854%_ _%tl8982889849%_)) + (_%K8982689844%_ _%rest89854%_ _%x89852%_))) + (_%else8982489838%_))))))) (define foldr2 - (lambda (_%f88801%_ _%iv88802%_ _%lst188803%_ _%lst288804%_) - (if (procedure? _%f88801%_) - (let ((_%f88808%_ _%f88801%_)) - (__foldr2 _%f88808%_ _%iv88802%_ _%lst188803%_ _%lst288804%_)) + (lambda (_%f89788%_ _%iv89789%_ _%lst189790%_ _%lst289791%_) + (if (procedure? _%f89788%_) + (let ((_%f89795%_ _%f89788%_)) + (__foldr2 _%f89795%_ _%iv89789%_ _%lst189790%_ _%lst289791%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@265.15-265.16" + '"\"gerbil/runtime/util.ss\"@299.15-299.16" 'contract: 'procedure? 'value: - _%f88801%_) + _%f89788%_) '#!void)))) (define __foldr2 - (lambda (_%f88715%_ _%iv88716%_ _%lst188717%_ _%lst288718%_) - (let ((_%f88721%_ _%f88715%_)) - (let _%recur88730%_ ((_%rest188732%_ _%lst188717%_) - (_%rest288733%_ _%lst288718%_)) - (let* ((_%rest18873488742%_ _%rest188732%_) - (_%else8873688750%_ (lambda () _%iv88716%_)) - (_%K8873888789%_ - (lambda (_%rest188753%_ _%x188754%_) - (let* ((_%rest28875588763%_ _%rest288733%_) - (_%else8875788771%_ (lambda () _%iv88716%_)) - (_%K8875988777%_ - (lambda (_%rest288774%_ _%x288775%_) - (let ((__tmp91120 - (_%recur88730%_ - _%rest188753%_ - _%rest288774%_))) + (lambda (_%f89702%_ _%iv89703%_ _%lst189704%_ _%lst289705%_) + (let ((_%f89708%_ _%f89702%_)) + (let _%recur89717%_ ((_%rest189719%_ _%lst189704%_) + (_%rest289720%_ _%lst289705%_)) + (let* ((_%rest18972189729%_ _%rest189719%_) + (_%else8972389737%_ (lambda () _%iv89703%_)) + (_%K8972589776%_ + (lambda (_%rest189740%_ _%x189741%_) + (let* ((_%rest28974289750%_ _%rest289720%_) + (_%else8974489758%_ (lambda () _%iv89703%_)) + (_%K8974689764%_ + (lambda (_%rest289761%_ _%x289762%_) + (let ((__tmp92219 + (_%recur89717%_ + _%rest189740%_ + _%rest289761%_))) (declare (not safe)) - (_%f88721%_ - _%x188754%_ - _%x288775%_ - __tmp91120))))) - (if (pair? _%rest28875588763%_) - (let ((_%hd8876088780%_ + (_%f89708%_ + _%x189741%_ + _%x289762%_ + __tmp92219))))) + (if (pair? _%rest28974289750%_) + (let ((_%hd8974789767%_ (let () (declare (not safe)) - (##car _%rest28875588763%_))) - (_%tl8876188782%_ + (##car _%rest28974289750%_))) + (_%tl8974889769%_ (let () (declare (not safe)) - (##cdr _%rest28875588763%_)))) - (let* ((_%x288785%_ _%hd8876088780%_) - (_%rest288787%_ _%tl8876188782%_)) - (_%K8875988777%_ _%rest288787%_ _%x288785%_))) - (_%else8875788771%_)))))) - (if (pair? _%rest18873488742%_) - (let ((_%hd8873988792%_ + (##cdr _%rest28974289750%_)))) + (let* ((_%x289772%_ _%hd8974789767%_) + (_%rest289774%_ _%tl8974889769%_)) + (_%K8974689764%_ _%rest289774%_ _%x289772%_))) + (_%else8974489758%_)))))) + (if (pair? _%rest18972189729%_) + (let ((_%hd8972689779%_ (let () (declare (not safe)) - (##car _%rest18873488742%_))) - (_%tl8874088794%_ + (##car _%rest18972189729%_))) + (_%tl8972789781%_ (let () (declare (not safe)) - (##cdr _%rest18873488742%_)))) - (let* ((_%x188797%_ _%hd8873988792%_) - (_%rest188799%_ _%tl8874088794%_)) - (_%K8873888789%_ _%rest188799%_ _%x188797%_))) - (_%else8873688750%_))))))) + (##cdr _%rest18972189729%_)))) + (let* ((_%x189784%_ _%hd8972689779%_) + (_%rest189786%_ _%tl8972789781%_)) + (_%K8972589776%_ _%rest189786%_ _%x189784%_))) + (_%else8972389737%_))))))) (define foldr - (lambda _g91122_ - (let ((_g91121_ (let () (declare (not safe)) (##length _g91122_)))) - (cond ((let () (declare (not safe)) (##fx= _g91121_ 3)) - (apply foldr1 _g91122_)) - ((let () (declare (not safe)) (##fx= _g91121_ 4)) - (apply foldr2 _g91122_)) - ((let () (declare (not safe)) (##fx>= _g91121_ 4)) - (apply foldr* _g91122_)) + (lambda _g92221_ + (let ((_g92220_ (let () (declare (not safe)) (##length _g92221_)))) + (cond ((let () (declare (not safe)) (##fx= _g92220_ 3)) + (apply foldr1 _g92221_)) + ((let () (declare (not safe)) (##fx= _g92220_ 4)) + (apply foldr2 _g92221_)) + ((let () (declare (not safe)) (##fx>= _g92220_ 4)) + (apply foldr* _g92221_)) (else (##raise-wrong-number-of-arguments-exception foldr - _g91122_)))))) + _g92221_)))))) (define foldr* - (lambda (_%f88684%_ _%iv88685%_ . _%rest88686%_) - (if (procedure? _%f88684%_) - (let ((_%f88690%_ _%f88684%_)) + (lambda (_%f89671%_ _%iv89672%_ . _%rest89673%_) + (if (procedure? _%f89671%_) + (let ((_%f89677%_ _%f89671%_)) (declare (not safe)) - (##apply __foldr* _%f88690%_ _%iv88685%_ _%rest88686%_)) + (##apply __foldr* _%f89677%_ _%iv89672%_ _%rest89673%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@283.15-283.16" + '"\"gerbil/runtime/util.ss\"@317.15-317.16" 'contract: 'procedure? 'value: - _%f88684%_) + _%f89671%_) '#!void)))) (define __foldr* - (lambda (_%f88663%_ _%iv88664%_ . _%rest88665%_) - (let ((_%f88668%_ _%f88663%_)) - (let _%recur88677%_ ((_%rest88679%_ _%rest88665%_)) - (if (__andmap1 pair? _%rest88679%_) - (let ((__tmp91123 + (lambda (_%f89650%_ _%iv89651%_ . _%rest89652%_) + (let ((_%f89655%_ _%f89650%_)) + (let _%recur89664%_ ((_%rest89666%_ _%rest89652%_)) + (if (__andmap1 pair? _%rest89666%_) + (let ((__tmp92222 (__foldr1 - (lambda (_%xs88681%_ _%r88682%_) - (cons (car _%xs88681%_) _%r88682%_)) - (list (_%recur88677%_ (map cdr _%rest88679%_))) - _%rest88679%_))) + (lambda (_%xs89668%_ _%r89669%_) + (cons (car _%xs89668%_) _%r89669%_)) + (list (_%recur89664%_ (map cdr _%rest89666%_))) + _%rest89666%_))) (declare (not safe)) - (##apply _%f88668%_ __tmp91123)) - _%iv88664%_))))) + (##apply _%f89655%_ __tmp92222)) + _%iv89651%_))))) (define remove-nulls! - (lambda (_%l88550%_) - (let* ((_%l8855188564%_ _%l88550%_) - (_%E8855588568%_ + (lambda (_%l89537%_) + (let* ((_%l8953889551%_ _%l89537%_) + (_%E8954289555%_ (lambda () (error '"No clause matching" - _%l8855188564%_ + _%l8953889551%_ '([[] . r]) '([_ . r]) '(_)) '#!void))) - (let ((_%K8856088653%_ - (lambda (_%r88651%_) (remove-nulls! _%r88651%_))) - (_%K8855788640%_ - (lambda (_%r88580%_) - (let _%loop88582%_ ((_%l88584%_ _%l88550%_) - (_%r88585%_ _%r88580%_)) - (let* ((_%r8858688599%_ _%r88585%_) - (_%E8859088603%_ + (let ((_%K8954789640%_ + (lambda (_%r89638%_) (remove-nulls! _%r89638%_))) + (_%K8954489627%_ + (lambda (_%r89567%_) + (let _%loop89569%_ ((_%l89571%_ _%l89537%_) + (_%r89572%_ _%r89567%_)) + (let* ((_%r8957389586%_ _%r89572%_) + (_%E8957789590%_ (lambda () (error '"No clause matching" - _%r8858688599%_ + _%r8957389586%_ '([[] . rr]) '([_ . rr]) '(_)) '#!void))) - (let ((_%K8859588630%_ - (lambda (_%rr88628%_) - (let ((__tmp91125 _%l88584%_) - (__tmp91124 (remove-nulls! _%rr88628%_))) + (let ((_%K8958289617%_ + (lambda (_%rr89615%_) + (let ((__tmp92224 _%l89571%_) + (__tmp92223 (remove-nulls! _%rr89615%_))) (declare (not safe)) - (##set-cdr! __tmp91125 __tmp91124)))) - (_%K8859288617%_ - (lambda (_%rr88615%_) - (_%loop88582%_ _%r88585%_ _%rr88615%_))) - (_%K8859188608%_ (lambda () '#!void))) - (if (pair? _%r8858688599%_) - (let ((_%tl8859788635%_ + (##set-cdr! __tmp92224 __tmp92223)))) + (_%K8957989604%_ + (lambda (_%rr89602%_) + (_%loop89569%_ _%r89572%_ _%rr89602%_))) + (_%K8957889595%_ (lambda () '#!void))) + (if (pair? _%r8957389586%_) + (let ((_%tl8958489622%_ (let () (declare (not safe)) - (##cdr _%r8858688599%_))) - (_%hd8859688633%_ + (##cdr _%r8957389586%_))) + (_%hd8958389620%_ (let () (declare (not safe)) - (##car _%r8858688599%_)))) - (if (null? _%hd8859688633%_) - (let ((_%rr88638%_ _%tl8859788635%_)) - (_%K8859588630%_ _%rr88638%_)) - (let ((_%rr88623%_ _%tl8859788635%_)) - (_%K8859288617%_ _%rr88623%_)))) + (##car _%r8957389586%_)))) + (if (null? _%hd8958389620%_) + (let ((_%rr89625%_ _%tl8958489622%_)) + (_%K8958289617%_ _%rr89625%_)) + (let ((_%rr89610%_ _%tl8958489622%_)) + (_%K8957989604%_ _%rr89610%_)))) '#!void)))) - _%l88550%_)) - (_%K8855688573%_ (lambda () _%l88550%_))) - (if (pair? _%l8855188564%_) - (let ((_%tl8856288658%_ - (let () (declare (not safe)) (##cdr _%l8855188564%_))) - (_%hd8856188656%_ - (let () (declare (not safe)) (##car _%l8855188564%_)))) - (if (null? _%hd8856188656%_) - (let ((_%r88661%_ _%tl8856288658%_)) - (remove-nulls! _%r88661%_)) - (let ((_%r88646%_ _%tl8856288658%_)) - (_%K8855788640%_ _%r88646%_)))) - (_%K8855688573%_)))))) + _%l89537%_)) + (_%K8954389560%_ (lambda () _%l89537%_))) + (if (pair? _%l8953889551%_) + (let ((_%tl8954989645%_ + (let () (declare (not safe)) (##cdr _%l8953889551%_))) + (_%hd8954889643%_ + (let () (declare (not safe)) (##car _%l8953889551%_)))) + (if (null? _%hd8954889643%_) + (let ((_%r89648%_ _%tl8954989645%_)) + (remove-nulls! _%r89648%_)) + (let ((_%r89633%_ _%tl8954989645%_)) + (_%K8954489627%_ _%r89633%_)))) + (_%K8954389560%_)))))) (define append1! - (lambda (_%l88535%_ _%x88536%_) - (let ((_%l288539%_ (cons _%x88536%_ '()))) - (if (pair? _%l88535%_) - (let ((_%l88541%_ _%l88535%_)) - (let ((__tmp91126 - (let () (declare (not safe)) (##last-pair _%l88541%_)))) + (lambda (_%l89522%_ _%x89523%_) + (let ((_%l289526%_ (cons _%x89523%_ '()))) + (if (pair? _%l89522%_) + (let ((_%l89528%_ _%l89522%_)) + (let ((__tmp92225 + (let () (declare (not safe)) (##last-pair _%l89528%_)))) (declare (not safe)) - (##set-cdr! __tmp91126 _%l288539%_)) - _%l88541%_) - _%l288539%_)))) + (##set-cdr! __tmp92225 _%l289526%_)) + _%l89528%_) + _%l289526%_)))) (define append-reverse-until - (lambda (_%pred88519%_ _%rhead88520%_ _%tail88521%_) - (if (procedure? _%pred88519%_) - (let ((_%pred88525%_ _%pred88519%_)) + (lambda (_%pred89506%_ _%rhead89507%_ _%tail89508%_) + (if (procedure? _%pred89506%_) + (let ((_%pred89512%_ _%pred89506%_)) (__append-reverse-until - _%pred88525%_ - _%rhead88520%_ - _%tail88521%_)) + _%pred89512%_ + _%rhead89507%_ + _%tail89508%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@323.29-323.33" + '"\"gerbil/runtime/util.ss\"@357.29-357.33" 'contract: 'procedure? 'value: - _%pred88519%_) + _%pred89506%_) '#!void)))) (define __append-reverse-until - (lambda (_%pred88461%_ _%rhead88462%_ _%tail88463%_) - (let ((_%pred88466%_ _%pred88461%_)) - (let _%loop88475%_ ((_%rhead88477%_ _%rhead88462%_) - (_%tail88478%_ _%tail88463%_)) - (let* ((_%rhead8848088489%_ _%rhead88477%_) - (_%E8848388493%_ + (lambda (_%pred89448%_ _%rhead89449%_ _%tail89450%_) + (let ((_%pred89453%_ _%pred89448%_)) + (let _%loop89462%_ ((_%rhead89464%_ _%rhead89449%_) + (_%tail89465%_ _%tail89450%_)) + (let* ((_%rhead8946789476%_ _%rhead89464%_) + (_%E8947089480%_ (lambda () (error '"No clause matching" - _%rhead8848088489%_ + _%rhead8946789476%_ '([]) '([a :: r])) '#!void))) - (let ((_%K8848788516%_ (lambda () (values '() _%tail88478%_))) - (_%K8848488500%_ - (lambda (_%r88497%_ _%a88498%_) + (let ((_%K8947489503%_ (lambda () (values '() _%tail89465%_))) + (_%K8947189487%_ + (lambda (_%r89484%_ _%a89485%_) (if (let () (declare (not safe)) - (_%pred88466%_ _%a88498%_)) - (values _%rhead88477%_ _%tail88478%_) - (_%loop88475%_ - _%r88497%_ - (cons _%a88498%_ _%tail88478%_)))))) - (let ((_%try-match8848288512%_ + (_%pred89453%_ _%a89485%_)) + (values _%rhead89464%_ _%tail89465%_) + (_%loop89462%_ + _%r89484%_ + (cons _%a89485%_ _%tail89465%_)))))) + (let ((_%try-match8946989499%_ (lambda () - (if (pair? _%rhead8848088489%_) - (let ((_%tl8848688505%_ + (if (pair? _%rhead8946789476%_) + (let ((_%tl8947389492%_ (let () (declare (not safe)) - (##cdr _%rhead8848088489%_))) - (_%hd8848588503%_ + (##cdr _%rhead8946789476%_))) + (_%hd8947289490%_ (let () (declare (not safe)) - (##car _%rhead8848088489%_)))) - (let ((_%a88508%_ _%hd8848588503%_) - (_%r88510%_ _%tl8848688505%_)) - (_%K8848488500%_ _%r88510%_ _%a88508%_))) - (_%E8848388493%_))))) - (if (null? _%rhead8848088489%_) - (_%K8848788516%_) - (_%try-match8848288512%_))))))))) + (##car _%rhead8946789476%_)))) + (let ((_%a89495%_ _%hd8947289490%_) + (_%r89497%_ _%tl8947389492%_)) + (_%K8947189487%_ _%r89497%_ _%a89495%_))) + (_%E8947089480%_))))) + (if (null? _%rhead8946789476%_) + (_%K8947489503%_) + (_%try-match8946989499%_))))))))) (define andmap1 - (lambda (_%f88446%_ _%lst88447%_) - (if (procedure? _%f88446%_) - (let ((_%f88451%_ _%f88446%_)) (__andmap1 _%f88451%_ _%lst88447%_)) + (lambda (_%f89433%_ _%lst89434%_) + (if (procedure? _%f89433%_) + (let ((_%f89438%_ _%f89433%_)) (__andmap1 _%f89438%_ _%lst89434%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@334.16-334.17" + '"\"gerbil/runtime/util.ss\"@368.16-368.17" 'contract: 'procedure? 'value: - _%f88446%_) + _%f89433%_) '#!void)))) (define __andmap1 - (lambda (_%f88395%_ _%lst88396%_) - (let ((_%f88399%_ _%f88395%_)) - (let _%lp88408%_ ((_%rest88410%_ _%lst88396%_)) - (let* ((_%rest8841288420%_ _%rest88410%_) - (_%else8841488428%_ (lambda () '#t)) - (_%K8841688434%_ - (lambda (_%rest88431%_ _%x88432%_) - (if (let () (declare (not safe)) (_%f88399%_ _%x88432%_)) - (_%lp88408%_ _%rest88431%_) + (lambda (_%f89382%_ _%lst89383%_) + (let ((_%f89386%_ _%f89382%_)) + (let _%lp89395%_ ((_%rest89397%_ _%lst89383%_)) + (let* ((_%rest8939989407%_ _%rest89397%_) + (_%else8940189415%_ (lambda () '#t)) + (_%K8940389421%_ + (lambda (_%rest89418%_ _%x89419%_) + (if (let () (declare (not safe)) (_%f89386%_ _%x89419%_)) + (_%lp89395%_ _%rest89418%_) '#f)))) - (if (pair? _%rest8841288420%_) - (let ((_%hd8841788437%_ + (if (pair? _%rest8939989407%_) + (let ((_%hd8940489424%_ (let () (declare (not safe)) - (##car _%rest8841288420%_))) - (_%tl8841888439%_ + (##car _%rest8939989407%_))) + (_%tl8940589426%_ (let () (declare (not safe)) - (##cdr _%rest8841288420%_)))) - (let* ((_%x88442%_ _%hd8841788437%_) - (_%rest88444%_ _%tl8841888439%_)) - (_%K8841688434%_ _%rest88444%_ _%x88442%_))) - (_%else8841488428%_))))))) + (##cdr _%rest8939989407%_)))) + (let* ((_%x89429%_ _%hd8940489424%_) + (_%rest89431%_ _%tl8940589426%_)) + (_%K8940389421%_ _%rest89431%_ _%x89429%_))) + (_%else8940189415%_))))))) (define andmap2 - (lambda (_%f88379%_ _%lst188380%_ _%lst288381%_) - (if (procedure? _%f88379%_) - (let ((_%f88385%_ _%f88379%_)) - (__andmap2 _%f88385%_ _%lst188380%_ _%lst288381%_)) + (lambda (_%f89366%_ _%lst189367%_ _%lst289368%_) + (if (procedure? _%f89366%_) + (let ((_%f89372%_ _%f89366%_)) + (__andmap2 _%f89372%_ _%lst189367%_ _%lst289368%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@343.16-343.17" + '"\"gerbil/runtime/util.ss\"@377.16-377.17" 'contract: 'procedure? 'value: - _%f88379%_) + _%f89366%_) '#!void)))) (define __andmap2 - (lambda (_%f88293%_ _%lst188294%_ _%lst288295%_) - (let ((_%f88298%_ _%f88293%_)) - (let _%lp88307%_ ((_%rest188309%_ _%lst188294%_) - (_%rest288310%_ _%lst288295%_)) - (let* ((_%rest18831288320%_ _%rest188309%_) - (_%else8831488328%_ (lambda () '#t)) - (_%K8831688367%_ - (lambda (_%rest188331%_ _%x188332%_) - (let* ((_%rest28833388341%_ _%rest288310%_) - (_%else8833588349%_ (lambda () '#t)) - (_%K8833788355%_ - (lambda (_%rest288352%_ _%x288353%_) + (lambda (_%f89280%_ _%lst189281%_ _%lst289282%_) + (let ((_%f89285%_ _%f89280%_)) + (let _%lp89294%_ ((_%rest189296%_ _%lst189281%_) + (_%rest289297%_ _%lst289282%_)) + (let* ((_%rest18929989307%_ _%rest189296%_) + (_%else8930189315%_ (lambda () '#t)) + (_%K8930389354%_ + (lambda (_%rest189318%_ _%x189319%_) + (let* ((_%rest28932089328%_ _%rest289297%_) + (_%else8932289336%_ (lambda () '#t)) + (_%K8932489342%_ + (lambda (_%rest289339%_ _%x289340%_) (if (let () (declare (not safe)) - (_%f88298%_ _%x188332%_ _%x288353%_)) - (_%lp88307%_ _%rest188331%_ _%rest288352%_) + (_%f89285%_ _%x189319%_ _%x289340%_)) + (_%lp89294%_ _%rest189318%_ _%rest289339%_) '#f)))) - (if (pair? _%rest28833388341%_) - (let ((_%hd8833888358%_ + (if (pair? _%rest28932089328%_) + (let ((_%hd8932589345%_ (let () (declare (not safe)) - (##car _%rest28833388341%_))) - (_%tl8833988360%_ + (##car _%rest28932089328%_))) + (_%tl8932689347%_ (let () (declare (not safe)) - (##cdr _%rest28833388341%_)))) - (let* ((_%x288363%_ _%hd8833888358%_) - (_%rest288365%_ _%tl8833988360%_)) - (_%K8833788355%_ _%rest288365%_ _%x288363%_))) - (_%else8833588349%_)))))) - (if (pair? _%rest18831288320%_) - (let ((_%hd8831788370%_ + (##cdr _%rest28932089328%_)))) + (let* ((_%x289350%_ _%hd8932589345%_) + (_%rest289352%_ _%tl8932689347%_)) + (_%K8932489342%_ _%rest289352%_ _%x289350%_))) + (_%else8932289336%_)))))) + (if (pair? _%rest18929989307%_) + (let ((_%hd8930489357%_ (let () (declare (not safe)) - (##car _%rest18831288320%_))) - (_%tl8831888372%_ + (##car _%rest18929989307%_))) + (_%tl8930589359%_ (let () (declare (not safe)) - (##cdr _%rest18831288320%_)))) - (let* ((_%x188375%_ _%hd8831788370%_) - (_%rest188377%_ _%tl8831888372%_)) - (_%K8831688367%_ _%rest188377%_ _%x188375%_))) - (_%else8831488328%_))))))) + (##cdr _%rest18929989307%_)))) + (let* ((_%x189362%_ _%hd8930489357%_) + (_%rest189364%_ _%tl8930589359%_)) + (_%K8930389354%_ _%rest189364%_ _%x189362%_))) + (_%else8930189315%_))))))) (define andmap - (lambda _g91128_ - (let ((_g91127_ (let () (declare (not safe)) (##length _g91128_)))) - (cond ((let () (declare (not safe)) (##fx= _g91127_ 2)) - (apply andmap1 _g91128_)) - ((let () (declare (not safe)) (##fx= _g91127_ 3)) - (apply andmap2 _g91128_)) - ((let () (declare (not safe)) (##fx>= _g91127_ 3)) - (apply andmap* _g91128_)) + (lambda _g92227_ + (let ((_g92226_ (let () (declare (not safe)) (##length _g92227_)))) + (cond ((let () (declare (not safe)) (##fx= _g92226_ 2)) + (apply andmap1 _g92227_)) + ((let () (declare (not safe)) (##fx= _g92226_ 3)) + (apply andmap2 _g92227_)) + ((let () (declare (not safe)) (##fx>= _g92226_ 3)) + (apply andmap* _g92227_)) (else (##raise-wrong-number-of-arguments-exception andmap - _g91128_)))))) + _g92227_)))))) (define andmap* - (lambda (_%f88266%_ . _%rest88267%_) - (if (procedure? _%f88266%_) - (let ((_%f88271%_ _%f88266%_)) + (lambda (_%f89253%_ . _%rest89254%_) + (if (procedure? _%f89253%_) + (let ((_%f89258%_ _%f89253%_)) (declare (not safe)) - (##apply __andmap* _%f88271%_ _%rest88267%_)) + (##apply __andmap* _%f89258%_ _%rest89254%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@363.16-363.17" + '"\"gerbil/runtime/util.ss\"@397.16-397.17" 'contract: 'procedure? 'value: - _%f88266%_) + _%f89253%_) '#!void)))) (define __andmap* - (lambda (_%f88248%_ . _%rest88249%_) - (let ((_%f88252%_ _%f88248%_)) - (let _%recur88261%_ ((_%rest88263%_ _%rest88249%_)) - (if (__andmap1 pair? _%rest88263%_) - (if (let ((__tmp91129 (map car _%rest88263%_))) + (lambda (_%f89235%_ . _%rest89236%_) + (let ((_%f89239%_ _%f89235%_)) + (let _%recur89248%_ ((_%rest89250%_ _%rest89236%_)) + (if (__andmap1 pair? _%rest89250%_) + (if (let ((__tmp92228 (map car _%rest89250%_))) (declare (not safe)) - (##apply _%f88252%_ __tmp91129)) - (_%recur88261%_ (map cdr _%rest88263%_)) + (##apply _%f89239%_ __tmp92228)) + (_%recur89248%_ (map cdr _%rest89250%_)) '#f) '#t))))) (define ormap1 - (lambda (_%f88233%_ _%lst88234%_) - (if (procedure? _%f88233%_) - (let ((_%f88238%_ _%f88233%_)) (__ormap1 _%f88238%_ _%lst88234%_)) + (lambda (_%f89220%_ _%lst89221%_) + (if (procedure? _%f89220%_) + (let ((_%f89225%_ _%f89220%_)) (__ormap1 _%f89225%_ _%lst89221%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@372.15-372.16" + '"\"gerbil/runtime/util.ss\"@406.15-406.16" 'contract: 'procedure? 'value: - _%f88233%_) + _%f89220%_) '#!void)))) (define __ormap1 - (lambda (_%f88180%_ _%lst88181%_) - (let ((_%f88184%_ _%f88180%_)) - (let _%lp88193%_ ((_%rest88195%_ _%lst88181%_)) - (let* ((_%rest8819688204%_ _%rest88195%_) - (_%else8819888212%_ (lambda () '#f)) - (_%K8820088221%_ - (lambda (_%rest88215%_ _%x88216%_) - (let ((_%$e88218%_ + (lambda (_%f89167%_ _%lst89168%_) + (let ((_%f89171%_ _%f89167%_)) + (let _%lp89180%_ ((_%rest89182%_ _%lst89168%_)) + (let* ((_%rest8918389191%_ _%rest89182%_) + (_%else8918589199%_ (lambda () '#f)) + (_%K8918789208%_ + (lambda (_%rest89202%_ _%x89203%_) + (let ((_%$e89205%_ (let () (declare (not safe)) - (_%f88184%_ _%x88216%_)))) - (if _%$e88218%_ - _%$e88218%_ - (_%lp88193%_ _%rest88215%_)))))) - (if (pair? _%rest8819688204%_) - (let ((_%hd8820188224%_ + (_%f89171%_ _%x89203%_)))) + (if _%$e89205%_ + _%$e89205%_ + (_%lp89180%_ _%rest89202%_)))))) + (if (pair? _%rest8918389191%_) + (let ((_%hd8918889211%_ (let () (declare (not safe)) - (##car _%rest8819688204%_))) - (_%tl8820288226%_ + (##car _%rest8918389191%_))) + (_%tl8918989213%_ (let () (declare (not safe)) - (##cdr _%rest8819688204%_)))) - (let* ((_%x88229%_ _%hd8820188224%_) - (_%rest88231%_ _%tl8820288226%_)) - (_%K8820088221%_ _%rest88231%_ _%x88229%_))) - (_%else8819888212%_))))))) + (##cdr _%rest8918389191%_)))) + (let* ((_%x89216%_ _%hd8918889211%_) + (_%rest89218%_ _%tl8918989213%_)) + (_%K8918789208%_ _%rest89218%_ _%x89216%_))) + (_%else8918589199%_))))))) (define ormap2 - (lambda (_%f88164%_ _%lst188165%_ _%lst288166%_) - (if (procedure? _%f88164%_) - (let ((_%f88170%_ _%f88164%_)) - (__ormap2 _%f88170%_ _%lst188165%_ _%lst288166%_)) + (lambda (_%f89151%_ _%lst189152%_ _%lst289153%_) + (if (procedure? _%f89151%_) + (let ((_%f89157%_ _%f89151%_)) + (__ormap2 _%f89157%_ _%lst189152%_ _%lst289153%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@379.15-379.16" + '"\"gerbil/runtime/util.ss\"@413.15-413.16" 'contract: 'procedure? 'value: - _%f88164%_) + _%f89151%_) '#!void)))) (define __ormap2 - (lambda (_%f88076%_ _%lst188077%_ _%lst288078%_) - (let ((_%f88081%_ _%f88076%_)) - (let _%lp88090%_ ((_%rest188092%_ _%lst188077%_) - (_%rest288093%_ _%lst288078%_)) - (let* ((_%rest18809488102%_ _%rest188092%_) - (_%else8809688110%_ (lambda () '#f)) - (_%K8809888152%_ - (lambda (_%rest188113%_ _%x188114%_) - (let* ((_%rest28811588123%_ _%rest288093%_) - (_%else8811788131%_ (lambda () '#f)) - (_%K8811988140%_ - (lambda (_%rest288134%_ _%x288135%_) - (let ((_%$e88137%_ + (lambda (_%f89063%_ _%lst189064%_ _%lst289065%_) + (let ((_%f89068%_ _%f89063%_)) + (let _%lp89077%_ ((_%rest189079%_ _%lst189064%_) + (_%rest289080%_ _%lst289065%_)) + (let* ((_%rest18908189089%_ _%rest189079%_) + (_%else8908389097%_ (lambda () '#f)) + (_%K8908589139%_ + (lambda (_%rest189100%_ _%x189101%_) + (let* ((_%rest28910289110%_ _%rest289080%_) + (_%else8910489118%_ (lambda () '#f)) + (_%K8910689127%_ + (lambda (_%rest289121%_ _%x289122%_) + (let ((_%$e89124%_ (let () (declare (not safe)) - (_%f88081%_ - _%x188114%_ - _%x288135%_)))) - (if _%$e88137%_ - _%$e88137%_ - (_%lp88090%_ - _%rest188113%_ - _%rest288134%_)))))) - (if (pair? _%rest28811588123%_) - (let ((_%hd8812088143%_ + (_%f89068%_ + _%x189101%_ + _%x289122%_)))) + (if _%$e89124%_ + _%$e89124%_ + (_%lp89077%_ + _%rest189100%_ + _%rest289121%_)))))) + (if (pair? _%rest28910289110%_) + (let ((_%hd8910789130%_ (let () (declare (not safe)) - (##car _%rest28811588123%_))) - (_%tl8812188145%_ + (##car _%rest28910289110%_))) + (_%tl8910889132%_ (let () (declare (not safe)) - (##cdr _%rest28811588123%_)))) - (let* ((_%x288148%_ _%hd8812088143%_) - (_%rest288150%_ _%tl8812188145%_)) - (_%K8811988140%_ _%rest288150%_ _%x288148%_))) - (_%else8811788131%_)))))) - (if (pair? _%rest18809488102%_) - (let ((_%hd8809988155%_ + (##cdr _%rest28910289110%_)))) + (let* ((_%x289135%_ _%hd8910789130%_) + (_%rest289137%_ _%tl8910889132%_)) + (_%K8910689127%_ _%rest289137%_ _%x289135%_))) + (_%else8910489118%_)))))) + (if (pair? _%rest18908189089%_) + (let ((_%hd8908689142%_ (let () (declare (not safe)) - (##car _%rest18809488102%_))) - (_%tl8810088157%_ + (##car _%rest18908189089%_))) + (_%tl8908789144%_ (let () (declare (not safe)) - (##cdr _%rest18809488102%_)))) - (let* ((_%x188160%_ _%hd8809988155%_) - (_%rest188162%_ _%tl8810088157%_)) - (_%K8809888152%_ _%rest188162%_ _%x188160%_))) - (_%else8809688110%_))))))) + (##cdr _%rest18908189089%_)))) + (let* ((_%x189147%_ _%hd8908689142%_) + (_%rest189149%_ _%tl8908789144%_)) + (_%K8908589139%_ _%rest189149%_ _%x189147%_))) + (_%else8908389097%_))))))) (define ormap - (lambda _g91131_ - (let ((_g91130_ (let () (declare (not safe)) (##length _g91131_)))) - (cond ((let () (declare (not safe)) (##fx= _g91130_ 2)) - (apply ormap1 _g91131_)) - ((let () (declare (not safe)) (##fx= _g91130_ 3)) - (apply ormap2 _g91131_)) - ((let () (declare (not safe)) (##fx>= _g91130_ 3)) - (apply ormap* _g91131_)) + (lambda _g92230_ + (let ((_g92229_ (let () (declare (not safe)) (##length _g92230_)))) + (cond ((let () (declare (not safe)) (##fx= _g92229_ 2)) + (apply ormap1 _g92230_)) + ((let () (declare (not safe)) (##fx= _g92229_ 3)) + (apply ormap2 _g92230_)) + ((let () (declare (not safe)) (##fx>= _g92229_ 3)) + (apply ormap* _g92230_)) (else (##raise-wrong-number-of-arguments-exception ormap - _g91131_)))))) + _g92230_)))))) (define ormap* - (lambda (_%f88049%_ . _%rest88050%_) - (if (procedure? _%f88049%_) - (let ((_%f88054%_ _%f88049%_)) + (lambda (_%f89036%_ . _%rest89037%_) + (if (procedure? _%f89036%_) + (let ((_%f89041%_ _%f89036%_)) (declare (not safe)) - (##apply __ormap* _%f88054%_ _%rest88050%_)) + (##apply __ormap* _%f89041%_ _%rest89037%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@397.15-397.16" + '"\"gerbil/runtime/util.ss\"@431.15-431.16" 'contract: 'procedure? 'value: - _%f88049%_) + _%f89036%_) '#!void)))) (define __ormap* - (lambda (_%f88029%_ . _%rest88030%_) - (let ((_%f88033%_ _%f88029%_)) - (let _%recur88042%_ ((_%rest88044%_ _%rest88030%_)) - (if (__andmap1 pair? _%rest88044%_) - (let ((_%$e88046%_ - (let ((__tmp91132 (map car _%rest88044%_))) + (lambda (_%f89016%_ . _%rest89017%_) + (let ((_%f89020%_ _%f89016%_)) + (let _%recur89029%_ ((_%rest89031%_ _%rest89017%_)) + (if (__andmap1 pair? _%rest89031%_) + (let ((_%$e89033%_ + (let ((__tmp92231 (map car _%rest89031%_))) (declare (not safe)) - (##apply _%f88033%_ __tmp91132)))) - (if _%$e88046%_ - _%$e88046%_ - (_%recur88042%_ (map cdr _%rest88044%_)))) + (##apply _%f89020%_ __tmp92231)))) + (if _%$e89033%_ + _%$e89033%_ + (_%recur89029%_ (map cdr _%rest89031%_)))) '#f))))) (define filter-map1 - (lambda (_%f88014%_ _%lst88015%_) - (if (procedure? _%f88014%_) - (let ((_%f88019%_ _%f88014%_)) - (__filter-map1 _%f88019%_ _%lst88015%_)) + (lambda (_%f89001%_ _%lst89002%_) + (if (procedure? _%f89001%_) + (let ((_%f89006%_ _%f89001%_)) + (__filter-map1 _%f89006%_ _%lst89002%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@404.20-404.21" + '"\"gerbil/runtime/util.ss\"@438.20-438.21" 'contract: 'procedure? 'value: - _%f88014%_) + _%f89001%_) '#!void)))) (define __filter-map1 - (lambda (_%f87957%_ _%lst87958%_) - (let ((_%f87961%_ _%f87957%_)) - (let _%recur87970%_ ((_%rest87972%_ _%lst87958%_)) - (let* ((_%rest8797487982%_ _%rest87972%_) - (_%else8797687990%_ (lambda () '())) - (_%K8797888002%_ - (lambda (_%rest87993%_ _%x87994%_) - (let ((_%$e87996%_ + (lambda (_%f88944%_ _%lst88945%_) + (let ((_%f88948%_ _%f88944%_)) + (let _%recur88957%_ ((_%rest88959%_ _%lst88945%_)) + (let* ((_%rest8896188969%_ _%rest88959%_) + (_%else8896388977%_ (lambda () '())) + (_%K8896588989%_ + (lambda (_%rest88980%_ _%x88981%_) + (let ((_%$e88983%_ (let () (declare (not safe)) - (_%f87961%_ _%x87994%_)))) - (if _%$e87996%_ - ((lambda (_%r87999%_) - (cons _%r87999%_ - (_%recur87970%_ _%rest87993%_))) - _%$e87996%_) - (_%recur87970%_ _%rest87993%_)))))) - (if (pair? _%rest8797487982%_) - (let ((_%hd8797988005%_ + (_%f88948%_ _%x88981%_)))) + (if _%$e88983%_ + ((lambda (_%r88986%_) + (cons _%r88986%_ + (_%recur88957%_ _%rest88980%_))) + _%$e88983%_) + (_%recur88957%_ _%rest88980%_)))))) + (if (pair? _%rest8896188969%_) + (let ((_%hd8896688992%_ (let () (declare (not safe)) - (##car _%rest8797487982%_))) - (_%tl8798088007%_ + (##car _%rest8896188969%_))) + (_%tl8896788994%_ (let () (declare (not safe)) - (##cdr _%rest8797487982%_)))) - (let* ((_%x88010%_ _%hd8797988005%_) - (_%rest88012%_ _%tl8798088007%_)) - (_%K8797888002%_ _%rest88012%_ _%x88010%_))) - (_%else8797687990%_))))))) + (##cdr _%rest8896188969%_)))) + (let* ((_%x88997%_ _%hd8896688992%_) + (_%rest88999%_ _%tl8896788994%_)) + (_%K8896588989%_ _%rest88999%_ _%x88997%_))) + (_%else8896388977%_))))))) (define filter-map2 - (lambda (_%f87941%_ _%lst187942%_ _%lst287943%_) - (if (procedure? _%f87941%_) - (let ((_%f87947%_ _%f87941%_)) - (__filter-map2 _%f87947%_ _%lst187942%_ _%lst287943%_)) + (lambda (_%f88928%_ _%lst188929%_ _%lst288930%_) + (if (procedure? _%f88928%_) + (let ((_%f88934%_ _%f88928%_)) + (__filter-map2 _%f88934%_ _%lst188929%_ _%lst288930%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@415.20-415.21" + '"\"gerbil/runtime/util.ss\"@449.20-449.21" 'contract: 'procedure? 'value: - _%f87941%_) + _%f88928%_) '#!void)))) (define __filter-map2 - (lambda (_%f87849%_ _%lst187850%_ _%lst287851%_) - (let ((_%f87854%_ _%f87849%_)) - (let _%recur87863%_ ((_%rest187865%_ _%lst187850%_) - (_%rest287866%_ _%lst287851%_)) - (let* ((_%rest18786887876%_ _%rest187865%_) - (_%else8787087884%_ (lambda () '())) - (_%K8787287929%_ - (lambda (_%rest187887%_ _%x187888%_) - (let* ((_%rest28788987897%_ _%rest287866%_) - (_%else8789187905%_ (lambda () '())) - (_%K8789387917%_ - (lambda (_%rest287908%_ _%x287909%_) - (let ((_%$e87911%_ + (lambda (_%f88836%_ _%lst188837%_ _%lst288838%_) + (let ((_%f88841%_ _%f88836%_)) + (let _%recur88850%_ ((_%rest188852%_ _%lst188837%_) + (_%rest288853%_ _%lst288838%_)) + (let* ((_%rest18885588863%_ _%rest188852%_) + (_%else8885788871%_ (lambda () '())) + (_%K8885988916%_ + (lambda (_%rest188874%_ _%x188875%_) + (let* ((_%rest28887688884%_ _%rest288853%_) + (_%else8887888892%_ (lambda () '())) + (_%K8888088904%_ + (lambda (_%rest288895%_ _%x288896%_) + (let ((_%$e88898%_ (let () (declare (not safe)) - (_%f87854%_ - _%x187888%_ - _%x287909%_)))) - (if _%$e87911%_ - ((lambda (_%r87914%_) - (cons _%r87914%_ - (_%recur87863%_ - _%rest187887%_ - _%rest287908%_))) - _%$e87911%_) - (_%recur87863%_ - _%rest187887%_ - _%rest287908%_)))))) - (if (pair? _%rest28788987897%_) - (let ((_%hd8789487920%_ + (_%f88841%_ + _%x188875%_ + _%x288896%_)))) + (if _%$e88898%_ + ((lambda (_%r88901%_) + (cons _%r88901%_ + (_%recur88850%_ + _%rest188874%_ + _%rest288895%_))) + _%$e88898%_) + (_%recur88850%_ + _%rest188874%_ + _%rest288895%_)))))) + (if (pair? _%rest28887688884%_) + (let ((_%hd8888188907%_ (let () (declare (not safe)) - (##car _%rest28788987897%_))) - (_%tl8789587922%_ + (##car _%rest28887688884%_))) + (_%tl8888288909%_ (let () (declare (not safe)) - (##cdr _%rest28788987897%_)))) - (let* ((_%x287925%_ _%hd8789487920%_) - (_%rest287927%_ _%tl8789587922%_)) - (_%K8789387917%_ _%rest287927%_ _%x287925%_))) - (_%else8789187905%_)))))) - (if (pair? _%rest18786887876%_) - (let ((_%hd8787387932%_ + (##cdr _%rest28887688884%_)))) + (let* ((_%x288912%_ _%hd8888188907%_) + (_%rest288914%_ _%tl8888288909%_)) + (_%K8888088904%_ _%rest288914%_ _%x288912%_))) + (_%else8887888892%_)))))) + (if (pair? _%rest18885588863%_) + (let ((_%hd8886088919%_ (let () (declare (not safe)) - (##car _%rest18786887876%_))) - (_%tl8787487934%_ + (##car _%rest18885588863%_))) + (_%tl8886188921%_ (let () (declare (not safe)) - (##cdr _%rest18786887876%_)))) - (let* ((_%x187937%_ _%hd8787387932%_) - (_%rest187939%_ _%tl8787487934%_)) - (_%K8787287929%_ _%rest187939%_ _%x187937%_))) - (_%else8787087884%_))))))) + (##cdr _%rest18885588863%_)))) + (let* ((_%x188924%_ _%hd8886088919%_) + (_%rest188926%_ _%tl8886188921%_)) + (_%K8885988916%_ _%rest188926%_ _%x188924%_))) + (_%else8885788871%_))))))) (define filter-map - (lambda _g91134_ - (let ((_g91133_ (let () (declare (not safe)) (##length _g91134_)))) - (cond ((let () (declare (not safe)) (##fx= _g91133_ 2)) - (apply filter-map1 _g91134_)) - ((let () (declare (not safe)) (##fx= _g91133_ 3)) - (apply filter-map2 _g91134_)) - ((let () (declare (not safe)) (##fx>= _g91133_ 3)) - (apply filter-map* _g91134_)) + (lambda _g92233_ + (let ((_g92232_ (let () (declare (not safe)) (##length _g92233_)))) + (cond ((let () (declare (not safe)) (##fx= _g92232_ 2)) + (apply filter-map1 _g92233_)) + ((let () (declare (not safe)) (##fx= _g92232_ 3)) + (apply filter-map2 _g92233_)) + ((let () (declare (not safe)) (##fx>= _g92232_ 3)) + (apply filter-map* _g92233_)) (else (##raise-wrong-number-of-arguments-exception filter-map - _g91134_)))))) + _g92233_)))))) (define filter-map* - (lambda (_%f87822%_ . _%rest87823%_) - (if (procedure? _%f87822%_) - (let ((_%f87827%_ _%f87822%_)) + (lambda (_%f88809%_ . _%rest88810%_) + (if (procedure? _%f88809%_) + (let ((_%f88814%_ _%f88809%_)) (declare (not safe)) - (##apply __filter-map* _%f87827%_ _%rest87823%_)) + (##apply __filter-map* _%f88814%_ _%rest88810%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@437.20-437.21" + '"\"gerbil/runtime/util.ss\"@471.20-471.21" 'contract: 'procedure? 'value: - _%f87822%_) + _%f88809%_) '#!void)))) (define __filter-map* - (lambda (_%f87798%_ . _%rest87799%_) - (let ((_%f87802%_ _%f87798%_)) - (let _%recur87811%_ ((_%rest87813%_ _%rest87799%_)) - (if (__andmap1 pair? _%rest87813%_) - (let ((_%$e87816%_ - (let ((__tmp91135 (map car _%rest87813%_))) + (lambda (_%f88785%_ . _%rest88786%_) + (let ((_%f88789%_ _%f88785%_)) + (let _%recur88798%_ ((_%rest88800%_ _%rest88786%_)) + (if (__andmap1 pair? _%rest88800%_) + (let ((_%$e88803%_ + (let ((__tmp92234 (map car _%rest88800%_))) (declare (not safe)) - (##apply _%f87802%_ __tmp91135)))) - (if _%$e87816%_ - ((lambda (_%r87819%_) - (cons _%r87819%_ - (_%recur87811%_ (map cdr _%rest87813%_)))) - _%$e87816%_) - (_%recur87811%_ (map cdr _%rest87813%_)))) + (##apply _%f88789%_ __tmp92234)))) + (if _%$e88803%_ + ((lambda (_%r88806%_) + (cons _%r88806%_ + (_%recur88798%_ (map cdr _%rest88800%_)))) + _%$e88803%_) + (_%recur88798%_ (map cdr _%rest88800%_)))) '()))))) (define agetq__% - (lambda (_%key87774%_ _%lst87776%_ _%default87778%_) - (let ((_%$e87781%_ - (if (pair? _%lst87776%_) (assq _%key87774%_ _%lst87776%_) '#f))) - (if _%$e87781%_ - (cdr _%$e87781%_) - (if (procedure? _%default87778%_) - (_%default87778%_ _%key87774%_) - _%default87778%_))))) + (lambda (_%key88761%_ _%lst88763%_ _%default88765%_) + (let ((_%$e88768%_ + (if (pair? _%lst88763%_) (assq _%key88761%_ _%lst88763%_) '#f))) + (if _%$e88768%_ + (cdr _%$e88768%_) + (if (procedure? _%default88765%_) + (_%default88765%_ _%key88761%_) + _%default88765%_))))) (define agetq__0 - (lambda (_%key87789%_ _%lst87790%_) - (let ((_%default87792%_ '#f)) - (agetq__% _%key87789%_ _%lst87790%_ _%default87792%_)))) + (lambda (_%key88776%_ _%lst88777%_) + (let ((_%default88779%_ '#f)) + (agetq__% _%key88776%_ _%lst88777%_ _%default88779%_)))) (define agetq - (lambda _g91137_ - (let ((_g91136_ (let () (declare (not safe)) (##length _g91137_)))) - (cond ((let () (declare (not safe)) (##fx= _g91136_ 2)) - (apply agetq__0 _g91137_)) - ((let () (declare (not safe)) (##fx= _g91136_ 3)) - (apply agetq__% _g91137_)) + (lambda _g92236_ + (let ((_g92235_ (let () (declare (not safe)) (##length _g92236_)))) + (cond ((let () (declare (not safe)) (##fx= _g92235_ 2)) + (apply agetq__0 _g92236_)) + ((let () (declare (not safe)) (##fx= _g92235_ 3)) + (apply agetq__% _g92236_)) (else (##raise-wrong-number-of-arguments-exception agetq - _g91137_)))))) + _g92236_)))))) (define agetv__% - (lambda (_%key87749%_ _%lst87751%_ _%default87753%_) - (let ((_%$e87756%_ - (if (pair? _%lst87751%_) (assv _%key87749%_ _%lst87751%_) '#f))) - (if _%$e87756%_ - (cdr _%$e87756%_) - (if (procedure? _%default87753%_) - (_%default87753%_ _%key87749%_) - _%default87753%_))))) + (lambda (_%key88736%_ _%lst88738%_ _%default88740%_) + (let ((_%$e88743%_ + (if (pair? _%lst88738%_) (assv _%key88736%_ _%lst88738%_) '#f))) + (if _%$e88743%_ + (cdr _%$e88743%_) + (if (procedure? _%default88740%_) + (_%default88740%_ _%key88736%_) + _%default88740%_))))) (define agetv__0 - (lambda (_%key87764%_ _%lst87765%_) - (let ((_%default87767%_ '#f)) - (agetv__% _%key87764%_ _%lst87765%_ _%default87767%_)))) + (lambda (_%key88751%_ _%lst88752%_) + (let ((_%default88754%_ '#f)) + (agetv__% _%key88751%_ _%lst88752%_ _%default88754%_)))) (define agetv - (lambda _g91139_ - (let ((_g91138_ (let () (declare (not safe)) (##length _g91139_)))) - (cond ((let () (declare (not safe)) (##fx= _g91138_ 2)) - (apply agetv__0 _g91139_)) - ((let () (declare (not safe)) (##fx= _g91138_ 3)) - (apply agetv__% _g91139_)) + (lambda _g92238_ + (let ((_g92237_ (let () (declare (not safe)) (##length _g92238_)))) + (cond ((let () (declare (not safe)) (##fx= _g92237_ 2)) + (apply agetv__0 _g92238_)) + ((let () (declare (not safe)) (##fx= _g92237_ 3)) + (apply agetv__% _g92238_)) (else (##raise-wrong-number-of-arguments-exception agetv - _g91139_)))))) + _g92238_)))))) (define aget__% - (lambda (_%key87724%_ _%lst87726%_ _%default87728%_) - (let ((_%$e87731%_ - (if (pair? _%lst87726%_) - (assoc _%key87724%_ _%lst87726%_) + (lambda (_%key88711%_ _%lst88713%_ _%default88715%_) + (let ((_%$e88718%_ + (if (pair? _%lst88713%_) + (assoc _%key88711%_ _%lst88713%_) '#f))) - (if _%$e87731%_ - (cdr _%$e87731%_) - (if (procedure? _%default87728%_) - (_%default87728%_ _%key87724%_) - _%default87728%_))))) + (if _%$e88718%_ + (cdr _%$e88718%_) + (if (procedure? _%default88715%_) + (_%default88715%_ _%key88711%_) + _%default88715%_))))) (define aget__0 - (lambda (_%key87739%_ _%lst87740%_) - (let ((_%default87742%_ '#f)) - (aget__% _%key87739%_ _%lst87740%_ _%default87742%_)))) + (lambda (_%key88726%_ _%lst88727%_) + (let ((_%default88729%_ '#f)) + (aget__% _%key88726%_ _%lst88727%_ _%default88729%_)))) (define aget - (lambda _g91141_ - (let ((_g91140_ (let () (declare (not safe)) (##length _g91141_)))) - (cond ((let () (declare (not safe)) (##fx= _g91140_ 2)) - (apply aget__0 _g91141_)) - ((let () (declare (not safe)) (##fx= _g91140_ 3)) - (apply aget__% _g91141_)) + (lambda _g92240_ + (let ((_g92239_ (let () (declare (not safe)) (##length _g92240_)))) + (cond ((let () (declare (not safe)) (##fx= _g92239_ 2)) + (apply aget__0 _g92240_)) + ((let () (declare (not safe)) (##fx= _g92239_ 3)) + (apply aget__% _g92240_)) (else (##raise-wrong-number-of-arguments-exception aget - _g91141_)))))) + _g92240_)))))) (define assgetq agetq) (define assgetv agetv) (define assget aget) (define pgetq__% - (lambda (_%key87653%_ _%lst87655%_ _%default87657%_) - (let _%lp87660%_ ((_%rest87663%_ _%lst87655%_)) - (let* ((_%rest8766587675%_ _%rest87663%_) - (_%else8766787683%_ + (lambda (_%key88640%_ _%lst88642%_ _%default88644%_) + (let _%lp88647%_ ((_%rest88650%_ _%lst88642%_)) + (let* ((_%rest8865288662%_ _%rest88650%_) + (_%else8865488670%_ (lambda () - (if (procedure? _%default87657%_) - (_%default87657%_ _%key87653%_) - _%default87657%_))) - (_%K8766987692%_ - (lambda (_%rest87686%_ _%v87687%_ _%k87689%_) - (if (eq? _%k87689%_ _%key87653%_) - _%v87687%_ - (_%lp87660%_ _%rest87686%_))))) - (if (pair? _%rest8766587675%_) - (let ((_%hd8767087695%_ + (if (procedure? _%default88644%_) + (_%default88644%_ _%key88640%_) + _%default88644%_))) + (_%K8865688679%_ + (lambda (_%rest88673%_ _%v88674%_ _%k88676%_) + (if (eq? _%k88676%_ _%key88640%_) + _%v88674%_ + (_%lp88647%_ _%rest88673%_))))) + (if (pair? _%rest8865288662%_) + (let ((_%hd8865788682%_ (let () (declare (not safe)) - (##car _%rest8766587675%_))) - (_%tl8767187697%_ + (##car _%rest8865288662%_))) + (_%tl8865888684%_ (let () (declare (not safe)) - (##cdr _%rest8766587675%_)))) - (let ((_%k87700%_ _%hd8767087695%_)) - (if (pair? _%tl8767187697%_) - (let ((_%hd8767287702%_ + (##cdr _%rest8865288662%_)))) + (let ((_%k88687%_ _%hd8865788682%_)) + (if (pair? _%tl8865888684%_) + (let ((_%hd8865988689%_ (let () (declare (not safe)) - (##car _%tl8767187697%_))) - (_%tl8767387704%_ + (##car _%tl8865888684%_))) + (_%tl8866088691%_ (let () (declare (not safe)) - (##cdr _%tl8767187697%_)))) - (let* ((_%v87707%_ _%hd8767287702%_) - (_%rest87709%_ _%tl8767387704%_)) - (_%K8766987692%_ - _%rest87709%_ - _%v87707%_ - _%k87700%_))) - (_%else8766787683%_)))) - (_%else8766787683%_)))))) + (##cdr _%tl8865888684%_)))) + (let* ((_%v88694%_ _%hd8865988689%_) + (_%rest88696%_ _%tl8866088691%_)) + (_%K8865688679%_ + _%rest88696%_ + _%v88694%_ + _%k88687%_))) + (_%else8865488670%_)))) + (_%else8865488670%_)))))) (define pgetq__0 - (lambda (_%key87714%_ _%lst87715%_) - (let ((_%default87717%_ '#f)) - (pgetq__% _%key87714%_ _%lst87715%_ _%default87717%_)))) + (lambda (_%key88701%_ _%lst88702%_) + (let ((_%default88704%_ '#f)) + (pgetq__% _%key88701%_ _%lst88702%_ _%default88704%_)))) (define pgetq - (lambda _g91143_ - (let ((_g91142_ (let () (declare (not safe)) (##length _g91143_)))) - (cond ((let () (declare (not safe)) (##fx= _g91142_ 2)) - (apply pgetq__0 _g91143_)) - ((let () (declare (not safe)) (##fx= _g91142_ 3)) - (apply pgetq__% _g91143_)) + (lambda _g92242_ + (let ((_g92241_ (let () (declare (not safe)) (##length _g92242_)))) + (cond ((let () (declare (not safe)) (##fx= _g92241_ 2)) + (apply pgetq__0 _g92242_)) + ((let () (declare (not safe)) (##fx= _g92241_ 3)) + (apply pgetq__% _g92242_)) (else (##raise-wrong-number-of-arguments-exception pgetq - _g91143_)))))) + _g92242_)))))) (define pgetv__% - (lambda (_%key87582%_ _%lst87584%_ _%default87586%_) - (let _%lp87589%_ ((_%rest87592%_ _%lst87584%_)) - (let* ((_%rest8759487604%_ _%rest87592%_) - (_%else8759687612%_ + (lambda (_%key88569%_ _%lst88571%_ _%default88573%_) + (let _%lp88576%_ ((_%rest88579%_ _%lst88571%_)) + (let* ((_%rest8858188591%_ _%rest88579%_) + (_%else8858388599%_ (lambda () - (if (procedure? _%default87586%_) - (_%default87586%_ _%key87582%_) - _%default87586%_))) - (_%K8759887621%_ - (lambda (_%rest87615%_ _%v87616%_ _%k87618%_) - (if (eqv? _%k87618%_ _%key87582%_) - _%v87616%_ - (_%lp87589%_ _%rest87615%_))))) - (if (pair? _%rest8759487604%_) - (let ((_%hd8759987624%_ + (if (procedure? _%default88573%_) + (_%default88573%_ _%key88569%_) + _%default88573%_))) + (_%K8858588608%_ + (lambda (_%rest88602%_ _%v88603%_ _%k88605%_) + (if (eqv? _%k88605%_ _%key88569%_) + _%v88603%_ + (_%lp88576%_ _%rest88602%_))))) + (if (pair? _%rest8858188591%_) + (let ((_%hd8858688611%_ (let () (declare (not safe)) - (##car _%rest8759487604%_))) - (_%tl8760087626%_ + (##car _%rest8858188591%_))) + (_%tl8858788613%_ (let () (declare (not safe)) - (##cdr _%rest8759487604%_)))) - (let ((_%k87629%_ _%hd8759987624%_)) - (if (pair? _%tl8760087626%_) - (let ((_%hd8760187631%_ + (##cdr _%rest8858188591%_)))) + (let ((_%k88616%_ _%hd8858688611%_)) + (if (pair? _%tl8858788613%_) + (let ((_%hd8858888618%_ (let () (declare (not safe)) - (##car _%tl8760087626%_))) - (_%tl8760287633%_ + (##car _%tl8858788613%_))) + (_%tl8858988620%_ (let () (declare (not safe)) - (##cdr _%tl8760087626%_)))) - (let* ((_%v87636%_ _%hd8760187631%_) - (_%rest87638%_ _%tl8760287633%_)) - (_%K8759887621%_ - _%rest87638%_ - _%v87636%_ - _%k87629%_))) - (_%else8759687612%_)))) - (_%else8759687612%_)))))) + (##cdr _%tl8858788613%_)))) + (let* ((_%v88623%_ _%hd8858888618%_) + (_%rest88625%_ _%tl8858988620%_)) + (_%K8858588608%_ + _%rest88625%_ + _%v88623%_ + _%k88616%_))) + (_%else8858388599%_)))) + (_%else8858388599%_)))))) (define pgetv__0 - (lambda (_%key87643%_ _%lst87644%_) - (let ((_%default87646%_ '#f)) - (pgetv__% _%key87643%_ _%lst87644%_ _%default87646%_)))) + (lambda (_%key88630%_ _%lst88631%_) + (let ((_%default88633%_ '#f)) + (pgetv__% _%key88630%_ _%lst88631%_ _%default88633%_)))) (define pgetv - (lambda _g91145_ - (let ((_g91144_ (let () (declare (not safe)) (##length _g91145_)))) - (cond ((let () (declare (not safe)) (##fx= _g91144_ 2)) - (apply pgetv__0 _g91145_)) - ((let () (declare (not safe)) (##fx= _g91144_ 3)) - (apply pgetv__% _g91145_)) + (lambda _g92244_ + (let ((_g92243_ (let () (declare (not safe)) (##length _g92244_)))) + (cond ((let () (declare (not safe)) (##fx= _g92243_ 2)) + (apply pgetv__0 _g92244_)) + ((let () (declare (not safe)) (##fx= _g92243_ 3)) + (apply pgetv__% _g92244_)) (else (##raise-wrong-number-of-arguments-exception pgetv - _g91145_)))))) + _g92244_)))))) (define pget__% - (lambda (_%key87511%_ _%lst87513%_ _%default87515%_) - (let _%lp87518%_ ((_%rest87521%_ _%lst87513%_)) - (let* ((_%rest8752387533%_ _%rest87521%_) - (_%else8752587541%_ + (lambda (_%key88498%_ _%lst88500%_ _%default88502%_) + (let _%lp88505%_ ((_%rest88508%_ _%lst88500%_)) + (let* ((_%rest8851088520%_ _%rest88508%_) + (_%else8851288528%_ (lambda () - (if (procedure? _%default87515%_) - (_%default87515%_ _%key87511%_) - _%default87515%_))) - (_%K8752787550%_ - (lambda (_%rest87544%_ _%v87545%_ _%k87547%_) - (if (equal? _%k87547%_ _%key87511%_) - _%v87545%_ - (_%lp87518%_ _%rest87544%_))))) - (if (pair? _%rest8752387533%_) - (let ((_%hd8752887553%_ + (if (procedure? _%default88502%_) + (_%default88502%_ _%key88498%_) + _%default88502%_))) + (_%K8851488537%_ + (lambda (_%rest88531%_ _%v88532%_ _%k88534%_) + (if (equal? _%k88534%_ _%key88498%_) + _%v88532%_ + (_%lp88505%_ _%rest88531%_))))) + (if (pair? _%rest8851088520%_) + (let ((_%hd8851588540%_ (let () (declare (not safe)) - (##car _%rest8752387533%_))) - (_%tl8752987555%_ + (##car _%rest8851088520%_))) + (_%tl8851688542%_ (let () (declare (not safe)) - (##cdr _%rest8752387533%_)))) - (let ((_%k87558%_ _%hd8752887553%_)) - (if (pair? _%tl8752987555%_) - (let ((_%hd8753087560%_ + (##cdr _%rest8851088520%_)))) + (let ((_%k88545%_ _%hd8851588540%_)) + (if (pair? _%tl8851688542%_) + (let ((_%hd8851788547%_ (let () (declare (not safe)) - (##car _%tl8752987555%_))) - (_%tl8753187562%_ + (##car _%tl8851688542%_))) + (_%tl8851888549%_ (let () (declare (not safe)) - (##cdr _%tl8752987555%_)))) - (let* ((_%v87565%_ _%hd8753087560%_) - (_%rest87567%_ _%tl8753187562%_)) - (_%K8752787550%_ - _%rest87567%_ - _%v87565%_ - _%k87558%_))) - (_%else8752587541%_)))) - (_%else8752587541%_)))))) + (##cdr _%tl8851688542%_)))) + (let* ((_%v88552%_ _%hd8851788547%_) + (_%rest88554%_ _%tl8851888549%_)) + (_%K8851488537%_ + _%rest88554%_ + _%v88552%_ + _%k88545%_))) + (_%else8851288528%_)))) + (_%else8851288528%_)))))) (define pget__0 - (lambda (_%key87572%_ _%lst87573%_) - (let ((_%default87575%_ '#f)) - (pget__% _%key87572%_ _%lst87573%_ _%default87575%_)))) + (lambda (_%key88559%_ _%lst88560%_) + (let ((_%default88562%_ '#f)) + (pget__% _%key88559%_ _%lst88560%_ _%default88562%_)))) (define pget - (lambda _g91147_ - (let ((_g91146_ (let () (declare (not safe)) (##length _g91147_)))) - (cond ((let () (declare (not safe)) (##fx= _g91146_ 2)) - (apply pget__0 _g91147_)) - ((let () (declare (not safe)) (##fx= _g91146_ 3)) - (apply pget__% _g91147_)) + (lambda _g92246_ + (let ((_g92245_ (let () (declare (not safe)) (##length _g92246_)))) + (cond ((let () (declare (not safe)) (##fx= _g92245_ 2)) + (apply pget__0 _g92246_)) + ((let () (declare (not safe)) (##fx= _g92245_ 3)) + (apply pget__% _g92246_)) (else (##raise-wrong-number-of-arguments-exception pget - _g91147_)))))) + _g92246_)))))) (define find - (lambda (_%pred87495%_ _%lst87496%_) - (if (procedure? _%pred87495%_) - (let ((_%pred87500%_ _%pred87495%_)) - (__find _%pred87500%_ _%lst87496%_)) + (lambda (_%pred88482%_ _%lst88483%_) + (if (procedure? _%pred88482%_) + (let ((_%pred88487%_ _%pred88482%_)) + (__find _%pred88487%_ _%lst88483%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@483.13-483.17" + '"\"gerbil/runtime/util.ss\"@517.13-517.17" 'contract: 'procedure? 'value: - _%pred87495%_) + _%pred88482%_) '#!void)))) (define __find - (lambda (_%pred87478%_ _%lst87479%_) - (let* ((_%pred87482%_ _%pred87478%_) - (_%$e87491%_ (__memf _%pred87482%_ _%lst87479%_))) - (if _%$e87491%_ - (let () (declare (not safe)) (##car _%$e87491%_)) + (lambda (_%pred88465%_ _%lst88466%_) + (let* ((_%pred88469%_ _%pred88465%_) + (_%$e88478%_ (__memf _%pred88469%_ _%lst88466%_))) + (if _%$e88478%_ + (let () (declare (not safe)) (##car _%$e88478%_)) '#f)))) (define memf - (lambda (_%proc87463%_ _%lst87464%_) - (if (procedure? _%proc87463%_) - (let ((_%proc87468%_ _%proc87463%_)) - (__memf _%proc87468%_ _%lst87464%_)) + (lambda (_%proc88450%_ _%lst88451%_) + (if (procedure? _%proc88450%_) + (let ((_%proc88455%_ _%proc88450%_)) + (__memf _%proc88455%_ _%lst88451%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@488.13-488.17" + '"\"gerbil/runtime/util.ss\"@522.13-522.17" 'contract: 'procedure? 'value: - _%proc87463%_) + _%proc88450%_) '#!void)))) (define __memf - (lambda (_%proc87413%_ _%lst87414%_) - (let ((_%proc87417%_ _%proc87413%_)) - (let _%lp87426%_ ((_%rest87428%_ _%lst87414%_)) - (let* ((_%rest8742987437%_ _%rest87428%_) - (_%else8743187445%_ (lambda () '#f)) - (_%K8743387451%_ - (lambda (_%tl87448%_ _%hd87449%_) + (lambda (_%proc88400%_ _%lst88401%_) + (let ((_%proc88404%_ _%proc88400%_)) + (let _%lp88413%_ ((_%rest88415%_ _%lst88401%_)) + (let* ((_%rest8841688424%_ _%rest88415%_) + (_%else8841888432%_ (lambda () '#f)) + (_%K8842088438%_ + (lambda (_%tl88435%_ _%hd88436%_) (if (let () (declare (not safe)) - (_%proc87417%_ _%hd87449%_)) - _%rest87428%_ - (_%lp87426%_ _%tl87448%_))))) - (if (pair? _%rest8742987437%_) - (let ((_%hd8743487454%_ + (_%proc88404%_ _%hd88436%_)) + _%rest88415%_ + (_%lp88413%_ _%tl88435%_))))) + (if (pair? _%rest8841688424%_) + (let ((_%hd8842188441%_ (let () (declare (not safe)) - (##car _%rest8742987437%_))) - (_%tl8743587456%_ + (##car _%rest8841688424%_))) + (_%tl8842288443%_ (let () (declare (not safe)) - (##cdr _%rest8742987437%_)))) - (let* ((_%hd87459%_ _%hd8743487454%_) - (_%tl87461%_ _%tl8743587456%_)) - (_%K8743387451%_ _%tl87461%_ _%hd87459%_))) - (_%else8743187445%_))))))) + (##cdr _%rest8841688424%_)))) + (let* ((_%hd88446%_ _%hd8842188441%_) + (_%tl88448%_ _%tl8842288443%_)) + (_%K8842088438%_ _%tl88448%_ _%hd88446%_))) + (_%else8841888432%_))))))) (define remove1 - (lambda (_%el87366%_ _%lst87368%_) - (let _%lp87371%_ ((_%rest87374%_ _%lst87368%_) (_%r87376%_ '())) - (let* ((_%rest8737887386%_ _%rest87374%_) - (_%else8738087394%_ (lambda () _%lst87368%_)) - (_%K8738287401%_ - (lambda (_%rest87397%_ _%hd87398%_) - (if (equal? _%el87366%_ _%hd87398%_) - (__foldl1 cons _%rest87397%_ _%r87376%_) - (_%lp87371%_ - _%rest87397%_ - (cons _%hd87398%_ _%r87376%_)))))) - (if (pair? _%rest8737887386%_) - (let ((_%hd8738387404%_ + (lambda (_%el88353%_ _%lst88355%_) + (let _%lp88358%_ ((_%rest88361%_ _%lst88355%_) (_%r88363%_ '())) + (let* ((_%rest8836588373%_ _%rest88361%_) + (_%else8836788381%_ (lambda () _%lst88355%_)) + (_%K8836988388%_ + (lambda (_%rest88384%_ _%hd88385%_) + (if (equal? _%el88353%_ _%hd88385%_) + (__foldl1 cons _%rest88384%_ _%r88363%_) + (_%lp88358%_ + _%rest88384%_ + (cons _%hd88385%_ _%r88363%_)))))) + (if (pair? _%rest8836588373%_) + (let ((_%hd8837088391%_ (let () (declare (not safe)) - (##car _%rest8737887386%_))) - (_%tl8738487406%_ + (##car _%rest8836588373%_))) + (_%tl8837188393%_ (let () (declare (not safe)) - (##cdr _%rest8737887386%_)))) - (let* ((_%hd87409%_ _%hd8738387404%_) - (_%rest87411%_ _%tl8738487406%_)) - (_%K8738287401%_ _%rest87411%_ _%hd87409%_))) - (_%else8738087394%_)))))) + (##cdr _%rest8836588373%_)))) + (let* ((_%hd88396%_ _%hd8837088391%_) + (_%rest88398%_ _%tl8837188393%_)) + (_%K8836988388%_ _%rest88398%_ _%hd88396%_))) + (_%else8836788381%_)))))) (define remv1 - (lambda (_%el87319%_ _%lst87321%_) - (let _%lp87324%_ ((_%rest87327%_ _%lst87321%_) (_%r87329%_ '())) - (let* ((_%rest8733187339%_ _%rest87327%_) - (_%else8733387347%_ (lambda () _%lst87321%_)) - (_%K8733587354%_ - (lambda (_%rest87350%_ _%hd87351%_) - (if (eqv? _%el87319%_ _%hd87351%_) - (__foldl1 cons _%rest87350%_ _%r87329%_) - (_%lp87324%_ - _%rest87350%_ - (cons _%hd87351%_ _%r87329%_)))))) - (if (pair? _%rest8733187339%_) - (let ((_%hd8733687357%_ + (lambda (_%el88306%_ _%lst88308%_) + (let _%lp88311%_ ((_%rest88314%_ _%lst88308%_) (_%r88316%_ '())) + (let* ((_%rest8831888326%_ _%rest88314%_) + (_%else8832088334%_ (lambda () _%lst88308%_)) + (_%K8832288341%_ + (lambda (_%rest88337%_ _%hd88338%_) + (if (eqv? _%el88306%_ _%hd88338%_) + (__foldl1 cons _%rest88337%_ _%r88316%_) + (_%lp88311%_ + _%rest88337%_ + (cons _%hd88338%_ _%r88316%_)))))) + (if (pair? _%rest8831888326%_) + (let ((_%hd8832388344%_ (let () (declare (not safe)) - (##car _%rest8733187339%_))) - (_%tl8733787359%_ + (##car _%rest8831888326%_))) + (_%tl8832488346%_ (let () (declare (not safe)) - (##cdr _%rest8733187339%_)))) - (let* ((_%hd87362%_ _%hd8733687357%_) - (_%rest87364%_ _%tl8733787359%_)) - (_%K8733587354%_ _%rest87364%_ _%hd87362%_))) - (_%else8733387347%_)))))) + (##cdr _%rest8831888326%_)))) + (let* ((_%hd88349%_ _%hd8832388344%_) + (_%rest88351%_ _%tl8832488346%_)) + (_%K8832288341%_ _%rest88351%_ _%hd88349%_))) + (_%else8832088334%_)))))) (define remq1 - (lambda (_%el87272%_ _%lst87274%_) - (let _%lp87277%_ ((_%rest87280%_ _%lst87274%_) (_%r87282%_ '())) - (let* ((_%rest8728487292%_ _%rest87280%_) - (_%else8728687300%_ (lambda () _%lst87274%_)) - (_%K8728887307%_ - (lambda (_%rest87303%_ _%hd87304%_) - (if (eq? _%el87272%_ _%hd87304%_) - (__foldl1 cons _%rest87303%_ _%r87282%_) - (_%lp87277%_ - _%rest87303%_ - (cons _%hd87304%_ _%r87282%_)))))) - (if (pair? _%rest8728487292%_) - (let ((_%hd8728987310%_ + (lambda (_%el88259%_ _%lst88261%_) + (let _%lp88264%_ ((_%rest88267%_ _%lst88261%_) (_%r88269%_ '())) + (let* ((_%rest8827188279%_ _%rest88267%_) + (_%else8827388287%_ (lambda () _%lst88261%_)) + (_%K8827588294%_ + (lambda (_%rest88290%_ _%hd88291%_) + (if (eq? _%el88259%_ _%hd88291%_) + (__foldl1 cons _%rest88290%_ _%r88269%_) + (_%lp88264%_ + _%rest88290%_ + (cons _%hd88291%_ _%r88269%_)))))) + (if (pair? _%rest8827188279%_) + (let ((_%hd8827688297%_ (let () (declare (not safe)) - (##car _%rest8728487292%_))) - (_%tl8729087312%_ + (##car _%rest8827188279%_))) + (_%tl8827788299%_ (let () (declare (not safe)) - (##cdr _%rest8728487292%_)))) - (let* ((_%hd87315%_ _%hd8728987310%_) - (_%rest87317%_ _%tl8729087312%_)) - (_%K8728887307%_ _%rest87317%_ _%hd87315%_))) - (_%else8728687300%_)))))) + (##cdr _%rest8827188279%_)))) + (let* ((_%hd88302%_ _%hd8827688297%_) + (_%rest88304%_ _%tl8827788299%_)) + (_%K8827588294%_ _%rest88304%_ _%hd88302%_))) + (_%else8827388287%_)))))) (define remf - (lambda (_%proc87257%_ _%lst87258%_) - (if (procedure? _%proc87257%_) - (let ((_%proc87262%_ _%proc87257%_)) - (__remf _%proc87262%_ _%lst87258%_)) + (lambda (_%proc88244%_ _%lst88245%_) + (if (procedure? _%proc88244%_) + (let ((_%proc88249%_ _%proc88244%_)) + (__remf _%proc88249%_ _%lst88245%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@510.13-510.17" + '"\"gerbil/runtime/util.ss\"@544.13-544.17" 'contract: 'procedure? 'value: - _%proc87257%_) + _%proc88244%_) '#!void)))) (define __remf - (lambda (_%proc87206%_ _%lst87207%_) - (let ((_%proc87210%_ _%proc87206%_)) - (let _%lp87219%_ ((_%rest87221%_ _%lst87207%_) (_%r87222%_ '())) - (let* ((_%rest8722387231%_ _%rest87221%_) - (_%else8722587239%_ (lambda () _%lst87207%_)) - (_%K8722787245%_ - (lambda (_%rest87242%_ _%hd87243%_) + (lambda (_%proc88193%_ _%lst88194%_) + (let ((_%proc88197%_ _%proc88193%_)) + (let _%lp88206%_ ((_%rest88208%_ _%lst88194%_) (_%r88209%_ '())) + (let* ((_%rest8821088218%_ _%rest88208%_) + (_%else8821288226%_ (lambda () _%lst88194%_)) + (_%K8821488232%_ + (lambda (_%rest88229%_ _%hd88230%_) (if (let () (declare (not safe)) - (_%proc87210%_ _%hd87243%_)) - (__foldl1 cons _%rest87242%_ _%r87222%_) - (_%lp87219%_ - _%rest87242%_ - (cons _%hd87243%_ _%r87222%_)))))) - (if (pair? _%rest8722387231%_) - (let ((_%hd8722887248%_ + (_%proc88197%_ _%hd88230%_)) + (__foldl1 cons _%rest88229%_ _%r88209%_) + (_%lp88206%_ + _%rest88229%_ + (cons _%hd88230%_ _%r88209%_)))))) + (if (pair? _%rest8821088218%_) + (let ((_%hd8821588235%_ (let () (declare (not safe)) - (##car _%rest8722387231%_))) - (_%tl8722987250%_ + (##car _%rest8821088218%_))) + (_%tl8821688237%_ (let () (declare (not safe)) - (##cdr _%rest8722387231%_)))) - (let* ((_%hd87253%_ _%hd8722887248%_) - (_%rest87255%_ _%tl8722987250%_)) - (_%K8722787245%_ _%rest87255%_ _%hd87253%_))) - (_%else8722587239%_))))))) + (##cdr _%rest8821088218%_)))) + (let* ((_%hd88240%_ _%hd8821588235%_) + (_%rest88242%_ _%tl8821688237%_)) + (_%K8821488232%_ _%rest88242%_ _%hd88240%_))) + (_%else8821288226%_))))))) (define 1+ - (lambda (_%x87192%_) - (if (number? _%x87192%_) - (let ((_%x87196%_ _%x87192%_)) (__1+ _%x87196%_)) + (lambda (_%x88179%_) + (if (number? _%x88179%_) + (let ((_%x88183%_ _%x88179%_)) (__1+ _%x88183%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@519.11-519.12" + '"\"gerbil/runtime/util.ss\"@553.11-553.12" 'contract: 'number? 'value: - _%x87192%_) + _%x88179%_) '#!void)))) (define __1+ - (lambda (_%x87180%_) (let ((_%x87183%_ _%x87180%_)) (+ _%x87183%_ '1)))) + (lambda (_%x88167%_) (let ((_%x88170%_ _%x88167%_)) (+ _%x88170%_ '1)))) (define 1- - (lambda (_%x87166%_) - (if (number? _%x87166%_) - (let ((_%x87170%_ _%x87166%_)) (__1- _%x87170%_)) + (lambda (_%x88153%_) + (if (number? _%x88153%_) + (let ((_%x88157%_ _%x88153%_)) (__1- _%x88157%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@527.11-527.12" + '"\"gerbil/runtime/util.ss\"@561.11-561.12" 'contract: 'number? 'value: - _%x87166%_) + _%x88153%_) '#!void)))) (define __1- - (lambda (_%x87154%_) (let ((_%x87157%_ _%x87154%_)) (- _%x87157%_ '1)))) + (lambda (_%x88141%_) (let ((_%x88144%_ _%x88141%_)) (- _%x88144%_ '1)))) (define fx1+ - (lambda (_%x87140%_) - (if (fixnum? _%x87140%_) - (let ((_%x87144%_ _%x87140%_)) (__fx1+ _%x87144%_)) + (lambda (_%x88127%_) + (if (fixnum? _%x88127%_) + (let ((_%x88131%_ _%x88127%_)) (__fx1+ _%x88131%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@535.13-535.14" + '"\"gerbil/runtime/util.ss\"@569.13-569.14" 'contract: 'fixnum? 'value: - _%x87140%_) + _%x88127%_) '#!void)))) (define __fx1+ - (lambda (_%x87128%_) - (let ((_%x87131%_ _%x87128%_)) + (lambda (_%x88115%_) + (let ((_%x88118%_ _%x88115%_)) (declare (not safe)) - (##fx+ _%x87131%_ '1)))) + (##fx+ _%x88118%_ '1)))) (define fx1- - (lambda (_%x87114%_) - (if (fixnum? _%x87114%_) - (let ((_%x87118%_ _%x87114%_)) (__fx1- _%x87118%_)) + (lambda (_%x88101%_) + (if (fixnum? _%x88101%_) + (let ((_%x88105%_ _%x88101%_)) (__fx1- _%x88105%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@543.13-543.14" + '"\"gerbil/runtime/util.ss\"@577.13-577.14" 'contract: 'fixnum? 'value: - _%x87114%_) + _%x88101%_) '#!void)))) (define __fx1- - (lambda (_%x87102%_) - (let ((_%x87105%_ _%x87102%_)) + (lambda (_%x88089%_) + (let ((_%x88092%_ _%x88089%_)) (declare (not safe)) - (##fx- _%x87105%_ '1)))) + (##fx- _%x88092%_ '1)))) (define fxshift fxarithmetic-shift) (define fx/ fxquotient) (define fx>=0? - (lambda (_%x87099%_) - (if (fixnum? _%x87099%_) - (let () (declare (not safe)) (##fx>= _%x87099%_ '0)) + (lambda (_%x88086%_) + (if (fixnum? _%x88086%_) + (let () (declare (not safe)) (##fx>= _%x88086%_ '0)) '#f))) (define fx>0? - (lambda (_%x87096%_) - (if (fixnum? _%x87096%_) - (let () (declare (not safe)) (##fx> _%x87096%_ '0)) + (lambda (_%x88083%_) + (if (fixnum? _%x88083%_) + (let () (declare (not safe)) (##fx> _%x88083%_ '0)) '#f))) (define fx=0? - (lambda (_%x87093%_) - (let () (declare (not safe)) (##fx= _%x87093%_ '0)))) + (lambda (_%x88080%_) + (let () (declare (not safe)) (##fx= _%x88080%_ '0)))) (define fx<0? - (lambda (_%x87090%_) - (if (fixnum? _%x87090%_) - (let () (declare (not safe)) (##fx< _%x87090%_ '0)) + (lambda (_%x88077%_) + (if (fixnum? _%x88077%_) + (let () (declare (not safe)) (##fx< _%x88077%_ '0)) '#f))) (define fx<=0? - (lambda (_%x87087%_) - (if (fixnum? _%x87087%_) - (let () (declare (not safe)) (##fx<= _%x87087%_ '0)) + (lambda (_%x88074%_) + (if (fixnum? _%x88074%_) + (let () (declare (not safe)) (##fx<= _%x88074%_ '0)) '#f))) (define interned-symbol? - (lambda (_%x87084%_) - (if (symbol? _%x87084%_) (not (uninterned-symbol? _%x87084%_)) '#f))) + (lambda (_%x88071%_) + (if (symbol? _%x88071%_) (not (uninterned-symbol? _%x88071%_)) '#f))) (define display-as-string - (lambda (_%x87069%_ _%port87070%_) - (if (output-port? _%port87070%_) - (let ((_%port87074%_ _%port87070%_)) - (__display-as-string _%x87069%_ _%port87074%_)) + (lambda (_%x88056%_ _%port88057%_) + (if (output-port? _%port88057%_) + (let ((_%port88061%_ _%port88057%_)) + (__display-as-string _%x88056%_ _%port88061%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@571.28-571.32" + '"\"gerbil/runtime/util.ss\"@605.28-605.32" 'contract: 'output-port? 'value: - _%port87070%_) + _%port88057%_) '#!void)))) (define __display-as-string - (lambda (_%x87026%_ _%port87027%_) - (let ((_%port87030%_ _%port87027%_)) - (if (or (string? _%x87026%_) - (symbol? _%x87026%_) - (keyword? _%x87026%_) - (number? _%x87026%_) - (char? _%x87026%_)) - (display _%x87026%_ _%port87030%_) - (if (pair? _%x87026%_) + (lambda (_%x88013%_ _%port88014%_) + (let ((_%port88017%_ _%port88014%_)) + (if (or (string? _%x88013%_) + (symbol? _%x88013%_) + (keyword? _%x88013%_) + (number? _%x88013%_) + (char? _%x88013%_)) + (display _%x88013%_ _%port88017%_) + (if (pair? _%x88013%_) (let () (__display-as-string - (let () (declare (not safe)) (##car _%x87026%_)) - _%port87030%_) + (let () (declare (not safe)) (##car _%x88013%_)) + _%port88017%_) (__display-as-string - (let () (declare (not safe)) (##cdr _%x87026%_)) - _%port87030%_)) - (if (vector? _%x87026%_) + (let () (declare (not safe)) (##cdr _%x88013%_)) + _%port88017%_)) + (if (vector? _%x88013%_) (vector-for-each - (lambda (_%g8705387055%_) - (__display-as-string _%g8705387055%_ _%port87030%_)) - _%x87026%_) - (if (or (null? _%x87026%_) - (eq? _%x87026%_ '#!void) - (eof-object? _%x87026%_) - (boolean? _%x87026%_)) + (lambda (_%g8804088042%_) + (__display-as-string _%g8804088042%_ _%port88017%_)) + _%x88013%_) + (if (or (null? _%x88013%_) + (eq? _%x88013%_ '#!void) + (eof-object? _%x88013%_) + (boolean? _%x88013%_)) '#!void (let () - (error '"cannot convert as string" _%x87026%_) + (error '"cannot convert as string" _%x88013%_) '#!void)))))))) (define as-string__0 - (lambda (_%x87009%_) - (if (string? _%x87009%_) - _%x87009%_ - (if (symbol? _%x87009%_) - (let () (declare (not safe)) (##symbol->string _%x87009%_)) - (if (keyword? _%x87009%_) + (lambda (_%x87996%_) + (if (string? _%x87996%_) + _%x87996%_ + (if (symbol? _%x87996%_) + (let () (declare (not safe)) (##symbol->string _%x87996%_)) + (if (keyword? _%x87996%_) (let () (declare (not safe)) - (##keyword->string _%x87009%_)) - (if (number? _%x87009%_) + (##keyword->string _%x87996%_)) + (if (number? _%x87996%_) (let () (declare (not safe)) - (##number->string _%x87009%_)) + (##number->string _%x87996%_)) (call-with-output-string '() - (lambda (_%g8701587017%_) + (lambda (_%g8800288004%_) (__display-as-string - _%x87009%_ - _%g8701587017%_))))))))) + _%x87996%_ + _%g8800288004%_))))))))) (define as-string__1 - (lambda _%args87020%_ + (lambda _%args88007%_ (call-with-output-string '() - (lambda (_%g8702187023%_) - (__display-as-string _%args87020%_ _%g8702187023%_))))) + (lambda (_%g8800888010%_) + (__display-as-string _%args88007%_ _%g8800888010%_))))) (define as-string - (lambda _g91149_ - (let ((_g91148_ (let () (declare (not safe)) (##length _g91149_)))) - (cond ((let () (declare (not safe)) (##fx= _g91148_ 1)) - (apply as-string__0 _g91149_)) + (lambda _g92248_ + (let ((_g92247_ (let () (declare (not safe)) (##length _g92248_)))) + (cond ((let () (declare (not safe)) (##fx= _g92247_ 1)) + (apply as-string__0 _g92248_)) (#t - (apply (lambda _%args87020%_ + (apply (lambda _%args88007%_ (let () (declare (not safe)) - (##apply as-string__1 _%args87020%_))) - _g91149_)) + (##apply as-string__1 _%args88007%_))) + _g92248_)) (else (##raise-wrong-number-of-arguments-exception as-string - _g91149_)))))) + _g92248_)))))) (define make-symbol__0 - (lambda (_%x87005%_) - (if (interned-symbol? _%x87005%_) - _%x87005%_ - (let ((__tmp91150 (as-string__0 _%x87005%_))) + (lambda (_%x87992%_) + (if (interned-symbol? _%x87992%_) + _%x87992%_ + (let ((__tmp92249 (as-string__0 _%x87992%_))) (declare (not safe)) - (##string->symbol __tmp91150))))) + (##string->symbol __tmp92249))))) (define make-symbol__1 - (lambda _%args87007%_ - (let ((__tmp91151 + (lambda _%args87994%_ + (let ((__tmp92250 (let () (declare (not safe)) - (##apply as-string _%args87007%_)))) + (##apply as-string _%args87994%_)))) (declare (not safe)) - (##string->symbol __tmp91151)))) + (##string->symbol __tmp92250)))) (define make-symbol - (lambda _g91153_ - (let ((_g91152_ (let () (declare (not safe)) (##length _g91153_)))) - (cond ((let () (declare (not safe)) (##fx= _g91152_ 1)) - (apply make-symbol__0 _g91153_)) + (lambda _g92252_ + (let ((_g92251_ (let () (declare (not safe)) (##length _g92252_)))) + (cond ((let () (declare (not safe)) (##fx= _g92251_ 1)) + (apply make-symbol__0 _g92252_)) (#t - (apply (lambda _%args87007%_ + (apply (lambda _%args87994%_ (let () (declare (not safe)) - (##apply make-symbol__1 _%args87007%_))) - _g91153_)) + (##apply make-symbol__1 _%args87994%_))) + _g92252_)) (else (##raise-wrong-number-of-arguments-exception make-symbol - _g91153_)))))) + _g92252_)))))) (define make-keyword__0 - (lambda (_%x87001%_) - (if (interned-keyword? _%x87001%_) - _%x87001%_ - (let ((__tmp91154 (as-string__0 _%x87001%_))) + (lambda (_%x87988%_) + (if (interned-keyword? _%x87988%_) + _%x87988%_ + (let ((__tmp92253 (as-string__0 _%x87988%_))) (declare (not safe)) - (##string->keyword __tmp91154))))) + (##string->keyword __tmp92253))))) (define make-keyword__1 - (lambda _%args87003%_ - (let ((__tmp91155 + (lambda _%args87990%_ + (let ((__tmp92254 (let () (declare (not safe)) - (##apply as-string _%args87003%_)))) + (##apply as-string _%args87990%_)))) (declare (not safe)) - (##string->keyword __tmp91155)))) + (##string->keyword __tmp92254)))) (define make-keyword - (lambda _g91157_ - (let ((_g91156_ (let () (declare (not safe)) (##length _g91157_)))) - (cond ((let () (declare (not safe)) (##fx= _g91156_ 1)) - (apply make-keyword__0 _g91157_)) + (lambda _g92256_ + (let ((_g92255_ (let () (declare (not safe)) (##length _g92256_)))) + (cond ((let () (declare (not safe)) (##fx= _g92255_ 1)) + (apply make-keyword__0 _g92256_)) (#t - (apply (lambda _%args87003%_ + (apply (lambda _%args87990%_ (let () (declare (not safe)) - (##apply make-keyword__1 _%args87003%_))) - _g91157_)) + (##apply make-keyword__1 _%args87990%_))) + _g92256_)) (else (##raise-wrong-number-of-arguments-exception make-keyword - _g91157_)))))) + _g92256_)))))) (define interned-keyword? - (lambda (_%x86998%_) - (if (keyword? _%x86998%_) (not (uninterned-keyword? _%x86998%_)) '#f))) + (lambda (_%x87985%_) + (if (keyword? _%x87985%_) (not (uninterned-keyword? _%x87985%_)) '#f))) (define symbol->keyword - (lambda (_%sym86984%_) - (if (symbol? _%sym86984%_) - (let ((_%sym86988%_ _%sym86984%_)) - (__symbol->keyword _%sym86988%_)) + (lambda (_%sym87971%_) + (if (symbol? _%sym87971%_) + (let ((_%sym87975%_ _%sym87971%_)) + (__symbol->keyword _%sym87975%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@614.24-614.27" + '"\"gerbil/runtime/util.ss\"@648.24-648.27" 'contract: 'symbol? 'value: - _%sym86984%_) + _%sym87971%_) '#!void)))) (define __symbol->keyword - (lambda (_%sym86972%_) - (let ((_%sym86975%_ _%sym86972%_)) - (if (uninterned-symbol? _%sym86975%_) - (let ((__tmp91158 + (lambda (_%sym87959%_) + (let ((_%sym87962%_ _%sym87959%_)) + (if (uninterned-symbol? _%sym87962%_) + (let ((__tmp92257 (let () (declare (not safe)) - (##symbol->string _%sym86975%_)))) + (##symbol->string _%sym87962%_)))) (declare (not safe)) - (##string->uninterned-keyword __tmp91158)) - (let ((__tmp91159 + (##string->uninterned-keyword __tmp92257)) + (let ((__tmp92258 (let () (declare (not safe)) - (##symbol->string _%sym86975%_)))) + (##symbol->string _%sym87962%_)))) (declare (not safe)) - (##string->keyword __tmp91159)))))) + (##string->keyword __tmp92258)))))) (define keyword->symbol - (lambda (_%sym86958%_) - (if (keyword? _%sym86958%_) - (let ((_%sym86962%_ _%sym86958%_)) - (__keyword->symbol _%sym86962%_)) + (lambda (_%sym87945%_) + (if (keyword? _%sym87945%_) + (let ((_%sym87949%_ _%sym87945%_)) + (__keyword->symbol _%sym87949%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@620.24-620.27" + '"\"gerbil/runtime/util.ss\"@654.24-654.27" 'contract: 'keyword? 'value: - _%sym86958%_) + _%sym87945%_) '#!void)))) (define __keyword->symbol - (lambda (_%sym86946%_) - (let ((_%sym86949%_ _%sym86946%_)) - (if (uninterned-keyword? _%sym86949%_) - (let ((__tmp91160 + (lambda (_%sym87933%_) + (let ((_%sym87936%_ _%sym87933%_)) + (if (uninterned-keyword? _%sym87936%_) + (let ((__tmp92259 (let () (declare (not safe)) - (##keyword->string _%sym86949%_)))) + (##keyword->string _%sym87936%_)))) (declare (not safe)) - (##string->uninterned-symbol __tmp91160)) - (let ((__tmp91161 + (##string->uninterned-symbol __tmp92259)) + (let ((__tmp92260 (let () (declare (not safe)) - (##keyword->string _%sym86949%_)))) + (##keyword->string _%sym87936%_)))) (declare (not safe)) - (##string->symbol __tmp91161)))))) + (##string->symbol __tmp92260)))))) (define bytes->string__% - (lambda (_%bstr86911%_ _%enc86912%_) - (if (u8vector? _%bstr86911%_) - (let ((_%bstr86916%_ _%bstr86911%_)) - (if (symbol? _%enc86912%_) - (let ((_%enc86926%_ _%enc86912%_)) - (__bytes->string__% _%bstr86916%_ _%enc86926%_)) + (lambda (_%bstr87898%_ _%enc87899%_) + (if (u8vector? _%bstr87898%_) + (let ((_%bstr87903%_ _%bstr87898%_)) + (if (symbol? _%enc87899%_) + (let ((_%enc87913%_ _%enc87899%_)) + (__bytes->string__% _%bstr87903%_ _%enc87913%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@627.25-627.28" + '"\"gerbil/runtime/util.ss\"@661.25-661.28" 'contract: 'symbol? 'value: - _%enc86912%_) + _%enc87899%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@626.22-626.26" + '"\"gerbil/runtime/util.ss\"@660.22-660.26" 'contract: 'u8vector? 'value: - _%bstr86911%_) + _%bstr87898%_) '#!void)))) (define bytes->string__0 - (lambda (_%bstr86939%_) - (let ((_%enc86941%_ 'UTF-8)) - (bytes->string__% _%bstr86939%_ _%enc86941%_)))) + (lambda (_%bstr87926%_) + (let ((_%enc87928%_ 'UTF-8)) + (bytes->string__% _%bstr87926%_ _%enc87928%_)))) (define bytes->string - (lambda _g91163_ - (let ((_g91162_ (let () (declare (not safe)) (##length _g91163_)))) - (cond ((let () (declare (not safe)) (##fx= _g91162_ 1)) - (apply bytes->string__0 _g91163_)) - ((let () (declare (not safe)) (##fx= _g91162_ 2)) - (apply bytes->string__% _g91163_)) + (lambda _g92262_ + (let ((_g92261_ (let () (declare (not safe)) (##length _g92262_)))) + (cond ((let () (declare (not safe)) (##fx= _g92261_ 1)) + (apply bytes->string__0 _g92262_)) + ((let () (declare (not safe)) (##fx= _g92261_ 2)) + (apply bytes->string__% _g92262_)) (else (##raise-wrong-number-of-arguments-exception bytes->string - _g91163_)))))) + _g92262_)))))) (define __bytes->string__% - (lambda (_%bstr86870%_ _%enc86871%_) - (let* ((_%bstr86874%_ _%bstr86870%_) (_%enc86882%_ _%enc86871%_)) - (if (eq? _%enc86882%_ 'UTF-8) - (let () (declare (not safe)) (##utf8->string _%bstr86874%_)) - (let* ((_%in86891%_ + (lambda (_%bstr87857%_ _%enc87858%_) + (let* ((_%bstr87861%_ _%bstr87857%_) (_%enc87869%_ _%enc87858%_)) + (if (eq? _%enc87869%_ 'UTF-8) + (let () (declare (not safe)) (##utf8->string _%bstr87861%_)) + (let* ((_%in87878%_ (open-input-u8vector (cons 'char-encoding: - (cons _%enc86882%_ - (cons 'init: (cons _%bstr86874%_ '())))))) - (_%len86893%_ + (cons _%enc87869%_ + (cons 'init: (cons _%bstr87861%_ '())))))) + (_%len87880%_ (let () (declare (not safe)) - (##u8vector-length _%bstr86874%_))) - (_%out86895%_ + (##u8vector-length _%bstr87861%_))) + (_%out87882%_ (let () (declare (not safe)) - (##make-string _%len86893%_))) - (_%n86897%_ + (##make-string _%len87880%_))) + (_%n87884%_ (read-substring - _%out86895%_ + _%out87882%_ '0 - _%len86893%_ - _%in86891%_))) - (string-shrink! _%out86895%_ _%n86897%_) - _%out86895%_))))) + _%len87880%_ + _%in87878%_))) + (string-shrink! _%out87882%_ _%n87884%_) + _%out87882%_))))) (define __bytes->string__0 - (lambda (_%bstr86903%_) - (let ((_%enc86905%_ 'UTF-8)) - (__bytes->string__% _%bstr86903%_ _%enc86905%_)))) + (lambda (_%bstr87890%_) + (let ((_%enc87892%_ 'UTF-8)) + (__bytes->string__% _%bstr87890%_ _%enc87892%_)))) (define __bytes->string - (lambda _g91165_ - (let ((_g91164_ (let () (declare (not safe)) (##length _g91165_)))) - (cond ((let () (declare (not safe)) (##fx= _g91164_ 1)) - (apply __bytes->string__0 _g91165_)) - ((let () (declare (not safe)) (##fx= _g91164_ 2)) - (apply __bytes->string__% _g91165_)) + (lambda _g92264_ + (let ((_g92263_ (let () (declare (not safe)) (##length _g92264_)))) + (cond ((let () (declare (not safe)) (##fx= _g92263_ 1)) + (apply __bytes->string__0 _g92264_)) + ((let () (declare (not safe)) (##fx= _g92263_ 2)) + (apply __bytes->string__% _g92264_)) (else (##raise-wrong-number-of-arguments-exception __bytes->string - _g91165_)))))) + _g92264_)))))) (define string->bytes__% - (lambda (_%str86834%_ _%enc86835%_) - (if (string? _%str86834%_) - (let ((_%str86839%_ _%str86834%_)) - (if (symbol? _%enc86835%_) - (let ((_%enc86849%_ _%enc86835%_)) - (__string->bytes__% _%str86839%_ _%enc86849%_)) + (lambda (_%str87821%_ _%enc87822%_) + (if (string? _%str87821%_) + (let ((_%str87826%_ _%str87821%_)) + (if (symbol? _%enc87822%_) + (let ((_%enc87836%_ _%enc87822%_)) + (__string->bytes__% _%str87826%_ _%enc87836%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@639.25-639.28" + '"\"gerbil/runtime/util.ss\"@673.25-673.28" 'contract: 'symbol? 'value: - _%enc86835%_) + _%enc87822%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@638.22-638.25" + '"\"gerbil/runtime/util.ss\"@672.22-672.25" 'contract: 'string? 'value: - _%str86834%_) + _%str87821%_) '#!void)))) (define string->bytes__0 - (lambda (_%str86862%_) - (let ((_%enc86864%_ 'UTF-8)) - (string->bytes__% _%str86862%_ _%enc86864%_)))) + (lambda (_%str87849%_) + (let ((_%enc87851%_ 'UTF-8)) + (string->bytes__% _%str87849%_ _%enc87851%_)))) (define string->bytes - (lambda _g91167_ - (let ((_g91166_ (let () (declare (not safe)) (##length _g91167_)))) - (cond ((let () (declare (not safe)) (##fx= _g91166_ 1)) - (apply string->bytes__0 _g91167_)) - ((let () (declare (not safe)) (##fx= _g91166_ 2)) - (apply string->bytes__% _g91167_)) + (lambda _g92266_ + (let ((_g92265_ (let () (declare (not safe)) (##length _g92266_)))) + (cond ((let () (declare (not safe)) (##fx= _g92265_ 1)) + (apply string->bytes__0 _g92266_)) + ((let () (declare (not safe)) (##fx= _g92265_ 2)) + (apply string->bytes__% _g92266_)) (else (##raise-wrong-number-of-arguments-exception string->bytes - _g91167_)))))) + _g92266_)))))) (define __string->bytes__% - (lambda (_%str86802%_ _%enc86803%_) - (let* ((_%str86806%_ _%str86802%_) (_%enc86814%_ _%enc86803%_)) - (if (eq? _%enc86814%_ 'UTF-8) - (let () (declare (not safe)) (##string->utf8 _%str86806%_)) + (lambda (_%str87789%_ _%enc87790%_) + (let* ((_%str87793%_ _%str87789%_) (_%enc87801%_ _%enc87790%_)) + (if (eq? _%enc87801%_ 'UTF-8) + (let () (declare (not safe)) (##string->utf8 _%str87793%_)) (__substring->bytes__% - _%str86806%_ + _%str87793%_ '0 - (let () (declare (not safe)) (##string-length _%str86806%_)) - _%enc86814%_))))) + (let () (declare (not safe)) (##string-length _%str87793%_)) + _%enc87801%_))))) (define __string->bytes__0 - (lambda (_%str86826%_) - (let ((_%enc86828%_ 'UTF-8)) - (__string->bytes__% _%str86826%_ _%enc86828%_)))) + (lambda (_%str87813%_) + (let ((_%enc87815%_ 'UTF-8)) + (__string->bytes__% _%str87813%_ _%enc87815%_)))) (define __string->bytes - (lambda _g91169_ - (let ((_g91168_ (let () (declare (not safe)) (##length _g91169_)))) - (cond ((let () (declare (not safe)) (##fx= _g91168_ 1)) - (apply __string->bytes__0 _g91169_)) - ((let () (declare (not safe)) (##fx= _g91168_ 2)) - (apply __string->bytes__% _g91169_)) + (lambda _g92268_ + (let ((_g92267_ (let () (declare (not safe)) (##length _g92268_)))) + (cond ((let () (declare (not safe)) (##fx= _g92267_ 1)) + (apply __string->bytes__0 _g92268_)) + ((let () (declare (not safe)) (##fx= _g92267_ 2)) + (apply __string->bytes__% _g92268_)) (else (##raise-wrong-number-of-arguments-exception __string->bytes - _g91169_)))))) + _g92268_)))))) (define substring->bytes__% - (lambda (_%str86750%_ _%start86751%_ _%end86752%_ _%enc86753%_) - (if (string? _%str86750%_) - (let ((_%str86757%_ _%str86750%_)) - (if (nonnegative-fixnum? _%start86751%_) - (let ((_%start86767%_ _%start86751%_)) - (if (nonnegative-fixnum? _%end86752%_) - (let ((_%end86777%_ _%end86752%_)) + (lambda (_%str87737%_ _%start87738%_ _%end87739%_ _%enc87740%_) + (if (string? _%str87737%_) + (let ((_%str87744%_ _%str87737%_)) + (if (nonnegative-fixnum? _%start87738%_) + (let ((_%start87754%_ _%start87738%_)) + (if (nonnegative-fixnum? _%end87739%_) + (let ((_%end87764%_ _%end87739%_)) (__substring->bytes__% - _%str86757%_ - _%start86767%_ - _%end86777%_ - _%enc86753%_)) + _%str87744%_ + _%start87754%_ + _%end87764%_ + _%enc87740%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@647.25-647.28" + '"\"gerbil/runtime/util.ss\"@681.25-681.28" 'contract: 'nonnegative-fixnum? 'value: - _%end86752%_) + _%end87739%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@646.25-646.30" + '"\"gerbil/runtime/util.ss\"@680.25-680.30" 'contract: 'nonnegative-fixnum? 'value: - _%start86751%_) + _%start87738%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@645.25-645.28" + '"\"gerbil/runtime/util.ss\"@679.25-679.28" 'contract: 'string? 'value: - _%str86750%_) + _%str87737%_) '#!void)))) (define substring->bytes__0 - (lambda (_%str86790%_ _%start86791%_ _%end86792%_) - (let ((_%enc86794%_ 'UTF-8)) + (lambda (_%str87777%_ _%start87778%_ _%end87779%_) + (let ((_%enc87781%_ 'UTF-8)) (substring->bytes__% - _%str86790%_ - _%start86791%_ - _%end86792%_ - _%enc86794%_)))) + _%str87777%_ + _%start87778%_ + _%end87779%_ + _%enc87781%_)))) (define substring->bytes - (lambda _g91171_ - (let ((_g91170_ (let () (declare (not safe)) (##length _g91171_)))) - (cond ((let () (declare (not safe)) (##fx= _g91170_ 3)) - (apply substring->bytes__0 _g91171_)) - ((let () (declare (not safe)) (##fx= _g91170_ 4)) - (apply substring->bytes__% _g91171_)) + (lambda _g92270_ + (let ((_g92269_ (let () (declare (not safe)) (##length _g92270_)))) + (cond ((let () (declare (not safe)) (##fx= _g92269_ 3)) + (apply substring->bytes__0 _g92270_)) + ((let () (declare (not safe)) (##fx= _g92269_ 4)) + (apply substring->bytes__% _g92270_)) (else (##raise-wrong-number-of-arguments-exception substring->bytes - _g91171_)))))) + _g92270_)))))) (define __substring->bytes__% - (lambda (_%str86702%_ _%start86703%_ _%end86704%_ _%enc86705%_) - (let* ((_%str86708%_ _%str86702%_) - (_%start86716%_ _%start86703%_) - (_%end86724%_ _%end86704%_)) - (if (eq? _%enc86705%_ 'UTF-8) - (string->utf8 _%str86708%_ _%start86716%_ _%end86724%_) - (let ((_%out86733%_ + (lambda (_%str87689%_ _%start87690%_ _%end87691%_ _%enc87692%_) + (let* ((_%str87695%_ _%str87689%_) + (_%start87703%_ _%start87690%_) + (_%end87711%_ _%end87691%_)) + (if (eq? _%enc87692%_ 'UTF-8) + (string->utf8 _%str87695%_ _%start87703%_ _%end87711%_) + (let ((_%out87720%_ (open-output-u8vector - (cons 'char-encoding: (cons _%enc86705%_ '()))))) + (cons 'char-encoding: (cons _%enc87692%_ '()))))) (write-substring - _%str86708%_ - _%start86716%_ - _%end86724%_ - _%out86733%_) - (get-output-u8vector _%out86733%_)))))) + _%str87695%_ + _%start87703%_ + _%end87711%_ + _%out87720%_) + (get-output-u8vector _%out87720%_)))))) (define __substring->bytes__0 - (lambda (_%str86738%_ _%start86739%_ _%end86740%_) - (let ((_%enc86742%_ 'UTF-8)) + (lambda (_%str87725%_ _%start87726%_ _%end87727%_) + (let ((_%enc87729%_ 'UTF-8)) (__substring->bytes__% - _%str86738%_ - _%start86739%_ - _%end86740%_ - _%enc86742%_)))) + _%str87725%_ + _%start87726%_ + _%end87727%_ + _%enc87729%_)))) (define __substring->bytes - (lambda _g91173_ - (let ((_g91172_ (let () (declare (not safe)) (##length _g91173_)))) - (cond ((let () (declare (not safe)) (##fx= _g91172_ 3)) - (apply __substring->bytes__0 _g91173_)) - ((let () (declare (not safe)) (##fx= _g91172_ 4)) - (apply __substring->bytes__% _g91173_)) + (lambda _g92272_ + (let ((_g92271_ (let () (declare (not safe)) (##length _g92272_)))) + (cond ((let () (declare (not safe)) (##fx= _g92271_ 3)) + (apply __substring->bytes__0 _g92272_)) + ((let () (declare (not safe)) (##fx= _g92271_ 4)) + (apply __substring->bytes__% _g92272_)) (else (##raise-wrong-number-of-arguments-exception __substring->bytes - _g91173_)))))) + _g92272_)))))) (define string-empty? - (lambda (_%str86687%_) - (if (string? _%str86687%_) - (let ((_%str86691%_ _%str86687%_)) (__string-empty? _%str86691%_)) + (lambda (_%str87674%_) + (if (string? _%str87674%_) + (let ((_%str87678%_ _%str87674%_)) (__string-empty? _%str87678%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@656.22-656.25" + '"\"gerbil/runtime/util.ss\"@690.22-690.25" 'contract: 'string? 'value: - _%str86687%_) + _%str87674%_) '#!void)))) (define __string-empty? - (lambda (_%str86675%_) - (let* ((_%str86678%_ _%str86675%_) - (__tmp91174 - (let () (declare (not safe)) (##string-length _%str86678%_)))) + (lambda (_%str87662%_) + (let* ((_%str87665%_ _%str87662%_) + (__tmp92273 + (let () (declare (not safe)) (##string-length _%str87665%_)))) (declare (not safe)) - (##fxzero? __tmp91174)))) + (##fxzero? __tmp92273)))) (define string-index__% - (lambda (_%str86627%_ _%char86628%_ _%start86629%_) - (if (string? _%str86627%_) - (let ((_%str86633%_ _%str86627%_)) - (if (char? _%char86628%_) - (let ((_%char86643%_ _%char86628%_)) - (if (nonnegative-fixnum? _%start86629%_) - (let ((_%start86653%_ _%start86629%_)) + (lambda (_%str87614%_ _%char87615%_ _%start87616%_) + (if (string? _%str87614%_) + (let ((_%str87620%_ _%str87614%_)) + (if (char? _%char87615%_) + (let ((_%char87630%_ _%char87615%_)) + (if (nonnegative-fixnum? _%start87616%_) + (let ((_%start87640%_ _%start87616%_)) (__string-index__% - _%str86633%_ - _%char86643%_ - _%start86653%_)) + _%str87620%_ + _%char87630%_ + _%start87640%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@662.21-662.26" + '"\"gerbil/runtime/util.ss\"@696.21-696.26" 'contract: 'nonnegative-fixnum? 'value: - _%start86629%_) + _%start87616%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@661.21-661.25" + '"\"gerbil/runtime/util.ss\"@695.21-695.25" 'contract: 'char? 'value: - _%char86628%_) + _%char87615%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@660.21-660.24" + '"\"gerbil/runtime/util.ss\"@694.21-694.24" 'contract: 'string? 'value: - _%str86627%_) + _%str87614%_) '#!void)))) (define string-index__0 - (lambda (_%str86666%_ _%char86667%_) - (let ((_%start86669%_ '0)) - (string-index__% _%str86666%_ _%char86667%_ _%start86669%_)))) + (lambda (_%str87653%_ _%char87654%_) + (let ((_%start87656%_ '0)) + (string-index__% _%str87653%_ _%char87654%_ _%start87656%_)))) (define string-index - (lambda _g91176_ - (let ((_g91175_ (let () (declare (not safe)) (##length _g91176_)))) - (cond ((let () (declare (not safe)) (##fx= _g91175_ 2)) - (apply string-index__0 _g91176_)) - ((let () (declare (not safe)) (##fx= _g91175_ 3)) - (apply string-index__% _g91176_)) + (lambda _g92275_ + (let ((_g92274_ (let () (declare (not safe)) (##length _g92275_)))) + (cond ((let () (declare (not safe)) (##fx= _g92274_ 2)) + (apply string-index__0 _g92275_)) + ((let () (declare (not safe)) (##fx= _g92274_ 3)) + (apply string-index__% _g92275_)) (else (##raise-wrong-number-of-arguments-exception string-index - _g91176_)))))) + _g92275_)))))) (define __string-index__% - (lambda (_%str86566%_ _%char86567%_ _%start86568%_) - (let* ((_%str86571%_ _%str86566%_) - (_%char86579%_ _%char86567%_) - (_%start86587%_ _%start86568%_) - (_%len86596%_ - (let () (declare (not safe)) (##string-length _%str86571%_)))) - (let _%lp86598%_ ((_%k86600%_ _%start86587%_)) - (let ((_%k86602%_ _%k86600%_)) - (if (let () (declare (not safe)) (##fx< _%k86602%_ _%len86596%_)) - (if (eq? _%char86579%_ + (lambda (_%str87553%_ _%char87554%_ _%start87555%_) + (let* ((_%str87558%_ _%str87553%_) + (_%char87566%_ _%char87554%_) + (_%start87574%_ _%start87555%_) + (_%len87583%_ + (let () (declare (not safe)) (##string-length _%str87558%_)))) + (let _%lp87585%_ ((_%k87587%_ _%start87574%_)) + (let ((_%k87589%_ _%k87587%_)) + (if (let () (declare (not safe)) (##fx< _%k87589%_ _%len87583%_)) + (if (eq? _%char87566%_ (let () (declare (not safe)) - (##string-ref _%str86571%_ _%k86602%_))) - _%k86602%_ - (_%lp86598%_ - (let () (declare (not safe)) (##fx+ _%k86602%_ '1)))) + (##string-ref _%str87558%_ _%k87589%_))) + _%k87589%_ + (_%lp87585%_ + (let () (declare (not safe)) (##fx+ _%k87589%_ '1)))) '#f)))))) (define __string-index__0 - (lambda (_%str86617%_ _%char86618%_) - (let ((_%start86620%_ '0)) - (__string-index__% _%str86617%_ _%char86618%_ _%start86620%_)))) + (lambda (_%str87604%_ _%char87605%_) + (let ((_%start87607%_ '0)) + (__string-index__% _%str87604%_ _%char87605%_ _%start87607%_)))) (define __string-index - (lambda _g91178_ - (let ((_g91177_ (let () (declare (not safe)) (##length _g91178_)))) - (cond ((let () (declare (not safe)) (##fx= _g91177_ 2)) - (apply __string-index__0 _g91178_)) - ((let () (declare (not safe)) (##fx= _g91177_ 3)) - (apply __string-index__% _g91178_)) + (lambda _g92277_ + (let ((_g92276_ (let () (declare (not safe)) (##length _g92277_)))) + (cond ((let () (declare (not safe)) (##fx= _g92276_ 2)) + (apply __string-index__0 _g92277_)) + ((let () (declare (not safe)) (##fx= _g92276_ 3)) + (apply __string-index__% _g92277_)) (else (##raise-wrong-number-of-arguments-exception __string-index - _g91178_)))))) + _g92277_)))))) (define string-rindex__% - (lambda (_%str86527%_ _%char86528%_ _%start86529%_) - (if (string? _%str86527%_) - (let ((_%str86533%_ _%str86527%_)) - (if (char? _%char86528%_) - (let ((_%char86543%_ _%char86528%_)) + (lambda (_%str87514%_ _%char87515%_ _%start87516%_) + (if (string? _%str87514%_) + (let ((_%str87520%_ _%str87514%_)) + (if (char? _%char87515%_) + (let ((_%char87530%_ _%char87515%_)) (__string-rindex__% - _%str86533%_ - _%char86543%_ - _%start86529%_)) + _%str87520%_ + _%char87530%_ + _%start87516%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@672.25-672.29" + '"\"gerbil/runtime/util.ss\"@706.25-706.29" 'contract: 'char? 'value: - _%char86528%_) + _%char87515%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@671.22-671.25" + '"\"gerbil/runtime/util.ss\"@705.22-705.25" 'contract: 'string? 'value: - _%str86527%_) + _%str87514%_) '#!void)))) (define string-rindex__0 - (lambda (_%str86556%_ _%char86557%_) - (let ((_%start86559%_ '#f)) - (string-rindex__% _%str86556%_ _%char86557%_ _%start86559%_)))) + (lambda (_%str87543%_ _%char87544%_) + (let ((_%start87546%_ '#f)) + (string-rindex__% _%str87543%_ _%char87544%_ _%start87546%_)))) (define string-rindex - (lambda _g91180_ - (let ((_g91179_ (let () (declare (not safe)) (##length _g91180_)))) - (cond ((let () (declare (not safe)) (##fx= _g91179_ 2)) - (apply string-rindex__0 _g91180_)) - ((let () (declare (not safe)) (##fx= _g91179_ 3)) - (apply string-rindex__% _g91180_)) + (lambda _g92279_ + (let ((_g92278_ (let () (declare (not safe)) (##length _g92279_)))) + (cond ((let () (declare (not safe)) (##fx= _g92278_ 2)) + (apply string-rindex__0 _g92279_)) + ((let () (declare (not safe)) (##fx= _g92278_ 3)) + (apply string-rindex__% _g92279_)) (else (##raise-wrong-number-of-arguments-exception string-rindex - _g91180_)))))) + _g92279_)))))) (define __string-rindex__% - (lambda (_%str86469%_ _%char86470%_ _%start86471%_) - (let* ((_%str86474%_ _%str86469%_) - (_%char86482%_ _%char86470%_) - (_%len86491%_ - (let () (declare (not safe)) (##string-length _%str86474%_))) - (_%start86493%_ - (if (fixnum? _%start86471%_) - _%start86471%_ - (let () (declare (not safe)) (##fx- _%len86491%_ '1))))) - (let _%lp86496%_ ((_%k86498%_ _%start86493%_)) - (let ((_%k86500%_ _%k86498%_)) - (if (let () (declare (not safe)) (##fx>= _%k86500%_ '0)) - (if (eq? _%char86482%_ + (lambda (_%str87456%_ _%char87457%_ _%start87458%_) + (let* ((_%str87461%_ _%str87456%_) + (_%char87469%_ _%char87457%_) + (_%len87478%_ + (let () (declare (not safe)) (##string-length _%str87461%_))) + (_%start87480%_ + (if (fixnum? _%start87458%_) + _%start87458%_ + (let () (declare (not safe)) (##fx- _%len87478%_ '1))))) + (let _%lp87483%_ ((_%k87485%_ _%start87480%_)) + (let ((_%k87487%_ _%k87485%_)) + (if (let () (declare (not safe)) (##fx>= _%k87487%_ '0)) + (if (eq? _%char87469%_ (let () (declare (not safe)) - (##string-ref _%str86474%_ _%k86500%_))) - _%k86500%_ - (_%lp86496%_ - (let () (declare (not safe)) (##fx- _%k86500%_ '1)))) + (##string-ref _%str87461%_ _%k87487%_))) + _%k87487%_ + (_%lp87483%_ + (let () (declare (not safe)) (##fx- _%k87487%_ '1)))) '#f)))))) (define __string-rindex__0 - (lambda (_%str86517%_ _%char86518%_) - (let ((_%start86520%_ '#f)) - (__string-rindex__% _%str86517%_ _%char86518%_ _%start86520%_)))) + (lambda (_%str87504%_ _%char87505%_) + (let ((_%start87507%_ '#f)) + (__string-rindex__% _%str87504%_ _%char87505%_ _%start87507%_)))) (define __string-rindex - (lambda _g91182_ - (let ((_g91181_ (let () (declare (not safe)) (##length _g91182_)))) - (cond ((let () (declare (not safe)) (##fx= _g91181_ 2)) - (apply __string-rindex__0 _g91182_)) - ((let () (declare (not safe)) (##fx= _g91181_ 3)) - (apply __string-rindex__% _g91182_)) + (lambda _g92281_ + (let ((_g92280_ (let () (declare (not safe)) (##length _g92281_)))) + (cond ((let () (declare (not safe)) (##fx= _g92280_ 2)) + (apply __string-rindex__0 _g92281_)) + ((let () (declare (not safe)) (##fx= _g92280_ 3)) + (apply __string-rindex__% _g92281_)) (else (##raise-wrong-number-of-arguments-exception __string-rindex - _g91182_)))))) + _g92281_)))))) (define string-split - (lambda (_%str86443%_ _%char86444%_) - (if (string? _%str86443%_) - (let ((_%str86448%_ _%str86443%_)) - (if (char? _%char86444%_) - (let ((_%char86458%_ _%char86444%_)) - (__string-split _%str86448%_ _%char86458%_)) + (lambda (_%str87430%_ _%char87431%_) + (if (string? _%str87430%_) + (let ((_%str87435%_ _%str87430%_)) + (if (char? _%char87431%_) + (let ((_%char87445%_ _%char87431%_)) + (__string-split _%str87435%_ _%char87445%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@683.37-683.41" + '"\"gerbil/runtime/util.ss\"@717.37-717.41" 'contract: 'char? 'value: - _%char86444%_) + _%char87431%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@683.21-683.24" + '"\"gerbil/runtime/util.ss\"@717.21-717.24" 'contract: 'string? 'value: - _%str86443%_) + _%str87430%_) '#!void)))) (define __string-split - (lambda (_%str86384%_ _%char86385%_) - (let* ((_%str86388%_ _%str86384%_) - (_%char86396%_ _%char86385%_) - (_%len86405%_ - (let () (declare (not safe)) (##string-length _%str86388%_)))) - (let _%lp86407%_ ((_%start86409%_ '0) (_%r86410%_ '())) - (let* ((_%start86413%_ _%start86409%_) - (_%$e86426%_ + (lambda (_%str87371%_ _%char87372%_) + (let* ((_%str87375%_ _%str87371%_) + (_%char87383%_ _%char87372%_) + (_%len87392%_ + (let () (declare (not safe)) (##string-length _%str87375%_)))) + (let _%lp87394%_ ((_%start87396%_ '0) (_%r87397%_ '())) + (let* ((_%start87400%_ _%start87396%_) + (_%$e87413%_ (__string-index__% - _%str86388%_ - _%char86396%_ - _%start86413%_))) - (if _%$e86426%_ - ((lambda (_%end86429%_) - (let ((_%end86431%_ _%end86429%_)) - (_%lp86407%_ - (let () (declare (not safe)) (##fx+ _%end86431%_ '1)) + _%str87375%_ + _%char87383%_ + _%start87400%_))) + (if _%$e87413%_ + ((lambda (_%end87416%_) + (let ((_%end87418%_ _%end87416%_)) + (_%lp87394%_ + (let () (declare (not safe)) (##fx+ _%end87418%_ '1)) (cons (let () (declare (not safe)) (##substring - _%str86388%_ - _%start86413%_ - _%end86431%_)) - _%r86410%_)))) - _%$e86426%_) + _%str87375%_ + _%start87400%_ + _%end87418%_)) + _%r87397%_)))) + _%$e87413%_) (if (let () (declare (not safe)) - (##fx< _%start86413%_ _%len86405%_)) + (##fx< _%start87400%_ _%len87392%_)) (__foldl1 cons (list (let () (declare (not safe)) (##substring - _%str86388%_ - _%start86413%_ - _%len86405%_))) - _%r86410%_) - (reverse! _%r86410%_)))))))) + _%str87375%_ + _%start87400%_ + _%len87392%_))) + _%r87397%_) + (reverse! _%r87397%_)))))))) (define string-join - (lambda (_%strs86234%_ _%join86235%_) - (letrec ((_%join-length86238%_ - (lambda (_%strs86322%_ _%jlen86323%_) - (let _%lp86325%_ ((_%rest86327%_ _%strs86322%_) - (_%len86328%_ '0)) - (let* ((_%len86330%_ _%len86328%_) - (_%rest8633886346%_ _%rest86327%_) - (_%else8634086354%_ (lambda () '0)) - (_%K8634286372%_ - (lambda (_%rest86357%_ _%hd86358%_) - (if (string? _%hd86358%_) - (let ((_%hd86360%_ _%hd86358%_)) - (if (pair? _%rest86357%_) - (_%lp86325%_ - _%rest86357%_ + (lambda (_%strs87221%_ _%join87222%_) + (letrec ((_%join-length87225%_ + (lambda (_%strs87309%_ _%jlen87310%_) + (let _%lp87312%_ ((_%rest87314%_ _%strs87309%_) + (_%len87315%_ '0)) + (let* ((_%len87317%_ _%len87315%_) + (_%rest8732587333%_ _%rest87314%_) + (_%else8732787341%_ (lambda () '0)) + (_%K8732987359%_ + (lambda (_%rest87344%_ _%hd87345%_) + (if (string? _%hd87345%_) + (let ((_%hd87347%_ _%hd87345%_)) + (if (pair? _%rest87344%_) + (_%lp87312%_ + _%rest87344%_ (fx+ (let () (declare (not safe)) (##string-length - _%hd86360%_)) - _%jlen86323%_ - _%len86330%_)) - (let ((__tmp91183 + _%hd87347%_)) + _%jlen87310%_ + _%len87317%_)) + (let ((__tmp92282 (let () (declare (not safe)) (##string-length - _%hd86360%_)))) + _%hd87347%_)))) (declare (not safe)) - (##fx+ __tmp91183 _%len86330%_)))) - (error '"expected string" _%hd86358%_))))) - (if (pair? _%rest8633886346%_) - (let ((_%hd8634386375%_ + (##fx+ __tmp92282 _%len87317%_)))) + (error '"expected string" _%hd87345%_))))) + (if (pair? _%rest8732587333%_) + (let ((_%hd8733087362%_ (let () (declare (not safe)) - (##car _%rest8633886346%_))) - (_%tl8634486377%_ + (##car _%rest8732587333%_))) + (_%tl8733187364%_ (let () (declare (not safe)) - (##cdr _%rest8633886346%_)))) - (let* ((_%hd86380%_ _%hd8634386375%_) - (_%rest86382%_ _%tl8634486377%_)) - (_%K8634286372%_ _%rest86382%_ _%hd86380%_))) - (_%else8634086354%_))))))) - (let* ((_%join86243%_ - (if (char? _%join86235%_) - (let () (declare (not safe)) (##string _%join86235%_)) - (if (string? _%join86235%_) - _%join86235%_ - (error '"expected string or char" _%join86235%_)))) - (_%jlen86245%_ + (##cdr _%rest8732587333%_)))) + (let* ((_%hd87367%_ _%hd8733087362%_) + (_%rest87369%_ _%tl8733187364%_)) + (_%K8732987359%_ _%rest87369%_ _%hd87367%_))) + (_%else8732787341%_))))))) + (let* ((_%join87230%_ + (if (char? _%join87222%_) + (let () (declare (not safe)) (##string _%join87222%_)) + (if (string? _%join87222%_) + _%join87222%_ + (error '"expected string or char" _%join87222%_)))) + (_%jlen87232%_ (let () (declare (not safe)) - (##string-length _%join86243%_))) - (_%olen86247%_ - (_%join-length86238%_ _%strs86234%_ _%jlen86245%_)) - (_%ostr86249%_ - (let () (declare (not safe)) (##make-string _%olen86247%_)))) - (let _%lp86252%_ ((_%rest86254%_ _%strs86234%_) (_%k86255%_ '0)) - (let* ((_%k86258%_ _%k86255%_) - (_%rest8627486282%_ _%rest86254%_) - (_%else8627686290%_ (lambda () '"")) - (_%K8627886310%_ - (lambda (_%rest86293%_ _%hd86294%_) - (let* ((_%hd86296%_ _%hd86294%_) - (_%hdlen86308%_ + (##string-length _%join87230%_))) + (_%olen87234%_ + (_%join-length87225%_ _%strs87221%_ _%jlen87232%_)) + (_%ostr87236%_ + (let () (declare (not safe)) (##make-string _%olen87234%_)))) + (let _%lp87239%_ ((_%rest87241%_ _%strs87221%_) (_%k87242%_ '0)) + (let* ((_%k87245%_ _%k87242%_) + (_%rest8726187269%_ _%rest87241%_) + (_%else8726387277%_ (lambda () '"")) + (_%K8726587297%_ + (lambda (_%rest87280%_ _%hd87281%_) + (let* ((_%hd87283%_ _%hd87281%_) + (_%hdlen87295%_ (let () (declare (not safe)) - (##string-length _%hd86296%_)))) - (if (pair? _%rest86293%_) + (##string-length _%hd87283%_)))) + (if (pair? _%rest87280%_) (begin (let () (declare (not safe)) (##substring-move! - _%hd86296%_ + _%hd87283%_ '0 - _%hdlen86308%_ - _%ostr86249%_ - _%k86258%_)) - (let ((__tmp91184 + _%hdlen87295%_ + _%ostr87236%_ + _%k87245%_)) + (let ((__tmp92283 (let () (declare (not safe)) - (##fx+ _%k86258%_ _%hdlen86308%_)))) + (##fx+ _%k87245%_ _%hdlen87295%_)))) (declare (not safe)) (##substring-move! - _%join86243%_ + _%join87230%_ '0 - _%jlen86245%_ - _%ostr86249%_ - __tmp91184)) - (_%lp86252%_ - _%rest86293%_ + _%jlen87232%_ + _%ostr87236%_ + __tmp92283)) + (_%lp87239%_ + _%rest87280%_ (let () (declare (not safe)) - (##fx+ _%k86258%_ - _%hdlen86308%_ - _%jlen86245%_)))) + (##fx+ _%k87245%_ + _%hdlen87295%_ + _%jlen87232%_)))) (begin (let () (declare (not safe)) (##substring-move! - _%hd86296%_ + _%hd87283%_ '0 - _%hdlen86308%_ - _%ostr86249%_ - _%k86258%_)) - _%ostr86249%_)))))) - (if (pair? _%rest8627486282%_) - (let ((_%hd8627986313%_ + _%hdlen87295%_ + _%ostr87236%_ + _%k87245%_)) + _%ostr87236%_)))))) + (if (pair? _%rest8726187269%_) + (let ((_%hd8726687300%_ (let () (declare (not safe)) - (##car _%rest8627486282%_))) - (_%tl8628086315%_ + (##car _%rest8726187269%_))) + (_%tl8726787302%_ (let () (declare (not safe)) - (##cdr _%rest8627486282%_)))) - (let* ((_%hd86318%_ _%hd8627986313%_) - (_%rest86320%_ _%tl8628086315%_)) - (_%K8627886310%_ _%rest86320%_ _%hd86318%_))) - (_%else8627686290%_)))))))) + (##cdr _%rest8726187269%_)))) + (let* ((_%hd87305%_ _%hd8726687300%_) + (_%rest87307%_ _%tl8726787302%_)) + (_%K8726587297%_ _%rest87307%_ _%hd87305%_))) + (_%else8726387277%_)))))))) (define read-u8vector__% - (lambda (_%bytes86160%_ _%port86161%_ _%start86162%_ _%end86163%_) - (if (u8vector? _%bytes86160%_) - (let ((_%bytes86167%_ _%bytes86160%_)) - (if (input-port? _%port86161%_) - (let ((_%port86177%_ _%port86161%_)) - (if ((lambda (_%o86186%_) - (and (fixnum? _%o86186%_) + (lambda (_%bytes87147%_ _%port87148%_ _%start87149%_ _%end87150%_) + (if (u8vector? _%bytes87147%_) + (let ((_%bytes87154%_ _%bytes87147%_)) + (if (input-port? _%port87148%_) + (let ((_%port87164%_ _%port87148%_)) + (if ((lambda (_%o87173%_) + (and (fixnum? _%o87173%_) (let () (declare (not safe)) - (##fx>= _%o86186%_ '0)) - (let ((__tmp91185 + (##fx>= _%o87173%_ '0)) + (let ((__tmp92284 (let () (declare (not safe)) - (##u8vector-length _%bytes86167%_)))) + (##u8vector-length _%bytes87154%_)))) (declare (not safe)) - (##fx< _%o86186%_ __tmp91185)))) - _%start86162%_) - (let ((_%start86190%_ _%start86162%_)) - (if ((lambda (_%o86199%_) - (and (fixnum? _%o86199%_) - (let ((__tmp91186 + (##fx< _%o87173%_ __tmp92284)))) + _%start87149%_) + (let ((_%start87177%_ _%start87149%_)) + (if ((lambda (_%o87186%_) + (and (fixnum? _%o87186%_) + (let ((__tmp92285 (let () (declare (not safe)) (##u8vector-length - _%bytes86167%_)))) + _%bytes87154%_)))) (declare (not safe)) - (##fx<= _%start86190%_ - _%o86199%_ - __tmp91186)))) - _%end86163%_) - (let ((_%end86203%_ _%end86163%_)) + (##fx<= _%start87177%_ + _%o87186%_ + __tmp92285)))) + _%end87150%_) + (let ((_%end87190%_ _%end87150%_)) (__read-u8vector__% - _%bytes86167%_ - _%port86177%_ - _%start86190%_ - _%end86203%_)) + _%bytes87154%_ + _%port87164%_ + _%start87177%_ + _%end87190%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@750.22-750.25" + '"\"gerbil/runtime/util.ss\"@784.22-784.25" 'contract: '(in-range-inclusive? start (u8vector-length bytes)) 'value: - _%end86163%_) + _%end87150%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@748.22-748.27" + '"\"gerbil/runtime/util.ss\"@782.22-782.27" 'contract: '(in-range? 0 (u8vector-length bytes)) 'value: - _%start86162%_) + _%start87149%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@747.22-747.26" + '"\"gerbil/runtime/util.ss\"@781.22-781.26" 'contract: 'input-port? 'value: - _%port86161%_) + _%port87148%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@746.22-746.27" + '"\"gerbil/runtime/util.ss\"@780.22-780.27" 'contract: 'u8vector? 'value: - _%bytes86160%_) + _%bytes87147%_) '#!void)))) (define read-u8vector__0 - (lambda (_%bytes86216%_ _%port86217%_) - (let* ((_%start86219%_ '0) - (_%end86221%_ (u8vector-length _%bytes86216%_))) + (lambda (_%bytes87203%_ _%port87204%_) + (let* ((_%start87206%_ '0) + (_%end87208%_ (u8vector-length _%bytes87203%_))) (read-u8vector__% - _%bytes86216%_ - _%port86217%_ - _%start86219%_ - _%end86221%_)))) + _%bytes87203%_ + _%port87204%_ + _%start87206%_ + _%end87208%_)))) (define read-u8vector__1 - (lambda (_%bytes86223%_ _%port86224%_ _%start86225%_) - (let ((_%end86227%_ (u8vector-length _%bytes86223%_))) + (lambda (_%bytes87210%_ _%port87211%_ _%start87212%_) + (let ((_%end87214%_ (u8vector-length _%bytes87210%_))) (read-u8vector__% - _%bytes86223%_ - _%port86224%_ - _%start86225%_ - _%end86227%_)))) + _%bytes87210%_ + _%port87211%_ + _%start87212%_ + _%end87214%_)))) (define read-u8vector - (lambda _g91188_ - (let ((_g91187_ (let () (declare (not safe)) (##length _g91188_)))) - (cond ((let () (declare (not safe)) (##fx= _g91187_ 2)) - (apply read-u8vector__0 _g91188_)) - ((let () (declare (not safe)) (##fx= _g91187_ 3)) - (apply read-u8vector__1 _g91188_)) - ((let () (declare (not safe)) (##fx= _g91187_ 4)) - (apply read-u8vector__% _g91188_)) + (lambda _g92287_ + (let ((_g92286_ (let () (declare (not safe)) (##length _g92287_)))) + (cond ((let () (declare (not safe)) (##fx= _g92286_ 2)) + (apply read-u8vector__0 _g92287_)) + ((let () (declare (not safe)) (##fx= _g92286_ 3)) + (apply read-u8vector__1 _g92287_)) + ((let () (declare (not safe)) (##fx= _g92286_ 4)) + (apply read-u8vector__% _g92287_)) (else (##raise-wrong-number-of-arguments-exception read-u8vector - _g91188_)))))) + _g92287_)))))) (define __read-u8vector__% - (lambda (_%bytes86099%_ _%port86100%_ _%start86101%_ _%end86102%_) - (let* ((_%bytes86105%_ _%bytes86099%_) - (_%port86113%_ _%port86100%_) - (_%start86121%_ _%start86101%_) - (_%end86129%_ _%end86102%_)) + (lambda (_%bytes87086%_ _%port87087%_ _%start87088%_ _%end87089%_) + (let* ((_%bytes87092%_ _%bytes87086%_) + (_%port87100%_ _%port87087%_) + (_%start87108%_ _%start87088%_) + (_%end87116%_ _%end87089%_)) (declare (not safe)) (##read-subu8vector - _%bytes86105%_ - _%start86121%_ - _%end86129%_ - _%port86113%_)))) + _%bytes87092%_ + _%start87108%_ + _%end87116%_ + _%port87100%_)))) (define __read-u8vector__0 - (lambda (_%bytes86141%_ _%port86142%_) - (let* ((_%start86144%_ '0) - (_%end86146%_ (u8vector-length _%bytes86141%_))) + (lambda (_%bytes87128%_ _%port87129%_) + (let* ((_%start87131%_ '0) + (_%end87133%_ (u8vector-length _%bytes87128%_))) (__read-u8vector__% - _%bytes86141%_ - _%port86142%_ - _%start86144%_ - _%end86146%_)))) + _%bytes87128%_ + _%port87129%_ + _%start87131%_ + _%end87133%_)))) (define __read-u8vector__1 - (lambda (_%bytes86148%_ _%port86149%_ _%start86150%_) - (let ((_%end86152%_ (u8vector-length _%bytes86148%_))) + (lambda (_%bytes87135%_ _%port87136%_ _%start87137%_) + (let ((_%end87139%_ (u8vector-length _%bytes87135%_))) (__read-u8vector__% - _%bytes86148%_ - _%port86149%_ - _%start86150%_ - _%end86152%_)))) + _%bytes87135%_ + _%port87136%_ + _%start87137%_ + _%end87139%_)))) (define __read-u8vector - (lambda _g91190_ - (let ((_g91189_ (let () (declare (not safe)) (##length _g91190_)))) - (cond ((let () (declare (not safe)) (##fx= _g91189_ 2)) - (apply __read-u8vector__0 _g91190_)) - ((let () (declare (not safe)) (##fx= _g91189_ 3)) - (apply __read-u8vector__1 _g91190_)) - ((let () (declare (not safe)) (##fx= _g91189_ 4)) - (apply __read-u8vector__% _g91190_)) + (lambda _g92289_ + (let ((_g92288_ (let () (declare (not safe)) (##length _g92289_)))) + (cond ((let () (declare (not safe)) (##fx= _g92288_ 2)) + (apply __read-u8vector__0 _g92289_)) + ((let () (declare (not safe)) (##fx= _g92288_ 3)) + (apply __read-u8vector__1 _g92289_)) + ((let () (declare (not safe)) (##fx= _g92288_ 4)) + (apply __read-u8vector__% _g92289_)) (else (##raise-wrong-number-of-arguments-exception __read-u8vector - _g91190_)))))) + _g92289_)))))) (define write-u8vector__% - (lambda (_%bytes86024%_ _%port86025%_ _%start86026%_ _%end86027%_) - (if (u8vector? _%bytes86024%_) - (let ((_%bytes86031%_ _%bytes86024%_)) - (if (output-port? _%port86025%_) - (let ((_%port86041%_ _%port86025%_)) - (if ((lambda (_%o86050%_) - (and (fixnum? _%o86050%_) - (let () - (declare (not safe)) - (##fx>= _%o86050%_ '0)) - (let ((__tmp91191 + (lambda (_%bytes87016%_ _%port87017%_ _%start87018%_ _%end87019%_) + (if (u8vector? _%bytes87016%_) + (let ((_%bytes87023%_ _%bytes87016%_)) + (if (output-port? _%port87017%_) + (let* ((_%port87033%_ _%port87017%_) + (_%start87042%_ _%start87018%_)) + (if ((lambda (_%o87050%_) + (and (fixnum? _%o87050%_) + (let ((__tmp92290 (let () (declare (not safe)) - (##u8vector-length _%bytes86031%_)))) + (##u8vector-length _%bytes87023%_)))) (declare (not safe)) - (##fx< _%o86050%_ __tmp91191)))) - _%start86026%_) - (let ((_%start86054%_ _%start86026%_)) - (if ((lambda (_%o86063%_) - (and (fixnum? _%o86063%_) - (let ((__tmp91192 - (let () - (declare (not safe)) - (##u8vector-length - _%bytes86031%_)))) - (declare (not safe)) - (##fx<= _%start86054%_ - _%o86063%_ - __tmp91192)))) - _%end86027%_) - (let ((_%end86067%_ _%end86027%_)) - (__write-u8vector__% - _%bytes86031%_ - _%port86041%_ - _%start86054%_ - _%end86067%_)) - (begin - (raise-contract-violation-error - '"contract violation" - 'context: - '"\"gerbil/runtime/util.ss\"@760.23-760.26" - 'contract: - '(in-range-inclusive? - start - (u8vector-length bytes)) - 'value: - _%end86027%_) - '#!void))) + (##fx<= _%start87042%_ + _%o87050%_ + __tmp92290)))) + _%end87019%_) + (let ((_%end87054%_ _%end87019%_)) + (__write-u8vector__% + _%bytes87023%_ + _%port87033%_ + _%start87042%_ + _%end87054%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@758.23-758.28" + '"\"gerbil/runtime/util.ss\"@793.23-793.26" 'contract: - '(in-range? 0 (u8vector-length bytes)) + '(in-range-inclusive? start (u8vector-length bytes)) 'value: - _%start86026%_) + _%end87019%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@757.23-757.27" + '"\"gerbil/runtime/util.ss\"@791.23-791.27" 'contract: 'output-port? 'value: - _%port86025%_) + _%port87017%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@756.23-756.28" + '"\"gerbil/runtime/util.ss\"@790.23-790.28" 'contract: 'u8vector? 'value: - _%bytes86024%_) + _%bytes87016%_) '#!void)))) (define write-u8vector__0 - (lambda (_%bytes86080%_ _%port86081%_) - (let* ((_%start86083%_ '0) - (_%end86085%_ (u8vector-length _%bytes86080%_))) + (lambda (_%bytes87067%_ _%port87068%_) + (let* ((_%start87070%_ '0) + (_%end87072%_ (u8vector-length _%bytes87067%_))) (write-u8vector__% - _%bytes86080%_ - _%port86081%_ - _%start86083%_ - _%end86085%_)))) + _%bytes87067%_ + _%port87068%_ + _%start87070%_ + _%end87072%_)))) (define write-u8vector__1 - (lambda (_%bytes86087%_ _%port86088%_ _%start86089%_) - (let ((_%end86091%_ (u8vector-length _%bytes86087%_))) + (lambda (_%bytes87074%_ _%port87075%_ _%start87076%_) + (let ((_%end87078%_ (u8vector-length _%bytes87074%_))) (write-u8vector__% - _%bytes86087%_ - _%port86088%_ - _%start86089%_ - _%end86091%_)))) + _%bytes87074%_ + _%port87075%_ + _%start87076%_ + _%end87078%_)))) (define write-u8vector - (lambda _g91194_ - (let ((_g91193_ (let () (declare (not safe)) (##length _g91194_)))) - (cond ((let () (declare (not safe)) (##fx= _g91193_ 2)) - (apply write-u8vector__0 _g91194_)) - ((let () (declare (not safe)) (##fx= _g91193_ 3)) - (apply write-u8vector__1 _g91194_)) - ((let () (declare (not safe)) (##fx= _g91193_ 4)) - (apply write-u8vector__% _g91194_)) + (lambda _g92292_ + (let ((_g92291_ (let () (declare (not safe)) (##length _g92292_)))) + (cond ((let () (declare (not safe)) (##fx= _g92291_ 2)) + (apply write-u8vector__0 _g92292_)) + ((let () (declare (not safe)) (##fx= _g92291_ 3)) + (apply write-u8vector__1 _g92292_)) + ((let () (declare (not safe)) (##fx= _g92291_ 4)) + (apply write-u8vector__% _g92292_)) (else (##raise-wrong-number-of-arguments-exception write-u8vector - _g91194_)))))) + _g92292_)))))) (define __write-u8vector__% - (lambda (_%bytes85963%_ _%port85964%_ _%start85965%_ _%end85966%_) - (let* ((_%bytes85969%_ _%bytes85963%_) - (_%port85977%_ _%port85964%_) - (_%start85985%_ _%start85965%_) - (_%end85993%_ _%end85966%_)) + (lambda (_%bytes86955%_ _%port86956%_ _%start86957%_ _%end86958%_) + (let* ((_%bytes86961%_ _%bytes86955%_) + (_%port86969%_ _%port86956%_) + (_%start86977%_ _%start86957%_) + (_%end86985%_ _%end86958%_)) (declare (not safe)) (##write-subu8vector - _%bytes85969%_ - _%start85985%_ - _%end85993%_ - _%port85977%_)))) + _%bytes86961%_ + _%start86977%_ + _%end86985%_ + _%port86969%_)))) (define __write-u8vector__0 - (lambda (_%bytes86005%_ _%port86006%_) - (let* ((_%start86008%_ '0) - (_%end86010%_ (u8vector-length _%bytes86005%_))) + (lambda (_%bytes86997%_ _%port86998%_) + (let* ((_%start87000%_ '0) + (_%end87002%_ (u8vector-length _%bytes86997%_))) (__write-u8vector__% - _%bytes86005%_ - _%port86006%_ - _%start86008%_ - _%end86010%_)))) + _%bytes86997%_ + _%port86998%_ + _%start87000%_ + _%end87002%_)))) (define __write-u8vector__1 - (lambda (_%bytes86012%_ _%port86013%_ _%start86014%_) - (let ((_%end86016%_ (u8vector-length _%bytes86012%_))) + (lambda (_%bytes87004%_ _%port87005%_ _%start87006%_) + (let ((_%end87008%_ (u8vector-length _%bytes87004%_))) (__write-u8vector__% - _%bytes86012%_ - _%port86013%_ - _%start86014%_ - _%end86016%_)))) + _%bytes87004%_ + _%port87005%_ + _%start87006%_ + _%end87008%_)))) (define __write-u8vector - (lambda _g91196_ - (let ((_g91195_ (let () (declare (not safe)) (##length _g91196_)))) - (cond ((let () (declare (not safe)) (##fx= _g91195_ 2)) - (apply __write-u8vector__0 _g91196_)) - ((let () (declare (not safe)) (##fx= _g91195_ 3)) - (apply __write-u8vector__1 _g91196_)) - ((let () (declare (not safe)) (##fx= _g91195_ 4)) - (apply __write-u8vector__% _g91196_)) + (lambda _g92294_ + (let ((_g92293_ (let () (declare (not safe)) (##length _g92294_)))) + (cond ((let () (declare (not safe)) (##fx= _g92293_ 2)) + (apply __write-u8vector__0 _g92294_)) + ((let () (declare (not safe)) (##fx= _g92293_ 3)) + (apply __write-u8vector__1 _g92294_)) + ((let () (declare (not safe)) (##fx= _g92293_ 4)) + (apply __write-u8vector__% _g92294_)) (else (##raise-wrong-number-of-arguments-exception __write-u8vector - _g91196_)))))) + _g92294_)))))) (define DBG-printer (make-parameter write)) (define DBG-helper - (lambda (_%tag85931%_ - _%dbg-exprs85932%_ - _%dbg-thunks85933%_ - _%expr85934%_ - _%thunk85935%_) - (letrec ((_%o85937%_ (current-output-port)) - (_%e85938%_ (current-error-port)) - (_%p85939%_ (let () (declare (not safe)) (DBG-printer))) - (_%f85940%_ + (lambda (_%tag86923%_ + _%dbg-exprs86924%_ + _%dbg-thunks86925%_ + _%expr86926%_ + _%thunk86927%_) + (letrec ((_%o86929%_ (current-output-port)) + (_%e86930%_ (current-error-port)) + (_%p86931%_ (let () (declare (not safe)) (DBG-printer))) + (_%f86932%_ (lambda () - (force-output _%o85937%_) - (force-output _%e85938%_))) - (_%d85941%_ - (lambda (_%x85948%_) (display _%x85948%_ _%e85938%_))) - (_%w85942%_ - (lambda (_%x85950%_) (_%p85939%_ _%x85950%_ _%e85938%_))) - (_%n85943%_ (lambda () (newline _%e85938%_))) - (_%v85944%_ - (lambda (_%l85953%_) + (force-output _%o86929%_) + (force-output _%e86930%_))) + (_%d86933%_ + (lambda (_%x86940%_) (display _%x86940%_ _%e86930%_))) + (_%w86934%_ + (lambda (_%x86942%_) (_%p86931%_ _%x86942%_ _%e86930%_))) + (_%n86935%_ (lambda () (newline _%e86930%_))) + (_%v86936%_ + (lambda (_%l86945%_) (for-each - (lambda (_%x85955%_) - (_%d85941%_ '" ") - (_%w85942%_ _%x85955%_)) - _%l85953%_) - (_%n85943%_))) - (_%x85945%_ - (lambda (_%expr85957%_ _%thunk85958%_) - (_%f85940%_) - (_%d85941%_ '" ") - (_%w85942%_ _%expr85957%_) - (_%d85941%_ '" =>") + (lambda (_%x86947%_) + (_%d86933%_ '" ") + (_%w86934%_ _%x86947%_)) + _%l86945%_) + (_%n86935%_))) + (_%x86937%_ + (lambda (_%expr86949%_ _%thunk86950%_) + (_%f86932%_) + (_%d86933%_ '" ") + (_%w86934%_ _%expr86949%_) + (_%d86933%_ '" =>") (call-with-values - _%thunk85958%_ - (lambda _%x85960%_ - (_%v85944%_ _%x85960%_) - (_%f85940%_) + _%thunk86950%_ + (lambda _%x86952%_ + (_%v86936%_ _%x86952%_) + (_%f86932%_) (let () (declare (not safe)) - (##apply values _%x85960%_))))))) - (if _%tag85931%_ + (##apply values _%x86952%_))))))) + (if _%tag86923%_ (begin - (if (eq? _%tag85931%_ '#!void) + (if (eq? _%tag86923%_ '#!void) '#!void (begin - (_%f85940%_) - (_%d85941%_ _%tag85931%_) - (_%n85943%_))) - (for-each _%x85945%_ _%dbg-exprs85932%_ _%dbg-thunks85933%_) - (if _%thunk85935%_ - (_%x85945%_ _%expr85934%_ _%thunk85935%_) + (_%f86932%_) + (_%d86933%_ _%tag86923%_) + (_%n86935%_))) + (for-each _%x86937%_ _%dbg-exprs86924%_ _%dbg-thunks86925%_) + (if _%thunk86927%_ + (_%x86937%_ _%expr86926%_ _%thunk86927%_) '#!void)) - (if _%thunk85935%_ (_%thunk85935%_) '#!void))))))) + (if _%thunk86927%_ (_%thunk86927%_) '#!void))))))) diff --git a/src/bootstrap/gerbil/runtime/util~1.scm b/src/bootstrap/gerbil/runtime/util~1.scm index 2593410bb..d7a2529ee 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]#_g91198_| + (define |[1]#_g92296_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |[1]#_g91208_| + (define |[1]#_g92306_| (##structure gx#syntax-quote::t 'quote @@ -16,49 +16,49 @@ '())) (begin (define |[:0:]#declare-inline| - (lambda (_%$stx84264%_) - (let* ((_%g8426884286%_ - (lambda (_%g8426984282%_) + (lambda (_%$stx85256%_) + (let* ((_%g8526085278%_ + (lambda (_%g8526185274%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8426984282%_))) - (_%g8426784342%_ - (lambda (_%g8426984290%_) - (if (gx#stx-pair? _%g8426984290%_) - (let ((_%e8427284293%_ (gx#syntax-e _%g8426984290%_))) - (let ((_%hd8427384297%_ + _%g8526185274%_))) + (_%g8525985334%_ + (lambda (_%g8526185282%_) + (if (gx#stx-pair? _%g8526185282%_) + (let ((_%e8526485285%_ (gx#syntax-e _%g8526185282%_))) + (let ((_%hd8526585289%_ (let () (declare (not safe)) - (##car _%e8427284293%_))) - (_%tl8427484300%_ + (##car _%e8526485285%_))) + (_%tl8526685292%_ (let () (declare (not safe)) - (##cdr _%e8427284293%_)))) - (if (gx#stx-pair? _%tl8427484300%_) - (let ((_%e8427584303%_ - (gx#syntax-e _%tl8427484300%_))) - (let ((_%hd8427684307%_ + (##cdr _%e8526485285%_)))) + (if (gx#stx-pair? _%tl8526685292%_) + (let ((_%e8526785295%_ + (gx#syntax-e _%tl8526685292%_))) + (let ((_%hd8526885299%_ (let () (declare (not safe)) - (##car _%e8427584303%_))) - (_%tl8427784310%_ + (##car _%e8526785295%_))) + (_%tl8526985302%_ (let () (declare (not safe)) - (##cdr _%e8427584303%_)))) - (if (gx#stx-pair? _%tl8427784310%_) - (let ((_%e8427884313%_ - (gx#syntax-e _%tl8427784310%_))) - (let ((_%hd8427984317%_ + (##cdr _%e8526785295%_)))) + (if (gx#stx-pair? _%tl8526985302%_) + (let ((_%e8527085305%_ + (gx#syntax-e _%tl8526985302%_))) + (let ((_%hd8527185309%_ (let () (declare (not safe)) - (##car _%e8427884313%_))) - (_%tl8428084320%_ + (##car _%e8527085305%_))) + (_%tl8527285312%_ (let () (declare (not safe)) - (##cdr _%e8427884313%_)))) - (if (gx#stx-null? _%tl8428084320%_) - ((lambda (_%L84323%_ _%L84325%_) + (##cdr _%e8527085305%_)))) + (if (gx#stx-null? _%tl8527285312%_) + ((lambda (_%L85315%_ _%L85317%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -66,52 +66,52 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@inline) - (cons _%L84325%_ '())) + (cons _%L85317%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L84323%_ '())) + (cons _%L85315%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8427984317%_ - _%hd8427684307%_) - (_%g8426884286%_ - _%g8426984290%_)))) - (_%g8426884286%_ _%g8426984290%_)))) - (_%g8426884286%_ _%g8426984290%_)))) - (_%g8426884286%_ _%g8426984290%_))))) - (_%g8426784342%_ _%$stx84264%_)))) + _%hd8527185309%_ + _%hd8526885299%_) + (_%g8526085278%_ + _%g8526185282%_)))) + (_%g8526085278%_ _%g8526185282%_)))) + (_%g8526085278%_ _%g8526185282%_)))) + (_%g8526085278%_ _%g8526185282%_))))) + (_%g8525985334%_ _%$stx85256%_)))) (define |[:0:]#__lock-inline!| - (lambda (_%$stx84346%_) - (let* ((_%g8435084364%_ - (lambda (_%g8435184360%_) + (lambda (_%$stx85338%_) + (let* ((_%g8534285356%_ + (lambda (_%g8534385352%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8435184360%_))) - (_%g8434984405%_ - (lambda (_%g8435184368%_) - (if (gx#stx-pair? _%g8435184368%_) - (let ((_%e8435384371%_ (gx#syntax-e _%g8435184368%_))) - (let ((_%hd8435484375%_ + _%g8534385352%_))) + (_%g8534185397%_ + (lambda (_%g8534385360%_) + (if (gx#stx-pair? _%g8534385360%_) + (let ((_%e8534585363%_ (gx#syntax-e _%g8534385360%_))) + (let ((_%hd8534685367%_ (let () (declare (not safe)) - (##car _%e8435384371%_))) - (_%tl8435584378%_ + (##car _%e8534585363%_))) + (_%tl8534785370%_ (let () (declare (not safe)) - (##cdr _%e8435384371%_)))) - (if (gx#stx-pair? _%tl8435584378%_) - (let ((_%e8435684381%_ - (gx#syntax-e _%tl8435584378%_))) - (let ((_%hd8435784385%_ + (##cdr _%e8534585363%_)))) + (if (gx#stx-pair? _%tl8534785370%_) + (let ((_%e8534885373%_ + (gx#syntax-e _%tl8534785370%_))) + (let ((_%hd8534985377%_ (let () (declare (not safe)) - (##car _%e8435684381%_))) - (_%tl8435884388%_ + (##car _%e8534885373%_))) + (_%tl8535085380%_ (let () (declare (not safe)) - (##cdr _%e8435684381%_)))) - (if (gx#stx-null? _%tl8435884388%_) - ((lambda (_%L84391%_) + (##cdr _%e8534885373%_)))) + (if (gx#stx-null? _%tl8535085380%_) + ((lambda (_%L85383%_) (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 _%L84391%_ + (cons _%L85383%_ (cons '0 (cons '1 (cons '0 '()))))) (cons '0 '()))) @@ -146,133 +146,133 @@ '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8435784385%_) - (_%g8435084364%_ _%g8435184368%_)))) - (_%g8435084364%_ _%g8435184368%_)))) - (_%g8435084364%_ _%g8435184368%_))))) - (_%g8434984405%_ _%$stx84346%_)))) + _%hd8534985377%_) + (_%g8534285356%_ _%g8534385360%_)))) + (_%g8534285356%_ _%g8534385360%_)))) + (_%g8534285356%_ _%g8534385360%_))))) + (_%g8534185397%_ _%$stx85338%_)))) (define |[:0:]#__unlock-inline!| - (lambda (_%$stx84409%_) - (let* ((_%g8441384427%_ - (lambda (_%g8441484423%_) + (lambda (_%$stx85401%_) + (let* ((_%g8540585419%_ + (lambda (_%g8540685415%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8441484423%_))) - (_%g8441284468%_ - (lambda (_%g8441484431%_) - (if (gx#stx-pair? _%g8441484431%_) - (let ((_%e8441684434%_ (gx#syntax-e _%g8441484431%_))) - (let ((_%hd8441784438%_ + _%g8540685415%_))) + (_%g8540485460%_ + (lambda (_%g8540685423%_) + (if (gx#stx-pair? _%g8540685423%_) + (let ((_%e8540885426%_ (gx#syntax-e _%g8540685423%_))) + (let ((_%hd8540985430%_ (let () (declare (not safe)) - (##car _%e8441684434%_))) - (_%tl8441884441%_ + (##car _%e8540885426%_))) + (_%tl8541085433%_ (let () (declare (not safe)) - (##cdr _%e8441684434%_)))) - (if (gx#stx-pair? _%tl8441884441%_) - (let ((_%e8441984444%_ - (gx#syntax-e _%tl8441884441%_))) - (let ((_%hd8442084448%_ + (##cdr _%e8540885426%_)))) + (if (gx#stx-pair? _%tl8541085433%_) + (let ((_%e8541185436%_ + (gx#syntax-e _%tl8541085433%_))) + (let ((_%hd8541285440%_ (let () (declare (not safe)) - (##car _%e8441984444%_))) - (_%tl8442184451%_ + (##car _%e8541185436%_))) + (_%tl8541385443%_ (let () (declare (not safe)) - (##cdr _%e8441984444%_)))) - (if (gx#stx-null? _%tl8442184451%_) - ((lambda (_%L84454%_) + (##cdr _%e8541185436%_)))) + (if (gx#stx-null? _%tl8541385443%_) + ((lambda (_%L85446%_) (cons (gx#datum->syntax '#f '##vector-cas!) - (cons _%L84454%_ + (cons _%L85446%_ (cons '0 (cons '0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '1 '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8442084448%_) - (_%g8441384427%_ _%g8441484431%_)))) - (_%g8441384427%_ _%g8441484431%_)))) - (_%g8441384427%_ _%g8441484431%_))))) - (_%g8441284468%_ _%$stx84409%_)))) + _%hd8541285440%_) + (_%g8540585419%_ _%g8540685423%_)))) + (_%g8540585419%_ _%g8540685423%_)))) + (_%g8540585419%_ _%g8540685423%_))))) + (_%g8540485460%_ _%$stx85401%_)))) (define |[:0:]#__make-inline-lock| - (lambda (_%$stx84472%_) - (let* ((_%g8447684486%_ - (lambda (_%g8447784482%_) + (lambda (_%$stx85464%_) + (let* ((_%g8546885478%_ + (lambda (_%g8546985474%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8447784482%_))) - (_%g8447584507%_ - (lambda (_%g8447784490%_) - (if (gx#stx-pair? _%g8447784490%_) - (let ((_%e8447884493%_ (gx#syntax-e _%g8447784490%_))) - (let ((_%hd8447984497%_ + _%g8546985474%_))) + (_%g8546785499%_ + (lambda (_%g8546985482%_) + (if (gx#stx-pair? _%g8546985482%_) + (let ((_%e8547085485%_ (gx#syntax-e _%g8546985482%_))) + (let ((_%hd8547185489%_ (let () (declare (not safe)) - (##car _%e8447884493%_))) - (_%tl8448084500%_ + (##car _%e8547085485%_))) + (_%tl8547285492%_ (let () (declare (not safe)) - (##cdr _%e8447884493%_)))) - (if (gx#stx-null? _%tl8448084500%_) + (##cdr _%e8547085485%_)))) + (if (gx#stx-null? _%tl8547285492%_) ((lambda () (cons (gx#datum->syntax '#f 'vector) (cons '0 '())))) - (_%g8447684486%_ _%g8447784490%_)))) - (_%g8447684486%_ _%g8447784490%_))))) - (_%g8447584507%_ _%$stx84472%_)))) + (_%g8546885478%_ _%g8546985482%_)))) + (_%g8546885478%_ _%g8546985482%_))))) + (_%g8546785499%_ _%$stx85464%_)))) (define |[:0:]#defaget| - (lambda (_%$stx84511%_) - (let* ((_%g8451584533%_ - (lambda (_%g8451684529%_) + (lambda (_%$stx85503%_) + (let* ((_%g8550785525%_ + (lambda (_%g8550885521%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8451684529%_))) - (_%g8451484588%_ - (lambda (_%g8451684537%_) - (if (gx#stx-pair? _%g8451684537%_) - (let ((_%e8451984540%_ (gx#syntax-e _%g8451684537%_))) - (let ((_%hd8452084544%_ + _%g8550885521%_))) + (_%g8550685580%_ + (lambda (_%g8550885529%_) + (if (gx#stx-pair? _%g8550885529%_) + (let ((_%e8551185532%_ (gx#syntax-e _%g8550885529%_))) + (let ((_%hd8551285536%_ (let () (declare (not safe)) - (##car _%e8451984540%_))) - (_%tl8452184547%_ + (##car _%e8551185532%_))) + (_%tl8551385539%_ (let () (declare (not safe)) - (##cdr _%e8451984540%_)))) - (if (gx#stx-pair? _%tl8452184547%_) - (let ((_%e8452284550%_ - (gx#syntax-e _%tl8452184547%_))) - (let ((_%hd8452384554%_ + (##cdr _%e8551185532%_)))) + (if (gx#stx-pair? _%tl8551385539%_) + (let ((_%e8551485542%_ + (gx#syntax-e _%tl8551385539%_))) + (let ((_%hd8551585546%_ (let () (declare (not safe)) - (##car _%e8452284550%_))) - (_%tl8452484557%_ + (##car _%e8551485542%_))) + (_%tl8551685549%_ (let () (declare (not safe)) - (##cdr _%e8452284550%_)))) - (if (gx#stx-pair? _%tl8452484557%_) - (let ((_%e8452584560%_ - (gx#syntax-e _%tl8452484557%_))) - (let ((_%hd8452684564%_ + (##cdr _%e8551485542%_)))) + (if (gx#stx-pair? _%tl8551685549%_) + (let ((_%e8551785552%_ + (gx#syntax-e _%tl8551685549%_))) + (let ((_%hd8551885556%_ (let () (declare (not safe)) - (##car _%e8452584560%_))) - (_%tl8452784567%_ + (##car _%e8551785552%_))) + (_%tl8551985559%_ (let () (declare (not safe)) - (##cdr _%e8452584560%_)))) - (if (gx#stx-null? _%tl8452784567%_) - ((lambda (_%L84570%_ _%L84572%_) + (##cdr _%e8551785552%_)))) + (if (gx#stx-null? _%tl8551985559%_) + ((lambda (_%L85562%_ _%L85564%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L84572%_ + (cons (cons _%L85564%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) @@ -291,7 +291,7 @@ '#f 'lst) '())) - (cons (cons _%L84570%_ + (cons (cons _%L85562%_ (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) '()))) '()))) @@ -328,62 +328,62 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8452684564%_ - _%hd8452384554%_) - (_%g8451584533%_ - _%g8451684537%_)))) - (_%g8451584533%_ _%g8451684537%_)))) - (_%g8451584533%_ _%g8451684537%_)))) - (_%g8451584533%_ _%g8451684537%_))))) - (_%g8451484588%_ _%$stx84511%_)))) + _%hd8551885556%_ + _%hd8551585546%_) + (_%g8550785525%_ + _%g8550885529%_)))) + (_%g8550785525%_ _%g8550885529%_)))) + (_%g8550785525%_ _%g8550885529%_)))) + (_%g8550785525%_ _%g8550885529%_))))) + (_%g8550685580%_ _%$stx85503%_)))) (define |[:0:]#defpget| - (lambda (_%$stx84592%_) - (let* ((_%g8459684614%_ - (lambda (_%g8459784610%_) + (lambda (_%$stx85584%_) + (let* ((_%g8558885606%_ + (lambda (_%g8558985602%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8459784610%_))) - (_%g8459584669%_ - (lambda (_%g8459784618%_) - (if (gx#stx-pair? _%g8459784618%_) - (let ((_%e8460084621%_ (gx#syntax-e _%g8459784618%_))) - (let ((_%hd8460184625%_ + _%g8558985602%_))) + (_%g8558785661%_ + (lambda (_%g8558985610%_) + (if (gx#stx-pair? _%g8558985610%_) + (let ((_%e8559285613%_ (gx#syntax-e _%g8558985610%_))) + (let ((_%hd8559385617%_ (let () (declare (not safe)) - (##car _%e8460084621%_))) - (_%tl8460284628%_ + (##car _%e8559285613%_))) + (_%tl8559485620%_ (let () (declare (not safe)) - (##cdr _%e8460084621%_)))) - (if (gx#stx-pair? _%tl8460284628%_) - (let ((_%e8460384631%_ - (gx#syntax-e _%tl8460284628%_))) - (let ((_%hd8460484635%_ + (##cdr _%e8559285613%_)))) + (if (gx#stx-pair? _%tl8559485620%_) + (let ((_%e8559585623%_ + (gx#syntax-e _%tl8559485620%_))) + (let ((_%hd8559685627%_ (let () (declare (not safe)) - (##car _%e8460384631%_))) - (_%tl8460584638%_ + (##car _%e8559585623%_))) + (_%tl8559785630%_ (let () (declare (not safe)) - (##cdr _%e8460384631%_)))) - (if (gx#stx-pair? _%tl8460584638%_) - (let ((_%e8460684641%_ - (gx#syntax-e _%tl8460584638%_))) - (let ((_%hd8460784645%_ + (##cdr _%e8559585623%_)))) + (if (gx#stx-pair? _%tl8559785630%_) + (let ((_%e8559885633%_ + (gx#syntax-e _%tl8559785630%_))) + (let ((_%hd8559985637%_ (let () (declare (not safe)) - (##car _%e8460684641%_))) - (_%tl8460884648%_ + (##car _%e8559885633%_))) + (_%tl8560085640%_ (let () (declare (not safe)) - (##cdr _%e8460684641%_)))) - (if (gx#stx-null? _%tl8460884648%_) - ((lambda (_%L84651%_ _%L84653%_) + (##cdr _%e8559885633%_)))) + (if (gx#stx-null? _%tl8560085640%_) + ((lambda (_%L85643%_ _%L85645%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L84653%_ + (cons (cons _%L85645%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L84651%_ + (cons (cons _%L85643%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -458,62 +458,62 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8460784645%_ - _%hd8460484635%_) - (_%g8459684614%_ - _%g8459784618%_)))) - (_%g8459684614%_ _%g8459784618%_)))) - (_%g8459684614%_ _%g8459784618%_)))) - (_%g8459684614%_ _%g8459784618%_))))) - (_%g8459584669%_ _%$stx84592%_)))) + _%hd8559985637%_ + _%hd8559685627%_) + (_%g8558885606%_ + _%g8558985610%_)))) + (_%g8558885606%_ _%g8558985610%_)))) + (_%g8558885606%_ _%g8558985610%_)))) + (_%g8558885606%_ _%g8558985610%_))))) + (_%g8558785661%_ _%$stx85584%_)))) (define |[:0:]#defremove1| - (lambda (_%$stx84673%_) - (let* ((_%g8467784695%_ - (lambda (_%g8467884691%_) + (lambda (_%$stx85665%_) + (let* ((_%g8566985687%_ + (lambda (_%g8567085683%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8467884691%_))) - (_%g8467684750%_ - (lambda (_%g8467884699%_) - (if (gx#stx-pair? _%g8467884699%_) - (let ((_%e8468184702%_ (gx#syntax-e _%g8467884699%_))) - (let ((_%hd8468284706%_ + _%g8567085683%_))) + (_%g8566885742%_ + (lambda (_%g8567085691%_) + (if (gx#stx-pair? _%g8567085691%_) + (let ((_%e8567385694%_ (gx#syntax-e _%g8567085691%_))) + (let ((_%hd8567485698%_ (let () (declare (not safe)) - (##car _%e8468184702%_))) - (_%tl8468384709%_ + (##car _%e8567385694%_))) + (_%tl8567585701%_ (let () (declare (not safe)) - (##cdr _%e8468184702%_)))) - (if (gx#stx-pair? _%tl8468384709%_) - (let ((_%e8468484712%_ - (gx#syntax-e _%tl8468384709%_))) - (let ((_%hd8468584716%_ + (##cdr _%e8567385694%_)))) + (if (gx#stx-pair? _%tl8567585701%_) + (let ((_%e8567685704%_ + (gx#syntax-e _%tl8567585701%_))) + (let ((_%hd8567785708%_ (let () (declare (not safe)) - (##car _%e8468484712%_))) - (_%tl8468684719%_ + (##car _%e8567685704%_))) + (_%tl8567885711%_ (let () (declare (not safe)) - (##cdr _%e8468484712%_)))) - (if (gx#stx-pair? _%tl8468684719%_) - (let ((_%e8468784722%_ - (gx#syntax-e _%tl8468684719%_))) - (let ((_%hd8468884726%_ + (##cdr _%e8567685704%_)))) + (if (gx#stx-pair? _%tl8567885711%_) + (let ((_%e8567985714%_ + (gx#syntax-e _%tl8567885711%_))) + (let ((_%hd8568085718%_ (let () (declare (not safe)) - (##car _%e8468784722%_))) - (_%tl8468984729%_ + (##car _%e8567985714%_))) + (_%tl8568185721%_ (let () (declare (not safe)) - (##cdr _%e8468784722%_)))) - (if (gx#stx-null? _%tl8468984729%_) - ((lambda (_%L84732%_ _%L84734%_) + (##cdr _%e8567985714%_)))) + (if (gx#stx-null? _%tl8568185721%_) + ((lambda (_%L85724%_ _%L85726%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L84734%_ + (cons (cons _%L85726%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L84732%_ + (cons (cons _%L85724%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -586,150 +586,150 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8468884726%_ - _%hd8468584716%_) - (_%g8467784695%_ - _%g8467884699%_)))) - (_%g8467784695%_ _%g8467884699%_)))) - (_%g8467784695%_ _%g8467884699%_)))) - (_%g8467784695%_ _%g8467884699%_))))) - (_%g8467684750%_ _%$stx84673%_)))) + _%hd8568085718%_ + _%hd8567785708%_) + (_%g8566985687%_ + _%g8567085691%_)))) + (_%g8566985687%_ _%g8567085691%_)))) + (_%g8566985687%_ _%g8567085691%_)))) + (_%g8566985687%_ _%g8567085691%_))))) + (_%g8566885742%_ _%$stx85665%_)))) (define |[:0:]#DBG| - (lambda (_%$stx84754%_) - (let* ((_%g8475884769%_ - (lambda (_%g8475984765%_) + (lambda (_%$stx85746%_) + (let* ((_%g8575085761%_ + (lambda (_%g8575185757%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8475984765%_))) - (_%g8475784798%_ - (lambda (_%g8475984773%_) - (if (gx#stx-pair? _%g8475984773%_) - (let ((_%e8476184776%_ (gx#syntax-e _%g8475984773%_))) - (let ((_%hd8476284780%_ + _%g8575185757%_))) + (_%g8574985790%_ + (lambda (_%g8575185765%_) + (if (gx#stx-pair? _%g8575185765%_) + (let ((_%e8575385768%_ (gx#syntax-e _%g8575185765%_))) + (let ((_%hd8575485772%_ (let () (declare (not safe)) - (##car _%e8476184776%_))) - (_%tl8476384783%_ + (##car _%e8575385768%_))) + (_%tl8575585775%_ (let () (declare (not safe)) - (##cdr _%e8476184776%_)))) - ((lambda (_%L84786%_) + (##cdr _%e8575385768%_)))) + ((lambda (_%L85778%_) (cons (gx#datum->syntax '#f 'DBG/1) - (cons '1 _%L84786%_))) - _%tl8476384783%_))) - (_%g8475884769%_ _%g8475984773%_))))) - (_%g8475784798%_ _%$stx84754%_)))) + (cons '1 _%L85778%_))) + _%tl8575585775%_))) + (_%g8575085761%_ _%g8575185765%_))))) + (_%g8574985790%_ _%$stx85746%_)))) (define |[:0:]#DBG/1| - (lambda (_%$stx84802%_) - (let* ((_%__stx9075490755%_ _%$stx84802%_) - (_%g8481385027%_ + (lambda (_%$stx85794%_) + (let* ((_%__stx9184791848%_ _%$stx85794%_) + (_%g8580586019%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9075490755%_)))) - (let ((_%__kont9075790758%_ - (lambda (_%L85880%_ - _%L85882%_ - _%L85883%_ - _%L85884%_ - _%L85885%_) - (cons _%L85885%_ + _%__stx9184791848%_)))) + (let ((_%__kont9185091851%_ + (lambda (_%L86872%_ + _%L86874%_ + _%L86875%_ + _%L86876%_ + _%L86877%_) + (cons _%L86877%_ (cons '2 (cons '() (cons (__foldr1 - (lambda (_%g8591585918%_ - _%g8591685921%_) - (cons _%g8591585918%_ - _%g8591685921%_)) + (lambda (_%g8690786910%_ + _%g8690886913%_) + (cons _%g8690786910%_ + _%g8690886913%_)) '() - _%L85883%_) - (cons _%L85884%_ - (cons _%L85882%_ - (cons _%L85880%_ + _%L86875%_) + (cons _%L86876%_ + (cons _%L86874%_ + (cons _%L86872%_ '()))))))))) - (_%__kont9076190762%_ - (lambda (_%L85733%_ _%L85735%_ _%L85736%_ _%L85737%_) - (cons _%L85737%_ + (_%__kont9185491855%_ + (lambda (_%L86725%_ _%L86727%_ _%L86728%_ _%L86729%_) + (cons _%L86729%_ (cons '2 (cons '() (cons (__foldr1 - (lambda (_%g8576085763%_ - _%g8576185766%_) - (cons _%g8576085763%_ - _%g8576185766%_)) + (lambda (_%g8675286755%_ + _%g8675386758%_) + (cons _%g8675286755%_ + _%g8675386758%_)) '() - _%L85735%_) - (cons _%L85736%_ - (cons _%L85733%_ - (cons _%L85733%_ + _%L86727%_) + (cons _%L86728%_ + (cons _%L86725%_ + (cons _%L86725%_ '()))))))))) - (_%__kont9076590766%_ - (lambda (_%L85636%_) + (_%__kont9185891859%_ + (lambda (_%L86628%_) (cons (gx#datum->syntax '#f 'DBG-helper) - (cons _%L85636%_ + (cons _%L86628%_ (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) (cons '#f (cons '#f '())))))))) - (_%__kont9076790768%_ - (lambda (_%L85559%_ - _%L85561%_ - _%L85562%_ - _%L85563%_ - _%L85564%_ - _%L85565%_) - (cons _%L85565%_ + (_%__kont9186091861%_ + (lambda (_%L86551%_ + _%L86553%_ + _%L86554%_ + _%L86555%_ + _%L86556%_ + _%L86557%_) + (cons _%L86557%_ (cons '2 - (cons (cons (cons _%L85563%_ - (cons _%L85562%_ '())) - _%L85564%_) - (cons _%L85561%_ _%L85559%_)))))) - (_%__kont9076990770%_ - (lambda (_%L85440%_ - _%L85442%_ - _%L85443%_ - _%L85444%_ - _%L85445%_) - (cons _%L85445%_ + (cons (cons (cons _%L86555%_ + (cons _%L86554%_ '())) + _%L86556%_) + (cons _%L86553%_ _%L86551%_)))))) + (_%__kont9186291863%_ + (lambda (_%L86432%_ + _%L86434%_ + _%L86435%_ + _%L86436%_ + _%L86437%_) + (cons _%L86437%_ (cons '2 - (cons (cons (cons _%L85443%_ - (cons _%L85443%_ '())) - _%L85444%_) - (cons _%L85442%_ _%L85440%_)))))) - (_%__kont9077190772%_ - (lambda (_%L85357%_ _%L85359%_ _%L85360%_) - (cons _%L85360%_ - (cons '3 (cons '() (cons _%L85359%_ _%L85357%_)))))) - (_%__kont9077390774%_ - (lambda (_%L85278%_ - _%L85280%_ - _%L85281%_ - _%L85282%_ - _%L85283%_) - (cons _%L85283%_ + (cons (cons (cons _%L86435%_ + (cons _%L86435%_ '())) + _%L86436%_) + (cons _%L86434%_ _%L86432%_)))))) + (_%__kont9186491865%_ + (lambda (_%L86349%_ _%L86351%_ _%L86352%_) + (cons _%L86352%_ + (cons '3 (cons '() (cons _%L86351%_ _%L86349%_)))))) + (_%__kont9186691867%_ + (lambda (_%L86270%_ + _%L86272%_ + _%L86273%_ + _%L86274%_ + _%L86275%_) + (cons _%L86275%_ (cons '3 - (cons (cons _%L85281%_ _%L85282%_) - (cons _%L85280%_ _%L85278%_)))))) - (_%__kont9077590776%_ - (lambda (_%L85162%_ - _%L85164%_ - _%L85165%_ - _%L85166%_ - _%L85167%_ - _%L85168%_) + (cons (cons _%L86273%_ _%L86274%_) + (cons _%L86272%_ _%L86270%_)))))) + (_%__kont9186891869%_ + (lambda (_%L86154%_ + _%L86156%_ + _%L86157%_ + _%L86158%_ + _%L86159%_ + _%L86160%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (cons (gx#datum->syntax '#f 'tagval) - (cons _%L85165%_ '())) + (cons _%L86157%_ '())) (cons (cons (gx#datum->syntax '#f 'thunk) (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L85162%_ '()))) + (cons _%L86154%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -744,31 +744,31 @@ 'tagval) (cons (cons (gx#datum->syntax '#f 'quote) (cons (__foldr1 - (lambda (_%g8520285205%_ - _%g8520385208%_) - (cons _%g8520285205%_ - _%g8520385208%_)) + (lambda (_%g8619486197%_ + _%g8619586200%_) + (cons _%g8619486197%_ + _%g8619586200%_)) '() - _%L85167%_) + _%L86159%_) '())) (cons (cons (gx#datum->syntax '#f 'list) (__foldr1 - (lambda (_%g8520085211%_ - _%g8520185214%_) + (lambda (_%g8619286203%_ + _%g8619386206%_) (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g8520085211%_ '()))) - _%g8520185214%_)) + (cons _%g8619286203%_ '()))) + _%g8619386206%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L85166%_)) + _%L86158%_)) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L85164%_ '())) + (cons _%L86156%_ '())) (cons (gx#datum->syntax '#f 'thunk) @@ -776,1201 +776,1201 @@ (cons (cons (gx#datum->syntax '#f 'thunk) '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match9110591106%_ - (lambda (_%e8498385034%_ - _%hd8498485038%_ - _%tl8498585041%_ - _%e8498685044%_ - _%hd8498785048%_ - _%tl8498885051%_ - _%e8498985054%_ - _%e8499085058%_ - _%hd8499185062%_ - _%tl8499285065%_ - _%__splice9077790778%_ - _%target8499385068%_ - _%tl8499585071%_) - (letrec ((_%loop8499685074%_ - (lambda (_%hd8499485078%_ - _%exprs8500085081%_ - _%names8500185083%_) - (if (gx#stx-pair? _%hd8499485078%_) - (let ((_%e8499785086%_ - (gx#syntax-e _%hd8499485078%_))) - (let ((_%lp-tl8499985093%_ + (let* ((_%__match9219892199%_ + (lambda (_%e8597586026%_ + _%hd8597686030%_ + _%tl8597786033%_ + _%e8597886036%_ + _%hd8597986040%_ + _%tl8598086043%_ + _%e8598186046%_ + _%e8598286050%_ + _%hd8598386054%_ + _%tl8598486057%_ + _%__splice9187091871%_ + _%target8598586060%_ + _%tl8598786063%_) + (letrec ((_%loop8598886066%_ + (lambda (_%hd8598686070%_ + _%exprs8599286073%_ + _%names8599386075%_) + (if (gx#stx-pair? _%hd8598686070%_) + (let ((_%e8598986078%_ + (gx#syntax-e _%hd8598686070%_))) + (let ((_%lp-tl8599186085%_ (let () (declare (not safe)) - (##cdr _%e8499785086%_))) - (_%lp-hd8499885090%_ + (##cdr _%e8598986078%_))) + (_%lp-hd8599086082%_ (let () (declare (not safe)) - (##car _%e8499785086%_)))) + (##car _%e8598986078%_)))) (if (gx#stx-pair? - _%lp-hd8499885090%_) - (let ((_%e8501685096%_ + _%lp-hd8599086082%_) + (let ((_%e8600886088%_ (gx#syntax-e - _%lp-hd8499885090%_))) - (let ((_%tl8501885103%_ + _%lp-hd8599086082%_))) + (let ((_%tl8601086095%_ (let () (declare (not safe)) - (##cdr _%e8501685096%_))) - (_%hd8501785100%_ + (##cdr _%e8600886088%_))) + (_%hd8600986092%_ (let () (declare (not safe)) - (##car _%e8501685096%_)))) + (##car _%e8600886088%_)))) (if (gx#stx-pair? - _%tl8501885103%_) - (let ((_%e8501985106%_ + _%tl8601086095%_) + (let ((_%e8601186098%_ (gx#syntax-e - _%tl8501885103%_))) - (let ((_%tl8502185113%_ + _%tl8601086095%_))) + (let ((_%tl8601386105%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e8501985106%_))) - (_%hd8502085110%_ - (let () (declare (not safe)) (##car _%e8501985106%_)))) - (if (gx#stx-null? _%tl8502185113%_) - (_%loop8499685074%_ - _%lp-tl8499985093%_ - (cons _%hd8502085110%_ _%exprs8500085081%_) - (cons _%hd8501785100%_ _%names8500185083%_)) - (let () (declare (not safe)) (_%g8481385027%_))))) - (let () (declare (not safe)) (_%g8481385027%_))))) + (##cdr _%e8601186098%_))) + (_%hd8601286102%_ + (let () (declare (not safe)) (##car _%e8601186098%_)))) + (if (gx#stx-null? _%tl8601386105%_) + (_%loop8598886066%_ + _%lp-tl8599186085%_ + (cons _%hd8601286102%_ _%exprs8599286073%_) + (cons _%hd8600986092%_ _%names8599386075%_)) + (let () (declare (not safe)) (_%g8580586019%_))))) + (let () (declare (not safe)) (_%g8580586019%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8481385027%_))))) - (let ((_%names8500385119%_ - (reverse _%names8500185083%_)) - (_%exprs8500285116%_ - (reverse _%exprs8500085081%_))) - (if (gx#stx-pair? _%tl8499285065%_) - (let ((_%e8500485122%_ + (_%g8580586019%_))))) + (let ((_%names8599586111%_ + (reverse _%names8599386075%_)) + (_%exprs8599486108%_ + (reverse _%exprs8599286073%_))) + (if (gx#stx-pair? _%tl8598486057%_) + (let ((_%e8599686114%_ (gx#syntax-e - _%tl8499285065%_))) - (let ((_%tl8500685129%_ + _%tl8598486057%_))) + (let ((_%tl8599886121%_ (let () (declare (not safe)) - (##cdr _%e8500485122%_))) - (_%hd8500585126%_ + (##cdr _%e8599686114%_))) + (_%hd8599786118%_ (let () (declare (not safe)) - (##car _%e8500485122%_)))) + (##car _%e8599686114%_)))) (if (gx#stx-null? - _%hd8500585126%_) + _%hd8599786118%_) (if (gx#stx-pair? - _%tl8500685129%_) - (let ((_%e8500785132%_ + _%tl8599886121%_) + (let ((_%e8599986124%_ (gx#syntax-e - _%tl8500685129%_))) - (let ((_%tl8500985139%_ + _%tl8599886121%_))) + (let ((_%tl8600186131%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8500785132%_))) - (_%hd8500885136%_ + (let () (declare (not safe)) (##cdr _%e8599986124%_))) + (_%hd8600086128%_ (let () (declare (not safe)) - (##car _%e8500785132%_)))) - (if (gx#stx-pair? _%tl8500985139%_) - (let ((_%e8501085142%_ (gx#syntax-e _%tl8500985139%_))) - (let ((_%tl8501285149%_ + (##car _%e8599986124%_)))) + (if (gx#stx-pair? _%tl8600186131%_) + (let ((_%e8600286134%_ (gx#syntax-e _%tl8600186131%_))) + (let ((_%tl8600486141%_ (let () (declare (not safe)) - (##cdr _%e8501085142%_))) - (_%hd8501185146%_ + (##cdr _%e8600286134%_))) + (_%hd8600386138%_ (let () (declare (not safe)) - (##car _%e8501085142%_)))) - (if (gx#stx-pair? _%tl8501285149%_) - (let ((_%e8501385152%_ - (gx#syntax-e _%tl8501285149%_))) - (let ((_%tl8501585159%_ + (##car _%e8600286134%_)))) + (if (gx#stx-pair? _%tl8600486141%_) + (let ((_%e8600586144%_ + (gx#syntax-e _%tl8600486141%_))) + (let ((_%tl8600786151%_ (let () (declare (not safe)) - (##cdr _%e8501385152%_))) - (_%hd8501485156%_ + (##cdr _%e8600586144%_))) + (_%hd8600686148%_ (let () (declare (not safe)) - (##car _%e8501385152%_)))) - (if (gx#stx-null? _%tl8501585159%_) - (_%__kont9077590776%_ - _%hd8501485156%_ - _%hd8501185146%_ - _%hd8500885136%_ - _%exprs8500285116%_ - _%names8500385119%_ - _%hd8498485038%_) + (##car _%e8600586144%_)))) + (if (gx#stx-null? _%tl8600786151%_) + (_%__kont9186891869%_ + _%hd8600686148%_ + _%hd8600386138%_ + _%hd8600086128%_ + _%exprs8599486108%_ + _%names8599586111%_ + _%hd8597686030%_) (let () (declare (not safe)) - (_%g8481385027%_))))) + (_%g8580586019%_))))) (let () (declare (not safe)) - (_%g8481385027%_))))) - (let () (declare (not safe)) (_%g8481385027%_))))) - (let () (declare (not safe)) (_%g8481385027%_))) + (_%g8580586019%_))))) + (let () (declare (not safe)) (_%g8580586019%_))))) + (let () (declare (not safe)) (_%g8580586019%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8481385027%_))))) + (_%g8580586019%_))))) (let () (declare (not safe)) - (_%g8481385027%_)))))))) - (_%loop8499685074%_ _%target8499385068%_ '() '())))) - (_%__match9088390884%_ - (lambda (_%e8485585659%_ - _%hd8485685663%_ - _%tl8485785666%_ - _%e8485885669%_ - _%hd8485985673%_ - _%tl8486085676%_ - _%e8486185679%_ - _%e8486285683%_ - _%hd8486385687%_ - _%tl8486485690%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) - (letrec ((_%loop8486885709%_ - (lambda (_%hd8486685713%_ _%exprs8487285716%_) - (if (gx#stx-pair? _%hd8486685713%_) - (let ((_%e8486985719%_ - (gx#syntax-e _%hd8486685713%_))) - (let ((_%lp-tl8487185726%_ + (_%g8580586019%_)))))))) + (_%loop8598886066%_ _%target8598586060%_ '() '())))) + (_%__match9197691977%_ + (lambda (_%e8584786651%_ + _%hd8584886655%_ + _%tl8584986658%_ + _%e8585086661%_ + _%hd8585186665%_ + _%tl8585286668%_ + _%e8585386671%_ + _%e8585486675%_ + _%hd8585586679%_ + _%tl8585686682%_ + _%__splice9185691857%_ + _%target8585786685%_ + _%tl8585986688%_ + _%e8586686691%_ + _%hd8586786695%_ + _%tl8586886698%_) + (letrec ((_%loop8586086701%_ + (lambda (_%hd8585886705%_ _%exprs8586486708%_) + (if (gx#stx-pair? _%hd8585886705%_) + (let ((_%e8586186711%_ + (gx#syntax-e _%hd8585886705%_))) + (let ((_%lp-tl8586386718%_ (let () (declare (not safe)) - (##cdr _%e8486985719%_))) - (_%lp-hd8487085723%_ + (##cdr _%e8586186711%_))) + (_%lp-hd8586286715%_ (let () (declare (not safe)) - (##car _%e8486985719%_)))) - (_%loop8486885709%_ - _%lp-tl8487185726%_ - (cons _%lp-hd8487085723%_ - _%exprs8487285716%_)))) - (let ((_%exprs8487385729%_ - (reverse _%exprs8487285716%_))) - (_%__kont9076190762%_ - _%hd8487585703%_ - _%exprs8487385729%_ - _%hd8486385687%_ - _%hd8485685663%_)))))) - (_%loop8486885709%_ _%target8486585693%_ '())))) - (_%__match9084390844%_ - (lambda (_%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9075990760%_ - _%target8483085810%_ - _%tl8483285813%_ - _%e8483985816%_ - _%hd8484085820%_ - _%tl8484185823%_ - _%e8484285826%_ - _%hd8484385830%_ - _%tl8484485833%_ - _%e8484585836%_ - _%hd8484685840%_ - _%tl8484785843%_ - _%e8484885846%_ - _%hd8484985850%_ - _%tl8485085853%_) - (letrec ((_%loop8483385856%_ - (lambda (_%hd8483185860%_ _%exprs8483785863%_) - (if (gx#stx-pair? _%hd8483185860%_) - (let ((_%e8483485866%_ - (gx#syntax-e _%hd8483185860%_))) - (let ((_%lp-tl8483685873%_ + (##car _%e8586186711%_)))) + (_%loop8586086701%_ + _%lp-tl8586386718%_ + (cons _%lp-hd8586286715%_ + _%exprs8586486708%_)))) + (let ((_%exprs8586586721%_ + (reverse _%exprs8586486708%_))) + (_%__kont9185491855%_ + _%hd8586786695%_ + _%exprs8586586721%_ + _%hd8585586679%_ + _%hd8584886655%_)))))) + (_%loop8586086701%_ _%target8585786685%_ '())))) + (_%__match9193691937%_ + (lambda (_%e8581286768%_ + _%hd8581386772%_ + _%tl8581486775%_ + _%e8581586778%_ + _%hd8581686782%_ + _%tl8581786785%_ + _%e8581886788%_ + _%e8581986792%_ + _%hd8582086796%_ + _%tl8582186799%_ + _%__splice9185291853%_ + _%target8582286802%_ + _%tl8582486805%_ + _%e8583186808%_ + _%hd8583286812%_ + _%tl8583386815%_ + _%e8583486818%_ + _%hd8583586822%_ + _%tl8583686825%_ + _%e8583786828%_ + _%hd8583886832%_ + _%tl8583986835%_ + _%e8584086838%_ + _%hd8584186842%_ + _%tl8584286845%_) + (letrec ((_%loop8582586848%_ + (lambda (_%hd8582386852%_ _%exprs8582986855%_) + (if (gx#stx-pair? _%hd8582386852%_) + (let ((_%e8582686858%_ + (gx#syntax-e _%hd8582386852%_))) + (let ((_%lp-tl8582886865%_ (let () (declare (not safe)) - (##cdr _%e8483485866%_))) - (_%lp-hd8483585870%_ + (##cdr _%e8582686858%_))) + (_%lp-hd8582786862%_ (let () (declare (not safe)) - (##car _%e8483485866%_)))) - (_%loop8483385856%_ - _%lp-tl8483685873%_ - (cons _%lp-hd8483585870%_ - _%exprs8483785863%_)))) - (let ((_%exprs8483885876%_ - (reverse _%exprs8483785863%_))) - (_%__kont9075790758%_ - _%hd8484985850%_ - _%hd8484685840%_ - _%exprs8483885876%_ - _%hd8482885804%_ - _%hd8482185780%_)))))) - (_%loop8483385856%_ _%target8483085810%_ '()))))) - (if (gx#stx-pair? _%__stx9075490755%_) - (let ((_%e8482085776%_ (gx#syntax-e _%__stx9075490755%_))) - (let ((_%tl8482285783%_ + (##car _%e8582686858%_)))) + (_%loop8582586848%_ + _%lp-tl8582886865%_ + (cons _%lp-hd8582786862%_ + _%exprs8582986855%_)))) + (let ((_%exprs8583086868%_ + (reverse _%exprs8582986855%_))) + (_%__kont9185091851%_ + _%hd8584186842%_ + _%hd8583886832%_ + _%exprs8583086868%_ + _%hd8582086796%_ + _%hd8581386772%_)))))) + (_%loop8582586848%_ _%target8582286802%_ '()))))) + (if (gx#stx-pair? _%__stx9184791848%_) + (let ((_%e8581286768%_ (gx#syntax-e _%__stx9184791848%_))) + (let ((_%tl8581486775%_ (let () (declare (not safe)) - (##cdr _%e8482085776%_))) - (_%hd8482185780%_ + (##cdr _%e8581286768%_))) + (_%hd8581386772%_ (let () (declare (not safe)) - (##car _%e8482085776%_)))) - (if (gx#stx-pair? _%tl8482285783%_) - (let ((_%e8482385786%_ - (gx#syntax-e _%tl8482285783%_))) - (let ((_%tl8482585793%_ + (##car _%e8581286768%_)))) + (if (gx#stx-pair? _%tl8581486775%_) + (let ((_%e8581586778%_ + (gx#syntax-e _%tl8581486775%_))) + (let ((_%tl8581786785%_ (let () (declare (not safe)) - (##cdr _%e8482385786%_))) - (_%hd8482485790%_ + (##cdr _%e8581586778%_))) + (_%hd8581686782%_ (let () (declare (not safe)) - (##car _%e8482385786%_)))) - (if (gx#stx-datum? _%hd8482485790%_) - (let ((_%e8482685796%_ - (gx#stx-e _%hd8482485790%_))) - (if (equal? _%e8482685796%_ '1) - (if (gx#stx-pair? _%tl8482585793%_) - (let ((_%e8482785800%_ + (##car _%e8581586778%_)))) + (if (gx#stx-datum? _%hd8581686782%_) + (let ((_%e8581886788%_ + (gx#stx-e _%hd8581686782%_))) + (if (equal? _%e8581886788%_ '1) + (if (gx#stx-pair? _%tl8581786785%_) + (let ((_%e8581986792%_ (gx#syntax-e - _%tl8482585793%_))) - (let ((_%tl8482985807%_ + _%tl8581786785%_))) + (let ((_%tl8582186799%_ (let () (declare (not safe)) - (##cdr _%e8482785800%_))) - (_%hd8482885804%_ + (##cdr _%e8581986792%_))) + (_%hd8582086796%_ (let () (declare (not safe)) - (##car _%e8482785800%_)))) + (##car _%e8581986792%_)))) (if (gx#stx-pair/null? - _%tl8482985807%_) - (if (let ((__tmp91197 + _%tl8582186799%_) + (if (let ((__tmp92295 (gx#stx-length - _%tl8482985807%_))) + _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91197 + (##fx>= __tmp92295 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '2)) - (let ((_%__splice9075990760%_ - (gx#syntax-split-splice _%tl8482985807%_ '2))) - (let ((_%tl8483285813%_ + (let ((_%__splice9185291853%_ + (gx#syntax-split-splice _%tl8582186799%_ '2))) + (let ((_%tl8582486805%_ (let () (declare (not safe)) - (##vector-ref _%__splice9075990760%_ '1))) - (_%target8483085810%_ + (##vector-ref _%__splice9185291853%_ '1))) + (_%target8582286802%_ (let () (declare (not safe)) - (##vector-ref _%__splice9075990760%_ '0)))) - (if (gx#stx-pair? _%tl8483285813%_) - (let ((_%e8483985816%_ (gx#syntax-e _%tl8483285813%_))) - (let ((_%tl8484185823%_ + (##vector-ref _%__splice9185291853%_ '0)))) + (if (gx#stx-pair? _%tl8582486805%_) + (let ((_%e8583186808%_ (gx#syntax-e _%tl8582486805%_))) + (let ((_%tl8583386815%_ (let () (declare (not safe)) - (##cdr _%e8483985816%_))) - (_%hd8484085820%_ + (##cdr _%e8583186808%_))) + (_%hd8583286812%_ (let () (declare (not safe)) - (##car _%e8483985816%_)))) - (if (gx#stx-pair? _%hd8484085820%_) - (let ((_%e8484285826%_ - (gx#syntax-e _%hd8484085820%_))) - (let ((_%tl8484485833%_ + (##car _%e8583186808%_)))) + (if (gx#stx-pair? _%hd8583286812%_) + (let ((_%e8583486818%_ + (gx#syntax-e _%hd8583286812%_))) + (let ((_%tl8583686825%_ (let () (declare (not safe)) - (##cdr _%e8484285826%_))) - (_%hd8484385830%_ + (##cdr _%e8583486818%_))) + (_%hd8583586822%_ (let () (declare (not safe)) - (##car _%e8484285826%_)))) - (if (gx#identifier? _%hd8484385830%_) + (##car _%e8583486818%_)))) + (if (gx#identifier? _%hd8583586822%_) (if (gx#free-identifier=? - |[1]#_g91198_| - _%hd8484385830%_) - (if (gx#stx-pair? _%tl8484485833%_) - (let ((_%e8484585836%_ + |[1]#_g92296_| + _%hd8583586822%_) + (if (gx#stx-pair? _%tl8583686825%_) + (let ((_%e8583786828%_ (gx#syntax-e - _%tl8484485833%_))) - (let ((_%tl8484785843%_ + _%tl8583686825%_))) + (let ((_%tl8583986835%_ (let () (declare (not safe)) - (##cdr _%e8484585836%_))) - (_%hd8484685840%_ + (##cdr _%e8583786828%_))) + (_%hd8583886832%_ (let () (declare (not safe)) - (##car _%e8484585836%_)))) + (##car _%e8583786828%_)))) (if (gx#stx-null? - _%tl8484785843%_) + _%tl8583986835%_) (if (gx#stx-pair? - _%tl8484185823%_) - (let ((_%e8484885846%_ + _%tl8583386815%_) + (let ((_%e8584086838%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8484185823%_))) - (let ((_%tl8485085853%_ + (gx#syntax-e _%tl8583386815%_))) + (let ((_%tl8584286845%_ (let () (declare (not safe)) - (##cdr _%e8484885846%_))) - (_%hd8484985850%_ + (##cdr _%e8584086838%_))) + (_%hd8584186842%_ (let () (declare (not safe)) - (##car _%e8484885846%_)))) - (if (gx#stx-null? _%tl8485085853%_) - (_%__match9084390844%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9075990760%_ - _%target8483085810%_ - _%tl8483285813%_ - _%e8483985816%_ - _%hd8484085820%_ - _%tl8484185823%_ - _%e8484285826%_ - _%hd8484385830%_ - _%tl8484485833%_ - _%e8484585836%_ - _%hd8484685840%_ - _%tl8484785843%_ - _%e8484885846%_ - _%hd8484985850%_ - _%tl8485085853%_) - (if (let ((__tmp91199 - (gx#stx-length _%tl8482985807%_))) + (##car _%e8584086838%_)))) + (if (gx#stx-null? _%tl8584286845%_) + (_%__match9193691937%_ + _%e8581286768%_ + _%hd8581386772%_ + _%tl8581486775%_ + _%e8581586778%_ + _%hd8581686782%_ + _%tl8581786785%_ + _%e8581886788%_ + _%e8581986792%_ + _%hd8582086796%_ + _%tl8582186799%_ + _%__splice9185291853%_ + _%target8582286802%_ + _%tl8582486805%_ + _%e8583186808%_ + _%hd8583286812%_ + _%tl8583386815%_ + _%e8583486818%_ + _%hd8583586822%_ + _%tl8583686825%_ + _%e8583786828%_ + _%hd8583886832%_ + _%tl8583986835%_ + _%e8584086838%_ + _%hd8584186842%_ + _%tl8584286845%_) + (if (let ((__tmp92297 + (gx#stx-length _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91199 '1)) - (let ((_%__splice9076390764%_ + (##fx>= __tmp92297 '1)) + (let ((_%__splice9185691857%_ (gx#syntax-split-splice - _%tl8482985807%_ + _%tl8582186799%_ '1))) - (let ((_%tl8486785696%_ + (let ((_%tl8585986688%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9185691857%_ '1))) - (_%target8486585693%_ + (_%target8585786685%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9185691857%_ '0)))) - (if (gx#stx-pair? _%tl8486785696%_) - (let ((_%e8487485699%_ - (gx#syntax-e _%tl8486785696%_))) - (let ((_%tl8487685706%_ + (if (gx#stx-pair? _%tl8585986688%_) + (let ((_%e8586686691%_ + (gx#syntax-e _%tl8585986688%_))) + (let ((_%tl8586886698%_ (let () (declare (not safe)) - (##cdr _%e8487485699%_))) - (_%hd8487585703%_ + (##cdr _%e8586686691%_))) + (_%hd8586786695%_ (let () (declare (not safe)) - (##car _%e8487485699%_)))) - (if (gx#stx-null? _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) + (##car _%e8586686691%_)))) + (if (gx#stx-null? _%tl8586886698%_) + (_%__match9197691977%_ + _%e8581286768%_ + _%hd8581386772%_ + _%tl8581486775%_ + _%e8581586778%_ + _%hd8581686782%_ + _%tl8581786785%_ + _%e8581886788%_ + _%e8581986792%_ + _%hd8582086796%_ + _%tl8582186799%_ + _%__splice9185691857%_ + _%target8585786685%_ + _%tl8585986688%_ + _%e8586686691%_ + _%hd8586786695%_ + _%tl8586886698%_) (if (gx#stx-null? - _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_))))))) - (if (let ((__tmp91200 (gx#stx-length _%tl8482985807%_))) + (_%g8580586019%_))))))) + (if (let ((__tmp92298 (gx#stx-length _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91200 '1)) - (let ((_%__splice9076390764%_ - (gx#syntax-split-splice _%tl8482985807%_ '1))) - (let ((_%tl8486785696%_ + (##fx>= __tmp92298 '1)) + (let ((_%__splice9185691857%_ + (gx#syntax-split-splice _%tl8582186799%_ '1))) + (let ((_%tl8585986688%_ (let () (declare (not safe)) - (##vector-ref _%__splice9076390764%_ '1))) - (_%target8486585693%_ + (##vector-ref _%__splice9185691857%_ '1))) + (_%target8585786685%_ (let () (declare (not safe)) - (##vector-ref _%__splice9076390764%_ '0)))) - (if (gx#stx-pair? _%tl8486785696%_) - (let ((_%e8487485699%_ - (gx#syntax-e _%tl8486785696%_))) - (let ((_%tl8487685706%_ + (##vector-ref _%__splice9185691857%_ '0)))) + (if (gx#stx-pair? _%tl8585986688%_) + (let ((_%e8586686691%_ + (gx#syntax-e _%tl8585986688%_))) + (let ((_%tl8586886698%_ (let () (declare (not safe)) - (##cdr _%e8487485699%_))) - (_%hd8487585703%_ + (##cdr _%e8586686691%_))) + (_%hd8586786695%_ (let () (declare (not safe)) - (##car _%e8487485699%_)))) - (if (gx#stx-null? _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + (##car _%e8586686691%_)))) + (if (gx#stx-null? _%tl8586886698%_) + (_%__match9197691977%_ + _%e8581286768%_ + _%hd8581386772%_ + _%tl8581486775%_ + _%e8581586778%_ + _%hd8581686782%_ + _%tl8581786785%_ + _%e8581886788%_ + _%e8581986792%_ + _%hd8582086796%_ + _%tl8582186799%_ + _%__splice9185691857%_ + _%target8585786685%_ + _%tl8585986688%_ + _%e8586686691%_ + _%hd8586786695%_ + _%tl8586886698%_) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) - (let () (declare (not safe)) (_%g8481385027%_))))) - (if (let ((__tmp91201 (gx#stx-length _%tl8482985807%_))) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) + (let () (declare (not safe)) (_%g8580586019%_))))) + (if (let ((__tmp92299 (gx#stx-length _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91201 '1)) - (let ((_%__splice9076390764%_ - (gx#syntax-split-splice _%tl8482985807%_ '1))) - (let ((_%tl8486785696%_ + (##fx>= __tmp92299 '1)) + (let ((_%__splice9185691857%_ + (gx#syntax-split-splice _%tl8582186799%_ '1))) + (let ((_%tl8585986688%_ (let () (declare (not safe)) - (##vector-ref _%__splice9076390764%_ '1))) - (_%target8486585693%_ + (##vector-ref _%__splice9185691857%_ '1))) + (_%target8585786685%_ (let () (declare (not safe)) - (##vector-ref _%__splice9076390764%_ '0)))) - (if (gx#stx-pair? _%tl8486785696%_) - (let ((_%e8487485699%_ - (gx#syntax-e _%tl8486785696%_))) - (let ((_%tl8487685706%_ + (##vector-ref _%__splice9185691857%_ '0)))) + (if (gx#stx-pair? _%tl8585986688%_) + (let ((_%e8586686691%_ + (gx#syntax-e _%tl8585986688%_))) + (let ((_%tl8586886698%_ (let () (declare (not safe)) - (##cdr _%e8487485699%_))) - (_%hd8487585703%_ + (##cdr _%e8586686691%_))) + (_%hd8586786695%_ (let () (declare (not safe)) - (##car _%e8487485699%_)))) - (if (gx#stx-null? _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (##car _%e8586686691%_)))) + (if (gx#stx-null? _%tl8586886698%_) + (_%__match9197691977%_ + _%e8581286768%_ + _%hd8581386772%_ + _%tl8581486775%_ + _%e8581586778%_ + _%hd8581686782%_ + _%tl8581786785%_ + _%e8581886788%_ + _%e8581986792%_ + _%hd8582086796%_ + _%tl8582186799%_ + _%__splice9185691857%_ + _%target8585786685%_ + _%tl8585986688%_ + _%e8586686691%_ + _%hd8586786695%_ + _%tl8586886698%_) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) - (let () (declare (not safe)) (_%g8481385027%_))))))) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) + (let () (declare (not safe)) (_%g8580586019%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp91202 + (if (let ((__tmp92300 (gx#stx-length - _%tl8482985807%_))) + _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91202 '1)) - (let ((_%__splice9076390764%_ + (##fx>= __tmp92300 '1)) + (let ((_%__splice9185691857%_ (gx#syntax-split-splice - _%tl8482985807%_ + _%tl8582186799%_ '1))) - (let ((_%tl8486785696%_ + (let ((_%tl8585986688%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice9076390764%_ '1))) - (_%target8486585693%_ + (##vector-ref _%__splice9185691857%_ '1))) + (_%target8585786685%_ (let () (declare (not safe)) - (##vector-ref _%__splice9076390764%_ '0)))) - (if (gx#stx-pair? _%tl8486785696%_) - (let ((_%e8487485699%_ (gx#syntax-e _%tl8486785696%_))) - (let ((_%tl8487685706%_ + (##vector-ref _%__splice9185691857%_ '0)))) + (if (gx#stx-pair? _%tl8585986688%_) + (let ((_%e8586686691%_ (gx#syntax-e _%tl8585986688%_))) + (let ((_%tl8586886698%_ (let () (declare (not safe)) - (##cdr _%e8487485699%_))) - (_%hd8487585703%_ + (##cdr _%e8586686691%_))) + (_%hd8586786695%_ (let () (declare (not safe)) - (##car _%e8487485699%_)))) - (if (gx#stx-null? _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (##car _%e8586686691%_)))) + (if (gx#stx-null? _%tl8586886698%_) + (_%__match9197691977%_ + _%e8581286768%_ + _%hd8581386772%_ + _%tl8581486775%_ + _%e8581586778%_ + _%hd8581686782%_ + _%tl8581786785%_ + _%e8581886788%_ + _%e8581986792%_ + _%hd8582086796%_ + _%tl8582186799%_ + _%__splice9185691857%_ + _%target8585786685%_ + _%tl8585986688%_ + _%e8586686691%_ + _%hd8586786695%_ + _%tl8586886698%_) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) - (let () (declare (not safe)) (_%g8481385027%_)))))) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) + (let () (declare (not safe)) (_%g8580586019%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_))))) - (if (let ((__tmp91203 + (_%g8580586019%_))))) + (if (let ((__tmp92301 (gx#stx-length - _%tl8482985807%_))) + _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91203 '1)) - (let ((_%__splice9076390764%_ + (##fx>= __tmp92301 '1)) + (let ((_%__splice9185691857%_ (gx#syntax-split-splice - _%tl8482985807%_ + _%tl8582186799%_ '1))) - (let ((_%tl8486785696%_ + (let ((_%tl8585986688%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9185691857%_ '1))) - (_%target8486585693%_ + (_%target8585786685%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9185691857%_ '0)))) (if (gx#stx-pair? - _%tl8486785696%_) - (let ((_%e8487485699%_ + _%tl8585986688%_) + (let ((_%e8586686691%_ (gx#syntax-e - _%tl8486785696%_))) - (let ((_%tl8487685706%_ + _%tl8585986688%_))) + (let ((_%tl8586886698%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8487485699%_))) - (_%hd8487585703%_ + (let () (declare (not safe)) (##cdr _%e8586686691%_))) + (_%hd8586786695%_ (let () (declare (not safe)) - (##car _%e8487485699%_)))) - (if (gx#stx-null? _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) - (let () (declare (not safe)) (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) - (let () (declare (not safe)) (_%g8481385027%_)))))) + (##car _%e8586686691%_)))) + (if (gx#stx-null? _%tl8586886698%_) + (_%__match9197691977%_ + _%e8581286768%_ + _%hd8581386772%_ + _%tl8581486775%_ + _%e8581586778%_ + _%hd8581686782%_ + _%tl8581786785%_ + _%e8581886788%_ + _%e8581986792%_ + _%hd8582086796%_ + _%tl8582186799%_ + _%__splice9185691857%_ + _%target8585786685%_ + _%tl8585986688%_ + _%e8586686691%_ + _%hd8586786695%_ + _%tl8586886698%_) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) + (let () (declare (not safe)) (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) + (let () (declare (not safe)) (_%g8580586019%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_))))) - (if (let ((__tmp91204 + (_%g8580586019%_))))) + (if (let ((__tmp92302 (gx#stx-length - _%tl8482985807%_))) + _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91204 '1)) - (let ((_%__splice9076390764%_ + (##fx>= __tmp92302 '1)) + (let ((_%__splice9185691857%_ (gx#syntax-split-splice - _%tl8482985807%_ + _%tl8582186799%_ '1))) - (let ((_%tl8486785696%_ + (let ((_%tl8585986688%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9185691857%_ '1))) - (_%target8486585693%_ + (_%target8585786685%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9185691857%_ '0)))) (if (gx#stx-pair? - _%tl8486785696%_) - (let ((_%e8487485699%_ + _%tl8585986688%_) + (let ((_%e8586686691%_ (gx#syntax-e - _%tl8486785696%_))) - (let ((_%tl8487685706%_ + _%tl8585986688%_))) + (let ((_%tl8586886698%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e8487485699%_))) - (_%hd8487585703%_ - (let () (declare (not safe)) (##car _%e8487485699%_)))) - (if (gx#stx-null? _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) - (let () (declare (not safe)) (_%g8481385027%_)))))) + (##cdr _%e8586686691%_))) + (_%hd8586786695%_ + (let () (declare (not safe)) (##car _%e8586686691%_)))) + (if (gx#stx-null? _%tl8586886698%_) + (_%__match9197691977%_ + _%e8581286768%_ + _%hd8581386772%_ + _%tl8581486775%_ + _%e8581586778%_ + _%hd8581686782%_ + _%tl8581786785%_ + _%e8581886788%_ + _%e8581986792%_ + _%hd8582086796%_ + _%tl8582186799%_ + _%__splice9185691857%_ + _%target8585786685%_ + _%tl8585986688%_ + _%e8586686691%_ + _%hd8586786695%_ + _%tl8586886698%_) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) + (let () (declare (not safe)) (_%g8580586019%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_))))))) - (if (let ((__tmp91205 - (gx#stx-length _%tl8482985807%_))) + (_%g8580586019%_))))))) + (if (let ((__tmp92303 + (gx#stx-length _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91205 '1)) - (let ((_%__splice9076390764%_ + (##fx>= __tmp92303 '1)) + (let ((_%__splice9185691857%_ (gx#syntax-split-splice - _%tl8482985807%_ + _%tl8582186799%_ '1))) - (let ((_%tl8486785696%_ + (let ((_%tl8585986688%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9185691857%_ '1))) - (_%target8486585693%_ + (_%target8585786685%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9185691857%_ '0)))) - (if (gx#stx-pair? _%tl8486785696%_) - (let ((_%e8487485699%_ + (if (gx#stx-pair? _%tl8585986688%_) + (let ((_%e8586686691%_ (gx#syntax-e - _%tl8486785696%_))) - (let ((_%tl8487685706%_ + _%tl8585986688%_))) + (let ((_%tl8586886698%_ (let () (declare (not safe)) - (##cdr _%e8487485699%_))) - (_%hd8487585703%_ + (##cdr _%e8586686691%_))) + (_%hd8586786695%_ (let () (declare (not safe)) - (##car _%e8487485699%_)))) + (##car _%e8586686691%_)))) (if (gx#stx-null? - _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) + _%tl8586886698%_) + (_%__match9197691977%_ + _%e8581286768%_ + _%hd8581386772%_ + _%tl8581486775%_ + _%e8581586778%_ + _%hd8581686782%_ + _%tl8581786785%_ + _%e8581886788%_ + _%e8581986792%_ + _%hd8582086796%_ + _%tl8582186799%_ + _%__splice9185691857%_ + _%target8585786685%_ + _%tl8585986688%_ + _%e8586686691%_ + _%hd8586786695%_ + _%tl8586886698%_) (if (gx#stx-null? - _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_))))))) - (if (let ((__tmp91206 - (gx#stx-length _%tl8482985807%_))) + (_%g8580586019%_))))))) + (if (let ((__tmp92304 + (gx#stx-length _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91206 '1)) - (let ((_%__splice9076390764%_ + (##fx>= __tmp92304 '1)) + (let ((_%__splice9185691857%_ (gx#syntax-split-splice - _%tl8482985807%_ + _%tl8582186799%_ '1))) - (let ((_%tl8486785696%_ + (let ((_%tl8585986688%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9185691857%_ '1))) - (_%target8486585693%_ + (_%target8585786685%_ (let () (declare (not safe)) (##vector-ref - _%__splice9076390764%_ + _%__splice9185691857%_ '0)))) - (if (gx#stx-pair? _%tl8486785696%_) - (let ((_%e8487485699%_ - (gx#syntax-e _%tl8486785696%_))) - (let ((_%tl8487685706%_ + (if (gx#stx-pair? _%tl8585986688%_) + (let ((_%e8586686691%_ + (gx#syntax-e _%tl8585986688%_))) + (let ((_%tl8586886698%_ (let () (declare (not safe)) - (##cdr _%e8487485699%_))) - (_%hd8487585703%_ + (##cdr _%e8586686691%_))) + (_%hd8586786695%_ (let () (declare (not safe)) - (##car _%e8487485699%_)))) - (if (gx#stx-null? _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + (##car _%e8586686691%_)))) + (if (gx#stx-null? _%tl8586886698%_) + (_%__match9197691977%_ + _%e8581286768%_ + _%hd8581386772%_ + _%tl8581486775%_ + _%e8581586778%_ + _%hd8581686782%_ + _%tl8581786785%_ + _%e8581886788%_ + _%e8581986792%_ + _%hd8582086796%_ + _%tl8582186799%_ + _%__splice9185691857%_ + _%target8585786685%_ + _%tl8585986688%_ + _%e8586686691%_ + _%hd8586786695%_ + _%tl8586886698%_) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_))))))) - (if (let ((__tmp91207 (gx#stx-length _%tl8482985807%_))) + (_%g8580586019%_))))))) + (if (let ((__tmp92305 (gx#stx-length _%tl8582186799%_))) (declare (not safe)) - (##fx>= __tmp91207 '1)) - (let ((_%__splice9076390764%_ - (gx#syntax-split-splice _%tl8482985807%_ '1))) - (let ((_%tl8486785696%_ + (##fx>= __tmp92305 '1)) + (let ((_%__splice9185691857%_ + (gx#syntax-split-splice _%tl8582186799%_ '1))) + (let ((_%tl8585986688%_ (let () (declare (not safe)) - (##vector-ref _%__splice9076390764%_ '1))) - (_%target8486585693%_ + (##vector-ref _%__splice9185691857%_ '1))) + (_%target8585786685%_ (let () (declare (not safe)) - (##vector-ref _%__splice9076390764%_ '0)))) - (if (gx#stx-pair? _%tl8486785696%_) - (let ((_%e8487485699%_ - (gx#syntax-e _%tl8486785696%_))) - (let ((_%tl8487685706%_ + (##vector-ref _%__splice9185691857%_ '0)))) + (if (gx#stx-pair? _%tl8585986688%_) + (let ((_%e8586686691%_ + (gx#syntax-e _%tl8585986688%_))) + (let ((_%tl8586886698%_ (let () (declare (not safe)) - (##cdr _%e8487485699%_))) - (_%hd8487585703%_ + (##cdr _%e8586686691%_))) + (_%hd8586786695%_ (let () (declare (not safe)) - (##car _%e8487485699%_)))) - (if (gx#stx-null? _%tl8487685706%_) - (_%__match9088390884%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8482785800%_ - _%hd8482885804%_ - _%tl8482985807%_ - _%__splice9076390764%_ - _%target8486585693%_ - _%tl8486785696%_ - _%e8487485699%_ - _%hd8487585703%_ - _%tl8487685706%_) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (##car _%e8586686691%_)))) + (if (gx#stx-null? _%tl8586886698%_) + (_%__match9197691977%_ + _%e8581286768%_ + _%hd8581386772%_ + _%tl8581486775%_ + _%e8581586778%_ + _%hd8581686782%_ + _%tl8581786785%_ + _%e8581886788%_ + _%e8581986792%_ + _%hd8582086796%_ + _%tl8582186799%_ + _%__splice9185691857%_ + _%target8585786685%_ + _%tl8585986688%_ + _%e8586686691%_ + _%hd8586786695%_ + _%tl8586886698%_) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-null? _%tl8482985807%_) - (_%__kont9076590766%_ _%hd8482885804%_) - (let () (declare (not safe)) (_%g8481385027%_))))) + (_%g8580586019%_)))))) + (if (gx#stx-null? _%tl8582186799%_) + (_%__kont9185891859%_ _%hd8582086796%_) + (let () (declare (not safe)) (_%g8580586019%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8482985807%_) - (_%__kont9076590766%_ - _%hd8482885804%_) + _%tl8582186799%_) + (_%__kont9185891859%_ + _%hd8582086796%_) (let () (declare (not safe)) - (_%g8481385027%_)))))) + (_%g8580586019%_)))))) (let () (declare (not safe)) - (_%g8481385027%_))) - (if (equal? _%e8482685796%_ '2) - (if (gx#stx-pair? _%tl8482585793%_) - (let ((_%e8490185499%_ + (_%g8580586019%_))) + (if (equal? _%e8581886788%_ '2) + (if (gx#stx-pair? _%tl8581786785%_) + (let ((_%e8589386491%_ (gx#syntax-e - _%tl8482585793%_))) - (let ((_%tl8490385506%_ + _%tl8581786785%_))) + (let ((_%tl8589586498%_ (let () (declare (not safe)) - (##cdr _%e8490185499%_))) - (_%hd8490285503%_ + (##cdr _%e8589386491%_))) + (_%hd8589486495%_ (let () (declare (not safe)) - (##car _%e8490185499%_)))) + (##car _%e8589386491%_)))) (if (gx#stx-pair? - _%tl8490385506%_) - (let ((_%e8490485509%_ + _%tl8589586498%_) + (let ((_%e8589686501%_ (gx#syntax-e - _%tl8490385506%_))) - (let ((_%tl8490685516%_ + _%tl8589586498%_))) + (let ((_%tl8589886508%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8490485509%_))) - (_%hd8490585513%_ + (let () (declare (not safe)) (##cdr _%e8589686501%_))) + (_%hd8589786505%_ (let () (declare (not safe)) - (##car _%e8490485509%_)))) - (if (gx#stx-pair? _%hd8490585513%_) - (let ((_%e8490785519%_ (gx#syntax-e _%hd8490585513%_))) - (let ((_%tl8490985526%_ + (##car _%e8589686501%_)))) + (if (gx#stx-pair? _%hd8589786505%_) + (let ((_%e8589986511%_ (gx#syntax-e _%hd8589786505%_))) + (let ((_%tl8590186518%_ (let () (declare (not safe)) - (##cdr _%e8490785519%_))) - (_%hd8490885523%_ + (##cdr _%e8589986511%_))) + (_%hd8590086515%_ (let () (declare (not safe)) - (##car _%e8490785519%_)))) - (if (gx#stx-pair? _%hd8490885523%_) - (let ((_%e8491085529%_ - (gx#syntax-e _%hd8490885523%_))) - (let ((_%tl8491285536%_ + (##car _%e8589986511%_)))) + (if (gx#stx-pair? _%hd8590086515%_) + (let ((_%e8590286521%_ + (gx#syntax-e _%hd8590086515%_))) + (let ((_%tl8590486528%_ (let () (declare (not safe)) - (##cdr _%e8491085529%_))) - (_%hd8491185533%_ + (##cdr _%e8590286521%_))) + (_%hd8590386525%_ (let () (declare (not safe)) - (##car _%e8491085529%_)))) - (if (gx#identifier? _%hd8491185533%_) + (##car _%e8590286521%_)))) + (if (gx#identifier? _%hd8590386525%_) (if (gx#free-identifier=? - |[1]#_g91208_| - _%hd8491185533%_) - (if (gx#stx-pair? _%tl8491285536%_) - (let ((_%e8491385539%_ + |[1]#_g92306_| + _%hd8590386525%_) + (if (gx#stx-pair? _%tl8590486528%_) + (let ((_%e8590586531%_ (gx#syntax-e - _%tl8491285536%_))) - (let ((_%tl8491585546%_ + _%tl8590486528%_))) + (let ((_%tl8590786538%_ (let () (declare (not safe)) - (##cdr _%e8491385539%_))) - (_%hd8491485543%_ + (##cdr _%e8590586531%_))) + (_%hd8590686535%_ (let () (declare (not safe)) - (##car _%e8491385539%_)))) + (##car _%e8590586531%_)))) (if (gx#stx-null? - _%tl8491585546%_) + _%tl8590786538%_) (if (gx#stx-pair? - _%tl8490985526%_) - (let ((_%e8491685549%_ + _%tl8590186518%_) + (let ((_%e8590886541%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8490985526%_))) - (let ((_%tl8491885556%_ + (gx#syntax-e _%tl8590186518%_))) + (let ((_%tl8591086548%_ (let () (declare (not safe)) - (##cdr _%e8491685549%_))) - (_%hd8491785553%_ + (##cdr _%e8590886541%_))) + (_%hd8590986545%_ (let () (declare (not safe)) - (##car _%e8491685549%_)))) - (_%__kont9076790768%_ - _%tl8490685516%_ - _%tl8491885556%_ - _%hd8491785553%_ - _%hd8491485543%_ - _%hd8490285503%_ - _%hd8482185780%_))) - (_%__kont9076990770%_ - _%tl8490685516%_ - _%tl8490985526%_ - _%hd8490885523%_ - _%hd8490285503%_ - _%hd8482185780%_)) - (_%__kont9076990770%_ - _%tl8490685516%_ - _%tl8490985526%_ - _%hd8490885523%_ - _%hd8490285503%_ - _%hd8482185780%_)))) + (##car _%e8590886541%_)))) + (_%__kont9186091861%_ + _%tl8589886508%_ + _%tl8591086548%_ + _%hd8590986545%_ + _%hd8590686535%_ + _%hd8589486495%_ + _%hd8581386772%_))) + (_%__kont9186291863%_ + _%tl8589886508%_ + _%tl8590186518%_ + _%hd8590086515%_ + _%hd8589486495%_ + _%hd8581386772%_)) + (_%__kont9186291863%_ + _%tl8589886508%_ + _%tl8590186518%_ + _%hd8590086515%_ + _%hd8589486495%_ + _%hd8581386772%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9076990770%_ - _%tl8490685516%_ - _%tl8490985526%_ - _%hd8490885523%_ - _%hd8490285503%_ - _%hd8482185780%_)) - (_%__kont9076990770%_ - _%tl8490685516%_ - _%tl8490985526%_ - _%hd8490885523%_ - _%hd8490285503%_ - _%hd8482185780%_)) - (_%__kont9076990770%_ - _%tl8490685516%_ - _%tl8490985526%_ - _%hd8490885523%_ - _%hd8490285503%_ - _%hd8482185780%_)))) - (_%__kont9076990770%_ - _%tl8490685516%_ - _%tl8490985526%_ - _%hd8490885523%_ - _%hd8490285503%_ - _%hd8482185780%_)))) - (if (gx#stx-null? _%hd8490585513%_) - (_%__kont9077190772%_ - _%tl8490685516%_ - _%hd8490285503%_ - _%hd8482185780%_) - (let () (declare (not safe)) (_%g8481385027%_)))))) - (let () (declare (not safe)) (_%g8481385027%_))))) + (_%__kont9186291863%_ + _%tl8589886508%_ + _%tl8590186518%_ + _%hd8590086515%_ + _%hd8589486495%_ + _%hd8581386772%_)) + (_%__kont9186291863%_ + _%tl8589886508%_ + _%tl8590186518%_ + _%hd8590086515%_ + _%hd8589486495%_ + _%hd8581386772%_)) + (_%__kont9186291863%_ + _%tl8589886508%_ + _%tl8590186518%_ + _%hd8590086515%_ + _%hd8589486495%_ + _%hd8581386772%_)))) + (_%__kont9186291863%_ + _%tl8589886508%_ + _%tl8590186518%_ + _%hd8590086515%_ + _%hd8589486495%_ + _%hd8581386772%_)))) + (if (gx#stx-null? _%hd8589786505%_) + (_%__kont9186491865%_ + _%tl8589886508%_ + _%hd8589486495%_ + _%hd8581386772%_) + (let () (declare (not safe)) (_%g8580586019%_)))))) + (let () (declare (not safe)) (_%g8580586019%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8481385027%_))) - (if (equal? _%e8482685796%_ '3) + (_%g8580586019%_))) + (if (equal? _%e8581886788%_ '3) (if (gx#stx-pair? - _%tl8482585793%_) - (let ((_%e8496885248%_ + _%tl8581786785%_) + (let ((_%e8596086240%_ (gx#syntax-e - _%tl8482585793%_))) - (let ((_%tl8497085255%_ + _%tl8581786785%_))) + (let ((_%tl8596286247%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e8496885248%_))) - (_%hd8496985252%_ - (let () (declare (not safe)) (##car _%e8496885248%_)))) - (if (gx#stx-pair? _%tl8497085255%_) - (let ((_%e8497185258%_ (gx#syntax-e _%tl8497085255%_))) - (let ((_%tl8497385265%_ + (##cdr _%e8596086240%_))) + (_%hd8596186244%_ + (let () (declare (not safe)) (##car _%e8596086240%_)))) + (if (gx#stx-pair? _%tl8596286247%_) + (let ((_%e8596386250%_ (gx#syntax-e _%tl8596286247%_))) + (let ((_%tl8596586257%_ (let () (declare (not safe)) - (##cdr _%e8497185258%_))) - (_%hd8497285262%_ + (##cdr _%e8596386250%_))) + (_%hd8596486254%_ (let () (declare (not safe)) - (##car _%e8497185258%_)))) - (if (gx#stx-pair? _%hd8497285262%_) - (let ((_%e8497485268%_ - (gx#syntax-e _%hd8497285262%_))) - (let ((_%tl8497685275%_ + (##car _%e8596386250%_)))) + (if (gx#stx-pair? _%hd8596486254%_) + (let ((_%e8596686260%_ + (gx#syntax-e _%hd8596486254%_))) + (let ((_%tl8596886267%_ (let () (declare (not safe)) - (##cdr _%e8497485268%_))) - (_%hd8497585272%_ + (##cdr _%e8596686260%_))) + (_%hd8596786264%_ (let () (declare (not safe)) - (##car _%e8497485268%_)))) - (_%__kont9077390774%_ - _%tl8497385265%_ - _%tl8497685275%_ - _%hd8497585272%_ - _%hd8496985252%_ - _%hd8482185780%_))) - (if (gx#stx-pair/null? _%hd8496985252%_) - (let ((_%__splice9077790778%_ + (##car _%e8596686260%_)))) + (_%__kont9186691867%_ + _%tl8596586257%_ + _%tl8596886267%_ + _%hd8596786264%_ + _%hd8596186244%_ + _%hd8581386772%_))) + (if (gx#stx-pair/null? _%hd8596186244%_) + (let ((_%__splice9187091871%_ (gx#syntax-split-splice - _%hd8496985252%_ + _%hd8596186244%_ '0))) - (let ((_%tl8499585071%_ + (let ((_%tl8598786063%_ (let () (declare (not safe)) (##vector-ref - _%__splice9077790778%_ + _%__splice9187091871%_ '1))) - (_%target8499385068%_ + (_%target8598586060%_ (let () (declare (not safe)) (##vector-ref - _%__splice9077790778%_ + _%__splice9187091871%_ '0)))) - (if (gx#stx-null? _%tl8499585071%_) - (_%__match9110591106%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8496885248%_ - _%hd8496985252%_ - _%tl8497085255%_ - _%__splice9077790778%_ - _%target8499385068%_ - _%tl8499585071%_) + (if (gx#stx-null? _%tl8598786063%_) + (_%__match9219892199%_ + _%e8581286768%_ + _%hd8581386772%_ + _%tl8581486775%_ + _%e8581586778%_ + _%hd8581686782%_ + _%tl8581786785%_ + _%e8581886788%_ + _%e8596086240%_ + _%hd8596186244%_ + _%tl8596286247%_ + _%__splice9187091871%_ + _%target8598586060%_ + _%tl8598786063%_) (let () (declare (not safe)) - (_%g8481385027%_))))) + (_%g8580586019%_))))) (let () (declare (not safe)) - (_%g8481385027%_)))))) - (if (gx#stx-pair/null? _%hd8496985252%_) - (let ((_%__splice9077790778%_ - (gx#syntax-split-splice _%hd8496985252%_ '0))) - (let ((_%tl8499585071%_ + (_%g8580586019%_)))))) + (if (gx#stx-pair/null? _%hd8596186244%_) + (let ((_%__splice9187091871%_ + (gx#syntax-split-splice _%hd8596186244%_ '0))) + (let ((_%tl8598786063%_ (let () (declare (not safe)) - (##vector-ref _%__splice9077790778%_ '1))) - (_%target8499385068%_ + (##vector-ref _%__splice9187091871%_ '1))) + (_%target8598586060%_ (let () (declare (not safe)) - (##vector-ref _%__splice9077790778%_ '0)))) - (if (gx#stx-null? _%tl8499585071%_) - (_%__match9110591106%_ - _%e8482085776%_ - _%hd8482185780%_ - _%tl8482285783%_ - _%e8482385786%_ - _%hd8482485790%_ - _%tl8482585793%_ - _%e8482685796%_ - _%e8496885248%_ - _%hd8496985252%_ - _%tl8497085255%_ - _%__splice9077790778%_ - _%target8499385068%_ - _%tl8499585071%_) + (##vector-ref _%__splice9187091871%_ '0)))) + (if (gx#stx-null? _%tl8598786063%_) + (_%__match9219892199%_ + _%e8581286768%_ + _%hd8581386772%_ + _%tl8581486775%_ + _%e8581586778%_ + _%hd8581686782%_ + _%tl8581786785%_ + _%e8581886788%_ + _%e8596086240%_ + _%hd8596186244%_ + _%tl8596286247%_ + _%__splice9187091871%_ + _%target8598586060%_ + _%tl8598786063%_) (let () (declare (not safe)) - (_%g8481385027%_))))) - (let () (declare (not safe)) (_%g8481385027%_)))))) + (_%g8580586019%_))))) + (let () (declare (not safe)) (_%g8580586019%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8481385027%_))) + (_%g8580586019%_))) (let () (declare (not safe)) - (_%g8481385027%_)))))) + (_%g8580586019%_)))))) (let () (declare (not safe)) - (_%g8481385027%_))))) - (let () (declare (not safe)) (_%g8481385027%_))))) - (let () (declare (not safe)) (_%g8481385027%_)))))))))) + (_%g8580586019%_))))) + (let () (declare (not safe)) (_%g8580586019%_))))) + (let () (declare (not safe)) (_%g8580586019%_)))))))))) diff --git a/src/bootstrap/gerbil/runtime~0.scm b/src/bootstrap/gerbil/runtime~0.scm index e6a98ebd7..7a804309f 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 1713631266) '#!void) +(begin (define gerbil/runtime::timestamp 1734357961) '#!void) diff --git a/src/gambit b/src/gambit index 09335d95c..2686dd612 160000 --- a/src/gambit +++ b/src/gambit @@ -1 +1 @@ -Subproject commit 09335d95cab6931791c0a8497cbe915053ff8af3 +Subproject commit 2686dd61237aa562eb0ff206bc689bc8a77b45c9 diff --git a/src/gerbil/compiler/compile.ss b/src/gerbil/compiler/compile.ss index 27f51477f..35efb9eed 100644 --- a/src/gerbil/compiler/compile.ss +++ b/src/gerbil/compiler/compile.ss @@ -531,7 +531,7 @@ namespace: gxc (def (generate-runtime-values-count var) (def (generate-inline) - ['if ['##values? var] ['##vector-length var] 1]) + ['if ['##values? var] ['##values-length var] 1]) ;; see gambit#422 (with-inline-unsafe-primitives (generate-inline) @@ -542,8 +542,8 @@ namespace: gxc (def (generate-runtime-values-ref var i rest) (def (generate-inline) (if (and (fx= i 0) (not (stx-pair? rest))) - ['if ['##values? var] ['##vector-ref var 0] var] - ['##vector-ref var i])) + ['if ['##values? var] ['##values-ref var 0] var] + ['##values-ref var i])) ;; see gambit#422 (with-inline-unsafe-primitives (generate-inline) @@ -555,22 +555,22 @@ namespace: gxc (cond ((fx= i 0) (with-inline-unsafe-primitives - ['if ['##values? var] ['##vector->list var] ['list var]] + ['if ['##values? var] ['##values->list var] ['list var]] ['let [] '(declare (not safe)) - ['if ['##values? var] ['##vector->list var] ['list var]]])) + ['if ['##values? var] ['##values->list var] ['list var]]])) ((fx= i 1) (with-inline-unsafe-primitives - ['if ['##values? var] ['##cdr ['##vector->list var]] '(quote ())] + ['if ['##values? var] ['##cdr ['##values->list var]] '(quote ())] ['let [] '(declare (not safe)) - ['if ['##values? var] ['##cdr ['##vector->list var]] '(quote ())]])) + ['if ['##values? var] ['##cdr ['##values->list var]] '(quote ())]])) (else (with-inline-unsafe-primitives - ['##list-tail ['##vector->list var] i] + ['##list-tail ['##values->list var] i] ['let [] '(declare (not safe)) - ['##list-tail ['##vector->list var] i]])))) + ['##list-tail ['##values->list var] i]])))) (def (generate-runtime-lambda% self stx) (ast-case stx () diff --git a/src/gerbil/compiler/driver.ss b/src/gerbil/compiler/driver.ss index 3613a1530..66a4ff329 100644 --- a/src/gerbil/compiler/driver.ss +++ b/src/gerbil/compiler/driver.ss @@ -85,20 +85,25 @@ namespace: gxc (unless (string? srcpath) (raise-compile-error "Invalid module source path" srcpath)) - (let ((outdir (pgetq output-dir: opts)) - (invoke-gsc? (pgetq invoke-gsc: opts)) - (gsc-options (pgetq gsc-options: opts)) - (keep-scm? (pgetq keep-scm: opts)) - (verbosity (pgetq verbose: opts)) - (optimize (pgetq optimize: opts)) - (debug (pgetq debug: opts)) - (gen-ssxi (pgetq generate-ssxi: opts)) - (parallel? (pgetq parallel: opts))) + (let* ((outdir (pgetq output-dir: opts)) + (invoke-gsc? (pgetq invoke-gsc: opts)) + (target (or (pgetq target: opts) 'C)) + (gsc-options (append + ["-target" (symbol->string target)] + (or (pgetq gsc-options: opts) []))) + (keep-scm? (pgetq keep-scm: opts)) + (verbosity (pgetq verbose: opts)) + (optimize (pgetq optimize: opts)) + (debug (pgetq debug: opts)) + (gen-ssxi (pgetq generate-ssxi: opts)) + (parallel? (pgetq parallel: opts))) + (when outdir (with-driver-mutex (create-directory* outdir))) (when optimize (with-driver-mutex (optimizer-info-init!))) (parameterize ((current-compile-output-dir outdir) + (current-compilation-target target) (current-compile-invoke-gsc invoke-gsc?) (current-compile-gsc-options gsc-options) (current-compile-keep-scm keep-scm?) @@ -117,17 +122,21 @@ namespace: gxc (unless (string? srcpath) (raise-compile-error "Invalid module source path" srcpath)) - (let ((outdir (pgetq output-dir: opts)) - (invoke-gsc? (pgetq invoke-gsc: opts)) - (gsc-options (pgetq gsc-options: opts)) - (keep-scm? (pgetq keep-scm: opts)) - (verbosity (pgetq verbose: opts)) - (debug (pgetq debug: opts)) - (parallel? (pgetq parallel: opts))) + (let* ((outdir (pgetq output-dir: opts)) + (invoke-gsc? (pgetq invoke-gsc: opts)) + (target (or (pgetq target: opts) 'C)) + (gsc-options (append + ["-target" (symbol->string target)] + (or (pgetq gsc-options: opts) []))) + (keep-scm? (pgetq keep-scm: opts)) + (verbosity (pgetq verbose: opts)) + (debug (pgetq debug: opts)) + (parallel? (pgetq parallel: opts))) (when outdir (with-driver-mutex (create-directory* outdir))) (parameterize ((current-compile-output-dir outdir) (current-compile-invoke-gsc invoke-gsc?) + (current-compilation-target target) (current-compile-gsc-options gsc-options) (current-compile-keep-scm keep-scm?) (current-compile-verbose verbosity) diff --git a/src/gerbil/core/contract.ss b/src/gerbil/core/contract.ss index c7e0633aa..a982a10da 100644 --- a/src/gerbil/core/contract.ss +++ b/src/gerbil/core/contract.ss @@ -31,9 +31,12 @@ package: gerbil/core (import "expander") (export #t) (defclass interface-info (name + namespace interface-mixin interface-methods - instance-type interface-descriptor + interface-precedence-list + interface-descriptor + instance-type instance-constructor instance-try-constructor instance-predicate instance-satisfies-predicate implementation-methods @@ -57,17 +60,16 @@ package: gerbil/core (with-syntax ((descriptor (interface-info-interface-descriptor self))) #'descriptor)))))) - (def (interface-info-flatten-mixin info) - (let loop ((rest (interface-info-interface-mixin info)) (result [])) - (match rest - ([id . rest] - (let (mixin (interface-info-interface-mixin (syntax-local-value id))) - (let (result - (if (member id result free-identifier=?) - result - (cons id result))) - (loop (foldl cons rest mixin) result)))) - (else result)))) + (def (interface-identifier->precedence-list id) + (cons id (interface-info-interface-precedence-list (syntax-local-value id)))) + + (def (interface-mixin->precedence-list lst) + (let ((values linearized _) + (c4-linearize [] lst + get-precedence-list: interface-identifier->precedence-list + struct: false + eq: free-identifier=?)) + linearized)) (def (syntax-local-interface-info? stx (is? true)) (and (identifier? stx) @@ -786,8 +788,7 @@ package: gerbil/core struct: (lambda (klass-id) (!class-type-struct? (syntax-local-value klass-id))) - eq: free-identifier=? - get-name: stx-e)) + eq: free-identifier=?)) (precedence-list (cond ((memq (!class-type-id klass) '(t object class)) @@ -1366,7 +1367,8 @@ package: gerbil/core (cond ((interface-info? klass-b) (cond - ((member type-b (interface-info-flatten-mixin klass-a)) + ((member type-b (interface-info-interface-precedence-list klass-a) + free-identifier=?) #t) (else #f))) ((type-reference? klass-b) @@ -1551,11 +1553,33 @@ package: gerbil/core (f (##unchecked-structure-ref self offset #f 'method-name))) (##apply f obj out ...))))))))) + (def (make-interface-namespace name) + (if (module-context? (current-expander-context)) + (cond + ((module-context-ns (current-expander-context)) + => (lambda (ns) (make-symbol ns "::" name))) + (else name)) + (make-symbol (gensym name)))) + + (def (make-method-name-spec method-name namespace mixin) + (let loop ((rest mixin) (result [(make-symbol namespace "::" method-name)])) + (match rest + ([info . rest] + (if (find (lambda (ms) (eq? method-name (car ms))) + (interface-info-interface-methods info)) + (loop rest + (cons (make-symbol (interface-info-namespace info) "::" method-name) + result)) + (loop rest result))) + (else + (reverse! (cons method-name result)))))) + (syntax-case stx () ((_ hd spec ...) (or (identifier? #'hd) (identifier-list? #'hd)) (with-syntax* ((name (if (identifier? #'hd) #'hd (stx-car #'hd))) + (namespace (make-interface-namespace (stx-e #'name))) (klass (stx-identifier #'name #'name "::t")) (klass-quoted (core-quote-syntax #'klass)) (klass-type-id (make-class-type-id #'name)) @@ -1570,6 +1594,13 @@ package: gerbil/core (fold-methods #'(mixin ...) #'(spec ...))) ((method-name ...) (map stx-car #'(method ...))) + ((mixin-precedence-list ...) + (interface-mixin->precedence-list #'(mixin ...))) + ((values linearized-mixins) + (map syntax-local-value #'(mixin-precedence-list ...))) + ((method-name-spec ...) + (map (cut make-method-name-spec <> (stx-e #'namespace) linearized-mixins) + (map stx-e #'(method-name ...)))) ((method-signature ...) (map stx-cdr #'(method ...))) ((method-impl-name ...) @@ -1599,7 +1630,7 @@ package: gerbil/core (defdescriptor #'(def descriptor (begin-annotation (@interface klass-quoted (method-name ...)) - (make-interface-descriptor klass '(method-name ...))))) + (make-interface-descriptor klass '(method-name-spec ...))))) (defmake #'(def (make obj) (begin-annotation (@type.signature return: klass-quoted @@ -1628,7 +1659,9 @@ package: gerbil/core #'(defsyntax name (make-interface-info name: 'name + namespace: 'namespace interface-mixin: [(quote-syntax mixin) ...] + interface-precedence-list: [(quote-syntax mixin-precedence-list) ...] interface-methods: '(method ...) instance-type: (quote-syntax klass) interface-descriptor: (quote-syntax descriptor) @@ -2003,6 +2036,33 @@ package: gerbil/core #'(call-method receiver 'method arg ...)))) (defsyntax (defmethod/c stx) + ;; TODO check signatures and inject type decls when implementing an interface method + (def (make-method-name method rest) + (let loop ((rest rest)) + (syntax-case rest () + ((interface: Interface . _) + (let (info (resolve-type stx #'Interface)) + (if (interface-info? info) + (if (find (lambda (ms) (eq? (stx-e method) (car ms))) + (interface-info-interface-methods info)) + (stx-identifier method (interface-info-namespace info) "::" method) + (raise-syntax-error #f "unknown interface method" stx #'Interface method)) + (raise-syntax-error #f "not an interface type" stx #'Interface)))) + ((kw _ . rest) + (stx-keyword? #'kw) + (loop #'rest)) + (() method)))) + + (def (defmethod-rest rest) + (let recur ((rest rest)) + (syntax-case rest () + ((interface: _ . rest) + (recur #'rest)) + ((kw val . rest) + (stx-keyword? #'kw) + (cons* #'kw #'val (recur #'rest))) + (() [])))) + (syntax-case stx (lambda/c case-lambda/c @method-dotted) ((_ {method Type} (lambda/c (self . args) body ...) . rest) (and (identifier? #'self) @@ -2011,10 +2071,11 @@ package: gerbil/core (proc (syntax/loc stx (lambda/c (receiver . args) - (using (self receiver ::- Type) - (with-receiver self - (let () body ...))))))) - #'(defmethod (@method~ method Type) proc . rest))) + (using (self receiver ::- Type) + (with-receiver self (let () body ...)))))) + (method-name (make-method-name #'method #'rest)) + (rest (defmethod-rest #'rest))) + #'(defmethod (@method~ method-name Type) proc . rest))) ((_ {method Type} (case-lambda/c ((self . args) body ...) ...) . rest) (and (identifier-list? #'(self ...)) (identifier? #'method)) @@ -2025,12 +2086,15 @@ package: gerbil/core (case-lambda/c ((receiver . args) (using (self receiver ::- Type) - (with-receiver self - (let () body ...)))) - ...)))) - #'(defmethod (@method~ method Type) proc . rest))) - ((_ {method Type} . body) - #'(defmethod (@method~ method Type) . body)))) + (with-receiver self (let () body ...)))) + ...))) + (method-name (make-method-name #'method #'rest)) + (rest (defmethod-rest #'rest))) + #'(defmethod (@method~ method-name Type) proc . rest))) + ((_ {method Type} impl . rest) + (with-syntax ((method-name (make-method-name #'method #'rest)) + (rest (defmethod-rest #'rest))) + #'(defmethod (@method~ method-name Type) impl . rest))))) (defsyntax (with-receiver stx) (syntax-case stx () @@ -2173,9 +2237,11 @@ package: gerbil/core (cond ((interface-info? klass-b) (cond - ((member type-a (interface-info-flatten-mixin klass-b)) + ((member type-a (interface-info-interface-precedence-list klass-b) + free-identifier=?) type-b) - ((member type-b (interface-info-flatten-mixin klass-a)) + ((member type-b (interface-info-interface-precedence-list klass-a) + free-identifier=?) type-a) (else (raise-syntax-error #f "incompatible slot types" stx slot type-a type-b)))) @@ -2391,8 +2457,7 @@ package: gerbil/core struct: (lambda (klass-id) (!class-type-struct? (syntax-local-value/context klass-id))) - eq: free-identifier=? - get-name: stx-e)) + eq: free-identifier=?)) (base-fields (if base-struct (let (klass (syntax-local-value base-struct)) diff --git a/src/gerbil/core/expander.ss b/src/gerbil/core/expander.ss index e11e60359..944dd6e7e 100644 --- a/src/gerbil/core/expander.ss +++ b/src/gerbil/core/expander.ss @@ -41,6 +41,7 @@ package: gerbil/core current-expander-path current-expander-phi current-expander-compiling? + current-compilation-target current-module-reader-path current-module-reader-args local-context? top-context? module-context? prelude-context? diff --git a/src/gerbil/core/runtime.ss b/src/gerbil/core/runtime.ss index d925785cf..63c191426 100644 --- a/src/gerbil/core/runtime.ss +++ b/src/gerbil/core/runtime.ss @@ -1430,6 +1430,7 @@ package: gerbil/core display* file-newer? create-directory* + move-file absent-obj absent-value true @@ -1613,6 +1614,7 @@ package: gerbil/core seal-class! next-method call-next-method + type-of class-of t::t class::t @@ -1832,6 +1834,8 @@ package: gerbil/core set-load-path! load-module reload-module! + list-modules + module-load-order ;; :gerbil/runtime/init gerbil-load-expander! diff --git a/src/gerbil/core/sugar.ss b/src/gerbil/core/sugar.ss index 6438e8fef..3343c1355 100644 --- a/src/gerbil/core/sugar.ss +++ b/src/gerbil/core/sugar.ss @@ -146,7 +146,10 @@ package: gerbil/core ((_ message detail ...) (stx-string? #'message) (apply raise-syntax-error #f (stx-e #'message) stx - (syntax->list #'(detail ...))))))) + (syntax->list #'(detail ...)))))) + + (defrules compilation-target? () + ((_ sym) (eq? (current-compilation-target) 'sym)))) (module Sugar-2 (import Sugar-1 (phi: +1 Sugar-1)) diff --git a/src/gerbil/expander/core.ss b/src/gerbil/expander/core.ss index 4080a0cf6..3776a6ff3 100644 --- a/src/gerbil/expander/core.ss +++ b/src/gerbil/expander/core.ss @@ -37,6 +37,9 @@ namespace: gx (def current-expander-compiling? (make-parameter #f)) +(def current-compilation-target + (make-parameter #f)) + ;; expander context (defstruct expander-context (id table) constructor: :init! diff --git a/src/gerbil/gxc-main.ss b/src/gerbil/gxc-main.ss index 99039accb..253f6e9b1 100644 --- a/src/gerbil/gxc-main.ss +++ b/src/gerbil/gxc-main.ss @@ -9,6 +9,7 @@ (displayln " -h,--help display this help message and exit") (displayln " -d set compiler output directory; defaults to $GERBIL_PATH/lib") (displayln " -exe compile an executable") + (displayln " -target the compilation output target: C or js; defaults to C") (displayln " -o set executable output file") (displayln " -O optimize gerbil source") (displayln " -full-program-optimization perform full program optimization") @@ -29,6 +30,7 @@ (def (gxc-parse-args args) (def outdir (path-expand "lib" (gerbil-path))) (def invoke-gsc #t) + (def target 'C) (def keep-scm #f) (def verbose #f) (def optimize #f) @@ -48,6 +50,7 @@ (def (make-opts) [invoke-gsc: invoke-gsc keep-scm: keep-scm + target: target verbose: verbose optimize: optimize full-program-optimization: full-program-optimization @@ -127,7 +130,15 @@ (else `("-e" ,include-gambit-sharp))))) (lp rest)) - (("-prelude") + (("-target") + (match rest + ([opt . rest] + (set! target (string->symbol opt)) + (lp rest)) + (else + (gxc-print-usage!) + (exit 1)))) + (("-prelude") (match rest ([opt . rest] (add-gsc-option! ["-prelude" opt]) diff --git a/src/gerbil/runtime/eval.ss b/src/gerbil/runtime/eval.ss index 2bd176691..ad8480241 100644 --- a/src/gerbil/runtime/eval.ss +++ b/src/gerbil/runtime/eval.ss @@ -53,7 +53,7 @@ namespace: #f (error (if (fx< count k) "Too few values for context" "Too many values for context") - (if (##values? obj) (##vector->list obj) obj) + (if (##values? obj) (##values->list obj) obj) k)))) (def (__compile stx) @@ -114,7 +114,7 @@ namespace: #f (lambda (id k) (and (__AST-e id) (__SRC - `(define ,(__SRC id) (##vector-ref ,tmp ,k)) + `(define ,(__SRC id) (##values-ref ,tmp ,k)) stx))) ids (iota len))) stx))))))) @@ -263,7 +263,7 @@ namespace: #f (foldr (lambda (hd r) (match hd ([id . k] - (cons `(,id (##vector-ref ,tmp ,k)) r)))) + (cons `(,id (##values-ref ,tmp ,k)) r)))) bind init))) (else (__SRC @@ -337,7 +337,7 @@ namespace: #f (foldr (lambda (hd r) (match hd ([id . k] - (cons `(set! ,id (##vector-ref ,tmp ,k)) r)))) + (cons `(set! ,id (##values-ref ,tmp ,k)) r)))) bind init))) (else (__SRC @@ -416,7 +416,7 @@ namespace: #f (match hd ([id . k] (__SRC - `(set! ,id (##vector-ref ,tmp ,k)) + `(set! ,id (##values-ref ,tmp ,k)) stx)))) init)) stx) diff --git a/src/gerbil/runtime/hash.ss b/src/gerbil/runtime/hash.ss index 78e8a7e45..812f89e1a 100644 --- a/src/gerbil/runtime/hash.ss +++ b/src/gerbil/runtime/hash.ss @@ -39,23 +39,23 @@ namespace: #f (write-unlock!) => :void) ;; raw/builtin table methods -(bind-method! __table::t 'ref raw-table-ref) -(bind-method! __table::t 'set! raw-table-set!) -(bind-method! __table::t 'update! raw-table-update!) -(bind-method! __table::t 'delete! raw-table-delete!) -(bind-method! __table::t 'for-each raw-table-for-each) -(bind-method! __table::t 'length &raw-table-count) -(bind-method! __table::t 'copy raw-table-copy) -(bind-method! __table::t 'clear! raw-table-clear!) - -(bind-method! __gc-table::t 'ref gc-table-ref) -(bind-method! __gc-table::t 'set! gc-table-set!) -(bind-method! __gc-table::t 'update! gc-table-update!) -(bind-method! __gc-table::t 'delete! gc-table-delete!) -(bind-method! __gc-table::t 'for-each gc-table-for-each) -(bind-method! __gc-table::t 'length gc-table-length) -(bind-method! __gc-table::t 'copy gc-table-copy) -(bind-method! __gc-table::t 'clear! gc-table-clear!) +(bind-method! __table::t 'HashTable::ref raw-table-ref) +(bind-method! __table::t 'HashTable::set! raw-table-set!) +(bind-method! __table::t 'HashTable::update! raw-table-update!) +(bind-method! __table::t 'HashTable::delete! raw-table-delete!) +(bind-method! __table::t 'HashTable::for-each raw-table-for-each) +(bind-method! __table::t 'HashTable::length &raw-table-count) +(bind-method! __table::t 'HashTable::copy raw-table-copy) +(bind-method! __table::t 'HashTable::clear! raw-table-clear!) + +(bind-method! __gc-table::t 'HashTable::ref gc-table-ref) +(bind-method! __gc-table::t 'HashTable::set! gc-table-set!) +(bind-method! __gc-table::t 'HashTable::update! gc-table-update!) +(bind-method! __gc-table::t 'HashTable::delete! gc-table-delete!) +(bind-method! __gc-table::t 'HashTable::for-each gc-table-for-each) +(bind-method! __gc-table::t 'HashTable::length gc-table-length) +(bind-method! __gc-table::t 'HashTable::copy gc-table-copy) +(bind-method! __gc-table::t 'HashTable::clear! gc-table-clear!) (def (gambit-table-update! table key update default) (let (result (table-ref table key default)) @@ -67,14 +67,14 @@ namespace: #f (def (gambit-table-clear! table) (##unchecked-structure-set! table 0 5 #f #f)) -(bind-method! (macro-type-table) 'ref table-ref) -(bind-method! (macro-type-table) 'set! table-set!) -(bind-method! (macro-type-table) 'update! gambit-table-update!) -(bind-method! (macro-type-table) 'delete! table-set!) -(bind-method! (macro-type-table) 'for-each gambit-table-for-each) -(bind-method! (macro-type-table) 'length table-length) -(bind-method! (macro-type-table) 'copy table-copy) -(bind-method! (macro-type-table) 'clear! gambit-table-clear!) +(bind-method! (macro-type-table) 'HashTable::ref table-ref) +(bind-method! (macro-type-table) 'HashTable::set! table-set!) +(bind-method! (macro-type-table) 'HashTable::update! gambit-table-update!) +(bind-method! (macro-type-table) 'HashTable::delete! table-set!) +(bind-method! (macro-type-table) 'HashTable::for-each gambit-table-for-each) +(bind-method! (macro-type-table) 'HashTable::length table-length) +(bind-method! (macro-type-table) 'HashTable::copy table-copy) +(bind-method! (macro-type-table) 'HashTable::clear! gambit-table-clear!) ;; immediate hash-table class; reifies the raw-table type (def hash-table::t @@ -192,48 +192,48 @@ namespace: #f id: gerbil#immediate-hash-table::t name: hash-table) -(bind-method! hash-table::t 'ref raw-table-ref) -(bind-method! hash-table::t 'set! raw-table-set!) -(bind-method! hash-table::t 'update! raw-table-update!) -(bind-method! hash-table::t 'delete! raw-table-delete!) -(bind-method! hash-table::t 'for-each raw-table-for-each) -(bind-method! hash-table::t 'length &raw-table-count) -(bind-method! hash-table::t 'copy raw-table-copy) -(bind-method! hash-table::t 'clear! raw-table-clear!) - -(bind-method! eq-hash-table::t 'ref eq-table-ref) -(bind-method! eq-hash-table::t 'set! eq-table-set!) -(bind-method! eq-hash-table::t 'update! eq-table-update!) -(bind-method! eq-hash-table::t 'delete! eq-table-delete!) - -(bind-method! eqv-hash-table::t 'ref eqv-table-ref) -(bind-method! eqv-hash-table::t 'set! eqv-table-set!) -(bind-method! eqv-hash-table::t 'update! eqv-table-update!) -(bind-method! eqv-hash-table::t 'delete! eqv-table-delete!) - -(bind-method! symbol-hash-table::t 'ref symbolic-table-ref) -(bind-method! symbol-hash-table::t 'set! symbolic-table-set!) -(bind-method! symbol-hash-table::t 'update! symbolic-table-update!) -(bind-method! symbol-hash-table::t 'delete! symbolic-table-delete!) - -(bind-method! string-hash-table::t 'ref string-table-ref) -(bind-method! string-hash-table::t 'set! string-table-set!) -(bind-method! string-hash-table::t 'update! string-table-update!) -(bind-method! string-hash-table::t 'delete! string-table-delete!) - -(bind-method! immediate-hash-table::t 'ref immediate-table-ref) -(bind-method! immediate-hash-table::t 'set! immediate-table-set!) -(bind-method! immediate-hash-table::t 'update! immediate-table-update!) -(bind-method! immediate-hash-table::t 'delete! immediate-table-delete!) - -(bind-method! gc-hash-table::t 'ref gc-table-ref) -(bind-method! gc-hash-table::t 'set! gc-table-set!) -(bind-method! gc-hash-table::t 'update! gc-table-update!) -(bind-method! gc-hash-table::t 'delete! gc-table-delete!) -(bind-method! gc-hash-table::t 'for-each gc-table-for-each) -(bind-method! gc-hash-table::t 'length gc-table-length) -(bind-method! gc-hash-table::t 'copy gc-table-copy) -(bind-method! gc-hash-table::t 'clear! gc-table-clear!) +(bind-method! hash-table::t 'HashTable::ref raw-table-ref) +(bind-method! hash-table::t 'HashTable::set! raw-table-set!) +(bind-method! hash-table::t 'HashTable::update! raw-table-update!) +(bind-method! hash-table::t 'HashTable::delete! raw-table-delete!) +(bind-method! hash-table::t 'HashTable::for-each raw-table-for-each) +(bind-method! hash-table::t 'HashTable::length &raw-table-count) +(bind-method! hash-table::t 'HashTable::copy raw-table-copy) +(bind-method! hash-table::t 'HashTable::clear! raw-table-clear!) + +(bind-method! eq-hash-table::t 'HashTable::ref eq-table-ref) +(bind-method! eq-hash-table::t 'HashTable::set! eq-table-set!) +(bind-method! eq-hash-table::t 'HashTable::update! eq-table-update!) +(bind-method! eq-hash-table::t 'HashTable::delete! eq-table-delete!) + +(bind-method! eqv-hash-table::t 'HashTable::ref eqv-table-ref) +(bind-method! eqv-hash-table::t 'HashTable::set! eqv-table-set!) +(bind-method! eqv-hash-table::t 'HashTable::update! eqv-table-update!) +(bind-method! eqv-hash-table::t 'HashTable::delete! eqv-table-delete!) + +(bind-method! symbol-hash-table::t 'HashTable::ref symbolic-table-ref) +(bind-method! symbol-hash-table::t 'HashTable::set! symbolic-table-set!) +(bind-method! symbol-hash-table::t 'HashTable::update! symbolic-table-update!) +(bind-method! symbol-hash-table::t 'HashTable::delete! symbolic-table-delete!) + +(bind-method! string-hash-table::t 'HashTable::ref string-table-ref) +(bind-method! string-hash-table::t 'HashTable::set! string-table-set!) +(bind-method! string-hash-table::t 'HashTable::update! string-table-update!) +(bind-method! string-hash-table::t 'HashTable::delete! string-table-delete!) + +(bind-method! immediate-hash-table::t 'HashTable::ref immediate-table-ref) +(bind-method! immediate-hash-table::t 'HashTable::set! immediate-table-set!) +(bind-method! immediate-hash-table::t 'HashTable::update! immediate-table-update!) +(bind-method! immediate-hash-table::t 'HashTable::delete! immediate-table-delete!) + +(bind-method! gc-hash-table::t 'HashTable::ref gc-table-ref) +(bind-method! gc-hash-table::t 'HashTable::set! gc-table-set!) +(bind-method! gc-hash-table::t 'HashTable::update! gc-table-update!) +(bind-method! gc-hash-table::t 'HashTable::delete! gc-table-delete!) +(bind-method! gc-hash-table::t 'HashTable::for-each gc-table-for-each) +(bind-method! gc-hash-table::t 'HashTable::length gc-table-length) +(bind-method! gc-hash-table::t 'HashTable::copy gc-table-copy) +(bind-method! gc-hash-table::t 'HashTable::clear! gc-table-clear!) ;; HashTable interface methods (def hash-table? @@ -252,7 +252,8 @@ namespace: #f (dynamic-wind (cut begin-lock l) (cut hash-method h arg ...) - (cut end-lock l))))))) + (cut end-lock l)))) + interface: HashTable))) (deflocked-hash-method (ref key default) &Locker-read-lock! @@ -296,10 +297,10 @@ namespace: #f ;; checked hash table methods ;; make mutexes implement the hash table lock interface -(bind-method! (macro-type-mutex) 'read-lock! mutex-lock!) -(bind-method! (macro-type-mutex) 'read-unlock! mutex-unlock!) -(bind-method! (macro-type-mutex) 'write-lock! mutex-lock!) -(bind-method! (macro-type-mutex) 'write-unlock! mutex-unlock!) +(bind-method! (macro-type-mutex) 'Locker::read-lock! mutex-lock!) +(bind-method! (macro-type-mutex) 'Locker::read-unlock! mutex-unlock!) +(bind-method! (macro-type-mutex) 'Locker::write-lock! mutex-lock!) +(bind-method! (macro-type-mutex) 'Locker::write-unlock! mutex-unlock!) (defrules defchecked-hash-method () ((_ (method self arg ...) check hash-method) @@ -314,7 +315,8 @@ namespace: #f (raise-contract-violation-error "invalid key" context: 'hash-method - value: [arg ...])))))))) + value: [arg ...]))))) + interface: HashTable))) (defchecked-hash-method (ref self key default) (lambda (key? key default) (key? key)) diff --git a/src/gerbil/runtime/interface.ss b/src/gerbil/runtime/interface.ss index 8903151c7..cae523962 100644 --- a/src/gerbil/runtime/interface.ss +++ b/src/gerbil/runtime/interface.ss @@ -61,12 +61,23 @@ namespace: #f (count 0) (methods [])) (match rest - ([method-name . rest] + ([method-spec . rest] (cond - ((symbolic-table-ref method-table method-name #f) + ((pair? method-spec) + (let loop-inner ((methods-rest method-spec)) + (match methods-rest + ([method-name . methods-rest] + (cond + ((symbolic-table-ref method-table method-name #f) + => (lambda (method) (loop rest (##fx+ count 1) (cons method methods)))) + (else + (loop-inner methods-rest)))) + (else + (fail! klass obj-klass method-spec))))) + ((symbolic-table-ref method-table method-spec #f) => (lambda (method) (loop rest (##fx+ count 1) (cons method methods)))) (else - (fail! klass obj-klass method-name)))) + (fail! klass obj-klass method-spec)))) (else (let (prototype (make-object klass (##fx+ count 2))) (let loop ((rest methods) (off (##fx+ count 1))) diff --git a/src/gerbil/runtime/loader.ss b/src/gerbil/runtime/loader.ss index 3df69e1c1..9e84b7f96 100644 --- a/src/gerbil/runtime/loader.ss +++ b/src/gerbil/runtime/loader.ss @@ -12,6 +12,8 @@ namespace: #f (def __load-mx (make-mutex 'loader)) (def __load-cv (make-condition-variable 'loader)) (def __load-path []) +(def __load-order (make-hash-table)) +(def __load-order-next 1) (def (load-path) => :list __load-path) @@ -60,6 +62,9 @@ namespace: #f (let (loaded-path (load path)) (mutex-lock! __load-mx) (hash-put! __modules modpath loaded-path) + (unless (hash-get __load-order modpath) + (hash-put! __load-order modpath __load-order-next) + (set! __load-order-next (1+ __load-order-next))) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) loaded-path))))) @@ -81,11 +86,13 @@ namespace: #f (error "module is still loading")) ((string? state) (let (latest-path (__find-library-module modpath)) - (when (or (equal? (path-extension state) ".scm") - (not (equal? state latest-path))) - (hash-remove! __modules modpath) - (mutex-unlock! __load-mx) - (load-module modpath)))) + (if (or (equal? (path-extension state) ".scm") + (not (equal? state latest-path))) + (begin + (hash-remove! __modules modpath) + (mutex-unlock! __load-mx) + (load-module modpath)) + (mutex-unlock! __load-mx)))) ((and (pair? state) (eq? (car state) 'error)) (hash-remove! __modules modpath) (mutex-unlock! __load-mx) @@ -119,3 +126,23 @@ namespace: #f ((find-source-file npath) => path-normalize) (else (lp rest))))) (else #f)))) + +(def (list-modules) + => :list + (mutex-lock! __load-mx) + (let (result (hash->list __modules)) + (mutex-unlock! __load-mx) + (:- result :list))) + +(def (module-load-order (modpath : :string)) + => :integer + (mutex-lock! __load-mx) + (let (ord + (cond + ((eq? (hash-get __modules modpath) 'builtin) 0) + ((hash-get __load-order modpath)) + (else #f))) + (mutex-unlock! __load-mx) + (if (exact-integer? ord) + ord + (abort! (error "unknown module load order" module: modpath))))) diff --git a/src/gerbil/runtime/mop.ss b/src/gerbil/runtime/mop.ss index 6dcfef36a..b0136e5a2 100644 --- a/src/gerbil/runtime/mop.ss +++ b/src/gerbil/runtime/mop.ss @@ -1190,74 +1190,150 @@ namespace: #f (else (loop (##type-super super) (cons super hierarchy)))))))) -;; the class-of operator -(def (class-of obj) => :class - (declare (not interrupts-enabled)) - (:- (let (t (##type obj)) - (cond - ((fx= t (macro-type-subtyped)) ; subtyped - (let (st (##subtype obj)) - (cond - ((fx= st (macro-subtype-structure)) ; object - (let (klass (##structure-type obj)) - (if (class-type? klass) klass (__shadow-class klass)))) - ((fx= st (macro-subtype-boxvalues)) ; box or values? - (if (fx= (##vector-length obj) 1) - (__system-class 'box) - (__system-class 'values))) - ((##vector-ref __subtype-id st) - => __system-class) - (else - (error "unknown class" subtype: st object: obj))))) - ((fx= t (macro-type-mem2)) ; pair - (__system-class 'pair)) - ((fx= t (macro-type-fixnum)) ; fixnum - (__system-class 'fixnum)) - (else ; special (immediate) - (cond - ((char? obj) (__system-class 'char)) - ((eq? obj '()) (__system-class 'null)) - ((eq? obj #f) (__system-class 'boolean)) - ((eq? obj #t) (__system-class 'boolean)) - ((eq? obj #!void) (__system-class 'void)) - ((eq? obj #!eof) (__system-class 'eof)) - (else - (__system-class 'special)))))) - :class)) - -(def __subtype-id (make-vector 32 #f)) - -(defrules defsubtype () - ((_ (t name) ...) - (begin (vector-set! __subtype-id t 'name) ...))) - -(defsubtype - ((macro-subtype-vector) vector) - ((macro-subtype-pair) pair) - ((macro-subtype-ratnum) ratnum) - ((macro-subtype-cpxnum) cpxnum) - ((macro-subtype-symbol) symbol) - ((macro-subtype-keyword) keyword) - ((macro-subtype-frame) frame) - ((macro-subtype-continuation) continuation) - ((macro-subtype-promise) promise) - ((macro-subtype-weak) weak) - ((macro-subtype-procedure) procedure) - ((macro-subtype-return) return) - ((macro-subtype-foreign) foreign) - ((macro-subtype-string) string) - ((macro-subtype-s8vector) s8vector) - ((macro-subtype-u8vector) u8vector) - ((macro-subtype-s16vector) s16vector) - ((macro-subtype-u16vector) u16vector) - ((macro-subtype-s32vector) s32vector) - ((macro-subtype-u32vector) u32vector) - ((macro-subtype-f32vector) f32vector) - ((macro-subtype-s64vector) s64vector) - ((macro-subtype-u64vector) u64vector) - ((macro-subtype-f64vector) f64vector) - ((macro-subtype-flonum) flonum) - ((macro-subtype-bignum) bignum)) +;; support for the type-of/class-of operators +(cond-expand + (,(compilation-target? C) + ;; we crate the type mapping vector at runtime so that we are configuration independent + (def __type + (let (tb (##c-code "___RESULT = ___FIX(___TB);")) + (case tb + ((2) + '#(fixnum subtyped special pair)) + ((3) + (let ((flonum-self-tagging-tags + (##c-code "___RESULT = ___FIX(___FLONUM_SELF_TAGGING_TAGS);")) + (fixnum-tag-bits + (##c-code #< __system-class) + (else + (error "unknown class" subtype: st object: obj)))))) + ((eq? t 'special) + (lambda (obj) + (declare (not interrupts-enabled) (not safe)) + (cond + ((char? obj) (__system-class 'char)) + ((eq? obj '()) (__system-class 'null)) + ((eq? obj #f) (__system-class 'boolean)) + ((eq? obj #t) (__system-class 'boolean)) + ((eq? obj #!void) (__system-class 'void)) + ((eq? obj #!eof) (__system-class 'eof)) + (else + (__system-class 'special))))) + (else + (error "unexpected object type" t))))) + (##vector-set! cv i f) + (loop (##fx+ i 1))) + cv)))) + + ;; the type-of operator + (def (type-of obj) => :symbol + (declare + (not safe) + (not interrupts-enabled)) + (:- (##vector-ref __type (##type obj)) :symbol)) + + ;; the class-of operator + (def (class-of obj) => :class + (declare + (not safe) + (not interrupts-enabled)) + (:- (let* ((t (##type obj)) + (f (##vector-ref __class t))) + (f obj)) + :class)) + + (def __subtype-id (make-vector 32 #f)) + + (defrules defsubtype () + ((_ (t name) ...) + (begin (vector-set! __subtype-id t 'name) ...))) + + (defsubtype + ((macro-subtype-vector) vector) + ((macro-subtype-pair) pair) + ((macro-subtype-ratnum) ratnum) + ((macro-subtype-cpxnum) cpxnum) + ((macro-subtype-symbol) symbol) + ((macro-subtype-keyword) keyword) + ((macro-subtype-frame) frame) + ((macro-subtype-continuation) continuation) + ((macro-subtype-promise) promise) + ((macro-subtype-weak) weak) + ((macro-subtype-procedure) procedure) + ((macro-subtype-return) return) + ((macro-subtype-foreign) foreign) + ((macro-subtype-string) string) + ((macro-subtype-s8vector) s8vector) + ((macro-subtype-u8vector) u8vector) + ((macro-subtype-s16vector) s16vector) + ((macro-subtype-u16vector) u16vector) + ((macro-subtype-s32vector) s32vector) + ((macro-subtype-u32vector) u32vector) + ((macro-subtype-f32vector) f32vector) + ((macro-subtype-s64vector) s64vector) + ((macro-subtype-u64vector) u64vector) + ((macro-subtype-f64vector) f64vector) + ((macro-subtype-flonum) flonum) + ((macro-subtype-bignum) bignum))) + (else + ;; TODO js and other target support + (syntax-error "unsupported compilation target"))) ;; system classes for primitive types (def __system-classes diff --git a/src/gerbil/runtime/util.ss b/src/gerbil/runtime/util.ss index 79cf64dca..1a3c1256b 100644 --- a/src/gerbil/runtime/util.ss +++ b/src/gerbil/runtime/util.ss @@ -96,6 +96,40 @@ namespace: #f (create1 dir))))) (void)) +(def (move-file (src : :string) (dest : :string) (replace? : :boolean := #t)) + => :void + (def (force-move-it) + (let (tmp (and replace? + (file-exists? dest) + (string-append dest "." (number->string (##current-time-point))))) + (when tmp + (rename-file dest tmp)) + (with-exception-catcher + (lambda (e) + (when tmp + (rename-file tmp dest #t)) + (raise e)) + (lambda () + (let (fi (file-info src #f)) + (if (eq? (file-info-type fi) 'symbolic-link) + ;; there is no portable way to get the immediate link, so the + ;; best we can do is to normalize the path + (create-symbolic-link (path-normalize src) dest) + (copy-file src dest))) + (delete-file src) + (when tmp + (with-exception-catcher void (cut delete-file tmp))))))) + + (with-exception-catcher + (lambda (e) + ;; ideally we would check the exception for errno=EXDEV, but this is + ;; not portable, so we just try to force move it if it exists + (if (file-exists? src) + (force-move-it) + (raise e))) + (cut rename-file src dest replace?)) + (void)) + (def absent-obj (##absent-object)) @@ -755,9 +789,8 @@ namespace: #f (def (write-u8vector (bytes : :u8vector) (port :~ output-port? :- :port) - (start :~ (in-range? 0 (u8vector-length bytes)) :- :fixnum - := 0) - (end :~ (in-range-inclusive? start (u8vector-length bytes)) :- :fixnum + (start :- :fixnum := 0) + (end :~ (in-range-inclusive? start (u8vector-length bytes)) :- :fixnum := (u8vector-length bytes))) => :void (:- (##write-subu8vector bytes start end port) diff --git a/src/std/actor-v18/admin.ss b/src/std/actor-v18/admin.ss index fbe4c6358..f5cc16c39 100644 --- a/src/std/actor-v18/admin.ss +++ b/src/std/actor-v18/admin.ss @@ -81,8 +81,8 @@ (lambda (out) (write-subu8vector pubk-bytes 0 (u8vector-length pubk-bytes) out))) (call-with-output-file privk-path-tmp (lambda (out) (write-subu8vector privk-blob 0 (u8vector-length privk-blob) out))) - (rename-file pubk-path-tmp pubk-path) - (rename-file privk-path-tmp privk-path)))) + (move-file pubk-path-tmp pubk-path) + (move-file privk-path-tmp privk-path)))) (def (admin-auth-challenge-sign privk server-id client-id challenge-bytes) (let (challenge diff --git a/src/std/actor-v18/io-test.ss b/src/std/actor-v18/io-test.ss index 0865deffa..bd413a89f 100644 --- a/src/std/actor-v18/io-test.ss +++ b/src/std/actor-v18/io-test.ss @@ -32,8 +32,8 @@ (check-exception (BufferedWriter-marshal buf value) io-error?))) (def (equal-values? a b) - (and (= (##type a) 1) - (= (##type b) 1) + (and (eq? (type-of a) 'subtyped) + (eq? (type-of b) 'subtyped) (= (##subtype a) 5) (= (##subtype b) 5) (= (##vector-length a) (##vector-length b)) diff --git a/src/std/actor-v18/io.ss b/src/std/actor-v18/io.ss index f914ffe70..3193b5a87 100644 --- a/src/std/actor-v18/io.ss +++ b/src/std/actor-v18/io.ss @@ -243,7 +243,7 @@ ;;; internals (def +type-tag+ - (make-vector 4 false)) + (make-hash-table-eq)) (def +subtype-tag+ (make-vector 32 false)) (def +marshal+ @@ -252,7 +252,7 @@ (make-vector 256 #f)) (def (object-tag obj) - (or ((vector-ref +type-tag+ (##type obj)) obj) + (or ((hash-ref +type-tag+ (type-of obj)) obj) serde-tag)) ;;; io registry @@ -301,9 +301,9 @@ ;; tags (defrules deftype-tag (=>) ((_ (type tag)) - (vector-set! +type-tag+ type (lambda (obj) tag))) + (hash-put! +type-tag+ 'type (lambda (obj) tag))) ((_ (type => fun)) - (vector-set! +type-tag+ type fun))) + (hash-put! +type-tag+ 'type fun))) (defrule (deftype-tags defn ...) (begin (deftype-tag defn) ...)) @@ -339,10 +339,6 @@ (else #f))) (extern namespace: #f - macro-type-fixnum - macro-type-mem1 - macro-type-special - macro-type-mem2 macro-subtype-vector macro-subtype-pair macro-subtype-structure @@ -355,10 +351,12 @@ macro-subtype-bignum) (deftype-tags - ((macro-type-fixnum) integer-tag) - ((macro-type-mem1) => subtyped-tag) - ((macro-type-special) => immediate-tag) - ((macro-type-mem2) pair-tag)) + (fixnum integer-tag) + (subtyped => subtyped-tag) + (special => immediate-tag) + (pair pair-tag) + (vector vector-tag) + (flonum double-tag)) (defsubtype-tags ((macro-subtype-vector) vector-tag) diff --git a/src/std/actor-v18/registry.ss b/src/std/actor-v18/registry.ss index 63b75feb8..008e49893 100644 --- a/src/std/actor-v18/registry.ss +++ b/src/std/actor-v18/registry.ss @@ -120,15 +120,15 @@ (unless (eof-object? next) (match next ([id roles . addrs] - (registry::add-server self id addrs roles) + (registry::__add-server self id addrs roles) (lp)))))))) (set! self.dirty? #f))))) -(defmethod {add-server registry} +(defmethod {__add-server registry} (lambda (self id addrs roles) ;; is it an update? if so remove first (when (hash-key? self.servers id) - (registry::remove-server self id)) + (registry::__remove-server self id)) ;; and now add it (hash-put! self.servers id (cons roles addrs)) (when roles @@ -136,7 +136,11 @@ (hash-update! self.roles role (cut cons id <>) []))) (set! self.dirty? #t))) -(defmethod {remove-server registry} +(defmethod {add-server registry} + registry::__add-server + interface: Registry) + +(defmethod {__remove-server registry} (lambda (self id) (cond ((hash-get self.servers id) @@ -146,22 +150,29 @@ (hash-remove! self.servers id) (set! self.dirty? #t)))))) +(defmethod {remove-server registry} + registry::__remove-server + interface: Registry) + (defmethod {lookup-server registry} (lambda (self id) (alet (entry (hash-get self.servers id)) - (cdr entry)))) + (cdr entry))) + interface: Registry) (defmethod {lookup-servers/role registry} (lambda (self role) (let (servers (hash-ref self.roles role [])) (map (lambda (id) (cons id (cdr (hash-ref self.servers id [])))) - servers)))) + servers))) + interface: Registry) (defmethod {list-servers registry} (lambda (self) - (hash->list self.servers))) + (hash->list self.servers)) + interface: Registry) -(defmethod {flush registry} +(defmethod {__flush registry} (lambda (self) (when self.dirty? (let (tmp (string-append self.path ".tmp")) @@ -170,8 +181,13 @@ (for (entry (hash->list self.servers)) (write entry file) (newline file)))) - (rename-file tmp self.path) + (move-file tmp self.path) (set! self.dirty? #f))))) +(defmethod {flush registry} + registry::__flush + interface: Registry) + (defmethod {close registry} - registry::flush) + registry::__flush + interface: Registry) diff --git a/src/std/interactive.ss b/src/std/interactive.ss index 8a096e514..02ea3a33b 100644 --- a/src/std/interactive.ss +++ b/src/std/interactive.ss @@ -4,11 +4,13 @@ (export #t (for-syntax #t)) -(module - (import :gerbil/core/expander) +(module Util + (import :gerbil/core/expander + :gerbil/runtime/loader + :std/sort) (export #t) ;; Module reloading - (def (reload-module! mod) + (def (do-reload-module! mod) (cond ((string? mod) ; file path, resource it (import-module mod #t #t)) @@ -18,19 +20,39 @@ ((string-empty? str) (error "Invalid module path" mod)) ((eq? (string-ref str 0) #\:) ; library module - (reload-module! (substring str 1 (string-length str))) - (import-module mod #t #t)) + (let (base (substring str 1 (string-length str))) + (reload-all! base) + (import-module mod #t #t))) (else ; top module (void))))) (else - (error "Invalid module path" mod))))) -(import (for-syntax )) + (error "Invalid module path" mod)))) + + (def (reload-all! modbase) + (let* ((loaded-modules (list-modules)) + (to-reload + (filter-map + (lambda (p) + (with ([modpath . state] p) + (and (not (eq? state 'builtin)) + (string-prefix? modbase modpath) + modpath))) + loaded-modules)) + (load-order + (list->hash-table + (map (lambda (modpath) (cons modpath (module-load-order modpath))) + to-reload))) + (to-reload + (sort to-reload + (lambda (x y) (< (hash-ref load-order x) (hash-ref load-order y)))))) + (for-each reload-module! to-reload)))) +(import (for-syntax Util)) (defsyntax (reload! stx) (syntax-case stx () ((_ mod) (begin - (reload-module! (stx-e #'mod)) + (do-reload-module! (stx-e #'mod)) #'(import mod))))) (defrules reload () diff --git a/src/std/io/bio/api.ss b/src/std/io/bio/api.ss index bd728a602..641e6fd0e 100644 --- a/src/std/io/bio/api.ss +++ b/src/std/io/bio/api.ss @@ -136,58 +136,83 @@ ;;; Interface ;; input-buffer BufferedReader implementation (defmethod {read input-buffer} - bio-read-bytes) + bio-read-bytes + interface: Reader) (defmethod {read-u8 input-buffer} - bio-read-u8) + bio-read-u8 + interface: PeekableReader) (defmethod {peek-u8 input-buffer} - bio-peek-u8) + bio-peek-u8 + interface: PeekableReader) (defmethod {put-back input-buffer} - bio-put-back) + bio-put-back + interface: BufferedReader) (defmethod {skip input-buffer} - bio-skip-input) + bio-skip-input + interface: BufferedReader) (defmethod {delimit input-buffer} - bio-delimit-input) + bio-delimit-input + interface: BufferedReader) (defmethod {reset! input-buffer} - bio-reset-input!) + bio-reset-input! + interface: BufferedReader) (defmethod {available input-buffer} - bio-available) + bio-available + interface: BufferedReader) (defmethod {close input-buffer} - bio-close-input) + bio-close-input + interface: Closer) ;; delimited-input-buffer BufferedReader implementation (defmethod {read delimited-input-buffer} - bio-delimited-read-bytes) + bio-delimited-read-bytes + interface: Reader) (defmethod {read-u8 delimited-input-buffer} - bio-delimited-read-u8) + bio-delimited-read-u8 + interface: PeekableReader) (defmethod {peek-u8 delimited-input-buffer} - bio-delimited-peek-u8) + bio-delimited-peek-u8 + interface: PeekableReader) (defmethod {put-back delimited-input-buffer} - bio-delimited-put-back) + bio-delimited-put-back + interface: BufferedReader) (defmethod {skip delimited-input-buffer} - bio-delimited-skip-input) + bio-delimited-skip-input + interface: BufferedReader) (defmethod {delimit delimited-input-buffer} - bio-delimited-delimit-input) + bio-delimited-delimit-input + interface: BufferedReader) (defmethod {reset! delimited-input-buffer} - bio-delimited-reset-input!) + bio-delimited-reset-input! + interface: BufferedReader) (defmethod {available delimited-input-buffer} - bio-delimited-available) + bio-delimited-available + interface: BufferedReader) (defmethod {close delimited-input-buffer} - bio-delimited-close) + bio-delimited-close + interface: Closer) ;; output-buffer BufferedWriter implementation (defmethod {write output-buffer} - bio-write-bytes) + bio-write-bytes + interface: Writer) (defmethod {write-u8 output-buffer} - bio-write-u8) + bio-write-u8 + interface: BufferedWriter) (defmethod {flush output-buffer} - bio-flush-output) + bio-flush-output + interface: BufferedWriter) (defmethod {reset! output-buffer} - bio-reset-output!) + bio-reset-output! + interface: BufferedWriter) (defmethod {close output-buffer} - bio-close-output) + bio-close-output + interface: Closer) ;; chunked-output-buffer Writer implementation (defmethod {write chunked-output-buffer} - bio-chunked-write-bytes) + bio-chunked-write-bytes + interface: Writer) (defmethod {close chunked-output-buffer} - bio-chunked-close) + bio-chunked-close + interface: Closer) diff --git a/src/std/io/delimited.ss b/src/std/io/delimited.ss index 1ed12b28d..1a2b2a311 100644 --- a/src/std/io/delimited.ss +++ b/src/std/io/delimited.ss @@ -43,11 +43,13 @@ output-end)) (read (self.reader.read output output-start output-end input-need))) (set! self.remaining (fx- remaining read)) - read)))))) + read))))) + interface: Reader) (defmethod {close delimited-reader} (lambda (self) - (self.reader.close))) + (self.reader.close)) + interface: Closer) (defmethod {read-string delimited-string-reader} (lambda (self (output :- :string) @@ -67,8 +69,10 @@ output-end)) (read (self.reader.read-string output output-start output-end input-need))) (set! self.remaining (fx- remaining read)) - read)))))) + read))))) + interface: StringReader) (defmethod {close delimited-string-reader} (lambda (self) - (self.reader.close))) + (self.reader.close)) + interface: Closer) diff --git a/src/std/io/dummy.ss b/src/std/io/dummy.ss index 6ec46fdce..606fc5299 100644 --- a/src/std/io/dummy.ss +++ b/src/std/io/dummy.ss @@ -12,24 +12,29 @@ (lambda (self output output-start output-end input-need) (if (fx> input-need 0) (raise-premature-end-of-input dummy-read) - 0))) + 0)) + interface: Reader) (defmethod {write dummy-io} (lambda (self input input-start input-end) - (fx- input-end input-start))) + (fx- input-end input-start)) + interface: Writer) (defmethod {read-string dummy-io} (lambda (self output output-start output-end input-need) (if (fx> input-need 0) (raise-premature-end-of-input dummy-read-string) - 0))) + 0)) + interface: StringReader) (defmethod {write-string dummy-io} (lambda (self input input-start input-end) - (fx- input-end input-start))) + (fx- input-end input-start)) + interface: StringWriter) (defmethod {close dummy-io} - void) + void + interface: Closer) (def dummy (make-dummy-io)) (def dummy-reader (Reader dummy)) diff --git a/src/std/io/file.ss b/src/std/io/file.ss index 88b0c84e7..4bfb07fd1 100644 --- a/src/std/io/file.ss +++ b/src/std/io/file.ss @@ -42,7 +42,8 @@ (fx+ result read)) (else (lp (fx+ output-start read) (fx- input-need read) (fx+ result read))))) - result))))) + result)))) + interface: Reader) (defmethod {write output-file-io} (lambda (self input input-start input-end) @@ -58,20 +59,23 @@ (lp input-start result)) (else (lp (fx+ input-start wrote) (fx+ result wrote))))) - result))))) + result)))) + interface: Writer) (defmethod {close file-io} (lambda (self) (unless self.closed? (set! self.closed? #t) - (close-port self.fd)))) + (close-port self.fd))) + interface: Closer) (defmethod {seek file-io} (lambda (self position from) (when self.closed? (raise-io-closed file-io "file is closed")) (fdseek self.fd position from) - (void))) + (void)) + interface: Seeker) (defrule (open-file-io path flags mode make) (let (fd (open path flags mode)) diff --git a/src/std/io/socket/api.ss b/src/std/io/socket/api.ss index a2865fe8d..283e335e9 100644 --- a/src/std/io/socket/api.ss +++ b/src/std/io/socket/api.ss @@ -93,60 +93,84 @@ ;;; Interface ;; basic-socket Socket implementation (defmethod {domain basic-socket} - &basic-socket-domain) + &basic-socket-domain + interface: Socket) (defmethod {address basic-socket} - basic-socket-local-address) + basic-socket-local-address + interface: Socket) (defmethod {peer-address basic-socket} - basic-socket-peer-address) + basic-socket-peer-address + interface: Socket) (defmethod {getsockopt basic-socket} - basic-socket-getsockopt) + basic-socket-getsockopt + interface: Socket) (defmethod {setsockopt basic-socket} - basic-socket-setsockopt) + basic-socket-setsockopt + interface: Socket) (defmethod {set-input-timeout! basic-socket} - &basic-socket-timeo-in-set!) + &basic-socket-timeo-in-set! + interface: Socket) (defmethod {set-output-timeout! basic-socket} - &basic-socket-timeo-out-set!) + &basic-socket-timeo-out-set! + interface: Socket) (defmethod {close basic-socket} - basic-socket-close) + basic-socket-close + interface: Closer) ;; stream-socket StreamSocket implementation (defmethod {recv stream-socket} - stream-socket-recv) + stream-socket-recv + interface: StreamSocket) (defmethod {send stream-socket} - stream-socket-send) + stream-socket-send + interface: StreamSocket) (defmethod {reader stream-socket} - stream-socket-get-reader) + stream-socket-get-reader + interface: StreamSocket) (defmethod {writer stream-socket} - stream-socket-get-writer) + stream-socket-get-writer + interface: StreamSocket) (defmethod {shutdown stream-socket} - stream-socket-shutdown) + stream-socket-shutdown + interface: StreamSocket) (defmethod {close stream-socket} - stream-socket-close) + stream-socket-close + interface: Closer) ;; stream-socket-reader Reader implementation (defmethod {read stream-socket-reader} - stream-socket-read) + stream-socket-read + interface: Reader) (defmethod {close stream-socket-reader} - stream-socket-close-reader) + stream-socket-close-reader + interface: Closer) ;; stream-socket-writer Writer implementation (defmethod {write stream-socket-writer} - stream-socket-write) + stream-socket-write + interface: Writer) (defmethod {close stream-socket-writer} - stream-socket-close-writer) + stream-socket-close-writer + interface: Closer) ;; basic-server-socket ServerSocket implementation (defmethod {accept basic-server-socket} - server-socket-accept) + server-socket-accept + interface: ServerSocket) ;; datagram-socket DatagramSocket implementation (defmethod {recvfrom datagram-socket} - datagram-socket-recvfrom) + datagram-socket-recvfrom + interface: DatagramSocket) (defmethod {sendto datagram-socket} - datagram-socket-sendto) + datagram-socket-sendto + interface: DatagramSocket) (defmethod {connect datagram-socket} - datagram-socket-connect) + datagram-socket-connect + interface: DatagramSocket) (defmethod {recv datagram-socket} - datagram-socket-recv) + datagram-socket-recv + interface: DatagramSocket) (defmethod {send datagram-socket} - datagram-socket-send) + datagram-socket-send + interface: DatagramSocket) diff --git a/src/std/io/strio/api.ss b/src/std/io/strio/api.ss index f7d7df151..4b1f1f64d 100644 --- a/src/std/io/strio/api.ss +++ b/src/std/io/strio/api.ss @@ -216,70 +216,99 @@ ;; string-reader implements StringReader (defmethod {read-string string-reader} - strio-read-string) + strio-read-string + interface: StringReader) (defmethod {close string-reader} - strio-close-input) + strio-close-input + interface: Closer) ;; string-input-buffer implements BufferedStringReader +(defmethod {read-string string-input-buffer} + strbuf-read-string + interface: StringReader) (defmethod {read-char string-input-buffer} - strbuf-read-char) + strbuf-read-char + interface: PeekableStringReader) (defmethod {peek-char string-input-buffer} - strbuf-peek-char) -(defmethod {read-string string-input-buffer} - strbuf-read-string) + strbuf-peek-char + interface: PeekableStringReader) (defmethod {put-back string-input-buffer} - strbuf-put-back) + strbuf-put-back + interface: BufferedStringReader) (defmethod {skip string-input-buffer} - strbuf-skip-input) + strbuf-skip-input + interface: BufferedStringReader) (defmethod {delimit string-input-buffer} - strbuf-delimit-input) + strbuf-delimit-input + interface: BufferedStringReader) (defmethod {reset! string-input-buffer} - strbuf-reset-input!) + strbuf-reset-input! + interface: BufferedStringReader) (defmethod {available string-input-buffer} - strbuf-available) + strbuf-available + interface: BufferedStringReader) (defmethod {close string-input-buffer} - strbuf-close-input) + strbuf-close-input + interface: Closer) ;; delimited-string-input-buffer BufferedReader implementation (defmethod {read-string delimited-string-input-buffer} - strbuf-delimited-read-string) + strbuf-delimited-read-string + interface: StringReader) (defmethod {read-char delimited-string-input-buffer} - strbuf-delimited-read-char) + strbuf-delimited-read-char + interface: PeekableStringReader) (defmethod {peek-char delimited-string-input-buffer} - strbuf-delimited-peek-char) + strbuf-delimited-peek-char + interface: PeekableStringReader) (defmethod {put-back delimited-string-input-buffer} - strbuf-delimited-put-back) + strbuf-delimited-put-back + interface: BufferedStringReader) (defmethod {skip delimited-string-input-buffer} - strbuf-delimited-skip-input) + strbuf-delimited-skip-input + interface: BufferedStringReader) (defmethod {delimit delimited-string-input-buffer} - strbuf-delimited-delimit-input) + strbuf-delimited-delimit-input + interface: BufferedStringReader) (defmethod {reset! delimited-string-input-buffer} - strbuf-delimited-reset-input!) + strbuf-delimited-reset-input! + interface: BufferedStringReader) (defmethod {available delimited-string-input-buffer} - strbuf-delimited-available) + strbuf-delimited-available + interface: BufferedStringReader) (defmethod {close delimited-string-input-buffer} - strbuf-delimited-close) + strbuf-delimited-close + interface: Closer) ;; string-writer implements StringWriter (defmethod {write-string string-writer} - strio-write-string) + strio-write-string + interface: StringWriter) (defmethod {close string-writer} - strio-close-output) + strio-close-output + interface: Closer) ;; chunked-string-output-buffer implements StringWriter (defmethod {write-string chunked-string-output-buffer} - strio-chunked-write-string) + strio-chunked-write-string + interface: StringWriter) (defmethod {close chunked-string-output-buffer} - strio-chunked-close) + strio-chunked-close + interface: Closer) ;; string-output-buffer implements BufferedStringWriter -(defmethod {write-char string-output-buffer} - strbuf-write-char) (defmethod {write-string string-output-buffer} - strbuf-write-string) + strbuf-write-string + interface: StringWriter) +(defmethod {write-char string-output-buffer} + strbuf-write-char + interface: BufferedStringWriter) (defmethod {flush string-output-buffer} - strbuf-flush-output) + strbuf-flush-output + interface: BufferedStringWriter) (defmethod {reset! string-output-buffer} - strbuf-reset-output!) + strbuf-reset-output! + interface: BufferedStringWriter) (defmethod {close string-output-buffer} - strbuf-close-output) + strbuf-close-output + interface: Closer) diff --git a/src/std/misc/rwlock.ss b/src/std/misc/rwlock.ss index 2b940cd15..f9b760dc1 100644 --- a/src/std/misc/rwlock.ss +++ b/src/std/misc/rwlock.ss @@ -2,7 +2,8 @@ ;;; © vyzo ;;; read-write locks (import :std/error - :std/sugar) + :std/sugar + :gerbil/runtime) (export make-rwlock rwlock? rwlock-read-lock! @@ -107,16 +108,20 @@ ;; methods for the Locker interface (defmethod {read-lock! rwlock} (lambda (self) - (rwlock-read-lock! self))) + (rwlock-read-lock! self)) + interface: Locker) (defmethod {read-unlock! rwlock} (lambda (self) - (rwlock-read-unlock! self))) + (rwlock-read-unlock! self)) + interface: Locker) (defmethod {write-lock! rwlock} (lambda (self) - (rwlock-write-lock! self))) + (rwlock-write-lock! self)) + interface: Locker) (defmethod {write-unlock! rwlock} (lambda (self) - (rwlock-write-unlock! self))) + (rwlock-write-unlock! self)) + interface: Locker) diff --git a/src/std/net/httpd/mux.ss b/src/std/net/httpd/mux.ss index c73ce0377..74f2df63e 100644 --- a/src/std/net/httpd/mux.ss +++ b/src/std/net/httpd/mux.ss @@ -29,11 +29,13 @@ (defmethod {put-handler! default-http-mux} (lambda (self host path handler) - (hash-put! self.t path handler))) + (hash-put! self.t path handler)) + interface: Mux) (defmethod {get-handler default-http-mux} (lambda (self host path) - (hash-ref self.t path self.default))) + (hash-ref self.t path self.default)) + interface: Mux) ;; recursive mux -- resolves paths up to their parent (defstruct (recursive-http-mux default-http-mux) ()) @@ -48,7 +50,8 @@ ((hash-get self.t path)) ((string-rindex path #\/) => (lambda (ix) (lp (substring path 0 ix)))) - (else self.default))))) + (else self.default)))) + interface: Mux) ;; static mux -- paths are resolved in a static hash table, which elides the need for a mutex (defstruct static-http-mux ((t :- HashTable) (default :- :procedure)) @@ -60,11 +63,13 @@ (defmethod {put-handler! static-http-mux} (lambda (self host path handler) - (error "mux does not support dynamic handler registration"))) + (error "mux does not support dynamic handler registration")) + interface: Mux) (defmethod {get-handler static-http-mux} (lambda (self host path) - (hash-ref self.t path self.default))) + (hash-ref self.t path self.default)) + interface: Mux) ;; recursive static mux -- resolves paths up to their parent (defstruct (recursive-static-http-mux static-http-mux) ()) @@ -79,7 +84,8 @@ ((hash-get self.t path)) ((string-rindex path #\/) => (lambda (ix) (lp (substring path 0 ix)))) - (else self.default))))) + (else self.default)))) + interface: Mux) ;; custom mux -- it dispatches all resolutions/registrations to user supplied functions (defstruct custom-http-mux ((get :- :procedure) (put :- :procedure)) @@ -91,8 +97,10 @@ (defmethod {get-handler custom-http-mux} (lambda (self host path) - (self.get host path))) + (self.get host path)) + interface: Mux) (defmethod {put-handler! custom-http-mux} (lambda (self host path handler) - (self.put host path handler))) + (self.put host path handler)) + interface: Mux) diff --git a/src/std/net/socks/client.ss b/src/std/net/socks/client.ss index 8c7d7ec95..34aee978c 100644 --- a/src/std/net/socks/client.ss +++ b/src/std/net/socks/client.ss @@ -137,10 +137,12 @@ (cut socks-proxy-init! <> <> <> 'SOCKS5)) (defmethod {protocol socks-proxy} - &socks-proxy-protocol) + &socks-proxy-protocol + interface: SOCKS) (defmethod {proxy-address socks-proxy} - &socks-proxy-address) + &socks-proxy-address + interface: SOCKS) (defrule (defconnect-method proxy-type connect-e) (defmethod {connect proxy-type} @@ -154,7 +156,8 @@ self.sock (catch (e) (self.sock.close) - (raise e)))))) + (raise e)))) + interface: SOCKS)) (defconnect-method socks4-proxy socks4-connect) (defconnect-method socks4a-proxy socks4a-connect) @@ -171,7 +174,8 @@ (ServerSocket (make-server-socket self.sock)) (catch (e) (self.sock.close) - (raise e)))))) + (raise e)))) + interface: SOCKS)) (defbind-method socks4-proxy socks4-bind make-socks4-server-socket) (defbind-method socks4a-proxy socks4-bind make-socks4-server-socket) @@ -181,7 +185,8 @@ (lambda (self) (when self.sock (self.sock.close) - (set! self.sock #f)))) + (set! self.sock #f))) + interface: Closer) (defsyntax (defserver-dispatch-method stx) (syntax-case stx () @@ -192,7 +197,8 @@ (make-symbol "self.sock." (stx-e #'method))))) #'(defmethod {method socks-server-socket} (lambda (self arg ...) - (self.sock.method arg ...))))))) + (self.sock.method arg ...)) + interface: Socket))))) (defserver-dispatch-method (domain)) (defserver-dispatch-method (address)) @@ -203,7 +209,8 @@ (defmethod {peer-address socks-server-socket} (lambda (self) - (raise-unsupported-method peer-address))) + (raise-unsupported-method peer-address)) + interface: Socket) (defrule (defserver-accept-method server-type receive-e) (defmethod {accept server-type} @@ -215,7 +222,8 @@ (let (sock self.sock) (set! self.sock #f) sock)) - (raise-context-error accept "proxy client has already accepted a connection"))))) + (raise-context-error accept "proxy client has already accepted a connection"))) + interface: ServerSocket)) (defserver-accept-method socks4-server-socket socks4-recv-reply) (defserver-accept-method socks5-server-socket socks5-recv-reply) diff --git a/src/std/net/socks/interface.ss b/src/std/net/socks/interface.ss index 7976e1e4e..85db1c0a2 100644 --- a/src/std/net/socks/interface.ss +++ b/src/std/net/socks/interface.ss @@ -17,7 +17,9 @@ ;; open a connection through the proxy ;; :- StreamSocket (connect (address :~ address?)) + => StreamSocket ;; Bind an address at the proxy ;; :- ServerSocket - (bind (address :~ (maybe address?) := #f))) + (bind (address :~ (maybe address?) := #f)) + => ServerSocket) diff --git a/src/std/net/ssl/server.ss b/src/std/net/ssl/server.ss index d994a6709..d9cef9c68 100644 --- a/src/std/net/ssl/server.ss +++ b/src/std/net/ssl/server.ss @@ -50,7 +50,8 @@ (ssl-server-upgrade clisock self.ctx) (catch (e) (clisock.close) - (raise e)))))) + (raise e))))) + interface: ServerSocket) (def (ssl-server-upgrade clisock ctx) (using (bsock (&interface-instance-object clisock) :- basic-socket) diff --git a/src/std/net/ssl/socket.ss b/src/std/net/ssl/socket.ss index 543c4d4b0..d96294439 100644 --- a/src/std/net/ssl/socket.ss +++ b/src/std/net/ssl/socket.ss @@ -11,7 +11,8 @@ :std/io/socket/basic :std/os/fd ./libssl - ./error) + ./error + ./interface) (defstruct (ssl-socket basic-socket) (ssl peer-cert) final: #t @@ -37,135 +38,146 @@ (defmethod {shutdown ssl-socket} (lambda (self dir) ;; there is no unidirectional shutdown in ssl sockets - (ssl-socket::close self))) + (ssl-socket::__close self)) + interface: StreamSocket) -(defmethod {close ssl-socket} +(defmethod {__close ssl-socket} (lambda (self) - (using (self :- ssl-socket) - (with-basic-socket-write-lock self - (unless self.closed? - (try - (let ((rsock self.sock) - (ssl self.ssl)) - (let lp () - (let (result (SSL_shutdown ssl)) - (cond - ((and (fixnum? result) (fx> result 0)) (void)) - ((eqv? result SSL_ERROR_WANT_READ) - (basic-socket-wait-io! self (fd-io-in rsock) #f) - (lp)) - ((eqv? result SSL_ERROR_WANT_WRITE) - (basic-socket-wait-io! self (fd-io-out rsock) #f) - (lp)))))) - (catch (e) (void))) - (basic-socket-close/lock self) - (foreign-release! self.ssl) - (set! self.ssl #f)))))) + (with-basic-socket-write-lock self + (unless self.closed? + (try + (let ((rsock self.sock) + (ssl self.ssl)) + (let lp () + (let (result (SSL_shutdown ssl)) + (cond + ((and (fixnum? result) (fx> result 0)) (void)) + ((eqv? result SSL_ERROR_WANT_READ) + (basic-socket-wait-io! self (fd-io-in rsock) #f) + (lp)) + ((eqv? result SSL_ERROR_WANT_WRITE) + (basic-socket-wait-io! self (fd-io-out rsock) #f) + (lp)))))) + (catch (e) (void))) + (basic-socket-close/lock self) + (foreign-release! self.ssl) + (set! self.ssl #f))))) + +(defmethod {close ssl-socket} + ssl-socket::__close + interface: Closer) (defmethod {peer-certificate ssl-socket} (lambda (self) - (using (self :- ssl-socket) - (or self.peer-cert - (let* ((ssl self.ssl) - (cert (SSL_get_peer_certificate ssl))) - (set! self.peer-cert cert) - cert))))) + (or self.peer-cert + (let* ((ssl self.ssl) + (cert (SSL_get_peer_certificate ssl))) + (set! self.peer-cert cert) + cert))) + interface: TLS) + +(defmethod {__recv ssl-socket} + (lambda (self output output-start output-end _) + (with-basic-socket-read-lock self + (let ((rsock self.sock) + (ssl self.ssl)) + (let lp () + (when self.closed? + (raise-io-closed ssl-socket-recv "socket input has been shutdown")) + (let (result (SSL_read ssl output output-start output-end)) + (cond + ((and (fixnum? result) (fx>= result 0)) result) + ((eqv? result SSL_ERROR_WANT_READ) + (let (wait-result + (basic-socket-wait-io! self (fd-io-in rsock) self.timeo-in)) + (if wait-result + (lp) + (raise-timeout ssl-socket-recv "receive timeout")))) + ((eqv? result SSL_ERROR_WANT_WRITE) + (let (wait-result + (basic-socket-wait-io! self (fd-io-out rsock) self.timeo-out)) + (if wait-result + (lp) + (raise-timeout ssl-socket-recv "receive timeout")))) + (else + (raise-ssl-error ssl-socket-recv result))))))))) (defmethod {recv ssl-socket} - (lambda (self output output-start output-end _) - (using (self :- ssl-socket) - (with-basic-socket-read-lock self - (let ((rsock self.sock) - (ssl self.ssl)) - (let lp () - (when self.closed? - (raise-io-closed ssl-socket-recv "socket input has been shutdown")) - (let (result (SSL_read ssl output output-start output-end)) - (cond - ((and (fixnum? result) (fx>= result 0)) result) - ((eqv? result SSL_ERROR_WANT_READ) - (let (wait-result - (basic-socket-wait-io! self (fd-io-in rsock) self.timeo-in)) - (if wait-result - (lp) - (raise-timeout ssl-socket-recv "receive timeout")))) - ((eqv? result SSL_ERROR_WANT_WRITE) - (let (wait-result - (basic-socket-wait-io! self (fd-io-out rsock) self.timeo-out)) - (if wait-result - (lp) - (raise-timeout ssl-socket-recv "receive timeout")))) - (else - (raise-ssl-error ssl-socket-recv result)))))))))) + ssl-socket::__recv + interface: StreamSocket) -(defmethod {send ssl-socket} +(defmethod {__send ssl-socket} (lambda (self input input-start input-end _) - (using (self :- ssl-socket) - (with-basic-socket-read-lock self - (let ((rsock self.sock) - (ssl self.ssl)) - (let lp () - (when self.closed? - (raise-io-closed ssl-socket-send "socket output has been shutdown")) - (let (result (SSL_write ssl input input-start input-end)) - (cond - ((and (fixnum? result) (fx> result 0)) result) - ((eqv? result SSL_ERROR_WANT_READ) - (let (wait-result (basic-socket-wait-io! self (fd-io-in rsock) self.timeo-in)) - (if wait-result - (lp) - (raise-timeout ssl-socket-send "receive timeout")))) - ((eqv? result SSL_ERROR_WANT_WRITE) - (let (wait-result (basic-socket-wait-io! self (fd-io-out rsock) self.timeo-out)) - (if wait-result - (lp) - (raise-timeout ssl-socket-send "receive timeout")))) - (else - (raise-ssl-error ssl-socket-send result)))))))))) + (with-basic-socket-read-lock self + (let ((rsock self.sock) + (ssl self.ssl)) + (let lp () + (when self.closed? + (raise-io-closed ssl-socket-send "socket output has been shutdown")) + (let (result (SSL_write ssl input input-start input-end)) + (cond + ((and (fixnum? result) (fx> result 0)) result) + ((eqv? result SSL_ERROR_WANT_READ) + (let (wait-result (basic-socket-wait-io! self (fd-io-in rsock) self.timeo-in)) + (if wait-result + (lp) + (raise-timeout ssl-socket-send "receive timeout")))) + ((eqv? result SSL_ERROR_WANT_WRITE) + (let (wait-result (basic-socket-wait-io! self (fd-io-out rsock) self.timeo-out)) + (if wait-result + (lp) + (raise-timeout ssl-socket-send "receive timeout")))) + (else + (raise-ssl-error ssl-socket-send result))))))))) +(defmethod {send ssl-socket} + ssl-socket::__send + interface: StreamSocket) (defmethod {reader ssl-socket} (lambda (self) - (Reader (make-ssl-socket-reader self)))) + (Reader (make-ssl-socket-reader self))) + interface: StreamSocket) (defmethod {writer ssl-socket} (lambda (self) - (Writer (make-ssl-socket-writer self)))) + (Writer (make-ssl-socket-writer self))) + interface: StreamSocket) (defmethod {read ssl-socket-reader} (lambda (self output output-start output-end input-need) - (using (self :- ssl-socket-reader) - (let (sock self.sock) - (let lp ((output-start output-start) (input-need input-need) (result 0)) - (if (fx< output-start output-end) - (let (read (ssl-socket::recv sock output output-start output-end 0)) - (cond - ((fx= read 0) - (if (fx> input-need result) - (raise-premature-end-of-input ssl-socket-read input-need) - result)) - ((fx> read input-need) - (fx+ result read)) - (else - (lp (fx+ output-start read) (fx- input-need read) (fx+ result read))))) - result)))))) + (let (sock self.sock) + (let lp ((output-start output-start) (input-need input-need) (result 0)) + (if (fx< output-start output-end) + (let (read (ssl-socket::__recv sock output output-start output-end 0)) + (cond + ((fx= read 0) + (if (fx> input-need result) + (raise-premature-end-of-input ssl-socket-read input-need) + result)) + ((fx> read input-need) + (fx+ result read)) + (else + (lp (fx+ output-start read) (fx- input-need read) (fx+ result read))))) + result)))) + interface: Reader) (defmethod {close ssl-socket-reader} (lambda (self) - (using (self :- ssl-socket-reader) - (ssl-socket::shutdown self.sock 'in)))) + (ssl-socket::__close self.sock)) + interface: Closer) (defmethod {write ssl-socket-writer} (lambda (self input input-start input-end) - (using (self :- ssl-socket-writer) - (let (sock self.sock) - (let lp ((input-start input-start) (result 0)) - (if (fx< input-start input-end) - (let (wrote (ssl-socket::send sock input input-start input-end 0)) - (lp (fx+ input-start wrote) (fx+ result wrote))) - result)))))) + (let (sock self.sock) + (let lp ((input-start input-start) (result 0)) + (if (fx< input-start input-end) + (let (wrote (ssl-socket::__send sock input input-start input-end 0)) + (lp (fx+ input-start wrote) (fx+ result wrote))) + result)))) + interface: Writer) (defmethod {close ssl-socket-writer} (lambda (self) - (using (self :- ssl-socket-writer) - (ssl-socket::shutdown self.sock 'out)))) + (ssl-socket::__close self.sock)) + interface: Closer) diff --git a/src/std/net/websocket/socket.ss b/src/std/net/websocket/socket.ss index c04005d5e..bf9360afa 100644 --- a/src/std/net/websocket/socket.ss +++ b/src/std/net/websocket/socket.ss @@ -35,8 +35,7 @@ (defmethod {send websocket} (lambda (self msg) - (using ((self :- websocket) - (msg :- message)) + (using (msg :- message) (when self.closed? (raise-io-closed send "websocket has been closed" self)) (let* ((data @@ -51,21 +50,22 @@ (message->frame-type msg.type) (if msg.partial? 0 1) self.mask) - (raise-io-error websocket-send "message exceeds max frame size" len self.max-frame-size)))))) + (raise-io-error websocket-send "message exceeds max frame size" len self.max-frame-size))))) + interface: WebSocket) (defmethod {recv websocket} (lambda (self) - (using (self :- websocket) - (when self.closed? - (raise-io-closed send "websocket has been closed" self)) - - (let* (((values data typ fin) (read-frame self.reader self.max-frame-size)) - (type (frame->message-type typ)) - (data (if (memq type '(text close)) - (utf8->string data) - data)) - (partial? (fx= fin 0))) - (message data type partial?))))) + (when self.closed? + (raise-io-closed send "websocket has been closed" self)) + + (let* (((values data typ fin) (read-frame self.reader self.max-frame-size)) + (type (frame->message-type typ)) + (data (if (memq type '(text close)) + (utf8->string data) + data)) + (partial? (fx= fin 0))) + (message data type partial?))) + interface: WebSocket) ;; Base Framing Protocol [RFC 6455] ;; @@ -169,32 +169,34 @@ (lp (fx+ i 1) (fxmodulo (fx+ mask-i 1) 4))))) (defmethod {protocol websocket} - &websocket-proto) + &websocket-proto + interface: WebSocket) (defmethod {max-frame-size websocket} - &websocket-max-frame-size) + &websocket-max-frame-size + interface: WebSocket) ;; Closer interface implementation (defmethod {close websocket} (lambda (self) - (using (self :- websocket) - (unless self.closed? - (set! self.closed? #t) - - ;; Note we don't do the graceful shutdown part of the spec for good reason - ;; - it is borderline useless - ;; - it is hard to implement correctly - ;; - adding an rwlock in the websocket would make it impossible to - ;; close the socket from a third thread as the socket already has one. - ;; - i don't understand the rationale for including it in the RFC - ;; - and honestly, it is not needed. - ;; What we do instead is pass the "close" message to the user and let them - ;; handle it as they see fit. - ;; Here, we just close the socket. - (using ((reader self.reader :- BufferedReader) - (writer self.writer :- BufferedWriter)) - (reader.close) - (writer.close)))))) + (unless self.closed? + (set! self.closed? #t) + + ;; Note we don't do the graceful shutdown part of the spec for good reason + ;; - it is borderline useless + ;; - it is hard to implement correctly + ;; - adding an rwlock in the websocket would make it impossible to + ;; close the socket from a third thread as the socket already has one. + ;; - i don't understand the rationale for including it in the RFC + ;; - and honestly, it is not needed. + ;; What we do instead is pass the "close" message to the user and let them + ;; handle it as they see fit. + ;; Here, we just close the socket. + (using ((reader self.reader :- BufferedReader) + (writer self.writer :- BufferedWriter)) + (reader.close) + (writer.close)))) + interface: Closer) ;;; Socket interface implementation passhtrough (defsyntax (defsocket-dispatch-method stx) @@ -202,11 +204,11 @@ ((_ (method arg ...)) (with-syntax ((sock.method (make-symbol 'sock "." (stx-e #'method)))) #'(defmethod {method websocket} - (lambda (self arg ...) - (using (self :- websocket) + (lambda (self arg ...) (let (sock self.sock) (using (sock :- StreamSocket) - (sock.method arg ...)))))))))) + (sock.method arg ...)))) + interface: Socket))))) (defsocket-dispatch-method (domain)) (defsocket-dispatch-method (address)) diff --git a/src/tools/gxhttpd.ss b/src/tools/gxhttpd.ss index 4a48f4d1d..ef35ab50e 100644 --- a/src/tools/gxhttpd.ss +++ b/src/tools/gxhttpd.ss @@ -377,7 +377,8 @@ (else {self.__get-handler path}))))) (else - {self.__get-handler path})))) + {self.__get-handler path}))) + interface: Mux) (defmethod {__get-handler dynamic-mux} (lambda (self (path :- :string)) @@ -418,7 +419,8 @@ (defmethod {put-handler! dynamic-mux} (lambda (self host (path :- :string) (handler :- :procedure)) - (hash-put! self.handlers path handler))) + (hash-put! self.handlers path handler)) + interface: Mux) (def (not-found-handler req res) (http-response-write-condition res Not-Found)) diff --git a/src/tools/gxtags.ss b/src/tools/gxtags.ss index 32241a0e5..b574f780a 100644 --- a/src/tools/gxtags.ss +++ b/src/tools/gxtags.ss @@ -278,4 +278,4 @@ (lines (read-file-lines tagfile)) (sorted (sort lines string